diff --git a/pkgs/racket-doc/scribblings/reference/reader.scrbl b/pkgs/racket-doc/scribblings/reference/reader.scrbl
index 039f6a4421..6fe9b107f8 100644
--- a/pkgs/racket-doc/scribblings/reference/reader.scrbl
+++ b/pkgs/racket-doc/scribblings/reference/reader.scrbl
@@ -956,16 +956,17 @@ When the @racket[read-cdot] @tech{parameter} is set to @racket[#t],
 then a variety of changes occur in the reader.
 
 First, symbols can no longer include the character @litchar{.}, unless
-the entire symbol is quoted with @litchar{|}.
+the @litchar{.} is quoted with @litchar{|} or @litchar{\}.
 
 Second, numbers can no longer include the character @litchar{.},
-unless the number is prefixed with @litchar{#e} or @litchar{#i}, or an
+unless the number is prefixed with @litchar{#e}, @litchar{#i},
+@litchar{#b}, @litchar{#o}, @litchar{#d}, @litchar{#x}, or an
 equivalent prefix as discussed in @secref["parse-number"]. If these
 numbers are followed by a @litchar{.} intended to be read as a C-style
-infix dot, then there must be separating whitespace.
+infix dot, then a delimiter must precede the @litchar{.}.
 
 Finally, after reading any datum @racket[_x], the reader will seek
-through whitespace and look for zero or more sequences of a
+through whitespace and comments and look for zero or more sequences of a
 @litchar{.} followed by another datum @racket[_y]. It will then group
 @racket[_x] and @racket[_y] together in a @racket[#%dot] form so that
 @racket[_x.y] reads equal to @racket[(#%dot _x _y)].
diff --git a/pkgs/racket-test-core/tests/racket/read.rktl b/pkgs/racket-test-core/tests/racket/read.rktl
index b699b8d4e1..93aa392983 100644
--- a/pkgs/racket-test-core/tests/racket/read.rktl
+++ b/pkgs/racket-test-core/tests/racket/read.rktl
@@ -1356,7 +1356,19 @@
   (test '(#%dot (f a) (m b c))               readstr "(f a).(m b c)")
   (test '(#%dot (#%dot (f a) (m b c)) (n d e)) readstr "(f a).(m b c).(n d e)")
   (test '(#%dot (#%dot (#%dot (#%dot (#%dot (f a) (m b c)) x) (n d e)) y) z)
-        readstr "(f a).(m b c).x.(n d e).y.z"))
+        readstr "(f a).(m b c).x.(n d e).y.z")
+  (test '(#%dot 1.2 a) readstr "#i1.2 .a")
+  (test '(#%dot 1.0 a) readstr "#b1.0 .a")
+  (test '(#%dot 1.25 a) readstr "#o1.2 .a")
+  (test '(#%dot 1.2 a) readstr "#d1.2 .a")
+  (test '(#%dot 1.125 a) readstr "#x1.2 .a")
+  (test '(#%dot (#%dot 1 2) a) readstr "1.2 .a")
+  (test 'a.b readstr "|a.b|")
+  (test 'a.b readstr "a|.|b")
+  (test 'a.b readstr "a|.b|")
+  (test 'a.b readstr "a\\.b")
+  (err/rt-test (readstr "x.") exn:fail:read:eof?)
+  (err/rt-test (readstr "1.") exn:fail:read:eof?))
 
 ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; srcloc->string
diff --git a/racket/src/expander/read/main.rkt b/racket/src/expander/read/main.rkt
index 93b832c057..1f00730002 100644
--- a/racket/src/expander/read/main.rkt
+++ b/racket/src/expander/read/main.rkt
@@ -153,8 +153,11 @@
          [(char=? ec #\.)
           (define-values (dot-line dot-col dot-pos) (port-next-location in))
           (consume-char in c)
-          (define cdot (wrap '#%dot in (reading-at config dot-line dot-col dot-pos) #\.))
+          (define pos-config (reading-at config dot-line dot-col dot-pos))
+          (define cdot (wrap '#%dot in pos-config #\.))
           (define post-v (read-undotted #f in config))
+          (when (eof-object? post-v)
+            (reader-error in pos-config #:due-to eof "expected a datum after cdot, found end-of-file"))
           (loop (wrap (list cdot v post-v) in (reading-at config line col pos) #\.))]
          [else v]))])]))
 
diff --git a/racket/src/expander/read/symbol-or-number.rkt b/racket/src/expander/read/symbol-or-number.rkt
index 3bd3484500..d3d87017f0 100644
--- a/racket/src/expander/read/symbol-or-number.rkt
+++ b/racket/src/expander/read/symbol-or-number.rkt
@@ -12,7 +12,7 @@
 
 (provide read-symbol-or-number)
 
-(define (read-symbol-or-number init-c in config
+(define (read-symbol-or-number init-c in orig-config
                                ;; `mode` can be 'symbol-or-number,
                                ;; 'symbol, 'symbol/indirect, 'keyword,
                                ;; or a number prefix string like "#e";
@@ -21,6 +21,9 @@
                                ;; symbol handler
                                #:mode [mode 'symbol-or-number]
                                #:extra-prefix [extra-prefix #f])
+  (define config (if (string? mode)
+                     (override-parameter read-cdot orig-config #f)
+                     orig-config))
   (define rt (read-config-readtable config))
   (cond
    [(and rt
diff --git a/racket/src/racket/src/startup.inc b/racket/src/racket/src/startup.inc
index bc4f8782cb..63665e623f 100644
--- a/racket/src/racket/src/startup.inc
+++ b/racket/src/racket/src/startup.inc
@@ -51372,21 +51372,23 @@ static const char *startup_source =
 "(lambda(convert-mode_12)(begin(if(eq? convert-mode_12 'read) 'must-read convert-mode_12))))"
 "(define-values"
 "(read-symbol-or-number8.1)"
-"(lambda(extra-prefix2_0 mode1_0 init-c5_0 in6_1 config7_0)"
+"(lambda(extra-prefix2_0 mode1_0 init-c5_0 in6_1 orig-config7_0)"
 "(begin"
 " 'read-symbol-or-number8"
 "(let-values(((init-c_6) init-c5_0))"
 "(let-values(((in_26) in6_1))"
-"(let-values(((config_23) config7_0))"
+"(let-values(((orig-config_0) orig-config7_0))"
 "(let-values(((mode_18) mode1_0))"
 "(let-values(((extra-prefix_0) extra-prefix2_0))"
 "(let-values()"
-"(let-values(((rt_11)(read-config-readtable config_23)))"
+"(let-values(((config_37)"
+"(if(string? mode_18)(override-parameter 1/read-cdot orig-config_0 #f) orig-config_0)))"
+"(let-values(((rt_10)(read-config-readtable config_37)))"
 "(let-values(((c1_30)"
-"(if rt_11"
-"(if(let-values(((or-part_13)(eq? mode_18 'symbol-or-number)))"
-"(if or-part_13 or-part_13(eq? mode_18 'symbol/indirect)))"
-"(readtable-symbol-parser rt_11)"
+"(if rt_10"
+"(if(let-values(((or-part_217)(eq? mode_18 'symbol-or-number)))"
+"(if or-part_217 or-part_217(eq? mode_18 'symbol/indirect)))"
+"(readtable-symbol-parser rt_10)"
 " #f)"
 " #f)))"
 "(if c1_30"
@@ -51395,41 +51397,41 @@ static const char *startup_source =
 " handler_2"
 " init-c_6"
 " in_26"
-" config_23"
-"(read-config-line config_23)"
-"(read-config-col config_23)"
-"(read-config-pos config_23)))"
+" config_37"
+"(read-config-line config_37)"
+"(read-config-col config_37)"
+"(read-config-pos config_37)))"
 " c1_30)"
 "(let-values()"
-"(let-values(((accum-str_1)(accum-string-init! config_23)))"
+"(let-values(((accum-str_1)(accum-string-init! config_37)))"
 "(let-values(((quoted-ever?_0) #f))"
-"(let-values(((case-sens?_0)(check-parameter read-case-sensitive config_23)))"
+"(let-values(((case-sens?_0)(check-parameter read-case-sensitive config_37)))"
 "(let-values((()"
 "(begin"
 "(if extra-prefix_0"
 "(let-values()(accum-string-add! accum-str_1 extra-prefix_0))"
 "(void))"
 "(values))))"
-"(let-values(((source_17)(read-config-source config_23)))"
+"(let-values(((source_17)(read-config-source config_37)))"
 "(let-values(((unexpected-quoted_0)"
-"(lambda(c_72 after-c_0)"
+"(lambda(c_48 after-c_0)"
 "(begin"
 " 'unexpected-quoted"
 "(let-values(((in11_0) in_26)"
-"((config12_1) config_23)"
-"((c13_0) c_72)"
-"                                                                   ((temp14_5) \"~a following `~a` in ~a\")"
-"((temp15_5)"
-"(if(eof-object? c_72)"
-"                                                                      \"end-of-file\""
-"                                                                      \"non-character\"))"
+"((config12_1) config_37)"
+"((c13_0) c_48)"
+"                                                                     ((temp14_2) \"~a following `~a` in ~a\")"
+"((temp15_2)"
+"(if(eof-object? c_48)"
+"                                                                        \"end-of-file\""
+"                                                                        \"non-character\"))"
 "((after-c16_0) after-c_0)"
-"((temp17_4)"
+"((temp17_1)"
 "(if(eq? mode_18 'keyword)"
-"                                                                      (let-values () \"keyword\")"
+"                                                                        (let-values () \"keyword\")"
 "(if(string? mode_18)"
-"                                                                        (let-values () \"number\")"
-"                                                                        (let-values () \"symbol\")))))"
+"                                                                          (let-values () \"number\")"
+"                                                                          (let-values () \"symbol\")))))"
 "(reader-error12.1"
 " unsafe-undefined"
 " c13_0"
@@ -51437,54 +51439,56 @@ static const char *startup_source =
 " unsafe-undefined"
 " in11_0"
 " config12_1"
-" temp14_5"
-"(list temp15_5 after-c16_0 temp17_4)))))))"
+" temp14_2"
+"(list temp15_2 after-c16_0 temp17_1)))))))"
 "(let-values((()"
 "(begin"
-"((letrec-values(((loop_113)"
+"((letrec-values(((loop_102)"
 "(lambda(init-c_7"
 " pipe-quote-c_0"
 " foldcase-from_0)"
 "(begin"
 " 'loop"
 "(let-values(((c_85)"
-"(let-values(((or-part_81)"
+"(let-values(((or-part_82)"
 " init-c_7))"
-"(if or-part_81"
-" or-part_81"
+"(if or-part_82"
+" or-part_82"
 "(let-values(((in_27)"
 " in_26)"
 "((skip-count_8)"
 " 0)"
 "((source_18)"
 " source_17))"
-"(let-values(((c_76)"
+"(let-values(((c_51)"
 "(peek-char-or-special"
 " in_27"
 " skip-count_8"
 " 'special"
 " source_18)))"
 "(if(eq?"
-" c_76"
+" c_51"
 " 'special)"
 "(special1.1"
 " 'special)"
-" c_76)))))))"
+" c_51)))))))"
 "(let-values(((ec_4)"
-"(let-values(((rt_12) rt_11)"
-"((c_86) c_85))"
-"(if(let-values(((or-part_96)"
+"(let-values(((rt_11)"
+" rt_10)"
+"((c_70)"
+" c_85))"
+"(if(let-values(((or-part_358)"
 "(not"
-" rt_12)))"
-"(if or-part_96"
-" or-part_96"
+" rt_11)))"
+"(if or-part_358"
+" or-part_358"
 "(not"
-"(char? c_86))))"
-"(let-values() c_86)"
+"(char? c_70))))"
+"(let-values() c_70)"
 "(let-values()"
 "(*readtable-effective-char"
-" rt_12"
-" c_86))))))"
+" rt_11"
+" c_70))))))"
 "(if(if pipe-quote-c_0"
 "(not(char? ec_4))"
 " #f)"
@@ -51495,16 +51499,16 @@ static const char *startup_source =
 "(let-values()"
 "(consume-char/special"
 " in_26"
-" config_23"
+" config_37"
 " c_85)))"
 "(unexpected-quoted_0"
 " c_85"
 " pipe-quote-c_0)))"
 "(if(if(not pipe-quote-c_0)"
 "(readtable-char-delimiter?"
-" rt_11"
+" rt_10"
 " c_85"
-" config_23)"
+" config_37)"
 " #f)"
 "(let-values()"
 "(if case-sens?_0"
@@ -51525,7 +51529,7 @@ static const char *startup_source =
 "(consume-char"
 " in_26"
 " c_85)))"
-"(loop_113"
+"(loop_102"
 " #f"
 " #f"
 "(accum-string-count"
@@ -51533,7 +51537,7 @@ static const char *startup_source =
 "(if(if(char=? ec_4 '#\\|)"
 "(check-parameter"
 " read-accept-bar-quote"
-" config_23)"
+" config_37)"
 " #f)"
 "(let-values()"
 "(begin"
@@ -51551,7 +51555,7 @@ static const char *startup_source =
 " accum-str_1"
 " string-foldcase"
 " foldcase-from_0)))"
-"(loop_113"
+"(loop_102"
 " #f"
 " c_85"
 "(accum-string-count"
@@ -51585,10 +51589,10 @@ static const char *startup_source =
 "(unexpected-quoted_0"
 " next-c_0"
 " c_85)))"
-"(if(let-values(((or-part_53)"
+"(if(let-values(((or-part_54)"
 " pipe-quote-c_0))"
-"(if or-part_53"
-" or-part_53"
+"(if or-part_54"
+" or-part_54"
 " case-sens?_0))"
 "(void)"
 "(let-values()"
@@ -51601,7 +51605,7 @@ static const char *startup_source =
 " next-c_0)"
 "(set! quoted-ever?_0"
 " #t)"
-"(loop_113"
+"(loop_102"
 " #f"
 " #f"
 "(accum-string-count"
@@ -51617,18 +51621,18 @@ static const char *startup_source =
 "(accum-string-add!"
 " accum-str_1"
 " c_85)"
-"(loop_113"
+"(loop_102"
 " #f"
 " pipe-quote-c_0"
 " foldcase-from_0))))))))))))))"
-" loop_113)"
+" loop_102)"
 " init-c_6"
 " #f"
 " 0)"
 "(values))))"
 "(let-values(((str_29)"
 "(let-values(((accum-str18_0) accum-str_1)"
-"((config19_0) config_23))"
+"((config19_0) config_37))"
 "(accum-string-get!6.1 0 accum-str18_0 config19_0))))"
 "(let-values((()"
 "(begin"
@@ -51636,13 +51640,13 @@ static const char *startup_source =
 "(if(not quoted-ever?_0)"
 "(char=?"
 " '#\\."
-"(effective-char(string-ref str_29 0) config_23))"
+"(effective-char(string-ref str_29 0) config_37))"
 " #f)"
 " #f)"
 "(let-values()"
 "(let-values(((in20_1) in_26)"
-"((config21_0) config_23)"
-"                                                                           ((temp22_5) \"illegal use of `.`\"))"
+"((config21_0) config_37)"
+"                                                                             ((temp22_5) \"illegal use of `.`\"))"
 "(reader-error12.1"
 " unsafe-undefined"
 " '#\\x"
@@ -51655,9 +51659,9 @@ static const char *startup_source =
 "(void))"
 "(values))))"
 "(let-values(((num_0)"
-"(if(let-values(((or-part_31)"
+"(if(let-values(((or-part_32)"
 "(eq? mode_18 'symbol-or-number)))"
-"(if or-part_31 or-part_31(string? mode_18)))"
+"(if or-part_32 or-part_32(string? mode_18)))"
 "(if(not quoted-ever?_0)"
 "(1/string->number"
 "(if(string? mode_18)"
@@ -51665,7 +51669,9 @@ static const char *startup_source =
 " str_29)"
 " 10"
 " 'read"
-"(if(check-parameter 1/read-decimal-as-inexact config_23)"
+"(if(check-parameter"
+" 1/read-decimal-as-inexact"
+" config_37)"
 " 'decimal-as-inexact"
 " 'decimal-as-exact))"
 " #f)"
@@ -51674,8 +51680,8 @@ static const char *startup_source =
 "(if(string? num_0)"
 "(let-values()"
 "(let-values(((in23_1) in_26)"
-"((config24_1) config_23)"
-"                                                                 ((temp25_6) \"~a\")"
+"((config24_1) config_37)"
+"                                                                   ((temp25_6) \"~a\")"
 "((num26_0) num_0))"
 "(reader-error12.1"
 " unsafe-undefined"
@@ -51690,8 +51696,8 @@ static const char *startup_source =
 "(if(if(not num_0)(string? mode_18) #f)"
 "(let-values()"
 "(let-values(((in27_0) in_26)"
-"((config28_0) config_23)"
-"                                                                 ((temp29_5) \"bad number: `~a`\")"
+"((config28_0) config_37)"
+"                                                                   ((temp29_5) \"bad number: `~a`\")"
 "((temp30_4)(string-append mode_18 str_29)))"
 "(reader-error12.1"
 " unsafe-undefined"
@@ -51704,17 +51710,17 @@ static const char *startup_source =
 "(list temp30_4))))"
 "(void))"
 "(wrap"
-"(let-values(((or-part_358) num_0))"
-"(if or-part_358"
-" or-part_358"
-"(let-values(((or-part_359)"
+"(let-values(((or-part_359) num_0))"
+"(if or-part_359"
+" or-part_359"
+"(let-values(((or-part_166)"
 "(if(eq? mode_18 'keyword)"
 "(string->keyword str_29)"
 " #f)))"
-"(if or-part_359 or-part_359(string->symbol str_29)))))"
+"(if or-part_166 or-part_166(string->symbol str_29)))))"
 " in_26"
-" config_23"
-" str_29)))))))))))))))))))))))))"
+" config_37"
+" str_29))))))))))))))))))))))))))"
 "(define-values"
 "(read-fixnum)"
 "(lambda(read-one_3 init-c_0 in_5 config_15)"
@@ -51742,18 +51748,18 @@ static const char *startup_source =
 "(list v4_1))))))))))))"
 "(define-values"
 "(read-flonum)"
-"(lambda(read-one_4 init-c_8 in_20 config_37)"
+"(lambda(read-one_4 init-c_8 in_20 config_38)"
 "(begin"
-"(let-values(((c_14)(read-char/skip-whitespace-and-comments init-c_8 read-one_4 in_20 config_37)))"
+"(let-values(((c_14)(read-char/skip-whitespace-and-comments init-c_8 read-one_4 in_20 config_38)))"
 "(let-values(((line_9 col_8 pos_94)(port-next-location* in_20 c_14)))"
-"          (let-values (((v_31) (read-number-literal c_14 in_20 config_37 \"#i\")))"
+"          (let-values (((v_31) (read-number-literal c_14 in_20 config_38 \"#i\")))"
 "(if(flonum? v_31)"
 "(let-values() v_31)"
 "(if(eof-object? v_31)"
 "(let-values() v_31)"
 "(let-values()"
 "(let-values(((in5_0) in_20)"
-"((temp6_1)(reading-at config_37 line_9 col_8 pos_94))"
+"((temp6_1)(reading-at config_38 line_9 col_8 pos_94))"
 "                               ((temp7_4) \"expected a flonum, found ~a\")"
 "((v8_0) v_31))"
 "(reader-error12.1"
@@ -51767,12 +51773,12 @@ static const char *startup_source =
 "(list v8_0))))))))))))"
 "(define-values"
 "(read-number-literal)"
-"(lambda(c_49 in_29 config_38 mode_19)"
+"(lambda(c_49 in_29 config_39 mode_19)"
 "(begin"
 "(if(not(char? c_49))"
 "(let-values() c_49)"
 "(let-values()"
-"(let-values(((c9_0) c_49)((in10_2) in_29)((config11_1) config_38)((mode12_0) mode_19))"
+"(let-values(((c9_0) c_49)((in10_2) in_29)((config11_1) config_39)((mode12_0) mode_19))"
 "(read-symbol-or-number8.1 #f mode12_0 c9_0 in10_2 config11_1)))))))"
 "(define-values"
 "(read-vector11.1)"
@@ -51794,10 +51800,10 @@ static const char *startup_source =
 "(let-values() read-one_5)"
 "(if(equal? tmp_41 'fixnum)"
 "(let-values()"
-"(lambda(init-c_9 in_31 config_39)"
+"(lambda(init-c_9 in_31 config_40)"
 "(begin"
 " 'read-one-element"
-"(read-fixnum read-one_5 init-c_9 in_31 config_39))))"
+"(read-fixnum read-one_5 init-c_9 in_31 config_40))))"
 "(if(equal? tmp_41 'flonum)"
 "(let-values()"
 "(lambda(init-c_10 in_11 config_26)"
@@ -52018,15 +52024,15 @@ static const char *startup_source =
 " 'last-or"
 "(if(null? seq_2)"
 "(wrap v_243 in_30 config_10 #f)"
-"((letrec-values(((loop_114)"
+"((letrec-values(((loop_113)"
 "(lambda(seq_3)"
 "(begin"
 " 'loop"
 "(if(null?(cdr seq_3))"
 "(car seq_3)"
-"(loop_114"
+"(loop_113"
 "(cdr seq_3)))))))"
-" loop_114)"
+" loop_113)"
 " seq_2))))))"
 "(let-values((()"
 "(begin"
@@ -52218,16 +52224,16 @@ static const char *startup_source =
 "(wrap vec_61 in_30 config_10 opener_2))))))))))))))))"
 "(define-values"
 "(read-fixnum-or-flonum-vector)"
-"(lambda(read-one_6 dispatch-c_0 c_87 c2_4 in_32 config_40)"
+"(lambda(read-one_6 dispatch-c_0 c_86 c2_4 in_32 config_41)"
 "(begin"
 "(let-values(((vector-mode_1)(if(char=? c2_4 '#\\x) 'fixnum 'flonum)))"
 "(let-values((()(begin(consume-char in_32 c2_4)(values))))"
 "(let-values((()"
 "(begin"
-"(if(read-config-for-syntax? config_40)"
+"(if(read-config-for-syntax? config_41)"
 "(let-values()"
 "(let-values(((in28_0) in_32)"
-"((config29_0) config_40)"
+"((config29_0) config_41)"
 "                                           ((temp30_5) \"literal f~avectors not allowed\")"
 "((c231_0) c2_4))"
 "(reader-error12.1"
@@ -52242,11 +52248,11 @@ static const char *startup_source =
 "(void))"
 "(values))))"
 "(let-values(((c3_3)"
-"(let-values(((in_33) in_32)((source_20)(read-config-source config_40)))"
+"(let-values(((in_33) in_32)((source_20)(read-config-source config_41)))"
 "(read-char-or-special in_33 special1.1 source_20))))"
 "(let-values(((vector-len_0 len-str_0 c4_1)"
 "(if(decimal-digit? c3_3)"
-"(let-values()(read-simple-number in_32 config_40 c3_3))"
+"(let-values()(read-simple-number in_32 config_41 c3_3))"
 "                              (let-values () (values #f \"\" c3_3)))))"
 "(let-values(((tmp_46) c4_1))"
 "(if(equal? tmp_46 '#\\()"
@@ -52256,7 +52262,7 @@ static const char *startup_source =
 "((temp34_6) '#\\()"
 "((temp35_3) '#\\))"
 "((in36_0) in_32)"
-"((config37_0) config_40)"
+"((config37_0) config_41)"
 "((vector-mode38_0) vector-mode_1)"
 "((vector-len39_0) vector-len_0))"
 "(read-vector11.1"
@@ -52270,14 +52276,14 @@ static const char *startup_source =
 " config37_0)))"
 "(if(equal? tmp_46 '#\\[)"
 "(let-values()"
-"(if(check-parameter 1/read-square-bracket-as-paren config_40)"
+"(if(check-parameter 1/read-square-bracket-as-paren config_41)"
 "(let-values()"
 "(let-values(((read-one40_0) read-one_6)"
 "((temp41_2) '#\\[)"
 "((temp42_2) '#\\[)"
 "((temp43_3) '#\\])"
 "((in44_0) in_32)"
-"((config45_0) config_40)"
+"((config45_0) config_41)"
 "((vector-mode46_0) vector-mode_1)"
 "((vector-len47_0) vector-len_0))"
 "(read-vector11.1"
@@ -52291,19 +52297,19 @@ static const char *startup_source =
 " config45_0)))"
 "(let-values()"
 "(let-values(((in48_0) in_32)"
-"((config49_0) config_40)"
-"                                         ((temp50_1) (format \"~a~a\" dispatch-c_0 (format \"~a~a\" c_87 c2_4))))"
+"((config49_0) config_41)"
+"                                         ((temp50_1) (format \"~a~a\" dispatch-c_0 (format \"~a~a\" c_86 c2_4))))"
 "(bad-syntax-error20.1 '#\\x in48_0 config49_0 temp50_1)))))"
 "(if(equal? tmp_46 '#\\{)"
 "(let-values()"
-"(if(check-parameter 1/read-curly-brace-as-paren config_40)"
+"(if(check-parameter 1/read-curly-brace-as-paren config_41)"
 "(let-values()"
 "(let-values(((read-one51_0) read-one_6)"
 "((temp52_1) '#\\{)"
 "((temp53_3) '#\\{)"
 "((temp54_0) '#\\})"
 "((in55_1) in_32)"
-"((config56_0) config_40)"
+"((config56_0) config_41)"
 "((vector-mode57_0) vector-mode_1)"
 "((vector-len58_0) vector-len_0))"
 "(read-vector11.1"
@@ -52317,15 +52323,15 @@ static const char *startup_source =
 " config56_0)))"
 "(let-values()"
 "(let-values(((in59_0) in_32)"
-"((config60_0) config_40)"
-"                                           ((temp61_3) (format \"~a~a\" dispatch-c_0 (format \"~a~a\" c_87 c2_4))))"
+"((config60_0) config_41)"
+"                                           ((temp61_3) (format \"~a~a\" dispatch-c_0 (format \"~a~a\" c_86 c2_4))))"
 "(bad-syntax-error20.1 '#\\x in59_0 config60_0 temp61_3)))))"
 "(let-values()"
 "(let-values(((in62_0) in_32)"
-"((config63_0) config_40)"
+"((config63_0) config_41)"
 "((c464_0) c4_1)"
 "                                       ((temp65_2) \"expected `(`, `[`, or `{` after `#~a~a~a`\")"
-"((c66_0) c_87)"
+"((c66_0) c_86)"
 "((c267_0) c2_4)"
 "((len-str68_0) len-str_0))"
 "(reader-error12.1"
@@ -52339,14 +52345,14 @@ static const char *startup_source =
 "(list c66_0 c267_0 len-str68_0))))))))))))))))"
 "(define-values"
 "(read-simple-number)"
-"(lambda(in_34 config_41 init-c_11)"
+"(lambda(in_34 config_42 init-c_11)"
 "(begin"
-"(let-values(((accum-str_2)(accum-string-init! config_41)))"
+"(let-values(((accum-str_2)(accum-string-init! config_42)))"
 "(let-values((()(begin(accum-string-add! accum-str_2 init-c_11)(values))))"
 "(let-values(((init-v_1)(digit->number init-c_11)))"
 "(let-values(((v_244)"
 "(let-values(((in69_0) in_34)"
-"((config70_0) config_41)"
+"((config70_0) config_42)"
 "((accum-str71_0) accum-str_2)"
 "((temp72_1) 10)"
 "((temp73_0) +inf.0)"
@@ -52355,9 +52361,9 @@ static const char *startup_source =
 "(read-digits12.1 temp72_1 init-v74_0 temp73_0 init-v75_0 in69_0 config70_0 accum-str71_0))))"
 "(values"
 " v_244"
-"(let-values(((accum-str76_0) accum-str_2)((config77_0) config_41))"
+"(let-values(((accum-str76_0) accum-str_2)((config77_0) config_42))"
 "(accum-string-get!6.1 0 accum-str76_0 config77_0))"
-"(let-values(((in_35) in_34)((source_21)(read-config-source config_41)))"
+"(let-values(((in_35) in_34)((source_21)(read-config-source config_42)))"
 "(read-char-or-special in_35 special1.1 source_21))))))))))"
 "(define-values"
 "(read-struct)"
@@ -52497,14 +52503,14 @@ static const char *startup_source =
 "(wrap(apply make-prefab-struct seq_4) in_5 config_15 ec_5)))))))))))"
 "(define-values"
 "(read-struct-sequence)"
-"(lambda(read-one_7 opener-c_2 opener_3 closer_3 in_16 config_42)"
+"(lambda(read-one_7 opener-c_2 opener_3 closer_3 in_16 config_43)"
 "(begin"
 "(let-values(((read-one30_0) read-one_7)"
 "((opener-c31_0) opener-c_2)"
 "((opener32_0) opener_3)"
 "((closer33_0) closer_3)"
 "((in34_0) in_16)"
-"((config35_0) config_42)"
+"((config35_0) config_43)"
 "((temp36_5)"
 "(lambda(init-c_12 in_36 config_11)(read-one_7 init-c_12 in_36(disable-wrapping config_11)))))"
 "(read-unwrapped-sequence17.1"
@@ -52521,14 +52527,14 @@ static const char *startup_source =
 " config35_0)))))"
 "(define-values"
 "(read-vector-or-graph)"
-"(lambda(read-one_3 dispatch-c_1 init-c_13 in_37 config_43)"
+"(lambda(read-one_3 dispatch-c_1 init-c_13 in_37 config_44)"
 "(begin"
-"(let-values(((accum-str_3)(accum-string-init! config_43)))"
+"(let-values(((accum-str_3)(accum-string-init! config_44)))"
 "(let-values((()(begin(accum-string-add! accum-str_3 init-c_13)(values))))"
 "(let-values(((init-v_2)(digit->number init-c_13)))"
 "(let-values(((v_30)"
 "(let-values(((in1_5) in_37)"
-"((config2_4) config_43)"
+"((config2_4) config_44)"
 "((accum-str3_0) accum-str_3)"
 "((temp4_3) 10)"
 "((temp5_6) +inf.0)"
@@ -52543,38 +52549,38 @@ static const char *startup_source =
 "(format"
 "                                   \"~a~a~a\""
 " dispatch-c_1"
-"(let-values(((accum-str8_0) accum-str_3)((config9_0) config_43))"
+"(let-values(((accum-str8_0) accum-str_3)((config9_0) config_44))"
 "(accum-string-get!6.1 0 accum-str8_0 config9_0))"
 " c_52)))))"
-"(let-values(((c_88)"
-"(let-values(((in_38) in_37)((source_16)(read-config-source config_43)))"
+"(let-values(((c_87)"
+"(let-values(((in_38) in_37)((source_16)(read-config-source config_44)))"
 "(read-char-or-special in_38 special1.1 source_16))))"
-"(let-values(((ec_6)(effective-char c_88 config_43)))"
+"(let-values(((ec_6)(effective-char c_87 config_44)))"
 "(let-values(((tmp_48) ec_6))"
 "(if(equal? tmp_48 '#\\()"
 "(let-values()"
 "(begin"
-"(accum-string-abandon! accum-str_3 config_43)"
+"(accum-string-abandon! accum-str_3 config_44)"
 "(let-values(((read-one10_0) read-one_3)"
-"((c11_0) c_88)"
+"((c11_0) c_87)"
 "((temp12_4) '#\\()"
 "((temp13_2) '#\\))"
 "((in14_0) in_37)"
-"((config15_0) config_43)"
+"((config15_0) config_44)"
 "((v16_0) v_30))"
 "(read-vector11.1 v16_0 'any read-one10_0 c11_0 temp12_4 temp13_2 in14_0 config15_0))))"
 "(if(equal? tmp_48 '#\\[)"
 "(let-values()"
 "(begin"
-"(accum-string-abandon! accum-str_3 config_43)"
-"(if(check-parameter 1/read-square-bracket-as-paren config_43)"
+"(accum-string-abandon! accum-str_3 config_44)"
+"(if(check-parameter 1/read-square-bracket-as-paren config_44)"
 "(let-values()"
 "(let-values(((read-one17_0) read-one_3)"
-"((c18_1) c_88)"
+"((c18_1) c_87)"
 "((temp19_3) '#\\[)"
 "((temp20_3) '#\\])"
 "((in21_0) in_37)"
-"((config22_0) config_43)"
+"((config22_0) config_44)"
 "((v23_0) v_30))"
 "(read-vector11.1"
 " v23_0"
@@ -52587,21 +52593,21 @@ static const char *startup_source =
 " config22_0)))"
 "(let-values()"
 "(let-values(((in24_0) in_37)"
-"((config25_0) config_43)"
-"((temp26_4)(get-accum_0(get-accum_0 c_88))))"
+"((config25_0) config_44)"
+"((temp26_4)(get-accum_0(get-accum_0 c_87))))"
 "(bad-syntax-error20.1 '#\\x in24_0 config25_0 temp26_4))))))"
 "(if(equal? tmp_48 '#\\{)"
 "(let-values()"
 "(begin"
-"(accum-string-abandon! accum-str_3 config_43)"
-"(if(check-parameter 1/read-curly-brace-as-paren config_43)"
+"(accum-string-abandon! accum-str_3 config_44)"
+"(if(check-parameter 1/read-curly-brace-as-paren config_44)"
 "(let-values()"
 "(let-values(((read-one27_0) read-one_3)"
-"((c28_0) c_88)"
+"((c28_0) c_87)"
 "((temp29_6) '#\\{)"
 "((temp30_6) '#\\})"
 "((in31_1) in_37)"
-"((config32_0) config_43)"
+"((config32_0) config_44)"
 "((v33_0) v_30))"
 "(read-vector11.1"
 " v33_0"
@@ -52614,25 +52620,25 @@ static const char *startup_source =
 " config32_0)))"
 "(let-values()"
 "(let-values(((in34_1) in_37)"
-"((config35_1) config_43)"
-"((temp36_6)(get-accum_0(get-accum_0 c_88))))"
+"((config35_1) config_44)"
+"((temp36_6)(get-accum_0(get-accum_0 c_87))))"
 "(bad-syntax-error20.1 '#\\x in34_1 config35_1 temp36_6))))))"
 "(let-values()"
-"(let-values(((tmp_45) c_88))"
+"(let-values(((tmp_45) c_87))"
 "(if(if(equal? tmp_45 '#\\=) #t(equal? tmp_45 '#\\#))"
 "(let-values()"
 "(begin"
-"(if(let-values(((or-part_309)(read-config-for-syntax? config_43)))"
+"(if(let-values(((or-part_309)(read-config-for-syntax? config_44)))"
 "(if or-part_309"
 " or-part_309"
-"(not(check-parameter 1/read-accept-graph config_43))))"
+"(not(check-parameter 1/read-accept-graph config_44))))"
 "(let-values()"
 "(let-values(((in37_1) in_37)"
-"((config38_0) config_43)"
+"((config38_0) config_44)"
 "                                                         ((temp39_4) \"`#...~a` forms not ~a\")"
-"((c40_0) c_88)"
+"((c40_0) c_87)"
 "((temp41_3)"
-"(if(read-config-for-syntax? config_43)"
+"(if(read-config-for-syntax? config_44)"
 "                                                            \"enabled\""
 "                                                            \"allowed in `read-syntax` mode\")))"
 "(reader-error12.1"
@@ -52649,14 +52655,14 @@ static const char *startup_source =
 "(void)"
 "(let-values()"
 "(let-values(((in42_0) in_37)"
-"((config43_0) config_43)"
+"((config43_0) config_44)"
 "                                                         ((temp44_2) \"graph ID too long in `~a~a~a`\")"
 "((dispatch-c45_0) dispatch-c_1)"
 "((temp46_1)"
 "(let-values(((accum-str48_0) accum-str_3)"
-"((config49_1) config_43))"
+"((config49_1) config_44))"
 "(accum-string-get!6.1 0 accum-str48_0 config49_1)))"
-"((c47_0) c_88))"
+"((c47_0) c_87))"
 "(reader-error12.1"
 " unsafe-undefined"
 " '#\\x"
@@ -52666,29 +52672,29 @@ static const char *startup_source =
 " config43_0"
 " temp44_2"
 "(list dispatch-c45_0 temp46_1 c47_0)))))"
-"(let-values(((tmp_49) c_88))"
+"(let-values(((tmp_49) c_87))"
 "(if(equal? tmp_49 '#\\=)"
 "(let-values()"
 "(let-values(((ph_1)(make-placeholder 'placeholder)))"
-"(let-values(((ht_145)(get-graph-hash config_43)))"
+"(let-values(((ht_145)(get-graph-hash config_44)))"
 "(let-values((()"
 "(begin"
 "(if(hash-ref ht_145 v_30 #f)"
 "(let-values()"
 "(let-values(((in50_0) in_37)"
-"((config51_0) config_43)"
+"((config51_0) config_44)"
 "                                                                                   ((temp52_2) \"multiple `~a~a~a` tags\")"
 "((dispatch-c53_0) dispatch-c_1)"
 "((temp54_1)"
 "(let-values(((accum-str56_0)"
 " accum-str_3)"
 "((config57_0)"
-" config_43))"
+" config_44))"
 "(accum-string-get!6.1"
 " 0"
 " accum-str56_0"
 " config57_0)))"
-"((c55_0) c_88))"
+"((c55_0) c_87))"
 "(reader-error12.1"
 " unsafe-undefined"
 " '#\\x"
@@ -52702,24 +52708,24 @@ static const char *startup_source =
 "(values))))"
 "(let-values((()(begin(hash-set! ht_145 v_30 ph_1)(values))))"
 "(let-values(((result-v_0)"
-"(read-one_3 #f in_37(next-readtable config_43))))"
+"(read-one_3 #f in_37(next-readtable config_44))))"
 "(begin"
 "(if(eof-object? result-v_0)"
 "(let-values()"
 "(let-values(((in58_0) in_37)"
-"((config59_0) config_43)"
+"((config59_0) config_44)"
 "((result-v60_0) result-v_0)"
 "((temp61_4)"
 "                                                                            \"expected an element for graph after `~a~a~a`, found end-of-file\")"
 "((dispatch-c62_0) dispatch-c_1)"
 "((temp63_3)"
 "(let-values(((accum-str65_0) accum-str_3)"
-"((config66_0) config_43))"
+"((config66_0) config_44))"
 "(accum-string-get!6.1"
 " 0"
 " accum-str65_0"
 " config66_0)))"
-"((c64_0) c_88))"
+"((c64_0) c_87))"
 "(reader-error12.1"
 " unsafe-undefined"
 " result-v60_0"
@@ -52730,7 +52736,7 @@ static const char *startup_source =
 " temp61_4"
 "(list dispatch-c62_0 temp63_3 c64_0))))"
 "(void))"
-"(accum-string-abandon! accum-str_3 config_43)"
+"(accum-string-abandon! accum-str_3 config_44)"
 "(placeholder-set! ph_1 result-v_0)"
 " ph_1)))))))"
 "(if(equal? tmp_49 '#\\#)"
@@ -52738,21 +52744,21 @@ static const char *startup_source =
 "(begin0"
 "(hash-ref"
 "(let-values(((or-part_210)"
-"(read-config-state-graph(read-config-st config_43))))"
+"(read-config-state-graph(read-config-st config_44))))"
 "(if or-part_210 or-part_210 '#hash()))"
 " v_30"
 "(lambda()"
 "(let-values(((in67_0) in_37)"
-"((config68_0) config_43)"
+"((config68_0) config_44)"
 "                                                                  ((temp69_1) \"no preceding `~a~a=` for `~a~a~a`\")"
 "((dispatch-c70_0) dispatch-c_1)"
 "((v71_0) v_30)"
 "((dispatch-c72_0) dispatch-c_1)"
 "((temp73_1)"
 "(let-values(((accum-str75_0) accum-str_3)"
-"((config76_0) config_43))"
+"((config76_0) config_44))"
 "(accum-string-get!6.1 0 accum-str75_0 config76_0)))"
-"((c74_0) c_88))"
+"((c74_0) c_87))"
 "(reader-error12.1"
 " unsafe-undefined"
 " '#\\x"
@@ -52762,14 +52768,14 @@ static const char *startup_source =
 " config68_0"
 " temp69_1"
 "(list dispatch-c70_0 v71_0 dispatch-c72_0 temp73_1 c74_0)))))"
-"(accum-string-abandon! accum-str_3 config_43)))"
+"(accum-string-abandon! accum-str_3 config_44)))"
 "(let-values()(void)))))))"
 "(let-values()"
 "(let-values(((in77_0) in_37)"
-"((config78_0) config_43)"
-"((c79_0) c_88)"
+"((config78_0) config_44)"
+"((c79_0) c_87)"
 "                                                   ((temp80_0) \"bad syntax `~a`\")"
-"((temp81_1)(get-accum_0 c_88)))"
+"((temp81_1)(get-accum_0 c_87)))"
 "(reader-error12.1"
 " unsafe-undefined"
 " c79_0"
@@ -52781,9 +52787,9 @@ static const char *startup_source =
 "(list temp81_1))))))))))))))))))))))"
 "(define-values"
 "(get-graph-hash)"
-"(lambda(config_44)"
+"(lambda(config_45)"
 "(begin"
-"(let-values(((st_3)(read-config-st config_44)))"
+"(let-values(((st_3)(read-config-st config_45)))"
 "(let-values(((or-part_360)(read-config-state-graph st_3)))"
 "(if or-part_360"
 " or-part_360"
@@ -52796,9 +52802,9 @@ static const char *startup_source =
 "((read-config-coerce-key config_8) for-syntax?_7 key_85)))))"
 "(define-values"
 "(read-hash)"
-"(lambda(read-one_3 dispatch-c_1 init-c_13 in_37 config_43)"
+"(lambda(read-one_3 dispatch-c_1 init-c_13 in_37 config_44)"
 "(begin"
-"(let-values(((accum-str_3)(accum-string-init! config_43)))"
+"(let-values(((accum-str_3)(accum-string-init! config_44)))"
 "(let-values((()(begin(accum-string-add! accum-str_3 dispatch-c_1)(values))))"
 "(let-values((()(begin(accum-string-add! accum-str_3 init-c_13)(values))))"
 "(let-values(((get-next!_0)"
@@ -52806,7 +52812,7 @@ static const char *startup_source =
 "(begin"
 " 'get-next!"
 "(let-values(((c_46)"
-"(let-values(((in_39) in_37)((source_23)(read-config-source config_43)))"
+"(let-values(((in_39) in_37)((source_23)(read-config-source config_44)))"
 "(read-char-or-special in_39 special1.1 source_23))))"
 "(begin"
 "(if(let-values(((or-part_6)(eqv? c_46 expect-c_0)))"
@@ -52814,12 +52820,12 @@ static const char *startup_source =
 "(void)"
 "(let-values()"
 "(let-values(((in1_6) in_37)"
-"((config2_5) config_43)"
+"((config2_5) config_44)"
 "((c3_4) c_46)"
 "                                                   ((temp4_4) \"expected `~a` after `~a`\")"
 "((expect-c5_0) expect-c_0)"
 "((temp6_3)"
-"(let-values(((accum-str7_0) accum-str_3)((config8_1) config_43))"
+"(let-values(((accum-str7_0) accum-str_3)((config8_1) config_44))"
 "(accum-string-get!6.1 0 accum-str7_0 config8_1))))"
 "(reader-error12.1"
 " unsafe-undefined"
@@ -52835,19 +52841,19 @@ static const char *startup_source =
 "(let-values((()(begin(get-next!_0 '#\\s '#\\S)(values))))"
 "(let-values((()(begin(get-next!_0 '#\\h '#\\H)(values))))"
 "(let-values(((content_11 opener_4 mode_20)"
-"((letrec-values(((loop_115)"
+"((letrec-values(((loop_114)"
 "(lambda(mode_21)"
 "(begin"
 " 'loop"
 "(let-values(((c_50)"
 "(let-values(((in_40) in_37)"
 "((source_24)"
-"(read-config-source config_43)))"
+"(read-config-source config_44)))"
 "(read-char-or-special"
 " in_40"
 " special1.1"
 " source_24))))"
-"(let-values(((ec_7)(effective-char c_50 config_43)))"
+"(let-values(((ec_7)(effective-char c_50 config_44)))"
 "(let-values(((tmp_50) ec_7))"
 "(if(equal? tmp_50 '#\\()"
 "(let-values()"
@@ -52868,8 +52874,8 @@ static const char *startup_source =
 "((temp11_4) '#\\()"
 "((temp12_5) '#\\))"
 "((in13_0) in_37)"
-"((config14_0) config_43)"
-"((config15_1) config_43)"
+"((config14_0) config_44)"
+"((config15_1) config_44)"
 "((temp16_5) #f))"
 "(read-unwrapped-sequence17.1"
 " temp16_5"
@@ -52889,7 +52895,7 @@ static const char *startup_source =
 "(let-values()"
 "(if(check-parameter"
 " 1/read-square-bracket-as-paren"
-" config_43)"
+" config_44)"
 "(let-values()"
 "(let-values(((open-end-line_2"
 " open-end-col_2"
@@ -52908,8 +52914,8 @@ static const char *startup_source =
 "((temp19_4) '#\\[)"
 "((temp20_4) '#\\])"
 "((in21_1) in_37)"
-"((config22_1) config_43)"
-"((config23_2) config_43)"
+"((config22_1) config_44)"
+"((config23_2) config_44)"
 "((temp24_8) #f))"
 "(read-unwrapped-sequence17.1"
 " temp24_8"
@@ -52927,7 +52933,7 @@ static const char *startup_source =
 " mode_21))))"
 "(let-values()"
 "(let-values(((in25_0) in_37)"
-"((config26_0) config_43)"
+"((config26_0) config_44)"
 "                                                                                     ((temp27_6) \"illegal use of `~a`\")"
 "((c28_1) c_50))"
 "(reader-error12.1"
@@ -52943,7 +52949,7 @@ static const char *startup_source =
 "(let-values()"
 "(if(check-parameter"
 " 1/read-curly-brace-as-paren"
-" config_43)"
+" config_44)"
 "(let-values()"
 "(let-values(((open-end-line_3"
 " open-end-col_3"
@@ -52962,8 +52968,8 @@ static const char *startup_source =
 "((temp31_3) '#\\{)"
 "((temp32_2) '#\\})"
 "((in33_2) in_37)"
-"((config34_1) config_43)"
-"((config35_1) config_43)"
+"((config34_1) config_44)"
+"((config35_1) config_44)"
 "((temp36_6) #f))"
 "(read-unwrapped-sequence17.1"
 " temp36_6"
@@ -52981,7 +52987,7 @@ static const char *startup_source =
 " mode_21))))"
 "(let-values()"
 "(let-values(((in37_2) in_37)"
-"((config38_1) config_43)"
+"((config38_1) config_44)"
 "((temp39_5)"
 "                                                                                        \"illegal use of `~a`\")"
 "((c40_1) c_50))"
@@ -53001,7 +53007,7 @@ static const char *startup_source =
 "(begin"
 "(accum-string-add! accum-str_3 c_50)"
 "(get-next!_0 '#\\q '#\\Q)"
-"(loop_115 'eq)))"
+"(loop_114 'eq)))"
 "(if(if(equal? tmp_50 '#\\v)"
 " #t"
 "(equal? tmp_50 '#\\V))"
@@ -53009,16 +53015,16 @@ static const char *startup_source =
 "(begin"
 "(accum-string-add! accum-str_3 c_50)"
 "(if(eq? mode_21 'eq)"
-"(loop_115 'eqv)"
+"(loop_114 'eqv)"
 "(let-values(((in41_0) in_37)"
-"((config42_0) config_43)"
+"((config42_0) config_44)"
 "((temp43_4)"
 "                                                                                            \"bad syntax `~a`\")"
 "((temp44_3)"
 "(let-values(((accum-str45_0)"
 " accum-str_3)"
 "((config46_0)"
-" config_43))"
+" config_44))"
 "(accum-string-get!6.1"
 " 0"
 " accum-str45_0"
@@ -53039,14 +53045,14 @@ static const char *startup_source =
 "(accum-string-add! accum-str_3 c_50))"
 "(void))"
 "(let-values(((in47_1) in_37)"
-"((config48_1) config_43)"
+"((config48_1) config_44)"
 "((c49_0) c_50)"
 "                                                                                         ((temp50_2) \"bad syntax `~a`\")"
 "((temp51_1)"
 "(let-values(((accum-str52_0)"
 " accum-str_3)"
 "((config53_0)"
-" config_43))"
+" config_44))"
 "(accum-string-get!6.1"
 " 0"
 " accum-str52_0"
@@ -53060,9 +53066,9 @@ static const char *startup_source =
 " config48_1"
 " temp50_2"
 "(list temp51_1)))))))))))))))))"
-" loop_115)"
+" loop_114)"
 " 'equal)))"
-"(let-values(((graph?_0)(if(read-config-state-graph(read-config-st config_43)) #t #f)))"
+"(let-values(((graph?_0)(if(read-config-state-graph(read-config-st config_44)) #t #f)))"
 "(wrap"
 "(let-values(((tmp_51) mode_20))"
 "(if(equal? tmp_51 'equal)"
@@ -53078,38 +53084,38 @@ static const char *startup_source =
 "(make-immutable-hasheqv content_11)))"
 "(let-values()(void))))))"
 " in_37"
-" config_43"
+" config_44"
 " opener_4)))))))))))))"
 "(define-values"
 "(make-read-one-key+value)"
 "(lambda(read-one_8 overall-opener-c_0 overall-closer-ec_0 prefix-end-pos_0)"
 "(begin"
-"(lambda(init-c_14 in_41 config_45)"
-"(let-values(((c_89)(read-char/skip-whitespace-and-comments init-c_14 read-one_8 in_41 config_45)))"
-"(let-values(((open-line_0 open-col_0 open-pos_0)(port-next-location* in_41 c_89)))"
-"(let-values(((ec_8)(effective-char c_89 config_45)))"
-"(let-values(((elem-config_1)(next-readtable config_45)))"
+"(lambda(init-c_14 in_41 config_46)"
+"(let-values(((c_88)(read-char/skip-whitespace-and-comments init-c_14 read-one_8 in_41 config_46)))"
+"(let-values(((open-line_0 open-col_0 open-pos_0)(port-next-location* in_41 c_88)))"
+"(let-values(((ec_8)(effective-char c_88 config_46)))"
+"(let-values(((elem-config_1)(next-readtable config_46)))"
 "(let-values(((closer_4)"
 "(let-values(((tmp_52) ec_8))"
 "(if(equal? tmp_52 '#\\()"
 "(let-values() '#\\))"
 "(if(equal? tmp_52 '#\\[)"
 "(let-values()"
-"(if(check-parameter 1/read-square-bracket-as-paren config_45) '#\\] #f))"
+"(if(check-parameter 1/read-square-bracket-as-paren config_46) '#\\] #f))"
 "(if(equal? tmp_52 '#\\{)"
 "(let-values()"
-"(if(check-parameter 1/read-curly-brace-as-paren config_45) '#\\} #f))"
+"(if(check-parameter 1/read-curly-brace-as-paren config_46) '#\\} #f))"
 "(let-values() #f)))))))"
 "(if(not closer_4)"
 "(let-values()"
-"(if(eof-object? c_89)"
+"(if(eof-object? c_88)"
 "(let-values()"
 "(let-values(((in54_0) in_41)"
-"((config55_0) config_45)"
-"((c56_0) c_89)"
+"((config55_0) config_46)"
+"((c56_0) c_88)"
 "((prefix-end-pos57_0) prefix-end-pos_0)"
 "                                       ((temp58_2) \"expected ~a to close `~a`\")"
-"((temp59_4)(closer-name overall-closer-ec_0 config_45))"
+"((temp59_4)(closer-name overall-closer-ec_0 config_46))"
 "((overall-opener-c60_0) overall-opener-c_0))"
 "(reader-error12.1"
 " unsafe-undefined"
@@ -53120,12 +53126,12 @@ static const char *startup_source =
 " config55_0"
 " temp58_2"
 "(list temp59_4 overall-opener-c60_0))))"
-"(if(char-closer? ec_8 config_45)"
+"(if(char-closer? ec_8 config_46)"
 "(let-values()"
 "(let-values(((in61_0) in_41)"
-"((temp62_2)(reading-at config_45 open-line_0 open-col_0 open-pos_0))"
+"((temp62_2)(reading-at config_46 open-line_0 open-col_0 open-pos_0))"
 "                                         ((temp63_4) \"~a\")"
-"((temp64_4)(indentation-unexpected-closer-message ec_8 c_89 config_45)))"
+"((temp64_4)(indentation-unexpected-closer-message ec_8 c_88 config_46)))"
 "(reader-error12.1"
 " unsafe-undefined"
 " '#\\x"
@@ -53136,7 +53142,7 @@ static const char *startup_source =
 " temp63_4"
 "(list temp64_4))))"
 "(let-values()"
-"(let-values(((v_245)(read-one_8 c_89 in_41(keep-comment elem-config_1))))"
+"(let-values(((v_245)(read-one_8 c_88 in_41(keep-comment elem-config_1))))"
 "(if(1/special-comment? v_245)"
 "(let-values()"
 "((make-read-one-key+value"
@@ -53146,12 +53152,12 @@ static const char *startup_source =
 " prefix-end-pos_0)"
 " #f"
 " in_41"
-" config_45))"
+" config_46))"
 "(let-values()"
 "(let-values(((in65_0) in_41)"
-"((temp66_3)(reading-at config_45 open-line_0 open-col_0 open-pos_0))"
+"((temp66_3)(reading-at config_46 open-line_0 open-col_0 open-pos_0))"
 "                                               ((temp67_4) \"expected ~a to start a hash pair\")"
-"((temp68_4)(all-openers-str config_45)))"
+"((temp68_4)(all-openers-str config_46)))"
 "(reader-error12.1"
 " unsafe-undefined"
 " '#\\x"
@@ -53163,33 +53169,33 @@ static const char *startup_source =
 "(list temp68_4))))))))))"
 "(let-values()"
 "(let-values(((k_41)(read-one_8 #f in_41(disable-wrapping elem-config_1))))"
-"(let-values(((dot-c_0)(read-char/skip-whitespace-and-comments #f read-one_8 in_41 config_45)))"
+"(let-values(((dot-c_0)(read-char/skip-whitespace-and-comments #f read-one_8 in_41 config_46)))"
 "(let-values(((dot-line_1 dot-col_1 dot-pos_4)(port-next-location* in_41 dot-c_0)))"
-"(let-values(((dot-ec_0)(effective-char dot-c_0 config_45)))"
+"(let-values(((dot-ec_0)(effective-char dot-c_0 config_46)))"
 "(let-values((()"
 "(begin"
 "(if(if(eqv? dot-ec_0 '#\\.)"
 "(char-delimiter?"
 "(let-values(((in_42) in_41)"
 "((skip-count_9) 0)"
-"((source_25)(read-config-source config_45)))"
-"(let-values(((c_90)"
+"((source_25)(read-config-source config_46)))"
+"(let-values(((c_89)"
 "(peek-char-or-special"
 " in_42"
 " skip-count_9"
 " 'special"
 " source_25)))"
-"(if(eq? c_90 'special)(special1.1 'special) c_90)))"
-" config_45)"
+"(if(eq? c_89 'special)(special1.1 'special) c_89)))"
+" config_46)"
 " #f)"
 "(void)"
 "(let-values()"
 "(let-values(((in69_1) in_41)"
 "((temp70_2)"
-"(reading-at config_45 dot-line_1 dot-col_1 dot-pos_4))"
+"(reading-at config_46 dot-line_1 dot-col_1 dot-pos_4))"
 "((dot-c71_0) dot-c_0)"
 "                                                               ((temp72_2) \"expected ~a and value for hash\")"
-"((temp73_2)(dot-name config_45)))"
+"((temp73_2)(dot-name config_46)))"
 "(reader-error12.1"
 " unsafe-undefined"
 " dot-c71_0"
@@ -53202,10 +53208,10 @@ static const char *startup_source =
 "(values))))"
 "(let-values(((v_246)(read-one_8 #f in_41 elem-config_1)))"
 "(let-values(((closer-c_0)"
-"(read-char/skip-whitespace-and-comments #f read-one_8 in_41 config_45)))"
+"(read-char/skip-whitespace-and-comments #f read-one_8 in_41 config_46)))"
 "(let-values(((closer-line_0 closer-col_0 closer-pos_0)"
 "(port-next-location* in_41 closer-c_0)))"
-"(let-values(((closer-ec_0)(effective-char closer-c_0 config_45)))"
+"(let-values(((closer-ec_0)(effective-char closer-c_0 config_46)))"
 "(begin"
 "(if(eqv? closer-ec_0 closer_4)"
 "(void)"
@@ -53213,13 +53219,13 @@ static const char *startup_source =
 "(let-values(((in74_0) in_41)"
 "((temp75_2)"
 "(reading-at"
-" config_45"
+" config_46"
 " closer-line_0"
 " closer-col_0"
 " closer-pos_0))"
 "((closer-c76_0) closer-c_0)"
 "                                                           ((temp77_1) \"expected ~a after value within a hash\")"
-"((temp78_3)(closer-name closer_4 config_45)))"
+"((temp78_3)(closer-name closer_4 config_46)))"
 "(reader-error12.1"
 " unsafe-undefined"
 " closer-c76_0"
@@ -53236,12 +53242,12 @@ static const char *startup_source =
 "(begin"
 " 'read-string5"
 "(let-values(((in_37) in3_0))"
-"(let-values(((config_43) config4_0))"
+"(let-values(((config_44) config4_0))"
 "(let-values(((mode_11) mode1_1))"
 "(let-values()"
-"(let-values(((source_26)(read-config-source config_43)))"
+"(let-values(((source_26)(read-config-source config_44)))"
 "(let-values(((open-end-line_4 open-end-col_4 open-end-pos_4)(port-next-location in_37)))"
-"(let-values(((accum-str_4)(accum-string-init! config_43)))"
+"(let-values(((accum-str_4)(accum-string-init! config_44)))"
 "(let-values(((bad-end_0)"
 "(lambda(c_46)"
 "(begin"
@@ -53249,7 +53255,7 @@ static const char *startup_source =
 "(if(eof-object? c_46)"
 "(let-values()"
 "(let-values(((in8_0) in_37)"
-"((config9_1) config_43)"
+"((config9_1) config_44)"
 "((c10_2) c_46)"
 "((open-end-pos11_0) open-end-pos_4)"
 "                                                       ((temp12_6) \"expected a closing `\\\"`\"))"
@@ -53264,7 +53270,7 @@ static const char *startup_source =
 "(list))))"
 "(let-values()"
 "(let-values(((in13_1) in_37)"
-"((config14_1) config_43)"
+"((config14_1) config_44)"
 "((c15_1) c_46)"
 "                                                       ((temp16_6) \"found non-character while reading a ~a\")"
 "((mode17_0) mode_11))"
@@ -53279,7 +53285,7 @@ static const char *startup_source =
 "(list mode17_0)))))))))"
 "(let-values((()"
 "(begin"
-"((letrec-values(((loop_116)"
+"((letrec-values(((loop_115)"
 "(lambda()"
 "(begin"
 " 'loop"
@@ -53317,7 +53323,7 @@ static const char *startup_source =
 "(let-values(((in18_1)"
 " in_37)"
 "((config19_2)"
-" config_43)"
+" config_44)"
 "((temp20_5)"
 "                                                                                                          \"unknown escape sequence `~a~a` in ~a\")"
 "((escaping-c21_0)"
@@ -53525,24 +53531,24 @@ static const char *startup_source =
 "(if(unsafe-fx< index_3 12)"
 "(let-values()"
 "(let-values(((maybe-newline-c_0)"
-"(let-values(((in_44)"
+"(let-values(((in_28)"
 " in_37)"
 "((skip-count_10)"
 " 0)"
 "((source_29)"
 " source_26))"
-"(let-values(((c_91)"
+"(let-values(((c_90)"
 "(peek-char-or-special"
-" in_44"
+" in_28"
 " skip-count_10"
 " 'special"
 " source_29)))"
 "(if(eq?"
-" c_91"
+" c_90"
 " 'special)"
 "(special1.1"
 " 'special)"
-" c_91)))))"
+" c_90)))))"
 "(begin"
 "(if(eqv?"
 " maybe-newline-c_0"
@@ -53570,7 +53576,7 @@ static const char *startup_source =
 "(let-values(((in24_1)"
 " in_37)"
 "((config25_1)"
-" config_43)"
+" config_44)"
 "((accum-str26_0)"
 " accum-str_4)"
 "((temp27_7)"
@@ -53596,7 +53602,7 @@ static const char *startup_source =
 "(let-values(((in31_2)"
 " in_37)"
 "((config32_1)"
-" config_43)"
+" config_44)"
 "((temp33_3)"
 "                                                                                                                        \"escape sequence `~a~a` is out of range in ~a\")"
 "((escaping-c34_0)"
@@ -53605,7 +53611,7 @@ static const char *startup_source =
 "(let-values(((accum-str37_0)"
 " accum-str_4)"
 "((config38_2)"
-" config_43)"
+" config_44)"
 "((pos39_0)"
 " pos_98))"
 "(accum-string-get!6.1"
@@ -53642,7 +53648,7 @@ static const char *startup_source =
 "(let-values(((in40_1)"
 " in_37)"
 "((config41_1)"
-" config_43)"
+" config_44)"
 "((accum-str42_0)"
 " accum-str_4)"
 "((temp43_5)"
@@ -53663,7 +53669,7 @@ static const char *startup_source =
 "(let-values()"
 "(no-hex-digits"
 " in_37"
-" config_43"
+" config_44"
 " v_247"
 " escaping-c_0"
 " escaped-c_0)))"
@@ -53692,7 +53698,7 @@ static const char *startup_source =
 "(let-values(((in45_0)"
 " in_37)"
 "((config46_1)"
-" config_43)"
+" config_44)"
 "((accum-str47_0)"
 " accum-str_4)"
 "((temp48_2)"
@@ -53714,7 +53720,7 @@ static const char *startup_source =
 "(let-values()"
 "(no-hex-digits"
 " in_37"
-" config_43"
+" config_44"
 " v_248"
 " escaping-c_0"
 " escaped-c_0)))"
@@ -53742,12 +53748,12 @@ static const char *startup_source =
 "(begin"
 " 'next!"
 "(let-values(((next-c_1)"
-"(let-values(((in_45)"
+"(let-values(((in_44)"
 " in_37)"
 "((source_30)"
 " source_26))"
 "(read-char-or-special"
-" in_45"
+" in_44"
 " special1.1"
 " source_30))))"
 "(begin"
@@ -53776,7 +53782,7 @@ static const char *startup_source =
 "(let-values(((in50_1)"
 " in_37)"
 "((config51_1)"
-" config_43)"
+" config_44)"
 "((accum-str52_1)"
 " accum-str_4)"
 "((temp53_4)"
@@ -53830,7 +53836,7 @@ static const char *startup_source =
 "(let-values(((in55_2)"
 " in_37)"
 "((config56_1)"
-" config_43)"
+" config_44)"
 "((temp57_2)"
 "                                                                                                                                      \"escape sequence `~au~a` is out of range in string\")"
 "((escaping-c58_0)"
@@ -53839,7 +53845,7 @@ static const char *startup_source =
 "(let-values(((accum-str60_0)"
 " accum-str_4)"
 "((config61_0)"
-" config_43)"
+" config_44)"
 "((pos62_0)"
 " pos_119))"
 "(accum-string-get!6.1"
@@ -53870,7 +53876,7 @@ static const char *startup_source =
 "(let-values(((in63_0)"
 " in_37)"
 "((config64_0)"
-" config_43)"
+" config_44)"
 "((v265_0)"
 " v2_8)"
 "((temp66_4)"
@@ -53881,7 +53887,7 @@ static const char *startup_source =
 "(let-values(((accum-str69_0)"
 " accum-str_4)"
 "((config70_1)"
-" config_43)"
+" config_44)"
 "((pos71_0)"
 " pos_119))"
 "(accum-string-get!6.1"
@@ -53916,7 +53922,7 @@ static const char *startup_source =
 "(let-values(((in72_0)"
 " in_37)"
 "((config73_0)"
-" config_43)"
+" config_44)"
 "((accum-str74_0)"
 " accum-str_4)"
 "((temp75_3)"
@@ -53938,7 +53944,7 @@ static const char *startup_source =
 "(let-values()"
 "(no-hex-digits"
 " in_37"
-" config_43"
+" config_44"
 " v_249"
 " escaping-c_0"
 " escaped-c_0)))"
@@ -53968,7 +53974,7 @@ static const char *startup_source =
 "(let-values(((in77_1)"
 " in_37)"
 "((config78_1)"
-" config_43)"
+" config_44)"
 "((temp79_2)"
 "                                                                                                                        \"escape sequence `~aU~a` is out of range in string\")"
 "((escaping-c80_0)"
@@ -53977,7 +53983,7 @@ static const char *startup_source =
 "(let-values(((accum-str82_0)"
 " accum-str_4)"
 "((config83_0)"
-" config_43)"
+" config_44)"
 "((pos84_0)"
 " pos_20))"
 "(accum-string-get!6.1"
@@ -53995,7 +54001,7 @@ static const char *startup_source =
 "(list"
 " escaping-c80_0"
 " temp81_2)))))))))))))))))"
-"(loop_116)))))))"
+"(loop_115)))))))"
 "                                                                  (if (char=? '#\\\" c_17)"
 "(let-values() null)"
 "(let-values()"
@@ -54006,7 +54012,7 @@ static const char *startup_source =
 "(void)"
 "(let-values()"
 "(let-values(((in85_0) in_37)"
-"((config86_0) config_43)"
+"((config86_0) config_44)"
 "((temp87_1)"
 "                                                                                              \"character `~a` is out of range in byte string\")"
 "((c88_0) c_17))"
@@ -54021,23 +54027,23 @@ static const char *startup_source =
 "(list c88_0))))))"
 "(void))"
 "(accum-string-add! accum-str_4 c_17)"
-"(loop_116)))))))))))"
-" loop_116))"
+"(loop_115)))))))))))"
+" loop_115))"
 "(values))))"
 "(let-values(((str_30)"
 "(if(eq? mode_11 '|byte string|)"
-"(let-values(((accum-str89_0) accum-str_4)((config90_0) config_43))"
+"(let-values(((accum-str89_0) accum-str_4)((config90_0) config_44))"
 "(accum-string-get-bytes!13.1 0 accum-str89_0 config90_0))"
-"(let-values(((accum-str91_0) accum-str_4)((config92_0) config_43))"
+"(let-values(((accum-str91_0) accum-str_4)((config92_0) config_44))"
 "(accum-string-get!6.1 0 accum-str91_0 config92_0)))))"
-"(wrap str_30 in_37 config_43 str_30))))))))))))))"
+"(wrap str_30 in_37 config_44 str_30))))))))))))))"
 "(define-values"
 "(read-here-string)"
-"(lambda(in_46 config_46)"
+"(lambda(in_45 config_47)"
 "(begin"
-"(let-values(((source_31)(read-config-source config_46)))"
-"(let-values(((open-end-line_5 open-end-col_5 open-end-pos_5)(port-next-location in_46)))"
-"(let-values(((accum-str_5)(accum-string-init! config_46)))"
+"(let-values(((source_31)(read-config-source config_47)))"
+"(let-values(((open-end-line_5 open-end-col_5 open-end-pos_5)(port-next-location in_45)))"
+"(let-values(((accum-str_5)(accum-string-init! config_47)))"
 "(let-values(((full-terminator_0)"
 "(cons"
 " '#\\newline"
@@ -54045,14 +54051,14 @@ static const char *startup_source =
 "(lambda()"
 "(begin"
 " 'loop"
-"(let-values(((c_92)"
-"(let-values(((in_47) in_46)((source_32) source_31))"
-"(read-char-or-special in_47 special1.1 source_32))))"
-"(if(eof-object? c_92)"
+"(let-values(((c_91)"
+"(let-values(((in_46) in_45)((source_32) source_31))"
+"(read-char-or-special in_46 special1.1 source_32))))"
+"(if(eof-object? c_91)"
 "(let-values()"
-"(let-values(((in93_0) in_46)"
-"((config94_0) config_46)"
-"((c95_0) c_92)"
+"(let-values(((in93_0) in_45)"
+"((config94_0) config_47)"
+"((c95_0) c_91)"
 "((temp96_3)"
 "                                                                     \"found end-of-file after `#<<` and before a newline\"))"
 "(reader-error12.1"
@@ -54064,11 +54070,11 @@ static const char *startup_source =
 " config94_0"
 " temp96_3"
 "(list))))"
-"(if(not(char? c_92))"
+"(if(not(char? c_91))"
 "(let-values()"
-"(let-values(((in97_0) in_46)"
-"((config98_0) config_46)"
-"((c99_0) c_92)"
+"(let-values(((in97_0) in_45)"
+"((config98_0) config_47)"
+"((c99_0) c_91)"
 "((temp100_1)"
 "                                                                       \"found non-character while reading `#<<`\"))"
 "(reader-error12.1"
@@ -54080,9 +54086,9 @@ static const char *startup_source =
 " config98_0"
 " temp100_1"
 "(list))))"
-"(if(char=? c_92 '#\\newline)"
+"(if(char=? c_91 '#\\newline)"
 "(let-values() null)"
-"(let-values()(cons c_92(loop_67)))))))))))"
+"(let-values()(cons c_91(loop_67)))))))))))"
 " loop_67)))))"
 "(let-values((()"
 "(begin"
@@ -54090,17 +54096,17 @@ static const char *startup_source =
 "(lambda(terminator_0 terminator-accum_0)"
 "(begin"
 " 'loop"
-"(let-values(((c_93)"
-"(let-values(((in_48) in_46)((source_33) source_31))"
-"(read-char-or-special in_48 special1.1 source_33))))"
-"(if(eof-object? c_93)"
+"(let-values(((c_92)"
+"(let-values(((in_47) in_45)((source_33) source_31))"
+"(read-char-or-special in_47 special1.1 source_33))))"
+"(if(eof-object? c_92)"
 "(let-values()"
 "(if(null? terminator_0)"
 "(void)"
 "(let-values()"
-"(let-values(((in101_0) in_46)"
-"((config102_0) config_46)"
-"((c103_0) c_93)"
+"(let-values(((in101_0) in_45)"
+"((config102_0) config_47)"
+"((c103_0) c_92)"
 "((open-end-pos104_0) open-end-pos_5)"
 "((temp105_2)"
 "                                                                            \"found end-of-file before terminating `~a`\")"
@@ -54115,11 +54121,11 @@ static const char *startup_source =
 " config102_0"
 " temp105_2"
 "(list temp106_2))))))"
-"(if(not(char? c_93))"
+"(if(not(char? c_92))"
 "(let-values()"
-"(let-values(((in107_0) in_46)"
-"((config108_0) config_46)"
-"((c109_0) c_93)"
+"(let-values(((in107_0) in_45)"
+"((config108_0) config_47)"
+"((c109_0) c_92)"
 "((temp110_2)"
 "                                                                          \"found non-character while reading `#<<`\"))"
 "(reader-error12.1"
@@ -54132,13 +54138,13 @@ static const char *startup_source =
 " temp110_2"
 "(list))))"
 "(if(if(pair? terminator_0)"
-"(char=? c_93(car terminator_0))"
+"(char=? c_92(car terminator_0))"
 " #f)"
 "(let-values()"
 "(loop_53"
 "(cdr terminator_0)"
 "(cons(car terminator_0) terminator-accum_0)))"
-"(if(if(null? terminator_0)(char=? c_93 '#\\newline) #f)"
+"(if(if(null? terminator_0)(char=? c_92 '#\\newline) #f)"
 "(let-values()(void))"
 "(let-values()"
 "(begin"
@@ -54158,7 +54164,7 @@ static const char *startup_source =
 "(begin"
 " 'for-loop"
 "(if(pair? lst_28)"
-"(let-values(((c_94)"
+"(let-values(((c_93)"
 "(unsafe-car"
 " lst_28))"
 "((rest_177)"
@@ -54172,7 +54178,7 @@ static const char *startup_source =
 "(let-values()"
 "(accum-string-add!"
 " accum-str_5"
-" c_94))"
+" c_93))"
 "(values)))))"
 "(values)))))"
 "(if(not #f)"
@@ -54183,30 +54189,30 @@ static const char *startup_source =
 " for-loop_280)"
 " lst_308)))"
 "(void))))"
-"(if(char=? c_93 '#\\newline)"
+"(if(char=? c_92 '#\\newline)"
 "(let-values()"
 "(loop_53"
 "(cdr full-terminator_0)"
 "(list '#\\newline)))"
 "(let-values()"
 "(begin"
-"(accum-string-add! accum-str_5 c_93)"
+"(accum-string-add! accum-str_5 c_92)"
 "(loop_53 full-terminator_0 null)))))))))))))))"
 " loop_53)"
 "(cdr full-terminator_0)"
 " null)"
 "(values))))"
 "(let-values(((str_31)"
-"(let-values(((accum-str111_0) accum-str_5)((config112_0) config_46))"
+"(let-values(((accum-str111_0) accum-str_5)((config112_0) config_47))"
 "(accum-string-get!6.1 0 accum-str111_0 config112_0))))"
-"(wrap str_31 in_46 config_46 str_31))))))))))"
+"(wrap str_31 in_45 config_47 str_31))))))))))"
 "(define-values"
 "(no-hex-digits)"
-"(lambda(in_49 config_47 c_95 escaping-c_1 escaped-c_1)"
+"(lambda(in_48 config_48 c_94 escaping-c_1 escaped-c_1)"
 "(begin"
-"(let-values(((in113_0) in_49)"
-"((config114_0) config_47)"
-"((c115_0) c_95)"
+"(let-values(((in113_0) in_48)"
+"((config114_0) config_48)"
+"((c115_0) c_94)"
 "                   ((temp116_1) \"no hex digit following `~a~a`\")"
 "((escaping-c117_0) escaping-c_1)"
 "((escaped-c118_0) escaped-c_1))"
@@ -54223,15 +54229,15 @@ static const char *startup_source =
 "(read-character)"
 "(lambda(in_4 config_8)"
 "(begin"
-"(let-values(((c_96)"
-"(let-values(((in_50) in_4)((source_26)(read-config-source config_8)))"
-"(read-char-or-special in_50 special1.1 source_26))))"
+"(let-values(((c_95)"
+"(let-values(((in_49) in_4)((source_26)(read-config-source config_8)))"
+"(read-char-or-special in_49 special1.1 source_26))))"
 "(let-values(((char_0)"
-"(if(eof-object? c_96)"
+"(if(eof-object? c_95)"
 "(let-values()"
 "(let-values(((in1_7) in_4)"
 "((config2_6) config_8)"
-"((c3_5) c_96)"
+"((c3_5) c_95)"
 "                                       ((temp4_5) \"expected a character after `#\\\\`\"))"
 "(reader-error12.1"
 " unsafe-undefined"
@@ -54242,11 +54248,11 @@ static const char *startup_source =
 " config2_6"
 " temp4_5"
 "(list))))"
-"(if(not(char? c_96))"
+"(if(not(char? c_95))"
 "(let-values()"
 "(let-values(((in5_1) in_4)"
 "((config6_0) config_8)"
-"((c7_2) c_96)"
+"((c7_2) c_95)"
 "                                         ((temp8_3) \"found non-character after `#\\\\`\"))"
 "(reader-error12.1"
 " unsafe-undefined"
@@ -54257,15 +54263,15 @@ static const char *startup_source =
 " config6_0"
 " temp8_3"
 "(list))))"
-"(if(octal-digit? c_96)"
+"(if(octal-digit? c_95)"
 "(let-values()"
 "(let-values(((c2_5)"
-"(let-values(((in_51) in_4)"
+"(let-values(((in_50) in_4)"
 "((skip-count_11) 0)"
 "((source_34)(read-config-source config_8)))"
 "(let-values(((c_48)"
 "(peek-char-or-special"
-" in_51"
+" in_50"
 " skip-count_11"
 " 'special"
 " source_34)))"
@@ -54274,14 +54280,14 @@ static const char *startup_source =
 "(let-values()"
 "(let-values((()(begin(consume-char in_4 c2_5)(values))))"
 "(let-values(((c3_6)"
-"(let-values(((in_52) in_4)"
+"(let-values(((in_51) in_4)"
 "((source_6)(read-config-source config_8)))"
-"(read-char-or-special in_52 special1.1 source_6))))"
+"(read-char-or-special in_51 special1.1 source_6))))"
 "(let-values(((v_231)"
 "(if(if(char? c3_6)(octal-digit? c3_6) #f)"
 "(let-values()"
 "(+"
-"(arithmetic-shift(digit->number c_96) 6)"
+"(arithmetic-shift(digit->number c_95) 6)"
 "(arithmetic-shift(digit->number c2_5) 3)"
 "(digit->number c3_6)))"
 "(let-values() #f))))"
@@ -54293,9 +54299,9 @@ static const char *startup_source =
 "((config10_2) config_8)"
 "((c311_0) c3_6)"
 "                                                             ((temp12_7) \"bad character constant `#\\\\~a~a~a`\")"
-"((c13_1) c_96)"
+"((c13_1) c_95)"
 "((c214_0) c2_5)"
-"                                                             ((temp15_6) (if (char? c3_6) c3_6 \"\")))"
+"                                                             ((temp15_5) (if (char? c3_6) c3_6 \"\")))"
 "(reader-error12.1"
 " unsafe-undefined"
 " c311_0"
@@ -54304,11 +54310,11 @@ static const char *startup_source =
 " in9_2"
 " config10_2"
 " temp12_7"
-"(list c13_1 c214_0 temp15_6)))))"
+"(list c13_1 c214_0 temp15_5)))))"
 "(integer->char v_231))))))"
-"(let-values() c_96))))"
-"(if(let-values(((or-part_80)(char=? c_96 '#\\u)))"
-"(if or-part_80 or-part_80(char=? c_96 '#\\U)))"
+"(let-values() c_95))))"
+"(if(let-values(((or-part_80)(char=? c_95 '#\\u)))"
+"(if or-part_80 or-part_80(char=? c_95 '#\\U)))"
 "(let-values()"
 "(let-values(((accum-str_6)(accum-string-init! config_8)))"
 "(let-values(((v_35)"
@@ -54316,7 +54322,7 @@ static const char *startup_source =
 "((config17_1) config_8)"
 "((accum-str18_1) accum-str_6)"
 "((temp19_5) 16)"
-"((temp20_6)(if(char=? c_96 '#\\u) 4 8)))"
+"((temp20_6)(if(char=? c_95 '#\\u) 4 8)))"
 "(read-digits12.1"
 " temp19_5"
 " 0"
@@ -54350,16 +54356,16 @@ static const char *startup_source =
 " config22_2"
 " temp23_5"
 "(list temp24_9))))))"
-"(let-values()(begin(accum-string-abandon! accum-str_6 config_8) c_96))))))"
-"(if(char-alphabetic? c_96)"
+"(let-values()(begin(accum-string-abandon! accum-str_6 config_8) c_95))))))"
+"(if(char-alphabetic? c_95)"
 "(let-values()"
 "(let-values(((next-c_4)"
-"(let-values(((in_53) in_4)"
+"(let-values(((in_52) in_4)"
 "((skip-count_12) 0)"
 "((source_10)(read-config-source config_8)))"
 "(let-values(((c_15)"
 "(peek-char-or-special"
-" in_53"
+" in_52"
 " skip-count_12"
 " 'special"
 " source_10)))"
@@ -54367,7 +54373,7 @@ static const char *startup_source =
 "(if(if(char? next-c_4)(char-alphabetic? next-c_4) #f)"
 "(let-values()"
 "(let-values(((accum-str_7)(accum-string-init! config_8)))"
-"(let-values((()(begin(accum-string-add! accum-str_7 c_96)(values))))"
+"(let-values((()(begin(accum-string-add! accum-str_7 c_95)(values))))"
 "(let-values((()(begin(accum-string-add! accum-str_7 next-c_4)(values))))"
 "(let-values((()(begin(consume-char in_4 next-c_4)(values))))"
 "(let-values((()"
@@ -54377,25 +54383,25 @@ static const char *startup_source =
 "(begin"
 " 'loop"
 "(let-values(((next-c_5)"
-"(let-values(((in_54)"
+"(let-values(((in_53)"
 " in_4)"
 "((skip-count_13)"
 " 0)"
 "((source_35)"
 "(read-config-source"
 " config_8)))"
-"(let-values(((c_97)"
+"(let-values(((c_96)"
 "(peek-char-or-special"
-" in_54"
+" in_53"
 " skip-count_13"
 " 'special"
 " source_35)))"
 "(if(eq?"
-" c_97"
+" c_96"
 " 'special)"
 "(special1.1"
 " 'special)"
-" c_97)))))"
+" c_96)))))"
 "(if(if(char? next-c_5)"
 "(char-alphabetic?"
 " next-c_5)"
@@ -54453,20 +54459,20 @@ static const char *startup_source =
 " config30_0"
 " temp31_3"
 "(list name32_0)))))))))))))))))))))"
-"(let-values() c_96))))"
-"(let-values() c_96))))))))"
+"(let-values() c_95))))"
+"(let-values() c_95))))))))"
 "(wrap char_0 in_4 config_8 char_0))))))"
 "(define-values"
 "(read-quote)"
-"(lambda(read-one_3 sym_31 desc_0 c_35 in_50 config_22)"
+"(lambda(read-one_3 sym_31 desc_0 c_35 in_49 config_22)"
 "(begin"
-"(let-values(((wrapped-sym_0)(wrap sym_31 in_50 config_22 c_35)))"
-"(let-values(((end-line_1 end-col_1 end-pos_3)(port-next-location in_50)))"
-"(let-values(((e_83)(read-one_3 #f in_50 config_22)))"
+"(let-values(((wrapped-sym_0)(wrap sym_31 in_49 config_22 c_35)))"
+"(let-values(((end-line_1 end-col_1 end-pos_3)(port-next-location in_49)))"
+"(let-values(((e_83)(read-one_3 #f in_49 config_22)))"
 "(begin"
 "(if(eof-object? e_83)"
 "(let-values()"
-"(let-values(((in1_8) in_50)"
+"(let-values(((in1_8) in_49)"
 "((config2_7) config_22)"
 "((e3_0) e_83)"
 "((end-pos4_1) end-pos_3)"
@@ -54482,42 +54488,42 @@ static const char *startup_source =
 " temp5_7"
 "(list desc6_0))))"
 "(void))"
-"(wrap(list wrapped-sym_0 e_83) in_50 config_22 #f))))))))"
+"(wrap(list wrapped-sym_0 e_83) in_49 config_22 #f))))))))"
 "(define-values"
 "(read-delimited-constant)"
-"(lambda(init-c_1 can-match?_0 chars_0 val_79 in_50 config_22)"
+"(lambda(init-c_1 can-match?_0 chars_0 val_79 in_49 config_22)"
 "(begin"
 "(let-values(((accum-str_8)(accum-string-init! config_22)))"
 "(begin"
 "(accum-string-add! accum-str_8 init-c_1)"
-"((letrec-values(((loop_117)"
+"((letrec-values(((loop_116)"
 "(lambda(chars_1)"
 "(begin"
 " 'loop"
 "(let-values(((c_37)"
-"(let-values(((in_55) in_50)"
+"(let-values(((in_54) in_49)"
 "((skip-count_14) 0)"
 "((source_4)(read-config-source config_22)))"
-"(let-values(((c_98)"
+"(let-values(((c_97)"
 "(peek-char-or-special"
-" in_55"
+" in_54"
 " skip-count_14"
 " 'special"
 " source_4)))"
-"(if(eq? c_98 'special)(special1.1 'special) c_98)))))"
+"(if(eq? c_97 'special)(special1.1 'special) c_97)))))"
 "(if(char-delimiter? c_37 config_22)"
 "(let-values()"
 "(if(null? chars_1)"
 "(void)"
 "(let-values()"
-"(let-values(((in1_9) in_50)"
+"(let-values(((in1_9) in_49)"
 "((config2_8) config_22)"
 "((c3_7) c_37)"
 "                                                       ((temp4_6) \"bad syntax `#~a`\")"
 "((temp5_8)"
 "(let-values(((accum-str6_0) accum-str_8)"
-"((config7_1) config_22))"
-"(accum-string-get!6.1 0 accum-str6_0 config7_1))))"
+"((config7_0) config_22))"
+"(accum-string-get!6.1 0 accum-str6_0 config7_0))))"
 "(reader-error12.1"
 " unsafe-undefined"
 " c3_7"
@@ -54531,7 +54537,7 @@ static const char *startup_source =
 "(let-values()"
 "(begin"
 "(accum-string-add! accum-str_8 c_37)"
-"(let-values(((in8_1) in_50)"
+"(let-values(((in8_1) in_49)"
 "((config9_2) config_22)"
 "                                                       ((temp10_5) \"bad syntax `#~a`\")"
 "((temp11_5)"
@@ -54550,17 +54556,17 @@ static const char *startup_source =
 "(if(if can-match?_0(char=? c_37(car chars_1)) #f)"
 "(let-values()"
 "(begin"
-"(consume-char in_50 c_37)"
+"(consume-char in_49 c_37)"
 "(accum-string-add! accum-str_8 c_37)"
-"(loop_117(cdr chars_1))))"
+"(loop_116(cdr chars_1))))"
 "(let-values()"
 "(begin"
-"(consume-char/special in_50 config_22 c_37)"
+"(consume-char/special in_49 config_22 c_37)"
 "(accum-string-add! accum-str_8 c_37)"
-"(let-values(((in14_1) in_50)"
+"(let-values(((in14_1) in_49)"
 "((config15_2) config_22)"
 "                                                         ((temp16_4) \"bad syntax `#~a`\")"
-"((temp17_5)"
+"((temp17_4)"
 "(let-values(((accum-str18_2) accum-str_8)"
 "((config19_3) config_22))"
 "(accum-string-get!6.1 0 accum-str18_2 config19_3))))"
@@ -54572,12 +54578,12 @@ static const char *startup_source =
 " in14_1"
 " config15_2"
 " temp16_4"
-"(list temp17_5)))))))))))))"
-" loop_117)"
+"(list temp17_4)))))))))))))"
+" loop_116)"
 " chars_0)"
 "(wrap"
 " val_79"
-" in_50"
+" in_49"
 " config_22"
 "(let-values(((accum-str20_0) accum-str_8)((config21_1) config_22))"
 "(accum-string-get!6.1 0 accum-str20_0 config21_1))))))))"
@@ -54631,8 +54637,8 @@ static const char *startup_source =
 "(lambda(mode-c_0 accum-str_9 in_5 config_15)"
 "(begin"
 "(let-values(((c3_8)"
-"(let-values(((in_56) in_5)((source_36)(read-config-source config_15)))"
-"(read-char-or-special in_56 special1.1 source_36))))"
+"(let-values(((in_55) in_5)((source_36)(read-config-source config_15)))"
+"(read-char-or-special in_55 special1.1 source_36))))"
 "(let-values(((no-wrap-config_0)(disable-wrapping config_15)))"
 "(let-values(((rx_0)"
 "(let-values(((tmp_55) c3_8))"
@@ -54651,8 +54657,8 @@ static const char *startup_source =
 "(let-values((()(begin(accum-string-add! accum-str_9 c3_8)(values))))"
 "(let-values(((c4_2)"
 "(let-values(((in_20) in_5)"
-"((source_17)(read-config-source config_15)))"
-"(read-char-or-special in_20 special1.1 source_17))))"
+"((source_37)(read-config-source config_15)))"
+"(read-char-or-special in_20 special1.1 source_37))))"
 "(let-values(((tmp_56) c4_2))"
 "                                      (if (equal? tmp_56 '#\\\")"
 "(let-values()"
@@ -54670,7 +54676,7 @@ static const char *startup_source =
 "((if(char=? mode-c_0 '#\\r) byte-regexp byte-pregexp) bstr_4))))))"
 "(let-values()"
 "(let-values(((in6_2) in_5)"
-"((config7_2) config_15)"
+"((config7_1) config_15)"
 "((c48_0) c4_2)"
 "                                                       ((temp9_0) \"expected `\\\"` after `~a`\")"
 "((temp10_2)"
@@ -54683,7 +54689,7 @@ static const char *startup_source =
 " #f"
 " unsafe-undefined"
 " in6_2"
-" config7_2"
+" config7_1"
 " temp9_0"
 "(list temp10_2)))))))))"
 "(let-values()"
@@ -54691,7 +54697,7 @@ static const char *startup_source =
 "((config14_2) config_15)"
 "((c315_0) c3_8)"
 "                                             ((temp16_7) \"expected `\\\"` or `#` after `~a`\")"
-"((temp17_6)"
+"((temp17_5)"
 "(let-values(((accum-str18_3) accum-str_9)((config19_4) config_15))"
 "(accum-string-get!6.1 0 accum-str18_3 config19_4))))"
 "(reader-error12.1"
@@ -54702,20 +54708,20 @@ static const char *startup_source =
 " in13_2"
 " config14_2"
 " temp16_7"
-"(list temp17_6)))))))))"
+"(list temp17_5)))))))))"
 "(wrap rx_0 in_5 config_15 #f)))))))"
 "(define-values"
 "(read-extension-reader)"
-"(lambda(read-one_9 read-recur_0 dispatch-c_2 in_57 config_24)"
+"(lambda(read-one_9 read-recur_0 dispatch-c_2 in_56 config_24)"
 "(begin"
 "(let-values(((extend-str_0)"
-"(read-extension-prefix(cons dispatch-c_2 '(#\\r #\\e)) '(#\\a #\\d #\\e #\\r) in_57 config_24)))"
+"(read-extension-prefix(cons dispatch-c_2 '(#\\r #\\e)) '(#\\a #\\d #\\e #\\r) in_56 config_24)))"
 "(let-values((()"
 "(begin"
 "(if(check-parameter 1/read-accept-reader config_24)"
 "(void)"
 "(let-values()"
-"(let-values(((in52_0) in_57)"
+"(let-values(((in52_0) in_56)"
 "((config53_1) config_24)"
 "                                         ((temp54_3) \"`~a` not enabled\")"
 "((extend-str55_0) extend-str_0))"
@@ -54729,11 +54735,11 @@ static const char *startup_source =
 " temp54_3"
 "(list extend-str55_0)))))"
 "(values))))"
-"(let-values(((mod-path-wrapped_0)(read-one_9 #f in_57(next-readtable config_24))))"
+"(let-values(((mod-path-wrapped_0)(read-one_9 #f in_56(next-readtable config_24))))"
 "(begin"
 "(if(eof-object? mod-path-wrapped_0)"
 "(let-values()"
-"(let-values(((in56_0) in_57)"
+"(let-values(((in56_0) in_56)"
 "((config57_1) config_24)"
 "((mod-path-wrapped58_0) mod-path-wrapped_0)"
 "                               ((temp59_6) \"expected a datum after `~a`, found end-of-file\")"
@@ -54750,7 +54756,7 @@ static const char *startup_source =
 "(void))"
 "(let-values(((temp47_1)((read-config-coerce config_24) #f mod-path-wrapped_0 #f))"
 "((read-recur48_0) read-recur_0)"
-"((in49_0) in_57)"
+"((in49_0) in_56)"
 "((config50_0) config_24)"
 "((mod-path-wrapped51_0) mod-path-wrapped_0))"
 "(read-extension44.1"
@@ -54770,20 +54776,20 @@ static const char *startup_source =
 "(let-values(((read-recur_1) read-recur3_0))"
 "(let-values(((dispatch-c_3) dispatch-c4_1))"
 "(let-values(((in_13) in5_2))"
-"(let-values(((config_48) config6_1))"
+"(let-values(((config_49) config6_1))"
 "(let-values(((get-info?_0) get-info?1_0))"
 "(let-values()"
 "(let-values(((extend-str_1)"
-"(read-extension-prefix(cons dispatch-c_3 '(#\\l)) '(#\\a #\\n #\\g) in_13 config_48)))"
+"(read-extension-prefix(cons dispatch-c_3 '(#\\l)) '(#\\a #\\n #\\g) in_13 config_49)))"
 "(let-values(((c_69)"
-"(let-values(((in_58) in_13)((source_37)(read-config-source config_48)))"
-"(read-char-or-special in_58 special1.1 source_37))))"
+"(let-values(((in_57) in_13)((source_18)(read-config-source config_49)))"
+"(read-char-or-special in_57 special1.1 source_18))))"
 "(begin"
 "(if(char=? c_69 '#\\space)"
 "(void)"
 "(let-values()"
 "(let-values(((in67_1) in_13)"
-"((config68_1) config_48)"
+"((config68_1) config_49)"
 "                                         ((temp69_2) \"expected a single space after `~a`\")"
 "((extend-str70_0) extend-str_1))"
 "(reader-error12.1"
@@ -54798,7 +54804,7 @@ static const char *startup_source =
 "(let-values(((extend-str61_0) extend-str_1)"
 "((read-recur62_0) read-recur_1)"
 "((in63_1) in_13)"
-"((config64_1) config_48)"
+"((config64_1) config_49)"
 "((temp65_3) '|#lang|)"
 "((get-info?66_0) get-info?_0))"
 "(read-lang29.1"
@@ -54816,27 +54822,27 @@ static const char *startup_source =
 " 'read-extension-#!16"
 "(let-values(((read-recur_2) read-recur12_0))"
 "(let-values(((dispatch-c_4) dispatch-c13_0))"
-"(let-values(((in_59) in14_2))"
-"(let-values(((config_49) config15_3))"
+"(let-values(((in_58) in14_2))"
+"(let-values(((config_50) config15_3))"
 "(let-values(((get-info?_1) get-info?10_0))"
 "(let-values()"
-"(let-values(((c_99)"
-"(let-values(((in_60) in_59)((source_38)(read-config-source config_49)))"
-"(read-char-or-special in_60 special1.1 source_38))))"
+"(let-values(((c_98)"
+"(let-values(((in_59) in_58)((source_38)(read-config-source config_50)))"
+"(read-char-or-special in_59 special1.1 source_38))))"
 "(begin"
-"(if(char-lang-nonsep? c_99)"
+"(if(char-lang-nonsep? c_98)"
 "(void)"
 "(let-values()"
-"(let-values(((in78_0) in_59)"
-"((config79_0) config_49)"
+"(let-values(((in78_0) in_58)"
+"((config79_0) config_50)"
 "((temp80_1)"
-"(if(char? c_99)(string dispatch-c_4 '#\\! c_99)(string dispatch-c_4 '#\\!))))"
+"(if(char? c_98)(string dispatch-c_4 '#\\! c_98)(string dispatch-c_4 '#\\!))))"
 "(bad-syntax-error20.1 '#\\x in78_0 config79_0 temp80_1))))"
 "(let-values(((temp71_1)(string dispatch-c_4 '#\\!))"
 "((read-recur72_0) read-recur_2)"
-"((in73_0) in_59)"
-"((config74_0) config_49)"
-"((c75_0) c_99)"
+"((in73_0) in_58)"
+"((config74_0) config_50)"
+"((c75_0) c_98)"
 "((temp76_2) '|#!|)"
 "((get-info?77_0) get-info?_1))"
 "(read-lang29.1"
@@ -54854,21 +54860,21 @@ static const char *startup_source =
 " 'read-lang29"
 "(let-values(((extend-str_2) extend-str25_0))"
 "(let-values(((read-recur_3) read-recur26_0))"
-"(let-values(((in_61) in27_1))"
-"(let-values(((config_50) config28_2))"
+"(let-values(((in_60) in27_1))"
+"(let-values(((config_51) config28_2))"
 "(let-values(((init-c_15) init-c19_0))"
 "(let-values(((get-info?_2) get-info?20_0))"
 "(let-values(((who_29) who21_0))"
 "(let-values()"
 "(let-values((()"
 "(begin"
-"(if(if(check-parameter 1/read-accept-reader config_50)"
-"(check-parameter 1/read-accept-lang config_50)"
+"(if(if(check-parameter 1/read-accept-reader config_51)"
+"(check-parameter 1/read-accept-lang config_51)"
 " #f)"
 "(void)"
 "(let-values()"
-"(let-values(((in88_0) in_61)"
-"((config89_0) config_50)"
+"(let-values(((in88_0) in_60)"
+"((config89_0) config_51)"
 "                                                       ((temp90_2) \"`~a` not enabled\")"
 "((extend-str91_0) extend-str_2))"
 "(reader-error12.1"
@@ -54881,8 +54887,8 @@ static const char *startup_source =
 " temp90_2"
 "(list extend-str91_0)))))"
 "(values))))"
-"(let-values(((line_10 col_9 pos_120)(port-next-location in_61)))"
-"(let-values(((accum-str_10)(accum-string-init! config_50)))"
+"(let-values(((line_10 col_9 pos_120)(port-next-location in_60)))"
+"(let-values(((accum-str_10)(accum-string-init! config_51)))"
 "(let-values((()"
 "(begin"
 "(if init-c_15"
@@ -54891,33 +54897,33 @@ static const char *startup_source =
 "(values))))"
 "(let-values((()"
 "(begin"
-"((letrec-values(((loop_118)"
+"((letrec-values(((loop_117)"
 "(lambda()"
 "(begin"
 " 'loop"
 "(let-values(((c_9)"
-"(let-values(((in_62) in_61)"
+"(let-values(((in_61) in_60)"
 "((skip-count_15) 0)"
 "((source_39)"
 "(read-config-source"
-" config_50)))"
-"(let-values(((c_100)"
+" config_51)))"
+"(let-values(((c_99)"
 "(peek-char-or-special"
-" in_62"
+" in_61"
 " skip-count_15"
 " 'special"
 " source_39)))"
-"(if(eq? c_100 'special)"
+"(if(eq? c_99 'special)"
 "(special1.1 'special)"
-" c_100)))))"
+" c_99)))))"
 "(if(eof-object? c_9)"
 "(let-values()(void))"
 "(if(not(char? c_9))"
 "(let-values()"
 "(begin"
-"(consume-char/special in_61 config_50 c_9)"
-"(let-values(((in92_0) in_61)"
-"((config93_0) config_50)"
+"(consume-char/special in_60 config_51 c_9)"
+"(let-values(((in92_0) in_60)"
+"((config93_0) config_51)"
 "((c94_0) c_9)"
 "((temp95_1)"
 "                                                                                            \"found non-character while reading `#~a`\")"
@@ -54941,14 +54947,14 @@ static const char *startup_source =
 "(char=? '#\\/ c_9)))"
 "(let-values()"
 "(begin"
-"(consume-char in_61 c_9)"
+"(consume-char in_60 c_9)"
 "(accum-string-add! accum-str_10 c_9)"
-"(loop_118)))"
+"(loop_117)))"
 "(let-values()"
 "(begin"
-"(consume-char in_61 c_9)"
-"(let-values(((in97_1) in_61)"
-"((config98_1) config_50)"
+"(consume-char in_60 c_9)"
+"(let-values(((in97_1) in_60)"
+"((config98_1) config_51)"
 "((temp99_1)"
 "(string-append"
 "                                                                                                 \"expected only alphanumeric, `-`, `+`, `_`, or `/`\""
@@ -54967,17 +54973,17 @@ static const char *startup_source =
 "(list"
 " extend-str100_0"
 " c101_0))))))))))))))"
-" loop_118))"
+" loop_117))"
 "(values))))"
 "(let-values(((lang-str_0)"
-"(let-values(((accum-str102_0) accum-str_10)((config103_0) config_50))"
+"(let-values(((accum-str102_0) accum-str_10)((config103_0) config_51))"
 "(accum-string-get!6.1 0 accum-str102_0 config103_0))))"
 "(let-values((()"
 "(begin"
 "                                                  (if (equal? lang-str_0 \"\")"
 "(let-values()"
-"(let-values(((in104_0) in_61)"
-"((config105_0) config_50)"
+"(let-values(((in104_0) in_60)"
+"((config105_0) config_51)"
 "((temp106_3)"
 "                                                                    \"expected a non-empty sequence of alphanumeric, `-`, `+`, `_`, or `/` after `~a`\")"
 "((extend-str107_0) extend-str_2))"
@@ -54996,8 +55002,8 @@ static const char *startup_source =
 "(begin"
 "(if(char=? '#\\/(string-ref lang-str_0 0))"
 "(let-values()"
-"(let-values(((in108_0) in_61)"
-"((config109_0) config_50)"
+"(let-values(((in108_0) in_60)"
+"((config109_0) config_51)"
 "((temp110_3)"
 "                                                                      \"expected a name that does not start `/` after `~a`\")"
 "((extend-str111_0) extend-str_2))"
@@ -55018,8 +55024,8 @@ static const char *startup_source =
 " '#\\/"
 "(string-ref lang-str_0(sub1(string-length lang-str_0))))"
 "(let-values()"
-"(let-values(((in112_0) in_61)"
-"((config113_0) config_50)"
+"(let-values(((in112_0) in_60)"
+"((config113_0) config_51)"
 "((temp114_4)"
 "                                                                        \"expected a name that does not end `/` after `~a`\")"
 "((extend-str115_0) extend-str_2))"
@@ -55041,8 +55047,8 @@ static const char *startup_source =
 "(let-values(((submod-path81_0) submod-path_0)"
 "((reader-path82_0) reader-path_0)"
 "((read-recur83_0) read-recur_3)"
-"((in84_0) in_61)"
-"((temp85_1)(reading-at config_50 line_10 col_9 pos_120))"
+"((in84_0) in_60)"
+"((temp85_1)(reading-at config_51 line_10 col_9 pos_120))"
 "((get-info?86_0) get-info?_2)"
 "((who87_0) who_29))"
 "(read-extension44.1"
@@ -55056,26 +55062,26 @@ static const char *startup_source =
 " temp85_1))))))))))))))))))))))))"
 "(define-values"
 "(char-lang-nonsep?)"
-"(lambda(c_101)"
+"(lambda(c_100)"
 "(begin"
-"(if(<(char->integer c_101) 128)"
-"(let-values(((or-part_89)(char-alphabetic? c_101)))"
+"(if(<(char->integer c_100) 128)"
+"(let-values(((or-part_89)(char-alphabetic? c_100)))"
 "(if or-part_89"
 " or-part_89"
-"(let-values(((or-part_305)(char-numeric? c_101)))"
+"(let-values(((or-part_305)(char-numeric? c_100)))"
 "(if or-part_305"
 " or-part_305"
-"(let-values(((or-part_361)(char=? '#\\- c_101)))"
+"(let-values(((or-part_361)(char=? '#\\- c_100)))"
 "(if or-part_361"
 " or-part_361"
-"(let-values(((or-part_362)(char=? '#\\+ c_101)))"
-"(if or-part_362 or-part_362(char=? '#\\_ c_101)))))))))"
+"(let-values(((or-part_362)(char=? '#\\+ c_100)))"
+"(if or-part_362 or-part_362(char=? '#\\_ c_100)))))))))"
 " #f))))"
 "(define-values"
 "(read-extension-prefix)"
-"(lambda(already_0 wanted_0 in_63 config_51)"
+"(lambda(already_0 wanted_0 in_62 config_52)"
 "(begin"
-"(let-values(((accum-str_11)(accum-string-init! config_51)))"
+"(let-values(((accum-str_11)(accum-string-init! config_52)))"
 "(begin"
 "(let-values(((lst_201) already_0))"
 "(begin"
@@ -55085,14 +55091,14 @@ static const char *startup_source =
 "(begin"
 " 'for-loop"
 "(if(pair? lst_309)"
-"(let-values(((c_102)(unsafe-car lst_309))((rest_178)(unsafe-cdr lst_309)))"
+"(let-values(((c_101)(unsafe-car lst_309))((rest_178)(unsafe-cdr lst_309)))"
 "(let-values((()"
 "(let-values()"
 "(let-values((()"
 "(let-values()"
 "(begin"
 "(let-values()"
-"(accum-string-add! accum-str_11 c_102))"
+"(accum-string-add! accum-str_11 c_101))"
 "(values)))))"
 "(values)))))"
 "(if(not #f)(for-loop_208 rest_178)(values))))"
@@ -55107,27 +55113,27 @@ static const char *startup_source =
 "(if(null? wanted_1)"
 "(void)"
 "(let-values()"
-"(let-values(((c_103)"
-"(let-values(((in_64) in_63)"
-"((source_40)(read-config-source config_51)))"
-"(read-char-or-special in_64 special1.1 source_40))))"
+"(let-values(((c_102)"
+"(let-values(((in_63) in_62)"
+"((source_40)(read-config-source config_52)))"
+"(read-char-or-special in_63 special1.1 source_40))))"
 "(begin"
-"(if(char? c_103)(let-values()(accum-string-add! accum-str_11 c_103))(void))"
-"(if(eqv? c_103(car wanted_1))"
+"(if(char? c_102)(let-values()(accum-string-add! accum-str_11 c_102))(void))"
+"(if(eqv? c_102(car wanted_1))"
 "(void)"
 "(let-values()"
-"(let-values(((in118_0) in_63)"
-"((config119_0) config_51)"
+"(let-values(((in118_0) in_62)"
+"((config119_0) config_52)"
 "((temp120_2)"
 "(let-values(((accum-str122_0) accum-str_11)"
-"((config123_0) config_51))"
+"((config123_0) config_52))"
 "(accum-string-get!6.1 0 accum-str122_0 config123_0)))"
-"((c121_0) c_103))"
+"((c121_0) c_102))"
 "(bad-syntax-error20.1 c121_0 in118_0 config119_0 temp120_2))))"
 "(loop_12(cdr wanted_1))))))))))"
 " loop_12)"
 " wanted_0)"
-"(let-values(((accum-str116_0) accum-str_11)((config117_0) config_51))"
+"(let-values(((accum-str116_0) accum-str_11)((config117_0) config_52))"
 "(accum-string-get!6.1 0 accum-str116_0 config117_0)))))))"
 "(define-values"
 "(read-extension44.1)"
@@ -55144,33 +55150,33 @@ static const char *startup_source =
 "(let-values(((try-first-mod-path_0) try-first-mod-path32_0))"
 "(let-values(((mod-path-datum_0) mod-path-datum40_0))"
 "(let-values(((read-recur_4) read-recur41_0))"
-"(let-values(((in_65) in42_1))"
-"(let-values(((config_52) config43_1))"
+"(let-values(((in_64) in42_1))"
+"(let-values(((config_53) config43_1))"
 "(let-values(((mod-path-wrapped_1)"
 "(if(eq? mod-path-wrapped33_0 unsafe-undefined)"
-"((read-config-coerce config_52)"
+"((read-config-coerce config_53)"
 " #t"
 " mod-path-datum_0"
-"(let-values(((in124_0) in_65)((config125_0) config_52))"
+"(let-values(((in124_0) in_64)((config125_0) config_53))"
 "(port+config->srcloc49.1 #f in124_0 config125_0)))"
 " mod-path-wrapped33_0)))"
 "(let-values(((get-info?_3) get-info?34_0))"
 "(let-values(((who_30) who35_0))"
 "(let-values()"
-"(let-values((()(begin(force-parameters! config_52)(values))))"
+"(let-values((()(begin(force-parameters! config_53)(values))))"
 "(let-values(((guard_0)(1/current-reader-guard)))"
 "(let-values(((mod-path_28)"
 "(let-values(((or-part_363)"
 "(if try-first-mod-path_0"
 "(let-values(((mod-path_29)(guard_0 try-first-mod-path_0)))"
-"(if((read-config-module-declared? config_52)"
+"(if((read-config-module-declared? config_53)"
 " try-first-mod-path_0)"
 " mod-path_29"
 " #f))"
 " #f)))"
 "(if or-part_363 or-part_363(guard_0 mod-path-datum_0)))))"
-"(let-values(((for-syntax?_8)(read-config-for-syntax? config_52)))"
-"(let-values(((dynamic-require_2)(read-config-dynamic-require config_52)))"
+"(let-values(((for-syntax?_8)(read-config-for-syntax? config_53)))"
+"(let-values(((dynamic-require_2)(read-config-dynamic-require config_53)))"
 "(let-values(((no-value_0)(gensym)))"
 "(let-values(((extension_0)"
 "(if get-info?_3"
@@ -55193,15 +55199,15 @@ static const char *startup_source =
 "(extend-parameterization"
 "(continuation-mark-set-first #f parameterization-key)"
 " current-read-config"
-" config_52)"
+" config_53)"
 "(let-values()"
 "(extension_0"
-"(read-config-source config_52)"
-" in_65"
+"(read-config-source config_53)"
+" in_64"
 " mod-path-wrapped_1"
-"(read-config-line config_52)"
-"(read-config-col config_52)"
-"(read-config-pos config_52)))))"
+"(read-config-line config_53)"
+"(read-config-col config_53)"
+"(read-config-pos config_53)))))"
 "(if(procedure-arity-includes? extension_0 2)"
 "(let-values()"
 "(with-continuation-mark"
@@ -55211,11 +55217,11 @@ static const char *startup_source =
 " #f"
 " parameterization-key)"
 " current-read-config"
-" config_52)"
+" config_53)"
 "(let-values()"
 "(extension_0"
-"(read-config-source config_52)"
-" in_65))))"
+"(read-config-source config_53)"
+" in_64))))"
 "(let-values()"
 "(raise-argument-error"
 " who_30"
@@ -55229,14 +55235,14 @@ static const char *startup_source =
 "(extend-parameterization"
 "(continuation-mark-set-first #f parameterization-key)"
 " current-read-config"
-" config_52)"
+" config_53)"
 "(let-values()"
 "(extension_0"
-" in_65"
+" in_64"
 " mod-path-wrapped_1"
-"(read-config-line config_52)"
-"(read-config-col config_52)"
-"(read-config-pos config_52)))))"
+"(read-config-line config_53)"
+"(read-config-col config_53)"
+"(read-config-pos config_53)))))"
 "(if get-info?_3"
 "(let-values()"
 "(raise-argument-error"
@@ -55252,8 +55258,8 @@ static const char *startup_source =
 " #f"
 " parameterization-key)"
 " current-read-config"
-" config_52)"
-"(let-values()(extension_0 in_65))))"
+" config_53)"
+"(let-values()(extension_0 in_64))))"
 "(let-values()"
 "(raise-argument-error"
 " who_30"
@@ -55273,9 +55279,9 @@ static const char *startup_source =
 " result-v_1)))"
 " result-v_1))"
 "(if(1/special-comment? result-v_1)"
-"(let-values()(read-recur_4 #f in_65 config_52))"
+"(let-values()(read-recur_4 #f in_64 config_53))"
 "(let-values()"
-"(coerce result-v_1 in_65 config_52))))))))))))))))))))))))))"
+"(coerce result-v_1 in_64 config_53))))))))))))))))))))))))))"
 "(define-values"
 "(read-language/get-info)"
 "(lambda(read-one_3 in_2 config_7 fail-k_5)"
@@ -55288,8 +55294,8 @@ static const char *startup_source =
 "              (let-values () (if fail-k_5 (fail-k_5) (lang-error in_2 l-config_0 \"\" c_25)))"
 "(let-values()"
 "(let-values(((c2_6)"
-"(let-values(((in_55) in_2)((source_41)(read-config-source l-config_0)))"
-"(read-char-or-special in_55 special1.1 source_41))))"
+"(let-values(((in_54) in_2)((source_41)(read-config-source l-config_0)))"
+"(read-char-or-special in_54 special1.1 source_41))))"
 "(if(eqv? c2_6 '#\\l)"
 "(let-values()"
 "(let-values(((read-one1_0) read-one_3)"
@@ -55310,18 +55316,18 @@ static const char *startup_source =
 "(if fail-k_5(fail-k_5)(lang-error in_2 l-config_0(string c_25) c2_6))))))))))))))"
 "(define-values"
 "(lang-error)"
-"(lambda(in_52 config_53 prefix_7 c_67)"
+"(lambda(in_51 config_54 prefix_7 c_67)"
 "(begin"
 "(let-values(((add-prefix_0)"
 "(lambda(s_78)"
 "(begin"
 " 'add-prefix"
 "                        (if (string=? prefix_7 \"\") (format \"`~a` followed by ~a\" prefix_7 s_78) s_78)))))"
-"(let-values(((in11_1) in_52)"
-"((config12_3) config_53)"
+"(let-values(((in11_1) in_51)"
+"((config12_3) config_54)"
 "((c13_2) c_67)"
-"((temp14_6) 'read-language)"
-"((temp15_7)"
+"((temp14_5) 'read-language)"
+"((temp15_6)"
 "(string-append"
 "                       \"expected (after whitespace and comments) `#lang ` or `#!` followed\""
 "                       \" immediately by a language name, found ~a\"))"
@@ -55331,7 +55337,7 @@ static const char *startup_source =
 "(if(not(char? c_67))"
 "                          (let-values () (add-prefix_0 \"non-character\"))"
 "                          (let-values () (format \"`~a~a`\" prefix_7 c_67))))))"
-"(reader-error12.1 unsafe-undefined c13_2 #f temp14_6 in11_1 config12_3 temp15_7(list temp16_8)))))))"
+"(reader-error12.1 unsafe-undefined c13_2 #f temp14_5 in11_1 config12_3 temp15_6(list temp16_8)))))))"
 "(define-values"
 "(read30.1)"
 "(lambda(coerce12_1"
@@ -55371,11 +55377,11 @@ static const char *startup_source =
 " recursive?_0"
 " keep-comment?14_1)))"
 "(let-values()"
-"(let-values(((config_54)"
+"(let-values(((config_55)"
 "(let-values(((c1_31)(if recursive?_0(current-read-config) #f)))"
 "(if c1_31"
-"((lambda(config_55)"
-"(let-values(((config52_0) config_55)"
+"((lambda(config_56)"
+"(let-values(((config52_0) config_56)"
 "((for-syntax?53_0) for-syntax?_9)"
 "((wrap54_0) wrap_7)"
 "((readtable55_0) readtable_3)"
@@ -55415,15 +55421,15 @@ static const char *startup_source =
 " readtable59_1"
 " source61_0"
 " wrap63_0)))))))"
-"(let-values(((v_34)(read-one init-c_16 in_20 config_54)))"
+"(let-values(((v_34)(read-one init-c_16 in_20 config_55)))"
 "(if(if(let-values(((or-part_9)(not recursive?_0)))"
 "(if or-part_9 or-part_9 local-graph?_1))"
-"(read-config-state-graph(read-config-st config_54))"
+"(read-config-state-graph(read-config-st config_55))"
 " #f)"
 "(let-values()"
 "(catch-and-reraise-as-reader/proc"
 " #f"
-" config_54"
+" config_55"
 "(lambda()(make-reader-graph v_34))))"
 "(if(if recursive?_0"
 "(if(not local-graph?_1)"
@@ -55432,7 +55438,7 @@ static const char *startup_source =
 " #f)"
 " #f)"
 " #f)"
-"(let-values()(begin(get-graph-hash config_54) v_34))"
+"(let-values()(begin(get-graph-hash config_55) v_34))"
 "(let-values() v_34))))))))))))))))))))))))"
 "(define-values"
 "(read-language49.1)"
@@ -55447,7 +55453,7 @@ static const char *startup_source =
 " fail-k48_0)"
 "(begin"
 " 'read-language49"
-"(let-values(((in_66) in47_2))"
+"(let-values(((in_65) in47_2))"
 "(let-values(((fail-k_6) fail-k48_0))"
 "(let-values(((for-syntax?_10) for-syntax?33_0))"
 "(let-values(((wrap_8) wrap34_0))"
@@ -55457,7 +55463,7 @@ static const char *startup_source =
 "(let-values(((coerce_3) coerce38_0))"
 "(let-values(((coerce-key_3) coerce-key39_0))"
 "(let-values()"
-"(let-values(((config_56)"
+"(let-values(((config_57)"
 "(let-values(((temp70_3) #f)"
 "((temp71_2) #f)"
 "((for-syntax?72_0) for-syntax?_10)"
@@ -55479,97 +55485,113 @@ static const char *startup_source =
 " temp70_3"
 " #f"
 " wrap73_0))))"
-"(let-values(((l-config_1)(override-parameter 1/read-accept-reader config_56 #f)))"
-"(read-language/get-info read-undotted in_66 config_56 fail-k_6))))))))))))))))"
+"(let-values(((l-config_1)(override-parameter 1/read-accept-reader config_57 #f)))"
+"(read-language/get-info read-undotted in_65 config_57 fail-k_6))))))))))))))))"
 "(define-values"
 "(read-one)"
-"(lambda(init-c_17 in_63 config_51)"
+"(lambda(init-c_17 in_62 config_52)"
 "(begin"
-"(if(not(check-parameter 1/read-cdot config_51))"
-"(let-values()(read-undotted init-c_17 in_63 config_51))"
-"(if(check-parameter 1/read-cdot config_51)"
+"(if(not(check-parameter 1/read-cdot config_52))"
+"(let-values()(read-undotted init-c_17 in_62 config_52))"
+"(if(check-parameter 1/read-cdot config_52)"
 "(let-values()"
-"(let-values(((line_11 col_10 pos_92)(port-next-location in_63)))"
-"(let-values(((v_110)(read-undotted init-c_17 in_63 config_51)))"
+"(let-values(((line_11 col_10 pos_92)(port-next-location in_62)))"
+"(let-values(((v_110)(read-undotted init-c_17 in_62 config_52)))"
 "(if(1/special-comment? v_110)"
 "(let-values() v_110)"
 "(let-values()"
-"((letrec-values(((loop_119)"
+"((letrec-values(((loop_118)"
 "(lambda(v_112)"
 "(begin"
 " 'loop"
-"(let-values(((c_104)"
-"(let-values(((in_67) in_63)"
+"(let-values(((c_103)"
+"(let-values(((in_66) in_62)"
 "((skip-count_16) 0)"
-"((source_40)(read-config-source config_51)))"
-"(let-values(((c_105)"
+"((source_40)(read-config-source config_52)))"
+"(let-values(((c_104)"
 "(peek-char-or-special"
-" in_67"
+" in_66"
 " skip-count_16"
 " 'special"
 " source_40)))"
-"(if(eq? c_105 'special)(special1.1 'special) c_105)))))"
-"(let-values(((ec_9)(effective-char c_104 config_51)))"
+"(if(eq? c_104 'special)(special1.1 'special) c_104)))))"
+"(let-values(((ec_9)(effective-char c_103 config_52)))"
 "(if(not(char? ec_9))"
 "(let-values() v_112)"
 "(if(char-whitespace? ec_9)"
-"(let-values()(begin(consume-char in_63 c_104)(loop_119 v_112)))"
+"(let-values()(begin(consume-char in_62 c_103)(loop_118 v_112)))"
 "(if(char=? ec_9 '#\\.)"
 "(let-values()"
 "(let-values(((dot-line_2 dot-col_2 dot-pos_5)"
-"(port-next-location in_63)))"
-"(let-values((()(begin(consume-char in_63 c_104)(values))))"
-"(let-values(((cdot_0)"
-"(wrap"
-" '#%dot"
-" in_63"
+"(port-next-location in_62)))"
+"(let-values((()(begin(consume-char in_62 c_103)(values))))"
+"(let-values(((pos-config_0)"
 "(reading-at"
-" config_51"
+" config_52"
 " dot-line_2"
 " dot-col_2"
-" dot-pos_5)"
-" '#\\.)))"
+" dot-pos_5)))"
+"(let-values(((cdot_0)"
+"(wrap '#%dot in_62 pos-config_0 '#\\.)))"
 "(let-values(((post-v_0)"
-"(read-undotted #f in_63 config_51)))"
-"(loop_119"
+"(read-undotted #f in_62 config_52)))"
+"(begin"
+"(if(eof-object? post-v_0)"
+"(let-values()"
+"(let-values(((in79_0) in_62)"
+"((pos-config80_0) pos-config_0)"
+"((eof81_0) eof)"
+"((temp82_2)"
+"                                                                                    \"expected a datum after cdot, found end-of-file\"))"
+"(reader-error12.1"
+" unsafe-undefined"
+" eof81_0"
+" #f"
+" unsafe-undefined"
+" in79_0"
+" pos-config80_0"
+" temp82_2"
+"(list))))"
+"(void))"
+"(loop_118"
 "(wrap"
 "(list cdot_0 v_112 post-v_0)"
-" in_63"
-"(reading-at config_51 line_11 col_10 pos_92)"
-" '#\\.)))))))"
+" in_62"
+"(reading-at config_52 line_11 col_10 pos_92)"
+" '#\\.)))))))))"
 "(let-values() v_112))))))))))"
-" loop_119)"
+" loop_118)"
 " v_110))))))"
 "(void))))))"
 "(define-values"
 "(read-undotted)"
-"(lambda(init-c_18 in_68 config_57)"
+"(lambda(init-c_18 in_67 config_58)"
 "(begin"
-"(let-values(((c_106)(read-char/skip-whitespace-and-comments init-c_18 read-one in_68 config_57)))"
-"(let-values(((line_12 col_11 pos_121)(port-next-location* in_68 c_106)))"
-"(if(eof-object? c_106)"
+"(let-values(((c_31)(read-char/skip-whitespace-and-comments init-c_18 read-one in_67 config_58)))"
+"(let-values(((line_12 col_11 pos_121)(port-next-location* in_67 c_31)))"
+"(if(eof-object? c_31)"
 "(let-values() eof)"
-"(if(not(char? c_106))"
+"(if(not(char? c_31))"
 "(let-values()"
-"(let-values(((v_250)(special-value c_106)))"
+"(let-values(((v_250)(special-value c_31)))"
 "(if(1/special-comment? v_250)"
-"(let-values()(if(read-config-keep-comment? config_57) v_250(read-undotted #f in_68 config_57)))"
-"(let-values()(coerce v_250 in_68(reading-at config_57 line_12 col_11 pos_121))))))"
-"(let-values(((c2_8)(readtable-handler config_57 c_106)))"
+"(let-values()(if(read-config-keep-comment? config_58) v_250(read-undotted #f in_67 config_58)))"
+"(let-values()(coerce v_250 in_67(reading-at config_58 line_12 col_11 pos_121))))))"
+"(let-values(((c2_8)(readtable-handler config_58 c_31)))"
 "(if c2_8"
 "((lambda(handler_3)"
-"(let-values(((v_251)(readtable-apply handler_3 c_106 in_68 config_57 line_12 col_11 pos_121)))"
-"(retry-special-comment v_251 in_68 config_57)))"
+"(let-values(((v_251)(readtable-apply handler_3 c_31 in_67 config_58 line_12 col_11 pos_121)))"
+"(retry-special-comment v_251 in_67 config_58)))"
 " c2_8)"
 "(let-values()"
-"(let-values(((ec_10)(effective-char c_106 config_57)))"
+"(let-values(((ec_10)(effective-char c_31 config_58)))"
 "(let-values((()"
 "(begin"
-"(if(not(char-closer? ec_10 config_57))"
-"(let-values()(track-indentation! config_57 line_12 col_11))"
+"(if(not(char-closer? ec_10 config_58))"
+"(let-values()(track-indentation! config_58 line_12 col_11))"
 "(void))"
 "(values))))"
-"(let-values(((r-config_0)(reading-at(discard-comment config_57) line_12 col_11 pos_121)))"
+"(let-values(((r-config_0)(reading-at(discard-comment config_58) line_12 col_11 pos_121)))"
 "(let-values(((tmp_57) ec_10))"
 "(let-values(((index_4)"
 "(if(char? tmp_57)"
@@ -55629,13 +55651,13 @@ static const char *startup_source =
 "(if(unsafe-fx< index_4 1)"
 "(let-values()"
 "(let-values(((v_252)"
-"(let-values(((c79_1) c_106)"
-"((in80_1) in_68)"
-"((r-config81_0) r-config_0)"
-"((temp82_2)"
-"(if(let-values(((or-part_317)(eq? c_106 ec_10)))"
-"(if or-part_317"
-" or-part_317"
+"(let-values(((c83_0) c_31)"
+"((in84_1) in_67)"
+"((r-config85_0) r-config_0)"
+"((temp86_3)"
+"(if(let-values(((or-part_321)(eq? c_31 ec_10)))"
+"(if or-part_321"
+" or-part_321"
 "(if(<(char->integer ec_10) 128)"
 "(char-numeric? ec_10)"
 " #f)))"
@@ -55643,78 +55665,30 @@ static const char *startup_source =
 " 'symbol/indirect)))"
 "(read-symbol-or-number8.1"
 " #f"
-" temp82_2"
-" c79_1"
-" in80_1"
-" r-config81_0))))"
-"(retry-special-comment v_252 in_68 config_57)))"
-"(let-values()(read-dispatch c_106 in_68 r-config_0 config_57)))"
+" temp86_3"
+" c83_0"
+" in84_1"
+" r-config85_0))))"
+"(retry-special-comment v_252 in_67 config_58)))"
+"(let-values()(read-dispatch c_31 in_67 r-config_0 config_58)))"
 "(if(unsafe-fx< index_4 3)"
-"                                    (let-values () (read-quote read-one 'quote \"quoting \\\"'\\\"\" c_106 in_68 r-config_0))"
+"                                    (let-values () (read-quote read-one 'quote \"quoting \\\"'\\\"\" c_31 in_67 r-config_0))"
 "(if(unsafe-fx< index_4 4)"
 "(let-values()"
-"(if(check-parameter 1/read-accept-quasiquote config_57)"
+"(if(check-parameter 1/read-accept-quasiquote config_58)"
 "(let-values()"
 "(read-quote"
 " read-one"
 " 'quasiquote"
 "                                             \"quasiquoting \\\"`\\\"\""
-" c_106"
-" in_68"
+" c_31"
+" in_67"
 " r-config_0))"
 "(let-values()"
-"(let-values(((in83_0) in_68)"
-"((r-config84_0) r-config_0)"
-"                                                         ((temp85_2) \"illegal use of `~a`\")"
-"((c86_0) c_106))"
-"(reader-error12.1"
-" unsafe-undefined"
-" '#\\x"
-" #f"
-" unsafe-undefined"
-" in83_0"
-" r-config84_0"
-" temp85_2"
-"(list c86_0))))))"
-"(if(unsafe-fx< index_4 5)"
-"(let-values()"
-"(if(check-parameter 1/read-accept-quasiquote config_57)"
-"(let-values()"
-"(let-values(((c2_9)"
-"(let-values(((in_69) in_68)"
-"((skip-count_17) 0)"
-"((source_42)(read-config-source config_57)))"
-"(let-values(((c_107)"
-"(peek-char-or-special"
-" in_69"
-" skip-count_17"
-" 'special"
-" source_42)))"
-"(if(eq? c_107 'special)"
-"(special1.1 'special)"
-" c_107)))))"
-"(if(eqv? c2_9 '#\\@)"
-"(begin"
-"(consume-char in_68 c2_9)"
-"(read-quote"
-" read-one"
-" 'unquote-splicing"
-"                                                     \"unquoting `,@`\""
-" c_106"
-" in_68"
-" r-config_0))"
-"(read-quote"
-" read-one"
-" 'unquote"
-"                                                   \"unquoting `,`\""
-" c_106"
-" in_68"
-" r-config_0))))"
-"(let-values()"
-"(let-values(((in87_0) in_68)"
+"(let-values(((in87_0) in_67)"
 "((r-config88_0) r-config_0)"
-"                                                           ((temp89_3) \"illegal use of `~a`\")"
-"((c90_0) c_106))"
+"                                                         ((temp89_3) \"illegal use of `~a`\")"
+"((c90_0) c_31))"
 "(reader-error12.1"
 " unsafe-undefined"
 " '#\\x"
@@ -55724,107 +55698,131 @@ static const char *startup_source =
 " r-config88_0"
 " temp89_3"
 "(list c90_0))))))"
+"(if(unsafe-fx< index_4 5)"
+"(let-values()"
+"(if(check-parameter 1/read-accept-quasiquote config_58)"
+"(let-values()"
+"(let-values(((c2_9)"
+"(let-values(((in_68) in_67)"
+"((skip-count_17) 0)"
+"((source_42)(read-config-source config_58)))"
+"(let-values(((c_105)"
+"(peek-char-or-special"
+" in_68"
+" skip-count_17"
+" 'special"
+" source_42)))"
+"(if(eq? c_105 'special)"
+"(special1.1 'special)"
+" c_105)))))"
+"(if(eqv? c2_9 '#\\@)"
+"(begin"
+"(consume-char in_67 c2_9)"
+"(read-quote"
+" read-one"
+" 'unquote-splicing"
+"                                                     \"unquoting `,@`\""
+" c_31"
+" in_67"
+" r-config_0))"
+"(read-quote"
+" read-one"
+" 'unquote"
+"                                                   \"unquoting `,`\""
+" c_31"
+" in_67"
+" r-config_0))))"
+"(let-values()"
+"(let-values(((in91_0) in_67)"
+"((r-config92_0) r-config_0)"
+"                                                           ((temp93_2) \"illegal use of `~a`\")"
+"((c94_1) c_31))"
+"(reader-error12.1"
+" unsafe-undefined"
+" '#\\x"
+" #f"
+" unsafe-undefined"
+" in91_0"
+" r-config92_0"
+" temp93_2"
+"(list c94_1))))))"
 "(let-values()"
 "(wrap"
-"(let-values(((read-one91_0) read-one)"
-"((ec92_0) ec_10)"
-"((temp93_2) '#\\()"
-"((temp94_0) '#\\))"
-"((in95_0) in_68)"
-"((r-config96_0) r-config_0)"
-"((temp97_2) #t))"
+"(let-values(((read-one95_0) read-one)"
+"((ec96_0) ec_10)"
+"((temp97_2) '#\\()"
+"((temp98_3) '#\\))"
+"((in99_0) in_67)"
+"((r-config100_0) r-config_0)"
+"((temp101_0) #t))"
 "(read-unwrapped-sequence17.1"
 " 'all"
 " unsafe-undefined"
 " unsafe-undefined"
-" temp97_2"
+" temp101_0"
 " unsafe-undefined"
-" read-one91_0"
-" ec92_0"
-" temp93_2"
-" temp94_0"
-" in95_0"
-" r-config96_0))"
-" in_68"
+" read-one95_0"
+" ec96_0"
+" temp97_2"
+" temp98_3"
+" in99_0"
+" r-config100_0))"
+" in_67"
 " r-config_0"
 " ec_10))))))"
 "(if(unsafe-fx< index_4 9)"
 "(if(unsafe-fx< index_4 7)"
 "(let-values()"
-"(let-values(((in98_0) in_68)"
-"((r-config99_0) r-config_0)"
-"                                                   ((temp100_2) \"~a\")"
-"((temp101_0)"
-"(indentation-unexpected-closer-message ec_10 c_106 r-config_0)))"
+"(let-values(((in102_0) in_67)"
+"((r-config103_0) r-config_0)"
+"                                                   ((temp104_2) \"~a\")"
+"((temp105_3)"
+"(indentation-unexpected-closer-message ec_10 c_31 r-config_0)))"
 "(reader-error12.1"
 " unsafe-undefined"
 " '#\\x"
 " #f"
 " unsafe-undefined"
-" in98_0"
-" r-config99_0"
-" temp100_2"
-"(list temp101_0))))"
+" in102_0"
+" r-config103_0"
+" temp104_2"
+"(list temp105_3))))"
 "(if(unsafe-fx< index_4 8)"
 "(let-values()"
-"(if(let-values(((or-part_109)"
-"(check-parameter 1/read-square-bracket-as-paren config_57)))"
-"(if or-part_109"
-" or-part_109"
-"(check-parameter 1/read-square-bracket-with-tag config_57)))"
+"(if(let-values(((or-part_364)"
+"(check-parameter 1/read-square-bracket-as-paren config_58)))"
+"(if or-part_364"
+" or-part_364"
+"(check-parameter 1/read-square-bracket-with-tag config_58)))"
 "(let-values()"
 "(wrap"
-"(let-values(((read-one102_0) read-one)"
-"((ec103_0) ec_10)"
-"((temp104_2) '#\\[)"
-"((temp105_3) '#\\])"
-"((in106_0) in_68)"
-"((r-config107_0) r-config_0)"
-"((temp108_2) #t))"
+"(let-values(((read-one106_0) read-one)"
+"((ec107_0) ec_10)"
+"((temp108_2) '#\\[)"
+"((temp109_1) '#\\])"
+"((in110_0) in_67)"
+"((r-config111_0) r-config_0)"
+"((temp112_2) #t))"
 "(read-unwrapped-sequence17.1"
 " 'all"
 " unsafe-undefined"
 " unsafe-undefined"
-" temp108_2"
+" temp112_2"
 " unsafe-undefined"
-" read-one102_0"
-" ec103_0"
-" temp104_2"
-" temp105_3"
-" in106_0"
-" r-config107_0))"
-" in_68"
+" read-one106_0"
+" ec107_0"
+" temp108_2"
+" temp109_1"
+" in110_0"
+" r-config111_0))"
+" in_67"
 " r-config_0"
 " ec_10))"
 "(let-values()"
-"(let-values(((in109_0) in_68)"
-"((r-config110_0) r-config_0)"
-"                                                         ((temp111_2) \"illegal use of `~a`\")"
-"((c112_0) c_106))"
-"(reader-error12.1"
-" unsafe-undefined"
-" '#\\x"
-" #f"
-" unsafe-undefined"
-" in109_0"
-" r-config110_0"
-" temp111_2"
-"(list c112_0))))))"
-"(let-values()"
-"(if(let-values(((or-part_364)"
-"(check-parameter 1/read-square-bracket-as-paren config_57)))"
-"(if or-part_364"
-" or-part_364"
-"(check-parameter 1/read-square-bracket-with-tag config_57)))"
-"(let-values()"
-"(let-values(((in113_1) in_68)"
+"(let-values(((in113_1) in_67)"
 "((r-config114_0) r-config_0)"
-"                                                         ((temp115_0) \"~a\")"
-"((temp116_2)"
-"(indentation-unexpected-closer-message"
-" ec_10"
-" c_106"
-" r-config_0)))"
+"                                                         ((temp115_0) \"illegal use of `~a`\")"
+"((c116_0) c_31))"
 "(reader-error12.1"
 " unsafe-undefined"
 " '#\\x"
@@ -55833,12 +55831,22 @@ static const char *startup_source =
 " in113_1"
 " r-config114_0"
 " temp115_0"
-"(list temp116_2))))"
+"(list c116_0))))))"
 "(let-values()"
-"(let-values(((in117_0) in_68)"
+"(if(let-values(((or-part_94)"
+"(check-parameter 1/read-square-bracket-as-paren config_58)))"
+"(if or-part_94"
+" or-part_94"
+"(check-parameter 1/read-square-bracket-with-tag config_58)))"
+"(let-values()"
+"(let-values(((in117_0) in_67)"
 "((r-config118_0) r-config_0)"
-"                                                         ((temp119_2) \"illegal use of `~a`\")"
-"((c120_0) c_106))"
+"                                                         ((temp119_2) \"~a\")"
+"((temp120_3)"
+"(indentation-unexpected-closer-message"
+" ec_10"
+" c_31"
+" r-config_0)))"
 "(reader-error12.1"
 " unsafe-undefined"
 " '#\\x"
@@ -55847,68 +55855,57 @@ static const char *startup_source =
 " in117_0"
 " r-config118_0"
 " temp119_2"
-"(list c120_0))))))))"
-"(if(unsafe-fx< index_4 10)"
+"(list temp120_3))))"
 "(let-values()"
-"(if(let-values(((or-part_365)"
-"(check-parameter 1/read-curly-brace-as-paren config_57)))"
-"(if or-part_365"
-" or-part_365"
-"(check-parameter 1/read-curly-brace-with-tag config_57)))"
-"(let-values()"
-"(wrap"
-"(let-values(((read-one121_0) read-one)"
-"((ec122_0) ec_10)"
-"((temp123_2) '#\\{)"
-"((temp124_3) '#\\})"
-"((in125_0) in_68)"
-"((r-config126_0) r-config_0)"
-"((temp127_4) #t))"
-"(read-unwrapped-sequence17.1"
-" 'all"
-" unsafe-undefined"
-" unsafe-undefined"
-" temp127_4"
-" unsafe-undefined"
-" read-one121_0"
-" ec122_0"
-" temp123_2"
-" temp124_3"
-" in125_0"
-" r-config126_0))"
-" in_68"
-" r-config_0"
-" ec_10))"
-"(let-values()"
-"(let-values(((in128_0) in_68)"
-"((r-config129_0) r-config_0)"
-"                                                       ((temp130_1) \"illegal use of `~a`\")"
-"((c131_0) c_106))"
+"(let-values(((in121_0) in_67)"
+"((r-config122_0) r-config_0)"
+"                                                         ((temp123_2) \"illegal use of `~a`\")"
+"((c124_0) c_31))"
 "(reader-error12.1"
 " unsafe-undefined"
 " '#\\x"
 " #f"
 " unsafe-undefined"
-" in128_0"
-" r-config129_0"
-" temp130_1"
-"(list c131_0))))))"
-"(if(unsafe-fx< index_4 11)"
+" in121_0"
+" r-config122_0"
+" temp123_2"
+"(list c124_0))))))))"
+"(if(unsafe-fx< index_4 10)"
 "(let-values()"
-"(if(let-values(((or-part_366)"
-"(check-parameter 1/read-curly-brace-as-paren config_57)))"
-"(if or-part_366"
-" or-part_366"
-"(check-parameter 1/read-curly-brace-with-tag config_57)))"
+"(if(let-values(((or-part_365)"
+"(check-parameter 1/read-curly-brace-as-paren config_58)))"
+"(if or-part_365"
+" or-part_365"
+"(check-parameter 1/read-curly-brace-with-tag config_58)))"
 "(let-values()"
-"(let-values(((in132_0) in_68)"
+"(wrap"
+"(let-values(((read-one125_0) read-one)"
+"((ec126_0) ec_10)"
+"((temp127_4) '#\\{)"
+"((temp128_3) '#\\})"
+"((in129_0) in_67)"
+"((r-config130_0) r-config_0)"
+"((temp131_1) #t))"
+"(read-unwrapped-sequence17.1"
+" 'all"
+" unsafe-undefined"
+" unsafe-undefined"
+" temp131_1"
+" unsafe-undefined"
+" read-one125_0"
+" ec126_0"
+" temp127_4"
+" temp128_3"
+" in129_0"
+" r-config130_0))"
+" in_67"
+" r-config_0"
+" ec_10))"
+"(let-values()"
+"(let-values(((in132_0) in_67)"
 "((r-config133_0) r-config_0)"
-"                                                         ((temp134_2) \"~a\")"
-"((temp135_0)"
-"(indentation-unexpected-closer-message"
-" ec_10"
-" c_106"
-" r-config_0)))"
+"                                                       ((temp134_2) \"illegal use of `~a`\")"
+"((c135_0) c_31))"
 "(reader-error12.1"
 " unsafe-undefined"
 " '#\\x"
@@ -55917,12 +55914,23 @@ static const char *startup_source =
 " in132_0"
 " r-config133_0"
 " temp134_2"
-"(list temp135_0))))"
+"(list c135_0))))))"
+"(if(unsafe-fx< index_4 11)"
 "(let-values()"
-"(let-values(((in136_0) in_68)"
+"(if(let-values(((or-part_306)"
+"(check-parameter 1/read-curly-brace-as-paren config_58)))"
+"(if or-part_306"
+" or-part_306"
+"(check-parameter 1/read-curly-brace-with-tag config_58)))"
+"(let-values()"
+"(let-values(((in136_0) in_67)"
 "((r-config137_0) r-config_0)"
-"                                                         ((temp138_1) \"illegal use of `~a`\")"
-"((c139_0) c_106))"
+"                                                         ((temp138_1) \"~a\")"
+"((temp139_1)"
+"(indentation-unexpected-closer-message"
+" ec_10"
+" c_31"
+" r-config_0)))"
 "(reader-error12.1"
 " unsafe-undefined"
 " '#\\x"
@@ -55931,74 +55939,88 @@ static const char *startup_source =
 " in136_0"
 " r-config137_0"
 " temp138_1"
-"(list c139_0))))))"
+"(list temp139_1))))"
+"(let-values()"
+"(let-values(((in140_0) in_67)"
+"((r-config141_0) r-config_0)"
+"                                                         ((temp142_1) \"illegal use of `~a`\")"
+"((c143_0) c_31))"
+"(reader-error12.1"
+" unsafe-undefined"
+" '#\\x"
+" #f"
+" unsafe-undefined"
+" in140_0"
+" r-config141_0"
+" temp142_1"
+"(list c143_0))))))"
 "(if(unsafe-fx< index_4 12)"
 "(let-values()"
-"(let-values(((in140_0) in_68)((r-config141_0) r-config_0))"
-"(read-string5.1 'string in140_0 r-config141_0)))"
+"(let-values(((in144_0) in_67)((r-config145_0) r-config_0))"
+"(read-string5.1 'string in144_0 r-config145_0)))"
 "(let-values()"
-"(let-values(((c142_0) c_106)"
-"((in143_0) in_68)"
-"((r-config144_0) r-config_0)"
-"((temp145_1) 'symbol))"
+"(let-values(((c146_0) c_31)"
+"((in147_0) in_67)"
+"((r-config148_0) r-config_0)"
+"((temp149_1) 'symbol))"
 "(read-symbol-or-number8.1"
 " #f"
-" temp145_1"
-" c142_0"
-" in143_0"
-" r-config144_0)))))))))))))))))))))))"
+" temp149_1"
+" c146_0"
+" in147_0"
+" r-config148_0)))))))))))))))))))))))"
 "(define-values"
 "(read-dispatch)"
-"(lambda(dispatch-c_5 in_70 config_58 orig-config_0)"
+"(lambda(dispatch-c_5 in_69 config_59 orig-config_1)"
 "(begin"
-"(let-values(((c_108)"
-"(let-values(((in_71) in_70)((source_43)(read-config-source config_58)))"
-"(read-char-or-special in_71 special1.1 source_43))))"
-"(if(eof-object? c_108)"
+"(let-values(((c_106)"
+"(let-values(((in_70) in_69)((source_43)(read-config-source config_59)))"
+"(read-char-or-special in_70 special1.1 source_43))))"
+"(if(eof-object? c_106)"
 "(let-values()"
-"(let-values(((in146_0) in_70)"
-"((config147_0) config_58)"
-"((c148_0) c_108)"
-"                         ((temp149_1) \"bad syntax `~a`\")"
-"((dispatch-c150_0) dispatch-c_5))"
+"(let-values(((in150_0) in_69)"
+"((config151_0) config_59)"
+"((c152_0) c_106)"
+"                         ((temp153_1) \"bad syntax `~a`\")"
+"((dispatch-c154_0) dispatch-c_5))"
 "(reader-error12.1"
 " unsafe-undefined"
-" c148_0"
+" c152_0"
 " #f"
 " unsafe-undefined"
-" in146_0"
-" config147_0"
-" temp149_1"
-"(list dispatch-c150_0))))"
-"(if(not(char? c_108))"
+" in150_0"
+" config151_0"
+" temp153_1"
+"(list dispatch-c154_0))))"
+"(if(not(char? c_106))"
 "(let-values()"
-"(let-values(((in151_0) in_70)"
-"((config152_0) config_58)"
-"((c153_0) c_108)"
-"                           ((temp154_2) \"bad syntax `~a`\")"
-"((dispatch-c155_0) dispatch-c_5))"
+"(let-values(((in155_0) in_69)"
+"((config156_0) config_59)"
+"((c157_0) c_106)"
+"                           ((temp158_0) \"bad syntax `~a`\")"
+"((dispatch-c159_0) dispatch-c_5))"
 "(reader-error12.1"
 " unsafe-undefined"
-" c153_0"
+" c157_0"
 " #f"
 " unsafe-undefined"
-" in151_0"
-" config152_0"
-" temp154_2"
-"(list dispatch-c155_0))))"
-"(let-values(((c3_9)(readtable-dispatch-handler orig-config_0 c_108)))"
+" in155_0"
+" config156_0"
+" temp158_0"
+"(list dispatch-c159_0))))"
+"(let-values(((c3_9)(readtable-dispatch-handler orig-config_1 c_106)))"
 "(if c3_9"
 "((lambda(handler_4)"
-"(let-values(((line_13)(read-config-line config_58)))"
-"(let-values(((col_12)(read-config-col config_58)))"
-"(let-values(((pos_122)(read-config-pos config_58)))"
+"(let-values(((line_13)(read-config-line config_59)))"
+"(let-values(((col_12)(read-config-col config_59)))"
+"(let-values(((pos_122)(read-config-pos config_59)))"
 "(let-values(((v_253)"
-"(readtable-apply handler_4 c_108 in_70 config_58 line_13 col_12 pos_122)))"
-"(retry-special-comment v_253 in_70 orig-config_0))))))"
+"(readtable-apply handler_4 c_106 in_69 config_59 line_13 col_12 pos_122)))"
+"(retry-special-comment v_253 in_69 orig-config_1))))))"
 " c3_9)"
 "(let-values()"
 "(let-values()"
-"(let-values(((tmp_58) c_108))"
+"(let-values(((tmp_58) c_106))"
 "(let-values(((index_5)"
 "(if(char? tmp_58)"
 "(let-values(((codepoint_3)(char->integer tmp_58)))"
@@ -56106,465 +56128,465 @@ static const char *startup_source =
 "(if(unsafe-fx< index_5 3)"
 "(if(unsafe-fx< index_5 1)"
 "(let-values()"
-"(let-values(((in156_0) in_70)"
-"((config157_0) config_58)"
-"                                               ((temp158_0) \"bad syntax `~a~a`\")"
-"((dispatch-c159_0) dispatch-c_5)"
-"((c160_0) c_108))"
+"(let-values(((in160_0) in_69)"
+"((config161_0) config_59)"
+"                                               ((temp162_2) \"bad syntax `~a~a`\")"
+"((dispatch-c163_0) dispatch-c_5)"
+"((c164_0) c_106))"
 "(reader-error12.1"
 " unsafe-undefined"
 " '#\\x"
 " #f"
 " unsafe-undefined"
-" in156_0"
-" config157_0"
-" temp158_0"
-"(list dispatch-c159_0 c160_0))))"
+" in160_0"
+" config161_0"
+" temp162_2"
+"(list dispatch-c163_0 c164_0))))"
 "(if(unsafe-fx< index_5 2)"
-"(let-values()(read-vector-or-graph read-one dispatch-c_5 c_108 in_70 config_58))"
+"(let-values()(read-vector-or-graph read-one dispatch-c_5 c_106 in_69 config_59))"
 "(let-values()"
-"(let-values(((read-one161_0) read-one)"
-"((temp162_2) '#\\()"
-"((temp163_3) '#\\()"
-"((temp164_1) '#\\))"
-"((in165_0) in_70)"
-"((config166_0) config_58))"
+"(let-values(((read-one165_0) read-one)"
+"((temp166_1) '#\\()"
+"((temp167_0) '#\\()"
+"((temp168_2) '#\\))"
+"((in169_0) in_69)"
+"((config170_0) config_59))"
 "(read-vector11.1"
 " #f"
 " 'any"
-" read-one161_0"
-" temp162_2"
-" temp163_3"
-" temp164_1"
-" in165_0"
-" config166_0)))))"
+" read-one165_0"
+" temp166_1"
+" temp167_0"
+" temp168_2"
+" in169_0"
+" config170_0)))))"
 "(if(unsafe-fx< index_5 5)"
 "(if(unsafe-fx< index_5 4)"
 "(let-values()"
-"(if(check-parameter 1/read-square-bracket-as-paren config_58)"
+"(if(check-parameter 1/read-square-bracket-as-paren config_59)"
 "(let-values()"
-"(let-values(((read-one167_0) read-one)"
-"((temp168_2) '#\\[)"
-"((temp169_0) '#\\[)"
-"((temp170_2) '#\\])"
-"((in171_0) in_70)"
-"((config172_0) config_58))"
+"(let-values(((read-one171_0) read-one)"
+"((temp172_1) '#\\[)"
+"((temp173_1) '#\\[)"
+"((temp174_0) '#\\])"
+"((in175_0) in_69)"
+"((config176_0) config_59))"
 "(read-vector11.1"
 " #f"
 " 'any"
-" read-one167_0"
-" temp168_2"
-" temp169_0"
-" temp170_2"
-" in171_0"
-" config172_0)))"
+" read-one171_0"
+" temp172_1"
+" temp173_1"
+" temp174_0"
+" in175_0"
+" config176_0)))"
 "(let-values()"
-"(let-values(((in173_0) in_70)"
-"((config174_0) config_58)"
-"                                                     ((temp175_1) (format \"~a~a\" dispatch-c_5 c_108)))"
-"(bad-syntax-error20.1 '#\\x in173_0 config174_0 temp175_1)))))"
+"(let-values(((in177_0) in_69)"
+"((config178_0) config_59)"
+"                                                     ((temp179_0) (format \"~a~a\" dispatch-c_5 c_106)))"
+"(bad-syntax-error20.1 '#\\x in177_0 config178_0 temp179_0)))))"
 "(let-values()"
-"(if(check-parameter 1/read-curly-brace-as-paren config_58)"
+"(if(check-parameter 1/read-curly-brace-as-paren config_59)"
 "(let-values()"
-"(let-values(((read-one176_0) read-one)"
-"((temp177_2) '#\\{)"
-"((temp178_0) '#\\{)"
-"((temp179_0) '#\\})"
-"((in180_0) in_70)"
-"((config181_0) config_58))"
+"(let-values(((read-one180_0) read-one)"
+"((temp181_0) '#\\{)"
+"((temp182_0) '#\\{)"
+"((temp183_0) '#\\})"
+"((in184_0) in_69)"
+"((config185_0) config_59))"
 "(read-vector11.1"
 " #f"
 " 'any"
-" read-one176_0"
-" temp177_2"
-" temp178_0"
-" temp179_0"
-" in180_0"
-" config181_0)))"
+" read-one180_0"
+" temp181_0"
+" temp182_0"
+" temp183_0"
+" in184_0"
+" config185_0)))"
 "(let-values()"
-"(let-values(((in182_0) in_70)"
-"((config183_0) config_58)"
-"                                                     ((temp184_0) (format \"~a~a\" dispatch-c_5 c_108)))"
-"(bad-syntax-error20.1 '#\\x in182_0 config183_0 temp184_0))))))"
+"(let-values(((in186_0) in_69)"
+"((config187_0) config_59)"
+"                                                     ((temp188_0) (format \"~a~a\" dispatch-c_5 c_106)))"
+"(bad-syntax-error20.1 '#\\x in186_0 config187_0 temp188_0))))))"
 "(if(unsafe-fx< index_5 6)"
-"(let-values()(read-struct read-one dispatch-c_5 in_70 config_58))"
+"(let-values()(read-struct read-one dispatch-c_5 in_69 config_59))"
 "(if(unsafe-fx< index_5 7)"
-"(let-values()(read-box read-one dispatch-c_5 in_70 config_58))"
-"                                    (let-values () (read-quote read-one 'syntax \"quoting #'\" c_108 in_70 config_58))))))"
+"(let-values()(read-box read-one dispatch-c_5 in_69 config_59))"
+"                                    (let-values () (read-quote read-one 'syntax \"quoting #'\" c_106 in_69 config_59))))))"
 "(if(unsafe-fx< index_5 12)"
 "(if(unsafe-fx< index_5 9)"
 "(let-values()"
-"                                  (read-quote read-one 'quasisyntax \"quasiquoting #`\" c_108 in_70 config_58))"
+"                                  (read-quote read-one 'quasisyntax \"quasiquoting #`\" c_106 in_69 config_59))"
 "(if(unsafe-fx< index_5 10)"
 "(let-values()"
 "(let-values(((c2_10)"
-"(let-values(((in_72) in_70)"
+"(let-values(((in_71) in_69)"
 "((skip-count_18) 0)"
-"((source_44)(read-config-source config_58)))"
-"(let-values(((c_109)"
+"((source_44)(read-config-source config_59)))"
+"(let-values(((c_107)"
 "(peek-char-or-special"
-" in_72"
+" in_71"
 " skip-count_18"
 " 'special"
 " source_44)))"
-"(if(eq? c_109 'special)(special1.1 'special) c_109)))))"
+"(if(eq? c_107 'special)(special1.1 'special) c_107)))))"
 "(if(eqv? c2_10 '#\\@)"
 "(begin"
-"(consume-char in_70 c2_10)"
+"(consume-char in_69 c2_10)"
 "(read-quote"
 " read-one"
 " 'unsyntax-splicing"
 "                                           \"unquoting #,@\""
-" c_108"
-" in_70"
-" config_58))"
-"                                        (read-quote read-one 'unsyntax \"unquoting #,\" c_108 in_70 config_58))))"
+" c_106"
+" in_69"
+" config_59))"
+"                                        (read-quote read-one 'unsyntax \"unquoting #,\" c_106 in_69 config_59))))"
 "(if(unsafe-fx< index_5 11)"
-"(let-values()(read-character in_70 config_58))"
+"(let-values()(read-character in_69 config_59))"
 "(let-values()"
-"(let-values(((in185_0) in_70)"
-"((config186_0) config_58)"
-"((temp187_0) '|byte string|))"
-"(read-string5.1 temp187_0 in185_0 config186_0))))))"
+"(let-values(((in189_0) in_69)"
+"((config190_0) config_59)"
+"((temp191_0) '|byte string|))"
+"(read-string5.1 temp191_0 in189_0 config190_0))))))"
 "(if(unsafe-fx< index_5 14)"
 "(if(unsafe-fx< index_5 13)"
 "(let-values()"
 "(let-values(((c2_11)"
-"(let-values(((in_73) in_70)"
+"(let-values(((in_72) in_69)"
 "((skip-count_19) 0)"
-"((source_45)(read-config-source config_58)))"
-"(let-values(((c_110)"
+"((source_45)(read-config-source config_59)))"
+"(let-values(((c_108)"
 "(peek-char-or-special"
-" in_73"
+" in_72"
 " skip-count_19"
 " 'special"
 " source_45)))"
-"(if(eq? c_110 'special)(special1.1 'special) c_110)))))"
+"(if(eq? c_108 'special)(special1.1 'special) c_108)))))"
 "(if(eqv? '#\\< c2_11)"
 "(let-values()"
-"(begin(consume-char in_70 '#\\<)(read-here-string in_70 config_58)))"
+"(begin(consume-char in_69 '#\\<)(read-here-string in_69 config_59)))"
 "(let-values()"
-"(let-values(((in188_0) in_70)"
-"((config189_0) config_58)"
-"((c2190_0) c2_11)"
-"                                                       ((temp191_0) \"bad syntax `~a<`\")"
-"((dispatch-c192_0) dispatch-c_5))"
+"(let-values(((in192_0) in_69)"
+"((config193_0) config_59)"
+"((c2194_0) c2_11)"
+"                                                       ((temp195_0) \"bad syntax `~a<`\")"
+"((dispatch-c196_0) dispatch-c_5))"
 "(reader-error12.1"
 " unsafe-undefined"
-" c2190_0"
+" c2194_0"
 " #f"
 " unsafe-undefined"
-" in188_0"
-" config189_0"
-" temp191_0"
-"(list dispatch-c192_0)))))))"
+" in192_0"
+" config193_0"
+" temp195_0"
+"(list dispatch-c196_0)))))))"
 "(let-values()"
-"(let-values(((c193_0) c_108)"
-"((in194_0) in_70)"
-"((config195_0) config_58)"
-"((dispatch-c196_0) dispatch-c_5)"
-"((temp197_1) 'symbol))"
-"(read-symbol-or-number8.1 dispatch-c196_0 temp197_1 c193_0 in194_0 config195_0))))"
+"(let-values(((c197_0) c_106)"
+"((in198_0) in_69)"
+"((config199_0) config_59)"
+"((dispatch-c200_0) dispatch-c_5)"
+"((temp201_1) 'symbol))"
+"(read-symbol-or-number8.1 dispatch-c200_0 temp201_1 c197_0 in198_0 config199_0))))"
 "(if(unsafe-fx< index_5 15)"
 "(let-values()"
-"(let-values(((temp198_1) #f)"
-"((in199_0) in_70)"
-"((config200_0) config_58)"
-"((temp201_1) 'keyword))"
-"(read-symbol-or-number8.1 #f temp201_1 temp198_1 in199_0 config200_0)))"
+"(let-values(((temp202_0) #f)"
+"((in203_0) in_69)"
+"((config204_0) config_59)"
+"((temp205_0) 'keyword))"
+"(read-symbol-or-number8.1 #f temp205_0 temp202_0 in203_0 config204_0)))"
 "(if(unsafe-fx< index_5 16)"
 "(let-values()"
 "(let-values(((c2_12)"
-"(let-values(((in_74) in_70)"
+"(let-values(((in_73) in_69)"
 "((skip-count_20) 0)"
-"((source_46)(read-config-source config_58)))"
-"(let-values(((c_111)"
+"((source_46)(read-config-source config_59)))"
+"(let-values(((c_109)"
 "(peek-char-or-special"
-" in_74"
+" in_73"
 " skip-count_20"
 " 'special"
 " source_46)))"
-"(if(eq? c_111 'special)(special1.1 'special) c_111)))))"
-"(if(char-delimiter? c2_12 config_58)"
-"(let-values()(wrap #t in_70 config_58 c_108))"
+"(if(eq? c_109 'special)(special1.1 'special) c_109)))))"
+"(if(char-delimiter? c2_12 config_59)"
+"(let-values()(wrap #t in_69 config_59 c_106))"
 "(let-values()"
 "(read-delimited-constant"
-" c_108"
-"(char=? c_108 '#\\t)"
+" c_106"
+"(char=? c_106 '#\\t)"
 " '(#\\r #\\u #\\e)"
 " #t"
-" in_70"
-" config_58)))))"
+" in_69"
+" config_59)))))"
 "(let-values()"
 "(let-values(((c2_13)"
-"(let-values(((in_75) in_70)"
+"(let-values(((in_74) in_69)"
 "((skip-count_21) 0)"
-"((source_47)(read-config-source config_58)))"
-"(let-values(((c_112)"
+"((source_47)(read-config-source config_59)))"
+"(let-values(((c_110)"
 "(peek-char-or-special"
-" in_75"
+" in_74"
 " skip-count_21"
 " 'special"
 " source_47)))"
-"(if(eq? c_112 'special)(special1.1 'special) c_112)))))"
-"(if(char-delimiter? c2_13 config_58)"
-"(let-values()(wrap #f in_70 config_58 c_108))"
-"(if(let-values(((or-part_367)(char=? c2_13 '#\\x)))"
-"(if or-part_367 or-part_367(char=? c2_13 '#\\l)))"
+"(if(eq? c_110 'special)(special1.1 'special) c_110)))))"
+"(if(char-delimiter? c2_13 config_59)"
+"(let-values()(wrap #f in_69 config_59 c_106))"
+"(if(let-values(((or-part_366)(char=? c2_13 '#\\x)))"
+"(if or-part_366 or-part_366(char=? c2_13 '#\\l)))"
 "(let-values()"
 "(read-fixnum-or-flonum-vector"
 " read-one"
 " dispatch-c_5"
-" c_108"
+" c_106"
 " c2_13"
-" in_70"
-" config_58))"
+" in_69"
+" config_59))"
 "(let-values()"
 "(read-delimited-constant"
-" c_108"
-"(char=? c_108 '#\\f)"
+" c_106"
+"(char=? c_106 '#\\f)"
 " '(#\\a #\\l #\\s #\\e)"
 " #f"
-" in_70"
-" config_58)))))))))))"
+" in_69"
+" config_59)))))))))))"
 "(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_70)"
-"((config204_0) config_58)"
-"                                               ((temp205_0) \"#e\"))"
-"(read-symbol-or-number8.1 #f temp205_0 temp202_0 in203_0 config204_0)))"
+"(let-values(((temp206_0) #f)"
+"((in207_0) in_69)"
+"((config208_0) config_59)"
+"                                               ((temp209_2) \"#e\"))"
+"(read-symbol-or-number8.1 #f temp209_2 temp206_0 in207_0 config208_0)))"
 "(if(unsafe-fx< index_5 19)"
 "(let-values()"
-"(let-values(((temp206_0) #f)"
-"((in207_0) in_70)"
-"((config208_0) config_58)"
-"                                                 ((temp209_2) \"#E\"))"
-"(read-symbol-or-number8.1 #f temp209_2 temp206_0 in207_0 config208_0)))"
+"(let-values(((temp210_1) #f)"
+"((in211_0) in_69)"
+"((config212_0) config_59)"
+"                                                 ((temp213_1) \"#E\"))"
+"(read-symbol-or-number8.1 #f temp213_1 temp210_1 in211_0 config212_0)))"
 "(if(unsafe-fx< index_5 20)"
 "(let-values()"
-"(let-values(((temp210_1) #f)"
-"((in211_0) in_70)"
-"((config212_0) config_58)"
-"                                                   ((temp213_1) \"#i\"))"
-"(read-symbol-or-number8.1 #f temp213_1 temp210_1 in211_0 config212_0)))"
-"(let-values()"
 "(let-values(((temp214_1) #f)"
-"((in215_0) in_70)"
-"((config216_0) config_58)"
-"                                                   ((temp217_2) \"#I\"))"
-"(read-symbol-or-number8.1 #f temp217_2 temp214_1 in215_0 config216_0))))))"
+"((in215_0) in_69)"
+"((config216_0) config_59)"
+"                                                   ((temp217_2) \"#i\"))"
+"(read-symbol-or-number8.1 #f temp217_2 temp214_1 in215_0 config216_0)))"
+"(let-values()"
+"(let-values(((temp218_0) #f)"
+"((in219_0) in_69)"
+"((config220_0) config_59)"
+"                                                   ((temp221_2) \"#I\"))"
+"(read-symbol-or-number8.1 #f temp221_2 temp218_0 in219_0 config220_0))))))"
 "(if(unsafe-fx< index_5 23)"
 "(if(unsafe-fx< index_5 22)"
 "(let-values()"
-"(let-values(((temp218_0) #f)"
-"((in219_0) in_70)"
-"((config220_0) config_58)"
-"                                                 ((temp221_2) \"#d\"))"
-"(read-symbol-or-number8.1 #f temp221_2 temp218_0 in219_0 config220_0)))"
-"(let-values()"
 "(let-values(((temp222_1) #f)"
-"((in223_0) in_70)"
-"((config224_0) config_58)"
-"                                                 ((temp225_1) \"#B\"))"
-"(read-symbol-or-number8.1 #f temp225_1 temp222_1 in223_0 config224_0))))"
-"(if(unsafe-fx< index_5 24)"
+"((in223_0) in_69)"
+"((config224_0) config_59)"
+"                                                 ((temp225_1) \"#d\"))"
+"(read-symbol-or-number8.1 #f temp225_1 temp222_1 in223_0 config224_0)))"
 "(let-values()"
 "(let-values(((temp226_2) #f)"
-"((in227_0) in_70)"
-"((config228_0) config_58)"
-"                                                 ((temp229_2) \"#o\"))"
-"(read-symbol-or-number8.1 #f temp229_2 temp226_2 in227_0 config228_0)))"
-"(if(unsafe-fx< index_5 25)"
+"((in227_0) in_69)"
+"((config228_0) config_59)"
+"                                                 ((temp229_2) \"#B\"))"
+"(read-symbol-or-number8.1 #f temp229_2 temp226_2 in227_0 config228_0))))"
+"(if(unsafe-fx< index_5 24)"
 "(let-values()"
 "(let-values(((temp230_2) #f)"
-"((in231_0) in_70)"
-"((config232_0) config_58)"
-"                                                   ((temp233_1) \"#O\"))"
+"((in231_0) in_69)"
+"((config232_0) config_59)"
+"                                                 ((temp233_1) \"#o\"))"
 "(read-symbol-or-number8.1 #f temp233_1 temp230_2 in231_0 config232_0)))"
+"(if(unsafe-fx< index_5 25)"
 "(let-values()"
 "(let-values(((temp234_0) #f)"
-"((in235_0) in_70)"
-"((config236_0) config_58)"
-"                                                   ((temp237_0) \"#D\"))"
-"(read-symbol-or-number8.1 #f temp237_0 temp234_0 in235_0 config236_0)))))))"
+"((in235_0) in_69)"
+"((config236_0) config_59)"
+"                                                   ((temp237_0) \"#O\"))"
+"(read-symbol-or-number8.1 #f temp237_0 temp234_0 in235_0 config236_0)))"
+"(let-values()"
+"(let-values(((temp238_0) #f)"
+"((in239_0) in_69)"
+"((config240_0) config_59)"
+"                                                   ((temp241_0) \"#D\"))"
+"(read-symbol-or-number8.1 #f temp241_0 temp238_0 in239_0 config240_0)))))))"
 "(if(unsafe-fx< index_5 30)"
 "(if(unsafe-fx< index_5 27)"
 "(let-values()"
-"(let-values(((temp238_0) #f)"
-"((in239_0) in_70)"
-"((config240_0) config_58)"
-"                                               ((temp241_0) \"#b\"))"
-"(read-symbol-or-number8.1 #f temp241_0 temp238_0 in239_0 config240_0)))"
+"(let-values(((temp242_1) #f)"
+"((in243_0) in_69)"
+"((config244_0) config_59)"
+"                                               ((temp245_0) \"#b\"))"
+"(read-symbol-or-number8.1 #f temp245_0 temp242_1 in243_0 config244_0)))"
 "(if(unsafe-fx< index_5 28)"
 "(let-values()"
-"(let-values(((temp242_1) #f)"
-"((in243_0) in_70)"
-"((config244_0) config_58)"
-"                                                 ((temp245_0) \"#x\"))"
-"(read-symbol-or-number8.1 #f temp245_0 temp242_1 in243_0 config244_0)))"
+"(let-values(((temp246_0) #f)"
+"((in247_0) in_69)"
+"((config248_0) config_59)"
+"                                                 ((temp249_1) \"#x\"))"
+"(read-symbol-or-number8.1 #f temp249_1 temp246_0 in247_0 config248_0)))"
 "(if(unsafe-fx< index_5 29)"
 "(let-values()"
-"(let-values(((temp246_0) #f)"
-"((in247_0) in_70)"
-"((config248_0) config_58)"
-"                                                   ((temp249_1) \"#X\"))"
-"(read-symbol-or-number8.1 #f temp249_1 temp246_0 in247_0 config248_0)))"
+"(let-values(((temp250_2) #f)"
+"((in251_0) in_69)"
+"((config252_0) config_59)"
+"                                                   ((temp253_0) \"#X\"))"
+"(read-symbol-or-number8.1 #f temp253_0 temp250_2 in251_0 config252_0)))"
 "(let-values()"
 "(let-values(((c2_14)"
-"(let-values(((in_76) in_70)"
-"((source_48)(read-config-source config_58)))"
-"(read-char-or-special in_76 special1.1 source_48))))"
-"(let-values(((tmp_59) c2_14))"
-"(if(if(equal? tmp_59 '#\\s) #t(equal? tmp_59 '#\\S))"
+"(let-values(((in_75) in_69)"
+"((source_48)(read-config-source config_59)))"
+"(read-char-or-special in_75 special1.1 source_48))))"
+"(let-values(((tmp_1) c2_14))"
+"(if(if(equal? tmp_1 '#\\s) #t(equal? tmp_1 '#\\S))"
 "(let-values()"
-"(read-one #f in_70(override-parameter read-case-sensitive config_58 #t)))"
-"(if(if(equal? tmp_59 '#\\i) #t(equal? tmp_59 '#\\I))"
+"(read-one #f in_69(override-parameter read-case-sensitive config_59 #t)))"
+"(if(if(equal? tmp_1 '#\\i) #t(equal? tmp_1 '#\\I))"
 "(let-values()"
 "(read-one"
 " #f"
-" in_70"
-"(override-parameter read-case-sensitive config_58 #f)))"
+" in_69"
+"(override-parameter read-case-sensitive config_59 #f)))"
 "(let-values()"
-"(let-values(((in250_0) in_70)"
-"((config251_0) config_58)"
-"((c2252_0) c2_14)"
-"                                                             ((temp253_0) \"expected `s', `S`, `i`, or `I` after `~a~a`\")"
-"((dispatch-c254_0) dispatch-c_5)"
-"((c255_0) c_108))"
+"(let-values(((in254_0) in_69)"
+"((config255_0) config_59)"
+"((c2256_0) c2_14)"
+"                                                             ((temp257_0) \"expected `s', `S`, `i`, or `I` after `~a~a`\")"
+"((dispatch-c258_0) dispatch-c_5)"
+"((c259_0) c_106))"
 "(reader-error12.1"
 " unsafe-undefined"
-" c2252_0"
+" c2256_0"
 " #f"
 " unsafe-undefined"
-" in250_0"
-" config251_0"
-" temp253_0"
-"(list dispatch-c254_0 c255_0))))))))))))"
+" in254_0"
+" config255_0"
+" temp257_0"
+"(list dispatch-c258_0 c259_0))))))))))))"
 "(if(unsafe-fx< index_5 32)"
 "(if(unsafe-fx< index_5 31)"
-"(let-values()(read-hash read-one dispatch-c_5 c_108 in_70 config_58))"
+"(let-values()(read-hash read-one dispatch-c_5 c_106 in_69 config_59))"
 "(let-values()"
-"(let-values(((accum-str_12)(accum-string-init! config_58)))"
+"(let-values(((accum-str_12)(accum-string-init! config_59)))"
 "(let-values((()(begin(accum-string-add! accum-str_12 dispatch-c_5)(values))))"
-"(let-values((()(begin(accum-string-add! accum-str_12 c_108)(values))))"
+"(let-values((()(begin(accum-string-add! accum-str_12 c_106)(values))))"
 "(let-values(((c2_15)"
-"(let-values(((in_77) in_70)"
-"((source_49)(read-config-source config_58)))"
-"(read-char-or-special in_77 special1.1 source_49))))"
+"(let-values(((in_76) in_69)"
+"((source_49)(read-config-source config_59)))"
+"(read-char-or-special in_76 special1.1 source_49))))"
 "(begin"
 "(if(char? c2_15)"
 "(let-values()(accum-string-add! accum-str_12 c2_15))"
 "(void))"
-"(let-values(((tmp_60) c2_15))"
-"(if(equal? tmp_60 '#\\x)"
-"(let-values()(read-regexp c_108 accum-str_12 in_70 config_58))"
-"(if(equal? tmp_60 '#\\e)"
+"(let-values(((tmp_59) c2_15))"
+"(if(equal? tmp_59 '#\\x)"
+"(let-values()(read-regexp c_106 accum-str_12 in_69 config_59))"
+"(if(equal? tmp_59 '#\\e)"
 "(let-values()"
 "(read-extension-reader"
 " read-one"
 " read-undotted"
 " dispatch-c_5"
-" in_70"
-" config_58))"
+" in_69"
+" config_59))"
 "(let-values()"
-"(let-values(((in256_0) in_70)"
-"((config257_0) config_58)"
-"((c2258_0) c2_15)"
-"((temp259_0)"
-"(let-values(((accum-str260_0) accum-str_12)"
-"((config261_0) config_58))"
+"(let-values(((in260_0) in_69)"
+"((config261_0) config_59)"
+"((c2262_0) c2_15)"
+"((temp263_0)"
+"(let-values(((accum-str264_0) accum-str_12)"
+"((config265_0) config_59))"
 "(accum-string-get!6.1"
 " 0"
-" accum-str260_0"
-" config261_0))))"
+" accum-str264_0"
+" config265_0))))"
 "(bad-syntax-error20.1"
-" c2258_0"
-" in256_0"
-" config257_0"
-" temp259_0)))))))))))))"
+" c2262_0"
+" in260_0"
+" config261_0"
+" temp263_0)))))))))))))"
 "(if(unsafe-fx< index_5 33)"
 "(let-values()"
-"(let-values(((accum-str_13)(accum-string-init! config_58)))"
+"(let-values(((accum-str_13)(accum-string-init! config_59)))"
 "(let-values((()(begin(accum-string-add! accum-str_13 dispatch-c_5)(values))))"
-"(let-values((()(begin(accum-string-add! accum-str_13 c_108)(values))))"
+"(let-values((()(begin(accum-string-add! accum-str_13 c_106)(values))))"
 "(let-values(((c2_16)"
-"(let-values(((in_78) in_70)"
-"((source_50)(read-config-source config_58)))"
-"(read-char-or-special in_78 special1.1 source_50))))"
+"(let-values(((in_77) in_69)"
+"((source_50)(read-config-source config_59)))"
+"(read-char-or-special in_77 special1.1 source_50))))"
 "(begin"
 "(if(char? c2_16)"
 "(let-values()(accum-string-add! accum-str_13 c2_16))"
 "(void))"
-"(let-values(((tmp_61) c2_16))"
-"(if(equal? tmp_61 '#\\x)"
-"(let-values()(read-regexp c_108 accum-str_13 in_70 config_58))"
+"(let-values(((tmp_60) c2_16))"
+"(if(equal? tmp_60 '#\\x)"
+"(let-values()(read-regexp c_106 accum-str_13 in_69 config_59))"
 "(let-values()"
-"(let-values(((in262_0) in_70)"
-"((config263_0) config_58)"
-"((c2264_0) c2_16)"
-"((temp265_1)"
-"(let-values(((accum-str266_0) accum-str_13)"
-"((config267_0) config_58))"
+"(let-values(((in266_0) in_69)"
+"((config267_0) config_59)"
+"((c2268_0) c2_16)"
+"((temp269_0)"
+"(let-values(((accum-str270_0) accum-str_13)"
+"((config271_0) config_59))"
 "(accum-string-get!6.1"
 " 0"
-" accum-str266_0"
-" config267_0))))"
+" accum-str270_0"
+" config271_0))))"
 "(bad-syntax-error20.1"
-" c2264_0"
-" in262_0"
-" config263_0"
-" temp265_1)))))))))))"
+" c2268_0"
+" in266_0"
+" config267_0"
+" temp269_0)))))))))))"
 "(if(unsafe-fx< index_5 34)"
 "(let-values()"
-"(let-values(((read-undotted268_0) read-undotted)"
-"((dispatch-c269_0) dispatch-c_5)"
-"((in270_0) in_70)"
-"((config271_0) config_58))"
-"(read-extension-lang7.1"
-" #f"
-" read-undotted268_0"
-" dispatch-c269_0"
-" in270_0"
-" config271_0)))"
-"(if(unsafe-fx< index_5 35)"
-"(let-values()"
 "(let-values(((read-undotted272_0) read-undotted)"
 "((dispatch-c273_0) dispatch-c_5)"
-"((in274_0) in_70)"
-"((config275_0) config_58))"
-"(read-extension-#!16.1"
+"((in274_0) in_69)"
+"((config275_0) config_59))"
+"(read-extension-lang7.1"
 " #f"
 " read-undotted272_0"
 " dispatch-c273_0"
 " in274_0"
 " config275_0)))"
+"(if(unsafe-fx< index_5 35)"
 "(let-values()"
-"(if(check-parameter 1/read-accept-compiled config_58)"
+"(let-values(((read-undotted276_0) read-undotted)"
+"((dispatch-c277_0) dispatch-c_5)"
+"((in278_0) in_69)"
+"((config279_0) config_59))"
+"(read-extension-#!16.1"
+" #f"
+" read-undotted276_0"
+" dispatch-c277_0"
+" in278_0"
+" config279_0)))"
 "(let-values()"
-"(wrap((read-config-read-compiled config_58) in_70) in_70 config_58 c_108))"
+"(if(check-parameter 1/read-accept-compiled config_59)"
 "(let-values()"
-"(let-values(((in276_0) in_70)"
-"((config277_0) config_58)"
-"                                                         ((temp278_1) \"`~a~~` compiled expressions not enabled\")"
-"((dispatch-c279_0) dispatch-c_5))"
+"(wrap((read-config-read-compiled config_59) in_69) in_69 config_59 c_106))"
+"(let-values()"
+"(let-values(((in280_0) in_69)"
+"((config281_0) config_59)"
+"                                                         ((temp282_0) \"`~a~~` compiled expressions not enabled\")"
+"((dispatch-c283_0) dispatch-c_5))"
 "(reader-error12.1"
 " unsafe-undefined"
 " '#\\x"
 " #f"
 " unsafe-undefined"
-" in276_0"
-" config277_0"
-" temp278_1"
-"(list dispatch-c279_0)))))))))))))))))))))))))"
+" in280_0"
+" config281_0"
+" temp282_0"
+"(list dispatch-c283_0)))))))))))))))))))))))))"
 "(define-values"
 "(retry-special-comment)"
-"(lambda(v_254 in_79 config_59)"
+"(lambda(v_254 in_78 config_60)"
 "(begin"
 "(if(1/special-comment? v_254)"
-"(let-values()(if(read-config-keep-comment? config_59) v_254(read-undotted #f in_79 config_59)))"
+"(let-values()(if(read-config-keep-comment? config_60) v_254(read-undotted #f in_78 config_60)))"
 "(let-values() v_254)))))"
 "(define-values"
 "(1/module-declared?)"
@@ -56937,7 +56959,7 @@ static const char *startup_source =
 "(lambda(for-syntax?1_0 init-c4_0 local-graph?6_1 readtable5_0 recursive?2_0 source3_0 in13_3)"
 "(begin"
 " 'read*14"
-"(let-values(((in_80) in13_3))"
+"(let-values(((in_79) in13_3))"
 "(let-values(((for-syntax?_11) for-syntax?1_0))"
 "(let-values(((recursive?_1) recursive?2_0))"
 "(let-values(((source_51) source3_0))"
@@ -56947,7 +56969,7 @@ static const char *startup_source =
 "(let-values(((local-graph?_2) local-graph?6_1))"
 "(let-values()"
 "(let-values()"
-"(let-values(((in40_2) in_80)"
+"(let-values(((in40_2) in_79)"
 "((for-syntax?41_0) for-syntax?_11)"
 "((recursive?42_0) recursive?_1)"
 "((source43_0) source_51)"
@@ -56978,10 +57000,10 @@ static const char *startup_source =
 " in40_2))))))))))))))"
 "(define-values"
 "(read-language$1)"
-"(lambda(in_81 fail-thunk_0)"
+"(lambda(in_80 fail-thunk_0)"
 "(begin"
 " 'read-language"
-"(let-values(((in53_0) in_81)"
+"(let-values(((in53_0) in_80)"
 "((fail-thunk54_0) fail-thunk_0)"
 "((temp55_2) #t)"
 "((read-to-syntax56_0) read-to-syntax)"
@@ -57009,10 +57031,10 @@ static const char *startup_source =
 "(let-values(((content62_0)(datum-intern-literal s-exp_4))"
 "((srcloc63_0) srcloc_11)"
 "((props64_0)"
-"(let-values(((tmp_62) rep_1))"
-"(if(equal? tmp_62 '#\\[)"
+"(let-values(((tmp_61) rep_1))"
+"(if(equal? tmp_61 '#\\[)"
 "(let-values() original-square-props)"
-"(if(equal? tmp_62 '#\\{)"
+"(if(equal? tmp_61 '#\\{)"
 "(let-values() original-curly-props)"
 "(let-values() original-props))))))"
 "(syntax1.1"
@@ -57087,19 +57109,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"
@@ -57135,15 +57157,15 @@ static const char *startup_source =
 "(begin"
 " 'read-syntax3"
 "(let-values(((src_2)(if(eq? src1_0 unsafe-undefined)(object-name(current-input-port)) src1_0)))"
-"(let-values(((in_50)(if(eq? in2_0 unsafe-undefined)(current-input-port) in2_0)))"
+"(let-values(((in_49)(if(eq? in2_0 unsafe-undefined)(current-input-port) in2_0)))"
 "(let-values()"
 "(let-values()"
 "(let-values()"
 "(begin"
-"(if(input-port? in_50)"
+"(if(input-port? in_49)"
 "(void)"
-"                                  (let-values () (raise-argument-error 'read-syntax \"input-port?\" in_50)))"
-"(read-syntax$1 src_2 in_50)))))))))))"
+"                                  (let-values () (raise-argument-error 'read-syntax \"input-port?\" in_49)))"
+"(read-syntax$1 src_2 in_49)))))))))))"
 "(case-lambda"
 "(()(begin 'read-syntax(read-syntax3_0 unsafe-undefined unsafe-undefined)))"
 "((src_3 in2_1)(read-syntax3_0 src_3 in2_1))"
@@ -57155,7 +57177,7 @@ static const char *startup_source =
 "(begin"
 " 'read-syntax/recursive10"
 "(let-values(((src_4)(if(eq? src5_0 unsafe-undefined)(object-name(current-input-port)) src5_0)))"
-"(let-values(((in_84)(if(eq? in6_3 unsafe-undefined)(current-input-port) in6_3)))"
+"(let-values(((in_83)(if(eq? in6_3 unsafe-undefined)(current-input-port) in6_3)))"
 "(let-values(((start_59) start7_0))"
 "(let-values(((readtable_7)"
 "(if(eq? readtable8_0 unsafe-undefined)(1/current-readtable) readtable8_0)))"
@@ -57164,10 +57186,10 @@ static const char *startup_source =
 "(let-values()"
 "(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)))"
+"                                          (raise-argument-error 'read-syntax/recursive \"input-port?\" in_83)))"
 "(if((lambda(x_93)"
 "(let-values(((or-part_298)(not x_93)))"
 "(if or-part_298 or-part_298(char? x_93))))"
@@ -57185,7 +57207,7 @@ static const char *startup_source =
 " 'read-syntax/recursive"
 "                                           \"(or/c readtable? #f)\""
 " readtable_7)))"
-"(read-syntax/recursive$1 src_4 in_84 start_59 readtable_7 graph?_3))))))))))))))"
+"(read-syntax/recursive$1 src_4 in_83 start_59 readtable_7 graph?_3))))))))))))))"
 "(case-lambda"
 "(()"
 "(begin"
@@ -57202,15 +57224,15 @@ static const char *startup_source =
 "(lambda(in12_1)"
 "(begin"
 " 'read13"
-"(let-values(((in_85)(if(eq? in12_1 unsafe-undefined)(current-input-port) in12_1)))"
+"(let-values(((in_84)(if(eq? in12_1 unsafe-undefined)(current-input-port) in12_1)))"
 "(let-values()"
 "(let-values()"
 "(let-values()"
 "(begin"
-"(if(input-port? in_85)"
+"(if(input-port? in_84)"
 "(void)"
-"                                (let-values () (raise-argument-error 'read \"input-port?\" in_85)))"
-"(read$1 in_85))))))))))"
+"                                (let-values () (raise-argument-error 'read \"input-port?\" in_84)))"
+"(read$1 in_84))))))))))"
 "(case-lambda(()(begin 'read(read13_0 unsafe-undefined)))((in12_2)(read13_0 in12_2)))))"
 "(define-values"
 "(1/read/recursive)"
@@ -57218,7 +57240,7 @@ static const char *startup_source =
 "(lambda(in15_1 start16_0 readtable17_0 graph?18_0)"
 "(begin"
 " 'read/recursive19"
-"(let-values(((in_80)(if(eq? in15_1 unsafe-undefined)(current-input-port) in15_1)))"
+"(let-values(((in_79)(if(eq? in15_1 unsafe-undefined)(current-input-port) in15_1)))"
 "(let-values(((start_61) start16_0))"
 "(let-values(((readtable_9)"
 "(if(eq? readtable17_0 unsafe-undefined)(1/current-readtable) readtable17_0)))"
@@ -57227,9 +57249,9 @@ static const char *startup_source =
 "(let-values()"
 "(let-values()"
 "(begin"
-"(if(input-port? in_80)"
+"(if(input-port? in_79)"
 "(void)"
-"                                      (let-values () (raise-argument-error 'read/recursive \"input-port?\" in_80)))"
+"                                      (let-values () (raise-argument-error 'read/recursive \"input-port?\" in_79)))"
 "(if((lambda(x_95)"
 "(let-values(((or-part_31)(not x_95)))"
 "(if or-part_31 or-part_31(char? x_95))))"
@@ -57243,12 +57265,12 @@ static const char *startup_source =
 "(void)"
 "(let-values()"
 "                                        (raise-argument-error 'read/recursive \"(or/c readtable? #f)\" readtable_9)))"
-"(read/recursive$1 in_80 start_61 readtable_9 graph?_4)))))))))))))"
+"(read/recursive$1 in_79 start_61 readtable_9 graph?_4)))))))))))))"
 "(case-lambda"
 "(()(begin 'read/recursive(read/recursive19_0 unsafe-undefined #f unsafe-undefined #t)))"
-"((in_86 start_62 readtable_10 graph?18_1)(read/recursive19_0 in_86 start_62 readtable_10 graph?18_1))"
-"((in_87 start_63 readtable17_1)(read/recursive19_0 in_87 start_63 readtable17_1 #t))"
-"((in_88 start16_1)(read/recursive19_0 in_88 start16_1 unsafe-undefined #t))"
+"((in_85 start_62 readtable_10 graph?18_1)(read/recursive19_0 in_85 start_62 readtable_10 graph?18_1))"
+"((in_86 start_63 readtable17_1)(read/recursive19_0 in_86 start_63 readtable17_1 #t))"
+"((in_87 start16_1)(read/recursive19_0 in_87 start16_1 unsafe-undefined #t))"
 "((in15_2)(read/recursive19_0 in15_2 #f unsafe-undefined #t)))))"
 "(define-values"
 "(1/read-language)"
@@ -57279,7 +57301,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-language23_0 unsafe-undefined unsafe-undefined)))"
-"((in_89 fail-thunk22_1)(read-language23_0 in_89 fail-thunk22_1))"
+"((in_88 fail-thunk22_1)(read-language23_0 in_88 fail-thunk22_1))"
 "((in21_4)(read-language23_0 in21_4 unsafe-undefined)))))"
 " (define-values (read-language-fail-thunk) (lambda () (begin (error \"fail\"))))"
 "(define-values"
@@ -57718,17 +57740,17 @@ static const char *startup_source =
 "((null82_0) null)"
 "((temp83_2) #f)"
 "((opaque-only?84_0) opaque-only?_0)"
-"((temp85_3) #t)"
-"((temp86_3) #t)"
+"((temp85_2) #t)"
+"((temp86_4) #t)"
 "((temp87_2) #f))"
 "(do-local-expand50.1"
 " #f"
 " #f"
 " temp87_2"
 " unsafe-undefined"
-" temp85_3"
+" temp85_2"
 " opaque-only?84_0"
-" temp86_3"
+" temp86_4"
 " temp79_1"
 " s80_1"
 " temp81_3"
@@ -57797,9 +57819,9 @@ static const char *startup_source =
 "(let-values(((s_496)(datum->syntax$1 #f s-or-s-exp_0)))"
 "(let-values((()"
 "(begin"
-"(if(let-values(((or-part_368)(list? context_24)))"
-"(if or-part_368"
-" or-part_368"
+"(if(let-values(((or-part_367)(list? context_24)))"
+"(if or-part_367"
+" or-part_367"
 "(memq"
 " context_24"
 "(if as-transformer?_6"
@@ -57976,7 +57998,7 @@ static const char *startup_source =
 " local-ctx_0)"
 "((context109_0) context_24)"
 "((temp110_4) #f)"
-"((temp111_3)"
+"((temp111_2)"
 "(eq?"
 " 'top-level"
 " context_24))"
@@ -57985,7 +58007,7 @@ static const char *startup_source =
 "((temp113_3) #t))"
 "(expand-transformer92.1"
 " #f"
-" temp111_3"
+" temp111_2"
 " context109_0"
 " temp110_4"
 " temp113_3"
@@ -57998,13 +58020,13 @@ static const char *startup_source =
 " input-s_1)"
 "((local-ctx115_0)"
 " local-ctx_0)"
-"((temp116_3) #t)"
+"((temp116_2) #t)"
 "((lift-key117_0)"
 " lift-key_6)"
 "((temp118_1) #t))"
 "(expand/capture-lifts75.1"
 " temp118_1"
-" temp116_3"
+" temp116_2"
 " #f"
 " lift-key117_0"
 " input-s114_0"
@@ -58171,9 +58193,9 @@ static const char *startup_source =
 "(inspector-for-taint)"
 "(lambda(maybe-insp_3)"
 "(begin"
-"(let-values(((or-part_369) maybe-insp_3))"
-"(if or-part_369"
-" or-part_369"
+"(let-values(((or-part_368) maybe-insp_3))"
+"(if or-part_368"
+" or-part_368"
 "(let-values(((or-part_163)(current-module-code-inspector)))"
 "(if or-part_163 or-part_163(current-code-inspector))))))))"
 "(define-values"
@@ -59009,8 +59031,8 @@ static const char *startup_source =
 "(let-values(((temp82_3) #t)"
 "((temp83_3) #t)"
 "((mpi84_0) mpi_52)"
-"((temp85_4)(list(cons 0 require-mpis_0)))"
-"((temp86_4)"
+"((temp85_3)(list(cons 0 require-mpis_0)))"
+"((temp86_5)"
 "(if reexport?_0"
 "(hasheqv"
 " 0"
@@ -59124,8 +59146,8 @@ static const char *startup_source =
 " temp83_3"
 " unsafe-undefined"
 " #f"
-" temp86_4"
-" temp85_4"
+" temp86_5"
+" temp85_3"
 " mpi84_0"
 " #f"
 " null"
@@ -60059,9 +60081,9 @@ static const char *startup_source =
 "(let-values(((so_0)(get-so_0 file_1 #t)))"
 "(let-values(((alt-so_0)(get-so_0 alt-file_0 #t)))"
 "(let-values(((try-main?_0)"
-"(let-values(((or-part_358) main-path-d_0))"
-"(if or-part_358"
-" or-part_358"
+"(let-values(((or-part_369) main-path-d_0))"
+"(if or-part_369"
+" or-part_369"
 "(not alt-path-d_0)))))"
 "(let-values(((try-alt?_0)"
 "(if alt-file_0"
@@ -60301,8 +60323,8 @@ static const char *startup_source =
 " 'loop"
 "(if(null?(cdr l_81))"
 "(values null(car l_81))"
-"(let-values(((c_113 f_42)(loop_47(cdr l_81))))"
-"(values(cons(car l_81) c_113) f_42)))))))"
+"(let-values(((c_111 f_42)(loop_47(cdr l_81))))"
+"(values(cons(car l_81) c_111) f_42)))))))"
 " loop_47)"
 " l_85))))))"
 "(define-values"
@@ -60431,7 +60453,7 @@ static const char *startup_source =
 "(lambda(base_27 orig-l_10)"
 "(begin"
 " 'flatten-sub-path"
-"((letrec-values(((loop_120)"
+"((letrec-values(((loop_119)"
 "(lambda(a_75 l_35)"
 "(begin"
 " 'loop"
@@ -60458,12 +60480,12 @@ static const char *startup_source =
 " 'file)"
 " base_27)))"
 " orig-l_10))"
-"(loop_120(cdr a_75)(cdr l_35))))"
+"(loop_119(cdr a_75)(cdr l_35))))"
 "(let-values()"
-"(loop_120"
+"(loop_119"
 "(cons(car l_35) a_75)"
 "(cdr l_35)))))))))"
-" loop_120)"
+" loop_119)"
 " null"
 " orig-l_10)))))"
 "(if(if(pair? s_500)(eq?(car s_500) 'quote) #f)"
@@ -60564,15 +60586,15 @@ static const char *startup_source =
 " 'show-collection-err"
 "(let-values(((msg_2)"
 "(string-append"
-"(let-values(((or-part_368)"
+"(let-values(((or-part_367)"
 "(if stx_20"
 "(if(error-print-source-location)"
 "(format-source-location"
 " stx_20)"
 " #f)"
 " #f)))"
-"(if or-part_368"
-" or-part_368"
+"(if or-part_367"
+" or-part_367"
 "                                                                                    \"standard-module-name-resolver\"))"
 "                                                                                \": \""
 "(regexp-replace"
@@ -61013,25 +61035,25 @@ static const char *startup_source =
 "(1/eval"
 " s_36"
 "(1/current-namespace)"
-"(let-values(((c_114)(1/current-compile)))"
+"(let-values(((c_112)(1/current-compile)))"
 "(lambda(e_88 ns_17)"
 "(if(eq? ns_17(1/current-namespace))"
-"(c_114 e_88 #t)"
+"(c_112 e_88 #t)"
 "(with-continuation-mark"
 " parameterization-key"
 "(extend-parameterization(continuation-mark-set-first #f parameterization-key) 1/current-namespace ns_17)"
-"(let-values()(c_114 e_88 #t))))))))))"
+"(let-values()(c_112 e_88 #t))))))))))"
 "(define-values"
 "(default-compile-handler)"
 "(lambda(s_503 immediate-eval?_0)(begin(1/compile s_503(1/current-namespace)(not immediate-eval?_0)))))"
 "(define-values"
 "(default-read-interaction)"
-"(lambda(src_10 in_90)"
+"(lambda(src_10 in_89)"
 "(begin"
 "(begin"
-"(if(input-port? in_90)"
+"(if(input-port? in_89)"
 "(void)"
-"          (let-values () (raise-argument-error 'default-read-interaction \"input-port?\" in_90)))"
+"          (let-values () (raise-argument-error 'default-read-interaction \"input-port?\" in_89)))"
 "(with-continuation-mark"
 " parameterization-key"
 "(extend-parameterization"
@@ -61040,7 +61062,7 @@ static const char *startup_source =
 " #t"
 " 1/read-accept-lang"
 " #f)"
-"(let-values()(1/read-syntax src_10 in_90)))))))"
+"(let-values()(1/read-syntax src_10 in_89)))))))"
 "(define-values"
 "(boot)"
 "(lambda()"
@@ -61188,7 +61210,7 @@ static const char *startup_source =
 "(increment-binding-layer ids_30 body-ctx_1 inside-sc_0)"
 "(expand-context-binding-layer body-ctx_1))))))"
 "(let-values(((name_80)(expand-context-name ctx_77)))"
-"((letrec-values(((loop_121)"
+"((letrec-values(((loop_120)"
 "(lambda(body-ctx_2"
 " bodys_8"
 " done-bodys_0"
@@ -61305,11 +61327,11 @@ static const char *startup_source =
 " temp75_5))))"
 "(let-values(((disarmed-exp-body_0)"
 "(syntax-disarm$1 exp-body_0)))"
-"(let-values(((tmp_63)"
+"(let-values(((tmp_62)"
 "(core-form-sym"
 " disarmed-exp-body_0"
 " phase_137)))"
-"(if(equal? tmp_63 'begin)"
+"(if(equal? tmp_62 'begin)"
 "(let-values()"
 "(let-values((()"
 "(begin"
@@ -61400,7 +61422,7 @@ static const char *startup_source =
 " 'splice"
 " splice-bodys_0)))"
 "(void)))"
-"(loop_121"
+"(loop_120"
 " body-ctx_2"
 " splice-bodys_0"
 " done-bodys_0"
@@ -61411,7 +61433,7 @@ static const char *startup_source =
 " trans-idss_1"
 " stx-clauses_0"
 " dups_0)))))))"
-"(if(equal? tmp_63 'define-values)"
+"(if(equal? tmp_62 'define-values)"
 "(let-values()"
 "(let-values((()"
 "(begin"
@@ -61774,7 +61796,7 @@ static const char *startup_source =
 " body-ctx_2)"
 " lst_228"
 " lst_308)))))"
-"(loop_121"
+"(loop_120"
 "(let-values(((v_261)"
 " body-ctx_2))"
 "(let-values(((the-struct_92)"
@@ -62022,7 +62044,7 @@ static const char *startup_source =
 " trans-idss_1"
 " stx-clauses_0"
 " new-dups_0))))))))))"
-"(if(equal? tmp_63 'define-syntaxes)"
+"(if(equal? tmp_62 'define-syntaxes)"
 "(let-values()"
 "(let-values((()"
 "(begin"
@@ -62458,7 +62480,7 @@ static const char *startup_source =
 " obs_73"
 " 'exit-bind)))"
 "(void)))"
-"(loop_121"
+"(loop_120"
 "(let-values(((v_262)"
 " body-ctx_2))"
 "(let-values(((the-struct_93)"
@@ -62533,7 +62555,7 @@ static const char *startup_source =
 "(let-values()"
 "(error"
 "                                                                                           \"internal error: accumulated expressions not empty\")))"
-"(loop_121"
+"(loop_120"
 " body-ctx_2"
 " null"
 "(if(if(null? val-idss_0)"
@@ -62561,7 +62583,7 @@ static const char *startup_source =
 " stx-clauses_0"
 " dups_0)))"
 "(let-values()"
-"(loop_121"
+"(loop_120"
 " body-ctx_2"
 " rest-bodys_0"
 "(cons exp-body_0 done-bodys_0)"
@@ -62572,7 +62594,7 @@ static const char *startup_source =
 " trans-idss_1"
 " stx-clauses_0"
 " dups_0))))))))))))))))))"
-" loop_121)"
+" loop_120)"
 " body-ctx_0"
 " init-bodys_0"
 " null"
@@ -62883,14 +62905,14 @@ static const char *startup_source =
 "((frame-id142_0) frame-id_13)"
 "((finish-ctx143_0) finish-ctx_0)"
 "((s144_0) s_233)"
-"((temp145_2)(pair? stx-clauses_1))"
+"((temp145_1)(pair? stx-clauses_1))"
 "((finish-bodys146_0) finish-bodys_0)"
 "((temp147_0) #f))"
 "(expand-and-split-bindings-by-reference48.1"
 " finish-ctx143_0"
 " frame-id142_0"
 " finish-bodys146_0"
-" temp145_2"
+" temp145_1"
 " s144_0"
 " temp141_2"
 " temp147_0"
@@ -63829,8 +63851,8 @@ static const char *startup_source =
 "                                               (raise-syntax-error$1 #f \"bad syntax\" orig-s_43)))))"
 "(values #t case-lambda86_1 clause87_1))))))"
 "(let-values(((rebuild-s_5)"
-"(let-values(((ctx92_0) ctx_83)((s93_0) s_453)((temp94_1) #t))"
-"(keep-as-needed119.1 #f #f temp94_1 ctx92_0 s93_0))))"
+"(let-values(((ctx92_0) ctx_83)((s93_0) s_453)((temp94_0) #t))"
+"(keep-as-needed119.1 #f #f temp94_0 ctx92_0 s93_0))))"
 "(let-values(((clauses_1)"
 "(reverse$1"
 "(let-values(((lst_111) formals79_0)((lst_204) body80_0)((lst_112) clause87_0))"
@@ -63903,14 +63925,14 @@ static const char *startup_source =
 " exp-body_3)"
 "(let-values(((rebuild-clause97_0)"
 " rebuild-clause_0)"
-"((temp98_3)"
+"((temp98_4)"
 "(list*"
 " exp-formals_0"
 " exp-body_3)))"
 "(rebuild5.1"
 " #t"
 " rebuild-clause97_0"
-" temp98_3)))))))"
+" temp98_4)))))))"
 " fold-var_312))))"
 "(values fold-var_313)))))"
 "(if(not #f)"
@@ -63924,13 +63946,13 @@ static const char *startup_source =
 " lst_112))))))"
 "(if(expand-context-to-parsed? ctx_83)"
 "(parsed-case-lambda6.1 rebuild-s_5 clauses_1)"
-"(let-values(((rebuild-s99_0) rebuild-s_5)((temp100_3)(list* case-lambda78_0 clauses_1)))"
-"(rebuild5.1 #t rebuild-s99_0 temp100_3))))))))))))"
+"(let-values(((rebuild-s99_0) rebuild-s_5)((temp100_2)(list* case-lambda78_0 clauses_1)))"
+"(rebuild5.1 #t rebuild-s99_0 temp100_2))))))))))))"
 "(define-values"
 "(parse-and-flatten-formals)"
 "(lambda(all-formals_0 sc_38 s_529)"
 "(begin"
-"((letrec-values(((loop_122)"
+"((letrec-values(((loop_121)"
 "(lambda(formals_9)"
 "(begin"
 " 'loop"
@@ -63940,7 +63962,7 @@ static const char *startup_source =
 "(let-values()"
 "(let-values(((p_86)(syntax-e$1 formals_9)))"
 "(if(pair? p_86)"
-"(let-values()(loop_122 p_86))"
+"(let-values()(loop_121 p_86))"
 "(if(null? p_86)"
 "(let-values() null)"
 "                                        (let-values () (raise-syntax-error$1 #f \"not an identifier\" s_529 p_86))))))"
@@ -63953,29 +63975,29 @@ static const char *startup_source =
 "                                          (raise-syntax-error$1 #f \"not an identifier\" s_529 (car formals_9))))"
 "(cons"
 "(if sc_38(add-scope(car formals_9) sc_38)(car formals_9))"
-"(loop_122(cdr formals_9)))))"
+"(loop_121(cdr formals_9)))))"
 "(if(null? formals_9)"
 "(let-values() null)"
 "(let-values()"
 "                                      (raise-syntax-error$1 \"bad argument sequence\" s_529 all-formals_0))))))))))"
-" loop_122)"
+" loop_121)"
 " all-formals_0))))"
 "(define-values"
 "(unflatten-like-formals)"
 "(lambda(keys_8 formals_10)"
 "(begin"
-"((letrec-values(((loop_123)"
+"((letrec-values(((loop_122)"
 "(lambda(keys_9 formals_11)"
 "(begin"
 " 'loop"
 "(if(null? formals_11)"
 "(let-values() null)"
 "(if(pair? formals_11)"
-"(let-values()(cons(car keys_9)(loop_123(cdr keys_9)(cdr formals_11))))"
+"(let-values()(cons(car keys_9)(loop_122(cdr keys_9)(cdr formals_11))))"
 "(if(syntax?$1 formals_11)"
-"(let-values()(loop_123 keys_9(syntax-e$1 formals_11)))"
+"(let-values()(loop_122 keys_9(syntax-e$1 formals_11)))"
 "(let-values()(car keys_9)))))))))"
-" loop_123)"
+" loop_122)"
 " keys_8"
 " formals_10))))"
 "(define-values"
@@ -67399,7 +67421,7 @@ static const char *startup_source =
 "(let-values(((ctx354_0) ctx_92)((s355_0) s_677))"
 "(keep-as-needed119.1 #f #f #f ctx354_0 s355_0))))"
 "(let-values(((exp-es_2)"
-"((letrec-values(((loop_124)"
+"((letrec-values(((loop_123)"
 "(lambda(es_5 index_6)"
 "(begin"
 " 'loop"
@@ -67449,8 +67471,8 @@ static const char *startup_source =
 " expr-ctx358_0))"
 " expr-ctx_4)))"
 "(expand9.1 #f #f #f temp356_0 temp357_0))"
-"(loop_124 rest-es_1(sub1 index_6))))))))))))"
-" loop_124)"
+"(loop_123 rest-es_1(sub1 index_6))))))))))))"
+" loop_123)"
 " e351_0"
 " list-start-index_0)))"
 "(begin"
@@ -68324,7 +68346,7 @@ static const char *startup_source =
 "(lambda(specs_0 orig-s_62 rp_1 self_30 phase_45 ctx_106)"
 "(begin"
 "(let-values(((ns_125)(expand-context-namespace ctx_106)))"
-"((letrec-values(((loop_117)"
+"((letrec-values(((loop_116)"
 "(lambda(specs_1 at-phase_13 protected?_15 layer_6)"
 "(begin"
 " 'loop"
@@ -68584,7 +68606,7 @@ static const char *startup_source =
 "(values))))"
 "(let-values(((track-stxes_5"
 " exp-specs_5)"
-"(loop_117"
+"(loop_116"
 " spec5_0"
 "(phase+"
 " p_87"
@@ -68673,7 +68695,7 @@ static const char *startup_source =
 " spec14_1))))))"
 "(let-values(((track-stxes_6"
 " exp-specs_6)"
-"(loop_117"
+"(loop_116"
 " spec14_0"
 "(phase+"
 " 1"
@@ -68761,7 +68783,7 @@ static const char *startup_source =
 " spec20_1))))))"
 "(let-values(((track-stxes_7"
 " exp-specs_7)"
-"(loop_117"
+"(loop_116"
 " spec20_0"
 " #f"
 " protected?_15"
@@ -68858,7 +68880,7 @@ static const char *startup_source =
 " p-spec26_1))))))"
 "(let-values(((track-stxes_8"
 " exp-specs_8)"
-"(loop_117"
+"(loop_116"
 " p-spec26_0"
 " at-phase_13"
 " #t"
@@ -70429,7 +70451,7 @@ static const char *startup_source =
 " spec101_1))))))"
 "(let-values(((track-stxes_9"
 " exp-specs_9)"
-"(loop_117"
+"(loop_116"
 " spec101_0"
 " at-phase_13"
 " protected?_15"
@@ -70467,7 +70489,7 @@ static const char *startup_source =
 " lst_77)))))"
 "(values(reverse$1 track-stxes_0)(reverse$1 exp-specs_0)))))"
 "(values(apply append track-stxess_0)(apply append exp-specss_0)))))))"
-" loop_117)"
+" loop_116)"
 " specs_0"
 " phase_45"
 " #f"
@@ -70490,8 +70512,8 @@ static const char *startup_source =
 "(values))))"
 "(let-values(((as-transformer?_7)(binding-for-transformer? b_94 spec_1 at-phase_14 ns_126)))"
 "(let-values(((immed-b_0)"
-"(let-values(((spec118_0) spec_1)((at-phase119_0) at-phase_14)((temp120_3) #t))"
-"(resolve+shift28.1 #f #f null temp120_3 #f spec118_0 at-phase119_0))))"
+"(let-values(((spec118_0) spec_1)((at-phase119_0) at-phase_14)((temp120_4) #t))"
+"(resolve+shift28.1 #f #f null temp120_4 #f spec118_0 at-phase119_0))))"
 "(let-values(((rp109_0) rp_2)"
 "((sym110_0) sym_106)"
 "((at-phase111_0) at-phase_14)"
@@ -71030,14 +71052,14 @@ static const char *startup_source =
 " for-loop_331)"
 " lst_78)))"
 "(void)"
-"(let-values(((tmp_64)(cross-phase-primitive-name(parsed-app-rator e_91))))"
-"(if(if(equal? tmp_64 'cons) #t(equal? tmp_64 'list))"
+"(let-values(((tmp_63)(cross-phase-primitive-name(parsed-app-rator e_91))))"
+"(if(if(equal? tmp_63 'cons) #t(equal? tmp_63 'list))"
 "(let-values()(check-count 1 num-results_0 enclosing_15))"
-"(if(equal? tmp_64 'make-struct-type)"
+"(if(equal? tmp_63 'make-struct-type)"
 "(let-values()(check-count 5 num-results_0 enclosing_15))"
-"(if(equal? tmp_64 'make-struct-type-property)"
+"(if(equal? tmp_63 'make-struct-type-property)"
 "(let-values()(check-count 3 num-results_0 enclosing_15))"
-"(if(equal? tmp_64 'gensym)"
+"(if(equal? tmp_63 'gensym)"
 "(let-values()"
 "(if(let-values(((or-part_91)(= 0(length rands_1))))"
 "(if or-part_91"
@@ -71047,7 +71069,7 @@ static const char *startup_source =
 " #f)))"
 "(void)"
 "(let-values()(disallow e_91))))"
-"(if(equal? tmp_64 'string->uninterned-symbol)"
+"(if(equal? tmp_63 'string->uninterned-symbol)"
 "(let-values()"
 "(if(if(= 1(length rands_1))(quoted-string?(car rands_1)) #f)"
 "(void)"
@@ -71190,8 +71212,8 @@ static const char *startup_source =
 " lst_23)))"
 "(void)"
 "(check-body-no-disallowed-expr_0(parsed-let_-values-body e_92))))"
-"(if(let-values(((or-part_405)(parsed-quote-syntax? e_92)))"
-"(if or-part_405 or-part_405(parsed-#%variable-reference? e_92)))"
+"(if(let-values(((or-part_358)(parsed-quote-syntax? e_92)))"
+"(if or-part_358 or-part_358(parsed-#%variable-reference? e_92)))"
 "(let-values()(disallow e_92))"
 "(let-values()(void)))))))))))))))"
 "((check-body-no-disallowed-expr_0)"
@@ -72289,10 +72311,10 @@ static const char *startup_source =
 "(expand-context-to-parsed?"
 " ctx_23)))"
 "(let-values(((partial-body-ctx_0)"
-"(let-values(((v_253)"
+"(let-values(((v_270)"
 " ctx_23))"
 "(let-values(((the-struct_105)"
-" v_253))"
+" v_270))"
 "(if(expand-context/outer?"
 " the-struct_105)"
 "(let-values(((context329_0)"
@@ -72304,7 +72326,7 @@ static const char *startup_source =
 "((inner332_0)"
 "(let-values(((the-struct_106)"
 "(root-expand-context/outer-inner"
-" v_253)))"
+" v_270)))"
 "(if(expand-context/inner?"
 " the-struct_106)"
 "(let-values(((phase333_0)"
@@ -72508,12 +72530,12 @@ static const char *startup_source =
 "(void)))"
 "(values))))"
 "(let-values(((body-ctx_6)"
-"(let-values(((v_270)"
+"(let-values(((v_271)"
 "(accumulate-def-ctx-scopes"
 " partial-body-ctx_0"
 " def-ctx-scopes_8)))"
 "(let-values(((the-struct_107)"
-" v_270))"
+" v_271))"
 "(if(expand-context/outer?"
 " the-struct_107)"
 "(let-values(((def-ctx-scopes366_0)"
@@ -72523,7 +72545,7 @@ static const char *startup_source =
 "((inner368_0)"
 "(let-values(((the-struct_108)"
 "(root-expand-context/outer-inner"
-" v_270)))"
+" v_271)))"
 "(if(expand-context/inner?"
 " the-struct_108)"
 "(let-values(((stops369_0)"
@@ -72967,10 +72989,10 @@ static const char *startup_source =
 "(let-values()"
 " mb-result-s_0)))))))))))))))))))))))))))))))))"
 "(let-values(((mb-ctx_0)"
-"(let-values(((v_271)"
+"(let-values(((v_272)"
 " ctx_112))"
 "(let-values(((the-struct_110)"
-" v_271))"
+" v_272))"
 "(if(expand-context/outer?"
 " the-struct_110)"
 "(let-values(((context412_0)"
@@ -72978,7 +73000,7 @@ static const char *startup_source =
 "((inner413_0)"
 "(let-values(((the-struct_111)"
 "(root-expand-context/outer-inner"
-" v_271)))"
+" v_272)))"
 "(if(expand-context/inner?"
 " the-struct_111)"
 "(let-values(((module-begin-k414_0)"
@@ -73116,19 +73138,19 @@ static const char *startup_source =
 "(let-values(((mb428_0)"
 " mb_0)"
 "((temp429_0)"
-"(let-values(((v_272)"
+"(let-values(((v_273)"
 "(accumulate-def-ctx-scopes"
 " mb-ctx_0"
 " mb-def-ctx-scopes_0)))"
 "(let-values(((the-struct_112)"
-" v_272))"
+" v_273))"
 "(if(expand-context/outer?"
 " the-struct_112)"
 "(let-values(((def-ctx-scopes430_0)"
 " #f)"
 "((inner431_0)"
 "(root-expand-context/outer-inner"
-" v_272)))"
+" v_273)))"
 "(expand-context/outer1.1"
 " inner431_0"
 "(root-expand-context/outer-post-expansion"
@@ -73175,11 +73197,11 @@ static const char *startup_source =
 " self_32"
 " self_32)))"
 "(let-values(((result-form_0)"
-"(if(let-values(((or-part_406)"
+"(if(let-values(((or-part_405)"
 "(expand-context-to-parsed?"
 " init-ctx_0)))"
-"(if or-part_406"
-" or-part_406"
+"(if or-part_405"
+" or-part_405"
 " always-produce-compiled?_0))"
 "(parsed-module25.1"
 " rebuild-s_14"
@@ -73340,13 +73362,13 @@ static const char *startup_source =
 "(lambda()"
 "(begin"
 " 'make-mb-ctx"
-"(let-values(((v_273) ctx_114))"
-"(let-values(((the-struct_113) v_273))"
+"(let-values(((v_274) ctx_114))"
+"(let-values(((the-struct_113) v_274))"
 "(if(expand-context/outer? the-struct_113)"
 "(let-values(((context437_0) 'module-begin)"
 "((only-immediate?438_0) #t)"
 "((def-ctx-scopes439_0) def-ctx-scopes_9)"
-"((inner440_0)(root-expand-context/outer-inner v_273)))"
+"((inner440_0)(root-expand-context/outer-inner v_274)))"
 "(expand-context/outer1.1"
 " inner440_0"
 "(root-expand-context/outer-post-expansion the-struct_113)"
@@ -73579,7 +73601,7 @@ static const char *startup_source =
 "(let-values()"
 "(begin"
 "(namespace-visit-available-modules! m-ns_20 phase_107)"
-"((letrec-values(((loop_125)"
+"((letrec-values(((loop_124)"
 "(lambda(tail?_53 bodys_21)"
 "(begin"
 " 'loop"
@@ -73625,7 +73647,7 @@ static const char *startup_source =
 "(if(null? bodys_22)"
 "(let-values() null)"
 "(let-values()"
-"(loop_125"
+"(loop_124"
 " #t"
 "(add-post-expansion-scope"
 " bodys_22"
@@ -73776,7 +73798,7 @@ static const char *startup_source =
 " 'splice"
 " spliced-bodys_0)))"
 "(void)))"
-"(loop_125"
+"(loop_124"
 " tail?_53"
 " spliced-bodys_0))))))"
 "(if(equal?"
@@ -73978,7 +74000,7 @@ static const char *startup_source =
 "(semi-parsed-begin-for-syntax3.1"
 " exp-body_7"
 " nested-bodys_1)"
-"(loop_125"
+"(loop_124"
 " tail?_53"
 " rest-bodys_1))))))))))"
 "(if(equal?"
@@ -74091,15 +74113,15 @@ static const char *startup_source =
 "(let-values()"
 "(let-values(((id496_0)"
 "(let-values()"
-"(if(let-values(((or-part_407)"
+"(if(let-values(((or-part_406)"
 "(if(syntax?$1"
 " s_829)"
 "(symbol?"
 "(syntax-e$1"
 " s_829))"
 " #f)))"
-"(if or-part_407"
-" or-part_407"
+"(if or-part_406"
+" or-part_406"
 "(symbol?"
 " s_829)))"
 " s_829"
@@ -74325,7 +74347,7 @@ static const char *startup_source =
 " syms_23"
 " ids_45"
 " rhs479_0)"
-"(loop_125"
+"(loop_124"
 " tail?_53"
 " rest-bodys_1))))))))))"
 "(if(equal?"
@@ -74459,15 +74481,15 @@ static const char *startup_source =
 "(let-values()"
 "(let-values(((id525_0)"
 "(let-values()"
-"(if(let-values(((or-part_408)"
+"(if(let-values(((or-part_407)"
 "(if(syntax?$1"
 " s_842)"
 "(symbol?"
 "(syntax-e$1"
 " s_842))"
 " #f)))"
-"(if or-part_408"
-" or-part_408"
+"(if or-part_407"
+" or-part_407"
 "(symbol?"
 " s_842)))"
 " s_842"
@@ -74644,10 +74666,10 @@ static const char *startup_source =
 "((ids537_0)"
 " ids_46)"
 "((temp538_0)"
-"(let-values(((v_274)"
+"(let-values(((v_275)"
 " partial-body-ctx_1))"
 "(let-values(((the-struct_114)"
-" v_274))"
+" v_275))"
 "(if(expand-context/outer?"
 " the-struct_114)"
 "(let-values(((need-eventually-defined540_0)"
@@ -74655,7 +74677,7 @@ static const char *startup_source =
 "((inner541_0)"
 "(let-values(((the-struct_115)"
 "(root-expand-context/outer-inner"
-" v_274)))"
+" v_275)))"
 "(if(expand-context/inner?"
 " the-struct_115)"
 "(let-values(((lifts542_0)"
@@ -74894,7 +74916,7 @@ static const char *startup_source =
 " exp-body545_0"
 " temp546_0))"
 " parsed-body_0))"
-"(loop_125"
+"(loop_124"
 " tail?_53"
 " rest-bodys_1)))))))))))))))))"
 "(if(equal?"
@@ -75026,7 +75048,7 @@ static const char *startup_source =
 "(void)))"
 "(cons"
 " exp-body_7"
-"(loop_125"
+"(loop_124"
 " tail?_53"
 " rest-bodys_1)))))))"
 "(if(equal?"
@@ -75035,7 +75057,7 @@ static const char *startup_source =
 "(let-values()"
 "(cons"
 " exp-body_7"
-"(loop_125"
+"(loop_124"
 " tail?_53"
 " rest-bodys_1)))"
 "(if(equal?"
@@ -75078,7 +75100,7 @@ static const char *startup_source =
 " partial-body-ctx562_0))))"
 "(cons"
 " submod_2"
-"(loop_125"
+"(loop_124"
 " tail?_53"
 " rest-bodys_1)))))"
 "(if(equal?"
@@ -75107,7 +75129,7 @@ static const char *startup_source =
 "(void)))"
 "(cons"
 " exp-body_7"
-"(loop_125"
+"(loop_124"
 " tail?_53"
 " rest-bodys_1))))"
 "(if(equal?"
@@ -75260,13 +75282,13 @@ static const char *startup_source =
 "(expanded+parsed1.1"
 " exp-body_7"
 " parsed-body_1))"
-"(loop_125"
+"(loop_124"
 " tail?_53"
 " rest-bodys_1)))))))"
 "(let-values()"
 "(cons"
 " exp-body_7"
-"(loop_125"
+"(loop_124"
 " tail?_53"
 " rest-bodys_1)))))))))))))))))"
 "(let-values(((l_88)"
@@ -75275,7 +75297,7 @@ static const char *startup_source =
 "(expand-context-require-lifts"
 " partial-body-ctx_1))"
 " lifted-defns_0"
-"(loop_125"
+"(loop_124"
 " #f"
 "(add-post-expansion-scope"
 "(get-and-clear-module-lifts!"
@@ -75287,7 +75309,7 @@ static const char *startup_source =
 "(append"
 " l_88"
 "(finish_2)))))))))))))))))"
-" loop_125)"
+" loop_124)"
 " #t"
 " bodys_20))))))))))))))))))))))"
 "(define-values"
@@ -75406,7 +75428,7 @@ static const char *startup_source =
 "(let-values(((modules-being-compiled_5) modules-being-compiled89_0))"
 "(let-values(((mpis-to-reset_2) mpis-to-reset90_0))"
 "(let-values()"
-"((letrec-values(((loop_126)"
+"((letrec-values(((loop_125)"
 "(lambda(tail?_54 bodys_24)"
 "(begin"
 " 'loop"
@@ -75448,7 +75470,7 @@ static const char *startup_source =
 "(void)))"
 " null))"
 "(let-values()"
-"(loop_126"
+"(loop_125"
 " #t"
 "(add-post-expansion-scope bodys_25 body-ctx_7))))))"
 "(let-values() null))))"
@@ -75466,14 +75488,14 @@ static const char *startup_source =
 "(let-values(((body_22)(car bodys_24)))"
 "(let-values(((rest-bodys_2)(cdr bodys_24)))"
 "(let-values(((exp-body_8)"
-"(if(let-values(((or-part_409)"
+"(if(let-values(((or-part_408)"
 "(parsed? body_22)))"
+"(if or-part_408"
+" or-part_408"
+"(let-values(((or-part_409)"
+"(expanded+parsed? body_22)))"
 "(if or-part_409"
 " or-part_409"
-"(let-values(((or-part_410)"
-"(expanded+parsed? body_22)))"
-"(if or-part_410"
-" or-part_410"
 "(semi-parsed-begin-for-syntax?"
 " body_22)))))"
 "(let-values() body_22)"
@@ -75683,15 +75705,15 @@ static const char *startup_source =
 "(let-values()"
 "(let-values(((disarmed-body_0)"
 "(syntax-disarm$1 body_22)))"
-"(let-values(((tmp_65)"
+"(let-values(((tmp_64)"
 "(core-form-sym"
 " disarmed-body_0"
 " phase_150)))"
-"(if(if(equal? tmp_65 '#%require)"
+"(if(if(equal? tmp_64 '#%require)"
 " #t"
-"(if(equal? tmp_65 '#%provide)"
+"(if(equal? tmp_64 '#%provide)"
 " #t"
-"(equal? tmp_65 'module*)))"
+"(equal? tmp_64 'module*)))"
 "(let-values() body_22)"
 "(let-values()"
 "(let-values()"
@@ -75786,7 +75808,7 @@ static const char *startup_source =
 " self603_0"
 " body-ctx604_0))))"
 "(let-values(((exp-lifted-defns_0)"
-"(loop_126 #f lifted-defns_1)))"
+"(loop_125 #f lifted-defns_1)))"
 "(begin"
 "(if no-lifts?_0"
 "(void)"
@@ -75807,10 +75829,10 @@ static const char *startup_source =
 " exp-lifted-modules_0"
 "(cons"
 " exp-body_8"
-"(loop_126"
+"(loop_125"
 " tail?_54"
 " rest-bodys_2)))))))))))))))))))))"
-" loop_126)"
+" loop_125)"
 " #t"
 " partially-expanded-bodys_1)))))))))))))"
 "(define-values"
@@ -75916,10 +75938,10 @@ static const char *startup_source =
 "                                                                                                                                                                \"identifier treated as a variable, but later bound differently\")))"
 "(format"
 "                                                                                                                                                           \"\\n  at phase: ~a\""
-"(let-values(((tmp_66)"
+"(let-values(((tmp_65)"
 " phase_151))"
 "(if(equal?"
-" tmp_66"
+" tmp_65"
 " 1)"
 "(let-values()"
 "                                                                                                                                                                 \"1; the transformer environment\")"
@@ -75968,20 +75990,20 @@ static const char *startup_source =
 "(let-values(((ctx_117) ctx107_1))"
 "(let-values()"
 "(let-values()"
-"((letrec-values(((loop_127)"
+"((letrec-values(((loop_126)"
 "(lambda(bodys_26 phase_153)"
 "(begin"
 " 'loop"
 "(if(null? bodys_26)"
 "(let-values() null)"
-"(if(let-values(((or-part_411)(parsed?(car bodys_26))))"
-"(if or-part_411 or-part_411(expanded+parsed?(car bodys_26))))"
+"(if(let-values(((or-part_410)(parsed?(car bodys_26))))"
+"(if or-part_410 or-part_410(expanded+parsed?(car bodys_26))))"
 "(let-values()"
-"(cons(car bodys_26)(loop_127(cdr bodys_26) phase_153)))"
+"(cons(car bodys_26)(loop_126(cdr bodys_26) phase_153)))"
 "(if(semi-parsed-begin-for-syntax?(car bodys_26))"
 "(let-values()"
 "(let-values(((nested-bodys_2)"
-"(loop_127"
+"(loop_126"
 "(semi-parsed-begin-for-syntax-body(car bodys_26))"
 "(add1 phase_153))))"
 "(cons"
@@ -75995,12 +76017,12 @@ static const char *startup_source =
 " 'struct-copy"
 "                                                              \"semi-parsed-begin-for-syntax?\""
 " the-struct_116)))"
-"(loop_127(cdr bodys_26) phase_153))))"
+"(loop_126(cdr bodys_26) phase_153))))"
 "(let-values()"
 "(let-values(((disarmed-body_1)(syntax-disarm$1(car bodys_26))))"
-"(let-values(((tmp_67)"
+"(let-values(((tmp_66)"
 "(core-form-sym disarmed-body_1 phase_153)))"
-"(if(equal? tmp_67 '#%provide)"
+"(if(equal? tmp_66 '#%provide)"
 "(let-values()"
 "(let-values((()"
 "(begin"
@@ -76077,9 +76099,9 @@ static const char *startup_source =
 " requires+provides_10"
 " self_38"
 " phase_153"
-"(let-values(((v_275) ctx_117))"
+"(let-values(((v_276) ctx_117))"
 "(let-values(((the-struct_117)"
-" v_275))"
+" v_276))"
 "(if(expand-context/outer?"
 " the-struct_117)"
 "(let-values(((context616_0)"
@@ -76087,7 +76109,7 @@ static const char *startup_source =
 "((inner617_0)"
 "(let-values(((the-struct_118)"
 "(root-expand-context/outer-inner"
-" v_275)))"
+" v_276)))"
 "(if(expand-context/inner?"
 " the-struct_118)"
 "(let-values(((phase618_0)"
@@ -76188,7 +76210,7 @@ static const char *startup_source =
 " the-struct_117)))))))"
 "(if(expand-context-to-parsed? ctx_117)"
 "(let-values()"
-"(loop_127(cdr bodys_26) phase_153))"
+"(loop_126(cdr bodys_26) phase_153))"
 "(let-values()"
 "(let-values(((new-s_10)"
 "(syntax-track-origin*"
@@ -76217,14 +76239,14 @@ static const char *startup_source =
 "(void)))"
 "(cons"
 " new-s_10"
-"(loop_127"
+"(loop_126"
 "(cdr bodys_26)"
 " phase_153))))))))))"
 "(let-values()"
 "(cons"
 "(car bodys_26)"
-"(loop_127(cdr bodys_26) phase_153))))))))))))))"
-" loop_127)"
+"(loop_126(cdr bodys_26) phase_153))))))))))))))"
+" loop_126)"
 " expression-expanded-bodys_1"
 " phase_152)))))))))))))"
 "(define-values"
@@ -76271,8 +76293,8 @@ static const char *startup_source =
 "(hasheq))))"
 "(let-values(((module-name_2)"
 "(1/module-path-index-resolve"
-"(let-values(((or-part_412) enclosing-self_3))"
-"(if or-part_412 or-part_412 self_39)))))"
+"(let-values(((or-part_411) enclosing-self_3))"
+"(if or-part_411 or-part_411 self_39)))))"
 "(let-values(((compiled-module_0)"
 "(let-values(((parsed-mod624_0) parsed-mod_0)"
 "((temp625_0)"
@@ -76363,7 +76385,7 @@ static const char *startup_source =
 "(let-values(((modules-being-compiled_7) modules-being-compiled151_0))"
 "(let-values(((submod-ctx_1) ctx152_0))"
 "(let-values()"
-"((letrec-values(((loop_128)"
+"((letrec-values(((loop_127)"
 "(lambda(bodys_27 phase_155)"
 "(begin"
 " 'loop"
@@ -76441,7 +76463,7 @@ static const char *startup_source =
 " submod-ctx638_0"
 " body-s639_0))))"
 "(let-values(((nested-bodys_3)"
-"(loop_128"
+"(loop_127"
 "(semi-parsed-begin-for-syntax-body"
 " body_23)"
 "(add1 phase_155))))"
@@ -76466,21 +76488,21 @@ static const char *startup_source =
 " rebuild-body-s640_0"
 " temp641_0))"
 " parsed-bfs_0))"
-"(loop_128 rest-bodys_3 phase_155))))))))"
-"(if(let-values(((or-part_413)(parsed? body_23)))"
-"(if or-part_413"
-" or-part_413"
+"(loop_127 rest-bodys_3 phase_155))))))))"
+"(if(let-values(((or-part_412)(parsed? body_23)))"
+"(if or-part_412"
+" or-part_412"
 "(expanded+parsed? body_23)))"
 "(let-values()"
-"(cons body_23(loop_128 rest-bodys_3 phase_155)))"
+"(cons body_23(loop_127 rest-bodys_3 phase_155)))"
 "(let-values()"
 "(let-values(((disarmed-body_2)"
 "(syntax-disarm$1 body_23)))"
-"(let-values(((tmp_68)"
+"(let-values(((tmp_67)"
 "(core-form-sym"
 " disarmed-body_2"
 " phase_155)))"
-"(if(equal? tmp_68 'module*)"
+"(if(equal? tmp_67 'module*)"
 "(let-values()"
 "(let-values((()"
 "(begin"
@@ -76741,16 +76763,16 @@ static const char *startup_source =
 " submod-ctx666_0))))))"
 "(cons"
 " submod_3"
-"(loop_128"
+"(loop_127"
 " rest-bodys_3"
 " phase_155)))))))"
 "(let-values()"
 "(cons"
 " body_23"
-"(loop_128"
+"(loop_127"
 " rest-bodys_3"
 " phase_155)))))))))))))))))"
-" loop_128)"
+" loop_127)"
 " fully-expanded-bodys-except-post-submodules_2"
 " phase_154)))))))))))))))))"
 "(define-values"
@@ -76934,19 +76956,19 @@ static const char *startup_source =
 " lst_453"
 " lst_454)))"
 "(void)))))"
-"(if(let-values(((or-part_414)"
+"(if(let-values(((or-part_413)"
 "(parsed-define-syntaxes?"
 " p_88)))"
-"(if or-part_414"
-" or-part_414"
+"(if or-part_413"
+" or-part_413"
 "(semi-parsed-begin-for-syntax?"
 " p_88)))"
 "(let-values()(void))"
-"(if(let-values(((or-part_415)"
+"(if(let-values(((or-part_414)"
 "(parsed-#%declare?"
 " p_88)))"
-"(if or-part_415"
-" or-part_415"
+"(if or-part_414"
+" or-part_414"
 "(syntax?$1 p_88)))"
 "(let-values()(void))"
 "(let-values()"
@@ -77100,15 +77122,15 @@ static const char *startup_source =
 "(let-values(((submod_5)"
 "(let-values(((s687_0) s_737)"
 "((temp688_0)"
-"(let-values(((v_276) ctx_121))"
-"(let-values(((the-struct_120) v_276))"
+"(let-values(((v_277) ctx_121))"
+"(let-values(((the-struct_120) v_277))"
 "(if(expand-context/outer? the-struct_120)"
 "(let-values(((context697_0) 'module)"
 "((post-expansion698_0) #f)"
 "((inner699_0)"
 "(let-values(((the-struct_121)"
 "(root-expand-context/outer-inner"
-" v_276)))"
+" v_277)))"
 "(if(expand-context/inner?"
 " the-struct_121)"
 "(let-values(((stops700_0)"
@@ -77414,12 +77436,12 @@ static const char *startup_source =
 "(let-values()"
 "(cons"
 "(let-values()"
-"(let-values(((tmp_69)"
+"(let-values(((tmp_68)"
 "(core-form-sym"
 "(syntax-disarm$1"
 " body_25)"
 " phase_158)))"
-"(if(equal? tmp_69 'module)"
+"(if(equal? tmp_68 'module)"
 "(let-values()"
 "(let-values(((body715_0)"
 " body_25)"
@@ -78021,8 +78043,8 @@ static const char *startup_source =
 "(expand9.1 #f #f #f temp11_7 temp12_9))))"
 "(if(expand-context-to-parsed? ctx_7)"
 "(parsed-define-values19.1 s_0 ids_52 syms_27 exp-rhs_9)"
-"(let-values(((s13_0) s_0)((temp14_7)(list define-values1_0 ids_52 exp-rhs_9)))"
-"(rebuild5.1 #t s13_0 temp14_7))))))))))))"
+"(let-values(((s13_0) s_0)((temp14_6)(list define-values1_0 ids_52 exp-rhs_9)))"
+"(rebuild5.1 #t s13_0 temp14_6))))))))))))"
 "(void"
 "(add-core-form!*"
 " 'define-syntaxes"
@@ -78320,7 +78342,7 @@ static const char *startup_source =
 "(void)))"
 "(values))))"
 "(let-values(((exp-forms_0)"
-"((letrec-values(((loop_129)"
+"((letrec-values(((loop_128)"
 "(lambda(forms_1 accum_1)"
 "(begin"
 " 'loop"
@@ -78371,12 +78393,12 @@ static const char *startup_source =
 " #f"
 " temp40_3"
 " capture-ctx41_0))))"
-"(loop_129"
+"(loop_128"
 "(cdr forms_1)"
 "(cons"
 " exp-form_0"
 " accum_1))))))))))"
-" loop_129)"
+" loop_128)"
 " forms_0"
 " null)))"
 "(let-values(((lifts_15)(get-and-clear-lifts! lift-ctx_7)))"
@@ -78544,16 +78566,16 @@ static const char *startup_source =
 "((ns12_2) ns)"
 "((temp13_3) '(dynamic-place)))"
 "(declare-hash-based-module!41.1 ns12_2 #f temp13_3 #f #f temp10_7 place-struct-primitives11_0))"
-"(let-values(((temp14_8) '#%boot)((boot-primitives15_0) boot-primitives)((ns16_2) ns))"
-"(declare-hash-based-module!41.1 ns16_2 #f null #f #f temp14_8 boot-primitives15_0))"
+"(let-values(((temp14_7) '#%boot)((boot-primitives15_0) boot-primitives)((ns16_2) ns))"
+"(declare-hash-based-module!41.1 ns16_2 #f null #f #f temp14_7 boot-primitives15_0))"
 "(let-values(((linklet-primitives_0)"
 "(hash-remove(hash-remove linklet-primitives 'variable-reference?) 'variable-reference-constant?)))"
-"(let-values(((temp17_7) '#%linklet)"
+"(let-values(((temp17_6) '#%linklet)"
 "((linklet-primitives18_0) linklet-primitives_0)"
 "((ns19_3) ns)"
 "((temp20_7) #t)"
 "((temp21_3) #t))"
-"(declare-hash-based-module!41.1 ns19_3 temp20_7 null #f temp21_3 temp17_7 linklet-primitives18_0)))"
+"(declare-hash-based-module!41.1 ns19_3 temp20_7 null #f temp21_3 temp17_6 linklet-primitives18_0)))"
 "(let-values(((temp22_6) '#%expobs)((expobs-primitives23_0) expobs-primitives)((ns24_2) ns)((temp25_9) #t))"
 "(declare-hash-based-module!41.1 ns24_2 #f null temp25_9 #f temp22_6 expobs-primitives23_0))"
 "(let-values(((ns26_1) ns)"