From 7069510d676bc49fea9ace7cf060f0017f074d87 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Thu, 1 Mar 2018 10:54:56 -0700
Subject: [PATCH] expander: bind U+3BB as a macro, not a core form

---
 racket/src/expander/boot/load-handler.rkt |     2 +-
 racket/src/expander/expand/expr.rkt       |    37 +-
 racket/src/expander/namespace/core.rkt    |     6 +-
 racket/src/racket/src/startup.inc         | 11419 ++++++++++----------
 4 files changed, 5770 insertions(+), 5694 deletions(-)

diff --git a/racket/src/expander/boot/load-handler.rkt b/racket/src/expander/boot/load-handler.rkt
index c5f32ecbbd..007c732e75 100644
--- a/racket/src/expander/boot/load-handler.rkt
+++ b/racket/src/expander/boot/load-handler.rkt
@@ -94,7 +94,7 @@
      [else
       (define (add-top-interaction s)
         (namespace-syntax-introduce
-         (datum->syntax #f (cons '#%top-interaction s))))
+         (datum->syntax s (cons '#%top-interaction s))))
       (call-with-input-file*
        path
        (lambda (i)
diff --git a/racket/src/expander/expand/expr.rkt b/racket/src/expander/expand/expr.rkt
index 18828d3bf3..949888d3a1 100644
--- a/racket/src/expander/expand/expr.rkt
+++ b/racket/src/expander/expand/expr.rkt
@@ -60,7 +60,8 @@
               sc-formals)
           exp-body))
 
-(define (make-expand-lambda get-lambda)
+(add-core-form!
+ 'lambda
   (lambda (s ctx)
     (log-expand ctx 'prim-lambda)
     (define disarmed-s (syntax-disarm s))
@@ -72,20 +73,28 @@
         (parsed-lambda rebuild-s formals body)
         (rebuild
          rebuild-s
-         `(,(get-lambda ctx (m 'lambda)) ,formals ,@body)))))
-
-(add-core-form!
- 'lambda
- (make-expand-lambda (lambda (ctx lam-id) lam-id)))
+         `(,(m 'lambda) ,formals ,@body)))))
 
 (add-core-form!
  'λ
- (make-expand-lambda
-  (lambda (ctx lam-id)
-    (datum->syntax (syntax-shift-phase-level core-stx (expand-context-phase ctx))
-                   'lambda
-                   lam-id
-                   lam-id))))
+ ;; A macro:
+ (lambda (s)
+   (define-match m s '(lam-id formals _ ...+))
+   (define ids (parse-and-flatten-formals (m 'formals) #f s))
+   (define ctx (get-current-expand-context #:fail-ok? #t))
+   (define phase (if ctx
+                     (expand-context-phase ctx)
+                     0))
+   (check-no-duplicate-ids ids phase s #:what "argument name")
+   (datum->syntax
+    s
+    (cons (datum->syntax (syntax-shift-phase-level core-stx phase)
+                         'lambda
+                         (m 'lam-id)
+                         (m 'lam-id))
+          (cdr (syntax-e s)))
+    s
+    s)))
 
 (add-core-form!
  'case-lambda
@@ -125,7 +134,9 @@
      [(pair? formals)
       (unless (identifier? (car formals))
         (raise-syntax-error #f "not an identifier" s (car formals)))
-      (cons (add-scope (car formals) sc)
+      (cons (if sc
+                (add-scope (car formals) sc)
+                (car formals))
             (loop (cdr formals)))]
      [(null? formals)
       null]
diff --git a/racket/src/expander/namespace/core.rkt b/racket/src/expander/namespace/core.rkt
index 75ccded1f8..30c06cb500 100644
--- a/racket/src/expander/namespace/core.rkt
+++ b/racket/src/expander/namespace/core.rkt
@@ -111,7 +111,11 @@
                      (for ([(sym val) (in-hash core-primitives)])
                        (namespace-set-consistent! ns 0 sym val))
                      (for ([(sym proc) (in-hash core-forms)])
-                       (namespace-set-transformer! ns 0 sym (core-form proc sym)))])))
+                       (namespace-set-transformer! ns 0 sym (if (procedure-arity-includes? proc 2)
+                                                                ;; An actual core form:
+                                                                (core-form proc sym)
+                                                                ;; A macro:
+                                                                proc)))])))
    core-module-name))
 
 ;; Helper for recognizing and dispatching on core forms:
diff --git a/racket/src/racket/src/startup.inc b/racket/src/racket/src/startup.inc
index 0b349ed1eb..b8a516f5ba 100644
--- a/racket/src/racket/src/startup.inc
+++ b/racket/src/racket/src/startup.inc
@@ -15470,9 +15470,13 @@ static const char *startup_source =
 " ns_48"
 " 0"
 " sym_27"
+"(if(procedure-arity-includes?"
+" proc_5"
+" 2)"
 "(core-form9.1"
 " proc_5"
-" sym_27)))"
+" sym_27)"
+" proc_5)))"
 "(values)))))"
 "(values)))))"
 "(if(not #f)"
@@ -44603,7 +44607,10 @@ static const char *startup_source =
 "(void)))"
 " new-s_5)))"
 "(if combine_0"
-"(let-values() l_69)"
+"(let-values()"
+"(apply"
+" append"
+" l_69))"
 "(let-values()"
 "(void)))))))))))))"
 "(let-values()"
@@ -45590,58 +45597,68 @@ static const char *startup_source =
 " 'load"
 "(let-values()"
 "(let-values()"
+"(let-values((()"
 "(begin"
-"            (if (path-string? s_0) (void) (let-values () (raise-argument-error 'load \"path-string?\" s_0)))"
-"(call-with-current-load-relative-directory s_0(lambda()((1/current-load) s_0 #f)))))))))"
+"                          (if (path-string? s_0) (void) (let-values () (raise-argument-error 'load \"path-string?\" s_0)))"
+"(values))))"
+"(let-values(((p_57)(->path s_0)))"
+"(call-with-current-load-relative-directory p_57(lambda()((1/current-load) p_57 #f))))))))))"
 "(define-values"
 "(1/load-extension)"
-"(lambda(s_155)"
+"(lambda(s_1)"
 "(begin"
 " 'load-extension"
 "(let-values()"
 "(let-values()"
+"(let-values((()"
 "(begin"
-"            (if (path-string? s_155) (void) (let-values () (raise-argument-error 'load-extension \"path-string?\" s_155)))"
-"(call-with-current-load-relative-directory s_155(lambda()((current-load-extension) s_155 #f)))))))))"
+"(if(path-string? s_1)"
+"(void)"
+"                            (let-values () (raise-argument-error 'load-extension \"path-string?\" s_1)))"
+"(values))))"
+"(let-values(((p_58)(->path s_1)))"
+"(call-with-current-load-relative-directory p_58(lambda()((current-load-extension) p_58 #f))))))))))"
 "(define-values"
 "(call-with-current-load-relative-directory)"
-"(lambda(p_49 thunk_4)"
+"(lambda(p_30 thunk_4)"
 "(begin"
-"(let-values(((base_2 name_3 dir?_2)(split-path p_49)))"
+"(let-values(((base_18 name_55 dir?_2)(split-path p_30)))"
 "(with-continuation-mark"
 " parameterization-key"
 "(extend-parameterization"
 "(continuation-mark-set-first #f parameterization-key)"
 " current-load-relative-directory"
-"(if(eq? base_2 'relative)(current-directory)(path->complete-path base_2)))"
+"(if(eq? base_18 'relative)(current-directory)(path->complete-path base_18)))"
 "(let-values()(thunk_4)))))))"
 "(define-values"
 "(1/load/use-compiled)"
-"(lambda(f_35)"
+"(lambda(f_25)"
 "(begin"
 " 'load/use-compiled"
 "(let-values()"
 "(let-values()"
+"(let-values((()"
 "(begin"
-"(if(path-string? f_35)"
+"(if(path-string? f_25)"
 "(void)"
-"              (let-values () (raise-argument-error 'load/use-compiled \"path-string?\" f_35)))"
-"((1/current-load/use-compiled) f_35 #f)))))))"
+"                            (let-values () (raise-argument-error 'load/use-compiled \"path-string?\" f_25)))"
+"(values))))"
+"(let-values(((p_46)(->path f_25)))((1/current-load/use-compiled) p_46 #f))))))))"
 "(define-values"
 "(embedded-load)"
 "(lambda(start_41 end_31 str_24 as-predefined?_0)"
 "(begin"
-"(let-values(((s_168)"
+"(let-values(((s_145)"
 "(if str_24"
 " str_24"
 "(let-values(((sp_0)(find-system-path 'exec-file)))"
 "(let-values(((exe_0)(find-executable-path sp_0 #f)))"
 "(let-values(((start_42)"
-"(let-values(((or-part_28)(1/string->number start_41)))"
-"(if or-part_28 or-part_28 0))))"
+"(let-values(((or-part_295)(1/string->number start_41)))"
+"(if or-part_295 or-part_295 0))))"
 "(let-values(((end_32)"
-"(let-values(((or-part_294)(1/string->number end_31)))"
-"(if or-part_294 or-part_294 0))))"
+"(let-values(((or-part_297)(1/string->number end_31)))"
+"(if or-part_297 or-part_297 0))))"
 "(let-values(((exe4_0) exe_0)"
 "((temp5_6)"
 "(lambda()"
@@ -45651,12 +45668,12 @@ static const char *startup_source =
 "(file-position(current-input-port) start_42)"
 "(read-bytes(max 0(- end_32 start_42))))))))"
 "(with-input-from-file45.1 #f #f exe4_0 temp5_6)))))))))"
-"(let-values(((p_57)(open-input-bytes s_168)))"
-"((letrec-values(((loop_2)"
+"(let-values(((p_59)(open-input-bytes s_145)))"
+"((letrec-values(((loop_73)"
 "(lambda()"
 "(begin"
 " 'loop"
-"(let-values(((e_39)"
+"(let-values(((e_76)"
 "(with-continuation-mark"
 " parameterization-key"
 "(extend-parameterization"
@@ -45669,8 +45686,8 @@ static const char *startup_source =
 " #t"
 " read-on-demand-source"
 " #t)"
-"(let-values()(1/read p_57)))))"
-"(if(eof-object? e_39)"
+"(let-values()(1/read p_59)))))"
+"(if(eof-object? e_76)"
 "(void)"
 "(let-values()"
 "(begin"
@@ -45680,9 +45697,10 @@ static const char *startup_source =
 "(continuation-mark-set-first #f parameterization-key)"
 " current-module-declare-as-predefined"
 " as-predefined?_0)"
-"(let-values()((1/current-eval) e_39)))"
-"(loop_2)))))))))"
-" loop_2)))))))"
+"(let-values()((1/current-eval) e_76)))"
+"(loop_73)))))))))"
+" loop_73)))))))"
+"(define-values(->path)(lambda(s_422)(begin(if(string? s_422)(string->path s_422) s_422))))"
 "(define-values"
 "(find-main-collects)"
 "(lambda()"
@@ -45703,8 +45721,8 @@ static const char *startup_source =
 "(path->complete-path"
 "(find-executable-path(find-system-path 'exec-file))"
 "(find-system-path 'orig-dir))))"
-"(let-values(((base_18 name_63 dir?_3)(split-path exec_0)))"
-"(simplify-path(path->complete-path collects-path_0 base_18)))))"
+"(let-values(((base_19 name_63 dir?_3)(split-path exec_0)))"
+"(simplify-path(path->complete-path collects-path_0 base_19)))))"
 "(let-values()"
 "(let-values(((p_58)(find-executable-path(find-system-path 'exec-file) collects-path_0 #t)))"
 "(if p_58(simplify-path p_58) #f))))))))"
@@ -45757,11 +45775,11 @@ static const char *startup_source =
 "(get-config-table)"
 "(lambda(d_33)"
 "(begin"
-"      (let-values (((p_59) (if d_33 (build-path d_33 \"config.rktd\") #f)))"
+"      (let-values (((p_60) (if d_33 (build-path d_33 \"config.rktd\") #f)))"
 "(let-values(((or-part_289)"
-"(if p_59"
-"(if(file-exists? p_59)"
-"(let-values(((p9_0) p_59)"
+"(if p_60"
+"(if(file-exists? p_60)"
+"(let-values(((p9_0) p_60)"
 "((temp10_3)"
 "(lambda()"
 "(begin"
@@ -45786,13 +45804,13 @@ static const char *startup_source =
 "(if(path? p_1)(let-values()(collects-relative-path->complete-path p_1))(let-values() p_1)))))))"
 "(define-values"
 "(collects-relative-path->complete-path)"
-"(lambda(p_60)"
+"(lambda(p_61)"
 "(begin"
-"(if(complete-path? p_60)"
-"(let-values() p_60)"
+"(if(complete-path? p_61)"
+"(let-values() p_61)"
 "(let-values()"
 "(path->complete-path"
-" p_60"
+" p_61"
 "(let-values(((or-part_172)(find-main-collects)))(if or-part_172 or-part_172(current-directory)))))))))"
 "(define-values"
 "(add-config-search)"
@@ -45856,11 +45874,11 @@ static const char *startup_source =
 "(lambda(path_8)"
 "(begin"
 " 'loop"
-"(let-values(((base_19 name_64 dir?_4)(split-path path_8)))"
-"(if(path? base_19)"
-"(if(directory-exists? base_19)"
-"(filesystem-change-evt base_19(lambda() #f))"
-"(loop_61 base_19))"
+"(let-values(((base_20 name_64 dir?_4)(split-path path_8)))"
+"(if(path? base_20)"
+"(if(directory-exists? base_20)"
+"(filesystem-change-evt base_20(lambda() #f))"
+"(loop_61 base_20))"
 " #f))))))"
 " loop_61)"
 " path_7)"
@@ -45882,10 +45900,10 @@ static const char *startup_source =
 "(begin"
 "(let-values(((path11_0) path_9)"
 "((temp12_3)"
-"(lambda(p_61)"
+"(lambda(p_62)"
 "(begin"
 " 'temp12"
-"(let-values(((bstr_1)(read-bytes 8192 p_61)))"
+"(let-values(((bstr_1)(read-bytes 8192 p_62)))"
 "(if(if(bytes? bstr_1)(>=(bytes-length bstr_1) 8192) #f)"
 "(apply"
 " bytes-append"
@@ -45895,7 +45913,7 @@ static const char *startup_source =
 "(lambda()"
 "(begin"
 " 'loop"
-"(let-values(((bstr_2)(read-bytes 8192 p_61)))"
+"(let-values(((bstr_2)(read-bytes 8192 p_62)))"
 "(if(eof-object? bstr_2) null(cons bstr_2(loop_99))))))))"
 " loop_99))))"
 " bstr_1))))))"
@@ -45952,12 +45970,12 @@ static const char *startup_source =
 " null"
 "(let-values(((links-path13_0) links-path_0)"
 "((temp14_5)"
-"(lambda(p_62)"
+"(lambda(p_63)"
 "(begin"
 " 'temp14"
 "(begin0"
-"(1/read p_62)"
-"(if(eof-object?(1/read p_62))"
+"(1/read p_63)"
+"(if(eof-object?(1/read p_63))"
 "(void)"
 "(let-values()"
 "                                                                      (error \"expected a single S-expression\"))))))))"
@@ -45966,21 +45984,21 @@ static const char *startup_source =
 "(begin"
 "(if(if(list? v_200)"
 "(andmap2"
-"(lambda(p_63)"
-"(if(list? p_63)"
-"(if(let-values(((or-part_63)(= 2(length p_63))))"
-"(if or-part_63 or-part_63(= 3(length p_63))))"
-"(if(let-values(((or-part_299)(string?(car p_63))))"
+"(lambda(p_64)"
+"(if(list? p_64)"
+"(if(let-values(((or-part_63)(= 2(length p_64))))"
+"(if or-part_63 or-part_63(= 3(length p_64))))"
+"(if(let-values(((or-part_299)(string?(car p_64))))"
 "(if or-part_299"
 " or-part_299"
 "(let-values(((or-part_300)"
-"(eq? 'root(car p_63))))"
+"(eq? 'root(car p_64))))"
 "(if or-part_300"
 " or-part_300"
-"(eq? 'static-root(car p_63))))))"
-"(if(path-string?(cadr p_63))"
-"(let-values(((or-part_64)(null?(cddr p_63))))"
-"(if or-part_64 or-part_64(regexp?(caddr p_63))))"
+"(eq? 'static-root(car p_64))))))"
+"(if(path-string?(cadr p_64))"
+"(let-values(((or-part_64)(null?(cddr p_64))))"
+"(if or-part_64 or-part_64(regexp?(caddr p_64))))"
 " #f)"
 " #f)"
 " #f)"
@@ -45992,17 +46010,17 @@ static const char *startup_source =
 "(values))))"
 "(let-values(((ht_151)(make-hasheq)))"
 "(let-values(((dir_0)"
-"(let-values(((base_20 name_65 dir?_5)(split-path links-path_0)))"
-" base_20)))"
+"(let-values(((base_21 name_65 dir?_5)(split-path links-path_0)))"
+" base_21)))"
 "(begin"
 "(for-each2"
-"(lambda(p_64)"
-"(if(let-values(((or-part_65)(null?(cddr p_64))))"
-"(if or-part_65 or-part_65(regexp-match?(caddr p_64)(version))))"
+"(lambda(p_65)"
+"(if(let-values(((or-part_65)(null?(cddr p_65))))"
+"(if or-part_65 or-part_65(regexp-match?(caddr p_65)(version))))"
 "(let-values()"
 "(let-values(((dir_1)"
-"(simplify-path(path->complete-path(cadr p_64) dir_0))))"
-"(if(eq?(car p_64) 'static-root)"
+"(simplify-path(path->complete-path(cadr p_65) dir_0))))"
+"(if(eq?(car p_65) 'static-root)"
 "(let-values()"
 "(for-each2"
 "(lambda(sub_1)"
@@ -46015,7 +46033,7 @@ static const char *startup_source =
 "(cons dir_1(hash-ref ht_151 k_36 null)))))"
 "(void)))"
 "(directory-list dir_1)))"
-"(if(eq?(car p_64) 'root)"
+"(if(eq?(car p_65) 'root)"
 "(let-values()"
 "(begin"
 "(if(hash-ref ht_151 #f #f)"
@@ -46026,7 +46044,7 @@ static const char *startup_source =
 "(lambda(k_37 v_201)"
 "(hash-set! ht_151 k_37(cons dir_1 v_201))))))"
 "(let-values()"
-"(let-values(((s_16)(string->symbol(car p_64))))"
+"(let-values(((s_16)(string->symbol(car p_65))))"
 "(hash-set!"
 " ht_151"
 " s_16"
@@ -46054,10 +46072,10 @@ static const char *startup_source =
 "(cons(substring collection_2(cdar m_23)) collection-path_2))))"
 "(values collection_2 collection-path_2))))"
 "(let-values()"
-"(let-values(((base_21 name_66 dir?_6)(split-path collection_2)))"
-"(if(eq? base_21 'relative)"
+"(let-values(((base_22 name_66 dir?_6)(split-path collection_2)))"
+"(if(eq? base_22 'relative)"
 "(values name_66 collection-path_2)"
-"(normalize-collection-reference base_21(cons name_66 collection-path_2)))))))))"
+"(normalize-collection-reference base_22(cons name_66 collection-path_2)))))))))"
 "(define-values"
 "(find-col-file)"
 "(lambda(fail_5 collection-in_0 collection-path-in_0 file-name_1 check-compiled?_1)"
@@ -46099,7 +46117,7 @@ static const char *startup_source =
 "(lambda(orig_0 p_45)"
 "(begin '*directory-exists?(if(path? orig_0)(directory-exists? p_45) #t)))))"
 "(let-values(((to-string_0)"
-"(lambda(p_65)(begin 'to-string(if(path? p_65)(path->string p_65) p_65)))))"
+"(lambda(p_66)(begin 'to-string(if(path? p_66)(path->string p_66) p_66)))))"
 "((letrec-values(((cloop_0)"
 "(lambda(paths_1 found-col_0)"
 "(begin"
@@ -46161,7 +46179,7 @@ static const char *startup_source =
 "(apply"
 " string-append"
 "(map2"
-"                                                       (lambda (p_66) (format \"\\n   ~a\" (unbox p_66)))"
+"                                                       (lambda (p_67) (format \"\\n   ~a\" (unbox p_67)))"
 "(filter_1 box? all-paths_0))))"
 "                                                    \"\"))))))"
 "(let-values(((dir_2)(*build-path-rep_0(car paths_1) collection_3)))"
@@ -46230,12 +46248,12 @@ static const char *startup_source =
 "(ormap2"
 "(lambda(mode_15)"
 "(file-exists?"
-"(let-values(((p_67)(build-path dir_3 mode_15 try-path_0)))"
+"(let-values(((p_68)(build-path dir_3 mode_15 try-path_0)))"
 "(if(eq? d_34 'same)"
-"(let-values() p_67)"
+"(let-values() p_68)"
 "(if(relative-path? d_34)"
-"(let-values()(build-path p_67 d_34))"
-"(let-values()(reroot-path p_67 d_34)))))))"
+"(let-values()(build-path p_68 d_34))"
+"(let-values()(reroot-path p_68 d_34)))))))"
 " modes_0))"
 " roots_0))"
 " #f))))))"
@@ -46634,7 +46652,10 @@ static const char *startup_source =
 "(begin"
 "(let-values(((end-line_0 end-col_0 end-pos_0)(port-next-location in_1)))"
 "(srcloc"
-"(read-config-source config_1)"
+"(let-values(((or-part_302)(read-config-source config_1)))"
+"(if or-part_302"
+" or-part_302"
+"             (let-values (((or-part_303) (object-name in_1))) (if or-part_303 or-part_303 \"UNKNOWN\"))))"
 "(read-config-line config_1)"
 "(read-config-col config_1)"
 "(read-config-pos config_1)"
@@ -46644,55 +46665,55 @@ static const char *startup_source =
 "(lambda(config_2 line_2 col_1 pos_108)"
 "(begin"
 "(let-values(((v_218) config_2))"
-"(let-values(((the-struct_82) v_218))"
-"(if(read-config/outer? the-struct_82)"
+"(let-values(((the-struct_38) v_218))"
+"(if(read-config/outer? the-struct_38)"
 "(let-values(((line55_0) line_2)"
 "((col56_0) col_1)"
 "((pos57_0) pos_108)"
 "((inner58_1)(read-config/outer-inner v_218)))"
 "(read-config/outer1.1"
 " inner58_1"
-"(read-config/outer-wrap the-struct_82)"
+"(read-config/outer-wrap the-struct_38)"
 " line55_0"
 " col56_0"
 " pos57_0"
-"(read-config/outer-indentations the-struct_82)"
-"(read-config/outer-keep-comment? the-struct_82)))"
-"            (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_82)))))))"
+"(read-config/outer-indentations the-struct_38)"
+"(read-config/outer-keep-comment? the-struct_38)))"
+"            (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_38)))))))"
 "(define-values"
 "(disable-wrapping)"
 "(lambda(config_3)"
 "(begin"
 "(let-values(((v_219) config_3))"
-"(let-values(((the-struct_83) v_219))"
-"(if(read-config/outer? the-struct_83)"
+"(let-values(((the-struct_82) v_219))"
+"(if(read-config/outer? the-struct_82)"
 "(let-values(((wrap59_0) #f)((inner60_0)(read-config/outer-inner v_219)))"
 "(read-config/outer1.1"
 " inner60_0"
 " wrap59_0"
-"(read-config/outer-line the-struct_83)"
-"(read-config/outer-col the-struct_83)"
-"(read-config/outer-pos the-struct_83)"
-"(read-config/outer-indentations the-struct_83)"
-"(read-config/outer-keep-comment? the-struct_83)))"
-"            (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_83)))))))"
+"(read-config/outer-line the-struct_82)"
+"(read-config/outer-col the-struct_82)"
+"(read-config/outer-pos the-struct_82)"
+"(read-config/outer-indentations the-struct_82)"
+"(read-config/outer-keep-comment? the-struct_82)))"
+"            (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_82)))))))"
 "(define-values"
 "(keep-comment)"
 "(lambda(config_4)"
 "(begin"
-"(let-values(((v_144) config_4))"
-"(let-values(((the-struct_84) v_144))"
-"(if(read-config/outer? the-struct_84)"
-"(let-values(((keep-comment?61_0) #t)((inner62_0)(read-config/outer-inner v_144)))"
+"(let-values(((v_220) config_4))"
+"(let-values(((the-struct_83) v_220))"
+"(if(read-config/outer? the-struct_83)"
+"(let-values(((keep-comment?61_0) #t)((inner62_0)(read-config/outer-inner v_220)))"
 "(read-config/outer1.1"
 " inner62_0"
-"(read-config/outer-wrap the-struct_84)"
-"(read-config/outer-line the-struct_84)"
-"(read-config/outer-col the-struct_84)"
-"(read-config/outer-pos the-struct_84)"
-"(read-config/outer-indentations the-struct_84)"
+"(read-config/outer-wrap the-struct_83)"
+"(read-config/outer-line the-struct_83)"
+"(read-config/outer-col the-struct_83)"
+"(read-config/outer-pos the-struct_83)"
+"(read-config/outer-indentations the-struct_83)"
 " keep-comment?61_0))"
-"            (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_84)))))))"
+"            (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_83)))))))"
 "(define-values"
 "(discard-comment)"
 "(lambda(config_5)"
@@ -46700,19 +46721,19 @@ static const char *startup_source =
 "(if(not(read-config-keep-comment? config_5))"
 "(let-values() config_5)"
 "(let-values()"
-"(let-values(((v_220) config_5))"
-"(let-values(((the-struct_85) v_220))"
-"(if(read-config/outer? the-struct_85)"
-"(let-values(((keep-comment?63_0) #f)((inner64_0)(read-config/outer-inner v_220)))"
+"(let-values(((v_146) config_5))"
+"(let-values(((the-struct_84) v_146))"
+"(if(read-config/outer? the-struct_84)"
+"(let-values(((keep-comment?63_0) #f)((inner64_0)(read-config/outer-inner v_146)))"
 "(read-config/outer1.1"
 " inner64_0"
-"(read-config/outer-wrap the-struct_85)"
-"(read-config/outer-line the-struct_85)"
-"(read-config/outer-col the-struct_85)"
-"(read-config/outer-pos the-struct_85)"
-"(read-config/outer-indentations the-struct_85)"
+"(read-config/outer-wrap the-struct_84)"
+"(read-config/outer-line the-struct_84)"
+"(read-config/outer-col the-struct_84)"
+"(read-config/outer-pos the-struct_84)"
+"(read-config/outer-indentations the-struct_84)"
 " keep-comment?63_0))"
-"                (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_85)))))))))"
+"                (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_84)))))))))"
 "(define-values"
 "(next-readtable)"
 "(lambda(config_6)"
@@ -46721,35 +46742,35 @@ static const char *startup_source =
 "(let-values() config_6)"
 "(let-values()"
 "(let-values(((v_221) config_6))"
-"(let-values(((the-struct_86) v_221))"
-"(if(read-config/outer? the-struct_86)"
+"(let-values(((the-struct_85) v_221))"
+"(if(read-config/outer? the-struct_85)"
 "(let-values(((inner65_0)"
-"(let-values(((the-struct_87)(read-config/outer-inner v_221)))"
-"(if(read-config/inner? the-struct_87)"
+"(let-values(((the-struct_86)(read-config/outer-inner v_221)))"
+"(if(read-config/inner? the-struct_86)"
 "(let-values(((readtable66_0)(read-config-next-readtable config_6)))"
 "(read-config/inner2.1"
 " readtable66_0"
-"(read-config/inner-next-readtable the-struct_87)"
-"(read-config/inner-for-syntax? the-struct_87)"
-"(read-config/inner-source the-struct_87)"
-"(read-config/inner-read-compiled the-struct_87)"
-"(read-config/inner-dynamic-require the-struct_87)"
-"(read-config/inner-module-declared? the-struct_87)"
-"(read-config/inner-coerce the-struct_87)"
-"(read-config/inner-coerce-key the-struct_87)"
-"(read-config/inner-parameter-override the-struct_87)"
-"(read-config/inner-parameter-cache the-struct_87)"
-"(read-config/inner-st the-struct_87)))"
-"                                  (raise-argument-error 'struct-copy \"read-config/inner?\" the-struct_87)))))"
+"(read-config/inner-next-readtable the-struct_86)"
+"(read-config/inner-for-syntax? the-struct_86)"
+"(read-config/inner-source the-struct_86)"
+"(read-config/inner-read-compiled the-struct_86)"
+"(read-config/inner-dynamic-require the-struct_86)"
+"(read-config/inner-module-declared? the-struct_86)"
+"(read-config/inner-coerce the-struct_86)"
+"(read-config/inner-coerce-key the-struct_86)"
+"(read-config/inner-parameter-override the-struct_86)"
+"(read-config/inner-parameter-cache the-struct_86)"
+"(read-config/inner-st the-struct_86)))"
+"                                  (raise-argument-error 'struct-copy \"read-config/inner?\" the-struct_86)))))"
 "(read-config/outer1.1"
 " inner65_0"
-"(read-config/outer-wrap the-struct_86)"
-"(read-config/outer-line the-struct_86)"
-"(read-config/outer-col the-struct_86)"
-"(read-config/outer-pos the-struct_86)"
-"(read-config/outer-indentations the-struct_86)"
-"(read-config/outer-keep-comment? the-struct_86)))"
-"                (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_86)))))))))"
+"(read-config/outer-wrap the-struct_85)"
+"(read-config/outer-line the-struct_85)"
+"(read-config/outer-col the-struct_85)"
+"(read-config/outer-pos the-struct_85)"
+"(read-config/outer-indentations the-struct_85)"
+"(read-config/outer-keep-comment? the-struct_85)))"
+"                (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_85)))))))))"
 "(define-values"
 "(coerce)"
 "(lambda(val_73 in_2 config_7)"
@@ -46800,36 +46821,36 @@ static const char *startup_source =
 "(lambda(param_1 config_9 v_28)"
 "(begin"
 "(let-values(((v_92) config_9))"
-"(let-values(((the-struct_88) v_92))"
-"(if(read-config/outer? the-struct_88)"
+"(let-values(((the-struct_87) v_92))"
+"(if(read-config/outer? the-struct_87)"
 "(let-values(((inner1_0)"
-"(let-values(((the-struct_89)(read-config/outer-inner v_92)))"
-"(if(read-config/inner? the-struct_89)"
+"(let-values(((the-struct_88)(read-config/outer-inner v_92)))"
+"(if(read-config/inner? the-struct_88)"
 "(let-values(((parameter-override2_0)"
 "(hash-set(read-config-parameter-override config_9) param_1 v_28)))"
 "(read-config/inner2.1"
-"(read-config/inner-readtable the-struct_89)"
-"(read-config/inner-next-readtable the-struct_89)"
-"(read-config/inner-for-syntax? the-struct_89)"
-"(read-config/inner-source the-struct_89)"
-"(read-config/inner-read-compiled the-struct_89)"
-"(read-config/inner-dynamic-require the-struct_89)"
-"(read-config/inner-module-declared? the-struct_89)"
-"(read-config/inner-coerce the-struct_89)"
-"(read-config/inner-coerce-key the-struct_89)"
+"(read-config/inner-readtable the-struct_88)"
+"(read-config/inner-next-readtable the-struct_88)"
+"(read-config/inner-for-syntax? the-struct_88)"
+"(read-config/inner-source the-struct_88)"
+"(read-config/inner-read-compiled the-struct_88)"
+"(read-config/inner-dynamic-require the-struct_88)"
+"(read-config/inner-module-declared? the-struct_88)"
+"(read-config/inner-coerce the-struct_88)"
+"(read-config/inner-coerce-key the-struct_88)"
 " parameter-override2_0"
-"(read-config/inner-parameter-cache the-struct_89)"
-"(read-config/inner-st the-struct_89)))"
-"                              (raise-argument-error 'struct-copy \"read-config/inner?\" the-struct_89)))))"
+"(read-config/inner-parameter-cache the-struct_88)"
+"(read-config/inner-st the-struct_88)))"
+"                              (raise-argument-error 'struct-copy \"read-config/inner?\" the-struct_88)))))"
 "(read-config/outer1.1"
 " inner1_0"
-"(read-config/outer-wrap the-struct_88)"
-"(read-config/outer-line the-struct_88)"
-"(read-config/outer-col the-struct_88)"
-"(read-config/outer-pos the-struct_88)"
-"(read-config/outer-indentations the-struct_88)"
-"(read-config/outer-keep-comment? the-struct_88)))"
-"            (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_88)))))))"
+"(read-config/outer-wrap the-struct_87)"
+"(read-config/outer-line the-struct_87)"
+"(read-config/outer-col the-struct_87)"
+"(read-config/outer-pos the-struct_87)"
+"(read-config/outer-indentations the-struct_87)"
+"(read-config/outer-keep-comment? the-struct_87)))"
+"            (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_87)))))))"
 "(define-values"
 "(force-parameters!)"
 "(lambda(config_10)"
@@ -47330,8 +47351,8 @@ static const char *startup_source =
 "(let-values(((bpz_3)(continuation-mark-set-first #f break-enabled-key)))"
 "(call-handled-body"
 " bpz_3"
-"(lambda(e_76)"
-"(select-handler/no-breaks e_76 bpz_3(list(cons with-handlers-predicate26_0 with-handlers-handler27_0))))"
+"(lambda(e_77)"
+"(select-handler/no-breaks e_77 bpz_3(list(cons with-handlers-predicate26_0 with-handlers-handler27_0))))"
 "(lambda()(thunk_5))))))))"
 "(define-values"
 "(port-next-location*)"
@@ -47574,9 +47595,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_302)(char=? dc_0 '#\\()))"
-"(if or-part_302"
-" or-part_302"
+"(let-values(((or-part_304)(char=? dc_0 '#\\()))"
+"(if or-part_304"
+" or-part_304"
 "(let-values(((or-part_287)(char=? dc_0 '#\\))))"
 "(if or-part_287"
 " or-part_287"
@@ -47668,17 +47689,17 @@ static const char *startup_source =
 "(all-openers-str)"
 "(lambda(config_21)"
 "(begin"
-"(let-values(((p_59)(opener-name '#\\( config_21)))"
+"(let-values(((p_60)(opener-name '#\\( config_21)))"
 "(let-values(((s_10)"
 "(if(check-parameter 1/read-square-bracket-as-paren config_21)(opener-name '#\\[ config_21) #f)))"
 "(let-values(((c_67)"
 "(if(check-parameter 1/read-curly-brace-as-paren config_21)(opener-name '#\\{ config_21) #f)))"
 "(if(if s_10 c_67 #f)"
-"              (let-values () (format \"~a, ~a, or ~a\" p_59 s_10 c_67))"
+"              (let-values () (format \"~a, ~a, or ~a\" p_60 s_10 c_67))"
 "(if(let-values(((or-part_295) s_10))(if or-part_295 or-part_295 c_67))"
 "(let-values()"
-"                  (format \"~a or ~a\" p_59 (let-values (((or-part_296) s_10)) (if or-part_296 or-part_296 c_67))))"
-"(let-values() p_59)))))))))"
+"                  (format \"~a or ~a\" p_60 (let-values (((or-part_296) s_10)) (if or-part_296 or-part_296 c_67))))"
+"(let-values() p_60)))))))))"
 "(define-values"
 "(struct:accum-string"
 " accum-string1.1"
@@ -47968,13 +47989,13 @@ static const char *startup_source =
 "(lambda(init-c_4 read-one_2 config_34)"
 "(begin"
 " 'read-one/not-eof"
-"(let-values(((e_77)(read-one_2 init-c_4 in_10 config_34)))"
+"(let-values(((e_78)(read-one_2 init-c_4 in_10 config_34)))"
 "(begin"
-"(if(eof-object? e_77)"
+"(if(eof-object? e_78)"
 "(let-values()"
 "(let-values(((in22_0) in_10)"
 "((config23_0) config_34)"
-"((e24_0) e_77)"
+"((e24_0) e_78)"
 "((temp25_5)"
 "                                                                              \"expected a ~a to close `~a`~a\")"
 "((temp26_4)"
@@ -47994,7 +48015,7 @@ static const char *startup_source =
 " temp25_5"
 "(list temp26_4 opener-c27_0 temp28_3))))"
 "(void))"
-" e_77))))))"
+" e_78))))))"
 "(let-values(((seq_0)"
 "((letrec-values(((loop_105)"
 "(lambda(depth_11"
@@ -48315,7 +48336,7 @@ static const char *startup_source =
 "(let-values(((in_12) in11_0))"
 "(let-values(((config_36) config12_1))"
 "(let-values(((accum-str_0)(if accum-str10_0 accum-str9_0 #f)))"
-"(let-values(((base_22) base1_0))"
+"(let-values(((base_23) base1_0))"
 "(let-values(((max-count_0) max-count2_0))"
 "(let-values(((init-v_0)(if init7_0 init3_0 0)))"
 "(let-values(((zero-digits-result_0)(if zero-digits-result8_0 zero-digits-result4_0 #f)))"
@@ -48327,7 +48348,7 @@ static const char *startup_source =
 "(let-values(((c_73)"
 "(peek-char-or-special in_22 skip-count_6 'special source_15)))"
 "(if(eq? c_73 'special)(special1.1 'special) c_73)))))"
-"(if(digit?$1 c_72 base_22)"
+"(if(digit?$1 c_72 base_23)"
 "(let-values()"
 "(begin"
 "(consume-char in_12 c_72)"
@@ -48353,7 +48374,7 @@ static const char *startup_source =
 "(if(eq? c_41 'special)"
 "(special1.1 'special)"
 " c_41)))))"
-"(if(digit?$1 c_65 base_22)"
+"(if(digit?$1 c_65 base_23)"
 "(let-values()"
 "(begin"
 "(consume-char in_12 c_65)"
@@ -48361,34 +48382,34 @@ static const char *startup_source =
 "(let-values()(accum-string-add! accum-str_0 c_65))"
 "(void))"
 "(loop_61"
-"(+(digit->number c_65)(* v_229 base_22))"
+"(+(digit->number c_65)(* v_229 base_23))"
 "(sub1 max-count_1))))"
 "(let-values() v_229)))))))))"
 " loop_61)"
-"(+(digit->number c_72)(* init-v_0 base_22))"
+"(+(digit->number c_72)(* init-v_0 base_23))"
 "(sub1 max-count_0))))"
 "(if zero-digits-result_0"
 "(let-values() zero-digits-result_0)"
 "(let-values() c_72)))))))))))))))"
 "(define-values"
 "(digit?$1)"
-"(lambda(c_74 base_23)"
+"(lambda(c_74 base_24)"
 "(begin"
 " 'digit?"
 "(if(not(char? c_74))"
 "(let-values() #f)"
-"(if(= base_23 8)"
+"(if(= base_24 8)"
 "(let-values()(octal-digit? c_74))"
-"(if(= base_23 16)(let-values()(hex-digit? c_74))(let-values()(decimal-digit? c_74))))))))"
+"(if(= base_24 16)(let-values()(hex-digit? c_74))(let-values()(decimal-digit? c_74))))))))"
 "(define-values(decimal-digit?)(lambda(c_75)(begin(if(char>=? c_75 '#\\0)(char<=? c_75 '#\\9) #f))))"
 "(define-values(octal-digit?)(lambda(c_76)(begin(if(char>=? c_76 '#\\0)(char<=? c_76 '#\\7) #f))))"
 "(define-values"
 "(hex-digit?)"
 "(lambda(c_77)"
 "(begin"
-"(let-values(((or-part_303)(if(char>=? c_77 '#\\0)(char<=? c_77 '#\\9) #f)))"
-"(if or-part_303"
-" or-part_303"
+"(let-values(((or-part_305)(if(char>=? c_77 '#\\0)(char<=? c_77 '#\\9) #f)))"
+"(if or-part_305"
+" or-part_305"
 "(let-values(((or-part_98)(if(char>=? c_77 '#\\A)(char<=? c_77 '#\\F) #f)))"
 "(if or-part_98 or-part_98(if(char>=? c_77 '#\\a)(char<=? c_77 '#\\f) #f))))))))"
 "(define-values"
@@ -48421,13 +48442,13 @@ static const char *startup_source =
 "(if(string? s_180)"
 "(void)"
 "                                      (let-values () (raise-argument-error 'string->number \"string?\" s_180)))"
-"(if((lambda(p_68)(if(exact-integer? radix_0)(<= 2 radix_0 16) #f)) radix_0)"
+"(if((lambda(p_69)(if(exact-integer? radix_0)(<= 2 radix_0 16) #f)) radix_0)"
 "(void)"
 "(let-values()"
 "                                        (raise-argument-error 'string->number \"(integer-in 2 16)\" radix_0)))"
-"(if((lambda(p_61)"
-"(let-values(((or-part_7)(eq? p_61 'number-or-false)))"
-"(if or-part_7 or-part_7(eq? p_61 'read))))"
+"(if((lambda(p_62)"
+"(let-values(((or-part_7)(eq? p_62 'number-or-false)))"
+"(if or-part_7 or-part_7(eq? p_62 'read))))"
 " convert-mode_0)"
 "(void)"
 "(let-values()"
@@ -48435,9 +48456,9 @@ static const char *startup_source =
 " 'string->number"
 "                                         \"(or/c 'number-or-false 'read)\""
 " convert-mode_0)))"
-"(if((lambda(p_69)"
-"(let-values(((or-part_9)(eq? p_69 'decimal-as-inexact)))"
-"(if or-part_9 or-part_9(eq? p_69 'decimal-as-exact))))"
+"(if((lambda(p_70)"
+"(let-values(((or-part_9)(eq? p_70 'decimal-as-inexact)))"
+"(if or-part_9 or-part_9(eq? p_70 'decimal-as-exact))))"
 " decimal-mode_0)"
 "(void)"
 "(let-values()"
@@ -48624,8 +48645,8 @@ static const char *startup_source =
 " temp81_1"
 " temp82_3)))))"
 "(let-values()"
-"(if(let-values(((or-part_304) radix-set?_0))"
-"(if or-part_304 or-part_304 in-complex_0))"
+"(if(let-values(((or-part_306) radix-set?_0))"
+"(if or-part_306 or-part_306 in-complex_0))"
 "(let-values()"
 "(if(eq? convert-mode_2 'must-read)"
 "(let-values()"
@@ -48920,10 +48941,10 @@ static const char *startup_source =
 "(substring s_199 start_44 end_34)))"
 "(let-values() #f)))"
 "(if(if sign-pos_0"
-"(let-values(((or-part_305)"
+"(let-values(((or-part_307)"
 "(if dot-pos_1(< dot-pos_1 sign-pos_0) #f)))"
-"(if or-part_305"
-" or-part_305"
+"(if or-part_307"
+" or-part_307"
 "(if slash-pos_0(< slash-pos_0 sign-pos_0) #f)))"
 " #f)"
 "(let-values()"
@@ -49049,27 +49070,27 @@ static const char *startup_source =
 " slash-pos_0"
 " #f"
 "(if(> i_171 start_44)"
-"(let-values(((or-part_306)(not @-pos_0)))"
-"(if or-part_306"
-" or-part_306"
+"(let-values(((or-part_308)(not @-pos_0)))"
+"(if or-part_308"
+" or-part_308"
 "(> i_171(add1 @-pos_0))))"
 " #f)))))"
 "(if(char=? c_80 '#\\.)"
 "(let-values()"
-"(if(let-values(((or-part_307)"
+"(if(let-values(((or-part_309)"
 "(if exp-pos_0"
-"(let-values(((or-part_308)"
+"(let-values(((or-part_310)"
 "(not sign-pos_0)))"
-"(if or-part_308"
-" or-part_308"
+"(if or-part_310"
+" or-part_310"
 "(> exp-pos_0 sign-pos_0)))"
 " #f)))"
-"(if or-part_307"
-" or-part_307"
-"(if dot-pos_1"
-"(let-values(((or-part_309)(not sign-pos_0)))"
 "(if or-part_309"
 " or-part_309"
+"(if dot-pos_1"
+"(let-values(((or-part_311)(not sign-pos_0)))"
+"(if or-part_311"
+" or-part_311"
 "(> dot-pos_1 sign-pos_0)))"
 " #f)))"
 "(let-values()"
@@ -49080,9 +49101,9 @@ static const char *startup_source =
 "(substring s_199 start_44 end_34)))"
 "(let-values() #f)))"
 "(if(if slash-pos_0"
-"(let-values(((or-part_310)(not sign-pos_0)))"
-"(if or-part_310"
-" or-part_310"
+"(let-values(((or-part_312)(not sign-pos_0)))"
+"(if or-part_312"
+" or-part_312"
 "(> slash-pos_0 sign-pos_0)))"
 " #f)"
 "(let-values()"
@@ -49119,7 +49140,7 @@ static const char *startup_source =
 "                                                                         \"decimal points and fractions annot be mixed `~.a`\""
 "(substring s_199 start_44 end_34)))"
 "(let-values() #f)))"
-"(if(let-values(((or-part_311)"
+"(if(let-values(((or-part_313)"
 "(if exp-pos_0"
 "(let-values(((or-part_185)"
 "(not sign-pos_0)))"
@@ -49127,13 +49148,13 @@ static const char *startup_source =
 " or-part_185"
 "(> exp-pos_0 sign-pos_0)))"
 " #f)))"
-"(if or-part_311"
-" or-part_311"
+"(if or-part_313"
+" or-part_313"
 "(if slash-pos_0"
-"(let-values(((or-part_312)"
+"(let-values(((or-part_314)"
 "(not sign-pos_0)))"
-"(if or-part_312"
-" or-part_312"
+"(if or-part_314"
+" or-part_314"
 "(> slash-pos_0 sign-pos_0)))"
 " #f)))"
 "(let-values()"
@@ -49155,58 +49176,58 @@ static const char *startup_source =
 " i_171"
 " #f"
 " must-i?_0)))))"
-"(if(let-values(((or-part_313)(char=? c_80 '#\\e)))"
-"(if or-part_313"
-" or-part_313"
-"(let-values(((or-part_314)(char=? c_80 '#\\E)))"
-"(if or-part_314"
-" or-part_314"
+"(if(let-values(((or-part_315)(char=? c_80 '#\\e)))"
+"(if or-part_315"
+" or-part_315"
+"(let-values(((or-part_316)(char=? c_80 '#\\E)))"
+"(if or-part_316"
+" or-part_316"
 "(let-values(((or-part_212)"
 "(char=? c_80 '#\\f)))"
 "(if or-part_212"
 " or-part_212"
-"(let-values(((or-part_315)"
-"(char=? c_80 '#\\F)))"
-"(if or-part_315"
-" or-part_315"
-"(let-values(((or-part_316)"
-"(char=? c_80 '#\\d)))"
-"(if or-part_316"
-" or-part_316"
 "(let-values(((or-part_317)"
-"(char=? c_80 '#\\D)))"
+"(char=? c_80 '#\\F)))"
 "(if or-part_317"
 " or-part_317"
 "(let-values(((or-part_318)"
+"(char=? c_80 '#\\d)))"
+"(if or-part_318"
+" or-part_318"
+"(let-values(((or-part_319)"
+"(char=? c_80 '#\\D)))"
+"(if or-part_319"
+" or-part_319"
+"(let-values(((or-part_320)"
 "(char=?"
 " c_80"
 " '#\\s)))"
-"(if or-part_318"
-" or-part_318"
+"(if or-part_320"
+" or-part_320"
 "(let-values(((or-part_160)"
 "(char=?"
 " c_80"
 " '#\\S)))"
 "(if or-part_160"
 " or-part_160"
-"(let-values(((or-part_319)"
-"(char=?"
-" c_80"
-" '#\\l)))"
-"(if or-part_319"
-" or-part_319"
-"(let-values(((or-part_320)"
-"(char=?"
-" c_80"
-" '#\\L)))"
-"(if or-part_320"
-" or-part_320"
 "(let-values(((or-part_321)"
 "(char=?"
 " c_80"
-" '#\\t)))"
+" '#\\l)))"
 "(if or-part_321"
 " or-part_321"
+"(let-values(((or-part_322)"
+"(char=?"
+" c_80"
+" '#\\L)))"
+"(if or-part_322"
+" or-part_322"
+"(let-values(((or-part_323)"
+"(char=?"
+" c_80"
+" '#\\t)))"
+"(if or-part_323"
+" or-part_323"
 "(char=?"
 " c_80"
 " '#\\T)))))))))))))))))))))))"
@@ -49233,8 +49254,8 @@ static const char *startup_source =
 " sign-pos_0"
 " dot-pos_1"
 " slash-pos_0"
-"(let-values(((or-part_322) exp-pos_0))"
-"(if or-part_322 or-part_322 i_171))"
+"(let-values(((or-part_324) exp-pos_0))"
+"(if or-part_324 or-part_324 i_171))"
 " must-i?_0))"
 "(let-values()"
 "(loop_106"
@@ -49246,8 +49267,8 @@ static const char *startup_source =
 " sign-pos_0"
 " dot-pos_1"
 " slash-pos_0"
-"(let-values(((or-part_323) exp-pos_0))"
-"(if or-part_323 or-part_323 i_171))"
+"(let-values(((or-part_325) exp-pos_0))"
+"(if or-part_325 or-part_325 i_171))"
 " must-i?_0)))))"
 "(if(char=? c_80 '#\\@)"
 "(let-values()"
@@ -49259,9 +49280,9 @@ static const char *startup_source =
 "                                                                             \"cannot mix `@` and `i` in `~.a`\""
 "(substring s_199 start_44 end_34)))"
 "(let-values() #f)))"
-"(if(let-values(((or-part_324) @-pos_0))"
-"(if or-part_324"
-" or-part_324"
+"(if(let-values(((or-part_326) @-pos_0))"
+"(if or-part_326"
+" or-part_326"
 "(eq? in-complex_1 '@)))"
 "(let-values()"
 "(if(eq? convert-mode_3 'must-read)"
@@ -49298,17 +49319,17 @@ static const char *startup_source =
 " #f"
 " #f"
 " must-i?_0)))))))"
-"(if(if(let-values(((or-part_325)"
+"(if(if(let-values(((or-part_327)"
 "(char=? c_80 '#\\i)))"
-"(if or-part_325"
-" or-part_325"
+"(if or-part_327"
+" or-part_327"
 "(char=? c_80 '#\\I)))"
 " sign-pos_0"
 " #f)"
 "(let-values()"
-"(if(let-values(((or-part_326) @-pos_0))"
-"(if or-part_326"
-" or-part_326"
+"(if(let-values(((or-part_328) @-pos_0))"
+"(if or-part_328"
+" or-part_328"
 "(eq? in-complex_1 '@)))"
 "(let-values()"
 "(if(eq? convert-mode_3 'must-read)"
@@ -49317,10 +49338,10 @@ static const char *startup_source =
 "                                                                               \"cannot mix `@` and `i` in `~.a`\""
 "(substring s_199 start_44 end_34)))"
 "(let-values() #f)))"
-"(if(let-values(((or-part_327)"
+"(if(let-values(((or-part_329)"
 "(<(add1 i_171) end_34)))"
-"(if or-part_327"
-" or-part_327"
+"(if or-part_329"
+" or-part_329"
 "(eq? in-complex_1 'i)))"
 "(let-values()"
 "(if(eq? convert-mode_3 'must-read)"
@@ -49441,11 +49462,11 @@ static const char *startup_source =
 " radix171_0"
 " exactness173_0"
 " convert-mode175_0))))))"
-"(if(let-values(((or-part_328)(not v1_0)))"
-"(if or-part_328 or-part_328(not v2_6)))"
+"(if(let-values(((or-part_330)(not v1_0)))"
+"(if or-part_330 or-part_330(not v2_6)))"
 "(let-values() #f)"
-"(if(if(let-values(((or-part_329)(extflonum? v1_0)))"
-"(if or-part_329 or-part_329(extflonum? v2_6)))"
+"(if(if(let-values(((or-part_331)(extflonum? v1_0)))"
+"(if or-part_331 or-part_331(extflonum? v2_6)))"
 "(not(eq? convert-mode_4 'must-read))"
 " #f)"
 "(let-values()(fail-extflonum convert-mode_4 v1_0))"
@@ -49460,10 +49481,10 @@ static const char *startup_source =
 "(if(eq? in-complex_2 'i)"
 "(let-values()(make-rectangular v1_0 v2_6))"
 "(let-values()"
-"(let-values(((p_70)(make-polar v1_0 v2_6)))"
+"(let-values(((p_71)(make-polar v1_0 v2_6)))"
 "(if(eq? exactness_2 'exact)"
-"(inexact->exact p_70)"
-" p_70))))))))))))))))))))))))))))"
+"(inexact->exact p_71)"
+" p_71))))))))))))))))))))))))))))"
 "(define-values"
 "(string->real-number)"
 "(lambda(s_234 start_45 end_35 dot-pos_2 slash-pos_1 exp-pos_1 any-hashes?_1 radix_7 exactness_3 convert-mode_5)"
@@ -49472,16 +49493,16 @@ static const char *startup_source =
 "(lambda()(begin 'extfl-mark?(char=?(char-downcase(string-ref s_234 exp-pos_1)) '#\\t)))))"
 "(let-values(((simple?_0)"
 "(if(not slash-pos_1)"
-"(if(let-values(((or-part_330)(eq? exactness_3 'inexact)))"
-"(if or-part_330"
-" or-part_330"
-"(let-values(((or-part_331)(eq? exactness_3 'decimal-as-inexact)))"
-"(if or-part_331 or-part_331(if(not dot-pos_2)(not exp-pos_1) #f)))))"
-"(if(let-values(((or-part_332)(not exp-pos_1)))"
+"(if(let-values(((or-part_332)(eq? exactness_3 'inexact)))"
 "(if or-part_332"
 " or-part_332"
-"(let-values(((or-part_333)(not(eq? convert-mode_5 'number-or-false))))"
-"(if or-part_333 or-part_333(not(extfl-mark?_0))))))"
+"(let-values(((or-part_333)(eq? exactness_3 'decimal-as-inexact)))"
+"(if or-part_333 or-part_333(if(not dot-pos_2)(not exp-pos_1) #f)))))"
+"(if(let-values(((or-part_334)(not exp-pos_1)))"
+"(if or-part_334"
+" or-part_334"
+"(let-values(((or-part_335)(not(eq? convert-mode_5 'number-or-false))))"
+"(if or-part_335 or-part_335(not(extfl-mark?_0))))))"
 "(not(if any-hashes?_1(hashes? s_234 start_45 end_35) #f))"
 " #f)"
 " #f)"
@@ -49507,9 +49528,9 @@ static const char *startup_source =
 "                          (format \"missing digits before exponent marker in `~.a`\" (substring s_234 start_45 end_35)))"
 "(let-values() #f)))"
 "(if(if exp-pos_1"
-"(let-values(((or-part_334)(= exp-pos_1(sub1 end_35))))"
-"(if or-part_334"
-" or-part_334"
+"(let-values(((or-part_336)(= exp-pos_1(sub1 end_35))))"
+"(if or-part_336"
+" or-part_336"
 "(if(= exp-pos_1(- end_35 2))(char-sign?(string-ref s_234(sub1 end_35))) #f)))"
 " #f)"
 "(let-values()"
@@ -49522,14 +49543,14 @@ static const char *startup_source =
 "(string->number$1"
 "(maybe-substring s_234 start_45 end_35)"
 " radix_7"
-"(if(let-values(((or-part_335)(eq? convert-mode_5 'number-or-false)))"
-"(if or-part_335"
-" or-part_335"
-"(let-values(((or-part_336)(not exp-pos_1)))"
-"(if or-part_336 or-part_336(not(extfl-mark?_0))))))"
+"(if(let-values(((or-part_337)(eq? convert-mode_5 'number-or-false)))"
+"(if or-part_337"
+" or-part_337"
+"(let-values(((or-part_338)(not exp-pos_1)))"
+"(if or-part_338 or-part_338(not(extfl-mark?_0))))))"
 " 'number-or-false"
 " 'read))))"
-"(if(let-values(((or-part_337)(not n_30)))(if or-part_337 or-part_337(string? n_30)))"
+"(if(let-values(((or-part_339)(not n_30)))(if or-part_339 or-part_339(string? n_30)))"
 "(let-values()"
 "(error"
 " 'string->number"
@@ -49586,7 +49607,7 @@ static const char *startup_source =
 " 'read)))"
 "(let-values()(real->double-flonum r_45)))))))))"
 "(let-values(((get-extfl?_0)(extfl-mark?_0)))"
-"(if(let-values(((or-part_338)(not m-v_0)))(if or-part_338 or-part_338(not e-v_0)))"
+"(if(let-values(((or-part_340)(not m-v_0)))(if or-part_340 or-part_340(not e-v_0)))"
 "(let-values() #f)"
 "(if(string? m-v_0)"
 "(let-values() m-v_0)"
@@ -49617,8 +49638,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_339)(eq? exactness_3 'exact)))"
-"(if or-part_339 or-part_339(eq? exactness_3 'decimal-as-exact)))"
+"(let-values(((or-part_341)(eq? exactness_3 'exact)))"
+"(if or-part_341 or-part_341(eq? exactness_3 'decimal-as-exact)))"
 " #f)"
 "(let-values() n_31)"
 "(if(if(eqv? n_31 0)(char=?(string-ref s_234 start_45) '#\\-) #f)"
@@ -49692,8 +49713,8 @@ static const char *startup_source =
 "(lambda(s_357 start_46 end_36 dot-pos_3 radix_8 exactness_4 convert-mode_6)"
 "(begin"
 "(let-values(((get-exact?_0)"
-"(let-values(((or-part_340)(eq? exactness_4 'exact)))"
-"(if or-part_340 or-part_340(eq? exactness_4 'decimal-as-exact)))))"
+"(let-values(((or-part_342)(eq? exactness_4 'exact)))"
+"(if or-part_342 or-part_342(eq? exactness_4 'decimal-as-exact)))))"
 "(let-values(((new-str_0)(make-string(- end_36 start_46(if(if dot-pos_3 get-exact?_0 #f) 1 0)))))"
 "((letrec-values(((loop_107)"
 "(lambda(i_130 j_3 hashes-pos_0)"
@@ -49736,8 +49757,8 @@ static const char *startup_source =
 "(sub1 i_130)"
 "(sub1 j_3)"
 "(if(= hashes-pos_0(add1 i_130)) i_130 hashes-pos_0))))))"
-"(if(let-values(((or-part_341)(char=? c_81 '#\\-)))"
-"(if or-part_341 or-part_341(char=? c_81 '#\\+)))"
+"(if(let-values(((or-part_343)(char=? c_81 '#\\-)))"
+"(if or-part_343 or-part_343(char=? c_81 '#\\+)))"
 "(let-values()"
 "(begin"
 "(string-set! new-str_0 j_3 c_81)"
@@ -49789,25 +49810,25 @@ static const char *startup_source =
 "(lambda(s_247 start_47 end_37 convert-mode_8)"
 "(begin"
 "(if(=(- end_37 start_47) 6)"
-"(if(let-values(((or-part_342)(char=?(string-ref s_247 start_47) '#\\+)))"
-"(if or-part_342 or-part_342(char=?(string-ref s_247 start_47) '#\\-)))"
-"(let-values(((or-part_343)"
+"(if(let-values(((or-part_344)(char=?(string-ref s_247 start_47) '#\\+)))"
+"(if or-part_344 or-part_344(char=?(string-ref s_247 start_47) '#\\-)))"
+"(let-values(((or-part_345)"
 "(if(char=?(char-downcase(string-ref s_247(+ start_47 1))) '#\\i)"
 "(if(char=?(char-downcase(string-ref s_247(+ start_47 2))) '#\\n)"
 "(if(char=?(char-downcase(string-ref s_247(+ start_47 3))) '#\\f)"
 "(if(char=?(char-downcase(string-ref s_247(+ start_47 4))) '#\\.)"
-"(let-values(((or-part_344)"
+"(let-values(((or-part_346)"
 "(if(char=?(char-downcase(string-ref s_247(+ start_47 5))) '#\\0)"
 "(if(char=?(string-ref s_247 start_47) '#\\+) +inf.0 -inf.0)"
 " #f)))"
-"(if or-part_344"
-" or-part_344"
-"(let-values(((or-part_345)"
+"(if or-part_346"
+" or-part_346"
+"(let-values(((or-part_347)"
 "(if(char=?(char-downcase(string-ref s_247(+ start_47 5))) '#\\f)"
 "(if(char=?(string-ref s_247 start_47) '#\\+) +inf.f -inf.f)"
 " #f)))"
-"(if or-part_345"
-" or-part_345"
+"(if or-part_347"
+" or-part_347"
 "(if(char=?(char-downcase(string-ref s_247(+ start_47 5))) '#\\t)"
 "(if(not(eq? convert-mode_8 'number-or-false))"
 "(if(char=?(string-ref s_247 start_47) '#\\+) '+inf.t '-inf.t)"
@@ -49817,20 +49838,20 @@ static const char *startup_source =
 " #f)"
 " #f)"
 " #f)))"
-"(if or-part_343"
-" or-part_343"
+"(if or-part_345"
+" or-part_345"
 "(if(char=?(char-downcase(string-ref s_247(+ start_47 1))) '#\\n)"
 "(if(char=?(char-downcase(string-ref s_247(+ start_47 2))) '#\\a)"
 "(if(char=?(char-downcase(string-ref s_247(+ start_47 3))) '#\\n)"
 "(if(char=?(char-downcase(string-ref s_247(+ start_47 4))) '#\\.)"
-"(let-values(((or-part_346)"
+"(let-values(((or-part_348)"
 "(if(char=?(char-downcase(string-ref s_247(+ start_47 5))) '#\\0) +nan.0 #f)))"
-"(if or-part_346"
-" or-part_346"
-"(let-values(((or-part_347)"
+"(if or-part_348"
+" or-part_348"
+"(let-values(((or-part_349)"
 "(if(char=?(char-downcase(string-ref s_247(+ start_47 5))) '#\\f) +nan.f #f)))"
-"(if or-part_347"
-" or-part_347"
+"(if or-part_349"
+" or-part_349"
 "(if(char=?(char-downcase(string-ref s_247(+ start_47 5))) '#\\t)"
 "(if(not(eq? convert-mode_8 'number-or-false)) '+nan.t #f)"
 " #f)))))"
@@ -49879,8 +49900,8 @@ static const char *startup_source =
 "                                  (let-values () (format \"no exact representation for `~a`\" v_235))"
 "(let-values() #f)))"
 "(if(if(extflonum? v_235)"
-"(let-values(((or-part_348)(not reading-first?_0)))"
-"(if or-part_348 or-part_348(not(eq? convert-mode_10 'must-read))))"
+"(let-values(((or-part_350)(not reading-first?_0)))"
+"(if or-part_350 or-part_350(not(eq? convert-mode_10 'must-read))))"
 " #f)"
 "(let-values()(fail-extflonum convert-mode_10 v_235))"
 "(let-values()"
@@ -49998,11 +50019,11 @@ static const char *startup_source =
 "(exactness-set?)"
 "(lambda(exactness_6)"
 "(begin"
-"(let-values(((or-part_349)(eq? exactness_6 'exact)))(if or-part_349 or-part_349(eq? exactness_6 'inexact))))))"
+"(let-values(((or-part_351)(eq? exactness_6 'exact)))(if or-part_351 or-part_351(eq? exactness_6 'inexact))))))"
 "(define-values"
 "(char-sign?)"
 "(lambda(c_84)"
-"(begin(let-values(((or-part_350)(char=? c_84 '#\\-)))(if or-part_350 or-part_350(char=? c_84 '#\\+))))))"
+"(begin(let-values(((or-part_352)(char=? c_84 '#\\-)))(if or-part_352 or-part_352(char=? c_84 '#\\+))))))"
 "(define-values"
 "(digit?)"
 "(lambda(c_85 radix_11)"
@@ -50013,10 +50034,10 @@ static const char *startup_source =
 "(if or-part_272"
 " or-part_272"
 "(if(> radix_11 10)"
-"(let-values(((or-part_351)"
+"(let-values(((or-part_353)"
 "(if(>= v_236(char->integer '#\\a))(<(- v_236(-(char->integer '#\\a) 10)) radix_11) #f)))"
-"(if or-part_351"
-" or-part_351"
+"(if or-part_353"
+" or-part_353"
 "(if(>= v_236(char->integer '#\\A))(<(- v_236(-(char->integer '#\\A) 10)) radix_11) #f)))"
 " #f)))))))"
 "(define-values"
@@ -50590,7 +50611,7 @@ static const char *startup_source =
 "(begin"
 " 'for-loop"
 "(if(pair? lst_17)"
-"(let-values(((e_78)"
+"(let-values(((e_79)"
 "(unsafe-car"
 " lst_17))"
 "((rest_88)"
@@ -50604,7 +50625,7 @@ static const char *startup_source =
 "(begin"
 "(let-values(((elem_1)"
 "(let-values()"
-" e_78)))"
+" e_79)))"
 "(if(flonum?"
 " elem_1)"
 "(unsafe-flvector-set!"
@@ -50624,7 +50645,7 @@ static const char *startup_source =
 "(unsafe-fx="
 " i_159"
 " len_37))"
-" e_78))"
+" e_79))"
 "(not #f)"
 " #f)"
 "(for-loop_185"
@@ -50736,7 +50757,7 @@ static const char *startup_source =
 "(if(if(pair? lst_10)"
 " #t"
 " #f)"
-"(let-values(((e_79)"
+"(let-values(((e_80)"
 "(unsafe-car"
 " lst_10))"
 "((rest_167)"
@@ -50753,7 +50774,7 @@ static const char *startup_source =
 "(vector-set!"
 " vec_65"
 " i_175"
-" e_79))"
+" e_80))"
 "(values)))))"
 "(values)))))"
 "(if(not #f)"
@@ -50787,7 +50808,7 @@ static const char *startup_source =
 " lst_178)"
 " #t"
 " #f)"
-"(let-values(((e_80)"
+"(let-values(((e_81)"
 "(unsafe-car"
 " lst_178))"
 "((rest_173)"
@@ -50804,7 +50825,7 @@ static const char *startup_source =
 "(fxvector-set!"
 " vec_65"
 " i_176"
-" e_80))"
+" e_81))"
 "(values)))))"
 "(values)))))"
 "(if(not #f)"
@@ -50842,7 +50863,7 @@ static const char *startup_source =
 " lst_278)"
 " #t"
 " #f)"
-"(let-values(((e_81)"
+"(let-values(((e_82)"
 "(unsafe-car"
 " lst_278))"
 "((rest_44)"
@@ -50859,7 +50880,7 @@ static const char *startup_source =
 "(flvector-set!"
 " vec_65"
 " i_35"
-" e_81))"
+" e_82))"
 "(values)))))"
 "(values)))))"
 "(if(not #f)"
@@ -51126,9 +51147,9 @@ static const char *startup_source =
 "(let-values(((bpz_4)(continuation-mark-set-first #f break-enabled-key)))"
 "(call-handled-body"
 " bpz_4"
-"(lambda(e_82)"
+"(lambda(e_83)"
 "(select-handler/no-breaks"
-" e_82"
+" e_83"
 " bpz_4"
 "(list(cons with-handlers-predicate20_0 with-handlers-handler21_0))))"
 "(lambda()(prefab-key->struct-type(car seq_4)(length(cdr seq_4)))))))))"
@@ -51312,9 +51333,9 @@ static const char *startup_source =
 "(if(if(equal? tmp_34 '#\\=) #t(equal? tmp_34 '#\\#))"
 "(let-values()"
 "(begin"
-"(if(let-values(((or-part_352)(read-config-for-syntax? config_46)))"
-"(if or-part_352"
-" or-part_352"
+"(if(let-values(((or-part_354)(read-config-for-syntax? config_46)))"
+"(if or-part_354"
+" or-part_354"
 "(not(check-parameter 1/read-accept-graph config_46))))"
 "(let-values()"
 "(let-values(((in37_0) in_38)"
@@ -51437,9 +51458,9 @@ static const char *startup_source =
 "(let-values()"
 "(begin0"
 "(hash-ref"
-"(let-values(((or-part_353)"
+"(let-values(((or-part_355)"
 "(read-config-state-graph(read-config-st config_46))))"
-"(if or-part_353 or-part_353 '#hash()))"
+"(if or-part_355 or-part_355 '#hash()))"
 " v_28"
 "(lambda()"
 "(let-values(((in67_0) in_38)"
@@ -52435,12 +52456,12 @@ static const char *startup_source =
 " v_241"
 " escaping-c_0"
 " escaped-c_0)))"
-"(if(let-values(((or-part_354)"
+"(if(let-values(((or-part_356)"
 "(<"
 " v_241"
 " 55296)))"
-"(if or-part_354"
-" or-part_354"
+"(if or-part_356"
+" or-part_356"
 "(>"
 " v_241"
 " 57343)))"
@@ -53047,8 +53068,8 @@ static const char *startup_source =
 " #t))))"
 "(if(integer? v_33)"
 "(let-values()"
-"(if(if(let-values(((or-part_355)(< v_33 55296)))"
-"(if or-part_355 or-part_355(> v_33 57343)))"
+"(if(if(let-values(((or-part_357)(< v_33 55296)))"
+"(if or-part_357 or-part_357(> v_33 57343)))"
 "(<= v_33 1114111)"
 " #f)"
 "(let-values()"
@@ -53189,18 +53210,18 @@ static const char *startup_source =
 "(lambda(read-one_3 sym_28 desc_0 c_35 in_43 config_22)"
 "(begin"
 "(let-values(((wrapped-sym_0)(wrap sym_28 in_43 config_22 c_35)))"
-"(let-values(((e_83)(read-one_3 #f in_43 config_22)))"
+"(let-values(((e_84)(read-one_3 #f in_43 config_22)))"
 "(begin"
-"(if(eof-object? e_83)"
+"(if(eof-object? e_84)"
 "(let-values()"
 "(let-values(((in1_1) in_43)"
 "((config2_5) config_22)"
-"((e3_0) e_83)"
+"((e3_0) e_84)"
 "                             ((temp4_7) \"expected an element for ~a, found end-of-file\")"
 "((desc5_0) desc_0))"
 "(reader-error10.1 #f #f e3_0 #t #f #f in1_1 config2_5 temp4_7(list desc5_0))))"
 "(void))"
-"(wrap(list wrapped-sym_0 e_83) in_43 config_22 #f)))))))"
+"(wrap(list wrapped-sym_0 e_84) in_43 config_22 #f)))))))"
 "(define-values"
 "(read-delimited-constant)"
 "(lambda(init-c_1 can-match?_0 chars_0 val_74 in_43 config_22)"
@@ -53367,8 +53388,8 @@ static const char *startup_source =
 "(let-values(((bstr_4)"
 "(let-values(((in3_1) in_5)"
 "((no-wrap-config4_0) no-wrap-config_0)"
-"((temp5_6) '|byte string|))"
-"(read-string5.1 temp5_6 #t in3_1 no-wrap-config4_0))))"
+"((temp5_9) '|byte string|))"
+"(read-string5.1 temp5_9 #t in3_1 no-wrap-config4_0))))"
 "(catch-and-reraise-as-reader/proc"
 " in_5"
 " config_15"
@@ -53587,6 +53608,7 @@ static const char *startup_source =
 " temp90_2"
 "(list extend-str91_0)))))"
 "(values))))"
+"(let-values(((line_10 col_9 pos_122)(port-next-location in_21)))"
 "(let-values(((accum-str_10)(accum-string-init! config_35)))"
 "(let-values((()"
 "(begin"
@@ -53596,36 +53618,36 @@ static const char *startup_source =
 "(values))))"
 "(let-values((()"
 "(begin"
-"((letrec-values(((loop_84)"
+"((letrec-values(((loop_114)"
 "(lambda()"
 "(begin"
 " 'loop"
-"(let-values(((c_104)"
+"(let-values(((c_9)"
 "(let-values(((in_59) in_21)"
 "((skip-count_15) 0)"
-"((source_39)"
+"((source_30)"
 "(read-config-source"
 " config_35)))"
-"(let-values(((c_105)"
+"(let-values(((c_104)"
 "(peek-char-or-special"
 " in_59"
 " skip-count_15"
 " 'special"
-" source_39)))"
-"(if(eq? c_105 'special)"
+" source_30)))"
+"(if(eq? c_104 'special)"
 "(special1.1 'special)"
-" c_105)))))"
-"(if(eof-object? c_104)"
+" c_104)))))"
+"(if(eof-object? c_9)"
 "(let-values()(void))"
-"(if(not(char? c_104))"
+"(if(not(char? c_9))"
 "(let-values()"
 "(begin"
-"(consume-char/special in_21 config_35 c_104)"
+"(consume-char/special in_21 config_35 c_9)"
 "(let-values(((in92_1) in_21)"
 "((config93_1) config_35)"
-"((c94_1) c_104)"
+"((c94_1) c_9)"
 "((temp95_3)"
-"                                                                                          \"found non-character while reading `#~a'\")"
+"                                                                                            \"found non-character while reading `#~a'\")"
 "((extend-str96_0)"
 " extend-str_2))"
 "(reader-error10.1"
@@ -53639,30 +53661,30 @@ static const char *startup_source =
 " config93_1"
 " temp95_3"
 "(list extend-str96_0)))))"
-"(if(char-whitespace? c_104)"
+"(if(char-whitespace? c_9)"
 "(let-values()(void))"
-"(if(let-values(((or-part_356)"
-"(char-lang-nonsep? c_104)))"
-"(if or-part_356"
-" or-part_356"
-"(char=? '#\\/ c_104)))"
+"(if(let-values(((or-part_358)"
+"(char-lang-nonsep? c_9)))"
+"(if or-part_358"
+" or-part_358"
+"(char=? '#\\/ c_9)))"
 "(let-values()"
 "(begin"
-"(consume-char in_21 c_104)"
-"(accum-string-add! accum-str_10 c_104)"
-"(loop_84)))"
+"(consume-char in_21 c_9)"
+"(accum-string-add! accum-str_10 c_9)"
+"(loop_114)))"
 "(let-values()"
 "(begin"
-"(consume-char in_21 c_104)"
+"(consume-char in_21 c_9)"
 "(let-values(((in97_0) in_21)"
 "((config98_0) config_35)"
 "((temp99_3)"
 "(string-append"
-"                                                                                               \"expected only alphanumeric, `-`, `+`, `_`, or `/`\""
-"                                                                                               \" characters for `~a`, found `~a`\"))"
+"                                                                                                 \"expected only alphanumeric, `-`, `+`, `_`, or `/`\""
+"                                                                                                 \" characters for `~a`, found `~a`\"))"
 "((extend-str100_0)"
 " extend-str_2)"
-"((c101_0) c_104))"
+"((c101_0) c_9))"
 "(reader-error10.1"
 " #f"
 " #f"
@@ -53676,19 +53698,19 @@ static const char *startup_source =
 "(list"
 " extend-str100_0"
 " c101_0))))))))))))))"
-" loop_84))"
+" loop_114))"
 "(values))))"
 "(let-values(((lang-str_0)"
 "(let-values(((accum-str102_0) accum-str_10)((config103_0) config_35))"
 "(accum-string-get!6.1 #f #f accum-str102_0 config103_0))))"
 "(let-values((()"
 "(begin"
-"                                                (if (equal? lang-str_0 \"\")"
+"                                                  (if (equal? lang-str_0 \"\")"
 "(let-values()"
 "(let-values(((in104_0) in_21)"
 "((config105_0) config_35)"
 "((temp106_3)"
-"                                                                  \"expected a non-empty sequence of alphanumeric, `-`, `+`, `_`, or `/` after `~a`\")"
+"                                                                    \"expected a non-empty sequence of alphanumeric, `-`, `+`, `_`, or `/` after `~a`\")"
 "((extend-str107_0) extend-str_2))"
 "(reader-error10.1"
 " #f"
@@ -53710,7 +53732,7 @@ static const char *startup_source =
 "(let-values(((in108_0) in_21)"
 "((config109_0) config_35)"
 "((temp110_5)"
-"                                                                    \"expected a name that does not start `/` after `~a`\")"
+"                                                                      \"expected a name that does not start `/` after `~a`\")"
 "((extend-str111_0) extend-str_2))"
 "(reader-error10.1"
 " #f"
@@ -53734,7 +53756,7 @@ static const char *startup_source =
 "(let-values(((in112_0) in_21)"
 "((config113_0) config_35)"
 "((temp114_2)"
-"                                                                      \"expected a name that does not end `/` after `~a`\")"
+"                                                                        \"expected a name that does not end `/` after `~a`\")"
 "((extend-str115_0) extend-str_2))"
 "(reader-error10.1"
 " #f"
@@ -53752,12 +53774,12 @@ static const char *startup_source =
 "(let-values(((submod-path_0)"
 "(list* 'submod(string->symbol lang-str_0) '(reader))))"
 "(let-values(((reader-path_0)"
-"                                                      (string->symbol (string-append lang-str_0 \"/lang/reader\"))))"
+"                                                        (string->symbol (string-append lang-str_0 \"/lang/reader\"))))"
 "(let-values(((submod-path81_0) submod-path_0)"
 "((reader-path82_0) reader-path_0)"
 "((read-recur83_0) read-recur_3)"
 "((in84_1) in_21)"
-"((config85_1) config_35)"
+"((temp85_1)(reading-at config_35 line_10 col_9 pos_122))"
 "((get-info?86_0) get-info?_2)"
 "((who87_0) who_27))"
 "(read-extension44.1"
@@ -53772,23 +53794,23 @@ static const char *startup_source =
 " reader-path82_0"
 " read-recur83_0"
 " in84_1"
-" config85_1)))))))))))))))))))))))"
+" temp85_1))))))))))))))))))))))))"
 "(define-values"
 "(char-lang-nonsep?)"
-"(lambda(c_106)"
+"(lambda(c_105)"
 "(begin"
-"(if(<(char->integer c_106) 128)"
-"(let-values(((or-part_89)(char-alphabetic? c_106)))"
-"(if or-part_89"
-" or-part_89"
-"(let-values(((or-part_90)(char-numeric? c_106)))"
-"(if or-part_90"
-" or-part_90"
-"(let-values(((or-part_91)(char=? '#\\- c_106)))"
-"(if or-part_91"
-" or-part_91"
-"(let-values(((or-part_274)(char=? '#\\+ c_106)))"
-"(if or-part_274 or-part_274(char=? '#\\_ c_106)))))))))"
+"(if(<(char->integer c_105) 128)"
+"(let-values(((or-part_274)(char-alphabetic? c_105)))"
+"(if or-part_274"
+" or-part_274"
+"(let-values(((or-part_359)(char-numeric? c_105)))"
+"(if or-part_359"
+" or-part_359"
+"(let-values(((or-part_301)(char=? '#\\- c_105)))"
+"(if or-part_301"
+" or-part_301"
+"(let-values(((or-part_159)(char=? '#\\+ c_105)))"
+"(if or-part_159 or-part_159(char=? '#\\_ c_105)))))))))"
 " #f))))"
 "(define-values"
 "(read-extension-prefix)"
@@ -53796,43 +53818,43 @@ static const char *startup_source =
 "(begin"
 "(let-values(((accum-str_11)(accum-string-init! config_53)))"
 "(begin"
-"(let-values(((lst_312) already_0))"
+"(let-values(((lst_33) already_0))"
 "(begin"
-"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_312)))"
-"((letrec-values(((for-loop_272)"
-"(lambda(lst_313)"
+"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_33)))"
+"((letrec-values(((for-loop_25)"
+"(lambda(lst_104)"
 "(begin"
 " 'for-loop"
-"(if(pair? lst_313)"
-"(let-values(((c_107)(unsafe-car lst_313))((rest_175)(unsafe-cdr lst_313)))"
+"(if(pair? lst_104)"
+"(let-values(((c_106)(unsafe-car lst_104))((rest_50)(unsafe-cdr lst_104)))"
 "(let-values((()"
 "(let-values()"
 "(let-values((()"
 "(let-values()"
 "(begin"
 "(let-values()"
-"(accum-string-add! accum-str_11 c_107))"
+"(accum-string-add! accum-str_11 c_106))"
 "(values)))))"
 "(values)))))"
-"(if(not #f)(for-loop_272 rest_175)(values))))"
+"(if(not #f)(for-loop_25 rest_50)(values))))"
 "(values))))))"
-" for-loop_272)"
-" lst_312)))"
+" for-loop_25)"
+" lst_33)))"
 "(void)"
-"((letrec-values(((loop_114)"
+"((letrec-values(((loop_12)"
 "(lambda(wanted_1)"
 "(begin"
 " 'loop"
 "(if(null? wanted_1)"
 "(void)"
 "(let-values()"
-"(let-values(((c_108)"
+"(let-values(((c_26)"
 "(let-values(((in_61) in_60)"
-"((source_40)(read-config-source config_53)))"
-"(read-char-or-special in_61 special1.1 source_40))))"
+"((source_39)(read-config-source config_53)))"
+"(read-char-or-special in_61 special1.1 source_39))))"
 "(begin"
-"(if(char? c_108)(let-values()(accum-string-add! accum-str_11 c_108))(void))"
-"(if(eqv? c_108(car wanted_1))"
+"(if(char? c_26)(let-values()(accum-string-add! accum-str_11 c_26))(void))"
+"(if(eqv? c_26(car wanted_1))"
 "(void)"
 "(let-values()"
 "(let-values(((in118_0) in_60)"
@@ -53841,10 +53863,10 @@ static const char *startup_source =
 "(let-values(((accum-str122_0) accum-str_11)"
 "((config123_0) config_53))"
 "(accum-string-get!6.1 #f #f accum-str122_0 config123_0)))"
-"((c121_0) c_108))"
+"((c121_0) c_26))"
 "(bad-syntax-error18.1 c121_0 #t in118_0 config119_0 temp120_2))))"
-"(loop_114(cdr wanted_1))))))))))"
-" loop_114)"
+"(loop_12(cdr wanted_1))))))))))"
+" loop_12)"
 " wanted_0)"
 "(let-values(((accum-str116_0) accum-str_11)((config117_0) config_53))"
 "(accum-string-get!6.1 #f #f accum-str116_0 config117_0)))))))"
@@ -53872,14 +53894,17 @@ static const char *startup_source =
 "(let-values(((mod-path-wrapped_1)"
 "(if mod-path-wrapped37_0"
 " mod-path-wrapped33_0"
-"((read-config-coerce config_54) #t mod-path-datum_0 #f))))"
+"((read-config-coerce config_54)"
+" #t"
+" mod-path-datum_0"
+"(port+config->srcloc in_62 config_54)))))"
 "(let-values(((get-info?_3)(if get-info?38_0 get-info?34_0 #f)))"
 "(let-values(((who_28)(if who39_0 who35_0 '|#reader|)))"
 "(let-values()"
 "(let-values((()(begin(force-parameters! config_54)(values))))"
 "(let-values(((guard_0)(1/current-reader-guard)))"
 "(let-values(((mod-path_27)"
-"(let-values(((or-part_62)"
+"(let-values(((or-part_360)"
 "(if try-first-mod-path_0"
 "(let-values(((mod-path_28)(guard_0 try-first-mod-path_0)))"
 "(if((read-config-module-declared? config_54)"
@@ -53887,7 +53912,7 @@ static const char *startup_source =
 " mod-path_28"
 " #f))"
 " #f)))"
-"(if or-part_62 or-part_62(guard_0 mod-path-datum_0)))))"
+"(if or-part_360 or-part_360(guard_0 mod-path-datum_0)))))"
 "(let-values(((for-syntax?_8)(read-config-for-syntax? config_54)))"
 "(let-values(((dynamic-require_2)(read-config-dynamic-require config_54)))"
 "(let-values(((no-value_0)(gensym)))"
@@ -54007,8 +54032,8 @@ static const char *startup_source =
 "              (let-values () (if fail-k_5 (fail-k_5) (lang-error in_2 l-config_0 \"\" c_33)))"
 "(let-values()"
 "(let-values(((c2_6)"
-"(let-values(((in_54) in_2)((source_41)(read-config-source l-config_0)))"
-"(read-char-or-special in_54 special1.1 source_41))))"
+"(let-values(((in_54) in_2)((source_40)(read-config-source l-config_0)))"
+"(read-char-or-special in_54 special1.1 source_40))))"
 "(if(eqv? c2_6 '#\\l)"
 "(let-values()"
 "(let-values(((read-one1_0) read-one_3)"
@@ -54091,7 +54116,7 @@ static const char *startup_source =
 "(let-values(((readtable_3)(if readtable18_0 readtable4_0 next-readtable_3)))"
 "(let-values(((recursive?_0)(if recursive?19_0 recursive?5_0 #f)))"
 "(let-values(((local-graph?_1)(if local-graph?20_0 local-graph?6_0 #f)))"
-"(let-values(((source_42)(if source21_0 source7_0 #f)))"
+"(let-values(((source_41)(if source21_0 source7_0 #f)))"
 "(let-values(((for-syntax?_9)(if for-syntax?22_0 for-syntax?8_0 #f)))"
 "(let-values(((read-compiled_2)(if read-compiled23_0 read-compiled9_1 #f)))"
 "(let-values(((dynamic-require_3)(if dynamic-require24_0 dynamic-require10_1 #f)))"
@@ -54125,7 +54150,7 @@ static const char *startup_source =
 "(let-values()"
 "(let-values(((readtable59_0) readtable_3)"
 "((next-readtable60_0) next-readtable_3)"
-"((source61_0) source_42)"
+"((source61_0) source_41)"
 "((for-syntax?62_0) for-syntax?_9)"
 "((wrap63_0) wrap_7)"
 "((read-compiled64_0) read-compiled_2)"
@@ -54250,7 +54275,7 @@ static const char *startup_source =
 "(let-values()(read-undotted init-c_15 in_64 config_59))"
 "(if(check-parameter 1/read-cdot config_59)"
 "(let-values()"
-"(let-values(((line_10 col_9 pos_122)(port-next-location in_64)))"
+"(let-values(((line_11 col_10 pos_123)(port-next-location in_64)))"
 "(let-values(((v_186)(read-undotted init-c_15 in_64 config_59)))"
 "(if(1/special-comment? v_186)"
 "(let-values() v_186)"
@@ -54259,27 +54284,27 @@ static const char *startup_source =
 "(lambda(v_243)"
 "(begin"
 " 'loop"
-"(let-values(((c_109)"
+"(let-values(((c_107)"
 "(let-values(((in_65) in_64)"
 "((skip-count_16) 0)"
-"((source_43)(read-config-source config_59)))"
-"(let-values(((c_110)"
+"((source_42)(read-config-source config_59)))"
+"(let-values(((c_108)"
 "(peek-char-or-special"
 " in_65"
 " skip-count_16"
 " 'special"
-" source_43)))"
-"(if(eq? c_110 'special)(special1.1 'special) c_110)))))"
-"(let-values(((ec_9)(effective-char c_109 config_59)))"
+" source_42)))"
+"(if(eq? c_108 'special)(special1.1 'special) c_108)))))"
+"(let-values(((ec_9)(effective-char c_107 config_59)))"
 "(if(not(char? ec_9))"
 "(let-values() v_243)"
 "(if(char-whitespace? ec_9)"
-"(let-values()(begin(consume-char in_64 c_109)(loop_115 v_243)))"
+"(let-values()(begin(consume-char in_64 c_107)(loop_115 v_243)))"
 "(if(char=? ec_9 '#\\.)"
 "(let-values()"
 "(let-values(((dot-line_2 dot-col_2 dot-pos_5)"
 "(port-next-location in_64)))"
-"(let-values((()(begin(consume-char in_64 c_109)(values))))"
+"(let-values((()(begin(consume-char in_64 c_107)(values))))"
 "(let-values(((cdot_0)"
 "(wrap"
 " '#%dot"
@@ -54296,7 +54321,7 @@ static const char *startup_source =
 "(wrap"
 "(list cdot_0 v_243 post-v_0)"
 " in_64"
-"(reading-at config_59 line_10 col_9 pos_122)"
+"(reading-at config_59 line_11 col_10 pos_123)"
 " '#\\.)))))))"
 "(let-values() v_243))))))))))"
 " loop_115)"
@@ -54304,33 +54329,33 @@ static const char *startup_source =
 "(void))))))"
 "(define-values"
 "(read-undotted)"
-"(lambda(init-c_16 in_66 config_60)"
+"(lambda(init-c_16 in_62 config_54)"
 "(begin"
-"(let-values(((c_111)(read-char/skip-whitespace-and-comments init-c_16 read-one in_66 config_60)))"
-"(let-values(((line_11 col_10 pos_123)(port-next-location* in_66 c_111)))"
-"(if(eof-object? c_111)"
+"(let-values(((c_109)(read-char/skip-whitespace-and-comments init-c_16 read-one in_62 config_54)))"
+"(let-values(((line_12 col_11 pos_124)(port-next-location* in_62 c_109)))"
+"(if(eof-object? c_109)"
 "(let-values() eof)"
-"(if(not(char? c_111))"
+"(if(not(char? c_109))"
 "(let-values()"
-"(let-values(((v_244)(special-value c_111)))"
+"(let-values(((v_244)(special-value c_109)))"
 "(if(1/special-comment? v_244)"
-"(let-values()(if(read-config-keep-comment? config_60) v_244(read-undotted #f in_66 config_60)))"
-"(let-values()(coerce v_244 in_66(reading-at config_60 line_11 col_10 pos_123))))))"
-"(let-values(((c2_8)(readtable-handler config_60 c_111)))"
+"(let-values()(if(read-config-keep-comment? config_54) v_244(read-undotted #f in_62 config_54)))"
+"(let-values()(coerce v_244 in_62(reading-at config_54 line_12 col_11 pos_124))))))"
+"(let-values(((c2_8)(readtable-handler config_54 c_109)))"
 "(if c2_8"
 "((lambda(handler_3)"
-"(let-values(((v_245)(readtable-apply handler_3 c_111 in_66 config_60 line_11 col_10 pos_123)))"
-"(retry-special-comment v_245 in_66 config_60)))"
+"(let-values(((v_245)(readtable-apply handler_3 c_109 in_62 config_54 line_12 col_11 pos_124)))"
+"(retry-special-comment v_245 in_62 config_54)))"
 " c2_8)"
 "(let-values()"
-"(let-values(((ec_10)(effective-char c_111 config_60)))"
+"(let-values(((ec_10)(effective-char c_109 config_54)))"
 "(let-values((()"
 "(begin"
-"(if(not(char-closer? ec_10 config_60))"
-"(let-values()(track-indentation! config_60 line_11 col_10))"
+"(if(not(char-closer? ec_10 config_54))"
+"(let-values()(track-indentation! config_54 line_12 col_11))"
 "(void))"
 "(values))))"
-"(let-values(((r-config_0)(reading-at(discard-comment config_60) line_11 col_10 pos_123)))"
+"(let-values(((r-config_0)(reading-at(discard-comment config_54) line_12 col_11 pos_124)))"
 "(let-values(((tmp_55) ec_10))"
 "(let-values(((index_4)"
 "(if(char? tmp_55)"
@@ -54390,13 +54415,13 @@ static const char *startup_source =
 "(if(unsafe-fx< index_4 1)"
 "(let-values()"
 "(let-values(((v_142)"
-"(let-values(((c79_1) c_111)"
-"((in80_0) in_66)"
+"(let-values(((c79_1) c_109)"
+"((in80_0) in_62)"
 "((r-config81_0) r-config_0)"
 "((temp82_4)"
-"(if(let-values(((or-part_320)(eq? c_111 ec_10)))"
-"(if or-part_320"
-" or-part_320"
+"(if(let-values(((or-part_322)(eq? c_109 ec_10)))"
+"(if or-part_322"
+" or-part_322"
 "(if(<(char->integer ec_10) 128)"
 "(char-numeric? ec_10)"
 " #f)))"
@@ -54410,20 +54435,20 @@ static const char *startup_source =
 " c79_1"
 " in80_0"
 " r-config81_0))))"
-"(retry-special-comment v_142 in_66 config_60)))"
-"(let-values()(read-dispatch c_111 in_66 r-config_0 config_60)))"
+"(retry-special-comment v_142 in_62 config_54)))"
+"(let-values()(read-dispatch c_109 in_62 r-config_0 config_54)))"
 "(if(unsafe-fx< index_4 3)"
-"                                    (let-values () (read-quote read-one 'quote \"quoting '\" c_111 in_66 r-config_0))"
+"                                    (let-values () (read-quote read-one 'quote \"quoting '\" c_109 in_62 r-config_0))"
 "(if(unsafe-fx< index_4 4)"
 "(let-values()"
-"(if(check-parameter 1/read-accept-quasiquote config_60)"
+"(if(check-parameter 1/read-accept-quasiquote config_54)"
 "(let-values()"
-"                                            (read-quote read-one 'quasiquote \"quasiquoting `\" c_111 in_66 r-config_0))"
+"                                            (read-quote read-one 'quasiquote \"quasiquoting `\" c_109 in_62 r-config_0))"
 "(let-values()"
-"(let-values(((in83_0) in_66)"
+"(let-values(((in83_0) in_62)"
 "((r-config84_0) r-config_0)"
-"                                                         ((temp85_1) \"illegal use of `~a`\")"
-"((c86_0) c_111))"
+"                                                         ((temp85_2) \"illegal use of `~a`\")"
+"((c86_0) c_109))"
 "(reader-error10.1"
 " #f"
 " #f"
@@ -54433,41 +54458,41 @@ static const char *startup_source =
 " #f"
 " in83_0"
 " r-config84_0"
-" temp85_1"
+" temp85_2"
 "(list c86_0))))))"
 "(if(unsafe-fx< index_4 5)"
 "(let-values()"
-"(if(check-parameter 1/read-accept-quasiquote config_60)"
+"(if(check-parameter 1/read-accept-quasiquote config_54)"
 "(let-values()"
 "(let-values(((c2_9)"
-"(let-values(((in_67) in_66)"
+"(let-values(((in_66) in_62)"
 "((skip-count_17) 0)"
-"((source_44)(read-config-source config_60)))"
-"(let-values(((c_112)"
+"((source_43)(read-config-source config_54)))"
+"(let-values(((c_110)"
 "(peek-char-or-special"
-" in_67"
+" in_66"
 " skip-count_17"
 " 'special"
-" source_44)))"
-"(if(eq? c_112 'special)"
+" source_43)))"
+"(if(eq? c_110 'special)"
 "(special1.1 'special)"
-" c_112)))))"
+" c_110)))))"
 "(if(eqv? c2_9 '#\\@)"
 "(begin"
-"(consume-char in_66 c2_9)"
+"(consume-char in_62 c2_9)"
 "(read-quote"
 " read-one"
 " 'unquote-splicing"
 "                                                     \"unquoting ,@\""
-" c_111"
-" in_66"
+" c_109"
+" in_62"
 " r-config_0))"
-"                                                  (read-quote read-one 'unquote \"unquoting ,\" c_111 in_66 r-config_0))))"
+"                                                  (read-quote read-one 'unquote \"unquoting ,\" c_109 in_62 r-config_0))))"
 "(let-values()"
-"(let-values(((in87_0) in_66)"
+"(let-values(((in87_0) in_62)"
 "((r-config88_0) r-config_0)"
 "                                                           ((temp89_5) \"illegal use of `~a`\")"
-"((c90_0) c_111))"
+"((c90_0) c_109))"
 "(reader-error10.1"
 " #f"
 " #f"
@@ -54485,7 +54510,7 @@ static const char *startup_source =
 "((ec92_0) ec_10)"
 "((temp93_4) '#\\()"
 "((temp94_3) '#\\))"
-"((in95_0) in_66)"
+"((in95_0) in_62)"
 "((r-config96_0) r-config_0)"
 "((temp97_4) #t))"
 "(read-unwrapped-sequence17.1"
@@ -54505,17 +54530,17 @@ static const char *startup_source =
 " temp94_3"
 " in95_0"
 " r-config96_0))"
-" in_66"
+" in_62"
 " r-config_0"
 " ec_10))))))"
 "(if(unsafe-fx< index_4 9)"
 "(if(unsafe-fx< index_4 7)"
 "(let-values()"
-"(let-values(((in98_0) in_66)"
+"(let-values(((in98_0) in_62)"
 "((r-config99_0) r-config_0)"
 "                                                   ((temp100_2) \"~a\")"
 "((temp101_3)"
-"(indentation-unexpected-closer-message ec_10 c_111 r-config_0)))"
+"(indentation-unexpected-closer-message ec_10 c_109 r-config_0)))"
 "(reader-error10.1"
 " #f"
 " #f"
@@ -54529,18 +54554,18 @@ static const char *startup_source =
 "(list temp101_3))))"
 "(if(unsafe-fx< index_4 8)"
 "(let-values()"
-"(if(let-values(((or-part_357)"
-"(check-parameter 1/read-square-bracket-as-paren config_60)))"
-"(if or-part_357"
-" or-part_357"
-"(check-parameter 1/read-square-bracket-with-tag config_60)))"
+"(if(let-values(((or-part_361)"
+"(check-parameter 1/read-square-bracket-as-paren config_54)))"
+"(if or-part_361"
+" or-part_361"
+"(check-parameter 1/read-square-bracket-with-tag config_54)))"
 "(let-values()"
 "(wrap"
 "(let-values(((read-one102_0) read-one)"
 "((ec103_0) ec_10)"
 "((temp104_3) '#\\[)"
 "((temp105_3) '#\\])"
-"((in106_0) in_66)"
+"((in106_0) in_62)"
 "((r-config107_0) r-config_0)"
 "((temp108_4) #t))"
 "(read-unwrapped-sequence17.1"
@@ -54560,14 +54585,14 @@ static const char *startup_source =
 " temp105_3"
 " in106_0"
 " r-config107_0))"
-" in_66"
+" in_62"
 " r-config_0"
 " ec_10))"
 "(let-values()"
-"(let-values(((in109_0) in_66)"
+"(let-values(((in109_0) in_62)"
 "((r-config110_0) r-config_0)"
 "                                                         ((temp111_2) \"illegal use of `~a`\")"
-"((c112_0) c_111))"
+"((c112_0) c_109))"
 "(reader-error10.1"
 " #f"
 " #f"
@@ -54580,19 +54605,19 @@ static const char *startup_source =
 " temp111_2"
 "(list c112_0))))))"
 "(let-values()"
-"(if(let-values(((or-part_358)"
-"(check-parameter 1/read-square-bracket-as-paren config_60)))"
-"(if or-part_358"
-" or-part_358"
-"(check-parameter 1/read-square-bracket-with-tag config_60)))"
+"(if(let-values(((or-part_362)"
+"(check-parameter 1/read-square-bracket-as-paren config_54)))"
+"(if or-part_362"
+" or-part_362"
+"(check-parameter 1/read-square-bracket-with-tag config_54)))"
 "(let-values()"
-"(let-values(((in113_0) in_66)"
+"(let-values(((in113_0) in_62)"
 "((r-config114_0) r-config_0)"
 "                                                         ((temp115_1) \"~a\")"
 "((temp116_2)"
 "(indentation-unexpected-closer-message"
 " ec_10"
-" c_111"
+" c_109"
 " r-config_0)))"
 "(reader-error10.1"
 " #f"
@@ -54606,10 +54631,10 @@ static const char *startup_source =
 " temp115_1"
 "(list temp116_2))))"
 "(let-values()"
-"(let-values(((in117_0) in_66)"
+"(let-values(((in117_0) in_62)"
 "((r-config118_0) r-config_0)"
 "                                                         ((temp119_0) \"illegal use of `~a`\")"
-"((c120_0) c_111))"
+"((c120_0) c_109))"
 "(reader-error10.1"
 " #f"
 " #f"
@@ -54623,18 +54648,18 @@ static const char *startup_source =
 "(list c120_0))))))))"
 "(if(unsafe-fx< index_4 10)"
 "(let-values()"
-"(if(let-values(((or-part_359)"
-"(check-parameter 1/read-curly-brace-as-paren config_60)))"
-"(if or-part_359"
-" or-part_359"
-"(check-parameter 1/read-curly-brace-with-tag config_60)))"
+"(if(let-values(((or-part_363)"
+"(check-parameter 1/read-curly-brace-as-paren config_54)))"
+"(if or-part_363"
+" or-part_363"
+"(check-parameter 1/read-curly-brace-with-tag config_54)))"
 "(let-values()"
 "(wrap"
 "(let-values(((read-one121_0) read-one)"
 "((ec122_0) ec_10)"
 "((temp123_3) '#\\{)"
 "((temp124_4) '#\\})"
-"((in125_0) in_66)"
+"((in125_0) in_62)"
 "((r-config126_0) r-config_0)"
 "((temp127_4) #t))"
 "(read-unwrapped-sequence17.1"
@@ -54654,14 +54679,14 @@ static const char *startup_source =
 " temp124_4"
 " in125_0"
 " r-config126_0))"
-" in_66"
+" in_62"
 " r-config_0"
 " ec_10))"
 "(let-values()"
-"(let-values(((in128_0) in_66)"
+"(let-values(((in128_0) in_62)"
 "((r-config129_0) r-config_0)"
 "                                                       ((temp130_3) \"illegal use of `~a`\")"
-"((c131_0) c_111))"
+"((c131_0) c_109))"
 "(reader-error10.1"
 " #f"
 " #f"
@@ -54675,19 +54700,19 @@ static const char *startup_source =
 "(list c131_0))))))"
 "(if(unsafe-fx< index_4 11)"
 "(let-values()"
-"(if(let-values(((or-part_360)"
-"(check-parameter 1/read-curly-brace-as-paren config_60)))"
-"(if or-part_360"
-" or-part_360"
-"(check-parameter 1/read-curly-brace-with-tag config_60)))"
+"(if(let-values(((or-part_364)"
+"(check-parameter 1/read-curly-brace-as-paren config_54)))"
+"(if or-part_364"
+" or-part_364"
+"(check-parameter 1/read-curly-brace-with-tag config_54)))"
 "(let-values()"
-"(let-values(((in132_0) in_66)"
+"(let-values(((in132_0) in_62)"
 "((r-config133_0) r-config_0)"
 "                                                         ((temp134_2) \"~a\")"
 "((temp135_1)"
 "(indentation-unexpected-closer-message"
 " ec_10"
-" c_111"
+" c_109"
 " r-config_0)))"
 "(reader-error10.1"
 " #f"
@@ -54701,10 +54726,10 @@ static const char *startup_source =
 " temp134_2"
 "(list temp135_1))))"
 "(let-values()"
-"(let-values(((in136_0) in_66)"
+"(let-values(((in136_0) in_62)"
 "((r-config137_0) r-config_0)"
 "                                                         ((temp138_3) \"illegal use of `~a`\")"
-"((c139_0) c_111))"
+"((c139_0) c_109))"
 "(reader-error10.1"
 " #f"
 " #f"
@@ -54718,11 +54743,11 @@ static const char *startup_source =
 "(list c139_0))))))"
 "(if(unsafe-fx< index_4 12)"
 "(let-values()"
-"(let-values(((in140_0) in_66)((r-config141_0) r-config_0))"
+"(let-values(((in140_0) in_62)((r-config141_0) r-config_0))"
 "(read-string5.1 #f #f in140_0 r-config141_0)))"
 "(let-values()"
-"(let-values(((c142_0) c_111)"
-"((in143_0) in_66)"
+"(let-values(((c142_0) c_109)"
+"((in143_0) in_62)"
 "((r-config144_0) r-config_0)"
 "((temp145_0) 'symbol))"
 "(read-symbol-or-number8.1"
@@ -54735,40 +54760,39 @@ static const char *startup_source =
 " r-config144_0)))))))))))))))))))))))"
 "(define-values"
 "(read-dispatch)"
-"(lambda(dispatch-c_5 in_68 config_61 orig-config_0)"
+"(lambda(dispatch-c_5 in_67 config_5 orig-config_0)"
 "(begin"
-"(let-values(((c_113)"
-"(let-values(((in_69) in_68)((source_45)(read-config-source config_61)))"
-"(read-char-or-special in_69 special1.1 source_45))))"
-"(if(eof-object? c_113)"
+"(let-values(((c_111)"
+"(let-values(((in_68) in_67)((source_44)(read-config-source config_5)))"
+"(read-char-or-special in_68 special1.1 source_44))))"
+"(if(eof-object? c_111)"
 "(let-values()"
-"(let-values(((in146_0) in_68)"
-"((config147_0) config_61)"
-"((c148_0) c_113)"
+"(let-values(((in146_0) in_67)"
+"((config147_0) config_5)"
+"((c148_0) c_111)"
 "                         ((temp149_0) \"bad syntax `~a`\")"
 "((dispatch-c150_0) dispatch-c_5))"
 "(reader-error10.1 #f #f c148_0 #t #f #f in146_0 config147_0 temp149_0(list dispatch-c150_0))))"
-"(if(not(char? c_113))"
+"(if(not(char? c_111))"
 "(let-values()"
-"(let-values(((in151_0) in_68)"
-"((config152_0) config_61)"
-"((c153_0) c_113)"
+"(let-values(((in151_0) in_67)"
+"((config152_0) config_5)"
+"((c153_0) c_111)"
 "                           ((temp154_1) \"bad syntax `~a`\")"
 "((dispatch-c155_0) dispatch-c_5))"
 "(reader-error10.1 #f #f c153_0 #t #f #f in151_0 config152_0 temp154_1(list dispatch-c155_0))))"
-"(let-values(((c3_9)(readtable-dispatch-handler orig-config_0 c_113)))"
+"(let-values(((c3_9)(readtable-dispatch-handler orig-config_0 c_111)))"
 "(if c3_9"
 "((lambda(handler_4)"
-"(let-values(((line_12)(read-config-line config_61)))"
-"(let-values(((col_11)(read-config-col config_61)))"
-"(let-values(((pos_124)(read-config-pos config_61)))"
-"(let-values(((v_246)"
-"(readtable-apply handler_4 c_113 in_68 config_61 line_12 col_11 pos_124)))"
-"(retry-special-comment v_246 in_68 orig-config_0))))))"
+"(let-values(((line_13)(read-config-line config_5)))"
+"(let-values(((col_12)(read-config-col config_5)))"
+"(let-values(((pos_125)(read-config-pos config_5)))"
+"(let-values(((v_246)(readtable-apply handler_4 c_111 in_67 config_5 line_13 col_12 pos_125)))"
+"(retry-special-comment v_246 in_67 orig-config_0))))))"
 " c3_9)"
 "(let-values()"
 "(let-values()"
-"(let-values(((tmp_56) c_113))"
+"(let-values(((tmp_56) c_111))"
 "(let-values(((index_5)"
 "(if(char? tmp_56)"
 "(let-values(((codepoint_3)(char->integer tmp_56)))"
@@ -54876,11 +54900,11 @@ static const char *startup_source =
 "(if(unsafe-fx< index_5 3)"
 "(if(unsafe-fx< index_5 1)"
 "(let-values()"
-"(let-values(((in156_0) in_68)"
-"((config157_0) config_61)"
+"(let-values(((in156_0) in_67)"
+"((config157_0) config_5)"
 "                                               ((temp158_2) \"bad syntax `~a~a`\")"
 "((dispatch-c159_0) dispatch-c_5)"
-"((c160_0) c_113))"
+"((c160_0) c_111))"
 "(reader-error10.1"
 " #f"
 " #f"
@@ -54893,14 +54917,14 @@ static const char *startup_source =
 " temp158_2"
 "(list dispatch-c159_0 c160_0))))"
 "(if(unsafe-fx< index_5 2)"
-"(let-values()(read-vector-or-graph read-one dispatch-c_5 c_113 in_68 config_61))"
+"(let-values()(read-vector-or-graph read-one dispatch-c_5 c_111 in_67 config_5))"
 "(let-values()"
 "(let-values(((read-one161_0) read-one)"
 "((temp162_2) '#\\()"
 "((temp163_1) '#\\()"
 "((temp164_0) '#\\))"
-"((in165_0) in_68)"
-"((config166_0) config_61))"
+"((in165_0) in_67)"
+"((config166_0) config_5))"
 "(read-vector11.1"
 " #f"
 " #f"
@@ -54915,14 +54939,14 @@ static const char *startup_source =
 "(if(unsafe-fx< index_5 5)"
 "(if(unsafe-fx< index_5 4)"
 "(let-values()"
-"(if(check-parameter 1/read-square-bracket-as-paren config_61)"
+"(if(check-parameter 1/read-square-bracket-as-paren config_5)"
 "(let-values()"
 "(let-values(((read-one167_0) read-one)"
 "((temp168_0) '#\\[)"
 "((temp169_1) '#\\[)"
 "((temp170_1) '#\\])"
-"((in171_0) in_68)"
-"((config172_0) config_61))"
+"((in171_0) in_67)"
+"((config172_0) config_5))"
 "(read-vector11.1"
 " #f"
 " #f"
@@ -54935,19 +54959,19 @@ static const char *startup_source =
 " in171_0"
 " config172_0)))"
 "(let-values()"
-"(let-values(((in173_0) in_68)"
-"((config174_0) config_61)"
-"                                                     ((temp175_0) (format \"~a~a\" dispatch-c_5 c_113)))"
+"(let-values(((in173_0) in_67)"
+"((config174_0) config_5)"
+"                                                     ((temp175_0) (format \"~a~a\" dispatch-c_5 c_111)))"
 "(bad-syntax-error18.1 #f #f in173_0 config174_0 temp175_0)))))"
 "(let-values()"
-"(if(check-parameter 1/read-curly-brace-as-paren config_61)"
+"(if(check-parameter 1/read-curly-brace-as-paren config_5)"
 "(let-values()"
 "(let-values(((read-one176_0) read-one)"
 "((temp177_0) '#\\{)"
 "((temp178_0) '#\\{)"
 "((temp179_0) '#\\})"
-"((in180_0) in_68)"
-"((config181_0) config_61))"
+"((in180_0) in_67)"
+"((config181_0) config_5))"
 "(read-vector11.1"
 " #f"
 " #f"
@@ -54960,70 +54984,64 @@ static const char *startup_source =
 " in180_0"
 " config181_0)))"
 "(let-values()"
-"(let-values(((in182_0) in_68)"
-"((config183_0) config_61)"
-"                                                     ((temp184_0) (format \"~a~a\" dispatch-c_5 c_113)))"
+"(let-values(((in182_0) in_67)"
+"((config183_0) config_5)"
+"                                                     ((temp184_0) (format \"~a~a\" dispatch-c_5 c_111)))"
 "(bad-syntax-error18.1 #f #f in182_0 config183_0 temp184_0))))))"
 "(if(unsafe-fx< index_5 6)"
-"(let-values()(read-struct read-one dispatch-c_5 in_68 config_61))"
+"(let-values()(read-struct read-one dispatch-c_5 in_67 config_5))"
 "(if(unsafe-fx< index_5 7)"
-"(let-values()(read-box read-one dispatch-c_5 in_68 config_61))"
-"                                    (let-values () (read-quote read-one 'syntax \"quoting #'\" c_113 in_68 config_61))))))"
+"(let-values()(read-box read-one dispatch-c_5 in_67 config_5))"
+"                                    (let-values () (read-quote read-one 'syntax \"quoting #'\" c_111 in_67 config_5))))))"
 "(if(unsafe-fx< index_5 12)"
 "(if(unsafe-fx< index_5 9)"
 "(let-values()"
-"                                  (read-quote read-one 'quasisyntax \"quasiquoting #`\" c_113 in_68 config_61))"
+"                                  (read-quote read-one 'quasisyntax \"quasiquoting #`\" c_111 in_67 config_5))"
 "(if(unsafe-fx< index_5 10)"
 "(let-values()"
 "(let-values(((c2_10)"
-"(let-values(((in_70) in_68)"
+"(let-values(((in_69) in_67)"
 "((skip-count_18) 0)"
-"((source_46)(read-config-source config_61)))"
-"(let-values(((c_114)"
+"((source_45)(read-config-source config_5)))"
+"(let-values(((c_112)"
 "(peek-char-or-special"
-" in_70"
+" in_69"
 " skip-count_18"
 " 'special"
-" source_46)))"
-"(if(eq? c_114 'special)(special1.1 'special) c_114)))))"
+" source_45)))"
+"(if(eq? c_112 'special)(special1.1 'special) c_112)))))"
 "(if(eqv? c2_10 '#\\@)"
 "(begin"
-"(consume-char in_68 c2_10)"
-"(read-quote"
-" read-one"
-" 'unsyntax-splicing"
-"                                           \"unquoting #,@\""
-" c_113"
-" in_68"
-" config_61))"
-"                                        (read-quote read-one 'unsyntax \"unquoting #,\" c_113 in_68 config_61))))"
+"(consume-char in_67 c2_10)"
+"                                          (read-quote read-one 'unsyntax-splicing \"unquoting #,@\" c_111 in_67 config_5))"
+"                                        (read-quote read-one 'unsyntax \"unquoting #,\" c_111 in_67 config_5))))"
 "(if(unsafe-fx< index_5 11)"
-"(let-values()(read-character in_68 config_61))"
+"(let-values()(read-character in_67 config_5))"
 "(let-values()"
-"(let-values(((in185_0) in_68)"
-"((config186_0) config_61)"
+"(let-values(((in185_0) in_67)"
+"((config186_0) config_5)"
 "((temp187_1) '|byte string|))"
 "(read-string5.1 temp187_1 #t in185_0 config186_0))))))"
 "(if(unsafe-fx< index_5 14)"
 "(if(unsafe-fx< index_5 13)"
 "(let-values()"
 "(let-values(((c2_11)"
-"(let-values(((in_71) in_68)"
+"(let-values(((in_70) in_67)"
 "((skip-count_19) 0)"
-"((source_47)(read-config-source config_61)))"
-"(let-values(((c_115)"
+"((source_46)(read-config-source config_5)))"
+"(let-values(((c_113)"
 "(peek-char-or-special"
-" in_71"
+" in_70"
 " skip-count_19"
 " 'special"
-" source_47)))"
-"(if(eq? c_115 'special)(special1.1 'special) c_115)))))"
+" source_46)))"
+"(if(eq? c_113 'special)(special1.1 'special) c_113)))))"
 "(if(eqv? '#\\< c2_11)"
 "(let-values()"
-"(begin(consume-char in_68 '#\\<)(read-here-string in_68 config_61)))"
+"(begin(consume-char in_67 '#\\<)(read-here-string in_67 config_5)))"
 "(let-values()"
-"(let-values(((in188_0) in_68)"
-"((config189_0) config_61)"
+"(let-values(((in188_0) in_67)"
+"((config189_0) config_5)"
 "((c2190_0) c2_11)"
 "                                                       ((temp191_0) \"bad syntax `~a<`\")"
 "((dispatch-c192_0) dispatch-c_5))"
@@ -55039,9 +55057,9 @@ static const char *startup_source =
 " temp191_0"
 "(list dispatch-c192_0)))))))"
 "(let-values()"
-"(let-values(((c193_0) c_113)"
-"((in194_0) in_68)"
-"((config195_0) config_61)"
+"(let-values(((c193_0) c_111)"
+"((in194_0) in_67)"
+"((config195_0) config_5)"
 "((dispatch-c196_0) dispatch-c_5)"
 "((temp197_0) 'symbol))"
 "(read-symbol-or-number8.1"
@@ -55055,126 +55073,126 @@ static const char *startup_source =
 "(if(unsafe-fx< index_5 15)"
 "(let-values()"
 "(let-values(((temp198_0) #f)"
-"((in199_0) in_68)"
-"((config200_0) config_61)"
+"((in199_0) in_67)"
+"((config200_0) config_5)"
 "((temp201_0) 'keyword))"
 "(read-symbol-or-number8.1 #f #f temp201_0 #t temp198_0 in199_0 config200_0)))"
 "(if(unsafe-fx< index_5 16)"
 "(let-values()"
 "(let-values(((c2_12)"
-"(let-values(((in_72) in_68)"
+"(let-values(((in_71) in_67)"
 "((skip-count_20) 0)"
-"((source_48)(read-config-source config_61)))"
-"(let-values(((c_116)"
+"((source_47)(read-config-source config_5)))"
+"(let-values(((c_114)"
 "(peek-char-or-special"
-" in_72"
+" in_71"
 " skip-count_20"
 " 'special"
-" source_48)))"
-"(if(eq? c_116 'special)(special1.1 'special) c_116)))))"
-"(if(char-delimiter? c2_12 config_61)"
-"(let-values()(wrap #t in_68 config_61 c_113))"
+" source_47)))"
+"(if(eq? c_114 'special)(special1.1 'special) c_114)))))"
+"(if(char-delimiter? c2_12 config_5)"
+"(let-values()(wrap #t in_67 config_5 c_111))"
 "(let-values()"
 "(read-delimited-constant"
-" c_113"
-"(char=? c_113 '#\\t)"
+" c_111"
+"(char=? c_111 '#\\t)"
 " '(#\\r #\\u #\\e)"
 " #t"
-" in_68"
-" config_61)))))"
+" in_67"
+" config_5)))))"
 "(let-values()"
 "(let-values(((c2_13)"
-"(let-values(((in_73) in_68)"
+"(let-values(((in_72) in_67)"
 "((skip-count_21) 0)"
-"((source_49)(read-config-source config_61)))"
-"(let-values(((c_117)"
+"((source_48)(read-config-source config_5)))"
+"(let-values(((c_115)"
 "(peek-char-or-special"
-" in_73"
+" in_72"
 " skip-count_21"
 " 'special"
-" source_49)))"
-"(if(eq? c_117 'special)(special1.1 'special) c_117)))))"
-"(if(char-delimiter? c2_13 config_61)"
-"(let-values()(wrap #f in_68 config_61 c_113))"
-"(if(let-values(((or-part_343)(char=? c2_13 '#\\x)))"
-"(if or-part_343 or-part_343(char=? c2_13 '#\\l)))"
+" source_48)))"
+"(if(eq? c_115 'special)(special1.1 'special) c_115)))))"
+"(if(char-delimiter? c2_13 config_5)"
+"(let-values()(wrap #f in_67 config_5 c_111))"
+"(if(let-values(((or-part_345)(char=? c2_13 '#\\x)))"
+"(if or-part_345 or-part_345(char=? c2_13 '#\\l)))"
 "(let-values()"
 "(read-fixnum-or-flonum-vector"
 " read-one"
 " dispatch-c_5"
-" c_113"
+" c_111"
 " c2_13"
-" in_68"
-" config_61))"
+" in_67"
+" config_5))"
 "(let-values()"
 "(read-delimited-constant"
-" c_113"
-"(char=? c_113 '#\\f)"
+" c_111"
+"(char=? c_111 '#\\f)"
 " '(#\\a #\\l #\\s #\\e)"
 " #f"
-" in_68"
-" config_61)))))))))))"
+" in_67"
+" config_5)))))))))))"
 "(if(unsafe-fx< index_5 26)"
 "(if(unsafe-fx< index_5 21)"
 "(if(unsafe-fx< index_5 18)"
 "(let-values()"
 "(let-values(((temp202_0) #f)"
-"((in203_0) in_68)"
-"((config204_0) config_61)"
+"((in203_0) in_67)"
+"((config204_0) config_5)"
 "                                               ((temp205_0) \"#e\"))"
 "(read-symbol-or-number8.1 #f #f temp205_0 #t temp202_0 in203_0 config204_0)))"
 "(if(unsafe-fx< index_5 19)"
 "(let-values()"
 "(let-values(((temp206_0) #f)"
-"((in207_0) in_68)"
-"((config208_0) config_61)"
+"((in207_0) in_67)"
+"((config208_0) config_5)"
 "                                                 ((temp209_0) \"#E\"))"
 "(read-symbol-or-number8.1 #f #f temp209_0 #t temp206_0 in207_0 config208_0)))"
 "(if(unsafe-fx< index_5 20)"
 "(let-values()"
 "(let-values(((temp210_0) #f)"
-"((in211_0) in_68)"
-"((config212_0) config_61)"
+"((in211_0) in_67)"
+"((config212_0) config_5)"
 "                                                   ((temp213_0) \"#i\"))"
 "(read-symbol-or-number8.1 #f #f temp213_0 #t temp210_0 in211_0 config212_0)))"
 "(let-values()"
 "(let-values(((temp214_0) #f)"
-"((in215_0) in_68)"
-"((config216_0) config_61)"
+"((in215_0) in_67)"
+"((config216_0) config_5)"
 "                                                   ((temp217_0) \"#I\"))"
 "(read-symbol-or-number8.1 #f #f temp217_0 #t temp214_0 in215_0 config216_0))))))"
 "(if(unsafe-fx< index_5 23)"
 "(if(unsafe-fx< index_5 22)"
 "(let-values()"
 "(let-values(((temp218_0) #f)"
-"((in219_0) in_68)"
-"((config220_0) config_61)"
+"((in219_0) in_67)"
+"((config220_0) config_5)"
 "                                                 ((temp221_1) \"#d\"))"
 "(read-symbol-or-number8.1 #f #f temp221_1 #t temp218_0 in219_0 config220_0)))"
 "(let-values()"
 "(let-values(((temp222_0) #f)"
-"((in223_0) in_68)"
-"((config224_0) config_61)"
+"((in223_0) in_67)"
+"((config224_0) config_5)"
 "                                                 ((temp225_1) \"#B\"))"
 "(read-symbol-or-number8.1 #f #f temp225_1 #t temp222_0 in223_0 config224_0))))"
 "(if(unsafe-fx< index_5 24)"
 "(let-values()"
 "(let-values(((temp226_1) #f)"
-"((in227_0) in_68)"
-"((config228_0) config_61)"
+"((in227_0) in_67)"
+"((config228_0) config_5)"
 "                                                 ((temp229_1) \"#o\"))"
 "(read-symbol-or-number8.1 #f #f temp229_1 #t temp226_1 in227_0 config228_0)))"
 "(if(unsafe-fx< index_5 25)"
 "(let-values()"
 "(let-values(((temp230_0) #f)"
-"((in231_0) in_68)"
-"((config232_0) config_61)"
+"((in231_0) in_67)"
+"((config232_0) config_5)"
 "                                                   ((temp233_1) \"#O\"))"
 "(read-symbol-or-number8.1 #f #f temp233_1 #t temp230_0 in231_0 config232_0)))"
 "(let-values()"
 "(let-values(((temp234_0) #f)"
-"((in235_0) in_68)"
-"((config236_0) config_61)"
+"((in235_0) in_67)"
+"((config236_0) config_5)"
 "                                                   ((temp237_1) \"#D\"))"
 "(read-symbol-or-number8.1"
 " #f"
@@ -55188,46 +55206,46 @@ static const char *startup_source =
 "(if(unsafe-fx< index_5 27)"
 "(let-values()"
 "(let-values(((temp238_0) #f)"
-"((in239_0) in_68)"
-"((config240_0) config_61)"
+"((in239_0) in_67)"
+"((config240_0) config_5)"
 "                                               ((temp241_1) \"#b\"))"
 "(read-symbol-or-number8.1 #f #f temp241_1 #t temp238_0 in239_0 config240_0)))"
 "(if(unsafe-fx< index_5 28)"
 "(let-values()"
 "(let-values(((temp242_0) #f)"
-"((in243_0) in_68)"
-"((config244_0) config_61)"
+"((in243_0) in_67)"
+"((config244_0) config_5)"
 "                                                 ((temp245_0) \"#x\"))"
 "(read-symbol-or-number8.1 #f #f temp245_0 #t temp242_0 in243_0 config244_0)))"
 "(if(unsafe-fx< index_5 29)"
 "(let-values()"
 "(let-values(((temp246_0) #f)"
-"((in247_0) in_68)"
-"((config248_0) config_61)"
+"((in247_0) in_67)"
+"((config248_0) config_5)"
 "                                                   ((temp249_0) \"#X\"))"
 "(read-symbol-or-number8.1 #f #f temp249_0 #t temp246_0 in247_0 config248_0)))"
 "(let-values()"
 "(let-values(((c2_14)"
-"(let-values(((in_74) in_68)"
-"((source_50)(read-config-source config_61)))"
-"(read-char-or-special in_74 special1.1 source_50))))"
+"(let-values(((in_73) in_67)"
+"((source_49)(read-config-source config_5)))"
+"(read-char-or-special in_73 special1.1 source_49))))"
 "(let-values(((tmp_57) c2_14))"
 "(if(if(equal? tmp_57 '#\\s) #t(equal? tmp_57 '#\\S))"
 "(let-values()"
-"(read-one #f in_68(override-parameter read-case-sensitive config_61 #t)))"
+"(read-one #f in_67(override-parameter read-case-sensitive config_5 #t)))"
 "(if(if(equal? tmp_57 '#\\i) #t(equal? tmp_57 '#\\I))"
 "(let-values()"
 "(read-one"
 " #f"
-" in_68"
-"(override-parameter read-case-sensitive config_61 #f)))"
+" in_67"
+"(override-parameter read-case-sensitive config_5 #f)))"
 "(let-values()"
-"(let-values(((in250_0) in_68)"
-"((config251_0) config_61)"
+"(let-values(((in250_0) in_67)"
+"((config251_0) config_5)"
 "((c2252_0) c2_14)"
 "                                                             ((temp253_0) \"expected `s', `S`, `i', or `I` after `~a~a`\")"
 "((dispatch-c254_0) dispatch-c_5)"
-"((c255_0) c_113))"
+"((c255_0) c_111))"
 "(reader-error10.1"
 " #f"
 " #f"
@@ -55241,37 +55259,37 @@ static const char *startup_source =
 "(list dispatch-c254_0 c255_0))))))))))))"
 "(if(unsafe-fx< index_5 32)"
 "(if(unsafe-fx< index_5 31)"
-"(let-values()(read-hash read-one dispatch-c_5 c_113 in_68 config_61))"
+"(let-values()(read-hash read-one dispatch-c_5 c_111 in_67 config_5))"
 "(let-values()"
-"(let-values(((accum-str_12)(accum-string-init! config_61)))"
+"(let-values(((accum-str_12)(accum-string-init! config_5)))"
 "(let-values((()(begin(accum-string-add! accum-str_12 dispatch-c_5)(values))))"
-"(let-values((()(begin(accum-string-add! accum-str_12 c_113)(values))))"
+"(let-values((()(begin(accum-string-add! accum-str_12 c_111)(values))))"
 "(let-values(((c2_15)"
-"(let-values(((in_75) in_68)"
-"((source_51)(read-config-source config_61)))"
-"(read-char-or-special in_75 special1.1 source_51))))"
+"(let-values(((in_74) in_67)"
+"((source_50)(read-config-source config_5)))"
+"(read-char-or-special in_74 special1.1 source_50))))"
 "(begin"
 "(if(char? c2_15)"
 "(let-values()(accum-string-add! accum-str_12 c2_15))"
 "(void))"
 "(let-values(((tmp_58) c2_15))"
 "(if(equal? tmp_58 '#\\x)"
-"(let-values()(read-regexp c_113 accum-str_12 in_68 config_61))"
+"(let-values()(read-regexp c_111 accum-str_12 in_67 config_5))"
 "(if(equal? tmp_58 '#\\e)"
 "(let-values()"
 "(read-extension-reader"
 " read-one"
 " read-undotted"
 " dispatch-c_5"
-" in_68"
-" config_61))"
+" in_67"
+" config_5))"
 "(let-values()"
-"(let-values(((in256_0) in_68)"
-"((config257_0) config_61)"
+"(let-values(((in256_0) in_67)"
+"((config257_0) config_5)"
 "((c2258_0) c2_15)"
 "((temp259_0)"
 "(let-values(((accum-str260_0) accum-str_12)"
-"((config261_0) config_61))"
+"((config261_0) config_5))"
 "(accum-string-get!6.1"
 " #f"
 " #f"
@@ -55285,27 +55303,27 @@ static const char *startup_source =
 " temp259_0)))))))))))))"
 "(if(unsafe-fx< index_5 33)"
 "(let-values()"
-"(let-values(((accum-str_13)(accum-string-init! config_61)))"
+"(let-values(((accum-str_13)(accum-string-init! config_5)))"
 "(let-values((()(begin(accum-string-add! accum-str_13 dispatch-c_5)(values))))"
-"(let-values((()(begin(accum-string-add! accum-str_13 c_113)(values))))"
+"(let-values((()(begin(accum-string-add! accum-str_13 c_111)(values))))"
 "(let-values(((c2_16)"
-"(let-values(((in_76) in_68)"
-"((source_52)(read-config-source config_61)))"
-"(read-char-or-special in_76 special1.1 source_52))))"
+"(let-values(((in_75) in_67)"
+"((source_51)(read-config-source config_5)))"
+"(read-char-or-special in_75 special1.1 source_51))))"
 "(begin"
 "(if(char? c2_16)"
 "(let-values()(accum-string-add! accum-str_13 c2_16))"
 "(void))"
 "(let-values(((tmp_59) c2_16))"
 "(if(equal? tmp_59 '#\\x)"
-"(let-values()(read-regexp c_113 accum-str_13 in_68 config_61))"
+"(let-values()(read-regexp c_111 accum-str_13 in_67 config_5))"
 "(let-values()"
-"(let-values(((in262_0) in_68)"
-"((config263_0) config_61)"
+"(let-values(((in262_0) in_67)"
+"((config263_0) config_5)"
 "((c2264_0) c2_16)"
 "((temp265_0)"
 "(let-values(((accum-str266_0) accum-str_13)"
-"((config267_0) config_61))"
+"((config267_0) config_5))"
 "(accum-string-get!6.1"
 " #f"
 " #f"
@@ -55321,8 +55339,8 @@ static const char *startup_source =
 "(let-values()"
 "(let-values(((read-undotted268_0) read-undotted)"
 "((dispatch-c269_0) dispatch-c_5)"
-"((in270_0) in_68)"
-"((config271_0) config_61))"
+"((in270_0) in_67)"
+"((config271_0) config_5))"
 "(read-extension-lang7.1"
 " #f"
 " #f"
@@ -55334,8 +55352,8 @@ static const char *startup_source =
 "(let-values()"
 "(let-values(((read-undotted272_0) read-undotted)"
 "((dispatch-c273_0) dispatch-c_5)"
-"((in274_0) in_68)"
-"((config275_0) config_61))"
+"((in274_0) in_67)"
+"((config275_0) config_5))"
 "(read-extension-#!16.1"
 " #f"
 " #f"
@@ -55344,12 +55362,12 @@ static const char *startup_source =
 " in274_0"
 " config275_0)))"
 "(let-values()"
-"(if(check-parameter 1/read-accept-compiled config_61)"
+"(if(check-parameter 1/read-accept-compiled config_5)"
 "(let-values()"
-"(wrap((read-config-read-compiled config_61) in_68) in_68 config_61 c_113))"
+"(wrap((read-config-read-compiled config_5) in_67) in_67 config_5 c_111))"
 "(let-values()"
-"(let-values(((in276_0) in_68)"
-"((config277_0) config_61)"
+"(let-values(((in276_0) in_67)"
+"((config277_0) config_5)"
 "                                                         ((temp278_0) \"`~a~~` compiled expressions not enabled\")"
 "((dispatch-c279_0) dispatch-c_5))"
 "(reader-error10.1"
@@ -55365,10 +55383,10 @@ static const char *startup_source =
 "(list dispatch-c279_0)))))))))))))))))))))))))"
 "(define-values"
 "(retry-special-comment)"
-"(lambda(v_247 in_77 config_62)"
+"(lambda(v_247 in_76 config_60)"
 "(begin"
 "(if(1/special-comment? v_247)"
-"(let-values()(if(read-config-keep-comment? config_62) v_247(read-undotted #f in_77 config_62)))"
+"(let-values()(if(read-config-keep-comment? config_60) v_247(read-undotted #f in_76 config_60)))"
 "(let-values() v_247)))))"
 "(define-values"
 "(1/module-declared?)"
@@ -55639,17 +55657,17 @@ static const char *startup_source =
 "(namespace->module/complain)"
 "(lambda(who_31 ns_113 name_71)"
 "(begin"
-"(let-values(((or-part_361)(namespace->module ns_113 name_71)))"
-"(if or-part_361"
-" or-part_361"
+"(let-values(((or-part_365)(namespace->module ns_113 name_71)))"
+"(if or-part_365"
+" or-part_365"
 "          (raise-arguments-error who_31 \"unknown module in the current namespace\" \"name\" name_71))))))"
 "(define-values"
 "(module-reference?)"
 "(lambda(mod_24)"
 "(begin"
-"(let-values(((or-part_362)(1/module-path? mod_24)))"
-"(if or-part_362"
-" or-part_362"
+"(let-values(((or-part_366)(1/module-path? mod_24)))"
+"(if or-part_366"
+" or-part_366"
 "(let-values(((or-part_134)(1/module-path-index? mod_24)))"
 "(if or-part_134 or-part_134(1/resolved-module-path? mod_24))))))))"
 " (define-values (module-reference-str) \"(or/c module-path? module-path-index? resolved-module-path?)\")"
@@ -55668,22 +55686,22 @@ static const char *startup_source =
 "(1/module-path-index-resolve mpi_47 load?_6))))))))))"
 "(define-values"
 "(read-syntax$1)"
-"(lambda(src_0 in_78)"
+"(lambda(src_0 in_77)"
 "(begin"
 " 'read-syntax"
-"(if(default-read-handler? in_78)"
+"(if(default-read-handler? in_77)"
 "(let-values()"
 "(begin"
-"(maybe-flush-stdout in_78)"
-"(let-values(((in23_2) in_78)((temp24_11) #t)((src25_0) src_0))"
+"(maybe-flush-stdout in_77)"
+"(let-values(((in23_2) in_77)((temp24_11) #t)((src25_0) src_0))"
 "(read*14.1 temp24_11 #f #f #f #f #f #f #f #f src25_0 #t in23_2))))"
-"(let-values()(values((port-read-handler in_78) in_78 src_0)))))))"
+"(let-values()(values((port-read-handler in_77) in_77 src_0)))))))"
 "(define-values"
 "(read-syntax/recursive$1)"
-"(lambda(src_1 in_79 start_57 readtable_4 graph?_1)"
+"(lambda(src_1 in_78 start_57 readtable_4 graph?_1)"
 "(begin"
 " 'read-syntax/recursive"
-"(let-values(((in26_1) in_79)"
+"(let-values(((in26_1) in_78)"
 "((temp27_8) #t)"
 "((temp28_5) #t)"
 "((src29_0) src_1)"
@@ -55730,19 +55748,19 @@ static const char *startup_source =
 " in13_2)"
 "(begin"
 " 'read*14"
-"(let-values(((in_80) in13_2))"
+"(let-values(((in_79) in13_2))"
 "(let-values(((for-syntax?_11) for-syntax?1_0))"
 "(let-values(((recursive?_1)(if recursive?8_0 recursive?2_0 #f)))"
-"(let-values(((source_53)(if source9_0 source3_0 #f)))"
+"(let-values(((source_52)(if source9_0 source3_0 #f)))"
 "(let-values(((init-c_17)(if init-c10_0 init-c4_0 #f)))"
 "(let-values(((readtable_6)(if readtable11_0 readtable5_0(1/current-readtable))))"
 "(let-values(((local-graph?_2)(if local-graph?12_0 local-graph?6_1 #f)))"
 "(let-values()"
 "(let-values()"
-"(let-values(((in41_1) in_80)"
+"(let-values(((in41_1) in_79)"
 "((for-syntax?42_0) for-syntax?_11)"
 "((recursive?43_0) recursive?_1)"
-"((source44_0) source_53)"
+"((source44_0) source_52)"
 "((temp45_2)(if for-syntax?_11 read-to-syntax #f))"
 "((init-c46_0) init-c_17)"
 "((readtable47_0) readtable_6)"
@@ -55784,10 +55802,10 @@ static const char *startup_source =
 " in41_1))))))))))))))"
 "(define-values"
 "(read-language$1)"
-"(lambda(in_81 fail-thunk_0)"
+"(lambda(in_80 fail-thunk_0)"
 "(begin"
 " 'read-language"
-"(let-values(((in54_2) in_81)"
+"(let-values(((in54_2) in_80)"
 "((fail-thunk55_0) fail-thunk_0)"
 "((temp56_1) #t)"
 "((read-to-syntax57_0) read-to-syntax)"
@@ -55817,8 +55835,8 @@ static const char *startup_source =
 "(read-to-syntax)"
 "(lambda(s-exp_4 srcloc_11 rep_1)"
 "(begin"
-"(let-values(((the-struct_90) empty-syntax))"
-"(if(syntax?$1 the-struct_90)"
+"(let-values(((the-struct_89) empty-syntax))"
+"(if(syntax?$1 the-struct_89)"
 "(let-values(((content63_0)(datum-intern-literal s-exp_4))"
 "((srcloc64_0) srcloc_11)"
 "((props65_0)"
@@ -55830,14 +55848,14 @@ static const char *startup_source =
 "(let-values() original-props))))))"
 "(syntax1.1"
 " content63_0"
-"(syntax-scopes the-struct_90)"
-"(syntax-shifted-multi-scopes the-struct_90)"
-"(syntax-scope-propagations+tamper the-struct_90)"
-"(syntax-mpi-shifts the-struct_90)"
+"(syntax-scopes the-struct_89)"
+"(syntax-shifted-multi-scopes the-struct_89)"
+"(syntax-scope-propagations+tamper the-struct_89)"
+"(syntax-mpi-shifts the-struct_89)"
 " srcloc64_0"
 " props65_0"
-"(syntax-inspector the-struct_90)))"
-"          (raise-argument-error 'struct-copy \"syntax?\" the-struct_90))))))"
+"(syntax-inspector the-struct_89)))"
+"          (raise-argument-error 'struct-copy \"syntax?\" the-struct_89))))))"
 "(define-values(original-props)(syntax-props(syntax-property$1 empty-syntax original-property-sym #t)))"
 "(define-values"
 "(original-square-props)"
@@ -55860,19 +55878,19 @@ static const char *startup_source =
 "(define-values(default-read-handler) #f)"
 "(define-values"
 "(default-read-handler?)"
-"(lambda(in_82)"
+"(lambda(in_81)"
 "(begin"
 "(if(not default-read-handler)"
-"(let-values()(begin(set! default-read-handler(port-read-handler in_82)) #t))"
-"(let-values()(eq? default-read-handler(port-read-handler in_82)))))))"
+"(let-values()(begin(set! default-read-handler(port-read-handler in_81)) #t))"
+"(let-values()(eq? default-read-handler(port-read-handler in_81)))))))"
 "(define-values(orig-input-port)(current-input-port))"
 "(define-values(orig-output-port)(current-output-port))"
 "(define-values(orig-error-port)(current-error-port))"
 "(define-values"
 "(maybe-flush-stdout)"
-"(lambda(in_83)"
+"(lambda(in_82)"
 "(begin"
-"(if(eq? in_83 orig-input-port)"
+"(if(eq? in_82 orig-input-port)"
 "(let-values()(begin(flush-output orig-output-port)(flush-output orig-error-port)))"
 "(void)))))"
 "(define-values"
@@ -55906,13 +55924,13 @@ static const char *startup_source =
 "(begin"
 " 'read-syntax5"
 "(let-values(((src_0)(if src3_0 src1_0(object-name(current-input-port)))))"
-"(let-values(((in_78)(if in4_2 in2_0(current-input-port))))"
+"(let-values(((in_77)(if in4_2 in2_0(current-input-port))))"
 "(let-values()"
 "(begin"
-"(if(input-port? in_78)"
+"(if(input-port? in_77)"
 "(void)"
-"                              (let-values () (raise-argument-error 'read-syntax \"input-port?\" in_78)))"
-"(read-syntax$1 src_0 in_78)))))))))"
+"                              (let-values () (raise-argument-error 'read-syntax \"input-port?\" in_77)))"
+"(read-syntax$1 src_0 in_77)))))))))"
 "(case-lambda"
 "(()(begin 'read-syntax(read-syntax5_0 #f #f #f #f)))"
 "((src_2 in2_1)(read-syntax5_0 src_2 in2_1 #t #t))"
@@ -55933,17 +55951,17 @@ static const char *startup_source =
 "(begin"
 " 'read-syntax/recursive17"
 "(let-values(((src_3)(if src12_0 src7_0(object-name(current-input-port)))))"
-"(let-values(((in_84)(if in13_3 in8_3(current-input-port))))"
+"(let-values(((in_83)(if in13_3 in8_3(current-input-port))))"
 "(let-values(((start_59)(if start14_0 start9_0 #f)))"
 "(let-values(((readtable_7)(if readtable15_0 readtable10_0(1/current-readtable))))"
 "(let-values(((graph?_3)(if graph?16_0 graph?11_0 #t)))"
 "(let-values()"
 "(begin"
-"(if(input-port? in_84)"
+"(if(input-port? in_83)"
 "(void)"
-"                                    (let-values () (raise-argument-error 'read-syntax/recursive \"input-port?\" in_84)))"
-"(if(let-values(((or-part_363)(char? start_59)))"
-"(if or-part_363 or-part_363(not start_59)))"
+"                                    (let-values () (raise-argument-error 'read-syntax/recursive \"input-port?\" in_83)))"
+"(if(let-values(((or-part_367)(char? start_59)))"
+"(if or-part_367 or-part_367(not start_59)))"
 "(void)"
 "(let-values()"
 "                                      (raise-argument-error 'read-syntax/recursive \"(or/c char? #f)\" start_59)))"
@@ -55952,14 +55970,14 @@ static const char *startup_source =
 "(void)"
 "(let-values()"
 "                                      (raise-argument-error 'read-syntax/recursive \"(or/c readtable? #f)\" readtable_7)))"
-"(read-syntax/recursive$1 src_3 in_84 start_59 readtable_7 graph?_3))))))))))))"
+"(read-syntax/recursive$1 src_3 in_83 start_59 readtable_7 graph?_3))))))))))))"
 "(case-lambda"
 "(()(begin 'read-syntax/recursive(read-syntax/recursive17_0 #f #f #f #f #f #f #f #f #f #f)))"
 "((src_4 in_12 start_60 readtable_8 graph?11_1)"
 "(read-syntax/recursive17_0 src_4 in_12 start_60 readtable_8 graph?11_1 #t #t #t #t #t))"
-"((src_5 in_85 start_61 readtable10_1)"
-"(read-syntax/recursive17_0 src_5 in_85 start_61 readtable10_1 #f #t #t #t #t #f))"
-"((src_6 in_86 start9_1)(read-syntax/recursive17_0 src_6 in_86 start9_1 #f #f #t #t #t #f #f))"
+"((src_5 in_84 start_61 readtable10_1)"
+"(read-syntax/recursive17_0 src_5 in_84 start_61 readtable10_1 #f #t #t #t #t #f))"
+"((src_6 in_85 start9_1)(read-syntax/recursive17_0 src_6 in_85 start9_1 #f #f #t #t #t #f #f))"
 "((src_7 in8_4)(read-syntax/recursive17_0 src_7 in8_4 #f #f #f #t #t #f #f #f))"
 "((src7_1)(read-syntax/recursive17_0 src7_1 #f #f #f #f #t #f #f #f #f)))))"
 "(define-values"
@@ -55982,15 +56000,15 @@ static const char *startup_source =
 "(lambda(in23_3 start24_0 readtable25_0 graph?26_0 in27_2 start28_1 readtable29_0 graph?30_0)"
 "(begin"
 " 'read/recursive31"
-"(let-values(((in_87)(if in27_2 in23_3(current-input-port))))"
+"(let-values(((in_86)(if in27_2 in23_3(current-input-port))))"
 "(let-values(((start_62)(if start28_1 start24_0 #f)))"
 "(let-values(((readtable_9)(if readtable29_0 readtable25_0(1/current-readtable))))"
 "(let-values(((graph?_4)(if graph?30_0 graph?26_0 #t)))"
 "(let-values()"
 "(begin"
-"(if(input-port? in_87)"
+"(if(input-port? in_86)"
 "(void)"
-"                                  (let-values () (raise-argument-error 'read/recursive \"input-port?\" in_87)))"
+"                                  (let-values () (raise-argument-error 'read/recursive \"input-port?\" in_86)))"
 "(if(let-values(((or-part_167)(char? start_62)))"
 "(if or-part_167 or-part_167(not start_62)))"
 "(void)"
@@ -56000,12 +56018,12 @@ static const char *startup_source =
 "(void)"
 "(let-values()"
 "                                    (raise-argument-error 'read/recursive \"(or/c readtable? #f)\" readtable_9)))"
-"(read/recursive$1 in_87 start_62 readtable_9 graph?_4)))))))))))"
+"(read/recursive$1 in_86 start_62 readtable_9 graph?_4)))))))))))"
 "(case-lambda"
 "(()(begin 'read/recursive(read/recursive31_0 #f #f #f #f #f #f #f #f)))"
 "((in_36 start_63 readtable_10 graph?26_1)(read/recursive31_0 in_36 start_63 readtable_10 graph?26_1 #t #t #t #t))"
-"((in_88 start_64 readtable25_1)(read/recursive31_0 in_88 start_64 readtable25_1 #f #t #t #t #f))"
-"((in_89 start24_1)(read/recursive31_0 in_89 start24_1 #f #f #t #t #f #f))"
+"((in_87 start_64 readtable25_1)(read/recursive31_0 in_87 start_64 readtable25_1 #f #t #t #t #f))"
+"((in_88 start24_1)(read/recursive31_0 in_88 start24_1 #f #f #t #t #f #f))"
 "((in23_4)(read/recursive31_0 in23_4 #f #f #f #t #f #f #f)))))"
 "(define-values"
 "(1/read-language)"
@@ -56029,7 +56047,7 @@ static const char *startup_source =
 "(if(eq? fail-thunk_2 read-language-fail-thunk) #f fail-thunk_2))))))))))"
 "(case-lambda"
 "(()(begin 'read-language(read-language37_0 #f #f #f #f)))"
-"((in_90 fail-thunk34_1)(read-language37_0 in_90 fail-thunk34_1 #t #t))"
+"((in_89 fail-thunk34_1)(read-language37_0 in_89 fail-thunk34_1 #t #t))"
 "((in33_3)(read-language37_0 in33_3 #f #t #f)))))"
 " (define-values (read-language-fail-thunk) (lambda () (begin (error \"fail\"))))"
 "(define-values"
@@ -56217,7 +56235,7 @@ static const char *startup_source =
 " 'for-loop"
 "(if(pair? lst_267)"
 "(let-values(((sym_96)(unsafe-car lst_267))"
-"((rest_176)(unsafe-cdr lst_267)))"
+"((rest_175)(unsafe-cdr lst_267)))"
 "(let-values((()"
 "(let-values()"
 "(let-values((()"
@@ -56236,7 +56254,7 @@ static const char *startup_source =
 "(values)))))"
 "(values)))))"
 "(if(not #f)"
-"(for-loop_20 rest_176)"
+"(for-loop_20 rest_175)"
 "(values))))"
 "(values))))))"
 " for-loop_20)"
@@ -56304,7 +56322,7 @@ static const char *startup_source =
 " 0"
 " #f"
 "(list"
-"(cons 1/prop:missing-module(lambda(e_84)(1/exn:fail:filesystem:missing-module-path e_84))))"
+"(cons 1/prop:missing-module(lambda(e_85)(1/exn:fail:filesystem:missing-module-path e_85))))"
 " #f"
 " #f"
 " '(0)"
@@ -56582,7 +56600,7 @@ static const char *startup_source =
 "(let-values(((opaque-only?_0)(if opaque-only?34_0 opaque-only?33_0 #f)))"
 "(let-values()"
 "(let-values(((exp-s_12)"
-"(let-values(((temp85_2) 'syntax-local-expand-expression)"
+"(let-values(((temp85_3) 'syntax-local-expand-expression)"
 "((s86_1) s_470)"
 "((temp87_3) 'expression)"
 "((null88_0) null)"
@@ -56603,7 +56621,7 @@ static const char *startup_source =
 " #t"
 " temp92_2"
 " #t"
-" temp85_2"
+" temp85_3"
 " s86_1"
 " temp87_3"
 " null88_0"
@@ -56697,9 +56715,9 @@ static const char *startup_source =
 "(values))))"
 "(let-values((()"
 "(begin"
-"(if(let-values(((or-part_356)(not stop-ids_16)))"
-"(if or-part_356"
-" or-part_356"
+"(if(let-values(((or-part_368)(not stop-ids_16)))"
+"(if or-part_368"
+" or-part_368"
 "(if(list? stop-ids_16)"
 "(andmap2 identifier? stop-ids_16)"
 " #f)))"
@@ -56712,9 +56730,9 @@ static const char *startup_source =
 "(values))))"
 "(let-values((()"
 "(begin"
-"(if(let-values(((or-part_364)(not intdefs_9)))"
-"(if or-part_364"
-" or-part_364"
+"(if(let-values(((or-part_369)(not intdefs_9)))"
+"(if or-part_369"
+" or-part_369"
 "(let-values(((or-part_57)"
 "(1/internal-definition-context? intdefs_9)))"
 "(if or-part_57"
@@ -57595,7 +57613,7 @@ static const char *startup_source =
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
 "(let-values()(check-in-hash ht_157)))"
-"((letrec-values(((for-loop_273)"
+"((letrec-values(((for-loop_272)"
 "(lambda(ht_158 i_177)"
 "(begin"
 " 'for-loop"
@@ -57615,12 +57633,12 @@ static const char *startup_source =
 " v_50))))"
 "(values ht_47)))))"
 "(if(not #f)"
-"(for-loop_273"
+"(for-loop_272"
 " ht_159"
 "(hash-iterate-next ht_157 i_177))"
 " ht_159)))"
 " ht_158)))))"
-" for-loop_273)"
+" for-loop_272)"
 " ht_155"
 "(hash-iterate-first ht_157))))))"
 "(let-values(((to-name61_0) to-name_0)"
@@ -57679,7 +57697,7 @@ static const char *startup_source =
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
 "(let-values()(check-in-hash-keys ht_162)))"
-"((letrec-values(((for-loop_274)"
+"((letrec-values(((for-loop_273)"
 "(lambda(table_212 i_178)"
 "(begin"
 " 'for-loop"
@@ -57735,10 +57753,10 @@ static const char *startup_source =
 " sym78_0))))"
 "(values"
 " sym_98"
-"(if(let-values(((or-part_365)"
+"(if(let-values(((or-part_370)"
 " protected?_11))"
-"(if or-part_365"
-" or-part_365"
+"(if or-part_370"
+" or-part_370"
 "(member"
 " sym_98"
 " protected-syms_0)))"
@@ -57754,14 +57772,14 @@ static const char *startup_source =
 "(values"
 " table_40)))))"
 "(if(not #f)"
-"(for-loop_274"
+"(for-loop_273"
 " table_213"
 "(hash-iterate-next"
 " ht_162"
 " i_178))"
 " table_213)))"
 " table_212)))))"
-" for-loop_274)"
+" for-loop_273)"
 " '#hash()"
 "(hash-iterate-first ht_162))))))"
 "((temp75_2)"
@@ -57781,7 +57799,7 @@ static const char *startup_source =
 "(#%variable-reference))"
 "(void)"
 "(let-values()(check-in-hash ht_163)))"
-"((letrec-values(((for-loop_275)"
+"((letrec-values(((for-loop_274)"
 "(lambda(i_179)"
 "(begin"
 " 'for-loop"
@@ -57804,13 +57822,13 @@ static const char *startup_source =
 "(values)))))"
 "(values)))))"
 "(if(not #f)"
-"(for-loop_275"
+"(for-loop_274"
 "(hash-iterate-next"
 " ht_163"
 " i_179))"
 "(values))))"
 "(values))))))"
-" for-loop_275)"
+" for-loop_274)"
 "(hash-iterate-first ht_163))))"
 "(void)))"
 "(void)))))"
@@ -57900,7 +57918,7 @@ static const char *startup_source =
 "(let-values(((temp82_6) #t)"
 "((temp83_4) #t)"
 "((mpi84_0) mpi_50)"
-"((temp85_3)(list(cons 0 require-mpis_0)))"
+"((temp85_4)(list(cons 0 require-mpis_0)))"
 "((temp86_1)"
 "(if reexport?_0"
 "(hasheqv"
@@ -57910,15 +57928,15 @@ static const char *startup_source =
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
 "(let-values()(check-list lst_54)))"
-"((letrec-values(((for-loop_276)"
-"(lambda(table_214 lst_314)"
+"((letrec-values(((for-loop_275)"
+"(lambda(table_214 lst_312)"
 "(begin"
 " 'for-loop"
-"(if(pair? lst_314)"
+"(if(pair? lst_312)"
 "(let-values(((require-mpi_0)"
-"(unsafe-car lst_314))"
-"((rest_177)"
-"(unsafe-cdr lst_314)))"
+"(unsafe-car lst_312))"
+"((rest_176)"
+"(unsafe-cdr lst_312)))"
 "(let-values(((table_110)"
 "(let-values(((m_29)"
 "(namespace->module"
@@ -57927,7 +57945,7 @@ static const char *startup_source =
 " require-mpi_0))))"
 "(begin"
 " #t"
-"((letrec-values(((for-loop_277)"
+"((letrec-values(((for-loop_276)"
 "(lambda(table_31)"
 "(begin"
 " 'for-loop"
@@ -57949,7 +57967,7 @@ static const char *startup_source =
 "(let-values()"
 "(check-in-hash"
 " ht_164)))"
-"((letrec-values(((for-loop_278)"
+"((letrec-values(((for-loop_277)"
 "(lambda(table_112"
 " i_180)"
 "(begin"
@@ -57979,25 +57997,25 @@ static const char *startup_source =
 " table_216)))))"
 "(if(not"
 " #f)"
-"(for-loop_278"
+"(for-loop_277"
 " table_215"
 "(hash-iterate-next"
 " ht_164"
 " i_180))"
 " table_215)))"
 " table_112)))))"
-" for-loop_278)"
+" for-loop_277)"
 " table_31"
 "(hash-iterate-first"
 " ht_164))))))"
 " table_32))))))"
-" for-loop_277)"
+" for-loop_276)"
 " table_214)))))"
 "(if(not #f)"
-"(for-loop_276 table_110 rest_177)"
+"(for-loop_275 table_110 rest_176)"
 " table_110)))"
 " table_214)))))"
-" for-loop_276)"
+" for-loop_275)"
 " '#hash()"
 " lst_54))))"
 " '#hasheqv()))"
@@ -58027,7 +58045,7 @@ static const char *startup_source =
 " #f"
 " #f"
 " temp86_1"
-" temp85_3"
+" temp85_4"
 " #t"
 " mpi84_0"
 " #f"
@@ -58387,8 +58405,8 @@ static const char *startup_source =
 "(check-module-form)"
 "(lambda(exp_0 filename_1)"
 "(begin"
-"(if(let-values(((or-part_302)(eof-object? exp_0)))"
-"(if or-part_302 or-part_302(eof-object?(1/syntax-e exp_0))))"
+"(if(let-values(((or-part_304)(eof-object? exp_0)))"
+"(if or-part_304 or-part_304(eof-object?(1/syntax-e exp_0))))"
 "(let-values()"
 "(if filename_1"
 "(error"
@@ -58468,9 +58486,9 @@ static const char *startup_source =
 "(lambda()"
 "(let-values(((c1_31)(linklet-directory-start i_181)))"
 "(if c1_31"
-"((lambda(pos_125)"
+"((lambda(pos_126)"
 "(let-values(((b-pos_0)"
-"(search-directory i_181 pos_125(encode-symbols expected-mod_0))))"
+"(search-directory i_181 pos_126(encode-symbols expected-mod_0))))"
 "(if b-pos_0"
 "(let-values()"
 "(begin"
@@ -58539,7 +58557,7 @@ static const char *startup_source =
 "(begin"
 " 'add-top-interaction"
 "(1/namespace-syntax-introduce"
-"(1/datum->syntax #f(cons '#%top-interaction s_424)))))))"
+"(1/datum->syntax s_424(cons '#%top-interaction s_424)))))))"
 "(let-values(((path1_0) path_12)"
 "((temp2_7)"
 "(lambda(i_75)"
@@ -58631,11 +58649,11 @@ static const char *startup_source =
 "(begin"
 " #f"
 "((letrec-values(((for-loop_225)"
-"(lambda(result_117 pos_126)"
+"(lambda(result_117 pos_127)"
 "(begin"
 " 'for-loop"
-"(if(unsafe-fx< pos_126 len_39)"
-"(let-values(((c_73)(unsafe-bytes-ref vec_66 pos_126)))"
+"(if(unsafe-fx< pos_127 len_39)"
+"(let-values(((c_73)(unsafe-bytes-ref vec_66 pos_127)))"
 "(let-values(((result_118)"
 "(let-values()"
 "(let-values(((result_119)"
@@ -58643,7 +58661,7 @@ static const char *startup_source =
 "(let-values()(not(eq? c_73 0))))))"
 "(values result_119)))))"
 "(if(if(not((lambda x_91 result_118) c_73))(not #f) #f)"
-"(for-loop_225 result_118(unsafe-fx+ 1 pos_126))"
+"(for-loop_225 result_118(unsafe-fx+ 1 pos_127))"
 " result_118)))"
 " result_117)))))"
 " for-loop_225)"
@@ -58677,12 +58695,12 @@ static const char *startup_source =
 "(arithmetic-shift(read-byte/not-eof_0 i_41) 24))))))"
 "(define-values"
 "(search-directory)"
-"(lambda(i_184 pos_127 bstr_5)"
+"(lambda(i_184 pos_128 bstr_5)"
 "(begin"
-"(if(zero? pos_127)"
+"(if(zero? pos_128)"
 "(let-values() #f)"
 "(let-values()"
-"(let-values((()(begin(file-position i_184 pos_127)(values))))"
+"(let-values((()(begin(file-position i_184 pos_128)(values))))"
 "(let-values(((name-len_0)(read-number i_184)))"
 "(let-values(((v_248)(read-bytes name-len_0 i_184)))"
 "(begin"
@@ -58698,7 +58716,7 @@ static const char *startup_source =
 "                        \"  expected bytes: ~a\\n\""
 "                        \"  read bytes: ~e\")"
 "(object-name i_184)"
-" pos_127"
+" pos_128"
 " name-len_0"
 " v_248)))"
 "(if(bytes=? bstr_5 v_248)"
@@ -58725,11 +58743,11 @@ static const char *startup_source =
 "(apply"
 " bytes-append"
 "(reverse$1"
-"(let-values(((lst_315)(cdr expected-mod_1)))"
+"(let-values(((lst_313)(cdr expected-mod_1)))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
-"(let-values()(check-list lst_315)))"
+"(let-values()(check-list lst_313)))"
 "((letrec-values(((for-loop_100)"
 "(lambda(fold-var_63 lst_91)"
 "(begin"
@@ -58767,7 +58785,7 @@ static const char *startup_source =
 " fold-var_63)))))"
 " for-loop_100)"
 " null"
-" lst_315))))))))))"
+" lst_313))))))))))"
 "(define-values"
 "(with-module-reading-parameterization+delay-source)"
 "(lambda(path_13 thunk_7)"
@@ -58831,7 +58849,7 @@ static const char *startup_source =
 "(if am_0(if bm_0(if(>=(cdr am_0)(cdr bm_0)) am_0 #f) #f) #f))))"
 " #f)))))"
 "(let-values(((with-dir*_0)"
-"(lambda(base_24 t_55)"
+"(lambda(base_25 t_55)"
 "(begin"
 " 'with-dir*"
 "(with-continuation-mark"
@@ -58839,7 +58857,7 @@ static const char *startup_source =
 "(extend-parameterization"
 "(continuation-mark-set-first #f parameterization-key)"
 " current-load-relative-directory"
-"(if(path? base_24) base_24(current-directory)))"
+"(if(path? base_25) base_25(current-directory)))"
 "(let-values()(t_55)))))))"
 "(lambda(path_15 expect-module_0)"
 "(begin"
@@ -58890,7 +58908,7 @@ static const char *startup_source =
 "(caddr use-path/src_0)"
 "(lambda()((1/current-load)(car use-path/src_0) expect-module_0)))))"
 "(let-values(((orig-path_0)(resolve_0 path_15)))"
-"(let-values(((base_22 orig-file_0 dir?_7)(split-path path_15)))"
+"(let-values(((base_23 orig-file_0 dir?_7)(split-path path_15)))"
 "(let-values(((file_1 alt-file_0)"
 "(if expect-module_0"
 "(let-values(((b_88)(path->bytes orig-file_0)))"
@@ -58906,25 +58924,25 @@ static const char *startup_source =
 "(let-values()(values orig-file_0 #f)))))"
 "(values orig-file_0 #f))))"
 "(let-values(((path_16)"
-"(if(eq? file_1 orig-file_0) orig-path_0(build-path base_22 file_1))))"
+"(if(eq? file_1 orig-file_0) orig-path_0(build-path base_23 file_1))))"
 "(let-values(((alt-path_0)"
 "(if alt-file_0"
 "(if(eq? alt-file_0 orig-file_0)"
 " orig-path_0"
-"(build-path base_22 alt-file_0))"
+"(build-path base_23 alt-file_0))"
 " #f)))"
-"(let-values(((base_25)(if(eq? base_22 'relative) 'same base_22)))"
+"(let-values(((base_26)(if(eq? base_23 'relative) 'same base_23)))"
 "(let-values(((modes_3)(1/use-compiled-file-paths)))"
 "(let-values(((roots_3)(1/current-compiled-file-roots)))"
 "(let-values(((reroot_0)"
-"(lambda(p_71 d_36)"
+"(lambda(p_72 d_36)"
 "(begin"
 " 'reroot"
 "(if(eq? d_36 'same)"
-"(let-values() p_71)"
+"(let-values() p_72)"
 "(if(relative-path? d_36)"
-"(let-values()(build-path p_71 d_36))"
-"(let-values()(reroot-path p_71 d_36))))))))"
+"(let-values()(build-path p_72 d_36))"
+"(let-values()(reroot-path p_72 d_36))))))))"
 "(let-values(((main-path-d_0)(date-of-1_0 path_16)))"
 "(let-values(((alt-path-d_0)"
 "(if alt-path_0"
@@ -58939,7 +58957,7 @@ static const char *startup_source =
 " 'get-so"
 "(lambda(root-dir_1 compiled-dir_1)"
 "(build-path"
-"(reroot_0 base_25 root-dir_1)"
+"(reroot_0 base_26 root-dir_1)"
 " compiled-dir_1"
 "                                                                         \"native\""
 "(system-library-subpath)"
@@ -58951,7 +58969,7 @@ static const char *startup_source =
 "(begin"
 " 'zo"
 "(build-path"
-"(reroot_0 base_25 root-dir_2)"
+"(reroot_0 base_26 root-dir_2)"
 " compiled-dir_2"
 "                                                                         (path-add-extension file_1 #\".zo\"))))))"
 "(let-values(((alt-zo_0)"
@@ -58959,7 +58977,7 @@ static const char *startup_source =
 "(begin"
 " 'alt-zo"
 "(build-path"
-"(reroot_0 base_25 root-dir_3)"
+"(reroot_0 base_26 root-dir_3)"
 " compiled-dir_3"
 "                                                                           (path-add-extension alt-file_0 #\".zo\"))))))"
 "(let-values(((so_0)(get-so_0 file_1 #t)))"
@@ -58981,7 +58999,7 @@ static const char *startup_source =
 "(lambda(t_56)"
 "(begin"
 " 'with-dir"
-"(with-dir*_0 base_25 t_56)))))"
+"(with-dir*_0 base_26 t_56)))))"
 "(let-values(((c1_32)"
 "(if try-main?_0"
 "(date>=?_0"
@@ -59048,7 +59066,7 @@ static const char *startup_source =
 " ns-hts_0"
 "(car zo-d_0)"
 " #f"
-" base_25)"
+" base_26)"
 "(with-continuation-mark"
 " parameterization-key"
 "(extend-parameterization"
@@ -59080,7 +59098,7 @@ static const char *startup_source =
 " ns-hts_0"
 "(car zo-d_1)"
 " alt-path_0"
-" base_25)"
+" base_26)"
 "(with-continuation-mark"
 " parameterization-key"
 "(extend-parameterization"
@@ -59096,12 +59114,12 @@ static const char *startup_source =
 "(car zo-d_1)"
 " expect-module_0)))))))"
 " c4_3)"
-"(if(let-values(((or-part_352)"
+"(if(let-values(((or-part_354)"
 "(not"
 "(pair?"
 " expect-module_0))))"
-"(if or-part_352"
-" or-part_352"
+"(if or-part_354"
+" or-part_354"
 "(car expect-module_0)))"
 "(let-values()"
 "(let-values(((p_38)"
@@ -59136,14 +59154,14 @@ static const char *startup_source =
 "(void))))))))))))))))))))))))))))))))))))))))))))"
 "(define-values"
 "(register-zo-path)"
-"(lambda(name_76 ns-hts_1 path_17 src-path_0 base_26)"
-"(begin(if ns-hts_1(let-values()(hash-set!(cdr ns-hts_1) name_76(list path_17 src-path_0 base_26)))(void)))))"
+"(lambda(name_76 ns-hts_1 path_17 src-path_0 base_27)"
+"(begin(if ns-hts_1(let-values()(hash-set!(cdr ns-hts_1) name_76(list path_17 src-path_0 base_27)))(void)))))"
 "(define-values(default-reader-guard)(lambda(path_18)(begin path_18)))"
 "(define-values(-module-hash-table-table)(make-weak-hasheq))"
 "(define-values"
 "(registry-table-ref)"
 "(lambda(reg_0)"
-"(begin(let-values(((e_85)(hash-ref -module-hash-table-table reg_0 #f)))(if e_85(ephemeron-value e_85) #f)))))"
+"(begin(let-values(((e_86)(hash-ref -module-hash-table-table reg_0 #f)))(if e_86(ephemeron-value e_86) #f)))))"
 "(define-values"
 "(registry-table-set!)"
 "(lambda(reg_1 v_202)(begin(hash-set! -module-hash-table-table reg_1(make-ephemeron reg_1 v_202)))))"
@@ -59151,24 +59169,24 @@ static const char *startup_source =
 "(define-values(-path-cache)(make-vector CACHE-N #f))"
 "(define-values"
 "(path-cache-get)"
-"(lambda(p_72)"
+"(lambda(p_73)"
 "(begin"
-"(let-values(((i_26)(modulo(abs(equal-hash-code p_72)) CACHE-N)))"
+"(let-values(((i_26)(modulo(abs(equal-hash-code p_73)) CACHE-N)))"
 "(let-values(((w_1)(vector-ref -path-cache i_26)))"
 "(let-values(((l_80)(if w_1(weak-box-value w_1) #f)))"
-"(if l_80(let-values(((a_71)(1/assoc p_72 l_80)))(if a_71(cdr a_71) #f)) #f)))))))"
+"(if l_80(let-values(((a_71)(1/assoc p_73 l_80)))(if a_71(cdr a_71) #f)) #f)))))))"
 "(define-values"
 "(path-cache-set!)"
-"(lambda(p_73 v_249)"
+"(lambda(p_74 v_249)"
 "(begin"
-"(let-values(((i_100)(modulo(abs(equal-hash-code p_73)) CACHE-N)))"
+"(let-values(((i_100)(modulo(abs(equal-hash-code p_74)) CACHE-N)))"
 "(let-values(((w_2)(vector-ref -path-cache i_100)))"
 "(let-values(((l_67)(if w_2(weak-box-value w_2) #f)))"
 "(vector-set!"
 " -path-cache"
 " i_100"
 "(make-weak-box"
-"(cons(cons p_73 v_249)(let-values(((or-part_35) l_67))(if or-part_35 or-part_35 null)))))))))))"
+"(cons(cons p_74 v_249)(let-values(((or-part_35) l_67))(if or-part_35 or-part_35 null)))))))))))"
 "(define-values(-loading-filename)(gensym))"
 "(define-values(-loading-prompt-tag)(make-continuation-prompt-tag 'module-loading))"
 "(define-values(-prev-relto) #f)"
@@ -59207,8 +59225,8 @@ static const char *startup_source =
 " 'loop"
 "(if(null?(cdr l_78))"
 "(values null(car l_78))"
-"(let-values(((c_118 f_39)(loop_100(cdr l_78))))"
-"(values(cons(car l_78) c_118) f_39)))))))"
+"(let-values(((c_116 f_39)(loop_100(cdr l_78))))"
+"(values(cons(car l_78) c_116) f_39)))))))"
 " loop_100)"
 " l_19))))))"
 "(define-values"
@@ -59259,11 +59277,11 @@ static const char *startup_source =
 " from-namespace_1)))"
 "(if planet-resolver_0(let-values()(planet-resolver_0 s_470))(void))"
 "(let-values(((hts_1)"
-"(let-values(((or-part_304)"
+"(let-values(((or-part_306)"
 "(registry-table-ref"
 "(1/namespace-module-registry(1/current-namespace)))))"
-"(if or-part_304"
-" or-part_304"
+"(if or-part_306"
+" or-part_306"
 "(let-values(((hts_2)(cons(make-hasheq)(make-hasheq))))"
 "(begin"
 "(registry-table-set!"
@@ -59334,7 +59352,7 @@ static const char *startup_source =
 " stx_18)))"
 "(values))))"
 "(let-values(((flatten-sub-path_0)"
-"(lambda(base_27 orig-l_10)"
+"(lambda(base_28 orig-l_10)"
 "(begin"
 " 'flatten-sub-path"
 "((letrec-values(((loop_117)"
@@ -59344,8 +59362,8 @@ static const char *startup_source =
 "(if(null? l_33)"
 "(let-values()"
 "(if(null? a_73)"
-" base_27"
-"(cons base_27(reverse$1 a_73))))"
+" base_28"
+"(cons base_28(reverse$1 a_73))))"
 "                                                                           (if (equal? (car l_33) \"..\")"
 "(let-values()"
 "(if(null? a_73)"
@@ -59354,15 +59372,15 @@ static const char *startup_source =
 "                                                                                  \"too many \\\"..\\\"s in submodule path: ~.s\""
 "(list*"
 " 'submod"
-"                                                                                   (if (equal? base_27 \".\")"
-" base_27"
-"(if(path? base_27)"
-" base_27"
+"                                                                                   (if (equal? base_28 \".\")"
+" base_28"
+"(if(path? base_28)"
+" base_28"
 "(list"
-"(if(symbol? base_27)"
+"(if(symbol? base_28)"
 " 'quote"
 " 'file)"
-" base_27)))"
+" base_28)))"
 " orig-l_10))"
 "(loop_117(cdr a_73)(cdr l_33))))"
 "(let-values()"
@@ -59386,11 +59404,11 @@ static const char *startup_source =
 "                                               (if (let-values (((or-part_94) (equal? (cadr s_26) \".\")))"
 "                                                     (if or-part_94 or-part_94 (equal? (cadr s_26) \"..\")))"
 "(if relto_1"
-"(let-values(((p_74)(1/resolved-module-path-name relto_1)))"
-"(let-values(((or-part_366)(symbol? p_74)))"
-"(if or-part_366"
-" or-part_366"
-"(if(pair? p_74)(symbol?(car p_74)) #f))))"
+"(let-values(((p_75)(1/resolved-module-path-name relto_1)))"
+"(let-values(((or-part_371)(symbol? p_75)))"
+"(if or-part_371"
+" or-part_371"
+"(if(pair? p_75)(symbol?(car p_75)) #f))))"
 " #f)"
 " #f)"
 " #f)"
@@ -59432,24 +59450,24 @@ static const char *startup_source =
 "(if relto_1"
 "(if(eq? relto_1 -prev-relto)"
 " -prev-relto-dir"
-"(let-values(((p_75)"
+"(let-values(((p_76)"
 "(1/resolved-module-path-name"
 " relto_1)))"
-"(let-values(((p_76)"
-"(if(pair? p_75)"
-"(car p_75)"
-" p_75)))"
-"(if(path? p_76)"
-"(let-values(((base_28"
+"(let-values(((p_77)"
+"(if(pair? p_76)"
+"(car p_76)"
+" p_76)))"
+"(if(path? p_77)"
+"(let-values(((base_29"
 " n_35"
 " d?_0)"
 "(split-path"
-" p_76)))"
+" p_77)))"
 "(begin"
 "(set! -prev-relto relto_1)"
 "(set! -prev-relto-dir"
-" base_28)"
-" base_28))"
+" base_29)"
+" base_29))"
 " #f))))"
 " #f)))"
 "(if or-part_55"
@@ -59521,24 +59539,24 @@ static const char *startup_source =
 "                                                                      \".rkt\")"
 " s_475)))))"
 "((path-ss->rkt_0)"
-"(lambda(p_77)"
+"(lambda(p_78)"
 "(begin"
 " 'path-ss->rkt"
-"(let-values(((base_29 name_77 dir?_8)"
-"(split-path p_77)))"
+"(let-values(((base_30 name_77 dir?_8)"
+"(split-path p_78)))"
 "                                                                   (if (regexp-match '#rx\"[.]ss$\" (path->bytes name_77))"
-"                                                                     (path-replace-extension p_77 #\".rkt\")"
-" p_77)))))"
+"                                                                     (path-replace-extension p_78 #\".rkt\")"
+" p_78)))))"
 "((s_31)"
 "(if(if(pair? s_26)(eq? 'submod(car s_26)) #f)"
 "(let-values(((v_38)(cadr s_26)))"
-"                                                                 (if (let-values (((or-part_367) (equal? v_38 \".\")))"
-"                                                                       (if or-part_367 or-part_367 (equal? v_38 \"..\")))"
+"                                                                 (if (let-values (((or-part_372) (equal? v_38 \".\")))"
+"                                                                       (if or-part_372 or-part_372 (equal? v_38 \"..\")))"
 "(if relto_1"
-"(let-values(((p_78)"
+"(let-values(((p_79)"
 "(1/resolved-module-path-name"
 " relto_1)))"
-"(if(pair? p_78)(car p_78) p_78))"
+"(if(pair? p_79)(car p_79) p_79))"
 "(error"
 " 'standard-module-name-resolver"
 "                                                                      \"no base path for relative submodule path: ~.s\""
@@ -59547,7 +59565,7 @@ static const char *startup_source =
 " s_26))"
 "((subm-path_0)"
 "(if(if(pair? s_26)(eq? 'submod(car s_26)) #f)"
-"(let-values(((p_79)"
+"(let-values(((p_80)"
 "(if(if(let-values(((or-part_208)"
 "(equal?"
 "(cadr s_26)"
@@ -59557,7 +59575,7 @@ static const char *startup_source =
 "                                                                                         (equal? (cadr s_26) \"..\")))"
 " relto_1"
 " #f)"
-"(let-values(((p_80)"
+"(let-values(((p_81)"
 "(1/resolved-module-path-name"
 " relto_1))"
 "((r_15)"
@@ -59566,26 +59584,26 @@ static const char *startup_source =
 "                                                                                                  \"..\")"
 "(cdr s_26)"
 "(cddr s_26))))"
-"(if(pair? p_80)"
+"(if(pair? p_81)"
 "(flatten-sub-path_0"
-"(car p_80)"
-"(append(cdr p_80) r_15))"
-"(flatten-sub-path_0 p_80 r_15)))"
+"(car p_81)"
+"(append(cdr p_81) r_15))"
+"(flatten-sub-path_0 p_81 r_15)))"
 "(flatten-sub-path_0"
 "                                                                                \".\""
 "                                                                                (if (equal? (cadr s_26) \"..\")"
 "(cdr s_26)"
 "(cddr s_26))))))"
-"(if(pair? p_79)(cdr p_79) #f))"
+"(if(pair? p_80)(cdr p_80) #f))"
 " #f)))"
 "(let-values(((s-parsed_0)"
 "(if(symbol? s_31)"
 "(let-values()"
-"(let-values(((or-part_368)"
+"(let-values(((or-part_358)"
 "(path-cache-get"
 "(cons s_31(get-reg_0)))))"
-"(if or-part_368"
-" or-part_368"
+"(if or-part_358"
+" or-part_358"
 "(let-values(((cols_0 file_3)"
 "(split-relative-string"
 "(symbol->string s_31)"
@@ -59605,11 +59623,11 @@ static const char *startup_source =
 "(if(string? s_31)"
 "(let-values()"
 "(let-values(((dir_4)(get-dir_0)))"
-"(let-values(((or-part_369)"
+"(let-values(((or-part_373)"
 "(path-cache-get"
 "(cons s_31 dir_4))))"
-"(if or-part_369"
-" or-part_369"
+"(if or-part_373"
+" or-part_373"
 "(let-values(((cols_1 file_4)"
 "(split-relative-string"
 " s_31"
@@ -59676,9 +59694,9 @@ static const char *startup_source =
 "(apply"
 " append"
 "(map2"
-"(lambda(p_81)"
+"(lambda(p_82)"
 "(split-relative-string"
-" p_81"
+" p_82"
 " #t))"
 "(cddr s_31))))"
 " cols_2)"
@@ -59700,8 +59718,8 @@ static const char *startup_source =
 "(get-dir_0)))))"
 "(void))))))))"
 "(begin"
-"(if(let-values(((or-part_370)(path? s-parsed_0)))"
-"(if or-part_370 or-part_370(vector? s-parsed_0)))"
+"(if(let-values(((or-part_374)(path? s-parsed_0)))"
+"(if or-part_374 or-part_374(vector? s-parsed_0)))"
 "(void)"
 "(let-values()"
 "(if stx_18"
@@ -59723,7 +59741,7 @@ static const char *startup_source =
 "(if(vector? s-parsed_0)"
 "(vector-ref s-parsed_0 1)"
 "(normal-case-path filename_2))))"
-"(let-values(((base_30 name_19 dir?_9)"
+"(let-values(((base_31 name_19 dir?_9)"
 "(if(vector? s-parsed_0)"
 "(values"
 " 'ignored"
@@ -59739,11 +59757,11 @@ static const char *startup_source =
 "(vector-ref s-parsed_0 4)"
 "(1/make-resolved-module-path filename_2))))"
 "(let-values(((hts_3)"
-"(let-values(((or-part_371)"
+"(let-values(((or-part_375)"
 "(registry-table-ref"
 "(get-reg_0))))"
-"(if or-part_371"
-" or-part_371"
+"(if or-part_375"
+" or-part_375"
 "(let-values(((hts_4)"
 "(cons"
 "(make-hasheq)"
@@ -59841,10 +59859,10 @@ static const char *startup_source =
 " root-modname_0"
 " 1/current-module-path-for-load"
 "((if stx_18"
-"(lambda(p_82)"
+"(lambda(p_83)"
 "(1/datum->syntax"
 " #f"
-" p_82"
+" p_83"
 " stx_18))"
 " values)"
 "(if(symbol? s_31)"
@@ -59885,10 +59903,10 @@ static const char *startup_source =
 "(void))"
 "(if(if(not(vector? s-parsed_0))"
 "(if load?_7"
-"(let-values(((or-part_372)"
+"(let-values(((or-part_376)"
 "(string? s_31)))"
-"(if or-part_372"
-" or-part_372"
+"(if or-part_376"
+" or-part_376"
 "(let-values(((or-part_51)"
 "(symbol? s_31)))"
 "(if or-part_51"
@@ -59919,14 +59937,14 @@ static const char *startup_source =
 "(1/eval"
 " s_59"
 "(1/current-namespace)"
-"(let-values(((c_119)(1/current-compile)))"
-"(lambda(e_86 ns_16)"
+"(let-values(((c_117)(1/current-compile)))"
+"(lambda(e_87 ns_16)"
 "(if(eq? ns_16(1/current-namespace))"
-"(c_119 e_86 #t)"
+"(c_117 e_87 #t)"
 "(with-continuation-mark"
 " parameterization-key"
 "(extend-parameterization(continuation-mark-set-first #f parameterization-key) 1/current-namespace ns_16)"
-"(let-values()(c_119 e_86 #t))))))))))"
+"(let-values()(c_117 e_87 #t))))))))))"
 "(define-values"
 "(default-compile-handler)"
 "(lambda(s_60 immediate-eval?_0)(begin(1/compile s_60(1/current-namespace)(not immediate-eval?_0)))))"
@@ -60001,7 +60019,7 @@ static const char *startup_source =
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
 "(let-values()(check-list lst_265)))"
-"((letrec-values(((for-loop_279)"
+"((letrec-values(((for-loop_278)"
 "(lambda(fold-var_68 lst_170)"
 "(begin"
 " 'for-loop"
@@ -60020,10 +60038,10 @@ static const char *startup_source =
 " fold-var_12))))"
 "(values fold-var_211)))))"
 "(if(not #f)"
-"(for-loop_279 fold-var_11 rest_141)"
+"(for-loop_278 fold-var_11 rest_141)"
 " fold-var_11)))"
 " fold-var_68)))))"
-" for-loop_279)"
+" for-loop_278)"
 " null"
 " lst_265))))))"
 "(let-values((()"
@@ -60044,8 +60062,8 @@ static const char *startup_source =
 "(let-values(((def-ctx-scopes_6)(box null)))"
 "(let-values(((body-ctx_0)"
 "(let-values(((v_250) ctx_14))"
-"(let-values(((the-struct_91) v_250))"
-"(if(expand-context/outer? the-struct_91)"
+"(let-values(((the-struct_90) v_250))"
+"(if(expand-context/outer? the-struct_90)"
 "(let-values(((context51_0)(list(make-liberal-define-context)))"
 "((name52_0) #f)"
 "((only-immediate?53_0) #t)"
@@ -60067,20 +60085,20 @@ static const char *startup_source =
 " use-site-scopes58_0"
 " frame-id59_0"
 " context51_0"
-"(expand-context/outer-env the-struct_91)"
+"(expand-context/outer-env the-struct_90)"
 " post-expansion-scope-action56_0"
 " scopes57_1"
 " def-ctx-scopes54_0"
-"(expand-context/outer-binding-layer the-struct_91)"
+"(expand-context/outer-binding-layer the-struct_90)"
 " reference-records60_0"
 " only-immediate?53_0"
-"(expand-context/outer-need-eventually-defined the-struct_91)"
-"(expand-context/outer-current-introduction-scopes the-struct_91)"
+"(expand-context/outer-need-eventually-defined the-struct_90)"
+"(expand-context/outer-current-introduction-scopes the-struct_90)"
 " name52_0))"
 "(raise-argument-error"
 " 'struct-copy"
 "                                                   \"expand-context/outer?\""
-" the-struct_91))))))"
+" the-struct_90))))))"
 "(let-values(((maybe-increment-binding-layer_0)"
 "(lambda(ids_28 body-ctx_1)"
 "(begin"
@@ -60157,10 +60175,10 @@ static const char *startup_source =
 " #f)"
 "(let-values(((v_227)"
 " body-ctx_2))"
-"(let-values(((the-struct_92)"
+"(let-values(((the-struct_91)"
 " v_227))"
 "(if(expand-context/outer?"
-" the-struct_92)"
+" the-struct_91)"
 "(let-values(((name77_0)"
 " name_78)"
 "((inner78_0)"
@@ -60169,36 +60187,36 @@ static const char *startup_source =
 "(expand-context/outer1.1"
 " inner78_0"
 "(root-expand-context/outer-post-expansion-scope"
-" the-struct_92)"
+" the-struct_91)"
 "(root-expand-context/outer-use-site-scopes"
-" the-struct_92)"
+" the-struct_91)"
 "(root-expand-context/outer-frame-id"
-" the-struct_92)"
+" the-struct_91)"
 "(expand-context/outer-context"
-" the-struct_92)"
+" the-struct_91)"
 "(expand-context/outer-env"
-" the-struct_92)"
+" the-struct_91)"
 "(expand-context/outer-post-expansion-scope-action"
-" the-struct_92)"
+" the-struct_91)"
 "(expand-context/outer-scopes"
-" the-struct_92)"
+" the-struct_91)"
 "(expand-context/outer-def-ctx-scopes"
-" the-struct_92)"
+" the-struct_91)"
 "(expand-context/outer-binding-layer"
-" the-struct_92)"
+" the-struct_91)"
 "(expand-context/outer-reference-records"
-" the-struct_92)"
+" the-struct_91)"
 "(expand-context/outer-only-immediate?"
-" the-struct_92)"
+" the-struct_91)"
 "(expand-context/outer-need-eventually-defined"
-" the-struct_92)"
+" the-struct_91)"
 "(expand-context/outer-current-introduction-scopes"
-" the-struct_92)"
+" the-struct_91)"
 " name77_0))"
 "(raise-argument-error"
 " 'struct-copy"
 "                                                                                                       \"expand-context/outer?\""
-" the-struct_92))))"
+" the-struct_91))))"
 " body-ctx_2)))"
 "(expand7.1"
 " #f"
@@ -60282,11 +60300,11 @@ static const char *startup_source =
 " begin79_1"
 " e80_1))))))"
 "(let-values(((track_0)"
-"(lambda(e_87)"
+"(lambda(e_88)"
 "(begin"
 " 'track"
 "(syntax-track-origin$1"
-" e_87"
+" e_88"
 " exp-body_0)))))"
 "(let-values(((splice-bodys_0)"
 "(append"
@@ -60398,7 +60416,7 @@ static const char *startup_source =
 "(let-values()"
 "(check-list"
 " lst_194)))"
-"((letrec-values(((for-loop_280)"
+"((letrec-values(((for-loop_279)"
 "(lambda(id_82"
 " lst_102)"
 "(begin"
@@ -60408,7 +60426,7 @@ static const char *startup_source =
 "(let-values(((s_313)"
 "(unsafe-car"
 " lst_102))"
-"((rest_178)"
+"((rest_177)"
 "(unsafe-cdr"
 " lst_102)))"
 "(let-values(((id_70)"
@@ -60442,12 +60460,12 @@ static const char *startup_source =
 " id_109)))))"
 "(if(not"
 " #f)"
-"(for-loop_280"
+"(for-loop_279"
 " id_70"
-" rest_178)"
+" rest_177)"
 " id_70)))"
 " id_82)))))"
-" for-loop_280)"
+" for-loop_279)"
 " null"
 " lst_194)))))"
 "(reverse$1"
@@ -60567,17 +60585,17 @@ static const char *startup_source =
 " lst_50)))"
 "((letrec-values(((for-loop_38)"
 "(lambda(fold-var_182"
-" lst_316)"
+" lst_314)"
 "(begin"
 " 'for-loop"
 "(if(pair?"
-" lst_316)"
+" lst_314)"
 "(let-values(((id_87)"
 "(unsafe-car"
-" lst_316))"
-"((rest_179)"
+" lst_314))"
+"((rest_178)"
 "(unsafe-cdr"
-" lst_316)))"
+" lst_314)))"
 "(let-values(((fold-var_237)"
 "(let-values(((fold-var_280)"
 " fold-var_182))"
@@ -60610,7 +60628,7 @@ static const char *startup_source =
 " #f)"
 "(for-loop_38"
 " fold-var_237"
-" rest_179)"
+" rest_178)"
 " fold-var_237)))"
 " fold-var_182)))))"
 " for-loop_38)"
@@ -60636,25 +60654,25 @@ static const char *startup_source =
 " lst_197)))"
 "((letrec-values(((for-loop_256)"
 "(lambda(env_17"
-" lst_317"
+" lst_315"
 " lst_29)"
 "(begin"
 " 'for-loop"
 "(if(if(pair?"
-" lst_317)"
+" lst_315)"
 "(pair?"
 " lst_29)"
 " #f)"
 "(let-values(((key_88)"
 "(unsafe-car"
-" lst_317))"
+" lst_315))"
 "((rest_149)"
 "(unsafe-cdr"
-" lst_317))"
+" lst_315))"
 "((id_9)"
 "(unsafe-car"
 " lst_29))"
-"((rest_180)"
+"((rest_179)"
 "(unsafe-cdr"
 " lst_29)))"
 "(let-values(((env_1)"
@@ -60674,7 +60692,7 @@ static const char *startup_source =
 "(for-loop_256"
 " env_1"
 " rest_149"
-" rest_180)"
+" rest_179)"
 " env_1)))"
 " env_17)))))"
 " for-loop_256)"
@@ -60685,10 +60703,10 @@ static const char *startup_source =
 "(loop_119"
 "(let-values(((v_251)"
 " body-ctx_2))"
-"(let-values(((the-struct_93)"
+"(let-values(((the-struct_92)"
 " v_251))"
 "(if(expand-context/outer?"
-" the-struct_93)"
+" the-struct_92)"
 "(let-values(((env102_0)"
 " extended-env_0)"
 "((binding-layer103_0)"
@@ -60701,35 +60719,35 @@ static const char *startup_source =
 "(expand-context/outer1.1"
 " inner104_0"
 "(root-expand-context/outer-post-expansion-scope"
-" the-struct_93)"
+" the-struct_92)"
 "(root-expand-context/outer-use-site-scopes"
-" the-struct_93)"
+" the-struct_92)"
 "(root-expand-context/outer-frame-id"
-" the-struct_93)"
+" the-struct_92)"
 "(expand-context/outer-context"
-" the-struct_93)"
+" the-struct_92)"
 " env102_0"
 "(expand-context/outer-post-expansion-scope-action"
-" the-struct_93)"
+" the-struct_92)"
 "(expand-context/outer-scopes"
-" the-struct_93)"
+" the-struct_92)"
 "(expand-context/outer-def-ctx-scopes"
-" the-struct_93)"
+" the-struct_92)"
 " binding-layer103_0"
 "(expand-context/outer-reference-records"
-" the-struct_93)"
+" the-struct_92)"
 "(expand-context/outer-only-immediate?"
-" the-struct_93)"
+" the-struct_92)"
 "(expand-context/outer-need-eventually-defined"
-" the-struct_93)"
+" the-struct_92)"
 "(expand-context/outer-current-introduction-scopes"
-" the-struct_93)"
+" the-struct_92)"
 "(expand-context/outer-name"
-" the-struct_93)))"
+" the-struct_92)))"
 "(raise-argument-error"
 " 'struct-copy"
 "                                                                                                      \"expand-context/outer?\""
-" the-struct_93))))"
+" the-struct_92))))"
 " rest-bodys_0"
 " null"
 "(cons"
@@ -60832,7 +60850,7 @@ static const char *startup_source =
 " rhs85_0"
 "(append"
 "(reverse$1"
-"(let-values(((lst_318)"
+"(let-values(((lst_316)"
 " done-bodys_0))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
@@ -60840,7 +60858,7 @@ static const char *startup_source =
 "(void)"
 "(let-values()"
 "(check-list"
-" lst_318)))"
+" lst_316)))"
 "((letrec-values(((for-loop_254)"
 "(lambda(fold-var_24"
 " lst_106)"
@@ -60877,13 +60895,13 @@ static const char *startup_source =
 " fold-var_24)))))"
 " for-loop_254)"
 " null"
-" lst_318))))"
+" lst_316))))"
 " val-rhss_0))"
 "(cons"
 " exp-body_0"
 "(append"
 "(reverse$1"
-"(let-values(((lst_319)"
+"(let-values(((lst_317)"
 " done-bodys_0))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
@@ -60891,20 +60909,20 @@ static const char *startup_source =
 "(void)"
 "(let-values()"
 "(check-list"
-" lst_319)))"
-"((letrec-values(((for-loop_281)"
+" lst_317)))"
+"((letrec-values(((for-loop_280)"
 "(lambda(fold-var_291"
-" lst_320)"
+" lst_318)"
 "(begin"
 " 'for-loop"
 "(if(pair?"
-" lst_320)"
+" lst_318)"
 "(let-values(((done-body_3)"
 "(unsafe-car"
-" lst_320))"
-"((rest_181)"
+" lst_318))"
+"((rest_180)"
 "(unsafe-cdr"
-" lst_320)))"
+" lst_318)))"
 "(let-values(((fold-var_292)"
 "(let-values(((fold-var_39)"
 " fold-var_291))"
@@ -60918,14 +60936,14 @@ static const char *startup_source =
 " fold-var_137)))))"
 "(if(not"
 " #f)"
-"(for-loop_281"
+"(for-loop_280"
 " fold-var_292"
-" rest_181)"
+" rest_180)"
 " fold-var_292)))"
 " fold-var_291)))))"
-" for-loop_281)"
+" for-loop_280)"
 " null"
-" lst_319))))"
+" lst_317))))"
 " track-stxs_0))"
 " trans-idss_1"
 " stx-clauses_0"
@@ -61004,7 +61022,7 @@ static const char *startup_source =
 " orig-s_39))"
 "(let-values()"
 "(let-values(((id_110)"
-"(let-values(((lst_321)"
+"(let-values(((lst_319)"
 " flat-s_26))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
@@ -61012,20 +61030,20 @@ static const char *startup_source =
 "(void)"
 "(let-values()"
 "(check-list"
-" lst_321)))"
-"((letrec-values(((for-loop_282)"
+" lst_319)))"
+"((letrec-values(((for-loop_281)"
 "(lambda(id_111"
-" lst_322)"
+" lst_320)"
 "(begin"
 " 'for-loop"
 "(if(pair?"
-" lst_322)"
+" lst_320)"
 "(let-values(((s_487)"
 "(unsafe-car"
-" lst_322))"
-"((rest_182)"
+" lst_320))"
+"((rest_181)"
 "(unsafe-cdr"
-" lst_322)))"
+" lst_320)))"
 "(let-values(((id_112)"
 "(let-values(((id_113)"
 " id_111))"
@@ -61033,15 +61051,15 @@ static const char *startup_source =
 "(let-values()"
 "(let-values(((id114_0)"
 "(let-values()"
-"(if(let-values(((or-part_319)"
+"(if(let-values(((or-part_321)"
 "(if(syntax?$1"
 " s_487)"
 "(symbol?"
 "(syntax-e$1"
 " s_487))"
 " #f)))"
-"(if or-part_319"
-" or-part_319"
+"(if or-part_321"
+" or-part_321"
 "(symbol?"
 " s_487)))"
 " s_487"
@@ -61057,14 +61075,14 @@ static const char *startup_source =
 " id_114)))))"
 "(if(not"
 " #f)"
-"(for-loop_282"
+"(for-loop_281"
 " id_112"
-" rest_182)"
+" rest_181)"
 " id_112)))"
 " id_111)))))"
-" for-loop_282)"
+" for-loop_281)"
 " null"
-" lst_321)))))"
+" lst_319)))))"
 "(reverse$1"
 " id_110))))))))"
 "((rhs112_0)"
@@ -61171,7 +61189,7 @@ static const char *startup_source =
 " ctx_14)))"
 "(let-values(((keys_6)"
 "(reverse$1"
-"(let-values(((lst_323)"
+"(let-values(((lst_321)"
 " ids_30))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
@@ -61179,20 +61197,20 @@ static const char *startup_source =
 "(void)"
 "(let-values()"
 "(check-list"
-" lst_323)))"
-"((letrec-values(((for-loop_283)"
+" lst_321)))"
+"((letrec-values(((for-loop_282)"
 "(lambda(fold-var_293"
-" lst_324)"
+" lst_322)"
 "(begin"
 " 'for-loop"
 "(if(pair?"
-" lst_324)"
+" lst_322)"
 "(let-values(((id_115)"
 "(unsafe-car"
-" lst_324))"
-"((rest_183)"
+" lst_322))"
+"((rest_182)"
 "(unsafe-cdr"
-" lst_324)))"
+" lst_322)))"
 "(let-values(((fold-var_294)"
 "(let-values(((fold-var_295)"
 " fold-var_293))"
@@ -61223,14 +61241,14 @@ static const char *startup_source =
 " fold-var_296)))))"
 "(if(not"
 " #f)"
-"(for-loop_283"
+"(for-loop_282"
 " fold-var_294"
-" rest_183)"
+" rest_182)"
 " fold-var_294)))"
 " fold-var_293)))))"
-" for-loop_283)"
+" for-loop_282)"
 " null"
-" lst_323))))))"
+" lst_321))))))"
 "(let-values((()"
 "(begin"
 "(let-values(((obs_74)"
@@ -61268,11 +61286,11 @@ static const char *startup_source =
 " ids_30"
 " body-ctx_2)))"
 "(let-values(((extended-env_1)"
-"(let-values(((lst_325)"
+"(let-values(((lst_323)"
 " keys_6)"
-"((lst_326)"
+"((lst_324)"
 " vals_8)"
-"((lst_327)"
+"((lst_325)"
 " ids_30))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
@@ -61280,52 +61298,52 @@ static const char *startup_source =
 "(void)"
 "(let-values()"
 "(check-list"
+" lst_323)))"
+"(if(variable-reference-from-unsafe?"
+"(#%variable-reference))"
+"(void)"
+"(let-values()"
+"(check-list"
+" lst_324)))"
+"(if(variable-reference-from-unsafe?"
+"(#%variable-reference))"
+"(void)"
+"(let-values()"
+"(check-list"
 " lst_325)))"
-"(if(variable-reference-from-unsafe?"
-"(#%variable-reference))"
-"(void)"
-"(let-values()"
-"(check-list"
-" lst_326)))"
-"(if(variable-reference-from-unsafe?"
-"(#%variable-reference))"
-"(void)"
-"(let-values()"
-"(check-list"
-" lst_327)))"
-"((letrec-values(((for-loop_284)"
+"((letrec-values(((for-loop_283)"
 "(lambda(env_20"
-" lst_328"
+" lst_326"
 " lst_46"
-" lst_329)"
+" lst_327)"
 "(begin"
 " 'for-loop"
 "(if(if(pair?"
-" lst_328)"
+" lst_326)"
 "(if(pair?"
 " lst_46)"
 "(pair?"
-" lst_329)"
+" lst_327)"
 " #f)"
 " #f)"
 "(let-values(((key_89)"
 "(unsafe-car"
-" lst_328))"
-"((rest_184)"
+" lst_326))"
+"((rest_183)"
 "(unsafe-cdr"
-" lst_328))"
+" lst_326))"
 "((val_38)"
 "(unsafe-car"
 " lst_46))"
-"((rest_185)"
+"((rest_184)"
 "(unsafe-cdr"
 " lst_46))"
 "((id_116)"
 "(unsafe-car"
-" lst_329))"
-"((rest_186)"
+" lst_327))"
+"((rest_185)"
 "(unsafe-cdr"
-" lst_329)))"
+" lst_327)))"
 "(let-values(((env_21)"
 "(let-values(((env_22)"
 " env_20))"
@@ -61345,19 +61363,19 @@ static const char *startup_source =
 " env_23)))))"
 "(if(not"
 " #f)"
-"(for-loop_284"
+"(for-loop_283"
 " env_21"
+" rest_183"
 " rest_184"
-" rest_185"
-" rest_186)"
+" rest_185)"
 " env_21)))"
 " env_20)))))"
-" for-loop_284)"
+" for-loop_283)"
 "(expand-context-env"
 " body-ctx_2)"
-" lst_325"
-" lst_326"
-" lst_327)))))"
+" lst_323"
+" lst_324"
+" lst_325)))))"
 "(begin"
 "(let-values(((obs_76)"
 "(expand-context-observer"
@@ -61540,8 +61558,8 @@ static const char *startup_source =
 "(accumulate-def-ctx-scopes"
 " body-ctx_3"
 " def-ctx-scopes_7)))"
-"(let-values(((the-struct_94) v_253))"
-"(if(expand-context/outer? the-struct_94)"
+"(let-values(((the-struct_93) v_253))"
+"(if(expand-context/outer? the-struct_93)"
 "(let-values(((context127_0) 'expression)"
 "((use-site-scopes128_0)(box null))"
 "((scopes129_0)"
@@ -61559,24 +61577,24 @@ static const char *startup_source =
 " inner133_0"
 " post-expansion-scope132_0"
 " use-site-scopes128_0"
-"(root-expand-context/outer-frame-id the-struct_94)"
+"(root-expand-context/outer-frame-id the-struct_93)"
 " context127_0"
-"(expand-context/outer-env the-struct_94)"
+"(expand-context/outer-env the-struct_93)"
 "(expand-context/outer-post-expansion-scope-action"
-" the-struct_94)"
+" the-struct_93)"
 " scopes129_0"
 " def-ctx-scopes131_0"
-"(expand-context/outer-binding-layer the-struct_94)"
-"(expand-context/outer-reference-records the-struct_94)"
+"(expand-context/outer-binding-layer the-struct_93)"
+"(expand-context/outer-reference-records the-struct_93)"
 " only-immediate?130_0"
-"(expand-context/outer-need-eventually-defined the-struct_94)"
+"(expand-context/outer-need-eventually-defined the-struct_93)"
 "(expand-context/outer-current-introduction-scopes"
-" the-struct_94)"
-"(expand-context/outer-name the-struct_94)))"
+" the-struct_93)"
+"(expand-context/outer-name the-struct_93)))"
 "(raise-argument-error"
 " 'struct-copy"
 "                                                         \"expand-context/outer?\""
-" the-struct_94))))))"
+" the-struct_93))))))"
 "(let-values(((finish-bodys_0)"
 "(lambda()"
 "(begin"
@@ -61617,37 +61635,37 @@ static const char *startup_source =
 "(values))))"
 "(let-values(((exp-bodys_0)"
 "(reverse$1"
-"(let-values(((lst_330) done-bodys_1)"
+"(let-values(((lst_328) done-bodys_1)"
 "((start_65) 0))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
 "(#%variable-reference))"
 "(void)"
 "(let-values()"
-"(check-list lst_330)))"
+"(check-list lst_328)))"
 "(if(variable-reference-from-unsafe?"
 "(#%variable-reference))"
 "(void)"
 "(let-values()"
 "(check-naturals start_65)))"
-"((letrec-values(((for-loop_285)"
+"((letrec-values(((for-loop_284)"
 "(lambda(fold-var_257"
-" lst_331"
-" pos_128)"
+" lst_329"
+" pos_129)"
 "(begin"
 " 'for-loop"
 "(if(if(pair?"
-" lst_331)"
+" lst_329)"
 " #t"
 " #f)"
 "(let-values(((done-body_4)"
 "(unsafe-car"
-" lst_331))"
-"((rest_187)"
+" lst_329))"
+"((rest_186)"
 "(unsafe-cdr"
-" lst_331))"
+" lst_329))"
 "((i_186)"
-" pos_128))"
+" pos_129))"
 "(let-values(((fold-var_258)"
 "(let-values(((fold-var_259)"
 " fold-var_257))"
@@ -61676,10 +61694,10 @@ static const char *startup_source =
 " #f)"
 "(let-values(((v_254)"
 " finish-ctx_0))"
-"(let-values(((the-struct_95)"
+"(let-values(((the-struct_94)"
 " v_254))"
 "(if(expand-context/outer?"
-" the-struct_95)"
+" the-struct_94)"
 "(let-values(((name136_0)"
 " name_79)"
 "((inner137_0)"
@@ -61688,36 +61706,36 @@ static const char *startup_source =
 "(expand-context/outer1.1"
 " inner137_0"
 "(root-expand-context/outer-post-expansion-scope"
-" the-struct_95)"
+" the-struct_94)"
 "(root-expand-context/outer-use-site-scopes"
-" the-struct_95)"
+" the-struct_94)"
 "(root-expand-context/outer-frame-id"
-" the-struct_95)"
+" the-struct_94)"
 "(expand-context/outer-context"
-" the-struct_95)"
+" the-struct_94)"
 "(expand-context/outer-env"
-" the-struct_95)"
+" the-struct_94)"
 "(expand-context/outer-post-expansion-scope-action"
-" the-struct_95)"
+" the-struct_94)"
 "(expand-context/outer-scopes"
-" the-struct_95)"
+" the-struct_94)"
 "(expand-context/outer-def-ctx-scopes"
-" the-struct_95)"
+" the-struct_94)"
 "(expand-context/outer-binding-layer"
-" the-struct_95)"
+" the-struct_94)"
 "(expand-context/outer-reference-records"
-" the-struct_95)"
+" the-struct_94)"
 "(expand-context/outer-only-immediate?"
-" the-struct_95)"
+" the-struct_94)"
 "(expand-context/outer-need-eventually-defined"
-" the-struct_95)"
+" the-struct_94)"
 "(expand-context/outer-current-introduction-scopes"
-" the-struct_95)"
+" the-struct_94)"
 " name136_0))"
 "(raise-argument-error"
 " 'struct-copy"
 "                                                                                                                                                                         \"expand-context/outer?\""
-" the-struct_95))))"
+" the-struct_94))))"
 " finish-ctx_0)))"
 "(expand7.1"
 " #f"
@@ -61731,17 +61749,17 @@ static const char *startup_source =
 " fold-var_260)))))"
 "(if(not"
 " #f)"
-"(for-loop_285"
+"(for-loop_284"
 " fold-var_258"
-" rest_187"
+" rest_186"
 "(+"
-" pos_128"
+" pos_129"
 " 1))"
 " fold-var_258)))"
 " fold-var_257)))))"
-" for-loop_285)"
+" for-loop_284)"
 " null"
-" lst_330"
+" lst_328"
 " start_65))))))"
 "(begin"
 "(let-values(((obs_80)"
@@ -62046,9 +62064,9 @@ static const char *startup_source =
 "(list result-s_10)"
 " result-s_10))))))"
 "(if(if(not forward-references?_0)"
-"(let-values(((or-part_373) split?_0))"
-"(if or-part_373"
-" or-part_373"
+"(let-values(((or-part_377) split?_0))"
+"(if or-part_377"
+" or-part_377"
 "(null?(cdr idss_2))))"
 " #f)"
 "(let-values()"
@@ -62197,17 +62215,17 @@ static const char *startup_source =
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
 "(let-values()(check-list lst_284)))"
-"((letrec-values(((for-loop_286)"
-"(lambda(fold-var_297 lst_332 lst_286 lst_287)"
+"((letrec-values(((for-loop_285)"
+"(lambda(fold-var_297 lst_330 lst_286 lst_287)"
 "(begin"
 " 'for-loop"
-"(if(if(pair? lst_332)(if(pair? lst_286)(pair? lst_287) #f) #f)"
-"(let-values(((val-ids_0)(unsafe-car lst_332))"
-"((rest_159)(unsafe-cdr lst_332))"
+"(if(if(pair? lst_330)(if(pair? lst_286)(pair? lst_287) #f) #f)"
+"(let-values(((val-ids_0)(unsafe-car lst_330))"
+"((rest_159)(unsafe-cdr lst_330))"
 "((val-rhs_0)(unsafe-car lst_286))"
 "((rest_160)(unsafe-cdr lst_286))"
 "((track-stx_2)(unsafe-car lst_287))"
-"((rest_188)(unsafe-cdr lst_287)))"
+"((rest_187)(unsafe-cdr lst_287)))"
 "(let-values(((fold-var_298)"
 "(let-values(((fold-var_299) fold-var_297))"
 "(let-values(((fold-var_300)"
@@ -62221,10 +62239,10 @@ static const char *startup_source =
 " fold-var_299))))"
 "(values fold-var_300)))))"
 "(if(not #f)"
-"(for-loop_286 fold-var_298 rest_159 rest_160 rest_188)"
+"(for-loop_285 fold-var_298 rest_159 rest_160 rest_187)"
 " fold-var_298)))"
 " fold-var_297)))))"
-" for-loop_286)"
+" for-loop_285)"
 " null"
 " lst_245"
 " lst_246"
@@ -62296,13 +62314,13 @@ static const char *startup_source =
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
 "(let-values()(check-list lst_86)))"
-"((letrec-values(((for-loop_287)"
+"((letrec-values(((for-loop_286)"
 "(lambda(fold-var_301 lst_266)"
 "(begin"
 " 'for-loop"
 "(if(pair? lst_266)"
 "(let-values(((id_117)(unsafe-car lst_266))"
-"((rest_189)(unsafe-cdr lst_266)))"
+"((rest_188)(unsafe-cdr lst_266)))"
 "(let-values(((fold-var_28)"
 "(let-values(((fold-var_29) fold-var_301))"
 "(let-values(((fold-var_152)"
@@ -62328,10 +62346,10 @@ static const char *startup_source =
 " fold-var_29))))"
 "(values fold-var_152)))))"
 "(if(not #f)"
-"(for-loop_287 fold-var_28 rest_189)"
+"(for-loop_286 fold-var_28 rest_188)"
 " fold-var_28)))"
 " fold-var_301)))))"
-" for-loop_287)"
+" for-loop_286)"
 " null"
 " lst_86))))))"
 "(let-values(((body-env_0)"
@@ -62351,7 +62369,7 @@ static const char *startup_source =
 "(let-values(((key_90)(unsafe-car lst_81))"
 "((rest_147)(unsafe-cdr lst_81))"
 "((id_118)(unsafe-car lst_272))"
-"((rest_190)(unsafe-cdr lst_272)))"
+"((rest_189)(unsafe-cdr lst_272)))"
 "(let-values(((env_25)"
 "(let-values(((env_26) env_24))"
 "(let-values(((env_27)"
@@ -62363,7 +62381,7 @@ static const char *startup_source =
 " id_118)))))"
 "(values env_27)))))"
 "(if(not #f)"
-"(for-loop_227 env_25 rest_147 rest_190)"
+"(for-loop_227 env_25 rest_147 rest_189)"
 " env_25)))"
 " env_24)))))"
 " for-loop_227)"
@@ -62419,8 +62437,8 @@ static const char *startup_source =
 "(values))))"
 "(let-values(((body-ctx_4)"
 "(let-values(((v_255) ctx_78))"
-"(let-values(((the-struct_96) v_255))"
-"(if(expand-context/outer? the-struct_96)"
+"(let-values(((the-struct_95) v_255))"
+"(if(expand-context/outer? the-struct_95)"
 "(let-values(((env42_0) body-env_0)"
 "((scopes43_0)(cons sc_31(expand-context-scopes ctx_78)))"
 "((binding-layer44_0)"
@@ -62429,24 +62447,24 @@ static const char *startup_source =
 "((inner46_0)(root-expand-context/outer-inner v_255)))"
 "(expand-context/outer1.1"
 " inner46_0"
-"(root-expand-context/outer-post-expansion-scope the-struct_96)"
-"(root-expand-context/outer-use-site-scopes the-struct_96)"
+"(root-expand-context/outer-post-expansion-scope the-struct_95)"
+"(root-expand-context/outer-use-site-scopes the-struct_95)"
 " frame-id45_0"
-"(expand-context/outer-context the-struct_96)"
+"(expand-context/outer-context the-struct_95)"
 " env42_0"
-"(expand-context/outer-post-expansion-scope-action the-struct_96)"
+"(expand-context/outer-post-expansion-scope-action the-struct_95)"
 " scopes43_0"
-"(expand-context/outer-def-ctx-scopes the-struct_96)"
+"(expand-context/outer-def-ctx-scopes the-struct_95)"
 " binding-layer44_0"
-"(expand-context/outer-reference-records the-struct_96)"
-"(expand-context/outer-only-immediate? the-struct_96)"
-"(expand-context/outer-need-eventually-defined the-struct_96)"
-"(expand-context/outer-current-introduction-scopes the-struct_96)"
-"(expand-context/outer-name the-struct_96)))"
+"(expand-context/outer-reference-records the-struct_95)"
+"(expand-context/outer-only-immediate? the-struct_95)"
+"(expand-context/outer-need-eventually-defined the-struct_95)"
+"(expand-context/outer-current-introduction-scopes the-struct_95)"
+"(expand-context/outer-name the-struct_95)))"
 "(raise-argument-error"
 " 'struct-copy"
 "                                               \"expand-context/outer?\""
-" the-struct_96))))))"
+" the-struct_95))))))"
 "(let-values(((exp-body_2)"
 "(let-values(((sc-bodys47_0) sc-bodys_0)"
 "((body-ctx48_0) body-ctx_4)"
@@ -62459,138 +62477,179 @@ static const char *startup_source =
 "(unflatten-like-formals keys_7 formals_1)"
 " sc-formals_0)"
 " exp-body_2))))))))))))))))"
-"(define-values"
-"(make-expand-lambda)"
-"(lambda(get-lambda_0)"
-"(begin"
-"(lambda(s_494 ctx_79)"
+"(void"
+"(add-core-form!*"
+" 'lambda"
+"(lambda(s_15 ctx_79)"
 "(let-values((()"
 "(begin"
-"(let-values(((obs_89)(expand-context-observer ctx_79)))"
-"(if obs_89(let-values()(let-values()(call-expand-observe obs_89 'prim-lambda)))(void)))"
+"(let-values(((obs_5)(expand-context-observer ctx_79)))"
+"(if obs_5(let-values()(let-values()(call-expand-observe obs_5 'prim-lambda)))(void)))"
 "(values))))"
-"(let-values(((disarmed-s_6)(syntax-disarm$1 s_494)))"
+"(let-values(((disarmed-s_6)(syntax-disarm$1 s_15)))"
 "(let-values(((ok?_33 lambda53_0 formals54_0 body55_0)"
-"(let-values(((s_302) disarmed-s_6))"
-"(let-values(((orig-s_40) s_302))"
+"(let-values(((s_427) disarmed-s_6))"
+"(let-values(((orig-s_40) s_427))"
 "(let-values(((lambda53_1 formals54_1 body55_1)"
-"(let-values(((s_162)(if(syntax?$1 s_302)(syntax-e$1 s_302) s_302)))"
-"(if(pair? s_162)"
-"(let-values(((lambda56_0)(let-values(((s_476)(car s_162))) s_476))"
+"(let-values(((s_66)(if(syntax?$1 s_427)(syntax-e$1 s_427) s_427)))"
+"(if(pair? s_66)"
+"(let-values(((lambda56_0)(let-values(((s_494)(car s_66))) s_494))"
 "((formals57_0 body58_0)"
-"(let-values(((s_470)(cdr s_162)))"
-"(let-values(((s_164)"
-"(if(syntax?$1 s_470)"
-"(syntax-e$1 s_470)"
-" s_470)))"
-"(if(pair? s_164)"
+"(let-values(((s_476)(cdr s_66)))"
+"(let-values(((s_470)"
+"(if(syntax?$1 s_476)"
+"(syntax-e$1 s_476)"
+" s_476)))"
+"(if(pair? s_470)"
 "(let-values(((formals59_0)"
-"(let-values(((s_165)(car s_164)))"
-" s_165))"
+"(let-values(((s_457)(car s_470)))"
+" s_457))"
 "((body60_0)"
-"(let-values(((s_75)(cdr s_164)))"
-"(let-values(((s_477)"
-"(if(syntax?$1 s_75)"
-"(syntax-e$1 s_75)"
-" s_75)))"
+"(let-values(((s_165)(cdr s_470)))"
+"(let-values(((s_75)"
+"(if(syntax?$1 s_165)"
+"(syntax-e$1 s_165)"
+" s_165)))"
 "(let-values(((flat-s_27)"
 "(to-syntax-list.1"
-" s_477)))"
+" s_75)))"
 "(if(not flat-s_27)"
 "(let-values()"
 "(raise-syntax-error$1"
 " #f"
-"                                                                                             \"bad syntax\""
+"                                                                                          \"bad syntax\""
 " orig-s_40))"
 "(if(null? flat-s_27)"
 "(let-values()"
 "(raise-syntax-error$1"
 " #f"
-"                                                                                               \"bad syntax\""
+"                                                                                            \"bad syntax\""
 " orig-s_40))"
 "(let-values()"
 " flat-s_27))))))))"
 "(values formals59_0 body60_0))"
-"(raise-syntax-error$1"
-" #f"
-"                                                                     \"bad syntax\""
-" orig-s_40))))))"
+"                                                                 (raise-syntax-error$1 #f \"bad syntax\" orig-s_40))))))"
 "(values lambda56_0 formals57_0 body58_0))"
-"                                                (raise-syntax-error$1 #f \"bad syntax\" orig-s_40)))))"
+"                                             (raise-syntax-error$1 #f \"bad syntax\" orig-s_40)))))"
 "(values #t lambda53_1 formals54_1 body55_1))))))"
 "(let-values(((rebuild-s_4)"
-"(let-values(((ctx61_0) ctx_79)((s62_0) s_494)((temp63_4) #t))"
+"(let-values(((ctx61_0) ctx_79)((s62_0) s_15)((temp63_4) #t))"
 "(keep-as-needed74.1 #f #f #f #f temp63_4 #t ctx61_0 s62_0))))"
 "(let-values(((formals_2 body_13)"
-"(lambda-clause-expander s_494 disarmed-s_6 formals54_0 body55_0 ctx_79 'lambda-renames)))"
+"(lambda-clause-expander s_15 disarmed-s_6 formals54_0 body55_0 ctx_79 'lambda-renames)))"
 "(if(expand-context-to-parsed? ctx_79)"
 "(parsed-lambda5.1 rebuild-s_4 formals_2 body_13)"
-"(let-values(((rebuild-s64_0) rebuild-s_4)"
-"((temp65_7)(list*(get-lambda_0 ctx_79 lambda53_0) formals_2 body_13)))"
-"(rebuild5.1 #f #f rebuild-s64_0 temp65_7))))))))))))"
-"(void(add-core-form!* 'lambda(make-expand-lambda(lambda(ctx_80 lam-id_0) lam-id_0))))"
+"(let-values(((rebuild-s64_0) rebuild-s_4)((temp65_7)(list* lambda53_0 formals_2 body_13)))"
+"(rebuild5.1 #f #f rebuild-s64_0 temp65_7)))))))))))"
 "(void"
 "(add-core-form!*"
 " 'λ"
-"(make-expand-lambda"
-"(lambda(ctx_81 lam-id_1)"
+"(lambda(s_495)"
+"(let-values(((ok?_34 lam-id66_0 formals67_0 _68_0)"
+"(let-values(((s_496) s_495))"
+"(let-values(((orig-s_41) s_496))"
+"(let-values(((lam-id66_1 formals67_1 _68_1)"
+"(let-values(((s_309)(if(syntax?$1 s_496)(syntax-e$1 s_496) s_496)))"
+"(if(pair? s_309)"
+"(let-values(((lam-id69_0)(let-values(((s_48)(car s_309))) s_48))"
+"((formals70_0 _71_1)"
+"(let-values(((s_49)(cdr s_309)))"
+"(let-values(((s_32)"
+"(if(syntax?$1 s_49)(syntax-e$1 s_49) s_49)))"
+"(if(pair? s_32)"
+"(let-values(((formals72_0)"
+"(let-values(((s_497)(car s_32))) s_497))"
+"((_73_0)"
+"(let-values(((s_310)(cdr s_32)))"
+"(let-values(((s_388)"
+"(if(syntax?$1 s_310)"
+"(syntax-e$1 s_310)"
+" s_310)))"
+"(let-values(((flat-s_25)"
+"(to-syntax-list.1 s_388)))"
+"(if(not flat-s_25)"
+"(let-values()"
+"(raise-syntax-error$1"
+" #f"
+"                                                                                      \"bad syntax\""
+" orig-s_41))"
+"(if(null? flat-s_25)"
+"(let-values()"
+"(raise-syntax-error$1"
+" #f"
+"                                                                                        \"bad syntax\""
+" orig-s_41))"
+"(let-values() flat-s_25))))))))"
+"(values formals72_0 _73_0))"
+"                                                             (raise-syntax-error$1 #f \"bad syntax\" orig-s_41))))))"
+"(values lam-id69_0 formals70_0 _71_1))"
+"                                         (raise-syntax-error$1 #f \"bad syntax\" orig-s_41)))))"
+"(values #t lam-id66_1 formals67_1 _68_1))))))"
+"(let-values(((ids_34)(parse-and-flatten-formals formals67_0 #f s_495)))"
+"(let-values(((ctx_80)(let-values(((temp78_0) #t))(get-current-expand-context17.1 temp78_0 #t #f #f))))"
+"(let-values(((phase_144)(if ctx_80(expand-context-phase ctx_80) 0)))"
+"(begin"
+"               (let-values (((ids74_0) ids_34) ((phase75_0) phase_144) ((s76_1) s_495) ((temp77_4) \"argument name\"))"
+"(check-no-duplicate-ids8.1 temp77_4 #t ids74_0 phase75_0 s76_1 #f #f))"
 "(datum->syntax$1"
-"(syntax-shift-phase-level$1 core-stx(expand-context-phase ctx_81))"
-" 'lambda"
-" lam-id_1"
-" lam-id_1)))))"
+" s_495"
+"(cons"
+"(datum->syntax$1(syntax-shift-phase-level$1 core-stx phase_144) 'lambda lam-id66_0 lam-id66_0)"
+"(cdr(syntax-e$1 s_495)))"
+" s_495"
+" s_495)))))))))"
 "(void"
 "(add-core-form!*"
 " 'case-lambda"
-"(lambda(s_30 ctx_82)"
+"(lambda(s_498 ctx_81)"
 "(let-values((()"
 "(begin"
-"(let-values(((obs_90)(expand-context-observer ctx_82)))"
-"(if obs_90"
-"(let-values()(let-values()(call-expand-observe obs_90 'prim-case-lambda)))"
+"(let-values(((obs_89)(expand-context-observer ctx_81)))"
+"(if obs_89"
+"(let-values()(let-values()(call-expand-observe obs_89 'prim-case-lambda)))"
 "(void)))"
 "(values))))"
-"(let-values(((disarmed-s_7)(syntax-disarm$1 s_30)))"
-"(let-values(((ok?_34 case-lambda66_0 formals67_0 body68_0)"
-"(let-values(((s_312) disarmed-s_7))"
-"(let-values(((orig-s_41) s_312))"
-"(let-values(((case-lambda66_1 formals67_1 body68_1)"
-"(let-values(((s_495)(if(syntax?$1 s_312)(syntax-e$1 s_312) s_312)))"
-"(if(pair? s_495)"
-"(let-values(((case-lambda69_0)(let-values(((s_53)(car s_495))) s_53))"
-"((formals70_0 body71_0)"
-"(let-values(((s_482)(cdr s_495)))"
-"(let-values(((s_483)"
-"(if(syntax?$1 s_482)"
-"(syntax-e$1 s_482)"
-" s_482)))"
-"(let-values(((flat-s_28)(to-syntax-list.1 s_483)))"
+"(let-values(((disarmed-s_7)(syntax-disarm$1 s_498)))"
+"(let-values(((ok?_35 case-lambda79_0 formals80_0 body81_0)"
+"(let-values(((s_499) disarmed-s_7))"
+"(let-values(((orig-s_42) s_499))"
+"(let-values(((case-lambda79_1 formals80_1 body81_1)"
+"(let-values(((s_36)(if(syntax?$1 s_499)(syntax-e$1 s_499) s_499)))"
+"(if(pair? s_36)"
+"(let-values(((case-lambda82_0)(let-values(((s_59)(car s_36))) s_59))"
+"((formals83_0 body84_0)"
+"(let-values(((s_410)(cdr s_36)))"
+"(let-values(((s_500)"
+"(if(syntax?$1 s_410)"
+"(syntax-e$1 s_410)"
+" s_410)))"
+"(let-values(((flat-s_28)(to-syntax-list.1 s_500)))"
 "(if(not flat-s_28)"
 "(let-values()"
-"                                                                     (raise-syntax-error$1 #f \"bad syntax\" orig-s_41))"
+"                                                                     (raise-syntax-error$1 #f \"bad syntax\" orig-s_42))"
 "(let-values()"
 "(let-values(((formals_3 body_14)"
-"(let-values(((lst_296) flat-s_28))"
+"(let-values(((lst_331) flat-s_28))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
 "(#%variable-reference))"
 "(void)"
 "(let-values()"
-"(check-list lst_296)))"
-"((letrec-values(((for-loop_288)"
+"(check-list lst_331)))"
+"((letrec-values(((for-loop_287)"
 "(lambda(formals_4"
 " body_15"
-" lst_195)"
+" lst_332)"
 "(begin"
 " 'for-loop"
 "(if(pair?"
-" lst_195)"
-"(let-values(((s_33)"
+" lst_332)"
+"(let-values(((s_61)"
 "(unsafe-car"
-" lst_195))"
-"((rest_100)"
+" lst_332))"
+"((rest_190)"
 "(unsafe-cdr"
-" lst_195)))"
+" lst_332)))"
 "(let-values(((formals_5"
 " body_16)"
 "(let-values(((formals_6)"
@@ -62600,164 +62659,164 @@ static const char *startup_source =
 "(let-values(((formals_7"
 " body_18)"
 "(let-values()"
-"(let-values(((formals78_0"
-" body79_0)"
+"(let-values(((formals91_0"
+" body92_0)"
 "(let-values()"
-"(let-values(((s_431)"
+"(let-values(((s_64)"
 "(if(syntax?$1"
-" s_33)"
+" s_61)"
 "(syntax-e$1"
-" s_33)"
-" s_33)))"
+" s_61)"
+" s_61)))"
 "(if(pair?"
-" s_431)"
-"(let-values(((formals72_0)"
-"(let-values(((s_496)"
+" s_64)"
+"(let-values(((formals85_0)"
+"(let-values(((s_501)"
 "(car"
-" s_431)))"
-" s_496))"
-"((body73_0)"
-"(let-values(((s_34)"
+" s_64)))"
+" s_501))"
+"((body86_0)"
+"(let-values(((s_198)"
 "(cdr"
-" s_431)))"
-"(let-values(((s_56)"
+" s_64)))"
+"(let-values(((s_396)"
 "(if(syntax?$1"
-" s_34)"
+" s_198)"
 "(syntax-e$1"
-" s_34)"
-" s_34)))"
+" s_198)"
+" s_198)))"
 "(let-values(((flat-s_29)"
 "(to-syntax-list.1"
-" s_56)))"
+" s_396)))"
 "(if(not"
 " flat-s_29)"
 "(let-values()"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                              \"bad syntax\""
-" orig-s_41))"
+" orig-s_42))"
 "(if(null?"
 " flat-s_29)"
 "(let-values()"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                                \"bad syntax\""
-" orig-s_41))"
+" orig-s_42))"
 "(let-values()"
 " flat-s_29))))))))"
 "(values"
-" formals72_0"
-" body73_0))"
+" formals85_0"
+" body86_0))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                      \"bad syntax\""
-" orig-s_41))))))"
+" orig-s_42))))))"
 "(values"
 "(cons"
-" formals78_0"
+" formals91_0"
 " formals_6)"
 "(cons"
-" body79_0"
+" body92_0"
 " body_17))))))"
 "(values"
 " formals_7"
 " body_18)))))"
 "(if(not"
 " #f)"
-"(for-loop_288"
+"(for-loop_287"
 " formals_5"
 " body_16"
-" rest_100)"
+" rest_190)"
 "(values"
 " formals_5"
 " body_16))))"
 "(values"
 " formals_4"
 " body_15))))))"
-" for-loop_288)"
+" for-loop_287)"
 " null"
 " null"
-" lst_296)))))"
+" lst_331)))))"
 "(values"
 "(reverse$1 formals_3)"
 "(reverse$1 body_14))))))))))"
-"(values case-lambda69_0 formals70_0 body71_0))"
-"                                             (raise-syntax-error$1 #f \"bad syntax\" orig-s_41)))))"
-"(values #t case-lambda66_1 formals67_1 body68_1))))))"
-"(let-values(((ok?_35 case-lambda74_0 clause75_0)"
-"(let-values(((s_385) disarmed-s_7))"
-"(let-values(((orig-s_42) s_385))"
-"(let-values(((case-lambda74_1 clause75_1)"
-"(let-values(((s_57)(if(syntax?$1 s_385)(syntax-e$1 s_385) s_385)))"
-"(if(pair? s_57)"
-"(let-values(((case-lambda76_0)"
-"(let-values(((s_406)(car s_57))) s_406))"
-"((clause77_0)"
-"(let-values(((s_36)(cdr s_57)))"
-"(let-values(((s_497)"
-"(if(syntax?$1 s_36)"
-"(syntax-e$1 s_36)"
-" s_36)))"
-"(let-values(((flat-s_30)(to-syntax-list.1 s_497)))"
+"(values case-lambda82_0 formals83_0 body84_0))"
+"                                             (raise-syntax-error$1 #f \"bad syntax\" orig-s_42)))))"
+"(values #t case-lambda79_1 formals80_1 body81_1))))))"
+"(let-values(((ok?_36 case-lambda87_0 clause88_0)"
+"(let-values(((s_199) disarmed-s_7))"
+"(let-values(((orig-s_43) s_199))"
+"(let-values(((case-lambda87_1 clause88_1)"
+"(let-values(((s_502)(if(syntax?$1 s_199)(syntax-e$1 s_199) s_199)))"
+"(if(pair? s_502)"
+"(let-values(((case-lambda89_0)"
+"(let-values(((s_503)(car s_502))) s_503))"
+"((clause90_0)"
+"(let-values(((s_504)(cdr s_502)))"
+"(let-values(((s_87)"
+"(if(syntax?$1 s_504)"
+"(syntax-e$1 s_504)"
+" s_504)))"
+"(let-values(((flat-s_30)(to-syntax-list.1 s_87)))"
 "(if(not flat-s_30)"
 "(let-values()"
-"                                                                       (raise-syntax-error$1 #f \"bad syntax\" orig-s_42))"
+"                                                                       (raise-syntax-error$1 #f \"bad syntax\" orig-s_43))"
 "(let-values() flat-s_30)))))))"
-"(values case-lambda76_0 clause77_0))"
-"                                               (raise-syntax-error$1 #f \"bad syntax\" orig-s_42)))))"
-"(values #t case-lambda74_1 clause75_1))))))"
+"(values case-lambda89_0 clause90_0))"
+"                                               (raise-syntax-error$1 #f \"bad syntax\" orig-s_43)))))"
+"(values #t case-lambda87_1 clause88_1))))))"
 "(let-values(((rebuild-s_5)"
-"(let-values(((ctx80_0) ctx_82)((s81_1) s_30)((temp82_7) #t))"
-"(keep-as-needed74.1 #f #f #f #f temp82_7 #t ctx80_0 s81_1))))"
+"(let-values(((ctx93_0) ctx_81)((s94_0) s_498)((temp95_4) #t))"
+"(keep-as-needed74.1 #f #f #f #f temp95_4 #t ctx93_0 s94_0))))"
 "(let-values(((clauses_1)"
 "(reverse$1"
-"(let-values(((lst_201) formals67_0)((lst_333) body68_0)((lst_31) clause75_0))"
+"(let-values(((lst_333) formals80_0)((lst_334) body81_0)((lst_155) clause88_0))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
-"(let-values()(check-list lst_201)))"
-"(if(variable-reference-from-unsafe?(#%variable-reference))"
-"(void)"
 "(let-values()(check-list lst_333)))"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
-"(let-values()(check-list lst_31)))"
-"((letrec-values(((for-loop_24)"
-"(lambda(fold-var_282 lst_32 lst_334 lst_335)"
+"(let-values()(check-list lst_334)))"
+"(if(variable-reference-from-unsafe?(#%variable-reference))"
+"(void)"
+"(let-values()(check-list lst_155)))"
+"((letrec-values(((for-loop_177)"
+"(lambda(fold-var_140 lst_107 lst_335 lst_108)"
 "(begin"
 " 'for-loop"
-"(if(if(pair? lst_32)"
-"(if(pair? lst_334)(pair? lst_335) #f)"
+"(if(if(pair? lst_107)"
+"(if(pair? lst_335)(pair? lst_108) #f)"
 " #f)"
-"(let-values(((formals_8)(unsafe-car lst_32))"
-"((rest_191)(unsafe-cdr lst_32))"
-"((body_19)(unsafe-car lst_334))"
-"((rest_192)(unsafe-cdr lst_334))"
-"((clause_3)(unsafe-car lst_335))"
-"((rest_193)(unsafe-cdr lst_335)))"
+"(let-values(((formals_8)(unsafe-car lst_107))"
+"((rest_52)(unsafe-cdr lst_107))"
+"((body_19)(unsafe-car lst_335))"
+"((rest_191)(unsafe-cdr lst_335))"
+"((clause_3)(unsafe-car lst_108))"
+"((rest_192)(unsafe-cdr lst_108)))"
 "(let-values(((fold-var_302)"
-"(let-values(((fold-var_303) fold-var_282))"
-"(let-values(((fold-var_21)"
+"(let-values(((fold-var_303) fold-var_140))"
+"(let-values(((fold-var_95)"
 "(let-values()"
 "(cons"
 "(let-values()"
 "(let-values((()"
 "(begin"
-"(let-values(((obs_91)"
+"(let-values(((obs_72)"
 "(expand-context-observer"
-" ctx_82)))"
-"(if obs_91"
+" ctx_81)))"
+"(if obs_72"
 "(let-values()"
 "(let-values()"
 "(call-expand-observe"
-" obs_91"
+" obs_72"
 " 'next)))"
 "(void)))"
 "(values))))"
 "(let-values(((rebuild-clause_0)"
-"(let-values(((ctx83_0)"
-" ctx_82)"
-"((clause84_0)"
+"(let-values(((ctx96_0)"
+" ctx_81)"
+"((clause97_0)"
 " clause_3))"
 "(keep-as-needed74.1"
 " #f"
@@ -62766,51 +62825,51 @@ static const char *startup_source =
 " #f"
 " #f"
 " #f"
-" ctx83_0"
-" clause84_0))))"
+" ctx96_0"
+" clause97_0))))"
 "(let-values(((exp-formals_0"
 " exp-body_3)"
 "(lambda-clause-expander"
-" s_30"
+" s_498"
 " disarmed-s_7"
 " formals_8"
 " body_19"
-" ctx_82"
+" ctx_81"
 " 'lambda-renames)))"
 "(if(expand-context-to-parsed?"
-" ctx_82)"
+" ctx_81)"
 "(list"
 " exp-formals_0"
 " exp-body_3)"
-"(let-values(((rebuild-clause85_0)"
+"(let-values(((rebuild-clause98_0)"
 " rebuild-clause_0)"
-"((temp86_2)"
+"((temp99_4)"
 "(list*"
 " exp-formals_0"
 " exp-body_3)))"
 "(rebuild5.1"
 " #f"
 " #f"
-" rebuild-clause85_0"
-" temp86_2)))))))"
+" rebuild-clause98_0"
+" temp99_4)))))))"
 " fold-var_303))))"
-"(values fold-var_21)))))"
+"(values fold-var_95)))))"
 "(if(not #f)"
-"(for-loop_24 fold-var_302 rest_191 rest_192 rest_193)"
+"(for-loop_177 fold-var_302 rest_52 rest_191 rest_192)"
 " fold-var_302)))"
-" fold-var_282)))))"
-" for-loop_24)"
+" fold-var_140)))))"
+" for-loop_177)"
 " null"
-" lst_201"
 " lst_333"
-" lst_31))))))"
-"(if(expand-context-to-parsed? ctx_82)"
+" lst_334"
+" lst_155))))))"
+"(if(expand-context-to-parsed? ctx_81)"
 "(parsed-case-lambda6.1 rebuild-s_5 clauses_1)"
-"(let-values(((rebuild-s87_0) rebuild-s_5)((temp88_3)(list* case-lambda66_0 clauses_1)))"
-"(rebuild5.1 #f #f rebuild-s87_0 temp88_3))))))))))))"
+"(let-values(((rebuild-s100_0) rebuild-s_5)((temp101_5)(list* case-lambda79_0 clauses_1)))"
+"(rebuild5.1 #f #f rebuild-s100_0 temp101_5))))))))))))"
 "(define-values"
 "(parse-and-flatten-formals)"
-"(lambda(all-formals_0 sc_32 s_498)"
+"(lambda(all-formals_0 sc_32 s_94)"
 "(begin"
 "((letrec-values(((loop_121)"
 "(lambda(formals_9)"
@@ -62820,24 +62879,26 @@ static const char *startup_source =
 "(let-values()(list(add-scope formals_9 sc_32)))"
 "(if(syntax?$1 formals_9)"
 "(let-values()"
-"(let-values(((p_83)(syntax-e$1 formals_9)))"
-"(if(pair? p_83)"
-"(let-values()(loop_121 p_83))"
-"(if(null? p_83)"
+"(let-values(((p_84)(syntax-e$1 formals_9)))"
+"(if(pair? p_84)"
+"(let-values()(loop_121 p_84))"
+"(if(null? p_84)"
 "(let-values() null)"
-"                                        (let-values () (raise-syntax-error$1 #f \"not an identifier\" s_498 p_83))))))"
+"                                        (let-values () (raise-syntax-error$1 #f \"not an identifier\" s_94 p_84))))))"
 "(if(pair? formals_9)"
 "(let-values()"
 "(begin"
 "(if(identifier?(car formals_9))"
 "(void)"
 "(let-values()"
-"                                          (raise-syntax-error$1 #f \"not an identifier\" s_498 (car formals_9))))"
-"(cons(add-scope(car formals_9) sc_32)(loop_121(cdr formals_9)))))"
+"                                          (raise-syntax-error$1 #f \"not an identifier\" s_94 (car formals_9))))"
+"(cons"
+"(if sc_32(add-scope(car formals_9) sc_32)(car formals_9))"
+"(loop_121(cdr formals_9)))))"
 "(if(null? formals_9)"
 "(let-values() null)"
 "(let-values()"
-"                                      (raise-syntax-error$1 \"bad argument sequence\" s_498 all-formals_0))))))))))"
+"                                      (raise-syntax-error$1 \"bad argument sequence\" s_94 all-formals_0))))))))))"
 " loop_121)"
 " all-formals_0))))"
 "(define-values"
@@ -62877,74 +62938,74 @@ static const char *startup_source =
 "(let-values(((split-by-reference?_0)(if split-by-reference?9_0 split-by-reference?4_0 #f)))"
 "(let-values(((renames-log-tag_0)(if renames-log-tag10_0 renames-log-tag5_0 'let-renames)))"
 "(let-values()"
-"(lambda(s_407 ctx_83)"
+"(lambda(s_324 ctx_82)"
 "(let-values((()"
 "(begin"
-"(let-values(((obs_92)(expand-context-observer ctx_83)))"
-"(if obs_92"
-"(let-values()(let-values()(call-expand-observe obs_92 log-tag_0)))"
+"(let-values(((obs_90)(expand-context-observer ctx_82)))"
+"(if obs_90"
+"(let-values()(let-values()(call-expand-observe obs_90 log-tag_0)))"
 "(void)))"
 "(values))))"
-"(let-values(((disarmed-s_8)(syntax-disarm$1 s_407)))"
-"(let-values(((ok?_36"
-" letrec-syntaxes+values89_0"
-" id:trans90_0"
-" trans-rhs91_0"
-" id:val92_0"
-" val-rhs93_0"
-" body94_0)"
-"(let-values(((s_110) disarmed-s_8))"
+"(let-values(((disarmed-s_8)(syntax-disarm$1 s_324)))"
+"(let-values(((ok?_37"
+" letrec-syntaxes+values102_0"
+" id:trans103_0"
+" trans-rhs104_0"
+" id:val105_0"
+" val-rhs106_0"
+" body107_0)"
+"(let-values(((s_120) disarmed-s_8))"
 "(if(if syntaxes?_0 #t #f)"
-"(let-values(((orig-s_43) s_110))"
-"(let-values(((letrec-syntaxes+values89_1"
-" id:trans90_1"
-" trans-rhs91_1"
-" id:val92_1"
-" val-rhs93_1"
-" body94_1)"
-"(let-values(((s_499)"
-"(if(syntax?$1 s_110)"
-"(syntax-e$1 s_110)"
-" s_110)))"
-"(if(pair? s_499)"
-"(let-values(((letrec-syntaxes+values95_0)"
-"(let-values(((s_115)(car s_499))) s_115))"
-"((id:trans96_0"
-" trans-rhs97_0"
-" id:val98_0"
-" val-rhs99_0"
-" body100_0)"
-"(let-values(((s_191)(cdr s_499)))"
-"(let-values(((s_500)"
-"(if(syntax?$1 s_191)"
-"(syntax-e$1 s_191)"
-" s_191)))"
-"(if(pair? s_500)"
-"(let-values(((id:trans101_0"
-" trans-rhs102_0)"
-"(let-values(((s_218)"
+"(let-values(((orig-s_44) s_120))"
+"(let-values(((letrec-syntaxes+values102_1"
+" id:trans103_1"
+" trans-rhs104_1"
+" id:val105_1"
+" val-rhs106_1"
+" body107_1)"
+"(let-values(((s_408)"
+"(if(syntax?$1 s_120)"
+"(syntax-e$1 s_120)"
+" s_120)))"
+"(if(pair? s_408)"
+"(let-values(((letrec-syntaxes+values108_0)"
+"(let-values(((s_505)(car s_408))) s_505))"
+"((id:trans109_0"
+" trans-rhs110_0"
+" id:val111_0"
+" val-rhs112_0"
+" body113_0)"
+"(let-values(((s_222)(cdr s_408)))"
+"(let-values(((s_506)"
+"(if(syntax?$1 s_222)"
+"(syntax-e$1 s_222)"
+" s_222)))"
+"(if(pair? s_506)"
+"(let-values(((id:trans114_0"
+" trans-rhs115_0)"
+"(let-values(((s_507)"
 "(car"
-" s_500)))"
-"(let-values(((s_219)"
+" s_506)))"
+"(let-values(((s_508)"
 "(if(syntax?$1"
-" s_218)"
+" s_507)"
 "(syntax-e$1"
-" s_218)"
-" s_218)))"
+" s_507)"
+" s_507)))"
 "(let-values(((flat-s_31)"
 "(to-syntax-list.1"
-" s_219)))"
+" s_508)))"
 "(if(not"
 " flat-s_31)"
 "(let-values()"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                           \"bad syntax\""
-" orig-s_43))"
+" orig-s_44))"
 "(let-values()"
 "(let-values(((id:trans_0"
 " trans-rhs_0)"
-"(let-values(((lst_139)"
+"(let-values(((lst_336)"
 " flat-s_31))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
@@ -62952,21 +63013,21 @@ static const char *startup_source =
 "(void)"
 "(let-values()"
 "(check-list"
-" lst_139)))"
-"((letrec-values(((for-loop_168)"
+" lst_336)))"
+"((letrec-values(((for-loop_131)"
 "(lambda(id:trans_1"
 " trans-rhs_1"
-" lst_336)"
+" lst_2)"
 "(begin"
 " 'for-loop"
 "(if(pair?"
-" lst_336)"
-"(let-values(((s_436)"
+" lst_2)"
+"(let-values(((s_229)"
 "(unsafe-car"
-" lst_336))"
-"((rest_194)"
+" lst_2))"
+"((rest_193)"
 "(unsafe-cdr"
-" lst_336)))"
+" lst_2)))"
 "(let-values(((id:trans_2"
 " trans-rhs_2)"
 "(let-values(((id:trans_3)"
@@ -62976,40 +63037,40 @@ static const char *startup_source =
 "(let-values(((id:trans_4"
 " trans-rhs_4)"
 "(let-values()"
-"(let-values(((id:trans132_0"
-" trans-rhs133_0)"
+"(let-values(((id:trans145_0"
+" trans-rhs146_0)"
 "(let-values()"
-"(let-values(((s_501)"
+"(let-values(((s_509)"
 "(if(syntax?$1"
-" s_436)"
+" s_229)"
 "(syntax-e$1"
-" s_436)"
-" s_436)))"
+" s_229)"
+" s_229)))"
 "(if(pair?"
-" s_501)"
-"(let-values(((id:trans106_0)"
-"(let-values(((s_502)"
+" s_509)"
+"(let-values(((id:trans119_0)"
+"(let-values(((s_334)"
 "(car"
-" s_501)))"
-"(let-values(((s_121)"
+" s_509)))"
+"(let-values(((s_335)"
 "(if(syntax?$1"
-" s_502)"
+" s_334)"
 "(syntax-e$1"
-" s_502)"
-" s_502)))"
+" s_334)"
+" s_334)))"
 "(let-values(((flat-s_32)"
 "(to-syntax-list.1"
-" s_121)))"
+" s_335)))"
 "(if(not"
 " flat-s_32)"
 "(let-values()"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                                                                   \"bad syntax\""
-" orig-s_43))"
+" orig-s_44))"
 "(let-values()"
 "(let-values(((id:trans_5)"
-"(let-values(((lst_114)"
+"(let-values(((lst_337)"
 " flat-s_32))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
@@ -63017,177 +63078,177 @@ static const char *startup_source =
 "(void)"
 "(let-values()"
 "(check-list"
-" lst_114)))"
-"((letrec-values(((for-loop_129)"
+" lst_337)))"
+"((letrec-values(((for-loop_134)"
 "(lambda(id:trans_6"
-" lst_337)"
+" lst_213)"
 "(begin"
 " 'for-loop"
 "(if(pair?"
-" lst_337)"
-"(let-values(((s_503)"
+" lst_213)"
+"(let-values(((s_510)"
 "(unsafe-car"
-" lst_337))"
-"((rest_195)"
+" lst_213))"
+"((rest_194)"
 "(unsafe-cdr"
-" lst_337)))"
+" lst_213)))"
 "(let-values(((id:trans_7)"
 "(let-values(((id:trans_8)"
 " id:trans_6))"
 "(let-values(((id:trans_9)"
 "(let-values()"
-"(let-values(((id:trans134_0)"
+"(let-values(((id:trans147_0)"
 "(let-values()"
-"(if(let-values(((or-part_14)"
+"(if(let-values(((or-part_378)"
 "(if(syntax?$1"
-" s_503)"
+" s_510)"
 "(symbol?"
 "(syntax-e$1"
-" s_503))"
+" s_510))"
 " #f)))"
-"(if or-part_14"
-" or-part_14"
+"(if or-part_378"
+" or-part_378"
 "(symbol?"
-" s_503)))"
-" s_503"
+" s_510)))"
+" s_510"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                                                                                                                                                                 \"not an identifier\""
-" orig-s_43"
-" s_503)))))"
+" orig-s_44"
+" s_510)))))"
 "(cons"
-" id:trans134_0"
+" id:trans147_0"
 " id:trans_8)))))"
 "(values"
 " id:trans_9)))))"
 "(if(not"
 " #f)"
-"(for-loop_129"
+"(for-loop_134"
 " id:trans_7"
-" rest_195)"
+" rest_194)"
 " id:trans_7)))"
 " id:trans_6)))))"
-" for-loop_129)"
+" for-loop_134)"
 " null"
-" lst_114)))))"
+" lst_337)))))"
 "(reverse$1"
 " id:trans_5))))))))"
-"((trans-rhs107_0)"
-"(let-values(((s_223)"
+"((trans-rhs120_0)"
+"(let-values(((s_511)"
 "(cdr"
-" s_501)))"
-"(let-values(((s_504)"
+" s_509)))"
+"(let-values(((s_512)"
 "(if(syntax?$1"
-" s_223)"
+" s_511)"
 "(syntax-e$1"
-" s_223)"
-" s_223)))"
+" s_511)"
+" s_511)))"
 "(if(pair?"
-" s_504)"
-"(let-values(((trans-rhs108_0)"
-"(let-values(((s_505)"
+" s_512)"
+"(let-values(((trans-rhs121_0)"
+"(let-values(((s_235)"
 "(car"
-" s_504)))"
-" s_505))"
+" s_512)))"
+" s_235))"
 "(()"
-"(let-values(((s_224)"
+"(let-values(((s_236)"
 "(cdr"
-" s_504)))"
-"(let-values(((s_225)"
+" s_512)))"
+"(let-values(((s_237)"
 "(if(syntax?$1"
-" s_224)"
+" s_236)"
 "(syntax-e$1"
-" s_224)"
-" s_224)))"
+" s_236)"
+" s_236)))"
 "(if(null?"
-" s_225)"
+" s_237)"
 "(values)"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                                                                                   \"bad syntax\""
-" orig-s_43))))))"
+" orig-s_44))))))"
 "(values"
-" trans-rhs108_0))"
+" trans-rhs121_0))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                                                               \"bad syntax\""
-" orig-s_43))))))"
+" orig-s_44))))))"
 "(values"
-" id:trans106_0"
-" trans-rhs107_0))"
+" id:trans119_0"
+" trans-rhs120_0))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                                           \"bad syntax\""
-" orig-s_43))))))"
+" orig-s_44))))))"
 "(values"
 "(cons"
-" id:trans132_0"
+" id:trans145_0"
 " id:trans_3)"
 "(cons"
-" trans-rhs133_0"
+" trans-rhs146_0"
 " trans-rhs_3))))))"
 "(values"
 " id:trans_4"
 " trans-rhs_4)))))"
 "(if(not"
 " #f)"
-"(for-loop_168"
+"(for-loop_131"
 " id:trans_2"
 " trans-rhs_2"
-" rest_194)"
+" rest_193)"
 "(values"
 " id:trans_2"
 " trans-rhs_2))))"
 "(values"
 " id:trans_1"
 " trans-rhs_1))))))"
-" for-loop_168)"
+" for-loop_131)"
 " null"
 " null"
-" lst_139)))))"
+" lst_336)))))"
 "(values"
 "(reverse$1"
 " id:trans_0)"
 "(reverse$1"
 " trans-rhs_0)))))))))"
-"((id:val103_0"
-" val-rhs104_0"
-" body105_0)"
-"(let-values(((s_226)"
+"((id:val116_0"
+" val-rhs117_0"
+" body118_0)"
+"(let-values(((s_342)"
 "(cdr"
-" s_500)))"
-"(let-values(((s_506)"
-"(if(syntax?$1"
-" s_226)"
-"(syntax-e$1"
-" s_226)"
-" s_226)))"
-"(if(pair? s_506)"
-"(let-values(((id:val109_0"
-" val-rhs110_0)"
-"(let-values(((s_228)"
-"(car"
 " s_506)))"
-"(let-values(((s_229)"
+"(let-values(((s_343)"
 "(if(syntax?$1"
-" s_228)"
+" s_342)"
 "(syntax-e$1"
-" s_228)"
-" s_228)))"
+" s_342)"
+" s_342)))"
+"(if(pair? s_343)"
+"(let-values(((id:val122_0"
+" val-rhs123_0)"
+"(let-values(((s_513)"
+"(car"
+" s_343)))"
+"(let-values(((s_344)"
+"(if(syntax?$1"
+" s_513)"
+"(syntax-e$1"
+" s_513)"
+" s_513)))"
 "(let-values(((flat-s_33)"
 "(to-syntax-list.1"
-" s_229)))"
+" s_344)))"
 "(if(not"
 " flat-s_33)"
 "(let-values()"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                               \"bad syntax\""
-" orig-s_43))"
+" orig-s_44))"
 "(let-values()"
 "(let-values(((id:val_0"
 " val-rhs_1)"
-"(let-values(((lst_338)"
+"(let-values(((lst_141)"
 " flat-s_33))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
@@ -63195,21 +63256,21 @@ static const char *startup_source =
 "(void)"
 "(let-values()"
 "(check-list"
-" lst_338)))"
-"((letrec-values(((for-loop_289)"
+" lst_141)))"
+"((letrec-values(((for-loop_288)"
 "(lambda(id:val_1"
 " val-rhs_2"
-" lst_303)"
+" lst_338)"
 "(begin"
 " 'for-loop"
 "(if(pair?"
-" lst_303)"
-"(let-values(((s_331)"
+" lst_338)"
+"(let-values(((s_349)"
 "(unsafe-car"
-" lst_303))"
-"((rest_169)"
+" lst_338))"
+"((rest_195)"
 "(unsafe-cdr"
-" lst_303)))"
+" lst_338)))"
 "(let-values(((id:val_2"
 " val-rhs_3)"
 "(let-values(((id:val_3)"
@@ -63219,40 +63280,40 @@ static const char *startup_source =
 "(let-values(((id:val_4"
 " val-rhs_5)"
 "(let-values()"
-"(let-values(((id:val135_0"
-" val-rhs136_0)"
+"(let-values(((id:val148_0"
+" val-rhs149_0)"
 "(let-values()"
-"(let-values(((s_340)"
+"(let-values(((s_514)"
 "(if(syntax?$1"
-" s_331)"
+" s_349)"
 "(syntax-e$1"
-" s_331)"
-" s_331)))"
+" s_349)"
+" s_349)))"
 "(if(pair?"
-" s_340)"
-"(let-values(((id:val112_0)"
-"(let-values(((s_233)"
+" s_514)"
+"(let-values(((id:val125_0)"
+"(let-values(((s_354)"
 "(car"
-" s_340)))"
-"(let-values(((s_507)"
+" s_514)))"
+"(let-values(((s_355)"
 "(if(syntax?$1"
-" s_233)"
+" s_354)"
 "(syntax-e$1"
-" s_233)"
-" s_233)))"
+" s_354)"
+" s_354)))"
 "(let-values(((flat-s_34)"
 "(to-syntax-list.1"
-" s_507)))"
+" s_355)))"
 "(if(not"
 " flat-s_34)"
 "(let-values()"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                                                                                       \"bad syntax\""
-" orig-s_43))"
+" orig-s_44))"
 "(let-values()"
 "(let-values(((id:val_5)"
-"(let-values(((lst_331)"
+"(let-values(((lst_339)"
 " flat-s_34))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
@@ -63260,248 +63321,248 @@ static const char *startup_source =
 "(void)"
 "(let-values()"
 "(check-list"
-" lst_331)))"
-"((letrec-values(((for-loop_259)"
+" lst_339)))"
+"((letrec-values(((for-loop_289)"
 "(lambda(id:val_6"
-" lst_339)"
+" lst_340)"
 "(begin"
 " 'for-loop"
 "(if(pair?"
-" lst_339)"
-"(let-values(((s_508)"
+" lst_340)"
+"(let-values(((s_515)"
 "(unsafe-car"
-" lst_339))"
+" lst_340))"
 "((rest_196)"
 "(unsafe-cdr"
-" lst_339)))"
+" lst_340)))"
 "(let-values(((id:val_7)"
 "(let-values(((id:val_8)"
 " id:val_6))"
 "(let-values(((id:val_9)"
 "(let-values()"
-"(let-values(((id:val137_0)"
+"(let-values(((id:val150_0)"
 "(let-values()"
-"(if(let-values(((or-part_374)"
+"(if(let-values(((or-part_379)"
 "(if(syntax?$1"
-" s_508)"
+" s_515)"
 "(symbol?"
 "(syntax-e$1"
-" s_508))"
+" s_515))"
 " #f)))"
-"(if or-part_374"
-" or-part_374"
+"(if or-part_379"
+" or-part_379"
 "(symbol?"
-" s_508)))"
-" s_508"
+" s_515)))"
+" s_515"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                                                                                                                                                                                     \"not an identifier\""
-" orig-s_43"
-" s_508)))))"
+" orig-s_44"
+" s_515)))))"
 "(cons"
-" id:val137_0"
+" id:val150_0"
 " id:val_8)))))"
 "(values"
 " id:val_9)))))"
 "(if(not"
 " #f)"
-"(for-loop_259"
+"(for-loop_289"
 " id:val_7"
 " rest_196)"
 " id:val_7)))"
 " id:val_6)))))"
-" for-loop_259)"
+" for-loop_289)"
 " null"
-" lst_331)))))"
+" lst_339)))))"
 "(reverse$1"
 " id:val_5))))))))"
-"((val-rhs113_0)"
-"(let-values(((s_239)"
+"((val-rhs126_0)"
+"(let-values(((s_516)"
 "(cdr"
-" s_340)))"
-"(let-values(((s_240)"
+" s_514)))"
+"(let-values(((s_243)"
 "(if(syntax?$1"
-" s_239)"
+" s_516)"
 "(syntax-e$1"
-" s_239)"
-" s_239)))"
+" s_516)"
+" s_516)))"
 "(if(pair?"
-" s_240)"
-"(let-values(((val-rhs114_0)"
-"(let-values(((s_344)"
+" s_243)"
+"(let-values(((val-rhs127_0)"
+"(let-values(((s_517)"
 "(car"
-" s_240)))"
-" s_344))"
+" s_243)))"
+" s_517))"
 "(()"
-"(let-values(((s_345)"
+"(let-values(((s_518)"
 "(cdr"
-" s_240)))"
-"(let-values(((s_509)"
+" s_243)))"
+"(let-values(((s_519)"
 "(if(syntax?$1"
-" s_345)"
+" s_518)"
 "(syntax-e$1"
-" s_345)"
-" s_345)))"
+" s_518)"
+" s_518)))"
 "(if(null?"
-" s_509)"
+" s_519)"
 "(values)"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                                                                                                       \"bad syntax\""
-" orig-s_43))))))"
+" orig-s_44))))))"
 "(values"
-" val-rhs114_0))"
+" val-rhs127_0))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                                                                                   \"bad syntax\""
-" orig-s_43))))))"
+" orig-s_44))))))"
 "(values"
-" id:val112_0"
-" val-rhs113_0))"
+" id:val125_0"
+" val-rhs126_0))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                                                               \"bad syntax\""
-" orig-s_43))))))"
+" orig-s_44))))))"
 "(values"
 "(cons"
-" id:val135_0"
+" id:val148_0"
 " id:val_3)"
 "(cons"
-" val-rhs136_0"
+" val-rhs149_0"
 " val-rhs_4))))))"
 "(values"
 " id:val_4"
 " val-rhs_5)))))"
 "(if(not"
 " #f)"
-"(for-loop_289"
+"(for-loop_288"
 " id:val_2"
 " val-rhs_3"
-" rest_169)"
+" rest_195)"
 "(values"
 " id:val_2"
 " val-rhs_3))))"
 "(values"
 " id:val_1"
 " val-rhs_2))))))"
-" for-loop_289)"
+" for-loop_288)"
 " null"
 " null"
-" lst_338)))))"
+" lst_141)))))"
 "(values"
 "(reverse$1"
 " id:val_0)"
 "(reverse$1"
 " val-rhs_1)))))))))"
-"((body111_0)"
-"(let-values(((s_510)"
+"((body124_0)"
+"(let-values(((s_244)"
 "(cdr"
-" s_506)))"
-"(let-values(((s_346)"
+" s_343)))"
+"(let-values(((s_245)"
 "(if(syntax?$1"
-" s_510)"
+" s_244)"
 "(syntax-e$1"
-" s_510)"
-" s_510)))"
+" s_244)"
+" s_244)))"
 "(let-values(((flat-s_35)"
 "(to-syntax-list.1"
-" s_346)))"
+" s_245)))"
 "(if(not"
 " flat-s_35)"
 "(let-values()"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                               \"bad syntax\""
-" orig-s_43))"
+" orig-s_44))"
 "(if(null?"
 " flat-s_35)"
 "(let-values()"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                 \"bad syntax\""
-" orig-s_43))"
+" orig-s_44))"
 "(let-values()"
 " flat-s_35))))))))"
 "(values"
-" id:val109_0"
-" val-rhs110_0"
-" body111_0))"
+" id:val122_0"
+" val-rhs123_0"
+" body124_0))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                       \"bad syntax\""
-" orig-s_43))))))"
+" orig-s_44))))))"
 "(values"
-" id:trans101_0"
-" trans-rhs102_0"
-" id:val103_0"
-" val-rhs104_0"
-" body105_0))"
+" id:trans114_0"
+" trans-rhs115_0"
+" id:val116_0"
+" val-rhs117_0"
+" body118_0))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                   \"bad syntax\""
-" orig-s_43))))))"
+" orig-s_44))))))"
 "(values"
-" letrec-syntaxes+values95_0"
-" id:trans96_0"
-" trans-rhs97_0"
-" id:val98_0"
-" val-rhs99_0"
-" body100_0))"
-"                                                              (raise-syntax-error$1 #f \"bad syntax\" orig-s_43)))))"
+" letrec-syntaxes+values108_0"
+" id:trans109_0"
+" trans-rhs110_0"
+" id:val111_0"
+" val-rhs112_0"
+" body113_0))"
+"                                                              (raise-syntax-error$1 #f \"bad syntax\" orig-s_44)))))"
 "(values"
 " #t"
-" letrec-syntaxes+values89_1"
-" id:trans90_1"
-" trans-rhs91_1"
-" id:val92_1"
-" val-rhs93_1"
-" body94_1)))"
+" letrec-syntaxes+values102_1"
+" id:trans103_1"
+" trans-rhs104_1"
+" id:val105_1"
+" val-rhs106_1"
+" body107_1)))"
 "(values #f #f #f #f #f #f #f)))))"
-"(let-values(((ok?_37 let-values115_0 id:val116_0 val-rhs117_0 body118_0)"
-"(let-values(((s_347) disarmed-s_8))"
+"(let-values(((ok?_38 let-values128_0 id:val129_0 val-rhs130_0 body131_0)"
+"(let-values(((s_520) disarmed-s_8))"
 "(if(if(not syntaxes?_0) #t #f)"
-"(let-values(((orig-s_44) s_347))"
-"(let-values(((let-values115_1 id:val116_1 val-rhs117_1 body118_1)"
-"(let-values(((s_511)"
-"(if(syntax?$1 s_347)"
-"(syntax-e$1 s_347)"
-" s_347)))"
-"(if(pair? s_511)"
-"(let-values(((let-values119_0)"
-"(let-values(((s_351)(car s_511)))"
-" s_351))"
-"((id:val120_0 val-rhs121_0 body122_0)"
-"(let-values(((s_352)(cdr s_511)))"
-"(let-values(((s_512)"
-"(if(syntax?$1 s_352)"
-"(syntax-e$1 s_352)"
-" s_352)))"
-"(if(pair? s_512)"
-"(let-values(((id:val123_0"
-" val-rhs124_0)"
-"(let-values(((s_355)"
+"(let-values(((orig-s_45) s_520))"
+"(let-values(((let-values128_1 id:val129_1 val-rhs130_1 body131_1)"
+"(let-values(((s_249)"
+"(if(syntax?$1 s_520)"
+"(syntax-e$1 s_520)"
+" s_520)))"
+"(if(pair? s_249)"
+"(let-values(((let-values132_0)"
+"(let-values(((s_252)(car s_249)))"
+" s_252))"
+"((id:val133_0 val-rhs134_0 body135_0)"
+"(let-values(((s_521)(cdr s_249)))"
+"(let-values(((s_445)"
+"(if(syntax?$1 s_521)"
+"(syntax-e$1 s_521)"
+" s_521)))"
+"(if(pair? s_445)"
+"(let-values(((id:val136_0"
+" val-rhs137_0)"
+"(let-values(((s_360)"
 "(car"
-" s_512)))"
-"(let-values(((s_513)"
+" s_445)))"
+"(let-values(((s_253)"
 "(if(syntax?$1"
-" s_355)"
+" s_360)"
 "(syntax-e$1"
-" s_355)"
-" s_355)))"
+" s_360)"
+" s_360)))"
 "(let-values(((flat-s_36)"
 "(to-syntax-list.1"
-" s_513)))"
+" s_253)))"
 "(if(not"
 " flat-s_36)"
 "(let-values()"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                             \"bad syntax\""
-" orig-s_44))"
+" orig-s_45))"
 "(let-values()"
 "(let-values(((id:val_10"
 " val-rhs_6)"
-"(let-values(((lst_340)"
+"(let-values(((lst_341)"
 " flat-s_36))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
@@ -63509,21 +63570,21 @@ static const char *startup_source =
 "(void)"
 "(let-values()"
 "(check-list"
-" lst_340)))"
+" lst_341)))"
 "((letrec-values(((for-loop_290)"
 "(lambda(id:val_11"
 " val-rhs_7"
-" lst_341)"
+" lst_342)"
 "(begin"
 " 'for-loop"
 "(if(pair?"
-" lst_341)"
-"(let-values(((s_443)"
+" lst_342)"
+"(let-values(((s_369)"
 "(unsafe-car"
-" lst_341))"
+" lst_342))"
 "((rest_197)"
 "(unsafe-cdr"
-" lst_341)))"
+" lst_342)))"
 "(let-values(((id:val_12"
 " val-rhs_8)"
 "(let-values(((id:val_13)"
@@ -63533,40 +63594,40 @@ static const char *startup_source =
 "(let-values(((id:val_14"
 " val-rhs_10)"
 "(let-values()"
-"(let-values(((id:val138_0"
-" val-rhs139_0)"
+"(let-values(((id:val151_0"
+" val-rhs152_0)"
 "(let-values()"
-"(let-values(((s_244)"
+"(let-values(((s_522)"
 "(if(syntax?$1"
-" s_443)"
+" s_369)"
 "(syntax-e$1"
-" s_443)"
-" s_443)))"
+" s_369)"
+" s_369)))"
 "(if(pair?"
-" s_244)"
-"(let-values(((id:val126_0)"
-"(let-values(((s_514)"
+" s_522)"
+"(let-values(((id:val139_0)"
+"(let-values(((s_373)"
 "(car"
-" s_244)))"
-"(let-values(((s_515)"
+" s_522)))"
+"(let-values(((s_374)"
 "(if(syntax?$1"
-" s_514)"
+" s_373)"
 "(syntax-e$1"
-" s_514)"
-" s_514)))"
+" s_373)"
+" s_373)))"
 "(let-values(((flat-s_37)"
 "(to-syntax-list.1"
-" s_515)))"
+" s_374)))"
 "(if(not"
 " flat-s_37)"
 "(let-values()"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                                                                     \"bad syntax\""
-" orig-s_44))"
+" orig-s_45))"
 "(let-values()"
 "(let-values(((id:val_15)"
-"(let-values(((lst_342)"
+"(let-values(((lst_343)"
 " flat-s_37))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
@@ -63574,46 +63635,46 @@ static const char *startup_source =
 "(void)"
 "(let-values()"
 "(check-list"
-" lst_342)))"
+" lst_343)))"
 "((letrec-values(((for-loop_291)"
 "(lambda(id:val_16"
-" lst_343)"
+" lst_344)"
 "(begin"
 " 'for-loop"
 "(if(pair?"
-" lst_343)"
-"(let-values(((s_516)"
+" lst_344)"
+"(let-values(((s_378)"
 "(unsafe-car"
-" lst_343))"
+" lst_344))"
 "((rest_198)"
 "(unsafe-cdr"
-" lst_343)))"
+" lst_344)))"
 "(let-values(((id:val_17)"
 "(let-values(((id:val_18)"
 " id:val_16))"
 "(let-values(((id:val_19)"
 "(let-values()"
-"(let-values(((id:val140_0)"
+"(let-values(((id:val153_0)"
 "(let-values()"
-"(if(let-values(((or-part_375)"
+"(if(let-values(((or-part_350)"
 "(if(syntax?$1"
-" s_516)"
+" s_378)"
 "(symbol?"
 "(syntax-e$1"
-" s_516))"
+" s_378))"
 " #f)))"
-"(if or-part_375"
-" or-part_375"
+"(if or-part_350"
+" or-part_350"
 "(symbol?"
-" s_516)))"
-" s_516"
+" s_378)))"
+" s_378"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                                                                                                                                                                   \"not an identifier\""
-" orig-s_44"
-" s_516)))))"
+" orig-s_45"
+" s_378)))))"
 "(cons"
-" id:val140_0"
+" id:val153_0"
 " id:val_18)))))"
 "(values"
 " id:val_19)))))"
@@ -63626,62 +63687,62 @@ static const char *startup_source =
 " id:val_16)))))"
 " for-loop_291)"
 " null"
-" lst_342)))))"
+" lst_343)))))"
 "(reverse$1"
 " id:val_15))))))))"
-"((val-rhs127_0)"
-"(let-values(((s_447)"
+"((val-rhs140_0)"
+"(let-values(((s_122)"
 "(cdr"
-" s_244)))"
-"(let-values(((s_359)"
+" s_522)))"
+"(let-values(((s_256)"
 "(if(syntax?$1"
-" s_447)"
+" s_122)"
 "(syntax-e$1"
-" s_447)"
-" s_447)))"
+" s_122)"
+" s_122)))"
 "(if(pair?"
-" s_359)"
-"(let-values(((val-rhs128_0)"
-"(let-values(((s_253)"
+" s_256)"
+"(let-values(((val-rhs141_0)"
+"(let-values(((s_258)"
 "(car"
-" s_359)))"
-" s_253))"
+" s_256)))"
+" s_258))"
 "(()"
-"(let-values(((s_361)"
+"(let-values(((s_523)"
 "(cdr"
-" s_359)))"
-"(let-values(((s_362)"
+" s_256)))"
+"(let-values(((s_524)"
 "(if(syntax?$1"
-" s_361)"
+" s_523)"
 "(syntax-e$1"
-" s_361)"
-" s_361)))"
+" s_523)"
+" s_523)))"
 "(if(null?"
-" s_362)"
+" s_524)"
 "(values)"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                                                                                     \"bad syntax\""
-" orig-s_44))))))"
+" orig-s_45))))))"
 "(values"
-" val-rhs128_0))"
+" val-rhs141_0))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                                                                 \"bad syntax\""
-" orig-s_44))))))"
+" orig-s_45))))))"
 "(values"
-" id:val126_0"
-" val-rhs127_0))"
+" id:val139_0"
+" val-rhs140_0))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                                             \"bad syntax\""
-" orig-s_44))))))"
+" orig-s_45))))))"
 "(values"
 "(cons"
-" id:val138_0"
+" id:val151_0"
 " id:val_13)"
 "(cons"
-" val-rhs139_0"
+" val-rhs152_0"
 " val-rhs_9))))))"
 "(values"
 " id:val_14"
@@ -63701,76 +63762,76 @@ static const char *startup_source =
 " for-loop_290)"
 " null"
 " null"
-" lst_340)))))"
+" lst_341)))))"
 "(values"
 "(reverse$1"
 " id:val_10)"
 "(reverse$1"
 " val-rhs_6)))))))))"
-"((body125_0)"
-"(let-values(((s_363)"
+"((body138_0)"
+"(let-values(((s_525)"
 "(cdr"
-" s_512)))"
-"(let-values(((s_364)"
+" s_445)))"
+"(let-values(((s_259)"
 "(if(syntax?$1"
-" s_363)"
+" s_525)"
 "(syntax-e$1"
-" s_363)"
-" s_363)))"
+" s_525)"
+" s_525)))"
 "(let-values(((flat-s_38)"
 "(to-syntax-list.1"
-" s_364)))"
+" s_259)))"
 "(if(not"
 " flat-s_38)"
 "(let-values()"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                             \"bad syntax\""
-" orig-s_44))"
+" orig-s_45))"
 "(if(null?"
 " flat-s_38)"
 "(let-values()"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                               \"bad syntax\""
-" orig-s_44))"
+" orig-s_45))"
 "(let-values()"
 " flat-s_38))))))))"
 "(values"
-" id:val123_0"
-" val-rhs124_0"
-" body125_0))"
+" id:val136_0"
+" val-rhs137_0"
+" body138_0))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                     \"bad syntax\""
-" orig-s_44))))))"
+" orig-s_45))))))"
 "(values"
-" let-values119_0"
-" id:val120_0"
-" val-rhs121_0"
-" body122_0))"
-"                                                                (raise-syntax-error$1 #f \"bad syntax\" orig-s_44)))))"
-"(values #t let-values115_1 id:val116_1 val-rhs117_1 body118_1)))"
+" let-values132_0"
+" id:val133_0"
+" val-rhs134_0"
+" body135_0))"
+"                                                                (raise-syntax-error$1 #f \"bad syntax\" orig-s_45)))))"
+"(values #t let-values128_1 id:val129_1 val-rhs130_1 body131_1)))"
 "(values #f #f #f #f #f)))))"
 "(let-values(((sc_33)(new-scope 'local)))"
-"(let-values(((phase_144)(expand-context-phase ctx_83)))"
+"(let-values(((phase_145)(expand-context-phase ctx_82)))"
 "(let-values(((frame-id_15)(if syntaxes?_0(make-reference-record) #f)))"
 "(let-values(((trans-idss_2)"
 "(reverse$1"
-"(let-values(((lst_344)(if syntaxes?_0 id:trans90_0 null)))"
+"(let-values(((lst_345)(if syntaxes?_0 id:trans103_0 null)))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
-"(let-values()(check-list lst_344)))"
+"(let-values()(check-list lst_345)))"
 "((letrec-values(((for-loop_292)"
-"(lambda(fold-var_304 lst_345)"
+"(lambda(fold-var_304 lst_346)"
 "(begin"
 " 'for-loop"
-"(if(pair? lst_345)"
-"(let-values(((ids_19)"
-"(unsafe-car lst_345))"
+"(if(pair? lst_346)"
+"(let-values(((ids_35)"
+"(unsafe-car lst_346))"
 "((rest_199)"
-"(unsafe-cdr lst_345)))"
+"(unsafe-cdr lst_346)))"
 "(let-values(((fold-var_305)"
 "(let-values(((fold-var_306)"
 " fold-var_304))"
@@ -63779,32 +63840,32 @@ static const char *startup_source =
 "(cons"
 "(let-values()"
 "(reverse$1"
-"(let-values(((lst_346)"
-" ids_19))"
+"(let-values(((lst_347)"
+" ids_35))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
 "(#%variable-reference))"
 "(void)"
 "(let-values()"
 "(check-list"
-" lst_346)))"
+" lst_347)))"
 "((letrec-values(((for-loop_293)"
 "(lambda(fold-var_308"
-" lst_347)"
+" lst_348)"
 "(begin"
 " 'for-loop"
 "(if(pair?"
-" lst_347)"
+" lst_348)"
 "(let-values(((id_119)"
 "(unsafe-car"
-" lst_347))"
+" lst_348))"
 "((rest_200)"
 "(unsafe-cdr"
-" lst_347)))"
+" lst_348)))"
 "(let-values(((fold-var_309)"
 "(let-values(((fold-var_310)"
 " fold-var_308))"
-"(let-values(((fold-var_311)"
+"(let-values(((fold-var_100)"
 "(let-values()"
 "(cons"
 "(let-values()"
@@ -63813,7 +63874,7 @@ static const char *startup_source =
 " sc_33))"
 " fold-var_310))))"
 "(values"
-" fold-var_311)))))"
+" fold-var_100)))))"
 "(if(not"
 " #f)"
 "(for-loop_293"
@@ -63823,7 +63884,7 @@ static const char *startup_source =
 " fold-var_308)))))"
 " for-loop_293)"
 " null"
-" lst_346)))))"
+" lst_347)))))"
 " fold-var_306))))"
 "(values"
 " fold-var_307)))))"
@@ -63833,109 +63894,109 @@ static const char *startup_source =
 " fold-var_304)))))"
 " for-loop_292)"
 " null"
-" lst_344))))))"
+" lst_345))))))"
 "(let-values(((val-idss_3)"
 "(reverse$1"
-"(let-values(((lst_348)(if syntaxes?_0 id:val92_0 id:val116_0)))"
+"(let-values(((lst_349)(if syntaxes?_0 id:val105_0 id:val129_0)))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
-"(let-values()(check-list lst_348)))"
+"(let-values()(check-list lst_349)))"
 "((letrec-values(((for-loop_294)"
-"(lambda(fold-var_312 lst_304)"
+"(lambda(fold-var_103 lst_350)"
 "(begin"
 " 'for-loop"
-"(if(pair? lst_304)"
-"(let-values(((ids_34)"
-"(unsafe-car lst_304))"
+"(if(pair? lst_350)"
+"(let-values(((ids_36)"
+"(unsafe-car lst_350))"
 "((rest_201)"
-"(unsafe-cdr lst_304)))"
+"(unsafe-cdr lst_350)))"
+"(let-values(((fold-var_311)"
+"(let-values(((fold-var_312)"
+" fold-var_103))"
 "(let-values(((fold-var_313)"
-"(let-values(((fold-var_314)"
-" fold-var_312))"
-"(let-values(((fold-var_315)"
 "(let-values()"
 "(cons"
 "(let-values()"
 "(reverse$1"
-"(let-values(((lst_349)"
-" ids_34))"
+"(let-values(((lst_351)"
+" ids_36))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
 "(#%variable-reference))"
 "(void)"
 "(let-values()"
 "(check-list"
-" lst_349)))"
+" lst_351)))"
 "((letrec-values(((for-loop_295)"
-"(lambda(fold-var_271"
-" lst_306)"
+"(lambda(fold-var_314"
+" lst_352)"
 "(begin"
 " 'for-loop"
 "(if(pair?"
-" lst_306)"
+" lst_352)"
 "(let-values(((id_120)"
 "(unsafe-car"
-" lst_306))"
+" lst_352))"
 "((rest_202)"
 "(unsafe-cdr"
-" lst_306)))"
+" lst_352)))"
+"(let-values(((fold-var_315)"
 "(let-values(((fold-var_316)"
+" fold-var_314))"
 "(let-values(((fold-var_317)"
-" fold-var_271))"
-"(let-values(((fold-var_318)"
 "(let-values()"
 "(cons"
 "(let-values()"
 "(add-scope"
 " id_120"
 " sc_33))"
-" fold-var_317))))"
+" fold-var_316))))"
 "(values"
-" fold-var_318)))))"
+" fold-var_317)))))"
 "(if(not"
 " #f)"
 "(for-loop_295"
-" fold-var_316"
+" fold-var_315"
 " rest_202)"
-" fold-var_316)))"
-" fold-var_271)))))"
+" fold-var_315)))"
+" fold-var_314)))))"
 " for-loop_295)"
 " null"
-" lst_349)))))"
-" fold-var_314))))"
+" lst_351)))))"
+" fold-var_312))))"
 "(values"
-" fold-var_315)))))"
+" fold-var_313)))))"
 "(if(not #f)"
 "(for-loop_294"
-" fold-var_313"
+" fold-var_311"
 " rest_201)"
-" fold-var_313)))"
-" fold-var_312)))))"
+" fold-var_311)))"
+" fold-var_103)))))"
 " for-loop_294)"
 " null"
-" lst_348))))))"
+" lst_349))))))"
 "(let-values(((val-rhss_3)"
 "(if rec?_1"
 "(reverse$1"
-"(let-values(((lst_350)"
-"(if syntaxes?_0 val-rhs93_0 val-rhs117_0)))"
+"(let-values(((lst_353)"
+"(if syntaxes?_0 val-rhs106_0 val-rhs130_0)))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
-"(let-values()(check-list lst_350)))"
-"((letrec-values(((for-loop_296)"
-"(lambda(fold-var_275 lst_351)"
+"(let-values()(check-list lst_353)))"
+"((letrec-values(((for-loop_268)"
+"(lambda(fold-var_318 lst_354)"
 "(begin"
 " 'for-loop"
-"(if(pair? lst_351)"
+"(if(pair? lst_354)"
 "(let-values(((rhs_20)"
-"(unsafe-car lst_351))"
+"(unsafe-car lst_354))"
 "((rest_203)"
-"(unsafe-cdr lst_351)))"
+"(unsafe-cdr lst_354)))"
 "(let-values(((fold-var_319)"
 "(let-values(((fold-var_320)"
-" fold-var_275))"
+" fold-var_318))"
 "(let-values(((fold-var_321)"
 "(let-values()"
 "(cons"
@@ -63947,284 +64008,284 @@ static const char *startup_source =
 "(values"
 " fold-var_321)))))"
 "(if(not #f)"
-"(for-loop_296"
+"(for-loop_268"
 " fold-var_319"
 " rest_203)"
 " fold-var_319)))"
-" fold-var_275)))))"
-" for-loop_296)"
+" fold-var_318)))))"
+" for-loop_268)"
 " null"
-" lst_350))))"
-"(if syntaxes?_0 val-rhs93_0 val-rhs117_0))))"
+" lst_353))))"
+"(if syntaxes?_0 val-rhs106_0 val-rhs130_0))))"
 "(let-values((()"
 "(begin"
-"(let-values(((temp129_2)(list trans-idss_2 val-idss_3))"
-"((phase130_0) phase_144)"
-"((s131_0) s_407))"
+"(let-values(((temp142_2)(list trans-idss_2 val-idss_3))"
+"((phase143_0) phase_145)"
+"((s144_0) s_324))"
 "(check-no-duplicate-ids8.1"
 " #f"
 " #f"
-" temp129_2"
-" phase130_0"
-" s131_0"
+" temp142_2"
+" phase143_0"
+" s144_0"
 " #f"
 " #f))"
 "(values))))"
-"(let-values(((counter_8)(root-expand-context-counter ctx_83)))"
+"(let-values(((counter_8)(root-expand-context-counter ctx_82)))"
 "(let-values(((trans-keyss_0)"
 "(reverse$1"
-"(let-values(((lst_120) trans-idss_2))"
+"(let-values(((lst_355) trans-idss_2))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
 "(#%variable-reference))"
 "(void)"
-"(let-values()(check-list lst_120)))"
-"((letrec-values(((for-loop_153)"
-"(lambda(fold-var_98 lst_121)"
+"(let-values()(check-list lst_355)))"
+"((letrec-values(((for-loop_296)"
+"(lambda(fold-var_322 lst_356)"
 "(begin"
 " 'for-loop"
-"(if(pair? lst_121)"
-"(let-values(((ids_35)"
+"(if(pair? lst_356)"
+"(let-values(((ids_37)"
 "(unsafe-car"
-" lst_121))"
-"((rest_59)"
+" lst_356))"
+"((rest_204)"
 "(unsafe-cdr"
-" lst_121)))"
-"(let-values(((fold-var_99)"
-"(let-values(((fold-var_322)"
-" fold-var_98))"
+" lst_356)))"
 "(let-values(((fold-var_323)"
+"(let-values(((fold-var_324)"
+" fold-var_322))"
+"(let-values(((fold-var_325)"
 "(let-values()"
 "(cons"
 "(let-values()"
 "(reverse$1"
-"(let-values(((lst_352)"
-" ids_35))"
+"(let-values(((lst_357)"
+" ids_37))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
 "(#%variable-reference))"
 "(void)"
 "(let-values()"
 "(check-list"
-" lst_352)))"
+" lst_357)))"
 "((letrec-values(((for-loop_297)"
-"(lambda(fold-var_102"
-" lst_353)"
+"(lambda(fold-var_326"
+" lst_358)"
 "(begin"
 " 'for-loop"
 "(if(pair?"
-" lst_353)"
+" lst_358)"
 "(let-values(((id_121)"
 "(unsafe-car"
-" lst_353))"
-"((rest_204)"
+" lst_358))"
+"((rest_205)"
 "(unsafe-cdr"
-" lst_353)))"
-"(let-values(((fold-var_324)"
-"(let-values(((fold-var_325)"
-" fold-var_102))"
-"(let-values(((fold-var_326)"
+" lst_358)))"
+"(let-values(((fold-var_327)"
+"(let-values(((fold-var_328)"
+" fold-var_326))"
+"(let-values(((fold-var_329)"
 "(let-values()"
 "(cons"
 "(let-values()"
-"(let-values(((id141_0)"
+"(let-values(((id154_0)"
 " id_121)"
-"((phase142_0)"
-" phase_144)"
-"((counter143_0)"
+"((phase155_1)"
+" phase_145)"
+"((counter156_0)"
 " counter_8)"
-"((frame-id144_0)"
+"((frame-id157_0)"
 " frame-id_15)"
-"((s145_1)"
-" s_407))"
+"((s158_1)"
+" s_324))"
 "(add-local-binding!35.1"
-" frame-id144_0"
+" frame-id157_0"
 " #t"
-" s145_1"
+" s158_1"
 " #t"
-" id141_0"
-" phase142_0"
-" counter143_0)))"
-" fold-var_325))))"
+" id154_0"
+" phase155_1"
+" counter156_0)))"
+" fold-var_328))))"
 "(values"
-" fold-var_326)))))"
+" fold-var_329)))))"
 "(if(not"
 " #f)"
 "(for-loop_297"
-" fold-var_324"
-" rest_204)"
-" fold-var_324)))"
-" fold-var_102)))))"
+" fold-var_327"
+" rest_205)"
+" fold-var_327)))"
+" fold-var_326)))))"
 " for-loop_297)"
 " null"
-" lst_352)))))"
-" fold-var_322))))"
+" lst_357)))))"
+" fold-var_324))))"
 "(values"
-" fold-var_323)))))"
+" fold-var_325)))))"
 "(if(not #f)"
-"(for-loop_153"
-" fold-var_99"
-" rest_59)"
-" fold-var_99)))"
-" fold-var_98)))))"
-" for-loop_153)"
+"(for-loop_296"
+" fold-var_323"
+" rest_204)"
+" fold-var_323)))"
+" fold-var_322)))))"
+" for-loop_296)"
 " null"
-" lst_120))))))"
+" lst_355))))))"
 "(let-values(((val-keyss_2)"
 "(reverse$1"
-"(let-values(((lst_354) val-idss_3))"
+"(let-values(((lst_359) val-idss_3))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
 "(#%variable-reference))"
 "(void)"
-"(let-values()(check-list lst_354)))"
+"(let-values()(check-list lst_359)))"
 "((letrec-values(((for-loop_298)"
-"(lambda(fold-var_327 lst_355)"
+"(lambda(fold-var_330 lst_123)"
 "(begin"
 " 'for-loop"
-"(if(pair? lst_355)"
-"(let-values(((ids_36)"
+"(if(pair? lst_123)"
+"(let-values(((ids_38)"
 "(unsafe-car"
-" lst_355))"
-"((rest_205)"
+" lst_123))"
+"((rest_60)"
 "(unsafe-cdr"
-" lst_355)))"
-"(let-values(((fold-var_328)"
-"(let-values(((fold-var_329)"
-" fold-var_327))"
-"(let-values(((fold-var_330)"
+" lst_123)))"
+"(let-values(((fold-var_331)"
+"(let-values(((fold-var_332)"
+" fold-var_330))"
+"(let-values(((fold-var_333)"
 "(let-values()"
 "(cons"
 "(let-values()"
 "(reverse$1"
-"(let-values(((lst_356)"
-" ids_36))"
+"(let-values(((lst_360)"
+" ids_38))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
 "(#%variable-reference))"
 "(void)"
 "(let-values()"
 "(check-list"
-" lst_356)))"
+" lst_360)))"
 "((letrec-values(((for-loop_299)"
-"(lambda(fold-var_331"
-" lst_357)"
+"(lambda(fold-var_334"
+" lst_361)"
 "(begin"
 " 'for-loop"
 "(if(pair?"
-" lst_357)"
-"(let-values(((id_26)"
+" lst_361)"
+"(let-values(((id_122)"
 "(unsafe-car"
-" lst_357))"
+" lst_361))"
 "((rest_206)"
 "(unsafe-cdr"
-" lst_357)))"
-"(let-values(((fold-var_332)"
-"(let-values(((fold-var_333)"
-" fold-var_331))"
-"(let-values(((fold-var_334)"
+" lst_361)))"
+"(let-values(((fold-var_335)"
+"(let-values(((fold-var_336)"
+" fold-var_334))"
+"(let-values(((fold-var_337)"
 "(let-values()"
 "(cons"
 "(let-values()"
-"(let-values(((id146_1)"
-" id_26)"
-"((phase147_1)"
-" phase_144)"
-"((counter148_0)"
+"(let-values(((id159_0)"
+" id_122)"
+"((phase160_1)"
+" phase_145)"
+"((counter161_0)"
 " counter_8)"
-"((frame-id149_0)"
+"((frame-id162_0)"
 " frame-id_15)"
-"((s150_1)"
-" s_407))"
+"((s163_0)"
+" s_324))"
 "(add-local-binding!35.1"
-" frame-id149_0"
+" frame-id162_0"
 " #t"
-" s150_1"
+" s163_0"
 " #t"
-" id146_1"
-" phase147_1"
-" counter148_0)))"
-" fold-var_333))))"
+" id159_0"
+" phase160_1"
+" counter161_0)))"
+" fold-var_336))))"
 "(values"
-" fold-var_334)))))"
+" fold-var_337)))))"
 "(if(not"
 " #f)"
 "(for-loop_299"
-" fold-var_332"
+" fold-var_335"
 " rest_206)"
-" fold-var_332)))"
-" fold-var_331)))))"
+" fold-var_335)))"
+" fold-var_334)))))"
 " for-loop_299)"
 " null"
-" lst_356)))))"
-" fold-var_329))))"
+" lst_360)))))"
+" fold-var_332))))"
 "(values"
-" fold-var_330)))))"
+" fold-var_333)))))"
 "(if(not #f)"
 "(for-loop_298"
-" fold-var_328"
-" rest_205)"
-" fold-var_328)))"
-" fold-var_327)))))"
+" fold-var_331"
+" rest_60)"
+" fold-var_331)))"
+" fold-var_330)))))"
 " for-loop_298)"
 " null"
-" lst_354))))))"
+" lst_359))))))"
 "(let-values(((bodys_10)"
 "(reverse$1"
-"(let-values(((lst_358)"
-"(if syntaxes?_0 body94_0 body118_0)))"
+"(let-values(((lst_144)"
+"(if syntaxes?_0 body107_0 body131_0)))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
 "(#%variable-reference))"
 "(void)"
-"(let-values()(check-list lst_358)))"
-"((letrec-values(((for-loop_300)"
-"(lambda(fold-var_335 lst_359)"
+"(let-values()(check-list lst_144)))"
+"((letrec-values(((for-loop_171)"
+"(lambda(fold-var_338 lst_145)"
 "(begin"
 " 'for-loop"
-"(if(pair? lst_359)"
+"(if(pair? lst_145)"
 "(let-values(((body_20)"
 "(unsafe-car"
-" lst_359))"
-"((rest_207)"
+" lst_145))"
+"((rest_72)"
 "(unsafe-cdr"
-" lst_359)))"
-"(let-values(((fold-var_336)"
-"(let-values(((fold-var_337)"
-" fold-var_335))"
-"(let-values(((fold-var_338)"
+" lst_145)))"
+"(let-values(((fold-var_299)"
+"(let-values(((fold-var_300)"
+" fold-var_338))"
+"(let-values(((fold-var_339)"
 "(let-values()"
 "(cons"
 "(let-values()"
 "(add-scope"
 " body_20"
 " sc_33))"
-" fold-var_337))))"
+" fold-var_300))))"
 "(values"
-" fold-var_338)))))"
+" fold-var_339)))))"
 "(if(not #f)"
-"(for-loop_300"
-" fold-var_336"
-" rest_207)"
-" fold-var_336)))"
-" fold-var_335)))))"
-" for-loop_300)"
+"(for-loop_171"
+" fold-var_299"
+" rest_72)"
+" fold-var_299)))"
+" fold-var_338)))))"
+" for-loop_171)"
 " null"
-" lst_358))))))"
+" lst_144))))))"
 "(let-values((()"
 "(begin"
-"(let-values(((obs_93)"
-"(expand-context-observer ctx_83)))"
-"(if obs_93"
+"(let-values(((obs_91)"
+"(expand-context-observer ctx_82)))"
+"(if obs_91"
 "(let-values()"
 "(log-let-renames"
-" obs_93"
+" obs_91"
 " renames-log-tag_0"
 " val-idss_3"
 " val-rhss_3"
 " bodys_10"
 " trans-idss_2"
-"(if syntaxes?_0 trans-rhs91_0 #f)"
+"(if syntaxes?_0 trans-rhs104_0 #f)"
 " sc_33))"
 "(void)))"
 "(values))))"
@@ -64233,75 +64294,75 @@ static const char *startup_source =
 "(if syntaxes?_0"
 "(let-values()"
 "(begin"
-"(let-values(((obs_94)"
+"(let-values(((obs_92)"
 "(expand-context-observer"
-" ctx_83)))"
-"(if obs_94"
+" ctx_82)))"
+"(if obs_92"
 "(let-values()"
 "(let-values()"
 "(call-expand-observe"
-" obs_94"
+" obs_92"
 " 'prepare-env)))"
 "(void)))"
-"(prepare-next-phase-namespace ctx_83)))"
+"(prepare-next-phase-namespace ctx_82)))"
 "(void))"
 "(values))))"
 "(let-values(((trans-valss_0)"
 "(reverse$1"
-"(let-values(((lst_243)"
-"(if syntaxes?_0 trans-rhs91_0 '()))"
-"((lst_360) trans-idss_2))"
+"(let-values(((lst_362)"
+"(if syntaxes?_0 trans-rhs104_0 '()))"
+"((lst_363) trans-idss_2))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
 "(#%variable-reference))"
 "(void)"
-"(let-values()(check-list lst_243)))"
+"(let-values()(check-list lst_362)))"
 "(if(variable-reference-from-unsafe?"
 "(#%variable-reference))"
 "(void)"
-"(let-values()(check-list lst_360)))"
-"((letrec-values(((for-loop_301)"
-"(lambda(fold-var_339"
-" lst_361"
-" lst_362)"
+"(let-values()(check-list lst_363)))"
+"((letrec-values(((for-loop_300)"
+"(lambda(fold-var_340"
+" lst_364"
+" lst_365)"
 "(begin"
 " 'for-loop"
-"(if(if(pair? lst_361)"
-"(pair? lst_362)"
+"(if(if(pair? lst_364)"
+"(pair? lst_365)"
 " #f)"
 "(let-values(((rhs_21)"
 "(unsafe-car"
-" lst_361))"
+" lst_364))"
+"((rest_207)"
+"(unsafe-cdr"
+" lst_364))"
+"((ids_39)"
+"(unsafe-car"
+" lst_365))"
 "((rest_208)"
 "(unsafe-cdr"
-" lst_361))"
-"((ids_37)"
-"(unsafe-car"
-" lst_362))"
-"((rest_209)"
-"(unsafe-cdr"
-" lst_362)))"
-"(let-values(((fold-var_340)"
+" lst_365)))"
 "(let-values(((fold-var_341)"
-" fold-var_339))"
 "(let-values(((fold-var_342)"
+" fold-var_340))"
+"(let-values(((fold-var_343)"
 "(let-values()"
 "(cons"
 "(let-values()"
 "(let-values((()"
 "(begin"
-"(let-values(((obs_95)"
+"(let-values(((obs_93)"
 "(expand-context-observer"
-" ctx_83)))"
-"(if obs_95"
+" ctx_82)))"
+"(if obs_93"
 "(let-values()"
 "(let-values()"
 "(begin"
 "(call-expand-observe"
-" obs_95"
+" obs_93"
 " 'next)"
 "(call-expand-observe"
-" obs_95"
+" obs_93"
 " 'enter-bind))))"
 "(void)))"
 "(values))))"
@@ -64310,149 +64371,37 @@ static const char *startup_source =
 "(add-scope"
 " rhs_21"
 " sc_33)"
-" ids_37"
-" ctx_83)))"
+" ids_39"
+" ctx_82)))"
 "(begin"
-"(let-values(((obs_96)"
+"(let-values(((obs_94)"
 "(expand-context-observer"
-" ctx_83)))"
-"(if obs_96"
+" ctx_82)))"
+"(if obs_94"
 "(let-values()"
 "(let-values()"
 "(call-expand-observe"
-" obs_96"
+" obs_94"
 " 'exit-bind)))"
 "(void)))"
 " trans-val_1))))"
-" fold-var_341))))"
+" fold-var_342))))"
 "(values"
-" fold-var_342)))))"
+" fold-var_343)))))"
 "(if(not #f)"
-"(for-loop_301"
-" fold-var_340"
-" rest_208"
-" rest_209)"
-" fold-var_340)))"
-" fold-var_339)))))"
-" for-loop_301)"
+"(for-loop_300"
+" fold-var_341"
+" rest_207"
+" rest_208)"
+" fold-var_341)))"
+" fold-var_340)))))"
+" for-loop_300)"
 " null"
-" lst_243"
-" lst_360))))))"
+" lst_362"
+" lst_363))))))"
 "(let-values(((rec-val-env_0)"
-"(let-values(((lst_363) val-keyss_2)"
-"((lst_364) val-idss_3))"
-"(begin"
-"(if(variable-reference-from-unsafe?"
-"(#%variable-reference))"
-"(void)"
-"(let-values()(check-list lst_363)))"
-"(if(variable-reference-from-unsafe?"
-"(#%variable-reference))"
-"(void)"
-"(let-values()(check-list lst_364)))"
-"((letrec-values(((for-loop_302)"
-"(lambda(env_28"
-" lst_245"
-" lst_246)"
-"(begin"
-" 'for-loop"
-"(if(if(pair? lst_245)"
-"(pair? lst_246)"
-" #f)"
-"(let-values(((keys_10)"
-"(unsafe-car"
-" lst_245))"
-"((rest_210)"
-"(unsafe-cdr"
-" lst_245))"
-"((ids_38)"
-"(unsafe-car"
-" lst_246))"
-"((rest_211)"
-"(unsafe-cdr"
-" lst_246)))"
-"(let-values(((env_29)"
-"(let-values(((env_30)"
-" env_28))"
-"(let-values(((lst_365)"
-" keys_10)"
-"((lst_144)"
-" ids_38))"
-"(begin"
-"(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_144)))"
-"((letrec-values(((for-loop_171)"
-"(lambda(env_31"
-" lst_145"
-" lst_247)"
-"(begin"
-" 'for-loop"
-"(if(if(pair?"
-" lst_145)"
-"(pair?"
-" lst_247)"
-" #f)"
-"(let-values(((key_91)"
-"(unsafe-car"
-" lst_145))"
-"((rest_130)"
-"(unsafe-cdr"
-" lst_145))"
-"((id_122)"
-"(unsafe-car"
-" lst_247))"
-"((rest_131)"
-"(unsafe-cdr"
-" lst_247)))"
-"(let-values(((env_32)"
-"(let-values(((env_33)"
-" env_31))"
-"(let-values(((env_34)"
-"(let-values()"
-"(env-extend"
-" env_33"
-" key_91"
-"(local-variable1.1"
-" id_122)))))"
-"(values"
-" env_34)))))"
-"(if(not"
-" #f)"
-"(for-loop_171"
-" env_32"
-" rest_130"
-" rest_131)"
-" env_32)))"
-" env_31)))))"
-" for-loop_171)"
-" env_30"
-" lst_365"
-" lst_144))))))"
-"(if(not #f)"
-"(for-loop_302"
-" env_29"
-" rest_210"
-" rest_211)"
-" env_29)))"
-" env_28)))))"
-" for-loop_302)"
-"(expand-context-env ctx_83)"
-" lst_363"
-" lst_364)))))"
-"(let-values(((rec-env_0)"
-"(let-values(((lst_366) trans-keyss_0)"
-"((lst_367) trans-valss_0)"
-"((lst_368) trans-idss_2))"
+"(let-values(((lst_366) val-keyss_2)"
+"((lst_367) val-idss_3))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
 "(#%variable-reference))"
@@ -64462,106 +64411,218 @@ static const char *startup_source =
 "(#%variable-reference))"
 "(void)"
 "(let-values()(check-list lst_367)))"
+"((letrec-values(((for-loop_63)"
+"(lambda(env_28"
+" lst_368"
+" lst_369)"
+"(begin"
+" 'for-loop"
+"(if(if(pair? lst_368)"
+"(pair? lst_369)"
+" #f)"
+"(let-values(((keys_10)"
+"(unsafe-car"
+" lst_368))"
+"((rest_209)"
+"(unsafe-cdr"
+" lst_368))"
+"((ids_40)"
+"(unsafe-car"
+" lst_369))"
+"((rest_210)"
+"(unsafe-cdr"
+" lst_369)))"
+"(let-values(((env_29)"
+"(let-values(((env_30)"
+" env_28))"
+"(let-values(((lst_370)"
+" keys_10)"
+"((lst_371)"
+" ids_40))"
+"(begin"
 "(if(variable-reference-from-unsafe?"
 "(#%variable-reference))"
 "(void)"
-"(let-values()(check-list lst_368)))"
-"((letrec-values(((for-loop_303)"
-"(lambda(env_35"
-" lst_369"
-" lst_248"
-" lst_370)"
-"(begin"
-" 'for-loop"
-"(if(if(pair?"
-" lst_369)"
-"(if(pair?"
-" lst_248)"
-"(pair?"
-" lst_370)"
-" #f)"
-" #f)"
-"(let-values(((keys_11)"
-"(unsafe-car"
-" lst_369))"
-"((rest_212)"
-"(unsafe-cdr"
-" lst_369))"
-"((vals_9)"
-"(unsafe-car"
-" lst_248))"
-"((rest_132)"
-"(unsafe-cdr"
-" lst_248))"
-"((ids_39)"
-"(unsafe-car"
-" lst_370))"
-"((rest_61)"
-"(unsafe-cdr"
-" lst_370)))"
-"(let-values(((env_36)"
-"(let-values(((env_37)"
-" env_35))"
-"(let-values(((env_38)"
 "(let-values()"
-"(let-values(((lst_371)"
-" keys_11)"
-"((lst_372)"
-" vals_9)"
-"((lst_373)"
-" ids_39))"
-"(begin"
+"(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)))"
-"(if(variable-reference-from-unsafe?"
-"(#%variable-reference))"
-"(void)"
-"(let-values()"
-"(check-list"
-" lst_373)))"
-"((letrec-values(((for-loop_304)"
-"(lambda(env_39"
-" lst_250"
-" lst_374"
-" lst_375)"
+"((letrec-values(((for-loop_64)"
+"(lambda(env_31"
+" lst_372"
+" lst_127)"
 "(begin"
 " 'for-loop"
 "(if(if(pair?"
-" lst_250)"
-"(if(pair?"
-" lst_374)"
+" lst_372)"
 "(pair?"
-" lst_375)"
+" lst_127)"
+" #f)"
+"(let-values(((key_91)"
+"(unsafe-car"
+" lst_372))"
+"((rest_62)"
+"(unsafe-cdr"
+" lst_372))"
+"((id_123)"
+"(unsafe-car"
+" lst_127))"
+"((rest_211)"
+"(unsafe-cdr"
+" lst_127)))"
+"(let-values(((env_32)"
+"(let-values(((env_33)"
+" env_31))"
+"(let-values(((env_34)"
+"(let-values()"
+"(env-extend"
+" env_33"
+" key_91"
+"(local-variable1.1"
+" id_123)))))"
+"(values"
+" env_34)))))"
+"(if(not"
+" #f)"
+"(for-loop_64"
+" env_32"
+" rest_62"
+" rest_211)"
+" env_32)))"
+" env_31)))))"
+" for-loop_64)"
+" env_30"
+" lst_370"
+" lst_371))))))"
+"(if(not #f)"
+"(for-loop_63"
+" env_29"
+" rest_209"
+" rest_210)"
+" env_29)))"
+" env_28)))))"
+" for-loop_63)"
+"(expand-context-env ctx_82)"
+" lst_366"
+" lst_367)))))"
+"(let-values(((rec-env_0)"
+"(let-values(((lst_373) trans-keyss_0)"
+"((lst_374) trans-valss_0)"
+"((lst_375) trans-idss_2))"
+"(begin"
+"(if(variable-reference-from-unsafe?"
+"(#%variable-reference))"
+"(void)"
+"(let-values()(check-list lst_373)))"
+"(if(variable-reference-from-unsafe?"
+"(#%variable-reference))"
+"(void)"
+"(let-values()(check-list lst_374)))"
+"(if(variable-reference-from-unsafe?"
+"(#%variable-reference))"
+"(void)"
+"(let-values()(check-list lst_375)))"
+"((letrec-values(((for-loop_301)"
+"(lambda(env_35"
+" lst_376"
+" lst_128"
+" lst_377)"
+"(begin"
+" 'for-loop"
+"(if(if(pair?"
+" lst_376)"
+"(if(pair?"
+" lst_128)"
+"(pair?"
+" lst_377)"
+" #f)"
+" #f)"
+"(let-values(((keys_11)"
+"(unsafe-car"
+" lst_376))"
+"((rest_212)"
+"(unsafe-cdr"
+" lst_376))"
+"((vals_9)"
+"(unsafe-car"
+" lst_128))"
+"((rest_63)"
+"(unsafe-cdr"
+" lst_128))"
+"((ids_41)"
+"(unsafe-car"
+" lst_377))"
+"((rest_213)"
+"(unsafe-cdr"
+" lst_377)))"
+"(let-values(((env_36)"
+"(let-values(((env_37)"
+" env_35))"
+"(let-values(((env_38)"
+"(let-values()"
+"(let-values(((lst_378)"
+" keys_11)"
+"((lst_130)"
+" vals_9)"
+"((lst_379)"
+" ids_41))"
+"(begin"
+"(if(variable-reference-from-unsafe?"
+"(#%variable-reference))"
+"(void)"
+"(let-values()"
+"(check-list"
+" lst_378)))"
+"(if(variable-reference-from-unsafe?"
+"(#%variable-reference))"
+"(void)"
+"(let-values()"
+"(check-list"
+" lst_130)))"
+"(if(variable-reference-from-unsafe?"
+"(#%variable-reference))"
+"(void)"
+"(let-values()"
+"(check-list"
+" lst_379)))"
+"((letrec-values(((for-loop_302)"
+"(lambda(env_39"
+" lst_254"
+" lst_380"
+" lst_381)"
+"(begin"
+" 'for-loop"
+"(if(if(pair?"
+" lst_254)"
+"(if(pair?"
+" lst_380)"
+"(pair?"
+" lst_381)"
 " #f)"
 " #f)"
 "(let-values(((key_92)"
 "(unsafe-car"
-" lst_250))"
-"((rest_213)"
+" lst_254))"
+"((rest_135)"
 "(unsafe-cdr"
-" lst_250))"
+" lst_254))"
 "((val_80)"
 "(unsafe-car"
-" lst_374))"
+" lst_380))"
 "((rest_214)"
 "(unsafe-cdr"
-" lst_374))"
-"((id_123)"
+" lst_380))"
+"((id_124)"
 "(unsafe-car"
-" lst_375))"
+" lst_381))"
 "((rest_215)"
 "(unsafe-cdr"
-" lst_375)))"
+" lst_381)))"
 "(let-values(((env_40)"
 "(let-values(((env_41)"
 " env_39))"
@@ -64570,9 +64631,9 @@ static const char *startup_source =
 "(begin"
 "(maybe-install-free=id-in-context!"
 " val_80"
-" id_123"
-" phase_144"
-" ctx_83)"
+" id_124"
+" phase_145"
+" ctx_82)"
 "(env-extend"
 " env_41"
 " key_92"
@@ -64581,148 +64642,148 @@ static const char *startup_source =
 " env_42)))))"
 "(if(not"
 " #f)"
-"(for-loop_304"
+"(for-loop_302"
 " env_40"
-" rest_213"
+" rest_135"
 " rest_214"
 " rest_215)"
 " env_40)))"
 " env_39)))))"
-" for-loop_304)"
+" for-loop_302)"
 " env_37"
-" lst_371"
-" lst_372"
-" lst_373))))))"
+" lst_378"
+" lst_130"
+" lst_379))))))"
 "(values"
 " env_38)))))"
 "(if(not #f)"
-"(for-loop_303"
+"(for-loop_301"
 " env_36"
 " rest_212"
-" rest_132"
-" rest_61)"
+" rest_63"
+" rest_213)"
 " env_36)))"
 " env_35)))))"
-" for-loop_303)"
+" for-loop_301)"
 " rec-val-env_0"
-" lst_366"
-" lst_367"
-" lst_368)))))"
-"(let-values(((expr-ctx_0)(as-expression-context ctx_83)))"
+" lst_373"
+" lst_374"
+" lst_375)))))"
+"(let-values(((expr-ctx_0)(as-expression-context ctx_82)))"
 "(let-values(((orig-rrs_0)"
 "(expand-context-reference-records"
 " expr-ctx_0)))"
 "(let-values(((rec-ctx_0)"
 "(let-values(((v_256) expr-ctx_0))"
-"(let-values(((the-struct_97) v_256))"
+"(let-values(((the-struct_96) v_256))"
 "(if(expand-context/outer?"
-" the-struct_97)"
-"(let-values(((env151_1) rec-env_0)"
-"((scopes152_0)"
+" the-struct_96)"
+"(let-values(((env164_0) rec-env_0)"
+"((scopes165_0)"
 "(cons"
 " sc_33"
 "(expand-context-scopes"
-" ctx_83)))"
-"((reference-records153_0)"
+" ctx_82)))"
+"((reference-records166_0)"
 "(if split-by-reference?_0"
 "(cons"
 " frame-id_15"
 " orig-rrs_0)"
 " orig-rrs_0))"
-"((binding-layer154_0)"
+"((binding-layer167_0)"
 "(increment-binding-layer"
 "(cons"
 " trans-idss_2"
 " val-idss_3)"
-" ctx_83"
+" ctx_82"
 " sc_33))"
-"((inner155_2)"
+"((inner168_0)"
 "(root-expand-context/outer-inner"
 " v_256)))"
 "(expand-context/outer1.1"
-" inner155_2"
+" inner168_0"
 "(root-expand-context/outer-post-expansion-scope"
-" the-struct_97)"
+" the-struct_96)"
 "(root-expand-context/outer-use-site-scopes"
-" the-struct_97)"
+" the-struct_96)"
 "(root-expand-context/outer-frame-id"
-" the-struct_97)"
+" the-struct_96)"
 "(expand-context/outer-context"
-" the-struct_97)"
-" env151_1"
+" the-struct_96)"
+" env164_0"
 "(expand-context/outer-post-expansion-scope-action"
-" the-struct_97)"
-" scopes152_0"
+" the-struct_96)"
+" scopes165_0"
 "(expand-context/outer-def-ctx-scopes"
-" the-struct_97)"
-" binding-layer154_0"
-" reference-records153_0"
+" the-struct_96)"
+" binding-layer167_0"
+" reference-records166_0"
 "(expand-context/outer-only-immediate?"
-" the-struct_97)"
+" the-struct_96)"
 "(expand-context/outer-need-eventually-defined"
-" the-struct_97)"
+" the-struct_96)"
 "(expand-context/outer-current-introduction-scopes"
-" the-struct_97)"
+" the-struct_96)"
 "(expand-context/outer-name"
-" the-struct_97)))"
+" the-struct_96)))"
 "(raise-argument-error"
 " 'struct-copy"
 "                                                                                     \"expand-context/outer?\""
-" the-struct_97))))))"
+" the-struct_96))))))"
 "(let-values(((letrec-values-id_0)"
 "(if(not"
-"(expand-context-to-parsed? ctx_83))"
+"(expand-context-to-parsed? ctx_82))"
 "(if syntaxes?_0"
-"(core-id 'letrec-values phase_144)"
-" let-values115_0)"
+"(core-id 'letrec-values phase_145)"
+" let-values128_0)"
 " #f)))"
 "(let-values(((rebuild-s_6)"
-"(let-values(((ctx156_0) ctx_83)"
-"((s157_0) s_407)"
-"((temp158_3) #t))"
+"(let-values(((ctx169_0) ctx_82)"
+"((s170_1) s_324)"
+"((temp171_1) #t))"
 "(keep-as-needed74.1"
 " #f"
 " #f"
-" temp158_3"
+" temp171_1"
 " #t"
 " #f"
 " #f"
-" ctx156_0"
-" s157_0))))"
+" ctx169_0"
+" s170_1))))"
 "(let-values(((val-name-idss_0)"
 "(if(expand-context-to-parsed?"
-" ctx_83)"
+" ctx_82)"
 "(reverse$1"
-"(let-values(((lst_376)"
+"(let-values(((lst_382)"
 " val-idss_3))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
 "(#%variable-reference))"
 "(void)"
 "(let-values()"
-"(check-list lst_376)))"
-"((letrec-values(((for-loop_305)"
-"(lambda(fold-var_343"
-" lst_377)"
+"(check-list lst_382)))"
+"((letrec-values(((for-loop_303)"
+"(lambda(fold-var_344"
+" lst_383)"
 "(begin"
 " 'for-loop"
 "(if(pair?"
-" lst_377)"
+" lst_383)"
 "(let-values(((val-ids_1)"
 "(unsafe-car"
-" lst_377))"
+" lst_383))"
 "((rest_216)"
 "(unsafe-cdr"
-" lst_377)))"
-"(let-values(((fold-var_344)"
-"(let-values(((fold-var_112)"
-" fold-var_343))"
-"(let-values(((fold-var_113)"
+" lst_383)))"
+"(let-values(((fold-var_345)"
+"(let-values(((fold-var_346)"
+" fold-var_344))"
+"(let-values(((fold-var_347)"
 "(let-values()"
 "(cons"
 "(let-values()"
 "(reverse$1"
-"(let-values(((lst_378)"
+"(let-values(((lst_384)"
 " val-ids_1))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
@@ -64730,24 +64791,24 @@ static const char *startup_source =
 "(void)"
 "(let-values()"
 "(check-list"
-" lst_378)))"
-"((letrec-values(((for-loop_160)"
-"(lambda(fold-var_114"
-" lst_379)"
+" lst_384)))"
+"((letrec-values(((for-loop_304)"
+"(lambda(fold-var_348"
+" lst_385)"
 "(begin"
 " 'for-loop"
 "(if(pair?"
-" lst_379)"
+" lst_385)"
 "(let-values(((val-id_0)"
 "(unsafe-car"
-" lst_379))"
+" lst_385))"
 "((rest_217)"
 "(unsafe-cdr"
-" lst_379)))"
-"(let-values(((fold-var_116)"
-"(let-values(((fold-var_345)"
-" fold-var_114))"
-"(let-values(((fold-var_346)"
+" lst_385)))"
+"(let-values(((fold-var_349)"
+"(let-values(((fold-var_350)"
+" fold-var_348))"
+"(let-values(((fold-var_351)"
 "(let-values()"
 "(cons"
 "(let-values()"
@@ -64757,44 +64818,44 @@ static const char *startup_source =
 " val-id_0)"
 " val-id_0"
 " val-id_0))"
-" fold-var_345))))"
+" fold-var_350))))"
 "(values"
-" fold-var_346)))))"
+" fold-var_351)))))"
 "(if(not"
 " #f)"
-"(for-loop_160"
-" fold-var_116"
+"(for-loop_304"
+" fold-var_349"
 " rest_217)"
-" fold-var_116)))"
-" fold-var_114)))))"
-" for-loop_160)"
+" fold-var_349)))"
+" fold-var_348)))))"
+" for-loop_304)"
 " null"
-" lst_378)))))"
-" fold-var_112))))"
+" lst_384)))))"
+" fold-var_346))))"
 "(values"
-" fold-var_113)))))"
+" fold-var_347)))))"
 "(if(not"
 " #f)"
-"(for-loop_305"
-" fold-var_344"
+"(for-loop_303"
+" fold-var_345"
 " rest_216)"
-" fold-var_344)))"
-" fold-var_343)))))"
-" for-loop_305)"
+" fold-var_345)))"
+" fold-var_344)))))"
+" for-loop_303)"
 " null"
-" lst_376))))"
+" lst_382))))"
 " val-idss_3)))"
 "(let-values((()"
 "(begin"
 "(if syntaxes?_0"
 "(let-values()"
-"(let-values(((obs_97)"
+"(let-values(((obs_95)"
 "(expand-context-observer"
-" ctx_83)))"
-"(if obs_97"
+" ctx_82)))"
+"(if obs_95"
 "(let-values()"
 "(log-letrec-values"
-" obs_97"
+" obs_95"
 " val-idss_3"
 " val-rhss_3"
 " bodys_10))"
@@ -64807,10 +64868,10 @@ static const char *startup_source =
 " 'get-body"
 "(let-values((()"
 "(begin"
-"(let-values(((obs_98)"
+"(let-values(((obs_96)"
 "(expand-context-observer"
-" ctx_83)))"
-"(if obs_98"
+" ctx_82)))"
+"(if obs_96"
 "(let-values()"
 "(if(not"
 "(if syntaxes?_0"
@@ -64819,7 +64880,7 @@ static const char *startup_source =
 " #f))"
 "(let-values()"
 "(call-expand-observe"
-" obs_98"
+" obs_96"
 " 'next-group))"
 "(void)))"
 "(void)))"
@@ -64827,77 +64888,77 @@ static const char *startup_source =
 "(let-values(((body-ctx_5)"
 "(let-values(((v_257)"
 " rec-ctx_0))"
-"(let-values(((the-struct_98)"
+"(let-values(((the-struct_97)"
 " v_257))"
 "(if(expand-context/outer?"
-" the-struct_98)"
-"(let-values(((reference-records162_0)"
+" the-struct_97)"
+"(let-values(((reference-records175_0)"
 " orig-rrs_0)"
-"((inner163_0)"
+"((inner176_0)"
 "(root-expand-context/outer-inner"
 " v_257)))"
 "(expand-context/outer1.1"
-" inner163_0"
+" inner176_0"
 "(root-expand-context/outer-post-expansion-scope"
-" the-struct_98)"
+" the-struct_97)"
 "(root-expand-context/outer-use-site-scopes"
-" the-struct_98)"
+" the-struct_97)"
 "(root-expand-context/outer-frame-id"
-" the-struct_98)"
+" the-struct_97)"
 "(expand-context/outer-context"
-" the-struct_98)"
+" the-struct_97)"
 "(expand-context/outer-env"
-" the-struct_98)"
+" the-struct_97)"
 "(expand-context/outer-post-expansion-scope-action"
-" the-struct_98)"
+" the-struct_97)"
 "(expand-context/outer-scopes"
-" the-struct_98)"
+" the-struct_97)"
 "(expand-context/outer-def-ctx-scopes"
-" the-struct_98)"
+" the-struct_97)"
 "(expand-context/outer-binding-layer"
-" the-struct_98)"
-" reference-records162_0"
+" the-struct_97)"
+" reference-records175_0"
 "(expand-context/outer-only-immediate?"
-" the-struct_98)"
+" the-struct_97)"
 "(expand-context/outer-need-eventually-defined"
-" the-struct_98)"
+" the-struct_97)"
 "(expand-context/outer-current-introduction-scopes"
-" the-struct_98)"
+" the-struct_97)"
 "(expand-context/outer-name"
-" the-struct_98)))"
+" the-struct_97)))"
 "(raise-argument-error"
 " 'struct-copy"
 "                                                                                                                   \"expand-context/outer?\""
-" the-struct_98))))))"
-"(let-values(((bodys159_0)"
+" the-struct_97))))))"
+"(let-values(((bodys172_0)"
 " bodys_10)"
-"((temp160_2)"
-"(let-values(((body-ctx164_0)"
+"((temp173_0)"
+"(let-values(((body-ctx177_0)"
 " body-ctx_5)"
-"((ctx165_0)"
-" ctx_83))"
+"((ctx178_0)"
+" ctx_82))"
 "(as-tail-context23.1"
-" ctx165_0"
-" body-ctx164_0)))"
-"((rebuild-s161_0)"
+" ctx178_0"
+" body-ctx177_0)))"
+"((rebuild-s174_0)"
 " rebuild-s_6))"
 "(expand-body7.1"
-" rebuild-s161_0"
+" rebuild-s174_0"
 " #f"
 " #f"
-" bodys159_0"
-" temp160_2))))))))"
+" bodys172_0"
+" temp173_0))))))))"
 "(let-values(((result-s_12)"
 "(if(not"
 " split-by-reference?_0)"
 "(let-values()"
 "(let-values(((clauses_2)"
 "(reverse$1"
-"(let-values(((lst_380)"
+"(let-values(((lst_386)"
 " val-name-idss_0)"
-"((lst_381)"
+"((lst_387)"
 " val-keyss_2)"
-"((lst_382)"
+"((lst_388)"
 " val-rhss_3))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
@@ -64905,115 +64966,115 @@ static const char *startup_source =
 "(void)"
 "(let-values()"
 "(check-list"
-" lst_380)))"
+" lst_386)))"
 "(if(variable-reference-from-unsafe?"
 "(#%variable-reference))"
 "(void)"
 "(let-values()"
 "(check-list"
-" lst_381)))"
+" lst_387)))"
 "(if(variable-reference-from-unsafe?"
 "(#%variable-reference))"
 "(void)"
 "(let-values()"
 "(check-list"
-" lst_382)))"
-"((letrec-values(((for-loop_306)"
-"(lambda(fold-var_347"
-" lst_383"
-" lst_384"
-" lst_385)"
+" lst_388)))"
+"((letrec-values(((for-loop_305)"
+"(lambda(fold-var_352"
+" lst_389"
+" lst_60"
+" lst_390)"
 "(begin"
 " 'for-loop"
 "(if(if(pair?"
-" lst_383)"
+" lst_389)"
 "(if(pair?"
-" lst_384)"
+" lst_60)"
 "(pair?"
-" lst_385)"
+" lst_390)"
 " #f)"
 " #f)"
-"(let-values(((ids_40)"
+"(let-values(((ids_42)"
 "(unsafe-car"
-" lst_383))"
+" lst_389))"
 "((rest_218)"
 "(unsafe-cdr"
-" lst_383))"
+" lst_389))"
 "((keys_12)"
 "(unsafe-car"
-" lst_384))"
+" lst_60))"
 "((rest_219)"
 "(unsafe-cdr"
-" lst_384))"
+" lst_60))"
 "((rhs_22)"
 "(unsafe-car"
-" lst_385))"
+" lst_390))"
 "((rest_220)"
 "(unsafe-cdr"
-" lst_385)))"
-"(let-values(((fold-var_348)"
-"(let-values(((fold-var_349)"
-" fold-var_347))"
-"(let-values(((fold-var_350)"
+" lst_390)))"
+"(let-values(((fold-var_47)"
+"(let-values(((fold-var_353)"
+" fold-var_352))"
+"(let-values(((fold-var_354)"
 "(let-values()"
 "(cons"
 "(let-values()"
 "(let-values((()"
 "(begin"
-"(let-values(((obs_99)"
+"(let-values(((obs_97)"
 "(expand-context-observer"
-" ctx_83)))"
-"(if obs_99"
+" ctx_82)))"
+"(if obs_97"
 "(let-values()"
 "(let-values()"
 "(call-expand-observe"
-" obs_99"
+" obs_97"
 " 'next)))"
 "(void)))"
 "(values))))"
 "(let-values(((exp-rhs_3)"
-"(let-values(((rhs166_0)"
+"(let-values(((rhs179_0)"
 " rhs_22)"
-"((temp167_1)"
+"((temp180_1)"
 "(if rec?_1"
 "(as-named-context"
 " rec-ctx_0"
-" ids_40)"
+" ids_42)"
 "(as-named-context"
 " expr-ctx_0"
-" ids_40))))"
+" ids_42))))"
 "(expand7.1"
 " #f"
 " #f"
 " #f"
 " #f"
-" rhs166_0"
-" temp167_1))))"
+" rhs179_0"
+" temp180_1))))"
 "(if(expand-context-to-parsed?"
-" ctx_83)"
+" ctx_82)"
 "(list"
 " keys_12"
 " exp-rhs_3)"
 "(list"
-" ids_40"
+" ids_42"
 " exp-rhs_3)))))"
-" fold-var_349))))"
+" fold-var_353))))"
 "(values"
-" fold-var_350)))))"
+" fold-var_354)))))"
 "(if(not"
 " #f)"
-"(for-loop_306"
-" fold-var_348"
+"(for-loop_305"
+" fold-var_47"
 " rest_218"
 " rest_219"
 " rest_220)"
-" fold-var_348)))"
-" fold-var_347)))))"
-" for-loop_306)"
+" fold-var_47)))"
+" fold-var_352)))))"
+" for-loop_305)"
 " null"
-" lst_380"
-" lst_381"
-" lst_382))))))"
+" lst_386"
+" lst_387"
+" lst_388))))))"
 "(let-values(((exp-body_4)"
 "(get-body_1)))"
 "(begin"
@@ -65023,7 +65084,7 @@ static const char *startup_source =
 " frame-id_15))"
 "(void))"
 "(if(expand-context-to-parsed?"
-" ctx_83)"
+" ctx_82)"
 "(if rec?_1"
 "(parsed-letrec-values18.1"
 " rebuild-s_6"
@@ -65035,9 +65096,9 @@ static const char *startup_source =
 " val-name-idss_0"
 " clauses_2"
 " exp-body_4))"
-"(let-values(((rebuild-s168_0)"
+"(let-values(((rebuild-s181_0)"
 " rebuild-s_6)"
-"((temp169_2)"
+"((temp182_0)"
 "(list*"
 " letrec-values-id_0"
 " clauses_2"
@@ -65045,18 +65106,18 @@ static const char *startup_source =
 "(rebuild5.1"
 " #f"
 " #f"
-" rebuild-s168_0"
-" temp169_2)))))))"
+" rebuild-s181_0"
+" temp182_0)))))))"
 "(let-values()"
-"(let-values(((val-idss170_0)"
+"(let-values(((val-idss183_0)"
 " val-idss_3)"
-"((val-keyss171_0)"
+"((val-keyss184_0)"
 " val-keyss_2)"
-"((val-rhss172_0)"
+"((val-rhss185_0)"
 " val-rhss_3)"
-"((temp173_0)"
+"((temp186_1)"
 "(reverse$1"
-"(let-values(((lst_386)"
+"(let-values(((lst_391)"
 " val-idss_3))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
@@ -65064,143 +65125,143 @@ static const char *startup_source =
 "(void)"
 "(let-values()"
 "(check-list"
-" lst_386)))"
-"((letrec-values(((for-loop_307)"
-"(lambda(fold-var_351"
-" lst_387)"
+" lst_391)))"
+"((letrec-values(((for-loop_306)"
+"(lambda(fold-var_355"
+" lst_392)"
 "(begin"
 " 'for-loop"
 "(if(pair?"
-" lst_387)"
+" lst_392)"
 "(let-values(((rhs_23)"
 "(unsafe-car"
-" lst_387))"
+" lst_392))"
 "((rest_221)"
 "(unsafe-cdr"
-" lst_387)))"
-"(let-values(((fold-var_352)"
-"(let-values(((fold-var_353)"
-" fold-var_351))"
-"(let-values(((fold-var_354)"
+" lst_392)))"
+"(let-values(((fold-var_124)"
+"(let-values(((fold-var_356)"
+" fold-var_355))"
+"(let-values(((fold-var_357)"
 "(let-values()"
 "(cons"
 "(let-values()"
 " #f)"
-" fold-var_353))))"
+" fold-var_356))))"
 "(values"
-" fold-var_354)))))"
+" fold-var_357)))))"
 "(if(not"
 " #f)"
-"(for-loop_307"
-" fold-var_352"
+"(for-loop_306"
+" fold-var_124"
 " rest_221)"
-" fold-var_352)))"
-" fold-var_351)))))"
-" for-loop_307)"
+" fold-var_124)))"
+" fold-var_355)))))"
+" for-loop_306)"
 " null"
-" lst_386)))))"
-"((temp174_0)"
+" lst_391)))))"
+"((temp187_2)"
 " #t)"
-"((frame-id175_0)"
+"((frame-id188_0)"
 " frame-id_15)"
-"((rec-ctx176_0)"
+"((rec-ctx189_0)"
 " rec-ctx_0)"
-"((rebuild-s177_0)"
+"((rebuild-s190_0)"
 " rebuild-s_6)"
-"((syntaxes?178_0)"
+"((syntaxes?191_0)"
 " syntaxes?_0)"
-"((get-body179_0)"
+"((get-body192_0)"
 " get-body_1)"
-"((temp180_1)"
+"((temp193_0)"
 " #t))"
 "(expand-and-split-bindings-by-reference48.1"
-" rec-ctx176_0"
-" frame-id175_0"
-" get-body179_0"
-" syntaxes?178_0"
-" rebuild-s177_0"
-" temp174_0"
-" temp180_1"
-" val-idss170_0"
-" val-keyss171_0"
-" val-rhss172_0"
-" temp173_0))))))"
-"(if(expand-context-to-parsed? ctx_83)"
+" rec-ctx189_0"
+" frame-id188_0"
+" get-body192_0"
+" syntaxes?191_0"
+" rebuild-s190_0"
+" temp187_2"
+" temp193_0"
+" val-idss183_0"
+" val-keyss184_0"
+" val-rhss185_0"
+" temp186_1))))))"
+"(if(expand-context-to-parsed? ctx_82)"
 " result-s_12"
 "(attach-disappeared-transformer-bindings"
 " result-s_12"
 " trans-idss_2)))))))))))))))))))))))))))))))))))))))))"
 "(define-values"
 "(log-let-renames)"
-"(lambda(obs_100 renames-log-tag_1 val-idss_4 val-rhss_4 bodys_11 trans-idss_3 trans-rhss_0 sc_34)"
+"(lambda(obs_98 renames-log-tag_1 val-idss_4 val-rhss_4 bodys_11 trans-idss_3 trans-rhss_0 sc_34)"
 "(begin"
 "(let-values(((vals+body_0)"
 "(cons"
 "(reverse$1"
-"(let-values(((lst_388) val-idss_4)((lst_389) val-rhss_4))"
+"(let-values(((lst_393) val-idss_4)((lst_394) val-rhss_4))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
-"(let-values()(check-list lst_388)))"
+"(let-values()(check-list lst_393)))"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
-"(let-values()(check-list lst_389)))"
-"((letrec-values(((for-loop_308)"
-"(lambda(fold-var_355 lst_390 lst_391)"
+"(let-values()(check-list lst_394)))"
+"((letrec-values(((for-loop_307)"
+"(lambda(fold-var_358 lst_395 lst_396)"
 "(begin"
 " 'for-loop"
-"(if(if(pair? lst_390)(pair? lst_391) #f)"
-"(let-values(((val-ids_2)(unsafe-car lst_390))"
-"((rest_222)(unsafe-cdr lst_390))"
-"((val-rhs_11)(unsafe-car lst_391))"
-"((rest_223)(unsafe-cdr lst_391)))"
-"(let-values(((fold-var_126)"
-"(let-values(((fold-var_127) fold-var_355))"
-"(let-values(((fold-var_356)"
+"(if(if(pair? lst_395)(pair? lst_396) #f)"
+"(let-values(((val-ids_2)(unsafe-car lst_395))"
+"((rest_222)(unsafe-cdr lst_395))"
+"((val-rhs_11)(unsafe-car lst_396))"
+"((rest_223)(unsafe-cdr lst_396)))"
+"(let-values(((fold-var_359)"
+"(let-values(((fold-var_360) fold-var_358))"
+"(let-values(((fold-var_361)"
 "(let-values()"
 "(cons"
 "(let-values()"
 "(datum->syntax$1"
 " #f"
 "(list val-ids_2 val-rhs_11)))"
-" fold-var_127))))"
-"(values fold-var_356)))))"
+" fold-var_360))))"
+"(values fold-var_361)))))"
 "(if(not #f)"
-"(for-loop_308 fold-var_126 rest_222 rest_223)"
-" fold-var_126)))"
-" fold-var_355)))))"
-" for-loop_308)"
+"(for-loop_307 fold-var_359 rest_222 rest_223)"
+" fold-var_359)))"
+" fold-var_358)))))"
+" for-loop_307)"
 " null"
-" lst_388"
-" lst_389))))"
+" lst_393"
+" lst_394))))"
 "(datum->syntax$1 #f bodys_11))))"
 "(call-expand-observe"
-" obs_100"
+" obs_98"
 " renames-log-tag_1"
 "(if(not trans-rhss_0)"
 " vals+body_0"
 "(cons"
 "(reverse$1"
-"(let-values(((lst_392) trans-idss_3)((lst_393) trans-rhss_0))"
+"(let-values(((lst_397) trans-idss_3)((lst_146) trans-rhss_0))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
-"(let-values()(check-list lst_392)))"
+"(let-values()(check-list lst_397)))"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
-"(let-values()(check-list lst_393)))"
-"((letrec-values(((for-loop_309)"
-"(lambda(fold-var_357 lst_394 lst_395)"
+"(let-values()(check-list lst_146)))"
+"((letrec-values(((for-loop_172)"
+"(lambda(fold-var_362 lst_68 lst_398)"
 "(begin"
 " 'for-loop"
-"(if(if(pair? lst_394)(pair? lst_395) #f)"
-"(let-values(((trans-ids_0)(unsafe-car lst_394))"
-"((rest_224)(unsafe-cdr lst_394))"
-"((trans-rhs_5)(unsafe-car lst_395))"
-"((rest_225)(unsafe-cdr lst_395)))"
-"(let-values(((fold-var_358)"
-"(let-values(((fold-var_359) fold-var_357))"
-"(let-values(((fold-var_360)"
+"(if(if(pair? lst_68)(pair? lst_398) #f)"
+"(let-values(((trans-ids_0)(unsafe-car lst_68))"
+"((rest_224)(unsafe-cdr lst_68))"
+"((trans-rhs_5)(unsafe-car lst_398))"
+"((rest_225)(unsafe-cdr lst_398)))"
+"(let-values(((fold-var_363)"
+"(let-values(((fold-var_364) fold-var_362))"
+"(let-values(((fold-var_365)"
 "(let-values()"
 "(cons"
 "(let-values()"
@@ -65209,121 +65270,121 @@ static const char *startup_source =
 "(list"
 " trans-ids_0"
 "(add-scope trans-rhs_5 sc_34))))"
-" fold-var_359))))"
-"(values fold-var_360)))))"
-"(if(not #f)(for-loop_309 fold-var_358 rest_224 rest_225) fold-var_358)))"
-" fold-var_357)))))"
-" for-loop_309)"
+" fold-var_364))))"
+"(values fold-var_365)))))"
+"(if(not #f)(for-loop_172 fold-var_363 rest_224 rest_225) fold-var_363)))"
+" fold-var_362)))))"
+" for-loop_172)"
 " null"
-" lst_392"
-" lst_393))))"
+" lst_397"
+" lst_146))))"
 " vals+body_0)))))))"
 "(define-values"
 "(log-letrec-values)"
-"(lambda(obs_101 val-idss_5 val-rhss_5 bodys_12)"
+"(lambda(obs_99 val-idss_5 val-rhss_5 bodys_12)"
 "(begin"
 "(begin"
-"(call-expand-observe obs_101 'next-group)"
+"(call-expand-observe obs_99 'next-group)"
 "(if(null? val-idss_5)"
 "(void)"
 "(let-values()"
 "(begin"
-"(call-expand-observe obs_101 'prim-letrec-values)"
-"(log-let-renames obs_101 'let-renames val-idss_5 val-rhss_5 bodys_12 #f #f #f))))))))"
+"(call-expand-observe obs_99 'prim-letrec-values)"
+"(log-let-renames obs_99 'let-renames val-idss_5 val-rhss_5 bodys_12 #f #f #f))))))))"
 "(void"
 "(add-core-form!*"
 " 'let-values"
-"(let-values(((temp181_1) 'prim-let-values))(make-let-values-form11.1 temp181_1 #f #f #f #f #f #f #f #f))))"
+"(let-values(((temp194_0) 'prim-let-values))(make-let-values-form11.1 temp194_0 #f #f #f #f #f #f #f #f))))"
 "(void"
 "(add-core-form!*"
 " 'letrec-values"
-"(let-values(((temp182_0) #t)((temp183_0) 'prim-letrec-values))"
-"(make-let-values-form11.1 temp183_0 temp182_0 #t #f #f #f #f #f #f))))"
+"(let-values(((temp195_0) #t)((temp196_0) 'prim-letrec-values))"
+"(make-let-values-form11.1 temp196_0 temp195_0 #t #f #f #f #f #f #f))))"
 "(void"
 "(add-core-form!*"
 " 'letrec-syntaxes+values"
-"(let-values(((temp184_1) #t)"
-"((temp185_0) #t)"
-"((temp186_1) #t)"
-"((temp187_2) 'prim-letrec-syntaxes+values)"
-"((temp188_1) 'letrec-syntaxes-renames))"
-"(make-let-values-form11.1 temp187_2 temp185_0 #t temp188_1 #t temp186_1 #t temp184_1 #t))))"
+"(let-values(((temp197_1) #t)"
+"((temp198_1) #t)"
+"((temp199_0) #t)"
+"((temp200_0) 'prim-letrec-syntaxes+values)"
+"((temp201_1) 'letrec-syntaxes-renames))"
+"(make-let-values-form11.1 temp200_0 temp198_1 #t temp201_1 #t temp199_0 #t temp197_1 #t))))"
 "(void"
 "(add-core-form!*"
 " '#%stratified-body"
-"(lambda(s_517 ctx_84)"
+"(lambda(s_526 ctx_83)"
 "(let-values((()"
 "(begin"
-"(let-values(((obs_102)(expand-context-observer ctx_84)))"
-"(if obs_102"
-"(let-values()(let-values()(call-expand-observe obs_102 'prim-#%stratified)))"
+"(let-values(((obs_100)(expand-context-observer ctx_83)))"
+"(if obs_100"
+"(let-values()(let-values()(call-expand-observe obs_100 'prim-#%stratified)))"
 "(void)))"
 "(values))))"
-"(let-values(((disarmed-s_9)(syntax-disarm$1 s_517)))"
-"(let-values(((ok?_38 #%stratified-body189_0 body190_0)"
-"(let-values(((s_518) disarmed-s_9))"
-"(let-values(((orig-s_45) s_518))"
-"(let-values(((#%stratified-body189_1 body190_1)"
-"(let-values(((s_519)(if(syntax?$1 s_518)(syntax-e$1 s_518) s_518)))"
-"(if(pair? s_519)"
-"(let-values(((#%stratified-body191_0)"
-"(let-values(((s_520)(car s_519))) s_520))"
-"((body192_0)"
-"(let-values(((s_521)(cdr s_519)))"
-"(let-values(((s_522)"
-"(if(syntax?$1 s_521)"
-"(syntax-e$1 s_521)"
-" s_521)))"
-"(let-values(((flat-s_39)(to-syntax-list.1 s_522)))"
+"(let-values(((disarmed-s_9)(syntax-disarm$1 s_526)))"
+"(let-values(((ok?_39 #%stratified-body202_0 body203_0)"
+"(let-values(((s_527) disarmed-s_9))"
+"(let-values(((orig-s_46) s_527))"
+"(let-values(((#%stratified-body202_1 body203_1)"
+"(let-values(((s_528)(if(syntax?$1 s_527)(syntax-e$1 s_527) s_527)))"
+"(if(pair? s_528)"
+"(let-values(((#%stratified-body204_0)"
+"(let-values(((s_529)(car s_528))) s_529))"
+"((body205_0)"
+"(let-values(((s_530)(cdr s_528)))"
+"(let-values(((s_531)"
+"(if(syntax?$1 s_530)"
+"(syntax-e$1 s_530)"
+" s_530)))"
+"(let-values(((flat-s_39)(to-syntax-list.1 s_531)))"
 "(if(not flat-s_39)"
 "(let-values()"
-"                                                                     (raise-syntax-error$1 #f \"bad syntax\" orig-s_45))"
+"                                                                     (raise-syntax-error$1 #f \"bad syntax\" orig-s_46))"
 "(if(null? flat-s_39)"
 "(let-values()"
-"                                                                       (raise-syntax-error$1 #f \"bad syntax\" orig-s_45))"
+"                                                                       (raise-syntax-error$1 #f \"bad syntax\" orig-s_46))"
 "(let-values() flat-s_39))))))))"
-"(values #%stratified-body191_0 body192_0))"
-"                                             (raise-syntax-error$1 #f \"bad syntax\" orig-s_45)))))"
-"(values #t #%stratified-body189_1 body190_1))))))"
+"(values #%stratified-body204_0 body205_0))"
+"                                             (raise-syntax-error$1 #f \"bad syntax\" orig-s_46)))))"
+"(values #t #%stratified-body202_1 body203_1))))))"
 "(let-values(((rebuild-s_7)"
-"(let-values(((ctx193_0) ctx_84)((s194_0) s_517)((temp195_0) #t))"
-"(keep-as-needed74.1 #f #f temp195_0 #t #f #f ctx193_0 s194_0))))"
+"(let-values(((ctx206_0) ctx_83)((s207_0) s_526)((temp208_0) #t))"
+"(keep-as-needed74.1 #f #f temp208_0 #t #f #f ctx206_0 s207_0))))"
 "(let-values(((exp-body_5)"
-"(let-values(((temp196_0) body190_0)"
-"((ctx197_0) ctx_84)"
-"((temp198_1) #t)"
-"((rebuild-s199_0) rebuild-s_7))"
-"(expand-body7.1 rebuild-s199_0 temp198_1 #t temp196_0 ctx197_0))))"
-"(if(expand-context-to-parsed? ctx_84)"
+"(let-values(((temp209_1) body203_0)"
+"((ctx210_0) ctx_83)"
+"((temp211_1) #t)"
+"((rebuild-s212_0) rebuild-s_7))"
+"(expand-body7.1 rebuild-s212_0 temp211_1 #t temp209_1 ctx210_0))))"
+"(if(expand-context-to-parsed? ctx_83)"
 "(parsed-begin12.1 rebuild-s_7 exp-body_5)"
-"(let-values(((rebuild-s200_0) rebuild-s_7)"
-"((temp201_1)"
+"(let-values(((rebuild-s213_0) rebuild-s_7)"
+"((temp214_1)"
 "(if(null?(cdr exp-body_5))"
 "(car exp-body_5)"
-"(list*(core-id 'begin(expand-context-phase ctx_84)) exp-body_5))))"
-"(rebuild5.1 #f #f rebuild-s200_0 temp201_1)))))))))))"
+"(list*(core-id 'begin(expand-context-phase ctx_83)) exp-body_5))))"
+"(rebuild5.1 #f #f rebuild-s213_0 temp214_1)))))))))))"
 "(void"
 "(add-core-form!*"
 " '#%datum"
-"(lambda(s_523 ctx_85)"
+"(lambda(s_532 ctx_84)"
 "(let-values((()"
 "(begin"
-"(let-values(((obs_103)(expand-context-observer ctx_85)))"
-"(if obs_103(let-values()(let-values()(call-expand-observe obs_103 'prim-#%datum)))(void)))"
+"(let-values(((obs_101)(expand-context-observer ctx_84)))"
+"(if obs_101(let-values()(let-values()(call-expand-observe obs_101 'prim-#%datum)))(void)))"
 "(values))))"
-"(let-values(((disarmed-s_10)(syntax-disarm$1 s_523)))"
-"(let-values(((ok?_39 #%datum202_0 datum203_0)"
-"(let-values(((s_524) disarmed-s_10))"
-"(let-values(((orig-s_46) s_524))"
-"(let-values(((#%datum202_1 datum203_1)"
-"(let-values(((s_525)(if(syntax?$1 s_524)(syntax-e$1 s_524) s_524)))"
-"(if(pair? s_525)"
-"(let-values(((#%datum204_0)(let-values(((s_526)(car s_525))) s_526))"
-"((datum205_0)(let-values(((s_527)(cdr s_525))) s_527)))"
-"(values #%datum204_0 datum205_0))"
-"                                             (raise-syntax-error$1 #f \"bad syntax\" orig-s_46)))))"
-"(values #t #%datum202_1 datum203_1))))))"
-"(let-values(((datum_2) datum203_0))"
+"(let-values(((disarmed-s_10)(syntax-disarm$1 s_532)))"
+"(let-values(((ok?_40 #%datum215_0 datum216_0)"
+"(let-values(((s_533) disarmed-s_10))"
+"(let-values(((orig-s_47) s_533))"
+"(let-values(((#%datum215_1 datum216_1)"
+"(let-values(((s_534)(if(syntax?$1 s_533)(syntax-e$1 s_533) s_533)))"
+"(if(pair? s_534)"
+"(let-values(((#%datum217_0)(let-values(((s_535)(car s_534))) s_535))"
+"((datum218_0)(let-values(((s_536)(cdr s_534))) s_536)))"
+"(values #%datum217_0 datum218_0))"
+"                                             (raise-syntax-error$1 #f \"bad syntax\" orig-s_47)))))"
+"(values #t #%datum215_1 datum216_1))))))"
+"(let-values(((datum_2) datum216_0))"
 "(let-values((()"
 "(begin"
 "(if(if(syntax?$1 datum_2)(keyword?(syntax-e$1 datum_2)) #f)"
@@ -65331,251 +65392,251 @@ static const char *startup_source =
 "                                 (raise-syntax-error$1 '#%datum \"keyword misused as an expression\" #f datum_2))"
 "(void))"
 "(values))))"
-"(let-values(((phase_145)(expand-context-phase ctx_85)))"
-"(if(if(expand-context-to-parsed? ctx_85)(free-id-set-empty?(expand-context-stops ctx_85)) #f)"
-"(parsed-quote14.1(keep-properties-only~ s_523)(syntax->datum$1 datum_2))"
-"(let-values(((s206_0) s_523)((temp207_0)(list(core-id 'quote phase_145) datum_2)))"
-"(rebuild5.1 #f #f s206_0 temp207_0))))))))))))"
+"(let-values(((phase_146)(expand-context-phase ctx_84)))"
+"(if(if(expand-context-to-parsed? ctx_84)(free-id-set-empty?(expand-context-stops ctx_84)) #f)"
+"(parsed-quote14.1(keep-properties-only~ s_532)(syntax->datum$1 datum_2))"
+"(let-values(((s219_0) s_532)((temp220_1)(list(core-id 'quote phase_146) datum_2)))"
+"(rebuild5.1 #f #f s219_0 temp220_1))))))))))))"
 "(void"
 "(add-core-form!*"
 " '#%app"
-"(lambda(s_528 ctx_86)"
+"(lambda(s_537 ctx_85)"
 "(let-values((()"
 "(begin"
-"(let-values(((obs_104)(expand-context-observer ctx_86)))"
-"(if obs_104(let-values()(let-values()(call-expand-observe obs_104 'prim-#%app)))(void)))"
+"(let-values(((obs_102)(expand-context-observer ctx_85)))"
+"(if obs_102(let-values()(let-values()(call-expand-observe obs_102 'prim-#%app)))(void)))"
 "(values))))"
-"(let-values(((disarmed-s_11)(syntax-disarm$1 s_528)))"
-"(let-values(((ok?_40 #%app208_0 e209_0)"
-"(let-values(((s_529) disarmed-s_11))"
-"(let-values(((orig-s_47) s_529))"
-"(let-values(((#%app208_1 e209_1)"
-"(let-values(((s_530)(if(syntax?$1 s_529)(syntax-e$1 s_529) s_529)))"
-"(if(pair? s_530)"
-"(let-values(((#%app210_0)(let-values(((s_531)(car s_530))) s_531))"
-"((e211_0)"
-"(let-values(((s_532)(cdr s_530)))"
-"(let-values(((s_533)"
-"(if(syntax?$1 s_532)"
-"(syntax-e$1 s_532)"
-" s_532)))"
-"(let-values(((flat-s_40)(to-syntax-list.1 s_533)))"
+"(let-values(((disarmed-s_11)(syntax-disarm$1 s_537)))"
+"(let-values(((ok?_41 #%app221_0 e222_0)"
+"(let-values(((s_538) disarmed-s_11))"
+"(let-values(((orig-s_48) s_538))"
+"(let-values(((#%app221_1 e222_1)"
+"(let-values(((s_539)(if(syntax?$1 s_538)(syntax-e$1 s_538) s_538)))"
+"(if(pair? s_539)"
+"(let-values(((#%app223_0)(let-values(((s_540)(car s_539))) s_540))"
+"((e224_0)"
+"(let-values(((s_541)(cdr s_539)))"
+"(let-values(((s_542)"
+"(if(syntax?$1 s_541)"
+"(syntax-e$1 s_541)"
+" s_541)))"
+"(let-values(((flat-s_40)(to-syntax-list.1 s_542)))"
 "(if(not flat-s_40)"
 "(let-values()"
-"                                                                     (raise-syntax-error$1 #f \"bad syntax\" orig-s_47))"
+"                                                                     (raise-syntax-error$1 #f \"bad syntax\" orig-s_48))"
 "(let-values() flat-s_40)))))))"
-"(values #%app210_0 e211_0))"
-"                                             (raise-syntax-error$1 #f \"bad syntax\" orig-s_47)))))"
-"(values #t #%app208_1 e209_1))))))"
-"(let-values(((es_3) e209_0))"
+"(values #%app223_0 e224_0))"
+"                                             (raise-syntax-error$1 #f \"bad syntax\" orig-s_48)))))"
+"(values #t #%app221_1 e222_1))))))"
+"(let-values(((es_3) e222_0))"
 "(if(null? es_3)"
 "(let-values()"
-"(let-values(((phase_146)(expand-context-phase ctx_86)))"
-"(if(expand-context-to-parsed? ctx_86)"
-"(parsed-quote14.1(keep-properties-only~ s_528) null)"
-"(let-values(((s212_0) s_528)((temp213_1)(list(core-id 'quote phase_146) null)))"
-"(rebuild5.1 #f #f s212_0 temp213_1)))))"
+"(let-values(((phase_67)(expand-context-phase ctx_85)))"
+"(if(expand-context-to-parsed? ctx_85)"
+"(parsed-quote14.1(keep-properties-only~ s_537) null)"
+"(let-values(((s225_0) s_537)((temp226_2)(list(core-id 'quote phase_67) null)))"
+"(rebuild5.1 #f #f s225_0 temp226_2)))))"
 "(let-values()"
 "(let-values(((keep-for-parsed?_1)(eq?(system-type 'vm) 'chez-scheme)))"
 "(let-values(((rebuild-s_8)"
-"(let-values(((ctx214_0) ctx_86)"
-"((s215_0) s_528)"
-"((keep-for-parsed?216_0) keep-for-parsed?_1))"
-"(keep-as-needed74.1 #f #f #f #f keep-for-parsed?216_0 #t ctx214_0 s215_0))))"
+"(let-values(((ctx227_0) ctx_85)"
+"((s228_0) s_537)"
+"((keep-for-parsed?229_0) keep-for-parsed?_1))"
+"(keep-as-needed74.1 #f #f #f #f keep-for-parsed?229_0 #t ctx227_0 s228_0))))"
 "(let-values(((prefixless_0)(cdr(syntax-e$1 disarmed-s_11))))"
 "(let-values(((rebuild-prefixless_0)"
 "(if(syntax?$1 prefixless_0)"
-"(let-values(((ctx217_0) ctx_86)"
-"((prefixless218_0) prefixless_0)"
-"((keep-for-parsed?219_0) keep-for-parsed?_1))"
+"(let-values(((ctx230_0) ctx_85)"
+"((prefixless231_0) prefixless_0)"
+"((keep-for-parsed?232_0) keep-for-parsed?_1))"
 "(keep-as-needed74.1"
 " #f"
 " #f"
 " #f"
 " #f"
-" keep-for-parsed?219_0"
+" keep-for-parsed?232_0"
 " #t"
-" ctx217_0"
-" prefixless218_0))"
+" ctx230_0"
+" prefixless231_0))"
 " #f)))"
-"(let-values(((expr-ctx_1)(as-expression-context ctx_86)))"
+"(let-values(((expr-ctx_1)(as-expression-context ctx_85)))"
 "(let-values((()"
 "(begin"
-"(let-values(((obs_105)(expand-context-observer expr-ctx_1)))"
-"(if obs_105"
+"(let-values(((obs_103)(expand-context-observer expr-ctx_1)))"
+"(if obs_103"
 "(let-values()"
 "(let-values()"
 "(begin"
 "(call-expand-observe"
-" obs_105"
+" obs_103"
 " 'enter-list"
-"(datum->syntax$1 #f es_3 s_528))"
-"(call-expand-observe obs_105 'next))))"
+"(datum->syntax$1 #f es_3 s_537))"
+"(call-expand-observe obs_103 'next))))"
 "(void)))"
 "(values))))"
 "(let-values(((rest-es_0)(cdr es_3)))"
 "(let-values(((exp-rator_0)"
-"(let-values(((temp220_1)(car es_3))((expr-ctx221_0) expr-ctx_1))"
-"(expand7.1 #f #f #f #f temp220_1 expr-ctx221_0))))"
+"(let-values(((temp233_2)(car es_3))((expr-ctx234_0) expr-ctx_1))"
+"(expand7.1 #f #f #f #f temp233_2 expr-ctx234_0))))"
 "(let-values(((exp-es_0)"
 "(reverse$1"
-"(let-values(((lst_396) rest-es_0))"
+"(let-values(((lst_399) rest-es_0))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
-"(let-values()(check-list lst_396)))"
-"((letrec-values(((for-loop_310)"
-"(lambda(fold-var_361 lst_397)"
+"(let-values()(check-list lst_399)))"
+"((letrec-values(((for-loop_308)"
+"(lambda(fold-var_366 lst_400)"
 "(begin"
 " 'for-loop"
-"(if(pair? lst_397)"
-"(let-values(((e_88)(unsafe-car lst_397))"
+"(if(pair? lst_400)"
+"(let-values(((e_89)(unsafe-car lst_400))"
 "((rest_226)"
-"(unsafe-cdr lst_397)))"
-"(let-values(((fold-var_362)"
-"(let-values(((fold-var_363)"
-" fold-var_361))"
-"(let-values(((fold-var_364)"
+"(unsafe-cdr lst_400)))"
+"(let-values(((fold-var_367)"
+"(let-values(((fold-var_368)"
+" fold-var_366))"
+"(let-values(((fold-var_369)"
 "(let-values()"
 "(cons"
 "(let-values()"
 "(begin"
-"(let-values(((obs_106)"
+"(let-values(((obs_104)"
 "(expand-context-observer"
 " expr-ctx_1)))"
-"(if obs_106"
+"(if obs_104"
 "(let-values()"
 "(let-values()"
 "(call-expand-observe"
-" obs_106"
+" obs_104"
 " 'next)))"
 "(void)))"
-"(let-values(((e222_0)"
-" e_88)"
-"((expr-ctx223_0)"
+"(let-values(((e235_0)"
+" e_89)"
+"((expr-ctx236_0)"
 " expr-ctx_1))"
 "(expand7.1"
 " #f"
 " #f"
 " #f"
 " #f"
-" e222_0"
-" expr-ctx223_0))))"
-" fold-var_363))))"
+" e235_0"
+" expr-ctx236_0))))"
+" fold-var_368))))"
 "(values"
-" fold-var_364)))))"
+" fold-var_369)))))"
 "(if(not #f)"
-"(for-loop_310 fold-var_362 rest_226)"
-" fold-var_362)))"
-" fold-var_361)))))"
-" for-loop_310)"
+"(for-loop_308 fold-var_367 rest_226)"
+" fold-var_367)))"
+" fold-var_366)))))"
+" for-loop_308)"
 " null"
-" lst_396))))))"
-"(if(expand-context-to-parsed? ctx_86)"
+" lst_399))))))"
+"(if(expand-context-to-parsed? ctx_85)"
 "(let-values()"
 "(parsed-app7.1"
-"(let-values(((or-part_376) rebuild-prefixless_0))"
-"(if or-part_376 or-part_376 rebuild-s_8))"
+"(let-values(((or-part_380) rebuild-prefixless_0))"
+"(if or-part_380 or-part_380 rebuild-s_8))"
 " exp-rator_0"
 " exp-es_0))"
 "(let-values()"
 "(let-values(((es_4)"
 "(let-values(((exp-es_1)(cons exp-rator_0 exp-es_0)))"
 "(if rebuild-prefixless_0"
-"(let-values(((rebuild-prefixless226_0) rebuild-prefixless_0)"
-"((exp-es227_0) exp-es_1))"
-"(rebuild5.1 #f #f rebuild-prefixless226_0 exp-es227_0))"
+"(let-values(((rebuild-prefixless239_0) rebuild-prefixless_0)"
+"((exp-es240_0) exp-es_1))"
+"(rebuild5.1 #f #f rebuild-prefixless239_0 exp-es240_0))"
 " exp-es_1))))"
 "(begin"
-"(let-values(((obs_107)(expand-context-observer expr-ctx_1)))"
-"(if obs_107"
+"(let-values(((obs_105)(expand-context-observer expr-ctx_1)))"
+"(if obs_105"
 "(let-values()"
 "(let-values()"
 "(call-expand-observe"
-" obs_107"
+" obs_105"
 " 'exit-list"
 "(datum->syntax$1 #f es_4 rebuild-s_8))))"
 "(void)))"
-"(let-values(((rebuild-s224_0) rebuild-s_8)"
-"((temp225_2)(cons #%app208_0 es_4)))"
-"(rebuild5.1 #f #f rebuild-s224_0 temp225_2))))))))))))))))))))))))"
+"(let-values(((rebuild-s237_0) rebuild-s_8)"
+"((temp238_1)(cons #%app221_0 es_4)))"
+"(rebuild5.1 #f #f rebuild-s237_0 temp238_1))))))))))))))))))))))))"
 "(void"
 "(add-core-form!*"
 " 'quote"
-"(lambda(s_534 ctx_87)"
+"(lambda(s_543 ctx_86)"
 "(let-values((()"
 "(begin"
-"(let-values(((obs_108)(expand-context-observer ctx_87)))"
-"(if obs_108(let-values()(let-values()(call-expand-observe obs_108 'prim-quote)))(void)))"
+"(let-values(((obs_106)(expand-context-observer ctx_86)))"
+"(if obs_106(let-values()(let-values()(call-expand-observe obs_106 'prim-quote)))(void)))"
 "(values))))"
-"(let-values(((ok?_41 quote228_0 datum229_0)"
-"(let-values(((s_535)(syntax-disarm$1 s_534)))"
-"(let-values(((orig-s_48) s_535))"
-"(let-values(((quote228_1 datum229_1)"
-"(let-values(((s_536)(if(syntax?$1 s_535)(syntax-e$1 s_535) s_535)))"
-"(if(pair? s_536)"
-"(let-values(((quote230_0)(let-values(((s_537)(car s_536))) s_537))"
-"((datum231_0)"
-"(let-values(((s_538)(cdr s_536)))"
-"(let-values(((s_539)"
-"(if(syntax?$1 s_538)"
-"(syntax-e$1 s_538)"
-" s_538)))"
-"(if(pair? s_539)"
-"(let-values(((datum232_0)"
-"(let-values(((s_540)(car s_539))) s_540))"
+"(let-values(((ok?_42 quote241_0 datum242_0)"
+"(let-values(((s_544)(syntax-disarm$1 s_543)))"
+"(let-values(((orig-s_49) s_544))"
+"(let-values(((quote241_1 datum242_1)"
+"(let-values(((s_545)(if(syntax?$1 s_544)(syntax-e$1 s_544) s_544)))"
+"(if(pair? s_545)"
+"(let-values(((quote243_0)(let-values(((s_546)(car s_545))) s_546))"
+"((datum244_0)"
+"(let-values(((s_547)(cdr s_545)))"
+"(let-values(((s_548)"
+"(if(syntax?$1 s_547)"
+"(syntax-e$1 s_547)"
+" s_547)))"
+"(if(pair? s_548)"
+"(let-values(((datum245_0)"
+"(let-values(((s_549)(car s_548))) s_549))"
 "(()"
-"(let-values(((s_541)(cdr s_539)))"
-"(let-values(((s_542)"
-"(if(syntax?$1 s_541)"
-"(syntax-e$1 s_541)"
-" s_541)))"
-"(if(null? s_542)"
+"(let-values(((s_550)(cdr s_548)))"
+"(let-values(((s_551)"
+"(if(syntax?$1 s_550)"
+"(syntax-e$1 s_550)"
+" s_550)))"
+"(if(null? s_551)"
 "(values)"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                    \"bad syntax\""
-" orig-s_48))))))"
-"(values datum232_0))"
-"                                                               (raise-syntax-error$1 #f \"bad syntax\" orig-s_48))))))"
-"(values quote230_0 datum231_0))"
-"                                           (raise-syntax-error$1 #f \"bad syntax\" orig-s_48)))))"
-"(values #t quote228_1 datum229_1))))))"
-"(if(expand-context-to-parsed? ctx_87)"
-"(parsed-quote14.1(keep-properties-only~ s_534)(syntax->datum$1 datum229_0))"
-" s_534))))))"
+" orig-s_49))))))"
+"(values datum245_0))"
+"                                                               (raise-syntax-error$1 #f \"bad syntax\" orig-s_49))))))"
+"(values quote243_0 datum244_0))"
+"                                           (raise-syntax-error$1 #f \"bad syntax\" orig-s_49)))))"
+"(values #t quote241_1 datum242_1))))))"
+"(if(expand-context-to-parsed? ctx_86)"
+"(parsed-quote14.1(keep-properties-only~ s_543)(syntax->datum$1 datum242_0))"
+" s_543))))))"
 "(void"
 "(add-core-form!*"
 " 'quote-syntax"
-"(lambda(s_543 ctx_88)"
+"(lambda(s_552 ctx_87)"
 "(let-values((()"
 "(begin"
-"(let-values(((obs_109)(expand-context-observer ctx_88)))"
-"(if obs_109"
-"(let-values()(let-values()(call-expand-observe obs_109 'prim-quote-syntax)))"
+"(let-values(((obs_107)(expand-context-observer ctx_87)))"
+"(if obs_107"
+"(let-values()(let-values()(call-expand-observe obs_107 'prim-quote-syntax)))"
 "(void)))"
 "(values))))"
-"(let-values(((disarmed-s_12)(syntax-disarm$1 s_543)))"
-"(let-values(((ok?_42 quote-syntax233_0 datum234_0)"
-"(let-values(((s_544) disarmed-s_12))"
-"(if(let-values(((s_545)(if(syntax?$1 s_544)(syntax-e$1 s_544) s_544)))"
-"(if(pair? s_545)"
-"(if(let-values(((s_546)(car s_545))) #t)"
-"(let-values(((s_547)(cdr s_545)))"
-"(let-values(((s_548)(if(syntax?$1 s_547)(syntax-e$1 s_547) s_547)))"
-"(if(pair? s_548)"
-"(if(let-values(((s_549)(car s_548))) #t)"
-"(let-values(((s_550)(cdr s_548)))"
-"(let-values(((s_551)(if(syntax?$1 s_550)(syntax-e$1 s_550) s_550)))"
-"(if(pair? s_551)"
-"(if(let-values(((s_552)(car s_551)))"
-"(let-values(((s_553)"
-"(if(syntax?$1 s_552)(syntax-e$1 s_552) s_552)))"
-"(eq? '#:local s_553)))"
-"(let-values(((s_554)(cdr s_551)))"
-"(let-values(((s_555)"
-"(if(syntax?$1 s_554)(syntax-e$1 s_554) s_554)))"
-"(null? s_555)))"
+"(let-values(((disarmed-s_12)(syntax-disarm$1 s_552)))"
+"(let-values(((ok?_43 quote-syntax246_0 datum247_0)"
+"(let-values(((s_553) disarmed-s_12))"
+"(if(let-values(((s_554)(if(syntax?$1 s_553)(syntax-e$1 s_553) s_553)))"
+"(if(pair? s_554)"
+"(if(let-values(((s_555)(car s_554))) #t)"
+"(let-values(((s_269)(cdr s_554)))"
+"(let-values(((s_556)(if(syntax?$1 s_269)(syntax-e$1 s_269) s_269)))"
+"(if(pair? s_556)"
+"(if(let-values(((s_557)(car s_556))) #t)"
+"(let-values(((s_558)(cdr s_556)))"
+"(let-values(((s_559)(if(syntax?$1 s_558)(syntax-e$1 s_558) s_558)))"
+"(if(pair? s_559)"
+"(if(let-values(((s_270)(car s_559)))"
+"(let-values(((s_560)"
+"(if(syntax?$1 s_270)(syntax-e$1 s_270) s_270)))"
+"(eq? '#:local s_560)))"
+"(let-values(((s_561)(cdr s_559)))"
+"(let-values(((s_562)"
+"(if(syntax?$1 s_561)(syntax-e$1 s_561) s_561)))"
+"(null? s_562)))"
 " #f)"
 " #f)))"
 " #f)"
@@ -65583,199 +65644,199 @@ static const char *startup_source =
 " #f)"
 " #f))"
 "(let-values()"
-"(let-values(((quote-syntax233_1 datum234_1)"
-"(let-values(((s_556)(if(syntax?$1 s_544)(syntax-e$1 s_544) s_544)))"
-"(let-values(((quote-syntax235_0)"
-"(let-values(((s_557)(car s_556))) s_557))"
-"((datum236_0)"
-"(let-values(((s_558)(cdr s_556)))"
-"(let-values(((s_559)"
-"(if(syntax?$1 s_558)"
-"(syntax-e$1 s_558)"
-" s_558)))"
-"(let-values(((datum237_0)"
-"(let-values(((s_560)(car s_559))) s_560))"
-"(()"
-"(let-values(((s_561)(cdr s_559)))"
-"(let-values(((s_562)"
-"(if(syntax?$1 s_561)"
-"(syntax-e$1 s_561)"
-" s_561)))"
-"(let-values((()"
-"(let-values(((s_563)"
-"(car"
-" s_562)))"
+"(let-values(((quote-syntax246_1 datum247_1)"
+"(let-values(((s_563)(if(syntax?$1 s_553)(syntax-e$1 s_553) s_553)))"
+"(let-values(((quote-syntax248_0)"
+"(let-values(((s_275)(car s_563))) s_275))"
+"((datum249_0)"
+"(let-values(((s_276)(cdr s_563)))"
 "(let-values(((s_564)"
+"(if(syntax?$1 s_276)"
+"(syntax-e$1 s_276)"
+" s_276)))"
+"(let-values(((datum250_0)"
+"(let-values(((s_565)(car s_564))) s_565))"
+"(()"
+"(let-values(((s_566)(cdr s_564)))"
+"(let-values(((s_567)"
+"(if(syntax?$1 s_566)"
+"(syntax-e$1 s_566)"
+" s_566)))"
+"(let-values((()"
+"(let-values(((s_568)"
+"(car"
+" s_567)))"
+"(let-values(((s_569)"
 "(if(syntax?$1"
-" s_563)"
+" s_568)"
 "(syntax-e$1"
-" s_563)"
-" s_563)))"
+" s_568)"
+" s_568)))"
 "(values))))"
 "(()"
-"(let-values(((s_565)"
+"(let-values(((s_570)"
 "(cdr"
-" s_562)))"
-"(let-values(((s_566)"
+" s_567)))"
+"(let-values(((s_571)"
 "(if(syntax?$1"
-" s_565)"
+" s_570)"
 "(syntax-e$1"
-" s_565)"
-" s_565)))"
+" s_570)"
+" s_570)))"
 "(values)))))"
 "(values))))))"
-"(values datum237_0))))))"
-"(values quote-syntax235_0 datum236_0)))))"
-"(values #t quote-syntax233_1 datum234_1)))"
+"(values datum250_0))))))"
+"(values quote-syntax248_0 datum249_0)))))"
+"(values #t quote-syntax246_1 datum247_1)))"
 "(values #f #f #f)))))"
-"(let-values(((ok?_43 quote-syntax238_0 datum239_0)"
-"(let-values(((s_567) disarmed-s_12))"
-"(if(if(not ok?_42) #t #f)"
-"(let-values(((orig-s_49) s_567))"
-"(let-values(((quote-syntax238_1 datum239_1)"
-"(let-values(((s_568)(if(syntax?$1 s_567)(syntax-e$1 s_567) s_567)))"
-"(if(pair? s_568)"
-"(let-values(((quote-syntax240_0)"
-"(let-values(((s_569)(car s_568))) s_569))"
-"((datum241_0)"
-"(let-values(((s_570)(cdr s_568)))"
-"(let-values(((s_571)"
-"(if(syntax?$1 s_570)"
-"(syntax-e$1 s_570)"
-" s_570)))"
-"(if(pair? s_571)"
-"(let-values(((datum242_0)"
-"(let-values(((s_572)(car s_571)))"
-" s_572))"
+"(let-values(((ok?_12 quote-syntax251_0 datum252_0)"
+"(let-values(((s_572) disarmed-s_12))"
+"(if(if(not ok?_43) #t #f)"
+"(let-values(((orig-s_50) s_572))"
+"(let-values(((quote-syntax251_1 datum252_1)"
+"(let-values(((s_573)(if(syntax?$1 s_572)(syntax-e$1 s_572) s_572)))"
+"(if(pair? s_573)"
+"(let-values(((quote-syntax253_0)"
+"(let-values(((s_574)(car s_573))) s_574))"
+"((datum254_0)"
+"(let-values(((s_575)(cdr s_573)))"
+"(let-values(((s_278)"
+"(if(syntax?$1 s_575)"
+"(syntax-e$1 s_575)"
+" s_575)))"
+"(if(pair? s_278)"
+"(let-values(((datum255_0)"
+"(let-values(((s_576)(car s_278)))"
+" s_576))"
 "(()"
-"(let-values(((s_573)(cdr s_571)))"
-"(let-values(((s_574)"
-"(if(syntax?$1 s_573)"
-"(syntax-e$1 s_573)"
-" s_573)))"
-"(if(null? s_574)"
+"(let-values(((s_279)(cdr s_278)))"
+"(let-values(((s_280)"
+"(if(syntax?$1 s_279)"
+"(syntax-e$1 s_279)"
+" s_279)))"
+"(if(null? s_280)"
 "(values)"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                          \"bad syntax\""
-" orig-s_49))))))"
-"(values datum242_0))"
+" orig-s_50))))))"
+"(values datum255_0))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                      \"bad syntax\""
-" orig-s_49))))))"
-"(values quote-syntax240_0 datum241_0))"
-"                                                 (raise-syntax-error$1 #f \"bad syntax\" orig-s_49)))))"
-"(values #t quote-syntax238_1 datum239_1)))"
+" orig-s_50))))))"
+"(values quote-syntax253_0 datum254_0))"
+"                                                 (raise-syntax-error$1 #f \"bad syntax\" orig-s_50)))))"
+"(values #t quote-syntax251_1 datum252_1)))"
 "(values #f #f #f)))))"
-"(if ok?_42"
+"(if ok?_43"
 "(let-values()"
 "(let-values((()"
 "(begin"
-"(reference-records-all-used!(expand-context-reference-records ctx_88))"
+"(reference-records-all-used!(expand-context-reference-records ctx_87))"
 "(values))))"
-"(let-values(((ok?_44 _243_0 _244_0 kw245_0)"
-"(let-values(((s_276) disarmed-s_12))"
-"(let-values(((orig-s_50) s_276))"
-"(let-values(((_243_1 _244_1 kw245_1)"
-"(let-values(((s_575)"
-"(if(syntax?$1 s_276)(syntax-e$1 s_276) s_276)))"
-"(if(pair? s_575)"
-"(let-values(((_246_0)"
-"(let-values(((s_576)(car s_575))) s_576))"
-"((_247_0 kw248_0)"
-"(let-values(((s_577)(cdr s_575)))"
+"(let-values(((ok?_44 _256_0 _257_0 kw258_0)"
+"(let-values(((s_577) disarmed-s_12))"
+"(let-values(((orig-s_51) s_577))"
+"(let-values(((_256_1 _257_1 kw258_1)"
 "(let-values(((s_578)"
-"(if(syntax?$1 s_577)"
-"(syntax-e$1 s_577)"
-" s_577)))"
+"(if(syntax?$1 s_577)(syntax-e$1 s_577) s_577)))"
 "(if(pair? s_578)"
-"(let-values(((_249_0)"
-"(let-values(((s_579)"
-"(car s_578)))"
-" s_579))"
-"((kw250_0)"
-"(let-values(((s_277)"
-"(cdr s_578)))"
-"(let-values(((s_580)"
-"(if(syntax?$1"
-" s_277)"
-"(syntax-e$1"
-" s_277)"
-" s_277)))"
-"(if(pair? s_580)"
-"(let-values(((kw251_0)"
+"(let-values(((_259_0)"
+"(let-values(((s_579)(car s_578))) s_579))"
+"((_260_0 kw261_0)"
+"(let-values(((s_580)(cdr s_578)))"
 "(let-values(((s_581)"
-"(car"
-" s_580)))"
-" s_581))"
-"(()"
-"(let-values(((s_278)"
-"(cdr"
+"(if(syntax?$1 s_580)"
+"(syntax-e$1 s_580)"
 " s_580)))"
+"(if(pair? s_581)"
+"(let-values(((_262_0)"
 "(let-values(((s_582)"
+"(car s_581)))"
+" s_582))"
+"((kw263_0)"
+"(let-values(((s_583)"
+"(cdr s_581)))"
+"(let-values(((s_584)"
 "(if(syntax?$1"
-" s_278)"
+" s_583)"
 "(syntax-e$1"
-" s_278)"
-" s_278)))"
+" s_583)"
+" s_583)))"
+"(if(pair? s_584)"
+"(let-values(((kw264_0)"
+"(let-values(((s_585)"
+"(car"
+" s_584)))"
+" s_585))"
+"(()"
+"(let-values(((s_586)"
+"(cdr"
+" s_584)))"
+"(let-values(((s_587)"
+"(if(syntax?$1"
+" s_586)"
+"(syntax-e$1"
+" s_586)"
+" s_586)))"
 "(if(null?"
-" s_582)"
+" s_587)"
 "(values)"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                    \"bad syntax\""
-" orig-s_50))))))"
-"(values kw251_0))"
+" orig-s_51))))))"
+"(values kw264_0))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                \"bad syntax\""
-" orig-s_50))))))"
-"(values _249_0 kw250_0))"
+" orig-s_51))))))"
+"(values _262_0 kw263_0))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                            \"bad syntax\""
-" orig-s_50))))))"
-"(values _246_0 _247_0 kw248_0))"
-"                                                       (raise-syntax-error$1 #f \"bad syntax\" orig-s_50)))))"
-"(values #t _243_1 _244_1 kw245_1))))))"
-"(if(expand-context-to-parsed? ctx_88)"
-"(parsed-quote-syntax15.1(keep-properties-only~ s_543) datum234_0)"
-"(let-values(((s252_0) s_543)((temp253_1)(list quote-syntax233_0 datum234_0 kw245_0)))"
-"(rebuild5.1 #f #f s252_0 temp253_1))))))"
+" orig-s_51))))))"
+"(values _259_0 _260_0 kw261_0))"
+"                                                       (raise-syntax-error$1 #f \"bad syntax\" orig-s_51)))))"
+"(values #t _256_1 _257_1 kw258_1))))))"
+"(if(expand-context-to-parsed? ctx_87)"
+"(parsed-quote-syntax15.1(keep-properties-only~ s_552) datum247_0)"
+"(let-values(((s265_0) s_552)((temp266_0)(list quote-syntax246_0 datum247_0 kw258_0)))"
+"(rebuild5.1 #f #f s265_0 temp266_0))))))"
 "(let-values()"
-"(let-values(((datum-s_0)(remove-scopes datum239_0(expand-context-scopes ctx_88))))"
-"(if(if(expand-context-to-parsed? ctx_88)(free-id-set-empty?(expand-context-stops ctx_88)) #f)"
-"(parsed-quote-syntax15.1(keep-properties-only~ s_543) datum-s_0)"
-"(let-values(((s254_0) s_543)((temp255_0)(list quote-syntax238_0 datum-s_0)))"
-"(rebuild5.1 #f #f s254_0 temp255_0)))))))))))))"
+"(let-values(((datum-s_0)(remove-scopes datum252_0(expand-context-scopes ctx_87))))"
+"(if(if(expand-context-to-parsed? ctx_87)(free-id-set-empty?(expand-context-stops ctx_87)) #f)"
+"(parsed-quote-syntax15.1(keep-properties-only~ s_552) datum-s_0)"
+"(let-values(((s267_0) s_552)((temp268_0)(list quote-syntax251_0 datum-s_0)))"
+"(rebuild5.1 #f #f s267_0 temp268_0)))))))))))))"
 "(void"
 "(add-core-form!*"
 " 'if"
-"(lambda(s_583 ctx_89)"
+"(lambda(s_588 ctx_88)"
 "(let-values((()"
 "(begin"
-"(let-values(((obs_110)(expand-context-observer ctx_89)))"
-"(if obs_110(let-values()(let-values()(call-expand-observe obs_110 'prim-if)))(void)))"
+"(let-values(((obs_108)(expand-context-observer ctx_88)))"
+"(if obs_108(let-values()(let-values()(call-expand-observe obs_108 'prim-if)))(void)))"
 "(values))))"
-"(let-values(((disarmed-s_13)(syntax-disarm$1 s_583)))"
-"(let-values(((ok?_45 _256_0 _257_0 _258_0)"
-"(let-values(((s_290) disarmed-s_13))"
-"(if(let-values(((s_291)(if(syntax?$1 s_290)(syntax-e$1 s_290) s_290)))"
-"(if(pair? s_291)"
-"(if(let-values(((s_584)(car s_291))) #t)"
-"(let-values(((s_585)(cdr s_291)))"
-"(let-values(((s_586)(if(syntax?$1 s_585)(syntax-e$1 s_585) s_585)))"
-"(if(pair? s_586)"
-"(if(let-values(((s_587)(car s_586))) #t)"
-"(let-values(((s_588)(cdr s_586)))"
-"(let-values(((s_589)(if(syntax?$1 s_588)(syntax-e$1 s_588) s_588)))"
-"(if(pair? s_589)"
-"(if(let-values(((s_590)(car s_589))) #t)"
-"(let-values(((s_591)(cdr s_589)))"
-"(let-values(((s_592)"
-"(if(syntax?$1 s_591)(syntax-e$1 s_591) s_591)))"
-"(null? s_592)))"
+"(let-values(((disarmed-s_13)(syntax-disarm$1 s_588)))"
+"(let-values(((ok?_45 _269_0 _270_0 _271_0)"
+"(let-values(((s_589) disarmed-s_13))"
+"(if(let-values(((s_590)(if(syntax?$1 s_589)(syntax-e$1 s_589) s_589)))"
+"(if(pair? s_590)"
+"(if(let-values(((s_591)(car s_590))) #t)"
+"(let-values(((s_592)(cdr s_590)))"
+"(let-values(((s_593)(if(syntax?$1 s_592)(syntax-e$1 s_592) s_592)))"
+"(if(pair? s_593)"
+"(if(let-values(((s_594)(car s_593))) #t)"
+"(let-values(((s_595)(cdr s_593)))"
+"(let-values(((s_596)(if(syntax?$1 s_595)(syntax-e$1 s_595) s_595)))"
+"(if(pair? s_596)"
+"(if(let-values(((s_597)(car s_596))) #t)"
+"(let-values(((s_598)(cdr s_596)))"
+"(let-values(((s_599)"
+"(if(syntax?$1 s_598)(syntax-e$1 s_598) s_598)))"
+"(null? s_599)))"
 " #f)"
 " #f)))"
 " #f)"
@@ -65783,210 +65844,97 @@ static const char *startup_source =
 " #f)"
 " #f))"
 "(let-values()"
-"(let-values(((_256_1 _257_1 _258_1)"
-"(let-values(((s_593)(if(syntax?$1 s_290)(syntax-e$1 s_290) s_290)))"
-"(let-values(((_259_0)(let-values(((s_292)(car s_593))) s_292))"
-"((_260_0 _261_0)"
-"(let-values(((s_594)(cdr s_593)))"
-"(let-values(((s_595)"
-"(if(syntax?$1 s_594)"
-"(syntax-e$1 s_594)"
-" s_594)))"
-"(let-values(((_262_0)"
-"(let-values(((s_293)(car s_595))) s_293))"
-"((_263_0)"
-"(let-values(((s_596)(cdr s_595)))"
-"(let-values(((s_597)"
-"(if(syntax?$1 s_596)"
-"(syntax-e$1 s_596)"
-" s_596)))"
-"(let-values(((_264_0)"
-"(let-values(((s_294)"
+"(let-values(((_269_1 _270_1 _271_1)"
+"(let-values(((s_600)(if(syntax?$1 s_589)(syntax-e$1 s_589) s_589)))"
+"(let-values(((_272_0)(let-values(((s_601)(car s_600))) s_601))"
+"((_273_0 _274_0)"
+"(let-values(((s_602)(cdr s_600)))"
+"(let-values(((s_603)"
+"(if(syntax?$1 s_602)"
+"(syntax-e$1 s_602)"
+" s_602)))"
+"(let-values(((_275_0)"
+"(let-values(((s_604)(car s_603))) s_604))"
+"((_276_0)"
+"(let-values(((s_605)(cdr s_603)))"
+"(let-values(((s_606)"
+"(if(syntax?$1 s_605)"
+"(syntax-e$1 s_605)"
+" s_605)))"
+"(let-values(((_277_0)"
+"(let-values(((s_607)"
 "(car"
-" s_597)))"
-" s_294))"
+" s_606)))"
+" s_607))"
 "(()"
-"(let-values(((s_295)"
+"(let-values(((s_608)"
 "(cdr"
-" s_597)))"
-"(let-values(((s_296)"
+" s_606)))"
+"(let-values(((s_609)"
 "(if(syntax?$1"
-" s_295)"
+" s_608)"
 "(syntax-e$1"
-" s_295)"
-" s_295)))"
+" s_608)"
+" s_608)))"
 "(values)))))"
-"(values _264_0))))))"
-"(values _262_0 _263_0))))))"
-"(values _259_0 _260_0 _261_0)))))"
-"(values #t _256_1 _257_1 _258_1)))"
+"(values _277_0))))))"
+"(values _275_0 _276_0))))))"
+"(values _272_0 _273_0 _274_0)))))"
+"(values #t _269_1 _270_1 _271_1)))"
 "(values #f #f #f #f)))))"
 "(let-values((()"
 "(begin"
 "(if ok?_45"
-"                             (let-values () (raise-syntax-error$1 #f \"missing an \\\"else\\\" expression\" s_583))"
+"                             (let-values () (raise-syntax-error$1 #f \"missing an \\\"else\\\" expression\" s_588))"
 "(void))"
 "(values))))"
-"(let-values(((ok?_46 if265_0 tst266_0 thn267_0 els268_0)"
-"(let-values(((s_598) disarmed-s_13))"
-"(let-values(((orig-s_51) s_598))"
-"(let-values(((if265_1 tst266_1 thn267_1 els268_1)"
-"(let-values(((s_599)(if(syntax?$1 s_598)(syntax-e$1 s_598) s_598)))"
-"(if(pair? s_599)"
-"(let-values(((if269_0)(let-values(((s_600)(car s_599))) s_600))"
-"((tst270_0 thn271_0 els272_0)"
-"(let-values(((s_601)(cdr s_599)))"
-"(let-values(((s_602)"
-"(if(syntax?$1 s_601)"
-"(syntax-e$1 s_601)"
-" s_601)))"
-"(if(pair? s_602)"
-"(let-values(((tst273_0)"
-"(let-values(((s_603)(car s_602)))"
-" s_603))"
-"((thn274_0 els275_0)"
-"(let-values(((s_604)(cdr s_602)))"
-"(let-values(((s_605)"
-"(if(syntax?$1 s_604)"
-"(syntax-e$1 s_604)"
-" s_604)))"
-"(if(pair? s_605)"
-"(let-values(((thn276_0)"
-"(let-values(((s_606)"
-"(car"
-" s_605)))"
-" s_606))"
-"((els277_0)"
-"(let-values(((s_607)"
-"(cdr"
-" s_605)))"
-"(let-values(((s_608)"
-"(if(syntax?$1"
-" s_607)"
-"(syntax-e$1"
-" s_607)"
-" s_607)))"
-"(if(pair?"
-" s_608)"
-"(let-values(((els278_0)"
-"(let-values(((s_609)"
-"(car"
-" s_608)))"
-" s_609))"
-"(()"
-"(let-values(((s_610)"
-"(cdr"
-" s_608)))"
-"(let-values(((s_611)"
-"(if(syntax?$1"
-" s_610)"
-"(syntax-e$1"
-" s_610)"
-" s_610)))"
-"(if(null?"
-" s_611)"
-"(values)"
-"(raise-syntax-error$1"
-" #f"
-"                                                                                                                                  \"bad syntax\""
-" orig-s_51))))))"
-"(values"
-" els278_0))"
-"(raise-syntax-error$1"
-" #f"
-"                                                                                                              \"bad syntax\""
-" orig-s_51))))))"
-"(values thn276_0 els277_0))"
-"(raise-syntax-error$1"
-" #f"
-"                                                                                          \"bad syntax\""
-" orig-s_51))))))"
-"(values tst273_0 thn274_0 els275_0))"
-"(raise-syntax-error$1"
-" #f"
-"                                                                      \"bad syntax\""
-" orig-s_51))))))"
-"(values if269_0 tst270_0 thn271_0 els272_0))"
-"                                                 (raise-syntax-error$1 #f \"bad syntax\" orig-s_51)))))"
-"(values #t if265_1 tst266_1 thn267_1 els268_1))))))"
-"(let-values(((expr-ctx_2)(as-expression-context ctx_89)))"
-"(let-values(((tail-ctx_0)"
-"(let-values(((expr-ctx279_0) expr-ctx_2)((ctx280_0) ctx_89))"
-"(as-tail-context23.1 ctx280_0 expr-ctx279_0))))"
-"(let-values(((rebuild-s_9)"
-"(let-values(((ctx281_0) ctx_89)((s282_0) s_583))"
-"(keep-as-needed74.1 #f #f #f #f #f #f ctx281_0 s282_0))))"
-"(let-values(((exp-tst_0)"
-"(let-values(((temp283_0) tst266_0)((expr-ctx284_0) expr-ctx_2))"
-"(expand7.1 #f #f #f #f temp283_0 expr-ctx284_0))))"
-"(let-values((()"
-"(begin"
-"(let-values(((obs_111)(expand-context-observer ctx_89)))"
-"(if obs_111"
-"(let-values()(let-values()(call-expand-observe obs_111 'next)))"
-"(void)))"
-"(values))))"
-"(let-values(((exp-thn_0)"
-"(let-values(((temp285_0) thn267_0)((tail-ctx286_0) tail-ctx_0))"
-"(expand7.1 #f #f #f #f temp285_0 tail-ctx286_0))))"
-"(let-values((()"
-"(begin"
-"(let-values(((obs_112)(expand-context-observer ctx_89)))"
-"(if obs_112"
-"(let-values()(let-values()(call-expand-observe obs_112 'next)))"
-"(void)))"
-"(values))))"
-"(let-values(((exp-els_0)"
-"(let-values(((temp287_0) els268_0)((tail-ctx288_0) tail-ctx_0))"
-"(expand7.1 #f #f #f #f temp287_0 tail-ctx288_0))))"
-"(if(expand-context-to-parsed? ctx_89)"
-"(parsed-if8.1 rebuild-s_9 exp-tst_0 exp-thn_0 exp-els_0)"
-"(let-values(((rebuild-s289_0) rebuild-s_9)"
-"((temp290_0)(list if265_0 exp-tst_0 exp-thn_0 exp-els_0)))"
-"(rebuild5.1 #f #f rebuild-s289_0 temp290_0)))))))))))))))))))"
-"(void"
-"(add-core-form!*"
-" 'with-continuation-mark"
-"(lambda(s_612 ctx_90)"
-"(let-values((()"
-"(begin"
-"(let-values(((obs_113)(expand-context-observer ctx_90)))"
-"(if obs_113"
-"(let-values()(let-values()(call-expand-observe obs_113 'prim-with-continuation-mark)))"
-"(void)))"
-"(values))))"
-"(let-values(((disarmed-s_14)(syntax-disarm$1 s_612)))"
-"(let-values(((ok?_47 with-continuation-mark291_0 key292_0 val293_0 body294_0)"
-"(let-values(((s_613) disarmed-s_14))"
-"(let-values(((orig-s_52) s_613))"
-"(let-values(((with-continuation-mark291_1 key292_1 val293_1 body294_1)"
-"(let-values(((s_614)(if(syntax?$1 s_613)(syntax-e$1 s_613) s_613)))"
+"(let-values(((ok?_46 if278_0 tst279_0 thn280_0 els281_0)"
+"(let-values(((s_610) disarmed-s_13))"
+"(let-values(((orig-s_52) s_610))"
+"(let-values(((if278_1 tst279_1 thn280_1 els281_1)"
+"(let-values(((s_611)(if(syntax?$1 s_610)(syntax-e$1 s_610) s_610)))"
+"(if(pair? s_611)"
+"(let-values(((if282_0)(let-values(((s_612)(car s_611))) s_612))"
+"((tst283_0 thn284_0 els285_0)"
+"(let-values(((s_613)(cdr s_611)))"
+"(let-values(((s_614)"
+"(if(syntax?$1 s_613)"
+"(syntax-e$1 s_613)"
+" s_613)))"
 "(if(pair? s_614)"
-"(let-values(((with-continuation-mark295_0)"
-"(let-values(((s_615)(car s_614))) s_615))"
-"((key296_0 val297_0 body298_0)"
+"(let-values(((tst286_0)"
+"(let-values(((s_615)(car s_614)))"
+" s_615))"
+"((thn287_0 els288_0)"
 "(let-values(((s_616)(cdr s_614)))"
 "(let-values(((s_617)"
 "(if(syntax?$1 s_616)"
 "(syntax-e$1 s_616)"
 " s_616)))"
 "(if(pair? s_617)"
-"(let-values(((key299_0)"
-"(let-values(((s_618)(car s_617)))"
+"(let-values(((thn289_0)"
+"(let-values(((s_618)"
+"(car"
+" s_617)))"
 " s_618))"
-"((val300_0 body301_0)"
-"(let-values(((s_619)(cdr s_617)))"
+"((els290_0)"
+"(let-values(((s_619)"
+"(cdr"
+" s_617)))"
 "(let-values(((s_620)"
-"(if(syntax?$1 s_619)"
-"(syntax-e$1 s_619)"
+"(if(syntax?$1"
+" s_619)"
+"(syntax-e$1"
+" s_619)"
 " s_619)))"
-"(if(pair? s_620)"
-"(let-values(((val302_0)"
+"(if(pair?"
+" s_620)"
+"(let-values(((els291_0)"
 "(let-values(((s_621)"
 "(car"
 " s_620)))"
 " s_621))"
-"((body303_0)"
+"(()"
 "(let-values(((s_622)"
 "(cdr"
 " s_620)))"
@@ -65996,80 +65944,193 @@ static const char *startup_source =
 "(syntax-e$1"
 " s_622)"
 " s_622)))"
-"(if(pair? s_623)"
-"(let-values(((body304_0)"
-"(let-values(((s_624)"
-"(car"
-" s_623)))"
-" s_624))"
-"(()"
-"(let-values(((s_625)"
-"(cdr"
-" s_623)))"
-"(let-values(((s_626)"
-"(if(syntax?$1"
-" s_625)"
-"(syntax-e$1"
-" s_625)"
-" s_625)))"
 "(if(null?"
-" s_626)"
+" s_623)"
+"(values)"
+"(raise-syntax-error$1"
+" #f"
+"                                                                                                                                  \"bad syntax\""
+" orig-s_52))))))"
+"(values"
+" els291_0))"
+"(raise-syntax-error$1"
+" #f"
+"                                                                                                              \"bad syntax\""
+" orig-s_52))))))"
+"(values thn289_0 els290_0))"
+"(raise-syntax-error$1"
+" #f"
+"                                                                                          \"bad syntax\""
+" orig-s_52))))))"
+"(values tst286_0 thn287_0 els288_0))"
+"(raise-syntax-error$1"
+" #f"
+"                                                                      \"bad syntax\""
+" orig-s_52))))))"
+"(values if282_0 tst283_0 thn284_0 els285_0))"
+"                                                 (raise-syntax-error$1 #f \"bad syntax\" orig-s_52)))))"
+"(values #t if278_1 tst279_1 thn280_1 els281_1))))))"
+"(let-values(((expr-ctx_2)(as-expression-context ctx_88)))"
+"(let-values(((tail-ctx_0)"
+"(let-values(((expr-ctx292_0) expr-ctx_2)((ctx293_0) ctx_88))"
+"(as-tail-context23.1 ctx293_0 expr-ctx292_0))))"
+"(let-values(((rebuild-s_9)"
+"(let-values(((ctx294_0) ctx_88)((s295_0) s_588))"
+"(keep-as-needed74.1 #f #f #f #f #f #f ctx294_0 s295_0))))"
+"(let-values(((exp-tst_0)"
+"(let-values(((temp296_1) tst279_0)((expr-ctx297_0) expr-ctx_2))"
+"(expand7.1 #f #f #f #f temp296_1 expr-ctx297_0))))"
+"(let-values((()"
+"(begin"
+"(let-values(((obs_109)(expand-context-observer ctx_88)))"
+"(if obs_109"
+"(let-values()(let-values()(call-expand-observe obs_109 'next)))"
+"(void)))"
+"(values))))"
+"(let-values(((exp-thn_0)"
+"(let-values(((temp298_0) thn280_0)((tail-ctx299_0) tail-ctx_0))"
+"(expand7.1 #f #f #f #f temp298_0 tail-ctx299_0))))"
+"(let-values((()"
+"(begin"
+"(let-values(((obs_110)(expand-context-observer ctx_88)))"
+"(if obs_110"
+"(let-values()(let-values()(call-expand-observe obs_110 'next)))"
+"(void)))"
+"(values))))"
+"(let-values(((exp-els_0)"
+"(let-values(((temp300_1) els281_0)((tail-ctx301_0) tail-ctx_0))"
+"(expand7.1 #f #f #f #f temp300_1 tail-ctx301_0))))"
+"(if(expand-context-to-parsed? ctx_88)"
+"(parsed-if8.1 rebuild-s_9 exp-tst_0 exp-thn_0 exp-els_0)"
+"(let-values(((rebuild-s302_0) rebuild-s_9)"
+"((temp303_0)(list if278_0 exp-tst_0 exp-thn_0 exp-els_0)))"
+"(rebuild5.1 #f #f rebuild-s302_0 temp303_0)))))))))))))))))))"
+"(void"
+"(add-core-form!*"
+" 'with-continuation-mark"
+"(lambda(s_624 ctx_89)"
+"(let-values((()"
+"(begin"
+"(let-values(((obs_111)(expand-context-observer ctx_89)))"
+"(if obs_111"
+"(let-values()(let-values()(call-expand-observe obs_111 'prim-with-continuation-mark)))"
+"(void)))"
+"(values))))"
+"(let-values(((disarmed-s_14)(syntax-disarm$1 s_624)))"
+"(let-values(((ok?_47 with-continuation-mark304_0 key305_0 val306_0 body307_0)"
+"(let-values(((s_625) disarmed-s_14))"
+"(let-values(((orig-s_53) s_625))"
+"(let-values(((with-continuation-mark304_1 key305_1 val306_1 body307_1)"
+"(let-values(((s_626)(if(syntax?$1 s_625)(syntax-e$1 s_625) s_625)))"
+"(if(pair? s_626)"
+"(let-values(((with-continuation-mark308_0)"
+"(let-values(((s_627)(car s_626))) s_627))"
+"((key309_0 val310_0 body311_0)"
+"(let-values(((s_628)(cdr s_626)))"
+"(let-values(((s_629)"
+"(if(syntax?$1 s_628)"
+"(syntax-e$1 s_628)"
+" s_628)))"
+"(if(pair? s_629)"
+"(let-values(((key312_0)"
+"(let-values(((s_630)(car s_629)))"
+" s_630))"
+"((val313_0 body314_0)"
+"(let-values(((s_631)(cdr s_629)))"
+"(let-values(((s_632)"
+"(if(syntax?$1 s_631)"
+"(syntax-e$1 s_631)"
+" s_631)))"
+"(if(pair? s_632)"
+"(let-values(((val315_0)"
+"(let-values(((s_633)"
+"(car"
+" s_632)))"
+" s_633))"
+"((body316_0)"
+"(let-values(((s_634)"
+"(cdr"
+" s_632)))"
+"(let-values(((s_635)"
+"(if(syntax?$1"
+" s_634)"
+"(syntax-e$1"
+" s_634)"
+" s_634)))"
+"(if(pair? s_635)"
+"(let-values(((body317_0)"
+"(let-values(((s_636)"
+"(car"
+" s_635)))"
+" s_636))"
+"(()"
+"(let-values(((s_637)"
+"(cdr"
+" s_635)))"
+"(let-values(((s_638)"
+"(if(syntax?$1"
+" s_637)"
+"(syntax-e$1"
+" s_637)"
+" s_637)))"
+"(if(null?"
+" s_638)"
 "(values)"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                              \"bad syntax\""
-" orig-s_52))))))"
+" orig-s_53))))))"
 "(values"
-" body304_0))"
+" body317_0))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                          \"bad syntax\""
-" orig-s_52))))))"
-"(values val302_0 body303_0))"
+" orig-s_53))))))"
+"(values val315_0 body316_0))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                      \"bad syntax\""
-" orig-s_52))))))"
-"(values key299_0 val300_0 body301_0))"
-"                                                                 (raise-syntax-error$1 #f \"bad syntax\" orig-s_52))))))"
-"(values with-continuation-mark295_0 key296_0 val297_0 body298_0))"
-"                                             (raise-syntax-error$1 #f \"bad syntax\" orig-s_52)))))"
-"(values #t with-continuation-mark291_1 key292_1 val293_1 body294_1))))))"
-"(let-values(((expr-ctx_3)(as-expression-context ctx_90)))"
+" orig-s_53))))))"
+"(values key312_0 val313_0 body314_0))"
+"                                                                 (raise-syntax-error$1 #f \"bad syntax\" orig-s_53))))))"
+"(values with-continuation-mark308_0 key309_0 val310_0 body311_0))"
+"                                             (raise-syntax-error$1 #f \"bad syntax\" orig-s_53)))))"
+"(values #t with-continuation-mark304_1 key305_1 val306_1 body307_1))))))"
+"(let-values(((expr-ctx_3)(as-expression-context ctx_89)))"
 "(let-values(((rebuild-s_10)"
-"(let-values(((ctx305_0) ctx_90)((s306_0) s_612))"
-"(keep-as-needed74.1 #f #f #f #f #f #f ctx305_0 s306_0))))"
+"(let-values(((ctx318_0) ctx_89)((s319_0) s_624))"
+"(keep-as-needed74.1 #f #f #f #f #f #f ctx318_0 s319_0))))"
 "(let-values(((exp-key_0)"
-"(let-values(((temp307_0) key292_0)((expr-ctx308_0) expr-ctx_3))"
-"(expand7.1 #f #f #f #f temp307_0 expr-ctx308_0))))"
+"(let-values(((temp320_0) key305_0)((expr-ctx321_0) expr-ctx_3))"
+"(expand7.1 #f #f #f #f temp320_0 expr-ctx321_0))))"
 "(let-values((()"
 "(begin"
-"(let-values(((obs_114)(expand-context-observer ctx_90)))"
-"(if obs_114"
-"(let-values()(let-values()(call-expand-observe obs_114 'next)))"
+"(let-values(((obs_112)(expand-context-observer ctx_89)))"
+"(if obs_112"
+"(let-values()(let-values()(call-expand-observe obs_112 'next)))"
 "(void)))"
 "(values))))"
 "(let-values(((exp-val_0)"
-"(let-values(((temp309_0) val293_0)((expr-ctx310_0) expr-ctx_3))"
-"(expand7.1 #f #f #f #f temp309_0 expr-ctx310_0))))"
+"(let-values(((temp322_0) val306_0)((expr-ctx323_0) expr-ctx_3))"
+"(expand7.1 #f #f #f #f temp322_0 expr-ctx323_0))))"
 "(let-values((()"
 "(begin"
-"(let-values(((obs_115)(expand-context-observer ctx_90)))"
-"(if obs_115"
-"(let-values()(let-values()(call-expand-observe obs_115 'next)))"
+"(let-values(((obs_113)(expand-context-observer ctx_89)))"
+"(if obs_113"
+"(let-values()(let-values()(call-expand-observe obs_113 'next)))"
 "(void)))"
 "(values))))"
 "(let-values(((exp-body_6)"
-"(let-values(((temp311_0) body294_0)"
-"((temp312_0)"
-"(let-values(((expr-ctx313_0) expr-ctx_3)((ctx314_0) ctx_90))"
-"(as-tail-context23.1 ctx314_0 expr-ctx313_0))))"
-"(expand7.1 #f #f #f #f temp311_0 temp312_0))))"
-"(if(expand-context-to-parsed? ctx_90)"
+"(let-values(((temp324_0) body307_0)"
+"((temp325_0)"
+"(let-values(((expr-ctx326_0) expr-ctx_3)((ctx327_0) ctx_89))"
+"(as-tail-context23.1 ctx327_0 expr-ctx326_0))))"
+"(expand7.1 #f #f #f #f temp324_0 temp325_0))))"
+"(if(expand-context-to-parsed? ctx_89)"
 "(parsed-with-continuation-mark10.1 rebuild-s_10 exp-key_0 exp-val_0 exp-body_6)"
-"(let-values(((rebuild-s315_0) rebuild-s_10)"
-"((temp316_0)(list with-continuation-mark291_0 exp-key_0 exp-val_0 exp-body_6)))"
-"(rebuild5.1 #f #f rebuild-s315_0 temp316_0))))))))))))))))"
+"(let-values(((rebuild-s328_0) rebuild-s_10)"
+"((temp329_0)(list with-continuation-mark304_0 exp-key_0 exp-val_0 exp-body_6)))"
+"(rebuild5.1 #f #f rebuild-s328_0 temp329_0))))))))))))))))"
 "(define-values"
 "(make-begin20.1)"
 "(lambda(last-is-tail?15_0 list-start-index14_0 log-tag18_0 parsed-begin19_0)"
@@ -66080,55 +66141,55 @@ static const char *startup_source =
 "(let-values(((list-start-index_0) list-start-index14_0))"
 "(let-values(((last-is-tail?_0) last-is-tail?15_0))"
 "(let-values()"
-"(lambda(s_627 ctx_91)"
+"(lambda(s_639 ctx_90)"
 "(let-values((()"
 "(begin"
-"(let-values(((obs_116)(expand-context-observer ctx_91)))"
-"(if obs_116"
-"(let-values()(let-values()(call-expand-observe obs_116 log-tag_1)))"
+"(let-values(((obs_114)(expand-context-observer ctx_90)))"
+"(if obs_114"
+"(let-values()(let-values()(call-expand-observe obs_114 log-tag_1)))"
 "(void)))"
 "(values))))"
-"(let-values(((disarmed-s_15)(syntax-disarm$1 s_627)))"
-"(let-values(((ok?_48 begin317_0 e318_0)"
-"(let-values(((s_628) disarmed-s_15))"
-"(let-values(((orig-s_53) s_628))"
-"(let-values(((begin317_1 e318_1)"
-"(let-values(((s_629)"
-"(if(syntax?$1 s_628)(syntax-e$1 s_628) s_628)))"
-"(if(pair? s_629)"
-"(let-values(((begin319_0)"
-"(let-values(((s_630)(car s_629))) s_630))"
-"((e320_0)"
-"(let-values(((s_631)(cdr s_629)))"
-"(let-values(((s_632)"
-"(if(syntax?$1 s_631)"
-"(syntax-e$1 s_631)"
-" s_631)))"
+"(let-values(((disarmed-s_15)(syntax-disarm$1 s_639)))"
+"(let-values(((ok?_48 begin330_0 e331_0)"
+"(let-values(((s_640) disarmed-s_15))"
+"(let-values(((orig-s_54) s_640))"
+"(let-values(((begin330_1 e331_1)"
+"(let-values(((s_641)"
+"(if(syntax?$1 s_640)(syntax-e$1 s_640) s_640)))"
+"(if(pair? s_641)"
+"(let-values(((begin332_0)"
+"(let-values(((s_642)(car s_641))) s_642))"
+"((e333_0)"
+"(let-values(((s_643)(cdr s_641)))"
+"(let-values(((s_644)"
+"(if(syntax?$1 s_643)"
+"(syntax-e$1 s_643)"
+" s_643)))"
 "(let-values(((flat-s_41)"
-"(to-syntax-list.1 s_632)))"
+"(to-syntax-list.1 s_644)))"
 "(if(not flat-s_41)"
 "(let-values()"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                   \"bad syntax\""
-" orig-s_53))"
+" orig-s_54))"
 "(if(null? flat-s_41)"
 "(let-values()"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                     \"bad syntax\""
-" orig-s_53))"
+" orig-s_54))"
 "(let-values() flat-s_41))))))))"
-"(values begin319_0 e320_0))"
-"                                                          (raise-syntax-error$1 #f \"bad syntax\" orig-s_53)))))"
-"(values #t begin317_1 e318_1))))))"
+"(values begin332_0 e333_0))"
+"                                                          (raise-syntax-error$1 #f \"bad syntax\" orig-s_54)))))"
+"(values #t begin330_1 e331_1))))))"
 "(let-values(((expr-ctx_4)"
 "(if last-is-tail?_0"
-"(as-begin-expression-context ctx_91)"
-"(as-expression-context ctx_91))))"
+"(as-begin-expression-context ctx_90)"
+"(as-expression-context ctx_90))))"
 "(let-values(((rebuild-s_11)"
-"(let-values(((ctx321_0) ctx_91)((s322_0) s_627))"
-"(keep-as-needed74.1 #f #f #f #f #f #f ctx321_0 s322_0))))"
+"(let-values(((ctx334_0) ctx_90)((s335_0) s_639))"
+"(keep-as-needed74.1 #f #f #f #f #f #f ctx334_0 s335_0))))"
 "(let-values(((exp-es_2)"
 "((letrec-values(((loop_123)"
 "(lambda(es_5 index_6)"
@@ -66137,17 +66198,17 @@ static const char *startup_source =
 "(begin"
 "(if(zero? index_6)"
 "(let-values()"
-"(let-values(((obs_117)"
-"(expand-context-observer ctx_91)))"
-"(if obs_117"
+"(let-values(((obs_115)"
+"(expand-context-observer ctx_90)))"
+"(if obs_115"
 "(let-values()"
 "(begin"
 "(if(zero? list-start-index_0)"
 "(void)"
 "(let-values()"
-"(call-expand-observe obs_117 'next)))"
+"(call-expand-observe obs_115 'next)))"
 "(call-expand-observe"
-" obs_117"
+" obs_115"
 " 'enter-list"
 "(datum->syntax$1 #f es_5 rebuild-s_11))))"
 "(void))))"
@@ -66157,186 +66218,186 @@ static const char *startup_source =
 "(let-values()"
 "(let-values(((rest-es_1)(cdr es_5)))"
 "(begin"
-"(let-values(((obs_118)"
+"(let-values(((obs_116)"
 "(expand-context-observer"
-" ctx_91)))"
-"(if obs_118"
+" ctx_90)))"
+"(if obs_116"
 "(let-values()"
 "(let-values()"
-"(call-expand-observe obs_118 'next)))"
+"(call-expand-observe obs_116 'next)))"
 "(void)))"
 "(cons"
-"(let-values(((temp323_0)(car es_5))"
-"((temp324_0)"
+"(let-values(((temp336_0)(car es_5))"
+"((temp337_0)"
 "(if(if last-is-tail?_0"
 "(null? rest-es_1)"
 " #f)"
-"(let-values(((expr-ctx325_0)"
+"(let-values(((expr-ctx338_0)"
 " expr-ctx_4)"
-"((ctx326_0)"
-" ctx_91))"
+"((ctx339_0)"
+" ctx_90))"
 "(as-tail-context23.1"
-" ctx326_0"
-" expr-ctx325_0))"
+" ctx339_0"
+" expr-ctx338_0))"
 " expr-ctx_4)))"
 "(expand7.1"
 " #f"
 " #f"
 " #f"
 " #f"
-" temp323_0"
-" temp324_0))"
+" temp336_0"
+" temp337_0))"
 "(loop_123 rest-es_1(sub1 index_6))))))))))))"
 " loop_123)"
-" e318_0"
+" e331_0"
 " list-start-index_0)))"
 "(begin"
-"(let-values(((obs_119)(expand-context-observer ctx_91)))"
-"(if obs_119"
+"(let-values(((obs_117)(expand-context-observer ctx_90)))"
+"(if obs_117"
 "(let-values()"
 "(let-values()"
 "(call-expand-observe"
-" obs_119"
+" obs_117"
 " 'exit-list"
 "(datum->syntax$1 #f(list-tail exp-es_2 list-start-index_0) rebuild-s_11))))"
 "(void)))"
-"(if(expand-context-to-parsed? ctx_91)"
+"(if(expand-context-to-parsed? ctx_90)"
 "(parsed-begin_0 rebuild-s_11 exp-es_2)"
-"(let-values(((rebuild-s327_0) rebuild-s_11)((temp328_0)(cons begin317_0 exp-es_2)))"
-"(rebuild5.1 #f #f rebuild-s327_0 temp328_0)))))))))))))))))))"
+"(let-values(((rebuild-s340_0) rebuild-s_11)((temp341_0)(cons begin330_0 exp-es_2)))"
+"(rebuild5.1 #f #f rebuild-s340_0 temp341_0)))))))))))))))))))"
 "(void"
 "(add-core-form!*"
 " 'begin"
 "(let-values(((nonempty-begin_0)"
-"(let-values(((temp329_0) 'prim-begin)"
-"((parsed-begin330_0) parsed-begin12.1)"
-"((temp331_0) 0)"
-"((temp332_1) #t))"
-"(make-begin20.1 temp332_1 temp331_0 temp329_0 parsed-begin330_0))))"
-"(lambda(s_633 ctx_92)"
-"(let-values(((context_24)(expand-context-context ctx_92)))"
-"(if(let-values(((or-part_377)(eq? context_24 'top-level)))"
-"(if or-part_377 or-part_377(eq? context_24 'module)))"
+"(let-values(((temp342_0) 'prim-begin)"
+"((parsed-begin343_0) parsed-begin12.1)"
+"((temp344_0) 0)"
+"((temp345_0) #t))"
+"(make-begin20.1 temp345_0 temp344_0 temp342_0 parsed-begin343_0))))"
+"(lambda(s_645 ctx_91)"
+"(let-values(((context_24)(expand-context-context ctx_91)))"
+"(if(let-values(((or-part_381)(eq? context_24 'top-level)))"
+"(if or-part_381 or-part_381(eq? context_24 'module)))"
 "(let-values()"
-"(let-values(((disarmed-s_16)(syntax-disarm$1 s_633)))"
-"(let-values(((ok?_49 begin333_0)"
-"(let-values(((s_634) disarmed-s_16))"
-"(if(let-values(((s_635)(if(syntax?$1 s_634)(syntax-e$1 s_634) s_634)))"
-"(if(pair? s_635)"
-"(if(let-values(((s_636)(car s_635))) #t)"
-"(let-values(((s_637)(cdr s_635)))"
-"(let-values(((s_638)(if(syntax?$1 s_637)(syntax-e$1 s_637) s_637)))"
-"(null? s_638)))"
+"(let-values(((disarmed-s_16)(syntax-disarm$1 s_645)))"
+"(let-values(((ok?_49 begin346_0)"
+"(let-values(((s_646) disarmed-s_16))"
+"(if(let-values(((s_647)(if(syntax?$1 s_646)(syntax-e$1 s_646) s_646)))"
+"(if(pair? s_647)"
+"(if(let-values(((s_648)(car s_647))) #t)"
+"(let-values(((s_649)(cdr s_647)))"
+"(let-values(((s_650)(if(syntax?$1 s_649)(syntax-e$1 s_649) s_649)))"
+"(null? s_650)))"
 " #f)"
 " #f))"
 "(let-values()"
-"(let-values(((begin333_1)"
-"(let-values(((s_639)(if(syntax?$1 s_634)(syntax-e$1 s_634) s_634)))"
-"(let-values(((begin334_0)"
-"(let-values(((s_640)(car s_639))) s_640))"
+"(let-values(((begin346_1)"
+"(let-values(((s_651)(if(syntax?$1 s_646)(syntax-e$1 s_646) s_646)))"
+"(let-values(((begin347_0)"
+"(let-values(((s_652)(car s_651))) s_652))"
 "(()"
-"(let-values(((s_641)(cdr s_639)))"
-"(let-values(((s_642)"
-"(if(syntax?$1 s_641)"
-"(syntax-e$1 s_641)"
-" s_641)))"
+"(let-values(((s_653)(cdr s_651)))"
+"(let-values(((s_654)"
+"(if(syntax?$1 s_653)"
+"(syntax-e$1 s_653)"
+" s_653)))"
 "(values)))))"
-"(values begin334_0)))))"
-"(values #t begin333_1)))"
+"(values begin347_0)))))"
+"(values #t begin346_1)))"
 "(values #f #f)))))"
-"(if ok?_49 s_633(nonempty-begin_0 s_633 ctx_92)))))"
-"(let-values()(nonempty-begin_0 s_633 ctx_92))))))))"
+"(if ok?_49 s_645(nonempty-begin_0 s_645 ctx_91)))))"
+"(let-values()(nonempty-begin_0 s_645 ctx_91))))))))"
 "(void"
 "(add-core-form!*"
 " 'begin0"
-"(let-values(((temp335_0) 'prim-begin0)((parsed-begin0336_0) parsed-begin013.1)((temp337_0) 1)((temp338_0) #f))"
-"(make-begin20.1 temp338_0 temp337_0 temp335_0 parsed-begin0336_0))))"
+"(let-values(((temp348_0) 'prim-begin0)((parsed-begin0349_0) parsed-begin013.1)((temp350_0) 1)((temp351_0) #f))"
+"(make-begin20.1 temp351_0 temp350_0 temp348_0 parsed-begin0349_0))))"
 "(define-values"
 "(register-eventual-variable!?)"
-"(lambda(id_124 ctx_93)"
+"(lambda(id_125 ctx_92)"
 "(begin"
-"(if(if(expand-context-need-eventually-defined ctx_93)(>=(expand-context-phase ctx_93) 1) #f)"
+"(if(if(expand-context-need-eventually-defined ctx_92)(>=(expand-context-phase ctx_92) 1) #f)"
 "(let-values()"
 "(begin"
 "(hash-update!"
-"(expand-context-need-eventually-defined ctx_93)"
-"(expand-context-phase ctx_93)"
-"(lambda(l_82)(cons id_124 l_82))"
+"(expand-context-need-eventually-defined ctx_92)"
+"(expand-context-phase ctx_92)"
+"(lambda(l_82)(cons id_125 l_82))"
 " null)"
 " #t))"
 "(let-values() #f)))))"
 "(void"
 "(add-core-form!*"
 " '#%top"
-"(let-values(((core343_0)"
-"(lambda(s341_0 ctx342_0 implicit-omitted?339_0 implicit-omitted?340_0)"
+"(let-values(((core356_0)"
+"(lambda(s354_0 ctx355_0 implicit-omitted?352_0 implicit-omitted?353_0)"
 "(begin"
-" 'core343"
-"(let-values(((s_643) s341_0))"
-"(let-values(((ctx_94) ctx342_0))"
-"(let-values(((implicit-omitted?_0)(if implicit-omitted?340_0 implicit-omitted?339_0 #f)))"
+" 'core356"
+"(let-values(((s_655) s354_0))"
+"(let-values(((ctx_93) ctx355_0))"
+"(let-values(((implicit-omitted?_0)(if implicit-omitted?353_0 implicit-omitted?352_0 #f)))"
 "(let-values()"
 "(let-values((()"
 "(begin"
-"(let-values(((obs_120)(expand-context-observer ctx_94)))"
-"(if obs_120"
+"(let-values(((obs_118)(expand-context-observer ctx_93)))"
+"(if obs_118"
 "(let-values()"
-"(let-values()(call-expand-observe obs_120 'prim-#%top)))"
+"(let-values()(call-expand-observe obs_118 'prim-#%top)))"
 "(void)))"
 "(values))))"
-"(let-values(((disarmed-s_17)(syntax-disarm$1 s_643)))"
-"(let-values(((id_125)"
+"(let-values(((disarmed-s_17)(syntax-disarm$1 s_655)))"
+"(let-values(((id_126)"
 "(if implicit-omitted?_0"
-"(let-values() s_643)"
+"(let-values() s_655)"
 "(let-values()"
-"(let-values(((ok?_50 #%top345_0 id346_0)"
-"(let-values(((s_644) disarmed-s_17))"
-"(let-values(((orig-s_54) s_644))"
-"(let-values(((#%top345_1 id346_1)"
-"(let-values(((s_645)"
-"(if(syntax?$1 s_644)"
-"(syntax-e$1 s_644)"
-" s_644)))"
-"(if(pair? s_645)"
-"(let-values(((#%top347_0)"
-"(let-values(((s_646)"
+"(let-values(((ok?_50 #%top358_0 id359_0)"
+"(let-values(((s_656) disarmed-s_17))"
+"(let-values(((orig-s_55) s_656))"
+"(let-values(((#%top358_1 id359_1)"
+"(let-values(((s_657)"
+"(if(syntax?$1 s_656)"
+"(syntax-e$1 s_656)"
+" s_656)))"
+"(if(pair? s_657)"
+"(let-values(((#%top360_0)"
+"(let-values(((s_658)"
 "(car"
-" s_645)))"
-" s_646))"
-"((id348_0)"
-"(let-values(((s_647)"
+" s_657)))"
+" s_658))"
+"((id361_0)"
+"(let-values(((s_659)"
 "(cdr"
-" s_645)))"
-"(if(let-values(((or-part_378)"
+" s_657)))"
+"(if(let-values(((or-part_382)"
 "(if(syntax?$1"
-" s_647)"
+" s_659)"
 "(symbol?"
 "(syntax-e$1"
-" s_647))"
+" s_659))"
 " #f)))"
-"(if or-part_378"
-" or-part_378"
+"(if or-part_382"
+" or-part_382"
 "(symbol?"
-" s_647)))"
-" s_647"
+" s_659)))"
+" s_659"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                          \"not an identifier\""
-" orig-s_54"
-" s_647)))))"
-"(values #%top347_0 id348_0))"
+" orig-s_55"
+" s_659)))))"
+"(values #%top360_0 id361_0))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                        \"bad syntax\""
-" orig-s_54)))))"
-"(values #t #%top345_1 id346_1))))))"
-" id346_0)))))"
+" orig-s_55)))))"
+"(values #t #%top358_1 id359_1))))))"
+" id359_0)))))"
 "(let-values(((b_89)"
-"(let-values(((id349_0) id_125)"
-"((temp350_0)(expand-context-phase ctx_94))"
-"((temp351_0) 'ambiguous))"
+"(let-values(((id362_0) id_126)"
+"((temp363_0)(expand-context-phase ctx_93))"
+"((temp364_0) 'ambiguous))"
 "(resolve+shift30.1"
-" temp351_0"
+" temp364_0"
 " #t"
 " #f"
 " #f"
@@ -66346,45 +66407,45 @@ static const char *startup_source =
 " #f"
 " #f"
 " #f"
-" id349_0"
-" temp350_0))))"
+" id362_0"
+" temp363_0))))"
 "(if(eq? b_89 'ambiguous)"
-"(let-values()(raise-ambiguous-error id_125 ctx_94))"
+"(let-values()(raise-ambiguous-error id_126 ctx_93))"
 "(if(if b_89"
 "(if(module-binding? b_89)"
-"(eq?(module-binding-module b_89)(root-expand-context-self-mpi ctx_94))"
+"(eq?(module-binding-module b_89)(root-expand-context-self-mpi ctx_93))"
 " #f)"
 " #f)"
 "(let-values()"
-"(if(expand-context-to-parsed? ctx_94)"
-"(parsed-id2.1 id_125 b_89 #f)"
+"(if(expand-context-to-parsed? ctx_93)"
+"(parsed-id2.1 id_126 b_89 #f)"
 "(if(top-level-module-path-index?(module-binding-module b_89))"
-"(let-values() s_643)"
-"(let-values() id_125))))"
-"(if(register-eventual-variable!? id_125 ctx_94)"
+"(let-values() s_655)"
+"(let-values() id_126))))"
+"(if(register-eventual-variable!? id_126 ctx_93)"
 "(let-values()"
-"(if(expand-context-to-parsed? ctx_94)"
-"(parsed-id2.1 id_125 b_89 #f)"
-" id_125))"
+"(if(expand-context-to-parsed? ctx_93)"
+"(parsed-id2.1 id_126 b_89 #f)"
+" id_126))"
 "(let-values()"
-"(if(not(expand-context-allow-unbound? ctx_94))"
+"(if(not(expand-context-allow-unbound? ctx_93))"
 "(let-values()"
 "(raise-unbound-syntax-error"
 " #f"
 "                                                  \"unbound identifier\""
-" id_125"
+" id_126"
 " #f"
 " null"
-"(syntax-debug-info-string id_125 ctx_94)))"
+"(syntax-debug-info-string id_126 ctx_93)))"
 "(let-values()"
 "(let-values(((tl-id_1)"
 "(add-scope"
-" id_125"
-"(root-expand-context-top-level-bind-scope ctx_94))))"
+" id_126"
+"(root-expand-context-top-level-bind-scope ctx_93))))"
 "(let-values(((tl-b_1)"
-"(let-values(((tl-id352_0) tl-id_1)"
-"((temp353_0)"
-"(expand-context-phase ctx_94)))"
+"(let-values(((tl-id365_0) tl-id_1)"
+"((temp366_0)"
+"(expand-context-phase ctx_93)))"
 "(resolve33.1"
 " #f"
 " #f"
@@ -66394,200 +66455,200 @@ static const char *startup_source =
 " #f"
 " #f"
 " #f"
-" tl-id352_0"
-" temp353_0))))"
+" tl-id365_0"
+" temp366_0))))"
 "(if tl-b_1"
 "(let-values()"
-"(if(expand-context-to-parsed? ctx_94)"
+"(if(expand-context-to-parsed? ctx_93)"
 "(parsed-top-id4.1 tl-id_1 tl-b_1 #f)"
 "(if implicit-omitted?_0"
-"(let-values() id_125)"
+"(let-values() id_126)"
 "(let-values()"
-"(let-values(((ok?_51 #%top354_0 id355_0)"
-"(let-values(((s_648) disarmed-s_17))"
-"(let-values(((orig-s_55) s_648))"
-"(let-values(((#%top354_1 id355_1)"
-"(let-values(((s_649)"
+"(let-values(((ok?_51 #%top367_0 id368_0)"
+"(let-values(((s_660) disarmed-s_17))"
+"(let-values(((orig-s_56) s_660))"
+"(let-values(((#%top367_1 id368_1)"
+"(let-values(((s_661)"
 "(if(syntax?$1"
-" s_648)"
+" s_660)"
 "(syntax-e$1"
-" s_648)"
-" s_648)))"
-"(if(pair? s_649)"
-"(let-values(((#%top356_0)"
-"(let-values(((s_650)"
+" s_660)"
+" s_660)))"
+"(if(pair? s_661)"
+"(let-values(((#%top369_0)"
+"(let-values(((s_662)"
 "(car"
-" s_649)))"
-" s_650))"
-"((id357_0)"
-"(let-values(((s_651)"
+" s_661)))"
+" s_662))"
+"((id370_0)"
+"(let-values(((s_663)"
 "(cdr"
-" s_649)))"
-"(if(let-values(((or-part_379)"
+" s_661)))"
+"(if(let-values(((or-part_383)"
 "(if(syntax?$1"
-" s_651)"
+" s_663)"
 "(symbol?"
 "(syntax-e$1"
-" s_651))"
+" s_663))"
 " #f)))"
-"(if or-part_379"
-" or-part_379"
+"(if or-part_383"
+" or-part_383"
 "(symbol?"
-" s_651)))"
-" s_651"
+" s_663)))"
+" s_663"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                      \"not an identifier\""
-" orig-s_55"
-" s_651)))))"
+" orig-s_56"
+" s_663)))))"
 "(values"
-" #%top356_0"
-" id357_0))"
+" #%top369_0"
+" id370_0))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                    \"bad syntax\""
-" orig-s_55)))))"
-"(values #t #%top354_1 id355_1))))))"
-"(let-values(((s358_0) s_643)"
-"((temp359_0)(cons #%top354_0 id_125)))"
-"(rebuild5.1 #f #f s358_0 temp359_0)))))))"
+" orig-s_56)))))"
+"(values #t #%top367_1 id368_1))))))"
+"(let-values(((s371_0) s_655)"
+"((temp372_0)(cons #%top367_0 id_126)))"
+"(rebuild5.1 #f #f s371_0 temp372_0)))))))"
 "(let-values()"
-"(if(expand-context-to-parsed? ctx_94)"
-"(parsed-top-id4.1 id_125 b_89 #f)"
-" s_643)))))))))))))))))))))))"
+"(if(expand-context-to-parsed? ctx_93)"
+"(parsed-top-id4.1 id_126 b_89 #f)"
+" s_655)))))))))))))))))))))))"
 "(case-lambda"
-"((s_652 ctx_95)(core343_0 s_652 ctx_95 #f #f))"
-"((s_653 ctx_96 implicit-omitted?339_1)(core343_0 s_653 ctx_96 implicit-omitted?339_1 #t))))))"
+"((s_664 ctx_94)(core356_0 s_664 ctx_94 #f #f))"
+"((s_665 ctx_95 implicit-omitted?352_1)(core356_0 s_665 ctx_95 implicit-omitted?352_1 #t))))))"
 "(void"
 "(add-core-form!*"
 " 'set!"
-"(lambda(s_654 ctx_97)"
+"(lambda(s_666 ctx_96)"
 "(let-values((()"
 "(begin"
-"(let-values(((obs_121)(expand-context-observer ctx_97)))"
-"(if obs_121(let-values()(let-values()(call-expand-observe obs_121 'prim-set!)))(void)))"
+"(let-values(((obs_119)(expand-context-observer ctx_96)))"
+"(if obs_119(let-values()(let-values()(call-expand-observe obs_119 'prim-set!)))(void)))"
 "(values))))"
-"(let-values(((disarmed-s_18)(syntax-disarm$1 s_654)))"
-"(let-values(((ok?_52 set!360_0 id361_0 rhs362_0)"
-"(let-values(((s_655) disarmed-s_18))"
-"(let-values(((orig-s_56) s_655))"
-"(let-values(((set!360_1 id361_1 rhs362_1)"
-"(let-values(((s_656)(if(syntax?$1 s_655)(syntax-e$1 s_655) s_655)))"
-"(if(pair? s_656)"
-"(let-values(((set!363_0)(let-values(((s_657)(car s_656))) s_657))"
-"((id364_0 rhs365_0)"
-"(let-values(((s_658)(cdr s_656)))"
-"(let-values(((s_659)"
-"(if(syntax?$1 s_658)"
-"(syntax-e$1 s_658)"
-" s_658)))"
-"(if(pair? s_659)"
-"(let-values(((id366_0)"
-"(let-values(((s_660)(car s_659)))"
-"(if(let-values(((or-part_380)"
-"(if(syntax?$1 s_660)"
+"(let-values(((disarmed-s_18)(syntax-disarm$1 s_666)))"
+"(let-values(((ok?_52 set!373_0 id374_0 rhs375_0)"
+"(let-values(((s_667) disarmed-s_18))"
+"(let-values(((orig-s_57) s_667))"
+"(let-values(((set!373_1 id374_1 rhs375_1)"
+"(let-values(((s_668)(if(syntax?$1 s_667)(syntax-e$1 s_667) s_667)))"
+"(if(pair? s_668)"
+"(let-values(((set!376_0)(let-values(((s_669)(car s_668))) s_669))"
+"((id377_0 rhs378_0)"
+"(let-values(((s_670)(cdr s_668)))"
+"(let-values(((s_671)"
+"(if(syntax?$1 s_670)"
+"(syntax-e$1 s_670)"
+" s_670)))"
+"(if(pair? s_671)"
+"(let-values(((id379_0)"
+"(let-values(((s_672)(car s_671)))"
+"(if(let-values(((or-part_384)"
+"(if(syntax?$1 s_672)"
 "(symbol?"
 "(syntax-e$1"
-" s_660))"
+" s_672))"
 " #f)))"
-"(if or-part_380"
-" or-part_380"
-"(symbol? s_660)))"
-" s_660"
+"(if or-part_384"
+" or-part_384"
+"(symbol? s_672)))"
+" s_672"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                    \"not an identifier\""
-" orig-s_56"
-" s_660))))"
-"((rhs367_0)"
-"(let-values(((s_661)(cdr s_659)))"
-"(let-values(((s_662)"
-"(if(syntax?$1 s_661)"
-"(syntax-e$1 s_661)"
-" s_661)))"
-"(if(pair? s_662)"
-"(let-values(((rhs368_0)"
-"(let-values(((s_663)"
+" orig-s_57"
+" s_672))))"
+"((rhs380_0)"
+"(let-values(((s_673)(cdr s_671)))"
+"(let-values(((s_674)"
+"(if(syntax?$1 s_673)"
+"(syntax-e$1 s_673)"
+" s_673)))"
+"(if(pair? s_674)"
+"(let-values(((rhs381_0)"
+"(let-values(((s_675)"
 "(car"
-" s_662)))"
-" s_663))"
+" s_674)))"
+" s_675))"
 "(()"
-"(let-values(((s_664)"
+"(let-values(((s_676)"
 "(cdr"
-" s_662)))"
-"(let-values(((s_665)"
+" s_674)))"
+"(let-values(((s_677)"
 "(if(syntax?$1"
-" s_664)"
+" s_676)"
 "(syntax-e$1"
-" s_664)"
-" s_664)))"
-"(if(null? s_665)"
+" s_676)"
+" s_676)))"
+"(if(null? s_677)"
 "(values)"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                          \"bad syntax\""
-" orig-s_56))))))"
-"(values rhs368_0))"
+" orig-s_57))))))"
+"(values rhs381_0))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                      \"bad syntax\""
-" orig-s_56))))))"
-"(values id366_0 rhs367_0))"
-"                                                                 (raise-syntax-error$1 #f \"bad syntax\" orig-s_56))))))"
-"(values set!363_0 id364_0 rhs365_0))"
-"                                             (raise-syntax-error$1 #f \"bad syntax\" orig-s_56)))))"
-"(values #t set!360_1 id361_1 rhs362_1))))))"
-"(let-values(((id_126) id361_0))"
+" orig-s_57))))))"
+"(values id379_0 rhs380_0))"
+"                                                                 (raise-syntax-error$1 #f \"bad syntax\" orig-s_57))))))"
+"(values set!376_0 id377_0 rhs378_0))"
+"                                             (raise-syntax-error$1 #f \"bad syntax\" orig-s_57)))))"
+"(values #t set!373_1 id374_1 rhs375_1))))))"
+"(let-values(((id_127) id374_0))"
 "((letrec-values(((rename-loop_0)"
-"(lambda(id_127 from-rename?_0)"
+"(lambda(id_128 from-rename?_0)"
 "(begin"
 " 'rename-loop"
 "(let-values(((binding_31)"
-"(let-values(((id369_0) id_127)"
-"((temp370_0)(expand-context-phase ctx_97))"
-"((temp371_0) 'ambiguous)"
-"((temp372_0) #t))"
+"(let-values(((id382_0) id_128)"
+"((temp383_0)(expand-context-phase ctx_96))"
+"((temp384_0) 'ambiguous)"
+"((temp385_0) #t))"
 "(resolve+shift30.1"
-" temp371_0"
+" temp384_0"
 " #t"
 " #f"
 " #f"
 " #f"
 " #f"
-" temp372_0"
+" temp385_0"
 " #t"
 " #f"
 " #f"
-" id369_0"
-" temp370_0))))"
+" id382_0"
+" temp383_0))))"
 "(let-values((()"
 "(begin"
 "(if(eq? binding_31 'ambiguous)"
-"(let-values()(raise-ambiguous-error id_127 ctx_97))"
+"(let-values()(raise-ambiguous-error id_128 ctx_96))"
 "(void))"
 "(values))))"
 "(let-values(((t_57 primitive?_11 insp_24 protected?_12)"
 "(if binding_31"
-"(let-values(((binding373_0) binding_31)"
-"((ctx374_0) ctx_97)"
-"((s375_0) s_654))"
-"(lookup17.1 #f #f #f #f binding373_0 ctx374_0 s375_0))"
+"(let-values(((binding386_0) binding_31)"
+"((ctx387_0) ctx_96)"
+"((s388_0) s_666))"
+"(lookup17.1 #f #f #f #f binding386_0 ctx387_0 s388_0))"
 "(values #f #f #f #f))))"
 "(begin"
-"(let-values(((obs_122)(expand-context-observer ctx_97)))"
-"(if obs_122"
+"(let-values(((obs_120)(expand-context-observer ctx_96)))"
+"(if obs_120"
 "(let-values()"
-"(let-values()(call-expand-observe obs_122 'resolve id_127)))"
+"(let-values()(call-expand-observe obs_120 'resolve id_128)))"
 "(void)))"
-"(if(let-values(((or-part_381)(variable? t_57)))"
-"(if or-part_381"
-" or-part_381"
+"(if(let-values(((or-part_385)(variable? t_57)))"
+"(if or-part_385"
+" or-part_385"
 "(if(not binding_31)"
-"(let-values(((or-part_382)"
-"(register-eventual-variable!? id_127 ctx_97)))"
-"(if or-part_382"
-" or-part_382"
-"(expand-context-allow-unbound? ctx_97)))"
+"(let-values(((or-part_386)"
+"(register-eventual-variable!? id_128 ctx_96)))"
+"(if or-part_386"
+" or-part_386"
+"(expand-context-allow-unbound? ctx_96)))"
 " #f)))"
 "(let-values()"
 "(let-values((()"
@@ -66596,24 +66657,24 @@ static const char *startup_source =
 "(not"
 "(eq?"
 "(module-binding-module binding_31)"
-"(root-expand-context-self-mpi ctx_97)))"
+"(root-expand-context-self-mpi ctx_96)))"
 " #f)"
 "(let-values()"
 "(raise-syntax-error$1"
 " #f"
 "                                                                    \"cannot mutate module-required identifier\""
-" s_654"
-" id_127))"
+" s_666"
+" id_128))"
 "(void))"
 "(values))))"
 "(let-values((()"
 "(begin"
-"(let-values(((obs_123)"
-"(expand-context-observer ctx_97)))"
-"(if obs_123"
+"(let-values(((obs_121)"
+"(expand-context-observer ctx_96)))"
+"(if obs_121"
 "(let-values()"
 "(let-values()"
-"(call-expand-observe obs_123 'next)))"
+"(call-expand-observe obs_121 'next)))"
 "(void)))"
 "(values))))"
 "(let-values((()"
@@ -66621,7 +66682,7 @@ static const char *startup_source =
 "(register-variable-referenced-if-local! binding_31)"
 "(values))))"
 "(let-values(((rebuild-s_12)"
-"(let-values(((ctx376_0) ctx_97)((s377_0) s_654))"
+"(let-values(((ctx389_0) ctx_96)((s390_0) s_666))"
 "(keep-as-needed74.1"
 " #f"
 " #f"
@@ -66629,107 +66690,107 @@ static const char *startup_source =
 " #f"
 " #f"
 " #f"
-" ctx376_0"
-" s377_0))))"
+" ctx389_0"
+" s390_0))))"
 "(let-values(((exp-rhs_4)"
-"(let-values(((temp378_0) rhs362_0)"
-"((temp379_0)"
-"(as-expression-context ctx_97)))"
-"(expand7.1 #f #f #f #f temp378_0 temp379_0))))"
-"(if(expand-context-to-parsed? ctx_97)"
+"(let-values(((temp391_0) rhs375_0)"
+"((temp392_0)"
+"(as-expression-context ctx_96)))"
+"(expand7.1 #f #f #f #f temp391_0 temp392_0))))"
+"(if(expand-context-to-parsed? ctx_96)"
 "(parsed-set!9.1"
 " rebuild-s_12"
-"(parsed-id2.1 id_127 binding_31 #f)"
+"(parsed-id2.1 id_128 binding_31 #f)"
 " exp-rhs_4)"
-"(let-values(((rebuild-s380_0) rebuild-s_12)"
-"((temp381_0)"
+"(let-values(((rebuild-s393_0) rebuild-s_12)"
+"((temp394_0)"
 "(list"
-" set!360_0"
-"(let-values(((id382_0) id_127)"
-"((t383_0) t_57)"
-"((temp384_0)"
+" set!373_0"
+"(let-values(((id395_0) id_128)"
+"((t396_0) t_57)"
+"((temp397_0)"
 "(free-id-set-empty-or-just-module*?"
 "(expand-context-stops"
-" ctx_97))))"
+" ctx_96))))"
 "(substitute-variable6.1"
-" temp384_0"
-" id382_0"
-" t383_0))"
+" temp397_0"
+" id395_0"
+" t396_0))"
 " exp-rhs_4)))"
-"(rebuild5.1 #f #f rebuild-s380_0 temp381_0)))))))))"
+"(rebuild5.1 #f #f rebuild-s393_0 temp394_0)))))))))"
 "(if(not binding_31)"
 "(let-values()"
 "(raise-unbound-syntax-error"
 " #f"
 "                                                  \"unbound identifier\""
-" s_654"
-" id_127"
+" s_666"
+" id_128"
 " null"
-"(syntax-debug-info-string id_127 ctx_97)))"
+"(syntax-debug-info-string id_128 ctx_96)))"
 "(if(1/set!-transformer? t_57)"
 "(let-values()"
-"(if(not-in-this-expand-context? t_57 ctx_97)"
+"(if(not-in-this-expand-context? t_57 ctx_96)"
 "(let-values()"
-"(let-values(((temp385_0)"
+"(let-values(((temp398_0)"
 "(avoid-current-expand-context"
 "(substitute-set!-rename"
-" s_654"
+" s_666"
 " disarmed-s_18"
-" set!360_0"
-" rhs362_0"
-" id_127"
+" set!373_0"
+" rhs375_0"
+" id_128"
 " from-rename?_0"
-" ctx_97)"
+" ctx_96)"
 " t_57"
-" ctx_97))"
-"((ctx386_0) ctx_97))"
-"(expand7.1 #f #f #f #f temp385_0 ctx386_0)))"
+" ctx_96))"
+"((ctx399_0) ctx_96))"
+"(expand7.1 #f #f #f #f temp398_0 ctx399_0)))"
 "(let-values()"
 "(let-values(((exp-s_14 re-ctx_1)"
 "(apply-transformer"
 " t_57"
 " insp_24"
-" s_654"
-" id_127"
-" ctx_97"
+" s_666"
+" id_128"
+" ctx_96"
 " binding_31)))"
-"(if(expand-context-just-once? ctx_97)"
+"(if(expand-context-just-once? ctx_96)"
 "(let-values() exp-s_14)"
 "(let-values()"
-"(let-values(((exp-s387_0) exp-s_14)"
-"((re-ctx388_0) re-ctx_1))"
-"(expand7.1 #f #f #f #f exp-s387_0 re-ctx388_0))))))))"
+"(let-values(((exp-s400_0) exp-s_14)"
+"((re-ctx401_0) re-ctx_1))"
+"(expand7.1 #f #f #f #f exp-s400_0 re-ctx401_0))))))))"
 "(if(1/rename-transformer? t_57)"
 "(let-values()"
-"(if(not-in-this-expand-context? t_57 ctx_97)"
+"(if(not-in-this-expand-context? t_57 ctx_96)"
 "(let-values()"
-"(let-values(((temp389_0)"
+"(let-values(((temp402_0)"
 "(avoid-current-expand-context"
 "(substitute-set!-rename"
-" s_654"
+" s_666"
 " disarmed-s_18"
-" set!360_0"
-" rhs362_0"
-" id_127"
+" set!373_0"
+" rhs375_0"
+" id_128"
 " from-rename?_0"
-" ctx_97"
+" ctx_96"
 " t_57)"
 " t_57"
-" ctx_97))"
-"((ctx390_0) ctx_97))"
-"(expand7.1 #f #f #f #f temp389_0 ctx390_0)))"
+" ctx_96))"
+"((ctx403_0) ctx_96))"
+"(expand7.1 #f #f #f #f temp402_0 ctx403_0)))"
 "(let-values()"
 "(rename-loop_0"
-"(rename-transformer-target-in-context t_57 ctx_97)"
+"(rename-transformer-target-in-context t_57 ctx_96)"
 " #t))))"
 "(let-values()"
 "(raise-syntax-error$1"
 " #f"
 "                                                      \"cannot mutate syntax identifier\""
-" s_654"
-" id_127))))))))))))))"
+" s_666"
+" id_128))))))))))))))"
 " rename-loop_0)"
-" id_126"
+" id_127"
 " #f))))))))"
 "(define-values"
 "(substitute-set!-rename)"
@@ -66737,319 +66798,319 @@ static const char *startup_source =
 "(lambda(s25_1 disarmed-s26_0 set!-id27_0 id28_0 rhs-s29_0 from-rename?30_0 ctx31_0 t23_0 t24_0)"
 "(begin"
 " 'substitute-set!-rename32"
-"(let-values(((s_666) s25_1))"
+"(let-values(((s_678) s25_1))"
 "(let-values(((disarmed-s_19) disarmed-s26_0))"
 "(let-values(((set!-id_0) set!-id27_0))"
-"(let-values(((id_128) id28_0))"
+"(let-values(((id_129) id28_0))"
 "(let-values(((rhs-s_0) rhs-s29_0))"
 "(let-values(((from-rename?_1) from-rename?30_0))"
-"(let-values(((ctx_98) ctx31_0))"
+"(let-values(((ctx_97) ctx31_0))"
 "(let-values(((t_58)(if t24_0 t23_0 #f)))"
 "(let-values()"
-"(if(let-values(((or-part_383) t_58))"
-"(if or-part_383 or-part_383 from-rename?_1))"
+"(if(let-values(((or-part_387) t_58))"
+"(if or-part_387 or-part_387 from-rename?_1))"
 "(let-values()"
 "(let-values(((new-id_1)"
 "(if t_58"
-"(rename-transformer-target-in-context t_58 ctx_98)"
-" id_128)))"
+"(rename-transformer-target-in-context t_58 ctx_97)"
+" id_129)))"
 "(syntax-rearm$1"
 "(datum->syntax$1"
 " disarmed-s_19"
 "(list set!-id_0 new-id_1 rhs-s_0)"
 " disarmed-s_19"
 " disarmed-s_19)"
-" s_666)))"
-"(let-values() s_666)))))))))))))))"
+" s_678)))"
+"(let-values() s_678)))))))))))))))"
 "(case-lambda"
-"((s_667 disarmed-s_20 set!-id_1 id_129 rhs-s_1 from-rename?_2 ctx_99)"
-"(begin(substitute-set!-rename32_0 s_667 disarmed-s_20 set!-id_1 id_129 rhs-s_1 from-rename?_2 ctx_99 #f #f)))"
-"((s_668 disarmed-s_21 set!-id_2 id_130 rhs-s_2 from-rename?_3 ctx_100 t23_1)"
-"(substitute-set!-rename32_0 s_668 disarmed-s_21 set!-id_2 id_130 rhs-s_2 from-rename?_3 ctx_100 t23_1 #t)))))"
+"((s_679 disarmed-s_20 set!-id_1 id_130 rhs-s_1 from-rename?_2 ctx_98)"
+"(begin(substitute-set!-rename32_0 s_679 disarmed-s_20 set!-id_1 id_130 rhs-s_1 from-rename?_2 ctx_98 #f #f)))"
+"((s_680 disarmed-s_21 set!-id_2 id_131 rhs-s_2 from-rename?_3 ctx_99 t23_1)"
+"(substitute-set!-rename32_0 s_680 disarmed-s_21 set!-id_2 id_131 rhs-s_2 from-rename?_3 ctx_99 t23_1 #t)))))"
 "(void"
 "(add-core-form!*"
 " '#%variable-reference"
-"(lambda(s_669 ctx_101)"
+"(lambda(s_681 ctx_100)"
 "(let-values((()"
 "(begin"
-"(let-values(((obs_124)(expand-context-observer ctx_101)))"
-"(if obs_124"
-"(let-values()(let-values()(call-expand-observe obs_124 'prim-#%variable-reference)))"
+"(let-values(((obs_122)(expand-context-observer ctx_100)))"
+"(if obs_122"
+"(let-values()(let-values()(call-expand-observe obs_122 'prim-#%variable-reference)))"
 "(void)))"
 "(values))))"
-"(let-values(((disarmed-s_22)(syntax-disarm$1 s_669)))"
-"(let-values(((ok?_53 #%variable-reference391_0 id392_0)"
-"(let-values(((s_670) disarmed-s_22))"
-"(if(let-values(((s_671)(if(syntax?$1 s_670)(syntax-e$1 s_670) s_670)))"
-"(if(pair? s_671)"
-"(if(let-values(((s_672)(car s_671))) #t)"
-"(let-values(((s_673)(cdr s_671)))"
-"(let-values(((s_674)(if(syntax?$1 s_673)(syntax-e$1 s_673) s_673)))"
-"(if(pair? s_674)"
-"(if(let-values(((s_675)(car s_674)))"
-"(let-values(((or-part_384)"
-"(if(syntax?$1 s_675)(symbol?(syntax-e$1 s_675)) #f)))"
-"(if or-part_384 or-part_384(symbol? s_675))))"
-"(let-values(((s_676)(cdr s_674)))"
-"(let-values(((s_677)(if(syntax?$1 s_676)(syntax-e$1 s_676) s_676)))"
-"(null? s_677)))"
-" #f)"
-" #f)))"
-" #f)"
-" #f))"
-"(let-values()"
-"(let-values(((#%variable-reference391_1 id392_1)"
-"(let-values(((s_678)(if(syntax?$1 s_670)(syntax-e$1 s_670) s_670)))"
-"(let-values(((#%variable-reference393_0)"
-"(let-values(((s_679)(car s_678))) s_679))"
-"((id394_0)"
-"(let-values(((s_680)(cdr s_678)))"
-"(let-values(((s_681)"
-"(if(syntax?$1 s_680)"
-"(syntax-e$1 s_680)"
-" s_680)))"
-"(let-values(((id395_0)"
-"(let-values(((s_682)(car s_681))) s_682))"
-"(()"
-"(let-values(((s_683)(cdr s_681)))"
-"(let-values(((s_684)"
-"(if(syntax?$1 s_683)"
-"(syntax-e$1 s_683)"
-" s_683)))"
-"(values)))))"
-"(values id395_0))))))"
-"(values #%variable-reference393_0 id394_0)))))"
-"(values #t #%variable-reference391_1 id392_1)))"
-"(values #f #f #f)))))"
-"(let-values(((ok?_54 #%variable-reference396_0 #%top397_0 id398_0)"
-"(let-values(((s_685) disarmed-s_22))"
-"(if(if(not ok?_53)"
+"(let-values(((disarmed-s_22)(syntax-disarm$1 s_681)))"
+"(let-values(((ok?_53 #%variable-reference404_0 id405_0)"
+"(let-values(((s_682) disarmed-s_22))"
+"(if(let-values(((s_683)(if(syntax?$1 s_682)(syntax-e$1 s_682) s_682)))"
+"(if(pair? s_683)"
+"(if(let-values(((s_684)(car s_683))) #t)"
+"(let-values(((s_685)(cdr s_683)))"
 "(let-values(((s_686)(if(syntax?$1 s_685)(syntax-e$1 s_685) s_685)))"
 "(if(pair? s_686)"
-"(if(let-values(((s_687)(car s_686))) #t)"
+"(if(let-values(((s_687)(car s_686)))"
+"(let-values(((or-part_388)"
+"(if(syntax?$1 s_687)(symbol?(syntax-e$1 s_687)) #f)))"
+"(if or-part_388 or-part_388(symbol? s_687))))"
 "(let-values(((s_688)(cdr s_686)))"
 "(let-values(((s_689)(if(syntax?$1 s_688)(syntax-e$1 s_688) s_688)))"
-"(if(pair? s_689)"
-"(if(let-values(((s_690)(car s_689)))"
-"(let-values(((s_691)"
-"(if(syntax?$1 s_690)(syntax-e$1 s_690) s_690)))"
-"(if(pair? s_691)"
-"(if(let-values(((s_692)(car s_691))) #t)"
-"(let-values(((s_693)(cdr s_691)))"
-"(let-values(((or-part_385)"
-"(if(syntax?$1 s_693)"
-"(symbol?(syntax-e$1 s_693))"
-" #f)))"
-"(if or-part_385 or-part_385(symbol? s_693))))"
+"(null? s_689)))"
 " #f)"
 " #f)))"
-"(let-values(((s_694)(cdr s_689)))"
-"(let-values(((s_695)(if(syntax?$1 s_694)(syntax-e$1 s_694) s_694)))"
-"(null? s_695)))"
+" #f)"
+" #f))"
+"(let-values()"
+"(let-values(((#%variable-reference404_1 id405_1)"
+"(let-values(((s_690)(if(syntax?$1 s_682)(syntax-e$1 s_682) s_682)))"
+"(let-values(((#%variable-reference406_0)"
+"(let-values(((s_691)(car s_690))) s_691))"
+"((id407_0)"
+"(let-values(((s_692)(cdr s_690)))"
+"(let-values(((s_693)"
+"(if(syntax?$1 s_692)"
+"(syntax-e$1 s_692)"
+" s_692)))"
+"(let-values(((id408_0)"
+"(let-values(((s_694)(car s_693))) s_694))"
+"(()"
+"(let-values(((s_695)(cdr s_693)))"
+"(let-values(((s_696)"
+"(if(syntax?$1 s_695)"
+"(syntax-e$1 s_695)"
+" s_695)))"
+"(values)))))"
+"(values id408_0))))))"
+"(values #%variable-reference406_0 id407_0)))))"
+"(values #t #%variable-reference404_1 id405_1)))"
+"(values #f #f #f)))))"
+"(let-values(((ok?_54 #%variable-reference409_0 #%top410_0 id411_0)"
+"(let-values(((s_697) disarmed-s_22))"
+"(if(if(not ok?_53)"
+"(let-values(((s_698)(if(syntax?$1 s_697)(syntax-e$1 s_697) s_697)))"
+"(if(pair? s_698)"
+"(if(let-values(((s_699)(car s_698))) #t)"
+"(let-values(((s_700)(cdr s_698)))"
+"(let-values(((s_701)(if(syntax?$1 s_700)(syntax-e$1 s_700) s_700)))"
+"(if(pair? s_701)"
+"(if(let-values(((s_702)(car s_701)))"
+"(let-values(((s_703)"
+"(if(syntax?$1 s_702)(syntax-e$1 s_702) s_702)))"
+"(if(pair? s_703)"
+"(if(let-values(((s_704)(car s_703))) #t)"
+"(let-values(((s_705)(cdr s_703)))"
+"(let-values(((or-part_389)"
+"(if(syntax?$1 s_705)"
+"(symbol?(syntax-e$1 s_705))"
+" #f)))"
+"(if or-part_389 or-part_389(symbol? s_705))))"
+" #f)"
+" #f)))"
+"(let-values(((s_706)(cdr s_701)))"
+"(let-values(((s_707)(if(syntax?$1 s_706)(syntax-e$1 s_706) s_706)))"
+"(null? s_707)))"
 " #f)"
 " #f)))"
 " #f)"
 " #f))"
 " #f)"
 "(let-values()"
-"(let-values(((#%variable-reference396_1 #%top397_1 id398_1)"
-"(let-values(((s_696)(if(syntax?$1 s_685)(syntax-e$1 s_685) s_685)))"
-"(let-values(((#%variable-reference399_0)"
-"(let-values(((s_697)(car s_696))) s_697))"
-"((#%top400_0 id401_0)"
-"(let-values(((s_698)(cdr s_696)))"
-"(let-values(((s_699)"
-"(if(syntax?$1 s_698)"
-"(syntax-e$1 s_698)"
-" s_698)))"
-"(let-values(((#%top402_0 id403_0)"
-"(let-values(((s_700)(car s_699)))"
-"(let-values(((s_701)"
-"(if(syntax?$1 s_700)"
-"(syntax-e$1 s_700)"
-" s_700)))"
-"(let-values(((#%top404_0)"
-"(let-values(((s_702)"
+"(let-values(((#%variable-reference409_1 #%top410_1 id411_1)"
+"(let-values(((s_708)(if(syntax?$1 s_697)(syntax-e$1 s_697) s_697)))"
+"(let-values(((#%variable-reference412_0)"
+"(let-values(((s_709)(car s_708))) s_709))"
+"((#%top413_0 id414_0)"
+"(let-values(((s_710)(cdr s_708)))"
+"(let-values(((s_711)"
+"(if(syntax?$1 s_710)"
+"(syntax-e$1 s_710)"
+" s_710)))"
+"(let-values(((#%top415_0 id416_0)"
+"(let-values(((s_712)(car s_711)))"
+"(let-values(((s_713)"
+"(if(syntax?$1 s_712)"
+"(syntax-e$1 s_712)"
+" s_712)))"
+"(let-values(((#%top417_0)"
+"(let-values(((s_714)"
 "(car"
-" s_701)))"
-" s_702))"
-"((id405_0)"
-"(let-values(((s_703)"
+" s_713)))"
+" s_714))"
+"((id418_0)"
+"(let-values(((s_715)"
 "(cdr"
-" s_701)))"
-" s_703)))"
-"(values #%top404_0 id405_0)))))"
+" s_713)))"
+" s_715)))"
+"(values #%top417_0 id418_0)))))"
 "(()"
-"(let-values(((s_704)(cdr s_699)))"
-"(let-values(((s_705)"
-"(if(syntax?$1 s_704)"
-"(syntax-e$1 s_704)"
-" s_704)))"
+"(let-values(((s_716)(cdr s_711)))"
+"(let-values(((s_717)"
+"(if(syntax?$1 s_716)"
+"(syntax-e$1 s_716)"
+" s_716)))"
 "(values)))))"
-"(values #%top402_0 id403_0))))))"
-"(values #%variable-reference399_0 #%top400_0 id401_0)))))"
-"(values #t #%variable-reference396_1 #%top397_1 id398_1)))"
+"(values #%top415_0 id416_0))))))"
+"(values #%variable-reference412_0 #%top413_0 id414_0)))))"
+"(values #t #%variable-reference409_1 #%top410_1 id411_1)))"
 "(values #f #f #f #f)))))"
-"(let-values(((ok?_55 #%variable-reference406_0)"
-"(let-values(((s_706) disarmed-s_22))"
-"(if(if(not(let-values(((or-part_386) ok?_53))(if or-part_386 or-part_386 ok?_54)))"
+"(let-values(((ok?_55 #%variable-reference419_0)"
+"(let-values(((s_718) disarmed-s_22))"
+"(if(if(not(let-values(((or-part_390) ok?_53))(if or-part_390 or-part_390 ok?_54)))"
 " #t"
 " #f)"
-"(let-values(((orig-s_57) s_706))"
-"(let-values(((#%variable-reference406_1)"
-"(let-values(((s_707)(if(syntax?$1 s_706)(syntax-e$1 s_706) s_706)))"
-"(if(pair? s_707)"
-"(let-values(((#%variable-reference407_0)"
-"(let-values(((s_708)(car s_707))) s_708))"
+"(let-values(((orig-s_58) s_718))"
+"(let-values(((#%variable-reference419_1)"
+"(let-values(((s_719)(if(syntax?$1 s_718)(syntax-e$1 s_718) s_718)))"
+"(if(pair? s_719)"
+"(let-values(((#%variable-reference420_0)"
+"(let-values(((s_720)(car s_719))) s_720))"
 "(()"
-"(let-values(((s_709)(cdr s_707)))"
-"(let-values(((s_710)"
-"(if(syntax?$1 s_709)"
-"(syntax-e$1 s_709)"
-" s_709)))"
-"(if(null? s_710)"
+"(let-values(((s_721)(cdr s_719)))"
+"(let-values(((s_722)"
+"(if(syntax?$1 s_721)"
+"(syntax-e$1 s_721)"
+" s_721)))"
+"(if(null? s_722)"
 "(values)"
 "(raise-syntax-error$1"
 " #f"
 "                                                                        \"bad syntax\""
-" orig-s_57))))))"
-"(values #%variable-reference407_0))"
-"                                                   (raise-syntax-error$1 #f \"bad syntax\" orig-s_57)))))"
-"(values #t #%variable-reference406_1)))"
+" orig-s_58))))))"
+"(values #%variable-reference420_0))"
+"                                                   (raise-syntax-error$1 #f \"bad syntax\" orig-s_58)))))"
+"(values #t #%variable-reference419_1)))"
 "(values #f #f)))))"
-"(if(let-values(((or-part_387) ok?_53))(if or-part_387 or-part_387 ok?_54))"
+"(if(let-values(((or-part_391) ok?_53))(if or-part_391 or-part_391 ok?_54))"
 "(let-values()"
-"(let-values(((var-id_0)(if ok?_53 id392_0 id398_0)))"
+"(let-values(((var-id_0)(if ok?_53 id405_0 id411_0)))"
 "(let-values(((binding_32)"
-"(let-values(((var-id408_0) var-id_0)"
-"((temp409_0)(expand-context-phase ctx_101))"
-"((temp410_0) 'ambiguous))"
-"(resolve+shift30.1 temp410_0 #t #f #f #f #f #f #f #f #f var-id408_0 temp409_0))))"
+"(let-values(((var-id421_0) var-id_0)"
+"((temp422_0)(expand-context-phase ctx_100))"
+"((temp423_0) 'ambiguous))"
+"(resolve+shift30.1 temp423_0 #t #f #f #f #f #f #f #f #f var-id421_0 temp422_0))))"
 "(let-values((()"
 "(begin"
 "(if(eq? binding_32 'ambiguous)"
-"(let-values()(raise-ambiguous-error var-id_0 ctx_101))"
+"(let-values()(raise-ambiguous-error var-id_0 ctx_100))"
 "(void))"
 "(values))))"
 "(let-values((()"
 "(begin"
-"(if(let-values(((or-part_388) binding_32))"
-"(if or-part_388 or-part_388(expand-context-allow-unbound? ctx_101)))"
+"(if(let-values(((or-part_392) binding_32))"
+"(if or-part_392 or-part_392(expand-context-allow-unbound? ctx_100)))"
 "(void)"
 "(let-values()"
 "(raise-unbound-syntax-error"
 " #f"
 "                                              \"unbound identifier\""
-" s_669"
+" s_681"
 " var-id_0"
 " null"
-"(syntax-debug-info-string var-id_0 ctx_101))))"
+"(syntax-debug-info-string var-id_0 ctx_100))))"
 "(values))))"
 "(let-values(((t_59 primitive?_12 insp-of-t_7 protected?_13)"
 "(if binding_32"
-"(let-values(((binding411_0) binding_32)"
-"((ctx412_0) ctx_101)"
-"((var-id413_0) var-id_0)"
-"((s414_0) s_669)"
-"((temp415_0)(expand-context-in-local-expand? ctx_101)))"
-"(lookup17.1 s414_0 #t temp415_0 #t binding411_0 ctx412_0 var-id413_0))"
+"(let-values(((binding424_0) binding_32)"
+"((ctx425_0) ctx_100)"
+"((var-id426_0) var-id_0)"
+"((s427_0) s_681)"
+"((temp428_0)(expand-context-in-local-expand? ctx_100)))"
+"(lookup17.1 s427_0 #t temp428_0 #t binding424_0 ctx425_0 var-id426_0))"
 "(values #f #f #f #f))))"
 "(begin"
 "(if(if t_59(not(variable? t_59)) #f)"
 "(let-values()"
-"                                   (raise-syntax-error$1 #f \"identifier does not refer to a variable\" var-id_0 s_669))"
+"                                   (raise-syntax-error$1 #f \"identifier does not refer to a variable\" var-id_0 s_681))"
 "(void))"
-"(if(expand-context-to-parsed? ctx_101)"
+"(if(expand-context-to-parsed? ctx_100)"
 "(parsed-#%variable-reference11.1"
-"(keep-properties-only~ s_669)"
+"(keep-properties-only~ s_681)"
 "(if ok?_54"
 "(let-values()(parsed-top-id4.1 var-id_0 binding_32 #f))"
 "(let-values()(parsed-id2.1 var-id_0 binding_32 #f))))"
-" s_669))))))))"
+" s_681))))))))"
 "(let-values()"
-"(if(expand-context-to-parsed? ctx_101)"
-"(parsed-#%variable-reference11.1(keep-properties-only~ s_669) #f)"
-" s_669)))))))))))"
+"(if(expand-context-to-parsed? ctx_100)"
+"(parsed-#%variable-reference11.1(keep-properties-only~ s_681) #f)"
+" s_681)))))))))))"
 "(void"
 "(add-core-form!*"
 " '#%expression"
-"(lambda(s_711 ctx_102)"
+"(lambda(s_723 ctx_101)"
 "(let-values((()"
 "(begin"
-"(let-values(((obs_125)(expand-context-observer ctx_102)))"
-"(if obs_125"
-"(let-values()(let-values()(call-expand-observe obs_125 'prim-#%expression)))"
+"(let-values(((obs_123)(expand-context-observer ctx_101)))"
+"(if obs_123"
+"(let-values()(let-values()(call-expand-observe obs_123 'prim-#%expression)))"
 "(void)))"
 "(values))))"
-"(let-values(((disarmed-s_23)(syntax-disarm$1 s_711)))"
-"(let-values(((ok?_56 #%expression416_0 e417_0)"
-"(let-values(((s_712) disarmed-s_23))"
-"(let-values(((orig-s_58) s_712))"
-"(let-values(((#%expression416_1 e417_1)"
-"(let-values(((s_713)(if(syntax?$1 s_712)(syntax-e$1 s_712) s_712)))"
-"(if(pair? s_713)"
-"(let-values(((#%expression418_0)"
-"(let-values(((s_714)(car s_713))) s_714))"
-"((e419_0)"
-"(let-values(((s_715)(cdr s_713)))"
-"(let-values(((s_716)"
-"(if(syntax?$1 s_715)"
-"(syntax-e$1 s_715)"
-" s_715)))"
-"(if(pair? s_716)"
-"(let-values(((e420_0)"
-"(let-values(((s_717)(car s_716)))"
-" s_717))"
+"(let-values(((disarmed-s_23)(syntax-disarm$1 s_723)))"
+"(let-values(((ok?_56 #%expression429_0 e430_0)"
+"(let-values(((s_724) disarmed-s_23))"
+"(let-values(((orig-s_59) s_724))"
+"(let-values(((#%expression429_1 e430_1)"
+"(let-values(((s_725)(if(syntax?$1 s_724)(syntax-e$1 s_724) s_724)))"
+"(if(pair? s_725)"
+"(let-values(((#%expression431_0)"
+"(let-values(((s_726)(car s_725))) s_726))"
+"((e432_0)"
+"(let-values(((s_727)(cdr s_725)))"
+"(let-values(((s_728)"
+"(if(syntax?$1 s_727)"
+"(syntax-e$1 s_727)"
+" s_727)))"
+"(if(pair? s_728)"
+"(let-values(((e433_0)"
+"(let-values(((s_729)(car s_728)))"
+" s_729))"
 "(()"
-"(let-values(((s_718)(cdr s_716)))"
-"(let-values(((s_719)"
-"(if(syntax?$1 s_718)"
-"(syntax-e$1 s_718)"
-" s_718)))"
-"(if(null? s_719)"
+"(let-values(((s_730)(cdr s_728)))"
+"(let-values(((s_731)"
+"(if(syntax?$1 s_730)"
+"(syntax-e$1 s_730)"
+" s_730)))"
+"(if(null? s_731)"
 "(values)"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                      \"bad syntax\""
-" orig-s_58))))))"
-"(values e420_0))"
-"                                                                 (raise-syntax-error$1 #f \"bad syntax\" orig-s_58))))))"
-"(values #%expression418_0 e419_0))"
-"                                             (raise-syntax-error$1 #f \"bad syntax\" orig-s_58)))))"
-"(values #t #%expression416_1 e417_1))))))"
+" orig-s_59))))))"
+"(values e433_0))"
+"                                                                 (raise-syntax-error$1 #f \"bad syntax\" orig-s_59))))))"
+"(values #%expression431_0 e432_0))"
+"                                             (raise-syntax-error$1 #f \"bad syntax\" orig-s_59)))))"
+"(values #t #%expression429_1 e430_1))))))"
 "(let-values(((rebuild-s_13)"
-"(let-values(((ctx421_0) ctx_102)((s422_0) s_711)((temp423_0) #t))"
-"(keep-as-needed74.1 temp423_0 #t #f #f #f #f ctx421_0 s422_0))))"
+"(let-values(((ctx434_0) ctx_101)((s435_0) s_723)((temp436_0) #t))"
+"(keep-as-needed74.1 temp436_0 #t #f #f #f #f ctx434_0 s435_0))))"
 "(let-values(((exp-e_0)"
-"(let-values(((temp424_0) e417_0)"
-"((temp425_0)"
-"(let-values(((temp426_0)(as-expression-context ctx_102))"
-"((ctx427_0) ctx_102))"
-"(as-tail-context23.1 ctx427_0 temp426_0))))"
-"(expand7.1 #f #f #f #f temp424_0 temp425_0))))"
-"(if(expand-context-to-parsed? ctx_102)"
+"(let-values(((temp437_0) e430_0)"
+"((temp438_0)"
+"(let-values(((temp439_0)(as-expression-context ctx_101))"
+"((ctx440_0) ctx_101))"
+"(as-tail-context23.1 ctx440_0 temp439_0))))"
+"(expand7.1 #f #f #f #f temp437_0 temp438_0))))"
+"(if(expand-context-to-parsed? ctx_101)"
 " exp-e_0"
 "(let-values(((tmp_62)"
-"(if(not(expand-context-in-local-expand? ctx_102))"
-"(expand-context-context ctx_102)"
+"(if(not(expand-context-in-local-expand? ctx_101))"
+"(expand-context-context ctx_101)"
 " #f)))"
 "(if(equal? tmp_62 'expression)"
 "(let-values()"
 "(let-values(((result-s_13)(syntax-track-origin$1 exp-e_0 rebuild-s_13)))"
 "(begin"
-"(let-values(((obs_126)(expand-context-observer ctx_102)))"
-"(if obs_126"
-"(let-values()(let-values()(call-expand-observe obs_126 'tag result-s_13)))"
+"(let-values(((obs_124)(expand-context-observer ctx_101)))"
+"(if obs_124"
+"(let-values()(let-values()(call-expand-observe obs_124 'tag result-s_13)))"
 "(void)))"
 " result-s_13)))"
 "(let-values()"
-"(let-values(((rebuild-s428_0) rebuild-s_13)((temp429_0)(list #%expression416_0 exp-e_0)))"
-"(rebuild5.1 #f #f rebuild-s428_0 temp429_0))))))))))))))"
-" (void (add-core-form!* 'unquote (lambda (s_720 ctx_103) (raise-syntax-error$1 #f \"not in quasiquote\" s_720))))"
-" (void (add-core-form!* 'unquote-splicing (lambda (s_721 ctx_104) (raise-syntax-error$1 #f \"not in quasiquote\" s_721))))"
+"(let-values(((rebuild-s441_0) rebuild-s_13)((temp442_0)(list #%expression429_0 exp-e_0)))"
+"(rebuild5.1 #f #f rebuild-s441_0 temp442_0))))))))))))))"
+" (void (add-core-form!* 'unquote (lambda (s_732 ctx_102) (raise-syntax-error$1 #f \"not in quasiquote\" s_732))))"
+" (void (add-core-form!* 'unquote-splicing (lambda (s_733 ctx_103) (raise-syntax-error$1 #f \"not in quasiquote\" s_733))))"
 "(define-values"
 "(binding-for-transformer?)"
-"(lambda(b_41 id_131 at-phase_12 ns_121)"
+"(lambda(b_41 id_132 at-phase_12 ns_121)"
 "(begin"
 "(if(not at-phase_12)"
 "(let-values()"
@@ -67068,16 +67129,16 @@ static const char *startup_source =
 "((null3_0) null)"
 "((ns4_0) ns_121)"
 "((at-phase5_0) at-phase_12)"
-"((id6_0) id_131))"
+"((id6_0) id_132))"
 "(binding-lookup48.1 #f #f #f #f b1_8 empty-env2_0 null3_0 ns4_0 at-phase5_0 id6_0))))"
 "(not(variable? val_81))))))))"
 "(define-values(layers) '(raw phaseless id))"
 "(define-values(provide-form-name) 'provide)"
 "(define-values"
 "(parse-and-expand-provides!)"
-"(lambda(specs_0 orig-s_59 rp_1 self_30 phase_43 ctx_105)"
+"(lambda(specs_0 orig-s_60 rp_1 self_30 phase_43 ctx_104)"
 "(begin"
-"(let-values(((ns_122)(expand-context-namespace ctx_105)))"
+"(let-values(((ns_122)(expand-context-namespace ctx_104)))"
 "((letrec-values(((loop_113)"
 "(lambda(specs_1 at-phase_13 protected?_15 layer_6)"
 "(begin"
@@ -67093,16 +67154,16 @@ static const char *startup_source =
 "((letrec-values(((for-loop_92)"
 "(lambda(track-stxes_1"
 " exp-specs_1"
-" lst_398)"
+" lst_401)"
 "(begin"
 " 'for-loop"
-"(if(pair? lst_398)"
+"(if(pair? lst_401)"
 "(let-values(((spec_0)"
 "(unsafe-car"
-" lst_398))"
+" lst_401))"
 "((rest_227)"
 "(unsafe-cdr"
-" lst_398)))"
+" lst_401)))"
 "(let-values(((track-stxes_2"
 " exp-specs_2)"
 "(let-values(((track-stxes_3)"
@@ -67148,7 +67209,7 @@ static const char *startup_source =
 "(format"
 "                                                                                                                                                                    \"nested `~a' not allowed\""
 " fm_2)"
-" orig-s_59"
+" orig-s_60"
 " spec_0)))))))"
 "(let-values(((tmp_63)"
 " fm_2))"
@@ -67214,7 +67275,7 @@ static const char *startup_source =
 "(begin"
 "(parse-identifier!"
 " spec_0"
-" orig-s_59"
+" orig-s_60"
 "(syntax-e$1"
 " spec_0)"
 " at-phase_13"
@@ -67229,7 +67290,7 @@ static const char *startup_source =
 "(raise-syntax-error$1"
 " provide-form-name"
 "                                                                                                                                                               \"bad syntax\""
-" orig-s_59"
+" orig-s_60"
 " spec_0))))"
 "(let-values()"
 "(let-values((()"
@@ -67243,7 +67304,7 @@ static const char *startup_source =
 " spec5_0)"
 "(let-values(((s_304)"
 " disarmed-spec_0))"
-"(let-values(((orig-s_60)"
+"(let-values(((orig-s_61)"
 " s_304))"
 "(let-values(((for-meta3_1"
 " phase-level4_1"
@@ -67266,23 +67327,23 @@ static const char *startup_source =
 "(let-values(((s_76)"
 "(cdr"
 " s_305)))"
-"(let-values(((s_722)"
+"(let-values(((s_734)"
 "(if(syntax?$1"
 " s_76)"
 "(syntax-e$1"
 " s_76)"
 " s_76)))"
 "(if(pair?"
-" s_722)"
+" s_734)"
 "(let-values(((phase-level9_0)"
 "(let-values(((s_178)"
 "(car"
-" s_722)))"
+" s_734)))"
 " s_178))"
 "((spec10_0)"
 "(let-values(((s_460)"
 "(cdr"
-" s_722)))"
+" s_734)))"
 "(let-values(((s_467)"
 "(if(syntax?$1"
 " s_460)"
@@ -67298,7 +67359,7 @@ static const char *startup_source =
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                                                                             \"bad syntax\""
-" orig-s_60))"
+" orig-s_61))"
 "(let-values()"
 " flat-s_42)))))))"
 "(values"
@@ -67307,7 +67368,7 @@ static const char *startup_source =
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                                                     \"bad syntax\""
-" orig-s_60))))))"
+" orig-s_61))))))"
 "(values"
 " for-meta6_0"
 " phase-level7_0"
@@ -67315,25 +67376,25 @@ static const char *startup_source =
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                                 \"bad syntax\""
-" orig-s_60)))))"
+" orig-s_61)))))"
 "(values"
 " #t"
 " for-meta3_1"
 " phase-level4_1"
 " spec5_1))))))"
-"(let-values(((p_69)"
+"(let-values(((p_70)"
 "(syntax-e$1"
 " phase-level4_0)))"
 "(let-values((()"
 "(begin"
 "(if(phase?"
-" p_69)"
+" p_70)"
 "(void)"
 "(let-values()"
 "(raise-syntax-error$1"
 " provide-form-name"
 "                                                                                                                                                                                     \"bad `for-meta' phase\""
-" orig-s_59"
+" orig-s_60"
 " spec_0)))"
 "(values))))"
 "(let-values(((track-stxes_5"
@@ -67341,7 +67402,7 @@ static const char *startup_source =
 "(loop_113"
 " spec5_0"
 "(phase+"
-" p_69"
+" p_70"
 " at-phase_13)"
 " protected?_15"
 " 'phaseless)))"
@@ -67376,7 +67437,7 @@ static const char *startup_source =
 " spec14_0)"
 "(let-values(((s_20)"
 " disarmed-spec_0))"
-"(let-values(((orig-s_61)"
+"(let-values(((orig-s_62)"
 " s_20))"
 "(let-values(((for-syntax13_1"
 " spec14_1)"
@@ -67397,7 +67458,7 @@ static const char *startup_source =
 "(let-values(((s_25)"
 "(cdr"
 " s_23)))"
-"(let-values(((s_723)"
+"(let-values(((s_735)"
 "(if(syntax?$1"
 " s_25)"
 "(syntax-e$1"
@@ -67405,14 +67466,14 @@ static const char *startup_source =
 " s_25)))"
 "(let-values(((flat-s_43)"
 "(to-syntax-list.1"
-" s_723)))"
+" s_735)))"
 "(if(not"
 " flat-s_43)"
 "(let-values()"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                                                         \"bad syntax\""
-" orig-s_61))"
+" orig-s_62))"
 "(let-values()"
 " flat-s_43)))))))"
 "(values"
@@ -67421,7 +67482,7 @@ static const char *startup_source =
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                                 \"bad syntax\""
-" orig-s_61)))))"
+" orig-s_62)))))"
 "(values"
 " #t"
 " for-syntax13_1"
@@ -67465,7 +67526,7 @@ static const char *startup_source =
 " spec20_0)"
 "(let-values(((s_44)"
 " disarmed-spec_0))"
-"(let-values(((orig-s_62)"
+"(let-values(((orig-s_63)"
 " s_44))"
 "(let-values(((for-label19_1"
 " spec20_1)"
@@ -67501,7 +67562,7 @@ static const char *startup_source =
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                                                           \"bad syntax\""
-" orig-s_62))"
+" orig-s_63))"
 "(let-values()"
 " flat-s_44)))))))"
 "(values"
@@ -67510,7 +67571,7 @@ static const char *startup_source =
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                                   \"bad syntax\""
-" orig-s_62)))))"
+" orig-s_63)))))"
 "(values"
 " #t"
 " for-label19_1"
@@ -67554,7 +67615,7 @@ static const char *startup_source =
 "(raise-syntax-error$1"
 " provide-form-name"
 "                                                                                                                                                                                     \"nested `protect' not allowed\""
-" orig-s_59"
+" orig-s_60"
 " spec_0))"
 "(void))"
 "(values))))"
@@ -67563,7 +67624,7 @@ static const char *startup_source =
 " p-spec26_0)"
 "(let-values(((s_83)"
 " disarmed-spec_0))"
-"(let-values(((orig-s_63)"
+"(let-values(((orig-s_64)"
 " s_83))"
 "(let-values(((protect25_1"
 " p-spec26_1)"
@@ -67576,10 +67637,10 @@ static const char *startup_source =
 "(if(pair?"
 " s_31)"
 "(let-values(((protect27_0)"
-"(let-values(((s_724)"
+"(let-values(((s_736)"
 "(car"
 " s_31)))"
-" s_724))"
+" s_736))"
 "((p-spec28_0)"
 "(let-values(((s_309)"
 "(cdr"
@@ -67599,7 +67660,7 @@ static const char *startup_source =
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                                                               \"bad syntax\""
-" orig-s_63))"
+" orig-s_64))"
 "(let-values()"
 " flat-s_45)))))))"
 "(values"
@@ -67608,7 +67669,7 @@ static const char *startup_source =
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                                       \"bad syntax\""
-" orig-s_63)))))"
+" orig-s_64)))))"
 "(values"
 " #t"
 " protect25_1"
@@ -67646,19 +67707,19 @@ static const char *startup_source =
 " rename31_0"
 " id:from32_0"
 " id:to33_0)"
-"(let-values(((s_725)"
+"(let-values(((s_737)"
 " disarmed-spec_0))"
-"(let-values(((orig-s_64)"
-" s_725))"
+"(let-values(((orig-s_65)"
+" s_737))"
 "(let-values(((rename31_1"
 " id:from32_1"
 " id:to33_1)"
 "(let-values(((s_483)"
 "(if(syntax?$1"
-" s_725)"
+" s_737)"
 "(syntax-e$1"
-" s_725)"
-" s_725)))"
+" s_737)"
+" s_737)))"
 "(if(pair?"
 " s_483)"
 "(let-values(((rename34_0)"
@@ -67698,24 +67759,24 @@ static const char *startup_source =
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                                                                           \"not an identifier\""
-" orig-s_64"
+" orig-s_65"
 " s_33))))"
 "((id:to38_0)"
-"(let-values(((s_726)"
+"(let-values(((s_738)"
 "(cdr"
 " s_316)))"
-"(let-values(((s_727)"
+"(let-values(((s_739)"
 "(if(syntax?$1"
-" s_726)"
+" s_738)"
 "(syntax-e$1"
-" s_726)"
-" s_726)))"
+" s_738)"
+" s_738)))"
 "(if(pair?"
-" s_727)"
+" s_739)"
 "(let-values(((id:to39_0)"
 "(let-values(((s_430)"
 "(car"
-" s_727)))"
+" s_739)))"
 "(if(let-values(((or-part_100)"
 "(if(syntax?$1"
 " s_430)"
@@ -67731,38 +67792,38 @@ static const char *startup_source =
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                                                                                               \"not an identifier\""
-" orig-s_64"
+" orig-s_65"
 " s_430))))"
 "(()"
-"(let-values(((s_728)"
+"(let-values(((s_740)"
 "(cdr"
-" s_727)))"
+" s_739)))"
 "(let-values(((s_382)"
 "(if(syntax?$1"
-" s_728)"
+" s_740)"
 "(syntax-e$1"
-" s_728)"
-" s_728)))"
+" s_740)"
+" s_740)))"
 "(if(null?"
 " s_382)"
 "(values)"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                                                                                                 \"bad syntax\""
-" orig-s_64))))))"
+" orig-s_65))))))"
 "(values"
 " id:to39_0))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                                                                             \"bad syntax\""
-" orig-s_64))))))"
+" orig-s_65))))))"
 "(values"
 " id:from37_0"
 " id:to38_0))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                                                         \"bad syntax\""
-" orig-s_64))))))"
+" orig-s_65))))))"
 "(values"
 " rename34_0"
 " id:from35_0"
@@ -67770,7 +67831,7 @@ static const char *startup_source =
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                                     \"bad syntax\""
-" orig-s_64)))))"
+" orig-s_65)))))"
 "(values"
 " #t"
 " rename31_1"
@@ -67779,7 +67840,7 @@ static const char *startup_source =
 "(begin"
 "(parse-identifier!"
 " id:from32_0"
-" orig-s_59"
+" orig-s_60"
 "(syntax-e$1"
 " id:to33_0)"
 " at-phase_13"
@@ -67808,7 +67869,7 @@ static const char *startup_source =
 " id:field42_0)"
 "(let-values(((s_36)"
 " disarmed-spec_0))"
-"(let-values(((orig-s_65)"
+"(let-values(((orig-s_66)"
 " s_36))"
 "(let-values(((struct40_1"
 " id:struct41_1"
@@ -67828,55 +67889,55 @@ static const char *startup_source =
 " s_197))"
 "((id:struct44_0"
 " id:field45_0)"
-"(let-values(((s_729)"
+"(let-values(((s_741)"
 "(cdr"
 " s_410)))"
 "(let-values(((s_84)"
 "(if(syntax?$1"
-" s_729)"
+" s_741)"
 "(syntax-e$1"
-" s_729)"
-" s_729)))"
+" s_741)"
+" s_741)))"
 "(if(pair?"
 " s_84)"
 "(let-values(((id:struct46_0)"
-"(let-values(((s_730)"
+"(let-values(((s_742)"
 "(car"
 " s_84)))"
-"(if(let-values(((or-part_389)"
+"(if(let-values(((or-part_359)"
 "(if(syntax?$1"
-" s_730)"
+" s_742)"
 "(symbol?"
 "(syntax-e$1"
-" s_730))"
+" s_742))"
 " #f)))"
-"(if or-part_389"
-" or-part_389"
+"(if or-part_359"
+" or-part_359"
 "(symbol?"
-" s_730)))"
-" s_730"
+" s_742)))"
+" s_742"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                                                                       \"not an identifier\""
-" orig-s_65"
-" s_730))))"
+" orig-s_66"
+" s_742))))"
 "((id:field47_0)"
-"(let-values(((s_731)"
+"(let-values(((s_743)"
 "(cdr"
 " s_84)))"
 "(let-values(((s_389)"
 "(if(syntax?$1"
-" s_731)"
+" s_743)"
 "(syntax-e$1"
-" s_731)"
-" s_731)))"
+" s_743)"
+" s_743)))"
 "(if(pair?"
 " s_389)"
 "(let-values(((id:field48_0)"
 "(let-values(((s_62)"
 "(car"
 " s_389)))"
-"(let-values(((s_732)"
+"(let-values(((s_744)"
 "(if(syntax?$1"
 " s_62)"
 "(syntax-e$1"
@@ -67884,14 +67945,14 @@ static const char *startup_source =
 " s_62)))"
 "(let-values(((flat-s_46)"
 "(to-syntax-list.1"
-" s_732)))"
+" s_744)))"
 "(if(not"
 " flat-s_46)"
 "(let-values()"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                                                                                                 \"bad syntax\""
-" orig-s_65))"
+" orig-s_66))"
 "(let-values()"
 "(let-values(((id:field_0)"
 "(let-values(((lst_33)"
@@ -67923,22 +67984,22 @@ static const char *startup_source =
 "(let-values()"
 "(let-values(((id:field49_0)"
 "(let-values()"
-"(if(let-values(((or-part_390)"
+"(if(let-values(((or-part_393)"
 "(if(syntax?$1"
 " s_38)"
 "(symbol?"
 "(syntax-e$1"
 " s_38))"
 " #f)))"
-"(if or-part_390"
-" or-part_390"
+"(if or-part_393"
+" or-part_393"
 "(symbol?"
 " s_38)))"
 " s_38"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                                                                                                                                                                                               \"not an identifier\""
-" orig-s_65"
+" orig-s_66"
 " s_38)))))"
 "(cons"
 " id:field49_0"
@@ -67961,32 +68022,32 @@ static const char *startup_source =
 "(let-values(((s_201)"
 "(cdr"
 " s_389)))"
-"(let-values(((s_733)"
+"(let-values(((s_745)"
 "(if(syntax?$1"
 " s_201)"
 "(syntax-e$1"
 " s_201)"
 " s_201)))"
 "(if(null?"
-" s_733)"
+" s_745)"
 "(values)"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                                                                                             \"bad syntax\""
-" orig-s_65))))))"
+" orig-s_66))))))"
 "(values"
 " id:field48_0))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                                                                         \"bad syntax\""
-" orig-s_65))))))"
+" orig-s_66))))))"
 "(values"
 " id:struct46_0"
 " id:field47_0))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                                                     \"bad syntax\""
-" orig-s_65))))))"
+" orig-s_66))))))"
 "(values"
 " struct43_0"
 " id:struct44_0"
@@ -67994,7 +68055,7 @@ static const char *startup_source =
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                                 \"bad syntax\""
-" orig-s_65)))))"
+" orig-s_66)))))"
 "(values"
 " #t"
 " struct40_1"
@@ -68003,7 +68064,7 @@ static const char *startup_source =
 "(begin"
 "(parse-struct!"
 " id:struct41_0"
-" orig-s_59"
+" orig-s_60"
 " id:field42_0"
 " at-phase_13"
 " ns_122"
@@ -68025,29 +68086,29 @@ static const char *startup_source =
 "(let-values(((ok?_63"
 " all-from50_0"
 " mod-path51_0)"
-"(let-values(((s_734)"
+"(let-values(((s_746)"
 " disarmed-spec_0))"
-"(let-values(((orig-s_66)"
-" s_734))"
+"(let-values(((orig-s_67)"
+" s_746))"
 "(let-values(((all-from50_1"
 " mod-path51_1)"
-"(let-values(((s_735)"
+"(let-values(((s_747)"
 "(if(syntax?$1"
-" s_734)"
+" s_746)"
 "(syntax-e$1"
-" s_734)"
-" s_734)))"
+" s_746)"
+" s_746)))"
 "(if(pair?"
-" s_735)"
+" s_747)"
 "(let-values(((all-from52_0)"
-"(let-values(((s_736)"
+"(let-values(((s_748)"
 "(car"
-" s_735)))"
-" s_736))"
+" s_747)))"
+" s_748))"
 "((mod-path53_0)"
 "(let-values(((s_204)"
 "(cdr"
-" s_735)))"
+" s_747)))"
 "(let-values(((s_205)"
 "(if(syntax?$1"
 " s_204)"
@@ -68077,20 +68138,20 @@ static const char *startup_source =
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                                                                           \"bad syntax\""
-" orig-s_66))))))"
+" orig-s_67))))))"
 "(values"
 " mod-path54_0))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                                                       \"bad syntax\""
-" orig-s_66))))))"
+" orig-s_67))))))"
 "(values"
 " all-from52_0"
 " mod-path53_0))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                                   \"bad syntax\""
-" orig-s_66)))))"
+" orig-s_67)))))"
 "(values"
 " #t"
 " all-from50_1"
@@ -68098,14 +68159,14 @@ static const char *startup_source =
 "(begin"
 "(parse-all-from"
 " mod-path51_0"
-" orig-s_59"
+" orig-s_60"
 " self_30"
 " null"
 " at-phase_13"
 " ns_122"
 " rp_1"
 " protected?_15"
-" ctx_105)"
+" ctx_104)"
 "(values"
 " null"
 "(list"
@@ -68122,7 +68183,7 @@ static const char *startup_source =
 " id57_0)"
 "(let-values(((s_207)"
 " disarmed-spec_0))"
-"(let-values(((orig-s_67)"
+"(let-values(((orig-s_68)"
 " s_207))"
 "(let-values(((all-from-except55_1"
 " mod-path56_1"
@@ -68136,10 +68197,10 @@ static const char *startup_source =
 "(if(pair?"
 " s_96)"
 "(let-values(((all-from-except58_0)"
-"(let-values(((s_737)"
+"(let-values(((s_749)"
 "(car"
 " s_96)))"
-" s_737))"
+" s_749))"
 "((mod-path59_0"
 " id60_0)"
 "(let-values(((s_100)"
@@ -68159,28 +68220,28 @@ static const char *startup_source =
 " s_487)))"
 " s_398))"
 "((id62_0)"
-"(let-values(((s_738)"
+"(let-values(((s_750)"
 "(cdr"
 " s_487)))"
-"(let-values(((s_739)"
+"(let-values(((s_751)"
 "(if(syntax?$1"
-" s_738)"
+" s_750)"
 "(syntax-e$1"
-" s_738)"
-" s_738)))"
+" s_750)"
+" s_750)))"
 "(let-values(((flat-s_47)"
 "(to-syntax-list.1"
-" s_739)))"
+" s_751)))"
 "(if(not"
 " flat-s_47)"
 "(let-values()"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                                                                               \"bad syntax\""
-" orig-s_67))"
+" orig-s_68))"
 "(let-values()"
-"(let-values(((id_132)"
-"(let-values(((lst_399)"
+"(let-values(((id_133)"
+"(let-values(((lst_402)"
 " flat-s_47))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
@@ -68188,68 +68249,68 @@ static const char *startup_source =
 "(void)"
 "(let-values()"
 "(check-list"
-" lst_399)))"
-"((letrec-values(((for-loop_311)"
-"(lambda(id_133"
-" lst_400)"
+" lst_402)))"
+"((letrec-values(((for-loop_309)"
+"(lambda(id_134"
+" lst_403)"
 "(begin"
 " 'for-loop"
 "(if(pair?"
-" lst_400)"
+" lst_403)"
 "(let-values(((s_490)"
 "(unsafe-car"
-" lst_400))"
+" lst_403))"
 "((rest_228)"
 "(unsafe-cdr"
-" lst_400)))"
-"(let-values(((id_134)"
+" lst_403)))"
 "(let-values(((id_135)"
-" id_133))"
 "(let-values(((id_136)"
+" id_134))"
+"(let-values(((id_137)"
 "(let-values()"
 "(let-values(((id63_0)"
 "(let-values()"
-"(if(let-values(((or-part_391)"
+"(if(let-values(((or-part_394)"
 "(if(syntax?$1"
 " s_490)"
 "(symbol?"
 "(syntax-e$1"
 " s_490))"
 " #f)))"
-"(if or-part_391"
-" or-part_391"
+"(if or-part_394"
+" or-part_394"
 "(symbol?"
 " s_490)))"
 " s_490"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                                                                                                                                                                             \"not an identifier\""
-" orig-s_67"
+" orig-s_68"
 " s_490)))))"
 "(cons"
 " id63_0"
-" id_135)))))"
-"(values"
 " id_136)))))"
+"(values"
+" id_137)))))"
 "(if(not"
 " #f)"
-"(for-loop_311"
-" id_134"
+"(for-loop_309"
+" id_135"
 " rest_228)"
-" id_134)))"
-" id_133)))))"
-" for-loop_311)"
+" id_135)))"
+" id_134)))))"
+" for-loop_309)"
 " null"
-" lst_399)))))"
+" lst_402)))))"
 "(reverse$1"
-" id_132)))))))))"
+" id_133)))))))))"
 "(values"
 " mod-path61_0"
 " id62_0))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                                                       \"bad syntax\""
-" orig-s_67))))))"
+" orig-s_68))))))"
 "(values"
 " all-from-except58_0"
 " mod-path59_0"
@@ -68257,7 +68318,7 @@ static const char *startup_source =
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                                   \"bad syntax\""
-" orig-s_67)))))"
+" orig-s_68)))))"
 "(values"
 " #t"
 " all-from-except55_1"
@@ -68266,14 +68327,14 @@ static const char *startup_source =
 "(begin"
 "(parse-all-from"
 " mod-path56_0"
-" orig-s_59"
+" orig-s_60"
 " self_30"
 " id57_0"
 " at-phase_13"
 " ns_122"
 " rp_1"
 " protected?_15"
-" ctx_105)"
+" ctx_104)"
 "(values"
 " null"
 "(list"
@@ -68294,7 +68355,7 @@ static const char *startup_source =
 " all-defined64_0)"
 "(let-values(((s_211)"
 " disarmed-spec_0))"
-"(let-values(((orig-s_68)"
+"(let-values(((orig-s_69)"
 " s_211))"
 "(let-values(((all-defined64_1)"
 "(let-values(((s_391)"
@@ -68306,33 +68367,33 @@ static const char *startup_source =
 "(if(pair?"
 " s_391)"
 "(let-values(((all-defined65_0)"
-"(let-values(((s_740)"
+"(let-values(((s_752)"
 "(car"
 " s_391)))"
-" s_740))"
+" s_752))"
 "(()"
-"(let-values(((s_741)"
+"(let-values(((s_753)"
 "(cdr"
 " s_391)))"
 "(let-values(((s_109)"
 "(if(syntax?$1"
-" s_741)"
+" s_753)"
 "(syntax-e$1"
-" s_741)"
-" s_741)))"
+" s_753)"
+" s_753)))"
 "(if(null?"
 " s_109)"
 "(values)"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                                                       \"bad syntax\""
-" orig-s_68))))))"
+" orig-s_69))))))"
 "(values"
 " all-defined65_0))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                                   \"bad syntax\""
-" orig-s_68)))))"
+" orig-s_69)))))"
 "(values"
 " #t"
 " all-defined64_1))))))"
@@ -68340,7 +68401,7 @@ static const char *startup_source =
 "(parse-all-from-module"
 " self_30"
 " spec_0"
-" orig-s_59"
+" orig-s_60"
 " null"
 " #f"
 " at-phase_13"
@@ -68362,7 +68423,7 @@ static const char *startup_source =
 " id67_0)"
 "(let-values(((s_414)"
 " disarmed-spec_0))"
-"(let-values(((orig-s_69)"
+"(let-values(((orig-s_70)"
 " s_414))"
 "(let-values(((all-defined-except66_1"
 " id67_1)"
@@ -68375,10 +68436,10 @@ static const char *startup_source =
 "(if(pair?"
 " s_214)"
 "(let-values(((all-defined-except68_0)"
-"(let-values(((s_500)"
+"(let-values(((s_754)"
 "(car"
 " s_214)))"
-" s_500))"
+" s_754))"
 "((id69_0)"
 "(let-values(((s_215)"
 "(cdr"
@@ -68398,10 +68459,10 @@ static const char *startup_source =
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                                                           \"bad syntax\""
-" orig-s_69))"
+" orig-s_70))"
 "(let-values()"
-"(let-values(((id_137)"
-"(let-values(((lst_401)"
+"(let-values(((id_138)"
+"(let-values(((lst_404)"
 " flat-s_48))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
@@ -68409,68 +68470,68 @@ static const char *startup_source =
 "(void)"
 "(let-values()"
 "(check-list"
-" lst_401)))"
-"((letrec-values(((for-loop_312)"
-"(lambda(id_138"
-" lst_402)"
+" lst_404)))"
+"((letrec-values(((for-loop_310)"
+"(lambda(id_139"
+" lst_405)"
 "(begin"
 " 'for-loop"
 "(if(pair?"
-" lst_402)"
-"(let-values(((s_742)"
+" lst_405)"
+"(let-values(((s_755)"
 "(unsafe-car"
-" lst_402))"
+" lst_405))"
 "((rest_229)"
 "(unsafe-cdr"
-" lst_402)))"
-"(let-values(((id_139)"
+" lst_405)))"
 "(let-values(((id_140)"
-" id_138))"
+"(let-values(((id_141)"
+" id_139))"
 "(let-values(((id_29)"
 "(let-values()"
 "(let-values(((id70_0)"
 "(let-values()"
-"(if(let-values(((or-part_392)"
+"(if(let-values(((or-part_395)"
 "(if(syntax?$1"
-" s_742)"
+" s_755)"
 "(symbol?"
 "(syntax-e$1"
-" s_742))"
+" s_755))"
 " #f)))"
-"(if or-part_392"
-" or-part_392"
+"(if or-part_395"
+" or-part_395"
 "(symbol?"
-" s_742)))"
-" s_742"
+" s_755)))"
+" s_755"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                                                                                                                                                         \"not an identifier\""
-" orig-s_69"
-" s_742)))))"
+" orig-s_70"
+" s_755)))))"
 "(cons"
 " id70_0"
-" id_140)))))"
+" id_141)))))"
 "(values"
 " id_29)))))"
 "(if(not"
 " #f)"
-"(for-loop_312"
-" id_139"
+"(for-loop_310"
+" id_140"
 " rest_229)"
-" id_139)))"
-" id_138)))))"
-" for-loop_312)"
+" id_140)))"
+" id_139)))))"
+" for-loop_310)"
 " null"
-" lst_401)))))"
+" lst_404)))))"
 "(reverse$1"
-" id_137)))))))))"
+" id_138)))))))))"
 "(values"
 " all-defined-except68_0"
 " id69_0))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                                   \"bad syntax\""
-" orig-s_69)))))"
+" orig-s_70)))))"
 "(values"
 " #t"
 " all-defined-except66_1"
@@ -68479,7 +68540,7 @@ static const char *startup_source =
 "(parse-all-from-module"
 " self_30"
 " spec_0"
-" orig-s_59"
+" orig-s_60"
 " id67_0"
 " #f"
 " at-phase_13"
@@ -68502,88 +68563,88 @@ static const char *startup_source =
 "(let-values(((ok?_67"
 " prefix-all-defined71_0"
 " id:prefix72_0)"
-"(let-values(((s_502)"
+"(let-values(((s_756)"
 " disarmed-spec_0))"
-"(let-values(((orig-s_70)"
-" s_502))"
+"(let-values(((orig-s_71)"
+" s_756))"
 "(let-values(((prefix-all-defined71_1"
 " id:prefix72_1)"
 "(let-values(((s_416)"
 "(if(syntax?$1"
-" s_502)"
+" s_756)"
 "(syntax-e$1"
-" s_502)"
-" s_502)))"
+" s_756)"
+" s_756)))"
 "(if(pair?"
 " s_416)"
 "(let-values(((prefix-all-defined73_0)"
-"(let-values(((s_743)"
+"(let-values(((s_757)"
 "(car"
 " s_416)))"
-" s_743))"
+" s_757))"
 "((id:prefix74_0)"
-"(let-values(((s_503)"
+"(let-values(((s_758)"
 "(cdr"
 " s_416)))"
-"(let-values(((s_744)"
+"(let-values(((s_505)"
 "(if(syntax?$1"
-" s_503)"
+" s_758)"
 "(syntax-e$1"
-" s_503)"
-" s_503)))"
+" s_758)"
+" s_758)))"
 "(if(pair?"
-" s_744)"
+" s_505)"
 "(let-values(((id:prefix75_0)"
-"(let-values(((s_745)"
+"(let-values(((s_506)"
 "(car"
-" s_744)))"
-"(if(let-values(((or-part_393)"
+" s_505)))"
+"(if(let-values(((or-part_396)"
 "(if(syntax?$1"
-" s_745)"
+" s_506)"
 "(symbol?"
 "(syntax-e$1"
-" s_745))"
+" s_506))"
 " #f)))"
-"(if or-part_393"
-" or-part_393"
+"(if or-part_396"
+" or-part_396"
 "(symbol?"
-" s_745)))"
-" s_745"
+" s_506)))"
+" s_506"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                                                                         \"not an identifier\""
-" orig-s_70"
-" s_745))))"
+" orig-s_71"
+" s_506))))"
 "(()"
-"(let-values(((s_746)"
+"(let-values(((s_759)"
 "(cdr"
-" s_744)))"
-"(let-values(((s_747)"
+" s_505)))"
+"(let-values(((s_760)"
 "(if(syntax?$1"
-" s_746)"
+" s_759)"
 "(syntax-e$1"
-" s_746)"
-" s_746)))"
+" s_759)"
+" s_759)))"
 "(if(null?"
-" s_747)"
+" s_760)"
 "(values)"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                                                                           \"bad syntax\""
-" orig-s_70))))))"
+" orig-s_71))))))"
 "(values"
 " id:prefix75_0))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                                                       \"bad syntax\""
-" orig-s_70))))))"
+" orig-s_71))))))"
 "(values"
 " prefix-all-defined73_0"
 " id:prefix74_0))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                                   \"bad syntax\""
-" orig-s_70)))))"
+" orig-s_71)))))"
 "(values"
 " #t"
 " prefix-all-defined71_1"
@@ -68592,7 +68653,7 @@ static const char *startup_source =
 "(parse-all-from-module"
 " self_30"
 " spec_0"
-" orig-s_59"
+" orig-s_60"
 " null"
 "(syntax-e$1"
 " id:prefix72_0)"
@@ -68619,7 +68680,7 @@ static const char *startup_source =
 " id78_0)"
 "(let-values(((s_232)"
 " disarmed-spec_0))"
-"(let-values(((orig-s_71)"
+"(let-values(((orig-s_72)"
 " s_232))"
 "(let-values(((prefix-all-defined-except76_1"
 " id:prefix77_1"
@@ -68654,28 +68715,28 @@ static const char *startup_source =
 "(let-values(((s_339)"
 "(car"
 " s_336)))"
-"(if(let-values(((or-part_394)"
+"(if(let-values(((or-part_397)"
 "(if(syntax?$1"
 " s_339)"
 "(symbol?"
 "(syntax-e$1"
 " s_339))"
 " #f)))"
-"(if or-part_394"
-" or-part_394"
+"(if or-part_397"
+" or-part_397"
 "(symbol?"
 " s_339)))"
 " s_339"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                                                                           \"not an identifier\""
-" orig-s_71"
+" orig-s_72"
 " s_339))))"
 "((id83_1)"
 "(let-values(((s_341)"
 "(cdr"
 " s_336)))"
-"(let-values(((s_748)"
+"(let-values(((s_510)"
 "(if(syntax?$1"
 " s_341)"
 "(syntax-e$1"
@@ -68683,16 +68744,16 @@ static const char *startup_source =
 " s_341)))"
 "(let-values(((flat-s_49)"
 "(to-syntax-list.1"
-" s_748)))"
+" s_510)))"
 "(if(not"
 " flat-s_49)"
 "(let-values()"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                                                                                 \"bad syntax\""
-" orig-s_71))"
+" orig-s_72))"
 "(let-values()"
-"(let-values(((id_141)"
+"(let-values(((id_142)"
 "(let-values(((lst_4)"
 " flat-s_49))"
 "(begin"
@@ -68702,67 +68763,67 @@ static const char *startup_source =
 "(let-values()"
 "(check-list"
 " lst_4)))"
-"((letrec-values(((for-loop_313)"
-"(lambda(id_142"
-" lst_403)"
+"((letrec-values(((for-loop_311)"
+"(lambda(id_143"
+" lst_406)"
 "(begin"
 " 'for-loop"
 "(if(pair?"
-" lst_403)"
-"(let-values(((s_749)"
+" lst_406)"
+"(let-values(((s_511)"
 "(unsafe-car"
-" lst_403))"
-"((rest_187)"
+" lst_406))"
+"((rest_186)"
 "(unsafe-cdr"
-" lst_403)))"
-"(let-values(((id_143)"
+" lst_406)))"
 "(let-values(((id_144)"
-" id_142))"
 "(let-values(((id_145)"
+" id_143))"
+"(let-values(((id_146)"
 "(let-values()"
 "(let-values(((id84_2)"
 "(let-values()"
-"(if(let-values(((or-part_395)"
+"(if(let-values(((or-part_398)"
 "(if(syntax?$1"
-" s_749)"
+" s_511)"
 "(symbol?"
 "(syntax-e$1"
-" s_749))"
+" s_511))"
 " #f)))"
-"(if or-part_395"
-" or-part_395"
+"(if or-part_398"
+" or-part_398"
 "(symbol?"
-" s_749)))"
-" s_749"
+" s_511)))"
+" s_511"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                                                                                                                                                                               \"not an identifier\""
-" orig-s_71"
-" s_749)))))"
+" orig-s_72"
+" s_511)))))"
 "(cons"
 " id84_2"
-" id_144)))))"
-"(values"
 " id_145)))))"
+"(values"
+" id_146)))))"
 "(if(not"
 " #f)"
-"(for-loop_313"
-" id_143"
-" rest_187)"
-" id_143)))"
-" id_142)))))"
-" for-loop_313)"
+"(for-loop_311"
+" id_144"
+" rest_186)"
+" id_144)))"
+" id_143)))))"
+" for-loop_311)"
 " null"
 " lst_4)))))"
 "(reverse$1"
-" id_141)))))))))"
+" id_142)))))))))"
 "(values"
 " id:prefix82_0"
 " id83_1))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                                                         \"bad syntax\""
-" orig-s_71))))))"
+" orig-s_72))))))"
 "(values"
 " prefix-all-defined-except79_0"
 " id:prefix80_0"
@@ -68770,7 +68831,7 @@ static const char *startup_source =
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                                     \"bad syntax\""
-" orig-s_71)))))"
+" orig-s_72)))))"
 "(values"
 " #t"
 " prefix-all-defined-except76_1"
@@ -68780,7 +68841,7 @@ static const char *startup_source =
 "(parse-all-from-module"
 " self_30"
 " spec_0"
-" orig-s_59"
+" orig-s_60"
 " id78_0"
 "(syntax-e$1"
 " id:prefix77_0)"
@@ -68797,19 +68858,19 @@ static const char *startup_source =
 " expand85_0"
 " id86_1"
 " datum87_0)"
-"(let-values(((s_750)"
+"(let-values(((s_517)"
 " disarmed-spec_0))"
-"(let-values(((orig-s_72)"
-" s_750))"
+"(let-values(((orig-s_73)"
+" s_517))"
 "(let-values(((expand85_1"
 " id86_2"
 " datum87_1)"
 "(let-values(((s_246)"
 "(if(syntax?$1"
-" s_750)"
+" s_517)"
 "(syntax-e$1"
-" s_750)"
-" s_750)))"
+" s_517)"
+" s_517)))"
 "(if(pair?"
 " s_246)"
 "(let-values(((expand88_0)"
@@ -68819,51 +68880,51 @@ static const char *startup_source =
 " s_247))"
 "((id89_1"
 " datum90_0)"
-"(let-values(((s_751)"
+"(let-values(((s_761)"
 "(cdr"
 " s_246)))"
 "(let-values(((s_248)"
 "(if(syntax?$1"
-" s_751)"
+" s_761)"
 "(syntax-e$1"
-" s_751)"
-" s_751)))"
+" s_761)"
+" s_761)))"
 "(if(pair?"
 " s_248)"
 "(let-values(((id91_1"
 " datum92_0)"
-"(let-values(((s_516)"
+"(let-values(((s_762)"
 "(car"
 " s_248)))"
 "(let-values(((s_250)"
 "(if(syntax?$1"
-" s_516)"
+" s_762)"
 "(syntax-e$1"
-" s_516)"
-" s_516)))"
+" s_762)"
+" s_762)))"
 "(if(pair?"
 " s_250)"
 "(let-values(((id93_0)"
-"(let-values(((s_752)"
+"(let-values(((s_521)"
 "(car"
 " s_250)))"
-"(if(let-values(((or-part_396)"
+"(if(let-values(((or-part_399)"
 "(if(syntax?$1"
-" s_752)"
+" s_521)"
 "(symbol?"
 "(syntax-e$1"
-" s_752))"
+" s_521))"
 " #f)))"
-"(if or-part_396"
-" or-part_396"
+"(if or-part_399"
+" or-part_399"
 "(symbol?"
-" s_752)))"
-" s_752"
+" s_521)))"
+" s_521"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                                                                                             \"not an identifier\""
-" orig-s_72"
-" s_752))))"
+" orig-s_73"
+" s_521))))"
 "((datum94_0)"
 "(let-values(((s_446)"
 "(cdr"
@@ -68875,7 +68936,7 @@ static const char *startup_source =
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                                                                           \"bad syntax\""
-" orig-s_72)))))"
+" orig-s_73)))))"
 "(()"
 "(let-values(((s_447)"
 "(cdr"
@@ -68892,14 +68953,14 @@ static const char *startup_source =
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                                                                           \"bad syntax\""
-" orig-s_72))))))"
+" orig-s_73))))))"
 "(values"
 " id91_1"
 " datum92_0))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                                                       \"bad syntax\""
-" orig-s_72))))))"
+" orig-s_73))))))"
 "(values"
 " expand88_0"
 " id89_1"
@@ -68907,7 +68968,7 @@ static const char *startup_source =
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                                   \"bad syntax\""
-" orig-s_72)))))"
+" orig-s_73)))))"
 "(values"
 " #t"
 " expand85_1"
@@ -68918,7 +68979,7 @@ static const char *startup_source =
 " form96_0)"
 "(let-values(((s_360)"
 " disarmed-spec_0))"
-"(let-values(((orig-s_73)"
+"(let-values(((orig-s_74)"
 " s_360))"
 "(let-values(((expand95_1"
 " form96_1)"
@@ -68956,32 +69017,32 @@ static const char *startup_source =
 "(let-values(((s_371)"
 "(cdr"
 " s_368)))"
-"(let-values(((s_753)"
+"(let-values(((s_763)"
 "(if(syntax?$1"
 " s_371)"
 "(syntax-e$1"
 " s_371)"
 " s_371)))"
 "(if(null?"
-" s_753)"
+" s_763)"
 "(values)"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                                                                             \"bad syntax\""
-" orig-s_73))))))"
+" orig-s_74))))))"
 "(values"
 " form99_0))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                                                         \"bad syntax\""
-" orig-s_73))))))"
+" orig-s_74))))))"
 "(values"
 " expand97_0"
 " form98_0))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                                     \"bad syntax\""
-" orig-s_73)))))"
+" orig-s_74)))))"
 "(values"
 " #t"
 " expand95_1"
@@ -68991,20 +69052,20 @@ static const char *startup_source =
 " form96_0)"
 "((temp105_4)"
 "(let-values(((v_258)"
-" ctx_105))"
-"(let-values(((the-struct_99)"
+" ctx_104))"
+"(let-values(((the-struct_98)"
 " v_258))"
 "(if(expand-context/outer?"
-" the-struct_99)"
+" the-struct_98)"
 "(let-values(((def-ctx-scopes106_0)"
 "(box"
 " null))"
 "((inner107_0)"
-"(let-values(((the-struct_100)"
+"(let-values(((the-struct_99)"
 "(root-expand-context/outer-inner"
 " v_258)))"
 "(if(expand-context/inner?"
-" the-struct_100)"
+" the-struct_99)"
 "(let-values(((stops108_0)"
 "(free-id-set"
 " at-phase_13"
@@ -69014,91 +69075,91 @@ static const char *startup_source =
 " at-phase_13)))))"
 "(expand-context/inner2.1"
 "(root-expand-context/inner-self-mpi"
-" the-struct_100)"
+" the-struct_99)"
 "(root-expand-context/inner-module-scopes"
-" the-struct_100)"
+" the-struct_99)"
 "(root-expand-context/inner-top-level-bind-scope"
-" the-struct_100)"
+" the-struct_99)"
 "(root-expand-context/inner-all-scopes-stx"
-" the-struct_100)"
+" the-struct_99)"
 "(root-expand-context/inner-defined-syms"
-" the-struct_100)"
+" the-struct_99)"
 "(root-expand-context/inner-counter"
-" the-struct_100)"
+" the-struct_99)"
 "(root-expand-context/inner-lift-key"
-" the-struct_100)"
+" the-struct_99)"
 "(expand-context/inner-to-parsed?"
-" the-struct_100)"
+" the-struct_99)"
 "(expand-context/inner-phase"
-" the-struct_100)"
+" the-struct_99)"
 "(expand-context/inner-namespace"
-" the-struct_100)"
+" the-struct_99)"
 "(expand-context/inner-just-once?"
-" the-struct_100)"
+" the-struct_99)"
 "(expand-context/inner-module-begin-k"
-" the-struct_100)"
+" the-struct_99)"
 "(expand-context/inner-allow-unbound?"
-" the-struct_100)"
+" the-struct_99)"
 "(expand-context/inner-in-local-expand?"
-" the-struct_100)"
+" the-struct_99)"
 " stops108_0"
 "(expand-context/inner-declared-submodule-names"
-" the-struct_100)"
+" the-struct_99)"
 "(expand-context/inner-lifts"
-" the-struct_100)"
+" the-struct_99)"
 "(expand-context/inner-lift-envs"
-" the-struct_100)"
+" the-struct_99)"
 "(expand-context/inner-module-lifts"
-" the-struct_100)"
+" the-struct_99)"
 "(expand-context/inner-require-lifts"
-" the-struct_100)"
+" the-struct_99)"
 "(expand-context/inner-to-module-lifts"
-" the-struct_100)"
+" the-struct_99)"
 "(expand-context/inner-requires+provides"
-" the-struct_100)"
+" the-struct_99)"
 "(expand-context/inner-observer"
-" the-struct_100)"
+" the-struct_99)"
 "(expand-context/inner-for-serializable?"
-" the-struct_100)"
+" the-struct_99)"
 "(expand-context/inner-should-not-encounter-macros?"
-" the-struct_100)))"
-"(raise-argument-error"
-" 'struct-copy"
-"                                                                                                                                                                                                                       \"expand-context/inner?\""
-" the-struct_100)))))"
-"(expand-context/outer1.1"
-" inner107_0"
-"(root-expand-context/outer-post-expansion-scope"
-" the-struct_99)"
-"(root-expand-context/outer-use-site-scopes"
-" the-struct_99)"
-"(root-expand-context/outer-frame-id"
-" the-struct_99)"
-"(expand-context/outer-context"
-" the-struct_99)"
-"(expand-context/outer-env"
-" the-struct_99)"
-"(expand-context/outer-post-expansion-scope-action"
-" the-struct_99)"
-"(expand-context/outer-scopes"
-" the-struct_99)"
-" def-ctx-scopes106_0"
-"(expand-context/outer-binding-layer"
-" the-struct_99)"
-"(expand-context/outer-reference-records"
-" the-struct_99)"
-"(expand-context/outer-only-immediate?"
-" the-struct_99)"
-"(expand-context/outer-need-eventually-defined"
-" the-struct_99)"
-"(expand-context/outer-current-introduction-scopes"
-" the-struct_99)"
-"(expand-context/outer-name"
 " the-struct_99)))"
 "(raise-argument-error"
 " 'struct-copy"
+"                                                                                                                                                                                                                       \"expand-context/inner?\""
+" the-struct_99)))))"
+"(expand-context/outer1.1"
+" inner107_0"
+"(root-expand-context/outer-post-expansion-scope"
+" the-struct_98)"
+"(root-expand-context/outer-use-site-scopes"
+" the-struct_98)"
+"(root-expand-context/outer-frame-id"
+" the-struct_98)"
+"(expand-context/outer-context"
+" the-struct_98)"
+"(expand-context/outer-env"
+" the-struct_98)"
+"(expand-context/outer-post-expansion-scope-action"
+" the-struct_98)"
+"(expand-context/outer-scopes"
+" the-struct_98)"
+" def-ctx-scopes106_0"
+"(expand-context/outer-binding-layer"
+" the-struct_98)"
+"(expand-context/outer-reference-records"
+" the-struct_98)"
+"(expand-context/outer-only-immediate?"
+" the-struct_98)"
+"(expand-context/outer-need-eventually-defined"
+" the-struct_98)"
+"(expand-context/outer-current-introduction-scopes"
+" the-struct_98)"
+"(expand-context/outer-name"
+" the-struct_98)))"
+"(raise-argument-error"
+" 'struct-copy"
 "                                                                                                                                                                                                     \"expand-context/outer?\""
-" the-struct_99))))))"
+" the-struct_98))))))"
 "(expand7.1"
 " #f"
 " #f"
@@ -69127,35 +69188,35 @@ static const char *startup_source =
 "(raise-syntax-error$1"
 " provide-form-name"
 "                                                                                                                                                                                         \"expansion was not a `begin' sequence\""
-" orig-s_59"
+" orig-s_60"
 " spec_0)))"
 "(values))))"
 "(let-values(((ok?_71"
 " begin100_0"
 " spec101_0)"
-"(let-values(((s_754)"
+"(let-values(((s_764)"
 " exp-spec_0))"
-"(let-values(((orig-s_74)"
-" s_754))"
+"(let-values(((orig-s_75)"
+" s_764))"
 "(let-values(((begin100_1"
 " spec101_1)"
-"(let-values(((s_755)"
+"(let-values(((s_765)"
 "(if(syntax?$1"
-" s_754)"
+" s_764)"
 "(syntax-e$1"
-" s_754)"
-" s_754)))"
+" s_764)"
+" s_764)))"
 "(if(pair?"
-" s_755)"
+" s_765)"
 "(let-values(((begin102_0)"
 "(let-values(((s_376)"
 "(car"
-" s_755)))"
+" s_765)))"
 " s_376))"
 "((spec103_0)"
 "(let-values(((s_377)"
 "(cdr"
-" s_755)))"
+" s_765)))"
 "(let-values(((s_378)"
 "(if(syntax?$1"
 " s_377)"
@@ -69171,7 +69232,7 @@ static const char *startup_source =
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                                                                   \"bad syntax\""
-" orig-s_74))"
+" orig-s_75))"
 "(let-values()"
 " flat-s_50)))))))"
 "(values"
@@ -69180,7 +69241,7 @@ static const char *startup_source =
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                                           \"bad syntax\""
-" orig-s_74)))))"
+" orig-s_75)))))"
 "(values"
 " #t"
 " begin100_1"
@@ -69232,7 +69293,7 @@ static const char *startup_source =
 " 'raw)))))"
 "(define-values"
 "(parse-identifier!)"
-"(lambda(spec_1 orig-s_75 sym_102 at-phase_5 ns_123 rp_2 protected?_16)"
+"(lambda(spec_1 orig-s_76 sym_102 at-phase_5 ns_123 rp_2 protected?_16)"
 "(begin"
 "(let-values(((b_90)(resolve+shift/extra-inspector spec_1 at-phase_5 ns_123)))"
 "(let-values((()"
@@ -69243,7 +69304,7 @@ static const char *startup_source =
 "(raise-syntax-error$1"
 " provide-form-name"
 "                             \"provided identifier is not defined or required\""
-" orig-s_75"
+" orig-s_76"
 " spec_1)))"
 "(values))))"
 "(let-values(((as-transformer?_6)(binding-for-transformer? b_90 spec_1 at-phase_5 ns_123)))"
@@ -69256,7 +69317,7 @@ static const char *startup_source =
 "((b112_0) b_90)"
 "((immed-b113_0) immed-b_0)"
 "((spec114_0) spec_1)"
-"((orig-s115_0) orig-s_75)"
+"((orig-s115_0) orig-s_76)"
 "((protected?116_0) protected?_16)"
 "((as-transformer?117_0) as-transformer?_6))"
 "(add-provide!107.1"
@@ -69271,7 +69332,7 @@ static const char *startup_source =
 " orig-s115_0)))))))))"
 "(define-values"
 "(parse-struct!)"
-"(lambda(id:struct_0 orig-s_76 fields_0 at-phase_14 ns_124 rp_3 protected?_17)"
+"(lambda(id:struct_0 orig-s_77 fields_0 at-phase_14 ns_124 rp_3 protected?_17)"
 "(begin"
 "(let-values(((mk_0)"
 "(lambda(fmt_1)"
@@ -69288,50 +69349,50 @@ 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_104 id:struct_0))))))"
 "(begin"
-"            (let-values (((lst_404) (list \"~a\" \"make-~a\" \"struct:~a\" \"~a?\")))"
+"            (let-values (((lst_407) (list \"~a\" \"make-~a\" \"struct:~a\" \"~a?\")))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
-"(let-values()(check-list lst_404)))"
-"((letrec-values(((for-loop_314)"
-"(lambda(lst_405)"
+"(let-values()(check-list lst_407)))"
+"((letrec-values(((for-loop_312)"
+"(lambda(lst_408)"
 "(begin"
 " 'for-loop"
-"(if(pair? lst_405)"
-"(let-values(((fmt_3)(unsafe-car lst_405))((rest_230)(unsafe-cdr lst_405)))"
+"(if(pair? lst_408)"
+"(let-values(((fmt_3)(unsafe-car lst_408))((rest_230)(unsafe-cdr lst_408)))"
 "(let-values((()"
 "(let-values()"
 "(let-values((()"
 "(let-values()"
 "(begin"
 "(let-values()"
-"(let-values(((id_146)(mk_0 fmt_3)))"
+"(let-values(((id_147)(mk_0 fmt_3)))"
 "(parse-identifier!"
-" id_146"
-" orig-s_76"
-"(syntax-e$1 id_146)"
+" id_147"
+" orig-s_77"
+"(syntax-e$1 id_147)"
 " at-phase_14"
 " ns_124"
 " rp_3"
 " protected?_17)))"
 "(values)))))"
 "(values)))))"
-"(if(not #f)(for-loop_314 rest_230)(values))))"
+"(if(not #f)(for-loop_312 rest_230)(values))))"
 "(values))))))"
-" for-loop_314)"
-" lst_404)))"
+" for-loop_312)"
+" lst_407)))"
 "(void)"
-"(let-values(((lst_406) fields_0))"
+"(let-values(((lst_352) fields_0))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
-"(let-values()(check-list lst_406)))"
-"((letrec-values(((for-loop_315)"
-"(lambda(lst_354)"
+"(let-values()(check-list lst_352)))"
+"((letrec-values(((for-loop_313)"
+"(lambda(lst_409)"
 "(begin"
 " 'for-loop"
-"(if(pair? lst_354)"
-"(let-values(((field_0)(unsafe-car lst_354))((rest_231)(unsafe-cdr lst_354)))"
+"(if(pair? lst_409)"
+"(let-values(((field_0)(unsafe-car lst_409))((rest_231)(unsafe-cdr lst_409)))"
 "(let-values((()"
 "(let-values()"
 "(let-values((()"
@@ -69347,7 +69408,7 @@ static const char *startup_source =
 "(begin"
 "(parse-identifier!"
 " get-id_0"
-" orig-s_76"
+" orig-s_77"
 "(syntax-e$1 get-id_0)"
 " at-phase_14"
 " ns_124"
@@ -69355,7 +69416,7 @@ static const char *startup_source =
 " protected?_17)"
 "(parse-identifier!"
 " set-id_0"
-" orig-s_76"
+" orig-s_77"
 "(syntax-e$1 set-id_0)"
 " at-phase_14"
 " ns_124"
@@ -69363,14 +69424,14 @@ static const char *startup_source =
 " protected?_17)))))"
 "(values)))))"
 "(values)))))"
-"(if(not #f)(for-loop_315 rest_231)(values))))"
+"(if(not #f)(for-loop_313 rest_231)(values))))"
 "(values))))))"
-" for-loop_315)"
-" lst_406)))"
+" for-loop_313)"
+" lst_352)))"
 "(void)))))))"
 "(define-values"
 "(parse-all-from)"
-"(lambda(mod-path-stx_0 orig-s_77 self_31 except-ids_0 at-phase_15 ns_125 rp_4 protected?_18 ctx_106)"
+"(lambda(mod-path-stx_0 orig-s_78 self_31 except-ids_0 at-phase_15 ns_125 rp_4 protected?_18 ctx_105)"
 "(begin"
 "(let-values(((mod-path_33)(syntax->datum$1 mod-path-stx_0)))"
 "(let-values((()"
@@ -69378,13 +69439,13 @@ static const char *startup_source =
 "(if(1/module-path? mod-path_33)"
 "(void)"
 "(let-values()"
-"                            (raise-syntax-error$1 provide-form-name \"not a module path\" orig-s_77 mod-path-stx_0)))"
+"                            (raise-syntax-error$1 provide-form-name \"not a module path\" orig-s_78 mod-path-stx_0)))"
 "(values))))"
-"(let-values(((mpi_51)(module-path->mpi/context mod-path_33 ctx_106)))"
-"(parse-all-from-module mpi_51 #f orig-s_77 except-ids_0 #f at-phase_15 ns_125 rp_4 protected?_18)))))))"
+"(let-values(((mpi_51)(module-path->mpi/context mod-path_33 ctx_105)))"
+"(parse-all-from-module mpi_51 #f orig-s_78 except-ids_0 #f at-phase_15 ns_125 rp_4 protected?_18)))))))"
 "(define-values"
 "(parse-all-from-module)"
-"(lambda(mpi_52 matching-stx_0 orig-s_78 except-ids_1 prefix-sym_0 at-phase_16 ns_126 rp_5 protected?_19)"
+"(lambda(mpi_52 matching-stx_0 orig-s_79 except-ids_1 prefix-sym_0 at-phase_16 ns_126 rp_5 protected?_19)"
 "(begin"
 "(let-values(((requireds_2)(extract-module-requires rp_5 mpi_52 at-phase_16)))"
 "(let-values(((phase-desc_0)"
@@ -69404,7 +69465,7 @@ static const char *startup_source =
 "(raise-syntax-error$1"
 " provide-form-name"
 "                               (format \"cannot provide from a module without a matching require~a\" (phase-desc_0))"
-" orig-s_78"
+" orig-s_79"
 " matching-stx_0)))"
 "(values))))"
 "(let-values(((add-prefix_1)"
@@ -69419,43 +69480,43 @@ static const char *startup_source =
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
 "(let-values()(check-list lst_240)))"
-"((letrec-values(((for-loop_316)"
-"(lambda(lst_407)"
+"((letrec-values(((for-loop_314)"
+"(lambda(lst_410)"
 "(begin"
 " 'for-loop"
-"(if(pair? lst_407)"
-"(let-values(((i_187)(unsafe-car lst_407))"
-"((rest_232)(unsafe-cdr lst_407)))"
+"(if(pair? lst_410)"
+"(let-values(((i_187)(unsafe-car lst_410))"
+"((rest_232)(unsafe-cdr lst_410)))"
 "(let-values((()"
 "(let-values()"
 "(let-values((()"
 "(let-values()"
 "(begin"
 "(let-values()"
-"(let-values(((id_147)"
+"(let-values(((id_148)"
 "(required-id i_187)))"
 "(let-values(((phase_147)"
 "(required-phase"
 " i_187)))"
-"(if(let-values(((or-part_397)"
+"(if(let-values(((or-part_400)"
 "(if matching-stx_0"
 "(not"
 "(if(eqv?"
 " phase_147"
 " at-phase_16)"
 "(free-identifier=?$1"
-" id_147"
+" id_148"
 "(datum->syntax$1"
 " matching-stx_0"
 "(syntax-e$1"
-" id_147))"
+" id_148))"
 " phase_147"
 " phase_147)"
 " #f))"
 " #f)))"
-"(if or-part_397"
-" or-part_397"
-"(let-values(((lst_408)"
+"(if or-part_400"
+" or-part_400"
+"(let-values(((lst_411)"
 " except-ids_1))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
@@ -69463,8 +69524,8 @@ static const char *startup_source =
 "(void)"
 "(let-values()"
 "(check-list"
-" lst_408)))"
-"((letrec-values(((for-loop_317)"
+" lst_411)))"
+"((letrec-values(((for-loop_315)"
 "(lambda(result_120"
 " lst_122)"
 "(begin"
@@ -69483,7 +69544,7 @@ static const char *startup_source =
 "(let-values()"
 "(let-values()"
 "(if(free-identifier=?$1"
-" id_147"
+" id_148"
 " except-id_0"
 " phase_147"
 " phase_147)"
@@ -69501,24 +69562,24 @@ static const char *startup_source =
 "(not"
 " #f)"
 " #f)"
-"(for-loop_317"
+"(for-loop_315"
 " result_121"
 " rest_233)"
 " result_121)))"
 " result_120)))))"
-" for-loop_317)"
+" for-loop_315)"
 " #f"
-" lst_408)))))"
+" lst_411)))))"
 "(void)"
 "(let-values()"
 "(let-values(((b_91)"
 "(resolve+shift/extra-inspector"
-" id_147"
+" id_148"
 " phase_147"
 " ns_126)))"
 "(let-values(((immed-b_1)"
 "(let-values(((id130_0)"
-" id_147)"
+" id_148)"
 "((phase131_0)"
 " phase_147)"
 "((temp132_2)"
@@ -69541,7 +69602,7 @@ static const char *startup_source =
 "((temp122_4)"
 "(add-prefix_1"
 "(syntax-e$1"
-" id_147)))"
+" id_148)))"
 "((phase123_0)"
 " phase_147)"
 "((b124_0)"
@@ -69549,17 +69610,17 @@ static const char *startup_source =
 "((immed-b125_0)"
 " immed-b_1)"
 "((id126_0)"
-" id_147)"
+" id_148)"
 "((orig-s127_0)"
-" orig-s_78)"
+" orig-s_79)"
 "((protected?128_0)"
 " protected?_19)"
-"((temp129_3)"
+"((temp129_2)"
 "(required-as-transformer?"
 " i_187)))"
 "(add-provide!107.1"
 " protected?128_0"
-" temp129_3"
+" temp129_2"
 " rp121_0"
 " temp122_4"
 " phase123_0"
@@ -69569,9 +69630,9 @@ static const char *startup_source =
 " orig-s127_0)))))))))"
 "(values)))))"
 "(values)))))"
-"(if(not #f)(for-loop_316 rest_232)(values))))"
+"(if(not #f)(for-loop_314 rest_232)(values))))"
 "(values))))))"
-" for-loop_316)"
+" for-loop_314)"
 " lst_240)))"
 "(void)"
 "(if(=(hash-count found_0)(length except-ids_1))"
@@ -69584,26 +69645,26 @@ static const char *startup_source =
 "(void)"
 "(let-values()(check-list lst_144)))"
 "((letrec-values(((for-loop_171)"
-"(lambda(lst_409)"
+"(lambda(lst_412)"
 "(begin"
 " 'for-loop"
-"(if(pair? lst_409)"
-"(let-values(((except-id_1)(unsafe-car lst_409))"
-"((rest_188)(unsafe-cdr lst_409)))"
+"(if(pair? lst_412)"
+"(let-values(((except-id_1)(unsafe-car lst_412))"
+"((rest_187)(unsafe-cdr lst_412)))"
 "(let-values((()"
 "(let-values()"
 "(let-values((()"
 "(let-values()"
 "(begin"
 "(let-values()"
-"(if(let-values(((or-part_398)"
+"(if(let-values(((or-part_401)"
 "(hash-ref"
 " found_0"
 " except-id_1"
 " #f)))"
-"(if or-part_398"
-" or-part_398"
-"(let-values(((lst_410)"
+"(if or-part_401"
+" or-part_401"
+"(let-values(((lst_413)"
 " requireds_2))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
@@ -69611,33 +69672,33 @@ static const char *startup_source =
 "(void)"
 "(let-values()"
 "(check-list"
-" lst_410)))"
-"((letrec-values(((for-loop_318)"
+" lst_413)))"
+"((letrec-values(((for-loop_316)"
 "(lambda(result_123"
-" lst_411)"
+" lst_414)"
 "(begin"
 " 'for-loop"
 "(if(pair?"
-" lst_411)"
+" lst_414)"
 "(let-values(((i_188)"
 "(unsafe-car"
-" lst_411))"
+" lst_414))"
 "((rest_234)"
 "(unsafe-cdr"
-" lst_411)))"
+" lst_414)))"
 "(let-values(((result_124)"
 "(let-values()"
 "(let-values(((result_125)"
 "(let-values()"
 "(let-values()"
-"(let-values(((id_148)"
+"(let-values(((id_149)"
 "(required-id"
 " i_188)))"
 "(let-values(((phase_60)"
 "(required-phase"
 " i_188)))"
 "(free-identifier=?$1"
-" id_148"
+" id_149"
 " except-id_1"
 " phase_60"
 " phase_60)))))))"
@@ -69650,14 +69711,14 @@ static const char *startup_source =
 "(not"
 " #f)"
 " #f)"
-"(for-loop_318"
+"(for-loop_316"
 " result_124"
 " rest_234)"
 " result_124)))"
 " result_123)))))"
-" for-loop_318)"
+" for-loop_316)"
 " #f"
-" lst_410)))))"
+" lst_413)))))"
 "(void)"
 "(let-values()"
 "(raise-syntax-error$1"
@@ -69667,11 +69728,11 @@ static const char *startup_source =
 "                                                                                                  \"excluded identifier was not defined or required in the module~a\""
 "                                                                                                  \"excluded identifier was not required from the specified module~a\")"
 "(phase-desc_0))"
-" orig-s_78"
+" orig-s_79"
 " except-id_1))))"
 "(values)))))"
 "(values)))))"
-"(if(not #f)(for-loop_171 rest_188)(values))))"
+"(if(not #f)(for-loop_171 rest_187)(values))))"
 "(values))))))"
 " for-loop_171)"
 " lst_144)))"
@@ -69685,12 +69746,12 @@ static const char *startup_source =
 "(begin"
 " 'check-body"
 "(begin"
-"(let-values(((lst_412) bodys_14))"
+"(let-values(((lst_415) bodys_14))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
-"(let-values()(check-list lst_412)))"
-"((letrec-values(((for-loop_319)"
+"(let-values()(check-list lst_415)))"
+"((letrec-values(((for-loop_317)"
 "(lambda(lst_83)"
 "(begin"
 " 'for-loop"
@@ -69738,29 +69799,29 @@ static const char *startup_source =
 " p_34))))))"
 "(values)))))"
 "(values)))))"
-"(if(not #f)(for-loop_319 rest_39)(values))))"
+"(if(not #f)(for-loop_317 rest_39)(values))))"
 "(values))))))"
-" for-loop_319)"
-" lst_412)))"
+" for-loop_317)"
+" lst_415)))"
 "(void)))))"
 "((check-expr_0)"
-"(lambda(e_89 num-results_0 enclosing_15)"
+"(lambda(e_90 num-results_0 enclosing_15)"
 "(begin"
 " 'check-expr"
-"(if(parsed-lambda? e_89)"
+"(if(parsed-lambda? e_90)"
 "(let-values()"
-"(begin(check-count 1 num-results_0 enclosing_15)(check-no-disallowed-expr_0 e_89)))"
-"(if(parsed-case-lambda? e_89)"
+"(begin(check-count 1 num-results_0 enclosing_15)(check-no-disallowed-expr_0 e_90)))"
+"(if(parsed-case-lambda? e_90)"
 "(let-values()"
-"(begin(check-count 1 num-results_0 enclosing_15)(check-no-disallowed-expr_0 e_89)))"
-"(if(parsed-quote? e_89)"
+"(begin(check-count 1 num-results_0 enclosing_15)(check-no-disallowed-expr_0 e_90)))"
+"(if(parsed-quote? e_90)"
 "(let-values()"
 "(begin"
-"(check-datum(parsed-quote-datum e_89) e_89)"
+"(check-datum(parsed-quote-datum e_90) e_90)"
 "(check-count 1 num-results_0 enclosing_15)))"
-"(if(parsed-app? e_89)"
+"(if(parsed-app? e_90)"
 "(let-values()"
-"(let-values(((rands_1)(parsed-app-rands e_89)))"
+"(let-values(((rands_1)(parsed-app-rands e_90)))"
 "(begin"
 "(let-values(((lst_77) rands_1))"
 "(begin"
@@ -69783,7 +69844,7 @@ static const char *startup_source =
 "(check-expr_0"
 " rand_0"
 " 1"
-" e_89))"
+" e_90))"
 "(values)))))"
 "(values)))))"
 "(if(not #f)(for-loop_69 rest_235)(values))))"
@@ -69791,7 +69852,7 @@ static const char *startup_source =
 " for-loop_69)"
 " lst_77)))"
 "(void)"
-"(let-values(((tmp_64)(cross-phase-primitive-name(parsed-app-rator e_89))))"
+"(let-values(((tmp_64)(cross-phase-primitive-name(parsed-app-rator e_90))))"
 "(if(if(equal? tmp_64 'cons) #t(equal? tmp_64 'list))"
 "(let-values()(check-count 1 num-results_0 enclosing_15))"
 "(if(equal? tmp_64 'make-struct-type)"
@@ -69800,21 +69861,21 @@ 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_399)(= 0(length rands_1))))"
-"(if or-part_399"
-" or-part_399"
+"(if(let-values(((or-part_402)(= 0(length rands_1))))"
+"(if or-part_402"
+" or-part_402"
 "(if(= 1(length rands_1))"
 "(quoted-string?(car rands_1))"
 " #f)))"
 "(void)"
-"(let-values()(disallow e_89))))"
+"(let-values()(disallow e_90))))"
 "(if(equal? tmp_64 'string->uninterned-symbol)"
 "(let-values()"
 "(if(if(= 1(length rands_1))(quoted-string?(car rands_1)) #f)"
 "(void)"
-"(let-values()(disallow e_89))))"
-"(let-values()(disallow e_89)))))))))))"
-"(let-values()(check-no-disallowed-expr_0 e_89)))))))))"
+"(let-values()(disallow e_90))))"
+"(let-values()(disallow e_90)))))))))))"
+"(let-values()(check-no-disallowed-expr_0 e_90)))))))))"
 "((check-no-disallowed-expr_0)"
 "(lambda(e_39)"
 "(begin"
@@ -69830,12 +69891,12 @@ static const char *startup_source =
 "(void)"
 "(let-values()(check-list lst_270)))"
 "((letrec-values(((for-loop_235)"
-"(lambda(lst_413)"
+"(lambda(lst_416)"
 "(begin"
 " 'for-loop"
-"(if(pair? lst_413)"
-"(let-values(((clause_4)(unsafe-car lst_413))"
-"((rest_236)(unsafe-cdr lst_413)))"
+"(if(pair? lst_416)"
+"(let-values(((clause_4)(unsafe-car lst_416))"
+"((rest_236)(unsafe-cdr lst_416)))"
 "(let-values((()"
 "(let-values()"
 "(let-values((()"
@@ -69865,8 +69926,8 @@ static const char *startup_source =
 "(begin"
 " 'for-loop"
 "(if(pair? lst_266)"
-"(let-values(((e_90)(unsafe-car lst_266))"
-"((rest_189)(unsafe-cdr lst_266)))"
+"(let-values(((e_91)(unsafe-car lst_266))"
+"((rest_188)(unsafe-cdr lst_266)))"
 "(let-values((()"
 "(let-values()"
 "(let-values((()"
@@ -69874,10 +69935,10 @@ static const char *startup_source =
 "(begin"
 "(let-values()"
 "(check-no-disallowed-expr_0"
-" e_90))"
+" e_91))"
 "(values)))))"
 "(values)))))"
-"(if(not #f)(for-loop_103 rest_189)(values))))"
+"(if(not #f)(for-loop_103 rest_188)(values))))"
 "(values))))))"
 " for-loop_103)"
 " lst_222)))"
@@ -69965,12 +70026,12 @@ static const char *startup_source =
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
 "(let-values()(check-list lst_80)))"
-"((letrec-values(((for-loop_320)"
+"((letrec-values(((for-loop_318)"
 "(lambda(lst_272)"
 "(begin"
 " 'for-loop"
 "(if(pair? lst_272)"
-"(let-values(((e_91)(unsafe-car lst_272))"
+"(let-values(((e_92)(unsafe-car lst_272))"
 "((rest_147)(unsafe-cdr lst_272)))"
 "(let-values((()"
 "(let-values()"
@@ -69979,12 +70040,12 @@ static const char *startup_source =
 "(begin"
 "(let-values()"
 "(check-no-disallowed-expr_0"
-" e_91))"
+" e_92))"
 "(values)))))"
 "(values)))))"
-"(if(not #f)(for-loop_320 rest_147)(values))))"
+"(if(not #f)(for-loop_318 rest_147)(values))))"
 "(values))))))"
-" for-loop_320)"
+" for-loop_318)"
 " lst_80)))"
 "(void))))))"
 "(check-body_0 bodys_13)))))"
@@ -69994,7 +70055,7 @@ static const char *startup_source =
 "(begin(if(= is-num_0 expected-num_0)(void)(let-values()(disallow enclosing_16))))))"
 "(define-values"
 "(check-datum)"
-"(lambda(d_37 e_92)"
+"(lambda(d_37 e_93)"
 "(begin"
 "(if(let-values(((or-part_158)(number? d_37)))"
 "(if or-part_158"
@@ -70010,17 +70071,17 @@ static const char *startup_source =
 " or-part_167"
 "(let-values(((or-part_168)(bytes? d_37)))(if or-part_168 or-part_168(null? d_37)))))))))))"
 "(let-values()(void))"
-"(let-values()(disallow e_92))))))"
+"(let-values()(disallow e_93))))))"
 "(define-values"
 "(quoted-string?)"
-"(lambda(e_93)(begin(if(parsed-quote? e_93)(string?(parsed-quote-datum e_93)) #f))))"
+"(lambda(e_94)(begin(if(parsed-quote? e_94)(string?(parsed-quote-datum e_94)) #f))))"
 "(define-values"
 "(cross-phase-primitive-name)"
-"(lambda(id_149)"
+"(lambda(id_150)"
 "(begin"
-"(if(parsed-id? id_149)"
+"(if(parsed-id? id_150)"
 "(let-values()"
-"(let-values(((b_92)(parsed-id-binding id_149)))"
+"(let-values(((b_92)(parsed-id-binding id_150)))"
 "(if(module-binding? b_92)"
 "(if(eq? runtime-module-name(1/module-path-index-resolve(module-binding-module b_92)))"
 "(module-binding-sym b_92)"
@@ -70038,100 +70099,100 @@ static const char *startup_source =
 "(void"
 "(add-core-form!*"
 " 'module"
-"(lambda(s_181 ctx_107)"
+"(lambda(s_181 ctx_106)"
 "(begin"
-"(if(eq?(expand-context-context ctx_107) 'top-level)"
+"(if(eq?(expand-context-context ctx_106) 'top-level)"
 "(void)"
 "(let-values()"
 "(begin"
-"(let-values(((obs_127)(expand-context-observer ctx_107)))"
-"(if obs_127(let-values()(let-values()(call-expand-observe obs_127 'prim-module)))(void)))"
+"(let-values(((obs_125)(expand-context-observer ctx_106)))"
+"(if obs_125(let-values()(let-values()(call-expand-observe obs_125 'prim-module)))(void)))"
 "             (raise-syntax-error$1 #f \"allowed only at the top level\" s_181))))"
 "(let-values()"
-"(let-values(((s223_0) s_181)((ctx224_0) ctx_107)((temp225_3) #f))"
-"(expand-module18.1 #f #f #f #f #f #f #f #f #f #f #f #f #f #f s223_0 ctx224_0 temp225_3)))))))"
+"(let-values(((s223_0) s_181)((ctx224_0) ctx_106)((temp225_2) #f))"
+"(expand-module18.1 #f #f #f #f #f #f #f #f #f #f #f #f #f #f s223_0 ctx224_0 temp225_2)))))))"
 "(void"
 "(add-core-form!*"
 " 'module*"
-"(lambda(s_304 ctx_108)"
+"(lambda(s_304 ctx_107)"
 "(begin"
-"(let-values(((obs_128)(expand-context-observer ctx_108)))"
-"(if obs_128(let-values()(let-values()(call-expand-observe obs_128 'prim-module)))(void)))"
+"(let-values(((obs_126)(expand-context-observer ctx_107)))"
+"(if obs_126(let-values()(let-values()(call-expand-observe obs_126 'prim-module)))(void)))"
 "       (raise-syntax-error$1 #f \"illegal use (not in a module top-level)\" s_304)))))"
 "(void"
 "(add-core-form!*"
 " '#%module-begin"
-"(lambda(s_81 ctx_109)"
+"(lambda(s_81 ctx_108)"
 "(begin"
-"(let-values(((obs_129)(expand-context-observer ctx_109)))"
-"(if obs_129(let-values()(let-values()(call-expand-observe obs_129 'prim-module-begin)))(void)))"
-"(if(eq?(expand-context-context ctx_109) 'module-begin)"
+"(let-values(((obs_127)(expand-context-observer ctx_108)))"
+"(if obs_127(let-values()(let-values()(call-expand-observe obs_127 'prim-module-begin)))(void)))"
+"(if(eq?(expand-context-context ctx_108) 'module-begin)"
 "(void)"
 "         (let-values () (raise-syntax-error$1 #f \"not in a module-definition context\" s_81)))"
-"(if(expand-context-module-begin-k ctx_109)"
+"(if(expand-context-module-begin-k ctx_108)"
 "(void)"
 "         (let-values () (raise-syntax-error$1 #f \"not currently transforming a module\" s_81)))"
-"((expand-context-module-begin-k ctx_109)"
+"((expand-context-module-begin-k ctx_108)"
 " s_81"
-"(let-values(((v_259) ctx_109))"
-"(let-values(((the-struct_101) v_259))"
-"(if(expand-context/outer? the-struct_101)"
+"(let-values(((v_259) ctx_108))"
+"(let-values(((the-struct_100) v_259))"
+"(if(expand-context/outer? the-struct_100)"
 "(let-values(((inner226_0)"
-"(let-values(((the-struct_102)(root-expand-context/outer-inner v_259)))"
-"(if(expand-context/inner? the-struct_102)"
+"(let-values(((the-struct_101)(root-expand-context/outer-inner v_259)))"
+"(if(expand-context/inner? the-struct_101)"
 "(let-values(((module-begin-k227_0) #f))"
 "(expand-context/inner2.1"
-"(root-expand-context/inner-self-mpi the-struct_102)"
-"(root-expand-context/inner-module-scopes the-struct_102)"
-"(root-expand-context/inner-top-level-bind-scope the-struct_102)"
-"(root-expand-context/inner-all-scopes-stx the-struct_102)"
-"(root-expand-context/inner-defined-syms the-struct_102)"
-"(root-expand-context/inner-counter the-struct_102)"
-"(root-expand-context/inner-lift-key the-struct_102)"
-"(expand-context/inner-to-parsed? the-struct_102)"
-"(expand-context/inner-phase the-struct_102)"
-"(expand-context/inner-namespace the-struct_102)"
-"(expand-context/inner-just-once? the-struct_102)"
+"(root-expand-context/inner-self-mpi the-struct_101)"
+"(root-expand-context/inner-module-scopes the-struct_101)"
+"(root-expand-context/inner-top-level-bind-scope the-struct_101)"
+"(root-expand-context/inner-all-scopes-stx the-struct_101)"
+"(root-expand-context/inner-defined-syms the-struct_101)"
+"(root-expand-context/inner-counter the-struct_101)"
+"(root-expand-context/inner-lift-key the-struct_101)"
+"(expand-context/inner-to-parsed? the-struct_101)"
+"(expand-context/inner-phase the-struct_101)"
+"(expand-context/inner-namespace the-struct_101)"
+"(expand-context/inner-just-once? the-struct_101)"
 " module-begin-k227_0"
-"(expand-context/inner-allow-unbound? the-struct_102)"
-"(expand-context/inner-in-local-expand? the-struct_102)"
-"(expand-context/inner-stops the-struct_102)"
-"(expand-context/inner-declared-submodule-names the-struct_102)"
-"(expand-context/inner-lifts the-struct_102)"
-"(expand-context/inner-lift-envs the-struct_102)"
-"(expand-context/inner-module-lifts the-struct_102)"
-"(expand-context/inner-require-lifts the-struct_102)"
-"(expand-context/inner-to-module-lifts the-struct_102)"
-"(expand-context/inner-requires+provides the-struct_102)"
-"(expand-context/inner-observer the-struct_102)"
-"(expand-context/inner-for-serializable? the-struct_102)"
-"(expand-context/inner-should-not-encounter-macros? the-struct_102)))"
-"                                (raise-argument-error 'struct-copy \"expand-context/inner?\" the-struct_102)))))"
+"(expand-context/inner-allow-unbound? the-struct_101)"
+"(expand-context/inner-in-local-expand? the-struct_101)"
+"(expand-context/inner-stops the-struct_101)"
+"(expand-context/inner-declared-submodule-names the-struct_101)"
+"(expand-context/inner-lifts the-struct_101)"
+"(expand-context/inner-lift-envs the-struct_101)"
+"(expand-context/inner-module-lifts the-struct_101)"
+"(expand-context/inner-require-lifts the-struct_101)"
+"(expand-context/inner-to-module-lifts the-struct_101)"
+"(expand-context/inner-requires+provides the-struct_101)"
+"(expand-context/inner-observer the-struct_101)"
+"(expand-context/inner-for-serializable? the-struct_101)"
+"(expand-context/inner-should-not-encounter-macros? the-struct_101)))"
+"                                (raise-argument-error 'struct-copy \"expand-context/inner?\" the-struct_101)))))"
 "(expand-context/outer1.1"
 " inner226_0"
-"(root-expand-context/outer-post-expansion-scope the-struct_101)"
-"(root-expand-context/outer-use-site-scopes the-struct_101)"
-"(root-expand-context/outer-frame-id the-struct_101)"
-"(expand-context/outer-context the-struct_101)"
-"(expand-context/outer-env the-struct_101)"
-"(expand-context/outer-post-expansion-scope-action the-struct_101)"
-"(expand-context/outer-scopes the-struct_101)"
-"(expand-context/outer-def-ctx-scopes the-struct_101)"
-"(expand-context/outer-binding-layer the-struct_101)"
-"(expand-context/outer-reference-records the-struct_101)"
-"(expand-context/outer-only-immediate? the-struct_101)"
-"(expand-context/outer-need-eventually-defined the-struct_101)"
-"(expand-context/outer-current-introduction-scopes the-struct_101)"
-"(expand-context/outer-name the-struct_101)))"
-"              (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_101)))))))))"
+"(root-expand-context/outer-post-expansion-scope the-struct_100)"
+"(root-expand-context/outer-use-site-scopes the-struct_100)"
+"(root-expand-context/outer-frame-id the-struct_100)"
+"(expand-context/outer-context the-struct_100)"
+"(expand-context/outer-env the-struct_100)"
+"(expand-context/outer-post-expansion-scope-action the-struct_100)"
+"(expand-context/outer-scopes the-struct_100)"
+"(expand-context/outer-def-ctx-scopes the-struct_100)"
+"(expand-context/outer-binding-layer the-struct_100)"
+"(expand-context/outer-reference-records the-struct_100)"
+"(expand-context/outer-only-immediate? the-struct_100)"
+"(expand-context/outer-need-eventually-defined the-struct_100)"
+"(expand-context/outer-current-introduction-scopes the-struct_100)"
+"(expand-context/outer-name the-struct_100)))"
+"              (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_100)))))))))"
 "(void"
 "(add-core-form!*"
 " '#%declare"
-"(lambda(s_722 ctx_110)"
+"(lambda(s_734 ctx_109)"
 "(begin"
-"(let-values(((obs_130)(expand-context-observer ctx_110)))"
-"(if obs_130(let-values()(let-values()(call-expand-observe obs_130 'prim-declare)))(void)))"
-"       (raise-syntax-error$1 #f \"not allowed outside of a module body\" s_722)))))"
+"(let-values(((obs_128)(expand-context-observer ctx_109)))"
+"(if obs_128(let-values()(let-values()(call-expand-observe obs_128 'prim-declare)))(void)))"
+"       (raise-syntax-error$1 #f \"not allowed outside of a module body\" s_734)))))"
 "(define-values"
 "(expand-module18.1)"
 "(lambda(always-produce-compiled?1_0"
@@ -70182,55 +70243,55 @@ static const char *startup_source =
 "(values))))"
 "(let-values(((disarmed-s_24)(syntax-disarm$1 s_16)))"
 "(let-values(((ok?_72 module228_0 id:module-name229_0 initial-require230_0 body231_0)"
-"(let-values(((s_756) disarmed-s_24))"
-"(let-values(((orig-s_79) s_756))"
+"(let-values(((s_497) disarmed-s_24))"
+"(let-values(((orig-s_80) s_497))"
 "(let-values(((module228_1"
 " id:module-name229_1"
 " initial-require230_1"
 " body231_1)"
 "(let-values(((s_312)"
-"(if(syntax?$1 s_756)"
-"(syntax-e$1 s_756)"
-" s_756)))"
+"(if(syntax?$1 s_497)"
+"(syntax-e$1 s_497)"
+" s_497)))"
 "(if(pair? s_312)"
 "(let-values(((module232_0)"
-"(let-values(((s_495)(car s_312)))"
-" s_495))"
+"(let-values(((s_498)(car s_312)))"
+" s_498))"
 "((id:module-name233_0"
 " initial-require234_0"
 " body235_0)"
-"(let-values(((s_725)(cdr s_312)))"
-"(let-values(((s_757)"
-"(if(syntax?$1 s_725)"
-"(syntax-e$1 s_725)"
-" s_725)))"
-"(if(pair? s_757)"
+"(let-values(((s_737)(cdr s_312)))"
+"(let-values(((s_766)"
+"(if(syntax?$1 s_737)"
+"(syntax-e$1 s_737)"
+" s_737)))"
+"(if(pair? s_766)"
 "(let-values(((id:module-name236_0)"
 "(let-values(((s_483)"
 "(car"
-" s_757)))"
-"(if(let-values(((or-part_369)"
+" s_766)))"
+"(if(let-values(((or-part_373)"
 "(if(syntax?$1"
 " s_483)"
 "(symbol?"
 "(syntax-e$1"
 " s_483))"
 " #f)))"
-"(if or-part_369"
-" or-part_369"
+"(if or-part_373"
+" or-part_373"
 "(symbol?"
 " s_483)))"
 " s_483"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                           \"not an identifier\""
-" orig-s_79"
+" orig-s_80"
 " s_483))))"
 "((initial-require237_0"
 " body238_0)"
 "(let-values(((s_54)"
 "(cdr"
-" s_757)))"
+" s_766)))"
 "(let-values(((s_314)"
 "(if(syntax?$1"
 " s_54)"
@@ -70263,7 +70324,7 @@ static const char *startup_source =
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                     \"bad syntax\""
-" orig-s_79))"
+" orig-s_80))"
 "(let-values()"
 " flat-s_51)))))))"
 "(values"
@@ -70272,7 +70333,7 @@ static const char *startup_source =
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                             \"bad syntax\""
-" orig-s_79))))))"
+" orig-s_80))))))"
 "(values"
 " id:module-name236_0"
 " initial-require237_0"
@@ -70280,13 +70341,13 @@ static const char *startup_source =
 "(raise-syntax-error$1"
 " #f"
 "                                                                                         \"bad syntax\""
-" orig-s_79))))))"
+" orig-s_80))))))"
 "(values"
 " module232_0"
 " id:module-name233_0"
 " initial-require234_0"
 " body235_0))"
-"                                                                    (raise-syntax-error$1 #f \"bad syntax\" orig-s_79)))))"
+"                                                                    (raise-syntax-error$1 #f \"bad syntax\" orig-s_80)))))"
 "(values"
 " #t"
 " module228_1"
@@ -70295,18 +70356,18 @@ static const char *startup_source =
 " body231_1))))))"
 "(let-values(((rebuild-s_14)"
 "(let-values(((init-ctx253_0) init-ctx_0)"
-"((s254_1) s_16)"
-"((temp255_1) #t)"
+"((s254_0) s_16)"
+"((temp255_0) #t)"
 "((temp256_0) #t))"
 "(keep-as-needed74.1"
 " #f"
 " #f"
 " temp256_0"
 " #t"
-" temp255_1"
+" temp255_0"
 " #t"
 " init-ctx253_0"
-" s254_1))))"
+" s254_0))))"
 "(let-values(((initial-require_0)(syntax->datum$1 initial-require230_0)))"
 "(let-values((()"
 "(begin"
@@ -70427,30 +70488,30 @@ static const char *startup_source =
 "(let-values()"
 "(let-values()"
 "(let-values(((m-ns_19)"
-"(let-values(((temp266_0)"
+"(let-values(((temp266_1)"
 "(expand-context-namespace"
 " init-ctx_0)))"
 "(make-m-ns244_0"
 " #f"
 " #f"
-" temp266_0))))"
-"(let-values(((ctx_82)"
+" temp266_1))))"
+"(let-values(((ctx_110)"
 "(let-values(((v_102)"
 "(copy-root-expand-context"
 " init-ctx_0"
 " root-ctx_6)))"
-"(let-values(((the-struct_103)"
+"(let-values(((the-struct_102)"
 " v_102))"
 "(if(expand-context/outer?"
-" the-struct_103)"
+" the-struct_102)"
 "(let-values(((post-expansion-scope-action267_0)"
 " add-scope)"
 "((inner268_0)"
-"(let-values(((the-struct_104)"
+"(let-values(((the-struct_103)"
 "(root-expand-context/outer-inner"
 " v_102)))"
 "(if(expand-context/inner?"
-" the-struct_104)"
+" the-struct_103)"
 "(let-values(((allow-unbound?269_0)"
 " #f)"
 "((namespace270_0)"
@@ -70461,118 +70522,118 @@ static const char *startup_source =
 " #f))"
 "(expand-context/inner2.1"
 "(root-expand-context/inner-self-mpi"
-" the-struct_104)"
+" the-struct_103)"
 "(root-expand-context/inner-module-scopes"
-" the-struct_104)"
+" the-struct_103)"
 "(root-expand-context/inner-top-level-bind-scope"
-" the-struct_104)"
+" the-struct_103)"
 "(root-expand-context/inner-all-scopes-stx"
-" the-struct_104)"
+" the-struct_103)"
 "(root-expand-context/inner-defined-syms"
-" the-struct_104)"
+" the-struct_103)"
 "(root-expand-context/inner-counter"
-" the-struct_104)"
+" the-struct_103)"
 "(root-expand-context/inner-lift-key"
-" the-struct_104)"
+" the-struct_103)"
 "(expand-context/inner-to-parsed?"
-" the-struct_104)"
+" the-struct_103)"
 " phase271_0"
 " namespace270_0"
 " just-once?272_0"
 "(expand-context/inner-module-begin-k"
-" the-struct_104)"
+" the-struct_103)"
 " allow-unbound?269_0"
 "(expand-context/inner-in-local-expand?"
-" the-struct_104)"
+" the-struct_103)"
 "(expand-context/inner-stops"
-" the-struct_104)"
+" the-struct_103)"
 "(expand-context/inner-declared-submodule-names"
-" the-struct_104)"
+" the-struct_103)"
 "(expand-context/inner-lifts"
-" the-struct_104)"
+" the-struct_103)"
 "(expand-context/inner-lift-envs"
-" the-struct_104)"
+" the-struct_103)"
 "(expand-context/inner-module-lifts"
-" the-struct_104)"
+" the-struct_103)"
 "(expand-context/inner-require-lifts"
-" the-struct_104)"
+" the-struct_103)"
 "(expand-context/inner-to-module-lifts"
-" the-struct_104)"
+" the-struct_103)"
 "(expand-context/inner-requires+provides"
-" the-struct_104)"
+" the-struct_103)"
 "(expand-context/inner-observer"
-" the-struct_104)"
+" the-struct_103)"
 "(expand-context/inner-for-serializable?"
-" the-struct_104)"
+" the-struct_103)"
 "(expand-context/inner-should-not-encounter-macros?"
-" the-struct_104)))"
-"(raise-argument-error"
-" 'struct-copy"
-"                                                                                                                 \"expand-context/inner?\""
-" the-struct_104)))))"
-"(expand-context/outer1.1"
-" inner268_0"
-"(root-expand-context/outer-post-expansion-scope"
-" the-struct_103)"
-"(root-expand-context/outer-use-site-scopes"
-" the-struct_103)"
-"(root-expand-context/outer-frame-id"
-" the-struct_103)"
-"(expand-context/outer-context"
-" the-struct_103)"
-"(expand-context/outer-env"
-" the-struct_103)"
-" post-expansion-scope-action267_0"
-"(expand-context/outer-scopes"
-" the-struct_103)"
-"(expand-context/outer-def-ctx-scopes"
-" the-struct_103)"
-"(expand-context/outer-binding-layer"
-" the-struct_103)"
-"(expand-context/outer-reference-records"
-" the-struct_103)"
-"(expand-context/outer-only-immediate?"
-" the-struct_103)"
-"(expand-context/outer-need-eventually-defined"
-" the-struct_103)"
-"(expand-context/outer-current-introduction-scopes"
-" the-struct_103)"
-"(expand-context/outer-name"
 " the-struct_103)))"
 "(raise-argument-error"
 " 'struct-copy"
+"                                                                                                                 \"expand-context/inner?\""
+" the-struct_103)))))"
+"(expand-context/outer1.1"
+" inner268_0"
+"(root-expand-context/outer-post-expansion-scope"
+" the-struct_102)"
+"(root-expand-context/outer-use-site-scopes"
+" the-struct_102)"
+"(root-expand-context/outer-frame-id"
+" the-struct_102)"
+"(expand-context/outer-context"
+" the-struct_102)"
+"(expand-context/outer-env"
+" the-struct_102)"
+" post-expansion-scope-action267_0"
+"(expand-context/outer-scopes"
+" the-struct_102)"
+"(expand-context/outer-def-ctx-scopes"
+" the-struct_102)"
+"(expand-context/outer-binding-layer"
+" the-struct_102)"
+"(expand-context/outer-reference-records"
+" the-struct_102)"
+"(expand-context/outer-only-immediate?"
+" the-struct_102)"
+"(expand-context/outer-need-eventually-defined"
+" the-struct_102)"
+"(expand-context/outer-current-introduction-scopes"
+" the-struct_102)"
+"(expand-context/outer-name"
+" the-struct_102)))"
+"(raise-argument-error"
+" 'struct-copy"
 "                                                                                               \"expand-context/outer?\""
-" the-struct_103))))))"
+" the-struct_102))))))"
 "(let-values(((bodys_15)"
 "(let-values(((scoped-s_0)"
 "(apply-module-scopes_0"
 " disarmed-s_24)))"
 "(let-values(((ok?_73"
-" _273_0"
-" _274_0"
-" _275_0"
-" body276_0)"
-"(let-values(((s_758)"
-" scoped-s_0))"
-"(let-values(((orig-s_80)"
-" s_758))"
-"(let-values(((_273_1"
+" _273_1"
 " _274_1"
 " _275_1"
+" body276_0)"
+"(let-values(((s_767)"
+" scoped-s_0))"
+"(let-values(((orig-s_81)"
+" s_767))"
+"(let-values(((_273_2"
+" _274_2"
+" _275_2"
 " body276_1)"
 "(let-values(((s_88)"
 "(if(syntax?$1"
-" s_758)"
+" s_767)"
 "(syntax-e$1"
-" s_758)"
-" s_758)))"
+" s_767)"
+" s_767)))"
 "(if(pair?"
 " s_88)"
-"(let-values(((_277_0)"
-"(let-values(((s_735)"
+"(let-values(((_277_1)"
+"(let-values(((s_747)"
 "(car"
 " s_88)))"
-" s_735))"
+" s_747))"
 "((_278_0"
 " _279_0"
 " body280_0)"
@@ -70629,7 +70690,7 @@ static const char *startup_source =
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                                 \"bad syntax\""
-" orig-s_80))"
+" orig-s_81))"
 "(let-values()"
 " flat-s_52)))))))"
 "(values"
@@ -70638,7 +70699,7 @@ static const char *startup_source =
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                         \"bad syntax\""
-" orig-s_80))))))"
+" orig-s_81))))))"
 "(values"
 " _281_0"
 " _282_0"
@@ -70646,21 +70707,21 @@ static const char *startup_source =
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                     \"bad syntax\""
-" orig-s_80))))))"
+" orig-s_81))))))"
 "(values"
-" _277_0"
+" _277_1"
 " _278_0"
 " _279_0"
 " body280_0))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                 \"bad syntax\""
-" orig-s_80)))))"
+" orig-s_81)))))"
 "(values"
 " #t"
-" _273_1"
-" _274_1"
-" _275_1"
+" _273_2"
+" _274_2"
+" _275_2"
 " body276_1))))))"
 " body276_0))))"
 "(let-values(((requires+provides_6)"
@@ -70747,14 +70808,14 @@ static const char *startup_source =
 "(let-values()"
 "(let-values((()"
 "(begin"
-"(let-values(((obs_131)"
+"(let-values(((obs_129)"
 "(expand-context-observer"
 " init-ctx_0)))"
-"(if obs_131"
+"(if obs_129"
 "(let-values()"
 "(let-values()"
 "(call-expand-observe"
-" obs_131"
+" obs_129"
 " 'prepare-env)))"
 "(void)))"
 "(values))))"
@@ -70798,16 +70859,16 @@ static const char *startup_source =
 "(let-values(((ctx_111)"
 "(let-values(((v_260)"
 " mb-init-ctx_0))"
-"(let-values(((the-struct_105)"
+"(let-values(((the-struct_104)"
 " v_260))"
 "(if(expand-context/outer?"
-" the-struct_105)"
+" the-struct_104)"
 "(let-values(((inner306_0)"
-"(let-values(((the-struct_106)"
+"(let-values(((the-struct_105)"
 "(root-expand-context/outer-inner"
 " v_260)))"
 "(if(expand-context/inner?"
-" the-struct_106)"
+" the-struct_105)"
 "(let-values(((module-begin-k307_0)"
 "(lambda(s_113"
 " ctx_112)"
@@ -70858,106 +70919,106 @@ static const char *startup_source =
 " compiled-module-box310_0))))))))))"
 "(expand-context/inner2.1"
 "(root-expand-context/inner-self-mpi"
-" the-struct_106)"
+" the-struct_105)"
 "(root-expand-context/inner-module-scopes"
-" the-struct_106)"
+" the-struct_105)"
 "(root-expand-context/inner-top-level-bind-scope"
-" the-struct_106)"
+" the-struct_105)"
 "(root-expand-context/inner-all-scopes-stx"
-" the-struct_106)"
+" the-struct_105)"
 "(root-expand-context/inner-defined-syms"
-" the-struct_106)"
+" the-struct_105)"
 "(root-expand-context/inner-counter"
-" the-struct_106)"
+" the-struct_105)"
 "(root-expand-context/inner-lift-key"
-" the-struct_106)"
+" the-struct_105)"
 "(expand-context/inner-to-parsed?"
-" the-struct_106)"
+" the-struct_105)"
 "(expand-context/inner-phase"
-" the-struct_106)"
+" the-struct_105)"
 "(expand-context/inner-namespace"
-" the-struct_106)"
+" the-struct_105)"
 "(expand-context/inner-just-once?"
-" the-struct_106)"
+" the-struct_105)"
 " module-begin-k307_0"
 "(expand-context/inner-allow-unbound?"
-" the-struct_106)"
+" the-struct_105)"
 "(expand-context/inner-in-local-expand?"
-" the-struct_106)"
+" the-struct_105)"
 "(expand-context/inner-stops"
-" the-struct_106)"
+" the-struct_105)"
 "(expand-context/inner-declared-submodule-names"
-" the-struct_106)"
+" the-struct_105)"
 "(expand-context/inner-lifts"
-" the-struct_106)"
+" the-struct_105)"
 "(expand-context/inner-lift-envs"
-" the-struct_106)"
+" the-struct_105)"
 "(expand-context/inner-module-lifts"
-" the-struct_106)"
+" the-struct_105)"
 "(expand-context/inner-require-lifts"
-" the-struct_106)"
+" the-struct_105)"
 "(expand-context/inner-to-module-lifts"
-" the-struct_106)"
+" the-struct_105)"
 "(expand-context/inner-requires+provides"
-" the-struct_106)"
+" the-struct_105)"
 "(expand-context/inner-observer"
-" the-struct_106)"
+" the-struct_105)"
 "(expand-context/inner-for-serializable?"
-" the-struct_106)"
+" the-struct_105)"
 "(expand-context/inner-should-not-encounter-macros?"
-" the-struct_106)))"
-"(raise-argument-error"
-" 'struct-copy"
-"                                                                                                                                                                    \"expand-context/inner?\""
-" the-struct_106)))))"
-"(expand-context/outer1.1"
-" inner306_0"
-"(root-expand-context/outer-post-expansion-scope"
-" the-struct_105)"
-"(root-expand-context/outer-use-site-scopes"
-" the-struct_105)"
-"(root-expand-context/outer-frame-id"
-" the-struct_105)"
-"(expand-context/outer-context"
-" the-struct_105)"
-"(expand-context/outer-env"
-" the-struct_105)"
-"(expand-context/outer-post-expansion-scope-action"
-" the-struct_105)"
-"(expand-context/outer-scopes"
-" the-struct_105)"
-"(expand-context/outer-def-ctx-scopes"
-" the-struct_105)"
-"(expand-context/outer-binding-layer"
-" the-struct_105)"
-"(expand-context/outer-reference-records"
-" the-struct_105)"
-"(expand-context/outer-only-immediate?"
-" the-struct_105)"
-"(expand-context/outer-need-eventually-defined"
-" the-struct_105)"
-"(expand-context/outer-current-introduction-scopes"
-" the-struct_105)"
-"(expand-context/outer-name"
 " the-struct_105)))"
 "(raise-argument-error"
 " 'struct-copy"
+"                                                                                                                                                                    \"expand-context/inner?\""
+" the-struct_105)))))"
+"(expand-context/outer1.1"
+" inner306_0"
+"(root-expand-context/outer-post-expansion-scope"
+" the-struct_104)"
+"(root-expand-context/outer-use-site-scopes"
+" the-struct_104)"
+"(root-expand-context/outer-frame-id"
+" the-struct_104)"
+"(expand-context/outer-context"
+" the-struct_104)"
+"(expand-context/outer-env"
+" the-struct_104)"
+"(expand-context/outer-post-expansion-scope-action"
+" the-struct_104)"
+"(expand-context/outer-scopes"
+" the-struct_104)"
+"(expand-context/outer-def-ctx-scopes"
+" the-struct_104)"
+"(expand-context/outer-binding-layer"
+" the-struct_104)"
+"(expand-context/outer-reference-records"
+" the-struct_104)"
+"(expand-context/outer-only-immediate?"
+" the-struct_104)"
+"(expand-context/outer-need-eventually-defined"
+" the-struct_104)"
+"(expand-context/outer-current-introduction-scopes"
+" the-struct_104)"
+"(expand-context/outer-name"
+" the-struct_104)))"
+"(raise-argument-error"
+" 'struct-copy"
 "                                                                                                                                                  \"expand-context/outer?\""
-" the-struct_105))))))"
+" the-struct_104))))))"
 "(let-values(((added-s_2)"
 "(add-scope"
 " mb-s_0"
 " inside-scope_0)))"
 "(let-values((()"
 "(begin"
-"(let-values(((obs_132)"
+"(let-values(((obs_130)"
 "(expand-context-observer"
 " ctx_111)))"
-"(if obs_132"
+"(if obs_130"
 "(let-values()"
 "(let-values()"
 "(call-expand-observe"
-" obs_132"
+" obs_130"
 " 'rename-one"
 " added-s_2)))"
 "(void)))"
@@ -70970,7 +71031,7 @@ static const char *startup_source =
 " body302_0)"
 "(let-values(((s_216)"
 " disarmed-mb-s_0))"
-"(let-values(((orig-s_81)"
+"(let-values(((orig-s_82)"
 " s_216))"
 "(let-values(((#%module-begin301_1"
 " body302_1)"
@@ -70983,20 +71044,20 @@ static const char *startup_source =
 "(if(pair?"
 " s_218)"
 "(let-values(((#%module-begin303_0)"
-"(let-values(((s_742)"
+"(let-values(((s_755)"
 "(car"
 " s_218)))"
-" s_742))"
-"((body304_1)"
-"(let-values(((s_759)"
+" s_755))"
+"((body304_0)"
+"(let-values(((s_768)"
 "(cdr"
 " s_218)))"
 "(let-values(((s_117)"
 "(if(syntax?$1"
-" s_759)"
+" s_768)"
 "(syntax-e$1"
-" s_759)"
-" s_759)))"
+" s_768)"
+" s_768)))"
 "(let-values(((flat-s_53)"
 "(to-syntax-list.1"
 " s_117)))"
@@ -71006,16 +71067,16 @@ static const char *startup_source =
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                                  \"bad syntax\""
-" orig-s_81))"
+" orig-s_82))"
 "(let-values()"
 " flat-s_53)))))))"
 "(values"
 " #%module-begin303_0"
-" body304_1))"
+" body304_0))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                          \"bad syntax\""
-" orig-s_81)))))"
+" orig-s_82)))))"
 "(values"
 " #t"
 " #%module-begin301_1"
@@ -71059,10 +71120,10 @@ static const char *startup_source =
 "(let-values(((partial-body-ctx_0)"
 "(let-values(((v_261)"
 " ctx_111))"
-"(let-values(((the-struct_107)"
+"(let-values(((the-struct_106)"
 " v_261))"
 "(if(expand-context/outer?"
-" the-struct_107)"
+" the-struct_106)"
 "(let-values(((context326_0)"
 " 'module)"
 "((def-ctx-scopes327_0)"
@@ -71070,11 +71131,11 @@ static const char *startup_source =
 "((need-eventually-defined328_0)"
 " need-eventually-defined_1)"
 "((inner329_0)"
-"(let-values(((the-struct_108)"
+"(let-values(((the-struct_107)"
 "(root-expand-context/outer-inner"
 " v_261)))"
 "(if(expand-context/inner?"
-" the-struct_108)"
+" the-struct_107)"
 "(let-values(((phase330_0)"
 " phase_149)"
 "((namespace331_0)"
@@ -71136,81 +71197,81 @@ static const char *startup_source =
 " phase344_0))))"
 "(expand-context/inner2.1"
 "(root-expand-context/inner-self-mpi"
-" the-struct_108)"
+" the-struct_107)"
 "(root-expand-context/inner-module-scopes"
-" the-struct_108)"
+" the-struct_107)"
 "(root-expand-context/inner-top-level-bind-scope"
-" the-struct_108)"
+" the-struct_107)"
 "(root-expand-context/inner-all-scopes-stx"
-" the-struct_108)"
+" the-struct_107)"
 "(root-expand-context/inner-defined-syms"
-" the-struct_108)"
+" the-struct_107)"
 "(root-expand-context/inner-counter"
-" the-struct_108)"
+" the-struct_107)"
 " lift-key334_0"
 "(expand-context/inner-to-parsed?"
-" the-struct_108)"
+" the-struct_107)"
 " phase330_0"
 " namespace331_0"
 "(expand-context/inner-just-once?"
-" the-struct_108)"
+" the-struct_107)"
 "(expand-context/inner-module-begin-k"
-" the-struct_108)"
+" the-struct_107)"
 "(expand-context/inner-allow-unbound?"
-" the-struct_108)"
+" the-struct_107)"
 "(expand-context/inner-in-local-expand?"
-" the-struct_108)"
+" the-struct_107)"
 " stops332_0"
 " declared-submodule-names333_0"
 " lifts335_0"
 "(expand-context/inner-lift-envs"
-" the-struct_108)"
+" the-struct_107)"
 " module-lifts336_0"
 " require-lifts337_0"
 " to-module-lifts338_0"
 "(expand-context/inner-requires+provides"
-" the-struct_108)"
+" the-struct_107)"
 "(expand-context/inner-observer"
-" the-struct_108)"
+" the-struct_107)"
 "(expand-context/inner-for-serializable?"
-" the-struct_108)"
+" the-struct_107)"
 "(expand-context/inner-should-not-encounter-macros?"
-" the-struct_108)))"
-"(raise-argument-error"
-" 'struct-copy"
-"                                                                                                                                                                                                                                  \"expand-context/inner?\""
-" the-struct_108)))))"
-"(expand-context/outer1.1"
-" inner329_0"
-"(root-expand-context/outer-post-expansion-scope"
-" the-struct_107)"
-"(root-expand-context/outer-use-site-scopes"
-" the-struct_107)"
-"(root-expand-context/outer-frame-id"
-" the-struct_107)"
-" context326_0"
-"(expand-context/outer-env"
-" the-struct_107)"
-"(expand-context/outer-post-expansion-scope-action"
-" the-struct_107)"
-"(expand-context/outer-scopes"
-" the-struct_107)"
-" def-ctx-scopes327_0"
-"(expand-context/outer-binding-layer"
-" the-struct_107)"
-"(expand-context/outer-reference-records"
-" the-struct_107)"
-"(expand-context/outer-only-immediate?"
-" the-struct_107)"
-" need-eventually-defined328_0"
-"(expand-context/outer-current-introduction-scopes"
-" the-struct_107)"
-"(expand-context/outer-name"
 " the-struct_107)))"
 "(raise-argument-error"
 " 'struct-copy"
+"                                                                                                                                                                                                                                  \"expand-context/inner?\""
+" the-struct_107)))))"
+"(expand-context/outer1.1"
+" inner329_0"
+"(root-expand-context/outer-post-expansion-scope"
+" the-struct_106)"
+"(root-expand-context/outer-use-site-scopes"
+" the-struct_106)"
+"(root-expand-context/outer-frame-id"
+" the-struct_106)"
+" context326_0"
+"(expand-context/outer-env"
+" the-struct_106)"
+"(expand-context/outer-post-expansion-scope-action"
+" the-struct_106)"
+"(expand-context/outer-scopes"
+" the-struct_106)"
+" def-ctx-scopes327_0"
+"(expand-context/outer-binding-layer"
+" the-struct_106)"
+"(expand-context/outer-reference-records"
+" the-struct_106)"
+"(expand-context/outer-only-immediate?"
+" the-struct_106)"
+" need-eventually-defined328_0"
+"(expand-context/outer-current-introduction-scopes"
+" the-struct_106)"
+"(expand-context/outer-name"
+" the-struct_106)))"
+"(raise-argument-error"
+" 'struct-copy"
 "                                                                                                                                                                                                                \"expand-context/outer?\""
-" the-struct_107))))))"
+" the-struct_106))))))"
 "(let-values(((partially-expanded-bodys_0)"
 "(let-values(((bodys347_0)"
 " bodys_17)"
@@ -71263,14 +71324,14 @@ static const char *startup_source =
 " bodys347_0))))"
 "(let-values((()"
 "(begin"
-"(let-values(((obs_133)"
+"(let-values(((obs_131)"
 "(expand-context-observer"
 " partial-body-ctx_0)))"
-"(if obs_133"
+"(if obs_131"
 "(let-values()"
 "(let-values()"
 "(call-expand-observe"
-" obs_133"
+" obs_131"
 " 'next-group)))"
 "(void)))"
 "(values))))"
@@ -71279,20 +71340,20 @@ static const char *startup_source =
 "(accumulate-def-ctx-scopes"
 " partial-body-ctx_0"
 " def-ctx-scopes_8)))"
-"(let-values(((the-struct_109)"
+"(let-values(((the-struct_108)"
 " v_262))"
 "(if(expand-context/outer?"
-" the-struct_109)"
+" the-struct_108)"
 "(let-values(((def-ctx-scopes363_0)"
 " #f)"
 "((post-expansion-scope364_0)"
 " #f)"
 "((inner365_0)"
-"(let-values(((the-struct_110)"
+"(let-values(((the-struct_109)"
 "(root-expand-context/outer-inner"
 " v_262)))"
 "(if(expand-context/inner?"
-" the-struct_110)"
+" the-struct_109)"
 "(let-values(((stops366_0)"
 " empty-free-id-set)"
 "((to-module-lifts367_0)"
@@ -71300,97 +71361,97 @@ static const char *startup_source =
 " phase_149)"
 "((module-ends369_0)"
 " module-ends_0)"
-"((temp370_1)"
+"((temp370_0)"
 " #t))"
 "(make-to-module-lift-context27.1"
-" temp370_1"
+" temp370_0"
 " module-ends369_0"
 " phase368_0))))"
 "(expand-context/inner2.1"
 "(root-expand-context/inner-self-mpi"
-" the-struct_110)"
+" the-struct_109)"
 "(root-expand-context/inner-module-scopes"
-" the-struct_110)"
+" the-struct_109)"
 "(root-expand-context/inner-top-level-bind-scope"
-" the-struct_110)"
+" the-struct_109)"
 "(root-expand-context/inner-all-scopes-stx"
-" the-struct_110)"
+" the-struct_109)"
 "(root-expand-context/inner-defined-syms"
-" the-struct_110)"
+" the-struct_109)"
 "(root-expand-context/inner-counter"
-" the-struct_110)"
+" the-struct_109)"
 "(root-expand-context/inner-lift-key"
-" the-struct_110)"
+" the-struct_109)"
 "(expand-context/inner-to-parsed?"
-" the-struct_110)"
+" the-struct_109)"
 "(expand-context/inner-phase"
-" the-struct_110)"
+" the-struct_109)"
 "(expand-context/inner-namespace"
-" the-struct_110)"
+" the-struct_109)"
 "(expand-context/inner-just-once?"
-" the-struct_110)"
+" the-struct_109)"
 "(expand-context/inner-module-begin-k"
-" the-struct_110)"
+" the-struct_109)"
 "(expand-context/inner-allow-unbound?"
-" the-struct_110)"
+" the-struct_109)"
 "(expand-context/inner-in-local-expand?"
-" the-struct_110)"
+" the-struct_109)"
 " stops366_0"
 "(expand-context/inner-declared-submodule-names"
-" the-struct_110)"
+" the-struct_109)"
 "(expand-context/inner-lifts"
-" the-struct_110)"
+" the-struct_109)"
 "(expand-context/inner-lift-envs"
-" the-struct_110)"
+" the-struct_109)"
 "(expand-context/inner-module-lifts"
-" the-struct_110)"
+" the-struct_109)"
 "(expand-context/inner-require-lifts"
-" the-struct_110)"
+" the-struct_109)"
 " to-module-lifts367_0"
 "(expand-context/inner-requires+provides"
-" the-struct_110)"
+" the-struct_109)"
 "(expand-context/inner-observer"
-" the-struct_110)"
+" the-struct_109)"
 "(expand-context/inner-for-serializable?"
-" the-struct_110)"
+" the-struct_109)"
 "(expand-context/inner-should-not-encounter-macros?"
-" the-struct_110)))"
+" the-struct_109)))"
 "(raise-argument-error"
 " 'struct-copy"
 "                                                                                                                                                                                                                                        \"expand-context/inner?\""
-" the-struct_110)))))"
+" the-struct_109)))))"
 "(expand-context/outer1.1"
 " inner365_0"
 " post-expansion-scope364_0"
 "(root-expand-context/outer-use-site-scopes"
-" the-struct_109)"
+" the-struct_108)"
 "(root-expand-context/outer-frame-id"
-" the-struct_109)"
+" the-struct_108)"
 "(expand-context/outer-context"
-" the-struct_109)"
+" the-struct_108)"
 "(expand-context/outer-env"
-" the-struct_109)"
+" the-struct_108)"
 "(expand-context/outer-post-expansion-scope-action"
-" the-struct_109)"
+" the-struct_108)"
 "(expand-context/outer-scopes"
-" the-struct_109)"
+" the-struct_108)"
 " def-ctx-scopes363_0"
 "(expand-context/outer-binding-layer"
-" the-struct_109)"
+" the-struct_108)"
 "(expand-context/outer-reference-records"
-" the-struct_109)"
+" the-struct_108)"
 "(expand-context/outer-only-immediate?"
-" the-struct_109)"
+" the-struct_108)"
 "(expand-context/outer-need-eventually-defined"
-" the-struct_109)"
+" the-struct_108)"
 "(expand-context/outer-current-introduction-scopes"
-" the-struct_109)"
+" the-struct_108)"
 "(expand-context/outer-name"
-" the-struct_109)))"
+" the-struct_108)))"
 "(raise-argument-error"
 " 'struct-copy"
 "                                                                                                                                                                                                                      \"expand-context/outer?\""
-" the-struct_109))))))"
+" the-struct_108))))))"
 "(let-values(((partially-expanded-bodys318_0)"
 " partially-expanded-bodys_0)"
 "((phase319_0)"
@@ -71428,14 +71489,14 @@ static const char *startup_source =
 "(values))))"
 "(let-values((()"
 "(begin"
-"(let-values(((obs_134)"
+"(let-values(((obs_132)"
 "(expand-context-observer"
 " ctx_111)))"
-"(if obs_134"
+"(if obs_132"
 "(let-values()"
 "(let-values()"
 "(call-expand-observe"
-" obs_134"
+" obs_132"
 " 'next-group)))"
 "(void)))"
 "(values))))"
@@ -71504,117 +71565,117 @@ static const char *startup_source =
 "(let-values(((submod-m-ns_0)"
 "(let-values(((m-ns378_0)"
 " m-ns_19)"
-"((temp379_1)"
+"((temp379_0)"
 " #t))"
 "(make-m-ns244_0"
-" temp379_1"
+" temp379_0"
 " #t"
 " m-ns378_0))))"
 "(let-values(((submod-ctx_0)"
 "(let-values(((v_263)"
 " ctx_111))"
-"(let-values(((the-struct_111)"
+"(let-values(((the-struct_110)"
 " v_263))"
 "(if(expand-context/outer?"
-" the-struct_111)"
+" the-struct_110)"
 "(let-values(((frame-id380_0)"
 " #f)"
 "((post-expansion-scope381_0)"
 " #f)"
 "((inner382_0)"
-"(let-values(((the-struct_112)"
+"(let-values(((the-struct_111)"
 "(root-expand-context/outer-inner"
 " v_263)))"
 "(if(expand-context/inner?"
-" the-struct_112)"
+" the-struct_111)"
 "(let-values(((namespace383_0)"
 " submod-m-ns_0))"
 "(expand-context/inner2.1"
 "(root-expand-context/inner-self-mpi"
-" the-struct_112)"
+" the-struct_111)"
 "(root-expand-context/inner-module-scopes"
-" the-struct_112)"
+" the-struct_111)"
 "(root-expand-context/inner-top-level-bind-scope"
-" the-struct_112)"
+" the-struct_111)"
 "(root-expand-context/inner-all-scopes-stx"
-" the-struct_112)"
+" the-struct_111)"
 "(root-expand-context/inner-defined-syms"
-" the-struct_112)"
+" the-struct_111)"
 "(root-expand-context/inner-counter"
-" the-struct_112)"
+" the-struct_111)"
 "(root-expand-context/inner-lift-key"
-" the-struct_112)"
+" the-struct_111)"
 "(expand-context/inner-to-parsed?"
-" the-struct_112)"
+" the-struct_111)"
 "(expand-context/inner-phase"
-" the-struct_112)"
+" the-struct_111)"
 " namespace383_0"
 "(expand-context/inner-just-once?"
-" the-struct_112)"
+" the-struct_111)"
 "(expand-context/inner-module-begin-k"
-" the-struct_112)"
+" the-struct_111)"
 "(expand-context/inner-allow-unbound?"
-" the-struct_112)"
+" the-struct_111)"
 "(expand-context/inner-in-local-expand?"
-" the-struct_112)"
+" the-struct_111)"
 "(expand-context/inner-stops"
-" the-struct_112)"
+" the-struct_111)"
 "(expand-context/inner-declared-submodule-names"
-" the-struct_112)"
+" the-struct_111)"
 "(expand-context/inner-lifts"
-" the-struct_112)"
+" the-struct_111)"
 "(expand-context/inner-lift-envs"
-" the-struct_112)"
+" the-struct_111)"
 "(expand-context/inner-module-lifts"
-" the-struct_112)"
+" the-struct_111)"
 "(expand-context/inner-require-lifts"
-" the-struct_112)"
+" the-struct_111)"
 "(expand-context/inner-to-module-lifts"
-" the-struct_112)"
+" the-struct_111)"
 "(expand-context/inner-requires+provides"
-" the-struct_112)"
+" the-struct_111)"
 "(expand-context/inner-observer"
-" the-struct_112)"
+" the-struct_111)"
 "(expand-context/inner-for-serializable?"
-" the-struct_112)"
+" the-struct_111)"
 "(expand-context/inner-should-not-encounter-macros?"
-" the-struct_112)))"
+" the-struct_111)))"
 "(raise-argument-error"
 " 'struct-copy"
 "                                                                                                                                                                                                          \"expand-context/inner?\""
-" the-struct_112)))))"
+" the-struct_111)))))"
 "(expand-context/outer1.1"
 " inner382_0"
 " post-expansion-scope381_0"
 "(root-expand-context/outer-use-site-scopes"
-" the-struct_111)"
+" the-struct_110)"
 " frame-id380_0"
 "(expand-context/outer-context"
-" the-struct_111)"
+" the-struct_110)"
 "(expand-context/outer-env"
-" the-struct_111)"
+" the-struct_110)"
 "(expand-context/outer-post-expansion-scope-action"
-" the-struct_111)"
+" the-struct_110)"
 "(expand-context/outer-scopes"
-" the-struct_111)"
+" the-struct_110)"
 "(expand-context/outer-def-ctx-scopes"
-" the-struct_111)"
+" the-struct_110)"
 "(expand-context/outer-binding-layer"
-" the-struct_111)"
+" the-struct_110)"
 "(expand-context/outer-reference-records"
-" the-struct_111)"
+" the-struct_110)"
 "(expand-context/outer-only-immediate?"
-" the-struct_111)"
+" the-struct_110)"
 "(expand-context/outer-need-eventually-defined"
-" the-struct_111)"
+" the-struct_110)"
 "(expand-context/outer-current-introduction-scopes"
-" the-struct_111)"
+" the-struct_110)"
 "(expand-context/outer-name"
-" the-struct_111)))"
+" the-struct_110)))"
 "(raise-argument-error"
 " 'struct-copy"
 "                                                                                                                                                                                        \"expand-context/outer?\""
-" the-struct_111))))))"
+" the-struct_110))))))"
 "(let-values(((declare-enclosing-module_0)"
 "(delay"
 "(lambda()"
@@ -71732,109 +71793,109 @@ static const char *startup_source =
 " mb-result-s_0)))))))))))))))))))))))))))))))))"
 "(let-values(((mb-ctx_0)"
 "(let-values(((v_264)"
-" ctx_82))"
-"(let-values(((the-struct_113)"
+" ctx_110))"
+"(let-values(((the-struct_112)"
 " v_264))"
 "(if(expand-context/outer?"
-" the-struct_113)"
+" the-struct_112)"
 "(let-values(((context409_0)"
 " 'module-begin)"
 "((inner410_0)"
-"(let-values(((the-struct_114)"
+"(let-values(((the-struct_113)"
 "(root-expand-context/outer-inner"
 " v_264)))"
 "(if(expand-context/inner?"
-" the-struct_114)"
+" the-struct_113)"
 "(let-values(((module-begin-k411_0)"
 " module-begin-k_1)"
 "((in-local-expand?412_0)"
 " #f))"
 "(expand-context/inner2.1"
 "(root-expand-context/inner-self-mpi"
-" the-struct_114)"
+" the-struct_113)"
 "(root-expand-context/inner-module-scopes"
-" the-struct_114)"
+" the-struct_113)"
 "(root-expand-context/inner-top-level-bind-scope"
-" the-struct_114)"
+" the-struct_113)"
 "(root-expand-context/inner-all-scopes-stx"
-" the-struct_114)"
+" the-struct_113)"
 "(root-expand-context/inner-defined-syms"
-" the-struct_114)"
+" the-struct_113)"
 "(root-expand-context/inner-counter"
-" the-struct_114)"
+" the-struct_113)"
 "(root-expand-context/inner-lift-key"
-" the-struct_114)"
+" the-struct_113)"
 "(expand-context/inner-to-parsed?"
-" the-struct_114)"
+" the-struct_113)"
 "(expand-context/inner-phase"
-" the-struct_114)"
+" the-struct_113)"
 "(expand-context/inner-namespace"
-" the-struct_114)"
+" the-struct_113)"
 "(expand-context/inner-just-once?"
-" the-struct_114)"
+" the-struct_113)"
 " module-begin-k411_0"
 "(expand-context/inner-allow-unbound?"
-" the-struct_114)"
+" the-struct_113)"
 " in-local-expand?412_0"
 "(expand-context/inner-stops"
-" the-struct_114)"
+" the-struct_113)"
 "(expand-context/inner-declared-submodule-names"
-" the-struct_114)"
+" the-struct_113)"
 "(expand-context/inner-lifts"
-" the-struct_114)"
+" the-struct_113)"
 "(expand-context/inner-lift-envs"
-" the-struct_114)"
+" the-struct_113)"
 "(expand-context/inner-module-lifts"
-" the-struct_114)"
+" the-struct_113)"
 "(expand-context/inner-require-lifts"
-" the-struct_114)"
+" the-struct_113)"
 "(expand-context/inner-to-module-lifts"
-" the-struct_114)"
+" the-struct_113)"
 "(expand-context/inner-requires+provides"
-" the-struct_114)"
+" the-struct_113)"
 "(expand-context/inner-observer"
-" the-struct_114)"
+" the-struct_113)"
 "(expand-context/inner-for-serializable?"
-" the-struct_114)"
+" the-struct_113)"
 "(expand-context/inner-should-not-encounter-macros?"
-" the-struct_114)))"
-"(raise-argument-error"
-" 'struct-copy"
-"                                                                                                                                             \"expand-context/inner?\""
-" the-struct_114)))))"
-"(expand-context/outer1.1"
-" inner410_0"
-"(root-expand-context/outer-post-expansion-scope"
-" the-struct_113)"
-"(root-expand-context/outer-use-site-scopes"
-" the-struct_113)"
-"(root-expand-context/outer-frame-id"
-" the-struct_113)"
-" context409_0"
-"(expand-context/outer-env"
-" the-struct_113)"
-"(expand-context/outer-post-expansion-scope-action"
-" the-struct_113)"
-"(expand-context/outer-scopes"
-" the-struct_113)"
-"(expand-context/outer-def-ctx-scopes"
-" the-struct_113)"
-"(expand-context/outer-binding-layer"
-" the-struct_113)"
-"(expand-context/outer-reference-records"
-" the-struct_113)"
-"(expand-context/outer-only-immediate?"
-" the-struct_113)"
-"(expand-context/outer-need-eventually-defined"
-" the-struct_113)"
-"(expand-context/outer-current-introduction-scopes"
-" the-struct_113)"
-"(expand-context/outer-name"
 " the-struct_113)))"
 "(raise-argument-error"
 " 'struct-copy"
+"                                                                                                                                             \"expand-context/inner?\""
+" the-struct_113)))))"
+"(expand-context/outer1.1"
+" inner410_0"
+"(root-expand-context/outer-post-expansion-scope"
+" the-struct_112)"
+"(root-expand-context/outer-use-site-scopes"
+" the-struct_112)"
+"(root-expand-context/outer-frame-id"
+" the-struct_112)"
+" context409_0"
+"(expand-context/outer-env"
+" the-struct_112)"
+"(expand-context/outer-post-expansion-scope-action"
+" the-struct_112)"
+"(expand-context/outer-scopes"
+" the-struct_112)"
+"(expand-context/outer-def-ctx-scopes"
+" the-struct_112)"
+"(expand-context/outer-binding-layer"
+" the-struct_112)"
+"(expand-context/outer-reference-records"
+" the-struct_112)"
+"(expand-context/outer-only-immediate?"
+" the-struct_112)"
+"(expand-context/outer-need-eventually-defined"
+" the-struct_112)"
+"(expand-context/outer-current-introduction-scopes"
+" the-struct_112)"
+"(expand-context/outer-name"
+" the-struct_112)))"
+"(raise-argument-error"
+" 'struct-copy"
 "                                                                                                                           \"expand-context/outer?\""
-" the-struct_113))))))"
+" the-struct_112))))))"
 "(let-values(((mb-scopes-s_0)"
 "(if keep-enclosing-scope-at-phase_0"
 " disarmed-s_24"
@@ -71872,7 +71933,7 @@ static const char *startup_source =
 "(let-values()"
 "(let-values(((mb421_0)"
 " mb_0)"
-"((temp422_0)"
+"((temp422_1)"
 "(accumulate-def-ctx-scopes"
 " mb-ctx_0"
 " mb-def-ctx-scopes_0)))"
@@ -71882,7 +71943,7 @@ static const char *startup_source =
 " #f"
 " #f"
 " mb421_0"
-" temp422_0)))))"
+" temp422_1)))))"
 "(let-values(((requires_6"
 " provides_13)"
 "(extract-requires-and-provides"
@@ -71890,11 +71951,11 @@ static const char *startup_source =
 " self_32"
 " self_32)))"
 "(let-values(((result-form_0)"
-"(if(let-values(((or-part_347)"
+"(if(let-values(((or-part_349)"
 "(expand-context-to-parsed?"
 " init-ctx_0)))"
-"(if or-part_347"
-" or-part_347"
+"(if or-part_349"
+" or-part_349"
 " always-produce-compiled?_0))"
 "(parsed-module25.1"
 " rebuild-s_14"
@@ -71941,17 +72002,17 @@ static const char *startup_source =
 "(check-list"
 " lst_142)))"
 "((letrec-values(((for-loop_170)"
-"(lambda(lst_414)"
+"(lambda(lst_417)"
 "(begin"
 " 'for-loop"
 "(if(pair?"
-" lst_414)"
+" lst_417)"
 "(let-values(((mpi_53)"
 "(unsafe-car"
-" lst_414))"
+" lst_417))"
 "((rest_237)"
 "(unsafe-cdr"
-" lst_414)))"
+" lst_417)))"
 "(let-values((()"
 "(let-values()"
 "(let-values((()"
@@ -71974,7 +72035,7 @@ static const char *startup_source =
 "(let-values(((result-s_15)"
 "(let-values(((rebuild-s423_0)"
 " rebuild-s_14)"
-"((temp424_1)"
+"((temp424_0)"
 "(list"
 " module228_0"
 " id:module-name229_0"
@@ -71985,7 +72046,7 @@ static const char *startup_source =
 " #f"
 " #f"
 " rebuild-s423_0"
-" temp424_1))))"
+" temp424_0))))"
 "(let-values(((result-s_16)"
 "(let-values(((result-s425_0)"
 " result-s_15)"
@@ -72016,14 +72077,14 @@ static const char *startup_source =
 " #t)"
 " result-s_17)))"
 "(begin"
-"(let-values(((obs_135)"
+"(let-values(((obs_133)"
 "(expand-context-observer"
 " init-ctx_0)))"
-"(if obs_135"
+"(if obs_133"
 "(let-values()"
 "(let-values()"
 "(call-expand-observe"
-" obs_135"
+" obs_133"
 " 'rename-one"
 " result-s_18)))"
 "(void)))"
@@ -72052,48 +72113,48 @@ static const char *startup_source =
 "(let-values(((ctx_113) ctx24_0))"
 "(let-values(((def-ctx-scopes_9) def-ctx-scopes25_0))"
 "(let-values(((phase_150) phase26_2))"
-"(let-values(((s_760) s27_2))"
+"(let-values(((s_769) s27_2))"
 "(let-values()"
 "(let-values(((make-mb-ctx_0)"
 "(lambda()"
 "(begin"
 " 'make-mb-ctx"
 "(let-values(((v_265) ctx_113))"
-"(let-values(((the-struct_115) v_265))"
-"(if(expand-context/outer? the-struct_115)"
+"(let-values(((the-struct_114) v_265))"
+"(if(expand-context/outer? the-struct_114)"
 "(let-values(((context428_0) 'module-begin)"
 "((only-immediate?429_0) #t)"
 "((def-ctx-scopes430_0) def-ctx-scopes_9)"
 "((inner431_0)(root-expand-context/outer-inner v_265)))"
 "(expand-context/outer1.1"
 " inner431_0"
-"(root-expand-context/outer-post-expansion-scope the-struct_115)"
-"(root-expand-context/outer-use-site-scopes the-struct_115)"
-"(root-expand-context/outer-frame-id the-struct_115)"
+"(root-expand-context/outer-post-expansion-scope the-struct_114)"
+"(root-expand-context/outer-use-site-scopes the-struct_114)"
+"(root-expand-context/outer-frame-id the-struct_114)"
 " context428_0"
-"(expand-context/outer-env the-struct_115)"
-"(expand-context/outer-post-expansion-scope-action the-struct_115)"
-"(expand-context/outer-scopes the-struct_115)"
+"(expand-context/outer-env the-struct_114)"
+"(expand-context/outer-post-expansion-scope-action the-struct_114)"
+"(expand-context/outer-scopes the-struct_114)"
 " def-ctx-scopes430_0"
-"(expand-context/outer-binding-layer the-struct_115)"
-"(expand-context/outer-reference-records the-struct_115)"
+"(expand-context/outer-binding-layer the-struct_114)"
+"(expand-context/outer-reference-records the-struct_114)"
 " only-immediate?429_0"
-"(expand-context/outer-need-eventually-defined the-struct_115)"
-"(expand-context/outer-current-introduction-scopes the-struct_115)"
-"(expand-context/outer-name the-struct_115)))"
+"(expand-context/outer-need-eventually-defined the-struct_114)"
+"(expand-context/outer-current-introduction-scopes the-struct_114)"
+"(expand-context/outer-name the-struct_114)))"
 "(raise-argument-error"
 " 'struct-copy"
 "                                                 \"expand-context/outer?\""
-" the-struct_115))))))))"
+" the-struct_114))))))))"
 "(let-values(((mb_1)"
 "(if(= 1(length bodys_18))"
 "(let-values()"
 "(begin"
-"(let-values(((obs_136)(expand-context-observer ctx_113)))"
-"(if obs_136"
+"(let-values(((obs_134)(expand-context-observer ctx_113)))"
+"(if obs_134"
 "(let-values()"
 "(let-values()"
-"(call-expand-observe obs_136 'rename-one(car bodys_18))))"
+"(call-expand-observe obs_134 'rename-one(car bodys_18))))"
 "(void)))"
 "(if(eq?"
 " '#%module-begin"
@@ -72116,24 +72177,24 @@ static const char *startup_source =
 "(let-values() partly-expanded-body_0)"
 "(let-values()"
 "(let-values(((temp434_0)(list partly-expanded-body_0))"
-"((s435_0) s_760)"
+"((s435_1) s_769)"
 "((scopes-s436_0) scopes-s_0)"
 "((phase437_0) phase_150)"
 "((module-name-sym438_0) module-name-sym_1)"
-"((temp439_0)(make-mb-ctx_0))"
+"((temp439_1)(make-mb-ctx_0))"
 "((temp440_0) #f))"
 "(add-module-begin47.1"
 " temp440_0"
 " #t"
 " temp434_0"
-" s435_0"
+" s435_1"
 " scopes-s436_0"
 " phase437_0"
 " module-name-sym438_0"
-" temp439_0)))))))))"
+" temp439_1)))))))))"
 "(let-values()"
 "(let-values(((bodys441_0) bodys_18)"
-"((s442_0) s_760)"
+"((s442_0) s_769)"
 "((scopes-s443_0) scopes-s_0)"
 "((phase444_0) phase_150)"
 "((module-name-sym445_0) module-name-sym_1)"
@@ -72161,7 +72222,7 @@ static const char *startup_source =
 "(begin"
 " 'add-module-begin47"
 "(let-values(((bodys_19) bodys41_0))"
-"(let-values(((s_761) s42_0))"
+"(let-values(((s_770) s42_0))"
 "(let-values(((scopes-s_1) scopes-s43_0))"
 "(let-values(((phase_151) phase44_1))"
 "(let-values(((module-name-sym_2) module-name-sym45_0))"
@@ -72179,27 +72240,27 @@ static const char *startup_source =
 "(raise-syntax-error$1"
 " #f"
 "                                               \"no #%module-begin binding in the module's language\""
-" s_761)))"
+" s_770)))"
 "(values))))"
 "(let-values(((mb_2)"
-"(datum->syntax$1 disarmed-scopes-s_0(list* mb-id_0 bodys_19) s_761 s_761)))"
+"(datum->syntax$1 disarmed-scopes-s_0(list* mb-id_0 bodys_19) s_770 s_770)))"
 "(let-values((()"
 "(begin"
-"(let-values(((obs_137)(expand-context-observer mb-ctx_1)))"
-"(if obs_137"
+"(let-values(((obs_135)(expand-context-observer mb-ctx_1)))"
+"(if obs_135"
 "(let-values()"
-"(let-values()(call-expand-observe obs_137 'tag mb_2)))"
+"(let-values()(call-expand-observe obs_135 'tag mb_2)))"
 "(void)))"
 "(values))))"
 "(let-values((()"
 "(begin"
 "(if log-rename-one?_0"
 "(let-values()"
-"(let-values(((obs_138)(expand-context-observer mb-ctx_1)))"
-"(if obs_138"
+"(let-values(((obs_136)(expand-context-observer mb-ctx_1)))"
+"(if obs_136"
 "(let-values()"
 "(let-values()"
-"(call-expand-observe obs_138 'rename-one mb_2)))"
+"(call-expand-observe obs_136 'rename-one mb_2)))"
 "(void))))"
 "(void))"
 "(values))))"
@@ -72218,7 +72279,7 @@ static const char *startup_source =
 "(raise-syntax-error$1"
 " #f"
 "                                           \"expansion of #%module-begin is not a #%plain-module-begin form\""
-" s_761"
+" s_770"
 " partly-expanded-mb_0)))"
 " partly-expanded-mb_0)))))))))))))))))))"
 "(define-values"
@@ -72234,13 +72295,13 @@ static const char *startup_source =
 " enclosing-self_2"
 " enclosing-mod_2)"
 "(begin"
-"(lambda(s_762)"
+"(lambda(s_771)"
 "(let-values()"
 "(let-values(((s-without-enclosing_0)"
 "(if keep-enclosing-scope-at-phase_1"
-" s_762"
+" s_771"
 "(remove-use-site-scopes"
-"(remove-scopes s_762(root-expand-context-module-scopes init-ctx_1))"
+"(remove-scopes s_771(root-expand-context-module-scopes init-ctx_1))"
 " init-ctx_1))))"
 "(let-values(((s-with-edges_0)"
 "(add-scope(add-scope s-without-enclosing_0 outside-scope_2) inside-scope_1)))"
@@ -72319,14 +72380,14 @@ static const char *startup_source =
 "(if(if tail?_52(not(zero? phase_152)) #f)"
 "(let-values()"
 "(begin"
-"(let-values(((obs_139)"
+"(let-values(((obs_137)"
 "(expand-context-observer"
 " partial-body-ctx_1)))"
-"(if obs_139"
+"(if obs_137"
 "(let-values()"
 "(let-values()"
 "(call-expand-observe"
-" obs_139"
+" obs_137"
 " 'module-lift-end-loop"
 " '())))"
 "(void)))"
@@ -72342,14 +72403,14 @@ static const char *startup_source =
 "(expand-context-to-module-lifts"
 " partial-body-ctx_1)))))"
 "(begin"
-"(let-values(((obs_140)"
+"(let-values(((obs_138)"
 "(expand-context-observer"
 " partial-body-ctx_1)))"
-"(if obs_140"
+"(if obs_138"
 "(let-values()"
 "(let-values()"
 "(call-expand-observe"
-" obs_140"
+" obs_138"
 " 'module-lift-end-loop"
 " bodys_22)))"
 "(void)))"
@@ -72366,14 +72427,14 @@ static const char *startup_source =
 "(let-values(((rest-bodys_1)(cdr bodys_21)))"
 "(let-values((()"
 "(begin"
-"(let-values(((obs_141)"
+"(let-values(((obs_139)"
 "(expand-context-observer"
 " partial-body-ctx_1)))"
-"(if obs_141"
+"(if obs_139"
 "(let-values()"
 "(let-values()"
 "(call-expand-observe"
-" obs_141"
+" obs_139"
 " 'next)))"
 "(void)))"
 "(values))))"
@@ -72405,14 +72466,14 @@ static const char *startup_source =
 " exp-body_7"
 " rest-bodys_1))"
 "(void))"
-"(let-values(((obs_142)"
+"(let-values(((obs_140)"
 "(expand-context-observer"
 " partial-body-ctx_1)))"
-"(if obs_142"
+"(if obs_140"
 "(let-values()"
 "(let-values()"
 "(call-expand-observe"
-" obs_142"
+" obs_140"
 " 'rename-one"
 " exp-body_7)))"
 "(void)))"
@@ -72431,45 +72492,45 @@ static const char *startup_source =
 "(let-values(((ok?_75"
 " begin460_0"
 " e461_0)"
-"(let-values(((s_763)"
+"(let-values(((s_772)"
 " disarmed-exp-body_1))"
-"(let-values(((orig-s_82)"
-" s_763))"
+"(let-values(((orig-s_83)"
+" s_772))"
 "(let-values(((begin460_1"
 " e461_1)"
-"(let-values(((s_764)"
+"(let-values(((s_773)"
 "(if(syntax?$1"
-" s_763)"
+" s_772)"
 "(syntax-e$1"
-" s_763)"
-" s_763)))"
+" s_772)"
+" s_772)))"
 "(if(pair?"
-" s_764)"
+" s_773)"
 "(let-values(((begin462_0)"
-"(let-values(((s_765)"
+"(let-values(((s_774)"
 "(car"
-" s_764)))"
-" s_765))"
+" s_773)))"
+" s_774))"
 "((e463_0)"
-"(let-values(((s_766)"
+"(let-values(((s_775)"
 "(cdr"
-" s_764)))"
-"(let-values(((s_767)"
+" s_773)))"
+"(let-values(((s_776)"
 "(if(syntax?$1"
-" s_766)"
+" s_775)"
 "(syntax-e$1"
-" s_766)"
-" s_766)))"
+" s_775)"
+" s_775)))"
 "(let-values(((flat-s_54)"
 "(to-syntax-list.1"
-" s_767)))"
+" s_776)))"
 "(if(not"
 " flat-s_54)"
 "(let-values()"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                     \"bad syntax\""
-" orig-s_82))"
+" orig-s_83))"
 "(let-values()"
 " flat-s_54)))))))"
 "(values"
@@ -72478,17 +72539,17 @@ static const char *startup_source =
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                             \"bad syntax\""
-" orig-s_82)))))"
+" orig-s_83)))))"
 "(values"
 " #t"
 " begin460_1"
 " e461_1))))))"
 "(let-values(((track_1)"
-"(lambda(e_94)"
+"(lambda(e_95)"
 "(begin"
 " 'track"
 "(syntax-track-origin$1"
-" e_94"
+" e_95"
 " exp-body_7)))))"
 "(let-values(((spliced-bodys_0)"
 "(append"
@@ -72497,14 +72558,14 @@ static const char *startup_source =
 " e461_0)"
 " rest-bodys_1)))"
 "(begin"
-"(let-values(((obs_143)"
+"(let-values(((obs_141)"
 "(expand-context-observer"
 " partial-body-ctx_1)))"
-"(if obs_143"
+"(if obs_141"
 "(let-values()"
 "(let-values()"
 "(call-expand-observe"
-" obs_143"
+" obs_141"
 " 'splice"
 " spliced-bodys_0)))"
 "(void)))"
@@ -72517,22 +72578,22 @@ static const char *startup_source =
 "(let-values()"
 "(let-values((()"
 "(begin"
-"(let-values(((obs_144)"
+"(let-values(((obs_142)"
 "(expand-context-observer"
 " partial-body-ctx_1)))"
-"(if obs_144"
+"(if obs_142"
 "(let-values()"
 "(let-values()"
 "(begin"
 "(call-expand-observe"
-" obs_144"
+" obs_142"
 " 'enter-prim"
 " exp-body_7)"
 "(call-expand-observe"
-" obs_144"
+" obs_142"
 " 'prim-begin-for-syntax)"
 "(call-expand-observe"
-" obs_144"
+" obs_142"
 " 'prepare-env))))"
 "(void)))"
 "(values))))"
@@ -72548,59 +72609,59 @@ static const char *startup_source =
 "(values))))"
 "(let-values((()"
 "(begin"
-"(let-values(((obs_145)"
+"(let-values(((obs_143)"
 "(expand-context-observer"
 " partial-body-ctx_1)))"
-"(if obs_145"
+"(if obs_143"
 "(let-values()"
 "(let-values()"
 "(call-expand-observe"
-" obs_145"
+" obs_143"
 " 'phase-up)))"
 "(void)))"
 "(values))))"
 "(let-values(((ok?_76"
 " begin-for-syntax464_0"
 " e465_0)"
-"(let-values(((s_768)"
+"(let-values(((s_777)"
 " disarmed-exp-body_1))"
-"(let-values(((orig-s_83)"
-" s_768))"
+"(let-values(((orig-s_84)"
+" s_777))"
 "(let-values(((begin-for-syntax464_1"
 " e465_1)"
-"(let-values(((s_769)"
+"(let-values(((s_778)"
 "(if(syntax?$1"
-" s_768)"
+" s_777)"
 "(syntax-e$1"
-" s_768)"
-" s_768)))"
+" s_777)"
+" s_777)))"
 "(if(pair?"
-" s_769)"
+" s_778)"
 "(let-values(((begin-for-syntax466_0)"
-"(let-values(((s_770)"
+"(let-values(((s_779)"
 "(car"
-" s_769)))"
-" s_770))"
+" s_778)))"
+" s_779))"
 "((e467_0)"
-"(let-values(((s_771)"
+"(let-values(((s_780)"
 "(cdr"
-" s_769)))"
-"(let-values(((s_772)"
+" s_778)))"
+"(let-values(((s_781)"
 "(if(syntax?$1"
-" s_771)"
+" s_780)"
 "(syntax-e$1"
-" s_771)"
-" s_771)))"
+" s_780)"
+" s_780)))"
 "(let-values(((flat-s_55)"
 "(to-syntax-list.1"
-" s_772)))"
+" s_781)))"
 "(if(not"
 " flat-s_55)"
 "(let-values()"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                               \"bad syntax\""
-" orig-s_83))"
+" orig-s_84))"
 "(let-values()"
 " flat-s_55)))))))"
 "(values"
@@ -72609,7 +72670,7 @@ static const char *startup_source =
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                       \"bad syntax\""
-" orig-s_83)))))"
+" orig-s_84)))))"
 "(values"
 " #t"
 " begin-for-syntax464_1"
@@ -72620,14 +72681,14 @@ static const char *startup_source =
 "(add1"
 " phase_152))))"
 "(begin"
-"(let-values(((obs_146)"
+"(let-values(((obs_144)"
 "(expand-context-observer"
 " partial-body-ctx_1)))"
-"(if obs_146"
+"(if obs_144"
 "(let-values()"
 "(let-values()"
 "(call-expand-observe"
-" obs_146"
+" obs_144"
 " 'next-group)))"
 "(void)))"
 "(namespace-run-available-modules!"
@@ -72644,18 +72705,18 @@ static const char *startup_source =
 "(namespace-visit-available-modules!"
 " m-ns_20"
 " phase_152)"
-"(let-values(((obs_147)"
+"(let-values(((obs_145)"
 "(expand-context-observer"
 " partial-body-ctx_1)))"
-"(if obs_147"
+"(if obs_145"
 "(let-values()"
 "(let-values()"
 "(call-expand-observe"
-" obs_147"
+" obs_145"
 " 'exit-prim"
 "(let-values(((s-nested-bodys_0)"
 "(reverse$1"
-"(let-values(((lst_415)"
+"(let-values(((lst_418)"
 " nested-bodys_1))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
@@ -72663,42 +72724,42 @@ static const char *startup_source =
 "(void)"
 "(let-values()"
 "(check-list"
-" lst_415)))"
-"((letrec-values(((for-loop_321)"
-"(lambda(fold-var_365"
-" lst_416)"
+" lst_418)))"
+"((letrec-values(((for-loop_319)"
+"(lambda(fold-var_370"
+" lst_419)"
 "(begin"
 " 'for-loop"
 "(if(pair?"
-" lst_416)"
+" lst_419)"
 "(let-values(((nested-body_0)"
 "(unsafe-car"
-" lst_416))"
+" lst_419))"
 "((rest_238)"
 "(unsafe-cdr"
-" lst_416)))"
-"(let-values(((fold-var_366)"
-"(let-values(((fold-var_367)"
-" fold-var_365))"
-"(let-values(((fold-var_368)"
+" lst_419)))"
+"(let-values(((fold-var_371)"
+"(let-values(((fold-var_372)"
+" fold-var_370))"
+"(let-values(((fold-var_373)"
 "(let-values()"
 "(cons"
 "(let-values()"
 "(extract-syntax"
 " nested-body_0))"
-" fold-var_367))))"
+" fold-var_372))))"
 "(values"
-" fold-var_368)))))"
+" fold-var_373)))))"
 "(if(not"
 " #f)"
-"(for-loop_321"
-" fold-var_366"
+"(for-loop_319"
+" fold-var_371"
 " rest_238)"
-" fold-var_366)))"
-" fold-var_365)))))"
-" for-loop_321)"
+" fold-var_371)))"
+" fold-var_370)))))"
+" for-loop_319)"
 " null"
-" lst_415))))))"
+" lst_418))))))"
 "(datum->syntax$1"
 " #f"
 "(cons"
@@ -72719,19 +72780,19 @@ static const char *startup_source =
 "(let-values()"
 "(let-values((()"
 "(begin"
-"(let-values(((obs_148)"
+"(let-values(((obs_146)"
 "(expand-context-observer"
 " partial-body-ctx_1)))"
-"(if obs_148"
+"(if obs_146"
 "(let-values()"
 "(let-values()"
 "(begin"
 "(call-expand-observe"
-" obs_148"
+" obs_146"
 " 'enter-prim"
 " exp-body_7)"
 "(call-expand-observe"
-" obs_148"
+" obs_146"
 " 'prim-define-values))))"
 "(void)))"
 "(values))))"
@@ -72739,62 +72800,62 @@ static const char *startup_source =
 " define-values468_0"
 " id469_0"
 " rhs470_0)"
-"(let-values(((s_773)"
+"(let-values(((s_782)"
 " disarmed-exp-body_1))"
-"(let-values(((orig-s_84)"
-" s_773))"
+"(let-values(((orig-s_85)"
+" s_782))"
 "(let-values(((define-values468_1"
 " id469_1"
 " rhs470_1)"
-"(let-values(((s_774)"
+"(let-values(((s_783)"
 "(if(syntax?$1"
-" s_773)"
+" s_782)"
 "(syntax-e$1"
-" s_773)"
-" s_773)))"
+" s_782)"
+" s_782)))"
 "(if(pair?"
-" s_774)"
+" s_783)"
 "(let-values(((define-values471_0)"
-"(let-values(((s_775)"
+"(let-values(((s_784)"
 "(car"
-" s_774)))"
-" s_775))"
+" s_783)))"
+" s_784))"
 "((id472_0"
 " rhs473_0)"
-"(let-values(((s_776)"
+"(let-values(((s_785)"
 "(cdr"
-" s_774)))"
-"(let-values(((s_519)"
+" s_783)))"
+"(let-values(((s_786)"
 "(if(syntax?$1"
-" s_776)"
+" s_785)"
 "(syntax-e$1"
-" s_776)"
-" s_776)))"
+" s_785)"
+" s_785)))"
 "(if(pair?"
-" s_519)"
+" s_786)"
 "(let-values(((id474_0)"
-"(let-values(((s_520)"
+"(let-values(((s_787)"
 "(car"
-" s_519)))"
-"(let-values(((s_521)"
+" s_786)))"
+"(let-values(((s_788)"
 "(if(syntax?$1"
-" s_520)"
+" s_787)"
 "(syntax-e$1"
-" s_520)"
-" s_520)))"
+" s_787)"
+" s_787)))"
 "(let-values(((flat-s_56)"
 "(to-syntax-list.1"
-" s_521)))"
+" s_788)))"
 "(if(not"
 " flat-s_56)"
 "(let-values()"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                               \"bad syntax\""
-" orig-s_84))"
+" orig-s_85))"
 "(let-values()"
-"(let-values(((id_150)"
-"(let-values(((lst_417)"
+"(let-values(((id_151)"
+"(let-values(((lst_420)"
 " flat-s_56))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
@@ -72802,108 +72863,108 @@ static const char *startup_source =
 "(void)"
 "(let-values()"
 "(check-list"
-" lst_417)))"
-"((letrec-values(((for-loop_322)"
-"(lambda(id_151"
-" lst_418)"
+" lst_420)))"
+"((letrec-values(((for-loop_320)"
+"(lambda(id_152"
+" lst_421)"
 "(begin"
 " 'for-loop"
 "(if(pair?"
-" lst_418)"
-"(let-values(((s_777)"
+" lst_421)"
+"(let-values(((s_789)"
 "(unsafe-car"
-" lst_418))"
+" lst_421))"
 "((rest_239)"
 "(unsafe-cdr"
-" lst_418)))"
-"(let-values(((id_152)"
+" lst_421)))"
 "(let-values(((id_153)"
-" id_151))"
 "(let-values(((id_154)"
+" id_152))"
+"(let-values(((id_155)"
 "(let-values()"
 "(let-values(((id484_0)"
 "(let-values()"
-"(if(let-values(((or-part_400)"
+"(if(let-values(((or-part_403)"
 "(if(syntax?$1"
-" s_777)"
+" s_789)"
 "(symbol?"
 "(syntax-e$1"
-" s_777))"
+" s_789))"
 " #f)))"
-"(if or-part_400"
-" or-part_400"
+"(if or-part_403"
+" or-part_403"
 "(symbol?"
-" s_777)))"
-" s_777"
+" s_789)))"
+" s_789"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                                                                                                                             \"not an identifier\""
-" orig-s_84"
-" s_777)))))"
+" orig-s_85"
+" s_789)))))"
 "(cons"
 " id484_0"
-" id_153)))))"
-"(values"
 " id_154)))))"
+"(values"
+" id_155)))))"
 "(if(not"
 " #f)"
-"(for-loop_322"
-" id_152"
+"(for-loop_320"
+" id_153"
 " rest_239)"
-" id_152)))"
-" id_151)))))"
-" for-loop_322)"
+" id_153)))"
+" id_152)))))"
+" for-loop_320)"
 " null"
-" lst_417)))))"
+" lst_420)))))"
 "(reverse$1"
-" id_150))))))))"
+" id_151))))))))"
 "((rhs475_0)"
-"(let-values(((s_523)"
+"(let-values(((s_790)"
 "(cdr"
-" s_519)))"
-"(let-values(((s_778)"
+" s_786)))"
+"(let-values(((s_791)"
 "(if(syntax?$1"
-" s_523)"
+" s_790)"
 "(syntax-e$1"
-" s_523)"
-" s_523)))"
+" s_790)"
+" s_790)))"
 "(if(pair?"
-" s_778)"
+" s_791)"
 "(let-values(((rhs476_0)"
-"(let-values(((s_779)"
+"(let-values(((s_792)"
 "(car"
-" s_778)))"
-" s_779))"
+" s_791)))"
+" s_792))"
 "(()"
-"(let-values(((s_780)"
+"(let-values(((s_793)"
 "(cdr"
-" s_778)))"
-"(let-values(((s_781)"
+" s_791)))"
+"(let-values(((s_794)"
 "(if(syntax?$1"
-" s_780)"
+" s_793)"
 "(syntax-e$1"
-" s_780)"
-" s_780)))"
+" s_793)"
+" s_793)))"
 "(if(null?"
-" s_781)"
+" s_794)"
 "(values)"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                                               \"bad syntax\""
-" orig-s_84))))))"
+" orig-s_85))))))"
 "(values"
 " rhs476_0))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                           \"bad syntax\""
-" orig-s_84))))))"
+" orig-s_85))))))"
 "(values"
 " id474_0"
 " rhs475_0))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                       \"bad syntax\""
-" orig-s_84))))))"
+" orig-s_85))))))"
 "(values"
 " define-values471_0"
 " id472_0"
@@ -72911,20 +72972,20 @@ static const char *startup_source =
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                   \"bad syntax\""
-" orig-s_84)))))"
+" orig-s_85)))))"
 "(values"
 " #t"
 " define-values468_1"
 " id469_1"
 " rhs470_1))))))"
-"(let-values(((ids_41)"
+"(let-values(((ids_43)"
 "(remove-use-site-scopes"
 " id469_0"
 " partial-body-ctx_1)))"
 "(let-values((()"
 "(begin"
 "(let-values(((ids477_0)"
-" ids_41)"
+" ids_43)"
 "((phase478_0)"
 " phase_152)"
 "((exp-body479_0)"
@@ -72941,7 +73002,7 @@ static const char *startup_source =
 "(let-values((()"
 "(begin"
 "(let-values(((ids480_0)"
-" ids_41)"
+" ids_43)"
 "((phase481_0)"
 " phase_152)"
 "((requires+provides482_0)"
@@ -72956,7 +73017,7 @@ static const char *startup_source =
 "(values))))"
 "(let-values(((syms_24)"
 "(let-values(((ids485_0)"
-" ids_41)"
+" ids_43)"
 "((defined-syms486_0)"
 " defined-syms_11)"
 "((self487_0)"
@@ -72991,20 +73052,20 @@ static const char *startup_source =
 " requires+provides_7"
 " syms_24"
 " phase_152)"
-"(let-values(((obs_149)"
+"(let-values(((obs_147)"
 "(expand-context-observer"
 " partial-body-ctx_1)))"
-"(if obs_149"
+"(if obs_147"
 "(let-values()"
 "(let-values()"
 "(call-expand-observe"
-" obs_149"
+" obs_147"
 " 'exit-prim"
 "(datum->syntax$1"
 " #f"
 "(list"
 " define-values468_0"
-" ids_41"
+" ids_43"
 " rhs470_0)"
 " exp-body_7))))"
 "(void)))"
@@ -73012,7 +73073,7 @@ static const char *startup_source =
 "(semi-parsed-define-values2.1"
 " exp-body_7"
 " syms_24"
-" ids_41"
+" ids_43"
 " rhs470_0)"
 "(loop_124"
 " tail?_52"
@@ -73023,22 +73084,22 @@ static const char *startup_source =
 "(let-values()"
 "(let-values((()"
 "(begin"
-"(let-values(((obs_150)"
+"(let-values(((obs_148)"
 "(expand-context-observer"
 " partial-body-ctx_1)))"
-"(if obs_150"
+"(if obs_148"
 "(let-values()"
 "(let-values()"
 "(begin"
 "(call-expand-observe"
-" obs_150"
+" obs_148"
 " 'enter-prim"
 " exp-body_7)"
 "(call-expand-observe"
-" obs_150"
+" obs_148"
 " 'prim-define-syntaxes)"
 "(call-expand-observe"
-" obs_150"
+" obs_148"
 " 'prepare-env))))"
 "(void)))"
 "(values))))"
@@ -73049,14 +73110,14 @@ static const char *startup_source =
 "(values))))"
 "(let-values((()"
 "(begin"
-"(let-values(((obs_104)"
+"(let-values(((obs_149)"
 "(expand-context-observer"
 " partial-body-ctx_1)))"
-"(if obs_104"
+"(if obs_149"
 "(let-values()"
 "(let-values()"
 "(call-expand-observe"
-" obs_104"
+" obs_149"
 " 'phase-up)))"
 "(void)))"
 "(values))))"
@@ -73064,62 +73125,62 @@ static const char *startup_source =
 " define-syntaxes493_0"
 " id494_0"
 " rhs495_0)"
-"(let-values(((s_529)"
+"(let-values(((s_795)"
 " disarmed-exp-body_1))"
-"(let-values(((orig-s_47)"
-" s_529))"
+"(let-values(((orig-s_86)"
+" s_795))"
 "(let-values(((define-syntaxes493_1"
 " id494_1"
 " rhs495_1)"
-"(let-values(((s_782)"
+"(let-values(((s_796)"
 "(if(syntax?$1"
-" s_529)"
+" s_795)"
 "(syntax-e$1"
-" s_529)"
-" s_529)))"
+" s_795)"
+" s_795)))"
 "(if(pair?"
-" s_782)"
+" s_796)"
 "(let-values(((define-syntaxes496_0)"
-"(let-values(((s_533)"
+"(let-values(((s_797)"
 "(car"
-" s_782)))"
-" s_533))"
+" s_796)))"
+" s_797))"
 "((id497_0"
 " rhs498_0)"
-"(let-values(((s_783)"
+"(let-values(((s_798)"
 "(cdr"
-" s_782)))"
-"(let-values(((s_784)"
+" s_796)))"
+"(let-values(((s_533)"
 "(if(syntax?$1"
-" s_783)"
+" s_798)"
 "(syntax-e$1"
-" s_783)"
-" s_783)))"
+" s_798)"
+" s_798)))"
 "(if(pair?"
-" s_784)"
+" s_533)"
 "(let-values(((id499_0)"
-"(let-values(((s_785)"
+"(let-values(((s_799)"
 "(car"
-" s_784)))"
-"(let-values(((s_786)"
+" s_533)))"
+"(let-values(((s_534)"
 "(if(syntax?$1"
-" s_785)"
+" s_799)"
 "(syntax-e$1"
-" s_785)"
-" s_785)))"
+" s_799)"
+" s_799)))"
 "(let-values(((flat-s_57)"
 "(to-syntax-list.1"
-" s_786)))"
+" s_534)))"
 "(if(not"
 " flat-s_57)"
 "(let-values()"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                                     \"bad syntax\""
-" orig-s_47))"
+" orig-s_86))"
 "(let-values()"
-"(let-values(((id_155)"
-"(let-values(((lst_419)"
+"(let-values(((id_156)"
+"(let-values(((lst_422)"
 " flat-s_57))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
@@ -73127,108 +73188,108 @@ static const char *startup_source =
 "(void)"
 "(let-values()"
 "(check-list"
-" lst_419)))"
-"((letrec-values(((for-loop_323)"
-"(lambda(id_156"
-" lst_420)"
+" lst_422)))"
+"((letrec-values(((for-loop_321)"
+"(lambda(id_157"
+" lst_423)"
 "(begin"
 " 'for-loop"
 "(if(pair?"
-" lst_420)"
-"(let-values(((s_787)"
+" lst_423)"
+"(let-values(((s_537)"
 "(unsafe-car"
-" lst_420))"
+" lst_423))"
 "((rest_240)"
 "(unsafe-cdr"
-" lst_420)))"
-"(let-values(((id_157)"
+" lst_423)))"
 "(let-values(((id_158)"
-" id_156))"
 "(let-values(((id_159)"
+" id_157))"
+"(let-values(((id_160)"
 "(let-values()"
 "(let-values(((id509_0)"
 "(let-values()"
-"(if(let-values(((or-part_401)"
+"(if(let-values(((or-part_404)"
 "(if(syntax?$1"
-" s_787)"
+" s_537)"
 "(symbol?"
 "(syntax-e$1"
-" s_787))"
+" s_537))"
 " #f)))"
-"(if or-part_401"
-" or-part_401"
+"(if or-part_404"
+" or-part_404"
 "(symbol?"
-" s_787)))"
-" s_787"
+" s_537)))"
+" s_537"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                                                                                                                                   \"not an identifier\""
-" orig-s_47"
-" s_787)))))"
+" orig-s_86"
+" s_537)))))"
 "(cons"
 " id509_0"
-" id_158)))))"
-"(values"
 " id_159)))))"
+"(values"
+" id_160)))))"
 "(if(not"
 " #f)"
-"(for-loop_323"
-" id_157"
+"(for-loop_321"
+" id_158"
 " rest_240)"
-" id_157)))"
-" id_156)))))"
-" for-loop_323)"
+" id_158)))"
+" id_157)))))"
+" for-loop_321)"
 " null"
-" lst_419)))))"
+" lst_422)))))"
 "(reverse$1"
-" id_155))))))))"
+" id_156))))))))"
 "((rhs500_0)"
-"(let-values(((s_788)"
+"(let-values(((s_800)"
 "(cdr"
-" s_784)))"
-"(let-values(((s_789)"
+" s_533)))"
+"(let-values(((s_801)"
 "(if(syntax?$1"
-" s_788)"
+" s_800)"
 "(syntax-e$1"
-" s_788)"
-" s_788)))"
+" s_800)"
+" s_800)))"
 "(if(pair?"
-" s_789)"
+" s_801)"
 "(let-values(((rhs501_0)"
-"(let-values(((s_790)"
+"(let-values(((s_802)"
 "(car"
-" s_789)))"
-" s_790))"
+" s_801)))"
+" s_802))"
 "(()"
-"(let-values(((s_791)"
+"(let-values(((s_803)"
 "(cdr"
-" s_789)))"
-"(let-values(((s_792)"
+" s_801)))"
+"(let-values(((s_804)"
 "(if(syntax?$1"
-" s_791)"
+" s_803)"
 "(syntax-e$1"
-" s_791)"
-" s_791)))"
+" s_803)"
+" s_803)))"
 "(if(null?"
-" s_792)"
+" s_804)"
 "(values)"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                                                     \"bad syntax\""
-" orig-s_47))))))"
+" orig-s_86))))))"
 "(values"
 " rhs501_0))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                                 \"bad syntax\""
-" orig-s_47))))))"
+" orig-s_86))))))"
 "(values"
 " id499_0"
 " rhs500_0))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                             \"bad syntax\""
-" orig-s_47))))))"
+" orig-s_86))))))"
 "(values"
 " define-syntaxes496_0"
 " id497_0"
@@ -73236,20 +73297,20 @@ static const char *startup_source =
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                         \"bad syntax\""
-" orig-s_47)))))"
+" orig-s_86)))))"
 "(values"
 " #t"
 " define-syntaxes493_1"
 " id494_1"
 " rhs495_1))))))"
-"(let-values(((ids_42)"
+"(let-values(((ids_44)"
 "(remove-use-site-scopes"
 " id494_0"
 " partial-body-ctx_1)))"
 "(let-values((()"
 "(begin"
 "(let-values(((ids502_0)"
-" ids_42)"
+" ids_44)"
 "((phase503_0)"
 " phase_152)"
 "((exp-body504_0)"
@@ -73266,7 +73327,7 @@ static const char *startup_source =
 "(let-values((()"
 "(begin"
 "(let-values(((ids505_0)"
-" ids_42)"
+" ids_44)"
 "((phase506_0)"
 " phase_152)"
 "((requires+provides507_0)"
@@ -73281,7 +73342,7 @@ static const char *startup_source =
 "(values))))"
 "(let-values(((syms_25)"
 "(let-values(((ids510_0)"
-" ids_42)"
+" ids_44)"
 "((defined-syms511_0)"
 " defined-syms_11)"
 "((self512_0)"
@@ -73326,22 +73387,22 @@ static const char *startup_source =
 "(let-values(((temp519_0)"
 " rhs495_0)"
 "((ids520_0)"
-" ids_42)"
+" ids_44)"
 "((temp521_0)"
 "(let-values(((v_266)"
 " partial-body-ctx_1))"
-"(let-values(((the-struct_116)"
+"(let-values(((the-struct_115)"
 " v_266))"
 "(if(expand-context/outer?"
-" the-struct_116)"
+" the-struct_115)"
 "(let-values(((need-eventually-defined523_0)"
 " need-eventually-defined_2)"
 "((inner524_0)"
-"(let-values(((the-struct_117)"
+"(let-values(((the-struct_116)"
 "(root-expand-context/outer-inner"
 " v_266)))"
 "(if(expand-context/inner?"
-" the-struct_117)"
+" the-struct_116)"
 "(let-values(((lifts525_0)"
 " #f)"
 "((module-lifts526_0)"
@@ -73350,89 +73411,89 @@ static const char *startup_source =
 " #f))"
 "(expand-context/inner2.1"
 "(root-expand-context/inner-self-mpi"
-" the-struct_117)"
+" the-struct_116)"
 "(root-expand-context/inner-module-scopes"
-" the-struct_117)"
+" the-struct_116)"
 "(root-expand-context/inner-top-level-bind-scope"
-" the-struct_117)"
+" the-struct_116)"
 "(root-expand-context/inner-all-scopes-stx"
-" the-struct_117)"
+" the-struct_116)"
 "(root-expand-context/inner-defined-syms"
-" the-struct_117)"
+" the-struct_116)"
 "(root-expand-context/inner-counter"
-" the-struct_117)"
+" the-struct_116)"
 "(root-expand-context/inner-lift-key"
-" the-struct_117)"
+" the-struct_116)"
 "(expand-context/inner-to-parsed?"
-" the-struct_117)"
+" the-struct_116)"
 "(expand-context/inner-phase"
-" the-struct_117)"
+" the-struct_116)"
 "(expand-context/inner-namespace"
-" the-struct_117)"
+" the-struct_116)"
 "(expand-context/inner-just-once?"
-" the-struct_117)"
+" the-struct_116)"
 "(expand-context/inner-module-begin-k"
-" the-struct_117)"
+" the-struct_116)"
 "(expand-context/inner-allow-unbound?"
-" the-struct_117)"
+" the-struct_116)"
 "(expand-context/inner-in-local-expand?"
-" the-struct_117)"
+" the-struct_116)"
 "(expand-context/inner-stops"
-" the-struct_117)"
+" the-struct_116)"
 "(expand-context/inner-declared-submodule-names"
-" the-struct_117)"
+" the-struct_116)"
 " lifts525_0"
 "(expand-context/inner-lift-envs"
-" the-struct_117)"
+" the-struct_116)"
 " module-lifts526_0"
 "(expand-context/inner-require-lifts"
-" the-struct_117)"
+" the-struct_116)"
 " to-module-lifts527_0"
 "(expand-context/inner-requires+provides"
-" the-struct_117)"
+" the-struct_116)"
 "(expand-context/inner-observer"
-" the-struct_117)"
+" the-struct_116)"
 "(expand-context/inner-for-serializable?"
-" the-struct_117)"
+" the-struct_116)"
 "(expand-context/inner-should-not-encounter-macros?"
-" the-struct_117)))"
-"(raise-argument-error"
-" 'struct-copy"
-"                                                                                                                                                                                     \"expand-context/inner?\""
-" the-struct_117)))))"
-"(expand-context/outer1.1"
-" inner524_0"
-"(root-expand-context/outer-post-expansion-scope"
-" the-struct_116)"
-"(root-expand-context/outer-use-site-scopes"
-" the-struct_116)"
-"(root-expand-context/outer-frame-id"
-" the-struct_116)"
-"(expand-context/outer-context"
-" the-struct_116)"
-"(expand-context/outer-env"
-" the-struct_116)"
-"(expand-context/outer-post-expansion-scope-action"
-" the-struct_116)"
-"(expand-context/outer-scopes"
-" the-struct_116)"
-"(expand-context/outer-def-ctx-scopes"
-" the-struct_116)"
-"(expand-context/outer-binding-layer"
-" the-struct_116)"
-"(expand-context/outer-reference-records"
-" the-struct_116)"
-"(expand-context/outer-only-immediate?"
-" the-struct_116)"
-" need-eventually-defined523_0"
-"(expand-context/outer-current-introduction-scopes"
-" the-struct_116)"
-"(expand-context/outer-name"
 " the-struct_116)))"
 "(raise-argument-error"
 " 'struct-copy"
-"                                                                                                                                                                   \"expand-context/outer?\""
+"                                                                                                                                                                                     \"expand-context/inner?\""
 " the-struct_116)))))"
+"(expand-context/outer1.1"
+" inner524_0"
+"(root-expand-context/outer-post-expansion-scope"
+" the-struct_115)"
+"(root-expand-context/outer-use-site-scopes"
+" the-struct_115)"
+"(root-expand-context/outer-frame-id"
+" the-struct_115)"
+"(expand-context/outer-context"
+" the-struct_115)"
+"(expand-context/outer-env"
+" the-struct_115)"
+"(expand-context/outer-post-expansion-scope-action"
+" the-struct_115)"
+"(expand-context/outer-scopes"
+" the-struct_115)"
+"(expand-context/outer-def-ctx-scopes"
+" the-struct_115)"
+"(expand-context/outer-binding-layer"
+" the-struct_115)"
+"(expand-context/outer-reference-records"
+" the-struct_115)"
+"(expand-context/outer-only-immediate?"
+" the-struct_115)"
+" need-eventually-defined523_0"
+"(expand-context/outer-current-introduction-scopes"
+" the-struct_115)"
+"(expand-context/outer-name"
+" the-struct_115)))"
+"(raise-argument-error"
+" 'struct-copy"
+"                                                                                                                                                                   \"expand-context/outer?\""
+" the-struct_115)))))"
 "((temp522_0)"
 " #f))"
 "(expand+eval-for-syntaxes-binding63.1"
@@ -73443,63 +73504,63 @@ static const char *startup_source =
 " temp521_0))))"
 "(let-values((()"
 "(begin"
-"(let-values(((lst_421)"
+"(let-values(((lst_424)"
 " syms_25)"
-"((lst_422)"
+"((lst_425)"
 " vals_10)"
-"((lst_423)"
-" ids_42))"
+"((lst_426)"
+" ids_44))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
 "(#%variable-reference))"
 "(void)"
 "(let-values()"
 "(check-list"
-" lst_421)))"
+" lst_424)))"
 "(if(variable-reference-from-unsafe?"
 "(#%variable-reference))"
 "(void)"
 "(let-values()"
 "(check-list"
-" lst_422)))"
+" lst_425)))"
 "(if(variable-reference-from-unsafe?"
 "(#%variable-reference))"
 "(void)"
 "(let-values()"
 "(check-list"
-" lst_423)))"
-"((letrec-values(((for-loop_324)"
-"(lambda(lst_424"
-" lst_425"
-" lst_426)"
+" lst_426)))"
+"((letrec-values(((for-loop_322)"
+"(lambda(lst_427"
+" lst_428"
+" lst_429)"
 "(begin"
 " 'for-loop"
 "(if(if(pair?"
-" lst_424)"
+" lst_427)"
 "(if(pair?"
-" lst_425)"
+" lst_428)"
 "(pair?"
-" lst_426)"
+" lst_429)"
 " #f)"
 " #f)"
 "(let-values(((sym_106)"
 "(unsafe-car"
-" lst_424))"
+" lst_427))"
 "((rest_241)"
 "(unsafe-cdr"
-" lst_424))"
+" lst_427))"
 "((val_82)"
 "(unsafe-car"
-" lst_425))"
+" lst_428))"
 "((rest_242)"
 "(unsafe-cdr"
-" lst_425))"
-"((id_160)"
+" lst_428))"
+"((id_161)"
 "(unsafe-car"
-" lst_426))"
-"((rest_243)"
+" lst_429))"
+"((rest_226)"
 "(unsafe-cdr"
-" lst_426)))"
+" lst_429)))"
 "(let-values((()"
 "(let-values()"
 "(let-values((()"
@@ -73509,7 +73570,7 @@ static const char *startup_source =
 "(begin"
 "(maybe-install-free=id-in-context!"
 " val_82"
-" id_160"
+" id_161"
 " phase_152"
 " partial-body-ctx_1)"
 "(namespace-set-transformer!"
@@ -73521,34 +73582,34 @@ static const char *startup_source =
 "(values)))))"
 "(if(not"
 " #f)"
-"(for-loop_324"
+"(for-loop_322"
 " rest_241"
 " rest_242"
-" rest_243)"
+" rest_226)"
 "(values))))"
 "(values))))))"
-" for-loop_324)"
-" lst_421"
-" lst_422"
-" lst_423)))"
+" for-loop_322)"
+" lst_424"
+" lst_425"
+" lst_426)))"
 "(values))))"
 "(let-values()"
 "(let-values((()"
 "(begin"
-"(let-values(((obs_151)"
+"(let-values(((obs_150)"
 "(expand-context-observer"
 " partial-body-ctx_1)))"
-"(if obs_151"
+"(if obs_150"
 "(let-values()"
 "(let-values()"
 "(call-expand-observe"
-" obs_151"
+" obs_150"
 " 'exit-prim"
 "(datum->syntax$1"
 " #f"
 "(list"
 " define-syntaxes493_0"
-" ids_42"
+" ids_44"
 " exp-rhs_5)))))"
 "(void)))"
 "(values))))"
@@ -73556,7 +73617,7 @@ static const char *startup_source =
 "(parsed-define-syntaxes20.1"
 "(keep-properties-only"
 " exp-body_7)"
-" ids_42"
+" ids_44"
 " syms_25"
 " parsed-rhs_2)))"
 "(cons"
@@ -73569,7 +73630,7 @@ static const char *startup_source =
 "((temp529_0)"
 "(list"
 " define-syntaxes493_0"
-" ids_42"
+" ids_44"
 " exp-rhs_5)))"
 "(rebuild5.1"
 " #f"
@@ -73586,19 +73647,19 @@ static const char *startup_source =
 "(let-values()"
 "(let-values((()"
 "(begin"
-"(let-values(((obs_152)"
+"(let-values(((obs_151)"
 "(expand-context-observer"
 " partial-body-ctx_1)))"
-"(if obs_152"
+"(if obs_151"
 "(let-values()"
 "(let-values()"
 "(begin"
 "(call-expand-observe"
-" obs_152"
+" obs_151"
 " 'enter-prim"
 " exp-body_7)"
 "(call-expand-observe"
-" obs_152"
+" obs_151"
 " 'prim-require))))"
 "(void)))"
 "(values))))"
@@ -73609,45 +73670,45 @@ static const char *startup_source =
 "(let-values(((ok?_79"
 " #%require530_0"
 " req531_0)"
-"(let-values(((s_793)"
+"(let-values(((s_805)"
 " ready-body_0))"
-"(let-values(((orig-s_85)"
-" s_793))"
+"(let-values(((orig-s_87)"
+" s_805))"
 "(let-values(((#%require530_1"
 " req531_1)"
-"(let-values(((s_794)"
+"(let-values(((s_806)"
 "(if(syntax?$1"
-" s_793)"
+" s_805)"
 "(syntax-e$1"
-" s_793)"
-" s_793)))"
+" s_805)"
+" s_805)))"
 "(if(pair?"
-" s_794)"
+" s_806)"
 "(let-values(((#%require532_0)"
-"(let-values(((s_795)"
+"(let-values(((s_807)"
 "(car"
-" s_794)))"
-" s_795))"
+" s_806)))"
+" s_807))"
 "((req533_0)"
-"(let-values(((s_796)"
+"(let-values(((s_808)"
 "(cdr"
-" s_794)))"
-"(let-values(((s_797)"
+" s_806)))"
+"(let-values(((s_809)"
 "(if(syntax?$1"
-" s_796)"
+" s_808)"
 "(syntax-e$1"
-" s_796)"
-" s_796)))"
+" s_808)"
+" s_808)))"
 "(let-values(((flat-s_58)"
 "(to-syntax-list.1"
-" s_797)))"
+" s_809)))"
 "(if(not"
 " flat-s_58)"
 "(let-values()"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                 \"bad syntax\""
-" orig-s_85))"
+" orig-s_87))"
 "(let-values()"
 " flat-s_58)))))))"
 "(values"
@@ -73656,7 +73717,7 @@ static const char *startup_source =
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                         \"bad syntax\""
-" orig-s_85)))))"
+" orig-s_87)))))"
 "(values"
 " #t"
 " #%require530_1"
@@ -73705,14 +73766,14 @@ static const char *startup_source =
 " m-ns537_0"
 " phase538_0"
 " requires+provides540_0))"
-"(let-values(((obs_153)"
+"(let-values(((obs_152)"
 "(expand-context-observer"
 " partial-body-ctx_1)))"
-"(if obs_153"
+"(if obs_152"
 "(let-values()"
 "(let-values()"
 "(call-expand-observe"
-" obs_153"
+" obs_152"
 " 'exit-prim"
 " ready-body_0)))"
 "(void)))"
@@ -73782,22 +73843,22 @@ static const char *startup_source =
 " 'module*)"
 "(let-values()"
 "(begin"
-"(let-values(((obs_154)"
+"(let-values(((obs_153)"
 "(expand-context-observer"
 " partial-body-ctx_1)))"
-"(if obs_154"
+"(if obs_153"
 "(let-values()"
 "(let-values()"
 "(begin"
 "(call-expand-observe"
-" obs_154"
+" obs_153"
 " 'enter-prim"
 " exp-body_7)"
 "(call-expand-observe"
-" obs_154"
+" obs_153"
 " 'prim-submodule*)"
 "(call-expand-observe"
-" obs_154"
+" obs_153"
 " 'exit-prim"
 " exp-body_7))))"
 "(void)))"
@@ -73813,45 +73874,45 @@ static const char *startup_source =
 "(let-values(((ok?_80"
 " #%declare551_0"
 " kw552_0)"
-"(let-values(((s_798)"
+"(let-values(((s_810)"
 " disarmed-exp-body_1))"
-"(let-values(((orig-s_86)"
-" s_798))"
+"(let-values(((orig-s_88)"
+" s_810))"
 "(let-values(((#%declare551_1"
 " kw552_1)"
-"(let-values(((s_569)"
+"(let-values(((s_811)"
 "(if(syntax?$1"
-" s_798)"
+" s_810)"
 "(syntax-e$1"
-" s_798)"
-" s_798)))"
+" s_810)"
+" s_810)))"
 "(if(pair?"
-" s_569)"
+" s_811)"
 "(let-values(((#%declare553_0)"
-"(let-values(((s_799)"
+"(let-values(((s_812)"
 "(car"
-" s_569)))"
-" s_799))"
+" s_811)))"
+" s_812))"
 "((kw554_0)"
-"(let-values(((s_572)"
+"(let-values(((s_553)"
 "(cdr"
-" s_569)))"
-"(let-values(((s_573)"
+" s_811)))"
+"(let-values(((s_554)"
 "(if(syntax?$1"
-" s_572)"
+" s_553)"
 "(syntax-e$1"
-" s_572)"
-" s_572)))"
+" s_553)"
+" s_553)))"
 "(let-values(((flat-s_59)"
 "(to-syntax-list.1"
-" s_573)))"
+" s_554)))"
 "(if(not"
 " flat-s_59)"
 "(let-values()"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                     \"bad syntax\""
-" orig-s_86))"
+" orig-s_88))"
 "(let-values()"
 " flat-s_59)))))))"
 "(values"
@@ -73860,14 +73921,14 @@ static const char *startup_source =
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                             \"bad syntax\""
-" orig-s_86)))))"
+" orig-s_88)))))"
 "(values"
 " #t"
 " #%declare551_1"
 " kw552_1))))))"
 "(let-values((()"
 "(begin"
-"(let-values(((lst_427)"
+"(let-values(((lst_430)"
 " kw552_0))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
@@ -73875,19 +73936,19 @@ static const char *startup_source =
 "(void)"
 "(let-values()"
 "(check-list"
-" lst_427)))"
-"((letrec-values(((for-loop_325)"
-"(lambda(lst_428)"
+" lst_430)))"
+"((letrec-values(((for-loop_323)"
+"(lambda(lst_431)"
 "(begin"
 " 'for-loop"
 "(if(pair?"
-" lst_428)"
+" lst_431)"
 "(let-values(((kw_1)"
 "(unsafe-car"
-" lst_428))"
-"((rest_244)"
+" lst_431))"
+"((rest_243)"
 "(unsafe-cdr"
-" lst_428)))"
+" lst_431)))"
 "(let-values((()"
 "(let-values()"
 "(let-values((()"
@@ -73938,12 +73999,12 @@ static const char *startup_source =
 "(values)))))"
 "(if(not"
 " #f)"
-"(for-loop_325"
-" rest_244)"
+"(for-loop_323"
+" rest_243)"
 "(values))))"
 "(values))))))"
-" for-loop_325)"
-" lst_427)))"
+" for-loop_323)"
+" lst_430)))"
 "(values))))"
 "(let-values()"
 "(let-values(((parsed-body_1)"
@@ -73990,37 +74051,37 @@ static const char *startup_source =
 "(make-wrap-as-definition)"
 "(lambda(self_35 frame-id_18 inside-scope_2 all-scopes-stx_6 defined-syms_12 requires+provides_8)"
 "(begin"
-"(lambda(ids_43 rhs_24 phase_153)"
+"(lambda(ids_45 rhs_24 phase_153)"
 "(let-values(((scoped-ids_0)"
 "(reverse$1"
-"(let-values(((lst_429) ids_43))"
+"(let-values(((lst_432) ids_45))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
-"(let-values()(check-list lst_429)))"
-"((letrec-values(((for-loop_326)"
-"(lambda(fold-var_369 lst_430)"
+"(let-values()(check-list lst_432)))"
+"((letrec-values(((for-loop_324)"
+"(lambda(fold-var_374 lst_433)"
 "(begin"
 " 'for-loop"
-"(if(pair? lst_430)"
-"(let-values(((id_161)(unsafe-car lst_430))"
-"((rest_245)(unsafe-cdr lst_430)))"
-"(let-values(((fold-var_370)"
-"(let-values(((fold-var_371) fold-var_369))"
-"(let-values(((fold-var_372)"
+"(if(pair? lst_433)"
+"(let-values(((id_162)(unsafe-car lst_433))"
+"((rest_244)(unsafe-cdr lst_433)))"
+"(let-values(((fold-var_375)"
+"(let-values(((fold-var_376) fold-var_374))"
+"(let-values(((fold-var_377)"
 "(let-values()"
 "(cons"
 "(let-values()"
 "(add-scope"
-" id_161"
+" id_162"
 " inside-scope_2))"
-" fold-var_371))))"
-"(values fold-var_372)))))"
-"(if(not #f)(for-loop_326 fold-var_370 rest_245) fold-var_370)))"
-" fold-var_369)))))"
-" for-loop_326)"
+" fold-var_376))))"
+"(values fold-var_377)))))"
+"(if(not #f)(for-loop_324 fold-var_375 rest_244) fold-var_375)))"
+" fold-var_374)))))"
+" for-loop_324)"
 " null"
-" lst_429))))))"
+" lst_432))))))"
 "(let-values(((syms_26)"
 "(let-values(((scoped-ids555_0) scoped-ids_0)"
 "((defined-syms556_0) defined-syms_12)"
@@ -74061,28 +74122,28 @@ static const char *startup_source =
 "(let-values(((sc_35)(root-expand-context-post-expansion-scope ctx_114)))"
 "(if sc_35"
 "(reverse$1"
-"(let-values(((lst_431) bodys_23))"
+"(let-values(((lst_434) bodys_23))"
 "(begin"
-"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_431)))"
-"((letrec-values(((for-loop_327)"
-"(lambda(fold-var_373 lst_432)"
+"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_434)))"
+"((letrec-values(((for-loop_325)"
+"(lambda(fold-var_378 lst_435)"
 "(begin"
 " 'for-loop"
-"(if(pair? lst_432)"
-"(let-values(((body_23)(unsafe-car lst_432))((rest_246)(unsafe-cdr lst_432)))"
-"(let-values(((fold-var_374)"
-"(let-values(((fold-var_375) fold-var_373))"
-"(let-values(((fold-var_376)"
+"(if(pair? lst_435)"
+"(let-values(((body_23)(unsafe-car lst_435))((rest_245)(unsafe-cdr lst_435)))"
+"(let-values(((fold-var_379)"
+"(let-values(((fold-var_380) fold-var_378))"
+"(let-values(((fold-var_381)"
 "(let-values()"
 "(cons"
 "(let-values()(add-scope body_23 sc_35))"
-" fold-var_375))))"
-"(values fold-var_376)))))"
-"(if(not #f)(for-loop_327 fold-var_374 rest_246) fold-var_374)))"
-" fold-var_373)))))"
-" for-loop_327)"
+" fold-var_380))))"
+"(values fold-var_381)))))"
+"(if(not #f)(for-loop_325 fold-var_379 rest_245) fold-var_379)))"
+" fold-var_378)))))"
+" for-loop_325)"
 " null"
-" lst_431))))"
+" lst_434))))"
 " bodys_23)))))"
 "(define-values"
 "(finish-expanding-body-expressons99.1)"
@@ -74114,12 +74175,12 @@ static const char *startup_source =
 "(if(if tail?_53(not(zero? phase_154)) #f)"
 "(let-values()"
 "(begin"
-"(let-values(((obs_155)(expand-context-observer body-ctx_7)))"
-"(if obs_155"
+"(let-values(((obs_154)(expand-context-observer body-ctx_7)))"
+"(if obs_154"
 "(let-values()"
 "(let-values()"
 "(call-expand-observe"
-" obs_155"
+" obs_154"
 " 'module-lift-end-loop"
 " '())))"
 "(void)))"
@@ -74135,13 +74196,13 @@ static const char *startup_source =
 "(if(null? bodys_25)"
 "(let-values()"
 "(begin"
-"(let-values(((obs_156)"
+"(let-values(((obs_155)"
 "(expand-context-observer body-ctx_7)))"
-"(if obs_156"
+"(if obs_155"
 "(let-values()"
 "(let-values()"
 "(call-expand-observe"
-" obs_156"
+" obs_155"
 " 'module-lift-end-loop"
 " '())))"
 "(void)))"
@@ -74154,139 +74215,139 @@ static const char *startup_source =
 "(let-values()"
 "(let-values((()"
 "(begin"
-"(let-values(((obs_157)"
+"(let-values(((obs_156)"
 "(expand-context-observer body-ctx_7)))"
-"(if obs_157"
+"(if obs_156"
 "(let-values()"
 "(let-values()"
-"(call-expand-observe obs_157 'next)))"
+"(call-expand-observe obs_156 'next)))"
 "(void)))"
 "(values))))"
 "(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_402)"
+"(if(let-values(((or-part_405)"
 "(parsed? body_24)))"
-"(if or-part_402"
-" or-part_402"
-"(let-values(((or-part_403)"
+"(if or-part_405"
+" or-part_405"
+"(let-values(((or-part_406)"
 "(expanded+parsed? body_24)))"
-"(if or-part_403"
-" or-part_403"
+"(if or-part_406"
+" or-part_406"
 "(semi-parsed-begin-for-syntax?"
 " body_24)))))"
 "(let-values() body_24)"
 "(if(semi-parsed-define-values? body_24)"
 "(let-values()"
-"(let-values(((ids_44)"
+"(let-values(((ids_46)"
 "(semi-parsed-define-values-ids"
 " body_24)))"
 "(let-values(((rhs-ctx_2)"
 "(as-named-context"
 "(as-expression-context"
 " body-ctx_7)"
-" ids_44)))"
+" ids_46)))"
 "(let-values(((syms_27)"
 "(semi-parsed-define-values-syms"
 " body_24)))"
-"(let-values(((s_800)"
+"(let-values(((s_813)"
 "(semi-parsed-define-values-s"
 " body_24)))"
 "(let-values(((ok?_81"
 " define-values562_0"
 " _563_0"
 " _564_0)"
-"(let-values(((s_801)"
+"(let-values(((s_814)"
 "(syntax-disarm$1"
-" s_800)))"
+" s_813)))"
 "(if(if(not"
 "(expand-context-to-parsed?"
 " rhs-ctx_2))"
 " #t"
 " #f)"
-"(let-values(((orig-s_87)"
-" s_801))"
+"(let-values(((orig-s_89)"
+" s_814))"
 "(let-values(((define-values562_1"
 " _563_1"
 " _564_1)"
-"(let-values(((s_802)"
+"(let-values(((s_815)"
 "(if(syntax?$1"
-" s_801)"
+" s_814)"
 "(syntax-e$1"
-" s_801)"
-" s_801)))"
+" s_814)"
+" s_814)))"
 "(if(pair?"
-" s_802)"
+" s_815)"
 "(let-values(((define-values565_0)"
-"(let-values(((s_803)"
+"(let-values(((s_816)"
 "(car"
-" s_802)))"
-" s_803))"
+" s_815)))"
+" s_816))"
 "((_566_0"
 " _567_0)"
-"(let-values(((s_804)"
+"(let-values(((s_621)"
 "(cdr"
-" s_802)))"
-"(let-values(((s_805)"
+" s_815)))"
+"(let-values(((s_622)"
 "(if(syntax?$1"
-" s_804)"
+" s_621)"
 "(syntax-e$1"
-" s_804)"
-" s_804)))"
+" s_621)"
+" s_621)))"
 "(if(pair?"
-" s_805)"
+" s_622)"
 "(let-values(((_568_0)"
-"(let-values(((s_806)"
+"(let-values(((s_817)"
 "(car"
-" s_805)))"
-" s_806))"
+" s_622)))"
+" s_817))"
 "((_569_0)"
-"(let-values(((s_807)"
+"(let-values(((s_818)"
 "(cdr"
-" s_805)))"
-"(let-values(((s_613)"
+" s_622)))"
+"(let-values(((s_819)"
 "(if(syntax?$1"
-" s_807)"
+" s_818)"
 "(syntax-e$1"
-" s_807)"
-" s_807)))"
+" s_818)"
+" s_818)))"
 "(if(pair?"
-" s_613)"
+" s_819)"
 "(let-values(((_570_0)"
-"(let-values(((s_808)"
+"(let-values(((s_820)"
 "(car"
-" s_613)))"
-" s_808))"
+" s_819)))"
+" s_820))"
 "(()"
-"(let-values(((s_809)"
+"(let-values(((s_821)"
 "(cdr"
-" s_613)))"
-"(let-values(((s_810)"
+" s_819)))"
+"(let-values(((s_822)"
 "(if(syntax?$1"
-" s_809)"
+" s_821)"
 "(syntax-e$1"
-" s_809)"
-" s_809)))"
+" s_821)"
+" s_821)))"
 "(if(null?"
-" s_810)"
+" s_822)"
 "(values)"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                       \"bad syntax\""
-" orig-s_87))))))"
+" orig-s_89))))))"
 "(values"
 " _570_0))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                   \"bad syntax\""
-" orig-s_87))))))"
+" orig-s_89))))))"
 "(values"
 " _568_0"
 " _569_0))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                               \"bad syntax\""
-" orig-s_87))))))"
+" orig-s_89))))))"
 "(values"
 " define-values565_0"
 " _566_0"
@@ -74294,7 +74355,7 @@ static const char *startup_source =
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                           \"bad syntax\""
-" orig-s_87)))))"
+" orig-s_89)))))"
 "(values"
 " #t"
 " define-values562_1"
@@ -74309,7 +74370,7 @@ static const char *startup_source =
 "(let-values(((rhs-ctx571_0)"
 " rhs-ctx_2)"
 "((s572_0)"
-" s_800)"
+" s_813)"
 "((temp573_0)"
 " #t))"
 "(keep-as-needed74.1"
@@ -74351,7 +74412,7 @@ static const char *startup_source =
 "(let-values(((comp-form_0)"
 "(parsed-define-values19.1"
 " rebuild-s_15"
-" ids_44"
+" ids_46"
 " syms_27"
 "(if(expand-context-to-parsed?"
 " rhs-ctx_2)"
@@ -74377,7 +74438,7 @@ static const char *startup_source =
 "((temp579_0)"
 "(list"
 " define-values562_0"
-" ids_44"
+" ids_46"
 " exp-rhs_6)))"
 "(rebuild5.1"
 " #f"
@@ -74450,14 +74511,14 @@ static const char *startup_source =
 "(if no-lifts?_0"
 "(void)"
 "(let-values()"
-"(let-values(((obs_158)"
+"(let-values(((obs_157)"
 "(expand-context-observer"
 " body-ctx_7)))"
-"(if obs_158"
+"(if obs_157"
 "(let-values()"
 "(let-values()"
 "(call-expand-observe"
-" obs_158"
+" obs_157"
 " 'module-lift-loop"
 "(append"
 " lifted-requires_0"
@@ -74498,14 +74559,14 @@ static const char *startup_source =
 "(if no-lifts?_0"
 "(void)"
 "(let-values()"
-"(let-values(((obs_159)"
+"(let-values(((obs_158)"
 "(expand-context-observer"
 " body-ctx_7)))"
-"(if obs_159"
+"(if obs_158"
 "(let-values()"
 "(let-values()"
 "(call-expand-observe"
-" obs_159"
+" obs_158"
 " 'next)))"
 "(void)))))"
 "(append"
@@ -74528,7 +74589,7 @@ static const char *startup_source =
 "(let-values(((ht_165) need-eventually-defined_3))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-in-hash ht_165)))"
-"((letrec-values(((for-loop_328)"
+"((letrec-values(((for-loop_326)"
 "(lambda(i_189)"
 "(begin"
 " 'for-loop"
@@ -74541,24 +74602,24 @@ static const char *startup_source =
 "(begin"
 "(let-values()"
 "(begin"
-"(let-values(((lst_433) l_84))"
+"(let-values(((lst_436) l_84))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
 "(#%variable-reference))"
 "(void)"
-"(let-values()(check-list lst_433)))"
-"((letrec-values(((for-loop_329)"
-"(lambda(lst_434)"
+"(let-values()(check-list lst_436)))"
+"((letrec-values(((for-loop_327)"
+"(lambda(lst_437)"
 "(begin"
 " 'for-loop"
 "(if(pair?"
-" lst_434)"
-"(let-values(((id_162)"
+" lst_437)"
+"(let-values(((id_163)"
 "(unsafe-car"
-" lst_434))"
-"((rest_247)"
+" lst_437))"
+"((rest_246)"
 "(unsafe-cdr"
-" lst_434)))"
+" lst_437)))"
 "(let-values((()"
 "(let-values()"
 "(let-values((()"
@@ -74567,7 +74628,7 @@ static const char *startup_source =
 "(let-values()"
 "(let-values(((b_93)"
 "(let-values(((id592_0)"
-" id_162)"
+" id_163)"
 "((phase593_0)"
 " phase_155))"
 "(resolve+shift30.1"
@@ -74590,7 +74651,7 @@ static const char *startup_source =
 "(module-binding-sym"
 " b_93)"
 "(syntax-e$1"
-" id_162))"
+" id_163))"
 "(eq?"
 "(module-binding-module"
 " b_93)"
@@ -74603,27 +74664,27 @@ static const char *startup_source =
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                     \"reference to an unbound identifier\""
-" id_162"
+" id_163"
 " #f"
 " null"
 "(syntax-debug-info-string"
-" id_162"
+" id_163"
 " ctx_115))))))"
 "(values)))))"
 "(values)))))"
 "(if(not #f)"
-"(for-loop_329"
-" rest_247)"
+"(for-loop_327"
+" rest_246)"
 "(values))))"
 "(values))))))"
-" for-loop_329)"
-" lst_433)))"
+" for-loop_327)"
+" lst_436)))"
 "(void)))"
 "(values)))))"
 "(values)))))"
-"(if(not #f)(for-loop_328(hash-iterate-next ht_165 i_189))(values))))"
+"(if(not #f)(for-loop_326(hash-iterate-next ht_165 i_189))(values))))"
 "(values))))))"
-" for-loop_328)"
+" for-loop_326)"
 "(hash-iterate-first ht_165))))"
 "(void)))))"
 "(define-values"
@@ -74652,8 +74713,8 @@ static const char *startup_source =
 " 'loop"
 "(if(null? bodys_26)"
 "(let-values() null)"
-"(if(let-values(((or-part_404)(parsed?(car bodys_26))))"
-"(if or-part_404 or-part_404(expanded+parsed?(car bodys_26))))"
+"(if(let-values(((or-part_407)(parsed?(car bodys_26))))"
+"(if or-part_407 or-part_407(expanded+parsed?(car bodys_26))))"
 "(let-values()"
 "(cons(car bodys_26)(loop_126(cdr bodys_26) phase_157)))"
 "(if(semi-parsed-begin-for-syntax?(car bodys_26))"
@@ -74663,16 +74724,16 @@ static const char *startup_source =
 "(semi-parsed-begin-for-syntax-body(car bodys_26))"
 "(add1 phase_157))))"
 "(cons"
-"(let-values(((the-struct_118)(car bodys_26)))"
-"(if(semi-parsed-begin-for-syntax? the-struct_118)"
+"(let-values(((the-struct_117)(car bodys_26)))"
+"(if(semi-parsed-begin-for-syntax? the-struct_117)"
 "(let-values(((body594_0) nested-bodys_2))"
 "(semi-parsed-begin-for-syntax3.1"
-"(semi-parsed-begin-for-syntax-s the-struct_118)"
+"(semi-parsed-begin-for-syntax-s the-struct_117)"
 " body594_0))"
 "(raise-argument-error"
 " 'struct-copy"
 "                                                              \"semi-parsed-begin-for-syntax?\""
-" the-struct_118)))"
+" the-struct_117)))"
 "(loop_126(cdr bodys_26) phase_157))))"
 "(let-values()"
 "(let-values(((disarmed-body_1)(syntax-disarm$1(car bodys_26))))"
@@ -74682,59 +74743,59 @@ static const char *startup_source =
 "(let-values()"
 "(let-values((()"
 "(begin"
-"(let-values(((obs_160)"
+"(let-values(((obs_159)"
 "(expand-context-observer"
 " ctx_116)))"
-"(if obs_160"
+"(if obs_159"
 "(let-values()"
 "(let-values()"
 "(begin"
 "(call-expand-observe"
-" obs_160"
+" obs_159"
 " 'enter-prim"
 "(car bodys_26))"
 "(call-expand-observe"
-" obs_160"
+" obs_159"
 " 'prim-provide))))"
 "(void)))"
 "(values))))"
 "(let-values(((ok?_82 #%provide595_0 spec596_0)"
-"(let-values(((s_811) disarmed-body_1))"
-"(let-values(((orig-s_88) s_811))"
+"(let-values(((s_643) disarmed-body_1))"
+"(let-values(((orig-s_90) s_643))"
 "(let-values(((#%provide595_1"
 " spec596_1)"
-"(let-values(((s_812)"
+"(let-values(((s_823)"
 "(if(syntax?$1"
-" s_811)"
+" s_643)"
 "(syntax-e$1"
-" s_811)"
-" s_811)))"
-"(if(pair? s_812)"
+" s_643)"
+" s_643)))"
+"(if(pair? s_823)"
 "(let-values(((#%provide597_0)"
-"(let-values(((s_813)"
+"(let-values(((s_824)"
 "(car"
-" s_812)))"
-" s_813))"
+" s_823)))"
+" s_824))"
 "((spec598_0)"
-"(let-values(((s_814)"
+"(let-values(((s_825)"
 "(cdr"
-" s_812)))"
-"(let-values(((s_815)"
+" s_823)))"
+"(let-values(((s_826)"
 "(if(syntax?$1"
-" s_814)"
+" s_825)"
 "(syntax-e$1"
-" s_814)"
-" s_814)))"
+" s_825)"
+" s_825)))"
 "(let-values(((flat-s_60)"
 "(to-syntax-list.1"
-" s_815)))"
+" s_826)))"
 "(if(not"
 " flat-s_60)"
 "(let-values()"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                             \"bad syntax\""
-" orig-s_88))"
+" orig-s_90))"
 "(let-values()"
 " flat-s_60)))))))"
 "(values"
@@ -74743,7 +74804,7 @@ static const char *startup_source =
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                     \"bad syntax\""
-" orig-s_88)))))"
+" orig-s_90)))))"
 "(values"
 " #t"
 " #%provide595_1"
@@ -74756,18 +74817,18 @@ static const char *startup_source =
 " self_38"
 " phase_157"
 "(let-values(((v_267) ctx_116))"
-"(let-values(((the-struct_119)"
+"(let-values(((the-struct_118)"
 " v_267))"
 "(if(expand-context/outer?"
-" the-struct_119)"
+" the-struct_118)"
 "(let-values(((context599_0)"
 " 'top-level)"
 "((inner600_0)"
-"(let-values(((the-struct_120)"
+"(let-values(((the-struct_119)"
 "(root-expand-context/outer-inner"
 " v_267)))"
 "(if(expand-context/inner?"
-" the-struct_120)"
+" the-struct_119)"
 "(let-values(((phase601_0)"
 " phase_157)"
 "((namespace602_0)"
@@ -74780,88 +74841,88 @@ static const char *startup_source =
 " declared-submodule-names_6))"
 "(expand-context/inner2.1"
 "(root-expand-context/inner-self-mpi"
-" the-struct_120)"
+" the-struct_119)"
 "(root-expand-context/inner-module-scopes"
-" the-struct_120)"
+" the-struct_119)"
 "(root-expand-context/inner-top-level-bind-scope"
-" the-struct_120)"
+" the-struct_119)"
 "(root-expand-context/inner-all-scopes-stx"
-" the-struct_120)"
+" the-struct_119)"
 "(root-expand-context/inner-defined-syms"
-" the-struct_120)"
+" the-struct_119)"
 "(root-expand-context/inner-counter"
-" the-struct_120)"
+" the-struct_119)"
 "(root-expand-context/inner-lift-key"
-" the-struct_120)"
+" the-struct_119)"
 "(expand-context/inner-to-parsed?"
-" the-struct_120)"
+" the-struct_119)"
 " phase601_0"
 " namespace602_0"
 "(expand-context/inner-just-once?"
-" the-struct_120)"
+" the-struct_119)"
 "(expand-context/inner-module-begin-k"
-" the-struct_120)"
+" the-struct_119)"
 "(expand-context/inner-allow-unbound?"
-" the-struct_120)"
+" the-struct_119)"
 "(expand-context/inner-in-local-expand?"
-" the-struct_120)"
+" the-struct_119)"
 "(expand-context/inner-stops"
-" the-struct_120)"
+" the-struct_119)"
 " declared-submodule-names604_0"
 "(expand-context/inner-lifts"
-" the-struct_120)"
+" the-struct_119)"
 "(expand-context/inner-lift-envs"
-" the-struct_120)"
+" the-struct_119)"
 "(expand-context/inner-module-lifts"
-" the-struct_120)"
+" the-struct_119)"
 "(expand-context/inner-require-lifts"
-" the-struct_120)"
+" the-struct_119)"
 "(expand-context/inner-to-module-lifts"
-" the-struct_120)"
+" the-struct_119)"
 " requires+provides603_0"
 "(expand-context/inner-observer"
-" the-struct_120)"
+" the-struct_119)"
 "(expand-context/inner-for-serializable?"
-" the-struct_120)"
+" the-struct_119)"
 "(expand-context/inner-should-not-encounter-macros?"
-" the-struct_120)))"
-"(raise-argument-error"
-" 'struct-copy"
-"                                                                                                          \"expand-context/inner?\""
-" the-struct_120)))))"
-"(expand-context/outer1.1"
-" inner600_0"
-"(root-expand-context/outer-post-expansion-scope"
-" the-struct_119)"
-"(root-expand-context/outer-use-site-scopes"
-" the-struct_119)"
-"(root-expand-context/outer-frame-id"
-" the-struct_119)"
-" context599_0"
-"(expand-context/outer-env"
-" the-struct_119)"
-"(expand-context/outer-post-expansion-scope-action"
-" the-struct_119)"
-"(expand-context/outer-scopes"
-" the-struct_119)"
-"(expand-context/outer-def-ctx-scopes"
-" the-struct_119)"
-"(expand-context/outer-binding-layer"
-" the-struct_119)"
-"(expand-context/outer-reference-records"
-" the-struct_119)"
-"(expand-context/outer-only-immediate?"
-" the-struct_119)"
-"(expand-context/outer-need-eventually-defined"
-" the-struct_119)"
-"(expand-context/outer-current-introduction-scopes"
-" the-struct_119)"
-"(expand-context/outer-name"
 " the-struct_119)))"
 "(raise-argument-error"
 " 'struct-copy"
+"                                                                                                          \"expand-context/inner?\""
+" the-struct_119)))))"
+"(expand-context/outer1.1"
+" inner600_0"
+"(root-expand-context/outer-post-expansion-scope"
+" the-struct_118)"
+"(root-expand-context/outer-use-site-scopes"
+" the-struct_118)"
+"(root-expand-context/outer-frame-id"
+" the-struct_118)"
+" context599_0"
+"(expand-context/outer-env"
+" the-struct_118)"
+"(expand-context/outer-post-expansion-scope-action"
+" the-struct_118)"
+"(expand-context/outer-scopes"
+" the-struct_118)"
+"(expand-context/outer-def-ctx-scopes"
+" the-struct_118)"
+"(expand-context/outer-binding-layer"
+" the-struct_118)"
+"(expand-context/outer-reference-records"
+" the-struct_118)"
+"(expand-context/outer-only-immediate?"
+" the-struct_118)"
+"(expand-context/outer-need-eventually-defined"
+" the-struct_118)"
+"(expand-context/outer-current-introduction-scopes"
+" the-struct_118)"
+"(expand-context/outer-name"
+" the-struct_118)))"
+"(raise-argument-error"
+" 'struct-copy"
 "                                                                                        \"expand-context/outer?\""
-" the-struct_119)))))))"
+" the-struct_118)))))))"
 "(if(expand-context-to-parsed? ctx_116)"
 "(let-values()"
 "(loop_126(cdr bodys_26) phase_157))"
@@ -74881,14 +74942,14 @@ static const char *startup_source =
 " temp605_0"
 " temp606_0)))))"
 "(begin"
-"(let-values(((obs_161)"
+"(let-values(((obs_160)"
 "(expand-context-observer"
 " ctx_116)))"
-"(if obs_161"
+"(if obs_160"
 "(let-values()"
 "(let-values()"
 "(call-expand-observe"
-" obs_161"
+" obs_160"
 " 'exit-prim"
 " new-s_10)))"
 "(void)))"
@@ -74948,8 +75009,8 @@ static const char *startup_source =
 "(hasheq))))"
 "(let-values(((module-name_2)"
 "(1/module-path-index-resolve"
-"(let-values(((or-part_405) enclosing-self_3))"
-"(if or-part_405 or-part_405 self_39)))))"
+"(let-values(((or-part_408) enclosing-self_3))"
+"(if or-part_408 or-part_408 self_39)))))"
 "(let-values(((compiled-module_0)"
 "(let-values(((parsed-mod607_0) parsed-mod_0)"
 "((temp608_0)"
@@ -75015,16 +75076,16 @@ static const char *startup_source =
 " compiled-module615_0)))))))))))))))))))))))))"
 "(define-values"
 "(attach-root-expand-context-properties)"
-"(lambda(s_661 root-ctx_8 orig-self_1 new-self_2)"
+"(lambda(s_665 root-ctx_8 orig-self_1 new-self_2)"
 "(begin"
-"(let-values(((s_664)"
-"(syntax-property$1 s_661 'module-body-context(root-expand-context-all-scopes-stx root-ctx_8))))"
-"(let-values(((s_665)"
+"(let-values(((s_827)"
+"(syntax-property$1 s_665 'module-body-context(root-expand-context-all-scopes-stx root-ctx_8))))"
+"(let-values(((s_828)"
 "(syntax-property$1"
-" s_664"
+" s_827"
 " 'module-body-inside-context"
 "(add-scope empty-syntax(root-expand-context-post-expansion-scope root-ctx_8)))))"
-" s_665)))))"
+" s_828)))))"
 "(define-values"
 "(expand-post-submodules165.1)"
 "(lambda(all-scopes-s147_0"
@@ -75035,7 +75096,7 @@ static const char *startup_source =
 " enclosing-is-cross-phase-persistent?146_0"
 " modules-being-compiled151_0"
 " mpis-to-reset148_0"
-" phase143_0"
+" phase143_1"
 " requires-and-provides145_0"
 " self144_0"
 " fully-expanded-bodys-except-post-submodules164_0)"
@@ -75043,7 +75104,7 @@ static const char *startup_source =
 " 'expand-post-submodules165"
 "(let-values(((fully-expanded-bodys-except-post-submodules_2) fully-expanded-bodys-except-post-submodules164_0))"
 "(let-values(((declare-enclosing-module_1) declare-enclosing142_0))"
-"(let-values(((phase_158) phase143_0))"
+"(let-values(((phase_158) phase143_1))"
 "(let-values(((self_40) self144_0))"
 "(let-values(((requires+provides_11) requires-and-provides145_0))"
 "(let-values(((enclosing-is-cross-phase-persistent?_1) enclosing-is-cross-phase-persistent?146_0))"
@@ -75069,44 +75130,44 @@ static const char *startup_source =
 "(semi-parsed-begin-for-syntax-s"
 " body_25)))"
 "(let-values(((ok?_83 begin-for-syntax617_0 _618_0)"
-"(let-values(((s_666)"
+"(let-values(((s_829)"
 "(syntax-disarm$1"
 " body-s_0)))"
-"(let-values(((orig-s_89) s_666))"
+"(let-values(((orig-s_91) s_829))"
 "(let-values(((begin-for-syntax617_1"
 " _618_1)"
-"(let-values(((s_816)"
+"(let-values(((s_830)"
 "(if(syntax?$1"
-" s_666)"
+" s_829)"
 "(syntax-e$1"
-" s_666)"
-" s_666)))"
-"(if(pair? s_816)"
+" s_829)"
+" s_829)))"
+"(if(pair? s_830)"
 "(let-values(((begin-for-syntax619_0)"
-"(let-values(((s_817)"
+"(let-values(((s_831)"
 "(car"
-" s_816)))"
-" s_817))"
+" s_830)))"
+" s_831))"
 "((_620_0)"
-"(let-values(((s_818)"
+"(let-values(((s_832)"
 "(cdr"
-" s_816)))"
-"(let-values(((s_819)"
+" s_830)))"
+"(let-values(((s_833)"
 "(if(syntax?$1"
-" s_818)"
+" s_832)"
 "(syntax-e$1"
-" s_818)"
-" s_818)))"
+" s_832)"
+" s_832)))"
 "(let-values(((flat-s_61)"
 "(to-syntax-list.1"
-" s_819)))"
+" s_833)))"
 "(if(not"
 " flat-s_61)"
 "(let-values()"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                 \"bad syntax\""
-" orig-s_89))"
+" orig-s_91))"
 "(let-values()"
 " flat-s_61)))))))"
 "(values"
@@ -75115,7 +75176,7 @@ static const char *startup_source =
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                         \"bad syntax\""
-" orig-s_89)))))"
+" orig-s_91)))))"
 "(values"
 " #t"
 " begin-for-syntax617_1"
@@ -75162,9 +75223,9 @@ static const char *startup_source =
 " temp624_0))"
 " parsed-bfs_0))"
 "(loop_127 rest-bodys_3 phase_159))))))))"
-"(if(let-values(((or-part_406)(parsed? body_25)))"
-"(if or-part_406"
-" or-part_406"
+"(if(let-values(((or-part_409)(parsed? body_25)))"
+"(if or-part_409"
+" or-part_409"
 "(expanded+parsed? body_25)))"
 "(let-values()"
 "(cons body_25(loop_127 rest-bodys_3 phase_159)))"
@@ -75190,60 +75251,60 @@ static const char *startup_source =
 " module*625_0"
 " name626_0"
 " _627_0)"
-"(let-values(((s_820)"
+"(let-values(((s_834)"
 " disarmed-body_2))"
-"(if(let-values(((s_821)"
+"(if(let-values(((s_835)"
 "(if(syntax?$1"
-" s_820)"
+" s_834)"
 "(syntax-e$1"
-" s_820)"
-" s_820)))"
-"(if(pair? s_821)"
-"(if(let-values(((s_822)"
+" s_834)"
+" s_834)))"
+"(if(pair? s_835)"
+"(if(let-values(((s_836)"
 "(car"
-" s_821)))"
+" s_835)))"
 " #t)"
-"(let-values(((s_823)"
+"(let-values(((s_837)"
 "(cdr"
-" s_821)))"
-"(let-values(((s_824)"
+" s_835)))"
+"(let-values(((s_678)"
 "(if(syntax?$1"
-" s_823)"
+" s_837)"
 "(syntax-e$1"
-" s_823)"
-" s_823)))"
+" s_837)"
+" s_837)))"
 "(if(pair?"
-" s_824)"
-"(if(let-values(((s_825)"
+" s_678)"
+"(if(let-values(((s_838)"
 "(car"
-" s_824)))"
+" s_678)))"
 " #t)"
-"(let-values(((s_826)"
+"(let-values(((s_839)"
 "(cdr"
-" s_824)))"
-"(let-values(((s_827)"
+" s_678)))"
+"(let-values(((s_840)"
 "(if(syntax?$1"
-" s_826)"
+" s_839)"
 "(syntax-e$1"
-" s_826)"
-" s_826)))"
+" s_839)"
+" s_839)))"
 "(if(pair?"
-" s_827)"
-"(if(let-values(((s_828)"
+" s_840)"
+"(if(let-values(((s_841)"
 "(car"
-" s_827)))"
-"(let-values(((s_829)"
+" s_840)))"
+"(let-values(((s_842)"
 "(if(syntax?$1"
-" s_828)"
+" s_841)"
 "(syntax-e$1"
-" s_828)"
-" s_828)))"
+" s_841)"
+" s_841)))"
 "(eq?"
 " #f"
-" s_829)))"
-"(let-values(((s_830)"
+" s_842)))"
+"(let-values(((s_843)"
 "(cdr"
-" s_827)))"
+" s_840)))"
 " #t)"
 " #f)"
 " #f)))"
@@ -75255,59 +75316,59 @@ static const char *startup_source =
 "(let-values(((module*625_1"
 " name626_1"
 " _627_1)"
-"(let-values(((s_831)"
+"(let-values(((s_844)"
 "(if(syntax?$1"
-" s_820)"
+" s_834)"
 "(syntax-e$1"
-" s_820)"
-" s_820)))"
+" s_834)"
+" s_834)))"
 "(let-values(((module*628_0)"
-"(let-values(((s_832)"
+"(let-values(((s_845)"
 "(car"
-" s_831)))"
-" s_832))"
+" s_844)))"
+" s_845))"
 "((name629_0"
 " _630_0)"
-"(let-values(((s_833)"
+"(let-values(((s_846)"
 "(cdr"
-" s_831)))"
-"(let-values(((s_834)"
+" s_844)))"
+"(let-values(((s_680)"
 "(if(syntax?$1"
-" s_833)"
+" s_846)"
 "(syntax-e$1"
-" s_833)"
-" s_833)))"
+" s_846)"
+" s_846)))"
 "(let-values(((name631_0)"
-"(let-values(((s_835)"
+"(let-values(((s_847)"
 "(car"
-" s_834)))"
-" s_835))"
+" s_680)))"
+" s_847))"
 "((_632_0)"
-"(let-values(((s_836)"
+"(let-values(((s_848)"
 "(cdr"
-" s_834)))"
-"(let-values(((s_837)"
+" s_680)))"
+"(let-values(((s_849)"
 "(if(syntax?$1"
-" s_836)"
+" s_848)"
 "(syntax-e$1"
-" s_836)"
-" s_836)))"
+" s_848)"
+" s_848)))"
 "(let-values((()"
-"(let-values(((s_838)"
+"(let-values(((s_850)"
 "(car"
-" s_837)))"
-"(let-values(((s_839)"
+" s_849)))"
+"(let-values(((s_681)"
 "(if(syntax?$1"
-" s_838)"
+" s_850)"
 "(syntax-e$1"
-" s_838)"
-" s_838)))"
+" s_850)"
+" s_850)))"
 "(values))))"
 "((_633_0)"
-"(let-values(((s_840)"
+"(let-values(((s_851)"
 "(cdr"
-" s_837)))"
-" s_840)))"
+" s_849)))"
+" s_851)))"
 "(values"
 " _633_0))))))"
 "(values"
@@ -75387,10 +75448,10 @@ static const char *startup_source =
 "(if(expanded+parsed?"
 " submod_4)"
 "(let-values()"
-"(let-values(((the-struct_121)"
+"(let-values(((the-struct_120)"
 " submod_4))"
 "(if(expanded+parsed?"
-" the-struct_121)"
+" the-struct_120)"
 "(let-values(((s646_0)"
 "(syntax-shift-phase-level$1"
 "(expanded+parsed-s"
@@ -75399,11 +75460,11 @@ static const char *startup_source =
 "(expanded+parsed1.1"
 " s646_0"
 "(expanded+parsed-parsed"
-" the-struct_121)))"
+" the-struct_120)))"
 "(raise-argument-error"
 " 'struct-copy"
 "                                                                                                                     \"expanded+parsed?\""
-" the-struct_121))))"
+" the-struct_120))))"
 "(let-values()"
 "(syntax-shift-phase-level$1"
 " submod_4"
@@ -75469,24 +75530,24 @@ static const char *startup_source =
 "(lambda(in168_0 ids170_0 phase171_1 requires+provides172_0)"
 "(begin"
 " 'check-ids-unbound173"
-"(let-values(((ids_45) ids170_0))"
+"(let-values(((ids_47) ids170_0))"
 "(let-values(((phase_160) phase171_1))"
 "(let-values(((requires+provides_12) requires+provides172_0))"
-"(let-values(((s_841) in168_0))"
+"(let-values(((s_715) in168_0))"
 "(let-values()"
 "(begin"
-"(let-values(((lst_435) ids_45))"
+"(let-values(((lst_438) ids_47))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
-"(let-values()(check-list lst_435)))"
-"((letrec-values(((for-loop_330)"
-"(lambda(lst_436)"
+"(let-values()(check-list lst_438)))"
+"((letrec-values(((for-loop_328)"
+"(lambda(lst_439)"
 "(begin"
 " 'for-loop"
-"(if(pair? lst_436)"
-"(let-values(((id_163)(unsafe-car lst_436))"
-"((rest_248)(unsafe-cdr lst_436)))"
+"(if(pair? lst_439)"
+"(let-values(((id_164)(unsafe-car lst_439))"
+"((rest_247)(unsafe-cdr lst_439)))"
 "(let-values((()"
 "(let-values()"
 "(let-values((()"
@@ -75495,10 +75556,10 @@ static const char *startup_source =
 "(let-values()"
 "(let-values(((requires+provides655_0)"
 " requires+provides_12)"
-"((id656_0) id_163)"
+"((id656_0) id_164)"
 "((phase657_0)"
 " phase_160)"
-"((s658_0) s_841)"
+"((s658_0) s_715)"
 "((temp659_0) 'module))"
 "(check-not-defined93.1"
 " #f"
@@ -75516,103 +75577,103 @@ static const char *startup_source =
 " phase657_0)))"
 "(values)))))"
 "(values)))))"
-"(if(not #f)(for-loop_330 rest_248)(values))))"
+"(if(not #f)(for-loop_328 rest_247)(values))))"
 "(values))))))"
-" for-loop_330)"
-" lst_435)))"
+" for-loop_328)"
+" lst_438)))"
 "(void))))))))))"
 "(define-values"
 "(eval-nested-bodys)"
 "(lambda(bodys_28 phase_161 m-ns_23 self_41 ctx_119)"
 "(begin"
 "(begin"
-"(let-values(((lst_437) bodys_28))"
+"(let-values(((lst_440) bodys_28))"
 "(begin"
-"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_437)))"
-"((letrec-values(((for-loop_331)"
-"(lambda(lst_438)"
+"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_440)))"
+"((letrec-values(((for-loop_329)"
+"(lambda(lst_441)"
 "(begin"
 " 'for-loop"
-"(if(pair? lst_438)"
-"(let-values(((body_26)(unsafe-car lst_438))((rest_249)(unsafe-cdr lst_438)))"
+"(if(pair? lst_441)"
+"(let-values(((body_26)(unsafe-car lst_441))((rest_248)(unsafe-cdr lst_441)))"
 "(let-values((()"
 "(let-values()"
 "(let-values((()"
 "(let-values()"
 "(begin"
 "(let-values()"
-"(let-values(((p_84)"
+"(let-values(((p_85)"
 "(if(expanded+parsed? body_26)"
 "(expanded+parsed-parsed"
 " body_26)"
 " body_26)))"
-"(if(parsed-define-values? p_84)"
+"(if(parsed-define-values? p_85)"
 "(let-values()"
-"(let-values(((ids_46)"
+"(let-values(((ids_48)"
 "(parsed-define-values-ids"
-" p_84)))"
+" p_85)))"
 "(let-values(((vals_11)"
 "(eval-for-bindings"
-" ids_46"
+" ids_48"
 "(parsed-define-values-rhs"
-" p_84)"
+" p_85)"
 " phase_161"
 " m-ns_23"
 " ctx_119)))"
 "(begin"
-"(let-values(((lst_439) ids_46)"
-"((lst_440)"
+"(let-values(((lst_442) ids_48)"
+"((lst_443)"
 "(parsed-define-values-syms"
-" p_84))"
-"((lst_441) vals_11))"
+" p_85))"
+"((lst_444) vals_11))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
 "(#%variable-reference))"
 "(void)"
 "(let-values()"
-"(check-list lst_439)))"
+"(check-list lst_442)))"
 "(if(variable-reference-from-unsafe?"
 "(#%variable-reference))"
 "(void)"
 "(let-values()"
-"(check-list lst_440)))"
+"(check-list lst_443)))"
 "(if(variable-reference-from-unsafe?"
 "(#%variable-reference))"
 "(void)"
 "(let-values()"
-"(check-list lst_441)))"
-"((letrec-values(((for-loop_332)"
-"(lambda(lst_442"
-" lst_443"
-" lst_444)"
+"(check-list lst_444)))"
+"((letrec-values(((for-loop_330)"
+"(lambda(lst_445"
+" lst_446"
+" lst_447)"
 "(begin"
 " 'for-loop"
 "(if(if(pair?"
-" lst_442)"
+" lst_445)"
 "(if(pair?"
-" lst_443)"
+" lst_446)"
 "(pair?"
-" lst_444)"
+" lst_447)"
 " #f)"
 " #f)"
-"(let-values(((id_164)"
+"(let-values(((id_165)"
 "(unsafe-car"
-" lst_442))"
-"((rest_250)"
+" lst_445))"
+"((rest_249)"
 "(unsafe-cdr"
-" lst_442))"
+" lst_445))"
 "((sym_107)"
 "(unsafe-car"
-" lst_443))"
-"((rest_251)"
+" lst_446))"
+"((rest_250)"
 "(unsafe-cdr"
-" lst_443))"
+" lst_446))"
 "((val_83)"
 "(unsafe-car"
-" lst_444))"
-"((rest_252)"
+" lst_447))"
+"((rest_251)"
 "(unsafe-cdr"
-" lst_444)))"
+" lst_447)))"
 "(let-values((()"
 "(let-values()"
 "(let-values((()"
@@ -75628,31 +75689,31 @@ static const char *startup_source =
 "(values)))))"
 "(if(not"
 " #f)"
-"(for-loop_332"
+"(for-loop_330"
+" rest_249"
 " rest_250"
-" rest_251"
-" rest_252)"
+" rest_251)"
 "(values))))"
 "(values))))))"
-" for-loop_332)"
-" lst_439"
-" lst_440"
-" lst_441)))"
+" for-loop_330)"
+" lst_442"
+" lst_443"
+" lst_444)))"
 "(void)))))"
-"(if(let-values(((or-part_407)"
+"(if(let-values(((or-part_410)"
 "(parsed-define-syntaxes?"
-" p_84)))"
-"(if or-part_407"
-" or-part_407"
+" p_85)))"
+"(if or-part_410"
+" or-part_410"
 "(semi-parsed-begin-for-syntax?"
-" p_84)))"
+" p_85)))"
 "(let-values()(void))"
-"(if(let-values(((or-part_408)"
+"(if(let-values(((or-part_411)"
 "(parsed-#%declare?"
-" p_84)))"
-"(if or-part_408"
-" or-part_408"
-"(syntax?$1 p_84)))"
+" p_85)))"
+"(if or-part_411"
+" or-part_411"
+"(syntax?$1 p_85)))"
 "(let-values()(void))"
 "(let-values()"
 "(with-continuation-mark"
@@ -75668,7 +75729,7 @@ static const char *startup_source =
 "(let-values()"
 "(eval-single-top"
 "(compile-single"
-" p_84"
+" p_85"
 "(let-values(((m-ns660_0)"
 " m-ns_23)"
 "((phase661_0)"
@@ -75689,10 +75750,10 @@ static const char *startup_source =
 " m-ns_23)))))))))"
 "(values)))))"
 "(values)))))"
-"(if(not #f)(for-loop_331 rest_249)(values))))"
+"(if(not #f)(for-loop_329 rest_248)(values))))"
 "(values))))))"
-" for-loop_331)"
-" lst_437)))"
+" for-loop_329)"
+" lst_440)))"
 "(void)))))"
 "(define-values"
 "(expand-submodule197.1)"
@@ -75709,12 +75770,12 @@ static const char *startup_source =
 " keep-enclosing-scope-at-phase186_0"
 " modules-being-compiled184_0"
 " mpis-to-reset181_0"
-" s194_1"
+" s194_0"
 " self195_0"
 " ctx196_0)"
 "(begin"
 " 'expand-submodule197"
-"(let-values(((s_842) s194_1))"
+"(let-values(((s_852) s194_0))"
 "(let-values(((self_42) self195_0))"
 "(let-values(((ctx_120) ctx196_0))"
 "(let-values(((is-star?_0) is-star?176_0))"
@@ -75738,57 +75799,57 @@ static const char *startup_source =
 "(if is-star?_0"
 "(void)"
 "(let-values()"
-"(let-values(((obs_162)(expand-context-observer ctx_120)))"
-"(if obs_162"
+"(let-values(((obs_161)(expand-context-observer ctx_120)))"
+"(if obs_161"
 "(let-values()"
 "(let-values()"
 "(begin"
-"(call-expand-observe obs_162 'enter-prim s_842)"
+"(call-expand-observe obs_161 'enter-prim s_852)"
 "(call-expand-observe"
-" obs_162"
+" obs_161"
 "(if is-star?_0 'prim-submodule* 'prim-submodule)))))"
 "(void)))))"
 "(values))))"
 "(let-values(((ok?_85 module662_0 name663_0 _664_0)"
-"(let-values(((s_843) s_842))"
-"(let-values(((orig-s_90) s_843))"
+"(let-values(((s_853) s_852))"
+"(let-values(((orig-s_92) s_853))"
 "(let-values(((module662_1 name663_1 _664_1)"
-"(let-values(((s_844)"
-"(if(syntax?$1 s_843)"
-"(syntax-e$1 s_843)"
-" s_843)))"
-"(if(pair? s_844)"
+"(let-values(((s_854)"
+"(if(syntax?$1 s_853)"
+"(syntax-e$1 s_853)"
+" s_853)))"
+"(if(pair? s_854)"
 "(let-values(((module665_0)"
-"(let-values(((s_845)(car s_844)))"
-" s_845))"
+"(let-values(((s_855)(car s_854)))"
+" s_855))"
 "((name666_0 _667_0)"
-"(let-values(((s_846)(cdr s_844)))"
-"(let-values(((s_847)"
+"(let-values(((s_856)(cdr s_854)))"
+"(let-values(((s_857)"
 "(if(syntax?$1"
-" s_846)"
-"(syntax-e$1 s_846)"
-" s_846)))"
-"(if(pair? s_847)"
+" s_856)"
+"(syntax-e$1 s_856)"
+" s_856)))"
+"(if(pair? s_857)"
 "(let-values(((name668_0)"
-"(let-values(((s_848)"
+"(let-values(((s_858)"
 "(car"
-" s_847)))"
-" s_848))"
+" s_857)))"
+" s_858))"
 "((_669_0)"
-"(let-values(((s_849)"
+"(let-values(((s_859)"
 "(cdr"
-" s_847)))"
-" s_849)))"
+" s_857)))"
+" s_859)))"
 "(values name668_0 _669_0))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                           \"bad syntax\""
-" orig-s_90))))))"
+" orig-s_92))))))"
 "(values module665_0 name666_0 _667_0))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                       \"bad syntax\""
-" orig-s_90)))))"
+" orig-s_92)))))"
 "(values #t module662_1 name663_1 _664_1))))))"
 "(let-values(((name_80)(syntax-e$1 name663_0)))"
 "(let-values((()"
@@ -75798,7 +75859,7 @@ static const char *startup_source =
 "(raise-syntax-error$1"
 " #f"
 "                                                           \"submodule already declared with the same name\""
-" s_842"
+" s_852"
 " name_80))"
 "(void))"
 "(values))))"
@@ -75811,116 +75872,116 @@ static const char *startup_source =
 "(values))))"
 "(let-values((()"
 "(begin"
-"(let-values(((obs_163)(expand-context-observer ctx_120)))"
-"(if obs_163"
+"(let-values(((obs_162)(expand-context-observer ctx_120)))"
+"(if obs_162"
 "(let-values()"
 "(let-values()"
-"(call-expand-observe obs_163 'enter-prim s_842)))"
+"(call-expand-observe obs_162 'enter-prim s_852)))"
 "(void)))"
 "(values))))"
 "(let-values(((submod_5)"
-"(let-values(((s670_0) s_842)"
+"(let-values(((s670_0) s_852)"
 "((temp671_0)"
 "(let-values(((v_268) ctx_120))"
-"(let-values(((the-struct_122) v_268))"
-"(if(expand-context/outer? the-struct_122)"
+"(let-values(((the-struct_121) v_268))"
+"(if(expand-context/outer? the-struct_121)"
 "(let-values(((context680_0) 'module)"
 "((post-expansion-scope681_0)"
 " #f)"
 "((inner682_0)"
-"(let-values(((the-struct_123)"
+"(let-values(((the-struct_122)"
 "(root-expand-context/outer-inner"
 " v_268)))"
 "(if(expand-context/inner?"
-" the-struct_123)"
+" the-struct_122)"
 "(let-values(((stops683_0)"
 " empty-free-id-set))"
 "(expand-context/inner2.1"
 "(root-expand-context/inner-self-mpi"
-" the-struct_123)"
+" the-struct_122)"
 "(root-expand-context/inner-module-scopes"
-" the-struct_123)"
+" the-struct_122)"
 "(root-expand-context/inner-top-level-bind-scope"
-" the-struct_123)"
+" the-struct_122)"
 "(root-expand-context/inner-all-scopes-stx"
-" the-struct_123)"
+" the-struct_122)"
 "(root-expand-context/inner-defined-syms"
-" the-struct_123)"
+" the-struct_122)"
 "(root-expand-context/inner-counter"
-" the-struct_123)"
+" the-struct_122)"
 "(root-expand-context/inner-lift-key"
-" the-struct_123)"
+" the-struct_122)"
 "(expand-context/inner-to-parsed?"
-" the-struct_123)"
+" the-struct_122)"
 "(expand-context/inner-phase"
-" the-struct_123)"
+" the-struct_122)"
 "(expand-context/inner-namespace"
-" the-struct_123)"
+" the-struct_122)"
 "(expand-context/inner-just-once?"
-" the-struct_123)"
+" the-struct_122)"
 "(expand-context/inner-module-begin-k"
-" the-struct_123)"
+" the-struct_122)"
 "(expand-context/inner-allow-unbound?"
-" the-struct_123)"
+" the-struct_122)"
 "(expand-context/inner-in-local-expand?"
-" the-struct_123)"
+" the-struct_122)"
 " stops683_0"
 "(expand-context/inner-declared-submodule-names"
-" the-struct_123)"
+" the-struct_122)"
 "(expand-context/inner-lifts"
-" the-struct_123)"
+" the-struct_122)"
 "(expand-context/inner-lift-envs"
-" the-struct_123)"
+" the-struct_122)"
 "(expand-context/inner-module-lifts"
-" the-struct_123)"
+" the-struct_122)"
 "(expand-context/inner-require-lifts"
-" the-struct_123)"
+" the-struct_122)"
 "(expand-context/inner-to-module-lifts"
-" the-struct_123)"
+" the-struct_122)"
 "(expand-context/inner-requires+provides"
-" the-struct_123)"
+" the-struct_122)"
 "(expand-context/inner-observer"
-" the-struct_123)"
+" the-struct_122)"
 "(expand-context/inner-for-serializable?"
-" the-struct_123)"
+" the-struct_122)"
 "(expand-context/inner-should-not-encounter-macros?"
-" the-struct_123)))"
+" the-struct_122)))"
 "(raise-argument-error"
 " 'struct-copy"
 "                                                                                                 \"expand-context/inner?\""
-" the-struct_123)))))"
+" the-struct_122)))))"
 "(expand-context/outer1.1"
 " inner682_0"
 " post-expansion-scope681_0"
 "(root-expand-context/outer-use-site-scopes"
-" the-struct_122)"
+" the-struct_121)"
 "(root-expand-context/outer-frame-id"
-" the-struct_122)"
+" the-struct_121)"
 " context680_0"
 "(expand-context/outer-env"
-" the-struct_122)"
+" the-struct_121)"
 "(expand-context/outer-post-expansion-scope-action"
-" the-struct_122)"
+" the-struct_121)"
 "(expand-context/outer-scopes"
-" the-struct_122)"
+" the-struct_121)"
 "(expand-context/outer-def-ctx-scopes"
-" the-struct_122)"
+" the-struct_121)"
 "(expand-context/outer-binding-layer"
-" the-struct_122)"
+" the-struct_121)"
 "(expand-context/outer-reference-records"
-" the-struct_122)"
+" the-struct_121)"
 "(expand-context/outer-only-immediate?"
-" the-struct_122)"
+" the-struct_121)"
 "(expand-context/outer-need-eventually-defined"
-" the-struct_122)"
+" the-struct_121)"
 "(expand-context/outer-current-introduction-scopes"
-" the-struct_122)"
+" the-struct_121)"
 "(expand-context/outer-name"
-" the-struct_122)))"
+" the-struct_121)))"
 "(raise-argument-error"
 " 'struct-copy"
 "                                                                               \"expand-context/outer?\""
-" the-struct_122)))))"
+" the-struct_121)))))"
 "((self672_0) self_42)"
 "((temp673_0) #t)"
 "((keep-enclosing-scope-at-phase674_0)"
@@ -75953,13 +76014,13 @@ static const char *startup_source =
 " self672_0))))"
 "(let-values((()"
 "(begin"
-"(let-values(((obs_164)"
+"(let-values(((obs_163)"
 "(expand-context-observer ctx_120)))"
-"(if obs_164"
+"(if obs_163"
 "(let-values()"
 "(let-values()"
 "(call-expand-observe"
-" obs_164"
+" obs_163"
 " 'exit-prim"
 "(extract-syntax submod_5))))"
 "(void)))"
@@ -76040,13 +76101,13 @@ static const char *startup_source =
 "(if is-star?_0"
 "(void)"
 "(let-values()"
-"(let-values(((obs_165)"
+"(let-values(((obs_164)"
 "(expand-context-observer ctx_120)))"
-"(if obs_165"
+"(if obs_164"
 "(let-values()"
 "(let-values()"
 "(call-expand-observe"
-" obs_165"
+" obs_164"
 " 'exit-prim"
 "(extract-syntax submod_5))))"
 "(void)))))"
@@ -76054,67 +76115,67 @@ static const char *startup_source =
 "(let-values() submod_5)"
 "(if(expanded+parsed? submod_5)"
 "(let-values()"
-"(let-values(((the-struct_124) submod_5))"
-"(if(expanded+parsed? the-struct_124)"
+"(let-values(((the-struct_123) submod_5))"
+"(if(expanded+parsed? the-struct_123)"
 "(let-values(((parsed695_0)"
-"(let-values(((the-struct_125)"
+"(let-values(((the-struct_124)"
 "(expanded+parsed-parsed"
 " submod_5)))"
-"(if(parsed-module? the-struct_125)"
+"(if(parsed-module? the-struct_124)"
 "(let-values(((star?696_0) #t))"
 "(parsed-module25.1"
-"(parsed-s the-struct_125)"
+"(parsed-s the-struct_124)"
 " star?696_0"
 "(parsed-module-name-id"
-" the-struct_125)"
+" the-struct_124)"
 "(parsed-module-self"
-" the-struct_125)"
+" the-struct_124)"
 "(parsed-module-requires"
-" the-struct_125)"
+" the-struct_124)"
 "(parsed-module-provides"
-" the-struct_125)"
+" the-struct_124)"
 "(parsed-module-root-ctx-simple?"
-" the-struct_125)"
+" the-struct_124)"
 "(parsed-module-encoded-root-ctx"
-" the-struct_125)"
+" the-struct_124)"
 "(parsed-module-body"
-" the-struct_125)"
+" the-struct_124)"
 "(parsed-module-compiled-module"
-" the-struct_125)"
+" the-struct_124)"
 "(parsed-module-compiled-submodules"
-" the-struct_125)))"
+" the-struct_124)))"
 "(raise-argument-error"
 " 'struct-copy"
 "                                                                                       \"parsed-module?\""
-" the-struct_125)))))"
+" the-struct_124)))))"
 "(expanded+parsed1.1"
-"(expanded+parsed-s the-struct_124)"
+"(expanded+parsed-s the-struct_123)"
 " parsed695_0))"
 "(raise-argument-error"
 " 'struct-copy"
 "                                                                     \"expanded+parsed?\""
-" the-struct_124))))"
+" the-struct_123))))"
 "(let-values()"
-"(let-values(((the-struct_126) submod_5))"
-"(if(parsed-module? the-struct_126)"
+"(let-values(((the-struct_125) submod_5))"
+"(if(parsed-module? the-struct_125)"
 "(let-values(((star?697_0) #t))"
 "(parsed-module25.1"
-"(parsed-s the-struct_126)"
+"(parsed-s the-struct_125)"
 " star?697_0"
-"(parsed-module-name-id the-struct_126)"
-"(parsed-module-self the-struct_126)"
-"(parsed-module-requires the-struct_126)"
-"(parsed-module-provides the-struct_126)"
-"(parsed-module-root-ctx-simple? the-struct_126)"
-"(parsed-module-encoded-root-ctx the-struct_126)"
-"(parsed-module-body the-struct_126)"
-"(parsed-module-compiled-module the-struct_126)"
+"(parsed-module-name-id the-struct_125)"
+"(parsed-module-self the-struct_125)"
+"(parsed-module-requires the-struct_125)"
+"(parsed-module-provides the-struct_125)"
+"(parsed-module-root-ctx-simple? the-struct_125)"
+"(parsed-module-encoded-root-ctx the-struct_125)"
+"(parsed-module-body the-struct_125)"
+"(parsed-module-compiled-module the-struct_125)"
 "(parsed-module-compiled-submodules"
-" the-struct_126)))"
+" the-struct_125)))"
 "(raise-argument-error"
 " 'struct-copy"
 "                                                                     \"parsed-module?\""
-" the-struct_126)))))))))))))))))))))))))))))))))))"
+" the-struct_125)))))))))))))))))))))))))))))))))))"
 "(define-values"
 "(expand-non-module*-submodules212.1)"
 "(lambda(compiled-submodules202_0"
@@ -76137,21 +76198,21 @@ static const char *startup_source =
 "(let-values(((modules-being-compiled_9) modules-being-compiled203_0))"
 "(let-values()"
 "(reverse$1"
-"(let-values(((lst_445) bodys_29))"
+"(let-values(((lst_448) bodys_29))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
-"(let-values()(check-list lst_445)))"
-"((letrec-values(((for-loop_333)"
-"(lambda(fold-var_377 lst_446)"
+"(let-values()(check-list lst_448)))"
+"((letrec-values(((for-loop_331)"
+"(lambda(fold-var_382 lst_449)"
 "(begin"
 " 'for-loop"
-"(if(pair? lst_446)"
-"(let-values(((body_27)(unsafe-car lst_446))"
-"((rest_253)(unsafe-cdr lst_446)))"
-"(let-values(((fold-var_378)"
-"(let-values(((fold-var_379) fold-var_377))"
-"(let-values(((fold-var_380)"
+"(if(pair? lst_449)"
+"(let-values(((body_27)(unsafe-car lst_449))"
+"((rest_252)(unsafe-cdr lst_449)))"
+"(let-values(((fold-var_383)"
+"(let-values(((fold-var_384) fold-var_382))"
+"(let-values(((fold-var_385)"
 "(let-values()"
 "(cons"
 "(let-values()"
@@ -76196,15 +76257,15 @@ static const char *startup_source =
 " self699_0"
 " ctx700_0)))"
 "(let-values() body_27))))"
-" fold-var_379))))"
-"(values fold-var_380)))))"
+" fold-var_384))))"
+"(values fold-var_385)))))"
 "(if(not #f)"
-"(for-loop_333 fold-var_378 rest_253)"
-" fold-var_378)))"
-" fold-var_377)))))"
-" for-loop_333)"
+"(for-loop_331 fold-var_383 rest_252)"
+" fold-var_383)))"
+" fold-var_382)))))"
+" for-loop_331)"
 " null"
-" lst_445))))))))))))))))"
+" lst_448))))))))))))))))"
 "(define-values"
 "(make-parse-lifted-require220.1)"
 "(lambda(declared-submodule-names215_0 m-ns217_0 self218_1 requires+provides219_0)"
@@ -76215,52 +76276,52 @@ static const char *startup_source =
 "(let-values(((requires+provides_13) requires+provides219_0))"
 "(let-values(((declared-submodule-names_10) declared-submodule-names215_0))"
 "(let-values()"
-"(lambda(s_850 phase_163)"
+"(lambda(s_860 phase_163)"
 "(let-values(((ok?_86 #%require706_0 req707_0)"
-"(let-values(((s_851)(syntax-disarm$1 s_850)))"
-"(let-values(((orig-s_91) s_851))"
+"(let-values(((s_861)(syntax-disarm$1 s_860)))"
+"(let-values(((orig-s_93) s_861))"
 "(let-values(((#%require706_1 req707_1)"
-"(let-values(((s_852)"
-"(if(syntax?$1 s_851)(syntax-e$1 s_851) s_851)))"
-"(if(pair? s_852)"
+"(let-values(((s_862)"
+"(if(syntax?$1 s_861)(syntax-e$1 s_861) s_861)))"
+"(if(pair? s_862)"
 "(let-values(((#%require708_0)"
-"(let-values(((s_853)(car s_852))) s_853))"
+"(let-values(((s_863)(car s_862))) s_863))"
 "((req709_0)"
-"(let-values(((s_854)(cdr s_852)))"
-"(let-values(((s_855)"
-"(if(syntax?$1 s_854)"
-"(syntax-e$1 s_854)"
-" s_854)))"
-"(if(pair? s_855)"
+"(let-values(((s_864)(cdr s_862)))"
+"(let-values(((s_865)"
+"(if(syntax?$1 s_864)"
+"(syntax-e$1 s_864)"
+" s_864)))"
+"(if(pair? s_865)"
 "(let-values(((req710_0)"
-"(let-values(((s_856)"
-"(car s_855)))"
-" s_856))"
+"(let-values(((s_866)"
+"(car s_865)))"
+" s_866))"
 "(()"
-"(let-values(((s_857)"
-"(cdr s_855)))"
-"(let-values(((s_858)"
+"(let-values(((s_867)"
+"(cdr s_865)))"
+"(let-values(((s_868)"
 "(if(syntax?$1"
-" s_857)"
+" s_867)"
 "(syntax-e$1"
-" s_857)"
-" s_857)))"
-"(if(null? s_858)"
+" s_867)"
+" s_867)))"
+"(if(null? s_868)"
 "(values)"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                               \"bad syntax\""
-" orig-s_91))))))"
+" orig-s_93))))))"
 "(values req710_0))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                           \"bad syntax\""
-" orig-s_91))))))"
+" orig-s_93))))))"
 "(values #%require708_0 req709_0))"
-"                                                      (raise-syntax-error$1 #f \"bad syntax\" orig-s_91)))))"
+"                                                      (raise-syntax-error$1 #f \"bad syntax\" orig-s_93)))))"
 "(values #t #%require706_1 req707_1))))))"
 "(let-values(((temp711_0)(list req707_0))"
-"((s712_0) s_850)"
+"((s712_0) s_860)"
 "((self713_0) self_44)"
 "((m-ns714_0) m-ns_24)"
 "((phase715_0) phase_163)"
@@ -76306,57 +76367,57 @@ static const char *startup_source =
 "(lambda(lifted-defns_2)"
 "(begin"
 "(reverse$1"
-"(let-values(((lst_447) lifted-defns_2))"
+"(let-values(((lst_450) lifted-defns_2))"
 "(begin"
-"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_447)))"
-"((letrec-values(((for-loop_334)"
-"(lambda(fold-var_381 lst_448)"
+"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_450)))"
+"((letrec-values(((for-loop_332)"
+"(lambda(fold-var_386 lst_451)"
 "(begin"
 " 'for-loop"
-"(if(pair? lst_448)"
-"(let-values(((lifted-defn_0)(unsafe-car lst_448))"
-"((rest_254)(unsafe-cdr lst_448)))"
-"(let-values(((fold-var_382)"
-"(let-values(((fold-var_383) fold-var_381))"
-"(let-values(((fold-var_384)"
+"(if(pair? lst_451)"
+"(let-values(((lifted-defn_0)(unsafe-car lst_451))"
+"((rest_253)(unsafe-cdr lst_451)))"
+"(let-values(((fold-var_387)"
+"(let-values(((fold-var_388) fold-var_386))"
+"(let-values(((fold-var_389)"
 "(let-values()"
 "(cons"
 "(let-values()"
 "(defn-extract-syntax lifted-defn_0))"
-" fold-var_383))))"
-"(values fold-var_384)))))"
-"(if(not #f)(for-loop_334 fold-var_382 rest_254) fold-var_382)))"
-" fold-var_381)))))"
-" for-loop_334)"
+" fold-var_388))))"
+"(values fold-var_389)))))"
+"(if(not #f)(for-loop_332 fold-var_387 rest_253) fold-var_387)))"
+" fold-var_386)))))"
+" for-loop_332)"
 " null"
-" lst_447)))))))"
+" lst_450)))))))"
 "(define-values"
 "(log-lifted-defns)"
 "(lambda(partial-body-ctx_2 lifted-defns_3 exp-body_10 rest-bodys_4)"
 "(begin"
-"(let-values(((obs_166)(expand-context-observer partial-body-ctx_2)))"
-"(if obs_166"
+"(let-values(((obs_165)(expand-context-observer partial-body-ctx_2)))"
+"(if obs_165"
 "(let-values()"
 "(let-values(((s-lifted-defns_0)(lifted-defns-extract-syntax lifted-defns_3)))"
 "(let-values((()"
 "(begin"
-"(call-expand-observe obs_166 'rename-list(cons exp-body_10 rest-bodys_4))"
+"(call-expand-observe obs_165 'rename-list(cons exp-body_10 rest-bodys_4))"
 "(values))))"
-"(let-values((()(begin(call-expand-observe obs_166 'module-lift-loop s-lifted-defns_0)(values))))"
+"(let-values((()(begin(call-expand-observe obs_165 'module-lift-loop s-lifted-defns_0)(values))))"
 "(let-values((()"
 "(begin"
-"(let-values(((lst_449) s-lifted-defns_0))"
+"(let-values(((lst_452) s-lifted-defns_0))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
-"(let-values()(check-list lst_449)))"
-"((letrec-values(((for-loop_335)"
-"(lambda(lst_450)"
+"(let-values()(check-list lst_452)))"
+"((letrec-values(((for-loop_333)"
+"(lambda(lst_453)"
 "(begin"
 " 'for-loop"
-"(if(pair? lst_450)"
-"(let-values(((s-lifted-defn_0)(unsafe-car lst_450))"
-"((rest_255)(unsafe-cdr lst_450)))"
+"(if(pair? lst_453)"
+"(let-values(((s-lifted-defn_0)(unsafe-car lst_453))"
+"((rest_254)(unsafe-cdr lst_453)))"
 "(let-values((()"
 "(let-values()"
 "(let-values((()"
@@ -76366,45 +76427,45 @@ static const char *startup_source =
 "(let-values(((ok?_87"
 " define-values724_0"
 " _725_0)"
-"(let-values(((s_859)"
+"(let-values(((s_869)"
 " s-lifted-defn_0))"
-"(let-values(((orig-s_92)"
-" s_859))"
+"(let-values(((orig-s_94)"
+" s_869))"
 "(let-values(((define-values724_1"
 " _725_1)"
-"(let-values(((s_860)"
+"(let-values(((s_870)"
 "(if(syntax?$1"
-" s_859)"
+" s_869)"
 "(syntax-e$1"
-" s_859)"
-" s_859)))"
+" s_869)"
+" s_869)))"
 "(if(pair?"
-" s_860)"
+" s_870)"
 "(let-values(((define-values726_0)"
-"(let-values(((s_861)"
+"(let-values(((s_871)"
 "(car"
-" s_860)))"
-" s_861))"
+" s_870)))"
+" s_871))"
 "((_727_0)"
-"(let-values(((s_862)"
+"(let-values(((s_872)"
 "(cdr"
-" s_860)))"
-"(let-values(((s_863)"
+" s_870)))"
+"(let-values(((s_873)"
 "(if(syntax?$1"
-" s_862)"
+" s_872)"
 "(syntax-e$1"
-" s_862)"
-" s_862)))"
+" s_872)"
+" s_872)))"
 "(let-values(((flat-s_62)"
 "(to-syntax-list.1"
-" s_863)))"
+" s_873)))"
 "(if(not"
 " flat-s_62)"
 "(let-values()"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                 \"bad syntax\""
-" orig-s_92))"
+" orig-s_94))"
 "(let-values()"
 " flat-s_62)))))))"
 "(values"
@@ -76413,169 +76474,169 @@ static const char *startup_source =
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                         \"bad syntax\""
-" orig-s_92)))))"
+" orig-s_94)))))"
 "(values"
 " #t"
 " define-values724_1"
 " _725_1))))))"
 "(begin"
 "(call-expand-observe"
-" obs_166"
+" obs_165"
 " 'next)"
 "(call-expand-observe"
-" obs_166"
+" obs_165"
 " 'visit"
 " s-lifted-defn_0)"
 "(call-expand-observe"
-" obs_166"
+" obs_165"
 " 'resolve"
 " define-values724_0)"
 "(call-expand-observe"
-" obs_166"
+" obs_165"
 " 'enter-prim"
 " s-lifted-defn_0)"
 "(call-expand-observe"
-" obs_166"
+" obs_165"
 " 'prim-stop)"
 "(call-expand-observe"
-" obs_166"
+" obs_165"
 " 'exit-prim"
 " s-lifted-defn_0)"
 "(call-expand-observe"
-" obs_166"
+" obs_165"
 " 'return"
 " s-lifted-defn_0)"
 "(call-expand-observe"
-" obs_166"
+" obs_165"
 " 'rename-one"
 " s-lifted-defn_0)"
 "(call-expand-observe"
-" obs_166"
+" obs_165"
 " 'enter-prim"
 " s-lifted-defn_0)"
 "(call-expand-observe"
-" obs_166"
+" obs_165"
 " 'prim-define-values)"
 "(call-expand-observe"
-" obs_166"
+" obs_165"
 " 'exit-prim"
 " s-lifted-defn_0))))"
 "(values)))))"
 "(values)))))"
-"(if(not #f)(for-loop_335 rest_255)(values))))"
+"(if(not #f)(for-loop_333 rest_254)(values))))"
 "(values))))))"
-" for-loop_335)"
-" lst_449)))"
+" for-loop_333)"
+" lst_452)))"
 "(values))))"
 "(let-values()"
 "(let-values(((ok?_88 form-id720_0 _721_0)"
-"(let-values(((s_864) exp-body_10))"
-"(let-values(((orig-s_93) s_864))"
+"(let-values(((s_874) exp-body_10))"
+"(let-values(((orig-s_95) s_874))"
 "(let-values(((form-id720_1 _721_1)"
-"(let-values(((s_865)"
-"(if(syntax?$1 s_864)(syntax-e$1 s_864) s_864)))"
-"(if(pair? s_865)"
+"(let-values(((s_875)"
+"(if(syntax?$1 s_874)(syntax-e$1 s_874) s_874)))"
+"(if(pair? s_875)"
 "(let-values(((form-id722_0)"
-"(let-values(((s_866)(car s_865))) s_866))"
+"(let-values(((s_876)(car s_875))) s_876))"
 "((_723_0)"
-"(let-values(((s_867)(cdr s_865))) s_867)))"
+"(let-values(((s_877)(cdr s_875))) s_877)))"
 "(values form-id722_0 _723_0))"
-"                                                          (raise-syntax-error$1 #f \"bad syntax\" orig-s_93)))))"
+"                                                          (raise-syntax-error$1 #f \"bad syntax\" orig-s_95)))))"
 "(values #t form-id720_1 _721_1))))))"
 "(begin"
-"(call-expand-observe obs_166 'next)"
-"(call-expand-observe obs_166 'visit exp-body_10)"
-"(call-expand-observe obs_166 'resolve form-id720_0)"
-"(call-expand-observe obs_166 'enter-prim exp-body_10)"
-"(call-expand-observe obs_166 'prim-stop)"
-"(call-expand-observe obs_166 'exit-prim exp-body_10)"
-"(call-expand-observe obs_166 'return exp-body_10)))))))))"
+"(call-expand-observe obs_165 'next)"
+"(call-expand-observe obs_165 'visit exp-body_10)"
+"(call-expand-observe obs_165 'resolve form-id720_0)"
+"(call-expand-observe obs_165 'enter-prim exp-body_10)"
+"(call-expand-observe obs_165 'prim-stop)"
+"(call-expand-observe obs_165 'exit-prim exp-body_10)"
+"(call-expand-observe obs_165 'return exp-body_10)))))))))"
 "(void))))))"
 "(define-values"
 "(log-defn-enter)"
 "(lambda(ctx_122 defn_1)"
 "(begin"
-"(let-values(((obs_167)(expand-context-observer ctx_122)))"
-"(if obs_167"
+"(let-values(((obs_166)(expand-context-observer ctx_122)))"
+"(if obs_166"
 "(let-values()"
 "(let-values(((s-defn_0)(defn-extract-syntax defn_1)))"
 "(let-values(((ok?_89 define-values728_0 _729_0)"
-"(let-values(((s_868) s-defn_0))"
-"(let-values(((orig-s_94) s_868))"
+"(let-values(((s_878) s-defn_0))"
+"(let-values(((orig-s_96) s_878))"
 "(let-values(((define-values728_1 _729_1)"
-"(let-values(((s_869)(if(syntax?$1 s_868)(syntax-e$1 s_868) s_868)))"
-"(if(pair? s_869)"
+"(let-values(((s_879)(if(syntax?$1 s_878)(syntax-e$1 s_878) s_878)))"
+"(if(pair? s_879)"
 "(let-values(((define-values730_0)"
-"(let-values(((s_870)(car s_869))) s_870))"
+"(let-values(((s_880)(car s_879))) s_880))"
 "((_731_0)"
-"(let-values(((s_871)(cdr s_869)))"
-"(let-values(((s_872)"
-"(if(syntax?$1 s_871)"
-"(syntax-e$1 s_871)"
-" s_871)))"
-"(let-values(((flat-s_63)(to-syntax-list.1 s_872)))"
+"(let-values(((s_881)(cdr s_879)))"
+"(let-values(((s_882)"
+"(if(syntax?$1 s_881)"
+"(syntax-e$1 s_881)"
+" s_881)))"
+"(let-values(((flat-s_63)(to-syntax-list.1 s_882)))"
 "(if(not flat-s_63)"
 "(let-values()"
 "(raise-syntax-error$1"
 " #f"
 "                                                                           \"bad syntax\""
-" orig-s_94))"
+" orig-s_96))"
 "(let-values() flat-s_63)))))))"
 "(values define-values730_0 _731_0))"
-"                                                  (raise-syntax-error$1 #f \"bad syntax\" orig-s_94)))))"
+"                                                  (raise-syntax-error$1 #f \"bad syntax\" orig-s_96)))))"
 "(values #t define-values728_1 _729_1))))))"
 "(begin"
-"(call-expand-observe obs_167 'visit s-defn_0)"
-"(call-expand-observe obs_167 'resolve define-values728_0)"
-"(call-expand-observe obs_167 'enter-prim s-defn_0)"
-"(call-expand-observe obs_167 'prim-define-values)))))"
+"(call-expand-observe obs_166 'visit s-defn_0)"
+"(call-expand-observe obs_166 'resolve define-values728_0)"
+"(call-expand-observe obs_166 'enter-prim s-defn_0)"
+"(call-expand-observe obs_166 'prim-define-values)))))"
 "(void))))))"
 "(define-values"
 "(log-defn-exit)"
 "(lambda(ctx_123 defn_2 exp-rhs_7)"
 "(begin"
-"(let-values(((obs_168)(expand-context-observer ctx_123)))"
-"(if obs_168"
+"(let-values(((obs_167)(expand-context-observer ctx_123)))"
+"(if obs_167"
 "(let-values()"
 "(let-values(((s-defn_1)"
 "(datum->syntax$1"
 " #f"
 "(list 'define-values(semi-parsed-define-values-ids defn_2) exp-rhs_7)"
 "(semi-parsed-define-values-s defn_2))))"
-"(begin(call-expand-observe obs_168 'exit-prim s-defn_1)(call-expand-observe obs_168 'return s-defn_1))))"
+"(begin(call-expand-observe obs_167 'exit-prim s-defn_1)(call-expand-observe obs_167 'return s-defn_1))))"
 "(void))))))"
 "(define-values"
 "(as-expand-time-top-level-bindings)"
-"(lambda(ids_47 s_154 ctx_124)"
+"(lambda(ids_49 s_154 ctx_124)"
 "(begin"
 "(let-values(((top-level-bind-scope_6)(root-expand-context-top-level-bind-scope ctx_124)))"
 "(let-values(((tl-ids_2)"
 "(reverse$1"
-"(let-values(((lst_6) ids_47))"
+"(let-values(((lst_6) ids_49))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
 "(let-values()(check-list lst_6)))"
 "((letrec-values(((for-loop_101)"
-"(lambda(fold-var_385 lst_83)"
+"(lambda(fold-var_390 lst_83)"
 "(begin"
 " 'for-loop"
 "(if(pair? lst_83)"
-"(let-values(((id_165)(unsafe-car lst_83))"
+"(let-values(((id_166)(unsafe-car lst_83))"
 "((rest_39)(unsafe-cdr lst_83)))"
 "(let-values(((fold-var_61)"
-"(let-values(((fold-var_62) fold-var_385))"
-"(let-values(((fold-var_386)"
+"(let-values(((fold-var_62) fold-var_390))"
+"(let-values(((fold-var_391)"
 "(let-values()"
 "(cons"
 "(let-values()"
 "(remove-use-site-scopes"
-" id_165"
+" id_166"
 " ctx_124))"
 " fold-var_62))))"
-"(values fold-var_386)))))"
+"(values fold-var_391)))))"
 "(if(not #f)(for-loop_101 fold-var_61 rest_39) fold-var_61)))"
-" fold-var_385)))))"
+" fold-var_390)))))"
 " for-loop_101)"
 " null"
 " lst_6))))))"
@@ -76591,12 +76652,12 @@ static const char *startup_source =
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
 "(let-values()(check-list lst_98)))"
-"((letrec-values(((for-loop_336)"
+"((letrec-values(((for-loop_334)"
 "(lambda(fold-var_217 lst_84)"
 "(begin"
 " 'for-loop"
 "(if(pair? lst_84)"
-"(let-values(((id_166)(unsafe-car lst_84))"
+"(let-values(((id_167)(unsafe-car lst_84))"
 "((rest_235)(unsafe-cdr lst_84)))"
 "(let-values(((fold-var_227)"
 "(let-values(((fold-var_31) fold-var_217))"
@@ -76605,15 +76666,15 @@ static const char *startup_source =
 "(cons"
 "(let-values()"
 "(add-scope"
-" id_166"
+" id_167"
 " top-level-bind-scope_6))"
 " fold-var_31))))"
 "(values fold-var_32)))))"
 "(if(not #f)"
-"(for-loop_336 fold-var_227 rest_235)"
+"(for-loop_334 fold-var_227 rest_235)"
 " fold-var_227)))"
 " fold-var_217)))))"
-" for-loop_336)"
+" for-loop_334)"
 " null"
 " lst_98))))))"
 "(values tl-ids_2(select-defined-syms-and-bind!/ctx tmp-bind-ids_0 ctx_124)))))))))"
@@ -76623,9 +76684,9 @@ static const char *startup_source =
 "(lambda(s_0 ctx_7)"
 "(let-values((()"
 "(begin"
-"(let-values(((obs_169)(expand-context-observer ctx_7)))"
-"(if obs_169"
-"(let-values()(let-values()(call-expand-observe obs_169 'prim-define-values)))"
+"(let-values(((obs_168)(expand-context-observer ctx_7)))"
+"(if obs_168"
+"(let-values()(let-values()(call-expand-observe obs_168 'prim-define-values)))"
 "(void)))"
 "(values))))"
 "(let-values((()"
@@ -76637,7 +76698,7 @@ static const char *startup_source =
 "(let-values(((disarmed-s_25)(syntax-disarm$1 s_0)))"
 "(let-values(((ok?_24 define-values1_0 id2_1 rhs3_0)"
 "(let-values(((s_169) s_0))"
-"(let-values(((orig-s_95) s_169))"
+"(let-values(((orig-s_97) s_169))"
 "(let-values(((define-values1_1 id2_2 rhs3_1)"
 "(let-values(((s_40)(if(syntax?$1 s_169)(syntax-e$1 s_169) s_169)))"
 "(if(pair? s_40)"
@@ -76664,9 +76725,9 @@ static const char *startup_source =
 "(raise-syntax-error$1"
 " #f"
 "                                                                                            \"bad syntax\""
-" orig-s_95))"
+" orig-s_97))"
 "(let-values()"
-"(let-values(((id_167)"
+"(let-values(((id_168)"
 "(let-values(((lst_24)"
 " flat-s_64))"
 "(begin"
@@ -76689,10 +76750,10 @@ static const char *startup_source =
 "((rest_142)"
 "(unsafe-cdr"
 " lst_78)))"
-"(let-values(((id_168)"
+"(let-values(((id_169)"
 "(let-values(((id_52)"
 " id_6))"
-"(let-values(((id_169)"
+"(let-values(((id_170)"
 "(let-values()"
 "(let-values(((id10_1)"
 "(let-values()"
@@ -76711,24 +76772,24 @@ static const char *startup_source =
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                          \"not an identifier\""
-" orig-s_95"
+" orig-s_97"
 " s_180)))))"
 "(cons"
 " id10_1"
 " id_52)))))"
 "(values"
-" id_169)))))"
+" id_170)))))"
 "(if(not"
 " #f)"
 "(for-loop_247"
-" id_168"
+" id_169"
 " rest_142)"
-" id_168)))"
+" id_169)))"
 " id_6)))))"
 " for-loop_247)"
 " null"
 " lst_24)))))"
-"(reverse$1 id_167))))))))"
+"(reverse$1 id_168))))))))"
 "((rhs8_0)"
 "(let-values(((s_80)(cdr s_171)))"
 "(let-values(((s_381)"
@@ -76757,51 +76818,51 @@ static const char *startup_source =
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                            \"bad syntax\""
-" orig-s_95))))))"
+" orig-s_97))))))"
 "(values rhs9_0))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                        \"bad syntax\""
-" orig-s_95))))))"
+" orig-s_97))))))"
 "(values id7_0 rhs8_0))"
-"                                                                   (raise-syntax-error$1 #f \"bad syntax\" orig-s_95))))))"
+"                                                                   (raise-syntax-error$1 #f \"bad syntax\" orig-s_97))))))"
 "(values define-values4_0 id5_0 rhs6_0))"
-"                                               (raise-syntax-error$1 #f \"bad syntax\" orig-s_95)))))"
+"                                               (raise-syntax-error$1 #f \"bad syntax\" orig-s_97)))))"
 "(values #t define-values1_1 id2_2 rhs3_1))))))"
-"(let-values(((ids_48 syms_28)(as-expand-time-top-level-bindings id2_1 s_0 ctx_7)))"
+"(let-values(((ids_50 syms_28)(as-expand-time-top-level-bindings id2_1 s_0 ctx_7)))"
 "(let-values(((exp-rhs_8)"
-"(let-values(((temp11_8) rhs3_0)((temp12_7)(as-named-context ctx_7 ids_48)))"
+"(let-values(((temp11_8) rhs3_0)((temp12_7)(as-named-context ctx_7 ids_50)))"
 "(expand7.1 #f #f #f #f temp11_8 temp12_7))))"
 "(if(expand-context-to-parsed? ctx_7)"
-"(parsed-define-values19.1 s_0 ids_48 syms_28 exp-rhs_8)"
-"(let-values(((s13_0) s_0)((temp14_9)(list define-values1_0 ids_48 exp-rhs_8)))"
+"(parsed-define-values19.1 s_0 ids_50 syms_28 exp-rhs_8)"
+"(let-values(((s13_0) s_0)((temp14_9)(list define-values1_0 ids_50 exp-rhs_8)))"
 "(rebuild5.1 #f #f s13_0 temp14_9))))))))))))"
 "(void"
 "(add-core-form!*"
 " 'define-syntaxes"
-"(lambda(s_873 ctx_125)"
+"(lambda(s_883 ctx_125)"
 "(let-values((()"
 "(begin"
-"(let-values(((obs_170)(expand-context-observer ctx_125)))"
-"(if obs_170"
-"(let-values()(let-values()(call-expand-observe obs_170 'prim-define-syntaxes)))"
+"(let-values(((obs_169)(expand-context-observer ctx_125)))"
+"(if obs_169"
+"(let-values()(let-values()(call-expand-observe obs_169 'prim-define-syntaxes)))"
 "(void)))"
 "(values))))"
 "(let-values((()"
 "(begin"
-"(let-values(((obs_171)(expand-context-observer ctx_125)))"
-"(if obs_171(let-values()(let-values()(call-expand-observe obs_171 'prepare-env)))(void)))"
+"(let-values(((obs_170)(expand-context-observer ctx_125)))"
+"(if obs_170(let-values()(let-values()(call-expand-observe obs_170 'prepare-env)))(void)))"
 "(values))))"
 "(let-values((()"
 "(begin"
 "(if(eq?(expand-context-context ctx_125) 'top-level)"
 "(void)"
-"                           (let-values () (raise-syntax-error$1 #f \"not allowed in an expression position\" s_873)))"
+"                           (let-values () (raise-syntax-error$1 #f \"not allowed in an expression position\" s_883)))"
 "(values))))"
-"(let-values(((disarmed-s_26)(syntax-disarm$1 s_873)))"
+"(let-values(((disarmed-s_26)(syntax-disarm$1 s_883)))"
 "(let-values(((ok?_90 define-syntaxes15_0 id16_2 rhs17_0)"
 "(let-values(((s_425) disarmed-s_26))"
-"(let-values(((orig-s_96) s_425))"
+"(let-values(((orig-s_98) s_425))"
 "(let-values(((define-syntaxes15_1 id16_3 rhs17_1)"
 "(let-values(((s_20)(if(syntax?$1 s_425)(syntax-e$1 s_425) s_425)))"
 "(if(pair? s_20)"
@@ -76815,11 +76876,11 @@ static const char *startup_source =
 " s_461)))"
 "(if(pair? s_24)"
 "(let-values(((id21_0)"
-"(let-values(((s_723)(car s_24)))"
+"(let-values(((s_735)(car s_24)))"
 "(let-values(((s_468)"
-"(if(syntax?$1 s_723)"
-"(syntax-e$1 s_723)"
-" s_723)))"
+"(if(syntax?$1 s_735)"
+"(syntax-e$1 s_735)"
+" s_735)))"
 "(let-values(((flat-s_65)"
 "(to-syntax-list.1"
 " s_468)))"
@@ -76828,7 +76889,7 @@ static const char *startup_source =
 "(raise-syntax-error$1"
 " #f"
 "                                                                                              \"bad syntax\""
-" orig-s_96))"
+" orig-s_98))"
 "(let-values()"
 "(let-values(((id_78)"
 "(let-values(((lst_179)"
@@ -76840,65 +76901,65 @@ static const char *startup_source =
 "(let-values()"
 "(check-list"
 " lst_179)))"
-"((letrec-values(((for-loop_337)"
-"(lambda(id_170"
-" lst_451)"
+"((letrec-values(((for-loop_335)"
+"(lambda(id_171"
+" lst_454)"
 "(begin"
 " 'for-loop"
 "(if(pair?"
-" lst_451)"
+" lst_454)"
 "(let-values(((s_146)"
 "(unsafe-car"
-" lst_451))"
-"((rest_256)"
+" lst_454))"
+"((rest_255)"
 "(unsafe-cdr"
-" lst_451)))"
+" lst_454)))"
 "(let-values(((id_101)"
 "(let-values(((id_102)"
-" id_170))"
-"(let-values(((id_171)"
+" id_171))"
+"(let-values(((id_172)"
 "(let-values()"
 "(let-values(((id24_1)"
 "(let-values()"
-"(if(let-values(((or-part_353)"
+"(if(let-values(((or-part_355)"
 "(if(syntax?$1"
 " s_146)"
 "(symbol?"
 "(syntax-e$1"
 " s_146))"
 " #f)))"
-"(if or-part_353"
-" or-part_353"
+"(if or-part_355"
+" or-part_355"
 "(symbol?"
 " s_146)))"
 " s_146"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                            \"not an identifier\""
-" orig-s_96"
+" orig-s_98"
 " s_146)))))"
 "(cons"
 " id24_1"
 " id_102)))))"
 "(values"
-" id_171)))))"
+" id_172)))))"
 "(if(not"
 " #f)"
-"(for-loop_337"
+"(for-loop_335"
 " id_101"
-" rest_256)"
+" rest_255)"
 " id_101)))"
-" id_170)))))"
-" for-loop_337)"
+" id_171)))))"
+" for-loop_335)"
 " null"
 " lst_179)))))"
 "(reverse$1 id_78))))))))"
 "((rhs22_0)"
-"(let-values(((s_874)(cdr s_24)))"
+"(let-values(((s_494)(cdr s_24)))"
 "(let-values(((s_476)"
-"(if(syntax?$1 s_874)"
-"(syntax-e$1 s_874)"
-" s_874)))"
+"(if(syntax?$1 s_494)"
+"(syntax-e$1 s_494)"
+" s_494)))"
 "(if(pair? s_476)"
 "(let-values(((rhs23_2)"
 "(let-values(((s_164)"
@@ -76921,27 +76982,27 @@ static const char *startup_source =
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                              \"bad syntax\""
-" orig-s_96))))))"
+" orig-s_98))))))"
 "(values rhs23_2))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                          \"bad syntax\""
-" orig-s_96))))))"
+" orig-s_98))))))"
 "(values id21_0 rhs22_0))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                      \"bad syntax\""
-" orig-s_96))))))"
+" orig-s_98))))))"
 "(values define-syntaxes18_0 id19_1 rhs20_0))"
-"                                                 (raise-syntax-error$1 #f \"bad syntax\" orig-s_96)))))"
+"                                                 (raise-syntax-error$1 #f \"bad syntax\" orig-s_98)))))"
 "(values #t define-syntaxes15_1 id16_3 rhs17_1))))))"
-"(let-values(((ids_49 syms_29)(as-expand-time-top-level-bindings id16_2 s_873 ctx_125)))"
+"(let-values(((ids_51 syms_29)(as-expand-time-top-level-bindings id16_2 s_883 ctx_125)))"
 "(let-values(((exp-rhs_9)"
-"(let-values(((temp25_8) rhs17_0)((temp26_7)(as-named-context ctx_125 ids_49)))"
+"(let-values(((temp25_8) rhs17_0)((temp26_7)(as-named-context ctx_125 ids_51)))"
 "(expand-transformer47.1 #f #f #f #f #f #f #f #f #f #f #f #f temp25_8 temp26_7))))"
 "(if(expand-context-to-parsed? ctx_125)"
-"(parsed-define-syntaxes20.1 s_873 ids_49 syms_29 exp-rhs_9)"
-"(let-values(((s27_3) s_873)((temp28_6)(list define-syntaxes15_0 ids_49 exp-rhs_9)))"
+"(parsed-define-syntaxes20.1 s_883 ids_51 syms_29 exp-rhs_9)"
+"(let-values(((s27_3) s_883)((temp28_6)(list define-syntaxes15_0 ids_51 exp-rhs_9)))"
 "(rebuild5.1 #f #f s27_3 temp28_6)))))))))))))"
 "(void"
 "(add-core-form!*"
@@ -76953,8 +77014,8 @@ static const char *startup_source =
 "(lambda(s_45 ctx_18)"
 "(let-values((()"
 "(begin"
-"(let-values(((obs_172)(expand-context-observer ctx_18)))"
-"(if obs_172(let-values()(let-values()(call-expand-observe obs_172 'prim-require)))(void)))"
+"(let-values(((obs_171)(expand-context-observer ctx_18)))"
+"(if obs_171(let-values()(let-values()(call-expand-observe obs_171 'prim-require)))(void)))"
 "(values))))"
 "(let-values((()"
 "(begin"
@@ -76965,42 +77026,42 @@ static const char *startup_source =
 "(let-values(((disarmed-s_27)(syntax-disarm$1 s_45)))"
 "(let-values(((ok?_91 #%require29_0 req30_0)"
 "(let-values(((s_394) disarmed-s_27))"
-"(let-values(((orig-s_97) s_394))"
+"(let-values(((orig-s_99) s_394))"
 "(let-values(((#%require29_1 req30_1)"
-"(let-values(((s_875)(if(syntax?$1 s_394)(syntax-e$1 s_394) s_394)))"
-"(if(pair? s_875)"
-"(let-values(((#%require31_0)(let-values(((s_46)(car s_875))) s_46))"
+"(let-values(((s_884)(if(syntax?$1 s_394)(syntax-e$1 s_394) s_394)))"
+"(if(pair? s_884)"
+"(let-values(((#%require31_0)(let-values(((s_46)(car s_884))) s_46))"
 "((req32_0)"
-"(let-values(((s_147)(cdr s_875)))"
-"(let-values(((s_724)"
+"(let-values(((s_147)(cdr s_884)))"
+"(let-values(((s_736)"
 "(if(syntax?$1 s_147)"
 "(syntax-e$1 s_147)"
 " s_147)))"
-"(let-values(((flat-s_66)(to-syntax-list.1 s_724)))"
+"(let-values(((flat-s_66)(to-syntax-list.1 s_736)))"
 "(if(not flat-s_66)"
 "(let-values()"
-"                                                                       (raise-syntax-error$1 #f \"bad syntax\" orig-s_97))"
+"                                                                       (raise-syntax-error$1 #f \"bad syntax\" orig-s_99))"
 "(let-values() flat-s_66)))))))"
 "(values #%require31_0 req32_0))"
-"                                               (raise-syntax-error$1 #f \"bad syntax\" orig-s_97)))))"
+"                                               (raise-syntax-error$1 #f \"bad syntax\" orig-s_99)))))"
 "(values #t #%require29_1 req30_1))))))"
 "(let-values(((sc_36)(new-scope 'macro)))"
 "(begin"
 "(let-values(((temp33_4)"
 "(reverse$1"
-"(let-values(((lst_452) req30_0))"
+"(let-values(((lst_455) req30_0))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
-"(let-values()(check-list lst_452)))"
-"((letrec-values(((for-loop_338)"
-"(lambda(fold-var_163 lst_453)"
+"(let-values()(check-list lst_455)))"
+"((letrec-values(((for-loop_336)"
+"(lambda(fold-var_163 lst_456)"
 "(begin"
 " 'for-loop"
-"(if(pair? lst_453)"
-"(let-values(((req_20)(unsafe-car lst_453))"
-"((rest_257)(unsafe-cdr lst_453)))"
-"(let-values(((fold-var_387)"
+"(if(pair? lst_456)"
+"(let-values(((req_20)(unsafe-car lst_456))"
+"((rest_256)(unsafe-cdr lst_456)))"
+"(let-values(((fold-var_392)"
 "(let-values(((fold-var_178) fold-var_163))"
 "(let-values(((fold-var_179)"
 "(let-values()"
@@ -77012,12 +77073,12 @@ static const char *startup_source =
 " fold-var_178))))"
 "(values fold-var_179)))))"
 "(if(not #f)"
-"(for-loop_338 fold-var_387 rest_257)"
-" fold-var_387)))"
+"(for-loop_336 fold-var_392 rest_256)"
+" fold-var_392)))"
 " fold-var_163)))))"
-" for-loop_338)"
+" for-loop_336)"
 " null"
-" lst_452)))))"
+" lst_455)))))"
 "((s34_0) s_45)"
 "((temp35_3) #f)"
 "((temp36_8)(expand-context-namespace ctx_18))"
@@ -77054,11 +77115,11 @@ static const char *startup_source =
 "(void"
 "(add-core-form!*"
 " '#%provide"
-"(lambda(s_495 ctx_126)"
+"(lambda(s_498 ctx_81)"
 "(begin"
-"(let-values(((obs_17)(expand-context-observer ctx_126)))"
+"(let-values(((obs_17)(expand-context-observer ctx_81)))"
 "(if obs_17(let-values()(let-values()(call-expand-observe obs_17 'prim-provide)))(void)))"
-"       (raise-syntax-error$1 #f \"not allowed outside of a module body\" s_495)))))"
+"       (raise-syntax-error$1 #f \"not allowed outside of a module body\" s_498)))))"
 "(define-values(ns)(make-namespace))"
 "(void"
 "(begin"
@@ -77124,7 +77185,7 @@ static const char *startup_source =
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
 "(let-values()(check-in-hash-keys ht_167)))"
-"((letrec-values(((for-loop_320)"
+"((letrec-values(((for-loop_318)"
 "(lambda(table_180 i_183)"
 "(begin"
 " 'for-loop"
@@ -77142,10 +77203,10 @@ static const char *startup_source =
 "(hash-set table_99 key_94 val_85)))))"
 "(values table_100)))))"
 "(if(not #f)"
-"(for-loop_320 table_219(hash-iterate-next ht_167 i_183))"
+"(for-loop_318 table_219(hash-iterate-next ht_167 i_183))"
 " table_219)))"
 " table_180)))))"
-" for-loop_320)"
+" for-loop_318)"
 " '#hash()"
 "(hash-iterate-first ht_167))))))"
 "(declare-kernel-module!8.1 eval27_0 temp28_7 temp29_4 ns26_3))"
@@ -77215,5 +77276,5 @@ static const char *startup_source =
 "(declare-reexporting-module!50.1 ns35_1 temp36_9 #t temp33_5 temp34_4))"
 "(1/current-namespace ns)"
 "(1/dynamic-require ''#%kernel 0)))"
-"(define-values(datum->kernel-syntax)(lambda(s_876)(begin(1/datum->syntax core-stx s_876)))))"
+"(define-values(datum->kernel-syntax)(lambda(s_885)(begin(1/datum->syntax core-stx s_885)))))"
 ;