diff --git a/pkgs/base/info.rkt b/pkgs/base/info.rkt
index 46094c48e4..9b0f0cd01c 100644
--- a/pkgs/base/info.rkt
+++ b/pkgs/base/info.rkt
@@ -12,7 +12,7 @@
 
 (define collection 'multi)
 
-(define version "6.90.0.28")
+(define version "6.90.0.29")
 
 (define deps `("racket-lib"
                ["racket" #:version ,version]))
diff --git a/pkgs/racket-doc/scribblings/reference/unsafe-undefined.scrbl b/pkgs/racket-doc/scribblings/reference/unsafe-undefined.scrbl
index fec2a52934..8ff63c3565 100644
--- a/pkgs/racket-doc/scribblings/reference/unsafe-undefined.scrbl
+++ b/pkgs/racket-doc/scribblings/reference/unsafe-undefined.scrbl
@@ -11,18 +11,25 @@ placeholder value. For example, it is used by @racket[letrec] as a
 value for a variable that has not yet been assigned a value.  Unlike
 the @racket[undefined] value exported by @racket[racket/undefined],
 however, the @racket[unsafe-undefined] value should not leak as the
-result of a safe expression. Expression results that potentially
+result of a safe expression, and it should not be passed as an optional
+argument to a procedure (because it may count as ``no value provided'').
+Expression results that potentially
 produce @racket[unsafe-undefined] can be guarded by
 @racket[check-not-unsafe-undefined], so that an exception can be
 raised instead of producing an @racket[undefined] value.
 
 The @racket[unsafe-undefined] value is always @racket[eq?] to itself.
 
-@history[#:added "6.0.1.2"]
+@history[#:added "6.0.1.2"
+         #:changed "6.90.0.29" @elem{Procedures with optional arguments
+                                     sometimes use the @racket[unsafe-undefined]
+                                     value internally to mean ``no argument supplied.''}]
 
 @defthing[unsafe-undefined any/c]{
 
-The unsafe ``undefined'' constant.}
+The unsafe ``undefined'' constant.
+
+See above for important constraints on the use of @racket[unsafe-undefined].}
 
 
 @defproc[(check-not-unsafe-undefined [v any/c] [sym symbol?])
diff --git a/pkgs/racket-test-core/tests/racket/procs.rktl b/pkgs/racket-test-core/tests/racket/procs.rktl
index 3d55041358..c036065f15 100644
--- a/pkgs/racket-test-core/tests/racket/procs.rktl
+++ b/pkgs/racket-test-core/tests/racket/procs.rktl
@@ -486,6 +486,21 @@
                  (regexp-match? #rx"expected: 4 plus an optional argument with keyword #:x"
                                 (exn-message exn)))))
 
+;; ----------------------------------------
+;; Make sure that optional-argument handling doesn't go wrong with literal gensyms
+
+(let ()
+  (eval (let ([s (gensym)])
+          `(module optional-argument-with-gensym-default racket/base
+             (define (f #:x [x ',s])
+               (eq? x ',s))
+             (provide f))))
+  (namespace-require ''optional-argument-with-gensym-default)
+  (let ([o (open-output-bytes)])
+    (write (compile '(f)) o)
+    (test #t 'same? (eval (parameterize ([read-accept-compiled #t])
+                            (read (open-input-bytes (get-output-bytes o))))))))
+           
 ;; ----------------------------------------
 
 (report-errs)
diff --git a/racket/collects/racket/private/immediate-default.rkt b/racket/collects/racket/private/immediate-default.rkt
new file mode 100644
index 0000000000..e0117de45c
--- /dev/null
+++ b/racket/collects/racket/private/immediate-default.rkt
@@ -0,0 +1,45 @@
+(module kw '#%kernel
+  (#%require "define.rkt"
+             "small-scheme.rkt"
+             "stxcase-scheme.rkt"
+             (for-template '#%kernel))
+
+  (#%provide immediate-default?)
+
+  ;; A default-argument expression counts as an "immediate default"
+  ;; if it syntactically (before expansion) matches
+  ;;
+  ;;    <immediate-default> = <immediate-literal>    [*]
+  ;;                        | '<immediate-literal>
+  ;;                        | '<id> | '()
+  ;;                        | (void) | null | eof
+  ;;    <immediate-literal> = #t | #f | <number> | <char>
+  ;;                        | <small-string> | <small-byte-string>
+  ;;
+  ;; where the plain <immediate-literal> [*] possibility matches only
+  ;; if the literal's syntax transferred to '#%datum is bound to
+  ;; `#%datum` from `racket/base`.
+
+  (define (immediate-default? expr)
+    (let ([immediate-literal?
+           (lambda (v)
+             (or (boolean? v)
+                 (number? v)
+                 (char? v)
+                 (and (string? v)
+                      ((string-length v) . < . 8))
+                 (and (bytes? v)
+                      ((bytes-length v) . < . 8))))])
+      (or (and (immediate-literal? (syntax-e expr))
+               (free-identifier=? (quote-syntax #%datum) (datum->syntax expr '#%datum)))
+          (syntax-case expr (quote void null eof)
+            [(quote s-exp) (let ([v (syntax-e #'s-exp)])
+                             (or (and (symbol? v)
+                                      (or (symbol-interned? v)
+                                          (symbol-unreadable? v)))
+                                 (null? v)
+                                 (immediate-literal? v)))]
+            [(void) #t]
+            [null #t]
+            [eof #t]
+            [_ #f])))))
diff --git a/racket/collects/racket/private/kw.rkt b/racket/collects/racket/private/kw.rkt
index 0dccefa827..1aae77a30f 100644
--- a/racket/collects/racket/private/kw.rkt
+++ b/racket/collects/racket/private/kw.rkt
@@ -4,7 +4,8 @@
              "more-scheme.rkt"
              (only '#%unsafe
                    unsafe-chaperone-procedure
-                   unsafe-impersonate-procedure)
+                   unsafe-impersonate-procedure
+                   unsafe-undefined)
              (for-syntax '#%kernel
                          '#%unsafe
                          "procedure-alias.rkt"
@@ -16,7 +17,8 @@
                          "norm-define.rkt"
                          "qqstx.rkt"
                          "sort.rkt"
-                         "kw-prop-key.rkt"))
+                         "kw-prop-key.rkt"
+                         "immediate-default.rkt"))
 
   (#%provide new-lambda new-λ
              new-define
@@ -39,6 +41,149 @@
                          syntax-procedure-alias-property 
                          syntax-procedure-converted-arguments-property))
 
+  ;; A `lambda` with just optional arguments is expanded to a form
+  ;; `case-lambda` that dispatches to a core `lambda`, where `core`
+  ;; takes all arguments. Arguments that are not supplied to the
+  ;; `case-lambda` wrapper are replaced by either `unsafe-undefined`
+  ;; or an immediate default when the `core` function is called. See
+  ;; "immediate-default.rkt" for the definition of immediate-default
+  ;; expressions.
+  ;;
+  ;; If the original `lambda` has a "rest" argument, then it is passed
+  ;; as a regular argument to the core `lambda`.
+  ;;
+  ;; For example,
+  ;;
+  ;;   (lambda (x [y (+ 1 2)] [z '3] . r)
+  ;;     <body>)
+  ;;
+  ;; becomes
+  ;;
+  ;;   (let ([core (lambda (_x _y _z _r)
+  ;;                 (let* ([x _x]
+  ;;                        [y (if (eq? _y unsafe-undefined)
+  ;;                               (+ 1 2)
+  ;;                               _y)]
+  ;;                        [z (if (#%expression #f) '3 _z)] ; `if` for TR
+  ;;                        [r _r])
+  ;;                   <body>))])
+  ;;     (case-lambda
+  ;;       [(x) (code x unsafe-undefined '3 null)]
+  ;;       [(x y z . r) (code x y z r)]
+  ;;       [(x y) (code x y '3 null)]))
+  ;;
+  ;; The "_"-prefixed argument names in the `core` `lambda` and the
+  ;; `let*` sequence reflect the way that default-argument expressions
+  ;; can refer only to earlier arguments. The order shown for the
+  ;; `case-lambda` clauses reflects how the current expansion orders a
+  ;; clause for just the required arguments first, and then it has
+  ;; clauses for the optional arguments in reverse order.
+  ;;
+  ;; The use of `(if (#%expression #f) '3 _z)` instead of `_z` has no
+  ;; effect on the compiled code, because the optimizer will simplify
+  ;; it to `_z`, but the `(#%expression #f)` is annotated for Typed
+  ;; Racket to ensure that the expression '3 contributes to type
+  ;; checking of the function.
+  ;;
+  ;; For keyword arguments, a `core` `lambda` similarly receives all
+  ;; arguments, with each keyword argument before all others and in
+  ;; order of sorted keywords. In addition, there's an intermediate
+  ;; `unpack` `lambda` that receives the keyword arguments in list
+  ;; form as the first two arguments, with the remaining arguments
+  ;; like the core; the job of the intermediate `unpack` `lambda` is
+  ;; to parse the lists while exploiting the fact that the lists are
+  ;; ordered.
+  ;;
+  ;; For example,
+  ;;
+  ;;  (lambda (x [y (+ 1 2)] #:b [b 'b] #:a [a (add1 b)] [z 3] . r)
+  ;;    <body>)
+  ;;
+  ;; becomes
+  ;;
+  ;;  (let ([core (lambda (_a _b _x _y _z _r)
+  ;;                (let* ([x _x]
+  ;;                       [_y (if (eq? _y unsafe-undefined)
+  ;;                               (+ 1 2)
+  ;;                               _y)]
+  ;;                       [b (if (#%expression #f) '3 _b)]
+  ;;                       [a (if (eq? _a unsafe-undefined)
+  ;;                              (add1 b)
+  ;;                              _a2)]
+  ;;                       [z (if (#%expression #f) '3 _z)]
+  ;;                       [r _r])
+  ;;                  <body>))])
+  ;;    (let ([unpack (lambda (kws args _x _y _z _r)
+  ;;                    (let* ([has-a? (and (pair? kws)
+  ;;                                        (eq? '#:a (car kws)))]
+  ;;                           [_a (if has-a? (car args) unsafe-undefined)]
+  ;;                           [kws (if has-a? (cdr kws) kws)]
+  ;;                           [args (if has-a? (cdr args) args)]
+  ;;                           [has-b? (pair? args)]
+  ;;                           [_b (if has-b? (car args) 'b)])
+  ;;                      (core _a _b _x _y _z _r)))])
+  ;;      (make-optional-keyword-procedure
+  ;;       ...
+  ;;       ;; Entry point when at least one keyword argument is provided:
+  ;;       (case-lambda
+  ;;         [(kw args x) (unpack kw args x unsafe-undefined '3 null)]
+  ;;         [(kws args x y z . r) (unpack kws args x y z r)]
+  ;;         [(kws args x y) (unpack kws args x y '3 null)])
+  ;;       ...
+  ;;       ;; Entry point when no keywords are provided:
+  ;;       (case-lambda
+  ;;         [(x) (unpack null null x unsafe-undefined '3 null)]
+  ;;         [(x y z . r) (unpack null null x y z r)]
+  ;;         [(x y) (unpack null null x y '3 null)]))))
+  ;;
+  ;; If the example is the right-hand side of `(define f ...)`, then
+  ;; `core` is flattened into the definition context as described
+  ;; further below, and some calls expand as follows:
+  ;;
+  ;;    (f 10) => (core unsafe-undefined 'b '10 unsafe-undefined '3 '())
+  ;;    (f 10 #:a 'a) => (core 'a 'b '10 unsafe-undefined '3 '())
+  ;;    (f 10 #:b bee #:a 'a) => (core 'a bee '10 unsafe-undefined '3 '())
+  ;;    (f 10 11) => (core unsafe-undefined 'b '10 '11 '3 '())
+  ;;    (f 10 11 12 13) => (core unsafe-undefined 'b '10 '11 '12 (list '13))
+  ;;
+  ;;
+  ;; Another example, illustrating a mandatory keyword argument:
+  ;;
+  ;;  (lambda (#:x x #:y [y (add1 x)]) <body>)
+  ;;
+  ;; becomes
+  ;;
+  ;;  (let ([core (lambda (_x _y)
+  ;;                (let* ([x _x]
+  ;;                       [y (if (eq? _y unsafe-undefined)
+  ;;                              (add1 x)
+  ;;                              _y)])
+  ;;                  <body>))])
+  ;;    (let ([unpack
+  ;;           (lambda (kws args)
+  ;;             (let* ([_x (car args)] ; no check needed
+  ;;                    [kws (cdr kws)]
+  ;;                    [args (cdr args)]
+  ;;                    [has-y? (pair? kws)]
+  ;;                    [_y (if has-y? (car args) unsafe-undefined)])
+  ;;               (core _x _y)))])
+  ;;      (naming-constructor
+  ;;       ...
+  ;;       (case-lambda
+  ;;         [(kws args) (unpack kw args)])
+  ;;       ...)))
+  ;;
+  ;; Finally, `(define (f ...) <body>)` or `(define f (lambda (...)
+  ;; <body>))` with keyword arguments expands to bind `f` as a macro,
+  ;; and some `_f` is bound to the expansion illustrated above, except
+  ;; that the `core` and `unpack` bindings are flattened into the
+  ;; definition context. That way, uses of the `f` macro can typically
+  ;; expand to a direct call to the corresponding `core` function,
+  ;; statically parsing the supplied keyword arguments and passing
+  ;; `unsafe-undefined` or an immediate default in place of unsupplied
+  ;; arguments. This macro-binding approach is used only when `f` has
+  ;; keyword arguments.
+
   ;; ----------------------------------------
 
   (define-values (prop:keyword-impersonator keyword-impersonator? keyword-impersonator-ref)
@@ -395,21 +540,21 @@
           [([id default] . rest)
            (identifier? (syntax id))
            (with-syntax ([(plain opt-ids opts kws need-kw rest) (loop #'rest #t)])
-             #'(plain (id . opt-ids) ([id default #:opt] . opts) kws need-kw rest))]
+             #'(plain ([id default] . opt-ids) ([id default #:opt] . opts) kws need-kw rest))]
           [(kw id . rest)
            (and (identifier? #'id)
                 (keyword? (syntax-e #'kw)))
            (begin
              (check-kw #'kw)
              (with-syntax ([(plain opt-ids opts kws need-kw rest) (loop #'rest needs-default?)])
-               #'(plain opt-ids ([id #f #:kw-req] . opts) ([kw id #t] . kws) (kw . need-kw) rest)))]
+               #'(plain opt-ids ([id #f #:kw-req] . opts) ([kw id #t #f] . kws) (kw . need-kw) rest)))]
           [(kw [id default] . rest)
            (and (identifier? #'id)
                 (keyword? (syntax-e #'kw)))
            (begin
              (check-kw #'kw)
              (with-syntax ([(plain opt-ids opts kws need-kw rest) (loop #'rest needs-default?)])
-               #'(plain opt-ids ([id default #:kw-opt] . opts) ([kw id #f] . kws) need-kw rest)))]
+               #'(plain opt-ids ([id default #:kw-opt] . opts) ([kw id #f default] . kws) need-kw rest)))]
           [(kw)
            (keyword? (syntax-e #'kw))
            (begin
@@ -447,9 +592,9 @@
               (lambda args body1 body ...)))
            ;; Handle keyword or optional arguments:
            (with-syntax ([((plain-id ...)
-                           (opt-id ...)
+                           ([opt-id pos-opt-expr] ...)
                            ([id opt-expr kind] ...)
-                           ([kw kw-id kw-req] ...)
+                           ([kw kw-id kw-req kw-opt-expr] ...)
                            need-kw
                            rest)
                           (parse-formals stx #'args)])
@@ -465,13 +610,20 @@
                     [ids (syntax->list #'(id ...))]
                     [plain-ids (syntax->list #'(plain-id ...))]
                     [kw-reqs (syntax->list #'(kw-req ...))]
-                    [kw-args (generate-temporaries kws)]     ; to hold supplied value
-                    [kw-arg?s (generate-temporaries kws)]    ; to indicated whether it was supplied
+                    [kw-args (generate-temporaries kws)]     ; supplied value
+                    [kw-arg?s (generate-temporaries kws)]    ; temporary to indicate whether supplied
                     [opt-args (generate-temporaries opts)]   ; supplied value
-                    [opt-arg?s (generate-temporaries opts)]  ; whether supplied
+                    [get-not-supplieds (lambda (opt-exprs)
+                                         (map (lambda (opt-expr)
+                                                (if (immediate-default? opt-expr)
+                                                    opt-expr
+                                                    #'unsafe-undefined))
+                                              opt-exprs))]
+                    [opt-not-supplieds (get-not-supplieds (syntax->list #'(pos-opt-expr ...)))]
+                    [kw-not-supplieds (get-not-supplieds (syntax->list #'(kw-opt-expr ...)))]
                     [needed-kws (sort (syntax->list #'need-kw)
                                       (lambda (a b) (keyword<? (syntax-e a) (syntax-e b))))]
-                    [sorted-kws (sort (map list kws kw-args kw-arg?s kw-reqs)
+                    [sorted-kws (sort (map list kws kw-args kw-arg?s kw-reqs kw-not-supplieds)
                                       (lambda (a b) (keyword<? (syntax-e (car a))
                                                                (syntax-e (car b)))))]
                     [method? (syntax-property stx 'method-arity-error)]
@@ -483,21 +635,12 @@
                                         (let loop ([kws kws])
                                           (cond
                                            [(null? kws) null]
-                                           [(syntax-e (cadddr (car kws)))
-                                            (cons (cadar kws) (loop (cdr kws)))]
                                            [else
-                                            (list* (cadar kws) (caddar kws) (loop (cdr kws)))])))])
+                                            (cons (cadar kws) (loop (cdr kws)))])))])
                (with-syntax ([(kw-arg ...) kw-args]
-                             [(kw-arg? ...) (let loop ([kw-arg?s kw-arg?s]
-                                                       [kw-reqs kw-reqs])
-                                              (cond
-                                               [(null? kw-arg?s) null]
-                                               [(not (syntax-e (car kw-reqs)))
-                                                (cons (car kw-arg?s) (loop (cdr kw-arg?s) (cdr kw-reqs)))]
-                                               [else (loop (cdr kw-arg?s) (cdr kw-reqs))]))]
                              [kws-sorted sorted-kws]
                              [(opt-arg ...) opt-args]
-                             [(opt-arg? ...) opt-arg?s]
+                             [(opt-not-supplied ...) opt-not-supplieds]
                              [(new-plain-id  ...) (generate-temporaries #'(plain-id ...))]
                              [new-rest (if (null? (syntax-e #'rest))
                                            '()
@@ -532,11 +675,10 @@
                           ;; come in as a pair of arguments (value and
                           ;; whether the value is valid):
                           ;; the arguments are in the following order:
-                          ;; - optional kw/kw?, interspersed
+                          ;; - optional kw; `unsafe-undefined` for not-supplied
                           ;; - mandatory kw
-                          ;; - mandatory positional arguments
-                          ;; - optional positional arguments
-                          ;; - optional positional argument validity flags
+                          ;; - mandatory positional
+                          ;; - optional positional; `unsafe-undefined` for not-supplied
                           ;; - rest arguments
                           (annotate-method
                            (quasisyntax/loc stx
@@ -545,15 +687,14 @@
                                              null)
                                       new-plain-id ... 
                                       opt-arg ...
-                                      opt-arg? ...
                                       . new-rest)
                                ;; sort out the arguments into the user-supplied bindings,
                                ;; evaluating default-value expressions as needed:
                                #,(syntax-property
                                   (quasisyntax/loc stx ; kw-opt profiler uses this srcloc
                                     (let-maybe ([id opt-expr kind] ... . rest)
-                                               (kw-arg ...) (kw-arg? ...)
-                                               (opt-arg ...) (opt-arg? ...)
+                                               (kw-arg ...)
+                                               (opt-arg ...)
                                                (new-plain-id ... . new-rest)
                                                ;; the original body, finally:
                                                body1 body ...))
@@ -566,7 +707,6 @@
                              (lambda (given-kws given-args
                                       new-plain-id ... 
                                       opt-arg ...
-                                      opt-arg? ...
                                       . new-rest)
                                ;; sort out the arguments into the user-supplied bindings,
                                ;; evaluating default-value expressions as needed:
@@ -575,7 +715,7 @@
                                     (let-kws given-kws given-args kws-sorted
                                              #,(syntax-property
                                                 #`(core #,@(flatten-keywords sorted-kws)
-                                                        new-plain-id ... opt-arg ... opt-arg? ...
+                                                        new-plain-id ... opt-arg ...
                                                         . new-rest)
                                                 'kw-feature-profile:opt-protocol 'antimark)))
                                   'feature-profile:kw-opt-protocol #f)))))]
@@ -587,9 +727,9 @@
                              (opt-cases #,(if kw-core?
                                               #'(unpack null null)
                                               #'(core))
-                                        ([opt-id opt-arg opt-arg?] ...) (plain-id ...) 
-                                        () (rest-empty rest-id . rest)
-                                        ()))))]
+                                        ([opt-id opt-arg opt-not-supplied] ...) (plain-id ...) 
+                                        () ()
+                                        (rest-empty rest-id . rest) ()))))]
                        [mk-with-kws
                         (lambda ()
                           ;; entry point with keywords:
@@ -598,23 +738,23 @@
                               #'core
                               (annotate-method
                                (syntax/loc stx
-                                 (opt-cases (unpack) ([opt-id opt-arg opt-arg?] ...) (given-kws given-args plain-id ...) 
-                                            () (rest-empty rest-id . rest)
-                                            ())))))]
+                                 (opt-cases (unpack) ([opt-id opt-arg opt-not-supplied] ...) (given-kws given-args plain-id ...) 
+                                            () ()
+                                            (rest-empty rest-id . rest) ())))))]
                        [mk-kw-arity-stub
                         (lambda ()
                           ;; struct-type entry point for no keywords when a keyword is required
                           (annotate-method
                            (syntax/loc stx
                              (fail-opt-cases (missing-kw) (opt-id ...) (self plain-id ...) 
-                                             () (rest-id . fail-rest)
-                                             ()))))]
+                                             ()
+                                             (rest-id . fail-rest) ()))))]
                        [kw-k* (lambda (impl kwimpl wrap)
                                 (kw-k impl kwimpl wrap #'core #'unpack
-                                      (length plain-ids) (length opts) 
+                                      (length plain-ids) opt-not-supplieds
                                       (not (null? (syntax-e #'rest)))
                                       needed-kws
-                                      (map car sorted-kws)))])
+                                      sorted-kws))])
                    (cond
                     [(null? kws)
                      ;; just the no-kw part
@@ -685,7 +825,7 @@
                   stx
                   #f
                   (lambda (e) e)
-                  (lambda (impl kwimpl wrap core-id unpack-id n-req n-opt rest? req-kws all-kws)
+                  (lambda (impl kwimpl wrap core-id unpack-id n-req opt-not-supplieds rest? req-kws all-kws)
                     (syntax-protect
                      (quasisyntax/loc stx
                        (let ([#,core-id #,impl])
@@ -714,23 +854,23 @@
     (syntax-rules ()
       [(_ kws kw-args () . body)
        (begin . body)]
-      [(_ kws kw-args ([kw arg arg? #f]) . body)
+      [(_ kws kw-args ([kw arg arg? #f not-supplied-val]) . body)
        ;; last optional argument doesn't need to check as much or take as many cdrs
        (let ([arg? (pair? kws)])
-         (let ([arg (if arg? (car kw-args) (void))])
+         (let ([arg (if arg? (car kw-args) not-supplied-val)])
            . body))]
-      [(_ kws kw-args ([kw arg arg? #f] . rest) . body)
+      [(_ kws kw-args ([kw arg arg? #f not-supplied-val] . rest) . body)
        (let ([arg? (and (pair? kws)
                         (eq? 'kw (car kws)))])
-         (let ([arg (if arg? (car kw-args) (void))]
+         (let ([arg (if arg? (car kw-args) not-supplied-val)]
                [kws (if arg? (cdr kws) kws)]
                [kw-args (if arg? (cdr kw-args) kw-args)])
            (let-kws kws kw-args rest . body)))]
-      [(_ kws kw-args ([kw arg arg? #t]) . body)
+      [(_ kws kw-args ([kw arg arg? #t _]) . body)
        ;; last required argument doesn't need to take cdrs
        (let ([arg (car kw-args)])
          . body)]
-      [(_ kws kw-args ([kw arg arg? #t] . rest) . body)
+      [(_ kws kw-args ([kw arg arg? #t _] . rest) . body)
        (let ([arg (car kw-args)]
              [kws (cdr kws)]
              [kw-args (cdr kw-args)])
@@ -752,27 +892,34 @@
   ;; for the value (if supplied).
   (define-syntax opt-cases 
     (syntax-rules ()
-      [(_ (core ...) () (base ...) () (rest-empty rest-id . rest) ())
+      [(_ (core ...) () (base ...)
+          () ()
+          (rest-empty rest-id . rest) ())
        ;; This case only happens when there are no optional arguments
        (case-lambda
          [(base ... . rest-id)
           (core ... base ... . rest)])]
-      [(_ (core ...) ([opt-id opt-arg opt-arg?]) (base ...) (done-id ...) (rest-empty rest-id . rest) clauses)
+      [(_ (core ...) ([opt-id opt-arg not-supplied-val]) (base ...)
+          (done-id ...) (done-not-supplied ...)
+          (rest-empty rest-id . rest) clauses)
        ;; Handle the last optional argument and the rest args (if any)
        ;; at the same time.
        (case-lambda
-         [(base ...) (core ... base ... (a-false done-id) ... #f (a-false done-id) ... #f . rest-empty)]
+         [(base ...) (core ... base ... done-not-supplied ... not-supplied-val . rest-empty)]
          [(base ... done-id ... opt-arg . rest-id)
-          (core ... base ... done-id ... opt-arg (a-true done-id) ... #t . rest)]
+          (core ... base ... done-id ... opt-arg . rest)]
          . clauses)]
-      [(_ (core ...) ([opt-id opt-arg opt-arg?] more ...) (base ...) (done-id ...) (rest-empty rest-id . rest) clauses)
+      [(_ (core ...) ([opt-id opt-arg not-supplied-val] [more-id more-arg more-not-supplied] ...) (base ...)
+          (done-id ...) (done-not-supplied ...)
+          (rest-empty rest-id . rest) clauses)
        ;; Handle just one optional argument, add it to the "done" sequence,
        ;; and continue generating clauses for the remaining optional arguments.
-       (opt-cases (core ...) (more ...) (base ...) (done-id ... opt-id) (rest-empty rest-id . rest)
+       (opt-cases (core ...) ([more-id more-arg more-not-supplied] ...) (base ...)
+                  (done-id ... opt-id) (done-not-supplied ... not-supplied-val)
+                  (rest-empty rest-id . rest)
                   ([(base ... done-id ... opt-arg)
                     (core ... base ... 
-                          done-id ... opt-arg (a-false more) ... 
-                          (a-true done-id) ... #t (a-false more) ... . rest-empty)]
+                          done-id ... opt-arg more-not-supplied ... . rest-empty)]
                    . clauses))]))
 
   ;; Helper macro:
@@ -798,10 +945,6 @@
                          (fail ... base ... done ... opt-arg)]
                         . clauses))]))
   
-  ;; Helper macros:
-  (define-syntax (a-false stx) #'#f)
-  (define-syntax (a-true stx) #'#t)
-  
   ;; ----------------------------------------
 
   ;; Helper macro:
@@ -815,31 +958,39 @@
   ;; cannot be used to compute the default).
   (define-syntax (let-maybe stx)
     (syntax-case stx (required)
-      [(_ () () () () () () . body)
+      [(_ () () () () . body)
        (syntax-property
         #'(let () . body)
         'feature-profile:kw-opt-protocol 'antimark)]
-      [(_ ([id ignore #:plain] . more) kw-args kw-arg?s opt-args opt-arg?s (req-id . req-ids) . body)
+      [(_ ([id ignore #:plain] . more) kw-args opt-args (req-id . req-ids) . body)
        #'(let ([id req-id])
-           (let-maybe more kw-args kw-arg?s opt-args opt-arg?s req-ids . body))]
-      [(_ ([id expr #:opt] . more)  kw-args kw-arg?s (opt-arg . opt-args) (opt-arg? . opt-arg?s) req-ids . body)
-       #'(let ([id (if opt-arg?
-                       opt-arg
-                       expr)])
-           (let-maybe more kw-args kw-arg?s opt-args opt-arg?s req-ids . body))]
-      [(_ ([id expr #:kw-req] . more)  (kw-arg . kw-args) kw-arg?s opt-args opt-arg?s req-ids . body)
+           (let-maybe more kw-args opt-args req-ids . body))]
+      [(_ ([id expr #:opt] . more)  kw-args (opt-arg . opt-args) req-ids . body)
+       #`(let ([id #,(wrap-default-check #'opt-arg #'expr)])
+           (let-maybe more kw-args opt-args req-ids . body))]
+      [(_ ([id expr #:kw-req] . more)  (kw-arg . kw-args) opt-args req-ids . body)
        #'(let ([id kw-arg])
-           (let-maybe more kw-args kw-arg?s opt-args opt-arg?s req-ids . body))]
-      [(_ ([id expr #:kw-opt] . more)  (kw-arg . kw-args) (kw-arg? . kw-arg?s) opt-args opt-arg?s req-ids . body)
-       #'(let ([id (if kw-arg?
-                       kw-arg
-                       expr)])
-           (let-maybe more kw-args kw-arg?s opt-args opt-arg?s req-ids . body))]
-      [(_ (id) () () () () (req-id) . body)
+           (let-maybe more kw-args opt-args req-ids . body))]
+      [(_ ([id expr #:kw-opt] . more) (kw-arg . kw-args) opt-args req-ids . body)
+       #`(let ([id #,(wrap-default-check #'kw-arg #'expr)])
+           (let-maybe more kw-args opt-args req-ids . body))]
+      [(_ (id) () () (req-id) . body)
        (syntax-property
         #'(let ([id req-id]) . body)
         'feature-profile:kw-opt-protocol 'antimark)]))
 
+  (define-for-syntax (wrap-default-check arg-id expr)
+    (with-syntax ([arg-id arg-id])
+      (with-syntax ([tst (if (immediate-default? expr)
+                             (syntax-property #'(#%expression #f)
+                                              'typed-racket:ignore-type-information
+                                              #t)
+                             #'(eq? arg-id unsafe-undefined))]
+                    [expr expr])
+        #'(if tst
+              expr
+              arg-id))))
+
   ;; ----------------------------------------
   ;; Helper macros:
   ;;  Generate arity and keyword-checking procedure statically
@@ -914,7 +1065,7 @@
                                   plain
                                   (lambda (impl kwimpl wrap 
                                                 core-id unpack-id
-                                                n-req n-opt rest? req-kws all-kws)
+                                                n-req opt-not-supplieds rest? req-kws all-kws)
                                     (with-syntax ([proc (car (generate-temporaries (list id)))])
                                       (syntax-protect
                                        (quasisyntax/loc stx
@@ -924,7 +1075,7 @@
                                                  (make-keyword-syntax (lambda () 
                                                                         (values (quote-syntax #,core-id)
                                                                                 (quote-syntax proc)))
-                                                                      #,n-req #,n-opt #,rest? 
+                                                                      #,n-req '#,opt-not-supplieds #,rest? 
                                                                       '#,req-kws '#,all-kws)))
                                            #,(quasisyntax/loc stx 
                                                (define #,core-id #,(core-wrap impl)))
@@ -1074,7 +1225,7 @@
       (raise-argument-error 'syntax-procedure-converted-arguments "syntax?" stx))
     (syntax-property stx kw-converted-arguments-variant-of))
 
-  (define-for-syntax (make-keyword-syntax get-ids n-req n-opt rest? req-kws all-kws)
+  (define-for-syntax (make-keyword-syntax get-ids n-req opt-not-supplieds rest? req-kws all-kws)
     (make-kw-expander
      (lambda (stx)
        (define-values (impl-id wrap-id) (get-ids))
@@ -1109,7 +1260,8 @@
                 [wrap-id/prop
                  (syntax-property wrap-id alias-of 
                                   (cons (syntax-taint (syntax-local-introduce #'self))
-                                        (syntax-taint (syntax-local-introduce wrap-id))))])
+                                        (syntax-taint (syntax-local-introduce wrap-id))))]
+                [n-opt (length opt-not-supplieds)])
             (if (free-identifier=? #'new-app (datum->syntax stx '#%app))
                 (parse-app (datum->syntax #f (cons #'new-app stx) stx)
                            (lambda (n)
@@ -1144,12 +1296,12 @@
                                                      [all-kws (let loop ([all-kws all-kws])
                                                                 (cond
                                                                  [(null? all-kws) null]
-                                                                 [(keyword<? (car all-kws) kw)
+                                                                 [(keyword<? (caar all-kws) kw)
                                                                   (loop (cdr all-kws))]
                                                                  [else all-kws]))])
                                                 (cond
                                                  [(or (null? all-kws)
-                                                      (not (eq? kw (car all-kws))))
+                                                      (not (eq? kw (caar all-kws))))
                                                   (warning
                                                    (format "keyword ~a that is not accepted" kw))
                                                   #f]
@@ -1157,7 +1309,7 @@
                                                        (eq? kw (car req-kws)))
                                                   (loop (cdr kw-args) (cdr req-kws) (cdr all-kws))]
                                                  [(and (pair? req-kws)
-                                                       (keyword<? (car req-kws) (car all-kws)))
+                                                       (keyword<? (car req-kws) (caar all-kws)))
                                                   (warning
                                                    (format "missing required keyword ~a" (car req-kws)))
                                                   #f]
@@ -1170,22 +1322,16 @@
                                            (if (variable-reference-constant? (#%variable-reference #,wrap-id))
                                                (#,impl-id/prop
                                                 ;; keyword arguments:
-                                                #,@(let loop ([kw-args kw-args] [req-kws req-kws] [all-kws all-kws])
+                                                #,@(let loop ([kw-args kw-args] [all-kws all-kws])
                                                      (cond
                                                       [(null? all-kws) null]
                                                       [(and (pair? kw-args)
-                                                            (eq? (syntax-e (caar kw-args)) (car all-kws)))
-                                                       (if (and (pair? req-kws)
-                                                                (eq? (car req-kws) (car all-kws)))
-                                                           (cons (cdar kw-args) 
-                                                                 (loop (cdr kw-args) (cdr req-kws) (cdr all-kws)))
-                                                           (list* (cdar kw-args) 
-                                                                  #'#t
-                                                                  (loop (cdr kw-args) req-kws (cdr all-kws))))]
+                                                            (eq? (syntax-e (caar kw-args)) (caar all-kws)))
+                                                       (cons (cdar kw-args) 
+                                                             (loop (cdr kw-args) (cdr all-kws)))]
                                                       [else
-                                                       (list* #'#f
-                                                              #'#f
-                                                              (loop kw-args req-kws (cdr all-kws)))]))
+                                                       (cons (list-ref (car all-kws) 4)
+                                                             (loop kw-args (cdr all-kws)))]))
                                                 ;; required arguments:
                                                 #,@(let loop ([i n-req] [args args])
                                                      (if (zero? i)
@@ -1193,19 +1339,14 @@
                                                          (cons (car args)
                                                                (loop (sub1 i) (cdr args)))))
                                                 ;; optional arguments:
-                                                #,@(let loop ([i n-opt] [args (list-tail args n-req)])
+                                                #,@(let loop ([opt-not-supplieds opt-not-supplieds] [args (list-tail args n-req)])
                                                      (cond
-                                                      [(zero? i) null]
-                                                      [(null? args) (cons #'#f (loop (sub1 i) null))]
+                                                      [(null? opt-not-supplieds) null]
+                                                      [(null? args)
+                                                       (cons (car opt-not-supplieds)
+                                                             (loop (cdr opt-not-supplieds) null))]
                                                       [else
-                                                       (cons (car args) (loop (sub1 i) (cdr args)))]))
-                                                ;; booleans indicating whether optional argument are present:
-                                                #,@(let loop ([i n-opt] [args (list-tail args n-req)])
-                                                     (cond
-                                                      [(zero? i) null]
-                                                      [(null? args) (cons #'#f (loop (sub1 i) null))]
-                                                      [else
-                                                       (cons #'#t (loop (sub1 i) (cdr args)))]))
+                                                       (cons (car args) (loop (cdr opt-not-supplieds) (cdr args)))]))
                                                 ;; rest args:
                                                 #,@(if rest?
                                                        #`((list #,@(list-tail args (min (length args) (+ n-req n-opt)))))
diff --git a/racket/src/racket/src/schvers.h b/racket/src/racket/src/schvers.h
index 3fa1e99a4b..20e449427c 100644
--- a/racket/src/racket/src/schvers.h
+++ b/racket/src/racket/src/schvers.h
@@ -13,12 +13,12 @@
    consistently.)
 */
 
-#define MZSCHEME_VERSION "6.90.0.28"
+#define MZSCHEME_VERSION "6.90.0.29"
 
 #define MZSCHEME_VERSION_X 6
 #define MZSCHEME_VERSION_Y 90
 #define MZSCHEME_VERSION_Z 0
-#define MZSCHEME_VERSION_W 28
+#define MZSCHEME_VERSION_W 29
 
 #define MZSCHEME_VERSION_MAJOR ((MZSCHEME_VERSION_X * 100) + MZSCHEME_VERSION_Y)
 #define MZSCHEME_VERSION_MINOR ((MZSCHEME_VERSION_Z * 1000) + MZSCHEME_VERSION_W)
diff --git a/racket/src/racket/src/startup.inc b/racket/src/racket/src/startup.inc
index f958d84c18..a72bd2d219 100644
--- a/racket/src/racket/src/startup.inc
+++ b/racket/src/racket/src/startup.inc
@@ -2313,13 +2313,13 @@ static const char *startup_source =
 "(hash-iterate-first h_0)))))"
 "(define-values"
 "(sort7.1)"
-"(lambda(cache-keys?2_0 cache-keys?4_0 key1_0 key3_0 lst5_0 less?6_0)"
+"(lambda(cache-keys?2_0 key1_0 lst5_0 less?6_0)"
 "(begin"
 " 'sort7"
 "(let-values(((lst_6) lst5_0))"
 "(let-values(((less?_0) less?6_0))"
-"(let-values(((getkey_4)(if key3_0 key1_0 #f)))"
-"(let-values(((cache-keys?_3)(if cache-keys?4_0 cache-keys?2_0 #f)))"
+"(let-values(((getkey_4) key1_0))"
+"(let-values(((cache-keys?_3) cache-keys?2_0))"
 "(let-values()"
 "(begin"
 "                  (if (list? lst_6) (void) (let-values () (raise-argument-error 'sort \"list?\" lst_6)))"
@@ -2332,10 +2332,10 @@ static const char *startup_source =
 "(if getkey_4(sort lst_6 less?_0 getkey_4 cache-keys?_3)(sort lst_6 less?_0)))))))))))"
 "(define-values"
 "(bad-list)"
-"  (lambda (who_6 orig-l_7) (begin (raise-mismatch-error who_6 \"not a proper list: \" orig-l_7))))"
+"  (lambda (who_5 orig-l_7) (begin (raise-mismatch-error who_5 \"not a proper list: \" orig-l_7))))"
 "(define-values"
 "(bad-item)"
-"  (lambda (who_7 a_10 orig-l_8) (begin (raise-mismatch-error who_7 \"non-pair found in list: \" a_10 \" in \" orig-l_8))))"
+"  (lambda (who_6 a_10 orig-l_8) (begin (raise-mismatch-error who_6 \"non-pair found in list: \" a_10 \" in \" orig-l_8))))"
 "(define-values"
 "(1/assq 1/assv 1/assoc assf)"
 "(let-values()"
@@ -2344,44 +2344,44 @@ static const char *startup_source =
 "(lambda(x_9 l_19)"
 "(begin"
 " 'assq"
-"((letrec-values(((loop_47)"
+"((letrec-values(((loop_45)"
 "(lambda(l_20 t_0)"
 "(begin"
 " 'loop"
 "(if(pair? l_20)"
 "(let-values()"
-"(let-values(((a_0)(unsafe-car l_20)))"
-"(if(pair? a_0)"
-"(if(eq? x_9(unsafe-car a_0))"
-" a_0"
-"(let-values(((l_21)(unsafe-cdr l_20)))"
-"(if(pair? l_21)"
-"(let-values()"
-"(let-values(((a_11)(unsafe-car l_21)))"
+"(let-values(((a_11)(unsafe-car l_20)))"
 "(if(pair? a_11)"
 "(if(eq? x_9(unsafe-car a_11))"
 " a_11"
+"(let-values(((l_21)(unsafe-cdr l_20)))"
+"(if(pair? l_21)"
+"(let-values()"
+"(let-values(((a_0)(unsafe-car l_21)))"
+"(if(pair? a_0)"
+"(if(eq? x_9(unsafe-car a_0))"
+" a_0"
 "(let-values(((t_1)(unsafe-cdr t_0))"
 "((l_22)(unsafe-cdr l_21)))"
 "(if(eq? l_22 t_1)"
 "(bad-list 'assq l_19)"
-"(loop_47 l_22 t_1))))"
-"(bad-item 'assq a_11 l_19))))"
+"(loop_45 l_22 t_1))))"
+"(bad-item 'assq a_0 l_19))))"
 "(if(null? l_21)"
 "(let-values() #f)"
 "(let-values()(bad-list 'assq l_19))))))"
-"(bad-item 'assq a_0 l_19))))"
+"(bad-item 'assq a_11 l_19))))"
 "(if(null? l_20)"
 "(let-values() #f)"
 "(let-values()(bad-list 'assq l_19))))))))"
-" loop_47)"
+" loop_45)"
 " l_19"
 " l_19))))"
 "((assv_0)"
 "(lambda(x_10 l_23)"
 "(begin"
 " 'assv"
-"((letrec-values(((loop_48)"
+"((letrec-values(((loop_47)"
 "(lambda(l_24 t_2)"
 "(begin"
 " 'loop"
@@ -2402,7 +2402,7 @@ static const char *startup_source =
 "((l_26)(unsafe-cdr l_25)))"
 "(if(eq? l_26 t_3)"
 "(bad-list 'assv l_23)"
-"(loop_48 l_26 t_3))))"
+"(loop_47 l_26 t_3))))"
 "(bad-item 'assv a_13 l_23))))"
 "(if(null? l_25)"
 "(let-values() #f)"
@@ -2411,7 +2411,7 @@ static const char *startup_source =
 "(if(null? l_24)"
 "(let-values() #f)"
 "(let-values()(bad-list 'assv l_23))))))))"
-" loop_48)"
+" loop_47)"
 " l_23"
 " l_23))))"
 "((assoc_0)"
@@ -2419,7 +2419,7 @@ static const char *startup_source =
 "((x_11 l_27)"
 "(begin"
 " 'assoc"
-"((letrec-values(((loop_49)"
+"((letrec-values(((loop_48)"
 "(lambda(l_28 t_4)"
 "(begin"
 " 'loop"
@@ -2440,7 +2440,7 @@ static const char *startup_source =
 "((l_30)(unsafe-cdr l_29)))"
 "(if(eq? l_30 t_5)"
 "(bad-list 'assoc l_27)"
-"(loop_49 l_30 t_5))))"
+"(loop_48 l_30 t_5))))"
 "(bad-item 'assoc a_15 l_27))))"
 "(if(null? l_29)"
 "(let-values() #f)"
@@ -2449,7 +2449,7 @@ static const char *startup_source =
 "(if(null? l_28)"
 "(let-values() #f)"
 "(let-values()(bad-list 'assoc l_27))))))))"
-" loop_49)"
+" loop_48)"
 " l_27"
 " l_27)))"
 "((x_12 l_31 is-equal?_0)"
@@ -2457,7 +2457,7 @@ static const char *startup_source =
 "(if(if(procedure? is-equal?_0)(procedure-arity-includes? is-equal?_0 2) #f)"
 "(void)"
 "                          (let-values () (raise-argument-error 'assoc \"(any/c any/c . -> . any/c)\" is-equal?_0)))"
-"((letrec-values(((loop_50)"
+"((letrec-values(((loop_49)"
 "(lambda(l_32 t_6)"
 "(begin"
 " 'loop"
@@ -2478,7 +2478,7 @@ static const char *startup_source =
 "((l_34)(unsafe-cdr l_33)))"
 "(if(eq? l_34 t_7)"
 "(bad-list 'assoc l_31)"
-"(loop_50 l_34 t_7))))"
+"(loop_49 l_34 t_7))))"
 "(bad-item 'assoc a_17 l_31))))"
 "(if(null? l_33)"
 "(let-values() #f)"
@@ -2487,7 +2487,7 @@ static const char *startup_source =
 "(if(null? l_32)"
 "(let-values() #f)"
 "(let-values()(bad-list 'assoc l_31))))))))"
-" loop_50)"
+" loop_49)"
 " l_31"
 " l_31)))))"
 "((assf_0)"
@@ -2498,7 +2498,7 @@ static const char *startup_source =
 "(if(if(procedure? f_17)(procedure-arity-includes? f_17 1) #f)"
 "(void)"
 "                            (let-values () (raise-argument-error 'assf \"(any/c any/c . -> . any/c)\" f_17)))"
-"((letrec-values(((loop_51)"
+"((letrec-values(((loop_50)"
 "(lambda(l_36 t_8)"
 "(begin"
 " 'loop"
@@ -2521,7 +2521,7 @@ static const char *startup_source =
 "((l_38)(unsafe-cdr l_37)))"
 "(if(eq? l_38 t_9)"
 "(bad-list 'assf l_35)"
-"(loop_51 l_38 t_9))))"
+"(loop_50 l_38 t_9))))"
 "(bad-item 'assf a_20 l_35))))"
 "(if(null? l_37)"
 "(let-values() #f)"
@@ -2530,7 +2530,7 @@ static const char *startup_source =
 "(if(null? l_36)"
 "(let-values() #f)"
 "(let-values()(bad-list 'assf l_35))))))))"
-" loop_51)"
+" loop_50)"
 " l_35"
 " l_35))))))"
 "(values assq_0 assv_0 assoc_0 assf_0)))))"
@@ -2543,26 +2543,26 @@ static const char *startup_source =
 "(void)"
 "          (let-values () (raise-argument-error 'filter \"(any/c . -> . any/c)\" f_18)))"
 "        (if (list? list_0) (void) (let-values () (raise-argument-error 'filter \"list?\" list_0)))"
-"((letrec-values(((loop_52)"
+"((letrec-values(((loop_51)"
 "(lambda(l_39 result_0)"
 "(begin"
 " 'loop"
 "(if(null? l_39)"
 "(reverse$1 result_0)"
-"(loop_52(cdr l_39)(if(f_18(car l_39))(cons(car l_39) result_0) result_0)))))))"
-" loop_52)"
+"(loop_51(cdr l_39)(if(f_18(car l_39))(cons(car l_39) result_0) result_0)))))))"
+" loop_51)"
 " list_0"
 " null)))))"
 "(define-values(no-empty-edge-table)(make-hash))"
 " (define-values (binary-or-text-desc) \"(or/c 'binary 'text)\")"
 "(define-values"
 "(open-input-file6.1)"
-"(lambda(for-module?2_0 for-module?4_0 mode1_0 mode3_0 path5_0)"
+"(lambda(for-module?2_0 mode1_0 path5_0)"
 "(begin"
 " 'open-input-file6"
 "(let-values(((path_0) path5_0))"
-"(let-values(((mode_0)(if mode3_0 mode1_0 'binary)))"
-"(let-values(((for-module?_0)(if for-module?4_0 for-module?2_0 #f)))"
+"(let-values(((mode_0) mode1_0))"
+"(let-values(((for-module?_0) for-module?2_0))"
 "(let-values()"
 "(begin"
 "(if(path-string? path_0)"
@@ -2574,12 +2574,12 @@ static const char *startup_source =
 "(open-input-file path_0 mode_0(if for-module?_0 'module 'none))))))))))"
 "(define-values"
 "(with-input-from-file45.1)"
-"(lambda(mode41_0 mode42_0 path43_0 proc44_0)"
+"(lambda(mode41_0 path43_0 proc44_0)"
 "(begin"
 " 'with-input-from-file45"
 "(let-values(((path_1) path43_0))"
 "(let-values(((proc_0) proc44_0))"
-"(let-values(((mode_1)(if mode42_0 mode41_0 'binary)))"
+"(let-values(((mode_1) mode41_0))"
 "(let-values()"
 "(begin"
 "(if(path-string? path_1)"
@@ -2594,12 +2594,12 @@ static const char *startup_source =
 "(with-input-from-file path_1 proc_0 mode_1)))))))))"
 "(define-values"
 "(call-with-input-file*61.1)"
-"(lambda(mode57_0 mode58_0 path59_0 proc60_0)"
+"(lambda(mode57_0 path59_0 proc60_0)"
 "(begin"
 " 'call-with-input-file*61"
 "(let-values(((path_2) path59_0))"
 "(let-values(((proc_1) proc60_0))"
-"(let-values(((mode_2)(if mode58_0 mode57_0 'binary)))"
+"(let-values(((mode_2) mode57_0))"
 "(let-values()"
 "(begin"
 "(if(path-string? path_2)"
@@ -2970,14 +2970,14 @@ static const char *startup_source =
 "(set! monitor-owner #f)"
 "(set! extra-atomic-depth 0)"
 "(end-breakable-atomic)"
-"((letrec-values(((loop_53)"
+"((letrec-values(((loop_52)"
 "(lambda(i_26)"
 "(begin"
 " 'loop"
 "(if(zero? i_26)"
 "(void)"
-"(let-values()(begin(end-breakable-atomic)(loop_53(sub1 i_26)))))))))"
-" loop_53)"
+"(let-values()(begin(end-breakable-atomic)(loop_52(sub1 i_26)))))))))"
+" loop_52)"
 " extra-depth_0)))"
 " f_20"
 "(lambda()"
@@ -2985,15 +2985,15 @@ static const char *startup_source =
 "(start-breakable-atomic)"
 "(set! old-paramz paramz_2)"
 "(set! old-break-paramz break-paramz_0)"
-"((letrec-values(((loop_54)"
+"((letrec-values(((loop_53)"
 "(lambda(i_27)"
 "(begin"
 " 'loop"
 "(if(zero? i_27)"
 "(void)"
 "(let-values()"
-"(begin(start-breakable-atomic)(loop_54(sub1 i_27)))))))))"
-" loop_54)"
+"(begin(start-breakable-atomic)(loop_53(sub1 i_27)))))))))"
+" loop_53)"
 " extra-depth_0)"
 "(set! extra-atomic-depth extra-depth_0)"
 "(set! monitor-owner(current-thread)))))))))))))))"
@@ -3089,19 +3089,18 @@ static const char *startup_source =
 "(lambda(v_29)"
 "(begin"
 "(let-values(((v13_0) v_29)((temp14_0) #t)((temp15_0) #t)((temp16_0) #t))"
-"(module-path-string?10.1 temp14_0 #t temp16_0 #t #f #f temp15_0 #t v13_0)))))"
+"(module-path-string?10.1 temp14_0 temp16_0 #f temp15_0 v13_0)))))"
 "(define-values"
 "(symbol-module-path?)"
 "(lambda(v_30)"
-"(begin"
-"(let-values(((temp17_0)(symbol->string v_30)))(module-path-string?10.1 #f #f #f #f #f #f #f #f temp17_0)))))"
+"(begin(let-values(((temp17_0)(symbol->string v_30)))(module-path-string?10.1 #f #f #f #f temp17_0)))))"
 "(define-values"
 "(lib-module-path?)"
 "(lambda(v_31)"
 "(begin"
 "(if(list? v_31)"
 "(if(pair?(cdr v_31))"
-"((letrec-values(((loop_55)"
+"((letrec-values(((loop_54)"
 "(lambda(v_32 first?_0)"
 "(begin"
 " 'loop"
@@ -3112,11 +3111,11 @@ static const char *startup_source =
 "(if(let-values(((temp18_0)(car v_32))"
 "((first?19_0) first?_0)"
 "((first?20_0) first?_0))"
-"(module-path-string?10.1 #f #f first?20_0 #t #f #f first?19_0 #t temp18_0))"
-"(loop_55(cdr v_32) #f)"
+"(module-path-string?10.1 #f first?20_0 #f first?19_0 temp18_0))"
+"(loop_54(cdr v_32) #f)"
 " #f)"
 " #f)))))))"
-" loop_55)"
+" loop_54)"
 "(cdr v_31)"
 " #t)"
 " #f)"
@@ -3135,11 +3134,11 @@ static const char *startup_source =
 "(if(string? e_8)"
 "(let-values()"
 "(let-values(((e21_0) e_8)((temp22_0) #t)((temp23_0) #t))"
-"(module-path-string?10.1 #f #f temp23_0 #t temp22_0 #t #f #f e21_0)))"
+"(module-path-string?10.1 #f temp23_0 temp22_0 #f e21_0)))"
 "(if(symbol? e_8)"
 "(let-values()"
 "(let-values(((temp24_0)(symbol->string e_8))((temp25_0) #t))"
-"(module-path-string?10.1 #f #f #f #f temp25_0 #t #f #f temp24_0)))"
+"(module-path-string?10.1 #f #f temp25_0 #f temp24_0)))"
 "(let-values() #f)))))"
 "(let-values()"
 "(let-values(((file_0)(cadr v_33)))"
@@ -3147,7 +3146,7 @@ static const char *startup_source =
 "(let-values(((subs_0)(cdddr v_33)))"
 "(if file_0"
 "(if(let-values(((file26_0) file_0)((temp27_0) #t)((temp28_0) #t))"
-"(module-path-string?10.1 #f #f temp28_0 #t #f #f temp27_0 #t file26_0))"
+"(module-path-string?10.1 #f temp28_0 #f temp27_0 file26_0))"
 "(if(if(list? pkg_0)"
 "(if(<= 2(length pkg_0) 4)"
 "(if(planet-user/pkg-string?(car pkg_0))"
@@ -3190,10 +3189,6 @@ static const char *startup_source =
 " #f"
 " #f"
 " #f"
-" #f"
-" #f"
-" #f"
-" #f"
 " sub29_0))))))"
 "(values result_6)))))"
 "(if(if(not((lambda x_14(not result_5)) sub_0))"
@@ -3229,22 +3224,14 @@ static const char *startup_source =
 " #f))))))"
 "(define-values"
 "(module-path-string?10.1)"
-"(lambda(dots-dir-ok?2_0"
-" dots-dir-ok?6_0"
-" file-end-ok?4_0"
-" file-end-ok?8_0"
-" for-planet?1_0"
-" for-planet?5_0"
-" just-file-ok?3_0"
-" just-file-ok?7_0"
-" v9_0)"
+"(lambda(dots-dir-ok?2_0 file-end-ok?4_0 for-planet?1_0 just-file-ok?3_0 v9_0)"
 "(begin"
 " 'module-path-string?10"
 "(let-values(((v_36) v9_0))"
-"(let-values(((for-planet?_0)(if for-planet?5_0 for-planet?1_0 #f)))"
-"(let-values(((dots-dir-ok?_0)(if dots-dir-ok?6_0 dots-dir-ok?2_0 #f)))"
-"(let-values(((just-file-ok?_0)(if just-file-ok?7_0 just-file-ok?3_0 #f)))"
-"(let-values(((file-end-ok?_0)(if file-end-ok?8_0 file-end-ok?4_0 #f)))"
+"(let-values(((for-planet?_0) for-planet?1_0))"
+"(let-values(((dots-dir-ok?_0) dots-dir-ok?2_0))"
+"(let-values(((just-file-ok?_0) just-file-ok?3_0))"
+"(let-values(((file-end-ok?_0) file-end-ok?4_0))"
 "(let-values()"
 "(let-values(((len_3)(string-length v_36)))"
 "(if(positive? len_3)"
@@ -3253,7 +3240,7 @@ static const char *startup_source =
 "(let-values(((start-package-version-pos_0 end-package-version-pos_0)"
 "(if for-planet?_0(check-planet-part v_36 len_3)(values 0 0))))"
 "(if start-package-version-pos_0"
-"((letrec-values(((loop_43)"
+"((letrec-values(((loop_42)"
 "(lambda(i_28 prev-was-slash?_0 saw-slash?_0 saw-dot?_0)"
 "(begin"
 " 'loop"
@@ -3263,7 +3250,7 @@ static const char *startup_source =
 "(if(char=? c_6 '#\\/)"
 "(let-values()"
 "(if(not prev-was-slash?_0)"
-"(loop_43(sub1 i_28) #t #t saw-dot?_0)"
+"(loop_42(sub1 i_28) #t #t saw-dot?_0)"
 " #f))"
 "(if(char=? c_6 '#\\.)"
 "(let-values()"
@@ -3275,9 +3262,9 @@ static const char *startup_source =
 " #f)"
 " #f)"
 "(if(not saw-slash?_0)"
-"(loop_43(sub1 i_28) #f saw-slash?_0 #t)"
+"(loop_42(sub1 i_28) #f saw-slash?_0 #t)"
 " #f)"
-"(loop_43(sub1 i_28) #f saw-slash?_0 saw-dot?_0)))"
+"(loop_42(sub1 i_28) #f saw-slash?_0 saw-dot?_0)))"
 "(if(let-values(((or-part_34)(plain-char? c_6)))"
 "(if or-part_34"
 " or-part_34"
@@ -3287,12 +3274,12 @@ static const char *startup_source =
 " #f)"
 " #f)))"
 "(let-values()"
-"(loop_43(sub1 i_28) #f saw-slash?_0 saw-dot?_0))"
+"(loop_42(sub1 i_28) #f saw-slash?_0 saw-dot?_0))"
 "(if(if(>= i_28 start-package-version-pos_0)"
 "(< i_28 end-package-version-pos_0)"
 " #f)"
 "(let-values()"
-"(loop_43(sub1 i_28) #f saw-slash?_0 saw-dot?_0))"
+"(loop_42(sub1 i_28) #f saw-slash?_0 saw-dot?_0))"
 "(let-values() #f)))))))"
 "(let-values()"
 "(if(not"
@@ -3302,7 +3289,7 @@ static const char *startup_source =
 "(let-values(((or-part_35) dots-dir-ok?_0))"
 "(if or-part_35"
 " or-part_35"
-"((letrec-values(((loop_56)"
+"((letrec-values(((loop_55)"
 "(lambda(i_29)"
 "(begin"
 " 'loop"
@@ -3345,8 +3332,8 @@ static const char *startup_source =
 "(+ i_29 2))"
 " '#\\/)))"
 " #f))"
-"(loop_56"
-"((letrec-values(((loop_47)"
+"(loop_55"
+"((letrec-values(((loop_56)"
 "(lambda(i_30)"
 "(begin"
 " 'loop"
@@ -3355,20 +3342,20 @@ static const char *startup_source =
 "(string-ref"
 " v_36"
 " i_30))"
-"(loop_47"
+"(loop_56"
 "(add1"
 " i_30))"
 " i_30)))))"
-" loop_47)"
+" loop_56)"
 " i_29))"
 " #f)"
 " #f))"
 "(let-values()"
-"(loop_56(add1 i_29)))))))))"
-" loop_56)"
+"(loop_55(add1 i_29)))))))))"
+" loop_55)"
 " 0)))"
 " #f)))))))"
-" loop_43)"
+" loop_42)"
 "(sub1 len_3)"
 " #f"
 "(not file-end-ok?_0)"
@@ -3590,17 +3577,17 @@ static const char *startup_source =
 "(begin"
 " 'for-loop"
 "(if(< pos_3 end_5)"
-"(let-values(((i_4) pos_3))"
+"(let-values(((i_33) pos_3))"
+"(let-values(((result_0)"
+"(let-values()"
 "(let-values(((result_11)"
 "(let-values()"
-"(let-values(((result_12)"
 "(let-values()"
-"(let-values()"
-"(char<=? '#\\0(string-ref s_33 i_4) '#\\9)))))"
-"(values result_12)))))"
-"(if(if(not((lambda x_17(not result_11)) i_4))(not #f) #f)"
-"(for-loop_12 result_11(+ pos_3 inc_0))"
-" result_11)))"
+"(char<=? '#\\0(string-ref s_33 i_33) '#\\9)))))"
+"(values result_11)))))"
+"(if(if(not((lambda x_17(not result_0)) i_33))(not #f) #f)"
+"(for-loop_12 result_0(+ pos_3 inc_0))"
+" result_0)))"
 " result_10)))))"
 " for-loop_12)"
 " #t"
@@ -3617,28 +3604,28 @@ static const char *startup_source =
 "(void)"
 "(let-values()(check-range start_10 end_7 inc_1)))"
 "((letrec-values(((for-loop_13)"
-"(lambda(result_13 pos_4)"
+"(lambda(result_12 pos_4)"
 "(begin"
 " 'for-loop"
 "(if(< pos_4 end_7)"
-"(let-values(((i_33) pos_4))"
-"(let-values(((result_14)"
+"(let-values(((i_34) pos_4))"
+"(let-values(((result_13)"
 "(let-values()"
-"(let-values(((result_15)"
+"(let-values(((result_14)"
 "(let-values()"
 "(let-values()"
 "(let-values(((c_12)"
-"(string-ref s_34 i_33)))"
+"(string-ref s_34 i_34)))"
 "(let-values(((or-part_52)"
 "(char=? c_12 '#\\-)))"
 "(if or-part_52"
 " or-part_52"
 "(char<=? '#\\0 c_12 '#\\9))))))))"
-"(values result_15)))))"
-"(if(if(not((lambda x_18(not result_14)) i_33))(not #f) #f)"
-"(for-loop_13 result_14(+ pos_4 inc_1))"
-" result_14)))"
-" result_13)))))"
+"(values result_14)))))"
+"(if(if(not((lambda x_18(not result_13)) i_34))(not #f) #f)"
+"(for-loop_13 result_13(+ pos_4 inc_1))"
+" result_13)))"
+" result_12)))))"
 " for-loop_13)"
 " #t"
 " start_10)))"
@@ -3650,24 +3637,24 @@ static const char *startup_source =
 "(void)"
 "(let-values()(check-range start_11 end_8 inc_2)))"
 "((letrec-values(((for-loop_14)"
-"(lambda(result_16 pos_5)"
+"(lambda(result_15 pos_5)"
 "(begin"
 " 'for-loop"
 "(if(< pos_5 end_8)"
-"(let-values(((i_34) pos_5))"
-"(let-values(((result_17)"
-"(let-values(((result_18) result_16))"
-"(let-values(((result_19)"
+"(let-values(((i_35) pos_5))"
+"(let-values(((result_16)"
+"(let-values(((result_17) result_15))"
+"(let-values(((result_18)"
 "(let-values()"
 "(+"
-" result_18"
+" result_17"
 "(let-values()"
-"(if(char=?(string-ref s_34 i_34) '#\\-)"
+"(if(char=?(string-ref s_34 i_35) '#\\-)"
 " 1"
 " 0))))))"
-"(values result_19)))))"
-"(if(not #f)(for-loop_14 result_17(+ pos_5 inc_2)) result_17)))"
-" result_16)))))"
+"(values result_18)))))"
+"(if(not #f)(for-loop_14 result_16(+ pos_5 inc_2)) result_16)))"
+" result_15)))))"
 " for-loop_14)"
 " 0"
 " start_11))))"
@@ -3731,15 +3718,15 @@ static const char *startup_source =
 "(void)"
 "(let-values()(check-list lst_19)))"
 "((letrec-values(((for-loop_15)"
-"(lambda(result_20 lst_20)"
+"(lambda(result_19 lst_20)"
 "(begin"
 " 'for-loop"
 "(if(pair? lst_20)"
 "(let-values(((b_9)(unsafe-car lst_20))"
 "((rest_6)(unsafe-cdr lst_20)))"
-"(let-values(((result_21)"
+"(let-values(((result_20)"
 "(let-values()"
-"(let-values(((result_22)"
+"(let-values(((result_21)"
 "(let-values()"
 "(let-values()"
 "(let-values(((bv_0)"
@@ -3748,11 +3735,11 @@ static const char *startup_source =
 "(if(equal? bv_0 v_39)"
 " bv_0"
 " #f))))))"
-"(values result_22)))))"
-"(if(if(not((lambda x_19 result_21) b_9))(not #f) #f)"
-"(for-loop_15 result_21 rest_6)"
-" result_21)))"
-" result_20)))))"
+"(values result_21)))))"
+"(if(if(not((lambda x_19 result_20) b_9))(not #f) #f)"
+"(for-loop_15 result_20 rest_6)"
+" result_20)))"
+" result_19)))))"
 " for-loop_15)"
 " #f"
 " lst_19)))))"
@@ -3778,11 +3765,11 @@ static const char *startup_source =
 "(void)"
 "(let-values()(check-in-hash ht_22)))"
 "((letrec-values(((for-loop_16)"
-"(lambda(table_8 i_35)"
+"(lambda(table_8 i_36)"
 "(begin"
 " 'for-loop"
-"(if i_35"
-"(let-values(((k_6 vals_1)(hash-iterate-key+value ht_22 i_35)))"
+"(if i_36"
+"(let-values(((k_6 vals_1)(hash-iterate-key+value ht_22 i_36)))"
 "(let-values(((table_9)"
 "(let-values(((new-vals_0)"
 "(reverse$1"
@@ -3865,7 +3852,7 @@ static const char *startup_source =
 " for-loop_18)"
 " table_8)))))"
 "(if(not #f)"
-"(for-loop_16 table_9(hash-iterate-next ht_22 i_35))"
+"(for-loop_16 table_9(hash-iterate-next ht_22 i_36))"
 " table_9)))"
 " table_8)))))"
 " for-loop_16)"
@@ -3878,23 +3865,23 @@ static const char *startup_source =
 "(void)"
 "(let-values()(check-in-hash ht_23)))"
 "((letrec-values(((for-loop_19)"
-"(lambda(result_23 i_36)"
+"(lambda(result_22 i_37)"
 "(begin"
 " 'for-loop"
-"(if i_36"
-"(let-values(((k_7 vals_2)(hash-iterate-key+value ht_23 i_36)))"
-"(let-values(((result_24)"
-"(let-values(((result_25) result_23))"
-"(let-values(((result_26)"
+"(if i_37"
+"(let-values(((k_7 vals_2)(hash-iterate-key+value ht_23 i_37)))"
+"(let-values(((result_23)"
+"(let-values(((result_24) result_22))"
+"(let-values(((result_25)"
 "(let-values()"
 "(+"
-" result_25"
+" result_24"
 "(let-values()(length vals_2))))))"
-"(values result_26)))))"
+"(values result_25)))))"
 "(if(not #f)"
-"(for-loop_19 result_24(hash-iterate-next ht_23 i_36))"
-" result_24)))"
-" result_23)))))"
+"(for-loop_19 result_23(hash-iterate-next ht_23 i_37))"
+" result_23)))"
+" result_22)))))"
 " for-loop_19)"
 " 0"
 "(hash-iterate-first ht_23))))))"
@@ -3968,13 +3955,13 @@ static const char *startup_source =
 "(begin"
 " 'for-loop"
 "(if(pair? lst_23)"
-"(let-values(((i_37)(unsafe-car lst_23))((rest_8)(unsafe-cdr lst_23)))"
+"(let-values(((i_38)(unsafe-car lst_23))((rest_8)(unsafe-cdr lst_23)))"
 "(let-values(((fold-var_10)"
 "(let-values(((fold-var_11) fold-var_9))"
 "(let-values(((fold-var_12)"
 "(let-values()"
 "(cons"
-"                                                                        (let-values () (format \" ~s\" i_37))"
+"                                                                        (let-values () (format \" ~s\" i_38))"
 " fold-var_11))))"
 "(values fold-var_12)))))"
 "(if(not #f)(for-loop_20 fold-var_10 rest_8) fold-var_10)))"
@@ -4010,25 +3997,25 @@ static const char *startup_source =
 "(void)"
 "(let-values()(check-list lst_24)))"
 "((letrec-values(((for-loop_21)"
-"(lambda(result_27 lst_25)"
+"(lambda(result_26 lst_25)"
 "(begin"
 " 'for-loop"
 "(if(pair? lst_25)"
 "(let-values(((s_35)(unsafe-car lst_25))"
 "((rest_9)(unsafe-cdr lst_25)))"
-"(let-values(((result_20)"
+"(let-values(((result_19)"
 "(let-values()"
-"(let-values(((result_28)"
+"(let-values(((result_27)"
 "(let-values()"
 "(let-values()"
 "(symbol? s_35)))))"
-"(values result_28)))))"
-"(if(if(not((lambda x_20(not result_20)) s_35))"
+"(values result_27)))))"
+"(if(if(not((lambda x_20(not result_19)) s_35))"
 "(not #f)"
 " #f)"
-"(for-loop_21 result_20 rest_9)"
-" result_20)))"
-" result_27)))))"
+"(for-loop_21 result_19 rest_9)"
+" result_19)))"
+" result_26)))))"
 " for-loop_21)"
 " #t"
 " lst_24)))"
@@ -4160,7 +4147,7 @@ static const char *startup_source =
 "(begin"
 " 'for-loop"
 "(if(pair? lst_27)"
-"(let-values(((i_38)(unsafe-car lst_27))"
+"(let-values(((i_39)(unsafe-car lst_27))"
 "((rest_10)(unsafe-cdr lst_27)))"
 "(let-values(((fold-var_14)"
 "(let-values(((fold-var_15)"
@@ -4171,7 +4158,7 @@ static const char *startup_source =
 "(let-values()"
 "(format"
 "                                                                                                        \" ~a\""
-" i_38))"
+" i_39))"
 " fold-var_15))))"
 "(values fold-var_16)))))"
 "(if(not #f)"
@@ -4221,12 +4208,12 @@ static const char *startup_source =
 "(() top-level-module-path-index)))"
 "(define-values"
 "(1/module-path-index-resolve)"
-"(let-values(((module-path-index-resolve6_0)"
-"(lambda(mpi5_0 load?3_0 load?4_0)"
+"(let-values(((module-path-index-resolve5_0)"
+"(lambda(mpi4_0 load?3_0)"
 "(begin"
-" 'module-path-index-resolve6"
-"(let-values(((mpi_0) mpi5_0))"
-"(let-values(((load?_0)(if load?4_0 load?3_0 #f)))"
+" 'module-path-index-resolve5"
+"(let-values(((mpi_0) mpi4_0))"
+"(let-values(((load?_0) load?3_0))"
 "(let-values()"
 "(let-values()"
 "(let-values()"
@@ -4258,8 +4245,8 @@ static const char *startup_source =
 "(set-module-path-index-resolved! mpi_0 mod-name_0)"
 " mod-name_0))))))))))))))"
 "(case-lambda"
-"((mpi_1)(begin 'module-path-index-resolve(module-path-index-resolve6_0 mpi_1 #f #f)))"
-"((mpi_2 load?3_1)(module-path-index-resolve6_0 mpi_2 load?3_1 #t)))))"
+"((mpi_1)(begin 'module-path-index-resolve(module-path-index-resolve5_0 mpi_1 #f)))"
+"((mpi_2 load?3_1)(module-path-index-resolve5_0 mpi_2 load?3_1)))))"
 "(define-values"
 "(module-path-index-unresolve)"
 "(lambda(mpi_3)"
@@ -4270,20 +4257,20 @@ static const char *startup_source =
 "(let-values() mpi_3)))))"
 "(define-values"
 "(1/module-path-index-join)"
-"(let-values(((module-path-index-join12_0)"
-"(lambda(mod-path10_0 base11_0 submod8_0 submod9_0)"
+"(let-values(((module-path-index-join10_0)"
+"(lambda(mod-path8_0 base9_0 submod7_0)"
 "(begin"
-" 'module-path-index-join12"
-"(let-values(((mod-path_0) mod-path10_0))"
-"(let-values(((base_8) base11_0))"
-"(let-values(((submod_0)(if submod9_0 submod8_0 #f)))"
+" 'module-path-index-join10"
+"(let-values(((mod-path_0) mod-path8_0))"
+"(let-values(((base_8) base9_0))"
+"(let-values(((submod_0) submod7_0))"
 "(let-values()"
 "(let-values()"
 "(let-values()"
 "(begin"
-"(if((lambda(x_15)"
-"(let-values(((or-part_56)(not x_15)))"
-"(if or-part_56 or-part_56(1/module-path? x_15))))"
+"(if((lambda(x_21)"
+"(let-values(((or-part_40)(not x_21)))"
+"(if or-part_40 or-part_40(1/module-path? x_21))))"
 " mod-path_0)"
 "(void)"
 "(let-values()"
@@ -4291,20 +4278,20 @@ static const char *startup_source =
 " 'module-path-index-join"
 "                                       \"(or/c #f module-path?)\""
 " mod-path_0)))"
-"(if(let-values(((or-part_57)(not base_8)))"
-"(if or-part_57"
-" or-part_57"
-"(let-values(((or-part_40)(1/resolved-module-path? base_8)))"
-"(if or-part_40 or-part_40(1/module-path-index? base_8)))))"
+"(if(let-values(((or-part_41)(not base_8)))"
+"(if or-part_41"
+" or-part_41"
+"(let-values(((or-part_42)(1/resolved-module-path? base_8)))"
+"(if or-part_42 or-part_42(1/module-path-index? base_8)))))"
 "(void)"
 "(let-values()"
 "(raise-argument-error"
 " 'module-path-index-join"
 "                                       \"(or/c #f resolved-module-path? module-path-index?)\""
 " base_8)))"
-"(if(let-values(((or-part_41)(not submod_0)))"
-"(if or-part_41"
-" or-part_41"
+"(if(let-values(((or-part_43)(not submod_0)))"
+"(if or-part_43"
+" or-part_43"
 "(if(pair? submod_0)(if(list? submod_0)(andmap2 symbol? submod_0) #f) #f)))"
 "(void)"
 "(let-values()"
@@ -4358,8 +4345,8 @@ static const char *startup_source =
 " mod-path_0)))"
 "(module-path-index2.1 mod-path_0 keep-base_0 #f #f)))))))))))))))"
 "(case-lambda"
-"((mod-path_2 base_9)(begin 'module-path-index-join(module-path-index-join12_0 mod-path_2 base_9 #f #f)))"
-"((mod-path_3 base_10 submod8_1)(module-path-index-join12_0 mod-path_3 base_10 submod8_1 #t)))))"
+"((mod-path_2 base_9)(begin 'module-path-index-join(module-path-index-join10_0 mod-path_2 base_9 #f)))"
+"((mod-path_3 base_10 submod7_1)(module-path-index-join10_0 mod-path_3 base_10 submod7_1)))))"
 "(define-values"
 "(module-path-index-resolve/maybe)"
 "(lambda(base_11 load?_1)"
@@ -4397,8 +4384,8 @@ static const char *startup_source =
 "((name_9)(begin(module-path-index2.1 #f #f name_9 #f)))"
 "((name_10 enclosing_0)"
 "(make-self-module-path-index"
-"(let-values(((name27_0) name_10)((temp28_1)(if enclosing_0(1/module-path-index-resolve enclosing_0) #f)))"
-"(build-module-name18.1 #f #f name27_0 temp28_1))))))"
+"(let-values(((name25_0) name_10)((temp26_0)(if enclosing_0(1/module-path-index-resolve enclosing_0) #f)))"
+"(build-module-name16.1 unsafe-undefined name25_0 temp26_0))))))"
 "(define-values(generic-self-mpis)(make-weak-hash))"
 "(define-values(generic-module-name) '|expanded module|)"
 "(define-values"
@@ -4409,11 +4396,11 @@ static const char *startup_source =
 "(begin"
 "(start-atomic)"
 "(begin0"
-"(let-values(((or-part_46)"
+"(let-values(((or-part_47)"
 "(let-values(((e_9)(hash-ref generic-self-mpis r_15 #f)))"
 "(if e_9(ephemeron-value e_9) #f))))"
-"(if or-part_46"
-" or-part_46"
+"(if or-part_47"
+" or-part_47"
 "(let-values(((mpi_6)(module-path-index2.1 #f #f r_15 #f)))"
 "(begin(hash-set! generic-self-mpis r_15(make-ephemeron r_15 mpi_6)) mpi_6))))"
 "(end-atomic)))))))"
@@ -4460,11 +4447,11 @@ static const char *startup_source =
 "(module-path-index-shift-cache!)"
 "(lambda(mpi_9)"
 "(begin"
-"(let-values(((or-part_58)"
+"(let-values(((or-part_56)"
 "(let-values(((cache_0)(module-path-index-shift-cache mpi_9)))"
 "(if cache_0(if(weak-box-value cache_0) cache_0 #f) #f))))"
-"(if or-part_58"
-" or-part_58"
+"(if or-part_56"
+" or-part_56"
 "(let-values(((cache_1)(make-weak-box(box '#hasheq()))))"
 "(begin(set-module-path-index-shift-cache! mpi_9 cache_1) cache_1)))))))"
 "(define-values"
@@ -4490,8 +4477,8 @@ static const char *startup_source =
 "(if(1/module-path? p_7)"
 "(void)"
 "        (let-values () (raise-argument-error 'core-module-name-resolver \"module-path?\" p_7)))"
-"(if(let-values(((or-part_59)(not enclosing_1)))"
-"(if or-part_59 or-part_59(1/resolved-module-path? enclosing_1)))"
+"(if(let-values(((or-part_52)(not enclosing_1)))"
+"(if or-part_52 or-part_52(1/resolved-module-path? enclosing_1)))"
 "(void)"
 "        (let-values () (raise-argument-error 'core-module-name-resolver \"resolved-module-path?\" enclosing_1)))"
 "(if(if(list? p_7)(if(=(length p_7) 2)(if(eq? 'quote(car p_7))(symbol?(cadr p_7)) #f) #f) #f)"
@@ -4511,14 +4498,13 @@ static const char *startup_source =
 "(let-values(((enclosing_4) enclosing_2))"
 "(let-values(((enclosing_5)"
 "(let-values()"
-"(let-values(((s29_0) s_36)"
-"((enclosing30_0) enclosing_4)"
-"((p31_0) p_7))"
-"(build-module-name18.1"
-" p31_0"
-" #t"
-" s29_0"
-" enclosing30_0)))))"
+"(let-values(((s27_0) s_36)"
+"((enclosing28_0) enclosing_4)"
+"((p29_0) p_7))"
+"(build-module-name16.1"
+" p29_0"
+" s27_0"
+" enclosing28_0)))))"
 "(values enclosing_5)))))"
 "(if(not #f)(for-loop_23 enclosing_3 rest_11) enclosing_3)))"
 " enclosing_2)))))"
@@ -4542,14 +4528,13 @@ static const char *startup_source =
 "(let-values(((enclosing_8) enclosing_6))"
 "(let-values(((enclosing_9)"
 "(let-values()"
-"(let-values(((s32_0) s_37)"
-"((enclosing33_0) enclosing_8)"
-"((p34_0) p_7))"
-"(build-module-name18.1"
-" p34_0"
-" #t"
-" s32_0"
-" enclosing33_0)))))"
+"(let-values(((s30_0) s_37)"
+"((enclosing31_0) enclosing_8)"
+"((p32_0) p_7))"
+"(build-module-name16.1"
+" p32_0"
+" s30_0"
+" enclosing31_0)))))"
 "(values enclosing_9)))))"
 "(if(not #f)(for-loop_24 enclosing_7 rest_12) enclosing_7)))"
 " enclosing_6)))))"
@@ -4574,15 +4559,14 @@ static const char *startup_source =
 "(let-values(((enclosing_12) enclosing_10))"
 "(let-values(((enclosing_13)"
 "(let-values()"
-"(let-values(((s35_0) s_38)"
-"((enclosing36_0)"
+"(let-values(((s33_0) s_38)"
+"((enclosing34_0)"
 " enclosing_12)"
-"((p37_0) p_7))"
-"(build-module-name18.1"
-" p37_0"
-" #t"
-" s35_0"
-" enclosing36_0)))))"
+"((p35_0) p_7))"
+"(build-module-name16.1"
+" p35_0"
+" s33_0"
+" enclosing34_0)))))"
 "(values enclosing_13)))))"
 "(if(not #f)(for-loop_25 enclosing_11 rest_13) enclosing_11)))"
 " enclosing_10)))))"
@@ -4591,13 +4575,13 @@ static const char *startup_source =
 " lst_32)))))"
 "              (let-values () (error 'core-module-name-resolver \"not a supported module path: ~v\" p_7))))))))))"
 "(define-values"
-"(build-module-name18.1)"
-"(lambda(original14_0 original15_0 name16_0 enclosing17_0)"
+"(build-module-name16.1)"
+"(lambda(original12_0 name14_0 enclosing15_0)"
 "(begin"
-" 'build-module-name18"
-"(let-values(((name_13) name16_0))"
-"(let-values(((enclosing_14) enclosing17_0))"
-"(let-values(((orig-name_0)(if original15_0 original14_0 name_13)))"
+" 'build-module-name16"
+"(let-values(((name_13) name14_0))"
+"(let-values(((enclosing_14) enclosing15_0))"
+"(let-values(((orig-name_0)(if(eq? original12_0 unsafe-undefined) name_13 original12_0)))"
 "(let-values()"
 "(let-values(((enclosing-module-name_0)(if enclosing_14(1/resolved-module-path-name enclosing_14) #f)))"
 "(1/make-resolved-module-path"
@@ -4633,7 +4617,7 @@ static const char *startup_source =
 " #f"
 "(lambda(r_19)"
 "(begin"
-"(if(let-values(((or-part_60)(not r_19)))(if or-part_60 or-part_60(1/resolved-module-path? r_19)))"
+"(if(let-values(((or-part_57)(not r_19)))(if or-part_57 or-part_57(1/resolved-module-path? r_19)))"
 "(void)"
 "         (let-values () (raise-argument-error 'current-module-declare-name \"(or/c #f resolved-module-path?)\" r_19)))"
 " r_19))))"
@@ -4643,11 +4627,11 @@ static const char *startup_source =
 " #f"
 "(lambda(s_39)"
 "(begin"
-"(if(let-values(((or-part_61)(not s_39)))"
-"(if or-part_61"
-" or-part_61"
-"(let-values(((or-part_62)(symbol? s_39)))"
-"(if or-part_62 or-part_62(if(path? s_39)(complete-path? s_39) #f)))))"
+"(if(let-values(((or-part_58)(not s_39)))"
+"(if or-part_58"
+" or-part_58"
+"(let-values(((or-part_59)(symbol? s_39)))"
+"(if or-part_59 or-part_59(if(path? s_39)(complete-path? s_39) #f)))))"
 "(void)"
 "(let-values()"
 "           (raise-argument-error 'current-module-declare-source \"(or/c #f symbol? (and/c path? complete-path?))\" s_39)))"
@@ -4675,7 +4659,7 @@ static const char *startup_source =
 "(call-with-exception-handler"
 "(lambda(e_5)(begin(unsafe-struct-set! root_1 0(make-reraise e_5)) e_5))"
 "(lambda()"
-"((letrec-values(((loop_47)"
+"((letrec-values(((loop_61)"
 "(lambda(v_45)"
 "(begin"
 " 'loop"
@@ -4685,15 +4669,15 @@ static const char *startup_source =
 "(begin"
 "(unsafe-struct-set! v_45 0 root_1)"
 "(if(procedure? v*_0)"
-"(let-values()(loop_47(v*_0)))"
+"(let-values()(loop_61(v*_0)))"
 "(if(pair? v*_0)"
 "(let-values()"
 "(begin(unsafe-struct-set! root_1 0 v*_0)(unsafe-car v*_0)))"
-"(let-values()(loop_47 v*_0)))))))"
+"(let-values()(loop_61 v*_0)))))))"
 "(if(promise? v_45)"
 "(let-values()(begin(unsafe-struct-set! root_1 0 v_45)(force v_45)))"
 "(let-values()(begin(unsafe-struct-set! root_1 0(list v_45)) v_45))))))))"
-" loop_47)"
+" loop_61)"
 "(v_44))))))"
 "(if(pair? v_44)"
 "(let-values()(if(null?(unsafe-cdr v_44))(unsafe-car v_44)(apply values v_44)))"
@@ -4737,7 +4721,7 @@ static const char *startup_source =
 "(promise-printer)"
 "(lambda(promise_2 port_2 write?_0)"
 "(begin"
-"((letrec-values(((loop_61)"
+"((letrec-values(((loop_62)"
 "(lambda(v_48)"
 "(begin"
 " 'loop"
@@ -4763,7 +4747,7 @@ static const char *startup_source =
 "                                        ((lambda (n_19) (fprintf port_2 \"#<promise:~a>\" n_19)) c1_18)"
 "                                        (let-values () (display \"#<promise>\" port_2)))))"
 "(if(promise? v_48)"
-"(let-values()(loop_61(unsafe-struct-ref v_48 0)))"
+"(let-values()(loop_62(unsafe-struct-ref v_48 0)))"
 "(if(null? v_48)"
 "                                      (let-values () (fprintf port_2 \"#<promise!(values)>\"))"
 "(if(null?(cdr v_48))"
@@ -4773,9 +4757,9 @@ static const char *startup_source =
 "(begin"
 "                                            (display \"#<promise!(values\" port_2)"
 "                                            (let-values (((fmt_0) (if write?_0 \" ~s\" \" ~a\")))"
-"(for-each(lambda(x_21)(fprintf port_2 fmt_0 x_21)) v_48))"
+"(for-each(lambda(x_22)(fprintf port_2 fmt_0 x_22)) v_48))"
 "                                            (display \")>\" port_2)))))))))))))"
-" loop_61)"
+" loop_62)"
 "(unsafe-struct-ref promise_2 0)))))"
 "(define-values"
 "(prop:force promise-forcer)"
@@ -5062,8 +5046,8 @@ static const char *startup_source =
 "(let-values(((v_55)(unsafe-struct-ref p_15 0)))"
 "(reify-result"
 "(if(running-thread? v_55)"
-"(let-values(((t_8)(running-thread-thread v_55)))"
-"(let-values((()(begin(thread-wait t_8)(values))))"
+"(let-values(((t_13)(running-thread-thread v_55)))"
+"(let-values((()(begin(thread-wait t_13)(values))))"
 "(let-values(((v_56)(unsafe-struct-ref p_15 0)))"
 "(if(running-thread? v_56)"
 "(error"
@@ -5206,15 +5190,15 @@ static const char *startup_source =
 "(intern-scopes)"
 "(lambda(scs_0 state_2)"
 "(begin"
-"(let-values(((or-part_63)(hash-ref(serialize-state-scopes state_2) scs_0 #f)))"
-"(if or-part_63 or-part_63(begin(hash-set!(serialize-state-scopes state_2) scs_0 scs_0) scs_0))))))"
+"(let-values(((or-part_60)(hash-ref(serialize-state-scopes state_2) scs_0 #f)))"
+"(if or-part_60 or-part_60(begin(hash-set!(serialize-state-scopes state_2) scs_0 scs_0) scs_0))))))"
 "(define-values"
 "(intern-shifted-multi-scopes)"
 "(lambda(sms_0 state_3)"
 "(begin"
-"(let-values(((or-part_64)(hash-ref(serialize-state-shifted-multi-scopes state_3) sms_0 #f)))"
-"(if or-part_64"
-" or-part_64"
+"(let-values(((or-part_61)(hash-ref(serialize-state-shifted-multi-scopes state_3) sms_0 #f)))"
+"(if or-part_61"
+" or-part_61"
 "(begin(hash-set!(serialize-state-shifted-multi-scopes state_3) sms_0 sms_0) sms_0))))))"
 "(define-values"
 "(intern-mpi-shifts)"
@@ -5225,14 +5209,14 @@ static const char *startup_source =
 "(let-values()"
 "(let-values(((tail_0)(intern-mpi-shifts(cdr mpi-shifts_0) state_4)))"
 "(let-values(((tail-table_0)"
-"(let-values(((or-part_65)(hash-ref(serialize-state-mpi-shifts state_4) tail_0 #f)))"
-"(if or-part_65"
-" or-part_65"
+"(let-values(((or-part_62)(hash-ref(serialize-state-mpi-shifts state_4) tail_0 #f)))"
+"(if or-part_62"
+" or-part_62"
 "(let-values(((ht_24)(make-hasheq)))"
 "(begin(hash-set!(serialize-state-mpi-shifts state_4) tail_0 ht_24) ht_24))))))"
-"(let-values(((or-part_66)(hash-ref tail-table_0(car mpi-shifts_0) #f)))"
-"(if or-part_66"
-" or-part_66"
+"(let-values(((or-part_63)(hash-ref tail-table_0(car mpi-shifts_0) #f)))"
+"(if or-part_63"
+" or-part_63"
 "(let-values(((v_58)(cons(car mpi-shifts_0) tail_0)))"
 "(begin(hash-set! tail-table_0(car mpi-shifts_0) v_58) v_58)))))))))))"
 "(define-values"
@@ -5240,19 +5224,19 @@ static const char *startup_source =
 "(lambda(scs_1 sms_1 mpi-shifts_1 state_5)"
 "(begin"
 "(let-values(((scs-ht_0)"
-"(let-values(((or-part_67)(hash-ref(serialize-state-context-triples state_5) scs_1 #f)))"
-"(if or-part_67"
-" or-part_67"
+"(let-values(((or-part_64)(hash-ref(serialize-state-context-triples state_5) scs_1 #f)))"
+"(if or-part_64"
+" or-part_64"
 "(let-values(((ht_25)(make-hasheq)))"
 "(begin(hash-set!(serialize-state-context-triples state_5) scs_1 ht_25) ht_25))))))"
 "(let-values(((sms-ht_0)"
-"(let-values(((or-part_36)(hash-ref scs-ht_0 sms_1 #f)))"
-"(if or-part_36"
-" or-part_36"
+"(let-values(((or-part_65)(hash-ref scs-ht_0 sms_1 #f)))"
+"(if or-part_65"
+" or-part_65"
 "(let-values(((ht_23)(make-hasheq)))(begin(hash-set! scs-ht_0 sms_1 ht_23) ht_23))))))"
-"(let-values(((or-part_68)(hash-ref sms-ht_0 mpi-shifts_1 #f)))"
-"(if or-part_68"
-" or-part_68"
+"(let-values(((or-part_66)(hash-ref sms-ht_0 mpi-shifts_1 #f)))"
+"(if or-part_66"
+" or-part_66"
 "(let-values(((vec_13)(vector-immutable scs_1 sms_1 mpi-shifts_1)))"
 "(begin(hash-set! sms-ht_0 mpi-shifts_1 vec_13) vec_13)))))))))"
 "(define-values"
@@ -5316,12 +5300,12 @@ static const char *startup_source =
 "(if(if(pair? rk_2)(vector?(car rk_2)) #f)"
 "(if(zero?(vector-length(car rk_2)))(all-fields-immutable?(cdr rk_2)) #f)"
 "(all-fields-immutable? rk_2))))))))))))"
-" (define-values (not-an-fX.1) (lambda (who_8 v_59) (begin 'not-an-fX (raise-argument-error who_8 \"fixnum?\" v_59))))"
+" (define-values (not-an-fX.1) (lambda (who_7 v_59) (begin 'not-an-fX (raise-argument-error who_7 \"fixnum?\" v_59))))"
 "(define-values"
 "(datum-map-slow)"
 "(lambda(tail?_0 s_40 f_21 seen_0)"
 "(begin"
-"((letrec-values(((loop_62)"
+"((letrec-values(((loop_63)"
 "(lambda(tail?_1 s_7 prev-seen_0)"
 "(begin"
 " 'loop"
@@ -5336,12 +5320,12 @@ static const char *startup_source =
 "(let-values()(f_21 tail?_1 s_7))"
 "(if(pair? s_7)"
 "(let-values()"
-"(f_21 tail?_1(cons(loop_62 #f(car s_7) seen_1)(loop_62 #t(cdr s_7) seen_1))))"
-"(if(let-values(((or-part_69)(symbol? s_7)))"
-"(if or-part_69"
-" or-part_69"
-"(let-values(((or-part_70)(boolean? s_7)))"
-"(if or-part_70 or-part_70(number? s_7)))))"
+"(f_21 tail?_1(cons(loop_63 #f(car s_7) seen_1)(loop_63 #t(cdr s_7) seen_1))))"
+"(if(let-values(((or-part_67)(symbol? s_7)))"
+"(if or-part_67"
+" or-part_67"
+"(let-values(((or-part_68)(boolean? s_7)))"
+"(if or-part_68 or-part_68(number? s_7)))))"
 "(let-values()(f_21 #f s_7))"
 "(if(vector? s_7)"
 "(let-values()"
@@ -5372,7 +5356,7 @@ static const char *startup_source =
 "(begin"
 " #f"
 "((letrec-values(((for-loop_21)"
-"(lambda(i_39 pos_6)"
+"(lambda(i_40 pos_6)"
 "(begin"
 " 'for-loop"
 "(if(unsafe-fx< pos_6 len_8)"
@@ -5380,43 +5364,43 @@ static const char *startup_source =
 "(unsafe-vector-ref"
 " vec_14"
 " pos_6)))"
-"(let-values(((i_40)"
 "(let-values(((i_41)"
-" i_39))"
 "(let-values(((i_42)"
+" i_40))"
+"(let-values(((i_43)"
 "(let-values()"
 "(begin"
 "(unsafe-vector*-set!"
 " v_60"
-" i_41"
+" i_42"
 "(let-values()"
-"(loop_62"
+"(loop_63"
 " #f"
 " e_12"
 " seen_1)))"
 "(unsafe-fx+"
 " 1"
-" i_41)))))"
-"(values i_42)))))"
+" i_42)))))"
+"(values i_43)))))"
 "(if(if(not"
-"((lambda x_22"
+"((lambda x_23"
 "(unsafe-fx="
-" i_40"
+" i_41"
 " len_7))"
 " e_12))"
 "(not #f)"
 " #f)"
 "(for-loop_21"
-" i_40"
+" i_41"
 "(unsafe-fx+ 1 pos_6))"
-" i_40)))"
-" i_39)))))"
+" i_41)))"
+" i_40)))))"
 " for-loop_21)"
 " 0"
 " 0)))))"
 " v_60)))))))"
 "(if(box? s_7)"
-"(let-values()(f_21 #f(box-immutable(loop_62 #f(unbox s_7) seen_1))))"
+"(let-values()(f_21 #f(box-immutable(loop_63 #f(unbox s_7) seen_1))))"
 "(let-values(((c1_20)(immutable-prefab-struct-key s_7)))"
 "(if c1_20"
 "((lambda(key_12)"
@@ -5431,7 +5415,7 @@ static const char *startup_source =
 " 'in-vector"
 "                                                                 \"vector\""
 "(lambda(x_14)(vector? x_14))"
-"(lambda(x_23)(unsafe-vector-length x_23))"
+"(lambda(x_24)(unsafe-vector-length x_24))"
 "(struct->vector s_7)"
 " 1"
 " #f"
@@ -5454,7 +5438,7 @@ static const char *startup_source =
 "(let-values()"
 "(cons"
 "(let-values()"
-"(loop_62"
+"(loop_63"
 " #f"
 " e_13"
 " seen_1))"
@@ -5483,14 +5467,14 @@ static const char *startup_source =
 "(void)"
 "(let-values()(check-in-hash ht_26)))"
 "((letrec-values(((for-loop_27)"
-"(lambda(table_15 i_43)"
+"(lambda(table_15 i_44)"
 "(begin"
 " 'for-loop"
-"(if i_43"
-"(let-values(((k_10 v_36)"
+"(if i_44"
+"(let-values(((k_10 v_61)"
 "(hash-iterate-key+value"
 " ht_26"
-" i_43)))"
+" i_44)))"
 "(let-values(((table_16)"
 "(let-values(((table_17)"
 " table_15))"
@@ -5501,9 +5485,9 @@ static const char *startup_source =
 "(let-values()"
 "(values"
 " k_10"
-"(loop_62"
+"(loop_63"
 " #f"
-" v_36"
+" v_61"
 " seen_1)))))"
 "(hash-set"
 " table_17"
@@ -5514,7 +5498,7 @@ static const char *startup_source =
 "(if(not #f)"
 "(for-loop_27"
 " table_16"
-"(hash-iterate-next ht_26 i_43))"
+"(hash-iterate-next ht_26 i_44))"
 " table_16)))"
 " table_15)))))"
 " for-loop_27)"
@@ -5530,14 +5514,14 @@ static const char *startup_source =
 "(void)"
 "(let-values()(check-in-hash ht_27)))"
 "((letrec-values(((for-loop_28)"
-"(lambda(table_19 i_28)"
+"(lambda(table_19 i_45)"
 "(begin"
 " 'for-loop"
-"(if i_28"
-"(let-values(((k_11 v_61)"
+"(if i_45"
+"(let-values(((k_11 v_62)"
 "(hash-iterate-key+value"
 " ht_27"
-" i_28)))"
+" i_45)))"
 "(let-values(((table_10)"
 "(let-values(((table_11)"
 " table_19))"
@@ -5548,9 +5532,9 @@ static const char *startup_source =
 "(let-values()"
 "(values"
 " k_11"
-"(loop_62"
+"(loop_63"
 " #f"
-" v_61"
+" v_62"
 " seen_1)))))"
 "(hash-set"
 " table_11"
@@ -5563,7 +5547,7 @@ static const char *startup_source =
 " table_10"
 "(hash-iterate-next"
 " ht_27"
-" i_28))"
+" i_45))"
 " table_10)))"
 " table_19)))))"
 " for-loop_28)"
@@ -5578,14 +5562,14 @@ static const char *startup_source =
 "(void)"
 "(let-values()(check-in-hash ht_25)))"
 "((letrec-values(((for-loop_29)"
-"(lambda(table_20 i_44)"
+"(lambda(table_20 i_46)"
 "(begin"
 " 'for-loop"
-"(if i_44"
-"(let-values(((k_12 v_62)"
+"(if i_46"
+"(let-values(((k_12 v_63)"
 "(hash-iterate-key+value"
 " ht_25"
-" i_44)))"
+" i_46)))"
 "(let-values(((table_21)"
 "(let-values(((table_22)"
 " table_20))"
@@ -5596,9 +5580,9 @@ static const char *startup_source =
 "(let-values()"
 "(values"
 " k_12"
-"(loop_62"
+"(loop_63"
 " #f"
-" v_62"
+" v_63"
 " seen_1)))))"
 "(hash-set"
 " table_22"
@@ -5611,14 +5595,14 @@ static const char *startup_source =
 " table_21"
 "(hash-iterate-next"
 " ht_25"
-" i_44))"
+" i_46))"
 " table_21)))"
 " table_20)))))"
 " for-loop_29)"
 " '#hash()"
 "(hash-iterate-first ht_25)))))))))"
 "(let-values()(f_21 #f s_7)))))))))))))))"
-" loop_62)"
+" loop_63)"
 " tail?_0"
 " s_40"
 " seen_0))))"
@@ -5626,18 +5610,18 @@ static const char *startup_source =
 "(datum-has-elements?)"
 "(lambda(d_0)"
 "(begin"
-"(let-values(((or-part_71)(pair? d_0)))"
+"(let-values(((or-part_69)(pair? d_0)))"
+"(if or-part_69"
+" or-part_69"
+"(let-values(((or-part_70)(vector? d_0)))"
+"(if or-part_70"
+" or-part_70"
+"(let-values(((or-part_71)(box? d_0)))"
 "(if or-part_71"
 " or-part_71"
-"(let-values(((or-part_72)(vector? d_0)))"
+"(let-values(((or-part_72)(immutable-prefab-struct-key d_0)))"
 "(if or-part_72"
 " or-part_72"
-"(let-values(((or-part_73)(box? d_0)))"
-"(if or-part_73"
-" or-part_73"
-"(let-values(((or-part_74)(immutable-prefab-struct-key d_0)))"
-"(if or-part_74"
-" or-part_74"
 "(if(hash? d_0)(if(immutable? d_0)(positive?(hash-count d_0)) #f) #f))))))))))))"
 "(define-values"
 "(struct:preserved-property-value"
@@ -5662,67 +5646,67 @@ static const char *startup_source =
 "(values struct:_0 make-_0 ?_0(make-struct-field-accessor -ref_0 0 'content))))"
 "(define-values"
 "(plain-property-value)"
-"(lambda(v_63)(begin(if(preserved-property-value? v_63)(preserved-property-value-content v_63) v_63))))"
+"(lambda(v_64)(begin(if(preserved-property-value? v_64)(preserved-property-value-content v_64) v_64))))"
 "(define-values"
 "(check-value-to-preserve)"
-"(lambda(v_64 syntax?_0)"
+"(lambda(v_65 syntax?_0)"
 "(begin"
 "(let-values(((check-preserve_0)"
-"(lambda(tail?_2 v_65)"
+"(lambda(tail?_2 v_66)"
 "(begin"
 " 'check-preserve"
 "(begin"
-"(if(let-values(((or-part_75)(null? v_65)))"
+"(if(let-values(((or-part_73)(null? v_66)))"
+"(if or-part_73"
+" or-part_73"
+"(let-values(((or-part_74)(boolean? v_66)))"
+"(if or-part_74"
+" or-part_74"
+"(let-values(((or-part_75)(symbol? v_66)))"
 "(if or-part_75"
 " or-part_75"
-"(let-values(((or-part_76)(boolean? v_65)))"
+"(let-values(((or-part_76)(number? v_66)))"
 "(if or-part_76"
 " or-part_76"
-"(let-values(((or-part_77)(symbol? v_65)))"
+"(let-values(((or-part_77)(char? v_66)))"
 "(if or-part_77"
 " or-part_77"
-"(let-values(((or-part_78)(number? v_65)))"
+"(let-values(((or-part_78)(string? v_66)))"
 "(if or-part_78"
 " or-part_78"
-"(let-values(((or-part_79)(char? v_65)))"
-"(if or-part_79"
-" or-part_79"
-"(let-values(((or-part_80)(string? v_65)))"
-"(if or-part_80"
-" or-part_80"
-"(let-values(((or-part_29)(bytes? v_65)))"
+"(let-values(((or-part_29)(bytes? v_66)))"
 "(if or-part_29"
 " or-part_29"
-"(let-values(((or-part_81)(regexp? v_65)))"
+"(let-values(((or-part_79)(regexp? v_66)))"
+"(if or-part_79"
+" or-part_79"
+"(let-values(((or-part_80)(syntax?_0 v_66)))"
+"(if or-part_80"
+" or-part_80"
+"(let-values(((or-part_81)(pair? v_66)))"
 "(if or-part_81"
 " or-part_81"
-"(let-values(((or-part_82)(syntax?_0 v_65)))"
+"(let-values(((or-part_82)(vector? v_66)))"
 "(if or-part_82"
 " or-part_82"
-"(let-values(((or-part_83)(pair? v_65)))"
+"(let-values(((or-part_83)(box? v_66)))"
 "(if or-part_83"
 " or-part_83"
-"(let-values(((or-part_84)(vector? v_65)))"
+"(let-values(((or-part_84)(hash? v_66)))"
 "(if or-part_84"
 " or-part_84"
-"(let-values(((or-part_85)(box? v_65)))"
-"(if or-part_85"
-" or-part_85"
-"(let-values(((or-part_86)(hash? v_65)))"
-"(if or-part_86"
-" or-part_86"
 "(immutable-prefab-struct-key"
-" v_65)))))))))))))))))))))))))))"
+" v_66)))))))))))))))))))))))))))"
 "(void)"
 "(let-values()"
 "(raise-arguments-error"
 " 'write"
 "                               \"disallowed value in preserved syntax property\""
 "                               \"value\""
-" v_65)))"
-" v_65)))))"
-"(let-values(((s_41) v_64)((f_22) check-preserve_0)((gf_0) check-preserve_0)((seen_2) disallow-cycles$1))"
-"((letrec-values(((loop_63)"
+" v_66)))"
+" v_66)))))"
+"(let-values(((s_41) v_65)((f_22) check-preserve_0)((gf_0) check-preserve_0)((seen_2) disallow-cycles$1))"
+"((letrec-values(((loop_64)"
 "(lambda(tail?_3 s_42 prev-depth_0)"
 "(begin"
 " 'loop"
@@ -5736,7 +5720,7 @@ static const char *startup_source =
 "(let-values()"
 "(f_22"
 " tail?_3"
-"(cons(loop_63 #f(car s_42) depth_0)(loop_63 #t(cdr s_42) depth_0))))"
+"(cons(loop_64 #f(car s_42) depth_0)(loop_64 #t(cdr s_42) depth_0))))"
 "(if(symbol? s_42)"
 "(let-values()(f_22 #f s_42))"
 "(if(boolean? s_42)"
@@ -5758,7 +5742,7 @@ static const char *startup_source =
 "(lambda(tail?_5 s_44)(gf_0 tail?_5 s_44))"
 " seen_2))"
 "(let-values()(gf_0 #f s_42))))))))))))))"
-" loop_63)"
+" loop_64)"
 " #f"
 " s_41"
 " 0))))))"
@@ -5766,24 +5750,24 @@ static const char *startup_source =
 "(disallow-cycles$1)"
 "(hash"
 " 'cycle-fail"
-"   (lambda (v_66) (raise-arguments-error 'write \"disallowed cycle in preserved syntax property\" \"at\" v_66))))"
+"   (lambda (v_67) (raise-arguments-error 'write \"disallowed cycle in preserved syntax property\" \"at\" v_67))))"
 "(define-values"
 "(tamper?)"
 "(lambda(v_26)"
 "(begin"
 "(let-values(((or-part_0)(not v_26)))"
 "(if or-part_0 or-part_0(let-values(((or-part_1)(symbol? v_26)))(if or-part_1 or-part_1(set? v_26))))))))"
-"(define-values(tamper-tainted?)(lambda(v_67)(begin(symbol? v_67))))"
-"(define-values(tamper-armed?)(lambda(v_68)(begin(set? v_68))))"
-"(define-values(tamper-clean?)(lambda(v_69)(begin(not v_69))))"
+"(define-values(tamper-tainted?)(lambda(v_68)(begin(symbol? v_68))))"
+"(define-values(tamper-armed?)(lambda(v_69)(begin(set? v_69))))"
+"(define-values(tamper-clean?)(lambda(v_70)(begin(not v_70))))"
 "(define-values"
 "(tamper-tainted-for-content)"
-"(lambda(v_70)(begin(if(datum-has-elements? v_70) 'tainted/need-propagate 'tainted))))"
-"(define-values(tamper-needs-propagate?)(lambda(t_13)(begin(eq? t_13 'tainted/need-propagate))))"
-"(define-values(tamper-propagated)(lambda(t_14)(begin(if(eq? t_14 'tainted/need-propagate) 'tainted t_14))))"
-"(define-values(serialize-tamper)(lambda(t_15)(begin(if(tamper-armed? t_15) 'armed t_15))))"
+"(lambda(v_71)(begin(if(datum-has-elements? v_71) 'tainted/need-propagate 'tainted))))"
+"(define-values(tamper-needs-propagate?)(lambda(t_14)(begin(eq? t_14 'tainted/need-propagate))))"
+"(define-values(tamper-propagated)(lambda(t_15)(begin(if(eq? t_15 'tainted/need-propagate) 'tainted t_15))))"
+"(define-values(serialize-tamper)(lambda(t_16)(begin(if(tamper-armed? t_16) 'armed t_16))))"
 "(define-values(current-arm-inspectors)(make-parameter(seteq)))"
-"(define-values(deserialize-tamper)(lambda(t_16)(begin(if(eq? t_16 'armed)(current-arm-inspectors) t_16))))"
+"(define-values(deserialize-tamper)(lambda(t_17)(begin(if(eq? t_17 'armed)(current-arm-inspectors) t_17))))"
 "(define-values"
 "(struct:syntax"
 " syntax1.1"
@@ -5824,17 +5808,17 @@ static const char *startup_source =
 "(void)"
 "(let-values()(check-in-immutable-hash ht_17)))"
 "((letrec-values(((for-loop_3)"
-"(lambda(i_45)"
+"(lambda(i_47)"
 "(begin"
 " 'for-loop"
-"(if i_45"
-"(let-values(((k_13 v_71)"
+"(if i_47"
+"(let-values(((k_13 v_72)"
 "(unsafe-immutable-hash-iterate-key+value"
 " ht_17"
-" i_45)))"
+" i_47)))"
 "(let-values((()"
 "(let-values()"
-"(if(preserved-property-value? v_71)"
+"(if(preserved-property-value? v_72)"
 "(let-values()"
 "(let-values((()"
 "(let-values()"
@@ -5842,13 +5826,13 @@ static const char *startup_source =
 "(let-values()"
 "(reach_0"
 "(plain-property-value"
-" v_71)))"
+" v_72)))"
 "(values)))))"
 "(values)))"
 "(values)))))"
 "(if(not #f)"
 "(for-loop_3"
-"(unsafe-immutable-hash-iterate-next ht_17 i_45))"
+"(unsafe-immutable-hash-iterate-next ht_17 i_47))"
 "(values))))"
 "(values))))))"
 " for-loop_3)"
@@ -5873,19 +5857,19 @@ static const char *startup_source =
 "(void)"
 "(let-values()(check-in-hash ht_28)))"
 "((letrec-values(((for-loop_30)"
-"(lambda(table_24 i_46)"
+"(lambda(table_24 i_48)"
 "(begin"
 " 'for-loop"
-"(if i_46"
-"(let-values(((k_14 v_72)"
+"(if i_48"
+"(let-values(((k_14 v_73)"
 "(hash-iterate-key+value"
 " ht_28"
-" i_46)))"
+" i_48)))"
 "(let-values(((table_25)"
 "(let-values(((table_26)"
 " table_24))"
 "(if(preserved-property-value?"
-" v_72)"
+" v_73)"
 "(let-values(((table_27)"
 " table_26))"
 "(let-values(((table_28)"
@@ -5897,7 +5881,7 @@ static const char *startup_source =
 " k_14"
 "(check-value-to-preserve"
 "(plain-property-value"
-" v_72)"
+" v_73)"
 " syntax?$1)))))"
 "(hash-set"
 " table_27"
@@ -5908,7 +5892,7 @@ static const char *startup_source =
 "(if(not #f)"
 "(for-loop_30"
 " table_25"
-"(hash-iterate-next ht_28 i_46))"
+"(hash-iterate-next ht_28 i_48))"
 " table_25)))"
 " table_24)))))"
 " for-loop_30)"
@@ -5925,7 +5909,7 @@ static const char *startup_source =
 "(intern-mpi-shifts(syntax-mpi-shifts s_46) state_10)"
 " state_10)))"
 "(let-values(((stx-state_0)(get-syntax-context state_10)))"
-"(if(let-values(((or-part_87) properties_0))(if or-part_87 or-part_87 tamper_0))"
+"(if(let-values(((or-part_39) properties_0))(if or-part_39 or-part_39 tamper_0))"
 "(let-values()"
 "(begin"
 "(ser-push!_1 'tag '#:syntax+props)"
@@ -5956,7 +5940,7 @@ static const char *startup_source =
 "(let-values((()(begin(ser-push!_1 'tag '#:syntax)(values))))"
 "(let-values(((this-state_0)"
 "(if(no-pair-syntax-in-cdr? content_0)"
-"(syntax-state19.1"
+"(syntax-state17.1"
 " #t"
 " context-triple_0"
 "(syntax-srcloc s_46))"
@@ -6047,10 +6031,10 @@ static const char *startup_source =
 "(make-struct-type-property 'propagation-set-tamper))"
 "(define-values"
 "(syntax-tamper)"
-"(lambda(s_48)"
+"(lambda(s_32)"
 "(begin"
-"(let-values(((v_73)(syntax-scope-propagations+tamper s_48)))"
-"(if(tamper? v_73) v_73((propagation-tamper-ref v_73) v_73))))))"
+"(let-values(((v_74)(syntax-scope-propagations+tamper s_32)))"
+"(if(tamper? v_74) v_74((propagation-tamper-ref v_74) v_74))))))"
 "(define-values(empty-scopes)(seteq))"
 "(define-values(empty-shifted-multi-scopes)(seteq))"
 "(define-values(empty-mpi-shifts) null)"
@@ -6058,31 +6042,31 @@ static const char *startup_source =
 "(define-values"
 "(empty-syntax)"
 "(syntax1.1 #f empty-scopes empty-shifted-multi-scopes #f empty-mpi-shifts #f empty-props #f))"
-"(define-values(identifier?)(lambda(s_49)(begin(if(syntax?$1 s_49)(symbol?(syntax-content s_49)) #f))))"
-"(define-values(syntax-identifier?)(lambda(s_50)(begin(symbol?(syntax-content s_50)))))"
+"(define-values(identifier?)(lambda(s_48)(begin(if(syntax?$1 s_48)(symbol?(syntax-content s_48)) #f))))"
+"(define-values(syntax-identifier?)(lambda(s_49)(begin(symbol?(syntax-content s_49)))))"
 "(define-values"
 "(syntax->datum$1)"
-"(lambda(s_32)"
+"(lambda(s_50)"
 "(begin"
 " 'syntax->datum"
-"(let-values(((s_51) s_32)"
-"((f_23)(lambda(tail?_6 x_24)(begin 'f x_24)))"
+"(let-values(((s_51) s_50)"
+"((f_23)(lambda(tail?_6 x_25)(begin 'f x_25)))"
 "((d->s_0)(lambda(s_52 d_1)(begin 'd->s d_1)))"
 "((s-e_0) syntax-content)"
 "((seen_3) #f))"
-"((letrec-values(((loop_64)"
+"((letrec-values(((loop_57)"
 "(lambda(s_53)"
 "(begin"
 " 'loop"
 "(let-values(((s_54) s_53)"
 "((f_24) f_23)"
 "((gf_1)"
-"(lambda(tail?_7 v_74)"
+"(lambda(tail?_7 v_75)"
 "(begin"
 " 'gf"
-"(if(syntax?$1 v_74)"
-"(let-values()(d->s_0 v_74(loop_64(s-e_0 v_74))))"
-"(let-values()(f_23 tail?_7 v_74))))))"
+"(if(syntax?$1 v_75)"
+"(let-values()(d->s_0 v_75(loop_57(s-e_0 v_75))))"
+"(let-values()(f_23 tail?_7 v_75))))))"
 "((seen_4) seen_3))"
 "((letrec-values(((loop_65)"
 "(lambda(tail?_8 s_55 prev-depth_1)"
@@ -6111,43 +6095,43 @@ static const char *startup_source =
 "(let-values()(f_24 #f s_55))"
 "(if(number? s_55)"
 "(let-values()(f_24 #f s_55))"
-"(if(let-values(((or-part_88)(vector? s_55)))"
-"(if or-part_88"
-" or-part_88"
-"(let-values(((or-part_50)(box? s_55)))"
-"(if or-part_50"
-" or-part_50"
-"(let-values(((or-part_51)"
+"(if(let-values(((or-part_85)(vector? s_55)))"
+"(if or-part_85"
+" or-part_85"
+"(let-values(((or-part_86)(box? s_55)))"
+"(if or-part_86"
+" or-part_86"
+"(let-values(((or-part_87)"
 "(prefab-struct-key s_55)))"
-"(if or-part_51"
-" or-part_51"
+"(if or-part_87"
+" or-part_87"
 "(hash? s_55)))))))"
 "(let-values()"
 "(datum-map-slow"
 " tail?_8"
 " s_55"
-"(lambda(tail?_10 s_33)(gf_1 tail?_10 s_33))"
+"(lambda(tail?_10 s_57)(gf_1 tail?_10 s_57))"
 " seen_4))"
 "(let-values()(gf_1 #f s_55))))))))))))))"
 " loop_65)"
 " #f"
 " s_54"
 " 0))))))"
-" loop_64)"
+" loop_57)"
 " s_51)))))"
 "(define-values"
 "(datum->syntax$1)"
-"(let-values(((datum->syntax8_0)"
-"(lambda(stx-c6_0 s7_0 stx-l2_0 stx-p3_0 stx-l4_0 stx-p5_0)"
+"(let-values(((datum->syntax6_0)"
+"(lambda(stx-c4_0 s5_0 stx-l2_0 stx-p3_0)"
 "(begin"
-" 'datum->syntax8"
-"(let-values(((stx-c_0) stx-c6_0))"
-"(let-values(((s_57) s7_0))"
-"(let-values(((stx-l_0)(if stx-l4_0 stx-l2_0 #f)))"
-"(let-values(((stx-p_0)(if stx-p5_0 stx-p3_0 #f)))"
+" 'datum->syntax6"
+"(let-values(((stx-c_0) stx-c4_0))"
+"(let-values(((s_58) s5_0))"
+"(let-values(((stx-l_0) stx-l2_0))"
+"(let-values(((stx-p_0) stx-p3_0))"
 "(let-values()"
-"(if(syntax?$1 s_57)"
-"(let-values() s_57)"
+"(if(syntax?$1 s_58)"
+"(let-values() s_58)"
 "(let-values()"
 "(let-values(((wrap_0)"
 "(lambda(content_1)"
@@ -6169,24 +6153,24 @@ static const char *startup_source =
 " empty-props"
 "(if stx-c_0(syntax-inspector stx-c_0) #f))))))"
 "(let-values(((result-s_0)"
-"(let-values(((s_58) s_57)"
+"(let-values(((s_59) s_58)"
 "((f_25)"
-"(lambda(tail?_11 x_25)"
-"(begin 'f(if tail?_11 x_25(wrap_0 x_25)))))"
-"((s->_0)(lambda(s_59)(begin 's-> s_59)))"
+"(lambda(tail?_11 x_26)"
+"(begin 'f(if tail?_11 x_26(wrap_0 x_26)))))"
+"((s->_0)(lambda(s_60)(begin 's-> s_60)))"
 "((seen_5) disallow-cycles))"
-"(let-values(((s_60) s_58)"
+"(let-values(((s_61) s_59)"
 "((f_26) f_25)"
 "((gf_2)"
-"(lambda(tail?_12 v_75)"
+"(lambda(tail?_12 v_76)"
 "(begin"
 " 'gf"
-"(if(syntax?$1 v_75)"
-"(let-values()(s->_0 v_75))"
-"(let-values()(f_25 tail?_12 v_75))))))"
+"(if(syntax?$1 v_76)"
+"(let-values()(s->_0 v_76))"
+"(let-values()(f_25 tail?_12 v_76))))))"
 "((seen_6) seen_5))"
 "((letrec-values(((loop_66)"
-"(lambda(tail?_13 s_61 prev-depth_2)"
+"(lambda(tail?_13 s_62 prev-depth_2)"
 "(begin"
 " 'loop"
 "(let-values(((depth_2)"
@@ -6195,64 +6179,64 @@ static const char *startup_source =
 "(let-values()"
 "(datum-map-slow"
 " tail?_13"
-" s_61"
-"(lambda(tail?_14 s_62)"
-"(gf_2 tail?_14 s_62))"
+" s_62"
+"(lambda(tail?_14 s_63)"
+"(gf_2 tail?_14 s_63))"
 " seen_6))"
-"(if(null? s_61)"
-"(let-values()(f_26 tail?_13 s_61))"
-"(if(pair? s_61)"
+"(if(null? s_62)"
+"(let-values()(f_26 tail?_13 s_62))"
+"(if(pair? s_62)"
 "(let-values()"
 "(f_26"
 " tail?_13"
 "(cons"
-"(loop_66 #f(car s_61) depth_2)"
+"(loop_66 #f(car s_62) depth_2)"
 "(loop_66"
 " #t"
-"(cdr s_61)"
+"(cdr s_62)"
 " depth_2))))"
-"(if(symbol? s_61)"
-"(let-values()(f_26 #f s_61))"
-"(if(boolean? s_61)"
-"(let-values()(f_26 #f s_61))"
-"(if(number? s_61)"
-"(let-values()(f_26 #f s_61))"
-"(if(let-values(((or-part_89)"
+"(if(symbol? s_62)"
+"(let-values()(f_26 #f s_62))"
+"(if(boolean? s_62)"
+"(let-values()(f_26 #f s_62))"
+"(if(number? s_62)"
+"(let-values()(f_26 #f s_62))"
+"(if(let-values(((or-part_88)"
 "(vector?"
-" s_61)))"
+" s_62)))"
+"(if or-part_88"
+" or-part_88"
+"(let-values(((or-part_89)"
+"(box?"
+" s_62)))"
 "(if or-part_89"
 " or-part_89"
 "(let-values(((or-part_90)"
-"(box?"
-" s_61)))"
+"(prefab-struct-key"
+" s_62)))"
 "(if or-part_90"
 " or-part_90"
-"(let-values(((or-part_91)"
-"(prefab-struct-key"
-" s_61)))"
-"(if or-part_91"
-" or-part_91"
 "(hash?"
-" s_61)))))))"
+" s_62)))))))"
 "(let-values()"
 "(datum-map-slow"
 " tail?_13"
-" s_61"
-"(lambda(tail?_15 s_63)"
-"(gf_2 tail?_15 s_63))"
+" s_62"
+"(lambda(tail?_15 s_64)"
+"(gf_2 tail?_15 s_64))"
 " seen_6))"
 "(let-values()"
 "(gf_2"
 " #f"
-" s_61))))))))))))))"
+" s_62))))))))))))))"
 " loop_66)"
 " #f"
-" s_60"
+" s_61"
 " 0)))))"
 "(if(if stx-p_0(not(eq?(syntax-props stx-p_0) empty-props)) #f)"
 "(let-values(((the-struct_0) result-s_0))"
 "(if(syntax?$1 the-struct_0)"
-"(let-values(((props21_0)(syntax-props stx-p_0)))"
+"(let-values(((props19_0)(syntax-props stx-p_0)))"
 "(syntax1.1"
 "(syntax-content the-struct_0)"
 "(syntax-scopes the-struct_0)"
@@ -6260,22 +6244,22 @@ static const char *startup_source =
 "(syntax-scope-propagations+tamper the-struct_0)"
 "(syntax-mpi-shifts the-struct_0)"
 "(syntax-srcloc the-struct_0)"
-" props21_0"
+" props19_0"
 "(syntax-inspector the-struct_0)))"
 "                                            (raise-argument-error 'struct-copy \"syntax?\" the-struct_0)))"
 " result-s_0))))))))))))))"
 "(case-lambda"
-"((stx-c_1 s_64)(begin 'datum->syntax(datum->syntax8_0 stx-c_1 s_64 #f #f #f #f)))"
-"((stx-c_2 s_65 stx-l_1 stx-p3_1)(datum->syntax8_0 stx-c_2 s_65 stx-l_1 stx-p3_1 #t #t))"
-"((stx-c_3 s_66 stx-l2_1)(datum->syntax8_0 stx-c_3 s_66 stx-l2_1 #f #t #f)))))"
+"((stx-c_1 s_65)(begin 'datum->syntax(datum->syntax6_0 stx-c_1 s_65 #f #f)))"
+"((stx-c_2 s_66 stx-l_1 stx-p3_1)(datum->syntax6_0 stx-c_2 s_66 stx-l_1 stx-p3_1))"
+"((stx-c_3 s_67 stx-l2_1)(datum->syntax6_0 stx-c_3 s_67 stx-l2_1 #f)))))"
 "(define-values"
 "(disallow-cycles)"
 "(hasheq"
 " 'cycle-fail"
-"   (lambda (s_67) (raise-arguments-error 'datum->syntax \"cannot create syntax from cyclic datum\" \"datum\" s_67))))"
+"   (lambda (s_68) (raise-arguments-error 'datum->syntax \"cannot create syntax from cyclic datum\" \"datum\" s_68))))"
 "(define-values"
 "(struct:syntax-state"
-" syntax-state19.1"
+" syntax-state17.1"
 " syntax-state?"
 " syntax-state-all-sharing?"
 " syntax-state-context-triple"
@@ -6329,11 +6313,11 @@ static const char *startup_source =
 "(void)"
 "(let-values()(check-in-immutable-hash ht_29)))"
 "((letrec-values(((for-loop_31)"
-"(lambda(table_29 i_47)"
+"(lambda(table_29 i_49)"
 "(begin"
 " 'for-loop"
-"(if i_47"
-"(let-values(((k_15 v_76)(unsafe-immutable-hash-iterate-key+value ht_29 i_47)))"
+"(if i_49"
+"(let-values(((k_15 v_77)(unsafe-immutable-hash-iterate-key+value ht_29 i_49)))"
 "(let-values(((table_30)"
 "(let-values(((table_31) table_29))"
 "(let-values(((table_32)"
@@ -6343,11 +6327,11 @@ static const char *startup_source =
 "(values"
 " k_15"
 "(preserved-property-value1.1"
-" v_76)))))"
+" v_77)))))"
 "(hash-set table_31 key_17 val_8)))))"
 "(values table_32)))))"
 "(if(not #f)"
-"(for-loop_31 table_30(unsafe-immutable-hash-iterate-next ht_29 i_47))"
+"(for-loop_31 table_30(unsafe-immutable-hash-iterate-next ht_29 i_49))"
 " table_30)))"
 " table_29)))))"
 " for-loop_31)"
@@ -6359,8 +6343,8 @@ static const char *startup_source =
 "(deserialize-datum->syntax)"
 "(lambda(content_5 context-triple_2 srcloc_2 inspector_1)"
 "(begin"
-"(let-values(((s_68)(deserialize-syntax #f context-triple_2 srcloc_2 #f #f inspector_1)))"
-"(datum->syntax$1 s_68 content_5 s_68 s_68)))))"
+"(let-values(((s_69)(deserialize-syntax #f context-triple_2 srcloc_2 #f #f inspector_1)))"
+"(datum->syntax$1 s_69 content_5 s_69 s_69)))))"
 "(define-values"
 "(struct:full-binding full-binding1.1 full-binding? full-binding-frame-id full-binding-free=id)"
 "(let-values(((struct:_0 make-_0 ?_0 -ref_0 -set!_0)"
@@ -6391,23 +6375,14 @@ static const char *startup_source =
 "(define-values"
 "(make-module-binding22.1)"
 "(lambda(extra-inspector8_0"
-" extra-inspector17_0"
 " extra-nominal-bindings9_0"
-" extra-nominal-bindings18_0"
 " frame-id6_0"
-" frame-id15_0"
 " free=id7_0"
-" free=id16_0"
 " nominal-module2_0"
-" nominal-module11_0"
 " nominal-phase3_0"
-" nominal-phase12_0"
 " nominal-require-phase5_0"
-" nominal-require-phase14_0"
 " nominal-sym4_0"
-" nominal-sym13_0"
 " wrt1_0"
-" wrt10_0"
 " module19_0"
 " phase20_0"
 " sym21_0)"
@@ -6417,25 +6392,25 @@ static const char *startup_source =
 "(let-values(((phase_0) phase20_0))"
 "(let-values(((sym_0) sym21_0))"
 "(let-values()"
-"(let-values(((nominal-module_0)(if nominal-module11_0 nominal-module2_0 module_0)))"
-"(let-values(((nominal-phase_0)(if nominal-phase12_0 nominal-phase3_0 phase_0)))"
-"(let-values(((nominal-sym_0)(if nominal-sym13_0 nominal-sym4_0 sym_0)))"
-"(let-values(((nominal-require-phase_0)(if nominal-require-phase14_0 nominal-require-phase5_0 0)))"
-"(let-values(((frame-id_0)(if frame-id15_0 frame-id6_0 #f)))"
-"(let-values(((free=id_0)(if free=id16_0 free=id7_0 #f)))"
-"(let-values(((extra-inspector_0)(if extra-inspector17_0 extra-inspector8_0 #f)))"
-"(let-values(((extra-nominal-bindings_0)"
-"(if extra-nominal-bindings18_0 extra-nominal-bindings9_0 null)))"
+"(let-values(((nominal-module_0)"
+"(if(eq? nominal-module2_0 unsafe-undefined) module_0 nominal-module2_0)))"
+"(let-values(((nominal-phase_0)(if(eq? nominal-phase3_0 unsafe-undefined) phase_0 nominal-phase3_0)))"
+"(let-values(((nominal-sym_0)(if(eq? nominal-sym4_0 unsafe-undefined) sym_0 nominal-sym4_0)))"
+"(let-values(((nominal-require-phase_0) nominal-require-phase5_0))"
+"(let-values(((frame-id_0) frame-id6_0))"
+"(let-values(((free=id_0) free=id7_0))"
+"(let-values(((extra-inspector_0) extra-inspector8_0))"
+"(let-values(((extra-nominal-bindings_0) extra-nominal-bindings9_0))"
 "(let-values()"
-"(if(let-values(((or-part_29) frame-id_0))"
-"(if or-part_29"
-" or-part_29"
-"(let-values(((or-part_81) free=id_0))"
-"(if or-part_81"
-" or-part_81"
-"(let-values(((or-part_82) extra-inspector_0))"
-"(if or-part_82"
-" or-part_82"
+"(if(let-values(((or-part_91) frame-id_0))"
+"(if or-part_91"
+" or-part_91"
+"(let-values(((or-part_92) free=id_0))"
+"(if or-part_92"
+" or-part_92"
+"(let-values(((or-part_93) extra-inspector_0))"
+"(if or-part_93"
+" or-part_93"
 "(not"
 "(if(eqv? nominal-phase_0 phase_0)"
 "(if(eq? nominal-sym_0 sym_0)"
@@ -6466,53 +6441,51 @@ static const char *startup_source =
 "(define-values"
 "(module-binding-update48.1)"
 "(lambda(extra-inspector34_0"
-" extra-inspector45_0"
 " extra-nominal-bindings35_0"
-" extra-nominal-bindings46_0"
 " frame-id32_0"
-" frame-id43_0"
 " free=id33_0"
-" free=id44_0"
 " module25_0"
-" module36_0"
 " nominal-module28_0"
-" nominal-module39_0"
 " nominal-phase29_0"
-" nominal-phase40_0"
 " nominal-require-phase31_0"
-" nominal-require-phase42_0"
 " nominal-sym30_0"
-" nominal-sym41_0"
 " phase26_0"
-" phase37_0"
 " sym27_0"
-" sym38_0"
 " b47_0)"
 "(begin"
 " 'module-binding-update48"
 "(let-values(((b_23) b47_0))"
-"(let-values(((module_1)(if module36_0 module25_0(module-binding-module b_23))))"
-"(let-values(((phase_1)(if phase37_0 phase26_0(module-binding-phase b_23))))"
-"(let-values(((sym_1)(if sym38_0 sym27_0(module-binding-sym b_23))))"
+"(let-values(((module_1)(if(eq? module25_0 unsafe-undefined)(module-binding-module b_23) module25_0)))"
+"(let-values(((phase_1)(if(eq? phase26_0 unsafe-undefined)(module-binding-phase b_23) phase26_0)))"
+"(let-values(((sym_1)(if(eq? sym27_0 unsafe-undefined)(module-binding-sym b_23) sym27_0)))"
 "(let-values(((nominal-module_1)"
-"(if nominal-module39_0 nominal-module28_0(module-binding-nominal-module b_23))))"
+"(if(eq? nominal-module28_0 unsafe-undefined)"
+"(module-binding-nominal-module b_23)"
+" nominal-module28_0)))"
 "(let-values(((nominal-phase_1)"
-"(if nominal-phase40_0 nominal-phase29_0(module-binding-nominal-phase b_23))))"
-"(let-values(((nominal-sym_1)(if nominal-sym41_0 nominal-sym30_0(module-binding-nominal-sym b_23))))"
+"(if(eq? nominal-phase29_0 unsafe-undefined)"
+"(module-binding-nominal-phase b_23)"
+" nominal-phase29_0)))"
+"(let-values(((nominal-sym_1)"
+"(if(eq? nominal-sym30_0 unsafe-undefined)"
+"(module-binding-nominal-sym b_23)"
+" nominal-sym30_0)))"
 "(let-values(((nominal-require-phase_1)"
-"(if nominal-require-phase42_0"
-" nominal-require-phase31_0"
-"(module-binding-nominal-require-phase b_23))))"
-"(let-values(((frame-id_1)(if frame-id43_0 frame-id32_0(binding-frame-id b_23))))"
-"(let-values(((free=id_1)(if free=id44_0 free=id33_0(binding-free=id b_23))))"
+"(if(eq? nominal-require-phase31_0 unsafe-undefined)"
+"(module-binding-nominal-require-phase b_23)"
+" nominal-require-phase31_0)))"
+"(let-values(((frame-id_1)"
+"(if(eq? frame-id32_0 unsafe-undefined)(binding-frame-id b_23) frame-id32_0)))"
+"(let-values(((free=id_1)"
+"(if(eq? free=id33_0 unsafe-undefined)(binding-free=id b_23) free=id33_0)))"
 "(let-values(((extra-inspector_1)"
-"(if extra-inspector45_0"
-" extra-inspector34_0"
-"(module-binding-extra-inspector b_23))))"
+"(if(eq? extra-inspector34_0 unsafe-undefined)"
+"(module-binding-extra-inspector b_23)"
+" extra-inspector34_0)))"
 "(let-values(((extra-nominal-bindings_1)"
-"(if extra-nominal-bindings46_0"
-" extra-nominal-bindings35_0"
-"(module-binding-extra-nominal-bindings b_23))))"
+"(if(eq? extra-nominal-bindings35_0 unsafe-undefined)"
+"(module-binding-extra-nominal-bindings b_23)"
+" extra-nominal-bindings35_0)))"
 "(let-values()"
 "(let-values(((module53_0) module_1)"
 "((phase54_0) phase_1)"
@@ -6527,23 +6500,14 @@ static const char *startup_source =
 "((extra-nominal-bindings63_0) extra-nominal-bindings_1))"
 "(make-module-binding22.1"
 " extra-inspector62_0"
-" #t"
 " extra-nominal-bindings63_0"
-" #t"
 " frame-id60_0"
-" #t"
 " free=id61_0"
-" #t"
 " nominal-module56_0"
-" #t"
 " nominal-phase57_0"
-" #t"
 " nominal-require-phase59_0"
-" #t"
 " nominal-sym58_0"
-" #t"
-" #f"
-" #f"
+" unsafe-undefined"
 " module53_0"
 " phase54_0"
 " sym55_0))))))))))))))))))"
@@ -6551,8 +6515,8 @@ static const char *startup_source =
 "(module-binding?)"
 "(lambda(b_24)"
 "(begin"
-"(let-values(((or-part_90)(simple-module-binding? b_24)))"
-"(if or-part_90 or-part_90(full-module-binding? b_24))))))"
+"(let-values(((or-part_94)(simple-module-binding? b_24)))"
+"(if or-part_94 or-part_94(full-module-binding? b_24))))))"
 "(define-values"
 "(struct:full-module-binding"
 " full-module-binding51.1"
@@ -6584,28 +6548,17 @@ static const char *startup_source =
 "(if(full-binding-frame-id b_25)"
 "(let-values(((b65_0) b_25)((temp66_0) #f))"
 "(module-binding-update48.1"
-" #f"
-" #f"
-" #f"
-" #f"
+" unsafe-undefined"
+" unsafe-undefined"
 " temp66_0"
-" #t"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
+" unsafe-undefined"
+" unsafe-undefined"
+" unsafe-undefined"
+" unsafe-undefined"
+" unsafe-undefined"
+" unsafe-undefined"
+" unsafe-undefined"
+" unsafe-undefined"
 " b65_0))"
 " b_25)))"
 "(if(full-module-binding? simplified-b_0)"
@@ -6709,23 +6662,14 @@ static const char *startup_source =
 "((extra-nominal-bindings77_0) extra-nominal-bindings_2))"
 "(make-module-binding22.1"
 " extra-inspector76_0"
-" #t"
 " extra-nominal-bindings77_0"
-" #t"
-" #f"
 " #f"
 " free=id75_0"
-" #t"
 " nominal-module71_0"
-" #t"
 " nominal-phase72_0"
-" #t"
 " nominal-require-phase74_0"
-" #t"
 " nominal-sym73_0"
-" #t"
-" #f"
-" #f"
+" unsafe-undefined"
 " module68_0"
 " phase69_0"
 " sym70_0)))))"
@@ -6874,11 +6818,11 @@ static const char *startup_source =
 "(make-struct-field-accessor -ref_20 1 'create))))"
 "(define-values"
 "(bulk-binding-symbols)"
-"(lambda(b_36 s_69 extra-shifts_0)"
+"(lambda(b_36 s_70 extra-shifts_0)"
 "(begin"
 "((bulk-binding-class-get-symbols(bulk-binding-ref b_36))"
 " b_36"
-"(append extra-shifts_0(if s_69(syntax-mpi-shifts s_69) null))))))"
+"(append extra-shifts_0(if s_70(syntax-mpi-shifts s_70) null))))))"
 "(define-values(bulk-binding-create)(lambda(b_37)(begin(bulk-binding-class-create(bulk-binding-ref b_37)))))"
 "(define-values(binding-table-empty?)(lambda(bt_0)(begin(if(hash? bt_0)(zero?(hash-count bt_0)) #f))))"
 "(define-values"
@@ -6922,13 +6866,13 @@ static const char *startup_source =
 "(make-struct-type-property 'implicitly-reachable))"
 "(define-values"
 "(binding-table-add-bulk9.1)"
-"(lambda(shadow-except4_0 shadow-except5_0 bt6_0 scopes7_0 bulk8_0)"
+"(lambda(shadow-except4_0 bt6_0 scopes7_0 bulk8_0)"
 "(begin"
 " 'binding-table-add-bulk9"
 "(let-values(((bt_2) bt6_0))"
 "(let-values(((scopes_2) scopes7_0))"
 "(let-values(((bulk_1) bulk8_0))"
-"(let-values(((shadow-except_0)(if shadow-except5_0 shadow-except4_0 #f)))"
+"(let-values(((shadow-except_0) shadow-except4_0))"
 "(let-values()"
 "(if(table-with-bulk-bindings? bt_2)"
 "(let-values()"
@@ -6960,7 +6904,7 @@ static const char *startup_source =
 "(let-values(((temp42_0)(table-with-bulk-bindings1.1 bt_2 bt_2 null))"
 "((scopes43_0) scopes_2)"
 "((bulk44_0) bulk_1))"
-"(binding-table-add-bulk9.1 #f #f temp42_0 scopes43_0 bulk44_0))))))))))))"
+"(binding-table-add-bulk9.1 #f temp42_0 scopes43_0 bulk44_0))))))))))))"
 "(define-values"
 "(remove-matching-bindings17.1)"
 "(lambda(except12_0 syms14_0 scopes15_0 bulk16_0)"
@@ -6979,13 +6923,13 @@ static const char *startup_source =
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
 "(let-values()(check-in-immutable-hash ht_30)))"
-"((letrec-values(((for-loop_12)"
-"(lambda(syms_3 i_48)"
+"((letrec-values(((for-loop_32)"
+"(lambda(syms_3 i_50)"
 "(begin"
 " 'for-loop"
-"(if i_48"
+"(if i_50"
 "(let-values(((sym_5 sym-bindings_0)"
-"(unsafe-immutable-hash-iterate-key+value ht_30 i_48)))"
+"(unsafe-immutable-hash-iterate-key+value ht_30 i_50)))"
 "(let-values(((syms_4)"
 "(let-values(((syms_5) syms_3))"
 "(let-values(((syms_6)"
@@ -7011,12 +6955,12 @@ static const char *startup_source =
 " syms_5))))"
 "(values syms_6)))))"
 "(if(not #f)"
-"(for-loop_12"
+"(for-loop_32"
 " syms_4"
-"(unsafe-immutable-hash-iterate-next ht_30 i_48))"
+"(unsafe-immutable-hash-iterate-next ht_30 i_50))"
 " syms_4)))"
 " syms_3)))))"
-" for-loop_12)"
+" for-loop_32)"
 " syms_2"
 "(unsafe-immutable-hash-iterate-first ht_30)))))"
 "(let-values()"
@@ -7025,12 +6969,12 @@ static const char *startup_source =
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
 "(let-values()(check-in-immutable-hash-keys ht_31)))"
-"((letrec-values(((for-loop_32)"
-"(lambda(syms_7 i_33)"
+"((letrec-values(((for-loop_33)"
+"(lambda(syms_7 i_51)"
 "(begin"
 " 'for-loop"
-"(if i_33"
-"(let-values(((sym_6)(unsafe-immutable-hash-iterate-key ht_31 i_33)))"
+"(if i_51"
+"(let-values(((sym_6)(unsafe-immutable-hash-iterate-key ht_31 i_51)))"
 "(let-values(((syms_8)"
 "(let-values(((syms_9) syms_7))"
 "(let-values(((syms_10)"
@@ -7058,12 +7002,12 @@ static const char *startup_source =
 " syms_9)))))"
 "(values syms_10)))))"
 "(if(not #f)"
-"(for-loop_32"
+"(for-loop_33"
 " syms_8"
-"(unsafe-immutable-hash-iterate-next ht_31 i_33))"
+"(unsafe-immutable-hash-iterate-next ht_31 i_51))"
 " syms_8)))"
 " syms_7)))))"
-" for-loop_32)"
+" for-loop_33)"
 " syms_2"
 "(unsafe-immutable-hash-iterate-first ht_31)))))))))))))))"
 "(define-values"
@@ -7085,118 +7029,118 @@ static const char *startup_source =
 "(let-values()(hash-set syms_11 sym_7(hash-remove sym-bindings_2 scopes_4)))))))))))))"
 "(define-values"
 "(binding-table-symbols)"
-"(lambda(table_33 scs_2 s_70 extra-shifts_1)"
+"(lambda(table_33 scs_2 s_71 extra-shifts_1)"
 "(begin"
-"(let-values(((ht_32 bulk-bindings_1)"
+"(let-values(((ht_29 bulk-bindings_1)"
 "(if(hash? table_33)"
 "(values table_33 null)"
 "(values"
 "(table-with-bulk-bindings-syms table_33)"
 "(table-with-bulk-bindings-bulk-bindings table_33)))))"
 "(set-union"
-"(let-values(((ht_33) ht_32))"
+"(let-values(((ht_32) ht_29))"
 "(begin"
-"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-in-hash ht_33)))"
-"((letrec-values(((for-loop_33)"
-"(lambda(table_34 i_49)"
+"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-in-hash ht_32)))"
+"((letrec-values(((for-loop_34)"
+"(lambda(table_34 i_52)"
 "(begin"
 " 'for-loop"
-"(if i_49"
-"(let-values(((sym_8 at-sym_0)(hash-iterate-key+value ht_33 i_49)))"
-"(let-values(((table_31)"
-"(let-values(((table_32) table_34))"
-"(if(let-values(((ht_34) at-sym_0))"
+"(if i_52"
+"(let-values(((sym_8 at-sym_0)(hash-iterate-key+value ht_32 i_52)))"
+"(let-values(((table_32)"
+"(let-values(((table_35) table_34))"
+"(if(let-values(((ht_33) at-sym_0))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
 "(#%variable-reference))"
 "(void)"
-"(let-values()(check-in-hash-keys ht_34)))"
-"((letrec-values(((for-loop_34)"
-"(lambda(result_29 i_50)"
+"(let-values()(check-in-hash-keys ht_33)))"
+"((letrec-values(((for-loop_35)"
+"(lambda(result_28 i_53)"
 "(begin"
 " 'for-loop"
-"(if i_50"
+"(if i_53"
 "(let-values(((an-scs_0)"
 "(hash-iterate-key"
-" ht_34"
-" i_50)))"
-"(let-values(((result_30)"
+" ht_33"
+" i_53)))"
+"(let-values(((result_29)"
 "(let-values()"
-"(let-values(((result_31)"
+"(let-values(((result_30)"
 "(let-values()"
 "(let-values()"
 "(subset?"
 " an-scs_0"
 " scs_2)))))"
 "(values"
-" result_31)))))"
+" result_30)))))"
 "(if(if(not"
-"((lambda x_26"
-" result_30)"
+"((lambda x_27"
+" result_29)"
 " an-scs_0))"
 "(not #f)"
 " #f)"
-"(for-loop_34"
-" result_30"
+"(for-loop_35"
+" result_29"
 "(hash-iterate-next"
-" ht_34"
-" i_50))"
-" result_30)))"
-" result_29)))))"
-" for-loop_34)"
+" ht_33"
+" i_53))"
+" result_29)))"
+" result_28)))))"
+" for-loop_35)"
 " #f"
-"(hash-iterate-first ht_34))))"
-"(let-values(((table_35) table_32))"
-"(let-values(((table_36)"
+"(hash-iterate-first ht_33))))"
+"(let-values(((table_36) table_35))"
+"(let-values(((table_37)"
 "(let-values()"
 "(let-values(((key_18 val_9)"
 "(let-values()"
 "(values"
 "(let-values() sym_8)"
 " #t))))"
-"(hash-set table_35 key_18 val_9)))))"
-"(values table_36)))"
-" table_32))))"
-"(if(not #f)(for-loop_33 table_31(hash-iterate-next ht_33 i_49)) table_31)))"
+"(hash-set table_36 key_18 val_9)))))"
+"(values table_37)))"
+" table_35))))"
+"(if(not #f)(for-loop_34 table_32(hash-iterate-next ht_32 i_52)) table_32)))"
 " table_34)))))"
-" for-loop_33)"
+" for-loop_34)"
 " '#hasheq()"
-"(hash-iterate-first ht_33))))"
+"(hash-iterate-first ht_32))))"
 "(let-values(((lst_34) bulk-bindings_1))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_34)))"
-"((letrec-values(((for-loop_35)"
-"(lambda(table_37 lst_35)"
+"((letrec-values(((for-loop_36)"
+"(lambda(table_38 lst_35)"
 "(begin"
 " 'for-loop"
 "(if(pair? lst_35)"
 "(let-values(((bba_1)(unsafe-car lst_35))((rest_14)(unsafe-cdr lst_35)))"
-"(let-values(((table_38)"
-"(let-values(((table_39) table_37))"
+"(let-values(((table_39)"
+"(let-values(((table_40) table_38))"
 "(if(subset?(bulk-binding-at-scopes bba_1) scs_2)"
-"(let-values(((ht_35)"
+"(let-values(((ht_34)"
 "(bulk-binding-symbols"
 "(bulk-binding-at-bulk bba_1)"
-" s_70"
+" s_71"
 " extra-shifts_1)))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
 "(#%variable-reference))"
 "(void)"
-"(let-values()(check-in-hash-keys ht_35)))"
-"((letrec-values(((for-loop_36)"
-"(lambda(table_40 i_51)"
+"(let-values()(check-in-hash-keys ht_34)))"
+"((letrec-values(((for-loop_37)"
+"(lambda(table_41 i_54)"
 "(begin"
 " 'for-loop"
-"(if i_51"
+"(if i_54"
 "(let-values(((sym_9)"
 "(hash-iterate-key"
-" ht_35"
-" i_51)))"
-"(let-values(((table_41)"
+" ht_34"
+" i_54)))"
 "(let-values(((table_42)"
-" table_40))"
 "(let-values(((table_43)"
+" table_41))"
+"(let-values(((table_44)"
 "(let-values()"
 "(let-values(((key_19"
 " val_10)"
@@ -7206,54 +7150,54 @@ static const char *startup_source =
 " sym_9)"
 " #t))))"
 "(hash-set"
-" table_42"
+" table_43"
 " key_19"
 " val_10)))))"
 "(values"
-" table_43)))))"
+" table_44)))))"
 "(if(not #f)"
-"(for-loop_36"
-" table_41"
+"(for-loop_37"
+" table_42"
 "(hash-iterate-next"
-" ht_35"
-" i_51))"
-" table_41)))"
-" table_40)))))"
+" ht_34"
+" i_54))"
+" table_42)))"
+" table_41)))))"
+" for-loop_37)"
+" table_40"
+"(hash-iterate-first ht_34))))"
+" table_40))))"
+"(if(not #f)(for-loop_36 table_39 rest_14) table_39)))"
+" table_38)))))"
 " for-loop_36)"
-" table_39"
-"(hash-iterate-first ht_35))))"
-" table_39))))"
-"(if(not #f)(for-loop_35 table_38 rest_14) table_38)))"
-" table_37)))))"
-" for-loop_35)"
 " '#hasheq()"
 " lst_34))))))))"
 "(define-values"
 "(binding-table-prune-to-reachable)"
 "(lambda(bt_3 state_15)"
 "(begin"
-"(let-values(((or-part_92)(hash-ref(serialize-state-bindings-intern state_15) bt_3 #f)))"
-"(if or-part_92"
-" or-part_92"
+"(let-values(((or-part_95)(hash-ref(serialize-state-bindings-intern state_15) bt_3 #f)))"
+"(if or-part_95"
+" or-part_95"
 "(let-values(((reachable-scopes_1)(serialize-state-reachable-scopes state_15)))"
 "(let-values(((new-syms_2)"
-"(let-values(((ht_36)(if(hash? bt_3) bt_3(table-with-bulk-bindings-syms/serialize bt_3))))"
+"(let-values(((ht_35)(if(hash? bt_3) bt_3(table-with-bulk-bindings-syms/serialize bt_3))))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
-"(let-values()(check-in-immutable-hash ht_36)))"
-"((letrec-values(((for-loop_37)"
-"(lambda(table_44 i_52)"
+"(let-values()(check-in-immutable-hash ht_35)))"
+"((letrec-values(((for-loop_38)"
+"(lambda(table_45 i_55)"
 "(begin"
 " 'for-loop"
-"(if i_52"
+"(if i_55"
 "(let-values(((sym_10 bindings-for-sym_0)"
 "(unsafe-immutable-hash-iterate-key+value"
-" ht_36"
-" i_52)))"
-"(let-values(((table_45)"
+" ht_35"
+" i_55)))"
+"(let-values(((table_46)"
 "(let-values(((new-bindings-for-sym_0)"
-"(let-values(((ht_37)"
+"(let-values(((ht_36)"
 " bindings-for-sym_0))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
@@ -7261,27 +7205,27 @@ static const char *startup_source =
 "(void)"
 "(let-values()"
 "(check-in-immutable-hash"
-" ht_37)))"
-"((letrec-values(((for-loop_38)"
-"(lambda(table_46"
-" i_53)"
+" ht_36)))"
+"((letrec-values(((for-loop_39)"
+"(lambda(table_47"
+" i_56)"
 "(begin"
 " 'for-loop"
-"(if i_53"
+"(if i_56"
 "(let-values(((scopes_5"
 " binding_1)"
 "(unsafe-immutable-hash-iterate-key+value"
-" ht_37"
-" i_53)))"
-"(let-values(((table_47)"
+" ht_36"
+" i_56)))"
 "(let-values(((table_48)"
-" table_46))"
+"(let-values(((table_49)"
+" table_47))"
 "(if(subset?"
 " scopes_5"
 " reachable-scopes_1)"
-"(let-values(((table_49)"
-" table_48))"
 "(let-values(((table_50)"
+" table_49))"
+"(let-values(((table_51)"
 "(let-values()"
 "(let-values(((key_20"
 " val_11)"
@@ -7292,41 +7236,41 @@ static const char *startup_source =
 " state_15)"
 " binding_1))))"
 "(hash-set"
-" table_49"
+" table_50"
 " key_20"
 " val_11)))))"
 "(values"
-" table_50)))"
-" table_48))))"
+" table_51)))"
+" table_49))))"
 "(if(not"
 " #f)"
-"(for-loop_38"
-" table_47"
+"(for-loop_39"
+" table_48"
 "(unsafe-immutable-hash-iterate-next"
-" ht_37"
-" i_53))"
-" table_47)))"
-" table_46)))))"
-" for-loop_38)"
+" ht_36"
+" i_56))"
+" table_48)))"
+" table_47)))))"
+" for-loop_39)"
 " '#hash()"
 "(unsafe-immutable-hash-iterate-first"
-" ht_37))))))"
+" ht_36))))))"
 "(begin"
 " #t"
-"((letrec-values(((for-loop_39)"
-"(lambda(table_51)"
+"((letrec-values(((for-loop_40)"
+"(lambda(table_52)"
 "(begin"
 " 'for-loop"
 "(let-values()"
-"(let-values(((table_52)"
 "(let-values(((table_53)"
-" table_51))"
+"(let-values(((table_54)"
+" table_52))"
 "(if(positive?"
 "(hash-count"
 " new-bindings-for-sym_0))"
-"(let-values(((table_54)"
-" table_53))"
 "(let-values(((table_55)"
+" table_54))"
+"(let-values(((table_56)"
 "(let-values()"
 "(let-values(((key_21"
 " val_12)"
@@ -7335,24 +7279,24 @@ static const char *startup_source =
 " sym_10"
 " new-bindings-for-sym_0))))"
 "(hash-set"
-" table_54"
+" table_55"
 " key_21"
 " val_12)))))"
 "(values"
-" table_55)))"
-" table_53))))"
-" table_52))))))"
-" for-loop_39)"
-" table_44)))))"
+" table_56)))"
+" table_54))))"
+" table_53))))))"
+" for-loop_40)"
+" table_45)))))"
 "(if(not #f)"
-"(for-loop_37"
-" table_45"
-"(unsafe-immutable-hash-iterate-next ht_36 i_52))"
-" table_45)))"
-" table_44)))))"
-" for-loop_37)"
+"(for-loop_38"
+" table_46"
+"(unsafe-immutable-hash-iterate-next ht_35 i_55))"
+" table_46)))"
+" table_45)))))"
+" for-loop_38)"
 " '#hasheq()"
-"(unsafe-immutable-hash-iterate-first ht_36))))))"
+"(unsafe-immutable-hash-iterate-first ht_35))))))"
 "(let-values(((new-bulk-bindings_0)"
 "(if(hash? bt_3)"
 " null"
@@ -7362,7 +7306,7 @@ static const char *startup_source =
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
 "(let-values()(check-list lst_36)))"
-"((letrec-values(((for-loop_40)"
+"((letrec-values(((for-loop_41)"
 "(lambda(fold-var_21 lst_37)"
 "(begin"
 " 'for-loop"
@@ -7400,10 +7344,10 @@ static const char *startup_source =
 "(values fold-var_25)))"
 " fold-var_23))))"
 "(if(not #f)"
-"(for-loop_40 fold-var_22 rest_15)"
+"(for-loop_41 fold-var_22 rest_15)"
 " fold-var_22)))"
 " fold-var_21)))))"
-" for-loop_40)"
+" for-loop_41)"
 " null"
 " lst_36)))))))"
 "(let-values(((new-bt_0)"
@@ -7416,40 +7360,40 @@ static const char *startup_source =
 "(lambda(bt_4 get-reachable-scopes_0 reach_2 register-trigger_0)"
 "(begin"
 "(begin"
-"(let-values(((ht_38)(if(hash? bt_4) bt_4(table-with-bulk-bindings-syms/serialize bt_4))))"
+"(let-values(((ht_37)(if(hash? bt_4) bt_4(table-with-bulk-bindings-syms/serialize bt_4))))"
+"(begin"
+"(if(variable-reference-from-unsafe?(#%variable-reference))"
+"(void)"
+"(let-values()(check-in-immutable-hash ht_37)))"
+"((letrec-values(((for-loop_42)"
+"(lambda(i_57)"
+"(begin"
+" 'for-loop"
+"(if i_57"
+"(let-values(((sym_11 bindings-for-sym_1)"
+"(unsafe-immutable-hash-iterate-key+value ht_37 i_57)))"
+"(let-values((()"
+"(let-values(((ht_38) bindings-for-sym_1))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
 "(let-values()(check-in-immutable-hash ht_38)))"
-"((letrec-values(((for-loop_41)"
-"(lambda(i_54)"
+"((letrec-values(((for-loop_43)"
+"(lambda(i_58)"
 "(begin"
 " 'for-loop"
-"(if i_54"
-"(let-values(((sym_11 bindings-for-sym_1)"
-"(unsafe-immutable-hash-iterate-key+value ht_38 i_54)))"
-"(let-values((()"
-"(let-values(((ht_39) bindings-for-sym_1))"
-"(begin"
-"(if(variable-reference-from-unsafe?(#%variable-reference))"
-"(void)"
-"(let-values()(check-in-immutable-hash ht_39)))"
-"((letrec-values(((for-loop_42)"
-"(lambda(i_55)"
-"(begin"
-" 'for-loop"
-"(if i_55"
+"(if i_58"
 "(let-values(((scopes_6 binding_2)"
 "(unsafe-immutable-hash-iterate-key+value"
-" ht_39"
-" i_55)))"
+" ht_38"
+" i_58)))"
 "(let-values((()"
 "(let-values()"
 "(let-values((()"
 "(let-values()"
 "(begin"
 "(let-values()"
-"(let-values(((v_77)"
+"(let-values(((v_78)"
 "(if(binding-reach-scopes?"
 " binding_2)"
 "((binding-reach-scopes-ref"
@@ -7458,27 +7402,27 @@ static const char *startup_source =
 " #f)))"
 "(scopes-register-reachable"
 " scopes_6"
-" v_77"
+" v_78"
 " get-reachable-scopes_0"
 " reach_2"
 " register-trigger_0)))"
 "(values)))))"
 "(values)))))"
 "(if(not #f)"
-"(for-loop_42"
+"(for-loop_43"
 "(unsafe-immutable-hash-iterate-next"
-" ht_39"
-" i_55))"
+" ht_38"
+" i_58))"
+"(values))))"
+"(values))))))"
+" for-loop_43)"
+"(unsafe-immutable-hash-iterate-first ht_38))))))"
+"(if(not #f)"
+"(for-loop_42(unsafe-immutable-hash-iterate-next ht_37 i_57))"
 "(values))))"
 "(values))))))"
 " for-loop_42)"
-"(unsafe-immutable-hash-iterate-first ht_39))))))"
-"(if(not #f)"
-"(for-loop_41(unsafe-immutable-hash-iterate-next ht_38 i_54))"
-"(values))))"
-"(values))))))"
-" for-loop_41)"
-"(unsafe-immutable-hash-iterate-first ht_38))))"
+"(unsafe-immutable-hash-iterate-first ht_37))))"
 "(void)"
 "(if(table-with-bulk-bindings? bt_4)"
 "(let-values()"
@@ -7488,7 +7432,7 @@ static const char *startup_source =
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
 "(let-values()(check-list lst_38)))"
-"((letrec-values(((for-loop_43)"
+"((letrec-values(((for-loop_44)"
 "(lambda(lst_39)"
 "(begin"
 " 'for-loop"
@@ -7508,45 +7452,45 @@ static const char *startup_source =
 " register-trigger_0))"
 "(values)))))"
 "(values)))))"
-"(if(not #f)(for-loop_43 rest_16)(values))))"
+"(if(not #f)(for-loop_44 rest_16)(values))))"
 "(values))))))"
-" for-loop_43)"
+" for-loop_44)"
 " lst_38)))"
 "(void)))"
 "(void))))))"
 "(define-values"
 "(scopes-register-reachable)"
-"(lambda(scopes_7 v_78 get-reachable-scopes_1 reach_3 register-trigger_1)"
+"(lambda(scopes_7 v_79 get-reachable-scopes_1 reach_3 register-trigger_1)"
 "(begin"
 "(let-values(((reachable-scopes_2)(get-reachable-scopes_1)))"
 "(if(subset? scopes_7 reachable-scopes_2)"
-"(let-values()(reach_3 v_78))"
+"(let-values()(reach_3 v_79))"
 "(let-values()"
 "(let-values(((pending-scopes_0)"
-"(let-values(((ht_40) scopes_7))"
+"(let-values(((ht_39) scopes_7))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
-"(let-values()(check-in-immutable-hash-keys ht_40)))"
-"((letrec-values(((for-loop_44)"
-"(lambda(table_56 i_56)"
+"(let-values()(check-in-immutable-hash-keys ht_39)))"
+"((letrec-values(((for-loop_45)"
+"(lambda(table_57 i_59)"
 "(begin"
 " 'for-loop"
-"(if i_56"
+"(if i_59"
 "(let-values(((sc_0)"
-"(unsafe-immutable-hash-iterate-key ht_40 i_56)))"
-"(let-values(((table_57)"
-"(let-values(((table_58) table_56))"
-"(if(let-values(((or-part_93)"
+"(unsafe-immutable-hash-iterate-key ht_39 i_59)))"
+"(let-values(((table_58)"
+"(let-values(((table_59) table_57))"
+"(if(let-values(((or-part_96)"
 "(set-member?"
 " reachable-scopes_2"
 " sc_0)))"
-"(if or-part_93"
-" or-part_93"
+"(if or-part_96"
+" or-part_96"
 "(implicitly-reachable? sc_0)))"
-" table_58"
-"(let-values(((table_59) table_58))"
-"(let-values(((table_60)"
+" table_59"
+"(let-values(((table_60) table_59))"
+"(let-values(((table_61)"
 "(let-values()"
 "(let-values(((key_22"
 " val_13)"
@@ -7556,19 +7500,19 @@ static const char *startup_source =
 " sc_0)"
 " #t))))"
 "(hash-set"
-" table_59"
+" table_60"
 " key_22"
 " val_13)))))"
-"(values table_60)))))))"
+"(values table_61)))))))"
 "(if(not #f)"
-"(for-loop_44"
-" table_57"
-"(unsafe-immutable-hash-iterate-next ht_40 i_56))"
-" table_57)))"
-" table_56)))))"
-" for-loop_44)"
+"(for-loop_45"
+" table_58"
+"(unsafe-immutable-hash-iterate-next ht_39 i_59))"
+" table_58)))"
+" table_57)))))"
+" for-loop_45)"
 " '#hasheq()"
-"(unsafe-immutable-hash-iterate-first ht_40))))))"
+"(unsafe-immutable-hash-iterate-first ht_39))))))"
 "(let-values(((check-trigger_0)"
 "(lambda(reach_4)"
 "(begin"
@@ -7576,21 +7520,21 @@ static const char *startup_source =
 "(if(zero?(hash-count pending-scopes_0))"
 "(let-values()"
 "(begin"
-"(reach_4 v_78)"
-"(let-values(((ht_41) scopes_7))"
+"(reach_4 v_79)"
+"(let-values(((ht_40) scopes_7))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
-"(let-values()(check-in-immutable-hash-keys ht_41)))"
-"((letrec-values(((for-loop_45)"
-"(lambda(i_57)"
+"(let-values()(check-in-immutable-hash-keys ht_40)))"
+"((letrec-values(((for-loop_46)"
+"(lambda(i_7)"
 "(begin"
 " 'for-loop"
-"(if i_57"
+"(if i_7"
 "(let-values(((sc_1)"
 "(unsafe-immutable-hash-iterate-key"
-" ht_41"
-" i_57)))"
+" ht_40"
+" i_7)))"
 "(let-values((()"
 "(let-values()"
 "(let-values((()"
@@ -7606,28 +7550,26 @@ static const char *startup_source =
 "(values)))))"
 "(values)))))"
 "(if(not #f)"
-"(for-loop_45"
-"(unsafe-immutable-hash-iterate-next"
-" ht_41"
-" i_57))"
+"(for-loop_46"
+"(unsafe-immutable-hash-iterate-next ht_40 i_7))"
 "(values))))"
 "(values))))))"
-" for-loop_45)"
-"(unsafe-immutable-hash-iterate-first ht_41))))"
+" for-loop_46)"
+"(unsafe-immutable-hash-iterate-first ht_40))))"
 "(void)))"
 "(void))))))"
 "(begin"
-"(let-values(((ht_42) pending-scopes_0))"
+"(let-values(((ht_41) pending-scopes_0))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
-"(let-values()(check-in-immutable-hash-keys ht_42)))"
-"((letrec-values(((for-loop_46)"
-"(lambda(i_58)"
+"(let-values()(check-in-immutable-hash-keys ht_41)))"
+"((letrec-values(((for-loop_47)"
+"(lambda(i_60)"
 "(begin"
 " 'for-loop"
-"(if i_58"
-"(let-values(((sc_2)(unsafe-immutable-hash-iterate-key ht_42 i_58)))"
+"(if i_60"
+"(let-values(((sc_2)(unsafe-immutable-hash-iterate-key ht_41 i_60)))"
 "(let-values((()"
 "(let-values()"
 "(let-values((()"
@@ -7646,11 +7588,11 @@ static const char *startup_source =
 "(values)))))"
 "(values)))))"
 "(if(not #f)"
-"(for-loop_46(unsafe-immutable-hash-iterate-next ht_42 i_58))"
+"(for-loop_47(unsafe-immutable-hash-iterate-next ht_41 i_60))"
 "(values))))"
 "(values))))))"
-" for-loop_46)"
-"(unsafe-immutable-hash-iterate-first ht_42))))"
+" for-loop_47)"
+"(unsafe-immutable-hash-iterate-first ht_41))))"
 "(void)"
 "(check-trigger_0 reach_3))))))))))"
 "(define-values"
@@ -7658,27 +7600,27 @@ static const char *startup_source =
 "(let-values()"
 "(let-values()"
 "(case-lambda"
-"((s_71 key_23)"
+"((s_72 key_23)"
 "(begin"
 " 'syntax-property"
 "(let-values((()"
 "(begin"
-"(if(syntax?$1 s_71)"
-"(void)"
-"                            (let-values () (raise-argument-error 'syntax-property \"syntax?\" s_71)))"
-"(values))))"
-"(let-values(((v_67)(hash-ref(syntax-props s_71) key_23 #f)))(plain-property-value v_67)))))"
-"((s_72 key_24 val_14)"
-"(let-values((()"
-"(begin"
 "(if(syntax?$1 s_72)"
 "(void)"
-"                          (let-values () (raise-argument-error 'syntax-property \"syntax?\" s_72)))"
+"                            (let-values () (raise-argument-error 'syntax-property \"syntax?\" s_72)))"
+"(values))))"
+"(let-values(((v_68)(hash-ref(syntax-props s_72) key_23 #f)))(plain-property-value v_68)))))"
+"((s_73 key_24 val_14)"
+"(let-values((()"
+"(begin"
+"(if(syntax?$1 s_73)"
+"(void)"
+"                          (let-values () (raise-argument-error 'syntax-property \"syntax?\" s_73)))"
 "(values))))"
 "(let-values(((pval_0)(if(eq? key_24 'paren-shape)(preserved-property-value1.1 val_14) val_14)))"
-"(let-values(((the-struct_3) s_72))"
+"(let-values(((the-struct_3) s_73))"
 "(if(syntax?$1 the-struct_3)"
-"(let-values(((props2_0)(hash-set(syntax-props s_72) key_24 pval_0)))"
+"(let-values(((props2_0)(hash-set(syntax-props s_73) key_24 pval_0)))"
 "(syntax1.1"
 "(syntax-content the-struct_3)"
 "(syntax-scopes the-struct_3)"
@@ -7689,12 +7631,12 @@ static const char *startup_source =
 " props2_0"
 "(syntax-inspector the-struct_3)))"
 "                (raise-argument-error 'struct-copy \"syntax?\" the-struct_3))))))"
-"((s_73 key_25 val_15 preserved?_0)"
+"((s_74 key_25 val_15 preserved?_0)"
 "(let-values((()"
 "(begin"
-"(if(syntax?$1 s_73)"
+"(if(syntax?$1 s_74)"
 "(void)"
-"                          (let-values () (raise-argument-error 'syntax-property \"syntax?\" s_73)))"
+"                          (let-values () (raise-argument-error 'syntax-property \"syntax?\" s_74)))"
 "(values))))"
 "(let-values((()"
 "(begin"
@@ -7713,9 +7655,9 @@ static const char *startup_source =
 "(void))"
 "(values))))"
 "(let-values(((pval_1)(if preserved?_0(preserved-property-value1.1 val_15) val_15)))"
-"(let-values(((the-struct_4) s_73))"
+"(let-values(((the-struct_4) s_74))"
 "(if(syntax?$1 the-struct_4)"
-"(let-values(((props3_0)(hash-set(syntax-props s_73) key_25 pval_1)))"
+"(let-values(((props3_0)(hash-set(syntax-props s_74) key_25 pval_1)))"
 "(syntax1.1"
 "(syntax-content the-struct_4)"
 "(syntax-scopes the-struct_4)"
@@ -7728,20 +7670,20 @@ static const char *startup_source =
 "                  (raise-argument-error 'struct-copy \"syntax?\" the-struct_4)))))))))))"
 "(define-values"
 "(1/syntax-property-preserved?)"
-"(lambda(s_74 key_26)"
+"(lambda(s_75 key_26)"
 "(begin"
 " 'syntax-property-preserved?"
 "(let-values()"
 "(let-values()"
 "(begin"
-"(if(syntax?$1 s_74)"
+"(if(syntax?$1 s_75)"
 "(void)"
-"              (let-values () (raise-argument-error 'syntax-property-preserved? \"syntax?\" s_74)))"
+"              (let-values () (raise-argument-error 'syntax-property-preserved? \"syntax?\" s_75)))"
 "(if(if(symbol? key_26)(symbol-interned? key_26) #f)"
 "(void)"
 "(let-values()"
 "                (raise-argument-error 'syntax-property-preserved? \"(and/c symbol? symbol-interned?)\" key_26)))"
-"(preserved-property-value?(hash-ref(syntax-props s_74) key_26 #f))))))))"
+"(preserved-property-value?(hash-ref(syntax-props s_75) key_26 #f))))))))"
 "(define-values"
 "(1/syntax-property-symbol-keys)"
 "(lambda(s_10)"
@@ -7754,18 +7696,18 @@ static const char *startup_source =
 "(void)"
 "              (let-values () (raise-argument-error 'syntax-property-symbol-keys \"syntax\" s_10)))"
 "(reverse$1"
-"(let-values(((ht_43)(syntax-props s_10)))"
+"(let-values(((ht_42)(syntax-props s_10)))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
-"(let-values()(check-in-immutable-hash ht_43)))"
-"((letrec-values(((for-loop_47)"
-"(lambda(fold-var_26 i_59)"
+"(let-values()(check-in-immutable-hash ht_42)))"
+"((letrec-values(((for-loop_48)"
+"(lambda(fold-var_26 i_61)"
 "(begin"
 " 'for-loop"
-"(if i_59"
+"(if i_61"
 "(let-values(((k_16 v_30)"
-"(unsafe-immutable-hash-iterate-key+value ht_43 i_59)))"
+"(unsafe-immutable-hash-iterate-key+value ht_42 i_61)))"
 "(let-values(((fold-var_27)"
 "(let-values(((fold-var_28) fold-var_26))"
 "(if(if(symbol? k_16)(symbol-interned? k_16) #f)"
@@ -7778,25 +7720,25 @@ static const char *startup_source =
 "(values fold-var_30)))"
 " fold-var_28))))"
 "(if(not #f)"
-"(for-loop_47 fold-var_27(unsafe-immutable-hash-iterate-next ht_43 i_59))"
+"(for-loop_48 fold-var_27(unsafe-immutable-hash-iterate-next ht_42 i_61))"
 " fold-var_27)))"
 " fold-var_26)))))"
-" for-loop_47)"
+" for-loop_48)"
 " null"
-"(unsafe-immutable-hash-iterate-first ht_43)))))))))))"
+"(unsafe-immutable-hash-iterate-first ht_42)))))))))))"
 "(define-values"
 "(1/syntax-property-remove)"
-"(lambda(s_75 key_27)"
+"(lambda(s_76 key_27)"
 "(begin"
 " 'syntax-property-remove"
 "(let-values()"
 "(let-values()"
 "(begin"
-"            (if (syntax?$1 s_75) (void) (let-values () (raise-argument-error 'syntax-property-remove \"syntax?\" s_75)))"
-"(if(hash-ref(syntax-props s_75) key_27 #f)"
-"(let-values(((the-struct_5) s_75))"
+"            (if (syntax?$1 s_76) (void) (let-values () (raise-argument-error 'syntax-property-remove \"syntax?\" s_76)))"
+"(if(hash-ref(syntax-props s_76) key_27 #f)"
+"(let-values(((the-struct_5) s_76))"
 "(if(syntax?$1 the-struct_5)"
-"(let-values(((props7_0)(hash-remove(syntax-props s_75) key_27)))"
+"(let-values(((props7_0)(hash-remove(syntax-props s_76) key_27)))"
 "(syntax1.1"
 "(syntax-content the-struct_5)"
 "(syntax-scopes the-struct_5)"
@@ -7807,13 +7749,13 @@ static const char *startup_source =
 " props7_0"
 "(syntax-inspector the-struct_5)))"
 "                  (raise-argument-error 'struct-copy \"syntax?\" the-struct_5)))"
-" s_75)))))))"
+" s_76)))))))"
 "(define-values"
 "(taint-content)"
 "(lambda(d_2)"
 "(begin"
-"(let-values(((s_73) d_2)"
-"((f_27)(lambda(tail?_16 x_27)(begin 'f x_27)))"
+"(let-values(((s_74) d_2)"
+"((f_27)(lambda(tail?_16 x_28)(begin 'f x_28)))"
 "((s->_1)"
 "(lambda(sub-s_0)"
 "(begin"
@@ -7824,25 +7766,25 @@ static const char *startup_source =
 "(let-values(((stx_0) sub-s_0))"
 "(let-values(((the-struct_6) stx_0))"
 "(if(syntax?$1 the-struct_6)"
-"(let-values(((scope-propagations+tamper6_0)"
-"(let-values(((t_17)"
+"(let-values(((scope-propagations+tamper5_0)"
+"(let-values(((t_18)"
 "(tamper-tainted-for-content(syntax-content sub-s_0)))"
 "((p_19)(syntax-scope-propagations+tamper stx_0)))"
 "(if(tamper? p_19)"
-" t_17"
-"((propagation-set-tamper-ref p_19) p_19 t_17)))))"
+" t_18"
+"((propagation-set-tamper-ref p_19) p_19 t_18)))))"
 "(syntax1.1"
 "(syntax-content the-struct_6)"
 "(syntax-scopes the-struct_6)"
 "(syntax-shifted-multi-scopes the-struct_6)"
-" scope-propagations+tamper6_0"
+" scope-propagations+tamper5_0"
 "(syntax-mpi-shifts the-struct_6)"
 "(syntax-srcloc the-struct_6)"
 "(syntax-props the-struct_6)"
 "(syntax-inspector the-struct_6)))"
 "                                  (raise-argument-error 'struct-copy \"syntax?\" the-struct_6)))))))))"
 "((seen_7) #f))"
-"(let-values(((s_76) s_73)"
+"(let-values(((s_77) s_74)"
 "((f_28) f_27)"
 "((gf_3)"
 "(lambda(tail?_17 v_30)"
@@ -7851,7 +7793,7 @@ static const char *startup_source =
 "(if(syntax?$1 v_30)(let-values()(s->_1 v_30))(let-values()(f_27 tail?_17 v_30))))))"
 "((seen_8) seen_7))"
 "((letrec-values(((loop_68)"
-"(lambda(tail?_18 s_77 prev-depth_3)"
+"(lambda(tail?_18 s_78 prev-depth_3)"
 "(begin"
 " 'loop"
 "(let-values(((depth_3)(fx+ 1 prev-depth_3)))"
@@ -7859,100 +7801,100 @@ static const char *startup_source =
 "(let-values()"
 "(datum-map-slow"
 " tail?_18"
-" s_77"
-"(lambda(tail?_19 s_78)(gf_3 tail?_19 s_78))"
+" s_78"
+"(lambda(tail?_19 s_79)(gf_3 tail?_19 s_79))"
 " seen_8))"
-"(if(null? s_77)"
-"(let-values()(f_28 tail?_18 s_77))"
-"(if(pair? s_77)"
+"(if(null? s_78)"
+"(let-values()(f_28 tail?_18 s_78))"
+"(if(pair? s_78)"
 "(let-values()"
 "(f_28"
 " tail?_18"
-"(cons(loop_68 #f(car s_77) depth_3)(loop_68 #t(cdr s_77) depth_3))))"
-"(if(symbol? s_77)"
-"(let-values()(f_28 #f s_77))"
-"(if(boolean? s_77)"
-"(let-values()(f_28 #f s_77))"
-"(if(number? s_77)"
-"(let-values()(f_28 #f s_77))"
-"(if(let-values(((or-part_82)(vector? s_77)))"
-"(if or-part_82"
-" or-part_82"
-"(let-values(((or-part_83)(box? s_77)))"
-"(if or-part_83"
-" or-part_83"
-"(let-values(((or-part_84)(prefab-struct-key s_77)))"
-"(if or-part_84 or-part_84(hash? s_77)))))))"
+"(cons(loop_68 #f(car s_78) depth_3)(loop_68 #t(cdr s_78) depth_3))))"
+"(if(symbol? s_78)"
+"(let-values()(f_28 #f s_78))"
+"(if(boolean? s_78)"
+"(let-values()(f_28 #f s_78))"
+"(if(number? s_78)"
+"(let-values()(f_28 #f s_78))"
+"(if(let-values(((or-part_80)(vector? s_78)))"
+"(if or-part_80"
+" or-part_80"
+"(let-values(((or-part_81)(box? s_78)))"
+"(if or-part_81"
+" or-part_81"
+"(let-values(((or-part_82)(prefab-struct-key s_78)))"
+"(if or-part_82 or-part_82(hash? s_78)))))))"
 "(let-values()"
 "(datum-map-slow"
 " tail?_18"
-" s_77"
+" s_78"
 "(lambda(tail?_0 s_40)(gf_3 tail?_0 s_40))"
 " seen_8))"
-"(let-values()(gf_3 #f s_77))))))))))))))"
+"(let-values()(gf_3 #f s_78))))))))))))))"
 " loop_68)"
 " #f"
-" s_76"
+" s_77"
 " 0))))))"
 "(define-values(syntax-tainted?$1)(lambda(s_41)(begin 'syntax-tainted?(tamper-tainted?(syntax-tamper s_41)))))"
-"(define-values(syntax-clean?)(lambda(s_79)(begin(tamper-clean?(syntax-tamper s_79)))))"
+"(define-values(syntax-clean?)(lambda(s_80)(begin(tamper-clean?(syntax-tamper s_80)))))"
 "(define-values"
 "(syntax-arm$1)"
 "(lambda(s_6 insp_0)"
 "(begin"
 " 'syntax-arm"
-"(let-values(((t_18)(syntax-tamper s_6)))"
-"(if(tamper-tainted? t_18)"
+"(let-values(((t_19)(syntax-tamper s_6)))"
+"(if(tamper-tainted? t_19)"
 "(let-values() s_6)"
-"(if(if t_18"
-"(let-values(((or-part_94)(set-member? t_18 insp_0)))"
-"(if or-part_94"
-" or-part_94"
-"(let-values(((ht_44) t_18))"
+"(if(if t_19"
+"(let-values(((or-part_97)(set-member? t_19 insp_0)))"
+"(if or-part_97"
+" or-part_97"
+"(let-values(((ht_43) t_19))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
-"(let-values()(check-in-immutable-hash-keys ht_44)))"
-"((letrec-values(((for-loop_48)"
-"(lambda(result_32 i_60)"
+"(let-values()(check-in-immutable-hash-keys ht_43)))"
+"((letrec-values(((for-loop_49)"
+"(lambda(result_31 i_62)"
 "(begin"
 " 'for-loop"
-"(if i_60"
+"(if i_62"
 "(let-values(((already-insp_0)"
-"(unsafe-immutable-hash-iterate-key ht_44 i_60)))"
-"(let-values(((result_33)"
+"(unsafe-immutable-hash-iterate-key ht_43 i_62)))"
+"(let-values(((result_32)"
 "(let-values()"
-"(let-values(((result_34)"
+"(let-values(((result_33)"
 "(let-values()"
 "(let-values()"
 "(inspector-superior-or-same?"
 " already-insp_0"
 " insp_0)))))"
-"(values result_34)))))"
-"(if(if(not((lambda x_28 result_33) already-insp_0))(not #f) #f)"
-"(for-loop_48"
-" result_33"
-"(unsafe-immutable-hash-iterate-next ht_44 i_60))"
-" result_33)))"
-" result_32)))))"
-" for-loop_48)"
+"(values result_33)))))"
+"(if(if(not((lambda x_29 result_32) already-insp_0))(not #f) #f)"
+"(for-loop_49"
+" result_32"
+"(unsafe-immutable-hash-iterate-next ht_43 i_62))"
+" result_32)))"
+" result_31)))))"
+" for-loop_49)"
 " #f"
-"(unsafe-immutable-hash-iterate-first ht_44))))))"
+"(unsafe-immutable-hash-iterate-first ht_43))))))"
 " #f)"
 "(let-values() s_6)"
 "(let-values()"
 "(let-values(((stx_1) s_6))"
 "(let-values(((the-struct_7) stx_1))"
 "(if(syntax?$1 the-struct_7)"
-"(let-values(((scope-propagations+tamper7_0)"
-"(let-values(((t_19)(set-add(if t_18(remove-inferior t_18 insp_0)(seteq)) insp_0))"
+"(let-values(((scope-propagations+tamper6_0)"
+"(let-values(((t_20)(set-add(if t_19(remove-inferior t_19 insp_0)(seteq)) insp_0))"
 "((p_20)(syntax-scope-propagations+tamper stx_1)))"
-"(if(tamper? p_20) t_19((propagation-set-tamper-ref p_20) p_20 t_19)))))"
+"(if(tamper? p_20) t_20((propagation-set-tamper-ref p_20) p_20 t_20)))))"
 "(syntax1.1"
 "(syntax-content the-struct_7)"
 "(syntax-scopes the-struct_7)"
 "(syntax-shifted-multi-scopes the-struct_7)"
-" scope-propagations+tamper7_0"
+" scope-propagations+tamper6_0"
 "(syntax-mpi-shifts the-struct_7)"
 "(syntax-srcloc the-struct_7)"
 "(syntax-props the-struct_7)"
@@ -7960,208 +7902,208 @@ static const char *startup_source =
 "                    (raise-argument-error 'struct-copy \"syntax?\" the-struct_7)))))))))))"
 "(define-values"
 "(remove-inferior)"
-"(lambda(t_20 insp_1)"
+"(lambda(t_21 insp_1)"
 "(begin"
-"(let-values(((ht_45) t_20))"
+"(let-values(((ht_44) t_21))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
-"(let-values()(check-in-immutable-hash-keys ht_45)))"
-"((letrec-values(((for-loop_49)"
-"(lambda(table_61 i_61)"
+"(let-values()(check-in-immutable-hash-keys ht_44)))"
+"((letrec-values(((for-loop_50)"
+"(lambda(table_62 i_63)"
 "(begin"
 " 'for-loop"
-"(if i_61"
-"(let-values(((already-insp_1)(unsafe-immutable-hash-iterate-key ht_45 i_61)))"
-"(let-values(((table_62)"
-"(let-values(((table_63) table_61))"
+"(if i_63"
+"(let-values(((already-insp_1)(unsafe-immutable-hash-iterate-key ht_44 i_63)))"
+"(let-values(((table_63)"
+"(let-values(((table_64) table_62))"
 "(if(inspector-superior-or-same? insp_1 already-insp_1)"
-" table_63"
-"(let-values(((table_64) table_63))"
-"(let-values(((table_65)"
+" table_64"
+"(let-values(((table_65) table_64))"
+"(let-values(((table_66)"
 "(let-values()"
 "(let-values(((key_28 val_16)"
 "(let-values()"
 "(values"
 "(let-values() already-insp_1)"
 " #t))))"
-"(hash-set table_64 key_28 val_16)))))"
-"(values table_65)))))))"
+"(hash-set table_65 key_28 val_16)))))"
+"(values table_66)))))))"
 "(if(not #f)"
-"(for-loop_49 table_62(unsafe-immutable-hash-iterate-next ht_45 i_61))"
-" table_62)))"
-" table_61)))))"
-" for-loop_49)"
+"(for-loop_50 table_63(unsafe-immutable-hash-iterate-next ht_44 i_63))"
+" table_63)))"
+" table_62)))))"
+" for-loop_50)"
 " '#hasheq()"
-"(unsafe-immutable-hash-iterate-first ht_45)))))))"
+"(unsafe-immutable-hash-iterate-first ht_44)))))))"
 "(define-values"
 "(syntax-disarm$1)"
-"(let-values(((syntax-disarm4_0)"
-"(lambda(s3_0 insp1_0 insp2_0)"
+"(let-values(((syntax-disarm3_0)"
+"(lambda(s2_5 insp1_0)"
 "(begin"
-" 'syntax-disarm4"
-"(let-values(((s_80) s3_0))"
-"(let-values(((insp_2)(if insp2_0 insp1_0 #f)))"
+" 'syntax-disarm3"
+"(let-values(((s_81) s2_5))"
+"(let-values(((insp_2) insp1_0))"
 "(let-values()"
-"(let-values(((t_21)(syntax-tamper s_80)))"
-"(if(not(tamper-armed? t_21))"
-"(let-values() s_80)"
+"(let-values(((t_22)(syntax-tamper s_81)))"
+"(if(not(tamper-armed? t_22))"
+"(let-values() s_81)"
 "(if(not insp_2)"
 "(let-values()"
-"(let-values(((stx_2) s_80))"
+"(let-values(((stx_2) s_81))"
 "(let-values(((the-struct_8) stx_2))"
 "(if(syntax?$1 the-struct_8)"
-"(let-values(((scope-propagations+tamper8_0)"
-"(let-values(((t_22) #f)"
+"(let-values(((scope-propagations+tamper7_0)"
+"(let-values(((t_23) #f)"
 "((p_21)(syntax-scope-propagations+tamper stx_2)))"
 "(if(tamper? p_21)"
-" t_22"
-"((propagation-set-tamper-ref p_21) p_21 t_22)))))"
+" t_23"
+"((propagation-set-tamper-ref p_21) p_21 t_23)))))"
 "(syntax1.1"
 "(syntax-content the-struct_8)"
 "(syntax-scopes the-struct_8)"
 "(syntax-shifted-multi-scopes the-struct_8)"
-" scope-propagations+tamper8_0"
+" scope-propagations+tamper7_0"
 "(syntax-mpi-shifts the-struct_8)"
 "(syntax-srcloc the-struct_8)"
 "(syntax-props the-struct_8)"
 "(syntax-inspector the-struct_8)))"
 "                                        (raise-argument-error 'struct-copy \"syntax?\" the-struct_8)))))"
 "(let-values()"
-"(let-values(((new-t_1)(remove-inferior t_21 insp_2)))"
-"(let-values(((stx_3) s_80))"
+"(let-values(((new-t_1)(remove-inferior t_22 insp_2)))"
+"(let-values(((stx_3) s_81))"
 "(let-values(((the-struct_9) stx_3))"
 "(if(syntax?$1 the-struct_9)"
-"(let-values(((scope-propagations+tamper9_0)"
-"(let-values(((t_23)(if(not(set-empty? new-t_1)) new-t_1 #f))"
+"(let-values(((scope-propagations+tamper8_0)"
+"(let-values(((t_24)(if(not(set-empty? new-t_1)) new-t_1 #f))"
 "((p_22)(syntax-scope-propagations+tamper stx_3)))"
 "(if(tamper? p_22)"
-" t_23"
-"((propagation-set-tamper-ref p_22) p_22 t_23)))))"
+" t_24"
+"((propagation-set-tamper-ref p_22) p_22 t_24)))))"
 "(syntax1.1"
 "(syntax-content the-struct_9)"
 "(syntax-scopes the-struct_9)"
 "(syntax-shifted-multi-scopes the-struct_9)"
-" scope-propagations+tamper9_0"
+" scope-propagations+tamper8_0"
 "(syntax-mpi-shifts the-struct_9)"
 "(syntax-srcloc the-struct_9)"
 "(syntax-props the-struct_9)"
 "(syntax-inspector the-struct_9)))"
 "                                          (raise-argument-error 'struct-copy \"syntax?\" the-struct_9))))))))))))))))"
 "(case-lambda"
-"((s_81)(begin 'syntax-disarm(syntax-disarm4_0 s_81 #f #f)))"
-"((s_16 insp1_1)(syntax-disarm4_0 s_16 insp1_1 #t)))))"
+"((s_82)(begin 'syntax-disarm(syntax-disarm3_0 s_82 #f)))"
+"((s_83 insp1_1)(syntax-disarm3_0 s_83 insp1_1)))))"
 "(define-values"
 "(syntax-rearm$1)"
-"(lambda(s_18 from-s_0)"
+"(lambda(s_17 from-s_0)"
 "(begin"
 " 'syntax-rearm"
-"(let-values(((t_24)(syntax-tamper s_18)))"
-"(if(tamper-tainted? t_24)"
-"(let-values() s_18)"
+"(let-values(((t_25)(syntax-tamper s_17)))"
+"(if(tamper-tainted? t_25)"
+"(let-values() s_17)"
 "(let-values()"
 "(let-values(((from-t_0)(syntax-tamper from-s_0)))"
 "(if(tamper-clean? from-t_0)"
-"(let-values() s_18)"
+"(let-values() s_17)"
 "(if(tamper-tainted? from-t_0)"
 "(let-values()"
-"(let-values(((stx_4) s_18))"
+"(let-values(((stx_4) s_17))"
 "(let-values(((the-struct_10) stx_4))"
 "(if(syntax?$1 the-struct_10)"
-"(let-values(((scope-propagations+tamper10_0)"
-"(let-values(((t_25)(tamper-tainted-for-content(syntax-content s_18)))"
+"(let-values(((scope-propagations+tamper9_0)"
+"(let-values(((t_26)(tamper-tainted-for-content(syntax-content s_17)))"
 "((p_23)(syntax-scope-propagations+tamper stx_4)))"
-"(if(tamper? p_23) t_25((propagation-set-tamper-ref p_23) p_23 t_25)))))"
+"(if(tamper? p_23) t_26((propagation-set-tamper-ref p_23) p_23 t_26)))))"
 "(syntax1.1"
 "(syntax-content the-struct_10)"
 "(syntax-scopes the-struct_10)"
 "(syntax-shifted-multi-scopes the-struct_10)"
-" scope-propagations+tamper10_0"
+" scope-propagations+tamper9_0"
 "(syntax-mpi-shifts the-struct_10)"
 "(syntax-srcloc the-struct_10)"
 "(syntax-props the-struct_10)"
 "(syntax-inspector the-struct_10)))"
 "                          (raise-argument-error 'struct-copy \"syntax?\" the-struct_10)))))"
-"(if(tamper-clean? t_24)"
+"(if(tamper-clean? t_25)"
 "(let-values()"
-"(let-values(((stx_5) s_18))"
+"(let-values(((stx_5) s_17))"
 "(let-values(((the-struct_11) stx_5))"
 "(if(syntax?$1 the-struct_11)"
-"(let-values(((scope-propagations+tamper11_0)"
-"(let-values(((t_26) from-t_0)"
+"(let-values(((scope-propagations+tamper10_0)"
+"(let-values(((t_27) from-t_0)"
 "((p_24)(syntax-scope-propagations+tamper stx_5)))"
-"(if(tamper? p_24) t_26((propagation-set-tamper-ref p_24) p_24 t_26)))))"
+"(if(tamper? p_24) t_27((propagation-set-tamper-ref p_24) p_24 t_27)))))"
 "(syntax1.1"
 "(syntax-content the-struct_11)"
 "(syntax-scopes the-struct_11)"
 "(syntax-shifted-multi-scopes the-struct_11)"
-" scope-propagations+tamper11_0"
+" scope-propagations+tamper10_0"
 "(syntax-mpi-shifts the-struct_11)"
 "(syntax-srcloc the-struct_11)"
 "(syntax-props the-struct_11)"
 "(syntax-inspector the-struct_11)))"
 "                            (raise-argument-error 'struct-copy \"syntax?\" the-struct_11)))))"
 "(let-values()"
-"(let-values(((stx_6) s_18))"
+"(let-values(((stx_6) s_17))"
 "(let-values(((the-struct_12) stx_6))"
 "(if(syntax?$1 the-struct_12)"
-"(let-values(((scope-propagations+tamper12_0)"
-"(let-values(((t_27)"
-"(let-values(((ht_46) from-t_0))"
+"(let-values(((scope-propagations+tamper11_0)"
+"(let-values(((t_28)"
+"(let-values(((ht_16) from-t_0))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
-"(let-values()(check-in-immutable-hash-keys ht_46)))"
-"((letrec-values(((for-loop_50)"
-"(lambda(t_28 i_62)"
+"(let-values()(check-in-immutable-hash-keys ht_16)))"
+"((letrec-values(((for-loop_2)"
+"(lambda(t_29 i_21)"
 "(begin"
 " 'for-loop"
-"(if i_62"
+"(if i_21"
 "(let-values(((from-i_0)"
 "(unsafe-immutable-hash-iterate-key"
-" ht_46"
-" i_62)))"
-"(let-values(((t_3)"
-"(let-values(((t_29)"
-" t_28))"
+" ht_16"
+" i_21)))"
 "(let-values(((t_30)"
+"(let-values(((t_31)"
+" t_29))"
+"(let-values(((t_32)"
 "(let-values()"
 "(if(set-member?"
-" t_29"
+" t_31"
 " from-i_0)"
 "(let-values()"
-" t_29)"
+" t_31)"
 "(if(any-superior?"
-" t_29"
+" t_31"
 " from-i_0)"
 "(let-values()"
-" t_29)"
+" t_31)"
 "(let-values()"
 "(set-add"
 "(remove-inferior"
-" t_29"
+" t_31"
 " from-i_0)"
 " from-i_0)))))))"
 "(values"
-" t_30)))))"
+" t_32)))))"
 "(if(not #f)"
-"(for-loop_50"
-" t_3"
+"(for-loop_2"
+" t_30"
 "(unsafe-immutable-hash-iterate-next"
-" ht_46"
-" i_62))"
-" t_3)))"
-" t_28)))))"
-" for-loop_50)"
-" t_24"
-"(unsafe-immutable-hash-iterate-first ht_46)))))"
-"((p_11)(syntax-scope-propagations+tamper stx_6)))"
-"(if(tamper? p_11) t_27((propagation-set-tamper-ref p_11) p_11 t_27)))))"
+" ht_16"
+" i_21))"
+" t_30)))"
+" t_29)))))"
+" for-loop_2)"
+" t_25"
+"(unsafe-immutable-hash-iterate-first ht_16)))))"
+"((p_18)(syntax-scope-propagations+tamper stx_6)))"
+"(if(tamper? p_18) t_28((propagation-set-tamper-ref p_18) p_18 t_28)))))"
 "(syntax1.1"
 "(syntax-content the-struct_12)"
 "(syntax-scopes the-struct_12)"
 "(syntax-shifted-multi-scopes the-struct_12)"
-" scope-propagations+tamper12_0"
+" scope-propagations+tamper11_0"
 "(syntax-mpi-shifts the-struct_12)"
 "(syntax-srcloc the-struct_12)"
 "(syntax-props the-struct_12)"
@@ -8169,23 +8111,23 @@ static const char *startup_source =
 "                            (raise-argument-error 'struct-copy \"syntax?\" the-struct_12)))))))))))))))"
 "(define-values"
 "(syntax-taint$1)"
-"(lambda(s_82)"
+"(lambda(s_70)"
 "(begin"
 " 'syntax-taint"
-"(if(tamper-tainted?(syntax-tamper s_82))"
-" s_82"
-"(let-values(((stx_7) s_82))"
+"(if(tamper-tainted?(syntax-tamper s_70))"
+" s_70"
+"(let-values(((stx_7) s_70))"
 "(let-values(((the-struct_13) stx_7))"
 "(if(syntax?$1 the-struct_13)"
-"(let-values(((scope-propagations+tamper13_0)"
-"(let-values(((t_31)(tamper-tainted-for-content(syntax-content s_82)))"
+"(let-values(((scope-propagations+tamper12_0)"
+"(let-values(((t_33)(tamper-tainted-for-content(syntax-content s_70)))"
 "((p_25)(syntax-scope-propagations+tamper stx_7)))"
-"(if(tamper? p_25) t_31((propagation-set-tamper-ref p_25) p_25 t_31)))))"
+"(if(tamper? p_25) t_33((propagation-set-tamper-ref p_25) p_25 t_33)))))"
 "(syntax1.1"
 "(syntax-content the-struct_13)"
 "(syntax-scopes the-struct_13)"
 "(syntax-shifted-multi-scopes the-struct_13)"
-" scope-propagations+tamper13_0"
+" scope-propagations+tamper12_0"
 "(syntax-mpi-shifts the-struct_13)"
 "(syntax-srcloc the-struct_13)"
 "(syntax-props the-struct_13)"
@@ -8193,38 +8135,38 @@ static const char *startup_source =
 "              (raise-argument-error 'struct-copy \"syntax?\" the-struct_13))))))))"
 "(define-values"
 "(any-superior?)"
-"(lambda(t_32 from-i_1)"
+"(lambda(t_5 from-i_1)"
 "(begin"
-"(let-values(((ht_47) t_32))"
+"(let-values(((ht_45) t_5))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
-"(let-values()(check-in-immutable-hash-keys ht_47)))"
+"(let-values()(check-in-immutable-hash-keys ht_45)))"
 "((letrec-values(((for-loop_51)"
-"(lambda(result_35 i_63)"
+"(lambda(result_34 i_64)"
 "(begin"
 " 'for-loop"
-"(if i_63"
-"(let-values(((i_64)(unsafe-immutable-hash-iterate-key ht_47 i_63)))"
+"(if i_64"
+"(let-values(((i_65)(unsafe-immutable-hash-iterate-key ht_45 i_64)))"
+"(let-values(((result_35)"
+"(let-values()"
 "(let-values(((result_36)"
 "(let-values()"
-"(let-values(((result_37)"
 "(let-values()"
-"(let-values()"
-"(inspector-superior-or-same? i_64 from-i_1)))))"
-"(values result_37)))))"
-"(if(if(not((lambda x_29 result_36) i_64))(not #f) #f)"
-"(for-loop_51 result_36(unsafe-immutable-hash-iterate-next ht_47 i_63))"
-" result_36)))"
-" result_35)))))"
+"(inspector-superior-or-same? i_65 from-i_1)))))"
+"(values result_36)))))"
+"(if(if(not((lambda x_30 result_35) i_65))(not #f) #f)"
+"(for-loop_51 result_35(unsafe-immutable-hash-iterate-next ht_45 i_64))"
+" result_35)))"
+" result_34)))))"
 " for-loop_51)"
 " #f"
-"(unsafe-immutable-hash-iterate-first ht_47)))))))"
+"(unsafe-immutable-hash-iterate-first ht_45)))))))"
 "(define-values"
 "(inspector-superior-or-same?)"
-"(lambda(sup-i_0 i_46)"
+"(lambda(sup-i_0 i_66)"
 "(begin"
-"(let-values(((or-part_95)(eq? sup-i_0 i_46)))(if or-part_95 or-part_95(inspector-superior? sup-i_0 i_46))))))"
+"(let-values(((or-part_98)(eq? sup-i_0 i_66)))(if or-part_98 or-part_98(inspector-superior? sup-i_0 i_66))))))"
 "(define-values"
 "(struct:fallback fallback1.1 fallback? fallback-search-list)"
 "(let-values(((struct:_0 make-_0 ?_0 -ref_0 -set!_0)"
@@ -8331,10 +8273,10 @@ static const char *startup_source =
 "(begin"
 "(let-values(((c_15)(weak-box-value(unbox* cache))))"
 "(if c_15"
-"(let-values(((v_79)(hash-ref c_15 sym_13 #f)))"
-"(if v_79"
-"(if(eqv? phase_4(entry-phase v_79))"
-"(if(set=? scs_3(entry-scs v_79))(if(set=? smss_7(entry-smss v_79))(entry-binding v_79) #f) #f)"
+"(let-values(((v_80)(hash-ref c_15 sym_13 #f)))"
+"(if v_80"
+"(if(eqv? phase_4(entry-phase v_80))"
+"(if(set=? scs_3(entry-scs v_80))(if(set=? smss_7(entry-smss v_80))(entry-binding v_80) #f) #f)"
 " #f)"
 " #f))"
 " #f)))))"
@@ -8399,14 +8341,14 @@ static const char *startup_source =
 "(begin"
 " #f"
 "((letrec-values(((for-loop_53)"
-"(lambda(result_24 pos_7)"
+"(lambda(result_23 pos_7)"
 "(begin"
 " 'for-loop"
 "(if(unsafe-fx< pos_7 len_9)"
 "(let-values(((e_14)(unsafe-vector-ref vec_13 pos_7)))"
-"(let-values(((result_38)"
+"(let-values(((result_37)"
 "(let-values()"
-"(let-values(((result_39)"
+"(let-values(((result_38)"
 "(let-values()"
 "(let-values()"
 "(if e_14"
@@ -8418,22 +8360,22 @@ static const char *startup_source =
 " #f)"
 " #f)"
 " #f)))))"
-"(values result_39)))))"
-"(if(if(not((lambda x_30 result_38) e_14))(not #f) #f)"
-"(for-loop_53 result_38(unsafe-fx+ 1 pos_7))"
-" result_38)))"
-" result_24)))))"
+"(values result_38)))))"
+"(if(if(not((lambda x_31 result_37) e_14))(not #f) #f)"
+"(for-loop_53 result_37(unsafe-fx+ 1 pos_7))"
+" result_37)))"
+" result_23)))))"
 " for-loop_53)"
 " #f"
 " 0)))))))"
 "(define-values"
 "(resolve+shift-cache-set!)"
-"(lambda(s_83 phase_7 b_19)"
+"(lambda(s_84 phase_7 b_19)"
 "(begin"
 "(let-values(((vec_20)(shifted-cache-vector)))"
 "(let-values(((p_26) shifted-cache-pos))"
 "(begin"
-"(vector*-set! vec_20 p_26(shifted-entry2.1 s_83 phase_7 b_19))"
+"(vector*-set! vec_20 p_26(shifted-entry2.1 s_84 phase_7 b_19))"
 "(set! shifted-cache-pos(fxand(fx+ 1 p_26)(fx- SHIFTED-CACHE-SIZE 1)))))))))"
 "(define-values(NUM-CACHE-SLOTS) 8)"
 "(define-values(cached-sets)(make-weak-box(make-vector NUM-CACHE-SLOTS #f)))"
@@ -8445,89 +8387,89 @@ static const char *startup_source =
 "(lambda(s_45)"
 "(begin"
 "(let-values(((vec_21)"
-"(let-values(((or-part_96)(weak-box-value cached-sets)))"
-"(if or-part_96"
-" or-part_96"
+"(let-values(((or-part_99)(weak-box-value cached-sets)))"
+"(if or-part_99"
+" or-part_99"
 "(let-values(((vec_22)(make-vector NUM-CACHE-SLOTS #f)))"
 "(begin(set! cached-sets(make-weak-box vec_22)) vec_22))))))"
-"(let-values(((or-part_97)"
+"(let-values(((or-part_100)"
 "(let-values(((vec_23 len_10)"
 "(let-values(((vec_24) vec_21))"
 "(begin(check-vector vec_24)(values vec_24(unsafe-vector-length vec_24))))))"
 "(begin"
 " #f"
 "((letrec-values(((for-loop_54)"
-"(lambda(result_40 pos_8)"
+"(lambda(result_39 pos_8)"
 "(begin"
 " 'for-loop"
 "(if(unsafe-fx< pos_8 len_10)"
-"(let-values(((s2_5)(unsafe-vector-ref vec_23 pos_8)))"
+"(let-values(((s2_6)(unsafe-vector-ref vec_23 pos_8)))"
+"(let-values(((result_40)"
+"(let-values()"
 "(let-values(((result_35)"
 "(let-values()"
-"(let-values(((result_41)"
 "(let-values()"
-"(let-values()"
-"(if s2_5"
-"(if(set=? s_45 s2_5) s2_5 #f)"
+"(if s2_6"
+"(if(set=? s_45 s2_6) s2_6 #f)"
 " #f)))))"
-"(values result_41)))))"
-"(if(if(not((lambda x_31 result_35) s2_5))(not #f) #f)"
-"(for-loop_54 result_35(unsafe-fx+ 1 pos_8))"
-" result_35)))"
-" result_40)))))"
+"(values result_35)))))"
+"(if(if(not((lambda x_32 result_40) s2_6))(not #f) #f)"
+"(for-loop_54 result_40(unsafe-fx+ 1 pos_8))"
+" result_40)))"
+" result_39)))))"
 " for-loop_54)"
 " #f"
 " 0)))))"
-"(if or-part_97"
-" or-part_97"
+"(if or-part_100"
+" or-part_100"
 "(begin"
 "(vector*-set! vec_21 cached-sets-pos s_45)"
 "(set! cached-sets-pos(fxand(fx+ 1 cached-sets-pos)(fx- NUM-CACHE-SLOTS 1)))"
 " s_45)))))))"
 "(define-values"
 "(cache-or-reuse-hash)"
-"(lambda(s_84)"
+"(lambda(s_85)"
 "(begin"
 "(let-values(((vec_25)"
-"(let-values(((or-part_98)(weak-box-value cached-hashes)))"
-"(if or-part_98"
-" or-part_98"
-"(let-values(((vec_11)(make-vector NUM-CACHE-SLOTS #f)))"
-"(begin(set! cached-hashes(make-weak-box vec_11)) vec_11))))))"
-"(let-values(((or-part_99)"
-"(let-values(((vec_26 len_11)"
-"(let-values(((vec_27) vec_25))"
-"(begin(check-vector vec_27)(values vec_27(unsafe-vector-length vec_27))))))"
+"(let-values(((or-part_101)(weak-box-value cached-hashes)))"
+"(if or-part_101"
+" or-part_101"
+"(let-values(((vec_26)(make-vector NUM-CACHE-SLOTS #f)))"
+"(begin(set! cached-hashes(make-weak-box vec_26)) vec_26))))))"
+"(let-values(((or-part_98)"
+"(let-values(((vec_27 len_11)"
+"(let-values(((vec_28) vec_25))"
+"(begin(check-vector vec_28)(values vec_28(unsafe-vector-length vec_28))))))"
 "(begin"
 " #f"
 "((letrec-values(((for-loop_55)"
-"(lambda(result_42 pos_2)"
+"(lambda(result_8 pos_9)"
 "(begin"
 " 'for-loop"
-"(if(unsafe-fx< pos_2 len_11)"
-"(let-values(((s2_6)(unsafe-vector-ref vec_26 pos_2)))"
-"(let-values(((result_43)"
+"(if(unsafe-fx< pos_9 len_11)"
+"(let-values(((s2_7)(unsafe-vector-ref vec_27 pos_9)))"
+"(let-values(((result_41)"
 "(let-values()"
-"(let-values(((result_44)"
+"(let-values(((result_42)"
 "(let-values()"
 "(let-values()"
-"(if s2_6"
-"(if(equal? s_84 s2_6) s2_6 #f)"
+"(if s2_7"
+"(if(equal? s_85 s2_7) s2_7 #f)"
 " #f)))))"
-"(values result_44)))))"
-"(if(if(not((lambda x_32 result_43) s2_6))(not #f) #f)"
-"(for-loop_55 result_43(unsafe-fx+ 1 pos_2))"
-" result_43)))"
-" result_42)))))"
+"(values result_42)))))"
+"(if(if(not((lambda x_16 result_41) s2_7))(not #f) #f)"
+"(for-loop_55 result_41(unsafe-fx+ 1 pos_9))"
+" result_41)))"
+" result_8)))))"
 " for-loop_55)"
 " #f"
 " 0)))))"
-"(if or-part_99"
-" or-part_99"
+"(if or-part_98"
+" or-part_98"
 "(begin"
-"(vector*-set! vec_25 cached-hashes-pos s_84)"
+"(vector*-set! vec_25 cached-hashes-pos s_85)"
 "(set! cached-hashes-pos(fxand(fx+ 1 cached-hashes-pos)(fx- NUM-CACHE-SLOTS 1)))"
-" s_84)))))))"
+" s_85)))))))"
 "(define-values"
 "(struct:scope scope1.1 scope? scope-id scope-kind scope-binding-table set-scope-binding-table!)"
 "(let-values(((struct:_23 make-_23 ?_23 -ref_23 -set!_23)"
@@ -8543,33 +8485,33 @@ static const char *startup_source =
 "(cons prop:authentic #t)"
 "(cons"
 " prop:scope-with-bindings"
-"(lambda(s_85 get-reachable-scopes_2 reach_6 register-trigger_2)"
+"(lambda(s_86 get-reachable-scopes_2 reach_6 register-trigger_2)"
 "(binding-table-register-reachable"
-"(scope-binding-table s_85)"
+"(scope-binding-table s_86)"
 " get-reachable-scopes_2"
 " reach_6"
 " register-trigger_2)))"
-"(cons prop:reach-scopes(lambda(s_86 reach_7)(void)))"
+"(cons prop:reach-scopes(lambda(s_87 reach_7)(void)))"
 "(cons"
 " prop:serialize-fill!"
-"(lambda(s_87 ser-push!_6 state_16)"
-"(if(binding-table-empty?(scope-binding-table s_87))"
+"(lambda(s_88 ser-push!_6 state_16)"
+"(if(binding-table-empty?(scope-binding-table s_88))"
 "(let-values()(ser-push!_6 'tag #f))"
 "(let-values()"
 "(begin"
 "(ser-push!_6 'tag '#:scope-fill!)"
-"(ser-push!_6(binding-table-prune-to-reachable(scope-binding-table s_87) state_16)))))))"
+"(ser-push!_6(binding-table-prune-to-reachable(scope-binding-table s_88) state_16)))))))"
 "(cons"
 " prop:serialize"
-"(lambda(s_88 ser-push!_7 state_17)"
+"(lambda(s_89 ser-push!_7 state_17)"
 "(begin"
-"(if(set-member?(serialize-state-reachable-scopes state_17) s_88)"
+"(if(set-member?(serialize-state-reachable-scopes state_17) s_89)"
 "(void)"
 "                             (let-values () (error \"internal error: found supposedly unreachable scope\")))"
-"(if(eq? s_88 top-level-common-scope)"
+"(if(eq? s_89 top-level-common-scope)"
 "(let-values()(ser-push!_7 'tag '#:scope))"
 "(let-values()"
-"(begin(ser-push!_7 'tag '#:scope+kind)(ser-push!_7(scope-kind s_88))))))))"
+"(begin(ser-push!_7 'tag '#:scope+kind)(ser-push!_7(scope-kind s_89))))))))"
 "(cons"
 " prop:custom-write"
 "(lambda(sc_3 port_6 mode_6)"
@@ -8597,7 +8539,7 @@ static const char *startup_source =
 "(case-lambda"
 "(()(begin top-level-common-scope))"
 "((kind_0)(scope1.1(new-deserialize-scope-id!) kind_0 empty-binding-table))))"
-"(define-values(deserialize-scope-fill!)(lambda(s_89 bt_5)(begin(set-scope-binding-table! s_89 bt_5))))"
+"(define-values(deserialize-scope-fill!)(lambda(s_90 bt_5)(begin(set-scope-binding-table! s_90 bt_5))))"
 "(define-values"
 "(struct:interned-scope interned-scope2.1 interned-scope? interned-scope-key)"
 "(let-values(((struct:_24 make-_24 ?_24 -ref_24 -set!_24)"
@@ -8613,13 +8555,13 @@ static const char *startup_source =
 "(cons prop:authentic #t)"
 "(cons"
 " prop:serialize"
-"(lambda(s_90 ser-push!_8 state_18)"
+"(lambda(s_91 ser-push!_8 state_18)"
 "(begin"
-"(if(set-member?(serialize-state-reachable-scopes state_18) s_90)"
+"(if(set-member?(serialize-state-reachable-scopes state_18) s_91)"
 "(void)"
 "                             (let-values () (error \"internal error: found supposedly unreachable scope\")))"
 "(ser-push!_8 'tag '#:interned-scope)"
-"(ser-push!_8(interned-scope-key s_90)))))"
+"(ser-push!_8(interned-scope-key s_91)))))"
 "(cons"
 " prop:custom-write"
 "(lambda(sc_4 port_7 mode_7)"
@@ -8661,17 +8603,17 @@ static const char *startup_source =
 " prop:scope-with-bindings"
 "(lambda(ms_0 get-reachable-scopes_3 reach_8 register-trigger_3)"
 "(begin"
-"(let-values(((ht_48)(multi-scope-scopes ms_0)))"
+"(let-values(((ht_46)(multi-scope-scopes ms_0)))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
-"(let-values()(check-in-hash-values ht_48)))"
+"(let-values()(check-in-hash-values ht_46)))"
 "((letrec-values(((for-loop_56)"
-"(lambda(i_64)"
+"(lambda(i_67)"
 "(begin"
 " 'for-loop"
-"(if i_64"
-"(let-values(((sc_5)(hash-iterate-value ht_48 i_64)))"
+"(if i_67"
+"(let-values(((sc_5)(hash-iterate-value ht_46 i_67)))"
 "(let-values((()"
 "(let-values()"
 "(let-values((()"
@@ -8687,13 +8629,13 @@ static const char *startup_source =
 "(values)))))"
 "(values)))))"
 "(if(not #f)"
-"(for-loop_56(hash-iterate-next ht_48 i_64))"
+"(for-loop_56(hash-iterate-next ht_46 i_67))"
 "(values))))"
 "(values))))))"
 " for-loop_56)"
-"(hash-iterate-first ht_48))))"
+"(hash-iterate-first ht_46))))"
 "(void))))"
-"(cons prop:reach-scopes(lambda(s_84 reach_9)(void)))"
+"(cons prop:reach-scopes(lambda(s_85 reach_9)(void)))"
 "(cons"
 " prop:serialize"
 "(lambda(ms_1 ser-push!_9 state_19)"
@@ -8701,24 +8643,24 @@ static const char *startup_source =
 "(let-values((()(begin(ser-push!_9(multi-scope-name ms_1))(values))))"
 "(let-values(((multi-scope-tables_0)(serialize-state-multi-scope-tables state_19)))"
 "(ser-push!_9"
-"(let-values(((or-part_100)"
+"(let-values(((or-part_102)"
 "(hash-ref multi-scope-tables_0(multi-scope-scopes ms_1) #f)))"
-"(if or-part_100"
-" or-part_100"
-"(let-values(((ht_49)(make-hasheqv)))"
+"(if or-part_102"
+" or-part_102"
+"(let-values(((ht_47)(make-hasheqv)))"
 "(begin"
-"(let-values(((ht_50)(multi-scope-scopes ms_1)))"
+"(let-values(((ht_48)(multi-scope-scopes ms_1)))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
-"(let-values()(check-in-hash ht_50)))"
+"(let-values()(check-in-hash ht_48)))"
 "((letrec-values(((for-loop_57)"
-"(lambda(i_65)"
+"(lambda(i_68)"
 "(begin"
 " 'for-loop"
-"(if i_65"
+"(if i_68"
 "(let-values(((phase_8 sc_6)"
-"(hash-iterate-key+value ht_50 i_65)))"
+"(hash-iterate-key+value ht_48 i_68)))"
 "(let-values((()"
 "(let-values()"
 "(let-values((()"
@@ -8731,21 +8673,21 @@ static const char *startup_source =
 " sc_6)"
 "(let-values()"
 "(hash-set!"
-" ht_49"
+" ht_47"
 " phase_8"
 " sc_6))"
 "(void)))"
 "(values)))))"
 "(values)))))"
 "(if(not #f)"
-"(for-loop_57(hash-iterate-next ht_50 i_65))"
+"(for-loop_57(hash-iterate-next ht_48 i_68))"
 "(values))))"
 "(values))))))"
 " for-loop_57)"
-"(hash-iterate-first ht_50))))"
+"(hash-iterate-first ht_48))))"
 "(void)"
-"(hash-set! multi-scope-tables_0(multi-scope-scopes ms_1) ht_49)"
-" ht_49)))))))))))"
+"(hash-set! multi-scope-tables_0(multi-scope-scopes ms_1) ht_47)"
+" ht_47)))))))))))"
 "(current-inspector)"
 " #f"
 " '(0 1 2 3 4)"
@@ -8784,21 +8726,21 @@ static const char *startup_source =
 "(list"
 "(cons prop:authentic #t)"
 "(cons prop:implicitly-reachable #t)"
-"(cons prop:reach-scopes(lambda(s_91 reach_10)(reach_10(representative-scope-owner s_91))))"
+"(cons prop:reach-scopes(lambda(s_92 reach_10)(reach_10(representative-scope-owner s_92))))"
 "(cons"
 " prop:serialize-fill!"
-"(lambda(s_92 ser-push!_10 state_20)"
+"(lambda(s_93 ser-push!_10 state_20)"
 "(begin"
 "(ser-push!_10 'tag '#:representative-scope-fill!)"
-"(ser-push!_10(binding-table-prune-to-reachable(scope-binding-table s_92) state_20))"
-"(ser-push!_10(representative-scope-owner s_92)))))"
+"(ser-push!_10(binding-table-prune-to-reachable(scope-binding-table s_93) state_20))"
+"(ser-push!_10(representative-scope-owner s_93)))))"
 "(cons"
 " prop:serialize"
-"(lambda(s_93 ser-push!_11 state_21)"
+"(lambda(s_94 ser-push!_11 state_21)"
 "(begin"
 "(ser-push!_11 'tag '#:representative-scope)"
-"(ser-push!_11(scope-kind s_93))"
-"(ser-push!_11(representative-scope-phase s_93)))))"
+"(ser-push!_11(scope-kind s_94))"
+"(ser-push!_11(representative-scope-phase s_94)))))"
 "(cons"
 " prop:custom-write"
 "(lambda(sc_7 port_8 mode_8)"
@@ -8830,11 +8772,11 @@ static const char *startup_source =
 "(define-values"
 "(deserialize-representative-scope)"
 "(lambda(kind_1 phase_9)"
-"(begin(let-values(((v_80)(representative-scope4.1(new-deserialize-scope-id!) kind_1 #f #f phase_9))) v_80))))"
+"(begin(let-values(((v_81)(representative-scope4.1(new-deserialize-scope-id!) kind_1 #f #f phase_9))) v_81))))"
 "(define-values"
 "(deserialize-representative-scope-fill!)"
-"(lambda(s_94 bt_6 owner_0)"
-"(begin(begin(deserialize-scope-fill! s_94 bt_6)(set-representative-scope-owner! s_94 owner_0)))))"
+"(lambda(s_95 bt_6 owner_0)"
+"(begin(begin(deserialize-scope-fill! s_95 bt_6)(set-representative-scope-owner! s_95 owner_0)))))"
 "(define-values"
 "(struct:shifted-multi-scope"
 " shifted-multi-scope5.1"
@@ -8893,9 +8835,9 @@ static const char *startup_source =
 "(lambda(boxed-table_0 key_29 make_0)"
 "(begin"
 " 'transaction-loop"
-"(let-values(((or-part_101)(hash-ref(unbox boxed-table_0) phase_11 #f)))"
-"(if or-part_101"
-" or-part_101"
+"(let-values(((or-part_103)(hash-ref(unbox boxed-table_0) phase_11 #f)))"
+"(if or-part_103"
+" or-part_103"
 "(let-values(((val_17)(make_0)))"
 "(let-values(((current_0)(unbox boxed-table_0)))"
 "(let-values(((next_3)(hash-set current_0 key_29 val_17)))"
@@ -8904,17 +8846,17 @@ static const char *startup_source =
 "(transaction-loop_0 boxed-table_0 key_29 make_0)))))))))))"
 "(if(phase? phase_11)"
 "(let-values()"
-"(let-values(((or-part_102)(hash-ref(unbox(multi-scope-shifted multi-scope_1)) phase_11 #f)))"
-"(if or-part_102"
-" or-part_102"
+"(let-values(((or-part_104)(hash-ref(unbox(multi-scope-shifted multi-scope_1)) phase_11 #f)))"
+"(if or-part_104"
+" or-part_104"
 "(transaction-loop_0"
 "(multi-scope-shifted multi-scope_1)"
 " phase_11"
 "(lambda()(shifted-multi-scope5.1 phase_11 multi-scope_1))))))"
 "(let-values()"
-"(let-values(((or-part_103)(hash-ref(unbox(multi-scope-label-shifted multi-scope_1)) phase_11 #f)))"
-"(if or-part_103"
-" or-part_103"
+"(let-values(((or-part_105)(hash-ref(unbox(multi-scope-label-shifted multi-scope_1)) phase_11 #f)))"
+"(if or-part_105"
+" or-part_105"
 "(transaction-loop_0"
 "(multi-scope-label-shifted multi-scope_1)"
 " phase_11"
@@ -8957,38 +8899,38 @@ static const char *startup_source =
 "(interned-scope2.1(-(new-scope-id!)) 'interned empty-binding-table sym_15))))))"
 "(call-as-atomic"
 "(lambda()"
-"(let-values(((or-part_104)(ephemeron-value(hash-ref! interned-scopes-table sym_15 make_1))))"
-"(if or-part_104"
-" or-part_104"
+"(let-values(((or-part_106)(ephemeron-value(hash-ref! interned-scopes-table sym_15 make_1))))"
+"(if or-part_106"
+" or-part_106"
 "(let-values(((new_1)(make_1)))"
 "(begin(hash-set! interned-scopes-table sym_15 new_1)(ephemeron-value new_1)))))))))))"
 "(define-values"
 "(new-multi-scope)"
-"(let-values(((new-multi-scope9_0)"
-"(lambda(name7_0 name8_0)"
+"(let-values(((new-multi-scope8_0)"
+"(lambda(name7_0)"
 "(begin"
-" 'new-multi-scope9"
-"(let-values(((name_16)(if name8_0 name7_0 #f)))"
+" 'new-multi-scope8"
+"(let-values(((name_16) name7_0))"
 "(let-values()"
 "(intern-shifted-multi-scope"
 " 0"
 "(multi-scope3.1(new-scope-id!) name_16(make-hasheqv)(box(hasheqv))(box(hash))))))))))"
-"(case-lambda(()(begin(new-multi-scope9_0 #f #f)))((name7_1)(new-multi-scope9_0 name7_1 #t)))))"
+"(case-lambda(()(begin(new-multi-scope8_0 #f)))((name7_1)(new-multi-scope8_0 name7_1)))))"
 "(define-values"
 "(multi-scope-to-scope-at-phase)"
 "(lambda(ms_2 phase_12)"
 "(begin"
-"(let-values(((or-part_105)(hash-ref(multi-scope-scopes ms_2) phase_12 #f)))"
-"(if or-part_105"
-" or-part_105"
-"(let-values(((s_95)"
+"(let-values(((or-part_107)(hash-ref(multi-scope-scopes ms_2) phase_12 #f)))"
+"(if or-part_107"
+" or-part_107"
+"(let-values(((s_96)"
 "(representative-scope4.1"
 "(if(deserialized-scope-id?(multi-scope-id ms_2))(new-deserialize-scope-id!)(new-scope-id!))"
 " 'module"
 " empty-binding-table"
 " ms_2"
 " phase_12)))"
-"(begin(hash-set!(multi-scope-scopes ms_2) phase_12 s_95) s_95)))))))"
+"(begin(hash-set!(multi-scope-scopes ms_2) phase_12 s_96) s_96)))))))"
 "(define-values(scope>?)(lambda(sc1_0 sc2_0)(begin(>(scope-id sc1_0)(scope-id sc2_0)))))"
 "(define-values(scope<?)(lambda(sc1_1 sc2_1)(begin(<(scope-id sc1_1)(scope-id sc2_1)))))"
 "(define-values"
@@ -9008,13 +8950,13 @@ static const char *startup_source =
 "(<(multi-scope-id ms1_0)(multi-scope-id ms2_0))))))))"
 "(define-values"
 "(syntax-e/no-taint)"
-"(lambda(s_96)"
+"(lambda(s_97)"
 "(begin"
-"(let-values(((prop_3)(syntax-scope-propagations+tamper s_96)))"
-"(if(let-values(((or-part_61)(propagation? prop_3)))"
-"(if or-part_61 or-part_61(tamper-needs-propagate? prop_3)))"
+"(let-values(((prop_3)(syntax-scope-propagations+tamper s_97)))"
+"(if(let-values(((or-part_108)(propagation? prop_3)))"
+"(if or-part_108 or-part_108(tamper-needs-propagate? prop_3)))"
 "(let-values(((new-content_0)"
-"(let-values(((s_97)(syntax-content s_96))"
+"(let-values(((s_98)(syntax-content s_97))"
 "((f_30)(lambda(tail?_20 x_33)(begin 'f x_33)))"
 "((s->_2)"
 "(lambda(sub-s_1)"
@@ -9023,23 +8965,23 @@ static const char *startup_source =
 "(if(propagation? prop_3)"
 "(let-values(((the-struct_14) sub-s_1))"
 "(if(syntax?$1 the-struct_14)"
-"(let-values(((scopes50_0)"
-"(propagation-apply prop_3(syntax-scopes sub-s_1) s_96))"
-"((shifted-multi-scopes51_0)"
+"(let-values(((scopes49_0)"
+"(propagation-apply prop_3(syntax-scopes sub-s_1) s_97))"
+"((shifted-multi-scopes50_0)"
 "(propagation-apply-shifted"
 " prop_3"
 "(syntax-shifted-multi-scopes sub-s_1)"
-" s_96))"
-"((mpi-shifts52_0)"
+" s_97))"
+"((mpi-shifts51_0)"
 "(propagation-apply-mpi-shifts"
 " prop_3"
 "(syntax-mpi-shifts sub-s_1)"
-" s_96))"
-"((inspector53_0)"
+" s_97))"
+"((inspector52_0)"
 "(propagation-apply-inspector"
 " prop_3"
 "(syntax-inspector sub-s_1)))"
-"((scope-propagations+tamper54_0)"
+"((scope-propagations+tamper53_0)"
 "(propagation-merge"
 "(syntax-content sub-s_1)"
 " prop_3"
@@ -9049,49 +8991,49 @@ static const char *startup_source =
 "(syntax-mpi-shifts sub-s_1))))"
 "(syntax1.1"
 "(syntax-content the-struct_14)"
-" scopes50_0"
-" shifted-multi-scopes51_0"
-" scope-propagations+tamper54_0"
-" mpi-shifts52_0"
+" scopes49_0"
+" shifted-multi-scopes50_0"
+" scope-propagations+tamper53_0"
+" mpi-shifts51_0"
 "(syntax-srcloc the-struct_14)"
 "(syntax-props the-struct_14)"
-" inspector53_0))"
+" inspector52_0))"
 "                                                (raise-argument-error 'struct-copy \"syntax?\" the-struct_14)))"
 "(let-values(((stx_8) sub-s_1))"
 "(let-values(((the-struct_15) stx_8))"
 "(if(syntax?$1 the-struct_15)"
-"(let-values(((scope-propagations+tamper55_0)"
-"(let-values(((t_33)"
+"(let-values(((scope-propagations+tamper54_0)"
+"(let-values(((t_34)"
 "(tamper-tainted-for-content"
 "(syntax-content sub-s_1)))"
 "((p_27)"
 "(syntax-scope-propagations+tamper stx_8)))"
 "(if(tamper? p_27)"
-" t_33"
-"((propagation-set-tamper-ref p_27) p_27 t_33)))))"
+" t_34"
+"((propagation-set-tamper-ref p_27) p_27 t_34)))))"
 "(syntax1.1"
 "(syntax-content the-struct_15)"
 "(syntax-scopes the-struct_15)"
 "(syntax-shifted-multi-scopes the-struct_15)"
-" scope-propagations+tamper55_0"
+" scope-propagations+tamper54_0"
 "(syntax-mpi-shifts the-struct_15)"
 "(syntax-srcloc the-struct_15)"
 "(syntax-props the-struct_15)"
 "(syntax-inspector the-struct_15)))"
 "                                                  (raise-argument-error 'struct-copy \"syntax?\" the-struct_15))))))))"
 "((seen_9) #f))"
-"(let-values(((s_98) s_97)"
+"(let-values(((s_99) s_98)"
 "((f_31) f_30)"
 "((gf_4)"
-"(lambda(tail?_21 v_81)"
+"(lambda(tail?_21 v_82)"
 "(begin"
 " 'gf"
-"(if(syntax?$1 v_81)"
-"(let-values()(s->_2 v_81))"
-"(let-values()(f_30 tail?_21 v_81))))))"
+"(if(syntax?$1 v_82)"
+"(let-values()(s->_2 v_82))"
+"(let-values()(f_30 tail?_21 v_82))))))"
 "((seen_10) seen_9))"
 "((letrec-values(((loop_69)"
-"(lambda(tail?_22 s_99 prev-depth_4)"
+"(lambda(tail?_22 s_100 prev-depth_4)"
 "(begin"
 " 'loop"
 "(let-values(((depth_4)(fx+ 1 prev-depth_4)))"
@@ -9099,64 +9041,64 @@ static const char *startup_source =
 "(let-values()"
 "(datum-map-slow"
 " tail?_22"
-" s_99"
-"(lambda(tail?_23 s_100)(gf_4 tail?_23 s_100))"
+" s_100"
+"(lambda(tail?_23 s_101)(gf_4 tail?_23 s_101))"
 " seen_10))"
-"(if(null? s_99)"
-"(let-values()(f_31 tail?_22 s_99))"
-"(if(pair? s_99)"
+"(if(null? s_100)"
+"(let-values()(f_31 tail?_22 s_100))"
+"(if(pair? s_100)"
 "(let-values()"
 "(f_31"
 " tail?_22"
 "(cons"
-"(loop_69 #f(car s_99) depth_4)"
-"(loop_69 #t(cdr s_99) depth_4))))"
-"(if(symbol? s_99)"
-"(let-values()(f_31 #f s_99))"
-"(if(boolean? s_99)"
-"(let-values()(f_31 #f s_99))"
-"(if(number? s_99)"
-"(let-values()(f_31 #f s_99))"
-"(if(let-values(((or-part_106)(vector? s_99)))"
-"(if or-part_106"
-" or-part_106"
-"(let-values(((or-part_107)(box? s_99)))"
-"(if or-part_107"
-" or-part_107"
-"(let-values(((or-part_108)"
-"(prefab-struct-key s_99)))"
-"(if or-part_108"
-" or-part_108"
-"(hash? s_99)))))))"
+"(loop_69 #f(car s_100) depth_4)"
+"(loop_69 #t(cdr s_100) depth_4))))"
+"(if(symbol? s_100)"
+"(let-values()(f_31 #f s_100))"
+"(if(boolean? s_100)"
+"(let-values()(f_31 #f s_100))"
+"(if(number? s_100)"
+"(let-values()(f_31 #f s_100))"
+"(if(let-values(((or-part_109)(vector? s_100)))"
+"(if or-part_109"
+" or-part_109"
+"(let-values(((or-part_110)(box? s_100)))"
+"(if or-part_110"
+" or-part_110"
+"(let-values(((or-part_111)"
+"(prefab-struct-key s_100)))"
+"(if or-part_111"
+" or-part_111"
+"(hash? s_100)))))))"
 "(let-values()"
 "(datum-map-slow"
 " tail?_22"
-" s_99"
-"(lambda(tail?_24 s_101)(gf_4 tail?_24 s_101))"
+" s_100"
+"(lambda(tail?_24 s_102)(gf_4 tail?_24 s_102))"
 " seen_10))"
-"(let-values()(gf_4 #f s_99))))))))))))))"
+"(let-values()(gf_4 #f s_100))))))))))))))"
 " loop_69)"
 " #f"
-" s_98"
+" s_99"
 " 0)))))"
 "(begin"
-"(set-syntax-content! s_96 new-content_0)"
+"(set-syntax-content! s_97 new-content_0)"
 "(set-syntax-scope-propagations+tamper!"
-" s_96"
+" s_97"
 "(tamper-propagated(if(propagation? prop_3)(propagation-tamper prop_3) prop_3)))"
 " new-content_0))"
-"(syntax-content s_96))))))"
+"(syntax-content s_97))))))"
 "(define-values"
 "(syntax-e$1)"
-"(lambda(s_102)"
+"(lambda(s_103)"
 "(begin"
 " 'syntax-e"
-"(let-values(((e_15)(syntax-content s_102)))"
+"(let-values(((e_15)(syntax-content s_103)))"
 "(if(symbol? e_15)"
 "(let-values() e_15)"
 "(let-values()"
-"(let-values(((content_6)(syntax-e/no-taint s_102)))"
-"(if(not(tamper-armed?(syntax-scope-propagations+tamper s_102)))"
+"(let-values(((content_6)(syntax-e/no-taint s_103)))"
+"(if(not(tamper-armed?(syntax-scope-propagations+tamper s_103)))"
 "(let-values() content_6)"
 "(if(datum-has-elements? content_6)"
 "(let-values()(taint-content content_6))"
@@ -9170,52 +9112,52 @@ static const char *startup_source =
 " sc_8))))"
 "(define-values"
 "(add-scope)"
-"(lambda(s_103 sc_9)"
+"(lambda(s_104 sc_9)"
 "(begin"
-"(let-values(((s_104) s_103)((sc_10)(generalize-scope sc_9))((op_0) set-add)((prop-op_0) propagation-add))"
+"(let-values(((s_105) s_104)((sc_10)(generalize-scope sc_9))((op_0) set-add)((prop-op_0) propagation-add))"
 "(if(shifted-multi-scope? sc_10)"
-"(let-values(((the-struct_16) s_104))"
+"(let-values(((the-struct_16) s_105))"
 "(if(syntax?$1 the-struct_16)"
-"(let-values(((shifted-multi-scopes56_0)"
+"(let-values(((shifted-multi-scopes55_0)"
 "(fallback-update-first"
-"(syntax-shifted-multi-scopes s_104)"
+"(syntax-shifted-multi-scopes s_105)"
 "(lambda(smss_9)(op_0(fallback-first smss_9) sc_10))))"
-"((scope-propagations+tamper57_0)"
-"(if(datum-has-elements?(syntax-content s_104))"
+"((scope-propagations+tamper56_0)"
+"(if(datum-has-elements?(syntax-content s_105))"
 "(prop-op_0"
-"(syntax-scope-propagations+tamper s_104)"
+"(syntax-scope-propagations+tamper s_105)"
 " sc_10"
-"(syntax-scopes s_104)"
-"(syntax-shifted-multi-scopes s_104)"
-"(syntax-mpi-shifts s_104))"
-"(syntax-scope-propagations+tamper s_104))))"
+"(syntax-scopes s_105)"
+"(syntax-shifted-multi-scopes s_105)"
+"(syntax-mpi-shifts s_105))"
+"(syntax-scope-propagations+tamper s_105))))"
 "(syntax1.1"
 "(syntax-content the-struct_16)"
 "(syntax-scopes the-struct_16)"
-" shifted-multi-scopes56_0"
-" scope-propagations+tamper57_0"
+" shifted-multi-scopes55_0"
+" scope-propagations+tamper56_0"
 "(syntax-mpi-shifts the-struct_16)"
 "(syntax-srcloc the-struct_16)"
 "(syntax-props the-struct_16)"
 "(syntax-inspector the-struct_16)))"
 "              (raise-argument-error 'struct-copy \"syntax?\" the-struct_16)))"
-"(let-values(((the-struct_17) s_104))"
+"(let-values(((the-struct_17) s_105))"
 "(if(syntax?$1 the-struct_17)"
-"(let-values(((scopes58_0)(op_0(syntax-scopes s_104) sc_10))"
-"((scope-propagations+tamper59_0)"
-"(if(datum-has-elements?(syntax-content s_104))"
+"(let-values(((scopes57_0)(op_0(syntax-scopes s_105) sc_10))"
+"((scope-propagations+tamper58_0)"
+"(if(datum-has-elements?(syntax-content s_105))"
 "(prop-op_0"
-"(syntax-scope-propagations+tamper s_104)"
+"(syntax-scope-propagations+tamper s_105)"
 " sc_10"
-"(syntax-scopes s_104)"
-"(syntax-shifted-multi-scopes s_104)"
-"(syntax-mpi-shifts s_104))"
-"(syntax-scope-propagations+tamper s_104))))"
+"(syntax-scopes s_105)"
+"(syntax-shifted-multi-scopes s_105)"
+"(syntax-mpi-shifts s_105))"
+"(syntax-scope-propagations+tamper s_105))))"
 "(syntax1.1"
 "(syntax-content the-struct_17)"
-" scopes58_0"
+" scopes57_0"
 "(syntax-shifted-multi-scopes the-struct_17)"
-" scope-propagations+tamper59_0"
+" scope-propagations+tamper58_0"
 "(syntax-mpi-shifts the-struct_17)"
 "(syntax-srcloc the-struct_17)"
 "(syntax-props the-struct_17)"
@@ -9223,77 +9165,77 @@ static const char *startup_source =
 "              (raise-argument-error 'struct-copy \"syntax?\" the-struct_17))))))))"
 "(define-values"
 "(add-scopes)"
-"(lambda(s_105 scs_5)"
+"(lambda(s_106 scs_5)"
 "(begin"
 "(let-values(((lst_42) scs_5))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_42)))"
 "((letrec-values(((for-loop_58)"
-"(lambda(s_106 lst_43)"
+"(lambda(s_107 lst_43)"
 "(begin"
 " 'for-loop"
 "(if(pair? lst_43)"
 "(let-values(((sc_11)(unsafe-car lst_43))((rest_18)(unsafe-cdr lst_43)))"
-"(let-values(((s_107)"
-"(let-values(((s_108) s_106))"
-"(let-values(((s_109)(let-values()(add-scope s_108 sc_11))))"
-"(values s_109)))))"
-"(if(not #f)(for-loop_58 s_107 rest_18) s_107)))"
-" s_106)))))"
+"(let-values(((s_108)"
+"(let-values(((s_109) s_107))"
+"(let-values(((s_110)(let-values()(add-scope s_109 sc_11))))"
+"(values s_110)))))"
+"(if(not #f)(for-loop_58 s_108 rest_18) s_108)))"
+" s_107)))))"
 " for-loop_58)"
-" s_105"
+" s_106"
 " lst_42))))))"
 "(define-values"
 "(remove-scope)"
-"(lambda(s_110 sc_12)"
+"(lambda(s_111 sc_12)"
 "(begin"
-"(let-values(((s_111) s_110)"
+"(let-values(((s_112) s_111)"
 "((sc_13)(generalize-scope sc_12))"
 "((op_1) set-remove)"
 "((prop-op_1) propagation-remove))"
 "(if(shifted-multi-scope? sc_13)"
-"(let-values(((the-struct_18) s_111))"
+"(let-values(((the-struct_18) s_112))"
 "(if(syntax?$1 the-struct_18)"
-"(let-values(((shifted-multi-scopes60_0)"
+"(let-values(((shifted-multi-scopes59_0)"
 "(fallback-update-first"
-"(syntax-shifted-multi-scopes s_111)"
+"(syntax-shifted-multi-scopes s_112)"
 "(lambda(smss_10)(op_1(fallback-first smss_10) sc_13))))"
-"((scope-propagations+tamper61_0)"
-"(if(datum-has-elements?(syntax-content s_111))"
+"((scope-propagations+tamper60_0)"
+"(if(datum-has-elements?(syntax-content s_112))"
 "(prop-op_1"
-"(syntax-scope-propagations+tamper s_111)"
+"(syntax-scope-propagations+tamper s_112)"
 " sc_13"
-"(syntax-scopes s_111)"
-"(syntax-shifted-multi-scopes s_111)"
-"(syntax-mpi-shifts s_111))"
-"(syntax-scope-propagations+tamper s_111))))"
+"(syntax-scopes s_112)"
+"(syntax-shifted-multi-scopes s_112)"
+"(syntax-mpi-shifts s_112))"
+"(syntax-scope-propagations+tamper s_112))))"
 "(syntax1.1"
 "(syntax-content the-struct_18)"
 "(syntax-scopes the-struct_18)"
-" shifted-multi-scopes60_0"
-" scope-propagations+tamper61_0"
+" shifted-multi-scopes59_0"
+" scope-propagations+tamper60_0"
 "(syntax-mpi-shifts the-struct_18)"
 "(syntax-srcloc the-struct_18)"
 "(syntax-props the-struct_18)"
 "(syntax-inspector the-struct_18)))"
 "              (raise-argument-error 'struct-copy \"syntax?\" the-struct_18)))"
-"(let-values(((the-struct_19) s_111))"
+"(let-values(((the-struct_19) s_112))"
 "(if(syntax?$1 the-struct_19)"
-"(let-values(((scopes62_0)(op_1(syntax-scopes s_111) sc_13))"
-"((scope-propagations+tamper63_0)"
-"(if(datum-has-elements?(syntax-content s_111))"
+"(let-values(((scopes61_0)(op_1(syntax-scopes s_112) sc_13))"
+"((scope-propagations+tamper62_0)"
+"(if(datum-has-elements?(syntax-content s_112))"
 "(prop-op_1"
-"(syntax-scope-propagations+tamper s_111)"
+"(syntax-scope-propagations+tamper s_112)"
 " sc_13"
-"(syntax-scopes s_111)"
-"(syntax-shifted-multi-scopes s_111)"
-"(syntax-mpi-shifts s_111))"
-"(syntax-scope-propagations+tamper s_111))))"
+"(syntax-scopes s_112)"
+"(syntax-shifted-multi-scopes s_112)"
+"(syntax-mpi-shifts s_112))"
+"(syntax-scope-propagations+tamper s_112))))"
 "(syntax1.1"
 "(syntax-content the-struct_19)"
-" scopes62_0"
+" scopes61_0"
 "(syntax-shifted-multi-scopes the-struct_19)"
-" scope-propagations+tamper63_0"
+" scope-propagations+tamper62_0"
 "(syntax-mpi-shifts the-struct_19)"
 "(syntax-srcloc the-struct_19)"
 "(syntax-props the-struct_19)"
@@ -9301,77 +9243,77 @@ static const char *startup_source =
 "              (raise-argument-error 'struct-copy \"syntax?\" the-struct_19))))))))"
 "(define-values"
 "(remove-scopes)"
-"(lambda(s_112 scs_6)"
+"(lambda(s_113 scs_6)"
 "(begin"
 "(let-values(((lst_44) scs_6))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_44)))"
 "((letrec-values(((for-loop_59)"
-"(lambda(s_113 lst_45)"
+"(lambda(s_114 lst_45)"
 "(begin"
 " 'for-loop"
 "(if(pair? lst_45)"
 "(let-values(((sc_14)(unsafe-car lst_45))((rest_19)(unsafe-cdr lst_45)))"
-"(let-values(((s_114)"
-"(let-values(((s_115) s_113))"
-"(let-values(((s_116)(let-values()(remove-scope s_115 sc_14))))"
-"(values s_116)))))"
-"(if(not #f)(for-loop_59 s_114 rest_19) s_114)))"
-" s_113)))))"
+"(let-values(((s_115)"
+"(let-values(((s_116) s_114))"
+"(let-values(((s_117)(let-values()(remove-scope s_116 sc_14))))"
+"(values s_117)))))"
+"(if(not #f)(for-loop_59 s_115 rest_19) s_115)))"
+" s_114)))))"
 " for-loop_59)"
-" s_112"
+" s_113"
 " lst_44))))))"
 "(define-values"
 "(set-flip)"
-"(lambda(s_117 e_16)(begin(if(set-member? s_117 e_16)(set-remove s_117 e_16)(set-add s_117 e_16)))))"
+"(lambda(s_118 e_16)(begin(if(set-member? s_118 e_16)(set-remove s_118 e_16)(set-add s_118 e_16)))))"
 "(define-values"
 "(flip-scope)"
-"(lambda(s_118 sc_15)"
+"(lambda(s_119 sc_15)"
 "(begin"
-"(let-values(((s_119) s_118)((sc_16)(generalize-scope sc_15))((op_2) set-flip)((prop-op_2) propagation-flip))"
+"(let-values(((s_120) s_119)((sc_16)(generalize-scope sc_15))((op_2) set-flip)((prop-op_2) propagation-flip))"
 "(if(shifted-multi-scope? sc_16)"
-"(let-values(((the-struct_20) s_119))"
+"(let-values(((the-struct_20) s_120))"
 "(if(syntax?$1 the-struct_20)"
-"(let-values(((shifted-multi-scopes64_0)"
+"(let-values(((shifted-multi-scopes63_0)"
 "(fallback-update-first"
-"(syntax-shifted-multi-scopes s_119)"
+"(syntax-shifted-multi-scopes s_120)"
 "(lambda(smss_11)(op_2(fallback-first smss_11) sc_16))))"
-"((scope-propagations+tamper65_0)"
-"(if(datum-has-elements?(syntax-content s_119))"
+"((scope-propagations+tamper64_0)"
+"(if(datum-has-elements?(syntax-content s_120))"
 "(prop-op_2"
-"(syntax-scope-propagations+tamper s_119)"
+"(syntax-scope-propagations+tamper s_120)"
 " sc_16"
-"(syntax-scopes s_119)"
-"(syntax-shifted-multi-scopes s_119)"
-"(syntax-mpi-shifts s_119))"
-"(syntax-scope-propagations+tamper s_119))))"
+"(syntax-scopes s_120)"
+"(syntax-shifted-multi-scopes s_120)"
+"(syntax-mpi-shifts s_120))"
+"(syntax-scope-propagations+tamper s_120))))"
 "(syntax1.1"
 "(syntax-content the-struct_20)"
 "(syntax-scopes the-struct_20)"
-" shifted-multi-scopes64_0"
-" scope-propagations+tamper65_0"
+" shifted-multi-scopes63_0"
+" scope-propagations+tamper64_0"
 "(syntax-mpi-shifts the-struct_20)"
 "(syntax-srcloc the-struct_20)"
 "(syntax-props the-struct_20)"
 "(syntax-inspector the-struct_20)))"
 "              (raise-argument-error 'struct-copy \"syntax?\" the-struct_20)))"
-"(let-values(((the-struct_21) s_119))"
+"(let-values(((the-struct_21) s_120))"
 "(if(syntax?$1 the-struct_21)"
-"(let-values(((scopes66_0)(op_2(syntax-scopes s_119) sc_16))"
-"((scope-propagations+tamper67_0)"
-"(if(datum-has-elements?(syntax-content s_119))"
+"(let-values(((scopes65_0)(op_2(syntax-scopes s_120) sc_16))"
+"((scope-propagations+tamper66_0)"
+"(if(datum-has-elements?(syntax-content s_120))"
 "(prop-op_2"
-"(syntax-scope-propagations+tamper s_119)"
+"(syntax-scope-propagations+tamper s_120)"
 " sc_16"
-"(syntax-scopes s_119)"
-"(syntax-shifted-multi-scopes s_119)"
-"(syntax-mpi-shifts s_119))"
-"(syntax-scope-propagations+tamper s_119))))"
+"(syntax-scopes s_120)"
+"(syntax-shifted-multi-scopes s_120)"
+"(syntax-mpi-shifts s_120))"
+"(syntax-scope-propagations+tamper s_120))))"
 "(syntax1.1"
 "(syntax-content the-struct_21)"
-" scopes66_0"
+" scopes65_0"
 "(syntax-shifted-multi-scopes the-struct_21)"
-" scope-propagations+tamper67_0"
+" scope-propagations+tamper66_0"
 "(syntax-mpi-shifts the-struct_21)"
 "(syntax-srcloc the-struct_21)"
 "(syntax-props the-struct_21)"
@@ -9379,37 +9321,37 @@ static const char *startup_source =
 "              (raise-argument-error 'struct-copy \"syntax?\" the-struct_21))))))))"
 "(define-values"
 "(flip-scopes)"
-"(lambda(s_120 scs_7)"
+"(lambda(s_121 scs_7)"
 "(begin"
 "(let-values(((lst_46) scs_7))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_46)))"
 "((letrec-values(((for-loop_60)"
-"(lambda(s_121 lst_47)"
+"(lambda(s_122 lst_47)"
 "(begin"
 " 'for-loop"
 "(if(pair? lst_47)"
 "(let-values(((sc_17)(unsafe-car lst_47))((rest_20)(unsafe-cdr lst_47)))"
-"(let-values(((s_122)"
-"(let-values(((s_123) s_121))"
-"(let-values(((s_124)(let-values()(flip-scope s_123 sc_17))))"
-"(values s_124)))))"
-"(if(not #f)(for-loop_60 s_122 rest_20) s_122)))"
-" s_121)))))"
+"(let-values(((s_123)"
+"(let-values(((s_124) s_122))"
+"(let-values(((s_125)(let-values()(flip-scope s_124 sc_17))))"
+"(values s_125)))))"
+"(if(not #f)(for-loop_60 s_123 rest_20) s_123)))"
+" s_122)))))"
 " for-loop_60)"
-" s_120"
+" s_121"
 " lst_46))))))"
 "(define-values"
 "(push-scope)"
-"(lambda(s_125 sms_6)"
+"(lambda(s_126 sms_6)"
 "(begin"
-"(let-values(((smss/maybe-fallbacks68_0) #f))"
+"(let-values(((smss/maybe-fallbacks67_0) #f))"
 "(let-values(((prev-result_0) #f))"
 "(let-values(((push_0)"
 "(lambda(smss/maybe-fallbacks_0)"
 "(begin"
 " 'push"
-"(if(eq? smss/maybe-fallbacks68_0 smss/maybe-fallbacks_0)"
+"(if(eq? smss/maybe-fallbacks67_0 smss/maybe-fallbacks_0)"
 "(let-values() prev-result_0)"
 "(let-values()"
 "(let-values(((r_23)"
@@ -9424,24 +9366,24 @@ static const char *startup_source =
 "(set-add smss_12 sms_6)"
 " smss/maybe-fallbacks_0))))))))"
 "(begin"
-"(set! smss/maybe-fallbacks68_0 smss/maybe-fallbacks_0)"
+"(set! smss/maybe-fallbacks67_0 smss/maybe-fallbacks_0)"
 "(set! prev-result_0 r_23)"
 " r_23))))))))"
-"(let-values(((s_126) s_125)"
+"(let-values(((s_127) s_126)"
 "((f_32)(lambda(tail?_25 x_34)(begin 'f x_34)))"
 "((d->s_1)"
-"(lambda(s_127 d_3)"
+"(lambda(s_128 d_3)"
 "(begin"
 " 'd->s"
-"(let-values(((the-struct_22) s_127))"
+"(let-values(((the-struct_22) s_128))"
 "(if(syntax?$1 the-struct_22)"
-"(let-values(((content69_0) d_3)"
-"((shifted-multi-scopes70_0)"
-"(push_0(syntax-shifted-multi-scopes s_127))))"
+"(let-values(((content68_0) d_3)"
+"((shifted-multi-scopes69_0)"
+"(push_0(syntax-shifted-multi-scopes s_128))))"
 "(syntax1.1"
-" content69_0"
+" content68_0"
 "(syntax-scopes the-struct_22)"
-" shifted-multi-scopes70_0"
+" shifted-multi-scopes69_0"
 "(syntax-scope-propagations+tamper the-struct_22)"
 "(syntax-mpi-shifts the-struct_22)"
 "(syntax-srcloc the-struct_22)"
@@ -9451,21 +9393,21 @@ static const char *startup_source =
 "((s-e_1) syntax-e/no-taint)"
 "((seen_11) #f))"
 "((letrec-values(((loop_70)"
-"(lambda(s_128)"
+"(lambda(s_129)"
 "(begin"
 " 'loop"
-"(let-values(((s_129) s_128)"
+"(let-values(((s_130) s_129)"
 "((f_33) f_32)"
 "((gf_5)"
-"(lambda(tail?_26 v_82)"
+"(lambda(tail?_26 v_83)"
 "(begin"
 " 'gf"
-"(if(syntax?$1 v_82)"
-"(let-values()(d->s_1 v_82(loop_70(s-e_1 v_82))))"
-"(let-values()(f_32 tail?_26 v_82))))))"
+"(if(syntax?$1 v_83)"
+"(let-values()(d->s_1 v_83(loop_70(s-e_1 v_83))))"
+"(let-values()(f_32 tail?_26 v_83))))))"
 "((seen_12) seen_11))"
 "((letrec-values(((loop_71)"
-"(lambda(tail?_27 s_130 prev-depth_5)"
+"(lambda(tail?_27 s_131 prev-depth_5)"
 "(begin"
 " 'loop"
 "(let-values(((depth_5)(fx+ 1 prev-depth_5)))"
@@ -9473,55 +9415,55 @@ static const char *startup_source =
 "(let-values()"
 "(datum-map-slow"
 " tail?_27"
-" s_130"
-"(lambda(tail?_28 s_131)(gf_5 tail?_28 s_131))"
+" s_131"
+"(lambda(tail?_28 s_132)(gf_5 tail?_28 s_132))"
 " seen_12))"
-"(if(null? s_130)"
-"(let-values()(f_33 tail?_27 s_130))"
-"(if(pair? s_130)"
+"(if(null? s_131)"
+"(let-values()(f_33 tail?_27 s_131))"
+"(if(pair? s_131)"
 "(let-values()"
 "(f_33"
 " tail?_27"
 "(cons"
-"(loop_71 #f(car s_130) depth_5)"
-"(loop_71 #t(cdr s_130) depth_5))))"
-"(if(symbol? s_130)"
-"(let-values()(f_33 #f s_130))"
-"(if(boolean? s_130)"
-"(let-values()(f_33 #f s_130))"
-"(if(number? s_130)"
-"(let-values()(f_33 #f s_130))"
-"(if(let-values(((or-part_109)"
-"(vector? s_130)))"
-"(if or-part_109"
-" or-part_109"
-"(let-values(((or-part_110)"
-"(box? s_130)))"
-"(if or-part_110"
-" or-part_110"
-"(let-values(((or-part_111)"
+"(loop_71 #f(car s_131) depth_5)"
+"(loop_71 #t(cdr s_131) depth_5))))"
+"(if(symbol? s_131)"
+"(let-values()(f_33 #f s_131))"
+"(if(boolean? s_131)"
+"(let-values()(f_33 #f s_131))"
+"(if(number? s_131)"
+"(let-values()(f_33 #f s_131))"
+"(if(let-values(((or-part_112)"
+"(vector? s_131)))"
+"(if or-part_112"
+" or-part_112"
+"(let-values(((or-part_113)"
+"(box? s_131)))"
+"(if or-part_113"
+" or-part_113"
+"(let-values(((or-part_114)"
 "(prefab-struct-key"
-" s_130)))"
-"(if or-part_111"
-" or-part_111"
-"(hash? s_130)))))))"
+" s_131)))"
+"(if or-part_114"
+" or-part_114"
+"(hash? s_131)))))))"
 "(let-values()"
 "(datum-map-slow"
 " tail?_27"
-" s_130"
-"(lambda(tail?_29 s_132)"
-"(gf_5 tail?_29 s_132))"
+" s_131"
+"(lambda(tail?_29 s_133)"
+"(gf_5 tail?_29 s_133))"
 " seen_12))"
-"(let-values()(gf_5 #f s_130))))))))))))))"
+"(let-values()(gf_5 #f s_131))))))))))))))"
 " loop_71)"
 " #f"
-" s_129"
+" s_130"
 " 0))))))"
 " loop_70)"
-" s_126))))))))"
+" s_127))))))))"
 "(define-values"
 "(struct:propagation"
-" propagation15.1"
+" propagation14.1"
 " propagation?"
 " propagation-prev-scs"
 " propagation-prev-smss"
@@ -9541,7 +9483,7 @@ static const char *startup_source =
 " #f"
 "(list"
 "(cons prop:authentic #t)"
-"(cons prop:propagation-set-tamper(lambda(p_28 v_83)(propagation-set-tamper p_28 v_83)))"
+"(cons prop:propagation-set-tamper(lambda(p_28 v_84)(propagation-set-tamper p_28 v_84)))"
 "(cons prop:propagation-tamper(lambda(p_29)(propagation-tamper p_29)))"
 "(cons prop:propagation syntax-e$1))"
 "(current-inspector)"
@@ -9567,17 +9509,17 @@ static const char *startup_source =
 "(if(propagation? prop_4)"
 "(let-values(((the-struct_23) prop_4))"
 "(if(propagation? the-struct_23)"
-"(let-values(((scope-ops72_0)(hash-set(propagation-scope-ops prop_4) sc_18 'add)))"
-"(propagation15.1"
+"(let-values(((scope-ops71_0)(hash-set(propagation-scope-ops prop_4) sc_18 'add)))"
+"(propagation14.1"
 "(propagation-prev-scs the-struct_23)"
 "(propagation-prev-smss the-struct_23)"
-" scope-ops72_0"
+" scope-ops71_0"
 "(propagation-prev-mss the-struct_23)"
 "(propagation-add-mpi-shifts the-struct_23)"
 "(propagation-inspector the-struct_23)"
 "(propagation-tamper the-struct_23)))"
 "            (raise-argument-error 'struct-copy \"propagation?\" the-struct_23)))"
-"(propagation15.1 prev-scs_0 prev-smss_0(hasheq sc_18 'add) prev-mss_0 #f #f prop_4)))))"
+"(propagation14.1 prev-scs_0 prev-smss_0(hasheq sc_18 'add) prev-mss_0 #f #f prop_4)))))"
 "(define-values"
 "(propagation-remove)"
 "(lambda(prop_5 sc_19 prev-scs_1 prev-smss_1 prev-mss_1)"
@@ -9585,17 +9527,17 @@ static const char *startup_source =
 "(if(propagation? prop_5)"
 "(let-values(((the-struct_24) prop_5))"
 "(if(propagation? the-struct_24)"
-"(let-values(((scope-ops73_0)(hash-set(propagation-scope-ops prop_5) sc_19 'remove)))"
-"(propagation15.1"
+"(let-values(((scope-ops72_0)(hash-set(propagation-scope-ops prop_5) sc_19 'remove)))"
+"(propagation14.1"
 "(propagation-prev-scs the-struct_24)"
 "(propagation-prev-smss the-struct_24)"
-" scope-ops73_0"
+" scope-ops72_0"
 "(propagation-prev-mss the-struct_24)"
 "(propagation-add-mpi-shifts the-struct_24)"
 "(propagation-inspector the-struct_24)"
 "(propagation-tamper the-struct_24)))"
 "            (raise-argument-error 'struct-copy \"propagation?\" the-struct_24)))"
-"(propagation15.1 prev-scs_1 prev-smss_1(hasheq sc_19 'remove) prev-mss_1 #f #f prop_5)))))"
+"(propagation14.1 prev-scs_1 prev-smss_1(hasheq sc_19 'remove) prev-mss_1 #f #f prop_5)))))"
 "(define-values"
 "(propagation-flip)"
 "(lambda(prop_6 sc_20 prev-scs_2 prev-smss_2 prev-mss_2)"
@@ -9612,7 +9554,7 @@ static const char *startup_source =
 "(let-values()"
 "(let-values(((the-struct_25) prop_6))"
 "(if(propagation? the-struct_25)"
-"(let-values(((scope-ops74_0)"
+"(let-values(((scope-ops73_0)"
 "(if(eq? current-op_0 'flip)"
 "(hash-remove ops_0 sc_20)"
 "(hash-set"
@@ -9622,16 +9564,16 @@ static const char *startup_source =
 "(if(equal? tmp_9 'add)"
 "(let-values() 'remove)"
 "(if(equal? tmp_9 'remove)(let-values() 'add)(let-values() 'flip))))))))"
-"(propagation15.1"
+"(propagation14.1"
 "(propagation-prev-scs the-struct_25)"
 "(propagation-prev-smss the-struct_25)"
-" scope-ops74_0"
+" scope-ops73_0"
 "(propagation-prev-mss the-struct_25)"
 "(propagation-add-mpi-shifts the-struct_25)"
 "(propagation-inspector the-struct_25)"
 "(propagation-tamper the-struct_25)))"
 "                    (raise-argument-error 'struct-copy \"propagation?\" the-struct_25)))))))"
-"(propagation15.1 prev-scs_2 prev-smss_2(hasheq sc_20 'flip) prev-mss_2 #f #f prop_6)))))"
+"(propagation14.1 prev-scs_2 prev-smss_2(hasheq sc_20 'flip) prev-mss_2 #f #f prop_6)))))"
 "(define-values"
 "(propagation-mpi-shift)"
 "(lambda(prop_7 add_0 inspector_2 prev-scs_3 prev-smss_3 prev-mss_3)"
@@ -9639,24 +9581,24 @@ static const char *startup_source =
 "(if(propagation? prop_7)"
 "(let-values(((the-struct_26) prop_7))"
 "(if(propagation? the-struct_26)"
-"(let-values(((add-mpi-shifts75_0)"
+"(let-values(((add-mpi-shifts74_0)"
 "(let-values(((base-add_0)(propagation-add-mpi-shifts prop_7)))"
 "(if(if add_0 base-add_0 #f)"
-"(lambda(mss_0)(begin 'add-mpi-shifts75(add_0(base-add_0 mss_0))))"
-"(let-values(((or-part_112) add_0))(if or-part_112 or-part_112 base-add_0)))))"
-"((inspector76_0)"
-"(let-values(((or-part_113)(propagation-inspector prop_7)))"
-"(if or-part_113 or-part_113 inspector_2))))"
-"(propagation15.1"
+"(lambda(mss_0)(begin 'add-mpi-shifts74(add_0(base-add_0 mss_0))))"
+"(let-values(((or-part_115) add_0))(if or-part_115 or-part_115 base-add_0)))))"
+"((inspector75_0)"
+"(let-values(((or-part_116)(propagation-inspector prop_7)))"
+"(if or-part_116 or-part_116 inspector_2))))"
+"(propagation14.1"
 "(propagation-prev-scs the-struct_26)"
 "(propagation-prev-smss the-struct_26)"
 "(propagation-scope-ops the-struct_26)"
 "(propagation-prev-mss the-struct_26)"
-" add-mpi-shifts75_0"
-" inspector76_0"
+" add-mpi-shifts74_0"
+" inspector75_0"
 "(propagation-tamper the-struct_26)))"
 "            (raise-argument-error 'struct-copy \"propagation?\" the-struct_26)))"
-"(propagation15.1 prev-scs_3 prev-smss_3 '#hasheq() prev-mss_3 add_0 inspector_2 prop_7)))))"
+"(propagation14.1 prev-scs_3 prev-smss_3 '#hasheq() prev-mss_3 add_0 inspector_2 prop_7)))))"
 "(define-values"
 "(propagation-apply)"
 "(lambda(prop_8 scs_8 parent-s_0)"
@@ -9665,18 +9607,18 @@ static const char *startup_source =
 "(let-values()(syntax-scopes parent-s_0))"
 "(let-values()"
 "(let-values(((new-scs_0)"
-"(let-values(((ht_51)(propagation-scope-ops prop_8)))"
+"(let-values(((ht_49)(propagation-scope-ops prop_8)))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
-"(let-values()(check-in-immutable-hash ht_51)))"
+"(let-values()(check-in-immutable-hash ht_49)))"
 "((letrec-values(((for-loop_61)"
-"(lambda(scs_9 i_66)"
+"(lambda(scs_9 i_69)"
 "(begin"
 " 'for-loop"
-"(if i_66"
+"(if i_69"
 "(let-values(((sc_21 op_3)"
-"(unsafe-immutable-hash-iterate-key+value ht_51 i_66)))"
+"(unsafe-immutable-hash-iterate-key+value ht_49 i_69)))"
 "(let-values(((scs_10)"
 "(let-values(((scs_11) scs_9))"
 "(if(not(shifted-multi-scope? sc_21))"
@@ -9703,12 +9645,12 @@ static const char *startup_source =
 "(if(not #f)"
 "(for-loop_61"
 " scs_10"
-"(unsafe-immutable-hash-iterate-next ht_51 i_66))"
+"(unsafe-immutable-hash-iterate-next ht_49 i_69))"
 " scs_10)))"
 " scs_9)))))"
 " for-loop_61)"
 " scs_8"
-"(unsafe-immutable-hash-iterate-first ht_51))))))"
+"(unsafe-immutable-hash-iterate-first ht_49))))))"
 "(if(set=? new-scs_0(syntax-scopes parent-s_0))"
 "(syntax-scopes parent-s_0)"
 "(cache-or-reuse-set new-scs_0))))))))"
@@ -9720,18 +9662,18 @@ static const char *startup_source =
 "(let-values()(syntax-shifted-multi-scopes parent-s_1))"
 "(let-values()"
 "(let-values(((new-smss_0)"
-"(let-values(((ht_52)(propagation-scope-ops prop_9)))"
+"(let-values(((ht_50)(propagation-scope-ops prop_9)))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
-"(let-values()(check-in-immutable-hash ht_52)))"
+"(let-values()(check-in-immutable-hash ht_50)))"
 "((letrec-values(((for-loop_62)"
-"(lambda(smss_14 i_15)"
+"(lambda(smss_14 i_70)"
 "(begin"
 " 'for-loop"
-"(if i_15"
+"(if i_70"
 "(let-values(((sms_7 op_4)"
-"(unsafe-immutable-hash-iterate-key+value ht_52 i_15)))"
+"(unsafe-immutable-hash-iterate-key+value ht_50 i_70)))"
 "(let-values(((smss_15)"
 "(let-values(((smss_16) smss_14))"
 "(if(shifted-multi-scope? sms_7)"
@@ -9764,12 +9706,12 @@ static const char *startup_source =
 "(if(not #f)"
 "(for-loop_62"
 " smss_15"
-"(unsafe-immutable-hash-iterate-next ht_52 i_15))"
+"(unsafe-immutable-hash-iterate-next ht_50 i_70))"
 " smss_15)))"
 " smss_14)))))"
 " for-loop_62)"
 " smss_13"
-"(unsafe-immutable-hash-iterate-first ht_52))))))"
+"(unsafe-immutable-hash-iterate-first ht_50))))))"
 "(let-values(((parent-smss_0)(syntax-shifted-multi-scopes parent-s_1)))"
 "(if(if(set? new-smss_0)(if(set? parent-smss_0)(set=? new-smss_0 parent-smss_0) #f) #f)"
 " parent-smss_0"
@@ -9783,26 +9725,26 @@ static const char *startup_source =
 "(let-values()(let-values(((add_1)(propagation-add-mpi-shifts prop_10)))(if add_1(add_1 mss_1) mss_1)))))))"
 "(define-values"
 "(propagation-apply-inspector)"
-"(lambda(prop_11 i_67)"
-"(begin(let-values(((or-part_114) i_67))(if or-part_114 or-part_114(propagation-inspector prop_11))))))"
+"(lambda(prop_11 i_71)"
+"(begin(let-values(((or-part_117) i_71))(if or-part_117 or-part_117(propagation-inspector prop_11))))))"
 "(define-values"
 "(propagation-set-tamper)"
-"(lambda(prop_12 t_34)"
+"(lambda(prop_12 t_35)"
 "(begin"
 "(if(propagation? prop_12)"
 "(let-values(((the-struct_27) prop_12))"
 "(if(propagation? the-struct_27)"
-"(let-values(((tamper77_0) t_34))"
-"(propagation15.1"
+"(let-values(((tamper76_0) t_35))"
+"(propagation14.1"
 "(propagation-prev-scs the-struct_27)"
 "(propagation-prev-smss the-struct_27)"
 "(propagation-scope-ops the-struct_27)"
 "(propagation-prev-mss the-struct_27)"
 "(propagation-add-mpi-shifts the-struct_27)"
 "(propagation-inspector the-struct_27)"
-" tamper77_0))"
+" tamper76_0))"
 "            (raise-argument-error 'struct-copy \"propagation?\" the-struct_27)))"
-" t_34))))"
+" t_35))))"
 "(define-values"
 "(propagation-merge)"
 "(lambda(content_7 prop_13 base-prop_0 prev-scs_4 prev-smss_4 prev-mss_4)"
@@ -9820,7 +9762,7 @@ static const char *startup_source =
 " #f)"
 "(let-values() prop_13)"
 "(let-values()"
-"(propagation15.1"
+"(propagation14.1"
 " prev-scs_4"
 " prev-smss_4"
 "(propagation-scope-ops prop_13)"
@@ -9830,20 +9772,20 @@ static const char *startup_source =
 "(if(tamper-tainted?(propagation-tamper prop_13)) 'tainted/need-propagate base-prop_0)))))"
 "(let-values()"
 "(let-values(((new-ops_0)"
-"(let-values(((ht_53)(propagation-scope-ops prop_13)))"
+"(let-values(((ht_51)(propagation-scope-ops prop_13)))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
-"(let-values()(check-in-immutable-hash ht_53)))"
+"(let-values()(check-in-immutable-hash ht_51)))"
 "((letrec-values(((for-loop_63)"
-"(lambda(ops_1 i_68)"
+"(lambda(ops_1 i_72)"
 "(begin"
 " 'for-loop"
-"(if i_68"
+"(if i_72"
 "(let-values(((sc_22 op_5)"
 "(unsafe-immutable-hash-iterate-key+value"
-" ht_53"
-" i_68)))"
+" ht_51"
+" i_72)))"
 "(let-values(((ops_2)"
 "(let-values(((ops_3) ops_1))"
 "(let-values(((ops_4)"
@@ -9901,17 +9843,17 @@ static const char *startup_source =
 "(if(not #f)"
 "(for-loop_63"
 " ops_2"
-"(unsafe-immutable-hash-iterate-next ht_53 i_68))"
+"(unsafe-immutable-hash-iterate-next ht_51 i_72))"
 " ops_2)))"
 " ops_1)))))"
 " for-loop_63)"
 "(propagation-scope-ops base-prop_0)"
-"(unsafe-immutable-hash-iterate-first ht_53))))))"
+"(unsafe-immutable-hash-iterate-first ht_51))))))"
 "(let-values(((add_2)(propagation-add-mpi-shifts prop_13)))"
 "(let-values(((base-add_1)(propagation-add-mpi-shifts base-prop_0)))"
 "(let-values(((new-tamper_0)"
-"(if(let-values(((or-part_115)(tamper-tainted?(propagation-tamper prop_13))))"
-"(if or-part_115 or-part_115(tamper-tainted?(propagation-tamper base-prop_0))))"
+"(if(let-values(((or-part_118)(tamper-tainted?(propagation-tamper prop_13))))"
+"(if or-part_118 or-part_118(tamper-tainted?(propagation-tamper base-prop_0))))"
 " 'tainted/need-propagate"
 "(propagation-tamper base-prop_0))))"
 "(if(if(zero?(hash-count new-ops_0))"
@@ -9924,23 +9866,23 @@ static const char *startup_source =
 " new-tamper_0"
 "(let-values(((the-struct_28) base-prop_0))"
 "(if(propagation? the-struct_28)"
-"(let-values(((scope-ops78_0) new-ops_0)"
-"((add-mpi-shifts79_0)"
+"(let-values(((scope-ops77_0) new-ops_0)"
+"((add-mpi-shifts78_0)"
 "(if(if add_2 base-add_1 #f)"
-"(lambda(mss_2)(begin 'add-mpi-shifts79(add_2(base-add_1 mss_2))))"
-"(let-values(((or-part_116) add_2))(if or-part_116 or-part_116 base-add_1))))"
-"((inspector80_0)"
-"(let-values(((or-part_117)(propagation-inspector base-prop_0)))"
-"(if or-part_117 or-part_117(propagation-inspector prop_13))))"
-"((tamper81_0) new-tamper_0))"
-"(propagation15.1"
+"(lambda(mss_2)(begin 'add-mpi-shifts78(add_2(base-add_1 mss_2))))"
+"(let-values(((or-part_119) add_2))(if or-part_119 or-part_119 base-add_1))))"
+"((inspector79_0)"
+"(let-values(((or-part_120)(propagation-inspector base-prop_0)))"
+"(if or-part_120 or-part_120(propagation-inspector prop_13))))"
+"((tamper80_0) new-tamper_0))"
+"(propagation14.1"
 "(propagation-prev-scs the-struct_28)"
 "(propagation-prev-smss the-struct_28)"
-" scope-ops78_0"
+" scope-ops77_0"
 "(propagation-prev-mss the-struct_28)"
-" add-mpi-shifts79_0"
-" inspector80_0"
-" tamper81_0))"
+" add-mpi-shifts78_0"
+" inspector79_0"
+" tamper80_0))"
 "                          (raise-argument-error 'struct-copy \"propagation?\" the-struct_28))))))))))))))"
 "(define-values"
 "(shift-multi-scope)"
@@ -9964,19 +9906,19 @@ static const char *startup_source =
 "(shifted-multi-scope-multi-scope sms_8)))))))))"
 "(define-values"
 "(syntax-shift-phase-level$1)"
-"(lambda(s_133 phase_13)"
+"(lambda(s_134 phase_13)"
 "(begin"
 " 'syntax-shift-phase-level"
 "(if(eqv? phase_13 0)"
-" s_133"
+" s_134"
 "(let-values()"
-"(let-values(((smss82_0) #f))"
+"(let-values(((smss81_0) #f))"
 "(let-values(((prev-result_1) #f))"
 "(let-values(((shift-all_0)"
 "(lambda(smss_20)"
 "(begin"
 " 'shift-all"
-"(if(eq? smss82_0 smss_20)"
+"(if(eq? smss81_0 smss_20)"
 "(let-values() prev-result_1)"
 "(let-values()"
 "(let-values(((r_24)"
@@ -9984,21 +9926,21 @@ static const char *startup_source =
 "(fallback-map"
 " smss_20"
 "(lambda(smss_21)"
-"(let-values(((ht_54) smss_21))"
+"(let-values(((ht_52) smss_21))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
-"(let-values()(check-in-immutable-hash-keys ht_54)))"
+"(let-values()(check-in-immutable-hash-keys ht_52)))"
 "((letrec-values(((for-loop_64)"
-"(lambda(table_66 i_69)"
+"(lambda(table_67 i_73)"
 "(begin"
 " 'for-loop"
-"(if i_69"
+"(if i_73"
 "(let-values(((sms_9)"
 "(unsafe-immutable-hash-iterate-key"
-" ht_54"
-" i_69)))"
-"(let-values(((table_67)"
+" ht_52"
+" i_73)))"
+"(let-values(((table_68)"
 "(let-values(((new-sms_0)"
 "(shift-multi-scope"
 " sms_9"
@@ -10006,17 +9948,17 @@ static const char *startup_source =
 "(begin"
 " #t"
 "((letrec-values(((for-loop_65)"
-"(lambda(table_68)"
+"(lambda(table_69)"
 "(begin"
 " 'for-loop"
 "(let-values()"
-"(let-values(((table_69)"
 "(let-values(((table_70)"
-" table_68))"
-"(if new-sms_0"
 "(let-values(((table_71)"
-" table_70))"
+" table_69))"
+"(if new-sms_0"
 "(let-values(((table_72)"
+" table_71))"
+"(let-values(((table_73)"
 "(let-values()"
 "(let-values(((key_30"
 " val_18)"
@@ -10026,42 +9968,42 @@ static const char *startup_source =
 " new-sms_0)"
 " #t))))"
 "(hash-set"
-" table_71"
+" table_72"
 " key_30"
 " val_18)))))"
 "(values"
-" table_72)))"
-" table_70))))"
-" table_69))))))"
+" table_73)))"
+" table_71))))"
+" table_70))))))"
 " for-loop_65)"
-" table_66)))))"
+" table_67)))))"
 "(if(not #f)"
 "(for-loop_64"
-" table_67"
+" table_68"
 "(unsafe-immutable-hash-iterate-next"
-" ht_54"
-" i_69))"
-" table_67)))"
-" table_66)))))"
+" ht_52"
+" i_73))"
+" table_68)))"
+" table_67)))))"
 " for-loop_64)"
 " '#hasheq()"
-"(unsafe-immutable-hash-iterate-first ht_54)))))))))"
-"(begin(set! smss82_0 smss_20)(set! prev-result_1 r_24) r_24))))))))"
-"(let-values(((s_134) s_133)"
+"(unsafe-immutable-hash-iterate-first ht_52)))))))))"
+"(begin(set! smss81_0 smss_20)(set! prev-result_1 r_24) r_24))))))))"
+"(let-values(((s_135) s_134)"
 "((f_34)(lambda(tail?_30 d_4)(begin 'f d_4)))"
 "((d->s_2)"
-"(lambda(s_135 d_5)"
+"(lambda(s_136 d_5)"
 "(begin"
 " 'd->s"
-"(let-values(((the-struct_29) s_135))"
+"(let-values(((the-struct_29) s_136))"
 "(if(syntax?$1 the-struct_29)"
-"(let-values(((content83_0) d_5)"
-"((shifted-multi-scopes84_0)"
-"(shift-all_0(syntax-shifted-multi-scopes s_135))))"
+"(let-values(((content82_0) d_5)"
+"((shifted-multi-scopes83_0)"
+"(shift-all_0(syntax-shifted-multi-scopes s_136))))"
 "(syntax1.1"
-" content83_0"
+" content82_0"
 "(syntax-scopes the-struct_29)"
-" shifted-multi-scopes84_0"
+" shifted-multi-scopes83_0"
 "(syntax-scope-propagations+tamper the-struct_29)"
 "(syntax-mpi-shifts the-struct_29)"
 "(syntax-srcloc the-struct_29)"
@@ -10071,21 +10013,21 @@ static const char *startup_source =
 "((s-e_2) syntax-e/no-taint)"
 "((seen_13) #f))"
 "((letrec-values(((loop_72)"
-"(lambda(s_136)"
+"(lambda(s_137)"
 "(begin"
 " 'loop"
-"(let-values(((s_137) s_136)"
+"(let-values(((s_138) s_137)"
 "((f_35) f_34)"
 "((gf_6)"
-"(lambda(tail?_31 v_84)"
+"(lambda(tail?_31 v_85)"
 "(begin"
 " 'gf"
-"(if(syntax?$1 v_84)"
-"(let-values()(d->s_2 v_84(loop_72(s-e_2 v_84))))"
-"(let-values()(f_34 tail?_31 v_84))))))"
+"(if(syntax?$1 v_85)"
+"(let-values()(d->s_2 v_85(loop_72(s-e_2 v_85))))"
+"(let-values()(f_34 tail?_31 v_85))))))"
 "((seen_14) seen_13))"
 "((letrec-values(((loop_73)"
-"(lambda(tail?_32 s_138 prev-depth_6)"
+"(lambda(tail?_32 s_139 prev-depth_6)"
 "(begin"
 " 'loop"
 "(let-values(((depth_6)(fx+ 1 prev-depth_6)))"
@@ -10093,76 +10035,76 @@ static const char *startup_source =
 "(let-values()"
 "(datum-map-slow"
 " tail?_32"
-" s_138"
-"(lambda(tail?_33 s_139)(gf_6 tail?_33 s_139))"
+" s_139"
+"(lambda(tail?_33 s_140)(gf_6 tail?_33 s_140))"
 " seen_14))"
-"(if(null? s_138)"
-"(let-values()(f_35 tail?_32 s_138))"
-"(if(pair? s_138)"
+"(if(null? s_139)"
+"(let-values()(f_35 tail?_32 s_139))"
+"(if(pair? s_139)"
 "(let-values()"
 "(f_35"
 " tail?_32"
 "(cons"
-"(loop_73 #f(car s_138) depth_6)"
-"(loop_73 #t(cdr s_138) depth_6))))"
-"(if(symbol? s_138)"
-"(let-values()(f_35 #f s_138))"
-"(if(boolean? s_138)"
-"(let-values()(f_35 #f s_138))"
-"(if(number? s_138)"
-"(let-values()(f_35 #f s_138))"
-"(if(let-values(((or-part_118)"
-"(vector? s_138)))"
-"(if or-part_118"
-" or-part_118"
-"(let-values(((or-part_119)"
-"(box? s_138)))"
-"(if or-part_119"
-" or-part_119"
-"(let-values(((or-part_120)"
+"(loop_73 #f(car s_139) depth_6)"
+"(loop_73 #t(cdr s_139) depth_6))))"
+"(if(symbol? s_139)"
+"(let-values()(f_35 #f s_139))"
+"(if(boolean? s_139)"
+"(let-values()(f_35 #f s_139))"
+"(if(number? s_139)"
+"(let-values()(f_35 #f s_139))"
+"(if(let-values(((or-part_121)"
+"(vector? s_139)))"
+"(if or-part_121"
+" or-part_121"
+"(let-values(((or-part_122)"
+"(box? s_139)))"
+"(if or-part_122"
+" or-part_122"
+"(let-values(((or-part_123)"
 "(prefab-struct-key"
-" s_138)))"
-"(if or-part_120"
-" or-part_120"
-"(hash? s_138)))))))"
+" s_139)))"
+"(if or-part_123"
+" or-part_123"
+"(hash? s_139)))))))"
 "(let-values()"
 "(datum-map-slow"
 " tail?_32"
-" s_138"
-"(lambda(tail?_34 s_140)"
-"(gf_6 tail?_34 s_140))"
+" s_139"
+"(lambda(tail?_34 s_141)"
+"(gf_6 tail?_34 s_141))"
 " seen_14))"
 "(let-values()"
-"(gf_6 #f s_138))))))))))))))"
+"(gf_6 #f s_139))))))))))))))"
 " loop_73)"
 " #f"
-" s_137"
+" s_138"
 " 0))))))"
 " loop_72)"
-" s_134))))))))))"
+" s_135))))))))))"
 "(define-values"
 "(syntax-swap-scopes)"
-"(lambda(s_141 src-scopes_0 dest-scopes_0)"
+"(lambda(s_142 src-scopes_0 dest-scopes_0)"
 "(begin"
 "(if(equal? src-scopes_0 dest-scopes_0)"
-" s_141"
+" s_142"
 "(let-values(((src-smss_0 src-scs_0)"
 "(set-partition"
-"(let-values(((ht_55) src-scopes_0))"
+"(let-values(((ht_53) src-scopes_0))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
-"(let-values()(check-in-immutable-hash-keys ht_55)))"
+"(let-values()(check-in-immutable-hash-keys ht_53)))"
 "((letrec-values(((for-loop_66)"
-"(lambda(table_73 i_70)"
+"(lambda(table_74 i_74)"
 "(begin"
 " 'for-loop"
-"(if i_70"
+"(if i_74"
 "(let-values(((sc_23)"
-"(unsafe-immutable-hash-iterate-key ht_55 i_70)))"
-"(let-values(((table_74)"
-"(let-values(((table_75) table_73))"
-"(let-values(((table_76)"
+"(unsafe-immutable-hash-iterate-key ht_53 i_74)))"
+"(let-values(((table_75)"
+"(let-values(((table_76) table_74))"
+"(let-values(((table_77)"
 "(let-values()"
 "(let-values(((key_31 val_19)"
 "(let-values()"
@@ -10172,39 +10114,39 @@ static const char *startup_source =
 " sc_23))"
 " #t))))"
 "(hash-set"
-" table_75"
+" table_76"
 " key_31"
 " val_19)))))"
-"(values table_76)))))"
+"(values table_77)))))"
 "(if(not #f)"
 "(for-loop_66"
-" table_74"
-"(unsafe-immutable-hash-iterate-next ht_55 i_70))"
-" table_74)))"
-" table_73)))))"
+" table_75"
+"(unsafe-immutable-hash-iterate-next ht_53 i_74))"
+" table_75)))"
+" table_74)))))"
 " for-loop_66)"
 " '#hasheq()"
-"(unsafe-immutable-hash-iterate-first ht_55))))"
+"(unsafe-immutable-hash-iterate-first ht_53))))"
 " shifted-multi-scope?"
 "(seteq)"
 "(seteq)))"
 "((dest-smss_0 dest-scs_0)"
 "(set-partition"
-"(let-values(((ht_56) dest-scopes_0))"
+"(let-values(((ht_54) dest-scopes_0))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
-"(let-values()(check-in-immutable-hash-keys ht_56)))"
+"(let-values()(check-in-immutable-hash-keys ht_54)))"
 "((letrec-values(((for-loop_67)"
-"(lambda(table_77 i_71)"
+"(lambda(table_78 i_75)"
 "(begin"
 " 'for-loop"
-"(if i_71"
+"(if i_75"
 "(let-values(((sc_24)"
-"(unsafe-immutable-hash-iterate-key ht_56 i_71)))"
-"(let-values(((table_78)"
-"(let-values(((table_79) table_77))"
-"(let-values(((table_80)"
+"(unsafe-immutable-hash-iterate-key ht_54 i_75)))"
+"(let-values(((table_79)"
+"(let-values(((table_80) table_78))"
+"(let-values(((table_81)"
 "(let-values()"
 "(let-values(((key_32 val_20)"
 "(let-values()"
@@ -10214,29 +10156,29 @@ static const char *startup_source =
 " sc_24))"
 " #t))))"
 "(hash-set"
-" table_79"
+" table_80"
 " key_32"
 " val_20)))))"
-"(values table_80)))))"
+"(values table_81)))))"
 "(if(not #f)"
 "(for-loop_67"
-" table_78"
-"(unsafe-immutable-hash-iterate-next ht_56 i_71))"
-" table_78)))"
-" table_77)))))"
+" table_79"
+"(unsafe-immutable-hash-iterate-next ht_54 i_75))"
+" table_79)))"
+" table_78)))))"
 " for-loop_67)"
 " '#hasheq()"
-"(unsafe-immutable-hash-iterate-first ht_56))))"
+"(unsafe-immutable-hash-iterate-first ht_54))))"
 " shifted-multi-scope?"
 "(seteq)"
 "(seteq))))"
-"(let-values(((scs85_0) #f))"
+"(let-values(((scs84_0) #f))"
 "(let-values(((prev-result_2) #f))"
 "(let-values(((swap-scs_0)"
 "(lambda(scs_14)"
 "(begin"
 " 'swap-scs"
-"(if(eq? scs85_0 scs_14)"
+"(if(eq? scs84_0 scs_14)"
 "(let-values() prev-result_2)"
 "(let-values()"
 "(let-values(((r_25)"
@@ -10244,14 +10186,14 @@ static const char *startup_source =
 "(if(subset? src-scs_0 scs_14)"
 "(set-union(set-subtract scs_14 src-scs_0) dest-scs_0)"
 " scs_14))))"
-"(begin(set! scs85_0 scs_14)(set! prev-result_2 r_25) r_25))))))))"
-"(let-values(((smss86_0) #f))"
+"(begin(set! scs84_0 scs_14)(set! prev-result_2 r_25) r_25))))))))"
+"(let-values(((smss85_0) #f))"
 "(let-values(((prev-result_3) #f))"
 "(let-values(((swap-smss_0)"
 "(lambda(smss_22)"
 "(begin"
 " 'swap-smss"
-"(if(eq? smss86_0 smss_22)"
+"(if(eq? smss85_0 smss_22)"
 "(let-values() prev-result_3)"
 "(let-values()"
 "(let-values(((r_26)"
@@ -10262,23 +10204,23 @@ static const char *startup_source =
 "(if(subset? src-smss_0 smss_23)"
 "(set-union(set-subtract smss_23 src-smss_0) dest-smss_0)"
 " smss_23))))))"
-"(begin(set! smss86_0 smss_22)(set! prev-result_3 r_26) r_26))))))))"
-"(let-values(((s_142) s_141)"
+"(begin(set! smss85_0 smss_22)(set! prev-result_3 r_26) r_26))))))))"
+"(let-values(((s_143) s_142)"
 "((f_36)(lambda(tail?_35 d_6)(begin 'f d_6)))"
 "((d->s_3)"
-"(lambda(s_143 d_7)"
+"(lambda(s_144 d_7)"
 "(begin"
 " 'd->s"
-"(let-values(((the-struct_30) s_143))"
+"(let-values(((the-struct_30) s_144))"
 "(if(syntax?$1 the-struct_30)"
-"(let-values(((content87_0) d_7)"
-"((scopes88_0)(swap-scs_0(syntax-scopes s_143)))"
-"((shifted-multi-scopes89_0)"
-"(swap-smss_0(syntax-shifted-multi-scopes s_143))))"
+"(let-values(((content86_0) d_7)"
+"((scopes87_0)(swap-scs_0(syntax-scopes s_144)))"
+"((shifted-multi-scopes88_0)"
+"(swap-smss_0(syntax-shifted-multi-scopes s_144))))"
 "(syntax1.1"
-" content87_0"
-" scopes88_0"
-" shifted-multi-scopes89_0"
+" content86_0"
+" scopes87_0"
+" shifted-multi-scopes88_0"
 "(syntax-scope-propagations+tamper the-struct_30)"
 "(syntax-mpi-shifts the-struct_30)"
 "(syntax-srcloc the-struct_30)"
@@ -10288,21 +10230,21 @@ static const char *startup_source =
 "((s-e_3) syntax-e/no-taint)"
 "((seen_15) #f))"
 "((letrec-values(((loop_74)"
-"(lambda(s_144)"
+"(lambda(s_145)"
 "(begin"
 " 'loop"
-"(let-values(((s_145) s_144)"
+"(let-values(((s_146) s_145)"
 "((f_37) f_36)"
 "((gf_7)"
-"(lambda(tail?_36 v_85)"
+"(lambda(tail?_36 v_86)"
 "(begin"
 " 'gf"
-"(if(syntax?$1 v_85)"
-"(let-values()(d->s_3 v_85(loop_74(s-e_3 v_85))))"
-"(let-values()(f_36 tail?_36 v_85))))))"
+"(if(syntax?$1 v_86)"
+"(let-values()(d->s_3 v_86(loop_74(s-e_3 v_86))))"
+"(let-values()(f_36 tail?_36 v_86))))))"
 "((seen_16) seen_15))"
 "((letrec-values(((loop_75)"
-"(lambda(tail?_37 s_146 prev-depth_7)"
+"(lambda(tail?_37 s_147 prev-depth_7)"
 "(begin"
 " 'loop"
 "(let-values(((depth_7)(fx+ 1 prev-depth_7)))"
@@ -10310,78 +10252,78 @@ static const char *startup_source =
 "(let-values()"
 "(datum-map-slow"
 " tail?_37"
-" s_146"
-"(lambda(tail?_38 s_147)"
-"(gf_7 tail?_38 s_147))"
+" s_147"
+"(lambda(tail?_38 s_148)"
+"(gf_7 tail?_38 s_148))"
 " seen_16))"
-"(if(null? s_146)"
-"(let-values()(f_37 tail?_37 s_146))"
-"(if(pair? s_146)"
+"(if(null? s_147)"
+"(let-values()(f_37 tail?_37 s_147))"
+"(if(pair? s_147)"
 "(let-values()"
 "(f_37"
 " tail?_37"
 "(cons"
-"(loop_75 #f(car s_146) depth_7)"
-"(loop_75 #t(cdr s_146) depth_7))))"
-"(if(symbol? s_146)"
-"(let-values()(f_37 #f s_146))"
-"(if(boolean? s_146)"
-"(let-values()(f_37 #f s_146))"
-"(if(number? s_146)"
-"(let-values()(f_37 #f s_146))"
-"(if(let-values(((or-part_121)"
-"(vector? s_146)))"
-"(if or-part_121"
-" or-part_121"
-"(let-values(((or-part_122)"
-"(box? s_146)))"
-"(if or-part_122"
-" or-part_122"
-"(let-values(((or-part_123)"
+"(loop_75 #f(car s_147) depth_7)"
+"(loop_75 #t(cdr s_147) depth_7))))"
+"(if(symbol? s_147)"
+"(let-values()(f_37 #f s_147))"
+"(if(boolean? s_147)"
+"(let-values()(f_37 #f s_147))"
+"(if(number? s_147)"
+"(let-values()(f_37 #f s_147))"
+"(if(let-values(((or-part_124)"
+"(vector? s_147)))"
+"(if or-part_124"
+" or-part_124"
+"(let-values(((or-part_125)"
+"(box? s_147)))"
+"(if or-part_125"
+" or-part_125"
+"(let-values(((or-part_126)"
 "(prefab-struct-key"
-" s_146)))"
-"(if or-part_123"
-" or-part_123"
-"(hash? s_146)))))))"
+" s_147)))"
+"(if or-part_126"
+" or-part_126"
+"(hash? s_147)))))))"
 "(let-values()"
 "(datum-map-slow"
 " tail?_37"
-" s_146"
-"(lambda(tail?_39 s_148)"
-"(gf_7 tail?_39 s_148))"
+" s_147"
+"(lambda(tail?_39 s_149)"
+"(gf_7 tail?_39 s_149))"
 " seen_16))"
 "(let-values()"
-"(gf_7 #f s_146))))))))))))))"
+"(gf_7 #f s_147))))))))))))))"
 " loop_75)"
 " #f"
-" s_145"
+" s_146"
 " 0))))))"
 " loop_74)"
-" s_142)))))))))))))"
+" s_143)))))))))))))"
 "(define-values"
 "(syntax-scope-set)"
-"(lambda(s_149 phase_14)"
-"(begin(scope-set-at-fallback s_149(fallback-first(syntax-shifted-multi-scopes s_149)) phase_14))))"
+"(lambda(s_150 phase_14)"
+"(begin(scope-set-at-fallback s_150(fallback-first(syntax-shifted-multi-scopes s_150)) phase_14))))"
 "(define-values"
 "(scope-set-at-fallback)"
-"(lambda(s_150 smss_24 phase_15)"
+"(lambda(s_151 smss_24 phase_15)"
 "(begin"
-"(let-values(((ht_57) smss_24))"
+"(let-values(((ht_55) smss_24))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
-"(let-values()(check-in-immutable-hash-keys ht_57)))"
+"(let-values()(check-in-immutable-hash-keys ht_55)))"
 "((letrec-values(((for-loop_68)"
-"(lambda(scopes_9 i_72)"
+"(lambda(scopes_9 i_76)"
 "(begin"
 " 'for-loop"
-"(if i_72"
-"(let-values(((sms_10)(unsafe-immutable-hash-iterate-key ht_57 i_72)))"
+"(if i_76"
+"(let-values(((sms_10)(unsafe-immutable-hash-iterate-key ht_55 i_76)))"
 "(let-values(((scopes_10)"
 "(let-values(((scopes_11) scopes_9))"
-"(if(let-values(((or-part_124)(label-phase? phase_15)))"
-"(if or-part_124"
-" or-part_124"
+"(if(let-values(((or-part_127)(label-phase? phase_15)))"
+"(if or-part_127"
+" or-part_127"
 "(not"
 "(shifted-to-label-phase?"
 "(shifted-multi-scope-phase sms_10)))))"
@@ -10401,29 +10343,29 @@ static const char *startup_source =
 "(values scopes_13)))"
 " scopes_11))))"
 "(if(not #f)"
-"(for-loop_68 scopes_10(unsafe-immutable-hash-iterate-next ht_57 i_72))"
+"(for-loop_68 scopes_10(unsafe-immutable-hash-iterate-next ht_55 i_76))"
 " scopes_10)))"
 " scopes_9)))))"
 " for-loop_68)"
-"(syntax-scopes s_150)"
-"(unsafe-immutable-hash-iterate-first ht_57)))))))"
+"(syntax-scopes s_151)"
+"(unsafe-immutable-hash-iterate-first ht_55)))))))"
 "(define-values"
 "(find-max-scope)"
 "(lambda(scopes_14)"
 "(begin"
 "(begin"
 "        (if (set-empty? scopes_14) (let-values () (error \"cannot bind in empty scope set\")) (void))"
-"(let-values(((ht_58) scopes_14))"
+"(let-values(((ht_56) scopes_14))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
-"(let-values()(check-in-immutable-hash-keys ht_58)))"
+"(let-values()(check-in-immutable-hash-keys ht_56)))"
 "((letrec-values(((for-loop_69)"
-"(lambda(max-sc_0 i_73)"
+"(lambda(max-sc_0 i_77)"
 "(begin"
 " 'for-loop"
-"(if i_73"
-"(let-values(((sc_25)(unsafe-immutable-hash-iterate-key ht_58 i_73)))"
+"(if i_77"
+"(let-values(((sc_25)(unsafe-immutable-hash-iterate-key ht_56 i_77)))"
 "(let-values(((max-sc_1)"
 "(let-values(((max-sc_2) max-sc_0))"
 "(let-values(((max-sc_3)"
@@ -10431,21 +10373,21 @@ static const char *startup_source =
 "(if(scope>? sc_25 max-sc_2) sc_25 max-sc_2))))"
 "(values max-sc_3)))))"
 "(if(not #f)"
-"(for-loop_69 max-sc_1(unsafe-immutable-hash-iterate-next ht_58 i_73))"
+"(for-loop_69 max-sc_1(unsafe-immutable-hash-iterate-next ht_56 i_77))"
 " max-sc_1)))"
 " max-sc_0)))))"
 " for-loop_69)"
 "(set-first scopes_14)"
-"(unsafe-immutable-hash-iterate-first ht_58))))))))"
+"(unsafe-immutable-hash-iterate-first ht_56))))))))"
 "(define-values"
-"(add-binding-in-scopes!21.1)"
-"(lambda(just-for-nominal?16_0 just-for-nominal?17_0 scopes18_0 sym19_0 binding20_0)"
+"(add-binding-in-scopes!20.1)"
+"(lambda(just-for-nominal?15_0 scopes17_0 sym18_0 binding19_0)"
 "(begin"
-" 'add-binding-in-scopes!21"
-"(let-values(((scopes_15) scopes18_0))"
-"(let-values(((sym_16) sym19_0))"
-"(let-values(((binding_3) binding20_0))"
-"(let-values(((just-for-nominal?_1)(if just-for-nominal?17_0 just-for-nominal?16_0 #f)))"
+" 'add-binding-in-scopes!20"
+"(let-values(((scopes_15) scopes17_0))"
+"(let-values(((sym_16) sym18_0))"
+"(let-values(((binding_3) binding19_0))"
+"(let-values(((just-for-nominal?_1) just-for-nominal?15_0))"
 "(let-values()"
 "(let-values(((max-sc_4)(find-max-scope scopes_15)))"
 "(let-values(((bt_7)"
@@ -10457,72 +10399,63 @@ static const char *startup_source =
 " just-for-nominal?_1)))"
 "(begin(set-scope-binding-table! max-sc_4 bt_7)(clear-resolve-cache! sym_16))))))))))))"
 "(define-values"
-"(add-bulk-binding-in-scopes!28.1)"
-"(lambda(shadow-except24_0 shadow-except25_0 scopes26_0 bulk-binding27_0)"
+"(add-bulk-binding-in-scopes!27.1)"
+"(lambda(shadow-except23_0 scopes25_1 bulk-binding26_0)"
 "(begin"
-" 'add-bulk-binding-in-scopes!28"
-"(let-values(((scopes_16) scopes26_0))"
-"(let-values(((bulk-binding_0) bulk-binding27_0))"
-"(let-values(((shadow-except_1)(if shadow-except25_0 shadow-except24_0 #f)))"
+" 'add-bulk-binding-in-scopes!27"
+"(let-values(((scopes_16) scopes25_1))"
+"(let-values(((bulk-binding_0) bulk-binding26_0))"
+"(let-values(((shadow-except_1) shadow-except23_0))"
 "(let-values()"
 "(let-values(((max-sc_5)(find-max-scope scopes_16)))"
 "(let-values(((bt_8)"
-"(let-values(((temp90_0)(scope-binding-table max-sc_5))"
-"((scopes91_0) scopes_16)"
-"((bulk-binding92_0) bulk-binding_0)"
-"((shadow-except93_0) shadow-except_1))"
-"(binding-table-add-bulk9.1 shadow-except93_0 #t temp90_0 scopes91_0 bulk-binding92_0))))"
+"(let-values(((temp89_0)(scope-binding-table max-sc_5))"
+"((scopes90_0) scopes_16)"
+"((bulk-binding91_0) bulk-binding_0)"
+"((shadow-except92_0) shadow-except_1))"
+"(binding-table-add-bulk9.1 shadow-except92_0 temp89_0 scopes90_0 bulk-binding91_0))))"
 "(begin(set-scope-binding-table! max-sc_5 bt_8)(clear-resolve-cache!)))))))))))"
 "(define-values"
 "(syntax-any-macro-scopes?)"
-"(lambda(s_151)"
+"(lambda(s_152)"
 "(begin"
-"(let-values(((ht_59)(syntax-scopes s_151)))"
+"(let-values(((ht_57)(syntax-scopes s_152)))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
-"(let-values()(check-in-immutable-hash-keys ht_59)))"
+"(let-values()(check-in-immutable-hash-keys ht_57)))"
 "((letrec-values(((for-loop_70)"
-"(lambda(result_45 i_74)"
+"(lambda(result_43 i_78)"
 "(begin"
 " 'for-loop"
-"(if i_74"
-"(let-values(((sc_26)(unsafe-immutable-hash-iterate-key ht_59 i_74)))"
-"(let-values(((result_46)"
+"(if i_78"
+"(let-values(((sc_26)(unsafe-immutable-hash-iterate-key ht_57 i_78)))"
+"(let-values(((result_44)"
 "(let-values()"
-"(let-values(((result_47)"
+"(let-values(((result_45)"
 "(let-values()"
 "(let-values()(eq?(scope-kind sc_26) 'macro)))))"
-"(values result_47)))))"
-"(if(if(not((lambda x_35 result_46) sc_26))(not #f) #f)"
-"(for-loop_70 result_46(unsafe-immutable-hash-iterate-next ht_59 i_74))"
-" result_46)))"
-" result_45)))))"
+"(values result_45)))))"
+"(if(if(not((lambda x_35 result_44) sc_26))(not #f) #f)"
+"(for-loop_70 result_44(unsafe-immutable-hash-iterate-next ht_57 i_78))"
+" result_44)))"
+" result_43)))))"
 " for-loop_70)"
 " #f"
-"(unsafe-immutable-hash-iterate-first ht_59)))))))"
+"(unsafe-immutable-hash-iterate-first ht_57)))))))"
 "(define-values"
-"(resolve41.1)"
-"(lambda(ambiguous-value31_0"
-" ambiguous-value35_0"
-" exactly?32_0"
-" exactly?36_0"
-" extra-shifts34_0"
-" extra-shifts38_0"
-" get-scopes?33_0"
-" get-scopes?37_0"
-" s39_0"
-" phase40_0)"
+"(resolve40.1)"
+"(lambda(ambiguous-value30_0 exactly?31_0 extra-shifts33_0 get-scopes?32_0 s38_0 phase39_0)"
 "(begin"
-" 'resolve41"
-"(let-values(((s_152) s39_0))"
-"(let-values(((phase_16) phase40_0))"
-"(let-values(((ambiguous-value_0)(if ambiguous-value35_0 ambiguous-value31_0 #f)))"
-"(let-values(((exactly?_0)(if exactly?36_0 exactly?32_0 #f)))"
-"(let-values(((get-scopes?_0)(if get-scopes?37_0 get-scopes?33_0 #f)))"
-"(let-values(((extra-shifts_2)(if extra-shifts38_0 extra-shifts34_0 null)))"
+" 'resolve40"
+"(let-values(((s_153) s38_0))"
+"(let-values(((phase_16) phase39_0))"
+"(let-values(((ambiguous-value_0) ambiguous-value30_0))"
+"(let-values(((exactly?_0) exactly?31_0))"
+"(let-values(((get-scopes?_0) get-scopes?32_0))"
+"(let-values(((extra-shifts_2) extra-shifts33_0))"
 "(let-values()"
-"(let-values(((sym_17)(syntax-content s_152)))"
+"(let-values(((sym_17)(syntax-content s_153)))"
 "((letrec-values(((fallback-loop_0)"
 "(lambda(smss_25)"
 "(begin"
@@ -10533,7 +10466,7 @@ static const char *startup_source =
 "(resolve-cache-get"
 " sym_17"
 " phase_16"
-"(syntax-scopes s_152)"
+"(syntax-scopes s_153)"
 "(fallback-first smss_25))"
 " #f)"
 " #f)))"
@@ -10549,53 +10482,53 @@ static const char *startup_source =
 "(let-values()"
 "(let-values(((scopes_17)"
 "(scope-set-at-fallback"
-" s_152"
+" s_153"
 "(fallback-first smss_25)"
 " phase_16)))"
 "(let-values(((best-scopes_0 best-binding_0)"
-"(let-values(((ht_60) scopes_17))"
+"(let-values(((ht_58) scopes_17))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
 "(#%variable-reference))"
 "(void)"
 "(let-values()"
-"(check-in-immutable-hash-keys ht_60)))"
+"(check-in-immutable-hash-keys ht_58)))"
 "((letrec-values(((for-loop_71)"
 "(lambda(best-scopes_1"
 " best-binding_1"
-" i_75)"
+" i_79)"
 "(begin"
 " 'for-loop"
-"(if i_75"
+"(if i_79"
 "(let-values(((sc_27)"
 "(unsafe-immutable-hash-iterate-key"
-" ht_60"
-" i_75)))"
+" ht_58"
+" i_79)))"
 "(let-values(((best-scopes_2"
 " best-binding_2)"
-"(let-values(((ht_61"
+"(let-values(((ht_59"
 " bulk-bindings_2)"
-"(let-values(((table_81)"
+"(let-values(((table_82)"
 "(scope-binding-table"
 " sc_27)))"
 "(if(hash?"
-" table_81)"
+" table_82)"
 "(values"
 "(hash-ref"
-" table_81"
+" table_82"
 " sym_17"
 " '#hash())"
 " null)"
 "(values"
 "(hash-ref"
 "(table-with-bulk-bindings-syms"
-" table_81)"
+" table_82)"
 " sym_17"
 " '#hash())"
 "(table-with-bulk-bindings-bulk-bindings"
-" table_81)))))"
-"((s_153)"
-" s_152)"
+" table_82)))))"
+"((s_154)"
+" s_153)"
 "((extra-shifts_3)"
 " extra-shifts_2))"
 "(begin"
@@ -10603,38 +10536,38 @@ static const char *startup_source =
 "((letrec-values(((for-loop_72)"
 "(lambda(best-scopes_3"
 " best-binding_3"
-" i_76)"
+" i_80)"
 "(begin"
 " 'for-loop"
 "(if(not"
 "(null?"
-" i_76))"
+" i_80))"
 "(let-values(((b-scopes_0)"
 "(if(pair?"
-" i_76)"
+" i_80)"
 "(let-values()"
 "(bulk-binding-at-scopes"
 "(car"
-" i_76)))"
+" i_80)))"
 "(let-values()"
 "(hash-iterate-key"
-" ht_61"
-" i_76))))"
+" ht_59"
+" i_80))))"
 "((binding_4)"
 "(if(pair?"
-" i_76)"
+" i_80)"
 "(let-values()"
 "(let-values(((bulk_3)"
 "(bulk-binding-at-bulk"
 "(car"
-" i_76))))"
+" i_80))))"
 "(let-values(((b-info_0)"
 "(if(symbol-interned?"
 " sym_17)"
 "(hash-ref"
 "(bulk-binding-symbols"
 " bulk_3"
-" s_153"
+" s_154"
 " extra-shifts_3)"
 " sym_17"
 " #f)"
@@ -10648,8 +10581,8 @@ static const char *startup_source =
 " #f))))"
 "(let-values()"
 "(hash-iterate-value"
-" ht_61"
-" i_76)))))"
+" ht_59"
+" i_80)))))"
 "(let-values(((best-scopes_4"
 " best-binding_4)"
 "(let-values(((best-scopes_5)"
@@ -10683,7 +10616,7 @@ static const char *startup_source =
 "(check-list"
 " lst_48)))"
 "((letrec-values(((for-loop_73)"
-"(lambda(result_48"
+"(lambda(result_46"
 " lst_49)"
 "(begin"
 " 'for-loop"
@@ -10695,29 +10628,29 @@ static const char *startup_source =
 "((rest_21)"
 "(unsafe-cdr"
 " lst_49)))"
-"(let-values(((result_49)"
+"(let-values(((result_47)"
 "(let-values()"
-"(let-values(((result_50)"
+"(let-values(((result_48)"
 "(let-values()"
 "(let-values()"
 "(subset?"
 " amb-scopes_0"
 " b-scopes_0)))))"
 "(values"
-" result_50)))))"
+" result_48)))))"
 "(if(if(not"
 "((lambda x_36"
 "(not"
-" result_49))"
+" result_47))"
 " amb-scopes_0))"
 "(not"
 " #f)"
 " #f)"
 "(for-loop_73"
-" result_49"
+" result_47"
 " rest_21)"
-" result_49)))"
-" result_48)))))"
+" result_47)))"
+" result_46)))))"
 " for-loop_73)"
 " #t"
 " lst_48)))"
@@ -10769,17 +10702,17 @@ static const char *startup_source =
 " best-scopes_4"
 " best-binding_4"
 "(if(pair?"
-" i_76)"
+" i_80)"
 "(let-values()"
 "(cdr"
-" i_76))"
+" i_80))"
 "(let-values()"
-"(let-values(((or-part_125)"
+"(let-values(((or-part_128)"
 "(hash-iterate-next"
-" ht_61"
-" i_76)))"
-"(if or-part_125"
-" or-part_125"
+" ht_59"
+" i_80)))"
+"(if or-part_128"
+" or-part_128"
 " bulk-bindings_2)))))"
 "(values"
 " best-scopes_4"
@@ -10790,19 +10723,19 @@ static const char *startup_source =
 " for-loop_72)"
 " best-scopes_1"
 " best-binding_1"
-"(let-values(((or-part_126)"
+"(let-values(((or-part_129)"
 "(hash-iterate-first"
-" ht_61)))"
-"(if or-part_126"
-" or-part_126"
+" ht_59)))"
+"(if or-part_129"
+" or-part_129"
 " bulk-bindings_2)))))))"
 "(if(not #f)"
 "(for-loop_71"
 " best-scopes_2"
 " best-binding_2"
 "(unsafe-immutable-hash-iterate-next"
-" ht_60"
-" i_75))"
+" ht_58"
+" i_79))"
 "(values"
 " best-scopes_2"
 " best-binding_2))))"
@@ -10812,7 +10745,7 @@ static const char *startup_source =
 " for-loop_71)"
 " #f"
 " #f"
-"(unsafe-immutable-hash-iterate-first ht_60))))))"
+"(unsafe-immutable-hash-iterate-first ht_58))))))"
 "(if(pair? best-scopes_0)"
 "(let-values()"
 "(if(fallback? smss_25)"
@@ -10824,12 +10757,12 @@ static const char *startup_source =
 "(resolve-cache-set!"
 " sym_17"
 " phase_16"
-"(syntax-scopes s_152)"
+"(syntax-scopes s_153)"
 "(fallback-first smss_25)"
 " best-binding_0)"
-"(if(let-values(((or-part_127)(not exactly?_0)))"
-"(if or-part_127"
-" or-part_127"
+"(if(let-values(((or-part_130)(not exactly?_0)))"
+"(if or-part_130"
+" or-part_130"
 "(eqv?"
 "(set-count scopes_17)"
 "(set-count best-scopes_0))))"
@@ -10840,14 +10773,14 @@ static const char *startup_source =
 "(resolve-cache-set!"
 " sym_17"
 " phase_16"
-"(syntax-scopes s_152)"
+"(syntax-scopes s_153)"
 "(fallback-first smss_25)"
 " '#:none)"
 "(if(fallback? smss_25)"
 "(fallback-loop_0(fallback-rest smss_25))"
 " #f))))))))))))))"
 " fallback-loop_0)"
-"(syntax-shifted-multi-scopes s_152)))))))))))))"
+"(syntax-shifted-multi-scopes s_153)))))))))))))"
 "(define-values"
 "(bound-identifier=?$1)"
 "(lambda(a_32 b_41 phase_17)"
@@ -10891,28 +10824,28 @@ static const char *startup_source =
 "(lambda(key_33 free=id_3)(begin(full-local-binding1.1 #f free=id_3 key_33))))"
 "(define-values"
 "(make-local-binding7.1)"
-"(lambda(frame-id2_0 frame-id4_0 free=id3_0 free=id5_0 key6_0)"
+"(lambda(frame-id2_0 free=id3_0 key6_0)"
 "(begin"
 " 'make-local-binding7"
 "(let-values(((key_34) key6_0))"
-"(let-values(((frame-id_2)(if frame-id4_0 frame-id2_0 #f)))"
-"(let-values(((free=id_4)(if free=id5_0 free=id3_0 #f)))"
+"(let-values(((frame-id_2) frame-id2_0))"
+"(let-values(((free=id_4) free=id3_0))"
 "(let-values()"
 "(if(if(not frame-id_2)(not free=id_4) #f)"
 "(let-values() key_34)"
 "(let-values()(full-local-binding1.1 frame-id_2 free=id_4 key_34))))))))))"
 "(define-values"
 "(local-binding-update17.1)"
-"(lambda(frame-id11_0 frame-id14_0 free=id12_0 free=id15_0 key10_0 key13_0 b16_0)"
+"(lambda(frame-id11_0 free=id12_0 key10_0 b16_0)"
 "(begin"
 " 'local-binding-update17"
 "(let-values(((b_44) b16_0))"
-"(let-values(((key_12)(if key13_0 key10_0(local-binding-key b_44))))"
-"(let-values(((frame-id_3)(if frame-id14_0 frame-id11_0(binding-frame-id b_44))))"
-"(let-values(((free=id_5)(if free=id15_0 free=id12_0(binding-free=id b_44))))"
+"(let-values(((key_35)(if(eq? key10_0 unsafe-undefined)(local-binding-key b_44) key10_0)))"
+"(let-values(((frame-id_3)(if(eq? frame-id11_0 unsafe-undefined)(binding-frame-id b_44) frame-id11_0)))"
+"(let-values(((free=id_5)(if(eq? free=id12_0 unsafe-undefined)(binding-free=id b_44) free=id12_0)))"
 "(let-values()"
-"(let-values(((key21_0) key_12)((frame-id22_0) frame-id_3)((free=id23_0) free=id_5))"
-"(make-local-binding7.1 frame-id22_0 #t free=id23_0 #t key21_0))))))))))"
+"(let-values(((key21_0) key_35)((frame-id22_0) frame-id_3)((free=id23_0) free=id_5))"
+"(make-local-binding7.1 frame-id22_0 free=id23_0 key21_0))))))))))"
 "(define-values"
 "(local-binding-key)"
 "(lambda(b_45)(begin(if(full-local-binding? b_45)(full-local-binding-key b_45) b_45))))"
@@ -10965,15 +10898,15 @@ static const char *startup_source =
 "(values))))"
 "(let-values(((ref_0)(list-ref info_1 3)))"
 "(if(identifier? v_26)"
-"(let-values()(lambda(t_35) v_26))"
+"(let-values()(lambda(t_36) v_26))"
 "(if(integer? v_26)"
 "(let-values()"
-"(lambda(t_36)"
-"(let-values(((val_21)(ref_0 t_36 v_26)))"
+"(lambda(t_37)"
+"(let-values(((val_21)(ref_0 t_37 v_26)))"
 "(if(identifier? val_21) val_21(datum->syntax$1 #f '?)))))"
 "(let-values()"
-"(lambda(t_14)"
-"(let-values(((id_0)(call-with-continuation-prompt(lambda()(v_26 t_14)))))"
+"(lambda(t_15)"
+"(let-values(((id_0)(call-with-continuation-prompt(lambda()(v_26 t_15)))))"
 "(begin"
 "(if(identifier? id_0)"
 "(void)"
@@ -11014,7 +10947,7 @@ static const char *startup_source =
 "(id-rename-transformer1.1 id_1)))))"
 "(define-values"
 "(1/rename-transformer-target)"
-"(lambda(t_37)(begin 'rename-transformer-target((rename-transformer-value t_37) t_37))))"
+"(lambda(t_38)(begin 'rename-transformer-target((rename-transformer-value t_38) t_38))))"
 "(define-values"
 "(free-identifier=?$1)"
 "(lambda(a_33 b_46 a-phase_0 b-phase_0)"
@@ -11022,12 +10955,12 @@ static const char *startup_source =
 " 'free-identifier=?"
 "(let-values(((ab_0)"
 "(toplevel-as-symbol"
-"(let-values(((a47_0) a_33)((a-phase48_0) a-phase_0)((temp49_0) #t))"
-"(resolve+shift30.1 #f #f #f #f #f #f #f #f temp49_0 #t a47_0 a-phase48_0)))))"
+"(let-values(((a43_0) a_33)((a-phase44_0) a-phase_0)((temp45_0) #t))"
+"(resolve+shift28.1 #f #f null unsafe-undefined temp45_0 a43_0 a-phase44_0)))))"
 "(let-values(((bb_0)"
 "(toplevel-as-symbol"
-"(let-values(((b50_0) b_46)((b-phase51_0) b-phase_0)((temp52_0) #t))"
-"(resolve+shift30.1 #f #f #f #f #f #f #f #f temp52_0 #t b50_0 b-phase51_0)))))"
+"(let-values(((b46_0) b_46)((b-phase47_0) b-phase_0)((temp48_0) #t))"
+"(resolve+shift28.1 #f #f null unsafe-undefined temp48_0 b46_0 b-phase47_0)))))"
 "(if(let-values(((or-part_3)(symbol? ab_0)))(if or-part_3 or-part_3(symbol? bb_0)))"
 "(let-values()(eq? ab_0 bb_0))"
 "(let-values()(same-binding? ab_0 bb_0))))))))"
@@ -11073,8 +11006,8 @@ static const char *startup_source =
 "(begin"
 " 'identifier-binding-symbol"
 "(let-values(((b_43)"
-"(let-values(((id53_0) id_2)((phase54_1) phase_18)((temp55_0) #t))"
-"(resolve+shift30.1 #f #f #f #f #f #f #f #f temp55_0 #t id53_0 phase54_1))))"
+"(let-values(((id49_0) id_2)((phase50_0) phase_18)((temp51_0) #t))"
+"(resolve+shift28.1 #f #f null unsafe-undefined temp51_0 id49_0 phase50_0))))"
 "(if(symbol? b_43)"
 "(let-values() b_43)"
 "(if(module-binding? b_43)"
@@ -11082,17 +11015,17 @@ static const char *startup_source =
 "(if(local-binding? b_43)(let-values()(local-binding-key b_43))(let-values()(syntax-e$1 id_2)))))))))"
 "(define-values"
 "(identifier-binding$1)"
-"(let-values(((identifier-binding5_0)"
-"(lambda(id3_0 phase4_0 top-level-symbol?1_0 top-level-symbol?2_0)"
+"(let-values(((identifier-binding4_0)"
+"(lambda(id2_0 phase3_0 top-level-symbol?1_0)"
 "(begin"
-" 'identifier-binding5"
-"(let-values(((id_3) id3_0))"
-"(let-values(((phase_19) phase4_0))"
-"(let-values(((top-level-symbol?_0)(if top-level-symbol?2_0 top-level-symbol?1_0 #f)))"
+" 'identifier-binding4"
+"(let-values(((id_3) id2_0))"
+"(let-values(((phase_19) phase3_0))"
+"(let-values(((top-level-symbol?_0) top-level-symbol?1_0))"
 "(let-values()"
 "(let-values(((b_48)"
-"(let-values(((id56_0) id_3)((phase57_0) phase_19))"
-"(resolve+shift30.1 #f #f #f #f #f #f #f #f #f #f id56_0 phase57_0))))"
+"(let-values(((id52_0) id_3)((phase53_0) phase_19))"
+"(resolve+shift28.1 #f #f null unsafe-undefined #f id52_0 phase53_0))))"
 "(if(module-binding? b_48)"
 "(let-values()"
 "(if(top-level-module-path-index?(module-binding-module b_48))"
@@ -11107,8 +11040,8 @@ static const char *startup_source =
 "(module-binding-nominal-phase b_48))))"
 "(if(local-binding? b_48)(let-values() 'lexical)(let-values() #f))))))))))))"
 "(case-lambda"
-"((id_4 phase_20)(begin 'identifier-binding(identifier-binding5_0 id_4 phase_20 #f #f)))"
-"((id_5 phase_21 top-level-symbol?1_1)(identifier-binding5_0 id_5 phase_21 top-level-symbol?1_1 #t)))))"
+"((id_4 phase_20)(begin 'identifier-binding(identifier-binding4_0 id_4 phase_20 #f)))"
+"((id_5 phase_21 top-level-symbol?1_1)(identifier-binding4_0 id_5 phase_21 top-level-symbol?1_1)))))"
 "(define-values"
 "(maybe-install-free=id!)"
 "(lambda(val_22 id_6 phase_22)"
@@ -11120,12 +11053,12 @@ static const char *startup_source =
 "(void)"
 "(let-values()"
 "(let-values(((b_49)"
-"(let-values(((id61_0) id_6)((phase62_0) phase_22)((temp63_0) #t)((temp64_0) #t))"
-"(resolve+shift30.1 #f #f temp63_0 #t #f #f temp64_0 #t #f #f id61_0 phase62_0))))"
-"(let-values(((temp58_0)(syntax-scope-set id_6 phase_22))"
-"((temp59_0)(syntax-e$1 id_6))"
-"((temp60_0)(binding-set-free=id b_49 free=id_6)))"
-"(add-binding-in-scopes!21.1 #f #f temp58_0 temp59_0 temp60_0)))))))"
+"(let-values(((id57_0) id_6)((phase58_0) phase_22)((temp59_0) #t)((temp60_0) #t))"
+"(resolve+shift28.1 #f temp59_0 null temp60_0 #f id57_0 phase58_0))))"
+"(let-values(((temp54_0)(syntax-scope-set id_6 phase_22))"
+"((temp55_0)(syntax-e$1 id_6))"
+"((temp56_0)(binding-set-free=id b_49 free=id_6)))"
+"(add-binding-in-scopes!20.1 #f temp54_0 temp55_0 temp56_0)))))))"
 "(void)))))"
 "(define-values"
 "(binding-set-free=id)"
@@ -11133,170 +11066,139 @@ static const char *startup_source =
 "(begin"
 "(if(module-binding? b_50)"
 "(let-values()"
-"(let-values(((b65_1) b_50)((free=id66_0) free=id_7))"
+"(let-values(((b61_0) b_50)((free=id62_0) free=id_7))"
 "(module-binding-update48.1"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" free=id66_0"
-" #t"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" b65_1)))"
+" unsafe-undefined"
+" unsafe-undefined"
+" unsafe-undefined"
+" free=id62_0"
+" unsafe-undefined"
+" unsafe-undefined"
+" unsafe-undefined"
+" unsafe-undefined"
+" unsafe-undefined"
+" unsafe-undefined"
+" unsafe-undefined"
+" b61_0)))"
 "(if(local-binding? b_50)"
 "(let-values()"
-"(let-values(((b67_0) b_50)((free=id68_0) free=id_7))"
-"(local-binding-update17.1 #f #f free=id68_0 #t #f #f b67_0)))"
+"(let-values(((b63_0) b_50)((free=id64_0) free=id_7))"
+"(local-binding-update17.1 unsafe-undefined free=id64_0 unsafe-undefined b63_0)))"
 "          (let-values () (error \"bad binding for free=id:\" b_50)))))))"
 "(define-values"
-"(struct:non-source-shift non-source-shift7.1 non-source-shift? non-source-shift-from non-source-shift-to)"
-"(let-values(((struct:_14 make-_14 ?_14 -ref_14 -set!_14)"
+"(struct:non-source-shift non-source-shift6.1 non-source-shift? non-source-shift-from non-source-shift-to)"
+"(let-values(((struct:_32 make-_32 ?_32 -ref_32 -set!_32)"
 "(let-values()"
 "(let-values()"
 "(make-struct-type 'non-source-shift #f 2 0 #f null 'prefab #f '(0 1) #f 'non-source-shift)))))"
 "(values"
-" struct:_14"
-" make-_14"
-" ?_14"
-"(make-struct-field-accessor -ref_14 0 'from)"
-"(make-struct-field-accessor -ref_14 1 'to))))"
-"(define-values(shift-from)(lambda(s_154)(begin(if(pair? s_154)(car s_154)(non-source-shift-from s_154)))))"
+" struct:_32"
+" make-_32"
+" ?_32"
+"(make-struct-field-accessor -ref_32 0 'from)"
+"(make-struct-field-accessor -ref_32 1 'to))))"
+"(define-values(shift-from)(lambda(s_15)(begin(if(pair? s_15)(car s_15)(non-source-shift-from s_15)))))"
 "(define-values(shift-to)(lambda(s_155)(begin(if(pair? s_155)(cdr s_155)(non-source-shift-to s_155)))))"
 "(define-values"
-"(syntax-module-path-index-shift15.1)"
-"(lambda(non-source?8_0 non-source?9_0 s12_0 from-mpi13_0 to-mpi14_0 inspector10_0 inspector11_0)"
+"(syntax-module-path-index-shift13.1)"
+"(lambda(non-source?7_0 s10_0 from-mpi11_0 to-mpi12_0 inspector9_0)"
 "(begin"
-" 'syntax-module-path-index-shift15"
-"(let-values(((s_156) s12_0))"
-"(let-values(((from-mpi_1) from-mpi13_0))"
-"(let-values(((to-mpi_1) to-mpi14_0))"
-"(let-values(((inspector_3)(if inspector11_0 inspector10_0 #f)))"
-"(let-values(((non-source?_0)(if non-source?9_0 non-source?8_0 #f)))"
+" 'syntax-module-path-index-shift13"
+"(let-values(((s_19) s10_0))"
+"(let-values(((from-mpi_1) from-mpi11_0))"
+"(let-values(((to-mpi_1) to-mpi12_0))"
+"(let-values(((inspector_3) inspector9_0))"
+"(let-values(((non-source?_0) non-source?7_0))"
 "(let-values()"
 "(if(eq? from-mpi_1 to-mpi_1)"
-"(let-values()(if inspector_3(syntax-set-inspector s_156 inspector_3) s_156))"
+"(let-values()(if inspector_3(syntax-set-inspector s_19 inspector_3) s_19))"
 "(let-values()"
 "(let-values(((shift_0)"
 "(if non-source?_0"
-"(non-source-shift7.1 from-mpi_1 to-mpi_1)"
+"(non-source-shift6.1 from-mpi_1 to-mpi_1)"
 "(cons from-mpi_1 to-mpi_1))))"
-"(let-values(((the-struct_11) s_156))"
-"(if(syntax?$1 the-struct_11)"
-"(let-values(((mpi-shifts70_0)(cons shift_0(syntax-mpi-shifts s_156)))"
-"((inspector71_0)"
-"(let-values(((or-part_24)(syntax-inspector s_156)))"
-"(if or-part_24 or-part_24 inspector_3)))"
-"((scope-propagations+tamper72_0)"
-"(if(datum-has-elements?(syntax-content s_156))"
+"(let-values(((the-struct_31) s_19))"
+"(if(syntax?$1 the-struct_31)"
+"(let-values(((mpi-shifts66_0)(cons shift_0(syntax-mpi-shifts s_19)))"
+"((inspector67_0)"
+"(let-values(((or-part_131)(syntax-inspector s_19)))"
+"(if or-part_131 or-part_131 inspector_3)))"
+"((scope-propagations+tamper68_0)"
+"(if(datum-has-elements?(syntax-content s_19))"
 "(propagation-mpi-shift"
-"(syntax-scope-propagations+tamper s_156)"
-"(lambda(s_157)(cons shift_0 s_157))"
+"(syntax-scope-propagations+tamper s_19)"
+"(lambda(s_156)(cons shift_0 s_156))"
 " inspector_3"
-"(syntax-scopes s_156)"
-"(syntax-shifted-multi-scopes s_156)"
-"(syntax-mpi-shifts s_156))"
-"(syntax-scope-propagations+tamper s_156))))"
+"(syntax-scopes s_19)"
+"(syntax-shifted-multi-scopes s_19)"
+"(syntax-mpi-shifts s_19))"
+"(syntax-scope-propagations+tamper s_19))))"
 "(syntax1.1"
-"(syntax-content the-struct_11)"
-"(syntax-scopes the-struct_11)"
-"(syntax-shifted-multi-scopes the-struct_11)"
-" scope-propagations+tamper72_0"
-" mpi-shifts70_0"
-"(syntax-srcloc the-struct_11)"
-"(syntax-props the-struct_11)"
-" inspector71_0))"
-"                            (raise-argument-error 'struct-copy \"syntax?\" the-struct_11)))))))))))))))"
+"(syntax-content the-struct_31)"
+"(syntax-scopes the-struct_31)"
+"(syntax-shifted-multi-scopes the-struct_31)"
+" scope-propagations+tamper68_0"
+" mpi-shifts66_0"
+"(syntax-srcloc the-struct_31)"
+"(syntax-props the-struct_31)"
+" inspector67_0))"
+"                            (raise-argument-error 'struct-copy \"syntax?\" the-struct_31)))))))))))))))"
 "(define-values"
-"(resolve+shift30.1)"
-"(lambda(ambiguous-value18_0"
-" ambiguous-value23_0"
-" exactly?19_0"
-" exactly?24_0"
-" extra-shifts22_0"
-" extra-shifts27_0"
-" immediate?20_0"
-" immediate?25_0"
-" unbound-sym?21_0"
-" unbound-sym?26_0"
-" s28_0"
-" phase29_0)"
+"(resolve+shift28.1)"
+"(lambda(ambiguous-value16_0 exactly?17_0 extra-shifts20_0 immediate?18_0 unbound-sym?19_0 s26_0 phase27_0)"
 "(begin"
-" 'resolve+shift30"
-"(let-values(((s_158) s28_0))"
-"(let-values(((phase_23) phase29_0))"
-"(let-values(((ambiguous-value_1)(if ambiguous-value23_0 ambiguous-value18_0 #f)))"
-"(let-values(((exactly?_1)(if exactly?24_0 exactly?19_0 #f)))"
-"(let-values(((immediate?_0)(if immediate?25_0 immediate?20_0 exactly?_1)))"
-"(let-values(((unbound-sym?_0)(if unbound-sym?26_0 unbound-sym?21_0 #f)))"
-"(let-values(((extra-shifts_4)(if extra-shifts27_0 extra-shifts22_0 null)))"
+" 'resolve+shift28"
+"(let-values(((s_157) s26_0))"
+"(let-values(((phase_8) phase27_0))"
+"(let-values(((ambiguous-value_1) ambiguous-value16_0))"
+"(let-values(((exactly?_1) exactly?17_0))"
+"(let-values(((immediate?_0)(if(eq? immediate?18_0 unsafe-undefined) exactly?_1 immediate?18_0)))"
+"(let-values(((unbound-sym?_0) unbound-sym?19_0))"
+"(let-values(((extra-shifts_4) extra-shifts20_0))"
 "(let-values()"
 "(let-values(((can-cache?_0)"
 "(if(not exactly?_1)(if(not immediate?_0)(null? extra-shifts_4) #f) #f)))"
-"(let-values(((c1_23)(if can-cache?_0(resolve+shift-cache-get s_158 phase_23) #f)))"
+"(let-values(((c1_23)(if can-cache?_0(resolve+shift-cache-get s_157 phase_8) #f)))"
 "(if c1_23"
-"((lambda(b_51)(if(eq? b_51 '#:none)(if unbound-sym?_0(syntax-content s_158) #f) b_51))"
+"((lambda(b_51)(if(eq? b_51 '#:none)(if unbound-sym?_0(syntax-content s_157) #f) b_51))"
 " c1_23)"
 "(let-values()"
 "(let-values(((immediate-b_0)"
-"(let-values(((s73_0) s_158)"
-"((phase74_0) phase_23)"
-"((ambiguous-value75_0) ambiguous-value_1)"
-"((exactly?76_0) exactly?_1)"
-"((extra-shifts77_0) extra-shifts_4))"
-"(resolve41.1"
-" ambiguous-value75_0"
-" #t"
-" exactly?76_0"
-" #t"
-" extra-shifts77_0"
-" #t"
+"(let-values(((s69_0) s_157)"
+"((phase70_0) phase_8)"
+"((ambiguous-value71_0) ambiguous-value_1)"
+"((exactly?72_0) exactly?_1)"
+"((extra-shifts73_0) extra-shifts_4))"
+"(resolve40.1"
+" ambiguous-value71_0"
+" exactly?72_0"
+" extra-shifts73_0"
 " #f"
-" #f"
-" s73_0"
-" phase74_0))))"
+" s69_0"
+" phase70_0))))"
 "(let-values(((b_52)"
 "(if(if immediate-b_0"
 "(if(not immediate?_0)(binding-free=id immediate-b_0) #f)"
 " #f)"
-"(let-values(((temp78_0)(binding-free=id immediate-b_0))"
-"((phase79_0) phase_23)"
-"((temp80_0)"
-"(append extra-shifts_4(syntax-mpi-shifts s_158)))"
-"((ambiguous-value81_0) ambiguous-value_1)"
-"((exactly?82_0) exactly?_1)"
-"((unbound-sym?83_0) unbound-sym?_0))"
-"(resolve+shift30.1"
-" ambiguous-value81_0"
-" #t"
-" exactly?82_0"
-" #t"
-" temp80_0"
-" #t"
-" #f"
-" #f"
-" unbound-sym?83_0"
-" #t"
-" temp78_0"
-" phase79_0))"
+"(let-values(((temp74_0)(binding-free=id immediate-b_0))"
+"((phase75_0) phase_8)"
+"((temp76_0)"
+"(append extra-shifts_4(syntax-mpi-shifts s_157)))"
+"((ambiguous-value77_0) ambiguous-value_1)"
+"((exactly?78_0) exactly?_1)"
+"((unbound-sym?79_0) unbound-sym?_0))"
+"(resolve+shift28.1"
+" ambiguous-value77_0"
+" exactly?78_0"
+" temp76_0"
+" unsafe-undefined"
+" unbound-sym?79_0"
+" temp74_0"
+" phase75_0))"
 " immediate-b_0)))"
 "(if(module-binding? b_52)"
 "(let-values()"
-"(let-values(((mpi-shifts_2)(syntax-mpi-shifts s_158)))"
+"(let-values(((mpi-shifts_2)(syntax-mpi-shifts s_157)))"
 "(if(null? mpi-shifts_2)"
 "(let-values() b_52)"
 "(let-values()"
@@ -11318,25 +11220,23 @@ static const char *startup_source =
 " #f)"
 " #f)"
 " b_52"
-"(let-values(((b84_0) b_52)"
-"((shifted-mod85_0) shifted-mod_0)"
-"((shifted-nominal-mod86_0)"
+"(let-values(((b80_0) b_52)"
+"((shifted-mod81_0) shifted-mod_0)"
+"((shifted-nominal-mod82_0)"
 " shifted-nominal-mod_0)"
-"((temp87_0)"
+"((temp83_0)"
 "(if(binding-free=id b_52)"
-"(let-values(((temp89_0)"
+"(let-values(((temp85_0)"
 "(binding-free=id"
 " b_52))"
-"((s90_0) s_158))"
-"(syntax-transfer-shifts39.1"
-" #f"
-" #f"
-" temp89_0"
-" s90_0"
+"((s86_0) s_157))"
+"(syntax-transfer-shifts36.1"
 " #f"
+" temp85_0"
+" s86_0"
 " #f))"
 " #f))"
-"((temp88_0)"
+"((temp84_0)"
 "(reverse$1"
 "(let-values(((lst_50)"
 "(module-binding-extra-nominal-bindings"
@@ -11384,33 +11284,22 @@ static const char *startup_source =
 " null"
 " lst_50))))))"
 "(module-binding-update48.1"
-" #f"
-" #f"
-" temp88_0"
-" #t"
-" #f"
-" #f"
-" temp87_0"
-" #t"
-" shifted-mod85_0"
-" #t"
-" shifted-nominal-mod86_0"
-" #t"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" b84_0)))))"
+" unsafe-undefined"
+" temp84_0"
+" unsafe-undefined"
+" temp83_0"
+" shifted-mod81_0"
+" shifted-nominal-mod82_0"
+" unsafe-undefined"
+" unsafe-undefined"
+" unsafe-undefined"
+" unsafe-undefined"
+" unsafe-undefined"
+" b80_0)))))"
 "(begin"
 "(if can-cache?_0"
 "(let-values()"
-"(resolve+shift-cache-set! s_158 phase_23 result-b_0))"
+"(resolve+shift-cache-set! s_157 phase_8 result-b_0))"
 "(void))"
 " result-b_0))))))))))"
 "(let-values()"
@@ -11418,14 +11307,14 @@ static const char *startup_source =
 "(if can-cache?_0"
 "(let-values()"
 "(resolve+shift-cache-set!"
-" s_158"
-" phase_23"
-"(let-values(((or-part_128) b_52))(if or-part_128 or-part_128 '#:none))))"
+" s_157"
+" phase_8"
+"(let-values(((or-part_132) b_52))(if or-part_132 or-part_132 '#:none))))"
 "(void))"
-"(let-values(((or-part_129) b_52))"
-"(if or-part_129"
-" or-part_129"
-"(if unbound-sym?_0(syntax-content s_158) #f)))))))))))))))))))))))"
+"(let-values(((or-part_56) b_52))"
+"(if or-part_56"
+" or-part_56"
+"(if unbound-sym?_0(syntax-content s_157) #f)))))))))))))))))))))))"
 "(define-values"
 "(apply-syntax-shifts)"
 "(lambda(mpi_12 shifts_0)"
@@ -11452,10 +11341,10 @@ static const char *startup_source =
 "(begin"
 "(if(module-binding? b_55)"
 "(let-values()"
-"(let-values(((b91_0) b_55)"
-"((temp92_0)(module-path-index-shift(module-binding-module b_55) from-mpi_2 to-mpi_2))"
-"((temp93_0)(module-path-index-shift(module-binding-nominal-module b_55) from-mpi_2 to-mpi_2))"
-"((temp94_0)"
+"(let-values(((b87_0) b_55)"
+"((temp88_0)(module-path-index-shift(module-binding-module b_55) from-mpi_2 to-mpi_2))"
+"((temp89_1)(module-path-index-shift(module-binding-nominal-module b_55) from-mpi_2 to-mpi_2))"
+"((temp90_0)"
 "(reverse$1"
 "(let-values(((lst_52)(module-binding-extra-nominal-bindings b_55)))"
 "(begin"
@@ -11467,7 +11356,7 @@ static const char *startup_source =
 "(begin"
 " 'for-loop"
 "(if(pair? lst_53)"
-"(let-values(((b_56)(unsafe-car lst_53))"
+"(let-values(((b_38)(unsafe-car lst_53))"
 "((rest_23)(unsafe-cdr lst_53)))"
 "(let-values(((fold-var_40)"
 "(let-values(((fold-var_41) fold-var_39))"
@@ -11476,7 +11365,7 @@ static const char *startup_source =
 "(cons"
 "(let-values()"
 "(binding-module-path-index-shift"
-" b_56"
+" b_38"
 " from-mpi_2"
 " to-mpi_2))"
 " fold-var_41))))"
@@ -11487,43 +11376,32 @@ static const char *startup_source =
 " null"
 " lst_52))))))"
 "(module-binding-update48.1"
-" #f"
-" #f"
-" temp94_0"
-" #t"
-" #f"
-" #f"
-" #f"
-" #f"
-" temp92_0"
-" #t"
-" temp93_0"
-" #t"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" b91_0)))"
+" unsafe-undefined"
+" temp90_0"
+" unsafe-undefined"
+" unsafe-undefined"
+" temp88_0"
+" temp89_1"
+" unsafe-undefined"
+" unsafe-undefined"
+" unsafe-undefined"
+" unsafe-undefined"
+" unsafe-undefined"
+" b87_0)))"
 "(let-values() b_55)))))"
 "(define-values"
-"(syntax-transfer-shifts39.1)"
-"(lambda(non-source?33_0 non-source?34_0 to-s37_0 from-s38_0 inspector35_0 inspector36_0)"
+"(syntax-transfer-shifts36.1)"
+"(lambda(non-source?31_0 to-s34_0 from-s35_0 inspector33_0)"
 "(begin"
-" 'syntax-transfer-shifts39"
-"(let-values(((to-s_0) to-s37_0))"
-"(let-values(((from-s_1) from-s38_0))"
-"(let-values(((inspector_0)(if inspector36_0 inspector35_0 #f)))"
-"(let-values(((non-source?_1)(if non-source?34_0 non-source?33_0 #f)))"
+" 'syntax-transfer-shifts36"
+"(let-values(((to-s_0) to-s34_0))"
+"(let-values(((from-s_1) from-s35_0))"
+"(let-values(((inspector_4) inspector33_0))"
+"(let-values(((non-source?_1) non-source?31_0))"
 "(let-values()"
 "(let-values(((shifts_2)(syntax-mpi-shifts from-s_1)))"
-"(if(if(null? shifts_2) inspector_0 #f)"
-"(let-values()(syntax-set-inspector to-s_0 inspector_0))"
+"(if(if(null? shifts_2) inspector_4 #f)"
+"(let-values()(syntax-set-inspector to-s_0 inspector_4))"
 "(let-values()"
 "(let-values(((lst_54)(reverse$1 shifts_2))((start_12) 0))"
 "(begin"
@@ -11534,102 +11412,100 @@ static const char *startup_source =
 "(void)"
 "(let-values()(check-naturals start_12)))"
 "((letrec-values(((for-loop_76)"
-"(lambda(s_159 lst_55 pos_9)"
+"(lambda(s_158 lst_55 pos_10)"
 "(begin"
 " 'for-loop"
 "(if(if(pair? lst_55) #t #f)"
 "(let-values(((shift_3)(unsafe-car lst_55))"
 "((rest_24)(unsafe-cdr lst_55))"
-"((i_77) pos_9))"
-"(let-values(((s_160)"
-"(let-values(((s_161) s_159))"
-"(let-values(((s_162)"
+"((i_81) pos_10))"
+"(let-values(((s_159)"
+"(let-values(((s_39) s_158))"
+"(let-values(((s_97)"
 "(let-values()"
-"(let-values(((s95_0) s_161)"
-"((temp96_0)"
+"(let-values(((s91_0) s_39)"
+"((temp92_0)"
 "(shift-from shift_3))"
-"((temp97_0)"
+"((temp93_0)"
 "(shift-to shift_3))"
-"((temp98_0)"
-"(if(zero? i_77)"
-" inspector_0"
+"((temp94_0)"
+"(if(zero? i_81)"
+" inspector_4"
 " #f))"
-"((non-source?99_0)"
+"((non-source?95_0)"
 " non-source?_1))"
-"(syntax-module-path-index-shift15.1"
-" non-source?99_0"
-" #t"
-" s95_0"
-" temp96_0"
-" temp97_0"
-" temp98_0"
-" #t)))))"
-"(values s_162)))))"
-"(if(not #f)(for-loop_76 s_160 rest_24(+ pos_9 1)) s_160)))"
-" s_159)))))"
+"(syntax-module-path-index-shift13.1"
+" non-source?95_0"
+" s91_0"
+" temp92_0"
+" temp93_0"
+" temp94_0)))))"
+"(values s_97)))))"
+"(if(not #f)(for-loop_76 s_159 rest_24(+ pos_10 1)) s_159)))"
+" s_158)))))"
 " for-loop_76)"
 " to-s_0"
 " lst_54"
 " start_12))))))))))))))"
 "(define-values"
 "(syntax-set-inspector)"
-"(lambda(s_103 insp_3)"
+"(lambda(s_160 insp_3)"
 "(begin"
-"(let-values(((the-struct_31) s_103))"
-"(if(syntax?$1 the-struct_31)"
-"(let-values(((inspector100_0)"
-"(let-values(((or-part_130)(syntax-inspector s_103)))(if or-part_130 or-part_130 insp_3)))"
-"((scope-propagations+tamper101_0)"
-"(if(datum-has-elements?(syntax-content s_103))"
+"(let-values(((the-struct_32) s_160))"
+"(if(syntax?$1 the-struct_32)"
+"(let-values(((inspector96_0)"
+"(let-values(((or-part_133)(syntax-inspector s_160)))(if or-part_133 or-part_133 insp_3)))"
+"((scope-propagations+tamper97_0)"
+"(if(datum-has-elements?(syntax-content s_160))"
 "(propagation-mpi-shift"
-"(syntax-scope-propagations+tamper s_103)"
+"(syntax-scope-propagations+tamper s_160)"
 " #f"
 " insp_3"
-"(syntax-scopes s_103)"
-"(syntax-shifted-multi-scopes s_103)"
-"(syntax-mpi-shifts s_103))"
-"(syntax-scope-propagations+tamper s_103))))"
+"(syntax-scopes s_160)"
+"(syntax-shifted-multi-scopes s_160)"
+"(syntax-mpi-shifts s_160))"
+"(syntax-scope-propagations+tamper s_160))))"
 "(syntax1.1"
-"(syntax-content the-struct_31)"
-"(syntax-scopes the-struct_31)"
-"(syntax-shifted-multi-scopes the-struct_31)"
-" scope-propagations+tamper101_0"
-"(syntax-mpi-shifts the-struct_31)"
-"(syntax-srcloc the-struct_31)"
-"(syntax-props the-struct_31)"
-" inspector100_0))"
-"          (raise-argument-error 'struct-copy \"syntax?\" the-struct_31))))))"
+"(syntax-content the-struct_32)"
+"(syntax-scopes the-struct_32)"
+"(syntax-shifted-multi-scopes the-struct_32)"
+" scope-propagations+tamper97_0"
+"(syntax-mpi-shifts the-struct_32)"
+"(syntax-srcloc the-struct_32)"
+"(syntax-props the-struct_32)"
+" inspector96_0))"
+"          (raise-argument-error 'struct-copy \"syntax?\" the-struct_32))))))"
 "(define-values"
 "(1/syntax-source-module)"
-"(let-values(((syntax-source-module45_0)"
-"(lambda(s44_0 source?42_0 source?43_0)"
+"(let-values(((syntax-source-module41_0)"
+"(lambda(s40_0 source?39_0)"
 "(begin"
-" 'syntax-source-module45"
-"(let-values(((s_163) s44_0))"
-"(let-values(((source?_0)(if source?43_0 source?42_0 #f)))"
+" 'syntax-source-module41"
+"(let-values(((s_161) s40_0))"
+"(let-values(((source?_0) source?39_0))"
 "(let-values()"
 "(begin"
-"(if(syntax?$1 s_163)"
+"(if(syntax?$1 s_161)"
 "(void)"
-"                              (let-values () (raise-argument-error 'syntax-track-origin \"syntax?\" s_163)))"
-"(let-values(((lst_56)(reverse$1(syntax-mpi-shifts s_163))))"
+"                              (let-values () (raise-argument-error 'syntax-track-origin \"syntax?\" s_161)))"
+"(let-values(((lst_56)(reverse$1(syntax-mpi-shifts s_161))))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
 "(let-values()(check-list lst_56)))"
-"((letrec-values(((for-loop_77)"
-"(lambda(result_51 lst_42)"
+"((letrec-values(((for-loop_38)"
+"(lambda(result_49 lst_57)"
 "(begin"
 " 'for-loop"
-"(if(pair? lst_42)"
-"(let-values(((shift_4)(unsafe-car lst_42))"
-"((rest_25)(unsafe-cdr lst_42)))"
-"(let-values(((result_52)"
-"(let-values(((result_53) result_51))"
+"(if(pair? lst_57)"
+"(let-values(((shift_4)(unsafe-car lst_57))"
+"((rest_25)(unsafe-cdr lst_57)))"
+"(let-values(((result_50)"
+"(let-values(((result_51) result_49))"
 "(if(non-source-shift? shift_4)"
-" result_53"
+" result_51"
 "(let-values()"
-"(let-values(((result_54)"
+"(let-values(((result_52)"
 "(let-values()"
 "(let-values()"
 "(let-values(((from-mpi_3)"
@@ -11646,7 +11522,7 @@ static const char *startup_source =
 "(apply-syntax-shifts"
 " from-mpi_3"
 "(syntax-mpi-shifts"
-" s_163))))"
+" s_161))))"
 "(if source?_0"
 "(1/resolved-module-path-name"
 "(1/module-path-index-resolve"
@@ -11655,17 +11531,17 @@ static const char *startup_source =
 " mpi_13))"
 " #f)"
 " #f)))))))"
-"(values result_54)))))))"
-"(if(if(not((lambda x_37 result_52) shift_4))(not #f) #f)"
-"(for-loop_77 result_52 rest_25)"
-" result_52)))"
-" result_51)))))"
-" for-loop_77)"
+"(values result_52)))))))"
+"(if(if(not((lambda x_37 result_50) shift_4))(not #f) #f)"
+"(for-loop_38 result_50 rest_25)"
+" result_50)))"
+" result_49)))))"
+" for-loop_38)"
 " #f"
 " lst_56)))))))))))"
 "(case-lambda"
-"((s_164)(begin 'syntax-source-module(syntax-source-module45_0 s_164 #f #f)))"
-"((s_165 source?42_1)(syntax-source-module45_0 s_165 source?42_1 #t)))))"
+"((s_162)(begin 'syntax-source-module(syntax-source-module41_0 s_162 #f)))"
+"((s_163 source?39_1)(syntax-source-module41_0 s_163 source?39_1)))))"
 "(define-values"
 "(1/identifier-prune-to-source-module)"
 "(lambda(id_7)"
@@ -11675,19 +11551,19 @@ static const char *startup_source =
 "(if(identifier? id_7)"
 "(void)"
 "          (let-values () (raise-argument-error 'identifier-prune-to-source-module \"identifier?\" id_7)))"
-"(let-values(((the-struct_32)(datum->syntax$1 #f(syntax-e$1 id_7) id_7 id_7)))"
-"(if(syntax?$1 the-struct_32)"
-"(let-values(((mpi-shifts102_0)(syntax-mpi-shifts id_7)))"
+"(let-values(((the-struct_33)(datum->syntax$1 #f(syntax-e$1 id_7) id_7 id_7)))"
+"(if(syntax?$1 the-struct_33)"
+"(let-values(((mpi-shifts98_0)(syntax-mpi-shifts id_7)))"
 "(syntax1.1"
-"(syntax-content the-struct_32)"
-"(syntax-scopes the-struct_32)"
-"(syntax-shifted-multi-scopes the-struct_32)"
-"(syntax-scope-propagations+tamper the-struct_32)"
-" mpi-shifts102_0"
-"(syntax-srcloc the-struct_32)"
-"(syntax-props the-struct_32)"
-"(syntax-inspector the-struct_32)))"
-"            (raise-argument-error 'struct-copy \"syntax?\" the-struct_32)))))))"
+"(syntax-content the-struct_33)"
+"(syntax-scopes the-struct_33)"
+"(syntax-shifted-multi-scopes the-struct_33)"
+"(syntax-scope-propagations+tamper the-struct_33)"
+" mpi-shifts98_0"
+"(syntax-srcloc the-struct_33)"
+"(syntax-props the-struct_33)"
+"(syntax-inspector the-struct_33)))"
+"            (raise-argument-error 'struct-copy \"syntax?\" the-struct_33)))))))"
 "(define-values"
 "(struct:provided provided1.1 provided? provided-binding provided-protected? provided-syntax?)"
 "(let-values(((struct:_0 make-_0 ?_0 -ref_0 -set!_0)"
@@ -11721,9 +11597,9 @@ static const char *startup_source =
 "(make-struct-field-accessor -ref_0 0 'binding)"
 "(make-struct-field-accessor -ref_0 1 'protected?)"
 "(make-struct-field-accessor -ref_0 2 'syntax?))))"
-"(define-values(provided-as-binding)(lambda(v_86)(begin(if(provided? v_86)(provided-binding v_86) v_86))))"
+"(define-values(provided-as-binding)(lambda(v_87)(begin(if(provided? v_87)(provided-binding v_87) v_87))))"
 "(define-values(provided-as-protected?)(lambda(v_5)(begin(if(provided? v_5)(provided-protected? v_5) #f))))"
-"(define-values(provided-as-transformer?)(lambda(v_87)(begin(if(provided? v_87)(provided-syntax? v_87) #f))))"
+"(define-values(provided-as-transformer?)(lambda(v_88)(begin(if(provided? v_88)(provided-syntax? v_88) #f))))"
 "(define-values"
 "(deserialize-provided)"
 "(lambda(binding_5 protected?_0 syntax?_1)(begin(provided1.1 binding_5 protected?_0 syntax?_1))))"
@@ -11755,27 +11631,16 @@ static const char *startup_source =
 "((null25_0) null))"
 "(module-binding-update48.1"
 " temp24_1"
-" #t"
 " null25_0"
-" #t"
 " temp23_1"
-" #t"
-" #f"
-" #f"
+" unsafe-undefined"
 " temp18_1"
-" #t"
 " mpi19_0"
-" #t"
 " provide-phase-level20_0"
-" #t"
 " phase-shift22_0"
-" #t"
 " sym21_1"
-" #t"
-" #f"
-" #f"
-" #f"
-" #f"
+" unsafe-undefined"
+" unsafe-undefined"
 " binding17_0))))))))))))))"
 "(define-values"
 "(struct:bulk-binding"
@@ -11791,7 +11656,7 @@ static const char *startup_source =
 " bulk-binding-bulk-binding-registry"
 " set-bulk-binding-provides!"
 " set-bulk-binding-self!)"
-"(let-values(((struct:_32 make-_32 ?_32 -ref_32 -set!_32)"
+"(let-values(((struct:_33 make-_33 ?_33 -ref_33 -set!_33)"
 "(let-values()"
 "(let-values()"
 "(make-struct-type"
@@ -11815,26 +11680,26 @@ static const char *startup_source =
 "(cons"
 " prop:bulk-binding"
 "(bulk-binding-class3.1"
-"(lambda(b_57 mpi-shifts_3)"
-"(let-values(((or-part_131)(bulk-binding-provides b_57)))"
-"(if or-part_131"
-" or-part_131"
+"(lambda(b_56 mpi-shifts_3)"
+"(let-values(((or-part_134)(bulk-binding-provides b_56)))"
+"(if or-part_134"
+" or-part_134"
 "(let-values(((mod-name_1)"
 "(1/module-path-index-resolve"
-"(apply-syntax-shifts(bulk-binding-mpi b_57) mpi-shifts_3))))"
+"(apply-syntax-shifts(bulk-binding-mpi b_56) mpi-shifts_3))))"
 "(let-values((()"
 "(begin"
-"(if(bulk-binding-bulk-binding-registry b_57)"
+"(if(bulk-binding-bulk-binding-registry b_56)"
 "(void)"
 "(let-values()"
 "(error"
 "                                                     \"namespace mismatch: no bulk-binding registry available:\""
 " mod-name_1)))"
 "(values))))"
-"(let-values(((table_82)"
+"(let-values(((table_83)"
 "(bulk-binding-registry-table"
-"(bulk-binding-bulk-binding-registry b_57))))"
-"(let-values(((bulk-provide_0)(hash-ref table_82 mod-name_1 #f)))"
+"(bulk-binding-bulk-binding-registry b_56))))"
+"(let-values(((bulk-provide_0)(hash-ref table_83 mod-name_1 #f)))"
 "(let-values((()"
 "(begin"
 "(if bulk-provide_0"
@@ -11846,18 +11711,18 @@ static const char *startup_source =
 "(values))))"
 "(let-values((()"
 "(begin"
-"(set-bulk-binding-self! b_57(bulk-provide-self bulk-provide_0))"
+"(set-bulk-binding-self! b_56(bulk-provide-self bulk-provide_0))"
 "(values))))"
 "(let-values(((provides_0)"
 "(hash-ref"
 "(bulk-provide-provides bulk-provide_0)"
-"(bulk-binding-provide-phase-level b_57))))"
-"(let-values(((excepts_0)(bulk-binding-excepts b_57)))"
-"(let-values(((prefix_0)(bulk-binding-prefix b_57)))"
+"(bulk-binding-provide-phase-level b_56))))"
+"(let-values(((excepts_0)(bulk-binding-excepts b_56)))"
+"(let-values(((prefix_0)(bulk-binding-prefix b_56)))"
 "(let-values(((adjusted-provides_0)"
-"(if(let-values(((or-part_132) prefix_0))"
-"(if or-part_132"
-" or-part_132"
+"(if(let-values(((or-part_135) prefix_0))"
+"(if or-part_135"
+" or-part_135"
 "(positive?(hash-count excepts_0))))"
 "(let-values()"
 "(bulk-provides-add-prefix-remove-exceptions"
@@ -11866,75 +11731,75 @@ static const char *startup_source =
 " excepts_0))"
 "(let-values() provides_0))))"
 "(begin"
-"(set-bulk-binding-provides! b_57 adjusted-provides_0)"
+"(set-bulk-binding-provides! b_56 adjusted-provides_0)"
 " adjusted-provides_0))))))))))))))"
-"(lambda(b_58 binding_7 sym_1)"
+"(lambda(b_57 binding_7 sym_19)"
 "(let-values(((binding27_0) binding_7)"
-"((temp28_2)"
-"(if(bulk-binding-prefix b_58)"
+"((temp28_1)"
+"(if(bulk-binding-prefix b_57)"
 "(string->symbol"
 "(substring"
-"(symbol->string sym_1)"
-"(string-length(symbol->string(bulk-binding-prefix b_58)))))"
-" sym_1))"
-"((temp29_0)(bulk-binding-self b_58))"
-"((temp30_0)(bulk-binding-mpi b_58))"
-"((temp31_0)(bulk-binding-provide-phase-level b_58))"
-"((temp32_0)(bulk-binding-phase-shift b_58)))"
+"(symbol->string sym_19)"
+"(string-length(symbol->string(bulk-binding-prefix b_57)))))"
+" sym_19))"
+"((temp29_0)(bulk-binding-self b_57))"
+"((temp30_0)(bulk-binding-mpi b_57))"
+"((temp31_0)(bulk-binding-provide-phase-level b_57))"
+"((temp32_0)(bulk-binding-phase-shift b_57)))"
 "(provide-binding-to-require-binding11.1"
 " temp30_0"
 " temp32_0"
 " temp31_0"
 " temp29_0"
 " binding27_0"
-" temp28_2))))))"
+" temp28_1))))))"
 "(current-inspector)"
 " #f"
 " '(1 2 4 5 6 7)"
 " #f"
 " 'bulk-binding)))))"
 "(values"
-" struct:_32"
-" make-_32"
-" ?_32"
-"(make-struct-field-accessor -ref_32 0 'provides)"
-"(make-struct-field-accessor -ref_32 1 'prefix)"
-"(make-struct-field-accessor -ref_32 2 'excepts)"
-"(make-struct-field-accessor -ref_32 3 'self)"
-"(make-struct-field-accessor -ref_32 4 'mpi)"
-"(make-struct-field-accessor -ref_32 5 'provide-phase-level)"
-"(make-struct-field-accessor -ref_32 6 'phase-shift)"
-"(make-struct-field-accessor -ref_32 7 'bulk-binding-registry)"
-"(make-struct-field-mutator -set!_32 0 'provides)"
-"(make-struct-field-mutator -set!_32 3 'self))))"
+" struct:_33"
+" make-_33"
+" ?_33"
+"(make-struct-field-accessor -ref_33 0 'provides)"
+"(make-struct-field-accessor -ref_33 1 'prefix)"
+"(make-struct-field-accessor -ref_33 2 'excepts)"
+"(make-struct-field-accessor -ref_33 3 'self)"
+"(make-struct-field-accessor -ref_33 4 'mpi)"
+"(make-struct-field-accessor -ref_33 5 'provide-phase-level)"
+"(make-struct-field-accessor -ref_33 6 'phase-shift)"
+"(make-struct-field-accessor -ref_33 7 'bulk-binding-registry)"
+"(make-struct-field-mutator -set!_33 0 'provides)"
+"(make-struct-field-mutator -set!_33 3 'self))))"
 "(define-values"
 "(deserialize-bulk-binding)"
-"(lambda(prefix_1 excepts_1 mpi_15 provide-phase-level_1 phase-shift_1 bulk-binding-registry_0)"
+"(lambda(prefix_1 excepts_1 mpi_3 provide-phase-level_1 phase-shift_1 bulk-binding-registry_0)"
 "(begin"
-"(bulk-binding14.1 #f prefix_1 excepts_1 #f mpi_15 provide-phase-level_1 phase-shift_1 bulk-binding-registry_0))))"
+"(bulk-binding14.1 #f prefix_1 excepts_1 #f mpi_3 provide-phase-level_1 phase-shift_1 bulk-binding-registry_0))))"
 "(define-values"
 "(bulk-provides-add-prefix-remove-exceptions)"
 "(lambda(provides_1 prefix_2 excepts_2)"
 "(begin"
-"(let-values(((ht_62) provides_1))"
+"(let-values(((ht_60) provides_1))"
 "(begin"
-"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-in-hash ht_62)))"
-"((letrec-values(((for-loop_78)"
-"(lambda(table_83 i_78)"
+"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-in-hash ht_60)))"
+"((letrec-values(((for-loop_77)"
+"(lambda(table_84 i_82)"
 "(begin"
 " 'for-loop"
-"(if i_78"
-"(let-values(((sym_19 val_23)(hash-iterate-key+value ht_62 i_78)))"
-"(let-values(((table_84)"
-"(let-values(((table_85) table_83))"
-"(if(hash-ref excepts_2 sym_19 #f)"
-" table_85"
-"(let-values(((table_86) table_85))"
-"(if(symbol-interned? sym_19)"
+"(if i_82"
+"(let-values(((sym_20 val_23)(hash-iterate-key+value ht_60 i_82)))"
+"(let-values(((table_85)"
+"(let-values(((table_86) table_84))"
+"(if(hash-ref excepts_2 sym_20 #f)"
+" table_86"
 "(let-values(((table_87) table_86))"
-"(let-values(((table_88)"
+"(if(symbol-interned? sym_20)"
+"(let-values(((table_88) table_87))"
+"(let-values(((table_89)"
 "(let-values()"
-"(let-values(((key_35 val_24)"
+"(let-values(((key_36 val_24)"
 "(let-values()"
 "(values"
 "(if prefix_2"
@@ -11942,32 +11807,32 @@ static const char *startup_source =
 "(format"
 "                                                                                                 \"~a~a\""
 " prefix_2"
-" sym_19))"
-" sym_19)"
+" sym_20))"
+" sym_20)"
 " val_23))))"
-"(hash-set table_87 key_35 val_24)))))"
-"(values table_88)))"
-" table_86))))))"
-"(if(not #f)(for-loop_78 table_84(hash-iterate-next ht_62 i_78)) table_84)))"
-" table_83)))))"
-" for-loop_78)"
+"(hash-set table_88 key_36 val_24)))))"
+"(values table_89)))"
+" table_87))))))"
+"(if(not #f)(for-loop_77 table_85(hash-iterate-next ht_60 i_82)) table_85)))"
+" table_84)))))"
+" for-loop_77)"
 " '#hash()"
-"(hash-iterate-first ht_62)))))))"
+"(hash-iterate-first ht_60)))))))"
 "(define-values"
 "(struct:bulk-provide bulk-provide15.1 bulk-provide? bulk-provide-self bulk-provide-provides)"
-"(let-values(((struct:_33 make-_33 ?_33 -ref_33 -set!_33)"
+"(let-values(((struct:_34 make-_34 ?_34 -ref_34 -set!_34)"
 "(let-values()"
 "(let-values()"
 "(make-struct-type 'bulk-provide #f 2 0 #f null(current-inspector) #f '(0 1) #f 'bulk-provide)))))"
 "(values"
-" struct:_33"
-" make-_33"
-" ?_33"
-"(make-struct-field-accessor -ref_33 0 'self)"
-"(make-struct-field-accessor -ref_33 1 'provides))))"
+" struct:_34"
+" make-_34"
+" ?_34"
+"(make-struct-field-accessor -ref_34 0 'self)"
+"(make-struct-field-accessor -ref_34 1 'provides))))"
 "(define-values"
 "(struct:bulk-binding-registry bulk-binding-registry16.1 bulk-binding-registry? bulk-binding-registry-table)"
-"(let-values(((struct:_34 make-_34 ?_34 -ref_34 -set!_34)"
+"(let-values(((struct:_35 make-_35 ?_35 -ref_35 -set!_35)"
 "(let-values()"
 "(let-values()"
 "(make-struct-type"
@@ -11982,7 +11847,7 @@ static const char *startup_source =
 " '(0)"
 " #f"
 " 'bulk-binding-registry)))))"
-"(values struct:_34 make-_34 ?_34(make-struct-field-accessor -ref_34 0 'table))))"
+"(values struct:_35 make-_35 ?_35(make-struct-field-accessor -ref_35 0 'table))))"
 "(define-values(make-bulk-binding-registry)(lambda()(begin(bulk-binding-registry16.1(make-hasheq)))))"
 "(define-values"
 "(register-bulk-provide!)"
@@ -12005,7 +11870,7 @@ static const char *startup_source =
 " root-expand-context/outer-post-expansion-scope"
 " root-expand-context/outer-use-site-scopes"
 " root-expand-context/outer-frame-id)"
-"(let-values(((struct:_35 make-_35 ?_35 -ref_35 -set!_35)"
+"(let-values(((struct:_36 make-_36 ?_36 -ref_36 -set!_36)"
 "(let-values()"
 "(let-values()"
 "(make-struct-type"
@@ -12021,13 +11886,13 @@ static const char *startup_source =
 " #f"
 " 'root-expand-context/outer)))))"
 "(values"
-" struct:_35"
-" make-_35"
-" ?_35"
-"(make-struct-field-accessor -ref_35 0 'inner)"
-"(make-struct-field-accessor -ref_35 1 'post-expansion-scope)"
-"(make-struct-field-accessor -ref_35 2 'use-site-scopes)"
-"(make-struct-field-accessor -ref_35 3 'frame-id))))"
+" struct:_36"
+" make-_36"
+" ?_36"
+"(make-struct-field-accessor -ref_36 0 'inner)"
+"(make-struct-field-accessor -ref_36 1 'post-expansion-scope)"
+"(make-struct-field-accessor -ref_36 2 'use-site-scopes)"
+"(make-struct-field-accessor -ref_36 3 'frame-id))))"
 "(define-values"
 "(struct:root-expand-context/inner"
 " root-expand-context/inner2.1"
@@ -12092,51 +11957,46 @@ static const char *startup_source =
 " frame-id_4))))"
 "(define-values"
 "(root-expand-context-post-expansion-scope)"
-"(lambda(v_88)(begin(root-expand-context/outer-post-expansion-scope v_88))))"
+"(lambda(v_89)(begin(root-expand-context/outer-post-expansion-scope v_89))))"
 "(define-values"
 "(root-expand-context-use-site-scopes)"
-"(lambda(v_89)(begin(root-expand-context/outer-use-site-scopes v_89))))"
+"(lambda(v_90)(begin(root-expand-context/outer-use-site-scopes v_90))))"
 "(define-values(root-expand-context-frame-id)(lambda(v_45)(begin(root-expand-context/outer-frame-id v_45))))"
 "(define-values"
 "(root-expand-context-self-mpi)"
-"(lambda(v_62)(begin(root-expand-context/inner-self-mpi(root-expand-context/outer-inner v_62)))))"
+"(lambda(v_63)(begin(root-expand-context/inner-self-mpi(root-expand-context/outer-inner v_63)))))"
 "(define-values"
 "(root-expand-context-module-scopes)"
 "(lambda(v_46)(begin(root-expand-context/inner-module-scopes(root-expand-context/outer-inner v_46)))))"
 "(define-values"
 "(root-expand-context-top-level-bind-scope)"
-"(lambda(v_90)(begin(root-expand-context/inner-top-level-bind-scope(root-expand-context/outer-inner v_90)))))"
+"(lambda(v_91)(begin(root-expand-context/inner-top-level-bind-scope(root-expand-context/outer-inner v_91)))))"
 "(define-values"
 "(root-expand-context-all-scopes-stx)"
 "(lambda(v_47)(begin(root-expand-context/inner-all-scopes-stx(root-expand-context/outer-inner v_47)))))"
 "(define-values"
 "(root-expand-context-defined-syms)"
-"(lambda(v_91)(begin(root-expand-context/inner-defined-syms(root-expand-context/outer-inner v_91)))))"
+"(lambda(v_92)(begin(root-expand-context/inner-defined-syms(root-expand-context/outer-inner v_92)))))"
 "(define-values"
 "(root-expand-context-counter)"
 "(lambda(v_40)(begin(root-expand-context/inner-counter(root-expand-context/outer-inner v_40)))))"
 "(define-values"
 "(root-expand-context-lift-key)"
-"(lambda(v_92)(begin(root-expand-context/inner-lift-key(root-expand-context/outer-inner v_92)))))"
+"(lambda(v_93)(begin(root-expand-context/inner-lift-key(root-expand-context/outer-inner v_93)))))"
 "(define-values"
 "(make-root-expand-context13.1)"
-"(lambda(all-scopes-stx7_0"
-" all-scopes-stx12_0"
-" initial-scopes4_0"
-" initial-scopes9_0"
-" outside-scope5_0"
-" outside-scope10_0"
-" post-expansion-scope6_0"
-" post-expansion-scope11_0"
-" self-mpi3_0)"
+"(lambda(all-scopes-stx7_0 initial-scopes4_0 outside-scope5_0 post-expansion-scope6_0 self-mpi3_0)"
 "(begin"
 " 'make-root-expand-context13"
 "(let-values(((self-mpi_1) self-mpi3_0))"
-"(let-values(((initial-scopes_0)(if initial-scopes9_0 initial-scopes4_0 null)))"
-"(let-values(((outside-scope_0)(if outside-scope10_0 outside-scope5_0 top-level-common-scope)))"
+"(let-values(((initial-scopes_0) initial-scopes4_0))"
+"(let-values(((outside-scope_0)"
+"(if(eq? outside-scope5_0 unsafe-undefined) top-level-common-scope outside-scope5_0)))"
 "(let-values(((post-expansion-scope_1)"
-"(if post-expansion-scope11_0 post-expansion-scope6_0(new-multi-scope 'top-level))))"
-"(let-values(((all-scopes-stx_1)(if all-scopes-stx12_0 all-scopes-stx7_0 #f)))"
+"(if(eq? post-expansion-scope6_0 unsafe-undefined)"
+"(new-multi-scope 'top-level)"
+" post-expansion-scope6_0)))"
+"(let-values(((all-scopes-stx_1) all-scopes-stx7_0))"
 "(let-values()"
 "(let-values(((module-scopes_1)(list* post-expansion-scope_1 outside-scope_0 initial-scopes_0)))"
 "(root-expand-context/make"
@@ -12144,8 +12004,8 @@ static const char *startup_source =
 " module-scopes_1"
 " post-expansion-scope_1"
 "(new-scope 'module)"
-"(let-values(((or-part_133) all-scopes-stx_1))"
-"(if or-part_133 or-part_133(add-scopes empty-syntax module-scopes_1)))"
+"(let-values(((or-part_136) all-scopes-stx_1))"
+"(if or-part_136 or-part_136(add-scopes empty-syntax module-scopes_1)))"
 "(box null)"
 "(make-hasheqv)"
 "                     (string->uninterned-symbol \"root-frame\")"
@@ -12163,48 +12023,48 @@ static const char *startup_source =
 "(let-values(((temp18_2)(root-expand-context-all-scopes-stx ctx_0))"
 "((orig-self19_0) orig-self_0)"
 "((new-self20_0) new-self_0))"
-"(syntax-module-path-index-shift15.1 #f #f temp18_2 orig-self19_0 new-self20_0 #f #f))"
+"(syntax-module-path-index-shift13.1 #f temp18_2 orig-self19_0 new-self20_0 #f))"
 "(add-scopes empty-syntax(unbox(root-expand-context-use-site-scopes ctx_0)))"
-"(let-values(((ht_63)(root-expand-context-defined-syms ctx_0)))"
+"(let-values(((ht_61)(root-expand-context-defined-syms ctx_0)))"
 "(begin"
-"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-in-hash ht_63)))"
-"((letrec-values(((for-loop_79)"
-"(lambda(table_89 i_79)"
+"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-in-hash ht_61)))"
+"((letrec-values(((for-loop_78)"
+"(lambda(table_88 i_83)"
 "(begin"
 " 'for-loop"
-"(if i_79"
-"(let-values(((phase_24 ht_64)(hash-iterate-key+value ht_63 i_79)))"
+"(if i_83"
+"(let-values(((phase_23 ht_62)(hash-iterate-key+value ht_61 i_83)))"
 "(let-values(((table_90)"
-"(let-values(((table_91) table_89))"
+"(let-values(((table_91) table_88))"
 "(let-values(((table_92)"
 "(let-values()"
-"(let-values(((key_36 val_25)"
+"(let-values(((key_37 val_25)"
 "(let-values()"
-"(values phase_24 ht_64))))"
-"(hash-set table_91 key_36 val_25)))))"
+"(values phase_23 ht_62))))"
+"(hash-set table_91 key_37 val_25)))))"
 "(values table_92)))))"
-"(if(not #f)(for-loop_79 table_90(hash-iterate-next ht_63 i_79)) table_90)))"
-" table_89)))))"
-" for-loop_79)"
+"(if(not #f)(for-loop_78 table_90(hash-iterate-next ht_61 i_83)) table_90)))"
+" table_88)))))"
+" for-loop_78)"
 " '#hasheqv()"
-"(hash-iterate-first ht_63))))"
+"(hash-iterate-first ht_61))))"
 "(root-expand-context-frame-id ctx_0)"
 "(unbox(root-expand-context-counter ctx_0)))))))"
 "(define-values"
 "(root-expand-context-decode-for-module)"
 "(lambda(vec-s_0 self_3)"
 "(begin"
-"(let-values(((vec_28)(if(syntax?$1 vec-s_0)(syntax-e$1 vec-s_0) #f)))"
+"(let-values(((vec_29)(if(syntax?$1 vec-s_0)(syntax-e$1 vec-s_0) #f)))"
 "(begin"
-"(if(if(vector? vec_28)"
-"(if(=(vector-length vec_28) 7)"
-"(if(syntax?$1(vector-ref vec_28 0))"
-"(if(syntax-with-one-scope?(vector-ref vec_28 1))"
-"(if(syntax?$1(vector-ref vec_28 2))"
-"(if(syntax?$1(vector-ref vec_28 3))"
-"(if(defined-syms-hash?(syntax-e$1(vector-ref vec_28 4)))"
-"(if(symbol?(syntax-e$1(vector-ref vec_28 5)))"
-"(exact-nonnegative-integer?(syntax-e$1(vector-ref vec_28 6)))"
+"(if(if(vector? vec_29)"
+"(if(=(vector-length vec_29) 7)"
+"(if(syntax?$1(vector-ref vec_29 0))"
+"(if(syntax-with-one-scope?(vector-ref vec_29 1))"
+"(if(syntax?$1(vector-ref vec_29 2))"
+"(if(syntax?$1(vector-ref vec_29 3))"
+"(if(defined-syms-hash?(syntax-e$1(vector-ref vec_29 4)))"
+"(if(symbol?(syntax-e$1(vector-ref vec_29 5)))"
+"(exact-nonnegative-integer?(syntax-e$1(vector-ref vec_29 6)))"
 " #f)"
 " #f)"
 " #f)"
@@ -12217,91 +12077,91 @@ static const char *startup_source =
 "            (let-values () (error 'root-expand-context-decode-for-module \"bad encoding: ~s\" vec-s_0)))"
 "(root-expand-context/make"
 " self_3"
-"(extract-scope-list(vector-ref vec_28 0))"
-"(extract-scope(vector-ref vec_28 1))"
+"(extract-scope-list(vector-ref vec_29 0))"
+"(extract-scope(vector-ref vec_29 1))"
 "(new-scope 'module)"
-"(vector-ref vec_28 2)"
-"(box(extract-scope-list(vector-ref vec_28 3)))"
-"(unpack-defined-syms(vector-ref vec_28 4))"
-"(syntax-e$1(vector-ref vec_28 5))"
-"(box(syntax-e$1(vector-ref vec_28 6)))"
+"(vector-ref vec_29 2)"
+"(box(extract-scope-list(vector-ref vec_29 3)))"
+"(unpack-defined-syms(vector-ref vec_29 4))"
+"(syntax-e$1(vector-ref vec_29 5))"
+"(box(syntax-e$1(vector-ref vec_29 6)))"
 "(generate-lift-key)))))))"
 "(define-values"
 "(defined-syms-hash?)"
-"(lambda(v_93)"
+"(lambda(v_94)"
 "(begin"
-"(let-values(((ht_65) v_93))"
+"(let-values(((ht_63) v_94))"
 "(begin"
-"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-in-hash ht_65)))"
-"((letrec-values(((for-loop_80)"
-"(lambda(result_55 i_80)"
+"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-in-hash ht_63)))"
+"((letrec-values(((for-loop_79)"
+"(lambda(result_53 i_84)"
 "(begin"
 " 'for-loop"
-"(if i_80"
-"(let-values(((phase_25 ht-s_0)(hash-iterate-key+value ht_65 i_80)))"
-"(let-values(((result_56)"
+"(if i_84"
+"(let-values(((phase_24 ht-s_0)(hash-iterate-key+value ht_63 i_84)))"
+"(let-values(((result_54)"
 "(let-values()"
-"(let-values(((result_57)"
+"(let-values(((result_55)"
 "(let-values()"
 "(let-values()"
-"(if(phase? phase_25)"
+"(if(phase? phase_24)"
 "(if(hash?(syntax-e$1 ht-s_0))"
-"(let-values(((ht_66)(syntax-e$1 ht-s_0)))"
+"(let-values(((ht_64)(syntax-e$1 ht-s_0)))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
 "(#%variable-reference))"
 "(void)"
-"(let-values()(check-in-hash ht_66)))"
-"((letrec-values(((for-loop_81)"
-"(lambda(result_58 i_81)"
+"(let-values()(check-in-hash ht_64)))"
+"((letrec-values(((for-loop_8)"
+"(lambda(result_56 i_85)"
 "(begin"
 " 'for-loop"
-"(if i_81"
-"(let-values(((sym_20"
+"(if i_85"
+"(let-values(((sym_21"
 " id_8)"
 "(hash-iterate-key+value"
-" ht_66"
-" i_81)))"
-"(let-values(((result_59)"
+" ht_64"
+" i_85)))"
+"(let-values(((result_57)"
 "(let-values()"
-"(let-values(((result_60)"
+"(let-values(((result_58)"
 "(let-values()"
 "(let-values()"
 "(if(symbol?"
-" sym_20)"
+" sym_21)"
 "(identifier?"
 " id_8)"
 " #f)))))"
 "(values"
-" result_60)))))"
+" result_58)))))"
 "(if(if(not"
 "((lambda x_38"
 "(not"
-" result_59))"
-" sym_20"
+" result_57))"
+" sym_21"
 " id_8))"
 "(not #f)"
 " #f)"
-"(for-loop_81"
-" result_59"
+"(for-loop_8"
+" result_57"
 "(hash-iterate-next"
-" ht_66"
-" i_81))"
-" result_59)))"
-" result_58)))))"
-" for-loop_81)"
+" ht_64"
+" i_85))"
+" result_57)))"
+" result_56)))))"
+" for-loop_8)"
 " #t"
-"(hash-iterate-first ht_66))))"
+"(hash-iterate-first ht_64))))"
 " #f)"
 " #f)))))"
-"(values result_57)))))"
-"(if(if(not((lambda x_39(not result_56)) phase_25 ht-s_0))(not #f) #f)"
-"(for-loop_80 result_56(hash-iterate-next ht_65 i_80))"
-" result_56)))"
-" result_55)))))"
-" for-loop_80)"
+"(values result_55)))))"
+"(if(if(not((lambda x_39(not result_54)) phase_24 ht-s_0))(not #f) #f)"
+"(for-loop_79 result_54(hash-iterate-next ht_63 i_84))"
+" result_54)))"
+" result_53)))))"
+" for-loop_79)"
 " #t"
-"(hash-iterate-first ht_65)))))))"
+"(hash-iterate-first ht_63)))))))"
 "(define-values"
 "(extract-scope-list)"
 "(lambda(stx_9)(begin(map2 generalize-scope(set->list(syntax-scope-set stx_9 0))))))"
@@ -12310,31 +12170,31 @@ static const char *startup_source =
 "(lambda(stx_10)(begin(if(syntax?$1 stx_10)(= 1(set-count(syntax-scope-set stx_10 0))) #f))))"
 "(define-values"
 "(extract-scope)"
-"(lambda(stx_11)(begin(let-values(((s_166)(syntax-scope-set stx_11 0)))(generalize-scope(set-first s_166))))))"
+"(lambda(stx_11)(begin(let-values(((s_164)(syntax-scope-set stx_11 0)))(generalize-scope(set-first s_164))))))"
 "(define-values"
 "(unpack-defined-syms)"
-"(lambda(v_94)"
+"(lambda(v_95)"
 "(begin"
 "(hash-copy"
-"(let-values(((ht_67)(syntax-e$1 v_94)))"
+"(let-values(((ht_30)(syntax-e$1 v_95)))"
 "(begin"
-"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-in-hash ht_67)))"
-"((letrec-values(((for-loop_82)"
-"(lambda(table_93 i_82)"
+"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-in-hash ht_30)))"
+"((letrec-values(((for-loop_32)"
+"(lambda(table_93 i_50)"
 "(begin"
 " 'for-loop"
-"(if i_82"
-"(let-values(((phase_26 ht-s_1)(hash-iterate-key+value ht_67 i_82)))"
+"(if i_50"
+"(let-values(((phase_25 ht-s_1)(hash-iterate-key+value ht_30 i_50)))"
 "(let-values(((table_94)"
 "(let-values(((table_95) table_93))"
 "(let-values(((table_96)"
 "(let-values()"
-"(let-values(((key_37 val_26)"
+"(let-values(((key_38 val_26)"
 "(let-values()"
 "(values"
-" phase_26"
+" phase_25"
 "(hash-copy"
-"(let-values(((ht_68)"
+"(let-values(((ht_65)"
 "(syntax-e$1"
 " ht-s_1)))"
 "(begin"
@@ -12342,32 +12202,32 @@ static const char *startup_source =
 "(#%variable-reference))"
 "(void)"
 "(let-values()"
-"(check-in-hash ht_68)))"
+"(check-in-hash ht_65)))"
 "((letrec-values(((for-loop_13)"
 "(lambda(table_97"
-" i_83)"
+" i_86)"
 "(begin"
 " 'for-loop"
-"(if i_83"
-"(let-values(((sym_21"
+"(if i_86"
+"(let-values(((sym_22"
 " id_9)"
 "(hash-iterate-key+value"
-" ht_68"
-" i_83)))"
+" ht_65"
+" i_86)))"
 "(let-values(((table_98)"
 "(let-values(((table_99)"
 " table_97))"
 "(let-values(((table_100)"
 "(let-values()"
-"(let-values(((key_38"
+"(let-values(((key_39"
 " val_27)"
 "(let-values()"
 "(values"
-" sym_21"
+" sym_22"
 " id_9))))"
 "(hash-set"
 " table_99"
-" key_38"
+" key_39"
 " val_27)))))"
 "(values"
 " table_100)))))"
@@ -12376,21 +12236,21 @@ static const char *startup_source =
 "(for-loop_13"
 " table_98"
 "(hash-iterate-next"
-" ht_68"
-" i_83))"
+" ht_65"
+" i_86))"
 " table_98)))"
 " table_97)))))"
 " for-loop_13)"
 " '#hash()"
 "(hash-iterate-first"
-" ht_68)))))))))"
-"(hash-set table_95 key_37 val_26)))))"
+" ht_65)))))))))"
+"(hash-set table_95 key_38 val_26)))))"
 "(values table_96)))))"
-"(if(not #f)(for-loop_82 table_94(hash-iterate-next ht_67 i_82)) table_94)))"
+"(if(not #f)(for-loop_32 table_94(hash-iterate-next ht_30 i_50)) table_94)))"
 " table_93)))))"
-" for-loop_82)"
+" for-loop_32)"
 " '#hasheqv()"
-"(hash-iterate-first ht_67))))))))"
+"(hash-iterate-first ht_30))))))))"
 "(define-values(1/primitive-table) primitive-table)"
 "(define-values(1/primitive->compiled-position) primitive->compiled-position)"
 "(define-values(1/compiled-position->primitive) compiled-position->primitive)"
@@ -12459,8 +12319,8 @@ static const char *startup_source =
 "(begin"
 " 'loop"
 "(let-values(((v_31)(unbox lock-box_0)))"
-"(if(let-values(((or-part_78)(not v_31)))"
-"(if or-part_78 or-part_78(sync/timeout 0(car v_31)(cdr v_31))))"
+"(if(let-values(((or-part_76)(not v_31)))"
+"(if or-part_76 or-part_76(sync/timeout 0(car v_31)(cdr v_31))))"
 "(let-values()"
 "(let-values(((sema_0)(make-semaphore)))"
 "(let-values(((lock_0)(cons(semaphore-peek-evt sema_0)(current-thread))))"
@@ -12555,7 +12415,7 @@ static const char *startup_source =
 "(make-struct-field-mutator -set!_0 12 'inspector))))"
 "(define-values"
 "(struct:definitions definitions2.1 definitions? definitions-variables definitions-transformers)"
-"(let-values(((struct:_36 make-_36 ?_36 -ref_36 -set!_36)"
+"(let-values(((struct:_37 make-_37 ?_37 -ref_37 -set!_37)"
 "(let-values()"
 "(let-values()"
 "(make-struct-type"
@@ -12571,33 +12431,38 @@ static const char *startup_source =
 " #f"
 " 'definitions)))))"
 "(values"
-" struct:_36"
-" make-_36"
-" ?_36"
-"(make-struct-field-accessor -ref_36 0 'variables)"
-"(make-struct-field-accessor -ref_36 1 'transformers))))"
-"(define-values(make-namespace)(lambda()(begin(let-values()(new-namespace9.1 #f #f #f #f #f #f)))))"
+" struct:_37"
+" make-_37"
+" ?_37"
+"(make-struct-field-accessor -ref_37 0 'variables)"
+"(make-struct-field-accessor -ref_37 1 'transformers))))"
+"(define-values(make-namespace)(lambda()(begin(let-values()(new-namespace8.1 #t unsafe-undefined #f)))))"
 "(define-values"
-"(new-namespace9.1)"
-"(lambda(register?4_0 register?6_0 root-expand-ctx3_0 root-expand-ctx5_0 share-from-ns7_0 share-from-ns8_0)"
+"(new-namespace8.1)"
+"(lambda(register?4_0 root-expand-ctx3_0 share-from-ns7_0)"
 "(begin"
-" 'new-namespace9"
-"(let-values(((share-from-ns_0)(if share-from-ns8_0 share-from-ns7_0 #f)))"
+" 'new-namespace8"
+"(let-values(((share-from-ns_0) share-from-ns7_0))"
 "(let-values(((root-expand-ctx_0)"
-"(if root-expand-ctx5_0"
-" root-expand-ctx3_0"
-"(let-values(((top-level-module-path-index22_0) top-level-module-path-index))"
-"(make-root-expand-context13.1 #f #f #f #f #f #f #f #f top-level-module-path-index22_0)))))"
-"(let-values(((register?_0)(if register?6_0 register?4_0 #t)))"
+"(if(eq? root-expand-ctx3_0 unsafe-undefined)"
+"(let-values(((top-level-module-path-index20_0) top-level-module-path-index))"
+"(make-root-expand-context13.1"
+" #f"
+" null"
+" unsafe-undefined"
+" unsafe-undefined"
+" top-level-module-path-index20_0))"
+" root-expand-ctx3_0)))"
+"(let-values(((register?_0) register?4_0))"
 "(let-values()"
-"(let-values(((phase_27)(if share-from-ns_0(namespace-phase share-from-ns_0) 0)))"
+"(let-values(((phase_26)(if share-from-ns_0(namespace-phase share-from-ns_0) 0)))"
 "(let-values(((ns_1)"
 "(namespace1.1"
 " top-level-module-path-index"
 " #f"
 "(box root-expand-ctx_0)"
-" phase_27"
-" phase_27"
+" phase_26"
+" phase_26"
 "(make-small-hasheqv)"
 "(make-small-hasheqv)"
 "(if share-from-ns_0(namespace-module-registry$1 share-from-ns_0)(make-module-registry))"
@@ -12606,8 +12471,8 @@ static const char *startup_source =
 "(make-bulk-binding-registry))"
 "(make-small-hasheq)"
 "(if share-from-ns_0"
-"(let-values(((or-part_134)(namespace-root-namespace share-from-ns_0)))"
-"(if or-part_134 or-part_134 share-from-ns_0))"
+"(let-values(((or-part_137)(namespace-root-namespace share-from-ns_0)))"
+"(if or-part_137 or-part_137 share-from-ns_0))"
 " #f)"
 " #f"
 "(make-inspector(current-code-inspector))"
@@ -12617,17 +12482,17 @@ static const char *startup_source =
 "(if share-from-ns_0(namespace-module-instances share-from-ns_0)(make-hasheqv)))))"
 "(begin"
 "(if register?_0"
-"(let-values()(small-hash-set!(namespace-phase-to-namespace ns_1) phase_27 ns_1))"
+"(let-values()(small-hash-set!(namespace-phase-to-namespace ns_1) phase_26 ns_1))"
 "(void))"
 " ns_1))))))))))"
 "(define-values"
 "(1/current-namespace)"
 "(make-parameter"
 "(make-namespace)"
-"(lambda(v_73)"
+"(lambda(v_96)"
 "(begin"
-"       (if (1/namespace? v_73) (void) (let-values () (raise-argument-error 'current-namespace \"namespace?\" v_73)))"
-" v_73))))"
+"       (if (1/namespace? v_96) (void) (let-values () (raise-argument-error 'current-namespace \"namespace?\" v_96)))"
+" v_96))))"
 "(define-values"
 "(namespace-get-root-expand-ctx)"
 "(lambda(ns_2)(begin(force(unbox(namespace-root-expand-ctx ns_2))))))"
@@ -12641,60 +12506,60 @@ static const char *startup_source =
 "(namespace->module)"
 "(lambda(ns_5 name_17)"
 "(begin"
-"(let-values(((or-part_135)(small-hash-ref(namespace-submodule-declarations ns_5) name_17 #f)))"
-"(if or-part_135"
-" or-part_135"
+"(let-values(((or-part_138)(small-hash-ref(namespace-submodule-declarations ns_5) name_17 #f)))"
+"(if or-part_138"
+" or-part_138"
 "(hash-ref(module-registry-declarations(namespace-module-registry$1 ns_5)) name_17 #f))))))"
 "(define-values"
 "(namespace->namespace-at-phase)"
-"(lambda(ns_6 phase_28)"
+"(lambda(ns_6 phase_27)"
 "(begin"
-"(let-values(((or-part_136)(small-hash-ref(namespace-phase-to-namespace ns_6) phase_28 #f)))"
-"(if or-part_136"
-" or-part_136"
+"(let-values(((or-part_139)(small-hash-ref(namespace-phase-to-namespace ns_6) phase_27 #f)))"
+"(if or-part_139"
+" or-part_139"
 "(let-values(((p-ns_0)"
-"(let-values(((the-struct_33) ns_6))"
-"(if(1/namespace? the-struct_33)"
-"(let-values(((phase23_0) phase_28))"
+"(let-values(((the-struct_34) ns_6))"
+"(if(1/namespace? the-struct_34)"
+"(let-values(((phase21_0) phase_27))"
 "(namespace1.1"
-"(namespace-mpi the-struct_33)"
-"(namespace-source-name the-struct_33)"
-"(namespace-root-expand-ctx the-struct_33)"
-" phase23_0"
-"(namespace-0-phase the-struct_33)"
-"(namespace-phase-to-namespace the-struct_33)"
-"(namespace-phase-level-to-definitions the-struct_33)"
-"(namespace-module-registry$1 the-struct_33)"
-"(namespace-bulk-binding-registry the-struct_33)"
-"(namespace-submodule-declarations the-struct_33)"
-"(namespace-root-namespace the-struct_33)"
-"(namespace-declaration-inspector the-struct_33)"
-"(namespace-inspector the-struct_33)"
-"(namespace-available-module-instances the-struct_33)"
-"(namespace-module-instances the-struct_33)))"
-"                            (raise-argument-error 'struct-copy \"namespace?\" the-struct_33)))))"
-"(begin(small-hash-set!(namespace-phase-to-namespace ns_6) phase_28 p-ns_0) p-ns_0)))))))"
+"(namespace-mpi the-struct_34)"
+"(namespace-source-name the-struct_34)"
+"(namespace-root-expand-ctx the-struct_34)"
+" phase21_0"
+"(namespace-0-phase the-struct_34)"
+"(namespace-phase-to-namespace the-struct_34)"
+"(namespace-phase-level-to-definitions the-struct_34)"
+"(namespace-module-registry$1 the-struct_34)"
+"(namespace-bulk-binding-registry the-struct_34)"
+"(namespace-submodule-declarations the-struct_34)"
+"(namespace-root-namespace the-struct_34)"
+"(namespace-declaration-inspector the-struct_34)"
+"(namespace-inspector the-struct_34)"
+"(namespace-available-module-instances the-struct_34)"
+"(namespace-module-instances the-struct_34)))"
+"                            (raise-argument-error 'struct-copy \"namespace?\" the-struct_34)))))"
+"(begin(small-hash-set!(namespace-phase-to-namespace ns_6) phase_27 p-ns_0) p-ns_0)))))))"
 "(define-values"
 "(namespace->name)"
 "(lambda(ns_7)"
 "(begin"
 "(let-values(((n_21)(namespace-source-name ns_7)))"
-"(let-values(((s_167)"
+"(let-values(((s_165)"
 "(if(not n_21)"
 "(let-values() 'top-level)"
 "(if(symbol? n_21)"
 "                          (let-values () (format \"'~s\" n_21))"
 "                          (let-values () (string-append \"\\\"\" (path->string n_21) \"\\\"\"))))))"
 "(let-values(((r_27)(1/resolved-module-path-name(1/module-path-index-resolve(namespace-mpi ns_7)))))"
-"            (if (pair? r_27) (string-append \"(submod \" s_167 \" \" (substring (format \"~s\" (cdr r_27)) 1)) s_167)))))))"
+"            (if (pair? r_27) (string-append \"(submod \" s_165 \" \" (substring (format \"~s\" (cdr r_27)) 1)) s_165)))))))"
 "(define-values"
 "(namespace->definitions)"
 "(lambda(ns_8 phase-level_1)"
 "(begin"
 "(let-values(((d_8)(small-hash-ref(namespace-phase-level-to-definitions ns_8) phase-level_1 #f)))"
-"(let-values(((or-part_137) d_8))"
-"(if or-part_137"
-" or-part_137"
+"(let-values(((or-part_140) d_8))"
+"(if or-part_140"
+" or-part_140"
 "(let-values()"
 "(let-values(((p-ns_1)"
 "(namespace->namespace-at-phase ns_8(phase+(namespace-0-phase ns_8) phase-level_1))))"
@@ -12702,15 +12567,15 @@ static const char *startup_source =
 "(begin(small-hash-set!(namespace-phase-level-to-definitions ns_8) phase-level_1 d_9) d_9))))))))))"
 "(define-values"
 "(namespace-set-variable!)"
-"(let-values(((namespace-set-variable!18_0)"
-"(lambda(ns14_0 phase-level15_0 name16_1 val17_0 as-constant?12_0 as-constant?13_0)"
+"(let-values(((namespace-set-variable!16_0)"
+"(lambda(ns12_0 phase-level13_0 name14_1 val15_0 as-constant?11_0)"
 "(begin"
-" 'namespace-set-variable!18"
-"(let-values(((ns_9) ns14_0))"
-"(let-values(((phase-level_2) phase-level15_0))"
-"(let-values(((name_18) name16_1))"
-"(let-values(((val_28) val17_0))"
-"(let-values(((as-constant?_0)(if as-constant?13_0 as-constant?12_0 #f)))"
+" 'namespace-set-variable!16"
+"(let-values(((ns_9) ns12_0))"
+"(let-values(((phase-level_2) phase-level13_0))"
+"(let-values(((name_18) name14_1))"
+"(let-values(((val_28) val15_0))"
+"(let-values(((as-constant?_0) as-constant?11_0))"
 "(let-values()"
 "(let-values(((d_10)(namespace->definitions ns_9 phase-level_2)))"
 "(1/instance-set-variable-value!"
@@ -12719,10 +12584,9 @@ static const char *startup_source =
 " val_28"
 "(if as-constant?_0 'constant #f)))))))))))))"
 "(case-lambda"
-"((ns_10 phase-level_3 name_19 val_29)"
-"(begin(namespace-set-variable!18_0 ns_10 phase-level_3 name_19 val_29 #f #f)))"
-"((ns_11 phase-level_4 name_20 val_30 as-constant?12_1)"
-"(namespace-set-variable!18_0 ns_11 phase-level_4 name_20 val_30 as-constant?12_1 #t)))))"
+"((ns_10 phase-level_3 name_19 val_29)(begin(namespace-set-variable!16_0 ns_10 phase-level_3 name_19 val_29 #f)))"
+"((ns_11 phase-level_4 name_20 val_30 as-constant?11_1)"
+"(namespace-set-variable!16_0 ns_11 phase-level_4 name_20 val_30 as-constant?11_1)))))"
 "(define-values"
 "(namespace-set-consistent!)"
 "(lambda(ns_12 phase-level_5 name_21 val_31)"
@@ -12791,19 +12655,19 @@ static const char *startup_source =
 "(define-values(missing$1)(gensym))"
 "(define-values"
 "(syntax-track-origin$1)"
-"(let-values(((syntax-track-origin5_0)"
-"(lambda(new-stx3_0 old-stx4_0 id1_0 id2_0)"
+"(let-values(((syntax-track-origin4_0)"
+"(lambda(new-stx2_0 old-stx3_0 id1_0)"
 "(begin"
-" 'syntax-track-origin5"
-"(let-values(((new-stx_0) new-stx3_0))"
-"(let-values(((old-stx_0) old-stx4_0))"
+" 'syntax-track-origin4"
+"(let-values(((new-stx_0) new-stx2_0))"
+"(let-values(((old-stx_0) old-stx3_0))"
 "(let-values(((id_10)"
-"(if id2_0"
-" id1_0"
+"(if(eq? id1_0 unsafe-undefined)"
 "(if(identifier? old-stx_0)"
 " old-stx_0"
-"(let-values(((v_95)(syntax-e/no-taint old-stx_0)))"
-"(if(pair? v_95)(car v_95) #f))))))"
+"(let-values(((v_28)(syntax-e/no-taint old-stx_0)))"
+"(if(pair? v_28)(car v_28) #f)))"
+" id1_0)))"
 "(let-values()"
 "(let-values(((old-props_0)(syntax-props old-stx_0)))"
 "(if(zero?(hash-count old-props_0))"
@@ -12827,33 +12691,33 @@ static const char *startup_source =
 "(if(eq? old-origin_0 missing$1)"
 "(list id_10)"
 "(cons id_10 old-origin_0))))"
-"(let-values(((the-struct_34) new-stx_0))"
-"(if(syntax?$1 the-struct_34)"
-"(let-values(((props7_1)(hash-set old-props_0 'origin origin_0)))"
+"(let-values(((the-struct_35) new-stx_0))"
+"(if(syntax?$1 the-struct_35)"
+"(let-values(((props6_0)(hash-set old-props_0 'origin origin_0)))"
 "(syntax1.1"
-"(syntax-content the-struct_34)"
-"(syntax-scopes the-struct_34)"
-"(syntax-shifted-multi-scopes the-struct_34)"
-"(syntax-scope-propagations+tamper the-struct_34)"
-"(syntax-mpi-shifts the-struct_34)"
-"(syntax-srcloc the-struct_34)"
-" props7_1"
-"(syntax-inspector the-struct_34)))"
-"                                                    (raise-argument-error 'struct-copy \"syntax?\" the-struct_34))))))"
+"(syntax-content the-struct_35)"
+"(syntax-scopes the-struct_35)"
+"(syntax-shifted-multi-scopes the-struct_35)"
+"(syntax-scope-propagations+tamper the-struct_35)"
+"(syntax-mpi-shifts the-struct_35)"
+"(syntax-srcloc the-struct_35)"
+" props6_0"
+"(syntax-inspector the-struct_35)))"
+"                                                    (raise-argument-error 'struct-copy \"syntax?\" the-struct_35))))))"
 "(let-values()"
-"(let-values(((the-struct_4) new-stx_0))"
-"(if(syntax?$1 the-struct_4)"
-"(let-values(((props8_0) old-props_0))"
+"(let-values(((the-struct_36) new-stx_0))"
+"(if(syntax?$1 the-struct_36)"
+"(let-values(((props7_1) old-props_0))"
 "(syntax1.1"
-"(syntax-content the-struct_4)"
-"(syntax-scopes the-struct_4)"
-"(syntax-shifted-multi-scopes the-struct_4)"
-"(syntax-scope-propagations+tamper the-struct_4)"
-"(syntax-mpi-shifts the-struct_4)"
-"(syntax-srcloc the-struct_4)"
-" props8_0"
-"(syntax-inspector the-struct_4)))"
-"                                                (raise-argument-error 'struct-copy \"syntax?\" the-struct_4))))))"
+"(syntax-content the-struct_36)"
+"(syntax-scopes the-struct_36)"
+"(syntax-shifted-multi-scopes the-struct_36)"
+"(syntax-scope-propagations+tamper the-struct_36)"
+"(syntax-mpi-shifts the-struct_36)"
+"(syntax-srcloc the-struct_36)"
+" props7_1"
+"(syntax-inspector the-struct_36)))"
+"                                                (raise-argument-error 'struct-copy \"syntax?\" the-struct_36))))))"
 "(let-values()"
 "(let-values(((old-props-with-origin_0)"
 "(if id_10"
@@ -12867,21 +12731,21 @@ static const char *startup_source =
 "(hash-count old-props-with-origin_0)"
 "(hash-count new-props_0))"
 "(let-values()"
-"(let-values(((ht_69) old-props-with-origin_0))"
+"(let-values(((ht_66) old-props-with-origin_0))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
 "(#%variable-reference))"
 "(void)"
-"(let-values()(check-in-immutable-hash ht_69)))"
-"((letrec-values(((for-loop_83)"
-"(lambda(new-props_1 i_84)"
+"(let-values()(check-in-immutable-hash ht_66)))"
+"((letrec-values(((for-loop_80)"
+"(lambda(new-props_1 i_87)"
 "(begin"
 " 'for-loop"
-"(if i_84"
-"(let-values(((k_17 v_96)"
+"(if i_87"
+"(let-values(((k_17 v_2)"
 "(unsafe-immutable-hash-iterate-key+value"
-" ht_69"
-" i_84)))"
+" ht_66"
+" i_87)))"
 "(let-values(((new-props_2)"
 "(let-values(((new-props_3)"
 " new-props_1))"
@@ -12898,39 +12762,39 @@ static const char *startup_source =
 "(if(eq?"
 " new-v_0"
 " missing$1)"
-" v_96"
+" v_2"
 "(cons/preserve"
 " new-v_0"
-" v_96)))))))"
+" v_2)))))))"
 "(values"
 " new-props_4)))))"
 "(if(not #f)"
-"(for-loop_83"
+"(for-loop_80"
 " new-props_2"
 "(unsafe-immutable-hash-iterate-next"
-" ht_69"
-" i_84))"
+" ht_66"
+" i_87))"
 " new-props_2)))"
 " new-props_1)))))"
-" for-loop_83)"
+" for-loop_80)"
 " new-props_0"
-"(unsafe-immutable-hash-iterate-first ht_69)))))"
+"(unsafe-immutable-hash-iterate-first ht_66)))))"
 "(let-values()"
-"(let-values(((ht_70) new-props_0))"
+"(let-values(((ht_67) new-props_0))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
 "(#%variable-reference))"
 "(void)"
-"(let-values()(check-in-immutable-hash ht_70)))"
-"((letrec-values(((for-loop_84)"
-"(lambda(old-props_1 i_85)"
+"(let-values()(check-in-immutable-hash ht_67)))"
+"((letrec-values(((for-loop_81)"
+"(lambda(old-props_1 i_0)"
 "(begin"
 " 'for-loop"
-"(if i_85"
-"(let-values(((k_18 v_5)"
+"(if i_0"
+"(let-values(((k_18 v_87)"
 "(unsafe-immutable-hash-iterate-key+value"
-" ht_70"
-" i_85)))"
+" ht_67"
+" i_0)))"
 "(let-values(((old-props_2)"
 "(let-values(((old-props_3)"
 " old-props_1))"
@@ -12947,74 +12811,74 @@ static const char *startup_source =
 "(if(eq?"
 " old-v_0"
 " missing$1)"
-" v_5"
+" v_87"
 "(cons/preserve"
-" v_5"
+" v_87"
 " old-v_0)))))))"
 "(values"
 " old-props_4)))))"
 "(if(not #f)"
-"(for-loop_84"
+"(for-loop_81"
 " old-props_2"
 "(unsafe-immutable-hash-iterate-next"
-" ht_70"
-" i_85))"
+" ht_67"
+" i_0))"
 " old-props_2)))"
 " old-props_1)))))"
-" for-loop_84)"
+" for-loop_81)"
 " old-props-with-origin_0"
-"(unsafe-immutable-hash-iterate-first ht_70))))))))"
-"(let-values(((the-struct_35) new-stx_0))"
-"(if(syntax?$1 the-struct_35)"
-"(let-values(((props9_0) updated-props_0))"
+"(unsafe-immutable-hash-iterate-first ht_67))))))))"
+"(let-values(((the-struct_37) new-stx_0))"
+"(if(syntax?$1 the-struct_37)"
+"(let-values(((props8_0) updated-props_0))"
 "(syntax1.1"
-"(syntax-content the-struct_35)"
-"(syntax-scopes the-struct_35)"
-"(syntax-shifted-multi-scopes the-struct_35)"
-"(syntax-scope-propagations+tamper the-struct_35)"
-"(syntax-mpi-shifts the-struct_35)"
-"(syntax-srcloc the-struct_35)"
-" props9_0"
-"(syntax-inspector the-struct_35)))"
+"(syntax-content the-struct_37)"
+"(syntax-scopes the-struct_37)"
+"(syntax-shifted-multi-scopes the-struct_37)"
+"(syntax-scope-propagations+tamper the-struct_37)"
+"(syntax-mpi-shifts the-struct_37)"
+"(syntax-srcloc the-struct_37)"
+" props8_0"
+"(syntax-inspector the-struct_37)))"
 "(raise-argument-error"
 " 'struct-copy"
 "                                                 \"syntax?\""
-" the-struct_35)))))))))))))))))))"
+" the-struct_37)))))))))))))))))))"
 "(case-lambda"
-"((new-stx_1 old-stx_1)(begin 'syntax-track-origin(syntax-track-origin5_0 new-stx_1 old-stx_1 #f #f)))"
-"((new-stx_2 old-stx_2 id1_1)(syntax-track-origin5_0 new-stx_2 old-stx_2 id1_1 #t)))))"
+"((new-stx_1 old-stx_1)(begin 'syntax-track-origin(syntax-track-origin4_0 new-stx_1 old-stx_1 unsafe-undefined)))"
+"((new-stx_2 old-stx_2 id1_1)(syntax-track-origin4_0 new-stx_2 old-stx_2 id1_1)))))"
 "(define-values"
 "(cons/preserve)"
 "(lambda(a_34 b_49)"
 "(begin"
-"(if(let-values(((or-part_70)(preserved-property-value? a_34)))"
-"(if or-part_70 or-part_70(preserved-property-value? b_49)))"
+"(if(let-values(((or-part_67)(preserved-property-value? a_34)))"
+"(if or-part_67 or-part_67(preserved-property-value? b_49)))"
 "(preserved-property-value1.1(cons(plain-property-value a_34)(plain-property-value b_49)))"
 "(cons a_34 b_49)))))"
 "(define-values"
 "(syntax-track-origin*)"
 "(lambda(old-stxes_0 new-stx_3)"
 "(begin"
-"(let-values(((lst_57) old-stxes_0))"
+"(let-values(((lst_58) old-stxes_0))"
 "(begin"
-"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_57)))"
-"((letrec-values(((for-loop_85)"
-"(lambda(new-stx_4 lst_58)"
+"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_58)))"
+"((letrec-values(((for-loop_82)"
+"(lambda(new-stx_4 lst_24)"
 "(begin"
 " 'for-loop"
-"(if(pair? lst_58)"
-"(let-values(((old-stx_3)(unsafe-car lst_58))((rest_26)(unsafe-cdr lst_58)))"
+"(if(pair? lst_24)"
+"(let-values(((old-stx_3)(unsafe-car lst_24))((rest_26)(unsafe-cdr lst_24)))"
 "(let-values(((new-stx_5)"
 "(let-values(((new-stx_6) new-stx_4))"
 "(let-values(((new-stx_7)"
 "(let-values()"
 "(syntax-track-origin$1 new-stx_6 old-stx_3))))"
 "(values new-stx_7)))))"
-"(if(not #f)(for-loop_85 new-stx_5 rest_26) new-stx_5)))"
+"(if(not #f)(for-loop_82 new-stx_5 rest_26) new-stx_5)))"
 " new-stx_4)))))"
-" for-loop_85)"
+" for-loop_82)"
 " new-stx_3"
-" lst_57))))))"
+" lst_58))))))"
 "(define-values"
 "(1/struct:exn:fail:syntax make-exn:fail:syntax$1 1/exn:fail:syntax? 1/exn:fail:syntax-exprs)"
 "(let-values(((struct:_30 make-_30 ?_30 -ref_30 -set!_30)"
@@ -13061,25 +12925,17 @@ static const char *startup_source =
 "(values struct:_18 make-_18 ?_18)))"
 "(define-values"
 "(raise-syntax-error$1)"
-"(let-values(((raise-syntax-error11_0)"
-"(lambda(given-name9_0"
-" message10_0"
-" expr1_0"
-" sub-expr2_0"
-" extra-sources3_0"
-" message-suffix4_0"
-" expr5_0"
-" sub-expr6_0"
-" extra-sources7_0"
-" message-suffix8_0)"
+"(let-values(((raise-syntax-error7_0)"
+"(lambda(given-name5_0 message6_0 expr1_0 sub-expr2_0 extra-sources3_0 message-suffix4_0)"
 "(begin"
-" 'raise-syntax-error11"
-"(let-values(((given-name_0) given-name9_0))"
-"(let-values(((message_0) message10_0))"
-"(let-values(((expr_0)(if expr5_0 expr1_0 #f)))"
-"(let-values(((sub-expr_0)(if sub-expr6_0 sub-expr2_0 #f)))"
-"(let-values(((extra-sources_0)(if extra-sources7_0 extra-sources3_0 null)))"
-"                              (let-values (((message-suffix_0) (if message-suffix8_0 message-suffix4_0 \"\")))"
+" 'raise-syntax-error7"
+"(let-values(((given-name_0) given-name5_0))"
+"(let-values(((message_0) message6_0))"
+"(let-values(((expr_0) expr1_0))"
+"(let-values(((sub-expr_0) sub-expr2_0))"
+"(let-values(((extra-sources_0) extra-sources3_0))"
+"(let-values(((message-suffix_0)"
+"                                            (if (eq? message-suffix4_0 unsafe-undefined) \"\" message-suffix4_0)))"
 "(let-values()"
 "(let-values()"
 "(let-values()"
@@ -13094,35 +12950,28 @@ static const char *startup_source =
 " message-suffix_0))))))))))))))"
 "(case-lambda"
 "((given-name_1 message_1)"
-"(begin 'raise-syntax-error(raise-syntax-error11_0 given-name_1 message_1 #f #f #f #f #f #f #f #f)))"
+"(begin 'raise-syntax-error(raise-syntax-error7_0 given-name_1 message_1 #f #f null unsafe-undefined)))"
 "((given-name_2 message_2 expr_1 sub-expr_1 extra-sources_1 message-suffix4_1)"
-"(raise-syntax-error11_0 given-name_2 message_2 expr_1 sub-expr_1 extra-sources_1 message-suffix4_1 #t #t #t #t))"
+"(raise-syntax-error7_0 given-name_2 message_2 expr_1 sub-expr_1 extra-sources_1 message-suffix4_1))"
 "((given-name_3 message_3 expr_2 sub-expr_2 extra-sources3_1)"
-"(raise-syntax-error11_0 given-name_3 message_3 expr_2 sub-expr_2 extra-sources3_1 #f #t #t #t #f))"
+"(raise-syntax-error7_0 given-name_3 message_3 expr_2 sub-expr_2 extra-sources3_1 unsafe-undefined))"
 "((given-name_4 message_4 expr_3 sub-expr2_1)"
-"(raise-syntax-error11_0 given-name_4 message_4 expr_3 sub-expr2_1 #f #f #t #t #f #f))"
-"((given-name_5 message_5 expr1_1)(raise-syntax-error11_0 given-name_5 message_5 expr1_1 #f #f #f #t #f #f #f)))))"
+"(raise-syntax-error7_0 given-name_4 message_4 expr_3 sub-expr2_1 null unsafe-undefined))"
+"((given-name_5 message_5 expr1_1)"
+"(raise-syntax-error7_0 given-name_5 message_5 expr1_1 #f null unsafe-undefined)))))"
 "(define-values"
 "(raise-unbound-syntax-error)"
-"(let-values(((raise-unbound-syntax-error23_0)"
-"(lambda(given-name21_0"
-" message22_0"
-" expr13_0"
-" sub-expr14_0"
-" extra-sources15_0"
-" message-suffix16_0"
-" expr17_0"
-" sub-expr18_0"
-" extra-sources19_0"
-" message-suffix20_0)"
+"(let-values(((raise-unbound-syntax-error15_0)"
+"(lambda(given-name13_0 message14_0 expr9_0 sub-expr10_0 extra-sources11_0 message-suffix12_0)"
 "(begin"
-" 'raise-unbound-syntax-error23"
-"(let-values(((given-name_6) given-name21_0))"
-"(let-values(((message_6) message22_0))"
-"(let-values(((expr_4)(if expr17_0 expr13_0 #f)))"
-"(let-values(((sub-expr_3)(if sub-expr18_0 sub-expr14_0 #f)))"
-"(let-values(((extra-sources_2)(if extra-sources19_0 extra-sources15_0 null)))"
-"                              (let-values (((message-suffix_1) (if message-suffix20_0 message-suffix16_0 \"\")))"
+" 'raise-unbound-syntax-error15"
+"(let-values(((given-name_6) given-name13_0))"
+"(let-values(((message_6) message14_0))"
+"(let-values(((expr_4) expr9_0))"
+"(let-values(((sub-expr_3) sub-expr10_0))"
+"(let-values(((extra-sources_2) extra-sources11_0))"
+"(let-values(((message-suffix_1)"
+"                                            (if (eq? message-suffix12_0 unsafe-undefined) \"\" message-suffix12_0)))"
 "(let-values()"
 "(let-values()"
 "(let-values()"
@@ -13136,106 +12985,97 @@ static const char *startup_source =
 " extra-sources_2"
 " message-suffix_1))))))))))))))"
 "(case-lambda"
-"((given-name_7 message_7)(begin(raise-unbound-syntax-error23_0 given-name_7 message_7 #f #f #f #f #f #f #f #f)))"
-"((given-name_8 message_8 expr_5 sub-expr_4 extra-sources_3 message-suffix16_1)"
-"(raise-unbound-syntax-error23_0"
-" given-name_8"
-" message_8"
-" expr_5"
-" sub-expr_4"
-" extra-sources_3"
-" message-suffix16_1"
-" #t"
-" #t"
-" #t"
-" #t))"
-"((given-name_9 message_9 expr_6 sub-expr_5 extra-sources15_1)"
-"(raise-unbound-syntax-error23_0 given-name_9 message_9 expr_6 sub-expr_5 extra-sources15_1 #f #t #t #t #f))"
-"((given-name_10 message_10 expr_7 sub-expr14_1)"
-"(raise-unbound-syntax-error23_0 given-name_10 message_10 expr_7 sub-expr14_1 #f #f #t #t #f #f))"
-"((given-name_11 message_11 expr13_1)"
-"(raise-unbound-syntax-error23_0 given-name_11 message_11 expr13_1 #f #f #f #t #f #f #f)))))"
+"((given-name_7 message_7)"
+"(begin(raise-unbound-syntax-error15_0 given-name_7 message_7 #f #f null unsafe-undefined)))"
+"((given-name_8 message_8 expr_5 sub-expr_4 extra-sources_3 message-suffix12_1)"
+"(raise-unbound-syntax-error15_0 given-name_8 message_8 expr_5 sub-expr_4 extra-sources_3 message-suffix12_1))"
+"((given-name_9 message_9 expr_6 sub-expr_5 extra-sources11_1)"
+"(raise-unbound-syntax-error15_0 given-name_9 message_9 expr_6 sub-expr_5 extra-sources11_1 unsafe-undefined))"
+"((given-name_10 message_10 expr_7 sub-expr10_1)"
+"(raise-unbound-syntax-error15_0 given-name_10 message_10 expr_7 sub-expr10_1 null unsafe-undefined))"
+"((given-name_11 message_11 expr9_1)"
+"(raise-unbound-syntax-error15_0 given-name_11 message_11 expr9_1 #f null unsafe-undefined)))))"
 "(define-values"
 "(do-raise-syntax-error)"
-"(lambda(who_9 exn:fail:syntax_0 given-name_12 message_12 expr_8 sub-expr_6 extra-sources_4 message-suffix_2)"
+"(lambda(who_8 exn:fail:syntax_0 given-name_12 message_12 expr_8 sub-expr_6 extra-sources_4 message-suffix_2)"
 "(begin"
 "(let-values((()"
 "(begin"
-"(if((lambda(x_12)"
-"(let-values(((or-part_138)(not x_12)))(if or-part_138 or-part_138(symbol? x_12))))"
+"(if((lambda(x_40)"
+"(let-values(((or-part_100)(not x_40)))(if or-part_100 or-part_100(symbol? x_40))))"
 " given-name_12)"
 "(void)"
-"                        (let-values () (raise-argument-error who_9 \"(or/c symbol? #f)\" given-name_12)))"
+"                        (let-values () (raise-argument-error who_8 \"(or/c symbol? #f)\" given-name_12)))"
 "(values))))"
 "(let-values((()"
 "(begin"
 "(if(string? message_12)"
 "(void)"
-"                          (let-values () (raise-argument-error who_9 \"string?\" message_12)))"
+"                          (let-values () (raise-argument-error who_8 \"string?\" message_12)))"
 "(values))))"
 "(let-values((()"
 "(begin"
 "(if(if(list? extra-sources_4)(andmap2 syntax?$1 extra-sources_4) #f)"
 "(void)"
-"                            (let-values () (raise-argument-error who_9 \"(listof syntax?)\" extra-sources_4)))"
+"                            (let-values () (raise-argument-error who_8 \"(listof syntax?)\" extra-sources_4)))"
 "(values))))"
 "(let-values((()"
 "(begin"
 "(if(string? message-suffix_2)"
 "(void)"
-"                              (let-values () (raise-argument-error who_9 \"string?\" message-suffix_2)))"
+"                              (let-values () (raise-argument-error who_8 \"string?\" message-suffix_2)))"
 "(values))))"
 "(let-values(((name_27)"
 "(format"
 "                             \"~a\""
-"(let-values(((or-part_139) given-name_12))"
-"(if or-part_139"
-" or-part_139"
-"(let-values(((or-part_140)(extract-form-name expr_8)))"
-"(if or-part_140 or-part_140 '?)))))))"
+"(let-values(((or-part_136) given-name_12))"
+"(if or-part_136"
+" or-part_136"
+"(let-values(((or-part_141)(extract-form-name expr_8)))"
+"(if or-part_141 or-part_141 '?)))))))"
 "(let-values(((at-message_0)"
-"(let-values(((or-part_134)"
+"(let-values(((or-part_142)"
 "(if sub-expr_6"
 "(if(error-print-source-location)"
 "                                                (format \"\\n  at: ~.s\" (syntax->datum$1 (datum->syntax$1 #f sub-expr_6)))"
 " #f)"
 " #f)))"
-"                                (if or-part_134 or-part_134 \"\"))))"
+"                                (if or-part_142 or-part_142 \"\"))))"
 "(let-values(((in-message_0)"
-"(let-values(((or-part_141)"
+"(let-values(((or-part_135)"
 "(if expr_8"
 "(if(error-print-source-location)"
 "                                                  (format \"\\n  in: ~.s\" (syntax->datum$1 (datum->syntax$1 #f expr_8)))"
 " #f)"
 " #f)))"
-"                                  (if or-part_141 or-part_141 \"\"))))"
+"                                  (if or-part_135 or-part_135 \"\"))))"
 "(let-values(((src-loc-str_0)"
-"(let-values(((or-part_55)"
+"(let-values(((or-part_143)"
 "(if(error-print-source-location)"
-"(let-values(((or-part_98)(extract-source-location sub-expr_6)))"
-"(if or-part_98 or-part_98(extract-source-location expr_8)))"
+"(let-values(((or-part_144)(extract-source-location sub-expr_6)))"
+"(if or-part_144 or-part_144(extract-source-location expr_8)))"
 " #f)))"
-"                                    (if or-part_55 or-part_55 \"\"))))"
+"                                    (if or-part_143 or-part_143 \"\"))))"
 "(raise"
 "(exn:fail:syntax_0"
 "                        (string-append src-loc-str_0 name_27 \": \" message_12 at-message_0 in-message_0 message-suffix_2)"
 "(current-continuation-marks)"
 "(map2"
 " syntax-taint$1"
-"(if(let-values(((or-part_142) sub-expr_6))(if or-part_142 or-part_142 expr_8))"
+"(if(let-values(((or-part_145) sub-expr_6))(if or-part_145 or-part_145 expr_8))"
 "(cons"
 "(datum->syntax$1"
 " #f"
-"(let-values(((or-part_99) sub-expr_6))(if or-part_99 or-part_99 expr_8)))"
+"(let-values(((or-part_137) sub-expr_6))(if or-part_137 or-part_137 expr_8)))"
 " extra-sources_4)"
 " extra-sources_4)))))))))))))))"
 "(define-values"
 "(extract-form-name)"
-"(lambda(s_30)"
+"(lambda(s_166)"
 "(begin"
-"(if(syntax?$1 s_30)"
+"(if(syntax?$1 s_166)"
 "(let-values()"
-"(let-values(((e_18)(syntax-e$1 s_30)))"
+"(let-values(((e_18)(syntax-e$1 s_166)))"
 "(if(symbol? e_18)"
 "(let-values() e_18)"
 "(if(if(pair? e_18)(identifier?(car e_18)) #f)"
@@ -13244,11 +13084,11 @@ static const char *startup_source =
 "(let-values() #f)))))"
 "(define-values"
 "(extract-source-location)"
-"(lambda(s_168)"
+"(lambda(s_26)"
 "(begin"
-"(if(syntax?$1 s_168)"
-"(if(syntax-srcloc s_168)"
-"          (let-values (((str_2) (srcloc->string (syntax-srcloc s_168)))) (if str_2 (string-append str_2 \": \") #f))"
+"(if(syntax?$1 s_26)"
+"(if(syntax-srcloc s_26)"
+"          (let-values (((str_2) (srcloc->string (syntax-srcloc s_26)))) (if str_2 (string-append str_2 \": \") #f))"
 " #f)"
 " #f))))"
 "(define-values"
@@ -13337,7 +13177,7 @@ static const char *startup_source =
 " module-linklet-info-inspector"
 " module-linklet-info-extra-inspector"
 " module-linklet-info-extra-inspectorsss)"
-"(let-values(((struct:_37 make-_37 ?_37 -ref_37 -set!_37)"
+"(let-values(((struct:_38 make-_38 ?_38 -ref_38 -set!_38)"
 "(let-values()"
 "(let-values()"
 "(make-struct-type"
@@ -13353,84 +13193,71 @@ static const char *startup_source =
 " #f"
 " 'module-linklet-info)))))"
 "(values"
-" struct:_37"
-" make-_37"
-" ?_37"
-"(make-struct-field-accessor -ref_37 0 'linklet-or-instance)"
-"(make-struct-field-accessor -ref_37 1 'module-uses)"
-"(make-struct-field-accessor -ref_37 2 'self)"
-"(make-struct-field-accessor -ref_37 3 'inspector)"
-"(make-struct-field-accessor -ref_37 4 'extra-inspector)"
-"(make-struct-field-accessor -ref_37 5 'extra-inspectorsss))))"
+" struct:_38"
+" make-_38"
+" ?_38"
+"(make-struct-field-accessor -ref_38 0 'linklet-or-instance)"
+"(make-struct-field-accessor -ref_38 1 'module-uses)"
+"(make-struct-field-accessor -ref_38 2 'self)"
+"(make-struct-field-accessor -ref_38 3 'inspector)"
+"(make-struct-field-accessor -ref_38 4 'extra-inspector)"
+"(make-struct-field-accessor -ref_38 5 'extra-inspectorsss))))"
 "(define-values"
 "(make-module39.1)"
 "(lambda(cross-phase-persistent?16_0"
-" cross-phase-persistent?34_0"
 " force-bulk-binding-callback10_0"
-" force-bulk-binding-callback28_0"
 " get-all-variables20_0"
-" get-all-variables38_0"
 " instantiate-phase-callback9_0"
 " language-info13_0"
-" language-info31_0"
 " max-phase-level8_0"
-" max-phase-level26_0"
 " min-phase-level7_0"
-" min-phase-level25_0"
 " no-protected?17_0"
-" no-protected?35_0"
 " phase-level-linklet-info-callback12_0"
-" phase-level-linklet-info-callback30_0"
 " predefined?15_0"
-" predefined?33_0"
 " prepare-instance-callback11_0"
-" prepare-instance-callback29_0"
 " primitive?14_0"
-" primitive?32_0"
 " provides6_0"
 " requires5_0"
-" requires23_0"
 " self4_0"
 " source-name3_0"
-" source-name21_0"
 " submodule-names18_0"
-" submodule-names36_0"
-" supermodule-name19_0"
-" supermodule-name37_0)"
+" supermodule-name19_0)"
 "(begin"
 " 'make-module39"
-"(let-values(((source-name_0)(if source-name21_0 source-name3_0 #f)))"
+"(let-values(((source-name_0) source-name3_0))"
 "(let-values(((self_4) self4_0))"
-"(let-values(((requires_0)(if requires23_0 requires5_0 null)))"
+"(let-values(((requires_0) requires5_0))"
 "(let-values(((provides_3) provides6_0))"
-"(let-values(((min-phase-level_0)(if min-phase-level25_0 min-phase-level7_0 0)))"
-"(let-values(((max-phase-level_0)(if max-phase-level26_0 max-phase-level8_0 0)))"
+"(let-values(((min-phase-level_0) min-phase-level7_0))"
+"(let-values(((max-phase-level_0) max-phase-level8_0))"
 "(let-values(((instantiate-phase_0) instantiate-phase-callback9_0))"
 "(let-values(((force-bulk-binding_0)"
-"(if force-bulk-binding-callback28_0 force-bulk-binding-callback10_0 void)))"
+"(if(eq? force-bulk-binding-callback10_0 unsafe-undefined)"
+" void"
+" force-bulk-binding-callback10_0)))"
 "(let-values(((prepare-instance_0)"
-"(if prepare-instance-callback29_0 prepare-instance-callback11_0 void)))"
+"(if(eq? prepare-instance-callback11_0 unsafe-undefined)"
+" void"
+" prepare-instance-callback11_0)))"
 "(let-values(((phase-level-linklet-info-callback_0)"
-"(if phase-level-linklet-info-callback30_0"
-" phase-level-linklet-info-callback12_0"
+"(if(eq? phase-level-linklet-info-callback12_0 unsafe-undefined)"
 "(lambda(phase-level_11 ns_19 insp_4)"
-"(begin 'phase-level-linklet-info-callback #f)))))"
-"(let-values(((language-info_0)(if language-info31_0 language-info13_0 #f)))"
-"(let-values(((primitive?_0)(if primitive?32_0 primitive?14_0 #f)))"
-"(let-values(((predefined?_0)(if predefined?33_0 predefined?15_0 #f)))"
+"(begin 'phase-level-linklet-info-callback #f))"
+" phase-level-linklet-info-callback12_0)))"
+"(let-values(((language-info_0) language-info13_0))"
+"(let-values(((primitive?_0) primitive?14_0))"
+"(let-values(((predefined?_0) predefined?15_0))"
 "(let-values(((cross-phase-persistent?_0)"
-"(if cross-phase-persistent?34_0"
-" cross-phase-persistent?16_0"
-" primitive?_0)))"
-"(let-values(((no-protected?_0)(if no-protected?35_0 no-protected?17_0 #f)))"
-"(let-values(((submodule-names_0)"
-"(if submodule-names36_0 submodule-names18_0 null)))"
-"(let-values(((supermodule-name_0)"
-"(if supermodule-name37_0 supermodule-name19_0 #f)))"
+"(if(eq? cross-phase-persistent?16_0 unsafe-undefined)"
+" primitive?_0"
+" cross-phase-persistent?16_0)))"
+"(let-values(((no-protected?_0) no-protected?17_0))"
+"(let-values(((submodule-names_0) submodule-names18_0))"
+"(let-values(((supermodule-name_0) supermodule-name19_0))"
 "(let-values(((get-all-variables_0)"
-"(if get-all-variables38_0"
-" get-all-variables20_0"
-"(lambda()(begin 'get-all-variables null)))))"
+"(if(eq? get-all-variables20_0 unsafe-undefined)"
+"(lambda()(begin 'get-all-variables null))"
+" get-all-variables20_0)))"
 "(let-values()"
 "(module1.1"
 " source-name_0"
@@ -13467,7 +13294,7 @@ static const char *startup_source =
 " set-module-instance-shifted-requires!"
 " set-module-instance-made-available?!"
 " set-module-instance-attached?!)"
-"(let-values(((struct:_38 make-_38 ?_38 -ref_38 -set!_38)"
+"(let-values(((struct:_39 make-_39 ?_39 -ref_39 -set!_39)"
 "(let-values()"
 "(let-values()"
 "(make-struct-type"
@@ -13483,19 +13310,19 @@ static const char *startup_source =
 " #f"
 " 'module-instance)))))"
 "(values"
-" struct:_38"
-" make-_38"
-" ?_38"
-"(make-struct-field-accessor -ref_38 0 'namespace)"
-"(make-struct-field-accessor -ref_38 1 'module)"
-"(make-struct-field-accessor -ref_38 2 'shifted-requires)"
-"(make-struct-field-accessor -ref_38 3 'phase-level-to-state)"
-"(make-struct-field-accessor -ref_38 4 'made-available?)"
-"(make-struct-field-accessor -ref_38 5 'attached?)"
-"(make-struct-field-accessor -ref_38 6 'data-box)"
-"(make-struct-field-mutator -set!_38 2 'shifted-requires)"
-"(make-struct-field-mutator -set!_38 4 'made-available?)"
-"(make-struct-field-mutator -set!_38 5 'attached?))))"
+" struct:_39"
+" make-_39"
+" ?_39"
+"(make-struct-field-accessor -ref_39 0 'namespace)"
+"(make-struct-field-accessor -ref_39 1 'module)"
+"(make-struct-field-accessor -ref_39 2 'shifted-requires)"
+"(make-struct-field-accessor -ref_39 3 'phase-level-to-state)"
+"(make-struct-field-accessor -ref_39 4 'made-available?)"
+"(make-struct-field-accessor -ref_39 5 'attached?)"
+"(make-struct-field-accessor -ref_39 6 'data-box)"
+"(make-struct-field-mutator -set!_39 2 'shifted-requires)"
+"(make-struct-field-mutator -set!_39 4 'made-available?)"
+"(make-struct-field-mutator -set!_39 5 'attached?))))"
 "(define-values"
 "(make-module-instance)"
 "(lambda(m-ns_0 m_1)(begin(module-instance42.1 m-ns_0 m_1 #f(make-small-hasheqv) #f #f(box #f)))))"
@@ -13509,61 +13336,61 @@ static const char *startup_source =
 "(let-values(((root-expand-ctx_1) root-expand-context44_0))"
 "(let-values(((for-submodule?_0) for-submodule?45_0))"
 "(let-values()"
-"(let-values(((phase_29) 0))"
+"(let-values(((phase_28) 0))"
 "(let-values(((name_28)(1/module-path-index-resolve name-mpi_0)))"
 "(let-values(((m-ns_1)"
-"(let-values(((the-struct_36)"
-"(let-values(((ns160_0) ns_20)"
-"((root-expand-ctx161_0) root-expand-ctx_1)"
-"((temp162_0) #f))"
-"(new-namespace9.1 temp162_0 #t root-expand-ctx161_0 #t ns160_0 #t))))"
-"(if(1/namespace? the-struct_36)"
-"(let-values(((mpi152_0) name-mpi_0)"
-"((source-name153_0)(resolved-module-path-root-name name_28))"
-"((phase154_0) phase_29)"
-"((0-phase155_0) phase_29)"
-"((submodule-declarations156_0)"
+"(let-values(((the-struct_38)"
+"(let-values(((ns158_0) ns_20)"
+"((root-expand-ctx159_0) root-expand-ctx_1)"
+"((temp160_0) #f))"
+"(new-namespace8.1 temp160_0 root-expand-ctx159_0 ns158_0))))"
+"(if(1/namespace? the-struct_38)"
+"(let-values(((mpi150_0) name-mpi_0)"
+"((source-name151_0)(resolved-module-path-root-name name_28))"
+"((phase152_0) phase_28)"
+"((0-phase153_0) phase_28)"
+"((submodule-declarations154_0)"
 "(if for-submodule?_0"
 "(namespace-submodule-declarations ns_20)"
 "(make-small-hasheq)))"
-"((available-module-instances157_0)(make-hasheqv))"
-"((module-instances158_0)(make-hasheqv))"
-"((declaration-inspector159_0)(current-code-inspector)))"
+"((available-module-instances155_0)(make-hasheqv))"
+"((module-instances156_0)(make-hasheqv))"
+"((declaration-inspector157_0)(current-code-inspector)))"
 "(namespace1.1"
-" mpi152_0"
-" source-name153_0"
-"(namespace-root-expand-ctx the-struct_36)"
-" phase154_0"
-" 0-phase155_0"
-"(namespace-phase-to-namespace the-struct_36)"
-"(namespace-phase-level-to-definitions the-struct_36)"
-"(namespace-module-registry$1 the-struct_36)"
-"(namespace-bulk-binding-registry the-struct_36)"
-" submodule-declarations156_0"
-"(namespace-root-namespace the-struct_36)"
-" declaration-inspector159_0"
-"(namespace-inspector the-struct_36)"
-" available-module-instances157_0"
-" module-instances158_0))"
-"                                      (raise-argument-error 'struct-copy \"namespace?\" the-struct_36)))))"
+" mpi150_0"
+" source-name151_0"
+"(namespace-root-expand-ctx the-struct_38)"
+" phase152_0"
+" 0-phase153_0"
+"(namespace-phase-to-namespace the-struct_38)"
+"(namespace-phase-level-to-definitions the-struct_38)"
+"(namespace-module-registry$1 the-struct_38)"
+"(namespace-bulk-binding-registry the-struct_38)"
+" submodule-declarations154_0"
+"(namespace-root-namespace the-struct_38)"
+" declaration-inspector157_0"
+"(namespace-inspector the-struct_38)"
+" available-module-instances155_0"
+" module-instances156_0))"
+"                                      (raise-argument-error 'struct-copy \"namespace?\" the-struct_38)))))"
 "(let-values((()"
 "(begin"
-"(small-hash-set!(namespace-phase-to-namespace m-ns_1) phase_29 m-ns_1)"
+"(small-hash-set!(namespace-phase-to-namespace m-ns_1) phase_28 m-ns_1)"
 "(values))))"
 "(let-values(((at-phase_0)(make-hasheq)))"
 "(begin"
-"(hash-set!(namespace-module-instances m-ns_1) phase_29 at-phase_0)"
+"(hash-set!(namespace-module-instances m-ns_1) phase_28 at-phase_0)"
 "(hash-set! at-phase_0 name_28(make-module-instance m-ns_1 #f))"
 " m-ns_1))))))))))))))"
 "(define-values"
 "(declare-module!58.1)"
-"(lambda(with-submodules?53_0 with-submodules?54_0 ns55_0 m56_0 mod-name57_0)"
+"(lambda(with-submodules?53_0 ns55_0 m56_0 mod-name57_0)"
 "(begin"
 " 'declare-module!58"
 "(let-values(((ns_21) ns55_0))"
 "(let-values(((m_2) m56_0))"
 "(let-values(((mod-name_4) mod-name57_0))"
-"(let-values(((with-submodules?_0)(if with-submodules?54_0 with-submodules?53_0 #t)))"
+"(let-values(((with-submodules?_0) with-submodules?53_0))"
 "(let-values()"
 "(let-values(((prior-m_0)"
 "(if with-submodules?_0"
@@ -13575,19 +13402,16 @@ static const char *startup_source =
 "(let-values(((prior-mi_0)"
 "(if prior-m_0"
 "(if(not(eq? m_2 prior-m_0))"
-"(let-values(((ns163_0) ns_21)"
-"((mod-name164_0) mod-name_4)"
-"((temp165_0)(namespace-phase ns_21)))"
+"(let-values(((ns161_0) ns_21)"
+"((mod-name162_0) mod-name_4)"
+"((temp163_0)(namespace-phase ns_21)))"
 "(namespace->module-instance70.1"
 " #f"
 " #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" ns163_0"
-" mod-name164_0"
-" temp165_0))"
+" unsafe-undefined"
+" ns161_0"
+" mod-name162_0"
+" temp163_0))"
 " #f)"
 " #f)))"
 "(begin"
@@ -13611,36 +13435,36 @@ static const char *startup_source =
 "(let-values()"
 "(let-values(((m-ns_2)(module-instance-namespace prior-mi_0)))"
 "(let-values(((states_0)(module-instance-phase-level-to-state prior-mi_0)))"
-"(let-values(((phase_30)(namespace-phase ns_21)))"
-"(let-values(((visit?_0)(eq? 'started(small-hash-ref states_0(add1 phase_30) #f))))"
-"(let-values(((run?_0)(eq? 'started(small-hash-ref states_0 phase_30 #f))))"
-"(let-values(((at-phase_1)(hash-ref(namespace-module-instances ns_21) phase_30)))"
+"(let-values(((phase_29)(namespace-phase ns_21)))"
+"(let-values(((visit?_0)(eq? 'started(small-hash-ref states_0(add1 phase_29) #f))))"
+"(let-values(((run?_0)(eq? 'started(small-hash-ref states_0 phase_29 #f))))"
+"(let-values(((at-phase_1)(hash-ref(namespace-module-instances ns_21) phase_29)))"
 "(begin"
 "(hash-set! at-phase_1 mod-name_4(make-module-instance m-ns_2 m_2))"
 "(if visit?_0"
 "(let-values()"
-"(let-values(((ns166_0) ns_21)"
-"((temp167_0)(namespace-mpi m-ns_2))"
-"((phase168_0) phase_30))"
-"(namespace-module-visit!104.1 #f #f ns166_0 temp167_0 phase168_0)))"
+"(let-values(((ns164_0) ns_21)"
+"((temp165_0)(namespace-mpi m-ns_2))"
+"((phase166_0) phase_29))"
+"(namespace-module-visit!104.1"
+" unsafe-undefined"
+" ns164_0"
+" temp165_0"
+" phase166_0)))"
 "(void))"
 "(if run?_0"
 "(let-values()"
-"(let-values(((ns169_0) ns_21)"
-"((temp170_0)(namespace-mpi m-ns_2))"
-"((phase171_0) phase_30))"
+"(let-values(((ns167_0) ns_21)"
+"((temp168_0)(namespace-mpi m-ns_2))"
+"((phase169_0) phase_29))"
 "(namespace-module-instantiate!96.1"
+" #t"
+" unsafe-undefined"
+" unsafe-undefined"
 " #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" ns169_0"
-" temp170_0"
-" phase171_0)))"
+" ns167_0"
+" temp168_0"
+" phase169_0)))"
 "(void))))))))))"
 "(void)))))))))))))"
 "(define-values"
@@ -13653,9 +13477,9 @@ static const char *startup_source =
 "            (raise-arguments-error 'module \"cannot redeclare cross-phase persistent module\" \"module name\" mod-name_5))"
 "(void))"
 "(if(if prior-mi_1"
-"(let-values(((or-part_143)(module-instance-attached? prior-mi_1)))"
-"(if or-part_143"
-" or-part_143"
+"(let-values(((or-part_146)(module-instance-attached? prior-mi_1)))"
+"(if or-part_146"
+" or-part_146"
 "(not"
 "(inspector-superior?"
 "(current-code-inspector)"
@@ -13666,7 +13490,7 @@ static const char *startup_source =
 "(void))))))"
 "(define-values"
 "(raise-unknown-module-error)"
-"  (lambda (who_10 mod-name_6) (begin (raise-arguments-error who_10 \"unknown module\" \"module name\" mod-name_6))))"
+"  (lambda (who_9 mod-name_6) (begin (raise-arguments-error who_9 \"unknown module\" \"module name\" mod-name_6))))"
 "(define-values"
 "(namespace->module-linklet-info)"
 "(lambda(ns_22 name_29 phase-level_12)"
@@ -13676,11 +13500,8 @@ static const char *startup_source =
 "(define-values"
 "(namespace->module-instance70.1)"
 "(lambda(check-available-at-phase-level62_0"
-" check-available-at-phase-level65_0"
 " complain-on-failure?61_0"
-" complain-on-failure?64_0"
 " unavailable-callback63_0"
-" unavailable-callback66_0"
 " ns67_0"
 " name68_0"
 " 0-phase69_0)"
@@ -13689,27 +13510,27 @@ static const char *startup_source =
 "(let-values(((ns_23) ns67_0))"
 "(let-values(((name_30) name68_0))"
 "(let-values(((0-phase_1) 0-phase69_0))"
-"(let-values(((complain-on-failure?_0)(if complain-on-failure?64_0 complain-on-failure?61_0 #f)))"
-"(let-values(((check-available-at-phase-level_0)"
-"(if check-available-at-phase-level65_0 check-available-at-phase-level62_0 #f)))"
-"(let-values(((unavailable-callback_0)(if unavailable-callback66_0 unavailable-callback63_0 void)))"
+"(let-values(((complain-on-failure?_0) complain-on-failure?61_0))"
+"(let-values(((check-available-at-phase-level_0) check-available-at-phase-level62_0))"
+"(let-values(((unavailable-callback_0)"
+"(if(eq? unavailable-callback63_0 unsafe-undefined) void unavailable-callback63_0)))"
 "(let-values()"
 "(let-values(((mi_0)"
-"(let-values(((or-part_144)"
+"(let-values(((or-part_147)"
 "(hash-ref"
 "(hash-ref(namespace-module-instances ns_23) 0-phase_1 '#hasheq())"
 " name_30"
 " #f)))"
-"(if or-part_144"
-" or-part_144"
-"(let-values(((or-part_145)"
+"(if or-part_147"
+" or-part_147"
+"(let-values(((or-part_148)"
 "(let-values(((c-ns_0)"
-"(let-values(((or-part_146)"
+"(let-values(((or-part_149)"
 "(namespace-root-namespace ns_23)))"
-"(if or-part_146 or-part_146 ns_23))))"
+"(if or-part_149 or-part_149 ns_23))))"
 "(hash-ref(namespace-module-instances c-ns_0) name_30 #f))))"
-"(if or-part_145"
-" or-part_145"
+"(if or-part_148"
+" or-part_148"
 "(if complain-on-failure?_0"
 "                                            (error \"no module instance found:\" name_30 0-phase_1)"
 " #f)))))))"
@@ -13721,37 +13542,37 @@ static const char *startup_source =
 "(lambda(ns_24 name_31 0-phase_2 m_4 existing-m-ns_0)"
 "(begin"
 "(let-values(((m-ns_3)"
-"(let-values(((the-struct_37) ns_24))"
-"(if(1/namespace? the-struct_37)"
-"(let-values(((mpi172_0)(namespace-mpi existing-m-ns_0))"
-"((source-name173_0)(namespace-source-name existing-m-ns_0))"
-"((root-expand-ctx174_0)(box(unbox(namespace-root-expand-ctx existing-m-ns_0))))"
-"((phase175_0)(namespace-phase existing-m-ns_0))"
-"((0-phase176_0)(namespace-0-phase existing-m-ns_0))"
-"((phase-to-namespace177_0)(make-small-hasheqv))"
-"((phase-level-to-definitions178_0)"
+"(let-values(((the-struct_39) ns_24))"
+"(if(1/namespace? the-struct_39)"
+"(let-values(((mpi170_0)(namespace-mpi existing-m-ns_0))"
+"((source-name171_0)(namespace-source-name existing-m-ns_0))"
+"((root-expand-ctx172_0)(box(unbox(namespace-root-expand-ctx existing-m-ns_0))))"
+"((phase173_0)(namespace-phase existing-m-ns_0))"
+"((0-phase174_0)(namespace-0-phase existing-m-ns_0))"
+"((phase-to-namespace175_0)(make-small-hasheqv))"
+"((phase-level-to-definitions176_0)"
 "(if(module-cross-phase-persistent? m_4)"
 "(namespace-phase-level-to-definitions existing-m-ns_0)"
 "(make-small-hasheqv)))"
-"((declaration-inspector179_0)(module-inspector m_4))"
-"((inspector180_0)(namespace-inspector existing-m-ns_0)))"
+"((declaration-inspector177_0)(module-inspector m_4))"
+"((inspector178_0)(namespace-inspector existing-m-ns_0)))"
 "(namespace1.1"
-" mpi172_0"
-" source-name173_0"
-" root-expand-ctx174_0"
-" phase175_0"
-" 0-phase176_0"
-" phase-to-namespace177_0"
-" phase-level-to-definitions178_0"
-"(namespace-module-registry$1 the-struct_37)"
-"(namespace-bulk-binding-registry the-struct_37)"
-"(namespace-submodule-declarations the-struct_37)"
-"(namespace-root-namespace the-struct_37)"
-" declaration-inspector179_0"
-" inspector180_0"
-"(namespace-available-module-instances the-struct_37)"
-"(namespace-module-instances the-struct_37)))"
-"                        (raise-argument-error 'struct-copy \"namespace?\" the-struct_37)))))"
+" mpi170_0"
+" source-name171_0"
+" root-expand-ctx172_0"
+" phase173_0"
+" 0-phase174_0"
+" phase-to-namespace175_0"
+" phase-level-to-definitions176_0"
+"(namespace-module-registry$1 the-struct_39)"
+"(namespace-bulk-binding-registry the-struct_39)"
+"(namespace-submodule-declarations the-struct_39)"
+"(namespace-root-namespace the-struct_39)"
+" declaration-inspector177_0"
+" inspector178_0"
+"(namespace-available-module-instances the-struct_39)"
+"(namespace-module-instances the-struct_39)))"
+"                        (raise-argument-error 'struct-copy \"namespace?\" the-struct_39)))))"
 "(let-values(((mi_1)(make-module-instance m-ns_3 m_4)))"
 "(if(module-cross-phase-persistent? m_4)"
 "(let-values()"
@@ -13768,7 +13589,7 @@ static const char *startup_source =
 "(namespace->definitions existing-m-ns_0 1))"
 "(hash-set!"
 "(namespace-module-instances"
-"(let-values(((or-part_147)(namespace-root-namespace ns_24)))(if or-part_147 or-part_147 ns_24)))"
+"(let-values(((or-part_150)(namespace-root-namespace ns_24)))(if or-part_150 or-part_150 ns_24)))"
 " name_31"
 " mi_1)"
 "(small-hash-set!(module-instance-phase-level-to-state mi_1) 0 'started)))"
@@ -13787,10 +13608,10 @@ static const char *startup_source =
 "(small-hash-set!(module-instance-phase-level-to-state mi_1) 0 'started)"
 "(values))))"
 "(let-values(((at-phase_2)"
-"(let-values(((or-part_148)"
+"(let-values(((or-part_151)"
 "(hash-ref(namespace-module-instances ns_24) 0-phase_2 #f)))"
-"(if or-part_148"
-" or-part_148"
+"(if or-part_151"
+" or-part_151"
 "(let-values(((at-phase_3)(make-hasheq)))"
 "(begin"
 "(hash-set!(namespace-module-instances ns_24) 0-phase_2 at-phase_3)"
@@ -13798,50 +13619,50 @@ static const char *startup_source =
 "(hash-set! at-phase_2 name_31 mi_1))))))))))))"
 "(define-values"
 "(namespace-create-module-instance!)"
-"(lambda(ns_25 name_32 0-phase_3 m_5 mpi_16)"
+"(lambda(ns_25 name_32 0-phase_3 m_5 mpi_15)"
 "(begin"
 "(let-values(((m-ns_4)"
-"(let-values(((the-struct_38) ns_25))"
-"(if(1/namespace? the-struct_38)"
-"(let-values(((mpi181_0) mpi_16)"
-"((source-name182_0)"
-"(let-values(((or-part_149)(module-source-name m_5)))"
-"(if or-part_149"
-" or-part_149"
-"(resolved-module-path-root-name(1/module-path-index-resolve mpi_16)))))"
-"((root-expand-ctx183_0)(box #f))"
-"((phase184_0) 0-phase_3)"
-"((0-phase185_0) 0-phase_3)"
-"((phase-to-namespace186_0)(make-small-hasheqv))"
-"((phase-level-to-definitions187_0)(make-small-hasheqv))"
-"((declaration-inspector188_0)(module-inspector m_5))"
-"((inspector189_0)(make-inspector(module-inspector m_5))))"
+"(let-values(((the-struct_40) ns_25))"
+"(if(1/namespace? the-struct_40)"
+"(let-values(((mpi179_0) mpi_15)"
+"((source-name180_0)"
+"(let-values(((or-part_152)(module-source-name m_5)))"
+"(if or-part_152"
+" or-part_152"
+"(resolved-module-path-root-name(1/module-path-index-resolve mpi_15)))))"
+"((root-expand-ctx181_0)(box #f))"
+"((phase182_0) 0-phase_3)"
+"((0-phase183_0) 0-phase_3)"
+"((phase-to-namespace184_0)(make-small-hasheqv))"
+"((phase-level-to-definitions185_0)(make-small-hasheqv))"
+"((declaration-inspector186_0)(module-inspector m_5))"
+"((inspector187_0)(make-inspector(module-inspector m_5))))"
 "(namespace1.1"
-" mpi181_0"
-" source-name182_0"
-" root-expand-ctx183_0"
-" phase184_0"
-" 0-phase185_0"
-" phase-to-namespace186_0"
-" phase-level-to-definitions187_0"
-"(namespace-module-registry$1 the-struct_38)"
-"(namespace-bulk-binding-registry the-struct_38)"
-"(namespace-submodule-declarations the-struct_38)"
-"(namespace-root-namespace the-struct_38)"
-" declaration-inspector188_0"
-" inspector189_0"
-"(namespace-available-module-instances the-struct_38)"
-"(namespace-module-instances the-struct_38)))"
-"                        (raise-argument-error 'struct-copy \"namespace?\" the-struct_38)))))"
+" mpi179_0"
+" source-name180_0"
+" root-expand-ctx181_0"
+" phase182_0"
+" 0-phase183_0"
+" phase-to-namespace184_0"
+" phase-level-to-definitions185_0"
+"(namespace-module-registry$1 the-struct_40)"
+"(namespace-bulk-binding-registry the-struct_40)"
+"(namespace-submodule-declarations the-struct_40)"
+"(namespace-root-namespace the-struct_40)"
+" declaration-inspector186_0"
+" inspector187_0"
+"(namespace-available-module-instances the-struct_40)"
+"(namespace-module-instances the-struct_40)))"
+"                        (raise-argument-error 'struct-copy \"namespace?\" the-struct_40)))))"
 "(let-values((()(begin(small-hash-set!(namespace-phase-to-namespace m-ns_4) 0-phase_3 m-ns_4)(values))))"
 "(let-values(((mi_2)(make-module-instance m-ns_4 m_5)))"
 "(begin"
 "(if(module-cross-phase-persistent? m_5)"
 "(hash-set!(namespace-module-instances ns_25) name_32 mi_2)"
 "(let-values(((at-phase_4)"
-"(let-values(((or-part_150)(hash-ref(namespace-module-instances ns_25) 0-phase_3 #f)))"
-"(if or-part_150"
-" or-part_150"
+"(let-values(((or-part_153)(hash-ref(namespace-module-instances ns_25) 0-phase_3 #f)))"
+"(if or-part_153"
+" or-part_153"
 "(let-values(((at-phase_5)(make-hasheq)))"
 "(begin"
 "(hash-set!(namespace-module-instances ns_25) 0-phase_3 at-phase_5)"
@@ -13867,11 +13688,8 @@ static const char *startup_source =
 "(define-values"
 "(namespace->module-namespace82.1)"
 "(lambda(check-available-at-phase-level74_0"
-" check-available-at-phase-level77_0"
 " complain-on-failure?73_0"
-" complain-on-failure?76_0"
 " unavailable-callback75_0"
-" unavailable-callback78_0"
 " ns79_0"
 " name80_0"
 " 0-phase81_0)"
@@ -13880,70 +13698,58 @@ static const char *startup_source =
 "(let-values(((ns_26) ns79_0))"
 "(let-values(((name_33) name80_0))"
 "(let-values(((0-phase_4) 0-phase81_0))"
-"(let-values(((complain-on-failure?_1)(if complain-on-failure?76_0 complain-on-failure?73_0 #f)))"
-"(let-values(((check-available-at-phase-level_2)"
-"(if check-available-at-phase-level77_0 check-available-at-phase-level74_0 #f)))"
-"(let-values(((unavailable-callback_2)(if unavailable-callback78_0 unavailable-callback75_0 void)))"
+"(let-values(((complain-on-failure?_1) complain-on-failure?73_0))"
+"(let-values(((check-available-at-phase-level_2) check-available-at-phase-level74_0))"
+"(let-values(((unavailable-callback_2)"
+"(if(eq? unavailable-callback75_0 unsafe-undefined) void unavailable-callback75_0)))"
 "(let-values()"
 "(let-values(((mi_4)"
-"(let-values(((ns190_0) ns_26)"
-"((name191_0) name_33)"
-"((0-phase192_0) 0-phase_4)"
-"((complain-on-failure?193_0) complain-on-failure?_1)"
-"((check-available-at-phase-level194_0) check-available-at-phase-level_2)"
-"((unavailable-callback195_0) unavailable-callback_2))"
+"(let-values(((ns188_0) ns_26)"
+"((name189_0) name_33)"
+"((0-phase190_0) 0-phase_4)"
+"((complain-on-failure?191_0) complain-on-failure?_1)"
+"((check-available-at-phase-level192_0) check-available-at-phase-level_2)"
+"((unavailable-callback193_0) unavailable-callback_2))"
 "(namespace->module-instance70.1"
-" check-available-at-phase-level194_0"
-" #t"
-" complain-on-failure?193_0"
-" #t"
-" unavailable-callback195_0"
-" #t"
-" ns190_0"
-" name191_0"
-" 0-phase192_0))))"
+" check-available-at-phase-level192_0"
+" complain-on-failure?191_0"
+" unavailable-callback193_0"
+" ns188_0"
+" name189_0"
+" 0-phase190_0))))"
 "(if mi_4(module-instance-namespace mi_4) #f))))))))))))"
 "(define-values"
 "(namespace-record-module-instance-attached!)"
-"(lambda(ns_27 mod-name_7 phase_31)"
+"(lambda(ns_27 mod-name_7 phase_30)"
 "(begin"
 "(let-values(((mi_5)"
-"(let-values(((ns196_0) ns_27)((mod-name197_0) mod-name_7)((phase198_0) phase_31))"
-"(namespace->module-instance70.1 #f #f #f #f #f #f ns196_0 mod-name197_0 phase198_0))))"
+"(let-values(((ns194_0) ns_27)((mod-name195_0) mod-name_7)((phase196_0) phase_30))"
+"(namespace->module-instance70.1 #f #f unsafe-undefined ns194_0 mod-name195_0 phase196_0))))"
 "(set-module-instance-attached?! mi_5 #t)))))"
 "(define-values"
 "(module-force-bulk-binding!)"
 "(lambda(m_7 ns_28)(begin((module-force-bulk-binding m_7)(namespace-bulk-binding-registry ns_28)))))"
 "(define-values"
 "(namespace-module-instantiate!96.1)"
-"(lambda(otherwise-available?87_0"
-" otherwise-available?91_0"
-" run-phase85_0"
-" run-phase89_0"
-" seen88_0"
-" seen92_0"
-" skip-run?86_0"
-" skip-run?90_0"
-" ns93_0"
-" mpi94_0"
-" instance-phase95_0)"
+"(lambda(otherwise-available?87_0 run-phase85_0 seen88_0 skip-run?86_0 ns93_0 mpi94_0 instance-phase95_0)"
 "(begin"
 " 'namespace-module-instantiate!96"
 "(let-values(((ns_29) ns93_0))"
-"(let-values(((mpi_17) mpi94_0))"
+"(let-values(((mpi_16) mpi94_0))"
 "(let-values(((instance-phase_0) instance-phase95_0))"
-"(let-values(((run-phase_0)(if run-phase89_0 run-phase85_0(namespace-phase ns_29))))"
-"(let-values(((skip-run?_0)(if skip-run?90_0 skip-run?86_0 #f)))"
-"(let-values(((otherwise-available?_0)(if otherwise-available?91_0 otherwise-available?87_0 #t)))"
-"(let-values(((seen_17)(if seen92_0 seen88_0 '#hasheq())))"
+"(let-values(((run-phase_0)"
+"(if(eq? run-phase85_0 unsafe-undefined)(namespace-phase ns_29) run-phase85_0)))"
+"(let-values(((skip-run?_0) skip-run?86_0))"
+"(let-values(((otherwise-available?_0) otherwise-available?87_0))"
+"(let-values(((seen_17)(if(eq? seen88_0 unsafe-undefined) '#hasheq() seen88_0)))"
 "(let-values()"
 "(let-values((()"
 "(begin"
-"(if(1/module-path-index? mpi_17)"
+"(if(1/module-path-index? mpi_16)"
 "(void)"
-"                                        (let-values () (error \"not a module path index:\" mpi_17)))"
+"                                        (let-values () (error \"not a module path index:\" mpi_16)))"
 "(values))))"
-"(let-values(((name_34)(1/module-path-index-resolve mpi_17 #t)))"
+"(let-values(((name_34)(1/module-path-index-resolve mpi_16 #t)))"
 "(let-values(((m_8)(namespace->module ns_29 name_34)))"
 "(let-values((()"
 "(begin"
@@ -13956,107 +13762,97 @@ static const char *startup_source =
 "(begin"
 " 'instantiate!"
 "(let-values(((mi_6)"
-"(let-values(((or-part_151)"
-"(let-values(((ns205_0) ns_30)"
-"((name206_0) name_34)"
-"((instance-phase207_0)"
+"(let-values(((or-part_154)"
+"(let-values(((ns203_0) ns_30)"
+"((name204_0) name_34)"
+"((instance-phase205_0)"
 " instance-phase_1))"
 "(namespace->module-instance70.1"
 " #f"
 " #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" ns205_0"
-" name206_0"
-" instance-phase207_0))))"
-"(if or-part_151"
-" or-part_151"
+" unsafe-undefined"
+" ns203_0"
+" name204_0"
+" instance-phase205_0))))"
+"(if or-part_154"
+" or-part_154"
 "(namespace-create-module-instance!"
 " ns_30"
 " name_34"
 " instance-phase_1"
 " m_8"
-" mpi_17)))))"
-"(let-values(((mi199_0) mi_6)"
-"((ns200_0) ns_30)"
-"((run-phase201_0) run-phase_1)"
-"((skip-run?202_0) skip-run?_0)"
-"((otherwise-available?203_0) otherwise-available?_0)"
-"((seen204_0) seen_17))"
+" mpi_16)))))"
+"(let-values(((mi197_0) mi_6)"
+"((ns198_0) ns_30)"
+"((run-phase199_0) run-phase_1)"
+"((skip-run?200_0) skip-run?_0)"
+"((otherwise-available?201_0) otherwise-available?_0)"
+"((seen202_0) seen_17))"
 "(run-module-instance!125.1"
-" otherwise-available?203_0"
-" run-phase201_0"
-" seen204_0"
-" #t"
-" skip-run?202_0"
-" mi199_0"
-" ns200_0)))))))"
+" otherwise-available?201_0"
+" run-phase199_0"
+" seen202_0"
+" skip-run?200_0"
+" mi197_0"
+" ns198_0)))))))"
 "(if(module-cross-phase-persistent? m_8)"
 "(let-values()"
 "(instantiate!_0"
 " 0"
 " 0"
-"(let-values(((or-part_152)(namespace-root-namespace ns_29)))"
-"(if or-part_152 or-part_152 ns_29))))"
+"(let-values(((or-part_155)(namespace-root-namespace ns_29)))"
+"(if or-part_155 or-part_155 ns_29))))"
 "(let-values()(instantiate!_0 instance-phase_0 run-phase_0 ns_29)))))))))))))))))))"
 "(define-values"
 "(namespace-module-visit!104.1)"
-"(lambda(visit-phase99_0 visit-phase100_0 ns101_0 mpi102_0 instance-phase103_0)"
+"(lambda(visit-phase99_0 ns101_0 mpi102_0 instance-phase103_0)"
 "(begin"
 " 'namespace-module-visit!104"
 "(let-values(((ns_31) ns101_0))"
-"(let-values(((mpi_18) mpi102_0))"
+"(let-values(((mpi_17) mpi102_0))"
 "(let-values(((instance-phase_2) instance-phase103_0))"
-"(let-values(((visit-phase_0)(if visit-phase100_0 visit-phase99_0(namespace-phase ns_31))))"
+"(let-values(((visit-phase_0)"
+"(if(eq? visit-phase99_0 unsafe-undefined)(namespace-phase ns_31) visit-phase99_0)))"
 "(let-values()"
-"(let-values(((ns208_0) ns_31)"
-"((mpi209_0) mpi_18)"
-"((instance-phase210_0) instance-phase_2)"
-"((temp211_0)(add1 visit-phase_0)))"
+"(let-values(((ns206_0) ns_31)"
+"((mpi207_0) mpi_17)"
+"((instance-phase208_0) instance-phase_2)"
+"((temp209_0)(add1 visit-phase_0)))"
 "(namespace-module-instantiate!96.1"
-" #f"
-" #f"
-" temp211_0"
 " #t"
+" temp209_0"
+" unsafe-undefined"
 " #f"
-" #f"
-" #f"
-" #f"
-" ns208_0"
-" mpi209_0"
-" instance-phase210_0))))))))))"
+" ns206_0"
+" mpi207_0"
+" instance-phase208_0))))))))))"
 "(define-values"
 "(namespace-module-make-available!112.1)"
-"(lambda(visit-phase107_0 visit-phase108_0 ns109_0 mpi110_0 instance-phase111_0)"
+"(lambda(visit-phase107_0 ns109_0 mpi110_0 instance-phase111_0)"
 "(begin"
 " 'namespace-module-make-available!112"
 "(let-values(((ns_32) ns109_0))"
-"(let-values(((mpi_19) mpi110_0))"
+"(let-values(((mpi_18) mpi110_0))"
 "(let-values(((instance-phase_3) instance-phase111_0))"
-"(let-values(((visit-phase_1)(if visit-phase108_0 visit-phase107_0(namespace-phase ns_32))))"
+"(let-values(((visit-phase_1)"
+"(if(eq? visit-phase107_0 unsafe-undefined)(namespace-phase ns_32) visit-phase107_0)))"
 "(let-values()"
-"(let-values(((ns212_0) ns_32)"
-"((mpi213_0) mpi_19)"
-"((instance-phase214_0) instance-phase_3)"
-"((temp215_0)(add1 visit-phase_1))"
-"((temp216_0) #t))"
+"(let-values(((ns210_0) ns_32)"
+"((mpi211_0) mpi_18)"
+"((instance-phase212_0) instance-phase_3)"
+"((temp213_0)(add1 visit-phase_1))"
+"((temp214_0) #t))"
 "(namespace-module-instantiate!96.1"
-" #f"
-" #f"
-" temp215_0"
 " #t"
-" #f"
-" #f"
-" temp216_0"
-" #t"
-" ns212_0"
-" mpi213_0"
-" instance-phase214_0))))))))))"
+" temp213_0"
+" unsafe-undefined"
+" temp214_0"
+" ns210_0"
+" mpi211_0"
+" instance-phase212_0))))))))))"
 "(define-values"
 "(run-module-instance!125.1)"
-"(lambda(otherwise-available?117_0 run-phase115_0 seen118_0 seen122_0 skip-run?116_0 mi123_0 ns124_0)"
+"(lambda(otherwise-available?117_0 run-phase115_0 seen118_0 skip-run?116_0 mi123_0 ns124_0)"
 "(begin"
 " 'run-module-instance!125"
 "(let-values(((mi_7) mi123_0))"
@@ -14064,28 +13860,28 @@ static const char *startup_source =
 "(let-values(((run-phase_2) run-phase115_0))"
 "(let-values(((skip-run?_1) skip-run?116_0))"
 "(let-values(((otherwise-available?_1) otherwise-available?117_0))"
-"(let-values(((seen_18)(if seen122_0 seen118_0 '#hasheq())))"
+"(let-values(((seen_18)(if(eq? seen118_0 unsafe-undefined) '#hasheq() seen118_0)))"
 "(let-values()"
 "(let-values()"
 "(let-values(((m-ns_5)(module-instance-namespace mi_7)))"
 "(let-values(((instance-phase_4)(namespace-0-phase m-ns_5)))"
 "(let-values(((run-phase-level_0)(phase- run-phase_2 instance-phase_4)))"
-"(if(if(let-values(((or-part_153) skip-run?_1))"
-"(if or-part_153"
-" or-part_153"
+"(if(if(let-values(((or-part_156) skip-run?_1))"
+"(if or-part_156"
+" or-part_156"
 "(eq?"
 " 'started"
 "(small-hash-ref"
 "(module-instance-phase-level-to-state mi_7)"
 " run-phase-level_0"
 " #f))))"
-"(let-values(((or-part_154)(not otherwise-available?_1)))"
-"(if or-part_154 or-part_154(module-instance-made-available? mi_7)))"
+"(let-values(((or-part_157)(not otherwise-available?_1)))"
+"(if or-part_157 or-part_157(module-instance-made-available? mi_7)))"
 " #f)"
 "(void)"
 "(let-values()"
 "(let-values(((m_9)(module-instance-module mi_7)))"
-"(let-values(((mpi_20)(namespace-mpi m-ns_5)))"
+"(let-values(((mpi_19)(namespace-mpi m-ns_5)))"
 "(let-values(((phase-shift_3) instance-phase_4))"
 "(let-values(((bulk-binding-registry_3)(namespace-bulk-binding-registry m-ns_5)))"
 "(begin"
@@ -14104,7 +13900,7 @@ static const char *startup_source =
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
 "(let-values()(check-list lst_59)))"
-"((letrec-values(((for-loop_86)"
+"((letrec-values(((for-loop_83)"
 "(lambda(fold-var_43 lst_60)"
 "(begin"
 " 'for-loop"
@@ -14134,7 +13930,7 @@ static const char *startup_source =
 "(let-values()"
 "(check-list"
 " lst_61)))"
-"((letrec-values(((for-loop_87)"
+"((letrec-values(((for-loop_84)"
 "(lambda(fold-var_47"
 " lst_62)"
 "(begin"
@@ -14158,27 +13954,27 @@ static const char *startup_source =
 " req-mpi_0"
 "(module-self"
 " m_9)"
-" mpi_20))"
+" mpi_19))"
 " fold-var_49))))"
 "(values"
 " fold-var_50)))))"
 "(if(not"
 " #f)"
-"(for-loop_87"
+"(for-loop_84"
 " fold-var_48"
 " rest_28)"
 " fold-var_48)))"
 " fold-var_47)))))"
-" for-loop_87)"
+" for-loop_84)"
 " null"
 " lst_61))))))"
 " fold-var_45))))"
 "(values fold-var_46)))))"
 "(if(not #f)"
-"(for-loop_86 fold-var_44 rest_27)"
+"(for-loop_83 fold-var_44 rest_27)"
 " fold-var_44)))"
 " fold-var_43)))))"
-" for-loop_86)"
+" for-loop_83)"
 " null"
 " lst_59)))))))"
 "(let-values(((lst_63)(module-instance-shifted-requires mi_7)))"
@@ -14186,7 +13982,7 @@ static const char *startup_source =
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
 "(let-values()(check-list lst_63)))"
-"((letrec-values(((for-loop_88)"
+"((letrec-values(((for-loop_85)"
 "(lambda(lst_64)"
 "(begin"
 " 'for-loop"
@@ -14213,7 +14009,7 @@ static const char *startup_source =
 "(let-values()"
 "(check-list"
 " lst_65)))"
-"((letrec-values(((for-loop_89)"
+"((letrec-values(((for-loop_86)"
 "(lambda(lst_66)"
 "(begin"
 " 'for-loop"
@@ -14231,53 +14027,49 @@ static const char *startup_source =
 "(let-values()"
 "(begin"
 "(let-values()"
-"(let-values(((ns217_0)"
+"(let-values(((ns215_0)"
 " ns_33)"
-"((req-mpi218_0)"
+"((req-mpi216_0)"
 " req-mpi_1)"
-"((temp219_0)"
+"((temp217_0)"
 "(phase+"
 " instance-phase_4"
 " req-phase_0))"
-"((run-phase220_0)"
+"((run-phase218_0)"
 " run-phase_2)"
-"((skip-run?221_0)"
+"((skip-run?219_0)"
 " skip-run?_1)"
-"((otherwise-available?222_0)"
+"((otherwise-available?220_0)"
 " otherwise-available?_1)"
-"((temp223_0)"
+"((temp221_0)"
 "(hash-set"
 " seen_18"
 " mi_7"
 " #t)))"
 "(namespace-module-instantiate!96.1"
-" otherwise-available?222_0"
-" #t"
-" run-phase220_0"
-" #t"
-" temp223_0"
-" #t"
-" skip-run?221_0"
-" #t"
-" ns217_0"
-" req-mpi218_0"
-" temp219_0)))"
+" otherwise-available?220_0"
+" run-phase218_0"
+" temp221_0"
+" skip-run?219_0"
+" ns215_0"
+" req-mpi216_0"
+" temp217_0)))"
 "(values)))))"
 "(values)))))"
 "(if(not"
 " #f)"
-"(for-loop_89"
+"(for-loop_86"
 " rest_30)"
 "(values))))"
 "(values))))))"
-" for-loop_89)"
+" for-loop_86)"
 " lst_65)))"
 "(void))))"
 "(values)))))"
 "(values)))))"
-"(if(not #f)(for-loop_88 rest_29)(values))))"
+"(if(not #f)(for-loop_85 rest_29)(values))))"
 "(values))))))"
-" for-loop_88)"
+" for-loop_85)"
 " lst_63)))"
 "(void)"
 "(if(label-phase? instance-phase_4)"
@@ -14291,26 +14083,26 @@ static const char *startup_source =
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
 "(let-values()(check-range start_13 end_9 inc_3)))"
-"((letrec-values(((for-loop_90)"
-"(lambda(pos_10)"
+"((letrec-values(((for-loop_87)"
+"(lambda(pos_11)"
 "(begin"
 " 'for-loop"
-"(if(> pos_10 end_9)"
-"(let-values(((phase-level_13) pos_10))"
+"(if(> pos_11 end_9)"
+"(let-values(((phase-level_13) pos_11))"
 "(let-values((()"
 "(let-values()"
 "(let-values((()"
 "(let-values()"
 "(begin"
 "(let-values()"
-"(let-values(((phase_32)"
+"(let-values(((phase_31)"
 "(phase+"
 " phase-level_13"
 " phase-shift_3)))"
 "(if(if(not"
 " skip-run?_1)"
 "(eqv?"
-" phase_32"
+" phase_31"
 " run-phase_2)"
 " #f)"
 "(let-values()"
@@ -14341,7 +14133,7 @@ static const char *startup_source =
 "(let-values(((p-ns_2)"
 "(namespace->namespace-at-phase"
 " m-ns_5"
-" phase_32)))"
+" phase_31)))"
 "(let-values(((insp_5)"
 "(module-inspector"
 " m_9)))"
@@ -14359,7 +14151,7 @@ static const char *startup_source =
 " data-box_0"
 " p-ns_2"
 " phase-shift_3"
-" mpi_20"
+" mpi_19"
 " bulk-binding-registry_3"
 " insp_5)"
 "(go_0"
@@ -14367,7 +14159,7 @@ static const char *startup_source =
 " p-ns_2"
 " phase-shift_3"
 " phase-level_13"
-" mpi_20"
+" mpi_19"
 " bulk-binding-registry_3"
 " insp_5))))))))))))"
 "(if(if otherwise-available?_1"
@@ -14387,7 +14179,7 @@ static const char *startup_source =
 "(hash-update!"
 "(namespace-available-module-instances"
 " ns_33)"
-" phase_32"
+" phase_31"
 "(lambda(l_47)"
 "(cons"
 " mi_7"
@@ -14402,10 +14194,10 @@ static const char *startup_source =
 "(values)))))"
 "(values)))))"
 "(if(not #f)"
-"(for-loop_90(+ pos_10 inc_3))"
+"(for-loop_87(+ pos_11 inc_3))"
 "(values))))"
 "(values))))))"
-" for-loop_90)"
+" for-loop_87)"
 " start_13)))"
 "(void))))"
 "(if otherwise-available?_1"
@@ -14420,24 +14212,26 @@ static const char *startup_source =
 " 'started))))))))))))))))))))))))"
 "(define-values"
 "(namespace-visit-available-modules!)"
-"(let-values(((namespace-visit-available-modules!131_0)"
-"(lambda(ns130_0 run-phase128_0 run-phase129_0)"
+"(let-values(((namespace-visit-available-modules!130_0)"
+"(lambda(ns129_0 run-phase128_0)"
 "(begin"
-" 'namespace-visit-available-modules!131"
-"(let-values(((ns_34) ns130_0))"
-"(let-values(((run-phase_3)(if run-phase129_0 run-phase128_0(namespace-phase ns_34))))"
+" 'namespace-visit-available-modules!130"
+"(let-values(((ns_34) ns129_0))"
+"(let-values(((run-phase_3)"
+"(if(eq? run-phase128_0 unsafe-undefined)(namespace-phase ns_34) run-phase128_0)))"
 "(let-values()(namespace-run-available-modules! ns_34(add1 run-phase_3)))))))))"
 "(case-lambda"
-"((ns_35)(begin(namespace-visit-available-modules!131_0 ns_35 #f #f)))"
-"((ns_36 run-phase128_1)(namespace-visit-available-modules!131_0 ns_36 run-phase128_1 #t)))))"
+"((ns_35)(begin(namespace-visit-available-modules!130_0 ns_35 unsafe-undefined)))"
+"((ns_36 run-phase128_1)(namespace-visit-available-modules!130_0 ns_36 run-phase128_1)))))"
 "(define-values"
 "(namespace-run-available-modules!)"
-"(let-values(((namespace-run-available-modules!136_0)"
-"(lambda(ns135_0 run-phase133_0 run-phase134_0)"
+"(let-values(((namespace-run-available-modules!134_0)"
+"(lambda(ns133_0 run-phase132_0)"
 "(begin"
-" 'namespace-run-available-modules!136"
-"(let-values(((ns_37) ns135_0))"
-"(let-values(((run-phase_4)(if run-phase134_0 run-phase133_0(namespace-phase ns_37))))"
+" 'namespace-run-available-modules!134"
+"(let-values(((ns_37) ns133_0))"
+"(let-values(((run-phase_4)"
+"(if(eq? run-phase132_0 unsafe-undefined)(namespace-phase ns_37) run-phase132_0)))"
 "(let-values()"
 "(if(null?(hash-ref(namespace-available-module-instances ns_37) run-phase_4 null))"
 "(void)"
@@ -14468,93 +14262,89 @@ static const char *startup_source =
 "(#%variable-reference))"
 "(void)"
 "(let-values()(check-list lst_67)))"
-"((letrec-values(((for-loop_91)"
-"(lambda(lst_49)"
+"((letrec-values(((for-loop_88)"
+"(lambda(lst_68)"
 "(begin"
 " 'for-loop"
-"(if(pair? lst_49)"
+"(if(pair? lst_68)"
 "(let-values(((mi_8)"
 "(unsafe-car"
-" lst_49))"
-"((rest_21)"
+" lst_68))"
+"((rest_31)"
 "(unsafe-cdr"
-" lst_49)))"
+" lst_68)))"
 "(let-values((()"
 "(let-values()"
 "(let-values((()"
 "(let-values()"
 "(begin"
 "(let-values()"
-"(let-values(((mi224_0)"
+"(let-values(((mi222_0)"
 " mi_8)"
-"((ns225_0)"
+"((ns223_0)"
 " ns_37)"
-"((run-phase226_0)"
+"((run-phase224_0)"
 " run-phase_4)"
-"((temp227_0)"
+"((temp225_0)"
 " #f)"
-"((temp228_0)"
+"((temp226_0)"
 " #f))"
 "(run-module-instance!125.1"
-" temp228_0"
-" run-phase226_0"
-" #f"
-" #f"
-" temp227_0"
-" mi224_0"
-" ns225_0)))"
+" temp226_0"
+" run-phase224_0"
+" unsafe-undefined"
+" temp225_0"
+" mi222_0"
+" ns223_0)))"
 "(values)))))"
 "(values)))))"
 "(if(not #f)"
-"(for-loop_91 rest_21)"
+"(for-loop_88 rest_31)"
 "(values))))"
 "(values))))))"
-" for-loop_91)"
+" for-loop_88)"
 " lst_67)))"
 "(void)"
 "(loop_77)))))))))"
 " loop_77)))))))))))))"
 "(case-lambda"
-"((ns_38)(begin(namespace-run-available-modules!136_0 ns_38 #f #f)))"
-"((ns_39 run-phase133_1)(namespace-run-available-modules!136_0 ns_39 run-phase133_1 #t)))))"
+"((ns_38)(begin(namespace-run-available-modules!134_0 ns_38 unsafe-undefined)))"
+"((ns_39 run-phase132_1)(namespace-run-available-modules!134_0 ns_39 run-phase132_1)))))"
 "(define-values"
 "(namespace-primitive-module-visit!)"
 "(lambda(ns_40 name_35)"
 "(begin"
 "(let-values(((mi_9)(hash-ref(namespace-module-instances ns_40)(1/make-resolved-module-path name_35))))"
-"(let-values(((mi229_0) mi_9)((ns230_0) ns_40)((temp231_0) 1)((temp232_0) #f)((temp233_0) #t))"
-"(run-module-instance!125.1 temp233_0 temp231_0 #f #f temp232_0 mi229_0 ns230_0))))))"
+"(let-values(((mi227_0) mi_9)((ns228_0) ns_40)((temp229_0) 1)((temp230_0) #f)((temp231_0) #t))"
+"(run-module-instance!125.1 temp231_0 temp229_0 unsafe-undefined temp230_0 mi227_0 ns228_0))))))"
 "(define-values"
-"(namespace-module-use->module+linklet-instances146.1)"
-"(lambda(phase-shift140_0 shift-from138_0 shift-from141_0 shift-to139_0 shift-to142_0 ns144_0 mu145_0)"
+"(namespace-module-use->module+linklet-instances144.1)"
+"(lambda(phase-shift138_0 shift-from136_0 shift-to137_0 ns142_0 mu143_0)"
 "(begin"
-" 'namespace-module-use->module+linklet-instances146"
-"(let-values(((ns_41) ns144_0))"
-"(let-values(((mu_0) mu145_0))"
-"(let-values(((shift-from_0)(if shift-from141_0 shift-from138_0 #f)))"
-"(let-values(((shift-to_0)(if shift-to142_0 shift-to139_0 #f)))"
-"(let-values(((phase-shift_4) phase-shift140_0))"
+" 'namespace-module-use->module+linklet-instances144"
+"(let-values(((ns_41) ns142_0))"
+"(let-values(((mu_0) mu143_0))"
+"(let-values(((shift-from_0) shift-from136_0))"
+"(let-values(((shift-to_0) shift-to137_0))"
+"(let-values(((phase-shift_4) phase-shift138_0))"
 "(let-values()"
 "(let-values(((mod_1)(module-use-module mu_0)))"
 "(let-values(((mi_10)"
-"(let-values(((ns234_0) ns_41)"
-"((temp235_0)"
+"(let-values(((ns232_0) ns_41)"
+"((temp233_0)"
 "(1/module-path-index-resolve"
 "(if shift-from_0"
 "(module-path-index-shift mod_1 shift-from_0 shift-to_0)"
 " mod_1)))"
-"((phase-shift236_0) phase-shift_4)"
-"((temp237_0) #t))"
+"((phase-shift234_0) phase-shift_4)"
+"((temp235_0) #t))"
 "(namespace->module-instance70.1"
 " #f"
-" #f"
-" temp237_0"
-" #t"
-" #f"
-" #f"
-" ns234_0"
 " temp235_0"
-" phase-shift236_0))))"
+" unsafe-undefined"
+" ns232_0"
+" temp233_0"
+" phase-shift234_0))))"
 "(let-values(((m-ns_6)(module-instance-namespace mi_10)))"
 "(let-values(((d_17)"
 "(small-hash-ref"
@@ -14578,15 +14368,15 @@ static const char *startup_source =
 "(lambda(requires_1)"
 "(begin"
 "(reverse$1"
-"(let-values(((lst_68) requires_1))"
+"(let-values(((lst_69) requires_1))"
 "(begin"
-"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_68)))"
-"((letrec-values(((for-loop_92)"
-"(lambda(fold-var_51 lst_69)"
+"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_69)))"
+"((letrec-values(((for-loop_89)"
+"(lambda(fold-var_51 lst_70)"
 "(begin"
 " 'for-loop"
-"(if(pair? lst_69)"
-"(let-values(((phase+mpis_2)(unsafe-car lst_69))((rest_31)(unsafe-cdr lst_69)))"
+"(if(pair? lst_70)"
+"(let-values(((phase+mpis_2)(unsafe-car lst_70))((rest_32)(unsafe-cdr lst_70)))"
 "(let-values(((fold-var_52)"
 "(let-values(((fold-var_53) fold-var_51))"
 "(let-values(((fold-var_54)"
@@ -14596,24 +14386,24 @@ static const char *startup_source =
 "(cons"
 "(car phase+mpis_2)"
 "(reverse$1"
-"(let-values(((lst_70)(cdr phase+mpis_2)))"
+"(let-values(((lst_71)(cdr phase+mpis_2)))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
 "(#%variable-reference))"
 "(void)"
-"(let-values()(check-list lst_70)))"
-"((letrec-values(((for-loop_93)"
+"(let-values()(check-list lst_71)))"
+"((letrec-values(((for-loop_90)"
 "(lambda(fold-var_55"
-" lst_71)"
+" lst_72)"
 "(begin"
 " 'for-loop"
-"(if(pair? lst_71)"
+"(if(pair? lst_72)"
 "(let-values(((req-mpi_2)"
 "(unsafe-car"
-" lst_71))"
-"((rest_32)"
+" lst_72))"
+"((rest_33)"
 "(unsafe-cdr"
-" lst_71)))"
+" lst_72)))"
 "(let-values(((fold-var_56)"
 "(let-values(((fold-var_57)"
 " fold-var_55))"
@@ -14627,47 +14417,47 @@ static const char *startup_source =
 "(values"
 " fold-var_58)))))"
 "(if(not #f)"
-"(for-loop_93"
+"(for-loop_90"
 " fold-var_56"
-" rest_32)"
+" rest_33)"
 " fold-var_56)))"
 " fold-var_55)))))"
-" for-loop_93)"
+" for-loop_90)"
 " null"
-" lst_70))))))"
+" lst_71))))))"
 " fold-var_53))))"
 "(values fold-var_54)))))"
-"(if(not #f)(for-loop_92 fold-var_52 rest_31) fold-var_52)))"
+"(if(not #f)(for-loop_89 fold-var_52 rest_32) fold-var_52)))"
 " fold-var_51)))))"
-" for-loop_92)"
+" for-loop_89)"
 " null"
-" lst_68)))))))"
+" lst_69)))))))"
 "(define-values"
 "(module-compute-access!)"
 "(lambda(m_10)"
 "(begin"
 "(let-values(((access_0)"
-"(let-values(((ht_71)(module-provides m_10)))"
+"(let-values(((ht_68)(module-provides m_10)))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
-"(let-values()(check-in-hash ht_71)))"
-"((letrec-values(((for-loop_94)"
-"(lambda(table_101 i_86)"
+"(let-values()(check-in-hash ht_68)))"
+"((letrec-values(((for-loop_91)"
+"(lambda(table_101 i_88)"
 "(begin"
 " 'for-loop"
-"(if i_86"
-"(let-values(((phase_33 at-phase_6)"
-"(hash-iterate-key+value ht_71 i_86)))"
+"(if i_88"
+"(let-values(((phase_32 at-phase_6)"
+"(hash-iterate-key+value ht_68 i_88)))"
 "(let-values(((table_102)"
 "(let-values(((table_103) table_101))"
 "(let-values(((table_104)"
 "(let-values()"
-"(let-values(((key_39 val_33)"
+"(let-values(((key_40 val_33)"
 "(let-values()"
 "(values"
-" phase_33"
-"(let-values(((ht_72)"
+" phase_32"
+"(let-values(((ht_69)"
 " at-phase_6))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
@@ -14675,24 +14465,24 @@ static const char *startup_source =
 "(void)"
 "(let-values()"
 "(check-in-hash"
-" ht_72)))"
-"((letrec-values(((for-loop_95)"
+" ht_69)))"
+"((letrec-values(((for-loop_92)"
 "(lambda(table_105"
-" i_87)"
+" i_89)"
 "(begin"
 " 'for-loop"
-"(if i_87"
-"(let-values(((sym_22"
+"(if i_89"
+"(let-values(((sym_23"
 " binding/p_1)"
 "(hash-iterate-key+value"
-" ht_72"
-" i_87)))"
+" ht_69"
+" i_89)))"
 "(let-values(((table_106)"
 "(let-values(((table_107)"
 " table_105))"
 "(let-values(((table_108)"
 "(let-values()"
-"(let-values(((key_40"
+"(let-values(((key_41"
 " val_34)"
 "(let-values()"
 "(values"
@@ -14705,48 +14495,48 @@ static const char *startup_source =
 " 'provided)))))"
 "(hash-set"
 " table_107"
-" key_40"
+" key_41"
 " val_34)))))"
 "(values"
 " table_108)))))"
 "(if(not"
 " #f)"
-"(for-loop_95"
+"(for-loop_92"
 " table_106"
 "(hash-iterate-next"
-" ht_72"
-" i_87))"
+" ht_69"
+" i_89))"
 " table_106)))"
 " table_105)))))"
-" for-loop_95)"
+" for-loop_92)"
 " '#hash()"
 "(hash-iterate-first"
-" ht_72))))))))"
+" ht_69))))))))"
 "(hash-set"
 " table_103"
-" key_39"
+" key_40"
 " val_33)))))"
 "(values table_104)))))"
 "(if(not #f)"
-"(for-loop_94 table_102(hash-iterate-next ht_71 i_86))"
+"(for-loop_91 table_102(hash-iterate-next ht_68 i_88))"
 " table_102)))"
 " table_101)))))"
-" for-loop_94)"
+" for-loop_91)"
 " '#hasheqv()"
-"(hash-iterate-first ht_71))))))"
+"(hash-iterate-first ht_68))))))"
 "(begin(set-module-access! m_10 access_0) access_0)))))"
 "(define-values"
 "(binding->module-instance)"
-"(lambda(b_42 ns_42 phase_34 id_11)"
+"(lambda(b_42 ns_42 phase_33 id_11)"
 "(begin"
-"(let-values(((at-phase_7)(phase- phase_34(module-binding-phase b_42))))"
+"(let-values(((at-phase_7)(phase- phase_33(module-binding-phase b_42))))"
 "(let-values(((mi_11)"
 "(let-values(((ns1_0) ns_42)"
 "((temp2_0)(1/module-path-index-resolve(module-binding-module b_42)))"
 "((at-phase3_0) at-phase_7)"
 "((temp4_0)(module-binding-phase b_42))"
 "((temp5_0)(lambda(mi_12) 'unavailable)))"
-"(namespace->module-instance70.1 temp4_0 #t #f #f temp5_0 #t ns1_0 temp2_0 at-phase3_0))))"
+"(namespace->module-instance70.1 temp4_0 #f temp5_0 ns1_0 temp2_0 at-phase3_0))))"
 "(begin"
 "(if(eq? mi_11 'unavailable)"
 "(let-values()"
@@ -14777,7 +14567,7 @@ static const char *startup_source =
 "                  \"  definition phase: ~a\\n\""
 "                  \"  for identifier: ~s\")"
 "(module-binding-module b_42)"
-" phase_34"
+" phase_33"
 "(module-binding-phase b_42)"
 " id_11)))"
 " mi_11))))))"
@@ -14800,13 +14590,13 @@ static const char *startup_source =
 "(if or-part_10 or-part_10(eq? a_35 'protected)))"
 "(let-values()"
 "(begin"
-"(if(let-values(((or-part_155)"
+"(if(let-values(((or-part_158)"
 "(inspector-superior?"
 "(let-values(((or-part_12)(syntax-inspector id_12)))"
 "(if or-part_12 or-part_12(current-code-inspector)))"
 "(namespace-inspector(module-instance-namespace mi_13)))))"
-"(if or-part_155"
-" or-part_155"
+"(if or-part_158"
+" or-part_158"
 "(if(module-binding-extra-inspector b_42)"
 "(inspector-superior?"
 "(module-binding-extra-inspector b_42)"
@@ -14839,41 +14629,41 @@ static const char *startup_source =
 "(let-values() #f))))))"
 "(define-values"
 "(resolve+shift/extra-inspector)"
-"(lambda(id_13 phase_35 ns_43)"
+"(lambda(id_13 phase_34 ns_43)"
 "(begin"
 "((letrec-values(((loop_78)"
 "(lambda(id_14 in-s_1)"
 "(begin"
 " 'loop"
-"(let-values(((b_59)"
-"(let-values(((id1_2) id_14)((phase2_0) phase_35)((temp3_0) #t))"
-"(resolve+shift30.1 #f #f #f #f #f #f temp3_0 #t #f #f id1_2 phase2_0))))"
-"(let-values(((c1_24)(binding-free=id b_59)))"
+"(let-values(((b_58)"
+"(let-values(((id1_2) id_14)((phase2_0) phase_34)((temp3_0) #t))"
+"(resolve+shift28.1 #f #f null temp3_0 #f id1_2 phase2_0))))"
+"(let-values(((c1_24)(binding-free=id b_58)))"
 "(if c1_24"
 "((lambda(next-id_0)"
 "(let-values((()"
 "(begin"
-"(if(if(module-binding? b_59)"
+"(if(if(module-binding? b_58)"
 "(not"
-"(top-level-module-path-index?(module-binding-module b_59)))"
+"(top-level-module-path-index?(module-binding-module b_58)))"
 " #f)"
 "(let-values()"
 "(let-values(((mi_14)"
 "(binding->module-instance"
-" b_59"
+" b_58"
 " ns_43"
-" phase_35"
+" phase_34"
 " id_14)))"
-"                                                           (check-access b_59 mi_14 id_14 in-s_1 \"provided binding\")))"
+"                                                           (check-access b_58 mi_14 id_14 in-s_1 \"provided binding\")))"
 "(void))"
 "(values))))"
 "(let-values(((next-b_0)"
 "(loop_78"
 " next-id_0"
-"(let-values(((or-part_78) in-s_1))"
-"(if or-part_78 or-part_78 id_14)))))"
+"(let-values(((or-part_76) in-s_1))"
+"(if or-part_76 or-part_76 id_14)))))"
 "(if(not next-b_0)"
-"(let-values() b_59)"
+"(let-values() b_58)"
 "(if(if(module-binding? next-b_0)"
 "(if(not(module-binding-extra-inspector next-b_0))"
 "(syntax-inspector id_14)"
@@ -14883,31 +14673,20 @@ static const char *startup_source =
 "(let-values(((next-b4_0) next-b_0)((temp5_1)(syntax-inspector id_14)))"
 "(module-binding-update48.1"
 " temp5_1"
-" #t"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
+" unsafe-undefined"
+" unsafe-undefined"
+" unsafe-undefined"
+" unsafe-undefined"
+" unsafe-undefined"
+" unsafe-undefined"
+" unsafe-undefined"
+" unsafe-undefined"
+" unsafe-undefined"
+" unsafe-undefined"
 " next-b4_0)))"
 "(let-values() next-b_0))))))"
 " c1_24)"
-"(let-values() b_59))))))))"
+"(let-values() b_58))))))))"
 " loop_78)"
 " id_13"
 " #f))))"
@@ -14962,17 +14741,17 @@ static const char *startup_source =
 "(let-values(((ref_0)(list-ref info_1 3)))"
 "(if(integer? v_26)"
 "(let-values()"
-"(lambda(t_35)"
-"(let-values(((p_31)(ref_0 t_35 v_26)))"
+"(lambda(t_36)"
+"(let-values(((p_31)(ref_0 t_36 v_26)))"
 "(if(if(procedure? p_31)(procedure-arity-includes? p_31 1) #f)"
 " p_31"
 "                     (lambda (s_3) (error \"bad syntax:\" s_3))))))"
-"(let-values()(lambda(t_14) v_26)))))))))"
+"(let-values()(lambda(t_15) v_26)))))))))"
 "(define-values"
 "(1/make-set!-transformer)"
 "(let-values()"
 "(let-values(((struct:set!-transformer_0 set!-transformer1_0 set!-transformer?_0 set!-transformer-proc_0)"
-"(let-values(((struct:_39 make-_39 ?_39 -ref_39 -set!_39)"
+"(let-values(((struct:_40 make-_40 ?_40 -ref_40 -set!_40)"
 "(let-values()"
 "(let-values()"
 "(make-struct-type"
@@ -14987,7 +14766,7 @@ static const char *startup_source =
 " '(0)"
 " #f"
 " 'set!-transformer)))))"
-"(values struct:_39 make-_39 ?_39(make-struct-field-accessor -ref_39 0 'proc)))))"
+"(values struct:_40 make-_40 ?_40(make-struct-field-accessor -ref_40 0 'proc)))))"
 "(lambda(proc_3)"
 "(begin"
 " 'make-set!-transformer"
@@ -14998,18 +14777,18 @@ static const char *startup_source =
 "(set!-transformer1_0 proc_3)))))))"
 "(define-values"
 "(1/set!-transformer-procedure)"
-"(lambda(t_38)"
+"(lambda(t_39)"
 "(begin"
 " 'set!-transformer-procedure"
-"(let-values(((v_97)((set!-transformer-value t_38) t_38)))"
-"(if(procedure-arity-includes? v_97 1) v_97(lambda(s_169)(v_97 t_38 s_169)))))))"
+"(let-values(((v_97)((set!-transformer-value t_39) t_39)))"
+"(if(procedure-arity-includes? v_97 1) v_97(lambda(s_167)(v_97 t_39 s_167)))))))"
 "(define-values(empty-env) '#hasheq())"
-"(define-values(env-extend)(lambda(env_0 key_41 val_21)(begin(hash-set env_0 key_41 val_21))))"
+"(define-values(env-extend)(lambda(env_0 key_42 val_21)(begin(hash-set env_0 key_42 val_21))))"
 "(define-values(variable)(gensym 'variable))"
 "(define-values"
 "(variable?)"
-"(lambda(t_14)"
-"(begin(let-values(((or-part_10)(eq? t_14 variable)))(if or-part_10 or-part_10(local-variable? t_14))))))"
+"(lambda(t_15)"
+"(begin(let-values(((or-part_10)(eq? t_15 variable)))(if or-part_10 or-part_10(local-variable? t_15))))))"
 "(define-values"
 "(struct:local-variable local-variable1.1 local-variable? local-variable-id)"
 "(let-values(((struct:_31 make-_31 ?_31 -ref_31 -set!_31)"
@@ -15033,33 +14812,31 @@ static const char *startup_source =
 "(lambda(no-stops?2_0 id4_0 t5_0)"
 "(begin"
 " 'substitute-variable6"
-"(let-values(((id_15) id4_0))"
-"(let-values(((t_39) t5_0))"
+"(let-values(((id_5) id4_0))"
+"(let-values(((t_40) t5_0))"
 "(let-values(((no-stops?_0) no-stops?2_0))"
 "(let-values()"
-"(if(if no-stops?_0(local-variable? t_39) #f)"
-"(let-values(((bind-id_0)(local-variable-id t_39)))"
-"(syntax-rearm$1"
-"(datum->syntax$1(syntax-disarm$1 bind-id_0)(syntax-e$1 bind-id_0) id_15 id_15)"
-" id_15))"
-" id_15))))))))"
+"(if(if no-stops?_0(local-variable? t_40) #f)"
+"(let-values(((bind-id_0)(local-variable-id t_40)))"
+"(syntax-rearm$1(datum->syntax$1(syntax-disarm$1 bind-id_0)(syntax-e$1 bind-id_0) id_5 id_5) id_5))"
+" id_5))))))))"
 "(define-values(missing)(gensym 'missing))"
 "(define-values"
 "(transformer?)"
-"(lambda(t_40)"
-"(begin"
-"(let-values(((or-part_32)(procedure? t_40)))"
-"(if or-part_32"
-" or-part_32"
-"(let-values(((or-part_156)(1/set!-transformer? t_40)))"
-"(if or-part_156 or-part_156(1/rename-transformer? t_40))))))))"
-"(define-values"
-"(transformer->procedure)"
 "(lambda(t_41)"
 "(begin"
-"(if(1/set!-transformer? t_41)"
-"(let-values()(1/set!-transformer-procedure t_41))"
-"(if(1/rename-transformer? t_41)(let-values()(lambda(s_170) s_170))(let-values() t_41))))))"
+"(let-values(((or-part_32)(procedure? t_41)))"
+"(if or-part_32"
+" or-part_32"
+"(let-values(((or-part_159)(1/set!-transformer? t_41)))"
+"(if or-part_159 or-part_159(1/rename-transformer? t_41))))))))"
+"(define-values"
+"(transformer->procedure)"
+"(lambda(t_42)"
+"(begin"
+"(if(1/set!-transformer? t_42)"
+"(let-values()(1/set!-transformer-procedure t_42))"
+"(if(1/rename-transformer? t_42)(let-values()(lambda(s_168) s_168))(let-values() t_42))))))"
 "(define-values"
 "(struct:core-form core-form9.1 core-form? core-form-expander core-form-name)"
 "(let-values(((struct:_24 make-_24 ?_24 -ref_24 -set!_24)"
@@ -15085,101 +14862,91 @@ static const char *startup_source =
 "(make-struct-field-accessor -ref_24 1 'name))))"
 "(define-values"
 "(add-binding!17.1)"
-"(lambda(in10_0 in12_0 just-for-nominal?11_0 just-for-nominal?13_0 id14_0 binding15_0 phase16_0)"
+"(lambda(in10_0 just-for-nominal?11_0 id14_0 binding15_0 phase16_0)"
 "(begin"
 " 'add-binding!17"
-"(let-values(((id_16) id14_0))"
+"(let-values(((id_15) id14_0))"
 "(let-values(((binding_8) binding15_0))"
-"(let-values(((phase_36) phase16_0))"
-"(let-values(((in-s_2)(if in12_0 in10_0 #f)))"
-"(let-values(((just-for-nominal?_2)(if just-for-nominal?13_0 just-for-nominal?11_0 #f)))"
+"(let-values(((phase_35) phase16_0))"
+"(let-values(((in-s_2) in10_0))"
+"(let-values(((just-for-nominal?_2) just-for-nominal?11_0))"
 "(let-values()"
 "(begin"
-"(check-id-taint id_16 in-s_2)"
-"(let-values(((temp55_1)(syntax-scope-set id_16 phase_36))"
-"((temp56_0)(syntax-e$1 id_16))"
+"(check-id-taint id_15 in-s_2)"
+"(let-values(((temp55_1)(syntax-scope-set id_15 phase_35))"
+"((temp56_1)(syntax-e$1 id_15))"
 "((binding57_0) binding_8)"
 "((just-for-nominal?58_0) just-for-nominal?_2))"
-"(add-binding-in-scopes!21.1 just-for-nominal?58_0 #t temp55_1 temp56_0 binding57_0))))))))))))"
+"(add-binding-in-scopes!20.1 just-for-nominal?58_0 temp55_1 temp56_1 binding57_0))))))))))))"
 "(define-values"
 "(add-bulk-binding!27.1)"
-"(lambda(in20_0 in22_0 shadow-except21_0 shadow-except23_0 s24_0 binding25_0 phase26_1)"
+"(lambda(in20_0 shadow-except21_0 s24_0 binding25_0 phase26_1)"
 "(begin"
 " 'add-bulk-binding!27"
-"(let-values(((s_171) s24_0))"
+"(let-values(((s_166) s24_0))"
 "(let-values(((binding_9) binding25_0))"
-"(let-values(((phase_37) phase26_1))"
-"(let-values(((in-s_3)(if in22_0 in20_0 #f)))"
-"(let-values(((shadow-except_2)(if shadow-except23_0 shadow-except21_0 #f)))"
+"(let-values(((phase_36) phase26_1))"
+"(let-values(((in-s_3) in20_0))"
+"(let-values(((shadow-except_2) shadow-except21_0))"
 "(let-values()"
 "(begin"
-"(if(syntax-tainted?$1 s_171)"
-"                      (let-values () (raise-syntax-error$1 #f \"cannot bind from tainted syntax\" in-s_3 s_171))"
+"(if(syntax-tainted?$1 s_166)"
+"                      (let-values () (raise-syntax-error$1 #f \"cannot bind from tainted syntax\" in-s_3 s_166))"
 "(void))"
-"(let-values(((temp59_1)(syntax-scope-set s_171 phase_37))"
+"(let-values(((temp59_1)(syntax-scope-set s_166 phase_36))"
 "((binding60_0) binding_9)"
 "((shadow-except61_0) shadow-except_2))"
-"(add-bulk-binding-in-scopes!28.1 shadow-except61_0 #t temp59_1 binding60_0))))))))))))"
+"(add-bulk-binding-in-scopes!27.1 shadow-except61_0 temp59_1 binding60_0))))))))))))"
 "(define-values"
 "(add-local-binding!37.1)"
-"(lambda(frame-id30_0 frame-id32_1 in31_0 in33_0 id34_0 phase35_0 counter36_0)"
+"(lambda(frame-id30_0 in31_0 id34_0 phase35_0 counter36_0)"
 "(begin"
 " 'add-local-binding!37"
-"(let-values(((id_17) id34_0))"
-"(let-values(((phase_38) phase35_0))"
+"(let-values(((id_16) id34_0))"
+"(let-values(((phase_24) phase35_0))"
 "(let-values(((counter_1) counter36_0))"
-"(let-values(((frame-id_5)(if frame-id32_1 frame-id30_0 #f)))"
-"(let-values(((in-s_4)(if in33_0 in31_0 #f)))"
+"(let-values(((frame-id_5) frame-id30_0))"
+"(let-values(((in-s_4) in31_0))"
 "(let-values()"
-"(let-values((()(begin(check-id-taint id_17 in-s_4)(values))))"
+"(let-values((()(begin(check-id-taint id_16 in-s_4)(values))))"
 "(let-values((()(begin(set-box! counter_1(add1(unbox counter_1)))(values))))"
-"(let-values(((key_42)"
-"                                    (string->uninterned-symbol (format \"~a_~a\" (syntax-e$1 id_17) (unbox counter_1)))))"
+"(let-values(((key_43)"
+"                                    (string->uninterned-symbol (format \"~a_~a\" (syntax-e$1 id_16) (unbox counter_1)))))"
 "(begin"
-"(let-values(((temp62_0)(syntax-scope-set id_17 phase_38))"
-"((temp63_1)(syntax-e$1 id_17))"
-"((temp64_1)"
-"(let-values(((key65_0) key_42)((frame-id66_0) frame-id_5))"
-"(make-local-binding7.1 frame-id66_0 #t #f #f key65_0))))"
-"(add-binding-in-scopes!21.1 #f #f temp62_0 temp63_1 temp64_1))"
-" key_42)))))))))))))"
+"(let-values(((temp62_0)(syntax-scope-set id_16 phase_24))"
+"((temp63_0)(syntax-e$1 id_16))"
+"((temp64_0)"
+"(let-values(((key65_0) key_43)((frame-id66_0) frame-id_5))"
+"(make-local-binding7.1 frame-id66_0 #f key65_0))))"
+"(add-binding-in-scopes!20.1 #f temp62_0 temp63_0 temp64_0))"
+" key_43)))))))))))))"
 "(define-values"
 "(check-id-taint)"
-"(lambda(id_18 in-s_5)"
+"(lambda(id_9 in-s_5)"
 "(begin"
-"(if(syntax-tainted?$1 id_18)"
-"        (let-values () (raise-syntax-error$1 #f \"cannot bind tainted identifier\" in-s_5 id_18))"
+"(if(syntax-tainted?$1 id_9)"
+"        (let-values () (raise-syntax-error$1 #f \"cannot bind tainted identifier\" in-s_5 id_9))"
 "(void)))))"
 "(define-values"
 "(binding-lookup50.1)"
-"(lambda(in40_0"
-" in42_0"
-" out-of-context-as-variable?41_0"
-" out-of-context-as-variable?43_0"
-" b44_0"
-" env45_0"
-" lift-envs46_0"
-" ns47_0"
-" phase48_0"
-" id49_0)"
+"(lambda(in40_0 out-of-context-as-variable?41_0 b44_0 env45_0 lift-envs46_0 ns47_0 phase48_0 id49_1)"
 "(begin"
 " 'binding-lookup50"
-"(let-values(((b_60) b44_0))"
+"(let-values(((b_59) b44_0))"
 "(let-values(((env_1) env45_0))"
 "(let-values(((lift-envs_0) lift-envs46_0))"
 "(let-values(((ns_44) ns47_0))"
-"(let-values(((phase_39) phase48_0))"
-"(let-values(((id_19) id49_0))"
-"(let-values(((in-s_6)(if in42_0 in40_0 #f)))"
-"(let-values(((out-of-context-as-variable?_0)"
-"(if out-of-context-as-variable?43_0 out-of-context-as-variable?41_0 #f)))"
+"(let-values(((phase_37) phase48_0))"
+"(let-values(((id_17) id49_1))"
+"(let-values(((in-s_6) in40_0))"
+"(let-values(((out-of-context-as-variable?_0) out-of-context-as-variable?41_0))"
 "(let-values()"
-"(if(module-binding? b_60)"
+"(if(module-binding? b_59)"
 "(let-values()"
-"(let-values(((top-level?_0)(top-level-module-path-index?(module-binding-module b_60))))"
+"(let-values(((top-level?_0)(top-level-module-path-index?(module-binding-module b_59))))"
 "(let-values(((mi_15)"
 "(if(not top-level?_0)"
-"(binding->module-instance b_60 ns_44 phase_39 id_19)"
+"(binding->module-instance b_59 ns_44 phase_37 id_17)"
 " #f)))"
 "(let-values(((m_12)(if mi_15(module-instance-module mi_15) #f)))"
 "(let-values(((primitive?_1)(if m_12(module-primitive? m_12) #f)))"
@@ -15187,21 +14954,21 @@ static const char *startup_source =
 "(if top-level?_0"
 " ns_44"
 "(if mi_15(module-instance-namespace mi_15) #f))))"
-"(let-values((()(begin(check-taint id_19)(values))))"
-"(let-values(((t_42)"
+"(let-values((()(begin(check-taint id_17)(values))))"
+"(let-values(((t_43)"
 "(namespace-get-transformer"
 " m-ns_7"
-"(module-binding-phase b_60)"
-"(module-binding-sym b_60)"
+"(module-binding-phase b_59)"
+"(module-binding-sym b_59)"
 " variable)))"
 "(let-values(((protected?_1)"
 "(if mi_15"
 "(check-access"
-" b_60"
+" b_59"
 " mi_15"
-" id_19"
+" id_17"
 " in-s_6"
-"                                                           (if (variable? t_42) \"variable\" \"transformer\"))"
+"                                                           (if (variable? t_43) \"variable\" \"transformer\"))"
 " #f)))"
 "(let-values(((insp_6)"
 "(if mi_15"
@@ -15209,139 +14976,139 @@ static const char *startup_source =
 "(module-inspector(module-instance-module mi_15))"
 " #f)"
 " #f)))"
-"(values t_42 primitive?_1 insp_6 protected?_1)))))))))))"
-"(if(local-binding? b_60)"
+"(values t_43 primitive?_1 insp_6 protected?_1)))))))))))"
+"(if(local-binding? b_59)"
 "(let-values()"
-"(let-values(((t_43)(hash-ref env_1(local-binding-key b_60) missing)))"
-"(if(eq? t_43 missing)"
+"(let-values(((t_44)(hash-ref env_1(local-binding-key b_59) missing)))"
+"(if(eq? t_44 missing)"
 "(let-values()"
 "(values"
-"(let-values(((or-part_157)"
-"(let-values(((lst_72) lift-envs_0))"
+"(let-values(((or-part_104)"
+"(let-values(((lst_73) lift-envs_0))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
-"(let-values()(check-list lst_72)))"
-"((letrec-values(((for-loop_96)"
-"(lambda(result_61 lst_73)"
+"(let-values()(check-list lst_73)))"
+"((letrec-values(((for-loop_93)"
+"(lambda(result_59 lst_74)"
 "(begin"
 " 'for-loop"
-"(if(pair? lst_73)"
+"(if(pair? lst_74)"
 "(let-values(((lift-env_0)"
-"(unsafe-car lst_73))"
-"((rest_33)"
-"(unsafe-cdr lst_73)))"
-"(let-values(((result_62)"
+"(unsafe-car lst_74))"
+"((rest_34)"
+"(unsafe-cdr lst_74)))"
+"(let-values(((result_60)"
 "(let-values()"
-"(let-values(((result_63)"
+"(let-values(((result_61)"
 "(let-values()"
 "(let-values()"
 "(hash-ref"
 "(unbox"
 " lift-env_0)"
 "(local-binding-key"
-" b_60)"
+" b_59)"
 " #f)))))"
 "(values"
-" result_63)))))"
+" result_61)))))"
 "(if(if(not"
-"((lambda x_40 result_62)"
+"((lambda x_41 result_60)"
 " lift-env_0))"
 "(not #f)"
 " #f)"
-"(for-loop_96 result_62 rest_33)"
-" result_62)))"
-" result_61)))))"
-" for-loop_96)"
+"(for-loop_93 result_60 rest_34)"
+" result_60)))"
+" result_59)))))"
+" for-loop_93)"
 " #f"
-" lst_72)))))"
-"(if or-part_157"
-" or-part_157"
+" lst_73)))))"
+"(if or-part_104"
+" or-part_104"
 "(if out-of-context-as-variable?_0"
 " variable"
-"                                           (error \"identifier used out of context:\" id_19))))"
+"                                           (error \"identifier used out of context:\" id_17))))"
 " #f"
 " #f"
 " #f))"
-"(let-values()(begin(check-taint id_19)(values t_43 #f #f #f))))))"
-"                            (let-values () (error \"internal error: unknown binding for lookup:\" b_60))))))))))))))))"
+"(let-values()(begin(check-taint id_17)(values t_44 #f #f #f))))))"
+"                            (let-values () (error \"internal error: unknown binding for lookup:\" b_59))))))))))))))))"
 "(define-values"
 "(check-taint)"
-"(lambda(id_20)"
+"(lambda(id_18)"
 "(begin"
-"(if(syntax-tainted?$1 id_20)"
-"        (let-values () (raise-syntax-error$1 #f \"cannot use identifier tainted by macro transformation\" id_20))"
+"(if(syntax-tainted?$1 id_18)"
+"        (let-values () (raise-syntax-error$1 #f \"cannot use identifier tainted by macro transformation\" id_18))"
 "(void)))))"
-"(define-values(cons-ish)(lambda(a_36 b_61)(begin(if(null? b_61) a_36(cons a_36 b_61)))))"
+"(define-values(cons-ish)(lambda(a_36 b_60)(begin(if(null? b_60) a_36(cons a_36 b_60)))))"
 "(define-values"
 "(free-id-set)"
-"(lambda(phase_40 ids_0)"
+"(lambda(phase_38 ids_0)"
 "(begin"
-"(let-values(((lst_74) ids_0))"
+"(let-values(((lst_75) ids_0))"
 "(begin"
-"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_74)))"
-"((letrec-values(((for-loop_97)"
-"(lambda(ht_73 lst_75)"
+"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_75)))"
+"((letrec-values(((for-loop_94)"
+"(lambda(ht_70 lst_76)"
 "(begin"
 " 'for-loop"
-"(if(pair? lst_75)"
-"(let-values(((id_21)(unsafe-car lst_75))((rest_34)(unsafe-cdr lst_75)))"
-"(let-values(((ht_74)"
-"(let-values(((ht_75) ht_73))"
-"(let-values(((ht_76)"
+"(if(pair? lst_76)"
+"(let-values(((id_10)(unsafe-car lst_76))((rest_35)(unsafe-cdr lst_76)))"
+"(let-values(((ht_71)"
+"(let-values(((ht_72) ht_70))"
+"(let-values(((ht_73)"
 "(let-values()"
-"(let-values(((sym_23)"
+"(let-values(((sym_24)"
 "(identifier-binding-symbol$1"
-" id_21"
-" phase_40)))"
+" id_10"
+" phase_38)))"
 "(hash-set"
-" ht_75"
-" sym_23"
+" ht_72"
+" sym_24"
 "(cons-ish"
-" id_21"
-"(hash-ref ht_75 sym_23 null)))))))"
-"(values ht_76)))))"
-"(if(not #f)(for-loop_97 ht_74 rest_34) ht_74)))"
-" ht_73)))))"
-" for-loop_97)"
+" id_10"
+"(hash-ref ht_72 sym_24 null)))))))"
+"(values ht_73)))))"
+"(if(not #f)(for-loop_94 ht_71 rest_35) ht_71)))"
+" ht_70)))))"
+" for-loop_94)"
 " '#hasheq()"
-" lst_74))))))"
+" lst_75))))))"
 "(define-values(empty-free-id-set)(free-id-set 0 null))"
 "(define-values(free-id-set-empty?)(lambda(fs_0)(begin(eq? fs_0 empty-free-id-set))))"
 "(define-values"
 "(free-id-set-member?)"
-"(lambda(fs_1 phase_41 given-id_0)"
+"(lambda(fs_1 phase_39 given-id_0)"
 "(begin"
 "(if(free-id-set-empty? fs_1)"
 " #f"
-"(let-values(((lst_76)(hash-ref fs_1(identifier-binding-symbol$1 given-id_0 phase_41) null)))"
+"(let-values(((lst_77)(hash-ref fs_1(identifier-binding-symbol$1 given-id_0 phase_39) null)))"
 "(begin"
 "(void)"
-"((letrec-values(((for-loop_98)"
-"(lambda(result_3 lst_77)"
+"((letrec-values(((for-loop_95)"
+"(lambda(result_3 lst_78)"
 "(begin"
 " 'for-loop"
-"(if(not(null? lst_77))"
-"(let-values(((id_2)(if(pair? lst_77)(car lst_77) lst_77))"
-"((rest_35)(if(pair? lst_77)(cdr lst_77) null)))"
-"(let-values(((result_64)"
+"(if(not(null? lst_78))"
+"(let-values(((id_2)(if(pair? lst_78)(car lst_78) lst_78))"
+"((rest_36)(if(pair? lst_78)(cdr lst_78) null)))"
+"(let-values(((result_62)"
 "(let-values()"
-"(let-values(((result_65)"
+"(let-values(((result_63)"
 "(let-values()"
 "(let-values()"
 "(free-identifier=?$1"
 " id_2"
 " given-id_0"
-" phase_41"
-" phase_41)))))"
-"(values result_65)))))"
-"(if(if(not((lambda x_41 result_64) id_2))(not #f) #f)"
-"(for-loop_98 result_64 rest_35)"
-" result_64)))"
+" phase_39"
+" phase_39)))))"
+"(values result_63)))))"
+"(if(if(not((lambda x_42 result_62) id_2))(not #f) #f)"
+"(for-loop_95 result_62 rest_36)"
+" result_62)))"
 " result_3)))))"
-" for-loop_98)"
+" for-loop_95)"
 " #f"
-" lst_76)))))))"
+" lst_77)))))))"
 "(define-values"
 "(free-id-set-empty-or-just-module*?)"
 "(lambda(fs_2)(begin(let-values(((c_17)(hash-count fs_2)))(<= c_17 1)))))"
@@ -15360,7 +15127,7 @@ static const char *startup_source =
 " expand-context/outer-need-eventually-defined"
 " expand-context/outer-current-introduction-scopes"
 " expand-context/outer-name)"
-"(let-values(((struct:_35 make-_35 ?_35 -ref_35 -set!_35)"
+"(let-values(((struct:_36 make-_36 ?_36 -ref_36 -set!_36)"
 "(let-values()"
 "(let-values()"
 "(make-struct-type"
@@ -15376,20 +15143,20 @@ static const char *startup_source =
 " #f"
 " 'expand-context/outer)))))"
 "(values"
-" struct:_35"
-" make-_35"
-" ?_35"
-"(make-struct-field-accessor -ref_35 0 'context)"
-"(make-struct-field-accessor -ref_35 1 'env)"
-"(make-struct-field-accessor -ref_35 2 'post-expansion-scope-action)"
-"(make-struct-field-accessor -ref_35 3 'scopes)"
-"(make-struct-field-accessor -ref_35 4 'def-ctx-scopes)"
-"(make-struct-field-accessor -ref_35 5 'binding-layer)"
-"(make-struct-field-accessor -ref_35 6 'reference-records)"
-"(make-struct-field-accessor -ref_35 7 'only-immediate?)"
-"(make-struct-field-accessor -ref_35 8 'need-eventually-defined)"
-"(make-struct-field-accessor -ref_35 9 'current-introduction-scopes)"
-"(make-struct-field-accessor -ref_35 10 'name))))"
+" struct:_36"
+" make-_36"
+" ?_36"
+"(make-struct-field-accessor -ref_36 0 'context)"
+"(make-struct-field-accessor -ref_36 1 'env)"
+"(make-struct-field-accessor -ref_36 2 'post-expansion-scope-action)"
+"(make-struct-field-accessor -ref_36 3 'scopes)"
+"(make-struct-field-accessor -ref_36 4 'def-ctx-scopes)"
+"(make-struct-field-accessor -ref_36 5 'binding-layer)"
+"(make-struct-field-accessor -ref_36 6 'reference-records)"
+"(make-struct-field-accessor -ref_36 7 'only-immediate?)"
+"(make-struct-field-accessor -ref_36 8 'need-eventually-defined)"
+"(make-struct-field-accessor -ref_36 9 'current-introduction-scopes)"
+"(make-struct-field-accessor -ref_36 10 'name))))"
 "(define-values"
 "(struct:expand-context/inner"
 " expand-context/inner2.1"
@@ -15413,7 +15180,7 @@ static const char *startup_source =
 " expand-context/inner-observer"
 " expand-context/inner-for-serializable?"
 " expand-context/inner-should-not-encounter-macros?)"
-"(let-values(((struct:_40 make-_40 ?_40 -ref_40 -set!_40)"
+"(let-values(((struct:_41 make-_41 ?_41 -ref_41 -set!_41)"
 "(let-values()"
 "(let-values()"
 "(make-struct-type"
@@ -15429,28 +15196,28 @@ static const char *startup_source =
 " #f"
 " 'expand-context/inner)))))"
 "(values"
-" struct:_40"
-" make-_40"
-" ?_40"
-"(make-struct-field-accessor -ref_40 0 'to-parsed?)"
-"(make-struct-field-accessor -ref_40 1 'phase)"
-"(make-struct-field-accessor -ref_40 2 'namespace)"
-"(make-struct-field-accessor -ref_40 3 'just-once?)"
-"(make-struct-field-accessor -ref_40 4 'module-begin-k)"
-"(make-struct-field-accessor -ref_40 5 'allow-unbound?)"
-"(make-struct-field-accessor -ref_40 6 'in-local-expand?)"
-"(make-struct-field-accessor -ref_40 7 'keep-#%expression?)"
-"(make-struct-field-accessor -ref_40 8 'stops)"
-"(make-struct-field-accessor -ref_40 9 'declared-submodule-names)"
-"(make-struct-field-accessor -ref_40 10 'lifts)"
-"(make-struct-field-accessor -ref_40 11 'lift-envs)"
-"(make-struct-field-accessor -ref_40 12 'module-lifts)"
-"(make-struct-field-accessor -ref_40 13 'require-lifts)"
-"(make-struct-field-accessor -ref_40 14 'to-module-lifts)"
-"(make-struct-field-accessor -ref_40 15 'requires+provides)"
-"(make-struct-field-accessor -ref_40 16 'observer)"
-"(make-struct-field-accessor -ref_40 17 'for-serializable?)"
-"(make-struct-field-accessor -ref_40 18 'should-not-encounter-macros?))))"
+" struct:_41"
+" make-_41"
+" ?_41"
+"(make-struct-field-accessor -ref_41 0 'to-parsed?)"
+"(make-struct-field-accessor -ref_41 1 'phase)"
+"(make-struct-field-accessor -ref_41 2 'namespace)"
+"(make-struct-field-accessor -ref_41 3 'just-once?)"
+"(make-struct-field-accessor -ref_41 4 'module-begin-k)"
+"(make-struct-field-accessor -ref_41 5 'allow-unbound?)"
+"(make-struct-field-accessor -ref_41 6 'in-local-expand?)"
+"(make-struct-field-accessor -ref_41 7 'keep-#%expression?)"
+"(make-struct-field-accessor -ref_41 8 'stops)"
+"(make-struct-field-accessor -ref_41 9 'declared-submodule-names)"
+"(make-struct-field-accessor -ref_41 10 'lifts)"
+"(make-struct-field-accessor -ref_41 11 'lift-envs)"
+"(make-struct-field-accessor -ref_41 12 'module-lifts)"
+"(make-struct-field-accessor -ref_41 13 'require-lifts)"
+"(make-struct-field-accessor -ref_41 14 'to-module-lifts)"
+"(make-struct-field-accessor -ref_41 15 'requires+provides)"
+"(make-struct-field-accessor -ref_41 16 'observer)"
+"(make-struct-field-accessor -ref_41 17 'for-serializable?)"
+"(make-struct-field-accessor -ref_41 18 'should-not-encounter-macros?))))"
 "(define-values"
 "(expand-context/make)"
 "(lambda(self-mpi_2"
@@ -15465,7 +15232,7 @@ static const char *startup_source =
 " lift-key_1"
 " to-parsed?_0"
 " context_0"
-" phase_42"
+" phase_25"
 " namespace_0"
 " env_2"
 " post-expansion-scope-action_0"
@@ -15504,7 +15271,7 @@ static const char *startup_source =
 " counter_2"
 " lift-key_1"
 " to-parsed?_0"
-" phase_42"
+" phase_25"
 " namespace_0"
 " just-once?_0"
 " module-begin-k_0"
@@ -15614,13 +15381,13 @@ static const char *startup_source =
 "(lambda(v_127)(begin(expand-context/inner-should-not-encounter-macros?(root-expand-context/outer-inner v_127)))))"
 "(define-values"
 "(make-expand-context10.1)"
-"(lambda(for-serializable?4_0 for-serializable?7_0 observer5_0 observer8_0 to-parsed?3_0 to-parsed?6_0 ns9_0)"
+"(lambda(for-serializable?4_0 observer5_0 to-parsed?3_0 ns9_0)"
 "(begin"
 " 'make-expand-context10"
 "(let-values(((ns_45) ns9_0))"
-"(let-values(((to-parsed?_1)(if to-parsed?6_0 to-parsed?3_0 #f)))"
-"(let-values(((for-serializable?_1)(if for-serializable?7_0 for-serializable?4_0 #f)))"
-"(let-values(((observer_1)(if observer8_0 observer5_0 #f)))"
+"(let-values(((to-parsed?_1) to-parsed?3_0))"
+"(let-values(((for-serializable?_1) for-serializable?4_0))"
+"(let-values(((observer_1) observer5_0))"
 "(let-values()"
 "(let-values(((root-ctx_1)(namespace-get-root-expand-ctx ns_45)))"
 "(expand-context/make"
@@ -15669,89 +15436,89 @@ static const char *startup_source =
 "(lambda(ctx_1 root-ctx_2)"
 "(begin"
 "(let-values(((v_128) ctx_1))"
-"(let-values(((the-struct_39) v_128))"
-"(if(expand-context/outer? the-struct_39)"
-"(let-values(((post-expansion-scope28_0)(root-expand-context-post-expansion-scope root-ctx_2))"
-"((use-site-scopes29_0)(root-expand-context-use-site-scopes root-ctx_2))"
-"((frame-id30_1)(root-expand-context-frame-id root-ctx_2))"
-"((binding-layer31_0)(root-expand-context-frame-id root-ctx_2))"
-"((inner32_0)"
-"(let-values(((the-struct_40)(root-expand-context/outer-inner v_128)))"
-"(if(expand-context/inner? the-struct_40)"
-"(let-values(((self-mpi33_0)(root-expand-context-self-mpi root-ctx_2))"
-"((module-scopes34_0)(root-expand-context-module-scopes root-ctx_2))"
-"((top-level-bind-scope35_0)"
+"(let-values(((the-struct_14) v_128))"
+"(if(expand-context/outer? the-struct_14)"
+"(let-values(((post-expansion-scope27_0)(root-expand-context-post-expansion-scope root-ctx_2))"
+"((use-site-scopes28_0)(root-expand-context-use-site-scopes root-ctx_2))"
+"((frame-id29_0)(root-expand-context-frame-id root-ctx_2))"
+"((binding-layer30_0)(root-expand-context-frame-id root-ctx_2))"
+"((inner31_0)"
+"(let-values(((the-struct_41)(root-expand-context/outer-inner v_128)))"
+"(if(expand-context/inner? the-struct_41)"
+"(let-values(((self-mpi32_0)(root-expand-context-self-mpi root-ctx_2))"
+"((module-scopes33_0)(root-expand-context-module-scopes root-ctx_2))"
+"((top-level-bind-scope34_0)"
 "(root-expand-context-top-level-bind-scope root-ctx_2))"
-"((all-scopes-stx36_0)(root-expand-context-all-scopes-stx root-ctx_2))"
-"((defined-syms37_0)(root-expand-context-defined-syms root-ctx_2))"
-"((counter38_0)(root-expand-context-counter root-ctx_2))"
-"((lift-key39_0)(root-expand-context-lift-key root-ctx_2)))"
+"((all-scopes-stx35_0)(root-expand-context-all-scopes-stx root-ctx_2))"
+"((defined-syms36_0)(root-expand-context-defined-syms root-ctx_2))"
+"((counter37_0)(root-expand-context-counter root-ctx_2))"
+"((lift-key38_0)(root-expand-context-lift-key root-ctx_2)))"
 "(expand-context/inner2.1"
-" self-mpi33_0"
-" module-scopes34_0"
-" top-level-bind-scope35_0"
-" all-scopes-stx36_0"
-" defined-syms37_0"
-" counter38_0"
-" lift-key39_0"
-"(expand-context/inner-to-parsed? the-struct_40)"
-"(expand-context/inner-phase the-struct_40)"
-"(expand-context/inner-namespace the-struct_40)"
-"(expand-context/inner-just-once? the-struct_40)"
-"(expand-context/inner-module-begin-k the-struct_40)"
-"(expand-context/inner-allow-unbound? the-struct_40)"
-"(expand-context/inner-in-local-expand? the-struct_40)"
-"(expand-context/inner-keep-#%expression? the-struct_40)"
-"(expand-context/inner-stops the-struct_40)"
-"(expand-context/inner-declared-submodule-names the-struct_40)"
-"(expand-context/inner-lifts the-struct_40)"
-"(expand-context/inner-lift-envs the-struct_40)"
-"(expand-context/inner-module-lifts the-struct_40)"
-"(expand-context/inner-require-lifts the-struct_40)"
-"(expand-context/inner-to-module-lifts the-struct_40)"
-"(expand-context/inner-requires+provides the-struct_40)"
-"(expand-context/inner-observer the-struct_40)"
-"(expand-context/inner-for-serializable? the-struct_40)"
-"(expand-context/inner-should-not-encounter-macros? the-struct_40)))"
-"                              (raise-argument-error 'struct-copy \"expand-context/inner?\" the-struct_40)))))"
+" self-mpi32_0"
+" module-scopes33_0"
+" top-level-bind-scope34_0"
+" all-scopes-stx35_0"
+" defined-syms36_0"
+" counter37_0"
+" lift-key38_0"
+"(expand-context/inner-to-parsed? the-struct_41)"
+"(expand-context/inner-phase the-struct_41)"
+"(expand-context/inner-namespace the-struct_41)"
+"(expand-context/inner-just-once? the-struct_41)"
+"(expand-context/inner-module-begin-k the-struct_41)"
+"(expand-context/inner-allow-unbound? the-struct_41)"
+"(expand-context/inner-in-local-expand? the-struct_41)"
+"(expand-context/inner-keep-#%expression? the-struct_41)"
+"(expand-context/inner-stops the-struct_41)"
+"(expand-context/inner-declared-submodule-names the-struct_41)"
+"(expand-context/inner-lifts the-struct_41)"
+"(expand-context/inner-lift-envs the-struct_41)"
+"(expand-context/inner-module-lifts the-struct_41)"
+"(expand-context/inner-require-lifts the-struct_41)"
+"(expand-context/inner-to-module-lifts the-struct_41)"
+"(expand-context/inner-requires+provides the-struct_41)"
+"(expand-context/inner-observer the-struct_41)"
+"(expand-context/inner-for-serializable? the-struct_41)"
+"(expand-context/inner-should-not-encounter-macros? the-struct_41)))"
+"                              (raise-argument-error 'struct-copy \"expand-context/inner?\" the-struct_41)))))"
 "(expand-context/outer1.1"
-" inner32_0"
-" post-expansion-scope28_0"
-" use-site-scopes29_0"
-" frame-id30_1"
-"(expand-context/outer-context the-struct_39)"
-"(expand-context/outer-env the-struct_39)"
-"(expand-context/outer-post-expansion-scope-action the-struct_39)"
-"(expand-context/outer-scopes the-struct_39)"
-"(expand-context/outer-def-ctx-scopes the-struct_39)"
-" binding-layer31_0"
-"(expand-context/outer-reference-records the-struct_39)"
-"(expand-context/outer-only-immediate? the-struct_39)"
-"(expand-context/outer-need-eventually-defined the-struct_39)"
-"(expand-context/outer-current-introduction-scopes the-struct_39)"
-"(expand-context/outer-name the-struct_39)))"
-"            (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_39)))))))"
+" inner31_0"
+" post-expansion-scope27_0"
+" use-site-scopes28_0"
+" frame-id29_0"
+"(expand-context/outer-context the-struct_14)"
+"(expand-context/outer-env the-struct_14)"
+"(expand-context/outer-post-expansion-scope-action the-struct_14)"
+"(expand-context/outer-scopes the-struct_14)"
+"(expand-context/outer-def-ctx-scopes the-struct_14)"
+" binding-layer30_0"
+"(expand-context/outer-reference-records the-struct_14)"
+"(expand-context/outer-only-immediate? the-struct_14)"
+"(expand-context/outer-need-eventually-defined the-struct_14)"
+"(expand-context/outer-current-introduction-scopes the-struct_14)"
+"(expand-context/outer-name the-struct_14)))"
+"            (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_14)))))))"
 "(define-values(current-expand-context)(make-parameter #f))"
 "(define-values"
-"(get-current-expand-context17.1)"
-"(lambda(fail-ok?13_0 fail-ok?14_0 who15_0 who16_0)"
+"(get-current-expand-context16.1)"
+"(lambda(fail-ok?13_0 who15_0)"
 "(begin"
-" 'get-current-expand-context17"
-"(let-values(((who_11)(if who16_0 who15_0 'unexpected)))"
-"(let-values(((fail-ok?_0)(if fail-ok?14_0 fail-ok?13_0 #f)))"
+" 'get-current-expand-context16"
+"(let-values(((who_10) who15_0))"
+"(let-values(((fail-ok?_0) fail-ok?13_0))"
 "(let-values()"
-"(let-values(((or-part_158)(force(current-expand-context))))"
-"(if or-part_158"
-" or-part_158"
-"                (if fail-ok?_0 #f (raise-arguments-error who_11 \"not currently expanding\"))))))))))"
+"(let-values(((or-part_160)(force(current-expand-context))))"
+"(if or-part_160"
+" or-part_160"
+"                (if fail-ok?_0 #f (raise-arguments-error who_10 \"not currently expanding\"))))))))))"
 "(define-values"
 "(current-expand-observe)"
 "(make-parameter"
 " #f"
 "(lambda(v_129)"
 "(begin"
-"(if(let-values(((or-part_159)(not v_129)))"
-"(if or-part_159 or-part_159(if(procedure? v_129)(procedure-arity-includes? v_129 2) #f)))"
+"(if(let-values(((or-part_161)(not v_129)))"
+"(if or-part_161 or-part_161(if(procedure? v_129)(procedure-arity-includes? v_129 2) #f)))"
 "(void)"
 "(let-values()"
 "           (raise-argument-error 'current-expand-observe \"(or/c (procedure-arity-includes/c 2) #f)\" v_129)))"
@@ -15764,29 +15531,29 @@ static const char *startup_source =
 "(let-values() ctx_2)"
 "(let-values()"
 "(let-values(((v_130) ctx_2))"
-"(let-values(((the-struct_41) v_130))"
-"(if(expand-context/outer? the-struct_41)"
-"(let-values(((context40_0) 'expression)"
-"((name41_0) #f)"
-"((post-expansion-scope42_0) #f)"
-"((inner43_0)(root-expand-context/outer-inner v_130)))"
+"(let-values(((the-struct_16) v_130))"
+"(if(expand-context/outer? the-struct_16)"
+"(let-values(((context39_0) 'expression)"
+"((name40_0) #f)"
+"((post-expansion-scope41_0) #f)"
+"((inner42_0)(root-expand-context/outer-inner v_130)))"
 "(expand-context/outer1.1"
-" inner43_0"
-" post-expansion-scope42_0"
-"(root-expand-context/outer-use-site-scopes the-struct_41)"
-"(root-expand-context/outer-frame-id the-struct_41)"
-" context40_0"
-"(expand-context/outer-env the-struct_41)"
-"(expand-context/outer-post-expansion-scope-action the-struct_41)"
-"(expand-context/outer-scopes the-struct_41)"
-"(expand-context/outer-def-ctx-scopes the-struct_41)"
-"(expand-context/outer-binding-layer the-struct_41)"
-"(expand-context/outer-reference-records the-struct_41)"
-"(expand-context/outer-only-immediate? the-struct_41)"
-"(expand-context/outer-need-eventually-defined the-struct_41)"
-"(expand-context/outer-current-introduction-scopes the-struct_41)"
-" name41_0))"
-"                (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_41)))))))))"
+" inner42_0"
+" post-expansion-scope41_0"
+"(root-expand-context/outer-use-site-scopes the-struct_16)"
+"(root-expand-context/outer-frame-id the-struct_16)"
+" context39_0"
+"(expand-context/outer-env the-struct_16)"
+"(expand-context/outer-post-expansion-scope-action the-struct_16)"
+"(expand-context/outer-scopes the-struct_16)"
+"(expand-context/outer-def-ctx-scopes the-struct_16)"
+"(expand-context/outer-binding-layer the-struct_16)"
+"(expand-context/outer-reference-records the-struct_16)"
+"(expand-context/outer-only-immediate? the-struct_16)"
+"(expand-context/outer-need-eventually-defined the-struct_16)"
+"(expand-context/outer-current-introduction-scopes the-struct_16)"
+" name40_0))"
+"                (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_16)))))))))"
 "(define-values"
 "(as-begin-expression-context)"
 "(lambda(ctx_3)"
@@ -15797,9 +15564,9 @@ static const char *startup_source =
 "(let-values(((v_131) ctx_3))"
 "(let-values(((the-struct_42) v_131))"
 "(if(expand-context/outer? the-struct_42)"
-"(let-values(((name44_0) #f)((inner45_0)(root-expand-context/outer-inner v_131)))"
+"(let-values(((name43_0) #f)((inner44_0)(root-expand-context/outer-inner v_131)))"
 "(expand-context/outer1.1"
-" inner45_0"
+" inner44_0"
 "(root-expand-context/outer-post-expansion-scope the-struct_42)"
 "(root-expand-context/outer-use-site-scopes the-struct_42)"
 "(root-expand-context/outer-frame-id the-struct_42)"
@@ -15813,53 +15580,25 @@ static const char *startup_source =
 "(expand-context/outer-only-immediate? the-struct_42)"
 "(expand-context/outer-need-eventually-defined the-struct_42)"
 "(expand-context/outer-current-introduction-scopes the-struct_42)"
-" name44_0))"
+" name43_0))"
 "                (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_42)))))))))"
 "(define-values"
-"(as-tail-context23.1)"
-"(lambda(wrt20_0 ctx22_0)"
+"(as-tail-context22.1)"
+"(lambda(wrt19_0 ctx21_0)"
 "(begin"
-" 'as-tail-context23"
-"(let-values(((ctx_4) ctx22_0))"
-"(let-values(((wrt-ctx_0) wrt20_0))"
+" 'as-tail-context22"
+"(let-values(((ctx_4) ctx21_0))"
+"(let-values(((wrt-ctx_0) wrt19_0))"
 "(let-values()"
 "(if(expand-context-name wrt-ctx_0)"
 "(let-values()"
 "(let-values(((v_132) ctx_4))"
-"(let-values(((the-struct_18) v_132))"
-"(if(expand-context/outer? the-struct_18)"
-"(let-values(((name46_0)(expand-context-name wrt-ctx_0))"
-"((inner47_0)(root-expand-context/outer-inner v_132)))"
-"(expand-context/outer1.1"
-" inner47_0"
-"(root-expand-context/outer-post-expansion-scope the-struct_18)"
-"(root-expand-context/outer-use-site-scopes the-struct_18)"
-"(root-expand-context/outer-frame-id the-struct_18)"
-"(expand-context/outer-context the-struct_18)"
-"(expand-context/outer-env the-struct_18)"
-"(expand-context/outer-post-expansion-scope-action the-struct_18)"
-"(expand-context/outer-scopes the-struct_18)"
-"(expand-context/outer-def-ctx-scopes the-struct_18)"
-"(expand-context/outer-binding-layer the-struct_18)"
-"(expand-context/outer-reference-records the-struct_18)"
-"(expand-context/outer-only-immediate? the-struct_18)"
-"(expand-context/outer-need-eventually-defined the-struct_18)"
-"(expand-context/outer-current-introduction-scopes the-struct_18)"
-" name46_0))"
-"                      (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_18)))))"
-"(let-values() ctx_4))))))))"
-"(define-values"
-"(as-named-context)"
-"(lambda(ctx_5 ids_1)"
-"(begin"
-"(if(if(pair? ids_1)(null?(cdr ids_1)) #f)"
-"(let-values()"
-"(let-values(((v_133) ctx_5))"
-"(let-values(((the-struct_43) v_133))"
+"(let-values(((the-struct_43) v_132))"
 "(if(expand-context/outer? the-struct_43)"
-"(let-values(((name48_0)(car ids_1))((inner49_0)(root-expand-context/outer-inner v_133)))"
+"(let-values(((name45_0)(expand-context-name wrt-ctx_0))"
+"((inner46_0)(root-expand-context/outer-inner v_132)))"
 "(expand-context/outer1.1"
-" inner49_0"
+" inner46_0"
 "(root-expand-context/outer-post-expansion-scope the-struct_43)"
 "(root-expand-context/outer-use-site-scopes the-struct_43)"
 "(root-expand-context/outer-frame-id the-struct_43)"
@@ -15873,52 +15612,21 @@ static const char *startup_source =
 "(expand-context/outer-only-immediate? the-struct_43)"
 "(expand-context/outer-need-eventually-defined the-struct_43)"
 "(expand-context/outer-current-introduction-scopes the-struct_43)"
-" name48_0))"
-"                (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_43)))))"
-"(let-values() ctx_5)))))"
+" name45_0))"
+"                      (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_43)))))"
+"(let-values() ctx_4))))))))"
 "(define-values"
-"(as-to-parsed-context)"
-"(lambda(ctx_6)"
+"(as-named-context)"
+"(lambda(ctx_5 ids_1)"
 "(begin"
-"(let-values(((v_134) ctx_6))"
-"(let-values(((the-struct_44) v_134))"
+"(if(if(pair? ids_1)(null?(cdr ids_1)) #f)"
+"(let-values()"
+"(let-values(((v_133) ctx_5))"
+"(let-values(((the-struct_44) v_133))"
 "(if(expand-context/outer? the-struct_44)"
-"(let-values(((inner50_0)"
-"(let-values(((the-struct_45)(root-expand-context/outer-inner v_134)))"
-"(if(expand-context/inner? the-struct_45)"
-"(let-values(((to-parsed?51_0) #t)"
-"((observer52_0) #f)"
-"((should-not-encounter-macros?53_0) #t))"
-"(expand-context/inner2.1"
-"(root-expand-context/inner-self-mpi the-struct_45)"
-"(root-expand-context/inner-module-scopes the-struct_45)"
-"(root-expand-context/inner-top-level-bind-scope the-struct_45)"
-"(root-expand-context/inner-all-scopes-stx the-struct_45)"
-"(root-expand-context/inner-defined-syms the-struct_45)"
-"(root-expand-context/inner-counter the-struct_45)"
-"(root-expand-context/inner-lift-key the-struct_45)"
-" to-parsed?51_0"
-"(expand-context/inner-phase the-struct_45)"
-"(expand-context/inner-namespace the-struct_45)"
-"(expand-context/inner-just-once? the-struct_45)"
-"(expand-context/inner-module-begin-k the-struct_45)"
-"(expand-context/inner-allow-unbound? the-struct_45)"
-"(expand-context/inner-in-local-expand? the-struct_45)"
-"(expand-context/inner-keep-#%expression? the-struct_45)"
-"(expand-context/inner-stops the-struct_45)"
-"(expand-context/inner-declared-submodule-names the-struct_45)"
-"(expand-context/inner-lifts the-struct_45)"
-"(expand-context/inner-lift-envs the-struct_45)"
-"(expand-context/inner-module-lifts the-struct_45)"
-"(expand-context/inner-require-lifts the-struct_45)"
-"(expand-context/inner-to-module-lifts the-struct_45)"
-"(expand-context/inner-requires+provides the-struct_45)"
-" observer52_0"
-"(expand-context/inner-for-serializable? the-struct_45)"
-" should-not-encounter-macros?53_0))"
-"                              (raise-argument-error 'struct-copy \"expand-context/inner?\" the-struct_45)))))"
+"(let-values(((name47_0)(car ids_1))((inner48_0)(root-expand-context/outer-inner v_133)))"
 "(expand-context/outer1.1"
-" inner50_0"
+" inner48_0"
 "(root-expand-context/outer-post-expansion-scope the-struct_44)"
 "(root-expand-context/outer-use-site-scopes the-struct_44)"
 "(root-expand-context/outer-frame-id the-struct_44)"
@@ -15932,18 +15640,77 @@ static const char *startup_source =
 "(expand-context/outer-only-immediate? the-struct_44)"
 "(expand-context/outer-need-eventually-defined the-struct_44)"
 "(expand-context/outer-current-introduction-scopes the-struct_44)"
-"(expand-context/outer-name the-struct_44)))"
-"            (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_44)))))))"
+" name47_0))"
+"                (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_44)))))"
+"(let-values() ctx_5)))))"
+"(define-values"
+"(as-to-parsed-context)"
+"(lambda(ctx_6)"
+"(begin"
+"(let-values(((v_134) ctx_6))"
+"(let-values(((the-struct_45) v_134))"
+"(if(expand-context/outer? the-struct_45)"
+"(let-values(((inner49_0)"
+"(let-values(((the-struct_46)(root-expand-context/outer-inner v_134)))"
+"(if(expand-context/inner? the-struct_46)"
+"(let-values(((to-parsed?50_0) #t)"
+"((observer51_0) #f)"
+"((should-not-encounter-macros?52_0) #t))"
+"(expand-context/inner2.1"
+"(root-expand-context/inner-self-mpi the-struct_46)"
+"(root-expand-context/inner-module-scopes the-struct_46)"
+"(root-expand-context/inner-top-level-bind-scope the-struct_46)"
+"(root-expand-context/inner-all-scopes-stx the-struct_46)"
+"(root-expand-context/inner-defined-syms the-struct_46)"
+"(root-expand-context/inner-counter the-struct_46)"
+"(root-expand-context/inner-lift-key the-struct_46)"
+" to-parsed?50_0"
+"(expand-context/inner-phase the-struct_46)"
+"(expand-context/inner-namespace the-struct_46)"
+"(expand-context/inner-just-once? the-struct_46)"
+"(expand-context/inner-module-begin-k the-struct_46)"
+"(expand-context/inner-allow-unbound? the-struct_46)"
+"(expand-context/inner-in-local-expand? the-struct_46)"
+"(expand-context/inner-keep-#%expression? the-struct_46)"
+"(expand-context/inner-stops the-struct_46)"
+"(expand-context/inner-declared-submodule-names the-struct_46)"
+"(expand-context/inner-lifts the-struct_46)"
+"(expand-context/inner-lift-envs the-struct_46)"
+"(expand-context/inner-module-lifts the-struct_46)"
+"(expand-context/inner-require-lifts the-struct_46)"
+"(expand-context/inner-to-module-lifts the-struct_46)"
+"(expand-context/inner-requires+provides the-struct_46)"
+" observer51_0"
+"(expand-context/inner-for-serializable? the-struct_46)"
+" should-not-encounter-macros?52_0))"
+"                              (raise-argument-error 'struct-copy \"expand-context/inner?\" the-struct_46)))))"
+"(expand-context/outer1.1"
+" inner49_0"
+"(root-expand-context/outer-post-expansion-scope the-struct_45)"
+"(root-expand-context/outer-use-site-scopes the-struct_45)"
+"(root-expand-context/outer-frame-id the-struct_45)"
+"(expand-context/outer-context the-struct_45)"
+"(expand-context/outer-env the-struct_45)"
+"(expand-context/outer-post-expansion-scope-action the-struct_45)"
+"(expand-context/outer-scopes the-struct_45)"
+"(expand-context/outer-def-ctx-scopes the-struct_45)"
+"(expand-context/outer-binding-layer the-struct_45)"
+"(expand-context/outer-reference-records the-struct_45)"
+"(expand-context/outer-only-immediate? the-struct_45)"
+"(expand-context/outer-need-eventually-defined the-struct_45)"
+"(expand-context/outer-current-introduction-scopes the-struct_45)"
+"(expand-context/outer-name the-struct_45)))"
+"            (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_45)))))))"
 "(define-values"
 "(to-syntax-list.1)"
-"(lambda(s_172)"
+"(lambda(s_169)"
 "(begin"
 " 'to-syntax-list"
-"(if(list? s_172)"
-"(let-values() s_172)"
-"(if(pair? s_172)"
-"(let-values()(let-values(((r_28)(to-syntax-list.1(cdr s_172))))(if r_28(cons(car s_172) r_28) #f)))"
-"(if(syntax?$1 s_172)(let-values()(to-syntax-list.1(syntax-e$1 s_172)))(let-values() #f)))))))"
+"(if(list? s_169)"
+"(let-values() s_169)"
+"(if(pair? s_169)"
+"(let-values()(let-values(((r_28)(to-syntax-list.1(cdr s_169))))(if r_28(cons(car s_169) r_28) #f)))"
+"(if(syntax?$1 s_169)(let-values()(to-syntax-list.1(syntax-e$1 s_169)))(let-values() #f)))))))"
 "(define-values(core-scope)(new-multi-scope))"
 "(define-values(core-stx)(add-scope empty-syntax core-scope))"
 "(define-values(core-module-name)(1/make-resolved-module-path '#%core))"
@@ -15952,64 +15719,55 @@ static const char *startup_source =
 "(define-values(id-cache-1)(make-hasheq))"
 "(define-values"
 "(core-id)"
-"(lambda(sym_12 phase_35)"
+"(lambda(sym_12 phase_34)"
 "(begin"
-"(if(eqv? phase_35 0)"
+"(if(eqv? phase_34 0)"
 "(let-values()"
 "(let-values(((or-part_6)(hash-ref id-cache-0 sym_12 #f)))"
 "(if or-part_6"
 " or-part_6"
-"(let-values(((s_173)(datum->syntax$1 core-stx sym_12)))"
-"(begin(hash-set! id-cache-0 sym_12 s_173) s_173)))))"
-"(if(eq? phase_35 1)"
+"(let-values(((s_170)(datum->syntax$1 core-stx sym_12)))"
+"(begin(hash-set! id-cache-0 sym_12 s_170) s_170)))))"
+"(if(eq? phase_34 1)"
 "(let-values()"
 "(let-values(((or-part_28)(hash-ref id-cache-1 sym_12 #f)))"
 "(if or-part_28"
 " or-part_28"
 "(let-values(((s_10)(datum->syntax$1(syntax-shift-phase-level$1 core-stx 1) sym_12)))"
 "(begin(hash-set! id-cache-1 sym_12 s_10) s_10)))))"
-"(let-values()(datum->syntax$1(syntax-shift-phase-level$1 core-stx phase_35) sym_12)))))))"
+"(let-values()(datum->syntax$1(syntax-shift-phase-level$1 core-stx phase_34) sym_12)))))))"
 "(define-values(core-forms) '#hasheq())"
 "(define-values(core-primitives) '#hasheq())"
 "(define-values"
 "(add-core-form!*)"
-"(lambda(sym_24 proc_4)"
-"(begin(begin(add-core-binding! sym_24)(set! core-forms(hash-set core-forms sym_24 proc_4))))))"
+"(lambda(sym_25 proc_4)"
+"(begin(begin(add-core-binding! sym_25)(set! core-forms(hash-set core-forms sym_25 proc_4))))))"
 "(define-values"
 "(add-core-primitive!)"
-"(lambda(sym_0 val_35)"
-"(begin(begin(add-core-binding! sym_0)(set! core-primitives(hash-set core-primitives sym_0 val_35))))))"
+"(lambda(sym_26 val_35)"
+"(begin(begin(add-core-binding! sym_26)(set! core-primitives(hash-set core-primitives sym_26 val_35))))))"
 "(define-values"
 "(add-core-binding!)"
-"(lambda(sym_25)"
+"(lambda(sym_27)"
 "(begin"
-"(let-values(((temp1_0)(datum->syntax$1 core-stx sym_25))"
+"(let-values(((temp1_0)(datum->syntax$1 core-stx sym_27))"
 "((temp2_1)"
-"(let-values(((core-mpi4_0) core-mpi)((temp5_2) 0)((sym6_0) sym_25))"
+"(let-values(((core-mpi4_0) core-mpi)((temp5_2) 0)((sym6_0) sym_27))"
 "(make-module-binding22.1"
 " #f"
+" null"
 " #f"
 " #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
+" unsafe-undefined"
+" unsafe-undefined"
+" 0"
+" unsafe-undefined"
+" unsafe-undefined"
 " core-mpi4_0"
 " temp5_2"
 " sym6_0)))"
 "((temp3_1) 0))"
-"(add-binding!17.1 #f #f #f #f temp1_0 temp2_1 temp3_1)))))"
+"(add-binding!17.1 #f #f temp1_0 temp2_1 temp3_1)))))"
 "(define-values"
 "(declare-core-module!)"
 "(lambda(ns_46)"
@@ -16023,113 +15781,104 @@ static const char *startup_source =
 "((temp14_1)"
 "(hasheqv"
 " 0"
-"(let-values(((lst_78)(list core-primitives core-forms))((lst_79) '(#f #t)))"
+"(let-values(((lst_79)(list core-primitives core-forms))((lst_80) '(#f #t)))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
-"(let-values()(check-list lst_78)))"
-"(if(variable-reference-from-unsafe?(#%variable-reference))"
-"(void)"
 "(let-values()(check-list lst_79)))"
-"((letrec-values(((for-loop_99)"
-"(lambda(table_109 lst_80 lst_81)"
+"(if(variable-reference-from-unsafe?(#%variable-reference))"
+"(void)"
+"(let-values()(check-list lst_80)))"
+"((letrec-values(((for-loop_96)"
+"(lambda(table_109 lst_81 lst_82)"
 "(begin"
 " 'for-loop"
-"(if(if(pair? lst_80)(pair? lst_81) #f)"
-"(let-values(((syms_12)(unsafe-car lst_80))"
-"((rest_36)(unsafe-cdr lst_80))"
-"((syntax?_2)(unsafe-car lst_81))"
-"((rest_37)(unsafe-cdr lst_81)))"
+"(if(if(pair? lst_81)(pair? lst_82) #f)"
+"(let-values(((syms_12)(unsafe-car lst_81))"
+"((rest_37)(unsafe-cdr lst_81))"
+"((syntax?_2)(unsafe-car lst_82))"
+"((rest_38)(unsafe-cdr lst_82)))"
 "(let-values(((table_110)"
 "(let-values(((table_111) table_109))"
-"(let-values(((ht_77) syms_12))"
+"(let-values(((ht_74) syms_12))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
 "(#%variable-reference))"
 "(void)"
 "(let-values()"
-"(check-in-hash-keys ht_77)))"
-"((letrec-values(((for-loop_100)"
+"(check-in-hash-keys ht_74)))"
+"((letrec-values(((for-loop_97)"
 "(lambda(table_112"
-" i_41)"
+" i_42)"
 "(begin"
 " 'for-loop"
-"(if i_41"
-"(let-values(((sym_26)"
+"(if i_42"
+"(let-values(((sym_28)"
 "(hash-iterate-key"
-" ht_77"
-" i_41)))"
+" ht_74"
+" i_42)))"
 "(let-values(((table_113)"
 "(let-values(((table_114)"
 " table_112))"
 "(let-values(((table_115)"
 "(let-values()"
-"(let-values(((key_43"
+"(let-values(((key_44"
 " val_36)"
 "(let-values()"
-"(let-values(((b_62)"
+"(let-values(((b_61)"
 "(let-values(((core-mpi17_0)"
 " core-mpi)"
 "((temp18_3)"
 " 0)"
-"((sym19_1)"
-" sym_26))"
+"((sym19_0)"
+" sym_28))"
 "(make-module-binding22.1"
 " #f"
+" null"
 " #f"
 " #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
+" unsafe-undefined"
+" unsafe-undefined"
+" 0"
+" unsafe-undefined"
+" unsafe-undefined"
 " core-mpi17_0"
 " temp18_3"
-" sym19_1))))"
+" sym19_0))))"
 "(values"
-" sym_26"
+" sym_28"
 "(if syntax?_2"
 "(provided1.1"
-" b_62"
+" b_61"
 " #f"
 " #t)"
-" b_62))))))"
+" b_61))))))"
 "(hash-set"
 " table_114"
-" key_43"
+" key_44"
 " val_36)))))"
 "(values"
 " table_115)))))"
 "(if(not"
 " #f)"
-"(for-loop_100"
+"(for-loop_97"
 " table_113"
 "(hash-iterate-next"
-" ht_77"
-" i_41))"
+" ht_74"
+" i_42))"
 " table_113)))"
 " table_112)))))"
-" for-loop_100)"
+" for-loop_97)"
 " table_111"
-"(hash-iterate-first ht_77)))))))"
+"(hash-iterate-first ht_74)))))))"
 "(if(not #f)"
-"(for-loop_99 table_110 rest_36 rest_37)"
+"(for-loop_96 table_110 rest_37 rest_38)"
 " table_110)))"
 " table_109)))))"
-" for-loop_99)"
+" for-loop_96)"
 " '#hasheq()"
-" lst_78"
-" lst_79)))))"
+" lst_79"
+" lst_80)))))"
 "((temp15_1)"
 "(lambda(phase-level_14 ns_47 insp_7)"
 "(if(zero? phase-level_14)"
@@ -16140,10 +15889,7 @@ static const char *startup_source =
 "(namespace->module-namespace82.1"
 " #f"
 " #f"
-" #f"
-" #f"
-" #f"
-" #f"
+" unsafe-undefined"
 " ns20_0"
 " core-module-name21_0"
 " temp22_1))))"
@@ -16154,7 +15900,7 @@ static const char *startup_source =
 "((temp16_1)"
 "(lambda(data-box_1"
 " ns_49"
-" phase_43"
+" phase_40"
 " phase-level_15"
 " self_5"
 " bulk-binding-registry_4"
@@ -16163,20 +15909,20 @@ static const char *startup_source =
 "(if(equal? tmp_14 0)"
 "(let-values()"
 "(begin"
-"(let-values(((ht_78) core-primitives))"
+"(let-values(((ht_75) core-primitives))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
-"(let-values()(check-in-hash ht_78)))"
-"((letrec-values(((for-loop_101)"
-"(lambda(i_88)"
+"(let-values()(check-in-hash ht_75)))"
+"((letrec-values(((for-loop_98)"
+"(lambda(i_28)"
 "(begin"
 " 'for-loop"
-"(if i_88"
-"(let-values(((sym_27 val_37)"
+"(if i_28"
+"(let-values(((sym_29 val_37)"
 "(hash-iterate-key+value"
-" ht_78"
-" i_88)))"
+" ht_75"
+" i_28)))"
 "(let-values((()"
 "(let-values()"
 "(let-values((()"
@@ -16186,32 +15932,32 @@ static const char *startup_source =
 "(namespace-set-consistent!"
 " ns_49"
 " 0"
-" sym_27"
+" sym_29"
 " val_37))"
 "(values)))))"
 "(values)))))"
 "(if(not #f)"
-"(for-loop_101"
-"(hash-iterate-next ht_78 i_88))"
+"(for-loop_98"
+"(hash-iterate-next ht_75 i_28))"
 "(values))))"
 "(values))))))"
-" for-loop_101)"
-"(hash-iterate-first ht_78))))"
+" for-loop_98)"
+"(hash-iterate-first ht_75))))"
 "(void)"
-"(let-values(((ht_79) core-forms))"
+"(let-values(((ht_76) core-forms))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
-"(let-values()(check-in-hash ht_79)))"
-"((letrec-values(((for-loop_102)"
-"(lambda(i_89)"
+"(let-values()(check-in-hash ht_76)))"
+"((letrec-values(((for-loop_99)"
+"(lambda(i_90)"
 "(begin"
 " 'for-loop"
-"(if i_89"
-"(let-values(((sym_28 proc_5)"
+"(if i_90"
+"(let-values(((sym_30 proc_5)"
 "(hash-iterate-key+value"
-" ht_79"
-" i_89)))"
+" ht_76"
+" i_90)))"
 "(let-values((()"
 "(let-values()"
 "(let-values((()"
@@ -16221,122 +15967,107 @@ static const char *startup_source =
 "(namespace-set-transformer!"
 " ns_49"
 " 0"
-" sym_28"
+" sym_30"
 "(if(procedure-arity-includes?"
 " proc_5"
 " 2)"
 "(core-form9.1"
 " proc_5"
-" sym_28)"
+" sym_30)"
 " proc_5)))"
 "(values)))))"
 "(values)))))"
 "(if(not #f)"
-"(for-loop_102"
-"(hash-iterate-next ht_79 i_89))"
+"(for-loop_99"
+"(hash-iterate-next ht_76 i_90))"
 "(values))))"
 "(values))))))"
-" for-loop_102)"
-"(hash-iterate-first ht_79))))"
+" for-loop_99)"
+"(hash-iterate-first ht_76))))"
 "(void)))"
 "(let-values()(void)))))))"
 "(make-module39.1"
 " temp10_0"
-" #t"
-" #f"
-" #f"
-" #f"
-" #f"
+" unsafe-undefined"
+" unsafe-undefined"
 " temp16_1"
 " #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
+" 0"
+" 0"
 " temp11_0"
-" #t"
 " temp15_1"
-" #t"
 " temp12_0"
-" #t"
-" #f"
-" #f"
-" #f"
+" unsafe-undefined"
 " #f"
 " temp14_1"
-" #f"
-" #f"
+" null"
 " core-mpi13_0"
 " #f"
-" #f"
-" #f"
-" #f"
-" #f"
+" null"
 " #f)))"
 "((core-module-name9_0) core-module-name))"
-"(declare-module!58.1 #f #f ns7_0 temp8_0 core-module-name9_0)))))"
+"(declare-module!58.1 #t ns7_0 temp8_0 core-module-name9_0)))))"
 "(define-values"
 "(core-form-sym)"
-"(lambda(s_19 phase_44)"
+"(lambda(s_19 phase_41)"
 "(begin"
 "(let-values(((ok?_0 id23_0 _24_0)"
-"(let-values(((s_174) s_19))"
-"(if(let-values(((s_83)(if(syntax?$1 s_174)(syntax-e$1 s_174) s_174)))"
-"(if(pair? s_83)"
-"(if(let-values(((s_175)(car s_83)))"
-"(let-values(((or-part_160)(if(syntax?$1 s_175)(symbol?(syntax-e$1 s_175)) #f)))"
-"(if or-part_160 or-part_160(symbol? s_175))))"
-"(let-values(((s_176)(cdr s_83))) #t)"
+"(let-values(((s_171) s_19))"
+"(if(let-values(((s_84)(if(syntax?$1 s_171)(syntax-e$1 s_171) s_171)))"
+"(if(pair? s_84)"
+"(if(let-values(((s_172)(car s_84)))"
+"(let-values(((or-part_162)(if(syntax?$1 s_172)(symbol?(syntax-e$1 s_172)) #f)))"
+"(if or-part_162 or-part_162(symbol? s_172))))"
+"(let-values(((s_173)(cdr s_84))) #t)"
 " #f)"
 " #f))"
 "(let-values()"
 "(let-values(((id23_1 _24_1)"
-"(let-values(((s_82)(if(syntax?$1 s_174)(syntax-e$1 s_174) s_174)))"
-"(let-values(((id25_0)(let-values(((s_177)(car s_82))) s_177))"
-"((_26_0)(let-values(((s_178)(cdr s_82))) s_178)))"
+"(let-values(((s_174)(if(syntax?$1 s_171)(syntax-e$1 s_171) s_171)))"
+"(let-values(((id25_0)(let-values(((s_175)(car s_174))) s_175))"
+"((_26_0)(let-values(((s_176)(cdr s_174))) s_176)))"
 "(values id25_0 _26_0)))))"
 "(values #t id23_1 _24_1)))"
 "(values #f #f #f)))))"
 "(if ok?_0"
-"(let-values(((b_63)"
-"(let-values(((temp27_1) id23_0)((phase28_0) phase_44))"
-"(resolve+shift30.1 #f #f #f #f #f #f #f #f #f #f temp27_1 phase28_0))))"
-"(if(module-binding? b_63)"
-"(if(eq? core-module-name(1/module-path-index-resolve(module-binding-module b_63)))"
-"(module-binding-sym b_63)"
+"(let-values(((b_62)"
+"(let-values(((temp27_1) id23_0)((phase28_0) phase_41))"
+"(resolve+shift28.1 #f #f null unsafe-undefined #f temp27_1 phase28_0))))"
+"(if(module-binding? b_62)"
+"(if(eq? core-module-name(1/module-path-index-resolve(module-binding-module b_62)))"
+"(module-binding-sym b_62)"
 " #f)"
 " #f))"
 " #f)))))"
 "(define-values"
 "(taint-dispatch)"
-"(lambda(s_0 proc_6 phase_34)"
+"(lambda(s_0 proc_6 phase_33)"
 "(begin"
 "((letrec-values(((loop_79)"
-"(lambda(s_72 mode_11)"
+"(lambda(s_73 mode_11)"
 "(begin"
 " 'loop"
 "(let-values(((tmp_4) mode_11))"
 "(if(equal? tmp_4 'none)"
-"(let-values() s_72)"
+"(let-values() s_73)"
 "(if(equal? tmp_4 'opaque)"
-"(let-values()(proc_6 s_72))"
+"(let-values()(proc_6 s_73))"
 "(if(equal? tmp_4 'transparent)"
 "(let-values()"
 "(let-values(((c_18)"
-"(let-values(((s_179)"
-"(let-values(((or-part_13)(syntax->list$1 s_72)))"
-"(if or-part_13 or-part_13(syntax-e$1 s_72))))"
+"(let-values(((s_177)"
+"(let-values(((or-part_13)(syntax->list$1 s_73)))"
+"(if or-part_13 or-part_13(syntax-e$1 s_73))))"
 "((f_1)(lambda(tail?_40 d_18)(begin 'f d_18)))"
 "((s->_3)"
-"(lambda(s_180)"
+"(lambda(s_178)"
 "(begin"
 " 's->"
 "(loop_79"
-" s_180"
-"(syntax-taint-mode-property s_180)))))"
+" s_178"
+"(syntax-taint-mode-property s_178)))))"
 "((seen_19) #f))"
-"(let-values(((s_181) s_179)"
+"(let-values(((s_179) s_177)"
 "((f_2) f_1)"
 "((gf_8)"
 "(lambda(tail?_41 v_29)"
@@ -16357,8 +16088,8 @@ static const char *startup_source =
 "(datum-map-slow"
 " tail?_42"
 " s_4"
-"(lambda(tail?_43 s_182)"
-"(gf_8 tail?_43 s_182))"
+"(lambda(tail?_43 s_180)"
+"(gf_8 tail?_43 s_180))"
 " seen_20))"
 "(if(null? s_4)"
 "(let-values()(f_2 tail?_42 s_4))"
@@ -16378,21 +16109,21 @@ static const char *startup_source =
 "(let-values()(f_2 #f s_4))"
 "(if(number? s_4)"
 "(let-values()(f_2 #f s_4))"
-"(if(let-values(((or-part_77)"
+"(if(let-values(((or-part_75)"
 "(vector?"
 " s_4)))"
+"(if or-part_75"
+" or-part_75"
+"(let-values(((or-part_76)"
+"(box?"
+" s_4)))"
+"(if or-part_76"
+" or-part_76"
+"(let-values(((or-part_77)"
+"(prefab-struct-key"
+" s_4)))"
 "(if or-part_77"
 " or-part_77"
-"(let-values(((or-part_78)"
-"(box?"
-" s_4)))"
-"(if or-part_78"
-" or-part_78"
-"(let-values(((or-part_79)"
-"(prefab-struct-key"
-" s_4)))"
-"(if or-part_79"
-" or-part_79"
 "(hash?"
 " s_4)))))))"
 "(let-values()"
@@ -16400,10 +16131,10 @@ static const char *startup_source =
 " tail?_42"
 " s_4"
 "(lambda(tail?_44"
-" s_183)"
+" s_181)"
 "(gf_8"
 " tail?_44"
-" s_183))"
+" s_181))"
 " seen_20))"
 "(let-values()"
 "(gf_8"
@@ -16411,24 +16142,24 @@ static const char *startup_source =
 " s_4))))))))))))))"
 " loop_80)"
 " #f"
-" s_181"
+" s_179"
 " 0)))))"
 "(datum->syntax$1"
 " #f"
 " c_18"
-" s_72"
-"(if(syntax-any-macro-scopes? s_72)"
-"(1/syntax-property-remove s_72 original-property-sym)"
-" s_72))))"
+" s_73"
+"(if(syntax-any-macro-scopes? s_73)"
+"(1/syntax-property-remove s_73 original-property-sym)"
+" s_73))))"
 "(if(equal? tmp_4 'transparent-binding)"
 "(let-values()"
-"(let-values(((c_19)(syntax-e$1 s_72)))"
+"(let-values(((c_19)(syntax-e$1 s_73)))"
 "(if(pair? c_19)"
 "(let-values()"
 "(let-values(((cd_0)(cdr c_19)))"
-"(if(let-values(((or-part_83)(pair? cd_0)))"
-"(if or-part_83"
-" or-part_83"
+"(if(let-values(((or-part_81)(pair? cd_0)))"
+"(if or-part_81"
+" or-part_81"
 "(if(syntax?$1 cd_0)(pair?(syntax-e$1 cd_0)) #f)))"
 "(let-values()"
 "(let-values(((d_19)(if(syntax?$1 cd_0)(syntax-e$1 cd_0) cd_0)))"
@@ -16439,17 +16170,17 @@ static const char *startup_source =
 "(cons"
 "(loop_79(car d_19) 'transparent)"
 "(let-values(((s_5)"
-"(let-values(((or-part_161)"
+"(let-values(((or-part_163)"
 "(syntax->list$1(cdr d_19))))"
-"(if or-part_161 or-part_161(cdr d_19))))"
+"(if or-part_163 or-part_163(cdr d_19))))"
 "((f_38)(lambda(tail?_1 d_20)(begin 'f d_20)))"
 "((s->_4)"
-"(lambda(s_184)"
+"(lambda(s_182)"
 "(begin"
 " 's->"
 "(loop_79"
-" s_184"
-"(syntax-taint-mode-property s_184)))))"
+" s_182"
+"(syntax-taint-mode-property s_182)))))"
 "((seen_0) #f))"
 "(let-values(((s_42) s_5)"
 "((f_39) f_38)"
@@ -16462,7 +16193,7 @@ static const char *startup_source =
 "(let-values()(f_38 tail?_45 v_39))))))"
 "((seen_21) seen_0))"
 "((letrec-values(((loop_81)"
-"(lambda(tail?_46 s_185 prev-depth_9)"
+"(lambda(tail?_46 s_183 prev-depth_9)"
 "(begin"
 " 'loop"
 "(let-values(((depth_9)"
@@ -16473,122 +16204,122 @@ static const char *startup_source =
 "(let-values()"
 "(datum-map-slow"
 " tail?_46"
-" s_185"
-"(lambda(tail?_47 s_186)"
-"(gf_9 tail?_47 s_186))"
+" s_183"
+"(lambda(tail?_47 s_184)"
+"(gf_9 tail?_47 s_184))"
 " seen_21))"
-"(if(null? s_185)"
+"(if(null? s_183)"
 "(let-values()"
-"(f_39 tail?_46 s_185))"
-"(if(pair? s_185)"
+"(f_39 tail?_46 s_183))"
+"(if(pair? s_183)"
 "(let-values()"
 "(f_39"
 " tail?_46"
 "(cons"
 "(loop_81"
 " #f"
-"(car s_185)"
+"(car s_183)"
 " depth_9)"
 "(loop_81"
 " #t"
-"(cdr s_185)"
+"(cdr s_183)"
 " depth_9))))"
-"(if(symbol? s_185)"
+"(if(symbol? s_183)"
 "(let-values()"
-"(f_39 #f s_185))"
-"(if(boolean? s_185)"
+"(f_39 #f s_183))"
+"(if(boolean? s_183)"
 "(let-values()"
-"(f_39 #f s_185))"
-"(if(number? s_185)"
+"(f_39 #f s_183))"
+"(if(number? s_183)"
 "(let-values()"
-"(f_39 #f s_185))"
-"(if(let-values(((or-part_162)"
+"(f_39 #f s_183))"
+"(if(let-values(((or-part_164)"
 "(vector?"
-" s_185)))"
-"(if or-part_162"
-" or-part_162"
+" s_183)))"
+"(if or-part_164"
+" or-part_164"
 "(let-values(((or-part_21)"
 "(box?"
-" s_185)))"
+" s_183)))"
 "(if or-part_21"
 " or-part_21"
-"(let-values(((or-part_163)"
+"(let-values(((or-part_165)"
 "(prefab-struct-key"
-" s_185)))"
-"(if or-part_163"
-" or-part_163"
+" s_183)))"
+"(if or-part_165"
+" or-part_165"
 "(hash?"
-" s_185)))))))"
+" s_183)))))))"
 "(let-values()"
 "(datum-map-slow"
 " tail?_46"
-" s_185"
+" s_183"
 "(lambda(tail?_48"
-" s_187)"
+" s_185)"
 "(gf_9"
 " tail?_48"
-" s_187))"
+" s_185))"
 " seen_21))"
 "(let-values()"
 "(gf_9"
 " #f"
-" s_185))))))))))))))"
+" s_183))))))))))))))"
 " loop_81)"
 " #f"
 " s_42"
 " 0)))))"
-" s_72"
-"(if(syntax-any-macro-scopes? s_72)"
-"(1/syntax-property-remove s_72 original-property-sym)"
-" s_72))))"
-"(let-values()(loop_79 s_72 'transparent)))))"
-"(let-values()(loop_79 s_72 'transparent)))))"
+" s_73"
+"(if(syntax-any-macro-scopes? s_73)"
+"(1/syntax-property-remove s_73 original-property-sym)"
+" s_73))))"
+"(let-values()(loop_79 s_73 'transparent)))))"
+"(let-values()(loop_79 s_73 'transparent)))))"
 "(let-values()"
-"(let-values(((c_20)(syntax-e$1 s_72)))"
-"(let-values(((tmp_15)(core-form-sym c_20 phase_34)))"
+"(let-values(((c_20)(syntax-e$1 s_73)))"
+"(let-values(((tmp_15)(core-form-sym c_20 phase_33)))"
 "(if(if(equal? tmp_15 'begin)"
 " #t"
 "(if(equal? tmp_15 'begin-for-syntax)"
 " #t"
 "(equal? tmp_15 '#%module-begin)))"
-"(let-values()(loop_79 s_72 'transparent))"
+"(let-values()(loop_79 s_73 'transparent))"
 "(if(if(equal? tmp_15 'define-values)"
 " #t"
 "(equal? tmp_15 'define-syntaxes))"
-"(let-values()(loop_79 s_72 'transparent-binding))"
-"(let-values()(loop_79 s_72 'opaque))))))))))))))))"
+"(let-values()(loop_79 s_73 'transparent-binding))"
+"(let-values()(loop_79 s_73 'opaque))))))))))))))))"
 " loop_79)"
 " s_0"
 "(syntax-taint-mode-property s_0)))))"
 "(define-values"
 "(syntax-taint-mode-property)"
-"(lambda(s_188)"
+"(lambda(s_186)"
 "(begin"
-"(let-values(((or-part_164)(syntax-property$1 s_188 'taint-mode)))"
-"(if or-part_164 or-part_164(syntax-property$1 s_188 'certify-mode))))))"
+"(let-values(((or-part_166)(syntax-property$1 s_186 'taint-mode)))"
+"(if or-part_166 or-part_166(syntax-property$1 s_186 'certify-mode))))))"
 "(define-values"
 "(syntax-remove-taint-dispatch-properties)"
-"(lambda(s_189)(begin(1/syntax-property-remove(1/syntax-property-remove s_189 'taint-mode) 'certify-mode))))"
+"(lambda(s_187)(begin(1/syntax-property-remove(1/syntax-property-remove s_187 'taint-mode) 'certify-mode))))"
 "(define-values(current-module-code-inspector)(make-parameter #f))"
 "(define-values"
 "(syntax-debug-info$1)"
-"(lambda(s_0 phase_45 all-bindings?_0)"
+"(lambda(s_0 phase_42 all-bindings?_0)"
 "(begin"
 " 'syntax-debug-info"
 "(let-values(((hts_0)"
 "(reverse$1"
-"(let-values(((lst_75)(fallback->list(syntax-shifted-multi-scopes s_0))))"
+"(let-values(((lst_76)(fallback->list(syntax-shifted-multi-scopes s_0))))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
-"(let-values()(check-list lst_75)))"
-"((letrec-values(((for-loop_103)"
-"(lambda(fold-var_59 lst_82)"
+"(let-values()(check-list lst_76)))"
+"((letrec-values(((for-loop_100)"
+"(lambda(fold-var_59 lst_83)"
 "(begin"
 " 'for-loop"
-"(if(pair? lst_82)"
-"(let-values(((smss_26)(unsafe-car lst_82))"
-"((rest_38)(unsafe-cdr lst_82)))"
+"(if(pair? lst_83)"
+"(let-values(((smss_26)(unsafe-car lst_83))"
+"((rest_39)(unsafe-cdr lst_83)))"
 "(let-values(((fold-var_60)"
 "(let-values(((fold-var_61) fold-var_59))"
 "(let-values(((fold-var_62)"
@@ -16606,7 +16337,7 @@ static const char *startup_source =
 "(scope-set-at-fallback"
 " s_0"
 " smss_26"
-" phase_45)))"
+" phase_42)))"
 "(let-values(((context_1)"
 "(scope-set->context"
 " s-scs_0)))"
@@ -16624,7 +16355,7 @@ static const char *startup_source =
 "(let-values()"
 "(let-values(((bindings_1"
 " covered-scopess_0)"
-"(let-values(((ht_43)"
+"(let-values(((ht_42)"
 " s-scs_0))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
@@ -16632,21 +16363,21 @@ static const char *startup_source =
 "(void)"
 "(let-values()"
 "(check-in-immutable-hash-keys"
-" ht_43)))"
-"((letrec-values(((for-loop_47)"
+" ht_42)))"
+"((letrec-values(((for-loop_48)"
 "(lambda(bindings_2"
 " covered-scope-sets_0"
-" i_90)"
+" i_91)"
 "(begin"
 " 'for-loop"
-"(if i_90"
+"(if i_91"
 "(let-values(((sc_28)"
 "(unsafe-immutable-hash-iterate-key"
-" ht_43"
-" i_90)))"
+" ht_42"
+" i_91)))"
 "(let-values(((bindings_3"
 " covered-scope-sets_1)"
-"(let-values(((ht_80"
+"(let-values(((ht_77"
 " bulk-bindings_3)"
 "(let-values(((table_116)"
 "(scope-binding-table"
@@ -16667,47 +16398,47 @@ static const char *startup_source =
 " '#hash())"
 "(table-with-bulk-bindings-bulk-bindings"
 " table_116)))))"
-"((s_75)"
+"((s_76)"
 " s_0)"
 "((extra-shifts_5)"
 " null))"
 "(begin"
 " #t"
-"((letrec-values(((for-loop_104)"
+"((letrec-values(((for-loop_101)"
 "(lambda(bindings_4"
 " covered-scope-sets_2"
-" i_91)"
+" i_92)"
 "(begin"
 " 'for-loop"
 "(if(not"
 "(null?"
-" i_91))"
+" i_92))"
 "(let-values(((scs_15)"
 "(if(pair?"
-" i_91)"
+" i_92)"
 "(let-values()"
 "(bulk-binding-at-scopes"
 "(car"
-" i_91)))"
+" i_92)))"
 "(let-values()"
 "(hash-iterate-key"
-" ht_80"
-" i_91))))"
-"((b_64)"
+" ht_77"
+" i_92))))"
+"((b_63)"
 "(if(pair?"
-" i_91)"
+" i_92)"
 "(let-values()"
 "(let-values(((bulk_4)"
 "(bulk-binding-at-bulk"
 "(car"
-" i_91))))"
+" i_92))))"
 "(let-values(((b-info_1)"
 "(if(symbol-interned?"
 " sym_18)"
 "(hash-ref"
 "(bulk-binding-symbols"
 " bulk_4"
-" s_75"
+" s_76"
 " extra-shifts_5)"
 " sym_18"
 " #f)"
@@ -16721,8 +16452,8 @@ static const char *startup_source =
 " #f))))"
 "(let-values()"
 "(hash-iterate-value"
-" ht_80"
-" i_91)))))"
+" ht_77"
+" i_92)))))"
 "(let-values(((bindings_5"
 " covered-scope-sets_3)"
 "(let-values(((bindings_6)"
@@ -16730,11 +16461,11 @@ static const char *startup_source =
 "((covered-scope-sets_4)"
 " covered-scope-sets_2))"
 "(if(if scs_15"
-"(if b_64"
-"(if(let-values(((or-part_69)"
+"(if b_63"
+"(if(let-values(((or-part_67)"
 " all-bindings?_0))"
-"(if or-part_69"
-" or-part_69"
+"(if or-part_67"
+" or-part_67"
 "(subset?"
 " scs_15"
 " s-scs_0)))"
@@ -16766,20 +16497,20 @@ static const char *startup_source =
 " scs_15"
 " s-scs_0)"
 "(if(local-binding?"
-" b_64)"
+" b_63)"
 " 'local"
 " 'module)"
 "(if(local-binding?"
-" b_64)"
+" b_63)"
 "(local-binding-key"
-" b_64)"
+" b_63)"
 "(vector"
 "(module-binding-sym"
-" b_64)"
+" b_63)"
 "(module-binding-module"
-" b_64)"
+" b_63)"
 "(module-binding-phase"
-" b_64))))"
+" b_63))))"
 " bindings_7)"
 "(set-add"
 " covered-scope-sets_5"
@@ -16792,19 +16523,19 @@ static const char *startup_source =
 " covered-scope-sets_4)))))"
 "(if(not"
 " #f)"
-"(for-loop_104"
+"(for-loop_101"
 " bindings_5"
 " covered-scope-sets_3"
 "(if(pair?"
-" i_91)"
+" i_92)"
 "(let-values()"
 "(cdr"
-" i_91))"
+" i_92))"
 "(let-values()"
 "(let-values(((or-part_7)"
 "(hash-iterate-next"
-" ht_80"
-" i_91)))"
+" ht_77"
+" i_92)))"
 "(if or-part_7"
 " or-part_7"
 " bulk-bindings_3)))))"
@@ -16814,34 +16545,34 @@ static const char *startup_source =
 "(values"
 " bindings_4"
 " covered-scope-sets_2))))))"
-" for-loop_104)"
+" for-loop_101)"
 " bindings_2"
 " covered-scope-sets_0"
 "(let-values(((or-part_8)"
 "(hash-iterate-first"
-" ht_80)))"
+" ht_77)))"
 "(if or-part_8"
 " or-part_8"
 " bulk-bindings_3)))))))"
 "(if(not"
 " #f)"
-"(for-loop_47"
+"(for-loop_48"
 " bindings_3"
 " covered-scope-sets_1"
 "(unsafe-immutable-hash-iterate-next"
-" ht_43"
-" i_90))"
+" ht_42"
+" i_91))"
 "(values"
 " bindings_3"
 " covered-scope-sets_1))))"
 "(values"
 " bindings_2"
 " covered-scope-sets_0))))))"
-" for-loop_47)"
+" for-loop_48)"
 " null"
 "(set)"
 "(unsafe-immutable-hash-iterate-first"
-" ht_43))))))"
+" ht_42))))))"
 " bindings_1))"
 "(let-values()"
 " null))))"
@@ -16853,29 +16584,29 @@ static const char *startup_source =
 " bindings_0)))))))))"
 " fold-var_61))))"
 "(values fold-var_62)))))"
-"(if(not #f)(for-loop_103 fold-var_60 rest_38) fold-var_60)))"
+"(if(not #f)(for-loop_100 fold-var_60 rest_39) fold-var_60)))"
 " fold-var_59)))))"
-" for-loop_103)"
+" for-loop_100)"
 " null"
-" lst_75))))))"
-"(let-values(((ht_73)(car hts_0)))(if(null?(cdr hts_0)) ht_73(hash-set ht_73 'fallbacks(cdr hts_0))))))))"
+" lst_76))))))"
+"(let-values(((ht_70)(car hts_0)))(if(null?(cdr hts_0)) ht_70(hash-set ht_70 'fallbacks(cdr hts_0))))))))"
 "(define-values"
 "(scope-set->context)"
 "(lambda(scs_16)"
 "(begin"
 "(let-values(((temp1_1)"
 "(reverse$1"
-"(let-values(((ht_81) scs_16))"
+"(let-values(((ht_78) scs_16))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
-"(let-values()(check-in-immutable-hash-keys ht_81)))"
-"((letrec-values(((for-loop_105)"
-"(lambda(fold-var_63 i_92)"
+"(let-values()(check-in-immutable-hash-keys ht_78)))"
+"((letrec-values(((for-loop_102)"
+"(lambda(fold-var_63 i_93)"
 "(begin"
 " 'for-loop"
-"(if i_92"
-"(let-values(((sc_29)(unsafe-immutable-hash-iterate-key ht_81 i_92)))"
+"(if i_93"
+"(let-values(((sc_29)(unsafe-immutable-hash-iterate-key ht_78 i_93)))"
 "(let-values(((fold-var_64)"
 "(let-values(((fold-var_65) fold-var_63))"
 "(let-values(((fold-var_66)"
@@ -16904,52 +16635,52 @@ static const char *startup_source =
 " fold-var_65))))"
 "(values fold-var_66)))))"
 "(if(not #f)"
-"(for-loop_105"
+"(for-loop_102"
 " fold-var_64"
-"(unsafe-immutable-hash-iterate-next ht_81 i_92))"
+"(unsafe-immutable-hash-iterate-next ht_78 i_93))"
 " fold-var_64)))"
 " fold-var_63)))))"
-" for-loop_105)"
+" for-loop_102)"
 " null"
-"(unsafe-immutable-hash-iterate-first ht_81))))))"
+"(unsafe-immutable-hash-iterate-first ht_78))))))"
 "((<2_0) <)"
 "((temp3_2)(lambda(v_135)(vector-ref v_135 0))))"
-"(sort7.1 #f #f temp3_2 #t temp1_1 <2_0)))))"
+"(sort7.1 #f temp3_2 temp1_1 <2_0)))))"
 "(define-values"
 "(raise-ambiguous-error)"
-"(lambda(id_22 ctx_7)"
+"(lambda(id_19 ctx_7)"
 "(begin"
 "(raise-syntax-error$1"
 " #f"
 "       \"identifier's binding is ambiguous\""
-" id_22"
+" id_19"
 " #f"
 " null"
-"(syntax-debug-info-string id_22 ctx_7)))))"
+"(syntax-debug-info-string id_19 ctx_7)))))"
 "(define-values"
 "(syntax-debug-info-string)"
-"(lambda(s_190 ctx_8)"
+"(lambda(s_188 ctx_8)"
 "(begin"
-"(let-values(((info_3)(syntax-debug-info$1 s_190(expand-context-phase ctx_8) #t)))"
+"(let-values(((info_3)(syntax-debug-info$1 s_188(expand-context-phase ctx_8) #t)))"
 "(if(not"
 "(let-values(((or-part_26)(pair?(hash-ref info_3 'bindings null))))"
 "(if or-part_26"
 " or-part_26"
-"(let-values(((lst_6)(hash-ref info_3 'fallbacks null)))"
+"(let-values(((lst_84)(hash-ref info_3 'fallbacks null)))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
-"(let-values()(check-list lst_6)))"
-"((letrec-values(((for-loop_106)"
-"(lambda(result_66 lst_83)"
+"(let-values()(check-list lst_84)))"
+"((letrec-values(((for-loop_103)"
+"(lambda(result_64 lst_85)"
 "(begin"
 " 'for-loop"
-"(if(pair? lst_83)"
-"(let-values(((fb-info_0)(unsafe-car lst_83))"
-"((rest_39)(unsafe-cdr lst_83)))"
+"(if(pair? lst_85)"
+"(let-values(((fb-info_0)(unsafe-car lst_85))"
+"((rest_40)(unsafe-cdr lst_85)))"
 "(let-values(((result_1)"
 "(let-values()"
-"(let-values(((result_67)"
+"(let-values(((result_65)"
 "(let-values()"
 "(let-values()"
 "(pair?"
@@ -16957,14 +16688,14 @@ static const char *startup_source =
 " fb-info_0"
 " 'bindings"
 " null))))))"
-"(values result_67)))))"
-"(if(if(not((lambda x_27 result_1) fb-info_0))(not #f) #f)"
-"(for-loop_106 result_1 rest_39)"
+"(values result_65)))))"
+"(if(if(not((lambda x_28 result_1) fb-info_0))(not #f) #f)"
+"(for-loop_103 result_1 rest_40)"
 " result_1)))"
-" result_66)))))"
-" for-loop_106)"
+" result_64)))))"
+" for-loop_103)"
 " #f"
-" lst_6))))))"
+" lst_84))))))"
 "          (let-values () \"\")"
 "(let-values()"
 "(let-values(((relevant-scope-sets_0)"
@@ -16977,19 +16708,19 @@ static const char *startup_source =
 "(cons"
 "(hash-ref info_4 'context)"
 "(reverse$1"
-"(let-values(((lst_84)(hash-ref info_4 'bindings null)))"
+"(let-values(((lst_86)(hash-ref info_4 'bindings null)))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
-"(let-values()(check-list lst_84)))"
-"((letrec-values(((for-loop_107)"
-"(lambda(fold-var_67 lst_85)"
+"(let-values()(check-list lst_86)))"
+"((letrec-values(((for-loop_104)"
+"(lambda(fold-var_67 lst_87)"
 "(begin"
 " 'for-loop"
-"(if(pair? lst_85)"
-"(let-values(((b_21)(unsafe-car lst_85))"
-"((rest_40)"
-"(unsafe-cdr lst_85)))"
+"(if(pair? lst_87)"
+"(let-values(((b_21)(unsafe-car lst_87))"
+"((rest_41)"
+"(unsafe-cdr lst_87)))"
 "(let-values(((fold-var_68)"
 "(let-values(((fold-var_27)"
 " fold-var_67))"
@@ -17004,32 +16735,32 @@ static const char *startup_source =
 "(values"
 " fold-var_28)))))"
 "(if(not #f)"
-"(for-loop_107 fold-var_68 rest_40)"
+"(for-loop_104 fold-var_68 rest_41)"
 " fold-var_68)))"
 " fold-var_67)))))"
-" for-loop_107)"
+" for-loop_104)"
 " null"
-" lst_84)))))"
+" lst_86)))))"
 "(let-values(((fallbacks_0)(hash-ref info_4 'fallbacks null)))"
 "(reverse$1"
-"(let-values(((lst_86) fallbacks_0)((start_14)(add1 layer_0)))"
+"(let-values(((lst_88) fallbacks_0)((start_14)(add1 layer_0)))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
-"(let-values()(check-list lst_86)))"
+"(let-values()(check-list lst_88)))"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
 "(let-values()(check-naturals start_14)))"
-"((letrec-values(((for-loop_108)"
-"(lambda(fold-var_69 lst_87 pos_11)"
+"((letrec-values(((for-loop_105)"
+"(lambda(fold-var_69 lst_89 pos_12)"
 "(begin"
 " 'for-loop"
-"(if(if(pair? lst_87) #t #f)"
+"(if(if(pair? lst_89) #t #f)"
 "(let-values(((fallback_0)"
-"(unsafe-car lst_87))"
-"((rest_41)"
-"(unsafe-cdr lst_87))"
-"((layer_1) pos_11))"
+"(unsafe-car lst_89))"
+"((rest_42)"
+"(unsafe-cdr lst_89))"
+"((layer_1) pos_12))"
 "(let-values(((fold-var_9)"
 "(let-values(((fold-var_70)"
 " fold-var_69))"
@@ -17044,15 +16775,15 @@ static const char *startup_source =
 "(values"
 " fold-var_71)))))"
 "(if(not #f)"
-"(for-loop_108"
+"(for-loop_105"
 " fold-var_9"
-" rest_41"
-"(+ pos_11 1))"
+" rest_42"
+"(+ pos_12 1))"
 " fold-var_9)))"
 " fold-var_69)))))"
-" for-loop_108)"
+" for-loop_105)"
 " null"
-" lst_86"
+" lst_88"
 " start_14))))))))))"
 " loop_78)"
 " info_3"
@@ -17060,31 +16791,31 @@ static const char *startup_source =
 "(let-values(((common-scopes_0)"
 "(if(null? relevant-scope-sets_0)"
 "(set)"
-"(let-values(((lst_88) relevant-scope-sets_0))"
+"(let-values(((lst_90) relevant-scope-sets_0))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
-"(let-values()(check-list lst_88)))"
-"((letrec-values(((for-loop_109)"
-"(lambda(s_184 lst_89)"
+"(let-values()(check-list lst_90)))"
+"((letrec-values(((for-loop_106)"
+"(lambda(s_182 lst_91)"
 "(begin"
 " 'for-loop"
-"(if(pair? lst_89)"
-"(let-values(((l_48)(unsafe-car lst_89))"
-"((rest_42)(unsafe-cdr lst_89)))"
-"(let-values(((s_87)"
-"(let-values(((s_43) s_184))"
-"(let-values(((s_191)"
+"(if(pair? lst_91)"
+"(let-values(((l_48)(unsafe-car lst_91))"
+"((rest_43)(unsafe-cdr lst_91)))"
+"(let-values(((s_88)"
+"(let-values(((s_43) s_182))"
+"(let-values(((s_189)"
 "(let-values()"
 "(set-intersect"
 " s_43"
 "(list->set l_48)))))"
-"(values s_191)))))"
-"(if(not #f)(for-loop_109 s_87 rest_42) s_87)))"
-" s_184)))))"
-" for-loop_109)"
+"(values s_189)))))"
+"(if(not #f)(for-loop_106 s_88 rest_43) s_88)))"
+" s_182)))))"
+" for-loop_106)"
 "(list->set(car relevant-scope-sets_0))"
-" lst_88))))))"
+" lst_90))))))"
 "(string-append"
 "((letrec-values(((loop_81)"
 "(lambda(info_5 layer_2)"
@@ -17098,27 +16829,27 @@ static const char *startup_source =
 "(apply"
 " string-append"
 "(reverse$1"
-"(let-values(((lst_90)"
+"(let-values(((lst_92)"
 "(let-values(((temp1_1)(hash-ref info_5 'bindings null))"
 "((temp2_2)"
-"(lambda(a_37 b_65)"
+"(lambda(a_37 b_64)"
 "(begin"
 " 'temp2"
 "(if(hash-ref a_37 'match? #f)"
-"(not(hash-ref b_65 'match? #f))"
+"(not(hash-ref b_64 'match? #f))"
 " #f)))))"
-"(sort7.1 #f #f #f #f temp1_1 temp2_2))))"
+"(sort7.1 #f #f temp1_1 temp2_2))))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
-"(let-values()(check-list lst_90)))"
-"((letrec-values(((for-loop_105)"
-"(lambda(fold-var_63 lst_91)"
+"(let-values()(check-list lst_92)))"
+"((letrec-values(((for-loop_102)"
+"(lambda(fold-var_63 lst_93)"
 "(begin"
 " 'for-loop"
-"(if(pair? lst_91)"
-"(let-values(((b_39)(unsafe-car lst_91))"
-"((rest_43)(unsafe-cdr lst_91)))"
+"(if(pair? lst_93)"
+"(let-values(((b_39)(unsafe-car lst_93))"
+"((rest_44)(unsafe-cdr lst_93)))"
 "(let-values(((fold-var_65)"
 "(let-values(((fold-var_66)"
 " fold-var_63))"
@@ -17158,32 +16889,32 @@ static const char *startup_source =
 " fold-var_66))))"
 "(values fold-var_72)))))"
 "(if(not #f)"
-"(for-loop_105 fold-var_65 rest_43)"
+"(for-loop_102 fold-var_65 rest_44)"
 " fold-var_65)))"
 " fold-var_63)))))"
-" for-loop_105)"
+" for-loop_102)"
 " null"
-" lst_90)))))"
+" lst_92)))))"
 "(let-values(((fallbacks_1)(hash-ref info_5 'fallbacks null)))"
 "(apply"
 " string-append"
 "(reverse$1"
-"(let-values(((lst_92) fallbacks_1)((start_15)(add1 layer_2)))"
+"(let-values(((lst_94) fallbacks_1)((start_15)(add1 layer_2)))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
-"(let-values()(check-list lst_92)))"
+"(let-values()(check-list lst_94)))"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
 "(let-values()(check-naturals start_15)))"
-"((letrec-values(((for-loop_110)"
-"(lambda(fold-var_73 lst_93 pos_12)"
+"((letrec-values(((for-loop_107)"
+"(lambda(fold-var_73 lst_95 pos_13)"
 "(begin"
 " 'for-loop"
-"(if(if(pair? lst_93) #t #f)"
-"(let-values(((fallback_1)(unsafe-car lst_93))"
-"((rest_44)(unsafe-cdr lst_93))"
-"((layer_3) pos_12))"
+"(if(if(pair? lst_95) #t #f)"
+"(let-values(((fallback_1)(unsafe-car lst_95))"
+"((rest_45)(unsafe-cdr lst_95))"
+"((layer_3) pos_13))"
 "(let-values(((fold-var_74)"
 "(let-values(((fold-var_75)"
 " fold-var_73))"
@@ -17197,15 +16928,15 @@ static const char *startup_source =
 " fold-var_75))))"
 "(values fold-var_76)))))"
 "(if(not #f)"
-"(for-loop_110"
+"(for-loop_107"
 " fold-var_74"
-" rest_44"
-"(+ pos_12 1))"
+" rest_45"
+"(+ pos_13 1))"
 " fold-var_74)))"
 " fold-var_73)))))"
-" for-loop_110)"
+" for-loop_107)"
 " null"
-" lst_92"
+" lst_94"
 " start_15)))))))))))"
 " loop_81)"
 " info_3"
@@ -17216,41 +16947,41 @@ static const char *startup_source =
 "                    \"\\n  common scopes...:\""
 "(describe-context"
 "(reverse$1"
-"(let-values(((lst_94)(hash-ref info_3 'context)))"
+"(let-values(((lst_96)(hash-ref info_3 'context)))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
-"(let-values()(check-list lst_94)))"
-"((letrec-values(((for-loop_111)"
-"(lambda(fold-var_77 lst_95)"
+"(let-values()(check-list lst_96)))"
+"((letrec-values(((for-loop_108)"
+"(lambda(fold-var_77 lst_97)"
 "(begin"
 " 'for-loop"
-"(if(pair? lst_95)"
-"(let-values(((s_192)(unsafe-car lst_95))"
-"((rest_45)(unsafe-cdr lst_95)))"
+"(if(pair? lst_97)"
+"(let-values(((s_190)(unsafe-car lst_97))"
+"((rest_46)(unsafe-cdr lst_97)))"
 "(let-values(((fold-var_78)"
 "(let-values(((fold-var_79) fold-var_77))"
-"(if(set-member? common-scopes_0 s_192)"
+"(if(set-member? common-scopes_0 s_190)"
 "(let-values(((fold-var_5) fold-var_79))"
 "(let-values(((fold-var_6)"
 "(let-values()"
 "(cons"
-"(let-values() s_192)"
+"(let-values() s_190)"
 " fold-var_5))))"
 "(values fold-var_6)))"
 " fold-var_79))))"
-"(if(not #f)(for-loop_111 fold-var_78 rest_45) fold-var_78)))"
+"(if(not #f)(for-loop_108 fold-var_78 rest_46) fold-var_78)))"
 " fold-var_77)))))"
-" for-loop_111)"
+" for-loop_108)"
 " null"
-" lst_94))))"
+" lst_96))))"
 "(set)))))))))))))"
 "(define-values"
 "(describe-context)"
 "(lambda(scopes_19 common-scopes_1)"
 "(begin"
 "(let-values(((strs_0)"
-"((letrec-values(((loop_82)"
+"((letrec-values(((loop_55)"
 "(lambda(strs_1 scopes_20)"
 "(begin"
 " 'loop"
@@ -17261,28 +16992,28 @@ static const char *startup_source =
 "(if(if(pair? strs_1)"
 "(<(+(string-length str_3)(string-length(car strs_1))) 72)"
 " #f)"
-"(loop_82"
+"(loop_55"
 "(cons(string-append(car strs_1) str_3)(cdr strs_1))"
 "(cdr scopes_20))"
-"(loop_82(cons str_3 strs_1)(cdr scopes_20))))))))))"
-" loop_82)"
+"(loop_55(cons str_3 strs_1)(cdr scopes_20))))))))))"
+" loop_55)"
 " null"
 "(if(set-empty? common-scopes_1)"
 " scopes_19"
 "(append"
 "(reverse$1"
-"(let-values(((lst_96) scopes_19))"
+"(let-values(((lst_98) scopes_19))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
-"(let-values()(check-list lst_96)))"
-"((letrec-values(((for-loop_112)"
-"(lambda(fold-var_80 lst_97)"
+"(let-values()(check-list lst_98)))"
+"((letrec-values(((for-loop_109)"
+"(lambda(fold-var_80 lst_99)"
 "(begin"
 " 'for-loop"
-"(if(pair? lst_97)"
-"(let-values(((s_24)(unsafe-car lst_97))"
-"((rest_46)(unsafe-cdr lst_97)))"
+"(if(pair? lst_99)"
+"(let-values(((s_24)(unsafe-car lst_99))"
+"((rest_47)(unsafe-cdr lst_99)))"
 "(let-values(((fold-var_81)"
 "(let-values(((fold-var_82) fold-var_80))"
 "(if(not(set-member? common-scopes_1 s_24))"
@@ -17294,11 +17025,11 @@ static const char *startup_source =
 " fold-var_83))))"
 "(values fold-var_84)))"
 " fold-var_82))))"
-"(if(not #f)(for-loop_112 fold-var_81 rest_46) fold-var_81)))"
+"(if(not #f)(for-loop_109 fold-var_81 rest_47) fold-var_81)))"
 " fold-var_80)))))"
-" for-loop_112)"
+" for-loop_109)"
 " null"
-" lst_96))))"
+" lst_98))))"
 "                        (list \"[common scopes]\"))))))"
 "(if(null? strs_0)"
 "          (let-values () \"\\n   [empty]\")"
@@ -17306,17 +17037,17 @@ static const char *startup_source =
 "(apply"
 " string-append"
 "(reverse$1"
-"(let-values(((lst_98) strs_0))"
+"(let-values(((lst_100) strs_0))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
-"(let-values()(check-list lst_98)))"
-"((letrec-values(((for-loop_113)"
-"(lambda(fold-var_85 lst_99)"
+"(let-values()(check-list lst_100)))"
+"((letrec-values(((for-loop_110)"
+"(lambda(fold-var_85 lst_101)"
 "(begin"
 " 'for-loop"
-"(if(pair? lst_99)"
-"(let-values(((str_4)(unsafe-car lst_99))((rest_47)(unsafe-cdr lst_99)))"
+"(if(pair? lst_101)"
+"(let-values(((str_4)(unsafe-car lst_101))((rest_48)(unsafe-cdr lst_101)))"
 "(let-values(((fold-var_86)"
 "(let-values(((fold-var_87) fold-var_85))"
 "(let-values(((fold-var_14)"
@@ -17326,19 +17057,19 @@ static const char *startup_source =
 "                                                                               (string-append \"\\n  \" str_4))"
 " fold-var_87))))"
 "(values fold-var_14)))))"
-"(if(not #f)(for-loop_113 fold-var_86 rest_47) fold-var_86)))"
+"(if(not #f)(for-loop_110 fold-var_86 rest_48) fold-var_86)))"
 " fold-var_85)))))"
-" for-loop_113)"
+" for-loop_110)"
 " null"
-" lst_98)))))))))))"
+" lst_100)))))))))))"
 " (define-values (layer->string) (lambda (layer_4) (begin (if (zero? layer_4) \"\" (format \" at layer ~a\" layer_4)))))"
 "(define-values"
 "(raise-syntax-implicit-error)"
-"(lambda(s_0 sym_29 trigger-id_0 ctx_8)"
+"(lambda(s_0 sym_31 trigger-id_0 ctx_8)"
 "(begin"
-"(let-values(((phase_46)(expand-context-phase ctx_8)))"
+"(let-values(((phase_43)(expand-context-phase ctx_8)))"
 "(let-values(((what_1)"
-"(let-values(((tmp_16) sym_29))"
+"(let-values(((tmp_16) sym_31))"
 "(if(equal? tmp_16 '#%app)"
 "                          (let-values () \"function application\")"
 "(if(equal? tmp_16 '#%datum)"
@@ -17352,8 +17083,8 @@ static const char *startup_source =
 "(let-values(((unbound?_0)"
 "(if trigger-id_0"
 "(not"
-"(let-values(((trigger-id1_0) trigger-id_0)((phase2_1) phase_46))"
-"(resolve41.1 #f #f #f #f #f #f #f #f trigger-id1_0 phase2_1)))"
+"(let-values(((trigger-id1_0) trigger-id_0)((phase2_1) phase_43))"
+"(resolve40.1 #f #f null #f trigger-id1_0 phase2_1)))"
 " #f)))"
 "(let-values(((unbound-form_0)"
 "(if unbound?_0(if(not(eq?(syntax-e$1 s_0)(syntax-e$1 trigger-id_0))) s_0 #f) #f)))"
@@ -17363,50 +17094,50 @@ static const char *startup_source =
 "(if unbound?_0"
 "                  \"unbound identifier;\\n also, no ~a syntax transformer is bound~a\""
 "                  (string-append what_1 \" is not allowed;\\n no ~a syntax transformer is bound~a\"))"
-" sym_29"
-"(let-values(((tmp_17) phase_46))"
+" sym_31"
+"(let-values(((tmp_17) phase_43))"
 "(if(equal? tmp_17 0)"
 "                    (let-values () \"\")"
 "(if(equal? tmp_17 1)"
 "                      (let-values () \" in the transformer phase\")"
-"                      (let-values () (format \" at phase ~a\" phase_46))))))"
+"                      (let-values () (format \" at phase ~a\" phase_43))))))"
 "(if unbound?_0(let-values(((or-part_13) unbound-form_0))(if or-part_13 or-part_13 trigger-id_0)) #f)"
 "(if unbound?_0(if unbound-form_0 trigger-id_0 #f) s_0)"
 " null"
 "               (if unbound?_0 (syntax-debug-info-string trigger-id_0 ctx_8) \"\")))))))))"
 "(define-values(make-check-no-duplicate-table)(lambda()(begin '#hasheq())))"
 "(define-values"
-"(check-no-duplicate-ids8.1)"
-"(lambda(what1_0 what2_0 ids5_0 phase6_0 s7_1 ht3_0 ht4_0)"
+"(check-no-duplicate-ids7.1)"
+"(lambda(what1_0 ids4_0 phase5_0 s6_0 ht3_0)"
 "(begin"
-" 'check-no-duplicate-ids8"
-"(let-values(((ids_2) ids5_0))"
-"(let-values(((phase_47) phase6_0))"
-"(let-values(((s_193) s7_1))"
-"(let-values(((ht_76)(if ht4_0 ht3_0(make-check-no-duplicate-table))))"
-"              (let-values (((what_2) (if what2_0 what1_0 \"binding name\")))"
+" 'check-no-duplicate-ids7"
+"(let-values(((ids_2) ids4_0))"
+"(let-values(((phase_44) phase5_0))"
+"(let-values(((s_3) s6_0))"
+"(let-values(((ht_71)(if(eq? ht3_0 unsafe-undefined)(make-check-no-duplicate-table) ht3_0)))"
+"              (let-values (((what_2) (if (eq? what1_0 unsafe-undefined) \"binding name\" what1_0)))"
 "(let-values()"
-"((letrec-values(((loop_34)"
-"(lambda(v_136 ht_82)"
+"((letrec-values(((loop_6)"
+"(lambda(v_136 ht_79)"
 "(begin"
 " 'loop"
 "(if(identifier? v_136)"
 "(let-values()"
-"(let-values(((l_49)(hash-ref ht_82(syntax-e$1 v_136) null)))"
+"(let-values(((l_49)(hash-ref ht_79(syntax-e$1 v_136) null)))"
 "(begin"
-"(let-values(((lst_76) l_49))"
+"(let-values(((lst_102) l_49))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
-"(let-values()(check-list lst_76)))"
-"((letrec-values(((for-loop_98)"
-"(lambda(lst_100)"
+"(let-values()(check-list lst_102)))"
+"((letrec-values(((for-loop_111)"
+"(lambda(lst_77)"
 "(begin"
 " 'for-loop"
-"(if(pair? lst_100)"
-"(let-values(((id_14)(unsafe-car lst_100))"
-"((rest_48)"
-"(unsafe-cdr lst_100)))"
+"(if(pair? lst_77)"
+"(let-values(((id_20)(unsafe-car lst_77))"
+"((rest_49)"
+"(unsafe-cdr lst_77)))"
 "(let-values((()"
 "(let-values()"
 "(let-values((()"
@@ -17414,34 +17145,34 @@ static const char *startup_source =
 "(begin"
 "(let-values()"
 "(if(bound-identifier=?$1"
-" id_14"
+" id_20"
 " v_136"
-" phase_47)"
+" phase_44)"
 "(let-values()"
 "(raise-syntax-error$1"
 " #f"
 "(string-append"
 "                                                                                                                        \"duplicate \""
 " what_2)"
-" s_193"
+" s_3"
 " v_136))"
 "(void)))"
 "(values)))))"
 "(values)))))"
 "(if(not #f)"
-"(for-loop_98 rest_48)"
+"(for-loop_111 rest_49)"
 "(values))))"
 "(values))))))"
-" for-loop_98)"
-" lst_76)))"
+" for-loop_111)"
+" lst_102)))"
 "(void)"
-"(hash-set ht_82(syntax-e$1 v_136)(cons v_136 l_49)))))"
+"(hash-set ht_79(syntax-e$1 v_136)(cons v_136 l_49)))))"
 "(if(pair? v_136)"
-"(let-values()(loop_34(cdr v_136)(loop_34(car v_136) ht_82)))"
-"(let-values() ht_82)))))))"
-" loop_34)"
+"(let-values()(loop_6(cdr v_136)(loop_6(car v_136) ht_79)))"
+"(let-values() ht_79)))))))"
+" loop_6)"
 " ids_2"
-" ht_76))))))))))"
+" ht_71))))))))))"
 "(define-values"
 "(remove-use-site-scopes)"
 "(lambda(s_0 ctx_7)"
@@ -17451,31 +17182,31 @@ static const char *startup_source =
 "(if(syntax?$1 s_0)"
 "(remove-scopes s_0(unbox use-sites_0))"
 "(reverse$1"
-"(let-values(((lst_101) s_0))"
+"(let-values(((lst_103) s_0))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
-"(let-values()(check-list lst_101)))"
-"((letrec-values(((for-loop_114)"
-"(lambda(fold-var_88 lst_6)"
+"(let-values()(check-list lst_103)))"
+"((letrec-values(((for-loop_112)"
+"(lambda(fold-var_88 lst_84)"
 "(begin"
 " 'for-loop"
-"(if(pair? lst_6)"
-"(let-values(((id_10)(unsafe-car lst_6))((rest_49)(unsafe-cdr lst_6)))"
+"(if(pair? lst_84)"
+"(let-values(((id_21)(unsafe-car lst_84))((rest_50)(unsafe-cdr lst_84)))"
 "(let-values(((fold-var_89)"
 "(let-values(((fold-var_90) fold-var_88))"
 "(let-values(((fold-var_60)"
 "(let-values()"
 "(cons"
 "(let-values()"
-"(remove-scopes id_10(unbox use-sites_0)))"
+"(remove-scopes id_21(unbox use-sites_0)))"
 " fold-var_90))))"
 "(values fold-var_60)))))"
-"(if(not #f)(for-loop_114 fold-var_89 rest_49) fold-var_89)))"
+"(if(not #f)(for-loop_112 fold-var_89 rest_50) fold-var_89)))"
 " fold-var_88)))))"
-" for-loop_114)"
+" for-loop_112)"
 " null"
-" lst_101)))))"
+" lst_103)))))"
 " s_0)))))"
 "(define-values"
 "(struct:compile-context"
@@ -17516,27 +17247,18 @@ static const char *startup_source =
 "(make-struct-field-accessor -ref_0 6 'header))))"
 "(define-values"
 "(make-compile-context14.1)"
-"(lambda(full-module-name6_0"
-" full-module-name12_0"
-" lazy-syntax-literals?7_0"
-" lazy-syntax-literals?13_0"
-" module-self5_0"
-" module-self11_0"
-" namespace2_0"
-" namespace8_0"
-" phase3_0"
-" phase9_0"
-" self4_1"
-" self10_0)"
+"(lambda(full-module-name6_0 lazy-syntax-literals?7_0 module-self5_0 namespace2_0 phase3_1 self4_1)"
 "(begin"
 " 'make-compile-context14"
-"(let-values(((namespace_1)(if namespace8_0 namespace2_0(1/current-namespace))))"
-"(let-values(((phase_48)(if phase9_0 phase3_0(namespace-phase namespace_1))))"
-"(let-values(((self_6)(if self10_0 self4_1(namespace-self-mpi namespace_1))))"
-"(let-values(((module-self_0)(if module-self11_0 module-self5_0 #f)))"
-"(let-values(((full-module-name_0)(if full-module-name12_0 full-module-name6_0 #f)))"
+"(let-values(((namespace_1)(if(eq? namespace2_0 unsafe-undefined)(1/current-namespace) namespace2_0)))"
+"(let-values(((phase_45)(if(eq? phase3_1 unsafe-undefined)(namespace-phase namespace_1) phase3_1)))"
+"(let-values(((self_6)(if(eq? self4_1 unsafe-undefined)(namespace-self-mpi namespace_1) self4_1)))"
+"(let-values(((module-self_0) module-self5_0))"
+"(let-values(((full-module-name_0) full-module-name6_0))"
 "(let-values(((lazy-syntax-literals?_0)"
-"(if lazy-syntax-literals?13_0 lazy-syntax-literals?7_0(if module-self_0 #t #f))))"
+"(if(eq? lazy-syntax-literals?7_0 unsafe-undefined)"
+"(if module-self_0 #t #f)"
+" lazy-syntax-literals?7_0)))"
 "(let-values()"
 "(begin"
 "(if(if module-self_0(not full-module-name_0) #f)"
@@ -17544,7 +17266,7 @@ static const char *startup_source =
 "(void))"
 "(compile-context1.1"
 " namespace_1"
-" phase_48"
+" phase_45"
 " self_6"
 " module-self_0"
 " full-module-name_0"
@@ -17578,51 +17300,51 @@ static const char *startup_source =
 "(lambda()(begin(mpi-intern-table1.1(make-hash)(make-hasheq)))))"
 "(define-values"
 "(intern-module-path-index!)"
-"(lambda(t_44 mpi_21)"
+"(lambda(t_45 mpi_20)"
 "(begin"
-"(let-values(((or-part_75)(hash-ref(mpi-intern-table-fast t_44) mpi_21 #f)))"
-"(if or-part_75"
-" or-part_75"
-"(let-values(((name_2 base_15)(1/module-path-index-split mpi_21)))"
+"(let-values(((or-part_73)(hash-ref(mpi-intern-table-fast t_45) mpi_20 #f)))"
+"(if or-part_73"
+" or-part_73"
+"(let-values(((name_2 base_15)(1/module-path-index-split mpi_20)))"
 "(if(not name_2)"
-"(let-values()(begin(hash-set!(mpi-intern-table-fast t_44) mpi_21 mpi_21) mpi_21))"
+"(let-values()(begin(hash-set!(mpi-intern-table-fast t_45) mpi_20 mpi_20) mpi_20))"
 "(let-values()"
-"(let-values(((interned-base_0)(if base_15(intern-module-path-index! t_44 base_15) #f)))"
+"(let-values(((interned-base_0)(if base_15(intern-module-path-index! t_45 base_15) #f)))"
 "(let-values(((at-name_0)"
-"(let-values(((or-part_29)(hash-ref(mpi-intern-table-normal t_44) name_2 #f)))"
+"(let-values(((or-part_29)(hash-ref(mpi-intern-table-normal t_45) name_2 #f)))"
 "(if or-part_29"
 " or-part_29"
 "(let-values(((at-name_1)(make-hasheq)))"
-"(begin(hash-set!(mpi-intern-table-normal t_44) name_2 at-name_1) at-name_1))))))"
+"(begin(hash-set!(mpi-intern-table-normal t_45) name_2 at-name_1) at-name_1))))))"
 "(let-values(((i-mpi_0)"
-"(let-values(((or-part_82)(hash-ref at-name_0 interned-base_0 #f)))"
-"(if or-part_82"
-" or-part_82"
-"(let-values(((mpi_22)"
+"(let-values(((or-part_80)(hash-ref at-name_0 interned-base_0 #f)))"
+"(if or-part_80"
+" or-part_80"
+"(let-values(((mpi_21)"
 "(if(eq? base_15 interned-base_0)"
-" mpi_21"
-"(let-values(((the-struct_46) mpi_21))"
-"(if(1/module-path-index? the-struct_46)"
+" mpi_20"
+"(let-values(((the-struct_47) mpi_20))"
+"(if(1/module-path-index? the-struct_47)"
 "(let-values(((base3_0) interned-base_0))"
 "(module-path-index2.1"
-"(module-path-index-path the-struct_46)"
+"(module-path-index-path the-struct_47)"
 " base3_0"
-"(module-path-index-resolved the-struct_46)"
-"(module-path-index-shift-cache the-struct_46)))"
+"(module-path-index-resolved the-struct_47)"
+"(module-path-index-shift-cache the-struct_47)))"
 "(raise-argument-error"
 " 'struct-copy"
 "                                                           \"module-path-index?\""
-" the-struct_46))))))"
-"(begin(hash-set! at-name_0 interned-base_0 mpi_22) mpi_22))))))"
-"(begin(hash-set!(mpi-intern-table-fast t_44) mpi_21 i-mpi_0) i-mpi_0))))))))))))"
+" the-struct_47))))))"
+"(begin(hash-set! at-name_0 interned-base_0 mpi_21) mpi_21))))))"
+"(begin(hash-set!(mpi-intern-table-fast t_45) mpi_20 i-mpi_0) i-mpi_0))))))))))))"
 "(define-values(built-in-symbols)(make-hasheq))"
 "(define-values(register-built-in-symbol!)(lambda(s_0)(begin(hash-set! built-in-symbols s_0 #t))))"
-"(define-values(built-in-symbol?)(lambda(s_71)(begin(hash-ref built-in-symbols s_71 #f))))"
+"(define-values(built-in-symbol?)(lambda(s_72)(begin(hash-ref built-in-symbols s_72 #f))))"
 "(define-values"
 "(make-built-in-symbol!)"
-"(lambda(s_190)"
+"(lambda(s_188)"
 "(begin"
-"      (let-values (((built-in-s_0) (string->symbol (format \".~s\" s_190))))"
+"      (let-values (((built-in-s_0) (string->symbol (format \".~s\" s_188))))"
 "(begin(register-built-in-symbol! built-in-s_0) built-in-s_0)))))"
 "(void"
 "(begin"
@@ -17708,25 +17430,25 @@ static const char *startup_source =
 "(lambda()(begin(module-path-index-table1.1(make-hasheq)(make-module-path-index-intern-table)))))"
 "(define-values"
 "(add-module-path-index!)"
-"(lambda(mpis_0 mpi_21)"
+"(lambda(mpis_0 mpi_20)"
 "(begin"
-"(let-values(((pos_13)(add-module-path-index!/pos mpis_0 mpi_21)))"
-"(if pos_13(list 'unsafe-vector*-ref mpi-vector-id pos_13) #f)))))"
+"(let-values(((pos_14)(add-module-path-index!/pos mpis_0 mpi_20)))"
+"(if pos_14(list 'unsafe-vector*-ref mpi-vector-id pos_14) #f)))))"
 "(define-values"
 "(add-module-path-index!/pos)"
-"(lambda(mpis_1 mpi_23)"
+"(lambda(mpis_1 mpi_22)"
 "(begin"
-"(if(not mpi_23)"
+"(if(not mpi_22)"
 "(let-values() #f)"
-"(if mpi_23"
+"(if mpi_22"
 "(let-values()"
-"(let-values(((mpi_24)(intern-module-path-index!(module-path-index-table-intern mpis_1) mpi_23))"
+"(let-values(((mpi_23)(intern-module-path-index!(module-path-index-table-intern mpis_1) mpi_22))"
 "((positions_0)(module-path-index-table-positions mpis_1)))"
-"(let-values(((or-part_80)(hash-ref positions_0 mpi_24 #f)))"
-"(if or-part_80"
-" or-part_80"
-"(let-values(((pos_14)(hash-count positions_0)))"
-"(begin(hash-set! positions_0 mpi_24 pos_14) pos_14))))))"
+"(let-values(((or-part_78)(hash-ref positions_0 mpi_23 #f)))"
+"(if or-part_78"
+" or-part_78"
+"(let-values(((pos_15)(hash-count positions_0)))"
+"(begin(hash-set! positions_0 mpi_23 pos_15) pos_15))))))"
 "(void))))))"
 "(define-values"
 "(generate-module-path-index-deserialize)"
@@ -17738,69 +17460,69 @@ static const char *startup_source =
 " 'unique-list"
 "(if(pair? v_137)"
 "(reverse$1"
-"(let-values(((lst_102) v_137))"
+"(let-values(((lst_104) v_137))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
-"(let-values()(check-list lst_102)))"
-"((letrec-values(((for-loop_115)"
-"(lambda(fold-var_10 lst_79)"
+"(let-values()(check-list lst_104)))"
+"((letrec-values(((for-loop_113)"
+"(lambda(fold-var_10 lst_80)"
 "(begin"
 " 'for-loop"
-"(if(pair? lst_79)"
-"(let-values(((i_93)(unsafe-car lst_79))"
-"((rest_50)(unsafe-cdr lst_79)))"
+"(if(pair? lst_80)"
+"(let-values(((i_94)(unsafe-car lst_80))"
+"((rest_51)(unsafe-cdr lst_80)))"
 "(let-values(((fold-var_91)"
 "(let-values(((fold-var_92) fold-var_10))"
 "(let-values(((fold-var_93)"
 "(let-values()"
 "(cons"
-"(let-values() i_93)"
+"(let-values() i_94)"
 " fold-var_92))))"
 "(values fold-var_93)))))"
 "(if(not #f)"
-"(for-loop_115 fold-var_91 rest_50)"
+"(for-loop_113 fold-var_91 rest_51)"
 " fold-var_91)))"
 " fold-var_10)))))"
-" for-loop_115)"
+" for-loop_113)"
 " null"
-" lst_102))))"
+" lst_104))))"
 " v_137)))))"
 "(let-values(((positions_1)(module-path-index-table-positions mpis_2)))"
 "(let-values(((gen-order_0)(make-hasheqv)))"
 "(let-values(((rev-positions_0)"
-"(let-values(((ht_83) positions_1))"
+"(let-values(((ht_80) positions_1))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
-"(let-values()(check-in-hash ht_83)))"
-"((letrec-values(((for-loop_85)"
-"(lambda(table_117 i_94)"
+"(let-values()(check-in-hash ht_80)))"
+"((letrec-values(((for-loop_114)"
+"(lambda(table_117 i_95)"
 "(begin"
 " 'for-loop"
-"(if i_94"
-"(let-values(((k_19 v_66)(hash-iterate-key+value ht_83 i_94)))"
+"(if i_95"
+"(let-values(((k_19 v_67)(hash-iterate-key+value ht_80 i_95)))"
 "(let-values(((table_118)"
 "(let-values(((table_112) table_117))"
 "(let-values(((table_119)"
 "(let-values()"
-"(let-values(((key_44 val_38)"
+"(let-values(((key_45 val_38)"
 "(let-values()"
 "(values"
-" v_66"
+" v_67"
 " k_19))))"
 "(hash-set"
 " table_112"
-" key_44"
+" key_45"
 " val_38)))))"
 "(values table_119)))))"
 "(if(not #f)"
-"(for-loop_85 table_118(hash-iterate-next ht_83 i_94))"
+"(for-loop_114 table_118(hash-iterate-next ht_80 i_95))"
 " table_118)))"
 " table_117)))))"
-" for-loop_85)"
+" for-loop_114)"
 " '#hasheqv()"
-"(hash-iterate-first ht_83))))))"
+"(hash-iterate-first ht_80))))))"
 "(let-values((()"
 "(begin"
 "(let-values(((start_16) 0)((end_10)(hash-count rev-positions_0))((inc_4) 1))"
@@ -17808,92 +17530,92 @@ static const char *startup_source =
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
 "(let-values()(check-range start_16 end_10 inc_4)))"
-"((letrec-values(((for-loop_116)"
-"(lambda(pos_15)"
+"((letrec-values(((for-loop_115)"
+"(lambda(pos_16)"
 "(begin"
 " 'for-loop"
-"(if(< pos_15 end_10)"
-"(let-values(((i_95) pos_15))"
+"(if(< pos_16 end_10)"
+"(let-values(((i_96) pos_16))"
 "(let-values((()"
 "(let-values()"
 "(let-values((()"
 "(let-values()"
 "(begin"
 "(let-values()"
-"(let-values(((mpi_25)"
+"(let-values(((mpi_24)"
 "(hash-ref"
 " rev-positions_0"
-" i_95)))"
-"((letrec-values(((loop_83)"
-"(lambda(mpi_26)"
+" i_96)))"
+"((letrec-values(((loop_82)"
+"(lambda(mpi_25)"
 "(begin"
 " 'loop"
 "(if(hash-ref"
 " gen-order_0"
-" mpi_26"
+" mpi_25"
 " #f)"
 "(void)"
 "(let-values()"
 "(let-values(((name_37"
 " base_16)"
 "(1/module-path-index-split"
-" mpi_26)))"
+" mpi_25)))"
 "(begin"
 "(if base_16"
 "(let-values()"
-"(loop_83"
+"(loop_82"
 " base_16))"
 "(void))"
 "(hash-set!"
 " gen-order_0"
-" mpi_26"
+" mpi_25"
 "(hash-count"
 " gen-order_0))))))))))"
-" loop_83)"
-" mpi_25)))"
+" loop_82)"
+" mpi_24)))"
 "(values)))))"
 "(values)))))"
-"(if(not #f)(for-loop_116(+ pos_15 inc_4))(values))))"
+"(if(not #f)(for-loop_115(+ pos_16 inc_4))(values))))"
 "(values))))))"
-" for-loop_116)"
+" for-loop_115)"
 " start_16)))"
 "(values))))"
 "(let-values()"
 "(let-values(((rev-gen-order_0)"
-"(let-values(((ht_84) gen-order_0))"
+"(let-values(((ht_81) gen-order_0))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
-"(let-values()(check-in-hash ht_84)))"
-"((letrec-values(((for-loop_117)"
-"(lambda(table_120 i_96)"
+"(let-values()(check-in-hash ht_81)))"
+"((letrec-values(((for-loop_116)"
+"(lambda(table_120 i_97)"
 "(begin"
 " 'for-loop"
-"(if i_96"
-"(let-values(((k_20 v_138)"
-"(hash-iterate-key+value ht_84 i_96)))"
+"(if i_97"
+"(let-values(((k_20 v_36)"
+"(hash-iterate-key+value ht_81 i_97)))"
 "(let-values(((table_15)"
 "(let-values(((table_121) table_120))"
 "(let-values(((table_9)"
 "(let-values()"
-"(let-values(((key_45"
+"(let-values(((key_46"
 " val_39)"
 "(let-values()"
 "(values"
-" v_138"
+" v_36"
 " k_20))))"
 "(hash-set"
 " table_121"
-" key_45"
+" key_46"
 " val_39)))))"
 "(values table_9)))))"
 "(if(not #f)"
-"(for-loop_117 table_15(hash-iterate-next ht_84 i_96))"
+"(for-loop_116 table_15(hash-iterate-next ht_81 i_97))"
 " table_15)))"
 " table_120)))))"
-" for-loop_117)"
+" for-loop_116)"
 " '#hasheqv()"
-"(hash-iterate-first ht_84))))))"
+"(hash-iterate-first ht_81))))))"
 "(let-values(((gens_0)"
 "(let-values(((len_12)(hash-count gen-order_0)))"
 "(begin"
@@ -17901,7 +17623,7 @@ static const char *startup_source =
 "(void)"
 "(let-values()"
 "                                          (raise-argument-error 'for/vector \"exact-nonnegative-integer?\" len_12)))"
-"(let-values(((v_139)(make-vector len_12 0)))"
+"(let-values(((v_138)(make-vector len_12 0)))"
 "(begin"
 "(if(zero? len_12)"
 "(void)"
@@ -17914,43 +17636,43 @@ static const char *startup_source =
 "(void)"
 "(let-values()(check-range start_17 end_11 inc_5)))"
 "((letrec-values(((for-loop_28)"
-"(lambda(i_97 pos_16)"
+"(lambda(i_98 pos_17)"
 "(begin"
 " 'for-loop"
-"(if(< pos_16 end_11)"
-"(let-values(((i_89) pos_16))"
-"(let-values(((i_98)"
-"(let-values(((i_99) i_97))"
-"(let-values(((i_100)"
+"(if(< pos_17 end_11)"
+"(let-values(((i_90) pos_17))"
+"(let-values(((i_99)"
+"(let-values(((i_100) i_98))"
+"(let-values(((i_29)"
 "(let-values()"
 "(begin"
 "(unsafe-vector*-set!"
-" v_139"
-" i_99"
+" v_138"
+" i_100"
 "(let-values()"
-"(let-values(((mpi_27)"
+"(let-values(((mpi_26)"
 "(hash-ref"
 " rev-gen-order_0"
-" i_89)))"
+" i_90)))"
 "(let-values(((path_6"
 " base_17)"
 "(1/module-path-index-split"
-" mpi_27)))"
+" mpi_26)))"
 "(if(top-level-module-path-index?"
-" mpi_27)"
+" mpi_26)"
 "(let-values()"
 " 'top)"
 "(if(not"
 " path_6)"
 "(let-values()"
 "(box"
-"(let-values(((or-part_165)"
+"(let-values(((or-part_167)"
 "(unique-list_0"
 "(1/resolved-module-path-name"
 "(module-path-index-resolved"
-" mpi_27)))))"
-"(if or-part_165"
-" or-part_165"
+" mpi_26)))))"
+"(if or-part_167"
+" or-part_167"
 " 'self))))"
 "(if(not"
 " base_17)"
@@ -17967,55 +17689,55 @@ static const char *startup_source =
 "(void)))))))))"
 "(unsafe-fx+"
 " 1"
-" i_99)))))"
-"(values i_100)))))"
+" i_100)))))"
+"(values i_29)))))"
 "(if(if(not"
-"((lambda x_9"
-"(unsafe-fx= i_98 len_12))"
-" i_89))"
+"((lambda x_43"
+"(unsafe-fx= i_99 len_12))"
+" i_90))"
 "(not #f)"
 " #f)"
-"(for-loop_28 i_98(+ pos_16 inc_5))"
-" i_98)))"
-" i_97)))))"
+"(for-loop_28 i_99(+ pos_17 inc_5))"
+" i_99)))"
+" i_98)))))"
 " for-loop_28)"
 " 0"
 " start_17)))))"
-" v_139))))))"
+" v_138))))))"
 "(list"
 " 'deserialize-module-path-indexes"
 "(list 'quote gens_0)"
 "(list"
 " 'quote"
-"(let-values(((vec_29 i_44)"
+"(let-values(((vec_30 i_46)"
 "(let-values(((start_18) 0)((end_12)(hash-count rev-positions_0))((inc_6) 1))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
 "(let-values()(check-range start_18 end_12 inc_6)))"
 "((letrec-values(((for-loop_53)"
-"(lambda(vec_30 i_101 pos_17)"
+"(lambda(vec_31 i_101 pos_18)"
 "(begin"
 " 'for-loop"
-"(if(< pos_17 end_12)"
-"(let-values(((i_102) pos_17))"
-"(let-values(((vec_31 i_103)"
-"(let-values(((vec_32) vec_30)"
-"((i_38) i_101))"
-"(let-values(((vec_33 i_62)"
+"(if(< pos_18 end_12)"
+"(let-values(((i_102) pos_18))"
+"(let-values(((vec_32 i_103)"
+"(let-values(((vec_33) vec_31)"
+"((i_39) i_101))"
+"(let-values(((vec_34 i_104)"
 "(let-values()"
 "(let-values(((new-vec_2)"
 "(if(eq?"
-" i_38"
+" i_39"
 "(unsafe-vector*-length"
-" vec_32))"
+" vec_33))"
 "(grow-vector"
-" vec_32)"
-" vec_32)))"
+" vec_33)"
+" vec_33)))"
 "(begin"
 "(unsafe-vector*-set!"
 " new-vec_2"
-" i_38"
+" i_39"
 "(let-values()"
 "(hash-ref"
 " gen-order_0"
@@ -18025,25 +17747,25 @@ static const char *startup_source =
 "(values"
 " new-vec_2"
 "(unsafe-fx+"
-" i_38"
+" i_39"
 " 1)))))))"
-"(values vec_33 i_62)))))"
+"(values vec_34 i_104)))))"
 "(if(not #f)"
-"(for-loop_53 vec_31 i_103(+ pos_17 inc_6))"
-"(values vec_31 i_103))))"
-"(values vec_30 i_101))))))"
+"(for-loop_53 vec_32 i_103(+ pos_18 inc_6))"
+"(values vec_32 i_103))))"
+"(values vec_31 i_101))))))"
 " for-loop_53)"
 "(make-vector 16)"
 " 0"
 " start_18)))))"
-"(shrink-vector vec_29 i_44)))))))))))))))"
+"(shrink-vector vec_30 i_46)))))))))))))))"
 "(define-values"
 "(deserialize-module-path-indexes)"
 "(lambda(gen-vec_0 order-vec_0)"
 "(begin"
 "(let-values(((gen_0)(make-vector(vector-length gen-vec_0) #f)))"
 "(begin"
-"(let-values(((vec_34 len_13)"
+"(let-values(((vec_35 len_13)"
 "(let-values(((vec_23) gen-vec_0))"
 "(begin(check-vector vec_23)(values vec_23(unsafe-vector-length vec_23)))))"
 "((start_19) 0))"
@@ -18052,12 +17774,12 @@ static const char *startup_source =
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
 "(let-values()(check-naturals start_19)))"
-"((letrec-values(((for-loop_118)"
-"(lambda(pos_18 pos_19)"
+"((letrec-values(((for-loop_117)"
+"(lambda(pos_19 pos_20)"
 "(begin"
 " 'for-loop"
-"(if(if(unsafe-fx< pos_18 len_13) #t #f)"
-"(let-values(((d_21)(unsafe-vector-ref vec_34 pos_18))((i_104) pos_19))"
+"(if(if(unsafe-fx< pos_19 len_13) #t #f)"
+"(let-values(((d_21)(unsafe-vector-ref vec_35 pos_19))((i_105) pos_20))"
 "(let-values((()"
 "(let-values()"
 "(let-values((()"
@@ -18066,7 +17788,7 @@ static const char *startup_source =
 "(let-values()"
 "(vector-set!"
 " gen_0"
-" i_104"
+" i_105"
 "(if(eq? d_21 'top)"
 "(let-values()"
 "(deserialize-module-path-index))"
@@ -18084,9 +17806,9 @@ static const char *startup_source =
 " #f)))))))"
 "(values)))))"
 "(values)))))"
-"(if(not #f)(for-loop_118(unsafe-fx+ 1 pos_18)(+ pos_19 1))(values))))"
+"(if(not #f)(for-loop_117(unsafe-fx+ 1 pos_19)(+ pos_20 1))(values))))"
 "(values))))))"
-" for-loop_118)"
+" for-loop_117)"
 " 0"
 " start_19)))"
 "(void)"
@@ -18095,44 +17817,44 @@ static const char *startup_source =
 "(if(exact-nonnegative-integer? len_14)"
 "(void)"
 "                (let-values () (raise-argument-error 'for/vector \"exact-nonnegative-integer?\" len_14)))"
-"(let-values(((v_140)(make-vector len_14 0)))"
+"(let-values(((v_139)(make-vector len_14 0)))"
 "(begin"
 "(if(zero? len_14)"
 "(void)"
 "(let-values()"
-"(let-values(((vec_35 len_15)"
-"(let-values(((vec_36) order-vec_0))"
-"(begin(check-vector vec_36)(values vec_36(unsafe-vector-length vec_36))))))"
+"(let-values(((vec_36 len_4)"
+"(let-values(((vec_11) order-vec_0))"
+"(begin(check-vector vec_11)(values vec_11(unsafe-vector-length vec_11))))))"
 "(begin"
 " #f"
-"((letrec-values(((for-loop_119)"
-"(lambda(i_105 pos_20)"
+"((letrec-values(((for-loop_118)"
+"(lambda(i_106 pos_21)"
 "(begin"
 " 'for-loop"
-"(if(unsafe-fx< pos_20 len_15)"
-"(let-values(((p_32)(unsafe-vector-ref vec_35 pos_20)))"
-"(let-values(((i_46)"
-"(let-values(((i_106) i_105))"
-"(let-values(((i_107)"
+"(if(unsafe-fx< pos_21 len_4)"
+"(let-values(((p_32)(unsafe-vector-ref vec_36 pos_21)))"
+"(let-values(((i_48)"
+"(let-values(((i_107) i_106))"
+"(let-values(((i_108)"
 "(let-values()"
 "(begin"
 "(unsafe-vector*-set!"
-" v_140"
-" i_106"
+" v_139"
+" i_107"
 "(let-values()"
 "(vector*-ref gen_0 p_32)))"
-"(unsafe-fx+ 1 i_106)))))"
-"(values i_107)))))"
-"(if(if(not((lambda x_42(unsafe-fx= i_46 len_14)) p_32))"
+"(unsafe-fx+ 1 i_107)))))"
+"(values i_108)))))"
+"(if(if(not((lambda x_44(unsafe-fx= i_48 len_14)) p_32))"
 "(not #f)"
 " #f)"
-"(for-loop_119 i_46(unsafe-fx+ 1 pos_20))"
-" i_46)))"
-" i_105)))))"
-" for-loop_119)"
+"(for-loop_118 i_48(unsafe-fx+ 1 pos_21))"
+" i_48)))"
+" i_106)))))"
+" for-loop_118)"
 " 0"
 " 0)))))"
-" v_140)))))))))"
+" v_139)))))))))"
 "(define-values"
 "(mpis-as-vector)"
 "(lambda(mpis_3)"
@@ -18140,30 +17862,30 @@ static const char *startup_source =
 "(let-values(((positions_2)(module-path-index-table-positions mpis_3)))"
 "(let-values(((vec_37)(make-vector(hash-count positions_2) #f)))"
 "(begin"
-"(let-values(((ht_85) positions_2))"
+"(let-values(((ht_82) positions_2))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
-"(let-values()(check-in-hash ht_85)))"
-"((letrec-values(((for-loop_120)"
+"(let-values()(check-in-hash ht_82)))"
+"((letrec-values(((for-loop_119)"
 "(lambda(i_24)"
 "(begin"
 " 'for-loop"
 "(if i_24"
-"(let-values(((mpi_28 pos_21)(hash-iterate-key+value ht_85 i_24)))"
+"(let-values(((mpi_27 pos_22)(hash-iterate-key+value ht_82 i_24)))"
 "(let-values((()"
 "(let-values()"
 "(let-values((()"
 "(let-values()"
 "(begin"
 "(let-values()"
-"(vector-set! vec_37 pos_21 mpi_28))"
+"(vector-set! vec_37 pos_22 mpi_27))"
 "(values)))))"
 "(values)))))"
-"(if(not #f)(for-loop_120(hash-iterate-next ht_85 i_24))(values))))"
+"(if(not #f)(for-loop_119(hash-iterate-next ht_82 i_24))(values))))"
 "(values))))))"
-" for-loop_120)"
-"(hash-iterate-first ht_85))))"
+" for-loop_119)"
+"(hash-iterate-first ht_82))))"
 "(void)"
 " vec_37))))))"
 "(define-values"
@@ -18171,15 +17893,15 @@ static const char *startup_source =
 "(lambda(mus_0 mpis_4)"
 "(begin"
 "(reverse$1"
-"(let-values(((lst_103) mus_0))"
+"(let-values(((lst_105) mus_0))"
 "(begin"
-"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_103)))"
-"((letrec-values(((for-loop_121)"
+"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_105)))"
+"((letrec-values(((for-loop_120)"
 "(lambda(fold-var_94 lst_11)"
 "(begin"
 " 'for-loop"
 "(if(pair? lst_11)"
-"(let-values(((mu_1)(unsafe-car lst_11))((rest_51)(unsafe-cdr lst_11)))"
+"(let-values(((mu_1)(unsafe-car lst_11))((rest_52)(unsafe-cdr lst_11)))"
 "(let-values(((fold-var_95)"
 "(let-values(((fold-var_96) fold-var_94))"
 "(let-values(((fold-var_97)"
@@ -18194,54 +17916,53 @@ static const char *startup_source =
 "(module-use-phase mu_1)))"
 " fold-var_96))))"
 "(values fold-var_97)))))"
-"(if(not #f)(for-loop_121 fold-var_95 rest_51) fold-var_95)))"
+"(if(not #f)(for-loop_120 fold-var_95 rest_52) fold-var_95)))"
 " fold-var_94)))))"
-" for-loop_121)"
+" for-loop_120)"
 " null"
-" lst_103)))))))"
+" lst_105)))))))"
 "(define-values"
 "(interned-literal?)"
-"(lambda(v_93)"
+"(lambda(v_140)"
 "(begin"
-"(let-values(((or-part_166)(null? v_93)))"
-"(if or-part_166"
-" or-part_166"
-"(let-values(((or-part_167)(boolean? v_93)))"
-"(if or-part_167"
-" or-part_167"
-"(let-values(((or-part_168)"
-"(if(fixnum? v_93)(if(< v_93(sub1(expt 2 30)))(> v_93(-(expt 2 30))) #f) #f)))"
+"(let-values(((or-part_168)(null? v_140)))"
 "(if or-part_168"
 " or-part_168"
-"(let-values(((or-part_169)(symbol? v_93)))"
+"(let-values(((or-part_169)(boolean? v_140)))"
 "(if or-part_169"
 " or-part_169"
-"(let-values(((or-part_170)(char? v_93)))"
-"(if or-part_170 or-part_170(keyword? v_93))))))))))))))"
+"(let-values(((or-part_140)"
+"(if(fixnum? v_140)(if(< v_140(sub1(expt 2 30)))(> v_140(-(expt 2 30))) #f) #f)))"
+"(if or-part_140"
+" or-part_140"
+"(let-values(((or-part_170)(symbol? v_140)))"
+"(if or-part_170"
+" or-part_170"
+"(let-values(((or-part_46)(char? v_140)))(if or-part_46 or-part_46(keyword? v_140))))))))))))))"
 "(define-values"
 "(serialize-phase-to-link-module-uses)"
 "(lambda(phase-to-link-module-uses_0 mpis_5)"
 "(begin"
 "(let-values(((phases-in-order_0)"
 "(let-values(((temp10_1)(hash-keys phase-to-link-module-uses_0))((<11_0) <))"
-"(sort7.1 #f #f #f #f temp10_1 <11_0))))"
+"(sort7.1 #f #f temp10_1 <11_0))))"
 "(list*"
 " 'hasheqv"
 "(apply"
 " append"
 "(reverse$1"
-"(let-values(((lst_104) phases-in-order_0))"
+"(let-values(((lst_106) phases-in-order_0))"
 "(begin"
-"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_104)))"
-"((letrec-values(((for-loop_122)"
-"(lambda(fold-var_98 lst_105)"
+"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_106)))"
+"((letrec-values(((for-loop_121)"
+"(lambda(fold-var_98 lst_107)"
 "(begin"
 " 'for-loop"
-"(if(pair? lst_105)"
-"(let-values(((phase_9)(unsafe-car lst_105))((rest_52)(unsafe-cdr lst_105)))"
+"(if(pair? lst_107)"
+"(let-values(((phase_9)(unsafe-car lst_107))((rest_53)(unsafe-cdr lst_107)))"
 "(let-values(((fold-var_99)"
-"(let-values(((fold-var_100) fold-var_98))"
-"(let-values(((fold-var_101)"
+"(let-values(((fold-var_36) fold-var_98))"
+"(let-values(((fold-var_37)"
 "(let-values()"
 "(cons"
 "(let-values()"
@@ -18254,21 +17975,21 @@ static const char *startup_source =
 " phase-to-link-module-uses_0"
 " phase_9)"
 " mpis_5))))"
-" fold-var_100))))"
-"(values fold-var_101)))))"
-"(if(not #f)(for-loop_122 fold-var_99 rest_52) fold-var_99)))"
+" fold-var_36))))"
+"(values fold-var_37)))))"
+"(if(not #f)(for-loop_121 fold-var_99 rest_53) fold-var_99)))"
 " fold-var_98)))))"
-" for-loop_122)"
+" for-loop_121)"
 " null"
-" lst_104))))))))))"
+" lst_106))))))))))"
 "(define-values"
 "(generate-deserialize6.1)"
-"(lambda(syntax-support?2_0 syntax-support?3_0 v4_0 mpis5_0)"
+"(lambda(syntax-support?2_0 v4_0 mpis5_0)"
 "(begin"
 " 'generate-deserialize6"
 "(let-values(((v_141) v4_0))"
 "(let-values(((mpis_6) mpis5_0))"
-"(let-values(((syntax-support?_0)(if syntax-support?3_0 syntax-support?2_0 #t)))"
+"(let-values(((syntax-support?_0) syntax-support?2_0))"
 "(let-values()"
 "(let-values(((reachable-scopes_4)(find-reachable-scopes v_141)))"
 "(let-values(((state_25)(make-serialize-state reachable-scopes_4)))"
@@ -18280,98 +18001,98 @@ static const char *startup_source =
 "(letrec-values(((add-frontier!_0)"
 "(case-lambda"
 "((v_142)(begin 'add-frontier!(set! frontier_0(cons v_142 frontier_0))))"
-"((kind_3 v_99)(add-frontier!_0 v_99)))))"
+"((kind_3 v_98)(add-frontier!_0 v_98)))))"
 "(let-values((()"
 "(begin"
 "((letrec-values(((frontier-loop_0)"
-"(lambda(v_101)"
+"(lambda(v_100)"
 "(begin"
 " 'frontier-loop"
 "(begin"
-"((letrec-values(((loop_84)"
-"(lambda(v_103)"
+"((letrec-values(((loop_11)"
+"(lambda(v_102)"
 "(begin"
 " 'loop"
 "(if(let-values(((or-part_171)"
 "(interned-literal?"
-" v_103)))"
+" v_102)))"
 "(if or-part_171"
 " or-part_171"
 "(1/module-path-index?"
-" v_103)))"
+" v_102)))"
 "(let-values()(void))"
 "(if(hash-ref"
 " objs_0"
-" v_103"
+" v_102"
 " #f)"
 "(let-values()"
 "(if(hash-ref"
 " mutables_0"
-" v_103"
+" v_102"
 " #f)"
 "(void)"
 "(let-values()"
 "(hash-set!"
 " shares_0"
-" v_103"
+" v_102"
 " #t))))"
 "(let-values()"
 "(begin"
 "(if(serialize-fill!?"
-" v_103)"
+" v_102)"
 "(let-values()"
 "(begin"
 "(hash-set!"
 " mutables_0"
-" v_103"
+" v_102"
 "(hash-count"
 " mutables_0))"
 "((serialize-fill!-ref"
-" v_103)"
-" v_103"
+" v_102)"
+" v_102"
 " add-frontier!_0"
 " state_25)))"
 "(if(serialize?"
-" v_103)"
+" v_102)"
 "(let-values()"
 "((serialize-ref"
-" v_103)"
-" v_103"
+" v_102)"
+" v_102"
 "(case-lambda"
 "((sub-v_0)"
-"(loop_84"
+"(loop_11"
 " sub-v_0))"
 "((kind_4"
 " sub-v_1)"
-"(loop_84"
+"(loop_11"
 " sub-v_1)))"
 " state_25))"
 "(if(pair?"
-" v_103)"
+" v_102)"
 "(let-values()"
 "(begin"
-"(loop_84"
+"(loop_11"
 "(car"
-" v_103))"
-"(loop_84"
+" v_102))"
+"(loop_11"
 "(cdr"
-" v_103))))"
+" v_102))))"
 "(if(vector?"
-" v_103)"
+" v_102)"
 "(let-values()"
 "(if(let-values(((or-part_172)"
 "(immutable?"
-" v_103)))"
+" v_102)))"
 "(if or-part_172"
 " or-part_172"
 "(zero?"
 "(vector-length"
-" v_103))))"
+" v_102))))"
 "(begin"
 "(let-values(((vec_38"
-" len_16)"
+" len_15)"
 "(let-values(((vec_39)"
-" v_103))"
+" v_102))"
 "(begin"
 "(check-vector"
 " vec_39)"
@@ -18381,49 +18102,49 @@ static const char *startup_source =
 " vec_39))))))"
 "(begin"
 " #f"
-"((letrec-values(((for-loop_123)"
-"(lambda(pos_22)"
+"((letrec-values(((for-loop_93)"
+"(lambda(pos_23)"
 "(begin"
 " 'for-loop"
 "(if(unsafe-fx<"
-" pos_22"
-" len_16)"
+" pos_23"
+" len_15)"
 "(let-values(((e_19)"
 "(unsafe-vector-ref"
 " vec_38"
-" pos_22)))"
+" pos_23)))"
 "(let-values((()"
 "(let-values()"
 "(let-values((()"
 "(let-values()"
 "(begin"
 "(let-values()"
-"(loop_84"
+"(loop_11"
 " e_19))"
 "(values)))))"
 "(values)))))"
 "(if(not"
 " #f)"
-"(for-loop_123"
+"(for-loop_93"
 "(unsafe-fx+"
 " 1"
-" pos_22))"
+" pos_23))"
 "(values))))"
 "(values))))))"
-" for-loop_123)"
+" for-loop_93)"
 " 0)))"
 "(void))"
 "(begin"
 "(hash-set!"
 " mutables_0"
-" v_103"
+" v_102"
 "(hash-count"
 " mutables_0))"
 "(begin"
 "(let-values(((vec_40"
-" len_17)"
+" len_16)"
 "(let-values(((vec_41)"
-" v_103))"
+" v_102))"
 "(begin"
 "(check-vector"
 " vec_41)"
@@ -18433,17 +18154,17 @@ static const char *startup_source =
 " vec_41))))))"
 "(begin"
 " #f"
-"((letrec-values(((for-loop_124)"
-"(lambda(pos_23)"
+"((letrec-values(((for-loop_122)"
+"(lambda(pos_24)"
 "(begin"
 " 'for-loop"
 "(if(unsafe-fx<"
-" pos_23"
-" len_17)"
+" pos_24"
+" len_16)"
 "(let-values(((e_20)"
 "(unsafe-vector-ref"
 " vec_40"
-" pos_23)))"
+" pos_24)))"
 "(let-values((()"
 "(let-values()"
 "(let-values((()"
@@ -18456,60 +18177,60 @@ static const char *startup_source =
 "(values)))))"
 "(if(not"
 " #f)"
-"(for-loop_124"
+"(for-loop_122"
 "(unsafe-fx+"
 " 1"
-" pos_23))"
+" pos_24))"
 "(values))))"
 "(values))))))"
-" for-loop_124)"
+" for-loop_122)"
 " 0)))"
 "(void)))))"
 "(if(box?"
-" v_103)"
+" v_102)"
 "(let-values()"
 "(if(immutable?"
-" v_103)"
-"(loop_84"
+" v_102)"
+"(loop_11"
 "(unbox"
-" v_103))"
+" v_102))"
 "(begin"
 "(hash-set!"
 " mutables_0"
-" v_103"
+" v_102"
 "(hash-count"
 " mutables_0))"
 "(add-frontier!_0"
 "(unbox"
-" v_103)))))"
+" v_102)))))"
 "(if(hash?"
-" v_103)"
+" v_102)"
 "(let-values()"
 "(if(immutable?"
-" v_103)"
+" v_102)"
 "(begin"
-"(let-values(((lst_73)"
+"(let-values(((lst_108)"
 "(sorted-hash-keys"
-" v_103)))"
+" v_102)))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
 "(#%variable-reference))"
 "(void)"
 "(let-values()"
 "(check-list"
-" lst_73)))"
-"((letrec-values(((for-loop_125)"
-"(lambda(lst_106)"
+" lst_108)))"
+"((letrec-values(((for-loop_123)"
+"(lambda(lst_109)"
 "(begin"
 " 'for-loop"
 "(if(pair?"
-" lst_106)"
+" lst_109)"
 "(let-values(((k_21)"
 "(unsafe-car"
-" lst_106))"
-"((rest_53)"
+" lst_109))"
+"((rest_54)"
 "(unsafe-cdr"
-" lst_106)))"
+" lst_109)))"
 "(let-values((()"
 "(let-values()"
 "(let-values((()"
@@ -18517,52 +18238,52 @@ static const char *startup_source =
 "(begin"
 "(let-values()"
 "(begin"
-"(loop_84"
+"(loop_11"
 " k_21)"
-"(loop_84"
+"(loop_11"
 "(hash-ref"
-" v_103"
+" v_102"
 " k_21))))"
 "(values)))))"
 "(values)))))"
 "(if(not"
 " #f)"
-"(for-loop_125"
-" rest_53)"
+"(for-loop_123"
+" rest_54)"
 "(values))))"
 "(values))))))"
-" for-loop_125)"
-" lst_73)))"
+" for-loop_123)"
+" lst_108)))"
 "(void))"
 "(begin"
 "(hash-set!"
 " mutables_0"
-" v_103"
+" v_102"
 "(hash-count"
 " mutables_0))"
 "(begin"
-"(let-values(((lst_107)"
+"(let-values(((lst_110)"
 "(sorted-hash-keys"
-" v_103)))"
+" v_102)))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
 "(#%variable-reference))"
 "(void)"
 "(let-values()"
 "(check-list"
-" lst_107)))"
-"((letrec-values(((for-loop_126)"
-"(lambda(lst_108)"
+" lst_110)))"
+"((letrec-values(((for-loop_124)"
+"(lambda(lst_111)"
 "(begin"
 " 'for-loop"
 "(if(pair?"
-" lst_108)"
+" lst_111)"
 "(let-values(((k_22)"
 "(unsafe-car"
-" lst_108))"
-"((rest_54)"
+" lst_111))"
+"((rest_55)"
 "(unsafe-cdr"
-" lst_108)))"
+" lst_111)))"
 "(let-values((()"
 "(let-values()"
 "(let-values((()"
@@ -18574,21 +18295,21 @@ static const char *startup_source =
 " k_22)"
 "(add-frontier!_0"
 "(hash-ref"
-" v_103"
+" v_102"
 " k_22))))"
 "(values)))))"
 "(values)))))"
 "(if(not"
 " #f)"
-"(for-loop_126"
-" rest_54)"
+"(for-loop_124"
+" rest_55)"
 "(values))))"
 "(values))))))"
-" for-loop_126)"
-" lst_107)))"
+" for-loop_124)"
+" lst_110)))"
 "(void)))))"
 "(if(prefab-struct-key"
-" v_103)"
+" v_102)"
 "(let-values()"
 "(begin"
 "(let-values(((v*_2"
@@ -18598,20 +18319,20 @@ static const char *startup_source =
 "(normalise-inputs"
 " 'in-vector"
 "                                                                                                                                     \"vector\""
-"(lambda(x_43)"
+"(lambda(x_45)"
 "(vector?"
-" x_43))"
-"(lambda(x_44)"
+" x_45))"
+"(lambda(x_46)"
 "(unsafe-vector-length"
-" x_44))"
+" x_46))"
 "(struct->vector"
-" v_103)"
+" v_102)"
 " 1"
 " #f"
 " 1)))"
 "(begin"
 " #t"
-"((letrec-values(((for-loop_127)"
+"((letrec-values(((for-loop_125)"
 "(lambda(idx_1)"
 "(begin"
 " 'for-loop"
@@ -18628,23 +18349,23 @@ static const char *startup_source =
 "(let-values()"
 "(begin"
 "(let-values()"
-"(loop_84"
+"(loop_11"
 " e_21))"
 "(values)))))"
 "(values)))))"
 "(if(not"
 " #f)"
-"(for-loop_127"
+"(for-loop_125"
 "(unsafe-fx+"
 " idx_1"
 " 1))"
 "(values))))"
 "(values))))))"
-" for-loop_127)"
+" for-loop_125)"
 " start*_1)))"
 "(void)))"
 "(if(srcloc?"
-" v_103)"
+" v_102)"
 "(let-values()"
 "(begin"
 "(let-values(((v*_3"
@@ -18654,20 +18375,20 @@ static const char *startup_source =
 "(normalise-inputs"
 " 'in-vector"
 "                                                                                                                                       \"vector\""
-"(lambda(x_45)"
+"(lambda(x_47)"
 "(vector?"
-" x_45))"
-"(lambda(x_46)"
+" x_47))"
+"(lambda(x_48)"
 "(unsafe-vector-length"
-" x_46))"
+" x_48))"
 "(struct->vector"
-" v_103)"
+" v_102)"
 " 1"
 " #f"
 " 1)))"
 "(begin"
 " #t"
-"((letrec-values(((for-loop_128)"
+"((letrec-values(((for-loop_126)"
 "(lambda(idx_2)"
 "(begin"
 " 'for-loop"
@@ -18684,57 +18405,57 @@ static const char *startup_source =
 "(let-values()"
 "(begin"
 "(let-values()"
-"(loop_84"
+"(loop_11"
 " e_22))"
 "(values)))))"
 "(values)))))"
 "(if(not"
 " #f)"
-"(for-loop_128"
+"(for-loop_126"
 "(unsafe-fx+"
 " idx_2"
 " 1))"
 "(values))))"
 "(values))))))"
-" for-loop_128)"
+" for-loop_126)"
 " start*_2)))"
 "(void)))"
 "(let-values()"
 "(void))))))))))"
 "(hash-set!"
 " objs_0"
-" v_103"
+" v_102"
 " obj-step_0)"
 "(set! obj-step_0"
 "(add1"
 " obj-step_0))))))))))"
-" loop_84)"
-" v_101)"
+" loop_11)"
+" v_100)"
 "(if(null? frontier_0)"
 "(void)"
 "(let-values()"
 "(let-values(((l_50) frontier_0))"
 "(begin"
 "(set! frontier_0 null)"
-"(let-values(((lst_109) l_50))"
+"(let-values(((lst_112) l_50))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
 "(#%variable-reference))"
 "(void)"
 "(let-values()"
-"(check-list lst_109)))"
-"((letrec-values(((for-loop_129)"
-"(lambda(lst_110)"
+"(check-list lst_112)))"
+"((letrec-values(((for-loop_127)"
+"(lambda(lst_113)"
 "(begin"
 " 'for-loop"
 "(if(pair?"
-" lst_110)"
+" lst_113)"
 "(let-values(((v_143)"
 "(unsafe-car"
-" lst_110))"
-"((rest_55)"
+" lst_113))"
+"((rest_56)"
 "(unsafe-cdr"
-" lst_110)))"
+" lst_113)))"
 "(let-values((()"
 "(let-values()"
 "(let-values((()"
@@ -18747,12 +18468,12 @@ static const char *startup_source =
 "(values)))))"
 "(if(not"
 " #f)"
-"(for-loop_129"
-" rest_55)"
+"(for-loop_127"
+" rest_56)"
 "(values))))"
 "(values))))))"
-" for-loop_129)"
-" lst_109)))"
+" for-loop_127)"
+" lst_112)))"
 "(void))))))))))"
 " frontier-loop_0)"
 " v_141)"
@@ -18761,116 +18482,116 @@ static const char *startup_source =
 "(let-values(((share-step-positions_0)"
 "(let-values(((share-steps_0)"
 "(reverse$1"
-"(let-values(((ht_86) shares_0))"
+"(let-values(((ht_83) shares_0))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
 "(#%variable-reference))"
 "(void)"
-"(let-values()(check-in-hash-keys ht_86)))"
-"((letrec-values(((for-loop_76)"
-"(lambda(fold-var_102 i_108)"
+"(let-values()(check-in-hash-keys ht_83)))"
+"((letrec-values(((for-loop_128)"
+"(lambda(fold-var_100 i_109)"
 "(begin"
 " 'for-loop"
-"(if i_108"
+"(if i_109"
 "(let-values(((obj_0)"
 "(hash-iterate-key"
-" ht_86"
-" i_108)))"
+" ht_83"
+" i_109)))"
+"(let-values(((fold-var_101)"
+"(let-values(((fold-var_102)"
+" fold-var_100))"
 "(let-values(((fold-var_103)"
-"(let-values(((fold-var_104)"
-" fold-var_102))"
-"(let-values(((fold-var_105)"
 "(let-values()"
 "(cons"
 "(let-values()"
 "(hash-ref"
 " objs_0"
 " obj_0))"
-" fold-var_104))))"
+" fold-var_102))))"
 "(values"
-" fold-var_105)))))"
+" fold-var_103)))))"
 "(if(not #f)"
-"(for-loop_76"
-" fold-var_103"
+"(for-loop_128"
+" fold-var_101"
 "(hash-iterate-next"
-" ht_86"
-" i_108))"
-" fold-var_103)))"
-" fold-var_102)))))"
-" for-loop_76)"
+" ht_83"
+" i_109))"
+" fold-var_101)))"
+" fold-var_100)))))"
+" for-loop_128)"
 " null"
-"(hash-iterate-first ht_86)))))))"
-"(let-values(((lst_111)"
+"(hash-iterate-first ht_83)))))))"
+"(let-values(((lst_114)"
 "(let-values(((share-steps12_0) share-steps_0)"
 "((<13_0) <))"
-"(sort7.1 #f #f #f #f share-steps12_0 <13_0)))"
+"(sort7.1 #f #f share-steps12_0 <13_0)))"
 "((start_20) num-mutables_0))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
-"(let-values()(check-list lst_111)))"
+"(let-values()(check-list lst_114)))"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
 "(let-values()(check-naturals start_20)))"
-"((letrec-values(((for-loop_130)"
-"(lambda(table_122 lst_112 pos_24)"
+"((letrec-values(((for-loop_129)"
+"(lambda(table_122 lst_115 pos_25)"
 "(begin"
 " 'for-loop"
-"(if(if(pair? lst_112) #t #f)"
+"(if(if(pair? lst_115) #t #f)"
 "(let-values(((step_3)"
-"(unsafe-car lst_112))"
-"((rest_56)"
-"(unsafe-cdr lst_112))"
-"((pos_25) pos_24))"
+"(unsafe-car lst_115))"
+"((rest_57)"
+"(unsafe-cdr lst_115))"
+"((pos_26) pos_25))"
 "(let-values(((table_123)"
 "(let-values(((table_124)"
 " table_122))"
-"(let-values(((table_37)"
+"(let-values(((table_38)"
 "(let-values()"
-"(let-values(((key_46"
+"(let-values(((key_47"
 " val_40)"
 "(let-values()"
 "(values"
 " step_3"
-" pos_25))))"
+" pos_26))))"
 "(hash-set"
 " table_124"
-" key_46"
+" key_47"
 " val_40)))))"
-"(values table_37)))))"
+"(values table_38)))))"
 "(if(not #f)"
-"(for-loop_130"
+"(for-loop_129"
 " table_123"
-" rest_56"
-"(+ pos_24 1))"
+" rest_57"
+"(+ pos_25 1))"
 " table_123)))"
 " table_122)))))"
-" for-loop_130)"
+" for-loop_129)"
 " '#hasheqv()"
-" lst_111"
+" lst_114"
 " start_20))))))"
 "(let-values(((stream_0) null))"
 "(let-values(((stream-size_0) 0))"
 "(let-values(((next-push-position_0)"
 "(lambda()(begin 'next-push-position stream-size_0))))"
 "(let-values(((quoted?_0)"
-"(lambda(pos_26)"
+"(lambda(pos_27)"
 "(begin"
 " 'quoted?"
 "(let-values(((v_144)"
 "(list-ref"
 " stream_0"
-"(- stream-size_0(add1 pos_26)))))"
+"(- stream-size_0(add1 pos_27)))))"
 "(let-values(((or-part_173)(not(keyword? v_144))))"
 "(if or-part_173 or-part_173(eq? '#:quote v_144))))))))"
 "(let-values(((ser-reset!_0)"
-"(lambda(pos_27)"
+"(lambda(pos_28)"
 "(begin"
 " 'ser-reset!"
 "(begin"
 "(set! stream_0"
-"(list-tail stream_0(- stream-size_0 pos_27)))"
-"(set! stream-size_0 pos_27))))))"
+"(list-tail stream_0(- stream-size_0 pos_28)))"
+"(set! stream-size_0 pos_28))))))"
 "(let-values(((reap-stream!_0)"
 "(lambda()"
 "(begin"
@@ -18980,7 +18701,7 @@ static const char *startup_source =
 "(length v_147))"
 "(values))))"
 "(let-values(((all-quoted?_0)"
-"(let-values(((lst_113)"
+"(let-values(((lst_116)"
 " v_147))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
@@ -18988,20 +18709,20 @@ static const char *startup_source =
 "(void)"
 "(let-values()"
 "(check-list"
-" lst_113)))"
-"((letrec-values(((for-loop_131)"
+" lst_116)))"
+"((letrec-values(((for-loop_130)"
 "(lambda(all-quoted?_1"
-" lst_114)"
+" lst_56)"
 "(begin"
 " 'for-loop"
 "(if(pair?"
-" lst_114)"
-"(let-values(((i_5)"
+" lst_56)"
+"(let-values(((i_110)"
 "(unsafe-car"
-" lst_114))"
-"((rest_57)"
+" lst_56))"
+"((rest_58)"
 "(unsafe-cdr"
-" lst_114)))"
+" lst_56)))"
 "(let-values(((all-quoted?_2)"
 "(let-values(((all-quoted?_3)"
 " all-quoted?_1))"
@@ -19011,7 +18732,7 @@ static const char *startup_source =
 "(next-push-position_0)))"
 "(begin"
 "(ser-push!_16"
-" i_5)"
+" i_110)"
 "(if all-quoted?_3"
 "(quoted?_0"
 " i-pos_0)"
@@ -19020,14 +18741,14 @@ static const char *startup_source =
 " all-quoted?_4)))))"
 "(if(not"
 " #f)"
-"(for-loop_131"
+"(for-loop_130"
 " all-quoted?_2"
-" rest_57)"
+" rest_58)"
 " all-quoted?_2)))"
 " all-quoted?_1)))))"
-" for-loop_131)"
+" for-loop_130)"
 " #t"
-" lst_113)))))"
+" lst_116)))))"
 "(if all-quoted?_0"
 "(let-values()"
 "(begin"
@@ -19113,7 +18834,7 @@ static const char *startup_source =
 "(values))))"
 "(let-values(((all-quoted?_5)"
 "(let-values(((vec_42"
-" len_18)"
+" len_17)"
 "(let-values(((vec_43)"
 " v_147))"
 "(begin"
@@ -19125,18 +18846,18 @@ static const char *startup_source =
 " vec_43))))))"
 "(begin"
 " #f"
-"((letrec-values(((for-loop_132)"
+"((letrec-values(((for-loop_131)"
 "(lambda(all-quoted?_6"
-" pos_28)"
+" pos_29)"
 "(begin"
 " 'for-loop"
 "(if(unsafe-fx<"
-" pos_28"
-" len_18)"
-"(let-values(((i_109)"
+" pos_29"
+" len_17)"
+"(let-values(((i_111)"
 "(unsafe-vector-ref"
 " vec_42"
-" pos_28)))"
+" pos_29)))"
 "(let-values(((all-quoted?_7)"
 "(let-values(((all-quoted?_8)"
 " all-quoted?_6))"
@@ -19146,7 +18867,7 @@ static const char *startup_source =
 "(next-push-position_0)))"
 "(begin"
 "(ser-push!_16"
-" i_109)"
+" i_111)"
 "(if all-quoted?_8"
 "(quoted?_0"
 " i-pos_1)"
@@ -19155,14 +18876,14 @@ static const char *startup_source =
 " all-quoted?_9)))))"
 "(if(not"
 " #f)"
-"(for-loop_132"
+"(for-loop_131"
 " all-quoted?_7"
 "(unsafe-fx+"
 " 1"
-" pos_28))"
+" pos_29))"
 " all-quoted?_7)))"
 " all-quoted?_6)))))"
-" for-loop_132)"
+" for-loop_131)"
 " #t"
 " 0)))))"
 "(if all-quoted?_5"
@@ -19180,7 +18901,7 @@ static const char *startup_source =
 "(let-values(((start-pos_4)"
 "(next-push-position_0)))"
 "(let-values(((as-set?_0)"
-"(let-values(((ht_87)"
+"(let-values(((ht_84)"
 " v_147))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
@@ -19188,46 +18909,46 @@ static const char *startup_source =
 "(void)"
 "(let-values()"
 "(check-in-hash-values"
-" ht_87)))"
-"((letrec-values(((for-loop_133)"
-"(lambda(result_68"
-" i_110)"
+" ht_84)))"
+"((letrec-values(((for-loop_132)"
+"(lambda(result_66"
+" i_112)"
 "(begin"
 " 'for-loop"
-"(if i_110"
+"(if i_112"
 "(let-values(((val_41)"
 "(hash-iterate-value"
-" ht_87"
-" i_110)))"
-"(let-values(((result_69)"
+" ht_84"
+" i_112)))"
+"(let-values(((result_67)"
 "(let-values()"
-"(let-values(((result_70)"
+"(let-values(((result_68)"
 "(let-values()"
 "(let-values()"
 "(eq?"
 " val_41"
 " #t)))))"
 "(values"
-" result_70)))))"
+" result_68)))))"
 "(if(if(not"
-"((lambda x_47"
+"((lambda x_49"
 "(not"
-" result_69))"
+" result_67))"
 " val_41))"
 "(not"
 " #f)"
 " #f)"
-"(for-loop_133"
-" result_69"
+"(for-loop_132"
+" result_67"
 "(hash-iterate-next"
-" ht_87"
-" i_110))"
-" result_69)))"
-" result_68)))))"
-" for-loop_133)"
+" ht_84"
+" i_112))"
+" result_67)))"
+" result_66)))))"
+" for-loop_132)"
 " #t"
 "(hash-iterate-first"
-" ht_87))))))"
+" ht_84))))))"
 "(let-values((()"
 "(begin"
 "(ser-push!_16"
@@ -19265,7 +18986,7 @@ static const char *startup_source =
 "(sorted-hash-keys"
 " v_147)))"
 "(let-values(((all-quoted?_10)"
-"(let-values(((lst_115)"
+"(let-values(((lst_117)"
 " ks_0))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
@@ -19273,20 +18994,20 @@ static const char *startup_source =
 "(void)"
 "(let-values()"
 "(check-list"
-" lst_115)))"
-"((letrec-values(((for-loop_134)"
+" lst_117)))"
+"((letrec-values(((for-loop_133)"
 "(lambda(all-quoted?_11"
-" lst_116)"
+" lst_118)"
 "(begin"
 " 'for-loop"
 "(if(pair?"
-" lst_116)"
+" lst_118)"
 "(let-values(((k_23)"
 "(unsafe-car"
-" lst_116))"
-"((rest_58)"
+" lst_118))"
+"((rest_59)"
 "(unsafe-cdr"
-" lst_116)))"
+" lst_118)))"
 "(let-values(((all-quoted?_12)"
 "(let-values(((all-quoted?_13)"
 " all-quoted?_11))"
@@ -19324,14 +19045,14 @@ static const char *startup_source =
 " all-quoted?_14)))))"
 "(if(not"
 " #f)"
-"(for-loop_134"
+"(for-loop_133"
 " all-quoted?_12"
-" rest_58)"
+" rest_59)"
 " all-quoted?_12)))"
 " all-quoted?_11)))))"
-" for-loop_134)"
+" for-loop_133)"
 " #t"
-" lst_115)))))"
+" lst_117)))))"
 "(if all-quoted?_10"
 "(let-values()"
 "(begin"
@@ -19380,19 +19101,19 @@ static const char *startup_source =
 "(normalise-inputs"
 " 'in-vector"
 "                                                                                                                                   \"vector\""
-"(lambda(x_48)"
+"(lambda(x_50)"
 "(vector?"
-" x_48))"
-"(lambda(x_49)"
+" x_50))"
+"(lambda(x_51)"
 "(unsafe-vector-length"
-" x_49))"
+" x_51))"
 " vec_44"
 " 1"
 " #f"
 " 1)))"
 "(begin"
 " #t"
-"((letrec-values(((for-loop_135)"
+"((letrec-values(((for-loop_134)"
 "(lambda(all-quoted?_16"
 " idx_3)"
 "(begin"
@@ -19400,7 +19121,7 @@ static const char *startup_source =
 "(if(unsafe-fx<"
 " idx_3"
 " stop*_4)"
-"(let-values(((i_111)"
+"(let-values(((i_113)"
 "(unsafe-vector-ref"
 " v*_4"
 " idx_3)))"
@@ -19413,7 +19134,7 @@ static const char *startup_source =
 "(next-push-position_0)))"
 "(begin"
 "(ser-push!_16"
-" i_111)"
+" i_113)"
 "(if all-quoted?_18"
 "(quoted?_0"
 " i-pos_2)"
@@ -19422,14 +19143,14 @@ static const char *startup_source =
 " all-quoted?_19)))))"
 "(if(not"
 " #f)"
-"(for-loop_135"
+"(for-loop_134"
 " all-quoted?_17"
 "(unsafe-fx+"
 " idx_3"
 " 1))"
 " all-quoted?_17)))"
 " all-quoted?_16)))))"
-" for-loop_135)"
+" for-loop_134)"
 " #t"
 " start*_3)))))"
 "(if all-quoted?_15"
@@ -19522,7 +19243,7 @@ static const char *startup_source =
 "(ser-push!_16"
 " 'exact"
 "(vector-length v_149))"
-"(let-values(((vec_45 len_19)"
+"(let-values(((vec_45 len_18)"
 "(let-values(((vec_46)"
 " v_149))"
 "(begin"
@@ -19533,17 +19254,17 @@ static const char *startup_source =
 " vec_46))))))"
 "(begin"
 " #f"
-"((letrec-values(((for-loop_136)"
-"(lambda(pos_29)"
+"((letrec-values(((for-loop_135)"
+"(lambda(pos_30)"
 "(begin"
 " 'for-loop"
 "(if(unsafe-fx<"
-" pos_29"
-" len_19)"
+" pos_30"
+" len_18)"
 "(let-values(((v_150)"
 "(unsafe-vector-ref"
 " vec_45"
-" pos_29)))"
+" pos_30)))"
 "(let-values((()"
 "(let-values()"
 "(let-values((()"
@@ -19556,13 +19277,13 @@ static const char *startup_source =
 "(values)))))"
 "(if(not"
 " #f)"
-"(for-loop_136"
+"(for-loop_135"
 "(unsafe-fx+"
 " 1"
-" pos_29))"
+" pos_30))"
 "(values))))"
 "(values))))))"
-" for-loop_136)"
+" for-loop_135)"
 " 0)))"
 "(void)))"
 "(if(hash? v_149)"
@@ -19583,25 +19304,25 @@ static const char *startup_source =
 "(sorted-hash-keys"
 " v_149)))"
 "(begin"
-"(let-values(((lst_117) ks_1))"
+"(let-values(((lst_119) ks_1))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
 "(#%variable-reference))"
 "(void)"
 "(let-values()"
-"(check-list lst_117)))"
-"((letrec-values(((for-loop_137)"
-"(lambda(lst_1)"
+"(check-list lst_119)))"
+"((letrec-values(((for-loop_136)"
+"(lambda(lst_120)"
 "(begin"
 " 'for-loop"
 "(if(pair?"
-" lst_1)"
+" lst_120)"
 "(let-values(((k_25)"
 "(unsafe-car"
-" lst_1))"
-"((rest_59)"
+" lst_120))"
+"((rest_60)"
 "(unsafe-cdr"
-" lst_1)))"
+" lst_120)))"
 "(let-values((()"
 "(let-values()"
 "(let-values((()"
@@ -19619,12 +19340,12 @@ static const char *startup_source =
 "(values)))))"
 "(if(not"
 " #f)"
-"(for-loop_137"
-" rest_59)"
+"(for-loop_136"
+" rest_60)"
 "(values))))"
 "(values))))))"
-" for-loop_137)"
-" lst_117)))"
+" for-loop_136)"
+" lst_119)))"
 "(void))))))"
 "(let-values()"
 "(error"
@@ -19632,28 +19353,28 @@ static const char *startup_source =
 "                                                                                 \"unknown mutable: ~e\""
 " v_149))))))))))"
 "(let-values(((rev-mutables_0)"
-"(let-values(((ht_88) mutables_0))"
+"(let-values(((ht_85) mutables_0))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
 "(#%variable-reference))"
 "(void)"
-"(let-values()(check-in-hash ht_88)))"
-"((letrec-values(((for-loop_138)"
-"(lambda(table_125 i_112)"
+"(let-values()(check-in-hash ht_85)))"
+"((letrec-values(((for-loop_137)"
+"(lambda(table_125 i_114)"
 "(begin"
 " 'for-loop"
-"(if i_112"
+"(if i_114"
 "(let-values(((k_26"
 " v_151)"
 "(hash-iterate-key+value"
-" ht_88"
-" i_112)))"
+" ht_85"
+" i_114)))"
 "(let-values(((table_126)"
 "(let-values(((table_127)"
 " table_125))"
 "(let-values(((table_128)"
 "(let-values()"
-"(let-values(((key_47"
+"(let-values(((key_48"
 " val_42)"
 "(let-values()"
 "(values"
@@ -19661,21 +19382,21 @@ static const char *startup_source =
 " k_26))))"
 "(hash-set"
 " table_127"
-" key_47"
+" key_48"
 " val_42)))))"
 "(values"
 " table_128)))))"
 "(if(not #f)"
-"(for-loop_138"
+"(for-loop_137"
 " table_126"
 "(hash-iterate-next"
-" ht_88"
-" i_112))"
+" ht_85"
+" i_114))"
 " table_126)))"
 " table_125)))))"
-" for-loop_138)"
+" for-loop_137)"
 " '#hasheqv()"
-"(hash-iterate-first ht_88))))))"
+"(hash-iterate-first ht_85))))))"
 "(let-values(((mutable-shell-bindings_0)"
 "(begin"
 "(begin"
@@ -19689,15 +19410,15 @@ static const char *startup_source =
 "(void)"
 "(let-values()"
 "(check-range start_21 end_13 inc_7)))"
-"((letrec-values(((for-loop_139)"
-"(lambda(pos_30)"
+"((letrec-values(((for-loop_138)"
+"(lambda(pos_31)"
 "(begin"
 " 'for-loop"
 "(if(<"
-" pos_30"
+" pos_31"
 " end_13)"
-"(let-values(((i_113)"
-" pos_30))"
+"(let-values(((i_115)"
+" pos_31))"
 "(let-values((()"
 "(let-values()"
 "(let-values((()"
@@ -19707,43 +19428,43 @@ static const char *startup_source =
 "(ser-shell!_0"
 "(hash-ref"
 " rev-mutables_0"
-" i_113)))"
+" i_115)))"
 "(values)))))"
 "(values)))))"
 "(if(not #f)"
-"(for-loop_139"
+"(for-loop_138"
 "(+"
-" pos_30"
+" pos_31"
 " inc_7))"
 "(values))))"
 "(values))))))"
-" for-loop_139)"
+" for-loop_138)"
 " start_21)))"
 "(void))"
 "(reap-stream!_0))))"
 "(let-values(((rev-shares_0)"
-"(let-values(((ht_89) shares_0))"
+"(let-values(((ht_86) shares_0))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
 "(#%variable-reference))"
 "(void)"
 "(let-values()"
-"(check-in-hash-keys ht_89)))"
-"((letrec-values(((for-loop_140)"
-"(lambda(table_129 i_114)"
+"(check-in-hash-keys ht_86)))"
+"((letrec-values(((for-loop_139)"
+"(lambda(table_129 i_116)"
 "(begin"
 " 'for-loop"
-"(if i_114"
+"(if i_116"
 "(let-values(((obj_1)"
 "(hash-iterate-key"
-" ht_89"
-" i_114)))"
+" ht_86"
+" i_116)))"
 "(let-values(((table_130)"
 "(let-values(((table_131)"
 " table_129))"
 "(let-values(((table_132)"
 "(let-values()"
-"(let-values(((key_48"
+"(let-values(((key_49"
 " val_43)"
 "(let-values()"
 "(values"
@@ -19755,21 +19476,21 @@ static const char *startup_source =
 " obj_1))))"
 "(hash-set"
 " table_131"
-" key_48"
+" key_49"
 " val_43)))))"
 "(values"
 " table_132)))))"
 "(if(not #f)"
-"(for-loop_140"
+"(for-loop_139"
 " table_130"
 "(hash-iterate-next"
-" ht_89"
-" i_114))"
+" ht_86"
+" i_116))"
 " table_130)))"
 " table_129)))))"
-" for-loop_140)"
+" for-loop_139)"
 " '#hasheqv()"
-"(hash-iterate-first ht_89))))))"
+"(hash-iterate-first ht_86))))))"
 "(let-values(((shared-bindings_0)"
 "(begin"
 "(begin"
@@ -19788,15 +19509,15 @@ static const char *startup_source =
 " start_22"
 " end_14"
 " inc_8)))"
-"((letrec-values(((for-loop_141)"
-"(lambda(pos_31)"
+"((letrec-values(((for-loop_140)"
+"(lambda(pos_32)"
 "(begin"
 " 'for-loop"
 "(if(<"
-" pos_31"
+" pos_32"
 " end_14)"
-"(let-values(((i_11)"
-" pos_31))"
+"(let-values(((i_117)"
+" pos_32))"
 "(let-values((()"
 "(let-values()"
 "(let-values((()"
@@ -19806,18 +19527,18 @@ static const char *startup_source =
 "(ser-push-encoded!_0"
 "(hash-ref"
 " rev-shares_0"
-" i_11)))"
+" i_117)))"
 "(values)))))"
 "(values)))))"
 "(if(not"
 " #f)"
-"(for-loop_141"
+"(for-loop_140"
 "(+"
-" pos_31"
+" pos_32"
 " inc_8))"
 "(values))))"
 "(values))))))"
-" for-loop_141)"
+" for-loop_140)"
 " start_22)))"
 "(void))"
 "(reap-stream!_0))))"
@@ -19837,15 +19558,15 @@ static const char *startup_source =
 " start_23"
 " end_15"
 " inc_9)))"
-"((letrec-values(((for-loop_142)"
-"(lambda(pos_32)"
+"((letrec-values(((for-loop_141)"
+"(lambda(pos_33)"
 "(begin"
 " 'for-loop"
 "(if(<"
-" pos_32"
+" pos_33"
 " end_15)"
-"(let-values(((i_115)"
-" pos_32))"
+"(let-values(((i_118)"
+" pos_33))"
 "(let-values((()"
 "(let-values()"
 "(let-values((()"
@@ -19855,18 +19576,18 @@ static const char *startup_source =
 "(ser-shell-fill!_0"
 "(hash-ref"
 " rev-mutables_0"
-" i_115)))"
+" i_118)))"
 "(values)))))"
 "(values)))))"
 "(if(not"
 " #f)"
-"(for-loop_142"
+"(for-loop_141"
 "(+"
-" pos_32"
+" pos_33"
 " inc_9))"
 "(values))))"
 "(values))))))"
-" for-loop_142)"
+" for-loop_141)"
 " start_23)))"
 "(void))"
 "(reap-stream!_0))))"
@@ -19887,30 +19608,30 @@ static const char *startup_source =
 "(reap-stream!_0))))))))))))))))))))))))))))))))))))"
 "(define-values"
 "(sorted-hash-keys)"
-"(lambda(ht_90)"
+"(lambda(ht_87)"
 "(begin"
-"(let-values(((ks_2)(hash-keys ht_90)))"
+"(let-values(((ks_2)(hash-keys ht_87)))"
 "(if(null? ks_2)"
 "(let-values() ks_2)"
 "(if(null?(cdr ks_2))"
 "(let-values() ks_2)"
 "(if(andmap2 symbol? ks_2)"
 "(let-values()"
-"(let-values(((ks14_0) ks_2)((symbol<?15_0) symbol<?))(sort7.1 #f #f #f #f ks14_0 symbol<?15_0)))"
+"(let-values(((ks14_0) ks_2)((symbol<?15_0) symbol<?))(sort7.1 #f #f ks14_0 symbol<?15_0)))"
 "(if(andmap2 scope? ks_2)"
 "(let-values()"
-"(let-values(((ks16_0) ks_2)((scope<?17_0) scope<?))(sort7.1 #f #f #f #f ks16_0 scope<?17_0)))"
+"(let-values(((ks16_0) ks_2)((scope<?17_0) scope<?))(sort7.1 #f #f ks16_0 scope<?17_0)))"
 "(if(andmap2 shifted-multi-scope? ks_2)"
 "(let-values()"
 "(let-values(((ks18_0) ks_2)((shifted-multi-scope<?19_0) shifted-multi-scope<?))"
-"(sort7.1 #f #f #f #f ks18_0 shifted-multi-scope<?19_0)))"
+"(sort7.1 #f #f ks18_0 shifted-multi-scope<?19_0)))"
 "(if(andmap2 real? ks_2)"
-"(let-values()(let-values(((ks20_0) ks_2)((<21_0) <))(sort7.1 #f #f #f #f ks20_0 <21_0)))"
+"(let-values()(let-values(((ks20_0) ks_2)((<21_0) <))(sort7.1 #f #f ks20_0 <21_0)))"
 "(let-values() ks_2)))))))))))"
 "(define-values"
 "(deserialize)"
 "(lambda(mpis_7"
-" inspector_4"
+" inspector_5"
 " bulk-binding-registry_5"
 " num-mutables_1"
 " mutable-vec_0"
@@ -19927,34 +19648,34 @@ static const char *startup_source =
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
 "(let-values()(check-range start_24 end_16 inc_10)))"
-"((letrec-values(((for-loop_143)"
-"(lambda(pos_33 pos_34)"
+"((letrec-values(((for-loop_142)"
+"(lambda(pos_34 pos_35)"
 "(begin"
 " 'for-loop"
-"(if(< pos_34 end_16)"
-"(let-values(((i_116) pos_34))"
-"(let-values(((pos_35)"
-"(let-values(((pos_36) pos_33))"
-"(let-values(((pos_37)"
+"(if(< pos_35 end_16)"
+"(let-values(((i_119) pos_35))"
+"(let-values(((pos_36)"
+"(let-values(((pos_37) pos_34))"
+"(let-values(((pos_38)"
 "(let-values()"
 "(let-values(((d_22 next-pos_0)"
 "(decode-shell"
 " mutable-vec_0"
-" pos_36"
+" pos_37"
 " mpis_7"
-" inspector_4"
+" inspector_5"
 " bulk-binding-registry_5"
 " shared_0)))"
 "(begin"
 "(vector-set!"
 " shared_0"
-" i_116"
+" i_119"
 " d_22)"
 " next-pos_0)))))"
-"(values pos_37)))))"
-"(if(not #f)(for-loop_143 pos_35(+ pos_34 inc_10)) pos_35)))"
-" pos_33)))))"
-" for-loop_143)"
+"(values pos_38)))))"
+"(if(not #f)(for-loop_142 pos_36(+ pos_35 inc_10)) pos_36)))"
+" pos_34)))))"
+" for-loop_142)"
 " 0"
 " start_24)))"
 "(values))))"
@@ -19967,34 +19688,34 @@ static const char *startup_source =
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
 "(let-values()(check-range start_25 end_17 inc_11)))"
-"((letrec-values(((for-loop_144)"
-"(lambda(pos_38 pos_39)"
+"((letrec-values(((for-loop_143)"
+"(lambda(pos_39 pos_40)"
 "(begin"
 " 'for-loop"
-"(if(< pos_39 end_17)"
-"(let-values(((i_117) pos_39))"
-"(let-values(((pos_40)"
-"(let-values(((pos_41) pos_38))"
-"(let-values(((pos_42)"
+"(if(< pos_40 end_17)"
+"(let-values(((i_120) pos_40))"
+"(let-values(((pos_41)"
+"(let-values(((pos_42) pos_39))"
+"(let-values(((pos_43)"
 "(let-values()"
 "(let-values(((d_23 next-pos_1)"
 "(decode"
 " shared-vec_0"
-" pos_41"
+" pos_42"
 " mpis_7"
-" inspector_4"
+" inspector_5"
 " bulk-binding-registry_5"
 " shared_0)))"
 "(begin"
 "(vector-set!"
 " shared_0"
-" i_117"
+" i_120"
 " d_23)"
 " next-pos_1)))))"
-"(values pos_42)))))"
-"(if(not #f)(for-loop_144 pos_40(+ pos_39 inc_11)) pos_40)))"
-" pos_38)))))"
-" for-loop_144)"
+"(values pos_43)))))"
+"(if(not #f)(for-loop_143 pos_41(+ pos_40 inc_11)) pos_41)))"
+" pos_39)))))"
+" for-loop_143)"
 " 0"
 " start_25)))"
 "(values))))"
@@ -20003,7 +19724,7 @@ static const char *startup_source =
 "(let-values(((start_26) 0)"
 "((end_18) num-mutables_1)"
 "((inc_12) 1)"
-"((vec_47 len_20)"
+"((vec_47 len_19)"
 "(let-values(((vec_48) shared_0))"
 "(begin"
 "(check-vector vec_48)"
@@ -20013,62 +19734,62 @@ static const char *startup_source =
 "(void)"
 "(let-values()(check-range start_26 end_18 inc_12)))"
 " #f"
-"((letrec-values(((for-loop_145)"
-"(lambda(pos_43 pos_44 pos_45)"
+"((letrec-values(((for-loop_144)"
+"(lambda(pos_44 pos_45 pos_46)"
 "(begin"
 " 'for-loop"
-"(if(if(< pos_44 end_18)(unsafe-fx< pos_45 len_20) #f)"
-"(let-values(((v_152)(unsafe-vector-ref vec_47 pos_45)))"
-"(let-values(((pos_46)"
-"(let-values(((pos_47) pos_43))"
-"(let-values(((pos_48)"
+"(if(if(< pos_45 end_18)(unsafe-fx< pos_46 len_19) #f)"
+"(let-values(((v_152)(unsafe-vector-ref vec_47 pos_46)))"
+"(let-values(((pos_47)"
+"(let-values(((pos_48) pos_44))"
+"(let-values(((pos_49)"
 "(let-values()"
 "(decode-fill!"
 " v_152"
 " mutable-fill-vec_0"
-" pos_47"
+" pos_48"
 " mpis_7"
-" inspector_4"
+" inspector_5"
 " bulk-binding-registry_5"
 " shared_0))))"
-"(values pos_48)))))"
+"(values pos_49)))))"
 "(if(not #f)"
-"(for-loop_145"
-" pos_46"
-"(+ pos_44 inc_12)"
-"(unsafe-fx+ 1 pos_45))"
-" pos_46)))"
-" pos_43)))))"
-" for-loop_145)"
+"(for-loop_144"
+" pos_47"
+"(+ pos_45 inc_12)"
+"(unsafe-fx+ 1 pos_46))"
+" pos_47)))"
+" pos_44)))))"
+" for-loop_144)"
 " 0"
 " start_26"
 " 0)))"
 "(values))))"
-"(let-values(((result_71 done-pos_0)"
-"(decode result-vec_0 0 mpis_7 inspector_4 bulk-binding-registry_5 shared_0)))"
-" result_71))))))))"
+"(let-values(((result_69 done-pos_0)"
+"(decode result-vec_0 0 mpis_7 inspector_5 bulk-binding-registry_5 shared_0)))"
+" result_69))))))))"
 "(define-values"
 "(decode-shell)"
-"(lambda(vec_49 pos_49 mpis_8 inspector_5 bulk-binding-registry_6 shared_1)"
+"(lambda(vec_49 pos_50 mpis_8 inspector_6 bulk-binding-registry_6 shared_1)"
 "(begin"
-"(let-values(((tmp_19)(vector*-ref vec_49 pos_49)))"
+"(let-values(((tmp_19)(vector*-ref vec_49 pos_50)))"
 "(if(equal? tmp_19 '#:box)"
-"(let-values()(values(box #f)(add1 pos_49)))"
+"(let-values()(values(box #f)(add1 pos_50)))"
 "(if(equal? tmp_19 '#:vector)"
-"(let-values()(values(make-vector(vector*-ref vec_49(add1 pos_49)))(+ pos_49 2)))"
+"(let-values()(values(make-vector(vector*-ref vec_49(add1 pos_50)))(+ pos_50 2)))"
 "(if(equal? tmp_19 '#:hash)"
-"(let-values()(values(make-hasheq)(add1 pos_49)))"
+"(let-values()(values(make-hasheq)(add1 pos_50)))"
 "(if(equal? tmp_19 '#:hasheq)"
-"(let-values()(values(make-hasheq)(add1 pos_49)))"
+"(let-values()(values(make-hasheq)(add1 pos_50)))"
 "(if(equal? tmp_19 '#:hasheqv)"
-"(let-values()(values(make-hasheqv)(add1 pos_49)))"
-"(let-values()(decode vec_49 pos_49 mpis_8 inspector_5 bulk-binding-registry_6 shared_1)))))))))))"
+"(let-values()(values(make-hasheqv)(add1 pos_50)))"
+"(let-values()(decode vec_49 pos_50 mpis_8 inspector_6 bulk-binding-registry_6 shared_1)))))))))))"
 "(define-values"
 "(decode)"
-"(lambda(vec_50 pos_50 mpis_9 inspector_6 bulk-binding-registry_7 shared_2)"
+"(lambda(vec_50 pos_51 mpis_9 inspector_7 bulk-binding-registry_7 shared_2)"
 "(begin"
 "(let-values()"
-"(let-values(((tmp_20)(vector*-ref vec_50 pos_50)))"
+"(let-values(((tmp_20)(vector*-ref vec_50 pos_51)))"
 "(let-values(((index_0)"
 "(if(keyword? tmp_20)"
 "(hash-ref"
@@ -20112,106 +19833,106 @@ static const char *startup_source =
 "(if(unsafe-fx< index_0 6)"
 "(if(unsafe-fx< index_0 2)"
 "(if(unsafe-fx< index_0 1)"
-"(let-values()(values(vector*-ref vec_50 pos_50)(add1 pos_50)))"
-"(let-values()(values(vector*-ref shared_2(vector*-ref vec_50(add1 pos_50)))(+ pos_50 2))))"
+"(let-values()(values(vector*-ref vec_50 pos_51)(add1 pos_51)))"
+"(let-values()(values(vector*-ref shared_2(vector*-ref vec_50(add1 pos_51)))(+ pos_51 2))))"
 "(if(unsafe-fx< index_0 3)"
-"(let-values()(values inspector_6(add1 pos_50)))"
+"(let-values()(values inspector_7(add1 pos_51)))"
 "(if(unsafe-fx< index_0 4)"
-"(let-values()(values bulk-binding-registry_7(add1 pos_50)))"
+"(let-values()(values bulk-binding-registry_7(add1 pos_51)))"
 "(if(unsafe-fx< index_0 5)"
 "(let-values()"
 "(let-values(((content_8 next-pos_2)"
 "(decode"
 " vec_50"
-"(add1 pos_50)"
+"(add1 pos_51)"
 " mpis_9"
-" inspector_6"
+" inspector_7"
 " bulk-binding-registry_7"
 " shared_2)))"
 "(let-values(((context_2 next-pos_3)"
-"(let-values(((i_118)(vector*-ref vec_50 next-pos_2)))"
-"(if(exact-integer? i_118)"
-"(values(vector*-ref shared_2 i_118)(add1 next-pos_2))"
+"(let-values(((i_121)(vector*-ref vec_50 next-pos_2)))"
+"(if(exact-integer? i_121)"
+"(values(vector*-ref shared_2 i_121)(add1 next-pos_2))"
 "(decode"
 " vec_50"
 " next-pos_2"
 " mpis_9"
-" inspector_6"
+" inspector_7"
 " bulk-binding-registry_7"
 " shared_2)))))"
 "(let-values(((srcloc_3 next-pos_4)"
-"(let-values(((i_119)(vector*-ref vec_50 next-pos_3)))"
-"(if(exact-integer? i_119)"
-"(values(vector*-ref shared_2 i_119)(add1 next-pos_3))"
+"(let-values(((i_122)(vector*-ref vec_50 next-pos_3)))"
+"(if(exact-integer? i_122)"
+"(values(vector*-ref shared_2 i_122)(add1 next-pos_3))"
 "(decode"
 " vec_50"
 " next-pos_3"
 " mpis_9"
-" inspector_6"
+" inspector_7"
 " bulk-binding-registry_7"
 " shared_2)))))"
 "(values"
-"(deserialize-syntax content_8 context_2 srcloc_3 #f #f inspector_6)"
+"(deserialize-syntax content_8 context_2 srcloc_3 #f #f inspector_7)"
 " next-pos_4)))))"
 "(let-values()"
 "(let-values(((content_9 next-pos_5)"
 "(decode"
 " vec_50"
-"(add1 pos_50)"
+"(add1 pos_51)"
 " mpis_9"
-" inspector_6"
+" inspector_7"
 " bulk-binding-registry_7"
 " shared_2)))"
 "(let-values(((context_3 next-pos_6)"
-"(let-values(((i_120)(vector*-ref vec_50 next-pos_5)))"
-"(if(exact-integer? i_120)"
-"(values(vector*-ref shared_2 i_120)(add1 next-pos_5))"
+"(let-values(((i_123)(vector*-ref vec_50 next-pos_5)))"
+"(if(exact-integer? i_123)"
+"(values(vector*-ref shared_2 i_123)(add1 next-pos_5))"
 "(decode"
 " vec_50"
 " next-pos_5"
 " mpis_9"
-" inspector_6"
+" inspector_7"
 " bulk-binding-registry_7"
 " shared_2)))))"
 "(let-values(((srcloc_4 next-pos_7)"
-"(let-values(((i_121)(vector*-ref vec_50 next-pos_6)))"
-"(if(exact-integer? i_121)"
-"(values(vector*-ref shared_2 i_121)(add1 next-pos_6))"
+"(let-values(((i_124)(vector*-ref vec_50 next-pos_6)))"
+"(if(exact-integer? i_124)"
+"(values(vector*-ref shared_2 i_124)(add1 next-pos_6))"
 "(decode"
 " vec_50"
 " next-pos_6"
 " mpis_9"
-" inspector_6"
+" inspector_7"
 " bulk-binding-registry_7"
 " shared_2)))))"
 "(values"
-"(deserialize-datum->syntax content_9 context_3 srcloc_4 inspector_6)"
+"(deserialize-datum->syntax content_9 context_3 srcloc_4 inspector_7)"
 " next-pos_7)))))))))"
 "(if(unsafe-fx< index_0 9)"
 "(if(unsafe-fx< index_0 7)"
 "(let-values()"
 "(let-values(((content_10 next-pos_8)"
-"(decode vec_50(add1 pos_50) mpis_9 inspector_6 bulk-binding-registry_7 shared_2)))"
+"(decode vec_50(add1 pos_51) mpis_9 inspector_7 bulk-binding-registry_7 shared_2)))"
 "(let-values(((context_4 next-pos_9)"
-"(let-values(((i_122)(vector*-ref vec_50 next-pos_8)))"
-"(if(exact-integer? i_122)"
-"(values(vector*-ref shared_2 i_122)(add1 next-pos_8))"
+"(let-values(((i_125)(vector*-ref vec_50 next-pos_8)))"
+"(if(exact-integer? i_125)"
+"(values(vector*-ref shared_2 i_125)(add1 next-pos_8))"
 "(decode"
 " vec_50"
 " next-pos_8"
 " mpis_9"
-" inspector_6"
+" inspector_7"
 " bulk-binding-registry_7"
 " shared_2)))))"
 "(let-values(((srcloc_5 next-pos_10)"
-"(let-values(((i_123)(vector*-ref vec_50 next-pos_9)))"
-"(if(exact-integer? i_123)"
-"(values(vector*-ref shared_2 i_123)(add1 next-pos_9))"
+"(let-values(((i_126)(vector*-ref vec_50 next-pos_9)))"
+"(if(exact-integer? i_126)"
+"(values(vector*-ref shared_2 i_126)(add1 next-pos_9))"
 "(decode"
 " vec_50"
 " next-pos_9"
 " mpis_9"
-" inspector_6"
+" inspector_7"
 " bulk-binding-registry_7"
 " shared_2)))))"
 "(let-values(((props_1 next-pos_11)"
@@ -20219,7 +19940,7 @@ static const char *startup_source =
 " vec_50"
 " next-pos_10"
 " mpis_9"
-" inspector_6"
+" inspector_7"
 " bulk-binding-registry_7"
 " shared_2)))"
 "(let-values(((tamper_2 next-pos_12)"
@@ -20227,20 +19948,20 @@ static const char *startup_source =
 " vec_50"
 " next-pos_11"
 " mpis_9"
-" inspector_6"
+" inspector_7"
 " bulk-binding-registry_7"
 " shared_2)))"
 "(values"
-"(deserialize-syntax content_10 context_4 srcloc_5 props_1 tamper_2 inspector_6)"
+"(deserialize-syntax content_10 context_4 srcloc_5 props_1 tamper_2 inspector_7)"
 " next-pos_12)))))))"
 "(if(unsafe-fx< index_0 8)"
 "(let-values()"
 "(let-values(((source_0 next-pos_13)"
 "(decode"
 " vec_50"
-"(add1 pos_50)"
+"(add1 pos_51)"
 " mpis_9"
-" inspector_6"
+" inspector_7"
 " bulk-binding-registry_7"
 " shared_2)))"
 "(let-values(((line_0 next-pos_14)"
@@ -20248,7 +19969,7 @@ static const char *startup_source =
 " vec_50"
 " next-pos_13"
 " mpis_9"
-" inspector_6"
+" inspector_7"
 " bulk-binding-registry_7"
 " shared_2)))"
 "(let-values(((column_0 next-pos_15)"
@@ -20256,7 +19977,7 @@ static const char *startup_source =
 " vec_50"
 " next-pos_14"
 " mpis_9"
-" inspector_6"
+" inspector_7"
 " bulk-binding-registry_7"
 " shared_2)))"
 "(let-values(((position_0 next-pos_16)"
@@ -20264,7 +19985,7 @@ static const char *startup_source =
 " vec_50"
 " next-pos_15"
 " mpis_9"
-" inspector_6"
+" inspector_7"
 " bulk-binding-registry_7"
 " shared_2)))"
 "(let-values(((span_0 next-pos_17)"
@@ -20272,21 +19993,21 @@ static const char *startup_source =
 " vec_50"
 " next-pos_16"
 " mpis_9"
-" inspector_6"
+" inspector_7"
 " bulk-binding-registry_7"
 " shared_2)))"
 "(values(srcloc source_0 line_0 column_0 position_0 span_0) next-pos_17)))))))"
-"(let-values()(values(vector*-ref vec_50(add1 pos_50))(+ pos_50 2)))))"
+"(let-values()(values(vector*-ref vec_50(add1 pos_51))(+ pos_51 2)))))"
 "(if(unsafe-fx< index_0 11)"
 "(if(unsafe-fx< index_0 10)"
-"(let-values()(values(vector*-ref mpis_9(vector*-ref vec_50(add1 pos_50)))(+ pos_50 2)))"
+"(let-values()(values(vector*-ref mpis_9(vector*-ref vec_50(add1 pos_51)))(+ pos_51 2)))"
 "(let-values()"
 "(let-values(((v_153 next-pos_18)"
 "(decode"
 " vec_50"
-"(add1 pos_50)"
+"(add1 pos_51)"
 " mpis_9"
-" inspector_6"
+" inspector_7"
 " bulk-binding-registry_7"
 " shared_2)))"
 "(values(box-immutable v_153) next-pos_18))))"
@@ -20295,9 +20016,9 @@ static const char *startup_source =
 "(let-values(((a_38 next-pos_19)"
 "(decode"
 " vec_50"
-"(add1 pos_50)"
+"(add1 pos_51)"
 " mpis_9"
-" inspector_6"
+" inspector_7"
 " bulk-binding-registry_7"
 " shared_2)))"
 "(let-values(((d_24 next-pos_20)"
@@ -20305,29 +20026,29 @@ static const char *startup_source =
 " vec_50"
 " next-pos_19"
 " mpis_9"
-" inspector_6"
+" inspector_7"
 " bulk-binding-registry_7"
 " shared_2)))"
 "(values(cons a_38 d_24) next-pos_20))))"
 "(if(unsafe-fx< index_0 13)"
 "(let-values()"
-"(let-values(((len_21)(vector*-ref vec_50(add1 pos_50))))"
-"(let-values(((r_29)(make-vector len_21)))"
+"(let-values(((len_20)(vector*-ref vec_50(add1 pos_51))))"
+"(let-values(((r_29)(make-vector len_20)))"
 "(let-values(((next-pos_21)"
-"(let-values(((start_27) 0)((end_19) len_21)((inc_13) 1))"
+"(let-values(((start_27) 0)((end_19) len_20)((inc_13) 1))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
 "(let-values()(check-range start_27 end_19 inc_13)))"
-"((letrec-values(((for-loop_146)"
-"(lambda(pos_51 pos_52)"
+"((letrec-values(((for-loop_145)"
+"(lambda(pos_52 pos_53)"
 "(begin"
 " 'for-loop"
-"(if(< pos_52 end_19)"
-"(let-values(((i_124) pos_52))"
-"(let-values(((pos_53)"
-"(let-values(((pos_54) pos_51))"
-"(let-values(((pos_55)"
+"(if(< pos_53 end_19)"
+"(let-values(((i_127) pos_53))"
+"(let-values(((pos_54)"
+"(let-values(((pos_55) pos_52))"
+"(let-values(((pos_56)"
 "(let-values()"
 "(let-values(((v_154"
 " next-pos_22)"
@@ -20335,9 +20056,9 @@ static const char *startup_source =
 " next-pos_23)"
 "(decode"
 " vec_50"
-" pos_54"
+" pos_55"
 " mpis_9"
-" inspector_6"
+" inspector_7"
 " bulk-binding-registry_7"
 " shared_2)))"
 "(values"
@@ -20346,25 +20067,25 @@ static const char *startup_source =
 "(begin"
 "(vector-set!"
 " r_29"
-" i_124"
+" i_127"
 " v_154)"
 " next-pos_22)))))"
-"(values pos_55)))))"
+"(values pos_56)))))"
 "(if(not #f)"
-"(for-loop_146 pos_53(+ pos_52 inc_13))"
-" pos_53)))"
-" pos_51)))))"
-" for-loop_146)"
-"(+ pos_50 2)"
+"(for-loop_145 pos_54(+ pos_53 inc_13))"
+" pos_54)))"
+" pos_52)))))"
+" for-loop_145)"
+"(+ pos_51 2)"
 " start_27)))))"
 "(values"
-"(if(eq?(vector*-ref vec_50 pos_50) '#:list)"
+"(if(eq?(vector*-ref vec_50 pos_51) '#:list)"
 "(vector->list r_29)"
 "(vector->immutable-vector r_29))"
 " next-pos_21)))))"
 "(let-values()"
-"(let-values(((ht_55)"
-"(let-values(((tmp_21)(vector*-ref vec_50 pos_50)))"
+"(let-values(((ht_53)"
+"(let-values(((tmp_21)(vector*-ref vec_50 pos_51)))"
 "(if(equal? tmp_21 '#:hash)"
 "(let-values()(hash))"
 "(if(equal? tmp_21 '#:hasheq)"
@@ -20372,30 +20093,30 @@ static const char *startup_source =
 "(if(equal? tmp_21 '#:hasheqv)"
 "(let-values()(hasheqv))"
 "(let-values()(void))))))))"
-"(let-values(((len_22)(vector*-ref vec_50(add1 pos_50))))"
-"(let-values(((start_28) 0)((end_20) len_22)((inc_14) 1))"
+"(let-values(((len_21)(vector*-ref vec_50(add1 pos_51))))"
+"(let-values(((start_28) 0)((end_20) len_21)((inc_14) 1))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
 "(let-values()(check-range start_28 end_20 inc_14)))"
-"((letrec-values(((for-loop_147)"
-"(lambda(ht_91 pos_56 pos_57)"
+"((letrec-values(((for-loop_146)"
+"(lambda(ht_88 pos_57 pos_58)"
 "(begin"
 " 'for-loop"
-"(if(< pos_57 end_20)"
+"(if(< pos_58 end_20)"
 "(let-values()"
-"(let-values(((ht_92 pos_58)"
-"(let-values(((ht_93) ht_91)"
-"((pos_59) pos_56))"
-"(let-values(((ht_94 pos_60)"
+"(let-values(((ht_89 pos_59)"
+"(let-values(((ht_90) ht_88)"
+"((pos_60) pos_57))"
+"(let-values(((ht_91 pos_61)"
 "(let-values()"
 "(let-values(((k_27"
 " next-pos_24)"
 "(decode"
 " vec_50"
-" pos_59"
+" pos_60"
 " mpis_9"
-" inspector_6"
+" inspector_7"
 " bulk-binding-registry_7"
 " shared_2)))"
 "(let-values(((v_156"
@@ -20404,30 +20125,30 @@ static const char *startup_source =
 " vec_50"
 " next-pos_24"
 " mpis_9"
-" inspector_6"
+" inspector_7"
 " bulk-binding-registry_7"
 " shared_2)))"
 "(values"
 "(hash-set"
-" ht_93"
+" ht_90"
 " k_27"
 " v_156)"
 " next-pos_25))))))"
-"(values ht_94 pos_60)))))"
+"(values ht_91 pos_61)))))"
 "(if(not #f)"
-"(for-loop_147 ht_92 pos_58(+ pos_57 inc_14))"
-"(values ht_92 pos_58))))"
-"(values ht_91 pos_56))))))"
-" for-loop_147)"
-" ht_55"
-"(+ pos_50 2)"
+"(for-loop_146 ht_89 pos_59(+ pos_58 inc_14))"
+"(values ht_89 pos_59))))"
+"(values ht_88 pos_57))))))"
+" for-loop_146)"
+" ht_53"
+"(+ pos_51 2)"
 " start_28)))))))))))"
 "(if(unsafe-fx< index_0 21)"
 "(if(unsafe-fx< index_0 17)"
 "(if(unsafe-fx< index_0 15)"
 "(let-values()"
-"(let-values(((s_194)"
-"(let-values(((tmp_22)(vector*-ref vec_50 pos_50)))"
+"(let-values(((s_191)"
+"(let-values(((tmp_22)(vector*-ref vec_50 pos_51)))"
 "(if(equal? tmp_22 '#:set)"
 "(let-values()(set))"
 "(if(equal? tmp_22 '#:seteq)"
@@ -20435,79 +20156,79 @@ static const char *startup_source =
 "(if(equal? tmp_22 '#:seteqv)"
 "(let-values()(seteqv))"
 "(let-values()(void))))))))"
-"(let-values(((len_23)(vector*-ref vec_50(add1 pos_50))))"
-"(let-values(((start_29) 0)((end_21) len_23)((inc_15) 1))"
+"(let-values(((len_22)(vector*-ref vec_50(add1 pos_51))))"
+"(let-values(((start_29) 0)((end_21) len_22)((inc_15) 1))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
 "(let-values()(check-range start_29 end_21 inc_15)))"
-"((letrec-values(((for-loop_148)"
-"(lambda(s_195 pos_61 pos_62)"
+"((letrec-values(((for-loop_147)"
+"(lambda(s_192 pos_62 pos_63)"
 "(begin"
 " 'for-loop"
-"(if(< pos_62 end_21)"
+"(if(< pos_63 end_21)"
 "(let-values()"
-"(let-values(((s_196 pos_63)"
-"(let-values(((s_197) s_195)((pos_64) pos_61))"
-"(let-values(((s_198 pos_65)"
+"(let-values(((s_193 pos_64)"
+"(let-values(((s_194) s_192)((pos_65) pos_62))"
+"(let-values(((s_195 pos_66)"
 "(let-values()"
 "(let-values(((k_28 next-pos_26)"
 "(decode"
 " vec_50"
-" pos_64"
+" pos_65"
 " mpis_9"
-" inspector_6"
+" inspector_7"
 " bulk-binding-registry_7"
 " shared_2)))"
 "(values"
-"(set-add s_197 k_28)"
+"(set-add s_194 k_28)"
 " next-pos_26)))))"
-"(values s_198 pos_65)))))"
+"(values s_195 pos_66)))))"
 "(if(not #f)"
-"(for-loop_148 s_196 pos_63(+ pos_62 inc_15))"
-"(values s_196 pos_63))))"
-"(values s_195 pos_61))))))"
-" for-loop_148)"
-" s_194"
-"(+ pos_50 2)"
+"(for-loop_147 s_193 pos_64(+ pos_63 inc_15))"
+"(values s_193 pos_64))))"
+"(values s_192 pos_62))))))"
+" for-loop_147)"
+" s_191"
+"(+ pos_51 2)"
 " start_29))))))"
 "(if(unsafe-fx< index_0 16)"
 "(let-values()"
-"(let-values(((key_49 next-pos_27)"
+"(let-values(((key_50 next-pos_27)"
 "(let-values(((k_29 next-pos_28)"
 "(decode"
 " vec_50"
-"(add1 pos_50)"
+"(add1 pos_51)"
 " mpis_9"
-" inspector_6"
+" inspector_7"
 " bulk-binding-registry_7"
 " shared_2)))"
 "(values k_29 next-pos_28))))"
-"(let-values(((len_24)(vector*-ref vec_50 next-pos_27)))"
+"(let-values(((len_23)(vector*-ref vec_50 next-pos_27)))"
 "(let-values(((r_30 done-pos_1)"
-"(let-values(((start_30) 0)((end_22) len_24)((inc_16) 1))"
+"(let-values(((start_30) 0)((end_22) len_23)((inc_16) 1))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
 "(let-values()(check-range start_30 end_22 inc_16)))"
-"((letrec-values(((for-loop_149)"
-"(lambda(r_31 pos_66 pos_67)"
+"((letrec-values(((for-loop_148)"
+"(lambda(r_31 pos_67 pos_68)"
 "(begin"
 " 'for-loop"
-"(if(< pos_67 end_22)"
+"(if(< pos_68 end_22)"
 "(let-values()"
-"(let-values(((r_32 pos_68)"
+"(let-values(((r_32 pos_69)"
 "(let-values(((r_33) r_31)"
-"((pos_69) pos_66))"
-"(let-values(((r_34 pos_70)"
+"((pos_70) pos_67))"
+"(let-values(((r_34 pos_71)"
 "(let-values()"
 "(let-values(((v_157"
 " next-pos_29)"
 "(decode"
 " vec_50"
-" pos_69"
+" pos_70"
 " mpis_9"
-" inspector_6"
+" inspector_7"
 " bulk-binding-registry_7"
 " shared_2)))"
 "(values"
@@ -20515,41 +20236,41 @@ static const char *startup_source =
 " v_157"
 " r_33)"
 " next-pos_29)))))"
-"(values r_34 pos_70)))))"
+"(values r_34 pos_71)))))"
 "(if(not #f)"
-"(for-loop_149 r_32 pos_68(+ pos_67 inc_16))"
-"(values r_32 pos_68))))"
-"(values r_31 pos_66))))))"
-" for-loop_149)"
+"(for-loop_148 r_32 pos_69(+ pos_68 inc_16))"
+"(values r_32 pos_69))))"
+"(values r_31 pos_67))))))"
+" for-loop_148)"
 " null"
 "(add1 next-pos_27)"
 " start_30)))))"
-"(values(apply make-prefab-struct key_49(reverse$1 r_30)) done-pos_1)))))"
-"(let-values()(values(deserialize-scope)(add1 pos_50)))))"
+"(values(apply make-prefab-struct key_50(reverse$1 r_30)) done-pos_1)))))"
+"(let-values()(values(deserialize-scope)(add1 pos_51)))))"
 "(if(unsafe-fx< index_0 18)"
 "(let-values()"
 "(let-values(((kind_6 next-pos_30)"
-"(decode vec_50(add1 pos_50) mpis_9 inspector_6 bulk-binding-registry_7 shared_2)))"
+"(decode vec_50(add1 pos_51) mpis_9 inspector_7 bulk-binding-registry_7 shared_2)))"
 "(values(deserialize-scope kind_6) next-pos_30)))"
 "(if(unsafe-fx< index_0 19)"
 "(let-values()"
-"(let-values(((id_23 next-pos_31)"
+"(let-values(((id_22 next-pos_31)"
 "(decode"
 " vec_50"
-"(add1 pos_50)"
+"(add1 pos_51)"
 " mpis_9"
-" inspector_6"
+" inspector_7"
 " bulk-binding-registry_7"
 " shared_2)))"
-"(values(make-interned-scope id_23) next-pos_31)))"
+"(values(make-interned-scope id_22) next-pos_31)))"
 "(if(unsafe-fx< index_0 20)"
 "(let-values()"
 "(let-values(((name_38 next-pos_32)"
 "(decode"
 " vec_50"
-"(add1 pos_50)"
+"(add1 pos_51)"
 " mpis_9"
-" inspector_6"
+" inspector_7"
 " bulk-binding-registry_7"
 " shared_2)))"
 "(let-values(((scopes_21 next-pos_33)"
@@ -20557,17 +20278,17 @@ static const char *startup_source =
 " vec_50"
 " next-pos_32"
 " mpis_9"
-" inspector_6"
+" inspector_7"
 " bulk-binding-registry_7"
 " shared_2)))"
 "(values(deserialize-multi-scope name_38 scopes_21) next-pos_33))))"
 "(let-values()"
-"(let-values(((phase_49 next-pos_34)"
+"(let-values(((phase_46 next-pos_34)"
 "(decode"
 " vec_50"
-"(add1 pos_50)"
+"(add1 pos_51)"
 " mpis_9"
-" inspector_6"
+" inspector_7"
 " bulk-binding-registry_7"
 " shared_2)))"
 "(let-values(((multi-scope_2 next-pos_35)"
@@ -20575,26 +20296,26 @@ static const char *startup_source =
 " vec_50"
 " next-pos_34"
 " mpis_9"
-" inspector_6"
+" inspector_7"
 " bulk-binding-registry_7"
 " shared_2)))"
-"(values(deserialize-shifted-multi-scope phase_49 multi-scope_2) next-pos_35))))))))"
+"(values(deserialize-shifted-multi-scope phase_46 multi-scope_2) next-pos_35))))))))"
 "(if(unsafe-fx< index_0 24)"
 "(if(unsafe-fx< index_0 22)"
 "(let-values()"
 "(let-values(((syms_13 next-pos_36)"
-"(decode vec_50(add1 pos_50) mpis_9 inspector_6 bulk-binding-registry_7 shared_2)))"
+"(decode vec_50(add1 pos_51) mpis_9 inspector_7 bulk-binding-registry_7 shared_2)))"
 "(let-values(((bulk-bindings_4 next-pos_37)"
-"(decode vec_50 next-pos_36 mpis_9 inspector_6 bulk-binding-registry_7 shared_2)))"
+"(decode vec_50 next-pos_36 mpis_9 inspector_7 bulk-binding-registry_7 shared_2)))"
 "(values(deserialize-table-with-bulk-bindings syms_13 bulk-bindings_4) next-pos_37))))"
 "(if(unsafe-fx< index_0 23)"
 "(let-values()"
 "(let-values(((scopes_22 next-pos_38)"
 "(decode"
 " vec_50"
-"(add1 pos_50)"
+"(add1 pos_51)"
 " mpis_9"
-" inspector_6"
+" inspector_7"
 " bulk-binding-registry_7"
 " shared_2)))"
 "(let-values(((bulk_5 next-pos_39)"
@@ -20602,7 +20323,7 @@ static const char *startup_source =
 " vec_50"
 " next-pos_38"
 " mpis_9"
-" inspector_6"
+" inspector_7"
 " bulk-binding-registry_7"
 " shared_2)))"
 "(values(deserialize-bulk-binding-at scopes_22 bulk_5) next-pos_39))))"
@@ -20610,45 +20331,45 @@ static const char *startup_source =
 "(let-values(((kind_7 next-pos_40)"
 "(decode"
 " vec_50"
-"(add1 pos_50)"
+"(add1 pos_51)"
 " mpis_9"
-" inspector_6"
+" inspector_7"
 " bulk-binding-registry_7"
 " shared_2)))"
-"(let-values(((phase_50 next-pos_41)"
+"(let-values(((phase_47 next-pos_41)"
 "(decode"
 " vec_50"
 " next-pos_40"
 " mpis_9"
-" inspector_6"
+" inspector_7"
 " bulk-binding-registry_7"
 " shared_2)))"
-"(values(deserialize-representative-scope kind_7 phase_50) next-pos_41))))))"
+"(values(deserialize-representative-scope kind_7 phase_47) next-pos_41))))))"
 "(if(unsafe-fx< index_0 26)"
 "(if(unsafe-fx< index_0 25)"
 "(let-values()"
 "(let-values(((module_4 next-pos_42)"
 "(decode"
 " vec_50"
-"(add1 pos_50)"
+"(add1 pos_51)"
 " mpis_9"
-" inspector_6"
+" inspector_7"
 " bulk-binding-registry_7"
 " shared_2)))"
-"(let-values(((sym_30 next-pos_43)"
+"(let-values(((sym_32 next-pos_43)"
 "(decode"
 " vec_50"
 " next-pos_42"
 " mpis_9"
-" inspector_6"
+" inspector_7"
 " bulk-binding-registry_7"
 " shared_2)))"
-"(let-values(((phase_51 next-pos_44)"
+"(let-values(((phase_48 next-pos_44)"
 "(decode"
 " vec_50"
 " next-pos_43"
 " mpis_9"
-" inspector_6"
+" inspector_7"
 " bulk-binding-registry_7"
 " shared_2)))"
 "(let-values(((nominal-module_4 next-pos_45)"
@@ -20656,7 +20377,7 @@ static const char *startup_source =
 " vec_50"
 " next-pos_44"
 " mpis_9"
-" inspector_6"
+" inspector_7"
 " bulk-binding-registry_7"
 " shared_2)))"
 "(let-values(((nominal-phase_3 next-pos_46)"
@@ -20664,7 +20385,7 @@ static const char *startup_source =
 " vec_50"
 " next-pos_45"
 " mpis_9"
-" inspector_6"
+" inspector_7"
 " bulk-binding-registry_7"
 " shared_2)))"
 "(let-values(((nominal-sym_3 next-pos_47)"
@@ -20672,7 +20393,7 @@ static const char *startup_source =
 " vec_50"
 " next-pos_46"
 " mpis_9"
-" inspector_6"
+" inspector_7"
 " bulk-binding-registry_7"
 " shared_2)))"
 "(let-values(((nominal-require-phase_3 next-pos_48)"
@@ -20680,7 +20401,7 @@ static const char *startup_source =
 " vec_50"
 " next-pos_47"
 " mpis_9"
-" inspector_6"
+" inspector_7"
 " bulk-binding-registry_7"
 " shared_2)))"
 "(let-values(((free=id_8 next-pos_49)"
@@ -20688,7 +20409,7 @@ static const char *startup_source =
 " vec_50"
 " next-pos_48"
 " mpis_9"
-" inspector_6"
+" inspector_7"
 " bulk-binding-registry_7"
 " shared_2)))"
 "(let-values(((extra-inspector_3 next-pos_50)"
@@ -20696,7 +20417,7 @@ static const char *startup_source =
 " vec_50"
 " next-pos_49"
 " mpis_9"
-" inspector_6"
+" inspector_7"
 " bulk-binding-registry_7"
 " shared_2)))"
 "(let-values(((extra-nominal-bindings_3 next-pos_51)"
@@ -20704,14 +20425,14 @@ static const char *startup_source =
 " vec_50"
 " next-pos_50"
 " mpis_9"
-" inspector_6"
+" inspector_7"
 " bulk-binding-registry_7"
 " shared_2)))"
 "(values"
 "(deserialize-full-module-binding"
 " module_4"
-" sym_30"
-" phase_51"
+" sym_32"
+" phase_48"
 " nominal-module_4"
 " nominal-phase_3"
 " nominal-sym_3"
@@ -20724,25 +20445,25 @@ static const char *startup_source =
 "(let-values(((module_5 next-pos_52)"
 "(decode"
 " vec_50"
-"(add1 pos_50)"
+"(add1 pos_51)"
 " mpis_9"
-" inspector_6"
+" inspector_7"
 " bulk-binding-registry_7"
 " shared_2)))"
-"(let-values(((sym_31 next-pos_53)"
+"(let-values(((sym_33 next-pos_53)"
 "(decode"
 " vec_50"
 " next-pos_52"
 " mpis_9"
-" inspector_6"
+" inspector_7"
 " bulk-binding-registry_7"
 " shared_2)))"
-"(let-values(((phase_52 next-pos_54)"
+"(let-values(((phase_49 next-pos_54)"
 "(decode"
 " vec_50"
 " next-pos_53"
 " mpis_9"
-" inspector_6"
+" inspector_7"
 " bulk-binding-registry_7"
 " shared_2)))"
 "(let-values(((nominal-module_5 next-pos_55)"
@@ -20750,20 +20471,20 @@ static const char *startup_source =
 " vec_50"
 " next-pos_54"
 " mpis_9"
-" inspector_6"
+" inspector_7"
 " bulk-binding-registry_7"
 " shared_2)))"
 "(values"
-"(deserialize-simple-module-binding module_5 sym_31 phase_52 nominal-module_5)"
+"(deserialize-simple-module-binding module_5 sym_33 phase_49 nominal-module_5)"
 " next-pos_55)))))))"
 "(if(unsafe-fx< index_0 27)"
 "(let-values()"
-"(let-values(((key_50 next-pos_56)"
+"(let-values(((key_51 next-pos_56)"
 "(decode"
 " vec_50"
-"(add1 pos_50)"
+"(add1 pos_51)"
 " mpis_9"
-" inspector_6"
+" inspector_7"
 " bulk-binding-registry_7"
 " shared_2)))"
 "(let-values(((free=id_9 next-pos_57)"
@@ -20771,18 +20492,18 @@ static const char *startup_source =
 " vec_50"
 " next-pos_56"
 " mpis_9"
-" inspector_6"
+" inspector_7"
 " bulk-binding-registry_7"
 " shared_2)))"
-"(values(deserialize-full-local-binding key_50 free=id_9) next-pos_57))))"
+"(values(deserialize-full-local-binding key_51 free=id_9) next-pos_57))))"
 "(if(unsafe-fx< index_0 28)"
 "(let-values()"
 "(let-values(((prefix_3 next-pos_58)"
 "(decode"
 " vec_50"
-"(add1 pos_50)"
+"(add1 pos_51)"
 " mpis_9"
-" inspector_6"
+" inspector_7"
 " bulk-binding-registry_7"
 " shared_2)))"
 "(let-values(((excepts_3 next-pos_59)"
@@ -20790,15 +20511,15 @@ static const char *startup_source =
 " vec_50"
 " next-pos_58"
 " mpis_9"
-" inspector_6"
+" inspector_7"
 " bulk-binding-registry_7"
 " shared_2)))"
-"(let-values(((mpi_29 next-pos_60)"
+"(let-values(((mpi_28 next-pos_60)"
 "(decode"
 " vec_50"
 " next-pos_59"
 " mpis_9"
-" inspector_6"
+" inspector_7"
 " bulk-binding-registry_7"
 " shared_2)))"
 "(let-values(((provide-phase-level_2 next-pos_61)"
@@ -20806,7 +20527,7 @@ static const char *startup_source =
 " vec_50"
 " next-pos_60"
 " mpis_9"
-" inspector_6"
+" inspector_7"
 " bulk-binding-registry_7"
 " shared_2)))"
 "(let-values(((phase-shift_5 next-pos_62)"
@@ -20814,7 +20535,7 @@ static const char *startup_source =
 " vec_50"
 " next-pos_61"
 " mpis_9"
-" inspector_6"
+" inspector_7"
 " bulk-binding-registry_7"
 " shared_2)))"
 "(let-values(((bulk-binding-registry_8 next-pos_63)"
@@ -20822,14 +20543,14 @@ static const char *startup_source =
 " vec_50"
 " next-pos_62"
 " mpis_9"
-" inspector_6"
+" inspector_7"
 " bulk-binding-registry_7"
 " shared_2)))"
 "(values"
 "(deserialize-bulk-binding"
 " prefix_3"
 " excepts_3"
-" mpi_29"
+" mpi_28"
 " provide-phase-level_2"
 " phase-shift_5"
 " bulk-binding-registry_8)"
@@ -20838,9 +20559,9 @@ static const char *startup_source =
 "(let-values(((binding_10 next-pos_64)"
 "(decode"
 " vec_50"
-"(add1 pos_50)"
+"(add1 pos_51)"
 " mpis_9"
-" inspector_6"
+" inspector_7"
 " bulk-binding-registry_7"
 " shared_2)))"
 "(let-values(((protected?_2 next-pos_65)"
@@ -20848,7 +20569,7 @@ static const char *startup_source =
 " vec_50"
 " next-pos_64"
 " mpis_9"
-" inspector_6"
+" inspector_7"
 " bulk-binding-registry_7"
 " shared_2)))"
 "(let-values(((syntax?_3 next-pos_66)"
@@ -20856,7 +20577,7 @@ static const char *startup_source =
 " vec_50"
 " next-pos_65"
 " mpis_9"
-" inspector_6"
+" inspector_7"
 " bulk-binding-registry_7"
 " shared_2)))"
 "(values"
@@ -20864,75 +20585,75 @@ static const char *startup_source =
 " next-pos_66)))))))))))))))))"
 "(define-values"
 "(decode-fill!)"
-"(lambda(v_158 vec_51 pos_71 mpis_10 inspector_7 bulk-binding-registry_9 shared_3)"
+"(lambda(v_158 vec_51 pos_72 mpis_10 inspector_8 bulk-binding-registry_9 shared_3)"
 "(begin"
-"(let-values(((tmp_23)(vector*-ref vec_51 pos_71)))"
+"(let-values(((tmp_23)(vector*-ref vec_51 pos_72)))"
 "(if(equal? tmp_23 #f)"
-"(let-values()(add1 pos_71))"
+"(let-values()(add1 pos_72))"
 "(if(equal? tmp_23 '#:set-box!)"
 "(let-values()"
 "(let-values(((c_21 next-pos_67)"
-"(decode vec_51(add1 pos_71) mpis_10 inspector_7 bulk-binding-registry_9 shared_3)))"
+"(decode vec_51(add1 pos_72) mpis_10 inspector_8 bulk-binding-registry_9 shared_3)))"
 "(begin(set-box! v_158 c_21) next-pos_67)))"
 "(if(equal? tmp_23 '#:set-vector!)"
 "(let-values()"
-"(let-values(((len_25)(vector*-ref vec_51(add1 pos_71))))"
-"(let-values(((start_31) 0)((end_23) len_25)((inc_17) 1))"
+"(let-values(((len_24)(vector*-ref vec_51(add1 pos_72))))"
+"(let-values(((start_31) 0)((end_23) len_24)((inc_17) 1))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
 "(let-values()(check-range start_31 end_23 inc_17)))"
-"((letrec-values(((for-loop_150)"
-"(lambda(pos_72 pos_73)"
+"((letrec-values(((for-loop_149)"
+"(lambda(pos_73 pos_74)"
 "(begin"
 " 'for-loop"
-"(if(< pos_73 end_23)"
-"(let-values(((i_125) pos_73))"
-"(let-values(((pos_74)"
-"(let-values(((pos_75) pos_72))"
-"(let-values(((pos_76)"
+"(if(< pos_74 end_23)"
+"(let-values(((i_78) pos_74))"
+"(let-values(((pos_75)"
+"(let-values(((pos_76) pos_73))"
+"(let-values(((pos_77)"
 "(let-values()"
 "(let-values(((c_22 next-pos_68)"
 "(decode"
 " vec_51"
-" pos_75"
+" pos_76"
 " mpis_10"
-" inspector_7"
+" inspector_8"
 " bulk-binding-registry_9"
 " shared_3)))"
 "(begin"
-"(vector-set! v_158 i_125 c_22)"
+"(vector-set! v_158 i_78 c_22)"
 " next-pos_68)))))"
-"(values pos_76)))))"
-"(if(not #f)(for-loop_150 pos_74(+ pos_73 inc_17)) pos_74)))"
-" pos_72)))))"
-" for-loop_150)"
-"(+ pos_71 2)"
+"(values pos_77)))))"
+"(if(not #f)(for-loop_149 pos_75(+ pos_74 inc_17)) pos_75)))"
+" pos_73)))))"
+" for-loop_149)"
+"(+ pos_72 2)"
 " start_31)))))"
 "(if(equal? tmp_23 '#:set-hash!)"
 "(let-values()"
-"(let-values(((len_26)(vector*-ref vec_51(add1 pos_71))))"
-"(let-values(((start_32) 0)((end_24) len_26)((inc_18) 1))"
+"(let-values(((len_25)(vector*-ref vec_51(add1 pos_72))))"
+"(let-values(((start_32) 0)((end_24) len_25)((inc_18) 1))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
 "(let-values()(check-range start_32 end_24 inc_18)))"
-"((letrec-values(((for-loop_151)"
-"(lambda(pos_77 pos_78)"
+"((letrec-values(((for-loop_150)"
+"(lambda(pos_78 pos_79)"
 "(begin"
 " 'for-loop"
-"(if(< pos_78 end_24)"
+"(if(< pos_79 end_24)"
 "(let-values()"
-"(let-values(((pos_79)"
-"(let-values(((pos_10) pos_77))"
 "(let-values(((pos_80)"
+"(let-values(((pos_81) pos_78))"
+"(let-values(((pos_82)"
 "(let-values()"
-"(let-values(((key_51 next-pos_69)"
+"(let-values(((key_52 next-pos_69)"
 "(decode"
 " vec_51"
-" pos_10"
+" pos_81"
 " mpis_10"
-" inspector_7"
+" inspector_8"
 " bulk-binding-registry_9"
 " shared_3)))"
 "(let-values(((val_44 done-pos_2)"
@@ -20940,31 +20661,31 @@ static const char *startup_source =
 " vec_51"
 " next-pos_69"
 " mpis_10"
-" inspector_7"
+" inspector_8"
 " bulk-binding-registry_9"
 " shared_3)))"
 "(begin"
-"(hash-set! v_158 key_51 val_44)"
+"(hash-set! v_158 key_52 val_44)"
 " done-pos_2))))))"
-"(values pos_80)))))"
-"(if(not #f)(for-loop_151 pos_79(+ pos_78 inc_18)) pos_79)))"
-" pos_77)))))"
-" for-loop_151)"
-"(+ pos_71 2)"
+"(values pos_82)))))"
+"(if(not #f)(for-loop_150 pos_80(+ pos_79 inc_18)) pos_80)))"
+" pos_78)))))"
+" for-loop_150)"
+"(+ pos_72 2)"
 " start_32)))))"
 "(if(equal? tmp_23 '#:scope-fill!)"
 "(let-values()"
 "(let-values(((c_23 next-pos_70)"
-"(decode vec_51(add1 pos_71) mpis_10 inspector_7 bulk-binding-registry_9 shared_3)))"
+"(decode vec_51(add1 pos_72) mpis_10 inspector_8 bulk-binding-registry_9 shared_3)))"
 "(begin(deserialize-scope-fill! v_158 c_23) next-pos_70)))"
 "(if(equal? tmp_23 '#:representative-scope-fill!)"
 "(let-values()"
 "(let-values(((a_39 next-pos_71)"
-"(decode vec_51(add1 pos_71) mpis_10 inspector_7 bulk-binding-registry_9 shared_3)))"
+"(decode vec_51(add1 pos_72) mpis_10 inspector_8 bulk-binding-registry_9 shared_3)))"
 "(let-values(((d_25 done-pos_3)"
-"(decode vec_51 next-pos_71 mpis_10 inspector_7 bulk-binding-registry_9 shared_3)))"
+"(decode vec_51 next-pos_71 mpis_10 inspector_8 bulk-binding-registry_9 shared_3)))"
 "(begin(deserialize-representative-scope-fill! v_158 a_39 d_25) done-pos_3))))"
-"                    (let-values () (error 'deserialize \"bad fill encoding: ~v\" (vector*-ref vec_51 pos_71)))))))))))))"
+"                    (let-values () (error 'deserialize \"bad fill encoding: ~v\" (vector*-ref vec_51 pos_72)))))))))))))"
 "(define-values"
 "(find-reachable-scopes)"
 "(lambda(v_159)"
@@ -20974,7 +20695,7 @@ static const char *startup_source =
 "(let-values(((get-reachable-scopes_4)(lambda()(begin 'get-reachable-scopes reachable-scopes_5))))"
 "(let-values(((scope-triggers_0)(make-hasheq)))"
 "(begin"
-"((letrec-values(((loop_85)"
+"((letrec-values(((loop_83)"
 "(lambda(v_160)"
 "(begin"
 " 'loop"
@@ -20989,21 +20710,21 @@ static const char *startup_source =
 "(let-values()"
 "(begin"
 "(set! reachable-scopes_5(set-add reachable-scopes_5 v_160))"
-"((reach-scopes-ref v_160) v_160 loop_85)"
-"(let-values(((lst_118)(hash-ref scope-triggers_0 v_160 null)))"
+"((reach-scopes-ref v_160) v_160 loop_83)"
+"(let-values(((lst_68)(hash-ref scope-triggers_0 v_160 null)))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
-"(let-values()(check-list lst_118)))"
-"((letrec-values(((for-loop_152)"
-"(lambda(lst_119)"
+"(let-values()(check-list lst_68)))"
+"((letrec-values(((for-loop_151)"
+"(lambda(lst_121)"
 "(begin"
 " 'for-loop"
-"(if(pair? lst_119)"
+"(if(pair? lst_121)"
 "(let-values(((proc_7)"
-"(unsafe-car lst_119))"
-"((rest_60)"
-"(unsafe-cdr lst_119)))"
+"(unsafe-car lst_121))"
+"((rest_61)"
+"(unsafe-cdr lst_121)))"
 "(let-values((()"
 "(let-values()"
 "(let-values((()"
@@ -21011,35 +20732,35 @@ static const char *startup_source =
 "(begin"
 "(let-values()"
 "(proc_7"
-" loop_85))"
+" loop_83))"
 "(values)))))"
 "(values)))))"
 "(if(not #f)"
-"(for-loop_152 rest_60)"
+"(for-loop_151 rest_61)"
 "(values))))"
 "(values))))))"
-" for-loop_152)"
-" lst_118)))"
+" for-loop_151)"
+" lst_68)))"
 "(void)"
 "(hash-remove! scope-triggers_0 v_160)"
 "((scope-with-bindings-ref v_160)"
 " v_160"
 " get-reachable-scopes_4"
-" loop_85"
-"(lambda(sc-unreachable_0 b_66)"
+" loop_83"
+"(lambda(sc-unreachable_0 b_65)"
 "(hash-update!"
 " scope-triggers_0"
 " sc-unreachable_0"
-"(lambda(l_51)(cons b_66 l_51))"
+"(lambda(l_51)(cons b_65 l_51))"
 " null)))))"
 "(if(reach-scopes? v_160)"
-"(let-values()((reach-scopes-ref v_160) v_160 loop_85))"
+"(let-values()((reach-scopes-ref v_160) v_160 loop_83))"
 "(if(pair? v_160)"
-"(let-values()(begin(loop_85(car v_160))(loop_85(cdr v_160))))"
+"(let-values()(begin(loop_83(car v_160))(loop_83(cdr v_160))))"
 "(if(vector? v_160)"
 "(let-values()"
 "(begin"
-"(let-values(((vec_52 len_27)"
+"(let-values(((vec_52 len_26)"
 "(let-values(((vec_53) v_160))"
 "(begin"
 "(check-vector vec_53)"
@@ -21048,53 +20769,53 @@ static const char *startup_source =
 "(unsafe-vector-length vec_53))))))"
 "(begin"
 " #f"
-"((letrec-values(((for-loop_72)"
-"(lambda(pos_81)"
+"((letrec-values(((for-loop_152)"
+"(lambda(pos_83)"
 "(begin"
 " 'for-loop"
-"(if(unsafe-fx< pos_81 len_27)"
+"(if(unsafe-fx< pos_83 len_26)"
 "(let-values(((e_23)"
 "(unsafe-vector-ref"
 " vec_52"
-" pos_81)))"
+" pos_83)))"
 "(let-values((()"
 "(let-values()"
 "(let-values((()"
 "(let-values()"
 "(begin"
 "(let-values()"
-"(loop_85"
+"(loop_83"
 " e_23))"
 "(values)))))"
 "(values)))))"
 "(if(not #f)"
-"(for-loop_72"
-"(unsafe-fx+ 1 pos_81))"
+"(for-loop_152"
+"(unsafe-fx+ 1 pos_83))"
 "(values))))"
 "(values))))))"
-" for-loop_72)"
+" for-loop_152)"
 " 0)))"
 "(void)))"
 "(if(box? v_160)"
-"(let-values()(loop_85(unbox v_160)))"
+"(let-values()(loop_83(unbox v_160)))"
 "(if(hash? v_160)"
 "(let-values()"
 "(begin"
-"(let-values(((ht_95) v_160))"
+"(let-values(((ht_92) v_160))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
 "(#%variable-reference))"
 "(void)"
-"(let-values()(check-in-hash ht_95)))"
+"(let-values()(check-in-hash ht_92)))"
 "((letrec-values(((for-loop_153)"
-"(lambda(i_126)"
+"(lambda(i_128)"
 "(begin"
 " 'for-loop"
-"(if i_126"
+"(if i_128"
 "(let-values(((k_30 v_161)"
 "(hash-iterate-key+value"
-" ht_95"
-" i_126)))"
+" ht_92"
+" i_128)))"
 "(let-values((()"
 "(let-values()"
 "(let-values((()"
@@ -21102,21 +20823,21 @@ static const char *startup_source =
 "(begin"
 "(let-values()"
 "(begin"
-"(loop_85"
+"(loop_83"
 " k_30)"
-"(loop_85"
+"(loop_83"
 " v_161)))"
 "(values)))))"
 "(values)))))"
 "(if(not #f)"
 "(for-loop_153"
 "(hash-iterate-next"
-" ht_95"
-" i_126))"
+" ht_92"
+" i_128))"
 "(values))))"
 "(values))))))"
 " for-loop_153)"
-"(hash-iterate-first ht_95))))"
+"(hash-iterate-first ht_92))))"
 "(void)))"
 "(if(prefab-struct-key v_160)"
 "(let-values()"
@@ -21125,9 +20846,9 @@ static const char *startup_source =
 "(normalise-inputs"
 " 'in-vector"
 "                                                                               \"vector\""
-"(lambda(x_50)(vector? x_50))"
-"(lambda(x_51)"
-"(unsafe-vector-length x_51))"
+"(lambda(x_52)(vector? x_52))"
+"(lambda(x_53)"
+"(unsafe-vector-length x_53))"
 "(struct->vector v_160)"
 " 1"
 " #f"
@@ -21149,7 +20870,7 @@ static const char *startup_source =
 "(let-values()"
 "(begin"
 "(let-values()"
-"(loop_85"
+"(loop_83"
 " e_24))"
 "(values)))))"
 "(values)))))"
@@ -21162,9 +20883,9 @@ static const char *startup_source =
 " start*_4)))"
 "(void)))"
 "(if(srcloc? v_160)"
-"(let-values()(loop_85(srcloc-source v_160)))"
+"(let-values()(loop_83(srcloc-source v_160)))"
 "(let-values()(void))))))))))))))))))"
-" loop_85)"
+" loop_83)"
 " v_159)"
 " reachable-scopes_5))))))))"
 "(define-values"
@@ -21173,31 +20894,29 @@ static const char *startup_source =
 "(define-values"
 "(syntax-module-path-index-shift/no-keywords)"
 "(let-values(((syntax-module-path-index-shift_0)"
-"(let-values(((core27_0)"
-"(lambda(s24_1 from-mpi25_0 to-mpi26_0 inspector22_0 inspector23_0)"
+"(let-values(((core26_0)"
+"(lambda(s23_0 from-mpi24_0 to-mpi25_0 inspector22_0)"
 "(begin"
-" 'core27"
-"(let-values(((s_199) s24_1))"
-"(let-values(((from-mpi_4) from-mpi25_0))"
-"(let-values(((to-mpi_3) to-mpi26_0))"
-"(let-values(((inspector_8)(if inspector23_0 inspector22_0 #f)))"
+" 'core26"
+"(let-values(((s_196) s23_0))"
+"(let-values(((from-mpi_4) from-mpi24_0))"
+"(let-values(((to-mpi_3) to-mpi25_0))"
+"(let-values(((inspector_9) inspector22_0))"
 "(let-values()"
-"(let-values(((s29_1) s_199)"
-"((from-mpi30_0) from-mpi_4)"
-"((to-mpi31_0) to-mpi_3)"
-"((inspector32_0) inspector_8))"
-"(syntax-module-path-index-shift15.1"
+"(let-values(((s28_0) s_196)"
+"((from-mpi29_0) from-mpi_4)"
+"((to-mpi30_0) to-mpi_3)"
+"((inspector31_0) inspector_9))"
+"(syntax-module-path-index-shift13.1"
 " #f"
-" #f"
-" s29_1"
-" from-mpi30_0"
-" to-mpi31_0"
-" inspector32_0"
-" #t)))))))))))"
+" s28_0"
+" from-mpi29_0"
+" to-mpi30_0"
+" inspector31_0)))))))))))"
 "(case-lambda"
-"((s_200 from-mpi_5 to-mpi_4)"
-"(begin 'syntax-module-path-index-shift(core27_0 s_200 from-mpi_5 to-mpi_4 #f #f)))"
-"((s_201 from-mpi_6 to-mpi_5 inspector22_1)(core27_0 s_201 from-mpi_6 to-mpi_5 inspector22_1 #t))))))"
+"((s_197 from-mpi_5 to-mpi_4)"
+"(begin 'syntax-module-path-index-shift(core26_0 s_197 from-mpi_5 to-mpi_4 #f)))"
+"((s_198 from-mpi_6 to-mpi_5 inspector22_1)(core26_0 s_198 from-mpi_6 to-mpi_5 inspector22_1))))))"
 " syntax-module-path-index-shift_0))"
 "(define-values"
 "(deserialize-instance)"
@@ -21247,7 +20966,7 @@ static const char *startup_source =
 "(make-struct-field-accessor -ref_1 1 'inspector))))"
 "(define-values"
 "(struct:parsed-primitive-id parsed-primitive-id3.1 parsed-primitive-id?)"
-"(let-values(((struct:_41 make-_41 ?_41 -ref_41 -set!_41)"
+"(let-values(((struct:_42 make-_42 ?_42 -ref_42 -set!_42)"
 "(let-values()"
 "(let-values()"
 "(make-struct-type"
@@ -21262,7 +20981,7 @@ static const char *startup_source =
 " '()"
 " #f"
 " 'parsed-primitive-id)))))"
-"(values struct:_41 make-_41 ?_41)))"
+"(values struct:_42 make-_42 ?_42)))"
 "(define-values"
 "(struct:parsed-top-id parsed-top-id4.1 parsed-top-id?)"
 "(let-values(((struct:_10 make-_10 ?_10 -ref_10 -set!_10)"
@@ -21283,7 +21002,7 @@ static const char *startup_source =
 "(values struct:_10 make-_10 ?_10)))"
 "(define-values"
 "(struct:parsed-lambda parsed-lambda5.1 parsed-lambda? parsed-lambda-keys parsed-lambda-body)"
-"(let-values(((struct:_40 make-_40 ?_40 -ref_40 -set!_40)"
+"(let-values(((struct:_41 make-_41 ?_41 -ref_41 -set!_41)"
 "(let-values()"
 "(let-values()"
 "(make-struct-type"
@@ -21299,14 +21018,14 @@ static const char *startup_source =
 " #f"
 " 'parsed-lambda)))))"
 "(values"
-" struct:_40"
-" make-_40"
-" ?_40"
-"(make-struct-field-accessor -ref_40 0 'keys)"
-"(make-struct-field-accessor -ref_40 1 'body))))"
+" struct:_41"
+" make-_41"
+" ?_41"
+"(make-struct-field-accessor -ref_41 0 'keys)"
+"(make-struct-field-accessor -ref_41 1 'body))))"
 "(define-values"
 "(struct:parsed-case-lambda parsed-case-lambda6.1 parsed-case-lambda? parsed-case-lambda-clauses)"
-"(let-values(((struct:_42 make-_42 ?_42 -ref_42 -set!_42)"
+"(let-values(((struct:_43 make-_43 ?_43 -ref_43 -set!_43)"
 "(let-values()"
 "(let-values()"
 "(make-struct-type"
@@ -21321,10 +21040,10 @@ static const char *startup_source =
 " '(0)"
 " #f"
 " 'parsed-case-lambda)))))"
-"(values struct:_42 make-_42 ?_42(make-struct-field-accessor -ref_42 0 'clauses))))"
+"(values struct:_43 make-_43 ?_43(make-struct-field-accessor -ref_43 0 'clauses))))"
 "(define-values"
 "(struct:parsed-app parsed-app7.1 parsed-app? parsed-app-rator parsed-app-rands)"
-"(let-values(((struct:_43 make-_43 ?_43 -ref_43 -set!_43)"
+"(let-values(((struct:_44 make-_44 ?_44 -ref_44 -set!_44)"
 "(let-values()"
 "(let-values()"
 "(make-struct-type"
@@ -21340,14 +21059,14 @@ static const char *startup_source =
 " #f"
 " 'parsed-app)))))"
 "(values"
-" struct:_43"
-" make-_43"
-" ?_43"
-"(make-struct-field-accessor -ref_43 0 'rator)"
-"(make-struct-field-accessor -ref_43 1 'rands))))"
+" struct:_44"
+" make-_44"
+" ?_44"
+"(make-struct-field-accessor -ref_44 0 'rator)"
+"(make-struct-field-accessor -ref_44 1 'rands))))"
 "(define-values"
 "(struct:parsed-if parsed-if8.1 parsed-if? parsed-if-tst parsed-if-thn parsed-if-els)"
-"(let-values(((struct:_44 make-_44 ?_44 -ref_44 -set!_44)"
+"(let-values(((struct:_45 make-_45 ?_45 -ref_45 -set!_45)"
 "(let-values()"
 "(let-values()"
 "(make-struct-type"
@@ -21363,15 +21082,15 @@ static const char *startup_source =
 " #f"
 " 'parsed-if)))))"
 "(values"
-" struct:_44"
-" make-_44"
-" ?_44"
-"(make-struct-field-accessor -ref_44 0 'tst)"
-"(make-struct-field-accessor -ref_44 1 'thn)"
-"(make-struct-field-accessor -ref_44 2 'els))))"
+" struct:_45"
+" make-_45"
+" ?_45"
+"(make-struct-field-accessor -ref_45 0 'tst)"
+"(make-struct-field-accessor -ref_45 1 'thn)"
+"(make-struct-field-accessor -ref_45 2 'els))))"
 "(define-values"
 "(struct:parsed-set! parsed-set!9.1 parsed-set!? parsed-set!-id parsed-set!-rhs)"
-"(let-values(((struct:_45 make-_45 ?_45 -ref_45 -set!_45)"
+"(let-values(((struct:_46 make-_46 ?_46 -ref_46 -set!_46)"
 "(let-values()"
 "(let-values()"
 "(make-struct-type"
@@ -21387,11 +21106,11 @@ static const char *startup_source =
 " #f"
 " 'parsed-set!)))))"
 "(values"
-" struct:_45"
-" make-_45"
-" ?_45"
-"(make-struct-field-accessor -ref_45 0 'id)"
-"(make-struct-field-accessor -ref_45 1 'rhs))))"
+" struct:_46"
+" make-_46"
+" ?_46"
+"(make-struct-field-accessor -ref_46 0 'id)"
+"(make-struct-field-accessor -ref_46 1 'rhs))))"
 "(define-values"
 "(struct:parsed-with-continuation-mark"
 " parsed-with-continuation-mark10.1"
@@ -21399,7 +21118,7 @@ static const char *startup_source =
 " parsed-with-continuation-mark-key"
 " parsed-with-continuation-mark-val"
 " parsed-with-continuation-mark-body)"
-"(let-values(((struct:_46 make-_46 ?_46 -ref_46 -set!_46)"
+"(let-values(((struct:_47 make-_47 ?_47 -ref_47 -set!_47)"
 "(let-values()"
 "(let-values()"
 "(make-struct-type"
@@ -21415,18 +21134,18 @@ static const char *startup_source =
 " #f"
 " 'parsed-with-continuation-mark)))))"
 "(values"
-" struct:_46"
-" make-_46"
-" ?_46"
-"(make-struct-field-accessor -ref_46 0 'key)"
-"(make-struct-field-accessor -ref_46 1 'val)"
-"(make-struct-field-accessor -ref_46 2 'body))))"
+" struct:_47"
+" make-_47"
+" ?_47"
+"(make-struct-field-accessor -ref_47 0 'key)"
+"(make-struct-field-accessor -ref_47 1 'val)"
+"(make-struct-field-accessor -ref_47 2 'body))))"
 "(define-values"
 "(struct:parsed-#%variable-reference"
 " parsed-#%variable-reference11.1"
 " parsed-#%variable-reference?"
 " parsed-#%variable-reference-id)"
-"(let-values(((struct:_47 make-_47 ?_47 -ref_47 -set!_47)"
+"(let-values(((struct:_48 make-_48 ?_48 -ref_48 -set!_48)"
 "(let-values()"
 "(let-values()"
 "(make-struct-type"
@@ -21441,10 +21160,10 @@ static const char *startup_source =
 " '(0)"
 " #f"
 " 'parsed-#%variable-reference)))))"
-"(values struct:_47 make-_47 ?_47(make-struct-field-accessor -ref_47 0 'id))))"
+"(values struct:_48 make-_48 ?_48(make-struct-field-accessor -ref_48 0 'id))))"
 "(define-values"
 "(struct:parsed-begin parsed-begin12.1 parsed-begin? parsed-begin-body)"
-"(let-values(((struct:_48 make-_48 ?_48 -ref_48 -set!_48)"
+"(let-values(((struct:_49 make-_49 ?_49 -ref_49 -set!_49)"
 "(let-values()"
 "(let-values()"
 "(make-struct-type"
@@ -21459,10 +21178,10 @@ static const char *startup_source =
 " '(0)"
 " #f"
 " 'parsed-begin)))))"
-"(values struct:_48 make-_48 ?_48(make-struct-field-accessor -ref_48 0 'body))))"
+"(values struct:_49 make-_49 ?_49(make-struct-field-accessor -ref_49 0 'body))))"
 "(define-values"
 "(struct:parsed-begin0 parsed-begin013.1 parsed-begin0? parsed-begin0-body)"
-"(let-values(((struct:_49 make-_49 ?_49 -ref_49 -set!_49)"
+"(let-values(((struct:_50 make-_50 ?_50 -ref_50 -set!_50)"
 "(let-values()"
 "(let-values()"
 "(make-struct-type"
@@ -21477,10 +21196,10 @@ static const char *startup_source =
 " '(0)"
 " #f"
 " 'parsed-begin0)))))"
-"(values struct:_49 make-_49 ?_49(make-struct-field-accessor -ref_49 0 'body))))"
+"(values struct:_50 make-_50 ?_50(make-struct-field-accessor -ref_50 0 'body))))"
 "(define-values"
 "(struct:parsed-quote parsed-quote14.1 parsed-quote? parsed-quote-datum)"
-"(let-values(((struct:_50 make-_50 ?_50 -ref_50 -set!_50)"
+"(let-values(((struct:_51 make-_51 ?_51 -ref_51 -set!_51)"
 "(let-values()"
 "(let-values()"
 "(make-struct-type"
@@ -21495,10 +21214,10 @@ static const char *startup_source =
 " '(0)"
 " #f"
 " 'parsed-quote)))))"
-"(values struct:_50 make-_50 ?_50(make-struct-field-accessor -ref_50 0 'datum))))"
+"(values struct:_51 make-_51 ?_51(make-struct-field-accessor -ref_51 0 'datum))))"
 "(define-values"
 "(struct:parsed-quote-syntax parsed-quote-syntax15.1 parsed-quote-syntax? parsed-quote-syntax-datum)"
-"(let-values(((struct:_51 make-_51 ?_51 -ref_51 -set!_51)"
+"(let-values(((struct:_52 make-_52 ?_52 -ref_52 -set!_52)"
 "(let-values()"
 "(let-values()"
 "(make-struct-type"
@@ -21513,7 +21232,7 @@ static const char *startup_source =
 " '(0)"
 " #f"
 " 'parsed-quote-syntax)))))"
-"(values struct:_51 make-_51 ?_51(make-struct-field-accessor -ref_51 0 'datum))))"
+"(values struct:_52 make-_52 ?_52(make-struct-field-accessor -ref_52 0 'datum))))"
 "(define-values"
 "(struct:parsed-let_-values"
 " parsed-let_-values16.1"
@@ -21521,7 +21240,7 @@ static const char *startup_source =
 " parsed-let_-values-idss"
 " parsed-let_-values-clauses"
 " parsed-let_-values-body)"
-"(let-values(((struct:_52 make-_52 ?_52 -ref_52 -set!_52)"
+"(let-values(((struct:_53 make-_53 ?_53 -ref_53 -set!_53)"
 "(let-values()"
 "(let-values()"
 "(make-struct-type"
@@ -21537,15 +21256,15 @@ static const char *startup_source =
 " #f"
 " 'parsed-let_-values)))))"
 "(values"
-" struct:_52"
-" make-_52"
-" ?_52"
-"(make-struct-field-accessor -ref_52 0 'idss)"
-"(make-struct-field-accessor -ref_52 1 'clauses)"
-"(make-struct-field-accessor -ref_52 2 'body))))"
+" struct:_53"
+" make-_53"
+" ?_53"
+"(make-struct-field-accessor -ref_53 0 'idss)"
+"(make-struct-field-accessor -ref_53 1 'clauses)"
+"(make-struct-field-accessor -ref_53 2 'body))))"
 "(define-values"
 "(struct:parsed-let-values parsed-let-values17.1 parsed-let-values?)"
-"(let-values(((struct:_53 make-_53 ?_53 -ref_53 -set!_53)"
+"(let-values(((struct:_54 make-_54 ?_54 -ref_54 -set!_54)"
 "(let-values()"
 "(let-values()"
 "(make-struct-type"
@@ -21560,10 +21279,10 @@ static const char *startup_source =
 " '()"
 " #f"
 " 'parsed-let-values)))))"
-"(values struct:_53 make-_53 ?_53)))"
+"(values struct:_54 make-_54 ?_54)))"
 "(define-values"
 "(struct:parsed-letrec-values parsed-letrec-values18.1 parsed-letrec-values?)"
-"(let-values(((struct:_54 make-_54 ?_54 -ref_54 -set!_54)"
+"(let-values(((struct:_55 make-_55 ?_55 -ref_55 -set!_55)"
 "(let-values()"
 "(let-values()"
 "(make-struct-type"
@@ -21578,7 +21297,7 @@ static const char *startup_source =
 " '()"
 " #f"
 " 'parsed-letrec-values)))))"
-"(values struct:_54 make-_54 ?_54)))"
+"(values struct:_55 make-_55 ?_55)))"
 "(define-values"
 "(struct:parsed-define-values"
 " parsed-define-values19.1"
@@ -21586,7 +21305,7 @@ static const char *startup_source =
 " parsed-define-values-ids"
 " parsed-define-values-syms"
 " parsed-define-values-rhs)"
-"(let-values(((struct:_55 make-_55 ?_55 -ref_55 -set!_55)"
+"(let-values(((struct:_56 make-_56 ?_56 -ref_56 -set!_56)"
 "(let-values()"
 "(let-values()"
 "(make-struct-type"
@@ -21602,12 +21321,12 @@ static const char *startup_source =
 " #f"
 " 'parsed-define-values)))))"
 "(values"
-" struct:_55"
-" make-_55"
-" ?_55"
-"(make-struct-field-accessor -ref_55 0 'ids)"
-"(make-struct-field-accessor -ref_55 1 'syms)"
-"(make-struct-field-accessor -ref_55 2 'rhs))))"
+" struct:_56"
+" make-_56"
+" ?_56"
+"(make-struct-field-accessor -ref_56 0 'ids)"
+"(make-struct-field-accessor -ref_56 1 'syms)"
+"(make-struct-field-accessor -ref_56 2 'rhs))))"
 "(define-values"
 "(struct:parsed-define-syntaxes"
 " parsed-define-syntaxes20.1"
@@ -21615,7 +21334,7 @@ static const char *startup_source =
 " parsed-define-syntaxes-ids"
 " parsed-define-syntaxes-syms"
 " parsed-define-syntaxes-rhs)"
-"(let-values(((struct:_56 make-_56 ?_56 -ref_56 -set!_56)"
+"(let-values(((struct:_57 make-_57 ?_57 -ref_57 -set!_57)"
 "(let-values()"
 "(let-values()"
 "(make-struct-type"
@@ -21631,15 +21350,15 @@ static const char *startup_source =
 " #f"
 " 'parsed-define-syntaxes)))))"
 "(values"
-" struct:_56"
-" make-_56"
-" ?_56"
-"(make-struct-field-accessor -ref_56 0 'ids)"
-"(make-struct-field-accessor -ref_56 1 'syms)"
-"(make-struct-field-accessor -ref_56 2 'rhs))))"
+" struct:_57"
+" make-_57"
+" ?_57"
+"(make-struct-field-accessor -ref_57 0 'ids)"
+"(make-struct-field-accessor -ref_57 1 'syms)"
+"(make-struct-field-accessor -ref_57 2 'rhs))))"
 "(define-values"
 "(struct:parsed-begin-for-syntax parsed-begin-for-syntax21.1 parsed-begin-for-syntax? parsed-begin-for-syntax-body)"
-"(let-values(((struct:_57 make-_57 ?_57 -ref_57 -set!_57)"
+"(let-values(((struct:_58 make-_58 ?_58 -ref_58 -set!_58)"
 "(let-values()"
 "(let-values()"
 "(make-struct-type"
@@ -21654,10 +21373,10 @@ static const char *startup_source =
 " '(0)"
 " #f"
 " 'parsed-begin-for-syntax)))))"
-"(values struct:_57 make-_57 ?_57(make-struct-field-accessor -ref_57 0 'body))))"
+"(values struct:_58 make-_58 ?_58(make-struct-field-accessor -ref_58 0 'body))))"
 "(define-values"
 "(struct:parsed-#%declare parsed-#%declare22.1 parsed-#%declare?)"
-"(let-values(((struct:_58 make-_58 ?_58 -ref_58 -set!_58)"
+"(let-values(((struct:_59 make-_59 ?_59 -ref_59 -set!_59)"
 "(let-values()"
 "(let-values()"
 "(make-struct-type"
@@ -21672,10 +21391,10 @@ static const char *startup_source =
 " '()"
 " #f"
 " 'parsed-#%declare)))))"
-"(values struct:_58 make-_58 ?_58)))"
+"(values struct:_59 make-_59 ?_59)))"
 "(define-values"
 "(struct:parsed-require parsed-require23.1 parsed-require?)"
-"(let-values(((struct:_59 make-_59 ?_59 -ref_59 -set!_59)"
+"(let-values(((struct:_60 make-_60 ?_60 -ref_60 -set!_60)"
 "(let-values()"
 "(let-values()"
 "(make-struct-type"
@@ -21690,10 +21409,10 @@ static const char *startup_source =
 " '()"
 " #f"
 " 'parsed-require)))))"
-"(values struct:_59 make-_59 ?_59)))"
+"(values struct:_60 make-_60 ?_60)))"
 "(define-values"
 "(struct:parsed-#%module-begin parsed-#%module-begin24.1 parsed-#%module-begin? parsed-#%module-begin-body)"
-"(let-values(((struct:_60 make-_60 ?_60 -ref_60 -set!_60)"
+"(let-values(((struct:_61 make-_61 ?_61 -ref_61 -set!_61)"
 "(let-values()"
 "(let-values()"
 "(make-struct-type"
@@ -21708,7 +21427,7 @@ static const char *startup_source =
 " '(0)"
 " #f"
 " 'parsed-#%module-begin)))))"
-"(values struct:_60 make-_60 ?_60(make-struct-field-accessor -ref_60 0 'body))))"
+"(values struct:_61 make-_61 ?_61(make-struct-field-accessor -ref_61 0 'body))))"
 "(define-values"
 "(struct:parsed-module"
 " parsed-module25.1"
@@ -21723,7 +21442,7 @@ static const char *startup_source =
 " parsed-module-body"
 " parsed-module-compiled-module"
 " parsed-module-compiled-submodules)"
-"(let-values(((struct:_61 make-_61 ?_61 -ref_61 -set!_61)"
+"(let-values(((struct:_62 make-_62 ?_62 -ref_62 -set!_62)"
 "(let-values()"
 "(let-values()"
 "(make-struct-type"
@@ -21739,28 +21458,28 @@ static const char *startup_source =
 " #f"
 " 'parsed-module)))))"
 "(values"
-" struct:_61"
-" make-_61"
-" ?_61"
-"(make-struct-field-accessor -ref_61 0 'star?)"
-"(make-struct-field-accessor -ref_61 1 'name-id)"
-"(make-struct-field-accessor -ref_61 2 'self)"
-"(make-struct-field-accessor -ref_61 3 'requires)"
-"(make-struct-field-accessor -ref_61 4 'provides)"
-"(make-struct-field-accessor -ref_61 5 'root-ctx-simple?)"
-"(make-struct-field-accessor -ref_61 6 'encoded-root-ctx)"
-"(make-struct-field-accessor -ref_61 7 'body)"
-"(make-struct-field-accessor -ref_61 8 'compiled-module)"
-"(make-struct-field-accessor -ref_61 9 'compiled-submodules))))"
+" struct:_62"
+" make-_62"
+" ?_62"
+"(make-struct-field-accessor -ref_62 0 'star?)"
+"(make-struct-field-accessor -ref_62 1 'name-id)"
+"(make-struct-field-accessor -ref_62 2 'self)"
+"(make-struct-field-accessor -ref_62 3 'requires)"
+"(make-struct-field-accessor -ref_62 4 'provides)"
+"(make-struct-field-accessor -ref_62 5 'root-ctx-simple?)"
+"(make-struct-field-accessor -ref_62 6 'encoded-root-ctx)"
+"(make-struct-field-accessor -ref_62 7 'body)"
+"(make-struct-field-accessor -ref_62 8 'compiled-module)"
+"(make-struct-field-accessor -ref_62 9 'compiled-submodules))))"
 "(define-values"
 "(module-path->mpi5.1)"
-"(lambda(declared-submodule-names1_0 declared-submodule-names2_0 mod-path3_0 self4_2)"
+"(lambda(declared-submodule-names1_0 mod-path3_0 self4_2)"
 "(begin"
 " 'module-path->mpi5"
 "(let-values(((mod-path_4) mod-path3_0))"
 "(let-values(((self_7) self4_2))"
 "(let-values(((declared-submodule-names_1)"
-"(if declared-submodule-names2_0 declared-submodule-names1_0 '#hasheq())))"
+"(if(eq? declared-submodule-names1_0 unsafe-undefined) '#hasheq() declared-submodule-names1_0)))"
 "(let-values()"
 "(if(if(list? mod-path_4)"
 "(if(= 2(length mod-path_4))"
@@ -21791,26 +21510,26 @@ static const char *startup_source =
 "(module-path->mpi/context)"
 "(lambda(mod-path_6 ctx_9)"
 "(begin"
-"(let-values(((mod-path8_0) mod-path_6)"
+"(let-values(((mod-path8_1) mod-path_6)"
 "((temp9_0)(namespace-mpi(expand-context-namespace ctx_9)))"
 "((temp10_2)(expand-context-declared-submodule-names ctx_9)))"
-"(module-path->mpi5.1 temp10_2 #t mod-path8_0 temp9_0)))))"
+"(module-path->mpi5.1 temp10_2 mod-path8_1 temp9_0)))))"
 "(define-values"
 "(syntax-mapped-names)"
-"(lambda(s_0 phase_45)"
+"(lambda(s_0 phase_42)"
 "(begin"
-"(let-values(((s-scs_1)(syntax-scope-set s_0 phase_45)))"
-"(let-values(((ht_96) s-scs_1))"
+"(let-values(((s-scs_1)(syntax-scope-set s_0 phase_42)))"
+"(let-values(((ht_93) s-scs_1))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
-"(let-values()(check-in-immutable-hash-keys ht_96)))"
-"((letrec-values(((for-loop_114)"
-"(lambda(syms_14 i_127)"
+"(let-values()(check-in-immutable-hash-keys ht_93)))"
+"((letrec-values(((for-loop_112)"
+"(lambda(syms_14 i_129)"
 "(begin"
 " 'for-loop"
-"(if i_127"
-"(let-values(((sc_30)(unsafe-immutable-hash-iterate-key ht_96 i_127)))"
+"(if i_129"
+"(let-values(((sc_30)(unsafe-immutable-hash-iterate-key ht_93 i_129)))"
 "(let-values(((syms_15)"
 "(let-values(((syms_16) syms_14))"
 "(let-values(((syms_17)"
@@ -21824,12 +21543,12 @@ static const char *startup_source =
 " null)))))"
 "(values syms_17)))))"
 "(if(not #f)"
-"(for-loop_114 syms_15(unsafe-immutable-hash-iterate-next ht_96 i_127))"
+"(for-loop_112 syms_15(unsafe-immutable-hash-iterate-next ht_93 i_129))"
 " syms_15)))"
 " syms_14)))))"
-" for-loop_114)"
+" for-loop_112)"
 "(seteq)"
-"(unsafe-immutable-hash-iterate-first ht_96))))))))"
+"(unsafe-immutable-hash-iterate-first ht_93))))))))"
 "(define-values"
 "(struct:requires+provides"
 " requires+provides1.1"
@@ -21845,7 +21564,7 @@ static const char *startup_source =
 " requires+provides-all-bindings-simple?"
 " set-requires+provides-can-cross-phase-persistent?!"
 " set-requires+provides-all-bindings-simple?!)"
-"(let-values(((struct:_62 make-_62 ?_62 -ref_62 -set!_62)"
+"(let-values(((struct:_63 make-_63 ?_63 -ref_63 -set!_63)"
 "(let-values()"
 "(let-values()"
 "(make-struct-type"
@@ -21861,20 +21580,20 @@ static const char *startup_source =
 " #f"
 " 'requires+provides)))))"
 "(values"
-" struct:_62"
-" make-_62"
-" ?_62"
-"(make-struct-field-accessor -ref_62 0 'self)"
-"(make-struct-field-accessor -ref_62 1 'require-mpis)"
-"(make-struct-field-accessor -ref_62 2 'require-mpis-in-order)"
-"(make-struct-field-accessor -ref_62 3 'requires)"
-"(make-struct-field-accessor -ref_62 4 'provides)"
-"(make-struct-field-accessor -ref_62 5 'phase-to-defined-syms)"
-"(make-struct-field-accessor -ref_62 6 'also-required)"
-"(make-struct-field-accessor -ref_62 7 'can-cross-phase-persistent?)"
-"(make-struct-field-accessor -ref_62 8 'all-bindings-simple?)"
-"(make-struct-field-mutator -set!_62 7 'can-cross-phase-persistent?)"
-"(make-struct-field-mutator -set!_62 8 'all-bindings-simple?))))"
+" struct:_63"
+" make-_63"
+" ?_63"
+"(make-struct-field-accessor -ref_63 0 'self)"
+"(make-struct-field-accessor -ref_63 1 'require-mpis)"
+"(make-struct-field-accessor -ref_63 2 'require-mpis-in-order)"
+"(make-struct-field-accessor -ref_63 3 'requires)"
+"(make-struct-field-accessor -ref_63 4 'provides)"
+"(make-struct-field-accessor -ref_63 5 'phase-to-defined-syms)"
+"(make-struct-field-accessor -ref_63 6 'also-required)"
+"(make-struct-field-accessor -ref_63 7 'can-cross-phase-persistent?)"
+"(make-struct-field-accessor -ref_63 8 'all-bindings-simple?)"
+"(make-struct-field-mutator -set!_63 7 'can-cross-phase-persistent?)"
+"(make-struct-field-mutator -set!_63 8 'all-bindings-simple?))))"
 "(define-values"
 "(struct:required required2.1 required? required-id required-phase required-can-be-shadowed? required-as-transformer?)"
 "(let-values(((struct:_11 make-_11 ?_11 -ref_11 -set!_11)"
@@ -21902,7 +21621,7 @@ static const char *startup_source =
 "(make-struct-field-accessor -ref_11 3 'as-transformer?))))"
 "(define-values"
 "(struct:nominal nominal3.1 nominal? nominal-module nominal-provide-phase nominal-require-phase nominal-sym)"
-"(let-values(((struct:_63 make-_63 ?_63 -ref_63 -set!_63)"
+"(let-values(((struct:_64 make-_64 ?_64 -ref_64 -set!_64)"
 "(let-values()"
 "(let-values()"
 "(make-struct-type"
@@ -21918,13 +21637,13 @@ static const char *startup_source =
 " #f"
 " 'nominal)))))"
 "(values"
-" struct:_63"
-" make-_63"
-" ?_63"
-"(make-struct-field-accessor -ref_63 0 'module)"
-"(make-struct-field-accessor -ref_63 1 'provide-phase)"
-"(make-struct-field-accessor -ref_63 2 'require-phase)"
-"(make-struct-field-accessor -ref_63 3 'sym))))"
+" struct:_64"
+" make-_64"
+" ?_64"
+"(make-struct-field-accessor -ref_64 0 'module)"
+"(make-struct-field-accessor -ref_64 1 'provide-phase)"
+"(make-struct-field-accessor -ref_64 2 'require-phase)"
+"(make-struct-field-accessor -ref_64 3 'sym))))"
 "(define-values"
 "(struct:bulk-required"
 " bulk-required4.1"
@@ -21934,7 +21653,7 @@ static const char *startup_source =
 " bulk-required-s"
 " bulk-required-provide-phase-level"
 " bulk-required-can-be-shadowed?)"
-"(let-values(((struct:_64 make-_64 ?_64 -ref_64 -set!_64)"
+"(let-values(((struct:_65 make-_65 ?_65 -ref_65 -set!_65)"
 "(let-values()"
 "(let-values()"
 "(make-struct-type"
@@ -21950,24 +21669,24 @@ static const char *startup_source =
 " #f"
 " 'bulk-required)))))"
 "(values"
-" struct:_64"
-" make-_64"
-" ?_64"
-"(make-struct-field-accessor -ref_64 0 'provides)"
-"(make-struct-field-accessor -ref_64 1 'prefix-len)"
-"(make-struct-field-accessor -ref_64 2 's)"
-"(make-struct-field-accessor -ref_64 3 'provide-phase-level)"
-"(make-struct-field-accessor -ref_64 4 'can-be-shadowed?))))"
+" struct:_65"
+" make-_65"
+" ?_65"
+"(make-struct-field-accessor -ref_65 0 'provides)"
+"(make-struct-field-accessor -ref_65 1 'prefix-len)"
+"(make-struct-field-accessor -ref_65 2 's)"
+"(make-struct-field-accessor -ref_65 3 'provide-phase-level)"
+"(make-struct-field-accessor -ref_65 4 'can-be-shadowed?))))"
 "(define-values"
 "(make-requires+provides8.1)"
-"(lambda(copy-requires5_0 copy-requires6_0 self7_0)"
+"(lambda(copy-requires5_0 self7_0)"
 "(begin"
 " 'make-requires+provides8"
-"(let-values(((self_8) self7_0))"
-"(let-values(((copy-r+p_0)(if copy-requires6_0 copy-requires5_0 #f)))"
+"(let-values(((self_2) self7_0))"
+"(let-values(((copy-r+p_0) copy-requires5_0))"
 "(let-values()"
 "(requires+provides1.1"
-" self_8"
+" self_2"
 "(if copy-r+p_0(requires+provides-require-mpis copy-r+p_0)(make-module-path-index-intern-table))"
 "(if copy-r+p_0(hash-copy(requires+provides-require-mpis-in-order copy-r+p_0))(make-hasheqv))"
 "(make-hasheq)"
@@ -21987,53 +21706,53 @@ static const char *startup_source =
 "(hash-clear!(requires+provides-also-required r+p_0))))))"
 "(define-values"
 "(intern-mpi)"
-"(lambda(r+p_1 mpi_30)(begin(intern-module-path-index!(requires+provides-require-mpis r+p_1) mpi_30))))"
+"(lambda(r+p_1 mpi_29)(begin(intern-module-path-index!(requires+provides-require-mpis r+p_1) mpi_29))))"
 "(define-values"
 "(add-required-module!)"
-"(lambda(r+p_2 mod-name_8 phase-shift_6 is-cross-phase-persistent?_0)"
+"(lambda(r+p_2 mod-name_8 phase-shift_2 is-cross-phase-persistent?_0)"
 "(begin"
-"(let-values(((mpi_31)(intern-mpi r+p_2 mod-name_8)))"
+"(let-values(((mpi_30)(intern-mpi r+p_2 mod-name_8)))"
 "(begin"
-"(if(hash-ref(hash-ref(requires+provides-requires r+p_2) mpi_31 '#hasheqv()) phase-shift_6 #f)"
+"(if(hash-ref(hash-ref(requires+provides-requires r+p_2) mpi_30 '#hasheqv()) phase-shift_2 #f)"
 "(void)"
 "(let-values()"
 "(begin"
 "(hash-update!"
 "(requires+provides-require-mpis-in-order r+p_2)"
-" phase-shift_6"
-"(lambda(l_52)(cons mpi_31 l_52))"
+" phase-shift_2"
+"(lambda(l_52)(cons mpi_30 l_52))"
 " null)"
 "(hash-set!"
-"(hash-ref!(requires+provides-requires r+p_2) mpi_31 make-hasheqv)"
-" phase-shift_6"
+"(hash-ref!(requires+provides-requires r+p_2) mpi_30 make-hasheqv)"
+" phase-shift_2"
 "(make-hasheq)))))"
 "(if is-cross-phase-persistent?_0"
 "(void)"
 "(let-values()(set-requires+provides-can-cross-phase-persistent?! r+p_2 #f)))"
-" mpi_31)))))"
+" mpi_30)))))"
 "(define-values"
 "(add-defined-or-required-id!19.1)"
-"(lambda(as-transformer?12_0 can-be-shadowed?11_0 can-be-shadowed?13_0 r+p15_0 id16_0 phase17_0 binding18_0)"
+"(lambda(as-transformer?12_0 can-be-shadowed?11_0 r+p15_0 id16_0 phase17_0 binding18_0)"
 "(begin"
 " 'add-defined-or-required-id!19"
 "(let-values(((r+p_3) r+p15_0))"
-"(let-values(((id_24) id16_0))"
-"(let-values(((phase_53) phase17_0))"
+"(let-values(((id_23) id16_0))"
+"(let-values(((phase_50) phase17_0))"
 "(let-values(((binding_11) binding18_0))"
-"(let-values(((can-be-shadowed?_0)(if can-be-shadowed?13_0 can-be-shadowed?11_0 #f)))"
+"(let-values(((can-be-shadowed?_0) can-be-shadowed?11_0))"
 "(let-values(((as-transformer?_0) as-transformer?12_0))"
 "(let-values()"
 "(begin"
 "(if(equal?"
-" phase_53"
+" phase_50"
 "(phase+"
 "(module-binding-nominal-phase binding_11)"
 "(module-binding-nominal-require-phase binding_11)))"
 "(void)"
 "                        (let-values () (error \"internal error: binding phase does not match nominal info\")))"
 "(let-values(((r+p124_0) r+p_3)"
-"((id125_0) id_24)"
-"((phase126_0) phase_53)"
+"((id125_0) id_23)"
+"((phase126_0) phase_50)"
 "((temp127_0)(module-binding-nominal-module binding_11))"
 "((temp128_0)(module-binding-nominal-require-phase binding_11))"
 "((can-be-shadowed?129_0) can-be-shadowed?_0)"
@@ -22058,8 +21777,8 @@ static const char *startup_source =
 "(begin"
 " 'add-defined-or-required-id-at-nominal!33"
 "(let-values(((r+p_4) r+p30_0))"
-"(let-values(((id_25) id31_0))"
-"(let-values(((phase_54) phase32_0))"
+"(let-values(((id_24) id31_0))"
+"(let-values(((phase_51) phase32_0))"
 "(let-values(((nominal-module_6) nominal-module22_0))"
 "(let-values(((nominal-require-phase_4) nominal-require-phase23_0))"
 "(let-values(((can-be-shadowed?_1) can-be-shadowed?24_0))"
@@ -22071,13 +21790,13 @@ static const char *startup_source =
 "(intern-mpi r+p_4 nominal-module_6)"
 " make-hasheqv)))"
 "(let-values(((sym-to-reqds_0)(hash-ref! at-mod_0 nominal-require-phase_4 make-hasheq)))"
-"(let-values(((sym_32)(syntax-e$1 id_25)))"
+"(let-values(((sym_34)(syntax-e$1 id_24)))"
 "(hash-set!"
 " sym-to-reqds_0"
-" sym_32"
+" sym_34"
 "(cons-ish"
-"(required2.1 id_25 phase_54 can-be-shadowed?_1 as-transformer?_1)"
-"(hash-ref sym-to-reqds_0 sym_32 null)))))))))))))))))"
+"(required2.1 id_24 phase_51 can-be-shadowed?_1 as-transformer?_1)"
+"(hash-ref sym-to-reqds_0 sym_34 null)))))))))))))))))"
 "(define-values"
 "(add-bulk-required-ids!59.1)"
 "(lambda(accum-update-nominals42_0"
@@ -22098,10 +21817,10 @@ static const char *startup_source =
 "(begin"
 " 'add-bulk-required-ids!59"
 "(let-values(((r+p_5) r+p52_0))"
-"(let-values(((s_202) s53_0))"
-"(let-values(((self_9) self54_0))"
+"(let-values(((s_113) s53_0))"
+"(let-values(((self_8) self54_0))"
 "(let-values(((nominal-module_7) nominal-module55_0))"
-"(let-values(((phase-shift_7) phase-shift56_0))"
+"(let-values(((phase-shift_6) phase-shift56_0))"
 "(let-values(((provides_4) provides57_0))"
 "(let-values(((provide-phase-level_3) provide-phase-level58_0))"
 "(let-values(((bulk-prefix_0) prefix36_0))"
@@ -22111,23 +21830,23 @@ static const char *startup_source =
 "(let-values(((can-be-shadowed?_2) can-be-shadowed?40_0))"
 "(let-values(((check-and-remove?_0) check-and-remove?41_0))"
 "(let-values(((accum-update-nominals_0) accum-update-nominals42_0))"
-"(let-values(((who_12) who43_0))"
+"(let-values(((who_11) who43_0))"
 "(let-values()"
-"(let-values(((phase_55)(phase+ provide-phase-level_3 phase-shift_7)))"
+"(let-values(((phase_52)(phase+ provide-phase-level_3 phase-shift_6)))"
 "(let-values(((shortcut-table_0)"
 "(if check-and-remove?_0"
 "(if(>(hash-count provides_4) 64)"
-"(syntax-mapped-names s_202 phase_55)"
+"(syntax-mapped-names s_113 phase_52)"
 " #f)"
 " #f)))"
-"(let-values(((mpi_32)(intern-mpi r+p_5 nominal-module_7)))"
+"(let-values(((mpi_31)(intern-mpi r+p_5 nominal-module_7)))"
 "(let-values(((at-mod_1)"
 "(hash-ref!"
 "(requires+provides-requires r+p_5)"
-" mpi_32"
+" mpi_31"
 " make-hasheqv)))"
 "(let-values(((sym-to-reqds_1)"
-"(hash-ref! at-mod_1 phase-shift_7 make-hasheq)))"
+"(hash-ref! at-mod_1 phase-shift_6 make-hasheq)))"
 "(let-values(((prefix-len_0)"
 "(if bulk-prefix_0"
 "(string-length(symbol->string bulk-prefix_0))"
@@ -22136,32 +21855,32 @@ static const char *startup_source =
 "(bulk-required4.1"
 " provides_4"
 " prefix-len_0"
-" s_202"
+" s_113"
 " provide-phase-level_3"
 " can-be-shadowed?_2)))"
-"(let-values(((ht_97) provides_4))"
+"(let-values(((ht_94) provides_4))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
-"(let-values()(check-in-hash ht_97)))"
+"(let-values()(check-in-hash ht_94)))"
 "((letrec-values(((for-loop_155)"
-"(lambda(result_72 i_128)"
+"(lambda(result_70 i_130)"
 "(begin"
 " 'for-loop"
-"(if i_128"
+"(if i_130"
 "(let-values(((out-sym_0 binding/p_2)"
 "(hash-iterate-key+value"
-" ht_97"
-" i_128)))"
-"(let-values(((result_73)"
-"(let-values(((result_74)"
-" result_72))"
+" ht_94"
+" i_130)))"
+"(let-values(((result_71)"
+"(let-values(((result_72)"
+" result_70))"
 "(if(not"
 "(symbol-interned?"
 " out-sym_0))"
-" result_74"
+" result_72"
 "(let-values()"
-"(let-values(((result_75)"
+"(let-values(((result_73)"
 "(let-values()"
 "(let-values()"
 "(begin"
@@ -22179,7 +21898,7 @@ static const char *startup_source =
 "(let-values()"
 " #f)"
 "(let-values()"
-"(let-values(((sym_33)"
+"(let-values(((sym_35)"
 "(if(not"
 " bulk-prefix_0)"
 "(let-values()"
@@ -22199,7 +21918,7 @@ static const char *startup_source =
 " or-part_175"
 "(hash-ref"
 " shortcut-table_0"
-" sym_33"
+" sym_35"
 " #f)))"
 " #f)"
 "(let-values()"
@@ -22211,11 +21930,11 @@ static const char *startup_source =
 " r+p_5)"
 "((temp134_0)"
 "(datum->syntax$1"
-" s_202"
-" sym_33"
-" s_202))"
+" s_113"
+" sym_35"
+" s_113))"
 "((phase135_0)"
-" phase_55)"
+" phase_52)"
 "((orig-s136_0)"
 " orig-s_0)"
 "((temp137_0)"
@@ -22223,15 +21942,15 @@ static const char *startup_source =
 "(let-values(((binding/p141_0)"
 " binding/p_2)"
 "((sym142_0)"
-" sym_33)"
+" sym_35)"
 "((self143_0)"
-" self_9)"
+" self_8)"
 "((mpi144_0)"
-" mpi_32)"
+" mpi_31)"
 "((provide-phase-level145_0)"
 " provide-phase-level_3)"
 "((phase-shift146_0)"
-" phase-shift_7))"
+" phase-shift_6))"
 "(provide-binding-to-require-binding11.1"
 " mpi144_0"
 " phase-shift146_0"
@@ -22244,19 +21963,14 @@ static const char *startup_source =
 "((accum-update-nominals139_0)"
 " accum-update-nominals_0)"
 "((who140_0)"
-" who_12))"
+" who_11))"
 "(check-not-defined95.1"
 " accum-update-nominals139_0"
-" #t"
 " temp132_0"
-" #t"
 " temp131_0"
-" #t"
 " orig-s136_0"
 " temp138_0"
-" #t"
 " temp137_0"
-" #t"
 " who140_0"
 " r+p133_0"
 " temp134_0"
@@ -22269,49 +21983,49 @@ static const char *startup_source =
 "(let-values()"
 "(hash-set!"
 " sym-to-reqds_1"
-" sym_33"
+" sym_35"
 "(cons-ish"
 " br_0"
 "(hash-ref"
 " sym-to-reqds_1"
-" sym_33"
+" sym_35"
 " null)))))"
 " already-defined?_0))))))))))"
 "(values"
-" result_75)))))))"
+" result_73)))))))"
 "(if(if(not"
-"((lambda x_52 result_73)"
+"((lambda x_54 result_71)"
 " out-sym_0"
 " binding/p_2))"
 "(not #f)"
 " #f)"
 "(for-loop_155"
-" result_73"
-"(hash-iterate-next ht_97 i_128))"
-" result_73)))"
-" result_72)))))"
+" result_71"
+"(hash-iterate-next ht_94 i_130))"
+" result_71)))"
+" result_70)))))"
 " for-loop_155)"
 " #f"
-"(hash-iterate-first ht_97))))))))))))))))))))))))))))))"
+"(hash-iterate-first ht_94))))))))))))))))))))))))))))))"
 "(define-values"
 "(bulk-required->required)"
-"(lambda(br_1 nominal-module_8 phase_56 sym_34)"
+"(lambda(br_1 nominal-module_8 phase_53 sym_36)"
 "(begin"
 "(let-values(((prefix-len_1)(bulk-required-prefix-len br_1)))"
 "(let-values(((out-sym_1)"
 "(if(zero? prefix-len_1)"
-" sym_34"
-"(string->symbol(substring(symbol->string sym_34) prefix-len_1)))))"
+" sym_36"
+"(string->symbol(substring(symbol->string sym_36) prefix-len_1)))))"
 "(let-values(((binding/p_3)(hash-ref(bulk-required-provides br_1) out-sym_1)))"
 "(required2.1"
-"(datum->syntax$1(bulk-required-s br_1) sym_34)"
-"(phase+ phase_56(bulk-required-provide-phase-level br_1))"
+"(datum->syntax$1(bulk-required-s br_1) sym_36)"
+"(phase+ phase_53(bulk-required-provide-phase-level br_1))"
 "(bulk-required-can-be-shadowed? br_1)"
 "(provided-as-transformer? binding/p_3))))))))"
 "(define-values"
 "(normalize-required)"
-"(lambda(r_35 mod-name_9 phase_57 sym_35)"
-"(begin(if(bulk-required? r_35)(bulk-required->required r_35 mod-name_9 phase_57 sym_35) r_35))))"
+"(lambda(r_35 mod-name_9 phase_54 sym_37)"
+"(begin(if(bulk-required? r_35)(bulk-required->required r_35 mod-name_9 phase_54 sym_37) r_35))))"
 "(define-values"
 "(add-enclosing-module-defined-and-required!67.1)"
 "(lambda(enclosing-requires+provides62_0 r+p64_0 enclosing-mod65_0 phase-shift66_0)"
@@ -22320,22 +22034,22 @@ static const char *startup_source =
 "(let-values(((r+p_6) r+p64_0))"
 "(let-values(((enclosing-r+p_0) enclosing-requires+provides62_0))"
 "(let-values(((enclosing-mod_0) enclosing-mod65_0))"
-"(let-values(((phase-shift_8) phase-shift66_0))"
+"(let-values(((phase-shift_7) phase-shift66_0))"
 "(let-values()"
 "(begin"
 "(set-requires+provides-all-bindings-simple?! r+p_6 #f)"
-"(let-values(((ht_98)(requires+provides-requires enclosing-r+p_0)))"
+"(let-values(((ht_95)(requires+provides-requires enclosing-r+p_0)))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
-"(let-values()(check-in-hash ht_98)))"
+"(let-values()(check-in-hash ht_95)))"
 "((letrec-values(((for-loop_156)"
-"(lambda(i_129)"
+"(lambda(i_131)"
 "(begin"
 " 'for-loop"
-"(if i_129"
+"(if i_131"
 "(let-values(((mod-name_10 at-mod_2)"
-"(hash-iterate-key+value ht_98 i_129)))"
+"(hash-iterate-key+value ht_95 i_131)))"
 "(let-values((()"
 "(let-values()"
 "(let-values((()"
@@ -22343,25 +22057,25 @@ static const char *startup_source =
 "(begin"
 "(let-values()"
 "(begin"
-"(let-values(((ht_99) at-mod_2))"
+"(let-values(((ht_96) at-mod_2))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
 "(#%variable-reference))"
 "(void)"
 "(let-values()"
-"(check-in-hash ht_99)))"
+"(check-in-hash ht_96)))"
 "((letrec-values(((for-loop_157)"
-"(lambda(i_130)"
+"(lambda(i_132)"
 "(begin"
 " 'for-loop"
-"(if i_130"
-"(let-values(((phase_58"
+"(if i_132"
+"(let-values(((phase_55"
 " at-phase_8)"
 "(hash-iterate-key+value"
-" ht_99"
-" i_130)))"
+" ht_96"
+" i_132)))"
 "(let-values((()"
-"(let-values(((ht_100)"
+"(let-values(((ht_97)"
 " at-phase_8))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
@@ -22369,40 +22083,40 @@ static const char *startup_source =
 "(void)"
 "(let-values()"
 "(check-in-hash"
-" ht_100)))"
+" ht_97)))"
 "((letrec-values(((for-loop_158)"
-"(lambda(i_131)"
+"(lambda(i_120)"
 "(begin"
 " 'for-loop"
-"(if i_131"
-"(let-values(((sym_36"
+"(if i_120"
+"(let-values(((sym_38"
 " reqds_0)"
 "(hash-iterate-key+value"
-" ht_100"
-" i_131)))"
+" ht_97"
+" i_120)))"
 "(let-values((()"
-"(let-values(((lst_120)"
+"(let-values(((lst_122)"
 " reqds_0))"
 "(begin"
 "(void)"
 "((letrec-values(((for-loop_159)"
-"(lambda(lst_121)"
+"(lambda(lst_123)"
 "(begin"
 " 'for-loop"
 "(if(not"
 "(null?"
-" lst_121))"
+" lst_123))"
 "(let-values(((reqd/maybe-bulk_0)"
 "(if(pair?"
-" lst_121)"
+" lst_123)"
 "(car"
-" lst_121)"
-" lst_121))"
-"((rest_61)"
+" lst_123)"
+" lst_123))"
+"((rest_62)"
 "(if(pair?"
-" lst_121)"
+" lst_123)"
 "(cdr"
-" lst_121)"
+" lst_123)"
 " null)))"
 "(let-values((()"
 "(let-values()"
@@ -22414,8 +22128,8 @@ static const char *startup_source =
 "(normalize-required"
 " reqd/maybe-bulk_0"
 " mod-name_10"
-" phase_58"
-" sym_36)))"
+" phase_55"
+" sym_38)))"
 "(let-values(((r+p147_0)"
 " r+p_6)"
 "((temp148_0)"
@@ -22428,24 +22142,22 @@ static const char *startup_source =
 " enclosing-r+p_0))"
 "((enclosing-mod156_0)"
 " enclosing-mod_0))"
-"(syntax-module-path-index-shift15.1"
-" #f"
+"(syntax-module-path-index-shift13.1"
 " #f"
 " temp154_0"
 " temp155_0"
 " enclosing-mod156_0"
-" #f"
 " #f))"
-" phase-shift_8))"
+" phase-shift_7))"
 "((temp149_0)"
 "(phase+"
 "(required-phase"
 " reqd_0)"
-" phase-shift_8))"
+" phase-shift_7))"
 "((enclosing-mod150_0)"
 " enclosing-mod_0)"
 "((phase-shift151_0)"
-" phase-shift_8)"
+" phase-shift_7)"
 "((temp152_0)"
 " #t)"
 "((temp153_0)"
@@ -22464,220 +22176,209 @@ static const char *startup_source =
 "(if(not"
 " #f)"
 "(for-loop_159"
-" rest_61)"
+" rest_62)"
 "(values))))"
 "(values))))))"
 " for-loop_159)"
-" lst_120)))))"
+" lst_122)))))"
 "(if(not"
 " #f)"
 "(for-loop_158"
 "(hash-iterate-next"
-" ht_100"
-" i_131))"
+" ht_97"
+" i_120))"
 "(values))))"
 "(values))))))"
 " for-loop_158)"
 "(hash-iterate-first"
-" ht_100))))))"
+" ht_97))))))"
 "(if(not"
 " #f)"
 "(for-loop_157"
 "(hash-iterate-next"
-" ht_99"
-" i_130))"
+" ht_96"
+" i_132))"
 "(values))))"
 "(values))))))"
 " for-loop_157)"
-"(hash-iterate-first ht_99))))"
+"(hash-iterate-first ht_96))))"
 "(void)))"
 "(values)))))"
 "(values)))))"
 "(if(not #f)"
-"(for-loop_156(hash-iterate-next ht_98 i_129))"
+"(for-loop_156(hash-iterate-next ht_95 i_131))"
 "(values))))"
 "(values))))))"
 " for-loop_156)"
-"(hash-iterate-first ht_98))))"
+"(hash-iterate-first ht_95))))"
 "(void))))))))))"
 "(define-values"
 "(remove-required-id!75.1)"
-"(lambda(unless-matches70_0 r+p72_0 id73_0 phase74_1)"
+"(lambda(unless-matches70_0 r+p72_0 id73_0 phase74_0)"
 "(begin"
 " 'remove-required-id!75"
 "(let-values(((r+p_7) r+p72_0))"
-"(let-values(((id_26) id73_0))"
-"(let-values(((phase_59) phase74_1))"
+"(let-values(((id_25) id73_0))"
+"(let-values(((phase_56) phase74_0))"
 "(let-values(((binding_12) unless-matches70_0))"
 "(let-values()"
-"(let-values(((b_67)"
-"(let-values(((id157_0) id_26)((phase158_0) phase_59)((temp159_0) #t))"
-"(resolve+shift30.1 #f #f temp159_0 #t #f #f #f #f #f #f id157_0 phase158_0))))"
-"(if b_67"
+"(let-values(((b_66)"
+"(let-values(((id157_0) id_25)((phase158_0) phase_56)((temp159_0) #t))"
+"(resolve+shift28.1 #f temp159_0 null unsafe-undefined #f id157_0 phase158_0))))"
+"(if b_66"
 "(let-values()"
-"(let-values(((mpi_33)(intern-mpi r+p_7(module-binding-nominal-module b_67))))"
-"(let-values(((at-mod_3)(hash-ref(requires+provides-requires r+p_7) mpi_33 #f)))"
+"(let-values(((mpi_32)(intern-mpi r+p_7(module-binding-nominal-module b_66))))"
+"(let-values(((at-mod_3)(hash-ref(requires+provides-requires r+p_7) mpi_32 #f)))"
 "(if at-mod_3"
 "(let-values()"
-"(let-values(((nominal-phase_4)(module-binding-nominal-require-phase b_67)))"
+"(let-values(((nominal-phase_4)(module-binding-nominal-require-phase b_66)))"
 "(let-values(((sym-to-reqds_2)(hash-ref at-mod_3 nominal-phase_4 #f)))"
 "(if sym-to-reqds_2"
 "(let-values()"
-"(let-values(((sym_37)(syntax-e$1 id_26)))"
-"(let-values(((l_53)(hash-ref sym-to-reqds_2 sym_37 null)))"
+"(let-values(((sym_39)(syntax-e$1 id_25)))"
+"(let-values(((l_53)(hash-ref sym-to-reqds_2 sym_39 null)))"
 "(if(null? l_53)"
 "(void)"
 "(let-values()"
-"(if(same-binding? b_67 binding_12)"
+"(if(same-binding? b_66 binding_12)"
 "(void)"
 "(let-values()"
 "(hash-set!"
 " sym-to-reqds_2"
-" sym_37"
+" sym_39"
 "(remove-non-matching-requireds"
 " l_53"
-" id_26"
-" phase_59"
-" mpi_33"
+" id_25"
+" phase_56"
+" mpi_32"
 " nominal-phase_4"
-" sym_37)))))))))"
+" sym_39)))))))))"
 "(void)))))"
 "(void)))))"
 "(void)))))))))))"
 "(define-values"
 "(remove-non-matching-requireds)"
-"(lambda(reqds_1 id_27 phase_60 mpi_34 nominal-phase_5 sym_38)"
+"(lambda(reqds_1 id_26 phase_57 mpi_33 nominal-phase_5 sym_40)"
 "(begin"
 "(reverse$1"
-"(let-values(((lst_122) reqds_1))"
+"(let-values(((lst_124) reqds_1))"
 "(begin"
 "(void)"
 "((letrec-values(((for-loop_160)"
-"(lambda(fold-var_106 lst_123)"
+"(lambda(fold-var_104 lst_125)"
 "(begin"
 " 'for-loop"
-"(if(not(null? lst_123))"
-"(let-values(((r_36)(if(pair? lst_123)(car lst_123) lst_123))"
-"((rest_62)(if(pair? lst_123)(cdr lst_123) null)))"
-"(let-values(((fold-var_107)"
+"(if(not(null? lst_125))"
+"(let-values(((r_36)(if(pair? lst_125)(car lst_125) lst_125))"
+"((rest_63)(if(pair? lst_125)(cdr lst_125) null)))"
+"(let-values(((fold-var_105)"
 "(let-values(((r_37)"
 "(normalize-required"
 " r_36"
-" mpi_34"
+" mpi_33"
 " nominal-phase_5"
-" sym_38)))"
+" sym_40)))"
 "(begin"
 " #t"
 "((letrec-values(((for-loop_161)"
-"(lambda(fold-var_108)"
+"(lambda(fold-var_106)"
 "(begin"
 " 'for-loop"
 "(let-values()"
-"(let-values(((fold-var_109)"
-"(let-values(((fold-var_110)"
-" fold-var_108))"
+"(let-values(((fold-var_107)"
+"(let-values(((fold-var_108)"
+" fold-var_106))"
 "(if(if(eqv?"
-" phase_60"
+" phase_57"
 "(required-phase"
 " r_37))"
 "(free-identifier=?$1"
 "(required-id r_37)"
-" id_27"
-" phase_60"
-" phase_60)"
+" id_26"
+" phase_57"
+" phase_57)"
 " #f)"
-" fold-var_110"
-"(let-values(((fold-var_111)"
-" fold-var_110))"
-"(let-values(((fold-var_112)"
+" fold-var_108"
+"(let-values(((fold-var_109)"
+" fold-var_108))"
+"(let-values(((fold-var_110)"
 "(let-values()"
 "(cons"
 "(let-values()"
 " r_37)"
-" fold-var_111))))"
+" fold-var_109))))"
 "(values"
-" fold-var_112)))))))"
-" fold-var_109))))))"
+" fold-var_110)))))))"
+" fold-var_107))))))"
 " for-loop_161)"
-" fold-var_106)))))"
-"(if(not #f)(for-loop_160 fold-var_107 rest_62) fold-var_107)))"
-" fold-var_106)))))"
+" fold-var_104)))))"
+"(if(not #f)(for-loop_160 fold-var_105 rest_63) fold-var_105)))"
+" fold-var_104)))))"
 " for-loop_160)"
 " null"
-" lst_122)))))))"
+" lst_124)))))))"
 "(define-values"
 "(check-not-defined95.1)"
 "(lambda(accum-update-nominals83_0"
-" accum-update-nominals90_0"
 " allow-defined?79_0"
-" allow-defined?86_0"
 " check-not-required?78_0"
-" check-not-required?85_0"
 " in80_0"
 " remove-shadowed!?82_0"
-" remove-shadowed!?89_0"
 " unless-matches81_0"
-" unless-matches88_0"
 " who84_0"
 " r+p92_0"
 " id93_0"
 " phase94_0)"
 "(begin"
 " 'check-not-defined95"
-"(let-values(((check-not-required?_0)(if check-not-required?85_0 check-not-required?78_0 #f)))"
-"(let-values(((allow-defined?_0)(if allow-defined?86_0 allow-defined?79_0 #f)))"
+"(let-values(((check-not-required?_0) check-not-required?78_0))"
+"(let-values(((allow-defined?_0) allow-defined?79_0))"
 "(let-values(((r+p_8) r+p92_0))"
-"(let-values(((id_28) id93_0))"
-"(let-values(((phase_61) phase94_0))"
+"(let-values(((id_27) id93_0))"
+"(let-values(((phase_58) phase94_0))"
 "(let-values(((orig-s_1) in80_0))"
-"(let-values(((ok-binding/delayed_0)(if unless-matches88_0 unless-matches81_0 #f)))"
-"(let-values(((remove-shadowed!?_0)(if remove-shadowed!?89_0 remove-shadowed!?82_0 #f)))"
-"(let-values(((accum-update-nominals_1)"
-"(if accum-update-nominals90_0 accum-update-nominals83_0 #f)))"
-"(let-values(((who_13) who84_0))"
+"(let-values(((ok-binding/delayed_0) unless-matches81_0))"
+"(let-values(((remove-shadowed!?_0) remove-shadowed!?82_0))"
+"(let-values(((accum-update-nominals_1) accum-update-nominals83_0))"
+"(let-values(((who_12) who84_0))"
 "(let-values()"
-"(let-values(((b_68)"
-"(let-values(((id160_0) id_28)((phase161_0) phase_61)((temp162_1) #t))"
-"(resolve+shift30.1"
-" #f"
-" #f"
-" temp162_1"
-" #t"
-" #f"
-" #f"
-" #f"
-" #f"
+"(let-values(((b_67)"
+"(let-values(((id160_0) id_27)((phase161_0) phase_58)((temp162_0) #t))"
+"(resolve+shift28.1"
 " #f"
+" temp162_0"
+" null"
+" unsafe-undefined"
 " #f"
 " id160_0"
 " phase161_0))))"
-"(if(not b_68)"
+"(if(not b_67)"
 "(let-values() #f)"
-"(if(not(module-binding? b_68))"
-"                                  (let-values () (raise-syntax-error$1 #f \"identifier out of context\" id_28))"
+"(if(not(module-binding? b_67))"
+"                                  (let-values () (raise-syntax-error$1 #f \"identifier out of context\" id_27))"
 "(let-values()"
 "(let-values(((defined?_0)"
-"(if b_68"
-"(eq?(requires+provides-self r+p_8)(module-binding-module b_68))"
+"(if b_67"
+"(eq?(requires+provides-self r+p_8)(module-binding-module b_67))"
 " #f)))"
 "(if(if defined?_0"
 "(not"
 "(hash-ref"
 "(hash-ref"
 "(requires+provides-phase-to-defined-syms r+p_8)"
-" phase_61"
+" phase_58"
 " '#hasheq())"
-"(module-binding-sym b_68)"
+"(module-binding-sym b_67)"
 " #f))"
 " #f)"
 "(let-values() #f)"
 "(let-values()"
 "(let-values(((define-shadowing-require?_0)"
 "(if(not defined?_0)(not check-not-required?_0) #f)))"
-"(let-values(((mpi_35)"
-"(intern-mpi r+p_8(module-binding-nominal-module b_68))))"
+"(let-values(((mpi_34)"
+"(intern-mpi r+p_8(module-binding-nominal-module b_67))))"
 "(let-values(((at-mod_4)"
-"(hash-ref(requires+provides-requires r+p_8) mpi_35 #f)))"
+"(hash-ref(requires+provides-requires r+p_8) mpi_34 #f)))"
 "(let-values(((ok-binding_0)"
 "(if(not define-shadowing-require?_0)"
 "(if(procedure? ok-binding/delayed_0)"
@@ -22689,75 +22390,62 @@ static const char *startup_source =
 "(begin"
 " 'raise-already-bound"
 "(raise-syntax-error$1"
-" who_13"
+" who_12"
 "(string-append"
 "                                                                      \"identifier already \""
 "                                                                      (if defined?_1 \"defined\" \"required\")"
-"(if(zero-phase? phase_61)"
+"(if(zero-phase? phase_58)"
 "                                                                        (let-values () \"\")"
-"(if(label-phase? phase_61)"
+"(if(label-phase? phase_58)"
 "                                                                          (let-values () \" for label\")"
-"(if(= 1 phase_61)"
+"(if(= 1 phase_58)"
 "                                                                            (let-values () \" for syntax\")"
 "(let-values()"
-"                                                                              (format \" for phase ~a\" phase_61))))))"
+"                                                                              (format \" for phase ~a\" phase_58))))))"
 " orig-s_1"
-" id_28)))))"
+" id_27)))))"
 "(if(if(not at-mod_4)(not define-shadowing-require?_0) #f)"
 "(let-values() #f)"
-"(if(if ok-binding_0(same-binding? b_68 ok-binding_0) #f)"
+"(if(if ok-binding_0(same-binding? b_67 ok-binding_0) #f)"
 "(let-values()"
 "(begin"
-"(if(same-binding-nominals? b_68 ok-binding_0)"
+"(if(same-binding-nominals? b_67 ok-binding_0)"
 "(void)"
 "(let-values()"
 "(let-values(((update!_0)"
 "(lambda()"
 "(begin"
 " 'update!"
-"(let-values(((temp163_0) #t)"
-"((id164_0) id_28)"
+"(let-values(((temp163_1) #t)"
+"((id164_0) id_27)"
 "((temp165_1)"
 "(let-values(((ok-binding167_0)"
 " ok-binding_0)"
-"((temp168_0)"
+"((temp168_1)"
 "(cons"
-" b_68"
+" b_67"
 "(module-binding-extra-nominal-bindings"
-" b_68))))"
+" b_67))))"
 "(module-binding-update48.1"
-" #f"
-" #f"
-" temp168_0"
-" #t"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
+" unsafe-undefined"
+" temp168_1"
+" unsafe-undefined"
+" unsafe-undefined"
+" unsafe-undefined"
+" unsafe-undefined"
+" unsafe-undefined"
+" unsafe-undefined"
+" unsafe-undefined"
+" unsafe-undefined"
+" unsafe-undefined"
 " ok-binding167_0)))"
-"((phase166_0) phase_61))"
+"((phase166_1) phase_58))"
 "(add-binding!17.1"
 " #f"
-" #f"
-" temp163_0"
-" #t"
+" temp163_1"
 " id164_0"
 " temp165_1"
-" phase166_0))))))"
+" phase166_1))))))"
 "(if accum-update-nominals_1"
 "(let-values()"
 "(set-box!"
@@ -22774,7 +22462,7 @@ static const char *startup_source =
 "(let-values(((prev-b_0)"
 "(hash-ref"
 " also-required_0"
-"(module-binding-sym b_68)"
+"(module-binding-sym b_67)"
 " #f)))"
 "(begin"
 "(if(if prev-b_0"
@@ -22784,13 +22472,13 @@ static const char *startup_source =
 "(void))"
 "(hash-set!"
 " also-required_0"
-"(module-binding-sym b_68)"
+"(module-binding-sym b_67)"
 " ok-binding_0)"
 "(set-requires+provides-all-bindings-simple?! r+p_8 #f)"
 " #t))))"
 "(let-values()"
 "(let-values(((nominal-phase_6)"
-"(module-binding-nominal-require-phase b_68)))"
+"(module-binding-nominal-require-phase b_67)))"
 "(let-values(((sym-to-reqds_3)"
 "(hash-ref"
 " at-mod_4"
@@ -22799,31 +22487,31 @@ static const char *startup_source =
 "(let-values(((reqds_2)"
 "(hash-ref"
 " sym-to-reqds_3"
-"(syntax-e$1 id_28)"
+"(syntax-e$1 id_27)"
 " null)))"
 "(let-values(((only-can-can-shadow-require?_0)"
-"(let-values(((lst_124) reqds_2))"
+"(let-values(((lst_126) reqds_2))"
 "(begin"
 "(void)"
 "((letrec-values(((for-loop_162)"
 "(lambda(only-can-can-shadow-require?_1"
-" lst_125)"
+" lst_127)"
 "(begin"
 " 'for-loop"
 "(if(not"
 "(null?"
-" lst_125))"
+" lst_127))"
 "(let-values(((r_38)"
 "(if(pair?"
-" lst_125)"
+" lst_127)"
 "(car"
-" lst_125)"
-" lst_125))"
-"((rest_63)"
+" lst_127)"
+" lst_127))"
+"((rest_64)"
 "(if(pair?"
-" lst_125)"
+" lst_127)"
 "(cdr"
-" lst_125)"
+" lst_127)"
 " null)))"
 "(let-values(((only-can-can-shadow-require?_2)"
 "(let-values(((only-can-can-shadow-require?_3)"
@@ -22854,12 +22542,12 @@ static const char *startup_source =
 " #f)"
 "(for-loop_162"
 " only-can-can-shadow-require?_2"
-" rest_63)"
+" rest_64)"
 " only-can-can-shadow-require?_2)))"
 " only-can-can-shadow-require?_1)))))"
 " for-loop_162)"
 " #t"
-" lst_124)))))"
+" lst_126)))))"
 "(begin"
 "(if define-shadowing-require?_0"
 "(let-values()"
@@ -22872,8 +22560,8 @@ static const char *startup_source =
 "(let-values()"
 "(hash-set!"
 "(requires+provides-also-required r+p_8)"
-"(module-binding-sym b_68)"
-" b_68)))))"
+"(module-binding-sym b_67)"
+" b_67)))))"
 "(let-values()"
 "(if(if remove-shadowed!?_0"
 "(not(null? reqds_2))"
@@ -22881,41 +22569,41 @@ static const char *startup_source =
 "(let-values()"
 "(hash-set!"
 " sym-to-reqds_3"
-"(syntax-e$1 id_28)"
+"(syntax-e$1 id_27)"
 "(remove-non-matching-requireds"
 " reqds_2"
-" id_28"
-" phase_61"
-" mpi_35"
+" id_27"
+" phase_58"
+" mpi_34"
 " nominal-phase_6"
-"(syntax-e$1 id_28))))"
+"(syntax-e$1 id_27))))"
 "(void))))"
 " #f)))))))))))))))))))))))))))))))))))"
 "(define-values"
 "(add-defined-syms!103.1)"
-"(lambda(as-transformer?98_0 as-transformer?99_0 r+p100_0 syms101_0 phase102_0)"
+"(lambda(as-transformer?98_0 r+p100_0 syms101_0 phase102_0)"
 "(begin"
 " 'add-defined-syms!103"
 "(let-values(((r+p_9) r+p100_0))"
 "(let-values(((syms_18) syms101_0))"
-"(let-values(((phase_62) phase102_0))"
-"(let-values(((as-transformer?_2)(if as-transformer?99_0 as-transformer?98_0 #f)))"
+"(let-values(((phase_59) phase102_0))"
+"(let-values(((as-transformer?_2) as-transformer?98_0))"
 "(let-values()"
 "(let-values(((phase-to-defined-syms_0)(requires+provides-phase-to-defined-syms r+p_9)))"
-"(let-values(((defined-syms_2)(hash-ref phase-to-defined-syms_0 phase_62 '#hasheq())))"
+"(let-values(((defined-syms_2)(hash-ref phase-to-defined-syms_0 phase_59 '#hasheq())))"
 "(let-values(((new-defined-syms_0)"
-"(let-values(((lst_126) syms_18))"
+"(let-values(((lst_128) syms_18))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
-"(let-values()(check-list lst_126)))"
+"(let-values()(check-list lst_128)))"
 "((letrec-values(((for-loop_163)"
-"(lambda(defined-syms_3 lst_127)"
+"(lambda(defined-syms_3 lst_129)"
 "(begin"
 " 'for-loop"
-"(if(pair? lst_127)"
-"(let-values(((sym_39)(unsafe-car lst_127))"
-"((rest_64)(unsafe-cdr lst_127)))"
+"(if(pair? lst_129)"
+"(let-values(((sym_41)(unsafe-car lst_129))"
+"((rest_65)(unsafe-cdr lst_129)))"
 "(let-values(((defined-syms_4)"
 "(let-values(((defined-syms_5)"
 " defined-syms_3))"
@@ -22923,93 +22611,93 @@ static const char *startup_source =
 "(let-values()"
 "(hash-set"
 " defined-syms_5"
-" sym_39"
+" sym_41"
 "(if as-transformer?_2"
 " 'transformer"
 " 'variable)))))"
 "(values defined-syms_6)))))"
 "(if(not #f)"
-"(for-loop_163 defined-syms_4 rest_64)"
+"(for-loop_163 defined-syms_4 rest_65)"
 " defined-syms_4)))"
 " defined-syms_3)))))"
 " for-loop_163)"
 " defined-syms_2"
-" lst_126)))))"
-"(hash-set! phase-to-defined-syms_0 phase_62 new-defined-syms_0))))))))))))"
+" lst_128)))))"
+"(hash-set! phase-to-defined-syms_0 phase_59 new-defined-syms_0))))))))))))"
 "(define-values"
 "(defined-sym-kind)"
-"(lambda(r+p_10 sym_40 phase_63)"
+"(lambda(r+p_10 sym_42 phase_60)"
 "(begin"
 "(let-values(((phase-to-defined-syms_1)(requires+provides-phase-to-defined-syms r+p_10)))"
-"(let-values(((defined-syms_7)(hash-ref phase-to-defined-syms_1 phase_63 '#hasheq())))"
-"(hash-ref defined-syms_7 sym_40 #f))))))"
+"(let-values(((defined-syms_7)(hash-ref phase-to-defined-syms_1 phase_60 '#hasheq())))"
+"(hash-ref defined-syms_7 sym_42 #f))))))"
 "(define-values"
 "(extract-module-requires)"
-"(lambda(r+p_11 mod-name_11 phase_64)"
+"(lambda(r+p_11 mod-name_11 phase_61)"
 "(begin"
-"(let-values(((mpi_36)(intern-mpi r+p_11 mod-name_11)))"
-"(let-values(((at-mod_5)(hash-ref(requires+provides-requires r+p_11) mpi_36 #f)))"
+"(let-values(((mpi_35)(intern-mpi r+p_11 mod-name_11)))"
+"(let-values(((at-mod_5)(hash-ref(requires+provides-requires r+p_11) mpi_35 #f)))"
 "(if at-mod_5"
 "(reverse$1"
-"(let-values(((ht_101)(hash-ref at-mod_5 phase_64 '#hasheq())))"
+"(let-values(((ht_98)(hash-ref at-mod_5 phase_61 '#hasheq())))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
-"(let-values()(check-in-hash ht_101)))"
+"(let-values()(check-in-hash ht_98)))"
 "((letrec-values(((for-loop_164)"
-"(lambda(fold-var_113 i_132)"
+"(lambda(fold-var_111 i_133)"
 "(begin"
 " 'for-loop"
-"(if i_132"
-"(let-values(((sym_41 reqds_3)(hash-iterate-key+value ht_101 i_132)))"
-"(let-values(((fold-var_114)"
-"(let-values(((lst_128) reqds_3))"
+"(if i_133"
+"(let-values(((sym_43 reqds_3)(hash-iterate-key+value ht_98 i_133)))"
+"(let-values(((fold-var_112)"
+"(let-values(((lst_130) reqds_3))"
 "(begin"
 "(void)"
 "((letrec-values(((for-loop_165)"
-"(lambda(fold-var_115 lst_129)"
+"(lambda(fold-var_113 lst_131)"
 "(begin"
 " 'for-loop"
-"(if(not(null? lst_129))"
+"(if(not(null? lst_131))"
 "(let-values(((reqd_1)"
-"(if(pair? lst_129)"
-"(car lst_129)"
-" lst_129))"
-"((rest_65)"
-"(if(pair? lst_129)"
-"(cdr lst_129)"
+"(if(pair? lst_131)"
+"(car lst_131)"
+" lst_131))"
+"((rest_66)"
+"(if(pair? lst_131)"
+"(cdr lst_131)"
 " null)))"
+"(let-values(((fold-var_114)"
+"(let-values(((fold-var_115)"
+" fold-var_113))"
 "(let-values(((fold-var_116)"
-"(let-values(((fold-var_117)"
-" fold-var_115))"
-"(let-values(((fold-var_118)"
 "(let-values()"
 "(cons"
 "(let-values()"
 "(normalize-required"
 " reqd_1"
-" mpi_36"
-" phase_64"
-" sym_41))"
-" fold-var_117))))"
+" mpi_35"
+" phase_61"
+" sym_43))"
+" fold-var_115))))"
 "(values"
-" fold-var_118)))))"
+" fold-var_116)))))"
 "(if(not #f)"
 "(for-loop_165"
-" fold-var_116"
-" rest_65)"
-" fold-var_116)))"
-" fold-var_115)))))"
-" for-loop_165)"
-" fold-var_113"
-" lst_128)))))"
-"(if(not #f)"
-"(for-loop_164 fold-var_114(hash-iterate-next ht_101 i_132))"
+" fold-var_114"
+" rest_66)"
 " fold-var_114)))"
 " fold-var_113)))))"
+" for-loop_165)"
+" fold-var_111"
+" lst_130)))))"
+"(if(not #f)"
+"(for-loop_164 fold-var_112(hash-iterate-next ht_98 i_133))"
+" fold-var_112)))"
+" fold-var_111)))))"
 " for-loop_164)"
 " null"
-"(hash-iterate-first ht_101)))))"
+"(hash-iterate-first ht_98)))))"
 " #f))))))"
 "(define-values"
 "(extract-module-definitions)"
@@ -23019,29 +22707,29 @@ static const char *startup_source =
 "(if or-part_176 or-part_176 null)))))"
 "(define-values"
 "(extract-all-module-requires)"
-"(lambda(r+p_13 mod-name_12 phase_65)"
+"(lambda(r+p_13 mod-name_12 phase_62)"
 "(begin"
-"(let-values(((self_10)(requires+provides-self r+p_13)))"
+"(let-values(((self_9)(requires+provides-self r+p_13)))"
 "(let-values(((requires_2)(requires+provides-requires r+p_13)))"
 "(call/ec"
 "(lambda(esc_0)"
 "(reverse$1"
-"(let-values(((lst_130)(if mod-name_12(list(intern-mpi r+p_13 mod-name_12))(hash-keys requires_2))))"
+"(let-values(((lst_132)(if mod-name_12(list(intern-mpi r+p_13 mod-name_12))(hash-keys requires_2))))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
-"(let-values()(check-list lst_130)))"
+"(let-values()(check-list lst_132)))"
 "((letrec-values(((for-loop_166)"
-"(lambda(fold-var_119 lst_131)"
+"(lambda(fold-var_46 lst_61)"
 "(begin"
 " 'for-loop"
-"(if(pair? lst_131)"
-"(let-values(((mod-name_13)(unsafe-car lst_131))"
-"((rest_66)(unsafe-cdr lst_131)))"
-"(let-values(((fold-var_120)"
-"(let-values(((fold-var_121) fold-var_119))"
-"(if(eq? mod-name_13 self_10)"
-" fold-var_121"
+"(if(pair? lst_61)"
+"(let-values(((mod-name_13)(unsafe-car lst_61))"
+"((rest_67)(unsafe-cdr lst_61)))"
+"(let-values(((fold-var_117)"
+"(let-values(((fold-var_118) fold-var_46))"
+"(if(eq? mod-name_13 self_9)"
+" fold-var_118"
 "(let-values(((phase-to-requireds_0)"
 "(hash-ref"
 " requires_2"
@@ -23050,44 +22738,44 @@ static const char *startup_source =
 "(begin"
 " #t"
 "((letrec-values(((for-loop_167)"
-"(lambda(fold-var_122)"
+"(lambda(fold-var_49)"
 "(begin"
 " 'for-loop"
 "(let-values()"
-"(let-values(((fold-var_123)"
-"(let-values(((lst_132)"
+"(let-values(((fold-var_50)"
+"(let-values(((lst_63)"
 "(if(eq?"
-" phase_65"
+" phase_62"
 " 'all)"
 "(hash-keys"
 " phase-to-requireds_0)"
 "(list"
-" phase_65))))"
+" phase_62))))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
 "(#%variable-reference))"
 "(void)"
 "(let-values()"
 "(check-list"
-" lst_132)))"
-"((letrec-values(((for-loop_168)"
-"(lambda(fold-var_124"
-" lst_59)"
+" lst_63)))"
+"((letrec-values(((for-loop_85)"
+"(lambda(fold-var_119"
+" lst_133)"
 "(begin"
 " 'for-loop"
 "(if(pair?"
-" lst_59)"
-"(let-values(((phase_66)"
+" lst_133)"
+"(let-values(((phase_63)"
 "(unsafe-car"
-" lst_59))"
-"((rest_67)"
+" lst_133))"
+"((rest_68)"
 "(unsafe-cdr"
-" lst_59)))"
-"(let-values(((fold-var_125)"
-"(let-values(((ht_102)"
+" lst_133)))"
+"(let-values(((fold-var_120)"
+"(let-values(((ht_99)"
 "(hash-ref"
 " phase-to-requireds_0"
-" phase_66"
+" phase_63"
 "(lambda()"
 "(esc_0"
 " #f)))))"
@@ -23097,99 +22785,99 @@ static const char *startup_source =
 "(void)"
 "(let-values()"
 "(check-in-hash"
-" ht_102)))"
-"((letrec-values(((for-loop_169)"
-"(lambda(fold-var_44"
-" i_133)"
+" ht_99)))"
+"((letrec-values(((for-loop_168)"
+"(lambda(fold-var_121"
+" i_134)"
 "(begin"
 " 'for-loop"
-"(if i_133"
-"(let-values(((sym_42"
+"(if i_134"
+"(let-values(((sym_44"
 " reqds_4)"
 "(hash-iterate-key+value"
-" ht_102"
-" i_133)))"
-"(let-values(((fold-var_126)"
-"(let-values(((lst_133)"
+" ht_99"
+" i_134)))"
+"(let-values(((fold-var_122)"
+"(let-values(((lst_134)"
 " reqds_4))"
 "(begin"
 "(void)"
-"((letrec-values(((for-loop_170)"
-"(lambda(fold-var_127"
-" lst_134)"
+"((letrec-values(((for-loop_169)"
+"(lambda(fold-var_123"
+" lst_135)"
 "(begin"
 " 'for-loop"
 "(if(not"
 "(null?"
-" lst_134))"
+" lst_135))"
 "(let-values(((reqd_2)"
 "(if(pair?"
-" lst_134)"
+" lst_135)"
 "(car"
-" lst_134)"
-" lst_134))"
-"((rest_68)"
+" lst_135)"
+" lst_135))"
+"((rest_69)"
 "(if(pair?"
-" lst_134)"
+" lst_135)"
 "(cdr"
-" lst_134)"
+" lst_135)"
 " null)))"
-"(let-values(((fold-var_50)"
-"(let-values(((fold-var_128)"
-" fold-var_127))"
-"(let-values(((fold-var_129)"
+"(let-values(((fold-var_124)"
+"(let-values(((fold-var_125)"
+" fold-var_123))"
+"(let-values(((fold-var_126)"
 "(let-values()"
 "(cons"
 "(let-values()"
 "(normalize-required"
 " reqd_2"
 " mod-name_13"
-" phase_66"
-" sym_42))"
-" fold-var_128))))"
+" phase_63"
+" sym_44))"
+" fold-var_125))))"
 "(values"
-" fold-var_129)))))"
-"(if(not"
-" #f)"
-"(for-loop_170"
-" fold-var_50"
-" rest_68)"
-" fold-var_50)))"
-" fold-var_127)))))"
-" for-loop_170)"
-" fold-var_44"
-" lst_133)))))"
+" fold-var_126)))))"
 "(if(not"
 " #f)"
 "(for-loop_169"
-" fold-var_126"
-"(hash-iterate-next"
-" ht_102"
-" i_133))"
-" fold-var_126)))"
-" fold-var_44)))))"
-" for-loop_169)"
 " fold-var_124"
-"(hash-iterate-first"
-" ht_102))))))"
+" rest_69)"
+" fold-var_124)))"
+" fold-var_123)))))"
+" for-loop_169)"
+" fold-var_121"
+" lst_134)))))"
 "(if(not"
 " #f)"
 "(for-loop_168"
-" fold-var_125"
-" rest_67)"
-" fold-var_125)))"
-" fold-var_124)))))"
-" for-loop_168)"
 " fold-var_122"
-" lst_132)))))"
-" fold-var_123))))))"
-" for-loop_167)"
-" fold-var_121)))))))"
-"(if(not #f)(for-loop_166 fold-var_120 rest_66) fold-var_120)))"
+"(hash-iterate-next"
+" ht_99"
+" i_134))"
+" fold-var_122)))"
+" fold-var_121)))))"
+" for-loop_168)"
+" fold-var_119"
+"(hash-iterate-first"
+" ht_99))))))"
+"(if(not"
+" #f)"
+"(for-loop_85"
+" fold-var_120"
+" rest_68)"
+" fold-var_120)))"
 " fold-var_119)))))"
+" for-loop_85)"
+" fold-var_49"
+" lst_63)))))"
+" fold-var_50))))))"
+" for-loop_167)"
+" fold-var_118)))))))"
+"(if(not #f)(for-loop_166 fold-var_117 rest_67) fold-var_117)))"
+" fold-var_46)))))"
 " for-loop_166)"
 " null"
-" lst_130)))))))))))"
+" lst_132)))))))))))"
 "(define-values"
 "(add-provide!117.1)"
 "(lambda(as-protected?106_0"
@@ -23204,11 +22892,11 @@ static const char *startup_source =
 "(begin"
 " 'add-provide!117"
 "(let-values(((r+p_14) r+p110_0))"
-"(let-values(((sym_43) sym111_0))"
-"(let-values(((phase_67) phase112_0))"
+"(let-values(((sym_45) sym111_0))"
+"(let-values(((phase_64) phase112_0))"
 "(let-values(((binding_13) binding113_0))"
 "(let-values(((immed-binding_0) immed-binding114_0))"
-"(let-values(((id_29) id115_0))"
+"(let-values(((id_28) id115_0))"
 "(let-values(((orig-s_2) orig-s116_0))"
 "(let-values(((as-protected?_0) as-protected?106_0))"
 "(let-values(((as-transformer?_3) as-transformer?107_0))"
@@ -23218,59 +22906,48 @@ static const char *startup_source =
 "(not(eq?(module-binding-module immed-binding_0)(requires+provides-self r+p_14)))"
 " #f)"
 "(let-values()"
-"                                (raise-syntax-error$1 #f \"cannot protect required identifier in re-provide\" sym_43))"
+"                                (raise-syntax-error$1 #f \"cannot protect required identifier in re-provide\" sym_45))"
 "(void))"
 "(hash-update!"
 "(requires+provides-provides r+p_14)"
-" phase_67"
+" phase_64"
 "(lambda(at-phase_9)"
-"(let-values(((b/p_0)(hash-ref at-phase_9 sym_43 #f)))"
-"(let-values(((b_69)(provided-as-binding b/p_0)))"
-"(if(not b_69)"
+"(let-values(((b/p_0)(hash-ref at-phase_9 sym_45 #f)))"
+"(let-values(((b_68)(provided-as-binding b/p_0)))"
+"(if(not b_68)"
 "(let-values()"
 "(let-values(((plain-binding_0)"
 "(if(binding-free=id binding_13)"
-"(let-values(((binding169_0) binding_13)((temp170_1) #f))"
+"(let-values(((binding169_0) binding_13)((temp170_0) #f))"
 "(module-binding-update48.1"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" temp170_1"
-" #t"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
+" unsafe-undefined"
+" unsafe-undefined"
+" unsafe-undefined"
+" temp170_0"
+" unsafe-undefined"
+" unsafe-undefined"
+" unsafe-undefined"
+" unsafe-undefined"
+" unsafe-undefined"
+" unsafe-undefined"
+" unsafe-undefined"
 " binding169_0))"
 " binding_13)))"
 "(hash-set"
 " at-phase_9"
-" sym_43"
+" sym_45"
 "(if(let-values(((or-part_177) as-protected?_0))"
 "(if or-part_177 or-part_177 as-transformer?_3))"
 "(provided1.1 plain-binding_0 as-protected?_0 as-transformer?_3)"
 " plain-binding_0))))"
-"(if(same-binding? b_69 binding_13)"
+"(if(same-binding? b_68 binding_13)"
 "(let-values() at-phase_9)"
 "(let-values()"
 "(raise-syntax-error$1"
 " #f"
 "                                          \"identifier already provided (as a different binding)\""
 " orig-s_2"
-" id_29)))))))"
+" id_28)))))))"
 " '#hasheq())))))))))))))))"
 "(define-values"
 "(extract-requires-and-provides)"
@@ -23284,93 +22961,93 @@ static const char *startup_source =
 "(let-values(((phases-in-order_1)"
 "(let-values(((temp171_0)(hash-keys phase-to-mpis-in-order_0))"
 "((phase<?172_0) phase<?))"
-"(sort7.1 #f #f #f #f temp171_0 phase<?172_0))))"
+"(sort7.1 #f #f temp171_0 phase<?172_0))))"
 "(reverse$1"
-"(let-values(((lst_135) phases-in-order_1))"
+"(let-values(((lst_136) phases-in-order_1))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
-"(let-values()(check-list lst_135)))"
-"((letrec-values(((for-loop_171)"
-"(lambda(fold-var_130 lst_136)"
+"(let-values()(check-list lst_136)))"
+"((letrec-values(((for-loop_170)"
+"(lambda(fold-var_127 lst_137)"
 "(begin"
 " 'for-loop"
-"(if(pair? lst_136)"
-"(let-values(((phase_68)(unsafe-car lst_136))"
-"((rest_69)(unsafe-cdr lst_136)))"
-"(let-values(((fold-var_131)"
-"(let-values(((fold-var_132) fold-var_130))"
-"(let-values(((fold-var_133)"
+"(if(pair? lst_137)"
+"(let-values(((phase_65)(unsafe-car lst_137))"
+"((rest_70)(unsafe-cdr lst_137)))"
+"(let-values(((fold-var_128)"
+"(let-values(((fold-var_129) fold-var_127))"
+"(let-values(((fold-var_130)"
 "(let-values()"
 "(cons"
 "(let-values()"
 "(cons"
-" phase_68"
+" phase_65"
 "(reverse$1"
-"(let-values(((lst_137)"
+"(let-values(((lst_138)"
 "(reverse$1"
 "(hash-ref"
 " phase-to-mpis-in-order_0"
-" phase_68))))"
+" phase_65))))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
 "(#%variable-reference))"
 "(void)"
 "(let-values()"
 "(check-list"
-" lst_137)))"
-"((letrec-values(((for-loop_172)"
-"(lambda(fold-var_134"
-" lst_138)"
+" lst_138)))"
+"((letrec-values(((for-loop_171)"
+"(lambda(fold-var_131"
+" lst_139)"
 "(begin"
 " 'for-loop"
 "(if(pair?"
-" lst_138)"
-"(let-values(((mpi_37)"
+" lst_139)"
+"(let-values(((mpi_36)"
 "(unsafe-car"
-" lst_138))"
-"((rest_70)"
+" lst_139))"
+"((rest_71)"
 "(unsafe-cdr"
-" lst_138)))"
-"(let-values(((fold-var_135)"
-"(let-values(((fold-var_136)"
-" fold-var_134))"
+" lst_139)))"
+"(let-values(((fold-var_132)"
+"(let-values(((fold-var_133)"
+" fold-var_131))"
 "(if(eq?"
-" mpi_37"
+" mpi_36"
 " old-self_0)"
-" fold-var_136"
-"(let-values(((fold-var_137)"
-" fold-var_136))"
-"(let-values(((fold-var_138)"
+" fold-var_133"
+"(let-values(((fold-var_134)"
+" fold-var_133))"
+"(let-values(((fold-var_135)"
 "(let-values()"
 "(cons"
 "(let-values()"
 "(module-path-index-shift"
-" mpi_37"
+" mpi_36"
 " old-self_0"
 " new-self_1))"
-" fold-var_137))))"
+" fold-var_134))))"
 "(values"
-" fold-var_138)))))))"
+" fold-var_135)))))))"
 "(if(not"
 " #f)"
-"(for-loop_172"
-" fold-var_135"
-" rest_70)"
-" fold-var_135)))"
-" fold-var_134)))))"
-" for-loop_172)"
-" null"
-" lst_137))))))"
-" fold-var_132))))"
-"(values fold-var_133)))))"
-"(if(not #f)"
-"(for-loop_171 fold-var_131 rest_69)"
-" fold-var_131)))"
-" fold-var_130)))))"
+"(for-loop_171"
+" fold-var_132"
+" rest_71)"
+" fold-var_132)))"
+" fold-var_131)))))"
 " for-loop_171)"
 " null"
-" lst_135))))))))))"
+" lst_138))))))"
+" fold-var_129))))"
+"(values fold-var_130)))))"
+"(if(not #f)"
+"(for-loop_170 fold-var_128 rest_70)"
+" fold-var_128)))"
+" fold-var_127)))))"
+" for-loop_170)"
+" null"
+" lst_136))))))))))"
 "(let-values(((extract-provides_0)"
 "(lambda()"
 "(begin"
@@ -23384,59 +23061,58 @@ static const char *startup_source =
 "(shift-provides-module-path-index)"
 "(lambda(provides_5 from-mpi_7 to-mpi_6)"
 "(begin"
-"(let-values(((ht_103) provides_5))"
+"(let-values(((ht_100) provides_5))"
 "(begin"
-"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-in-hash ht_103)))"
-"((letrec-values(((for-loop_173)"
-"(lambda(table_133 i_134)"
+"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-in-hash ht_100)))"
+"((letrec-values(((for-loop_90)"
+"(lambda(table_133 i_135)"
 "(begin"
 " 'for-loop"
-"(if i_134"
-"(let-values(((phase_69 at-phase_10)(hash-iterate-key+value ht_103 i_134)))"
+"(if i_135"
+"(let-values(((phase_66 at-phase_10)(hash-iterate-key+value ht_100 i_135)))"
 "(let-values(((table_134)"
 "(let-values(((table_135) table_133))"
 "(let-values(((table_136)"
 "(let-values()"
-"(let-values(((key_52 val_45)"
+"(let-values(((key_53 val_45)"
 "(let-values()"
 "(values"
-" phase_69"
-"(let-values(((ht_104)"
-" at-phase_10))"
+" phase_66"
+"(let-values(((ht_68) at-phase_10))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
 "(#%variable-reference))"
 "(void)"
 "(let-values()"
-"(check-in-hash ht_104)))"
-"((letrec-values(((for-loop_174)"
-"(lambda(table_137"
-" i_135)"
+"(check-in-hash ht_68)))"
+"((letrec-values(((for-loop_91)"
+"(lambda(table_101"
+" i_88)"
 "(begin"
 " 'for-loop"
-"(if i_135"
-"(let-values(((sym_44"
+"(if i_88"
+"(let-values(((sym_46"
 " binding_14)"
 "(hash-iterate-key+value"
-" ht_104"
-" i_135)))"
-"(let-values(((table_138)"
-"(let-values(((table_139)"
-" table_137))"
-"(let-values(((table_140)"
+" ht_68"
+" i_88)))"
+"(let-values(((table_102)"
+"(let-values(((table_103)"
+" table_101))"
+"(let-values(((table_104)"
 "(let-values()"
-"(let-values(((key_53"
-" val_46)"
+"(let-values(((key_40"
+" val_33)"
 "(let-values()"
 "(values"
-" sym_44"
+" sym_46"
 "(if(eq?"
 " from-mpi_7"
 " to-mpi_6)"
 "(let-values()"
 " binding_14)"
 "(let-values()"
-"((letrec-values(((loop_86)"
+"((letrec-values(((loop_84)"
 "(lambda(binding_15)"
 "(begin"
 " 'loop"
@@ -23444,7 +23120,7 @@ static const char *startup_source =
 " binding_15)"
 "(let-values()"
 "(provided1.1"
-"(loop_86"
+"(loop_84"
 "(provided-binding"
 " binding_15))"
 "(provided-protected?"
@@ -23456,36 +23132,34 @@ static const char *startup_source =
 " binding_15"
 " from-mpi_7"
 " to-mpi_6)))))))"
-" loop_86)"
+" loop_84)"
 " binding_14)))))))"
 "(hash-set"
-" table_139"
-" key_53"
-" val_46)))))"
+" table_103"
+" key_40"
+" val_33)))))"
 "(values"
-" table_140)))))"
+" table_104)))))"
 "(if(not"
 " #f)"
-"(for-loop_174"
-" table_138"
+"(for-loop_91"
+" table_102"
 "(hash-iterate-next"
-" ht_104"
-" i_135))"
-" table_138)))"
-" table_137)))))"
-" for-loop_174)"
+" ht_68"
+" i_88))"
+" table_102)))"
+" table_101)))))"
+" for-loop_91)"
 " '#hasheq()"
 "(hash-iterate-first"
-" ht_104))))))))"
-"(hash-set table_135 key_52 val_45)))))"
+" ht_68))))))))"
+"(hash-set table_135 key_53 val_45)))))"
 "(values table_136)))))"
-"(if(not #f)"
-"(for-loop_173 table_134(hash-iterate-next ht_103 i_134))"
-" table_134)))"
+"(if(not #f)(for-loop_90 table_134(hash-iterate-next ht_100 i_135)) table_134)))"
 " table_133)))))"
-" for-loop_173)"
+" for-loop_90)"
 " '#hasheqv()"
-"(hash-iterate-first ht_103)))))))"
+"(hash-iterate-first ht_100)))))))"
 "(define-values"
 "(struct:adjust-only adjust-only1.1 adjust-only? adjust-only-syms)"
 "(let-values(((struct:_1 make-_1 ?_1 -ref_1 -set!_1)"
@@ -23525,37 +23199,28 @@ static const char *startup_source =
 "(make-struct-field-accessor -ref_10 1 'syms))))"
 "(define-values"
 "(struct:adjust-rename adjust-rename4.1 adjust-rename? adjust-rename-to-id adjust-rename-from-sym)"
-"(let-values(((struct:_65 make-_65 ?_65 -ref_65 -set!_65)"
+"(let-values(((struct:_66 make-_66 ?_66 -ref_66 -set!_66)"
 "(let-values()"
 "(let-values()"
 "(make-struct-type 'adjust-rename #f 2 0 #f null(current-inspector) #f '(0 1) #f 'adjust-rename)))))"
 "(values"
-" struct:_65"
-" make-_65"
-" ?_65"
-"(make-struct-field-accessor -ref_65 0 'to-id)"
-"(make-struct-field-accessor -ref_65 1 'from-sym))))"
+" struct:_66"
+" make-_66"
+" ?_66"
+"(make-struct-field-accessor -ref_66 0 'to-id)"
+"(make-struct-field-accessor -ref_66 1 'from-sym))))"
 "(define-values(layers$1) '(raw phaseless path))"
 "(define-values"
 "(parse-and-perform-requires!30.1)"
 "(lambda(copy-variable-as-constant?11_0"
-" copy-variable-as-constant?21_0"
 " copy-variable-phase-level10_0"
-" copy-variable-phase-level20_0"
 " declared-submodule-names9_0"
-" declared-submodule-names19_0"
 " initial-require?13_0"
-" initial-require?23_0"
 " run-phase6_0"
-" run-phase16_0"
 " run?7_0"
-" run?17_0"
 " self5_0"
-" self15_0"
 " skip-variable-phase-level12_0"
-" skip-variable-phase-level22_0"
 " visit?8_0"
-" visit?18_0"
 " who14_0"
 " reqs25_0"
 " orig-s26_0"
@@ -23567,27 +23232,27 @@ static const char *startup_source =
 "(let-values(((reqs_0) reqs25_0))"
 "(let-values(((orig-s_3) orig-s26_0))"
 "(let-values(((m-ns_8) m-ns27_0))"
-"(let-values(((phase-shift_9) phase-shift28_0))"
+"(let-values(((phase-shift_8) phase-shift28_0))"
 "(let-values(((requires+provides_1) requires+provides29_0))"
-"(let-values(((self_11)(if self15_0 self5_0 #f)))"
-"(let-values(((run-phase_5)(if run-phase16_0 run-phase6_0(namespace-phase m-ns_8))))"
-"(let-values(((run?_1)(if run?17_0 run?7_0 #f)))"
-"(let-values(((visit?_1)(if visit?18_0 visit?8_0 #t)))"
+"(let-values(((self_10) self5_0))"
+"(let-values(((run-phase_5)"
+"(if(eq? run-phase6_0 unsafe-undefined)(namespace-phase m-ns_8) run-phase6_0)))"
+"(let-values(((run?_1) run?7_0))"
+"(let-values(((visit?_1) visit?8_0))"
 "(let-values(((declared-submodule-names_2)"
-"(if declared-submodule-names19_0 declared-submodule-names9_0 '#hasheq())))"
-"(let-values(((copy-variable-phase-level_0)"
-"(if copy-variable-phase-level20_0 copy-variable-phase-level10_0 #f)))"
-"(let-values(((copy-variable-as-constant?_0)"
-"(if copy-variable-as-constant?21_0 copy-variable-as-constant?11_0 #f)))"
-"(let-values(((skip-variable-phase-level_0)"
-"(if skip-variable-phase-level22_0 skip-variable-phase-level12_0 #f)))"
-"(let-values(((initial-require?_0)(if initial-require?23_0 initial-require?13_0 #f)))"
-"(let-values(((who_14) who14_0))"
+"(if(eq? declared-submodule-names9_0 unsafe-undefined)"
+" '#hasheq()"
+" declared-submodule-names9_0)))"
+"(let-values(((copy-variable-phase-level_0) copy-variable-phase-level10_0))"
+"(let-values(((copy-variable-as-constant?_0) copy-variable-as-constant?11_0))"
+"(let-values(((skip-variable-phase-level_0) skip-variable-phase-level12_0))"
+"(let-values(((initial-require?_0) initial-require?13_0))"
+"(let-values(((who_13) who14_0))"
 "(let-values()"
-"((letrec-values(((loop_87)"
+"((letrec-values(((loop_85)"
 "(lambda(reqs_1"
 " top-req_0"
-" phase-shift_10"
+" phase-shift_9"
 " just-meta_0"
 " adjust_0"
 " for-meta-ok?_0"
@@ -23595,41 +23260,38 @@ static const char *startup_source =
 " layer_5)"
 "(begin"
 " 'loop"
-"(let-values(((lst_139) reqs_1))"
+"(let-values(((lst_140) reqs_1))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
 "(#%variable-reference))"
 "(void)"
-"(let-values()(check-list lst_139)))"
-"((letrec-values(((for-loop_175)"
-"(lambda(result_76 lst_140)"
+"(let-values()(check-list lst_140)))"
+"((letrec-values(((for-loop_172)"
+"(lambda(result_74 lst_141)"
 "(begin"
 " 'for-loop"
-"(if(pair? lst_140)"
+"(if(pair? lst_141)"
 "(let-values(((req_0)"
 "(unsafe-car"
-" lst_140))"
-"((rest_71)"
+" lst_141))"
+"((rest_72)"
 "(unsafe-cdr"
-" lst_140)))"
-"(let-values(((result_77)"
+" lst_141)))"
+"(let-values(((result_75)"
 "(let-values()"
-"(let-values(((result_78)"
+"(let-values(((result_76)"
 "(let-values()"
 "(let-values()"
 "(let-values(((check-nested_0)"
-"(let-values(((check-nested117_0)"
-"(lambda(want-layer116_0"
-" ok?114_0"
-" ok?115_0)"
+"(let-values(((check-nested116_0)"
+"(lambda(want-layer115_0"
+" ok?114_0)"
 "(begin"
-" 'check-nested117"
+" 'check-nested116"
 "(let-values(((want-layer_0)"
-" want-layer116_0))"
+" want-layer115_0))"
 "(let-values(((ok?_1)"
-"(if ok?115_0"
-" ok?114_0"
-" #t)))"
+" ok?114_0))"
 "(let-values()"
 "(if(if ok?_1"
 "(member"
@@ -23649,16 +23311,14 @@ static const char *startup_source =
 "((want-layer_1)"
 "(begin"
 " 'check-nested"
-"(check-nested117_0"
+"(check-nested116_0"
 " want-layer_1"
-" #f"
-" #f)))"
+" #t)))"
 "((want-layer_2"
 " ok?114_1)"
-"(check-nested117_0"
+"(check-nested116_0"
 " want-layer_2"
-" ok?114_1"
-" #t))))))"
+" ok?114_1))))))"
 "(let-values(((fm_0)"
 "(if(pair?"
 "(syntax-e$1"
@@ -23686,60 +23346,60 @@ static const char *startup_source =
 " for-meta-ok?_0)"
 "(values))))"
 "(let-values(((ok?_2"
-" for-meta119_0"
-" phase-level120_0"
-" spec121_0)"
-"(let-values(((s_60)"
+" for-meta118_0"
+" phase-level119_0"
+" spec120_0)"
+"(let-values(((s_199)"
 " req_0))"
 "(let-values(((orig-s_4)"
-" s_60))"
-"(let-values(((for-meta119_1"
-" phase-level120_1"
-" spec121_1)"
+" s_199))"
+"(let-values(((for-meta118_1"
+" phase-level119_1"
+" spec120_1)"
+"(let-values(((s_200)"
+"(if(syntax?$1"
+" s_199)"
+"(syntax-e$1"
+" s_199)"
+" s_199)))"
+"(if(pair?"
+" s_200)"
+"(let-values(((for-meta121_0)"
+"(let-values(((s_201)"
+"(car"
+" s_200)))"
+" s_201))"
+"((phase-level122_0"
+" spec123_0)"
+"(let-values(((s_202)"
+"(cdr"
+" s_200)))"
 "(let-values(((s_203)"
 "(if(syntax?$1"
-" s_60)"
+" s_202)"
 "(syntax-e$1"
-" s_60)"
-" s_60)))"
+" s_202)"
+" s_202)))"
 "(if(pair?"
 " s_203)"
-"(let-values(((for-meta122_0)"
-"(let-values(((s_36)"
-"(car"
-" s_203)))"
-" s_36))"
-"((phase-level123_0"
-" spec124_0)"
+"(let-values(((phase-level124_0)"
 "(let-values(((s_204)"
+"(car"
+" s_203)))"
+" s_204))"
+"((spec125_0)"
+"(let-values(((s_205)"
 "(cdr"
 " s_203)))"
-"(let-values(((s_205)"
+"(let-values(((s_62)"
 "(if(syntax?$1"
-" s_204)"
-"(syntax-e$1"
-" s_204)"
-" s_204)))"
-"(if(pair?"
 " s_205)"
-"(let-values(((phase-level125_0)"
-"(let-values(((s_206)"
-"(car"
-" s_205)))"
-" s_206))"
-"((spec126_0)"
-"(let-values(((s_207)"
-"(cdr"
-" s_205)))"
-"(let-values(((s_208)"
-"(if(syntax?$1"
-" s_207)"
 "(syntax-e$1"
-" s_207)"
-" s_207)))"
+" s_205)"
+" s_205)))"
 "(let-values(((flat-s_0)"
 "(to-syntax-list.1"
-" s_208)))"
+" s_62)))"
 "(if(not"
 " flat-s_0)"
 "(let-values()"
@@ -23750,28 +23410,28 @@ static const char *startup_source =
 "(let-values()"
 " flat-s_0)))))))"
 "(values"
-" phase-level125_0"
-" spec126_0))"
+" phase-level124_0"
+" spec125_0))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                                 \"bad syntax\""
 " orig-s_4))))))"
 "(values"
-" for-meta122_0"
-" phase-level123_0"
-" spec124_0))"
+" for-meta121_0"
+" phase-level122_0"
+" spec123_0))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                             \"bad syntax\""
 " orig-s_4)))))"
 "(values"
 " #t"
-" for-meta119_1"
-" phase-level120_1"
-" spec121_1))))))"
+" for-meta118_1"
+" phase-level119_1"
+" spec120_1))))))"
 "(let-values(((p_33)"
 "(syntax-e$1"
-" phase-level120_0)))"
+" phase-level119_0)))"
 "(begin"
 "(if(phase?"
 " p_33)"
@@ -23782,15 +23442,15 @@ static const char *startup_source =
 "                                                                                                                                                   \"bad phase\""
 " orig-s_3"
 " req_0)))"
-"(loop_87"
-" spec121_0"
+"(loop_85"
+" spec120_0"
 "(let-values(((or-part_178)"
 " top-req_0))"
 "(if or-part_178"
 " or-part_178"
 " req_0))"
 "(phase+"
-" phase-shift_10"
+" phase-shift_9"
 " p_33)"
 " just-meta_0"
 " adjust_0"
@@ -23808,40 +23468,40 @@ static const char *startup_source =
 " for-meta-ok?_0)"
 "(values))))"
 "(let-values(((ok?_3"
-" for-syntax127_0"
-" spec128_0)"
-"(let-values(((s_209)"
+" for-syntax126_0"
+" spec127_0)"
+"(let-values(((s_67)"
 " req_0))"
 "(let-values(((orig-s_5)"
-" s_209))"
-"(let-values(((for-syntax127_1"
-" spec128_1)"
-"(let-values(((s_210)"
+" s_67))"
+"(let-values(((for-syntax126_1"
+" spec127_1)"
+"(let-values(((s_206)"
 "(if(syntax?$1"
-" s_209)"
+" s_67)"
 "(syntax-e$1"
-" s_209)"
-" s_209)))"
+" s_67)"
+" s_67)))"
 "(if(pair?"
-" s_210)"
-"(let-values(((for-syntax129_0)"
-"(let-values(((s_211)"
+" s_206)"
+"(let-values(((for-syntax128_0)"
+"(let-values(((s_207)"
 "(car"
-" s_210)))"
-" s_211))"
-"((spec130_0)"
-"(let-values(((s_212)"
+" s_206)))"
+" s_207))"
+"((spec129_0)"
+"(let-values(((s_208)"
 "(cdr"
-" s_210)))"
-"(let-values(((s_213)"
+" s_206)))"
+"(let-values(((s_38)"
 "(if(syntax?$1"
-" s_212)"
+" s_208)"
 "(syntax-e$1"
-" s_212)"
-" s_212)))"
+" s_208)"
+" s_208)))"
 "(let-values(((flat-s_1)"
 "(to-syntax-list.1"
-" s_213)))"
+" s_38)))"
 "(if(not"
 " flat-s_1)"
 "(let-values()"
@@ -23852,25 +23512,25 @@ static const char *startup_source =
 "(let-values()"
 " flat-s_1)))))))"
 "(values"
-" for-syntax129_0"
-" spec130_0))"
+" for-syntax128_0"
+" spec129_0))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                               \"bad syntax\""
 " orig-s_5)))))"
 "(values"
 " #t"
-" for-syntax127_1"
-" spec128_1))))))"
-"(loop_87"
-" spec128_0"
+" for-syntax126_1"
+" spec127_1))))))"
+"(loop_85"
+" spec127_0"
 "(let-values(((or-part_179)"
 " top-req_0))"
 "(if or-part_179"
 " or-part_179"
 " req_0))"
 "(phase+"
-" phase-shift_10"
+" phase-shift_9"
 " 1)"
 " just-meta_0"
 " adjust_0"
@@ -23888,40 +23548,40 @@ static const char *startup_source =
 " for-meta-ok?_0)"
 "(values))))"
 "(let-values(((ok?_4"
-" for-template131_0"
-" spec132_0)"
-"(let-values(((s_214)"
+" for-template130_0"
+" spec131_0)"
+"(let-values(((s_209)"
 " req_0))"
 "(let-values(((orig-s_6)"
-" s_214))"
-"(let-values(((for-template131_1"
-" spec132_1)"
-"(let-values(((s_215)"
+" s_209))"
+"(let-values(((for-template130_1"
+" spec131_1)"
+"(let-values(((s_210)"
 "(if(syntax?$1"
-" s_214)"
+" s_209)"
 "(syntax-e$1"
-" s_214)"
-" s_214)))"
+" s_209)"
+" s_209)))"
 "(if(pair?"
-" s_215)"
-"(let-values(((for-template133_0)"
-"(let-values(((s_216)"
-"(car"
-" s_215)))"
-" s_216))"
-"((spec134_0)"
-"(let-values(((s_217)"
-"(cdr"
-" s_215)))"
+" s_210)"
+"(let-values(((for-template132_0)"
 "(let-values(((s_96)"
+"(car"
+" s_210)))"
+" s_96))"
+"((spec133_0)"
+"(let-values(((s_211)"
+"(cdr"
+" s_210)))"
+"(let-values(((s_212)"
 "(if(syntax?$1"
-" s_217)"
+" s_211)"
 "(syntax-e$1"
-" s_217)"
-" s_217)))"
+" s_211)"
+" s_211)))"
 "(let-values(((flat-s_2)"
 "(to-syntax-list.1"
-" s_96)))"
+" s_212)))"
 "(if(not"
 " flat-s_2)"
 "(let-values()"
@@ -23932,25 +23592,25 @@ static const char *startup_source =
 "(let-values()"
 " flat-s_2)))))))"
 "(values"
-" for-template133_0"
-" spec134_0))"
+" for-template132_0"
+" spec133_0))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                 \"bad syntax\""
 " orig-s_6)))))"
 "(values"
 " #t"
-" for-template131_1"
-" spec132_1))))))"
-"(loop_87"
-" spec132_0"
-"(let-values(((or-part_61)"
+" for-template130_1"
+" spec131_1))))))"
+"(loop_85"
+" spec131_0"
+"(let-values(((or-part_180)"
 " top-req_0))"
-"(if or-part_61"
-" or-part_61"
+"(if or-part_180"
+" or-part_180"
 " req_0))"
 "(phase+"
-" phase-shift_10"
+" phase-shift_9"
 " -1)"
 " just-meta_0"
 " adjust_0"
@@ -23968,40 +23628,40 @@ static const char *startup_source =
 " for-meta-ok?_0)"
 "(values))))"
 "(let-values(((ok?_5"
-" for-label135_0"
-" spec136_0)"
-"(let-values(((s_218)"
+" for-label134_0"
+" spec135_0)"
+"(let-values(((s_213)"
 " req_0))"
 "(let-values(((orig-s_7)"
-" s_218))"
-"(let-values(((for-label135_1"
-" spec136_1)"
-"(let-values(((s_219)"
+" s_213))"
+"(let-values(((for-label134_1"
+" spec135_1)"
+"(let-values(((s_214)"
 "(if(syntax?$1"
-" s_218)"
+" s_213)"
 "(syntax-e$1"
-" s_218)"
-" s_218)))"
+" s_213)"
+" s_213)))"
 "(if(pair?"
-" s_219)"
-"(let-values(((for-label137_0)"
-"(let-values(((s_220)"
+" s_214)"
+"(let-values(((for-label136_0)"
+"(let-values(((s_215)"
 "(car"
-" s_219)))"
-" s_220))"
-"((spec138_0)"
-"(let-values(((s_221)"
+" s_214)))"
+" s_215))"
+"((spec137_0)"
+"(let-values(((s_169)"
 "(cdr"
-" s_219)))"
-"(let-values(((s_222)"
+" s_214)))"
+"(let-values(((s_216)"
 "(if(syntax?$1"
-" s_221)"
+" s_169)"
 "(syntax-e$1"
-" s_221)"
-" s_221)))"
+" s_169)"
+" s_169)))"
 "(let-values(((flat-s_3)"
 "(to-syntax-list.1"
-" s_222)))"
+" s_216)))"
 "(if(not"
 " flat-s_3)"
 "(let-values()"
@@ -24012,25 +23672,25 @@ static const char *startup_source =
 "(let-values()"
 " flat-s_3)))))))"
 "(values"
-" for-label137_0"
-" spec138_0))"
+" for-label136_0"
+" spec137_0))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                   \"bad syntax\""
 " orig-s_7)))))"
 "(values"
 " #t"
-" for-label135_1"
-" spec136_1))))))"
-"(loop_87"
-" spec136_0"
-"(let-values(((or-part_180)"
+" for-label134_1"
+" spec135_1))))))"
+"(loop_85"
+" spec135_0"
+"(let-values(((or-part_181)"
 " top-req_0))"
-"(if or-part_180"
-" or-part_180"
+"(if or-part_181"
+" or-part_181"
 " req_0))"
 "(phase+"
-" phase-shift_10"
+" phase-shift_9"
 " #f)"
 " just-meta_0"
 " adjust_0"
@@ -24048,60 +23708,60 @@ static const char *startup_source =
 " just-meta-ok?_0)"
 "(values))))"
 "(let-values(((ok?_6"
-" just-meta139_0"
-" phase-level140_0"
-" spec141_0)"
-"(let-values(((s_223)"
+" just-meta138_0"
+" phase-level139_0"
+" spec140_0)"
+"(let-values(((s_217)"
 " req_0))"
 "(let-values(((orig-s_8)"
-" s_223))"
-"(let-values(((just-meta139_1"
-" phase-level140_1"
-" spec141_1)"
-"(let-values(((s_105)"
+" s_217))"
+"(let-values(((just-meta138_1"
+" phase-level139_1"
+" spec140_1)"
+"(let-values(((s_218)"
 "(if(syntax?$1"
-" s_223)"
+" s_217)"
 "(syntax-e$1"
-" s_223)"
-" s_223)))"
+" s_217)"
+" s_217)))"
 "(if(pair?"
-" s_105)"
-"(let-values(((just-meta142_0)"
+" s_218)"
+"(let-values(((just-meta141_0)"
+"(let-values(((s_219)"
+"(car"
+" s_218)))"
+" s_219))"
+"((phase-level142_0"
+" spec143_0)"
+"(let-values(((s_220)"
+"(cdr"
+" s_218)))"
+"(let-values(((s_221)"
+"(if(syntax?$1"
+" s_220)"
+"(syntax-e$1"
+" s_220)"
+" s_220)))"
+"(if(pair?"
+" s_221)"
+"(let-values(((phase-level144_0)"
 "(let-values(((s_106)"
 "(car"
-" s_105)))"
+" s_221)))"
 " s_106))"
-"((phase-level143_0"
-" spec144_0)"
-"(let-values(((s_224)"
+"((spec145_0)"
+"(let-values(((s_222)"
 "(cdr"
-" s_105)))"
-"(let-values(((s_225)"
+" s_221)))"
+"(let-values(((s_162)"
 "(if(syntax?$1"
-" s_224)"
+" s_222)"
 "(syntax-e$1"
-" s_224)"
-" s_224)))"
-"(if(pair?"
-" s_225)"
-"(let-values(((phase-level145_0)"
-"(let-values(((s_108)"
-"(car"
-" s_225)))"
-" s_108))"
-"((spec146_0)"
-"(let-values(((s_109)"
-"(cdr"
-" s_225)))"
-"(let-values(((s_110)"
-"(if(syntax?$1"
-" s_109)"
-"(syntax-e$1"
-" s_109)"
-" s_109)))"
+" s_222)"
+" s_222)))"
 "(let-values(((flat-s_4)"
 "(to-syntax-list.1"
-" s_110)))"
+" s_162)))"
 "(if(not"
 " flat-s_4)"
 "(let-values()"
@@ -24112,28 +23772,28 @@ static const char *startup_source =
 "(let-values()"
 " flat-s_4)))))))"
 "(values"
-" phase-level145_0"
-" spec146_0))"
+" phase-level144_0"
+" spec145_0))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                                         \"bad syntax\""
 " orig-s_8))))))"
 "(values"
-" just-meta142_0"
-" phase-level143_0"
-" spec144_0))"
+" just-meta141_0"
+" phase-level142_0"
+" spec143_0))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                     \"bad syntax\""
 " orig-s_8)))))"
 "(values"
 " #t"
-" just-meta139_1"
-" phase-level140_1"
-" spec141_1))))))"
+" just-meta138_1"
+" phase-level139_1"
+" spec140_1))))))"
 "(let-values(((p_34)"
 "(syntax-e$1"
-" phase-level140_0)))"
+" phase-level139_0)))"
 "(begin"
 "(if(phase?"
 " p_34)"
@@ -24144,14 +23804,14 @@ static const char *startup_source =
 "                                                                                                                                                           \"bad phase\""
 " orig-s_3"
 " req_0)))"
-"(loop_87"
-" spec141_0"
-"(let-values(((or-part_181)"
+"(loop_85"
+" spec140_0"
+"(let-values(((or-part_182)"
 " top-req_0))"
-"(if or-part_181"
-" or-part_181"
+"(if or-part_182"
+" or-part_182"
 " req_0))"
-" phase-shift_10"
+" phase-shift_9"
 " p_34"
 " adjust_0"
 " for-meta-ok?_0"
@@ -24167,60 +23827,60 @@ static const char *startup_source =
 " 'phaseless)"
 "(values))))"
 "(let-values(((ok?_7"
-" only147_0"
-" spec148_0"
-" id149_0)"
-"(let-values(((s_116)"
+" only146_0"
+" spec147_0"
+" id148_0)"
+"(let-values(((s_223)"
 " req_0))"
 "(let-values(((orig-s_9)"
-" s_116))"
-"(let-values(((only147_1"
-" spec148_1"
-" id149_1)"
-"(let-values(((s_119)"
+" s_223))"
+"(let-values(((only146_1"
+" spec147_1"
+" id148_1)"
+"(let-values(((s_224)"
 "(if(syntax?$1"
-" s_116)"
+" s_223)"
 "(syntax-e$1"
-" s_116)"
-" s_116)))"
+" s_223)"
+" s_223)))"
 "(if(pair?"
-" s_119)"
-"(let-values(((only150_0)"
-"(let-values(((s_226)"
+" s_224)"
+"(let-values(((only149_0)"
+"(let-values(((s_117)"
 "(car"
-" s_119)))"
-" s_226))"
-"((spec151_0"
-" id152_0)"
-"(let-values(((s_227)"
+" s_224)))"
+" s_117))"
+"((spec150_0"
+" id151_0)"
+"(let-values(((s_118)"
 "(cdr"
-" s_119)))"
-"(let-values(((s_228)"
+" s_224)))"
+"(let-values(((s_225)"
 "(if(syntax?$1"
-" s_227)"
+" s_118)"
 "(syntax-e$1"
-" s_227)"
-" s_227)))"
+" s_118)"
+" s_118)))"
 "(if(pair?"
-" s_228)"
-"(let-values(((spec153_0)"
-"(let-values(((s_229)"
-"(car"
-" s_228)))"
-" s_229))"
-"((id154_0)"
-"(let-values(((s_230)"
-"(cdr"
-" s_228)))"
+" s_225)"
+"(let-values(((spec152_0)"
 "(let-values(((s_120)"
+"(car"
+" s_225)))"
+" s_120))"
+"((id153_0)"
+"(let-values(((s_226)"
+"(cdr"
+" s_225)))"
+"(let-values(((s_227)"
 "(if(syntax?$1"
-" s_230)"
+" s_226)"
 "(syntax-e$1"
-" s_230)"
-" s_230)))"
+" s_226)"
+" s_226)))"
 "(let-values(((flat-s_5)"
 "(to-syntax-list.1"
-" s_120)))"
+" s_227)))"
 "(if(not"
 " flat-s_5)"
 "(let-values()"
@@ -24229,8 +23889,8 @@ static const char *startup_source =
 "                                                                                                                                                                                                                                   \"bad syntax\""
 " orig-s_9))"
 "(let-values()"
-"(let-values(((id_30)"
-"(let-values(((lst_141)"
+"(let-values(((id_29)"
+"(let-values(((lst_39)"
 " flat-s_5))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
@@ -24238,94 +23898,94 @@ static const char *startup_source =
 "(void)"
 "(let-values()"
 "(check-list"
-" lst_141)))"
-"((letrec-values(((for-loop_176)"
-"(lambda(id_31"
+" lst_39)))"
+"((letrec-values(((for-loop_173)"
+"(lambda(id_30"
 " lst_142)"
 "(begin"
 " 'for-loop"
 "(if(pair?"
 " lst_142)"
-"(let-values(((s_231)"
+"(let-values(((s_228)"
 "(unsafe-car"
 " lst_142))"
-"((rest_72)"
+"((rest_73)"
 "(unsafe-cdr"
 " lst_142)))"
+"(let-values(((id_31)"
 "(let-values(((id_32)"
+" id_30))"
 "(let-values(((id_33)"
-" id_31))"
-"(let-values(((id_34)"
 "(let-values()"
-"(let-values(((id155_0)"
+"(let-values(((id154_0)"
 "(let-values()"
-"(if(let-values(((or-part_182)"
+"(if(let-values(((or-part_183)"
 "(if(syntax?$1"
-" s_231)"
+" s_228)"
 "(symbol?"
 "(syntax-e$1"
-" s_231))"
+" s_228))"
 " #f)))"
-"(if or-part_182"
-" or-part_182"
+"(if or-part_183"
+" or-part_183"
 "(symbol?"
-" s_231)))"
-" s_231"
+" s_228)))"
+" s_228"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                                                                                                                                                                 \"not an identifier\""
 " orig-s_9"
-" s_231)))))"
+" s_228)))))"
 "(cons"
-" id155_0"
-" id_33)))))"
+" id154_0"
+" id_32)))))"
 "(values"
-" id_34)))))"
+" id_33)))))"
 "(if(not"
 " #f)"
-"(for-loop_176"
-" id_32"
-" rest_72)"
-" id_32)))"
-" id_31)))))"
-" for-loop_176)"
+"(for-loop_173"
+" id_31"
+" rest_73)"
+" id_31)))"
+" id_30)))))"
+" for-loop_173)"
 " null"
-" lst_141)))))"
+" lst_39)))))"
 "(reverse$1"
-" id_30)))))))))"
+" id_29)))))))))"
 "(values"
-" spec153_0"
-" id154_0))"
+" spec152_0"
+" id153_0))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                                           \"bad syntax\""
 " orig-s_9))))))"
 "(values"
-" only150_0"
-" spec151_0"
-" id152_0))"
+" only149_0"
+" spec150_0"
+" id151_0))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                       \"bad syntax\""
 " orig-s_9)))))"
 "(values"
 " #t"
-" only147_1"
-" spec148_1"
-" id149_1))))))"
-"(loop_87"
+" only146_1"
+" spec147_1"
+" id148_1))))))"
+"(loop_85"
 "(list"
-" spec148_0)"
-"(let-values(((or-part_183)"
+" spec147_0)"
+"(let-values(((or-part_184)"
 " top-req_0))"
-"(if or-part_183"
-" or-part_183"
+"(if or-part_184"
+" or-part_184"
 " req_0))"
-" phase-shift_10"
+" phase-shift_9"
 " just-meta_0"
 "(adjust-only1.1"
 "(ids->sym-set"
-" id149_0))"
+" id148_0))"
 " #f"
 " #f"
 " 'path))))"
@@ -24339,136 +23999,136 @@ static const char *startup_source =
 " 'phaseless)"
 "(values))))"
 "(let-values(((ok?_8"
-" prefix156_0"
-" id:prefix157_0"
-" spec158_0)"
-"(let-values(((s_232)"
+" prefix155_0"
+" id:prefix156_0"
+" spec157_0)"
+"(let-values(((s_128)"
 " req_0))"
 "(let-values(((orig-s_10)"
-" s_232))"
-"(let-values(((prefix156_1"
-" id:prefix157_1"
-" spec158_1)"
-"(let-values(((s_233)"
+" s_128))"
+"(let-values(((prefix155_1"
+" id:prefix156_1"
+" spec157_1)"
+"(let-values(((s_229)"
 "(if(syntax?$1"
-" s_232)"
+" s_128)"
 "(syntax-e$1"
-" s_232)"
-" s_232)))"
+" s_128)"
+" s_128)))"
 "(if(pair?"
-" s_233)"
-"(let-values(((prefix159_0)"
-"(let-values(((s_234)"
+" s_229)"
+"(let-values(((prefix158_0)"
+"(let-values(((s_230)"
 "(car"
-" s_233)))"
-" s_234))"
-"((id:prefix160_0"
-" spec161_0)"
-"(let-values(((s_131)"
+" s_229)))"
+" s_230))"
+"((id:prefix159_0"
+" spec160_0)"
+"(let-values(((s_231)"
 "(cdr"
-" s_233)))"
-"(let-values(((s_235)"
+" s_229)))"
+"(let-values(((s_232)"
 "(if(syntax?$1"
-" s_131)"
+" s_231)"
 "(syntax-e$1"
-" s_131)"
-" s_131)))"
+" s_231)"
+" s_231)))"
 "(if(pair?"
-" s_235)"
-"(let-values(((id:prefix162_0)"
-"(let-values(((s_236)"
+" s_232)"
+"(let-values(((id:prefix161_0)"
+"(let-values(((s_233)"
 "(car"
-" s_235)))"
-"(if(let-values(((or-part_184)"
+" s_232)))"
+"(if(let-values(((or-part_185)"
 "(if(syntax?$1"
-" s_236)"
+" s_233)"
 "(symbol?"
 "(syntax-e$1"
-" s_236))"
+" s_233))"
 " #f)))"
-"(if or-part_184"
-" or-part_184"
+"(if or-part_185"
+" or-part_185"
 "(symbol?"
-" s_236)))"
-" s_236"
+" s_233)))"
+" s_233"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                                                               \"not an identifier\""
 " orig-s_10"
-" s_236))))"
-"((spec163_0)"
-"(let-values(((s_237)"
+" s_233))))"
+"((spec162_0)"
+"(let-values(((s_234)"
+"(cdr"
+" s_232)))"
+"(let-values(((s_235)"
+"(if(syntax?$1"
+" s_234)"
+"(syntax-e$1"
+" s_234)"
+" s_234)))"
+"(if(pair?"
+" s_235)"
+"(let-values(((spec163_0)"
+"(let-values(((s_132)"
+"(car"
+" s_235)))"
+" s_132))"
+"(()"
+"(let-values(((s_236)"
 "(cdr"
 " s_235)))"
-"(let-values(((s_238)"
+"(let-values(((s_237)"
 "(if(syntax?$1"
-" s_237)"
+" s_236)"
 "(syntax-e$1"
-" s_237)"
-" s_237)))"
-"(if(pair?"
-" s_238)"
-"(let-values(((spec164_0)"
-"(let-values(((s_239)"
-"(car"
-" s_238)))"
-" s_239))"
-"(()"
-"(let-values(((s_240)"
-"(cdr"
-" s_238)))"
-"(let-values(((s_241)"
-"(if(syntax?$1"
-" s_240)"
-"(syntax-e$1"
-" s_240)"
-" s_240)))"
+" s_236)"
+" s_236)))"
 "(if(null?"
-" s_241)"
+" s_237)"
 "(values)"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                                                                                     \"bad syntax\""
 " orig-s_10))))))"
 "(values"
-" spec164_0))"
+" spec163_0))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                                                                 \"bad syntax\""
 " orig-s_10))))))"
 "(values"
-" id:prefix162_0"
-" spec163_0))"
+" id:prefix161_0"
+" spec162_0))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                                             \"bad syntax\""
 " orig-s_10))))))"
 "(values"
-" prefix159_0"
-" id:prefix160_0"
-" spec161_0))"
+" prefix158_0"
+" id:prefix159_0"
+" spec160_0))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                         \"bad syntax\""
 " orig-s_10)))))"
 "(values"
 " #t"
-" prefix156_1"
-" id:prefix157_1"
-" spec158_1))))))"
-"(loop_87"
+" prefix155_1"
+" id:prefix156_1"
+" spec157_1))))))"
+"(loop_85"
 "(list"
-" spec158_0)"
-"(let-values(((or-part_185)"
+" spec157_0)"
+"(let-values(((or-part_114)"
 " top-req_0))"
-"(if or-part_185"
-" or-part_185"
+"(if or-part_114"
+" or-part_114"
 " req_0))"
-" phase-shift_10"
+" phase-shift_9"
 " just-meta_0"
 "(adjust-prefix2.1"
 "(syntax-e$1"
-" id:prefix157_0))"
+" id:prefix156_0))"
 " #f"
 " #f"
 " 'path))))"
@@ -24482,60 +24142,60 @@ static const char *startup_source =
 " 'phaseless)"
 "(values))))"
 "(let-values(((ok?_9"
-" all-except165_0"
-" spec166_0"
-" id167_0)"
-"(let-values(((s_242)"
+" all-except164_0"
+" spec165_0"
+" id166_0)"
+"(let-values(((s_238)"
 " req_0))"
 "(let-values(((orig-s_11)"
-" s_242))"
-"(let-values(((all-except165_1"
-" spec166_1"
-" id167_1)"
+" s_238))"
+"(let-values(((all-except164_1"
+" spec165_1"
+" id166_1)"
+"(let-values(((s_239)"
+"(if(syntax?$1"
+" s_238)"
+"(syntax-e$1"
+" s_238)"
+" s_238)))"
+"(if(pair?"
+" s_239)"
+"(let-values(((all-except167_0)"
+"(let-values(((s_240)"
+"(car"
+" s_239)))"
+" s_240))"
+"((spec168_0"
+" id169_0)"
+"(let-values(((s_241)"
+"(cdr"
+" s_239)))"
+"(let-values(((s_242)"
+"(if(syntax?$1"
+" s_241)"
+"(syntax-e$1"
+" s_241)"
+" s_241)))"
+"(if(pair?"
+" s_242)"
+"(let-values(((spec170_0)"
 "(let-values(((s_243)"
-"(if(syntax?$1"
-" s_242)"
-"(syntax-e$1"
-" s_242)"
+"(car"
 " s_242)))"
-"(if(pair?"
-" s_243)"
-"(let-values(((all-except168_0)"
+" s_243))"
+"((id171_0)"
 "(let-values(((s_244)"
-"(car"
-" s_243)))"
-" s_244))"
-"((spec169_0"
-" id170_0)"
+"(cdr"
+" s_242)))"
 "(let-values(((s_245)"
-"(cdr"
-" s_243)))"
-"(let-values(((s_246)"
 "(if(syntax?$1"
-" s_245)"
+" s_244)"
 "(syntax-e$1"
-" s_245)"
-" s_245)))"
-"(if(pair?"
-" s_246)"
-"(let-values(((spec171_0)"
-"(let-values(((s_247)"
-"(car"
-" s_246)))"
-" s_247))"
-"((id172_0)"
-"(let-values(((s_248)"
-"(cdr"
-" s_246)))"
-"(let-values(((s_249)"
-"(if(syntax?$1"
-" s_248)"
-"(syntax-e$1"
-" s_248)"
-" s_248)))"
+" s_244)"
+" s_244)))"
 "(let-values(((flat-s_6)"
 "(to-syntax-list.1"
-" s_249)))"
+" s_245)))"
 "(if(not"
 " flat-s_6)"
 "(let-values()"
@@ -24544,7 +24204,7 @@ static const char *startup_source =
 "                                                                                                                                                                                                                                       \"bad syntax\""
 " orig-s_11))"
 "(let-values()"
-"(let-values(((id_35)"
+"(let-values(((id_34)"
 "(let-values(((lst_143)"
 " flat-s_6))"
 "(begin"
@@ -24554,94 +24214,94 @@ static const char *startup_source =
 "(let-values()"
 "(check-list"
 " lst_143)))"
-"((letrec-values(((for-loop_177)"
-"(lambda(id_36"
+"((letrec-values(((for-loop_174)"
+"(lambda(id_35"
 " lst_144)"
 "(begin"
 " 'for-loop"
 "(if(pair?"
 " lst_144)"
-"(let-values(((s_250)"
+"(let-values(((s_246)"
 "(unsafe-car"
 " lst_144))"
-"((rest_73)"
+"((rest_74)"
 "(unsafe-cdr"
 " lst_144)))"
+"(let-values(((id_36)"
 "(let-values(((id_37)"
+" id_35))"
 "(let-values(((id_38)"
-" id_36))"
-"(let-values(((id_39)"
 "(let-values()"
-"(let-values(((id173_0)"
+"(let-values(((id172_0)"
 "(let-values()"
 "(if(let-values(((or-part_186)"
 "(if(syntax?$1"
-" s_250)"
+" s_246)"
 "(symbol?"
 "(syntax-e$1"
-" s_250))"
+" s_246))"
 " #f)))"
 "(if or-part_186"
 " or-part_186"
 "(symbol?"
-" s_250)))"
-" s_250"
+" s_246)))"
+" s_246"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                                                                                                                                                                     \"not an identifier\""
 " orig-s_11"
-" s_250)))))"
+" s_246)))))"
 "(cons"
-" id173_0"
-" id_38)))))"
+" id172_0"
+" id_37)))))"
 "(values"
-" id_39)))))"
+" id_38)))))"
 "(if(not"
 " #f)"
-"(for-loop_177"
-" id_37"
-" rest_73)"
-" id_37)))"
-" id_36)))))"
-" for-loop_177)"
+"(for-loop_174"
+" id_36"
+" rest_74)"
+" id_36)))"
+" id_35)))))"
+" for-loop_174)"
 " null"
 " lst_143)))))"
 "(reverse$1"
-" id_35)))))))))"
+" id_34)))))))))"
 "(values"
-" spec171_0"
-" id172_0))"
+" spec170_0"
+" id171_0))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                                               \"bad syntax\""
 " orig-s_11))))))"
 "(values"
-" all-except168_0"
-" spec169_0"
-" id170_0))"
+" all-except167_0"
+" spec168_0"
+" id169_0))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                           \"bad syntax\""
 " orig-s_11)))))"
 "(values"
 " #t"
-" all-except165_1"
-" spec166_1"
-" id167_1))))))"
-"(loop_87"
+" all-except164_1"
+" spec165_1"
+" id166_1))))))"
+"(loop_85"
 "(list"
-" spec166_0)"
+" spec165_0)"
 "(let-values(((or-part_187)"
 " top-req_0))"
 "(if or-part_187"
 " or-part_187"
 " req_0))"
-" phase-shift_10"
+" phase-shift_9"
 " just-meta_0"
 "(adjust-all-except3.1"
 " '||"
 "(ids->sym-set"
-" id167_0))"
+" id166_0))"
 " #f"
 " #f"
 " 'path))))"
@@ -24655,97 +24315,97 @@ static const char *startup_source =
 " 'phaseless)"
 "(values))))"
 "(let-values(((ok?_10"
-" prefix-all-except174_0"
-" id:prefix175_0"
-" spec176_0"
-" id177_0)"
-"(let-values(((s_251)"
+" prefix-all-except173_0"
+" id:prefix174_0"
+" spec175_0"
+" id176_0)"
+"(let-values(((s_247)"
 " req_0))"
 "(let-values(((orig-s_12)"
-" s_251))"
-"(let-values(((prefix-all-except174_1"
-" id:prefix175_1"
-" spec176_1"
-" id177_1)"
-"(let-values(((s_252)"
+" s_247))"
+"(let-values(((prefix-all-except173_1"
+" id:prefix174_1"
+" spec175_1"
+" id176_1)"
+"(let-values(((s_248)"
 "(if(syntax?$1"
-" s_251)"
+" s_247)"
 "(syntax-e$1"
-" s_251)"
-" s_251)))"
+" s_247)"
+" s_247)))"
 "(if(pair?"
-" s_252)"
-"(let-values(((prefix-all-except178_0)"
-"(let-values(((s_253)"
+" s_248)"
+"(let-values(((prefix-all-except177_0)"
+"(let-values(((s_249)"
 "(car"
-" s_252)))"
-" s_253))"
-"((id:prefix179_0"
-" spec180_0"
-" id181_0)"
-"(let-values(((s_254)"
+" s_248)))"
+" s_249))"
+"((id:prefix178_0"
+" spec179_0"
+" id180_0)"
+"(let-values(((s_250)"
 "(cdr"
-" s_252)))"
-"(let-values(((s_255)"
+" s_248)))"
+"(let-values(((s_251)"
 "(if(syntax?$1"
-" s_254)"
+" s_250)"
 "(syntax-e$1"
-" s_254)"
-" s_254)))"
+" s_250)"
+" s_250)))"
 "(if(pair?"
-" s_255)"
-"(let-values(((id:prefix182_0)"
-"(let-values(((s_256)"
+" s_251)"
+"(let-values(((id:prefix181_0)"
+"(let-values(((s_252)"
 "(car"
-" s_255)))"
+" s_251)))"
 "(if(let-values(((or-part_188)"
 "(if(syntax?$1"
-" s_256)"
+" s_252)"
 "(symbol?"
 "(syntax-e$1"
-" s_256))"
+" s_252))"
 " #f)))"
 "(if or-part_188"
 " or-part_188"
 "(symbol?"
-" s_256)))"
-" s_256"
+" s_252)))"
+" s_252"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                                                                   \"not an identifier\""
 " orig-s_12"
-" s_256))))"
-"((spec183_0"
-" id184_0)"
-"(let-values(((s_257)"
+" s_252))))"
+"((spec182_0"
+" id183_0)"
+"(let-values(((s_253)"
 "(cdr"
-" s_255)))"
-"(let-values(((s_258)"
+" s_251)))"
+"(let-values(((s_254)"
 "(if(syntax?$1"
-" s_257)"
+" s_253)"
 "(syntax-e$1"
-" s_257)"
-" s_257)))"
+" s_253)"
+" s_253)))"
 "(if(pair?"
-" s_258)"
-"(let-values(((spec185_0)"
-"(let-values(((s_259)"
+" s_254)"
+"(let-values(((spec184_0)"
+"(let-values(((s_255)"
 "(car"
-" s_258)))"
-" s_259))"
-"((id186_0)"
-"(let-values(((s_260)"
+" s_254)))"
+" s_255))"
+"((id185_0)"
+"(let-values(((s_256)"
 "(cdr"
-" s_258)))"
-"(let-values(((s_261)"
+" s_254)))"
+"(let-values(((s_257)"
 "(if(syntax?$1"
-" s_260)"
+" s_256)"
 "(syntax-e$1"
-" s_260)"
-" s_260)))"
+" s_256)"
+" s_256)))"
 "(let-values(((flat-s_7)"
 "(to-syntax-list.1"
-" s_261)))"
+" s_257)))"
 "(if(not"
 " flat-s_7)"
 "(let-values()"
@@ -24754,7 +24414,7 @@ static const char *startup_source =
 "                                                                                                                                                                                                                                                             \"bad syntax\""
 " orig-s_12))"
 "(let-values()"
-"(let-values(((id_40)"
+"(let-values(((id_39)"
 "(let-values(((lst_145)"
 " flat-s_7))"
 "(begin"
@@ -24764,105 +24424,105 @@ static const char *startup_source =
 "(let-values()"
 "(check-list"
 " lst_145)))"
-"((letrec-values(((for-loop_62)"
-"(lambda(id_41"
+"((letrec-values(((for-loop_175)"
+"(lambda(id_40"
 " lst_146)"
 "(begin"
 " 'for-loop"
 "(if(pair?"
 " lst_146)"
-"(let-values(((s_262)"
+"(let-values(((s_258)"
 "(unsafe-car"
 " lst_146))"
-"((rest_74)"
+"((rest_75)"
 "(unsafe-cdr"
 " lst_146)))"
+"(let-values(((id_41)"
 "(let-values(((id_42)"
+" id_40))"
 "(let-values(((id_43)"
-" id_41))"
-"(let-values(((id_44)"
 "(let-values()"
-"(let-values(((id187_0)"
+"(let-values(((id186_0)"
 "(let-values()"
-"(if(let-values(((or-part_17)"
+"(if(let-values(((or-part_189)"
 "(if(syntax?$1"
-" s_262)"
+" s_258)"
 "(symbol?"
 "(syntax-e$1"
-" s_262))"
+" s_258))"
 " #f)))"
-"(if or-part_17"
-" or-part_17"
+"(if or-part_189"
+" or-part_189"
 "(symbol?"
-" s_262)))"
-" s_262"
+" s_258)))"
+" s_258"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                                                                                                                                                                                           \"not an identifier\""
 " orig-s_12"
-" s_262)))))"
+" s_258)))))"
 "(cons"
-" id187_0"
-" id_43)))))"
+" id186_0"
+" id_42)))))"
 "(values"
-" id_44)))))"
+" id_43)))))"
 "(if(not"
 " #f)"
-"(for-loop_62"
-" id_42"
-" rest_74)"
-" id_42)))"
-" id_41)))))"
-" for-loop_62)"
+"(for-loop_175"
+" id_41"
+" rest_75)"
+" id_41)))"
+" id_40)))))"
+" for-loop_175)"
 " null"
 " lst_145)))))"
 "(reverse$1"
-" id_40)))))))))"
+" id_39)))))))))"
 "(values"
-" spec185_0"
-" id186_0))"
+" spec184_0"
+" id185_0))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                                                                     \"bad syntax\""
 " orig-s_12))))))"
 "(values"
-" id:prefix182_0"
-" spec183_0"
-" id184_0))"
+" id:prefix181_0"
+" spec182_0"
+" id183_0))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                                                 \"bad syntax\""
 " orig-s_12))))))"
 "(values"
-" prefix-all-except178_0"
-" id:prefix179_0"
-" spec180_0"
-" id181_0))"
+" prefix-all-except177_0"
+" id:prefix178_0"
+" spec179_0"
+" id180_0))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                             \"bad syntax\""
 " orig-s_12)))))"
 "(values"
 " #t"
-" prefix-all-except174_1"
-" id:prefix175_1"
-" spec176_1"
-" id177_1))))))"
-"(loop_87"
+" prefix-all-except173_1"
+" id:prefix174_1"
+" spec175_1"
+" id176_1))))))"
+"(loop_85"
 "(list"
-" spec176_0)"
-"(let-values(((or-part_189)"
+" spec175_0)"
+"(let-values(((or-part_190)"
 " top-req_0))"
-"(if or-part_189"
-" or-part_189"
+"(if or-part_190"
+" or-part_190"
 " req_0))"
-" phase-shift_10"
+" phase-shift_9"
 " just-meta_0"
 "(adjust-all-except3.1"
 "(syntax-e$1"
-" id:prefix175_0)"
+" id:prefix174_0)"
 "(ids->sym-set"
-" id177_0))"
+" id176_0))"
 " #f"
 " #f"
 " 'path))))"
@@ -24876,184 +24536,184 @@ static const char *startup_source =
 " 'phaseless)"
 "(values))))"
 "(let-values(((ok?_11"
-" rename188_0"
-" spec189_0"
-" id:to190_0"
-" id:from191_0)"
-"(let-values(((s_263)"
+" rename187_0"
+" spec188_0"
+" id:to189_0"
+" id:from190_0)"
+"(let-values(((s_259)"
 " req_0))"
 "(let-values(((orig-s_13)"
-" s_263))"
-"(let-values(((rename188_1"
-" spec189_1"
-" id:to190_1"
-" id:from191_1)"
+" s_259))"
+"(let-values(((rename187_1"
+" spec188_1"
+" id:to189_1"
+" id:from190_1)"
+"(let-values(((s_260)"
+"(if(syntax?$1"
+" s_259)"
+"(syntax-e$1"
+" s_259)"
+" s_259)))"
+"(if(pair?"
+" s_260)"
+"(let-values(((rename191_0)"
+"(let-values(((s_261)"
+"(car"
+" s_260)))"
+" s_261))"
+"((spec192_0"
+" id:to193_0"
+" id:from194_0)"
+"(let-values(((s_262)"
+"(cdr"
+" s_260)))"
+"(let-values(((s_263)"
+"(if(syntax?$1"
+" s_262)"
+"(syntax-e$1"
+" s_262)"
+" s_262)))"
+"(if(pair?"
+" s_263)"
+"(let-values(((spec195_0)"
 "(let-values(((s_264)"
-"(if(syntax?$1"
-" s_263)"
-"(syntax-e$1"
-" s_263)"
+"(car"
 " s_263)))"
-"(if(pair?"
-" s_264)"
-"(let-values(((rename192_0)"
+" s_264))"
+"((id:to196_0"
+" id:from197_0)"
 "(let-values(((s_265)"
-"(car"
-" s_264)))"
-" s_265))"
-"((spec193_0"
-" id:to194_0"
-" id:from195_0)"
+"(cdr"
+" s_263)))"
 "(let-values(((s_266)"
-"(cdr"
-" s_264)))"
+"(if(syntax?$1"
+" s_265)"
+"(syntax-e$1"
+" s_265)"
+" s_265)))"
+"(if(pair?"
+" s_266)"
+"(let-values(((id:to198_0)"
 "(let-values(((s_267)"
-"(if(syntax?$1"
-" s_266)"
-"(syntax-e$1"
-" s_266)"
+"(car"
 " s_266)))"
-"(if(pair?"
+"(if(let-values(((or-part_191)"
+"(if(syntax?$1"
 " s_267)"
-"(let-values(((spec196_0)"
-"(let-values(((s_268)"
-"(car"
-" s_267)))"
-" s_268))"
-"((id:to197_0"
-" id:from198_0)"
-"(let-values(((s_269)"
-"(cdr"
-" s_267)))"
-"(let-values(((s_270)"
-"(if(syntax?$1"
-" s_269)"
-"(syntax-e$1"
-" s_269)"
-" s_269)))"
-"(if(pair?"
-" s_270)"
-"(let-values(((id:to199_0)"
-"(let-values(((s_271)"
-"(car"
-" s_270)))"
-"(if(let-values(((or-part_190)"
-"(if(syntax?$1"
-" s_271)"
 "(symbol?"
 "(syntax-e$1"
-" s_271))"
+" s_267))"
 " #f)))"
-"(if or-part_190"
-" or-part_190"
+"(if or-part_191"
+" or-part_191"
 "(symbol?"
-" s_271)))"
-" s_271"
+" s_267)))"
+" s_267"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                                                                                         \"not an identifier\""
 " orig-s_13"
-" s_271))))"
-"((id:from200_0)"
-"(let-values(((s_272)"
+" s_267))))"
+"((id:from199_0)"
+"(let-values(((s_268)"
 "(cdr"
-" s_270)))"
-"(let-values(((s_273)"
+" s_266)))"
+"(let-values(((s_269)"
 "(if(syntax?$1"
-" s_272)"
+" s_268)"
 "(syntax-e$1"
-" s_272)"
-" s_272)))"
+" s_268)"
+" s_268)))"
 "(if(pair?"
-" s_273)"
-"(let-values(((id:from201_0)"
-"(let-values(((s_274)"
+" s_269)"
+"(let-values(((id:from200_0)"
+"(let-values(((s_270)"
 "(car"
-" s_273)))"
-"(if(let-values(((or-part_18)"
+" s_269)))"
+"(if(let-values(((or-part_192)"
 "(if(syntax?$1"
-" s_274)"
+" s_270)"
 "(symbol?"
 "(syntax-e$1"
-" s_274))"
+" s_270))"
 " #f)))"
-"(if or-part_18"
-" or-part_18"
+"(if or-part_192"
+" or-part_192"
 "(symbol?"
-" s_274)))"
-" s_274"
+" s_270)))"
+" s_270"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                                                                                                             \"not an identifier\""
 " orig-s_13"
-" s_274))))"
+" s_270))))"
 "(()"
-"(let-values(((s_275)"
+"(let-values(((s_134)"
 "(cdr"
-" s_273)))"
-"(let-values(((s_276)"
+" s_269)))"
+"(let-values(((s_271)"
 "(if(syntax?$1"
-" s_275)"
+" s_134)"
 "(syntax-e$1"
-" s_275)"
-" s_275)))"
+" s_134)"
+" s_134)))"
 "(if(null?"
-" s_276)"
+" s_271)"
 "(values)"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                                                                                                               \"bad syntax\""
 " orig-s_13))))))"
 "(values"
-" id:from201_0))"
+" id:from200_0))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                                                                                           \"bad syntax\""
 " orig-s_13))))))"
 "(values"
-" id:to199_0"
-" id:from200_0))"
+" id:to198_0"
+" id:from199_0))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                                                                       \"bad syntax\""
 " orig-s_13))))))"
 "(values"
-" spec196_0"
-" id:to197_0"
-" id:from198_0))"
+" spec195_0"
+" id:to196_0"
+" id:from197_0))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                                                   \"bad syntax\""
 " orig-s_13))))))"
 "(values"
-" rename192_0"
-" spec193_0"
-" id:to194_0"
-" id:from195_0))"
+" rename191_0"
+" spec192_0"
+" id:to193_0"
+" id:from194_0))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                               \"bad syntax\""
 " orig-s_13)))))"
 "(values"
 " #t"
-" rename188_1"
-" spec189_1"
-" id:to190_1"
-" id:from191_1))))))"
-"(loop_87"
+" rename187_1"
+" spec188_1"
+" id:to189_1"
+" id:from190_1))))))"
+"(loop_85"
 "(list"
-" spec189_0)"
-"(let-values(((or-part_191)"
+" spec188_0)"
+"(let-values(((or-part_193)"
 " top-req_0))"
-"(if or-part_191"
-" or-part_191"
+"(if or-part_193"
+" or-part_193"
 " req_0))"
-" phase-shift_10"
+" phase-shift_9"
 " just-meta_0"
 "(adjust-rename4.1"
-" id:to190_0"
+" id:to189_0"
 "(syntax-e$1"
-" id:from191_0))"
+" id:from190_0))"
 " #f"
 " #f"
 " 'path))))"
@@ -25063,11 +24723,11 @@ static const char *startup_source =
 " req_0)))"
 "(let-values((()"
 "(begin"
-"(if(let-values(((or-part_192)"
+"(if(let-values(((or-part_194)"
 "(1/module-path?"
 " maybe-mp_0)))"
-"(if or-part_192"
-" or-part_192"
+"(if or-part_194"
+" or-part_194"
 "(1/resolved-module-path?"
 " maybe-mp_0)))"
 "(void)"
@@ -25080,10 +24740,10 @@ static const char *startup_source =
 "(values))))"
 "(let-values((()"
 "(begin"
-"(if(let-values(((or-part_193)"
+"(if(let-values(((or-part_195)"
 " adjust_0))"
-"(if or-part_193"
-" or-part_193"
+"(if or-part_195"
+" or-part_195"
 "(not"
 "(eq?"
 " just-meta_0"
@@ -25100,110 +24760,98 @@ static const char *startup_source =
 "(resolved-module-path->module-path"
 " maybe-mp_0)"
 " maybe-mp_0)))"
-"(let-values(((mpi_38)"
-"(let-values(((mp219_0)"
+"(let-values(((mpi_16)"
+"(let-values(((mp218_0)"
 " mp_0)"
-"((self220_0)"
-" self_11)"
-"((declared-submodule-names221_0)"
+"((self219_0)"
+" self_10)"
+"((declared-submodule-names220_0)"
 " declared-submodule-names_2))"
 "(module-path->mpi5.1"
-" declared-submodule-names221_0"
-" #t"
-" mp219_0"
-" self220_0))))"
+" declared-submodule-names220_0"
+" mp218_0"
+" self219_0))))"
 "(begin"
-"(let-values(((mpi202_0)"
-" mpi_38)"
-"((req203_0)"
+"(let-values(((mpi201_0)"
+" mpi_16)"
+"((req202_0)"
 " req_0)"
-"((self204_0)"
-" self_11)"
-"((temp205_0)"
-"(let-values(((or-part_194)"
+"((self203_0)"
+" self_10)"
+"((temp204_0)"
+"(let-values(((or-part_196)"
 " req_0))"
-"(if or-part_194"
-" or-part_194"
+"(if or-part_196"
+" or-part_196"
 " top-req_0)))"
-"((m-ns206_0)"
+"((m-ns205_0)"
 " m-ns_8)"
-"((phase-shift207_0)"
-" phase-shift_10)"
-"((run-phase208_0)"
+"((phase-shift206_0)"
+" phase-shift_9)"
+"((run-phase207_0)"
 " run-phase_5)"
-"((just-meta209_0)"
+"((just-meta208_0)"
 " just-meta_0)"
-"((adjust210_0)"
+"((adjust209_0)"
 " adjust_0)"
-"((requires+provides211_0)"
+"((requires+provides210_0)"
 " requires+provides_1)"
-"((run?212_0)"
+"((run?211_0)"
 " run?_1)"
-"((visit?213_0)"
+"((visit?212_0)"
 " visit?_1)"
-"((copy-variable-phase-level214_0)"
+"((copy-variable-phase-level213_0)"
 " copy-variable-phase-level_0)"
-"((copy-variable-as-constant?215_0)"
+"((copy-variable-as-constant?214_0)"
 " copy-variable-as-constant?_0)"
-"((skip-variable-phase-level216_0)"
+"((skip-variable-phase-level215_0)"
 " skip-variable-phase-level_0)"
-"((initial-require?217_0)"
+"((initial-require?216_0)"
 " initial-require?_0)"
-"((who218_0)"
-" who_14))"
+"((who217_0)"
+" who_13))"
 "(perform-require!78.1"
-" adjust210_0"
+" adjust209_0"
 " #t"
 " #f"
-" #f"
-" #f"
-" #f"
-" copy-variable-as-constant?215_0"
-" #t"
-" copy-variable-phase-level214_0"
-" #t"
-" initial-require?217_0"
-" #t"
-" just-meta209_0"
-" #t"
-" phase-shift207_0"
-" requires+provides211_0"
-" #t"
-" run-phase208_0"
-" run?212_0"
-" #t"
-" skip-variable-phase-level216_0"
-" #t"
-" visit?213_0"
-" #t"
-" who218_0"
-" mpi202_0"
-" req203_0"
-" self204_0"
-" temp205_0"
-" m-ns206_0))"
+" copy-variable-as-constant?214_0"
+" copy-variable-phase-level213_0"
+" initial-require?216_0"
+" just-meta208_0"
+" phase-shift206_0"
+" requires+provides210_0"
+" run-phase207_0"
+" run?211_0"
+" skip-variable-phase-level215_0"
+" visit?212_0"
+" who217_0"
+" mpi201_0"
+" req202_0"
+" self203_0"
+" temp204_0"
+" m-ns205_0))"
 "(set! initial-require?_0"
 " #f)))))))))))))))))))))))))"
 "(values"
-" result_78)))))"
+" result_76)))))"
 "(if(if(not"
-"((lambda x_53"
-"(not result_77))"
+"((lambda x_55"
+"(not result_75))"
 " req_0))"
 "(not #f)"
 " #f)"
-"(for-loop_175"
-" result_77"
-" rest_71)"
-" result_77)))"
-" result_76)))))"
-" for-loop_175)"
+"(for-loop_172"
+" result_75"
+" rest_72)"
+" result_75)))"
+" result_74)))))"
+" for-loop_172)"
 " #t"
-" lst_139)))))))"
-" loop_87)"
+" lst_140)))))))"
+" loop_85)"
 " reqs_0"
 " #f"
-" phase-shift_9"
+" phase-shift_8"
 " 'all"
 " #f"
 " #t"
@@ -25216,26 +24864,26 @@ static const char *startup_source =
 "(let-values(((lst_147) ids_3))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_147)))"
-"((letrec-values(((for-loop_178)"
-"(lambda(table_141 lst_148)"
+"((letrec-values(((for-loop_176)"
+"(lambda(table_137 lst_148)"
 "(begin"
 " 'for-loop"
 "(if(pair? lst_148)"
-"(let-values(((id_45)(unsafe-car lst_148))((rest_75)(unsafe-cdr lst_148)))"
-"(let-values(((table_142)"
-"(let-values(((table_143) table_141))"
-"(let-values(((table_144)"
+"(let-values(((id_44)(unsafe-car lst_148))((rest_76)(unsafe-cdr lst_148)))"
+"(let-values(((table_138)"
+"(let-values(((table_139) table_137))"
+"(let-values(((table_140)"
 "(let-values()"
-"(let-values(((key_54 val_47)"
+"(let-values(((key_54 val_46)"
 "(let-values()"
 "(values"
-"(let-values()(syntax-e$1 id_45))"
+"(let-values()(syntax-e$1 id_44))"
 " #t))))"
-"(hash-set table_143 key_54 val_47)))))"
-"(values table_144)))))"
-"(if(not #f)(for-loop_178 table_142 rest_75) table_142)))"
-" table_141)))))"
-" for-loop_178)"
+"(hash-set table_139 key_54 val_46)))))"
+"(values table_140)))))"
+"(if(not #f)(for-loop_176 table_138 rest_76) table_138)))"
+" table_137)))))"
+" for-loop_176)"
 " '#hash()"
 " lst_147))))))"
 "(define-values"
@@ -25244,84 +24892,62 @@ static const char *startup_source =
 "(begin"
 " 'perform-initial-require!42"
 "(let-values(((mod-path_7) mod-path37_0))"
-"(let-values(((self_12) self38_0))"
+"(let-values(((self_11) self38_0))"
 "(let-values(((in-stx_0) in-stx39_0))"
 "(let-values(((m-ns_9) m-ns40_0))"
 "(let-values(((requires+provides_2) requires+provides41_0))"
 "(let-values(((bind?_0) bind?33_0))"
-"(let-values(((who_15) who34_0))"
+"(let-values(((who_14) who34_0))"
 "(let-values()"
-"(let-values(((temp222_0)"
-"(let-values(((mod-path234_0) mod-path_7)((self235_0) self_12))"
-"(module-path->mpi5.1 #f #f mod-path234_0 self235_0)))"
-"((temp223_1) #f)"
-"((self224_0) self_12)"
-"((in-stx225_0) in-stx_0)"
-"((m-ns226_0) m-ns_9)"
-"((temp227_1) 0)"
-"((temp228_1) 0)"
-"((requires+provides229_0) requires+provides_2)"
-"((temp230_0) #t)"
-"((temp231_1) #t)"
-"((bind?232_0) bind?_0)"
-"((who233_0) who_15))"
+"(let-values(((temp221_1)"
+"(let-values(((mod-path233_0) mod-path_7)((self234_0) self_11))"
+"(module-path->mpi5.1 unsafe-undefined mod-path233_0 self234_0)))"
+"((temp222_0) #f)"
+"((self223_0) self_11)"
+"((in-stx224_0) in-stx_0)"
+"((m-ns225_0) m-ns_9)"
+"((temp226_1) 0)"
+"((temp227_0) 0)"
+"((requires+provides228_0) requires+provides_2)"
+"((temp229_1) #t)"
+"((temp230_1) #t)"
+"((bind?231_0) bind?_0)"
+"((who232_0) who_14))"
 "(perform-require!78.1"
 " #f"
+" bind?231_0"
+" temp229_1"
+" #f"
+" #f"
+" temp230_1"
+" 'all"
+" temp226_1"
+" requires+provides228_0"
+" temp227_0"
+" #f"
 " #f"
-" bind?232_0"
 " #t"
-" temp230_0"
-" #t"
-" #f"
-" #f"
-" #f"
-" #f"
-" temp231_1"
-" #t"
-" #f"
-" #f"
-" temp227_1"
-" requires+provides229_0"
-" #t"
-" temp228_1"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" who233_0"
+" who232_0"
+" temp221_1"
 " temp222_0"
-" temp223_1"
-" self224_0"
-" in-stx225_0"
-" m-ns226_0)))))))))))))"
+" self223_0"
+" in-stx224_0"
+" m-ns225_0)))))))))))))"
 "(define-values"
 "(perform-require!78.1)"
 "(lambda(adjust48_0"
-" adjust62_0"
 " bind?57_0"
-" bind?71_0"
 " can-be-shadowed?52_0"
-" can-be-shadowed?66_0"
 " copy-variable-as-constant?55_0"
-" copy-variable-as-constant?69_0"
 " copy-variable-phase-level54_0"
-" copy-variable-phase-level68_0"
 " initial-require?53_0"
-" initial-require?67_0"
 " just-meta47_0"
-" just-meta61_0"
 " phase-shift45_0"
 " requires+provides49_0"
-" requires+provides63_0"
 " run-phase46_0"
 " run?51_0"
-" run?65_0"
 " skip-variable-phase-level56_0"
-" skip-variable-phase-level70_0"
 " visit?50_0"
-" visit?64_0"
 " who58_0"
 " mpi73_0"
 " orig-s74_0"
@@ -25330,35 +24956,28 @@ static const char *startup_source =
 " m-ns77_0)"
 "(begin"
 " 'perform-require!78"
-"(let-values(((mpi_39) mpi73_0))"
+"(let-values(((mpi_37) mpi73_0))"
 "(let-values(((orig-s_14) orig-s74_0))"
 "(let-values()"
 "(let-values(((in-stx_1) in-stx76_0))"
 "(let-values(((m-ns_10) m-ns77_0))"
-"(let-values(((phase-shift_11) phase-shift45_0))"
+"(let-values(((phase-shift_10) phase-shift45_0))"
 "(let-values(((run-phase_6) run-phase46_0))"
-"(let-values(((just-meta_1)(if just-meta61_0 just-meta47_0 'all)))"
-"(let-values(((adjust_1)(if adjust62_0 adjust48_0 #f)))"
-"(let-values(((requires+provides_3)(if requires+provides63_0 requires+provides49_0 #f)))"
-"(let-values(((visit?_2)(if visit?64_0 visit?50_0 #t)))"
-"(let-values(((run?_2)(if run?65_0 run?51_0 #f)))"
-"(let-values(((can-be-shadowed?_3)(if can-be-shadowed?66_0 can-be-shadowed?52_0 #f)))"
-"(let-values(((initial-require?_1)(if initial-require?67_0 initial-require?53_0 #f)))"
-"(let-values(((copy-variable-phase-level_1)"
-"(if copy-variable-phase-level68_0 copy-variable-phase-level54_0 #f)))"
-"(let-values(((copy-variable-as-constant?_1)"
-"(if copy-variable-as-constant?69_0"
-" copy-variable-as-constant?55_0"
-" #f)))"
-"(let-values(((skip-variable-phase-level_1)"
-"(if skip-variable-phase-level70_0"
-" skip-variable-phase-level56_0"
-" #f)))"
-"(let-values(((bind?_1)(if bind?71_0 bind?57_0 #t)))"
-"(let-values(((who_16) who58_0))"
+"(let-values(((just-meta_1) just-meta47_0))"
+"(let-values(((adjust_1) adjust48_0))"
+"(let-values(((requires+provides_3) requires+provides49_0))"
+"(let-values(((visit?_2) visit?50_0))"
+"(let-values(((run?_2) run?51_0))"
+"(let-values(((can-be-shadowed?_3) can-be-shadowed?52_0))"
+"(let-values(((initial-require?_1) initial-require?53_0))"
+"(let-values(((copy-variable-phase-level_1) copy-variable-phase-level54_0))"
+"(let-values(((copy-variable-as-constant?_1) copy-variable-as-constant?55_0))"
+"(let-values(((skip-variable-phase-level_1) skip-variable-phase-level56_0))"
+"(let-values(((bind?_1) bind?57_0))"
+"(let-values(((who_15) who58_0))"
 "(let-values()"
 "(let-values()"
-"(let-values(((module-name_0)(1/module-path-index-resolve mpi_39 #t)))"
+"(let-values(((module-name_0)(1/module-path-index-resolve mpi_37 #t)))"
 "(let-values(((bind-in-stx_0)"
 "(if(adjust-rename? adjust_1)"
 "(adjust-rename-to-id adjust_1)"
@@ -25378,88 +24997,82 @@ static const char *startup_source =
 "(if requires+provides_3"
 "(add-required-module!"
 " requires+provides_3"
-" mpi_39"
-" phase-shift_11"
+" mpi_37"
+" phase-shift_10"
 "(module-cross-phase-persistent? m_13))"
-" mpi_39)))"
+" mpi_37)))"
 "(let-values((()"
 "(begin"
 "(if visit?_2"
 "(let-values()"
-"(let-values(((m-ns252_0) m-ns_10)"
-"((interned-mpi253_0)"
+"(let-values(((m-ns251_0) m-ns_10)"
+"((interned-mpi252_0)"
 " interned-mpi_0)"
-"((phase-shift254_0)"
-" phase-shift_11)"
-"((run-phase255_0)"
+"((phase-shift253_0)"
+" phase-shift_10)"
+"((run-phase254_0)"
 " run-phase_6))"
 "(namespace-module-visit!104.1"
-" run-phase255_0"
-" #t"
-" m-ns252_0"
-" interned-mpi253_0"
-" phase-shift254_0)))"
+" run-phase254_0"
+" m-ns251_0"
+" interned-mpi252_0"
+" phase-shift253_0)))"
 "(void))"
 "(values))))"
 "(let-values((()"
 "(begin"
 "(if run?_2"
 "(let-values()"
-"(let-values(((m-ns256_0) m-ns_10)"
-"((interned-mpi257_0)"
+"(let-values(((m-ns255_0) m-ns_10)"
+"((interned-mpi256_0)"
 " interned-mpi_0)"
-"((phase-shift258_0)"
-" phase-shift_11)"
-"((run-phase259_0)"
+"((phase-shift257_0)"
+" phase-shift_10)"
+"((run-phase258_0)"
 " run-phase_6))"
 "(namespace-module-instantiate!96.1"
-" #f"
-" #f"
-" run-phase259_0"
 " #t"
+" run-phase258_0"
+" unsafe-undefined"
 " #f"
-" #f"
-" #f"
-" #f"
-" m-ns256_0"
-" interned-mpi257_0"
-" phase-shift258_0)))"
+" m-ns255_0"
+" interned-mpi256_0"
+" phase-shift257_0)))"
 "(void))"
 "(values))))"
 "(let-values((()"
 "(begin"
 "(if(not"
-"(let-values(((or-part_195)"
+"(let-values(((or-part_197)"
 " visit?_2))"
-"(if or-part_195"
-" or-part_195"
+"(if or-part_197"
+" or-part_197"
 " run?_2)))"
 "(let-values()"
-"(let-values(((m-ns260_0) m-ns_10)"
-"((interned-mpi261_0)"
+"(let-values(((m-ns259_0) m-ns_10)"
+"((interned-mpi260_0)"
 " interned-mpi_0)"
-"((phase-shift262_0)"
-" phase-shift_11)"
-"((run-phase263_0)"
+"((phase-shift261_0)"
+" phase-shift_10)"
+"((run-phase262_0)"
 " run-phase_6))"
 "(namespace-module-make-available!112.1"
-" run-phase263_0"
-" #t"
-" m-ns260_0"
-" interned-mpi261_0"
-" phase-shift262_0)))"
+" run-phase262_0"
+" m-ns259_0"
+" interned-mpi260_0"
+" phase-shift261_0)))"
 "(void))"
 "(values))))"
 "(let-values(((can-bulk-bind?_0)"
-"(if(let-values(((or-part_196)"
+"(if(let-values(((or-part_198)"
 "(not adjust_1)))"
-"(if or-part_196"
-" or-part_196"
-"(let-values(((or-part_197)"
+"(if or-part_198"
+" or-part_198"
+"(let-values(((or-part_199)"
 "(adjust-prefix?"
 " adjust_1)))"
-"(if or-part_197"
-" or-part_197"
+"(if or-part_199"
+" or-part_199"
 "(adjust-all-except?"
 " adjust_1)))))"
 "(not skip-variable-phase-level_1)"
@@ -25485,25 +25098,25 @@ static const char *startup_source =
 " #f)))"
 "(let-values((()"
 "(begin"
-"(let-values(((m236_0) m_13)"
-"((bind-in-stx237_0)"
+"(let-values(((m235_0) m_13)"
+"((bind-in-stx236_0)"
 " bind-in-stx_0)"
-"((phase-shift238_0)"
-" phase-shift_11)"
-"((m-ns239_0)"
+"((phase-shift237_0)"
+" phase-shift_10)"
+"((m-ns238_0)"
 " m-ns_10)"
-"((interned-mpi240_0)"
+"((interned-mpi239_0)"
 " interned-mpi_0)"
-"((module-name241_0)"
+"((module-name240_0)"
 " module-name_0)"
-"((orig-s242_0)"
+"((orig-s241_0)"
 " orig-s_14)"
-"((temp243_0)"
+"((temp242_0)"
 "(if requires+provides_3"
 "(requires+provides-self"
 " requires+provides_3)"
 " #f))"
-"((temp244_0)"
+"((temp243_0)"
 "(if(adjust-only?"
 " adjust_1)"
 "(let-values()"
@@ -25518,89 +25131,89 @@ static const char *startup_source =
 " adjust_1)))"
 "(let-values()"
 " #f))))"
-"((just-meta245_0)"
+"((just-meta244_0)"
 " just-meta_1)"
-"((bind?246_0)"
+"((bind?245_0)"
 " bind?_1)"
-"((can-bulk-bind?247_0)"
+"((can-bulk-bind?246_0)"
 " can-bulk-bind?_0)"
-"((bulk-prefix248_0)"
+"((bulk-prefix247_0)"
 " bulk-prefix_1)"
-"((bulk-excepts249_0)"
+"((bulk-excepts248_0)"
 " bulk-excepts_1)"
-"((temp250_0)"
+"((temp249_0)"
 "(if requires+provides_3"
 "(if can-bulk-bind?_0"
 "(lambda(provides_6"
 " provide-phase-level_4)"
 "(begin"
-" 'temp250"
-"(let-values(((requires+provides264_0)"
+" 'temp249"
+"(let-values(((requires+provides263_0)"
 " requires+provides_3)"
-"((bind-in-stx265_0)"
+"((bind-in-stx264_0)"
 " bind-in-stx_0)"
-"((temp266_0)"
+"((temp265_0)"
 "(module-self"
 " m_13))"
-"((mpi267_0)"
-" mpi_39)"
-"((phase-shift268_0)"
-" phase-shift_11)"
-"((provides269_0)"
+"((mpi266_0)"
+" mpi_37)"
+"((phase-shift267_0)"
+" phase-shift_10)"
+"((provides268_0)"
 " provides_6)"
-"((provide-phase-level270_0)"
+"((provide-phase-level269_0)"
 " provide-phase-level_4)"
-"((bulk-prefix271_0)"
+"((bulk-prefix270_0)"
 " bulk-prefix_1)"
-"((bulk-excepts272_0)"
+"((bulk-excepts271_0)"
 " bulk-excepts_1)"
-"((temp273_0)"
+"((temp272_0)"
 "(if(positive?"
 "(hash-count"
 " bulk-excepts_1))"
 " done-syms_0"
 " #f))"
-"((can-be-shadowed?274_0)"
+"((can-be-shadowed?273_0)"
 " can-be-shadowed?_3)"
-"((temp275_0)"
+"((temp274_0)"
 "(not"
 " initial-require?_1))"
-"((orig-s276_0)"
+"((orig-s275_0)"
 " orig-s_14)"
-"((update-nominals-box277_0)"
+"((update-nominals-box276_0)"
 " update-nominals-box_0)"
-"((who278_0)"
-" who_16))"
+"((who277_0)"
+" who_15))"
 "(add-bulk-required-ids!59.1"
-" update-nominals-box277_0"
-" can-be-shadowed?274_0"
-" temp275_0"
-" bulk-excepts272_0"
-" orig-s276_0"
-" bulk-prefix271_0"
-" temp273_0"
-" who278_0"
-" requires+provides264_0"
-" bind-in-stx265_0"
-" temp266_0"
-" mpi267_0"
-" phase-shift268_0"
-" provides269_0"
-" provide-phase-level270_0))))"
+" update-nominals-box276_0"
+" can-be-shadowed?273_0"
+" temp274_0"
+" bulk-excepts271_0"
+" orig-s275_0"
+" bulk-prefix270_0"
+" temp272_0"
+" who277_0"
+" requires+provides263_0"
+" bind-in-stx264_0"
+" temp265_0"
+" mpi266_0"
+" phase-shift267_0"
+" provides268_0"
+" provide-phase-level269_0))))"
 " #f)"
 " #f))"
-"((temp251_0)"
-"(if(let-values(((or-part_198)"
+"((temp250_0)"
+"(if(let-values(((or-part_200)"
 "(not"
 " can-bulk-bind?_0)))"
-"(if or-part_198"
-" or-part_198"
+"(if or-part_200"
+" or-part_200"
 " copy-variable-phase-level_1))"
 "(lambda(binding_16"
 " as-transformer?_4)"
 "(begin"
-" 'temp251"
-"(let-values(((sym_45)"
+" 'temp250"
+"(let-values(((sym_47)"
 "(module-binding-nominal-sym"
 " binding_16)))"
 "(let-values(((provide-phase_0)"
@@ -25609,7 +25222,7 @@ static const char *startup_source =
 "(let-values(((adjusted-sym_0)"
 "(if(not"
 "(symbol-interned?"
-" sym_45))"
+" sym_47))"
 "(let-values()"
 " #f)"
 "(if(if skip-variable-phase-level_1"
@@ -25625,19 +25238,19 @@ static const char *startup_source =
 "(if(not"
 " adjust_1)"
 "(let-values()"
-" sym_45)"
+" sym_47)"
 "(if(adjust-only?"
 " adjust_1)"
 "(let-values()"
 "(if(set-member?"
 "(adjust-only-syms"
 " adjust_1)"
-" sym_45)"
+" sym_47)"
 "(if(hash-set!"
 " done-syms_0"
-" sym_45"
+" sym_47"
 " #t)"
-" sym_45"
+" sym_47"
 " #f)"
 " #f))"
 "(if(adjust-prefix?"
@@ -25648,7 +25261,7 @@ static const char *startup_source =
 "                                                                                                                                              \"~a~a\""
 "(adjust-prefix-sym"
 " adjust_1)"
-" sym_45)))"
+" sym_47)))"
 "(if(adjust-all-except?"
 " adjust_1)"
 "(let-values()"
@@ -25656,10 +25269,10 @@ static const char *startup_source =
 "(if(set-member?"
 "(adjust-all-except-syms"
 " adjust_1)"
-" sym_45)"
+" sym_47)"
 "(hash-set!"
 " done-syms_0"
-" sym_45"
+" sym_47"
 " #t)"
 " #f))"
 "(string->symbol"
@@ -25667,18 +25280,18 @@ static const char *startup_source =
 "                                                                                                                                                  \"~a~a\""
 "(adjust-all-except-prefix-sym"
 " adjust_1)"
-" sym_45))"
+" sym_47))"
 " #f))"
 "(if(adjust-rename?"
 " adjust_1)"
 "(let-values()"
 "(if(eq?"
-" sym_45"
+" sym_47"
 "(adjust-rename-from-sym"
 " adjust_1))"
 "(if(hash-set!"
 " done-syms_0"
-" sym_45"
+" sym_47"
 " #t)"
 "(adjust-rename-to-id"
 " adjust_1)"
@@ -25690,77 +25303,71 @@ static const char *startup_source =
 " requires+provides_3"
 " #f)"
 "(let-values()"
-"(let-values(((s_277)"
+"(let-values(((s_272)"
 "(datum->syntax$1"
 " bind-in-stx_0"
 " adjusted-sym_0)))"
 "(let-values(((bind-phase_0)"
 "(phase+"
-" phase-shift_11"
+" phase-shift_10"
 " provide-phase_0)))"
 "(let-values(((skip-bind?_1)"
 "(if initial-require?_1"
 "(let-values()"
 " #f)"
 "(let-values()"
-"(let-values(((temp279_0)"
+"(let-values(((temp278_0)"
 " #t)"
-"((temp280_0)"
+"((temp279_0)"
 " #t)"
-"((requires+provides281_0)"
+"((requires+provides280_0)"
 " requires+provides_3)"
-"((s282_0)"
-" s_277)"
-"((bind-phase283_0)"
+"((s281_0)"
+" s_272)"
+"((bind-phase282_0)"
 " bind-phase_0)"
-"((binding284_0)"
+"((binding283_0)"
 " binding_16)"
-"((orig-s285_0)"
+"((orig-s284_0)"
 " orig-s_14)"
-"((temp286_0)"
+"((temp285_0)"
 " #t)"
-"((who287_0)"
-" who_16))"
+"((who286_0)"
+" who_15))"
 "(check-not-defined95.1"
 " #f"
-" #f"
-" temp280_0"
-" #t"
 " temp279_0"
-" #t"
-" orig-s285_0"
-" temp286_0"
-" #t"
-" binding284_0"
-" #t"
-" who287_0"
-" requires+provides281_0"
-" s282_0"
-" bind-phase283_0))))))"
+" temp278_0"
+" orig-s284_0"
+" temp285_0"
+" binding283_0"
+" who286_0"
+" requires+provides280_0"
+" s281_0"
+" bind-phase282_0))))))"
 "(begin"
 "(if skip-bind?_1"
 "(void)"
 "(let-values()"
-"(let-values(((requires+provides288_0)"
+"(let-values(((requires+provides287_0)"
 " requires+provides_3)"
-"((s289_0)"
-" s_277)"
-"((bind-phase290_0)"
+"((s288_0)"
+" s_272)"
+"((bind-phase289_0)"
 " bind-phase_0)"
-"((binding291_0)"
+"((binding290_0)"
 " binding_16)"
-"((can-be-shadowed?292_0)"
+"((can-be-shadowed?291_0)"
 " can-be-shadowed?_3)"
-"((as-transformer?293_0)"
+"((as-transformer?292_0)"
 " as-transformer?_4))"
 "(add-defined-or-required-id!19.1"
-" as-transformer?293_0"
-" can-be-shadowed?292_0"
-" #t"
-" requires+provides288_0"
-" s289_0"
-" bind-phase290_0"
-" binding291_0))))"
+" as-transformer?292_0"
+" can-be-shadowed?291_0"
+" requires+provides287_0"
+" s288_0"
+" bind-phase289_0"
+" binding290_0))))"
 " skip-bind?_1)))))"
 "(let-values()"
 " #f))))"
@@ -25776,10 +25383,10 @@ static const char *startup_source =
 "(let-values()"
 "(copy-namespace-value"
 " m-ns_10"
-" sym_45"
+" sym_47"
 " binding_16"
 " copy-variable-phase-level_1"
-" phase-shift_11"
+" phase-shift_10"
 " copy-variable-as-constant?_1))"
 "(void))"
 "(if(not"
@@ -25788,22 +25395,22 @@ static const char *startup_source =
 " #f))))))))"
 " #f)))"
 "(bind-all-provides!107.1"
-" bind?246_0"
+" bind?245_0"
+" temp249_0"
+" bulk-excepts248_0"
+" bulk-prefix247_0"
+" can-bulk-bind?246_0"
+" temp242_0"
 " temp250_0"
-" bulk-excepts249_0"
-" bulk-prefix248_0"
-" can-bulk-bind?247_0"
+" orig-s241_0"
+" just-meta244_0"
 " temp243_0"
-" temp251_0"
-" orig-s242_0"
-" just-meta245_0"
-" temp244_0"
-" m236_0"
-" bind-in-stx237_0"
-" phase-shift238_0"
-" m-ns239_0"
-" interned-mpi240_0"
-" module-name241_0))"
+" m235_0"
+" bind-in-stx236_0"
+" phase-shift237_0"
+" m-ns238_0"
+" interned-mpi239_0"
+" module-name240_0))"
 "(values))))"
 "(let-values((()"
 "(begin"
@@ -25820,7 +25427,7 @@ static const char *startup_source =
 "(let-values()"
 "(check-list"
 " lst_149)))"
-"((letrec-values(((for-loop_179)"
+"((letrec-values(((for-loop_177)"
 "(lambda(lst_150)"
 "(begin"
 " 'for-loop"
@@ -25829,7 +25436,7 @@ static const char *startup_source =
 "(let-values(((update!_1)"
 "(unsafe-car"
 " lst_150))"
-"((rest_76)"
+"((rest_77)"
 "(unsafe-cdr"
 " lst_150)))"
 "(let-values((()"
@@ -25843,11 +25450,11 @@ static const char *startup_source =
 "(values)))))"
 "(if(not"
 " #f)"
-"(for-loop_179"
-" rest_76)"
+"(for-loop_177"
+" rest_77)"
 "(values))))"
 "(values))))))"
-" for-loop_179)"
+" for-loop_177)"
 " lst_149)))"
 "(void)))"
 "(void))"
@@ -25878,7 +25485,7 @@ static const char *startup_source =
 " #f)"
 "(let-values()"
 "(begin"
-"(let-values(((ht_105)"
+"(let-values(((ht_101)"
 " need-syms_0))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
@@ -25886,15 +25493,15 @@ static const char *startup_source =
 "(void)"
 "(let-values()"
 "(check-in-immutable-hash-keys"
-" ht_105)))"
-"((letrec-values(((for-loop_180)"
+" ht_101)))"
+"((letrec-values(((for-loop_178)"
 "(lambda(i_136)"
 "(begin"
 " 'for-loop"
 "(if i_136"
-"(let-values(((sym_46)"
+"(let-values(((sym_48)"
 "(unsafe-immutable-hash-iterate-key"
-" ht_105"
+" ht_101"
 " i_136)))"
 "(let-values((()"
 "(let-values()"
@@ -25904,28 +25511,28 @@ static const char *startup_source =
 "(let-values()"
 "(if(hash-ref"
 " done-syms_0"
-" sym_46"
+" sym_48"
 " #f)"
 "(void)"
 "(let-values()"
 "(raise-syntax-error$1"
-" who_16"
+" who_15"
 "                                                                                                                                                             \"not in nested spec\""
 " orig-s_14"
-" sym_46))))"
+" sym_48))))"
 "(values)))))"
 "(values)))))"
 "(if(not"
 " #f)"
-"(for-loop_180"
+"(for-loop_178"
 "(unsafe-immutable-hash-iterate-next"
-" ht_105"
+" ht_101"
 " i_136))"
 "(values))))"
 "(values))))))"
-" for-loop_180)"
+" for-loop_178)"
 "(unsafe-immutable-hash-iterate-first"
-" ht_105))))"
+" ht_101))))"
 "(void)))"
 "(void))))))))))))))))))))))))))))))))))))))))))"
 "(define-values"
@@ -25950,9 +25557,9 @@ static const char *startup_source =
 " 'bind-all-provides!107"
 "(let-values(((m_14) m101_0))"
 "(let-values(((in-stx_2) in-stx102_0))"
-"(let-values(((phase-shift_12) phase-shift103_0))"
+"(let-values(((phase-shift_11) phase-shift103_0))"
 "(let-values(((ns_50) ns104_0))"
-"(let-values(((mpi_40) mpi105_0))"
+"(let-values(((mpi_38) mpi105_0))"
 "(let-values(((module-name_1) module-name106_0))"
 "(let-values(((orig-s_15) in81_0))"
 "(let-values(((defines-mpi_0) defines-mpi82_0))"
@@ -25965,30 +25572,30 @@ static const char *startup_source =
 "(let-values(((filter_0) filter89_0))"
 "(let-values(((bulk-callback_0) bulk-callback90_0))"
 "(let-values()"
-"(let-values(((self_13)(module-self m_14)))"
+"(let-values(((self_12)(module-self m_14)))"
 "(begin"
-"(let-values(((ht_106)(module-provides m_14)))"
+"(let-values(((ht_102)(module-provides m_14)))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
-"(let-values()(check-in-hash ht_106)))"
-"((letrec-values(((for-loop_181)"
+"(let-values()(check-in-hash ht_102)))"
+"((letrec-values(((for-loop_179)"
 "(lambda(i_137)"
 "(begin"
 " 'for-loop"
 "(if i_137"
 "(let-values(((provide-phase-level_5 provides_7)"
 "(hash-iterate-key+value"
-" ht_106"
+" ht_102"
 " i_137)))"
 "(let-values((()"
 "(let-values()"
-"(if(let-values(((or-part_199)"
+"(if(let-values(((or-part_201)"
 "(eq?"
 " just-meta_2"
 " 'all)))"
-"(if or-part_199"
-" or-part_199"
+"(if or-part_201"
+" or-part_201"
 "(eqv?"
 " just-meta_2"
 " provide-phase-level_5)))"
@@ -25997,9 +25604,9 @@ static const char *startup_source =
 "(let-values()"
 "(begin"
 "(let-values()"
-"(let-values(((phase_70)"
+"(let-values(((phase_67)"
 "(phase+"
-" phase-shift_12"
+" phase-shift_11"
 " provide-phase-level_5)))"
 "(let-values(((need-except?_0)"
 "(if bulk-callback_0"
@@ -26014,10 +25621,10 @@ static const char *startup_source =
 "(let-values()"
 "(begin"
 "(let-values(((lst_151)"
-"(let-values(((or-part_200)"
+"(let-values(((or-part_202)"
 " only-syms_0))"
-"(if or-part_200"
-" or-part_200"
+"(if or-part_202"
+" or-part_202"
 "(hash-keys"
 " provides_7)))))"
 "(begin"
@@ -26027,16 +25634,16 @@ static const char *startup_source =
 "(let-values()"
 "(check-list"
 " lst_151)))"
-"((letrec-values(((for-loop_182)"
+"((letrec-values(((for-loop_180)"
 "(lambda(lst_152)"
 "(begin"
 " 'for-loop"
 "(if(pair?"
 " lst_152)"
-"(let-values(((sym_47)"
+"(let-values(((sym_49)"
 "(unsafe-car"
 " lst_152))"
-"((rest_77)"
+"((rest_78)"
 "(unsafe-cdr"
 " lst_152)))"
 "(let-values((()"
@@ -26048,67 +25655,65 @@ static const char *startup_source =
 "(let-values(((binding/p_4)"
 "(hash-ref"
 " provides_7"
-" sym_47"
+" sym_49"
 " #f)))"
 "(if binding/p_4"
 "(let-values()"
-"(let-values(((b_70)"
-"(let-values(((binding/p294_0)"
+"(let-values(((b_69)"
+"(let-values(((binding/p293_0)"
 " binding/p_4)"
-"((sym295_0)"
-" sym_47)"
-"((self296_0)"
-" self_13)"
-"((mpi297_0)"
-" mpi_40)"
-"((provide-phase-level298_0)"
+"((sym294_0)"
+" sym_49)"
+"((self295_0)"
+" self_12)"
+"((mpi296_0)"
+" mpi_38)"
+"((provide-phase-level297_0)"
 " provide-phase-level_5)"
-"((phase-shift299_0)"
-" phase-shift_12))"
+"((phase-shift298_0)"
+" phase-shift_11))"
 "(provide-binding-to-require-binding11.1"
-" mpi297_0"
-" phase-shift299_0"
-" provide-phase-level298_0"
-" self296_0"
-" binding/p294_0"
-" sym295_0))))"
-"(let-values(((sym_48)"
+" mpi296_0"
+" phase-shift298_0"
+" provide-phase-level297_0"
+" self295_0"
+" binding/p293_0"
+" sym294_0))))"
+"(let-values(((sym_50)"
 "(filter_0"
-" b_70"
+" b_69"
 "(provided-as-transformer?"
 " binding/p_4))))"
-"(if(if sym_48"
+"(if(if sym_50"
 "(not"
 " can-bulk?_0)"
 " #f)"
 "(let-values()"
-"(let-values(((temp300_0)"
+"(let-values(((temp299_0)"
 "(datum->syntax$1"
 " in-stx_2"
-" sym_48))"
-"((b301_0)"
-" b_70)"
-"((phase302_0)"
-" phase_70))"
+" sym_50))"
+"((b300_0)"
+" b_69)"
+"((phase301_0)"
+" phase_67))"
 "(add-binding!17.1"
 " #f"
 " #f"
-" #f"
-" #f"
-" temp300_0"
-" b301_0"
-" phase302_0)))"
+" temp299_0"
+" b300_0"
+" phase301_0)))"
 "(void)))))"
 "(void))))"
 "(values)))))"
 "(values)))))"
 "(if(not"
 " #f)"
-"(for-loop_182"
-" rest_77)"
+"(for-loop_180"
+" rest_78)"
 "(values))))"
 "(values))))))"
-" for-loop_182)"
+" for-loop_180)"
 " lst_151)))"
 "(void)))"
 "(void))"
@@ -26117,11 +25722,11 @@ static const char *startup_source =
 "(let-values(((bulk-binding-registry_10)"
 "(namespace-bulk-binding-registry"
 " ns_50)))"
-"(let-values(((in-stx303_0)"
+"(let-values(((in-stx302_0)"
 " in-stx_2)"
-"((temp304_0)"
+"((temp303_0)"
 "(bulk-binding14.1"
-"(let-values(((or-part_201)"
+"(let-values(((or-part_203)"
 "(if(not"
 " bulk-prefix_2)"
 "(if(zero?"
@@ -26130,8 +25735,8 @@ static const char *startup_source =
 " provides_7"
 " #f)"
 " #f)))"
-"(if or-part_201"
-" or-part_201"
+"(if or-part_203"
+" or-part_203"
 "(if(not"
 "(registered-bulk-provide?"
 " bulk-binding-registry_10"
@@ -26143,39 +25748,37 @@ static const char *startup_source =
 " #f)))"
 " bulk-prefix_2"
 " bulk-excepts_2"
-" self_13"
-" mpi_40"
+" self_12"
+" mpi_38"
 " provide-phase-level_5"
-" phase-shift_12"
+" phase-shift_11"
 " bulk-binding-registry_10))"
-"((phase305_0)"
-" phase_70)"
-"((orig-s306_0)"
+"((phase304_0)"
+" phase_67)"
+"((orig-s305_0)"
 " orig-s_15)"
-"((temp307_0)"
+"((temp306_0)"
 "(if need-except?_0"
 " defines-mpi_0"
 " #f)))"
 "(add-bulk-binding!27.1"
-" orig-s306_0"
-" #t"
-" temp307_0"
-" #t"
-" in-stx303_0"
-" temp304_0"
-" phase305_0))))"
+" orig-s305_0"
+" temp306_0"
+" in-stx302_0"
+" temp303_0"
+" phase304_0))))"
 "(void))))"
 "(void)))))"
 "(values)))))"
 "(values)))"
 "(values)))))"
 "(if(not #f)"
-"(for-loop_181"
-"(hash-iterate-next ht_106 i_137))"
+"(for-loop_179"
+"(hash-iterate-next ht_102 i_137))"
 "(values))))"
 "(values))))))"
-" for-loop_181)"
-"(hash-iterate-first ht_106))))"
+" for-loop_179)"
+"(hash-iterate-first ht_102))))"
 "(void)))))))))))))))))))))))"
 "(define-values"
 "(require-spec-shift-for-syntax)"
@@ -26183,7 +25786,7 @@ static const char *startup_source =
 "(begin"
 "(let-values(((rebuild-req_0)"
 "(lambda(req_2 new-req_0)(begin 'rebuild-req(datum->syntax$1 req_2 new-req_0 req_2 req_2)))))"
-"(letrec-values(((loop_88)"
+"(letrec-values(((loop_86)"
 "(lambda(shifted?_0)"
 "(begin"
 " 'loop"
@@ -26197,47 +25800,47 @@ static const char *startup_source =
 "(let-values(((tmp_25) fm_1))"
 "(if(equal? tmp_25 'for-meta)"
 "(let-values()"
-"(let-values(((ok?_12 for-meta308_0 phase-level309_0 spec310_0)"
-"(let-values(((s_278) req_3))"
-"(let-values(((orig-s_16) s_278))"
-"(let-values(((for-meta308_1 phase-level309_1 spec310_1)"
-"(let-values(((s_279)"
-"(if(syntax?$1 s_278)"
-"(syntax-e$1 s_278)"
-" s_278)))"
-"(if(pair? s_279)"
-"(let-values(((for-meta311_0)"
-"(let-values(((s_280)"
-"(car s_279)))"
-" s_280))"
-"((phase-level312_0 spec313_0)"
-"(let-values(((s_281)"
-"(cdr s_279)))"
-"(let-values(((s_282)"
+"(let-values(((ok?_12 for-meta307_0 phase-level308_0 spec309_0)"
+"(let-values(((s_273) req_3))"
+"(let-values(((orig-s_16) s_273))"
+"(let-values(((for-meta307_1 phase-level308_1 spec309_1)"
+"(let-values(((s_274)"
+"(if(syntax?$1 s_273)"
+"(syntax-e$1 s_273)"
+" s_273)))"
+"(if(pair? s_274)"
+"(let-values(((for-meta310_0)"
+"(let-values(((s_275)"
+"(car s_274)))"
+" s_275))"
+"((phase-level311_0 spec312_0)"
+"(let-values(((s_276)"
+"(cdr s_274)))"
+"(let-values(((s_277)"
 "(if(syntax?$1"
-" s_281)"
+" s_276)"
 "(syntax-e$1"
-" s_281)"
-" s_281)))"
-"(if(pair? s_282)"
-"(let-values(((phase-level314_0)"
-"(let-values(((s_283)"
+" s_276)"
+" s_276)))"
+"(if(pair? s_277)"
+"(let-values(((phase-level313_0)"
+"(let-values(((s_278)"
 "(car"
-" s_282)))"
-" s_283))"
-"((spec315_0)"
-"(let-values(((s_284)"
+" s_277)))"
+" s_278))"
+"((spec314_0)"
+"(let-values(((s_279)"
 "(cdr"
-" s_282)))"
-"(let-values(((s_285)"
+" s_277)))"
+"(let-values(((s_280)"
 "(if(syntax?$1"
-" s_284)"
+" s_279)"
 "(syntax-e$1"
-" s_284)"
-" s_284)))"
+" s_279)"
+" s_279)))"
 "(let-values(((flat-s_8)"
 "(to-syntax-list.1"
-" s_285)))"
+" s_280)))"
 "(if(not"
 " flat-s_8)"
 "(let-values()"
@@ -26248,56 +25851,56 @@ static const char *startup_source =
 "(let-values()"
 " flat-s_8)))))))"
 "(values"
-" phase-level314_0"
-" spec315_0))"
+" phase-level313_0"
+" spec314_0))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                \"bad syntax\""
 " orig-s_16))))))"
 "(values"
-" for-meta311_0"
-" phase-level312_0"
-" spec313_0))"
+" for-meta310_0"
+" phase-level311_0"
+" spec312_0))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                            \"bad syntax\""
 " orig-s_16)))))"
-"(values #t for-meta308_1 phase-level309_1 spec310_1))))))"
-"(let-values(((p_35)(syntax-e$1 phase-level309_0)))"
+"(values #t for-meta307_1 phase-level308_1 spec309_1))))))"
+"(let-values(((p_35)(syntax-e$1 phase-level308_0)))"
 "(begin"
 "(if(phase? p_35)"
 "(void)"
 "                                               (let-values () (raise-syntax-error$1 #f \"bad phase\" req_3)))"
 "(rebuild-req_0"
 " req_3"
-"(list* for-meta308_0(phase+ p_35 1)(map2(loop_88 #t) spec310_0)))))))"
+"(list* for-meta307_0(phase+ p_35 1)(map2(loop_86 #t) spec309_0)))))))"
 "(if(equal? tmp_25 'for-syntax)"
 "(let-values()"
-"(let-values(((ok?_13 for-syntax316_0 spec317_0)"
-"(let-values(((s_286) req_3))"
-"(let-values(((orig-s_17) s_286))"
-"(let-values(((for-syntax316_1 spec317_1)"
-"(let-values(((s_287)"
-"(if(syntax?$1 s_286)"
-"(syntax-e$1 s_286)"
-" s_286)))"
-"(if(pair? s_287)"
-"(let-values(((for-syntax318_0)"
-"(let-values(((s_288)"
-"(car s_287)))"
-" s_288))"
-"((spec319_0)"
-"(let-values(((s_289)"
-"(cdr s_287)))"
-"(let-values(((s_290)"
+"(let-values(((ok?_13 for-syntax315_0 spec316_0)"
+"(let-values(((s_281) req_3))"
+"(let-values(((orig-s_17) s_281))"
+"(let-values(((for-syntax315_1 spec316_1)"
+"(let-values(((s_282)"
+"(if(syntax?$1 s_281)"
+"(syntax-e$1 s_281)"
+" s_281)))"
+"(if(pair? s_282)"
+"(let-values(((for-syntax317_0)"
+"(let-values(((s_283)"
+"(car s_282)))"
+" s_283))"
+"((spec318_0)"
+"(let-values(((s_284)"
+"(cdr s_282)))"
+"(let-values(((s_285)"
 "(if(syntax?$1"
-" s_289)"
+" s_284)"
 "(syntax-e$1"
-" s_289)"
-" s_289)))"
+" s_284)"
+" s_284)))"
 "(let-values(((flat-s_9)"
 "(to-syntax-list.1"
-" s_290)))"
+" s_285)))"
 "(if(not flat-s_9)"
 "(let-values()"
 "(raise-syntax-error$1"
@@ -26306,40 +25909,40 @@ static const char *startup_source =
 " orig-s_17))"
 "(let-values()"
 " flat-s_9)))))))"
-"(values for-syntax318_0 spec319_0))"
+"(values for-syntax317_0 spec318_0))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                              \"bad syntax\""
 " orig-s_17)))))"
-"(values #t for-syntax316_1 spec317_1))))))"
-"(rebuild-req_0 req_3(list* 'for-meta 2(map2(loop_88 #t) spec317_0)))))"
+"(values #t for-syntax315_1 spec316_1))))))"
+"(rebuild-req_0 req_3(list* 'for-meta 2(map2(loop_86 #t) spec316_0)))))"
 "(if(equal? tmp_25 'for-template)"
 "(let-values()"
-"(let-values(((ok?_14 for-template320_0 spec321_0)"
-"(let-values(((s_291) req_3))"
-"(let-values(((orig-s_18) s_291))"
-"(let-values(((for-template320_1 spec321_1)"
-"(let-values(((s_292)"
-"(if(syntax?$1 s_291)"
-"(syntax-e$1 s_291)"
-" s_291)))"
-"(if(pair? s_292)"
-"(let-values(((for-template322_0)"
-"(let-values(((s_293)"
-"(car s_292)))"
-" s_293))"
-"((spec323_0)"
-"(let-values(((s_294)"
-"(cdr s_292)))"
-"(let-values(((s_295)"
+"(let-values(((ok?_14 for-template319_0 spec320_0)"
+"(let-values(((s_286) req_3))"
+"(let-values(((orig-s_18) s_286))"
+"(let-values(((for-template319_1 spec320_1)"
+"(let-values(((s_287)"
+"(if(syntax?$1 s_286)"
+"(syntax-e$1 s_286)"
+" s_286)))"
+"(if(pair? s_287)"
+"(let-values(((for-template321_0)"
+"(let-values(((s_288)"
+"(car s_287)))"
+" s_288))"
+"((spec322_0)"
+"(let-values(((s_289)"
+"(cdr s_287)))"
+"(let-values(((s_290)"
 "(if(syntax?$1"
-" s_294)"
+" s_289)"
 "(syntax-e$1"
-" s_294)"
-" s_294)))"
+" s_289)"
+" s_289)))"
 "(let-values(((flat-s_10)"
 "(to-syntax-list.1"
-" s_295)))"
+" s_290)))"
 "(if(not flat-s_10)"
 "(let-values()"
 "(raise-syntax-error$1"
@@ -26348,30 +25951,79 @@ static const char *startup_source =
 " orig-s_18))"
 "(let-values()"
 " flat-s_10)))))))"
-"(values for-template322_0 spec323_0))"
+"(values for-template321_0 spec322_0))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                \"bad syntax\""
 " orig-s_18)))))"
-"(values #t for-template320_1 spec321_1))))))"
-"(rebuild-req_0 req_3(list* 'for-meta 0(map2(loop_88 #t) spec321_0)))))"
+"(values #t for-template319_1 spec320_1))))))"
+"(rebuild-req_0 req_3(list* 'for-meta 0(map2(loop_86 #t) spec320_0)))))"
 "(if(equal? tmp_25 'for-label)"
 "(let-values()"
-"(let-values(((ok?_15 for-label324_0 spec325_0)"
+"(let-values(((ok?_15 for-label323_0 spec324_0)"
+"(let-values(((s_291) req_3))"
+"(let-values(((orig-s_19) s_291))"
+"(let-values(((for-label323_1 spec324_1)"
+"(let-values(((s_292)"
+"(if(syntax?$1 s_291)"
+"(syntax-e$1 s_291)"
+" s_291)))"
+"(if(pair? s_292)"
+"(let-values(((for-label325_0)"
+"(let-values(((s_293)"
+"(car"
+" s_292)))"
+" s_293))"
+"((spec326_0)"
+"(let-values(((s_294)"
+"(cdr"
+" s_292)))"
+"(let-values(((s_295)"
+"(if(syntax?$1"
+" s_294)"
+"(syntax-e$1"
+" s_294)"
+" s_294)))"
+"(let-values(((flat-s_11)"
+"(to-syntax-list.1"
+" s_295)))"
+"(if(not flat-s_11)"
+"(let-values()"
+"(raise-syntax-error$1"
+" #f"
+"                                                                                                          \"bad syntax\""
+" orig-s_19))"
+"(let-values()"
+" flat-s_11)))))))"
+"(values for-label325_0 spec326_0))"
+"(raise-syntax-error$1"
+" #f"
+"                                                                                  \"bad syntax\""
+" orig-s_19)))))"
+"(values #t for-label323_1 spec324_1))))))"
+"(rebuild-req_0"
+" req_3"
+"(list* for-label323_0(map2(loop_86 #t) spec324_0)))))"
+"(if(equal? tmp_25 'just-meta)"
+"(let-values()"
+"(let-values(((ok?_16 just-meta327_0 phase-level328_0 spec329_0)"
 "(let-values(((s_296) req_3))"
-"(let-values(((orig-s_19) s_296))"
-"(let-values(((for-label324_1 spec325_1)"
+"(let-values(((orig-s_20) s_296))"
+"(let-values(((just-meta327_1"
+" phase-level328_1"
+" spec329_1)"
 "(let-values(((s_297)"
 "(if(syntax?$1 s_296)"
 "(syntax-e$1 s_296)"
 " s_296)))"
 "(if(pair? s_297)"
-"(let-values(((for-label326_0)"
+"(let-values(((just-meta330_0)"
 "(let-values(((s_298)"
 "(car"
 " s_297)))"
 " s_298))"
-"((spec327_0)"
+"((phase-level331_0"
+" spec332_0)"
 "(let-values(((s_299)"
 "(cdr"
 " s_297)))"
@@ -26381,74 +26033,25 @@ static const char *startup_source =
 "(syntax-e$1"
 " s_299)"
 " s_299)))"
-"(let-values(((flat-s_11)"
-"(to-syntax-list.1"
+"(if(pair? s_300)"
+"(let-values(((phase-level333_0)"
+"(let-values(((s_301)"
+"(car"
 " s_300)))"
-"(if(not flat-s_11)"
-"(let-values()"
-"(raise-syntax-error$1"
-" #f"
-"                                                                                                          \"bad syntax\""
-" orig-s_19))"
-"(let-values()"
-" flat-s_11)))))))"
-"(values for-label326_0 spec327_0))"
-"(raise-syntax-error$1"
-" #f"
-"                                                                                  \"bad syntax\""
-" orig-s_19)))))"
-"(values #t for-label324_1 spec325_1))))))"
-"(rebuild-req_0"
-" req_3"
-"(list* for-label324_0(map2(loop_88 #t) spec325_0)))))"
-"(if(equal? tmp_25 'just-meta)"
-"(let-values()"
-"(let-values(((ok?_16 just-meta328_0 phase-level329_0 spec330_0)"
-"(let-values(((s_301) req_3))"
-"(let-values(((orig-s_20) s_301))"
-"(let-values(((just-meta328_1"
-" phase-level329_1"
-" spec330_1)"
+" s_301))"
+"((spec334_0)"
 "(let-values(((s_302)"
-"(if(syntax?$1 s_301)"
-"(syntax-e$1 s_301)"
-" s_301)))"
-"(if(pair? s_302)"
-"(let-values(((just-meta331_0)"
+"(cdr"
+" s_300)))"
 "(let-values(((s_303)"
-"(car"
-" s_302)))"
-" s_303))"
-"((phase-level332_0"
-" spec333_0)"
-"(let-values(((s_304)"
-"(cdr"
-" s_302)))"
-"(let-values(((s_305)"
 "(if(syntax?$1"
-" s_304)"
+" s_302)"
 "(syntax-e$1"
-" s_304)"
-" s_304)))"
-"(if(pair? s_305)"
-"(let-values(((phase-level334_0)"
-"(let-values(((s_306)"
-"(car"
-" s_305)))"
-" s_306))"
-"((spec335_0)"
-"(let-values(((s_307)"
-"(cdr"
-" s_305)))"
-"(let-values(((s_308)"
-"(if(syntax?$1"
-" s_307)"
-"(syntax-e$1"
-" s_307)"
-" s_307)))"
+" s_302)"
+" s_302)))"
 "(let-values(((flat-s_12)"
 "(to-syntax-list.1"
-" s_308)))"
+" s_303)))"
 "(if(not"
 " flat-s_12)"
 "(let-values()"
@@ -26459,47 +26062,47 @@ static const char *startup_source =
 "(let-values()"
 " flat-s_12)))))))"
 "(values"
-" phase-level334_0"
-" spec335_0))"
+" phase-level333_0"
+" spec334_0))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                        \"bad syntax\""
 " orig-s_20))))))"
 "(values"
-" just-meta331_0"
-" phase-level332_0"
-" spec333_0))"
+" just-meta330_0"
+" phase-level331_0"
+" spec332_0))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                    \"bad syntax\""
 " orig-s_20)))))"
 "(values"
 " #t"
-" just-meta328_1"
-" phase-level329_1"
-" spec330_1))))))"
+" just-meta327_1"
+" phase-level328_1"
+" spec329_1))))))"
 "(rebuild-req_0"
 " req_3"
 "(list*"
-" just-meta328_0"
-" phase-level329_0"
-"(map2(loop_88 #f) spec330_0)))))"
+" just-meta327_0"
+" phase-level328_0"
+"(map2(loop_86 #f) spec329_0)))))"
 "(let-values()"
 "(if shifted?_0"
 " req_3"
 "(datum->syntax$1 #f(list 'for-syntax req_3))))))))))))))))"
-"((loop_88 #f) req_1))))))"
+"((loop_86 #f) req_1))))))"
 "(define-values"
 "(copy-namespace-value)"
-"(lambda(m-ns_11 adjusted-sym_1 binding_17 phase-level_16 phase-shift_13 as-constant?_1)"
+"(lambda(m-ns_11 adjusted-sym_1 binding_17 phase-level_16 phase-shift_12 as-constant?_1)"
 "(begin"
 "(let-values(((i-ns_0)"
-"(let-values(((m-ns336_0) m-ns_11)"
-"((temp337_0)(1/module-path-index-resolve(module-binding-module binding_17)))"
-"((temp338_0)(phase-(module-binding-phase binding_17) phase-level_16))"
-"((temp339_0) #t))"
-"(namespace->module-namespace82.1 #f #f temp339_0 #t #f #f m-ns336_0 temp337_0 temp338_0))))"
-"(let-values(((val_48)"
+"(let-values(((m-ns335_0) m-ns_11)"
+"((temp336_0)(1/module-path-index-resolve(module-binding-module binding_17)))"
+"((temp337_0)(phase-(module-binding-phase binding_17) phase-level_16))"
+"((temp338_0) #t))"
+"(namespace->module-namespace82.1 #f temp338_0 unsafe-undefined m-ns335_0 temp336_0 temp337_0))))"
+"(let-values(((val_47)"
 "(namespace-get-variable"
 " i-ns_0"
 "(module-binding-phase binding_17)"
@@ -26519,9 +26122,9 @@ static const char *startup_source =
 "(module-binding-phase binding_17)))))))"
 "(namespace-set-variable!"
 " m-ns_11"
-"(phase+ phase-shift_13 phase-level_16)"
+"(phase+ phase-shift_12 phase-level_16)"
 " adjusted-sym_1"
-" val_48"
+" val_47"
 " as-constant?_1))))))"
 "(define-values"
 "(top-level-instance)"
@@ -26530,41 +26133,32 @@ static const char *startup_source =
 " #f"
 " 'constant"
 " top-level-bind!-id"
-"(lambda(id_22 mpi_41 orig-phase_0 phase-shift_14 ns_51 sym_49 trans?_0 trans-val_0)"
-"(let-values(((phase_47)(phase+ orig-phase_0 phase-shift_14)))"
-"(let-values(((b_71)"
-"(let-values(((mpi4_0) mpi_41)"
-"((phase5_0) phase_47)"
-"((sym6_1) sym_49)"
+"(lambda(id_19 mpi_39 orig-phase_0 phase-shift_13 ns_51 sym_51 trans?_0 trans-val_0)"
+"(let-values(((phase_68)(phase+ orig-phase_0 phase-shift_13)))"
+"(let-values(((b_70)"
+"(let-values(((mpi4_1) mpi_39)"
+"((phase5_1) phase_68)"
+"((sym6_1) sym_51)"
 "((temp7_0)(root-expand-context-frame-id(namespace-get-root-expand-ctx ns_51))))"
 "(make-module-binding22.1"
 " #f"
-" #f"
-" #f"
-" #f"
+" null"
 " temp7_0"
-" #t"
 " #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" mpi4_0"
-" phase5_0"
+" unsafe-undefined"
+" unsafe-undefined"
+" 0"
+" unsafe-undefined"
+" unsafe-undefined"
+" mpi4_1"
+" phase5_1"
 " sym6_1))))"
 "(begin"
-"(let-values(((id1_3) id_22)((b2_4) b_71)((phase3_1) phase_47))"
-"(add-binding!17.1 #f #f #f #f id1_3 b2_4 phase3_1))"
+"(let-values(((id1_3) id_19)((b2_4) b_70)((phase3_2) phase_68))"
+"(add-binding!17.1 #f #f id1_3 b2_4 phase3_2))"
 "(if trans?_0"
-"(let-values()(if trans-val_0(let-values()(maybe-install-free=id! trans-val_0 id_22 phase_47))(void)))"
-"(let-values()(namespace-unset-transformer! ns_51 phase_47 sym_49)))))))"
+"(let-values()(if trans-val_0(let-values()(maybe-install-free=id! trans-val_0 id_19 phase_68))(void)))"
+"(let-values()(namespace-unset-transformer! ns_51 phase_68 sym_51)))))))"
 " top-level-require!-id"
 "(lambda(stx_12 ns_52)"
 "(let-values(((reqs_2)(cdr(syntax->list$1 stx_12))))"
@@ -26572,34 +26166,25 @@ static const char *startup_source =
 "((temp9_1) #f)"
 "((reqs10_0) reqs_2)"
 "((temp11_1) #f)"
-"((ns12_0) ns_52)"
+"((ns12_1) ns_52)"
 "((temp13_0)(namespace-phase ns_52))"
-"((temp14_2)(let-values(((temp17_1) #f))(make-requires+provides8.1 #f #f temp17_1)))"
+"((temp14_2)(let-values(((temp17_1) #f))(make-requires+provides8.1 #f temp17_1)))"
 "((temp15_2) 'require)"
 "((temp16_2) #t))"
 "(parse-and-perform-requires!30.1"
 " #f"
 " #f"
-" #f"
-" #f"
-" #f"
-" #f"
+" unsafe-undefined"
 " temp16_2"
-" #t"
-" #f"
-" #f"
+" unsafe-undefined"
 " temp8_1"
-" #t"
-" #f"
-" #f"
 " #f"
 " #f"
 " temp9_1"
-" #t"
 " temp15_2"
 " reqs10_0"
 " temp11_1"
-" ns12_0"
+" ns12_1"
 " temp13_0"
 " temp14_2))))))"
 "(define-values"
@@ -26668,7 +26253,7 @@ static const char *startup_source =
 "(make-struct-field-accessor -ref_0 1 'other))))"
 "(define-values"
 "(swap-top-level-scopes)"
-"(lambda(s_309 original-scopes-s_0 new-ns_0)"
+"(lambda(s_304 original-scopes-s_0 new-ns_0)"
 "(begin"
 "(let-values(((old-scs-post_0 old-scs-other_0)"
 "(if(namespace-scopes? original-scopes-s_0)"
@@ -26676,7 +26261,7 @@ static const char *startup_source =
 "(decode-namespace-scopes original-scopes-s_0))))"
 "(let-values(((new-scs-post_0 new-scs-other_0)(extract-namespace-scopes/values new-ns_0)))"
 "(syntax-swap-scopes"
-"(syntax-swap-scopes s_309 old-scs-post_0 new-scs-post_0)"
+"(syntax-swap-scopes s_304 old-scs-post_0 new-scs-post_0)"
 " old-scs-other_0"
 " new-scs-other_0))))))"
 "(define-values"
@@ -26760,35 +26345,35 @@ static const char *startup_source =
 " header-syntax-literals"
 " set-header-binding-syms-in-order!"
 " set-header-require-vars-in-order!)"
-"(let-values(((struct:_66 make-_66 ?_66 -ref_66 -set!_66)"
+"(let-values(((struct:_67 make-_67 ?_67 -ref_67 -set!_67)"
 "(let-values()"
 "(let-values()"
 "(make-struct-type 'header #f 8 0 #f null(current-inspector) #f '(0 1 3 4 6 7) #f 'header)))))"
 "(values"
-" struct:_66"
-" make-_66"
-" ?_66"
-"(make-struct-field-accessor -ref_66 0 'module-path-indexes)"
-"(make-struct-field-accessor -ref_66 1 'binding-sym-to-define-sym)"
-"(make-struct-field-accessor -ref_66 2 'binding-syms-in-order)"
-"(make-struct-field-accessor -ref_66 3 'require-var-to-import-sym)"
-"(make-struct-field-accessor -ref_66 4 'import-sym-to-extra-inspectors)"
-"(make-struct-field-accessor -ref_66 5 'require-vars-in-order)"
-"(make-struct-field-accessor -ref_66 6 'define-and-import-syms)"
-"(make-struct-field-accessor -ref_66 7 'syntax-literals)"
-"(make-struct-field-mutator -set!_66 2 'binding-syms-in-order)"
-"(make-struct-field-mutator -set!_66 5 'require-vars-in-order))))"
-"(define-values"
-"(struct:variable-use variable-use3.1 variable-use? variable-use-module-use variable-use-sym)"
-"(let-values(((struct:_67 make-_67 ?_67 -ref_67 -set!_67)"
-"(let-values()"
-"(let-values()(make-struct-type 'variable-use #f 2 0 #f null #f #f '(0 1) #f 'variable-use)))))"
-"(values"
 " struct:_67"
 " make-_67"
 " ?_67"
-"(make-struct-field-accessor -ref_67 0 'module-use)"
-"(make-struct-field-accessor -ref_67 1 'sym))))"
+"(make-struct-field-accessor -ref_67 0 'module-path-indexes)"
+"(make-struct-field-accessor -ref_67 1 'binding-sym-to-define-sym)"
+"(make-struct-field-accessor -ref_67 2 'binding-syms-in-order)"
+"(make-struct-field-accessor -ref_67 3 'require-var-to-import-sym)"
+"(make-struct-field-accessor -ref_67 4 'import-sym-to-extra-inspectors)"
+"(make-struct-field-accessor -ref_67 5 'require-vars-in-order)"
+"(make-struct-field-accessor -ref_67 6 'define-and-import-syms)"
+"(make-struct-field-accessor -ref_67 7 'syntax-literals)"
+"(make-struct-field-mutator -set!_67 2 'binding-syms-in-order)"
+"(make-struct-field-mutator -set!_67 5 'require-vars-in-order))))"
+"(define-values"
+"(struct:variable-use variable-use3.1 variable-use? variable-use-module-use variable-use-sym)"
+"(let-values(((struct:_68 make-_68 ?_68 -ref_68 -set!_68)"
+"(let-values()"
+"(let-values()(make-struct-type 'variable-use #f 2 0 #f null #f #f '(0 1) #f 'variable-use)))))"
+"(values"
+" struct:_68"
+" make-_68"
+" ?_68"
+"(make-struct-field-accessor -ref_68 0 'module-use)"
+"(make-struct-field-accessor -ref_68 1 'sym))))"
 "(define-values(make-syntax-literals)(lambda()(begin(syntax-literals1.1 null 0))))"
 "(define-values"
 "(make-header)"
@@ -26804,28 +26389,28 @@ static const char *startup_source =
 "(if(header? header-or-literals_0)"
 "(header-syntax-literals header-or-literals_0)"
 " header-or-literals_0)))"
-"(let-values(((pos_82)(syntax-literals-count sl_0)))"
+"(let-values(((pos_84)(syntax-literals-count sl_0)))"
 "(begin"
-"(set-syntax-literals-count! sl_0(add1 pos_82))"
+"(set-syntax-literals-count! sl_0(add1 pos_84))"
 "(set-syntax-literals-stxes! sl_0(cons q_0(syntax-literals-stxes sl_0)))"
-" pos_82))))))"
+" pos_84))))))"
 "(define-values"
 "(add-syntax-literals!)"
 "(lambda(sl_1 vec_55)"
 "(begin"
-"(let-values(((pos_83)(syntax-literals-count sl_1)))"
+"(let-values(((pos_85)(syntax-literals-count sl_1)))"
 "(begin"
-"(let-values(((vec_56 len_28)"
+"(let-values(((vec_56 len_27)"
 "(let-values(((vec_57) vec_55))"
 "(begin(check-vector vec_57)(values vec_57(unsafe-vector-length vec_57))))))"
 "(begin"
 " #f"
-"((letrec-values(((for-loop_183)"
-"(lambda(pos_84)"
+"((letrec-values(((for-loop_181)"
+"(lambda(pos_86)"
 "(begin"
 " 'for-loop"
-"(if(unsafe-fx< pos_84 len_28)"
-"(let-values(((e_11)(unsafe-vector-ref vec_56 pos_84)))"
+"(if(unsafe-fx< pos_86 len_27)"
+"(let-values(((e_11)(unsafe-vector-ref vec_56 pos_86)))"
 "(let-values((()"
 "(let-values()"
 "(let-values((()"
@@ -26835,22 +26420,22 @@ static const char *startup_source =
 "(add-syntax-literal! sl_1 e_11))"
 "(values)))))"
 "(values)))))"
-"(if(not #f)(for-loop_183(unsafe-fx+ 1 pos_84))(values))))"
+"(if(not #f)(for-loop_181(unsafe-fx+ 1 pos_86))(values))))"
 "(values))))))"
-" for-loop_183)"
+" for-loop_181)"
 " 0)))"
 "(void)"
-"(cons pos_83(vector-length vec_55)))))))"
+"(cons pos_85(vector-length vec_55)))))))"
 "(define-values(syntax-literals-empty?)(lambda(sl_2)(begin(null?(syntax-literals-stxes sl_2)))))"
 "(define-values"
 "(generate-lazy-syntax-literals!9.1)"
-"(lambda(skip-deserialize?4_0 skip-deserialize?5_0 sl6_0 mpis7_0 self8_0)"
+"(lambda(skip-deserialize?4_0 sl6_0 mpis7_0 self8_0)"
 "(begin"
 " 'generate-lazy-syntax-literals!9"
 "(let-values(((sl_3) sl6_0))"
 "(let-values(((mpis_12) mpis7_0))"
-"(let-values(((self_14) self8_0))"
-"(let-values(((skip-deserialize?_0)(if skip-deserialize?5_0 skip-deserialize?4_0 #f)))"
+"(let-values(((self_13) self8_0))"
+"(let-values(((skip-deserialize?_0) skip-deserialize?4_0))"
 "(let-values()"
 "(list"
 "(list 'define-values(list syntax-literals-id)(list* 'make-vector(syntax-literals-count sl_3) '(#f)))"
@@ -26890,7 +26475,7 @@ static const char *startup_source =
 " 'syntax-shift-phase-level"
 "(list* 'unsafe-vector*-ref deserialized-syntax-vector-id '(pos))"
 " phase-shift-id)"
-"(add-module-path-index! mpis_12 self_14)"
+"(add-module-path-index! mpis_12 self_13)"
 " self-id"
 " inspector-id)))"
 "(list"
@@ -26923,12 +26508,12 @@ static const char *startup_source =
 "(let-values(((temp25_1)"
 "(vector->immutable-vector(list->vector(reverse$1(syntax-literals-stxes sl_4)))))"
 "((mpis26_0) mpis_13))"
-"(generate-deserialize6.1 #f #f temp25_1 mpis26_0))))"
+"(generate-deserialize6.1 #t temp25_1 mpis26_0))))"
 "(list* 'set! deserialize-syntax-id '(#f)))))))))))"
-"(define-values(generate-lazy-syntax-literal-lookup)(lambda(pos_85)(begin(list get-syntax-literal!-id pos_85))))"
+"(define-values(generate-lazy-syntax-literal-lookup)(lambda(pos_87)(begin(list get-syntax-literal!-id pos_87))))"
 "(define-values"
 "(generate-eager-syntax-literals!)"
-"(lambda(sl_5 mpis_14 base-phase_0 self_15 ns_2)"
+"(lambda(sl_5 mpis_14 base-phase_0 self_14 ns_4)"
 "(begin"
 "(if(syntax-literals-empty? sl_5)"
 "(let-values() #f)"
@@ -26938,9 +26523,9 @@ static const char *startup_source =
 "(list"
 "(list"
 " '(ns+stxss)"
-"(let-values(((temp27_2)(cons(encode-namespace-scopes ns_2)(reverse$1(syntax-literals-stxes sl_5))))"
+"(let-values(((temp27_2)(cons(encode-namespace-scopes ns_4)(reverse$1(syntax-literals-stxes sl_5))))"
 "((mpis28_0) mpis_14))"
-"(generate-deserialize6.1 #f #f temp27_2 mpis28_0))))"
+"(generate-deserialize6.1 #t temp27_2 mpis28_0))))"
 "(list"
 " 'let-values"
 " '(((ns-scope-s)(car ns+stxss)))"
@@ -26956,67 +26541,67 @@ static const char *startup_source =
 "(list"
 " 'syntax-module-path-index-shift"
 "(list 'syntax-shift-phase-level 'stx(list '- base-phase_0 dest-phase-id))"
-"(add-module-path-index! mpis_14 self_15)"
+"(add-module-path-index! mpis_14 self_14)"
 " self-id)"
 " 'ns-scope-s"
 " ns-id))"
 " '((cdr ns+stxss)))))))))))"
 "(define-values"
 "(generate-eager-syntax-literal-lookup)"
-"(lambda(pos_86)(begin(list 'unsafe-vector*-ref syntax-literals-id pos_86))))"
+"(lambda(pos_88)(begin(list 'unsafe-vector*-ref syntax-literals-id pos_88))))"
 "(define-values"
 "(syntax-literals-as-vector)"
 "(lambda(sl_6)(begin(list->vector(reverse$1(syntax-literals-stxes sl_6))))))"
 "(define-values"
 "(select-fresh)"
-"(lambda(sym_50 header_0)"
+"(lambda(sym_52 header_0)"
 "(begin"
-"(if(symbol-conflicts? sym_50 header_0)"
-"((letrec-values(((loop_89)"
-"(lambda(pos_87)"
+"(if(symbol-conflicts? sym_52 header_0)"
+"((letrec-values(((loop_87)"
+"(lambda(pos_89)"
 "(begin"
 " 'loop"
-"                              (let-values (((new-sym_0) (string->symbol (format \"~a/~a\" pos_87 sym_50))))"
-"(if(symbol-conflicts? new-sym_0 header_0)(loop_89(add1 pos_87)) new-sym_0))))))"
-" loop_89)"
+"                              (let-values (((new-sym_0) (string->symbol (format \"~a/~a\" pos_89 sym_52))))"
+"(if(symbol-conflicts? new-sym_0 header_0)(loop_87(add1 pos_89)) new-sym_0))))))"
+" loop_87)"
 " 1)"
-" sym_50))))"
+" sym_52))))"
 "(define-values"
 "(symbol-conflicts?)"
-"(lambda(sym_51 header_1)"
+"(lambda(sym_53 header_1)"
 "(begin"
-"(let-values(((or-part_166)(built-in-symbol? sym_51)))"
-"(if or-part_166 or-part_166(hash-ref(header-define-and-import-syms header_1) sym_51 #f))))))"
+"(let-values(((or-part_204)(built-in-symbol? sym_53)))"
+"(if or-part_204 or-part_204(hash-ref(header-define-and-import-syms header_1) sym_53 #f))))))"
 "(define-values"
 "(register-required-variable-use!19.1)"
-"(lambda(defined?12_0 defined?13_0 header14_0 mpi15_0 phase16_1 sym17_0 extra-inspector18_0)"
+"(lambda(defined?12_0 header14_0 mpi15_0 phase16_1 sym17_0 extra-inspector18_0)"
 "(begin"
 " 'register-required-variable-use!19"
 "(let-values(((header_2) header14_0))"
-"(let-values(((mpi_42) mpi15_0))"
-"(let-values(((phase_71) phase16_1))"
-"(let-values(((sym_52) sym17_0))"
+"(let-values(((mpi_40) mpi15_0))"
+"(let-values(((phase_69) phase16_1))"
+"(let-values(((sym_21) sym17_0))"
 "(let-values(((extra-inspector_4) extra-inspector18_0))"
-"(let-values(((defined?_2)(if defined?13_0 defined?12_0 #f)))"
+"(let-values(((defined?_2) defined?12_0))"
 "(let-values()"
-"(let-values(((key_8)(variable-use3.1(module-use1.1 mpi_42 phase_71) sym_52)))"
+"(let-values(((key_55)(variable-use3.1(module-use1.1 mpi_40 phase_69) sym_21)))"
 "(let-values(((variable-uses_0)(header-require-var-to-import-sym header_2)))"
-"(let-values(((prev-var-sym_0)(hash-ref variable-uses_0 key_8 #f)))"
+"(let-values(((prev-var-sym_0)(hash-ref variable-uses_0 key_55 #f)))"
 "(let-values(((var-sym_0)"
-"(let-values(((or-part_202) prev-var-sym_0))"
-"(if or-part_202"
-" or-part_202"
-"(let-values(((sym_53)(select-fresh(variable-use-sym key_8) header_2)))"
+"(let-values(((or-part_205) prev-var-sym_0))"
+"(if or-part_205"
+" or-part_205"
+"(let-values(((sym_54)(select-fresh(variable-use-sym key_55) header_2)))"
 "(begin"
-"(hash-set! variable-uses_0 key_8 sym_53)"
+"(hash-set! variable-uses_0 key_55 sym_54)"
 "(set-header-require-vars-in-order!"
 " header_2"
-"(cons key_8(header-require-vars-in-order header_2)))"
+"(cons key_55(header-require-vars-in-order header_2)))"
 "(hash-set!"
 "(header-define-and-import-syms header_2)"
-" sym_53"
+" sym_54"
 "(if defined?_2 'defined 'required))"
-" sym_53))))))"
+" sym_54))))))"
 "(begin"
 "(if(if extra-inspector_4(not prev-var-sym_0) #f)"
 "(let-values()"
@@ -27024,7 +26609,7 @@ static const char *startup_source =
 "(hash-update!"
 " extra-inspectors_0"
 " var-sym_0"
-"(lambda(s_310)(set-add s_310 extra-inspector_4))"
+"(lambda(s_164)(set-add s_164 extra-inspector_4))"
 " '#hasheq())))"
 "(void))"
 " var-sym_0)))))))))))))))"
@@ -27037,7 +26622,7 @@ static const char *startup_source =
 "(begin(eq? 'required(hash-ref(header-define-and-import-syms header_4) var-sym_1 #f)))))"
 "(define-values"
 "(generate-links+imports)"
-"(lambda(header_5 phase_72 cctx_0 cross-linklet-inlining?_0)"
+"(lambda(header_5 phase_37 cctx_0 cross-linklet-inlining?_0)"
 "(begin"
 "(let-values(((mod-use-ht_0 link-mod-uses_0)"
 "(let-values(((lst_153)(header-require-vars-in-order header_5)))"
@@ -27045,49 +26630,49 @@ static const char *startup_source =
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
 "(let-values()(check-list lst_153)))"
-"((letrec-values(((for-loop_184)"
-"(lambda(ht_107 link-mod-uses_1 lst_154)"
+"((letrec-values(((for-loop_182)"
+"(lambda(ht_103 link-mod-uses_1 lst_154)"
 "(begin"
 " 'for-loop"
 "(if(pair? lst_154)"
 "(let-values(((vu_0)(unsafe-car lst_154))"
-"((rest_78)(unsafe-cdr lst_154)))"
-"(let-values(((ht_108 link-mod-uses_2)"
-"(let-values(((ht_109) ht_107)"
+"((rest_79)(unsafe-cdr lst_154)))"
+"(let-values(((ht_104 link-mod-uses_2)"
+"(let-values(((ht_105) ht_103)"
 "((link-mod-uses_3) link-mod-uses_1))"
-"(let-values(((ht_110 link-mod-uses_4)"
+"(let-values(((ht_106 link-mod-uses_4)"
 "(let-values()"
 "(let-values(((mu_2)"
 "(variable-use-module-use"
 " vu_0)))"
-"(if(let-values(((or-part_157)"
+"(if(let-values(((or-part_206)"
 "(hash-ref"
-" ht_109"
+" ht_105"
 " mu_2"
 " #f)))"
-"(if or-part_157"
-" or-part_157"
-"(let-values(((or-part_203)"
+"(if or-part_206"
+" or-part_206"
+"(let-values(((or-part_207)"
 "(eq?"
 "(module-use-module"
 " mu_2)"
 "(compile-context-self"
 " cctx_0))))"
-"(if or-part_203"
-" or-part_203"
+"(if or-part_207"
+" or-part_207"
 "(top-level-module-path-index?"
 "(module-use-module"
 " mu_2))))))"
-"(values ht_109 link-mod-uses_3)"
+"(values ht_105 link-mod-uses_3)"
 "(values"
-"(hash-set ht_109 mu_2 #t)"
+"(hash-set ht_105 mu_2 #t)"
 "(cons mu_2 link-mod-uses_3)))))))"
-"(values ht_110 link-mod-uses_4)))))"
+"(values ht_106 link-mod-uses_4)))))"
 "(if(not #f)"
-"(for-loop_184 ht_108 link-mod-uses_2 rest_78)"
-"(values ht_108 link-mod-uses_2))))"
-"(values ht_107 link-mod-uses_1))))))"
-" for-loop_184)"
+"(for-loop_182 ht_104 link-mod-uses_2 rest_79)"
+"(values ht_104 link-mod-uses_2))))"
+"(values ht_103 link-mod-uses_1))))))"
+" for-loop_182)"
 " '#hash()"
 " null"
 " lst_153)))))"
@@ -27097,50 +26682,49 @@ static const char *startup_source =
 "(let-values(((lst_33) link-mod-uses_0))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_33)))"
-"((letrec-values(((for-loop_185)"
-"(lambda(fold-var_139 lst_155)"
+"((letrec-values(((for-loop_183)"
+"(lambda(fold-var_136 lst_108)"
 "(begin"
 " 'for-loop"
-"(if(pair? lst_155)"
-"(let-values(((mu_3)(unsafe-car lst_155))((rest_79)(unsafe-cdr lst_155)))"
-"(let-values(((fold-var_140)"
-"(let-values(((fold-var_141) fold-var_139))"
-"(let-values(((fold-var_142)"
+"(if(pair? lst_108)"
+"(let-values(((mu_3)(unsafe-car lst_108))((rest_80)(unsafe-cdr lst_108)))"
+"(let-values(((fold-var_137)"
+"(let-values(((fold-var_138) fold-var_136))"
+"(let-values(((fold-var_139)"
 "(let-values()"
 "(cons"
 "(let-values()"
 "(reverse$1"
-"(let-values(((lst_108)"
+"(let-values(((lst_52)"
 "(header-require-vars-in-order"
 " header_5)))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
 "(#%variable-reference))"
 "(void)"
-"(let-values()(check-list lst_108)))"
-"((letrec-values(((for-loop_186)"
-"(lambda(fold-var_143"
-" lst_156)"
+"(let-values()(check-list lst_52)))"
+"((letrec-values(((for-loop_75)"
+"(lambda(fold-var_39"
+" lst_53)"
 "(begin"
 " 'for-loop"
-"(if(pair?"
-" lst_156)"
+"(if(pair? lst_53)"
 "(let-values(((vu_1)"
 "(unsafe-car"
-" lst_156))"
-"((rest_80)"
+" lst_53))"
+"((rest_23)"
 "(unsafe-cdr"
-" lst_156)))"
-"(let-values(((fold-var_144)"
-"(let-values(((fold-var_145)"
-" fold-var_143))"
+" lst_53)))"
+"(let-values(((fold-var_40)"
+"(let-values(((fold-var_41)"
+" fold-var_39))"
 "(if(equal?"
 " mu_3"
 "(variable-use-module-use"
 " vu_1))"
-"(let-values(((fold-var_146)"
-" fold-var_145))"
-"(let-values(((fold-var_39)"
+"(let-values(((fold-var_42)"
+" fold-var_41))"
+"(let-values(((fold-var_140)"
 "(let-values()"
 "(cons"
 "(let-values()"
@@ -27159,44 +26743,44 @@ static const char *startup_source =
 "(list"
 " ex-sym_0"
 " var-sym_2)))))"
-" fold-var_146))))"
+" fold-var_42))))"
 "(values"
-" fold-var_39)))"
-" fold-var_145))))"
+" fold-var_140)))"
+" fold-var_41))))"
 "(if(not #f)"
-"(for-loop_186"
-" fold-var_144"
-" rest_80)"
-" fold-var_144)))"
-" fold-var_143)))))"
-" for-loop_186)"
+"(for-loop_75"
+" fold-var_40"
+" rest_23)"
+" fold-var_40)))"
+" fold-var_39)))))"
+" for-loop_75)"
 " null"
-" lst_108)))))"
-" fold-var_141))))"
-"(values fold-var_142)))))"
-"(if(not #f)(for-loop_185 fold-var_140 rest_79) fold-var_140)))"
-" fold-var_139)))))"
-" for-loop_185)"
+" lst_52)))))"
+" fold-var_138))))"
+"(values fold-var_139)))))"
+"(if(not #f)(for-loop_183 fold-var_137 rest_80) fold-var_137)))"
+" fold-var_136)))))"
+" for-loop_183)"
 " null"
 " lst_33))))"
 "(reverse$1"
-"(let-values(((lst_157) link-mod-uses_0))"
+"(let-values(((lst_155) link-mod-uses_0))"
 "(begin"
-"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_157)))"
-"((letrec-values(((for-loop_187)"
-"(lambda(fold-var_41 lst_158)"
+"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_155)))"
+"((letrec-values(((for-loop_184)"
+"(lambda(fold-var_141 lst_156)"
 "(begin"
 " 'for-loop"
-"(if(pair? lst_158)"
-"(let-values(((mu_4)(unsafe-car lst_158))((rest_81)(unsafe-cdr lst_158)))"
-"(let-values(((fold-var_147)"
-"(let-values(((fold-var_148) fold-var_41))"
-"(let-values(((fold-var_149)"
+"(if(pair? lst_156)"
+"(let-values(((mu_4)(unsafe-car lst_156))((rest_81)(unsafe-cdr lst_156)))"
+"(let-values(((fold-var_142)"
+"(let-values(((fold-var_143) fold-var_141))"
+"(let-values(((fold-var_144)"
 "(let-values()"
 "(cons"
 "(let-values()"
 "(let-values(((extra-inspectorss_0)"
-"(let-values(((lst_109)"
+"(let-values(((lst_55)"
 "(header-require-vars-in-order"
 " header_5)))"
 "(begin"
@@ -27204,23 +26788,23 @@ static const char *startup_source =
 "(#%variable-reference))"
 "(void)"
 "(let-values()"
-"(check-list lst_109)))"
-"((letrec-values(((for-loop_129)"
-"(lambda(table_145"
-" lst_159)"
+"(check-list lst_55)))"
+"((letrec-values(((for-loop_185)"
+"(lambda(table_141"
+" lst_113)"
 "(begin"
 " 'for-loop"
 "(if(pair?"
-" lst_159)"
+" lst_113)"
 "(let-values(((vu_2)"
 "(unsafe-car"
-" lst_159))"
-"((rest_82)"
+" lst_113))"
+"((rest_56)"
 "(unsafe-cdr"
-" lst_159)))"
+" lst_113)))"
+"(let-values(((table_142)"
 "(let-values(((table_34)"
-"(let-values(((table_146)"
-" table_145))"
+" table_141))"
 "(if(equal?"
 " mu_4"
 "(variable-use-module-use"
@@ -27232,7 +26816,7 @@ static const char *startup_source =
 " vu_2)))"
 "(begin"
 " #t"
-"((letrec-values(((for-loop_188)"
+"((letrec-values(((for-loop_186)"
 "(lambda(table_31)"
 "(begin"
 " 'for-loop"
@@ -27246,85 +26830,85 @@ static const char *startup_source =
 " #f)))"
 "(begin"
 " #t"
-"((letrec-values(((for-loop_34)"
-"(lambda(table_147)"
+"((letrec-values(((for-loop_187)"
+"(lambda(table_143)"
 "(begin"
 " 'for-loop"
 "(let-values()"
-"(let-values(((table_148)"
-"(let-values(((table_149)"
-" table_147))"
-"(if(let-values(((or-part_204)"
+"(let-values(((table_144)"
+"(let-values(((table_145)"
+" table_143))"
+"(if(let-values(((or-part_208)"
 " extra-inspectors_1))"
-"(if or-part_204"
-" or-part_204"
+"(if or-part_208"
+" or-part_208"
 " cross-linklet-inlining?_0))"
-"(let-values(((table_150)"
-" table_149))"
-"(let-values(((table_122)"
+"(let-values(((table_146)"
+" table_145))"
+"(let-values(((table_147)"
 "(let-values()"
-"(let-values(((key_55"
-" val_49)"
+"(let-values(((key_56"
+" val_48)"
 "(let-values()"
 "(values"
 " var-sym_3"
 " extra-inspectors_1))))"
 "(hash-set"
-" table_150"
-" key_55"
-" val_49)))))"
+" table_146"
+" key_56"
+" val_48)))))"
 "(values"
-" table_122)))"
-" table_149))))"
-" table_148))))))"
-" for-loop_34)"
+" table_147)))"
+" table_145))))"
+" table_144))))))"
+" for-loop_187)"
 " table_31)))))"
 " table_32))))))"
-" for-loop_188)"
-" table_146)))"
-" table_146))))"
+" for-loop_186)"
+" table_34)))"
+" table_34))))"
 "(if(not"
 " #f)"
-"(for-loop_129"
-" table_34"
-" rest_82)"
-" table_34)))"
-" table_145)))))"
-" for-loop_129)"
+"(for-loop_185"
+" table_142"
+" rest_56)"
+" table_142)))"
+" table_141)))))"
+" for-loop_185)"
 " '#hash()"
-" lst_109)))))"
+" lst_55)))))"
 "(if(hash-count extra-inspectorss_0)"
 " extra-inspectorss_0"
 " #f)))"
-" fold-var_148))))"
-"(values fold-var_149)))))"
-"(if(not #f)(for-loop_187 fold-var_147 rest_81) fold-var_147)))"
-" fold-var_41)))))"
-" for-loop_187)"
+" fold-var_143))))"
+"(values fold-var_144)))))"
+"(if(not #f)(for-loop_184 fold-var_142 rest_81) fold-var_142)))"
+" fold-var_141)))))"
+" for-loop_184)"
 " null"
-" lst_157))))"
+" lst_155))))"
 "(reverse$1"
-"(let-values(((lst_160)(header-require-vars-in-order header_5)))"
+"(let-values(((lst_157)(header-require-vars-in-order header_5)))"
 "(begin"
-"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_160)))"
-"((letrec-values(((for-loop_189)"
-"(lambda(fold-var_150 lst_34)"
+"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_157)))"
+"((letrec-values(((for-loop_188)"
+"(lambda(fold-var_145 lst_158)"
 "(begin"
 " 'for-loop"
-"(if(pair? lst_34)"
-"(let-values(((vu_3)(unsafe-car lst_34))((rest_83)(unsafe-cdr lst_34)))"
-"(let-values(((fold-var_151)"
-"(let-values(((fold-var_152) fold-var_150))"
+"(if(pair? lst_158)"
+"(let-values(((vu_3)(unsafe-car lst_158))((rest_82)(unsafe-cdr lst_158)))"
+"(let-values(((fold-var_146)"
+"(let-values(((fold-var_147) fold-var_145))"
 "(if(let-values(((mod_2)"
 "(module-use-module"
 "(variable-use-module-use vu_3))))"
-"(let-values(((or-part_205)"
+"(let-values(((or-part_209)"
 "(eq? mod_2(compile-context-self cctx_0))))"
-"(if or-part_205"
-" or-part_205"
+"(if or-part_209"
+" or-part_209"
 "(top-level-module-path-index? mod_2))))"
-"(let-values(((fold-var_153) fold-var_152))"
-"(let-values(((fold-var_154)"
+"(let-values(((fold-var_148) fold-var_147))"
+"(let-values(((fold-var_149)"
 "(let-values()"
 "(cons"
 "(let-values()"
@@ -27338,14 +26922,14 @@ static const char *startup_source =
 "(if(eq? var-sym_4 ex-sym_1)"
 " var-sym_4"
 "(list var-sym_4 ex-sym_1)))))"
-" fold-var_153))))"
-"(values fold-var_154)))"
-" fold-var_152))))"
-"(if(not #f)(for-loop_189 fold-var_151 rest_83) fold-var_151)))"
-" fold-var_150)))))"
-" for-loop_189)"
+" fold-var_148))))"
+"(values fold-var_149)))"
+" fold-var_147))))"
+"(if(not #f)(for-loop_188 fold-var_146 rest_82) fold-var_146)))"
+" fold-var_145)))))"
+" for-loop_188)"
 " null"
-" lst_160)))))))))"
+" lst_157)))))))))"
 "(define-values"
 "(instance-imports)"
 "(list ns-id phase-shift-id self-id inspector-id bulk-binding-registry-id set-transformer!-id))"
@@ -27355,9 +26939,9 @@ static const char *startup_source =
 "(begin"
 " 'make-instance-instance13"
 "(let-values(((ns_55) namespace1_0))"
-"(let-values(((phase-shift_15) phase-shift2_0))"
-"(let-values(((self_16) self3_0))"
-"(let-values(((inspector_9) inspector4_0))"
+"(let-values(((phase-shift_14) phase-shift2_0))"
+"(let-values(((self_15) self3_0))"
+"(let-values(((inspector_10) inspector4_0))"
 "(let-values(((bulk-binding-registry_11) bulk-binding-registry5_0))"
 "(let-values(((set-transformer!_0) set-transformer!6_0))"
 "(let-values()"
@@ -27368,11 +26952,11 @@ static const char *startup_source =
 " ns-id"
 " ns_55"
 " phase-shift-id"
-" phase-shift_15"
+" phase-shift_14"
 " self-id"
-" self_16"
+" self_15"
 " inspector-id"
-" inspector_9"
+" inspector_10"
 " bulk-binding-registry-id"
 " bulk-binding-registry_11"
 " set-transformer!-id"
@@ -27386,10 +26970,10 @@ static const char *startup_source =
 "(let-values()(1/make-instance 'body-instance #f 'constant set-transformer!-id set-transformer!_1))))))"
 "(define-values"
 "(empty-syntax-literals-instance)"
-"(1/make-instance 'empty-stx #f 'constant get-syntax-literal!-id(lambda(pos_88) #f) 'get-encoded-root-expand-ctx #f))"
+"(1/make-instance 'empty-stx #f 'constant get-syntax-literal!-id(lambda(pos_90) #f) 'get-encoded-root-expand-ctx #f))"
 "(define-values"
 "(empty-module-body-instance)"
-"(let-values(((temp21_0)(lambda(name_39 val_50)(void))))(make-module-body-instance-instance18.1 temp21_0)))"
+"(let-values(((temp21_0)(lambda(name_39 val_49)(void))))(make-module-body-instance-instance18.1 temp21_0)))"
 "(define-values"
 "(empty-top-syntax-literal-instance)"
 "(1/make-instance 'top-syntax-literal #f 'constant mpi-vector-id #f syntax-literals-id #f))"
@@ -27398,8 +26982,8 @@ static const char *startup_source =
 "(1/make-instance 'empty-stx-data #f 'constant deserialized-syntax-vector-id(vector) deserialize-syntax-id void))"
 "(define-values"
 "(empty-instance-instance)"
-"(let-values(((temp22_2) #f)((temp23_2) #f)((temp24_2) #f)((temp25_2) #f)((temp26_0) #f)((temp27_3) #f))"
-"(make-instance-instance13.1 temp26_0 temp25_2 temp22_2 temp23_2 temp24_2 temp27_3)))"
+"(let-values(((temp22_2) #f)((temp23_2) #f)((temp24_2) #f)((temp25_2) #f)((temp26_1) #f)((temp27_3) #f))"
+"(make-instance-instance13.1 temp26_1 temp25_2 temp22_2 temp23_2 temp24_2 temp27_3)))"
 "(define-values"
 "(eager-instance-imports)"
 "(list* ns-id dest-phase-id self-id bulk-binding-registry-id inspector-id '(swap-top-level-scopes)))"
@@ -27410,9 +26994,9 @@ static const char *startup_source =
 " 'make-eager-instance-instance11"
 "(let-values(((ns_56) namespace1_1))"
 "(let-values(((dest-phase_0) dest-phase2_0))"
-"(let-values(((self_17) self3_1))"
+"(let-values(((self_16) self3_1))"
 "(let-values(((bulk-binding-registry_12) bulk-binding-registry4_0))"
-"(let-values(((inspector_10) inspector5_0))"
+"(let-values(((inspector_11) inspector5_0))"
 "(let-values()"
 "(1/make-instance"
 " 'instance"
@@ -27423,11 +27007,11 @@ static const char *startup_source =
 " dest-phase-id"
 " dest-phase_0"
 " self-id"
-" self_17"
+" self_16"
 " bulk-binding-registry-id"
 " bulk-binding-registry_12"
 " inspector-id"
-" inspector_10"
+" inspector_11"
 " 'swap-top-level-scopes"
 " swap-top-level-scopes))))))))))"
 "(define-values"
@@ -27452,16 +27036,15 @@ static const char *startup_source =
 "(define-values(correlated?)(lambda(e_25)(begin(1/syntax? e_25))))"
 "(define-values"
 "(datum->correlated)"
-"(let-values(((datum->correlated4_0)"
-"(lambda(d3_0 srcloc1_0 srcloc2_0)"
+"(let-values(((datum->correlated3_0)"
+"(lambda(d2_0 srcloc1_0)"
 "(begin"
-" 'datum->correlated4"
-"(let-values(((d_26) d3_0))"
-"(let-values(((srcloc_6)(if srcloc2_0 srcloc1_0 #f)))"
-"(let-values()(datum->syntax$3 #f d_26 srcloc_6))))))))"
+" 'datum->correlated3"
+"(let-values(((d_26) d2_0))"
+"(let-values(((srcloc_6) srcloc1_0))(let-values()(datum->syntax$3 #f d_26 srcloc_6))))))))"
 "(case-lambda"
-"((d_27)(begin(datum->correlated4_0 d_27 #f #f)))"
-"((d_28 srcloc1_1)(datum->correlated4_0 d_28 srcloc1_1 #t)))))"
+"((d_27)(begin(datum->correlated3_0 d_27 #f)))"
+"((d_28 srcloc1_1)(datum->correlated3_0 d_28 srcloc1_1)))))"
 "(define-values(correlated-e)(lambda(e_26)(begin(if(1/syntax? e_26)(syntax-e$2 e_26) e_26))))"
 "(define-values(correlated-cadr)(lambda(e_27)(begin(car(correlated-e(cdr(correlated-e e_27)))))))"
 "(define-values"
@@ -27471,20 +27054,20 @@ static const char *startup_source =
 "(correlated->list)"
 "(lambda(e_29)"
 "(begin"
-"((letrec-values(((loop_90)"
+"((letrec-values(((loop_88)"
 "(lambda(e_30)"
 "(begin"
 " 'loop"
 "(if(list? e_30)"
 "(let-values() e_30)"
 "(if(pair? e_30)"
-"(let-values()(cons(car e_30)(loop_90(cdr e_30))))"
+"(let-values()(cons(car e_30)(loop_88(cdr e_30))))"
 "(if(null? e_30)"
 "(let-values() null)"
 "(if(1/syntax? e_30)"
-"(let-values()(loop_90(syntax-e$2 e_30)))"
+"(let-values()(loop_88(syntax-e$2 e_30)))"
 "                                    (let-values () (error 'correlated->list \"not a list\"))))))))))"
-" loop_90)"
+" loop_88)"
 " e_29))))"
 "(define-values"
 "(correlated-property)"
@@ -27493,20 +27076,20 @@ static const char *startup_source =
 "((e_32 k_32 v_162)(syntax-property$2 e_32 k_32 v_162))))"
 "(define-values"
 "(to-syntax-list.1$1)"
-"(lambda(s_107)"
+"(lambda(s_108)"
 "(begin"
 " 'to-syntax-list"
-"(if(list? s_107)"
-"(let-values() s_107)"
-"(if(pair? s_107)"
-"(let-values()(let-values(((r_39)(to-syntax-list.1$1(cdr s_107))))(if r_39(cons(car s_107) r_39) #f)))"
-"(if(1/syntax? s_107)(let-values()(to-syntax-list.1$1(syntax-e$2 s_107)))(let-values() #f)))))))"
+"(if(list? s_108)"
+"(let-values() s_108)"
+"(if(pair? s_108)"
+"(let-values()(let-values(((r_39)(to-syntax-list.1$1(cdr s_108))))(if r_39(cons(car s_108) r_39) #f)))"
+"(if(1/syntax? s_108)(let-values()(to-syntax-list.1$1(syntax-e$2 s_108)))(let-values() #f)))))))"
 "(define-values"
 "(srcloc->vector)"
-"(lambda(s_79)"
+"(lambda(s_80)"
 "(begin"
-"(if s_79"
-"(vector(srcloc-source s_79)(srcloc-line s_79)(srcloc-column s_79)(srcloc-position s_79)(srcloc-span s_79))"
+"(if s_80"
+"(vector(srcloc-source s_80)(srcloc-line s_80)(srcloc-column s_80)(srcloc-position s_80)(srcloc-span s_80))"
 " #f))))"
 "(define-values"
 "(correlate*)"
@@ -27520,30 +27103,30 @@ static const char *startup_source =
 "(define-values(->correlated)(lambda(s_2)(begin(datum->correlated s_2 #f))))"
 "(define-values"
 "(compile$2)"
-"(let-values(((compile7_0)"
-"(lambda(p5_0 cctx6_0 name1_0 result-used?2_0 name3_0 result-used?4_0)"
+"(let-values(((compile5_0)"
+"(lambda(p3_0 cctx4_0 name1_0 result-used?2_0)"
 "(begin"
-" 'compile7"
-"(let-values(((p_36) p5_0))"
-"(let-values(((cctx_1) cctx6_0))"
-"(let-values(((name_40)(if name3_0 name1_0 #f)))"
-"(let-values(((result-used?_0)(if result-used?4_0 result-used?2_0 #t)))"
+" 'compile5"
+"(let-values(((p_36) p3_0))"
+"(let-values(((cctx_1) cctx4_0))"
+"(let-values(((name_40) name1_0))"
+"(let-values(((result-used?_0) result-used?2_0))"
 "(let-values()"
 "(let-values(((compile_0)"
-"(lambda(p_37 name_41 result-used?_1)"
-"(begin 'compile(compile$2 p_37 cctx_1 name_41 result-used?_1)))))"
-"(let-values(((s_10)(parsed-s p_36)))"
+"(lambda(p_37 name_4 result-used?_1)"
+"(begin 'compile(compile$2 p_37 cctx_1 name_4 result-used?_1)))))"
+"(let-values(((s_170)(parsed-s p_36)))"
 "(if(parsed-id? p_36)"
 "(let-values()"
-"(let-values(((p27_0) p_36)((cctx28_0) cctx_1))"
-"(compile-identifier24.1 #f #f #f #f p27_0 cctx28_0)))"
+"(let-values(((p25_0) p_36)((cctx26_0) cctx_1))"
+"(compile-identifier22.1 #f #f p25_0 cctx26_0)))"
 "(if(parsed-lambda? p_36)"
 "(let-values()"
 "(if result-used?_0"
 "(let-values()"
 "(add-lambda-properties"
 "(correlate*"
-" s_10"
+" s_170"
 "(list*"
 " 'lambda"
 "(compile-lambda"
@@ -27551,36 +27134,36 @@ static const char *startup_source =
 "(parsed-lambda-body p_36)"
 " cctx_1)))"
 " name_40"
-" s_10))"
-"(let-values()(correlate~ s_10 ''unused-lambda))))"
+" s_170))"
+"(let-values()(correlate~ s_170 ''unused-lambda))))"
 "(if(parsed-case-lambda? p_36)"
 "(let-values()"
 "(if result-used?_0"
 "(let-values()"
 "(add-lambda-properties"
 "(correlate*"
-" s_10"
+" s_170"
 "(list*"
 " 'case-lambda"
 "(reverse$1"
-"(let-values(((lst_161)(parsed-case-lambda-clauses p_36)))"
+"(let-values(((lst_86)(parsed-case-lambda-clauses p_36)))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
-"(let-values()(check-list lst_161)))"
-"((letrec-values(((for-loop_190)"
-"(lambda(fold-var_155 lst_162)"
+"(let-values()(check-list lst_86)))"
+"((letrec-values(((for-loop_104)"
+"(lambda(fold-var_67 lst_87)"
 "(begin"
 " 'for-loop"
-"(if(pair? lst_162)"
+"(if(pair? lst_87)"
 "(let-values(((clause_0)"
-"(unsafe-car lst_162))"
-"((rest_84)"
-"(unsafe-cdr lst_162)))"
+"(unsafe-car lst_87))"
+"((rest_41)"
+"(unsafe-cdr lst_87)))"
+"(let-values(((fold-var_68)"
+"(let-values(((fold-var_27)"
+" fold-var_67))"
 "(let-values(((fold-var_28)"
-"(let-values(((fold-var_29)"
-" fold-var_155))"
-"(let-values(((fold-var_30)"
 "(let-values()"
 "(cons"
 "(let-values()"
@@ -27590,44 +27173,44 @@ static const char *startup_source =
 "(cadr"
 " clause_0)"
 " cctx_1))"
-" fold-var_29))))"
+" fold-var_27))))"
 "(values"
-" fold-var_30)))))"
+" fold-var_28)))))"
 "(if(not #f)"
-"(for-loop_190 fold-var_28 rest_84)"
-" fold-var_28)))"
-" fold-var_155)))))"
-" for-loop_190)"
+"(for-loop_104 fold-var_68 rest_41)"
+" fold-var_68)))"
+" fold-var_67)))))"
+" for-loop_104)"
 " null"
-" lst_161))))))"
+" lst_86))))))"
 " name_40"
-" s_10))"
-"(let-values()(correlate~ s_10 ''unused-case-lambda))))"
+" s_170))"
+"(let-values()(correlate~ s_170 ''unused-case-lambda))))"
 "(if(parsed-app? p_36)"
 "(let-values()"
 "(let-values(((rands_0)(parsed-app-rands p_36)))"
 "(correlate/app"
-" s_10"
+" s_170"
 "(cons"
 "(compile_0(parsed-app-rator p_36) #f #t)"
 "(reverse$1"
-"(let-values(((lst_41) rands_0))"
+"(let-values(((lst_88) rands_0))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
-"(let-values()(check-list lst_41)))"
-"((letrec-values(((for-loop_191)"
-"(lambda(fold-var_156 lst_163)"
+"(let-values()(check-list lst_88)))"
+"((letrec-values(((for-loop_189)"
+"(lambda(fold-var_150 lst_159)"
 "(begin"
 " 'for-loop"
-"(if(pair? lst_163)"
-"(let-values(((r_40)(unsafe-car lst_163))"
-"((rest_41)"
-"(unsafe-cdr lst_163)))"
-"(let-values(((fold-var_157)"
-"(let-values(((fold-var_9)"
-" fold-var_156))"
-"(let-values(((fold-var_70)"
+"(if(pair? lst_159)"
+"(let-values(((r_40)(unsafe-car lst_159))"
+"((rest_83)"
+"(unsafe-cdr lst_159)))"
+"(let-values(((fold-var_33)"
+"(let-values(((fold-var_34)"
+" fold-var_150))"
+"(let-values(((fold-var_151)"
 "(let-values()"
 "(cons"
 "(let-values()"
@@ -27635,16 +27218,16 @@ static const char *startup_source =
 " r_40"
 " #f"
 " #t))"
-" fold-var_9))))"
+" fold-var_34))))"
 "(values"
-" fold-var_70)))))"
+" fold-var_151)))))"
 "(if(not #f)"
-"(for-loop_191 fold-var_157 rest_41)"
-" fold-var_157)))"
-" fold-var_156)))))"
-" for-loop_191)"
+"(for-loop_189 fold-var_33 rest_83)"
+" fold-var_33)))"
+" fold-var_150)))))"
+" for-loop_189)"
 " null"
-" lst_41))))))))"
+" lst_88))))))))"
 "(if(parsed-if? p_36)"
 "(let-values()"
 "(let-values(((tst-e_0)(compile_0(parsed-if-tst p_36) #f #f)))"
@@ -27656,7 +27239,7 @@ static const char *startup_source =
 "(compile_0(parsed-if-els p_36) name_40 result-used?_0))"
 "(let-values()"
 "(correlate~"
-" s_10"
+" s_170"
 "(list"
 " 'if"
 " tst-e_0"
@@ -27665,7 +27248,7 @@ static const char *startup_source =
 "(if(parsed-with-continuation-mark? p_36)"
 "(let-values()"
 "(correlate~"
-" s_10"
+" s_170"
 "(list"
 " 'with-continuation-mark"
 "(compile_0(parsed-with-continuation-mark-key p_36) #f #t)"
@@ -27677,29 +27260,29 @@ static const char *startup_source =
 "(if(parsed-begin0? p_36)"
 "(let-values()"
 "(correlate~"
-" s_10"
+" s_170"
 "(list*"
 " 'begin0"
 "(compile_0(car(parsed-begin0-body p_36)) name_40 result-used?_0)"
 "(reverse$1"
-"(let-values(((lst_88)(cdr(parsed-begin0-body p_36))))"
+"(let-values(((lst_23)(cdr(parsed-begin0-body p_36))))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
-"(let-values()(check-list lst_88)))"
-"((letrec-values(((for-loop_109)"
-"(lambda(fold-var_11 lst_89)"
+"(let-values()(check-list lst_23)))"
+"((letrec-values(((for-loop_190)"
+"(lambda(fold-var_152 lst_79)"
 "(begin"
 " 'for-loop"
-"(if(pair? lst_89)"
+"(if(pair? lst_79)"
 "(let-values(((e_33)"
-"(unsafe-car lst_89))"
-"((rest_42)"
-"(unsafe-cdr lst_89)))"
+"(unsafe-car lst_79))"
+"((rest_84)"
+"(unsafe-cdr lst_79)))"
+"(let-values(((fold-var_153)"
+"(let-values(((fold-var_91)"
+" fold-var_152))"
 "(let-values(((fold-var_92)"
-"(let-values(((fold-var_93)"
-" fold-var_11))"
-"(let-values(((fold-var_158)"
 "(let-values()"
 "(cons"
 "(let-values()"
@@ -27707,22 +27290,22 @@ static const char *startup_source =
 " e_33"
 " #f"
 " #f))"
-" fold-var_93))))"
+" fold-var_91))))"
 "(values"
-" fold-var_158)))))"
+" fold-var_92)))))"
 "(if(not #f)"
-"(for-loop_109"
-" fold-var_92"
-" rest_42)"
-" fold-var_92)))"
-" fold-var_11)))))"
-" for-loop_109)"
+"(for-loop_190"
+" fold-var_153"
+" rest_84)"
+" fold-var_153)))"
+" fold-var_152)))))"
+" for-loop_190)"
 " null"
-" lst_88)))))))"
+" lst_23)))))))"
 "(if(parsed-begin? p_36)"
 "(let-values()"
 "(correlate~"
-" s_10"
+" s_170"
 "(compile-begin"
 "(parsed-begin-body p_36)"
 " cctx_1"
@@ -27731,143 +27314,134 @@ static const char *startup_source =
 "(if(parsed-set!? p_36)"
 "(let-values()"
 "(correlate~"
-" s_10"
-"(let-values(((temp29_1)(parsed-set!-id p_36))"
-"((cctx30_0) cctx_1)"
-"((temp31_1) #t)"
-"((temp32_1)"
+" s_170"
+"(let-values(((temp27_4)(parsed-set!-id p_36))"
+"((cctx28_0) cctx_1)"
+"((temp29_1) #t)"
+"((temp30_1)"
 "(compile_0"
 "(parsed-set!-rhs p_36)"
 "(parsed-s(parsed-set!-id p_36))"
 " #t)))"
-"(compile-identifier24.1"
-" temp32_1"
-" #t"
-" temp31_1"
-" #t"
-" temp29_1"
-" cctx30_0))))"
+"(compile-identifier22.1 temp30_1 temp29_1 temp27_4 cctx28_0))))"
 "(if(parsed-let-values? p_36)"
 "(let-values()"
-"(let-values(((p33_0) p_36)"
-"((cctx34_0) cctx_1)"
-"((name35_0) name_40)"
-"((temp36_0) #f)"
-"((result-used?37_0) result-used?_0))"
-"(compile-let15.1"
-" temp36_0"
-" p33_0"
-" cctx34_0"
-" name35_0"
-" result-used?37_0)))"
+"(let-values(((p31_0) p_36)"
+"((cctx32_0) cctx_1)"
+"((name33_0) name_40)"
+"((temp34_1) #f)"
+"((result-used?35_0) result-used?_0))"
+"(compile-let13.1"
+" temp34_1"
+" p31_0"
+" cctx32_0"
+" name33_0"
+" result-used?35_0)))"
 "(if(parsed-letrec-values? p_36)"
 "(let-values()"
-"(let-values(((p38_0) p_36)"
-"((cctx39_0) cctx_1)"
-"((name40_0) name_40)"
-"((temp41_0) #t)"
-"((result-used?42_0) result-used?_0))"
-"(compile-let15.1"
-" temp41_0"
-" p38_0"
-" cctx39_0"
-" name40_0"
-" result-used?42_0)))"
+"(let-values(((p36_0) p_36)"
+"((cctx37_0) cctx_1)"
+"((name38_0) name_40)"
+"((temp39_0) #t)"
+"((result-used?40_0) result-used?_0))"
+"(compile-let13.1"
+" temp39_0"
+" p36_0"
+" cctx37_0"
+" name38_0"
+" result-used?40_0)))"
 "(if(parsed-quote? p_36)"
 "(let-values()"
 "(let-values(((datum_1)(parsed-quote-datum p_36)))"
 "(if(self-quoting-in-linklet? datum_1)"
-"(let-values()(correlate~ s_10 datum_1))"
+"(let-values()(correlate~ s_170 datum_1))"
 "(let-values()"
-"(correlate~ s_10(list 'quote datum_1))))))"
+"(correlate~ s_170(list 'quote datum_1))))))"
 "(if(parsed-quote-syntax? p_36)"
 "(let-values()"
 "(if result-used?_0"
 "(compile-quote-syntax"
 "(parsed-quote-syntax-datum p_36)"
 " cctx_1)"
-"(correlate~ s_10(list 'quote(syntax->datum$1 s_10)))))"
+"(correlate~"
+" s_170"
+"(list 'quote(syntax->datum$1 s_170)))))"
 "(if(parsed-#%variable-reference? p_36)"
 "(let-values()"
-"(let-values(((id_46)"
+"(let-values(((id_45)"
 "(parsed-#%variable-reference-id p_36)))"
 "(correlate~"
-" s_10"
-"(if id_46"
+" s_170"
+"(if id_45"
 "(list"
 " '#%variable-reference"
-"(let-values(((id43_0) id_46)((cctx44_0) cctx_1))"
-"(compile-identifier24.1"
-" #f"
-" #f"
-" #f"
-" #f"
-" id43_0"
-" cctx44_0)))"
+"(let-values(((id41_0) id_45)((cctx42_0) cctx_1))"
+"(compile-identifier22.1 #f #f id41_0 cctx42_0)))"
 " '(#%variable-reference)))))"
 "(let-values()"
 "(error"
 "                                                                 \"unrecognized parsed form:\""
 " p_36)))))))))))))))))))))))))))"
 "(case-lambda"
-"((p_38 cctx_2)(begin 'compile(compile7_0 p_38 cctx_2 #f #f #f #f)))"
-"((p_39 cctx_3 name_42 result-used?2_1)(compile7_0 p_39 cctx_3 name_42 result-used?2_1 #t #t))"
-"((p_40 cctx_4 name1_1)(compile7_0 p_40 cctx_4 name1_1 #f #t #f)))))"
+"((p_38 cctx_2)(begin 'compile(compile5_0 p_38 cctx_2 #f #t)))"
+"((p_39 cctx_3 name_41 result-used?2_1)(compile5_0 p_39 cctx_3 name_41 result-used?2_1))"
+"((p_40 cctx_4 name1_1)(compile5_0 p_40 cctx_4 name1_1 #t)))))"
 "(define-values"
 "(compile-lambda)"
 "(lambda(formals_0 bodys_0 cctx_5)(begin(list formals_0(compile-sequence bodys_0 cctx_5 #f #t)))))"
 "(define-values"
 "(compile-sequence)"
-"(lambda(bodys_1 cctx_6 name_43 result-used?_2)"
+"(lambda(bodys_1 cctx_6 name_42 result-used?_2)"
 "(begin"
 "(if(null?(cdr bodys_1))"
-"(compile$2(car bodys_1) cctx_6 name_43 result-used?_2)"
-"(compile-begin bodys_1 cctx_6 name_43 result-used?_2)))))"
+"(compile$2(car bodys_1) cctx_6 name_42 result-used?_2)"
+"(compile-begin bodys_1 cctx_6 name_42 result-used?_2)))))"
 "(define-values"
 "(compile-begin)"
-"(lambda(es_0 cctx_7 name_44 result-used?_3)"
+"(lambda(es_0 cctx_7 name_43 result-used?_3)"
 "(begin"
 "(let-values(((used-pos_0)(sub1(length es_0))))"
 "(list*"
 " 'begin"
 "(reverse$1"
-"(let-values(((lst_164) es_0)((start_33) 0))"
+"(let-values(((lst_160) es_0)((start_33) 0))"
 "(begin"
-"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_164)))"
+"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_160)))"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
 "(let-values()(check-naturals start_33)))"
-"((letrec-values(((for-loop_192)"
-"(lambda(fold-var_159 lst_96 pos_89)"
+"((letrec-values(((for-loop_191)"
+"(lambda(fold-var_154 lst_161 pos_91)"
 "(begin"
 " 'for-loop"
-"(if(if(pair? lst_96) #t #f)"
-"(let-values(((e_34)(unsafe-car lst_96))"
-"((rest_85)(unsafe-cdr lst_96))"
-"((i_44) pos_89))"
-"(let-values(((fold-var_160)"
-"(let-values(((fold-var_81) fold-var_159))"
-"(let-values(((fold-var_82)"
+"(if(if(pair? lst_161) #t #f)"
+"(let-values(((e_4)(unsafe-car lst_161))"
+"((rest_85)(unsafe-cdr lst_161))"
+"((i_138) pos_91))"
+"(let-values(((fold-var_155)"
+"(let-values(((fold-var_156) fold-var_154))"
+"(let-values(((fold-var_157)"
 "(let-values()"
 "(cons"
 "(let-values()"
-"(let-values(((used?_0)(= i_44 used-pos_0)))"
+"(let-values(((used?_0)"
+"(= i_138 used-pos_0)))"
 "(compile$2"
-" e_34"
+" e_4"
 " cctx_7"
-"(if used?_0 name_44 #f)"
+"(if used?_0 name_43 #f)"
 "(if used?_0 result-used?_3 #f))))"
-" fold-var_81))))"
-"(values fold-var_82)))))"
-"(if(not #f)(for-loop_192 fold-var_160 rest_85(+ pos_89 1)) fold-var_160)))"
-" fold-var_159)))))"
-" for-loop_192)"
+" fold-var_156))))"
+"(values fold-var_157)))))"
+"(if(not #f)(for-loop_191 fold-var_155 rest_85(+ pos_91 1)) fold-var_155)))"
+" fold-var_154)))))"
+" for-loop_191)"
 " null"
-" lst_164"
+" lst_160"
 " start_33)))))))))"
 "(define-values"
 "(add-lambda-properties)"
-"(lambda(s_311 inferred-name_0 orig-s_21)"
+"(lambda(s_305 inferred-name_0 orig-s_21)"
 "(begin"
 "(letrec-values(((simplify-name_0)"
 "(lambda(v_163)"
@@ -27878,39 +27452,39 @@ static const char *startup_source =
 "(let-values(((n1_0)(simplify-name_0(car v_163))))"
 "(let-values(((n2_0)(simplify-name_0(cdr v_163))))(if(eq? n1_0 n2_0) n1_0 v_163))))"
 "(let-values() v_163))))))"
-"(let-values(((name_45)"
-"(let-values(((or-part_206)"
-"(let-values(((v_164)"
+"(let-values(((name_44)"
+"(let-values(((or-part_210)"
+"(let-values(((v_52)"
 "(simplify-name_0(syntax-property$1 orig-s_21 'inferred-name))))"
-"(if(let-values(((or-part_131)(symbol? v_164)))"
-"(if or-part_131"
-" or-part_131"
-"(let-values(((or-part_207)(syntax?$1 v_164)))"
-"(if or-part_207 or-part_207(void? v_164)))))"
-" v_164"
+"(if(let-values(((or-part_211)(symbol? v_52)))"
+"(if or-part_211"
+" or-part_211"
+"(let-values(((or-part_212)(syntax?$1 v_52)))"
+"(if or-part_212 or-part_212(void? v_52)))))"
+" v_52"
 " #f))))"
-"(if or-part_206 or-part_206 inferred-name_0))))"
+"(if or-part_210 or-part_210 inferred-name_0))))"
 "(let-values(((named-s_0)"
-"(if name_45"
+"(if name_44"
 "(correlated-property"
-"(->correlated s_311)"
+"(->correlated s_305)"
 " 'inferred-name"
-"(if(syntax?$1 name_45)(syntax-e$1 name_45) name_45))"
-" s_311)))"
+"(if(syntax?$1 name_44)(syntax-e$1 name_44) name_44))"
+" s_305)))"
 "(let-values(((as-method_0)(syntax-property$1 orig-s_21 'method-arity-error)))"
 "(if as-method_0"
 "(correlated-property(->correlated named-s_0) 'method-arity-error as-method_0)"
 " named-s_0))))))))"
 "(define-values"
-"(compile-let15.1)"
-"(lambda(rec?9_0 p11_0 cctx12_0 name13_0 result-used?14_0)"
+"(compile-let13.1)"
+"(lambda(rec?7_0 p9_0 cctx10_0 name11_0 result-used?12_0)"
 "(begin"
-" 'compile-let15"
-"(let-values(((p_41) p11_0))"
-"(let-values(((cctx_8) cctx12_0))"
-"(let-values(((name_46) name13_0))"
-"(let-values(((rec?_0) rec?9_0))"
-"(let-values(((result-used?_4) result-used?14_0))"
+" 'compile-let13"
+"(let-values(((p_41) p9_0))"
+"(let-values(((cctx_8) cctx10_0))"
+"(let-values(((name_45) name11_0))"
+"(let-values(((rec?_0) rec?7_0))"
+"(let-values(((result-used?_4) result-used?12_0))"
 "(let-values()"
 "(let-values(((body_0)(parsed-let_-values-body p_41)))"
 "(correlate~"
@@ -27918,37 +27492,37 @@ static const char *startup_source =
 "(list"
 "(if rec?_0 'letrec-values 'let-values)"
 "(reverse$1"
-"(let-values(((lst_165)(parsed-let_-values-clauses p_41))"
-"((lst_166)(parsed-let_-values-idss p_41)))"
+"(let-values(((lst_162)(parsed-let_-values-clauses p_41))"
+"((lst_163)(parsed-let_-values-idss p_41)))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
-"(let-values()(check-list lst_165)))"
+"(let-values()(check-list lst_162)))"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
-"(let-values()(check-list lst_166)))"
-"((letrec-values(((for-loop_57)"
-"(lambda(fold-var_161 lst_167 lst_168)"
+"(let-values()(check-list lst_163)))"
+"((letrec-values(((for-loop_192)"
+"(lambda(fold-var_158 lst_164 lst_165)"
 "(begin"
 " 'for-loop"
-"(if(if(pair? lst_167)(pair? lst_168) #f)"
-"(let-values(((clause_1)(unsafe-car lst_167))"
-"((rest_86)(unsafe-cdr lst_167))"
-"((ids_4)(unsafe-car lst_168))"
-"((rest_87)(unsafe-cdr lst_168)))"
-"(let-values(((fold-var_162)"
-"(let-values(((fold-var_163) fold-var_161))"
-"(let-values(((fold-var_164)"
+"(if(if(pair? lst_164)(pair? lst_165) #f)"
+"(let-values(((clause_1)(unsafe-car lst_164))"
+"((rest_86)(unsafe-cdr lst_164))"
+"((ids_4)(unsafe-car lst_165))"
+"((rest_87)(unsafe-cdr lst_165)))"
+"(let-values(((fold-var_159)"
+"(let-values(((fold-var_160) fold-var_158))"
+"(let-values(((fold-var_161)"
 "(let-values()"
 "(cons"
 "(let-values()"
 "(list"
 "(if rec?_0"
 "(reverse$1"
-"(let-values(((lst_169)"
+"(let-values(((lst_166)"
 "(car"
 " clause_1))"
-"((lst_170)"
+"((lst_167)"
 " ids_4))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
@@ -27956,61 +27530,61 @@ static const char *startup_source =
 "(void)"
 "(let-values()"
 "(check-list"
-" lst_169)))"
+" lst_166)))"
 "(if(variable-reference-from-unsafe?"
 "(#%variable-reference))"
 "(void)"
 "(let-values()"
 "(check-list"
-" lst_170)))"
-"((letrec-values(((for-loop_193)"
-"(lambda(fold-var_165"
-" lst_171"
-" lst_172)"
+" lst_167)))"
+"((letrec-values(((for-loop_78)"
+"(lambda(fold-var_162"
+" lst_168"
+" lst_169)"
 "(begin"
 " 'for-loop"
 "(if(if(pair?"
-" lst_171)"
+" lst_168)"
 "(pair?"
-" lst_172)"
+" lst_169)"
 " #f)"
-"(let-values(((sym_54)"
+"(let-values(((sym_55)"
 "(unsafe-car"
-" lst_171))"
+" lst_168))"
 "((rest_88)"
 "(unsafe-cdr"
-" lst_171))"
-"((id_47)"
+" lst_168))"
+"((id_46)"
 "(unsafe-car"
-" lst_172))"
+" lst_169))"
 "((rest_89)"
 "(unsafe-cdr"
-" lst_172)))"
+" lst_169)))"
+"(let-values(((fold-var_2)"
+"(let-values(((fold-var_3)"
+" fold-var_162))"
 "(let-values(((fold-var_94)"
-"(let-values(((fold-var_166)"
-" fold-var_165))"
-"(let-values(((fold-var_167)"
 "(let-values()"
 "(cons"
 "(let-values()"
 "(add-undefined-error-name-property"
-" sym_54"
-" id_47))"
-" fold-var_166))))"
+" sym_55"
+" id_46))"
+" fold-var_3))))"
 "(values"
-" fold-var_167)))))"
+" fold-var_94)))))"
 "(if(not"
 " #f)"
-"(for-loop_193"
-" fold-var_94"
+"(for-loop_78"
+" fold-var_2"
 " rest_88"
 " rest_89)"
-" fold-var_94)))"
-" fold-var_165)))))"
-" for-loop_193)"
+" fold-var_2)))"
+" fold-var_162)))))"
+" for-loop_78)"
 " null"
-" lst_169"
-" lst_170))))"
+" lst_166"
+" lst_167))))"
 "(car clause_1))"
 "(compile$2"
 "(cadr clause_1)"
@@ -28018,80 +27592,71 @@ static const char *startup_source =
 "(if(= 1(length ids_4))"
 "(car ids_4)"
 " #f))))"
-" fold-var_163))))"
-"(values fold-var_164)))))"
+" fold-var_160))))"
+"(values fold-var_161)))))"
 "(if(not #f)"
-"(for-loop_57 fold-var_162 rest_86 rest_87)"
-" fold-var_162)))"
-" fold-var_161)))))"
-" for-loop_57)"
+"(for-loop_192 fold-var_159 rest_86 rest_87)"
+" fold-var_159)))"
+" fold-var_158)))))"
+" for-loop_192)"
 " null"
-" lst_165"
-" lst_166))))"
-"(compile-sequence body_0 cctx_8 name_46 result-used?_4)))))))))))))"
+" lst_162"
+" lst_163))))"
+"(compile-sequence body_0 cctx_8 name_45 result-used?_4)))))))))))))"
 "(define-values"
 "(add-undefined-error-name-property)"
-"(lambda(sym_52 orig-id_0)"
+"(lambda(sym_21 orig-id_0)"
 "(begin"
-"(let-values(((id_48)(correlate~ orig-id_0 sym_52)))"
+"(let-values(((id_47)(correlate~ orig-id_0 sym_21)))"
 "(correlated-property"
-"(->correlated id_48)"
+"(->correlated id_47)"
 " 'undefined-error-name"
-"(let-values(((or-part_50)(syntax-property$1 orig-id_0 'undefined-error-name)))"
-"(if or-part_50 or-part_50(syntax-e$1 orig-id_0))))))))"
+"(let-values(((or-part_213)(syntax-property$1 orig-id_0 'undefined-error-name)))"
+"(if or-part_213 or-part_213(syntax-e$1 orig-id_0))))))))"
 "(define-values"
-"(compile-identifier24.1)"
-"(lambda(set-to19_0 set-to21_0 set-to?18_0 set-to?20_0 p22_0 cctx23_0)"
+"(compile-identifier22.1)"
+"(lambda(set-to17_0 set-to?16_0 p20_0 cctx21_0)"
 "(begin"
-" 'compile-identifier24"
-"(let-values(((p_42) p22_0))"
-"(let-values(((cctx_9) cctx23_0))"
-"(let-values(((set-to?_0)(if set-to?20_0 set-to?18_0 #f)))"
-"(let-values(((rhs_0)(if set-to21_0 set-to19_0 #f)))"
+" 'compile-identifier22"
+"(let-values(((p_42) p20_0))"
+"(let-values(((cctx_9) cctx21_0))"
+"(let-values(((set-to?_0) set-to?16_0))"
+"(let-values(((rhs_0) set-to17_0))"
 "(let-values()"
 "(let-values(((normal-b_0)(parsed-id-binding p_42)))"
-"(let-values(((b_72)"
-"(let-values(((or-part_208) normal-b_0))"
-"(if or-part_208"
-" or-part_208"
-"(let-values(((temp45_0)(compile-context-self cctx_9))"
-"((temp46_0)(compile-context-phase cctx_9))"
-"((temp47_0)(syntax-e$1(parsed-s p_42))))"
+"(let-values(((b_71)"
+"(let-values(((or-part_214) normal-b_0))"
+"(if or-part_214"
+" or-part_214"
+"(let-values(((temp43_0)(compile-context-self cctx_9))"
+"((temp44_0)(compile-context-phase cctx_9))"
+"((temp45_1)(syntax-e$1(parsed-s p_42))))"
 "(make-module-binding22.1"
 " #f"
+" null"
 " #f"
 " #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" temp45_0"
-" temp46_0"
-" temp47_0))))))"
-"(let-values(((sym_55)"
-"(if(local-binding? b_72)"
-"(let-values()(local-binding-key b_72))"
-"(if(module-binding? b_72)"
+" unsafe-undefined"
+" unsafe-undefined"
+" 0"
+" unsafe-undefined"
+" unsafe-undefined"
+" temp43_0"
+" temp44_0"
+" temp45_1))))))"
+"(let-values(((sym_56)"
+"(if(local-binding? b_71)"
+"(let-values()(local-binding-key b_71))"
+"(if(module-binding? b_71)"
 "(let-values()"
-"(let-values(((mpi_43)"
+"(let-values(((mpi_41)"
 "(if(parsed-top-id? p_42)"
 "(compile-context-self cctx_9)"
-"(module-binding-module b_72))))"
+"(module-binding-module b_71))))"
 "(if(parsed-primitive-id? p_42)"
 "(let-values()"
 "(begin"
-"(if(zero?(module-binding-phase b_72))"
+"(if(zero?(module-binding-phase b_71))"
 "(void)"
 "(let-values()"
 "                                                    (error \"internal error: non-zero phase for a primitive\")))"
@@ -28099,54 +27664,53 @@ static const char *startup_source =
 "(let-values()"
 "(error"
 "                                                     \"internal error: cannot assign to a primitive:\""
-"(module-binding-sym b_72)))"
+"(module-binding-sym b_71)))"
 "(void))"
-"(module-binding-sym b_72)))"
-"(if(eq? mpi_43(compile-context-module-self cctx_9))"
+"(module-binding-sym b_71)))"
+"(if(eq? mpi_41(compile-context-module-self cctx_9))"
 "(let-values()"
 "(let-values(((header_6)(compile-context-header cctx_9)))"
 "(hash-ref"
 "(header-binding-sym-to-define-sym header_6)"
-"(module-binding-sym b_72))))"
+"(module-binding-sym b_71))))"
 "(let-values()"
-"(let-values(((temp48_0)(compile-context-header cctx_9))"
-"((mpi49_0) mpi_43)"
-"((temp50_0)(module-binding-phase b_72))"
-"((temp51_0)(module-binding-sym b_72))"
-"((temp52_1)"
-"(let-values(((or-part_209)"
-"(module-binding-extra-inspector b_72)))"
-"(if or-part_209"
-" or-part_209"
-"(let-values(((or-part_210)"
+"(let-values(((temp46_0)(compile-context-header cctx_9))"
+"((mpi47_0) mpi_41)"
+"((temp48_1)(module-binding-phase b_71))"
+"((temp49_0)(module-binding-sym b_71))"
+"((temp50_0)"
+"(let-values(((or-part_215)"
+"(module-binding-extra-inspector b_71)))"
+"(if or-part_215"
+" or-part_215"
+"(let-values(((or-part_216)"
 "(parsed-id-inspector p_42)))"
-"(if or-part_210"
-" or-part_210"
+"(if or-part_216"
+" or-part_216"
 "(if(parsed-s p_42)"
 "(syntax-inspector(parsed-s p_42))"
 " #f)))))))"
 "(register-required-variable-use!19.1"
 " #f"
-" #f"
-" temp48_0"
-" mpi49_0"
-" temp50_0"
-" temp51_0"
-" temp52_1)))))))"
+" temp46_0"
+" mpi47_0"
+" temp48_1"
+" temp49_0"
+" temp50_0)))))))"
 "(let-values()"
 "(error"
 "                                         \"not a reference to a module or local binding:\""
-" b_72"
+" b_71"
 "(parsed-s p_42)))))))"
-"(correlate~(parsed-s p_42)(if set-to?_0(list 'set! sym_55 rhs_0) sym_55)))))))))))))"
+"(correlate~(parsed-s p_42)(if set-to?_0(list 'set! sym_56 rhs_0) sym_56)))))))))))))"
 "(define-values"
 "(compile-quote-syntax)"
 "(lambda(q_1 cctx_10)"
 "(begin"
-"(let-values(((pos_90)(add-syntax-literal!(compile-context-header cctx_10) q_1)))"
+"(let-values(((pos_92)(add-syntax-literal!(compile-context-header cctx_10) q_1)))"
 "(if(compile-context-lazy-syntax-literals? cctx_10)"
-"(let-values()(generate-lazy-syntax-literal-lookup pos_90))"
-"(let-values()(generate-eager-syntax-literal-lookup pos_90)))))))"
+"(let-values()(generate-lazy-syntax-literal-lookup pos_92))"
+"(let-values()(generate-eager-syntax-literal-lookup pos_92)))))))"
 "(define-values"
 "(extra-inspectors-allow?)"
 "(lambda(extra-inspectors_2 guard-insp_0)"
@@ -28155,33 +27719,33 @@ static const char *startup_source =
 "(let-values() #f)"
 "(if(set? extra-inspectors_2)"
 "(let-values()"
-"(let-values(((ht_111) extra-inspectors_2))"
+"(let-values(((ht_107) extra-inspectors_2))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
-"(let-values()(check-in-immutable-hash-keys ht_111)))"
-"((letrec-values(((for-loop_97)"
-"(lambda(result_79 i_138)"
+"(let-values()(check-in-immutable-hash-keys ht_107)))"
+"((letrec-values(((for-loop_94)"
+"(lambda(result_77 i_139)"
 "(begin"
 " 'for-loop"
-"(if i_138"
-"(let-values(((extra-insp_0)(unsafe-immutable-hash-iterate-key ht_111 i_138)))"
-"(let-values(((result_80)"
+"(if i_139"
+"(let-values(((extra-insp_0)(unsafe-immutable-hash-iterate-key ht_107 i_139)))"
+"(let-values(((result_78)"
 "(let-values()"
-"(let-values(((result_81)"
+"(let-values(((result_79)"
 "(let-values()"
 "(let-values()"
 "(inspector-superior?"
 " extra-insp_0"
 " guard-insp_0)))))"
-"(values result_81)))))"
-"(if(if(not((lambda x_54(not result_80)) extra-insp_0))(not #f) #f)"
-"(for-loop_97 result_80(unsafe-immutable-hash-iterate-next ht_111 i_138))"
-" result_80)))"
-" result_79)))))"
-" for-loop_97)"
+"(values result_79)))))"
+"(if(if(not((lambda x_56(not result_78)) extra-insp_0))(not #f) #f)"
+"(for-loop_94 result_78(unsafe-immutable-hash-iterate-next ht_107 i_139))"
+" result_78)))"
+" result_77)))))"
+" for-loop_94)"
 " #t"
-"(unsafe-immutable-hash-iterate-first ht_111)))))"
+"(unsafe-immutable-hash-iterate-first ht_107)))))"
 "(if(procedure? extra-inspectors_2)"
 "(let-values()(extra-inspectors_2 guard-insp_0))"
 "(let-values()"
@@ -28193,8 +27757,8 @@ static const char *startup_source =
 "(extra-inspectors-merge)"
 "(lambda(extra-inspectors-1_0 extra-inspectors-2_0)"
 "(begin"
-"(if(let-values(((or-part_211)(not extra-inspectors-1_0)))"
-"(if or-part_211 or-part_211(not extra-inspectors-2_0)))"
+"(if(let-values(((or-part_217)(not extra-inspectors-1_0)))"
+"(if or-part_217 or-part_217(not extra-inspectors-2_0)))"
 "(let-values() #f)"
 "(if(if(set? extra-inspectors-1_0)(set? extra-inspectors-2_0) #f)"
 "(let-values()(set-union extra-inspectors-1_0 extra-inspectors-2_0))"
@@ -28211,7 +27775,7 @@ static const char *startup_source =
 " module-use*-self-inspector"
 " set-module-use*-extra-inspectorss!"
 " set-module-use*-self-inspector!)"
-"(let-values(((struct:_68 make-_68 ?_68 -ref_68 -set!_68)"
+"(let-values(((struct:_69 make-_69 ?_69 -ref_69 -set!_69)"
 "(let-values()"
 "(let-values()"
 "(make-struct-type"
@@ -28227,13 +27791,13 @@ static const char *startup_source =
 " #f"
 " 'module-use*)))))"
 "(values"
-" struct:_68"
-" make-_68"
-" ?_68"
-"(make-struct-field-accessor -ref_68 0 'extra-inspectorss)"
-"(make-struct-field-accessor -ref_68 1 'self-inspector)"
-"(make-struct-field-mutator -set!_68 0 'extra-inspectorss)"
-"(make-struct-field-mutator -set!_68 1 'self-inspector))))"
+" struct:_69"
+" make-_69"
+" ?_69"
+"(make-struct-field-accessor -ref_69 0 'extra-inspectorss)"
+"(make-struct-field-accessor -ref_69 1 'self-inspector)"
+"(make-struct-field-mutator -set!_69 0 'extra-inspectorss)"
+"(make-struct-field-mutator -set!_69 1 'self-inspector))))"
 "(define-values"
 "(module-uses-add-extra-inspectorsss)"
 "(lambda(mus_1 extra-inspectorsss_0)"
@@ -28241,22 +27805,22 @@ static const char *startup_source =
 "(if extra-inspectorsss_0"
 "(let-values()"
 "(reverse$1"
-"(let-values(((lst_102) mus_1)((lst_88) extra-inspectorsss_0))"
+"(let-values(((lst_104) mus_1)((lst_90) extra-inspectorsss_0))"
 "(begin"
-"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_102)))"
-"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_88)))"
-"((letrec-values(((for-loop_109)"
-"(lambda(fold-var_11 lst_89 lst_173)"
+"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_104)))"
+"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_90)))"
+"((letrec-values(((for-loop_106)"
+"(lambda(fold-var_11 lst_91 lst_170)"
 "(begin"
 " 'for-loop"
-"(if(if(pair? lst_89)(pair? lst_173) #f)"
-"(let-values(((mu_5)(unsafe-car lst_89))"
-"((rest_90)(unsafe-cdr lst_89))"
-"((extra-inspectorss_1)(unsafe-car lst_173))"
-"((rest_36)(unsafe-cdr lst_173)))"
-"(let-values(((fold-var_168)"
-"(let-values(((fold-var_169) fold-var_11))"
-"(let-values(((fold-var_170)"
+"(if(if(pair? lst_91)(pair? lst_170) #f)"
+"(let-values(((mu_5)(unsafe-car lst_91))"
+"((rest_90)(unsafe-cdr lst_91))"
+"((extra-inspectorss_1)(unsafe-car lst_170))"
+"((rest_37)(unsafe-cdr lst_170)))"
+"(let-values(((fold-var_163)"
+"(let-values(((fold-var_164) fold-var_11))"
+"(let-values(((fold-var_165)"
 "(let-values()"
 "(cons"
 "(let-values()"
@@ -28265,28 +27829,28 @@ static const char *startup_source =
 "(module-use-phase mu_5)"
 " extra-inspectorss_1"
 " #f))"
-" fold-var_169))))"
-"(values fold-var_170)))))"
-"(if(not #f)(for-loop_109 fold-var_168 rest_90 rest_36) fold-var_168)))"
+" fold-var_164))))"
+"(values fold-var_165)))))"
+"(if(not #f)(for-loop_106 fold-var_163 rest_90 rest_37) fold-var_163)))"
 " fold-var_11)))))"
-" for-loop_109)"
+" for-loop_106)"
 " null"
-" lst_102"
-" lst_88)))))"
+" lst_104"
+" lst_90)))))"
 "(let-values()"
 "(reverse$1"
-"(let-values(((lst_90) mus_1))"
+"(let-values(((lst_92) mus_1))"
 "(begin"
-"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_90)))"
-"((letrec-values(((for-loop_194)"
-"(lambda(fold-var_171 lst_17)"
+"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_92)))"
+"((letrec-values(((for-loop_193)"
+"(lambda(fold-var_166 lst_17)"
 "(begin"
 " 'for-loop"
 "(if(pair? lst_17)"
 "(let-values(((mu_6)(unsafe-car lst_17))((rest_91)(unsafe-cdr lst_17)))"
 "(let-values(((fold-var_63)"
-"(let-values(((fold-var_172) fold-var_171))"
-"(let-values(((fold-var_173)"
+"(let-values(((fold-var_167) fold-var_166))"
+"(let-values(((fold-var_168)"
 "(let-values()"
 "(cons"
 "(let-values()"
@@ -28295,30 +27859,30 @@ static const char *startup_source =
 "(module-use-phase mu_6)"
 " #f"
 " #f))"
-" fold-var_172))))"
-"(values fold-var_173)))))"
-"(if(not #f)(for-loop_194 fold-var_63 rest_91) fold-var_63)))"
-" fold-var_171)))))"
-" for-loop_194)"
+" fold-var_167))))"
+"(values fold-var_168)))))"
+"(if(not #f)(for-loop_193 fold-var_63 rest_91) fold-var_63)))"
+" fold-var_166)))))"
+" for-loop_193)"
 " null"
-" lst_90)))))))))"
+" lst_92)))))))))"
 "(define-values"
 "(module-uses-strip-extra-inspectorsss)"
 "(lambda(mu*s_0)"
 "(begin"
 "(reverse$1"
-"(let-values(((lst_174) mu*s_0))"
+"(let-values(((lst_171) mu*s_0))"
 "(begin"
-"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_174)))"
-"((letrec-values(((for-loop_195)"
-"(lambda(fold-var_72 lst_175)"
+"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_171)))"
+"((letrec-values(((for-loop_194)"
+"(lambda(fold-var_72 lst_172)"
 "(begin"
 " 'for-loop"
-"(if(pair? lst_175)"
-"(let-values(((mu*_0)(unsafe-car lst_175))((rest_92)(unsafe-cdr lst_175)))"
+"(if(pair? lst_172)"
+"(let-values(((mu*_0)(unsafe-car lst_172))((rest_92)(unsafe-cdr lst_172)))"
 "(let-values(((fold-var_17)"
 "(let-values(((fold-var_73) fold-var_72))"
-"(let-values(((fold-var_174)"
+"(let-values(((fold-var_169)"
 "(let-values()"
 "(cons"
 "(let-values()"
@@ -28326,12 +27890,12 @@ static const char *startup_source =
 "(module-use-module mu*_0)"
 "(module-use-phase mu*_0)))"
 " fold-var_73))))"
-"(values fold-var_174)))))"
-"(if(not #f)(for-loop_195 fold-var_17 rest_92) fold-var_17)))"
+"(values fold-var_169)))))"
+"(if(not #f)(for-loop_194 fold-var_17 rest_92) fold-var_17)))"
 " fold-var_72)))))"
-" for-loop_195)"
+" for-loop_194)"
 " null"
-" lst_174)))))))"
+" lst_171)))))))"
 "(define-values"
 "(module-uses-extract-extra-inspectorsss)"
 "(lambda(mu*s_1 linklet_0 check-inlined-reference?_0 skip-n_0)"
@@ -28339,72 +27903,72 @@ static const char *startup_source =
 "(if(not check-inlined-reference?_0)"
 "(let-values()"
 "(reverse$1"
-"(let-values(((lst_176) mu*s_1))"
+"(let-values(((lst_173) mu*s_1))"
 "(begin"
-"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_176)))"
-"((letrec-values(((for-loop_196)"
-"(lambda(fold-var_76 lst_94)"
+"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_173)))"
+"((letrec-values(((for-loop_195)"
+"(lambda(fold-var_76 lst_96)"
 "(begin"
 " 'for-loop"
-"(if(pair? lst_94)"
-"(let-values(((mu*_1)(unsafe-car lst_94))((rest_93)(unsafe-cdr lst_94)))"
-"(let-values(((fold-var_175)"
+"(if(pair? lst_96)"
+"(let-values(((mu*_1)(unsafe-car lst_96))((rest_93)(unsafe-cdr lst_96)))"
+"(let-values(((fold-var_170)"
 "(let-values(((fold-var_4) fold-var_76))"
-"(let-values(((fold-var_176)"
+"(let-values(((fold-var_171)"
 "(let-values()"
 "(cons"
 "(let-values()"
 "(module-use*-extra-inspectorss mu*_1))"
 " fold-var_4))))"
-"(values fold-var_176)))))"
-"(if(not #f)(for-loop_196 fold-var_175 rest_93) fold-var_175)))"
+"(values fold-var_171)))))"
+"(if(not #f)(for-loop_195 fold-var_170 rest_93) fold-var_170)))"
 " fold-var_76)))))"
-" for-loop_196)"
+" for-loop_195)"
 " null"
-" lst_176)))))"
+" lst_173)))))"
 "(let-values()"
 "(reverse$1"
-"(let-values(((lst_177) mu*s_1)((lst_178)(list-tail(1/linklet-import-variables linklet_0) skip-n_0)))"
+"(let-values(((lst_174) mu*s_1)((lst_175)(list-tail(1/linklet-import-variables linklet_0) skip-n_0)))"
 "(begin"
-"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_177)))"
-"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_178)))"
+"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_174)))"
+"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_175)))"
 "((letrec-values(((for-loop_28)"
-"(lambda(fold-var_6 lst_179 lst_180)"
+"(lambda(fold-var_6 lst_176 lst_160)"
 "(begin"
 " 'for-loop"
-"(if(if(pair? lst_179)(pair? lst_180) #f)"
-"(let-values(((mu*_2)(unsafe-car lst_179))"
-"((rest_94)(unsafe-cdr lst_179))"
-"((imports_0)(unsafe-car lst_180))"
-"((rest_95)(unsafe-cdr lst_180)))"
-"(let-values(((fold-var_159)"
-"(let-values(((fold-var_177) fold-var_6))"
-"(let-values(((fold-var_178)"
+"(if(if(pair? lst_176)(pair? lst_160) #f)"
+"(let-values(((mu*_2)(unsafe-car lst_176))"
+"((rest_94)(unsafe-cdr lst_176))"
+"((imports_0)(unsafe-car lst_160))"
+"((rest_95)(unsafe-cdr lst_160)))"
+"(let-values(((fold-var_172)"
+"(let-values(((fold-var_173) fold-var_6))"
+"(let-values(((fold-var_174)"
 "(let-values()"
 "(cons"
 "(let-values()"
 "(let-values(((extra-inspectorss_2)"
 "(module-use*-extra-inspectorss"
 " mu*_2)))"
-"(let-values(((lst_97) imports_0))"
+"(let-values(((lst_99) imports_0))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
 "(#%variable-reference))"
 "(void)"
-"(let-values()(check-list lst_97)))"
+"(let-values()(check-list lst_99)))"
 "((letrec-values(((for-loop_19)"
 "(lambda(extra-inspectorss_3"
-" lst_181)"
+" lst_177)"
 "(begin"
 " 'for-loop"
 "(if(pair?"
-" lst_181)"
+" lst_177)"
 "(let-values(((import_0)"
 "(unsafe-car"
-" lst_181))"
+" lst_177))"
 "((rest_96)"
 "(unsafe-cdr"
-" lst_181)))"
+" lst_177)))"
 "(let-values(((extra-inspectorss_4)"
 "(let-values(((extra-inspectorss_5)"
 " extra-inspectorss_3))"
@@ -28436,47 +28000,47 @@ static const char *startup_source =
 " extra-inspectorss_3)))))"
 " for-loop_19)"
 " extra-inspectorss_2"
-" lst_97)))))"
-" fold-var_177))))"
-"(values fold-var_178)))))"
-"(if(not #f)(for-loop_28 fold-var_159 rest_94 rest_95) fold-var_159)))"
+" lst_99)))))"
+" fold-var_173))))"
+"(values fold-var_174)))))"
+"(if(not #f)(for-loop_28 fold-var_172 rest_94 rest_95) fold-var_172)))"
 " fold-var_6)))))"
 " for-loop_28)"
 " null"
-" lst_177"
-" lst_178)))))))))"
+" lst_174"
+" lst_175)))))))))"
 "(define-values"
 "(module-use*-declaration-inspector!)"
 "(lambda(mu*_3 insp_9)(begin(set-module-use*-self-inspector! mu*_3 insp_9))))"
 "(define-values"
 "(module-use+extra-inspectors)"
-"(lambda(mpi_44 phase_73 imports_1 inspector_11 extra-inspector_5 extra-inspectorss_7)"
+"(lambda(mpi_42 phase_70 imports_1 inspector_12 extra-inspector_5 extra-inspectorss_7)"
 "(begin"
 "(let-values(((now-inspector_0)(current-code-inspector)))"
-"(let-values(((add-insp?_0)(if inspector_11(inspector-superior? inspector_11 now-inspector_0) #f)))"
+"(let-values(((add-insp?_0)(if inspector_12(inspector-superior? inspector_12 now-inspector_0) #f)))"
 "(let-values(((add-extra-insp?_0)"
 "(if extra-inspector_5(inspector-superior? extra-inspector_5 now-inspector_0) #f)))"
 "(let-values(((new-extra-inspectorss_0)"
-"(if(let-values(((or-part_212) add-insp?_0))(if or-part_212 or-part_212 add-extra-insp?_0))"
+"(if(let-values(((or-part_218) add-insp?_0))(if or-part_218 or-part_218 add-extra-insp?_0))"
 "(let-values()"
-"(let-values(((lst_182) imports_1))"
+"(let-values(((lst_178) imports_1))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
-"(let-values()(check-list lst_182)))"
-"((letrec-values(((for-loop_197)"
-"(lambda(table_151 lst_183)"
+"(let-values()(check-list lst_178)))"
+"((letrec-values(((for-loop_196)"
+"(lambda(table_148 lst_179)"
 "(begin"
 " 'for-loop"
-"(if(pair? lst_183)"
-"(let-values(((import_1)(unsafe-car lst_183))"
-"((rest_97)(unsafe-cdr lst_183)))"
-"(let-values(((table_152)"
-"(let-values(((table_153) table_151))"
-"(let-values(((table_154)"
+"(if(pair? lst_179)"
+"(let-values(((import_1)(unsafe-car lst_179))"
+"((rest_97)(unsafe-cdr lst_179)))"
+"(let-values(((table_149)"
+"(let-values(((table_150) table_148))"
+"(let-values(((table_151)"
 "(let-values()"
-"(let-values(((key_56"
-" val_51)"
+"(let-values(((key_57"
+" val_50)"
 "(let-values()"
 "(values"
 " import_1"
@@ -28488,48 +28052,48 @@ static const char *startup_source =
 " #f)"
 " #f)))"
 "(lambda(guard-insp_2)"
-"(let-values(((or-part_55)"
+"(let-values(((or-part_219)"
 "(if add-insp?_0"
 "(inspector-superior?"
-" inspector_11"
+" inspector_12"
 " guard-insp_2)"
 " #f)))"
-"(if or-part_55"
-" or-part_55"
-"(let-values(((or-part_98)"
+"(if or-part_219"
+" or-part_219"
+"(let-values(((or-part_101)"
 "(if add-extra-insp?_0"
 "(inspector-superior?"
 " extra-inspector_5"
 " guard-insp_2)"
 " #f)))"
-"(if or-part_98"
-" or-part_98"
+"(if or-part_101"
+" or-part_101"
 "(extra-inspectors-allow?"
 " extra-inspectors_3"
 " guard-insp_2)))))))))))"
 "(hash-set"
-" table_153"
-" key_56"
-" val_51)))))"
-"(values table_154)))))"
-"(if(not #f)(for-loop_197 table_152 rest_97) table_152)))"
-" table_151)))))"
-" for-loop_197)"
+" table_150"
+" key_57"
+" val_50)))))"
+"(values table_151)))))"
+"(if(not #f)(for-loop_196 table_149 rest_97) table_149)))"
+" table_148)))))"
+" for-loop_196)"
 " '#hash()"
-" lst_182))))"
+" lst_178))))"
 "(let-values()"
-"(let-values(((lst_184) imports_1))"
+"(let-values(((lst_180) imports_1))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
-"(let-values()(check-list lst_184)))"
-"((letrec-values(((for-loop_198)"
-"(lambda(extra-inspectorss_8 lst_185)"
+"(let-values()(check-list lst_180)))"
+"((letrec-values(((for-loop_197)"
+"(lambda(extra-inspectorss_8 lst_163)"
 "(begin"
 " 'for-loop"
-"(if(pair? lst_185)"
-"(let-values(((import_2)(unsafe-car lst_185))"
-"((rest_98)(unsafe-cdr lst_185)))"
+"(if(pair? lst_163)"
+"(let-values(((import_2)(unsafe-car lst_163))"
+"((rest_98)(unsafe-cdr lst_163)))"
 "(let-values(((extra-inspectorss_9)"
 "(let-values(((extra-inspectorss_10)"
 " extra-inspectorss_8))"
@@ -28546,14 +28110,13 @@ static const char *startup_source =
 " #f)))))"
 "(values extra-inspectorss_11)))))"
 "(if(not #f)"
-"(for-loop_198 extra-inspectorss_9 rest_98)"
+"(for-loop_197 extra-inspectorss_9 rest_98)"
 " extra-inspectorss_9)))"
 " extra-inspectorss_8)))))"
-" for-loop_198)"
-"(let-values(((or-part_213) extra-inspectorss_7))"
-"(if or-part_213 or-part_213(seteq)))"
-" lst_184)))))))"
-"(module-use*1.1 mpi_44 phase_73 new-extra-inspectorss_0 #f))))))))"
+" for-loop_197)"
+"(let-values(((or-part_38) extra-inspectorss_7))(if or-part_38 or-part_38(seteq)))"
+" lst_180)))))))"
+"(module-use*1.1 mpi_42 phase_70 new-extra-inspectorss_0 #f))))))))"
 "(define-values"
 "(module-use-merge-extra-inspectorss!)"
 "(lambda(existing-mu*_0 mu*_4)"
@@ -28561,18 +28124,18 @@ static const char *startup_source =
 "(let-values(((extra-inspectorss_12)(module-use*-extra-inspectorss mu*_4)))"
 "(let-values(((existing-extra-inspectorss_0)(module-use*-extra-inspectorss existing-mu*_0)))"
 "(let-values(((new-extra-inspectorss_1)"
-"(let-values(((ht_112) extra-inspectorss_12))"
+"(let-values(((ht_108) extra-inspectorss_12))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
-"(let-values()(check-in-hash ht_112)))"
-"((letrec-values(((for-loop_199)"
-"(lambda(new-extra-inspectorss_2 i_139)"
+"(let-values()(check-in-hash ht_108)))"
+"((letrec-values(((for-loop_198)"
+"(lambda(new-extra-inspectorss_2 i_140)"
 "(begin"
 " 'for-loop"
-"(if i_139"
-"(let-values(((sym_56 extra-inspectors_4)"
-"(hash-iterate-key+value ht_112 i_139)))"
+"(if i_140"
+"(let-values(((sym_57 extra-inspectors_4)"
+"(hash-iterate-key+value ht_108 i_140)))"
 "(let-values(((new-extra-inspectorss_3)"
 "(let-values(((new-extra-inspectorss_4)"
 " new-extra-inspectorss_2))"
@@ -28580,23 +28143,23 @@ static const char *startup_source =
 "(let-values()"
 "(hash-set"
 " new-extra-inspectorss_4"
-" sym_56"
+" sym_57"
 "(extra-inspectors-merge"
 " extra-inspectors_4"
 "(hash-ref"
 " new-extra-inspectorss_4"
-" sym_56"
+" sym_57"
 "(seteq)))))))"
 "(values new-extra-inspectorss_5)))))"
 "(if(not #f)"
-"(for-loop_199"
+"(for-loop_198"
 " new-extra-inspectorss_3"
-"(hash-iterate-next ht_112 i_139))"
+"(hash-iterate-next ht_108 i_140))"
 " new-extra-inspectorss_3)))"
 " new-extra-inspectorss_2)))))"
-" for-loop_199)"
+" for-loop_198)"
 " existing-extra-inspectorss_0"
-"(hash-iterate-first ht_112))))))"
+"(hash-iterate-first ht_108))))))"
 "(set-module-use*-extra-inspectorss! existing-mu*_0 new-extra-inspectorss_1)))))))"
 "(define-values"
 "(struct:link-info"
@@ -28606,100 +28169,90 @@ static const char *startup_source =
 " link-info-imports"
 " link-info-extra-inspectorsss"
 " link-info-def-decls)"
-"(let-values(((struct:_35 make-_35 ?_35 -ref_35 -set!_35)"
+"(let-values(((struct:_36 make-_36 ?_36 -ref_36 -set!_36)"
 "(let-values()"
 "(let-values()"
 "(make-struct-type 'link-info #f 4 0 #f null(current-inspector) #f '(0 1 2 3) #f 'link-info)))))"
 "(values"
-" struct:_35"
-" make-_35"
-" ?_35"
-"(make-struct-field-accessor -ref_35 0 'link-module-uses)"
-"(make-struct-field-accessor -ref_35 1 'imports)"
-"(make-struct-field-accessor -ref_35 2 'extra-inspectorsss)"
-"(make-struct-field-accessor -ref_35 3 'def-decls))))"
+" struct:_36"
+" make-_36"
+" ?_36"
+"(make-struct-field-accessor -ref_36 0 'link-module-uses)"
+"(make-struct-field-accessor -ref_36 1 'imports)"
+"(make-struct-field-accessor -ref_36 2 'extra-inspectorsss)"
+"(make-struct-field-accessor -ref_36 3 'def-decls))))"
 "(define-values"
 "(compile-forms31.1)"
 "(lambda(body-import-instances3_0"
 " body-imports2_0"
 " body-suffix-forms4_0"
-" body-suffix-forms17_0"
 " compiled-expression-callback8_0"
-" compiled-expression-callback21_0"
 " cross-linklet-inlining?14_0"
-" cross-linklet-inlining?27_0"
 " definition-callback9_0"
-" definition-callback22_0"
 " encoded-root-expand-ctx-box6_0"
-" encoded-root-expand-ctx-box19_0"
 " force-phases5_0"
-" force-phases18_0"
 " get-module-linklet-info11_0"
-" get-module-linklet-info24_0"
 " other-form-callback10_0"
-" other-form-callback23_0"
 " root-ctx-only-if-syntax?7_0"
-" root-ctx-only-if-syntax?20_0"
 " serializable?13_0"
-" serializable?26_0"
 " to-source?12_0"
-" to-source?25_0"
 " bodys28_0"
 " cctx29_0"
 " mpis30_0)"
 "(begin"
 " 'compile-forms31"
 "(let-values(((bodys_2) bodys28_0))"
-"(let-values(((cctx_3) cctx29_0))"
+"(let-values(((cctx_11) cctx29_0))"
 "(let-values(((mpis_15) mpis30_0))"
 "(let-values(((body-imports_0) body-imports2_0))"
 "(let-values(((body-import-instances_0) body-import-instances3_0))"
-"(let-values(((body-suffix-forms_0)(if body-suffix-forms17_0 body-suffix-forms4_0 null)))"
-"(let-values(((force-phases_0)(if force-phases18_0 force-phases5_0 null)))"
-"(let-values(((encoded-root-expand-ctx-box_0)"
-"(if encoded-root-expand-ctx-box19_0 encoded-root-expand-ctx-box6_0 #f)))"
-"(let-values(((root-ctx-only-if-syntax?_0)"
-"(if root-ctx-only-if-syntax?20_0 root-ctx-only-if-syntax?7_0 #f)))"
+"(let-values(((body-suffix-forms_0) body-suffix-forms4_0))"
+"(let-values(((force-phases_0) force-phases5_0))"
+"(let-values(((encoded-root-expand-ctx-box_0) encoded-root-expand-ctx-box6_0))"
+"(let-values(((root-ctx-only-if-syntax?_0) root-ctx-only-if-syntax?7_0))"
 "(let-values(((compiled-expression-callback_0)"
-"(if compiled-expression-callback21_0 compiled-expression-callback8_0 void)))"
+"(if(eq? compiled-expression-callback8_0 unsafe-undefined)"
+" void"
+" compiled-expression-callback8_0)))"
 "(let-values(((definition-callback_0)"
-"(if definition-callback22_0 definition-callback9_0 void)))"
+"(if(eq? definition-callback9_0 unsafe-undefined) void definition-callback9_0)))"
 "(let-values(((other-form-callback_0)"
-"(if other-form-callback23_0 other-form-callback10_0 void)))"
+"(if(eq? other-form-callback10_0 unsafe-undefined)"
+" void"
+" other-form-callback10_0)))"
 "(let-values(((get-module-linklet-info_0)"
-"(if get-module-linklet-info24_0"
-" get-module-linklet-info11_0"
-"(lambda(mod-name_14 p_43)(begin 'get-module-linklet-info #f)))))"
-"(let-values(((to-source?_0)(if to-source?25_0 to-source?12_0 #f)))"
-"(let-values(((serializable?_0)(if serializable?26_0 serializable?13_0 #t)))"
-"(let-values(((cross-linklet-inlining?_1)"
-"(if cross-linklet-inlining?27_0 cross-linklet-inlining?14_0 #t)))"
+"(if(eq? get-module-linklet-info11_0 unsafe-undefined)"
+"(lambda(mod-name_14 p_43)(begin 'get-module-linklet-info #f))"
+" get-module-linklet-info11_0)))"
+"(let-values(((to-source?_0) to-source?12_0))"
+"(let-values(((serializable?_0) serializable?13_0))"
+"(let-values(((cross-linklet-inlining?_1) cross-linklet-inlining?14_0))"
 "(let-values()"
-"(let-values(((phase_74)(compile-context-phase cctx_3)))"
-"(let-values(((self_18)(compile-context-self cctx_3)))"
+"(let-values(((phase_71)(compile-context-phase cctx_11)))"
+"(let-values(((self_17)(compile-context-self cctx_11)))"
 "(let-values(((syntax-literals_1)(make-syntax-literals)))"
 "(let-values(((phase-to-body_0)(make-hasheqv)))"
 "(let-values(((add-body!_0)"
-"(lambda(phase_73 body_1)"
+"(lambda(phase_72 body_1)"
 "(begin"
 " 'add-body!"
 "(hash-update!"
 " phase-to-body_0"
-" phase_73"
-"(lambda(l_55)(cons body_1 l_55))"
+" phase_72"
+"(lambda(l_21)(cons body_1 l_21))"
 " null)))))"
 "(let-values(((phase-to-header_0)(make-hasheqv)))"
 "(let-values(((find-or-create-header!_0)"
-"(lambda(phase_75)"
+"(lambda(phase_73)"
 "(begin"
 " 'find-or-create-header!"
-"(let-values(((or-part_206)"
+"(let-values(((or-part_220)"
 "(hash-ref"
 " phase-to-header_0"
-" phase_75"
+" phase_73"
 " #f)))"
-"(if or-part_206"
-" or-part_206"
+"(if or-part_220"
+" or-part_220"
 "(let-values(((header_7)"
 "(make-header"
 " mpis_15"
@@ -28707,28 +28260,28 @@ static const char *startup_source =
 "(begin"
 "(hash-set!"
 " phase-to-header_0"
-" phase_75"
+" phase_73"
 " header_7)"
 " header_7))))))))"
 "(let-values((()"
 "(begin"
-"(let-values(((lst_186) force-phases_0))"
+"(let-values(((lst_100) force-phases_0))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
 "(#%variable-reference))"
 "(void)"
-"(let-values()(check-list lst_186)))"
-"((letrec-values(((for-loop_200)"
-"(lambda(lst_187)"
+"(let-values()(check-list lst_100)))"
+"((letrec-values(((for-loop_110)"
+"(lambda(lst_26)"
 "(begin"
 " 'for-loop"
-"(if(pair? lst_187)"
-"(let-values(((phase_76)"
+"(if(pair? lst_26)"
+"(let-values(((phase_74)"
 "(unsafe-car"
-" lst_187))"
+" lst_26))"
 "((rest_99)"
 "(unsafe-cdr"
-" lst_187)))"
+" lst_26)))"
 "(let-values((()"
 "(let-values()"
 "(let-values((()"
@@ -28737,34 +28290,34 @@ static const char *startup_source =
 "(let-values()"
 "(begin"
 "(find-or-create-header!_0"
-" phase_76)"
+" phase_74)"
 "(add-body!_0"
-" phase_76"
+" phase_74"
 " '(void))))"
 "(values)))))"
 "(values)))))"
 "(if(not #f)"
-"(for-loop_200"
+"(for-loop_110"
 " rest_99)"
 "(values))))"
 "(values))))))"
-" for-loop_200)"
-" lst_186)))"
+" for-loop_110)"
+" lst_100)))"
 "(values))))"
 "(let-values()"
 "(let-values(((saw-define-syntaxes?_0) #f))"
 "(let-values((()"
 "(begin"
-"(if(compile-context-module-self cctx_3)"
+"(if(compile-context-module-self cctx_11)"
 "(let-values()"
 "((letrec-values(((loop!_0)"
 "(lambda(bodys_3"
-" phase_77"
+" phase_7"
 " header_8)"
 "(begin"
 " 'loop!"
 "(begin"
-"(let-values(((lst_188)"
+"(let-values(((lst_181)"
 " bodys_3))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
@@ -28772,19 +28325,19 @@ static const char *startup_source =
 "(void)"
 "(let-values()"
 "(check-list"
-" lst_188)))"
-"((letrec-values(((for-loop_201)"
-"(lambda(lst_189)"
+" lst_181)))"
+"((letrec-values(((for-loop_199)"
+"(lambda(lst_182)"
 "(begin"
 " 'for-loop"
 "(if(pair?"
-" lst_189)"
+" lst_182)"
 "(let-values(((body_2)"
 "(unsafe-car"
-" lst_189))"
+" lst_182))"
 "((rest_100)"
 "(unsafe-cdr"
-" lst_189)))"
+" lst_182)))"
 "(let-values((()"
 "(let-values()"
 "(let-values((()"
@@ -28795,7 +28348,7 @@ static const char *startup_source =
 " body_2)"
 "(let-values()"
 "(begin"
-"(let-values(((lst_190)"
+"(let-values(((lst_183)"
 "(parsed-define-values-syms"
 " body_2)))"
 "(begin"
@@ -28804,19 +28357,19 @@ static const char *startup_source =
 "(void)"
 "(let-values()"
 "(check-list"
-" lst_190)))"
-"((letrec-values(((for-loop_202)"
-"(lambda(lst_191)"
+" lst_183)))"
+"((letrec-values(((for-loop_3)"
+"(lambda(lst_184)"
 "(begin"
 " 'for-loop"
 "(if(pair?"
-" lst_191)"
-"(let-values(((sym_57)"
+" lst_184)"
+"(let-values(((sym_58)"
 "(unsafe-car"
-" lst_191))"
+" lst_184))"
 "((rest_101)"
 "(unsafe-cdr"
-" lst_191)))"
+" lst_184)))"
 "(let-values((()"
 "(let-values()"
 "(let-values((()"
@@ -28825,18 +28378,18 @@ static const char *startup_source =
 "(let-values()"
 "(let-values(((def-sym_1)"
 "(select-fresh"
-" sym_57"
+" sym_58"
 " header_8)))"
 "(begin"
 "(hash-set!"
 "(header-binding-sym-to-define-sym"
 " header_8)"
-" sym_57"
+" sym_58"
 " def-sym_1)"
 "(set-header-binding-syms-in-order!"
 " header_8"
 "(cons"
-" sym_57"
+" sym_58"
 "(header-binding-syms-in-order"
 " header_8)))"
 "(register-as-defined!"
@@ -28846,12 +28399,12 @@ static const char *startup_source =
 "(values)))))"
 "(if(not"
 " #f)"
-"(for-loop_202"
+"(for-loop_3"
 " rest_101)"
 "(values))))"
 "(values))))))"
-" for-loop_202)"
-" lst_190)))"
+" for-loop_3)"
+" lst_183)))"
 "(void)))"
 "(if(parsed-begin-for-syntax?"
 " body_2)"
@@ -28860,47 +28413,47 @@ static const char *startup_source =
 "(parsed-begin-for-syntax-body"
 " body_2)"
 "(add1"
-" phase_77)"
+" phase_7)"
 "(find-or-create-header!_0"
 "(add1"
-" phase_77))))"
+" phase_7))))"
 "(void))))"
 "(values)))))"
 "(values)))))"
 "(if(not"
 " #f)"
-"(for-loop_201"
+"(for-loop_199"
 " rest_100)"
 "(values))))"
 "(values))))))"
-" for-loop_201)"
-" lst_188)))"
+" for-loop_199)"
+" lst_181)))"
 "(void))))))"
 " loop!_0)"
 " bodys_2"
-" phase_74"
-"(find-or-create-header!_0 phase_74)))"
+" phase_71"
+"(find-or-create-header!_0 phase_71)))"
 "(void))"
 "(values))))"
 "(let-values(((as-required?_0)"
 "(lambda(header_9)"
 "(begin"
 " 'as-required?"
-"(lambda(sym_58)"
+"(lambda(sym_59)"
 "(registered-as-required?"
 " header_9"
-" sym_58))))))"
+" sym_59))))))"
 "(let-values(((last-i_0)(sub1(length bodys_2))))"
 "(let-values((()"
 "(begin"
 "((letrec-values(((loop!_1)"
 "(lambda(bodys_4"
-" phase_78"
+" phase_75"
 " header_10)"
 "(begin"
 " 'loop!"
 "(begin"
-"(let-values(((lst_192)"
+"(let-values(((lst_185)"
 " bodys_4)"
 "((start_34)"
 " 0))"
@@ -28910,30 +28463,30 @@ static const char *startup_source =
 "(void)"
 "(let-values()"
 "(check-list"
-" lst_192)))"
+" lst_185)))"
 "(if(variable-reference-from-unsafe?"
 "(#%variable-reference))"
 "(void)"
 "(let-values()"
 "(check-naturals"
 " start_34)))"
-"((letrec-values(((for-loop_120)"
-"(lambda(lst_193"
-" pos_91)"
+"((letrec-values(((for-loop_200)"
+"(lambda(lst_186"
+" pos_93)"
 "(begin"
 " 'for-loop"
 "(if(if(pair?"
-" lst_193)"
+" lst_186)"
 " #t"
 " #f)"
-"(let-values(((body_3)"
+"(let-values(((body_0)"
 "(unsafe-car"
-" lst_193))"
-"((rest_87)"
+" lst_186))"
+"((rest_102)"
 "(unsafe-cdr"
-" lst_193))"
-"((i_140)"
-" pos_91))"
+" lst_186))"
+"((i_108)"
+" pos_93))"
 "(let-values((()"
 "(let-values()"
 "(let-values((()"
@@ -28941,20 +28494,20 @@ static const char *startup_source =
 "(begin"
 "(let-values()"
 "(if(parsed-define-values?"
-" body_3)"
+" body_0)"
 "(let-values()"
 "(let-values(((ids_5)"
 "(parsed-define-values-ids"
-" body_3)))"
+" body_0)))"
 "(let-values(((binding-syms_0)"
 "(parsed-define-values-syms"
-" body_3)))"
+" body_0)))"
 "(let-values(((def-syms_0)"
 "(if(compile-context-module-self"
-" cctx_3)"
+" cctx_11)"
 "(let-values()"
 "(reverse$1"
-"(let-values(((lst_194)"
+"(let-values(((lst_187)"
 " binding-syms_0))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
@@ -28962,24 +28515,24 @@ static const char *startup_source =
 "(void)"
 "(let-values()"
 "(check-list"
-" lst_194)))"
-"((letrec-values(((for-loop_6)"
-"(lambda(fold-var_0"
-" lst_172)"
+" lst_187)))"
+"((letrec-values(((for-loop_119)"
+"(lambda(fold-var_175"
+" lst_188)"
 "(begin"
 " 'for-loop"
 "(if(pair?"
-" lst_172)"
+" lst_188)"
 "(let-values(((binding-sym_0)"
 "(unsafe-car"
-" lst_172))"
-"((rest_88)"
+" lst_188))"
+"((rest_103)"
 "(unsafe-cdr"
-" lst_172)))"
-"(let-values(((fold-var_2)"
-"(let-values(((fold-var_3)"
-" fold-var_0))"
-"(let-values(((fold-var_94)"
+" lst_188)))"
+"(let-values(((fold-var_161)"
+"(let-values(((fold-var_176)"
+" fold-var_175))"
+"(let-values(((fold-var_177)"
 "(let-values()"
 "(cons"
 "(let-values()"
@@ -28987,22 +28540,22 @@ static const char *startup_source =
 "(header-binding-sym-to-define-sym"
 " header_10)"
 " binding-sym_0))"
-" fold-var_3))))"
+" fold-var_176))))"
 "(values"
-" fold-var_94)))))"
+" fold-var_177)))))"
 "(if(not"
 " #f)"
-"(for-loop_6"
-" fold-var_2"
-" rest_88)"
-" fold-var_2)))"
-" fold-var_0)))))"
-" for-loop_6)"
+"(for-loop_119"
+" fold-var_161"
+" rest_103)"
+" fold-var_161)))"
+" fold-var_175)))))"
+" for-loop_119)"
 " null"
-" lst_194)))))"
+" lst_187)))))"
 "(let-values()"
 "(reverse$1"
-"(let-values(((lst_11)"
+"(let-values(((lst_189)"
 " binding-syms_0))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
@@ -29010,90 +28563,89 @@ static const char *startup_source =
 "(void)"
 "(let-values()"
 "(check-list"
-" lst_11)))"
-"((letrec-values(((for-loop_7)"
-"(lambda(fold-var_179"
-" lst_12)"
+" lst_189)))"
+"((letrec-values(((for-loop_201)"
+"(lambda(fold-var_178"
+" lst_169)"
 "(begin"
 " 'for-loop"
 "(if(pair?"
-" lst_12)"
+" lst_169)"
 "(let-values(((binding-sym_1)"
 "(unsafe-car"
-" lst_12))"
-"((rest_2)"
+" lst_169))"
+"((rest_88)"
 "(unsafe-cdr"
-" lst_12)))"
-"(let-values(((fold-var_180)"
-"(let-values(((fold-var_181)"
-" fold-var_179))"
-"(let-values(((fold-var_182)"
+" lst_169)))"
+"(let-values(((fold-var_179)"
+"(let-values(((fold-var_1)"
+" fold-var_178))"
+"(let-values(((fold-var_2)"
 "(let-values()"
 "(cons"
 "(let-values()"
 "(let-values(((header35_0)"
 " header_10)"
-"((temp36_1)"
+"((temp36_0)"
 "(compile-context-self"
-" cctx_3))"
-"((phase37_1)"
-" phase_78)"
+" cctx_11))"
+"((phase37_0)"
+" phase_75)"
 "((binding-sym38_0)"
 " binding-sym_1)"
-"((temp39_0)"
+"((temp39_1)"
 " #f)"
 "((temp40_0)"
 " #t))"
 "(register-required-variable-use!19.1"
 " temp40_0"
-" #t"
 " header35_0"
-" temp36_1"
-" phase37_1"
+" temp36_0"
+" phase37_0"
 " binding-sym38_0"
-" temp39_0)))"
-" fold-var_181))))"
+" temp39_1)))"
+" fold-var_1))))"
 "(values"
-" fold-var_182)))))"
+" fold-var_2)))))"
 "(if(not"
 " #f)"
-"(for-loop_7"
-" fold-var_180"
-" rest_2)"
-" fold-var_180)))"
-" fold-var_179)))))"
-" for-loop_7)"
+"(for-loop_201"
+" fold-var_179"
+" rest_88)"
+" fold-var_179)))"
+" fold-var_178)))))"
+" for-loop_201)"
 " null"
-" lst_11))))))))"
+" lst_189))))))))"
 "(let-values(((rhs_1)"
 "(compile$2"
 "(parsed-define-values-rhs"
-" body_3)"
-"(let-values(((the-struct_47)"
-" cctx_3))"
+" body_0)"
+"(let-values(((the-struct_48)"
+" cctx_11))"
 "(if(compile-context?"
-" the-struct_47)"
+" the-struct_48)"
 "(let-values(((phase41_0)"
-" phase_78)"
+" phase_75)"
 "((header42_0)"
 " header_10))"
 "(compile-context1.1"
 "(compile-context-namespace"
-" the-struct_47)"
+" the-struct_48)"
 " phase41_0"
 "(compile-context-self"
-" the-struct_47)"
+" the-struct_48)"
 "(compile-context-module-self"
-" the-struct_47)"
+" the-struct_48)"
 "(compile-context-full-module-name"
-" the-struct_47)"
+" the-struct_48)"
 "(compile-context-lazy-syntax-literals?"
-" the-struct_47)"
+" the-struct_48)"
 " header42_0))"
 "(raise-argument-error"
 " 'struct-copy"
 "                                                                                                                                                                                                          \"compile-context?\""
-" the-struct_47)))"
+" the-struct_48)))"
 "(if(="
 "(length"
 " ids_5)"
@@ -29107,40 +28659,40 @@ static const char *startup_source =
 " rhs_1"
 "(length"
 " def-syms_0)"
-" phase_78"
+" phase_75"
 "(as-required?_0"
 " header_10))"
 "(add-body!_0"
-" phase_78"
+" phase_75"
 "(propagate-inline-property"
 "(correlate*"
 "(parsed-s"
-" body_3)"
+" body_0)"
 "(list"
 " 'define-values"
 " def-syms_0"
 " rhs_1))"
 "(parsed-s"
-" body_3)))"
-"(if(let-values(((or-part_49)"
+" body_0)))"
+"(if(let-values(((or-part_169)"
 "(compile-context-module-self"
-" cctx_3)))"
-"(if or-part_49"
-" or-part_49"
+" cctx_11)))"
+"(if or-part_169"
+" or-part_169"
 "(null?"
 " ids_5)))"
 "(void)"
 "(let-values()"
 "(begin"
 "(add-body!_0"
-" phase_78"
+" phase_75"
 "(list*"
 " 'if"
 " #f"
 "(list*"
 " 'begin"
 "(reverse$1"
-"(let-values(((lst_105)"
+"(let-values(((lst_190)"
 " def-syms_0))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
@@ -29148,24 +28700,24 @@ static const char *startup_source =
 "(void)"
 "(let-values()"
 "(check-list"
-" lst_105)))"
-"((letrec-values(((for-loop_203)"
-"(lambda(fold-var_183"
-" lst_195)"
+" lst_190)))"
+"((letrec-values(((for-loop_202)"
+"(lambda(fold-var_180"
+" lst_13)"
 "(begin"
 " 'for-loop"
 "(if(pair?"
-" lst_195)"
+" lst_13)"
 "(let-values(((def-sym_2)"
 "(unsafe-car"
-" lst_195))"
-"((rest_102)"
+" lst_13))"
+"((rest_104)"
 "(unsafe-cdr"
-" lst_195)))"
-"(let-values(((fold-var_184)"
-"(let-values(((fold-var_185)"
-" fold-var_183))"
-"(let-values(((fold-var_186)"
+" lst_13)))"
+"(let-values(((fold-var_181)"
+"(let-values(((fold-var_182)"
+" fold-var_180))"
+"(let-values(((fold-var_183)"
 "(let-values()"
 "(cons"
 "(let-values()"
@@ -29173,67 +28725,67 @@ static const char *startup_source =
 " 'set!"
 " def-sym_2"
 " '(#f)))"
-" fold-var_185))))"
+" fold-var_182))))"
 "(values"
-" fold-var_186)))))"
+" fold-var_183)))))"
 "(if(not"
 " #f)"
-"(for-loop_203"
-" fold-var_184"
-" rest_102)"
-" fold-var_184)))"
-" fold-var_183)))))"
-" for-loop_203)"
+"(for-loop_202"
+" fold-var_181"
+" rest_104)"
+" fold-var_181)))"
+" fold-var_180)))))"
+" for-loop_202)"
 " null"
-" lst_105)))))"
+" lst_190)))))"
 " '((void))))"
 "(add-body!_0"
-" phase_78"
+" phase_75"
 "(compile-top-level-bind"
 " ids_5"
 " binding-syms_0"
-"(let-values(((the-struct_48)"
-" cctx_3))"
+"(let-values(((the-struct_49)"
+" cctx_11))"
 "(if(compile-context?"
-" the-struct_48)"
+" the-struct_49)"
 "(let-values(((phase43_0)"
-" phase_78)"
+" phase_75)"
 "((header44_0)"
 " header_10))"
 "(compile-context1.1"
 "(compile-context-namespace"
-" the-struct_48)"
+" the-struct_49)"
 " phase43_0"
 "(compile-context-self"
-" the-struct_48)"
+" the-struct_49)"
 "(compile-context-module-self"
-" the-struct_48)"
+" the-struct_49)"
 "(compile-context-full-module-name"
-" the-struct_48)"
+" the-struct_49)"
 "(compile-context-lazy-syntax-literals?"
-" the-struct_48)"
+" the-struct_49)"
 " header44_0))"
 "(raise-argument-error"
 " 'struct-copy"
 "                                                                                                                                                                                                       \"compile-context?\""
-" the-struct_48)))"
+" the-struct_49)))"
 " #f)))))))))))"
 "(if(parsed-define-syntaxes?"
-" body_3)"
+" body_0)"
 "(let-values()"
 "(let-values(((ids_6)"
 "(parsed-define-syntaxes-ids"
-" body_3)))"
+" body_0)))"
 "(let-values(((binding-syms_1)"
 "(parsed-define-syntaxes-syms"
-" body_3)))"
+" body_0)))"
 "(let-values(((next-header_0)"
 "(find-or-create-header!_0"
 "(add1"
-" phase_78))))"
+" phase_75))))"
 "(let-values(((gen-syms_0)"
 "(reverse$1"
-"(let-values(((lst_196)"
+"(let-values(((lst_191)"
 " binding-syms_1))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
@@ -29241,24 +28793,24 @@ static const char *startup_source =
 "(void)"
 "(let-values()"
 "(check-list"
-" lst_196)))"
-"((letrec-values(((for-loop_204)"
-"(lambda(fold-var_187"
-" lst_197)"
+" lst_191)))"
+"((letrec-values(((for-loop_203)"
+"(lambda(fold-var_184"
+" lst_192)"
 "(begin"
 " 'for-loop"
 "(if(pair?"
-" lst_197)"
+" lst_192)"
 "(let-values(((binding-sym_2)"
 "(unsafe-car"
-" lst_197))"
-"((rest_103)"
+" lst_192))"
+"((rest_105)"
 "(unsafe-cdr"
-" lst_197)))"
-"(let-values(((fold-var_188)"
-"(let-values(((fold-var_189)"
-" fold-var_187))"
-"(let-values(((fold-var_190)"
+" lst_192)))"
+"(let-values(((fold-var_185)"
+"(let-values(((fold-var_186)"
+" fold-var_184))"
+"(let-values(((fold-var_187)"
 "(let-values()"
 "(cons"
 "(let-values()"
@@ -29271,49 +28823,49 @@ static const char *startup_source =
 " next-header_0"
 " gen-sym_0)"
 " gen-sym_0)))"
-" fold-var_189))))"
+" fold-var_186))))"
 "(values"
-" fold-var_190)))))"
+" fold-var_187)))))"
 "(if(not"
 " #f)"
-"(for-loop_204"
-" fold-var_188"
-" rest_103)"
-" fold-var_188)))"
-" fold-var_187)))))"
-" for-loop_204)"
+"(for-loop_203"
+" fold-var_185"
+" rest_105)"
+" fold-var_185)))"
+" fold-var_184)))))"
+" for-loop_203)"
 " null"
-" lst_196))))))"
+" lst_191))))))"
 "(let-values(((rhs_2)"
 "(compile$2"
 "(parsed-define-syntaxes-rhs"
-" body_3)"
-"(let-values(((the-struct_49)"
-" cctx_3))"
+" body_0)"
+"(let-values(((the-struct_50)"
+" cctx_11))"
 "(if(compile-context?"
-" the-struct_49)"
+" the-struct_50)"
 "(let-values(((phase45_0)"
 "(add1"
-" phase_78))"
+" phase_75))"
 "((header46_0)"
 " next-header_0))"
 "(compile-context1.1"
 "(compile-context-namespace"
-" the-struct_49)"
+" the-struct_50)"
 " phase45_0"
 "(compile-context-self"
-" the-struct_49)"
+" the-struct_50)"
 "(compile-context-module-self"
-" the-struct_49)"
+" the-struct_50)"
 "(compile-context-full-module-name"
-" the-struct_49)"
+" the-struct_50)"
 "(compile-context-lazy-syntax-literals?"
-" the-struct_49)"
+" the-struct_50)"
 " header46_0))"
 "(raise-argument-error"
 " 'struct-copy"
 "                                                                                                                                                                                                              \"compile-context?\""
-" the-struct_49))))))"
+" the-struct_50))))))"
 "(let-values((()"
 "(begin"
 "(definition-callback_0)"
@@ -29325,15 +28877,15 @@ static const char *startup_source =
 "(length"
 " gen-syms_0)"
 "(add1"
-" phase_78)"
+" phase_75)"
 "(as-required?_0"
 " header_10))"
 "(values))))"
 "(let-values(((transformer-set!s_0)"
 "(reverse$1"
-"(let-values(((lst_28)"
+"(let-values(((lst_193)"
 " binding-syms_1)"
-"((lst_198)"
+"((lst_194)"
 " gen-syms_0))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
@@ -29341,40 +28893,40 @@ static const char *startup_source =
 "(void)"
 "(let-values()"
 "(check-list"
-" lst_28)))"
+" lst_193)))"
 "(if(variable-reference-from-unsafe?"
 "(#%variable-reference))"
 "(void)"
 "(let-values()"
 "(check-list"
-" lst_198)))"
-"((letrec-values(((for-loop_205)"
-"(lambda(fold-var_191"
-" lst_199"
-" lst_200)"
+" lst_194)))"
+"((letrec-values(((for-loop_204)"
+"(lambda(fold-var_188"
+" lst_195"
+" lst_196)"
 "(begin"
 " 'for-loop"
 "(if(if(pair?"
-" lst_199)"
+" lst_195)"
 "(pair?"
-" lst_200)"
+" lst_196)"
 " #f)"
 "(let-values(((binding-sym_3)"
 "(unsafe-car"
-" lst_199))"
-"((rest_104)"
+" lst_195))"
+"((rest_106)"
 "(unsafe-cdr"
-" lst_199))"
+" lst_195))"
 "((gen-sym_1)"
 "(unsafe-car"
-" lst_200))"
-"((rest_105)"
+" lst_196))"
+"((rest_107)"
 "(unsafe-cdr"
-" lst_200)))"
-"(let-values(((fold-var_192)"
-"(let-values(((fold-var_193)"
-" fold-var_191))"
-"(let-values(((fold-var_194)"
+" lst_196)))"
+"(let-values(((fold-var_189)"
+"(let-values(((fold-var_190)"
+" fold-var_188))"
+"(let-values(((fold-var_191)"
 "(let-values()"
 "(cons"
 "(let-values()"
@@ -29384,28 +28936,28 @@ static const char *startup_source =
 " 'quote"
 " binding-sym_3)"
 " gen-sym_1))"
-" fold-var_193))))"
+" fold-var_190))))"
 "(values"
-" fold-var_194)))))"
+" fold-var_191)))))"
 "(if(not"
 " #f)"
-"(for-loop_205"
-" fold-var_192"
-" rest_104"
-" rest_105)"
-" fold-var_192)))"
-" fold-var_191)))))"
-" for-loop_205)"
+"(for-loop_204"
+" fold-var_189"
+" rest_106"
+" rest_107)"
+" fold-var_189)))"
+" fold-var_188)))))"
+" for-loop_204)"
 " null"
-" lst_28"
-" lst_198))))))"
+" lst_193"
+" lst_194))))))"
 "(begin"
 "(if(compile-context-module-self"
-" cctx_3)"
+" cctx_11)"
 "(let-values()"
 "(add-body!_0"
 "(add1"
-" phase_78)"
+" phase_75)"
 "(list"
 " 'let-values"
 "(list"
@@ -29420,7 +28972,7 @@ static const char *startup_source =
 "(let-values()"
 "(add-body!_0"
 "(add1"
-" phase_78)"
+" phase_75)"
 "(generate-top-level-define-syntaxes"
 " gen-syms_0"
 " rhs_2"
@@ -29428,161 +28980,161 @@ static const char *startup_source =
 "(compile-top-level-bind"
 " ids_6"
 " binding-syms_1"
-"(let-values(((the-struct_0)"
-" cctx_3))"
+"(let-values(((the-struct_51)"
+" cctx_11))"
 "(if(compile-context?"
-" the-struct_0)"
+" the-struct_51)"
 "(let-values(((phase47_0)"
-" phase_78)"
+" phase_75)"
 "((header48_0)"
 " header_10))"
 "(compile-context1.1"
 "(compile-context-namespace"
-" the-struct_0)"
+" the-struct_51)"
 " phase47_0"
 "(compile-context-self"
-" the-struct_0)"
+" the-struct_51)"
 "(compile-context-module-self"
-" the-struct_0)"
+" the-struct_51)"
 "(compile-context-full-module-name"
-" the-struct_0)"
+" the-struct_51)"
 "(compile-context-lazy-syntax-literals?"
-" the-struct_0)"
+" the-struct_51)"
 " header48_0))"
 "(raise-argument-error"
 " 'struct-copy"
 "                                                                                                                                                                                                                \"compile-context?\""
-" the-struct_0)))"
+" the-struct_51)))"
 " gen-syms_0)))))"
 "(set! saw-define-syntaxes?_0"
 " #t)))))))))))"
 "(if(parsed-begin-for-syntax?"
-" body_3)"
+" body_0)"
 "(let-values()"
 "(loop!_1"
 "(parsed-begin-for-syntax-body"
-" body_3)"
+" body_0)"
 "(add1"
-" phase_78)"
+" phase_75)"
 "(find-or-create-header!_0"
 "(add1"
-" phase_78))))"
-"(if(let-values(((or-part_101)"
+" phase_75))))"
+"(if(let-values(((or-part_221)"
 "(parsed-#%declare?"
-" body_3)))"
-"(if or-part_101"
-" or-part_101"
-"(let-values(((or-part_214)"
+" body_0)))"
+"(if or-part_221"
+" or-part_221"
+"(let-values(((or-part_88)"
 "(parsed-module?"
-" body_3)))"
-"(if or-part_214"
-" or-part_214"
+" body_0)))"
+"(if or-part_88"
+" or-part_88"
 "(parsed-require?"
-" body_3)))))"
+" body_0)))))"
 "(let-values()"
-"(let-values(((e_35)"
+"(let-values(((e_34)"
 "(other-form-callback_0"
-" body_3"
-"(let-values(((the-struct_50)"
-" cctx_3))"
+" body_0"
+"(let-values(((the-struct_52)"
+" cctx_11))"
 "(if(compile-context?"
-" the-struct_50)"
+" the-struct_52)"
 "(let-values(((phase49_0)"
-" phase_78)"
+" phase_75)"
 "((header50_0)"
 " header_10))"
 "(compile-context1.1"
 "(compile-context-namespace"
-" the-struct_50)"
+" the-struct_52)"
 " phase49_0"
 "(compile-context-self"
-" the-struct_50)"
+" the-struct_52)"
 "(compile-context-module-self"
-" the-struct_50)"
+" the-struct_52)"
 "(compile-context-full-module-name"
-" the-struct_50)"
+" the-struct_52)"
 "(compile-context-lazy-syntax-literals?"
-" the-struct_50)"
+" the-struct_52)"
 " header50_0))"
 "(raise-argument-error"
 " 'struct-copy"
 "                                                                                                                                                                                                          \"compile-context?\""
-" the-struct_50))))))"
-"(if e_35"
+" the-struct_52))))))"
+"(if e_34"
 "(let-values()"
 "(begin"
 "(compiled-expression-callback_0"
-" e_35"
+" e_34"
 " #f"
-" phase_78"
+" phase_75"
 "(as-required?_0"
 " header_10))"
 "(add-body!_0"
-" phase_78"
-" e_35)))"
+" phase_75"
+" e_34)))"
 "(void))))"
 "(let-values()"
-"(let-values(((e_36)"
+"(let-values(((e_35)"
 "(compile$2"
-" body_3"
-"(let-values(((the-struct_51)"
-" cctx_3))"
+" body_0"
+"(let-values(((the-struct_53)"
+" cctx_11))"
 "(if(compile-context?"
-" the-struct_51)"
+" the-struct_53)"
 "(let-values(((phase51_0)"
-" phase_78)"
+" phase_75)"
 "((header52_0)"
 " header_10))"
 "(compile-context1.1"
 "(compile-context-namespace"
-" the-struct_51)"
+" the-struct_53)"
 " phase51_0"
 "(compile-context-self"
-" the-struct_51)"
+" the-struct_53)"
 "(compile-context-module-self"
-" the-struct_51)"
+" the-struct_53)"
 "(compile-context-full-module-name"
-" the-struct_51)"
+" the-struct_53)"
 "(compile-context-lazy-syntax-literals?"
-" the-struct_51)"
+" the-struct_53)"
 " header52_0))"
 "(raise-argument-error"
 " 'struct-copy"
 "                                                                                                                                                                                                          \"compile-context?\""
-" the-struct_51)))"
+" the-struct_53)))"
 " #f"
 "(="
-" i_140"
+" i_108"
 " last-i_0))))"
 "(begin"
 "(compiled-expression-callback_0"
-" e_36"
+" e_35"
 " #f"
-" phase_78"
+" phase_75"
 "(as-required?_0"
 " header_10))"
 "(add-body!_0"
-" phase_78"
-" e_36)))))))))"
+" phase_75"
+" e_35)))))))))"
 "(values)))))"
 "(values)))))"
 "(if(not"
 " #f)"
-"(for-loop_120"
-" rest_87"
+"(for-loop_200"
+" rest_102"
 "(+"
-" pos_91"
+" pos_93"
 " 1))"
 "(values))))"
 "(values))))))"
-" for-loop_120)"
-" lst_192"
+" for-loop_200)"
+" lst_185"
 " start_34)))"
 "(void))))))"
 " loop!_1)"
 " bodys_2"
-" phase_74"
-"(find-or-create-header!_0 phase_74))"
+" phase_71"
+"(find-or-create-header!_0 phase_71))"
 "(values))))"
 "(let-values(((encoded-root-expand-pos_0)"
 "(if encoded-root-expand-ctx-box_0"
@@ -29608,57 +29160,51 @@ static const char *startup_source =
 "(hash-keys"
 " phase-to-body_0))"
 "((<54_0) <))"
-"(sort7.1"
-" #f"
-" #f"
-" #f"
-" #f"
-" temp53_0"
-" <54_0))))"
+"(sort7.1 #f #f temp53_0 <54_0))))"
 "(let-values(((min-phase_0)"
 "(if(pair? phases-in-order_2)"
 "(car phases-in-order_2)"
-" phase_74)))"
+" phase_71)))"
 "(let-values(((max-phase_0)"
 "(if(pair? phases-in-order_2)"
 "(car"
 "(reverse$1"
 " phases-in-order_2))"
-" phase_74)))"
+" phase_71)))"
 "(let-values(((phase-to-link-info_0)"
-"(let-values(((lst_201)"
+"(let-values(((lst_197)"
 " phases-in-order_2))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
 "(#%variable-reference))"
 "(void)"
 "(let-values()"
-"(check-list lst_201)))"
-"((letrec-values(((for-loop_124)"
-"(lambda(table_155"
-" lst_202)"
+"(check-list lst_197)))"
+"((letrec-values(((for-loop_205)"
+"(lambda(table_152"
+" lst_198)"
 "(begin"
 " 'for-loop"
 "(if(pair?"
-" lst_202)"
-"(let-values(((phase_79)"
+" lst_198)"
+"(let-values(((phase_76)"
 "(unsafe-car"
-" lst_202))"
-"((rest_106)"
+" lst_198))"
+"((rest_108)"
 "(unsafe-cdr"
-" lst_202)))"
-"(let-values(((table_156)"
-"(let-values(((table_157)"
-" table_155))"
-"(let-values(((table_158)"
+" lst_198)))"
+"(let-values(((table_153)"
+"(let-values(((table_154)"
+" table_152))"
+"(let-values(((table_155)"
 "(let-values()"
-"(let-values(((key_57"
-" val_52)"
+"(let-values(((key_58"
+" val_51)"
 "(let-values()"
 "(let-values(((header_11)"
 "(hash-ref"
 " phase-to-header_0"
-" phase_79"
+" phase_76"
 " #f)))"
 "(let-values(((link-module-uses_0"
 " imports_2"
@@ -29666,34 +29212,34 @@ static const char *startup_source =
 " def-decls_0)"
 "(generate-links+imports"
 " header_11"
-" phase_79"
-" cctx_3"
+" phase_76"
+" cctx_11"
 " cross-linklet-inlining?_1)))"
 "(values"
-" phase_79"
+" phase_76"
 "(link-info1.1"
 " link-module-uses_0"
 " imports_2"
 " extra-inspectorsss_1"
 " def-decls_0)))))))"
 "(hash-set"
-" table_157"
-" key_57"
-" val_52)))))"
+" table_154"
+" key_58"
+" val_51)))))"
 "(values"
-" table_158)))))"
+" table_155)))))"
 "(if(not"
 " #f)"
-"(for-loop_124"
-" table_156"
-" rest_106)"
-" table_156)))"
-" table_155)))))"
-" for-loop_124)"
+"(for-loop_205"
+" table_153"
+" rest_108)"
+" table_153)))"
+" table_152)))))"
+" for-loop_205)"
 " '#hash()"
-" lst_201)))))"
+" lst_197)))))"
 "(let-values(((body-linklets+module-use*s_0)"
-"(let-values(((lst_203)"
+"(let-values(((lst_109)"
 " phases-in-order_2))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
@@ -29701,41 +29247,41 @@ static const char *startup_source =
 "(void)"
 "(let-values()"
 "(check-list"
-" lst_203)))"
+" lst_109)))"
 "((letrec-values(((for-loop_206)"
-"(lambda(table_159"
-" lst_204)"
+"(lambda(table_156"
+" lst_110)"
 "(begin"
 " 'for-loop"
 "(if(pair?"
-" lst_204)"
-"(let-values(((phase_80)"
+" lst_110)"
+"(let-values(((phase_77)"
 "(unsafe-car"
-" lst_204))"
-"((rest_107)"
+" lst_110))"
+"((rest_109)"
 "(unsafe-cdr"
-" lst_204)))"
-"(let-values(((table_160)"
-"(let-values(((table_161)"
-" table_159))"
-"(let-values(((table_162)"
+" lst_110)))"
+"(let-values(((table_157)"
+"(let-values(((table_158)"
+" table_156))"
+"(let-values(((table_159)"
 "(let-values()"
-"(let-values(((key_58"
-" val_53)"
+"(let-values(((key_59"
+" val_52)"
 "(let-values()"
 "(let-values(((bodys_5)"
 "(hash-ref"
 " phase-to-body_0"
-" phase_80)))"
+" phase_77)))"
 "(let-values(((li_0)"
 "(hash-ref"
 " phase-to-link-info_0"
-" phase_80)))"
+" phase_77)))"
 "(let-values(((binding-sym-to-define-sym_0)"
 "(header-binding-sym-to-define-sym"
 "(hash-ref"
 " phase-to-header_0"
-" phase_80))))"
+" phase_77))))"
 "(let-values(((module-use*s_0)"
 "(module-uses-add-extra-inspectorsss"
 "(link-info-link-module-uses"
@@ -29746,20 +29292,20 @@ static const char *startup_source =
 " new-module-use*s_0)"
 "(let-values()"
 "((if to-source?_0"
-"(lambda(l_56"
-" name_47"
+"(lambda(l_55"
+" name_46"
 " keys_0"
 " getter_0)"
 "(values"
-" l_56"
+" l_55"
 " keys_0))"
-"(lambda(l_57"
-" name_48"
+"(lambda(l_56"
+" name_47"
 " keys_1"
 " getter_1)"
 "(1/compile-linklet"
-" l_57"
-" name_48"
+" l_56"
+" name_47"
 " keys_1"
 " getter_1"
 "(if serializable?_0"
@@ -29775,35 +29321,35 @@ static const char *startup_source =
 "(link-info-def-decls"
 " li_0)"
 "(reverse$1"
-"(let-values(((lst_205)"
+"(let-values(((lst_199)"
 "(header-binding-syms-in-order"
 "(hash-ref"
 " phase-to-header_0"
-" phase_80))))"
+" phase_77))))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
 "(#%variable-reference))"
 "(void)"
 "(let-values()"
 "(check-list"
-" lst_205)))"
-"((letrec-values(((for-loop_188)"
-"(lambda(fold-var_195"
-" lst_206)"
+" lst_199)))"
+"((letrec-values(((for-loop_207)"
+"(lambda(fold-var_192"
+" lst_200)"
 "(begin"
 " 'for-loop"
 "(if(pair?"
-" lst_206)"
+" lst_200)"
 "(let-values(((binding-sym_4)"
 "(unsafe-car"
-" lst_206))"
-"((rest_108)"
+" lst_200))"
+"((rest_110)"
 "(unsafe-cdr"
-" lst_206)))"
-"(let-values(((fold-var_196)"
-"(let-values(((fold-var_197)"
-" fold-var_195))"
-"(let-values(((fold-var_198)"
+" lst_200)))"
+"(let-values(((fold-var_193)"
+"(let-values(((fold-var_194)"
+" fold-var_192))"
+"(let-values(((fold-var_195)"
 "(let-values()"
 "(cons"
 "(let-values()"
@@ -29818,19 +29364,19 @@ static const char *startup_source =
 "(list"
 " def-sym_3"
 " binding-sym_4))))"
-" fold-var_197))))"
+" fold-var_194))))"
 "(values"
-" fold-var_198)))))"
+" fold-var_195)))))"
 "(if(not"
 " #f)"
-"(for-loop_188"
-" fold-var_196"
-" rest_108)"
-" fold-var_196)))"
-" fold-var_195)))))"
-" for-loop_188)"
+"(for-loop_207"
+" fold-var_193"
+" rest_110)"
+" fold-var_193)))"
+" fold-var_192)))))"
+" for-loop_207)"
 " null"
-" lst_205)))))"
+" lst_199)))))"
 "(qq-append"
 "(reverse$1"
 " bodys_5)"
@@ -29843,11 +29389,11 @@ static const char *startup_source =
 "(make-module-use-to-linklet"
 " cross-linklet-inlining?_1"
 "(compile-context-namespace"
-" cctx_3)"
+" cctx_11)"
 " get-module-linklet-info_0"
 " module-use*s_0)))))"
 "(values"
-" phase_80"
+" phase_77"
 "(cons"
 " linklet_1"
 "(list-tail"
@@ -29856,23 +29402,23 @@ static const char *startup_source =
 "(length"
 " body-imports_0))))))))))))"
 "(hash-set"
-" table_161"
-" key_58"
-" val_53)))))"
+" table_158"
+" key_59"
+" val_52)))))"
 "(values"
-" table_162)))))"
+" table_159)))))"
 "(if(not"
 " #f)"
 "(for-loop_206"
-" table_160"
-" rest_107)"
-" table_160)))"
-" table_159)))))"
+" table_157"
+" rest_109)"
+" table_157)))"
+" table_156)))))"
 " for-loop_206)"
 " '#hasheq()"
-" lst_203)))))"
+" lst_109)))))"
 "(let-values(((body-linklets_0)"
-"(let-values(((ht_113)"
+"(let-values(((ht_109)"
 " body-linklets+module-use*s_0))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
@@ -29880,51 +29426,51 @@ static const char *startup_source =
 "(void)"
 "(let-values()"
 "(check-in-hash"
-" ht_113)))"
-"((letrec-values(((for-loop_207)"
-"(lambda(table_163"
+" ht_109)))"
+"((letrec-values(((for-loop_208)"
+"(lambda(table_32"
 " i_141)"
 "(begin"
 " 'for-loop"
 "(if i_141"
-"(let-values(((phase_54"
+"(let-values(((phase_78"
 " l+mu*s_0)"
 "(hash-iterate-key+value"
-" ht_113"
+" ht_109"
 " i_141)))"
-"(let-values(((table_164)"
-"(let-values(((table_123)"
-" table_163))"
-"(let-values(((table_124)"
+"(let-values(((table_144)"
+"(let-values(((table_145)"
+" table_32))"
+"(let-values(((table_160)"
 "(let-values()"
-"(let-values(((key_59"
-" val_54)"
+"(let-values(((key_60"
+" val_53)"
 "(let-values()"
 "(values"
-" phase_54"
+" phase_78"
 "(car"
 " l+mu*s_0)))))"
 "(hash-set"
-" table_123"
-" key_59"
-" val_54)))))"
+" table_145"
+" key_60"
+" val_53)))))"
 "(values"
-" table_124)))))"
+" table_160)))))"
 "(if(not"
 " #f)"
-"(for-loop_207"
-" table_164"
+"(for-loop_208"
+" table_144"
 "(hash-iterate-next"
-" ht_113"
+" ht_109"
 " i_141))"
-" table_164)))"
-" table_163)))))"
-" for-loop_207)"
+" table_144)))"
+" table_32)))))"
+" for-loop_208)"
 " '#hasheq()"
 "(hash-iterate-first"
-" ht_113))))))"
+" ht_109))))))"
 "(let-values(((phase-to-link-module-uses_1)"
-"(let-values(((ht_114)"
+"(let-values(((ht_110)"
 " body-linklets+module-use*s_0))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
@@ -29932,56 +29478,56 @@ static const char *startup_source =
 "(void)"
 "(let-values()"
 "(check-in-hash"
-" ht_114)))"
-"((letrec-values(((for-loop_208)"
-"(lambda(table_38"
+" ht_110)))"
+"((letrec-values(((for-loop_209)"
+"(lambda(table_36"
 " i_142)"
 "(begin"
 " 'for-loop"
 "(if i_142"
-"(let-values(((phase_81"
+"(let-values(((phase_79"
 " l+mu*s_1)"
 "(hash-iterate-key+value"
-" ht_114"
+" ht_110"
 " i_142)))"
-"(let-values(((table_40)"
-"(let-values(((table_165)"
-" table_38))"
-"(let-values(((table_166)"
+"(let-values(((table_123)"
+"(let-values(((table_124)"
+" table_36))"
+"(let-values(((table_38)"
 "(let-values()"
-"(let-values(((key_60"
-" val_55)"
+"(let-values(((key_47"
+" val_40)"
 "(let-values()"
 "(values"
-" phase_81"
+" phase_79"
 "(module-uses-strip-extra-inspectorsss"
 "(cdr"
 " l+mu*s_1))))))"
 "(hash-set"
-" table_165"
-" key_60"
-" val_55)))))"
+" table_124"
+" key_47"
+" val_40)))))"
 "(values"
-" table_166)))))"
+" table_38)))))"
 "(if(not"
 " #f)"
-"(for-loop_208"
-" table_40"
+"(for-loop_209"
+" table_123"
 "(hash-iterate-next"
-" ht_114"
+" ht_110"
 " i_142))"
-" table_40)))"
-" table_38)))))"
-" for-loop_208)"
+" table_123)))"
+" table_36)))))"
+" for-loop_209)"
 " '#hasheq()"
 "(hash-iterate-first"
-" ht_114))))))"
+" ht_110))))))"
 "(let-values(((phase-to-link-module-uses-expr_0)"
 "(serialize-phase-to-link-module-uses"
 " phase-to-link-module-uses_1"
 " mpis_15)))"
 "(let-values(((phase-to-link-extra-inspectorsss_0)"
-"(let-values(((ht_115)"
+"(let-values(((ht_111)"
 " body-linklets+module-use*s_0))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
@@ -29989,19 +29535,19 @@ static const char *startup_source =
 "(void)"
 "(let-values()"
 "(check-in-hash"
-" ht_115)))"
-"((letrec-values(((for-loop_209)"
-"(lambda(table_167"
+" ht_111)))"
+"((letrec-values(((for-loop_210)"
+"(lambda(table_40"
 " i_143)"
 "(begin"
 " 'for-loop"
 "(if i_143"
-"(let-values(((phase_82"
+"(let-values(((phase_80"
 " l+mu*s_2)"
 "(hash-iterate-key+value"
-" ht_115"
+" ht_111"
 " i_143)))"
-"(let-values(((table_168)"
+"(let-values(((table_161)"
 "(let-values(((extra-inspectorsss_2)"
 "(module-uses-extract-extra-inspectorsss"
 "(cdr"
@@ -30013,48 +29559,48 @@ static const char *startup_source =
 " body-imports_0))))"
 "(begin"
 " #t"
-"((letrec-values(((for-loop_131)"
-"(lambda(table_169)"
+"((letrec-values(((for-loop_211)"
+"(lambda(table_43)"
 "(begin"
 " 'for-loop"
 "(let-values()"
-"(let-values(((table_170)"
-"(let-values(((table_171)"
-" table_169))"
-"(if extra-inspectorsss_2"
 "(let-values(((table_44)"
-" table_171))"
-"(let-values(((table_172)"
+"(let-values(((table_162)"
+" table_43))"
+"(if extra-inspectorsss_2"
+"(let-values(((table_163)"
+" table_162))"
+"(let-values(((table_164)"
 "(let-values()"
 "(let-values(((key_61"
-" val_56)"
+" val_54)"
 "(let-values()"
 "(values"
-" phase_82"
+" phase_80"
 " extra-inspectorsss_2))))"
 "(hash-set"
-" table_44"
+" table_163"
 " key_61"
-" val_56)))))"
+" val_54)))))"
 "(values"
-" table_172)))"
-" table_171))))"
-" table_170))))))"
-" for-loop_131)"
-" table_167)))))"
+" table_164)))"
+" table_162))))"
+" table_44))))))"
+" for-loop_211)"
+" table_40)))))"
 "(if(not"
 " #f)"
-"(for-loop_209"
-" table_168"
+"(for-loop_210"
+" table_161"
 "(hash-iterate-next"
-" ht_115"
+" ht_111"
 " i_143))"
-" table_168)))"
-" table_167)))))"
-" for-loop_209)"
+" table_161)))"
+" table_40)))))"
+" for-loop_210)"
 " '#hash()"
 "(hash-iterate-first"
-" ht_115))))))"
+" ht_111))))))"
 "(values"
 " body-linklets_0"
 " min-phase_0"
@@ -30066,109 +29612,109 @@ static const char *startup_source =
 " encoded-root-expand-pos_0)))))))))))))))))))))))))))))))))))))))))))))"
 "(define-values"
 "(compile-top-level-bind)"
-"(lambda(ids_7 binding-syms_2 cctx_11 trans-exprs_0)"
+"(lambda(ids_7 binding-syms_2 cctx_12 trans-exprs_0)"
 "(begin"
-"(let-values(((phase_83)(compile-context-phase cctx_11)))"
-"(let-values(((self_19)(compile-context-self cctx_11)))"
-"(let-values(((header_12)(compile-context-header cctx_11)))"
+"(let-values(((phase_81)(compile-context-phase cctx_12)))"
+"(let-values(((self_18)(compile-context-self cctx_12)))"
+"(let-values(((header_12)(compile-context-header cctx_12)))"
 "(let-values(((mpis_16)(header-module-path-indexes header_12)))"
 "(let-values(((top-level-bind-scope_2)"
 "(root-expand-context-top-level-bind-scope"
-"(namespace-get-root-expand-ctx(compile-context-namespace cctx_11)))))"
-"(let-values(((self-expr_0)(add-module-path-index! mpis_16 self_19)))"
+"(namespace-get-root-expand-ctx(compile-context-namespace cctx_12)))))"
+"(let-values(((self-expr_0)(add-module-path-index! mpis_16 self_18)))"
 "(list*"
 " 'begin"
 "(reverse$1"
-"(let-values(((lst_207) ids_7)"
-"((lst_208) binding-syms_2)"
-"((lst_117)"
-"(let-values(((or-part_215) trans-exprs_0))"
-"(if or-part_215"
-" or-part_215"
+"(let-values(((lst_201) ids_7)"
+"((lst_202) binding-syms_2)"
+"((lst_47)"
+"(let-values(((or-part_222) trans-exprs_0))"
+"(if or-part_222"
+" or-part_222"
 "(reverse$1"
-"(let-values(((lst_1) ids_7))"
+"(let-values(((lst_203) ids_7))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
-"(let-values()(check-list lst_1)))"
-"((letrec-values(((for-loop_210)"
-"(lambda(fold-var_199 lst_209)"
+"(let-values()(check-list lst_203)))"
+"((letrec-values(((for-loop_212)"
+"(lambda(fold-var_196 lst_204)"
 "(begin"
 " 'for-loop"
-"(if(pair? lst_209)"
-"(let-values(((id_49)(unsafe-car lst_209))"
-"((rest_109)(unsafe-cdr lst_209)))"
-"(let-values(((fold-var_200)"
-"(let-values(((fold-var_201)"
-" fold-var_199))"
-"(let-values(((fold-var_202)"
+"(if(pair? lst_204)"
+"(let-values(((id_48)(unsafe-car lst_204))"
+"((rest_111)(unsafe-cdr lst_204)))"
+"(let-values(((fold-var_197)"
+"(let-values(((fold-var_198)"
+" fold-var_196))"
+"(let-values(((fold-var_199)"
 "(let-values()"
 "(cons"
 "(let-values()"
 " ''#f)"
-" fold-var_201))))"
-"(values fold-var_202)))))"
+" fold-var_198))))"
+"(values fold-var_199)))))"
 "(if(not #f)"
-"(for-loop_210 fold-var_200 rest_109)"
-" fold-var_200)))"
-" fold-var_199)))))"
-" for-loop_210)"
+"(for-loop_212 fold-var_197 rest_111)"
+" fold-var_197)))"
+" fold-var_196)))))"
+" for-loop_212)"
 " null"
-" lst_1))))))))"
+" lst_203))))))))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
-"(let-values()(check-list lst_207)))"
+"(let-values()(check-list lst_201)))"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
-"(let-values()(check-list lst_208)))"
+"(let-values()(check-list lst_202)))"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
-"(let-values()(check-list lst_117)))"
-"((letrec-values(((for-loop_211)"
-"(lambda(fold-var_203 lst_210 lst_211 lst_212)"
+"(let-values()(check-list lst_47)))"
+"((letrec-values(((for-loop_136)"
+"(lambda(fold-var_200 lst_1 lst_205 lst_206)"
 "(begin"
 " 'for-loop"
-"(if(if(pair? lst_210)(if(pair? lst_211)(pair? lst_212) #f) #f)"
-"(let-values(((id_50)(unsafe-car lst_210))"
-"((rest_110)(unsafe-cdr lst_210))"
-"((binding-sym_5)(unsafe-car lst_211))"
-"((rest_111)(unsafe-cdr lst_211))"
-"((trans-expr_0)(unsafe-car lst_212))"
-"((rest_112)(unsafe-cdr lst_212)))"
-"(let-values(((fold-var_204)"
-"(let-values(((fold-var_205) fold-var_203))"
-"(let-values(((fold-var_206)"
+"(if(if(pair? lst_1)(if(pair? lst_205)(pair? lst_206) #f) #f)"
+"(let-values(((id_49)(unsafe-car lst_1))"
+"((rest_112)(unsafe-cdr lst_1))"
+"((binding-sym_5)(unsafe-car lst_205))"
+"((rest_113)(unsafe-cdr lst_205))"
+"((trans-expr_0)(unsafe-car lst_206))"
+"((rest_114)(unsafe-cdr lst_206)))"
+"(let-values(((fold-var_201)"
+"(let-values(((fold-var_202) fold-var_200))"
+"(let-values(((fold-var_203)"
 "(let-values()"
 "(cons"
 "(let-values()"
 "(let-values(((id-stx_0)"
 "(compile-quote-syntax"
 "(remove-scope"
-" id_50"
+" id_49"
 " top-level-bind-scope_2)"
-" cctx_11)))"
+" cctx_12)))"
 "(list"
 " top-level-bind!-id"
 " id-stx_0"
 " self-expr_0"
-" phase_83"
+" phase_81"
 " phase-shift-id"
 " ns-id"
 "(list 'quote binding-sym_5)"
 "(if trans-exprs_0 #t #f)"
 " trans-expr_0)))"
-" fold-var_205))))"
-"(values fold-var_206)))))"
+" fold-var_202))))"
+"(values fold-var_203)))))"
 "(if(not #f)"
-"(for-loop_211 fold-var_204 rest_110 rest_111 rest_112)"
-" fold-var_204)))"
-" fold-var_203)))))"
-" for-loop_211)"
+"(for-loop_136 fold-var_201 rest_112 rest_113 rest_114)"
+" fold-var_201)))"
+" fold-var_200)))))"
+" for-loop_136)"
 " null"
-" lst_207"
-" lst_208"
-" lst_117))))))))))))))"
+" lst_201"
+" lst_202"
+" lst_47))))))))))))))"
 "(define-values"
 "(generate-top-level-define-syntaxes)"
 "(lambda(gen-syms_1 rhs_3 transformer-set!s_1 finish_1)"
@@ -30189,36 +29735,36 @@ static const char *startup_source =
 "(list*"
 " 'values"
 "(reverse$1"
-"(let-values(((lst_4) gen-syms_1))"
+"(let-values(((lst_207) gen-syms_1))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
-"(let-values()(check-list lst_4)))"
-"((letrec-values(((for-loop_212)"
-"(lambda(fold-var_207 lst_213)"
+"(let-values()(check-list lst_207)))"
+"((letrec-values(((for-loop_139)"
+"(lambda(fold-var_204 lst_208)"
 "(begin"
 " 'for-loop"
-"(if(pair? lst_213)"
-"(let-values(((s_237)(unsafe-car lst_213))((rest_113)(unsafe-cdr lst_213)))"
-"(let-values(((fold-var_208)"
-"(let-values(((fold-var_209) fold-var_207))"
-"(let-values(((fold-var_210)"
+"(if(pair? lst_208)"
+"(let-values(((s_131)(unsafe-car lst_208))((rest_115)(unsafe-cdr lst_208)))"
+"(let-values(((fold-var_205)"
+"(let-values(((fold-var_206) fold-var_204))"
+"(let-values(((fold-var_207)"
 "(let-values()"
-"(cons(let-values() ''#f) fold-var_209))))"
-"(values fold-var_210)))))"
-"(if(not #f)(for-loop_212 fold-var_208 rest_113) fold-var_208)))"
-" fold-var_207)))))"
-" for-loop_212)"
+"(cons(let-values() ''#f) fold-var_206))))"
+"(values fold-var_207)))))"
+"(if(not #f)(for-loop_139 fold-var_205 rest_115) fold-var_205)))"
+" fold-var_204)))))"
+" for-loop_139)"
 " null"
-" lst_4)))))))"
+" lst_207)))))))"
 "(list* 'begin finish_1 '((void)))))"
 "(list 'args(list* 'let-values(list(list* gen-syms_1 '((apply values args)))) '((void)))))))))"
 "(define-values"
 "(propagate-inline-property)"
-"(lambda(e_37 orig-s_22)"
+"(lambda(e_36 orig-s_22)"
 "(begin"
-"(let-values(((v_165)(syntax-property$1 orig-s_22 'compiler-hint:cross-module-inline)))"
-"(if v_165(correlated-property e_37 'compiler-hint:cross-module-inline v_165) e_37)))))"
+"(let-values(((v_164)(syntax-property$1 orig-s_22 'compiler-hint:cross-module-inline)))"
+"(if v_164(correlated-property e_36 'compiler-hint:cross-module-inline v_164) e_36)))))"
 "(define-values"
 "(make-module-use-to-linklet)"
 "(lambda(cross-linklet-inlining?_2 ns_57 get-module-linklet-info_1 init-mu*s_0)"
@@ -30239,17 +29785,17 @@ static const char *startup_source =
 "(hash-set! mu*-intern-table_0(cons mod-name_15(module-use-phase mu*_5)) mu*_5)"
 " mu*_5)))))))))"
 "(begin"
-"(let-values(((lst_214) init-mu*s_0))"
+"(let-values(((lst_209) init-mu*s_0))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
-"(let-values()(check-list lst_214)))"
+"(let-values()(check-list lst_209)))"
 "((letrec-values(((for-loop_213)"
-"(lambda(lst_215)"
+"(lambda(lst_210)"
 "(begin"
 " 'for-loop"
-"(if(pair? lst_215)"
-"(let-values(((mu*_6)(unsafe-car lst_215))((rest_114)(unsafe-cdr lst_215)))"
+"(if(pair? lst_210)"
+"(let-values(((mu*_6)(unsafe-car lst_210))((rest_116)(unsafe-cdr lst_210)))"
 "(let-values((()"
 "(let-values()"
 "(let-values((()"
@@ -30258,10 +29804,10 @@ static const char *startup_source =
 "(let-values()(intern-module-use*_0 mu*_6))"
 "(values)))))"
 "(values)))))"
-"(if(not #f)(for-loop_213 rest_114)(values))))"
+"(if(not #f)(for-loop_213 rest_116)(values))))"
 "(values))))))"
 " for-loop_213)"
-" lst_214)))"
+" lst_209)))"
 "(void)"
 "(lambda(mu*-or-instance_0)"
 "(if(1/instance? mu*-or-instance_0)"
@@ -30273,10 +29819,10 @@ static const char *startup_source =
 "(let-values(((mu*_7) mu*-or-instance_0))"
 "(let-values(((mod-name_16)(1/module-path-index-resolve(module-use-module mu*_7))))"
 "(let-values(((mli_0)"
-"(let-values(((or-part_216)"
+"(let-values(((or-part_223)"
 "(get-module-linklet-info_1 mod-name_16(module-use-phase mu*_7))))"
-"(if or-part_216"
-" or-part_216"
+"(if or-part_223"
+" or-part_223"
 "(namespace->module-linklet-info"
 " ns_57"
 " mod-name_16"
@@ -30297,41 +29843,41 @@ static const char *startup_source =
 "((extra-inspectorsss_3)"
 "(module-linklet-info-extra-inspectorsss mli_0)))"
 "(reverse$1"
-"(let-values(((lst_216) mus_2)"
-"((lst_217)"
+"(let-values(((lst_211) mus_2)"
+"((lst_212)"
 "(1/linklet-import-variables"
 "(module-linklet-info-linklet-or-instance mli_0)))"
-"((lst_218)"
-"(let-values(((or-part_217) extra-inspectorsss_3))"
-"(if or-part_217 or-part_217 mus_2))))"
+"((lst_213)"
+"(let-values(((or-part_224) extra-inspectorsss_3))"
+"(if or-part_224 or-part_224 mus_2))))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
-"(let-values()(check-list lst_216)))"
+"(let-values()(check-list lst_211)))"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
-"(let-values()(check-list lst_217)))"
+"(let-values()(check-list lst_212)))"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
-"(let-values()(check-list lst_218)))"
+"(let-values()(check-list lst_213)))"
 "((letrec-values(((for-loop_214)"
-"(lambda(fold-var_211 lst_219 lst_220 lst_221)"
+"(lambda(fold-var_208 lst_214 lst_215 lst_216)"
 "(begin"
 " 'for-loop"
-"(if(if(pair? lst_219)"
-"(if(pair? lst_220)(pair? lst_221) #f)"
+"(if(if(pair? lst_214)"
+"(if(pair? lst_215)(pair? lst_216) #f)"
 " #f)"
-"(let-values(((sub-mu_0)(unsafe-car lst_219))"
-"((rest_115)(unsafe-cdr lst_219))"
-"((imports_3)(unsafe-car lst_220))"
-"((rest_116)(unsafe-cdr lst_220))"
+"(let-values(((sub-mu_0)(unsafe-car lst_214))"
+"((rest_117)(unsafe-cdr lst_214))"
+"((imports_3)(unsafe-car lst_215))"
+"((rest_118)(unsafe-cdr lst_215))"
 "((extra-inspectorss_13)"
-"(unsafe-car lst_221))"
-"((rest_117)(unsafe-cdr lst_221)))"
-"(let-values(((fold-var_212)"
-"(let-values(((fold-var_213)"
-" fold-var_211))"
-"(let-values(((fold-var_214)"
+"(unsafe-car lst_216))"
+"((rest_119)(unsafe-cdr lst_216)))"
+"(let-values(((fold-var_209)"
+"(let-values(((fold-var_210)"
+" fold-var_208))"
+"(let-values(((fold-var_211)"
 "(let-values()"
 "(cons"
 "(let-values()"
@@ -30354,21 +29900,21 @@ static const char *startup_source =
 "(if extra-inspectorsss_3"
 " extra-inspectorss_13"
 " #f))))"
-" fold-var_213))))"
-"(values fold-var_214)))))"
+" fold-var_210))))"
+"(values fold-var_211)))))"
 "(if(not #f)"
 "(for-loop_214"
-" fold-var_212"
-" rest_115"
-" rest_116"
-" rest_117)"
-" fold-var_212)))"
-" fold-var_211)))))"
+" fold-var_209"
+" rest_117"
+" rest_118"
+" rest_119)"
+" fold-var_209)))"
+" fold-var_208)))))"
 " for-loop_214)"
 " null"
-" lst_216"
-" lst_217"
-" lst_218)))))))"
+" lst_211"
+" lst_212"
+" lst_213)))))))"
 " #f))"
 "(values #f #f)))))))"
 "(let-values()(values #f #f))))))))))))"
@@ -30382,28 +29928,28 @@ static const char *startup_source =
 " cims_0"
 "(lambda(cim_1)"
 "(let-values(((vec_58 i_144)"
-"(let-values(((vec_59 len_29)"
+"(let-values(((vec_59 len_28)"
 "(let-values(((vec_60)(compiled-in-memory-mpis cim_1)))"
 "(begin"
 "(check-vector vec_60)"
 "(values vec_60(unsafe-vector-length vec_60))))))"
 "(begin"
 " #f"
-"((letrec-values(((for-loop_98)"
-"(lambda(vec_61 i_145 pos_92)"
+"((letrec-values(((for-loop_95)"
+"(lambda(vec_61 i_145 pos_94)"
 "(begin"
 " 'for-loop"
-"(if(unsafe-fx< pos_92 len_29)"
-"(let-values(((mpi_45)"
-"(unsafe-vector-ref vec_59 pos_92)))"
+"(if(unsafe-fx< pos_94 len_28)"
+"(let-values(((mpi_43)"
+"(unsafe-vector-ref vec_59 pos_94)))"
 "(let-values(((vec_62 i_146)"
 "(let-values(((vec_63) vec_61)"
-"((i_59) i_145))"
+"((i_61) i_145))"
 "(let-values(((vec_64 i_147)"
 "(let-values()"
 "(let-values(((new-vec_3)"
 "(if(eq?"
-" i_59"
+" i_61"
 "(unsafe-vector*-length"
 " vec_63))"
 "(grow-vector"
@@ -30412,25 +29958,25 @@ static const char *startup_source =
 "(begin"
 "(unsafe-vector*-set!"
 " new-vec_3"
-" i_59"
+" i_61"
 "(let-values()"
 "(add-module-path-index!/pos"
 " mpis_17"
-" mpi_45)))"
+" mpi_43)))"
 "(values"
 " new-vec_3"
 "(unsafe-fx+"
-" i_59"
+" i_61"
 " 1)))))))"
 "(values vec_64 i_147)))))"
 "(if(not #f)"
-"(for-loop_98"
+"(for-loop_95"
 " vec_62"
 " i_146"
-"(unsafe-fx+ 1 pos_92))"
+"(unsafe-fx+ 1 pos_94))"
 "(values vec_62 i_146))))"
 "(values vec_61 i_145))))))"
-" for-loop_98)"
+" for-loop_95)"
 "(make-vector 16)"
 " 0"
 " 0)))))"
@@ -30447,35 +29993,35 @@ static const char *startup_source =
 "(map-cim-tree"
 " cims_0"
 "(lambda(cim_3)"
-"(let-values(((pos_93) module-uses-tables-count_0))"
+"(let-values(((pos_95) module-uses-tables-count_0))"
 "(begin"
 "(set! module-uses-tables_0"
 "(cons"
 "(compiled-in-memory-phase-to-link-module-uses cim_3)"
 " module-uses-tables_0))"
-"(set! module-uses-tables-count_0(add1 pos_93))"
-" pos_93))))))"
+"(set! module-uses-tables-count_0(add1 pos_95))"
+" pos_95))))))"
 "(let-values(((syntax-literals-expr_0)"
 "(generate-eager-syntax-literals! syntax-literals_2 mpis_17 0 #f ns_42)))"
 "(let-values(((phase-to-link-module-uses-expr_1)"
 "(list*"
 " 'vector"
 "(reverse$1"
-"(let-values(((lst_222)(reverse$1 module-uses-tables_0)))"
+"(let-values(((lst_217)(reverse$1 module-uses-tables_0)))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
-"(let-values()(check-list lst_222)))"
-"((letrec-values(((for-loop_108)"
-"(lambda(fold-var_69 lst_87)"
+"(let-values()(check-list lst_217)))"
+"((letrec-values(((for-loop_105)"
+"(lambda(fold-var_69 lst_89)"
 "(begin"
 " 'for-loop"
-"(if(pair? lst_87)"
+"(if(pair? lst_89)"
 "(let-values(((phase-to-link-module-uses_2)"
-"(unsafe-car lst_87))"
-"((rest_118)(unsafe-cdr lst_87)))"
+"(unsafe-car lst_89))"
+"((rest_120)(unsafe-cdr lst_89)))"
 "(let-values(((fold-var_34)"
-"(let-values(((fold-var_157)"
+"(let-values(((fold-var_151)"
 " fold-var_69))"
 "(let-values(((fold-var_9)"
 "(let-values()"
@@ -30484,15 +30030,15 @@ static const char *startup_source =
 "(serialize-phase-to-link-module-uses"
 " phase-to-link-module-uses_2"
 " mpis_17))"
-" fold-var_157))))"
+" fold-var_151))))"
 "(values fold-var_9)))))"
 "(if(not #f)"
-"(for-loop_108 fold-var_34 rest_118)"
+"(for-loop_105 fold-var_34 rest_120)"
 " fold-var_34)))"
 " fold-var_69)))))"
-" for-loop_108)"
+" for-loop_105)"
 " null"
-" lst_222)))))))"
+" lst_217)))))))"
 "(1/compile-linklet"
 "(list"
 " 'linklet"
@@ -30520,114 +30066,108 @@ static const char *startup_source =
 "(map-cim-tree)"
 "(lambda(cims_1 proc_8)"
 "(begin"
-"((letrec-values(((loop_91)"
+"((letrec-values(((loop_89)"
 "(lambda(cims_2)"
 "(begin"
 " 'loop"
 "(reverse$1"
-"(let-values(((lst_79) cims_2))"
+"(let-values(((lst_80) cims_2))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
-"(let-values()(check-list lst_79)))"
-"((letrec-values(((for-loop_99)"
-"(lambda(fold-var_215 lst_80)"
+"(let-values()(check-list lst_80)))"
+"((letrec-values(((for-loop_96)"
+"(lambda(fold-var_153 lst_81)"
 "(begin"
 " 'for-loop"
-"(if(pair? lst_80)"
-"(let-values(((cim_4)(unsafe-car lst_80))"
-"((rest_119)(unsafe-cdr lst_80)))"
-"(let-values(((fold-var_158)"
-"(let-values(((fold-var_168) fold-var_215))"
-"(let-values(((fold-var_169)"
+"(if(pair? lst_81)"
+"(let-values(((cim_4)(unsafe-car lst_81))"
+"((rest_121)(unsafe-cdr lst_81)))"
+"(let-values(((fold-var_212)"
+"(let-values(((fold-var_163) fold-var_153))"
+"(let-values(((fold-var_164)"
 "(let-values()"
 "(cons"
 "(let-values()"
 "(vector"
 "(proc_8 cim_4)"
-"(loop_91"
+"(loop_89"
 "(compiled-in-memory-pre-compiled-in-memorys"
 " cim_4))"
-"(loop_91"
+"(loop_89"
 "(compiled-in-memory-post-compiled-in-memorys"
 " cim_4))))"
-" fold-var_168))))"
-"(values fold-var_169)))))"
+" fold-var_163))))"
+"(values fold-var_164)))))"
 "(if(not #f)"
-"(for-loop_99 fold-var_158 rest_119)"
-" fold-var_158)))"
-" fold-var_215)))))"
-" for-loop_99)"
+"(for-loop_96 fold-var_212 rest_121)"
+" fold-var_212)))"
+" fold-var_153)))))"
+" for-loop_96)"
 " null"
-" lst_79))))))))"
-" loop_91)"
+" lst_80))))))))"
+" loop_89)"
 " cims_1))))"
 "(define-values"
 "(compiled-tops->compiled-top8.1)"
-"(lambda(merge-serialization?2_0"
-" merge-serialization?5_0"
-" namespace3_0"
-" namespace6_0"
-" to-source?1_0"
-" to-source?4_0"
-" all-cims7_0)"
+"(lambda(merge-serialization?2_0 namespace3_0 to-source?1_0 all-cims7_0)"
 "(begin"
 " 'compiled-tops->compiled-top8"
 "(let-values(((all-cims_0) all-cims7_0))"
-"(let-values(((to-source?_1)(if to-source?4_0 to-source?1_0 #f)))"
-"(let-values(((merge-serialization?_0)(if merge-serialization?5_0 merge-serialization?2_0 #f)))"
-"(let-values(((ns_58)(if namespace6_0 namespace3_0 #f)))"
+"(let-values(((to-source?_1) to-source?1_0))"
+"(let-values(((merge-serialization?_0) merge-serialization?2_0))"
+"(let-values(((ns_58) namespace3_0))"
 "(let-values()"
 "(let-values(((cims_3)(remove-nontail-purely-functional all-cims_0)))"
 "(if(= 1(length cims_3))"
 "(let-values()(car cims_3))"
 "(let-values()"
 "(let-values(((sequence-ht_0)"
-"(let-values(((lst_223) cims_3)((start_35) 0))"
+"(let-values(((lst_218) cims_3)((start_35) 0))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
-"(let-values()(check-list lst_223)))"
+"(let-values()(check-list lst_218)))"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
 "(let-values()(check-naturals start_35)))"
 "((letrec-values(((for-loop_215)"
-"(lambda(table_173 lst_100 pos_94)"
+"(lambda(table_165 lst_219 pos_96)"
 "(begin"
 " 'for-loop"
-"(if(if(pair? lst_100) #t #f)"
-"(let-values(((cim_5)(unsafe-car lst_100))"
-"((rest_35)(unsafe-cdr lst_100))"
-"((i_84) pos_94))"
-"(let-values(((table_174)"
-"(let-values(((table_175) table_173))"
-"(let-values(((table_176)"
+"(if(if(pair? lst_219) #t #f)"
+"(let-values(((cim_5)(unsafe-car lst_219))"
+"((rest_49)(unsafe-cdr lst_219))"
+"((i_145) pos_96))"
+"(let-values(((table_166)"
+"(let-values(((table_167) table_165))"
+"(let-values(((table_168)"
 "(let-values()"
 "(let-values(((key_62"
-" val_57)"
+" val_35)"
 "(let-values()"
 "(values"
 "(string->symbol"
 "(number->string"
-" i_84))"
+" i_145))"
 "((if to-source?_1"
 " values"
 " compiled-in-memory-linklet-directory)"
 " cim_5)))))"
 "(hash-set"
-" table_175"
+" table_167"
 " key_62"
-" val_57)))))"
-"(values table_176)))))"
+" val_35)))))"
+"(values table_168)))))"
 "(if(not #f)"
-"(for-loop_215 table_174 rest_35(+ pos_94 1))"
-" table_174)))"
-" table_173)))))"
+"(for-loop_215 table_166 rest_49(+ pos_96 1))"
+" table_166)))"
+" table_165)))))"
 " for-loop_215)"
 " '#hasheq()"
-" lst_223"
+" lst_218"
 " start_35)))))"
-"(let-values(((ht_116)"
+"(let-values(((ht_73)"
 "(if merge-serialization?_0"
 "(hash-set"
 " sequence-ht_0"
@@ -30639,10 +30179,10 @@ static const char *startup_source =
 "(hasheq 0(build-shared-data-linklet cims_3 ns_58))))))"
 " sequence-ht_0)))"
 "(if to-source?_1"
-"(let-values() ht_116)"
+"(let-values() ht_73)"
 "(let-values()"
 "(compiled-in-memory1.1"
-"(1/hash->linklet-directory ht_116)"
+"(1/hash->linklet-directory ht_73)"
 " #f"
 " #f"
 " #f"
@@ -30659,60 +30199,60 @@ static const char *startup_source =
 "(compiled-top->compiled-tops)"
 "(lambda(ld_0)"
 "(begin"
-"(let-values(((ht_117)(1/linklet-directory->hash ld_0)))"
+"(let-values(((ht_112)(1/linklet-directory->hash ld_0)))"
 "(reverse$1"
-"(let-values(((start_36) 0)((end_25)(hash-count ht_117))((inc_19) 1))"
+"(let-values(((start_36) 0)((end_25)(hash-count ht_112))((inc_19) 1))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
 "(let-values()(check-range start_36 end_25 inc_19)))"
-"((letrec-values(((for-loop_10)"
-"(lambda(fold-var_216 pos_95)"
+"((letrec-values(((for-loop_193)"
+"(lambda(fold-var_166 pos_97)"
 "(begin"
 " 'for-loop"
-"(if(< pos_95 end_25)"
-"(let-values(((i_92) pos_95))"
-"(let-values(((fold-var_173)"
+"(if(< pos_97 end_25)"
+"(let-values(((i_42) pos_97))"
+"(let-values(((fold-var_213)"
 "(let-values(((top_0)"
 "(hash-ref"
-" ht_117"
-"(string->symbol(number->string i_92))"
+" ht_112"
+"(string->symbol(number->string i_42))"
 " #f)))"
 "(begin"
 " #t"
-"((letrec-values(((for-loop_116)"
-"(lambda(fold-var_66)"
+"((letrec-values(((for-loop_216)"
+"(lambda(fold-var_168)"
 "(begin"
 " 'for-loop"
 "(let-values()"
-"(let-values(((fold-var_72)"
-"(let-values(((fold-var_217)"
-" fold-var_66))"
+"(let-values(((fold-var_64)"
+"(let-values(((fold-var_65)"
+" fold-var_168))"
 "(if top_0"
-"(let-values(((fold-var_218)"
-" fold-var_217))"
-"(let-values(((fold-var_219)"
+"(let-values(((fold-var_66)"
+" fold-var_65))"
+"(let-values(((fold-var_72)"
 "(let-values()"
 "(cons"
 "(let-values()"
 " top_0)"
-" fold-var_218))))"
+" fold-var_66))))"
 "(values"
-" fold-var_219)))"
-" fold-var_217))))"
-" fold-var_72))))))"
-" for-loop_116)"
-" fold-var_216)))))"
-"(if(not #f)(for-loop_10 fold-var_173(+ pos_95 inc_19)) fold-var_173)))"
-" fold-var_216)))))"
-" for-loop_10)"
+" fold-var_72)))"
+" fold-var_65))))"
+" fold-var_64))))))"
+" for-loop_216)"
+" fold-var_166)))))"
+"(if(not #f)(for-loop_193 fold-var_213(+ pos_97 inc_19)) fold-var_213)))"
+" fold-var_166)))))"
+" for-loop_193)"
 " null"
 " start_36))))))))"
 "(define-values"
 "(remove-nontail-purely-functional)"
 "(lambda(cims_4)"
 "(begin"
-"((letrec-values(((loop_92)"
+"((letrec-values(((loop_82)"
 "(lambda(cims_5)"
 "(begin"
 " 'loop"
@@ -30723,41 +30263,41 @@ static const char *startup_source =
 "(if(if(compiled-in-memory?(car cims_5))"
 "(compiled-in-memory-purely-functional?(car cims_5))"
 " #f)"
-"(let-values()(loop_92(cdr cims_5)))"
+"(let-values()(loop_82(cdr cims_5)))"
 "(let-values()(cons(car cims_5)(cdr cims_5))))))))))"
-" loop_92)"
+" loop_82)"
 " cims_4))))"
 "(define-values"
 "(struct:known-defined/delay known-defined/delay2.1 known-defined/delay? known-defined/delay-thunk)"
-"(let-values(((struct:_68 make-_68 ?_68 -ref_68 -set!_68)"
+"(let-values(((struct:_69 make-_69 ?_69 -ref_69 -set!_69)"
 "(let-values()"
 "(let-values()"
 "(make-struct-type 'known-defined/delay #f 1 0 #f null 'prefab #f '(0) #f 'known-defined/delay)))))"
-"(values struct:_68 make-_68 ?_68(make-struct-field-accessor -ref_68 0 'thunk))))"
+"(values struct:_69 make-_69 ?_69(make-struct-field-accessor -ref_69 0 'thunk))))"
 "(define-values"
 "(struct:known-property known-property3.1 known-property?)"
-"(let-values(((struct:_62 make-_62 ?_62 -ref_62 -set!_62)"
+"(let-values(((struct:_63 make-_63 ?_63 -ref_63 -set!_63)"
 "(let-values()"
 "(let-values()(make-struct-type 'known-property #f 0 0 #f null 'prefab #f '() #f 'known-property)))))"
-"(values struct:_62 make-_62 ?_62)))"
+"(values struct:_63 make-_63 ?_63)))"
 "(define-values"
 "(struct:known-function known-function4.1 known-function? known-function-arity known-function-pure?)"
-"(let-values(((struct:_69 make-_69 ?_69 -ref_69 -set!_69)"
+"(let-values(((struct:_70 make-_70 ?_70 -ref_70 -set!_70)"
 "(let-values()"
 "(let-values()"
 "(make-struct-type 'known-function #f 2 0 #f null 'prefab #f '(0 1) #f 'known-function)))))"
 "(values"
-" struct:_69"
-" make-_69"
-" ?_69"
-"(make-struct-field-accessor -ref_69 0 'arity)"
-"(make-struct-field-accessor -ref_69 1 'pure?))))"
+" struct:_70"
+" make-_70"
+" ?_70"
+"(make-struct-field-accessor -ref_70 0 'arity)"
+"(make-struct-field-accessor -ref_70 1 'pure?))))"
 "(define-values"
 "(struct:known-function-of-satisfying"
 " known-function-of-satisfying5.1"
 " known-function-of-satisfying?"
 " known-function-of-satisfying-arg-predicate-keys)"
-"(let-values(((struct:_40 make-_40 ?_40 -ref_40 -set!_40)"
+"(let-values(((struct:_41 make-_41 ?_41 -ref_41 -set!_41)"
 "(let-values()"
 "(let-values()"
 "(make-struct-type"
@@ -30772,7 +30312,7 @@ static const char *startup_source =
 " '(0)"
 " #f"
 " 'known-function-of-satisfying)))))"
-"(values struct:_40 make-_40 ?_40(make-struct-field-accessor -ref_40 0 'arg-predicate-keys))))"
+"(values struct:_41 make-_41 ?_41(make-struct-field-accessor -ref_41 0 'arg-predicate-keys))))"
 "(define-values"
 "(struct:known-predicate known-predicate6.1 known-predicate? known-predicate-key)"
 "(let-values(((struct:_11 make-_11 ?_11 -ref_11 -set!_11)"
@@ -30782,76 +30322,68 @@ static const char *startup_source =
 "(values struct:_11 make-_11 ?_11(make-struct-field-accessor -ref_11 0 'key))))"
 "(define-values"
 "(struct:known-satisfies known-satisfies7.1 known-satisfies? known-satisfies-predicate-key)"
-"(let-values(((struct:_70 make-_70 ?_70 -ref_70 -set!_70)"
+"(let-values(((struct:_71 make-_71 ?_71 -ref_71 -set!_71)"
 "(let-values()"
 "(let-values()"
 "(make-struct-type 'known-satisfies #f 1 0 #f null 'prefab #f '(0) #f 'known-satisfies)))))"
-"(values struct:_70 make-_70 ?_70(make-struct-field-accessor -ref_70 0 'predicate-key))))"
+"(values struct:_71 make-_71 ?_71(make-struct-field-accessor -ref_71 0 'predicate-key))))"
 "(define-values"
 "(struct:known-struct-op known-struct-op8.1 known-struct-op? known-struct-op-type known-struct-op-field-count)"
-"(let-values(((struct:_37 make-_37 ?_37 -ref_37 -set!_37)"
+"(let-values(((struct:_38 make-_38 ?_38 -ref_38 -set!_38)"
 "(let-values()"
 "(let-values()"
 "(make-struct-type 'known-struct-op #f 2 0 #f null 'prefab #f '(0 1) #f 'known-struct-op)))))"
 "(values"
-" struct:_37"
-" make-_37"
-" ?_37"
-"(make-struct-field-accessor -ref_37 0 'type)"
-"(make-struct-field-accessor -ref_37 1 'field-count))))"
+" struct:_38"
+" make-_38"
+" ?_38"
+"(make-struct-field-accessor -ref_38 0 'type)"
+"(make-struct-field-accessor -ref_38 1 'field-count))))"
 "(define-values"
 "(lookup-defn)"
-"(lambda(defns_0 sym_54)"
+"(lambda(defns_0 sym_60)"
 "(begin"
-"(let-values(((d_29)(hash-ref defns_0 sym_54 #f)))"
+"(let-values(((d_29)(hash-ref defns_0 sym_60 #f)))"
 "(if(known-defined/delay? d_29)"
-"(let-values()(begin((known-defined/delay-thunk d_29))(lookup-defn defns_0 sym_54)))"
+"(let-values()(begin((known-defined/delay-thunk d_29))(lookup-defn defns_0 sym_60)))"
 "(let-values() d_29))))))"
 "(define-values"
 "(any-side-effects?9.1)"
-"(lambda(known-defns2_0"
-" known-defns5_0"
-" known-locals1_0"
-" known-locals4_0"
-" ready-variable?3_0"
-" ready-variable?6_0"
-" e7_0"
-" expected-results8_0)"
+"(lambda(known-defns2_0 known-locals1_0 ready-variable?3_0 e7_0 expected-results8_0)"
 "(begin"
 " 'any-side-effects?9"
-"(let-values(((e_38) e7_0))"
+"(let-values(((e_37) e7_0))"
 "(let-values(((expected-results_0) expected-results8_0))"
-"(let-values(((locals_0)(if known-locals4_0 known-locals1_0 '#hasheq())))"
-"(let-values(((defns_1)(if known-defns5_0 known-defns2_0 '#hasheq())))"
+"(let-values(((locals_0)(if(eq? known-locals1_0 unsafe-undefined) '#hasheq() known-locals1_0)))"
+"(let-values(((defns_1)(if(eq? known-defns2_0 unsafe-undefined) '#hasheq() known-defns2_0)))"
 "(let-values(((ready-variable?_0)"
-"(if ready-variable?6_0 ready-variable?3_0(lambda(id_51)(begin 'ready-variable? #f)))))"
+"(if(eq? ready-variable?3_0 unsafe-undefined)"
+"(lambda(id_50)(begin 'ready-variable? #f))"
+" ready-variable?3_0)))"
 "(let-values()"
 "(let-values(((effects?_0)"
-"(lambda(e_39 expected-results_1 locals_1)"
+"(lambda(e_38 expected-results_1 locals_1)"
 "(begin"
 " 'effects?"
-"(let-values(((e12_0) e_39)"
+"(let-values(((e12_0) e_38)"
 "((expected-results13_0) expected-results_1)"
 "((locals14_0) locals_1)"
 "((defns15_0) defns_1)"
 "((ready-variable?16_0) ready-variable?_0))"
 "(any-side-effects?9.1"
 " defns15_0"
-" #t"
 " locals14_0"
-" #t"
 " ready-variable?16_0"
-" #t"
 " e12_0"
 " expected-results13_0))))))"
 "(let-values(((actual-results_0)"
-"((letrec-values(((loop_2)"
-"(lambda(e_40 locals_2)"
+"((letrec-values(((loop_80)"
+"(lambda(e_39 locals_2)"
 "(begin"
 " 'loop"
 "(let-values(((tmp_26)"
-"(if(pair?(correlated-e e_40))"
-"(correlated-e(car(correlated-e e_40)))"
+"(if(pair?(correlated-e e_39))"
+"(correlated-e(car(correlated-e e_39)))"
 " #f)))"
 "(let-values(((index_1)"
 "(if(symbol? tmp_26)"
@@ -30879,75 +30411,76 @@ static const char *startup_source =
 "(if(unsafe-fx< index_1 2)"
 "(if(unsafe-fx< index_1 1)"
 "(let-values()"
-"(let-values(((v_4)(correlated-e e_40)))"
-"(if(let-values(((or-part_79)(string? v_4)))"
-"(if or-part_79"
-" or-part_79"
-"(let-values(((or-part_80)(number? v_4)))"
-"(if or-part_80"
-" or-part_80"
-"(let-values(((or-part_29)"
-"(boolean? v_4)))"
-"(if or-part_29"
-" or-part_29"
-"(char? v_4)))))))"
+"(let-values(((v_30)(correlated-e e_39)))"
+"(if(let-values(((or-part_74)(string? v_30)))"
+"(if or-part_74"
+" or-part_74"
+"(let-values(((or-part_75)"
+"(number? v_30)))"
+"(if or-part_75"
+" or-part_75"
+"(let-values(((or-part_76)"
+"(boolean? v_30)))"
+"(if or-part_76"
+" or-part_76"
+"(char? v_30)))))))"
 "(let-values() 1)"
 "(let-values(((c1_26)"
-"(if(pair? v_4)"
+"(if(pair? v_30)"
 "(let-values(((rator_0)"
 "(correlated-e"
-"(car v_4))))"
-"(let-values(((or-part_83)"
+"(car v_30))))"
+"(let-values(((or-part_29)"
 "(hash-ref"
 " locals_2"
 " rator_0"
 " #f)))"
-"(if or-part_83"
-" or-part_83"
+"(if or-part_29"
+" or-part_29"
 "(lookup-defn"
 " defns_1"
 " rator_0))))"
 " #f)))"
 "(if c1_26"
-"((lambda(d_19)"
+"((lambda(d_30)"
 "(let-values(((ok?_17 _17_0 e18_0)"
-"(let-values(((s_44) e_40))"
+"(let-values(((s_89) e_39))"
 "(let-values(((orig-s_23)"
-" s_44))"
+" s_89))"
 "(let-values(((_17_1"
 " e18_1)"
-"(let-values(((s_89)"
+"(let-values(((s_306)"
 "(if(1/syntax?"
-" s_44)"
-"(syntax-e$2"
-" s_44)"
-" s_44)))"
-"(if(pair?"
 " s_89)"
-"(let-values(((_19_0)"
-"(let-values(((s_312)"
-"(car"
-" s_89)))"
-" s_312))"
-"((e20_0)"
-"(let-values(((s_187)"
-"(cdr"
-" s_89)))"
-"(let-values(((s_313)"
-"(if(1/syntax?"
-" s_187)"
 "(syntax-e$2"
-" s_187)"
-" s_187)))"
+" s_89)"
+" s_89)))"
+"(if(pair?"
+" s_306)"
+"(let-values(((_19_0)"
+"(let-values(((s_90)"
+"(car"
+" s_306)))"
+" s_90))"
+"((e20_0)"
+"(let-values(((s_168)"
+"(cdr"
+" s_306)))"
+"(let-values(((s_307)"
+"(if(1/syntax?"
+" s_168)"
+"(syntax-e$2"
+" s_168)"
+" s_168)))"
 "(let-values(((flat-s_13)"
 "(to-syntax-list.1$1"
-" s_313)))"
+" s_307)))"
 "(if(not"
 " flat-s_13)"
 "(let-values()"
 "((lambda(false_0"
 " str_5"
-" e_41)"
+" e_40)"
 "(error"
 " str_5))"
 " #f"
@@ -30960,7 +30493,7 @@ static const char *startup_source =
 " e20_0))"
 "((lambda(false_1"
 " str_6"
-" e_42)"
+" e_41)"
 "(error"
 " str_6))"
 " #f"
@@ -30972,33 +30505,33 @@ static const char *startup_source =
 " e18_1))))))"
 "(let-values(((n-args_0)"
 "(length e18_0)))"
-"(if(let-values(((or-part_218)"
-"(if(let-values(((or-part_219)"
+"(if(let-values(((or-part_225)"
+"(if(let-values(((or-part_226)"
 "(if(known-struct-op?"
-" d_19)"
+" d_30)"
 "(if(eq?"
 " 'constructor"
 "(known-struct-op-type"
-" d_19))"
+" d_30))"
 "(="
 "(known-struct-op-field-count"
-" d_19)"
+" d_30)"
 " n-args_0)"
 " #f)"
 " #f)))"
-"(if or-part_219"
-" or-part_219"
+"(if or-part_226"
+" or-part_226"
 "(if(known-function?"
-" d_19)"
+" d_30)"
 "(if(known-function-pure?"
-" d_19)"
+" d_30)"
 "(arity-includes?"
 "(known-function-arity"
-" d_19)"
+" d_30)"
 " n-args_0)"
 " #f)"
 " #f)))"
-"(let-values(((lst_224)"
+"(let-values(((lst_220)"
 " e18_0))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
@@ -31006,173 +30539,173 @@ static const char *startup_source =
 "(void)"
 "(let-values()"
 "(check-list"
-" lst_224)))"
-"((letrec-values(((for-loop_27)"
-"(lambda(result_82"
-" lst_225)"
+" lst_220)))"
+"((letrec-values(((for-loop_217)"
+"(lambda(result_80"
+" lst_221)"
 "(begin"
 " 'for-loop"
 "(if(pair?"
-" lst_225)"
-"(let-values(((e_43)"
+" lst_221)"
+"(let-values(((e_42)"
 "(unsafe-car"
-" lst_225))"
-"((rest_120)"
+" lst_221))"
+"((rest_122)"
 "(unsafe-cdr"
-" lst_225)))"
-"(let-values(((result_83)"
+" lst_221)))"
+"(let-values(((result_81)"
 "(let-values()"
-"(let-values(((result_84)"
+"(let-values(((result_82)"
 "(let-values()"
 "(let-values()"
 "(not"
 "(effects?_0"
-" e_43"
+" e_42"
 " 1"
 " locals_2))))))"
 "(values"
-" result_84)))))"
-"(if(if(not"
-"((lambda x_55"
-"(not"
-" result_83))"
-" e_43))"
-"(not"
-" #f)"
-" #f)"
-"(for-loop_27"
-" result_83"
-" rest_120)"
-" result_83)))"
 " result_82)))))"
-" for-loop_27)"
+"(if(if(not"
+"((lambda x_57"
+"(not"
+" result_81))"
+" e_42))"
+"(not"
+" #f)"
+" #f)"
+"(for-loop_217"
+" result_81"
+" rest_122)"
+" result_81)))"
+" result_80)))))"
+" for-loop_217)"
 " #t"
-" lst_224)))"
+" lst_220)))"
 " #f)))"
-"(if or-part_218"
-" or-part_218"
+"(if or-part_225"
+" or-part_225"
 "(if(known-function-of-satisfying?"
-" d_19)"
+" d_30)"
 "(if(="
 " n-args_0"
 "(length"
 "(known-function-of-satisfying-arg-predicate-keys"
-" d_19)))"
-"(let-values(((lst_177)"
+" d_30)))"
+"(let-values(((lst_97)"
 " e18_0)"
-"((lst_178)"
+"((lst_222)"
 "(known-function-of-satisfying-arg-predicate-keys"
-" d_19)))"
+" d_30)))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
 "(#%variable-reference))"
 "(void)"
 "(let-values()"
 "(check-list"
-" lst_177)))"
+" lst_97)))"
 "(if(variable-reference-from-unsafe?"
 "(#%variable-reference))"
 "(void)"
 "(let-values()"
 "(check-list"
-" lst_178)))"
-"((letrec-values(((for-loop_28)"
-"(lambda(result_85"
-" lst_179"
-" lst_180)"
+" lst_222)))"
+"((letrec-values(((for-loop_98)"
+"(lambda(result_83"
+" lst_175"
+" lst_10)"
 "(begin"
 " 'for-loop"
 "(if(if(pair?"
-" lst_179)"
+" lst_175)"
 "(pair?"
-" lst_180)"
+" lst_10)"
 " #f)"
-"(let-values(((e_44)"
+"(let-values(((e_3)"
 "(unsafe-car"
-" lst_179))"
-"((rest_94)"
+" lst_175))"
+"((rest_1)"
 "(unsafe-cdr"
-" lst_179))"
+" lst_175))"
 "((key_63)"
 "(unsafe-car"
-" lst_180))"
-"((rest_95)"
+" lst_10))"
+"((rest_123)"
 "(unsafe-cdr"
-" lst_180)))"
-"(let-values(((result_86)"
+" lst_10)))"
+"(let-values(((result_84)"
 "(let-values()"
-"(let-values(((result_87)"
+"(let-values(((result_85)"
 "(let-values()"
 "(let-values()"
 "(if(not"
 "(effects?_0"
-" e_44"
+" e_3"
 " 1"
 " locals_2))"
 "(satisfies?"
-" e_44"
+" e_3"
 " key_63"
 " defns_1"
 " locals_2)"
 " #f)))))"
 "(values"
-" result_87)))))"
+" result_85)))))"
 "(if(if(not"
+"((lambda x_58"
+"(not"
+" result_84))"
+" e_3))"
+"(if(not"
 "((lambda x_9"
 "(not"
-" result_86))"
-" e_44))"
-"(if(not"
-"((lambda x_56"
-"(not"
-" result_86))"
+" result_84))"
 " key_63))"
 "(not"
 " #f)"
 " #f)"
 " #f)"
-"(for-loop_28"
-" result_86"
-" rest_94"
-" rest_95)"
-" result_86)))"
-" result_85)))))"
-" for-loop_28)"
+"(for-loop_98"
+" result_84"
+" rest_1"
+" rest_123)"
+" result_84)))"
+" result_83)))))"
+" for-loop_98)"
 " #t"
-" lst_177"
-" lst_178)))"
+" lst_97"
+" lst_222)))"
 " #f)"
 " #f)))"
 " 1"
 " #f))))"
 " c1_26)"
 "(let-values()"
-"(if(let-values(((or-part_68)"
+"(if(let-values(((or-part_167)"
 "(self-quoting-in-linklet?"
-" v_4)))"
-"(if or-part_68"
-" or-part_68"
-"(if(symbol? v_4)"
-"(let-values(((or-part_220)"
+" v_30)))"
+"(if or-part_167"
+" or-part_167"
+"(if(symbol? v_30)"
+"(let-values(((or-part_65)"
 "(hash-ref"
 " locals_2"
-" v_4"
+" v_30"
 " #f)))"
-"(if or-part_220"
-" or-part_220"
-"(let-values(((or-part_221)"
+"(if or-part_65"
+" or-part_65"
+"(let-values(((or-part_227)"
 "(lookup-defn"
 " defns_1"
-" v_4)))"
-"(if or-part_221"
-" or-part_221"
-"(let-values(((or-part_222)"
+" v_30)))"
+"(if or-part_227"
+" or-part_227"
+"(let-values(((or-part_66)"
 "(built-in-symbol?"
-" v_4)))"
-"(if or-part_222"
-" or-part_222"
+" v_30)))"
+"(if or-part_66"
+" or-part_66"
 "(ready-variable?_0"
-" v_4)))))))"
+" v_30)))))))"
 " #f)))"
 " 1"
 " #f)))))))"
@@ -31184,58 +30717,58 @@ static const char *startup_source =
 " ids22_0"
 " rhs23_0"
 " body24_0)"
-"(let-values(((s_314) e_40))"
-"(let-values(((orig-s_24) s_314))"
+"(let-values(((s_46) e_39))"
+"(let-values(((orig-s_24) s_46))"
 "(let-values(((_21_1"
 " ids22_1"
 " rhs23_1"
 " body24_1)"
-"(let-values(((s_171)"
+"(let-values(((s_308)"
 "(if(1/syntax?"
-" s_314)"
+" s_46)"
 "(syntax-e$2"
-" s_314)"
-" s_314)))"
-"(if(pair? s_171)"
+" s_46)"
+" s_46)))"
+"(if(pair? s_308)"
 "(let-values(((_25_0)"
-"(let-values(((s_315)"
+"(let-values(((s_28)"
 "(car"
-" s_171)))"
-" s_315))"
+" s_308)))"
+" s_28))"
 "((ids26_0"
 " rhs27_0"
 " body28_0)"
-"(let-values(((s_168)"
+"(let-values(((s_29)"
 "(cdr"
-" s_171)))"
-"(let-values(((s_316)"
+" s_308)))"
+"(let-values(((s_30)"
 "(if(1/syntax?"
-" s_168)"
+" s_29)"
 "(syntax-e$2"
-" s_168)"
-" s_168)))"
+" s_29)"
+" s_29)))"
 "(if(pair?"
-" s_316)"
+" s_30)"
 "(let-values(((ids29_0"
 " rhs30_0)"
-"(let-values(((s_317)"
+"(let-values(((s_309)"
 "(car"
-" s_316)))"
-"(let-values(((s_318)"
+" s_30)))"
+"(let-values(((s_157)"
 "(if(1/syntax?"
-" s_317)"
+" s_309)"
 "(syntax-e$2"
-" s_317)"
-" s_317)))"
+" s_309)"
+" s_309)))"
 "(let-values(((flat-s_14)"
 "(to-syntax-list.1$1"
-" s_318)))"
+" s_157)))"
 "(if(not"
 " flat-s_14)"
 "(let-values()"
 "((lambda(false_2"
 " str_7"
-" e_45)"
+" e_43)"
 "(error"
 " str_7))"
 " #f"
@@ -31244,7 +30777,7 @@ static const char *startup_source =
 "(let-values()"
 "(let-values(((ids_8"
 " rhs_4)"
-"(let-values(((lst_226)"
+"(let-values(((lst_189)"
 " flat-s_14))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
@@ -31252,21 +30785,21 @@ static const char *startup_source =
 "(void)"
 "(let-values()"
 "(check-list"
-" lst_226)))"
-"((letrec-values(((for-loop_79)"
+" lst_189)))"
+"((letrec-values(((for-loop_201)"
 "(lambda(ids_9"
 " rhs_5"
-" lst_227)"
+" lst_223)"
 "(begin"
 " 'for-loop"
 "(if(pair?"
-" lst_227)"
-"(let-values(((s_319)"
+" lst_223)"
+"(let-values(((s_49)"
 "(unsafe-car"
-" lst_227))"
-"((rest_89)"
+" lst_223))"
+"((rest_124)"
 "(unsafe-cdr"
-" lst_227)))"
+" lst_223)))"
 "(let-values(((ids_10"
 " rhs_6)"
 "(let-values(((ids_11)"
@@ -31279,52 +30812,52 @@ static const char *startup_source =
 "(let-values(((ids36_0"
 " rhs37_0)"
 "(let-values()"
-"(let-values(((s_54)"
+"(let-values(((s_165)"
 "(if(1/syntax?"
-" s_319)"
+" s_49)"
 "(syntax-e$2"
-" s_319)"
-" s_319)))"
+" s_49)"
+" s_49)))"
 "(if(pair?"
-" s_54)"
+" s_165)"
 "(let-values(((ids32_0)"
-"(let-values(((s_320)"
+"(let-values(((s_54)"
 "(car"
-" s_54)))"
-" s_320))"
+" s_165)))"
+" s_54))"
 "((rhs33_0)"
-"(let-values(((s_92)"
+"(let-values(((s_310)"
 "(cdr"
-" s_54)))"
-"(let-values(((s_321)"
+" s_165)))"
+"(let-values(((s_92)"
 "(if(1/syntax?"
-" s_92)"
+" s_310)"
 "(syntax-e$2"
-" s_92)"
-" s_92)))"
+" s_310)"
+" s_310)))"
 "(if(pair?"
-" s_321)"
+" s_92)"
 "(let-values(((rhs34_0)"
 "(let-values(((s_93)"
 "(car"
-" s_321)))"
+" s_92)))"
 " s_93))"
 "(()"
-"(let-values(((s_55)"
+"(let-values(((s_311)"
 "(cdr"
-" s_321)))"
-"(let-values(((s_322)"
+" s_92)))"
+"(let-values(((s_312)"
 "(if(1/syntax?"
-" s_55)"
+" s_311)"
 "(syntax-e$2"
-" s_55)"
-" s_55)))"
+" s_311)"
+" s_311)))"
 "(if(null?"
-" s_322)"
+" s_312)"
 "(values)"
 "((lambda(false_3"
 " str_8"
-" e_46)"
+" e_44)"
 "(error"
 " str_8))"
 " #f"
@@ -31334,7 +30867,7 @@ static const char *startup_source =
 " rhs34_0))"
 "((lambda(false_4"
 " str_9"
-" e_47)"
+" e_45)"
 "(error"
 " str_9))"
 " #f"
@@ -31345,7 +30878,7 @@ static const char *startup_source =
 " rhs33_0))"
 "((lambda(false_5"
 " str_10"
-" e_48)"
+" e_46)"
 "(error"
 " str_10))"
 " #f"
@@ -31363,58 +30896,58 @@ static const char *startup_source =
 " rhs_8)))))"
 "(if(not"
 " #f)"
-"(for-loop_79"
+"(for-loop_201"
 " ids_10"
 " rhs_6"
-" rest_89)"
+" rest_124)"
 "(values"
 " ids_10"
 " rhs_6))))"
 "(values"
 " ids_9"
 " rhs_5))))))"
-" for-loop_79)"
+" for-loop_201)"
 " null"
 " null"
-" lst_226)))))"
+" lst_189)))))"
 "(values"
 "(reverse$1"
 " ids_8)"
 "(reverse$1"
 " rhs_4)))))))))"
 "((body31_0)"
-"(let-values(((s_323)"
+"(let-values(((s_95)"
 "(cdr"
-" s_316)))"
-"(let-values(((s_324)"
+" s_30)))"
+"(let-values(((s_57)"
 "(if(1/syntax?"
-" s_323)"
+" s_95)"
 "(syntax-e$2"
-" s_323)"
-" s_323)))"
+" s_95)"
+" s_95)))"
 "(if(pair?"
-" s_324)"
+" s_57)"
 "(let-values(((body35_0)"
-"(let-values(((s_325)"
+"(let-values(((s_164)"
 "(car"
-" s_324)))"
-" s_325))"
+" s_57)))"
+" s_164))"
 "(()"
-"(let-values(((s_166)"
+"(let-values(((s_313)"
 "(cdr"
-" s_324)))"
-"(let-values(((s_326)"
+" s_57)))"
+"(let-values(((s_314)"
 "(if(1/syntax?"
-" s_166)"
+" s_313)"
 "(syntax-e$2"
-" s_166)"
-" s_166)))"
+" s_313)"
+" s_313)))"
 "(if(null?"
-" s_326)"
+" s_314)"
 "(values)"
 "((lambda(false_6"
 " str_11"
-" e_49)"
+" e_47)"
 "(error"
 " str_11))"
 " #f"
@@ -31424,7 +30957,7 @@ static const char *startup_source =
 " body35_0))"
 "((lambda(false_7"
 " str_12"
-" e_50)"
+" e_48)"
 "(error"
 " str_12))"
 " #f"
@@ -31436,7 +30969,7 @@ static const char *startup_source =
 " body31_0))"
 "((lambda(false_8"
 " str_13"
-" e_51)"
+" e_49)"
 "(error"
 " str_13))"
 " #f"
@@ -31449,7 +30982,7 @@ static const char *startup_source =
 " body28_0))"
 "((lambda(false_9"
 " str_14"
-" e_52)"
+" e_50)"
 "(error"
 " str_14))"
 " #f"
@@ -31462,43 +30995,43 @@ static const char *startup_source =
 " rhs23_1"
 " body24_1))))))"
 "(if(not"
-"(let-values(((lst_228) ids22_0)"
-"((lst_229) rhs23_0))"
+"(let-values(((lst_194) ids22_0)"
+"((lst_224) rhs23_0))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
 "(#%variable-reference))"
 "(void)"
-"(let-values()(check-list lst_228)))"
+"(let-values()(check-list lst_194)))"
 "(if(variable-reference-from-unsafe?"
 "(#%variable-reference))"
 "(void)"
-"(let-values()(check-list lst_229)))"
-"((letrec-values(((for-loop_216)"
-"(lambda(result_88"
-" lst_230"
-" lst_231)"
+"(let-values()(check-list lst_224)))"
+"((letrec-values(((for-loop_218)"
+"(lambda(result_13"
+" lst_196"
+" lst_225)"
 "(begin"
 " 'for-loop"
 "(if(if(pair?"
-" lst_230)"
+" lst_196)"
 "(pair?"
-" lst_231)"
+" lst_225)"
 " #f)"
 "(let-values(((ids_13)"
 "(unsafe-car"
-" lst_230))"
-"((rest_121)"
+" lst_196))"
+"((rest_125)"
 "(unsafe-cdr"
-" lst_230))"
+" lst_196))"
 "((rhs_9)"
 "(unsafe-car"
-" lst_231))"
-"((rest_122)"
+" lst_225))"
+"((rest_126)"
 "(unsafe-cdr"
-" lst_231)))"
-"(let-values(((result_89)"
+" lst_225)))"
+"(let-values(((result_86)"
 "(let-values()"
-"(let-values(((result_90)"
+"(let-values(((result_87)"
 "(let-values()"
 "(let-values()"
 "(effects?_0"
@@ -31507,71 +31040,71 @@ static const char *startup_source =
 " ids_13)"
 " locals_2)))))"
 "(values"
-" result_90)))))"
+" result_87)))))"
 "(if(if(not"
-"((lambda x_57"
-" result_89)"
+"((lambda x_59"
+" result_86)"
 " ids_13))"
 "(if(not"
-"((lambda x_58"
-" result_89)"
+"((lambda x_60"
+" result_86)"
 " rhs_9))"
 "(not"
 " #f)"
 " #f)"
 " #f)"
-"(for-loop_216"
-" result_89"
-" rest_121"
-" rest_122)"
-" result_89)))"
-" result_88)))))"
-" for-loop_216)"
+"(for-loop_218"
+" result_86"
+" rest_125"
+" rest_126)"
+" result_86)))"
+" result_13)))))"
+" for-loop_218)"
 " #f"
-" lst_228"
-" lst_229))))"
-"(loop_2"
+" lst_194"
+" lst_224))))"
+"(loop_80"
 " body24_0"
 "(add-binding-info locals_2 ids22_0 rhs23_0))"
 " #f)))"
 "(if(unsafe-fx< index_1 4)"
 "(let-values()"
 "(let-values(((ok?_19 _38_0 e39_0)"
-"(let-values(((s_67) e_40))"
-"(let-values(((orig-s_25) s_67))"
+"(let-values(((s_315) e_39))"
+"(let-values(((orig-s_25) s_315))"
 "(let-values(((_38_1 e39_1)"
-"(let-values(((s_327)"
+"(let-values(((s_316)"
 "(if(1/syntax?"
-" s_67)"
+" s_315)"
 "(syntax-e$2"
-" s_67)"
-" s_67)))"
+" s_315)"
+" s_315)))"
 "(if(pair?"
-" s_327)"
+" s_316)"
 "(let-values(((_40_0)"
-"(let-values(((s_38)"
+"(let-values(((s_208)"
 "(car"
-" s_327)))"
-" s_38))"
+" s_316)))"
+" s_208))"
 "((e41_0)"
-"(let-values(((s_328)"
+"(let-values(((s_38)"
 "(cdr"
-" s_327)))"
-"(let-values(((s_329)"
+" s_316)))"
+"(let-values(((s_317)"
 "(if(1/syntax?"
-" s_328)"
+" s_38)"
 "(syntax-e$2"
-" s_328)"
-" s_328)))"
+" s_38)"
+" s_38)))"
 "(let-values(((flat-s_15)"
 "(to-syntax-list.1$1"
-" s_329)))"
+" s_317)))"
 "(if(not"
 " flat-s_15)"
 "(let-values()"
 "((lambda(false_10"
 " str_15"
-" e_53)"
+" e_51)"
 "(error"
 " str_15))"
 " #f"
@@ -31584,101 +31117,101 @@ static const char *startup_source =
 " e41_0))"
 "((lambda(false_11"
 " str_16"
-" e_54)"
+" e_52)"
 "(error"
 " str_16))"
 " #f"
 "                                                                                                           \"bad syntax\""
 " orig-s_25)))))"
 "(values #t _38_1 e39_1))))))"
-"(if(let-values(((lst_203) e39_0))"
+"(if(let-values(((lst_226) e39_0))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
 "(#%variable-reference))"
 "(void)"
-"(let-values()(check-list lst_203)))"
-"((letrec-values(((for-loop_206)"
-"(lambda(result_91"
-" lst_204)"
+"(let-values()(check-list lst_226)))"
+"((letrec-values(((for-loop_219)"
+"(lambda(result_88"
+" lst_227)"
 "(begin"
 " 'for-loop"
 "(if(pair?"
-" lst_204)"
-"(let-values(((e_55)"
+" lst_227)"
+"(let-values(((e_53)"
 "(unsafe-car"
-" lst_204))"
-"((rest_107)"
+" lst_227))"
+"((rest_127)"
 "(unsafe-cdr"
-" lst_204)))"
-"(let-values(((result_92)"
+" lst_227)))"
+"(let-values(((result_89)"
 "(let-values()"
-"(let-values(((result_93)"
+"(let-values(((result_90)"
 "(let-values()"
 "(let-values()"
 "(not"
 "(effects?_0"
-" e_55"
+" e_53"
 " 1"
 " locals_2))))))"
 "(values"
-" result_93)))))"
+" result_90)))))"
 "(if(if(not"
-"((lambda x_59"
+"((lambda x_61"
 "(not"
-" result_92))"
-" e_55))"
+" result_89))"
+" e_53))"
 "(not"
 " #f)"
 " #f)"
-"(for-loop_206"
-" result_92"
-" rest_107)"
-" result_92)))"
-" result_91)))))"
-" for-loop_206)"
+"(for-loop_219"
+" result_89"
+" rest_127)"
+" result_89)))"
+" result_88)))))"
+" for-loop_219)"
 " #t"
-" lst_203)))"
+" lst_226)))"
 "(length e39_0)"
 " #f)))"
 "(if(unsafe-fx< index_1 5)"
 "(let-values()"
 "(let-values(((ok?_20 _42_0 e43_0)"
-"(let-values(((s_330) e_40))"
+"(let-values(((s_318) e_39))"
 "(let-values(((orig-s_26)"
-" s_330))"
+" s_318))"
 "(let-values(((_42_1 e43_1)"
-"(let-values(((s_331)"
+"(let-values(((s_319)"
 "(if(1/syntax?"
-" s_330)"
+" s_318)"
 "(syntax-e$2"
-" s_330)"
-" s_330)))"
+" s_318)"
+" s_318)))"
 "(if(pair?"
-" s_331)"
+" s_319)"
 "(let-values(((_44_0)"
-"(let-values(((s_162)"
+"(let-values(((s_320)"
 "(car"
-" s_331)))"
-" s_162))"
+" s_319)))"
+" s_320))"
 "((e45_0)"
-"(let-values(((s_332)"
+"(let-values(((s_321)"
 "(cdr"
-" s_331)))"
-"(let-values(((s_68)"
+" s_319)))"
+"(let-values(((s_213)"
 "(if(1/syntax?"
-" s_332)"
+" s_321)"
 "(syntax-e$2"
-" s_332)"
-" s_332)))"
+" s_321)"
+" s_321)))"
 "(let-values(((flat-s_16)"
 "(to-syntax-list.1$1"
-" s_68)))"
+" s_213)))"
 "(if(not"
 " flat-s_16)"
 "(let-values()"
 "((lambda(false_12"
 " str_17"
-" e_56)"
+" e_54)"
 "(error"
 " str_17))"
 " #f"
@@ -31691,101 +31224,101 @@ static const char *startup_source =
 " e45_0))"
 "((lambda(false_13"
 " str_18"
-" e_57)"
+" e_55)"
 "(error"
 " str_18))"
 " #f"
 "                                                                                                             \"bad syntax\""
 " orig-s_26)))))"
 "(values #t _42_1 e43_1))))))"
-"(if(let-values(((lst_232) e43_0))"
+"(if(let-values(((lst_228) e43_0))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
 "(#%variable-reference))"
 "(void)"
 "(let-values()"
-"(check-list lst_232)))"
-"((letrec-values(((for-loop_208)"
-"(lambda(result_94"
-" lst_233)"
+"(check-list lst_228)))"
+"((letrec-values(((for-loop_220)"
+"(lambda(result_91"
+" lst_229)"
 "(begin"
 " 'for-loop"
 "(if(pair?"
-" lst_233)"
-"(let-values(((e_58)"
+" lst_229)"
+"(let-values(((e_56)"
 "(unsafe-car"
-" lst_233))"
-"((rest_123)"
+" lst_229))"
+"((rest_128)"
 "(unsafe-cdr"
-" lst_233)))"
-"(let-values(((result_95)"
+" lst_229)))"
+"(let-values(((result_92)"
 "(let-values()"
-"(let-values(((result_96)"
+"(let-values(((result_93)"
 "(let-values()"
 "(let-values()"
 "(not"
 "(effects?_0"
-" e_58"
+" e_56"
 " 1"
 " locals_2))))))"
 "(values"
-" result_96)))))"
+" result_93)))))"
 "(if(if(not"
-"((lambda x_60"
+"((lambda x_62"
 "(not"
-" result_95))"
-" e_58))"
+" result_92))"
+" e_56))"
 "(not"
 " #f)"
 " #f)"
-"(for-loop_208"
-" result_95"
-" rest_123)"
-" result_95)))"
-" result_94)))))"
-" for-loop_208)"
+"(for-loop_220"
+" result_92"
+" rest_128)"
+" result_92)))"
+" result_91)))))"
+" for-loop_220)"
 " #t"
-" lst_232)))"
+" lst_228)))"
 " 1"
 " #f)))"
 "(let-values()"
 "(let-values(((ok?_21 _46_0 e47_0)"
-"(let-values(((s_333) e_40))"
+"(let-values(((s_322) e_39))"
 "(let-values(((orig-s_27)"
-" s_333))"
+" s_322))"
 "(let-values(((_46_1 e47_1)"
-"(let-values(((s_334)"
+"(let-values(((s_323)"
 "(if(1/syntax?"
-" s_333)"
+" s_322)"
 "(syntax-e$2"
-" s_333)"
-" s_333)))"
+" s_322)"
+" s_322)))"
 "(if(pair?"
-" s_334)"
+" s_323)"
 "(let-values(((_48_0)"
-"(let-values(((s_335)"
+"(let-values(((s_221)"
 "(car"
-" s_334)))"
-" s_335))"
+" s_323)))"
+" s_221))"
 "((e49_0)"
-"(let-values(((s_105)"
+"(let-values(((s_324)"
 "(cdr"
-" s_334)))"
-"(let-values(((s_336)"
+" s_323)))"
+"(let-values(((s_325)"
 "(if(1/syntax?"
-" s_105)"
+" s_324)"
 "(syntax-e$2"
-" s_105)"
-" s_105)))"
+" s_324)"
+" s_324)))"
 "(let-values(((flat-s_17)"
 "(to-syntax-list.1$1"
-" s_336)))"
+" s_325)))"
 "(if(not"
 " flat-s_17)"
 "(let-values()"
 "((lambda(false_14"
 " str_19"
-" e_32)"
+" e_31)"
 "(error"
 " str_19))"
 " #f"
@@ -31798,7 +31331,7 @@ static const char *startup_source =
 " e49_0))"
 "((lambda(false_15"
 " str_20"
-" e_59)"
+" e_57)"
 "(error"
 " str_20))"
 " #f"
@@ -31813,7 +31346,7 @@ static const char *startup_source =
 "(let-values() #f)"
 "(if(null?(cdr es_1))"
 "(let-values()"
-"(loop_2"
+"(loop_80"
 "(car es_1)"
 " locals_2))"
 "(let-values()"
@@ -31830,152 +31363,152 @@ static const char *startup_source =
 "(if(unsafe-fx< index_1 9)"
 "(if(unsafe-fx< index_1 7)"
 "(let-values()"
-"(let-values(((ok?_7 _50_0 e051_0 e52_0)"
-"(let-values(((s_116) e_40))"
-"(let-values(((orig-s_9) s_116))"
+"(let-values(((ok?_22 _50_0 e051_0 e52_0)"
+"(let-values(((s_115) e_39))"
+"(let-values(((orig-s_0) s_115))"
 "(let-values(((_50_1 e051_1 e52_1)"
 "(let-values(((s_119)"
 "(if(1/syntax?"
-" s_116)"
+" s_115)"
 "(syntax-e$2"
-" s_116)"
-" s_116)))"
+" s_115)"
+" s_115)))"
 "(if(pair? s_119)"
 "(let-values(((_53_0)"
-"(let-values(((s_226)"
+"(let-values(((s_227)"
 "(car"
 " s_119)))"
-" s_226))"
+" s_227))"
 "((e054_0"
 " e55_0)"
-"(let-values(((s_227)"
+"(let-values(((s_326)"
 "(cdr"
 " s_119)))"
+"(let-values(((s_327)"
+"(if(1/syntax?"
+" s_326)"
+"(syntax-e$2"
+" s_326)"
+" s_326)))"
+"(if(pair?"
+" s_327)"
+"(let-values(((e056_0)"
+"(let-values(((s_328)"
+"(car"
+" s_327)))"
+" s_328))"
+"((e57_0)"
+"(let-values(((s_329)"
+"(cdr"
+" s_327)))"
 "(let-values(((s_228)"
 "(if(1/syntax?"
-" s_227)"
+" s_329)"
 "(syntax-e$2"
-" s_227)"
-" s_227)))"
-"(if(pair?"
-" s_228)"
-"(let-values(((e056_0)"
-"(let-values(((s_229)"
-"(car"
-" s_228)))"
-" s_229))"
-"((e57_0)"
-"(let-values(((s_230)"
-"(cdr"
-" s_228)))"
-"(let-values(((s_120)"
-"(if(1/syntax?"
-" s_230)"
-"(syntax-e$2"
-" s_230)"
-" s_230)))"
-"(let-values(((flat-s_5)"
+" s_329)"
+" s_329)))"
+"(let-values(((flat-s_18)"
 "(to-syntax-list.1$1"
-" s_120)))"
+" s_228)))"
 "(if(not"
-" flat-s_5)"
+" flat-s_18)"
 "(let-values()"
 "((lambda(false_16"
 " str_21"
-" e_60)"
+" e_58)"
 "(error"
 " str_21))"
 " #f"
 "                                                                                                                                                     \"bad syntax\""
-" orig-s_9))"
+" orig-s_0))"
 "(let-values()"
-" flat-s_5)))))))"
+" flat-s_18)))))))"
 "(values"
 " e056_0"
 " e57_0))"
 "((lambda(false_17"
 " str_22"
-" e_61)"
+" e_59)"
 "(error"
 " str_22))"
 " #f"
 "                                                                                                                             \"bad syntax\""
-" orig-s_9))))))"
+" orig-s_0))))))"
 "(values"
 " _53_0"
 " e054_0"
 " e55_0))"
 "((lambda(false_18"
 " str_23"
-" e_62)"
+" e_60)"
 "(error"
 " str_23))"
 " #f"
 "                                                                                                         \"bad syntax\""
-" orig-s_9)))))"
+" orig-s_0)))))"
 "(values"
 " #t"
 " _50_1"
 " e051_1"
 " e52_1))))))"
-"(if(let-values(((lst_208) e52_0))"
+"(if(let-values(((lst_230) e52_0))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
 "(#%variable-reference))"
 "(void)"
-"(let-values()(check-list lst_208)))"
-"((letrec-values(((for-loop_217)"
-"(lambda(result_97"
-" lst_1)"
+"(let-values()(check-list lst_230)))"
+"((letrec-values(((for-loop_221)"
+"(lambda(result_94"
+" lst_119)"
 "(begin"
 " 'for-loop"
-"(if(pair? lst_1)"
-"(let-values(((e_63)"
+"(if(pair? lst_119)"
+"(let-values(((e_61)"
 "(unsafe-car"
-" lst_1))"
-"((rest_59)"
+" lst_119))"
+"((rest_129)"
 "(unsafe-cdr"
-" lst_1)))"
-"(let-values(((result_98)"
+" lst_119)))"
+"(let-values(((result_95)"
 "(let-values()"
-"(let-values(((result_99)"
+"(let-values(((result_96)"
 "(let-values()"
 "(let-values()"
 "(not"
 "(effects?_0"
-" e_63"
+" e_61"
 " #f"
 " locals_2))))))"
 "(values"
-" result_99)))))"
+" result_96)))))"
 "(if(if(not"
-"((lambda x_61"
+"((lambda x_63"
 "(not"
-" result_98))"
-" e_63))"
+" result_95))"
+" e_61))"
 "(not #f)"
 " #f)"
-"(for-loop_217"
-" result_98"
-" rest_59)"
-" result_98)))"
-" result_97)))))"
-" for-loop_217)"
+"(for-loop_221"
+" result_95"
+" rest_129)"
+" result_95)))"
+" result_94)))))"
+" for-loop_221)"
 " #t"
-" lst_208)))"
-"(loop_2 e051_0 locals_2)"
+" lst_230)))"
+"(loop_80 e051_0 locals_2)"
 " #f)))"
 "(if(unsafe-fx< index_1 8)"
 "(let-values()"
 "(if(ok-make-struct-type?"
-" e_40"
+" e_39"
 " ready-variable?_0"
 " defns_1)"
 " 5"
 " #f))"
 "(let-values()"
 "(if(ok-make-struct-field-accessor/mutator?"
-" e_40"
+" e_39"
 " locals_2"
 " 'general-accessor"
 " defns_1)"
@@ -31984,7 +31517,7 @@ static const char *startup_source =
 "(if(unsafe-fx< index_1 10)"
 "(let-values()"
 "(if(ok-make-struct-field-accessor/mutator?"
-" e_40"
+" e_39"
 " locals_2"
 " 'general-mutator"
 " defns_1)"
@@ -31992,90 +31525,90 @@ static const char *startup_source =
 " #f))"
 "(if(unsafe-fx< index_1 11)"
 "(let-values()"
-"(if(ok-make-struct-type-property? e_40 defns_1)"
+"(if(ok-make-struct-type-property? e_39 defns_1)"
 " 3"
 " #f))"
 "(if(unsafe-fx< index_1 12)"
 "(let-values()"
-"(let-values(((ok?_22 gs58_0 quot59_0 datum60_0)"
-"(let-values(((s_234) e_40))"
-"(if(let-values(((s_131)"
+"(let-values(((ok?_23 gs58_0 quot59_0 datum60_0)"
+"(let-values(((s_234) e_39))"
+"(if(let-values(((s_235)"
 "(if(1/syntax?"
 " s_234)"
 "(syntax-e$2"
 " s_234)"
 " s_234)))"
-"(if(pair? s_131)"
-"(if(let-values(((s_235)"
+"(if(pair? s_235)"
+"(if(let-values(((s_330)"
 "(car"
-" s_131)))"
+" s_235)))"
 " #t)"
+"(let-values(((s_132)"
+"(cdr"
+" s_235)))"
+"(let-values(((s_236)"
+"(if(1/syntax?"
+" s_132)"
+"(syntax-e$2"
+" s_132)"
+" s_132)))"
+"(if(pair? s_236)"
+"(if(let-values(((s_237)"
+"(car"
+" s_236)))"
+"(let-values(((s_331)"
+"(if(1/syntax?"
+" s_237)"
+"(syntax-e$2"
+" s_237)"
+" s_237)))"
+"(if(pair?"
+" s_331)"
+"(if(let-values(((s_332)"
+"(car"
+" s_331)))"
+" #t)"
+"(let-values(((s_133)"
+"(cdr"
+" s_331)))"
+"(let-values(((s_333)"
+"(if(1/syntax?"
+" s_133)"
+"(syntax-e$2"
+" s_133)"
+" s_133)))"
+"(if(pair?"
+" s_333)"
+"(if(let-values(((s_334)"
+"(car"
+" s_333)))"
+" #t)"
+"(let-values(((s_335)"
+"(cdr"
+" s_333)))"
+"(let-values(((s_336)"
+"(if(1/syntax?"
+" s_335)"
+"(syntax-e$2"
+" s_335)"
+" s_335)))"
+"(null?"
+" s_336)))"
+" #f)"
+" #f)))"
+" #f)"
+" #f)))"
 "(let-values(((s_337)"
 "(cdr"
-" s_131)))"
+" s_236)))"
 "(let-values(((s_338)"
 "(if(1/syntax?"
 " s_337)"
 "(syntax-e$2"
 " s_337)"
 " s_337)))"
-"(if(pair? s_338)"
-"(if(let-values(((s_236)"
-"(car"
-" s_338)))"
-"(let-values(((s_132)"
-"(if(1/syntax?"
-" s_236)"
-"(syntax-e$2"
-" s_236)"
-" s_236)))"
-"(if(pair?"
-" s_132)"
-"(if(let-values(((s_237)"
-"(car"
-" s_132)))"
-" #t)"
-"(let-values(((s_238)"
-"(cdr"
-" s_132)))"
-"(let-values(((s_339)"
-"(if(1/syntax?"
-" s_238)"
-"(syntax-e$2"
-" s_238)"
-" s_238)))"
-"(if(pair?"
-" s_339)"
-"(if(let-values(((s_239)"
-"(car"
-" s_339)))"
-" #t)"
-"(let-values(((s_240)"
-"(cdr"
-" s_339)))"
-"(let-values(((s_241)"
-"(if(1/syntax?"
-" s_240)"
-"(syntax-e$2"
-" s_240)"
-" s_240)))"
 "(null?"
-" s_241)))"
-" #f)"
-" #f)))"
-" #f)"
-" #f)))"
-"(let-values(((s_340)"
-"(cdr"
 " s_338)))"
-"(let-values(((s_341)"
-"(if(1/syntax?"
-" s_340)"
-"(syntax-e$2"
-" s_340)"
-" s_340)))"
-"(null?"
-" s_341)))"
 " #f)"
 " #f)))"
 " #f)"
@@ -32084,69 +31617,69 @@ static const char *startup_source =
 "(let-values(((gs58_1"
 " quot59_1"
 " datum60_1)"
-"(let-values(((s_342)"
+"(let-values(((s_339)"
 "(if(1/syntax?"
 " s_234)"
 "(syntax-e$2"
 " s_234)"
 " s_234)))"
 "(let-values(((gs61_0)"
+"(let-values(((s_340)"
+"(car"
+" s_339)))"
+" s_340))"
+"((quot62_0"
+" datum63_0)"
+"(let-values(((s_341)"
+"(cdr"
+" s_339)))"
+"(let-values(((s_342)"
+"(if(1/syntax?"
+" s_341)"
+"(syntax-e$2"
+" s_341)"
+" s_341)))"
+"(let-values(((quot64_0"
+" datum65_0)"
 "(let-values(((s_343)"
 "(car"
 " s_342)))"
-" s_343))"
-"((quot62_0"
-" datum63_0)"
 "(let-values(((s_344)"
-"(cdr"
-" s_342)))"
-"(let-values(((s_345)"
 "(if(1/syntax?"
-" s_344)"
+" s_343)"
 "(syntax-e$2"
-" s_344)"
-" s_344)))"
-"(let-values(((quot64_0"
-" datum65_0)"
-"(let-values(((s_346)"
-"(car"
-" s_345)))"
-"(let-values(((s_347)"
-"(if(1/syntax?"
-" s_346)"
-"(syntax-e$2"
-" s_346)"
-" s_346)))"
+" s_343)"
+" s_343)))"
 "(let-values(((quot66_0)"
-"(let-values(((s_348)"
+"(let-values(((s_239)"
 "(car"
-" s_347)))"
-" s_348))"
+" s_344)))"
+" s_239))"
 "((datum67_0)"
-"(let-values(((s_349)"
+"(let-values(((s_345)"
 "(cdr"
-" s_347)))"
+" s_344)))"
+"(let-values(((s_346)"
+"(if(1/syntax?"
+" s_345)"
+"(syntax-e$2"
+" s_345)"
+" s_345)))"
+"(let-values(((datum68_0)"
+"(let-values(((s_240)"
+"(car"
+" s_346)))"
+" s_240))"
+"(()"
+"(let-values(((s_241)"
+"(cdr"
+" s_346)))"
 "(let-values(((s_242)"
 "(if(1/syntax?"
-" s_349)"
+" s_241)"
 "(syntax-e$2"
-" s_349)"
-" s_349)))"
-"(let-values(((datum68_0)"
-"(let-values(((s_350)"
-"(car"
-" s_242)))"
-" s_350))"
-"(()"
-"(let-values(((s_351)"
-"(cdr"
-" s_242)))"
-"(let-values(((s_352)"
-"(if(1/syntax?"
-" s_351)"
-"(syntax-e$2"
-" s_351)"
-" s_351)))"
+" s_241)"
+" s_241)))"
 "(values)))))"
 "(values"
 " datum68_0))))))"
@@ -32154,15 +31687,15 @@ static const char *startup_source =
 " quot66_0"
 " datum67_0)))))"
 "(()"
-"(let-values(((s_246)"
+"(let-values(((s_347)"
 "(cdr"
-" s_345)))"
-"(let-values(((s_353)"
+" s_342)))"
+"(let-values(((s_348)"
 "(if(1/syntax?"
-" s_246)"
+" s_347)"
 "(syntax-e$2"
-" s_246)"
-" s_246)))"
+" s_347)"
+" s_347)))"
 "(values)))))"
 "(values"
 " quot64_0"
@@ -32177,158 +31710,158 @@ static const char *startup_source =
 " quot59_1"
 " datum60_1)))"
 "(values #f #f #f #f)))))"
-"(if(let-values(((or-part_223)"
-"(if ok?_22"
+"(if(let-values(((or-part_228)"
+"(if ok?_23"
 "(if(eq? 'quote quot59_0)"
-"(let-values(((or-part_224)"
+"(let-values(((or-part_229)"
 "(symbol?"
 " datum60_0)))"
-"(if or-part_224"
-" or-part_224"
+"(if or-part_229"
+" or-part_229"
 "(string?"
 " datum60_0)))"
 " #f)"
 " #f)))"
-"(if or-part_223"
-" or-part_223"
-"(null?(cdr(correlated-e e_40)))))"
+"(if or-part_228"
+" or-part_228"
+"(null?(cdr(correlated-e e_39)))))"
 " 1"
 " #f)))"
 "(let-values()"
-"(let-values(((ok?_23"
+"(let-values(((ok?_24"
 " _69_0"
 " id:rator70_0"
 " id:arg71_0"
 " thn72_0"
 " els73_0)"
-"(let-values(((s_354) e_40))"
-"(if(let-values(((s_355)"
+"(let-values(((s_349) e_39))"
+"(if(let-values(((s_350)"
 "(if(1/syntax?"
-" s_354)"
+" s_349)"
 "(syntax-e$2"
-" s_354)"
-" s_354)))"
-"(if(pair? s_355)"
-"(if(let-values(((s_356)"
+" s_349)"
+" s_349)))"
+"(if(pair? s_350)"
+"(if(let-values(((s_351)"
 "(car"
-" s_355)))"
+" s_350)))"
 " #t)"
+"(let-values(((s_352)"
+"(cdr"
+" s_350)))"
+"(let-values(((s_353)"
+"(if(1/syntax?"
+" s_352)"
+"(syntax-e$2"
+" s_352)"
+" s_352)))"
+"(if(pair? s_353)"
+"(if(let-values(((s_248)"
+"(car"
+" s_353)))"
+"(let-values(((s_354)"
+"(if(1/syntax?"
+" s_248)"
+"(syntax-e$2"
+" s_248)"
+" s_248)))"
+"(if(pair?"
+" s_354)"
+"(if(let-values(((s_355)"
+"(car"
+" s_354)))"
+"(let-values(((or-part_230)"
+"(if(1/syntax?"
+" s_355)"
+"(symbol?"
+"(syntax-e$2"
+" s_355))"
+" #f)))"
+"(if or-part_230"
+" or-part_230"
+"(symbol?"
+" s_355))))"
+"(let-values(((s_356)"
+"(cdr"
+" s_354)))"
+"(let-values(((s_249)"
+"(if(1/syntax?"
+" s_356)"
+"(syntax-e$2"
+" s_356)"
+" s_356)))"
+"(if(pair?"
+" s_249)"
+"(if(let-values(((s_250)"
+"(car"
+" s_249)))"
+"(let-values(((or-part_231)"
+"(if(1/syntax?"
+" s_250)"
+"(symbol?"
+"(syntax-e$2"
+" s_250))"
+" #f)))"
+"(if or-part_231"
+" or-part_231"
+"(symbol?"
+" s_250))))"
 "(let-values(((s_357)"
 "(cdr"
-" s_355)))"
+" s_249)))"
 "(let-values(((s_358)"
 "(if(1/syntax?"
 " s_357)"
 "(syntax-e$2"
 " s_357)"
 " s_357)))"
-"(if(pair? s_358)"
-"(if(let-values(((s_359)"
-"(car"
+"(null?"
 " s_358)))"
-"(let-values(((s_251)"
+" #f)"
+" #f)))"
+" #f)"
+" #f)))"
+"(let-values(((s_359)"
+"(cdr"
+" s_353)))"
+"(let-values(((s_252)"
 "(if(1/syntax?"
 " s_359)"
 "(syntax-e$2"
 " s_359)"
 " s_359)))"
 "(if(pair?"
-" s_251)"
+" s_252)"
 "(if(let-values(((s_360)"
 "(car"
-" s_251)))"
-"(let-values(((or-part_225)"
-"(if(1/syntax?"
-" s_360)"
-"(symbol?"
-"(syntax-e$2"
-" s_360))"
-" #f)))"
-"(if or-part_225"
-" or-part_225"
-"(symbol?"
-" s_360))))"
-"(let-values(((s_361)"
-"(cdr"
-" s_251)))"
-"(let-values(((s_362)"
-"(if(1/syntax?"
-" s_361)"
-"(syntax-e$2"
-" s_361)"
-" s_361)))"
-"(if(pair?"
-" s_362)"
-"(if(let-values(((s_363)"
-"(car"
-" s_362)))"
-"(let-values(((or-part_112)"
-"(if(1/syntax?"
-" s_363)"
-"(symbol?"
-"(syntax-e$2"
-" s_363))"
-" #f)))"
-"(if or-part_112"
-" or-part_112"
-"(symbol?"
-" s_363))))"
-"(let-values(((s_364)"
-"(cdr"
-" s_362)))"
-"(let-values(((s_365)"
-"(if(1/syntax?"
-" s_364)"
-"(syntax-e$2"
-" s_364)"
-" s_364)))"
-"(null?"
-" s_365)))"
-" #f)"
-" #f)))"
-" #f)"
-" #f)))"
-"(let-values(((s_366)"
-"(cdr"
-" s_358)))"
-"(let-values(((s_367)"
-"(if(1/syntax?"
-" s_366)"
-"(syntax-e$2"
-" s_366)"
-" s_366)))"
-"(if(pair?"
-" s_367)"
-"(if(let-values(((s_253)"
-"(car"
-" s_367)))"
+" s_252)))"
 " #t)"
-"(let-values(((s_254)"
+"(let-values(((s_253)"
 "(cdr"
-" s_367)))"
+" s_252)))"
+"(let-values(((s_254)"
+"(if(1/syntax?"
+" s_253)"
+"(syntax-e$2"
+" s_253)"
+" s_253)))"
+"(if(pair?"
+" s_254)"
+"(if(let-values(((s_361)"
+"(car"
+" s_254)))"
+" #t)"
+"(let-values(((s_362)"
+"(cdr"
+" s_254)))"
 "(let-values(((s_255)"
 "(if(1/syntax?"
-" s_254)"
+" s_362)"
 "(syntax-e$2"
-" s_254)"
-" s_254)))"
-"(if(pair?"
-" s_255)"
-"(if(let-values(((s_368)"
-"(car"
-" s_255)))"
-" #t)"
-"(let-values(((s_369)"
-"(cdr"
-" s_255)))"
-"(let-values(((s_370)"
-"(if(1/syntax?"
-" s_369)"
-"(syntax-e$2"
-" s_369)"
-" s_369)))"
+" s_362)"
+" s_362)))"
 "(null?"
-" s_370)))"
+" s_255)))"
 " #f)"
 " #f)))"
 " #f)"
@@ -32343,71 +31876,71 @@ static const char *startup_source =
 " id:arg71_1"
 " thn72_1"
 " els73_1)"
-"(let-values(((s_259)"
+"(let-values(((s_363)"
 "(if(1/syntax?"
-" s_354)"
+" s_349)"
 "(syntax-e$2"
-" s_354)"
-" s_354)))"
+" s_349)"
+" s_349)))"
 "(let-values(((_74_0)"
-"(let-values(((s_371)"
+"(let-values(((s_364)"
 "(car"
-" s_259)))"
-" s_371))"
+" s_363)))"
+" s_364))"
 "((id:rator75_0"
 " id:arg76_0"
 " thn77_0"
 " els78_0)"
-"(let-values(((s_372)"
+"(let-values(((s_365)"
 "(cdr"
-" s_259)))"
-"(let-values(((s_373)"
+" s_363)))"
+"(let-values(((s_366)"
 "(if(1/syntax?"
-" s_372)"
+" s_365)"
 "(syntax-e$2"
-" s_372)"
-" s_372)))"
+" s_365)"
+" s_365)))"
 "(let-values(((id:rator79_0"
 " id:arg80_0)"
-"(let-values(((s_374)"
+"(let-values(((s_367)"
 "(car"
-" s_373)))"
-"(let-values(((s_375)"
+" s_366)))"
+"(let-values(((s_368)"
 "(if(1/syntax?"
-" s_374)"
+" s_367)"
 "(syntax-e$2"
-" s_374)"
-" s_374)))"
+" s_367)"
+" s_367)))"
 "(let-values(((id:rator83_0)"
-"(let-values(((s_376)"
+"(let-values(((s_369)"
 "(car"
-" s_375)))"
-" s_376))"
+" s_368)))"
+" s_369))"
 "((id:arg84_0)"
-"(let-values(((s_377)"
+"(let-values(((s_370)"
 "(cdr"
-" s_375)))"
-"(let-values(((s_378)"
+" s_368)))"
+"(let-values(((s_371)"
 "(if(1/syntax?"
-" s_377)"
+" s_370)"
 "(syntax-e$2"
-" s_377)"
-" s_377)))"
+" s_370)"
+" s_370)))"
 "(let-values(((id:arg85_0)"
-"(let-values(((s_379)"
+"(let-values(((s_372)"
 "(car"
-" s_378)))"
-" s_379))"
+" s_371)))"
+" s_372))"
 "(()"
-"(let-values(((s_380)"
+"(let-values(((s_373)"
 "(cdr"
-" s_378)))"
-"(let-values(((s_381)"
+" s_371)))"
+"(let-values(((s_374)"
 "(if(1/syntax?"
-" s_380)"
+" s_373)"
 "(syntax-e$2"
-" s_380)"
-" s_380)))"
+" s_373)"
+" s_373)))"
 "(values)))))"
 "(values"
 " id:arg85_0))))))"
@@ -32416,45 +31949,45 @@ static const char *startup_source =
 " id:arg84_0)))))"
 "((thn81_0"
 " els82_0)"
-"(let-values(((s_382)"
+"(let-values(((s_375)"
 "(cdr"
-" s_373)))"
-"(let-values(((s_383)"
+" s_366)))"
+"(let-values(((s_376)"
 "(if(1/syntax?"
-" s_382)"
+" s_375)"
 "(syntax-e$2"
-" s_382)"
-" s_382)))"
+" s_375)"
+" s_375)))"
 "(let-values(((thn86_0)"
-"(let-values(((s_384)"
+"(let-values(((s_259)"
 "(car"
-" s_383)))"
-" s_384))"
+" s_376)))"
+" s_259))"
 "((els87_0)"
-"(let-values(((s_385)"
+"(let-values(((s_377)"
 "(cdr"
-" s_383)))"
-"(let-values(((s_386)"
+" s_376)))"
+"(let-values(((s_378)"
 "(if(1/syntax?"
-" s_385)"
+" s_377)"
 "(syntax-e$2"
-" s_385)"
-" s_385)))"
+" s_377)"
+" s_377)))"
 "(let-values(((els88_0)"
-"(let-values(((s_387)"
+"(let-values(((s_379)"
 "(car"
-" s_386)))"
-" s_387))"
+" s_378)))"
+" s_379))"
 "(()"
-"(let-values(((s_388)"
+"(let-values(((s_380)"
 "(cdr"
-" s_386)))"
-"(let-values(((s_389)"
+" s_378)))"
+"(let-values(((s_260)"
 "(if(1/syntax?"
-" s_388)"
+" s_380)"
 "(syntax-e$2"
-" s_388)"
-" s_388)))"
+" s_380)"
+" s_380)))"
 "(values)))))"
 "(values"
 " els88_0))))))"
@@ -32480,22 +32013,22 @@ static const char *startup_source =
 " thn72_1"
 " els73_1)))"
 "(values #f #f #f #f #f #f)))))"
-"(if ok?_23"
+"(if ok?_24"
 "(let-values()"
 "(let-values(((c2_2)"
-"(let-values(((or-part_226)"
+"(let-values(((or-part_232)"
 "(hash-ref"
 " locals_2"
 " id:rator70_0"
 " #f)))"
-"(if or-part_226"
-" or-part_226"
+"(if or-part_232"
+" or-part_232"
 "(lookup-defn"
 " defns_1"
 " id:rator70_0)))))"
 "(if c2_2"
-"((lambda(d_30)"
-"(if(known-predicate? d_30)"
+"((lambda(d_31)"
+"(if(known-predicate? d_31)"
 "(if(not"
 "(effects?_0"
 " thn72_0"
@@ -32505,86 +32038,86 @@ static const char *startup_source =
 " id:arg71_0"
 "(known-satisfies7.1"
 "(known-predicate-key"
-" d_30)))))"
-"(loop_2 els73_0 locals_2)"
+" d_31)))))"
+"(loop_80 els73_0 locals_2)"
 " #f)"
 " #f))"
 " c2_2)"
 "(let-values() #f))))"
 "(let-values()"
-"(let-values(((ok?_24"
+"(let-values(((ok?_25"
 " _89_0"
 " tst90_0"
 " thn91_0"
 " els92_0)"
-"(let-values(((s_390) e_40))"
+"(let-values(((s_381) e_39))"
+"(if(let-values(((s_382)"
+"(if(1/syntax?"
+" s_381)"
+"(syntax-e$2"
+" s_381)"
+" s_381)))"
+"(if(pair? s_382)"
+"(if(let-values(((s_383)"
+"(car"
+" s_382)))"
+" #t)"
+"(let-values(((s_384)"
+"(cdr"
+" s_382)))"
+"(let-values(((s_385)"
+"(if(1/syntax?"
+" s_384)"
+"(syntax-e$2"
+" s_384)"
+" s_384)))"
+"(if(pair?"
+" s_385)"
+"(if(let-values(((s_386)"
+"(car"
+" s_385)))"
+" #t)"
+"(let-values(((s_135)"
+"(cdr"
+" s_385)))"
+"(let-values(((s_387)"
+"(if(1/syntax?"
+" s_135)"
+"(syntax-e$2"
+" s_135)"
+" s_135)))"
+"(if(pair?"
+" s_387)"
+"(if(let-values(((s_388)"
+"(car"
+" s_387)))"
+" #t)"
+"(let-values(((s_389)"
+"(cdr"
+" s_387)))"
+"(let-values(((s_390)"
+"(if(1/syntax?"
+" s_389)"
+"(syntax-e$2"
+" s_389)"
+" s_389)))"
+"(if(pair?"
+" s_390)"
 "(if(let-values(((s_391)"
-"(if(1/syntax?"
-" s_390)"
-"(syntax-e$2"
-" s_390)"
+"(car"
 " s_390)))"
-"(if(pair? s_391)"
-"(if(let-values(((s_392)"
-"(car"
-" s_391)))"
 " #t)"
-"(let-values(((s_393)"
+"(let-values(((s_392)"
 "(cdr"
-" s_391)))"
-"(let-values(((s_134)"
+" s_390)))"
+"(let-values(((s_136)"
 "(if(1/syntax?"
-" s_393)"
+" s_392)"
 "(syntax-e$2"
-" s_393)"
-" s_393)))"
-"(if(pair?"
-" s_134)"
-"(if(let-values(((s_394)"
-"(car"
-" s_134)))"
-" #t)"
-"(let-values(((s_395)"
-"(cdr"
-" s_134)))"
-"(let-values(((s_396)"
-"(if(1/syntax?"
-" s_395)"
-"(syntax-e$2"
-" s_395)"
-" s_395)))"
-"(if(pair?"
-" s_396)"
-"(if(let-values(((s_397)"
-"(car"
-" s_396)))"
-" #t)"
-"(let-values(((s_398)"
-"(cdr"
-" s_396)))"
-"(let-values(((s_399)"
-"(if(1/syntax?"
-" s_398)"
-"(syntax-e$2"
-" s_398)"
-" s_398)))"
-"(if(pair?"
-" s_399)"
-"(if(let-values(((s_135)"
-"(car"
-" s_399)))"
-" #t)"
-"(let-values(((s_400)"
-"(cdr"
-" s_399)))"
-"(let-values(((s_401)"
-"(if(1/syntax?"
-" s_400)"
-"(syntax-e$2"
-" s_400)"
-" s_400)))"
+" s_392)"
+" s_392)))"
 "(null?"
-" s_401)))"
+" s_136)))"
 " #f)"
 " #f)))"
 " #f)"
@@ -32598,75 +32131,75 @@ static const char *startup_source =
 " tst90_1"
 " thn91_1"
 " els92_1)"
-"(let-values(((s_402)"
+"(let-values(((s_137)"
 "(if(1/syntax?"
-" s_390)"
+" s_381)"
 "(syntax-e$2"
-" s_390)"
-" s_390)))"
+" s_381)"
+" s_381)))"
 "(let-values(((_93_0)"
-"(let-values(((s_403)"
+"(let-values(((s_393)"
 "(car"
-" s_402)))"
-" s_403))"
+" s_137)))"
+" s_393))"
 "((tst94_0"
 " thn95_0"
 " els96_0)"
-"(let-values(((s_404)"
+"(let-values(((s_394)"
 "(cdr"
-" s_402)))"
-"(let-values(((s_138)"
+" s_137)))"
+"(let-values(((s_395)"
 "(if(1/syntax?"
-" s_404)"
+" s_394)"
 "(syntax-e$2"
-" s_404)"
-" s_404)))"
+" s_394)"
+" s_394)))"
 "(let-values(((tst97_0)"
-"(let-values(((s_139)"
+"(let-values(((s_396)"
 "(car"
-" s_138)))"
-" s_139))"
+" s_395)))"
+" s_396))"
 "((thn98_0"
 " els99_0)"
-"(let-values(((s_405)"
+"(let-values(((s_397)"
 "(cdr"
-" s_138)))"
-"(let-values(((s_406)"
-"(if(1/syntax?"
-" s_405)"
-"(syntax-e$2"
-" s_405)"
-" s_405)))"
-"(let-values(((thn100_0)"
+" s_395)))"
 "(let-values(((s_140)"
+"(if(1/syntax?"
+" s_397)"
+"(syntax-e$2"
+" s_397)"
+" s_397)))"
+"(let-values(((thn100_0)"
+"(let-values(((s_398)"
 "(car"
-" s_406)))"
-" s_140))"
+" s_140)))"
+" s_398))"
 "((els101_0)"
+"(let-values(((s_399)"
+"(cdr"
+" s_140)))"
 "(let-values(((s_141)"
-"(cdr"
-" s_406)))"
-"(let-values(((s_407)"
 "(if(1/syntax?"
-" s_141)"
+" s_399)"
 "(syntax-e$2"
-" s_141)"
-" s_141)))"
+" s_399)"
+" s_399)))"
 "(let-values(((els102_0)"
-"(let-values(((s_408)"
+"(let-values(((s_400)"
 "(car"
-" s_407)))"
-" s_408))"
+" s_141)))"
+" s_400))"
 "(()"
-"(let-values(((s_409)"
+"(let-values(((s_401)"
 "(cdr"
-" s_407)))"
-"(let-values(((s_410)"
+" s_141)))"
+"(let-values(((s_402)"
 "(if(1/syntax?"
-" s_409)"
+" s_401)"
 "(syntax-e$2"
-" s_409)"
-" s_409)))"
+" s_401)"
+" s_401)))"
 "(values)))))"
 "(values"
 " els102_0))))))"
@@ -32694,7 +32227,7 @@ static const char *startup_source =
 " #f"
 " #f"
 " #f)))))"
-"(if ok?_24"
+"(if ok?_25"
 "(if(not"
 "(effects?_0 tst90_0 1 locals_2))"
 "(if(not"
@@ -32702,48 +32235,48 @@ static const char *startup_source =
 " thn91_0"
 " expected-results_0"
 " locals_2))"
-"(loop_2 els92_0 locals_2)"
+"(loop_80 els92_0 locals_2)"
 " #f)"
 " #f)"
 " #f)))))))))))))))))"
-" loop_2)"
-" e_38"
+" loop_80)"
+" e_37"
 " locals_0)))"
 "(not"
 "(if actual-results_0"
-"(let-values(((or-part_227)(not expected-results_0)))"
-"(if or-part_227 or-part_227(= actual-results_0 expected-results_0)))"
+"(let-values(((or-part_233)(not expected-results_0)))"
+"(if or-part_233 or-part_233(= actual-results_0 expected-results_0)))"
 " #f)))))))))))))"
 "(define-values"
 "(satisfies?)"
-"(lambda(e_64 key_54 defns_2 locals_3)"
+"(lambda(e_62 key_50 defns_2 locals_3)"
 "(begin"
-"(let-values(((d_31)"
-"(let-values(((or-part_228)(hash-ref locals_3 e_64 #f)))"
-"(if or-part_228 or-part_228(lookup-defn defns_2 e_64)))))"
-"(if d_31(if(known-satisfies? d_31)(eq? key_54(known-satisfies-predicate-key d_31)) #f) #f)))))"
+"(let-values(((d_32)"
+"(let-values(((or-part_234)(hash-ref locals_3 e_62 #f)))"
+"(if or-part_234 or-part_234(lookup-defn defns_2 e_62)))))"
+"(if d_32(if(known-satisfies? d_32)(eq? key_50(known-satisfies-predicate-key d_32)) #f) #f)))))"
 "(define-values"
 "(add-binding-info)"
 "(lambda(locals_4 idss_0 rhss_0)"
 "(begin"
-"(let-values(((lst_126) idss_0)((lst_234) rhss_0))"
+"(let-values(((lst_231) idss_0)((lst_232) rhss_0))"
 "(begin"
-"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_126)))"
-"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_234)))"
-"((letrec-values(((for-loop_218)"
-"(lambda(locals_5 lst_235 lst_236)"
+"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_231)))"
+"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_232)))"
+"((letrec-values(((for-loop_148)"
+"(lambda(locals_5 lst_233 lst_234)"
 "(begin"
 " 'for-loop"
-"(if(if(pair? lst_235)(pair? lst_236) #f)"
-"(let-values(((ids_14)(unsafe-car lst_235))"
-"((rest_124)(unsafe-cdr lst_235))"
-"((rhs_10)(unsafe-car lst_236))"
-"((rest_125)(unsafe-cdr lst_236)))"
+"(if(if(pair? lst_233)(pair? lst_234) #f)"
+"(let-values(((ids_14)(unsafe-car lst_233))"
+"((rest_130)(unsafe-cdr lst_233))"
+"((rhs_10)(unsafe-car lst_234))"
+"((rest_131)(unsafe-cdr lst_234)))"
 "(let-values(((locals_6)"
 "(let-values(((locals_7) locals_5))"
 "(let-values(((locals_8)"
 "(let-values()"
-"((letrec-values(((loop_93)"
+"((letrec-values(((loop_90)"
 "(lambda(rhs_11)"
 "(begin"
 " 'loop"
@@ -32763,10 +32296,10 @@ static const char *startup_source =
 "(let-values(((field-count_0)"
 "(extract-struct-field-count-lower-bound"
 " rhs_11)))"
-"(let-values(((lst_237)"
+"(let-values(((lst_235)"
 "(correlated->list"
 " ids_14))"
-"((lst_238)"
+"((lst_236)"
 " '(struct-type"
 " constructor"
 " predicate"
@@ -32778,36 +32311,36 @@ static const char *startup_source =
 "(void)"
 "(let-values()"
 "(check-list"
-" lst_237)))"
+" lst_235)))"
 "(if(variable-reference-from-unsafe?"
 "(#%variable-reference))"
 "(void)"
 "(let-values()"
 "(check-list"
-" lst_238)))"
-"((letrec-values(((for-loop_219)"
+" lst_236)))"
+"((letrec-values(((for-loop_222)"
 "(lambda(locals_9"
-" lst_239"
-" lst_240)"
+" lst_237"
+" lst_238)"
 "(begin"
 " 'for-loop"
 "(if(if(pair?"
-" lst_239)"
+" lst_237)"
 "(pair?"
-" lst_240)"
+" lst_238)"
 " #f)"
-"(let-values(((id_52)"
+"(let-values(((id_51)"
 "(unsafe-car"
-" lst_239))"
-"((rest_126)"
+" lst_237))"
+"((rest_132)"
 "(unsafe-cdr"
-" lst_239))"
+" lst_237))"
 "((type_0)"
 "(unsafe-car"
-" lst_240))"
-"((rest_127)"
+" lst_238))"
+"((rest_133)"
 "(unsafe-cdr"
-" lst_240)))"
+" lst_238)))"
 "(let-values(((locals_10)"
 "(let-values(((locals_11)"
 " locals_9))"
@@ -32816,7 +32349,7 @@ static const char *startup_source =
 "(hash-set"
 " locals_11"
 "(correlated-e"
-" id_52)"
+" id_51)"
 "(known-struct-op8.1"
 " type_0"
 " field-count_0)))))"
@@ -32824,16 +32357,16 @@ static const char *startup_source =
 " locals_12)))))"
 "(if(not"
 " #f)"
-"(for-loop_219"
+"(for-loop_222"
 " locals_10"
-" rest_126"
-" rest_127)"
+" rest_132"
+" rest_133)"
 " locals_10)))"
 " locals_9)))))"
-" for-loop_219)"
+" for-loop_222)"
 " locals_7"
-" lst_237"
-" lst_238)))))"
+" lst_235"
+" lst_236)))))"
 "(if(equal?"
 " tmp_27"
 " 'let-values)"
@@ -32842,13 +32375,13 @@ static const char *startup_source =
 "(correlated-e"
 "(correlated-cadr"
 " rhs_11)))"
-"(loop_93"
+"(loop_90"
 "(caddr"
 "(correlated->list"
 " rhs_11)))"
-"(loop_93 #f)))"
+"(loop_90 #f)))"
 "(let-values()"
-"(let-values(((lst_241)"
+"(let-values(((lst_239)"
 "(correlated->list"
 " ids_14)))"
 "(begin"
@@ -32857,20 +32390,20 @@ static const char *startup_source =
 "(void)"
 "(let-values()"
 "(check-list"
-" lst_241)))"
-"((letrec-values(((for-loop_220)"
+" lst_239)))"
+"((letrec-values(((for-loop_223)"
 "(lambda(locals_13"
-" lst_242)"
+" lst_240)"
 "(begin"
 " 'for-loop"
 "(if(pair?"
-" lst_242)"
-"(let-values(((id_53)"
+" lst_240)"
+"(let-values(((id_52)"
 "(unsafe-car"
-" lst_242))"
-"((rest_128)"
+" lst_240))"
+"((rest_134)"
 "(unsafe-cdr"
-" lst_242)))"
+" lst_240)))"
 "(let-values(((locals_14)"
 "(let-values(((locals_15)"
 " locals_13))"
@@ -32879,99 +32412,99 @@ static const char *startup_source =
 "(hash-set"
 " locals_15"
 "(correlated-e"
-" id_53)"
+" id_52)"
 " #t))))"
 "(values"
 " locals_16)))))"
 "(if(not"
 " #f)"
-"(for-loop_220"
+"(for-loop_223"
 " locals_14"
-" rest_128)"
+" rest_134)"
 " locals_14)))"
 " locals_13)))))"
-" for-loop_220)"
+" for-loop_223)"
 " locals_7"
-" lst_241)))))))))))"
-" loop_93)"
+" lst_239)))))))))))"
+" loop_90)"
 " rhs_10))))"
 "(values locals_8)))))"
-"(if(not #f)(for-loop_218 locals_6 rest_124 rest_125) locals_6)))"
+"(if(not #f)(for-loop_148 locals_6 rest_130 rest_131) locals_6)))"
 " locals_5)))))"
-" for-loop_218)"
+" for-loop_148)"
 " locals_4"
-" lst_126"
-" lst_234))))))"
+" lst_231"
+" lst_232))))))"
 "(define-values"
 "(ok-make-struct-type-property?)"
-"(lambda(e_65 defns_3)"
+"(lambda(e_63 defns_3)"
 "(begin"
-"(let-values(((l_58)(correlated->list e_65)))"
-"(if(<= 2(length l_58) 5)"
-"(let-values(((lst_243)(cdr l_58))"
-"((lst_244)"
+"(let-values(((l_57)(correlated->list e_63)))"
+"(if(<= 2(length l_57) 5)"
+"(let-values(((lst_241)(cdr l_57))"
+"((lst_242)"
 "(list"
-"(lambda(v_166)(quoted? symbol? v_166))"
-"(lambda(v_167)(is-lambda? v_167 2 defns_3))"
-"(lambda(v_168)(ok-make-struct-type-property-super? v_168 defns_3))"
-"(lambda(v_169)"
-"(let-values(((v103_0) v_169)((temp104_0) 1)((defns105_0) defns_3))"
-"(any-side-effects?9.1 defns105_0 #t #f #f #f #f v103_0 temp104_0))))))"
+"(lambda(v_165)(quoted? symbol? v_165))"
+"(lambda(v_166)(is-lambda? v_166 2 defns_3))"
+"(lambda(v_167)(ok-make-struct-type-property-super? v_167 defns_3))"
+"(lambda(v_168)"
+"(let-values(((v103_0) v_168)((temp104_0) 1)((defns105_0) defns_3))"
+"(any-side-effects?9.1 defns105_0 unsafe-undefined unsafe-undefined v103_0 temp104_0))))))"
 "(begin"
-"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_243)))"
-"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_244)))"
-"((letrec-values(((for-loop_221)"
-"(lambda(result_100 lst_245 lst_246)"
+"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_241)))"
+"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_242)))"
+"((letrec-values(((for-loop_224)"
+"(lambda(result_97 lst_243 lst_60)"
 "(begin"
 " 'for-loop"
-"(if(if(pair? lst_245)(pair? lst_246) #f)"
-"(let-values(((arg_0)(unsafe-car lst_245))"
-"((rest_129)(unsafe-cdr lst_245))"
-"((pred_1)(unsafe-car lst_246))"
-"((rest_130)(unsafe-cdr lst_246)))"
-"(let-values(((result_101)"
+"(if(if(pair? lst_243)(pair? lst_60) #f)"
+"(let-values(((arg_0)(unsafe-car lst_243))"
+"((rest_27)(unsafe-cdr lst_243))"
+"((pred_1)(unsafe-car lst_60))"
+"((rest_135)(unsafe-cdr lst_60)))"
+"(let-values(((result_98)"
 "(let-values()"
-"(let-values(((result_102)"
+"(let-values(((result_99)"
 "(let-values()(let-values()(pred_1 arg_0)))))"
-"(values result_102)))))"
-"(if(if(not((lambda x_62(not result_101)) arg_0))"
-"(if(not((lambda x_63(not result_101)) pred_1))(not #f) #f)"
+"(values result_99)))))"
+"(if(if(not((lambda x_64(not result_98)) arg_0))"
+"(if(not((lambda x_65(not result_98)) pred_1))(not #f) #f)"
 " #f)"
-"(for-loop_221 result_101 rest_129 rest_130)"
-" result_101)))"
-" result_100)))))"
-" for-loop_221)"
+"(for-loop_224 result_98 rest_27 rest_135)"
+" result_98)))"
+" result_97)))))"
+" for-loop_224)"
 " #t"
-" lst_243"
-" lst_244)))"
+" lst_241"
+" lst_242)))"
 " #f)))))"
 "(define-values"
 "(ok-make-struct-type-property-super?)"
-"(lambda(v_170 defns_4)"
+"(lambda(v_169 defns_4)"
 "(begin"
-"(let-values(((or-part_229)(quoted? null? v_170)))"
-"(if or-part_229"
-" or-part_229"
-"(let-values(((or-part_230)(eq? 'null(correlated-e v_170))))"
-"(if or-part_230"
-" or-part_230"
-"(if(pair?(correlated-e v_170))"
-"(if(eq?(correlated-e(car(correlated-e v_170))) 'list)"
-"(if(let-values(((lst_247)(cdr(correlated->list v_170))))"
+"(let-values(((or-part_235)(quoted? null? v_169)))"
+"(if or-part_235"
+" or-part_235"
+"(let-values(((or-part_236)(eq? 'null(correlated-e v_169))))"
+"(if or-part_236"
+" or-part_236"
+"(if(pair?(correlated-e v_169))"
+"(if(eq?(correlated-e(car(correlated-e v_169))) 'list)"
+"(if(let-values(((lst_244)(cdr(correlated->list v_169))))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
-"(let-values()(check-list lst_247)))"
-"((letrec-values(((for-loop_222)"
-"(lambda(result_103 lst_248)"
+"(let-values()(check-list lst_244)))"
+"((letrec-values(((for-loop_225)"
+"(lambda(result_100 lst_64)"
 "(begin"
 " 'for-loop"
-"(if(pair? lst_248)"
-"(let-values(((prop+val_0)(unsafe-car lst_248))"
-"((rest_131)(unsafe-cdr lst_248)))"
-"(let-values(((result_104)"
+"(if(pair? lst_64)"
+"(let-values(((prop+val_0)(unsafe-car lst_64))"
+"((rest_29)(unsafe-cdr lst_64)))"
+"(let-values(((result_101)"
 "(let-values()"
-"(let-values(((result_105)"
+"(let-values(((result_102)"
 "(let-values()"
 "(let-values()"
 "(if(="
@@ -32985,7 +32518,7 @@ static const char *startup_source =
 " 'cons"
 "(correlated-e"
 "(car prop+val_1)))"
-"(if(let-values(((or-part_231)"
+"(if(let-values(((or-part_237)"
 "(memq"
 "(correlated-e"
 "(list-ref"
@@ -32994,8 +32527,8 @@ static const char *startup_source =
 " '(prop:procedure"
 " prop:equal+hash"
 " prop:custom-write))))"
-"(if or-part_231"
-" or-part_231"
+"(if or-part_237"
+" or-part_237"
 "(known-property?"
 "(lookup-defn"
 " defns_4"
@@ -33014,46 +32547,43 @@ static const char *startup_source =
 " defns_4))"
 "(any-side-effects?9.1"
 " defns108_0"
-" #t"
-" #f"
-" #f"
-" #f"
-" #f"
+" unsafe-undefined"
+" unsafe-undefined"
 " temp106_0"
 " temp107_0)))"
 " #f)"
 " #f))"
 " #f)))))"
-"(values result_105)))))"
-"(if(if(not((lambda x_64(not result_104)) prop+val_0))"
+"(values result_102)))))"
+"(if(if(not((lambda x_66(not result_101)) prop+val_0))"
 "(not #f)"
 " #f)"
-"(for-loop_222 result_104 rest_131)"
-" result_104)))"
-" result_103)))))"
-" for-loop_222)"
+"(for-loop_225 result_101 rest_29)"
+" result_101)))"
+" result_100)))))"
+" for-loop_225)"
 " #t"
-" lst_247)))"
+" lst_244)))"
 "(="
-"(sub1(correlated-length v_170))"
+"(sub1(correlated-length v_169))"
 "(set-count"
-"(let-values(((lst_249)(cdr(correlated->list v_170))))"
+"(let-values(((lst_245)(cdr(correlated->list v_169))))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
-"(let-values()(check-list lst_249)))"
-"((letrec-values(((for-loop_223)"
-"(lambda(table_177 lst_250)"
+"(let-values()(check-list lst_245)))"
+"((letrec-values(((for-loop_226)"
+"(lambda(table_169 lst_246)"
 "(begin"
 " 'for-loop"
-"(if(pair? lst_250)"
-"(let-values(((prop+val_2)(unsafe-car lst_250))"
-"((rest_132)(unsafe-cdr lst_250)))"
-"(let-values(((table_178)"
-"(let-values(((table_179) table_177))"
-"(let-values(((table_180)"
+"(if(pair? lst_246)"
+"(let-values(((prop+val_2)(unsafe-car lst_246))"
+"((rest_136)(unsafe-cdr lst_246)))"
+"(let-values(((table_170)"
+"(let-values(((table_171) table_169))"
+"(let-values(((table_172)"
 "(let-values()"
-"(let-values(((key_64 val_58)"
+"(let-values(((key_64 val_55)"
 "(let-values()"
 "(values"
 "(let-values()"
@@ -33064,172 +32594,169 @@ static const char *startup_source =
 " 1)))"
 " #t))))"
 "(hash-set"
-" table_179"
+" table_171"
 " key_64"
-" val_58)))))"
-"(values table_180)))))"
-"(if(not #f)(for-loop_223 table_178 rest_132) table_178)))"
-" table_177)))))"
-" for-loop_223)"
+" val_55)))))"
+"(values table_172)))))"
+"(if(not #f)(for-loop_226 table_170 rest_136) table_170)))"
+" table_169)))))"
+" for-loop_226)"
 " '#hash()"
-" lst_249)))))"
+" lst_245)))))"
 " #f)"
 " #f)"
 " #f))))))))"
 "(define-values"
 "(ok-make-struct-type?)"
-"(lambda(e_66 ready-variable?_1 defns_5)"
+"(lambda(e_64 ready-variable?_1 defns_5)"
 "(begin"
-"(let-values(((l_59)(correlated->list e_66)))"
-"(let-values(((init-field-count-expr_0)(if(>(length l_59) 3)(list-ref l_59 3) #f)))"
-"(let-values(((auto-field-count-expr_0)(if(>(length l_59) 4)(list-ref l_59 4) #f)))"
+"(let-values(((l_58)(correlated->list e_64)))"
+"(let-values(((init-field-count-expr_0)(if(>(length l_58) 3)(list-ref l_58 3) #f)))"
+"(let-values(((auto-field-count-expr_0)(if(>(length l_58) 4)(list-ref l_58 4) #f)))"
 "(let-values(((num-fields_0)"
 "(maybe+"
 "(field-count-expr-to-field-count init-field-count-expr_0)"
 "(field-count-expr-to-field-count auto-field-count-expr_0))))"
 "(let-values(((immutables-expr_0)"
-"(let-values(((or-part_232)(if(>(length l_59) 9)(list-ref l_59 9) #f)))"
-"(if or-part_232 or-part_232 'null))))"
-"(let-values(((super-expr_0)(if(>(length l_59) 2)(list-ref l_59 2) #f)))"
-"(if(>=(length l_59) 5)"
-"(if(<=(length l_59) 12)"
-"(let-values(((lst_251)(cdr l_59))"
-"((lst_252)"
+"(let-values(((or-part_238)(if(>(length l_58) 9)(list-ref l_58 9) #f)))"
+"(if or-part_238 or-part_238 'null))))"
+"(let-values(((super-expr_0)(if(>(length l_58) 2)(list-ref l_58 2) #f)))"
+"(if(>=(length l_58) 5)"
+"(if(<=(length l_58) 12)"
+"(let-values(((lst_247)(cdr l_58))"
+"((lst_248)"
 "(list"
-"(lambda(v_171)(quoted? symbol? v_171))"
-"(lambda(v_172)(super-ok? v_172 defns_5))"
+"(lambda(v_170)(quoted? symbol? v_170))"
+"(lambda(v_171)(super-ok? v_171 defns_5))"
+"(lambda(v_172)(field-count-expr-to-field-count v_172))"
 "(lambda(v_173)(field-count-expr-to-field-count v_173))"
-"(lambda(v_174)(field-count-expr-to-field-count v_174))"
-"(lambda(v_175)"
+"(lambda(v_174)"
 "(not"
-"(let-values(((v109_0) v_175)"
+"(let-values(((v109_0) v_174)"
 "((temp110_0) 1)"
 "((ready-variable?111_0) ready-variable?_1)"
 "((defns112_0) defns_5))"
 "(any-side-effects?9.1"
 " defns112_0"
-" #t"
-" #f"
-" #f"
+" unsafe-undefined"
 " ready-variable?111_0"
-" #t"
 " v109_0"
 " temp110_0))))"
-"(lambda(v_176)"
-"(known-good-struct-properties? v_176 immutables-expr_0 super-expr_0 defns_5))"
-"(lambda(v_177)(inspector-or-false? v_177))"
-"(lambda(v_178)(procedure-spec? v_178 num-fields_0))"
-"(lambda(v_179)(immutables-ok? v_179 init-field-count-expr_0)))))"
+"(lambda(v_175)"
+"(known-good-struct-properties? v_175 immutables-expr_0 super-expr_0 defns_5))"
+"(lambda(v_176)(inspector-or-false? v_176))"
+"(lambda(v_177)(procedure-spec? v_177 num-fields_0))"
+"(lambda(v_178)(immutables-ok? v_178 init-field-count-expr_0)))))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
-"(let-values()(check-list lst_251)))"
+"(let-values()(check-list lst_247)))"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
-"(let-values()(check-list lst_252)))"
-"((letrec-values(((for-loop_224)"
-"(lambda(result_106 lst_253 lst_254)"
+"(let-values()(check-list lst_248)))"
+"((letrec-values(((for-loop_227)"
+"(lambda(result_103 lst_249 lst_250)"
 "(begin"
 " 'for-loop"
-"(if(if(pair? lst_253)(pair? lst_254) #f)"
-"(let-values(((arg_1)(unsafe-car lst_253))"
-"((rest_133)(unsafe-cdr lst_253))"
-"((pred_2)(unsafe-car lst_254))"
-"((rest_134)(unsafe-cdr lst_254)))"
-"(let-values(((result_107)"
+"(if(if(pair? lst_249)(pair? lst_250) #f)"
+"(let-values(((arg_1)(unsafe-car lst_249))"
+"((rest_137)(unsafe-cdr lst_249))"
+"((pred_2)(unsafe-car lst_250))"
+"((rest_138)(unsafe-cdr lst_250)))"
+"(let-values(((result_104)"
 "(let-values()"
-"(let-values(((result_108)"
+"(let-values(((result_105)"
 "(let-values()"
 "(let-values()(pred_2 arg_1)))))"
-"(values result_108)))))"
-"(if(if(not((lambda x_65(not result_107)) arg_1))"
-"(if(not((lambda x_66(not result_107)) pred_2))"
+"(values result_105)))))"
+"(if(if(not((lambda x_67(not result_104)) arg_1))"
+"(if(not((lambda x_68(not result_104)) pred_2))"
 "(not #f)"
 " #f)"
 " #f)"
-"(for-loop_224 result_107 rest_133 rest_134)"
-" result_107)))"
-" result_106)))))"
-" for-loop_224)"
+"(for-loop_227 result_104 rest_137 rest_138)"
+" result_104)))"
+" result_103)))))"
+" for-loop_227)"
 " #t"
-" lst_251"
-" lst_252)))"
+" lst_247"
+" lst_248)))"
 " #f)"
 " #f))))))))))"
 "(define-values"
 "(super-ok?)"
-"(lambda(e_67 defns_6)"
+"(lambda(e_65 defns_6)"
 "(begin"
-"(let-values(((or-part_233)(quoted? false? e_67)))"
-"(if or-part_233"
-" or-part_233"
-"(let-values(((o_0)(lookup-defn defns_6(correlated-e e_67))))"
+"(let-values(((or-part_239)(quoted? false? e_65)))"
+"(if or-part_239"
+" or-part_239"
+"(let-values(((o_0)(lookup-defn defns_6(correlated-e e_65))))"
 "(if o_0(if(known-struct-op? o_0)(eq? 'struct-type(known-struct-op-type o_0)) #f) #f)))))))"
 "(define-values"
 "(extract-struct-field-count-lower-bound)"
-"(lambda(e_68)"
+"(lambda(e_66)"
 "(begin"
-"(let-values(((l_60)(correlated->list e_68)))"
-"(+(field-count-expr-to-field-count(list-ref l_60 3))(field-count-expr-to-field-count(list-ref l_60 4)))))))"
+"(let-values(((l_59)(correlated->list e_66)))"
+"(+(field-count-expr-to-field-count(list-ref l_59 3))(field-count-expr-to-field-count(list-ref l_59 4)))))))"
 "(define-values"
 "(quoted?)"
-"(lambda(val?_0 v_180)"
+"(lambda(val?_0 v_179)"
 "(begin"
-"(let-values(((or-part_234)"
-"(if(pair?(correlated-e v_180))"
-"(if(eq?(correlated-e(car(correlated-e v_180))) 'quote)"
-"(val?_0(correlated-e(correlated-cadr v_180)))"
+"(let-values(((or-part_240)"
+"(if(pair?(correlated-e v_179))"
+"(if(eq?(correlated-e(car(correlated-e v_179))) 'quote)"
+"(val?_0(correlated-e(correlated-cadr v_179)))"
 " #f)"
 " #f)))"
-"(if or-part_234 or-part_234(val?_0(correlated-e v_180)))))))"
+"(if or-part_240 or-part_240(val?_0(correlated-e v_179)))))))"
 "(define-values"
 "(quoted-value)"
-"(lambda(v_181)"
-"(begin(if(pair?(correlated-e v_181))(correlated-e(correlated-cadr v_181))(correlated-e v_181)))))"
-"(define-values(false?)(lambda(v_182)(begin(eq?(correlated-e v_182) #f))))"
+"(lambda(v_180)"
+"(begin(if(pair?(correlated-e v_180))(correlated-e(correlated-cadr v_180))(correlated-e v_180)))))"
+"(define-values(false?)(lambda(v_181)(begin(eq?(correlated-e v_181) #f))))"
 "(define-values"
 "(field-count-expr-to-field-count)"
-"(lambda(v_183)(begin(if(quoted? exact-nonnegative-integer? v_183)(quoted-value v_183) #f))))"
+"(lambda(v_182)(begin(if(quoted? exact-nonnegative-integer? v_182)(quoted-value v_182) #f))))"
 "(define-values"
 "(inspector-or-false?)"
-"(lambda(v_184)"
+"(lambda(v_183)"
 "(begin"
-"(let-values(((or-part_235)(quoted? false? v_184)))"
-"(if or-part_235"
-" or-part_235"
-"(let-values(((or-part_236)(if(quoted? symbol? v_184)(eq? 'prefab(quoted-value v_184)) #f)))"
-"(if or-part_236"
-" or-part_236"
-"(if(= 1(correlated-length v_184))"
-"(eq? 'current-inspector(correlated-e(car(correlated-e v_184))))"
+"(let-values(((or-part_241)(quoted? false? v_183)))"
+"(if or-part_241"
+" or-part_241"
+"(let-values(((or-part_242)(if(quoted? symbol? v_183)(eq? 'prefab(quoted-value v_183)) #f)))"
+"(if or-part_242"
+" or-part_242"
+"(if(= 1(correlated-length v_183))"
+"(eq? 'current-inspector(correlated-e(car(correlated-e v_183))))"
 " #f))))))))"
 "(define-values"
 "(known-good-struct-properties?)"
-"(lambda(v_185 immutables-expr_1 super-expr_1 defns_7)"
+"(lambda(v_184 immutables-expr_1 super-expr_1 defns_7)"
 "(begin"
-"(let-values(((or-part_237)(quoted? null? v_185)))"
-"(if or-part_237"
-" or-part_237"
-"(let-values(((or-part_238)(eq? 'null(correlated-e v_185))))"
-"(if or-part_238"
-" or-part_238"
-"(if(pair?(correlated-e v_185))"
-"(if(eq?(correlated-e(car(correlated-e v_185))) 'list)"
-"(if(let-values(((lst_255)(cdr(correlated->list v_185))))"
+"(let-values(((or-part_243)(quoted? null? v_184)))"
+"(if or-part_243"
+" or-part_243"
+"(let-values(((or-part_244)(eq? 'null(correlated-e v_184))))"
+"(if or-part_244"
+" or-part_244"
+"(if(pair?(correlated-e v_184))"
+"(if(eq?(correlated-e(car(correlated-e v_184))) 'list)"
+"(if(let-values(((lst_251)(cdr(correlated->list v_184))))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
-"(let-values()(check-list lst_255)))"
-"((letrec-values(((for-loop_225)"
-"(lambda(result_109 lst_256)"
+"(let-values()(check-list lst_251)))"
+"((letrec-values(((for-loop_228)"
+"(lambda(result_106 lst_252)"
 "(begin"
 " 'for-loop"
-"(if(pair? lst_256)"
-"(let-values(((prop+val_3)(unsafe-car lst_256))"
-"((rest_135)(unsafe-cdr lst_256)))"
-"(let-values(((result_110)"
+"(if(pair? lst_252)"
+"(let-values(((prop+val_3)(unsafe-car lst_252))"
+"((rest_139)(unsafe-cdr lst_252)))"
+"(let-values(((result_107)"
 "(let-values()"
-"(let-values(((result_111)"
+"(let-values(((result_108)"
 "(let-values()"
 "(let-values()"
 "(if(="
@@ -33251,36 +32778,36 @@ static const char *startup_source =
 " defns_7)"
 " #f))"
 " #f)))))"
-"(values result_111)))))"
-"(if(if(not((lambda x_67(not result_110)) prop+val_3))"
+"(values result_108)))))"
+"(if(if(not((lambda x_69(not result_107)) prop+val_3))"
 "(not #f)"
 " #f)"
-"(for-loop_225 result_110 rest_135)"
-" result_110)))"
-" result_109)))))"
-" for-loop_225)"
+"(for-loop_228 result_107 rest_139)"
+" result_107)))"
+" result_106)))))"
+" for-loop_228)"
 " #t"
-" lst_255)))"
+" lst_251)))"
 "(="
-"(sub1(correlated-length v_185))"
+"(sub1(correlated-length v_184))"
 "(set-count"
-"(let-values(((lst_257)(cdr(correlated->list v_185))))"
+"(let-values(((lst_253)(cdr(correlated->list v_184))))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
-"(let-values()(check-list lst_257)))"
-"((letrec-values(((for-loop_226)"
-"(lambda(table_181 lst_258)"
+"(let-values()(check-list lst_253)))"
+"((letrec-values(((for-loop_229)"
+"(lambda(table_173 lst_136)"
 "(begin"
 " 'for-loop"
-"(if(pair? lst_258)"
-"(let-values(((prop+val_5)(unsafe-car lst_258))"
-"((rest_136)(unsafe-cdr lst_258)))"
-"(let-values(((table_182)"
-"(let-values(((table_183) table_181))"
-"(let-values(((table_184)"
+"(if(pair? lst_136)"
+"(let-values(((prop+val_5)(unsafe-car lst_136))"
+"((rest_140)(unsafe-cdr lst_136)))"
+"(let-values(((table_174)"
+"(let-values(((table_175) table_173))"
+"(let-values(((table_176)"
 "(let-values()"
-"(let-values(((key_65 val_59)"
+"(let-values(((key_65 val_56)"
 "(let-values()"
 "(values"
 "(let-values()"
@@ -33291,15 +32818,15 @@ static const char *startup_source =
 " 1)))"
 " #t))))"
 "(hash-set"
-" table_183"
+" table_175"
 " key_65"
-" val_59)))))"
-"(values table_184)))))"
-"(if(not #f)(for-loop_226 table_182 rest_136) table_182)))"
-" table_181)))))"
-" for-loop_226)"
+" val_56)))))"
+"(values table_176)))))"
+"(if(not #f)(for-loop_229 table_174 rest_140) table_174)))"
+" table_173)))))"
+" for-loop_229)"
 " '#hash()"
-" lst_257)))))"
+" lst_253)))))"
 " #f)"
 " #f)"
 " #f))))))))"
@@ -33311,27 +32838,27 @@ static const char *startup_source =
 "(let-values(((tmp_28) prop-name_0))"
 "(if(equal? tmp_28 'prop:evt)"
 "(let-values()"
-"(let-values(((or-part_239)(is-lambda? val-expr_0 1 defns_8)))"
-"(if or-part_239 or-part_239(immutable-field? val-expr_0 immutables-expr_2))))"
+"(let-values(((or-part_245)(is-lambda? val-expr_0 1 defns_8)))"
+"(if or-part_245 or-part_245(immutable-field? val-expr_0 immutables-expr_2))))"
 "(if(equal? tmp_28 'prop:procedure)"
 "(let-values()"
-"(let-values(((or-part_240)(is-lambda? val-expr_0 1 defns_8)))"
-"(if or-part_240 or-part_240(immutable-field? val-expr_0 immutables-expr_2))))"
+"(let-values(((or-part_246)(is-lambda? val-expr_0 1 defns_8)))"
+"(if or-part_246 or-part_246(immutable-field? val-expr_0 immutables-expr_2))))"
 "(if(equal? tmp_28 'prop:custom-write)"
 "(let-values()(is-lambda? val-expr_0 3 defns_8))"
 "(if(equal? tmp_28 'prop:equal+hash)"
 "(let-values()"
-"(let-values(((l_61)(correlated->list val-expr_0)))"
-"(if(eq? 'list(car l_61))"
-"(if(is-lambda?(list-ref l_61 1) 3 defns_8)"
-"(if(is-lambda?(list-ref l_61 2) 2 defns_8)(is-lambda?(list-ref l_61 3) 2 defns_8) #f)"
+"(let-values(((l_60)(correlated->list val-expr_0)))"
+"(if(eq? 'list(car l_60))"
+"(if(is-lambda?(list-ref l_60 1) 3 defns_8)"
+"(if(is-lambda?(list-ref l_60 2) 2 defns_8)(is-lambda?(list-ref l_60 3) 2 defns_8) #f)"
 " #f)"
 " #f)))"
 "(if(if(equal? tmp_28 'prop:method-arity-error) #t(equal? tmp_28 'prop:incomplete-arity))"
 "(let-values()"
 "(not"
 "(let-values(((val-expr113_0) val-expr_0)((temp114_0) 1)((defns115_0) defns_8))"
-"(any-side-effects?9.1 defns115_0 #t #f #f #f #f val-expr113_0 temp114_0))))"
+"(any-side-effects?9.1 defns115_0 unsafe-undefined unsafe-undefined val-expr113_0 temp114_0))))"
 "(if(equal? tmp_28 'prop:impersonator-of)"
 "(let-values()(is-lambda? val-expr_0 1 defns_8))"
 "(if(equal? tmp_28 'prop:arity-string)"
@@ -33344,7 +32871,12 @@ static const char *startup_source =
 "(if(known-property? o_1)"
 "(not"
 "(let-values(((val-expr116_0) val-expr_0)((temp117_0) 1)((defns118_0) defns_8))"
-"(any-side-effects?9.1 defns118_0 #t #f #f #f #f val-expr116_0 temp117_0)))"
+"(any-side-effects?9.1"
+" defns118_0"
+" unsafe-undefined"
+" unsafe-undefined"
+" val-expr116_0"
+" temp117_0)))"
 " #f)"
 " #f))))))))))))))))"
 "(define-values"
@@ -33352,38 +32884,38 @@ static const char *startup_source =
 "(lambda(expr_9 arity_0 defns_9)"
 "(begin"
 "(let-values(((lookup_0)(lookup-defn defns_9 expr_9)))"
-"(let-values(((or-part_241)"
+"(let-values(((or-part_247)"
 "(if lookup_0"
 "(if(known-function? lookup_0)"
-"(let-values(((or-part_242)(not arity_0)))"
-"(if or-part_242 or-part_242(arity-includes?(known-function-arity lookup_0) arity_0)))"
+"(let-values(((or-part_248)(not arity_0)))"
+"(if or-part_248 or-part_248(arity-includes?(known-function-arity lookup_0) arity_0)))"
 " #f)"
 " #f)))"
-"(if or-part_241"
-" or-part_241"
-"(let-values(((or-part_243)"
+"(if or-part_247"
+" or-part_247"
+"(let-values(((or-part_249)"
 "(if(pair?(correlated-e expr_9))"
 "(if(eq? 'case-lambda(car(correlated-e expr_9)))(not arity_0) #f)"
 " #f)))"
-"(if or-part_243"
-" or-part_243"
+"(if or-part_249"
+" or-part_249"
 "(if(pair?(correlated-e expr_9))"
 "(if(eq? 'lambda(car(correlated-e expr_9)))"
-"(let-values(((or-part_244)(not arity_0)))"
-"(if or-part_244"
-" or-part_244"
-"((letrec-values(((loop_94)"
+"(let-values(((or-part_250)(not arity_0)))"
+"(if or-part_250"
+" or-part_250"
+"((letrec-values(((loop_91)"
 "(lambda(args_4 arity_1)"
 "(begin"
 " 'loop"
 "(if(correlated? args_4)"
-"(let-values()(loop_94(correlated-e args_4) arity_1))"
+"(let-values()(loop_91(correlated-e args_4) arity_1))"
 "(if(null? args_4)"
 "(let-values()(zero? arity_1))"
 "(if(pair? args_4)"
-"(let-values()(loop_94(cdr args_4)(sub1 arity_1)))"
+"(let-values()(loop_91(cdr args_4)(sub1 arity_1)))"
 "(let-values()(not(negative? arity_1))))))))))"
-" loop_94)"
+" loop_91)"
 "(cadr(correlated->list expr_9))"
 " arity_0)))"
 " #f)"
@@ -33392,34 +32924,34 @@ static const char *startup_source =
 "(arity-includes?)"
 "(lambda(a_40 n_26)"
 "(begin"
-"(let-values(((or-part_245)(equal? a_40 n_26)))"
-"(if or-part_245"
-" or-part_245"
+"(let-values(((or-part_251)(equal? a_40 n_26)))"
+"(if or-part_251"
+" or-part_251"
 "(if(list? a_40)"
-"(let-values(((lst_259) a_40))"
+"(let-values(((lst_254) a_40))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
-"(let-values()(check-list lst_259)))"
-"((letrec-values(((for-loop_227)"
-"(lambda(result_112 lst_260)"
+"(let-values()(check-list lst_254)))"
+"((letrec-values(((for-loop_230)"
+"(lambda(result_109 lst_255)"
 "(begin"
 " 'for-loop"
-"(if(pair? lst_260)"
-"(let-values(((a_41)(unsafe-car lst_260))((rest_137)(unsafe-cdr lst_260)))"
-"(let-values(((result_113)"
+"(if(pair? lst_255)"
+"(let-values(((a_41)(unsafe-car lst_255))((rest_141)(unsafe-cdr lst_255)))"
+"(let-values(((result_110)"
 "(let-values()"
-"(let-values(((result_114)"
+"(let-values(((result_111)"
 "(let-values()"
 "(let-values()(equal? a_41 n_26)))))"
-"(values result_114)))))"
-"(if(if(not((lambda x_68 result_113) a_41))(not #f) #f)"
-"(for-loop_227 result_113 rest_137)"
-" result_113)))"
-" result_112)))))"
-" for-loop_227)"
+"(values result_111)))))"
+"(if(if(not((lambda x_70 result_110) a_41))(not #f) #f)"
+"(for-loop_230 result_110 rest_141)"
+" result_110)))"
+" result_109)))))"
+" for-loop_230)"
 " #f"
-" lst_259)))"
+" lst_254)))"
 " #f))))))"
 "(define-values"
 "(immutable-field?)"
@@ -33430,110 +32962,103 @@ static const char *startup_source =
 " #f))))"
 "(define-values"
 "(immutables-expr-to-immutables)"
-"(lambda(e_69 fail-v_0)"
+"(lambda(e_67 fail-v_0)"
 "(begin"
-"(let-values(((tmp_29)(if(pair?(correlated-e e_69))(correlated-e(car(correlated-e e_69))) #f)))"
+"(let-values(((tmp_29)(if(pair?(correlated-e e_67))(correlated-e(car(correlated-e e_67))) #f)))"
 "(if(equal? tmp_29 'quote)"
 "(let-values()"
-"(let-values(((v_186)(correlated-cadr e_69)))"
-"(let-values(((or-part_246)"
-"(if(correlated-length v_186)"
-"(let-values(((l_62)(map2 correlated-e(correlated->list v_186))))"
-"(if(andmap2 exact-nonnegative-integer? l_62)"
-"(if(=(length l_62)(set-count(list->set l_62))) l_62 #f)"
+"(let-values(((v_185)(correlated-cadr e_67)))"
+"(let-values(((or-part_252)"
+"(if(correlated-length v_185)"
+"(let-values(((l_61)(map2 correlated-e(correlated->list v_185))))"
+"(if(andmap2 exact-nonnegative-integer? l_61)"
+"(if(=(length l_61)(set-count(list->set l_61))) l_61 #f)"
 " #f))"
 " #f)))"
-"(if or-part_246 or-part_246 fail-v_0))))"
+"(if or-part_252 or-part_252 fail-v_0))))"
 "(let-values() fail-v_0))))))"
 "(define-values"
 "(procedure-spec?)"
-"(lambda(e_70 field-count_1)"
+"(lambda(e_68 field-count_1)"
 "(begin"
-"(let-values(((or-part_247)(quoted? false? e_70)))"
-"(if or-part_247"
-" or-part_247"
-"(let-values(((or-part_248)"
-"(if(quoted? exact-nonnegative-integer? e_70)"
-"(if field-count_1(<(quoted-value e_70) field-count_1) #f)"
+"(let-values(((or-part_253)(quoted? false? e_68)))"
+"(if or-part_253"
+" or-part_253"
+"(let-values(((or-part_254)"
+"(if(quoted? exact-nonnegative-integer? e_68)"
+"(if field-count_1(<(quoted-value e_68) field-count_1) #f)"
 " #f)))"
-"(if or-part_248 or-part_248(is-lambda? e_70 #f '#hasheq()))))))))"
+"(if or-part_254 or-part_254(is-lambda? e_68 #f '#hasheq()))))))))"
 "(define-values"
 "(immutables-ok?)"
-"(lambda(e_71 init-field-count-expr_1)"
+"(lambda(e_69 init-field-count-expr_1)"
 "(begin"
-"(let-values(((l_63)(immutables-expr-to-immutables e_71 #f)))"
+"(let-values(((l_62)(immutables-expr-to-immutables e_69 #f)))"
 "(let-values(((c_24)(field-count-expr-to-field-count init-field-count-expr_1)))"
-"(if l_63"
-"(let-values(((lst_261) l_63))"
+"(if l_62"
+"(let-values(((lst_256) l_62))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
-"(let-values()(check-list lst_261)))"
-"((letrec-values(((for-loop_228)"
-"(lambda(result_115 lst_262)"
+"(let-values()(check-list lst_256)))"
+"((letrec-values(((for-loop_92)"
+"(lambda(result_112 lst_257)"
 "(begin"
 " 'for-loop"
-"(if(pair? lst_262)"
-"(let-values(((n_27)(unsafe-car lst_262))((rest_138)(unsafe-cdr lst_262)))"
-"(let-values(((result_116)"
+"(if(pair? lst_257)"
+"(let-values(((n_27)(unsafe-car lst_257))((rest_142)(unsafe-cdr lst_257)))"
+"(let-values(((result_113)"
 "(let-values()"
-"(let-values(((result_117)"
+"(let-values(((result_114)"
 "(let-values()(let-values()(< n_27 c_24)))))"
-"(values result_117)))))"
-"(if(if(not((lambda x_69(not result_116)) n_27))(not #f) #f)"
-"(for-loop_228 result_116 rest_138)"
-" result_116)))"
-" result_115)))))"
-" for-loop_228)"
+"(values result_114)))))"
+"(if(if(not((lambda x_71(not result_113)) n_27))(not #f) #f)"
+"(for-loop_92 result_113 rest_142)"
+" result_113)))"
+" result_112)))))"
+" for-loop_92)"
 " #t"
-" lst_261)))"
+" lst_256)))"
 " #f))))))"
 "(define-values"
 "(ok-make-struct-field-accessor/mutator?)"
-"(lambda(e_72 locals_17 type_1 defns_10)"
+"(lambda(e_70 locals_17 type_1 defns_10)"
 "(begin"
-"(let-values(((l_64)(correlated->list e_72)))"
+"(let-values(((l_63)(correlated->list e_70)))"
 "(let-values(((a_42)"
-"(if(let-values(((or-part_249)(=(length l_64) 3)))"
-"(if or-part_249 or-part_249(=(length l_64) 4)))"
-"(let-values(((or-part_250)(hash-ref locals_17(correlated-e(list-ref l_64 1)) #f)))"
-"(if or-part_250 or-part_250(lookup-defn defns_10(correlated-e(list-ref l_64 1)))))"
+"(if(let-values(((or-part_255)(=(length l_63) 3)))"
+"(if or-part_255 or-part_255(=(length l_63) 4)))"
+"(let-values(((or-part_256)(hash-ref locals_17(correlated-e(list-ref l_63 1)) #f)))"
+"(if or-part_256 or-part_256(lookup-defn defns_10(correlated-e(list-ref l_63 1)))))"
 " #f)))"
 "(if(known-struct-op? a_42)"
 "(if(eq?(known-struct-op-type a_42) type_1)"
-"(if(<(field-count-expr-to-field-count(list-ref l_64 2))(known-struct-op-field-count a_42))"
-"(let-values(((or-part_251)(=(length l_64) 3)))"
-"(if or-part_251 or-part_251(quoted? symbol?(list-ref l_64 3))))"
+"(if(<(field-count-expr-to-field-count(list-ref l_63 2))(known-struct-op-field-count a_42))"
+"(let-values(((or-part_257)(=(length l_63) 3)))"
+"(if or-part_257 or-part_257(quoted? symbol?(list-ref l_63 3))))"
 " #f)"
 " #f)"
 " #f))))))"
-"(define-values(maybe+)(lambda(x_70 y_10)(begin(if x_70(if y_10(+ x_70 y_10) #f) #f))))"
+"(define-values(maybe+)(lambda(x_72 y_10)(begin(if x_72(if y_10(+ x_72 y_10) #f) #f))))"
 "(define-values"
 "(compile-single)"
-"(lambda(p_44 cctx_12)"
+"(lambda(p_44 cctx_13)"
 "(begin"
-"(let-values(((p12_0) p_44)((cctx13_0) cctx_12)((temp14_4) #f)((temp15_4) #t))"
-"(compile-top9.1 temp14_4 #t temp15_4 #t #f #f p12_0 cctx13_0)))))"
+"(let-values(((p12_0) p_44)((cctx13_0) cctx_13)((temp14_4) #f)((temp15_4) #t))"
+"(compile-top9.1 temp14_4 temp15_4 #f p12_0 cctx13_0)))))"
 "(define-values"
 "(compile-top9.1)"
-"(lambda(serializable?1_0"
-" serializable?4_0"
-" single-expression?2_0"
-" single-expression?5_0"
-" to-source?3_0"
-" to-source?6_0"
-" p7_0"
-" cctx8_0)"
+"(lambda(serializable?1_0 single-expression?2_0 to-source?3_0 p7_0 cctx8_0)"
 "(begin"
 " 'compile-top9"
 "(let-values(((p_45) p7_0))"
-"(let-values(((cctx_13) cctx8_0))"
-"(let-values(((serializable?_1)(if serializable?4_0 serializable?1_0 #t)))"
-"(let-values(((single-expression?_0)(if single-expression?5_0 single-expression?2_0 #f)))"
-"(let-values(((to-source?_2)(if to-source?6_0 to-source?3_0 #f)))"
+"(let-values(((cctx_14) cctx8_0))"
+"(let-values(((serializable?_1) serializable?1_0))"
+"(let-values(((single-expression?_0) single-expression?2_0))"
+"(let-values(((to-source?_2) to-source?3_0))"
 "(let-values()"
 "(let-values()"
-"(let-values(((phase_84)(compile-context-phase cctx_13)))"
+"(let-values(((phase_82)(compile-context-phase cctx_14)))"
 "(let-values(((mpis_18)(make-module-path-index-table)))"
 "(let-values(((purely-functional?_0) #t))"
 "(let-values(((body-linklets_1"
@@ -33545,7 +33070,7 @@ static const char *startup_source =
 " syntax-literals_3"
 " no-root-context-pos_0)"
 "(let-values(((temp16_4)(list p_45))"
-"((cctx17_0) cctx_13)"
+"((cctx17_0) cctx_14)"
 "((mpis18_0) mpis_18)"
 "((temp19_0)"
 "(if single-expression?_0"
@@ -33563,65 +33088,51 @@ static const char *startup_source =
 "((serializable?22_0) serializable?_1)"
 "((temp23_3)(lambda()(set! purely-functional?_0 #f)))"
 "((temp24_3)"
-"(lambda(e_73 expected-results_2 phase_85 required-reference?_0)"
+"(lambda(e_71 expected-results_2 phase_22 required-reference?_0)"
 "(if(if purely-functional?_0"
-"(let-values(((e27_0) e_73)"
+"(let-values(((e27_0) e_71)"
 "((expected-results28_0) expected-results_2)"
 "((required-reference?29_0)"
 " required-reference?_0))"
 "(any-side-effects?9.1"
-" #f"
-" #f"
-" #f"
-" #f"
+" unsafe-undefined"
+" unsafe-undefined"
 " required-reference?29_0"
-" #t"
 " e27_0"
 " expected-results28_0))"
 " #f)"
 "(let-values()(set! purely-functional?_0 #f))"
 "(void))))"
 "((temp25_3)"
-"(lambda(s_411 cctx_14)"
+"(lambda(s_43 cctx_15)"
 "(begin"
 "(set! purely-functional?_0 #f)"
-"(compile-top-level-require s_411 cctx_14))))"
-"((temp26_1)(not single-expression?_0)))"
+"(compile-top-level-require s_43 cctx_15))))"
+"((temp26_2)(not single-expression?_0)))"
 "(compile-forms31.1"
 " temp20_0"
 " temp19_0"
-" #f"
-" #f"
+" null"
 " temp24_3"
-" #t"
-" temp26_1"
-" #t"
+" temp26_2"
 " temp23_3"
-" #t"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
 " #f"
+" null"
+" unsafe-undefined"
 " temp25_3"
-" #t"
-" #f"
 " #f"
 " serializable?22_0"
-" #t"
 " to-source?21_0"
-" #t"
 " temp16_4"
 " cctx17_0"
 " mpis18_0))))"
 "(let-values(((add-metadata_0)"
-"(lambda(ht_117)"
+"(lambda(ht_112)"
 "(begin"
 " 'add-metadata"
-"(let-values(((ht_77)(hash-set ht_117 'original-phase phase_84)))"
-"(let-values(((ht_118)(hash-set ht_77 'max-phase max-phase_1)))"
-" ht_118))))))"
+"(let-values(((ht_113)(hash-set ht_112 'original-phase phase_82)))"
+"(let-values(((ht_114)(hash-set ht_113 'max-phase max-phase_1)))"
+" ht_114))))))"
 "(let-values(((bundle_0)"
 "((if to-source?_2 values 1/hash->linklet-bundle)"
 "(add-metadata_0"
@@ -33632,17 +33143,17 @@ static const char *startup_source =
 "(generate-eager-syntax-literals!"
 " syntax-literals_3"
 " mpis_18"
-" phase_84"
-"(compile-context-self cctx_13)"
-"(compile-context-namespace cctx_13)))))"
+" phase_82"
+"(compile-context-self cctx_14)"
+"(compile-context-namespace cctx_14)))))"
 "(let-values(((link-linklet_0)"
 "((if to-source?_2"
 " values"
-"(lambda(s_170)"
+"(lambda(s_35)"
 "(let-values()"
 "(let-values(((linklet_2 new-keys_0)"
 "(1/compile-linklet"
-" s_170"
+" s_35"
 " #f"
 "(vector"
 " deserialize-instance"
@@ -33665,7 +33176,7 @@ static const char *startup_source =
 "(list"
 " 'define-values"
 "(list deserialized-syntax-vector-id)"
-"(list* 'make-vector(add1 phase_84) '(#f)))"
+"(list* 'make-vector(add1 phase_82) '(#f)))"
 "(list"
 " 'define-values"
 " '(phase-to-link-modules)"
@@ -33691,29 +33202,25 @@ static const char *startup_source =
 "(syntax-literals-as-vector syntax-literals_3)"
 " null"
 " null"
-"(extract-namespace-scopes(compile-context-namespace cctx_13))"
+"(extract-namespace-scopes(compile-context-namespace cctx_14))"
 " purely-functional?_0)))))))))))))))))))"
 "(define-values"
 "(compile-top-level-require)"
-"(lambda(p_46 cctx_15)"
+"(lambda(p_46 cctx_16)"
 "(begin"
-"(let-values(((phase_36)(compile-context-phase cctx_15)))"
+"(let-values(((phase_83)(compile-context-phase cctx_16)))"
 "(if(parsed-require? p_46)"
 "(let-values()"
-"(let-values(((form-stx_0)(compile-quote-syntax(syntax-disarm$1(parsed-s p_46)) cctx_15)))"
+"(let-values(((form-stx_0)(compile-quote-syntax(syntax-disarm$1(parsed-s p_46)) cctx_16)))"
 "(list top-level-require!-id form-stx_0 ns-id)))"
 "(let-values() #f))))))"
 "(define-values"
 "(select-defined-syms-and-bind!16.1)"
 "(lambda(as-transformer?5_0"
-" as-transformer?10_0"
 " frame-id1_0"
 " in4_0"
-" in9_0"
 " requires+provides3_0"
-" requires+provides8_0"
 " top-level-bind-scope2_0"
-" top-level-bind-scope7_0"
 " ids11_0"
 " defined-syms12_0"
 " self13_0"
@@ -33723,124 +33230,115 @@ static const char *startup_source =
 " 'select-defined-syms-and-bind!16"
 "(let-values(((ids_15) ids11_0))"
 "(let-values(((defined-syms_8) defined-syms12_0))"
-"(let-values(((self_20) self13_0))"
-"(let-values(((phase_86) phase14_0))"
+"(let-values(((self_19) self13_0))"
+"(let-values(((phase_84) phase14_0))"
 "(let-values(((all-scopes-stx_3) all-scopes-stx15_0))"
 "(let-values(((frame-id_7) frame-id1_0))"
-"(let-values(((top-level-bind-scope_3)(if top-level-bind-scope7_0 top-level-bind-scope2_0 #f)))"
-"(let-values(((requires+provides_4)(if requires+provides8_0 requires+provides3_0 #f)))"
-"(let-values(((orig-s_28)(if in9_0 in4_0 #f)))"
-"(let-values(((as-transformer?_5)(if as-transformer?10_0 as-transformer?5_0 #f)))"
+"(let-values(((top-level-bind-scope_3) top-level-bind-scope2_0))"
+"(let-values(((requires+provides_4) requires+provides3_0))"
+"(let-values(((orig-s_28) in4_0))"
+"(let-values(((as-transformer?_5) as-transformer?5_0))"
 "(let-values()"
 "(let-values(((defined-syms-at-phase_0)"
-"(let-values(((or-part_161)(hash-ref defined-syms_8 phase_86 #f)))"
-"(if or-part_161"
-" or-part_161"
-"(let-values(((ht_119)(make-hasheq)))"
-"(begin(hash-set! defined-syms_8 phase_86 ht_119) ht_119))))))"
+"(let-values(((or-part_83)(hash-ref defined-syms_8 phase_84 #f)))"
+"(if or-part_83"
+" or-part_83"
+"(let-values(((ht_115)(make-hasheq)))"
+"(begin(hash-set! defined-syms_8 phase_84 ht_115) ht_115))))))"
 "(reverse$1"
-"(let-values(((lst_78) ids_15))"
+"(let-values(((lst_258) ids_15))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
-"(let-values()(check-list lst_78)))"
-"((letrec-values(((for-loop_229)"
-"(lambda(fold-var_12 lst_173)"
+"(let-values()(check-list lst_258)))"
+"((letrec-values(((for-loop_231)"
+"(lambda(fold-var_71 lst_90)"
 "(begin"
 " 'for-loop"
-"(if(pair? lst_173)"
-"(let-values(((id_54)(unsafe-car lst_173))"
-"((rest_90)(unsafe-cdr lst_173)))"
-"(let-values(((fold-var_93)"
-"(let-values(((fold-var_158) fold-var_12))"
-"(let-values(((fold-var_168)"
+"(if(pair? lst_90)"
+"(let-values(((id_53)(unsafe-car lst_90))"
+"((rest_143)(unsafe-cdr lst_90)))"
+"(let-values(((fold-var_12)"
+"(let-values(((fold-var_153) fold-var_71))"
+"(let-values(((fold-var_91)"
 "(let-values()"
 "(cons"
 "(let-values()"
-"(let-values(((sym_13)"
+"(let-values(((sym_61)"
 "(syntax-e$1"
-" id_54)))"
+" id_53)))"
 "(let-values(((defined-sym_0)"
 "(if(if(not"
 "(defined-as-other?"
 "(hash-ref"
 " defined-syms-at-phase_0"
-" sym_13"
+" sym_61"
 " #f)"
-" id_54"
-" phase_86"
+" id_53"
+" phase_84"
 " top-level-bind-scope_3))"
 "(if(no-extra-scopes?"
-" id_54"
+" id_53"
 " all-scopes-stx_3"
 " top-level-bind-scope_3"
-" phase_86)"
+" phase_84)"
 "(symbol-interned?"
-" sym_13)"
+" sym_61)"
 " #f)"
 " #f)"
-" sym_13"
-"((letrec-values(((loop_95)"
-"(lambda(pos_96)"
+" sym_61"
+"((letrec-values(((loop_81)"
+"(lambda(pos_98)"
 "(begin"
 " 'loop"
-"(let-values(((s_186)"
+"(let-values(((s_183)"
 "(string->unreadable-symbol"
 "(format"
 "                                                                                                                                                        \"~a.~a\""
-" sym_13"
-" pos_96))))"
+" sym_61"
+" pos_98))))"
 "(if(defined-as-other?"
 "(hash-ref"
 " defined-syms-at-phase_0"
-" s_186"
+" s_183"
 " #f)"
-" id_54"
-" phase_86"
+" id_53"
+" phase_84"
 " top-level-bind-scope_3)"
-"(loop_95"
+"(loop_81"
 "(add1"
-" pos_96))"
-" s_186))))))"
-" loop_95)"
+" pos_98))"
+" s_183))))))"
+" loop_81)"
 " 1))))"
 "(let-values((()"
 "(begin"
 "(hash-set!"
 " defined-syms-at-phase_0"
 " defined-sym_0"
-" id_54)"
+" id_53)"
 "(values))))"
-"(let-values(((b_73)"
+"(let-values(((b_72)"
 "(let-values(((self23_0)"
-" self_20)"
+" self_19)"
 "((phase24_0)"
-" phase_86)"
+" phase_84)"
 "((defined-sym25_0)"
 " defined-sym_0)"
 "((frame-id26_0)"
 " frame-id_7)"
 "((sym27_1)"
-" sym_13))"
+" sym_61))"
 "(make-module-binding22.1"
 " #f"
-" #f"
-" #f"
-" #f"
+" null"
 " frame-id26_0"
-" #t"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
 " #f"
+" unsafe-undefined"
+" unsafe-undefined"
+" 0"
 " sym27_1"
-" #t"
-" #f"
-" #f"
+" unsafe-undefined"
 " self23_0"
 " phase24_0"
 " defined-sym25_0))))"
@@ -33850,11 +33348,11 @@ static const char *startup_source =
 "(let-values(((requires+provides28_0)"
 " requires+provides_4)"
 "((id29_0)"
-" id_54)"
+" id_53)"
 "((phase30_0)"
-" phase_86)"
+" phase_84)"
 "((b31_0)"
-" b_73))"
+" b_72))"
 "(remove-required-id!75.1"
 " b31_0"
 " requires+provides28_0"
@@ -33862,77 +33360,74 @@ static const char *startup_source =
 " phase30_0)))"
 "(void))"
 "(let-values(((id19_0)"
-" id_54)"
+" id_53)"
 "((b20_0)"
-" b_73)"
-"((phase21_0)"
-" phase_86)"
+" b_72)"
+"((phase21_1)"
+" phase_84)"
 "((orig-s22_0)"
 " orig-s_28))"
 "(add-binding!17.1"
 " orig-s22_0"
-" #t"
-" #f"
 " #f"
 " id19_0"
 " b20_0"
-" phase21_0))"
+" phase21_1))"
 "(if requires+provides_4"
 "(let-values()"
 "(let-values(((requires+provides32_0)"
 " requires+provides_4)"
 "((id33_0)"
-" id_54)"
+" id_53)"
 "((phase34_0)"
-" phase_86)"
+" phase_84)"
 "((b35_0)"
-" b_73)"
+" b_72)"
 "((as-transformer?36_0)"
 " as-transformer?_5))"
 "(add-defined-or-required-id!19.1"
 " as-transformer?36_0"
 " #f"
-" #f"
 " requires+provides32_0"
 " id33_0"
 " phase34_0"
 " b35_0)))"
 "(void))"
 " defined-sym_0))))))"
-" fold-var_158))))"
-"(values fold-var_168)))))"
+" fold-var_153))))"
+"(values fold-var_91)))))"
 "(if(not #f)"
-"(for-loop_229 fold-var_93 rest_90)"
-" fold-var_93)))"
-" fold-var_12)))))"
-" for-loop_229)"
+"(for-loop_231 fold-var_12 rest_143)"
+" fold-var_12)))"
+" fold-var_71)))))"
+" for-loop_231)"
 " null"
-" lst_78)))))))))))))))))))"
+" lst_258)))))))))))))))))))"
 "(define-values"
 "(no-extra-scopes?)"
-"(lambda(id_55 all-scopes-stx_4 top-level-bind-scope_4 phase_87)"
+"(lambda(id_54 all-scopes-stx_4 top-level-bind-scope_4 phase_70)"
 "(begin"
-"(let-values(((m-id_0)(datum->syntax$1 all-scopes-stx_4(syntax-e$1 id_55))))"
-"(let-values(((or-part_131)(bound-identifier=?$1 id_55 m-id_0 phase_87)))"
-"(if or-part_131"
-" or-part_131"
+"(let-values(((m-id_0)(datum->syntax$1 all-scopes-stx_4(syntax-e$1 id_54))))"
+"(let-values(((or-part_210)(bound-identifier=?$1 id_54 m-id_0 phase_70)))"
+"(if or-part_210"
+" or-part_210"
 "(if top-level-bind-scope_4"
-"(bound-identifier=?$1 id_55(add-scope m-id_0 top-level-bind-scope_4) phase_87)"
+"(bound-identifier=?$1 id_54(add-scope m-id_0 top-level-bind-scope_4) phase_70)"
 " #f)))))))"
 "(define-values"
 "(defined-as-other?)"
-"(lambda(prev-id_0 id_56 phase_76 top-level-bind-scope_5)"
+"(lambda(prev-id_0 id_55 phase_85 top-level-bind-scope_5)"
 "(begin"
 "(if prev-id_0"
-"(if(not(bound-identifier=?$1 prev-id_0 id_56 phase_76))"
-"(let-values(((or-part_252)(not top-level-bind-scope_5)))"
-"(if or-part_252"
-" or-part_252"
+"(if(not(bound-identifier=?$1 prev-id_0 id_55 phase_85))"
+"(let-values(((or-part_258)(not top-level-bind-scope_5)))"
+"(if or-part_258"
+" or-part_258"
 "(not"
 "(bound-identifier=?$1"
 "(remove-scope prev-id_0 top-level-bind-scope_5)"
-"(remove-scope id_56 top-level-bind-scope_5)"
-" phase_76))))"
+"(remove-scope id_55 top-level-bind-scope_5)"
+" phase_85))))"
 " #f)"
 " #f))))"
 "(define-values"
@@ -33941,54 +33436,50 @@ static const char *startup_source =
 "(begin"
 "(let-values(((tl-ids37_0) tl-ids_0)"
 "((temp38_1)(root-expand-context-defined-syms ctx_10))"
-"((temp39_1)(root-expand-context-self-mpi ctx_10))"
+"((temp39_2)(root-expand-context-self-mpi ctx_10))"
 "((temp40_1)(expand-context-phase ctx_10))"
-"((temp41_1)(root-expand-context-all-scopes-stx ctx_10))"
+"((temp41_0)(root-expand-context-all-scopes-stx ctx_10))"
 "((temp42_1)(root-expand-context-frame-id ctx_10))"
-"((temp43_0)(root-expand-context-top-level-bind-scope ctx_10)))"
+"((temp43_1)(root-expand-context-top-level-bind-scope ctx_10)))"
 "(select-defined-syms-and-bind!16.1"
 " #f"
-" #f"
 " temp42_1"
 " #f"
 " #f"
-" #f"
-" #f"
-" temp43_0"
-" #t"
+" temp43_1"
 " tl-ids37_0"
 " temp38_1"
-" temp39_1"
+" temp39_2"
 " temp40_1"
-" temp41_1)))))"
+" temp41_0)))))"
 "(define-values"
 "(add-defined-sym!)"
-"(lambda(defined-syms_9 phase_88 sym_59 id_57)"
+"(lambda(defined-syms_9 phase_75 sym_62 id_56)"
 "(begin"
 "(let-values(((defined-syms-at-phase_1)"
-"(let-values(((or-part_95)(hash-ref defined-syms_9 phase_88 #f)))"
-"(if or-part_95"
-" or-part_95"
-"(let-values(((ht_120)(make-hasheq)))"
-"(begin(hash-set! defined-syms_9 phase_88 ht_120) ht_120))))))"
-"(hash-set! defined-syms-at-phase_1 sym_59 id_57)))))"
+"(let-values(((or-part_219)(hash-ref defined-syms_9 phase_75 #f)))"
+"(if or-part_219"
+" or-part_219"
+"(let-values(((ht_116)(make-hasheq)))"
+"(begin(hash-set! defined-syms_9 phase_75 ht_116) ht_116))))))"
+"(hash-set! defined-syms-at-phase_1 sym_62 id_56)))))"
 "(define-values"
 "(make-create-root-expand-context-from-module)"
 "(lambda(requires_3 evaled-ld-h_0)"
 "(begin"
-"(lambda(ns_59 phase-shift_14 original-self_0 self_7)"
+"(lambda(ns_59 phase-shift_13 original-self_0 self_20)"
 "(let-values(((root-ctx_4)"
 "(let-values(((temp1_2)(namespace-mpi ns_59)))"
-"(make-root-expand-context13.1 #f #f #f #f #f #f #f #f temp1_2))))"
+"(make-root-expand-context13.1 #f null unsafe-undefined unsafe-undefined temp1_2))))"
 "(let-values(((s_3)(add-scopes empty-syntax(root-expand-context-module-scopes root-ctx_4))))"
 "(let-values((()"
 "(begin"
-"(let-values(((lst_263) requires_3))"
+"(let-values(((lst_218) requires_3))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
-"(let-values()(check-list lst_263)))"
-"((letrec-values(((for-loop_230)"
+"(let-values()(check-list lst_218)))"
+"((letrec-values(((for-loop_232)"
 "(lambda(lst_16)"
 "(begin"
 " 'for-loop"
@@ -34001,11 +33492,11 @@ static const char *startup_source =
 "(let-values()"
 "(begin"
 "(let-values()"
-"(let-values(((phase_35)"
+"(let-values(((phase_34)"
 "(car"
 " phase+reqs_0)))"
 "(begin"
-"(let-values(((lst_264)"
+"(let-values(((lst_259)"
 "(cdr"
 " phase+reqs_0)))"
 "(begin"
@@ -34014,112 +33505,101 @@ static const char *startup_source =
 "(void)"
 "(let-values()"
 "(check-list"
-" lst_264)))"
-"((letrec-values(((for-loop_231)"
-"(lambda(lst_77)"
+" lst_259)))"
+"((letrec-values(((for-loop_233)"
+"(lambda(lst_78)"
 "(begin"
 " 'for-loop"
 "(if(pair?"
-" lst_77)"
+" lst_78)"
 "(let-values(((req_4)"
 "(unsafe-car"
-" lst_77))"
-"((rest_35)"
+" lst_78))"
+"((rest_36)"
 "(unsafe-cdr"
-" lst_77)))"
+" lst_78)))"
 "(let-values((()"
 "(let-values()"
 "(let-values((()"
 "(let-values()"
 "(begin"
 "(let-values()"
-"(let-values(((mpi_46)"
+"(let-values(((mpi_44)"
 "(module-path-index-shift"
 " req_4"
 " original-self_0"
-" self_7)))"
+" self_20)))"
 "(let-values(((mpi2_1)"
-" mpi_46)"
-"((s3_1)"
+" mpi_44)"
+"((s3_0)"
 " s_3)"
 "((self4_3)"
-" self_7)"
-"((s5_0)"
+" self_20)"
+"((s5_1)"
 " s_3)"
 "((ns6_0)"
 " ns_59)"
 "((temp7_1)"
 "(phase+"
-" phase_35"
-" phase-shift_14))"
+" phase_34"
+" phase-shift_13))"
 "((phase-shift8_0)"
-" phase-shift_14)"
+" phase-shift_13)"
 "((temp9_2)"
 " 'module))"
 "(perform-require!78.1"
 " #f"
+" #t"
 " #f"
 " #f"
 " #f"
 " #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
+" 'all"
 " temp7_1"
 " #f"
-" #f"
 " phase-shift8_0"
 " #f"
 " #f"
-" #f"
-" #f"
-" #f"
-" #f"
+" #t"
 " temp9_2"
 " mpi2_1"
-" s3_1"
+" s3_0"
 " self4_3"
-" s5_0"
+" s5_1"
 " ns6_0))))"
 "(values)))))"
 "(values)))))"
 "(if(not"
 " #f)"
-"(for-loop_231"
-" rest_35)"
+"(for-loop_233"
+" rest_36)"
 "(values))))"
 "(values))))))"
-" for-loop_231)"
-" lst_264)))"
+" for-loop_233)"
+" lst_259)))"
 "(void))))"
 "(values)))))"
 "(values)))))"
-"(if(not #f)(for-loop_230 rest_4)(values))))"
+"(if(not #f)(for-loop_232 rest_4)(values))))"
 "(values))))))"
-" for-loop_230)"
-" lst_263)))"
+" for-loop_232)"
+" lst_218)))"
 "(values))))"
 "(let-values()"
 "(let-values(((defined-syms_10)(root-expand-context-defined-syms root-ctx_4)))"
 "(begin"
-"(let-values(((ht_121) evaled-ld-h_0))"
+"(let-values(((ht_117) evaled-ld-h_0))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
-"(let-values()(check-in-hash ht_121)))"
-"((letrec-values(((for-loop_108)"
+"(let-values()(check-in-hash ht_117)))"
+"((letrec-values(((for-loop_105)"
 "(lambda(i_148)"
 "(begin"
 " 'for-loop"
 "(if i_148"
-"(let-values(((phase_89 linklet_3)"
-"(hash-iterate-key+value ht_121 i_148)))"
+"(let-values(((phase_86 linklet_3)"
+"(hash-iterate-key+value ht_117 i_148)))"
 "(let-values((()"
 "(let-values()"
 "(let-values((()"
@@ -34127,7 +33607,7 @@ static const char *startup_source =
 "(begin"
 "(let-values()"
 "(begin"
-"(let-values(((lst_265)"
+"(let-values(((lst_260)"
 "(1/linklet-export-variables"
 " linklet_3)))"
 "(begin"
@@ -34135,95 +33615,84 @@ static const char *startup_source =
 "(#%variable-reference))"
 "(void)"
 "(let-values()"
-"(check-list lst_265)))"
-"((letrec-values(((for-loop_232)"
-"(lambda(lst_266)"
+"(check-list lst_260)))"
+"((letrec-values(((for-loop_234)"
+"(lambda(lst_261)"
 "(begin"
 " 'for-loop"
 "(if(pair?"
-" lst_266)"
-"(let-values(((sym_60)"
+" lst_261)"
+"(let-values(((sym_63)"
 "(unsafe-car"
-" lst_266))"
-"((rest_139)"
+" lst_261))"
+"((rest_144)"
 "(unsafe-cdr"
-" lst_266)))"
+" lst_261)))"
 "(let-values((()"
 "(let-values()"
 "(let-values((()"
 "(let-values()"
 "(begin"
 "(let-values()"
-"(let-values(((id_58)"
+"(let-values(((id_57)"
 "(datum->syntax$1"
 " s_3"
-" sym_60)))"
+" sym_63)))"
 "(begin"
 "(let-values(((id10_0)"
-" id_58)"
+" id_57)"
 "((temp11_2)"
 "(let-values(((self13_1)"
-" self_7)"
+" self_20)"
 "((phase14_1)"
-" phase_89)"
+" phase_86)"
 "((sym15_0)"
-" sym_60))"
+" sym_63))"
 "(make-module-binding22.1"
 " #f"
+" null"
 " #f"
 " #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
+" unsafe-undefined"
+" unsafe-undefined"
+" 0"
+" unsafe-undefined"
+" unsafe-undefined"
 " self13_1"
 " phase14_1"
 " sym15_0)))"
 "((phase12_0)"
-" phase_89))"
+" phase_86))"
 "(add-binding!17.1"
 " #f"
 " #f"
-" #f"
-" #f"
 " id10_0"
 " temp11_2"
 " phase12_0))"
 "(add-defined-sym!"
 " defined-syms_10"
-" phase_89"
-" sym_60"
-" id_58))))"
+" phase_86"
+" sym_63"
+" id_57))))"
 "(values)))))"
 "(values)))))"
 "(if(not"
 " #f)"
-"(for-loop_232"
-" rest_139)"
+"(for-loop_234"
+" rest_144)"
 "(values))))"
 "(values))))))"
-" for-loop_232)"
-" lst_265)))"
+" for-loop_234)"
+" lst_260)))"
 "(void)))"
 "(values)))))"
 "(values)))))"
 "(if(not #f)"
-"(for-loop_108(hash-iterate-next ht_121 i_148))"
+"(for-loop_105(hash-iterate-next ht_117 i_148))"
 "(values))))"
 "(values))))))"
-" for-loop_108)"
-"(hash-iterate-first ht_121))))"
+" for-loop_105)"
+"(hash-iterate-first ht_117))))"
 "(void)"
 " root-ctx_4))))))))))"
 "(define-values"
@@ -34232,41 +33701,39 @@ static const char *startup_source =
 "(begin"
 "(let-values(((outside-mpi_0)(root-expand-context-self-mpi root-context_0)))"
 "(let-values(((inside-mpi_0)(make-self-module-path-index(module-path-index-resolved outside-mpi_0))))"
-"(let-values(((v_187) root-context_0))"
-"(let-values(((the-struct_52) v_187))"
-"(if(root-expand-context/outer? the-struct_52)"
+"(let-values(((v_186) root-context_0))"
+"(let-values(((the-struct_54) v_186))"
+"(if(root-expand-context/outer? the-struct_54)"
 "(let-values(((inner16_0)"
-"(let-values(((the-struct_53)(root-expand-context/outer-inner v_187)))"
-"(if(root-expand-context/inner? the-struct_53)"
+"(let-values(((the-struct_55)(root-expand-context/outer-inner v_186)))"
+"(if(root-expand-context/inner? the-struct_55)"
 "(let-values(((self-mpi17_0) inside-mpi_0)"
 "((all-scopes-stx18_0)"
 "(let-values(((temp19_1)"
 "(root-expand-context-all-scopes-stx root-context_0))"
 "((outside-mpi20_0) outside-mpi_0)"
 "((inside-mpi21_0) inside-mpi_0))"
-"(syntax-module-path-index-shift15.1"
-" #f"
+"(syntax-module-path-index-shift13.1"
 " #f"
 " temp19_1"
 " outside-mpi20_0"
 " inside-mpi21_0"
-" #f"
 " #f))))"
 "(root-expand-context/inner2.1"
 " self-mpi17_0"
-"(root-expand-context/inner-module-scopes the-struct_53)"
-"(root-expand-context/inner-top-level-bind-scope the-struct_53)"
+"(root-expand-context/inner-module-scopes the-struct_55)"
+"(root-expand-context/inner-top-level-bind-scope the-struct_55)"
 " all-scopes-stx18_0"
-"(root-expand-context/inner-defined-syms the-struct_53)"
-"(root-expand-context/inner-counter the-struct_53)"
-"(root-expand-context/inner-lift-key the-struct_53)))"
-"                                  (raise-argument-error 'struct-copy \"root-expand-context/inner?\" the-struct_53)))))"
+"(root-expand-context/inner-defined-syms the-struct_55)"
+"(root-expand-context/inner-counter the-struct_55)"
+"(root-expand-context/inner-lift-key the-struct_55)))"
+"                                  (raise-argument-error 'struct-copy \"root-expand-context/inner?\" the-struct_55)))))"
 "(root-expand-context/outer1.1"
 " inner16_0"
-"(root-expand-context/outer-post-expansion-scope the-struct_52)"
-"(root-expand-context/outer-use-site-scopes the-struct_52)"
-"(root-expand-context/outer-frame-id the-struct_52)))"
-"                (raise-argument-error 'struct-copy \"root-expand-context/outer?\" the-struct_52)))))))))"
+"(root-expand-context/outer-post-expansion-scope the-struct_54)"
+"(root-expand-context/outer-use-site-scopes the-struct_54)"
+"(root-expand-context/outer-frame-id the-struct_54)))"
+"                (raise-argument-error 'struct-copy \"root-expand-context/outer?\" the-struct_54)))))))))"
 "(define-values"
 "(check-require-access9.1)"
 "(lambda(skip-imports1_0"
@@ -34283,44 +33750,44 @@ static const char *startup_source =
 "(let-values(((import-module-uses_0) import-module-uses4_0))"
 "(let-values(((import-module-instances_0) import-module-instances5_0))"
 "(let-values(((insp_10) insp6_0))"
-"(let-values(((extra-inspector_0) extra-inspector7_0))"
+"(let-values(((extra-inspector_6) extra-inspector7_0))"
 "(let-values(((extra-inspectorsss_4) extra-inspectorsss8_0))"
 "(let-values()"
 "(begin"
 "(let-values(((lst_41)(list-tail(1/linklet-import-variables linklet_4) skip-num-imports_0))"
-"((lst_267) import-module-uses_0)"
-"((lst_87) import-module-instances_0)"
-"((lst_163)"
-"(let-values(((or-part_84) extra-inspectorsss_4))"
-"(if or-part_84 or-part_84 import-module-uses_0))))"
+"((lst_159) import-module-uses_0)"
+"((lst_89) import-module-instances_0)"
+"((lst_262)"
+"(let-values(((or-part_82) extra-inspectorsss_4))"
+"(if or-part_82 or-part_82 import-module-uses_0))))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
 "(let-values()(check-list lst_41)))"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
-"(let-values()(check-list lst_267)))"
+"(let-values()(check-list lst_159)))"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
-"(let-values()(check-list lst_87)))"
+"(let-values()(check-list lst_89)))"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
-"(let-values()(check-list lst_163)))"
-"((letrec-values(((for-loop_232)"
-"(lambda(lst_266 lst_268 lst_23 lst_102)"
+"(let-values()(check-list lst_262)))"
+"((letrec-values(((for-loop_234)"
+"(lambda(lst_261 lst_258 lst_23 lst_104)"
 "(begin"
 " 'for-loop"
-"(if(if(pair? lst_266)"
-"(if(pair? lst_268)(if(pair? lst_23)(pair? lst_102) #f) #f)"
+"(if(if(pair? lst_261)"
+"(if(pair? lst_258)(if(pair? lst_23)(pair? lst_104) #f) #f)"
 " #f)"
-"(let-values(((import-syms_0)(unsafe-car lst_266))"
-"((rest_140)(unsafe-cdr lst_266))"
-"((mu_7)(unsafe-car lst_268))"
-"((rest_141)(unsafe-cdr lst_268))"
+"(let-values(((import-syms_0)(unsafe-car lst_261))"
+"((rest_145)(unsafe-cdr lst_261))"
+"((mu_7)(unsafe-car lst_258))"
+"((rest_84)(unsafe-cdr lst_258))"
 "((mi_16)(unsafe-car lst_23))"
-"((rest_42)(unsafe-cdr lst_23))"
-"((extra-inspectorss_14)(unsafe-car lst_102))"
-"((rest_119)(unsafe-cdr lst_102)))"
+"((rest_43)(unsafe-cdr lst_23))"
+"((extra-inspectorss_14)(unsafe-car lst_104))"
+"((rest_121)(unsafe-cdr lst_104)))"
 "(let-values((()"
 "(let-values()"
 "(let-values((()"
@@ -34343,7 +33810,7 @@ static const char *startup_source =
 "(module-compute-access!"
 " m_15)))))"
 "(begin"
-"(let-values(((lst_58)"
+"(let-values(((lst_263)"
 " import-syms_0))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
@@ -34351,8 +33818,8 @@ static const char *startup_source =
 "(void)"
 "(let-values()"
 "(check-list"
-" lst_58)))"
-"((letrec-values(((for-loop_233)"
+" lst_263)))"
+"((letrec-values(((for-loop_235)"
 "(lambda(lst_25)"
 "(begin"
 " 'for-loop"
@@ -34393,20 +33860,20 @@ static const char *startup_source =
 "(namespace-inspector"
 "(module-instance-namespace"
 " mi_16))))"
-"(if(let-values(((or-part_253)"
+"(if(let-values(((or-part_259)"
 "(inspector-superior?"
 " insp_10"
 " guard-insp_3)))"
-"(if or-part_253"
-" or-part_253"
-"(let-values(((or-part_254)"
-"(if extra-inspector_0"
+"(if or-part_259"
+" or-part_259"
+"(let-values(((or-part_260)"
+"(if extra-inspector_6"
 "(inspector-superior?"
-" extra-inspector_0"
+" extra-inspector_6"
 " guard-insp_3)"
 " #f)))"
-"(if or-part_254"
-" or-part_254"
+"(if or-part_260"
+" or-part_260"
 "(if extra-inspectorsss_4"
 "(if extra-inspectorss_14"
 "(extra-inspectors-allow?"
@@ -34436,43 +33903,43 @@ static const char *startup_source =
 "(values)))))"
 "(if(not"
 " #f)"
-"(for-loop_233"
+"(for-loop_235"
 " rest_9)"
 "(values))))"
 "(values))))))"
-" for-loop_233)"
-" lst_58)))"
+" for-loop_235)"
+" lst_263)))"
 "(void)))))))"
 "(values)))))"
 "(values)))))"
 "(if(not #f)"
-"(for-loop_232 rest_140 rest_141 rest_42 rest_119)"
+"(for-loop_234 rest_145 rest_84 rest_43 rest_121)"
 "(values))))"
 "(values))))))"
-" for-loop_232)"
+" for-loop_234)"
 " lst_41"
-" lst_267"
-" lst_87"
-" lst_163)))"
+" lst_159"
+" lst_89"
+" lst_262)))"
 "(void)))))))))))))"
 "(define-values"
 "(check-single-require-access)"
-"(lambda(mi_17 phase_90 sym_61 insp_11)"
+"(lambda(mi_17 phase_87 sym_64 insp_11)"
 "(begin"
 "(let-values(((m_16)(module-instance-module mi_17)))"
 "(if(module-no-protected? m_16)"
 "(let-values() #t)"
 "(let-values()"
 "(let-values(((access_3)"
-"(let-values(((or-part_255)(module-access m_16)))"
-"(if or-part_255 or-part_255(module-compute-access! m_16)))))"
-"(let-values(((a_44)(hash-ref(hash-ref access_3 phase_90 '#hasheq()) sym_61 'unexported)))"
-"(if(let-values(((or-part_256)(eq? a_44 'unexported)))"
-"(if or-part_256 or-part_256(eq? a_44 'protected)))"
+"(let-values(((or-part_261)(module-access m_16)))"
+"(if or-part_261 or-part_261(module-compute-access! m_16)))))"
+"(let-values(((a_44)(hash-ref(hash-ref access_3 phase_87 '#hasheq()) sym_64 'unexported)))"
+"(if(let-values(((or-part_34)(eq? a_44 'unexported)))"
+"(if or-part_34 or-part_34(eq? a_44 'protected)))"
 "(let-values()"
 "(let-values(((guard-insp_4)(namespace-inspector(module-instance-namespace mi_17))))"
-"(let-values(((or-part_257)(if insp_11(inspector-superior? insp_11 guard-insp_4) #f)))"
-"(if or-part_257 or-part_257(inspector-superior?(current-code-inspector) guard-insp_4)))))"
+"(let-values(((or-part_262)(if insp_11(inspector-superior? insp_11 guard-insp_4) #f)))"
+"(if or-part_262 or-part_262(inspector-superior?(current-code-inspector) guard-insp_4)))))"
 "(let-values() #t))))))))))"
 "(define-values(module-cache)(make-weak-hasheq))"
 "(define-values"
@@ -34485,35 +33952,29 @@ static const char *startup_source =
 "(define-values"
 "(module-cache-ref)"
 "(lambda(key_66)"
-"(begin(let-values(((e_74)(hash-ref module-cache key_66 #f)))(if e_74(ephemeron-value e_74) #f)))))"
+"(begin(let-values(((e_72)(hash-ref module-cache key_66 #f)))(if e_72(ephemeron-value e_72) #f)))))"
 "(define-values(current-module-declare-as-predefined)(make-parameter #f))"
 "(define-values"
 "(eval-module8.1)"
-"(lambda(namespace1_2"
-" namespace4_0"
-" supermodule-name3_0"
-" supermodule-name6_0"
-" with-submodules?2_0"
-" with-submodules?5_0"
-" c7_0)"
+"(lambda(namespace1_2 supermodule-name3_0 with-submodules?2_0 c7_0)"
 "(begin"
 " 'eval-module8"
-"(let-values(((c_18) c7_0))"
-"(let-values(((ns_60)(if namespace4_0 namespace1_2(1/current-namespace))))"
-"(let-values(((with-submodules?_1)(if with-submodules?5_0 with-submodules?2_0 #t)))"
-"(let-values(((supermodule-name_1)(if supermodule-name6_0 supermodule-name3_0 #f)))"
+"(let-values(((c_25) c7_0))"
+"(let-values(((ns_60)(if(eq? namespace1_2 unsafe-undefined)(1/current-namespace) namespace1_2)))"
+"(let-values(((with-submodules?_1) with-submodules?2_0))"
+"(let-values(((supermodule-name_1) supermodule-name3_0))"
 "(let-values()"
 "(let-values()"
 "(let-values(((dh_0 h_1 data-instance_0 declaration-instance_0)"
-"(compiled-module->dh+h+data-instance+declaration-instance c_18)))"
+"(compiled-module->dh+h+data-instance+declaration-instance c_25)))"
 "(let-values(((syntax-literals-data-instance_0)"
-"(if(compiled-in-memory? c_18)"
-"(make-syntax-literal-data-instance-from-compiled-in-memory c_18)"
-"(let-values(((l_65)(hash-ref h_1 'stx-data #f)))"
-"(if l_65"
+"(if(compiled-in-memory? c_25)"
+"(make-syntax-literal-data-instance-from-compiled-in-memory c_25)"
+"(let-values(((l_64)(hash-ref h_1 'stx-data #f)))"
+"(if l_64"
 "(let-values()"
 "(1/instantiate-linklet"
-"(1/eval-linklet l_65)"
+"(1/eval-linklet l_64)"
 "(list deserialize-instance data-instance_0)))"
 "(if(eq?(hash-ref h_1 'module->namespace #f) 'empty)"
 "(let-values() empty-syntax-literals-instance/empty-namespace)"
@@ -34542,69 +34003,69 @@ static const char *startup_source =
 "(void)"
 "(let-values()(check-range start_37 end_26 inc_20)))"
 "((letrec-values(((for-loop_234)"
-"(lambda(table_185 pos_97)"
+"(lambda(table_177 pos_99)"
 "(begin"
 " 'for-loop"
-"(if(< pos_97 end_26)"
+"(if(< pos_99 end_26)"
 "(let-values(((phase-level_17)"
-" pos_97))"
-"(let-values(((table_186)"
-"(let-values(((v_188)"
+" pos_99))"
+"(let-values(((table_178)"
+"(let-values(((v_187)"
 "(hash-ref"
 " h_1"
 " phase-level_17"
 " #f)))"
 "(begin"
 " #t"
-"((letrec-values(((for-loop_48)"
-"(lambda(table_187)"
+"((letrec-values(((for-loop_106)"
+"(lambda(table_179)"
 "(begin"
 " 'for-loop"
 "(let-values()"
-"(let-values(((table_188)"
-"(let-values(((table_189)"
-" table_187))"
-"(if v_188"
-"(let-values(((table_190)"
-" table_189))"
-"(let-values(((table_191)"
+"(let-values(((table_180)"
+"(let-values(((table_109)"
+" table_179))"
+"(if v_187"
+"(let-values(((table_181)"
+" table_109))"
+"(let-values(((table_182)"
 "(let-values()"
 "(let-values(((key_68"
-" val_60)"
+" val_57)"
 "(let-values()"
 "(values"
 " phase-level_17"
 "(1/eval-linklet"
-" v_188)))))"
+" v_187)))))"
 "(hash-set"
-" table_190"
+" table_181"
 " key_68"
-" val_60)))))"
+" val_57)))))"
 "(values"
-" table_191)))"
-" table_189))))"
-" table_188))))))"
-" for-loop_48)"
-" table_185)))))"
+" table_182)))"
+" table_109))))"
+" table_180))))))"
+" for-loop_106)"
+" table_177)))))"
 "(if(not #f)"
 "(for-loop_234"
-" table_186"
-"(+ pos_97 inc_20))"
-" table_186)))"
-" table_185)))))"
+" table_178"
+"(+ pos_99 inc_20))"
+" table_178)))"
+" table_177)))))"
 " for-loop_234)"
 " '#hash()"
 " start_37)))))"
 "(let-values(((syntax-literals-linklet_0)"
-"(let-values(((l_66)(hash-ref h_1 'stx #f)))"
-"(if l_66(1/eval-linklet l_66) #f))))"
-"(let-values(((extra-inspector_6)"
-"(if(compiled-in-memory? c_18)"
-"(compiled-in-memory-compile-time-inspector c_18)"
+"(let-values(((l_14)(hash-ref h_1 'stx #f)))"
+"(if l_14(1/eval-linklet l_14) #f))))"
+"(let-values(((extra-inspector_7)"
+"(if(compiled-in-memory? c_25)"
+"(compiled-in-memory-compile-time-inspector c_25)"
 " #f)))"
 "(let-values(((phase-to-link-extra-inspectorsss_1)"
-"(if(compiled-in-memory? c_18)"
-"(compiled-in-memory-phase-to-link-extra-inspectorsss c_18)"
+"(if(compiled-in-memory? c_25)"
+"(compiled-in-memory-phase-to-link-extra-inspectorsss c_25)"
 " '#hasheqv())))"
 "(let-values(((requires_4)(decl_0 'requires)))"
 "(let-values(((provides_8)(decl_0 'provides)))"
@@ -34620,32 +34081,32 @@ static const char *startup_source =
 "(lambda(ns_61 names_0 declare-name_0 pre?_0)"
 "(begin"
 " 'declare-submodules"
-"(if(compiled-in-memory? c_18)"
+"(if(compiled-in-memory? c_25)"
 "(begin"
-"(let-values(((lst_20)"
+"(let-values(((lst_19)"
 "(if pre?_0"
 "(compiled-in-memory-pre-compiled-in-memorys"
-" c_18)"
+" c_25)"
 "(compiled-in-memory-post-compiled-in-memorys"
-" c_18))))"
+" c_25))))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
 "(#%variable-reference))"
 "(void)"
 "(let-values()"
-"(check-list lst_20)))"
-"((letrec-values(((for-loop_235)"
-"(lambda(lst_91)"
+"(check-list lst_19)))"
+"((letrec-values(((for-loop_15)"
+"(lambda(lst_264)"
 "(begin"
 " 'for-loop"
 "(if(pair?"
-" lst_91)"
-"(let-values(((c_25)"
+" lst_264)"
+"(let-values(((c_26)"
 "(unsafe-car"
-" lst_91))"
-"((rest_43)"
+" lst_264))"
+"((rest_146)"
 "(unsafe-cdr"
-" lst_91)))"
+" lst_264)))"
 "(let-values((()"
 "(let-values()"
 "(let-values((()"
@@ -34653,50 +34114,47 @@ static const char *startup_source =
 "(begin"
 "(let-values()"
 "(let-values(((c12_0)"
-" c_25)"
+" c_26)"
 "((ns13_0)"
 " ns_61)"
 "((declare-name14_0)"
 " declare-name_0))"
 "(eval-module8.1"
 " ns13_0"
-" #t"
 " declare-name14_0"
 " #t"
-" #f"
-" #f"
 " c12_0)))"
 "(values)))))"
 "(values)))))"
 "(if(not"
 " #f)"
-"(for-loop_235"
-" rest_43)"
+"(for-loop_15"
+" rest_146)"
 "(values))))"
 "(values))))))"
-" for-loop_235)"
-" lst_20)))"
+" for-loop_15)"
+" lst_19)))"
 "(void))"
 "(begin"
-"(let-values(((lst_92) names_0))"
+"(let-values(((lst_265) names_0))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
 "(#%variable-reference))"
 "(void)"
 "(let-values()"
-"(check-list lst_92)))"
-"((letrec-values(((for-loop_26)"
-"(lambda(lst_269)"
+"(check-list lst_265)))"
+"((letrec-values(((for-loop_236)"
+"(lambda(lst_172)"
 "(begin"
 " 'for-loop"
 "(if(pair?"
-" lst_269)"
-"(let-values(((name_49)"
+" lst_172)"
+"(let-values(((name_48)"
 "(unsafe-car"
-" lst_269))"
-"((rest_142)"
+" lst_172))"
+"((rest_92)"
 "(unsafe-cdr"
-" lst_269)))"
+" lst_172)))"
 "(let-values((()"
 "(let-values()"
 "(let-values((()"
@@ -34706,7 +34164,7 @@ static const char *startup_source =
 "(let-values(((sm-cd_0)"
 "(hash-ref"
 " dh_0"
-" name_49"
+" name_48"
 " #f)))"
 "(begin"
 "(if sm-cd_0"
@@ -34714,7 +34172,7 @@ static const char *startup_source =
 "(let-values()"
 "(error"
 "                                                                                                                                                             \"missing submodule declaration:\""
-" name_49)))"
+" name_48)))"
 "(let-values(((sm-cd15_0)"
 " sm-cd_0)"
 "((ns16_0)"
@@ -34723,22 +34181,19 @@ static const char *startup_source =
 " declare-name_0))"
 "(eval-module8.1"
 " ns16_0"
-" #t"
 " declare-name17_0"
 " #t"
-" #f"
-" #f"
 " sm-cd15_0)))))"
 "(values)))))"
 "(values)))))"
 "(if(not"
 " #f)"
-"(for-loop_26"
-" rest_142)"
+"(for-loop_236"
+" rest_92)"
 "(values))))"
 "(values))))))"
-" for-loop_26)"
-" lst_92)))"
+" for-loop_236)"
+" lst_265)))"
 "(void)))))"
 " void)))"
 "(let-values(((declare-this-module_0)"
@@ -34762,9 +34217,9 @@ static const char *startup_source =
 " max-phase_2)"
 "((cross-phase-persistent?29_0)"
 " cross-phase-persistent?_1)"
-"((temp30_1)"
+"((temp30_2)"
 "(current-module-declare-as-predefined))"
-"((temp31_2)"
+"((temp31_1)"
 "(append"
 " pre-submodule-names_0"
 " post-submodule-names_0))"
@@ -34774,7 +34229,7 @@ static const char *startup_source =
 "(lambda()"
 "(get-all-variables"
 " phases-h_0)))"
-"((temp34_1)"
+"((temp34_2)"
 "(lambda(phase-level_18"
 " ns_63"
 " insp_12)"
@@ -34789,7 +34244,7 @@ static const char *startup_source =
 " #f)"
 " original-self_1"
 " insp_12"
-" extra-inspector_6"
+" extra-inspector_7"
 "(hash-ref"
 " phase-to-link-extra-inspectorsss_1"
 " phase-level_18"
@@ -34799,10 +34254,10 @@ static const char *startup_source =
 "(force-syntax-deserialize"
 " syntax-literals-data-instance_0"
 " bulk-binding-registry_13)))"
-"((temp36_2)"
+"((temp36_1)"
 "(lambda(data-box_2"
 " ns_64"
-" phase-shift_16"
+" phase-shift_15"
 " self_21"
 " bulk-binding-registry_14"
 " insp_13)"
@@ -34817,7 +34272,7 @@ static const char *startup_source =
 " syntax-literals-linklet_0"
 " data-instance_0"
 " syntax-literals-data-instance_0"
-" phase-shift_16"
+" phase-shift_15"
 " original-self_1"
 " self_21"
 " bulk-binding-registry_14"
@@ -34826,7 +34281,7 @@ static const char *startup_source =
 "((temp37_0)"
 "(lambda(data-box_3"
 " ns_65"
-" phase-shift_17"
+" phase-shift_16"
 " phase-level_19"
 " self_22"
 " bulk-binding-registry_15"
@@ -34851,7 +34306,7 @@ static const char *startup_source =
 " import-instances_0)"
 "(let-values(((mis_1"
 " is_0)"
-"(let-values(((lst_270)"
+"(let-values(((lst_183)"
 " module-uses_0))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
@@ -34859,21 +34314,21 @@ static const char *startup_source =
 "(void)"
 "(let-values()"
 "(check-list"
-" lst_270)))"
-"((letrec-values(((for-loop_236)"
+" lst_183)))"
+"((letrec-values(((for-loop_3)"
 "(lambda(mis_2"
 " is_1"
-" lst_271)"
+" lst_179)"
 "(begin"
 " 'for-loop"
 "(if(pair?"
-" lst_271)"
+" lst_179)"
 "(let-values(((mu_8)"
 "(unsafe-car"
-" lst_271))"
-"((rest_143)"
+" lst_179))"
+"((rest_97)"
 "(unsafe-cdr"
-" lst_271)))"
+" lst_179)))"
 "(let-values(((mis_3"
 " is_2)"
 "(let-values(((mis_4)"
@@ -34900,13 +34355,11 @@ static const char *startup_source =
 " phase-level_19"
 "(module-use-phase"
 " mu_8))"
-" phase-shift_17)))"
-"(namespace-module-use->module+linklet-instances146.1"
+" phase-shift_16)))"
+"(namespace-module-use->module+linklet-instances144.1"
 " temp51_1"
 " original-self49_0"
-" #t"
 " self50_0"
-" #t"
 " ns47_1"
 " mu48_0)))))"
 "(values"
@@ -34921,20 +34374,20 @@ static const char *startup_source =
 " is_4)))))"
 "(if(not"
 " #f)"
-"(for-loop_236"
+"(for-loop_3"
 " mis_3"
 " is_2"
-" rest_143)"
+" rest_97)"
 "(values"
 " mis_3"
 " is_2))))"
 "(values"
 " mis_2"
 " is_1))))))"
-" for-loop_236)"
+" for-loop_3)"
 " null"
 " null"
-" lst_270)))))"
+" lst_183)))))"
 "(values"
 "(reverse$1"
 " mis_1)"
@@ -34944,7 +34397,7 @@ static const char *startup_source =
 "(begin"
 "(let-values(((phase-linklet38_0)"
 " phase-linklet_0)"
-"((temp39_2)"
+"((temp39_3)"
 " 2)"
 "((module-uses40_0)"
 " module-uses_0)"
@@ -34953,33 +34406,33 @@ static const char *startup_source =
 "((insp42_0)"
 " insp_14)"
 "((extra-inspector43_0)"
-" extra-inspector_6)"
-"((temp44_0)"
+" extra-inspector_7)"
+"((temp44_1)"
 "(hash-ref"
 " phase-to-link-extra-inspectorsss_1"
 " phase-level_19"
 " #f)))"
 "(check-require-access9.1"
-" temp39_2"
+" temp39_3"
 " phase-linklet38_0"
 " module-uses40_0"
 " import-module-instances41_0"
 " insp42_0"
 " extra-inspector43_0"
-" temp44_0))"
+" temp44_1))"
 "(values))))"
 "(let-values(((module-body-instance-instance_0)"
-"(let-values(((temp52_2)"
-"(lambda(name_50"
-" val_61)"
+"(let-values(((temp52_0)"
+"(lambda(name_49"
+" val_58)"
 "(namespace-set-transformer!"
 " ns_65"
 "(sub1"
 " phase-level_19)"
-" name_50"
-" val_61))))"
+" name_49"
+" val_58))))"
 "(make-module-body-instance-instance18.1"
-" temp52_2))))"
+" temp52_0))))"
 "(let-values(((instantiate-body_0)"
 "(lambda()"
 "(begin"
@@ -34997,7 +34450,7 @@ static const char *startup_source =
 " phase-level_19)"
 "(let-values()"
 "(if(zero-phase?"
-" phase-shift_17)"
+" phase-shift_16)"
 "(let-values()"
 "(instantiate-body_0))"
 "(let-values()"
@@ -35016,7 +34469,7 @@ static const char *startup_source =
 "(namespace->namespace-at-phase"
 " ns_65"
 "(phase+"
-" phase-shift_17"
+" phase-shift_16"
 "(sub1"
 " phase-level_19)))))"
 "(with-continuation-mark"
@@ -35036,9 +34489,6 @@ static const char *startup_source =
 " #f"
 " #f"
 " #f"
-" #f"
-" #f"
-" #f"
 " ns-153_0)))))"
 " 1/current-namespace"
 " ns_65"
@@ -35049,38 +34499,23 @@ static const char *startup_source =
 "(void))))))))"
 "(make-module39.1"
 " cross-phase-persistent?29_0"
-" #t"
 " temp35_0"
-" #t"
 " temp33_0"
-" #t"
 " temp37_0"
 " language-info26_0"
-" #t"
 " max-phase28_0"
-" #t"
 " min-phase27_0"
-" #t"
-" #f"
-" #f"
-" temp34_1"
-" #t"
-" temp30_1"
-" #t"
-" temp36_2"
-" #t"
 " #f"
+" temp34_2"
+" temp30_2"
+" temp36_1"
 " #f"
 " provides25_0"
 " requires24_0"
-" #t"
 " original-self23_0"
 " temp22_3"
-" #t"
-" temp31_2"
-" #t"
-" supermodule-name32_0"
-" #t))))"
+" temp31_1"
+" supermodule-name32_0))))"
 "(let-values(((declare-name_1)"
 "(substitute-module-declare-name"
 " default-name_1)))"
@@ -35101,7 +34536,6 @@ static const char *startup_source =
 " with-submodules?_1))"
 "(declare-module!58.1"
 " with-submodules?21_0"
-" #t"
 " ns18_0"
 " m19_0"
 " declare-name20_0))"
@@ -35124,25 +34558,25 @@ static const char *startup_source =
 " ns_60)))))))))))))))))))))))))))))))))"
 "(define-values"
 "(struct:instance-data instance-data11.1 instance-data? instance-data-syntax-literals-instance instance-data-cache-key)"
-"(let-values(((struct:_71 make-_71 ?_71 -ref_71 -set!_71)"
+"(let-values(((struct:_72 make-_72 ?_72 -ref_72 -set!_72)"
 "(let-values()"
 "(let-values()"
 "(make-struct-type 'instance-data #f 2 0 #f null(current-inspector) #f '(0 1) #f 'instance-data)))))"
 "(values"
-" struct:_71"
-" make-_71"
-" ?_71"
-"(make-struct-field-accessor -ref_71 0 'syntax-literals-instance)"
-"(make-struct-field-accessor -ref_71 1 'cache-key))))"
+" struct:_72"
+" make-_72"
+" ?_72"
+"(make-struct-field-accessor -ref_72 0 'syntax-literals-instance)"
+"(make-struct-field-accessor -ref_72 1 'cache-key))))"
 "(define-values"
 "(init-instance-data!)"
 "(lambda(data-box_4"
 " cache-key_1"
-" ns_15"
+" ns_66"
 " syntax-literals-linklet_1"
 " data-instance_1"
 " syntax-literals-data-instance_1"
-" phase-shift_18"
+" phase-shift_17"
 " original-self_2"
 " self_23"
 " bulk-binding-registry_16"
@@ -35161,13 +34595,13 @@ static const char *startup_source =
 "(void))"
 "(values))))"
 "(let-values(((inst_1)"
-"(let-values(((ns55_1) ns_15)"
-"((phase-shift56_1) phase-shift_18)"
+"(let-values(((ns55_1) ns_66)"
+"((phase-shift56_1) phase-shift_17)"
 "((self57_0) self_23)"
 "((insp58_0) insp_15)"
 "((bulk-binding-registry59_0) bulk-binding-registry_16)"
 "((temp60_1)"
-"                                    (lambda (name_51 val_62) (error \"shouldn't get here for the root-ctx linklet\"))))"
+"                                    (lambda (name_50 val_59) (error \"shouldn't get here for the root-ctx linklet\"))))"
 "(make-instance-instance13.1"
 " bulk-binding-registry59_0"
 " insp58_0"
@@ -35190,18 +34624,18 @@ static const char *startup_source =
 "(if(eq? get-encoded-root-expand-ctx_0 'empty)"
 "(let-values()"
 "(namespace-set-root-expand-ctx!"
-" ns_15"
+" ns_66"
 "(delay"
 "(lambda()"
 "(begin"
 " '...nder/eval/module.rkt:281:39"
 "(shift-to-inside-root-context"
 "(let-values(((self61_0) self_23))"
-"(make-root-expand-context13.1 #f #f #f #f #f #f #f #f self61_0))))))))"
+"(make-root-expand-context13.1 #f null unsafe-undefined unsafe-undefined self61_0))))))))"
 "(if(procedure? get-encoded-root-expand-ctx_0)"
 "(let-values()"
 "(namespace-set-root-expand-ctx!"
-" ns_15"
+" ns_66"
 "(delay"
 "(lambda()"
 "(begin"
@@ -35210,15 +34644,15 @@ static const char *startup_source =
 "(root-expand-context-decode-for-module(get-encoded-root-expand-ctx_0) self_23)))))))"
 "(let-values()"
 "(namespace-set-root-expand-ctx!"
-" ns_15"
+" ns_66"
 "(delay"
 "(lambda()"
 "(begin"
 " '...nder/eval/module.rkt:292:39"
 "(shift-to-inside-root-context"
 "(create-root-expand-context-from-module_1"
-" ns_15"
-" phase-shift_18"
+" ns_66"
+" phase-shift_17"
 " original-self_2"
 " self_23)))))))))))))))))"
 "(define-values"
@@ -35230,9 +34664,9 @@ static const char *startup_source =
 "(if deserialize-syntax_0(let-values()(deserialize-syntax_0 bulk-binding-registry_17))(void))))))"
 "(define-values"
 "(compiled-module->dh+h)"
-"(lambda(c_26)"
+"(lambda(c_27)"
 "(begin"
-"(let-values(((ld/h_0)(if(compiled-in-memory? c_26)(compiled-in-memory-linklet-directory c_26) c_26)))"
+"(let-values(((ld/h_0)(if(compiled-in-memory? c_27)(compiled-in-memory-linklet-directory c_27) c_27)))"
 "(let-values(((dh_1)"
 "(if(1/linklet-directory? ld/h_0)"
 "(let-values()(1/linklet-directory->hash ld/h_0))"
@@ -35240,36 +34674,36 @@ static const char *startup_source =
 "(let-values(((h_2)(1/linklet-bundle->hash(if dh_1(hash-ref dh_1 #f) ld/h_0))))(values dh_1 h_2)))))))"
 "(define-values"
 "(compiled-module->h)"
-"(lambda(c_27)(begin(let-values(((dh_2 h_3)(compiled-module->dh+h c_27))) h_3))))"
+"(lambda(c_28)(begin(let-values(((dh_2 h_3)(compiled-module->dh+h c_28))) h_3))))"
 "(define-values"
 "(compiled-module->dh+h+data-instance+declaration-instance)"
-"(lambda(c_28)"
+"(lambda(c_29)"
 "(begin"
-"(let-values(((dh_3 h_4)(compiled-module->dh+h c_28)))"
+"(let-values(((dh_3 h_4)(compiled-module->dh+h c_29)))"
 "(let-values(((data-instance_2)"
-"(if(compiled-in-memory? c_28)"
-"(make-data-instance-from-compiled-in-memory c_28)"
+"(if(compiled-in-memory? c_29)"
+"(make-data-instance-from-compiled-in-memory c_29)"
 "(1/instantiate-linklet(1/eval-linklet(hash-ref h_4 'data))(list deserialize-instance)))))"
 "(let-values(((declaration-instance_1)"
-"(if(if(compiled-in-memory? c_28)(compiled-in-memory-original-self c_28) #f)"
-"(make-declaration-instance-from-compiled-in-memory c_28)"
+"(if(if(compiled-in-memory? c_29)(compiled-in-memory-original-self c_29) #f)"
+"(make-declaration-instance-from-compiled-in-memory c_29)"
 "(1/instantiate-linklet"
 "(1/eval-linklet(hash-ref h_4 'decl))"
 "(list deserialize-instance data-instance_2)))))"
 "(values dh_3 h_4 data-instance_2 declaration-instance_1)))))))"
 "(define-values"
 "(compiled-module->declaration-instance)"
-"(lambda(c_29)"
+"(lambda(c_30)"
 "(begin"
 "(let-values(((dh_4 h_5 data-instance_3 declaration-instance_2)"
-"(compiled-module->dh+h+data-instance+declaration-instance c_29)))"
+"(compiled-module->dh+h+data-instance+declaration-instance c_30)))"
 " declaration-instance_2))))"
 "(define-values"
 "(compiled-module->h+declaration-instance)"
-"(lambda(c_30)"
+"(lambda(c_31)"
 "(begin"
 "(let-values(((dh_5 h_6 data-instance_4 declaration-instance_3)"
-"(compiled-module->dh+h+data-instance+declaration-instance c_30)))"
+"(compiled-module->dh+h+data-instance+declaration-instance c_31)))"
 "(values h_6 declaration-instance_3)))))"
 "(define-values"
 "(make-data-instance-from-compiled-in-memory)"
@@ -35309,67 +34743,65 @@ static const char *startup_source =
 " #f"
 " 'constant"
 " get-syntax-literal!-id"
-"(lambda(pos_98) #f)"
+"(lambda(pos_100) #f)"
 " 'get-encoded-root-expand-ctx"
 " 'empty))"
 "(define-values"
 "(get-all-variables)"
 "(lambda(phases-h_1)"
 "(begin"
-"(let-values(((ht_122) phases-h_1))"
+"(let-values(((ht_118) phases-h_1))"
 "(begin"
-"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-in-hash ht_122)))"
+"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-in-hash ht_118)))"
 "((letrec-values(((for-loop_237)"
-"(lambda(table_192 i_149)"
+"(lambda(table_183 i_149)"
 "(begin"
 " 'for-loop"
 "(if i_149"
-"(let-values(((phase_91 linklet_5)(hash-iterate-key+value ht_122 i_149)))"
-"(let-values(((table_193)"
-"(let-values(((table_194) table_192))"
-"(let-values(((table_145)"
+"(let-values(((phase_88 linklet_5)(hash-iterate-key+value ht_118 i_149)))"
+"(let-values(((table_33)"
+"(let-values(((table_184) table_183))"
+"(let-values(((table_185)"
 "(let-values()"
-"(let-values(((key_69 val_63)"
+"(let-values(((key_69 val_60)"
 "(let-values()"
 "(values"
-" phase_91"
+" phase_88"
 "(1/linklet-export-variables"
 " linklet_5)))))"
-"(hash-set table_194 key_69 val_63)))))"
-"(values table_145)))))"
-"(if(not #f)"
-"(for-loop_237 table_193(hash-iterate-next ht_122 i_149))"
-" table_193)))"
-" table_192)))))"
+"(hash-set table_184 key_69 val_60)))))"
+"(values table_185)))))"
+"(if(not #f)(for-loop_237 table_33(hash-iterate-next ht_118 i_149)) table_33)))"
+" table_183)))))"
 " for-loop_237)"
 " '#hash()"
-"(hash-iterate-first ht_122)))))))"
+"(hash-iterate-first ht_118)))))))"
 "(define-values"
 "(provides->api-provides)"
 "(lambda(provides_9 self_24)"
 "(begin"
 "(let-values(((extract_0)"
-"(lambda(ok?_25)"
+"(lambda(ok?_26)"
 "(begin"
 " 'extract"
 "(let-values(((result-l_0)"
 "(reverse$1"
-"(let-values(((ht_123) provides_9))"
+"(let-values(((ht_119) provides_9))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
-"(let-values()(check-in-hash ht_123)))"
-"((letrec-values(((for-loop_103)"
+"(let-values()(check-in-hash ht_119)))"
+"((letrec-values(((for-loop_100)"
 "(lambda(fold-var_59 i_150)"
 "(begin"
 " 'for-loop"
 "(if i_150"
-"(let-values(((phase_92 at-phase_11)"
-"(hash-iterate-key+value ht_123 i_150)))"
+"(let-values(((phase_89 at-phase_11)"
+"(hash-iterate-key+value ht_119 i_150)))"
 "(let-values(((fold-var_60)"
-"(let-values(((l_67)"
+"(let-values(((l_65)"
 "(reverse$1"
-"(let-values(((ht_116)"
+"(let-values(((ht_120)"
 " at-phase_11))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
@@ -35377,96 +34809,96 @@ static const char *startup_source =
 "(void)"
 "(let-values()"
 "(check-in-hash"
-" ht_116)))"
+" ht_120)))"
 "((letrec-values(((for-loop_238)"
-"(lambda(fold-var_220"
+"(lambda(fold-var_214"
 " i_151)"
 "(begin"
 " 'for-loop"
 "(if i_151"
-"(let-values(((sym_62"
+"(let-values(((sym_65"
 " b/p_1)"
 "(hash-iterate-key+value"
-" ht_116"
+" ht_120"
 " i_151)))"
-"(let-values(((fold-var_221)"
-"(let-values(((fold-var_222)"
-" fold-var_220))"
-"(if(ok?_25"
+"(let-values(((fold-var_215)"
+"(let-values(((fold-var_216)"
+" fold-var_214))"
+"(if(ok?_26"
 " b/p_1)"
-"(let-values(((fold-var_223)"
-" fold-var_222))"
-"(let-values(((fold-var_224)"
+"(let-values(((fold-var_217)"
+" fold-var_216))"
+"(let-values(((fold-var_218)"
 "(let-values()"
 "(cons"
 "(let-values()"
-"(let-values(((b_74)"
+"(let-values(((b_73)"
 "(provided-as-binding"
 " b/p_1)))"
 "(list"
-" sym_62"
+" sym_65"
 "(if(eq?"
 " self_24"
 "(module-binding-module"
-" b_74))"
+" b_73))"
 "(let-values()"
 " null)"
 "(let-values()"
 "(reverse$1"
-"(let-values(((lst_85)"
+"(let-values(((lst_87)"
 "(cons"
-" b_74"
+" b_73"
 "(module-binding-extra-nominal-bindings"
-" b_74))))"
+" b_73))))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
 "(#%variable-reference))"
 "(void)"
 "(let-values()"
 "(check-list"
-" lst_85)))"
+" lst_87)))"
 "((letrec-values(((for-loop_239)"
-"(lambda(fold-var_225"
-" lst_272)"
+"(lambda(fold-var_219"
+" lst_266)"
 "(begin"
 " 'for-loop"
 "(if(pair?"
-" lst_272)"
-"(let-values(((b_75)"
+" lst_266)"
+"(let-values(((b_74)"
 "(unsafe-car"
-" lst_272))"
-"((rest_144)"
+" lst_266))"
+"((rest_147)"
 "(unsafe-cdr"
-" lst_272)))"
+" lst_266)))"
 "(let-values(((fold-var_29)"
 "(let-values(((fold-var_30)"
-" fold-var_225))"
+" fold-var_219))"
 "(let-values(((fold-var_31)"
 "(let-values()"
 "(cons"
 "(let-values()"
 "(if(if(eqv?"
 "(module-binding-nominal-phase"
-" b_75)"
-" phase_92)"
+" b_74)"
+" phase_89)"
 "(eq?"
 "(module-binding-nominal-sym"
-" b_75)"
-" sym_62)"
+" b_74)"
+" sym_65)"
 " #f)"
 "(let-values()"
 "(module-binding-nominal-module"
-" b_75))"
+" b_74))"
 "(let-values()"
 "(list"
 "(module-binding-nominal-module"
-" b_75)"
+" b_74)"
 "(module-binding-phase"
-" b_75)"
+" b_74)"
 "(module-binding-nominal-sym"
-" b_75)"
+" b_74)"
 "(module-binding-nominal-phase"
-" b_75)))))"
+" b_74)))))"
 " fold-var_30))))"
 "(values"
 " fold-var_31)))))"
@@ -35474,41 +34906,41 @@ static const char *startup_source =
 " #f)"
 "(for-loop_239"
 " fold-var_29"
-" rest_144)"
+" rest_147)"
 " fold-var_29)))"
-" fold-var_225)))))"
+" fold-var_219)))))"
 " for-loop_239)"
 " null"
-" lst_85)))))))))"
-" fold-var_223))))"
+" lst_87)))))))))"
+" fold-var_217))))"
 "(values"
-" fold-var_224)))"
-" fold-var_222))))"
+" fold-var_218)))"
+" fold-var_216))))"
 "(if(not"
 " #f)"
 "(for-loop_238"
-" fold-var_221"
+" fold-var_215"
 "(hash-iterate-next"
-" ht_116"
+" ht_120"
 " i_151))"
-" fold-var_221)))"
-" fold-var_220)))))"
+" fold-var_215)))"
+" fold-var_214)))))"
 " for-loop_238)"
 " null"
 "(hash-iterate-first"
-" ht_116)))))))"
+" ht_120)))))))"
 "(begin"
 " #t"
-"((letrec-values(((for-loop_108)"
+"((letrec-values(((for-loop_105)"
 "(lambda(fold-var_69)"
 "(begin"
 " 'for-loop"
 "(let-values()"
-"(let-values(((fold-var_156)"
+"(let-values(((fold-var_220)"
 "(let-values(((fold-var_32)"
 " fold-var_69))"
 "(if(null?"
-" l_67)"
+" l_65)"
 " fold-var_32"
 "(let-values(((fold-var_33)"
 " fold-var_32))"
@@ -35517,37 +34949,35 @@ static const char *startup_source =
 "(cons"
 "(let-values()"
 "(cons"
-" phase_92"
+" phase_89"
 "(let-values(((l4_0)"
-" l_67)"
+" l_65)"
 "((symbol<?5_0)"
 " symbol<?)"
 "((car6_0)"
 " car))"
 "(sort7.1"
 " #f"
-" #f"
 " car6_0"
-" #t"
 " l4_0"
 " symbol<?5_0))))"
 " fold-var_33))))"
 "(values"
 " fold-var_34)))))))"
-" fold-var_156))))))"
-" for-loop_108)"
+" fold-var_220))))))"
+" for-loop_105)"
 " fold-var_59)))))"
 "(if(not #f)"
-"(for-loop_103"
+"(for-loop_100"
 " fold-var_60"
-"(hash-iterate-next ht_123 i_150))"
+"(hash-iterate-next ht_119 i_150))"
 " fold-var_60)))"
 " fold-var_59)))))"
-" for-loop_103)"
+" for-loop_100)"
 " null"
-"(hash-iterate-first ht_123)))))))"
+"(hash-iterate-first ht_119)))))))"
 "(let-values(((result-l1_0) result-l_0)((phase<?2_0) phase<?)((car3_0) car))"
-"(sort7.1 #f #f car3_0 #t result-l1_0 phase<?2_0)))))))"
+"(sort7.1 #f car3_0 result-l1_0 phase<?2_0)))))))"
 "(values"
 "(extract_0(lambda(b/p_2)(not(provided-as-transformer? b/p_2))))"
 "(extract_0 provided-as-transformer?))))))"
@@ -35557,24 +34987,24 @@ static const char *startup_source =
 "(begin"
 "(let-values(((result-l_1)"
 "(reverse$1"
-"(let-values(((ht_83) all-vars_0))"
+"(let-values(((ht_80) all-vars_0))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
-"(let-values()(check-in-hash ht_83)))"
-"((letrec-values(((for-loop_85)"
-"(lambda(fold-var_169 i_94)"
+"(let-values()(check-in-hash ht_80)))"
+"((letrec-values(((for-loop_114)"
+"(lambda(fold-var_164 i_95)"
 "(begin"
 " 'for-loop"
-"(if i_94"
-"(let-values(((phase_93 vars_0)(hash-iterate-key+value ht_83 i_94)))"
-"(let-values(((fold-var_171)"
-"(let-values(((fold-var_226) fold-var_169))"
-"(let-values(((l_68)"
+"(if i_95"
+"(let-values(((phase_90 vars_0)(hash-iterate-key+value ht_80 i_95)))"
+"(let-values(((fold-var_166)"
+"(let-values(((fold-var_221) fold-var_164))"
+"(let-values(((l_66)"
 "(let-values(((syms_1)"
 "(hash-ref"
 " provides_10"
-" phase_93"
+" phase_90"
 " '#hasheq())))"
 "(reverse$1"
 "(let-values(((lst_18) vars_0))"
@@ -35584,59 +35014,59 @@ static const char *startup_source =
 "(void)"
 "(let-values()"
 "(check-list lst_18)))"
-"((letrec-values(((for-loop_240)"
-"(lambda(fold-var_173"
-" lst_273)"
+"((letrec-values(((for-loop_216)"
+"(lambda(fold-var_168"
+" lst_267)"
 "(begin"
 " 'for-loop"
 "(if(pair?"
-" lst_273)"
+" lst_267)"
 "(let-values(((var-sym_5)"
 "(unsafe-car"
-" lst_273))"
-"((rest_145)"
+" lst_267))"
+"((rest_148)"
 "(unsafe-cdr"
-" lst_273)))"
+" lst_267)))"
 "(let-values(((fold-var_72)"
-"(let-values(((fold-var_217)"
-" fold-var_173))"
+"(let-values(((fold-var_222)"
+" fold-var_168))"
 "(if(hash-ref"
 " syms_1"
 " var-sym_5"
 " #f)"
-" fold-var_217"
-"(let-values(((fold-var_218)"
-" fold-var_217))"
-"(let-values(((fold-var_219)"
+" fold-var_222"
+"(let-values(((fold-var_223)"
+" fold-var_222))"
+"(let-values(((fold-var_224)"
 "(let-values()"
 "(cons"
 "(let-values()"
 " var-sym_5)"
-" fold-var_218))))"
+" fold-var_223))))"
 "(values"
-" fold-var_219)))))))"
+" fold-var_224)))))))"
 "(if(not"
 " #f)"
-"(for-loop_240"
+"(for-loop_216"
 " fold-var_72"
-" rest_145)"
+" rest_148)"
 " fold-var_72)))"
-" fold-var_173)))))"
-" for-loop_240)"
+" fold-var_168)))))"
+" for-loop_216)"
 " null"
 " lst_18)))))))"
 "(begin"
 " #t"
-"((letrec-values(((for-loop_110)"
+"((letrec-values(((for-loop_107)"
 "(lambda(fold-var_73)"
 "(begin"
 " 'for-loop"
 "(let-values()"
-"(let-values(((fold-var_174)"
+"(let-values(((fold-var_169)"
 "(let-values(((fold-var_18)"
 " fold-var_73))"
 "(if(null?"
-" l_68)"
+" l_66)"
 " fold-var_18"
 "(let-values(((fold-var_19)"
 " fold-var_18))"
@@ -35645,47 +35075,45 @@ static const char *startup_source =
 "(cons"
 "(let-values()"
 "(cons"
-" phase_93"
+" phase_90"
 "(let-values(((l10_0)"
-" l_68)"
+" l_66)"
 "((symbol<?11_0)"
 " symbol<?))"
 "(sort7.1"
 " #f"
 " #f"
-" #f"
-" #f"
 " l10_0"
 " symbol<?11_0))))"
 " fold-var_19))))"
 "(values"
 " fold-var_20)))))))"
-" fold-var_174))))))"
-" for-loop_110)"
-" fold-var_226))))))"
+" fold-var_169))))))"
+" for-loop_107)"
+" fold-var_221))))))"
 "(if(not #f)"
-"(for-loop_85 fold-var_171(hash-iterate-next ht_83 i_94))"
-" fold-var_171)))"
-" fold-var_169)))))"
-" for-loop_85)"
+"(for-loop_114 fold-var_166(hash-iterate-next ht_80 i_95))"
+" fold-var_166)))"
+" fold-var_164)))))"
+" for-loop_114)"
 " null"
-"(hash-iterate-first ht_83)))))))"
+"(hash-iterate-first ht_80)))))))"
 "(let-values(((result-l7_0) result-l_1)((phase<?8_0) phase<?)((car9_0) car))"
-"(sort7.1 #f #f car9_0 #t result-l7_0 phase<?8_0))))))"
+"(sort7.1 #f car9_0 result-l7_0 phase<?8_0))))))"
 "(define-values"
 "(compiled->linklet-directory-or-bundle)"
-"(lambda(c_31)(begin(if(compiled-in-memory? c_31)(compiled-in-memory-linklet-directory c_31) c_31))))"
+"(lambda(c_32)(begin(if(compiled-in-memory? c_32)(compiled-in-memory-linklet-directory c_32) c_32))))"
 "(define-values"
 "(module-compiled-current-name)"
-"(lambda(c_32)"
+"(lambda(c_33)"
 "(begin"
-"(let-values(((ld_1)(compiled->linklet-directory-or-bundle c_32)))"
+"(let-values(((ld_1)(compiled->linklet-directory-or-bundle c_33)))"
 "(let-values(((b_15)(if(1/linklet-bundle? ld_1) ld_1(hash-ref(1/linklet-directory->hash ld_1) #f))))"
 "(hash-ref(1/linklet-bundle->hash b_15) 'name))))))"
 "(define-values"
 "(module-compiled-immediate-name)"
-"(lambda(c_33)"
-"(begin(let-values(((n_28)(module-compiled-current-name c_33)))(if(pair? n_28)(car(reverse$1 n_28)) n_28)))))"
+"(lambda(c_25)"
+"(begin(let-values(((n_28)(module-compiled-current-name c_25)))(if(pair? n_28)(car(reverse$1 n_28)) n_28)))))"
 "(define-values"
 "(change-module-name)"
 "(lambda(c_34 name_3 prefix_4)"
@@ -35693,12 +35121,12 @@ static const char *startup_source =
 "(let-values(((full-name_0)(if(null? prefix_4) name_3(append prefix_4(list name_3)))))"
 "(let-values(((next-prefix_0)(if(null? prefix_4)(list name_3) full-name_0)))"
 "(let-values(((recur_0)"
-"(lambda(sub-c_0 name_52)"
+"(lambda(sub-c_0 name_51)"
 "(begin"
 " 'recur"
-"(if(equal?(module-compiled-current-name sub-c_0)(append next-prefix_0(list name_52)))"
+"(if(equal?(module-compiled-current-name sub-c_0)(append next-prefix_0(list name_51)))"
 " sub-c_0"
-"(change-module-name sub-c_0 name_52 next-prefix_0))))))"
+"(change-module-name sub-c_0 name_51 next-prefix_0))))))"
 "(if(compiled-in-memory? c_34)"
 "(let-values()"
 "(let-values(((change-submodule-name_0)"
@@ -35726,7 +35154,7 @@ static const char *startup_source =
 "((temp12_1)(symbol? full-name_0))"
 "((temp13_1)"
 "(append pre-compiled-in-memorys_0 post-compiled-in-memorys_0)))"
-"(rebuild-linklet-directory5.1 temp12_1 #t temp11_3 temp13_1))))"
+"(rebuild-linklet-directory5.1 temp12_1 temp11_3 temp13_1))))"
 "(compiled-in-memory1.1"
 " linklet-directory10_0"
 "(compiled-in-memory-original-self the-struct_6)"
@@ -35745,111 +35173,111 @@ static const char *startup_source =
 "(if(1/linklet-directory? c_34)"
 "(let-values()"
 "(1/hash->linklet-directory"
-"(let-values(((ht_124)(1/linklet-directory->hash c_34)))"
+"(let-values(((ht_121)(1/linklet-directory->hash c_34)))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
-"(let-values()(check-in-hash ht_124)))"
-"((letrec-values(((for-loop_241)"
-"(lambda(table_195 i_152)"
+"(let-values()(check-in-hash ht_121)))"
+"((letrec-values(((for-loop_240)"
+"(lambda(table_186 i_152)"
 "(begin"
 " 'for-loop"
 "(if i_152"
-"(let-values(((key_70 val_64)(hash-iterate-key+value ht_124 i_152)))"
-"(let-values(((table_196)"
-"(let-values(((table_116) table_195))"
-"(let-values(((table_197)"
+"(let-values(((key_70 val_61)(hash-iterate-key+value ht_121 i_152)))"
+"(let-values(((table_187)"
+"(let-values(((table_116) table_186))"
+"(let-values(((table_188)"
 "(let-values()"
-"(let-values(((key_71 val_65)"
+"(let-values(((key_71 val_62)"
 "(let-values()"
 "(values"
 " key_70"
 "(if(not key_70)"
 "(update-one-name"
-" val_64"
+" val_61"
 " full-name_0)"
 "(recur_0"
-" val_64"
+" val_61"
 " key_70))))))"
 "(hash-set"
 " table_116"
 " key_71"
-" val_65)))))"
-"(values table_197)))))"
+" val_62)))))"
+"(values table_188)))))"
 "(if(not #f)"
-"(for-loop_241 table_196(hash-iterate-next ht_124 i_152))"
-" table_196)))"
-" table_195)))))"
-" for-loop_241)"
+"(for-loop_240 table_187(hash-iterate-next ht_121 i_152))"
+" table_187)))"
+" table_186)))))"
+" for-loop_240)"
 " '#hasheq()"
-"(hash-iterate-first ht_124))))))"
+"(hash-iterate-first ht_121))))))"
 "(let-values()(update-one-name c_34 full-name_0))))))))))"
 "(define-values"
 "(update-one-name)"
-"(lambda(lb_0 name_53)(begin(1/hash->linklet-bundle(hash-set(1/linklet-bundle->hash lb_0) 'name name_53)))))"
+"(lambda(lb_0 name_52)(begin(1/hash->linklet-bundle(hash-set(1/linklet-bundle->hash lb_0) 'name name_52)))))"
 "(define-values"
 "(rebuild-linklet-directory5.1)"
-"(lambda(bundle-ok?1_0 bundle-ok?2_0 main3_0 submods4_0)"
+"(lambda(bundle-ok?1_0 main3_0 submods4_0)"
 "(begin"
 " 'rebuild-linklet-directory5"
 "(let-values(((main_0) main3_0))"
 "(let-values(((submods_0) submods4_0))"
-"(let-values(((bundle-ok?_0)(if bundle-ok?2_0 bundle-ok?1_0 #f)))"
+"(let-values(((bundle-ok?_0) bundle-ok?1_0))"
 "(let-values()"
 "(if(if(null? submods_0) bundle-ok?_0 #f)"
 " main_0"
 "(1/hash->linklet-directory"
 "(hash-set"
-"(let-values(((lst_173) submods_0))"
+"(let-values(((lst_91) submods_0))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
-"(let-values()(check-list lst_173)))"
-"((letrec-values(((for-loop_242)"
-"(lambda(ht_125 lst_274)"
+"(let-values()(check-list lst_91)))"
+"((letrec-values(((for-loop_49)"
+"(lambda(ht_122 lst_82)"
 "(begin"
 " 'for-loop"
-"(if(pair? lst_274)"
-"(let-values(((submod_1)(unsafe-car lst_274))"
-"((rest_146)(unsafe-cdr lst_274)))"
-"(let-values(((ht_126)"
-"(let-values(((ht_127) ht_125))"
-"(let-values(((ht_117)"
+"(if(pair? lst_82)"
+"(let-values(((submod_1)(unsafe-car lst_82))"
+"((rest_37)(unsafe-cdr lst_82)))"
+"(let-values(((ht_112)"
+"(let-values(((ht_113) ht_122))"
+"(let-values(((ht_114)"
 "(let-values()"
-"(let-values(((name_54)"
+"(let-values(((name_53)"
 "(module-compiled-immediate-name"
 " submod_1)))"
-"(if(hash-ref ht_127 name_54 #f)"
+"(if(hash-ref ht_113 name_53 #f)"
 "(let-values()"
 "(raise-arguments-error"
 " 'module-compiled-submodules"
 "                                                                                       \"change would result in duplicate submodule name\""
 "                                                                                       \"name\""
-" name_54))"
+" name_53))"
 "(let-values()"
 "(hash-set"
-" ht_127"
-" name_54"
+" ht_113"
+" name_53"
 "(compiled->linklet-directory-or-bundle"
 " submod_1))))))))"
-"(values ht_117)))))"
-"(if(not #f)(for-loop_242 ht_126 rest_146) ht_126)))"
-" ht_125)))))"
-" for-loop_242)"
+"(values ht_114)))))"
+"(if(not #f)(for-loop_49 ht_112 rest_37) ht_112)))"
+" ht_122)))))"
+" for-loop_49)"
 " '#hasheq()"
-" lst_173)))"
+" lst_91)))"
 " #f"
 " main_0))))))))))"
 "(define-values"
 "(1/compiled-expression?)"
-"(lambda(c_31)"
+"(lambda(c_32)"
 "(begin"
 " 'compiled-expression?"
-"(let-values(((or-part_0)(compiled-in-memory? c_31)))"
+"(let-values(((or-part_0)(compiled-in-memory? c_32)))"
 "(if or-part_0"
 " or-part_0"
-"(let-values(((or-part_1)(1/linklet-directory? c_31)))"
-"(if or-part_1 or-part_1(1/linklet-bundle? c_31))))))))"
+"(let-values(((or-part_1)(1/linklet-directory? c_32)))"
+"(if or-part_1 or-part_1(1/linklet-bundle? c_32))))))))"
 "(define-values"
 "(1/compiled-module-expression?)"
 "(lambda(c_35)"
@@ -35858,8 +35286,8 @@ static const char *startup_source =
 "(let-values(((ld_3)(compiled->linklet-directory-or-bundle c_35)))"
 "(let-values(((or-part_26)"
 "(if(1/linklet-directory? ld_3)"
-"(if(let-values(((b_76)(hash-ref(1/linklet-directory->hash ld_3) #f #f)))"
-"(if b_76(hash-ref(1/linklet-bundle->hash b_76) 'decl #f) #f))"
+"(if(let-values(((b_75)(hash-ref(1/linklet-directory->hash ld_3) #f #f)))"
+"(if b_75(hash-ref(1/linklet-bundle->hash b_75) 'decl #f) #f))"
 " #t"
 " #f)"
 " #f)))"
@@ -35879,7 +35307,7 @@ static const char *startup_source =
 "(void)"
 "              (let-values () (raise-argument-error 'module-compiled-name \"compiled-module-expression?\" c_36)))"
 "(module-compiled-current-name c_36))))"
-"((c_37 name_55)"
+"((c_37 name_54)"
 "(let-values((()"
 "(begin"
 "(if(1/compiled-module-expression? c_37)"
@@ -35889,21 +35317,21 @@ static const char *startup_source =
 "(values))))"
 "(let-values((()"
 "(begin"
-"(if(let-values(((or-part_211)(symbol? name_55)))"
-"(if or-part_211"
-" or-part_211"
-"(if(pair? name_55)(if(list? name_55)(andmap2 symbol? name_55) #f) #f)))"
+"(if(let-values(((or-part_217)(symbol? name_54)))"
+"(if or-part_217"
+" or-part_217"
+"(if(pair? name_54)(if(list? name_54)(andmap2 symbol? name_54) #f) #f)))"
 "(void)"
 "(let-values()"
 "(raise-argument-error"
 " 'module-compiled-name"
 "                               \"(or/c symbol? (cons/c symbol? (non-empty-listof symbol?)))\""
-" name_55)))"
+" name_54)))"
 "(values))))"
 "(let-values(((i-name_0 prefix_5)"
-"(if(symbol? name_55)"
-"(values name_55 null)"
-"(let-values(((r_41)(reverse$1 name_55)))(values(car r_41)(reverse$1(cdr r_41)))))))"
+"(if(symbol? name_54)"
+"(values name_54 null)"
+"(let-values(((r_41)(reverse$1 name_54)))(values(car r_41)(reverse$1(cdr r_41)))))))"
 "(change-module-name c_37 i-name_0 prefix_5)))))))))"
 "(define-values"
 "(1/module-compiled-submodules)"
@@ -35925,38 +35353,38 @@ static const char *startup_source =
 "(let-values()"
 "(if(1/linklet-directory? c_13)"
 "(let-values()"
-"(let-values(((ht_128)(1/linklet-directory->hash c_13)))"
-"(let-values(((bh_0)(1/linklet-bundle->hash(hash-ref ht_128 #f))))"
+"(let-values(((ht_66)(1/linklet-directory->hash c_13)))"
+"(let-values(((bh_0)(1/linklet-bundle->hash(hash-ref ht_66 #f))))"
 "(let-values(((names_1)(hash-ref bh_0(if non-star?_0 'pre 'post) null)))"
 "(reverse$1"
-"(let-values(((lst_84) names_1))"
+"(let-values(((lst_86) names_1))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
-"(let-values()(check-list lst_84)))"
-"((letrec-values(((for-loop_107)"
-"(lambda(fold-var_67 lst_85)"
+"(let-values()(check-list lst_86)))"
+"((letrec-values(((for-loop_104)"
+"(lambda(fold-var_67 lst_87)"
 "(begin"
 " 'for-loop"
-"(if(pair? lst_85)"
-"(let-values(((name_56)(unsafe-car lst_85))"
-"((rest_40)(unsafe-cdr lst_85)))"
+"(if(pair? lst_87)"
+"(let-values(((name_55)(unsafe-car lst_87))"
+"((rest_41)(unsafe-cdr lst_87)))"
 "(let-values(((fold-var_68)"
 "(let-values(((fold-var_27) fold-var_67))"
 "(let-values(((fold-var_28)"
 "(let-values()"
 "(cons"
 "(let-values()"
-"(hash-ref ht_128 name_56))"
+"(hash-ref ht_66 name_55))"
 " fold-var_27))))"
 "(values fold-var_28)))))"
 "(if(not #f)"
-"(for-loop_107 fold-var_68 rest_40)"
+"(for-loop_104 fold-var_68 rest_41)"
 " fold-var_68)))"
 " fold-var_67)))))"
-" for-loop_107)"
+" for-loop_104)"
 " null"
-" lst_84))))))))"
+" lst_86))))))))"
 "(let-values() null)))))))"
 "((c_38 non-star?_1 submods_1)"
 "(begin"
@@ -35987,8 +35415,8 @@ static const char *startup_source =
 "(if non-star?_1(compiled-in-memory-post-compiled-in-memorys c_38) submods_1)))"
 "(let-values(((n-c_0)(normalize-to-linklet-directory c_38)))"
 "(fixup-submodule-names"
-"(let-values(((the-struct_46) n-c_0))"
-"(if(compiled-in-memory? the-struct_46)"
+"(let-values(((the-struct_47) n-c_0))"
+"(if(compiled-in-memory? the-struct_47)"
 "(let-values(((pre-compiled-in-memorys3_0) pre-compiled-in-memorys_1)"
 "((post-compiled-in-memorys4_0) post-compiled-in-memorys_1)"
 "((linklet-directory5_0)"
@@ -36003,22 +35431,22 @@ static const char *startup_source =
 "((temp7_2)(symbol?(module-compiled-current-name c_38)))"
 "((temp8_2)"
 "(append pre-compiled-in-memorys_1 post-compiled-in-memorys_1)))"
-"(rebuild-linklet-directory5.1 temp7_2 #t temp6_0 temp8_2))))"
+"(rebuild-linklet-directory5.1 temp7_2 temp6_0 temp8_2))))"
 "(compiled-in-memory1.1"
 " linklet-directory5_0"
-"(compiled-in-memory-original-self the-struct_46)"
-"(compiled-in-memory-requires the-struct_46)"
-"(compiled-in-memory-provides the-struct_46)"
-"(compiled-in-memory-phase-to-link-module-uses the-struct_46)"
-"(compiled-in-memory-compile-time-inspector the-struct_46)"
-"(compiled-in-memory-phase-to-link-extra-inspectorsss the-struct_46)"
-"(compiled-in-memory-mpis the-struct_46)"
-"(compiled-in-memory-syntax-literals the-struct_46)"
+"(compiled-in-memory-original-self the-struct_47)"
+"(compiled-in-memory-requires the-struct_47)"
+"(compiled-in-memory-provides the-struct_47)"
+"(compiled-in-memory-phase-to-link-module-uses the-struct_47)"
+"(compiled-in-memory-compile-time-inspector the-struct_47)"
+"(compiled-in-memory-phase-to-link-extra-inspectorsss the-struct_47)"
+"(compiled-in-memory-mpis the-struct_47)"
+"(compiled-in-memory-syntax-literals the-struct_47)"
 " pre-compiled-in-memorys3_0"
 " post-compiled-in-memorys4_0"
-"(compiled-in-memory-namespace-scopes the-struct_46)"
-"(compiled-in-memory-purely-functional? the-struct_46)))"
-"                           (raise-argument-error 'struct-copy \"compiled-in-memory?\" the-struct_46))))))))"
+"(compiled-in-memory-namespace-scopes the-struct_47)"
+"(compiled-in-memory-purely-functional? the-struct_47)))"
+"                           (raise-argument-error 'struct-copy \"compiled-in-memory?\" the-struct_47))))))))"
 "(let-values()"
 "(let-values(((n-c_1)(normalize-to-linklet-directory c_38)))"
 "(fixup-submodule-names"
@@ -36035,7 +35463,7 @@ static const char *startup_source =
 "(append"
 "(if non-star?_1 submods_1(1/module-compiled-submodules c_38 #t))"
 "(if non-star?_1(1/module-compiled-submodules c_38 #f) submods_1)))))"
-"(rebuild-linklet-directory5.1 #f #f temp9_3 temp10_3)))))))))))))"
+"(rebuild-linklet-directory5.1 #f temp9_3 temp10_3)))))))))))))"
 "(define-values"
 "(1/module-compiled-language-info)"
 "(lambda(c_39)"
@@ -36102,27 +35530,27 @@ static const char *startup_source =
 "                               \"compiled-module-expression?\""
 " c_15)))"
 "(values))))"
-"(let-values(((h_8 inst_4)(compiled-module->h+declaration-instance c_15)))"
+"(let-values(((h_8 inst_0)(compiled-module->h+declaration-instance c_15)))"
 "(let-values(((min-phase_3)(hash-ref h_8 'min-phase 0)))"
 "(let-values(((max-phase_3)(hash-ref h_8 'max-phase 0)))"
 "(variables->api-nonprovides"
-"(1/instance-variable-value inst_4 'provides)"
+"(1/instance-variable-value inst_0 'provides)"
 "(let-values(((start_38) min-phase_3)((end_27)(add1 max-phase_3))((inc_21) 1))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
 "(let-values()(check-range start_38 end_27 inc_21)))"
-"((letrec-values(((for-loop_195)"
-"(lambda(table_62 pos_99)"
+"((letrec-values(((for-loop_194)"
+"(lambda(table_63 pos_101)"
 "(begin"
 " 'for-loop"
-"(if(< pos_99 end_27)"
-"(let-values(((phase-level_20) pos_99))"
-"(let-values(((table_65)"
-"(let-values(((table_198) table_62))"
-"(let-values(((table_199)"
+"(if(< pos_101 end_27)"
+"(let-values(((phase-level_20) pos_101))"
+"(let-values(((table_66)"
+"(let-values(((table_189) table_63))"
+"(let-values(((table_190)"
 "(let-values()"
-"(let-values(((key_72 val_66)"
+"(let-values(((key_72 val_63)"
 "(let-values()"
 "(let-values(((linklet_0)"
 "(hash-ref"
@@ -36136,13 +35564,13 @@ static const char *startup_source =
 " linklet_0)"
 " null))))))"
 "(hash-set"
-" table_198"
+" table_189"
 " key_72"
-" val_66)))))"
-"(values table_199)))))"
-"(if(not #f)(for-loop_195 table_65(+ pos_99 inc_21)) table_65)))"
-" table_62)))))"
-" for-loop_195)"
+" val_63)))))"
+"(values table_190)))))"
+"(if(not #f)(for-loop_194 table_66(+ pos_101 inc_21)) table_66)))"
+" table_63)))))"
+" for-loop_194)"
 " '#hash()"
 " start_38)))))))))))))"
 "(define-values"
@@ -36172,72 +35600,68 @@ static const char *startup_source =
 "(if(1/linklet-bundle? c_43)"
 "(let-values()(1/hash->linklet-directory(hasheq #f c_43)))"
 "(let-values()"
-"(let-values(((the-struct_54) c_43))"
-"(if(compiled-in-memory? the-struct_54)"
+"(let-values(((the-struct_8) c_43))"
+"(if(compiled-in-memory? the-struct_8)"
 "(let-values(((linklet-directory16_0)"
 "(normalize-to-linklet-directory(compiled-in-memory-linklet-directory c_43))))"
 "(compiled-in-memory1.1"
 " linklet-directory16_0"
-"(compiled-in-memory-original-self the-struct_54)"
-"(compiled-in-memory-requires the-struct_54)"
-"(compiled-in-memory-provides the-struct_54)"
-"(compiled-in-memory-phase-to-link-module-uses the-struct_54)"
-"(compiled-in-memory-compile-time-inspector the-struct_54)"
-"(compiled-in-memory-phase-to-link-extra-inspectorsss the-struct_54)"
-"(compiled-in-memory-mpis the-struct_54)"
-"(compiled-in-memory-syntax-literals the-struct_54)"
-"(compiled-in-memory-pre-compiled-in-memorys the-struct_54)"
-"(compiled-in-memory-post-compiled-in-memorys the-struct_54)"
-"(compiled-in-memory-namespace-scopes the-struct_54)"
-"(compiled-in-memory-purely-functional? the-struct_54)))"
-"                (raise-argument-error 'struct-copy \"compiled-in-memory?\" the-struct_54)))))))))"
+"(compiled-in-memory-original-self the-struct_8)"
+"(compiled-in-memory-requires the-struct_8)"
+"(compiled-in-memory-provides the-struct_8)"
+"(compiled-in-memory-phase-to-link-module-uses the-struct_8)"
+"(compiled-in-memory-compile-time-inspector the-struct_8)"
+"(compiled-in-memory-phase-to-link-extra-inspectorsss the-struct_8)"
+"(compiled-in-memory-mpis the-struct_8)"
+"(compiled-in-memory-syntax-literals the-struct_8)"
+"(compiled-in-memory-pre-compiled-in-memorys the-struct_8)"
+"(compiled-in-memory-post-compiled-in-memorys the-struct_8)"
+"(compiled-in-memory-namespace-scopes the-struct_8)"
+"(compiled-in-memory-purely-functional? the-struct_8)))"
+"                (raise-argument-error 'struct-copy \"compiled-in-memory?\" the-struct_8)))))))))"
 "(define-values"
 "(fixup-submodule-names)"
 "(lambda(c_44)(begin(1/module-compiled-name c_44(1/module-compiled-name c_44)))))"
 "(define-values"
 "(reset-submodule-names)"
-"(lambda(b_77 pre?_1 submods_2)"
+"(lambda(b_76 pre?_1 submods_2)"
 "(begin"
 "(1/hash->linklet-bundle"
 "(hash-set"
-"(1/linklet-bundle->hash b_77)"
+"(1/linklet-bundle->hash b_76)"
 "(if pre?_1 'pre 'post)"
 "(map2 module-compiled-immediate-name submods_2))))))"
 "(define-values"
 "(compile-module13.1)"
 "(lambda(force-linklet-directory?1_0"
-" force-linklet-directory?6_0"
 " modules-being-compiled4_0"
-" modules-being-compiled9_0"
 " need-compiled-submodule-rename?5_0"
-" need-compiled-submodule-rename?10_0"
 " serializable?2_0"
-" serializable?7_0"
-" to-source?3_1"
-" to-source?8_0"
-" p11_1"
-" cctx12_1)"
+" to-source?3_0"
+" p11_0"
+" cctx12_0)"
 "(begin"
 " 'compile-module13"
-"(let-values(((p_37) p11_1))"
-"(let-values(((cctx_16) cctx12_1))"
-"(let-values(((force-linklet-directory?_0)(if force-linklet-directory?6_0 force-linklet-directory?1_0 #f)))"
-"(let-values(((serializable?_2)(if serializable?7_0 serializable?2_0 #f)))"
-"(let-values(((to-source?_3)(if to-source?8_0 to-source?3_1 #f)))"
+"(let-values(((p_45) p11_0))"
+"(let-values(((cctx_14) cctx12_0))"
+"(let-values(((force-linklet-directory?_0) force-linklet-directory?1_0))"
+"(let-values(((serializable?_2) serializable?2_0))"
+"(let-values(((to-source?_2) to-source?3_0))"
 "(let-values(((modules-being-compiled_0)"
-"(if modules-being-compiled9_0 modules-being-compiled4_0(make-hasheq))))"
-"(let-values(((need-compiled-submodule-rename?_0)"
-"(if need-compiled-submodule-rename?10_0 need-compiled-submodule-rename?5_0 #t)))"
+"(if(eq? modules-being-compiled4_0 unsafe-undefined)"
+"(make-hasheq)"
+" modules-being-compiled4_0)))"
+"(let-values(((need-compiled-submodule-rename?_0) need-compiled-submodule-rename?5_0))"
 "(let-values()"
 "(let-values(((full-module-name_1)"
-"(let-values(((parent-full-name_0)(compile-context-full-module-name cctx_16))"
-"((name_57)(syntax-e$1(parsed-module-name-id p_37))))"
+"(let-values(((parent-full-name_0)(compile-context-full-module-name cctx_14))"
+"((name_55)(syntax-e$1(parsed-module-name-id p_45))))"
 "(if parent-full-name_0"
 "(append"
 "(if(list? parent-full-name_0) parent-full-name_0(list parent-full-name_0))"
-"(list name_57))"
-" name_57))))"
-"(let-values(((compiled-submodules_0)(parsed-module-compiled-submodules p_37)))"
+"(list name_55))"
+" name_55))))"
+"(let-values(((compiled-submodules_0)(parsed-module-compiled-submodules p_45)))"
 "(let-values(((get-submodules_0)"
 "(lambda(star?_0)"
 "(begin"
@@ -36248,76 +35672,76 @@ static const char *startup_source =
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
 "(let-values()(check-in-hash ht_121)))"
-"((letrec-values(((for-loop_108)"
-"(lambda(fold-var_69 i_153)"
+"((letrec-values(((for-loop_240)"
+"(lambda(fold-var_28 i_152)"
 "(begin"
 " 'for-loop"
-"(if i_153"
-"(let-values(((name_58 star?+compiled_0)"
+"(if i_152"
+"(let-values(((name_56 star?+compiled_0)"
 "(hash-iterate-key+value"
 " ht_121"
-" i_153)))"
-"(let-values(((fold-var_34)"
-"(let-values(((fold-var_157)"
-" fold-var_69))"
+" i_152)))"
+"(let-values(((fold-var_150)"
+"(let-values(((fold-var_69)"
+" fold-var_28))"
 "(if(eq?"
 " star?_0"
 "(car star?+compiled_0))"
-"(let-values(((fold-var_9)"
-" fold-var_157))"
-"(let-values(((fold-var_70)"
+"(let-values(((fold-var_220)"
+" fold-var_69))"
+"(let-values(((fold-var_32)"
 "(let-values()"
 "(cons"
 "(let-values()"
 "(cons"
-" name_58"
+" name_56"
 "(if(if need-compiled-submodule-rename?_0"
 "(not"
 "(parsed-module-compiled-module"
-" p_37))"
+" p_45))"
 " #f)"
 "(update-submodule-names"
 "(cdr"
 " star?+compiled_0)"
-" name_58"
+" name_56"
 " full-module-name_1)"
 "(cdr"
 " star?+compiled_0))))"
-" fold-var_9))))"
-"(values fold-var_70)))"
-" fold-var_157))))"
+" fold-var_220))))"
+"(values fold-var_32)))"
+" fold-var_69))))"
 "(if(not #f)"
-"(for-loop_108"
-" fold-var_34"
-"(hash-iterate-next ht_121 i_153))"
-" fold-var_34)))"
-" fold-var_69)))))"
-" for-loop_108)"
+"(for-loop_240"
+" fold-var_150"
+"(hash-iterate-next ht_121 i_152))"
+" fold-var_150)))"
+" fold-var_28)))))"
+" for-loop_240)"
 " null"
 "(hash-iterate-first ht_121)))))))))"
 "(let-values(((pre-submodules_0)(get-submodules_0 #f)))"
 "(let-values(((post-submodules_0)(get-submodules_0 #t)))"
-"(let-values(((c1_27)(parsed-module-compiled-module p_37)))"
+"(let-values(((c1_27)(parsed-module-compiled-module p_45)))"
 "(if c1_27"
 "((lambda(c_45)"
-"(let-values(((name_59 prefix_6)"
+"(let-values(((name_52 prefix_6)"
 "(if(symbol? full-module-name_1)"
 "(values full-module-name_1 null)"
-"(let-values(((r_10)(reverse$1 full-module-name_1)))"
-"(values(car r_10)(reverse$1(cdr r_10)))))))"
-"(let-values(((m_18)(change-module-name c_45 name_59 prefix_6)))"
+"(let-values(((r_6)(reverse$1 full-module-name_1)))"
+"(values(car r_6)(reverse$1(cdr r_6)))))))"
+"(let-values(((m_18)(change-module-name c_45 name_52 prefix_6)))"
 "(1/module-compiled-submodules"
 "(1/module-compiled-submodules m_18 #t(map2 cdr pre-submodules_0))"
 " #f"
 "(map2 cdr post-submodules_0)))))"
 " c1_27)"
 "(let-values()"
-"(let-values(((p37_1) p_37)"
-"((cctx38_0) cctx_16)"
+"(let-values(((p37_0) p_45)"
+"((cctx38_0) cctx_14)"
 "((full-module-name39_0) full-module-name_1)"
 "((force-linklet-directory?40_0) force-linklet-directory?_0)"
 "((serializable?41_0) serializable?_2)"
-"((to-source?42_0) to-source?_3)"
+"((to-source?42_0) to-source?_2)"
 "((modules-being-compiled43_0) modules-being-compiled_0)"
 "((pre-submodules44_0) pre-submodules_0)"
 "((post-submodules45_0) post-submodules_0)"
@@ -36332,7 +35756,7 @@ static const char *startup_source =
 " pre-submodules44_0"
 " serializable?41_0"
 " to-source?42_0"
-" p37_1"
+" p37_0"
 " cctx38_0)))))))))))))))))))))"
 "(define-values"
 "(compile-module-from-parsed34.1)"
@@ -36344,16 +35768,16 @@ static const char *startup_source =
 " pre-submodules21_0"
 " serializable?18_0"
 " to-source?19_0"
-" p32_0"
+" p32_1"
 " cctx33_0)"
 "(begin"
 " 'compile-module-from-parsed34"
-"(let-values(((p_47) p32_0))"
+"(let-values(((p_18) p32_1))"
 "(let-values(((cctx_17) cctx33_0))"
 "(let-values(((full-module-name_2) full-module-name16_0))"
 "(let-values(((force-linklet-directory?_1) force-linklet-directory?17_0))"
 "(let-values(((serializable?_3) serializable?18_0))"
-"(let-values(((to-source?_4) to-source?19_0))"
+"(let-values(((to-source?_3) to-source?19_0))"
 "(let-values(((modules-being-compiled_1) modules-being-compiled20_0))"
 "(let-values(((pre-submodules_1) pre-submodules21_0))"
 "(let-values(((post-submodules_1) post-submodules22_0))"
@@ -36361,21 +35785,21 @@ static const char *startup_source =
 "(let-values()"
 "(let-values()"
 "(let-values(((enclosing-self_0)(compile-context-module-self cctx_17)))"
-"(let-values(((self_25)(parsed-module-self p_47)))"
-"(let-values(((requires_5)(parsed-module-requires p_47)))"
-"(let-values(((provides_11)(parsed-module-provides p_47)))"
+"(let-values(((self_25)(parsed-module-self p_18)))"
+"(let-values(((requires_5)(parsed-module-requires p_18)))"
+"(let-values(((provides_11)(parsed-module-provides p_18)))"
 "(let-values(((encoded-root-expand-ctx-box_1)"
-"(box(parsed-module-encoded-root-ctx p_47))))"
-"(let-values(((body-context-simple?_0)(parsed-module-root-ctx-simple? p_47)))"
+"(box(parsed-module-encoded-root-ctx p_18))))"
+"(let-values(((body-context-simple?_0)(parsed-module-root-ctx-simple? p_18)))"
 "(let-values(((language-info_2)"
 "(filter-language-info"
-"(syntax-property$1(parsed-s p_47) 'module-language))))"
-"(let-values(((bodys_6)(parsed-module-body p_47)))"
+"(syntax-property$1(parsed-s p_18) 'module-language))))"
+"(let-values(((bodys_6)(parsed-module-body p_18)))"
 "(let-values(((empty-result-for-module->namespace?_0) #f))"
 "(let-values(((mpis_19)(make-module-path-index-table)))"
 "(let-values(((body-cctx_0)"
-"(let-values(((the-struct_55) cctx_17))"
-"(if(compile-context? the-struct_55)"
+"(let-values(((the-struct_56) cctx_17))"
+"(if(compile-context? the-struct_56)"
 "(let-values(((phase47_1) 0)"
 "((self48_0) self_25)"
 "((module-self49_0) self_25)"
@@ -36383,47 +35807,44 @@ static const char *startup_source =
 " full-module-name_2)"
 "((lazy-syntax-literals?51_0) #t))"
 "(compile-context1.1"
-"(compile-context-namespace the-struct_55)"
+"(compile-context-namespace the-struct_56)"
 " phase47_1"
 " self48_0"
 " module-self49_0"
 " full-module-name50_0"
 " lazy-syntax-literals?51_0"
-"(compile-context-header the-struct_55)))"
+"(compile-context-header the-struct_56)))"
 "(raise-argument-error"
 " 'struct-copy"
 "                                                                     \"compile-context?\""
-" the-struct_55)))))"
+" the-struct_56)))))"
 "(let-values(((cross-phase-persistent?_2) #f))"
 "(let-values(((side-effects_0)(make-hasheqv)))"
 "(let-values(((check-side-effects!_0)"
-"(lambda(e_75"
+"(lambda(e_73"
 " expected-results_3"
-" phase_24"
+" phase_91"
 " required-reference?_1)"
 "(begin"
 " 'check-side-effects!"
-"(if(hash-ref side-effects_0 phase_24 #f)"
+"(if(hash-ref side-effects_0 phase_91 #f)"
 "(void)"
 "(let-values()"
-"(if(let-values(((e52_2) e_75)"
+"(if(let-values(((e52_2) e_73)"
 "((expected-results53_0)"
 " expected-results_3)"
 "((required-reference?54_0)"
 " required-reference?_1))"
 "(any-side-effects?9.1"
-" #f"
-" #f"
-" #f"
-" #f"
+" unsafe-undefined"
+" unsafe-undefined"
 " required-reference?54_0"
-" #t"
 " e52_2"
 " expected-results53_0))"
 "(let-values()"
 "(hash-set!"
 " side-effects_0"
-" phase_24"
+" phase_91"
 " #t))"
 "(void))))))))"
 "(let-values((()"
@@ -36455,7 +35876,7 @@ static const char *startup_source =
 "(let-values(((bodys55_0) bodys_6)"
 "((body-cctx56_0) body-cctx_0)"
 "((mpis57_0) mpis_19)"
-"((temp58_1)"
+"((temp58_0)"
 "(list"
 "(list get-syntax-literal!-id)"
 "(list set-transformer!-id)))"
@@ -36472,54 +35893,54 @@ static const char *startup_source =
 "((check-side-effects!64_0)"
 " check-side-effects!_0)"
 "((temp65_0)"
-"(lambda(body_4 cctx_18)"
-"(if(parsed-#%declare? body_4)"
+"(lambda(body_3 cctx_18)"
+"(if(parsed-#%declare? body_3)"
 "(let-values()"
-"(let-values(((ok?_26"
+"(let-values(((ok?_27"
 " _69_2"
 " kw70_0)"
-"(let-values(((s_412)"
+"(let-values(((s_403)"
 "(parsed-s"
-" body_4)))"
+" body_3)))"
 "(let-values(((orig-s_29)"
-" s_412))"
+" s_403))"
 "(let-values(((_69_3"
 " kw70_1)"
-"(let-values(((s_58)"
+"(let-values(((s_34)"
 "(if(syntax?$1"
-" s_412)"
+" s_403)"
 "(syntax-e$1"
-" s_412)"
-" s_412)))"
+" s_403)"
+" s_403)))"
 "(if(pair?"
-" s_58)"
+" s_34)"
 "(let-values(((_71_0)"
-"(let-values(((s_413)"
+"(let-values(((s_59)"
 "(car"
-" s_58)))"
-" s_413))"
+" s_34)))"
+" s_59))"
 "((kw72_0)"
-"(let-values(((s_414)"
+"(let-values(((s_404)"
 "(cdr"
-" s_58)))"
-"(let-values(((s_415)"
+" s_34)))"
+"(let-values(((s_405)"
 "(if(syntax?$1"
-" s_414)"
+" s_404)"
 "(syntax-e$1"
-" s_414)"
-" s_414)))"
-"(let-values(((flat-s_18)"
+" s_404)"
+" s_404)))"
+"(let-values(((flat-s_19)"
 "(to-syntax-list.1"
-" s_415)))"
+" s_405)))"
 "(if(not"
-" flat-s_18)"
+" flat-s_19)"
 "(let-values()"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                           \"bad syntax\""
 " orig-s_29))"
 "(let-values()"
-" flat-s_18)))))))"
+" flat-s_19)))))))"
 "(values"
 " _71_0"
 " kw72_0))"
@@ -36532,7 +35953,7 @@ static const char *startup_source =
 " _69_3"
 " kw70_1))))))"
 "(begin"
-"(let-values(((lst_275)"
+"(let-values(((lst_194)"
 " kw70_0))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
@@ -36540,19 +35961,19 @@ static const char *startup_source =
 "(void)"
 "(let-values()"
 "(check-list"
-" lst_275)))"
-"((letrec-values(((for-loop_243)"
-"(lambda(lst_230)"
+" lst_194)))"
+"((letrec-values(((for-loop_204)"
+"(lambda(lst_268)"
 "(begin"
 " 'for-loop"
 "(if(pair?"
-" lst_230)"
+" lst_268)"
 "(let-values(((kw_0)"
 "(unsafe-car"
-" lst_230))"
-"((rest_147)"
+" lst_268))"
+"((rest_149)"
 "(unsafe-cdr"
-" lst_230)))"
+" lst_268)))"
 "(let-values((()"
 "(let-values()"
 "(let-values((()"
@@ -36584,58 +36005,47 @@ static const char *startup_source =
 "(values)))))"
 "(if(not"
 " #f)"
-"(for-loop_243"
-" rest_147)"
+"(for-loop_204"
+" rest_149)"
 "(values))))"
 "(values))))))"
-" for-loop_243)"
-" lst_275)))"
+" for-loop_204)"
+" lst_194)))"
 "(void)"
 " #f)))"
 "(let-values() #f))))"
 "((temp66_1)"
-"(lambda(mod-name_17 phase_94)"
-"(let-values(((ht_129)"
+"(lambda(mod-name_17 phase_92)"
+"(let-values(((ht_123)"
 "(if modules-being-compiled_1"
 "(hash-ref"
 " modules-being-compiled_1"
 " mod-name_17"
 " #f)"
 " #f)))"
-"(if ht_129"
+"(if ht_123"
 "(hash-ref"
-" ht_129"
-" phase_94"
+" ht_123"
+" phase_92"
 " #f)"
 " #f))))"
-"((to-source?67_0) to-source?_4)"
+"((to-source?67_0) to-source?_3)"
 "((serializable?68_0)"
 " serializable?_3))"
 "(compile-forms31.1"
 " temp59_2"
-" temp58_1"
+" temp58_0"
 " temp60_2"
-" #t"
 " check-side-effects!64_0"
 " #t"
-" #f"
-" #f"
-" #f"
-" #f"
+" unsafe-undefined"
 " encoded-root-expand-ctx-box62_0"
-" #t"
 " temp61_0"
-" #t"
 " temp66_1"
-" #t"
 " temp65_0"
-" #t"
 " body-context-simple?63_0"
-" #t"
 " serializable?68_0"
-" #t"
 " to-source?67_0"
-" #t"
 " bodys55_0"
 " body-cctx56_0"
 " mpis57_0))))"
@@ -36646,40 +36056,40 @@ static const char *startup_source =
 "(hash-set!"
 " modules-being-compiled_1"
 "(1/module-path-index-resolve self_25)"
-"(let-values(((ht_130)"
+"(let-values(((ht_124)"
 " body-linklets_2))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
 "(#%variable-reference))"
 "(void)"
 "(let-values()"
-"(check-in-hash ht_130)))"
-"((letrec-values(((for-loop_244)"
-"(lambda(table_200"
-" i_154)"
+"(check-in-hash ht_124)))"
+"((letrec-values(((for-loop_23)"
+"(lambda(table_191"
+" i_153)"
 "(begin"
 " 'for-loop"
-"(if i_154"
-"(let-values(((phase_95"
+"(if i_153"
+"(let-values(((phase_93"
 " linklet_6)"
 "(hash-iterate-key+value"
-" ht_130"
-" i_154)))"
-"(let-values(((table_201)"
-"(let-values(((table_202)"
-" table_200))"
-"(let-values(((table_203)"
+" ht_124"
+" i_153)))"
+"(let-values(((table_192)"
+"(let-values(((table_193)"
+" table_191))"
+"(let-values(((table_194)"
 "(let-values()"
 "(let-values(((key_73"
-" val_67)"
+" val_64)"
 "(let-values()"
 "(values"
-" phase_95"
+" phase_93"
 "(module-linklet-info2.1"
 " linklet_6"
 "(hash-ref"
 " phase-to-link-module-uses_4"
-" phase_95"
+" phase_93"
 " #f)"
 " self_25"
 " #f"
@@ -36687,37 +36097,37 @@ static const char *startup_source =
 "(if phase-to-link-extra-inspectorsss_2"
 "(hash-ref"
 " phase-to-link-extra-inspectorsss_2"
-" phase_95"
+" phase_93"
 " #f)"
 " #f))))))"
 "(hash-set"
-" table_202"
+" table_193"
 " key_73"
-" val_67)))))"
+" val_64)))))"
 "(values"
-" table_203)))))"
+" table_194)))))"
 "(if(not"
 " #f)"
-"(for-loop_244"
-" table_201"
+"(for-loop_23"
+" table_192"
 "(hash-iterate-next"
-" ht_130"
-" i_154))"
-" table_201)))"
-" table_200)))))"
-" for-loop_244)"
+" ht_124"
+" i_153))"
+" table_192)))"
+" table_191)))))"
+" for-loop_23)"
 " '#hasheq()"
-"(hash-iterate-first ht_130))))))"
+"(hash-iterate-first ht_124))))))"
 "(void))"
 "(values))))"
 "(let-values(((declaration-linklet_0)"
 "(if serializable?_3"
-"((if to-source?_4"
+"((if to-source?_3"
 " values"
-"(lambda(s_416)"
+"(lambda(s_406)"
 "(let-values()"
 "(1/compile-linklet"
-" s_416"
+" s_406"
 " 'decl))))"
 "(list"
 " 'linklet"
@@ -36743,7 +36153,6 @@ static const char *startup_source =
 "((temp75_0) #f))"
 "(generate-deserialize6.1"
 " temp75_0"
-" #t"
 " requires73_0"
 " mpis74_0)))"
 "(list"
@@ -36752,10 +36161,9 @@ static const char *startup_source =
 "(let-values(((provides76_0)"
 " provides_11)"
 "((mpis77_0) mpis_19)"
-"((temp78_1) #f))"
+"((temp78_0) #f))"
 "(generate-deserialize6.1"
-" temp78_1"
-" #t"
+" temp78_0"
 " provides76_0"
 " mpis77_0)))"
 "(list"
@@ -36767,23 +36175,23 @@ static const char *startup_source =
 "(if(not"
 "(syntax-literals-empty?"
 " syntax-literals_4))"
-"((if to-source?_4"
+"((if to-source?_3"
 " values"
-"(lambda(s_417)"
+"(lambda(s_407)"
 "(let-values()"
 "(let-values(((linklet_7"
 " new-keys_1)"
 "(1/compile-linklet"
-" s_417"
+" s_407"
 " 'syntax-literals"
 "(vector"
 " deserialize-instance"
 " empty-top-syntax-literal-instance"
 " empty-syntax-literals-data-instance"
 " empty-instance-instance)"
-"(lambda(inst_5)"
+"(lambda(inst_4)"
 "(values"
-" inst_5"
+" inst_4"
 " #f))"
 "(if serializable?_3"
 " '(serializable)"
@@ -36813,7 +36221,6 @@ static const char *startup_source =
 " serializable?_3)))"
 "(generate-lazy-syntax-literals!9.1"
 " temp82_0"
-" #t"
 " syntax-literals79_0"
 " mpis80_0"
 " self81_0))"
@@ -36837,12 +36244,12 @@ static const char *startup_source =
 "(if(not"
 "(syntax-literals-empty?"
 " syntax-literals_4))"
-"((if to-source?_4"
+"((if to-source?_3"
 " values"
-"(lambda(s_328)"
+"(lambda(s_207)"
 "(let-values()"
 "(1/compile-linklet"
-" s_328"
+" s_207"
 " 'syntax-literals-data))))"
 "(list*"
 " 'linklet"
@@ -36869,12 +36276,12 @@ static const char *startup_source =
 " #f)))"
 "(let-values(((data-linklet_0)"
 "(if serializable?_3"
-"((if to-source?_4"
+"((if to-source?_3"
 " values"
-"(lambda(s_329)"
+"(lambda(s_208)"
 "(let-values()"
 "(1/compile-linklet"
-" s_329"
+" s_208"
 " 'data))))"
 "(list"
 " 'linklet"
@@ -36900,10 +36307,10 @@ static const char *startup_source =
 "(hash-set"
 " bundle_2"
 " 'decl"
-"(let-values(((or-part_258)"
+"(let-values(((or-part_179)"
 " declaration-linklet_0))"
-"(if or-part_258"
-" or-part_258"
+"(if or-part_179"
+" or-part_179"
 " 'in-memory)))))"
 "(let-values(((bundle_4)"
 "(if data-linklet_0"
@@ -36982,7 +36389,7 @@ static const char *startup_source =
 "(hash-set"
 " bundle_12"
 " 'side-effects"
-"(let-values(((temp83_0)"
+"(let-values(((temp83_1)"
 "(hash-keys"
 " side-effects_0))"
 "((<84_0)"
@@ -36990,9 +36397,7 @@ static const char *startup_source =
 "(sort7.1"
 " #f"
 " #f"
-" #f"
-" #f"
-" temp83_0"
+" temp83_1"
 " <84_0)))"
 " bundle_12)))"
 "(let-values(((bundle_14)"
@@ -37014,10 +36419,10 @@ static const char *startup_source =
 " #f)"
 "(let-values() bundle_1)"
 "(let-values()"
-"((if to-source?_4"
+"((if to-source?_3"
 " values"
 " 1/hash->linklet-directory)"
-"(let-values(((lst_276)"
+"(let-values(((lst_269)"
 "(append"
 " pre-submodules_1"
 " post-submodules_1)))"
@@ -37027,47 +36432,47 @@ static const char *startup_source =
 "(void)"
 "(let-values()"
 "(check-list"
-" lst_276)))"
-"((letrec-values(((for-loop_245)"
-"(lambda(ht_131"
-" lst_277)"
+" lst_269)))"
+"((letrec-values(((for-loop_241)"
+"(lambda(ht_125"
+" lst_270)"
 "(begin"
 " 'for-loop"
 "(if(pair?"
-" lst_277)"
+" lst_270)"
 "(let-values(((sm_0)"
 "(unsafe-car"
-" lst_277))"
-"((rest_148)"
+" lst_270))"
+"((rest_150)"
 "(unsafe-cdr"
-" lst_277)))"
-"(let-values(((ht_132)"
-"(let-values(((ht_133)"
-" ht_131))"
-"(let-values(((ht_134)"
+" lst_270)))"
+"(let-values(((ht_126)"
+"(let-values(((ht_118)"
+" ht_125))"
+"(let-values(((ht_127)"
 "(let-values()"
 "(hash-set"
-" ht_133"
+" ht_118"
 "(car"
 " sm_0)"
-"((if to-source?_4"
+"((if to-source?_3"
 " values"
 " compiled-in-memory-linklet-directory)"
 "(cdr"
 " sm_0))))))"
 "(values"
-" ht_134)))))"
+" ht_127)))))"
 "(if(not"
 " #f)"
-"(for-loop_245"
-" ht_132"
-" rest_148)"
-" ht_132)))"
-" ht_131)))))"
-" for-loop_245)"
+"(for-loop_241"
+" ht_126"
+" rest_150)"
+" ht_126)))"
+" ht_125)))))"
+" for-loop_241)"
 "(hasheq #f bundle_1)"
-" lst_276))))))))"
-"(if to-source?_4"
+" lst_269))))))))"
+"(if to-source?_3"
 "(let-values() ld_4)"
 "(let-values()"
 "(compiled-in-memory1.1"
@@ -37087,34 +36492,34 @@ static const char *startup_source =
 " #f)))))))))))))))))))))))))))))))))))))))))"
 "(define-values"
 "(update-submodule-names)"
-"(lambda(cim_9 name_60 full-module-name_3)"
+"(lambda(cim_9 name_57 full-module-name_3)"
 "(begin"
 "(change-module-name"
 " cim_9"
-" name_60"
+" name_57"
 "(if(symbol? full-module-name_3)(list full-module-name_3)(reverse$1(cdr(reverse$1 full-module-name_3))))))))"
 "(define-values"
 "(register-compiled-submodules)"
 "(lambda(modules-being-compiled_2 pre-submodules_2 self_26)"
 "(begin"
 "(begin"
-"(let-values(((lst_278) pre-submodules_2))"
+"(let-values(((lst_271) pre-submodules_2))"
 "(begin"
-"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_278)))"
-"((letrec-values(((for-loop_246)"
-"(lambda(lst_279)"
+"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_271)))"
+"((letrec-values(((for-loop_242)"
+"(lambda(lst_272)"
 "(begin"
 " 'for-loop"
-"(if(pair? lst_279)"
-"(let-values(((s_418)(unsafe-car lst_279))((rest_149)(unsafe-cdr lst_279)))"
+"(if(pair? lst_272)"
+"(let-values(((s_408)(unsafe-car lst_272))((rest_151)(unsafe-cdr lst_272)))"
 "(let-values((()"
 "(let-values()"
 "(let-values((()"
 "(let-values()"
 "(begin"
 "(let-values()"
-"(let-values(((name_61)(car s_418)))"
-"(let-values(((cim_10)(cdr s_418)))"
+"(let-values(((name_58)(car s_408)))"
+"(let-values(((cim_10)(cdr s_408)))"
 "(let-values(((phase-to-link-module-uses_5)"
 "(compiled-in-memory-phase-to-link-module-uses"
 " cim_10)))"
@@ -37126,7 +36531,7 @@ static const char *startup_source =
 "(list"
 " 'submod"
 "                                                                                                  \".\""
-" name_61)"
+" name_58)"
 " self_26)))"
 "(let-values(((phase-to-extra-inspectorsss_0)"
 "(compiled-in-memory-phase-to-link-extra-inspectorsss"
@@ -37135,7 +36540,7 @@ static const char *startup_source =
 " modules-being-compiled_2"
 "(1/module-path-index-resolve"
 " sm-self_0)"
-"(let-values(((ht_135)"
+"(let-values(((ht_128)"
 "(1/linklet-bundle->hash"
 "(if(1/linklet-directory?"
 " ld_5)"
@@ -37149,37 +36554,37 @@ static const char *startup_source =
 "(#%variable-reference))"
 "(void)"
 "(let-values()"
-"(check-in-hash ht_135)))"
-"((letrec-values(((for-loop_247)"
-"(lambda(table_204"
-" i_155)"
+"(check-in-hash ht_128)))"
+"((letrec-values(((for-loop_243)"
+"(lambda(table_195"
+" i_154)"
 "(begin"
 " 'for-loop"
-"(if i_155"
-"(let-values(((phase_96"
+"(if i_154"
+"(let-values(((phase_94"
 " linklet_8)"
 "(hash-iterate-key+value"
-" ht_135"
-" i_155)))"
-"(let-values(((table_205)"
-"(let-values(((table_206)"
-" table_204))"
+" ht_128"
+" i_154)))"
+"(let-values(((table_196)"
+"(let-values(((table_197)"
+" table_195))"
 "(if(number?"
-" phase_96)"
-"(let-values(((table_207)"
-" table_206))"
+" phase_94)"
+"(let-values(((table_198)"
+" table_197))"
 "(let-values(((table_47)"
 "(let-values()"
 "(let-values(((key_74"
-" val_68)"
+" val_65)"
 "(let-values()"
 "(values"
-" phase_96"
+" phase_94"
 "(module-linklet-info2.1"
 " linklet_8"
 "(hash-ref"
 " phase-to-link-module-uses_5"
-" phase_96"
+" phase_94"
 " #f)"
 "(compiled-in-memory-original-self"
 " cim_10)"
@@ -37189,35 +36594,35 @@ static const char *startup_source =
 "(if phase-to-extra-inspectorsss_0"
 "(hash-ref"
 " phase-to-extra-inspectorsss_0"
-" phase_96"
+" phase_94"
 " #f)"
 " #f))))))"
 "(hash-set"
-" table_207"
+" table_198"
 " key_74"
-" val_68)))))"
+" val_65)))))"
 "(values"
 " table_47)))"
-" table_206))))"
+" table_197))))"
 "(if(not"
 " #f)"
-"(for-loop_247"
-" table_205"
+"(for-loop_243"
+" table_196"
 "(hash-iterate-next"
-" ht_135"
-" i_155))"
-" table_205)))"
-" table_204)))))"
-" for-loop_247)"
+" ht_128"
+" i_154))"
+" table_196)))"
+" table_195)))))"
+" for-loop_243)"
 " '#hasheq()"
 "(hash-iterate-first"
-" ht_135))))))))))))"
+" ht_128))))))))))))"
 "(values)))))"
 "(values)))))"
-"(if(not #f)(for-loop_246 rest_149)(values))))"
+"(if(not #f)(for-loop_242 rest_151)(values))))"
 "(values))))))"
-" for-loop_246)"
-" lst_278)))"
+" for-loop_242)"
+" lst_271)))"
 "(void)))))"
 "(define-values"
 "(filter-language-info)"
@@ -37230,69 +36635,69 @@ static const char *startup_source =
 " #f))))"
 "(define-values"
 "(1/compiled-expression-recompile)"
-"(lambda(c_31)"
+"(lambda(c_32)"
 "(begin"
 " 'compiled-expression-recompile"
 "(begin"
-"(if(1/compiled-expression? c_31)"
+"(if(1/compiled-expression? c_32)"
 "(void)"
-"          (let-values () (raise-argument-error 'compiled-expression-recompile \"compiled-expression?\" c_31)))"
-"(if(1/linklet-bundle? c_31)"
+"          (let-values () (raise-argument-error 'compiled-expression-recompile \"compiled-expression?\" c_32)))"
+"(if(1/linklet-bundle? c_32)"
 "(let-values()"
 "(1/hash->linklet-bundle"
-"(let-values(((ht_136)(1/linklet-bundle->hash c_31)))"
+"(let-values(((ht_129)(1/linklet-bundle->hash c_32)))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
-"(let-values()(check-in-hash ht_136)))"
-"((letrec-values(((for-loop_248)"
-"(lambda(table_208 i_156)"
+"(let-values()(check-in-hash ht_129)))"
+"((letrec-values(((for-loop_244)"
+"(lambda(table_199 i_155)"
 "(begin"
 " 'for-loop"
-"(if i_156"
-"(let-values(((k_33 v_70)(hash-iterate-key+value ht_136 i_156)))"
-"(let-values(((table_209)"
-"(let-values(((table_210) table_208))"
-"(let-values(((table_211)"
+"(if i_155"
+"(let-values(((k_33 v_71)(hash-iterate-key+value ht_129 i_155)))"
+"(let-values(((table_200)"
+"(let-values(((table_201) table_199))"
+"(let-values(((table_202)"
 "(let-values()"
-"(let-values(((key_75 val_69)"
+"(let-values(((key_75 val_66)"
 "(let-values()"
-"(if(1/linklet? v_70)"
+"(if(1/linklet? v_71)"
 "(let-values()"
 "(values"
 " k_33"
 "(1/recompile-linklet"
-" v_70)))"
+" v_71)))"
 "(let-values()"
-"(values k_33 v_70))))))"
-"(hash-set table_210 key_75 val_69)))))"
-"(values table_211)))))"
+"(values k_33 v_71))))))"
+"(hash-set table_201 key_75 val_66)))))"
+"(values table_202)))))"
 "(if(not #f)"
-"(for-loop_248 table_209(hash-iterate-next ht_136 i_156))"
-" table_209)))"
-" table_208)))))"
-" for-loop_248)"
+"(for-loop_244 table_200(hash-iterate-next ht_129 i_155))"
+" table_200)))"
+" table_199)))))"
+" for-loop_244)"
 " '#hasheq()"
-"(hash-iterate-first ht_136))))))"
-"(if(1/linklet-directory? c_31)"
+"(hash-iterate-first ht_129))))))"
+"(if(1/linklet-directory? c_32)"
 "(let-values()"
 "(1/hash->linklet-directory"
-"(let-values(((ht_137)(1/linklet-directory->hash c_31)))"
+"(let-values(((ht_79)(1/linklet-directory->hash c_32)))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
-"(let-values()(check-in-hash ht_137)))"
-"((letrec-values(((for-loop_249)"
-"(lambda(table_212 i_157)"
+"(let-values()(check-in-hash ht_79)))"
+"((letrec-values(((for-loop_215)"
+"(lambda(table_165 i_156)"
 "(begin"
 " 'for-loop"
-"(if i_157"
-"(let-values(((k_34 v_1)(hash-iterate-key+value ht_137 i_157)))"
-"(let-values(((table_213)"
-"(let-values(((table_214) table_212))"
-"(let-values(((table_215)"
+"(if i_156"
+"(let-values(((k_34 v_1)(hash-iterate-key+value ht_79 i_156)))"
+"(let-values(((table_203)"
+"(let-values(((table_204) table_165))"
+"(let-values(((table_166)"
 "(let-values()"
-"(let-values(((key_76 val_70)"
+"(let-values(((key_76 val_67)"
 "(let-values()"
 "(if(1/compiled-expression?"
 " v_1)"
@@ -37303,16 +36708,16 @@ static const char *startup_source =
 " v_1)))"
 "(let-values()"
 "(values k_34 v_1))))))"
-"(hash-set table_214 key_76 val_70)))))"
-"(values table_215)))))"
+"(hash-set table_204 key_76 val_67)))))"
+"(values table_166)))))"
 "(if(not #f)"
-"(for-loop_249 table_213(hash-iterate-next ht_137 i_157))"
-" table_213)))"
-" table_212)))))"
-" for-loop_249)"
+"(for-loop_215 table_203(hash-iterate-next ht_79 i_156))"
+" table_203)))"
+" table_165)))))"
+" for-loop_215)"
 " '#hasheq()"
-"(hash-iterate-first ht_137))))))"
-"(let-values() c_31)))))))"
+"(hash-iterate-first ht_79))))))"
+"(let-values() c_32)))))))"
 "(define-values"
 "(create-compiled-in-memorys-using-shared-data)"
 "(lambda(tops_0 data-linklet_1 ns_59)"
@@ -37344,16 +36749,16 @@ static const char *startup_source =
 "(begin"
 " 'construct-compiled-in-memory"
 "(let-values(((is-module?_0)"
-"(let-values(((or-part_78)(1/linklet-bundle? ld_6)))"
-"(if or-part_78"
-" or-part_78"
-"(let-values(((b_78)"
+"(let-values(((or-part_76)(1/linklet-bundle? ld_6)))"
+"(if or-part_76"
+" or-part_76"
+"(let-values(((b_77)"
 "(hash-ref"
 "(1/linklet-directory->hash ld_6)"
 " #f"
 " #f)))"
-"(if b_78"
-"(hash-ref(1/linklet-bundle->hash b_78) 'decl #f)"
+"(if b_77"
+"(hash-ref(1/linklet-bundle->hash b_77) 'decl #f)"
 " #f))))))"
 "(let-values(((mpi-pos-vec_0)(vector-ref mpi-vector-tree_0 0)))"
 "(let-values(((syntax-literals-spec_0)"
@@ -37367,20 +36772,20 @@ static const char *startup_source =
 "(extract-submodules ld_6 'post)"
 " null)))"
 "(let-values(((map-construct-compiled-in-memory_0)"
-"(lambda(l_69 vec-pos_0)"
+"(lambda(l_67 vec-pos_0)"
 "(begin"
 " 'map-construct-compiled-in-memory"
 "(reverse$1"
-"(let-values(((lst_267) l_69)"
-"((lst_87)"
+"(let-values(((lst_159) l_67)"
+"((lst_89)"
 "(vector-ref"
 " mpi-vector-tree_0"
 " vec-pos_0))"
-"((lst_163)"
+"((lst_262)"
 "(vector-ref"
 " phase-to-link-modules-tree_0"
 " vec-pos_0))"
-"((lst_265)"
+"((lst_260)"
 "(vector-ref"
 " syntax-literals-tree_0"
 " vec-pos_0)))"
@@ -37388,66 +36793,66 @@ static const char *startup_source =
 "(if(variable-reference-from-unsafe?"
 "(#%variable-reference))"
 "(void)"
-"(let-values()(check-list lst_267)))"
+"(let-values()(check-list lst_159)))"
 "(if(variable-reference-from-unsafe?"
 "(#%variable-reference))"
 "(void)"
-"(let-values()(check-list lst_87)))"
+"(let-values()(check-list lst_89)))"
 "(if(variable-reference-from-unsafe?"
 "(#%variable-reference))"
 "(void)"
-"(let-values()(check-list lst_163)))"
+"(let-values()(check-list lst_262)))"
 "(if(variable-reference-from-unsafe?"
 "(#%variable-reference))"
 "(void)"
-"(let-values()(check-list lst_265)))"
-"((letrec-values(((for-loop_232)"
-"(lambda(fold-var_157"
-" lst_268"
+"(let-values()(check-list lst_260)))"
+"((letrec-values(((for-loop_234)"
+"(lambda(fold-var_151"
+" lst_258"
 " lst_23"
-" lst_102"
-" lst_88)"
+" lst_104"
+" lst_90)"
 "(begin"
 " 'for-loop"
 "(if(if(pair?"
-" lst_268)"
+" lst_258)"
 "(if(pair?"
 " lst_23)"
 "(if(pair?"
-" lst_102)"
+" lst_104)"
 "(pair?"
-" lst_88)"
+" lst_90)"
 " #f)"
 " #f)"
 " #f)"
 "(let-values(((sub-ld_0)"
 "(unsafe-car"
-" lst_268))"
-"((rest_150)"
+" lst_258))"
+"((rest_143)"
 "(unsafe-cdr"
-" lst_268))"
+" lst_258))"
 "((mpi-vector-tree_1)"
 "(unsafe-car"
 " lst_23))"
-"((rest_50)"
+"((rest_51)"
 "(unsafe-cdr"
 " lst_23))"
 "((phase-to-link-modules-tree_1)"
 "(unsafe-car"
-" lst_102))"
+" lst_104))"
 "((rest_90)"
 "(unsafe-cdr"
-" lst_102))"
+" lst_104))"
 "((syntax-literals-tree_1)"
 "(unsafe-car"
-" lst_88))"
-"((rest_36)"
+" lst_90))"
+"((rest_37)"
 "(unsafe-cdr"
-" lst_88)))"
-"(let-values(((fold-var_168)"
-"(let-values(((fold-var_169)"
-" fold-var_157))"
-"(let-values(((fold-var_170)"
+" lst_90)))"
+"(let-values(((fold-var_163)"
+"(let-values(((fold-var_164)"
+" fold-var_151))"
+"(let-values(((fold-var_165)"
 "(let-values()"
 "(cons"
 "(let-values()"
@@ -37456,24 +36861,24 @@ static const char *startup_source =
 " mpi-vector-tree_1"
 " phase-to-link-modules-tree_1"
 " syntax-literals-tree_1))"
-" fold-var_169))))"
+" fold-var_164))))"
 "(values"
-" fold-var_170)))))"
+" fold-var_165)))))"
 "(if(not #f)"
-"(for-loop_232"
-" fold-var_168"
-" rest_150"
-" rest_50"
+"(for-loop_234"
+" fold-var_163"
+" rest_143"
+" rest_51"
 " rest_90"
-" rest_36)"
-" fold-var_168)))"
-" fold-var_157)))))"
-" for-loop_232)"
+" rest_37)"
+" fold-var_163)))"
+" fold-var_151)))))"
+" for-loop_234)"
 " null"
-" lst_267"
-" lst_87"
-" lst_163"
-" lst_265))))))))"
+" lst_159"
+" lst_89"
+" lst_262"
+" lst_260))))))))"
 "(compiled-in-memory1.1"
 " ld_6"
 " #f"
@@ -37484,21 +36889,21 @@ static const char *startup_source =
 "(vector-ref phase-to-link-modules-tree_0 0))"
 " #f"
 " '#hasheqv()"
-"(let-values(((len_30)(vector-length mpi-pos-vec_0)))"
+"(let-values(((len_29)(vector-length mpi-pos-vec_0)))"
 "(begin"
-"(if(exact-nonnegative-integer? len_30)"
+"(if(exact-nonnegative-integer? len_29)"
 "(void)"
 "(let-values()"
 "(raise-argument-error"
 " 'for/vector"
 "                                                                   \"exact-nonnegative-integer?\""
-" len_30)))"
-"(let-values(((v_66)(make-vector len_30 0)))"
+" len_29)))"
+"(let-values(((v_67)(make-vector len_29 0)))"
 "(begin"
-"(if(zero? len_30)"
+"(if(zero? len_29)"
 "(void)"
 "(let-values()"
-"(let-values(((vec_65 len_31)"
+"(let-values(((vec_65 len_30)"
 "(let-values(((vec_66)"
 " mpi-pos-vec_0))"
 "(begin"
@@ -37509,66 +36914,66 @@ static const char *startup_source =
 " vec_66))))))"
 "(begin"
 " #f"
-"((letrec-values(((for-loop_105)"
-"(lambda(i_158 pos_100)"
+"((letrec-values(((for-loop_102)"
+"(lambda(i_157 pos_102)"
 "(begin"
 " 'for-loop"
 "(if(unsafe-fx<"
-" pos_100"
-" len_31)"
-"(let-values(((pos_101)"
+" pos_102"
+" len_30)"
+"(let-values(((pos_103)"
 "(unsafe-vector-ref"
 " vec_65"
-" pos_100)))"
+" pos_102)))"
+"(let-values(((i_158)"
+"(let-values(((i_63)"
+" i_157))"
 "(let-values(((i_159)"
-"(let-values(((i_61)"
-" i_158))"
-"(let-values(((i_160)"
 "(let-values()"
 "(begin"
 "(unsafe-vector*-set!"
-" v_66"
-" i_61"
+" v_67"
+" i_63"
 "(let-values()"
 "(vector-ref"
 " mpi-vector_0"
-" pos_101)))"
+" pos_103)))"
 "(unsafe-fx+"
 " 1"
-" i_61)))))"
+" i_63)))))"
 "(values"
-" i_160)))))"
+" i_159)))))"
 "(if(if(not"
 "((lambda x_19"
 "(unsafe-fx="
-" i_159"
-" len_30))"
-" pos_101))"
+" i_158"
+" len_29))"
+" pos_103))"
 "(not #f)"
 " #f)"
-"(for-loop_105"
-" i_159"
+"(for-loop_102"
+" i_158"
 "(unsafe-fx+"
 " 1"
-" pos_100))"
-" i_159)))"
-" i_158)))))"
-" for-loop_105)"
+" pos_102))"
+" i_158)))"
+" i_157)))))"
+" for-loop_102)"
 " 0"
 " 0)))))"
-" v_66))))"
-"(let-values(((len_32)(cdr syntax-literals-spec_0)))"
+" v_67))))"
+"(let-values(((len_31)(cdr syntax-literals-spec_0)))"
 "(begin"
-"(if(exact-nonnegative-integer? len_32)"
+"(if(exact-nonnegative-integer? len_31)"
 "(void)"
 "(let-values()"
 "(raise-argument-error"
 " 'for/vector"
 "                                                                   \"exact-nonnegative-integer?\""
-" len_32)))"
-"(let-values(((v_34)(make-vector len_32 0)))"
+" len_31)))"
+"(let-values(((v_34)(make-vector len_31 0)))"
 "(begin"
-"(if(zero? len_32)"
+"(if(zero? len_31)"
 "(void)"
 "(let-values()"
 "(let-values(((start_15) 0)"
@@ -37581,22 +36986,22 @@ static const char *startup_source =
 "(void)"
 "(let-values()"
 "(check-range start_15 end_28 inc_22)))"
-"((letrec-values(((for-loop_250)"
-"(lambda(i_161 pos_102)"
+"((letrec-values(((for-loop_245)"
+"(lambda(i_160 pos_104)"
 "(begin"
 " 'for-loop"
-"(if(< pos_102 end_28)"
-"(let-values(((i_96)"
-" pos_102))"
-"(let-values(((i_162)"
-"(let-values(((i_35)"
-" i_161))"
+"(if(< pos_104 end_28)"
+"(let-values(((i_97)"
+" pos_104))"
+"(let-values(((i_161)"
+"(let-values(((i_36)"
+" i_160))"
 "(let-values(((i_20)"
 "(let-values()"
 "(begin"
 "(unsafe-vector*-set!"
 " v_34"
-" i_35"
+" i_36"
 "(let-values()"
 "(if syntax-literals_5"
 "(vector-ref"
@@ -37604,29 +37009,29 @@ static const char *startup_source =
 "(+"
 "(car"
 " syntax-literals-spec_0)"
-" i_96))"
+" i_97))"
 " #f)))"
 "(unsafe-fx+"
 " 1"
-" i_35)))))"
+" i_36)))))"
 "(values"
 " i_20)))))"
 "(if(if(not"
-"((lambda x_71"
+"((lambda x_73"
 "(unsafe-fx="
-" i_162"
-" len_32))"
-" i_96))"
+" i_161"
+" len_31))"
+" i_97))"
 "(not #f)"
 " #f)"
-"(for-loop_250"
-" i_162"
+"(for-loop_245"
+" i_161"
 "(+"
-" pos_102"
+" pos_104"
 " inc_22))"
-" i_162)))"
-" i_161)))))"
-" for-loop_250)"
+" i_161)))"
+" i_160)))))"
+" for-loop_245)"
 " 0"
 " start_15)))))"
 " v_34))))"
@@ -37653,44 +37058,42 @@ static const char *startup_source =
 "(let-values(((mh_0)(1/linklet-bundle->hash mod_3)))"
 "(let-values(((names_2)(hash-ref mh_0 names-key_0 null)))"
 "(reverse$1"
-"(let-values(((lst_177) names_2))"
+"(let-values(((lst_174) names_2))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
-"(let-values()(check-list lst_177)))"
-"((letrec-values(((for-loop_251)"
-"(lambda(fold-var_5 lst_280)"
+"(let-values()(check-list lst_174)))"
+"((letrec-values(((for-loop_246)"
+"(lambda(fold-var_5 lst_273)"
 "(begin"
 " 'for-loop"
-"(if(pair? lst_280)"
-"(let-values(((name_44)(unsafe-car lst_280))"
-"((rest_151)(unsafe-cdr lst_280)))"
-"(let-values(((fold-var_227)"
-"(let-values(((fold-var_228) fold-var_5))"
-"(let-values(((fold-var_229)"
+"(if(pair? lst_273)"
+"(let-values(((name_59)(unsafe-car lst_273))"
+"((rest_152)(unsafe-cdr lst_273)))"
+"(let-values(((fold-var_225)"
+"(let-values(((fold-var_226) fold-var_5))"
+"(let-values(((fold-var_154)"
 "(let-values()"
 "(cons"
 "(let-values()"
 "(hash-ref"
 " h_10"
-" name_44"
+" name_59"
 "(lambda()"
 "(error"
 "                                                                                          \"missing submodule declaration:\""
-" name_44))))"
-" fold-var_228))))"
-"(values fold-var_229)))))"
-"(if(not #f)(for-loop_251 fold-var_227 rest_151) fold-var_227)))"
+" name_59))))"
+" fold-var_226))))"
+"(values fold-var_154)))))"
+"(if(not #f)(for-loop_246 fold-var_225 rest_152) fold-var_225)))"
 " fold-var_5)))))"
-" for-loop_251)"
+" for-loop_246)"
 " null"
-" lst_177))))))))))))))"
+" lst_174))))))))))))))"
 "(define-values"
 "(eval-single-top)"
-"(lambda(c_31 ns_42)"
-"(begin"
-"(let-values(((c18_0) c_31)((ns19_0) ns_42)((temp20_1) #t))"
-"(eval-one-top15.1 temp20_1 #t c18_0 ns19_0 #f #f)))))"
+"(lambda(c_32 ns_42)"
+"(begin(let-values(((c15_0) c_32)((ns16_1) ns_42)((temp17_3) #t))(eval-one-top12.1 temp17_3 c15_0 ns16_1 #t)))))"
 "(define-values"
 "(compiled-multiple-top?)"
 "(lambda(c_34)"
@@ -37699,66 +37102,67 @@ static const char *startup_source =
 "(if(1/linklet-directory? ld_8)(not(hash-ref(1/linklet-directory->hash ld_8) #f #f)) #f)))))"
 "(define-values"
 "(eval-top)"
-"(let-values(((eval-top7_0)"
-"(lambda(c5_0 ns6_1 eval-compiled1_0 as-tail?2_0 eval-compiled3_0 as-tail?4_0)"
+"(let-values(((eval-top5_0)"
+"(lambda(c3_1 ns4_0 eval-compiled1_0 as-tail?2_0)"
 "(begin"
-" 'eval-top7"
-"(let-values(((c_46) c5_0))"
-"(let-values(((ns_66) ns6_1))"
-"(let-values(((eval-compiled_0)(if eval-compiled3_0 eval-compiled1_0 eval-top)))"
-"(let-values(((as-tail?_0)(if as-tail?4_0 as-tail?2_0 #t)))"
+" 'eval-top5"
+"(let-values(((c_46) c3_1))"
+"(let-values(((ns_67) ns4_0))"
+"(let-values(((eval-compiled_0)"
+"(if(eq? eval-compiled1_0 unsafe-undefined) eval-top eval-compiled1_0)))"
+"(let-values(((as-tail?_0) as-tail?2_0))"
 "(let-values()"
 "(if(compiled-multiple-top? c_46)"
-"(eval-multiple-tops c_46 ns_66 eval-compiled_0 as-tail?_0)"
-"(let-values(((c21_0) c_46)((ns22_0) ns_66)((as-tail?23_0) as-tail?_0))"
-"(eval-one-top15.1 #f #f c21_0 ns22_0 as-tail?23_0 #t))))))))))))"
+"(eval-multiple-tops c_46 ns_67 eval-compiled_0 as-tail?_0)"
+"(let-values(((c18_0) c_46)((ns19_0) ns_67)((as-tail?20_0) as-tail?_0))"
+"(eval-one-top12.1 #f c18_0 ns19_0 as-tail?20_0))))))))))))"
 "(case-lambda"
-"((c_47 ns_67)(begin(eval-top7_0 c_47 ns_67 #f #f #f #f)))"
-"((c_48 ns_68 eval-compiled_1 as-tail?2_1)(eval-top7_0 c_48 ns_68 eval-compiled_1 as-tail?2_1 #t #t))"
-"((c_49 ns_69 eval-compiled1_1)(eval-top7_0 c_49 ns_69 eval-compiled1_1 #f #t #f)))))"
+"((c_47 ns_68)(begin(eval-top5_0 c_47 ns_68 unsafe-undefined #t)))"
+"((c_48 ns_69 eval-compiled_1 as-tail?2_1)(eval-top5_0 c_48 ns_69 eval-compiled_1 as-tail?2_1))"
+"((c_49 ns_70 eval-compiled1_1)(eval-top5_0 c_49 ns_70 eval-compiled1_1 #t)))))"
 "(define-values"
 "(eval-multiple-tops)"
-"(lambda(c_50 ns_46 eval-compiled_2 as-tail?_1)"
+"(lambda(c_50 ns_71 eval-compiled_2 as-tail?_1)"
 "(begin"
 "(let-values(((eval-compiled-parts_0)"
-"(lambda(l_65)"
+"(lambda(l_68)"
 "(begin"
 " 'eval-compiled-parts"
-"((letrec-values(((loop_96)"
-"(lambda(l_70)"
+"((letrec-values(((loop_5)"
+"(lambda(l_69)"
 "(begin"
 " 'loop"
-"(if(null? l_70)"
+"(if(null? l_69)"
 "(let-values() void)"
-"(if(null?(cdr l_70))"
-"(let-values()(eval-compiled_2(car l_70) ns_46 as-tail?_1))"
+"(if(null?(cdr l_69))"
+"(let-values()(eval-compiled_2(car l_69) ns_71 as-tail?_1))"
 "(let-values()"
 "(begin"
-"(eval-compiled_2(car l_70) ns_46 #f)"
-"(loop_96(cdr l_70))))))))))"
-" loop_96)"
-" l_65)))))"
+"(eval-compiled_2(car l_69) ns_71 #f)"
+"(loop_5(cdr l_69))))))))))"
+" loop_5)"
+" l_68)))))"
 "(if(compiled-in-memory? c_50)"
 "(let-values()(eval-compiled-parts_0(compiled-in-memory-pre-compiled-in-memorys c_50)))"
-"(let-values(((c1_28)(hash-ref(1/linklet-directory->hash c_50) 'data #f)))"
-"(if c1_28"
+"(let-values(((c1_27)(hash-ref(1/linklet-directory->hash c_50) 'data #f)))"
+"(if c1_27"
 "((lambda(data-ld_0)"
 "(eval-compiled-parts_0"
 "(create-compiled-in-memorys-using-shared-data"
 "(compiled-top->compiled-tops c_50)"
 "(hash-ref(1/linklet-bundle->hash(hash-ref(1/linklet-directory->hash data-ld_0) #f)) 0)"
-" ns_46)))"
-" c1_28)"
+" ns_71)))"
+" c1_27)"
 "(let-values()(eval-compiled-parts_0(compiled-top->compiled-tops c_50))))))))))"
 "(define-values"
-"(eval-one-top15.1)"
-"(lambda(single-expression?9_0 single-expression?10_0 c13_0 ns14_1 as-tail?11_0 as-tail?12_0)"
+"(eval-one-top12.1)"
+"(lambda(single-expression?7_0 c10_0 ns11_0 as-tail?9_0)"
 "(begin"
-" 'eval-one-top15"
-"(let-values(((c_51) c13_0))"
-"(let-values(((ns_70) ns14_1))"
-"(let-values(((as-tail?_2)(if as-tail?12_0 as-tail?11_0 #t)))"
-"(let-values(((single-expression?_1)(if single-expression?10_0 single-expression?9_0 #f)))"
+" 'eval-one-top12"
+"(let-values(((c_51) c10_0))"
+"(let-values(((ns_72) ns11_0))"
+"(let-values(((as-tail?_2) as-tail?9_0))"
+"(let-values(((single-expression?_1) single-expression?7_0))"
 "(let-values()"
 "(let-values()"
 "(let-values(((ld_9)"
@@ -37768,26 +37172,26 @@ static const char *startup_source =
 "(if(compiled-in-memory? c_51)"
 "(link-instance-from-compiled-in-memory"
 " c_51"
-"(if(not single-expression?_1) ns_70 #f))"
+"(if(not single-expression?_1) ns_72 #f))"
 "(1/instantiate-linklet"
 "(hash-ref h_11 'link)"
 "(list"
 " deserialize-instance"
-"(let-values(((ns24_0) ns_70)"
-"((temp25_4)(namespace-phase ns_70))"
-"((temp26_2)(namespace-mpi ns_70))"
-"((temp27_4)(namespace-bulk-binding-registry ns_70))"
-"((temp28_3)(current-code-inspector)))"
+"(let-values(((ns21_0) ns_72)"
+"((temp22_4)(namespace-phase ns_72))"
+"((temp23_4)(namespace-mpi ns_72))"
+"((temp24_4)(namespace-bulk-binding-registry ns_72))"
+"((temp25_4)(current-code-inspector)))"
 "(make-eager-instance-instance11.1"
-" temp27_4"
+" temp24_4"
+" temp22_4"
 " temp25_4"
-" temp28_3"
-" ns24_0"
-" temp26_2)))))))"
+" ns21_0"
+" temp23_4)))))))"
 "(let-values(((orig-phase_1)(hash-ref h_11 'original-phase)))"
 "(let-values(((max-phase_5)(hash-ref h_11 'max-phase)))"
-"(let-values(((phase-shift_19)(phase-(namespace-phase ns_70) orig-phase_1)))"
-"(let-values(((extra-inspector_7)"
+"(let-values(((phase-shift_18)(phase-(namespace-phase ns_72) orig-phase_1)))"
+"(let-values(((extra-inspector_8)"
 "(if(compiled-in-memory? c_51)"
 "(compiled-in-memory-compile-time-inspector c_51)"
 " #f)))"
@@ -37800,19 +37204,19 @@ static const char *startup_source =
 "(compiled-in-memory-phase-to-link-module-uses c_51)"
 "(1/instance-variable-value link-instance_0 'phase-to-link-modules))))"
 "(let-values(((thunk_5)"
-"(let-values(((start_39) max-phase_5)"
-"((end_29)(sub1 orig-phase_1))"
-"((inc_23) -1))"
+"(let-values(((start_38) max-phase_5)"
+"((end_27)(sub1 orig-phase_1))"
+"((inc_21) -1))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
-"(let-values()(check-range start_39 end_29 inc_23)))"
-"((letrec-values(((for-loop_26)"
-"(lambda(prev-thunk_0 pos_103)"
+"(let-values()(check-range start_38 end_27 inc_21)))"
+"((letrec-values(((for-loop_194)"
+"(lambda(prev-thunk_0 pos_101)"
 "(begin"
 " 'for-loop"
-"(if(> pos_103 end_29)"
-"(let-values(((phase_97) pos_103))"
+"(if(> pos_101 end_27)"
+"(let-values(((phase_95) pos_101))"
 "(let-values(((prev-thunk_1)"
 "(let-values(((prev-thunk_2)"
 " prev-thunk_0))"
@@ -37826,13 +37230,13 @@ static const char *startup_source =
 "(let-values(((module-uses_1)"
 "(hash-ref"
 " phase-to-link-modules_1"
-" phase_97"
+" phase_95"
 " null)))"
 "(let-values(((import-module-instances_2"
 " import-instances_1)"
 "(let-values(((mis_6"
 " is_5)"
-"(let-values(((lst_281)"
+"(let-values(((lst_96)"
 " module-uses_1))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
@@ -37840,21 +37244,21 @@ static const char *startup_source =
 "(void)"
 "(let-values()"
 "(check-list"
-" lst_281)))"
-"((letrec-values(((for-loop_101)"
+" lst_96)))"
+"((letrec-values(((for-loop_108)"
 "(lambda(mis_7"
 " is_6"
-" lst_10)"
+" lst_222)"
 "(begin"
 " 'for-loop"
 "(if(pair?"
-" lst_10)"
+" lst_222)"
 "(let-values(((mu_9)"
 "(unsafe-car"
-" lst_10))"
-"((rest_1)"
+" lst_222))"
+"((rest_153)"
 "(unsafe-cdr"
-" lst_10)))"
+" lst_222)))"
 "(let-values(((mis_8"
 " is_7)"
 "(let-values(((mis_9)"
@@ -37864,54 +37268,52 @@ static const char *startup_source =
 "(let-values(((mis_10"
 " is_9)"
 "(let-values()"
-"(let-values(((mis29_0"
-" is30_0)"
+"(let-values(((mis26_0"
+" is27_0)"
 "(let-values()"
-"(let-values(((ns31_0)"
-" ns_70)"
-"((mu32_0)"
+"(let-values(((ns28_0)"
+" ns_72)"
+"((mu29_0)"
 " mu_9)"
-"((temp33_1)"
+"((temp30_3)"
 "(phase-"
 "(phase+"
-" phase_97"
-" phase-shift_19)"
+" phase_95"
+" phase-shift_18)"
 "(module-use-phase"
 " mu_9))))"
-"(namespace-module-use->module+linklet-instances146.1"
-" temp33_1"
+"(namespace-module-use->module+linklet-instances144.1"
+" temp30_3"
 " #f"
 " #f"
-" #f"
-" #f"
-" ns31_0"
-" mu32_0)))))"
+" ns28_0"
+" mu29_0)))))"
 "(values"
 "(cons"
-" mis29_0"
+" mis26_0"
 " mis_9)"
 "(cons"
-" is30_0"
+" is27_0"
 " is_8))))))"
 "(values"
 " mis_10"
 " is_9)))))"
 "(if(not"
 " #f)"
-"(for-loop_101"
+"(for-loop_108"
 " mis_8"
 " is_7"
-" rest_1)"
+" rest_153)"
 "(values"
 " mis_8"
 " is_7))))"
 "(values"
 " mis_7"
 " is_6))))))"
-" for-loop_101)"
+" for-loop_108)"
 " null"
 " null"
-" lst_281)))))"
+" lst_96)))))"
 "(values"
 "(reverse$1"
 " mis_6)"
@@ -37919,78 +37321,78 @@ static const char *startup_source =
 " is_5)))))"
 "(let-values(((phase-ns_0)"
 "(namespace->namespace-at-phase"
-" ns_70"
+" ns_72"
 "(phase+"
-" phase_97"
-" phase-shift_19))))"
-"(let-values(((inst_6)"
+" phase_95"
+" phase-shift_18))))"
+"(let-values(((inst_5)"
 "(if single-expression?_1"
 " link-instance_0"
-"(let-values(((phase-ns34_0)"
+"(let-values(((phase-ns31_0)"
 " phase-ns_0)"
-"((phase-shift35_0)"
-" phase-shift_19)"
-"((temp36_3)"
+"((phase-shift32_0)"
+" phase-shift_18)"
+"((temp33_1)"
 "(namespace-mpi"
-" ns_70))"
-"((temp37_1)"
+" ns_72))"
+"((temp34_3)"
 "(namespace-inspector"
-" ns_70))"
-"((temp38_2)"
+" ns_72))"
+"((temp35_1)"
 "(namespace-bulk-binding-registry"
-" ns_70))"
-"((temp39_3)"
-"(lambda(name_45"
-" val_71)"
+" ns_72))"
+"((temp36_2)"
+"(lambda(name_60"
+" val_68)"
 "(namespace-set-transformer!"
-" ns_70"
+" ns_72"
 "(phase+"
 "(sub1"
-" phase_97)"
-" phase-shift_19)"
-" name_45"
-" val_71))))"
+" phase_95)"
+" phase-shift_18)"
+" name_60"
+" val_68))))"
 "(make-instance-instance13.1"
-" temp38_2"
-" temp37_1"
-" phase-ns34_0"
-" phase-shift35_0"
-" temp36_3"
-" temp39_3)))))"
+" temp35_1"
+" temp34_3"
+" phase-ns31_0"
+" phase-shift32_0"
+" temp33_1"
+" temp36_2)))))"
 "(let-values(((linklet_9)"
 "(hash-ref"
 " h_11"
-" phase_97"
+" phase_95"
 " #f)))"
 "(if linklet_9"
 "(let-values()"
 "(let-values((()"
 "(begin"
-"(let-values(((linklet40_0)"
+"(let-values(((linklet37_0)"
 " linklet_9)"
-"((temp41_2)"
+"((temp38_2)"
 " 3)"
-"((module-uses42_0)"
+"((module-uses39_0)"
 " module-uses_1)"
-"((import-module-instances43_0)"
+"((import-module-instances40_0)"
 " import-module-instances_2)"
-"((temp44_1)"
+"((temp41_1)"
 "(current-code-inspector))"
-"((extra-inspector45_1)"
-" extra-inspector_7)"
-"((temp46_1)"
+"((extra-inspector42_0)"
+" extra-inspector_8)"
+"((temp43_2)"
 "(hash-ref"
 " phase-to-link-extra-inspectorsss_3"
-" phase_97"
+" phase_95"
 " #f)))"
 "(check-require-access9.1"
-" temp41_2"
-" linklet40_0"
-" module-uses42_0"
-" import-module-instances43_0"
-" temp44_1"
-" extra-inspector45_1"
-" temp46_1))"
+" temp38_2"
+" linklet37_0"
+" module-uses39_0"
+" import-module-instances40_0"
+" temp41_1"
+" extra-inspector42_0"
+" temp43_2))"
 "(values))))"
 "(let-values(((instantiate_0)"
 "(lambda(tail?_49)"
@@ -38001,20 +37403,20 @@ static const char *startup_source =
 "(list*"
 " top-level-instance"
 " link-instance_0"
-" inst_6"
+" inst_5"
 " import-instances_1)"
 "(namespace->instance"
-" ns_70"
+" ns_72"
 "(phase-"
 "(phase+"
-" phase_97"
-" phase-shift_19)"
+" phase_95"
+" phase-shift_18)"
 "(namespace-0-phase"
-" ns_70)))"
+" ns_72)))"
 "(not"
 " tail?_49))))))"
 "(if(zero-phase?"
-" phase_97)"
+" phase_95)"
 "(let-values()"
 " instantiate_0)"
 "(if single-expression?_1"
@@ -38038,7 +37440,7 @@ static const char *startup_source =
 "(namespace->namespace-at-phase"
 " phase-ns_0"
 "(sub1"
-" phase_97))))"
+" phase_95))))"
 "(lambda(tail?_51)"
 "(begin"
 " 'prev-thunk"
@@ -38049,16 +37451,13 @@ static const char *startup_source =
 " #f"
 " parameterization-key)"
 " current-expand-context"
-"(let-values(((ns-147_0)"
+"(let-values(((ns-144_0)"
 " ns-1_1))"
 "(make-expand-context10.1"
 " #f"
 " #f"
 " #f"
-" #f"
-" #f"
-" #f"
-" ns-147_0))"
+" ns-144_0))"
 " 1/current-namespace"
 " phase-ns_0)"
 "(let-values()"
@@ -38069,14 +37468,14 @@ static const char *startup_source =
 "(values"
 " prev-thunk_3)))))"
 "(if(not #f)"
-"(for-loop_26"
+"(for-loop_194"
 " prev-thunk_1"
-"(+ pos_103 inc_23))"
+"(+ pos_101 inc_21))"
 " prev-thunk_1)))"
 " prev-thunk_0)))))"
-" for-loop_26)"
+" for-loop_194)"
 " void"
-" start_39)))))"
+" start_38)))))"
 "(thunk_5 as-tail?_2))))))))))))))))))))"
 "(define-values"
 "(link-instance-from-compiled-in-memory)"
@@ -38091,62 +37490,62 @@ static const char *startup_source =
 "(extract-namespace-scopes to-ns_0))"
 "(let-values() orig-syntax-literals_0)"
 "(let-values()"
-"(let-values(((len_33)(vector-length orig-syntax-literals_0)))"
+"(let-values(((len_32)(vector-length orig-syntax-literals_0)))"
 "(begin"
-"(if(exact-nonnegative-integer? len_33)"
+"(if(exact-nonnegative-integer? len_32)"
 "(void)"
 "(let-values()"
-"                                    (raise-argument-error 'for/vector \"exact-nonnegative-integer?\" len_33)))"
-"(let-values(((v_189)(make-vector len_33 0)))"
+"                                    (raise-argument-error 'for/vector \"exact-nonnegative-integer?\" len_32)))"
+"(let-values(((v_96)(make-vector len_32 0)))"
 "(begin"
-"(if(zero? len_33)"
+"(if(zero? len_32)"
 "(void)"
 "(let-values()"
-"(let-values(((vec_67 len_34)"
+"(let-values(((vec_67 len_33)"
 "(let-values(((vec_68) orig-syntax-literals_0))"
 "(begin"
 "(check-vector vec_68)"
 "(values vec_68(unsafe-vector-length vec_68))))))"
 "(begin"
 " #f"
-"((letrec-values(((for-loop_252)"
-"(lambda(i_163 pos_104)"
+"((letrec-values(((for-loop_6)"
+"(lambda(i_162 pos_105)"
 "(begin"
 " 'for-loop"
-"(if(unsafe-fx< pos_104 len_34)"
-"(let-values(((s_419)"
-"(unsafe-vector-ref vec_67 pos_104)))"
-"(let-values(((i_164)"
-"(let-values(((i_165) i_163))"
-"(let-values(((i_166)"
+"(if(unsafe-fx< pos_105 len_33)"
+"(let-values(((s_50)"
+"(unsafe-vector-ref vec_67 pos_105)))"
+"(let-values(((i_163)"
+"(let-values(((i_164) i_162))"
+"(let-values(((i_165)"
 "(let-values()"
 "(begin"
 "(unsafe-vector*-set!"
-" v_189"
-" i_165"
+" v_96"
+" i_164"
 "(let-values()"
 "(swap-top-level-scopes"
-" s_419"
+" s_50"
 "(compiled-in-memory-namespace-scopes"
 " cim_11)"
 " to-ns_0)))"
 "(unsafe-fx+"
 " 1"
-" i_165)))))"
-"(values i_166)))))"
+" i_164)))))"
+"(values i_165)))))"
 "(if(if(not"
-"((lambda x_72"
-"(unsafe-fx= i_164 len_33))"
-" s_419))"
+"((lambda x_74"
+"(unsafe-fx= i_163 len_32))"
+" s_50))"
 "(not #f)"
 " #f)"
-"(for-loop_252 i_164(unsafe-fx+ 1 pos_104))"
-" i_164)))"
-" i_163)))))"
-" for-loop_252)"
+"(for-loop_6 i_163(unsafe-fx+ 1 pos_105))"
+" i_163)))"
+" i_162)))))"
+" for-loop_6)"
 " 0"
 " 0)))))"
-" v_189)))))))))"
+" v_96)))))))))"
 "(1/make-instance"
 " 'link"
 " #f"
@@ -38164,31 +37563,31 @@ static const char *startup_source =
 "(if(parsed-app? p_44)"
 "(let-values()"
 "(if(can-direct-eval?(parsed-app-rator p_44) ns_42 self-mpi_3)"
-"(let-values(((lst_101)(parsed-app-rands p_44)))"
+"(let-values(((lst_103)(parsed-app-rands p_44)))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
-"(let-values()(check-list lst_101)))"
-"((letrec-values(((for-loop_114)"
-"(lambda(result_118 lst_6)"
+"(let-values()(check-list lst_103)))"
+"((letrec-values(((for-loop_112)"
+"(lambda(result_115 lst_84)"
 "(begin"
 " 'for-loop"
-"(if(pair? lst_6)"
-"(let-values(((r_42)(unsafe-car lst_6))((rest_49)(unsafe-cdr lst_6)))"
-"(let-values(((result_81)"
+"(if(pair? lst_84)"
+"(let-values(((r_42)(unsafe-car lst_84))((rest_50)(unsafe-cdr lst_84)))"
+"(let-values(((result_79)"
 "(let-values()"
-"(let-values(((result_119)"
+"(let-values(((result_116)"
 "(let-values()"
 "(let-values()"
 "(can-direct-eval? r_42 ns_42 self-mpi_3)))))"
-"(values result_119)))))"
-"(if(if(not((lambda x_73(not result_81)) r_42))(not #f) #f)"
-"(for-loop_114 result_81 rest_49)"
-" result_81)))"
-" result_118)))))"
-" for-loop_114)"
+"(values result_116)))))"
+"(if(if(not((lambda x_75(not result_79)) r_42))(not #f) #f)"
+"(for-loop_112 result_79 rest_50)"
+" result_79)))"
+" result_115)))))"
+" for-loop_112)"
 " #t"
-" lst_101)))"
+" lst_103)))"
 " #f))"
 "(if(parsed-id? p_44)"
 "(let-values()(not(eq?(get-id-value p_44 ns_42 self-mpi_3) not-available)))"
@@ -38197,77 +37596,77 @@ static const char *startup_source =
 "(if(parsed-quote-syntax? p_44)(let-values() #t)(let-values() #f))))))))"
 "(define-values"
 "(direct-eval)"
-"(lambda(p_48 ns_71 self-mpi_4)"
+"(lambda(p_47 ns_67 self-mpi_4)"
 "(begin"
-"(if(parsed-app? p_48)"
+"(if(parsed-app? p_47)"
 "(let-values()"
 "(apply"
-"(direct-eval(parsed-app-rator p_48) ns_71 self-mpi_4)"
+"(direct-eval(parsed-app-rator p_47) ns_67 self-mpi_4)"
 "(reverse$1"
-"(let-values(((lst_76)(parsed-app-rands p_48)))"
+"(let-values(((lst_77)(parsed-app-rands p_47)))"
 "(begin"
-"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_76)))"
-"((letrec-values(((for-loop_98)"
-"(lambda(fold-var_230 lst_77)"
+"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_77)))"
+"((letrec-values(((for-loop_95)"
+"(lambda(fold-var_227 lst_78)"
 "(begin"
 " 'for-loop"
-"(if(pair? lst_77)"
-"(let-values(((r_8)(unsafe-car lst_77))((rest_35)(unsafe-cdr lst_77)))"
-"(let-values(((fold-var_224)"
-"(let-values(((fold-var_67) fold-var_230))"
+"(if(pair? lst_78)"
+"(let-values(((r_8)(unsafe-car lst_78))((rest_36)(unsafe-cdr lst_78)))"
+"(let-values(((fold-var_218)"
+"(let-values(((fold-var_67) fold-var_227))"
 "(let-values(((fold-var_26)"
 "(let-values()"
 "(cons"
 "(let-values()"
-"(direct-eval r_8 ns_71 self-mpi_4))"
+"(direct-eval r_8 ns_67 self-mpi_4))"
 " fold-var_67))))"
 "(values fold-var_26)))))"
-"(if(not #f)(for-loop_98 fold-var_224 rest_35) fold-var_224)))"
-" fold-var_230)))))"
-" for-loop_98)"
+"(if(not #f)(for-loop_95 fold-var_218 rest_36) fold-var_218)))"
+" fold-var_227)))))"
+" for-loop_95)"
 " null"
-" lst_76))))))"
-"(if(parsed-id? p_48)"
-"(let-values()(get-id-value p_48 ns_71 self-mpi_4))"
-"(if(parsed-quote? p_48)"
-"(let-values()(parsed-quote-datum p_48))"
-"(if(parsed-quote-syntax? p_48)(let-values()(parsed-quote-syntax-datum p_48))(let-values() #f))))))))"
+" lst_77))))))"
+"(if(parsed-id? p_47)"
+"(let-values()(get-id-value p_47 ns_67 self-mpi_4))"
+"(if(parsed-quote? p_47)"
+"(let-values()(parsed-quote-datum p_47))"
+"(if(parsed-quote-syntax? p_47)(let-values()(parsed-quote-syntax-datum p_47))(let-values() #f))))))))"
 "(define-values"
 "(get-id-value)"
-"(lambda(p_1 ns_72 self-mpi_5)"
+"(lambda(p_1 ns_73 self-mpi_5)"
 "(begin"
-"(let-values(((b_75)(parsed-id-binding p_1)))"
+"(let-values(((b_74)(parsed-id-binding p_1)))"
 "(if(parsed-primitive-id? p_1)"
-"(let-values()(hash-ref(1/primitive-table '#%kernel)(module-binding-sym b_75) get-not-available))"
-"(if(let-values(((or-part_77)(parsed-top-id? p_1)))"
-"(if or-part_77"
-" or-part_77"
-"(let-values(((or-part_78)(not b_75)))"
-"(if or-part_78 or-part_78(eq? self-mpi_5(module-binding-module b_75))))))"
+"(let-values()(hash-ref(1/primitive-table '#%kernel)(module-binding-sym b_74) get-not-available))"
+"(if(let-values(((or-part_75)(parsed-top-id? p_1)))"
+"(if or-part_75"
+" or-part_75"
+"(let-values(((or-part_76)(not b_74)))"
+"(if or-part_76 or-part_76(eq? self-mpi_5(module-binding-module b_74))))))"
 "(let-values()"
 "(namespace-get-variable"
-" ns_72"
-"(if b_75(module-binding-phase b_75)(namespace-phase ns_72))"
-"(if b_75(module-binding-sym b_75)(syntax-e$1(parsed-s p_1)))"
+" ns_73"
+"(if b_74(module-binding-phase b_74)(namespace-phase ns_73))"
+"(if b_74(module-binding-sym b_74)(syntax-e$1(parsed-s p_1)))"
 " get-not-available))"
 "(let-values()"
 "(let-values(((mi_18)"
-"(let-values(((ns1_2) ns_72)"
-"((temp2_4)(1/module-path-index-resolve(module-binding-module b_75)))"
-"((temp3_4)(phase-(namespace-phase ns_72)(module-binding-phase b_75))))"
-"(namespace->module-instance70.1 #f #f #f #f #f #f ns1_2 temp2_4 temp3_4))))"
+"(let-values(((ns1_2) ns_73)"
+"((temp2_4)(1/module-path-index-resolve(module-binding-module b_74)))"
+"((temp3_4)(phase-(namespace-phase ns_73)(module-binding-phase b_74))))"
+"(namespace->module-instance70.1 #f #f unsafe-undefined ns1_2 temp2_4 temp3_4))))"
 "(if(not mi_18)"
 "(let-values() not-available)"
 "(if(check-single-require-access"
 " mi_18"
-"(module-binding-phase b_75)"
-"(module-binding-sym b_75)"
-"(module-binding-extra-inspector b_75))"
+"(module-binding-phase b_74)"
+"(module-binding-sym b_74)"
+"(module-binding-extra-inspector b_74))"
 "(let-values()"
 "(namespace-get-variable"
 "(module-instance-namespace mi_18)"
-"(module-binding-phase b_75)"
-"(module-binding-sym b_75)"
+"(module-binding-phase b_74)"
+"(module-binding-sym b_74)"
 " get-not-available))"
 "(let-values() not-available)))))))))))"
 "(define-values(runtime-scope)(new-multi-scope))"
@@ -38276,35 +37675,26 @@ static const char *startup_source =
 "(define-values(runtime-mpi)(1/module-path-index-join ''#%runtime #f))"
 "(define-values"
 "(add-runtime-primitive!)"
-"(lambda(sym_63)"
+"(lambda(sym_66)"
 "(begin"
 "(let-values(((temp1_3)(syntax-scope-set runtime-stx 0))"
-"((sym2_0) sym_63)"
+"((sym2_0) sym_66)"
 "((temp3_5)"
-"(let-values(((runtime-mpi4_0) runtime-mpi)((temp5_4) 0)((sym6_2) sym_63))"
+"(let-values(((runtime-mpi4_0) runtime-mpi)((temp5_4) 0)((sym6_2) sym_66))"
 "(make-module-binding22.1"
 " #f"
+" null"
 " #f"
 " #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
+" unsafe-undefined"
+" unsafe-undefined"
+" 0"
+" unsafe-undefined"
+" unsafe-undefined"
 " runtime-mpi4_0"
 " temp5_4"
 " sym6_2))))"
-"(add-binding-in-scopes!21.1 #f #f temp1_3 sym2_0 temp3_5)))))"
+"(add-binding-in-scopes!20.1 #f temp1_3 sym2_0 temp3_5)))))"
 "(void"
 "(begin"
 "(add-runtime-primitive! 'values)"
@@ -38317,11 +37707,11 @@ static const char *startup_source =
 "(define-values"
 "(runtime-instances)"
 " '(#%kernel #%paramz #%foreign #%unsafe #%flfxnum #%extfl #%network #%place #%futures))"
-"(define-values(box-cons!)(lambda(b_16 v_70)(begin(set-box! b_16(cons v_70(unbox b_16))))))"
+"(define-values(box-cons!)(lambda(b_16 v_71)(begin(set-box! b_16(cons v_71(unbox b_16))))))"
 "(define-values(box-clear!)(lambda(b_17)(begin(begin0(reverse$1(unbox b_17))(set-box! b_17 null)))))"
 "(define-values"
 "(struct:lift-context lift-context1.1 lift-context? lift-context-convert lift-context-lifts lift-context-module*-ok?)"
-"(let-values(((struct:_72 make-_72 ?_72 -ref_72 -set!_72)"
+"(let-values(((struct:_73 make-_73 ?_73 -ref_73 -set!_73)"
 "(let-values()"
 "(let-values()"
 "(make-struct-type"
@@ -38337,15 +37727,15 @@ static const char *startup_source =
 " #f"
 " 'lift-context)))))"
 "(values"
-" struct:_72"
-" make-_72"
-" ?_72"
-"(make-struct-field-accessor -ref_72 0 'convert)"
-"(make-struct-field-accessor -ref_72 1 'lifts)"
-"(make-struct-field-accessor -ref_72 2 'module*-ok?))))"
+" struct:_73"
+" make-_73"
+" ?_73"
+"(make-struct-field-accessor -ref_73 0 'convert)"
+"(make-struct-field-accessor -ref_73 1 'lifts)"
+"(make-struct-field-accessor -ref_73 2 'module*-ok?))))"
 "(define-values"
 "(struct:lifted-bind lifted-bind2.1 lifted-bind? lifted-bind-ids lifted-bind-keys lifted-bind-rhs)"
-"(let-values(((struct:_73 make-_73 ?_73 -ref_73 -set!_73)"
+"(let-values(((struct:_74 make-_74 ?_74 -ref_74 -set!_74)"
 "(let-values()"
 "(let-values()"
 "(make-struct-type"
@@ -38361,64 +37751,62 @@ static const char *startup_source =
 " #f"
 " 'lifted-bind)))))"
 "(values"
-" struct:_73"
-" make-_73"
-" ?_73"
-"(make-struct-field-accessor -ref_73 0 'ids)"
-"(make-struct-field-accessor -ref_73 1 'keys)"
-"(make-struct-field-accessor -ref_73 2 'rhs))))"
+" struct:_74"
+" make-_74"
+" ?_74"
+"(make-struct-field-accessor -ref_74 0 'ids)"
+"(make-struct-field-accessor -ref_74 1 'keys)"
+"(make-struct-field-accessor -ref_74 2 'rhs))))"
 "(define-values"
 "(make-lift-context6.1)"
-"(lambda(module*-ok?3_0 module*-ok?4_0 convert5_0)"
+"(lambda(module*-ok?3_0 convert5_0)"
 "(begin"
 " 'make-lift-context6"
 "(let-values(((convert_0) convert5_0))"
-"(let-values(((module*-ok?_0)(if module*-ok?4_0 module*-ok?3_0 #f)))"
+"(let-values(((module*-ok?_0) module*-ok?3_0))"
 "(let-values()(lift-context1.1 convert_0(box null) module*-ok?_0)))))))"
 "(define-values"
 "(add-lifted!)"
-"(lambda(lifts_1 ids_16 rhs_12 phase_98)"
+"(lambda(lifts_1 ids_16 rhs_12 phase_96)"
 "(begin"
-"(let-values(((lifted-ids_0 lifted_0)((lift-context-convert lifts_1) ids_16 rhs_12 phase_98)))"
+"(let-values(((lifted-ids_0 lifted_0)((lift-context-convert lifts_1) ids_16 rhs_12 phase_96)))"
 "(begin(box-cons!(lift-context-lifts lifts_1) lifted_0) lifted-ids_0)))))"
 "(define-values(get-and-clear-lifts!)(lambda(lifts_2)(begin(box-clear!(lift-context-lifts lifts_2)))))"
 "(define-values"
 "(make-local-lift)"
 "(lambda(lift-env_1 counter_3)"
 "(begin"
-"(lambda(ids_17 rhs_13 phase_99)"
+"(lambda(ids_17 rhs_13 phase_97)"
 "(let-values(((keys_2)"
 "(reverse$1"
-"(let-values(((lst_282) ids_17))"
+"(let-values(((lst_274) ids_17))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
-"(let-values()(check-list lst_282)))"
-"((letrec-values(((for-loop_253)"
-"(lambda(fold-var_231 lst_283)"
+"(let-values()(check-list lst_274)))"
+"((letrec-values(((for-loop_29)"
+"(lambda(fold-var_155 lst_275)"
 "(begin"
 " 'for-loop"
-"(if(pair? lst_283)"
-"(let-values(((id_59)(unsafe-car lst_283))"
-"((rest_152)(unsafe-cdr lst_283)))"
-"(let-values(((fold-var_83)"
-"(let-values(((fold-var_84) fold-var_231))"
-"(let-values(((fold-var_232)"
+"(if(pair? lst_275)"
+"(let-values(((id_58)(unsafe-car lst_275))"
+"((rest_154)(unsafe-cdr lst_275)))"
+"(let-values(((fold-var_82)"
+"(let-values(((fold-var_83) fold-var_155))"
+"(let-values(((fold-var_84)"
 "(let-values()"
 "(cons"
 "(let-values()"
-"(let-values(((key_78)"
+"(let-values(((key_15)"
 "(let-values(((id32_0)"
-" id_59)"
+" id_58)"
 "((phase33_0)"
-" phase_99)"
+" phase_97)"
 "((counter34_0)"
 " counter_3))"
 "(add-local-binding!37.1"
 " #f"
 " #f"
-" #f"
-" #f"
 " id32_0"
 " phase33_0"
 " counter34_0))))"
@@ -38427,77 +37815,77 @@ static const char *startup_source =
 " lift-env_1"
 "(hash-set"
 "(unbox lift-env_1)"
-" key_78"
+" key_15"
 " variable))"
-" key_78)))"
-" fold-var_84))))"
-"(values fold-var_232)))))"
-"(if(not #f)(for-loop_253 fold-var_83 rest_152) fold-var_83)))"
-" fold-var_231)))))"
-" for-loop_253)"
+" key_15)))"
+" fold-var_83))))"
+"(values fold-var_84)))))"
+"(if(not #f)(for-loop_29 fold-var_82 rest_154) fold-var_82)))"
+" fold-var_155)))))"
+" for-loop_29)"
 " null"
-" lst_282))))))"
+" lst_274))))))"
 "(values ids_17(lifted-bind2.1 ids_17 keys_2 rhs_13)))))))"
 "(define-values"
 "(make-top-level-lift)"
 "(lambda(ctx_11)"
 "(begin"
-"(lambda(ids_18 rhs_14 phase_75)"
+"(lambda(ids_18 rhs_14 phase_7)"
 "(let-values(((post-scope_0)"
 "(root-expand-context-post-expansion-scope"
 "(namespace-get-root-expand-ctx(expand-context-namespace ctx_11)))))"
 "(let-values(((tl-ids_1)"
 "(reverse$1"
-"(let-values(((lst_284) ids_18))"
+"(let-values(((lst_182) ids_18))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
-"(let-values()(check-list lst_284)))"
-"((letrec-values(((for-loop_254)"
-"(lambda(fold-var_233 lst_182)"
+"(let-values()(check-list lst_182)))"
+"((letrec-values(((for-loop_247)"
+"(lambda(fold-var_228 lst_183)"
 "(begin"
 " 'for-loop"
-"(if(pair? lst_182)"
-"(let-values(((id_60)(unsafe-car lst_182))"
-"((rest_153)(unsafe-cdr lst_182)))"
-"(let-values(((fold-var_234)"
-"(let-values(((fold-var_235) fold-var_233))"
-"(let-values(((fold-var_236)"
+"(if(pair? lst_183)"
+"(let-values(((id_59)(unsafe-car lst_183))"
+"((rest_155)(unsafe-cdr lst_183)))"
+"(let-values(((fold-var_229)"
+"(let-values(((fold-var_230) fold-var_228))"
+"(let-values(((fold-var_231)"
 "(let-values()"
 "(cons"
 "(let-values()"
 "(add-scope"
-" id_60"
+" id_59"
 " post-scope_0))"
-" fold-var_235))))"
-"(values fold-var_236)))))"
+" fold-var_230))))"
+"(values fold-var_231)))))"
 "(if(not #f)"
-"(for-loop_254 fold-var_234 rest_153)"
-" fold-var_234)))"
-" fold-var_233)))))"
-" for-loop_254)"
+"(for-loop_247 fold-var_229 rest_155)"
+" fold-var_229)))"
+" fold-var_228)))))"
+" for-loop_247)"
 " null"
-" lst_284))))))"
+" lst_182))))))"
 "(let-values(((syms_19)(select-defined-syms-and-bind!/ctx tl-ids_1 ctx_11)))"
 "(values tl-ids_1(lifted-bind2.1 tl-ids_1 syms_19 rhs_14)))))))))"
 "(define-values"
 "(wrap-lifts-as-let)"
-"(lambda(lifts_3 body_5 phase_100)"
+"(lambda(lifts_3 body_4 phase_98)"
 "(begin"
 "(datum->syntax$1"
 " #f"
-"(let-values(((lst_285)(reverse$1 lifts_3)))"
+"(let-values(((lst_276)(reverse$1 lifts_3)))"
 "(begin"
-"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_285)))"
-"((letrec-values(((for-loop_4)"
-"(lambda(body_6 lst_191)"
+"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_276)))"
+"((letrec-values(((for-loop_56)"
+"(lambda(body_5 lst_185)"
 "(begin"
 " 'for-loop"
-"(if(pair? lst_191)"
-"(let-values(((lift_0)(unsafe-car lst_191))((rest_101)(unsafe-cdr lst_191)))"
-"(let-values(((body_7)"
-"(let-values(((body_8) body_6))"
-"(let-values(((body_9)"
+"(if(pair? lst_185)"
+"(let-values(((lift_0)(unsafe-car lst_185))((rest_156)(unsafe-cdr lst_185)))"
+"(let-values(((body_6)"
+"(let-values(((body_7) body_5))"
+"(let-values(((body_0)"
 "(let-values()"
 "(begin"
 "(if(lifted-bind? lift_0)"
@@ -38506,51 +37894,51 @@ static const char *startup_source =
 "                                                                           (error \"non-bindings in `lift-context`\")))"
 "(list"
 "(datum->syntax$1"
-"(syntax-shift-phase-level$1 core-stx phase_100)"
+"(syntax-shift-phase-level$1 core-stx phase_98)"
 " 'let-values)"
 "(list"
 "(list"
 "(lifted-bind-ids lift_0)"
 "(lifted-bind-rhs lift_0)))"
-" body_8)))))"
-"(values body_9)))))"
-"(if(not #f)(for-loop_4 body_7 rest_101) body_7)))"
-" body_6)))))"
-" for-loop_4)"
-" body_5"
-" lst_285)))))))"
+" body_7)))))"
+"(values body_0)))))"
+"(if(not #f)(for-loop_56 body_6 rest_156) body_6)))"
+" body_5)))))"
+" for-loop_56)"
+" body_4"
+" lst_276)))))))"
 "(define-values"
 "(wrap-lifts-as-begin16.1)"
-"(lambda(adjust-body10_0 adjust-body12_0 adjust-form9_0 adjust-form11_0 lifts13_0 body14_0 phase15_0)"
+"(lambda(adjust-body10_0 adjust-form9_0 lifts13_0 body14_0 phase15_0)"
 "(begin"
 " 'wrap-lifts-as-begin16"
 "(let-values(((lifts_4) lifts13_0))"
-"(let-values(((body_10) body14_0))"
-"(let-values(((phase_101) phase15_0))"
-"(let-values(((adjust-form_0)(if adjust-form11_0 adjust-form9_0 values)))"
-"(let-values(((adjust-body_0)(if adjust-body12_0 adjust-body10_0 values)))"
+"(let-values(((body_8) body14_0))"
+"(let-values(((phase_99) phase15_0))"
+"(let-values(((adjust-form_0)(if(eq? adjust-form9_0 unsafe-undefined) values adjust-form9_0)))"
+"(let-values(((adjust-body_0)(if(eq? adjust-body10_0 unsafe-undefined) values adjust-body10_0)))"
 "(let-values()"
 "(datum->syntax$1"
 " #f"
 "(cons"
-"(datum->syntax$1(syntax-shift-phase-level$1 core-stx phase_101) 'begin)"
+"(datum->syntax$1(syntax-shift-phase-level$1 core-stx phase_99) 'begin)"
 "(append"
 "(reverse$1"
-"(let-values(((lst_286) lifts_4))"
+"(let-values(((lst_277) lifts_4))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
-"(let-values()(check-list lst_286)))"
-"((letrec-values(((for-loop_199)"
-"(lambda(fold-var_237 lst_170)"
+"(let-values()(check-list lst_277)))"
+"((letrec-values(((for-loop_248)"
+"(lambda(fold-var_161 lst_166)"
 "(begin"
 " 'for-loop"
-"(if(pair? lst_170)"
-"(let-values(((lift_1)(unsafe-car lst_170))"
-"((rest_154)(unsafe-cdr lst_170)))"
-"(let-values(((fold-var_0)"
-"(let-values(((fold-var_238) fold-var_237))"
-"(let-values(((fold-var_239)"
+"(if(pair? lst_166)"
+"(let-values(((lift_1)(unsafe-car lst_166))"
+"((rest_157)(unsafe-cdr lst_166)))"
+"(let-values(((fold-var_162)"
+"(let-values(((fold-var_178) fold-var_161))"
+"(let-values(((fold-var_232)"
 "(let-values()"
 "(cons"
 "(let-values()"
@@ -38563,37 +37951,37 @@ static const char *startup_source =
 "(datum->syntax$1"
 "(syntax-shift-phase-level$1"
 " core-stx"
-" phase_101)"
+" phase_99)"
 " 'define-values)"
 "(lifted-bind-ids lift_1)"
 "(lifted-bind-rhs"
 " lift_1))))"
 "(let-values() lift_1))))"
-" fold-var_238))))"
-"(values fold-var_239)))))"
-"(if(not #f)(for-loop_199 fold-var_0 rest_154) fold-var_0)))"
-" fold-var_237)))))"
-" for-loop_199)"
+" fold-var_178))))"
+"(values fold-var_232)))))"
+"(if(not #f)(for-loop_248 fold-var_162 rest_157) fold-var_162)))"
+" fold-var_161)))))"
+" for-loop_248)"
 " null"
-" lst_286))))"
-"(list(adjust-body_0 body_10))))))))))))))"
+" lst_277))))"
+"(list(adjust-body_0 body_8))))))))))))))"
 "(define-values"
 "(get-lifts-as-lists)"
 "(lambda(lifts_5)"
 "(begin"
 "(reverse$1"
-"(let-values(((lst_195) lifts_5))"
+"(let-values(((lst_107) lifts_5))"
 "(begin"
-"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_195)))"
-"((letrec-values(((for-loop_255)"
-"(lambda(fold-var_101 lst_287)"
+"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_107)))"
+"((letrec-values(((for-loop_249)"
+"(lambda(fold-var_233 lst_278)"
 "(begin"
 " 'for-loop"
-"(if(pair? lst_287)"
-"(let-values(((lift_2)(unsafe-car lst_287))((rest_155)(unsafe-cdr lst_287)))"
-"(let-values(((fold-var_35)"
-"(let-values(((fold-var_240) fold-var_101))"
-"(let-values(((fold-var_241)"
+"(if(pair? lst_278)"
+"(let-values(((lift_2)(unsafe-car lst_278))((rest_158)(unsafe-cdr lst_278)))"
+"(let-values(((fold-var_38)"
+"(let-values(((fold-var_234) fold-var_233))"
+"(let-values(((fold-var_235)"
 "(let-values()"
 "(cons"
 "(let-values()"
@@ -38601,13 +37989,13 @@ static const char *startup_source =
 "(lifted-bind-ids lift_2)"
 "(lifted-bind-keys lift_2)"
 "(lifted-bind-rhs lift_2)))"
-" fold-var_240))))"
-"(values fold-var_241)))))"
-"(if(not #f)(for-loop_255 fold-var_35 rest_155) fold-var_35)))"
-" fold-var_101)))))"
-" for-loop_255)"
+" fold-var_234))))"
+"(values fold-var_235)))))"
+"(if(not #f)(for-loop_249 fold-var_38 rest_158) fold-var_38)))"
+" fold-var_233)))))"
+" for-loop_249)"
 " null"
-" lst_195)))))))"
+" lst_107)))))))"
 "(define-values"
 "(struct:module-lift-context"
 " module-lift-context19.1"
@@ -38615,7 +38003,7 @@ static const char *startup_source =
 " module-lift-context-wrt-phase"
 " module-lift-context-lifts"
 " module-lift-context-module*-ok?)"
-"(let-values(((struct:_74 make-_74 ?_74 -ref_74 -set!_74)"
+"(let-values(((struct:_75 make-_75 ?_75 -ref_75 -set!_75)"
 "(let-values()"
 "(let-values()"
 "(make-struct-type"
@@ -38631,33 +38019,33 @@ static const char *startup_source =
 " #f"
 " 'module-lift-context)))))"
 "(values"
-" struct:_74"
-" make-_74"
-" ?_74"
-"(make-struct-field-accessor -ref_74 0 'wrt-phase)"
-"(make-struct-field-accessor -ref_74 1 'lifts)"
-"(make-struct-field-accessor -ref_74 2 'module*-ok?))))"
+" struct:_75"
+" make-_75"
+" ?_75"
+"(make-struct-field-accessor -ref_75 0 'wrt-phase)"
+"(make-struct-field-accessor -ref_75 1 'lifts)"
+"(make-struct-field-accessor -ref_75 2 'module*-ok?))))"
 "(define-values"
 "(make-module-lift-context)"
-"(lambda(phase_102 module*-ok?_1)(begin(module-lift-context19.1 phase_102(box null) module*-ok?_1))))"
+"(lambda(phase_10 module*-ok?_1)(begin(module-lift-context19.1 phase_10(box null) module*-ok?_1))))"
 "(define-values"
 "(get-and-clear-module-lifts!)"
 "(lambda(module-lifts_1)(begin(box-clear!(module-lift-context-lifts module-lifts_1)))))"
 "(define-values"
 "(add-lifted-module!)"
-"(lambda(module-lifts_2 s_420 phase_103)"
+"(lambda(module-lifts_2 s_409 phase_100)"
 "(begin"
 "(begin"
-"(if(let-values(((or-part_214)"
+"(if(let-values(((or-part_171)"
 "(if(module-lift-context? module-lifts_2)"
 "(module-lift-context-module*-ok? module-lifts_2)"
 " #f)))"
-"(if or-part_214"
-" or-part_214"
+"(if or-part_171"
+" or-part_171"
 "(if(lift-context? module-lifts_2)(lift-context-module*-ok? module-lifts_2) #f)))"
 "(void)"
 "(let-values()"
-"(let-values(((tmp_30)(core-form-sym s_420 phase_103)))"
+"(let-values(((tmp_30)(core-form-sym s_409 phase_100)))"
 "(if(equal? tmp_30 'module)"
 "(let-values()(void))"
 "(if(equal? tmp_30 'module*)"
@@ -38666,13 +38054,13 @@ static const char *startup_source =
 " 'syntax-local-lift-module"
 "                     \"cannot lift `module*' to a top-level context\""
 "                     \"syntax\""
-" s_420))"
+" s_409))"
 "(let-values()"
-"                    (raise-arguments-error 'syntax-local-lift-module \"not a `module' declaration\" \"syntax\" s_420)))))))"
+"                    (raise-arguments-error 'syntax-local-lift-module \"not a `module' declaration\" \"syntax\" s_409)))))))"
 "(if(module-lift-context? module-lifts_2)"
-"(let-values()(box-cons!(module-lift-context-lifts module-lifts_2) s_420))"
+"(let-values()(box-cons!(module-lift-context-lifts module-lifts_2) s_409))"
 "(if(lift-context? module-lifts_2)"
-"(let-values()(box-cons!(lift-context-lifts module-lifts_2) s_420))"
+"(let-values()(box-cons!(lift-context-lifts module-lifts_2) s_409))"
 "            (let-values () (error \"internal error: unrecognized lift-context type for module lift\"))))))))"
 "(define-values"
 "(struct:require-lift-context"
@@ -38681,7 +38069,7 @@ static const char *startup_source =
 " require-lift-context-do-require"
 " require-lift-context-wrt-phase"
 " require-lift-context-requires)"
-"(let-values(((struct:_75 make-_75 ?_75 -ref_75 -set!_75)"
+"(let-values(((struct:_76 make-_76 ?_76 -ref_76 -set!_76)"
 "(let-values()"
 "(let-values()"
 "(make-struct-type"
@@ -38697,12 +38085,12 @@ static const char *startup_source =
 " #f"
 " 'require-lift-context)))))"
 "(values"
-" struct:_75"
-" make-_75"
-" ?_75"
-"(make-struct-field-accessor -ref_75 0 'do-require)"
-"(make-struct-field-accessor -ref_75 1 'wrt-phase)"
-"(make-struct-field-accessor -ref_75 2 'requires))))"
+" struct:_76"
+" make-_76"
+" ?_76"
+"(make-struct-field-accessor -ref_76 0 'do-require)"
+"(make-struct-field-accessor -ref_76 1 'wrt-phase)"
+"(make-struct-field-accessor -ref_76 2 'requires))))"
 "(define-values"
 "(make-require-lift-context)"
 "(lambda(wrt-phase_0 do-require_0)(begin(require-lift-context20.1 do-require_0 wrt-phase_0(box null)))))"
@@ -38711,11 +38099,11 @@ static const char *startup_source =
 "(lambda(require-lifts_1)(begin(box-clear!(require-lift-context-requires require-lifts_1)))))"
 "(define-values"
 "(add-lifted-require!)"
-"(lambda(require-lifts_2 s_421 phase_12)"
+"(lambda(require-lifts_2 s_410 phase_101)"
 "(begin"
 "(begin"
-"((require-lift-context-do-require require-lifts_2) s_421 phase_12)"
-"(box-cons!(require-lift-context-requires require-lifts_2) s_421)))))"
+"((require-lift-context-do-require require-lifts_2) s_410 phase_101)"
+"(box-cons!(require-lift-context-requires require-lifts_2) s_410)))))"
 "(define-values"
 "(struct:to-module-lift-context"
 " to-module-lift-context21.1"
@@ -38724,7 +38112,7 @@ static const char *startup_source =
 " to-module-lift-context-provides"
 " to-module-lift-context-end-as-expressions?"
 " to-module-lift-context-ends)"
-"(let-values(((struct:_76 make-_76 ?_76 -ref_76 -set!_76)"
+"(let-values(((struct:_77 make-_77 ?_77 -ref_77 -set!_77)"
 "(let-values()"
 "(let-values()"
 "(make-struct-type"
@@ -38740,22 +38128,22 @@ static const char *startup_source =
 " #f"
 " 'to-module-lift-context)))))"
 "(values"
-" struct:_76"
-" make-_76"
-" ?_76"
-"(make-struct-field-accessor -ref_76 0 'wrt-phase)"
-"(make-struct-field-accessor -ref_76 1 'provides)"
-"(make-struct-field-accessor -ref_76 2 'end-as-expressions?)"
-"(make-struct-field-accessor -ref_76 3 'ends))))"
+" struct:_77"
+" make-_77"
+" ?_77"
+"(make-struct-field-accessor -ref_77 0 'wrt-phase)"
+"(make-struct-field-accessor -ref_77 1 'provides)"
+"(make-struct-field-accessor -ref_77 2 'end-as-expressions?)"
+"(make-struct-field-accessor -ref_77 3 'ends))))"
 "(define-values"
 "(make-to-module-lift-context27.1)"
 "(lambda(end-as-expressions?23_0 shared-module-ends22_0 phase26_2)"
 "(begin"
 " 'make-to-module-lift-context27"
-"(let-values(((phase_104) phase26_2))"
+"(let-values(((phase_80) phase26_2))"
 "(let-values(((ends_0) shared-module-ends22_0))"
 "(let-values(((end-as-expressions?_0) end-as-expressions?23_0))"
-"(let-values()(to-module-lift-context21.1 phase_104(box null) end-as-expressions?_0 ends_0))))))))"
+"(let-values()(to-module-lift-context21.1 phase_80(box null) end-as-expressions?_0 ends_0))))))))"
 "(define-values(make-shared-module-ends)(lambda()(begin(box null))))"
 "(define-values"
 "(get-and-clear-end-lifts!)"
@@ -38765,12 +38153,11 @@ static const char *startup_source =
 "(lambda(to-module-lifts_2)(begin(box-clear!(to-module-lift-context-provides to-module-lifts_2)))))"
 "(define-values"
 "(add-lifted-to-module-provide!)"
-"(lambda(to-module-lifts_3 s_422 phase_105)"
-"(begin(box-cons!(to-module-lift-context-provides to-module-lifts_3) s_422))))"
+"(lambda(to-module-lifts_3 s_218 phase_94)"
+"(begin(box-cons!(to-module-lift-context-provides to-module-lifts_3) s_218))))"
 "(define-values"
 "(add-lifted-to-module-end!)"
-"(lambda(to-module-lifts_4 s_334 phase_106)"
-"(begin(box-cons!(to-module-lift-context-ends to-module-lifts_4) s_334))))"
+"(lambda(to-module-lifts_4 s_323 phase_3)(begin(box-cons!(to-module-lift-context-ends to-module-lifts_4) s_323))))"
 "(define-values"
 "(struct:already-expanded already-expanded1.1 already-expanded? already-expanded-s already-expanded-binding-layer)"
 "(let-values(((struct:_0 make-_0 ?_0 -ref_0 -set!_0)"
@@ -38822,20 +38209,20 @@ static const char *startup_source =
 "(lambda(v_26 info_1)"
 "(begin"
 "(if(if(list? v_26)"
-"(let-values(((lst_74) v_26))"
+"(let-values(((lst_75) v_26))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
-"(let-values()(check-list lst_74)))"
-"((letrec-values(((for-loop_97)"
-"(lambda(result_79 lst_75)"
+"(let-values()(check-list lst_75)))"
+"((letrec-values(((for-loop_94)"
+"(lambda(result_77 lst_76)"
 "(begin"
 " 'for-loop"
-"(if(pair? lst_75)"
-"(let-values(((s_2)(unsafe-car lst_75))((rest_34)(unsafe-cdr lst_75)))"
-"(let-values(((result_66)"
+"(if(pair? lst_76)"
+"(let-values(((s_2)(unsafe-car lst_76))((rest_35)(unsafe-cdr lst_76)))"
+"(let-values(((result_64)"
 "(let-values()"
-"(let-values(((result_120)"
+"(let-values(((result_117)"
 "(let-values()"
 "(let-values()"
 "(memq"
@@ -38845,14 +38232,14 @@ static const char *startup_source =
 " module"
 " module-begin"
 " definition-context))))))"
-"(values result_120)))))"
-"(if(if(not((lambda x_74(not result_66)) s_2))(not #f) #f)"
-"(for-loop_97 result_66 rest_34)"
-" result_66)))"
-" result_79)))))"
-" for-loop_97)"
+"(values result_117)))))"
+"(if(if(not((lambda x_76(not result_64)) s_2))(not #f) #f)"
+"(for-loop_94 result_64 rest_35)"
+" result_64)))"
+" result_77)))))"
+" for-loop_94)"
 " #t"
-" lst_74)))"
+" lst_75)))"
 " #f)"
 "(void)"
 "(let-values()"
@@ -38863,25 +38250,25 @@ static const char *startup_source =
 " v_26))))"
 "(define-values"
 "(not-in-this-expand-context?)"
-"(lambda(t_45 ctx_12)"
+"(lambda(t_46 ctx_12)"
 "(begin"
-"(if(expansion-contexts? t_45)"
-"(not(memq(context->symbol(expand-context-context ctx_12))(expansion-contexts-ref t_45)))"
+"(if(expansion-contexts? t_46)"
+"(not(memq(context->symbol(expand-context-context ctx_12))(expansion-contexts-ref t_46)))"
 " #f))))"
 "(define-values(context->symbol)(lambda(context_5)(begin(if(symbol? context_5) context_5 'definition-context))))"
 "(define-values"
 "(avoid-current-expand-context)"
-"(lambda(s_180 t_46 ctx_13)"
+"(lambda(s_178 t_47 ctx_13)"
 "(begin"
 "(let-values(((wrap_1)"
-"(lambda(sym_64)"
+"(lambda(sym_67)"
 "(begin"
 " 'wrap"
 "(datum->syntax$1"
 " #f"
 "(list"
-"(syntax-shift-phase-level$1(datum->syntax$1 core-stx sym_64)(expand-context-phase ctx_13))"
-" s_180))))))"
+"(syntax-shift-phase-level$1(datum->syntax$1 core-stx sym_67)(expand-context-phase ctx_13))"
+" s_178))))))"
 "(let-values(((fail_0)"
 "(lambda()"
 "(begin"
@@ -38891,12 +38278,12 @@ static const char *startup_source =
 "(format"
 "                            \"not allowed in context\\n  expansion context: ~a\""
 "(context->symbol(expand-context-context ctx_13)))"
-" s_180)))))"
+" s_178)))))"
 "(let-values(((tmp_31)(context->symbol(expand-context-context ctx_13))))"
 "(if(equal? tmp_31 'module-begin)"
 "(let-values()(wrap_1 'begin))"
 "(if(if(equal? tmp_31 'module) #t(if(equal? tmp_31 'top-level) #t(equal? tmp_31 'definition-context)))"
-"(let-values()(if(memq 'expression(expansion-contexts-ref t_46))(wrap_1 '#%expression)(fail_0)))"
+"(let-values()(if(memq 'expression(expansion-contexts-ref t_47))(wrap_1 '#%expression)(fail_0)))"
 "(let-values()(fail_0))))))))))"
 "(define-values"
 "(struct:reference-record"
@@ -38952,12 +38339,12 @@ static const char *startup_source =
 "(let-values(((lst_41) rrs_0))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_41)))"
-"((letrec-values(((for-loop_191)"
-"(lambda(lst_87)"
+"((letrec-values(((for-loop_250)"
+"(lambda(lst_89)"
 "(begin"
 " 'for-loop"
-"(if(pair? lst_87)"
-"(let-values(((rr_1)(unsafe-car lst_87))((rest_118)(unsafe-cdr lst_87)))"
+"(if(pair? lst_89)"
+"(let-values(((rr_1)(unsafe-car lst_89))((rest_120)(unsafe-cdr lst_89)))"
 "(let-values(((post-guard-var_0)(lambda()(begin 'post-guard-var #t))))"
 "(let-values()"
 "(if(reference-record-all-referenced? rr_1)"
@@ -38969,9 +38356,9 @@ static const char *startup_source =
 "(let-values()"
 "(set-reference-record-all-referenced?! rr_1 #t))"
 "(values)))))"
-"(if(post-guard-var_0)(for-loop_191 rest_118)(values))))))))"
+"(if(post-guard-var_0)(for-loop_250 rest_120)(values))))))))"
 "(values))))))"
-" for-loop_191)"
+" for-loop_250)"
 " lst_41)))"
 "(void)))))"
 "(define-values"
@@ -38984,41 +38371,41 @@ static const char *startup_source =
 "(let-values(((lst_23) keys_3))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_23)))"
-"((letrec-values(((for-loop_256)"
-"(lambda(ab_3 lst_78)"
+"((letrec-values(((for-loop_190)"
+"(lambda(ab_3 lst_79)"
 "(begin"
 " 'for-loop"
-"(if(pair? lst_78)"
-"(let-values(((key_79)(unsafe-car lst_78))((rest_141)(unsafe-cdr lst_78)))"
+"(if(pair? lst_79)"
+"(let-values(((key_78)(unsafe-car lst_79))((rest_84)(unsafe-cdr lst_79)))"
 "(let-values(((ab_4)"
 "(let-values(((ab_5) ab_3))"
-"(let-values(((ab_6)(let-values()(set-add ab_5 key_79))))"
+"(let-values(((ab_6)(let-values()(set-add ab_5 key_78))))"
 "(values ab_6)))))"
-"(if(not #f)(for-loop_256 ab_4 rest_141) ab_4)))"
+"(if(not #f)(for-loop_190 ab_4 rest_84) ab_4)))"
 " ab_3)))))"
-" for-loop_256)"
+" for-loop_190)"
 "(reference-record-already-bound rr_2)"
 " lst_23))))"
 "(set-reference-record-reference-before-bound!"
 " rr_2"
-"(let-values(((lst_274) keys_3))"
+"(let-values(((lst_58) keys_3))"
 "(begin"
-"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_274)))"
-"((letrec-values(((for-loop_257)"
+"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_58)))"
+"((letrec-values(((for-loop_82)"
 "(lambda(rbb_0 lst_24)"
 "(begin"
 " 'for-loop"
 "(if(pair? lst_24)"
-"(let-values(((key_80)(unsafe-car lst_24))((rest_156)(unsafe-cdr lst_24)))"
+"(let-values(((key_79)(unsafe-car lst_24))((rest_26)(unsafe-cdr lst_24)))"
 "(let-values(((rbb_1)"
 "(let-values(((rbb_2) rbb_0))"
-"(let-values(((rbb_3)(let-values()(set-remove rbb_2 key_80))))"
+"(let-values(((rbb_3)(let-values()(set-remove rbb_2 key_79))))"
 "(values rbb_3)))))"
-"(if(not #f)(for-loop_257 rbb_1 rest_156) rbb_1)))"
+"(if(not #f)(for-loop_82 rbb_1 rest_26) rbb_1)))"
 " rbb_0)))))"
-" for-loop_257)"
+" for-loop_82)"
 "(reference-record-reference-before-bound rr_2)"
-" lst_274))))))))"
+" lst_58))))))))"
 "(define-values"
 "(reference-record-forward-references?)"
 "(lambda(rr_3)"
@@ -39032,19 +38419,19 @@ static const char *startup_source =
 "(begin(set-reference-record-already-bound! rr_4 #f)(set-reference-record-reference-before-bound! rr_4 #f)))))"
 "(define-values"
 "(call-expand-observe)"
-"(lambda(obs_0 key_81 . args_5)"
+"(lambda(obs_0 key_80 . args_5)"
 "(begin"
 "(begin"
-"(let-values(((c1_29)(hash-ref key->arity key_81 #f)))"
-"(if c1_29"
+"(let-values(((c1_28)(hash-ref key->arity key_80 #f)))"
+"(if c1_28"
 "((lambda(arity_2)"
-"(if(let-values(((or-part_222)(eq? arity_2 'any)))"
-"(if or-part_222 or-part_222(eqv?(length args_5) arity_2)))"
+"(if(let-values(((or-part_131)(eq? arity_2 'any)))"
+"(if or-part_131 or-part_131(eqv?(length args_5) arity_2)))"
 "(void)"
-"                 (let-values () (error 'call-expand-observe \"wrong arity for ~s: ~e\" key_81 args_5))))"
-" c1_29)"
-"            (let-values () (error 'call-expand-observe \"bad key: ~s\" key_81))))"
-"(obs_0 key_81(if(null? args_5)(let-values() #f)(let-values()(apply list* args_5))))))))"
+"                 (let-values () (error 'call-expand-observe \"wrong arity for ~s: ~e\" key_80 args_5))))"
+" c1_28)"
+"            (let-values () (error 'call-expand-observe \"bad key: ~s\" key_80))))"
+"(obs_0 key_80(if(null? args_5)(let-values() #f)(let-values()(apply list* args_5))))))))"
 "(define-values"
 "(key->arity)"
 " '#hash((block->letrec . 1)"
@@ -39129,12 +38516,12 @@ static const char *startup_source =
 "(visit . 1)))"
 "(define-values"
 "(rebuild5.1)"
-"(lambda(track?1_0 track?2_0 orig-s3_0 new4_0)"
+"(lambda(track?1_0 orig-s3_0 new4_0)"
 "(begin"
 " 'rebuild5"
 "(let-values(((orig-s_30) orig-s3_0))"
 "(let-values(((new_2) new4_0))"
-"(let-values(((track?_0)(if track?2_0 track?1_0 #t)))"
+"(let-values(((track?_0) track?1_0))"
 "(let-values()"
 "(syntax-rearm$1"
 "(datum->syntax$1(syntax-disarm$1 orig-s_30) new_2 orig-s_30(if track?_0 orig-s_30 #f))"
@@ -39170,7 +38557,7 @@ static const char *startup_source =
 " semi-parsed-define-values-syms"
 " semi-parsed-define-values-ids"
 " semi-parsed-define-values-rhs)"
-"(let-values(((struct:_66 make-_66 ?_66 -ref_66 -set!_66)"
+"(let-values(((struct:_67 make-_67 ?_67 -ref_67 -set!_67)"
 "(let-values()"
 "(let-values()"
 "(make-struct-type"
@@ -39186,13 +38573,13 @@ static const char *startup_source =
 " #f"
 " 'semi-parsed-define-values)))))"
 "(values"
-" struct:_66"
-" make-_66"
-" ?_66"
-"(make-struct-field-accessor -ref_66 0 's)"
-"(make-struct-field-accessor -ref_66 1 'syms)"
-"(make-struct-field-accessor -ref_66 2 'ids)"
-"(make-struct-field-accessor -ref_66 3 'rhs))))"
+" struct:_67"
+" make-_67"
+" ?_67"
+"(make-struct-field-accessor -ref_67 0 's)"
+"(make-struct-field-accessor -ref_67 1 'syms)"
+"(make-struct-field-accessor -ref_67 2 'ids)"
+"(make-struct-field-accessor -ref_67 3 'rhs))))"
 "(define-values"
 "(struct:semi-parsed-begin-for-syntax"
 " semi-parsed-begin-for-syntax3.1"
@@ -39220,139 +38607,139 @@ static const char *startup_source =
 " ?_10"
 "(make-struct-field-accessor -ref_10 0 's)"
 "(make-struct-field-accessor -ref_10 1 'body))))"
-"(define-values(extract-syntax)(lambda(s_192)(begin(if(expanded+parsed? s_192)(expanded+parsed-s s_192) s_192))))"
+"(define-values(extract-syntax)(lambda(s_190)(begin(if(expanded+parsed? s_190)(expanded+parsed-s s_190) s_190))))"
 "(define-values"
 "(parsed-only)"
-"(lambda(l_71)"
+"(lambda(l_70)"
 "(begin"
 "(reverse$1"
-"(let-values(((lst_177) l_71))"
+"(let-values(((lst_174) l_70))"
 "(begin"
-"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_177)))"
+"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_174)))"
+"((letrec-values(((for-loop_246)"
+"(lambda(fold-var_5 lst_273)"
+"(begin"
+" 'for-loop"
+"(if(pair? lst_273)"
+"(let-values(((i_45)(unsafe-car lst_273))((rest_152)(unsafe-cdr lst_273)))"
+"(let-values(((fold-var_225)"
+"(let-values(((fold-var_226) fold-var_5))"
+"(if(let-values(((or-part_263)(parsed? i_45)))"
+"(if or-part_263"
+" or-part_263"
+"(let-values(((or-part_36)(expanded+parsed? i_45)))"
+"(if or-part_36"
+" or-part_36"
+"(semi-parsed-begin-for-syntax? i_45)))))"
+"(let-values(((fold-var_172) fold-var_226))"
+"(let-values(((fold-var_173)"
+"(let-values()"
+"(cons"
+"(let-values()"
+"(if(expanded+parsed? i_45)"
+"(let-values()"
+"(expanded+parsed-parsed i_45))"
+"(if(semi-parsed-begin-for-syntax? i_45)"
+"(let-values()"
+"(parsed-begin-for-syntax21.1"
+"(semi-parsed-begin-for-syntax-s i_45)"
+"(parsed-only"
+"(semi-parsed-begin-for-syntax-body"
+" i_45))))"
+"(let-values() i_45))))"
+" fold-var_172))))"
+"(values fold-var_173)))"
+" fold-var_226))))"
+"(if(not #f)(for-loop_246 fold-var_225 rest_152) fold-var_225)))"
+" fold-var_5)))))"
+" for-loop_246)"
+" null"
+" lst_174)))))))"
+"(define-values"
+"(syntax-only)"
+"(lambda(l_19)"
+"(begin"
+"(reverse$1"
+"(let-values(((lst_279) l_19))"
+"(begin"
+"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_279)))"
 "((letrec-values(((for-loop_251)"
-"(lambda(fold-var_5 lst_280)"
+"(lambda(fold-var_156 lst_280)"
 "(begin"
 " 'for-loop"
 "(if(pair? lst_280)"
-"(let-values(((i_28)(unsafe-car lst_280))((rest_151)(unsafe-cdr lst_280)))"
-"(let-values(((fold-var_227)"
-"(let-values(((fold-var_228) fold-var_5))"
-"(if(let-values(((or-part_259)(parsed? i_28)))"
-"(if or-part_259"
-" or-part_259"
-"(let-values(((or-part_34)(expanded+parsed? i_28)))"
-"(if or-part_34"
-" or-part_34"
-"(semi-parsed-begin-for-syntax? i_28)))))"
-"(let-values(((fold-var_159) fold-var_228))"
-"(let-values(((fold-var_177)"
-"(let-values()"
-"(cons"
-"(let-values()"
-"(if(expanded+parsed? i_28)"
-"(let-values()"
-"(expanded+parsed-parsed i_28))"
-"(if(semi-parsed-begin-for-syntax? i_28)"
-"(let-values()"
-"(parsed-begin-for-syntax21.1"
-"(semi-parsed-begin-for-syntax-s i_28)"
-"(parsed-only"
-"(semi-parsed-begin-for-syntax-body"
-" i_28))))"
-"(let-values() i_28))))"
-" fold-var_159))))"
-"(values fold-var_177)))"
-" fold-var_228))))"
-"(if(not #f)(for-loop_251 fold-var_227 rest_151) fold-var_227)))"
-" fold-var_5)))))"
-" for-loop_251)"
-" null"
-" lst_177)))))))"
-"(define-values"
-"(syntax-only)"
-"(lambda(l_72)"
-"(begin"
-"(reverse$1"
-"(let-values(((lst_282) l_72))"
-"(begin"
-"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_282)))"
-"((letrec-values(((for-loop_253)"
-"(lambda(fold-var_231 lst_283)"
-"(begin"
-" 'for-loop"
-"(if(pair? lst_283)"
-"(let-values(((i_36)(unsafe-car lst_283))((rest_152)(unsafe-cdr lst_283)))"
+"(let-values(((i_37)(unsafe-car lst_280))((rest_159)(unsafe-cdr lst_280)))"
 "(let-values(((fold-var_83)"
-"(let-values(((fold-var_84) fold-var_231))"
-"(if(let-values(((or-part_24)(syntax?$1 i_36)))"
+"(let-values(((fold-var_84) fold-var_156))"
+"(if(let-values(((or-part_24)(syntax?$1 i_37)))"
 "(if or-part_24"
 " or-part_24"
-"(let-values(((or-part_25)(expanded+parsed? i_36)))"
+"(let-values(((or-part_25)(expanded+parsed? i_37)))"
 "(if or-part_25"
 " or-part_25"
-"(semi-parsed-begin-for-syntax? i_36)))))"
+"(semi-parsed-begin-for-syntax? i_37)))))"
 "(let-values(((fold-var_85) fold-var_84))"
-"(let-values(((fold-var_242)"
+"(let-values(((fold-var_236)"
 "(let-values()"
 "(cons"
 "(let-values()"
-"(if(expanded+parsed? i_36)"
-"(let-values()(expanded+parsed-s i_36))"
-"(if(semi-parsed-begin-for-syntax? i_36)"
+"(if(expanded+parsed? i_37)"
+"(let-values()(expanded+parsed-s i_37))"
+"(if(semi-parsed-begin-for-syntax? i_37)"
 "(let-values()"
-"(let-values(((s_423)"
+"(let-values(((s_411)"
 "(semi-parsed-begin-for-syntax-s"
-" i_36)))"
+" i_37)))"
 "(let-values(((nested-bodys_0)"
 "(semi-parsed-begin-for-syntax-body"
-" i_36)))"
+" i_37)))"
 "(let-values(((disarmed-s_0)"
 "(syntax-disarm$1"
-" s_423)))"
-"(let-values(((ok?_27"
+" s_411)))"
+"(let-values(((ok?_28"
 " begin-for-syntax7_0"
 " _8_0)"
-"(let-values(((s_424)"
+"(let-values(((s_412)"
 " disarmed-s_0))"
 "(let-values(((orig-s_31)"
-" s_424))"
+" s_412))"
 "(let-values(((begin-for-syntax7_1"
 " _8_1)"
-"(let-values(((s_84)"
+"(let-values(((s_85)"
 "(if(syntax?$1"
-" s_424)"
+" s_412)"
 "(syntax-e$1"
-" s_424)"
-" s_424)))"
+" s_412)"
+" s_412)))"
 "(if(pair?"
-" s_84)"
+" s_85)"
 "(let-values(((begin-for-syntax9_0)"
 "(let-values(((s_28)"
 "(car"
-" s_84)))"
+" s_85)))"
 " s_28))"
 "((_10_0)"
 "(let-values(((s_29)"
 "(cdr"
-" s_84)))"
+" s_85)))"
 "(let-values(((s_30)"
 "(if(syntax?$1"
 " s_29)"
 "(syntax-e$1"
 " s_29)"
 " s_29)))"
-"(let-values(((flat-s_19)"
+"(let-values(((flat-s_20)"
 "(to-syntax-list.1"
 " s_30)))"
 "(if(not"
-" flat-s_19)"
+" flat-s_20)"
 "(let-values()"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                     \"bad syntax\""
 " orig-s_31))"
 "(let-values()"
-" flat-s_19)))))))"
+" flat-s_20)))))))"
 "(values"
 " begin-for-syntax9_0"
 " _10_0))"
@@ -39364,43 +38751,35 @@ static const char *startup_source =
 " #t"
 " begin-for-syntax7_1"
 " _8_1))))))"
-"(let-values(((s11_0) s_423)"
+"(let-values(((s11_0) s_411)"
 "((temp12_2)"
 "(list*"
 " begin-for-syntax7_0"
 "(syntax-only"
 " nested-bodys_0))))"
 "(rebuild5.1"
-" #f"
-" #f"
+" #t"
 " s11_0"
 " temp12_2)))))))"
-"(let-values() i_36))))"
+"(let-values() i_37))))"
 " fold-var_85))))"
-"(values fold-var_242)))"
+"(values fold-var_236)))"
 " fold-var_84))))"
-"(if(not #f)(for-loop_253 fold-var_83 rest_152) fold-var_83)))"
-" fold-var_231)))))"
-" for-loop_253)"
+"(if(not #f)(for-loop_251 fold-var_83 rest_159) fold-var_83)))"
+" fold-var_156)))))"
+" for-loop_251)"
 " null"
-" lst_282)))))))"
+" lst_279)))))))"
 "(define-values"
 "(expand9.1)"
-"(lambda(alternate-id1_0"
-" alternate-id4_0"
-" fail-non-transformer3_0"
-" fail-non-transformer6_0"
-" skip-log?2_0"
-" skip-log?5_0"
-" s7_2"
-" ctx8_0)"
+"(lambda(alternate-id1_0 fail-non-transformer3_0 skip-log?2_0 s7_0 ctx8_0)"
 "(begin"
 " 'expand9"
-"(let-values(((s_40) s7_2))"
+"(let-values(((s_413) s7_0))"
 "(let-values(((ctx_14) ctx8_0))"
-"(let-values(((alternate-id_0)(if alternate-id4_0 alternate-id1_0 #f)))"
-"(let-values(((skip-log?_0)(if skip-log?5_0 skip-log?2_0 #f)))"
-"(let-values(((fail-non-transformer_0)(if fail-non-transformer6_0 fail-non-transformer3_0 #f)))"
+"(let-values(((alternate-id_0) alternate-id1_0))"
+"(let-values(((skip-log?_0) skip-log?2_0))"
+"(let-values(((fail-non-transformer_0) fail-non-transformer3_0))"
 "(let-values()"
 "(begin"
 "(let-values(((obs_1)(expand-context-observer ctx_14)))"
@@ -39411,35 +38790,35 @@ static const char *startup_source =
 "(call-expand-observe"
 " obs_1"
 "(if(expand-context-only-immediate? ctx_14) 'enter-check 'visit)"
-" s_40))"
+" s_413))"
 "(void)))"
 "(void)))"
-"(if(syntax-identifier? s_40)"
-"(let-values()(expand-identifier s_40 ctx_14 alternate-id_0))"
-"(if(if(pair?(syntax-content s_40))(syntax-identifier?(car(syntax-content s_40))) #f)"
+"(if(syntax-identifier? s_413)"
+"(let-values()(expand-identifier s_413 ctx_14 alternate-id_0))"
+"(if(if(pair?(syntax-content s_413))(syntax-identifier?(car(syntax-content s_413))) #f)"
 "(let-values()"
-"(let-values(((s123_0) s_40)"
-"((ctx124_0) ctx_14)"
-"((alternate-id125_0) alternate-id_0)"
-"((fail-non-transformer126_0) fail-non-transformer_0))"
+"(let-values(((s122_0) s_413)"
+"((ctx123_0) ctx_14)"
+"((alternate-id124_0) alternate-id_0)"
+"((fail-non-transformer125_0) fail-non-transformer_0))"
 "(expand-id-application-form17.1"
-" fail-non-transformer126_0"
-" s123_0"
-" ctx124_0"
-" alternate-id125_0)))"
-"(if(let-values(((or-part_53)(pair?(syntax-content s_40))))"
-"(if or-part_53 or-part_53(null?(syntax-content s_40))))"
-"(let-values()(expand-implicit '#%app s_40 ctx_14 #f))"
-"(if(already-expanded?(syntax-content s_40))"
-"(let-values()(expand-already-expanded s_40 ctx_14))"
-"(let-values()(expand-implicit '#%datum s_40 ctx_14 #f))))))))))))))))"
+" fail-non-transformer125_0"
+" s122_0"
+" ctx123_0"
+" alternate-id124_0)))"
+"(if(let-values(((or-part_67)(pair?(syntax-content s_413))))"
+"(if or-part_67 or-part_67(null?(syntax-content s_413))))"
+"(let-values()(expand-implicit '#%app s_413 ctx_14 #f))"
+"(if(already-expanded?(syntax-content s_413))"
+"(let-values()(expand-already-expanded s_413 ctx_14))"
+"(let-values()(expand-implicit '#%datum s_413 ctx_14 #f))))))))))))))))"
 "(define-values"
 "(expand-identifier)"
-"(lambda(s_425 ctx_15 alternate-id_1)"
+"(lambda(s_414 ctx_15 alternate-id_1)"
 "(begin"
-"(let-values(((id_61)(let-values(((or-part_260) alternate-id_1))(if or-part_260 or-part_260 s_425))))"
+"(let-values(((id_60)(let-values(((or-part_264) alternate-id_1))(if or-part_264 or-part_264 s_414))))"
 "(if(if(not(free-id-set-empty?(expand-context-stops ctx_15)))"
-"(free-id-set-member?(expand-context-stops ctx_15)(expand-context-phase ctx_15) id_61)"
+"(free-id-set-member?(expand-context-stops ctx_15)(expand-context-phase ctx_15) id_60)"
 " #f)"
 "(let-values()"
 "(begin"
@@ -39449,75 +38828,74 @@ static const char *startup_source =
 "(if(not(expand-context-only-immediate? ctx_15))"
 "(let-values()"
 "(begin"
-"(call-expand-observe obs_2 'resolve id_61)"
-"(call-expand-observe obs_2 'enter-prim s_425)"
+"(call-expand-observe obs_2 'resolve id_60)"
+"(call-expand-observe obs_2 'enter-prim s_414)"
 "(call-expand-observe obs_2 'prim-stop)"
-"(call-expand-observe obs_2 'exit-prim s_425)"
-"(call-expand-observe obs_2 'return s_425)))"
+"(call-expand-observe obs_2 'exit-prim s_414)"
+"(call-expand-observe obs_2 'return s_414)))"
 "(void)))"
 "(void)))"
-" s_425))"
+" s_414))"
 "(let-values()"
 "(let-values(((binding_18)"
-"(let-values(((id127_0) id_61)"
-"((temp128_1)(expand-context-phase ctx_15))"
-"((temp129_0) 'ambiguous)"
-"((temp130_0) #t))"
-"(resolve+shift30.1 temp129_0 #t #f #f #f #f temp130_0 #t #f #f id127_0 temp128_1))))"
+"(let-values(((id126_0) id_60)"
+"((temp127_1)(expand-context-phase ctx_15))"
+"((temp128_1) 'ambiguous)"
+"((temp129_0) #t))"
+"(resolve+shift28.1 temp128_1 #f null temp129_0 #f id126_0 temp127_1))))"
 "(begin"
 "(let-values(((obs_3)(expand-context-observer ctx_15)))"
 "(if obs_3"
 "(let-values()"
 "(if(not(expand-context-only-immediate? ctx_15))"
-"(let-values()(call-expand-observe obs_3 'resolve id_61))"
+"(let-values()(call-expand-observe obs_3 'resolve id_60))"
 "(void)))"
 "(void)))"
 "(if(eq? binding_18 'ambiguous)"
-"(let-values()(raise-ambiguous-error id_61 ctx_15))"
+"(let-values()(raise-ambiguous-error id_60 ctx_15))"
 "(if(not binding_18)"
-"(let-values()(expand-implicit '#%top(substitute-alternate-id s_425 alternate-id_1) ctx_15 s_425))"
+"(let-values()(expand-implicit '#%top(substitute-alternate-id s_414 alternate-id_1) ctx_15 s_414))"
 "(let-values()"
-"(let-values(((t_47 primitive?_2 insp-of-t_0 protected?_3)"
-"(let-values(((binding139_0) binding_18)"
-"((ctx140_0) ctx_15)"
-"((id141_0) id_61)"
-"((temp142_0)(if alternate-id_1 s_425 #f))"
-"((temp143_0)(expand-context-in-local-expand? ctx_15)))"
-"(lookup62.1 temp142_0 #t temp143_0 #t binding139_0 ctx140_0 id141_0))))"
-"(let-values(((t131_0) t_47)"
-"((insp-of-t132_0) insp-of-t_0)"
-"((s133_0) s_425)"
-"((id134_0) id_61)"
-"((ctx135_0) ctx_15)"
-"((binding136_0) binding_18)"
-"((primitive?137_0) primitive?_2)"
-"((protected?138_0) protected?_3))"
+"(let-values(((t_48 primitive?_2 insp-of-t_0 protected?_3)"
+"(let-values(((binding138_0) binding_18)"
+"((ctx139_0) ctx_15)"
+"((id140_0) id_60)"
+"((temp141_0)(if alternate-id_1 s_414 #f))"
+"((temp142_0)(expand-context-in-local-expand? ctx_15)))"
+"(lookup62.1 temp141_0 temp142_0 binding138_0 ctx139_0 id140_0))))"
+"(let-values(((t130_0) t_48)"
+"((insp-of-t131_0) insp-of-t_0)"
+"((s132_0) s_414)"
+"((id133_0) id_60)"
+"((ctx134_0) ctx_15)"
+"((binding135_0) binding_18)"
+"((primitive?136_0) primitive?_2)"
+"((protected?137_0) protected?_3))"
 "(dispatch30.1"
 " #f"
-" #f"
-" t131_0"
-" insp-of-t132_0"
-" s133_0"
-" id134_0"
-" ctx135_0"
-" binding136_0"
-" primitive?137_0"
-" protected?138_0))))))))))))))"
+" t130_0"
+" insp-of-t131_0"
+" s132_0"
+" id133_0"
+" ctx134_0"
+" binding135_0"
+" primitive?136_0"
+" protected?137_0))))))))))))))"
 "(define-values"
 "(expand-id-application-form17.1)"
 "(lambda(fail-non-transformer12_0 s14_0 ctx15_0 alternate-id16_0)"
 "(begin"
 " 'expand-id-application-form17"
-"(let-values(((s_426) s14_0))"
+"(let-values(((s_70) s14_0))"
 "(let-values(((ctx_16) ctx15_0))"
 "(let-values(((alternate-id_2) alternate-id16_0))"
 "(let-values(((fail-non-transformer_1) fail-non-transformer12_0))"
 "(let-values()"
-"(let-values(((id_62)"
-"(let-values(((or-part_133) alternate-id_2))"
-"(if or-part_133 or-part_133(car(syntax-e/no-taint s_426))))))"
+"(let-values(((id_61)"
+"(let-values(((or-part_141) alternate-id_2))"
+"(if or-part_141 or-part_141(car(syntax-e/no-taint s_70))))))"
 "(if(if(not(free-id-set-empty?(expand-context-stops ctx_16)))"
-"(free-id-set-member?(expand-context-stops ctx_16)(expand-context-phase ctx_16) id_62)"
+"(free-id-set-member?(expand-context-stops ctx_16)(expand-context-phase ctx_16) id_61)"
 " #f)"
 "(let-values()"
 "(begin"
@@ -39527,105 +38905,92 @@ static const char *startup_source =
 "(if(not(expand-context-only-immediate? ctx_16))"
 "(let-values()"
 "(begin"
-"(call-expand-observe obs_4 'resolve id_62)"
-"(call-expand-observe obs_4 'enter-prim s_426)"
+"(call-expand-observe obs_4 'resolve id_61)"
+"(call-expand-observe obs_4 'enter-prim s_70)"
 "(call-expand-observe obs_4 'prim-stop)"
-"(call-expand-observe obs_4 'exit-prim s_426)"
-"(call-expand-observe obs_4 'return s_426)))"
+"(call-expand-observe obs_4 'exit-prim s_70)"
+"(call-expand-observe obs_4 'return s_70)))"
 "(void)))"
 "(void)))"
-" s_426))"
+" s_70))"
 "(let-values()"
-"(let-values(((binding_19)"
-"(let-values(((id144_0) id_62)"
-"((temp145_0)(expand-context-phase ctx_16))"
-"((temp146_0) 'ambiguous)"
-"((temp147_0) #t))"
-"(resolve+shift30.1"
-" temp146_0"
-" #t"
-" #f"
-" #f"
-" #f"
-" #f"
-" temp147_0"
-" #t"
-" #f"
-" #f"
-" id144_0"
-" temp145_0))))"
+"(let-values(((binding_0)"
+"(let-values(((id143_0) id_61)"
+"((temp144_0)(expand-context-phase ctx_16))"
+"((temp145_0) 'ambiguous)"
+"((temp146_0) #t))"
+"(resolve+shift28.1 temp145_0 #f null temp146_0 #f id143_0 temp144_0))))"
 "(begin"
 "(let-values(((obs_5)(expand-context-observer ctx_16)))"
 "(if obs_5"
 "(let-values()"
 "(if(not(expand-context-only-immediate? ctx_16))"
-"(let-values()(call-expand-observe obs_5 'resolve id_62))"
+"(let-values()(call-expand-observe obs_5 'resolve id_61))"
 "(void)))"
 "(void)))"
-"(if(eq? binding_19 'ambiguous)"
+"(if(eq? binding_0 'ambiguous)"
 "(let-values()"
 "(begin"
 "(if fail-non-transformer_1(let-values()(fail-non-transformer_1))(void))"
-"(raise-ambiguous-error id_62 ctx_16)))"
-"(if(not binding_19)"
+"(raise-ambiguous-error id_61 ctx_16)))"
+"(if(not binding_0)"
 "(let-values()"
 "(begin"
 "(if fail-non-transformer_1(let-values()(fail-non-transformer_1))(void))"
-"(expand-implicit '#%app(substitute-alternate-id s_426 alternate-id_2) ctx_16 id_62)))"
+"(expand-implicit '#%app(substitute-alternate-id s_70 alternate-id_2) ctx_16 id_61)))"
 "(let-values()"
-"(let-values(((t_48 primitive?_3 insp-of-t_1 protected?_4)"
-"(let-values(((binding148_0) binding_19)"
-"((ctx149_0) ctx_16)"
-"((id150_0) id_62)"
-"((temp151_0)"
-"(if alternate-id_2(car(syntax-e/no-taint s_426)) #f))"
-"((temp152_1)(expand-context-in-local-expand? ctx_16)))"
-"(lookup62.1 temp151_0 #t temp152_1 #t binding148_0 ctx149_0 id150_0))))"
-"(if(variable? t_48)"
+"(let-values(((t_49 primitive?_3 insp-of-t_1 protected?_4)"
+"(let-values(((binding147_0) binding_0)"
+"((ctx148_0) ctx_16)"
+"((id149_0) id_61)"
+"((temp150_0)"
+"(if alternate-id_2(car(syntax-e/no-taint s_70)) #f))"
+"((temp151_0)(expand-context-in-local-expand? ctx_16)))"
+"(lookup62.1 temp150_0 temp151_0 binding147_0 ctx148_0 id149_0))))"
+"(if(variable? t_49)"
 "(let-values()"
 "(begin"
 "(if fail-non-transformer_1(let-values()(fail-non-transformer_1))(void))"
 "(expand-implicit"
 " '#%app"
-"(substitute-alternate-id s_426 alternate-id_2)"
+"(substitute-alternate-id s_70 alternate-id_2)"
 " ctx_16"
-" id_62)))"
+" id_61)))"
 "(let-values()"
-"(let-values(((t153_0) t_48)"
-"((insp-of-t154_0) insp-of-t_1)"
-"((s155_0) s_426)"
-"((id156_0) id_62)"
-"((ctx157_0) ctx_16)"
-"((binding158_0) binding_19)"
-"((primitive?159_0) primitive?_3)"
-"((protected?160_0) protected?_4)"
-"((fail-non-transformer161_0) fail-non-transformer_1))"
+"(let-values(((t152_0) t_49)"
+"((insp-of-t153_0) insp-of-t_1)"
+"((s154_0) s_70)"
+"((id155_0) id_61)"
+"((ctx156_0) ctx_16)"
+"((binding157_0) binding_0)"
+"((primitive?158_0) primitive?_3)"
+"((protected?159_0) protected?_4)"
+"((fail-non-transformer160_0) fail-non-transformer_1))"
 "(dispatch30.1"
-" fail-non-transformer161_0"
-" #t"
-" t153_0"
-" insp-of-t154_0"
-" s155_0"
-" id156_0"
-" ctx157_0"
-" binding158_0"
-" primitive?159_0"
-" protected?160_0)))))))))))))))))))))"
+" fail-non-transformer160_0"
+" t152_0"
+" insp-of-t153_0"
+" s154_0"
+" id155_0"
+" ctx156_0"
+" binding157_0"
+" primitive?158_0"
+" protected?159_0)))))))))))))))))))))"
 "(define-values"
 "(expand-implicit)"
-"(lambda(sym_51 s_53 ctx_17 trigger-id_1)"
+"(lambda(sym_68 s_52 ctx_17 trigger-id_1)"
 "(begin"
 "(if(expand-context-only-immediate? ctx_17)"
 "(let-values()"
 "(begin"
 "(let-values(((obs_6)(expand-context-observer ctx_17)))"
-"(if obs_6(let-values()(let-values()(call-expand-observe obs_6 'exit-check s_53)))(void)))"
-" s_53))"
+"(if obs_6(let-values()(let-values()(call-expand-observe obs_6 'exit-check s_52)))(void)))"
+" s_52))"
 "(let-values()"
-"(let-values(((disarmed-s_1)(syntax-disarm$1 s_53)))"
-"(let-values(((id_63)(datum->syntax$1 disarmed-s_1 sym_51)))"
+"(let-values(((disarmed-s_1)(syntax-disarm$1 s_52)))"
+"(let-values(((id_62)(datum->syntax$1 disarmed-s_1 sym_68)))"
 "(if(if(not(free-id-set-empty?(expand-context-stops ctx_17)))"
-"(free-id-set-member?(expand-context-stops ctx_17)(expand-context-phase ctx_17) id_63)"
+"(free-id-set-member?(expand-context-stops ctx_17)(expand-context-phase ctx_17) id_62)"
 " #f)"
 "(let-values()"
 "(begin"
@@ -39635,85 +39000,85 @@ static const char *startup_source =
 "(if(not(expand-context-only-immediate? ctx_17))"
 "(let-values()"
 "(begin"
-"(call-expand-observe obs_7 'resolve id_63)"
-"(call-expand-observe obs_7 'enter-prim s_53)"
+"(call-expand-observe obs_7 'resolve id_62)"
+"(call-expand-observe obs_7 'enter-prim s_52)"
 "(call-expand-observe obs_7 'prim-stop)"
-"(call-expand-observe obs_7 'exit-prim s_53)"
-"(call-expand-observe obs_7 'return s_53)))"
+"(call-expand-observe obs_7 'exit-prim s_52)"
+"(call-expand-observe obs_7 'return s_52)))"
 "(void)))"
 "(void)))"
-" s_53))"
+" s_52))"
 "(let-values()"
 "(let-values((()"
 "(begin"
 "(let-values(((obs_8)(expand-context-observer ctx_17)))"
 "(if obs_8"
-"(let-values()(let-values()(call-expand-observe obs_8 'resolve id_63)))"
+"(let-values()(let-values()(call-expand-observe obs_8 'resolve id_62)))"
 "(void)))"
 "(values))))"
-"(let-values(((b_79)"
-"(let-values(((id162_0) id_63)"
-"((temp163_1)(expand-context-phase ctx_17))"
-"((temp164_0) 'ambiguous)"
-"((temp165_2) #t))"
-"(resolve+shift30.1 temp164_0 #t #f #f #f #f temp165_2 #t #f #f id162_0 temp163_1))))"
-"(if(eq? b_79 'ambiguous)"
-"(let-values()(raise-ambiguous-error id_63 ctx_17))"
+"(let-values(((b_78)"
+"(let-values(((id161_0) id_62)"
+"((temp162_1)(expand-context-phase ctx_17))"
+"((temp163_2) 'ambiguous)"
+"((temp164_0) #t))"
+"(resolve+shift28.1 temp163_2 #f null temp164_0 #f id161_0 temp162_1))))"
+"(if(eq? b_78 'ambiguous)"
+"(let-values()(raise-ambiguous-error id_62 ctx_17))"
 "(let-values()"
-"(let-values(((t_49 primitive?_4 insp-of-t_2 protected?_5)"
-"(if b_79"
-"(let-values(((b166_0) b_79)((ctx167_0) ctx_17)((id168_0) id_63))"
-"(lookup62.1 #f #f #f #f b166_0 ctx167_0 id168_0))"
+"(let-values(((t_50 primitive?_4 insp-of-t_2 protected?_5)"
+"(if b_78"
+"(let-values(((b165_0) b_78)((ctx166_0) ctx_17)((id167_0) id_62))"
+"(lookup62.1 #f #f b165_0 ctx166_0 id167_0))"
 "(values #f #f #f #f))))"
-"(if(transformer? t_49)"
+"(if(transformer? t_50)"
 "(let-values()"
 "(let-values(((fail-non-transformer_2)"
-"(if(1/rename-transformer? t_49)"
+"(if(1/rename-transformer? t_50)"
 "(lambda()"
 "(begin"
 " 'fail-non-transformer"
-"(raise-syntax-implicit-error s_53 sym_51 trigger-id_1 ctx_17)))"
+"(raise-syntax-implicit-error s_52 sym_68 trigger-id_1 ctx_17)))"
 " #f)))"
-"(let-values(((t169_0) t_49)"
-"((insp-of-t170_0) insp-of-t_2)"
-"((temp171_1)(make-explicit ctx_17 sym_51 s_53 disarmed-s_1))"
-"((id172_1) id_63)"
-"((ctx173_0) ctx_17)"
-"((b174_0) b_79)"
-"((fail-non-transformer175_0) fail-non-transformer_2))"
+"(let-values(((t168_0) t_50)"
+"((insp-of-t169_0) insp-of-t_2)"
+"((temp170_1)(make-explicit ctx_17 sym_68 s_52 disarmed-s_1))"
+"((id171_1) id_62)"
+"((ctx172_0) ctx_17)"
+"((b173_0) b_78)"
+"((fail-non-transformer174_0) fail-non-transformer_2))"
 "(dispatch-transformer41.1"
-" fail-non-transformer175_0"
-" t169_0"
-" insp-of-t170_0"
-" temp171_1"
-" id172_1"
-" ctx173_0"
-" b174_0))))"
-"(if(core-form? t_49)"
+" fail-non-transformer174_0"
+" t168_0"
+" insp-of-t169_0"
+" temp170_1"
+" id171_1"
+" ctx172_0"
+" b173_0))))"
+"(if(core-form? t_50)"
 "(let-values()"
-"(if(if(eq? sym_51 '#%top)"
-"(if(eq?(core-form-name t_49) '#%top)"
+"(if(if(eq? sym_68 '#%top)"
+"(if(eq?(core-form-name t_50) '#%top)"
 "(expand-context-in-local-expand? ctx_17)"
 " #f)"
 " #f)"
-"(let-values()(dispatch-implicit-#%top-core-form t_49 s_53 ctx_17))"
+"(let-values()(dispatch-implicit-#%top-core-form t_50 s_52 ctx_17))"
 "(let-values()"
 "(dispatch-core-form"
-" t_49"
-"(make-explicit ctx_17 sym_51 s_53 disarmed-s_1)"
+" t_50"
+"(make-explicit ctx_17 sym_68 s_52 disarmed-s_1)"
 " ctx_17))))"
 "(let-values()"
 "(let-values(((tl-id_0)"
-"(if(eq? sym_51 '#%top)"
+"(if(eq? sym_68 '#%top)"
 "(if(root-expand-context-top-level-bind-scope ctx_17)"
-"(add-scope s_53(root-expand-context-top-level-bind-scope ctx_17))"
+"(add-scope s_52(root-expand-context-top-level-bind-scope ctx_17))"
 " #f)"
 " #f)))"
 "(let-values(((tl-b_0)"
 "(if tl-id_0"
-"(let-values(((tl-id176_0) tl-id_0)"
-"((temp177_0)(expand-context-phase ctx_17)))"
-"(resolve41.1 #f #f #f #f #f #f #f #f tl-id176_0 temp177_0))"
+"(let-values(((tl-id175_0) tl-id_0)"
+"((temp176_0)(expand-context-phase ctx_17)))"
+"(resolve40.1 #f #f null #f tl-id175_0 temp176_0))"
 " #f)))"
 "(if tl-b_0"
 "(let-values()"
@@ -39724,25 +39089,25 @@ static const char *startup_source =
 " tl-id_0))"
 "(let-values()"
 "(raise-syntax-implicit-error"
-" s_53"
-" sym_51"
+" s_52"
+" sym_68"
 " trigger-id_1"
 " ctx_17))))))))))))))))))))))"
 "(define-values"
 "(expand-already-expanded)"
-"(lambda(s_427 ctx_18)"
+"(lambda(s_59 ctx_18)"
 "(begin"
-"(let-values(((ae_0)(syntax-e$1 s_427)))"
+"(let-values(((ae_0)(syntax-e$1 s_59)))"
 "(let-values(((exp-s_0)(already-expanded-s ae_0)))"
 "(begin"
-"(if(let-values(((or-part_261)(syntax-any-macro-scopes? s_427)))"
-"(if or-part_261"
-" or-part_261"
-"(let-values(((or-part_262)"
+"(if(let-values(((or-part_265)(syntax-any-macro-scopes? s_59)))"
+"(if or-part_265"
+" or-part_265"
+"(let-values(((or-part_215)"
 "(not"
 "(eq?(expand-context-binding-layer ctx_18)(already-expanded-binding-layer ae_0)))))"
-"(if or-part_262"
-" or-part_262"
+"(if or-part_215"
+" or-part_215"
 "(if(parsed? exp-s_0)"
 "(not"
 "(if(expand-context-to-parsed? ctx_18)"
@@ -39758,97 +39123,88 @@ static const char *startup_source =
 "(if(not(parsed? exp-s_0)) exp-s_0 #f)))"
 "(void))"
 "(if(expand-context-only-immediate? ctx_18)"
-"(let-values() s_427)"
+"(let-values() s_59)"
 "(if(parsed? exp-s_0)"
 "(let-values() exp-s_0)"
 "(let-values()"
-"(let-values(((result-s_1)(syntax-track-origin$1 exp-s_0 s_427)))"
+"(let-values(((result-s_1)(syntax-track-origin$1 exp-s_0 s_59)))"
 "(begin"
 "(let-values(((obs_9)(expand-context-observer ctx_18)))"
 "(if obs_9"
 "(let-values()(let-values()(call-expand-observe obs_9 'opaque-expr result-s_1)))"
 "(void)))"
 "(if(if(expand-context-to-parsed? ctx_18)(free-id-set-empty?(expand-context-stops ctx_18)) #f)"
-"(let-values(((result-s178_0) result-s_1)((ctx179_0) ctx_18))"
-"(expand9.1 #f #f #f #f #f #f result-s178_0 ctx179_0))"
+"(let-values(((result-s177_0) result-s_1)((ctx178_0) ctx_18))"
+"(expand9.1 #f #f #f result-s177_0 ctx178_0))"
 " result-s_1))))))))))))"
 "(define-values"
 "(make-explicit)"
-"(lambda(ctx_19 sym_65 s_428 disarmed-s_2)"
+"(lambda(ctx_19 sym_69 s_415 disarmed-s_2)"
 "(begin"
 "(let-values(((new-s_0)"
-"(syntax-rearm$1(datum->syntax$1 disarmed-s_2(cons sym_65 disarmed-s_2) s_428 s_428) s_428)))"
+"(syntax-rearm$1(datum->syntax$1 disarmed-s_2(cons sym_69 disarmed-s_2) s_415 s_415) s_415)))"
 "(begin"
 "(let-values(((obs_10)(expand-context-observer ctx_19)))"
 "(if obs_10(let-values()(let-values()(call-expand-observe obs_10 'tag new-s_0)))(void)))"
 " new-s_0)))))"
 "(define-values"
 "(dispatch30.1)"
-"(lambda(fail-non-transformer20_0"
-" fail-non-transformer21_0"
-" t22_0"
-" insp-of-t23_0"
-" s24_2"
-" id25_1"
-" ctx26_0"
-" binding27_1"
-" primitive?28_0"
-" protected?29_0)"
+"(lambda(fail-non-transformer20_0 t22_0 insp-of-t23_0 s24_1 id25_1 ctx26_0 binding27_1 primitive?28_0 protected?29_0)"
 "(begin"
 " 'dispatch30"
-"(let-values(((t_50) t22_0))"
+"(let-values(((t_51) t22_0))"
 "(let-values(((insp-of-t_3) insp-of-t23_0))"
-"(let-values(((s_37) s24_2))"
-"(let-values(((id_64) id25_1))"
+"(let-values(((s_416) s24_1))"
+"(let-values(((id_63) id25_1))"
 "(let-values(((ctx_20) ctx26_0))"
-"(let-values(((binding_20) binding27_1))"
+"(let-values(((binding_19) binding27_1))"
 "(let-values(((primitive?_5) primitive?28_0))"
 "(let-values(((protected?_6) protected?29_0))"
-"(let-values(((fail-non-transformer_3)(if fail-non-transformer21_0 fail-non-transformer20_0 #f)))"
+"(let-values(((fail-non-transformer_3) fail-non-transformer20_0))"
 "(let-values()"
-"(if(core-form? t_50)"
-"(let-values()(dispatch-core-form t_50 s_37 ctx_20))"
-"(if(transformer? t_50)"
+"(if(core-form? t_51)"
+"(let-values()(dispatch-core-form t_51 s_416 ctx_20))"
+"(if(transformer? t_51)"
 "(let-values()"
-"(let-values(((t180_0) t_50)"
-"((insp-of-t181_0) insp-of-t_3)"
-"((s182_0) s_37)"
-"((id183_0) id_64)"
-"((ctx184_0) ctx_20)"
-"((binding185_0) binding_20)"
-"((fail-non-transformer186_0) fail-non-transformer_3))"
+"(let-values(((t179_0) t_51)"
+"((insp-of-t180_0) insp-of-t_3)"
+"((s181_0) s_416)"
+"((id182_0) id_63)"
+"((ctx183_0) ctx_20)"
+"((binding184_0) binding_19)"
+"((fail-non-transformer185_0) fail-non-transformer_3))"
 "(dispatch-transformer41.1"
-" fail-non-transformer186_0"
-" t180_0"
-" insp-of-t181_0"
-" s182_0"
-" id183_0"
-" ctx184_0"
-" binding185_0)))"
-"(if(variable? t_50)"
+" fail-non-transformer185_0"
+" t179_0"
+" insp-of-t180_0"
+" s181_0"
+" id182_0"
+" ctx183_0"
+" binding184_0)))"
+"(if(variable? t_51)"
 "(let-values()"
-"(dispatch-variable t_50 s_37 id_64 ctx_20 binding_20 primitive?_5 protected?_6))"
-"                                (let-values () (raise-syntax-error$1 #f \"illegal use of syntax\" s_37))))))))))))))))))"
+"(dispatch-variable t_51 s_416 id_63 ctx_20 binding_19 primitive?_5 protected?_6))"
+"                                (let-values () (raise-syntax-error$1 #f \"illegal use of syntax\" s_416))))))))))))))))))"
 "(define-values"
 "(dispatch-core-form)"
-"(lambda(t_51 s_39 ctx_21)"
+"(lambda(t_52 s_159 ctx_21)"
 "(begin"
 "(if(expand-context-only-immediate? ctx_21)"
 "(let-values()"
 "(begin"
 "(let-values(((obs_11)(expand-context-observer ctx_21)))"
-"(if obs_11(let-values()(let-values()(call-expand-observe obs_11 'exit-check s_39)))(void)))"
-" s_39))"
+"(if obs_11(let-values()(let-values()(call-expand-observe obs_11 'exit-check s_159)))(void)))"
+" s_159))"
 "(if(expand-context-observer ctx_21)"
 "(let-values()"
 "(let-values((()"
 "(begin"
 "(let-values(((obs_12)(expand-context-observer ctx_21)))"
 "(if obs_12"
-"(let-values()(let-values()(call-expand-observe obs_12 'enter-prim s_39)))"
+"(let-values()(let-values()(call-expand-observe obs_12 'enter-prim s_159)))"
 "(void)))"
 "(values))))"
-"(let-values(((result-s_2)((core-form-expander t_51) s_39 ctx_21)))"
+"(let-values(((result-s_2)((core-form-expander t_52) s_159 ctx_21)))"
 "(begin"
 "(let-values(((obs_13)(expand-context-observer ctx_21)))"
 "(if obs_13"
@@ -39859,19 +39215,19 @@ static const char *startup_source =
 "(call-expand-observe obs_13 'return(extract-syntax result-s_2)))))"
 "(void)))"
 " result-s_2))))"
-"(let-values()((core-form-expander t_51) s_39 ctx_21)))))))"
+"(let-values()((core-form-expander t_52) s_159 ctx_21)))))))"
 "(define-values"
 "(dispatch-implicit-#%top-core-form)"
-"(lambda(t_52 s_160 ctx_22)"
+"(lambda(t_53 s_319 ctx_22)"
 "(begin"
 "(let-values((()"
 "(begin"
 "(let-values(((obs_14)(expand-context-observer ctx_22)))"
 "(if obs_14"
-"(let-values()(let-values()(call-expand-observe obs_14 'enter-prim s_160)))"
+"(let-values()(let-values()(call-expand-observe obs_14 'enter-prim s_319)))"
 "(void)))"
 "(values))))"
-"(let-values(((result-s_3)((core-form-expander t_52) s_160 ctx_22 #t)))"
+"(let-values(((result-s_3)((core-form-expander t_53) s_319 ctx_22 #t)))"
 "(begin"
 "(let-values(((obs_15)(expand-context-observer ctx_22)))"
 "(if obs_15"
@@ -39887,42 +39243,42 @@ static const char *startup_source =
 "(lambda(fail-non-transformer33_0 t35_0 insp-of-t36_0 s37_0 id38_0 ctx39_0 binding40_0)"
 "(begin"
 " 'dispatch-transformer41"
-"(let-values(((t_53) t35_0))"
+"(let-values(((t_54) t35_0))"
 "(let-values(((insp-of-t_4) insp-of-t36_0))"
-"(let-values(((s_429) s37_0))"
-"(let-values(((id_65) id38_0))"
+"(let-values(((s_160) s37_0))"
+"(let-values(((id_64) id38_0))"
 "(let-values(((ctx_23) ctx39_0))"
-"(let-values(((binding_21) binding40_0))"
+"(let-values(((binding_20) binding40_0))"
 "(let-values(((fail-non-transformer_4) fail-non-transformer33_0))"
 "(let-values()"
-"(if(not-in-this-expand-context? t_53 ctx_23)"
+"(if(not-in-this-expand-context? t_54 ctx_23)"
 "(let-values()"
 "(let-values((()"
 "(begin"
 "(let-values(((obs_16)(expand-context-observer ctx_23)))"
 "(if obs_16"
 "(let-values()"
-"(let-values()(call-expand-observe obs_16 'enter-macro s_429)))"
+"(let-values()(call-expand-observe obs_16 'enter-macro s_160)))"
 "(void)))"
 "(values))))"
 "(let-values(((adj-s_0)"
 "(avoid-current-expand-context"
-"(substitute-alternate-id s_429 id_65)"
-" t_53"
+"(substitute-alternate-id s_160 id_64)"
+" t_54"
 " ctx_23)))"
 "(begin"
 "(let-values(((obs_17)(expand-context-observer ctx_23)))"
 "(if obs_17"
-"(let-values()(let-values()(call-expand-observe obs_17 'exit-macro s_429)))"
+"(let-values()(let-values()(call-expand-observe obs_17 'exit-macro s_160)))"
 "(void)))"
-"(let-values(((adj-s187_0) adj-s_0)((ctx188_0) ctx_23))"
-"(expand9.1 #f #f #f #f #f #f adj-s187_0 ctx188_0))))))"
+"(let-values(((adj-s186_0) adj-s_0)((ctx187_0) ctx_23))"
+"(expand9.1 #f #f #f adj-s186_0 ctx187_0))))))"
 "(if(expand-context-should-not-encounter-macros? ctx_23)"
 "(let-values()"
 "(raise-syntax-error$1"
 " #f"
 "                             \"encountered a macro binding in form that should be fully expanded\""
-" s_429))"
+" s_160))"
 "(let-values()"
 "(let-values((()"
 "(begin"
@@ -39930,39 +39286,38 @@ static const char *startup_source =
 "(if obs_18"
 "(let-values()"
 "(if(if(expand-context-only-immediate? ctx_23)"
-"(not(1/rename-transformer? t_53))"
+"(not(1/rename-transformer? t_54))"
 " #f)"
 "(let-values()"
 "(begin"
-"(call-expand-observe obs_18 'visit s_429)"
-"(call-expand-observe obs_18 'resolve id_65)))"
+"(call-expand-observe obs_18 'visit s_160)"
+"(call-expand-observe obs_18 'resolve id_64)))"
 "(void)))"
 "(void)))"
 "(values))))"
 "(let-values(((exp-s_1 re-ctx_0)"
-"(if(1/rename-transformer? t_53)"
-"(values s_429 ctx_23)"
-"(let-values(((t189_0) t_53)"
-"((insp-of-t190_0) insp-of-t_4)"
-"((s191_0) s_429)"
-"((id192_0) id_65)"
-"((ctx193_0) ctx_23)"
-"((binding194_0) binding_21))"
+"(if(1/rename-transformer? t_54)"
+"(values s_160 ctx_23)"
+"(let-values(((t188_0) t_54)"
+"((insp-of-t189_0) insp-of-t_4)"
+"((s190_0) s_160)"
+"((id191_0) id_64)"
+"((ctx192_0) ctx_23)"
+"((binding193_0) binding_20))"
 "(apply-transformer52.1"
 " #f"
-" #f"
-" t189_0"
-" insp-of-t190_0"
-" s191_0"
-" id192_0"
-" ctx193_0"
-" binding194_0)))))"
+" t188_0"
+" insp-of-t189_0"
+" s190_0"
+" id191_0"
+" ctx192_0"
+" binding193_0)))))"
 "(begin"
 "(let-values(((obs_19)(expand-context-observer ctx_23)))"
 "(if obs_19"
 "(let-values()"
 "(if(if(expand-context-only-immediate? ctx_23)"
-"(not(1/rename-transformer? t_53))"
+"(not(1/rename-transformer? t_54))"
 " #f)"
 "(let-values()(call-expand-observe obs_19 'return exp-s_1))"
 "(void)))"
@@ -39970,64 +39325,61 @@ static const char *startup_source =
 "(if(expand-context-just-once? ctx_23)"
 "(let-values() exp-s_1)"
 "(let-values()"
-"(let-values(((exp-s195_0) exp-s_1)"
-"((re-ctx196_0) re-ctx_0)"
-"((temp197_0)"
-"(if(1/rename-transformer? t_53)"
+"(let-values(((exp-s194_0) exp-s_1)"
+"((re-ctx195_0) re-ctx_0)"
+"((temp196_0)"
+"(if(1/rename-transformer? t_54)"
 "(syntax-track-origin$1"
 "(transfer-srcloc"
-"(rename-transformer-target-in-context t_53 ctx_23)"
-" id_65)"
-" id_65"
-" id_65)"
+"(rename-transformer-target-in-context t_54 ctx_23)"
+" id_64)"
+" id_64"
+" id_64)"
 " #f))"
-"((temp198_0)"
-"(let-values(((or-part_263)"
+"((temp197_0)"
+"(let-values(((or-part_266)"
 "(expand-context-only-immediate? ctx_23)))"
-"(if or-part_263 or-part_263(1/rename-transformer? t_53))))"
-"((temp199_0)"
-"(if(1/rename-transformer? t_53) fail-non-transformer_4 #f)))"
+"(if or-part_266 or-part_266(1/rename-transformer? t_54))))"
+"((temp198_0)"
+"(if(1/rename-transformer? t_54) fail-non-transformer_4 #f)))"
 "(expand9.1"
-" temp197_0"
-" #t"
-" temp199_0"
-" #t"
+" temp196_0"
 " temp198_0"
-" #t"
-" exp-s195_0"
-" re-ctx196_0)))))))))))))))))))))"
+" temp197_0"
+" exp-s194_0"
+" re-ctx195_0)))))))))))))))))))))"
 "(define-values"
 "(dispatch-variable)"
-"(lambda(t_54 s_430 id_66 ctx_24 binding_22 primitive?_6 protected?_7)"
+"(lambda(t_55 s_113 id_65 ctx_24 binding_21 primitive?_6 protected?_7)"
 "(begin"
 "(if(expand-context-only-immediate? ctx_24)"
 "(let-values()"
 "(begin"
 "(let-values(((obs_20)(expand-context-observer ctx_24)))"
-"(if obs_20(let-values()(let-values()(call-expand-observe obs_20 'exit-check s_430)))(void)))"
-" id_66))"
+"(if obs_20(let-values()(let-values()(call-expand-observe obs_20 'exit-check s_113)))(void)))"
+" id_65))"
 "(let-values()"
 "(let-values((()"
 "(begin"
 "(let-values(((obs_21)(expand-context-observer ctx_24)))"
 "(if obs_21"
-"(let-values()(let-values()(call-expand-observe obs_21 'variable s_430 id_66)))"
+"(let-values()(let-values()(call-expand-observe obs_21 'variable s_113 id_65)))"
 "(void)))"
 "(values))))"
-"(let-values((()(begin(register-variable-referenced-if-local! binding_22)(values))))"
+"(let-values((()(begin(register-variable-referenced-if-local! binding_21)(values))))"
 "(let-values(((result-s_4)"
-"(let-values(((id200_0) id_66)"
-"((t201_0) t_54)"
-"((temp202_0)"
+"(let-values(((id199_0) id_65)"
+"((t200_0) t_55)"
+"((temp201_0)"
 "(free-id-set-empty-or-just-module*?(expand-context-stops ctx_24))))"
-"(substitute-variable6.1 temp202_0 id200_0 t201_0))))"
+"(substitute-variable6.1 temp201_0 id199_0 t200_0))))"
 "(if(if(expand-context-to-parsed? ctx_24)(free-id-set-empty?(expand-context-stops ctx_24)) #f)"
 "(let-values()"
 "(let-values(((prop-s_0)(keep-properties-only~ result-s_4)))"
 "(let-values(((insp_16)(syntax-inspector result-s_4)))"
 "(if primitive?_6"
-"(parsed-primitive-id3.1 prop-s_0 binding_22 insp_16)"
-"(parsed-id2.1 prop-s_0 binding_22 insp_16)))))"
+"(parsed-primitive-id3.1 prop-s_0 binding_21 insp_16)"
+"(parsed-id2.1 prop-s_0 binding_21 insp_16)))))"
 "(let-values()"
 "(let-values(((protected-result-s_0)"
 "(if protected?_7(syntax-property$1 result-s_4 'protected #t) result-s_4)))"
@@ -40039,16 +39391,16 @@ static const char *startup_source =
 " protected-result-s_0))))))))))))"
 "(define-values"
 "(apply-transformer52.1)"
-"(lambda(origin-id44_0 origin-id45_0 t46_0 insp-of-t47_0 s48_0 id49_1 ctx50_0 binding51_0)"
+"(lambda(origin-id44_0 t46_0 insp-of-t47_0 s48_0 id49_2 ctx50_0 binding51_0)"
 "(begin"
 " 'apply-transformer52"
-"(let-values(((t_55) t46_0))"
+"(let-values(((t_56) t46_0))"
 "(let-values(((insp-of-t_5) insp-of-t47_0))"
 "(let-values(((s_121) s48_0))"
-"(let-values(((id_31) id49_1))"
+"(let-values(((id_32) id49_2))"
 "(let-values(((ctx_25) ctx50_0))"
-"(let-values(((binding_23) binding51_0))"
-"(let-values(((origin-id_0)(if origin-id45_0 origin-id44_0 #f)))"
+"(let-values(((binding_22) binding51_0))"
+"(let-values(((origin-id_0) origin-id44_0))"
 "(let-values()"
 "(let-values()"
 "(let-values((()"
@@ -40063,28 +39415,28 @@ static const char *startup_source =
 "(let-values(((intro-scope_0)(new-scope 'macro)))"
 "(let-values(((intro-s_0)(flip-scope disarmed-s_3 intro-scope_0)))"
 "(let-values(((use-s_0 use-scopes_0)"
-"(maybe-add-use-site-scope intro-s_0 ctx_25 binding_23)))"
+"(maybe-add-use-site-scope intro-s_0 ctx_25 binding_22)))"
 "(let-values(((cleaned-s_0)(syntax-remove-taint-dispatch-properties use-s_0)))"
 "(let-values(((def-ctx-scopes_1)(box null)))"
 "(let-values(((transformed-s_0)"
 "(apply-transformer-in-context"
-" t_55"
+" t_56"
 " cleaned-s_0"
 " ctx_25"
 " insp-of-t_5"
 " intro-scope_0"
 " use-scopes_0"
 " def-ctx-scopes_1"
-" id_31)))"
+" id_32)))"
 "(let-values(((result-s_5)(flip-scope transformed-s_0 intro-scope_0)))"
 "(let-values(((post-s_0)(maybe-add-post-expansion-scope result-s_5 ctx_25)))"
 "(let-values(((tracked-s_0)"
 "(syntax-track-origin$1"
 " post-s_0"
 " cleaned-s_0"
-"(let-values(((or-part_264) origin-id_0))"
-"(if or-part_264"
-" or-part_264"
+"(let-values(((or-part_267) origin-id_0))"
+"(if or-part_267"
+" or-part_267"
 "(if(syntax-identifier? s_121)"
 " s_121"
 "(car(syntax-e$1 s_121))))))))"
@@ -40107,7 +39459,7 @@ static const char *startup_source =
 " def-ctx-scopes_1)))))))))))))))))))))))))))"
 "(define-values"
 "(apply-transformer-in-context)"
-"(lambda(t_56 cleaned-s_1 ctx_26 insp-of-t_6 intro-scope_1 use-scopes_1 def-ctx-scopes_2 id_67)"
+"(lambda(t_57 cleaned-s_1 ctx_26 insp-of-t_6 intro-scope_1 use-scopes_1 def-ctx-scopes_2 id_66)"
 "(begin"
 "(let-values((()"
 "(begin"
@@ -40118,9 +39470,9 @@ static const char *startup_source =
 "(values))))"
 "(let-values(((confine-def-ctx-scopes?_0)"
 "(not"
-"(let-values(((or-part_265)(expand-context-only-immediate? ctx_26)))"
-"(if or-part_265"
-" or-part_265"
+"(let-values(((or-part_268)(expand-context-only-immediate? ctx_26)))"
+"(if or-part_268"
+" or-part_268"
 "(not(free-id-set-empty-or-just-module*?(expand-context-stops ctx_26))))))))"
 "(let-values(((accum-ctx_0)"
 "(if(if confine-def-ctx-scopes?_0"
@@ -40131,32 +39483,32 @@ static const char *startup_source =
 "(accumulate-def-ctx-scopes ctx_26(expand-context-def-ctx-scopes ctx_26))"
 " ctx_26)))"
 "(let-values(((m-ctx_0)"
-"(let-values(((v_190) accum-ctx_0))"
-"(let-values(((the-struct_56) v_190))"
-"(if(expand-context/outer? the-struct_56)"
-"(let-values(((current-introduction-scopes203_0)(cons intro-scope_1 use-scopes_1))"
-"((def-ctx-scopes204_0)"
+"(let-values(((v_188) accum-ctx_0))"
+"(let-values(((the-struct_57) v_188))"
+"(if(expand-context/outer? the-struct_57)"
+"(let-values(((current-introduction-scopes202_0)(cons intro-scope_1 use-scopes_1))"
+"((def-ctx-scopes203_0)"
 "(if confine-def-ctx-scopes?_0"
 " def-ctx-scopes_2"
 "(expand-context-def-ctx-scopes ctx_26)))"
-"((inner205_0)(root-expand-context/outer-inner v_190)))"
+"((inner204_0)(root-expand-context/outer-inner v_188)))"
 "(expand-context/outer1.1"
-" inner205_0"
-"(root-expand-context/outer-post-expansion-scope the-struct_56)"
-"(root-expand-context/outer-use-site-scopes the-struct_56)"
-"(root-expand-context/outer-frame-id the-struct_56)"
-"(expand-context/outer-context the-struct_56)"
-"(expand-context/outer-env the-struct_56)"
-"(expand-context/outer-post-expansion-scope-action the-struct_56)"
-"(expand-context/outer-scopes the-struct_56)"
-" def-ctx-scopes204_0"
-"(expand-context/outer-binding-layer the-struct_56)"
-"(expand-context/outer-reference-records the-struct_56)"
-"(expand-context/outer-only-immediate? the-struct_56)"
-"(expand-context/outer-need-eventually-defined the-struct_56)"
-" current-introduction-scopes203_0"
-"(expand-context/outer-name the-struct_56)))"
-"                                (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_56))))))"
+" inner204_0"
+"(root-expand-context/outer-post-expansion-scope the-struct_57)"
+"(root-expand-context/outer-use-site-scopes the-struct_57)"
+"(root-expand-context/outer-frame-id the-struct_57)"
+"(expand-context/outer-context the-struct_57)"
+"(expand-context/outer-env the-struct_57)"
+"(expand-context/outer-post-expansion-scope-action the-struct_57)"
+"(expand-context/outer-scopes the-struct_57)"
+" def-ctx-scopes203_0"
+"(expand-context/outer-binding-layer the-struct_57)"
+"(expand-context/outer-reference-records the-struct_57)"
+"(expand-context/outer-only-immediate? the-struct_57)"
+"(expand-context/outer-need-eventually-defined the-struct_57)"
+" current-introduction-scopes202_0"
+"(expand-context/outer-name the-struct_57)))"
+"                                (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_57))))))"
 "(let-values(((transformed-s_1)"
 "(with-continuation-mark"
 " parameterization-key"
@@ -40169,11 +39521,11 @@ static const char *startup_source =
 "(expand-context-namespace ctx_26)"
 "(add1(expand-context-phase ctx_26)))"
 " current-module-code-inspector"
-"(let-values(((or-part_266) insp-of-t_6))"
-"(if or-part_266 or-part_266(current-module-code-inspector))))"
+"(let-values(((or-part_269) insp-of-t_6))"
+"(if or-part_269 or-part_269(current-module-code-inspector))))"
 "(let-values()"
 "(call-with-continuation-barrier"
-"(lambda()((transformer->procedure t_56) cleaned-s_1)))))))"
+"(lambda()((transformer->procedure t_57) cleaned-s_1)))))))"
 "(begin"
 "(let-values(((obs_26)(expand-context-observer ctx_26)))"
 "(if obs_26"
@@ -40184,176 +39536,164 @@ static const char *startup_source =
 "(void)"
 "(let-values()"
 "(raise-arguments-error"
-"(syntax-e$1 id_67)"
+"(syntax-e$1 id_66)"
 "                       \"received value from syntax expander was not syntax\""
 "                       \"received\""
 " transformed-s_1)))"
 " transformed-s_1)))))))))"
 "(define-values"
 "(maybe-add-use-site-scope)"
-"(lambda(s_431 ctx_27 binding_24)"
+"(lambda(s_344 ctx_27 binding_23)"
 "(begin"
 "(if(if(root-expand-context-use-site-scopes ctx_27)"
-"(matching-frame?(root-expand-context-frame-id ctx_27)(binding-frame-id binding_24))"
+"(matching-frame?(root-expand-context-frame-id ctx_27)(binding-frame-id binding_23))"
 " #f)"
 "(let-values()"
 "(let-values(((sc_31)(new-scope 'use-site)))"
-"(let-values(((b_80)(root-expand-context-use-site-scopes ctx_27)))"
-"(begin(set-box! b_80(cons sc_31(unbox b_80)))(values(add-scope s_431 sc_31)(list sc_31))))))"
-"(let-values()(values s_431 null))))))"
+"(let-values(((b_79)(root-expand-context-use-site-scopes ctx_27)))"
+"(begin(set-box! b_79(cons sc_31(unbox b_79)))(values(add-scope s_344 sc_31)(list sc_31))))))"
+"(let-values()(values s_344 null))))))"
 "(define-values"
 "(matching-frame?)"
 "(lambda(current-frame-id_0 bind-frame-id_0)"
 "(begin"
 "(if current-frame-id_0"
-"(let-values(((or-part_267)(eq? current-frame-id_0 bind-frame-id_0)))"
-"(if or-part_267 or-part_267(eq? current-frame-id_0 'all)))"
+"(let-values(((or-part_270)(eq? current-frame-id_0 bind-frame-id_0)))"
+"(if or-part_270 or-part_270(eq? current-frame-id_0 'all)))"
 " #f))))"
 "(define-values"
 "(maybe-add-post-expansion-scope)"
-"(lambda(s_243 ctx_28)"
+"(lambda(s_241 ctx_28)"
 "(begin"
 "(if(root-expand-context-post-expansion-scope ctx_28)"
 "(let-values()"
-"((expand-context-post-expansion-scope-action ctx_28) s_243(root-expand-context-post-expansion-scope ctx_28)))"
-"(let-values() s_243)))))"
+"((expand-context-post-expansion-scope-action ctx_28) s_241(root-expand-context-post-expansion-scope ctx_28)))"
+"(let-values() s_241)))))"
 "(define-values"
 "(accumulate-def-ctx-scopes)"
 "(lambda(ctx_29 def-ctx-scopes_3)"
 "(begin"
 "(if(null?(unbox def-ctx-scopes_3))"
 " ctx_29"
-"(let-values(((v_191) ctx_29))"
-"(let-values(((the-struct_57) v_191))"
-"(if(expand-context/outer? the-struct_57)"
-"(let-values(((scopes206_0)(append(unbox def-ctx-scopes_3)(expand-context-scopes ctx_29)))"
-"((inner207_0)(root-expand-context/outer-inner v_191)))"
+"(let-values(((v_189) ctx_29))"
+"(let-values(((the-struct_58) v_189))"
+"(if(expand-context/outer? the-struct_58)"
+"(let-values(((scopes205_0)(append(unbox def-ctx-scopes_3)(expand-context-scopes ctx_29)))"
+"((inner206_0)(root-expand-context/outer-inner v_189)))"
 "(expand-context/outer1.1"
-" inner207_0"
-"(root-expand-context/outer-post-expansion-scope the-struct_57)"
-"(root-expand-context/outer-use-site-scopes the-struct_57)"
-"(root-expand-context/outer-frame-id the-struct_57)"
-"(expand-context/outer-context the-struct_57)"
-"(expand-context/outer-env the-struct_57)"
-"(expand-context/outer-post-expansion-scope-action the-struct_57)"
-" scopes206_0"
-"(expand-context/outer-def-ctx-scopes the-struct_57)"
-"(expand-context/outer-binding-layer the-struct_57)"
-"(expand-context/outer-reference-records the-struct_57)"
-"(expand-context/outer-only-immediate? the-struct_57)"
-"(expand-context/outer-need-eventually-defined the-struct_57)"
-"(expand-context/outer-current-introduction-scopes the-struct_57)"
-"(expand-context/outer-name the-struct_57)))"
-"              (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_57))))))))"
+" inner206_0"
+"(root-expand-context/outer-post-expansion-scope the-struct_58)"
+"(root-expand-context/outer-use-site-scopes the-struct_58)"
+"(root-expand-context/outer-frame-id the-struct_58)"
+"(expand-context/outer-context the-struct_58)"
+"(expand-context/outer-env the-struct_58)"
+"(expand-context/outer-post-expansion-scope-action the-struct_58)"
+" scopes205_0"
+"(expand-context/outer-def-ctx-scopes the-struct_58)"
+"(expand-context/outer-binding-layer the-struct_58)"
+"(expand-context/outer-reference-records the-struct_58)"
+"(expand-context/outer-only-immediate? the-struct_58)"
+"(expand-context/outer-need-eventually-defined the-struct_58)"
+"(expand-context/outer-current-introduction-scopes the-struct_58)"
+"(expand-context/outer-name the-struct_58)))"
+"              (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_58))))))))"
 "(define-values"
 "(lookup62.1)"
-"(lambda(in55_0 in57_0 out-of-context-as-variable?56_0 out-of-context-as-variable?58_0 b59_0 ctx60_0 id61_1)"
+"(lambda(in55_0 out-of-context-as-variable?56_0 b59_0 ctx60_0 id61_0)"
 "(begin"
 " 'lookup62"
-"(let-values(((b_81) b59_0))"
+"(let-values(((b_80) b59_0))"
 "(let-values(((ctx_30) ctx60_0))"
-"(let-values(((id_68) id61_1))"
-"(let-values(((in-s_7)(if in57_0 in55_0 #f)))"
-"(let-values(((out-of-context-as-variable?_1)"
-"(if out-of-context-as-variable?58_0 out-of-context-as-variable?56_0 #f)))"
+"(let-values(((id_36) id61_0))"
+"(let-values(((in-s_7) in55_0))"
+"(let-values(((out-of-context-as-variable?_1) out-of-context-as-variable?56_0))"
 "(let-values()"
-"(let-values(((b208_0) b_81)"
-"((temp209_0)(expand-context-env ctx_30))"
-"((temp210_0)(expand-context-lift-envs ctx_30))"
-"((temp211_1)(expand-context-namespace ctx_30))"
-"((temp212_0)(expand-context-phase ctx_30))"
-"((id213_0) id_68)"
-"((in-s214_0) in-s_7)"
-"((out-of-context-as-variable?215_0) out-of-context-as-variable?_1))"
+"(let-values(((b207_0) b_80)"
+"((temp208_0)(expand-context-env ctx_30))"
+"((temp209_1)(expand-context-lift-envs ctx_30))"
+"((temp210_0)(expand-context-namespace ctx_30))"
+"((temp211_0)(expand-context-phase ctx_30))"
+"((id212_0) id_36)"
+"((in-s213_0) in-s_7)"
+"((out-of-context-as-variable?214_0) out-of-context-as-variable?_1))"
 "(binding-lookup50.1"
-" in-s214_0"
-" #t"
-" out-of-context-as-variable?215_0"
-" #t"
-" b208_0"
-" temp209_0"
+" in-s213_0"
+" out-of-context-as-variable?214_0"
+" b207_0"
+" temp208_0"
+" temp209_1"
 " temp210_0"
-" temp211_1"
-" temp212_0"
-" id213_0)))))))))))"
+" temp211_0"
+" id212_0)))))))))))"
 "(define-values"
 "(substitute-alternate-id)"
-"(lambda(s_363 alternate-id_3)"
+"(lambda(s_355 alternate-id_3)"
 "(begin"
 "(if(not alternate-id_3)"
-"(let-values() s_363)"
-"(if(syntax-identifier? s_363)"
-"(let-values()(syntax-rearm$1(syntax-track-origin$1 alternate-id_3 s_363) s_363))"
+"(let-values() s_355)"
+"(if(syntax-identifier? s_355)"
+"(let-values()(syntax-rearm$1(syntax-track-origin$1 alternate-id_3 s_355) s_355))"
 "(let-values()"
-"(let-values(((disarmed-s_4)(syntax-disarm$1 s_363)))"
+"(let-values(((disarmed-s_4)(syntax-disarm$1 s_355)))"
 "(syntax-rearm$1"
 "(syntax-track-origin$1"
-"(datum->syntax$1 disarmed-s_4(cons alternate-id_3(cdr(syntax-e$1 disarmed-s_4))) s_363)"
-" s_363)"
-" s_363))))))))"
+"(datum->syntax$1 disarmed-s_4(cons alternate-id_3(cdr(syntax-e$1 disarmed-s_4))) s_355)"
+" s_355)"
+" s_355))))))))"
 "(define-values"
 "(register-variable-referenced-if-local!)"
-"(lambda(binding_25)"
+"(lambda(binding_24)"
 "(begin"
-"(if(if(local-binding? binding_25)(reference-record?(binding-frame-id binding_25)) #f)"
-"(let-values()(reference-record-used!(binding-frame-id binding_25)(local-binding-key binding_25)))"
+"(if(if(local-binding? binding_24)(reference-record?(binding-frame-id binding_24)) #f)"
+"(let-values()(reference-record-used!(binding-frame-id binding_24)(local-binding-key binding_24)))"
 "(void)))))"
 "(define-values"
 "(expand/capture-lifts75.1)"
-"(lambda(always-wrap?68_0"
-" always-wrap?72_0"
-" begin-form?66_0"
-" begin-form?70_0"
-" expand-lifts?65_0"
-" expand-lifts?69_0"
-" lift-key67_0"
-" lift-key71_0"
-" s73_1"
-" ctx74_0)"
+"(lambda(always-wrap?68_0 begin-form?66_0 expand-lifts?65_0 lift-key67_0 s73_0 ctx74_0)"
 "(begin"
 " 'expand/capture-lifts75"
-"(let-values(((s_257) s73_1))"
+"(let-values(((s_360) s73_0))"
 "(let-values(((ctx_31) ctx74_0))"
-"(let-values(((expand-lifts?_0)(if expand-lifts?69_0 expand-lifts?65_0 #f)))"
-"(let-values(((begin-form?_0)(if begin-form?70_0 begin-form?66_0 #f)))"
-"(let-values(((lift-key_2)(if lift-key71_0 lift-key67_0(generate-lift-key))))"
-"(let-values(((always-wrap?_0)(if always-wrap?72_0 always-wrap?68_0 #f)))"
+"(let-values(((expand-lifts?_0) expand-lifts?65_0))"
+"(let-values(((begin-form?_0) begin-form?66_0))"
+"(let-values(((lift-key_2)(if(eq? lift-key67_0 unsafe-undefined)(generate-lift-key) lift-key67_0)))"
+"(let-values(((always-wrap?_0) always-wrap?68_0))"
 "(let-values()"
 "(let-values(((context_6)(expand-context-context ctx_31)))"
-"(let-values(((phase_107)(expand-context-phase ctx_31)))"
+"(let-values(((phase_102)(expand-context-phase ctx_31)))"
 "(let-values(((local?_0)(not begin-form?_0)))"
-"((letrec-values(((loop_97)"
-"(lambda(s_371 always-wrap?_1 ctx_32)"
+"((letrec-values(((loop_92)"
+"(lambda(s_417 always-wrap?_1 ctx_32)"
 "(begin"
 " 'loop"
 "(let-values(((lift-env_2)(if local?_0(box empty-env) #f)))"
 "(let-values(((lift-ctx_0)"
-"(let-values(((temp216_1)"
+"(let-values(((temp215_0)"
 "(if local?_0"
 "(make-local-lift"
 " lift-env_2"
 "(root-expand-context-counter ctx_32))"
 "(make-top-level-lift ctx_32)))"
-"((temp217_0)"
+"((temp216_0)"
 "(if(not local?_0)"
 "(eq? context_6 'module)"
 " #f)))"
-"(make-lift-context6.1 temp217_0 #t temp216_1))))"
+"(make-lift-context6.1 temp216_0 temp215_0))))"
 "(let-values(((capture-ctx_0)"
-"(let-values(((v_192) ctx_32))"
-"(let-values(((the-struct_58) v_192))"
-"(if(expand-context/outer? the-struct_58)"
-"(let-values(((inner218_0)"
-"(let-values(((the-struct_59)"
+"(let-values(((v_190) ctx_32))"
+"(let-values(((the-struct_59) v_190))"
+"(if(expand-context/outer? the-struct_59)"
+"(let-values(((inner217_0)"
+"(let-values(((the-struct_60)"
 "(root-expand-context/outer-inner"
-" v_192)))"
+" v_190)))"
 "(if(expand-context/inner?"
-" the-struct_59)"
-"(let-values(((lift-key219_0)"
+" the-struct_60)"
+"(let-values(((lift-key218_0)"
 " lift-key_2)"
-"((lifts220_0)"
+"((lifts219_0)"
 " lift-ctx_0)"
-"((lift-envs221_0)"
+"((lift-envs220_0)"
 "(if local?_0"
 "(cons"
 " lift-env_2"
@@ -40361,11 +39701,11 @@ static const char *startup_source =
 " ctx_32))"
 "(expand-context-lift-envs"
 " ctx_32)))"
-"((module-lifts222_0)"
-"(if(let-values(((or-part_268)"
+"((module-lifts221_0)"
+"(if(let-values(((or-part_271)"
 " local?_0))"
-"(if or-part_268"
-" or-part_268"
+"(if or-part_271"
+" or-part_271"
 "(not"
 "(memq"
 " context_6"
@@ -40376,108 +39716,100 @@ static const char *startup_source =
 " lift-ctx_0)))"
 "(expand-context/inner2.1"
 "(root-expand-context/inner-self-mpi"
-" the-struct_59)"
+" the-struct_60)"
 "(root-expand-context/inner-module-scopes"
-" the-struct_59)"
+" the-struct_60)"
 "(root-expand-context/inner-top-level-bind-scope"
-" the-struct_59)"
+" the-struct_60)"
 "(root-expand-context/inner-all-scopes-stx"
-" the-struct_59)"
+" the-struct_60)"
 "(root-expand-context/inner-defined-syms"
-" the-struct_59)"
+" the-struct_60)"
 "(root-expand-context/inner-counter"
-" the-struct_59)"
-" lift-key219_0"
+" the-struct_60)"
+" lift-key218_0"
 "(expand-context/inner-to-parsed?"
-" the-struct_59)"
+" the-struct_60)"
 "(expand-context/inner-phase"
-" the-struct_59)"
+" the-struct_60)"
 "(expand-context/inner-namespace"
-" the-struct_59)"
+" the-struct_60)"
 "(expand-context/inner-just-once?"
-" the-struct_59)"
+" the-struct_60)"
 "(expand-context/inner-module-begin-k"
-" the-struct_59)"
+" the-struct_60)"
 "(expand-context/inner-allow-unbound?"
-" the-struct_59)"
+" the-struct_60)"
 "(expand-context/inner-in-local-expand?"
-" the-struct_59)"
+" the-struct_60)"
 "(expand-context/inner-keep-#%expression?"
-" the-struct_59)"
+" the-struct_60)"
 "(expand-context/inner-stops"
-" the-struct_59)"
+" the-struct_60)"
 "(expand-context/inner-declared-submodule-names"
-" the-struct_59)"
-" lifts220_0"
-" lift-envs221_0"
-" module-lifts222_0"
+" the-struct_60)"
+" lifts219_0"
+" lift-envs220_0"
+" module-lifts221_0"
 "(expand-context/inner-require-lifts"
-" the-struct_59)"
+" the-struct_60)"
 "(expand-context/inner-to-module-lifts"
-" the-struct_59)"
+" the-struct_60)"
 "(expand-context/inner-requires+provides"
-" the-struct_59)"
+" the-struct_60)"
 "(expand-context/inner-observer"
-" the-struct_59)"
+" the-struct_60)"
 "(expand-context/inner-for-serializable?"
-" the-struct_59)"
+" the-struct_60)"
 "(expand-context/inner-should-not-encounter-macros?"
-" the-struct_59)))"
+" the-struct_60)))"
 "(raise-argument-error"
 " 'struct-copy"
 "                                                                                           \"expand-context/inner?\""
-" the-struct_59)))))"
+" the-struct_60)))))"
 "(expand-context/outer1.1"
-" inner218_0"
+" inner217_0"
 "(root-expand-context/outer-post-expansion-scope"
-" the-struct_58)"
+" the-struct_59)"
 "(root-expand-context/outer-use-site-scopes"
-" the-struct_58)"
+" the-struct_59)"
 "(root-expand-context/outer-frame-id"
-" the-struct_58)"
-"(expand-context/outer-context the-struct_58)"
-"(expand-context/outer-env the-struct_58)"
+" the-struct_59)"
+"(expand-context/outer-context the-struct_59)"
+"(expand-context/outer-env the-struct_59)"
 "(expand-context/outer-post-expansion-scope-action"
-" the-struct_58)"
-"(expand-context/outer-scopes the-struct_58)"
+" the-struct_59)"
+"(expand-context/outer-scopes the-struct_59)"
 "(expand-context/outer-def-ctx-scopes"
-" the-struct_58)"
+" the-struct_59)"
 "(expand-context/outer-binding-layer"
-" the-struct_58)"
+" the-struct_59)"
 "(expand-context/outer-reference-records"
-" the-struct_58)"
+" the-struct_59)"
 "(expand-context/outer-only-immediate?"
-" the-struct_58)"
+" the-struct_59)"
 "(expand-context/outer-need-eventually-defined"
-" the-struct_58)"
+" the-struct_59)"
 "(expand-context/outer-current-introduction-scopes"
-" the-struct_58)"
-"(expand-context/outer-name the-struct_58)))"
+" the-struct_59)"
+"(expand-context/outer-name the-struct_59)))"
 "(raise-argument-error"
 " 'struct-copy"
 "                                                                         \"expand-context/outer?\""
-" the-struct_58))))))"
-"(let-values(((rebuild-s_0)(keep-properties-only s_371)))"
+" the-struct_59))))))"
+"(let-values(((rebuild-s_0)(keep-properties-only s_417)))"
 "(let-values(((exp-s_2)"
-"(let-values(((s223_0) s_371)"
-"((capture-ctx224_0) capture-ctx_0))"
-"(expand9.1"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" s223_0"
-" capture-ctx224_0))))"
+"(let-values(((s222_0) s_417)"
+"((capture-ctx223_0) capture-ctx_0))"
+"(expand9.1 #f #f #f s222_0 capture-ctx223_0))))"
 "(let-values(((lifts_6)"
 "(get-and-clear-lifts!"
 "(expand-context-lifts capture-ctx_0))))"
 "(let-values(((with-lifts-s_0)"
-"(if(let-values(((or-part_269)"
+"(if(let-values(((or-part_272)"
 "(pair? lifts_6)))"
-"(if or-part_269"
-" or-part_269"
+"(if or-part_272"
+" or-part_272"
 " always-wrap?_1))"
 "(let-values()"
 "(if(expand-context-to-parsed? ctx_32)"
@@ -40494,32 +39826,30 @@ static const char *startup_source =
 " rebuild-s_0"
 " ctx_32"
 "(lambda(rhs_15 rhs-ctx_0)"
-"(loop_97 rhs_15 #f rhs-ctx_0)))))"
+"(loop_92 rhs_15 #f rhs-ctx_0)))))"
 "(let-values()"
 "(if begin-form?_0"
-"(let-values(((lifts225_0) lifts_6)"
-"((exp-s226_0) exp-s_2)"
-"((phase227_0)"
-" phase_107))"
+"(let-values(((lifts224_0) lifts_6)"
+"((exp-s225_0) exp-s_2)"
+"((phase226_0)"
+" phase_102))"
 "(wrap-lifts-as-begin16.1"
-" #f"
-" #f"
-" #f"
-" #f"
-" lifts225_0"
-" exp-s226_0"
-" phase227_0))"
+" unsafe-undefined"
+" unsafe-undefined"
+" lifts224_0"
+" exp-s225_0"
+" phase226_0))"
 "(wrap-lifts-as-let"
 " lifts_6"
 " exp-s_2"
-" phase_107)))))"
+" phase_102)))))"
 "(let-values() exp-s_2))))"
-"(if(let-values(((or-part_270)(not expand-lifts?_0)))"
-"(if or-part_270"
-" or-part_270"
-"(let-values(((or-part_271)(null? lifts_6)))"
-"(if or-part_271"
-" or-part_271"
+"(if(let-values(((or-part_273)(not expand-lifts?_0)))"
+"(if or-part_273"
+" or-part_273"
+"(let-values(((or-part_274)(null? lifts_6)))"
+"(if or-part_274"
+" or-part_274"
 "(expand-context-to-parsed? ctx_32)))))"
 "(let-values() with-lifts-s_0)"
 "(let-values()"
@@ -40534,169 +39864,155 @@ static const char *startup_source =
 " 'letlift-loop"
 " with-lifts-s_0)))"
 "(void)))"
-"(loop_97 with-lifts-s_0 #f ctx_32)))))))))))))))"
-" loop_97)"
-" s_257"
+"(loop_92 with-lifts-s_0 #f ctx_32)))))))))))))))"
+" loop_92)"
+" s_360"
 " always-wrap?_0"
 " ctx_31))))))))))))))"
 "(define-values"
 "(expand-transformer92.1)"
-"(lambda(always-wrap?82_0"
-" always-wrap?88_0"
-" begin-form?79_0"
-" begin-form?85_0"
-" context78_0"
-" context84_0"
-" expand-lifts?80_0"
-" expand-lifts?86_0"
-" keep-stops?83_0"
-" keep-stops?89_0"
-" lift-key81_0"
-" lift-key87_0"
-" s90_1"
-" ctx91_0)"
+"(lambda(always-wrap?82_0 begin-form?79_0 context78_0 expand-lifts?80_0 keep-stops?83_0 lift-key81_0 s90_0 ctx91_0)"
 "(begin"
 " 'expand-transformer92"
-"(let-values(((s_397) s90_1))"
+"(let-values(((s_418) s90_0))"
 "(let-values(((ctx_33) ctx91_0))"
-"(let-values(((context_7)(if context84_0 context78_0 'expression)))"
-"(let-values(((begin-form?_1)(if begin-form?85_0 begin-form?79_0 #f)))"
-"(let-values(((expand-lifts?_1)(if expand-lifts?86_0 expand-lifts?80_0 #t)))"
-"(let-values(((lift-key_3)(if lift-key87_0 lift-key81_0(generate-lift-key))))"
-"(let-values(((always-wrap?_2)(if always-wrap?88_0 always-wrap?82_0 #f)))"
-"(let-values(((keep-stops?_0)(if keep-stops?89_0 keep-stops?83_0 #f)))"
+"(let-values(((context_7) context78_0))"
+"(let-values(((begin-form?_1) begin-form?79_0))"
+"(let-values(((expand-lifts?_1) expand-lifts?80_0))"
+"(let-values(((lift-key_3)(if(eq? lift-key81_0 unsafe-undefined)(generate-lift-key) lift-key81_0)))"
+"(let-values(((always-wrap?_2) always-wrap?82_0))"
+"(let-values(((keep-stops?_0) keep-stops?83_0))"
 "(let-values()"
 "(let-values()"
 "(let-values(((trans-ctx_0)"
-"(let-values(((ctx234_0) ctx_33)"
-"((context235_0) context_7)"
-"((keep-stops?236_0) keep-stops?_0))"
-"(context->transformer-context100.1"
-" keep-stops?236_0"
-" #t"
-" ctx234_0"
-" context235_0"
-" #t))))"
-"(let-values(((s228_0) s_397)"
-"((trans-ctx229_0) trans-ctx_0)"
-"((expand-lifts?230_0) expand-lifts?_1)"
-"((begin-form?231_0) begin-form?_1)"
-"((lift-key232_0) lift-key_3)"
-"((always-wrap?233_0) always-wrap?_2))"
+"(let-values(((ctx233_0) ctx_33)"
+"((context234_0) context_7)"
+"((keep-stops?235_0) keep-stops?_0))"
+"(context->transformer-context99.1 keep-stops?235_0 ctx233_0 context234_0))))"
+"(let-values(((s227_0) s_418)"
+"((trans-ctx228_0) trans-ctx_0)"
+"((expand-lifts?229_0) expand-lifts?_1)"
+"((begin-form?230_0) begin-form?_1)"
+"((lift-key231_0) lift-key_3)"
+"((always-wrap?232_0) always-wrap?_2))"
 "(expand/capture-lifts75.1"
-" always-wrap?233_0"
-" #t"
-" begin-form?231_0"
-" #t"
-" expand-lifts?230_0"
-" #t"
-" lift-key232_0"
-" #t"
-" s228_0"
-" trans-ctx229_0))))))))))))))))"
+" always-wrap?232_0"
+" begin-form?230_0"
+" expand-lifts?229_0"
+" lift-key231_0"
+" s227_0"
+" trans-ctx228_0))))))))))))))))"
 "(define-values"
-"(context->transformer-context100.1)"
-"(lambda(keep-stops?95_0 keep-stops?96_0 ctx99_0 context97_0 context98_0)"
+"(context->transformer-context99.1)"
+"(lambda(keep-stops?95_0 ctx98_0 context97_0)"
 "(begin"
-" 'context->transformer-context100"
-"(let-values(((ctx_34) ctx99_0))"
-"(let-values(((context_8)(if context98_0 context97_0 'expression)))"
-"(let-values(((keep-stops?_1)(if keep-stops?96_0 keep-stops?95_0 #f)))"
+" 'context->transformer-context99"
+"(let-values(((ctx_34) ctx98_0))"
+"(let-values(((context_8) context97_0))"
+"(let-values(((keep-stops?_1) keep-stops?95_0))"
 "(let-values()"
-"(let-values(((phase_108)(add1(expand-context-phase ctx_34))))"
-"(let-values(((ns_73)(namespace->namespace-at-phase(expand-context-namespace ctx_34) phase_108)))"
+"(let-values(((phase_103)(add1(expand-context-phase ctx_34))))"
+"(let-values(((ns_74)(namespace->namespace-at-phase(expand-context-namespace ctx_34) phase_103)))"
 "(begin"
-"(namespace-visit-available-modules! ns_73 phase_108)"
-"(let-values(((v_193) ctx_34))"
-"(let-values(((the-struct_60) v_193))"
-"(if(expand-context/outer? the-struct_60)"
-"(let-values(((context237_0) context_8)"
-"((scopes238_0) null)"
-"((env239_0) empty-env)"
-"((only-immediate?240_0)"
+"(namespace-visit-available-modules! ns_74 phase_103)"
+"(let-values(((v_191) ctx_34))"
+"(let-values(((the-struct_61) v_191))"
+"(if(expand-context/outer? the-struct_61)"
+"(let-values(((context236_0) context_8)"
+"((scopes237_0) null)"
+"((env238_0) empty-env)"
+"((only-immediate?239_0)"
 "(if keep-stops?_1(expand-context-only-immediate? ctx_34) #f))"
-"((def-ctx-scopes241_0) #f)"
-"((post-expansion-scope242_0) #f)"
-"((inner243_0)"
-"(let-values(((the-struct_61)(root-expand-context/outer-inner v_193)))"
-"(if(expand-context/inner? the-struct_61)"
-"(let-values(((phase244_0) phase_108)"
-"((namespace245_0) ns_73)"
-"((stops246_0)"
+"((def-ctx-scopes240_0) #f)"
+"((post-expansion-scope241_0) #f)"
+"((inner242_0)"
+"(let-values(((the-struct_62)(root-expand-context/outer-inner v_191)))"
+"(if(expand-context/inner? the-struct_62)"
+"(let-values(((phase243_0) phase_103)"
+"((namespace244_0) ns_74)"
+"((stops245_0)"
 "(if keep-stops?_1"
 "(expand-context-stops ctx_34)"
 " empty-free-id-set)))"
 "(expand-context/inner2.1"
-"(root-expand-context/inner-self-mpi the-struct_61)"
-"(root-expand-context/inner-module-scopes the-struct_61)"
-"(root-expand-context/inner-top-level-bind-scope the-struct_61)"
-"(root-expand-context/inner-all-scopes-stx the-struct_61)"
-"(root-expand-context/inner-defined-syms the-struct_61)"
-"(root-expand-context/inner-counter the-struct_61)"
-"(root-expand-context/inner-lift-key the-struct_61)"
-"(expand-context/inner-to-parsed? the-struct_61)"
-" phase244_0"
-" namespace245_0"
-"(expand-context/inner-just-once? the-struct_61)"
-"(expand-context/inner-module-begin-k the-struct_61)"
-"(expand-context/inner-allow-unbound? the-struct_61)"
-"(expand-context/inner-in-local-expand? the-struct_61)"
-"(expand-context/inner-keep-#%expression? the-struct_61)"
-" stops246_0"
-"(expand-context/inner-declared-submodule-names the-struct_61)"
-"(expand-context/inner-lifts the-struct_61)"
-"(expand-context/inner-lift-envs the-struct_61)"
-"(expand-context/inner-module-lifts the-struct_61)"
-"(expand-context/inner-require-lifts the-struct_61)"
-"(expand-context/inner-to-module-lifts the-struct_61)"
-"(expand-context/inner-requires+provides the-struct_61)"
-"(expand-context/inner-observer the-struct_61)"
-"(expand-context/inner-for-serializable? the-struct_61)"
-"(expand-context/inner-should-not-encounter-macros? the-struct_61)))"
+"(root-expand-context/inner-self-mpi the-struct_62)"
+"(root-expand-context/inner-module-scopes the-struct_62)"
+"(root-expand-context/inner-top-level-bind-scope the-struct_62)"
+"(root-expand-context/inner-all-scopes-stx the-struct_62)"
+"(root-expand-context/inner-defined-syms the-struct_62)"
+"(root-expand-context/inner-counter the-struct_62)"
+"(root-expand-context/inner-lift-key the-struct_62)"
+"(expand-context/inner-to-parsed? the-struct_62)"
+" phase243_0"
+" namespace244_0"
+"(expand-context/inner-just-once? the-struct_62)"
+"(expand-context/inner-module-begin-k the-struct_62)"
+"(expand-context/inner-allow-unbound? the-struct_62)"
+"(expand-context/inner-in-local-expand? the-struct_62)"
+"(expand-context/inner-keep-#%expression? the-struct_62)"
+" stops245_0"
+"(expand-context/inner-declared-submodule-names the-struct_62)"
+"(expand-context/inner-lifts the-struct_62)"
+"(expand-context/inner-lift-envs the-struct_62)"
+"(expand-context/inner-module-lifts the-struct_62)"
+"(expand-context/inner-require-lifts the-struct_62)"
+"(expand-context/inner-to-module-lifts the-struct_62)"
+"(expand-context/inner-requires+provides the-struct_62)"
+"(expand-context/inner-observer the-struct_62)"
+"(expand-context/inner-for-serializable? the-struct_62)"
+"(expand-context/inner-should-not-encounter-macros? the-struct_62)))"
 "(raise-argument-error"
 " 'struct-copy"
 "                                             \"expand-context/inner?\""
-" the-struct_61)))))"
+" the-struct_62)))))"
 "(expand-context/outer1.1"
-" inner243_0"
-" post-expansion-scope242_0"
-"(root-expand-context/outer-use-site-scopes the-struct_60)"
-"(root-expand-context/outer-frame-id the-struct_60)"
-" context237_0"
-" env239_0"
-"(expand-context/outer-post-expansion-scope-action the-struct_60)"
-" scopes238_0"
-" def-ctx-scopes241_0"
-"(expand-context/outer-binding-layer the-struct_60)"
-"(expand-context/outer-reference-records the-struct_60)"
-" only-immediate?240_0"
-"(expand-context/outer-need-eventually-defined the-struct_60)"
-"(expand-context/outer-current-introduction-scopes the-struct_60)"
-"(expand-context/outer-name the-struct_60)))"
-"                          (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_60))))))))))))))"
+" inner242_0"
+" post-expansion-scope241_0"
+"(root-expand-context/outer-use-site-scopes the-struct_61)"
+"(root-expand-context/outer-frame-id the-struct_61)"
+" context236_0"
+" env238_0"
+"(expand-context/outer-post-expansion-scope-action the-struct_61)"
+" scopes237_0"
+" def-ctx-scopes240_0"
+"(expand-context/outer-binding-layer the-struct_61)"
+"(expand-context/outer-reference-records the-struct_61)"
+" only-immediate?239_0"
+"(expand-context/outer-need-eventually-defined the-struct_61)"
+"(expand-context/outer-current-introduction-scopes the-struct_61)"
+"(expand-context/outer-name the-struct_61)))"
+"                          (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_61))))))))))))))"
 "(define-values"
-"(expand+eval-for-syntaxes-binding109.1)"
-"(lambda(log-next?103_0 log-next?104_0 who105_0 rhs106_0 ids107_0 ctx108_0)"
+"(expand+eval-for-syntaxes-binding108.1)"
+"(lambda(log-next?102_0 who104_0 rhs105_0 ids106_0 ctx107_0)"
 "(begin"
-" 'expand+eval-for-syntaxes-binding109"
-"(let-values(((who_17) who105_0))"
-"(let-values(((rhs_16) rhs106_0))"
-"(let-values(((ids_19) ids107_0))"
-"(let-values(((ctx_35) ctx108_0))"
-"(let-values(((log-next?_0)(if log-next?104_0 log-next?103_0 #t)))"
+" 'expand+eval-for-syntaxes-binding108"
+"(let-values(((who_16) who104_0))"
+"(let-values(((rhs_16) rhs105_0))"
+"(let-values(((ids_19) ids106_0))"
+"(let-values(((ctx_35) ctx107_0))"
+"(let-values(((log-next?_0) log-next?102_0))"
 "(let-values()"
 "(let-values(((exp-rhs_0)"
-"(let-values(((rhs247_0) rhs_16)((temp248_0)(as-named-context ctx_35 ids_19)))"
-"(expand-transformer92.1 #f #f #f #f #f #f #f #f #f #f #f #f rhs247_0 temp248_0))))"
-"(let-values(((phase_109)(add1(expand-context-phase ctx_35))))"
+"(let-values(((rhs246_0) rhs_16)((temp247_0)(as-named-context ctx_35 ids_19)))"
+"(expand-transformer92.1"
+" #f"
+" #f"
+" 'expression"
+" #t"
+" #f"
+" unsafe-undefined"
+" rhs246_0"
+" temp247_0))))"
+"(let-values(((phase_104)(add1(expand-context-phase ctx_35))))"
 "(let-values(((parsed-rhs_0)"
 "(if(expand-context-to-parsed? ctx_35)"
 " exp-rhs_0"
-"(let-values(((exp-rhs249_0) exp-rhs_0)"
-"((temp250_1)"
-"(let-values(((temp251_1)(as-to-parsed-context ctx_35)))"
-"(context->transformer-context100.1 #f #f temp251_1 #f #f))))"
-"(expand9.1 #f #f #f #f #f #f exp-rhs249_0 temp250_1)))))"
+"(let-values(((exp-rhs248_0) exp-rhs_0)"
+"((temp249_1)"
+"(let-values(((temp250_1)(as-to-parsed-context ctx_35)))"
+"(context->transformer-context99.1 #f temp250_1 'expression))))"
+"(expand9.1 #f #f #f exp-rhs248_0 temp249_1)))))"
 "(begin"
 "(if log-next?_0"
 "(let-values()"
@@ -40707,31 +40023,31 @@ static const char *startup_source =
 " exp-rhs_0"
 " parsed-rhs_0"
 "(eval-for-bindings"
-" who_17"
+" who_16"
 " ids_19"
 " parsed-rhs_0"
-" phase_109"
-"(namespace->namespace-at-phase(expand-context-namespace ctx_35) phase_109)"
+" phase_104"
+"(namespace->namespace-at-phase(expand-context-namespace ctx_35) phase_104)"
 " ctx_35)))))))))))))))"
 "(define-values"
 "(eval-for-syntaxes-binding)"
-"(lambda(who_18 rhs_17 ids_20 ctx_36)"
+"(lambda(who_17 rhs_17 ids_20 ctx_36)"
 "(begin"
 "(let-values(((exp-rhs_1 parsed-rhs_1 vals_3)"
-"(let-values(((who252_0) who_18)((rhs253_0) rhs_17)((ids254_0) ids_20)((ctx255_0) ctx_36))"
-"(expand+eval-for-syntaxes-binding109.1 #f #f who252_0 rhs253_0 ids254_0 ctx255_0))))"
+"(let-values(((who251_0) who_17)((rhs252_0) rhs_17)((ids253_0) ids_20)((ctx254_0) ctx_36))"
+"(expand+eval-for-syntaxes-binding108.1 #t who251_0 rhs252_0 ids253_0 ctx254_0))))"
 " vals_3))))"
 "(define-values"
 "(eval-for-bindings)"
-"(lambda(who_19 ids_21 p_49 phase_110 ns_74 ctx_37)"
+"(lambda(who_18 ids_21 p_48 phase_105 ns_75 ctx_37)"
 "(begin"
 "(let-values(((compiled_0)"
-"(if(can-direct-eval? p_49 ns_74(root-expand-context-self-mpi ctx_37))"
+"(if(can-direct-eval? p_48 ns_75(root-expand-context-self-mpi ctx_37))"
 " #f"
 "(compile-single"
-" p_49"
-"(let-values(((ns256_0) ns_74)((phase257_0) phase_110))"
-"(make-compile-context14.1 #f #f #f #f #f #f ns256_0 #t phase257_0 #t #f #f))))))"
+" p_48"
+"(let-values(((ns255_0) ns_75)((phase256_0) phase_105))"
+"(make-compile-context14.1 #f unsafe-undefined #f ns255_0 phase256_0 unsafe-undefined))))))"
 "(let-values(((vals_4)"
 "(call-with-values"
 "(lambda()"
@@ -40742,13 +40058,13 @@ static const char *startup_source =
 " current-expand-context"
 " ctx_37"
 " 1/current-namespace"
-" ns_74"
+" ns_75"
 " eval-jit-enabled"
 " #f)"
 "(let-values()"
 "(if compiled_0"
-"(eval-single-top compiled_0 ns_74)"
-"(direct-eval p_49 ns_74(root-expand-context-self-mpi ctx_37))))))"
+"(eval-single-top compiled_0 ns_75)"
+"(direct-eval p_48 ns_75(root-expand-context-self-mpi ctx_37))))))"
 " list)))"
 "(begin"
 "(if(=(length vals_4)(length ids_21))"
@@ -40756,7 +40072,7 @@ static const char *startup_source =
 "(let-values()"
 "(apply"
 " raise-result-arity-error"
-" who_19"
+" who_18"
 "(length ids_21)"
 "(if(null? ids_21)"
 "                   (let-values () \"\")"
@@ -40767,73 +40083,66 @@ static const char *startup_source =
 "                      (if (pair? (cdr ids_21)) \" ...\" \"\"))))"
 " vals_4)))"
 " vals_4))))))"
-"(define-values(keep-properties-only)(lambda(s_432)(begin(datum->syntax$1 #f 'props s_432 s_432))))"
-"(define-values(keep-properties-only~)(lambda(s_433)(begin #f)))"
+"(define-values(keep-properties-only)(lambda(s_419)(begin(datum->syntax$1 #f 'props s_419 s_419))))"
+"(define-values(keep-properties-only~)(lambda(s_420)(begin #f)))"
 "(define-values"
-"(keep-as-needed120.1)"
-"(lambda(for-track?112_0"
-" for-track?115_0"
-" keep-for-error?114_0"
-" keep-for-error?117_0"
-" keep-for-parsed?113_0"
-" keep-for-parsed?116_0"
-" ctx118_0"
-" s119_0)"
+"(keep-as-needed119.1)"
+"(lambda(for-track?111_0 keep-for-error?113_0 keep-for-parsed?112_0 ctx117_0 s118_0)"
 "(begin"
-" 'keep-as-needed120"
-"(let-values(((ctx_38) ctx118_0))"
-"(let-values(((s_434) s119_0))"
+" 'keep-as-needed119"
+"(let-values(((ctx_38) ctx117_0))"
+"(let-values(((s_421) s118_0))"
 "(let-values()"
-"(let-values(((keep-for-parsed?_0)(if keep-for-parsed?116_0 keep-for-parsed?113_0 #f)))"
-"(let-values(((keep-for-error?_0)(if keep-for-error?117_0 keep-for-error?114_0 #f)))"
+"(let-values(((keep-for-parsed?_0) keep-for-parsed?112_0))"
+"(let-values(((keep-for-error?_0) keep-for-error?113_0))"
 "(let-values()"
-"(let-values(((d_32)(syntax-e$1 s_434)))"
+"(let-values(((d_33)(syntax-e$1 s_421)))"
 "(let-values(((keep-e_0)"
-"(if(symbol? d_32)"
-"(let-values() d_32)"
-"(if(if(pair? d_32)(syntax-identifier?(car d_32)) #f)"
-"(let-values()(syntax-e$1(car d_32)))"
+"(if(symbol? d_33)"
+"(let-values() d_33)"
+"(if(if(pair? d_33)(syntax-identifier?(car d_33)) #f)"
+"(let-values()(syntax-e$1(car d_33)))"
 "(let-values() #f)))))"
 "(if(expand-context-to-parsed? ctx_38)"
 "(let-values()"
-"(if(let-values(((or-part_272) keep-for-parsed?_0))"
-"(if or-part_272 or-part_272 keep-for-error?_0))"
-"(datum->syntax$1 #f keep-e_0 s_434 s_434)"
+"(if(let-values(((or-part_275) keep-for-parsed?_0))"
+"(if or-part_275 or-part_275 keep-for-error?_0))"
+"(datum->syntax$1 #f keep-e_0 s_421 s_421)"
 " #f))"
 "(let-values()"
 "(syntax-rearm$1"
-"(datum->syntax$1(syntax-disarm$1 s_434) keep-e_0 s_434 s_434)"
-" s_434))))))))))))))"
+"(datum->syntax$1(syntax-disarm$1 s_421) keep-e_0 s_421 s_421)"
+" s_421))))))))))))))"
 "(define-values"
 "(attach-disappeared-transformer-bindings)"
-"(lambda(s_435 trans-idss_0)"
+"(lambda(s_153 trans-idss_0)"
 "(begin"
 "(if(null? trans-idss_0)"
-"(let-values() s_435)"
+"(let-values() s_153)"
 "(let-values()"
 "(syntax-property$1"
-" s_435"
+" s_153"
 " 'disappeared-binding"
 "(append"
 "(apply append trans-idss_0)"
-"(let-values(((or-part_273)(syntax-property$1 s_435 'disappeared-binding)))"
-"(if or-part_273 or-part_273 null)))))))))"
+"(let-values(((or-part_197)(syntax-property$1 s_153 'disappeared-binding)))"
+"(if or-part_197 or-part_197 null)))))))))"
 "(define-values"
 "(increment-binding-layer)"
 "(lambda(ids_22 ctx_39 layer-val_0)"
 "(begin"
-"(if((letrec-values(((loop_98)"
+"(if((letrec-values(((loop_93)"
 "(lambda(ids_23)"
 "(begin"
 " 'loop"
-"(let-values(((or-part_274)(identifier? ids_23)))"
-"(if or-part_274"
-" or-part_274"
+"(let-values(((or-part_198)(identifier? ids_23)))"
+"(if or-part_198"
+" or-part_198"
 "(if(pair? ids_23)"
-"(let-values(((or-part_235)(loop_98(car ids_23))))"
-"(if or-part_235 or-part_235(loop_98(cdr ids_23))))"
+"(let-values(((or-part_199)(loop_93(car ids_23))))"
+"(if or-part_199 or-part_199(loop_93(cdr ids_23))))"
 " #f)))))))"
-" loop_98)"
+" loop_93)"
 " ids_22)"
 " layer-val_0"
 "(expand-context-binding-layer ctx_39)))))"
@@ -40860,39 +40169,39 @@ static const char *startup_source =
 "(list"
 "(lets-loop_0"
 "(cdr idss+keyss+rhss_1)"
-"(let-values(((v_194) rhs-ctx_1))"
-"(let-values(((the-struct_62) v_194))"
-"(if(expand-context/outer? the-struct_62)"
-"(let-values(((env258_0)"
-"(let-values(((lst_67) ids_24)((lst_257) keys_4))"
+"(let-values(((v_192) rhs-ctx_1))"
+"(let-values(((the-struct_63) v_192))"
+"(if(expand-context/outer? the-struct_63)"
+"(let-values(((env257_0)"
+"(let-values(((lst_281) ids_24)((lst_282) keys_4))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
 "(#%variable-reference))"
 "(void)"
-"(let-values()(check-list lst_67)))"
+"(let-values()(check-list lst_281)))"
 "(if(variable-reference-from-unsafe?"
 "(#%variable-reference))"
 "(void)"
-"(let-values()(check-list lst_257)))"
-"((letrec-values(((for-loop_226)"
-"(lambda(env_3 lst_258 lst_288)"
+"(let-values()(check-list lst_282)))"
+"((letrec-values(((for-loop_252)"
+"(lambda(env_3 lst_283 lst_284)"
 "(begin"
 " 'for-loop"
-"(if(if(pair? lst_258)"
-"(pair? lst_288)"
+"(if(if(pair? lst_283)"
+"(pair? lst_284)"
 " #f)"
-"(let-values(((id_69)"
+"(let-values(((id_67)"
 "(unsafe-car"
-" lst_258))"
-"((rest_157)"
+" lst_283))"
+"((rest_160)"
 "(unsafe-cdr"
-" lst_258))"
-"((key_82)"
+" lst_283))"
+"((key_81)"
 "(unsafe-car"
-" lst_288))"
-"((rest_158)"
+" lst_284))"
+"((rest_161)"
 "(unsafe-cdr"
-" lst_288)))"
+" lst_284)))"
 "(let-values(((env_4)"
 "(let-values(((env_5)"
 " env_3))"
@@ -40900,64 +40209,64 @@ static const char *startup_source =
 "(let-values()"
 "(env-extend"
 " env_5"
-" key_82"
+" key_81"
 "(local-variable1.1"
-" id_69)))))"
+" id_67)))))"
 "(values"
 " env_6)))))"
 "(if(not #f)"
-"(for-loop_226"
+"(for-loop_252"
 " env_4"
-" rest_157"
-" rest_158)"
+" rest_160"
+" rest_161)"
 " env_4)))"
 " env_3)))))"
-" for-loop_226)"
+" for-loop_252)"
 "(expand-context-env rhs-ctx_1)"
-" lst_67"
-" lst_257))))"
-"((inner259_0)(root-expand-context/outer-inner v_194)))"
+" lst_281"
+" lst_282))))"
+"((inner258_0)(root-expand-context/outer-inner v_192)))"
 "(expand-context/outer1.1"
-" inner259_0"
-"(root-expand-context/outer-post-expansion-scope the-struct_62)"
-"(root-expand-context/outer-use-site-scopes the-struct_62)"
-"(root-expand-context/outer-frame-id the-struct_62)"
-"(expand-context/outer-context the-struct_62)"
-" env258_0"
-"(expand-context/outer-post-expansion-scope-action the-struct_62)"
-"(expand-context/outer-scopes the-struct_62)"
-"(expand-context/outer-def-ctx-scopes the-struct_62)"
-"(expand-context/outer-binding-layer the-struct_62)"
-"(expand-context/outer-reference-records the-struct_62)"
-"(expand-context/outer-only-immediate? the-struct_62)"
-"(expand-context/outer-need-eventually-defined the-struct_62)"
-"(expand-context/outer-current-introduction-scopes the-struct_62)"
-"(expand-context/outer-name the-struct_62)))"
+" inner258_0"
+"(root-expand-context/outer-post-expansion-scope the-struct_63)"
+"(root-expand-context/outer-use-site-scopes the-struct_63)"
+"(root-expand-context/outer-frame-id the-struct_63)"
+"(expand-context/outer-context the-struct_63)"
+" env257_0"
+"(expand-context/outer-post-expansion-scope-action the-struct_63)"
+"(expand-context/outer-scopes the-struct_63)"
+"(expand-context/outer-def-ctx-scopes the-struct_63)"
+"(expand-context/outer-binding-layer the-struct_63)"
+"(expand-context/outer-reference-records the-struct_63)"
+"(expand-context/outer-only-immediate? the-struct_63)"
+"(expand-context/outer-need-eventually-defined the-struct_63)"
+"(expand-context/outer-current-introduction-scopes the-struct_63)"
+"(expand-context/outer-name the-struct_63)))"
 "(raise-argument-error"
 " 'struct-copy"
 "                                                    \"expand-context/outer?\""
-" the-struct_62)))))))))))))))))"
+" the-struct_63)))))))))))))))))"
 " lets-loop_0)"
 " idss+keyss+rhss_0"
 " ctx_40)))))"
 "(define-values"
 "(rename-transformer-target-in-context)"
-"(lambda(t_57 ctx_41)"
+"(lambda(t_58 ctx_41)"
 "(begin"
 "(with-continuation-mark"
 " parameterization-key"
 "(extend-parameterization(continuation-mark-set-first #f parameterization-key) current-expand-context ctx_41)"
-"(let-values()(1/rename-transformer-target t_57))))))"
+"(let-values()(1/rename-transformer-target t_58))))))"
 "(define-values"
 "(maybe-install-free=id-in-context!)"
-"(lambda(val_72 id_70 phase_111 ctx_42)"
+"(lambda(val_69 id_68 phase_106 ctx_42)"
 "(begin"
-"(if(1/rename-transformer? val_72)"
+"(if(1/rename-transformer? val_69)"
 "(let-values()"
 "(with-continuation-mark"
 " parameterization-key"
 "(extend-parameterization(continuation-mark-set-first #f parameterization-key) current-expand-context ctx_42)"
-"(let-values()(maybe-install-free=id! val_72 id_70 phase_111))))"
+"(let-values()(maybe-install-free=id! val_69 id_68 phase_106))))"
 "(void)))))"
 "(define-values"
 "(transfer-srcloc)"
@@ -40965,47 +40274,48 @@ static const char *startup_source =
 "(begin"
 "(let-values(((srcloc_7)(syntax-srcloc old-s_0)))"
 "(if srcloc_7"
-"(let-values(((the-struct_63) new-s_1))"
-"(if(syntax?$1 the-struct_63)"
-"(let-values(((srcloc260_0) srcloc_7))"
+"(let-values(((the-struct_64) new-s_1))"
+"(if(syntax?$1 the-struct_64)"
+"(let-values(((srcloc259_0) srcloc_7))"
 "(syntax1.1"
-"(syntax-content the-struct_63)"
-"(syntax-scopes the-struct_63)"
-"(syntax-shifted-multi-scopes the-struct_63)"
-"(syntax-scope-propagations+tamper the-struct_63)"
-"(syntax-mpi-shifts the-struct_63)"
-" srcloc260_0"
-"(syntax-props the-struct_63)"
-"(syntax-inspector the-struct_63)))"
-"              (raise-argument-error 'struct-copy \"syntax?\" the-struct_63)))"
+"(syntax-content the-struct_64)"
+"(syntax-scopes the-struct_64)"
+"(syntax-shifted-multi-scopes the-struct_64)"
+"(syntax-scope-propagations+tamper the-struct_64)"
+"(syntax-mpi-shifts the-struct_64)"
+" srcloc259_0"
+"(syntax-props the-struct_64)"
+"(syntax-inspector the-struct_64)))"
+"              (raise-argument-error 'struct-copy \"syntax?\" the-struct_64)))"
 " new-s_1)))))"
 "(define-values"
 "(stop-ids->all-stop-ids)"
-"(lambda(stop-ids_0 phase_45)"
+"(lambda(stop-ids_0 phase_42)"
 "(begin"
 "(if(null? stop-ids_0)"
 "(let-values() stop-ids_0)"
 "(let-values()"
-"(let-values(((p-core-stx_0)(syntax-shift-phase-level$1 core-stx phase_45)))"
+"(let-values(((p-core-stx_0)(syntax-shift-phase-level$1 core-stx phase_42)))"
 "(if(if(= 1(length stop-ids_0))"
-"(free-identifier=?$1(car stop-ids_0)(datum->syntax$1 p-core-stx_0 'module*) phase_45 phase_45)"
+"(free-identifier=?$1(car stop-ids_0)(datum->syntax$1 p-core-stx_0 'module*) phase_42 phase_42)"
 " #f)"
 "(let-values() stop-ids_0)"
 "(let-values()"
 "(append"
 " stop-ids_0"
 "(reverse$1"
-"(let-values(((lst_101) auto-stop-syms))"
+"(let-values(((lst_103) auto-stop-syms))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
-"(let-values()(check-list lst_101)))"
-"((letrec-values(((for-loop_114)"
-"(lambda(fold-var_88 lst_6)"
+"(let-values()(check-list lst_103)))"
+"((letrec-values(((for-loop_112)"
+"(lambda(fold-var_88 lst_84)"
 "(begin"
 " 'for-loop"
-"(if(pair? lst_6)"
-"(let-values(((sym_66)(unsafe-car lst_6))((rest_49)(unsafe-cdr lst_6)))"
+"(if(pair? lst_84)"
+"(let-values(((sym_70)(unsafe-car lst_84))"
+"((rest_50)(unsafe-cdr lst_84)))"
 "(let-values(((fold-var_89)"
 "(let-values(((fold-var_90) fold-var_88))"
 "(let-values(((fold-var_60)"
@@ -41014,14 +40324,14 @@ static const char *startup_source =
 "(let-values()"
 "(datum->syntax$1"
 " p-core-stx_0"
-" sym_66))"
+" sym_70))"
 " fold-var_90))))"
 "(values fold-var_60)))))"
-"(if(not #f)(for-loop_114 fold-var_89 rest_49) fold-var_89)))"
+"(if(not #f)(for-loop_112 fold-var_89 rest_50) fold-var_89)))"
 " fold-var_88)))))"
-" for-loop_114)"
+" for-loop_112)"
 " null"
-" lst_101)))))))))))))"
+" lst_103)))))))))))))"
 "(define-values"
 "(auto-stop-syms)"
 " '(begin"
@@ -41041,33 +40351,33 @@ static const char *startup_source =
 " #%variable-reference))"
 "(define-values"
 "(module-expand-stop-ids)"
-"(lambda(phase_112)"
+"(lambda(phase_107)"
 "(begin"
-"(let-values(((p-core-stx_1)(syntax-shift-phase-level$1 core-stx phase_112)))"
+"(let-values(((p-core-stx_1)(syntax-shift-phase-level$1 core-stx phase_107)))"
 "(reverse$1"
-"(let-values(((lst_223) module-stop-syms))"
+"(let-values(((lst_102) module-stop-syms))"
 "(begin"
-"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_223)))"
-"((letrec-values(((for-loop_258)"
-"(lambda(fold-var_243 lst_264)"
+"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_102)))"
+"((letrec-values(((for-loop_111)"
+"(lambda(fold-var_237 lst_259)"
 "(begin"
 " 'for-loop"
-"(if(pair? lst_264)"
-"(let-values(((sym_18)(unsafe-car lst_264))((rest_159)(unsafe-cdr lst_264)))"
-"(let-values(((fold-var_222)"
-"(let-values(((fold-var_223) fold-var_243))"
-"(let-values(((fold-var_224)"
+"(if(pair? lst_259)"
+"(let-values(((sym_18)(unsafe-car lst_259))((rest_162)(unsafe-cdr lst_259)))"
+"(let-values(((fold-var_216)"
+"(let-values(((fold-var_217) fold-var_237))"
+"(let-values(((fold-var_218)"
 "(let-values()"
 "(cons"
 "(let-values()"
 "(datum->syntax$1 p-core-stx_1 sym_18))"
-" fold-var_223))))"
-"(values fold-var_224)))))"
-"(if(not #f)(for-loop_258 fold-var_222 rest_159) fold-var_222)))"
-" fold-var_243)))))"
-" for-loop_258)"
+" fold-var_217))))"
+"(values fold-var_218)))))"
+"(if(not #f)(for-loop_111 fold-var_216 rest_162) fold-var_216)))"
+" fold-var_237)))))"
+" for-loop_111)"
 " null"
-" lst_223))))))))"
+" lst_102))))))))"
 "(define-values"
 "(module-stop-syms)"
 "(append"
@@ -41082,7 +40392,7 @@ static const char *startup_source =
 " internal-definition-context-add-scope?"
 " internal-definition-context-env-mixins"
 " internal-definition-context-parent-ctx)"
-"(let-values(((struct:_39 make-_39 ?_39 -ref_39 -set!_39)"
+"(let-values(((struct:_40 make-_40 ?_40 -ref_40 -set!_40)"
 "(let-values()"
 "(let-values()"
 "(make-struct-type"
@@ -41098,42 +40408,42 @@ static const char *startup_source =
 " #f"
 " 'internal-definition-context)))))"
 "(values"
-" struct:_39"
-" make-_39"
-" ?_39"
-"(make-struct-field-accessor -ref_39 0 'frame-id)"
-"(make-struct-field-accessor -ref_39 1 'scope)"
-"(make-struct-field-accessor -ref_39 2 'add-scope?)"
-"(make-struct-field-accessor -ref_39 3 'env-mixins)"
-"(make-struct-field-accessor -ref_39 4 'parent-ctx))))"
+" struct:_40"
+" make-_40"
+" ?_40"
+"(make-struct-field-accessor -ref_40 0 'frame-id)"
+"(make-struct-field-accessor -ref_40 1 'scope)"
+"(make-struct-field-accessor -ref_40 2 'add-scope?)"
+"(make-struct-field-accessor -ref_40 3 'env-mixins)"
+"(make-struct-field-accessor -ref_40 4 'parent-ctx))))"
 "(define-values"
 "(struct:env-mixin env-mixin2.1 env-mixin? env-mixin-id env-mixin-sym env-mixin-value env-mixin-cache)"
-"(let-values(((struct:_77 make-_77 ?_77 -ref_77 -set!_77)"
+"(let-values(((struct:_78 make-_78 ?_78 -ref_78 -set!_78)"
 "(let-values()"
 "(let-values()"
 "(make-struct-type 'env-mixin #f 4 0 #f null(current-inspector) #f '(0 1 2 3) #f 'env-mixin)))))"
 "(values"
-" struct:_77"
-" make-_77"
-" ?_77"
-"(make-struct-field-accessor -ref_77 0 'id)"
-"(make-struct-field-accessor -ref_77 1 'sym)"
-"(make-struct-field-accessor -ref_77 2 'value)"
-"(make-struct-field-accessor -ref_77 3 'cache))))"
+" struct:_78"
+" make-_78"
+" ?_78"
+"(make-struct-field-accessor -ref_78 0 'id)"
+"(make-struct-field-accessor -ref_78 1 'sym)"
+"(make-struct-field-accessor -ref_78 2 'value)"
+"(make-struct-field-accessor -ref_78 3 'cache))))"
 "(define-values"
 "(1/syntax-local-make-definition-context)"
-"(let-values(((syntax-local-make-definition-context7_0)"
-"(lambda(parent-ctx3_0 add-scope?4_0 parent-ctx5_0 add-scope?6_0)"
+"(let-values(((syntax-local-make-definition-context5_0)"
+"(lambda(parent-ctx3_0 add-scope?4_0)"
 "(begin"
-" 'syntax-local-make-definition-context7"
-"(let-values(((parent-ctx_0)(if parent-ctx5_0 parent-ctx3_0 #f)))"
-"(let-values(((add-scope?_0)(if add-scope?6_0 add-scope?4_0 #t)))"
+" 'syntax-local-make-definition-context5"
+"(let-values(((parent-ctx_0) parent-ctx3_0))"
+"(let-values(((add-scope?_0) add-scope?4_0))"
 "(let-values()"
 "(let-values((()"
 "(begin"
-"(if(let-values(((or-part_36)(not parent-ctx_0)))"
-"(if or-part_36"
-" or-part_36"
+"(if(let-values(((or-part_64)(not parent-ctx_0)))"
+"(if or-part_64"
+" or-part_64"
 "(1/internal-definition-context? parent-ctx_0)))"
 "(void)"
 "(let-values()"
@@ -41143,17 +40453,17 @@ static const char *startup_source =
 " parent-ctx_0)))"
 "(values))))"
 "(let-values(((ctx_43)"
-"(let-values(((temp51_2) 'syntax-local-make-definition-context))"
-"(get-current-expand-context17.1 #f #f temp51_2 #t))))"
+"(let-values(((temp47_0) 'syntax-local-make-definition-context))"
+"(get-current-expand-context16.1 #f temp47_0))))"
 "(let-values(((frame-id_8)"
-"(let-values(((or-part_68)(root-expand-context-frame-id ctx_43)))"
-"(if or-part_68"
-" or-part_68"
-"(let-values(((or-part_220)"
+"(let-values(((or-part_65)(root-expand-context-frame-id ctx_43)))"
+"(if or-part_65"
+" or-part_65"
+"(let-values(((or-part_227)"
 "(if parent-ctx_0"
 "(internal-definition-context-frame-id parent-ctx_0)"
 " #f)))"
-"(if or-part_220 or-part_220(gensym)))))))"
+"(if or-part_227 or-part_227(gensym)))))))"
 "(let-values(((sc_32)(new-scope 'intdef)))"
 "(let-values(((def-ctx-scopes_4)(expand-context-def-ctx-scopes ctx_43)))"
 "(begin"
@@ -41169,19 +40479,19 @@ static const char *startup_source =
 "(box null)"
 " parent-ctx_0))))))))))))))"
 "(case-lambda"
-"(()(begin 'syntax-local-make-definition-context(syntax-local-make-definition-context7_0 #f #f #f #f)))"
-"((parent-ctx_1 add-scope?4_1)(syntax-local-make-definition-context7_0 parent-ctx_1 add-scope?4_1 #t #t))"
-"((parent-ctx3_1)(syntax-local-make-definition-context7_0 parent-ctx3_1 #f #t #f)))))"
+"(()(begin 'syntax-local-make-definition-context(syntax-local-make-definition-context5_0 #f #t)))"
+"((parent-ctx_1 add-scope?4_1)(syntax-local-make-definition-context5_0 parent-ctx_1 add-scope?4_1))"
+"((parent-ctx3_1)(syntax-local-make-definition-context5_0 parent-ctx3_1 #t)))))"
 "(define-values"
 "(1/syntax-local-bind-syntaxes)"
-"(let-values(((syntax-local-bind-syntaxes14_0)"
-"(lambda(ids11_1 s12_1 intdef13_0 extra-intdefs9_0 extra-intdefs10_0)"
+"(let-values(((syntax-local-bind-syntaxes11_0)"
+"(lambda(ids8_0 s9_0 intdef10_0 extra-intdefs7_0)"
 "(begin"
-" 'syntax-local-bind-syntaxes14"
-"(let-values(((ids_25) ids11_1))"
-"(let-values(((s_83) s12_1))"
-"(let-values(((intdef_0) intdef13_0))"
-"(let-values(((extra-intdefs_0)(if extra-intdefs10_0 extra-intdefs9_0 '())))"
+" 'syntax-local-bind-syntaxes11"
+"(let-values(((ids_25) ids8_0))"
+"(let-values(((s_422) s9_0))"
+"(let-values(((intdef_0) intdef10_0))"
+"(let-values(((extra-intdefs_0) extra-intdefs7_0))"
 "(let-values()"
 "(let-values((()"
 "(begin"
@@ -41195,14 +40505,14 @@ static const char *startup_source =
 "(values))))"
 "(let-values((()"
 "(begin"
-"(if(let-values(((or-part_252)(not s_83)))"
-"(if or-part_252 or-part_252(syntax?$1 s_83)))"
+"(if(let-values(((or-part_99)(not s_422)))"
+"(if or-part_99 or-part_99(syntax?$1 s_422)))"
 "(void)"
 "(let-values()"
 "(raise-argument-error"
 " 'syntax-local-bind-syntaxes"
 "                                                     \"(or/c syntax? #f)\""
-" s_83)))"
+" s_422)))"
 "(values))))"
 "(let-values((()"
 "(begin"
@@ -41225,8 +40535,8 @@ static const char *startup_source =
 " extra-intdefs_0)))"
 "(values))))"
 "(let-values(((ctx_44)"
-"(let-values(((temp52_3) 'local-expand))"
-"(get-current-expand-context17.1 #f #f temp52_3 #t))))"
+"(let-values(((temp48_2) 'local-expand))"
+"(get-current-expand-context16.1 #f temp48_2))))"
 "(let-values((()"
 "(begin"
 "(let-values(((obs_29)(expand-context-observer ctx_44)))"
@@ -41236,78 +40546,74 @@ static const char *startup_source =
 "(call-expand-observe obs_29 'local-bind ids_25)))"
 "(void)))"
 "(values))))"
-"(let-values(((phase_113)(expand-context-phase ctx_44)))"
+"(let-values(((phase_7)(expand-context-phase ctx_44)))"
 "(let-values(((all-intdefs_0)"
 "(if(list? extra-intdefs_0)"
 "(cons intdef_0 extra-intdefs_0)"
 "(list intdef_0 extra-intdefs_0))))"
 "(let-values(((intdef-ids_0)"
 "(reverse$1"
-"(let-values(((lst_289) ids_25))"
+"(let-values(((lst_184) ids_25))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
 "(#%variable-reference))"
 "(void)"
-"(let-values()(check-list lst_289)))"
-"((letrec-values(((for-loop_259)"
-"(lambda(fold-var_244 lst_189)"
+"(let-values()(check-list lst_184)))"
+"((letrec-values(((for-loop_117)"
+"(lambda(fold-var_230 lst_285)"
 "(begin"
 " 'for-loop"
-"(if(pair? lst_189)"
-"(let-values(((id_71)"
+"(if(pair? lst_285)"
+"(let-values(((id_69)"
 "(unsafe-car"
-" lst_189))"
-"((rest_100)"
+" lst_285))"
+"((rest_163)"
 "(unsafe-cdr"
-" lst_189)))"
-"(let-values(((fold-var_245)"
-"(let-values(((fold-var_246)"
-" fold-var_244))"
-"(let-values(((fold-var_247)"
+" lst_285)))"
+"(let-values(((fold-var_238)"
+"(let-values(((fold-var_239)"
+" fold-var_230))"
+"(let-values(((fold-var_240)"
 "(let-values()"
 "(cons"
 "(let-values()"
 "(let-values(((pre-id_0)"
 "(remove-use-site-scopes"
 "(flip-introduction-scopes"
-" id_71"
+" id_69"
 " ctx_44)"
 " ctx_44)))"
-"(let-values(((temp53_1)"
-"(let-values(((pre-id55_0)"
+"(let-values(((temp49_1)"
+"(let-values(((pre-id51_0)"
 " pre-id_0)"
-"((intdef56_0)"
+"((intdef52_0)"
 " intdef_0)"
-"((temp57_0)"
+"((temp53_1)"
 " #t))"
-"(add-intdef-scopes28.1"
-" #f"
-" #f"
-" temp57_0"
-" #t"
-" pre-id55_0"
-" intdef56_0)))"
-"((extra-intdefs54_0)"
-" extra-intdefs_0))"
-"(add-intdef-scopes28.1"
-" #f"
-" #f"
-" #f"
-" #f"
+"(add-intdef-scopes24.1"
+" unsafe-undefined"
 " temp53_1"
-" extra-intdefs54_0))))"
-" fold-var_246))))"
+" pre-id51_0"
+" intdef52_0)))"
+"((extra-intdefs50_0)"
+" extra-intdefs_0))"
+"(add-intdef-scopes24.1"
+" unsafe-undefined"
+" #f"
+" temp49_1"
+" extra-intdefs50_0))))"
+" fold-var_239))))"
 "(values"
-" fold-var_247)))))"
+" fold-var_240)))))"
 "(if(not #f)"
-"(for-loop_259"
-" fold-var_245"
-" rest_100)"
-" fold-var_245)))"
-" fold-var_244)))))"
-" for-loop_259)"
+"(for-loop_117"
+" fold-var_238"
+" rest_163)"
+" fold-var_238)))"
+" fold-var_230)))))"
+" for-loop_117)"
 " null"
-" lst_289))))))"
+" lst_184))))))"
 "(let-values((()"
 "(begin"
 "(let-values(((obs_30)"
@@ -41321,99 +40627,95 @@ static const char *startup_source =
 " intdef-ids_0)))"
 "(void)))"
 "(values))))"
-"(let-values(((syms_20)"
+"(let-values(((syms_19)"
 "(reverse$1"
-"(let-values(((lst_290) intdef-ids_0))"
+"(let-values(((lst_163) intdef-ids_0))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
 "(#%variable-reference))"
 "(void)"
-"(let-values()(check-list lst_290)))"
-"((letrec-values(((for-loop_5)"
-"(lambda(fold-var_248 lst_168)"
+"(let-values()(check-list lst_163)))"
+"((letrec-values(((for-loop_192)"
+"(lambda(fold-var_158 lst_164)"
 "(begin"
 " 'for-loop"
-"(if(pair? lst_168)"
+"(if(pair? lst_164)"
 "(let-values(((intdef-id_0)"
 "(unsafe-car"
-" lst_168))"
-"((rest_86)"
+" lst_164))"
+"((rest_164)"
 "(unsafe-cdr"
-" lst_168)))"
-"(let-values(((fold-var_249)"
-"(let-values(((fold-var_250)"
-" fold-var_248))"
-"(let-values(((fold-var_162)"
+" lst_164)))"
+"(let-values(((fold-var_241)"
+"(let-values(((fold-var_175)"
+" fold-var_158))"
+"(let-values(((fold-var_242)"
 "(let-values()"
 "(cons"
 "(let-values()"
-"(let-values(((intdef-id58_0)"
+"(let-values(((intdef-id54_0)"
 " intdef-id_0)"
-"((phase59_0)"
-" phase_113)"
-"((temp60_3)"
+"((phase55_0)"
+" phase_7)"
+"((temp56_2)"
 "(root-expand-context-counter"
 " ctx_44))"
-"((temp61_1)"
+"((temp57_0)"
 "(internal-definition-context-frame-id"
 " intdef_0)))"
 "(add-local-binding!37.1"
-" temp61_1"
-" #t"
+" temp57_0"
 " #f"
-" #f"
-" intdef-id58_0"
-" phase59_0"
-" temp60_3)))"
-" fold-var_250))))"
+" intdef-id54_0"
+" phase55_0"
+" temp56_2)))"
+" fold-var_175))))"
 "(values"
-" fold-var_162)))))"
+" fold-var_242)))))"
 "(if(not #f)"
-"(for-loop_5"
-" fold-var_249"
-" rest_86)"
-" fold-var_249)))"
-" fold-var_248)))))"
-" for-loop_5)"
+"(for-loop_192"
+" fold-var_241"
+" rest_164)"
+" fold-var_241)))"
+" fold-var_158)))))"
+" for-loop_192)"
 " null"
-" lst_290))))))"
+" lst_163))))))"
 "(let-values(((vals_5)"
-"(if s_83"
+"(if s_422"
 "(let-values()"
 "(let-values(((input-s_0)"
 "(flip-introduction-scopes"
-"(let-values(((s62_0) s_83)"
-"((all-intdefs63_0)"
+"(let-values(((s58_0) s_422)"
+"((all-intdefs59_0)"
 " all-intdefs_0))"
-"(add-intdef-scopes28.1"
+"(add-intdef-scopes24.1"
+" unsafe-undefined"
 " #f"
-" #f"
-" #f"
-" #f"
-" s62_0"
-" all-intdefs63_0))"
+" s58_0"
+" all-intdefs59_0))"
 " ctx_44)))"
 "(let-values(((tmp-env_0)"
-"(let-values(((lst_103) syms_20))"
+"(let-values(((lst_286) syms_19))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
 "(#%variable-reference))"
 "(void)"
 "(let-values()"
-"(check-list lst_103)))"
-"((letrec-values(((for-loop_121)"
+"(check-list lst_286)))"
+"((letrec-values(((for-loop_253)"
 "(lambda(env_7"
-" lst_11)"
+" lst_105)"
 "(begin"
 " 'for-loop"
 "(if(pair?"
-" lst_11)"
-"(let-values(((sym_67)"
+" lst_105)"
+"(let-values(((sym_71)"
 "(unsafe-car"
-" lst_11))"
-"((rest_51)"
+" lst_105))"
+"((rest_165)"
 "(unsafe-cdr"
-" lst_11)))"
+" lst_105)))"
 "(let-values(((env_8)"
 "(let-values(((env_9)"
 " env_7))"
@@ -41421,20 +40723,20 @@ static const char *startup_source =
 "(let-values()"
 "(hash-set"
 " env_9"
-" sym_67"
+" sym_71"
 " variable))))"
 "(values"
 " env_10)))))"
 "(if(not"
 " #f)"
-"(for-loop_121"
+"(for-loop_253"
 " env_8"
-" rest_51)"
+" rest_165)"
 " env_8)))"
 " env_7)))))"
-" for-loop_121)"
+" for-loop_253)"
 "(expand-context-env ctx_44)"
-" lst_103)))))"
+" lst_286)))))"
 "(let-values((()"
 "(begin"
 "(let-values(((obs_31)"
@@ -41453,69 +40755,64 @@ static const char *startup_source =
 " 'syntax-local-bind-syntaxes"
 " input-s_0"
 " ids_25"
-"(let-values(((temp64_2)"
-"(let-values(((v_195)"
+"(let-values(((temp60_3)"
+"(let-values(((v_193)"
 " ctx_44))"
-"(let-values(((the-struct_64)"
-" v_195))"
+"(let-values(((the-struct_65)"
+" v_193))"
 "(if(expand-context/outer?"
-" the-struct_64)"
-"(let-values(((env67_0)"
+" the-struct_65)"
+"(let-values(((env63_0)"
 " tmp-env_0)"
-"((inner68_0)"
+"((inner64_0)"
 "(root-expand-context/outer-inner"
-" v_195)))"
+" v_193)))"
 "(expand-context/outer1.1"
-" inner68_0"
+" inner64_0"
 "(root-expand-context/outer-post-expansion-scope"
-" the-struct_64)"
+" the-struct_65)"
 "(root-expand-context/outer-use-site-scopes"
-" the-struct_64)"
+" the-struct_65)"
 "(root-expand-context/outer-frame-id"
-" the-struct_64)"
+" the-struct_65)"
 "(expand-context/outer-context"
-" the-struct_64)"
-" env67_0"
+" the-struct_65)"
+" env63_0"
 "(expand-context/outer-post-expansion-scope-action"
-" the-struct_64)"
+" the-struct_65)"
 "(expand-context/outer-scopes"
-" the-struct_64)"
+" the-struct_65)"
 "(expand-context/outer-def-ctx-scopes"
-" the-struct_64)"
+" the-struct_65)"
 "(expand-context/outer-binding-layer"
-" the-struct_64)"
+" the-struct_65)"
 "(expand-context/outer-reference-records"
-" the-struct_64)"
+" the-struct_65)"
 "(expand-context/outer-only-immediate?"
-" the-struct_64)"
+" the-struct_65)"
 "(expand-context/outer-need-eventually-defined"
-" the-struct_64)"
+" the-struct_65)"
 "(expand-context/outer-current-introduction-scopes"
-" the-struct_64)"
+" the-struct_65)"
 "(expand-context/outer-name"
-" the-struct_64)))"
+" the-struct_65)))"
 "(raise-argument-error"
 " 'struct-copy"
 "                                                                                                                \"expand-context/outer?\""
-" the-struct_64)))))"
-"((temp65_1)"
+" the-struct_65)))))"
+"((temp61_1)"
 " 'expression)"
-"((all-intdefs66_0)"
+"((all-intdefs62_0)"
 " all-intdefs_0))"
-"(make-local-expand-context46.1"
-" temp65_1"
-" all-intdefs66_0"
+"(make-local-expand-context42.1"
+" temp61_1"
+" all-intdefs62_0"
+" #t"
+" unsafe-undefined"
 " #f"
 " #f"
 " #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" temp64_2)))))"
+" temp60_3)))))"
 "(begin"
 "(let-values(((obs_32)"
 "(expand-context-observer"
@@ -41530,44 +40827,44 @@ static const char *startup_source =
 " vals_6))))))"
 "(let-values()"
 "(reverse$1"
-"(let-values(((lst_291) ids_25))"
+"(let-values(((lst_287) ids_25))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
 "(#%variable-reference))"
 "(void)"
-"(let-values()(check-list lst_291)))"
-"((letrec-values(((for-loop_81)"
-"(lambda(fold-var_251"
-" lst_292)"
+"(let-values()(check-list lst_287)))"
+"((letrec-values(((for-loop_254)"
+"(lambda(fold-var_181"
+" lst_288)"
 "(begin"
 " 'for-loop"
-"(if(pair? lst_292)"
-"(let-values(((id_48)"
+"(if(pair? lst_288)"
+"(let-values(((id_8)"
 "(unsafe-car"
-" lst_292))"
-"((rest_160)"
+" lst_288))"
+"((rest_166)"
 "(unsafe-cdr"
-" lst_292)))"
-"(let-values(((fold-var_183)"
-"(let-values(((fold-var_99)"
-" fold-var_251))"
-"(let-values(((fold-var_100)"
+" lst_288)))"
+"(let-values(((fold-var_98)"
+"(let-values(((fold-var_35)"
+" fold-var_181))"
+"(let-values(((fold-var_243)"
 "(let-values()"
 "(cons"
 "(let-values()"
 " variable)"
-" fold-var_99))))"
+" fold-var_35))))"
 "(values"
-" fold-var_100)))))"
+" fold-var_243)))))"
 "(if(not #f)"
-"(for-loop_81"
-" fold-var_183"
-" rest_160)"
-" fold-var_183)))"
-" fold-var_251)))))"
-" for-loop_81)"
+"(for-loop_254"
+" fold-var_98"
+" rest_166)"
+" fold-var_98)))"
+" fold-var_181)))))"
+" for-loop_254)"
 " null"
-" lst_291))))))))"
+" lst_287))))))))"
 "(let-values(((env-mixins_0)"
 "(internal-definition-context-env-mixins intdef_0)))"
 "(begin"
@@ -41575,86 +40872,86 @@ static const char *startup_source =
 " env-mixins_0"
 "(append"
 "(reverse$1"
-"(let-values(((lst_293) intdef-ids_0)"
-"((lst_287) syms_20)"
-"((lst_50) vals_5))"
+"(let-values(((lst_289) intdef-ids_0)"
+"((lst_278) syms_19)"
+"((lst_290) vals_5))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
 "(#%variable-reference))"
 "(void)"
-"(let-values()(check-list lst_293)))"
+"(let-values()(check-list lst_289)))"
 "(if(variable-reference-from-unsafe?"
 "(#%variable-reference))"
 "(void)"
-"(let-values()(check-list lst_287)))"
+"(let-values()(check-list lst_278)))"
 "(if(variable-reference-from-unsafe?"
 "(#%variable-reference))"
 "(void)"
-"(let-values()(check-list lst_50)))"
-"((letrec-values(((for-loop_74)"
-"(lambda(fold-var_35"
-" lst_51"
-" lst_294"
-" lst_295)"
+"(let-values()(check-list lst_290)))"
+"((letrec-values(((for-loop_255)"
+"(lambda(fold-var_38"
+" lst_191"
+" lst_291"
+" lst_292)"
 "(begin"
 " 'for-loop"
-"(if(if(pair? lst_51)"
-"(if(pair? lst_294)"
-"(pair? lst_295)"
+"(if(if(pair? lst_191)"
+"(if(pair? lst_291)"
+"(pair? lst_292)"
 " #f)"
 " #f)"
 "(let-values(((intdef-id_1)"
 "(unsafe-car"
-" lst_51))"
-"((rest_161)"
+" lst_191))"
+"((rest_167)"
 "(unsafe-cdr"
-" lst_51))"
-"((sym_68)"
+" lst_191))"
+"((sym_5)"
 "(unsafe-car"
-" lst_294))"
-"((rest_162)"
+" lst_291))"
+"((rest_168)"
 "(unsafe-cdr"
-" lst_294))"
-"((val_73)"
+" lst_291))"
+"((val_70)"
 "(unsafe-car"
-" lst_295))"
-"((rest_163)"
+" lst_292))"
+"((rest_169)"
 "(unsafe-cdr"
-" lst_295)))"
-"(let-values(((fold-var_252)"
-"(let-values(((fold-var_187)"
-" fold-var_35))"
-"(let-values(((fold-var_253)"
+" lst_292)))"
+"(let-values(((fold-var_244)"
+"(let-values(((fold-var_245)"
+" fold-var_38))"
+"(let-values(((fold-var_246)"
 "(let-values()"
 "(cons"
 "(let-values()"
 "(begin"
 "(maybe-install-free=id-in-context!"
-" val_73"
+" val_70"
 " intdef-id_1"
-" phase_113"
+" phase_7"
 " ctx_44)"
 "(env-mixin2.1"
 " intdef-id_1"
-" sym_68"
-" val_73"
+" sym_5"
+" val_70"
 "(make-weak-hasheq))))"
-" fold-var_187))))"
+" fold-var_245))))"
 "(values"
-" fold-var_253)))))"
+" fold-var_246)))))"
 "(if(not #f)"
-"(for-loop_74"
-" fold-var_252"
-" rest_161"
-" rest_162"
-" rest_163)"
-" fold-var_252)))"
-" fold-var_35)))))"
-" for-loop_74)"
+"(for-loop_255"
+" fold-var_244"
+" rest_167"
+" rest_168"
+" rest_169)"
+" fold-var_244)))"
+" fold-var_38)))))"
+" for-loop_255)"
 " null"
-" lst_293"
-" lst_287"
-" lst_50))))"
+" lst_289"
+" lst_278"
+" lst_290))))"
 "(unbox env-mixins_0)))"
 "(let-values(((obs_33)(expand-context-observer ctx_44)))"
 "(if obs_33"
@@ -41663,10 +40960,9 @@ static const char *startup_source =
 "(call-expand-observe obs_33 'exit-local-bind)))"
 "(void))))))))))))))))))))))))))"
 "(case-lambda"
-"((ids_26 s_415 intdef_1)"
-"(begin 'syntax-local-bind-syntaxes(syntax-local-bind-syntaxes14_0 ids_26 s_415 intdef_1 #f #f)))"
-"((ids_27 s_436 intdef_2 extra-intdefs9_1)"
-"(syntax-local-bind-syntaxes14_0 ids_27 s_436 intdef_2 extra-intdefs9_1 #t)))))"
+"((ids_26 s_200 intdef_1)"
+"(begin 'syntax-local-bind-syntaxes(syntax-local-bind-syntaxes11_0 ids_26 s_200 intdef_1 '())))"
+"((ids_27 s_61 intdef_2 extra-intdefs7_1)(syntax-local-bind-syntaxes11_0 ids_27 s_61 intdef_2 extra-intdefs7_1)))))"
 "(define-values"
 "(1/internal-definition-context-binding-identifiers)"
 "(lambda(intdef_3)"
@@ -41681,37 +40977,38 @@ static const char *startup_source =
 "             \"internal-definition-context?\""
 " intdef_3)))"
 "(reverse$1"
-"(let-values(((lst_28)(unbox(internal-definition-context-env-mixins intdef_3))))"
+"(let-values(((lst_293)(unbox(internal-definition-context-env-mixins intdef_3))))"
 "(begin"
-"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_28)))"
-"((letrec-values(((for-loop_23)"
-"(lambda(fold-var_254 lst_29)"
+"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_293)))"
+"((letrec-values(((for-loop_256)"
+"(lambda(fold-var_189 lst_294)"
 "(begin"
 " 'for-loop"
-"(if(pair? lst_29)"
-"(let-values(((env-mixin_0)(unsafe-car lst_29))((rest_11)(unsafe-cdr lst_29)))"
-"(let-values(((fold-var_255)"
-"(let-values(((fold-var_256) fold-var_254))"
-"(let-values(((fold-var_257)"
+"(if(pair? lst_294)"
+"(let-values(((env-mixin_0)(unsafe-car lst_294))"
+"((rest_170)(unsafe-cdr lst_294)))"
+"(let-values(((fold-var_247)"
+"(let-values(((fold-var_248) fold-var_189))"
+"(let-values(((fold-var_249)"
 "(let-values()"
 "(cons"
 "(let-values()(env-mixin-id env-mixin_0))"
-" fold-var_256))))"
-"(values fold-var_257)))))"
-"(if(not #f)(for-loop_23 fold-var_255 rest_11) fold-var_255)))"
-" fold-var_254)))))"
-" for-loop_23)"
+" fold-var_248))))"
+"(values fold-var_249)))))"
+"(if(not #f)(for-loop_256 fold-var_247 rest_170) fold-var_247)))"
+" fold-var_189)))))"
+" for-loop_256)"
 " null"
-" lst_28))))))))"
+" lst_293))))))))"
 "(define-values"
 "(1/internal-definition-context-introduce)"
-"(let-values(((internal-definition-context-introduce20_0)"
-"(lambda(intdef18_0 s19_0 mode16_0 mode17_0)"
+"(let-values(((internal-definition-context-introduce16_0)"
+"(lambda(intdef14_0 s15_0 mode13_0)"
 "(begin"
-" 'internal-definition-context-introduce20"
-"(let-values(((intdef_4) intdef18_0))"
-"(let-values(((s_420) s19_0))"
-"(let-values(((mode_13)(if mode17_0 mode16_0 'flip)))"
+" 'internal-definition-context-introduce16"
+"(let-values(((intdef_4) intdef14_0))"
+"(let-values(((s_423) s15_0))"
+"(let-values(((mode_13) mode13_0))"
 "(let-values()"
 "(begin"
 "(if(1/internal-definition-context? intdef_4)"
@@ -41721,14 +41018,14 @@ static const char *startup_source =
 " 'internal-definition-context-introduce"
 "                                   \"internal-definition-context?\""
 " intdef_4)))"
-"(if(syntax?$1 s_420)"
+"(if(syntax?$1 s_423)"
 "(void)"
 "(let-values()"
-"                                  (raise-argument-error 'internal-definition-context-introduce \"syntax?\" s_420)))"
-"(let-values(((s69_0) s_420)"
-"((intdef70_0) intdef_4)"
-"((temp71_0) #t)"
-"((temp72_0)"
+"                                  (raise-argument-error 'internal-definition-context-introduce \"syntax?\" s_423)))"
+"(let-values(((s65_0) s_423)"
+"((intdef66_0) intdef_4)"
+"((temp67_0) #t)"
+"((temp68_0)"
 "(let-values(((tmp_32) mode_13))"
 "(if(equal? tmp_32 'add)"
 "(let-values() add-scope)"
@@ -41741,11 +41038,11 @@ static const char *startup_source =
 " 'internal-definition-context-introduce"
 "                                                       \"(or/c 'add 'remove 'flip)\""
 " mode_13))))))))"
-"(add-intdef-scopes28.1 temp72_0 #t temp71_0 #t s69_0 intdef70_0)))))))))))"
+"(add-intdef-scopes24.1 temp68_0 temp67_0 s65_0 intdef66_0)))))))))))"
 "(case-lambda"
 "((intdef_5 s_67)"
-"(begin 'internal-definition-context-introduce(internal-definition-context-introduce20_0 intdef_5 s_67 #f #f)))"
-"((intdef_6 s_437 mode16_1)(internal-definition-context-introduce20_0 intdef_6 s_437 mode16_1 #t)))))"
+"(begin 'internal-definition-context-introduce(internal-definition-context-introduce16_0 intdef_5 s_67 'flip)))"
+"((intdef_6 s_68 mode13_1)(internal-definition-context-introduce16_0 intdef_6 s_68 mode13_1)))))"
 "(define-values"
 "(1/internal-definition-context-seal)"
 "(lambda(intdef_7)"
@@ -41759,58 +41056,58 @@ static const char *startup_source =
 "(void)))))"
 "(define-values"
 "(1/identifier-remove-from-definition-context)"
-"(lambda(id_72 intdef_8)"
+"(lambda(id_70 intdef_8)"
 "(begin"
 " 'identifier-remove-from-definition-context"
 "(begin"
-"(if(identifier? id_72)"
+"(if(identifier? id_70)"
 "(void)"
-"          (let-values () (raise-argument-error 'identifier-remove-from-definition-context \"identifier?\" id_72)))"
-"(if(let-values(((or-part_275)(1/internal-definition-context? intdef_8)))"
-"(if or-part_275 or-part_275(if(list? intdef_8)(andmap2 1/internal-definition-context? intdef_8) #f)))"
+"          (let-values () (raise-argument-error 'identifier-remove-from-definition-context \"identifier?\" id_70)))"
+"(if(let-values(((or-part_207)(1/internal-definition-context? intdef_8)))"
+"(if or-part_207 or-part_207(if(list? intdef_8)(andmap2 1/internal-definition-context? intdef_8) #f)))"
 "(void)"
 "(let-values()"
 "(raise-argument-error"
 " 'identifier-remove-from-definition-context"
 "             \"(or/c internal-definition-context? (listof internal-definition-context?))\""
 " intdef_8)))"
-"(let-values(((x_75)"
+"(let-values(((x_77)"
 "(let-values(((a_45) intdef_8))"
 "(if(list? a_45)"
 "(let-values()(reverse$1 a_45))"
 "(if(not a_45)(let-values() null)(let-values()(list a_45)))))))"
 "(begin"
 " #t"
-"((letrec-values(((for-loop_260)"
-"(lambda(id_73 a_46)"
+"((letrec-values(((for-loop_257)"
+"(lambda(id_71 a_46)"
 "(begin"
 " 'for-loop"
 "(if(pair? a_46)"
 "(let-values(((intdef_9)(car a_46)))"
+"(let-values(((id_72)"
+"(let-values(((id_73) id_71))"
 "(let-values(((id_74)"
-"(let-values(((id_75) id_73))"
-"(let-values(((id_76)"
 "(let-values()"
 "(1/internal-definition-context-introduce"
 " intdef_9"
-" id_75"
+" id_73"
 " 'remove))))"
-"(values id_76)))))"
-"(if(not #f)(for-loop_260 id_74(cdr a_46)) id_74)))"
-" id_73)))))"
-" for-loop_260)"
-" id_72"
-" x_75)))))))"
+"(values id_74)))))"
+"(if(not #f)(for-loop_257 id_72(cdr a_46)) id_72)))"
+" id_71)))))"
+" for-loop_257)"
+" id_70"
+" x_77)))))))"
 "(define-values"
 "(intdefs?)"
-"(lambda(x_76)"
+"(lambda(x_78)"
 "(begin"
-"(let-values(((or-part_276)(1/internal-definition-context? x_76)))"
-"(if or-part_276 or-part_276(if(list? x_76)(andmap2 1/internal-definition-context? x_76) #f))))))"
+"(let-values(((or-part_276)(1/internal-definition-context? x_78)))"
+"(if or-part_276 or-part_276(if(list? x_78)(andmap2 1/internal-definition-context? x_78) #f))))))"
 " (define-values (intdefs?-string) \"(or/c internal-definition-context? (listof internal-definition-context?))\")"
 "(define-values"
 "(intdefs-or-false?)"
-"(lambda(x_77)(begin(let-values(((or-part_277)(not x_77)))(if or-part_277 or-part_277(intdefs? x_77))))))"
+"(lambda(x_79)(begin(let-values(((or-part_277)(not x_79)))(if or-part_277 or-part_277(intdefs? x_79))))))"
 "(define-values"
 "(intdefs-or-false?-string)"
 "  \"(or/c internal-definition-context? (listof internal-definition-context?) #f)\")"
@@ -41818,14 +41115,14 @@ static const char *startup_source =
 "(add-intdef-bindings)"
 "(lambda(env_11 intdefs_0)"
 "(begin"
-"(let-values(((x_44)"
+"(let-values(((x_80)"
 "(let-values(((a_47) intdefs_0))"
 "(if(list? a_47)"
 "(let-values()(reverse$1 a_47))"
 "(if(not a_47)(let-values() null)(let-values()(list a_47)))))))"
 "(begin"
 " #t"
-"((letrec-values(((for-loop_261)"
+"((letrec-values(((for-loop_258)"
 "(lambda(env_12 a_48)"
 "(begin"
 " 'for-loop"
@@ -41848,7 +41145,7 @@ static const char *startup_source =
 "(unbox"
 "(internal-definition-context-env-mixins"
 " intdef_10))))"
-"((letrec-values(((loop_99)"
+"((letrec-values(((loop_94)"
 "(lambda(env_16"
 " env-mixins_2)"
 "(begin"
@@ -41859,17 +41156,17 @@ static const char *startup_source =
 "(let-values(((env-mixin_1)"
 "(car"
 " env-mixins_2)))"
-"(let-values(((or-part_278)"
+"(let-values(((or-part_180)"
 "(hash-ref"
 "(env-mixin-cache"
 " env-mixin_1)"
 " env_16"
 " #f)))"
-"(if or-part_278"
-" or-part_278"
+"(if or-part_180"
+" or-part_180"
 "(let-values(((new-env_0)"
 "(env-extend"
-"(loop_99"
+"(loop_94"
 " env_16"
 "(cdr"
 " env-mixins_2))"
@@ -41884,102 +41181,97 @@ static const char *startup_source =
 " env_16"
 " new-env_0)"
 " new-env_0)))))))))))"
-" loop_99)"
+" loop_94)"
 " parent-env_0"
 " env-mixins_1)))))))"
 "(values env_15)))))"
-"(if(not #f)(for-loop_261 env_13(cdr a_48)) env_13)))"
+"(if(not #f)(for-loop_258 env_13(cdr a_48)) env_13)))"
 " env_12)))))"
-" for-loop_261)"
+" for-loop_258)"
 " env_11"
-" x_44))))))"
+" x_80))))))"
 "(define-values"
-"(add-intdef-scopes28.1)"
-"(lambda(action23_0 action25_0 always?22_0 always?24_0 s26_0 intdefs27_0)"
+"(add-intdef-scopes24.1)"
+"(lambda(action19_0 always?18_0 s22_0 intdefs23_0)"
 "(begin"
-" 'add-intdef-scopes28"
-"(let-values(((s_97) s26_0))"
-"(let-values(((intdefs_1) intdefs27_0))"
-"(let-values(((always?_0)(if always?24_0 always?22_0 #f)))"
-"(let-values(((action_0)(if action25_0 action23_0 add-scope)))"
+" 'add-intdef-scopes24"
+"(let-values(((s_39) s22_0))"
+"(let-values(((intdefs_1) intdefs23_0))"
+"(let-values(((always?_0) always?18_0))"
+"(let-values(((action_0)(if(eq? action19_0 unsafe-undefined) add-scope action19_0)))"
 "(let-values()"
-"(let-values(((x_78)"
+"(let-values(((x_81)"
 "(let-values(((a_49) intdefs_1))"
 "(if(list? a_49)"
 "(let-values()(reverse$1 a_49))"
 "(if(not a_49)(let-values() null)(let-values()(list a_49)))))))"
 "(begin"
 " #t"
-"((letrec-values(((for-loop_262)"
-"(lambda(s_332 a_50)"
+"((letrec-values(((for-loop_259)"
+"(lambda(s_424 a_50)"
 "(begin"
 " 'for-loop"
 "(if(pair? a_50)"
 "(let-values(((intdef_11)(car a_50)))"
-"(let-values(((s_438)"
-"(let-values(((s_439) s_332))"
-"(if(let-values(((or-part_279) always?_0))"
-"(if or-part_279"
-" or-part_279"
+"(let-values(((s_321)"
+"(let-values(((s_213) s_424))"
+"(if(let-values(((or-part_278) always?_0))"
+"(if or-part_278"
+" or-part_278"
 "(internal-definition-context-add-scope?"
 " intdef_11)))"
-"(let-values(((s_172) s_439))"
-"(let-values(((s_440)"
+"(let-values(((s_425) s_213))"
+"(let-values(((s_426)"
 "(let-values()"
 "(action_0"
-" s_172"
+" s_425"
 "(internal-definition-context-scope"
 " intdef_11)))))"
-"(values s_440)))"
-" s_439))))"
-"(if(not #f)(for-loop_262 s_438(cdr a_50)) s_438)))"
-" s_332)))))"
-" for-loop_262)"
-" s_97"
-" x_78)))))))))))"
+"(values s_426)))"
+" s_213))))"
+"(if(not #f)(for-loop_259 s_321(cdr a_50)) s_321)))"
+" s_424)))))"
+" for-loop_259)"
+" s_39"
+" x_81)))))))))))"
 "(define-values"
-"(make-local-expand-context46.1)"
-"(lambda(context31_0"
-" intdefs33_0"
-" keep-#%expression?37_0"
-" keep-#%expression?44_0"
-" phase32_1"
-" phase39_0"
-" stop-ids34_0"
-" stop-ids41_0"
-" to-parsed-ok?35_0"
-" to-parsed-ok?42_0"
-" track-to-be-defined?36_0"
-" track-to-be-defined?43_0"
-" ctx45_0)"
+"(make-local-expand-context42.1)"
+"(lambda(context27_0"
+" intdefs29_0"
+" keep-#%expression?33_0"
+" phase28_1"
+" stop-ids30_0"
+" to-parsed-ok?31_0"
+" track-to-be-defined?32_0"
+" ctx41_0)"
 "(begin"
-" 'make-local-expand-context46"
-"(let-values(((ctx_45) ctx45_0))"
-"(let-values(((context_9) context31_0))"
-"(let-values(((phase_114)(if phase39_0 phase32_1(expand-context-phase ctx_45))))"
-"(let-values(((intdefs_2) intdefs33_0))"
-"(let-values(((stop-ids_1)(if stop-ids41_0 stop-ids34_0 #f)))"
-"(let-values(((to-parsed-ok?_0)(if to-parsed-ok?42_0 to-parsed-ok?35_0 #f)))"
-"(let-values(((track-to-be-defined?_0)(if track-to-be-defined?43_0 track-to-be-defined?36_0 #f)))"
-"(let-values(((keep-#%expression?_1)(if keep-#%expression?44_0 keep-#%expression?37_0 #t)))"
+" 'make-local-expand-context42"
+"(let-values(((ctx_45) ctx41_0))"
+"(let-values(((context_9) context27_0))"
+"(let-values(((phase_108)(if(eq? phase28_1 unsafe-undefined)(expand-context-phase ctx_45) phase28_1)))"
+"(let-values(((intdefs_2) intdefs29_0))"
+"(let-values(((stop-ids_1) stop-ids30_0))"
+"(let-values(((to-parsed-ok?_0) to-parsed-ok?31_0))"
+"(let-values(((track-to-be-defined?_0) track-to-be-defined?32_0))"
+"(let-values(((keep-#%expression?_1) keep-#%expression?33_0))"
 "(let-values()"
 "(let-values(((same-kind?_0)"
-"(let-values(((or-part_181)(eq? context_9(expand-context-context ctx_45))))"
-"(if or-part_181"
-" or-part_181"
+"(let-values(((or-part_279)(eq? context_9(expand-context-context ctx_45))))"
+"(if or-part_279"
+" or-part_279"
 "(if(list? context_9)(list?(expand-context-context ctx_45)) #f)))))"
 "(let-values(((all-stop-ids_0)"
-"(if stop-ids_1(stop-ids->all-stop-ids stop-ids_1 phase_114) #f)))"
+"(if stop-ids_1(stop-ids->all-stop-ids stop-ids_1 phase_108) #f)))"
 "(let-values(((def-ctx-scopes_5)"
 "(if(expand-context-def-ctx-scopes ctx_45)"
 "(unbox(expand-context-def-ctx-scopes ctx_45))"
 " null)))"
-"(let-values(((v_196) ctx_45))"
-"(let-values(((the-struct_65) v_196))"
-"(if(expand-context/outer? the-struct_65)"
-"(let-values(((context73_0) context_9)"
-"((env74_0)(add-intdef-bindings(expand-context-env ctx_45) intdefs_2))"
-"((use-site-scopes75_0)"
+"(let-values(((v_194) ctx_45))"
+"(let-values(((the-struct_66) v_194))"
+"(if(expand-context/outer? the-struct_66)"
+"(let-values(((context69_0) context_9)"
+"((env70_0)(add-intdef-bindings(expand-context-env ctx_45) intdefs_2))"
+"((use-site-scopes71_0)"
 "(if(let-values(((or-part_280)(eq? context_9 'module)))"
 "(if or-part_280"
 " or-part_280"
@@ -41989,8 +41281,8 @@ static const char *startup_source =
 "(root-expand-context-use-site-scopes ctx_45)))"
 "(if or-part_282 or-part_282(box null)))"
 " #f))"
-"((frame-id76_0)"
-"(let-values(((x_79)"
+"((frame-id72_0)"
+"(let-values(((x_82)"
 "(let-values(((a_51) intdefs_2))"
 "(if(list? a_51)"
 "(let-values()(reverse$1 a_51))"
@@ -41999,7 +41291,7 @@ static const char *startup_source =
 "(let-values()(list a_51)))))))"
 "(begin"
 " #t"
-"((letrec-values(((for-loop_41)"
+"((letrec-values(((for-loop_260)"
 "(lambda(frame-id_9 a_52)"
 "(begin"
 " 'for-loop"
@@ -42032,13 +41324,15 @@ static const char *startup_source =
 "(values"
 " frame-id_12)))))"
 "(if(not #f)"
-"(for-loop_41 frame-id_10(cdr a_52))"
+"(for-loop_260"
+" frame-id_10"
+"(cdr a_52))"
 " frame-id_10)))"
 " frame-id_9)))))"
-" for-loop_41)"
+" for-loop_260)"
 "(root-expand-context-frame-id ctx_45)"
-" x_79))))"
-"((post-expansion-scope77_0)"
+" x_82))))"
+"((post-expansion-scope73_0)"
 "(if(if intdefs_2(not(null? intdefs_2)) #f)"
 "(new-scope 'macro)"
 "(if same-kind?_0"
@@ -42046,120 +41340,124 @@ static const char *startup_source =
 "(root-expand-context-post-expansion-scope ctx_45)"
 " #f)"
 " #f)))"
-"((post-expansion-scope-action78_0)"
+"((post-expansion-scope-action74_0)"
 "(if(if intdefs_2(not(null? intdefs_2)) #f)"
-"(lambda(s_441 placeholder-sc_0)"
+"(lambda(s_427 placeholder-sc_0)"
 "(begin"
-" 'post-expansion-scope-action78"
-"(let-values(((s84_0) s_441)((intdefs85_0) intdefs_2))"
-"(add-intdef-scopes28.1 #f #f #f #f s84_0 intdefs85_0))))"
+" 'post-expansion-scope-action74"
+"(let-values(((s80_0) s_427)((intdefs81_0) intdefs_2))"
+"(add-intdef-scopes24.1"
+" unsafe-undefined"
+" #f"
+" s80_0"
+" intdefs81_0))))"
 "(expand-context-post-expansion-scope-action ctx_45)))"
-"((scopes79_0)(append def-ctx-scopes_5(expand-context-scopes ctx_45)))"
-"((only-immediate?80_0)(not stop-ids_1))"
-"((current-introduction-scopes81_0) null)"
-"((need-eventually-defined82_0)"
-"(let-values(((ht_138)"
+"((scopes75_0)(append def-ctx-scopes_5(expand-context-scopes ctx_45)))"
+"((only-immediate?76_0)(not stop-ids_1))"
+"((current-introduction-scopes77_0) null)"
+"((need-eventually-defined78_0)"
+"(let-values(((ht_130)"
 "(expand-context-need-eventually-defined ctx_45)))"
 "(if track-to-be-defined?_0"
-"(let-values() ht_138)"
-"(if ht_138(let-values()(make-hasheqv))(let-values() #f)))))"
-"((inner83_0)"
-"(let-values(((the-struct_66)"
-"(root-expand-context/outer-inner v_196)))"
-"(if(expand-context/inner? the-struct_66)"
-"(let-values(((to-parsed?86_0)"
+"(let-values() ht_130)"
+"(if ht_130(let-values()(make-hasheqv))(let-values() #f)))))"
+"((inner79_0)"
+"(let-values(((the-struct_67)"
+"(root-expand-context/outer-inner v_194)))"
+"(if(expand-context/inner? the-struct_67)"
+"(let-values(((to-parsed?82_0)"
 "(if to-parsed-ok?_0"
 "(expand-context-to-parsed? ctx_45)"
 " #f))"
-"((just-once?87_0) #f)"
-"((in-local-expand?88_0) #t)"
-"((keep-#%expression?89_0) keep-#%expression?_1)"
-"((stops90_0)"
+"((just-once?83_0) #f)"
+"((in-local-expand?84_0) #t)"
+"((keep-#%expression?85_0) keep-#%expression?_1)"
+"((stops86_0)"
 "(free-id-set"
-" phase_114"
+" phase_108"
 "(let-values(((or-part_284) all-stop-ids_0))"
 "(if or-part_284 or-part_284 null)))))"
 "(expand-context/inner2.1"
-"(root-expand-context/inner-self-mpi the-struct_66)"
-"(root-expand-context/inner-module-scopes the-struct_66)"
-"(root-expand-context/inner-top-level-bind-scope the-struct_66)"
-"(root-expand-context/inner-all-scopes-stx the-struct_66)"
-"(root-expand-context/inner-defined-syms the-struct_66)"
-"(root-expand-context/inner-counter the-struct_66)"
-"(root-expand-context/inner-lift-key the-struct_66)"
-" to-parsed?86_0"
-"(expand-context/inner-phase the-struct_66)"
-"(expand-context/inner-namespace the-struct_66)"
-" just-once?87_0"
-"(expand-context/inner-module-begin-k the-struct_66)"
-"(expand-context/inner-allow-unbound? the-struct_66)"
-" in-local-expand?88_0"
-" keep-#%expression?89_0"
-" stops90_0"
-"(expand-context/inner-declared-submodule-names the-struct_66)"
-"(expand-context/inner-lifts the-struct_66)"
-"(expand-context/inner-lift-envs the-struct_66)"
-"(expand-context/inner-module-lifts the-struct_66)"
-"(expand-context/inner-require-lifts the-struct_66)"
-"(expand-context/inner-to-module-lifts the-struct_66)"
-"(expand-context/inner-requires+provides the-struct_66)"
-"(expand-context/inner-observer the-struct_66)"
-"(expand-context/inner-for-serializable? the-struct_66)"
+"(root-expand-context/inner-self-mpi the-struct_67)"
+"(root-expand-context/inner-module-scopes the-struct_67)"
+"(root-expand-context/inner-top-level-bind-scope the-struct_67)"
+"(root-expand-context/inner-all-scopes-stx the-struct_67)"
+"(root-expand-context/inner-defined-syms the-struct_67)"
+"(root-expand-context/inner-counter the-struct_67)"
+"(root-expand-context/inner-lift-key the-struct_67)"
+" to-parsed?82_0"
+"(expand-context/inner-phase the-struct_67)"
+"(expand-context/inner-namespace the-struct_67)"
+" just-once?83_0"
+"(expand-context/inner-module-begin-k the-struct_67)"
+"(expand-context/inner-allow-unbound? the-struct_67)"
+" in-local-expand?84_0"
+" keep-#%expression?85_0"
+" stops86_0"
+"(expand-context/inner-declared-submodule-names the-struct_67)"
+"(expand-context/inner-lifts the-struct_67)"
+"(expand-context/inner-lift-envs the-struct_67)"
+"(expand-context/inner-module-lifts the-struct_67)"
+"(expand-context/inner-require-lifts the-struct_67)"
+"(expand-context/inner-to-module-lifts the-struct_67)"
+"(expand-context/inner-requires+provides the-struct_67)"
+"(expand-context/inner-observer the-struct_67)"
+"(expand-context/inner-for-serializable? the-struct_67)"
 "(expand-context/inner-should-not-encounter-macros?"
-" the-struct_66)))"
+" the-struct_67)))"
 "(raise-argument-error"
 " 'struct-copy"
 "                                                       \"expand-context/inner?\""
-" the-struct_66)))))"
+" the-struct_67)))))"
 "(expand-context/outer1.1"
-" inner83_0"
-" post-expansion-scope77_0"
-" use-site-scopes75_0"
-" frame-id76_0"
-" context73_0"
-" env74_0"
-" post-expansion-scope-action78_0"
-" scopes79_0"
-"(expand-context/outer-def-ctx-scopes the-struct_65)"
-"(expand-context/outer-binding-layer the-struct_65)"
-"(expand-context/outer-reference-records the-struct_65)"
-" only-immediate?80_0"
-" need-eventually-defined82_0"
-" current-introduction-scopes81_0"
-"(expand-context/outer-name the-struct_65)))"
+" inner79_0"
+" post-expansion-scope73_0"
+" use-site-scopes71_0"
+" frame-id72_0"
+" context69_0"
+" env70_0"
+" post-expansion-scope-action74_0"
+" scopes75_0"
+"(expand-context/outer-def-ctx-scopes the-struct_66)"
+"(expand-context/outer-binding-layer the-struct_66)"
+"(expand-context/outer-reference-records the-struct_66)"
+" only-immediate?76_0"
+" need-eventually-defined78_0"
+" current-introduction-scopes77_0"
+"(expand-context/outer-name the-struct_66)))"
 "(raise-argument-error"
 " 'struct-copy"
 "                                     \"expand-context/outer?\""
-" the-struct_65)))))))))))))))))))"
+" the-struct_66)))))))))))))))))))"
 "(define-values"
 "(flip-introduction-scopes)"
-"(lambda(s_232 ctx_46)(begin(flip-scopes s_232(expand-context-current-introduction-scopes ctx_46)))))"
+"(lambda(s_428 ctx_46)(begin(flip-scopes s_428(expand-context-current-introduction-scopes ctx_46)))))"
 "(define-values"
 "(1/syntax-transforming?)"
 "(lambda()"
 "(begin"
 " 'syntax-transforming?"
-"(if(let-values(((temp62_1) #t))(get-current-expand-context17.1 temp62_1 #t #f #f)) #t #f))))"
+"(if(let-values(((temp55_2) #t))(get-current-expand-context16.1 temp55_2 'unexpected)) #t #f))))"
 "(define-values"
 "(1/syntax-transforming-with-lifts?)"
 "(lambda()"
 "(begin"
 " 'syntax-transforming-with-lifts?"
-"(let-values(((ctx_47)(let-values(((temp63_2) #t))(get-current-expand-context17.1 temp63_2 #t #f #f))))"
+"(let-values(((ctx_47)(let-values(((temp56_3) #t))(get-current-expand-context16.1 temp56_3 'unexpected))))"
 "(if ctx_47(if(expand-context-lifts ctx_47) #t #f) #f)))))"
 "(define-values"
 "(1/syntax-transforming-module-expression?)"
 "(lambda()"
 "(begin"
 " 'syntax-transforming-module-expression?"
-"(let-values(((ctx_48)(let-values(((temp64_3) #t))(get-current-expand-context17.1 temp64_3 #t #f #f))))"
+"(let-values(((ctx_48)(let-values(((temp57_1) #t))(get-current-expand-context16.1 temp57_1 'unexpected))))"
 "(if ctx_48(if(expand-context-to-module-lifts ctx_48) #t #f) #f)))))"
 "(define-values"
 "(1/syntax-local-transforming-module-provides?)"
 "(lambda()"
 "(begin"
 " 'syntax-local-transforming-module-provides?"
-"(let-values(((ctx_49)(let-values(((temp65_2) #t))(get-current-expand-context17.1 temp65_2 #t #f #f))))"
+"(let-values(((ctx_49)(let-values(((temp58_1) #t))(get-current-expand-context16.1 temp58_1 'unexpected))))"
 "(if ctx_49(if(expand-context-requires+provides ctx_49) #t #f) #f)))))"
 "(define-values"
 "(1/syntax-local-context)"
@@ -42167,51 +41465,50 @@ static const char *startup_source =
 "(begin"
 " 'syntax-local-context"
 "(let-values(((ctx_50)"
-"(let-values(((temp66_2) 'syntax-local-context))"
-"(get-current-expand-context17.1 #f #f temp66_2 #t))))"
+"(let-values(((temp59_3) 'syntax-local-context))(get-current-expand-context16.1 #f temp59_3))))"
 "(expand-context-context ctx_50)))))"
 "(define-values"
 "(1/syntax-local-introduce)"
-"(lambda(s_442)"
+"(lambda(s_429)"
 "(begin"
 " 'syntax-local-introduce"
 "(let-values()"
 "(let-values()"
 "(let-values((()"
 "(begin"
-"(if(syntax?$1 s_442)"
+"(if(syntax?$1 s_429)"
 "(void)"
-"                            (let-values () (raise-argument-error 'syntax-local-introduce \"syntax?\" s_442)))"
+"                            (let-values () (raise-argument-error 'syntax-local-introduce \"syntax?\" s_429)))"
 "(values))))"
-"(let-values(((ctx_51)"
-"(let-values(((temp68_0) 'syntax-local-introduce))"
-"(get-current-expand-context17.1 #f #f temp68_0 #t))))"
-"(flip-introduction-scopes s_442 ctx_51))))))))"
+"(let-values(((ctx_9)"
+"(let-values(((temp61_2) 'syntax-local-introduce))"
+"(get-current-expand-context16.1 #f temp61_2))))"
+"(flip-introduction-scopes s_429 ctx_9))))))))"
 "(define-values"
 "(1/syntax-local-identifier-as-binding)"
-"(lambda(id_77)"
+"(lambda(id_75)"
 "(begin"
 " 'syntax-local-identifier-as-binding"
 "(let-values()"
 "(let-values()"
 "(let-values((()"
 "(begin"
-"(if(identifier? id_77)"
+"(if(identifier? id_75)"
 "(void)"
 "(let-values()"
-"                              (raise-argument-error 'syntax-local-identifier-as-binding \"identifier?\" id_77)))"
+"                              (raise-argument-error 'syntax-local-identifier-as-binding \"identifier?\" id_75)))"
 "(values))))"
-"(let-values(((ctx_52)"
-"(let-values(((temp70_0) 'syntax-local-identifier-as-binding))"
-"(get-current-expand-context17.1 #f #f temp70_0 #t))))"
-"(remove-use-site-scopes id_77 ctx_52))))))))"
+"(let-values(((ctx_51)"
+"(let-values(((temp63_1) 'syntax-local-identifier-as-binding))"
+"(get-current-expand-context16.1 #f temp63_1))))"
+"(remove-use-site-scopes id_75 ctx_51))))))))"
 "(define-values"
 "(1/syntax-local-phase-level)"
 "(lambda()"
 "(begin"
 " 'syntax-local-phase-level"
-"(let-values(((ctx_53)(let-values(((temp71_1) #t))(get-current-expand-context17.1 temp71_1 #t #f #f))))"
-"(if ctx_53(expand-context-phase ctx_53) 0)))))"
+"(let-values(((ctx_52)(let-values(((temp64_1) #t))(get-current-expand-context16.1 temp64_1 'unexpected))))"
+"(if ctx_52(expand-context-phase ctx_52) 0)))))"
 "(define-values"
 "(1/syntax-local-name)"
 "(lambda()"
@@ -42219,22 +41516,21 @@ static const char *startup_source =
 " 'syntax-local-name"
 "(let-values()"
 "(let-values()"
-"(let-values(((ctx_54)"
-"(let-values(((who73_0) 'syntax-local-name))"
-"(get-current-expand-context17.1 #f #f who73_0 #t))))"
-"(let-values(((id_78)(expand-context-name ctx_54)))"
-"(if id_78(datum->syntax$1 #f(syntax-e$1 id_78) id_78) #f))))))))"
+"(let-values(((ctx_53)"
+"(let-values(((who66_0) 'syntax-local-name))(get-current-expand-context16.1 #f who66_0))))"
+"(let-values(((id_76)(expand-context-name ctx_53)))"
+"(if id_76(datum->syntax$1 #f(syntax-e$1 id_76) id_76) #f))))))))"
 "(define-values"
 "(1/make-syntax-introducer)"
-"(let-values(((make-syntax-introducer3_0)"
-"(lambda(as-use-site?1_0 as-use-site?2_0)"
+"(let-values(((make-syntax-introducer2_0)"
+"(lambda(as-use-site?1_0)"
 "(begin"
-" 'make-syntax-introducer3"
-"(let-values(((as-use-site?_0)(if as-use-site?2_0 as-use-site?1_0 #f)))"
+" 'make-syntax-introducer2"
+"(let-values(((as-use-site?_0) as-use-site?1_0))"
 "(let-values()(do-make-syntax-introducer(new-scope(if as-use-site?_0 'use-site 'macro)))))))))"
 "(case-lambda"
-"(()(begin 'make-syntax-introducer(make-syntax-introducer3_0 #f #f)))"
-"((as-use-site?1_1)(make-syntax-introducer3_0 as-use-site?1_1 #t)))))"
+"(()(begin 'make-syntax-introducer(make-syntax-introducer2_0 #f)))"
+"((as-use-site?1_1)(make-syntax-introducer2_0 as-use-site?1_1)))))"
 "(define-values"
 "(1/make-interned-syntax-introducer)"
 "(lambda(sym-key_0)"
@@ -42251,39 +41547,40 @@ static const char *startup_source =
 "(do-make-syntax-introducer)"
 "(lambda(sc_33)"
 "(begin"
-"(let-values(((core78_0)"
-"(lambda(s77_0 mode75_0 mode76_0)"
+"(let-values(((core70_0)"
+"(lambda(s69_1 mode68_0)"
 "(begin"
-" 'core78"
-"(let-values(((s_43) s77_0))"
-"(let-values(((mode_14)(if mode76_0 mode75_0 'flip)))"
+" 'core70"
+"(let-values(((s_430) s69_1))"
+"(let-values(((mode_14) mode68_0))"
 "(let-values()"
 "(begin"
-"(if(syntax?$1 s_43)"
+"(if(syntax?$1 s_430)"
 "(void)"
-"                                  (let-values () (raise-argument-error 'syntax-introducer \"syntax?\" s_43)))"
+"                                  (let-values () (raise-argument-error 'syntax-introducer \"syntax?\" s_430)))"
 "(let-values(((tmp_33) mode_14))"
 "(if(equal? tmp_33 'add)"
-"(let-values()(add-scope s_43 sc_33))"
+"(let-values()(add-scope s_430 sc_33))"
 "(if(equal? tmp_33 'remove)"
-"(let-values()(remove-scope s_43 sc_33))"
+"(let-values()(remove-scope s_430 sc_33))"
 "(if(equal? tmp_33 'flip)"
-"(let-values()(flip-scope s_43 sc_33))"
+"(let-values()(flip-scope s_430 sc_33))"
 "(let-values()"
 "(raise-argument-error"
 " 'syntax-introducer"
 "                                           \"(or/c 'add 'remove 'flip)\""
 " mode_14))))))))))))))"
-"(case-lambda((s_411)(core78_0 s_411 #f #f))((s_185 mode75_1)(core78_0 s_185 mode75_1 #t)))))))"
+"(case-lambda((s_189)(core70_0 s_189 'flip))((s_89 mode68_1)(core70_0 s_89 mode68_1)))))))"
 "(define-values"
 "(1/make-syntax-delta-introducer)"
-"(let-values(((make-syntax-delta-introducer9_0)"
-"(lambda(ext-s7_0 base-s8_0 phase5_1 phase6_1)"
+"(let-values(((make-syntax-delta-introducer7_0)"
+"(lambda(ext-s5_0 base-s6_0 phase4_0)"
 "(begin"
-" 'make-syntax-delta-introducer9"
-"(let-values(((ext-s_0) ext-s7_0))"
-"(let-values(((base-s_0) base-s8_0))"
-"(let-values(((phase_48)(if phase6_1 phase5_1(1/syntax-local-phase-level))))"
+" 'make-syntax-delta-introducer7"
+"(let-values(((ext-s_0) ext-s5_0))"
+"(let-values(((base-s_0) base-s6_0))"
+"(let-values(((phase_5)"
+"(if(eq? phase4_0 unsafe-undefined)(1/syntax-local-phase-level) phase4_0)))"
 "(let-values()"
 "(let-values()"
 "(let-values()"
@@ -42299,9 +41596,9 @@ static const char *startup_source =
 "(values))))"
 "(let-values((()"
 "(begin"
-"(if((lambda(x_80)"
-"(let-values(((or-part_33)(not x_80)))"
-"(if or-part_33 or-part_33(syntax?$1 x_80))))"
+"(if((lambda(x_19)"
+"(let-values(((or-part_285)(not x_19)))"
+"(if or-part_285 or-part_285(syntax?$1 x_19))))"
 " base-s_0)"
 "(void)"
 "(let-values()"
@@ -42312,75 +41609,71 @@ static const char *startup_source =
 "(values))))"
 "(let-values((()"
 "(begin"
-"(if(phase? phase_48)"
+"(if(phase? phase_5)"
 "(void)"
 "(let-values()"
 "(raise-argument-error"
 " 'make-syntax-delta-introducer"
 " phase?-string"
-" phase_48)))"
+" phase_5)))"
 "(values))))"
-"(let-values(((ext-scs_0)(syntax-scope-set ext-s_0 phase_48)))"
+"(let-values(((ext-scs_0)(syntax-scope-set ext-s_0 phase_5)))"
 "(let-values(((base-scs_0)"
 "(syntax-scope-set"
-"(let-values(((or-part_285) base-s_0))"
-"(if or-part_285 or-part_285 empty-syntax))"
-" phase_48)))"
+"(let-values(((or-part_22) base-s_0))"
+"(if or-part_22 or-part_22 empty-syntax))"
+" phase_5)))"
 "(let-values(((use-base-scs_0)"
 "(if(subset? base-scs_0 ext-scs_0)"
 " base-scs_0"
 "(let-values(((or-part_286)"
 "(if(identifier? base-s_0)"
-"(let-values(((base-s81_0) base-s_0)"
-"((phase82_0) phase_48)"
-"((temp83_1) #t))"
-"(resolve41.1"
+"(let-values(((base-s73_0) base-s_0)"
+"((phase74_1) phase_5)"
+"((temp75_1) #t))"
+"(resolve40.1"
 " #f"
 " #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" temp83_1"
-" #t"
-" base-s81_0"
-" phase82_0))"
+" null"
+" temp75_1"
+" base-s73_0"
+" phase74_1))"
 " #f)))"
 "(if or-part_286 or-part_286(seteq))))))"
 "(let-values(((delta-scs_0)"
 "(set->list(set-subtract ext-scs_0 use-base-scs_0))))"
 "(let-values(((maybe-taint_0)"
 "(if(syntax-clean? ext-s_0) values syntax-taint$1)))"
-"(let-values(((core87_0)"
-"(lambda(s86_0 mode84_0 mode85_0)"
+"(let-values(((core78_0)"
+"(lambda(s77_0 mode76_0)"
 "(begin"
-" 'core87"
-"(let-values(((s_12) s86_0))"
-"(let-values(((mode_15)"
-"(if mode85_0 mode84_0 'add)))"
+" 'core78"
+"(let-values(((s_11) s77_0))"
+"(let-values(((mode_15) mode76_0))"
 "(let-values()"
 "(maybe-taint_0"
-"(let-values(((tmp_14) mode_15))"
-"(if(equal? tmp_14 'add)"
+"(let-values(((tmp_34) mode_15))"
+"(if(equal? tmp_34 'add)"
 "(let-values()"
-"(add-scopes s_12 delta-scs_0))"
-"(if(equal? tmp_14 'remove)"
+"(add-scopes s_11 delta-scs_0))"
+"(if(equal? tmp_34 'remove)"
 "(let-values()"
-"(remove-scopes s_12 delta-scs_0))"
-"(if(equal? tmp_14 'flip)"
+"(remove-scopes s_11 delta-scs_0))"
+"(if(equal? tmp_34 'flip)"
 "(let-values()"
-"(flip-scopes s_12 delta-scs_0))"
+"(flip-scopes s_11 delta-scs_0))"
 "(let-values()"
 "(raise-argument-error"
 " 'syntax-introducer"
 "                                                                                    \"(or/c 'add 'remove 'flip)\""
 " mode_15))))))))))))))"
 "(case-lambda"
-"((s_192)(core87_0 s_192 #f #f))"
-"((s_443 mode84_1)(core87_0 s_443 mode84_1 #t))))))))))))))))))))))"
+"((s_91)(core78_0 s_91 'add))"
+"((s_12 mode76_1)(core78_0 s_12 mode76_1))))))))))))))))))))))"
 "(case-lambda"
-"((ext-s_1 base-s_1)(begin 'make-syntax-delta-introducer(make-syntax-delta-introducer9_0 ext-s_1 base-s_1 #f #f)))"
-"((ext-s_2 base-s_2 phase5_2)(make-syntax-delta-introducer9_0 ext-s_2 base-s_2 phase5_2 #t)))))"
+"((ext-s_1 base-s_1)"
+"(begin 'make-syntax-delta-introducer(make-syntax-delta-introducer7_0 ext-s_1 base-s_1 unsafe-undefined)))"
+"((ext-s_2 base-s_2 phase4_1)(make-syntax-delta-introducer7_0 ext-s_2 base-s_2 phase4_1)))))"
 "(define-values"
 "(1/syntax-local-make-delta-introducer)"
 "(lambda(id-stx_1)"
@@ -42397,36 +41690,36 @@ static const char *startup_source =
 "              \"syntax-local-make-delta-introducer: not supported anymore\""
 "(current-continuation-marks)))))))))"
 "(define-values"
-"(do-syntax-local-value17.1)"
-"(lambda(immediate?11_0 who13_0 id14_1 intdefs15_0 failure-thunk16_0)"
+"(do-syntax-local-value15.1)"
+"(lambda(immediate?9_0 who11_0 id12_0 intdefs13_0 failure-thunk14_0)"
 "(begin"
-" 'do-syntax-local-value17"
-"(let-values(((who_20) who13_0))"
-"(let-values(((id_79) id14_1))"
-"(let-values(((intdefs_3) intdefs15_0))"
-"(let-values(((failure-thunk_0) failure-thunk16_0))"
-"(let-values(((immediate?_1) immediate?11_0))"
+" 'do-syntax-local-value15"
+"(let-values(((who_19) who11_0))"
+"(let-values(((id_77) id12_0))"
+"(let-values(((intdefs_3) intdefs13_0))"
+"(let-values(((failure-thunk_0) failure-thunk14_0))"
+"(let-values(((immediate?_1) immediate?9_0))"
 "(let-values()"
 "(let-values((()"
 "(begin"
-"(if(identifier? id_79)"
+"(if(identifier? id_77)"
 "(void)"
-"                                    (let-values () (raise-argument-error who_20 \"identifier?\" id_79)))"
+"                                    (let-values () (raise-argument-error who_19 \"identifier?\" id_77)))"
 "(values))))"
 "(let-values((()"
 "(begin"
-"(if((lambda(x_81)"
-"(let-values(((or-part_131)(not x_81)))"
-"(if or-part_131"
-" or-part_131"
-"((lambda(p_13)"
-"(if(procedure? p_13)(procedure-arity-includes? p_13 0) #f))"
-" x_81))))"
+"(if((lambda(x_83)"
+"(let-values(((or-part_210)(not x_83)))"
+"(if or-part_210"
+" or-part_210"
+"((lambda(p_49)"
+"(if(procedure? p_49)(procedure-arity-includes? p_49 0) #f))"
+" x_83))))"
 " failure-thunk_0)"
 "(void)"
 "(let-values()"
 "(raise-argument-error"
-" who_20"
+" who_19"
 "                                         \"(or/c #f (procedure-arity-includes/c 0))\""
 " failure-thunk_0)))"
 "(values))))"
@@ -42435,120 +41728,83 @@ static const char *startup_source =
 "(if(intdefs-or-false? intdefs_3)"
 "(void)"
 "(let-values()"
-"(raise-argument-error who_20 intdefs-or-false?-string intdefs_3)))"
+"(raise-argument-error who_19 intdefs-or-false?-string intdefs_3)))"
 "(values))))"
 "(let-values(((current-ctx_0)"
-"(let-values(((who90_0) who_20))"
-"(get-current-expand-context17.1 #f #f who90_0 #t))))"
-"(let-values(((ctx_55)"
+"(let-values(((who81_0) who_19))(get-current-expand-context16.1 #f who81_0))))"
+"(let-values(((ctx_11)"
 "(if intdefs_3"
-"(let-values(((v_197) current-ctx_0))"
-"(let-values(((the-struct_13) v_197))"
-"(if(expand-context/outer? the-struct_13)"
-"(let-values(((env91_0)"
+"(let-values(((v_195) current-ctx_0))"
+"(let-values(((the-struct_68) v_195))"
+"(if(expand-context/outer? the-struct_68)"
+"(let-values(((env82_0)"
 "(add-intdef-bindings"
 "(expand-context-env current-ctx_0)"
 " intdefs_3))"
-"((inner92_0)(root-expand-context/outer-inner v_197)))"
+"((inner83_0)(root-expand-context/outer-inner v_195)))"
 "(expand-context/outer1.1"
-" inner92_0"
-"(root-expand-context/outer-post-expansion-scope the-struct_13)"
-"(root-expand-context/outer-use-site-scopes the-struct_13)"
-"(root-expand-context/outer-frame-id the-struct_13)"
-"(expand-context/outer-context the-struct_13)"
-" env91_0"
-"(expand-context/outer-post-expansion-scope-action the-struct_13)"
-"(expand-context/outer-scopes the-struct_13)"
-"(expand-context/outer-def-ctx-scopes the-struct_13)"
-"(expand-context/outer-binding-layer the-struct_13)"
-"(expand-context/outer-reference-records the-struct_13)"
-"(expand-context/outer-only-immediate? the-struct_13)"
-"(expand-context/outer-need-eventually-defined the-struct_13)"
-"(expand-context/outer-current-introduction-scopes the-struct_13)"
-"(expand-context/outer-name the-struct_13)))"
+" inner83_0"
+"(root-expand-context/outer-post-expansion-scope the-struct_68)"
+"(root-expand-context/outer-use-site-scopes the-struct_68)"
+"(root-expand-context/outer-frame-id the-struct_68)"
+"(expand-context/outer-context the-struct_68)"
+" env82_0"
+"(expand-context/outer-post-expansion-scope-action the-struct_68)"
+"(expand-context/outer-scopes the-struct_68)"
+"(expand-context/outer-def-ctx-scopes the-struct_68)"
+"(expand-context/outer-binding-layer the-struct_68)"
+"(expand-context/outer-reference-records the-struct_68)"
+"(expand-context/outer-only-immediate? the-struct_68)"
+"(expand-context/outer-need-eventually-defined the-struct_68)"
+"(expand-context/outer-current-introduction-scopes the-struct_68)"
+"(expand-context/outer-name the-struct_68)))"
 "(raise-argument-error"
 " 'struct-copy"
 "                                                 \"expand-context/outer?\""
-" the-struct_13))))"
+" the-struct_68))))"
 " current-ctx_0)))"
 "(let-values((()"
 "(begin"
-"(let-values(((obs_29)(expand-context-observer ctx_55)))"
-"(if obs_29"
-"(let-values()"
-"(let-values()(call-expand-observe obs_29 'local-value id_79)))"
-"(void)))"
-"(values))))"
-"(let-values(((phase_87)(expand-context-phase ctx_55)))"
-"((letrec-values(((loop_100)"
-"(lambda(id_80)"
-"(begin"
-" 'loop"
-"(let-values(((b_82)"
-"(if immediate?_1"
-"(let-values(((id93_1) id_80)"
-"((phase94_1) phase_87)"
-"((temp95_0) #t))"
-"(resolve+shift30.1"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" temp95_0"
-" #t"
-" #f"
-" #f"
-" id93_1"
-" phase94_1))"
-"(resolve+shift/extra-inspector"
-" id_80"
-" phase_87"
-"(expand-context-namespace ctx_55)))))"
-"(begin"
-"(let-values(((obs_34)(expand-context-observer ctx_55)))"
+"(let-values(((obs_34)(expand-context-observer ctx_11)))"
 "(if obs_34"
 "(let-values()"
-"(let-values()"
-"(call-expand-observe obs_34 'resolve id_80)))"
+"(let-values()(call-expand-observe obs_34 'local-value id_77)))"
 "(void)))"
-"(if(not b_82)"
-"(let-values()"
+"(values))))"
+"(let-values(((phase_70)(expand-context-phase ctx_11)))"
+"((letrec-values(((loop_95)"
+"(lambda(id_61)"
 "(begin"
-"(let-values(((obs_35)"
-"(expand-context-observer ctx_55)))"
+" 'loop"
+"(let-values(((b_81)"
+"(if immediate?_1"
+"(let-values(((id84_0) id_61)"
+"((phase85_0) phase_70)"
+"((temp86_0) #t))"
+"(resolve+shift28.1"
+" #f"
+" #f"
+" null"
+" temp86_0"
+" #f"
+" id84_0"
+" phase85_0))"
+"(resolve+shift/extra-inspector"
+" id_61"
+" phase_70"
+"(expand-context-namespace ctx_11)))))"
+"(begin"
+"(let-values(((obs_35)(expand-context-observer ctx_11)))"
 "(if obs_35"
 "(let-values()"
 "(let-values()"
-"(call-expand-observe"
-" obs_35"
-" 'local-value-result"
-" #f)))"
+"(call-expand-observe obs_35 'resolve id_61)))"
 "(void)))"
-"(if failure-thunk_0"
-"(failure-thunk_0)"
-"                                                                  (error who_20 \"unbound identifier: ~v\" id_80))))"
-"(let-values()"
-"(let-values(((v_37 primitive?_7 insp_17 protected?_8)"
-"(let-values(((b96_0) b_82)"
-"((ctx97_0) ctx_55)"
-"((id98_0) id_80)"
-"((temp99_0) #t))"
-"(lookup62.1"
-" #f"
-" #f"
-" temp99_0"
-" #t"
-" b96_0"
-" ctx97_0"
-" id98_0))))"
-"(if(let-values(((or-part_287)(variable? v_37)))"
-"(if or-part_287 or-part_287(core-form? v_37)))"
+"(if(not b_81)"
 "(let-values()"
 "(begin"
 "(let-values(((obs_36)"
-"(expand-context-observer ctx_55)))"
+"(expand-context-observer ctx_11)))"
 "(if obs_36"
 "(let-values()"
 "(let-values()"
@@ -42559,23 +41815,52 @@ static const char *startup_source =
 "(void)))"
 "(if failure-thunk_0"
 "(failure-thunk_0)"
-"(error"
-" who_20"
-"                                                                         \"identifier is not bound to syntax: ~v\""
-" id_80))))"
+"                                                                  (error who_19 \"unbound identifier: ~v\" id_61))))"
+"(let-values()"
+"(let-values(((v_37 primitive?_7 insp_17 protected?_8)"
+"(let-values(((b87_1) b_81)"
+"((ctx88_0) ctx_11)"
+"((id89_0) id_61)"
+"((temp90_1) #t))"
+"(lookup62.1"
+" #f"
+" temp90_1"
+" b87_1"
+" ctx88_0"
+" id89_0))))"
+"(if(let-values(((or-part_102)(variable? v_37)))"
+"(if or-part_102 or-part_102(core-form? v_37)))"
 "(let-values()"
 "(begin"
 "(let-values(((obs_37)"
-"(expand-context-observer ctx_55)))"
+"(expand-context-observer ctx_11)))"
 "(if obs_37"
 "(let-values()"
+"(let-values()"
+"(call-expand-observe"
+" obs_37"
+" 'local-value-result"
+" #f)))"
+"(void)))"
+"(if failure-thunk_0"
+"(failure-thunk_0)"
+"(error"
+" who_19"
+"                                                                         \"identifier is not bound to syntax: ~v\""
+" id_61))))"
+"(let-values()"
+"(begin"
+"(let-values(((obs_38)"
+"(expand-context-observer ctx_11)))"
+"(if obs_38"
+"(let-values()"
 "(if(not"
 "(if(1/rename-transformer? v_37)"
 "(not immediate?_1)"
 " #f))"
 "(let-values()"
 "(call-expand-observe"
-" obs_37"
+" obs_38"
 " 'local-value-result"
 " #t))"
 "(void)))"
@@ -42586,100 +41871,95 @@ static const char *startup_source =
 "(values"
 " v_37"
 "(1/rename-transformer-target v_37))"
-"(loop_100"
+"(loop_95"
 "(1/rename-transformer-target v_37))))"
 "(if immediate?_1"
 "(let-values()(values v_37 #f))"
 "(let-values() v_37)))))))))))))))"
-" loop_100)"
-"(flip-introduction-scopes id_79 ctx_55))))))))))))))))))"
+" loop_95)"
+"(flip-introduction-scopes id_77 ctx_11))))))))))))))))))"
 "(define-values"
 "(1/syntax-local-value)"
-"(let-values(((syntax-local-value25_0)"
-"(lambda(id24_0 failure-thunk20_0 intdef21_0 failure-thunk22_0 intdef23_0)"
+"(let-values(((syntax-local-value21_0)"
+"(lambda(id20_0 failure-thunk18_0 intdef19_0)"
 "(begin"
-" 'syntax-local-value25"
-"(let-values(((id_81) id24_0))"
-"(let-values(((failure-thunk_1)(if failure-thunk22_0 failure-thunk20_0 #f)))"
-"(let-values(((intdef_13)(if intdef23_0 intdef21_0 #f)))"
+" 'syntax-local-value21"
+"(let-values(((id_78) id20_0))"
+"(let-values(((failure-thunk_1) failure-thunk18_0))"
+"(let-values(((intdef_13) intdef19_0))"
 "(let-values()"
-"(let-values(((temp100_0) 'syntax-local-value)"
-"((temp101_0) #f)"
-"((id102_0) id_81)"
-"((intdef103_0) intdef_13)"
-"((failure-thunk104_0) failure-thunk_1))"
-"(do-syntax-local-value17.1"
-" temp101_0"
-" temp100_0"
-" id102_0"
-" intdef103_0"
-" failure-thunk104_0))))))))))"
+"(let-values(((temp91_0) 'syntax-local-value)"
+"((temp92_1) #f)"
+"((id93_1) id_78)"
+"((intdef94_0) intdef_13)"
+"((failure-thunk95_0) failure-thunk_1))"
+"(do-syntax-local-value15.1 temp92_1 temp91_0 id93_1 intdef94_0 failure-thunk95_0))))))))))"
 "(case-lambda"
-"((id_82)(begin 'syntax-local-value(syntax-local-value25_0 id_82 #f #f #f #f)))"
-"((id_83 failure-thunk_2 intdef21_1)(syntax-local-value25_0 id_83 failure-thunk_2 intdef21_1 #t #t))"
-"((id_84 failure-thunk20_1)(syntax-local-value25_0 id_84 failure-thunk20_1 #f #t #f)))))"
+"((id_79)(begin 'syntax-local-value(syntax-local-value21_0 id_79 #f #f)))"
+"((id_62 failure-thunk_2 intdef19_1)(syntax-local-value21_0 id_62 failure-thunk_2 intdef19_1))"
+"((id_80 failure-thunk18_1)(syntax-local-value21_0 id_80 failure-thunk18_1 #f)))))"
 "(define-values"
 "(1/syntax-local-value/immediate)"
-"(let-values(((syntax-local-value/immediate32_0)"
-"(lambda(id31_1 failure-thunk27_0 intdef28_0 failure-thunk29_0 intdef30_0)"
+"(let-values(((syntax-local-value/immediate26_0)"
+"(lambda(id25_2 failure-thunk23_0 intdef24_0)"
 "(begin"
-" 'syntax-local-value/immediate32"
-"(let-values(((id_85) id31_1))"
-"(let-values(((failure-thunk_3)(if failure-thunk29_0 failure-thunk27_0 #f)))"
-"(let-values(((intdef_14)(if intdef30_0 intdef28_0 #f)))"
+" 'syntax-local-value/immediate26"
+"(let-values(((id_8) id25_2))"
+"(let-values(((failure-thunk_3) failure-thunk23_0))"
+"(let-values(((intdef_14) intdef24_0))"
 "(let-values()"
-"(let-values(((temp105_0) 'syntax-local-value/immediate)"
-"((temp106_1) #t)"
-"((id107_0) id_85)"
-"((intdef108_0) intdef_14)"
-"((failure-thunk109_0) failure-thunk_3))"
-"(do-syntax-local-value17.1"
-" temp106_1"
-" temp105_0"
-" id107_0"
-" intdef108_0"
-" failure-thunk109_0))))))))))"
+"(let-values(((temp96_0) 'syntax-local-value/immediate)"
+"((temp97_0) #t)"
+"((id98_0) id_8)"
+"((intdef99_0) intdef_14)"
+"((failure-thunk100_0) failure-thunk_3))"
+"(do-syntax-local-value15.1"
+" temp97_0"
+" temp96_0"
+" id98_0"
+" intdef99_0"
+" failure-thunk100_0))))))))))"
 "(case-lambda"
-"((id_86)(begin 'syntax-local-value/immediate(syntax-local-value/immediate32_0 id_86 #f #f #f #f)))"
-"((id_87 failure-thunk_4 intdef28_1)(syntax-local-value/immediate32_0 id_87 failure-thunk_4 intdef28_1 #t #t))"
-"((id_88 failure-thunk27_1)(syntax-local-value/immediate32_0 id_88 failure-thunk27_1 #f #t #f)))))"
+"((id_81)(begin 'syntax-local-value/immediate(syntax-local-value/immediate26_0 id_81 #f #f)))"
+"((id_82 failure-thunk_4 intdef24_1)(syntax-local-value/immediate26_0 id_82 failure-thunk_4 intdef24_1))"
+"((id_83 failure-thunk23_1)(syntax-local-value/immediate26_0 id_83 failure-thunk23_1 #f)))))"
 "(define-values"
 "(do-lift-values-expression)"
-"(lambda(who_21 n_29 s_413)"
+"(lambda(who_20 n_29 s_34)"
 "(begin"
 "(let-values((()"
 "(begin"
-"                      (if (syntax?$1 s_413) (void) (let-values () (raise-argument-error who_21 \"syntax?\" s_413)))"
+"                      (if (syntax?$1 s_34) (void) (let-values () (raise-argument-error who_20 \"syntax?\" s_34)))"
 "(values))))"
 "(let-values((()"
 "(begin"
 "(if(exact-nonnegative-integer? n_29)"
 "(void)"
-"                          (let-values () (raise-argument-error who_21 \"exact-nonnegative-integer?\" n_29)))"
+"                          (let-values () (raise-argument-error who_20 \"exact-nonnegative-integer?\" n_29)))"
 "(values))))"
-"(let-values(((ctx_56)(let-values(((who110_0) who_21))(get-current-expand-context17.1 #f #f who110_0 #t))))"
-"(let-values(((lifts_8)(expand-context-lifts ctx_56)))"
+"(let-values(((ctx_54)(let-values(((who101_0) who_20))(get-current-expand-context16.1 #f who101_0))))"
+"(let-values(((lifts_8)(expand-context-lifts ctx_54)))"
 "(let-values((()"
 "(begin"
-"                              (if lifts_8 (void) (let-values () (raise-arguments-error who_21 \"no lift target\")))"
+"                              (if lifts_8 (void) (let-values () (raise-arguments-error who_20 \"no lift target\")))"
 "(values))))"
-"(let-values(((counter_4)(root-expand-context-counter ctx_56)))"
-"(let-values(((ids_27)"
+"(let-values(((counter_4)(root-expand-context-counter ctx_54)))"
+"(let-values(((ids_28)"
 "(reverse$1"
-"(let-values(((start_40) 0)((end_30) n_29)((inc_24) 1))"
+"(let-values(((start_39) 0)((end_29) n_29)((inc_23) 1))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
-"(let-values()(check-range start_40 end_30 inc_24)))"
-"((letrec-values(((for-loop_263)"
-"(lambda(fold-var_258 pos_105)"
+"(let-values()(check-range start_39 end_29 inc_23)))"
+"((letrec-values(((for-loop_218)"
+"(lambda(fold-var_250 pos_106)"
 "(begin"
 " 'for-loop"
-"(if(< pos_105 end_30)"
+"(if(< pos_106 end_29)"
 "(let-values()"
-"(let-values(((fold-var_259)"
-"(let-values(((fold-var_260) fold-var_258))"
-"(let-values(((fold-var_255)"
+"(let-values(((fold-var_251)"
+"(let-values(((fold-var_252) fold-var_250))"
+"(let-values(((fold-var_253)"
 "(let-values()"
 "(cons"
 "(let-values()"
@@ -42691,7 +41971,7 @@ static const char *startup_source =
 "(unbox"
 " counter_4)))"
 "(values))))"
-"(let-values(((name_25)"
+"(let-values(((name_61)"
 "(string->unreadable-symbol"
 "(format"
 "                                                                                                                    \"lifted/~a\""
@@ -42700,42 +41980,42 @@ static const char *startup_source =
 "(add-scope"
 "(datum->syntax$1"
 " #f"
-" name_25)"
+" name_61)"
 "(new-scope"
 " 'macro)))))"
-" fold-var_260))))"
-"(values fold-var_255)))))"
+" fold-var_252))))"
+"(values fold-var_253)))))"
 "(if(not #f)"
-"(for-loop_263 fold-var_259(+ pos_105 inc_24))"
-" fold-var_259)))"
-" fold-var_258)))))"
-" for-loop_263)"
+"(for-loop_218 fold-var_251(+ pos_106 inc_23))"
+" fold-var_251)))"
+" fold-var_250)))))"
+" for-loop_218)"
 " null"
-" start_40))))))"
+" start_39))))))"
 "(begin"
-"(let-values(((obs_38)(expand-context-observer ctx_56)))"
-"(if obs_38"
-"(let-values()(let-values()(call-expand-observe obs_38 'lift-expr ids_27 s_413)))"
+"(let-values(((obs_39)(expand-context-observer ctx_54)))"
+"(if obs_39"
+"(let-values()(let-values()(call-expand-observe obs_39 'lift-expr ids_28 s_34)))"
 "(void)))"
 "(map2"
-"(lambda(id_89)(flip-introduction-scopes id_89 ctx_56))"
+"(lambda(id_84)(flip-introduction-scopes id_84 ctx_54))"
 "(add-lifted!"
 " lifts_8"
-" ids_27"
-"(flip-introduction-scopes s_413 ctx_56)"
-"(expand-context-phase ctx_56))))))))))))))"
+" ids_28"
+"(flip-introduction-scopes s_34 ctx_54)"
+"(expand-context-phase ctx_54))))))))))))))"
 "(define-values"
 "(1/syntax-local-lift-expression)"
-"(lambda(s_207)"
+"(lambda(s_36)"
 "(begin"
 " 'syntax-local-lift-expression"
-"(let-values()(let-values()(car(do-lift-values-expression 'syntax-local-lift-expression 1 s_207)))))))"
+"(let-values()(let-values()(car(do-lift-values-expression 'syntax-local-lift-expression 1 s_36)))))))"
 "(define-values"
 "(1/syntax-local-lift-values-expression)"
-"(lambda(n_30 s_444)"
+"(lambda(n_30 s_63)"
 "(begin"
 " 'syntax-local-lift-values-expression"
-"(let-values()(let-values()(do-lift-values-expression 'syntax-local-lift-values-expression n_30 s_444))))))"
+"(let-values()(let-values()(do-lift-values-expression 'syntax-local-lift-values-expression n_30 s_63))))))"
 "(define-values"
 "(1/syntax-local-lift-context)"
 "(lambda()"
@@ -42743,32 +42023,32 @@ static const char *startup_source =
 " 'syntax-local-lift-context"
 "(let-values()"
 "(let-values()"
-"(let-values(((ctx_57)"
-"(let-values(((who114_0) 'syntax-local-lift-context))"
-"(get-current-expand-context17.1 #f #f who114_0 #t))))"
-"(root-expand-context-lift-key ctx_57)))))))"
+"(let-values(((ctx_55)"
+"(let-values(((who105_0) 'syntax-local-lift-context))"
+"(get-current-expand-context16.1 #f who105_0))))"
+"(root-expand-context-lift-key ctx_55)))))))"
 "(define-values"
 "(1/syntax-local-lift-module)"
-"(lambda(s_65)"
+"(lambda(s_64)"
 "(begin"
 " 'syntax-local-lift-module"
 "(let-values()"
 "(let-values()"
 "(let-values((()"
 "(begin"
-"(if(syntax?$1 s_65)"
+"(if(syntax?$1 s_64)"
 "(void)"
-"                            (let-values () (raise-argument-error 'syntax-local-lift-module \"syntax?\" s_65)))"
+"                            (let-values () (raise-argument-error 'syntax-local-lift-module \"syntax?\" s_64)))"
 "(values))))"
-"(let-values(((ctx_58)"
-"(let-values(((who116_0) 'syntax-local-lift-module))"
-"(get-current-expand-context17.1 #f #f who116_0 #t))))"
-"(let-values(((phase_115)(expand-context-phase ctx_58)))"
+"(let-values(((ctx_56)"
+"(let-values(((who107_0) 'syntax-local-lift-module))"
+"(get-current-expand-context16.1 #f who107_0))))"
+"(let-values(((phase_100)(expand-context-phase ctx_56)))"
 "(begin"
-"(let-values(((tmp_34)(core-form-sym s_65 phase_115)))"
-"(if(if(equal? tmp_34 'module) #t(equal? tmp_34 'module*))"
+"(let-values(((tmp_30)(core-form-sym s_64 phase_100)))"
+"(if(if(equal? tmp_30 'module) #t(equal? tmp_30 'module*))"
 "(let-values()"
-"(let-values(((lifts_9)(expand-context-module-lifts ctx_58)))"
+"(let-values(((lifts_9)(expand-context-module-lifts ctx_56)))"
 "(begin"
 "(if lifts_9"
 "(void)"
@@ -42777,275 +42057,255 @@ static const char *startup_source =
 " 'syntax-local-lift-module"
 "                                 \"not currently transforming within a module declaration or top level\""
 "                                 \"form to lift\""
-" s_65)))"
-"(add-lifted-module! lifts_9(flip-introduction-scopes s_65 ctx_58) phase_115))))"
+" s_64)))"
+"(add-lifted-module! lifts_9(flip-introduction-scopes s_64 ctx_56) phase_100))))"
 "(let-values()"
-"                        (raise-arguments-error 'syntax-local-lift-module \"not a module form\" \"given form\" s_65))))"
-"(let-values(((obs_39)(expand-context-observer ctx_58)))"
-"(if obs_39"
-"(let-values()(let-values()(call-expand-observe obs_39 'lift-statement s_65)))"
+"                        (raise-arguments-error 'syntax-local-lift-module \"not a module form\" \"given form\" s_64))))"
+"(let-values(((obs_40)(expand-context-observer ctx_56)))"
+"(if obs_40"
+"(let-values()(let-values()(call-expand-observe obs_40 'lift-statement s_64)))"
 "(void))))))))))))"
 "(define-values"
-"(do-local-lift-to-module54.1)"
-"(lambda(add-lifted!38_0"
-" get-lift-ctx37_0"
-" get-wrt-phase39_0"
-" intro?35_0"
-" intro?44_0"
-" more-checks36_0"
-" more-checks45_0"
-" no-target-msg34_0"
-" post-wrap42_0"
-" post-wrap51_0"
-" pre-wrap40_0"
-" pre-wrap49_0"
-" shift-wrap41_0"
-" shift-wrap50_0"
-" who52_0"
-" s53_1)"
+"(do-local-lift-to-module48.1)"
+"(lambda(add-lifted!32_0"
+" get-lift-ctx31_0"
+" get-wrt-phase33_0"
+" intro?29_0"
+" more-checks30_0"
+" no-target-msg28_0"
+" post-wrap36_0"
+" pre-wrap34_0"
+" shift-wrap35_0"
+" who46_0"
+" s47_0)"
 "(begin"
-" 'do-local-lift-to-module54"
-"(let-values(((who_22) who52_0))"
-"(let-values(((s_445) s53_1))"
-"(let-values(((no-target-msg_0) no-target-msg34_0))"
-"(let-values(((intro?_0)(if intro?44_0 intro?35_0 #t)))"
-"(let-values(((more-checks_0)(if more-checks45_0 more-checks36_0 void)))"
-"(let-values(((get-lift-ctx_0) get-lift-ctx37_0))"
-"(let-values(((add-lifted!_0) add-lifted!38_0))"
-"(let-values(((get-wrt-phase_0) get-wrt-phase39_0))"
+" 'do-local-lift-to-module48"
+"(let-values(((who_21) who46_0))"
+"(let-values(((s_431) s47_0))"
+"(let-values(((no-target-msg_0) no-target-msg28_0))"
+"(let-values(((intro?_0) intro?29_0))"
+"(let-values(((more-checks_0)(if(eq? more-checks30_0 unsafe-undefined) void more-checks30_0)))"
+"(let-values(((get-lift-ctx_0) get-lift-ctx31_0))"
+"(let-values(((add-lifted!_0) add-lifted!32_0))"
+"(let-values(((get-wrt-phase_0) get-wrt-phase33_0))"
 "(let-values(((pre-wrap_0)"
-"(if pre-wrap49_0"
-" pre-wrap40_0"
-"(lambda(s_446 phase_116 lift-ctx_1)(begin 'pre-wrap s_446)))))"
+"(if(eq? pre-wrap34_0 unsafe-undefined)"
+"(lambda(s_432 phase_109 lift-ctx_1)(begin 'pre-wrap s_432))"
+" pre-wrap34_0)))"
 "(let-values(((shift-wrap_0)"
-"(if shift-wrap50_0"
-" shift-wrap41_0"
-"(lambda(s_70 phase_117 lift-ctx_2)(begin 'shift-wrap s_70)))))"
+"(if(eq? shift-wrap35_0 unsafe-undefined)"
+"(lambda(s_209 phase_110 lift-ctx_2)(begin 'shift-wrap s_209))"
+" shift-wrap35_0)))"
 "(let-values(((post-wrap_0)"
-"(if post-wrap51_0"
-" post-wrap42_0"
-"(lambda(s_216 phase_118 lift-ctx_3)(begin 'post-wrap s_216)))))"
+"(if(eq? post-wrap36_0 unsafe-undefined)"
+"(lambda(s_210 phase_12 lift-ctx_3)(begin 'post-wrap s_210))"
+" post-wrap36_0)))"
 "(let-values()"
 "(let-values((()"
 "(begin"
-"(if(syntax?$1 s_445)"
+"(if(syntax?$1 s_431)"
 "(void)"
-"                                                (let-values () (raise-argument-error who_22 \"syntax?\" s_445)))"
+"                                                (let-values () (raise-argument-error who_21 \"syntax?\" s_431)))"
 "(values))))"
 "(let-values((()(begin(more-checks_0)(values))))"
-"(let-values(((ctx_59)"
-"(let-values(((who117_0) who_22))"
-"(get-current-expand-context17.1 #f #f who117_0 #t))))"
-"(let-values(((lift-ctx_4)(get-lift-ctx_0 ctx_59)))"
+"(let-values(((ctx_57)"
+"(let-values(((who108_0) who_21))"
+"(get-current-expand-context16.1 #f who108_0))))"
+"(let-values(((lift-ctx_4)(get-lift-ctx_0 ctx_57)))"
 "(let-values((()"
 "(begin"
 "(if lift-ctx_4"
 "(void)"
 "(let-values()"
 "(raise-arguments-error"
-" who_22"
+" who_21"
 " no-target-msg_0"
 "                                                           \"form to lift\""
-" s_445)))"
+" s_431)))"
 "(values))))"
-"(let-values(((phase_119)(expand-context-phase ctx_59)))"
+"(let-values(((phase_111)(expand-context-phase ctx_57)))"
 "(let-values(((wrt-phase_1)(get-wrt-phase_0 lift-ctx_4)))"
 "(let-values(((added-s_0)"
-"(if intro?_0(flip-introduction-scopes s_445 ctx_59) s_445)))"
-"(let-values(((pre-s_0)(pre-wrap_0 added-s_0 phase_119 lift-ctx_4)))"
+"(if intro?_0(flip-introduction-scopes s_431 ctx_57) s_431)))"
+"(let-values(((pre-s_0)(pre-wrap_0 added-s_0 phase_111 lift-ctx_4)))"
 "(let-values(((shift-s_0)"
-"(let-values(((start_41) phase_119)"
-"((end_31) wrt-phase_1)"
-"((inc_25) -1))"
+"(let-values(((start_40) phase_111)"
+"((end_30) wrt-phase_1)"
+"((inc_24) -1))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
 "(#%variable-reference))"
 "(void)"
 "(let-values()"
-"(check-range start_41 end_31 inc_25)))"
-"((letrec-values(((for-loop_207)"
-"(lambda(s_438 pos_24)"
+"(check-range start_40 end_30 inc_24)))"
+"((letrec-values(((for-loop_128)"
+"(lambda(s_433 pos_107)"
 "(begin"
 " 'for-loop"
-"(if(> pos_24 end_31)"
-"(let-values(((phase_54)"
-" pos_24))"
-"(let-values(((s_172)"
-"(let-values(((s_440)"
-" s_438))"
-"(let-values(((s_218)"
+"(if(> pos_107 end_30)"
+"(let-values(((phase_112)"
+" pos_107))"
+"(let-values(((s_319)"
+"(let-values(((s_424)"
+" s_433))"
+"(let-values(((s_434)"
 "(let-values()"
 "(shift-wrap_0"
-" s_440"
+" s_424"
 "(sub1"
-" phase_54)"
+" phase_112)"
 " lift-ctx_4))))"
 "(values"
-" s_218)))))"
+" s_434)))))"
 "(if(not #f)"
-"(for-loop_207"
-" s_172"
-"(+ pos_24 inc_25))"
-" s_172)))"
-" s_438)))))"
-" for-loop_207)"
+"(for-loop_128"
+" s_319"
+"(+ pos_107 inc_24))"
+" s_319)))"
+" s_433)))))"
+" for-loop_128)"
 " pre-s_0"
-" start_41)))))"
+" start_40)))))"
 "(let-values(((post-s_1)"
 "(post-wrap_0 shift-s_0 wrt-phase_1 lift-ctx_4)))"
 "(begin"
 "(add-lifted!_0 lift-ctx_4 post-s_1 wrt-phase_1)"
-"(values ctx_59 post-s_1))))))))))))))))))))))))))))"
+"(values ctx_57 post-s_1))))))))))))))))))))))))))))"
 "(define-values"
 "(1/syntax-local-lift-require)"
-"(lambda(s_447 use-s_1)"
+"(lambda(s_218 use-s_1)"
 "(begin"
 " 'syntax-local-lift-require"
 "(let-values()"
 "(let-values()"
-"(let-values(((sc_11)(new-scope 'lifted-require)))"
-"(let-values(((ctx_60 added-s_1)"
-"(let-values(((who119_0) 'syntax-local-lift-require)"
-"((temp120_0)(datum->syntax$1 #f s_447))"
-"                                       ((temp121_0) \"could not find target context\")"
-"((temp122_0) #f)"
-"((temp123_0)"
+"(let-values(((sc_34)(new-scope 'lifted-require)))"
+"(let-values(((ctx_58 added-s_1)"
+"(let-values(((who110_0) 'syntax-local-lift-require)"
+"((temp111_0)(datum->syntax$1 #f s_218))"
+"                                       ((temp112_0) \"could not find target context\")"
+"((temp113_0) #f)"
+"((temp114_1)"
 "(lambda()"
 "(if(syntax?$1 use-s_1)"
 "(void)"
 "(let-values()"
 "                                              (raise-argument-error 'syntax-local-lift-require \"syntax?\" use-s_1)))))"
-"((expand-context-require-lifts124_0) expand-context-require-lifts)"
-"((require-lift-context-wrt-phase125_0) require-lift-context-wrt-phase)"
-"((add-lifted-require!126_0) add-lifted-require!)"
-"((temp127_1)"
-"(lambda(s_448 phase_120 require-lift-ctx_0)"
-"(require-spec-shift-for-syntax s_448)))"
-"((temp128_2)"
-"(lambda(s_112 phase_121 require-lift-ctx_1)"
-"(wrap-form '#%require(add-scope s_112 sc_11) phase_121))))"
-"(do-local-lift-to-module54.1"
-" add-lifted-require!126_0"
-" expand-context-require-lifts124_0"
-" require-lift-context-wrt-phase125_0"
-" temp122_0"
-" #t"
-" temp123_0"
-" #t"
-" temp121_0"
-" temp128_2"
-" #t"
-" #f"
-" #f"
-" temp127_1"
-" #t"
-" who119_0"
-" temp120_0))))"
+"((expand-context-require-lifts115_0) expand-context-require-lifts)"
+"((require-lift-context-wrt-phase116_0) require-lift-context-wrt-phase)"
+"((add-lifted-require!117_0) add-lifted-require!)"
+"((temp118_0)"
+"(lambda(s_109 phase_113 require-lift-ctx_0)"
+"(require-spec-shift-for-syntax s_109)))"
+"((temp119_0)"
+"(lambda(s_435 phase_114 require-lift-ctx_1)"
+"(wrap-form '#%require(add-scope s_435 sc_34) phase_114))))"
+"(do-local-lift-to-module48.1"
+" add-lifted-require!117_0"
+" expand-context-require-lifts115_0"
+" require-lift-context-wrt-phase116_0"
+" temp113_0"
+" temp114_1"
+" temp112_0"
+" temp119_0"
+" unsafe-undefined"
+" temp118_0"
+" who110_0"
+" temp111_0))))"
 "(let-values((()"
 "(begin"
 "(namespace-visit-available-modules!"
-"(expand-context-namespace ctx_60)"
-"(expand-context-phase ctx_60))"
+"(expand-context-namespace ctx_58)"
+"(expand-context-phase ctx_58))"
 "(values))))"
-"(let-values(((result-s_6)(add-scope use-s_1 sc_11)))"
+"(let-values(((result-s_6)(add-scope use-s_1 sc_34)))"
 "(begin"
-"(let-values(((obs_40)(expand-context-observer ctx_60)))"
-"(if obs_40"
+"(let-values(((obs_41)(expand-context-observer ctx_58)))"
+"(if obs_41"
 "(let-values()"
-"(let-values()(call-expand-observe obs_40 'lift-require added-s_1 use-s_1 result-s_6)))"
+"(let-values()(call-expand-observe obs_41 'lift-require added-s_1 use-s_1 result-s_6)))"
 "(void)))"
 " result-s_6))))))))))"
 "(define-values"
 "(1/syntax-local-lift-provide)"
-"(lambda(s_113)"
+"(lambda(s_436)"
 "(begin"
 " 'syntax-local-lift-provide"
 "(let-values()"
 "(let-values()"
-"(let-values(((ctx_5 result-s_7)"
-"(let-values(((who130_0) 'syntax-local-lift-provide)"
-"((s131_0) s_113)"
-"                                     ((temp132_1) \"not expanding in a module run-time body\")"
-"((expand-context-to-module-lifts133_0) expand-context-to-module-lifts)"
-"((to-module-lift-context-wrt-phase134_0) to-module-lift-context-wrt-phase)"
-"((add-lifted-to-module-provide!135_0) add-lifted-to-module-provide!)"
-"((temp136_0)"
-"(lambda(s_441 phase_122 to-module-lift-ctx_0)(wrap-form 'for-syntax s_441 #f)))"
-"((temp137_1)"
-"(lambda(s_227 phase_123 to-module-lift-ctx_1)"
-"(wrap-form '#%provide s_227 phase_123))))"
-"(do-local-lift-to-module54.1"
-" add-lifted-to-module-provide!135_0"
-" expand-context-to-module-lifts133_0"
-" to-module-lift-context-wrt-phase134_0"
-" #f"
-" #f"
-" #f"
-" #f"
-" temp132_1"
-" temp137_1"
+"(let-values(((ctx_59 result-s_7)"
+"(let-values(((who121_0) 'syntax-local-lift-provide)"
+"((s122_1) s_436)"
+"                                     ((temp123_0) \"not expanding in a module run-time body\")"
+"((expand-context-to-module-lifts124_0) expand-context-to-module-lifts)"
+"((to-module-lift-context-wrt-phase125_0) to-module-lift-context-wrt-phase)"
+"((add-lifted-to-module-provide!126_0) add-lifted-to-module-provide!)"
+"((temp127_2)"
+"(lambda(s_437 phase_115 to-module-lift-ctx_0)(wrap-form 'for-syntax s_437 #f)))"
+"((temp128_2)"
+"(lambda(s_115 phase_116 to-module-lift-ctx_1)"
+"(wrap-form '#%provide s_115 phase_116))))"
+"(do-local-lift-to-module48.1"
+" add-lifted-to-module-provide!126_0"
+" expand-context-to-module-lifts124_0"
+" to-module-lift-context-wrt-phase125_0"
 " #t"
-" #f"
-" #f"
-" temp136_0"
-" #t"
-" who130_0"
-" s131_0))))"
-"(let-values(((obs_41)(expand-context-observer ctx_5)))"
-"(if obs_41"
-"(let-values()(let-values()(call-expand-observe obs_41 'lift-provide result-s_7)))"
+" unsafe-undefined"
+" temp123_0"
+" temp128_2"
+" unsafe-undefined"
+" temp127_2"
+" who121_0"
+" s122_1))))"
+"(let-values(((obs_42)(expand-context-observer ctx_59)))"
+"(if obs_42"
+"(let-values()(let-values()(call-expand-observe obs_42 'lift-provide result-s_7)))"
 "(void)))))))))"
 "(define-values"
 "(1/syntax-local-lift-module-end-declaration)"
-"(lambda(s_229)"
+"(lambda(s_225)"
 "(begin"
 " 'syntax-local-lift-module-end-declaration"
 "(let-values()"
 "(let-values()"
-"(let-values(((ctx_61 also-s_0)"
-"(let-values(((who139_0) 'syntax-local-lift-module-end-declaration)"
-"((s140_0) s_229)"
-"((temp141_0)"
+"(let-values(((ctx_60 also-s_0)"
+"(let-values(((who130_0) 'syntax-local-lift-module-end-declaration)"
+"((s131_0) s_225)"
+"((temp132_1)"
 "                                      \"not currently transforming an expression within a module declaration\")"
-"((expand-context-to-module-lifts142_0) expand-context-to-module-lifts)"
-"((temp143_1)(lambda(lift-ctx_5) 0))"
-"((add-lifted-to-module-end!144_0) add-lifted-to-module-end!)"
-"((temp145_1)"
-"(lambda(orig-s_32 phase_124 to-module-lift-ctx_2)"
+"((expand-context-to-module-lifts133_0) expand-context-to-module-lifts)"
+"((temp134_1)(lambda(lift-ctx_5) 0))"
+"((add-lifted-to-module-end!135_0) add-lifted-to-module-end!)"
+"((temp136_0)"
+"(lambda(orig-s_32 phase_117 to-module-lift-ctx_2)"
 "(if(to-module-lift-context-end-as-expressions? to-module-lift-ctx_2)"
-"(wrap-form '#%expression orig-s_32 phase_124)"
+"(wrap-form '#%expression orig-s_32 phase_117)"
 " orig-s_32)))"
-"((temp146_1)"
-"(lambda(s_449 phase_125 to-module-lift-ctx_3)"
-"(wrap-form 'begin-for-syntax s_449 phase_125))))"
-"(do-local-lift-to-module54.1"
-" add-lifted-to-module-end!144_0"
-" expand-context-to-module-lifts142_0"
-" temp143_1"
-" #f"
-" #f"
-" #f"
-" #f"
-" temp141_0"
-" #f"
-" #f"
-" temp145_1"
+"((temp137_1)"
+"(lambda(s_438 phase_118 to-module-lift-ctx_3)"
+"(wrap-form 'begin-for-syntax s_438 phase_118))))"
+"(do-local-lift-to-module48.1"
+" add-lifted-to-module-end!135_0"
+" expand-context-to-module-lifts133_0"
+" temp134_1"
 " #t"
-" temp146_1"
-" #t"
-" who139_0"
-" s140_0))))"
-"(let-values(((obs_42)(expand-context-observer ctx_61)))"
-"(if obs_42"
-"(let-values()(let-values()(call-expand-observe obs_42 'lift-statement s_229)))"
+" unsafe-undefined"
+" temp132_1"
+" unsafe-undefined"
+" temp136_0"
+" temp137_1"
+" who130_0"
+" s131_0))))"
+"(let-values(((obs_43)(expand-context-observer ctx_60)))"
+"(if obs_43"
+"(let-values()(let-values()(call-expand-observe obs_43 'lift-statement s_225)))"
 "(void)))))))))"
 "(define-values"
 "(wrap-form)"
-"(lambda(sym_69 s_450 phase_126)"
+"(lambda(sym_72 s_123 phase_119)"
 "(begin"
 "(datum->syntax$1"
 " #f"
-"(list(datum->syntax$1(if phase_126(syntax-shift-phase-level$1 core-stx phase_126) #f) sym_69) s_450)))))"
+"(list(datum->syntax$1(if phase_119(syntax-shift-phase-level$1 core-stx phase_119) #f) sym_72) s_123)))))"
 "(define-values"
 "(1/syntax-local-module-defined-identifiers)"
 "(lambda()"
@@ -43062,10 +42322,10 @@ static const char *startup_source =
 " 'syntax-local-module-defined-identifiers"
 "                               \"not currently transforming module provides\")))"
 "(values))))"
-"(let-values(((ctx_62)"
-"(let-values(((temp148_1) 'syntax-local-module-defined-identifiers))"
-"(get-current-expand-context17.1 #f #f temp148_1 #t))))"
-"(requireds->phase-ht(extract-module-definitions(expand-context-requires+provides ctx_62))))))))))"
+"(let-values(((ctx_61)"
+"(let-values(((temp139_0) 'syntax-local-module-defined-identifiers))"
+"(get-current-expand-context16.1 #f temp139_0))))"
+"(requireds->phase-ht(extract-module-definitions(expand-context-requires+provides ctx_61))))))))))"
 "(define-values"
 "(1/syntax-local-module-required-identifiers)"
 "(lambda(mod-path_8 phase-level_21)"
@@ -43075,8 +42335,8 @@ static const char *startup_source =
 "(let-values()"
 "(let-values((()"
 "(begin"
-"(if(let-values(((or-part_288)(not mod-path_8)))"
-"(if or-part_288 or-part_288(1/module-path? mod-path_8)))"
+"(if(let-values(((or-part_287)(not mod-path_8)))"
+"(if or-part_287 or-part_287(1/module-path? mod-path_8)))"
 "(void)"
 "(let-values()"
 "(raise-argument-error"
@@ -43086,8 +42346,8 @@ static const char *startup_source =
 "(values))))"
 "(let-values((()"
 "(begin"
-"(if(let-values(((or-part_289)(eq? phase-level_21 #t)))"
-"(if or-part_289 or-part_289(phase? phase-level_21)))"
+"(if(let-values(((or-part_288)(eq? phase-level_21 #t)))"
+"(if or-part_288 or-part_288(phase? phase-level_21)))"
 "(void)"
 "(let-values()"
 "(raise-argument-error"
@@ -43104,77 +42364,77 @@ static const char *startup_source =
 " 'syntax-local-module-required-identifiers"
 "                                   \"not currently transforming module provides\")))"
 "(values))))"
-"(let-values(((ctx_63)"
-"(let-values(((temp150_0) 'syntax-local-module-required-identifiers))"
-"(get-current-expand-context17.1 #f #f temp150_0 #t))))"
-"(let-values(((requires+provides_5)(expand-context-requires+provides ctx_63)))"
-"(let-values(((mpi_47)(if mod-path_8(module-path->mpi/context mod-path_8 ctx_63) #f)))"
+"(let-values(((ctx_62)"
+"(let-values(((temp141_1) 'syntax-local-module-required-identifiers))"
+"(get-current-expand-context16.1 #f temp141_1))))"
+"(let-values(((requires+provides_5)(expand-context-requires+provides ctx_62)))"
+"(let-values(((mpi_45)(if mod-path_8(module-path->mpi/context mod-path_8 ctx_62) #f)))"
 "(let-values(((requireds_0)"
 "(extract-all-module-requires"
 " requires+provides_5"
-" mpi_47"
+" mpi_45"
 "(if(eq? phase-level_21 #t) 'all phase-level_21))))"
 "(if requireds_0"
 "(reverse$1"
-"(let-values(((ht_139)(requireds->phase-ht requireds_0)))"
+"(let-values(((ht_131)(requireds->phase-ht requireds_0)))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
-"(let-values()(check-in-hash ht_139)))"
-"((letrec-values(((for-loop_264)"
-"(lambda(fold-var_204 i_167)"
+"(let-values()(check-in-hash ht_131)))"
+"((letrec-values(((for-loop_261)"
+"(lambda(fold-var_254 i_166)"
 "(begin"
 " 'for-loop"
-"(if i_167"
-"(let-values(((phase_127 ids_28)"
-"(hash-iterate-key+value ht_139 i_167)))"
-"(let-values(((fold-var_261)"
-"(let-values(((fold-var_262) fold-var_204))"
-"(let-values(((fold-var_263)"
+"(if i_166"
+"(let-values(((phase_120 ids_29)"
+"(hash-iterate-key+value ht_131 i_166)))"
+"(let-values(((fold-var_203)"
+"(let-values(((fold-var_255) fold-var_254))"
+"(let-values(((fold-var_256)"
 "(let-values()"
 "(cons"
 "(let-values()"
-"(cons phase_127 ids_28))"
-" fold-var_262))))"
-"(values fold-var_263)))))"
+"(cons phase_120 ids_29))"
+" fold-var_255))))"
+"(values fold-var_256)))))"
 "(if(not #f)"
-"(for-loop_264"
-" fold-var_261"
-"(hash-iterate-next ht_139 i_167))"
-" fold-var_261)))"
-" fold-var_204)))))"
-" for-loop_264)"
+"(for-loop_261"
+" fold-var_203"
+"(hash-iterate-next ht_131 i_166))"
+" fold-var_203)))"
+" fold-var_254)))))"
+" for-loop_261)"
 " null"
-"(hash-iterate-first ht_139)))))"
+"(hash-iterate-first ht_131)))))"
 " #f)))))))))))))"
 "(define-values"
 "(requireds->phase-ht)"
 "(lambda(requireds_1)"
 "(begin"
-"(let-values(((lst_296) requireds_1))"
+"(let-values(((lst_295) requireds_1))"
 "(begin"
-"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_296)))"
-"((letrec-values(((for-loop_265)"
-"(lambda(ht_140 lst_297)"
+"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_295)))"
+"((letrec-values(((for-loop_138)"
+"(lambda(ht_132 lst_296)"
 "(begin"
 " 'for-loop"
-"(if(pair? lst_297)"
-"(let-values(((r_43)(unsafe-car lst_297))((rest_164)(unsafe-cdr lst_297)))"
-"(let-values(((ht_141)"
-"(let-values(((ht_142) ht_140))"
-"(let-values(((ht_143)"
+"(if(pair? lst_296)"
+"(let-values(((r_43)(unsafe-car lst_296))((rest_171)(unsafe-cdr lst_296)))"
+"(let-values(((ht_133)"
+"(let-values(((ht_134) ht_132))"
+"(let-values(((ht_135)"
 "(let-values()"
 "(hash-update"
-" ht_142"
+" ht_134"
 "(required-phase r_43)"
-"(lambda(l_73)(cons(required-id r_43) l_73))"
+"(lambda(l_71)(cons(required-id r_43) l_71))"
 " null))))"
-"(values ht_143)))))"
-"(if(not #f)(for-loop_265 ht_141 rest_164) ht_141)))"
-" ht_140)))))"
-" for-loop_265)"
+"(values ht_135)))))"
+"(if(not #f)(for-loop_138 ht_133 rest_171) ht_133)))"
+" ht_132)))))"
+" for-loop_138)"
 "(hasheqv)"
-" lst_296))))))"
+" lst_295))))))"
 "(define-values"
 "(1/syntax-local-module-exports)"
 "(lambda(mod-path_9)"
@@ -43184,9 +42444,9 @@ static const char *startup_source =
 "(let-values()"
 "(let-values((()"
 "(begin"
-"(if(let-values(((or-part_290)(1/module-path? mod-path_9)))"
-"(if or-part_290"
-" or-part_290"
+"(if(let-values(((or-part_289)(1/module-path? mod-path_9)))"
+"(if or-part_289"
+" or-part_289"
 "(if(syntax?$1 mod-path_9)(1/module-path?(syntax->datum$1 mod-path_9)) #f)))"
 "(void)"
 "(let-values()"
@@ -43199,95 +42459,95 @@ static const char *startup_source =
 "                                \"               (module-path? (syntax->datum stx)))))\")"
 " mod-path_9)))"
 "(values))))"
-"(let-values(((ctx_64)"
-"(let-values(((temp152_2) 'syntax-local-module-exports))"
-"(get-current-expand-context17.1 #f #f temp152_2 #t))))"
-"(let-values(((ns_75)(expand-context-namespace ctx_64)))"
+"(let-values(((ctx_63)"
+"(let-values(((temp143_0) 'syntax-local-module-exports))"
+"(get-current-expand-context16.1 #f temp143_0))))"
+"(let-values(((ns_76)(expand-context-namespace ctx_63)))"
 "(let-values(((mod-name_18)"
 "(1/module-path-index-resolve"
 "(module-path->mpi/context"
 "(if(syntax?$1 mod-path_9)(syntax->datum$1 mod-path_9) mod-path_9)"
-" ctx_64)"
+" ctx_63)"
 " #t)))"
-"(let-values(((m_19)(namespace->module ns_75 mod-name_18)))"
+"(let-values(((m_19)(namespace->module ns_76 mod-name_18)))"
 "(begin"
 "(if m_19"
 "(void)"
 "(let-values()(raise-unknown-module-error 'syntax-local-module-exports mod-name_18)))"
 "(reverse$1"
-"(let-values(((ht_144)(module-provides m_19)))"
+"(let-values(((ht_136)(module-provides m_19)))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
-"(let-values()(check-in-hash ht_144)))"
-"((letrec-values(((for-loop_266)"
-"(lambda(fold-var_264 i_168)"
+"(let-values()(check-in-hash ht_136)))"
+"((letrec-values(((for-loop_262)"
+"(lambda(fold-var_257 i_167)"
 "(begin"
 " 'for-loop"
-"(if i_168"
-"(let-values(((phase_128 syms_21)"
-"(hash-iterate-key+value ht_144 i_168)))"
-"(let-values(((fold-var_265)"
-"(let-values(((fold-var_266) fold-var_264))"
-"(let-values(((fold-var_267)"
+"(if i_167"
+"(let-values(((phase_121 syms_20)"
+"(hash-iterate-key+value ht_136 i_167)))"
+"(let-values(((fold-var_258)"
+"(let-values(((fold-var_259) fold-var_257))"
+"(let-values(((fold-var_260)"
 "(let-values()"
 "(cons"
 "(let-values()"
 "(cons"
-" phase_128"
+" phase_121"
 "(reverse$1"
-"(let-values(((ht_145)"
-" syms_21))"
+"(let-values(((ht_137)"
+" syms_20))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
 "(#%variable-reference))"
 "(void)"
 "(let-values()"
 "(check-in-hash-keys"
-" ht_145)))"
-"((letrec-values(((for-loop_267)"
-"(lambda(fold-var_268"
-" i_169)"
+" ht_137)))"
+"((letrec-values(((for-loop_263)"
+"(lambda(fold-var_261"
+" i_12)"
 "(begin"
 " 'for-loop"
-"(if i_169"
-"(let-values(((sym_70)"
+"(if i_12"
+"(let-values(((sym_73)"
 "(hash-iterate-key"
-" ht_145"
-" i_169)))"
-"(let-values(((fold-var_269)"
-"(let-values(((fold-var_270)"
-" fold-var_268))"
-"(let-values(((fold-var_271)"
+" ht_137"
+" i_12)))"
+"(let-values(((fold-var_262)"
+"(let-values(((fold-var_263)"
+" fold-var_261))"
+"(let-values(((fold-var_264)"
 "(let-values()"
 "(cons"
 "(let-values()"
-" sym_70)"
-" fold-var_270))))"
+" sym_73)"
+" fold-var_263))))"
 "(values"
-" fold-var_271)))))"
+" fold-var_264)))))"
 "(if(not"
 " #f)"
-"(for-loop_267"
-" fold-var_269"
+"(for-loop_263"
+" fold-var_262"
 "(hash-iterate-next"
-" ht_145"
-" i_169))"
-" fold-var_269)))"
-" fold-var_268)))))"
-" for-loop_267)"
+" ht_137"
+" i_12))"
+" fold-var_262)))"
+" fold-var_261)))))"
+" for-loop_263)"
 " null"
 "(hash-iterate-first"
-" ht_145)))))))"
-" fold-var_266))))"
-"(values fold-var_267)))))"
+" ht_137)))))))"
+" fold-var_259))))"
+"(values fold-var_260)))))"
 "(if(not #f)"
-"(for-loop_266 fold-var_265(hash-iterate-next ht_144 i_168))"
-" fold-var_265)))"
-" fold-var_264)))))"
-" for-loop_266)"
+"(for-loop_262 fold-var_258(hash-iterate-next ht_136 i_167))"
+" fold-var_258)))"
+" fold-var_257)))))"
+" for-loop_262)"
 " null"
-"(hash-iterate-first ht_144))))))))))))))))"
+"(hash-iterate-first ht_136))))))))))))))))"
 "(define-values"
 "(1/syntax-local-submodules)"
 "(lambda()"
@@ -43295,79 +42555,79 @@ static const char *startup_source =
 " 'syntax-local-submodules"
 "(let-values()"
 "(let-values()"
-"(let-values(((ctx_65)"
-"(let-values(((who154_0) 'syntax-local-submodules))"
-"(get-current-expand-context17.1 #f #f who154_0 #t))))"
-"(let-values(((submods_3)(expand-context-declared-submodule-names ctx_65)))"
+"(let-values(((ctx_64)"
+"(let-values(((who145_0) 'syntax-local-submodules))"
+"(get-current-expand-context16.1 #f who145_0))))"
+"(let-values(((submods_3)(expand-context-declared-submodule-names ctx_64)))"
 "(reverse$1"
-"(let-values(((ht_146) submods_3))"
+"(let-values(((ht_138) submods_3))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
-"(let-values()(check-in-hash ht_146)))"
-"((letrec-values(((for-loop_268)"
-"(lambda(fold-var_272 i_170)"
+"(let-values()(check-in-hash ht_138)))"
+"((letrec-values(((for-loop_264)"
+"(lambda(fold-var_265 i_168)"
 "(begin"
 " 'for-loop"
-"(if i_170"
-"(let-values(((name_62 kind_8)(hash-iterate-key+value ht_146 i_170)))"
-"(let-values(((fold-var_273)"
-"(let-values(((fold-var_274) fold-var_272))"
+"(if i_168"
+"(let-values(((name_62 kind_8)(hash-iterate-key+value ht_138 i_168)))"
+"(let-values(((fold-var_266)"
+"(let-values(((fold-var_267) fold-var_265))"
 "(if(eq? kind_8 'module)"
-"(let-values(((fold-var_275) fold-var_274))"
-"(let-values(((fold-var_276)"
+"(let-values(((fold-var_268) fold-var_267))"
+"(let-values(((fold-var_269)"
 "(let-values()"
 "(cons"
 "(let-values() name_62)"
-" fold-var_275))))"
-"(values fold-var_276)))"
-" fold-var_274))))"
+" fold-var_268))))"
+"(values fold-var_269)))"
+" fold-var_267))))"
 "(if(not #f)"
-"(for-loop_268 fold-var_273(hash-iterate-next ht_146 i_170))"
-" fold-var_273)))"
-" fold-var_272)))))"
-" for-loop_268)"
+"(for-loop_264 fold-var_266(hash-iterate-next ht_138 i_168))"
+" fold-var_266)))"
+" fold-var_265)))))"
+" for-loop_264)"
 " null"
-"(hash-iterate-first ht_146))))))))))))"
+"(hash-iterate-first ht_138))))))))))))"
 "(define-values"
 "(1/syntax-local-get-shadower)"
-"(let-values(((syntax-local-get-shadower60_0)"
-"(lambda(id59_0 only-generated?57_0 only-generated?58_0)"
+"(let-values(((syntax-local-get-shadower53_0)"
+"(lambda(id52_1 only-generated?51_0)"
 "(begin"
-" 'syntax-local-get-shadower60"
-"(let-values(((id_90) id59_0))"
+" 'syntax-local-get-shadower53"
+"(let-values(((id_85) id52_1))"
 "(let-values()"
 "(let-values()"
 "(let-values()"
 "(let-values()"
 "(let-values((()"
 "(begin"
-"(if(identifier? id_90)"
+"(if(identifier? id_85)"
 "(void)"
 "(let-values()"
 "(raise-argument-error"
 " 'syntax-local-get-shadower"
 "                                                   \"identifier?\""
-" id_90)))"
+" id_85)))"
 "(values))))"
-"(let-values(((ctx_66)"
-"(let-values(((who156_0) 'syntax-local-get-shadower))"
-"(get-current-expand-context17.1 #f #f who156_0 #t))))"
-"(let-values(((new-id_0)(add-scopes id_90(expand-context-scopes ctx_66))))"
-"(if(syntax-clean? id_90) new-id_0(syntax-taint$1 new-id_0))))))))))))))"
+"(let-values(((ctx_65)"
+"(let-values(((who147_0) 'syntax-local-get-shadower))"
+"(get-current-expand-context16.1 #f who147_0))))"
+"(let-values(((new-id_0)(add-scopes id_85(expand-context-scopes ctx_65))))"
+"(if(syntax-clean? id_85) new-id_0(syntax-taint$1 new-id_0))))))))))))))"
 "(case-lambda"
-"((id_38)(begin 'syntax-local-get-shadower(syntax-local-get-shadower60_0 id_38 #f #f)))"
-"((id_39 only-generated?57_1)(syntax-local-get-shadower60_0 id_39 only-generated?57_1 #t)))))"
+"((id_86)(begin 'syntax-local-get-shadower(syntax-local-get-shadower53_0 id_86 #f)))"
+"((id_87 only-generated?51_1)(syntax-local-get-shadower53_0 id_87 only-generated?51_1)))))"
 "(define-values"
 "(syntax-source-accessor)"
 "(lambda(who_0 srcloc-accessor_0)"
 "(begin"
-"(lambda(s_190)"
+"(lambda(s_188)"
 "(let-values((()"
 "(begin"
-"                        (if (syntax?$1 s_190) (void) (let-values () (raise-argument-error who_0 \"syntax?\" s_190)))"
+"                        (if (syntax?$1 s_188) (void) (let-values () (raise-argument-error who_0 \"syntax?\" s_188)))"
 "(values))))"
-"(let-values(((srcloc_8)(syntax-srcloc s_190)))(if srcloc_8(srcloc-accessor_0 srcloc_8) #f)))))))"
+"(let-values(((srcloc_8)(syntax-srcloc s_188)))(if srcloc_8(srcloc-accessor_0 srcloc_8) #f)))))))"
 "(define-values(1/syntax-source)(syntax-source-accessor 'syntax-source srcloc-source))"
 "(define-values(1/syntax-line)(syntax-source-accessor 'syntax-line srcloc-line))"
 "(define-values(1/syntax-column)(syntax-source-accessor 'syntax-column srcloc-column))"
@@ -43375,68 +42635,68 @@ static const char *startup_source =
 "(define-values(1/syntax-span)(syntax-source-accessor 'syntax-span srcloc-span))"
 "(define-values"
 "(encoded-srcloc?)"
-"(lambda(v_68)"
+"(lambda(v_69)"
 "(begin"
-"(let-values(((or-part_26)(if(list? v_68)(if(=(length v_68) 5)(srcloc-vector?(list->vector v_68)) #f) #f)))"
-"(if or-part_26 or-part_26(if(vector? v_68)(if(=(vector-length v_68) 5)(srcloc-vector? v_68) #f) #f))))))"
+"(let-values(((or-part_26)(if(list? v_69)(if(=(length v_69) 5)(srcloc-vector?(list->vector v_69)) #f) #f)))"
+"(if or-part_26 or-part_26(if(vector? v_69)(if(=(vector-length v_69) 5)(srcloc-vector? v_69) #f) #f))))))"
 "(define-values"
 "(srcloc-vector?)"
-"(lambda(v_70)"
+"(lambda(v_71)"
 "(begin"
-"(if(let-values(((or-part_291)(not(vector-ref v_70 1))))"
-"(if or-part_291 or-part_291(exact-positive-integer?(vector-ref v_70 1))))"
-"(if(let-values(((or-part_27)(not(vector-ref v_70 2))))"
-"(if or-part_27 or-part_27(exact-nonnegative-integer?(vector-ref v_70 2))))"
-"(if(let-values(((or-part_10)(not(vector-ref v_70 3))))"
-"(if or-part_10 or-part_10(exact-positive-integer?(vector-ref v_70 3))))"
-"(let-values(((or-part_155)(not(vector-ref v_70 4))))"
-"(if or-part_155 or-part_155(exact-nonnegative-integer?(vector-ref v_70 4))))"
+"(if(let-values(((or-part_290)(not(vector-ref v_71 1))))"
+"(if or-part_290 or-part_290(exact-positive-integer?(vector-ref v_71 1))))"
+"(if(let-values(((or-part_27)(not(vector-ref v_71 2))))"
+"(if or-part_27 or-part_27(exact-nonnegative-integer?(vector-ref v_71 2))))"
+"(if(let-values(((or-part_10)(not(vector-ref v_71 3))))"
+"(if or-part_10 or-part_10(exact-positive-integer?(vector-ref v_71 3))))"
+"(let-values(((or-part_158)(not(vector-ref v_71 4))))"
+"(if or-part_158 or-part_158(exact-nonnegative-integer?(vector-ref v_71 4))))"
 " #f)"
 " #f)"
 " #f))))"
 "(define-values"
 "(to-srcloc-stx)"
-"(lambda(v_198)"
+"(lambda(v_136)"
 "(begin"
-"(if(srcloc? v_198)"
+"(if(srcloc? v_136)"
 "(let-values()"
-"(let-values(((the-struct_67) empty-syntax))"
-"(if(syntax?$1 the-struct_67)"
-"(let-values(((srcloc1_2) v_198))"
+"(let-values(((the-struct_35) empty-syntax))"
+"(if(syntax?$1 the-struct_35)"
+"(let-values(((srcloc1_2) v_136))"
 "(syntax1.1"
-"(syntax-content the-struct_67)"
-"(syntax-scopes the-struct_67)"
-"(syntax-shifted-multi-scopes the-struct_67)"
-"(syntax-scope-propagations+tamper the-struct_67)"
-"(syntax-mpi-shifts the-struct_67)"
+"(syntax-content the-struct_35)"
+"(syntax-scopes the-struct_35)"
+"(syntax-shifted-multi-scopes the-struct_35)"
+"(syntax-scope-propagations+tamper the-struct_35)"
+"(syntax-mpi-shifts the-struct_35)"
 " srcloc1_2"
-"(syntax-props the-struct_67)"
-"(syntax-inspector the-struct_67)))"
-"              (raise-argument-error 'struct-copy \"syntax?\" the-struct_67))))"
-"(if(pair? v_198)"
-"(let-values()(to-srcloc-stx(list->vector v_198)))"
-"(if(vector? v_198)"
+"(syntax-props the-struct_35)"
+"(syntax-inspector the-struct_35)))"
+"              (raise-argument-error 'struct-copy \"syntax?\" the-struct_35))))"
+"(if(pair? v_136)"
+"(let-values()(to-srcloc-stx(list->vector v_136)))"
+"(if(vector? v_136)"
 "(let-values()"
-"(let-values(((the-struct_68) empty-syntax))"
-"(if(syntax?$1 the-struct_68)"
-"(let-values(((srcloc2_1)"
+"(let-values(((the-struct_36) empty-syntax))"
+"(if(syntax?$1 the-struct_36)"
+"(let-values(((srcloc2_0)"
 "(srcloc"
-"(vector-ref v_198 0)"
-"(vector-ref v_198 1)"
-"(vector-ref v_198 2)"
-"(vector-ref v_198 3)"
-"(vector-ref v_198 4))))"
+"(vector-ref v_136 0)"
+"(vector-ref v_136 1)"
+"(vector-ref v_136 2)"
+"(vector-ref v_136 3)"
+"(vector-ref v_136 4))))"
 "(syntax1.1"
-"(syntax-content the-struct_68)"
-"(syntax-scopes the-struct_68)"
-"(syntax-shifted-multi-scopes the-struct_68)"
-"(syntax-scope-propagations+tamper the-struct_68)"
-"(syntax-mpi-shifts the-struct_68)"
-" srcloc2_1"
-"(syntax-props the-struct_68)"
-"(syntax-inspector the-struct_68)))"
-"                  (raise-argument-error 'struct-copy \"syntax?\" the-struct_68))))"
-"(let-values() v_198)))))))"
+"(syntax-content the-struct_36)"
+"(syntax-scopes the-struct_36)"
+"(syntax-shifted-multi-scopes the-struct_36)"
+"(syntax-scope-propagations+tamper the-struct_36)"
+"(syntax-mpi-shifts the-struct_36)"
+" srcloc2_0"
+"(syntax-props the-struct_36)"
+"(syntax-inspector the-struct_36)))"
+"                  (raise-argument-error 'struct-copy \"syntax?\" the-struct_36))))"
+"(let-values() v_136)))))))"
 "(define-values"
 "(1/syntax-e)"
 "(lambda(s_0)"
@@ -43449,39 +42709,39 @@ static const char *startup_source =
 "(syntax-e$1 s_0)))))))"
 "(define-values"
 "(1/syntax->datum)"
-"(lambda(s_190)"
+"(lambda(s_188)"
 "(begin"
 " 'syntax->datum"
 "(let-values()"
 "(let-values()"
 "(begin"
-"            (if (syntax?$1 s_190) (void) (let-values () (raise-argument-error 'syntax->datum \"syntax?\" s_190)))"
-"(syntax->datum$1 s_190)))))))"
-"(define-values(maybe-syntax->datum)(lambda(s_72)(begin(if(syntax?$1 s_72)(syntax->datum$1 s_72) s_72))))"
+"            (if (syntax?$1 s_188) (void) (let-values () (raise-argument-error 'syntax->datum \"syntax?\" s_188)))"
+"(syntax->datum$1 s_188)))))))"
+"(define-values(maybe-syntax->datum)(lambda(s_73)(begin(if(syntax?$1 s_73)(syntax->datum$1 s_73) s_73))))"
 "(define-values"
 "(1/datum->syntax)"
-"(let-values(((datum->syntax9_0)"
-"(lambda(stx-c7_0 s8_0 stx-l1_0 stx-p2_0 ignored3_0 stx-l4_1 stx-p5_1 ignored6_0)"
+"(let-values(((datum->syntax6_1)"
+"(lambda(stx-c4_1 s5_2 stx-l1_0 stx-p2_0 ignored3_0)"
 "(begin"
-" 'datum->syntax9"
-"(let-values(((stx-c_4) stx-c7_0))"
-"(let-values(((s_180) s8_0))"
-"(let-values(((stx-l_2)(if stx-l4_1 stx-l1_0 #f)))"
-"(let-values(((stx-p_1)(if stx-p5_1 stx-p2_0 #f)))"
+" 'datum->syntax6"
+"(let-values(((stx-c_4) stx-c4_1))"
+"(let-values(((s_439) s5_2))"
+"(let-values(((stx-l_2) stx-l1_0))"
+"(let-values(((stx-p_1) stx-p2_0))"
 "(let-values()"
 "(let-values()"
 "(let-values()"
 "(let-values()"
 "(begin"
-"(if(let-values(((or-part_292)(not stx-c_4)))"
-"(if or-part_292 or-part_292(syntax?$1 stx-c_4)))"
+"(if(let-values(((or-part_6)(not stx-c_4)))"
+"(if or-part_6 or-part_6(syntax?$1 stx-c_4)))"
 "(void)"
 "                                        (let-values () (raise-argument-error 'datum->syntax \"(or #f syntax?)\" stx-c_4)))"
-"(if(let-values(((or-part_293)(not stx-l_2)))"
-"(if or-part_293"
-" or-part_293"
-"(let-values(((or-part_294)(syntax?$1 stx-l_2)))"
-"(if or-part_294 or-part_294(encoded-srcloc? stx-l_2)))))"
+"(if(let-values(((or-part_291)(not stx-l_2)))"
+"(if or-part_291"
+" or-part_291"
+"(let-values(((or-part_28)(syntax?$1 stx-l_2)))"
+"(if or-part_28 or-part_28(encoded-srcloc? stx-l_2)))))"
 "(void)"
 "(let-values()"
 "(raise-argument-error"
@@ -43499,45 +42759,46 @@ static const char *startup_source =
 "                                            \"                 (or/c exact-positive-integer? #f)\\n\""
 "                                            \"                 (or/c exact-nonnegative-integer? #f)))\")"
 " stx-l_2)))"
-"(if(let-values(((or-part_295)(not stx-p_1)))"
-"(if or-part_295 or-part_295(syntax?$1 stx-p_1)))"
+"(if(let-values(((or-part_292)(not stx-p_1)))"
+"(if or-part_292 or-part_292(syntax?$1 stx-p_1)))"
 "(void)"
 "                                        (let-values () (raise-argument-error 'datum->syntax \"(or #f syntax?)\" stx-p_1)))"
-"(datum->syntax$1 stx-c_4 s_180(to-srcloc-stx stx-l_2) stx-p_1))))))))))))))"
+"(datum->syntax$1 stx-c_4 s_439(to-srcloc-stx stx-l_2) stx-p_1))))))))))))))"
 "(case-lambda"
-"((stx-c_5 s_309)(begin 'datum->syntax(datum->syntax9_0 stx-c_5 s_309 #f #f #f #f #f #f)))"
-"((stx-c_6 s_451 stx-l_3 stx-p_2 ignored3_1)(datum->syntax9_0 stx-c_6 s_451 stx-l_3 stx-p_2 ignored3_1 #t #t #t))"
-"((stx-c_7 s_75 stx-l_4 stx-p2_1)(datum->syntax9_0 stx-c_7 s_75 stx-l_4 stx-p2_1 #f #t #t #f))"
-"((stx-c_8 s_452 stx-l1_1)(datum->syntax9_0 stx-c_8 s_452 stx-l1_1 #f #f #t #f #f)))))"
+"((stx-c_5 s_77)(begin 'datum->syntax(datum->syntax6_1 stx-c_5 s_77 #f #f #f)))"
+"((stx-c_6 s_4 stx-l_3 stx-p_2 ignored3_1)(datum->syntax6_1 stx-c_6 s_4 stx-l_3 stx-p_2 ignored3_1))"
+"((stx-c_7 s_440 stx-l_4 stx-p2_1)(datum->syntax6_1 stx-c_7 s_440 stx-l_4 stx-p2_1 #f))"
+"((stx-c_8 s_181 stx-l1_1)(datum->syntax6_1 stx-c_8 s_181 stx-l1_1 #f #f)))))"
 "(define-values"
 "(1/syntax->list)"
-"(lambda(s_5)"
+"(lambda(s_441)"
 "(begin"
 " 'syntax->list"
 "(let-values()"
 "(let-values()"
 "(begin"
-"            (if (syntax?$1 s_5) (void) (let-values () (raise-argument-error 'syntax->list \"syntax?\" s_5)))"
-"(syntax->list$1 s_5)))))))"
+"            (if (syntax?$1 s_441) (void) (let-values () (raise-argument-error 'syntax->list \"syntax?\" s_441)))"
+"(syntax->list$1 s_441)))))))"
 "(define-values"
 "(1/syntax-original?)"
-"(lambda(s_41)"
+"(lambda(s_167)"
 "(begin"
 " 'syntax-original?"
 "(let-values()"
 "(let-values()"
 "(begin"
-"            (if (syntax?$1 s_41) (void) (let-values () (raise-argument-error 'syntax-original? \"syntax?\" s_41)))"
-"(if(syntax-property$1 s_41 original-property-sym)(not(syntax-any-macro-scopes? s_41)) #f)))))))"
+"            (if (syntax?$1 s_167) (void) (let-values () (raise-argument-error 'syntax-original? \"syntax?\" s_167)))"
+"(if(syntax-property$1 s_167 original-property-sym)(not(syntax-any-macro-scopes? s_167)) #f)))))))"
 "(define-values"
 "(1/bound-identifier=?)"
-"(let-values(((bound-identifier=?15_0)"
-"(lambda(a13_0 b14_0 phase11_0 phase12_1)"
+"(let-values(((bound-identifier=?11_0)"
+"(lambda(a9_0 b10_0 phase8_0)"
 "(begin"
-" 'bound-identifier=?15"
-"(let-values(((a_53) a13_0))"
-"(let-values(((b_83) b14_0))"
-"(let-values(((phase_129)(if phase12_1 phase11_0(1/syntax-local-phase-level))))"
+" 'bound-identifier=?11"
+"(let-values(((a_53) a9_0))"
+"(let-values(((b_82) b10_0))"
+"(let-values(((phase_122)"
+"(if(eq? phase8_0 unsafe-undefined)(1/syntax-local-phase-level) phase8_0)))"
 "(let-values()"
 "(let-values()"
 "(let-values()"
@@ -43545,26 +42806,27 @@ static const char *startup_source =
 "(if(identifier? a_53)"
 "(void)"
 "                                    (let-values () (raise-argument-error 'bound-identifier=? \"identifier?\" a_53)))"
-"(if(identifier? b_83)"
+"(if(identifier? b_82)"
 "(void)"
-"                                    (let-values () (raise-argument-error 'bound-identifier=? \"identifier?\" b_83)))"
-"(if(phase? phase_129)"
+"                                    (let-values () (raise-argument-error 'bound-identifier=? \"identifier?\" b_82)))"
+"(if(phase? phase_122)"
 "(void)"
-"(let-values()(raise-argument-error 'bound-identifier=? phase?-string phase_129)))"
-"(bound-identifier=?$1 a_53 b_83 phase_129))))))))))))"
+"(let-values()(raise-argument-error 'bound-identifier=? phase?-string phase_122)))"
+"(bound-identifier=?$1 a_53 b_82 phase_122))))))))))))"
 "(case-lambda"
-"((a_54 b_8)(begin 'bound-identifier=?(bound-identifier=?15_0 a_54 b_8 #f #f)))"
-"((a_55 b_84 phase11_1)(bound-identifier=?15_0 a_55 b_84 phase11_1 #t)))))"
+"((a_54 b_83)(begin 'bound-identifier=?(bound-identifier=?11_0 a_54 b_83 unsafe-undefined)))"
+"((a_55 b_84 phase8_1)(bound-identifier=?11_0 a_55 b_84 phase8_1)))))"
 "(define-values"
 "(1/free-identifier=?)"
-"(let-values(((free-identifier=?23_0)"
-"(lambda(a21_0 b22_0 a-phase17_0 b-phase18_0 a-phase19_0 b-phase20_0)"
+"(let-values(((free-identifier=?17_0)"
+"(lambda(a15_0 b16_1 a-phase13_0 b-phase14_0)"
 "(begin"
-" 'free-identifier=?23"
-"(let-values(((a_56) a21_0))"
-"(let-values(((b_85) b22_0))"
-"(let-values(((a-phase_1)(if a-phase19_0 a-phase17_0(1/syntax-local-phase-level))))"
-"(let-values(((b-phase_1)(if b-phase20_0 b-phase18_0 a-phase_1)))"
+" 'free-identifier=?17"
+"(let-values(((a_56) a15_0))"
+"(let-values(((b_85) b16_1))"
+"(let-values(((a-phase_1)"
+"(if(eq? a-phase13_0 unsafe-undefined)(1/syntax-local-phase-level) a-phase13_0)))"
+"(let-values(((b-phase_1)(if(eq? b-phase14_0 unsafe-undefined) a-phase_1 b-phase14_0)))"
 "(let-values()"
 "(let-values()"
 "(let-values()"
@@ -43583,12 +42845,12 @@ static const char *startup_source =
 "(let-values()(raise-argument-error 'free-identifier=? phase?-string b-phase_1)))"
 "(free-identifier=?$1 a_56 b_85 a-phase_1 b-phase_1)))))))))))))"
 "(case-lambda"
-"((a_57 b_86)(begin 'free-identifier=?(free-identifier=?23_0 a_57 b_86 #f #f #f #f)))"
-"((a_58 b_87 a-phase_2 b-phase18_1)(free-identifier=?23_0 a_58 b_87 a-phase_2 b-phase18_1 #t #t))"
-"((a_59 b_88 a-phase17_1)(free-identifier=?23_0 a_59 b_88 a-phase17_1 #f #t #f)))))"
+"((a_57 b_39)(begin 'free-identifier=?(free-identifier=?17_0 a_57 b_39 unsafe-undefined unsafe-undefined)))"
+"((a_58 b_86 a-phase_2 b-phase14_1)(free-identifier=?17_0 a_58 b_86 a-phase_2 b-phase14_1))"
+"((a_59 b_87 a-phase13_1)(free-identifier=?17_0 a_59 b_87 a-phase13_1 unsafe-undefined)))))"
 "(define-values"
 "(1/free-transformer-identifier=?)"
-"(lambda(a_60 b_89)"
+"(lambda(a_60 b_88)"
 "(begin"
 " 'free-transformer-identifier=?"
 "(let-values()"
@@ -43601,15 +42863,15 @@ static const char *startup_source =
 "(values))))"
 "(let-values((()"
 "(begin"
-"(if(identifier? b_89)"
+"(if(identifier? b_88)"
 "(void)"
-"                              (let-values () (raise-argument-error 'free-transformer-identifier=? \"identifier?\" b_89)))"
+"                              (let-values () (raise-argument-error 'free-transformer-identifier=? \"identifier?\" b_88)))"
 "(values))))"
-"(let-values(((phase_130)(add1(1/syntax-local-phase-level))))"
-"(free-identifier=?$1 a_60 b_89 phase_130 phase_130)))))))))"
+"(let-values(((phase_123)(add1(1/syntax-local-phase-level))))"
+"(free-identifier=?$1 a_60 b_88 phase_123 phase_123)))))))))"
 "(define-values"
 "(1/free-template-identifier=?)"
-"(lambda(a_61 b_90)"
+"(lambda(a_61 b_89)"
 "(begin"
 " 'free-template-identifier=?"
 "(let-values()"
@@ -43622,15 +42884,15 @@ static const char *startup_source =
 "(values))))"
 "(let-values((()"
 "(begin"
-"(if(identifier? b_90)"
+"(if(identifier? b_89)"
 "(void)"
-"                              (let-values () (raise-argument-error 'free-template-identifier=? \"identifier?\" b_90)))"
+"                              (let-values () (raise-argument-error 'free-template-identifier=? \"identifier?\" b_89)))"
 "(values))))"
-"(let-values(((phase_131)(sub1(1/syntax-local-phase-level))))"
-"(free-identifier=?$1 a_61 b_90 phase_131 phase_131)))))))))"
+"(let-values(((phase_124)(sub1(1/syntax-local-phase-level))))"
+"(free-identifier=?$1 a_61 b_89 phase_124 phase_124)))))))))"
 "(define-values"
 "(1/free-label-identifier=?)"
-"(lambda(a_62 b_91)"
+"(lambda(a_62 b_90)"
 "(begin"
 " 'free-label-identifier=?"
 "(let-values()"
@@ -43639,170 +42901,174 @@ static const char *startup_source =
 "(if(identifier? a_62)"
 "(void)"
 "              (let-values () (raise-argument-error 'free-label-identifier=? \"identifier?\" a_62)))"
-"(if(identifier? b_91)"
+"(if(identifier? b_90)"
 "(void)"
-"              (let-values () (raise-argument-error 'free-label-identifier=? \"identifier?\" b_91)))"
-"(free-identifier=?$1 a_62 b_91 #f #f)))))))"
+"              (let-values () (raise-argument-error 'free-label-identifier=? \"identifier?\" b_90)))"
+"(free-identifier=?$1 a_62 b_90 #f #f)))))))"
 "(define-values"
 "(1/identifier-binding)"
-"(let-values(((identifier-binding30_0)"
-"(lambda(id29_1 phase25_0 top-level-symbol?26_0 phase27_0 top-level-symbol?28_0)"
+"(let-values(((identifier-binding22_0)"
+"(lambda(id21_0 phase19_0 top-level-symbol?20_0)"
 "(begin"
-" 'identifier-binding30"
-"(let-values(((id_91) id29_1))"
-"(let-values(((phase_36)(if phase27_0 phase25_0(1/syntax-local-phase-level))))"
-"(let-values(((top-level-symbol?_1)(if top-level-symbol?28_0 top-level-symbol?26_0 #f)))"
+" 'identifier-binding22"
+"(let-values(((id_88) id21_0))"
+"(let-values(((phase_125)"
+"(if(eq? phase19_0 unsafe-undefined)(1/syntax-local-phase-level) phase19_0)))"
+"(let-values(((top-level-symbol?_1) top-level-symbol?20_0))"
+"(let-values()"
+"(let-values()"
+"(let-values()"
+"(begin"
+"(if(identifier? id_88)"
+"(void)"
+"                                    (let-values () (raise-argument-error 'identifier-binding \"identifier?\" id_88)))"
+"(if(phase? phase_125)"
+"(void)"
+"(let-values()(raise-argument-error 'identifier-binding phase?-string phase_125)))"
+"(identifier-binding$1 id_88 phase_125 top-level-symbol?_1))))))))))))"
+"(case-lambda"
+"((id_89)(begin 'identifier-binding(identifier-binding22_0 id_89 unsafe-undefined #f)))"
+"((id_15 phase_83 top-level-symbol?20_1)(identifier-binding22_0 id_15 phase_83 top-level-symbol?20_1))"
+"((id_90 phase19_1)(identifier-binding22_0 id_90 phase19_1 #f)))))"
+"(define-values"
+"(1/identifier-transformer-binding)"
+"(let-values(((identifier-transformer-binding26_0)"
+"(lambda(id25_3 phase24_1)"
+"(begin"
+" 'identifier-transformer-binding26"
+"(let-values(((id_91) id25_3))"
+"(let-values(((phase_126)"
+"(if(eq? phase24_1 unsafe-undefined)(1/syntax-local-phase-level) phase24_1)))"
 "(let-values()"
 "(let-values()"
 "(let-values()"
 "(begin"
 "(if(identifier? id_91)"
 "(void)"
-"                                    (let-values () (raise-argument-error 'identifier-binding \"identifier?\" id_91)))"
-"(if(phase? phase_36)"
-"(void)"
-"(let-values()(raise-argument-error 'identifier-binding phase?-string phase_36)))"
-"(identifier-binding$1 id_91 phase_36 top-level-symbol?_1))))))))))))"
+"(let-values()"
+"                                    (raise-argument-error 'identifier-transformer-binding \"identifier?\" id_91)))"
+"(identifier-binding$1 id_91(if phase_126(add1 phase_126) #f))))))))))))"
 "(case-lambda"
-"((id_92)(begin 'identifier-binding(identifier-binding30_0 id_92 #f #f #f #f)))"
-"((id_93 phase_132 top-level-symbol?26_1)(identifier-binding30_0 id_93 phase_132 top-level-symbol?26_1 #t #t))"
-"((id_94 phase25_1)(identifier-binding30_0 id_94 phase25_1 #f #t #f)))))"
-"(define-values"
-"(1/identifier-transformer-binding)"
-"(let-values(((identifier-transformer-binding35_0)"
-"(lambda(id34_1 phase32_2 phase33_1)"
-"(begin"
-" 'identifier-transformer-binding35"
-"(let-values(((id_95) id34_1))"
-"(let-values(((phase_133)(if phase33_1 phase32_2(1/syntax-local-phase-level))))"
-"(let-values()"
-"(let-values()"
-"(let-values()"
-"(begin"
-"(if(identifier? id_95)"
-"(void)"
-"(let-values()"
-"                                    (raise-argument-error 'identifier-transformer-binding \"identifier?\" id_95)))"
-"(identifier-binding$1 id_95(if phase_133(add1 phase_133) #f))))))))))))"
-"(case-lambda"
-"((id_79)(begin 'identifier-transformer-binding(identifier-transformer-binding35_0 id_79 #f #f)))"
-"((id_96 phase32_3)(identifier-transformer-binding35_0 id_96 phase32_3 #t)))))"
+"((id_92)(begin 'identifier-transformer-binding(identifier-transformer-binding26_0 id_92 unsafe-undefined)))"
+"((id_58 phase24_2)(identifier-transformer-binding26_0 id_58 phase24_2)))))"
 "(define-values"
 "(1/identifier-template-binding)"
-"(lambda(id_55)"
+"(lambda(id_93)"
 "(begin"
 " 'identifier-template-binding"
 "(let-values()"
 "(let-values()"
 "(begin"
-"(if(identifier? id_55)"
+"(if(identifier? id_93)"
 "(void)"
-"              (let-values () (raise-argument-error 'identifier-template-binding \"identifier?\" id_55)))"
-"(identifier-binding$1 id_55(sub1(1/syntax-local-phase-level)))))))))"
+"              (let-values () (raise-argument-error 'identifier-template-binding \"identifier?\" id_93)))"
+"(identifier-binding$1 id_93(sub1(1/syntax-local-phase-level)))))))))"
 "(define-values"
 "(1/identifier-label-binding)"
-"(lambda(id_97)"
+"(lambda(id_77)"
 "(begin"
 " 'identifier-label-binding"
 "(let-values()"
 "(let-values()"
 "(begin"
-"(if(identifier? id_97)"
+"(if(identifier? id_77)"
 "(void)"
-"              (let-values () (raise-argument-error 'identifier-label-binding \"identifier?\" id_97)))"
-"(identifier-binding$1 id_97 #f)))))))"
+"              (let-values () (raise-argument-error 'identifier-label-binding \"identifier?\" id_77)))"
+"(identifier-binding$1 id_77 #f)))))))"
 "(define-values"
 "(1/identifier-binding-symbol)"
-"(let-values(((identifier-binding-symbol40_0)"
-"(lambda(id39_0 phase37_2 phase38_0)"
+"(let-values(((identifier-binding-symbol30_0)"
+"(lambda(id29_1 phase28_2)"
 "(begin"
-" 'identifier-binding-symbol40"
-"(let-values(((id_98) id39_0))"
-"(let-values(((phase_134)(if phase38_0 phase37_2(1/syntax-local-phase-level))))"
+" 'identifier-binding-symbol30"
+"(let-values(((id_94) id29_1))"
+"(let-values(((phase_70)"
+"(if(eq? phase28_2 unsafe-undefined)(1/syntax-local-phase-level) phase28_2)))"
 "(let-values()"
 "(let-values()"
 "(let-values()"
 "(begin"
-"(if(identifier? id_98)"
+"(if(identifier? id_94)"
 "(void)"
-"                                  (let-values () (raise-argument-error 'identifier-binding-symbol \"identifier?\" id_98)))"
-"(if(phase? phase_134)"
+"                                  (let-values () (raise-argument-error 'identifier-binding-symbol \"identifier?\" id_94)))"
+"(if(phase? phase_70)"
 "(void)"
 "(let-values()"
-"(raise-argument-error 'identifier-binding-symbol phase?-string phase_134)))"
-"(identifier-binding-symbol$1 id_98 phase_134)))))))))))"
+"(raise-argument-error 'identifier-binding-symbol phase?-string phase_70)))"
+"(identifier-binding-symbol$1 id_94 phase_70)))))))))))"
 "(case-lambda"
-"((id_99)(begin 'identifier-binding-symbol(identifier-binding-symbol40_0 id_99 #f #f)))"
-"((id_100 phase37_3)(identifier-binding-symbol40_0 id_100 phase37_3 #t)))))"
+"((id_95)(begin 'identifier-binding-symbol(identifier-binding-symbol30_0 id_95 unsafe-undefined)))"
+"((id_96 phase28_3)(identifier-binding-symbol30_0 id_96 phase28_3)))))"
 "(define-values"
 "(1/identifier-prune-lexical-context)"
-"(let-values(((identifier-prune-lexical-context45_0)"
-"(lambda(id44_0 syms42_0 syms43_0)"
+"(let-values(((identifier-prune-lexical-context34_0)"
+"(lambda(id33_1 syms32_1)"
 "(begin"
-" 'identifier-prune-lexical-context45"
-"(let-values(((id_101) id44_0))"
-"(let-values(((syms_22)(if syms43_0 syms42_0 null)))"
+" 'identifier-prune-lexical-context34"
+"(let-values(((id_97) id33_1))"
+"(let-values(((syms_21) syms32_1))"
 "(let-values()"
 "(let-values()"
 "(let-values()"
 "(begin"
-"(if(identifier? id_101)"
+"(if(identifier? id_97)"
 "(void)"
 "(let-values()"
-"                                    (raise-argument-error 'identifier-prune-lexical-context \"identifier?\" id_101)))"
-"(if(if(list? syms_22)(andmap2 symbol? syms_22) #f)"
+"                                    (raise-argument-error 'identifier-prune-lexical-context \"identifier?\" id_97)))"
+"(if(if(list? syms_21)(andmap2 symbol? syms_21) #f)"
 "(void)"
 "(let-values()"
 "(raise-argument-error"
 " 'identifier-prune-lexical-context"
 "                                     \"(listof symbol?)\""
-" syms_22)))"
-" id_101))))))))))"
+" syms_21)))"
+" id_97))))))))))"
 "(case-lambda"
-"((id_102)(begin 'identifier-prune-lexical-context(identifier-prune-lexical-context45_0 id_102 #f #f)))"
-"((id_103 syms42_1)(identifier-prune-lexical-context45_0 id_103 syms42_1 #t)))))"
+"((id_61)(begin 'identifier-prune-lexical-context(identifier-prune-lexical-context34_0 id_61 null)))"
+"((id_98 syms32_2)(identifier-prune-lexical-context34_0 id_98 syms32_2)))))"
 "(define-values"
 "(1/syntax-debug-info)"
-"(let-values(((syntax-debug-info52_0)"
-"(lambda(s51_0 phase47_2 all-bindings?48_0 phase49_1 all-bindings?50_0)"
+"(let-values(((syntax-debug-info39_0)"
+"(lambda(s38_1 phase36_0 all-bindings?37_0)"
 "(begin"
-" 'syntax-debug-info52"
-"(let-values(((s_453) s51_0))"
-"(let-values(((phase_135)(if phase49_1 phase47_2(1/syntax-local-phase-level))))"
-"(let-values(((all-bindings?_1)(if all-bindings?50_0 all-bindings?48_0 #f)))"
+" 'syntax-debug-info39"
+"(let-values(((s_412) s38_1))"
+"(let-values(((phase_75)"
+"(if(eq? phase36_0 unsafe-undefined)(1/syntax-local-phase-level) phase36_0)))"
+"(let-values(((all-bindings?_1) all-bindings?37_0))"
 "(let-values()"
 "(let-values()"
 "(let-values()"
 "(begin"
-"(if(syntax?$1 s_453)"
+"(if(syntax?$1 s_412)"
 "(void)"
-"                                    (let-values () (raise-argument-error 'syntax-debug-info \"syntax?\" s_453)))"
-"(if(phase? phase_135)"
+"                                    (let-values () (raise-argument-error 'syntax-debug-info \"syntax?\" s_412)))"
+"(if(phase? phase_75)"
 "(void)"
-"(let-values()(raise-argument-error 'syntax-debug-info phase?-string phase_135)))"
-"(syntax-debug-info$1 s_453 phase_135 all-bindings?_1))))))))))))"
+"(let-values()(raise-argument-error 'syntax-debug-info phase?-string phase_75)))"
+"(syntax-debug-info$1 s_412 phase_75 all-bindings?_1))))))))))))"
 "(case-lambda"
-"((s_318)(begin 'syntax-debug-info(syntax-debug-info52_0 s_318 #f #f #f #f)))"
-"((s_454 phase_101 all-bindings?48_1)(syntax-debug-info52_0 s_454 phase_101 all-bindings?48_1 #t #t))"
-"((s_47 phase47_3)(syntax-debug-info52_0 s_47 phase47_3 #f #t #f)))))"
+"((s_85)(begin 'syntax-debug-info(syntax-debug-info39_0 s_85 unsafe-undefined #f)))"
+"((s_442 phase_127 all-bindings?37_1)(syntax-debug-info39_0 s_442 phase_127 all-bindings?37_1))"
+"((s_29 phase36_1)(syntax-debug-info39_0 s_29 phase36_1 #f)))))"
 "(define-values"
 "(1/syntax-shift-phase-level)"
-"(lambda(s_158 phase_23)"
+"(lambda(s_443 phase_128)"
 "(begin"
 " 'syntax-shift-phase-level"
 "(let-values()"
 "(let-values()"
 "(begin"
-"(if(syntax?$1 s_158)"
+"(if(syntax?$1 s_443)"
 "(void)"
-"              (let-values () (raise-argument-error 'syntax-shift-phase-level \"syntax?\" s_158)))"
-"(if(phase? phase_23)"
+"              (let-values () (raise-argument-error 'syntax-shift-phase-level \"syntax?\" s_443)))"
+"(if(phase? phase_128)"
 "(void)"
-"(let-values()(raise-argument-error 'syntax-shift-phase-level phase?-string phase_23)))"
-"(syntax-shift-phase-level$1 s_158 phase_23)))))))"
+"(let-values()(raise-argument-error 'syntax-shift-phase-level phase?-string phase_128)))"
+"(syntax-shift-phase-level$1 s_443 phase_128)))))))"
 "(define-values"
 "(1/syntax-track-origin)"
-"(lambda(new-stx_8 old-stx_4 id_104)"
+"(lambda(new-stx_8 old-stx_4 id_99)"
 "(begin"
 " 'syntax-track-origin"
 "(let-values()"
@@ -43821,113 +43087,115 @@ static const char *startup_source =
 "(values))))"
 "(let-values((()"
 "(begin"
-"(if(identifier? id_104)"
+"(if(identifier? id_99)"
 "(void)"
-"                                (let-values () (raise-argument-error 'syntax-track-origin \"identifier?\" id_104)))"
+"                                (let-values () (raise-argument-error 'syntax-track-origin \"identifier?\" id_99)))"
 "(values))))"
-"(let-values(((s_32)(syntax-track-origin$1 new-stx_8 old-stx_4 id_104)))"
-"(let-values(((ctx_67)"
-"(let-values(((temp73_0) #t))(get-current-expand-context17.1 temp73_0 #t #f #f))))"
+"(let-values(((s_444)(syntax-track-origin$1 new-stx_8 old-stx_4 id_99)))"
+"(let-values(((ctx_66)"
+"(let-values(((temp60_4) #t))(get-current-expand-context16.1 temp60_4 'unexpected))))"
 "(begin"
-"(if ctx_67"
+"(if ctx_66"
 "(let-values()"
-"(let-values(((obs_43)(expand-context-observer ctx_67)))"
-"(if obs_43"
-"(let-values()(let-values()(call-expand-observe obs_43 'track-origin new-stx_8 s_32)))"
+"(let-values(((obs_44)(expand-context-observer ctx_66)))"
+"(if obs_44"
+"(let-values()(let-values()(call-expand-observe obs_44 'track-origin new-stx_8 s_444)))"
 "(void))))"
 "(void))"
-" s_32)))))))))))"
+" s_444)))))))))))"
 "(define-values"
 "(1/namespace-attach-module)"
-"(let-values(((namespace-attach-module5_0)"
-"(lambda(src-namespace3_0 mod-path4_0 dest-namespace1_0 dest-namespace2_0)"
+"(let-values(((namespace-attach-module4_0)"
+"(lambda(src-namespace2_0 mod-path3_1 dest-namespace1_0)"
 "(begin"
-" 'namespace-attach-module5"
-"(let-values(((src-namespace_0) src-namespace3_0))"
-"(let-values(((mod-path_10) mod-path4_0))"
+" 'namespace-attach-module4"
+"(let-values(((src-namespace_0) src-namespace2_0))"
+"(let-values(((mod-path_10) mod-path3_1))"
 "(let-values(((dest-namespace_0)"
-"(if dest-namespace2_0 dest-namespace1_0(1/current-namespace))))"
+"(if(eq? dest-namespace1_0 unsafe-undefined)"
+"(1/current-namespace)"
+" dest-namespace1_0)))"
 "(let-values()"
-"(let-values(((temp22_4) 'namespace-attach-module)"
-"((src-namespace23_0) src-namespace_0)"
-"((mod-path24_0) mod-path_10)"
-"((dest-namespace25_0) dest-namespace_0)"
-"((temp26_3) #t))"
-"(do-attach-module19.1"
-" temp26_3"
-" #t"
-" temp22_4"
-" src-namespace23_0"
-" mod-path24_0"
-" dest-namespace25_0))))))))))"
+"(let-values(((temp20_1) 'namespace-attach-module)"
+"((src-namespace21_0) src-namespace_0)"
+"((mod-path22_0) mod-path_10)"
+"((dest-namespace23_0) dest-namespace_0)"
+"((temp24_5) #t))"
+"(do-attach-module17.1"
+" temp24_5"
+" temp20_1"
+" src-namespace21_0"
+" mod-path22_0"
+" dest-namespace23_0))))))))))"
 "(case-lambda"
 "((src-namespace_1 mod-path_11)"
-"(begin 'namespace-attach-module(namespace-attach-module5_0 src-namespace_1 mod-path_11 #f #f)))"
+"(begin 'namespace-attach-module(namespace-attach-module4_0 src-namespace_1 mod-path_11 unsafe-undefined)))"
 "((src-namespace_2 mod-path_12 dest-namespace1_1)"
-"(namespace-attach-module5_0 src-namespace_2 mod-path_12 dest-namespace1_1 #t)))))"
+"(namespace-attach-module4_0 src-namespace_2 mod-path_12 dest-namespace1_1)))))"
 "(define-values"
 "(1/namespace-attach-module-declaration)"
-"(let-values(((namespace-attach-module-declaration11_0)"
-"(lambda(src-namespace9_0 mod-path10_1 dest-namespace7_0 dest-namespace8_0)"
+"(let-values(((namespace-attach-module-declaration9_0)"
+"(lambda(src-namespace7_0 mod-path8_2 dest-namespace6_0)"
 "(begin"
-" 'namespace-attach-module-declaration11"
-"(let-values(((src-namespace_3) src-namespace9_0))"
-"(let-values(((mod-path_6) mod-path10_1))"
+" 'namespace-attach-module-declaration9"
+"(let-values(((src-namespace_3) src-namespace7_0))"
+"(let-values(((mod-path_13) mod-path8_2))"
 "(let-values(((dest-namespace_1)"
-"(if dest-namespace8_0 dest-namespace7_0(1/current-namespace))))"
+"(if(eq? dest-namespace6_0 unsafe-undefined)"
+"(1/current-namespace)"
+" dest-namespace6_0)))"
 "(let-values()"
-"(let-values(((temp27_5) 'namespace-attach-module-declaration)"
-"((src-namespace28_0) src-namespace_3)"
-"((mod-path29_0) mod-path_6)"
-"((dest-namespace30_0) dest-namespace_1)"
-"((temp31_3) #f))"
-"(do-attach-module19.1"
-" temp31_3"
-" #t"
-" temp27_5"
-" src-namespace28_0"
-" mod-path29_0"
-" dest-namespace30_0))))))))))"
+"(let-values(((temp25_5) 'namespace-attach-module-declaration)"
+"((src-namespace26_0) src-namespace_3)"
+"((mod-path27_0) mod-path_13)"
+"((dest-namespace28_0) dest-namespace_1)"
+"((temp29_2) #f))"
+"(do-attach-module17.1"
+" temp29_2"
+" temp25_5"
+" src-namespace26_0"
+" mod-path27_0"
+" dest-namespace28_0))))))))))"
 "(case-lambda"
-"((src-namespace_4 mod-path_13)"
+"((src-namespace_4 mod-path_14)"
 "(begin"
 " 'namespace-attach-module-declaration"
-"(namespace-attach-module-declaration11_0 src-namespace_4 mod-path_13 #f #f)))"
-"((src-namespace_5 mod-path_14 dest-namespace7_1)"
-"(namespace-attach-module-declaration11_0 src-namespace_5 mod-path_14 dest-namespace7_1 #t)))))"
+"(namespace-attach-module-declaration9_0 src-namespace_4 mod-path_14 unsafe-undefined)))"
+"((src-namespace_5 mod-path_15 dest-namespace6_1)"
+"(namespace-attach-module-declaration9_0 src-namespace_5 mod-path_15 dest-namespace6_1)))))"
 "(define-values"
-"(do-attach-module19.1)"
-"(lambda(attach-instances?13_0 attach-instances?14_0 who15_1 src-namespace16_0 mod-path17_0 dest-namespace18_0)"
+"(do-attach-module17.1)"
+"(lambda(attach-instances?11_0 who13_0 src-namespace14_0 mod-path15_0 dest-namespace16_0)"
 "(begin"
-" 'do-attach-module19"
-"(let-values(((who_23) who15_1))"
-"(let-values(((src-namespace_6) src-namespace16_0))"
-"(let-values(((mod-path_15) mod-path17_0))"
-"(let-values(((dest-namespace_2) dest-namespace18_0))"
-"(let-values(((attach-instances?_0)(if attach-instances?14_0 attach-instances?13_0 #f)))"
+" 'do-attach-module17"
+"(let-values(((who_22) who13_0))"
+"(let-values(((src-namespace_6) src-namespace14_0))"
+"(let-values(((mod-path_16) mod-path15_0))"
+"(let-values(((dest-namespace_2) dest-namespace16_0))"
+"(let-values(((attach-instances?_0) attach-instances?11_0))"
 "(let-values()"
 "(let-values((()"
 "(begin"
 "(if(1/namespace? src-namespace_6)"
 "(void)"
-"                                    (let-values () (raise-argument-error who_23 \"namespace?\" src-namespace_6)))"
+"                                    (let-values () (raise-argument-error who_22 \"namespace?\" src-namespace_6)))"
 "(values))))"
 "(let-values((()"
 "(begin"
-"(if(let-values(((or-part_8)(1/module-path? mod-path_15)))"
-"(if or-part_8 or-part_8(1/resolved-module-path? mod-path_15)))"
+"(if(let-values(((or-part_53)(1/module-path? mod-path_16)))"
+"(if or-part_53 or-part_53(1/resolved-module-path? mod-path_16)))"
 "(void)"
 "(let-values()"
 "(raise-argument-error"
-" who_23"
+" who_22"
 "                                         \"(or/c module-path? resolved-module-path?)\""
-" mod-path_15)))"
+" mod-path_16)))"
 "(values))))"
 "(let-values((()"
 "(begin"
 "(if(1/namespace? dest-namespace_2)"
 "(void)"
-"                                        (let-values () (raise-argument-error who_23 \"namespace?\" dest-namespace_2)))"
+"                                        (let-values () (raise-argument-error who_22 \"namespace?\" dest-namespace_2)))"
 "(values))))"
 "(let-values(((phase_129)(namespace-phase src-namespace_6)))"
 "(let-values((()"
@@ -43936,7 +43204,7 @@ static const char *startup_source =
 "(void)"
 "(let-values()"
 "(raise-arguments-error"
-" who_23"
+" who_22"
 "                                               \"source and destination namespace phases do not match\""
 "                                               \"source phase\""
 " phase_129"
@@ -43947,9 +43215,9 @@ static const char *startup_source =
 "(let-values(((missing_0)(gensym 'missing)))"
 "(let-values((()"
 "(begin"
-"((letrec-values(((loop_101)"
-"(lambda(mpi_48"
-" phase_136"
+"((letrec-values(((loop_96)"
+"(lambda(mpi_46"
+" phase_130"
 " attach-instances?_1"
 " attach-phase_0)"
 "(begin"
@@ -43965,10 +43233,10 @@ static const char *startup_source =
 " src-namespace_6)"
 "(let-values()"
 "(1/module-path-index-resolve"
-" mpi_48)))))"
+" mpi_46)))))"
 "(let-values(((attach-this-instance?_0)"
 "(if attach-instances?_1"
-"(eqv? phase_136 attach-phase_0)"
+"(eqv? phase_130 attach-phase_0)"
 " #f)))"
 "(let-values(((m-ns_12)"
 "(hash-ref"
@@ -43976,12 +43244,12 @@ static const char *startup_source =
 " todo_0"
 " mod-name_19"
 " '#hasheqv())"
-" phase_136"
+" phase_130"
 " missing_0)))"
-"(if(let-values(((or-part_253)"
+"(if(let-values(((or-part_164)"
 "(eq? missing_0 m-ns_12)))"
-"(if or-part_253"
-" or-part_253"
+"(if or-part_164"
+" or-part_164"
 "(if attach-this-instance?_0"
 "(not m-ns_12)"
 " #f)))"
@@ -43995,21 +43263,21 @@ static const char *startup_source =
 "(void)"
 "(let-values()"
 "(raise-arguments-error"
-" who_23"
+" who_22"
 "                                                                                         \"module not declared (in the source namespace)\""
 "                                                                                         \"module name\""
 " mod-name_19)))"
 "(if(if(module-cross-phase-persistent?"
 " m_20)"
 "(if(not"
-"(label-phase? phase_136))"
+"(label-phase? phase_130))"
 "(not"
-"(zero-phase? phase_136))"
+"(zero-phase? phase_130))"
 " #f)"
 " #f)"
 "(let-values()"
-"(loop_101"
-" mpi_48"
+"(loop_96"
+" mpi_46"
 " 0"
 " attach-instances?_1"
 " 0))"
@@ -44028,7 +43296,7 @@ static const char *startup_source =
 " #f)"
 "(let-values()"
 "(raise-arguments-error"
-" who_23"
+" who_22"
 "                                                                                                               \"a different declaration is already in the destination namespace\""
 "                                                                                                               \"module name\""
 " mod-name_19))"
@@ -44036,59 +43304,53 @@ static const char *startup_source =
 "(values))))"
 "(let-values(((m-ns_13"
 " already?_0)"
-"(if(let-values(((or-part_164)"
+"(if(let-values(((or-part_293)"
 " attach-this-instance?_0))"
-"(if or-part_164"
-" or-part_164"
+"(if or-part_293"
+" or-part_293"
 "(module-cross-phase-persistent?"
 " m_20)))"
 "(let-values()"
 "(let-values(((m-ns_14)"
-"(let-values(((src-namespace32_0)"
+"(let-values(((src-namespace30_0)"
 " src-namespace_6)"
-"((mod-name33_0)"
+"((mod-name31_0)"
 " mod-name_19)"
-"((phase34_1)"
-" phase_136))"
+"((phase32_1)"
+" phase_130))"
 "(namespace->module-namespace82.1"
 " #f"
 " #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" src-namespace32_0"
-" mod-name33_0"
-" phase34_1))))"
+" unsafe-undefined"
+" src-namespace30_0"
+" mod-name31_0"
+" phase32_1))))"
 "(let-values((()"
 "(begin"
 "(if m-ns_14"
 "(void)"
 "(let-values()"
 "(raise-arguments-error"
-" who_23"
+" who_22"
 "                                                                                                                                     \"module not instantiated (in the source namespace)\""
 "                                                                                                                                     \"module name\""
 " mod-name_19)))"
 "(values))))"
 "(let-values(((already-m-ns_0)"
 "(if already-m_0"
-"(let-values(((dest-namespace35_0)"
+"(let-values(((dest-namespace33_0)"
 " dest-namespace_2)"
-"((mod-name36_0)"
+"((mod-name34_0)"
 " mod-name_19)"
-"((phase37_4)"
-" phase_136))"
+"((phase35_1)"
+" phase_130))"
 "(namespace->module-namespace82.1"
 " #f"
 " #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" dest-namespace35_0"
-" mod-name36_0"
-" phase37_4))"
+" unsafe-undefined"
+" dest-namespace33_0"
+" mod-name34_0"
+" phase35_1))"
 " #f)))"
 "(begin"
 "(if(if already-m-ns_0"
@@ -44104,7 +43366,7 @@ static const char *startup_source =
 " #f)"
 "(let-values()"
 "(raise-arguments-error"
-" who_23"
+" who_22"
 "                                                                                                                           \"a different instance is already in the destination namespace\""
 "                                                                                                                           \"module name\""
 " mod-name_19))"
@@ -44117,24 +43379,21 @@ static const char *startup_source =
 "(let-values()"
 "(begin"
 "(if(if(label-phase?"
-" phase_136)"
+" phase_130)"
 "(not"
-"(let-values(((src-namespace38_0)"
+"(let-values(((src-namespace36_0)"
 " src-namespace_6)"
-"((mod-name39_0)"
+"((mod-name37_0)"
 " mod-name_19)"
-"((phase40_1)"
-" phase_136))"
+"((phase38_0)"
+" phase_130))"
 "(namespace->module-namespace82.1"
 " #f"
 " #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" src-namespace38_0"
-" mod-name39_0"
-" phase40_1)))"
+" unsafe-undefined"
+" src-namespace36_0"
+" mod-name37_0"
+" phase38_0)))"
 " #f)"
 "(let-values()"
 "(with-continuation-mark"
@@ -44146,24 +43405,20 @@ static const char *startup_source =
 " 1/current-namespace"
 " src-namespace_6)"
 "(let-values()"
-"(let-values(((src-namespace41_0)"
+"(let-values(((src-namespace39_0)"
 " src-namespace_6)"
-"((mpi42_0)"
-" mpi_48)"
-"((phase43_1)"
-" phase_136))"
+"((mpi40_0)"
+" mpi_46)"
+"((phase41_1)"
+" phase_130))"
 "(namespace-module-instantiate!96.1"
+" #t"
+" unsafe-undefined"
+" unsafe-undefined"
 " #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" src-namespace41_0"
-" mpi42_0"
-" phase43_1)))))"
+" src-namespace39_0"
+" mpi40_0"
+" phase41_1)))))"
 "(void))"
 "(values"
 " #f"
@@ -44174,17 +43429,17 @@ static const char *startup_source =
 "(hash-update!"
 " todo_0"
 " mod-name_19"
-"(lambda(ht_147)"
+"(lambda(ht_139)"
 "(hash-set"
-" ht_147"
-" phase_136"
+" ht_139"
+" phase_130"
 " m-ns_13))"
 " '#hasheqv())"
 "(if already?_0"
 "(void)"
 "(let-values()"
 "(begin"
-"(let-values(((lst_21)"
+"(let-values(((lst_297)"
 "(module-requires"
 " m_20)))"
 "(begin"
@@ -44193,21 +43448,21 @@ static const char *startup_source =
 "(void)"
 "(let-values()"
 "(check-list"
-" lst_21)))"
-"((letrec-values(((for-loop_17)"
-"(lambda(lst_281)"
+" lst_297)))"
+"((letrec-values(((for-loop_265)"
+"(lambda(lst_298)"
 "(begin"
 " 'for-loop"
 "(if(pair?"
-" lst_281)"
+" lst_298)"
 "(let-values(((phase+reqs_1)"
 "(unsafe-car"
-" lst_281))"
-"((rest_165)"
+" lst_298))"
+"((rest_172)"
 "(unsafe-cdr"
-" lst_281)))"
+" lst_298)))"
 "(let-values((()"
-"(let-values(((lst_178)"
+"(let-values(((lst_222)"
 "(cdr"
 " phase+reqs_1)))"
 "(begin"
@@ -44216,33 +43471,33 @@ static const char *startup_source =
 "(void)"
 "(let-values()"
 "(check-list"
-" lst_178)))"
-"((letrec-values(((for-loop_28)"
-"(lambda(lst_280)"
+" lst_222)))"
+"((letrec-values(((for-loop_98)"
+"(lambda(lst_174)"
 "(begin"
 " 'for-loop"
 "(if(pair?"
-" lst_280)"
+" lst_174)"
 "(let-values(((req_5)"
 "(unsafe-car"
-" lst_280))"
-"((rest_151)"
+" lst_174))"
+"((rest_173)"
 "(unsafe-cdr"
-" lst_280)))"
+" lst_174)))"
 "(let-values((()"
 "(let-values()"
 "(let-values((()"
 "(let-values()"
 "(begin"
 "(let-values()"
-"(loop_101"
+"(loop_96"
 "(module-path-index-shift"
 " req_5"
 "(module-self"
 " m_20)"
-" mpi_48)"
+" mpi_46)"
 "(phase+"
-" phase_136"
+" phase_130"
 "(car"
 " phase+reqs_1))"
 " attach-instances?_1"
@@ -44251,22 +43506,22 @@ static const char *startup_source =
 "(values)))))"
 "(if(not"
 " #f)"
-"(for-loop_28"
-" rest_151)"
+"(for-loop_98"
+" rest_173)"
 "(values))))"
 "(values))))))"
-" for-loop_28)"
-" lst_178)))))"
+" for-loop_98)"
+" lst_222)))))"
 "(if(not"
 " #f)"
-"(for-loop_17"
-" rest_165)"
+"(for-loop_265"
+" rest_172)"
 "(values))))"
 "(values))))))"
-" for-loop_17)"
-" lst_21)))"
+" for-loop_265)"
+" lst_297)))"
 "(void)"
-"(let-values(((lst_298)"
+"(let-values(((lst_273)"
 "(module-submodule-names"
 " m_20)))"
 "(begin"
@@ -44275,32 +43530,32 @@ static const char *startup_source =
 "(void)"
 "(let-values()"
 "(check-list"
-" lst_298)))"
-"((letrec-values(((for-loop_269)"
-"(lambda(lst_299)"
+" lst_273)))"
+"((letrec-values(((for-loop_99)"
+"(lambda(lst_160)"
 "(begin"
 " 'for-loop"
 "(if(pair?"
-" lst_299)"
+" lst_160)"
 "(let-values(((submod-name_0)"
 "(unsafe-car"
-" lst_299))"
-"((rest_166)"
+" lst_160))"
+"((rest_94)"
 "(unsafe-cdr"
-" lst_299)))"
+" lst_160)))"
 "(let-values((()"
 "(let-values()"
 "(let-values((()"
 "(let-values()"
 "(begin"
 "(let-values()"
-"(loop_101"
+"(loop_96"
 "(1/module-path-index-join"
 "(list"
 " 'submod"
 "                                                                                                                                                                           \".\""
 " submod-name_0)"
-" mpi_48)"
+" mpi_46)"
 " #f"
 " #f"
 " attach-phase_0))"
@@ -44308,31 +43563,31 @@ static const char *startup_source =
 "(values)))))"
 "(if(not"
 " #f)"
-"(for-loop_269"
-" rest_166)"
+"(for-loop_99"
+" rest_94)"
 "(values))))"
 "(values))))))"
-" for-loop_269)"
-" lst_298)))"
+" for-loop_99)"
+" lst_273)))"
 "(void)"
 "(if(module-supermodule-name"
 " m_20)"
 "(let-values()"
-"(loop_101"
+"(loop_96"
 "(1/module-path-index-join"
 " '(submod"
 "                                                                                                              \"..\")"
-" mpi_48)"
+" mpi_46)"
 " #f"
 " #f"
 " attach-phase_0))"
 "(void))))))))))))))"
 "(void)))))))))"
-" loop_101)"
+" loop_96)"
 "(1/module-path-index-join"
-"(if(1/resolved-module-path? mod-path_15)"
-"(resolved-module-path->module-path mod-path_15)"
-" mod-path_15)"
+"(if(1/resolved-module-path? mod-path_16)"
+"(resolved-module-path->module-path mod-path_16)"
+" mod-path_16)"
 " #f)"
 " phase_129"
 " attach-instances?_0"
@@ -44340,22 +43595,22 @@ static const char *startup_source =
 "(values))))"
 "(let-values((()"
 "(begin"
-"(let-values(((ht_148) todo_0))"
+"(let-values(((ht_140) todo_0))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
-"(let-values()(check-in-hash ht_148)))"
-"((letrec-values(((for-loop_112)"
-"(lambda(i_171)"
+"(let-values()(check-in-hash ht_140)))"
+"((letrec-values(((for-loop_266)"
+"(lambda(i_169)"
 "(begin"
 " 'for-loop"
-"(if i_171"
+"(if i_169"
 "(let-values(((mod-name_20 phases_0)"
 "(hash-iterate-key+value"
-" ht_148"
-" i_171)))"
+" ht_140"
+" i_169)))"
 "(let-values((()"
-"(let-values(((ht_149)"
+"(let-values(((ht_141)"
 " phases_0))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
@@ -44363,17 +43618,17 @@ static const char *startup_source =
 "(void)"
 "(let-values()"
 "(check-in-hash"
-" ht_149)))"
-"((letrec-values(((for-loop_270)"
-"(lambda(i_172)"
+" ht_141)))"
+"((letrec-values(((for-loop_251)"
+"(lambda(i_46)"
 "(begin"
 " 'for-loop"
-"(if i_172"
-"(let-values(((phase_137"
+"(if i_46"
+"(let-values(((phase_131"
 " m-ns_15)"
 "(hash-iterate-key+value"
-" ht_149"
-" i_172)))"
+" ht_141"
+" i_46)))"
 "(let-values((()"
 "(let-values()"
 "(let-values((()"
@@ -44397,48 +43652,44 @@ static const char *startup_source =
 " 1/current-namespace"
 " dest-namespace_2)"
 "(let-values()"
-"(let-values(((dest-namespace44_0)"
+"(let-values(((dest-namespace42_0)"
 " dest-namespace_2)"
-"((m45_0)"
+"((m43_0)"
 " m_21)"
-"((mod-name46_0)"
+"((mod-name44_0)"
 " mod-name_20))"
 "(declare-module!58.1"
-" #f"
-" #f"
-" dest-namespace44_0"
-" m45_0"
-" mod-name46_0))))"
+" #t"
+" dest-namespace42_0"
+" m43_0"
+" mod-name44_0))))"
 "(if m-ns_15"
 "(let-values()"
 "(begin"
 "(namespace-record-module-instance-attached!"
 " src-namespace_6"
 " mod-name_20"
-" phase_137)"
-"(let-values(((or-part_72)"
-"(let-values(((dest-namespace47_0)"
+" phase_131)"
+"(let-values(((or-part_25)"
+"(let-values(((dest-namespace45_0)"
 " dest-namespace_2)"
-"((mod-name48_0)"
+"((mod-name46_0)"
 " mod-name_20)"
-"((phase49_2)"
-" phase_137))"
+"((phase47_2)"
+" phase_131))"
 "(namespace->module-namespace82.1"
 " #f"
 " #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" dest-namespace47_0"
-" mod-name48_0"
-" phase49_2))))"
-"(if or-part_72"
-" or-part_72"
+" unsafe-undefined"
+" dest-namespace45_0"
+" mod-name46_0"
+" phase47_2))))"
+"(if or-part_25"
+" or-part_25"
 "(namespace-install-module-namespace!"
 " dest-namespace_2"
 " mod-name_20"
-" phase_137"
+" phase_131"
 " m_21"
 " m-ns_15)))))"
 "(void)))))"
@@ -44446,22 +43697,22 @@ static const char *startup_source =
 "(values)))))"
 "(if(not"
 " #f)"
-"(for-loop_270"
+"(for-loop_251"
 "(hash-iterate-next"
-" ht_149"
-" i_172))"
+" ht_141"
+" i_46))"
 "(values))))"
 "(values))))))"
-" for-loop_270)"
+" for-loop_251)"
 "(hash-iterate-first"
-" ht_149))))))"
+" ht_141))))))"
 "(if(not #f)"
-"(for-loop_112"
-"(hash-iterate-next ht_148 i_171))"
+"(for-loop_266"
+"(hash-iterate-next ht_140 i_169))"
 "(values))))"
 "(values))))))"
-" for-loop_112)"
-"(hash-iterate-first ht_148))))"
+" for-loop_266)"
+"(hash-iterate-first ht_140))))"
 "(values))))"
 "(let-values()"
 "(let-values(((mnr_0)(1/current-module-name-resolver)))"
@@ -44473,18 +43724,18 @@ static const char *startup_source =
 " dest-namespace_2)"
 "(let-values()"
 "(begin"
-"(let-values(((ht_150) todo_0))"
+"(let-values(((ht_142) todo_0))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
-"(let-values()(check-in-hash-keys ht_150)))"
-"((letrec-values(((for-loop_183)"
-"(lambda(i_173)"
+"(let-values()(check-in-hash-keys ht_142)))"
+"((letrec-values(((for-loop_267)"
+"(lambda(i_21)"
 "(begin"
 " 'for-loop"
-"(if i_173"
+"(if i_21"
 "(let-values(((mod-name_21)"
-"(hash-iterate-key ht_150 i_173)))"
+"(hash-iterate-key ht_142 i_21)))"
 "(let-values((()"
 "(let-values()"
 "(let-values((()"
@@ -44497,12 +43748,12 @@ static const char *startup_source =
 "(values)))))"
 "(values)))))"
 "(if(not #f)"
-"(for-loop_183"
-"(hash-iterate-next ht_150 i_173))"
+"(for-loop_267"
+"(hash-iterate-next ht_142 i_21))"
 "(values))))"
 "(values))))))"
-" for-loop_183)"
-"(hash-iterate-first ht_150))))"
+" for-loop_267)"
+"(hash-iterate-first ht_142))))"
 "(void))))))))))))))))))))))))"
 "(define-values"
 "(1/make-empty-namespace)"
@@ -44510,152 +43761,150 @@ static const char *startup_source =
 "(begin"
 " 'make-empty-namespace"
 "(let-values(((current-ns_0)(1/current-namespace)))"
-"(let-values(((phase_45)(namespace-phase current-ns_0)))"
-"(let-values(((ns_59)(namespace->namespace-at-phase(make-namespace) phase_45)))"
+"(let-values(((phase_42)(namespace-phase current-ns_0)))"
+"(let-values(((ns_59)(namespace->namespace-at-phase(make-namespace) phase_42)))"
 "(begin"
 "(1/namespace-attach-module current-ns_0 ''#%kernel ns_59)"
 "(namespace-primitive-module-visit! ns_59 '#%kernel)"
 " ns_59)))))))"
 "(define-values"
 "(1/namespace-syntax-introduce)"
-"(let-values(((namespace-syntax-introduce4_0)"
-"(lambda(s3_2 ns1_3 ns2_0)"
+"(let-values(((namespace-syntax-introduce3_0)"
+"(lambda(s2_8 ns1_3)"
 "(begin"
-" 'namespace-syntax-introduce4"
-"(let-values(((s_3) s3_2))"
-"(let-values(((ns_60)(if ns2_0 ns1_3(1/current-namespace))))"
+" 'namespace-syntax-introduce3"
+"(let-values(((s_2) s2_8))"
+"(let-values(((ns_58)(if(eq? ns1_3 unsafe-undefined)(1/current-namespace) ns1_3)))"
 "(let-values()"
 "(let-values()"
 "(let-values()"
 "(let-values((()"
 "(begin"
-"(if(syntax?$1 s_3)"
+"(if(syntax?$1 s_2)"
 "(void)"
 "(let-values()"
-"                                                  (raise-argument-error 'namespace-syntax-introduce \"syntax?\" s_3)))"
+"                                                  (raise-argument-error 'namespace-syntax-introduce \"syntax?\" s_2)))"
 "(values))))"
 "(let-values((()"
 "(begin"
-"(if(1/namespace? ns_60)"
+"(if(1/namespace? ns_58)"
 "(void)"
 "(let-values()"
 "(raise-argument-error"
 " 'namespace-syntax-introduce"
 "                                                     \"namespace?\""
-" ns_60)))"
+" ns_58)))"
 "(values))))"
-"(let-values(((root-ctx_5)(namespace-get-root-expand-ctx ns_60)))"
+"(let-values(((root-ctx_5)(namespace-get-root-expand-ctx ns_58)))"
 "(let-values(((post-scope_1)(root-expand-context-post-expansion-scope root-ctx_5)))"
 "(let-values(((other-namespace-scopes_0)"
 "(reverse$1"
-"(let-values(((ht_151)"
+"(let-values(((ht_143)"
 "(syntax-scope-set"
 "(root-expand-context-all-scopes-stx root-ctx_5)"
-"(namespace-phase ns_60))))"
+"(namespace-phase ns_58))))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
-"(let-values()(check-in-immutable-hash-keys ht_151)))"
-"((letrec-values(((for-loop_215)"
-"(lambda(fold-var_277 i_174)"
+"(let-values()(check-in-immutable-hash-keys ht_143)))"
+"((letrec-values(((for-loop_111)"
+"(lambda(fold-var_237 i_170)"
 "(begin"
 " 'for-loop"
-"(if i_174"
-"(let-values(((sc_34)"
+"(if i_170"
+"(let-values(((sc_35)"
 "(unsafe-immutable-hash-iterate-key"
-" ht_151"
-" i_174)))"
-"(let-values(((fold-var_222)"
-"(let-values(((fold-var_223)"
-" fold-var_277))"
+" ht_143"
+" i_170)))"
+"(let-values(((fold-var_215)"
+"(let-values(((fold-var_216)"
+" fold-var_237))"
 "(if(equal?"
-" sc_34"
+" sc_35"
 " post-scope_1)"
-" fold-var_223"
-"(let-values(((fold-var_224)"
-" fold-var_223))"
-"(let-values(((fold-var_67)"
+" fold-var_216"
+"(let-values(((fold-var_217)"
+" fold-var_216))"
+"(let-values(((fold-var_218)"
 "(let-values()"
 "(cons"
 "(let-values()"
-" sc_34)"
-" fold-var_224))))"
+" sc_35)"
+" fold-var_217))))"
 "(values"
-" fold-var_67)))))))"
+" fold-var_218)))))))"
 "(if(not #f)"
-"(for-loop_215"
-" fold-var_222"
+"(for-loop_111"
+" fold-var_215"
 "(unsafe-immutable-hash-iterate-next"
-" ht_151"
-" i_174))"
-" fold-var_222)))"
-" fold-var_277)))))"
-" for-loop_215)"
+" ht_143"
+" i_170))"
+" fold-var_215)))"
+" fold-var_237)))))"
+" for-loop_111)"
 " null"
-"(unsafe-immutable-hash-iterate-first ht_151)))))))"
+"(unsafe-immutable-hash-iterate-first ht_143)))))))"
 "(let-values(((add-ns-scopes_0)"
-"(lambda(s_4)"
+"(lambda(s_429)"
 "(begin"
 " 'add-ns-scopes"
-"(let-values(((temp79_0)"
+"(let-values(((temp64_2)"
 "(add-scopes"
-"(push-scope s_4 post-scope_1)"
+"(push-scope s_429 post-scope_1)"
 " other-namespace-scopes_0))"
-"((temp80_1)"
+"((temp65_1)"
 "(root-expand-context-all-scopes-stx root-ctx_5))"
-"((temp81_0)"
-"(let-values(((or-part_78)"
+"((temp66_2)"
+"(let-values(((or-part_75)"
 "(namespace-declaration-inspector"
-" ns_60)))"
-"(if or-part_78"
-" or-part_78"
+" ns_58)))"
+"(if or-part_75"
+" or-part_75"
 "(current-code-inspector))))"
-"((temp82_1) #t))"
-"(syntax-transfer-shifts39.1"
-" temp82_1"
-" #t"
-" temp79_0"
-" temp80_1"
-" temp81_0"
-" #t))))))"
+"((temp67_1) #t))"
+"(syntax-transfer-shifts36.1"
+" temp67_1"
+" temp64_2"
+" temp65_1"
+" temp66_2))))))"
 "(let-values(((maybe-module-id_0)"
-"(if(pair?(1/syntax-e s_3))"
-"(if(identifier?(car(1/syntax-e s_3)))"
-"(add-ns-scopes_0(car(1/syntax-e s_3)))"
+"(if(pair?(1/syntax-e s_2))"
+"(if(identifier?(car(1/syntax-e s_2)))"
+"(add-ns-scopes_0(car(1/syntax-e s_2)))"
 " #f)"
 " #f)))"
 "(if(if maybe-module-id_0"
 "(1/free-identifier=?"
 " maybe-module-id_0"
-"(1/namespace-module-identifier ns_60)"
-"(namespace-phase ns_60))"
+"(1/namespace-module-identifier ns_58)"
+"(namespace-phase ns_58))"
 " #f)"
 "(let-values()"
 "(1/datum->syntax"
-" s_3"
-"(cons maybe-module-id_0(cdr(1/syntax-e s_3)))"
-" s_3"
-" s_3))"
-"(let-values()(add-ns-scopes_0 s_3)))))))))))))))))))"
+" s_2"
+"(cons maybe-module-id_0(cdr(1/syntax-e s_2)))"
+" s_2"
+" s_2))"
+"(let-values()(add-ns-scopes_0 s_2)))))))))))))))))))"
 "(case-lambda"
-"((s_455)(begin 'namespace-syntax-introduce(namespace-syntax-introduce4_0 s_455 #f #f)))"
-"((s_75 ns1_4)(namespace-syntax-introduce4_0 s_75 ns1_4 #t)))))"
+"((s_78)(begin 'namespace-syntax-introduce(namespace-syntax-introduce3_0 s_78 unsafe-undefined)))"
+"((s_445 ns1_2)(namespace-syntax-introduce3_0 s_445 ns1_2)))))"
 "(define-values"
 "(namespace-datum-introduce)"
-"(lambda(s_78)(begin(1/namespace-syntax-introduce(1/datum->syntax #f s_78)))))"
+"(lambda(s_181)(begin(1/namespace-syntax-introduce(1/datum->syntax #f s_181)))))"
 "(define-values"
 "(1/namespace-module-identifier)"
-"(let-values(((namespace-module-identifier8_0)"
-"(lambda(where6_0 where7_0)"
+"(let-values(((namespace-module-identifier6_0)"
+"(lambda(where5_0)"
 "(begin"
-" 'namespace-module-identifier8"
-"(let-values(((where_0)(if where7_0 where6_0(1/current-namespace))))"
+" 'namespace-module-identifier6"
+"(let-values(((where_0)(if(eq? where5_0 unsafe-undefined)(1/current-namespace) where5_0)))"
 "(let-values()"
 "(let-values()"
 "(let-values()"
 "(begin"
-"(if(let-values(((or-part_296)(1/namespace? where_0)))"
-"(if or-part_296 or-part_296(phase? where_0)))"
+"(if(let-values(((or-part_83)(1/namespace? where_0)))"
+"(if or-part_83 or-part_83(phase? where_0)))"
 "(void)"
 "(let-values()"
 "(raise-argument-error"
@@ -44668,294 +43917,237 @@ static const char *startup_source =
 "(if(1/namespace? where_0)(namespace-phase where_0) where_0))"
 " 'module))))))))))"
 "(case-lambda"
-"(()(begin 'namespace-module-identifier(namespace-module-identifier8_0 #f #f)))"
-"((where6_1)(namespace-module-identifier8_0 where6_1 #t)))))"
+"(()(begin 'namespace-module-identifier(namespace-module-identifier6_0 unsafe-undefined)))"
+"((where5_1)(namespace-module-identifier6_0 where5_1)))))"
 "(define-values"
 "(1/namespace-symbol->identifier)"
-"(lambda(sym_71)"
+"(lambda(sym_63)"
 "(begin"
 " 'namespace-symbol->identifier"
 "(let-values()"
 "(let-values()"
 "(begin"
-"(if(symbol? sym_71)"
+"(if(symbol? sym_63)"
 "(void)"
-"              (let-values () (raise-argument-error 'namespace-symbol->identifier \"symbol?\" sym_71)))"
-"(1/namespace-syntax-introduce(1/datum->syntax #f sym_71))))))))"
+"              (let-values () (raise-argument-error 'namespace-symbol->identifier \"symbol?\" sym_63)))"
+"(1/namespace-syntax-introduce(1/datum->syntax #f sym_63))))))))"
 "(define-values"
-"(do-namespace-require23.1)"
-"(lambda(copy-variable-as-constant?13_0"
-" copy-variable-as-constant?18_0"
-" copy-variable-phase-level12_0"
-" copy-variable-phase-level17_0"
-" run?10_0"
-" run?15_0"
-" skip-variable-phase-level14_0"
-" skip-variable-phase-level19_0"
-" visit?11_0"
-" visit?16_0"
-" who20_0"
-" req21_0"
-" ns22_1)"
+"(do-namespace-require21.1)"
+"(lambda(copy-variable-as-constant?11_1"
+" copy-variable-phase-level10_1"
+" run?8_0"
+" skip-variable-phase-level12_1"
+" visit?9_0"
+" who18_0"
+" req19_0"
+" ns20_1)"
 "(begin"
-" 'do-namespace-require23"
-"(let-values(((run?_3)(if run?15_0 run?10_0 #t)))"
-"(let-values(((visit?_3)(if visit?16_0 visit?11_0 #f)))"
-"(let-values(((who_24) who20_0))"
-"(let-values(((req_6) req21_0))"
-"(let-values(((ns_76) ns22_1))"
-"(let-values(((copy-variable-phase-level_2)"
-"(if copy-variable-phase-level17_0 copy-variable-phase-level12_0 #f)))"
-"(let-values(((copy-variable-as-constant?_2)"
-"(if copy-variable-as-constant?18_0 copy-variable-as-constant?13_0 #f)))"
-"(let-values(((skip-variable-phase-level_2)"
-"(if skip-variable-phase-level19_0 skip-variable-phase-level14_0 #f)))"
+" 'do-namespace-require21"
+"(let-values(((run?_3) run?8_0))"
+"(let-values(((visit?_3) visit?9_0))"
+"(let-values(((who_23) who18_0))"
+"(let-values(((req_6) req19_0))"
+"(let-values(((ns_77) ns20_1))"
+"(let-values(((copy-variable-phase-level_2) copy-variable-phase-level10_1))"
+"(let-values(((copy-variable-as-constant?_2) copy-variable-as-constant?11_1))"
+"(let-values(((skip-variable-phase-level_2) skip-variable-phase-level12_1))"
 "(let-values()"
 "(let-values((()"
 "(begin"
-"(if(1/namespace? ns_76)"
+"(if(1/namespace? ns_77)"
 "(void)"
-"                                          (let-values () (raise-argument-error who_24 \"namespace?\" ns_76)))"
+"                                          (let-values () (raise-argument-error who_23 \"namespace?\" ns_77)))"
 "(values))))"
 "(let-values(((ctx-stx_0)"
 "(add-scopes"
 " empty-syntax"
-"(root-expand-context-module-scopes(namespace-get-root-expand-ctx ns_76)))))"
-"(if(let-values(((or-part_297)(1/module-path-index? req_6)))"
-"(if or-part_297 or-part_297(1/module-path? req_6)))"
+"(root-expand-context-module-scopes(namespace-get-root-expand-ctx ns_77)))))"
+"(if(let-values(((or-part_164)(1/module-path-index? req_6)))"
+"(if or-part_164 or-part_164(1/module-path? req_6)))"
 "(let-values()"
-"(let-values(((temp85_0)"
+"(let-values(((temp70_0)"
 "(if(1/module-path-index? req_6)"
 " req_6"
 "(1/module-path-index-join req_6 #f)))"
-"((temp86_0) #f)"
-"((temp87_1) #f)"
-"((ctx-stx88_0) ctx-stx_0)"
-"((ns89_0) ns_76)"
-"((run?90_0) run?_3)"
-"((visit?91_0) visit?_3)"
-"((temp92_1)(namespace-phase ns_76))"
-"((temp93_1)(namespace-phase ns_76))"
-"((copy-variable-phase-level94_0) copy-variable-phase-level_2)"
-"((copy-variable-as-constant?95_0) copy-variable-as-constant?_2)"
-"((skip-variable-phase-level96_0) skip-variable-phase-level_2)"
-"((who97_0) who_24))"
+"((temp71_0) #f)"
+"((temp72_0) #f)"
+"((ctx-stx73_0) ctx-stx_0)"
+"((ns74_0) ns_77)"
+"((run?75_0) run?_3)"
+"((visit?76_0) visit?_3)"
+"((temp77_0)(namespace-phase ns_77))"
+"((temp78_1)(namespace-phase ns_77))"
+"((copy-variable-phase-level79_0) copy-variable-phase-level_2)"
+"((copy-variable-as-constant?80_0) copy-variable-as-constant?_2)"
+"((skip-variable-phase-level81_0) skip-variable-phase-level_2)"
+"((who82_0) who_23))"
 "(perform-require!78.1"
 " #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" copy-variable-as-constant?95_0"
-" #t"
-" copy-variable-phase-level94_0"
 " #t"
 " #f"
+" copy-variable-as-constant?80_0"
+" copy-variable-phase-level79_0"
 " #f"
+" 'all"
+" temp77_0"
 " #f"
-" #f"
-" temp92_1"
-" #f"
-" #f"
-" temp93_1"
-" run?90_0"
-" #t"
-" skip-variable-phase-level96_0"
-" #t"
-" visit?91_0"
-" #t"
-" who97_0"
-" temp85_0"
-" temp86_0"
-" temp87_1"
-" ctx-stx88_0"
-" ns89_0)))"
+" temp78_1"
+" run?75_0"
+" skip-variable-phase-level81_0"
+" visit?76_0"
+" who82_0"
+" temp70_0"
+" temp71_0"
+" temp72_0"
+" ctx-stx73_0"
+" ns74_0)))"
 "(let-values()"
-"(let-values(((run?98_0) run?_3)"
-"((visit?99_0) visit?_3)"
-"((temp100_1)(list(1/datum->syntax ctx-stx_0 req_6)))"
-"((temp101_1) #f)"
-"((ns102_0) ns_76)"
-"((temp103_0)(namespace-phase ns_76))"
-"((temp104_1)"
-"(let-values(((temp107_1) #f))"
-"(make-requires+provides8.1 #f #f temp107_1)))"
-"((skip-variable-phase-level105_0) skip-variable-phase-level_2)"
-"((who106_0) who_24))"
+"(let-values(((run?83_0) run?_3)"
+"((visit?84_0) visit?_3)"
+"((temp85_1)(list(1/datum->syntax ctx-stx_0 req_6)))"
+"((temp86_1) #f)"
+"((ns87_0) ns_77)"
+"((temp88_1)(namespace-phase ns_77))"
+"((temp89_2)"
+"(let-values(((temp92_2) #f))(make-requires+provides8.1 #f temp92_2)))"
+"((skip-variable-phase-level90_0) skip-variable-phase-level_2)"
+"((who91_0) who_23))"
 "(parse-and-perform-requires!30.1"
 " #f"
 " #f"
+" unsafe-undefined"
 " #f"
+" unsafe-undefined"
+" run?83_0"
 " #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" run?98_0"
-" #t"
-" #f"
-" #f"
-" skip-variable-phase-level105_0"
-" #t"
-" visit?99_0"
-" #t"
-" who106_0"
-" temp100_1"
-" temp101_1"
-" ns102_0"
-" temp103_0"
-" temp104_1))))))))))))))))))"
+" skip-variable-phase-level90_0"
+" visit?84_0"
+" who91_0"
+" temp85_1"
+" temp86_1"
+" ns87_0"
+" temp88_1"
+" temp89_2))))))))))))))))))"
 "(define-values"
 "(1/namespace-require)"
-"(let-values(((namespace-require29_0)"
-"(lambda(req28_0 ns26_0 ns27_0)"
+"(let-values(((namespace-require26_0)"
+"(lambda(req25_0 ns24_0)"
 "(begin"
-" 'namespace-require29"
-"(let-values(((req_7) req28_0))"
-"(let-values(((ns_77)(if ns27_0 ns26_0(1/current-namespace))))"
+" 'namespace-require26"
+"(let-values(((req_7) req25_0))"
+"(let-values(((ns_78)(if(eq? ns24_0 unsafe-undefined)(1/current-namespace) ns24_0)))"
 "(let-values()"
 "(let-values()"
 "(let-values()"
-"(let-values(((who109_0) 'namespace-require)((req110_0) req_7)((ns111_0) ns_77))"
-"(do-namespace-require23.1"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" who109_0"
-" req110_0"
-" ns111_0)))))))))))"
+"(let-values(((who94_0) 'namespace-require)((req95_0) req_7)((ns96_0) ns_78))"
+"(do-namespace-require21.1 #f #f #t #f #f who94_0 req95_0 ns96_0)))))))))))"
 "(case-lambda"
-"((req_8)(begin 'namespace-require(namespace-require29_0 req_8 #f #f)))"
-"((req_9 ns26_1)(namespace-require29_0 req_9 ns26_1 #t)))))"
+"((req_8)(begin 'namespace-require(namespace-require26_0 req_8 unsafe-undefined)))"
+"((req_9 ns24_1)(namespace-require26_0 req_9 ns24_1)))))"
 "(define-values"
 "(1/namespace-require/expansion-time)"
-"(let-values(((namespace-require/expansion-time34_0)"
-"(lambda(req33_0 ns31_1 ns32_0)"
+"(let-values(((namespace-require/expansion-time30_0)"
+"(lambda(req29_0 ns28_1)"
 "(begin"
-" 'namespace-require/expansion-time34"
-"(let-values(((req_10) req33_0))"
-"(let-values(((ns_78)(if ns32_0 ns31_1(1/current-namespace))))"
+" 'namespace-require/expansion-time30"
+"(let-values(((req_10) req29_0))"
+"(let-values(((ns_79)(if(eq? ns28_1 unsafe-undefined)(1/current-namespace) ns28_1)))"
 "(let-values()"
 "(let-values()"
 "(let-values()"
-"(let-values(((temp113_0) #f)"
-"((temp114_1) #t)"
-"((who115_0) 'namespace-require/expansion-time)"
-"((req116_0) req_10)"
-"((ns117_0) ns_78))"
-"(do-namespace-require23.1"
+"(let-values(((temp98_0) #f)"
+"((temp99_0) #t)"
+"((who100_0) 'namespace-require/expansion-time)"
+"((req101_0) req_10)"
+"((ns102_0) ns_79))"
+"(do-namespace-require21.1"
 " #f"
 " #f"
+" temp98_0"
 " #f"
-" #f"
-" temp113_0"
-" #t"
-" #f"
-" #f"
-" temp114_1"
-" #t"
-" who115_0"
-" req116_0"
-" ns117_0)))))))))))"
+" temp99_0"
+" who100_0"
+" req101_0"
+" ns102_0)))))))))))"
 "(case-lambda"
-"((req_11)(begin 'namespace-require/expansion-time(namespace-require/expansion-time34_0 req_11 #f #f)))"
-"((req_12 ns31_2)(namespace-require/expansion-time34_0 req_12 ns31_2 #t)))))"
+"((req_11)(begin 'namespace-require/expansion-time(namespace-require/expansion-time30_0 req_11 unsafe-undefined)))"
+"((req_12 ns28_2)(namespace-require/expansion-time30_0 req_12 ns28_2)))))"
 "(define-values"
 "(1/namespace-require/constant)"
-"(let-values(((namespace-require/constant39_0)"
-"(lambda(req38_0 ns36_0 ns37_0)"
+"(let-values(((namespace-require/constant34_0)"
+"(lambda(req33_0 ns32_0)"
 "(begin"
-" 'namespace-require/constant39"
-"(let-values(((req_13) req38_0))"
-"(let-values(((ns_79)(if ns37_0 ns36_0(1/current-namespace))))"
+" 'namespace-require/constant34"
+"(let-values(((req_13) req33_0))"
+"(let-values(((ns_80)(if(eq? ns32_0 unsafe-undefined)(1/current-namespace) ns32_0)))"
 "(let-values()"
 "(let-values()"
 "(let-values()"
-"(let-values(((who119_1) 'namespace-require/constant)"
-"((req120_0) req_13)"
-"((ns121_0) ns_79)"
-"((temp122_1) 0)"
-"((temp123_1) #t))"
-"(do-namespace-require23.1"
-" temp123_1"
-" #t"
-" temp122_1"
+"(let-values(((who104_1) 'namespace-require/constant)"
+"((req105_0) req_13)"
+"((ns106_0) ns_80)"
+"((temp107_1) 0)"
+"((temp108_0) #t))"
+"(do-namespace-require21.1"
+" temp108_0"
+" temp107_1"
 " #t"
 " #f"
 " #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" who119_1"
-" req120_0"
-" ns121_0)))))))))))"
+" who104_1"
+" req105_0"
+" ns106_0)))))))))))"
 "(case-lambda"
-"((req_14)(begin 'namespace-require/constant(namespace-require/constant39_0 req_14 #f #f)))"
-"((req_15 ns36_1)(namespace-require/constant39_0 req_15 ns36_1 #t)))))"
+"((req_14)(begin 'namespace-require/constant(namespace-require/constant34_0 req_14 unsafe-undefined)))"
+"((req_15 ns32_1)(namespace-require/constant34_0 req_15 ns32_1)))))"
 "(define-values"
 "(1/namespace-require/copy)"
-"(let-values(((namespace-require/copy44_0)"
-"(lambda(req43_0 ns41_0 ns42_0)"
+"(let-values(((namespace-require/copy38_0)"
+"(lambda(req37_0 ns36_0)"
 "(begin"
-" 'namespace-require/copy44"
-"(let-values(((req_16) req43_0))"
-"(let-values(((ns_80)(if ns42_0 ns41_0(1/current-namespace))))"
+" 'namespace-require/copy38"
+"(let-values(((req_16) req37_0))"
+"(let-values(((ns_81)(if(eq? ns36_0 unsafe-undefined)(1/current-namespace) ns36_0)))"
 "(let-values()"
 "(let-values()"
 "(let-values()"
-"(let-values(((who125_0) 'namespace-require/copy)"
-"((req126_0) req_16)"
-"((ns127_0) ns_80)"
-"((temp128_3) 0)"
-"((temp129_1) 0))"
-"(do-namespace-require23.1"
+"(let-values(((who110_1) 'namespace-require/copy)"
+"((req111_0) req_16)"
+"((ns112_0) ns_81)"
+"((temp113_1) 0)"
+"((temp114_2) 0))"
+"(do-namespace-require21.1"
 " #f"
-" #f"
-" temp128_3"
+" temp113_1"
 " #t"
+" temp114_2"
 " #f"
-" #f"
-" temp129_1"
-" #t"
-" #f"
-" #f"
-" who125_0"
-" req126_0"
-" ns127_0)))))))))))"
+" who110_1"
+" req111_0"
+" ns112_0)))))))))))"
 "(case-lambda"
-"((req_17)(begin 'namespace-require/copy(namespace-require/copy44_0 req_17 #f #f)))"
-"((req_18 ns41_1)(namespace-require/copy44_0 req_18 ns41_1 #t)))))"
+"((req_17)(begin 'namespace-require/copy(namespace-require/copy38_0 req_17 unsafe-undefined)))"
+"((req_18 ns36_1)(namespace-require/copy38_0 req_18 ns36_1)))))"
 "(define-values"
 "(1/namespace-variable-value)"
-"(let-values(((namespace-variable-value53_0)"
-"(lambda(sym52_0 use-mapping?46_0 failure-thunk47_0 ns48_0 use-mapping?49_0 failure-thunk50_0 ns51_0)"
+"(let-values(((namespace-variable-value44_0)"
+"(lambda(sym43_0 use-mapping?40_0 failure-thunk41_0 ns42_0)"
 "(begin"
-" 'namespace-variable-value53"
-"(let-values(((sym_72) sym52_0))"
-"(let-values(((use-mapping?_0)(if use-mapping?49_0 use-mapping?46_0 #t)))"
-"(let-values(((failure-thunk_5)(if failure-thunk50_0 failure-thunk47_0 #f)))"
-"(let-values(((ns_81)(if ns51_0 ns48_0(1/current-namespace))))"
+" 'namespace-variable-value44"
+"(let-values(((sym_74) sym43_0))"
+"(let-values(((use-mapping?_0) use-mapping?40_0))"
+"(let-values(((failure-thunk_5) failure-thunk41_0))"
+"(let-values(((ns_11)(if(eq? ns42_0 unsafe-undefined)(1/current-namespace) ns42_0)))"
 "(let-values()"
 "(let-values()"
 "(let-values()"
 "(begin"
-"(if(symbol? sym_72)"
+"(if(symbol? sym_74)"
 "(void)"
-"                                      (let-values () (raise-argument-error 'namespace-variable-value \"symbol?\" sym_72)))"
-"(if(let-values(((or-part_261)(not failure-thunk_5)))"
-"(if or-part_261"
-" or-part_261"
+"                                      (let-values () (raise-argument-error 'namespace-variable-value \"symbol?\" sym_74)))"
+"(if(let-values(((or-part_294)(not failure-thunk_5)))"
+"(if or-part_294"
+" or-part_294"
 "(if(procedure? failure-thunk_5)"
 "(procedure-arity-includes? failure-thunk_5 0)"
 " #f)))"
@@ -44965,62 +44157,60 @@ static const char *startup_source =
 " 'namespace-variable-value"
 "                                         \"(or/c #f (procedure-arity-includes/c 0))\""
 " failure-thunk_5)))"
-"(if(1/namespace? ns_81)"
+"(if(1/namespace? ns_11)"
 "(void)"
 "(let-values()"
-"                                        (raise-argument-error 'namespace-variable-value \"namespace?\" ns_81)))"
+"                                        (raise-argument-error 'namespace-variable-value \"namespace?\" ns_11)))"
 "((call/ec"
 "(lambda(escape_0)"
 "(let-values(((var-ns_0 var-phase-level_0 var-sym_6)"
 "(if use-mapping?_0"
 "(let-values()"
-"(let-values(((id_18)(1/datum->syntax #f sym_72)))"
-"(let-values(((b_92)"
+"(let-values(((id_100)(1/datum->syntax #f sym_74)))"
+"(let-values(((b_14)"
 "(resolve+shift/extra-inspector"
-"(1/namespace-syntax-introduce id_18 ns_81)"
-"(namespace-phase ns_81)"
-" ns_81)))"
+"(1/namespace-syntax-introduce id_100 ns_11)"
+"(namespace-phase ns_11)"
+" ns_11)))"
 "(let-values((()"
 "(begin"
-"(if b_92"
+"(if b_14"
 "(let-values()"
 "(namespace-visit-available-modules!"
-" ns_81))"
+" ns_11))"
 "(void))"
 "(values))))"
-"(let-values(((v_199"
+"(let-values(((v_196"
 " primitive?_8"
-" extra-inspector_8"
+" extra-inspector_9"
 " protected?_9)"
-"(if b_92"
-"(let-values(((b131_0) b_92)"
-"((empty-env132_0)"
+"(if b_14"
+"(let-values(((b116_0) b_14)"
+"((empty-env117_0)"
 " empty-env)"
-"((null133_0) null)"
-"((ns134_0) ns_81)"
-"((temp135_0)"
-"(namespace-phase ns_81))"
-"((id136_0) id_18))"
+"((null118_0) null)"
+"((ns119_0) ns_11)"
+"((temp120_0)"
+"(namespace-phase ns_11))"
+"((id121_0) id_100))"
 "(binding-lookup50.1"
 " #f"
 " #f"
-" #f"
-" #f"
-" b131_0"
-" empty-env132_0"
-" null133_0"
-" ns134_0"
-" temp135_0"
-" id136_0))"
+" b116_0"
+" empty-env117_0"
+" null118_0"
+" ns119_0"
+" temp120_0"
+" id121_0))"
 "(values variable #f #f #f))))"
 "(begin"
-"(if(variable? v_199)"
+"(if(variable? v_196)"
 "(void)"
 "(let-values()"
 "(escape_0"
-"(let-values(((or-part_298) failure-thunk_5))"
-"(if or-part_298"
-" or-part_298"
+"(let-values(((or-part_52) failure-thunk_5))"
+"(if or-part_52"
+" or-part_52"
 "(lambda()"
 "(raise"
 "(make-exn:fail:syntax$1"
@@ -45028,73 +44218,73 @@ static const char *startup_source =
 "(string-append"
 "                                                                                   \"namespace-variable-value: bound to syntax\\n\""
 "                                                                                   \"  in: ~s\")"
-" sym_72)"
+" sym_74)"
 "(current-continuation-marks)"
 " null))))))))"
-"(if(module-binding? b_92)"
+"(if(module-binding? b_14)"
 "(values"
 "(if(top-level-module-path-index?"
-"(module-binding-module b_92))"
-" ns_81"
+"(module-binding-module b_14))"
+" ns_11"
 "(module-instance-namespace"
 "(binding->module-instance"
-" b_92"
-" ns_81"
-"(namespace-phase ns_81)"
-" id_18)))"
-"(module-binding-phase b_92)"
-"(module-binding-sym b_92))"
+" b_14"
+" ns_11"
+"(namespace-phase ns_11)"
+" id_100)))"
+"(module-binding-phase b_14)"
+"(module-binding-sym b_14))"
 "(values"
-" ns_81"
-"(namespace-phase ns_81)"
-" sym_72))))))))"
-"(let-values()(values ns_81(namespace-phase ns_81) sym_72)))))"
-"(let-values(((val_74)"
+" ns_11"
+"(namespace-phase ns_11)"
+" sym_74))))))))"
+"(let-values()(values ns_11(namespace-phase ns_11) sym_74)))))"
+"(let-values(((val_71)"
 "(namespace-get-variable"
 " var-ns_0"
 " var-phase-level_0"
 " var-sym_6"
 "(lambda()"
 "(escape_0"
-"(let-values(((or-part_299) failure-thunk_5))"
-"(if or-part_299"
-" or-part_299"
+"(let-values(((or-part_295) failure-thunk_5))"
+"(if or-part_295"
+" or-part_295"
 "(raise"
 "(exn:fail:contract:variable"
 "(format"
 "(string-append"
 "                                                                    \"namespace-variable-value: given name is not defined\\n\""
 "                                                                    \"  name: ~s\")"
-" sym_72)"
+" sym_74)"
 "(current-continuation-marks)"
-" sym_72)))))))))"
-"(lambda() val_74))))))))))))))))))"
+" sym_74)))))))))"
+"(lambda() val_71))))))))))))))))))"
 "(case-lambda"
-"((sym_73)(begin 'namespace-variable-value(namespace-variable-value53_0 sym_73 #f #f #f #f #f #f)))"
-"((sym_74 use-mapping?_1 failure-thunk_6 ns48_1)"
-"(namespace-variable-value53_0 sym_74 use-mapping?_1 failure-thunk_6 ns48_1 #t #t #t))"
-"((sym_75 use-mapping?_2 failure-thunk47_1)"
-"(namespace-variable-value53_0 sym_75 use-mapping?_2 failure-thunk47_1 #f #t #t #f))"
-"((sym_76 use-mapping?46_1)(namespace-variable-value53_0 sym_76 use-mapping?46_1 #f #f #t #f #f)))))"
+"((sym_75)(begin 'namespace-variable-value(namespace-variable-value44_0 sym_75 #t #f unsafe-undefined)))"
+"((sym_76 use-mapping?_1 failure-thunk_6 ns42_1)"
+"(namespace-variable-value44_0 sym_76 use-mapping?_1 failure-thunk_6 ns42_1))"
+"((sym_77 use-mapping?_2 failure-thunk41_1)"
+"(namespace-variable-value44_0 sym_77 use-mapping?_2 failure-thunk41_1 unsafe-undefined))"
+"((sym_78 use-mapping?40_1)(namespace-variable-value44_0 sym_78 use-mapping?40_1 #f unsafe-undefined)))))"
 "(define-values"
 "(1/namespace-set-variable-value!)"
-"(let-values(((namespace-set-variable-value!63_0)"
-"(lambda(sym61_0 val62_0 map?55_0 ns56_0 as-constant?57_0 map?58_0 ns59_0 as-constant?60_0)"
+"(let-values(((namespace-set-variable-value!51_0)"
+"(lambda(sym49_0 val50_0 map?46_0 ns47_2 as-constant?48_0)"
 "(begin"
-" 'namespace-set-variable-value!63"
-"(let-values(((sym_77) sym61_0))"
-"(let-values(((val_75) val62_0))"
-"(let-values(((map?_0)(if map?58_0 map?55_0 #f)))"
-"(let-values(((ns_82)(if ns59_0 ns56_0(1/current-namespace))))"
-"(let-values(((as-constant?_2)(if as-constant?60_0 as-constant?57_0 #f)))"
+" 'namespace-set-variable-value!51"
+"(let-values(((sym_79) sym49_0))"
+"(let-values(((val_72) val50_0))"
+"(let-values(((map?_0) map?46_0))"
+"(let-values(((ns_82)(if(eq? ns47_2 unsafe-undefined)(1/current-namespace) ns47_2)))"
+"(let-values(((as-constant?_2) as-constant?48_0))"
 "(let-values()"
 "(let-values()"
 "(let-values()"
 "(begin"
-"(if(symbol? sym_77)"
+"(if(symbol? sym_79)"
 "(void)"
 "(let-values()"
-"                                          (raise-argument-error 'namespace-set-variable-value! \"symbol?\" sym_77)))"
+"                                          (raise-argument-error 'namespace-set-variable-value! \"symbol?\" sym_79)))"
 "(if(1/namespace? ns_82)"
 "(void)"
 "(let-values()"
@@ -45102,8 +44292,8 @@ static const char *startup_source =
 "(namespace-set-variable!"
 " ns_82"
 "(namespace-phase ns_82)"
-" sym_77"
-" val_75"
+" sym_79"
+" val_72"
 " as-constant?_2)"
 "(if map?_0"
 "(let-values()"
@@ -45112,76 +44302,67 @@ static const char *startup_source =
 "(namespace-unset-transformer!"
 " ns_82"
 "(namespace-phase ns_82)"
-" sym_77)"
+" sym_79)"
 "(values))))"
-"(let-values(((id_74)(1/datum->syntax #f sym_77)))"
-"(let-values(((temp138_1)(1/namespace-syntax-introduce id_74 ns_82))"
-"((temp139_0)"
-"(let-values(((temp141_1)(namespace-mpi ns_82))"
-"((temp142_1)(namespace-phase ns_82))"
-"((sym143_0) sym_77))"
+"(let-values(((id_101)(1/datum->syntax #f sym_79)))"
+"(let-values(((temp123_1)(1/namespace-syntax-introduce id_101 ns_82))"
+"((temp124_0)"
+"(let-values(((temp126_0)(namespace-mpi ns_82))"
+"((temp127_3)(namespace-phase ns_82))"
+"((sym128_0) sym_79))"
 "(make-module-binding22.1"
 " #f"
+" null"
 " #f"
 " #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" temp141_1"
-" temp142_1"
-" sym143_0)))"
-"((temp140_0)(namespace-phase ns_82)))"
-"(add-binding!17.1 #f #f #f #f temp138_1 temp139_0 temp140_0)))))"
+" unsafe-undefined"
+" unsafe-undefined"
+" 0"
+" unsafe-undefined"
+" unsafe-undefined"
+" temp126_0"
+" temp127_3"
+" sym128_0)))"
+"((temp125_0)(namespace-phase ns_82)))"
+"(add-binding!17.1 #f #f temp123_1 temp124_0 temp125_0)))))"
 "(void)))))))))))))))"
 "(case-lambda"
-"((sym_78 val_76)"
-"(begin 'namespace-set-variable-value!(namespace-set-variable-value!63_0 sym_78 val_76 #f #f #f #f #f #f)))"
-"((sym_79 val_77 map?_1 ns_83 as-constant?57_1)"
-"(namespace-set-variable-value!63_0 sym_79 val_77 map?_1 ns_83 as-constant?57_1 #t #t #t))"
-"((sym_80 val_78 map?_2 ns56_1)(namespace-set-variable-value!63_0 sym_80 val_78 map?_2 ns56_1 #f #t #t #f))"
-"((sym_81 val_79 map?55_1)(namespace-set-variable-value!63_0 sym_81 val_79 map?55_1 #f #f #t #f #f)))))"
+"((sym_80 val_73)"
+"(begin 'namespace-set-variable-value!(namespace-set-variable-value!51_0 sym_80 val_73 #f unsafe-undefined #f)))"
+"((sym_81 val_74 map?_1 ns_83 as-constant?48_1)"
+"(namespace-set-variable-value!51_0 sym_81 val_74 map?_1 ns_83 as-constant?48_1))"
+"((sym_82 val_75 map?_2 ns47_3)(namespace-set-variable-value!51_0 sym_82 val_75 map?_2 ns47_3 #f))"
+"((sym_83 val_76 map?46_1)(namespace-set-variable-value!51_0 sym_83 val_76 map?46_1 unsafe-undefined #f)))))"
 "(define-values"
 "(1/namespace-undefine-variable!)"
-"(let-values(((namespace-undefine-variable!68_0)"
-"(lambda(sym67_0 ns65_0 ns66_0)"
+"(let-values(((namespace-undefine-variable!55_0)"
+"(lambda(sym54_0 ns53_0)"
 "(begin"
-" 'namespace-undefine-variable!68"
-"(let-values(((sym_82) sym67_0))"
-"(let-values(((ns_84)(if ns66_0 ns65_0(1/current-namespace))))"
+" 'namespace-undefine-variable!55"
+"(let-values(((sym_84) sym54_0))"
+"(let-values(((ns_84)(if(eq? ns53_0 unsafe-undefined)(1/current-namespace) ns53_0)))"
 "(let-values()"
 "(let-values()"
 "(let-values()"
 "(begin"
-"(if(symbol? sym_82)"
+"(if(symbol? sym_84)"
 "(void)"
-"                                  (let-values () (raise-argument-error 'namespace-undefine-variable! \"symbol?\" sym_82)))"
+"                                  (let-values () (raise-argument-error 'namespace-undefine-variable! \"symbol?\" sym_84)))"
 "(if(1/namespace? ns_84)"
 "(void)"
 "(let-values()"
 "                                    (raise-argument-error 'namespace-undefine-variable! \"namespace?\" ns_84)))"
-"(namespace-unset-variable! ns_84(namespace-phase ns_84) sym_82)))))))))))"
+"(namespace-unset-variable! ns_84(namespace-phase ns_84) sym_84)))))))))))"
 "(case-lambda"
-"((sym_83)(begin 'namespace-undefine-variable!(namespace-undefine-variable!68_0 sym_83 #f #f)))"
-"((sym_84 ns65_1)(namespace-undefine-variable!68_0 sym_84 ns65_1 #t)))))"
+"((sym_85)(begin 'namespace-undefine-variable!(namespace-undefine-variable!55_0 sym_85 unsafe-undefined)))"
+"((sym_86 ns53_1)(namespace-undefine-variable!55_0 sym_86 ns53_1)))))"
 "(define-values"
 "(1/namespace-mapped-symbols)"
-"(let-values(((namespace-mapped-symbols72_0)"
-"(lambda(ns70_0 ns71_0)"
+"(let-values(((namespace-mapped-symbols58_0)"
+"(lambda(ns57_0)"
 "(begin"
-" 'namespace-mapped-symbols72"
-"(let-values(((ns_85)(if ns71_0 ns70_0(1/current-namespace))))"
+" 'namespace-mapped-symbols58"
+"(let-values(((ns_85)(if(eq? ns57_0 unsafe-undefined)(1/current-namespace) ns57_0)))"
 "(let-values()"
 "(let-values()"
 "(let-values()"
@@ -45196,15 +44377,15 @@ static const char *startup_source =
 "(namespace-phase ns_85))"
 "(list->set(1/instance-variable-names(namespace->instance ns_85 0))))))))))))))"
 "(case-lambda"
-"(()(begin 'namespace-mapped-symbols(namespace-mapped-symbols72_0 #f #f)))"
-"((ns70_1)(namespace-mapped-symbols72_0 ns70_1 #t)))))"
+"(()(begin 'namespace-mapped-symbols(namespace-mapped-symbols58_0 unsafe-undefined)))"
+"((ns57_1)(namespace-mapped-symbols58_0 ns57_1)))))"
 "(define-values"
 "(1/namespace-base-phase)"
-"(let-values(((namespace-base-phase76_0)"
-"(lambda(ns74_0 ns75_0)"
+"(let-values(((namespace-base-phase61_0)"
+"(lambda(ns60_0)"
 "(begin"
-" 'namespace-base-phase76"
-"(let-values(((ns_86)(if ns75_0 ns74_0(1/current-namespace))))"
+" 'namespace-base-phase61"
+"(let-values(((ns_86)(if(eq? ns60_0 unsafe-undefined)(1/current-namespace) ns60_0)))"
 "(let-values()"
 "(let-values()"
 "(let-values()"
@@ -45214,175 +44395,144 @@ static const char *startup_source =
 "                                (let-values () (raise-argument-error 'namespace-base-phase \"namespace?\" ns_86)))"
 "(namespace-phase ns_86))))))))))"
 "(case-lambda"
-"(()(begin 'namespace-base-phase(namespace-base-phase76_0 #f #f)))"
-"((ns74_1)(namespace-base-phase76_0 ns74_1 #t)))))"
+"(()(begin 'namespace-base-phase(namespace-base-phase61_0 unsafe-undefined)))"
+"((ns60_1)(namespace-base-phase61_0 ns60_1)))))"
 "(define-values"
 "(1/eval)"
-"(let-values(((eval6_0)"
-"(lambda(s5_1 ns1_5 compile2_0 ns3_0 compile4_0)"
+"(let-values(((eval4_0)"
+"(lambda(s3_1 ns1_4 compile2_0)"
 "(begin"
-" 'eval6"
-"(let-values(((s_181) s5_1))"
-"(let-values(((ns_43)(if ns3_0 ns1_5(1/current-namespace))))"
+" 'eval4"
+"(let-values(((s_446) s3_1))"
+"(let-values(((ns_87)(if(eq? ns1_4 unsafe-undefined)(1/current-namespace) ns1_4)))"
 "(let-values(((compile_1)"
-"(if compile4_0"
-" compile2_0"
-"(lambda(s_456 ns_87)(begin 'compile(1/compile s_456 ns_87 #f))))))"
+"(if(eq? compile2_0 unsafe-undefined)"
+"(lambda(s_75 ns_55)(begin 'compile(1/compile s_75 ns_55 #f)))"
+" compile2_0)))"
 "(let-values()"
-"(if(let-values(((or-part_293)(compiled-in-memory? s_181)))"
-"(if or-part_293"
-" or-part_293"
-"(let-values(((or-part_294)(1/linklet-directory? s_181)))"
-"(if or-part_294 or-part_294(1/linklet-bundle? s_181)))))"
-"(let-values()(eval-compiled s_181 ns_43))"
-"(if(if(syntax?$1 s_181)"
-"(let-values(((or-part_295)(compiled-in-memory?(1/syntax-e s_181))))"
-"(if or-part_295"
-" or-part_295"
-"(let-values(((or-part_300)(1/linklet-directory?(1/syntax-e s_181))))"
-"(if or-part_300 or-part_300(1/linklet-bundle?(1/syntax-e s_181))))))"
+"(if(let-values(((or-part_28)(compiled-in-memory? s_446)))"
+"(if or-part_28"
+" or-part_28"
+"(let-values(((or-part_292)(1/linklet-directory? s_446)))"
+"(if or-part_292 or-part_292(1/linklet-bundle? s_446)))))"
+"(let-values()(eval-compiled s_446 ns_87))"
+"(if(if(syntax?$1 s_446)"
+"(let-values(((or-part_296)(compiled-in-memory?(1/syntax-e s_446))))"
+"(if or-part_296"
+" or-part_296"
+"(let-values(((or-part_297)(1/linklet-directory?(1/syntax-e s_446))))"
+"(if or-part_297 or-part_297(1/linklet-bundle?(1/syntax-e s_446))))))"
 " #f)"
-"(let-values()(eval-compiled(1/syntax->datum s_181) ns_43))"
+"(let-values()(eval-compiled(1/syntax->datum s_446) ns_87))"
 "(let-values()"
-"(let-values(((s80_0) s_181)"
-"((ns81_0) ns_43)"
-"((temp82_2)"
-"(lambda(s_77 ns_88 tail?_44)"
-"(eval-compiled(compile_1 s_77 ns_88) ns_88 tail?_44)))"
-"((temp83_2) #f))"
-"(per-top-level68.1"
-" #f"
-" #f"
-" #f"
-" #f"
-" temp83_2"
-" #f"
-" #f"
-" #f"
-" #f"
-" temp82_2"
-" #f"
-" #f"
-" s80_0"
-" ns81_0)))))))))))))"
+"(let-values(((s66_0) s_446)"
+"((ns67_1) ns_87)"
+"((temp68_1)"
+"(lambda(s_180 ns_88 tail?_52)"
+"(eval-compiled(compile_1 s_180 ns_88) ns_88 tail?_52)))"
+"((temp69_0) #f))"
+"(per-top-level54.1 #f #f temp69_0 #t #f temp68_1 #f s66_0 ns67_1)))))))))))))"
 "(case-lambda"
-"((s_183)(begin 'eval(eval6_0 s_183 #f #f #f #f)))"
-"((s_78 ns_53 compile2_1)(eval6_0 s_78 ns_53 compile2_1 #t #t))"
-"((s_169 ns1_6)(eval6_0 s_169 ns1_6 #f #t #f)))))"
+"((s_445)(begin 'eval(eval4_0 s_445 unsafe-undefined unsafe-undefined)))"
+"((s_76 ns_89 compile2_1)(eval4_0 s_76 ns_89 compile2_1))"
+"((s_441 ns1_5)(eval4_0 s_441 ns1_5 unsafe-undefined)))))"
 "(define-values"
 "(eval-compiled)"
-"(let-values(((eval-compiled12_0)"
-"(lambda(c10_0 ns11_0 as-tail?8_0 as-tail?9_0)"
+"(let-values(((eval-compiled9_0)"
+"(lambda(c7_1 ns8_0 as-tail?6_0)"
 "(begin"
-" 'eval-compiled12"
-"(let-values(((c_52) c10_0))"
-"(let-values(((ns_89) ns11_0))"
-"(let-values(((as-tail?_3)(if as-tail?9_0 as-tail?8_0 #t)))"
+" 'eval-compiled9"
+"(let-values(((c_52) c7_1))"
+"(let-values(((ns_90) ns8_0))"
+"(let-values(((as-tail?_3) as-tail?6_0))"
 "(let-values()"
 "(if(1/compiled-module-expression? c_52)"
 "(let-values()"
-"(let-values(((c84_0) c_52)((ns85_0) ns_89))"
-"(eval-module8.1 ns85_0 #t #f #f #f #f c84_0)))"
-"(let-values()(eval-top c_52 ns_89 eval-compiled as-tail?_3)))))))))))"
+"(let-values(((c70_0) c_52)((ns71_0) ns_90))(eval-module8.1 ns71_0 #f #t c70_0)))"
+"(let-values()(eval-top c_52 ns_90 eval-compiled as-tail?_3)))))))))))"
 "(case-lambda"
-"((c_53 ns_90)(begin(eval-compiled12_0 c_53 ns_90 #f #f)))"
-"((c_54 ns_91 as-tail?8_1)(eval-compiled12_0 c_54 ns_91 as-tail?8_1 #t)))))"
+"((c_53 ns_91)(begin(eval-compiled9_0 c_53 ns_91 #t)))"
+"((c_54 ns_92 as-tail?6_1)(eval-compiled9_0 c_54 ns_92 as-tail?6_1)))))"
 "(define-values"
 "(1/compile)"
-"(let-values(((compile23_0)"
-"(lambda(s22_0"
-" ns14_2"
-" serializable?15_0"
-" expand16_0"
-" to-source?17_0"
-" ns18_1"
-" serializable?19_0"
-" expand20_0"
-" to-source?21_1)"
+"(let-values(((compile16_0)"
+"(lambda(s15_1 ns11_1 serializable?12_0 expand13_0 to-source?14_0)"
 "(begin"
-" 'compile23"
-"(let-values(((s_457) s22_0))"
-"(let-values(((ns_92)(if ns18_1 ns14_2(1/current-namespace))))"
-"(let-values(((serializable?_4)(if serializable?19_0 serializable?15_0 #t)))"
-"(let-values(((expand_0)(if expand20_0 expand16_0 expand$1)))"
-"(let-values(((to-source?_5)(if to-source?21_1 to-source?17_0 #f)))"
+" 'compile16"
+"(let-values(((s_184) s15_1))"
+"(let-values(((ns_93)(if(eq? ns11_1 unsafe-undefined)(1/current-namespace) ns11_1)))"
+"(let-values(((serializable?_4) serializable?12_0))"
+"(let-values(((expand_0)(if(eq? expand13_0 unsafe-undefined) expand$1 expand13_0)))"
+"(let-values(((to-source?_4) to-source?14_0))"
 "(let-values()"
 "(let-values(((cs_0)"
-"(if(1/compiled-expression? s_457)"
-"(let-values()(list s_457))"
-"(if(if(syntax?$1 s_457)"
-"(1/compiled-expression?(1/syntax-e s_457))"
+"(if(1/compiled-expression? s_184)"
+"(let-values()(list s_184))"
+"(if(if(syntax?$1 s_184)"
+"(1/compiled-expression?(1/syntax-e s_184))"
 " #f)"
-"(let-values()(list(1/syntax-e s_457)))"
+"(let-values()(list(1/syntax-e s_184)))"
 "(let-values()"
-"(let-values(((s86_1) s_457)"
-"((ns87_0) ns_92)"
-"((temp88_1)"
-"(lambda(s_80 ns_49 as-tail?_4)"
+"(let-values(((s72_0) s_184)"
+"((ns73_0) ns_93)"
+"((temp74_1)"
+"(lambda(s_447 ns_47 as-tail?_4)"
 "(list"
 "(compile-single$1"
-" s_80"
-" ns_49"
+" s_447"
+" ns_47"
 " expand_0"
 " serializable?_4"
-" to-source?_5))))"
-"((append89_0) append)"
-"((temp90_1) #f))"
-"(per-top-level68.1"
-" append89_0"
+" to-source?_4))))"
+"((append75_0) append)"
+"((temp76_1) #f))"
+"(per-top-level54.1"
+" append75_0"
+" #f"
+" temp76_1"
 " #t"
 " #f"
+" temp74_1"
 " #f"
-" temp90_1"
-" #f"
-" #f"
-" #f"
-" #f"
-" temp88_1"
-" #f"
-" #f"
-" s86_1"
-" ns87_0)))))))"
+" s72_0"
+" ns73_0)))))))"
 "(if(if(= 1(length cs_0))(not(compiled-multiple-top?(car cs_0))) #f)"
 "(car cs_0)"
-"(let-values(((cs91_0) cs_0)"
-"((to-source?92_0) to-source?_5)"
-"((serializable?93_0) serializable?_4)"
-"((ns94_0) ns_92))"
+"(let-values(((cs77_0) cs_0)"
+"((to-source?78_0) to-source?_4)"
+"((serializable?79_0) serializable?_4)"
+"((ns80_0) ns_93))"
 "(compiled-tops->compiled-top8.1"
-" serializable?93_0"
-" #t"
-" ns94_0"
-" #t"
-" to-source?92_0"
-" #t"
-" cs91_0))))))))))))))"
+" serializable?79_0"
+" ns80_0"
+" to-source?78_0"
+" cs77_0))))))))))))))"
 "(case-lambda"
-"((s_192)(begin 'compile(compile23_0 s_192 #f #f #f #f #f #f #f #f)))"
-"((s_443 ns_93 serializable?_5 expand_1 to-source?17_1)"
-"(compile23_0 s_443 ns_93 serializable?_5 expand_1 to-source?17_1 #t #t #t #t))"
-"((s_81 ns_94 serializable?_6 expand16_1)(compile23_0 s_81 ns_94 serializable?_6 expand16_1 #f #t #t #t #f))"
-"((s_19 ns_95 serializable?15_1)(compile23_0 s_19 ns_95 serializable?15_1 #f #f #t #t #f #f))"
-"((s_156 ns14_3)(compile23_0 s_156 ns14_3 #f #f #f #t #f #f #f)))))"
+"((s_11)(begin 'compile(compile16_0 s_11 unsafe-undefined #t unsafe-undefined #f)))"
+"((s_448 ns_94 serializable?_5 expand_1 to-source?14_1)"
+"(compile16_0 s_448 ns_94 serializable?_5 expand_1 to-source?14_1))"
+"((s_14 ns_95 serializable?_6 expand13_1)(compile16_0 s_14 ns_95 serializable?_6 expand13_1 #f))"
+"((s_15 ns_96 serializable?12_1)(compile16_0 s_15 ns_96 serializable?12_1 unsafe-undefined #f))"
+"((s_83 ns11_2)(compile16_0 s_83 ns11_2 #t unsafe-undefined #f)))))"
 "(define-values"
 "(compile-to-linklets)"
-"(let-values(((compile-to-linklets28_0)"
-"(lambda(s27_0 ns25_0 ns26_2)"
+"(let-values(((compile-to-linklets20_0)"
+"(lambda(s19_0 ns18_1)"
 "(begin"
-" 'compile-to-linklets28"
-"(let-values(((s_25) s27_0))"
-"(let-values(((ns_96)(if ns26_2 ns25_0(1/current-namespace))))"
-"(let-values()(1/compile s_25 ns_96 #t expand$1 #t))))))))"
+" 'compile-to-linklets20"
+"(let-values(((s_20) s19_0))"
+"(let-values(((ns_63)(if(eq? ns18_1 unsafe-undefined)(1/current-namespace) ns18_1)))"
+"(let-values()(1/compile s_20 ns_63 #t expand$1 #t))))))))"
 "(case-lambda"
-"((s_458)(begin(compile-to-linklets28_0 s_458 #f #f)))"
-"((s_311 ns25_1)(compile-to-linklets28_0 s_311 ns25_1 #t)))))"
+"((s_449)(begin(compile-to-linklets20_0 s_449 unsafe-undefined)))"
+"((s_22 ns18_2)(compile-to-linklets20_0 s_22 ns18_2)))))"
 "(define-values"
 "(struct:lifted-parsed-begin"
-" lifted-parsed-begin30.1"
+" lifted-parsed-begin22.1"
 " lifted-parsed-begin?"
 " lifted-parsed-begin-seq"
 " lifted-parsed-begin-last)"
-"(let-values(((struct:_78 make-_78 ?_78 -ref_78 -set!_78)"
+"(let-values(((struct:_79 make-_79 ?_79 -ref_79 -set!_79)"
 "(let-values()"
 "(let-values()"
 "(make-struct-type"
@@ -45398,135 +44548,112 @@ static const char *startup_source =
 " #f"
 " 'lifted-parsed-begin)))))"
 "(values"
-" struct:_78"
-" make-_78"
-" ?_78"
-"(make-struct-field-accessor -ref_78 0 'seq)"
-"(make-struct-field-accessor -ref_78 1 'last))))"
+" struct:_79"
+" make-_79"
+" ?_79"
+"(make-struct-field-accessor -ref_79 0 'seq)"
+"(make-struct-field-accessor -ref_79 1 'last))))"
 "(define-values"
 "(compile-single$1)"
-"(lambda(s_26 ns_97 expand_2 serializable?_7 to-source?_6)"
+"(lambda(s_450 ns_97 expand_2 serializable?_7 to-source?_5)"
 "(begin"
 " 'compile-single"
-"(let-values(((exp-s_4)(expand_2 s_26 ns_97 #f #t serializable?_7)))"
-"((letrec-values(((loop_102)"
+"(let-values(((exp-s_4)(expand_2 s_450 ns_97 #f #t serializable?_7)))"
+"((letrec-values(((loop_97)"
 "(lambda(exp-s_5)"
 "(begin"
 " 'loop"
 "(if(parsed-module? exp-s_5)"
 "(let-values()"
-"(let-values(((exp-s96_0) exp-s_5)"
-"((temp97_1)"
-"(let-values(((ns100_0) ns_97))"
-"(make-compile-context14.1 #f #f #f #f #f #f ns100_0 #t #f #f #f #f)))"
-"((serializable?98_0) serializable?_7)"
-"((to-source?99_0) to-source?_6))"
+"(let-values(((exp-s82_0) exp-s_5)"
+"((temp83_2)"
+"(let-values(((ns86_0) ns_97))"
+"(make-compile-context14.1"
+" #f"
+" unsafe-undefined"
+" #f"
+" ns86_0"
+" unsafe-undefined"
+" unsafe-undefined)))"
+"((serializable?84_0) serializable?_7)"
+"((to-source?85_0) to-source?_5))"
 "(compile-module13.1"
 " #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" serializable?98_0"
+" unsafe-undefined"
 " #t"
-" to-source?99_0"
-" #t"
-" exp-s96_0"
-" temp97_1)))"
+" serializable?84_0"
+" to-source?85_0"
+" exp-s82_0"
+" temp83_2)))"
 "(if(lifted-parsed-begin? exp-s_5)"
 "(let-values()"
-"(let-values(((temp101_2)"
+"(let-values(((temp87_0)"
 "(reverse$1"
-"(let-values(((lst_300)"
+"(let-values(((lst_164)"
 "(append"
 "(lifted-parsed-begin-seq exp-s_5)"
 "(list(lifted-parsed-begin-last exp-s_5)))))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
-"(let-values()(check-list lst_300)))"
-"((letrec-values(((for-loop_271)"
-"(lambda(fold-var_164 lst_169)"
+"(let-values()(check-list lst_164)))"
+"((letrec-values(((for-loop_5)"
+"(lambda(fold-var_270 lst_299)"
 "(begin"
 " 'for-loop"
-"(if(pair? lst_169)"
-"(let-values(((e_76)"
-"(unsafe-car lst_169))"
-"((rest_167)"
-"(unsafe-cdr lst_169)))"
-"(let-values(((fold-var_165)"
-"(let-values(((fold-var_0)"
-" fold-var_164))"
-"(let-values(((fold-var_238)"
+"(if(pair? lst_299)"
+"(let-values(((e_74)"
+"(unsafe-car lst_299))"
+"((rest_87)"
+"(unsafe-cdr lst_299)))"
+"(let-values(((fold-var_159)"
+"(let-values(((fold-var_160)"
+" fold-var_270))"
+"(let-values(((fold-var_161)"
 "(let-values()"
 "(cons"
 "(let-values()"
-"(loop_102"
-" e_76))"
-" fold-var_0))))"
+"(loop_97"
+" e_74))"
+" fold-var_160))))"
 "(values"
-" fold-var_238)))))"
+" fold-var_161)))))"
 "(if(not #f)"
-"(for-loop_271"
-" fold-var_165"
-" rest_167)"
-" fold-var_165)))"
-" fold-var_164)))))"
-" for-loop_271)"
+"(for-loop_5 fold-var_159 rest_87)"
+" fold-var_159)))"
+" fold-var_270)))))"
+" for-loop_5)"
 " null"
-" lst_300)))))"
-"((to-source?102_0) to-source?_6))"
-"(compiled-tops->compiled-top8.1 #f #f #f #f to-source?102_0 #t temp101_2)))"
+" lst_164)))))"
+"((to-source?88_0) to-source?_5))"
+"(compiled-tops->compiled-top8.1 #f #f to-source?88_0 temp87_0)))"
 "(let-values()"
-"(let-values(((exp-s103_0) exp-s_5)"
-"((temp104_2)"
-"(let-values(((ns107_0) ns_97))"
+"(let-values(((exp-s89_0) exp-s_5)"
+"((temp90_2)"
+"(let-values(((ns93_1) ns_97))"
 "(make-compile-context14.1"
 " #f"
+" unsafe-undefined"
 " #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" ns107_0"
-" #t"
-" #f"
-" #f"
-" #f"
-" #f)))"
-"((serializable?105_0) serializable?_7)"
-"((to-source?106_0) to-source?_6))"
-"(compile-top9.1"
-" serializable?105_0"
-" #t"
-" #f"
-" #f"
-" to-source?106_0"
-" #t"
-" exp-s103_0"
-" temp104_2)))))))))"
-" loop_102)"
+" ns93_1"
+" unsafe-undefined"
+" unsafe-undefined)))"
+"((serializable?91_0) serializable?_7)"
+"((to-source?92_0) to-source?_5))"
+"(compile-top9.1 serializable?91_0 #f to-source?92_0 exp-s89_0 temp90_2)))))))))"
+" loop_97)"
 " exp-s_4)))))"
 "(define-values"
 "(expand$1)"
-"(let-values(((expand40_0)"
-"(lambda(s39_1"
-" ns31_3"
-" observable?32_0"
-" to-parsed?33_0"
-" serializable?34_0"
-" ns35_0"
-" observable?36_0"
-" to-parsed?37_0"
-" serializable?38_0)"
+"(let-values(((expand28_0)"
+"(lambda(s27_1 ns23_0 observable?24_0 to-parsed?25_0 serializable?26_0)"
 "(begin"
-" 'expand40"
-"(let-values(((s_321) s39_1))"
-"(let-values(((ns_98)(if ns35_0 ns31_3(1/current-namespace))))"
-"(let-values(((observable?_0)(if observable?36_0 observable?32_0 #f)))"
-"(let-values(((to-parsed?_2)(if to-parsed?37_0 to-parsed?33_0 #f)))"
-"(let-values(((serializable?_8)(if serializable?38_0 serializable?34_0 #f)))"
+" 'expand28"
+"(let-values(((s_451) s27_1))"
+"(let-values(((ns_98)(if(eq? ns23_0 unsafe-undefined)(1/current-namespace) ns23_0)))"
+"(let-values(((observable?_0) observable?24_0))"
+"(let-values(((to-parsed?_2) to-parsed?25_0))"
+"(let-values(((serializable?_8) serializable?26_0))"
 "(let-values()"
 "(let-values(((observer_2)(if observable?_0(current-expand-observe) #f)))"
 "(begin"
@@ -45538,170 +44665,151 @@ static const char *startup_source =
 " current-expand-observe"
 " #f)"
 "(let-values()"
-"(let-values(((s108_0) s_321)"
-"((ns109_1) ns_98)"
-"((temp110_1)"
-"(lambda(s_459 ns_99 as-tail?_5)"
+"(let-values(((s94_0) s_451)"
+"((ns95_0) ns_98)"
+"((temp96_1)"
+"(lambda(s_312 ns_99 as-tail?_5)"
 "(expand-single"
-" s_459"
+" s_312"
 " ns_99"
 " observer_2"
 " to-parsed?_2"
 " serializable?_8)))"
-"((cons111_0) cons)"
-"((re-pair112_0) re-pair)"
-"((observer113_0) observer_2))"
-"(per-top-level68.1"
-" cons111_0"
+"((cons97_0) cons)"
+"((re-pair98_0) re-pair)"
+"((observer99_0) observer_2))"
+"(per-top-level54.1"
+" cons97_0"
+" #f"
+" observer99_0"
 " #t"
 " #f"
-" #f"
-" observer113_0"
-" #f"
-" #f"
-" #f"
-" #f"
-" temp110_1"
-" re-pair112_0"
-" #t"
-" s108_0"
-" ns109_1))))))))))))))))"
+" temp96_1"
+" re-pair98_0"
+" s94_0"
+" ns95_0))))))))))))))))"
 "(case-lambda"
-"((s_310)(begin 'expand(expand40_0 s_310 #f #f #f #f #f #f #f #f)))"
-"((s_325 ns_100 observable?_1 to-parsed?_3 serializable?34_1)"
-"(expand40_0 s_325 ns_100 observable?_1 to-parsed?_3 serializable?34_1 #t #t #t #t))"
-"((s_460 ns_101 observable?_2 to-parsed?33_1)(expand40_0 s_460 ns_101 observable?_2 to-parsed?33_1 #f #t #t #t #f))"
-"((s_34 ns_102 observable?32_1)(expand40_0 s_34 ns_102 observable?32_1 #f #f #t #t #f #f))"
-"((s_461 ns31_4)(expand40_0 s_461 ns31_4 #f #f #f #t #f #f #f)))))"
+"((s_452)(begin 'expand(expand28_0 s_452 unsafe-undefined #f #f #f)))"
+"((s_453 ns_9 observable?_1 to-parsed?_3 serializable?26_1)"
+"(expand28_0 s_453 ns_9 observable?_1 to-parsed?_3 serializable?26_1))"
+"((s_454 ns_100 observable?_2 to-parsed?25_1)(expand28_0 s_454 ns_100 observable?_2 to-parsed?25_1 #f))"
+"((s_164 ns_101 observable?24_1)(expand28_0 s_164 ns_101 observable?24_1 #f #f))"
+"((s_455 ns23_1)(expand28_0 s_455 ns23_1 #f #f #f)))))"
 "(define-values"
 "(expand-single)"
-"(lambda(s_414 ns_103 observer_3 to-parsed?_4 serializable?_9)"
+"(lambda(s_58 ns_102 observer_3 to-parsed?_4 serializable?_9)"
 "(begin"
-"(let-values(((rebuild-s_2)(keep-properties-only s_414)))"
-"(let-values(((ctx_68)"
-"(let-values(((ns114_0) ns_103)"
-"((to-parsed?115_0) to-parsed?_4)"
-"((serializable?116_0) serializable?_9)"
-"((observer117_0) observer_3))"
-"(make-expand-context10.1 serializable?116_0 #t observer117_0 #t to-parsed?115_0 #t ns114_0))))"
-"(let-values(((require-lifts_3 lifts_10 exp-s_6)(expand-capturing-lifts s_414 ctx_68)))"
+"(let-values(((rebuild-s_2)(keep-properties-only s_58)))"
+"(let-values(((ctx_67)"
+"(let-values(((ns100_0) ns_102)"
+"((to-parsed?101_0) to-parsed?_4)"
+"((serializable?102_0) serializable?_9)"
+"((observer103_0) observer_3))"
+"(make-expand-context10.1 serializable?102_0 observer103_0 to-parsed?101_0 ns100_0))))"
+"(let-values(((require-lifts_3 lifts_10 exp-s_0)(expand-capturing-lifts s_58 ctx_67)))"
 "(if(if(null? require-lifts_3)(null? lifts_10) #f)"
-"(let-values() exp-s_6)"
+"(let-values() exp-s_0)"
 "(if to-parsed?_4"
 "(let-values()"
-"(let-values(((require-lifts118_0) require-lifts_3)"
-"((lifts119_0) lifts_10)"
-"((exp-s120_0) exp-s_6)"
-"((rebuild-s121_0) rebuild-s_2)"
-"((temp122_2)"
+"(let-values(((require-lifts104_0) require-lifts_3)"
+"((lifts105_0) lifts_10)"
+"((exp-s106_0) exp-s_0)"
+"((rebuild-s107_0) rebuild-s_2)"
+"((temp108_1)"
 "(lambda(form_0)"
-"(expand-single form_0 ns_103 observer_3 to-parsed?_4 serializable?_9))))"
-"(wrap-lifts-as-lifted-parsed-begin77.1"
-" temp122_2"
-" require-lifts118_0"
-" lifts119_0"
-" exp-s120_0"
-" rebuild-s121_0)))"
+"(expand-single form_0 ns_102 observer_3 to-parsed?_4 serializable?_9))))"
+"(wrap-lifts-as-lifted-parsed-begin63.1"
+" temp108_1"
+" require-lifts104_0"
+" lifts105_0"
+" exp-s106_0"
+" rebuild-s107_0)))"
 "(let-values()"
 "(let-values((()"
 "(begin"
-"(log-top-lift-begin-before ctx_68 require-lifts_3 lifts_10 exp-s_6 ns_103)"
+"(log-top-lift-begin-before ctx_67 require-lifts_3 lifts_10 exp-s_0 ns_102)"
 "(values))))"
 "(let-values(((new-s_2)"
-"(let-values(((temp123_2)(append require-lifts_3 lifts_10))"
-"((temp124_0)"
+"(let-values(((temp109_0)(append require-lifts_3 lifts_10))"
+"((temp110_1)"
 "(lambda(form_1)"
 "(begin"
-"(let-values(((obs_44)(expand-context-observer ctx_68)))"
-"(if obs_44"
-"(let-values()"
-"(let-values()(call-expand-observe obs_44 'next)))"
-"(void)))"
-"(expand-single"
-" form_1"
-" ns_103"
-" observer_3"
-" to-parsed?_4"
-" serializable?_9))))"
-"((temp125_0)"
-"(lambda(form_2)"
-"(if to-parsed?_4"
-"(let-values() form_2)"
-"(let-values()"
-"(begin"
-"(let-values(((obs_45)(expand-context-observer ctx_68)))"
+"(let-values(((obs_45)(expand-context-observer ctx_67)))"
 "(if obs_45"
 "(let-values()"
 "(let-values()(call-expand-observe obs_45 'next)))"
 "(void)))"
 "(expand-single"
+" form_1"
+" ns_102"
+" observer_3"
+" to-parsed?_4"
+" serializable?_9))))"
+"((temp111_1)"
+"(lambda(form_2)"
+"(if to-parsed?_4"
+"(let-values() form_2)"
+"(let-values()"
+"(begin"
+"(let-values(((obs_46)(expand-context-observer ctx_67)))"
+"(if obs_46"
+"(let-values()"
+"(let-values()(call-expand-observe obs_46 'next)))"
+"(void)))"
+"(expand-single"
 " form_2"
-" ns_103"
+" ns_102"
 " observer_3"
 " to-parsed?_4"
 " serializable?_9))))))"
-"((exp-s126_0) exp-s_6)"
-"((temp127_2)(namespace-phase ns_103)))"
-"(wrap-lifts-as-begin16.1"
-" temp125_0"
-" #t"
-" temp124_0"
-" #t"
-" temp123_2"
-" exp-s126_0"
-" temp127_2))))"
-"(begin(log-top-begin-after ctx_68 new-s_2) new-s_2))))))))))))"
+"((exp-s112_0) exp-s_0)"
+"((temp113_2)(namespace-phase ns_102)))"
+"(wrap-lifts-as-begin16.1 temp111_1 temp110_1 temp109_0 exp-s112_0 temp113_2))))"
+"(begin(log-top-begin-after ctx_67 new-s_2) new-s_2))))))))))))"
 "(define-values"
 "(expand-once$1)"
-"(let-values(((expand-once45_0)"
-"(lambda(s44_1 ns42_1 ns43_0)"
+"(let-values(((expand-once32_0)"
+"(lambda(s31_0 ns30_0)"
 "(begin"
-" 'expand-once45"
-"(let-values(((s_462) s44_1))"
-"(let-values(((ns_104)(if ns43_0 ns42_1(1/current-namespace))))"
+" 'expand-once32"
+"(let-values(((s_66) s31_0))"
+"(let-values(((ns_103)(if(eq? ns30_0 unsafe-undefined)(1/current-namespace) ns30_0)))"
 "(let-values()"
-"(let-values(((s128_0) s_462)"
-"((ns129_0) ns_104)"
-"((temp130_1)"
-"(lambda(s_213 ns_105 as-tail?_6)(expand-single-once s_213 ns_105)))"
-"((cons131_0) cons)"
-"((re-pair132_0) re-pair)"
-"((temp133_0) #t)"
-"((temp134_1) #f))"
-"(per-top-level68.1"
-" cons131_0"
+"(let-values(((s114_0) s_66)"
+"((ns115_0) ns_103)"
+"((temp116_0)"
+"(lambda(s_456 ns_104 as-tail?_6)(expand-single-once s_456 ns_104)))"
+"((cons117_0) cons)"
+"((re-pair118_0) re-pair)"
+"((temp119_1) #t)"
+"((temp120_1) #f))"
+"(per-top-level54.1"
+" cons117_0"
+" temp119_1"
+" temp120_1"
 " #t"
-" temp133_0"
-" #t"
-" temp134_1"
 " #f"
-" #f"
-" #f"
-" #f"
-" temp130_1"
-" re-pair132_0"
-" #t"
-" s128_0"
-" ns129_0)))))))))"
+" temp116_0"
+" re-pair118_0"
+" s114_0"
+" ns115_0)))))))))"
 "(case-lambda"
-"((s_463)(begin 'expand-once(expand-once45_0 s_463 #f #f)))"
-"((s_464 ns42_2)(expand-once45_0 s_464 ns42_2 #t)))))"
+"((s_38)(begin 'expand-once(expand-once32_0 s_38 unsafe-undefined)))"
+"((s_317 ns30_1)(expand-once32_0 s_317 ns30_1)))))"
 "(define-values"
 "(expand-single-once)"
-"(lambda(s_465 ns_45)"
+"(lambda(s_457 ns_83)"
 "(begin"
-"(let-values(((require-lifts_4 lifts_11 exp-s_7)"
+"(let-values(((require-lifts_4 lifts_11 exp-s_6)"
 "(expand-capturing-lifts"
-" s_465"
-"(let-values(((v_200)"
-"(let-values(((ns135_1) ns_45))"
-"(make-expand-context10.1 #f #f #f #f #f #f ns135_1))))"
-"(let-values(((the-struct_69) v_200))"
+" s_457"
+"(let-values(((v_126)(let-values(((ns121_0) ns_83))(make-expand-context10.1 #f #f #f ns121_0))))"
+"(let-values(((the-struct_69) v_126))"
 "(if(expand-context/outer? the-struct_69)"
-"(let-values(((inner136_0)"
-"(let-values(((the-struct_70)(root-expand-context/outer-inner v_200)))"
+"(let-values(((inner122_0)"
+"(let-values(((the-struct_70)(root-expand-context/outer-inner v_126)))"
 "(if(expand-context/inner? the-struct_70)"
-"(let-values(((just-once?137_0) #t))"
+"(let-values(((just-once?123_0) #t))"
 "(expand-context/inner2.1"
 "(root-expand-context/inner-self-mpi the-struct_70)"
 "(root-expand-context/inner-module-scopes the-struct_70)"
@@ -45713,7 +44821,7 @@ static const char *startup_source =
 "(expand-context/inner-to-parsed? the-struct_70)"
 "(expand-context/inner-phase the-struct_70)"
 "(expand-context/inner-namespace the-struct_70)"
-" just-once?137_0"
+" just-once?123_0"
 "(expand-context/inner-module-begin-k the-struct_70)"
 "(expand-context/inner-allow-unbound? the-struct_70)"
 "(expand-context/inner-in-local-expand? the-struct_70)"
@@ -45734,7 +44842,7 @@ static const char *startup_source =
 "                                              \"expand-context/inner?\""
 " the-struct_70)))))"
 "(expand-context/outer1.1"
-" inner136_0"
+" inner122_0"
 "(root-expand-context/outer-post-expansion-scope the-struct_69)"
 "(root-expand-context/outer-use-site-scopes the-struct_69)"
 "(root-expand-context/outer-frame-id the-struct_69)"
@@ -45751,20 +44859,20 @@ static const char *startup_source =
 "(expand-context/outer-name the-struct_69)))"
 "                           (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_69)))))))"
 "(if(if(null? require-lifts_4)(null? lifts_11) #f)"
-"(let-values() exp-s_7)"
+"(let-values() exp-s_6)"
 "(let-values()"
-"(let-values(((temp138_2)(append require-lifts_4 lifts_11))"
-"((exp-s139_0) exp-s_7)"
-"((temp140_1)(namespace-phase ns_45)))"
-"(wrap-lifts-as-begin16.1 #f #f #f #f temp138_2 exp-s139_0 temp140_1))))))))"
+"(let-values(((temp124_1)(append require-lifts_4 lifts_11))"
+"((exp-s125_0) exp-s_6)"
+"((temp126_1)(namespace-phase ns_83)))"
+"(wrap-lifts-as-begin16.1 unsafe-undefined unsafe-undefined temp124_1 exp-s125_0 temp126_1))))))))"
 "(define-values"
 "(expand-to-top-form$1)"
-"(let-values(((expand-to-top-form50_0)"
-"(lambda(s49_0 ns47_2 ns48_2)"
+"(let-values(((expand-to-top-form36_0)"
+"(lambda(s35_0 ns34_0)"
 "(begin"
-" 'expand-to-top-form50"
-"(let-values(((s_466) s49_0))"
-"(let-values(((ns_84)(if ns48_2 ns47_2(1/current-namespace))))"
+" 'expand-to-top-form36"
+"(let-values(((s_458) s35_0))"
+"(let-values(((ns_105)(if(eq? ns34_0 unsafe-undefined)(1/current-namespace) ns34_0)))"
 "(let-values()"
 "(let-values(((observer_4)(current-expand-observe)))"
 "(begin"
@@ -45776,311 +44884,160 @@ static const char *startup_source =
 " current-expand-observe"
 " #f)"
 "(let-values()"
-"(let-values(((s141_0) s_466)"
-"((ns142_0) ns_84)"
-"((temp143_2) #f)"
-"((temp144_0) #f)"
-"((observer145_0) observer_4))"
-"(per-top-level68.1"
+"(let-values(((s127_0) s_458)"
+"((ns128_0) ns_105)"
+"((temp129_1) #f)"
+"((temp130_0) #f)"
+"((observer131_0) observer_4))"
+"(per-top-level54.1"
 " #f"
 " #f"
+" observer131_0"
+" temp130_0"
 " #f"
+" temp129_1"
 " #f"
-" observer145_0"
-" temp144_0"
-" #t"
-" #f"
-" #f"
-" temp143_2"
-" #f"
-" #f"
-" s141_0"
-" ns142_0)))))))))))))"
+" s127_0"
+" ns128_0)))))))))))))"
 "(case-lambda"
-"((s_467)(begin 'expand-to-top-form(expand-to-top-form50_0 s_467 #f #f)))"
-"((s_468 ns47_3)(expand-to-top-form50_0 s_468 ns47_3 #t)))))"
+"((s_158)(begin 'expand-to-top-form(expand-to-top-form36_0 s_158 unsafe-undefined)))"
+"((s_459 ns34_1)(expand-to-top-form36_0 s_459 ns34_1)))))"
 "(define-values"
-"(per-top-level68.1)"
-"(lambda(combine53_0"
-" combine60_0"
-" just-once?55_0"
-" just-once?62_0"
-" observer58_0"
-" quick-immediate?56_0"
-" quick-immediate?63_0"
-" serializable?57_0"
-" serializable?64_0"
-" single52_0"
-" wrap54_0"
-" wrap61_0"
-" given-s66_0"
-" ns67_1)"
+"(per-top-level54.1)"
+"(lambda(combine39_0"
+" just-once?41_0"
+" observer44_0"
+" quick-immediate?42_0"
+" serializable?43_0"
+" single38_0"
+" wrap40_0"
+" given-s52_0"
+" ns53_2)"
 "(begin"
-" 'per-top-level68"
-"(let-values(((given-s_0) given-s66_0))"
-"(let-values(((ns_106) ns67_1))"
-"(let-values(((single_0) single52_0))"
-"(let-values(((combine_0)(if combine60_0 combine53_0 #f)))"
-"(let-values(((wrap_2)(if wrap61_0 wrap54_0 #f)))"
-"(let-values(((just-once?_1)(if just-once?62_0 just-once?55_0 #f)))"
-"(let-values(((quick-immediate?_0)(if quick-immediate?63_0 quick-immediate?56_0 #t)))"
-"(let-values(((serializable?_10)(if serializable?64_0 serializable?57_0 #f)))"
-"(let-values(((observer_5) observer58_0))"
+" 'per-top-level54"
+"(let-values(((given-s_0) given-s52_0))"
+"(let-values(((ns_106) ns53_2))"
+"(let-values(((single_0) single38_0))"
+"(let-values(((combine_0) combine39_0))"
+"(let-values(((wrap_2) wrap40_0))"
+"(let-values(((just-once?_1) just-once?41_0))"
+"(let-values(((quick-immediate?_0) quick-immediate?42_0))"
+"(let-values(((serializable?_10) serializable?43_0))"
+"(let-values(((observer_5) observer44_0))"
 "(let-values()"
-"(let-values(((s_469)(maybe-intro given-s_0 ns_106)))"
-"(let-values(((ctx_23)"
-"(let-values(((ns146_0) ns_106)((observer147_0) observer_5))"
-"(make-expand-context10.1 #f #f observer147_0 #t #f #f ns146_0))))"
-"(let-values(((phase_138)(namespace-phase ns_106)))"
-"((letrec-values(((loop_103)"
-"(lambda(s_103 phase_139 ns_107 as-tail?_7)"
+"(let-values(((s_216)(maybe-intro given-s_0 ns_106)))"
+"(let-values(((ctx_68)"
+"(let-values(((ns132_0) ns_106)((observer133_0) observer_5))"
+"(make-expand-context10.1 #f observer133_0 #f ns132_0))))"
+"(let-values(((phase_132)(namespace-phase ns_106)))"
+"((letrec-values(((loop_98)"
+"(lambda(s_460 phase_133 ns_107 as-tail?_7)"
 "(begin"
 " 'loop"
 "(let-values(((tl-ctx_0)"
-"(let-values(((v_130) ctx_23))"
-"(let-values(((the-struct_41) v_130))"
-"(if(expand-context/outer? the-struct_41)"
-"(let-values(((inner148_0)"
-"(let-values(((the-struct_71)"
+"(let-values(((v_197) ctx_68))"
+"(let-values(((the-struct_71) v_197))"
+"(if(expand-context/outer? the-struct_71)"
+"(let-values(((inner134_0)"
+"(let-values(((the-struct_72)"
 "(root-expand-context/outer-inner"
-" v_130)))"
+" v_197)))"
 "(if(expand-context/inner?"
-" the-struct_71)"
-"(let-values(((phase149_0)"
-" phase_139)"
-"((namespace150_0)"
+" the-struct_72)"
+"(let-values(((phase135_1)"
+" phase_133)"
+"((namespace136_0)"
 " ns_107)"
-"((just-once?151_0)"
+"((just-once?137_0)"
 " just-once?_1)"
-"((for-serializable?152_0)"
+"((for-serializable?138_0)"
 " serializable?_10))"
 "(expand-context/inner2.1"
 "(root-expand-context/inner-self-mpi"
-" the-struct_71)"
+" the-struct_72)"
 "(root-expand-context/inner-module-scopes"
-" the-struct_71)"
+" the-struct_72)"
 "(root-expand-context/inner-top-level-bind-scope"
-" the-struct_71)"
+" the-struct_72)"
 "(root-expand-context/inner-all-scopes-stx"
-" the-struct_71)"
+" the-struct_72)"
 "(root-expand-context/inner-defined-syms"
-" the-struct_71)"
+" the-struct_72)"
 "(root-expand-context/inner-counter"
-" the-struct_71)"
+" the-struct_72)"
 "(root-expand-context/inner-lift-key"
-" the-struct_71)"
+" the-struct_72)"
 "(expand-context/inner-to-parsed?"
-" the-struct_71)"
-" phase149_0"
-" namespace150_0"
-" just-once?151_0"
+" the-struct_72)"
+" phase135_1"
+" namespace136_0"
+" just-once?137_0"
 "(expand-context/inner-module-begin-k"
-" the-struct_71)"
+" the-struct_72)"
 "(expand-context/inner-allow-unbound?"
-" the-struct_71)"
+" the-struct_72)"
 "(expand-context/inner-in-local-expand?"
-" the-struct_71)"
+" the-struct_72)"
 "(expand-context/inner-keep-#%expression?"
-" the-struct_71)"
+" the-struct_72)"
 "(expand-context/inner-stops"
-" the-struct_71)"
+" the-struct_72)"
 "(expand-context/inner-declared-submodule-names"
-" the-struct_71)"
+" the-struct_72)"
 "(expand-context/inner-lifts"
-" the-struct_71)"
+" the-struct_72)"
 "(expand-context/inner-lift-envs"
-" the-struct_71)"
+" the-struct_72)"
 "(expand-context/inner-module-lifts"
-" the-struct_71)"
+" the-struct_72)"
 "(expand-context/inner-require-lifts"
-" the-struct_71)"
+" the-struct_72)"
 "(expand-context/inner-to-module-lifts"
-" the-struct_71)"
+" the-struct_72)"
 "(expand-context/inner-requires+provides"
-" the-struct_71)"
+" the-struct_72)"
 "(expand-context/inner-observer"
-" the-struct_71)"
-" for-serializable?152_0"
+" the-struct_72)"
+" for-serializable?138_0"
 "(expand-context/inner-should-not-encounter-macros?"
-" the-struct_71)))"
-"(raise-argument-error"
-" 'struct-copy"
-"                                                                                             \"expand-context/inner?\""
-" the-struct_71)))))"
-"(expand-context/outer1.1"
-" inner148_0"
-"(root-expand-context/outer-post-expansion-scope"
-" the-struct_41)"
-"(root-expand-context/outer-use-site-scopes"
-" the-struct_41)"
-"(root-expand-context/outer-frame-id"
-" the-struct_41)"
-"(expand-context/outer-context"
-" the-struct_41)"
-"(expand-context/outer-env the-struct_41)"
-"(expand-context/outer-post-expansion-scope-action"
-" the-struct_41)"
-"(expand-context/outer-scopes the-struct_41)"
-"(expand-context/outer-def-ctx-scopes"
-" the-struct_41)"
-"(expand-context/outer-binding-layer"
-" the-struct_41)"
-"(expand-context/outer-reference-records"
-" the-struct_41)"
-"(expand-context/outer-only-immediate?"
-" the-struct_41)"
-"(expand-context/outer-need-eventually-defined"
-" the-struct_41)"
-"(expand-context/outer-current-introduction-scopes"
-" the-struct_41)"
-"(expand-context/outer-name the-struct_41)))"
-"(raise-argument-error"
-" 'struct-copy"
-"                                                                           \"expand-context/outer?\""
-" the-struct_41))))))"
-"(let-values(((wb-s_0)(if just-once?_1 s_103 #f)))"
-"(let-values((()"
-"(begin"
-"(let-values(((obs_46)"
-"(expand-context-observer"
-" tl-ctx_0)))"
-"(if obs_46"
-"(let-values()"
-"(let-values()"
-"(call-expand-observe"
-" obs_46"
-" 'visit"
-" s_103)))"
-"(void)))"
-"(values))))"
-"(let-values(((require-lifts_5 lifts_12 exp-s_8)"
-"(expand-capturing-lifts"
-" s_103"
-"(let-values(((v_201) tl-ctx_0))"
-"(let-values(((the-struct_72) v_201))"
-"(if(expand-context/outer? the-struct_72)"
-"(let-values(((only-immediate?153_0)"
-" #t)"
-"((def-ctx-scopes154_0)"
-"(box null))"
-"((inner155_0)"
-"(let-values(((the-struct_73)"
-"(root-expand-context/outer-inner"
-" v_201)))"
-"(if(expand-context/inner?"
-" the-struct_73)"
-"(let-values(((phase156_0)"
-" phase_139)"
-"((namespace157_0)"
-" ns_107))"
-"(expand-context/inner2.1"
-"(root-expand-context/inner-self-mpi"
-" the-struct_73)"
-"(root-expand-context/inner-module-scopes"
-" the-struct_73)"
-"(root-expand-context/inner-top-level-bind-scope"
-" the-struct_73)"
-"(root-expand-context/inner-all-scopes-stx"
-" the-struct_73)"
-"(root-expand-context/inner-defined-syms"
-" the-struct_73)"
-"(root-expand-context/inner-counter"
-" the-struct_73)"
-"(root-expand-context/inner-lift-key"
-" the-struct_73)"
-"(expand-context/inner-to-parsed?"
-" the-struct_73)"
-" phase156_0"
-" namespace157_0"
-"(expand-context/inner-just-once?"
-" the-struct_73)"
-"(expand-context/inner-module-begin-k"
-" the-struct_73)"
-"(expand-context/inner-allow-unbound?"
-" the-struct_73)"
-"(expand-context/inner-in-local-expand?"
-" the-struct_73)"
-"(expand-context/inner-keep-#%expression?"
-" the-struct_73)"
-"(expand-context/inner-stops"
-" the-struct_73)"
-"(expand-context/inner-declared-submodule-names"
-" the-struct_73)"
-"(expand-context/inner-lifts"
-" the-struct_73)"
-"(expand-context/inner-lift-envs"
-" the-struct_73)"
-"(expand-context/inner-module-lifts"
-" the-struct_73)"
-"(expand-context/inner-require-lifts"
-" the-struct_73)"
-"(expand-context/inner-to-module-lifts"
-" the-struct_73)"
-"(expand-context/inner-requires+provides"
-" the-struct_73)"
-"(expand-context/inner-observer"
-" the-struct_73)"
-"(expand-context/inner-for-serializable?"
-" the-struct_73)"
-"(expand-context/inner-should-not-encounter-macros?"
-" the-struct_73)))"
-"(raise-argument-error"
-" 'struct-copy"
-"                                                                                                    \"expand-context/inner?\""
-" the-struct_73)))))"
-"(expand-context/outer1.1"
-" inner155_0"
-"(root-expand-context/outer-post-expansion-scope"
-" the-struct_72)"
-"(root-expand-context/outer-use-site-scopes"
-" the-struct_72)"
-"(root-expand-context/outer-frame-id"
-" the-struct_72)"
-"(expand-context/outer-context"
-" the-struct_72)"
-"(expand-context/outer-env"
-" the-struct_72)"
-"(expand-context/outer-post-expansion-scope-action"
-" the-struct_72)"
-"(expand-context/outer-scopes"
-" the-struct_72)"
-" def-ctx-scopes154_0"
-"(expand-context/outer-binding-layer"
-" the-struct_72)"
-"(expand-context/outer-reference-records"
-" the-struct_72)"
-" only-immediate?153_0"
-"(expand-context/outer-need-eventually-defined"
-" the-struct_72)"
-"(expand-context/outer-current-introduction-scopes"
-" the-struct_72)"
-"(expand-context/outer-name"
 " the-struct_72)))"
 "(raise-argument-error"
 " 'struct-copy"
-"                                                                                  \"expand-context/outer?\""
-" the-struct_72)))))))"
-"(let-values(((disarmed-exp-s_0)"
-"(syntax-disarm$1 exp-s_8)))"
-"(if(let-values(((or-part_301)"
-"(pair? require-lifts_5)))"
-"(if or-part_301 or-part_301(pair? lifts_12)))"
-"(let-values()"
-"(let-values(((new-s_3)"
-"(let-values(((temp158_0)"
-"(append"
-" require-lifts_5"
-" lifts_12))"
-"((exp-s159_0) exp-s_8)"
-"((phase160_0) phase_139))"
-"(wrap-lifts-as-begin16.1"
-" #f"
-" #f"
-" #f"
-" #f"
-" temp158_0"
-" exp-s159_0"
-" phase160_0))))"
+"                                                                                             \"expand-context/inner?\""
+" the-struct_72)))))"
+"(expand-context/outer1.1"
+" inner134_0"
+"(root-expand-context/outer-post-expansion-scope"
+" the-struct_71)"
+"(root-expand-context/outer-use-site-scopes"
+" the-struct_71)"
+"(root-expand-context/outer-frame-id"
+" the-struct_71)"
+"(expand-context/outer-context"
+" the-struct_71)"
+"(expand-context/outer-env the-struct_71)"
+"(expand-context/outer-post-expansion-scope-action"
+" the-struct_71)"
+"(expand-context/outer-scopes the-struct_71)"
+"(expand-context/outer-def-ctx-scopes"
+" the-struct_71)"
+"(expand-context/outer-binding-layer"
+" the-struct_71)"
+"(expand-context/outer-reference-records"
+" the-struct_71)"
+"(expand-context/outer-only-immediate?"
+" the-struct_71)"
+"(expand-context/outer-need-eventually-defined"
+" the-struct_71)"
+"(expand-context/outer-current-introduction-scopes"
+" the-struct_71)"
+"(expand-context/outer-name the-struct_71)))"
+"(raise-argument-error"
+" 'struct-copy"
+"                                                                           \"expand-context/outer?\""
+" the-struct_71))))))"
+"(let-values(((wb-s_0)(if just-once?_1 s_460 #f)))"
+"(let-values((()"
 "(begin"
 "(let-values(((obs_47)"
 "(expand-context-observer"
@@ -46090,18 +45047,136 @@ static const char *startup_source =
 "(let-values()"
 "(call-expand-observe"
 " obs_47"
-" 'lift-loop"
-" new-s_3)))"
+" 'visit"
+" s_460)))"
 "(void)))"
-"(if just-once?_1"
-" new-s_3"
-"(loop_103"
-" new-s_3"
-" phase_139"
-" ns_107"
-" as-tail?_7)))))"
-"(if(not single_0)"
+"(values))))"
+"(let-values(((require-lifts_5 lifts_12 exp-s_7)"
+"(expand-capturing-lifts"
+" s_460"
+"(let-values(((v_198) tl-ctx_0))"
+"(let-values(((the-struct_73) v_198))"
+"(if(expand-context/outer? the-struct_73)"
+"(let-values(((only-immediate?139_0)"
+" #t)"
+"((def-ctx-scopes140_0)"
+"(box null))"
+"((inner141_0)"
+"(let-values(((the-struct_16)"
+"(root-expand-context/outer-inner"
+" v_198)))"
+"(if(expand-context/inner?"
+" the-struct_16)"
+"(let-values(((phase142_0)"
+" phase_133)"
+"((namespace143_0)"
+" ns_107))"
+"(expand-context/inner2.1"
+"(root-expand-context/inner-self-mpi"
+" the-struct_16)"
+"(root-expand-context/inner-module-scopes"
+" the-struct_16)"
+"(root-expand-context/inner-top-level-bind-scope"
+" the-struct_16)"
+"(root-expand-context/inner-all-scopes-stx"
+" the-struct_16)"
+"(root-expand-context/inner-defined-syms"
+" the-struct_16)"
+"(root-expand-context/inner-counter"
+" the-struct_16)"
+"(root-expand-context/inner-lift-key"
+" the-struct_16)"
+"(expand-context/inner-to-parsed?"
+" the-struct_16)"
+" phase142_0"
+" namespace143_0"
+"(expand-context/inner-just-once?"
+" the-struct_16)"
+"(expand-context/inner-module-begin-k"
+" the-struct_16)"
+"(expand-context/inner-allow-unbound?"
+" the-struct_16)"
+"(expand-context/inner-in-local-expand?"
+" the-struct_16)"
+"(expand-context/inner-keep-#%expression?"
+" the-struct_16)"
+"(expand-context/inner-stops"
+" the-struct_16)"
+"(expand-context/inner-declared-submodule-names"
+" the-struct_16)"
+"(expand-context/inner-lifts"
+" the-struct_16)"
+"(expand-context/inner-lift-envs"
+" the-struct_16)"
+"(expand-context/inner-module-lifts"
+" the-struct_16)"
+"(expand-context/inner-require-lifts"
+" the-struct_16)"
+"(expand-context/inner-to-module-lifts"
+" the-struct_16)"
+"(expand-context/inner-requires+provides"
+" the-struct_16)"
+"(expand-context/inner-observer"
+" the-struct_16)"
+"(expand-context/inner-for-serializable?"
+" the-struct_16)"
+"(expand-context/inner-should-not-encounter-macros?"
+" the-struct_16)))"
+"(raise-argument-error"
+" 'struct-copy"
+"                                                                                                    \"expand-context/inner?\""
+" the-struct_16)))))"
+"(expand-context/outer1.1"
+" inner141_0"
+"(root-expand-context/outer-post-expansion-scope"
+" the-struct_73)"
+"(root-expand-context/outer-use-site-scopes"
+" the-struct_73)"
+"(root-expand-context/outer-frame-id"
+" the-struct_73)"
+"(expand-context/outer-context"
+" the-struct_73)"
+"(expand-context/outer-env"
+" the-struct_73)"
+"(expand-context/outer-post-expansion-scope-action"
+" the-struct_73)"
+"(expand-context/outer-scopes"
+" the-struct_73)"
+" def-ctx-scopes140_0"
+"(expand-context/outer-binding-layer"
+" the-struct_73)"
+"(expand-context/outer-reference-records"
+" the-struct_73)"
+" only-immediate?139_0"
+"(expand-context/outer-need-eventually-defined"
+" the-struct_73)"
+"(expand-context/outer-current-introduction-scopes"
+" the-struct_73)"
+"(expand-context/outer-name"
+" the-struct_73)))"
+"(raise-argument-error"
+" 'struct-copy"
+"                                                                                  \"expand-context/outer?\""
+" the-struct_73)))))))"
+"(let-values(((disarmed-exp-s_0)"
+"(syntax-disarm$1 exp-s_7)))"
+"(if(let-values(((or-part_298)"
+"(pair? require-lifts_5)))"
+"(if or-part_298 or-part_298(pair? lifts_12)))"
 "(let-values()"
+"(let-values(((new-s_3)"
+"(let-values(((temp144_1)"
+"(append"
+" require-lifts_5"
+" lifts_12))"
+"((exp-s145_0) exp-s_7)"
+"((phase146_0) phase_133))"
+"(wrap-lifts-as-begin16.1"
+" unsafe-undefined"
+" unsafe-undefined"
+" temp144_1"
+" exp-s145_0"
+" phase146_0))))"
 "(begin"
 "(let-values(((obs_48)"
 "(expand-context-observer"
@@ -46111,85 +45186,106 @@ static const char *startup_source =
 "(let-values()"
 "(call-expand-observe"
 " obs_48"
-" 'return"
-" exp-s_8)))"
+" 'lift-loop"
+" new-s_3)))"
 "(void)))"
-" exp-s_8))"
-"(if(if just-once?_1(not(eq? exp-s_8 wb-s_0)) #f)"
-"(let-values() exp-s_8)"
+"(if just-once?_1"
+" new-s_3"
+"(loop_98"
+" new-s_3"
+" phase_133"
+" ns_107"
+" as-tail?_7)))))"
+"(if(not single_0)"
 "(let-values()"
-"(let-values(((tmp_35)"
-"(core-form-sym"
-" disarmed-exp-s_0"
-" phase_139)))"
-"(if(equal? tmp_35 'begin)"
-"(let-values()"
-"(let-values((()"
 "(begin"
 "(let-values(((obs_49)"
 "(expand-context-observer"
-" ctx_23)))"
+" tl-ctx_0)))"
 "(if obs_49"
 "(let-values()"
 "(let-values()"
 "(call-expand-observe"
 " obs_49"
+" 'return"
+" exp-s_7)))"
+"(void)))"
+" exp-s_7))"
+"(if(if just-once?_1(not(eq? exp-s_7 wb-s_0)) #f)"
+"(let-values() exp-s_7)"
+"(let-values()"
+"(let-values(((tmp_35)"
+"(core-form-sym"
+" disarmed-exp-s_0"
+" phase_133)))"
+"(if(equal? tmp_35 'begin)"
+"(let-values()"
+"(let-values((()"
+"(begin"
+"(let-values(((obs_50)"
+"(expand-context-observer"
+" ctx_68)))"
+"(if obs_50"
+"(let-values()"
+"(let-values()"
+"(call-expand-observe"
+" obs_50"
 " 'prim-begin)))"
 "(void)))"
 "(values))))"
-"(let-values(((ok?_28 begin161_0 e162_0)"
-"(let-values(((s_470)"
+"(let-values(((ok?_29 begin147_0 e148_0)"
+"(let-values(((s_461)"
 " disarmed-exp-s_0))"
 "(let-values(((orig-s_33)"
-" s_470))"
-"(let-values(((begin161_1"
-" e162_1)"
-"(let-values(((s_227)"
+" s_461))"
+"(let-values(((begin147_1"
+" e148_1)"
+"(let-values(((s_462)"
 "(if(syntax?$1"
-" s_470)"
+" s_461)"
 "(syntax-e$1"
-" s_470)"
-" s_470)))"
+" s_461)"
+" s_461)))"
 "(if(pair?"
-" s_227)"
-"(let-values(((begin163_0)"
-"(let-values(((s_471)"
+" s_462)"
+"(let-values(((begin149_0)"
+"(let-values(((s_437)"
 "(car"
-" s_227)))"
-" s_471))"
-"((e164_0)"
-"(let-values(((s_229)"
+" s_462)))"
+" s_437))"
+"((e150_0)"
+"(let-values(((s_224)"
 "(cdr"
-" s_227)))"
-"(let-values(((s_230)"
+" s_462)))"
+"(let-values(((s_427)"
 "(if(syntax?$1"
-" s_229)"
+" s_224)"
 "(syntax-e$1"
-" s_229)"
-" s_229)))"
-"(let-values(((flat-s_20)"
+" s_224)"
+" s_224)))"
+"(let-values(((flat-s_21)"
 "(to-syntax-list.1"
-" s_230)))"
+" s_427)))"
 "(if(not"
-" flat-s_20)"
+" flat-s_21)"
 "(let-values()"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                             \"bad syntax\""
 " orig-s_33))"
 "(let-values()"
-" flat-s_20)))))))"
+" flat-s_21)))))))"
 "(values"
-" begin163_0"
-" e164_0))"
+" begin149_0"
+" e150_0))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                     \"bad syntax\""
 " orig-s_33)))))"
 "(values"
 " #t"
-" begin161_1"
-" e162_1))))))"
+" begin147_1"
+" e148_1))))))"
 "(letrec-values(((begin-loop_0)"
 "(lambda(es_2)"
 "(begin"
@@ -46206,38 +45302,38 @@ static const char *startup_source =
 " es_2))"
 " #f)"
 "(let-values()"
-"(loop_103"
+"(loop_98"
 "(car es_2)"
-" phase_139"
+" phase_133"
 " ns_107"
 " as-tail?_7))"
 "(let-values()"
 "(let-values((()"
 "(begin"
-"(let-values(((obs_50)"
+"(let-values(((obs_42)"
 "(expand-context-observer"
 " tl-ctx_0)))"
-"(if obs_50"
+"(if obs_42"
 "(let-values()"
 "(let-values()"
 "(call-expand-observe"
-" obs_50"
+" obs_42"
 " 'next)))"
 "(void)))"
 "(values))))"
 "(let-values(((a_63)"
 "(if combine_0"
-"(loop_103"
+"(loop_98"
 "(car"
 " es_2)"
-" phase_139"
+" phase_133"
 " ns_107"
 " #f)"
 "(begin"
-"(loop_103"
+"(loop_98"
 "(car"
 " es_2)"
-" phase_139"
+" phase_133"
 " ns_107"
 " #f)"
 "(void)))))"
@@ -46254,10 +45350,10 @@ static const char *startup_source =
 "(let-values()"
 "(let-values(((new-s_4)"
 "(wrap_2"
-" begin161_0"
-" exp-s_8"
+" begin147_0"
+" exp-s_7"
 "(begin-loop_0"
-" e162_0))))"
+" e148_0))))"
 "(begin"
 "(let-values(((obs_51)"
 "(expand-context-observer"
@@ -46272,7 +45368,7 @@ static const char *startup_source =
 "(void)))"
 " new-s_4)))"
 "(let-values()"
-"(begin-loop_0 e162_0)))))))"
+"(begin-loop_0 e148_0)))))))"
 "(if(equal? tmp_35 'begin-for-syntax)"
 "(let-values()"
 "(let-values((()"
@@ -46288,63 +45384,63 @@ static const char *startup_source =
 " 'prim-begin-for-syntax)))"
 "(void)))"
 "(values))))"
-"(let-values(((ok?_29"
-" begin-for-syntax165_0"
-" e166_0)"
-"(let-values(((s_127)"
+"(let-values(((ok?_30"
+" begin-for-syntax151_0"
+" e152_0)"
+"(let-values(((s_123)"
 " disarmed-exp-s_0))"
 "(let-values(((orig-s_34)"
-" s_127))"
-"(let-values(((begin-for-syntax165_1"
-" e166_1)"
-"(let-values(((s_472)"
+" s_123))"
+"(let-values(((begin-for-syntax151_1"
+" e152_1)"
+"(let-values(((s_463)"
 "(if(syntax?$1"
-" s_127)"
+" s_123)"
 "(syntax-e$1"
-" s_127)"
-" s_127)))"
+" s_123)"
+" s_123)))"
 "(if(pair?"
-" s_472)"
-"(let-values(((begin-for-syntax167_0)"
-"(let-values(((s_129)"
+" s_463)"
+"(let-values(((begin-for-syntax153_0)"
+"(let-values(((s_464)"
 "(car"
-" s_472)))"
-" s_129))"
-"((e168_0)"
-"(let-values(((s_473)"
+" s_463)))"
+" s_464))"
+"((e154_0)"
+"(let-values(((s_465)"
 "(cdr"
-" s_472)))"
-"(let-values(((s_232)"
+" s_463)))"
+"(let-values(((s_466)"
 "(if(syntax?$1"
-" s_473)"
+" s_465)"
 "(syntax-e$1"
-" s_473)"
-" s_473)))"
-"(let-values(((flat-s_21)"
+" s_465)"
+" s_465)))"
+"(let-values(((flat-s_22)"
 "(to-syntax-list.1"
-" s_232)))"
+" s_466)))"
 "(if(not"
-" flat-s_21)"
+" flat-s_22)"
 "(let-values()"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                               \"bad syntax\""
 " orig-s_34))"
 "(let-values()"
-" flat-s_21)))))))"
+" flat-s_22)))))))"
 "(values"
-" begin-for-syntax167_0"
-" e168_0))"
+" begin-for-syntax153_0"
+" e154_0))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                       \"bad syntax\""
 " orig-s_34)))))"
 "(values"
 " #t"
-" begin-for-syntax165_1"
-" e166_1))))))"
+" begin-for-syntax151_1"
+" e152_1))))))"
 "(let-values(((next-phase_0)"
-"(add1 phase_139)))"
+"(add1 phase_133)))"
 "(let-values(((next-ns_0)"
 "(namespace->namespace-at-phase"
 " ns_107"
@@ -46375,34 +45471,34 @@ static const char *startup_source =
 "(namespace-visit-available-modules!"
 " next-ns_0)"
 "(values))))"
-"(let-values(((l_74)"
+"(let-values(((l_72)"
 "(reverse$1"
-"(let-values(((lst_301)"
-" e166_0))"
+"(let-values(((lst_206)"
+" e152_0))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
 "(#%variable-reference))"
 "(void)"
 "(let-values()"
 "(check-list"
-" lst_301)))"
-"((letrec-values(((for-loop_272)"
-"(lambda(fold-var_278"
-" lst_302)"
+" lst_206)))"
+"((letrec-values(((for-loop_137)"
+"(lambda(fold-var_271"
+" lst_2)"
 "(begin"
 " 'for-loop"
 "(if(pair?"
-" lst_302)"
-"(let-values(((s_474)"
+" lst_2)"
+"(let-values(((s_467)"
 "(unsafe-car"
-" lst_302))"
-"((rest_168)"
+" lst_2))"
+"((rest_174)"
 "(unsafe-cdr"
-" lst_302)))"
-"(let-values(((fold-var_279)"
-"(let-values(((fold-var_280)"
-" fold-var_278))"
-"(let-values(((fold-var_281)"
+" lst_2)))"
+"(let-values(((fold-var_272)"
+"(let-values(((fold-var_201)"
+" fold-var_271))"
+"(let-values(((fold-var_202)"
 "(let-values()"
 "(cons"
 "(let-values()"
@@ -46417,31 +45513,31 @@ static const char *startup_source =
 " obs_54"
 " 'next)))"
 "(void)))"
-"(loop_103"
-" s_474"
+"(loop_98"
+" s_467"
 " next-phase_0"
 " next-ns_0"
 " #f)))"
-" fold-var_280))))"
+" fold-var_201))))"
 "(values"
-" fold-var_281)))))"
+" fold-var_202)))))"
 "(if(not"
 " #f)"
-"(for-loop_272"
-" fold-var_279"
-" rest_168)"
-" fold-var_279)))"
-" fold-var_278)))))"
-" for-loop_272)"
+"(for-loop_137"
+" fold-var_272"
+" rest_174)"
+" fold-var_272)))"
+" fold-var_271)))))"
+" for-loop_137)"
 " null"
-" lst_301))))))"
+" lst_206))))))"
 "(if wrap_2"
 "(let-values()"
 "(let-values(((new-s_5)"
 "(wrap_2"
-" begin-for-syntax165_0"
-" exp-s_8"
-" l_74)))"
+" begin-for-syntax151_0"
+" exp-s_7"
+" l_72)))"
 "(begin"
 "(let-values(((obs_55)"
 "(expand-context-observer"
@@ -46459,54 +45555,54 @@ static const char *startup_source =
 "(let-values()"
 "(apply"
 " append"
-" l_74))"
+" l_72))"
 "(let-values()"
 "(void)))))))))))))"
 "(let-values()"
 "(single_0"
-" exp-s_8"
+" exp-s_7"
 " ns_107"
 " as-tail?_7))))))))))))))))))"
-" loop_103)"
-" s_469"
-" phase_138"
+" loop_98)"
+" s_216"
+" phase_132"
 " ns_106"
 " #t)))))))))))))))))"
 "(define-values"
 "(maybe-intro)"
-"(lambda(s_475 ns_108)"
-"(begin(if(syntax?$1 s_475) s_475(1/namespace-syntax-introduce(1/datum->syntax #f s_475) ns_108)))))"
+"(lambda(s_341 ns_108)"
+"(begin(if(syntax?$1 s_341) s_341(1/namespace-syntax-introduce(1/datum->syntax #f s_341) ns_108)))))"
 "(define-values"
 "(re-pair)"
-"(lambda(form-id_0 s_244 r_44)"
-"(begin(syntax-rearm$1(1/datum->syntax(syntax-disarm$1 s_244)(cons form-id_0 r_44) s_244 s_244) s_244))))"
+"(lambda(form-id_0 s_238 r_44)"
+"(begin(syntax-rearm$1(1/datum->syntax(syntax-disarm$1 s_238)(cons form-id_0 r_44) s_238 s_238) s_238))))"
 "(define-values"
 "(expand-capturing-lifts)"
-"(lambda(s_246 ctx_69)"
+"(lambda(s_344 ctx_27)"
 "(begin"
 "(let-values()"
-"(let-values(((ns_109)(expand-context-namespace ctx_69)))"
+"(let-values(((ns_109)(expand-context-namespace ctx_27)))"
 "(let-values((()(begin(namespace-visit-available-modules! ns_109)(values))))"
 "(let-values(((lift-ctx_6)"
-"(let-values(((temp169_0)(make-top-level-lift ctx_69)))"
-"(make-lift-context6.1 #f #f temp169_0))))"
+"(let-values(((temp155_1)(make-top-level-lift ctx_27)))"
+"(make-lift-context6.1 #f temp155_1))))"
 "(let-values(((require-lift-ctx_2)"
 "(make-require-lift-context"
 "(namespace-phase ns_109)"
 "(make-parse-top-lifted-require ns_109))))"
-"(let-values(((exp-s_9)"
-"(let-values(((s170_0) s_246)"
-"((temp171_2)"
-"(let-values(((v_202) ctx_69))"
-"(let-values(((the-struct_74) v_202))"
+"(let-values(((exp-s_8)"
+"(let-values(((s156_0) s_344)"
+"((temp157_0)"
+"(let-values(((v_199) ctx_27))"
+"(let-values(((the-struct_74) v_199))"
 "(if(expand-context/outer? the-struct_74)"
-"(let-values(((inner172_0)"
+"(let-values(((inner158_0)"
 "(let-values(((the-struct_75)"
-"(root-expand-context/outer-inner v_202)))"
+"(root-expand-context/outer-inner v_199)))"
 "(if(expand-context/inner? the-struct_75)"
-"(let-values(((lifts173_0) lift-ctx_6)"
-"((module-lifts174_0) lift-ctx_6)"
-"((require-lifts175_0)"
+"(let-values(((lifts159_0) lift-ctx_6)"
+"((module-lifts160_0) lift-ctx_6)"
+"((require-lifts161_0)"
 " require-lift-ctx_2))"
 "(expand-context/inner2.1"
 "(root-expand-context/inner-self-mpi"
@@ -46537,10 +45633,10 @@ static const char *startup_source =
 "(expand-context/inner-stops the-struct_75)"
 "(expand-context/inner-declared-submodule-names"
 " the-struct_75)"
-" lifts173_0"
+" lifts159_0"
 "(expand-context/inner-lift-envs the-struct_75)"
-" module-lifts174_0"
-" require-lifts175_0"
+" module-lifts160_0"
+" require-lifts161_0"
 "(expand-context/inner-to-module-lifts"
 " the-struct_75)"
 "(expand-context/inner-requires+provides"
@@ -46555,7 +45651,7 @@ static const char *startup_source =
 "                                                                     \"expand-context/inner?\""
 " the-struct_75)))))"
 "(expand-context/outer1.1"
-" inner172_0"
+" inner158_0"
 "(root-expand-context/outer-post-expansion-scope the-struct_74)"
 "(root-expand-context/outer-use-site-scopes the-struct_74)"
 "(root-expand-context/outer-frame-id the-struct_74)"
@@ -46574,138 +45670,129 @@ static const char *startup_source =
 " 'struct-copy"
 "                                                   \"expand-context/outer?\""
 " the-struct_74))))))"
-"(expand9.1 #f #f #f #f #f #f s170_0 temp171_2))))"
+"(expand9.1 #f #f #f s156_0 temp157_0))))"
 "(values"
 "(get-and-clear-require-lifts! require-lift-ctx_2)"
 "(get-and-clear-lifts! lift-ctx_6)"
-" exp-s_9))))))))))"
+" exp-s_8))))))))))"
 "(define-values"
 "(make-parse-top-lifted-require)"
 "(lambda(ns_110)"
 "(begin"
-"(lambda(s_476 phase_140)"
-"(let-values(((ok?_30 #%require176_0 req177_0)"
-"(let-values(((s_477)(syntax-disarm$1 s_476)))"
-"(let-values(((orig-s_35) s_477))"
-"(let-values(((#%require176_1 req177_1)"
-"(let-values(((s_355)(if(syntax?$1 s_477)(syntax-e$1 s_477) s_477)))"
-"(if(pair? s_355)"
-"(let-values(((#%require178_0)(let-values(((s_358)(car s_355))) s_358))"
-"((req179_0)"
-"(let-values(((s_359)(cdr s_355)))"
-"(let-values(((s_251)"
-"(if(syntax?$1 s_359)"
-"(syntax-e$1 s_359)"
-" s_359)))"
-"(if(pair? s_251)"
-"(let-values(((req180_0)"
-"(let-values(((s_478)(car s_251)))"
-" s_478))"
+"(lambda(s_348 phase_134)"
+"(let-values(((ok?_31 #%require162_0 req163_0)"
+"(let-values(((s_468)(syntax-disarm$1 s_348)))"
+"(let-values(((orig-s_35) s_468))"
+"(let-values(((#%require162_1 req163_1)"
+"(let-values(((s_469)(if(syntax?$1 s_468)(syntax-e$1 s_468) s_468)))"
+"(if(pair? s_469)"
+"(let-values(((#%require164_0)(let-values(((s_470)(car s_469))) s_470))"
+"((req165_0)"
+"(let-values(((s_471)(cdr s_469)))"
+"(let-values(((s_472)"
+"(if(syntax?$1 s_471)"
+"(syntax-e$1 s_471)"
+" s_471)))"
+"(if(pair? s_472)"
+"(let-values(((req166_0)"
+"(let-values(((s_473)(car s_472)))"
+" s_473))"
 "(()"
-"(let-values(((s_361)(cdr s_251)))"
-"(let-values(((s_362)"
-"(if(syntax?$1 s_361)"
-"(syntax-e$1 s_361)"
-" s_361)))"
-"(if(null? s_362)"
+"(let-values(((s_474)(cdr s_472)))"
+"(let-values(((s_475)"
+"(if(syntax?$1 s_474)"
+"(syntax-e$1 s_474)"
+" s_474)))"
+"(if(null? s_475)"
 "(values)"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                     \"bad syntax\""
 " orig-s_35))))))"
-"(values req180_0))"
+"(values req166_0))"
 "                                                                (raise-syntax-error$1 #f \"bad syntax\" orig-s_35))))))"
-"(values #%require178_0 req179_0))"
+"(values #%require164_0 req165_0))"
 "                                            (raise-syntax-error$1 #f \"bad syntax\" orig-s_35)))))"
-"(values #t #%require176_1 req177_1))))))"
-"(let-values(((temp181_0)(list req177_0))"
-"((s182_1) s_476)"
-"((ns183_0) ns_110)"
-"((phase184_1) phase_140)"
-"((phase185_0) phase_140)"
-"((temp186_0)(let-values(((temp188_0) #f))(make-requires+provides8.1 #f #f temp188_0)))"
-"((temp187_0) 'require))"
+"(values #t #%require162_1 req163_1))))))"
+"(let-values(((temp167_0)(list req163_0))"
+"((s168_0) s_348)"
+"((ns169_0) ns_110)"
+"((phase170_0) phase_134)"
+"((phase171_0) phase_134)"
+"((temp172_0)(let-values(((temp174_0) #f))(make-requires+provides8.1 #f temp174_0)))"
+"((temp173_0) 'require))"
 "(parse-and-perform-requires!30.1"
 " #f"
 " #f"
+" unsafe-undefined"
+" #f"
+" phase171_0"
 " #f"
 " #f"
 " #f"
-" #f"
-" #f"
-" #f"
-" phase185_0"
 " #t"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" temp187_0"
-" temp181_0"
-" s182_1"
-" ns183_0"
-" phase184_1"
-" temp186_0)))))))"
+" temp173_0"
+" temp167_0"
+" s168_0"
+" ns169_0"
+" phase170_0"
+" temp172_0)))))))"
 "(define-values"
-"(wrap-lifts-as-lifted-parsed-begin77.1)"
-"(lambda(adjust-form71_0 require-lifts73_0 lifts74_0 exp-s75_0 rebuild-s76_0)"
+"(wrap-lifts-as-lifted-parsed-begin63.1)"
+"(lambda(adjust-form57_0 require-lifts59_0 lifts60_0 exp-s61_0 rebuild-s62_0)"
 "(begin"
-" 'wrap-lifts-as-lifted-parsed-begin77"
-"(let-values(((require-lifts_6) require-lifts73_0))"
-"(let-values(((lifts_13) lifts74_0))"
-"(let-values(((exp-s_10) exp-s75_0))"
-"(let-values(((rebuild-s_3) rebuild-s76_0))"
-"(let-values(((adjust-form_1) adjust-form71_0))"
+" 'wrap-lifts-as-lifted-parsed-begin63"
+"(let-values(((require-lifts_6) require-lifts59_0))"
+"(let-values(((lifts_13) lifts60_0))"
+"(let-values(((exp-s_9) exp-s61_0))"
+"(let-values(((rebuild-s_3) rebuild-s62_0))"
+"(let-values(((adjust-form_1) adjust-form57_0))"
 "(let-values()"
-"(lifted-parsed-begin30.1"
+"(lifted-parsed-begin22.1"
 "(append"
 "(reverse$1"
-"(let-values(((lst_303) require-lifts_6))"
+"(let-values(((lst_300) require-lifts_6))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
-"(let-values()(check-list lst_303)))"
-"((letrec-values(((for-loop_273)"
-"(lambda(fold-var_282 lst_304)"
+"(let-values()(check-list lst_300)))"
+"((letrec-values(((for-loop_268)"
+"(lambda(fold-var_273 lst_145)"
 "(begin"
 " 'for-loop"
-"(if(pair? lst_304)"
-"(let-values(((req_19)(unsafe-car lst_304))"
-"((rest_169)(unsafe-cdr lst_304)))"
-"(let-values(((fold-var_283)"
-"(let-values(((fold-var_284) fold-var_282))"
-"(let-values(((fold-var_285)"
+"(if(pair? lst_145)"
+"(let-values(((req_19)(unsafe-car lst_145))"
+"((rest_175)(unsafe-cdr lst_145)))"
+"(let-values(((fold-var_274)"
+"(let-values(((fold-var_275) fold-var_273))"
+"(let-values(((fold-var_276)"
 "(let-values()"
 "(cons"
 "(let-values()"
 "(parsed-require23.1 req_19))"
-" fold-var_284))))"
-"(values fold-var_285)))))"
-"(if(not #f)(for-loop_273 fold-var_283 rest_169) fold-var_283)))"
-" fold-var_282)))))"
-" for-loop_273)"
+" fold-var_275))))"
+"(values fold-var_276)))))"
+"(if(not #f)(for-loop_268 fold-var_274 rest_175) fold-var_274)))"
+" fold-var_273)))))"
+" for-loop_268)"
 " null"
-" lst_303))))"
+" lst_300))))"
 "(reverse$1"
-"(let-values(((lst_305)(get-lifts-as-lists lifts_13)))"
+"(let-values(((lst_301)(get-lifts-as-lists lifts_13)))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
-"(let-values()(check-list lst_305)))"
-"((letrec-values(((for-loop_274)"
-"(lambda(fold-var_286 lst_306)"
+"(let-values()(check-list lst_301)))"
+"((letrec-values(((for-loop_269)"
+"(lambda(fold-var_277 lst_302)"
 "(begin"
 " 'for-loop"
-"(if(pair? lst_306)"
-"(let-values(((ids+syms+rhs_0)(unsafe-car lst_306))"
-"((rest_170)(unsafe-cdr lst_306)))"
-"(let-values(((fold-var_287)"
-"(let-values(((fold-var_288) fold-var_286))"
-"(let-values(((fold-var_289)"
+"(if(pair? lst_302)"
+"(let-values(((ids+syms+rhs_0)(unsafe-car lst_302))"
+"((rest_176)(unsafe-cdr lst_302)))"
+"(let-values(((fold-var_278)"
+"(let-values(((fold-var_279) fold-var_277))"
+"(let-values(((fold-var_280)"
 "(let-values()"
 "(cons"
 "(let-values()"
@@ -46733,156 +45820,164 @@ static const char *startup_source =
 " exp-rhs_3))"
 "(if(lifted-parsed-begin?"
 " the-struct_76)"
-"(let-values(((last189_0)"
+"(let-values(((last175_0)"
 " dv_0))"
-"(lifted-parsed-begin30.1"
+"(lifted-parsed-begin22.1"
 "(lifted-parsed-begin-seq"
 " the-struct_76)"
-" last189_0))"
+" last175_0))"
 "(raise-argument-error"
 " 'struct-copy"
 "                                                                                                   \"lifted-parsed-begin?\""
 " the-struct_76)))"
 " dv_0)))))"
-" fold-var_288))))"
-"(values fold-var_289)))))"
-"(if(not #f)(for-loop_274 fold-var_287 rest_170) fold-var_287)))"
-" fold-var_286)))))"
-" for-loop_274)"
+" fold-var_279))))"
+"(values fold-var_280)))))"
+"(if(not #f)(for-loop_269 fold-var_278 rest_176) fold-var_278)))"
+" fold-var_277)))))"
+" for-loop_269)"
 " null"
-" lst_305)))))"
-" exp-s_10))))))))))"
+" lst_301)))))"
+" exp-s_9))))))))))"
 "(define-values"
 "(log-top-lift-begin-before)"
-"(lambda(ctx_70 require-lifts_7 lifts_14 exp-s_11 ns_111)"
+"(lambda(ctx_69 require-lifts_7 lifts_14 exp-s_10 ns_111)"
 "(begin"
-"(let-values(((obs_56)(expand-context-observer ctx_70)))"
+"(let-values(((obs_56)(expand-context-observer ctx_69)))"
 "(if obs_56"
 "(let-values()"
 "(let-values(((new-s_6)"
-"(let-values(((temp190_0)(append require-lifts_7 lifts_14))"
-"((exp-s191_0) exp-s_11)"
-"((temp192_0)(namespace-phase ns_111)))"
-"(wrap-lifts-as-begin16.1 #f #f #f #f temp190_0 exp-s191_0 temp192_0))))"
-"(begin(call-expand-observe obs_56 'lift-loop new-s_6)(log-top-begin-before ctx_70 new-s_6))))"
+"(let-values(((temp176_1)(append require-lifts_7 lifts_14))"
+"((exp-s177_0) exp-s_10)"
+"((temp178_0)(namespace-phase ns_111)))"
+"(wrap-lifts-as-begin16.1"
+" unsafe-undefined"
+" unsafe-undefined"
+" temp176_1"
+" exp-s177_0"
+" temp178_0))))"
+"(begin(call-expand-observe obs_56 'lift-loop new-s_6)(log-top-begin-before ctx_69 new-s_6))))"
 "(void))))))"
 "(define-values"
 "(log-top-begin-before)"
-"(lambda(ctx_71 new-s_7)"
+"(lambda(ctx_70 new-s_7)"
 "(begin"
-"(let-values(((obs_57)(expand-context-observer ctx_71)))"
+"(let-values(((obs_57)(expand-context-observer ctx_70)))"
 "(if obs_57"
 "(let-values()"
-"(let-values(((ok?_31 begin193_0 e194_0)"
-"(let-values(((s_479) new-s_7))"
-"(let-values(((orig-s_36) s_479))"
-"(let-values(((begin193_1 e194_1)"
-"(let-values(((s_393)(if(syntax?$1 s_479)(syntax-e$1 s_479) s_479)))"
-"(if(pair? s_393)"
-"(let-values(((begin195_0)(let-values(((s_395)(car s_393))) s_395))"
-"((e196_0)"
-"(let-values(((s_396)(cdr s_393)))"
-"(let-values(((s_397)"
-"(if(syntax?$1 s_396)"
-"(syntax-e$1 s_396)"
-" s_396)))"
-"(let-values(((flat-s_22)(to-syntax-list.1 s_397)))"
-"(if(not flat-s_22)"
-"(let-values()"
-"(raise-syntax-error$1"
-" #f"
-"                                                                         \"bad syntax\""
-" orig-s_36))"
-"(let-values() flat-s_22)))))))"
-"(values begin195_0 e196_0))"
-"                                                (raise-syntax-error$1 #f \"bad syntax\" orig-s_36)))))"
-"(values #t begin193_1 e194_1))))))"
-"(begin"
-"(call-expand-observe obs_57 'visit new-s_7)"
-"(call-expand-observe obs_57 'resolve begin193_0)"
-"(call-expand-observe obs_57 'enter-prim new-s_7)"
-"(call-expand-observe obs_57 'prim-begin)"
-"(call-expand-observe obs_57 'enter-list(1/datum->syntax #f e194_0 new-s_7)))))"
-"(void))))))"
-"(define-values"
-"(log-top-begin-after)"
-"(lambda(ctx_72 new-s_8)"
-"(begin"
-"(let-values(((obs_58)(expand-context-observer ctx_72)))"
-"(if obs_58"
-"(let-values()"
-"(let-values(((ok?_32 begin197_0 e198_0)"
-"(let-values(((s_480) new-s_8))"
-"(let-values(((orig-s_37) s_480))"
-"(let-values(((begin197_1 e198_1)"
-"(let-values(((s_481)(if(syntax?$1 s_480)(syntax-e$1 s_480) s_480)))"
-"(if(pair? s_481)"
-"(let-values(((begin199_0)(let-values(((s_141)(car s_481))) s_141))"
-"((e200_0)"
-"(let-values(((s_407)(cdr s_481)))"
-"(let-values(((s_482)"
-"(if(syntax?$1 s_407)"
-"(syntax-e$1 s_407)"
-" s_407)))"
-"(let-values(((flat-s_23)(to-syntax-list.1 s_482)))"
+"(let-values(((ok?_32 begin179_0 e180_0)"
+"(let-values(((s_134) new-s_7))"
+"(let-values(((orig-s_36) s_134))"
+"(let-values(((begin179_1 e180_1)"
+"(let-values(((s_476)(if(syntax?$1 s_134)(syntax-e$1 s_134) s_134)))"
+"(if(pair? s_476)"
+"(let-values(((begin181_0)(let-values(((s_477)(car s_476))) s_477))"
+"((e182_0)"
+"(let-values(((s_478)(cdr s_476)))"
+"(let-values(((s_479)"
+"(if(syntax?$1 s_478)"
+"(syntax-e$1 s_478)"
+" s_478)))"
+"(let-values(((flat-s_23)(to-syntax-list.1 s_479)))"
 "(if(not flat-s_23)"
 "(let-values()"
 "(raise-syntax-error$1"
 " #f"
 "                                                                         \"bad syntax\""
-" orig-s_37))"
+" orig-s_36))"
 "(let-values() flat-s_23)))))))"
-"(values begin199_0 e200_0))"
+"(values begin181_0 e182_0))"
+"                                                (raise-syntax-error$1 #f \"bad syntax\" orig-s_36)))))"
+"(values #t begin179_1 e180_1))))))"
+"(begin"
+"(call-expand-observe obs_57 'visit new-s_7)"
+"(call-expand-observe obs_57 'resolve begin179_0)"
+"(call-expand-observe obs_57 'enter-prim new-s_7)"
+"(call-expand-observe obs_57 'prim-begin)"
+"(call-expand-observe obs_57 'enter-list(1/datum->syntax #f e180_0 new-s_7)))))"
+"(void))))))"
+"(define-values"
+"(log-top-begin-after)"
+"(lambda(ctx_71 new-s_8)"
+"(begin"
+"(let-values(((obs_58)(expand-context-observer ctx_71)))"
+"(if obs_58"
+"(let-values()"
+"(let-values(((ok?_33 begin183_0 e184_0)"
+"(let-values(((s_136) new-s_8))"
+"(let-values(((orig-s_37) s_136))"
+"(let-values(((begin183_1 e184_1)"
+"(let-values(((s_480)(if(syntax?$1 s_136)(syntax-e$1 s_136) s_136)))"
+"(if(pair? s_480)"
+"(let-values(((begin185_0)(let-values(((s_138)(car s_480))) s_138))"
+"((e186_0)"
+"(let-values(((s_481)(cdr s_480)))"
+"(let-values(((s_482)"
+"(if(syntax?$1 s_481)"
+"(syntax-e$1 s_481)"
+" s_481)))"
+"(let-values(((flat-s_24)(to-syntax-list.1 s_482)))"
+"(if(not flat-s_24)"
+"(let-values()"
+"(raise-syntax-error$1"
+" #f"
+"                                                                         \"bad syntax\""
+" orig-s_37))"
+"(let-values() flat-s_24)))))))"
+"(values begin185_0 e186_0))"
 "                                                (raise-syntax-error$1 #f \"bad syntax\" orig-s_37)))))"
-"(values #t begin197_1 e198_1))))))"
-"(let-values(((obs_59)(expand-context-observer ctx_72)))"
+"(values #t begin183_1 e184_1))))))"
+"(let-values(((obs_59)(expand-context-observer ctx_71)))"
 "(if obs_59"
 "(let-values()"
 "(let-values()"
 "(begin"
-"(call-expand-observe obs_59 'exit-list(1/datum->syntax #f e198_0 new-s_8))"
+"(call-expand-observe obs_59 'exit-list(1/datum->syntax #f e184_0 new-s_8))"
 "(call-expand-observe obs_59 'exit-prim new-s_8)"
 "(call-expand-observe obs_59 'return new-s_8))))"
 "(void)))))"
 "(void))))))"
 "(define-values"
 "(do-dynamic-require)"
-"(let-values(((do-dynamic-require6_0)"
-"(lambda(who3_0 mod-path4_0 sym5_0 fail-k1_0 fail-k2_0)"
+"(let-values(((do-dynamic-require5_0)"
+"(lambda(who2_0 mod-path3_1 sym4_0 fail-k1_0)"
 "(begin"
-" 'do-dynamic-require6"
-"(let-values(((who_25) who3_0))"
-"(let-values(((mod-path_5) mod-path4_0))"
-"(let-values(((sym_85) sym5_0))"
-"(let-values(((fail-k_2)(if fail-k2_0 fail-k1_0 default-dynamic-require-fail-thunk)))"
+" 'do-dynamic-require5"
+"(let-values(((who_24) who2_0))"
+"(let-values(((mod-path_5) mod-path3_1))"
+"(let-values(((sym_70) sym4_0))"
+"(let-values(((fail-k_2)"
+"(if(eq? fail-k1_0 unsafe-undefined)"
+" default-dynamic-require-fail-thunk"
+" fail-k1_0)))"
 "(let-values()"
 "(let-values((()"
 "(begin"
-"(if(let-values(((or-part_3)(1/module-path? mod-path_5)))"
-"(if or-part_3"
-" or-part_3"
-"(let-values(((or-part_4)(1/module-path-index? mod-path_5)))"
-"(if or-part_4 or-part_4(1/resolved-module-path? mod-path_5)))))"
+"(if(let-values(((or-part_217)(1/module-path? mod-path_5)))"
+"(if or-part_217"
+" or-part_217"
+"(let-values(((or-part_3)(1/module-path-index? mod-path_5)))"
+"(if or-part_3 or-part_3(1/resolved-module-path? mod-path_5)))))"
 "(void)"
 "(let-values()"
 "(raise-argument-error"
-" who_25"
+" who_24"
 "                                                   \"(or/c module-path? module-path-index? resolved-module-path?)\""
 " mod-path_5)))"
 "(values))))"
 "(let-values((()"
 "(begin"
-"(if(let-values(((or-part_5)(symbol? sym_85)))"
+"(if(let-values(((or-part_4)(symbol? sym_70)))"
+"(if or-part_4"
+" or-part_4"
+"(let-values(((or-part_5)(not sym_70)))"
 "(if or-part_5"
 " or-part_5"
-"(let-values(((or-part_6)(not sym_85)))"
-"(if or-part_6"
-" or-part_6"
-"(let-values(((or-part_302)(equal? sym_85 0)))"
-"(if or-part_302 or-part_302(void? sym_85)))))))"
+"(let-values(((or-part_6)(equal? sym_70 0)))"
+"(if or-part_6 or-part_6(void? sym_70)))))))"
 "(void)"
 "(let-values()"
-"                                                    (raise-argument-error who_25 \"(or/c symbol? #f 0 void?)\" sym_85)))"
+"                                                    (raise-argument-error who_24 \"(or/c symbol? #f 0 void?)\" sym_70)))"
 "(values))))"
 "(let-values((()"
 "(begin"
@@ -46890,10 +45985,10 @@ static const char *startup_source =
 "(procedure-arity-includes? fail-k_2 0)"
 " #f)"
 "(void)"
-"                                                    (let-values () (raise-argument-error who_25 \"(-> any)\" fail-k_2)))"
+"                                                    (let-values () (raise-argument-error who_24 \"(-> any)\" fail-k_2)))"
 "(values))))"
-"(let-values(((ns_58)(1/current-namespace)))"
-"(let-values(((mpi_49)"
+"(let-values(((ns_112)(1/current-namespace)))"
+"(let-values(((mpi_47)"
 "(if(1/module-path? mod-path_5)"
 "(let-values()(1/module-path-index-join mod-path_5 #f))"
 "(if(1/module-path-index? mod-path_5)"
@@ -46902,59 +45997,50 @@ static const char *startup_source =
 "(1/module-path-index-join"
 "(resolved-module-path->module-path mod-path_5)"
 " #f))))))"
-"(let-values(((mod-name_22)(1/module-path-index-resolve mpi_49 #t)))"
-"(let-values(((phase_141)(namespace-phase ns_58)))"
-"(if(not sym_85)"
+"(let-values(((mod-name_22)(1/module-path-index-resolve mpi_47 #t)))"
+"(let-values(((phase_107)(namespace-phase ns_112)))"
+"(if(not sym_70)"
 "(let-values()"
-"(let-values(((ns20_1) ns_58)"
-"((mpi21_0) mpi_49)"
-"((phase22_0) phase_141)"
-"((phase23_1) phase_141)"
-"((temp24_4) #f))"
+"(let-values(((ns17_0) ns_112)"
+"((mpi18_0) mpi_47)"
+"((phase19_2) phase_107)"
+"((phase20_1) phase_107)"
+"((temp21_1) #f))"
 "(namespace-module-instantiate!96.1"
-" temp24_4"
-" #t"
-" phase23_1"
-" #t"
+" temp21_1"
+" phase20_1"
+" unsafe-undefined"
 " #f"
-" #f"
-" #f"
-" #f"
-" ns20_1"
-" mpi21_0"
-" phase22_0)))"
-"(if(equal? sym_85 0)"
+" ns17_0"
+" mpi18_0"
+" phase19_2)))"
+"(if(equal? sym_70 0)"
 "(let-values()"
-"(let-values(((ns25_2) ns_58)"
-"((mpi26_0) mpi_49)"
-"((phase27_1) phase_141)"
-"((phase28_1) phase_141))"
+"(let-values(((ns22_0) ns_112)"
+"((mpi23_0) mpi_47)"
+"((phase24_3) phase_107)"
+"((phase25_0) phase_107))"
 "(namespace-module-instantiate!96.1"
-" #f"
-" #f"
-" phase28_1"
 " #t"
+" phase25_0"
+" unsafe-undefined"
 " #f"
-" #f"
-" #f"
-" #f"
-" ns25_2"
-" mpi26_0"
-" phase27_1)))"
-"(if(void? sym_85)"
+" ns22_0"
+" mpi23_0"
+" phase24_3)))"
+"(if(void? sym_70)"
 "(let-values()"
-"(let-values(((ns29_0) ns_58)"
-"((mpi30_0) mpi_49)"
-"((phase31_0) phase_141)"
-"((phase32_4) phase_141))"
+"(let-values(((ns26_0) ns_112)"
+"((mpi27_0) mpi_47)"
+"((phase28_4) phase_107)"
+"((phase29_0) phase_107))"
 "(namespace-module-visit!104.1"
-" phase32_4"
-" #t"
-" ns29_0"
-" mpi30_0"
-" phase31_0)))"
+" phase29_0"
+" ns26_0"
+" mpi27_0"
+" phase28_4)))"
 "(let-values()"
-"(let-values(((m_22)(namespace->module ns_58 mod-name_22)))"
+"(let-values(((m_22)(namespace->module ns_112 mod-name_22)))"
 "(let-values((()"
 "(begin"
 "(if m_22"
@@ -46967,7 +46053,7 @@ static const char *startup_source =
 "(let-values(((binding/p_5)"
 "(hash-ref"
 "(hash-ref(module-provides m_22) 0 '#hasheq())"
-" sym_85"
+" sym_70"
 " #f)))"
 "(if(not binding/p_5)"
 "(let-values()"
@@ -46976,72 +46062,65 @@ static const char *startup_source =
 " 'dynamic-require"
 "                                                                 \"name is not provided\""
 "                                                                 \"name\""
-" sym_85"
+" sym_70"
 "                                                                 \"module\""
 " mod-name_22)"
 "(fail-k_2)))"
 "(let-values()"
-"(let-values(((binding_26)"
+"(let-values(((binding_5)"
 "(provided-as-binding binding/p_5)))"
 "(let-values(((ex-sym_2)"
-"(module-binding-sym binding_26)))"
+"(module-binding-sym binding_5)))"
 "(let-values(((ex-phase_0)"
-"(module-binding-phase binding_26)))"
+"(module-binding-phase binding_5)))"
 "(let-values((()"
 "(begin"
-"(let-values(((ns33_0) ns_58)"
-"((mpi34_0) mpi_49)"
-"((phase35_1) phase_141)"
-"((phase36_0) phase_141)"
-"((temp37_2) #f))"
+"(let-values(((ns30_2) ns_112)"
+"((mpi31_0) mpi_47)"
+"((phase32_2) phase_107)"
+"((phase33_1) phase_107)"
+"((temp34_4) #f))"
 "(namespace-module-instantiate!96.1"
-" temp37_2"
-" #t"
-" phase36_0"
-" #t"
+" temp34_4"
+" phase33_1"
+" unsafe-undefined"
 " #f"
-" #f"
-" #f"
-" #f"
-" ns33_0"
-" mpi34_0"
-" phase35_1))"
+" ns30_2"
+" mpi31_0"
+" phase32_2))"
 "(values))))"
 "(let-values(((ex-mod-name_0)"
 "(1/module-path-index-resolve"
 "(module-path-index-shift"
-"(module-binding-module binding_26)"
+"(module-binding-module binding_5)"
 "(module-self m_22)"
-" mpi_49))))"
+" mpi_47))))"
 "(let-values(((m-ns_16)"
-"(let-values(((ns38_0) ns_58)"
-"((ex-mod-name39_0)"
+"(let-values(((ns35_0) ns_112)"
+"((ex-mod-name36_0)"
 " ex-mod-name_0)"
-"((temp40_2)"
+"((temp37_1)"
 "(phase-"
-" phase_141"
+" phase_107"
 " ex-phase_0))"
-"((temp41_3) #t))"
+"((temp38_3) #t))"
 "(namespace->module-namespace82.1"
 " #f"
-" #f"
-" temp41_3"
-" #t"
-" #f"
-" #f"
-" ns38_0"
-" ex-mod-name39_0"
-" temp40_2))))"
+" temp38_3"
+" unsafe-undefined"
+" ns35_0"
+" ex-mod-name36_0"
+" temp37_1))))"
 "(let-values(((ex-m_0)"
 "(namespace->module"
-" ns_58"
+" ns_112"
 " ex-mod-name_0)))"
 "(let-values(((access_4)"
-"(let-values(((or-part_31)"
+"(let-values(((or-part_30)"
 "(module-access"
 " ex-m_0)))"
-"(if or-part_31"
-" or-part_31"
+"(if or-part_30"
+" or-part_30"
 "(module-compute-access!"
 " ex-m_0)))))"
 "(let-values((()"
@@ -47063,10 +46142,10 @@ static const char *startup_source =
 " m-ns_16)))"
 "(not"
 "(if(module-binding-extra-inspector"
-" binding_26)"
+" binding_5)"
 "(inspector-superior?"
 "(module-binding-extra-inspector"
-" binding_26)"
+" binding_5)"
 "(namespace-inspector"
 " m-ns_16))"
 " #f))"
@@ -47077,7 +46156,7 @@ static const char *startup_source =
 " 'dynamic-require"
 "                                                                                                   \"name is protected\""
 "                                                                                                   \"name\""
-" sym_85"
+" sym_70"
 "                                                                                                   \"module\""
 " mod-name_22))"
 "(void))"
@@ -47093,7 +46172,7 @@ static const char *startup_source =
 " 'dynamic-require"
 "                                                                                                     \"name's binding is missing\""
 "                                                                                                     \"name\""
-" sym_85"
+" sym_70"
 "                                                                                                     \"module\""
 " mod-name_22)"
 "(fail-k_2))))))"
@@ -47111,46 +46190,42 @@ static const char *startup_source =
 "(gensym 'missing)))"
 "(let-values((()"
 "(begin"
-"(let-values(((ns42_3)"
-" ns_58)"
-"((mpi43_1)"
-" mpi_49)"
-"((phase44_0)"
-" phase_141)"
-"((phase45_1)"
-" phase_141))"
+"(let-values(((ns39_0)"
+" ns_112)"
+"((mpi40_1)"
+" mpi_47)"
+"((phase41_2)"
+" phase_107)"
+"((phase42_0)"
+" phase_107))"
 "(namespace-module-visit!104.1"
-" phase45_1"
-" #t"
-" ns42_3"
-" mpi43_1"
-" phase44_0))"
+" phase42_0"
+" ns39_0"
+" mpi40_1"
+" phase41_2))"
 "(values))))"
-"(let-values(((t_19)"
+"(let-values(((t_59)"
 "(namespace-get-transformer"
 " m-ns_16"
 " ex-phase_0"
 " ex-sym_2"
 " missing_1)))"
-"(if(eq? t_19 missing_1)"
+"(if(eq? t_59 missing_1)"
 "(let-values()(fail_1))"
 "(let-values()"
 "(let-values(((tmp-ns_0)"
-"(let-values(((ns46_0)"
-" ns_58))"
-"(new-namespace9.1"
-" #f"
-" #f"
-" #f"
-" #f"
-" ns46_0"
-" #t))))"
-"(let-values(((mod-path_16)"
+"(let-values(((ns43_0)"
+" ns_112))"
+"(new-namespace8.1"
+" #t"
+" unsafe-undefined"
+" ns43_0))))"
+"(let-values(((mod-path_17)"
 "(resolved-module-path->module-path"
 " mod-name_22)))"
 "(begin"
 "(1/namespace-require"
-" mod-path_16"
+" mod-path_17"
 " tmp-ns_0)"
 "(with-continuation-mark"
 " parameterization-key"
@@ -47162,36 +46237,42 @@ static const char *startup_source =
 " tmp-ns_0)"
 "(let-values()"
 "(1/eval"
-" sym_85"
+" sym_70"
 " tmp-ns_0))))))))))))))))))))))))))))))))))))))))))))))))"
 "(case-lambda"
-"((who_26 mod-path_17 sym_86)(begin(do-dynamic-require6_0 who_26 mod-path_17 sym_86 #f #f)))"
-"((who_27 mod-path_18 sym_87 fail-k1_1)(do-dynamic-require6_0 who_27 mod-path_18 sym_87 fail-k1_1 #t)))))"
+"((who_25 mod-path_18 sym_87)(begin(do-dynamic-require5_0 who_25 mod-path_18 sym_87 unsafe-undefined)))"
+"((who_26 mod-path_19 sym_88 fail-k1_1)(do-dynamic-require5_0 who_26 mod-path_19 sym_88 fail-k1_1)))))"
 " (define-values (default-dynamic-require-fail-thunk) (lambda () (begin (error \"failed\"))))"
 "(define-values"
 "(1/dynamic-require)"
-"(let-values(((dynamic-require12_0)"
-"(lambda(mod-path10_2 sym11_0 fail-k8_0 fail-k9_0)"
+"(let-values(((dynamic-require10_0)"
+"(lambda(mod-path8_3 sym9_0 fail-k7_0)"
 "(begin"
-" 'dynamic-require12"
-"(let-values(((mod-path_19) mod-path10_2))"
-"(let-values(((sym_88) sym11_0))"
-"(let-values(((fail-k_3)(if fail-k9_0 fail-k8_0 default-dynamic-require-fail-thunk)))"
+" 'dynamic-require10"
+"(let-values(((mod-path_20) mod-path8_3))"
+"(let-values(((sym_89) sym9_0))"
+"(let-values(((fail-k_3)"
+"(if(eq? fail-k7_0 unsafe-undefined)"
+" default-dynamic-require-fail-thunk"
+" fail-k7_0)))"
 "(let-values()"
 "(let-values()"
-"(let-values()(do-dynamic-require 'dynamic-require mod-path_19 sym_88 fail-k_3)))))))))))"
+"(let-values()(do-dynamic-require 'dynamic-require mod-path_20 sym_89 fail-k_3)))))))))))"
 "(case-lambda"
-"((mod-path_20 sym_89)(begin 'dynamic-require(dynamic-require12_0 mod-path_20 sym_89 #f #f)))"
-"((mod-path_21 sym_61 fail-k8_1)(dynamic-require12_0 mod-path_21 sym_61 fail-k8_1 #t)))))"
+"((mod-path_21 sym_90)(begin 'dynamic-require(dynamic-require10_0 mod-path_21 sym_90 unsafe-undefined)))"
+"((mod-path_22 sym_91 fail-k7_1)(dynamic-require10_0 mod-path_22 sym_91 fail-k7_1)))))"
 "(define-values"
 "(1/dynamic-require-for-syntax)"
-"(let-values(((dynamic-require-for-syntax18_0)"
-"(lambda(mod-path16_0 sym17_1 fail-k14_0 fail-k15_0)"
+"(let-values(((dynamic-require-for-syntax15_0)"
+"(lambda(mod-path13_0 sym14_0 fail-k12_0)"
 "(begin"
-" 'dynamic-require-for-syntax18"
-"(let-values(((mod-path_22) mod-path16_0))"
-"(let-values(((sym_90) sym17_1))"
-"(let-values(((fail-k_4)(if fail-k15_0 fail-k14_0 default-dynamic-require-fail-thunk)))"
+" 'dynamic-require-for-syntax15"
+"(let-values(((mod-path_23) mod-path13_0))"
+"(let-values(((sym_92) sym14_0))"
+"(let-values(((fail-k_4)"
+"(if(eq? fail-k12_0 unsafe-undefined)"
+" default-dynamic-require-fail-thunk"
+" fail-k12_0)))"
 "(let-values()"
 "(let-values()"
 "(let-values()"
@@ -47200,18 +46281,18 @@ static const char *startup_source =
 "(extend-parameterization"
 "(continuation-mark-set-first #f parameterization-key)"
 " 1/current-namespace"
-"(let-values(((ns_112)(1/current-namespace)))"
-"(namespace->namespace-at-phase ns_112(add1(namespace-phase ns_112)))))"
+"(let-values(((ns_113)(1/current-namespace)))"
+"(namespace->namespace-at-phase ns_113(add1(namespace-phase ns_113)))))"
 "(let-values()"
 "(do-dynamic-require"
 " 'dynamic-require-for-syntax"
-" mod-path_22"
-" sym_90"
+" mod-path_23"
+" sym_92"
 " fail-k_4)))))))))))))"
 "(case-lambda"
-"((mod-path_23 sym_91)"
-"(begin 'dynamic-require-for-syntax(dynamic-require-for-syntax18_0 mod-path_23 sym_91 #f #f)))"
-"((mod-path_24 sym_92 fail-k14_1)(dynamic-require-for-syntax18_0 mod-path_24 sym_92 fail-k14_1 #t)))))"
+"((mod-path_24 sym_93)"
+"(begin 'dynamic-require-for-syntax(dynamic-require-for-syntax15_0 mod-path_24 sym_93 unsafe-undefined)))"
+"((mod-path_25 sym_94 fail-k12_1)(dynamic-require-for-syntax15_0 mod-path_25 sym_94 fail-k12_1)))))"
 " (define-values (replace-me) (lambda (who_0) (begin (lambda args_6 (error who_0 \"this stub must be replaced\")))))"
 "(define-values"
 "(1/current-eval)"
@@ -47245,7 +46326,7 @@ static const char *startup_source =
 "(replace-me 'current-load)"
 "(lambda(p_53)"
 "(begin"
-"(if((lambda(p_54)(if(procedure? p_54)(procedure-arity-includes? p_54 2) #f)) p_53)"
+"(if((lambda(p_36)(if(procedure? p_36)(procedure-arity-includes? p_36 2) #f)) p_53)"
 "(void)"
 "             (let-values () (raise-argument-error 'current-load \"(procedure-arity-includes/c 2)\" p_53)))"
 " p_53))))))"
@@ -47255,28 +46336,28 @@ static const char *startup_source =
 "(let-values()"
 "(make-parameter"
 "(replace-me 'current-load/use-compiled)"
-"(lambda(p_36)"
+"(lambda(p_45)"
 "(begin"
-"(if((lambda(p_48)(if(procedure? p_48)(procedure-arity-includes? p_48 2) #f)) p_36)"
+"(if((lambda(p_47)(if(procedure? p_47)(procedure-arity-includes? p_47 2) #f)) p_45)"
 "(void)"
-"             (let-values () (raise-argument-error 'current-load/use-compiled \"(procedure-arity-includes/c 2)\" p_36)))"
-" p_36))))))"
+"             (let-values () (raise-argument-error 'current-load/use-compiled \"(procedure-arity-includes/c 2)\" p_45)))"
+" p_45))))))"
 "(define-values"
 "(1/current-library-collection-paths)"
 "(let-values()"
 "(let-values()"
 "(make-parameter"
 " null"
-"(lambda(l_49)"
+"(lambda(l_73)"
 "(begin"
-"(if((lambda(l_75)(if(list? l_75)(andmap2 complete-path-string? l_75) #f)) l_49)"
+"(if((lambda(l_74)(if(list? l_74)(andmap2 complete-path-string? l_74) #f)) l_73)"
 "(void)"
 "(let-values()"
 "(raise-argument-error"
 " 'current-library-collection-paths"
 "                \"(listof (and/c path-string? complete-path?))\""
-" l_49)))"
-"(map2 to-path l_49)))))))"
+" l_73)))"
+"(map2 to-path l_73)))))))"
 "(define-values"
 "(1/current-library-collection-links)"
 "(let-values()"
@@ -47285,39 +46366,39 @@ static const char *startup_source =
 " null"
 "(lambda(l_8)"
 "(begin"
-"(if((lambda(l_76)"
-"(if(list? l_76)"
+"(if((lambda(l_75)"
+"(if(list? l_75)"
 "(andmap2"
-"(lambda(p_55)"
-"(let-values(((or-part_293)(not p_55)))"
-"(if or-part_293"
-" or-part_293"
-"(let-values(((or-part_294)(complete-path-string? p_55)))"
-"(if or-part_294"
-" or-part_294"
-"(if(hash? p_55)"
-"(let-values(((ht_152) p_55))"
+"(lambda(p_54)"
+"(let-values(((or-part_296)(not p_54)))"
+"(if or-part_296"
+" or-part_296"
+"(let-values(((or-part_297)(complete-path-string? p_54)))"
+"(if or-part_297"
+" or-part_297"
+"(if(hash? p_54)"
+"(let-values(((ht_144) p_54))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
-"(let-values()(check-in-hash ht_152)))"
-"((letrec-values(((for-loop_190)"
-"(lambda(result_121 i_90)"
+"(let-values()(check-in-hash ht_144)))"
+"((letrec-values(((for-loop_270)"
+"(lambda(result_118 i_91)"
 "(begin"
 " 'for-loop"
-"(if i_90"
+"(if i_91"
 "(let-values(((k_35 v_3)"
-"(hash-iterate-key+value ht_152 i_90)))"
-"(let-values(((result_122)"
+"(hash-iterate-key+value ht_144 i_91)))"
+"(let-values(((result_119)"
 "(let-values()"
-"(let-values(((result_123)"
+"(let-values(((result_120)"
 "(let-values()"
 "(let-values()"
-"(if(let-values(((or-part_80)"
+"(if(let-values(((or-part_78)"
 "(not"
 " k_35)))"
-"(if or-part_80"
-" or-part_80"
+"(if or-part_78"
+" or-part_78"
 "(if(symbol?"
 " k_35)"
 "(1/module-path?"
@@ -47329,20 +46410,20 @@ static const char *startup_source =
 " v_3)"
 " #f)"
 " #f)))))"
-"(values result_123)))))"
-"(if(if(not((lambda x_82(not result_122)) k_35 v_3))"
+"(values result_120)))))"
+"(if(if(not((lambda x_84(not result_119)) k_35 v_3))"
 "(not #f)"
 " #f)"
-"(for-loop_190"
-" result_122"
-"(hash-iterate-next ht_152 i_90))"
-" result_122)))"
-" result_121)))))"
-" for-loop_190)"
+"(for-loop_270"
+" result_119"
+"(hash-iterate-next ht_144 i_91))"
+" result_119)))"
+" result_118)))))"
+" for-loop_270)"
 " #t"
-"(hash-iterate-first ht_152))))"
+"(hash-iterate-first ht_144))))"
 " #f))))))"
-" l_76)"
+" l_75)"
 " #f))"
 " l_8)"
 "(void)"
@@ -47364,38 +46445,38 @@ static const char *startup_source =
 "(if(string? p_3)"
 "(let-values()(string->path p_3))"
 "(let-values()"
-"(let-values(((ht_153) p_3))"
+"(let-values(((ht_145) p_3))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
-"(let-values()(check-in-hash ht_153)))"
-"((letrec-values(((for-loop_275)"
-"(lambda(table_216 i_91)"
+"(let-values()(check-in-hash ht_145)))"
+"((letrec-values(((for-loop_271)"
+"(lambda(table_205 i_92)"
 "(begin"
 " 'for-loop"
-"(if i_91"
-"(let-values(((k_36 v_203)(hash-iterate-key+value ht_153 i_91)))"
-"(let-values(((table_217)"
-"(let-values(((table_185) table_216))"
-"(let-values(((table_218)"
+"(if i_92"
+"(let-values(((k_36 v_200)(hash-iterate-key+value ht_145 i_92)))"
+"(let-values(((table_206)"
+"(let-values(((table_178) table_205))"
+"(let-values(((table_207)"
 "(let-values()"
-"(let-values(((key_83 val_80)"
+"(let-values(((key_82 val_77)"
 "(let-values()"
 "(values"
 " k_36"
-"(to-path v_203)))))"
+"(to-path v_200)))))"
 "(hash-set"
-" table_185"
-" key_83"
-" val_80)))))"
-"(values table_218)))))"
+" table_178"
+" key_82"
+" val_77)))))"
+"(values table_207)))))"
 "(if(not #f)"
-"(for-loop_275 table_217(hash-iterate-next ht_153 i_91))"
-" table_217)))"
-" table_216)))))"
-" for-loop_275)"
+"(for-loop_271 table_206(hash-iterate-next ht_145 i_92))"
+" table_206)))"
+" table_205)))))"
+" for-loop_271)"
 " '#hash()"
-"(hash-iterate-first ht_153)))))))))"
+"(hash-iterate-first ht_145)))))))))"
 " l_8)))))))"
 "(define-values"
 "(1/use-compiled-file-paths)"
@@ -47405,7 +46486,7 @@ static const char *startup_source =
 "       (list (string->path \"compiled\"))"
 "(lambda(l_48)"
 "(begin"
-"(if((lambda(l_77)(if(list? l_77)(andmap2 relative-path-string?$1 l_77) #f)) l_48)"
+"(if((lambda(l_76)(if(list? l_76)(andmap2 relative-path-string?$1 l_76) #f)) l_48)"
 "(void)"
 "(let-values()"
 "               (raise-argument-error 'use-compiled-file-paths \"(listof (and/c path-string? relative-path?))\" l_48)))"
@@ -47416,42 +46497,42 @@ static const char *startup_source =
 "(let-values()"
 "(make-parameter"
 " '(same)"
-"(lambda(l_78)"
+"(lambda(l_77)"
 "(begin"
-"(if((lambda(l_79)"
-"(if(list? l_79)"
+"(if((lambda(l_78)"
+"(if(list? l_78)"
 "(andmap2"
-"(lambda(p_56)"
-"(let-values(((or-part_8)(path-string? p_56)))(if or-part_8 or-part_8(eq? p_56 'same))))"
-" l_79)"
-" #f))"
+"(lambda(p_55)"
+"(let-values(((or-part_8)(path-string? p_55)))(if or-part_8 or-part_8(eq? p_55 'same))))"
 " l_78)"
+" #f))"
+" l_77)"
 "(void)"
 "(let-values()"
-"               (raise-argument-error 'current-compiled-file-roots \"(listof (or/c path-string? 'same))\" l_78)))"
-"(map2 to-path l_78)))))))"
+"               (raise-argument-error 'current-compiled-file-roots \"(listof (or/c path-string? 'same))\" l_77)))"
+"(map2 to-path l_77)))))))"
 "(define-values"
 "(1/use-compiled-file-check)"
 "(let-values()"
 "(let-values()"
 "(make-parameter"
 " 'modify-seconds"
-"(lambda(v_204)"
+"(lambda(v_201)"
 "(begin"
-"(if((lambda(v_66)"
-"(let-values(((or-part_32)(eq? v_66 'modify-seconds)))"
-"(if or-part_32 or-part_32(eq? v_66 'exists))))"
-" v_204)"
+"(if((lambda(v_67)"
+"(let-values(((or-part_32)(eq? v_67 'modify-seconds)))"
+"(if or-part_32 or-part_32(eq? v_67 'exists))))"
+" v_201)"
 "(void)"
-"             (let-values () (raise-argument-error 'use-compiled-file-check \"(or/c 'modify-seconds 'exists)\" v_204)))"
-" v_204))))))"
-"(define-values(1/use-collection-link-paths)(make-parameter #t(lambda(v_79)(if v_79 #t #f))))"
-"(define-values(1/use-user-specific-search-paths)(make-parameter #t(lambda(v_205)(if v_205 #t #f))))"
-"(define-values(complete-path-string?)(lambda(p_57)(begin(if(path-string? p_57)(complete-path? p_57) #f))))"
+"             (let-values () (raise-argument-error 'use-compiled-file-check \"(or/c 'modify-seconds 'exists)\" v_201)))"
+" v_201))))))"
+"(define-values(1/use-collection-link-paths)(make-parameter #t(lambda(v_80)(if v_80 #t #f))))"
+"(define-values(1/use-user-specific-search-paths)(make-parameter #t(lambda(v_202)(if v_202 #t #f))))"
+"(define-values(complete-path-string?)(lambda(p_56)(begin(if(path-string? p_56)(complete-path? p_56) #f))))"
 "(define-values"
 "(relative-path-string?$1)"
-"(lambda(p_58)(begin 'relative-path-string?(if(path-string? p_58)(relative-path? p_58) #f))))"
-"(define-values(to-path)(lambda(p_59)(begin(if(string? p_59)(string->path p_59) p_59))))"
+"(lambda(p_57)(begin 'relative-path-string?(if(path-string? p_57)(relative-path? p_57) #f))))"
+"(define-values(to-path)(lambda(p_58)(begin(if(string? p_58)(string->path p_58) p_58))))"
 "(define-values"
 "(1/load)"
 "(lambda(s_0)"
@@ -47463,8 +46544,8 @@ static const char *startup_source =
 "(begin"
 "                          (if (path-string? s_0) (void) (let-values () (raise-argument-error 'load \"path-string?\" s_0)))"
 "(values))))"
-"(let-values(((p_60)(->path s_0)))"
-"(call-with-current-load-relative-directory p_60(lambda()((1/current-load) p_60 #f))))))))))"
+"(let-values(((p_59)(->path s_0)))"
+"(call-with-current-load-relative-directory p_59(lambda()((1/current-load) p_59 #f))))))))))"
 "(define-values"
 "(1/load-extension)"
 "(lambda(s_1)"
@@ -47478,8 +46559,8 @@ static const char *startup_source =
 "(void)"
 "                            (let-values () (raise-argument-error 'load-extension \"path-string?\" s_1)))"
 "(values))))"
-"(let-values(((p_61)(->path s_1)))"
-"(call-with-current-load-relative-directory p_61(lambda()((current-load-extension) p_61 #f))))))))))"
+"(let-values(((p_60)(->path s_1)))"
+"(call-with-current-load-relative-directory p_60(lambda()((current-load-extension) p_60 #f))))))))))"
 "(define-values"
 "(call-with-current-load-relative-directory)"
 "(lambda(p_31 thunk_6)"
@@ -47505,37 +46586,37 @@ static const char *startup_source =
 "(void)"
 "                            (let-values () (raise-argument-error 'load/use-compiled \"path-string?\" f_27)))"
 "(values))))"
-"(let-values(((p_48)(->path f_27)))((1/current-load/use-compiled) p_48 #f))))))))"
+"(let-values(((p_47)(->path f_27)))((1/current-load/use-compiled) p_47 #f))))))))"
 "(define-values"
 "(embedded-load)"
-"(lambda(start_42 end_32 str_24 as-predefined?_0)"
+"(lambda(start_41 end_31 str_24 as-predefined?_0)"
 "(begin"
-"(let-values(((s_173)"
+"(let-values(((s_170)"
 "(if str_24"
 " str_24"
 "(let-values(((sp_0)(find-system-path 'exec-file)))"
 "(let-values(((exe_0)(find-executable-path sp_0 #f)))"
-"(let-values(((start_43)"
-"(let-values(((or-part_294)(1/string->number start_42)))"
-"(if or-part_294 or-part_294 0))))"
-"(let-values(((end_33)"
-"(let-values(((or-part_300)(1/string->number end_32)))"
-"(if or-part_300 or-part_300 0))))"
+"(let-values(((start_42)"
+"(let-values(((or-part_297)(1/string->number start_41)))"
+"(if or-part_297 or-part_297 0))))"
+"(let-values(((end_32)"
+"(let-values(((or-part_91)(1/string->number end_31)))"
+"(if or-part_91 or-part_91 0))))"
 "(let-values(((exe4_0) exe_0)"
 "((temp5_5)"
 "(lambda()"
 "(begin"
 " 'temp5"
 "(begin"
-"(file-position(current-input-port) start_43)"
-"(read-bytes(max 0(- end_33 start_43))))))))"
-"(with-input-from-file45.1 #f #f exe4_0 temp5_5)))))))))"
-"(let-values(((p_62)(open-input-bytes s_173)))"
+"(file-position(current-input-port) start_42)"
+"(read-bytes(max 0(- end_32 start_42))))))))"
+"(with-input-from-file45.1 'binary exe4_0 temp5_5)))))))))"
+"(let-values(((p_61)(open-input-bytes s_170)))"
 "((letrec-values(((loop_68)"
 "(lambda()"
 "(begin"
 " 'loop"
-"(let-values(((e_77)"
+"(let-values(((e_75)"
 "(with-continuation-mark"
 " parameterization-key"
 "(extend-parameterization"
@@ -47548,8 +46629,8 @@ static const char *startup_source =
 " #t"
 " read-on-demand-source"
 " #t)"
-"(let-values()(1/read p_62)))))"
-"(if(eof-object? e_77)"
+"(let-values()(1/read p_61)))))"
+"(if(eof-object? e_75)"
 "(void)"
 "(let-values()"
 "(begin"
@@ -47559,10 +46640,10 @@ static const char *startup_source =
 "(continuation-mark-set-first #f parameterization-key)"
 " current-module-declare-as-predefined"
 " as-predefined?_0)"
-"(let-values()((1/current-eval) e_77)))"
+"(let-values()((1/current-eval) e_75)))"
 "(loop_68)))))))))"
 " loop_68)))))))"
-"(define-values(->path)(lambda(s_77)(begin(if(string? s_77)(string->path s_77) s_77))))"
+"(define-values(->path)(lambda(s_78)(begin(if(string? s_78)(string->path s_78) s_78))))"
 "(define-values"
 "(find-main-collects)"
 "(lambda()"
@@ -47586,27 +46667,27 @@ static const char *startup_source =
 "(let-values(((base_19 name_64 dir?_3)(split-path exec_0)))"
 "(simplify-path(path->complete-path collects-path_0 base_19)))))"
 "(let-values()"
-"(let-values(((p_61)(find-executable-path(find-system-path 'exec-file) collects-path_0 #t)))"
-"(if p_61(simplify-path p_61) #f))))))))"
+"(let-values(((p_60)(find-executable-path(find-system-path 'exec-file) collects-path_0 #t)))"
+"(if p_60(simplify-path p_60) #f))))))))"
 "(define-values(relative-path-string?)(lambda(s_0)(begin(if(path-string? s_0)(relative-path? s_0) #f))))"
 "(define-values"
 "(check-collection)"
-"(lambda(who_28 s_190 l_4)"
+"(lambda(who_27 s_188 l_4)"
 "(begin"
 "(begin"
-"(if(relative-path-string? s_190)"
+"(if(relative-path-string? s_188)"
 "(void)"
-"          (let-values () (raise-argument-error who_28 \"(and/c path-string? relative-path?)\" s_190)))"
+"          (let-values () (raise-argument-error who_27 \"(and/c path-string? relative-path?)\" s_188)))"
 "(if((lambda(l_2)(if(list? l_2)(andmap2 relative-path-string? l_2) #f)) l_4)"
 "(void)"
-"          (let-values () (raise-argument-error who_28 \"(listof (and/c path-string? relative-path?))\" l_4)))))))"
+"          (let-values () (raise-argument-error who_27 \"(listof (and/c path-string? relative-path?))\" l_4)))))))"
 "(define-values"
 "(check-fail)"
-"(lambda(who_29 fail_2)"
+"(lambda(who_24 fail_2)"
 "(begin"
 "(if((lambda(p_52)(if(procedure? p_52)(procedure-arity-includes? p_52 1) #f)) fail_2)"
 "(void)"
-"        (let-values () (raise-argument-error who_29 \"(procedure-arity-includes/c 1)\" fail_2))))))"
+"        (let-values () (raise-argument-error who_24 \"(procedure-arity-includes/c 1)\" fail_2))))))"
 "(define-values"
 "(1/collection-path)"
 "(lambda(fail_3 collection_0 collection-path_0)"
@@ -47635,20 +46716,20 @@ static const char *startup_source =
 "(find-col-file fail_4 collection_1 collection-path_1 file-name_0 check-compiled?_0)))))))"
 "(define-values"
 "(get-config-table)"
-"(lambda(d_33)"
+"(lambda(d_34)"
 "(begin"
-"      (let-values (((p_63) (if d_33 (build-path d_33 \"config.rktd\") #f)))"
+"      (let-values (((p_62) (if d_34 (build-path d_34 \"config.rktd\") #f)))"
 "(let-values(((or-part_292)"
-"(if p_63"
-"(if(file-exists? p_63)"
-"(let-values(((p9_0) p_63)"
-"((temp10_4)"
+"(if p_62"
+"(if(file-exists? p_62)"
+"(let-values(((p7_1) p_62)"
+"((temp8_1)"
 "(lambda()"
 "(begin"
-" 'temp10"
+" 'temp8"
 "(let-values(((v_2)(call-with-default-reading-parameterization 1/read)))"
 "(if(hash? v_2) v_2 #f))))))"
-"(with-input-from-file45.1 #f #f p9_0 temp10_4))"
+"(with-input-from-file45.1 'binary p7_1 temp8_1))"
 " #f)"
 " #f)))"
 "(if or-part_292 or-part_292 '#hash()))))))"
@@ -47666,53 +46747,53 @@ static const char *startup_source =
 "(if(path? p_1)(let-values()(collects-relative-path->complete-path p_1))(let-values() p_1)))))))"
 "(define-values"
 "(collects-relative-path->complete-path)"
-"(lambda(p_64)"
+"(lambda(p_63)"
 "(begin"
-"(if(complete-path? p_64)"
-"(let-values() p_64)"
+"(if(complete-path? p_63)"
+"(let-values() p_63)"
 "(let-values()"
 "(path->complete-path"
-" p_64"
-"(let-values(((or-part_75)(find-main-collects)))(if or-part_75 or-part_75(current-directory)))))))))"
+" p_63"
+"(let-values(((or-part_73)(find-main-collects)))(if or-part_73 or-part_73(current-directory)))))))))"
 "(define-values"
 "(add-config-search)"
-"(lambda(ht_154 key_84 orig-l_9)"
+"(lambda(ht_67 key_83 orig-l_9)"
 "(begin"
-"(let-values(((l_80)(hash-ref ht_154 key_84 #f)))"
-"(if l_80"
-"((letrec-values(((loop_104)"
-"(lambda(l_81)"
+"(let-values(((l_79)(hash-ref ht_67 key_83 #f)))"
+"(if l_79"
+"((letrec-values(((loop_99)"
+"(lambda(l_64)"
 "(begin"
 " 'loop"
-"(if(null? l_81)"
+"(if(null? l_64)"
 "(let-values() null)"
-"(if(not(car l_81))"
-"(let-values()(append orig-l_9(loop_104(cdr l_81))))"
-"(let-values()(cons(coerce-to-path(car l_81))(loop_104(cdr l_81))))))))))"
-" loop_104)"
-" l_80)"
+"(if(not(car l_64))"
+"(let-values()(append orig-l_9(loop_99(cdr l_64))))"
+"(let-values()(cons(coerce-to-path(car l_64))(loop_99(cdr l_64))))))))))"
+" loop_99)"
+" l_79)"
 " orig-l_9)))))"
 "(define-values"
 "(1/find-library-collection-links)"
 "(lambda()"
 "(begin"
 " 'find-library-collection-links"
-"(let-values(((ht_155)(get-config-table(find-main-config))))"
+"(let-values(((ht_146)(get-config-table(find-main-config))))"
 "(let-values(((lf_0)"
 "(coerce-to-path"
-"(let-values(((or-part_83)(hash-ref ht_155 'links-file #f)))"
-"(if or-part_83"
-" or-part_83"
+"(let-values(((or-part_81)(hash-ref ht_146 'links-file #f)))"
+"(if or-part_81"
+" or-part_81"
 "(build-path"
-"(let-values(((or-part_84)(hash-ref ht_155 'share-dir #f)))"
-"                              (if or-part_84 or-part_84 (build-path 'up \"share\")))"
+"(let-values(((or-part_82)(hash-ref ht_146 'share-dir #f)))"
+"                              (if or-part_82 or-part_82 (build-path 'up \"share\")))"
 "                            \"links.rktd\"))))))"
 "(append"
 "(list #f)"
 "(if(if(1/use-user-specific-search-paths)(1/use-collection-link-paths) #f)"
-"             (list (build-path (find-system-path 'addon-dir) (get-installation-name ht_155) \"links.rktd\"))"
+"             (list (build-path (find-system-path 'addon-dir) (get-installation-name ht_146) \"links.rktd\"))"
 " null)"
-"(if(1/use-collection-link-paths)(add-config-search ht_155 'links-search-files(list lf_0)) null)))))))"
+"(if(1/use-collection-link-paths)(add-config-search ht_146 'links-search-files(list lf_0)) null)))))))"
 "(define-values(links-cache)(make-weak-hash))"
 "(define-values(stamp-prompt-tag)(make-continuation-prompt-tag 'stamp))"
 "(define-values"
@@ -47732,7 +46813,7 @@ static const char *startup_source =
 "(lambda()"
 "(let-values(((dir-evt_0)"
 "(if(vector-ref(system-type 'fs-change) 2)"
-"((letrec-values(((loop_62)"
+"((letrec-values(((loop_63)"
 "(lambda(path_8)"
 "(begin"
 " 'loop"
@@ -47740,9 +46821,9 @@ static const char *startup_source =
 "(if(path? base_20)"
 "(if(directory-exists? base_20)"
 "(filesystem-change-evt base_20(lambda() #f))"
-"(loop_62 base_20))"
+"(loop_63 base_20))"
 " #f))))))"
-" loop_62)"
+" loop_63)"
 " path_7)"
 " #f)))"
 "(if(not(file-exists? path_7))"
@@ -47760,26 +46841,26 @@ static const char *startup_source =
 "(file->bytes)"
 "(lambda(path_9)"
 "(begin"
-"(let-values(((path11_0) path_9)"
-"((temp12_3)"
-"(lambda(p_65)"
+"(let-values(((path9_0) path_9)"
+"((temp10_4)"
+"(lambda(p_64)"
 "(begin"
-" 'temp12"
-"(let-values(((bstr_1)(read-bytes 8192 p_65)))"
+" 'temp10"
+"(let-values(((bstr_1)(read-bytes 8192 p_64)))"
 "(if(if(bytes? bstr_1)(>=(bytes-length bstr_1) 8192) #f)"
 "(apply"
 " bytes-append"
 "(cons"
 " bstr_1"
-"((letrec-values(((loop_105)"
+"((letrec-values(((loop_100)"
 "(lambda()"
 "(begin"
 " 'loop"
-"(let-values(((bstr_2)(read-bytes 8192 p_65)))"
-"(if(eof-object? bstr_2) null(cons bstr_2(loop_105))))))))"
-" loop_105))))"
+"(let-values(((bstr_2)(read-bytes 8192 p_64)))"
+"(if(eof-object? bstr_2) null(cons bstr_2(loop_100))))))))"
+" loop_100))))"
 " bstr_1))))))"
-"(call-with-input-file*61.1 #f #f path11_0 temp12_3)))))"
+"(call-with-input-file*61.1 'binary path9_0 temp10_4)))))"
 "(define-values"
 "(no-file-stamp?)"
 "(lambda(a_64)(begin(let-values(((or-part_31)(not a_64)))(if or-part_31 or-part_31(not(car a_64)))))))"
@@ -47796,11 +46877,11 @@ static const char *startup_source =
 "(lambda(exn_2)"
 "(begin"
 "(if(exn:fail? exn_2)"
-"(let-values(((l_82)(current-logger)))"
-"(if(log-level? l_82 'error)"
+"(let-values(((l_80)(current-logger)))"
+"(if(log-level? l_80 'error)"
 "(let-values()"
 "(log-message"
-" l_82"
+" l_80"
 " 'error"
 "(format"
 "                                         \"error reading collection links file ~s: ~a\""
@@ -47827,62 +46908,62 @@ static const char *startup_source =
 "(lambda()"
 "(call-with-default-reading-parameterization"
 "(lambda()"
-"(let-values(((v_206)"
+"(let-values(((v_203)"
 "(if(no-file-stamp? ts_1)"
 " null"
-"(let-values(((links-path13_0) links-path_0)"
-"((temp14_5)"
-"(lambda(p_66)"
+"(let-values(((links-path11_0) links-path_0)"
+"((temp12_3)"
+"(lambda(p_38)"
 "(begin"
-" 'temp14"
+" 'temp12"
 "(begin0"
-"(1/read p_66)"
-"(if(eof-object?(1/read p_66))"
+"(1/read p_38)"
+"(if(eof-object?(1/read p_38))"
 "(void)"
 "(let-values()"
 "                                                                      (error \"expected a single S-expression\"))))))))"
-"(call-with-input-file*61.1 #f #f links-path13_0 temp14_5)))))"
+"(call-with-input-file*61.1 'binary links-path11_0 temp12_3)))))"
 "(let-values((()"
 "(begin"
-"(if(if(list? v_206)"
+"(if(if(list? v_203)"
 "(andmap2"
-"(lambda(p_67)"
-"(if(list? p_67)"
-"(if(let-values(((or-part_286)(= 2(length p_67))))"
-"(if or-part_286 or-part_286(= 3(length p_67))))"
-"(if(let-values(((or-part_303)(string?(car p_67))))"
-"(if or-part_303"
-" or-part_303"
-"(let-values(((or-part_218)"
-"(eq? 'root(car p_67))))"
-"(if or-part_218"
-" or-part_218"
-"(eq? 'static-root(car p_67))))))"
-"(if(path-string?(cadr p_67))"
-"(let-values(((or-part_219)(null?(cddr p_67))))"
-"(if or-part_219 or-part_219(regexp?(caddr p_67))))"
+"(lambda(p_65)"
+"(if(list? p_65)"
+"(if(let-values(((or-part_226)(= 2(length p_65))))"
+"(if or-part_226 or-part_226(= 3(length p_65))))"
+"(if(let-values(((or-part_299)(string?(car p_65))))"
+"(if or-part_299"
+" or-part_299"
+"(let-values(((or-part_300)"
+"(eq? 'root(car p_65))))"
+"(if or-part_300"
+" or-part_300"
+"(eq? 'static-root(car p_65))))))"
+"(if(path-string?(cadr p_65))"
+"(let-values(((or-part_301)(null?(cddr p_65))))"
+"(if or-part_301 or-part_301(regexp?(caddr p_65))))"
 " #f)"
 " #f)"
 " #f)"
 " #f))"
-" v_206)"
+" v_203)"
 " #f)"
 "(void)"
 "                                                  (let-values () (error \"ill-formed content\")))"
 "(values))))"
-"(let-values(((ht_156)(make-hasheq)))"
+"(let-values(((ht_147)(make-hasheq)))"
 "(let-values(((dir_0)"
 "(let-values(((base_21 name_66 dir?_5)(split-path links-path_0)))"
 " base_21)))"
 "(begin"
 "(for-each2"
-"(lambda(p_68)"
-"(if(let-values(((or-part_304)(null?(cddr p_68))))"
-"(if or-part_304 or-part_304(regexp-match?(caddr p_68)(version))))"
+"(lambda(p_66)"
+"(if(let-values(((or-part_264)(null?(cddr p_66))))"
+"(if or-part_264 or-part_264(regexp-match?(caddr p_66)(version))))"
 "(let-values()"
 "(let-values(((dir_1)"
-"(simplify-path(path->complete-path(cadr p_68) dir_0))))"
-"(if(eq?(car p_68) 'static-root)"
+"(simplify-path(path->complete-path(cadr p_66) dir_0))))"
+"(if(eq?(car p_66) 'static-root)"
 "(let-values()"
 "(for-each2"
 "(lambda(sub_1)"
@@ -47890,34 +46971,34 @@ static const char *startup_source =
 "(let-values()"
 "(let-values(((k_37)(string->symbol(path->string sub_1))))"
 "(hash-set!"
-" ht_156"
+" ht_147"
 " k_37"
-"(cons dir_1(hash-ref ht_156 k_37 null)))))"
+"(cons dir_1(hash-ref ht_147 k_37 null)))))"
 "(void)))"
 "(directory-list dir_1)))"
-"(if(eq?(car p_68) 'root)"
+"(if(eq?(car p_66) 'root)"
 "(let-values()"
 "(begin"
-"(if(hash-ref ht_156 #f #f)"
+"(if(hash-ref ht_147 #f #f)"
 "(void)"
-"(let-values()(hash-set! ht_156 #f null)))"
+"(let-values()(hash-set! ht_147 #f null)))"
 "(hash-for-each"
-" ht_156"
-"(lambda(k_38 v_207)"
-"(hash-set! ht_156 k_38(cons dir_1 v_207))))))"
+" ht_147"
+"(lambda(k_38 v_204)"
+"(hash-set! ht_147 k_38(cons dir_1 v_204))))))"
 "(let-values()"
-"(let-values(((s_483)(string->symbol(car p_68))))"
+"(let-values(((s_483)(string->symbol(car p_66))))"
 "(hash-set!"
-" ht_156"
+" ht_147"
 " s_483"
-"(cons(box dir_1)(hash-ref ht_156 s_483 null)))))))))"
+"(cons(box dir_1)(hash-ref ht_147 s_483 null)))))))))"
 "(void)))"
-" v_206)"
+" v_203)"
 "(hash-for-each"
-" ht_156"
-"(lambda(k_39 v_208)(hash-set! ht_156 k_39(reverse$1 v_208))))"
-"(hash-set! links-cache links-path_0(cons ts_1 ht_156))"
-" ht_156))))))))))))))))))))))"
+" ht_147"
+"(lambda(k_39 v_205)(hash-set! ht_147 k_39(reverse$1 v_205))))"
+"(hash-set! links-cache links-path_0(cons ts_1 ht_147))"
+" ht_147))))))))))))))))))))))"
 "(define-values"
 "(normalize-collection-reference)"
 "(lambda(collection_2 collection-path_2)"
@@ -47945,41 +47026,41 @@ static const char *startup_source =
 "(let-values(((collection_3 collection-path_3)"
 "(normalize-collection-reference collection-in_0 collection-path-in_0)))"
 "(let-values(((all-paths_0)"
-"(let-values(((sym_93)"
+"(let-values(((sym_95)"
 "(string->symbol"
 "(if(path? collection_3)(path->string collection_3) collection_3))))"
-"((letrec-values(((loop_106)"
-"(lambda(l_83)"
+"((letrec-values(((loop_101)"
+"(lambda(l_81)"
 "(begin"
 " 'loop"
-"(if(null? l_83)"
+"(if(null? l_81)"
 "(let-values() null)"
-"(if(not(car l_83))"
+"(if(not(car l_81))"
 "(let-values()"
-"(append(1/current-library-collection-paths)(loop_106(cdr l_83))))"
-"(if(hash?(car l_83))"
+"(append(1/current-library-collection-paths)(loop_101(cdr l_81))))"
+"(if(hash?(car l_81))"
 "(let-values()"
 "(append"
-"(map2 box(hash-ref(car l_83) sym_93 null))"
-"(hash-ref(car l_83) #f null)"
-"(loop_106(cdr l_83))))"
+"(map2 box(hash-ref(car l_81) sym_95 null))"
+"(hash-ref(car l_81) #f null)"
+"(loop_101(cdr l_81))))"
 "(let-values()"
-"(let-values(((ht_157)(get-linked-collections(car l_83))))"
+"(let-values(((ht_148)(get-linked-collections(car l_81))))"
 "(append"
-"(hash-ref ht_157 sym_93 null)"
-"(hash-ref ht_157 #f null)"
-"(loop_106(cdr l_83))))))))))))"
-" loop_106)"
+"(hash-ref ht_148 sym_95 null)"
+"(hash-ref ht_148 #f null)"
+"(loop_101(cdr l_81))))))))))))"
+" loop_101)"
 "(1/current-library-collection-links)))))"
 "(let-values(((done_1)(lambda(p_11)(begin 'done(if file-name_1(build-path p_11 file-name_1) p_11)))))"
 "(let-values(((*build-path-rep_0)"
-"(lambda(p_69 c_55)"
-"(begin '*build-path-rep(if(path? p_69)(build-path p_69 c_55)(unbox p_69))))))"
+"(lambda(p_67 c_55)"
+"(begin '*build-path-rep(if(path? p_67)(build-path p_67 c_55)(unbox p_67))))))"
 "(let-values(((*directory-exists?_0)"
-"(lambda(orig_0 p_47)"
-"(begin '*directory-exists?(if(path? orig_0)(directory-exists? p_47) #t)))))"
+"(lambda(orig_0 p_49)"
+"(begin '*directory-exists?(if(path? orig_0)(directory-exists? p_49) #t)))))"
 "(let-values(((to-string_0)"
-"(lambda(p_70)(begin 'to-string(if(path? p_70)(path->string p_70) p_70)))))"
+"(lambda(p_68)(begin 'to-string(if(path? p_68)(path->string p_68) p_68)))))"
 "((letrec-values(((cloop_0)"
 "(lambda(paths_1 found-col_0)"
 "(begin"
@@ -47992,7 +47073,7 @@ static const char *startup_source =
 "                                                            \"\""
 "(apply"
 " string-append"
-"((letrec-values(((loop_49)"
+"((letrec-values(((loop_102)"
 "(lambda(cp_0)"
 "(begin"
 " 'loop"
@@ -48001,18 +47082,18 @@ static const char *startup_source =
 "(list*"
 "(to-string_0(car cp_0))"
 "                                                                                      \"/\""
-"(loop_49(cdr cp_0))))))))"
-" loop_49)"
+"(loop_102(cdr cp_0))))))))"
+" loop_102)"
 " collection-path_3)))))"
 "(letrec-values(((filter_1)"
-"(lambda(f_40 l_29)"
+"(lambda(f_40 l_82)"
 "(begin"
 " 'filter"
-"(if(null? l_29)"
+"(if(null? l_82)"
 " null"
-"(if(f_40(car l_29))"
-"(cons(car l_29)(filter_1 f_40(cdr l_29)))"
-"(filter_1 f_40(cdr l_29))))))))"
+"(if(f_40(car l_82))"
+"(cons(car l_82)(filter_1 f_40(cdr l_82)))"
+"(filter_1 f_40(cdr l_82))))))))"
 "(fail_5"
 "(format"
 "                                                  \"collection not found\\n  collection: ~s\\n  in collection directories:~a~a\""
@@ -48022,18 +47103,18 @@ static const char *startup_source =
 "(apply"
 " string-append"
 "(map2"
-"                                                    (lambda (p_71) (format \"\\n ~a ~a\" \" \" p_71))"
-"(let-values(((len_35)(length all-paths_0))"
+"                                                    (lambda (p_69) (format \"\\n ~a ~a\" \" \" p_69))"
+"(let-values(((len_34)(length all-paths_0))"
 "((clen_0)"
 "(length(1/current-library-collection-paths))))"
-"(if(<(- len_35 clen_0) 5)"
+"(if(<(- len_34 clen_0) 5)"
 " all-paths_0"
 "(append"
 "(1/current-library-collection-paths)"
 "(list"
 "(format"
 "                                                           \"... [~a additional linked and package directories]\""
-"(- len_35 clen_0))))))))"
+"(- len_34 clen_0))))))))"
 "(if(ormap2 box? all-paths_0)"
 "(format"
 "                                                     \"\\n   sub-collection: ~s\\n  in parent directories:~a\""
@@ -48041,7 +47122,7 @@ static const char *startup_source =
 "(apply"
 " string-append"
 "(map2"
-"                                                       (lambda (p_72) (format \"\\n   ~a\" (unbox p_72)))"
+"                                                       (lambda (p_70) (format \"\\n   ~a\" (unbox p_70)))"
 "(filter_1 box? all-paths_0))))"
 "                                                    \"\"))))))"
 "(let-values(((dir_2)(*build-path-rep_0(car paths_1) collection_3)))"
@@ -48049,31 +47130,31 @@ static const char *startup_source =
 "(let-values(((cpath_0)(apply build-path dir_2 collection-path_3)))"
 "(if(if(null? collection-path_3) #t(directory-exists? cpath_0))"
 "(if file-name_1"
-"(if(let-values(((or-part_140)"
+"(if(let-values(((or-part_302)"
 "(file-exists?/maybe-compiled"
 " cpath_0"
 " file-name_1"
 " check-compiled?_1)))"
-"(if or-part_140"
-" or-part_140"
+"(if or-part_302"
+" or-part_302"
 "(let-values(((alt-file-name_0)"
 "(let-values(((file-name_2)"
 "(if(path? file-name_1)"
 "(path->string file-name_1)"
 " file-name_1)))"
-"(let-values(((len_36)"
+"(let-values(((len_35)"
 "(string-length file-name_2)))"
-"(if(>= len_36 4)"
+"(if(>= len_35 4)"
 "(if(string=?"
 "                                                                                     \".rkt\""
 "(substring"
 " file-name_2"
-"(- len_36 4)))"
+"(- len_35 4)))"
 "(string-append"
 "(substring"
 " file-name_2"
 " 0"
-"(- len_36 4))"
+"(- len_35 4))"
 "                                                                                   \".ss\")"
 " #f)"
 " #f)))))"
@@ -48086,8 +47167,8 @@ static const char *startup_source =
 "(done_1 cpath_0)"
 "(cloop_0"
 "(cdr paths_1)"
-"(let-values(((or-part_98) found-col_0))"
-"(if or-part_98 or-part_98 cpath_0))))"
+"(let-values(((or-part_101) found-col_0))"
+"(if or-part_101 or-part_101 cpath_0))))"
 "(done_1 cpath_0))"
 "(cloop_0(cdr paths_1) found-col_0)))"
 "(cloop_0(cdr paths_1) found-col_0))))))))"
@@ -48098,35 +47179,35 @@ static const char *startup_source =
 "(file-exists?/maybe-compiled)"
 "(lambda(dir_3 path_10 check-compiled?_2)"
 "(begin"
-"(let-values(((or-part_100)(file-exists?(build-path dir_3 path_10))))"
-"(if or-part_100"
-" or-part_100"
+"(let-values(((or-part_102)(file-exists?(build-path dir_3 path_10))))"
+"(if or-part_102"
+" or-part_102"
 "(if check-compiled?_2"
 "            (let-values (((try-path_0) (path-add-extension path_10 #\".zo\"))"
 "((modes_0)(1/use-compiled-file-paths))"
 "((roots_0)(1/current-compiled-file-roots)))"
 "(ormap2"
-"(lambda(d_34)"
+"(lambda(d_35)"
 "(ormap2"
 "(lambda(mode_16)"
 "(file-exists?"
-"(let-values(((p_73)(build-path dir_3 mode_16 try-path_0)))"
-"(if(eq? d_34 'same)"
-"(let-values() p_73)"
-"(if(relative-path? d_34)"
-"(let-values()(build-path p_73 d_34))"
-"(let-values()(reroot-path p_73 d_34)))))))"
+"(let-values(((p_71)(build-path dir_3 mode_16 try-path_0)))"
+"(if(eq? d_35 'same)"
+"(let-values() p_71)"
+"(if(relative-path? d_35)"
+"(let-values()(build-path p_71 d_35))"
+"(let-values()(reroot-path p_71 d_35)))))))"
 " modes_0))"
 " roots_0))"
 " #f))))))"
 "(define-values"
 "(1/find-library-collection-paths)"
-"(let-values(((find-library-collection-paths5_0)"
-"(lambda(extra-collects-dirs1_0 post-collects-dirs2_0 extra-collects-dirs3_0 post-collects-dirs4_0)"
+"(let-values(((find-library-collection-paths3_0)"
+"(lambda(extra-collects-dirs1_0 post-collects-dirs2_0)"
 "(begin"
-" 'find-library-collection-paths5"
-"(let-values(((extra-collects-dirs_0)(if extra-collects-dirs3_0 extra-collects-dirs1_0 null)))"
-"(let-values(((post-collects-dirs_0)(if post-collects-dirs4_0 post-collects-dirs2_0 null)))"
+" 'find-library-collection-paths3"
+"(let-values(((extra-collects-dirs_0) extra-collects-dirs1_0))"
+"(let-values(((post-collects-dirs_0) post-collects-dirs2_0))"
 "(let-values()"
 "(let-values(((user-too?_0)(1/use-user-specific-search-paths))"
 "((cons-if_0)"
@@ -48150,32 +47231,32 @@ static const char *startup_source =
 "(get-installation-name config-table_1)"
 "                                  \"collects\")"
 " #f)"
-"((letrec-values(((loop_87)"
-"(lambda(l_84)"
+"((letrec-values(((loop_103)"
+"(lambda(l_83)"
 "(begin"
 " 'loop"
-"(if(null? l_84)"
+"(if(null? l_83)"
 " null"
-"(let-values(((collects-path_1)(car l_84)))"
-"(let-values(((v_209)"
+"(let-values(((collects-path_1)(car l_83)))"
+"(let-values(((v_206)"
 "(exe-relative-path->complete-path"
 " collects-path_1)))"
-"(if v_209"
+"(if v_206"
 "(cons"
 "(simplify-path"
-"(path->complete-path v_209(current-directory)))"
-"(loop_87(cdr l_84)))"
-"(loop_87(cdr l_84))))))))))"
-" loop_87)"
+"(path->complete-path v_206(current-directory)))"
+"(loop_103(cdr l_83)))"
+"(loop_103(cdr l_83))))))))))"
+" loop_103)"
 "(append"
 " extra-collects-dirs_0"
 "(list(find-system-path 'collects-dir))"
 " post-collects-dirs_0)))))))))))))"
 "(case-lambda"
-"(()(begin 'find-library-collection-paths(find-library-collection-paths5_0 #f #f #f #f)))"
+"(()(begin 'find-library-collection-paths(find-library-collection-paths3_0 null null)))"
 "((extra-collects-dirs_1 post-collects-dirs2_1)"
-"(find-library-collection-paths5_0 extra-collects-dirs_1 post-collects-dirs2_1 #t #t))"
-"((extra-collects-dirs1_1)(find-library-collection-paths5_0 extra-collects-dirs1_1 #f #t #f)))))"
+"(find-library-collection-paths3_0 extra-collects-dirs_1 post-collects-dirs2_1))"
+"((extra-collects-dirs1_1)(find-library-collection-paths3_0 extra-collects-dirs1_1 null)))))"
 "(define-values(prop:readtable prop:readtable? prop:readtable-ref)(make-struct-type-property 'readtable))"
 "(define-values"
 "(1/current-readtable)"
@@ -48183,14 +47264,14 @@ static const char *startup_source =
 "(let-values()"
 "(make-parameter"
 " #f"
-"(lambda(v_210)"
+"(lambda(v_207)"
 "(begin"
-"(if((lambda(x_83)"
-"(let-values(((or-part_11)(not x_83)))(if or-part_11 or-part_11(prop:readtable? x_83))))"
-" v_210)"
+"(if((lambda(x_85)"
+"(let-values(((or-part_11)(not x_85)))(if or-part_11 or-part_11(prop:readtable? x_85))))"
+" v_207)"
 "(void)"
-"             (let-values () (raise-argument-error 'current-readtable \"(or/c prop:readtable? #f)\" v_210)))"
-" v_210))))))"
+"             (let-values () (raise-argument-error 'current-readtable \"(or/c prop:readtable? #f)\" v_207)))"
+" v_207))))))"
 "(define-values"
 "(struct:read-config/outer"
 " read-config/outer1.1"
@@ -48202,7 +47283,7 @@ static const char *startup_source =
 " read-config/outer-pos"
 " read-config/outer-indentations"
 " read-config/outer-keep-comment?)"
-"(let-values(((struct:_35 make-_35 ?_35 -ref_35 -set!_35)"
+"(let-values(((struct:_36 make-_36 ?_36 -ref_36 -set!_36)"
 "(let-values()"
 "(let-values()"
 "(make-struct-type"
@@ -48218,16 +47299,16 @@ static const char *startup_source =
 " #f"
 " 'read-config/outer)))))"
 "(values"
-" struct:_35"
-" make-_35"
-" ?_35"
-"(make-struct-field-accessor -ref_35 0 'inner)"
-"(make-struct-field-accessor -ref_35 1 'wrap)"
-"(make-struct-field-accessor -ref_35 2 'line)"
-"(make-struct-field-accessor -ref_35 3 'col)"
-"(make-struct-field-accessor -ref_35 4 'pos)"
-"(make-struct-field-accessor -ref_35 5 'indentations)"
-"(make-struct-field-accessor -ref_35 6 'keep-comment?))))"
+" struct:_36"
+" make-_36"
+" ?_36"
+"(make-struct-field-accessor -ref_36 0 'inner)"
+"(make-struct-field-accessor -ref_36 1 'wrap)"
+"(make-struct-field-accessor -ref_36 2 'line)"
+"(make-struct-field-accessor -ref_36 3 'col)"
+"(make-struct-field-accessor -ref_36 4 'pos)"
+"(make-struct-field-accessor -ref_36 5 'indentations)"
+"(make-struct-field-accessor -ref_36 6 'keep-comment?))))"
 "(define-values"
 "(struct:read-config/inner"
 " read-config/inner2.1"
@@ -48244,7 +47325,7 @@ static const char *startup_source =
 " read-config/inner-parameter-override"
 " read-config/inner-parameter-cache"
 " read-config/inner-st)"
-"(let-values(((struct:_79 make-_79 ?_79 -ref_79 -set!_79)"
+"(let-values(((struct:_80 make-_80 ?_80 -ref_80 -set!_80)"
 "(let-values()"
 "(let-values()"
 "(make-struct-type"
@@ -48260,21 +47341,21 @@ static const char *startup_source =
 " #f"
 " 'read-config/inner)))))"
 "(values"
-" struct:_79"
-" make-_79"
-" ?_79"
-"(make-struct-field-accessor -ref_79 0 'readtable)"
-"(make-struct-field-accessor -ref_79 1 'next-readtable)"
-"(make-struct-field-accessor -ref_79 2 'for-syntax?)"
-"(make-struct-field-accessor -ref_79 3 'source)"
-"(make-struct-field-accessor -ref_79 4 'read-compiled)"
-"(make-struct-field-accessor -ref_79 5 'dynamic-require)"
-"(make-struct-field-accessor -ref_79 6 'module-declared?)"
-"(make-struct-field-accessor -ref_79 7 'coerce)"
-"(make-struct-field-accessor -ref_79 8 'coerce-key)"
-"(make-struct-field-accessor -ref_79 9 'parameter-override)"
-"(make-struct-field-accessor -ref_79 10 'parameter-cache)"
-"(make-struct-field-accessor -ref_79 11 'st))))"
+" struct:_80"
+" make-_80"
+" ?_80"
+"(make-struct-field-accessor -ref_80 0 'readtable)"
+"(make-struct-field-accessor -ref_80 1 'next-readtable)"
+"(make-struct-field-accessor -ref_80 2 'for-syntax?)"
+"(make-struct-field-accessor -ref_80 3 'source)"
+"(make-struct-field-accessor -ref_80 4 'read-compiled)"
+"(make-struct-field-accessor -ref_80 5 'dynamic-require)"
+"(make-struct-field-accessor -ref_80 6 'module-declared?)"
+"(make-struct-field-accessor -ref_80 7 'coerce)"
+"(make-struct-field-accessor -ref_80 8 'coerce-key)"
+"(make-struct-field-accessor -ref_80 9 'parameter-override)"
+"(make-struct-field-accessor -ref_80 10 'parameter-cache)"
+"(make-struct-field-accessor -ref_80 11 'st))))"
 "(define-values"
 "(read-config/make)"
 "(lambda(readtable_0"
@@ -48289,7 +47370,7 @@ static const char *startup_source =
 " coerce-key_0"
 " line_1"
 " col_0"
-" pos_106"
+" pos_108"
 " indentations_0"
 " keep-comment?_0"
 " parameter-override_0"
@@ -48313,47 +47394,47 @@ static const char *startup_source =
 " wrap_3"
 " line_1"
 " col_0"
-" pos_106"
+" pos_108"
 " indentations_0"
 " keep-comment?_0))))"
 "(define-values(read-config-wrap)(lambda(v_25)(begin(read-config/outer-wrap v_25))))"
-"(define-values(read-config-line)(lambda(v_211)(begin(read-config/outer-line v_211))))"
-"(define-values(read-config-col)(lambda(v_212)(begin(read-config/outer-col v_212))))"
-"(define-values(read-config-pos)(lambda(v_213)(begin(read-config/outer-pos v_213))))"
-"(define-values(read-config-indentations)(lambda(v_214)(begin(read-config/outer-indentations v_214))))"
-"(define-values(read-config-keep-comment?)(lambda(v_215)(begin(read-config/outer-keep-comment? v_215))))"
+"(define-values(read-config-line)(lambda(v_208)(begin(read-config/outer-line v_208))))"
+"(define-values(read-config-col)(lambda(v_209)(begin(read-config/outer-col v_209))))"
+"(define-values(read-config-pos)(lambda(v_210)(begin(read-config/outer-pos v_210))))"
+"(define-values(read-config-indentations)(lambda(v_211)(begin(read-config/outer-indentations v_211))))"
+"(define-values(read-config-keep-comment?)(lambda(v_96)(begin(read-config/outer-keep-comment? v_96))))"
 "(define-values"
 "(read-config-readtable)"
-"(lambda(v_216)(begin(read-config/inner-readtable(read-config/outer-inner v_216)))))"
+"(lambda(v_212)(begin(read-config/inner-readtable(read-config/outer-inner v_212)))))"
 "(define-values"
 "(read-config-next-readtable)"
-"(lambda(v_217)(begin(read-config/inner-next-readtable(read-config/outer-inner v_217)))))"
+"(lambda(v_213)(begin(read-config/inner-next-readtable(read-config/outer-inner v_213)))))"
 "(define-values"
 "(read-config-for-syntax?)"
-"(lambda(v_218)(begin(read-config/inner-for-syntax?(read-config/outer-inner v_218)))))"
-"(define-values(read-config-source)(lambda(v_73)(begin(read-config/inner-source(read-config/outer-inner v_73)))))"
+"(lambda(v_214)(begin(read-config/inner-for-syntax?(read-config/outer-inner v_214)))))"
+"(define-values(read-config-source)(lambda(v_74)(begin(read-config/inner-source(read-config/outer-inner v_74)))))"
 "(define-values"
 "(read-config-read-compiled)"
-"(lambda(v_189)(begin(read-config/inner-read-compiled(read-config/outer-inner v_189)))))"
+"(lambda(v_215)(begin(read-config/inner-read-compiled(read-config/outer-inner v_215)))))"
 "(define-values"
 "(read-config-dynamic-require)"
-"(lambda(v_219)(begin(read-config/inner-dynamic-require(read-config/outer-inner v_219)))))"
+"(lambda(v_216)(begin(read-config/inner-dynamic-require(read-config/outer-inner v_216)))))"
 "(define-values"
 "(read-config-module-declared?)"
-"(lambda(v_220)(begin(read-config/inner-module-declared?(read-config/outer-inner v_220)))))"
+"(lambda(v_217)(begin(read-config/inner-module-declared?(read-config/outer-inner v_217)))))"
 "(define-values"
 "(read-config-coerce)"
-"(lambda(v_221)(begin(read-config/inner-coerce(read-config/outer-inner v_221)))))"
+"(lambda(v_206)(begin(read-config/inner-coerce(read-config/outer-inner v_206)))))"
 "(define-values"
 "(read-config-coerce-key)"
-"(lambda(v_222)(begin(read-config/inner-coerce-key(read-config/outer-inner v_222)))))"
+"(lambda(v_218)(begin(read-config/inner-coerce-key(read-config/outer-inner v_218)))))"
 "(define-values"
 "(read-config-parameter-override)"
-"(lambda(v_209)(begin(read-config/inner-parameter-override(read-config/outer-inner v_209)))))"
+"(lambda(v_219)(begin(read-config/inner-parameter-override(read-config/outer-inner v_219)))))"
 "(define-values"
 "(read-config-parameter-cache)"
-"(lambda(v_223)(begin(read-config/inner-parameter-cache(read-config/outer-inner v_223)))))"
-"(define-values(read-config-st)(lambda(v_224)(begin(read-config/inner-st(read-config/outer-inner v_224)))))"
+"(lambda(v_38)(begin(read-config/inner-parameter-cache(read-config/outer-inner v_38)))))"
+"(define-values(read-config-st)(lambda(v_220)(begin(read-config/inner-st(read-config/outer-inner v_220)))))"
 "(define-values"
 "(struct:read-config-state"
 " read-config-state3.1"
@@ -48362,7 +47443,7 @@ static const char *startup_source =
 " read-config-state-graph"
 " set-read-config-state-accum-str!"
 " set-read-config-state-graph!)"
-"(let-values(((struct:_80 make-_80 ?_80 -ref_80 -set!_80)"
+"(let-values(((struct:_81 make-_81 ?_81 -ref_81 -set!_81)"
 "(let-values()"
 "(let-values()"
 "(make-struct-type"
@@ -48378,51 +47459,41 @@ static const char *startup_source =
 " #f"
 " 'read-config-state)))))"
 "(values"
-" struct:_80"
-" make-_80"
-" ?_80"
-"(make-struct-field-accessor -ref_80 0 'accum-str)"
-"(make-struct-field-accessor -ref_80 1 'graph)"
-"(make-struct-field-mutator -set!_80 0 'accum-str)"
-"(make-struct-field-mutator -set!_80 1 'graph))))"
+" struct:_81"
+" make-_81"
+" ?_81"
+"(make-struct-field-accessor -ref_81 0 'accum-str)"
+"(make-struct-field-accessor -ref_81 1 'graph)"
+"(make-struct-field-mutator -set!_81 0 'accum-str)"
+"(make-struct-field-mutator -set!_81 1 'graph))))"
 "(define-values(current-read-config)(make-parameter #f))"
 "(define-values"
 "(make-read-config26.1)"
 "(lambda(coerce12_0"
-" coerce23_0"
 " coerce-key13_0"
-" coerce-key24_0"
-" dynamic-require10_0"
-" dynamic-require21_0"
+" dynamic-require10_1"
 " for-syntax?5_0"
-" for-syntax?16_0"
 " keep-comment?14_0"
-" keep-comment?25_0"
 " module-declared?11_0"
-" module-declared?22_0"
 " next-readtable7_0"
-" next-readtable18_0"
 " read-compiled9_0"
-" read-compiled20_0"
 " readtable6_0"
-" readtable17_0"
 " source4_0"
-" source15_0"
-" wrap8_0"
-" wrap19_0)"
+" wrap8_0)"
 "(begin"
 " 'make-read-config26"
-"(let-values(((source_2)(if source15_0 source4_0 #f)))"
-"(let-values(((for-syntax?_1)(if for-syntax?16_0 for-syntax?5_0 #f)))"
-"(let-values(((readtable_1)(if readtable17_0 readtable6_0(1/current-readtable))))"
-"(let-values(((next-readtable_1)(if next-readtable18_0 next-readtable7_0 readtable_1)))"
-"(let-values(((wrap_4)(if wrap19_0 wrap8_0 #f)))"
-"(let-values(((read-compiled_1)(if read-compiled20_0 read-compiled9_0 #f)))"
-"(let-values(((dynamic-require_1)(if dynamic-require21_0 dynamic-require10_0 #f)))"
-"(let-values(((module-declared?_1)(if module-declared?22_0 module-declared?11_0 #f)))"
-"(let-values(((coerce_1)(if coerce23_0 coerce12_0 #f)))"
-"(let-values(((coerce-key_1)(if coerce-key24_0 coerce-key13_0 #f)))"
-"(let-values(((keep-comment?_1)(if keep-comment?25_0 keep-comment?14_0 #f)))"
+"(let-values(((source_2) source4_0))"
+"(let-values(((for-syntax?_1) for-syntax?5_0))"
+"(let-values(((readtable_1)(if(eq? readtable6_0 unsafe-undefined)(1/current-readtable) readtable6_0)))"
+"(let-values(((next-readtable_1)"
+"(if(eq? next-readtable7_0 unsafe-undefined) readtable_1 next-readtable7_0)))"
+"(let-values(((wrap_4) wrap8_0))"
+"(let-values(((read-compiled_1) read-compiled9_0))"
+"(let-values(((dynamic-require_1) dynamic-require10_1))"
+"(let-values(((module-declared?_1) module-declared?11_0))"
+"(let-values(((coerce_1) coerce12_0))"
+"(let-values(((coerce-key_1) coerce-key13_0))"
+"(let-values(((keep-comment?_1) keep-comment?14_0))"
 "(let-values()"
 "(read-config/make"
 " readtable_1"
@@ -48430,21 +47501,21 @@ static const char *startup_source =
 " for-syntax?_1"
 " source_2"
 " wrap_4"
-"(let-values(((or-part_89) read-compiled_1))"
-"                                 (if or-part_89 or-part_89 (lambda (in_0) (error 'read \"no `read-compiled` provided\"))))"
-"(let-values(((or-part_91) dynamic-require_1))"
-"(if or-part_91"
-" or-part_91"
-"(lambda(mod-path_25 sym_94 failure-k_0)"
+"(let-values(((or-part_52) read-compiled_1))"
+"                                 (if or-part_52 or-part_52 (lambda (in_0) (error 'read \"no `read-compiled` provided\"))))"
+"(let-values(((or-part_303) dynamic-require_1))"
+"(if or-part_303"
+" or-part_303"
+"(lambda(mod-path_26 sym_96 failure-k_0)"
 "                                     (error 'read \"no `dynamic-require` provided\"))))"
-"(let-values(((or-part_305) module-declared?_1))"
-"(if or-part_305"
-" or-part_305"
-"                                   (lambda (mod-path_26) (error 'read \"no `module-declare?` provided\"))))"
-"(let-values(((or-part_101) coerce_1))"
-"(if or-part_101 or-part_101(lambda(for-syntax?_2 v_107 srcloc_9) v_107)))"
-"(let-values(((or-part_102) coerce-key_1))"
-"(if or-part_102 or-part_102(lambda(for-syntax?_3 v_111) v_111)))"
+"(let-values(((or-part_178) module-declared?_1))"
+"(if or-part_178"
+" or-part_178"
+"                                   (lambda (mod-path_27) (error 'read \"no `module-declare?` provided\"))))"
+"(let-values(((or-part_221) coerce_1))"
+"(if or-part_221 or-part_221(lambda(for-syntax?_2 v_142 srcloc_9) v_142)))"
+"(let-values(((or-part_304) coerce-key_1))"
+"(if or-part_304 or-part_304(lambda(for-syntax?_3 v_100) v_100)))"
 " #f"
 " #f"
 " #f"
@@ -48455,14 +47526,7 @@ static const char *startup_source =
 "(read-config-state3.1 #f #f)))))))))))))))))"
 "(define-values"
 "(read-config-update42.1)"
-"(lambda(for-syntax?29_0"
-" keep-comment?34_0"
-" next-readtable32_0"
-" next-readtable38_0"
-" readtable31_0"
-" reset-graph?33_0"
-" wrap30_0"
-" config41_0)"
+"(lambda(for-syntax?29_0 keep-comment?34_0 next-readtable32_0 readtable31_0 reset-graph?33_0 wrap30_0 config41_0)"
 "(begin"
 " 'read-config-update42"
 "(let-values(((config_0) config41_0))"
@@ -48470,17 +47534,19 @@ static const char *startup_source =
 "(let-values(((wrap_5) wrap30_0))"
 "(let-values(((readtable_2) readtable31_0))"
 "(let-values(((next-readtable_2)"
-"(if next-readtable38_0 next-readtable32_0(read-config-readtable config_0))))"
+"(if(eq? next-readtable32_0 unsafe-undefined)"
+"(read-config-readtable config_0)"
+" next-readtable32_0)))"
 "(let-values(((local-graph?_0) reset-graph?33_0))"
 "(let-values(((keep-comment?_2) keep-comment?34_0))"
 "(let-values()"
-"(let-values(((v_225) config_0))"
-"(let-values(((the-struct_77) v_225))"
+"(let-values(((v_221) config_0))"
+"(let-values(((the-struct_77) v_221))"
 "(if(read-config/outer? the-struct_77)"
 "(let-values(((wrap55_0) wrap_5)"
 "((keep-comment?56_0) keep-comment?_2)"
 "((inner57_0)"
-"(let-values(((the-struct_78)(read-config/outer-inner v_225)))"
+"(let-values(((the-struct_78)(read-config/outer-inner v_221)))"
 "(if(read-config/inner? the-struct_78)"
 "(let-values(((for-syntax?58_0) for-syntax?_4)"
 "((readtable59_0) readtable_2)"
@@ -48514,23 +47580,23 @@ static const char *startup_source =
 "                            (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_77)))))))))))))))"
 "(define-values"
 "(port+config->srcloc49.1)"
-"(lambda(end-pos45_0 end-pos46_0 in47_0 config48_0)"
+"(lambda(end-pos45_0 in47_0 config48_0)"
 "(begin"
 " 'port+config->srcloc49"
 "(let-values(((in_1) in47_0))"
 "(let-values(((config_1) config48_0))"
-"(let-values(((given-end-pos_0)(if end-pos46_0 end-pos45_0 #f)))"
+"(let-values(((given-end-pos_0) end-pos45_0))"
 "(let-values()"
 "(let-values(((end-pos_0)"
-"(let-values(((or-part_306) given-end-pos_0))"
-"(if or-part_306"
-" or-part_306"
+"(let-values(((or-part_305) given-end-pos_0))"
+"(if or-part_305"
+" or-part_305"
 "(let-values(((end-line_0 end-col_0 end-pos_1)(port-next-location in_1)))"
 " end-pos_1)))))"
 "(srcloc"
-"(let-values(((or-part_174)(read-config-source config_1)))"
-"(if or-part_174"
-" or-part_174"
+"(let-values(((or-part_306)(read-config-source config_1)))"
+"(if or-part_306"
+" or-part_306"
 "                     (let-values (((or-part_307) (object-name in_1))) (if or-part_307 or-part_307 \"UNKNOWN\"))))"
 "(read-config-line config_1)"
 "(read-config-col config_1)"
@@ -48540,15 +47606,15 @@ static const char *startup_source =
 " #f))))))))))"
 "(define-values"
 "(reading-at)"
-"(lambda(config_2 line_2 col_1 pos_107)"
+"(lambda(config_2 line_2 col_1 pos_109)"
 "(begin"
-"(let-values(((v_226) config_2))"
-"(let-values(((the-struct_79) v_226))"
+"(let-values(((v_222) config_2))"
+"(let-values(((the-struct_79) v_222))"
 "(if(read-config/outer? the-struct_79)"
 "(let-values(((line62_0) line_2)"
 "((col63_0) col_1)"
-"((pos64_0) pos_107)"
-"((inner65_0)(read-config/outer-inner v_226)))"
+"((pos64_0) pos_109)"
+"((inner65_0)(read-config/outer-inner v_222)))"
 "(read-config/outer1.1"
 " inner65_0"
 "(read-config/outer-wrap the-struct_79)"
@@ -48562,10 +47628,10 @@ static const char *startup_source =
 "(disable-wrapping)"
 "(lambda(config_3)"
 "(begin"
-"(let-values(((v_227) config_3))"
-"(let-values(((the-struct_80) v_227))"
+"(let-values(((v_223) config_3))"
+"(let-values(((the-struct_80) v_223))"
 "(if(read-config/outer? the-struct_80)"
-"(let-values(((wrap66_0) #f)((inner67_0)(read-config/outer-inner v_227)))"
+"(let-values(((wrap66_0) #f)((inner67_0)(read-config/outer-inner v_223)))"
 "(read-config/outer1.1"
 " inner67_0"
 " wrap66_0"
@@ -48579,10 +47645,10 @@ static const char *startup_source =
 "(keep-comment)"
 "(lambda(config_4)"
 "(begin"
-"(let-values(((v_228) config_4))"
-"(let-values(((the-struct_81) v_228))"
+"(let-values(((v_224) config_4))"
+"(let-values(((the-struct_81) v_224))"
 "(if(read-config/outer? the-struct_81)"
-"(let-values(((keep-comment?68_0) #t)((inner69_0)(read-config/outer-inner v_228)))"
+"(let-values(((keep-comment?68_0) #t)((inner69_0)(read-config/outer-inner v_224)))"
 "(read-config/outer1.1"
 " inner69_0"
 "(read-config/outer-wrap the-struct_81)"
@@ -48599,10 +47665,10 @@ static const char *startup_source =
 "(if(not(read-config-keep-comment? config_5))"
 "(let-values() config_5)"
 "(let-values()"
-"(let-values(((v_229) config_5))"
-"(let-values(((the-struct_82) v_229))"
+"(let-values(((v_225) config_5))"
+"(let-values(((the-struct_82) v_225))"
 "(if(read-config/outer? the-struct_82)"
-"(let-values(((keep-comment?70_0) #f)((inner71_0)(read-config/outer-inner v_229)))"
+"(let-values(((keep-comment?70_0) #f)((inner71_0)(read-config/outer-inner v_225)))"
 "(read-config/outer1.1"
 " inner71_0"
 "(read-config/outer-wrap the-struct_82)"
@@ -48619,11 +47685,11 @@ static const char *startup_source =
 "(if(eq?(read-config-readtable config_6)(read-config-next-readtable config_6))"
 "(let-values() config_6)"
 "(let-values()"
-"(let-values(((v_230) config_6))"
-"(let-values(((the-struct_83) v_230))"
+"(let-values(((v_226) config_6))"
+"(let-values(((the-struct_83) v_226))"
 "(if(read-config/outer? the-struct_83)"
 "(let-values(((inner72_0)"
-"(let-values(((the-struct_84)(read-config/outer-inner v_230)))"
+"(let-values(((the-struct_84)(read-config/outer-inner v_226)))"
 "(if(read-config/inner? the-struct_84)"
 "(let-values(((readtable73_0)(read-config-next-readtable config_6)))"
 "(read-config/inner2.1"
@@ -48651,36 +47717,36 @@ static const char *startup_source =
 "                (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_83)))))))))"
 "(define-values"
 "(coerce)"
-"(lambda(val_81 in_2 config_7)"
+"(lambda(val_78 in_2 config_7)"
 "(begin"
 "(let-values(((for-syntax?_5)(read-config-for-syntax? config_7)))"
 "((read-config-coerce config_7)"
 " for-syntax?_5"
-" val_81"
+" val_78"
 "(if for-syntax?_5"
-"(let-values(((in1_0) in_2)((config2_0) config_7))(port+config->srcloc49.1 #f #f in1_0 config2_0))"
+"(let-values(((in1_0) in_2)((config2_0) config_7))(port+config->srcloc49.1 #f in1_0 config2_0))"
 " #f))))))"
-"(define-values(default-reader-guard$1)(lambda(v_231)(begin 'default-reader-guard v_231)))"
+"(define-values(default-reader-guard$1)(lambda(v_227)(begin 'default-reader-guard v_227)))"
 "(define-values"
 "(1/current-reader-guard)"
 "(make-parameter"
 " default-reader-guard$1"
-"(lambda(v_232)"
+"(lambda(v_228)"
 "(begin"
-"(if(if(procedure? v_232)(procedure-arity-includes? v_232 1) #f)"
+"(if(if(procedure? v_228)(procedure-arity-includes? v_228 1) #f)"
 "(void)"
-"         (let-values () (raise-argument-error 'current-reader-guard \"(procedure-arity-includes/c 1)\" v_232)))"
-" v_232))))"
+"         (let-values () (raise-argument-error 'current-reader-guard \"(procedure-arity-includes/c 1)\" v_228)))"
+" v_228))))"
 "(define-values(1/read-square-bracket-as-paren)(make-parameter #t(lambda(v_1)(if v_1 #t #f))))"
-"(define-values(1/read-curly-brace-as-paren)(make-parameter #t(lambda(v_233)(if v_233 #t #f))))"
-"(define-values(1/read-square-bracket-with-tag)(make-parameter #f(lambda(v_234)(if v_234 #t #f))))"
-"(define-values(1/read-curly-brace-with-tag)(make-parameter #f(lambda(v_63)(if v_63 #t #f))))"
+"(define-values(1/read-curly-brace-as-paren)(make-parameter #t(lambda(v_229)(if v_229 #t #f))))"
+"(define-values(1/read-square-bracket-with-tag)(make-parameter #f(lambda(v_230)(if v_230 #t #f))))"
+"(define-values(1/read-curly-brace-with-tag)(make-parameter #f(lambda(v_64)(if v_64 #t #f))))"
 "(define-values(1/read-cdot)(make-parameter #f(lambda(v_29)(if v_29 #t #f))))"
-"(define-values(1/read-accept-graph)(make-parameter #t(lambda(v_64)(if v_64 #t #f))))"
+"(define-values(1/read-accept-graph)(make-parameter #t(lambda(v_65)(if v_65 #t #f))))"
 "(define-values(1/read-accept-compiled)(make-parameter #f(lambda(v_2)(if v_2 #t #f))))"
-"(define-values(1/read-accept-box)(make-parameter #t(lambda(v_96)(if v_96 #t #f))))"
-"(define-values(1/read-decimal-as-inexact)(make-parameter #t(lambda(v_235)(if v_235 #t #f))))"
-"(define-values(1/read-accept-dot)(make-parameter #t(lambda(v_65)(if v_65 #t #f))))"
+"(define-values(1/read-accept-box)(make-parameter #t(lambda(v_231)(if v_231 #t #f))))"
+"(define-values(1/read-decimal-as-inexact)(make-parameter #t(lambda(v_232)(if v_232 #t #f))))"
+"(define-values(1/read-accept-dot)(make-parameter #t(lambda(v_66)(if v_66 #t #f))))"
 "(define-values(1/read-accept-infix-dot)(make-parameter #t(lambda(v_30)(if v_30 #t #f))))"
 "(define-values(1/read-accept-quasiquote)(make-parameter #t(lambda(v_3)(if v_3 #t #f))))"
 "(define-values(1/read-accept-reader)(make-parameter #f(lambda(v_31)(if v_31 #t #f))))"
@@ -48691,20 +47757,20 @@ static const char *startup_source =
 "(lambda(param_0 config_8)"
 "(begin"
 "(let-values(((cache_4)(read-config-parameter-cache config_8)))"
-"(let-values(((v_67)"
+"(let-values(((v_68)"
 "(hash-ref(read-config-parameter-override config_8) param_0(hash-ref cache_4 param_0 unknown))))"
-"(if(eq? v_67 unknown)"
-"(let-values()(let-values(((v_68)(param_0)))(begin(hash-set! cache_4 param_0 v_68) v_68)))"
-"(let-values() v_67)))))))"
+"(if(eq? v_68 unknown)"
+"(let-values()(let-values(((v_69)(param_0)))(begin(hash-set! cache_4 param_0 v_69) v_69)))"
+"(let-values() v_68)))))))"
 "(define-values"
 "(override-parameter)"
 "(lambda(param_1 config_9 v_28)"
 "(begin"
-"(let-values(((v_95) config_9))"
-"(let-values(((the-struct_85) v_95))"
+"(let-values(((v_233) config_9))"
+"(let-values(((the-struct_85) v_233))"
 "(if(read-config/outer? the-struct_85)"
 "(let-values(((inner1_0)"
-"(let-values(((the-struct_86)(read-config/outer-inner v_95)))"
+"(let-values(((the-struct_86)(read-config/outer-inner v_233)))"
 "(if(read-config/inner? the-struct_86)"
 "(let-values(((parameter-override2_0)"
 "(hash-set(read-config-parameter-override config_9) param_1 v_28)))"
@@ -48815,30 +47881,30 @@ static const char *startup_source =
 "(if(let-values(((or-part_53)(not rt_0)))(if or-part_53 or-part_53(1/readtable? rt_0)))"
 "(void)"
 "          (let-values () (raise-argument-error 'make-readtable \"(or/c readtable? #f)\" rt_0)))"
-"((letrec-values(((loop_107)"
+"((letrec-values(((loop_96)"
 "(lambda(args_8 symbol-parser_0 char-ht_0 dispatch-ht_0 delimiter-ht_0)"
 "(begin"
 " 'loop"
 "(if(null? args_8)"
 "(let-values()(readtable1.1 symbol-parser_0 char-ht_0 dispatch-ht_0 delimiter-ht_0))"
 "(let-values()"
-"(let-values(((key_85)(car args_8)))"
+"(let-values(((key_84)(car args_8)))"
 "(let-values((()"
 "(begin"
-"(if(let-values(((or-part_163)(not key_85)))"
-"(if or-part_163 or-part_163(char? key_85)))"
+"(if(let-values(((or-part_165)(not key_84)))"
+"(if or-part_165 or-part_165(char? key_84)))"
 "(void)"
 "(let-values()"
 "(raise-argument-error"
 " 'make-readtable"
 "                                                         \"(or/c char? #f)\""
-" key_85)))"
+" key_84)))"
 "(values))))"
 "(let-values((()"
 "(begin"
 "(if(null? args_8)"
 "(let-values()"
-"(if key_85"
+"(if key_84"
 "(let-values()"
 "(raise-arguments-error"
 " 'make-readtable"
@@ -48846,7 +47912,7 @@ static const char *startup_source =
 "                                                                \"expected 'terminating-macro, 'non-terminating-macro, 'dispatch-macro,\""
 "                                                                \" or character argument after character argument\")"
 "                                                               \"character\""
-" key_85))"
+" key_84))"
 "(let-values()"
 "(raise-arguments-error"
 " 'make-readtable"
@@ -48856,22 +47922,22 @@ static const char *startup_source =
 "(let-values(((mode_17)(cadr args_8)))"
 "(let-values((()"
 "(begin"
-"(if key_85"
+"(if key_84"
 "(let-values()"
-"(if(let-values(((or-part_253)"
+"(if(let-values(((or-part_259)"
 "(eq? mode_17 'terminating-macro)))"
-"(if or-part_253"
-" or-part_253"
-"(let-values(((or-part_254)"
+"(if or-part_259"
+" or-part_259"
+"(let-values(((or-part_260)"
 "(eq?"
 " mode_17"
 " 'non-terminating-macro)))"
-"(if or-part_254"
-" or-part_254"
-"(let-values(((or-part_308)"
+"(if or-part_260"
+" or-part_260"
+"(let-values(((or-part_293)"
 "(eq? mode_17 'dispatch-macro)))"
-"(if or-part_308"
-" or-part_308"
+"(if or-part_293"
+" or-part_293"
 "(char? mode_17)))))))"
 "(void)"
 "(let-values()"
@@ -48893,7 +47959,7 @@ static const char *startup_source =
 "(let-values()"
 "(raise-arguments-error"
 " 'make-readtable"
-"(if key_85"
+"(if key_84"
 "                                                                   \"expected readtable or #f argument after character argument\""
 "                                                                   \"expected procedure argument after symbol argument\")"
 "                                                                 \"given\""
@@ -48902,7 +47968,7 @@ static const char *startup_source =
 "(values))))"
 "(let-values(((target_0)(caddr args_8)))"
 "(let-values(((rest-args_0)(cdddr args_8)))"
-"(if(not key_85)"
+"(if(not key_84)"
 "(let-values()"
 "(begin"
 "(if(if(procedure? target_0)"
@@ -48914,7 +47980,7 @@ static const char *startup_source =
 " 'make-readtable"
 "                                                             \"(procedure-arity-includes/c 6)\""
 " target_0)))"
-"(loop_107"
+"(loop_96"
 " rest-args_0"
 " target_0"
 " char-ht_0"
@@ -48932,20 +47998,20 @@ static const char *startup_source =
 " 'make-readtable"
 "                                                               \"(procedure-arity-includes/c 6)\""
 " target_0)))"
-"(loop_107"
+"(loop_96"
 " rest-args_0"
 " symbol-parser_0"
 " char-ht_0"
-"(hash-set dispatch-ht_0 key_85 target_0)"
+"(hash-set dispatch-ht_0 key_84 target_0)"
 " delimiter-ht_0)))"
 "(if(char? mode_17)"
 "(let-values()"
 "(let-values((()"
 "(begin"
-"(if(let-values(((or-part_309)"
+"(if(let-values(((or-part_285)"
 "(not target_0)))"
-"(if or-part_309"
-" or-part_309"
+"(if or-part_285"
+" or-part_285"
 "(1/readtable? target_0)))"
 "(void)"
 "(let-values()"
@@ -48967,20 +48033,20 @@ static const char *startup_source =
 "(if actual-target_0"
 "(hash-set"
 " char-ht_0"
-" key_85"
+" key_84"
 " actual-target_0)"
-"(hash-remove char-ht_0 key_85))))"
+"(hash-remove char-ht_0 key_84))))"
 "(let-values(((new-delimiter-ht_0)"
 "(hash-set"
 " delimiter-ht_0"
-" key_85"
+" key_84"
 "(if target_0"
 "(hash-ref"
 "(readtable-delimiter-ht target_0)"
 " mode_17"
 " mode_17)"
 " mode_17))))"
-"(loop_107"
+"(loop_96"
 " rest-args_0"
 " symbol-parser_0"
 " new-char-ht_0"
@@ -49000,21 +48066,21 @@ static const char *startup_source =
 " target_0)))"
 "(values))))"
 "(let-values(((new-char-ht_1)"
-"(hash-set char-ht_0 key_85 target_0)))"
+"(hash-set char-ht_0 key_84 target_0)))"
 "(let-values(((new-delimiter-ht_1)"
 "(hash-set"
 " delimiter-ht_0"
-" key_85"
+" key_84"
 "(if(eq? mode_17 'terminating-macro)"
 " 'delimit"
 " 'no-delimit))))"
-"(loop_107"
+"(loop_96"
 " rest-args_0"
 " symbol-parser_0"
 " new-char-ht_1"
 " dispatch-ht_0"
 " new-delimiter-ht_1))))))))))))))))))))))"
-" loop_107)"
+" loop_96)"
 " args_7"
 "(if rt_0(readtable-symbol-parser rt_0) #f)"
 "(if rt_0(readtable-char-ht rt_0) '#hasheqv())"
@@ -49031,7 +48097,7 @@ static const char *startup_source =
 "(lambda(c_58 config_11)"
 "(begin"
 "(let-values(((rt_2)(read-config-readtable config_11))((c_59) c_58))"
-"(if(let-values(((or-part_310)(not rt_2)))(if or-part_310 or-part_310(not(char? c_59))))"
+"(if(let-values(((or-part_308)(not rt_2)))(if or-part_308 or-part_308(not(char? c_59))))"
 "(let-values() c_59)"
 "(let-values()(*readtable-effective-char rt_2 c_59)))))))"
 "(define-values"
@@ -49052,10 +48118,10 @@ static const char *startup_source =
 "(if rt_4(hash-ref(readtable-dispatch-ht rt_4) c_61 #f) #f))))))"
 "(define-values"
 "(readtable-apply)"
-"(lambda(handler_0 c_62 in_3 config_14 line_3 col_2 pos_108)"
+"(lambda(handler_0 c_62 in_3 config_14 line_3 col_2 pos_110)"
 "(begin"
 "(let-values(((for-syntax?_6)(read-config-for-syntax? config_14)))"
-"(let-values(((v_236)"
+"(let-values(((v_234)"
 "(if(not for-syntax?_6)"
 "(let-values()"
 "(with-continuation-mark"
@@ -49067,7 +48133,7 @@ static const char *startup_source =
 "(let-values()"
 "(if(procedure-arity-includes? handler_0 2)"
 "(handler_0 c_62 in_3)"
-"(handler_0 c_62 in_3 #f line_3 col_2 pos_108)))))"
+"(handler_0 c_62 in_3 #f line_3 col_2 pos_110)))))"
 "(let-values()"
 "(with-continuation-mark"
 " parameterization-key"
@@ -49076,8 +48142,8 @@ static const char *startup_source =
 " current-read-config"
 " config_14)"
 "(let-values()"
-"(handler_0 c_62 in_3(read-config-source config_14) line_3 col_2 pos_108)))))))"
-"(if(1/special-comment? v_236) v_236(coerce v_236 in_3 config_14)))))))"
+"(handler_0 c_62 in_3(read-config-source config_14) line_3 col_2 pos_110)))))))"
+"(if(1/special-comment? v_234) v_234(coerce v_234 in_3 config_14)))))))"
 "(define-values"
 "(1/readtable-mapping)"
 "(lambda(rt_5 c_63)"
@@ -49095,7 +48161,7 @@ static const char *startup_source =
 "(values))))"
 "(let-values(((handler_1)(hash-ref(readtable-char-ht rt_5) c_63 #f)))"
 "(values"
-"(let-values(((or-part_165)"
+"(let-values(((or-part_167)"
 "(if handler_1"
 "(if(char? handler_1)"
 "(let-values() handler_1)"
@@ -49103,50 +48169,50 @@ static const char *startup_source =
 "(let-values() 'terminating-macro)"
 "(let-values() 'non-terminating-macro)))"
 " #f)))"
-"(if or-part_165 or-part_165 c_63))"
+"(if or-part_167 or-part_167 c_63))"
 "(if(char? handler_1) #f handler_1)"
 "(hash-ref(readtable-dispatch-ht rt_5) c_63 #f))))))))"
 "(define-values"
 "(readtable-equivalent-chars)"
 "(lambda(rt_6 c_64)"
 "(begin"
-"(let-values(((ht_158)(readtable-char-ht rt_6)))"
+"(let-values(((ht_149)(readtable-char-ht rt_6)))"
 "(append"
-"(if(hash-ref ht_158 c_64 #f) null(list c_64))"
+"(if(hash-ref ht_149 c_64 #f) null(list c_64))"
 "(reverse$1"
-"(let-values(((ht_149) ht_158))"
+"(let-values(((ht_150) ht_149))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
-"(let-values()(check-in-hash ht_149)))"
-"((letrec-values(((for-loop_270)"
-"(lambda(fold-var_82 i_175)"
+"(let-values()(check-in-hash ht_150)))"
+"((letrec-values(((for-loop_272)"
+"(lambda(fold-var_82 i_171)"
 "(begin"
 " 'for-loop"
-"(if i_175"
-"(let-values(((k_40 v_91)(hash-iterate-key+value ht_149 i_175)))"
-"(let-values(((fold-var_290)"
+"(if i_171"
+"(let-values(((k_40 v_92)(hash-iterate-key+value ht_150 i_171)))"
+"(let-values(((fold-var_281)"
 "(let-values(((fold-var_85) fold-var_82))"
-"(if(eqv? v_91 c_64)"
-"(let-values(((fold-var_242) fold-var_85))"
+"(if(eqv? v_92 c_64)"
+"(let-values(((fold-var_236) fold-var_85))"
 "(let-values(((fold-var_13)"
 "(let-values()"
-"(cons(let-values() k_40) fold-var_242))))"
+"(cons(let-values() k_40) fold-var_236))))"
 "(values fold-var_13)))"
 " fold-var_85))))"
 "(if(not #f)"
-"(for-loop_270 fold-var_290(hash-iterate-next ht_149 i_175))"
-" fold-var_290)))"
+"(for-loop_272 fold-var_281(hash-iterate-next ht_150 i_171))"
+" fold-var_281)))"
 " fold-var_82)))))"
-" for-loop_270)"
+" for-loop_272)"
 " null"
-"(hash-iterate-first ht_149))))))))))"
+"(hash-iterate-first ht_150))))))))))"
 "(define-values"
 "(struct:special special1.1 special? special-value)"
-"(let-values(((struct:_81 make-_81 ?_81 -ref_81 -set!_81)"
+"(let-values(((struct:_82 make-_82 ?_82 -ref_82 -set!_82)"
 "(let-values()"
 "(let-values()(make-struct-type 'special #f 1 0 #f null(current-inspector) #f '(0) #f 'special)))))"
-"(values struct:_81 make-_81 ?_81(make-struct-field-accessor -ref_81 0 'value))))"
+"(values struct:_82 make-_82 ?_82(make-struct-field-accessor -ref_82 0 'value))))"
 "(define-values"
 "(wrap)"
 "(lambda(s-exp_3 in_2 config_7 rep_0)"
@@ -49155,44 +48221,38 @@ static const char *startup_source =
 "(if wrap_6"
 "(wrap_6"
 " s-exp_3"
-"(let-values(((in1_1) in_2)((config2_1) config_7))(port+config->srcloc49.1 #f #f in1_1 config2_1))"
+"(let-values(((in1_1) in_2)((config2_1) config_7))(port+config->srcloc49.1 #f in1_1 config2_1))"
 " rep_0)"
 " s-exp_3)))))"
-"(define-values(consume-char)(lambda(in_4 c_32)(begin(begin(read-char in_4)(void)))))"
+"(define-values(consume-char)(lambda(in_4 c_33)(begin(begin(read-char in_4)(void)))))"
 "(define-values"
 "(consume-char/special)"
-"(lambda(in_5 config_15 c_33)"
+"(lambda(in_5 config_15 c_25)"
 "(begin(begin(read-char-or-special in_5 special1.1(read-config-source config_15))(void)))))"
 "(define-values"
 "(reader-error12.1)"
-"(lambda(continuation-marks1_0"
-" continuation-marks5_0"
-" due-to2_0"
-" due-to6_0"
-" end-pos4_0"
-" end-pos8_0"
-" who3_1"
-" who7_0"
-" in9_1"
-" config10_0"
-" str11_0"
-" new-rest_0)"
+"(lambda(continuation-marks1_0 due-to2_0 end-pos4_0 who3_0 in9_0 config10_0 str11_0 new-rest_0)"
 "(begin"
 " 'reader-error12"
-"(let-values(((in_6) in9_1))"
+"(let-values(((in_6) in9_0))"
 "(let-values(((config_16) config10_0))"
 "(let-values(((continuation-marks_0)"
-"(if continuation-marks5_0 continuation-marks1_0(current-continuation-marks))))"
-"(let-values(((due-to_0)(if due-to6_0 due-to2_0 '#\\x)))"
-"(let-values(((who_30)(if who7_0 who3_1(if(read-config-for-syntax? config_16) 'read-syntax 'read))))"
-"(let-values(((end-pos_2)(if end-pos8_0 end-pos4_0 #f)))"
+"(if(eq? continuation-marks1_0 unsafe-undefined)"
+"(current-continuation-marks)"
+" continuation-marks1_0)))"
+"(let-values(((due-to_0)(if(eq? due-to2_0 unsafe-undefined) '#\\x due-to2_0)))"
+"(let-values(((who_28)"
+"(if(eq? who3_0 unsafe-undefined)"
+"(if(read-config-for-syntax? config_16) 'read-syntax 'read)"
+" who3_0)))"
+"(let-values(((end-pos_2) end-pos4_0))"
 "(let-values(((str_25) str11_0))"
 "(let-values(((args_9) new-rest_0))"
-"                      (let-values (((msg_0) (format \"~a: ~a\" who_30 (apply format str_25 args_9))))"
+"                      (let-values (((msg_0) (format \"~a: ~a\" who_28 (apply format str_25 args_9))))"
 "(let-values(((srcloc_10)"
 "(if in_6"
 "(let-values(((in23_0) in_6)((config24_0) config_16)((end-pos25_0) end-pos_2))"
-"(port+config->srcloc49.1 end-pos25_0 #t in23_0 config24_0))"
+"(port+config->srcloc49.1 end-pos25_0 in23_0 config24_0))"
 " #f)))"
 "(raise"
 "((if(eof-object? due-to_0)"
@@ -49200,29 +48260,37 @@ static const char *startup_source =
 "(if(not(char? due-to_0))"
 "(let-values() exn:fail:read:non-char)"
 "(let-values() exn:fail:read)))"
-"(let-values(((s_7)"
+"(let-values(((s_41)"
 "(if(error-print-source-location)"
 "(if srcloc_10(srcloc->string srcloc_10) #f)"
 " #f)))"
-"                              (if s_7 (string-append s_7 \": \" msg_0) msg_0))"
+"                              (if s_41 (string-append s_41 \": \" msg_0) msg_0))"
 " continuation-marks_0"
 "(if srcloc_10(list srcloc_10) null))))))))))))))))"
 "(define-values"
 "(bad-syntax-error20.1)"
-"(lambda(due-to15_0 due-to16_0 in17_0 config18_0 str19_0)"
+"(lambda(due-to15_0 in17_0 config18_0 str19_0)"
 "(begin"
 " 'bad-syntax-error20"
 "(let-values(((in_7) in17_0))"
 "(let-values(((config_17) config18_0))"
 "(let-values(((str_26) str19_0))"
-"(let-values(((due-to_1)(if due-to16_0 due-to15_0 '#\\x)))"
+"(let-values(((due-to_1)(if(eq? due-to15_0 unsafe-undefined) '#\\x due-to15_0)))"
 "(let-values()"
 "(let-values(((in26_0) in_7)"
 "((config27_0) config_17)"
 "((due-to28_0) due-to_1)"
-"                             ((temp29_2) \"bad syntax `~a`\")"
+"                             ((temp29_3) \"bad syntax `~a`\")"
 "((str30_0) str_26))"
-"(reader-error12.1 #f #f due-to28_0 #t #f #f #f #f in26_0 config27_0 temp29_2(list str30_0)))))))))))"
+"(reader-error12.1"
+" unsafe-undefined"
+" due-to28_0"
+" #f"
+" unsafe-undefined"
+" in26_0"
+" config27_0"
+" temp29_3"
+"(list str30_0)))))))))))"
 "(define-values"
 "(catch-and-reraise-as-reader/proc)"
 "(lambda(in_8 config_18 thunk_7)"
@@ -49232,31 +48300,27 @@ static const char *startup_source =
 "(lambda(exn_3)"
 "(begin"
 " 'with-handlers-handler32"
-"(let-values(((in33_1) in_8)"
+"(let-values(((in33_0) in_8)"
 "((config34_0) config_18)"
-"                                     ((temp35_1) \"~a\")"
-"((temp36_4)"
+"                                     ((temp35_2) \"~a\")"
+"((temp36_3)"
 "(let-values(((s_484)(exn-message exn_3)))"
 "                                        (regexp-replace \"^[a-z-]*: \" s_484 \"\")))"
-"((temp37_3)(exn-continuation-marks exn_3)))"
+"((temp37_2)(exn-continuation-marks exn_3)))"
 "(reader-error12.1"
-" temp37_3"
-" #t"
+" temp37_2"
+" unsafe-undefined"
 " #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" in33_1"
+" unsafe-undefined"
+" in33_0"
 " config34_0"
-" temp35_1"
-"(list temp36_4)))))))"
+" temp35_2"
+"(list temp36_3)))))))"
 "(let-values(((bpz_3)(continuation-mark-set-first #f break-enabled-key)))"
 "(call-handled-body"
 " bpz_3"
-"(lambda(e_78)"
-"(select-handler/no-breaks e_78 bpz_3(list(cons with-handlers-predicate31_0 with-handlers-handler32_0))))"
+"(lambda(e_76)"
+"(select-handler/no-breaks e_76 bpz_3(list(cons with-handlers-predicate31_0 with-handlers-handler32_0))))"
 "(lambda()(thunk_7))))))))"
 "(define-values"
 "(port-next-location*)"
@@ -49265,8 +48329,8 @@ static const char *startup_source =
 "(if(not init-c_0)"
 "(let-values()(port-next-location in_4))"
 "(let-values()"
-"(let-values(((line_4 col_3 pos_109)(port-next-location in_4)))"
-"(values line_4(if col_3(max 0(sub1 col_3)) #f)(if pos_109(max 1(sub1 pos_109)) #f))))))))"
+"(let-values(((line_4 col_3 pos_111)(port-next-location in_4)))"
+"(values line_4(if col_3(max 0(sub1 col_3)) #f)(if pos_111(max 1(sub1 pos_111)) #f))))))))"
 "(define-values"
 "(read-char/skip-whitespace-and-comments)"
 "(lambda(init-c_1 read-one_0 in_5 config_15)"
@@ -49278,17 +48342,17 @@ static const char *startup_source =
 "(begin"
 " 'skip-loop"
 "(let-values(((c_36)"
-"(let-values(((or-part_155) init-c_2))"
-"(if or-part_155"
-" or-part_155"
+"(let-values(((or-part_158) init-c_2))"
+"(if or-part_158"
+" or-part_158"
 "(let-values(((in_9) in_5)((source_4) source_3))"
 "(read-char-or-special in_9 special1.1 source_4))))))"
 "(let-values(((ec_0)"
-"(let-values(((rt_8) rt_7)((c_46) c_36))"
+"(let-values(((rt_8) rt_7)((c_65) c_36))"
 "(if(let-values(((or-part_5)(not rt_8)))"
-"(if or-part_5 or-part_5(not(char? c_46))))"
-"(let-values() c_46)"
-"(let-values()(*readtable-effective-char rt_8 c_46))))))"
+"(if or-part_5 or-part_5(not(char? c_65))))"
+"(let-values() c_65)"
+"(let-values()(*readtable-effective-char rt_8 c_65))))))"
 "(if(eof-object? ec_0)"
 "(let-values() c_36)"
 "(if(not(char? ec_0))"
@@ -49308,20 +48372,20 @@ static const char *startup_source =
 "(lambda()"
 "(begin"
 " 'loop"
-"(let-values(((c_65)"
+"(let-values(((c_66)"
 "(let-values(((in_10) in_5)"
 "((source_5) source_3))"
 "(read-char-or-special"
 " in_10"
 " special1.1"
 " source_5))))"
-"(if(let-values(((or-part_295)"
-"(eof-object? c_65)))"
-"(if or-part_295"
-" or-part_295"
+"(if(let-values(((or-part_309)"
+"(eof-object? c_66)))"
+"(if or-part_309"
+" or-part_309"
 "(eqv?"
 " '#\\newline"
-"(effective-char c_65 config_15))))"
+"(effective-char c_66 config_15))))"
 "(void)"
 "(let-values()(loop_78))))))))"
 " loop_78))"
@@ -49332,13 +48396,13 @@ static const char *startup_source =
 "(eqv?"
 " '#\\|"
 "(let-values(((in_11) in_5)((skip-count_0) 0)((source_6) source_3))"
-"(let-values(((c_49)"
+"(let-values(((c_67)"
 "(peek-char-or-special"
 " in_11"
 " skip-count_0"
 " 'special"
 " source_6)))"
-"(if(eq? c_49 'special)(special1.1 'special) c_49))))"
+"(if(eq? c_67 'special)(special1.1 'special) c_67))))"
 " #f)"
 "(let-values()"
 "(begin"
@@ -49352,28 +48416,28 @@ static const char *startup_source =
 "(let-values(((in_12) in_5)"
 "((skip-count_1) 0)"
 "((source_7) source_3))"
-"(let-values(((c_66)"
+"(let-values(((c_68)"
 "(peek-char-or-special"
 " in_12"
 " skip-count_1"
 " 'special"
 " source_7)))"
-"(if(eq? c_66 'special)(special1.1 'special) c_66))))"
-"(let-values(((c3_1)"
+"(if(eq? c_68 'special)(special1.1 'special) c_68))))"
+"(let-values(((c3_2)"
 "(let-values(((in_13) in_5)"
 "((skip-count_2) 1)"
 "((source_8) source_3))"
-"(let-values(((c_67)"
+"(let-values(((c_69)"
 "(peek-char-or-special"
 " in_13"
 " skip-count_2"
 " 'special"
 " source_8)))"
-"(if(eq? c_67 'special)"
+"(if(eq? c_69 'special)"
 "(special1.1 'special)"
-" c_67)))))"
-"(let-values(((or-part_296)(eqv? '#\\space c3_1)))"
-"(if or-part_296 or-part_296(eqv? '#\\/ c3_1))))"
+" c_69)))))"
+"(let-values(((or-part_310)(eqv? '#\\space c3_2)))"
+"(if or-part_310 or-part_310(eqv? '#\\/ c3_2))))"
 " #f)"
 " #f)"
 "(let-values()"
@@ -49388,35 +48452,31 @@ static const char *startup_source =
 "(let-values(((in_14) in_5)"
 "((skip-count_3) 0)"
 "((source_9) source_3))"
-"(let-values(((c_68)"
+"(let-values(((c_70)"
 "(peek-char-or-special"
 " in_14"
 " skip-count_3"
 " 'special"
 " source_9)))"
-"(if(eq? c_68 'special)(special1.1 'special) c_68))))"
+"(if(eq? c_70 'special)(special1.1 'special) c_70))))"
 " #f)"
 "(let-values()"
 "(let-values((()(begin(consume-char in_5 '#\\;)(values))))"
-"(let-values(((v_188)(read-one_0 #f in_5 config_15)))"
+"(let-values(((v_235)(read-one_0 #f in_5 config_15)))"
 "(begin"
-"(if(eof-object? v_188)"
+"(if(eof-object? v_235)"
 "(let-values()"
 "(let-values(((in1_2) in_5)"
 "((config2_2) config_15)"
-"((v3_0) v_188)"
+"((v3_0) v_235)"
 "((temp4_2)"
 "                                                                            \"expected a commented-out element for `~a;`, but found end-of-file\")"
 "((ec5_0) ec_0))"
 "(reader-error12.1"
-" #f"
-" #f"
+" unsafe-undefined"
 " v3_0"
-" #t"
-" #f"
-" #f"
-" #f"
 " #f"
+" unsafe-undefined"
 " in1_2"
 " config2_2"
 " temp4_2"
@@ -49434,41 +48494,49 @@ static const char *startup_source =
 "(lambda(init-c_3 in_15 config_19)"
 "(begin"
 "(let-values(((source_10)(read-config-source config_19)))"
-"(let-values(((line_5 col_4 pos_110)(port-next-location in_15)))"
+"(let-values(((line_5 col_4 pos_112)(port-next-location in_15)))"
 "(begin"
 "(consume-char in_15 '#\\|)"
-"((letrec-values(((loop_108)"
+"((letrec-values(((loop_104)"
 "(lambda(prev-c_0 depth_10)"
 "(begin"
 " 'loop"
-"(let-values(((c_25)"
+"(let-values(((c_71)"
 "(let-values(((in_16) in_15)((source_11) source_10))"
 "(read-char-or-special in_16 special1.1 source_11))))"
-"(if(eof-object? c_25)"
+"(if(eof-object? c_71)"
 "(let-values()"
 "(let-values(((in6_0) in_15)"
-"((temp7_3)(reading-at config_19 line_5 col_4 pos_110))"
-"((c8_0) c_25)"
+"((temp7_3)(reading-at config_19 line_5 col_4 pos_112))"
+"((c8_0) c_71)"
 "                                                     ((temp9_4) \"end of file in `#|` comment\"))"
-"(reader-error12.1 #f #f c8_0 #t #f #f #f #f in6_0 temp7_3 temp9_4(list))))"
-"(if(not(char? c_25))"
-"(let-values()(loop_108 #f depth_10))"
-"(if(if(char=? '#\\| c_25)(eqv? prev-c_0 '#\\#) #f)"
-"(let-values()(loop_108 #f(add1 depth_10)))"
-"(if(if(char=? '#\\# c_25)(eqv? prev-c_0 '#\\|) #f)"
+"(reader-error12.1"
+" unsafe-undefined"
+" c8_0"
+" #f"
+" unsafe-undefined"
+" in6_0"
+" temp7_3"
+" temp9_4"
+"(list))))"
+"(if(not(char? c_71))"
+"(let-values()(loop_104 #f depth_10))"
+"(if(if(char=? '#\\| c_71)(eqv? prev-c_0 '#\\#) #f)"
+"(let-values()(loop_104 #f(add1 depth_10)))"
+"(if(if(char=? '#\\# c_71)(eqv? prev-c_0 '#\\|) #f)"
 "(let-values()"
 "(if(positive? depth_10)"
-"(let-values()(loop_108 #f(sub1 depth_10)))"
+"(let-values()(loop_104 #f(sub1 depth_10)))"
 "(void)))"
-"(let-values()(loop_108 c_25 depth_10)))))))))))"
-" loop_108)"
+"(let-values()(loop_104 c_71 depth_10)))))))))))"
+" loop_104)"
 " #f"
 " 0)))))))"
 "(define-values"
 "(skip-unix-line-comment!)"
 "(lambda(in_17 config_20)"
 "(begin"
-"((letrec-values(((loop_109)"
+"((letrec-values(((loop_105)"
 "(lambda(backslash?_0)"
 "(begin"
 " 'loop"
@@ -49478,21 +48546,21 @@ static const char *startup_source =
 "(if(eof-object? c_42)"
 "(let-values()(void))"
 "(if(not(char? c_42))"
-"(let-values()(loop_109 #f))"
+"(let-values()(loop_105 #f))"
 "(if(char=? c_42 '#\\newline)"
-"(let-values()(if backslash?_0(let-values()(loop_109 #f))(void)))"
+"(let-values()(if backslash?_0(let-values()(loop_105 #f))(void)))"
 "(if(char=? c_42 '#\\\\)"
-"(let-values()(loop_109 #t))"
-"(let-values()(loop_109 #f)))))))))))"
-" loop_109)"
+"(let-values()(loop_105 #t))"
+"(let-values()(loop_105 #f)))))))))))"
+" loop_105)"
 " #f))))"
 "(define-values"
 "(readtable-char-delimiter?)"
-"(lambda(rt_9 c_32 config_7)"
+"(lambda(rt_9 c_33 config_7)"
 "(begin"
 "(let-values(((dc_0)"
-"(let-values(((or-part_2)(if rt_9(hash-ref(readtable-delimiter-ht rt_9) c_32 #f) #f)))"
-"(if or-part_2 or-part_2 c_32))))"
+"(let-values(((or-part_2)(if rt_9(hash-ref(readtable-delimiter-ht rt_9) c_33 #f) #f)))"
+"(if or-part_2 or-part_2 c_33))))"
 "(if(eq? dc_0 'no-delimit)"
 "(let-values() #f)"
 "(if(not(char? dc_0))"
@@ -49504,27 +48572,27 @@ static const char *startup_source =
 "(let-values(((or-part_311)(char=? dc_0 '#\\()))"
 "(if or-part_311"
 " or-part_311"
-"(let-values(((or-part_291)(char=? dc_0 '#\\))))"
-"(if or-part_291"
-" or-part_291"
+"(let-values(((or-part_290)(char=? dc_0 '#\\))))"
+"(if or-part_290"
+" or-part_290"
 "(let-values(((or-part_27)(char=? dc_0 '#\\[)))"
 "(if or-part_27"
 " or-part_27"
 "(let-values(((or-part_10)(char=? dc_0 '#\\])))"
 "(if or-part_10"
 " or-part_10"
-"(let-values(((or-part_155)(char=? dc_0 '#\\{)))"
-"(if or-part_155"
-" or-part_155"
+"(let-values(((or-part_158)(char=? dc_0 '#\\{)))"
+"(if or-part_158"
+" or-part_158"
 "(let-values(((or-part_12)(char=? dc_0 '#\\})))"
 "(if or-part_12"
 " or-part_12"
 "(let-values(((or-part_13)(char=? dc_0 '#\\')))"
 "(if or-part_13"
 " or-part_13"
-"(let-values(((or-part_211)(char=? dc_0 '#\\`)))"
-"(if or-part_211"
-" or-part_211"
+"(let-values(((or-part_217)(char=? dc_0 '#\\`)))"
+"(if or-part_217"
+" or-part_217"
 "(let-values(((or-part_3)(char=? dc_0 '#\\,)))"
 "(if or-part_3"
 " or-part_3"
@@ -49550,7 +48618,7 @@ static const char *startup_source =
 " or-part_1"
 "(let-values(((or-part_11)(char=? ec_1 '#\\])))(if or-part_11 or-part_11(char=? ec_1 '#\\})))))"
 " #f))))"
-" (define-values (closer-name) (lambda (c_33 config_22) (begin (effective-char-names c_33 config_22 \"closer\"))))"
+" (define-values (closer-name) (lambda (c_25 config_22) (begin (effective-char-names c_25 config_22 \"closer\"))))"
 " (define-values (opener-name) (lambda (c_34 config_23) (begin (effective-char-names c_34 config_23 \"opener\"))))"
 "(define-values"
 "(effective-char-names)"
@@ -49570,42 +48638,42 @@ static const char *startup_source =
 "(let-values()"
 "(apply"
 " string-append"
-"((letrec-values(((loop_110)"
+"((letrec-values(((loop_106)"
 "(lambda(cs_2)"
 "(begin"
 " 'loop"
 "(if(null?(cdr cs_2))"
 "                                               (let-values () (list (format \"or `~a`\" (car cs_2))))"
 "(let-values()"
-"                                                 (cons (format \"`~a`, \" (car cs_2)) (loop_110 (cdr cs_2)))))))))"
-" loop_110)"
+"                                                 (cons (format \"`~a`, \" (car cs_2)) (loop_106 (cdr cs_2)))))))))"
+" loop_106)"
 " cs_1)))))))))))))"
 "(define-values"
 "(closer->opener)"
-"(lambda(c_46)"
+"(lambda(c_65)"
 "(begin"
-"(let-values(((tmp_36) c_46))"
+"(let-values(((tmp_36) c_65))"
 "(if(equal? tmp_36 '#\\))"
 "(let-values() '#\\()"
 "(if(equal? tmp_36 '#\\])"
 "(let-values() '#\\[)"
-"(if(equal? tmp_36 '#\\})(let-values() '#\\{)(let-values() c_46))))))))"
+"(if(equal? tmp_36 '#\\})(let-values() '#\\{)(let-values() c_65))))))))"
 " (define-values (dot-name) (lambda (config_25) (begin \"`.`\")))"
 "(define-values"
 "(all-openers-str)"
 "(lambda(config_21)"
 "(begin"
-"(let-values(((p_63)(opener-name '#\\( config_21)))"
+"(let-values(((p_62)(opener-name '#\\( config_21)))"
 "(let-values(((s_10)"
 "(if(check-parameter 1/read-square-bracket-as-paren config_21)(opener-name '#\\[ config_21) #f)))"
-"(let-values(((c_69)"
+"(let-values(((c_72)"
 "(if(check-parameter 1/read-curly-brace-as-paren config_21)(opener-name '#\\{ config_21) #f)))"
-"(if(if s_10 c_69 #f)"
-"              (let-values () (format \"~a, ~a, or ~a\" p_63 s_10 c_69))"
-"(if(let-values(((or-part_294) s_10))(if or-part_294 or-part_294 c_69))"
+"(if(if s_10 c_72 #f)"
+"              (let-values () (format \"~a, ~a, or ~a\" p_62 s_10 c_72))"
+"(if(let-values(((or-part_297) s_10))(if or-part_297 or-part_297 c_72))"
 "(let-values()"
-"                  (format \"~a or ~a\" p_63 (let-values (((or-part_295) s_10)) (if or-part_295 or-part_295 c_69))))"
-"(let-values() p_63)))))))))"
+"                  (format \"~a or ~a\" p_62 (let-values (((or-part_309) s_10)) (if or-part_309 or-part_309 c_72))))"
+"(let-values() p_62)))))))))"
 "(define-values"
 "(struct:accum-string"
 " accum-string1.1"
@@ -49637,60 +48705,60 @@ static const char *startup_source =
 "(let-values()(accum-string1.1 0(make-string 32)))))))))"
 "(define-values"
 "(accum-string-add!)"
-"(lambda(a_66 c_70)"
+"(lambda(a_66 c_50)"
 "(begin"
-"(let-values(((pos_111)(accum-string-pos a_66)))"
+"(let-values(((pos_113)(accum-string-pos a_66)))"
 "(let-values(((str_27)(accum-string-str a_66)))"
 "(let-values(((str2_0)"
-"(if(< pos_111(string-length str_27))"
+"(if(< pos_113(string-length str_27))"
 "(let-values() str_27)"
 "(let-values()"
 "(let-values(((str2_1)(make-string(*(string-length str_27) 2))))"
 "(begin(string-copy! str2_1 0 str_27)(set-accum-string-str! a_66 str2_1) str2_1))))))"
-"(begin(string-set! str2_0 pos_111 c_70)(set-accum-string-pos! a_66(add1 pos_111)))))))))"
+"(begin(string-set! str2_0 pos_113 c_50)(set-accum-string-pos! a_66(add1 pos_113)))))))))"
 "(define-values(accum-string-count)(lambda(a_67)(begin(accum-string-pos a_67))))"
-"(define-values(set-accum-string-count!)(lambda(a_68 pos_11)(begin(set-accum-string-pos! a_68 pos_11))))"
+"(define-values(set-accum-string-count!)(lambda(a_68 pos_12)(begin(set-accum-string-pos! a_68 pos_12))))"
 "(define-values"
 "(accum-string-convert!)"
 "(lambda(a_69 convert_1 start-pos_6)"
 "(begin"
 "(let-values(((str_28)(accum-string-str a_69)))"
-"(let-values(((s_79)(convert_1(substring str_28 start-pos_6(accum-string-pos a_69)))))"
-"(let-values(((len_37)(string-length s_79)))"
+"(let-values(((s_80)(convert_1(substring str_28 start-pos_6(accum-string-pos a_69)))))"
+"(let-values(((len_36)(string-length s_80)))"
 "(begin"
-"(if(<(+ len_37 start-pos_6)(string-length str_28))"
+"(if(<(+ len_36 start-pos_6)(string-length str_28))"
 "(void)"
 "(let-values()"
-"(let-values(((str2_2)(make-string(+ start-pos_6 len_37))))"
+"(let-values(((str2_2)(make-string(+ start-pos_6 len_36))))"
 "(begin(string-copy! str2_2 0 str_28 0 start-pos_6)(set-accum-string-str! a_69 str2_2)))))"
-"(string-copy!(accum-string-str a_69) start-pos_6 s_79)"
-"(set-accum-string-pos! a_69(+ start-pos_6 len_37)))))))))"
+"(string-copy!(accum-string-str a_69) start-pos_6 s_80)"
+"(set-accum-string-pos! a_69(+ start-pos_6 len_36)))))))))"
 "(define-values"
 "(accum-string-get!6.1)"
-"(lambda(start-pos2_0 start-pos3_0 a4_0 config5_0)"
+"(lambda(start-pos2_0 a4_0 config5_0)"
 "(begin"
 " 'accum-string-get!6"
-"(let-values(((a_70) a4_0))"
+"(let-values(((a_54) a4_0))"
 "(let-values(((config_27) config5_0))"
-"(let-values(((start-pos_7)(if start-pos3_0 start-pos2_0 0)))"
+"(let-values(((start-pos_7) start-pos2_0))"
 "(let-values()"
-"(let-values(((s_191)(substring(accum-string-str a_70) start-pos_7(accum-string-pos a_70))))"
-"(begin(accum-string-abandon! a_70 config_27) s_191)))))))))"
+"(let-values(((s_43)(substring(accum-string-str a_54) start-pos_7(accum-string-pos a_54))))"
+"(begin(accum-string-abandon! a_54 config_27) s_43)))))))))"
 "(define-values"
 "(accum-string-get-bytes!13.1)"
-"(lambda(start-pos9_0 start-pos10_0 a11_0 config12_0)"
+"(lambda(start-pos9_0 a11_0 config12_0)"
 "(begin"
 " 'accum-string-get-bytes!13"
-"(let-values(((a_71) a11_0))"
+"(let-values(((a_60) a11_0))"
 "(let-values(((config_28) config12_0))"
-"(let-values(((start-pos_8)(if start-pos10_0 start-pos9_0 0)))"
+"(let-values(((start-pos_8) start-pos9_0))"
 "(let-values()"
 "(let-values(((bstr_3)"
-"(string->bytes/latin-1(accum-string-str a_71) #f start-pos_8(accum-string-pos a_71))))"
-"(begin(accum-string-abandon! a_71 config_28) bstr_3)))))))))"
+"(string->bytes/latin-1(accum-string-str a_60) #f start-pos_8(accum-string-pos a_60))))"
+"(begin(accum-string-abandon! a_60 config_28) bstr_3)))))))))"
 "(define-values"
 "(accum-string-abandon!)"
-"(lambda(a_72 config_29)(begin(set-read-config-state-accum-str!(read-config-st config_29) a_72))))"
+"(lambda(a_70 config_29)(begin(set-read-config-state-accum-str!(read-config-st config_29) a_70))))"
 "(define-values"
 "(struct:indentation"
 " indentation1.1"
@@ -49735,7 +48803,7 @@ static const char *startup_source =
 "(make-indentation)"
 "(lambda(closer_0 in_19 config_30)"
 "(begin"
-"(let-values(((line_6 col_5 pos_112)(port-next-location in_19)))"
+"(let-values(((line_6 col_5 pos_114)(port-next-location in_19)))"
 "(indentation1.1 closer_0 #f #f line_6 line_6 #f(if col_5(add1 col_5) #f) #f)))))"
 "(define-values"
 "(track-indentation!)"
@@ -49774,34 +48842,34 @@ static const char *startup_source =
 "          (let-values () \"\"))))))"
 "(define-values"
 "(indentation-unexpected-closer-message)"
-"(lambda(ec_2 c_71 config_33)"
+"(lambda(ec_2 c_73 config_33)"
 "(begin"
 "(let-values(((indts_1)(read-config-indentations config_33)))"
 "(if(null? indts_1)"
-"          (let-values () (format \"unexpected `~a`\" c_71))"
+"          (let-values () (format \"unexpected `~a`\" c_73))"
 "(let-values()"
 "(let-values(((indt_2)(car indts_1)))"
 "(string-append"
 "(if(char=? ec_2(indentation-closer indt_2))"
-"                 (let-values () (format \"unexpected `~a`\" c_71))"
+"                 (let-values () (format \"unexpected `~a`\" c_73))"
 "(let-values()"
 "(let-values(((missing_2)"
-"(let-values(((or-part_218)"
+"(let-values(((or-part_300)"
 "(let-values(((lst_7)(cdr indts_1)))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
 "(let-values()(check-list lst_7)))"
 "((letrec-values(((for-loop_0)"
-"(lambda(result_124 lst_8)"
+"(lambda(result_121 lst_8)"
 "(begin"
 " 'for-loop"
 "(if(pair? lst_8)"
 "(let-values(((indt_3)(unsafe-car lst_8))"
 "((rest_0)(unsafe-cdr lst_8)))"
-"(let-values(((result_125)"
+"(let-values(((result_82)"
 "(let-values()"
-"(let-values(((result_126)"
+"(let-values(((result_122)"
 "(let-values()"
 "(let-values()"
 "(if(char=?"
@@ -49810,19 +48878,19 @@ static const char *startup_source =
 " indt_3))"
 "                                                                                                                 \"missing\""
 " #f)))))"
-"(values result_126)))))"
+"(values result_122)))))"
 "(if(if(not"
-"((lambda x_84 result_125)"
+"((lambda x_86 result_82)"
 " indt_3))"
 "(not #f)"
 " #f)"
-"(for-loop_0 result_125 rest_0)"
-" result_125)))"
-" result_124)))))"
+"(for-loop_0 result_82 rest_0)"
+" result_82)))"
+" result_121)))))"
 " for-loop_0)"
 " #f"
 " lst_7)))))"
-"                                   (if or-part_218 or-part_218 \"expected\"))))"
+"                                   (if or-part_300 or-part_300 \"expected\"))))"
 "(let-values(((opener-str_0)(opener-name(closer->opener(indentation-closer indt_2)) config_33)))"
 "(format"
 "                        \"~a ~a to close ~a, found instead `~a`\""
@@ -49831,20 +48899,15 @@ static const char *startup_source =
 "(if(indentation-multiline? indt_2)"
 "                          (let-values () (format \"~a on line ~a\" opener-str_0 (indentation-start-line indt_2)))"
 "                          (let-values () (format \"preceding ~a\" opener-str_0)))"
-" c_71)))))"
+" c_73)))))"
 "(indentation-possible-cause config_33)))))))))"
 "(define-values"
 "(read-unwrapped-sequence17.1)"
 "(lambda(dot-mode2_0"
-" dot-mode7_0"
 " elem-config1_0"
-" elem-config6_0"
 " first-read-one5_0"
-" first-read-one10_0"
 " shape-tag?3_0"
-" shape-tag?8_0"
 " whitespace-read-one4_0"
-" whitespace-read-one9_0"
 " read-one11_0"
 " opener-c12_0"
 " opener13_0"
@@ -49857,26 +48920,32 @@ static const char *startup_source =
 "(let-values(((opener-c_0) opener-c12_0))"
 "(let-values(((opener_0) opener13_0))"
 "(let-values(((closer_1) closer14_0))"
-"(let-values(((in_10) in15_0))"
+"(let-values(((in_20) in15_0))"
 "(let-values(((seq-config_0) seq-config16_0))"
-"(let-values(((elem-config_0)(if elem-config6_0 elem-config1_0(next-readtable seq-config_0))))"
-"(let-values(((dot-mode_0)(if dot-mode7_0 dot-mode2_0 'all)))"
-"(let-values(((shape-tag?_0)(if shape-tag?8_0 shape-tag?3_0 #f)))"
+"(let-values(((elem-config_0)"
+"(if(eq? elem-config1_0 unsafe-undefined)"
+"(next-readtable seq-config_0)"
+" elem-config1_0)))"
+"(let-values(((dot-mode_0) dot-mode2_0))"
+"(let-values(((shape-tag?_0) shape-tag?3_0))"
 "(let-values(((whitespace-read-one_0)"
-"(if whitespace-read-one9_0 whitespace-read-one4_0 read-one_1)))"
-"(let-values(((first-read-one_0)(if first-read-one10_0 first-read-one5_0 read-one_1)))"
+"(if(eq? whitespace-read-one4_0 unsafe-undefined)"
+" read-one_1"
+" whitespace-read-one4_0)))"
+"(let-values(((first-read-one_0)"
+"(if(eq? first-read-one5_0 unsafe-undefined) read-one_1 first-read-one5_0)))"
 "(let-values()"
 "(let-values(((head_0) #f))"
-"(let-values(((indentation_0)(make-indentation closer_1 in_10 seq-config_0)))"
+"(let-values(((indentation_0)(make-indentation closer_1 in_20 seq-config_0)))"
 "(let-values(((config_34)"
-"(let-values(((v_237) elem-config_0))"
-"(let-values(((the-struct_87) v_237))"
+"(let-values(((v_236) elem-config_0))"
+"(let-values(((the-struct_87) v_236))"
 "(if(read-config/outer? the-struct_87)"
 "(let-values(((indentations20_0)"
 "(cons"
 " indentation_0"
 "(read-config-indentations seq-config_0)))"
-"((inner21_0)(read-config/outer-inner v_237)))"
+"((inner21_0)(read-config/outer-inner v_236)))"
 "(read-config/outer1.1"
 " inner21_0"
 "(read-config/outer-wrap the-struct_87)"
@@ -49890,44 +48959,40 @@ static const char *startup_source =
 "                                                       \"read-config/outer?\""
 " the-struct_87))))))"
 "(let-values(((open-end-line_0 open-end-col_0 open-end-pos_0)"
-"(port-next-location in_10)))"
+"(port-next-location in_20)))"
 "(let-values(((config/keep-comment_0)(keep-comment config_34)))"
 "(let-values(((read-one/not-eof_0)"
 "(lambda(init-c_4 read-one_2 config_35)"
 "(begin"
 " 'read-one/not-eof"
-"(let-values(((e_79)(read-one_2 init-c_4 in_10 config_35)))"
+"(let-values(((e_77)(read-one_2 init-c_4 in_20 config_35)))"
 "(begin"
-"(if(eof-object? e_79)"
+"(if(eof-object? e_77)"
 "(let-values()"
-"(let-values(((in22_1) in_10)"
+"(let-values(((in22_0) in_20)"
 "((seq-config23_0) seq-config_0)"
-"((e24_0) e_79)"
+"((e24_0) e_77)"
 "((open-end-pos25_0) open-end-pos_0)"
-"((temp26_4)"
+"((temp26_3)"
 "                                                                                \"expected a ~a to close `~a`~a\")"
-"((temp27_6)"
+"((temp27_5)"
 "(closer-name closer_1 config_35))"
 "((opener-c28_0) opener-c_0)"
-"((temp29_1)"
+"((temp29_4)"
 "(indentation-possible-cause config_35)))"
 "(reader-error12.1"
-" #f"
-" #f"
+" unsafe-undefined"
 " e24_0"
-" #t"
 " open-end-pos25_0"
-" #t"
-" #f"
-" #f"
-" in22_1"
+" unsafe-undefined"
+" in22_0"
 " seq-config23_0"
-" temp26_4"
-"(list temp27_6 opener-c28_0 temp29_1))))"
+" temp26_3"
+"(list temp27_5 opener-c28_0 temp29_4))))"
 "(void))"
-" e_79))))))"
+" e_77))))))"
 "(let-values(((seq_0)"
-"((letrec-values(((loop_101)"
+"((letrec-values(((loop_107)"
 "(lambda(depth_11"
 " accum_0"
 " init-c_5"
@@ -49935,15 +49000,15 @@ static const char *startup_source =
 " first-read-one_1)"
 "(begin"
 " 'loop"
-"(let-values(((c_72)"
+"(let-values(((c_74)"
 "(read-char/skip-whitespace-and-comments"
 " init-c_5"
 " whitespace-read-one_0"
-" in_10"
+" in_20"
 " seq-config_0)))"
 "(let-values(((ec_3)"
 "(effective-char"
-" c_72"
+" c_74"
 " seq-config_0)))"
 "(if(eqv? ec_3 closer_1)"
 "(let-values()"
@@ -49956,25 +49021,25 @@ static const char *startup_source =
 " 1/read-accept-dot"
 " config_34)"
 "(char-delimiter?"
-"(let-values(((in_20)"
-" in_10)"
+"(let-values(((in_21)"
+" in_20)"
 "((skip-count_4)"
 " 0)"
 "((source_13)"
 "(read-config-source"
 " config_34)))"
-"(let-values(((c_73)"
+"(let-values(((c_75)"
 "(peek-char-or-special"
-" in_20"
+" in_21"
 " skip-count_4"
 " 'special"
 " source_13)))"
 "(if(eq?"
-" c_73"
+" c_75"
 " 'special)"
 "(special1.1"
 " 'special)"
-" c_73)))"
+" c_75)))"
 " seq-config_0)"
 " #f)"
 " #f)"
@@ -49984,8 +49049,8 @@ static const char *startup_source =
 " dot-col_0"
 " dot-pos_0)"
 "(port-next-location*"
-" in_10"
-" c_72)))"
+" in_20"
+" c_74)))"
 "(let-values((()"
 "(begin"
 "(track-indentation!"
@@ -50002,30 +49067,26 @@ static const char *startup_source =
 "(void)"
 "(let-values()"
 "(let-values(((in30_0)"
-" in_10)"
-"((temp31_4)"
+" in_20)"
+"((temp31_2)"
 "(reading-at"
 " config_34"
 " dot-line_0"
 " dot-col_0"
 " dot-pos_0))"
-"((temp32_2)"
+"((temp32_1)"
 "                                                                                                                              \"illegal use of `.`\"))"
 "(reader-error12.1"
+" unsafe-undefined"
+" unsafe-undefined"
 " #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
+" unsafe-undefined"
 " in30_0"
-" temp31_4"
-" temp32_2"
+" temp31_2"
+" temp32_1"
 "(list)))))"
 "(values))))"
-"(let-values(((v_35)"
+"(let-values(((v_237)"
 "(read-one/not-eof_0"
 " #f"
 " first-read-one_1"
@@ -50034,7 +49095,7 @@ static const char *startup_source =
 "(read-char/skip-whitespace-and-comments"
 " #f"
 " whitespace-read-one_0"
-" in_10"
+" in_20"
 " seq-config_0)))"
 "(let-values(((rest-ec_0)"
 "(effective-char"
@@ -50046,11 +49107,11 @@ static const char *startup_source =
 "(let-values()"
 "(if(null?"
 " accum_0)"
-" v_35"
+" v_237"
 "(append"
 "(reverse$1"
 " accum_0)"
-" v_35)))"
+" v_237)))"
 "(if(if(eqv?"
 " rest-ec_0"
 " '#\\.)"
@@ -50061,25 +49122,25 @@ static const char *startup_source =
 " 1/read-accept-infix-dot"
 " config_34)"
 "(char-delimiter?"
-"(let-values(((in_21)"
-" in_10)"
+"(let-values(((in_22)"
+" in_20)"
 "((skip-count_5)"
 " 0)"
-"((source_12)"
+"((source_14)"
 "(read-config-source"
 " config_34)))"
-"(let-values(((c_74)"
+"(let-values(((c_58)"
 "(peek-char-or-special"
-" in_21"
+" in_22"
 " skip-count_5"
 " 'special"
-" source_12)))"
+" source_14)))"
 "(if(eq?"
-" c_74"
+" c_58"
 " 'special)"
 "(special1.1"
 " 'special)"
-" c_74)))"
+" c_58)))"
 " seq-config_0)"
 " #f)"
 " #f)"
@@ -50089,13 +49150,13 @@ static const char *startup_source =
 "(begin"
 "(set! head_0"
 "(box"
-" v_35))"
+" v_237))"
 "(values))))"
 "(let-values(((dot2-line_0"
 " dot2-col_0"
 " dot2-pos_0)"
 "(port-next-location"
-" in_10)))"
+" in_20)))"
 "(let-values((()"
 "(begin"
 "(track-indentation!"
@@ -50107,25 +49168,25 @@ static const char *startup_source =
 "(read-char/skip-whitespace-and-comments"
 " #f"
 " whitespace-read-one_0"
-" in_10"
+" in_20"
 " seq-config_0)))"
 "(let-values(((post-ec_0)"
 "(effective-char"
 " post-c_0"
 " seq-config_0)))"
 "(begin"
-"(if(let-values(((or-part_312)"
+"(if(let-values(((or-part_264)"
 "(eof-object?"
 " post-ec_0)))"
-"(if or-part_312"
-" or-part_312"
+"(if or-part_264"
+" or-part_264"
 "(eqv?"
 " post-ec_0"
 " closer_1)))"
 "(let-values()"
-"(let-values(((in33_2)"
-" in_10)"
-"((temp34_2)"
+"(let-values(((in33_1)"
+" in_20)"
+"((temp34_5)"
 "(reading-at"
 " config_34"
 " dot-line_0"
@@ -50133,23 +49194,19 @@ static const char *startup_source =
 " dot-pos_0))"
 "((post-ec35_0)"
 " post-ec_0)"
-"((temp36_5)"
+"((temp36_4)"
 "                                                                                                                                        \"illegal use of `.`\"))"
 "(reader-error12.1"
-" #f"
-" #f"
+" unsafe-undefined"
 " post-ec35_0"
-" #t"
 " #f"
-" #f"
-" #f"
-" #f"
-" in33_2"
-" temp34_2"
-" temp36_5"
+" unsafe-undefined"
+" in33_1"
+" temp34_5"
+" temp36_4"
 "(list))))"
 "(void))"
-"(loop_101"
+"(loop_107"
 " depth_11"
 " accum_0"
 " post-c_0"
@@ -50157,8 +49214,8 @@ static const char *startup_source =
 " read-one_1))))))))"
 "(let-values()"
 "(let-values(((in37_0)"
-" in_10)"
-"((temp38_3)"
+" in_20)"
+"((temp38_4)"
 "(reading-at"
 " config_34"
 " dot-line_0"
@@ -50166,30 +49223,26 @@ static const char *startup_source =
 " dot-pos_0))"
 "((rest-c39_0)"
 " rest-c_0)"
-"((temp40_3)"
+"((temp40_2)"
 "                                                                                                                        \"illegal use of `.`\"))"
 "(reader-error12.1"
-" #f"
-" #f"
+" unsafe-undefined"
 " rest-c39_0"
-" #t"
-" #f"
-" #f"
-" #f"
 " #f"
+" unsafe-undefined"
 " in37_0"
-" temp38_3"
-" temp40_3"
+" temp38_4"
+" temp40_2"
 "(list)))))))))))))"
 "(let-values()"
 "(let-values(((v_238)"
 "(read-one/not-eof_0"
-" c_72"
+" c_74"
 " first-read-one_1"
 " config/keep-comment_0)))"
 "(if(1/special-comment? v_238)"
 "(let-values()"
-"(loop_101"
+"(loop_107"
 " depth_11"
 " accum_0"
 " #f"
@@ -50197,7 +49250,7 @@ static const char *startup_source =
 " read-one_1))"
 "(if(> depth_11 1024)"
 "(let-values()"
-"(loop_101"
+"(loop_107"
 " depth_11"
 "(cons v_238 accum_0)"
 " #f"
@@ -50206,13 +49259,13 @@ static const char *startup_source =
 "(let-values()"
 "(cons"
 " v_238"
-"(loop_101"
+"(loop_107"
 "(add1 depth_11)"
 " null"
 " #f"
 " #f"
 " read-one_1)))))))))))))))"
-" loop_101)"
+" loop_107)"
 " 0"
 " null"
 " #f"
@@ -50220,11 +49273,11 @@ static const char *startup_source =
 " first-read-one_0)))"
 "(let-values(((full-seq_0)(if head_0(cons(unbox head_0) seq_0) seq_0)))"
 "(if shape-tag?_0"
-"(add-shape-tag opener_0 in_10 config_34 full-seq_0)"
+"(add-shape-tag opener_0 in_20 config_34 full-seq_0)"
 " full-seq_0))))))))))))))))))))))))"
 "(define-values"
 "(add-shape-tag)"
-"(lambda(opener_1 in_22 config_36 seq_1)"
+"(lambda(opener_1 in_23 config_36 seq_1)"
 "(begin"
 "(let-values(((tag_0)"
 "(let-values(((tmp_37) opener_1))"
@@ -50233,138 +49286,129 @@ static const char *startup_source =
 "(if(equal? tmp_37 '#\\{)"
 "(let-values()(if(check-parameter 1/read-curly-brace-with-tag config_36) '#%braces #f))"
 "(let-values() #f))))))"
-"(if tag_0(cons(wrap tag_0 in_22 config_36 #f) seq_1) seq_1)))))"
-" (define-values (not-an-fX.1$1) (lambda (who_8 v_59) (begin 'not-an-fX (raise-argument-error who_8 \"flonum?\" v_59))))"
+"(if tag_0(cons(wrap tag_0 in_23 config_36 #f) seq_1) seq_1)))))"
+" (define-values (not-an-fX.1$1) (lambda (who_7 v_59) (begin 'not-an-fX (raise-argument-error who_7 \"flonum?\" v_59))))"
 "(define-values"
-"(read-digits13.1)"
-"(lambda(base1_0"
-" init3_0"
-" init7_0"
-" max-count2_0"
-" zero-digits-result4_0"
-" zero-digits-result8_0"
-" in11_0"
-" config12_1"
-" accum-str9_0"
-" accum-str10_0)"
+"(read-digits12.1)"
+"(lambda(base1_0 init3_0 max-count2_0 zero-digits-result4_0 in10_1 config11_0 accum-str9_0)"
 "(begin"
-" 'read-digits13"
-"(let-values(((in_12) in11_0))"
-"(let-values(((config_37) config12_1))"
-"(let-values(((accum-str_0)(if accum-str10_0 accum-str9_0 #f)))"
-"(let-values(((base_23) base1_0))"
+" 'read-digits12"
+"(let-values(((in_6) in10_1))"
+"(let-values(((config_16) config11_0))"
+"(let-values(((accum-str_0) accum-str9_0))"
+"(let-values(((base_15) base1_0))"
 "(let-values(((max-count_0) max-count2_0))"
-"(let-values(((init-v_0)(if init7_0 init3_0 0)))"
-"(let-values(((zero-digits-result_0)(if zero-digits-result8_0 zero-digits-result4_0 #f)))"
+"(let-values(((init-v_0) init3_0))"
+"(let-values(((zero-digits-result_0) zero-digits-result4_0))"
 "(let-values()"
-"(let-values(((c_75)"
-"(let-values(((in_23) in_12)"
+"(let-values(((c_68)"
+"(let-values(((in_24) in_6)"
 "((skip-count_6) 0)"
-"((source_14)(read-config-source config_37)))"
-"(let-values(((c_76)"
-"(peek-char-or-special in_23 skip-count_6 'special source_14)))"
-"(if(eq? c_76 'special)(special1.1 'special) c_76)))))"
-"(if(digit?$1 c_75 base_23)"
+"((source_15)(read-config-source config_16)))"
+"(let-values(((c_45)"
+"(peek-char-or-special in_24 skip-count_6 'special source_15)))"
+"(if(eq? c_45 'special)(special1.1 'special) c_45)))))"
+"(if(digit?$1 c_68 base_15)"
 "(let-values()"
 "(begin"
-"(consume-char in_12 c_75)"
-"(if accum-str_0(let-values()(accum-string-add! accum-str_0 c_75))(void))"
-"((letrec-values(((loop_62)"
-"(lambda(v_239 max-count_1)"
+"(consume-char in_6 c_68)"
+"(if accum-str_0(let-values()(accum-string-add! accum-str_0 c_68))(void))"
+"((letrec-values(((loop_108)"
+"(lambda(v_200 max-count_1)"
 "(begin"
 " 'loop"
 "(if(zero? max-count_1)"
-"(let-values() v_239)"
+"(let-values() v_200)"
 "(let-values()"
-"(let-values(((c_68)"
-"(let-values(((in_24) in_12)"
+"(let-values(((c_76)"
+"(let-values(((in_25) in_6)"
 "((skip-count_7) 0)"
-"((source_15)"
-"(read-config-source config_37)))"
+"((source_16)"
+"(read-config-source config_16)))"
 "(let-values(((c_53)"
 "(peek-char-or-special"
-" in_24"
+" in_25"
 " skip-count_7"
 " 'special"
-" source_15)))"
+" source_16)))"
 "(if(eq? c_53 'special)"
 "(special1.1 'special)"
 " c_53)))))"
-"(if(digit?$1 c_68 base_23)"
+"(if(digit?$1 c_76 base_15)"
 "(let-values()"
 "(begin"
-"(consume-char in_12 c_68)"
+"(consume-char in_6 c_76)"
 "(if accum-str_0"
-"(let-values()(accum-string-add! accum-str_0 c_68))"
+"(let-values()(accum-string-add! accum-str_0 c_76))"
 "(void))"
-"(loop_62"
-"(+(digit->number c_68)(* v_239 base_23))"
+"(loop_108"
+"(+(digit->number c_76)(* v_200 base_15))"
 "(sub1 max-count_1))))"
-"(let-values() v_239)))))))))"
-" loop_62)"
-"(+(digit->number c_75)(* init-v_0 base_23))"
+"(let-values() v_200)))))))))"
+" loop_108)"
+"(+(digit->number c_68)(* init-v_0 base_15))"
 "(sub1 max-count_0))))"
 "(if zero-digits-result_0"
 "(let-values() zero-digits-result_0)"
-"(let-values() c_75)))))))))))))))"
+"(let-values() c_68)))))))))))))))"
 "(define-values"
 "(digit?$1)"
-"(lambda(c_74 base_24)"
+"(lambda(c_42 base_21)"
 "(begin"
 " 'digit?"
-"(if(not(char? c_74))"
+"(if(not(char? c_42))"
 "(let-values() #f)"
-"(if(= base_24 8)"
-"(let-values()(octal-digit? c_74))"
-"(if(= base_24 16)(let-values()(hex-digit? c_74))(let-values()(decimal-digit? c_74))))))))"
-"(define-values(decimal-digit?)(lambda(c_44)(begin(if(char>=? c_44 '#\\0)(char<=? c_44 '#\\9) #f))))"
-"(define-values(octal-digit?)(lambda(c_77)(begin(if(char>=? c_77 '#\\0)(char<=? c_77 '#\\7) #f))))"
+"(if(= base_21 8)"
+"(let-values()(octal-digit? c_42))"
+"(if(= base_21 16)(let-values()(hex-digit? c_42))(let-values()(decimal-digit? c_42))))))))"
+"(define-values(decimal-digit?)(lambda(c_59)(begin(if(char>=? c_59 '#\\0)(char<=? c_59 '#\\9) #f))))"
+"(define-values(octal-digit?)(lambda(c_43)(begin(if(char>=? c_43 '#\\0)(char<=? c_43 '#\\7) #f))))"
 "(define-values"
 "(hex-digit?)"
-"(lambda(c_78)"
+"(lambda(c_77)"
 "(begin"
-"(let-values(((or-part_313)(if(char>=? c_78 '#\\0)(char<=? c_78 '#\\9) #f)))"
-"(if or-part_313"
-" or-part_313"
-"(let-values(((or-part_312)(if(char>=? c_78 '#\\A)(char<=? c_78 '#\\F) #f)))"
-"(if or-part_312 or-part_312(if(char>=? c_78 '#\\a)(char<=? c_78 '#\\f) #f))))))))"
+"(let-values(((or-part_264)(if(char>=? c_77 '#\\0)(char<=? c_77 '#\\9) #f)))"
+"(if or-part_264"
+" or-part_264"
+"(let-values(((or-part_23)(if(char>=? c_77 '#\\A)(char<=? c_77 '#\\F) #f)))"
+"(if or-part_23 or-part_23(if(char>=? c_77 '#\\a)(char<=? c_77 '#\\f) #f))))))))"
 "(define-values"
 "(digit->number)"
-"(lambda(c_79)"
+"(lambda(c_78)"
 "(begin"
-"(if(if(char>=? c_79 '#\\0)(char<=? c_79 '#\\9) #f)"
-"(let-values()(-(char->integer c_79)(char->integer '#\\0)))"
-"(if(if(char>=? c_79 '#\\A)(char<=? c_79 '#\\F) #f)"
-"(let-values()(-(char->integer c_79)(-(char->integer '#\\A) 10)))"
-"(let-values()(-(char->integer c_79)(-(char->integer '#\\a) 10))))))))"
+"(if(if(char>=? c_78 '#\\0)(char<=? c_78 '#\\9) #f)"
+"(let-values()(-(char->integer c_78)(char->integer '#\\0)))"
+"(if(if(char>=? c_78 '#\\A)(char<=? c_78 '#\\F) #f)"
+"(let-values()(-(char->integer c_78)(-(char->integer '#\\A) 10)))"
+"(let-values()(-(char->integer c_78)(-(char->integer '#\\a) 10))))))))"
 "(define-values(string->number$1) string->number)"
 "(define-values"
 "(1/string->number)"
-"(let-values(((string->number8_0)"
-"(lambda(s7_3 radix1_0 convert-mode2_0 decimal-mode3_0 radix4_0 convert-mode5_0 decimal-mode6_0)"
+"(let-values(((string->number5_0)"
+"(lambda(s4_0 radix1_0 convert-mode2_0 decimal-mode3_0)"
 "(begin"
-" 'string->number8"
-"(let-values(((s_42) s7_3))"
-"(let-values(((radix_0)(if radix4_0 radix1_0 10)))"
-"(let-values(((convert-mode_0)(if convert-mode5_0 convert-mode2_0 'number-or-false)))"
+" 'string->number5"
+"(let-values(((s_86) s4_0))"
+"(let-values(((radix_0) radix1_0))"
+"(let-values(((convert-mode_0) convert-mode2_0))"
 "(let-values(((decimal-mode_0)"
-"(if decimal-mode6_0"
-" decimal-mode3_0"
-"(if(1/read-decimal-as-inexact) 'decimal-as-inexact 'decimal-as-exact))))"
+"(if(eq? decimal-mode3_0 unsafe-undefined)"
+"(if(1/read-decimal-as-inexact) 'decimal-as-inexact 'decimal-as-exact)"
+" decimal-mode3_0)))"
 "(let-values()"
 "(let-values()"
 "(let-values()"
 "(begin"
-"(if(string? s_42)"
+"(if(string? s_86)"
 "(void)"
-"                                      (let-values () (raise-argument-error 'string->number \"string?\" s_42)))"
-"(if((lambda(p_65)(if(exact-integer? radix_0)(<= 2 radix_0 16) #f)) radix_0)"
+"                                      (let-values () (raise-argument-error 'string->number \"string?\" s_86)))"
+"(if((lambda(p_72)(if(exact-integer? radix_0)(<= 2 radix_0 16) #f)) radix_0)"
 "(void)"
 "(let-values()"
 "                                        (raise-argument-error 'string->number \"(integer-in 2 16)\" radix_0)))"
-"(if((lambda(p_56)"
-"(let-values(((or-part_8)(eq? p_56 'number-or-false)))"
-"(if or-part_8 or-part_8(eq? p_56 'read))))"
+"(if((lambda(p_5)"
+"(let-values(((or-part_53)(eq? p_5 'number-or-false)))"
+"(if or-part_53 or-part_53(eq? p_5 'read))))"
 " convert-mode_0)"
 "(void)"
 "(let-values()"
@@ -50372,9 +49416,9 @@ static const char *startup_source =
 " 'string->number"
 "                                         \"(or/c 'number-or-false 'read)\""
 " convert-mode_0)))"
-"(if((lambda(p_74)"
-"(let-values(((or-part_30)(eq? p_74 'decimal-as-inexact)))"
-"(if or-part_30 or-part_30(eq? p_74 'decimal-as-exact))))"
+"(if((lambda(p_64)"
+"(let-values(((or-part_7)(eq? p_64 'decimal-as-inexact)))"
+"(if or-part_7 or-part_7(eq? p_64 'decimal-as-exact))))"
 " decimal-mode_0)"
 "(void)"
 "(let-values()"
@@ -50382,69 +49426,59 @@ static const char *startup_source =
 " 'string->number"
 "                                         \"(or/c 'decimal-as-inexact decimal-as-exact)\""
 " decimal-mode_0)))"
-"(let-values(((s69_1) s_42)"
-"((temp70_1) 0)"
-"((temp71_2)(string-length s_42))"
-"((radix72_0) radix_0)"
-"((temp73_1) #f)"
-"((decimal-mode74_0) decimal-mode_0)"
-"((convert-mode75_0) convert-mode_0))"
-"(do-string->number20.1"
+"(let-values(((s66_1) s_86)"
+"((temp67_2) 0)"
+"((temp68_2)(string-length s_86))"
+"((radix69_0) radix_0)"
+"((temp70_1) #f)"
+"((decimal-mode71_0) decimal-mode_0)"
+"((convert-mode72_0) convert-mode_0))"
+"(do-string->number17.1"
 " #f"
-" #f"
-" temp73_1"
-" s69_1"
 " temp70_1"
-" temp71_2"
-" radix72_0"
-" decimal-mode74_0"
-" convert-mode75_0))))))))))))))"
+" s66_1"
+" temp67_2"
+" temp68_2"
+" radix69_0"
+" decimal-mode71_0"
+" convert-mode72_0))))))))))))))"
 "(case-lambda"
-"((s_313)(begin 'string->number(string->number8_0 s_313 #f #f #f #f #f #f)))"
-"((s_457 radix_1 convert-mode_1 decimal-mode3_1)"
-"(string->number8_0 s_457 radix_1 convert-mode_1 decimal-mode3_1 #t #t #t))"
-"((s_485 radix_2 convert-mode2_1)(string->number8_0 s_485 radix_2 convert-mode2_1 #f #t #t #f))"
-"((s_486 radix1_1)(string->number8_0 s_486 radix1_1 #f #f #t #f #f)))))"
+"((s_307)(begin 'string->number(string->number5_0 s_307 10 'number-or-false unsafe-undefined)))"
+"((s_485 radix_1 convert-mode_1 decimal-mode3_1)(string->number5_0 s_485 radix_1 convert-mode_1 decimal-mode3_1))"
+"((s_186 radix_2 convert-mode2_1)(string->number5_0 s_186 radix_2 convert-mode2_1 unsafe-undefined))"
+"((s_486 radix1_1)(string->number5_0 s_486 radix1_1 'number-or-false unsafe-undefined)))))"
 "(define-values"
-"(do-string->number20.1)"
-"(lambda(in-complex11_0"
-" in-complex13_0"
-" radix-set?10_0"
-" s14_1"
-" start15_0"
-" end16_0"
-" radix17_0"
-" exactness18_0"
-" convert-mode19_0)"
+"(do-string->number17.1)"
+"(lambda(in-complex8_0 radix-set?7_0 s11_1 start12_0 end13_0 radix14_0 exactness15_0 convert-mode16_0)"
 "(begin"
-" 'do-string->number20"
-"(let-values(((s_21) s14_1))"
-"(let-values(((start_44) start15_0))"
-"(let-values(((end_34) end16_0))"
-"(let-values(((radix_3) radix17_0))"
-"(let-values(((radix-set?_0) radix-set?10_0))"
-"(let-values(((exactness_0) exactness18_0))"
-"(let-values(((in-complex_0)(if in-complex13_0 in-complex11_0 #f)))"
-"(let-values(((convert-mode_2) convert-mode19_0))"
+" 'do-string->number17"
+"(let-values(((s_17) s11_1))"
+"(let-values(((start_43) start12_0))"
+"(let-values(((end_33) end13_0))"
+"(let-values(((radix_3) radix14_0))"
+"(let-values(((radix-set?_0) radix-set?7_0))"
+"(let-values(((exactness_0) exactness15_0))"
+"(let-values(((in-complex_0) in-complex8_0))"
+"(let-values(((convert-mode_2) convert-mode16_0))"
 "(let-values()"
-"(if(= start_44 end_34)"
+"(if(= start_43 end_33)"
 "(let-values()"
 "(if(eq? convert-mode_2 'must-read)"
 "                              (let-values () (format \"no digits\"))"
 "(let-values() #f)))"
 "(let-values()"
-"(let-values(((c_80)(string-ref s_21 start_44)))"
-"(if(char=? '#\\# c_80)"
+"(let-values(((c_64)(string-ref s_17 start_43)))"
+"(if(char=? '#\\# c_64)"
 "(let-values()"
-"(let-values(((next_4)(add1 start_44)))"
-"(if(= next_4 end_34)"
+"(let-values(((next_4)(add1 start_43)))"
+"(if(= next_4 end_33)"
 "(let-values()"
 "(if(eq? convert-mode_2 'must-read)"
-"                                          (let-values () (format \"no character after `#` indicator in `~.a`\" s_21))"
+"                                          (let-values () (format \"no character after `#` indicator in `~.a`\" s_17))"
 "(let-values() #f)))"
 "(let-values()"
-"(let-values(((i_176)(string-ref s_21 next_4)))"
-"(let-values(((tmp_38) i_176))"
+"(let-values(((i_172)(string-ref s_17 next_4)))"
+"(let-values(((tmp_38) i_172))"
 "(let-values(((index_2)"
 "(if(char? tmp_38)"
 "(let-values(((codepoint_0)(char->integer tmp_38)))"
@@ -50518,48 +49552,47 @@ static const char *startup_source =
 "(let-values()"
 "(format"
 "                                                       \"bad `#` indicator `~a` at `~.a`\""
-" i_176"
-"(substring s_21 start_44 end_34)))"
+" i_172"
+"(substring s_17 start_43 end_33)))"
 "(let-values() #f)))"
 "(if(unsafe-fx< index_2 2)"
 "(let-values()"
-"(if(let-values(((or-part_72)(exactness-set? exactness_0)))"
-"(if or-part_72 or-part_72 in-complex_0))"
+"(if(let-values(((or-part_24)(exactness-set? exactness_0)))"
+"(if or-part_24 or-part_24 in-complex_0))"
 "(let-values()"
 "(if(eq? convert-mode_2 'must-read)"
 "(let-values()"
 "(format"
 "                                                             \"misplaced exactness specification at `~.a`\""
-"(substring s_21 start_44 end_34)))"
+"(substring s_17 start_43 end_33)))"
 "(let-values() #f)))"
 "(let-values()"
-"(let-values(((s76_0) s_21)"
-"((temp77_0)(add1 next_4))"
-"((end78_0) end_34)"
-"((radix79_0) radix_3)"
-"((radix-set?80_0) radix-set?_0)"
-"((temp81_1)"
-"(if(let-values(((or-part_96)"
-"(char=? i_176 '#\\e)))"
-"(if or-part_96"
-" or-part_96"
-"(char=? i_176 '#\\E)))"
+"(let-values(((s73_1) s_17)"
+"((temp74_2)(add1 next_4))"
+"((end75_0) end_33)"
+"((radix76_0) radix_3)"
+"((radix-set?77_0) radix-set?_0)"
+"((temp78_2)"
+"(if(let-values(((or-part_211)"
+"(char=? i_172 '#\\e)))"
+"(if or-part_211"
+" or-part_211"
+"(char=? i_172 '#\\E)))"
 " 'exact"
 " 'inexact))"
-"((temp82_3)"
+"((temp79_0)"
 "(if(eq? convert-mode_2 'read)"
 " 'must-read"
 " convert-mode_2)))"
-"(do-string->number20.1"
+"(do-string->number17.1"
 " #f"
-" #f"
-" radix-set?80_0"
-" s76_0"
-" temp77_0"
-" end78_0"
-" radix79_0"
-" temp81_1"
-" temp82_3)))))"
+" radix-set?77_0"
+" s73_1"
+" temp74_2"
+" end75_0"
+" radix76_0"
+" temp78_2"
+" temp79_0)))))"
 "(let-values()"
 "(if(let-values(((or-part_212) radix-set?_0))"
 "(if or-part_212 or-part_212 in-complex_0))"
@@ -50568,11 +49601,11 @@ static const char *startup_source =
 "(let-values()"
 "(format"
 "                                                             \"misplaced radix specification at `~.a`\""
-"(substring s_21 start_44 end_34)))"
+"(substring s_17 start_43 end_33)))"
 "(let-values() #f)))"
 "(let-values()"
 "(let-values(((radix_4)"
-"(let-values(((tmp_39) i_176))"
+"(let-values(((tmp_39) i_172))"
 "(if(if(equal? tmp_39 '#\\b)"
 " #t"
 "(equal? tmp_39 '#\\B))"
@@ -50586,49 +49619,48 @@ static const char *startup_source =
 "(equal? tmp_39 '#\\D))"
 "(let-values() 10)"
 "(let-values() 16)))))))"
-"(let-values(((s83_0) s_21)"
-"((temp84_0)(add1 next_4))"
-"((end85_0) end_34)"
-"((radix86_0) radix_4)"
-"((temp87_2) #t)"
-"((exactness88_0) exactness_0)"
-"((temp89_1)"
+"(let-values(((s80_1) s_17)"
+"((temp81_0)(add1 next_4))"
+"((end82_0) end_33)"
+"((radix83_0) radix_4)"
+"((temp84_1) #t)"
+"((exactness85_0) exactness_0)"
+"((temp86_2)"
 "(if(eq? convert-mode_2 'read)"
 " 'must-read"
 " convert-mode_2)))"
-"(do-string->number20.1"
+"(do-string->number17.1"
 " #f"
-" #f"
-" temp87_2"
-" s83_0"
-" temp84_0"
-" end85_0"
-" radix86_0"
-" exactness88_0"
-" temp89_1)))))))))))))))"
-"(let-values(((c1_30)"
-"(if(char-sign? c_80)"
-"(read-special-number s_21 start_44 end_34 convert-mode_2)"
+" temp84_1"
+" s80_1"
+" temp81_0"
+" end82_0"
+" radix83_0"
+" exactness85_0"
+" temp86_2)))))))))))))))"
+"(let-values(((c1_29)"
+"(if(char-sign? c_64)"
+"(read-special-number s_17 start_43 end_33 convert-mode_2)"
 " #f)))"
-"(if c1_30"
-"((lambda(v_240)"
+"(if c1_29"
+"((lambda(v_239)"
 "(if(eq? exactness_0 'exact)"
 "(let-values()"
 "(if(eq? convert-mode_2 'must-read)"
-"                                             (let-values () (format \"no exact representation for `~a`\" v_240))"
+"                                             (let-values () (format \"no exact representation for `~a`\" v_239))"
 "(let-values() #f)))"
-"(let-values() v_240)))"
-" c1_30)"
+"(let-values() v_239)))"
+" c1_29)"
 "(let-values(((c2_3)"
-"(if(char-sign? c_80)"
+"(if(char-sign? c_64)"
 "(if(not in-complex_0)"
-"(if(>(- end_34 start_44) 7)"
-"(if(char=? '#\\i(string-ref s_21(sub1 end_34)))"
-"(if(char-sign?(string-ref s_21 6))"
+"(if(>(- end_33 start_43) 7)"
+"(if(char=? '#\\i(string-ref s_17(sub1 end_33)))"
+"(if(char-sign?(string-ref s_17 6))"
 "(read-special-number"
-" s_21"
-" start_44"
-"(+ start_44 6)"
+" s_17"
+" start_43"
+"(+ start_43 6)"
 " convert-mode_2)"
 " #f)"
 " #f)"
@@ -50637,196 +49669,183 @@ static const char *startup_source =
 " #f)))"
 "(if c2_3"
 "((lambda(v_37)"
-"(let-values(((s90_2) s_21)"
-"((temp91_0)(+ start_44 6))"
-"((temp92_2)(sub1 end_34))"
-"((radix93_0) radix_3)"
-"((exactness94_0) exactness_0)"
-"((convert-mode95_0) convert-mode_2)"
-"((temp96_1) 'i)"
-"((v97_0) v_37)"
-"((temp98_1)"
-"(lambda(v_241 v2_0)"
-"(begin 'temp98(make-rectangular v_241 v2_0)))))"
-"(read-for-special-compound65.1"
-" temp96_1"
+"(let-values(((s87_0) s_17)"
+"((temp88_2)(+ start_43 6))"
+"((temp89_3)(sub1 end_33))"
+"((radix90_0) radix_3)"
+"((exactness91_0) exactness_0)"
+"((convert-mode92_0) convert-mode_2)"
+"((temp93_1) 'i)"
+"((v94_0) v_37)"
+"((temp95_0)"
+"(lambda(v_240 v2_0)"
+"(begin 'temp95(make-rectangular v_240 v2_0)))))"
+"(read-for-special-compound62.1"
+" temp93_1"
 " #f"
-" #f"
-" s90_2"
-" temp91_0"
-" temp92_2"
-" radix93_0"
-" exactness94_0"
-" convert-mode95_0"
-" v97_0"
-" temp98_1)))"
+" s87_0"
+" temp88_2"
+" temp89_3"
+" radix90_0"
+" exactness91_0"
+" convert-mode92_0"
+" v94_0"
+" temp95_0)))"
 " c2_3)"
-"(let-values(((c3_2)"
+"(let-values(((c3_3)"
 "(if(not in-complex_0)"
-"(if(>=(- end_34 start_44) 7)"
-"(if(char=? '#\\i(string-ref s_21(sub1 end_34)))"
-"(if(char-sign?(string-ref s_21(- end_34 7)))"
+"(if(>=(- end_33 start_43) 7)"
+"(if(char=? '#\\i(string-ref s_17(sub1 end_33)))"
+"(if(char-sign?(string-ref s_17(- end_33 7)))"
 "(read-special-number"
-" s_21"
-"(- end_34 7)"
-"(sub1 end_34)"
+" s_17"
+"(- end_33 7)"
+"(sub1 end_33)"
 " convert-mode_2)"
 " #f)"
 " #f)"
 " #f)"
 " #f)))"
-"(if c3_2"
+"(if c3_3"
 "((lambda(v2_1)"
-"(if(if(= start_44(- end_34 7))(not(extflonum? v2_1)) #f)"
+"(if(if(= start_43(- end_33 7))(not(extflonum? v2_1)) #f)"
 "(let-values()(make-rectangular 0 v2_1))"
 "(let-values()"
-"(let-values(((s99_0) s_21)"
-"((start100_0) start_44)"
-"((temp101_3)(- end_34 7))"
-"((radix102_0) radix_3)"
-"((exactness103_0) exactness_0)"
-"((convert-mode104_0) convert-mode_2)"
-"((temp105_1) 'i)"
-"((temp106_2) #t)"
-"((v2107_0) v2_1)"
-"((temp108_0)"
-"(lambda(v2_2 v_222)"
-"(begin 'temp108(make-rectangular v_222 v2_2)))))"
-"(read-for-special-compound65.1"
-" temp105_1"
-" temp106_2"
-" #t"
-" s99_0"
-" start100_0"
-" temp101_3"
-" radix102_0"
-" exactness103_0"
-" convert-mode104_0"
-" v2107_0"
-" temp108_0)))))"
-" c3_2)"
+"(let-values(((s96_0) s_17)"
+"((start97_0) start_43)"
+"((temp98_1)(- end_33 7))"
+"((radix99_0) radix_3)"
+"((exactness100_0) exactness_0)"
+"((convert-mode101_0) convert-mode_2)"
+"((temp102_0) 'i)"
+"((temp103_0) #t)"
+"((v2104_0) v2_1)"
+"((temp105_0)"
+"(lambda(v2_2 v_215)"
+"(begin 'temp105(make-rectangular v_215 v2_2)))))"
+"(read-for-special-compound62.1"
+" temp102_0"
+" temp103_0"
+" s96_0"
+" start97_0"
+" temp98_1"
+" radix99_0"
+" exactness100_0"
+" convert-mode101_0"
+" v2104_0"
+" temp105_0)))))"
+" c3_3)"
 "(let-values(((c4_0)"
-"(if(char-sign? c_80)"
+"(if(char-sign? c_64)"
 "(if(not in-complex_0)"
-"(if(>(- end_34 start_44) 7)"
-"(if(char=? '#\\@(string-ref s_21(+ start_44 6)))"
+"(if(>(- end_33 start_43) 7)"
+"(if(char=? '#\\@(string-ref s_17(+ start_43 6)))"
 "(read-special-number"
-" s_21"
-" start_44"
-"(+ start_44 6)"
+" s_17"
+" start_43"
+"(+ start_43 6)"
 " convert-mode_2)"
 " #f)"
 " #f)"
 " #f)"
 " #f)))"
 "(if c4_0"
-"((lambda(v_223)"
-"(let-values(((s109_0) s_21)"
-"((temp110_2)(+ start_44 7))"
-"((end111_0) end_34)"
-"((radix112_0) radix_3)"
-"((exactness113_0) exactness_0)"
-"((convert-mode114_0) convert-mode_2)"
-"((temp115_0) '@)"
-"((v116_0) v_223)"
-"((temp117_1)"
-"(lambda(v_242 v2_3)"
-"(begin 'temp117(make-polar v_242 v2_3)))))"
-"(read-for-special-compound65.1"
-" temp115_0"
+"((lambda(v_217)"
+"(let-values(((s106_0) s_17)"
+"((temp107_2)(+ start_43 7))"
+"((end108_0) end_33)"
+"((radix109_0) radix_3)"
+"((exactness110_0) exactness_0)"
+"((convert-mode111_0) convert-mode_2)"
+"((temp112_1) '@)"
+"((v113_0) v_217)"
+"((temp114_3)"
+"(lambda(v_140 v2_3)"
+"(begin 'temp114(make-polar v_140 v2_3)))))"
+"(read-for-special-compound62.1"
+" temp112_1"
 " #f"
-" #f"
-" s109_0"
-" temp110_2"
-" end111_0"
-" radix112_0"
-" exactness113_0"
-" convert-mode114_0"
-" v116_0"
-" temp117_1)))"
+" s106_0"
+" temp107_2"
+" end108_0"
+" radix109_0"
+" exactness110_0"
+" convert-mode111_0"
+" v113_0"
+" temp114_3)))"
 " c4_0)"
-"(let-values(((c5_1)"
+"(let-values(((c5_0)"
 "(if(not in-complex_0)"
-"(if(>(- end_34 start_44) 7)"
-"(if(char=? '#\\@(string-ref s_21(- end_34 7)))"
+"(if(>(- end_33 start_43) 7)"
+"(if(char=? '#\\@(string-ref s_17(- end_33 7)))"
 "(read-special-number"
-" s_21"
-"(- end_34 6)"
-" end_34"
+" s_17"
+"(- end_33 6)"
+" end_33"
 " convert-mode_2)"
 " #f)"
 " #f)"
 " #f)))"
-"(if c5_1"
+"(if c5_0"
 "((lambda(v2_4)"
-"(let-values(((s118_0) s_21)"
-"((start119_0) start_44)"
-"((temp120_1)(- end_34 7))"
-"((radix121_0) radix_3)"
-"((exactness122_0) exactness_0)"
-"((convert-mode123_0) convert-mode_2)"
-"((temp124_1) '@)"
-"((temp125_1) #t)"
-"((v2126_0) v2_4)"
-"((temp127_3)"
-"(lambda(v2_5 v_243)"
-"(begin 'temp127(make-polar v_243 v2_5)))))"
-"(read-for-special-compound65.1"
-" temp124_1"
-" temp125_1"
-" #t"
-" s118_0"
-" start119_0"
-" temp120_1"
-" radix121_0"
-" exactness122_0"
-" convert-mode123_0"
-" v2126_0"
-" temp127_3)))"
-" c5_1)"
+"(let-values(((s115_0) s_17)"
+"((start116_0) start_43)"
+"((temp117_1)(- end_33 7))"
+"((radix118_0) radix_3)"
+"((exactness119_0) exactness_0)"
+"((convert-mode120_0) convert-mode_2)"
+"((temp121_0) '@)"
+"((temp122_0) #t)"
+"((v2123_0) v2_4)"
+"((temp124_2)"
+"(lambda(v2_5 v_81)"
+"(begin 'temp124(make-polar v_81 v2_5)))))"
+"(read-for-special-compound62.1"
+" temp121_0"
+" temp122_0"
+" s115_0"
+" start116_0"
+" temp117_1"
+" radix118_0"
+" exactness119_0"
+" convert-mode120_0"
+" v2123_0"
+" temp124_2)))"
+" c5_0)"
 "(let-values()"
-"(let-values(((s128_1) s_21)"
-"((start129_0) start_44)"
-"((end130_0) end_34)"
-"((radix131_0) radix_3)"
-"((radix-set?132_0) radix-set?_0)"
-"((exactness133_0) exactness_0)"
-"((in-complex134_0) in-complex_0)"
-"((convert-mode135_0) convert-mode_2))"
-"(do-string->non-special-number33.1"
-" in-complex134_0"
-" #t"
-" radix-set?132_0"
-" s128_1"
-" start129_0"
-" end130_0"
-" radix131_0"
-" exactness133_0"
-" convert-mode135_0)))))))))))))))))))))))))))))"
+"(let-values(((s125_0) s_17)"
+"((start126_0) start_43)"
+"((end127_0) end_33)"
+"((radix128_0) radix_3)"
+"((radix-set?129_0) radix-set?_0)"
+"((exactness130_0) exactness_0)"
+"((in-complex131_0) in-complex_0)"
+"((convert-mode132_0) convert-mode_2))"
+"(do-string->non-special-number30.1"
+" in-complex131_0"
+" radix-set?129_0"
+" s125_0"
+" start126_0"
+" end127_0"
+" radix128_0"
+" exactness130_0"
+" convert-mode132_0)))))))))))))))))))))))))))))"
 "(define-values"
-"(do-string->non-special-number33.1)"
-"(lambda(in-complex24_0"
-" in-complex26_0"
-" radix-set?23_0"
-" s27_1"
-" start28_0"
-" end29_0"
-" radix30_0"
-" exactness31_0"
-" convert-mode32_0)"
+"(do-string->non-special-number30.1)"
+"(lambda(in-complex21_0 radix-set?20_0 s24_2 start25_0 end26_0 radix27_0 exactness28_0 convert-mode29_0)"
 "(begin"
-" 'do-string->non-special-number33"
-"(let-values(((s_38) s27_1))"
-"(let-values(((start_45) start28_0))"
-"(let-values(((end_35) end29_0))"
-"(let-values(((radix_5) radix30_0))"
-"(let-values(((radix-set?_1) radix-set?23_0))"
-"(let-values(((exactness_1) exactness31_0))"
-"(let-values(((in-complex_1)(if in-complex26_0 in-complex24_0 #f)))"
-"(let-values(((convert-mode_3) convert-mode32_0))"
+" 'do-string->non-special-number30"
+"(let-values(((s_456) s24_2))"
+"(let-values(((start_44) start25_0))"
+"(let-values(((end_34) end26_0))"
+"(let-values(((radix_5) radix27_0))"
+"(let-values(((radix-set?_1) radix-set?20_0))"
+"(let-values(((exactness_1) exactness28_0))"
+"(let-values(((in-complex_1) in-complex21_0))"
+"(let-values(((convert-mode_3) convert-mode29_0))"
 "(let-values()"
-"((letrec-values(((loop_111)"
-"(lambda(i_177"
+"((letrec-values(((loop_109)"
+"(lambda(i_173"
 " any-digits?_0"
 " any-hashes?_0"
 " i-pos_3"
@@ -50838,7 +49857,7 @@ static const char *startup_source =
 " must-i?_0)"
 "(begin"
 " 'loop"
-"(if(= i_177 end_35)"
+"(if(= i_173 end_34)"
 "(let-values()"
 "(if(if(not any-digits?_0)(not i-pos_3) #f)"
 "(let-values()"
@@ -50846,7 +49865,7 @@ static const char *startup_source =
 "(let-values()"
 "(format"
 "                                                           \"no digits in `~.a`\""
-"(substring s_38 start_45 end_35)))"
+"(substring s_456 start_44 end_34)))"
 "(let-values() #f)))"
 "(if(if must-i?_0(not i-pos_3) #f)"
 "(let-values()"
@@ -50854,13 +49873,13 @@ static const char *startup_source =
 "(let-values()"
 "(format"
 "                                                             \"too many signs in `~.a`\""
-"(substring s_38 start_45 end_35)))"
+"(substring s_456 start_44 end_34)))"
 "(let-values() #f)))"
 "(if(if sign-pos_0"
-"(let-values(((or-part_314)"
+"(let-values(((or-part_312)"
 "(if dot-pos_1(< dot-pos_1 sign-pos_0) #f)))"
-"(if or-part_314"
-" or-part_314"
+"(if or-part_312"
+" or-part_312"
 "(if slash-pos_0(< slash-pos_0 sign-pos_0) #f)))"
 " #f)"
 "(let-values()"
@@ -50868,67 +49887,67 @@ static const char *startup_source =
 "(let-values()"
 "(format"
 "                                                               \"misplaced sign in `~.a`\""
-"(substring s_38 start_45 end_35)))"
+"(substring s_456 start_44 end_34)))"
 "(let-values() #f)))"
 "(if i-pos_3"
 "(let-values()"
-"(let-values(((s136_0) s_38)"
-"((start137_0) start_45)"
-"((sign-pos138_0) sign-pos_0)"
+"(let-values(((s133_0) s_456)"
+"((start134_0) start_44)"
+"((sign-pos135_0) sign-pos_0)"
+"((sign-pos136_0) sign-pos_0)"
+"((temp137_2)(sub1 end_34))"
+"((i-pos138_0) i-pos_3)"
 "((sign-pos139_0) sign-pos_0)"
-"((temp140_2)(sub1 end_35))"
-"((i-pos141_0) i-pos_3)"
-"((sign-pos142_0) sign-pos_0)"
-"((radix143_0) radix_5)"
-"((radix-set?144_0) radix-set?_1)"
-"((exactness145_0) exactness_1)"
-"((temp146_2) 'i)"
-"((convert-mode147_0) convert-mode_3))"
-"(string->complex-number50.1"
-" temp146_2"
-" radix-set?144_0"
-" s136_0"
-" start137_0"
-" sign-pos138_0"
+"((radix140_0) radix_5)"
+"((radix-set?141_0) radix-set?_1)"
+"((exactness142_0) exactness_1)"
+"((temp143_1) 'i)"
+"((convert-mode144_0) convert-mode_3))"
+"(string->complex-number47.1"
+" temp143_1"
+" radix-set?141_0"
+" s133_0"
+" start134_0"
+" sign-pos135_0"
+" sign-pos136_0"
+" temp137_2"
+" i-pos138_0"
 " sign-pos139_0"
-" temp140_2"
-" i-pos141_0"
-" sign-pos142_0"
-" radix143_0"
-" exactness145_0"
-" convert-mode147_0)))"
+" radix140_0"
+" exactness142_0"
+" convert-mode144_0)))"
 "(if @-pos_0"
 "(let-values()"
-"(let-values(((s148_0) s_38)"
-"((start149_0) start_45)"
-"((@-pos150_0) @-pos_0)"
-"((temp151_1)(add1 @-pos_0))"
-"((end152_0) end_35)"
-"((i-pos153_0) i-pos_3)"
-"((sign-pos154_0) sign-pos_0)"
-"((radix155_0) radix_5)"
-"((radix-set?156_0) radix-set?_1)"
-"((exactness157_0) exactness_1)"
-"((temp158_1) '@)"
-"((convert-mode159_0) convert-mode_3))"
-"(string->complex-number50.1"
-" temp158_1"
-" radix-set?156_0"
-" s148_0"
-" start149_0"
-" @-pos150_0"
-" temp151_1"
-" end152_0"
-" i-pos153_0"
-" sign-pos154_0"
-" radix155_0"
-" exactness157_0"
-" convert-mode159_0)))"
+"(let-values(((s145_0) s_456)"
+"((start146_0) start_44)"
+"((@-pos147_0) @-pos_0)"
+"((temp148_1)(add1 @-pos_0))"
+"((end149_0) end_34)"
+"((i-pos150_0) i-pos_3)"
+"((sign-pos151_0) sign-pos_0)"
+"((radix152_0) radix_5)"
+"((radix-set?153_0) radix-set?_1)"
+"((exactness154_0) exactness_1)"
+"((temp155_2) '@)"
+"((convert-mode156_0) convert-mode_3))"
+"(string->complex-number47.1"
+" temp155_2"
+" radix-set?153_0"
+" s145_0"
+" start146_0"
+" @-pos147_0"
+" temp148_1"
+" end149_0"
+" i-pos150_0"
+" sign-pos151_0"
+" radix152_0"
+" exactness154_0"
+" convert-mode156_0)))"
 "(let-values()"
 "(string->real-number"
-" s_38"
-" start_45"
-" end_35"
+" s_456"
+" start_44"
+" end_34"
 " dot-pos_1"
 " slash-pos_0"
 " exp-pos_0"
@@ -50937,11 +49956,11 @@ static const char *startup_source =
 " exactness_1"
 " convert-mode_3))))))))"
 "(let-values()"
-"(let-values(((c_81)(string-ref s_38 i_177)))"
-"(if(digit? c_81 radix_5)"
+"(let-values(((c_79)(string-ref s_456 i_173)))"
+"(if(digit? c_79 radix_5)"
 "(let-values()"
-"(loop_111"
-"(add1 i_177)"
+"(loop_109"
+"(add1 i_173)"
 " #t"
 " any-hashes?_0"
 " i-pos_3"
@@ -50951,10 +49970,10 @@ static const char *startup_source =
 " slash-pos_0"
 " exp-pos_0"
 " must-i?_0))"
-"(if(char=? c_81 '#\\#)"
+"(if(char=? c_79 '#\\#)"
 "(let-values()"
-"(loop_111"
-"(add1 i_177)"
+"(loop_109"
+"(add1 i_173)"
 " #t"
 " #t"
 " i-pos_3"
@@ -50964,7 +49983,7 @@ static const char *startup_source =
 " slash-pos_0"
 " exp-pos_0"
 " must-i?_0))"
-"(if(char-sign? c_81)"
+"(if(char-sign? c_79)"
 "(let-values()"
 "(if(if sign-pos_0 must-i?_0 #f)"
 "(let-values()"
@@ -50972,41 +49991,41 @@ static const char *startup_source =
 "(let-values()"
 "(format"
 "                                                                     \"too many signs in `~.a`\""
-"(substring s_38 start_45 end_35)))"
+"(substring s_456 start_44 end_34)))"
 "(let-values() #f)))"
 "(let-values()"
-"(loop_111"
-"(add1 i_177)"
+"(loop_109"
+"(add1 i_173)"
 " any-digits?_0"
 " any-hashes?_0"
 " i-pos_3"
 " @-pos_0"
-" i_177"
+" i_173"
 " dot-pos_1"
 " slash-pos_0"
 " #f"
-"(if(> i_177 start_45)"
-"(let-values(((or-part_204)(not @-pos_0)))"
-"(if or-part_204"
-" or-part_204"
-"(> i_177(add1 @-pos_0))))"
+"(if(> i_173 start_44)"
+"(let-values(((or-part_313)(not @-pos_0)))"
+"(if or-part_313"
+" or-part_313"
+"(> i_173(add1 @-pos_0))))"
 " #f)))))"
-"(if(char=? c_81 '#\\.)"
+"(if(char=? c_79 '#\\.)"
 "(let-values()"
-"(if(let-values(((or-part_315)"
+"(if(let-values(((or-part_314)"
 "(if exp-pos_0"
-"(let-values(((or-part_316)"
+"(let-values(((or-part_315)"
 "(not sign-pos_0)))"
-"(if or-part_316"
-" or-part_316"
-"(> exp-pos_0 sign-pos_0)))"
-" #f)))"
 "(if or-part_315"
 " or-part_315"
+"(> exp-pos_0 sign-pos_0)))"
+" #f)))"
+"(if or-part_314"
+" or-part_314"
 "(if dot-pos_1"
-"(let-values(((or-part_317)(not sign-pos_0)))"
-"(if or-part_317"
-" or-part_317"
+"(let-values(((or-part_208)(not sign-pos_0)))"
+"(if or-part_208"
+" or-part_208"
 "(> dot-pos_1 sign-pos_0)))"
 " #f)))"
 "(let-values()"
@@ -51014,12 +50033,12 @@ static const char *startup_source =
 "(let-values()"
 "(format"
 "                                                                       \"misplaced `.` in `~.a`\""
-"(substring s_38 start_45 end_35)))"
+"(substring s_456 start_44 end_34)))"
 "(let-values() #f)))"
 "(if(if slash-pos_0"
-"(let-values(((or-part_318)(not sign-pos_0)))"
-"(if or-part_318"
-" or-part_318"
+"(let-values(((or-part_278)(not sign-pos_0)))"
+"(if or-part_278"
+" or-part_278"
 "(> slash-pos_0 sign-pos_0)))"
 " #f)"
 "(let-values()"
@@ -51027,26 +50046,26 @@ static const char *startup_source =
 "(let-values()"
 "(format"
 "                                                                         \"decimal points and fractions annot be mixed `~.a`\""
-"(substring s_38 start_45 end_35)))"
+"(substring s_456 start_44 end_34)))"
 "(let-values() #f)))"
 "(let-values()"
-"(loop_111"
-"(add1 i_177)"
+"(loop_109"
+"(add1 i_173)"
 " any-digits?_0"
 " any-hashes?_0"
 " i-pos_3"
 " @-pos_0"
 " sign-pos_0"
-" i_177"
+" i_173"
 " #f"
 " #f"
 " must-i?_0)))))"
-"(if(char=? c_81 '#\\/)"
+"(if(char=? c_79 '#\\/)"
 "(let-values()"
 "(if(if dot-pos_1"
-"(let-values(((or-part_279)(not sign-pos_0)))"
-"(if or-part_279"
-" or-part_279"
+"(let-values(((or-part_316)(not sign-pos_0)))"
+"(if or-part_316"
+" or-part_316"
 "(> dot-pos_1 sign-pos_0)))"
 " #f)"
 "(let-values()"
@@ -51054,23 +50073,23 @@ static const char *startup_source =
 "(let-values()"
 "(format"
 "                                                                         \"decimal points and fractions annot be mixed `~.a`\""
-"(substring s_38 start_45 end_35)))"
+"(substring s_456 start_44 end_34)))"
 "(let-values() #f)))"
-"(if(let-values(((or-part_319)"
+"(if(let-values(((or-part_317)"
 "(if exp-pos_0"
-"(let-values(((or-part_320)"
+"(let-values(((or-part_318)"
 "(not sign-pos_0)))"
-"(if or-part_320"
-" or-part_320"
+"(if or-part_318"
+" or-part_318"
 "(> exp-pos_0 sign-pos_0)))"
 " #f)))"
+"(if or-part_317"
+" or-part_317"
+"(if slash-pos_0"
+"(let-values(((or-part_319)"
+"(not sign-pos_0)))"
 "(if or-part_319"
 " or-part_319"
-"(if slash-pos_0"
-"(let-values(((or-part_321)"
-"(not sign-pos_0)))"
-"(if or-part_321"
-" or-part_321"
 "(> slash-pos_0 sign-pos_0)))"
 " #f)))"
 "(let-values()"
@@ -51078,74 +50097,74 @@ static const char *startup_source =
 "(let-values()"
 "(format"
 "                                                                           \"misplaced `/` in `~.a`\""
-"(substring s_38 start_45 end_35)))"
+"(substring s_456 start_44 end_34)))"
 "(let-values() #f)))"
 "(let-values()"
-"(loop_111"
-"(add1 i_177)"
+"(loop_109"
+"(add1 i_173)"
 " any-digits?_0"
 " any-hashes?_0"
 " i-pos_3"
 " @-pos_0"
 " sign-pos_0"
 " #f"
-" i_177"
+" i_173"
 " #f"
 " must-i?_0)))))"
-"(if(let-values(((or-part_322)(char=? c_81 '#\\e)))"
+"(if(let-values(((or-part_320)(char=? c_79 '#\\e)))"
+"(if or-part_320"
+" or-part_320"
+"(let-values(((or-part_321)(char=? c_79 '#\\E)))"
+"(if or-part_321"
+" or-part_321"
+"(let-values(((or-part_322)"
+"(char=? c_79 '#\\f)))"
 "(if or-part_322"
 " or-part_322"
-"(let-values(((or-part_323)(char=? c_81 '#\\E)))"
+"(let-values(((or-part_323)"
+"(char=? c_79 '#\\F)))"
 "(if or-part_323"
 " or-part_323"
 "(let-values(((or-part_324)"
-"(char=? c_81 '#\\f)))"
+"(char=? c_79 '#\\d)))"
 "(if or-part_324"
 " or-part_324"
+"(let-values(((or-part_181)"
+"(char=? c_79 '#\\D)))"
+"(if or-part_181"
+" or-part_181"
 "(let-values(((or-part_325)"
-"(char=? c_81 '#\\F)))"
+"(char=?"
+" c_79"
+" '#\\s)))"
 "(if or-part_325"
 " or-part_325"
 "(let-values(((or-part_326)"
-"(char=? c_81 '#\\d)))"
+"(char=?"
+" c_79"
+" '#\\S)))"
 "(if or-part_326"
 " or-part_326"
-"(let-values(((or-part_205)"
-"(char=? c_81 '#\\D)))"
-"(if or-part_205"
-" or-part_205"
-"(let-values(((or-part_173)"
+"(let-values(((or-part_209)"
 "(char=?"
-" c_81"
-" '#\\s)))"
-"(if or-part_173"
-" or-part_173"
+" c_79"
+" '#\\l)))"
+"(if or-part_209"
+" or-part_209"
 "(let-values(((or-part_327)"
 "(char=?"
-" c_81"
-" '#\\S)))"
+" c_79"
+" '#\\L)))"
 "(if or-part_327"
 " or-part_327"
-"(let-values(((or-part_328)"
+"(let-values(((or-part_173)"
 "(char=?"
-" c_81"
-" '#\\l)))"
-"(if or-part_328"
-" or-part_328"
-"(let-values(((or-part_329)"
-"(char=?"
-" c_81"
-" '#\\L)))"
-"(if or-part_329"
-" or-part_329"
-"(let-values(((or-part_180)"
-"(char=?"
-" c_81"
+" c_79"
 " '#\\t)))"
-"(if or-part_180"
-" or-part_180"
+"(if or-part_173"
+" or-part_173"
 "(char=?"
-" c_81"
+" c_79"
 " '#\\T)))))))))))))))))))))))"
 "(let-values()"
 "(if exp-pos_0"
@@ -51154,15 +50173,15 @@ static const char *startup_source =
 "(let-values()"
 "(format"
 "                                                                           \"misplaced `~a` in `~.a`\""
-" c_81"
-"(substring s_38 start_45 end_35)))"
+" c_79"
+"(substring s_456 start_44 end_34)))"
 "(let-values() #f)))"
-"(if(if(<(add1 i_177) end_35)"
-"(char-sign?(string-ref s_38(add1 i_177)))"
+"(if(if(<(add1 i_173) end_34)"
+"(char-sign?(string-ref s_456(add1 i_173)))"
 " #f)"
 "(let-values()"
-"(loop_111"
-"(+ i_177 2)"
+"(loop_109"
+"(+ i_173 2)"
 " any-digits?_0"
 " any-hashes?_0"
 " i-pos_3"
@@ -51170,12 +50189,12 @@ static const char *startup_source =
 " sign-pos_0"
 " dot-pos_1"
 " slash-pos_0"
-"(let-values(((or-part_330) exp-pos_0))"
-"(if or-part_330 or-part_330 i_177))"
+"(let-values(((or-part_328) exp-pos_0))"
+"(if or-part_328 or-part_328 i_173))"
 " must-i?_0))"
 "(let-values()"
-"(loop_111"
-"(+ i_177 1)"
+"(loop_109"
+"(+ i_173 1)"
 " any-digits?_0"
 " any-hashes?_0"
 " i-pos_3"
@@ -51183,10 +50202,10 @@ static const char *startup_source =
 " sign-pos_0"
 " dot-pos_1"
 " slash-pos_0"
-"(let-values(((or-part_331) exp-pos_0))"
-"(if or-part_331 or-part_331 i_177))"
+"(let-values(((or-part_329) exp-pos_0))"
+"(if or-part_329 or-part_329 i_173))"
 " must-i?_0)))))"
-"(if(char=? c_81 '#\\@)"
+"(if(char=? c_79 '#\\@)"
 "(let-values()"
 "(if(eq? in-complex_1 'i)"
 "(let-values()"
@@ -51194,26 +50213,26 @@ static const char *startup_source =
 "(let-values()"
 "(format"
 "                                                                             \"cannot mix `@` and `i` in `~.a`\""
-"(substring s_38 start_45 end_35)))"
+"(substring s_456 start_44 end_34)))"
 "(let-values() #f)))"
-"(if(let-values(((or-part_158) @-pos_0))"
-"(if or-part_158"
-" or-part_158"
+"(if(let-values(((or-part_160) @-pos_0))"
+"(if or-part_160"
+" or-part_160"
 "(eq? in-complex_1 '@)))"
 "(let-values()"
 "(if(eq? convert-mode_3 'must-read)"
 "(let-values()"
 "(format"
 "                                                                               \"too many `@`s in `~.a`\""
-"(substring s_38 start_45 end_35)))"
+"(substring s_456 start_44 end_34)))"
 "(let-values() #f)))"
-"(if(= i_177 start_45)"
+"(if(= i_173 start_44)"
 "(let-values()"
 "(if(eq? convert-mode_3 'must-read)"
 "(let-values()"
 "(format"
 "                                                                                 \"`@` cannot be at start in `~.a`\""
-"(substring s_38 start_45 end_35)))"
+"(substring s_456 start_44 end_34)))"
 "(let-values() #f)))"
 "(if must-i?_0"
 "(let-values()"
@@ -51221,57 +50240,57 @@ static const char *startup_source =
 "(let-values()"
 "(format"
 "                                                                                   \"too many signs in `~.a`\""
-"(substring s_38 start_45 end_35)))"
+"(substring s_456 start_44 end_34)))"
 "(let-values() #f)))"
 "(let-values()"
-"(loop_111"
-"(add1 i_177)"
+"(loop_109"
+"(add1 i_173)"
 " any-digits?_0"
 " any-hashes?_0"
 " i-pos_3"
-" i_177"
+" i_173"
 " #f"
 " #f"
 " #f"
 " #f"
 " must-i?_0)))))))"
-"(if(if(let-values(((or-part_332)"
-"(char=? c_81 '#\\i)))"
-"(if or-part_332"
-" or-part_332"
-"(char=? c_81 '#\\I)))"
+"(if(if(let-values(((or-part_330)"
+"(char=? c_79 '#\\i)))"
+"(if or-part_330"
+" or-part_330"
+"(char=? c_79 '#\\I)))"
 " sign-pos_0"
 " #f)"
 "(let-values()"
-"(if(let-values(((or-part_106) @-pos_0))"
-"(if or-part_106"
-" or-part_106"
+"(if(let-values(((or-part_331) @-pos_0))"
+"(if or-part_331"
+" or-part_331"
 "(eq? in-complex_1 '@)))"
 "(let-values()"
 "(if(eq? convert-mode_3 'must-read)"
 "(let-values()"
 "(format"
 "                                                                               \"cannot mix `@` and `i` in `~.a`\""
-"(substring s_38 start_45 end_35)))"
+"(substring s_456 start_44 end_34)))"
 "(let-values() #f)))"
-"(if(let-values(((or-part_107)"
-"(<(add1 i_177) end_35)))"
-"(if or-part_107"
-" or-part_107"
+"(if(let-values(((or-part_332)"
+"(<(add1 i_173) end_34)))"
+"(if or-part_332"
+" or-part_332"
 "(eq? in-complex_1 'i)))"
 "(let-values()"
 "(if(eq? convert-mode_3 'must-read)"
 "(let-values()"
 "(format"
 "                                                                                 \"`i` must be at the end in `~.a`\""
-"(substring s_38 start_45 end_35)))"
+"(substring s_456 start_44 end_34)))"
 "(let-values() #f)))"
 "(let-values()"
-"(loop_111"
-"(add1 i_177)"
+"(loop_109"
+"(add1 i_173)"
 " any-digits?_0"
 " any-hashes?_0"
-" i_177"
+" i_173"
 " @-pos_0"
 " sign-pos_0"
 " #f"
@@ -51279,19 +50298,19 @@ static const char *startup_source =
 " #f"
 " #f)))))"
 "(let-values()"
-"(if(char=? c_81 '#\\nul)"
+"(if(char=? c_79 '#\\nul)"
 "(let-values()"
 "(if(eq? convert-mode_3 'must-read)"
 "(let-values()"
-"                                                                              (format \"nul character in `~.a`\" s_38))"
+"                                                                              (format \"nul character in `~.a`\" s_456))"
 "(let-values() #f)))"
 "(let-values()"
 "(if(eq? convert-mode_3 'must-read)"
 "(let-values()"
-"                                                                              (format \"bad digit `~a`\" c_81))"
+"                                                                              (format \"bad digit `~a`\" c_79))"
 "(let-values() #f))))))))))))))))))))"
-" loop_111)"
-" start_45"
+" loop_109)"
+" start_44"
 " #f"
 " #f"
 " #f"
@@ -51302,82 +50321,80 @@ static const char *startup_source =
 " #f"
 " #f)))))))))))))"
 "(define-values"
-"(string->complex-number50.1)"
-"(lambda(in-complex37_0"
-" radix-set?36_0"
-" s40_0"
-" start141_0"
-" end142_0"
-" start243_0"
-" end244_0"
-" i-pos45_0"
-" sign-pos46_0"
-" radix47_0"
-" exactness48_0"
-" convert-mode49_0)"
+"(string->complex-number47.1)"
+"(lambda(in-complex34_0"
+" radix-set?33_0"
+" s37_1"
+" start138_0"
+" end139_0"
+" start240_0"
+" end241_0"
+" i-pos42_0"
+" sign-pos43_0"
+" radix44_0"
+" exactness45_0"
+" convert-mode46_0)"
 "(begin"
-" 'string->complex-number50"
-"(let-values(((s_118) s40_0))"
-"(let-values(((start1_0) start141_0))"
-"(let-values(((end1_0) end142_0))"
-"(let-values(((start2_0) start243_0))"
-"(let-values(((end2_0) end244_0))"
+" 'string->complex-number47"
+"(let-values(((s_116) s37_1))"
+"(let-values(((start1_0) start138_0))"
+"(let-values(((end1_0) end139_0))"
+"(let-values(((start2_0) start240_0))"
+"(let-values(((end2_0) end241_0))"
 "(let-values()"
 "(let-values()"
-"(let-values(((radix_6) radix47_0))"
-"(let-values(((radix-set?_2) radix-set?36_0))"
-"(let-values(((exactness_2) exactness48_0))"
-"(let-values(((in-complex_2) in-complex37_0))"
-"(let-values(((convert-mode_4) convert-mode49_0))"
+"(let-values(((radix_6) radix44_0))"
+"(let-values(((radix-set?_2) radix-set?33_0))"
+"(let-values(((exactness_2) exactness45_0))"
+"(let-values(((in-complex_2) in-complex34_0))"
+"(let-values(((convert-mode_4) convert-mode46_0))"
 "(let-values()"
 "(let-values(((v1_0)"
 "(if(= start1_0 end1_0)"
 "(let-values()(if(eq? exactness_2 'inexact) 0.0 0))"
 "(let-values()"
-"(let-values(((s160_0) s_118)"
-"((start1161_0) start1_0)"
-"((end1162_0) end1_0)"
-"((radix163_0) radix_6)"
-"((radix-set?164_0) radix-set?_2)"
-"((exactness165_0) exactness_2)"
-"((in-complex166_0) in-complex_2)"
-"((convert-mode167_0) convert-mode_4))"
-"(do-string->number20.1"
-" in-complex166_0"
-" #t"
-" radix-set?164_0"
-" s160_0"
-" start1161_0"
-" end1162_0"
-" radix163_0"
-" exactness165_0"
-" convert-mode167_0))))))"
+"(let-values(((s157_0) s_116)"
+"((start1158_0) start1_0)"
+"((end1159_0) end1_0)"
+"((radix160_0) radix_6)"
+"((radix-set?161_0) radix-set?_2)"
+"((exactness162_0) exactness_2)"
+"((in-complex163_0) in-complex_2)"
+"((convert-mode164_0) convert-mode_4))"
+"(do-string->number17.1"
+" in-complex163_0"
+" radix-set?161_0"
+" s157_0"
+" start1158_0"
+" end1159_0"
+" radix160_0"
+" exactness162_0"
+" convert-mode164_0))))))"
 "(let-values(((v2_6)"
 "(if(if(eq? in-complex_2 'i)(=(- end2_0 start2_0) 1) #f)"
 "(let-values()"
-"(let-values(((neg?_0)(char=?(string-ref s_118 start2_0) '#\\-)))"
+"(let-values(((neg?_0)(char=?(string-ref s_116 start2_0) '#\\-)))"
 "(if(eq? exactness_2 'inexact)"
 "(let-values()(if neg?_0 -1.0 1.0))"
 "(let-values()(if neg?_0 -1 1)))))"
 "(let-values()"
-"(let-values(((s168_0) s_118)"
-"((start2169_0) start2_0)"
-"((end2170_0) end2_0)"
-"((radix171_0) radix_6)"
-"((radix-set?172_0) radix-set?_2)"
-"((exactness173_0) exactness_2)"
-"((in-complex174_0) in-complex_2)"
-"((convert-mode175_0) convert-mode_4))"
-"(do-string->number20.1"
-" in-complex174_0"
-" #t"
-" radix-set?172_0"
-" s168_0"
-" start2169_0"
-" end2170_0"
-" radix171_0"
-" exactness173_0"
-" convert-mode175_0))))))"
+"(let-values(((s165_0) s_116)"
+"((start2166_0) start2_0)"
+"((end2167_0) end2_0)"
+"((radix168_0) radix_6)"
+"((radix-set?169_0) radix-set?_2)"
+"((exactness170_0) exactness_2)"
+"((in-complex171_0) in-complex_2)"
+"((convert-mode172_0) convert-mode_4))"
+"(do-string->number17.1"
+" in-complex171_0"
+" radix-set?169_0"
+" s165_0"
+" start2166_0"
+" end2167_0"
+" radix168_0"
+" exactness170_0"
+" convert-mode172_0))))))"
 "(if(let-values(((or-part_333)(not v1_0)))"
 "(if or-part_333 or-part_333(not v2_6)))"
 "(let-values() #f)"
@@ -51397,16 +50414,16 @@ static const char *startup_source =
 "(if(eq? in-complex_2 'i)"
 "(let-values()(make-rectangular v1_0 v2_6))"
 "(let-values()"
-"(let-values(((p_75)(make-polar v1_0 v2_6)))"
+"(let-values(((p_73)(make-polar v1_0 v2_6)))"
 "(if(eq? exactness_2 'exact)"
-"(inexact->exact p_75)"
-" p_75))))))))))))))))))))))))))))"
+"(inexact->exact p_73)"
+" p_73))))))))))))))))))))))))))))"
 "(define-values"
 "(string->real-number)"
-"(lambda(s_240 start_46 end_36 dot-pos_2 slash-pos_1 exp-pos_1 any-hashes?_1 radix_7 exactness_3 convert-mode_5)"
+"(lambda(s_333 start_45 end_35 dot-pos_2 slash-pos_1 exp-pos_1 any-hashes?_1 radix_7 exactness_3 convert-mode_5)"
 "(begin"
 "(let-values(((extfl-mark?_0)"
-"(lambda()(begin 'extfl-mark?(char=?(char-downcase(string-ref s_240 exp-pos_1)) '#\\t)))))"
+"(lambda()(begin 'extfl-mark?(char=?(char-downcase(string-ref s_333 exp-pos_1)) '#\\t)))))"
 "(let-values(((simple?_0)"
 "(if(not slash-pos_1)"
 "(if(let-values(((or-part_335)(eq? exactness_3 'inexact)))"
@@ -51417,61 +50434,61 @@ static const char *startup_source =
 "(if(let-values(((or-part_337)(not exp-pos_1)))"
 "(if or-part_337"
 " or-part_337"
-"(let-values(((or-part_338)(not(eq? convert-mode_5 'number-or-false))))"
-"(if or-part_338 or-part_338(not(extfl-mark?_0))))))"
-"(not(if any-hashes?_1(hashes? s_240 start_46 end_36) #f))"
+"(let-values(((or-part_223)(not(eq? convert-mode_5 'number-or-false))))"
+"(if or-part_223 or-part_223(not(extfl-mark?_0))))))"
+"(not(if any-hashes?_1(hashes? s_333 start_45 end_35) #f))"
 " #f)"
 " #f)"
 " #f)))"
-"(let-values(((has-sign?_0)(if(> end_36 start_46)(char-sign?(string-ref s_240 start_46)) #f)))"
-"(if(=(- end_36 start_46)(+(if dot-pos_2 1 0)(if exp-pos_1 1 0)(if has-sign?_0 1 0)))"
+"(let-values(((has-sign?_0)(if(> end_35 start_45)(char-sign?(string-ref s_333 start_45)) #f)))"
+"(if(=(- end_35 start_45)(+(if dot-pos_2 1 0)(if exp-pos_1 1 0)(if has-sign?_0 1 0)))"
 "(let-values()"
-"(if(= end_36 start_46)"
+"(if(= end_35 start_45)"
 "                  (if (eq? convert-mode_5 'must-read) (let-values () (format \"missing digits\")) (let-values () #f))"
 "(if(eq? convert-mode_5 'must-read)"
-"                    (let-values () (format \"missing digits in `~.a`\" (substring s_240 start_46 end_36)))"
+"                    (let-values () (format \"missing digits in `~.a`\" (substring s_333 start_45 end_35)))"
 "(let-values() #f))))"
 "(if simple?_0"
 "(let-values()"
 "(if(if exp-pos_1"
 "(="
-"(- exp-pos_1 start_46)"
+"(- exp-pos_1 start_45)"
 "(+(if(if dot-pos_2(< dot-pos_2 exp-pos_1) #f) 1 0)(if has-sign?_0 1 0)))"
 " #f)"
 "(let-values()"
 "(if(eq? convert-mode_5 'must-read)"
 "(let-values()"
-"                          (format \"missing digits before exponent marker in `~.a`\" (substring s_240 start_46 end_36)))"
+"                          (format \"missing digits before exponent marker in `~.a`\" (substring s_333 start_45 end_35)))"
 "(let-values() #f)))"
 "(if(if exp-pos_1"
-"(let-values(((or-part_339)(= exp-pos_1(sub1 end_36))))"
-"(if or-part_339"
-" or-part_339"
-"(if(= exp-pos_1(- end_36 2))(char-sign?(string-ref s_240(sub1 end_36))) #f)))"
+"(let-values(((or-part_338)(= exp-pos_1(sub1 end_35))))"
+"(if or-part_338"
+" or-part_338"
+"(if(= exp-pos_1(- end_35 2))(char-sign?(string-ref s_333(sub1 end_35))) #f)))"
 " #f)"
 "(let-values()"
 "(if(eq? convert-mode_5 'must-read)"
 "(let-values()"
-"                            (format \"missing digits after exponent marker in `~.a`\" (substring s_240 start_46 end_36)))"
+"                            (format \"missing digits after exponent marker in `~.a`\" (substring s_333 start_45 end_35)))"
 "(let-values() #f)))"
 "(let-values()"
 "(let-values(((n_31)"
 "(string->number$1"
-"(maybe-substring s_240 start_46 end_36)"
+"(maybe-substring s_333 start_45 end_35)"
 " radix_7"
-"(if(let-values(((or-part_340)(eq? convert-mode_5 'number-or-false)))"
-"(if or-part_340"
-" or-part_340"
-"(let-values(((or-part_341)(not exp-pos_1)))"
-"(if or-part_341 or-part_341(not(extfl-mark?_0))))))"
+"(if(let-values(((or-part_339)(eq? convert-mode_5 'number-or-false)))"
+"(if or-part_339"
+" or-part_339"
+"(let-values(((or-part_147)(not exp-pos_1)))"
+"(if or-part_147 or-part_147(not(extfl-mark?_0))))))"
 " 'number-or-false"
 " 'read))))"
-"(if(let-values(((or-part_342)(not n_31)))(if or-part_342 or-part_342(string? n_31)))"
+"(if(let-values(((or-part_148)(not n_31)))(if or-part_148 or-part_148(string? n_31)))"
 "(let-values()"
 "(error"
 " 'string->number"
 "                               \"host `string->number` failed on ~s\""
-"(substring s_240 start_46 end_36)))"
+"(substring s_333 start_45 end_35)))"
 "(if(eq? exactness_3 'inexact)"
 "(let-values()"
 "(if(extflonum? n_31)"
@@ -51480,9 +50497,9 @@ static const char *startup_source =
 "(let-values()"
 "(format"
 "                                         \"cannot convert extflonum `~.a` to inexact\""
-"(substring s_240 start_46 end_36)))"
+"(substring s_333 start_45 end_35)))"
 "(let-values() #f)))"
-"(if(if(eqv? n_31 0)(char=?(string-ref s_240 start_46) '#\\-) #f)"
+"(if(if(eqv? n_31 0)(char=?(string-ref s_333 start_45) '#\\-) #f)"
 "(let-values() -0.0)"
 "(let-values()(exact->inexact n_31)))))"
 "(let-values() n_31))))))))"
@@ -51490,8 +50507,8 @@ static const char *startup_source =
 "(let-values()"
 "(let-values(((m-v_0)"
 "(string->real-number"
-" s_240"
-" start_46"
+" s_333"
+" start_45"
 " exp-pos_1"
 " dot-pos_2"
 " slash-pos_1"
@@ -51501,12 +50518,12 @@ static const char *startup_source =
 " 'exact"
 " convert-mode_5)))"
 "(let-values(((e-v_0)"
-"(string->exact-integer-number s_240(+ exp-pos_1 1) end_36 radix_7 convert-mode_5)))"
+"(string->exact-integer-number s_333(+ exp-pos_1 1) end_35 radix_7 convert-mode_5)))"
 "(let-values(((real->precision-inexact_0)"
 "(lambda(r_46)"
 "(begin"
 " 'real->precision-inexact"
-"(let-values(((tmp_40)(string-ref s_240 exp-pos_1)))"
+"(let-values(((tmp_40)(string-ref s_333 exp-pos_1)))"
 "(if(if(equal? tmp_40 '#\\s)"
 " #t"
 "(if(equal? tmp_40 '#\\S)"
@@ -51518,12 +50535,12 @@ static const char *startup_source =
 "(if(extflonum-available?)"
 "(real->extfl r_46)"
 "(string->number$1"
-"(replace-hashes s_240 start_46 end_36)"
+"(replace-hashes s_333 start_45 end_35)"
 " radix_7"
 " 'read)))"
 "(let-values()(real->double-flonum r_46)))))))))"
 "(let-values(((get-extfl?_0)(extfl-mark?_0)))"
-"(if(let-values(((or-part_217)(not m-v_0)))(if or-part_217 or-part_217(not e-v_0)))"
+"(if(let-values(((or-part_340)(not m-v_0)))(if or-part_340 or-part_340(not e-v_0)))"
 "(let-values() #f)"
 "(if(string? m-v_0)"
 "(let-values() m-v_0)"
@@ -51531,14 +50548,14 @@ static const char *startup_source =
 "(let-values() e-v_0)"
 "(if(if(eq? convert-mode_5 'number-or-false) get-extfl?_0 #f)"
 "(let-values() #f)"
-"(if(if(let-values(((or-part_343)(eq? exactness_3 'inexact)))"
-"(if or-part_343 or-part_343(eq? exactness_3 'decimal-as-inexact)))"
+"(if(if(let-values(((or-part_341)(eq? exactness_3 'inexact)))"
+"(if or-part_341 or-part_341(eq? exactness_3 'decimal-as-inexact)))"
 "(>(abs e-v_0)(if get-extfl?_0 6000 400))"
 " #f)"
 "(let-values()"
 "(real->precision-inexact_0"
 "(if(eqv? m-v_0 0)"
-"(let-values()(if(char=?(string-ref s_240 start_46) '#\\-) -0.0 0.0))"
+"(let-values()(if(char=?(string-ref s_333 start_45) '#\\-) -0.0 0.0))"
 "(if(positive? m-v_0)"
 "(let-values()(if(positive? e-v_0) +inf.0 0.0))"
 "(let-values()(if(positive? e-v_0) -inf.0 -0.0))))))"
@@ -51548,25 +50565,25 @@ static const char *startup_source =
 "(let-values()"
 "(format"
 "                                               \"cannot convert extflonum `~.a` to ~a\""
-"(substring s_240 start_46 end_36)"
+"(substring s_333 start_45 end_35)"
 " exactness_3))"
 "(let-values() #f)))"
 "(let-values()"
 "(let-values(((n_32)(* m-v_0(expt radix_7 e-v_0))))"
 "(if(if(not get-extfl?_0)"
-"(let-values(((or-part_344)(eq? exactness_3 'exact)))"
-"(if or-part_344 or-part_344(eq? exactness_3 'decimal-as-exact)))"
+"(let-values(((or-part_342)(eq? exactness_3 'exact)))"
+"(if or-part_342 or-part_342(eq? exactness_3 'decimal-as-exact)))"
 " #f)"
 "(let-values() n_32)"
-"(if(if(eqv? n_32 0)(char=?(string-ref s_240 start_46) '#\\-) #f)"
+"(if(if(eqv? n_32 0)(char=?(string-ref s_333 start_45) '#\\-) #f)"
 "(let-values()(real->precision-inexact_0 -0.0))"
 "(let-values()(real->precision-inexact_0 n_32)))))))))))))))))"
 "(if slash-pos_1"
 "(let-values()"
 "(let-values(((n-v_0)"
 "(string->real-number"
-" s_240"
-" start_46"
+" s_333"
+" start_45"
 " slash-pos_1"
 " #f"
 " #f"
@@ -51577,9 +50594,9 @@ static const char *startup_source =
 " convert-mode_5)))"
 "(let-values(((d-v_0)"
 "(string->real-number"
-" s_240"
+" s_333"
 "(add1 slash-pos_1)"
-" end_36"
+" end_35"
 " #f"
 " #f"
 " #f"
@@ -51591,13 +50608,13 @@ static const char *startup_source =
 "(lambda(from-pos_0)"
 "(begin"
 " 'get-inexact?"
-"(let-values(((or-part_345)(eq? exactness_3 'inexact)))"
-"(if or-part_345"
-" or-part_345"
+"(let-values(((or-part_343)(eq? exactness_3 'inexact)))"
+"(if or-part_343"
+" or-part_343"
 "(if(not(eq? exactness_3 'exact))"
-"(hashes? s_240 from-pos_0 end_36)"
+"(hashes? s_333 from-pos_0 end_35)"
 " #f)))))))"
-"(if(let-values(((or-part_146)(not n-v_0)))(if or-part_146 or-part_146(not d-v_0)))"
+"(if(let-values(((or-part_344)(not n-v_0)))(if or-part_344 or-part_344(not d-v_0)))"
 "(let-values() #f)"
 "(if(string? n-v_0)"
 "(let-values() n-v_0)"
@@ -51610,165 +50627,165 @@ static const char *startup_source =
 "(let-values()"
 "(if(eq?(read-complains convert-mode_5) 'must-read)"
 "(let-values()"
-"                                              (format \"division by zero in `~.a`\" (substring s_240 start_46 end_36)))"
+"                                              (format \"division by zero in `~.a`\" (substring s_333 start_45 end_35)))"
 "(let-values() #f)))))"
 "(let-values()"
 "(let-values(((n_33)(/ n-v_0 d-v_0)))"
-"(if(get-inexact?_0 start_46)(exact->inexact n_33) n_33)))))))))))"
+"(if(get-inexact?_0 start_45)(exact->inexact n_33) n_33)))))))))))"
 "(let-values()"
 "(string->decimal-number"
-" s_240"
-" start_46"
-" end_36"
+" s_333"
+" start_45"
+" end_35"
 " dot-pos_2"
 " radix_7"
 " exactness_3"
 " convert-mode_5))))))))))))"
 "(define-values"
 "(string->decimal-number)"
-"(lambda(s_249 start_47 end_37 dot-pos_3 radix_8 exactness_4 convert-mode_6)"
+"(lambda(s_487 start_46 end_36 dot-pos_3 radix_8 exactness_4 convert-mode_6)"
 "(begin"
 "(let-values(((get-exact?_0)"
-"(let-values(((or-part_346)(eq? exactness_4 'exact)))"
-"(if or-part_346 or-part_346(eq? exactness_4 'decimal-as-exact)))))"
-"(let-values(((new-str_0)(make-string(- end_37 start_47(if(if dot-pos_3 get-exact?_0 #f) 1 0)))))"
-"((letrec-values(((loop_112)"
-"(lambda(i_178 j_3 hashes-pos_0)"
+"(let-values(((or-part_187)(eq? exactness_4 'exact)))"
+"(if or-part_187 or-part_187(eq? exactness_4 'decimal-as-exact)))))"
+"(let-values(((new-str_0)(make-string(- end_36 start_46(if(if dot-pos_3 get-exact?_0 #f) 1 0)))))"
+"((letrec-values(((loop_110)"
+"(lambda(i_174 j_3 hashes-pos_0)"
 "(begin"
 " 'loop"
-"(if(< i_178 start_47)"
+"(if(< i_174 start_46)"
 "(let-values()"
-"(if(= hashes-pos_0 start_47)"
+"(if(= hashes-pos_0 start_46)"
 "(let-values()"
 "(if(eq? convert-mode_6 'must-read)"
 "(let-values()"
-"                                            (format \"misplaced `#` in `~.a`\" (substring s_249 start_47 end_37)))"
+"                                            (format \"misplaced `#` in `~.a`\" (substring s_487 start_46 end_36)))"
 "(let-values() #f)))"
 "(let-values()"
 "(let-values(((n_34)(string->number$1 new-str_0 radix_8)))"
 "(if(not n_34)"
-"(let-values()(fail-bad-number convert-mode_6 s_249 start_47 end_37))"
+"(let-values()(fail-bad-number convert-mode_6 s_487 start_46 end_36))"
 "(if(not get-exact?_0)"
 "(let-values()"
-"(if(if(eqv? n_34 0)(char=?(string-ref s_249 start_47) '#\\-) #f)"
+"(if(if(eqv? n_34 0)(char=?(string-ref s_487 start_46) '#\\-) #f)"
 " -0.0"
 "(exact->inexact n_34)))"
 "(if(if dot-pos_3 get-exact?_0 #f)"
-"(let-values()(/ n_34(expt 10(- end_37 dot-pos_3 1))))"
+"(let-values()(/ n_34(expt 10(- end_36 dot-pos_3 1))))"
 "(let-values() n_34))))))))"
 "(let-values()"
-"(let-values(((c_82)(string-ref s_249 i_178)))"
-"(if(char=? c_82 '#\\.)"
+"(let-values(((c_80)(string-ref s_487 i_174)))"
+"(if(char=? c_80 '#\\.)"
 "(let-values()"
 "(if get-exact?_0"
 "(let-values()"
-"(loop_112"
-"(sub1 i_178)"
+"(loop_110"
+"(sub1 i_174)"
 " j_3"
-"(if(= hashes-pos_0(add1 i_178)) i_178 hashes-pos_0)))"
+"(if(= hashes-pos_0(add1 i_174)) i_174 hashes-pos_0)))"
 "(let-values()"
 "(begin"
-"(string-set! new-str_0 j_3 c_82)"
-"(loop_112"
-"(sub1 i_178)"
+"(string-set! new-str_0 j_3 c_80)"
+"(loop_110"
+"(sub1 i_174)"
 "(sub1 j_3)"
-"(if(= hashes-pos_0(add1 i_178)) i_178 hashes-pos_0))))))"
-"(if(let-values(((or-part_347)(char=? c_82 '#\\-)))"
-"(if or-part_347 or-part_347(char=? c_82 '#\\+)))"
+"(if(= hashes-pos_0(add1 i_174)) i_174 hashes-pos_0))))))"
+"(if(let-values(((or-part_345)(char=? c_80 '#\\-)))"
+"(if or-part_345 or-part_345(char=? c_80 '#\\+)))"
 "(let-values()"
 "(begin"
-"(string-set! new-str_0 j_3 c_82)"
-"(loop_112"
-"(sub1 i_178)"
+"(string-set! new-str_0 j_3 c_80)"
+"(loop_110"
+"(sub1 i_174)"
 "(sub1 j_3)"
-"(if(= hashes-pos_0(add1 i_178)) i_178 hashes-pos_0))))"
-"(if(char=? c_82 '#\\#)"
+"(if(= hashes-pos_0(add1 i_174)) i_174 hashes-pos_0))))"
+"(if(char=? c_80 '#\\#)"
 "(let-values()"
-"(if(= hashes-pos_0(add1 i_178))"
+"(if(= hashes-pos_0(add1 i_174))"
 "(let-values()"
 "(begin"
 "(string-set! new-str_0 j_3 '#\\0)"
-"(loop_112(sub1 i_178)(sub1 j_3) i_178)))"
+"(loop_110(sub1 i_174)(sub1 j_3) i_174)))"
 "(let-values()"
 "(if(eq? convert-mode_6 'must-read)"
 "(let-values()"
 "(format"
 "                                                       \"misplaced `#` in `~.a`\""
-"(substring s_249 start_47 end_37)))"
+"(substring s_487 start_46 end_36)))"
 "(let-values() #f)))))"
 "(let-values()"
 "(begin"
-"(string-set! new-str_0 j_3 c_82)"
-"(loop_112(sub1 i_178)(sub1 j_3) hashes-pos_0)))))))))))))"
-" loop_112)"
-"(sub1 end_37)"
+"(string-set! new-str_0 j_3 c_80)"
+"(loop_110(sub1 i_174)(sub1 j_3) hashes-pos_0)))))))))))))"
+" loop_110)"
+"(sub1 end_36)"
 "(sub1(string-length new-str_0))"
-" end_37))))))"
+" end_36))))))"
 "(define-values"
 "(string->exact-integer-number)"
-"(lambda(s_487 start_48 end_38 radix_9 convert-mode_7)"
+"(lambda(s_488 start_47 end_37 radix_9 convert-mode_7)"
 "(begin"
-"(if(hashes? s_487 start_48 end_38)"
+"(if(hashes? s_488 start_47 end_37)"
 "(let-values()"
 "(if(eq? convert-mode_7 'must-read)"
-"            (let-values () (format \"misplaced `#` in `~.a`\" (substring s_487 start_48 end_38)))"
+"            (let-values () (format \"misplaced `#` in `~.a`\" (substring s_488 start_47 end_37)))"
 "(let-values() #f)))"
 "(let-values()"
-"(let-values(((n_35)(string->number$1(maybe-substring s_487 start_48 end_38) radix_9)))"
+"(let-values(((n_35)(string->number$1(maybe-substring s_488 start_47 end_37) radix_9)))"
 "(if(not n_35)"
 "(let-values()"
 "(if(eq? convert-mode_7 'must-read)"
-"                  (let-values () (format \"bad exponent `~.a`\" (substring s_487 start_48 end_38)))"
+"                  (let-values () (format \"bad exponent `~.a`\" (substring s_488 start_47 end_37)))"
 "(let-values() #f)))"
 "(let-values() n_35))))))))"
 "(define-values"
 "(read-special-number)"
-"(lambda(s_488 start_49 end_39 convert-mode_8)"
+"(lambda(s_470 start_48 end_38 convert-mode_8)"
 "(begin"
-"(if(=(- end_39 start_49) 6)"
-"(if(let-values(((or-part_348)(char=?(string-ref s_488 start_49) '#\\+)))"
-"(if or-part_348 or-part_348(char=?(string-ref s_488 start_49) '#\\-)))"
+"(if(=(- end_38 start_48) 6)"
+"(if(let-values(((or-part_346)(char=?(string-ref s_470 start_48) '#\\+)))"
+"(if or-part_346 or-part_346(char=?(string-ref s_470 start_48) '#\\-)))"
+"(let-values(((or-part_347)"
+"(if(char=?(char-downcase(string-ref s_470(+ start_48 1))) '#\\i)"
+"(if(char=?(char-downcase(string-ref s_470(+ start_48 2))) '#\\n)"
+"(if(char=?(char-downcase(string-ref s_470(+ start_48 3))) '#\\f)"
+"(if(char=?(char-downcase(string-ref s_470(+ start_48 4))) '#\\.)"
+"(let-values(((or-part_348)"
+"(if(char=?(char-downcase(string-ref s_470(+ start_48 5))) '#\\0)"
+"(if(char=?(string-ref s_470 start_48) '#\\+) +inf.0 -inf.0)"
+" #f)))"
+"(if or-part_348"
+" or-part_348"
 "(let-values(((or-part_349)"
-"(if(char=?(char-downcase(string-ref s_488(+ start_49 1))) '#\\i)"
-"(if(char=?(char-downcase(string-ref s_488(+ start_49 2))) '#\\n)"
-"(if(char=?(char-downcase(string-ref s_488(+ start_49 3))) '#\\f)"
-"(if(char=?(char-downcase(string-ref s_488(+ start_49 4))) '#\\.)"
-"(let-values(((or-part_350)"
-"(if(char=?(char-downcase(string-ref s_488(+ start_49 5))) '#\\0)"
-"(if(char=?(string-ref s_488 start_49) '#\\+) +inf.0 -inf.0)"
+"(if(char=?(char-downcase(string-ref s_470(+ start_48 5))) '#\\f)"
+"(if(char=?(string-ref s_470 start_48) '#\\+) +inf.f -inf.f)"
 " #f)))"
-"(if or-part_350"
-" or-part_350"
-"(let-values(((or-part_351)"
-"(if(char=?(char-downcase(string-ref s_488(+ start_49 5))) '#\\f)"
-"(if(char=?(string-ref s_488 start_49) '#\\+) +inf.f -inf.f)"
-" #f)))"
-"(if or-part_351"
-" or-part_351"
-"(if(char=?(char-downcase(string-ref s_488(+ start_49 5))) '#\\t)"
+"(if or-part_349"
+" or-part_349"
+"(if(char=?(char-downcase(string-ref s_470(+ start_48 5))) '#\\t)"
 "(if(not(eq? convert-mode_8 'number-or-false))"
-"(if(char=?(string-ref s_488 start_49) '#\\+) '+inf.t '-inf.t)"
+"(if(char=?(string-ref s_470 start_48) '#\\+) '+inf.t '-inf.t)"
 " #f)"
 " #f)))))"
 " #f)"
 " #f)"
 " #f)"
 " #f)))"
-"(if or-part_349"
-" or-part_349"
-"(if(char=?(char-downcase(string-ref s_488(+ start_49 1))) '#\\n)"
-"(if(char=?(char-downcase(string-ref s_488(+ start_49 2))) '#\\a)"
-"(if(char=?(char-downcase(string-ref s_488(+ start_49 3))) '#\\n)"
-"(if(char=?(char-downcase(string-ref s_488(+ start_49 4))) '#\\.)"
-"(let-values(((or-part_352)"
-"(if(char=?(char-downcase(string-ref s_488(+ start_49 5))) '#\\0) +nan.0 #f)))"
-"(if or-part_352"
-" or-part_352"
-"(let-values(((or-part_353)"
-"(if(char=?(char-downcase(string-ref s_488(+ start_49 5))) '#\\f) +nan.f #f)))"
-"(if or-part_353"
-" or-part_353"
-"(if(char=?(char-downcase(string-ref s_488(+ start_49 5))) '#\\t)"
+"(if or-part_347"
+" or-part_347"
+"(if(char=?(char-downcase(string-ref s_470(+ start_48 1))) '#\\n)"
+"(if(char=?(char-downcase(string-ref s_470(+ start_48 2))) '#\\a)"
+"(if(char=?(char-downcase(string-ref s_470(+ start_48 3))) '#\\n)"
+"(if(char=?(char-downcase(string-ref s_470(+ start_48 4))) '#\\.)"
+"(let-values(((or-part_350)"
+"(if(char=?(char-downcase(string-ref s_470(+ start_48 5))) '#\\0) +nan.0 #f)))"
+"(if or-part_350"
+" or-part_350"
+"(let-values(((or-part_351)"
+"(if(char=?(char-downcase(string-ref s_470(+ start_48 5))) '#\\f) +nan.f #f)))"
+"(if or-part_351"
+" or-part_351"
+"(if(char=?(char-downcase(string-ref s_470(+ start_48 5))) '#\\t)"
 "(if(not(eq? convert-mode_8 'number-or-false)) '+nan.t #f)"
 " #f)))))"
 " #f)"
@@ -51779,332 +50796,326 @@ static const char *startup_source =
 " #f))))"
 "(define-values"
 "(fail-extflonum)"
-"(lambda(convert-mode_9 v_244)"
+"(lambda(convert-mode_9 v_241)"
 "(begin"
 "(if(eq? convert-mode_9 'must-read)"
-"        (let-values () (format \"cannot combine extflonum `~a` into complex number\" v_244))"
+"        (let-values () (format \"cannot combine extflonum `~a` into complex number\" v_241))"
 "(let-values() #f)))))"
 "(define-values"
-"(read-for-special-compound65.1)"
-"(lambda(in-complex53_0"
-" reading-first?54_0"
-" reading-first?56_0"
-" s57_0"
-" start58_0"
-" end59_0"
-" radix60_0"
-" exactness61_0"
-" convert-mode62_0"
-" v63_0"
-" combine64_0)"
+"(read-for-special-compound62.1)"
+"(lambda(in-complex50_0"
+" reading-first?51_0"
+" s54_0"
+" start55_0"
+" end56_0"
+" radix57_0"
+" exactness58_0"
+" convert-mode59_0"
+" v60_0"
+" combine61_0)"
 "(begin"
-" 'read-for-special-compound65"
-"(let-values(((s_261) s57_0))"
-"(let-values(((start_50) start58_0))"
-"(let-values(((end_40) end59_0))"
-"(let-values(((radix_10) radix60_0))"
-"(let-values(((exactness_5) exactness61_0))"
-"(let-values(((convert-mode_10) convert-mode62_0))"
-"(let-values(((in-complex_3) in-complex53_0))"
-"(let-values(((reading-first?_0)(if reading-first?56_0 reading-first?54_0 #f)))"
-"(let-values(((v_245) v63_0))"
-"(let-values(((combine_1) combine64_0))"
+" 'read-for-special-compound62"
+"(let-values(((s_489) s54_0))"
+"(let-values(((start_49) start55_0))"
+"(let-values(((end_39) end56_0))"
+"(let-values(((radix_10) radix57_0))"
+"(let-values(((exactness_5) exactness58_0))"
+"(let-values(((convert-mode_10) convert-mode59_0))"
+"(let-values(((in-complex_3) in-complex50_0))"
+"(let-values(((reading-first?_0) reading-first?51_0))"
+"(let-values(((v_242) v60_0))"
+"(let-values(((combine_1) combine61_0))"
 "(let-values()"
 "(if(eq? exactness_5 'exact)"
 "(let-values()"
 "(if(eq? convert-mode_10 'must-read)"
-"                                  (let-values () (format \"no exact representation for `~a`\" v_245))"
+"                                  (let-values () (format \"no exact representation for `~a`\" v_242))"
 "(let-values() #f)))"
-"(if(if(extflonum? v_245)"
-"(let-values(((or-part_354)(not reading-first?_0)))"
-"(if or-part_354 or-part_354(not(eq? convert-mode_10 'must-read))))"
+"(if(if(extflonum? v_242)"
+"(let-values(((or-part_190)(not reading-first?_0)))"
+"(if or-part_190 or-part_190(not(eq? convert-mode_10 'must-read))))"
 " #f)"
-"(let-values()(fail-extflonum convert-mode_10 v_245))"
+"(let-values()(fail-extflonum convert-mode_10 v_242))"
 "(let-values()"
 "(let-values(((v2_7)"
-"(let-values(((s176_0) s_261)"
-"((start177_0) start_50)"
-"((end178_0) end_40)"
-"((radix179_0) radix_10)"
-"((temp180_0) #t)"
-"((exactness181_0) exactness_5)"
-"((in-complex182_0) in-complex_3)"
-"((convert-mode183_0) convert-mode_10))"
-"(do-string->number20.1"
-" in-complex182_0"
-" #t"
-" temp180_0"
-" s176_0"
-" start177_0"
-" end178_0"
-" radix179_0"
-" exactness181_0"
-" convert-mode183_0))))"
+"(let-values(((s173_0) s_489)"
+"((start174_0) start_49)"
+"((end175_0) end_39)"
+"((radix176_0) radix_10)"
+"((temp177_0) #t)"
+"((exactness178_0) exactness_5)"
+"((in-complex179_0) in-complex_3)"
+"((convert-mode180_0) convert-mode_10))"
+"(do-string->number17.1"
+" in-complex179_0"
+" temp177_0"
+" s173_0"
+" start174_0"
+" end175_0"
+" radix176_0"
+" exactness178_0"
+" convert-mode180_0))))"
 "(if(string? v2_7)"
 "(let-values() v2_7)"
 "(if(not v2_7)"
 "(let-values() v2_7)"
-"(if(extflonum? v_245)"
-"(let-values()(fail-extflonum convert-mode_10 v_245))"
-"(let-values()(combine_1 v_245 v2_7)))))))))))))))))))))))"
+"(if(extflonum? v_242)"
+"(let-values()(fail-extflonum convert-mode_10 v_242))"
+"(let-values()(combine_1 v_242 v2_7)))))))))))))))))))))))"
 "(define-values"
 "(hashes?)"
-"(lambda(s_489 start_51 end_41)"
+"(lambda(s_263 start_50 end_40)"
 "(begin"
 "(let-values(((v*_6 start*_5 stop*_6 step*_5)"
 "(normalise-inputs"
 " 'in-string"
 "                     \"string\""
-"(lambda(x_85)(string? x_85))"
-"(lambda(x_86)(unsafe-string-length x_86))"
-" s_489"
-" start_51"
-" end_41"
+"(lambda(x_87)(string? x_87))"
+"(lambda(x_88)(unsafe-string-length x_88))"
+" s_263"
+" start_50"
+" end_40"
 " 1)))"
 "(begin"
 " #t"
-"((letrec-values(((for-loop_276)"
-"(lambda(result_127 idx_5)"
+"((letrec-values(((for-loop_273)"
+"(lambda(result_123 idx_5)"
 "(begin"
 " 'for-loop"
 "(if(unsafe-fx< idx_5 stop*_6)"
-"(let-values(((c_83)(string-ref v*_6 idx_5)))"
-"(let-values(((result_128)"
+"(let-values(((c_81)(string-ref v*_6 idx_5)))"
+"(let-values(((result_124)"
 "(let-values()"
-"(let-values(((result_129)"
-"(let-values()(let-values()(char=? c_83 '#\\#)))))"
-"(values result_129)))))"
-"(if(if(not((lambda x_87 result_128) c_83))(not #f) #f)"
-"(for-loop_276 result_128(unsafe-fx+ idx_5 1))"
-" result_128)))"
-" result_127)))))"
-" for-loop_276)"
+"(let-values(((result_125)"
+"(let-values()(let-values()(char=? c_81 '#\\#)))))"
+"(values result_125)))))"
+"(if(if(not((lambda x_89 result_124) c_81))(not #f) #f)"
+"(for-loop_273 result_124(unsafe-fx+ idx_5 1))"
+" result_124)))"
+" result_123)))))"
+" for-loop_273)"
 " #f"
 " start*_5))))))"
 "(define-values"
 "(replace-hashes)"
-"(lambda(s_490 start_52 end_42)"
+"(lambda(s_271 start_51 end_41)"
 "(begin"
-"(let-values(((new-s_9)(make-string(- end_42 start_52))))"
+"(let-values(((new-s_9)(make-string(- end_41 start_51))))"
 "(begin"
 "(let-values(((v*_7 start*_6 stop*_7 step*_6)"
 "(normalise-inputs"
 " 'in-string"
 "                         \"string\""
-"(lambda(x_88)(string? x_88))"
-"(lambda(x_89)(unsafe-string-length x_89))"
-" s_490"
-" start_52"
-" end_42"
+"(lambda(x_90)(string? x_90))"
+"(lambda(x_91)(unsafe-string-length x_91))"
+" s_271"
+" start_51"
+" end_41"
 " 1))"
-"((start_53) 0))"
+"((start_52) 0))"
 "(begin"
 " #t"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
-"(let-values()(check-naturals start_53)))"
-"((letrec-values(((for-loop_277)"
-"(lambda(idx_6 pos_113)"
+"(let-values()(check-naturals start_52)))"
+"((letrec-values(((for-loop_274)"
+"(lambda(idx_6 pos_115)"
 "(begin"
 " 'for-loop"
 "(if(if(unsafe-fx< idx_6 stop*_7) #t #f)"
-"(let-values(((c_84)(string-ref v*_7 idx_6))((i_122) pos_113))"
+"(let-values(((c_82)(string-ref v*_7 idx_6))((i_124) pos_115))"
 "(let-values((()"
 "(let-values()"
 "(let-values((()"
 "(let-values()"
 "(begin"
 "(let-values()"
-"(if(char=? c_84 '#\\#)"
-"(string-set! new-s_9 i_122 '#\\0)"
-"(string-set! new-s_9 i_122 c_84)))"
+"(if(char=? c_82 '#\\#)"
+"(string-set! new-s_9 i_124 '#\\0)"
+"(string-set! new-s_9 i_124 c_82)))"
 "(values)))))"
 "(values)))))"
-"(if(not #f)(for-loop_277(unsafe-fx+ idx_6 1)(+ pos_113 1))(values))))"
+"(if(not #f)(for-loop_274(unsafe-fx+ idx_6 1)(+ pos_115 1))(values))))"
 "(values))))))"
-" for-loop_277)"
+" for-loop_274)"
 " start*_6"
-" start_53)))"
+" start_52)))"
 "(void)"
 " new-s_9)))))"
 "(define-values"
 "(maybe-substring)"
-"(lambda(s_393 start_54 end_43)"
-"(begin(if(if(= 0 start_54)(= end_43(string-length s_393)) #f) s_393(substring s_393 start_54 end_43)))))"
+"(lambda(s_381 start_3 end_3)"
+"(begin(if(if(= 0 start_3)(= end_3(string-length s_381)) #f) s_381(substring s_381 start_3 end_3)))))"
 "(define-values"
 "(exactness-set?)"
 "(lambda(exactness_6)"
 "(begin"
-"(let-values(((or-part_355)(eq? exactness_6 'exact)))(if or-part_355 or-part_355(eq? exactness_6 'inexact))))))"
+"(let-values(((or-part_352)(eq? exactness_6 'exact)))(if or-part_352 or-part_352(eq? exactness_6 'inexact))))))"
 "(define-values"
 "(char-sign?)"
-"(lambda(c_85)"
-"(begin(let-values(((or-part_356)(char=? c_85 '#\\-)))(if or-part_356 or-part_356(char=? c_85 '#\\+))))))"
+"(lambda(c_83)"
+"(begin(let-values(((or-part_353)(char=? c_83 '#\\-)))(if or-part_353 or-part_353(char=? c_83 '#\\+))))))"
 "(define-values"
 "(digit?)"
-"(lambda(c_86 radix_11)"
+"(lambda(c_84 radix_11)"
 "(begin"
-"(let-values(((v_246)(char->integer c_86)))"
-"(let-values(((or-part_357)"
-"(if(>= v_246(char->integer '#\\0))(<(- v_246(char->integer '#\\0)) radix_11) #f)))"
-"(if or-part_357"
-" or-part_357"
+"(let-values(((v_243)(char->integer c_84)))"
+"(let-values(((or-part_354)"
+"(if(>= v_243(char->integer '#\\0))(<(- v_243(char->integer '#\\0)) radix_11) #f)))"
+"(if or-part_354"
+" or-part_354"
 "(if(> radix_11 10)"
-"(let-values(((or-part_358)"
-"(if(>= v_246(char->integer '#\\a))(<(- v_246(-(char->integer '#\\a) 10)) radix_11) #f)))"
-"(if or-part_358"
-" or-part_358"
-"(if(>= v_246(char->integer '#\\A))(<(- v_246(-(char->integer '#\\A) 10)) radix_11) #f)))"
+"(let-values(((or-part_355)"
+"(if(>= v_243(char->integer '#\\a))(<(- v_243(-(char->integer '#\\a) 10)) radix_11) #f)))"
+"(if or-part_355"
+" or-part_355"
+"(if(>= v_243(char->integer '#\\A))(<(- v_243(-(char->integer '#\\A) 10)) radix_11) #f)))"
 " #f)))))))"
 "(define-values"
 "(fail-bad-number)"
-"(lambda(convert-mode_11 s_491 start_55 end_44)"
+"(lambda(convert-mode_11 s_136 start_53 end_42)"
 "(begin"
 "(if(eq? convert-mode_11 'must-read)"
-"        (let-values () (format \"bad number `~.a`\" (substring s_491 start_55 end_44)))"
+"        (let-values () (format \"bad number `~.a`\" (substring s_136 start_53 end_42)))"
 "(let-values() #f)))))"
 "(define-values"
 "(read-complains)"
 "(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 extra-prefix4_0 mode1_0 mode3_0 init-c5_0 in6_1 config7_0)"
+"(lambda(extra-prefix2_0 mode1_0 init-c5_0 in6_1 config7_0)"
 "(begin"
 " 'read-symbol-or-number8"
-"(let-values(((init-c_2) init-c5_0))"
-"(let-values(((in_25) in6_1))"
-"(let-values(((config_24) config7_0))"
-"(let-values(((mode_18)(if mode3_0 mode1_0 'symbol-or-number)))"
-"(let-values(((extra-prefix_0)(if extra-prefix4_0 extra-prefix2_0 #f)))"
+"(let-values(((init-c_6) init-c5_0))"
+"(let-values(((in_26) in6_1))"
+"(let-values(((config_23) 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_24)))"
-"(let-values(((c1_31)"
+"(let-values(((rt_11)(read-config-readtable config_23)))"
+"(let-values(((c1_30)"
 "(if rt_11"
-"(if(let-values(((or-part_3)(eq? mode_18 'symbol-or-number)))"
-"(if or-part_3 or-part_3(eq? mode_18 'symbol/indirect)))"
+"(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)"
 " #f)"
 " #f)))"
-"(if c1_31"
+"(if c1_30"
 "((lambda(handler_2)"
 "(readtable-apply"
 " handler_2"
-" init-c_2"
-" in_25"
-" config_24"
-"(read-config-line config_24)"
-"(read-config-col config_24)"
-"(read-config-pos config_24)))"
-" c1_31)"
+" init-c_6"
+" in_26"
+" config_23"
+"(read-config-line config_23)"
+"(read-config-col config_23)"
+"(read-config-pos config_23)))"
+" c1_30)"
 "(let-values()"
-"(let-values(((accum-str_1)(accum-string-init! config_24)))"
+"(let-values(((accum-str_1)(accum-string-init! config_23)))"
 "(let-values(((quoted-ever?_0) #f))"
-"(let-values(((case-sens?_0)(check-parameter read-case-sensitive config_24)))"
+"(let-values(((case-sens?_0)(check-parameter read-case-sensitive config_23)))"
 "(let-values((()"
 "(begin"
 "(if extra-prefix_0"
 "(let-values()(accum-string-add! accum-str_1 extra-prefix_0))"
 "(void))"
 "(values))))"
-"(let-values(((source_16)(read-config-source config_24)))"
+"(let-values(((source_17)(read-config-source config_23)))"
 "(let-values(((unexpected-quoted_0)"
-"(lambda(c_87 after-c_0)"
+"(lambda(c_72 after-c_0)"
 "(begin"
 " 'unexpected-quoted"
-"(let-values(((in11_1) in_25)"
-"((config12_2) config_24)"
-"((c13_1) c_87)"
-"                                                                   ((temp14_6) \"~a following `~a` in ~a\")"
+"(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_87)"
+"(if(eof-object? c_72)"
 "                                                                      \"end-of-file\""
 "                                                                      \"non-character\"))"
 "((after-c16_0) after-c_0)"
-"((temp17_3)"
+"((temp17_4)"
 "(if(eq? mode_18 'keyword)"
 "                                                                      (let-values () \"keyword\")"
 "(if(string? mode_18)"
 "                                                                        (let-values () \"number\")"
 "                                                                        (let-values () \"symbol\")))))"
 "(reader-error12.1"
+" unsafe-undefined"
+" c13_0"
 " #f"
-" #f"
-" c13_1"
-" #t"
-" #f"
-" #f"
-" #f"
-" #f"
-" in11_1"
-" config12_2"
-" temp14_6"
-"(list temp15_5 after-c16_0 temp17_3)))))))"
+" unsafe-undefined"
+" in11_0"
+" config12_1"
+" temp14_5"
+"(list temp15_5 after-c16_0 temp17_4)))))))"
 "(let-values((()"
 "(begin"
-"((letrec-values(((loop_113)"
-"(lambda(init-c_6"
+"((letrec-values(((loop_111)"
+"(lambda(init-c_7"
 " pipe-quote-c_0"
 " foldcase-from_0)"
 "(begin"
 " 'loop"
-"(let-values(((c_88)"
-"(let-values(((or-part_86)"
-" init-c_6))"
-"(if or-part_86"
-" or-part_86"
-"(let-values(((in_26)"
-" in_25)"
+"(let-values(((c_85)"
+"(let-values(((or-part_82)"
+" init-c_7))"
+"(if or-part_82"
+" or-part_82"
+"(let-values(((in_27)"
+" in_26)"
 "((skip-count_8)"
 " 0)"
-"((source_17)"
-" source_16))"
-"(let-values(((c_52)"
+"((source_18)"
+" source_17))"
+"(let-values(((c_76)"
 "(peek-char-or-special"
-" in_26"
+" in_27"
 " skip-count_8"
 " 'special"
-" source_17)))"
+" source_18)))"
 "(if(eq?"
-" c_52"
+" c_76"
 " 'special)"
 "(special1.1"
 " 'special)"
-" c_52)))))))"
+" c_76)))))))"
 "(let-values(((ec_4)"
 "(let-values(((rt_12) rt_11)"
-"((c_89) c_88))"
-"(if(let-values(((or-part_69)"
+"((c_86) c_85))"
+"(if(let-values(((or-part_97)"
 "(not"
 " rt_12)))"
-"(if or-part_69"
-" or-part_69"
+"(if or-part_97"
+" or-part_97"
 "(not"
-"(char? c_89))))"
-"(let-values() c_89)"
+"(char? c_86))))"
+"(let-values() c_86)"
 "(let-values()"
 "(*readtable-effective-char"
 " rt_12"
-" c_89))))))"
+" c_86))))))"
 "(if(if pipe-quote-c_0"
 "(not(char? ec_4))"
 " #f)"
 "(let-values()"
 "(begin"
-"(if init-c_6"
+"(if init-c_7"
 "(void)"
 "(let-values()"
 "(consume-char/special"
-" in_25"
-" config_24"
-" c_88)))"
+" in_26"
+" config_23"
+" c_85)))"
 "(unexpected-quoted_0"
-" c_88"
+" c_85"
 " pipe-quote-c_0)))"
 "(if(if(not pipe-quote-c_0)"
 "(readtable-char-delimiter?"
 " rt_11"
-" c_88"
-" config_24)"
+" c_85"
+" config_23)"
 " #f)"
 "(let-values()"
 "(if case-sens?_0"
@@ -52115,17 +51126,17 @@ static const char *startup_source =
 " string-foldcase"
 " foldcase-from_0))))"
 "(if(if pipe-quote-c_0"
-"(char=? c_88 pipe-quote-c_0)"
+"(char=? c_85 pipe-quote-c_0)"
 " #f)"
 "(let-values()"
 "(begin"
-"(if init-c_6"
+"(if init-c_7"
 "(void)"
 "(let-values()"
 "(consume-char"
-" in_25"
-" c_88)))"
-"(loop_113"
+" in_26"
+" c_85)))"
+"(loop_111"
 " #f"
 " #f"
 "(accum-string-count"
@@ -52133,16 +51144,16 @@ static const char *startup_source =
 "(if(if(char=? ec_4 '#\\|)"
 "(check-parameter"
 " read-accept-bar-quote"
-" config_24)"
+" config_23)"
 " #f)"
 "(let-values()"
 "(begin"
-"(if init-c_6"
+"(if init-c_7"
 "(void)"
 "(let-values()"
 "(consume-char"
-" in_25"
-" c_88)))"
+" in_26"
+" c_85)))"
 "(set! quoted-ever?_0 #t)"
 "(if case-sens?_0"
 "(void)"
@@ -52151,9 +51162,9 @@ static const char *startup_source =
 " accum-str_1"
 " string-foldcase"
 " foldcase-from_0)))"
-"(loop_113"
+"(loop_111"
 " #f"
-" c_88"
+" c_85"
 "(accum-string-count"
 " accum-str_1))))"
 "(if(if(char=? ec_4 '#\\\\)"
@@ -52162,33 +51173,33 @@ static const char *startup_source =
 "(let-values()"
 "(let-values((()"
 "(begin"
-"(if init-c_6"
+"(if init-c_7"
 "(void)"
 "(let-values()"
 "(consume-char"
-" in_25"
-" c_88)))"
+" in_26"
+" c_85)))"
 "(values))))"
 "(let-values(((next-c_0)"
-"(let-values(((in_27)"
-" in_25)"
-"((source_18)"
-" source_16))"
+"(let-values(((in_28)"
+" in_26)"
+"((source_19)"
+" source_17))"
 "(read-char-or-special"
-" in_27"
+" in_28"
 " special1.1"
-" source_18))))"
+" source_19))))"
 "(begin"
 "(if(char? next-c_0)"
 "(void)"
 "(let-values()"
 "(unexpected-quoted_0"
 " next-c_0"
-" c_88)))"
-"(if(let-values(((or-part_7)"
+" c_85)))"
+"(if(let-values(((or-part_53)"
 " pipe-quote-c_0))"
-"(if or-part_7"
-" or-part_7"
+"(if or-part_53"
+" or-part_53"
 " case-sens?_0))"
 "(void)"
 "(let-values()"
@@ -52201,57 +51212,53 @@ static const char *startup_source =
 " next-c_0)"
 "(set! quoted-ever?_0"
 " #t)"
-"(loop_113"
+"(loop_111"
 " #f"
 " #f"
 "(accum-string-count"
 " accum-str_1))))))"
 "(let-values()"
 "(begin"
-"(if init-c_6"
+"(if init-c_7"
 "(void)"
 "(let-values()"
 "(consume-char"
-" in_25"
-" c_88)))"
+" in_26"
+" c_85)))"
 "(accum-string-add!"
 " accum-str_1"
-" c_88)"
-"(loop_113"
+" c_85)"
+"(loop_111"
 " #f"
 " pipe-quote-c_0"
 " foldcase-from_0))))))))))))))"
-" loop_113)"
-" init-c_2"
+" loop_111)"
+" init-c_6"
 " #f"
 " 0)"
 "(values))))"
 "(let-values(((str_29)"
 "(let-values(((accum-str18_0) accum-str_1)"
-"((config19_0) config_24))"
-"(accum-string-get!6.1 #f #f accum-str18_0 config19_0))))"
+"((config19_0) config_23))"
+"(accum-string-get!6.1 0 accum-str18_0 config19_0))))"
 "(let-values((()"
 "(begin"
 "(if(if(= 1(string-length str_29))"
 "(if(not quoted-ever?_0)"
 "(char=?"
 " '#\\."
-"(effective-char(string-ref str_29 0) config_24))"
+"(effective-char(string-ref str_29 0) config_23))"
 " #f)"
 " #f)"
 "(let-values()"
-"(let-values(((in20_1) in_25)"
-"((config21_0) config_24)"
+"(let-values(((in20_1) in_26)"
+"((config21_0) config_23)"
 "                                                                           ((temp22_5) \"illegal use of `.`\"))"
 "(reader-error12.1"
+" unsafe-undefined"
+" unsafe-undefined"
 " #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
+" unsafe-undefined"
 " in20_1"
 " config21_0"
 " temp22_5"
@@ -52259,9 +51266,9 @@ static const char *startup_source =
 "(void))"
 "(values))))"
 "(let-values(((num_0)"
-"(if(let-values(((or-part_156)"
+"(if(let-values(((or-part_31)"
 "(eq? mode_18 'symbol-or-number)))"
-"(if or-part_156 or-part_156(string? mode_18)))"
+"(if or-part_31 or-part_31(string? mode_18)))"
 "(if(not quoted-ever?_0)"
 "(1/string->number"
 "(if(string? mode_18)"
@@ -52269,7 +51276,7 @@ static const char *startup_source =
 " str_29)"
 " 10"
 " 'read"
-"(if(check-parameter 1/read-decimal-as-inexact config_24)"
+"(if(check-parameter 1/read-decimal-as-inexact config_23)"
 " 'decimal-as-inexact"
 " 'decimal-as-exact))"
 " #f)"
@@ -52277,129 +51284,137 @@ static const char *startup_source =
 "(begin"
 "(if(string? num_0)"
 "(let-values()"
-"(let-values(((in23_1) in_25)"
-"((config24_1) config_24)"
-"                                                                 ((temp25_5) \"~a\")"
+"(let-values(((in23_1) in_26)"
+"((config24_1) config_23)"
+"                                                                 ((temp25_6) \"~a\")"
 "((num26_0) num_0))"
 "(reader-error12.1"
+" unsafe-undefined"
+" unsafe-undefined"
 " #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
+" unsafe-undefined"
 " in23_1"
 " config24_1"
-" temp25_5"
+" temp25_6"
 "(list num26_0))))"
 "(void))"
 "(if(if(not num_0)(string? mode_18) #f)"
 "(let-values()"
-"(let-values(((in27_0) in_25)"
-"((config28_0) config_24)"
-"                                                                 ((temp29_3) \"bad number: `~a`\")"
-"((temp30_2)(string-append mode_18 str_29)))"
+"(let-values(((in27_0) in_26)"
+"((config28_0) config_23)"
+"                                                                 ((temp29_5) \"bad number: `~a`\")"
+"((temp30_4)(string-append mode_18 str_29)))"
 "(reader-error12.1"
+" unsafe-undefined"
+" unsafe-undefined"
 " #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
+" unsafe-undefined"
 " in27_0"
 " config28_0"
-" temp29_3"
-"(list temp30_2))))"
+" temp29_5"
+"(list temp30_4))))"
 "(void))"
 "(wrap"
-"(let-values(((or-part_164) num_0))"
-"(if or-part_164"
-" or-part_164"
-"(let-values(((or-part_309)"
+"(let-values(((or-part_356) num_0))"
+"(if or-part_356"
+" or-part_356"
+"(let-values(((or-part_357)"
 "(if(eq? mode_18 'keyword)"
 "(string->keyword str_29)"
 " #f)))"
-"(if or-part_309 or-part_309(string->symbol str_29)))))"
-" in_25"
-" config_24"
+"(if or-part_357 or-part_357(string->symbol str_29)))))"
+" in_26"
+" config_23"
 " str_29)))))))))))))))))))))))))"
 "(define-values"
 "(read-fixnum)"
 "(lambda(read-one_3 init-c_0 in_5 config_15)"
 "(begin"
-"(let-values(((c_33)(read-char/skip-whitespace-and-comments init-c_0 read-one_3 in_5 config_15)))"
-"(let-values(((line_8 col_7 pos_114)(port-next-location* in_5 c_33)))"
-"          (let-values (((v_95) (read-number-literal c_33 in_5 config_15 \"#e\")))"
-"(if(fixnum? v_95)"
-"(let-values() v_95)"
-"(if(eof-object? v_95)"
-"(let-values() v_95)"
+"(let-values(((c_25)(read-char/skip-whitespace-and-comments init-c_0 read-one_3 in_5 config_15)))"
+"(let-values(((line_8 col_7 pos_116)(port-next-location* in_5 c_25)))"
+"          (let-values (((v_233) (read-number-literal c_25 in_5 config_15 \"#e\")))"
+"(if(fixnum? v_233)"
+"(let-values() v_233)"
+"(if(eof-object? v_233)"
+"(let-values() v_233)"
 "(let-values()"
 "(let-values(((in1_3) in_5)"
-"((temp2_5)(reading-at config_15 line_8 col_7 pos_114))"
+"((temp2_5)(reading-at config_15 line_8 col_7 pos_116))"
 "                               ((temp3_6) \"expected a fixnum, found ~a\")"
-"((v4_1) v_95))"
-"(reader-error12.1 #f #f #f #f #f #f #f #f in1_3 temp2_5 temp3_6(list v4_1))))))))))))"
+"((v4_1) v_233))"
+"(reader-error12.1"
+" unsafe-undefined"
+" unsafe-undefined"
+" #f"
+" unsafe-undefined"
+" in1_3"
+" temp2_5"
+" temp3_6"
+"(list v4_1))))))))))))"
 "(define-values"
 "(read-flonum)"
-"(lambda(read-one_4 init-c_7 in_28 config_38)"
+"(lambda(read-one_4 init-c_8 in_20 config_37)"
 "(begin"
-"(let-values(((c_14)(read-char/skip-whitespace-and-comments init-c_7 read-one_4 in_28 config_38)))"
-"(let-values(((line_9 col_8 pos_92)(port-next-location* in_28 c_14)))"
-"          (let-values (((v_29) (read-number-literal c_14 in_28 config_38 \"#i\")))"
+"(let-values(((c_14)(read-char/skip-whitespace-and-comments init-c_8 read-one_4 in_20 config_37)))"
+"(let-values(((line_9 col_8 pos_94)(port-next-location* in_20 c_14)))"
+"          (let-values (((v_29) (read-number-literal c_14 in_20 config_37 \"#i\")))"
 "(if(flonum? v_29)"
 "(let-values() v_29)"
 "(if(eof-object? v_29)"
 "(let-values() v_29)"
 "(let-values()"
-"(let-values(((in5_0) in_28)"
-"((temp6_1)(reading-at config_38 line_9 col_8 pos_92))"
+"(let-values(((in5_0) in_20)"
+"((temp6_1)(reading-at config_37 line_9 col_8 pos_94))"
 "                               ((temp7_4) \"expected a flonum, found ~a\")"
 "((v8_0) v_29))"
-"(reader-error12.1 #f #f #f #f #f #f #f #f in5_0 temp6_1 temp7_4(list v8_0))))))))))))"
+"(reader-error12.1"
+" unsafe-undefined"
+" unsafe-undefined"
+" #f"
+" unsafe-undefined"
+" in5_0"
+" temp6_1"
+" temp7_4"
+"(list v8_0))))))))))))"
 "(define-values"
 "(read-number-literal)"
-"(lambda(c_90 in_29 config_39 mode_19)"
+"(lambda(c_49 in_29 config_38 mode_19)"
 "(begin"
-"(if(not(char? c_90))"
-"(let-values() c_90)"
+"(if(not(char? c_49))"
+"(let-values() c_49)"
 "(let-values()"
-"(let-values(((c9_0) c_90)((in10_1) in_29)((config11_0) config_39)((mode12_0) mode_19))"
-"(read-symbol-or-number8.1 #f #f mode12_0 #t c9_0 in10_1 config11_0)))))))"
+"(let-values(((c9_0) c_49)((in10_2) in_29)((config11_1) config_38)((mode12_0) mode_19))"
+"(read-symbol-or-number8.1 #f mode12_0 c9_0 in10_2 config11_1)))))))"
 "(define-values"
 "(read-vector11.1)"
-"(lambda(length2_0 length4_0 mode1_0 mode3_0 read-one5_0 opener-c6_0 opener7_0 closer8_0 in9_2 config10_1)"
+"(lambda(length2_0 mode1_0 read-one5_0 opener-c6_0 opener7_0 closer8_0 in9_1 config10_1)"
 "(begin"
 " 'read-vector11"
 "(let-values(((read-one_5) read-one5_0))"
 "(let-values(((opener-c_1) opener-c6_0))"
 "(let-values(((opener_2) opener7_0))"
 "(let-values(((closer_2) closer8_0))"
-"(let-values(((in_30) in9_2))"
-"(let-values(((config_40) config10_1))"
-"(let-values(((vector-mode_0)(if mode3_0 mode1_0 'any)))"
-"(let-values(((expected-len_0)(if length4_0 length2_0 #f)))"
+"(let-values(((in_30) in9_1))"
+"(let-values(((config_10) config10_1))"
+"(let-values(((vector-mode_0) mode1_0))"
+"(let-values(((expected-len_0) length2_0))"
 "(let-values()"
 "(let-values(((read-one-element_0)"
-"(let-values(((tmp_31) vector-mode_0))"
-"(if(equal? tmp_31 'any)"
+"(let-values(((tmp_41) vector-mode_0))"
+"(if(equal? tmp_41 'any)"
 "(let-values() read-one_5)"
-"(if(equal? tmp_31 'fixnum)"
+"(if(equal? tmp_41 'fixnum)"
 "(let-values()"
-"(lambda(init-c_8 in_31 config_41)"
+"(lambda(init-c_9 in_31 config_39)"
 "(begin"
 " 'read-one-element"
-"(read-fixnum read-one_5 init-c_8 in_31 config_41))))"
-"(if(equal? tmp_31 'flonum)"
+"(read-fixnum read-one_5 init-c_9 in_31 config_39))))"
+"(if(equal? tmp_41 'flonum)"
 "(let-values()"
-"(lambda(init-c_9 in_32 config_42)"
+"(lambda(init-c_10 in_11 config_26)"
 "(begin"
 " 'read-one-element"
-"(read-flonum read-one_5 init-c_9 in_32 config_42))))"
+"(read-flonum read-one_5 init-c_10 in_11 config_26))))"
 "(let-values()(void))))))))"
 "(let-values(((seq_2)"
 "(let-values(((read-one-element14_0) read-one-element_0)"
@@ -52407,33 +51422,102 @@ static const char *startup_source =
 "((opener16_0) opener_2)"
 "((closer17_0) closer_2)"
 "((in18_0) in_30)"
-"((config19_1) config_40)"
+"((config19_1) config_10)"
 "((read-one20_0) read-one_5)"
-"((temp21_1) #f))"
+"((temp21_2) #f))"
 "(read-unwrapped-sequence17.1"
-" temp21_1"
-" #t"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
+" temp21_2"
+" unsafe-undefined"
+" unsafe-undefined"
 " #f"
 " read-one20_0"
-" #t"
 " read-one-element14_0"
 " opener-c15_0"
 " opener16_0"
 " closer17_0"
 " in18_0"
 " config19_1))))"
-"(let-values(((vec_69)"
+"(let-values(((vec_61)"
 "(if(not expected-len_0)"
 "(let-values()"
-"(let-values(((tmp_41) vector-mode_0))"
-"(if(equal? tmp_41 'any)"
+"(let-values(((tmp_42) vector-mode_0))"
+"(if(equal? tmp_42 'any)"
 "(let-values()(list->vector seq_2))"
-"(if(equal? tmp_41 'fixnum)"
+"(if(equal? tmp_42 'fixnum)"
+"(let-values()"
+"(let-values(((len_37)(length seq_2)))"
+"(begin"
+"(if(exact-nonnegative-integer? len_37)"
+"(void)"
+"(let-values()"
+"(raise-argument-error"
+" 'for/fxvector"
+"                                                               \"exact-nonnegative-integer?\""
+" len_37)))"
+"(let-values(((fill_0) 0))"
+"(let-values(((v_33)(make-fxvector len_37 fill_0)))"
+"(begin"
+"(if(zero? len_37)"
+"(void)"
+"(let-values()"
+"(let-values(((lst_261) seq_2))"
+"(begin"
+"(if(variable-reference-from-unsafe?"
+"(#%variable-reference))"
+"(void)"
+"(let-values()(check-list lst_261)))"
+"((letrec-values(((for-loop_275)"
+"(lambda(i_3 lst_104)"
+"(begin"
+" 'for-loop"
+"(if(pair? lst_104)"
+"(let-values(((e_78)"
+"(unsafe-car"
+" lst_104))"
+"((rest_145)"
+"(unsafe-cdr"
+" lst_104)))"
+"(let-values(((i_175)"
+"(let-values(((i_94)"
+" i_3))"
+"(let-values(((i_176)"
+"(let-values()"
+"(begin"
+"(let-values(((elem_0)"
+"(let-values()"
+" e_78)))"
+"(if(fixnum?"
+" elem_0)"
+"(unsafe-fxvector-set!"
+" v_33"
+" i_94"
+" elem_0)"
+"(not-an-fX.1"
+" 'for*/vector"
+" elem_0)))"
+"(unsafe-fx+"
+" 1"
+" i_94)))))"
+"(values"
+" i_176)))))"
+"(if(if(not"
+"((lambda x_92"
+"(unsafe-fx="
+" i_175"
+" len_37))"
+" e_78))"
+"(not #f)"
+" #f)"
+"(for-loop_275"
+" i_175"
+" rest_145)"
+" i_175)))"
+" i_3)))))"
+" for-loop_275)"
+" 0"
+" lst_261)))))"
+" v_33))))))"
+"(if(equal? tmp_42 'flonum)"
 "(let-values()"
 "(let-values(((len_38)(length seq_2)))"
 "(begin"
@@ -52441,146 +51525,72 @@ static const char *startup_source =
 "(void)"
 "(let-values()"
 "(raise-argument-error"
-" 'for/fxvector"
-"                                                               \"exact-nonnegative-integer?\""
+" 'for/flvector"
+"                                                                 \"exact-nonnegative-integer?\""
 " len_38)))"
-"(let-values(((fill_0) 0))"
-"(let-values(((v_203)(make-fxvector len_38 fill_0)))"
+"(let-values(((fill_1) 0.0))"
+"(let-values(((v_186)(make-flvector len_38 fill_1)))"
 "(begin"
 "(if(zero? len_38)"
 "(void)"
 "(let-values()"
-"(let-values(((lst_23) seq_2))"
+"(let-values(((lst_24) seq_2))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
 "(#%variable-reference))"
 "(void)"
-"(let-values()(check-list lst_23)))"
-"((letrec-values(((for-loop_256)"
-"(lambda(i_179 lst_78)"
+"(let-values()(check-list lst_24)))"
+"((letrec-values(((for-loop_21)"
+"(lambda(i_40 lst_25)"
 "(begin"
 " 'for-loop"
-"(if(pair? lst_78)"
-"(let-values(((e_73)"
+"(if(pair? lst_25)"
+"(let-values(((e_12)"
 "(unsafe-car"
-" lst_78))"
-"((rest_141)"
+" lst_25))"
+"((rest_9)"
 "(unsafe-cdr"
-" lst_78)))"
-"(let-values(((i_180)"
-"(let-values(((i_181)"
-" i_179))"
-"(let-values(((i_60)"
-"(let-values()"
-"(begin"
-"(let-values(((elem_0)"
-"(let-values()"
-" e_73)))"
-"(if(fixnum?"
-" elem_0)"
-"(unsafe-fxvector-set!"
-" v_203"
-" i_181"
-" elem_0)"
-"(not-an-fX.1"
-" 'for*/vector"
-" elem_0)))"
-"(unsafe-fx+"
-" 1"
-" i_181)))))"
-"(values"
-" i_60)))))"
-"(if(if(not"
-"((lambda x_90"
-"(unsafe-fx="
-" i_180"
-" len_38))"
-" e_73))"
-"(not #f)"
-" #f)"
-"(for-loop_256"
-" i_180"
-" rest_141)"
-" i_180)))"
-" i_179)))))"
-" for-loop_256)"
-" 0"
-" lst_23)))))"
-" v_203))))))"
-"(if(equal? tmp_41 'flonum)"
-"(let-values()"
-"(let-values(((len_8)(length seq_2)))"
-"(begin"
-"(if(exact-nonnegative-integer? len_8)"
-"(void)"
-"(let-values()"
-"(raise-argument-error"
-" 'for/flvector"
-"                                                                 \"exact-nonnegative-integer?\""
-" len_8)))"
-"(let-values(((fill_1) 0.0))"
-"(let-values(((v_247)(make-flvector len_8 fill_1)))"
-"(begin"
-"(if(zero? len_8)"
-"(void)"
-"(let-values()"
-"(let-values(((lst_90) seq_2))"
-"(begin"
-"(if(variable-reference-from-unsafe?"
-"(#%variable-reference))"
-"(void)"
-"(let-values()(check-list lst_90)))"
-"((letrec-values(((for-loop_194)"
-"(lambda(i_182 lst_17)"
-"(begin"
-" 'for-loop"
-"(if(pair? lst_17)"
-"(let-values(((e_80)"
-"(unsafe-car"
-" lst_17))"
-"((rest_91)"
-"(unsafe-cdr"
-" lst_17)))"
-"(let-values(((i_158)"
-"(let-values(((i_92)"
-" i_182))"
-"(let-values(((i_183)"
+" lst_25)))"
+"(let-values(((i_42)"
+"(let-values(((i_43)"
+" i_40))"
+"(let-values(((i_157)"
 "(let-values()"
 "(begin"
 "(let-values(((elem_1)"
 "(let-values()"
-" e_80)))"
+" e_12)))"
 "(if(flonum?"
 " elem_1)"
 "(unsafe-flvector-set!"
-" v_247"
-" i_92"
+" v_186"
+" i_43"
 " elem_1)"
 "(not-an-fX.1$1"
 " 'for*/vector"
 " elem_1)))"
 "(unsafe-fx+"
 " 1"
-" i_92)))))"
+" i_43)))))"
 "(values"
-" i_183)))))"
+" i_157)))))"
 "(if(if(not"
-"((lambda x_91"
+"((lambda x_93"
 "(unsafe-fx="
-" i_158"
-" len_8))"
-" e_80))"
+" i_42"
+" len_38))"
+" e_12))"
 "(not #f)"
 " #f)"
-"(for-loop_194"
-" i_158"
-" rest_91)"
-" i_158)))"
-" i_182)))))"
-" for-loop_194)"
+"(for-loop_21"
+" i_42"
+" rest_9)"
+" i_42)))"
+" i_40)))))"
+" for-loop_21)"
 " 0"
-" lst_90)))))"
-" v_247))))))"
+" lst_24)))))"
+" v_186))))))"
 "(let-values()(void)))))))"
 "(let-values()"
 "(let-values(((len_39)(length seq_2)))"
@@ -52588,50 +51598,46 @@ static const char *startup_source =
 "(let-values()(list->vector seq_2))"
 "(if(< expected-len_0 len_39)"
 "(let-values()"
-"(let-values(((in22_2) in_30)"
-"((config23_0) config_40)"
-"((temp24_5)"
+"(let-values(((in22_1) in_30)"
+"((config23_0) config_10)"
+"((temp24_6)"
 "                                                                    \"~avector length ~a is too small, ~a values provided\")"
-"((temp25_6)"
-"(let-values(((tmp_42) vector-mode_0))"
-"(if(equal? tmp_42 'any)"
+"((temp25_7)"
+"(let-values(((tmp_43) vector-mode_0))"
+"(if(equal? tmp_43 'any)"
 "                                                                        (let-values () \"\")"
-"(if(equal? tmp_42 'fixnum)"
+"(if(equal? tmp_43 'fixnum)"
 "                                                                          (let-values () \"fx\")"
-"(if(equal? tmp_42 'flonum)"
+"(if(equal? tmp_43 'flonum)"
 "                                                                            (let-values () \"fl\")"
 "(let-values()(void)))))))"
 "((expected-len26_0) expected-len_0)"
 "((len27_0) len_39))"
 "(reader-error12.1"
+" unsafe-undefined"
+" unsafe-undefined"
 " #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" in22_2"
+" unsafe-undefined"
+" in22_1"
 " config23_0"
-" temp24_5"
-"(list temp25_6 expected-len26_0 len27_0))))"
+" temp24_6"
+"(list temp25_7 expected-len26_0 len27_0))))"
 "(let-values()"
 "(let-values(((last-or_0)"
-"(lambda(v_248)"
+"(lambda(v_244)"
 "(begin"
 " 'last-or"
 "(if(null? seq_2)"
-"(wrap v_248 in_30 config_40 #f)"
-"((letrec-values(((loop_114)"
+"(wrap v_244 in_30 config_10 #f)"
+"((letrec-values(((loop_112)"
 "(lambda(seq_3)"
 "(begin"
 " 'loop"
 "(if(null?(cdr seq_3))"
 "(car seq_3)"
-"(loop_114"
+"(loop_112"
 "(cdr seq_3)))))))"
-" loop_114)"
+" loop_112)"
 " seq_2))))))"
 "(let-values((()"
 "(begin"
@@ -52643,54 +51649,54 @@ static const char *startup_source =
 "(current-continuation-marks))))"
 "(void))"
 "(values))))"
-"(let-values(((vec_70)"
-"(let-values(((tmp_43) vector-mode_0))"
-"(if(equal? tmp_43 'any)"
+"(let-values(((vec_69)"
+"(let-values(((tmp_44) vector-mode_0))"
+"(if(equal? tmp_44 'any)"
 "(let-values()"
 "(make-vector"
 " expected-len_0"
 "(last-or_0 0)))"
-"(if(equal? tmp_43 'fixnum)"
+"(if(equal? tmp_44 'fixnum)"
 "(let-values()"
 "(make-fxvector"
 " expected-len_0"
 "(last-or_0 0)))"
-"(if(equal? tmp_43 'flonum)"
+"(if(equal? tmp_44 'flonum)"
 "(let-values()"
 "(make-flvector"
 " expected-len_0"
 "(last-or_0 0.0)))"
 "(let-values()(void))))))))"
 "(begin"
-"(let-values(((tmp_44) vector-mode_0))"
-"(if(equal? tmp_44 'any)"
+"(let-values(((tmp_45) vector-mode_0))"
+"(if(equal? tmp_45 'any)"
 "(let-values()"
 "(begin"
-"(let-values(((lst_94) seq_2)((start_56) 0))"
+"(let-values(((lst_8) seq_2)((start_54) 0))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
 "(#%variable-reference))"
 "(void)"
-"(let-values()(check-list lst_94)))"
+"(let-values()(check-list lst_8)))"
 "(if(variable-reference-from-unsafe?"
 "(#%variable-reference))"
 "(void)"
-"(let-values()(check-naturals start_56)))"
-"((letrec-values(((for-loop_278)"
-"(lambda(lst_95 pos_115)"
+"(let-values()(check-naturals start_54)))"
+"((letrec-values(((for-loop_265)"
+"(lambda(lst_298 pos_117)"
 "(begin"
 " 'for-loop"
-"(if(if(pair? lst_95)"
+"(if(if(pair? lst_298)"
 " #t"
 " #f)"
-"(let-values(((e_81)"
+"(let-values(((e_79)"
 "(unsafe-car"
-" lst_95))"
-"((rest_165)"
+" lst_298))"
+"((rest_177)"
 "(unsafe-cdr"
-" lst_95))"
-"((i_184)"
-" pos_115))"
+" lst_298))"
+"((i_177)"
+" pos_117))"
 "(let-values((()"
 "(let-values()"
 "(let-values((()"
@@ -52698,50 +51704,50 @@ static const char *startup_source =
 "(begin"
 "(let-values()"
 "(vector-set!"
-" vec_70"
-" i_184"
-" e_81))"
+" vec_69"
+" i_177"
+" e_79))"
 "(values)))))"
 "(values)))))"
 "(if(not #f)"
-"(for-loop_278"
-" rest_165"
-"(+ pos_115 1))"
+"(for-loop_265"
+" rest_177"
+"(+ pos_117 1))"
 "(values))))"
 "(values))))))"
-" for-loop_278)"
-" lst_94"
-" start_56)))"
+" for-loop_265)"
+" lst_8"
+" start_54)))"
 "(void)))"
-"(if(equal? tmp_44 'fixnum)"
+"(if(equal? tmp_45 'fixnum)"
 "(let-values()"
 "(begin"
-"(let-values(((lst_10) seq_2)((start_57) 0))"
+"(let-values(((lst_174) seq_2)((start_55) 0))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
 "(#%variable-reference))"
 "(void)"
-"(let-values()(check-list lst_10)))"
+"(let-values()(check-list lst_174)))"
 "(if(variable-reference-from-unsafe?"
 "(#%variable-reference))"
 "(void)"
-"(let-values()(check-naturals start_57)))"
-"((letrec-values(((for-loop_102)"
-"(lambda(lst_180 pos_108)"
+"(let-values()(check-naturals start_55)))"
+"((letrec-values(((for-loop_28)"
+"(lambda(lst_273 pos_17)"
 "(begin"
 " 'for-loop"
 "(if(if(pair?"
-" lst_180)"
+" lst_273)"
 " #t"
 " #f)"
-"(let-values(((e_82)"
+"(let-values(((e_80)"
 "(unsafe-car"
-" lst_180))"
-"((rest_171)"
+" lst_273))"
+"((rest_123)"
 "(unsafe-cdr"
-" lst_180))"
-"((i_185)"
-" pos_108))"
+" lst_273))"
+"((i_100)"
+" pos_17))"
 "(let-values((()"
 "(let-values()"
 "(let-values((()"
@@ -52749,54 +51755,51 @@ static const char *startup_source =
 "(begin"
 "(let-values()"
 "(fxvector-set!"
-" vec_70"
-" i_185"
-" e_82))"
+" vec_69"
+" i_100"
+" e_80))"
 "(values)))))"
 "(values)))))"
 "(if(not #f)"
-"(for-loop_102"
-" rest_171"
-"(+"
-" pos_108"
-" 1))"
+"(for-loop_28"
+" rest_123"
+"(+ pos_17 1))"
 "(values))))"
 "(values))))))"
-" for-loop_102)"
-" lst_10"
-" start_57)))"
+" for-loop_28)"
+" lst_174"
+" start_55)))"
 "(void)))"
-"(if(equal? tmp_44 'flonum)"
+"(if(equal? tmp_45 'flonum)"
 "(let-values()"
 "(begin"
-"(let-values(((lst_307) seq_2)((start_44) 0))"
+"(let-values(((lst_303) seq_2)((start_56) 0))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
 "(#%variable-reference))"
 "(void)"
-"(let-values()(check-list lst_307)))"
+"(let-values()(check-list lst_303)))"
 "(if(variable-reference-from-unsafe?"
 "(#%variable-reference))"
 "(void)"
 "(let-values()"
-"(check-naturals start_44)))"
-"((letrec-values(((for-loop_112)"
-"(lambda(lst_282"
-" pos_116)"
+"(check-naturals start_56)))"
+"((letrec-values(((for-loop_276)"
+"(lambda(lst_98 pos_118)"
 "(begin"
 " 'for-loop"
 "(if(if(pair?"
-" lst_282)"
+" lst_98)"
 " #t"
 " #f)"
-"(let-values(((e_83)"
+"(let-values(((e_81)"
 "(unsafe-car"
-" lst_282))"
-"((rest_46)"
+" lst_98))"
+"((rest_178)"
 "(unsafe-cdr"
-" lst_282))"
-"((i_36)"
-" pos_116))"
+" lst_98))"
+"((i_46)"
+" pos_118))"
 "(let-values((()"
 "(let-values()"
 "(let-values((()"
@@ -52804,211 +51807,199 @@ static const char *startup_source =
 "(begin"
 "(let-values()"
 "(flvector-set!"
-" vec_70"
-" i_36"
-" e_83))"
+" vec_69"
+" i_46"
+" e_81))"
 "(values)))))"
 "(values)))))"
 "(if(not #f)"
-"(for-loop_112"
-" rest_46"
+"(for-loop_276"
+" rest_178"
 "(+"
-" pos_116"
+" pos_118"
 " 1))"
 "(values))))"
 "(values))))))"
-" for-loop_112)"
-" lst_307"
-" start_44)))"
+" for-loop_276)"
+" lst_303"
+" start_56)))"
 "(void)))"
 "(let-values()(void))))))"
-" vec_70))))))))))))"
-"(wrap vec_69 in_30 config_40 opener_2))))))))))))))))"
+" vec_69))))))))))))"
+"(wrap vec_61 in_30 config_10 opener_2))))))))))))))))"
 "(define-values"
 "(read-fixnum-or-flonum-vector)"
-"(lambda(read-one_6 dispatch-c_0 c_91 c2_4 in_33 config_43)"
+"(lambda(read-one_6 dispatch-c_0 c_87 c2_4 in_32 config_40)"
 "(begin"
 "(let-values(((vector-mode_1)(if(char=? c2_4 '#\\x) 'fixnum 'flonum)))"
-"(let-values((()(begin(consume-char in_33 c2_4)(values))))"
+"(let-values((()(begin(consume-char in_32 c2_4)(values))))"
 "(let-values((()"
 "(begin"
-"(if(read-config-for-syntax? config_43)"
+"(if(read-config-for-syntax? config_40)"
 "(let-values()"
-"(let-values(((in28_0) in_33)"
-"((config29_0) config_43)"
-"                                           ((temp30_3) \"literal f~avectors not allowed\")"
+"(let-values(((in28_0) in_32)"
+"((config29_0) config_40)"
+"                                           ((temp30_5) \"literal f~avectors not allowed\")"
 "((c231_0) c2_4))"
-"(reader-error12.1 #f #f #f #f #f #f #f #f in28_0 config29_0 temp30_3(list c231_0))))"
+"(reader-error12.1"
+" unsafe-undefined"
+" unsafe-undefined"
+" #f"
+" unsafe-undefined"
+" in28_0"
+" config29_0"
+" temp30_5"
+"(list c231_0))))"
 "(void))"
 "(values))))"
 "(let-values(((c3_3)"
-"(let-values(((in_34) in_33)((source_19)(read-config-source config_43)))"
-"(read-char-or-special in_34 special1.1 source_19))))"
+"(let-values(((in_33) in_32)((source_20)(read-config-source config_40)))"
+"(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_33 config_43 c3_3))"
+"(let-values()(read-simple-number in_32 config_40 c3_3))"
 "                              (let-values () (values #f \"\" c3_3)))))"
-"(let-values(((tmp_45) c4_1))"
-"(if(equal? tmp_45 '#\\()"
+"(let-values(((tmp_46) c4_1))"
+"(if(equal? tmp_46 '#\\()"
 "(let-values()"
 "(let-values(((read-one32_0) read-one_6)"
 "((temp33_2) '#\\()"
-"((temp34_3) '#\\()"
-"((temp35_2) '#\\))"
-"((in36_0) in_33)"
-"((config37_0) config_43)"
+"((temp34_6) '#\\()"
+"((temp35_3) '#\\))"
+"((in36_0) in_32)"
+"((config37_0) config_40)"
 "((vector-mode38_0) vector-mode_1)"
 "((vector-len39_0) vector-len_0))"
 "(read-vector11.1"
 " vector-len39_0"
-" #t"
 " vector-mode38_0"
-" #t"
 " read-one32_0"
 " temp33_2"
-" temp34_3"
-" temp35_2"
+" temp34_6"
+" temp35_3"
 " in36_0"
 " config37_0)))"
-"(if(equal? tmp_45 '#\\[)"
+"(if(equal? tmp_46 '#\\[)"
 "(let-values()"
-"(if(check-parameter 1/read-square-bracket-as-paren config_43)"
+"(if(check-parameter 1/read-square-bracket-as-paren config_40)"
 "(let-values()"
 "(let-values(((read-one40_0) read-one_6)"
-"((temp41_4) '#\\[)"
+"((temp41_2) '#\\[)"
 "((temp42_2) '#\\[)"
-"((temp43_1) '#\\])"
-"((in44_0) in_33)"
-"((config45_0) config_43)"
+"((temp43_3) '#\\])"
+"((in44_0) in_32)"
+"((config45_0) config_40)"
 "((vector-mode46_0) vector-mode_1)"
 "((vector-len47_0) vector-len_0))"
 "(read-vector11.1"
 " vector-len47_0"
-" #t"
 " vector-mode46_0"
-" #t"
 " read-one40_0"
-" temp41_4"
+" temp41_2"
 " temp42_2"
-" temp43_1"
+" temp43_3"
 " in44_0"
 " config45_0)))"
 "(let-values()"
-"(let-values(((in48_0) in_33)"
-"((config49_0) config_43)"
-"                                         ((temp50_1) (format \"~a~a\" dispatch-c_0 (format \"~a~a\" c_91 c2_4))))"
-"(bad-syntax-error20.1 #f #f in48_0 config49_0 temp50_1)))))"
-"(if(equal? tmp_45 '#\\{)"
+"(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))))"
+"(bad-syntax-error20.1 unsafe-undefined in48_0 config49_0 temp50_1)))))"
+"(if(equal? tmp_46 '#\\{)"
 "(let-values()"
-"(if(check-parameter 1/read-curly-brace-as-paren config_43)"
+"(if(check-parameter 1/read-curly-brace-as-paren config_40)"
 "(let-values()"
 "(let-values(((read-one51_0) read-one_6)"
-"((temp52_4) '#\\{)"
+"((temp52_1) '#\\{)"
 "((temp53_2) '#\\{)"
-"((temp54_0) '#\\})"
-"((in55_1) in_33)"
-"((config56_0) config_43)"
+"((temp54_1) '#\\})"
+"((in55_1) in_32)"
+"((config56_0) config_40)"
 "((vector-mode57_0) vector-mode_1)"
 "((vector-len58_0) vector-len_0))"
 "(read-vector11.1"
 " vector-len58_0"
-" #t"
 " vector-mode57_0"
-" #t"
 " read-one51_0"
-" temp52_4"
+" temp52_1"
 " temp53_2"
-" temp54_0"
+" temp54_1"
 " in55_1"
 " config56_0)))"
 "(let-values()"
-"(let-values(((in59_0) in_33)"
-"((config60_0) config_43)"
-"                                           ((temp61_2) (format \"~a~a\" dispatch-c_0 (format \"~a~a\" c_91 c2_4))))"
-"(bad-syntax-error20.1 #f #f in59_0 config60_0 temp61_2)))))"
+"(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))))"
+"(bad-syntax-error20.1 unsafe-undefined in59_0 config60_0 temp61_3)))))"
 "(let-values()"
-"(let-values(((in62_0) in_33)"
-"((config63_0) config_43)"
+"(let-values(((in62_0) in_32)"
+"((config63_0) config_40)"
 "((c464_0) c4_1)"
-"                                       ((temp65_3) \"expected `(`, `[`, or `{` after `#~a~a~a`\")"
-"((c66_0) c_91)"
+"                                       ((temp65_2) \"expected `(`, `[`, or `{` after `#~a~a~a`\")"
+"((c66_0) c_87)"
 "((c267_0) c2_4)"
 "((len-str68_0) len-str_0))"
 "(reader-error12.1"
-" #f"
-" #f"
+" unsafe-undefined"
 " c464_0"
-" #t"
-" #f"
-" #f"
-" #f"
 " #f"
+" unsafe-undefined"
 " in62_0"
 " config63_0"
-" temp65_3"
+" temp65_2"
 "(list c66_0 c267_0 len-str68_0))))))))))))))))"
 "(define-values"
 "(read-simple-number)"
-"(lambda(in_35 config_44 init-c_10)"
+"(lambda(in_34 config_41 init-c_11)"
 "(begin"
-"(let-values(((accum-str_2)(accum-string-init! config_44)))"
-"(let-values((()(begin(accum-string-add! accum-str_2 init-c_10)(values))))"
-"(let-values(((init-v_1)(digit->number init-c_10)))"
-"(let-values(((v_249)"
-"(let-values(((in69_0) in_35)"
-"((config70_0) config_44)"
+"(let-values(((accum-str_2)(accum-string-init! config_41)))"
+"(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_245)"
+"(let-values(((in69_0) in_34)"
+"((config70_0) config_41)"
 "((accum-str71_0) accum-str_2)"
 "((temp72_1) 10)"
-"((temp73_2) +inf.0)"
+"((temp73_0) +inf.0)"
 "((init-v74_0) init-v_1)"
 "((init-v75_0) init-v_1))"
-"(read-digits13.1"
-" temp72_1"
-" init-v74_0"
-" #t"
-" temp73_2"
-" init-v75_0"
-" #t"
-" in69_0"
-" config70_0"
-" accum-str71_0"
-" #t))))"
+"(read-digits12.1 temp72_1 init-v74_0 temp73_0 init-v75_0 in69_0 config70_0 accum-str71_0))))"
 "(values"
-" v_249"
-"(let-values(((accum-str76_0) accum-str_2)((config77_0) config_44))"
-"(accum-string-get!6.1 #f #f accum-str76_0 config77_0))"
-"(let-values(((in_36) in_35)((source_20)(read-config-source config_44)))"
-"(read-char-or-special in_36 special1.1 source_20))))))))))"
+" v_245"
+"(let-values(((accum-str76_0) accum-str_2)((config77_0) config_41))"
+"(accum-string-get!6.1 0 accum-str76_0 config77_0))"
+"(let-values(((in_35) in_34)((source_21)(read-config-source config_41)))"
+"(read-char-or-special in_35 special1.1 source_21))))))))))"
 "(define-values"
 "(read-struct)"
 "(lambda(read-one_3 dispatch-c_1 in_5 config_15)"
 "(begin"
-"(let-values(((c_33)"
-"(let-values(((in_11) in_5)((source_21)(read-config-source config_15)))"
-"(read-char-or-special in_11 special1.1 source_21))))"
-"(let-values(((ec_5)(effective-char c_33 config_15)))"
+"(let-values(((c_25)"
+"(let-values(((in_11) in_5)((source_22)(read-config-source config_15)))"
+"(read-char-or-special in_11 special1.1 source_22))))"
+"(let-values(((ec_5)(effective-char c_25 config_15)))"
 "(let-values(((seq_4)"
-"(let-values(((tmp_46) ec_5))"
-"(if(equal? tmp_46 '#\\()"
-"(let-values()(read-struct-sequence read-one_3 c_33 '#\\( '#\\) in_5 config_15))"
-"(if(equal? tmp_46 '#\\[)"
+"(let-values(((tmp_47) ec_5))"
+"(if(equal? tmp_47 '#\\()"
+"(let-values()(read-struct-sequence read-one_3 c_25 '#\\( '#\\) in_5 config_15))"
+"(if(equal? tmp_47 '#\\[)"
 "(let-values()"
 "(if(check-parameter 1/read-square-bracket-as-paren config_15)"
-"(let-values()(read-struct-sequence read-one_3 c_33 '#\\[ '#\\] in_5 config_15))"
+"(let-values()(read-struct-sequence read-one_3 c_25 '#\\[ '#\\] in_5 config_15))"
 "(let-values()"
 "(let-values(((in1_4) in_5)"
 "((config2_3) config_15)"
-"                                                 ((temp3_7) (format \"~as~a\" dispatch-c_1 c_33)))"
-"(bad-syntax-error20.1 #f #f in1_4 config2_3 temp3_7)))))"
-"(if(equal? tmp_46 '#\\{)"
+"                                                 ((temp3_7) (format \"~as~a\" dispatch-c_1 c_25)))"
+"(bad-syntax-error20.1 unsafe-undefined in1_4 config2_3 temp3_7)))))"
+"(if(equal? tmp_47 '#\\{)"
 "(let-values()"
 "(if(check-parameter 1/read-curly-brace-as-paren config_15)"
-"(let-values()(read-struct-sequence read-one_3 c_33 '#\\{ '#\\} in_5 config_15))"
+"(let-values()(read-struct-sequence read-one_3 c_25 '#\\{ '#\\} in_5 config_15))"
 "(let-values()"
 "(let-values(((in4_1) in_5)"
 "((config5_1) config_15)"
-"                                                   ((temp6_2) (format \"~as~a\" dispatch-c_1 c_33)))"
-"(bad-syntax-error20.1 #f #f in4_1 config5_1 temp6_2)))))"
+"                                                   ((temp6_2) (format \"~as~a\" dispatch-c_1 c_25)))"
+"(bad-syntax-error20.1 unsafe-undefined in4_1 config5_1 temp6_2)))))"
 "(let-values()"
 "(let-values(((in7_0) in_5)"
 "((config8_0) config_15)"
@@ -53016,14 +52007,10 @@ static const char *startup_source =
 "((temp10_0)(all-openers-str config_15))"
 "((dispatch-c11_0) dispatch-c_1))"
 "(reader-error12.1"
+" unsafe-undefined"
+" unsafe-undefined"
 " #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
+" unsafe-undefined"
 " in7_0"
 " config8_0"
 " temp9_5"
@@ -53032,20 +52019,16 @@ static const char *startup_source =
 "(begin"
 "(if(null? seq_4)"
 "(let-values()"
-"(let-values(((in12_1) in_5)"
+"(let-values(((in12_0) in_5)"
 "((config13_0) config_15)"
 "                                             ((temp14_1) \"missing structure description in `~as` form\")"
 "((dispatch-c15_0) dispatch-c_1))"
 "(reader-error12.1"
+" unsafe-undefined"
+" unsafe-undefined"
 " #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" in12_1"
+" unsafe-undefined"
+" in12_0"
 " config13_0"
 " temp14_1"
 "(list dispatch-c15_0))))"
@@ -53061,14 +52044,10 @@ static const char *startup_source =
 "                                               ((temp18_5) \"invalid structure description in `~as` form\")"
 "((dispatch-c19_0) dispatch-c_1))"
 "(reader-error12.1"
+" unsafe-undefined"
+" unsafe-undefined"
 " #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
+" unsafe-undefined"
 " in16_0"
 " config17_0"
 " temp18_5"
@@ -53081,9 +52060,9 @@ static const char *startup_source =
 "(let-values(((bpz_4)(continuation-mark-set-first #f break-enabled-key)))"
 "(call-handled-body"
 " bpz_4"
-"(lambda(e_84)"
+"(lambda(e_82)"
 "(select-handler/no-breaks"
-" e_84"
+" e_82"
 " bpz_4"
 "(list(cons with-handlers-predicate20_0 with-handlers-handler21_0))))"
 "(lambda()(prefab-key->struct-type(car seq_4)(length(cdr seq_4)))))))))"
@@ -53091,14 +52070,22 @@ static const char *startup_source =
 "(if st_2"
 "(void)"
 "(let-values()"
-"(let-values(((in22_3) in_5)"
+"(let-values(((in22_2) in_5)"
 "((config23_1) config_15)"
-"((temp24_6)"
+"((temp24_7)"
 "(string-append"
 "                                       \"mismatch between structure description\""
 "                                       \" and number of provided field values in `~as` form\"))"
 "((dispatch-c25_0) dispatch-c_1))"
-"(reader-error12.1 #f #f #f #f #f #f #f #f in22_3 config23_1 temp24_6(list dispatch-c25_0)))))"
+"(reader-error12.1"
+" unsafe-undefined"
+" unsafe-undefined"
+" #f"
+" unsafe-undefined"
+" in22_2"
+" config23_1"
+" temp24_7"
+"(list dispatch-c25_0)))))"
 "(if(read-config-for-syntax? config_15)"
 "(let-values()"
 "(if(all-fields-immutable?(car seq_4))"
@@ -53106,46 +52093,37 @@ static const char *startup_source =
 "(let-values()"
 "(let-values(((in26_1) in_5)"
 "((config27_1) config_15)"
-"                                         ((temp28_4) \"cannot read mutable `~as` form as syntax\")"
+"                                         ((temp28_2) \"cannot read mutable `~as` form as syntax\")"
 "((dispatch-c29_0) dispatch-c_1))"
 "(reader-error12.1"
+" unsafe-undefined"
+" unsafe-undefined"
 " #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
+" unsafe-undefined"
 " in26_1"
 " config27_1"
-" temp28_4"
+" temp28_2"
 "(list dispatch-c29_0))))))"
 "(void))"
 "(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_45)"
+"(lambda(read-one_7 opener-c_2 opener_3 closer_3 in_16 config_42)"
 "(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_45)"
-"((temp36_6)"
-"(lambda(init-c_11 in_37 config_11)(read-one_7 init-c_11 in_37(disable-wrapping config_11)))))"
+"((config35_0) config_42)"
+"((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"
+" 'all"
+" unsafe-undefined"
+" temp36_5"
 " #f"
-" #f"
-" #f"
-" #f"
-" temp36_6"
-" #t"
-" #f"
-" #f"
-" #f"
-" #f"
+" unsafe-undefined"
 " read-one30_0"
 " opener-c31_0"
 " opener32_0"
@@ -53154,86 +52132,64 @@ static const char *startup_source =
 " config35_0)))))"
 "(define-values"
 "(read-vector-or-graph)"
-"(lambda(read-one_3 dispatch-c_1 init-c_12 in_38 config_46)"
+"(lambda(read-one_3 dispatch-c_1 init-c_13 in_37 config_43)"
 "(begin"
-"(let-values(((accum-str_3)(accum-string-init! config_46)))"
-"(let-values((()(begin(accum-string-add! accum-str_3 init-c_12)(values))))"
-"(let-values(((init-v_2)(digit->number init-c_12)))"
+"(let-values(((accum-str_3)(accum-string-init! config_43)))"
+"(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_28)"
-"(let-values(((in1_5) in_38)"
-"((config2_4) config_46)"
+"(let-values(((in1_5) in_37)"
+"((config2_4) config_43)"
 "((accum-str3_0) accum-str_3)"
 "((temp4_3) 10)"
 "((temp5_6) +inf.0)"
 "((init-v6_0) init-v_2)"
 "((init-v7_0) init-v_2))"
-"(read-digits13.1"
-" temp4_3"
-" init-v6_0"
-" #t"
-" temp5_6"
-" init-v7_0"
-" #t"
-" in1_5"
-" config2_4"
-" accum-str3_0"
-" #t))))"
-"(let-values(((post-line_0 post-col_0 post-pos_0)(port-next-location in_38)))"
+"(read-digits12.1 temp4_3 init-v6_0 temp5_6 init-v7_0 in1_5 config2_4 accum-str3_0))))"
+"(let-values(((post-line_0 post-col_0 post-pos_0)(port-next-location in_37)))"
 "(let-values(((get-accum_0)"
-"(lambda(c_76)"
+"(lambda(c_52)"
 "(begin"
 " 'get-accum"
 "(format"
 "                                   \"~a~a~a\""
 " dispatch-c_1"
-"(let-values(((accum-str8_0) accum-str_3)((config9_0) config_46))"
-"(accum-string-get!6.1 #f #f accum-str8_0 config9_0))"
-" c_76)))))"
-"(let-values(((c_50)"
-"(let-values(((in_39) in_38)((source_22)(read-config-source config_46)))"
-"(read-char-or-special in_39 special1.1 source_22))))"
-"(let-values(((ec_6)(effective-char c_50 config_46)))"
-"(let-values(((tmp_47) ec_6))"
-"(if(equal? tmp_47 '#\\()"
+"(let-values(((accum-str8_0) accum-str_3)((config9_0) config_43))"
+"(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)))"
+"(read-char-or-special in_38 special1.1 source_16))))"
+"(let-values(((ec_6)(effective-char c_88 config_43)))"
+"(let-values(((tmp_48) ec_6))"
+"(if(equal? tmp_48 '#\\()"
 "(let-values()"
 "(begin"
-"(accum-string-abandon! accum-str_3 config_46)"
+"(accum-string-abandon! accum-str_3 config_43)"
 "(let-values(((read-one10_0) read-one_3)"
-"((c11_0) c_50)"
+"((c11_0) c_88)"
 "((temp12_4) '#\\()"
 "((temp13_2) '#\\))"
-"((in14_0) in_38)"
-"((config15_0) config_46)"
+"((in14_0) in_37)"
+"((config15_0) config_43)"
 "((v16_0) v_28))"
-"(read-vector11.1"
-" v16_0"
-" #t"
-" #f"
-" #f"
-" read-one10_0"
-" c11_0"
-" temp12_4"
-" temp13_2"
-" in14_0"
-" config15_0))))"
-"(if(equal? tmp_47 '#\\[)"
+"(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_46)"
-"(if(check-parameter 1/read-square-bracket-as-paren config_46)"
+"(accum-string-abandon! accum-str_3 config_43)"
+"(if(check-parameter 1/read-square-bracket-as-paren config_43)"
 "(let-values()"
 "(let-values(((read-one17_0) read-one_3)"
-"((c18_1) c_50)"
+"((c18_1) c_88)"
 "((temp19_2) '#\\[)"
 "((temp20_2) '#\\])"
-"((in21_0) in_38)"
-"((config22_0) config_46)"
+"((in21_0) in_37)"
+"((config22_0) config_43)"
 "((v23_0) v_28))"
 "(read-vector11.1"
 " v23_0"
-" #t"
-" #f"
-" #f"
+" 'any"
 " read-one17_0"
 " c18_1"
 " temp19_2"
@@ -53241,338 +52197,297 @@ static const char *startup_source =
 " in21_0"
 " config22_0)))"
 "(let-values()"
-"(let-values(((in24_0) in_38)"
-"((config25_0) config_46)"
-"((temp26_5)(get-accum_0(get-accum_0 c_50))))"
-"(bad-syntax-error20.1 #f #f in24_0 config25_0 temp26_5))))))"
-"(if(equal? tmp_47 '#\\{)"
+"(let-values(((in24_0) in_37)"
+"((config25_0) config_43)"
+"((temp26_4)(get-accum_0(get-accum_0 c_88))))"
+"(bad-syntax-error20.1 unsafe-undefined in24_0 config25_0 temp26_4))))))"
+"(if(equal? tmp_48 '#\\{)"
 "(let-values()"
 "(begin"
-"(accum-string-abandon! accum-str_3 config_46)"
-"(if(check-parameter 1/read-curly-brace-as-paren config_46)"
+"(accum-string-abandon! accum-str_3 config_43)"
+"(if(check-parameter 1/read-curly-brace-as-paren config_43)"
 "(let-values()"
 "(let-values(((read-one27_0) read-one_3)"
-"((c28_0) c_50)"
-"((temp29_4) '#\\{)"
-"((temp30_4) '#\\})"
-"((in31_1) in_38)"
-"((config32_0) config_46)"
+"((c28_0) c_88)"
+"((temp29_6) '#\\{)"
+"((temp30_6) '#\\})"
+"((in31_1) in_37)"
+"((config32_0) config_43)"
 "((v33_0) v_28))"
 "(read-vector11.1"
 " v33_0"
-" #t"
-" #f"
-" #f"
+" 'any"
 " read-one27_0"
 " c28_0"
-" temp29_4"
-" temp30_4"
+" temp29_6"
+" temp30_6"
 " in31_1"
 " config32_0)))"
 "(let-values()"
-"(let-values(((in34_1) in_38)"
-"((config35_1) config_46)"
-"((temp36_7)(get-accum_0(get-accum_0 c_50))))"
-"(bad-syntax-error20.1 #f #f in34_1 config35_1 temp36_7))))))"
+"(let-values(((in34_1) in_37)"
+"((config35_1) config_43)"
+"((temp36_6)(get-accum_0(get-accum_0 c_88))))"
+"(bad-syntax-error20.1 unsafe-undefined in34_1 config35_1 temp36_6))))))"
 "(let-values()"
-"(let-values(((tmp_48) c_50))"
-"(if(if(equal? tmp_48 '#\\=) #t(equal? tmp_48 '#\\#))"
+"(let-values(((tmp_45) c_88))"
+"(if(if(equal? tmp_45 '#\\=) #t(equal? tmp_45 '#\\#))"
 "(let-values()"
 "(begin"
-"(if(let-values(((or-part_310)(read-config-for-syntax? config_46)))"
-"(if or-part_310"
-" or-part_310"
-"(not(check-parameter 1/read-accept-graph config_46))))"
+"(if(let-values(((or-part_308)(read-config-for-syntax? config_43)))"
+"(if or-part_308"
+" or-part_308"
+"(not(check-parameter 1/read-accept-graph config_43))))"
 "(let-values()"
-"(let-values(((in37_1) in_38)"
-"((config38_0) config_46)"
+"(let-values(((in37_1) in_37)"
+"((config38_0) config_43)"
 "                                                         ((temp39_4) \"`#...~a` forms not ~a\")"
-"((c40_0) c_50)"
-"((temp41_5)"
-"(if(read-config-for-syntax? config_46)"
+"((c40_0) c_88)"
+"((temp41_3)"
+"(if(read-config-for-syntax? config_43)"
 "                                                            \"enabled\""
 "                                                            \"allowed in `read-syntax` mode\")))"
 "(reader-error12.1"
+" unsafe-undefined"
+" unsafe-undefined"
 " #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
+" unsafe-undefined"
 " in37_1"
 " config38_0"
 " temp39_4"
-"(list c40_0 temp41_5))))"
+"(list c40_0 temp41_3))))"
 "(void))"
 "(if(<=(accum-string-count accum-str_3) 8)"
 "(void)"
 "(let-values()"
-"(let-values(((in42_1) in_38)"
-"((config43_0) config_46)"
+"(let-values(((in42_0) in_37)"
+"((config43_0) config_43)"
 "                                                         ((temp44_2) \"graph ID too long in `~a~a~a`\")"
 "((dispatch-c45_0) dispatch-c_1)"
-"((temp46_2)"
+"((temp46_1)"
 "(let-values(((accum-str48_0) accum-str_3)"
-"((config49_1) config_46))"
-"(accum-string-get!6.1 #f #f accum-str48_0 config49_1)))"
-"((c47_0) c_50))"
+"((config49_1) config_43))"
+"(accum-string-get!6.1 0 accum-str48_0 config49_1)))"
+"((c47_0) c_88))"
 "(reader-error12.1"
+" unsafe-undefined"
+" unsafe-undefined"
 " #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" in42_1"
+" unsafe-undefined"
+" in42_0"
 " config43_0"
 " temp44_2"
-"(list dispatch-c45_0 temp46_2 c47_0)))))"
-"(let-values(((tmp_49) c_50))"
+"(list dispatch-c45_0 temp46_1 c47_0)))))"
+"(let-values(((tmp_49) c_88))"
 "(if(equal? tmp_49 '#\\=)"
 "(let-values()"
 "(let-values(((ph_1)(make-placeholder 'placeholder)))"
-"(let-values(((ht_159)(get-graph-hash config_46)))"
+"(let-values(((ht_140)(get-graph-hash config_43)))"
 "(let-values((()"
 "(begin"
-"(if(hash-ref ht_159 v_28 #f)"
+"(if(hash-ref ht_140 v_28 #f)"
 "(let-values()"
-"(let-values(((in50_0) in_38)"
-"((config51_0) config_46)"
-"                                                                                   ((temp52_5) \"multiple `~a~a~a` tags\")"
+"(let-values(((in50_0) in_37)"
+"((config51_0) config_43)"
+"                                                                                   ((temp52_2) \"multiple `~a~a~a` tags\")"
 "((dispatch-c53_0) dispatch-c_1)"
-"((temp54_1)"
+"((temp54_2)"
 "(let-values(((accum-str56_0)"
 " accum-str_3)"
 "((config57_0)"
-" config_46))"
+" config_43))"
 "(accum-string-get!6.1"
-" #f"
-" #f"
+" 0"
 " accum-str56_0"
 " config57_0)))"
-"((c55_0) c_50))"
+"((c55_0) c_88))"
 "(reader-error12.1"
+" unsafe-undefined"
+" unsafe-undefined"
 " #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
+" unsafe-undefined"
 " in50_0"
 " config51_0"
-" temp52_5"
-"(list dispatch-c53_0 temp54_1 c55_0))))"
+" temp52_2"
+"(list dispatch-c53_0 temp54_2 c55_0))))"
 "(void))"
 "(values))))"
-"(let-values((()(begin(hash-set! ht_159 v_28 ph_1)(values))))"
+"(let-values((()(begin(hash-set! ht_140 v_28 ph_1)(values))))"
 "(let-values(((result-v_0)"
-"(read-one_3 #f in_38(next-readtable config_46))))"
+"(read-one_3 #f in_37(next-readtable config_43))))"
 "(begin"
 "(if(eof-object? result-v_0)"
 "(let-values()"
-"(let-values(((in58_0) in_38)"
-"((config59_0) config_46)"
+"(let-values(((in58_0) in_37)"
+"((config59_0) config_43)"
 "((result-v60_0) result-v_0)"
-"((temp61_3)"
+"((temp61_4)"
 "                                                                            \"expected an element for graph after `~a~a~a`, found end-of-file\")"
 "((dispatch-c62_0) dispatch-c_1)"
-"((temp63_3)"
+"((temp63_2)"
 "(let-values(((accum-str65_0) accum-str_3)"
-"((config66_0) config_46))"
+"((config66_0) config_43))"
 "(accum-string-get!6.1"
-" #f"
-" #f"
+" 0"
 " accum-str65_0"
 " config66_0)))"
-"((c64_0) c_50))"
+"((c64_0) c_88))"
 "(reader-error12.1"
-" #f"
-" #f"
+" unsafe-undefined"
 " result-v60_0"
-" #t"
-" #f"
-" #f"
-" #f"
 " #f"
+" unsafe-undefined"
 " in58_0"
 " config59_0"
-" temp61_3"
-"(list dispatch-c62_0 temp63_3 c64_0))))"
+" temp61_4"
+"(list dispatch-c62_0 temp63_2 c64_0))))"
 "(void))"
-"(accum-string-abandon! accum-str_3 config_46)"
+"(accum-string-abandon! accum-str_3 config_43)"
 "(placeholder-set! ph_1 result-v_0)"
 " ph_1)))))))"
 "(if(equal? tmp_49 '#\\#)"
 "(let-values()"
 "(begin0"
 "(hash-ref"
-"(let-values(((or-part_359)"
-"(read-config-state-graph(read-config-st config_46))))"
-"(if or-part_359 or-part_359 '#hash()))"
+"(let-values(((or-part_210)"
+"(read-config-state-graph(read-config-st config_43))))"
+"(if or-part_210 or-part_210 '#hash()))"
 " v_28"
 "(lambda()"
-"(let-values(((in67_0) in_38)"
-"((config68_0) config_46)"
-"                                                                  ((temp69_0) \"no preceding `~a~a=` for `~a~a~a`\")"
+"(let-values(((in67_0) in_37)"
+"((config68_0) config_43)"
+"                                                                  ((temp69_1) \"no preceding `~a~a=` for `~a~a~a`\")"
 "((dispatch-c70_0) dispatch-c_1)"
 "((v71_0) v_28)"
 "((dispatch-c72_0) dispatch-c_1)"
-"((temp73_3)"
+"((temp73_1)"
 "(let-values(((accum-str75_0) accum-str_3)"
-"((config76_0) config_46))"
-"(accum-string-get!6.1"
-" #f"
-" #f"
-" accum-str75_0"
-" config76_0)))"
-"((c74_0) c_50))"
+"((config76_0) config_43))"
+"(accum-string-get!6.1 0 accum-str75_0 config76_0)))"
+"((c74_0) c_88))"
 "(reader-error12.1"
+" unsafe-undefined"
+" unsafe-undefined"
 " #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
+" unsafe-undefined"
 " in67_0"
 " config68_0"
-" temp69_0"
-"(list dispatch-c70_0 v71_0 dispatch-c72_0 temp73_3 c74_0)))))"
-"(accum-string-abandon! accum-str_3 config_46)))"
+" temp69_1"
+"(list dispatch-c70_0 v71_0 dispatch-c72_0 temp73_1 c74_0)))))"
+"(accum-string-abandon! accum-str_3 config_43)))"
 "(let-values()(void)))))))"
 "(let-values()"
-"(let-values(((in77_0) in_38)"
-"((config78_0) config_46)"
-"((c79_0) c_50)"
-"                                                   ((temp80_2) \"bad syntax `~a`\")"
-"((temp81_2)(get-accum_0 c_50)))"
+"(let-values(((in77_0) in_37)"
+"((config78_0) config_43)"
+"((c79_0) c_88)"
+"                                                   ((temp80_0) \"bad syntax `~a`\")"
+"((temp81_1)(get-accum_0 c_88)))"
 "(reader-error12.1"
-" #f"
-" #f"
+" unsafe-undefined"
 " c79_0"
-" #t"
-" #f"
-" #f"
-" #f"
 " #f"
+" unsafe-undefined"
 " in77_0"
 " config78_0"
-" temp80_2"
-"(list temp81_2))))))))))))))))))))))"
+" temp80_0"
+"(list temp81_1))))))))))))))))))))))"
 "(define-values"
 "(get-graph-hash)"
-"(lambda(config_47)"
+"(lambda(config_44)"
 "(begin"
-"(let-values(((st_3)(read-config-st config_47)))"
-"(let-values(((or-part_134)(read-config-state-graph st_3)))"
-"(if or-part_134"
-" or-part_134"
-"(let-values(((ht_160)(make-hasheqv)))(begin(set-read-config-state-graph! st_3 ht_160) ht_160))))))))"
+"(let-values(((st_3)(read-config-st config_44)))"
+"(let-values(((or-part_358)(read-config-state-graph st_3)))"
+"(if or-part_358"
+" or-part_358"
+"(let-values(((ht_151)(make-hasheqv)))(begin(set-read-config-state-graph! st_3 ht_151) ht_151))))))))"
 "(define-values"
 "(coerce-key)"
-"(lambda(key_86 config_8)"
+"(lambda(key_85 config_8)"
 "(begin"
 "(let-values(((for-syntax?_7)(read-config-for-syntax? config_8)))"
-"((read-config-coerce-key config_8) for-syntax?_7 key_86)))))"
+"((read-config-coerce-key config_8) for-syntax?_7 key_85)))))"
 "(define-values"
 "(read-hash)"
-"(lambda(read-one_3 dispatch-c_1 init-c_12 in_38 config_46)"
+"(lambda(read-one_3 dispatch-c_1 init-c_13 in_37 config_43)"
 "(begin"
-"(let-values(((accum-str_3)(accum-string-init! config_46)))"
+"(let-values(((accum-str_3)(accum-string-init! config_43)))"
 "(let-values((()(begin(accum-string-add! accum-str_3 dispatch-c_1)(values))))"
-"(let-values((()(begin(accum-string-add! accum-str_3 init-c_12)(values))))"
+"(let-values((()(begin(accum-string-add! accum-str_3 init-c_13)(values))))"
 "(let-values(((get-next!_0)"
 "(lambda(expect-c_0 expect-alt-c_0)"
 "(begin"
 " 'get-next!"
-"(let-values(((c_92)"
-"(let-values(((in_30) in_38)((source_23)(read-config-source config_46)))"
-"(read-char-or-special in_30 special1.1 source_23))))"
+"(let-values(((c_46)"
+"(let-values(((in_39) in_37)((source_23)(read-config-source config_43)))"
+"(read-char-or-special in_39 special1.1 source_23))))"
 "(begin"
-"(if(let-values(((or-part_6)(eqv? c_92 expect-c_0)))"
-"(if or-part_6 or-part_6(eqv? c_92 expect-alt-c_0)))"
+"(if(let-values(((or-part_6)(eqv? c_46 expect-c_0)))"
+"(if or-part_6 or-part_6(eqv? c_46 expect-alt-c_0)))"
 "(void)"
 "(let-values()"
-"(let-values(((in1_6) in_38)"
-"((config2_5) config_46)"
-"((c3_4) c_92)"
+"(let-values(((in1_6) in_37)"
+"((config2_5) config_43)"
+"((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_46))"
-"(accum-string-get!6.1 #f #f accum-str7_0 config8_1))))"
+"(let-values(((accum-str7_0) accum-str_3)((config8_1) config_43))"
+"(accum-string-get!6.1 0 accum-str7_0 config8_1))))"
 "(reader-error12.1"
-" #f"
-" #f"
+" unsafe-undefined"
 " c3_4"
-" #t"
-" #f"
-" #f"
-" #f"
 " #f"
+" unsafe-undefined"
 " in1_6"
 " config2_5"
 " temp4_4"
 "(list expect-c5_0 temp6_3)))))"
-"(accum-string-add! accum-str_3 c_92)))))))"
+"(accum-string-add! accum-str_3 c_46)))))))"
 "(let-values((()(begin(get-next!_0 '#\\a '#\\A)(values))))"
 "(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_113)"
 "(lambda(mode_21)"
 "(begin"
 " 'loop"
-"(let-values(((c_70)"
-"(let-values(((in_40) in_38)"
+"(let-values(((c_50)"
+"(let-values(((in_40) in_37)"
 "((source_24)"
-"(read-config-source config_46)))"
+"(read-config-source config_43)))"
 "(read-char-or-special"
 " in_40"
 " special1.1"
 " source_24))))"
-"(let-values(((ec_7)(effective-char c_70 config_46)))"
+"(let-values(((ec_7)(effective-char c_50 config_43)))"
 "(let-values(((tmp_50) ec_7))"
 "(if(equal? tmp_50 '#\\()"
 "(let-values()"
 "(let-values(((open-end-line_1"
 " open-end-col_1"
 " open-end-pos_1)"
-"(port-next-location in_38)))"
+"(port-next-location in_37)))"
 "(let-values(((read-one-key+value_0)"
 "(make-read-one-key+value"
 " read-one_3"
-" c_70"
+" c_50"
 " '#\\)"
 " open-end-pos_1)))"
 "(values"
 "(let-values(((read-one-key+value9_0)"
 " read-one-key+value_0)"
-"((c10_1) c_70)"
+"((c10_1) c_50)"
 "((temp11_4) '#\\()"
 "((temp12_5) '#\\))"
-"((in13_0) in_38)"
-"((config14_0) config_46)"
-"((config15_1) config_46)"
+"((in13_0) in_37)"
+"((config14_0) config_43)"
+"((config15_1) config_43)"
 "((temp16_5) #f))"
 "(read-unwrapped-sequence17.1"
 " temp16_5"
-" #t"
 " config15_1"
-" #t"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
+" unsafe-undefined"
 " #f"
+" unsafe-undefined"
 " read-one-key+value9_0"
 " c10_1"
 " temp11_4"
@@ -53585,39 +52500,34 @@ static const char *startup_source =
 "(let-values()"
 "(if(check-parameter"
 " 1/read-square-bracket-as-paren"
-" config_46)"
+" config_43)"
 "(let-values()"
 "(let-values(((open-end-line_2"
 " open-end-col_2"
 " open-end-pos_2)"
-"(port-next-location in_38)))"
+"(port-next-location in_37)))"
 "(let-values(((read-one-key+value_1)"
 "(make-read-one-key+value"
 " read-one_3"
-" c_70"
+" c_50"
 " '#\\]"
 " open-end-pos_2)))"
 "(values"
 "(let-values(((read-one-key+value17_0)"
 " read-one-key+value_1)"
-"((c18_2) c_70)"
+"((c18_2) c_50)"
 "((temp19_3) '#\\[)"
 "((temp20_3) '#\\])"
-"((in21_1) in_38)"
-"((config22_1) config_46)"
-"((config23_2) config_46)"
-"((temp24_7) #f))"
+"((in21_1) in_37)"
+"((config22_1) config_43)"
+"((config23_2) config_43)"
+"((temp24_8) #f))"
 "(read-unwrapped-sequence17.1"
-" temp24_7"
-" #t"
+" temp24_8"
 " config23_2"
-" #t"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
+" unsafe-undefined"
 " #f"
+" unsafe-undefined"
 " read-one-key+value17_0"
 " c18_2"
 " temp19_3"
@@ -53627,83 +52537,70 @@ static const char *startup_source =
 " ec_7"
 " mode_21))))"
 "(let-values()"
-"(let-values(((in25_0) in_38)"
-"((config26_0) config_46)"
-"                                                                                     ((temp27_7) \"illegal use of `~a`\")"
-"((c28_1) c_70))"
+"(let-values(((in25_0) in_37)"
+"((config26_0) config_43)"
+"                                                                                     ((temp27_6) \"illegal use of `~a`\")"
+"((c28_1) c_50))"
 "(reader-error12.1"
+" unsafe-undefined"
+" unsafe-undefined"
 " #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
+" unsafe-undefined"
 " in25_0"
 " config26_0"
-" temp27_7"
+" temp27_6"
 "(list c28_1))))))"
 "(if(equal? tmp_50 '#\\{)"
 "(let-values()"
 "(if(check-parameter"
 " 1/read-curly-brace-as-paren"
-" config_46)"
+" config_43)"
 "(let-values()"
 "(let-values(((open-end-line_3"
 " open-end-col_3"
 " open-end-pos_3)"
-"(port-next-location in_38)))"
+"(port-next-location in_37)))"
 "(let-values(((read-one-key+value_2)"
 "(make-read-one-key+value"
 " read-one_3"
-" c_70"
+" c_50"
 " '#\\}"
 " open-end-pos_3)))"
 "(values"
 "(let-values(((read-one-key+value29_0)"
 " read-one-key+value_2)"
-"((c30_0) c_70)"
-"((temp31_5) '#\\{)"
-"((temp32_3) '#\\})"
-"((in33_3) in_38)"
-"((config34_1) config_46)"
-"((config35_1) config_46)"
-"((temp36_7) #f))"
+"((c30_0) c_50)"
+"((temp31_3) '#\\{)"
+"((temp32_2) '#\\})"
+"((in33_2) in_37)"
+"((config34_1) config_43)"
+"((config35_1) config_43)"
+"((temp36_6) #f))"
 "(read-unwrapped-sequence17.1"
-" temp36_7"
-" #t"
+" temp36_6"
 " config35_1"
-" #t"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
+" unsafe-undefined"
 " #f"
+" unsafe-undefined"
 " read-one-key+value29_0"
 " c30_0"
-" temp31_5"
-" temp32_3"
-" in33_3"
+" temp31_3"
+" temp32_2"
+" in33_2"
 " config34_1))"
 " ec_7"
 " mode_21))))"
 "(let-values()"
-"(let-values(((in37_2) in_38)"
-"((config38_1) config_46)"
+"(let-values(((in37_2) in_37)"
+"((config38_1) config_43)"
 "((temp39_5)"
 "                                                                                        \"illegal use of `~a`\")"
-"((c40_1) c_70))"
+"((c40_1) c_50))"
 "(reader-error12.1"
+" unsafe-undefined"
+" unsafe-undefined"
 " #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
+" unsafe-undefined"
 " in37_2"
 " config38_1"
 " temp39_5"
@@ -53713,80 +52610,70 @@ static const char *startup_source =
 "(equal? tmp_50 '#\\E))"
 "(let-values()"
 "(begin"
-"(accum-string-add! accum-str_3 c_70)"
+"(accum-string-add! accum-str_3 c_50)"
 "(get-next!_0 '#\\q '#\\Q)"
-"(loop_115 'eq)))"
+"(loop_113 'eq)))"
 "(if(if(equal? tmp_50 '#\\v)"
 " #t"
 "(equal? tmp_50 '#\\V))"
 "(let-values()"
 "(begin"
-"(accum-string-add! accum-str_3 c_70)"
+"(accum-string-add! accum-str_3 c_50)"
 "(if(eq? mode_21 'eq)"
-"(loop_115 'eqv)"
-"(let-values(((in41_0) in_38)"
-"((config42_0) config_46)"
-"((temp43_2)"
+"(loop_113 'eqv)"
+"(let-values(((in41_0) in_37)"
+"((config42_0) config_43)"
+"((temp43_4)"
 "                                                                                            \"bad syntax `~a`\")"
 "((temp44_3)"
 "(let-values(((accum-str45_0)"
 " accum-str_3)"
 "((config46_0)"
-" config_46))"
+" config_43))"
 "(accum-string-get!6.1"
-" #f"
-" #f"
+" 0"
 " accum-str45_0"
 " config46_0))))"
 "(reader-error12.1"
+" unsafe-undefined"
+" unsafe-undefined"
 " #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
+" unsafe-undefined"
 " in41_0"
 " config42_0"
-" temp43_2"
+" temp43_4"
 "(list temp44_3))))))"
 "(let-values()"
 "(begin"
-"(if(char? c_70)"
+"(if(char? c_50)"
 "(let-values()"
-"(accum-string-add! accum-str_3 c_70))"
+"(accum-string-add! accum-str_3 c_50))"
 "(void))"
-"(let-values(((in47_1) in_38)"
-"((config48_1) config_46)"
-"((c49_0) c_70)"
+"(let-values(((in47_1) in_37)"
+"((config48_1) config_43)"
+"((c49_0) c_50)"
 "                                                                                         ((temp50_2) \"bad syntax `~a`\")"
-"((temp51_3)"
+"((temp51_2)"
 "(let-values(((accum-str52_0)"
 " accum-str_3)"
 "((config53_0)"
-" config_46))"
+" config_43))"
 "(accum-string-get!6.1"
-" #f"
-" #f"
+" 0"
 " accum-str52_0"
 " config53_0))))"
 "(reader-error12.1"
-" #f"
-" #f"
+" unsafe-undefined"
 " c49_0"
-" #t"
-" #f"
-" #f"
-" #f"
 " #f"
+" unsafe-undefined"
 " in47_1"
 " config48_1"
 " temp50_2"
-"(list temp51_3)))))))))))))))))"
-" loop_115)"
+"(list temp51_2)))))))))))))))))"
+" loop_113)"
 " 'equal)))"
-"(let-values(((graph?_0)(if(read-config-state-graph(read-config-st config_46)) #t #f)))"
+"(let-values(((graph?_0)(if(read-config-state-graph(read-config-st config_43)) #t #f)))"
 "(wrap"
 "(let-values(((tmp_51) mode_20))"
 "(if(equal? tmp_51 'equal)"
@@ -53801,63 +52688,67 @@ static const char *startup_source =
 "(make-hasheqv-placeholder content_11)"
 "(make-immutable-hasheqv content_11)))"
 "(let-values()(void))))))"
-" in_38"
-" config_46"
+" in_37"
+" config_43"
 " 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_13 in_41 config_48)"
-"(let-values(((c_93)(read-char/skip-whitespace-and-comments init-c_13 read-one_8 in_41 config_48)))"
-"(let-values(((open-line_0 open-col_0 open-pos_0)(port-next-location* in_41 c_93)))"
-"(let-values(((ec_8)(effective-char c_93 config_48)))"
-"(let-values(((elem-config_1)(next-readtable config_48)))"
+"(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)))"
 "(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_48) '#\\] #f))"
+"(if(check-parameter 1/read-square-bracket-as-paren config_45) '#\\] #f))"
 "(if(equal? tmp_52 '#\\{)"
 "(let-values()"
-"(if(check-parameter 1/read-curly-brace-as-paren config_48) '#\\} #f))"
+"(if(check-parameter 1/read-curly-brace-as-paren config_45) '#\\} #f))"
 "(let-values() #f)))))))"
 "(if(not closer_4)"
 "(let-values()"
-"(if(eof-object? c_93)"
+"(if(eof-object? c_89)"
 "(let-values()"
 "(let-values(((in54_0) in_41)"
-"((config55_0) config_48)"
-"((c56_0) c_93)"
+"((config55_0) config_45)"
+"((c56_0) c_89)"
 "((prefix-end-pos57_0) prefix-end-pos_0)"
 "                                       ((temp58_2) \"expected ~a to close `~a`\")"
-"((temp59_3)(closer-name overall-closer-ec_0 config_48))"
+"((temp59_4)(closer-name overall-closer-ec_0 config_45))"
 "((overall-opener-c60_0) overall-opener-c_0))"
 "(reader-error12.1"
-" #f"
-" #f"
+" unsafe-undefined"
 " c56_0"
-" #t"
 " prefix-end-pos57_0"
-" #t"
-" #f"
-" #f"
+" unsafe-undefined"
 " in54_0"
 " config55_0"
 " temp58_2"
-"(list temp59_3 overall-opener-c60_0))))"
-"(if(char-closer? ec_8 config_48)"
+"(list temp59_4 overall-opener-c60_0))))"
+"(if(char-closer? ec_8 config_45)"
 "(let-values()"
 "(let-values(((in61_0) in_41)"
-"((temp62_2)(reading-at config_48 open-line_0 open-col_0 open-pos_0))"
-"                                         ((temp63_4) \"~a\")"
-"((temp64_4)(indentation-unexpected-closer-message ec_8 c_93 config_48)))"
-"(reader-error12.1 #f #f #f #f #f #f #f #f in61_0 temp62_2 temp63_4(list temp64_4))))"
+"((temp62_1)(reading-at config_45 open-line_0 open-col_0 open-pos_0))"
+"                                         ((temp63_3) \"~a\")"
+"((temp64_3)(indentation-unexpected-closer-message ec_8 c_89 config_45)))"
+"(reader-error12.1"
+" unsafe-undefined"
+" unsafe-undefined"
+" #f"
+" unsafe-undefined"
+" in61_0"
+" temp62_1"
+" temp63_3"
+"(list temp64_3))))"
 "(let-values()"
-"(let-values(((v_250)(read-one_8 c_93 in_41(keep-comment elem-config_1))))"
-"(if(1/special-comment? v_250)"
+"(let-values(((v_246)(read-one_8 c_89 in_41(keep-comment elem-config_1))))"
+"(if(1/special-comment? v_246)"
 "(let-values()"
 "((make-read-one-key+value"
 " read-one_8"
@@ -53866,181 +52757,161 @@ static const char *startup_source =
 " prefix-end-pos_0)"
 " #f"
 " in_41"
-" config_48))"
+" config_45))"
 "(let-values()"
 "(let-values(((in65_0) in_41)"
-"((temp66_3)(reading-at config_48 open-line_0 open-col_0 open-pos_0))"
-"                                               ((temp67_0) \"expected ~a to start a hash pair\")"
-"((temp68_1)(all-openers-str config_48)))"
+"((temp66_3)(reading-at config_45 open-line_0 open-col_0 open-pos_0))"
+"                                               ((temp67_3) \"expected ~a to start a hash pair\")"
+"((temp68_3)(all-openers-str config_45)))"
 "(reader-error12.1"
+" unsafe-undefined"
+" unsafe-undefined"
 " #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
+" unsafe-undefined"
 " in65_0"
 " temp66_3"
-" temp67_0"
-"(list temp68_1))))))))))"
+" temp67_3"
+"(list temp68_3))))))))))"
 "(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_48)))"
+"(let-values(((dot-c_0)(read-char/skip-whitespace-and-comments #f read-one_8 in_41 config_45)))"
 "(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_48)))"
+"(let-values(((dot-ec_0)(effective-char dot-c_0 config_45)))"
 "(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_48)))"
-"(let-values(((c_94)"
+"((source_25)(read-config-source config_45)))"
+"(let-values(((c_90)"
 "(peek-char-or-special"
 " in_42"
 " skip-count_9"
 " 'special"
 " source_25)))"
-"(if(eq? c_94 'special)(special1.1 'special) c_94)))"
-" config_48)"
+"(if(eq? c_90 'special)(special1.1 'special) c_90)))"
+" config_45)"
 " #f)"
 "(void)"
 "(let-values()"
 "(let-values(((in69_1) in_41)"
 "((temp70_2)"
-"(reading-at config_48 dot-line_1 dot-col_1 dot-pos_4))"
+"(reading-at config_45 dot-line_1 dot-col_1 dot-pos_4))"
 "((dot-c71_0) dot-c_0)"
 "                                                               ((temp72_2) \"expected ~a and value for hash\")"
-"((temp73_4)(dot-name config_48)))"
+"((temp73_2)(dot-name config_45)))"
 "(reader-error12.1"
-" #f"
-" #f"
+" unsafe-undefined"
 " dot-c71_0"
-" #t"
-" #f"
-" #f"
-" #f"
 " #f"
+" unsafe-undefined"
 " in69_1"
 " temp70_2"
 " temp72_2"
-"(list temp73_4)))))"
+"(list temp73_2)))))"
 "(values))))"
-"(let-values(((v_251)(read-one_8 #f in_41 elem-config_1)))"
+"(let-values(((v_247)(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_48)))"
+"(read-char/skip-whitespace-and-comments #f read-one_8 in_41 config_45)))"
 "(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_48)))"
+"(let-values(((closer-ec_0)(effective-char closer-c_0 config_45)))"
 "(begin"
 "(if(eqv? closer-ec_0 closer_4)"
 "(void)"
 "(let-values()"
 "(let-values(((in74_0) in_41)"
-"((temp75_1)"
+"((temp75_2)"
 "(reading-at"
-" config_48"
+" config_45"
 " 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_2)(closer-name closer_4 config_48)))"
+"((temp78_3)(closer-name closer_4 config_45)))"
 "(reader-error12.1"
-" #f"
-" #f"
+" unsafe-undefined"
 " closer-c76_0"
-" #t"
-" #f"
-" #f"
-" #f"
 " #f"
+" unsafe-undefined"
 " in74_0"
-" temp75_1"
+" temp75_2"
 " temp77_1"
-"(list temp78_2)))))"
-"(cons(coerce-key k_41 elem-config_1) v_251))))))))))))))))))))))"
+"(list temp78_3)))))"
+"(cons(coerce-key k_41 elem-config_1) v_247))))))))))))))))))))))"
 "(define-values"
 "(read-string5.1)"
-"(lambda(mode1_1 mode2_0 in3_0 config4_0)"
+"(lambda(mode1_1 in3_0 config4_0)"
 "(begin"
 " 'read-string5"
-"(let-values(((in_43) in3_0))"
-"(let-values(((config_22) config4_0))"
-"(let-values(((mode_0)(if mode2_0 mode1_1 'string)))"
+"(let-values(((in_37) in3_0))"
+"(let-values(((config_43) config4_0))"
+"(let-values(((mode_11) mode1_1))"
 "(let-values()"
-"(let-values(((source_26)(read-config-source config_22)))"
-"(let-values(((open-end-line_4 open-end-col_4 open-end-pos_4)(port-next-location in_43)))"
-"(let-values(((accum-str_4)(accum-string-init! config_22)))"
+"(let-values(((source_26)(read-config-source config_43)))"
+"(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(((bad-end_0)"
-"(lambda(c_95)"
+"(lambda(c_46)"
 "(begin"
 " 'bad-end"
-"(if(eof-object? c_95)"
+"(if(eof-object? c_46)"
 "(let-values()"
-"(let-values(((in8_0) in_43)"
-"((config9_1) config_22)"
-"((c10_2) c_95)"
+"(let-values(((in8_0) in_37)"
+"((config9_1) config_43)"
+"((c10_2) c_46)"
 "((open-end-pos11_0) open-end-pos_4)"
 "                                                       ((temp12_6) \"expected a closing `\\\"`\"))"
 "(reader-error12.1"
-" #f"
-" #f"
+" unsafe-undefined"
 " c10_2"
-" #t"
 " open-end-pos11_0"
-" #t"
-" #f"
-" #f"
+" unsafe-undefined"
 " in8_0"
 " config9_1"
 " temp12_6"
 "(list))))"
 "(let-values()"
-"(let-values(((in13_1) in_43)"
-"((config14_1) config_22)"
-"((c15_0) c_95)"
+"(let-values(((in13_1) in_37)"
+"((config14_1) config_43)"
+"((c15_1) c_46)"
 "                                                       ((temp16_6) \"found non-character while reading a ~a\")"
-"((mode17_1) mode_0))"
+"((mode17_0) mode_11))"
 "(reader-error12.1"
+" unsafe-undefined"
+" c15_1"
 " #f"
-" #f"
-" c15_0"
-" #t"
-" #f"
-" #f"
-" #f"
-" #f"
+" unsafe-undefined"
 " in13_1"
 " config14_1"
 " temp16_6"
-"(list mode17_1)))))))))"
+"(list mode17_0)))))))))"
 "(let-values((()"
 "(begin"
-"((letrec-values(((loop_115)"
+"((letrec-values(((loop_114)"
 "(lambda()"
 "(begin"
 " 'loop"
-"(let-values(((c_49)"
-"(let-values(((in_12) in_43)"
+"(let-values(((c_17)"
+"(let-values(((in_43) in_37)"
 "((source_27) source_26))"
 "(read-char-or-special"
-" in_12"
+" in_43"
 " special1.1"
 " source_27))))"
-"(if(not(char? c_49))"
-"(let-values()(bad-end_0 c_49))"
-"(if(char=? '#\\\\ c_49)"
+"(if(not(char? c_17))"
+"(let-values()(bad-end_0 c_17))"
+"(if(char=? '#\\\\ c_17)"
 "(let-values()"
-"(let-values(((escaping-c_0) c_49))"
+"(let-values(((escaping-c_0) c_17))"
 "(let-values(((escaped-c_0)"
-"(let-values(((in_13) in_43)"
+"(let-values(((in_24) in_37)"
 "((source_28)"
 " source_26))"
 "(read-char-or-special"
-" in_13"
+" in_24"
 " special1.1"
 " source_28))))"
 "(let-values((()"
@@ -54055,9 +52926,9 @@ static const char *startup_source =
 "(begin"
 " 'unknown-error"
 "(let-values(((in18_1)"
-" in_43)"
+" in_37)"
 "((config19_2)"
-" config_22)"
+" config_43)"
 "((temp20_4)"
 "                                                                                                          \"unknown escape sequence `~a~a` in ~a\")"
 "((escaping-c21_0)"
@@ -54065,16 +52936,12 @@ static const char *startup_source =
 "((escaped-c22_0)"
 " escaped-c_0)"
 "((mode23_0)"
-" mode_0))"
+" mode_11))"
 "(reader-error12.1"
+" unsafe-undefined"
+" unsafe-undefined"
 " #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
+" unsafe-undefined"
 " in18_1"
 " config19_2"
 " temp20_4"
@@ -54269,36 +53136,36 @@ static const char *startup_source =
 "(if(unsafe-fx< index_3 12)"
 "(let-values()"
 "(let-values(((maybe-newline-c_0)"
-"(let-values(((in_27)"
-" in_43)"
+"(let-values(((in_44)"
+" in_37)"
 "((skip-count_10)"
 " 0)"
 "((source_29)"
 " source_26))"
-"(let-values(((c_96)"
+"(let-values(((c_91)"
 "(peek-char-or-special"
-" in_27"
+" in_44"
 " skip-count_10"
 " 'special"
 " source_29)))"
 "(if(eq?"
-" c_96"
+" c_91"
 " 'special)"
 "(special1.1"
 " 'special)"
-" c_96)))))"
+" c_91)))))"
 "(begin"
 "(if(eqv?"
 " maybe-newline-c_0"
 " '#\\newline)"
 "(let-values()"
 "(consume-char"
-" in_43"
+" in_37"
 " maybe-newline-c_0))"
 "(void))"
 "(void))))"
 "(let-values()"
-"(let-values(((pos_117)"
+"(let-values(((pos_98)"
 "(accum-string-count"
 " accum-str_4)))"
 "(let-values((()"
@@ -54310,121 +53177,110 @@ static const char *startup_source =
 "(let-values(((init-v_3)"
 "(digit->number"
 " escaped-c_0)))"
-"(let-values(((v_66)"
+"(let-values(((v_201)"
 "(let-values(((in24_1)"
-" in_43)"
+" in_37)"
 "((config25_1)"
-" config_22)"
+" config_43)"
 "((accum-str26_0)"
 " accum-str_4)"
-"((temp27_8)"
+"((temp27_7)"
 " 8)"
-"((temp28_5)"
+"((temp28_3)"
 " 2)"
 "((init-v29_0)"
 " init-v_3)"
 "((init-v30_0)"
 " init-v_3))"
-"(read-digits13.1"
-" temp27_8"
+"(read-digits12.1"
+" temp27_7"
 " init-v29_0"
-" #t"
-" temp28_5"
+" temp28_3"
 " init-v30_0"
-" #t"
 " in24_1"
 " config25_1"
-" accum-str26_0"
-" #t))))"
+" accum-str26_0))))"
 "(begin"
-"(if(<= v_66 255)"
+"(if(<= v_201 255)"
 "(void)"
 "(let-values()"
 "(let-values(((in31_2)"
-" in_43)"
+" in_37)"
 "((config32_1)"
-" config_22)"
+" config_43)"
 "((temp33_3)"
 "                                                                                                                        \"escape sequence `~a~a` is out of range in ~a\")"
 "((escaping-c34_0)"
 " escaping-c_0)"
-"((temp35_3)"
+"((temp35_4)"
 "(let-values(((accum-str37_0)"
 " accum-str_4)"
 "((config38_2)"
-" config_22)"
+" config_43)"
 "((pos39_0)"
-" pos_117))"
+" pos_98))"
 "(accum-string-get!6.1"
 " pos39_0"
-" #t"
 " accum-str37_0"
 " config38_2)))"
 "((mode36_0)"
-" mode_0))"
+" mode_11))"
 "(reader-error12.1"
+" unsafe-undefined"
+" unsafe-undefined"
 " #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
+" unsafe-undefined"
 " in31_2"
 " config32_1"
 " temp33_3"
 "(list"
 " escaping-c34_0"
-" temp35_3"
+" temp35_4"
 " mode36_0)))))"
 "(set-accum-string-count!"
 " accum-str_4"
-" pos_117)"
+" pos_98)"
 "(accum-string-add!"
 " accum-str_4"
 "(integer->char"
-" v_66)))))))))"
+" v_201)))))))))"
 "(if(unsafe-fx< index_3 14)"
 "(let-values()"
-"(let-values(((pos_102)"
+"(let-values(((pos_13)"
 "(accum-string-count"
 " accum-str_4)))"
 "(let-values(((v_248)"
 "(let-values(((in40_1)"
-" in_43)"
+" in_37)"
 "((config41_1)"
-" config_22)"
+" config_43)"
 "((accum-str42_0)"
 " accum-str_4)"
-"((temp43_3)"
+"((temp43_5)"
 " 16)"
 "((temp44_4)"
 " 2))"
-"(read-digits13.1"
-" temp43_3"
-" #f"
-" #f"
+"(read-digits12.1"
+" temp43_5"
+" 0"
 " temp44_4"
 " #f"
-" #f"
 " in40_1"
 " config41_1"
-" accum-str42_0"
-" #t))))"
+" accum-str42_0))))"
 "(begin"
 "(if(integer? v_248)"
 "(void)"
 "(let-values()"
 "(no-hex-digits"
-" in_43"
-" config_22"
+" in_37"
+" config_43"
 " v_248"
 " escaping-c_0"
 " escaped-c_0)))"
 "(set-accum-string-count!"
 " accum-str_4"
-" pos_102)"
+" pos_13)"
 "(accum-string-add!"
 " accum-str_4"
 "(integer->char"
@@ -54434,78 +53290,75 @@ static const char *startup_source =
 "(let-values((()"
 "(begin"
 "(if(eq?"
-" mode_0"
+" mode_11"
 " 'string)"
 "(void)"
 "(let-values()"
 "(unknown-error_0)))"
 "(values))))"
-"(let-values(((pos_118)"
+"(let-values(((pos_119)"
 "(accum-string-count"
 " accum-str_4)))"
-"(let-values(((v_252)"
+"(let-values(((v_249)"
 "(let-values(((in45_0)"
-" in_43)"
-"((config46_0)"
-" config_22)"
+" in_37)"
+"((config46_1)"
+" config_43)"
 "((accum-str47_0)"
 " accum-str_4)"
-"((temp48_1)"
+"((temp48_3)"
 " 16)"
-"((temp49_1)"
+"((temp49_2)"
 " 4))"
-"(read-digits13.1"
-" temp48_1"
-" #f"
-" #f"
-" temp49_1"
-" #f"
+"(read-digits12.1"
+" temp48_3"
+" 0"
+" temp49_2"
 " #f"
 " in45_0"
-" config46_0"
-" accum-str47_0"
-" #t))))"
+" config46_1"
+" accum-str47_0))))"
 "(begin"
 "(if(integer?"
-" v_252)"
+" v_249)"
 "(void)"
 "(let-values()"
 "(no-hex-digits"
-" in_43"
-" config_22"
-" v_252"
+" in_37"
+" config_43"
+" v_249"
 " escaping-c_0"
 " escaped-c_0)))"
-"(if(let-values(((or-part_255)"
+"(if(let-values(((or-part_63)"
 "(<"
-" v_252"
+" v_249"
 " 55296)))"
-"(if or-part_255"
-" or-part_255"
+"(if or-part_63"
+" or-part_63"
 "(>"
-" v_252"
+" v_249"
 " 57343)))"
 "(let-values()"
 "(begin"
 "(set-accum-string-count!"
 " accum-str_4"
-" pos_118)"
+" pos_119)"
 "(accum-string-add!"
 " accum-str_4"
 "(integer->char"
-" v_252))))"
+" v_249))))"
 "(let-values()"
 "(let-values(((next!_0)"
 "(lambda()"
 "(begin"
 " 'next!"
 "(let-values(((next-c_1)"
-"(let-values(((in_44)"
-" in_43)"
+"(let-values(((in_45)"
+" in_37)"
 "((source_30)"
 " source_26))"
 "(read-char-or-special"
-" in_44"
+" in_45"
 " special1.1"
 " source_30))))"
 "(begin"
@@ -54532,26 +53385,23 @@ static const char *startup_source =
 "(let-values()"
 "(let-values(((v2_9)"
 "(let-values(((in50_1)"
-" in_43)"
+" in_37)"
 "((config51_1)"
-" config_22)"
+" config_43)"
 "((accum-str52_1)"
 " accum-str_4)"
 "((temp53_3)"
 " 16)"
-"((temp54_2)"
+"((temp54_3)"
 " 4))"
-"(read-digits13.1"
+"(read-digits12.1"
 " temp53_3"
-" #f"
-" #f"
-" temp54_2"
-" #f"
+" 0"
+" temp54_3"
 " #f"
 " in50_1"
 " config51_1"
-" accum-str52_1"
-" #t))))"
+" accum-str52_1))))"
 "(if(integer?"
 " v2_9)"
 "(let-values()"
@@ -54577,7 +53427,7 @@ static const char *startup_source =
 "(+"
 "(arithmetic-shift"
 "(-"
-" v_252"
+" v_249"
 " 55296)"
 " 10)"
 "(-"
@@ -54589,146 +53439,35 @@ static const char *startup_source =
 " 1114111)"
 "(let-values()"
 "(let-values(((in55_2)"
-" in_43)"
+" in_37)"
 "((config56_1)"
-" config_22)"
-"((temp57_1)"
+" config_43)"
+"((temp57_2)"
 "                                                                                                                                      \"escape sequence `~au~a` is out of range in string\")"
 "((escaping-c58_0)"
 " escaping-c_0)"
-"((temp59_4)"
+"((temp59_5)"
 "(let-values(((accum-str60_0)"
 " accum-str_4)"
 "((config61_0)"
-" config_22)"
+" config_43)"
 "((pos62_0)"
-" pos_118))"
+" pos_119))"
 "(accum-string-get!6.1"
 " pos62_0"
-" #t"
 " accum-str60_0"
 " config61_0))))"
 "(reader-error12.1"
+" unsafe-undefined"
+" unsafe-undefined"
 " #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
+" unsafe-undefined"
 " in55_2"
 " config56_1"
-" temp57_1"
+" temp57_2"
 "(list"
 " escaping-c58_0"
-" temp59_4))))"
-"(let-values()"
-"(begin"
-"(set-accum-string-count!"
-" accum-str_4"
-" pos_118)"
-"(accum-string-add!"
-" accum-str_4"
-"(integer->char"
-" combined-v_0)))))))"
-"(let-values()"
-"(let-values(((in63_0)"
-" in_43)"
-"((config64_0)"
-" config_22)"
-"((v265_0)"
-" v2_8)"
-"((temp66_4)"
-"                                                                                                                                \"bad or incomplete surrogate-style encoding at `~au~a`\")"
-"((escaping-c67_0)"
-" escaping-c_0)"
-"((temp68_2)"
-"(let-values(((accum-str69_0)"
-" accum-str_4)"
-"((config70_1)"
-" config_22)"
-"((pos71_0)"
-" pos_118))"
-"(accum-string-get!6.1"
-" pos71_0"
-" #t"
-" accum-str69_0"
-" config70_1))))"
-"(reader-error12.1"
-" #f"
-" #f"
-" v265_0"
-" #t"
-" #f"
-" #f"
-" #f"
-" #f"
-" in63_0"
-" config64_0"
-" temp66_4"
-"(list"
-" escaping-c67_0"
-" temp68_2))))))))))))))"
-"(let-values()"
-"(let-values((()"
-"(begin"
-"(if(eq?"
-" mode_0"
-" 'string)"
-"(void)"
-"(let-values()"
-"(unknown-error_0)))"
-"(values))))"
-"(let-values(((pos_119)"
-"(accum-string-count"
-" accum-str_4)))"
-"(let-values(((v_253)"
-"(let-values(((in72_0)"
-" in_43)"
-"((config73_0)"
-" config_22)"
-"((accum-str74_0)"
-" accum-str_4)"
-"((temp75_2)"
-" 16)"
-"((temp76_0)"
-" 8))"
-"(read-digits13.1"
-" temp75_2"
-" #f"
-" #f"
-" temp76_0"
-" #f"
-" #f"
-" in72_0"
-" config73_0"
-" accum-str74_0"
-" #t))))"
-"(begin"
-"(if(integer?"
-" v_253)"
-"(void)"
-"(let-values()"
-"(no-hex-digits"
-" in_43"
-" config_22"
-" v_253"
-" escaping-c_0"
-" escaped-c_0)))"
-"(if(if(let-values(((or-part_55)"
-"(<"
-" v_253"
-" 55296)))"
-"(if or-part_55"
-" or-part_55"
-"(>"
-" v_253"
-" 57343)))"
-"(<="
-" v_253"
-" 1114111)"
-" #f)"
+" temp59_5))))"
 "(let-values()"
 "(begin"
 "(set-accum-string-count!"
@@ -54737,207 +53476,280 @@ static const char *startup_source =
 "(accum-string-add!"
 " accum-str_4"
 "(integer->char"
-" v_253))))"
+" combined-v_0)))))))"
+"(let-values()"
+"(let-values(((in63_0)"
+" in_37)"
+"((config64_0)"
+" config_43)"
+"((v265_0)"
+" v2_8)"
+"((temp66_4)"
+"                                                                                                                                \"bad or incomplete surrogate-style encoding at `~au~a`\")"
+"((escaping-c67_0)"
+" escaping-c_0)"
+"((temp68_4)"
+"(let-values(((accum-str69_0)"
+" accum-str_4)"
+"((config70_1)"
+" config_43)"
+"((pos71_0)"
+" pos_119))"
+"(accum-string-get!6.1"
+" pos71_0"
+" accum-str69_0"
+" config70_1))))"
+"(reader-error12.1"
+" unsafe-undefined"
+" v265_0"
+" #f"
+" unsafe-undefined"
+" in63_0"
+" config64_0"
+" temp66_4"
+"(list"
+" escaping-c67_0"
+" temp68_4))))))))))))))"
+"(let-values()"
+"(let-values((()"
+"(begin"
+"(if(eq?"
+" mode_11"
+" 'string)"
+"(void)"
+"(let-values()"
+"(unknown-error_0)))"
+"(values))))"
+"(let-values(((pos_20)"
+"(accum-string-count"
+" accum-str_4)))"
+"(let-values(((v_250)"
+"(let-values(((in72_0)"
+" in_37)"
+"((config73_0)"
+" config_43)"
+"((accum-str74_0)"
+" accum-str_4)"
+"((temp75_3)"
+" 16)"
+"((temp76_2)"
+" 8))"
+"(read-digits12.1"
+" temp75_3"
+" 0"
+" temp76_2"
+" #f"
+" in72_0"
+" config73_0"
+" accum-str74_0))))"
+"(begin"
+"(if(integer?"
+" v_250)"
+"(void)"
+"(let-values()"
+"(no-hex-digits"
+" in_37"
+" config_43"
+" v_250"
+" escaping-c_0"
+" escaped-c_0)))"
+"(if(if(let-values(((or-part_55)"
+"(<"
+" v_250"
+" 55296)))"
+"(if or-part_55"
+" or-part_55"
+"(>"
+" v_250"
+" 57343)))"
+"(<="
+" v_250"
+" 1114111)"
+" #f)"
+"(let-values()"
+"(begin"
+"(set-accum-string-count!"
+" accum-str_4"
+" pos_20)"
+"(accum-string-add!"
+" accum-str_4"
+"(integer->char"
+" v_250))))"
 "(let-values()"
 "(let-values(((in77_1)"
-" in_43)"
+" in_37)"
 "((config78_1)"
-" config_22)"
+" config_43)"
 "((temp79_1)"
 "                                                                                                                        \"escape sequence `~aU~a` is out of range in string\")"
 "((escaping-c80_0)"
 " escaping-c_0)"
-"((temp81_3)"
+"((temp81_2)"
 "(let-values(((accum-str82_0)"
 " accum-str_4)"
 "((config83_0)"
-" config_22)"
+" config_43)"
 "((pos84_0)"
-" pos_119))"
+" pos_20))"
 "(accum-string-get!6.1"
 " pos84_0"
-" #t"
 " accum-str82_0"
 " config83_0))))"
 "(reader-error12.1"
+" unsafe-undefined"
+" unsafe-undefined"
 " #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
+" unsafe-undefined"
 " in77_1"
 " config78_1"
 " temp79_1"
 "(list"
 " escaping-c80_0"
-" temp81_3)))))))))))))))))"
-"(loop_115)))))))"
-"                                                                  (if (char=? '#\\\" c_49)"
+" temp81_2)))))))))))))))))"
+"(loop_114)))))))"
+"                                                                  (if (char=? '#\\\" c_17)"
 "(let-values() null)"
 "(let-values()"
 "(begin"
-"(if(eq? mode_0 '|byte string|)"
+"(if(eq? mode_11 '|byte string|)"
 "(let-values()"
-"(if(byte?(char->integer c_49))"
+"(if(byte?(char->integer c_17))"
 "(void)"
 "(let-values()"
-"(let-values(((in85_0) in_43)"
-"((config86_0) config_22)"
-"((temp87_3)"
+"(let-values(((in85_0) in_37)"
+"((config86_0) config_43)"
+"((temp87_1)"
 "                                                                                              \"character `~a` is out of range in byte string\")"
-"((c88_0) c_49))"
+"((c88_0) c_17))"
 "(reader-error12.1"
+" unsafe-undefined"
+" unsafe-undefined"
 " #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
+" unsafe-undefined"
 " in85_0"
 " config86_0"
-" temp87_3"
+" temp87_1"
 "(list c88_0))))))"
 "(void))"
-"(accum-string-add! accum-str_4 c_49)"
-"(loop_115)))))))))))"
-" loop_115))"
+"(accum-string-add! accum-str_4 c_17)"
+"(loop_114)))))))))))"
+" loop_114))"
 "(values))))"
 "(let-values(((str_30)"
-"(if(eq? mode_0 '|byte string|)"
-"(let-values(((accum-str89_0) accum-str_4)((config90_0) config_22))"
-"(accum-string-get-bytes!13.1 #f #f accum-str89_0 config90_0))"
-"(let-values(((accum-str91_0) accum-str_4)((config92_0) config_22))"
-"(accum-string-get!6.1 #f #f accum-str91_0 config92_0)))))"
-"(wrap str_30 in_43 config_22 str_30))))))))))))))"
+"(if(eq? mode_11 '|byte string|)"
+"(let-values(((accum-str89_0) accum-str_4)((config90_0) config_43))"
+"(accum-string-get-bytes!13.1 0 accum-str89_0 config90_0))"
+"(let-values(((accum-str91_0) accum-str_4)((config92_0) config_43))"
+"(accum-string-get!6.1 0 accum-str91_0 config92_0)))))"
+"(wrap str_30 in_37 config_43 str_30))))))))))))))"
 "(define-values"
 "(read-here-string)"
-"(lambda(in_45 config_49)"
+"(lambda(in_46 config_46)"
 "(begin"
-"(let-values(((source_31)(read-config-source config_49)))"
-"(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_49)))"
+"(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(((full-terminator_0)"
 "(cons"
 " '#\\newline"
-"((letrec-values(((loop_116)"
+"((letrec-values(((loop_65)"
 "(lambda()"
 "(begin"
 " 'loop"
-"(let-values(((c_97)"
-"(let-values(((in_46) in_45)((source_32) source_31))"
-"(read-char-or-special in_46 special1.1 source_32))))"
-"(if(eof-object? c_97)"
+"(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()"
-"(let-values(((in93_0) in_45)"
-"((config94_0) config_49)"
-"((c95_0) c_97)"
+"(let-values(((in93_0) in_46)"
+"((config94_0) config_46)"
+"((c95_0) c_92)"
 "((temp96_2)"
 "                                                                     \"found end-of-file after `#<<` and before a newline\"))"
 "(reader-error12.1"
-" #f"
-" #f"
+" unsafe-undefined"
 " c95_0"
-" #t"
-" #f"
-" #f"
-" #f"
 " #f"
+" unsafe-undefined"
 " in93_0"
 " config94_0"
 " temp96_2"
 "(list))))"
-"(if(not(char? c_97))"
+"(if(not(char? c_92))"
 "(let-values()"
-"(let-values(((in97_0) in_45)"
-"((config98_0) config_49)"
-"((c99_0) c_97)"
-"((temp100_2)"
+"(let-values(((in97_0) in_46)"
+"((config98_0) config_46)"
+"((c99_0) c_92)"
+"((temp100_0)"
 "                                                                       \"found non-character while reading `#<<`\"))"
 "(reader-error12.1"
-" #f"
-" #f"
+" unsafe-undefined"
 " c99_0"
-" #t"
-" #f"
-" #f"
-" #f"
 " #f"
+" unsafe-undefined"
 " in97_0"
 " config98_0"
-" temp100_2"
+" temp100_0"
 "(list))))"
-"(if(char=? c_97 '#\\newline)"
+"(if(char=? c_92 '#\\newline)"
 "(let-values() null)"
-"(let-values()(cons c_97(loop_116)))))))))))"
-" loop_116)))))"
+"(let-values()(cons c_92(loop_65)))))))))))"
+" loop_65)))))"
 "(let-values((()"
 "(begin"
-"((letrec-values(((loop_117)"
+"((letrec-values(((loop_51)"
 "(lambda(terminator_0 terminator-accum_0)"
 "(begin"
 " 'loop"
-"(let-values(((c_98)"
-"(let-values(((in_47) in_45)((source_33) source_31))"
-"(read-char-or-special in_47 special1.1 source_33))))"
-"(if(eof-object? c_98)"
+"(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()"
 "(if(null? terminator_0)"
 "(void)"
 "(let-values()"
-"(let-values(((in101_0) in_45)"
-"((config102_0) config_49)"
-"((c103_0) c_98)"
+"(let-values(((in101_0) in_46)"
+"((config102_0) config_46)"
+"((c103_0) c_93)"
 "((open-end-pos104_0) open-end-pos_5)"
-"((temp105_2)"
+"((temp105_1)"
 "                                                                            \"found end-of-file before terminating `~a`\")"
-"((temp106_3)"
+"((temp106_1)"
 "(list->string(cdr full-terminator_0))))"
 "(reader-error12.1"
-" #f"
-" #f"
+" unsafe-undefined"
 " c103_0"
-" #t"
 " open-end-pos104_0"
-" #t"
-" #f"
-" #f"
+" unsafe-undefined"
 " in101_0"
 " config102_0"
-" temp105_2"
-"(list temp106_3))))))"
-"(if(not(char? c_98))"
+" temp105_1"
+"(list temp106_1))))))"
+"(if(not(char? c_93))"
 "(let-values()"
-"(let-values(((in107_0) in_45)"
-"((config108_0) config_49)"
-"((c109_0) c_98)"
-"((temp110_3)"
+"(let-values(((in107_0) in_46)"
+"((config108_0) config_46)"
+"((c109_0) c_93)"
+"((temp110_2)"
 "                                                                          \"found non-character while reading `#<<`\"))"
 "(reader-error12.1"
-" #f"
-" #f"
+" unsafe-undefined"
 " c109_0"
-" #t"
-" #f"
-" #f"
-" #f"
 " #f"
+" unsafe-undefined"
 " in107_0"
 " config108_0"
-" temp110_3"
+" temp110_2"
 "(list))))"
 "(if(if(pair? terminator_0)"
-"(char=? c_98(car terminator_0))"
+"(char=? c_93(car terminator_0))"
 " #f)"
 "(let-values()"
-"(loop_117"
+"(loop_51"
 "(cdr terminator_0)"
 "(cons(car terminator_0) terminator-accum_0)))"
-"(if(if(null? terminator_0)(char=? c_98 '#\\newline) #f)"
+"(if(if(null? terminator_0)(char=? c_93 '#\\newline) #f)"
 "(let-values()(void))"
 "(let-values()"
 "(begin"
@@ -54945,24 +53757,24 @@ static const char *startup_source =
 "(void)"
 "(let-values()"
 "(begin"
-"(let-values(((lst_230)"
+"(let-values(((lst_304)"
 "(reverse$1 terminator-accum_0)))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
 "(#%variable-reference))"
 "(void)"
-"(let-values()(check-list lst_230)))"
-"((letrec-values(((for-loop_279)"
-"(lambda(lst_308)"
+"(let-values()(check-list lst_304)))"
+"((letrec-values(((for-loop_277)"
+"(lambda(lst_28)"
 "(begin"
 " 'for-loop"
-"(if(pair? lst_308)"
-"(let-values(((c_12)"
+"(if(pair? lst_28)"
+"(let-values(((c_94)"
 "(unsafe-car"
-" lst_308))"
-"((rest_172)"
+" lst_28))"
+"((rest_179)"
 "(unsafe-cdr"
-" lst_308)))"
+" lst_28)))"
 "(let-values((()"
 "(let-values()"
 "(let-values((()"
@@ -54971,135 +53783,143 @@ static const char *startup_source =
 "(let-values()"
 "(accum-string-add!"
 " accum-str_5"
-" c_12))"
+" c_94))"
 "(values)))))"
 "(values)))))"
 "(if(not #f)"
-"(for-loop_279"
-" rest_172)"
+"(for-loop_277"
+" rest_179)"
 "(values))))"
 "(values))))))"
-" for-loop_279)"
-" lst_230)))"
+" for-loop_277)"
+" lst_304)))"
 "(void))))"
-"(if(char=? c_98 '#\\newline)"
+"(if(char=? c_93 '#\\newline)"
 "(let-values()"
-"(loop_117"
+"(loop_51"
 "(cdr full-terminator_0)"
 "(list '#\\newline)))"
 "(let-values()"
 "(begin"
-"(accum-string-add! accum-str_5 c_98)"
-"(loop_117 full-terminator_0 null)))))))))))))))"
-" loop_117)"
+"(accum-string-add! accum-str_5 c_93)"
+"(loop_51 full-terminator_0 null)))))))))))))))"
+" loop_51)"
 "(cdr full-terminator_0)"
 " null)"
 "(values))))"
 "(let-values(((str_31)"
-"(let-values(((accum-str111_0) accum-str_5)((config112_0) config_49))"
-"(accum-string-get!6.1 #f #f accum-str111_0 config112_0))))"
-"(wrap str_31 in_45 config_49 str_31))))))))))"
+"(let-values(((accum-str111_0) accum-str_5)((config112_0) config_46))"
+"(accum-string-get!6.1 0 accum-str111_0 config112_0))))"
+"(wrap str_31 in_46 config_46 str_31))))))))))"
 "(define-values"
 "(no-hex-digits)"
-"(lambda(in_48 config_50 c_99 escaping-c_1 escaped-c_1)"
+"(lambda(in_49 config_47 c_95 escaping-c_1 escaped-c_1)"
 "(begin"
-"(let-values(((in113_0) in_48)"
-"((config114_0) config_50)"
-"((c115_0) c_99)"
-"                   ((temp116_0) \"no hex digit following `~a~a`\")"
+"(let-values(((in113_0) in_49)"
+"((config114_0) config_47)"
+"((c115_0) c_95)"
+"                   ((temp116_1) \"no hex digit following `~a~a`\")"
 "((escaping-c117_0) escaping-c_1)"
 "((escaped-c118_0) escaped-c_1))"
 "(reader-error12.1"
-" #f"
-" #f"
+" unsafe-undefined"
 " c115_0"
-" #t"
-" #f"
-" #f"
-" #f"
 " #f"
+" unsafe-undefined"
 " in113_0"
 " config114_0"
-" temp116_0"
+" temp116_1"
 "(list escaping-c117_0 escaped-c118_0))))))"
 "(define-values"
 "(read-character)"
 "(lambda(in_4 config_8)"
 "(begin"
-"(let-values(((c_100)"
-"(let-values(((in_43) in_4)((source_34)(read-config-source config_8)))"
-"(read-char-or-special in_43 special1.1 source_34))))"
+"(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(((char_0)"
-"(if(eof-object? c_100)"
+"(if(eof-object? c_96)"
 "(let-values()"
 "(let-values(((in1_7) in_4)"
 "((config2_6) config_8)"
-"((c3_5) c_100)"
+"((c3_5) c_96)"
 "                                       ((temp4_5) \"expected a character after `#\\\\`\"))"
-"(reader-error12.1 #f #f c3_5 #t #f #f #f #f in1_7 config2_6 temp4_5(list))))"
-"(if(not(char? c_100))"
+"(reader-error12.1"
+" unsafe-undefined"
+" c3_5"
+" #f"
+" unsafe-undefined"
+" in1_7"
+" config2_6"
+" temp4_5"
+"(list))))"
+"(if(not(char? c_96))"
 "(let-values()"
 "(let-values(((in5_1) in_4)"
 "((config6_0) config_8)"
-"((c7_1) c_100)"
+"((c7_2) c_96)"
 "                                         ((temp8_3) \"found non-character after `#\\\\`\"))"
-"(reader-error12.1 #f #f c7_1 #t #f #f #f #f in5_1 config6_0 temp8_3(list))))"
-"(if(octal-digit? c_100)"
+"(reader-error12.1"
+" unsafe-undefined"
+" c7_2"
+" #f"
+" unsafe-undefined"
+" in5_1"
+" config6_0"
+" temp8_3"
+"(list))))"
+"(if(octal-digit? c_96)"
 "(let-values()"
 "(let-values(((c2_5)"
-"(let-values(((in_49) in_4)"
+"(let-values(((in_51) in_4)"
 "((skip-count_11) 0)"
-"((source_35)(read-config-source config_8)))"
-"(let-values(((c_47)"
+"((source_34)(read-config-source config_8)))"
+"(let-values(((c_48)"
 "(peek-char-or-special"
-" in_49"
+" in_51"
 " skip-count_11"
 " 'special"
-" source_35)))"
-"(if(eq? c_47 'special)(special1.1 'special) c_47)))))"
+" source_34)))"
+"(if(eq? c_48 'special)(special1.1 'special) c_48)))))"
 "(if(if(char? c2_5)(octal-digit? c2_5) #f)"
 "(let-values()"
 "(let-values((()(begin(consume-char in_4 c2_5)(values))))"
 "(let-values(((c3_6)"
-"(let-values(((in_50) in_4)"
+"(let-values(((in_52) in_4)"
 "((source_6)(read-config-source config_8)))"
-"(read-char-or-special in_50 special1.1 source_6))))"
-"(let-values(((v_96)"
+"(read-char-or-special in_52 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_100) 6)"
+"(arithmetic-shift(digit->number c_96) 6)"
 "(arithmetic-shift(digit->number c2_5) 3)"
 "(digit->number c3_6)))"
 "(let-values() #f))))"
 "(begin"
-"(if(if v_96(<= v_96 255) #f)"
+"(if(if v_231(<= v_231 255) #f)"
 "(void)"
 "(let-values()"
-"(let-values(((in9_3) in_4)"
+"(let-values(((in9_2) in_4)"
 "((config10_2) config_8)"
 "((c311_0) c3_6)"
 "                                                             ((temp12_7) \"bad character constant `#\\\\~a~a~a`\")"
-"((c13_2) c_100)"
+"((c13_1) c_96)"
 "((c214_0) c2_5)"
 "                                                             ((temp15_6) (if (char? c3_6) c3_6 \"\")))"
 "(reader-error12.1"
-" #f"
-" #f"
+" unsafe-undefined"
 " c311_0"
-" #t"
 " #f"
-" #f"
-" #f"
-" #f"
-" in9_3"
+" unsafe-undefined"
+" in9_2"
 " config10_2"
 " temp12_7"
-"(list c13_2 c214_0 temp15_6)))))"
-"(integer->char v_96))))))"
-"(let-values() c_100))))"
-"(if(let-values(((or-part_83)(char=? c_100 '#\\u)))"
-"(if or-part_83 or-part_83(char=? c_100 '#\\U)))"
+"(list c13_1 c214_0 temp15_6)))))"
+"(integer->char v_231))))))"
+"(let-values() c_96))))"
+"(if(let-values(((or-part_81)(char=? c_96 '#\\u)))"
+"(if or-part_81 or-part_81(char=? c_96 '#\\U)))"
 "(let-values()"
 "(let-values(((accum-str_6)(accum-string-init! config_8)))"
 "(let-values(((v_33)"
@@ -55107,22 +53927,19 @@ static const char *startup_source =
 "((config17_1) config_8)"
 "((accum-str18_1) accum-str_6)"
 "((temp19_4) 16)"
-"((temp20_5)(if(char=? c_100 '#\\u) 4 8)))"
-"(read-digits13.1"
+"((temp20_5)(if(char=? c_96 '#\\u) 4 8)))"
+"(read-digits12.1"
 " temp19_4"
-" #f"
-" #f"
+" 0"
 " temp20_5"
 " #f"
-" #f"
 " in16_1"
 " config17_1"
-" accum-str18_1"
-" #t))))"
+" accum-str18_1))))"
 "(if(integer? v_33)"
 "(let-values()"
-"(if(if(let-values(((or-part_94)(< v_33 55296)))"
-"(if or-part_94 or-part_94(> v_33 57343)))"
+"(if(if(let-values(((or-part_97)(< v_33 55296)))"
+"(if or-part_97 or-part_97(> v_33 57343)))"
 "(<= v_33 1114111)"
 " #f)"
 "(let-values()"
@@ -55130,34 +53947,30 @@ static const char *startup_source =
 "(let-values()"
 "(let-values(((in21_2) in_4)"
 "((config22_2) config_8)"
-"                                                         ((temp23_4) \"bad character constant `#\\\\u~a`\")"
-"((temp24_8)"
+"                                                         ((temp23_5) \"bad character constant `#\\\\u~a`\")"
+"((temp24_9)"
 "(let-values(((accum-str25_0) accum-str_6)"
 "((config26_1) config_8))"
-"(accum-string-get!6.1 #f #f accum-str25_0 config26_1))))"
+"(accum-string-get!6.1 0 accum-str25_0 config26_1))))"
 "(reader-error12.1"
+" unsafe-undefined"
+" unsafe-undefined"
 " #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
+" unsafe-undefined"
 " in21_2"
 " config22_2"
-" temp23_4"
-"(list temp24_8))))))"
-"(let-values()(begin(accum-string-abandon! accum-str_6 config_8) c_100))))))"
-"(if(char-alphabetic? c_100)"
+" 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()"
 "(let-values(((next-c_4)"
-"(let-values(((in_51) in_4)"
+"(let-values(((in_53) in_4)"
 "((skip-count_12) 0)"
 "((source_10)(read-config-source config_8)))"
 "(let-values(((c_15)"
 "(peek-char-or-special"
-" in_51"
+" in_53"
 " skip-count_12"
 " 'special"
 " source_10)))"
@@ -55165,35 +53978,35 @@ 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_100)(values))))"
+"(let-values((()(begin(accum-string-add! accum-str_7 c_96)(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((()"
 "(begin"
-"((letrec-values(((loop_108)"
+"((letrec-values(((loop_104)"
 "(lambda()"
 "(begin"
 " 'loop"
 "(let-values(((next-c_5)"
-"(let-values(((in_20)"
+"(let-values(((in_54)"
 " in_4)"
-"((skip-count_4)"
+"((skip-count_13)"
 " 0)"
-"((source_13)"
+"((source_35)"
 "(read-config-source"
 " config_8)))"
-"(let-values(((c_73)"
+"(let-values(((c_97)"
 "(peek-char-or-special"
-" in_20"
-" skip-count_4"
+" in_54"
+" skip-count_13"
 " 'special"
-" source_13)))"
+" source_35)))"
 "(if(eq?"
-" c_73"
+" c_97"
 " 'special)"
 "(special1.1"
 " 'special)"
-" c_73)))))"
+" c_97)))))"
 "(if(if(char? next-c_5)"
 "(char-alphabetic?"
 " next-c_5)"
@@ -55206,19 +54019,15 @@ static const char *startup_source =
 "(consume-char"
 " in_4"
 " next-c_5)"
-"(loop_108)))"
+"(loop_104)))"
 "(void)))))))"
-" loop_108))"
+" loop_104))"
 "(values))))"
 "(let-values(((name_68)"
 "(string-foldcase"
 "(let-values(((accum-str27_0) accum-str_7)"
 "((config28_1) config_8))"
-"(accum-string-get!6.1"
-" #f"
-" #f"
-" accum-str27_0"
-" config28_1)))))"
+"(accum-string-get!6.1 0 accum-str27_0 config28_1)))))"
 "(let-values(((tmp_54) name_68))"
 "                                                      (if (if (equal? tmp_54 \"nul\") #t (equal? tmp_54 \"null\"))"
 "(let-values() '#\\nul)"
@@ -55243,88 +54052,88 @@ static const char *startup_source =
 "(let-values()"
 "(let-values(((in29_0) in_4)"
 "((config30_0) config_8)"
-"((temp31_5)"
+"((temp31_3)"
 "                                                                                        \"bad character constant `#\\\\~a`\")"
 "((name32_0) name_68))"
 "(reader-error12.1"
+" unsafe-undefined"
+" unsafe-undefined"
 " #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
+" unsafe-undefined"
 " in29_0"
 " config30_0"
-" temp31_5"
+" temp31_3"
 "(list name32_0)))))))))))))))))))))"
-"(let-values() c_100))))"
-"(let-values() c_100))))))))"
+"(let-values() c_96))))"
+"(let-values() c_96))))))))"
 "(wrap char_0 in_4 config_8 char_0))))))"
 "(define-values"
 "(read-quote)"
-"(lambda(read-one_3 sym_29 desc_0 c_35 in_43 config_22)"
+"(lambda(read-one_3 sym_31 desc_0 c_35 in_50 config_22)"
 "(begin"
-"(let-values(((wrapped-sym_0)(wrap sym_29 in_43 config_22 c_35)))"
-"(let-values(((end-line_1 end-col_1 end-pos_3)(port-next-location in_43)))"
-"(let-values(((e_85)(read-one_3 #f in_43 config_22)))"
+"(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)))"
 "(begin"
-"(if(eof-object? e_85)"
+"(if(eof-object? e_83)"
 "(let-values()"
-"(let-values(((in1_8) in_43)"
+"(let-values(((in1_8) in_50)"
 "((config2_7) config_22)"
-"((e3_0) e_85)"
+"((e3_0) e_83)"
 "((end-pos4_1) end-pos_3)"
 "                               ((temp5_7) \"expected an element for ~a, found end-of-file\")"
 "((desc6_0) desc_0))"
-"(reader-error12.1 #f #f e3_0 #t end-pos4_1 #t #f #f in1_8 config2_7 temp5_7(list desc6_0))))"
+"(reader-error12.1"
+" unsafe-undefined"
+" e3_0"
+" end-pos4_1"
+" unsafe-undefined"
+" in1_8"
+" config2_7"
+" temp5_7"
+"(list desc6_0))))"
 "(void))"
-"(wrap(list wrapped-sym_0 e_85) in_43 config_22 #f))))))))"
+"(wrap(list wrapped-sym_0 e_83) in_50 config_22 #f))))))))"
 "(define-values"
 "(read-delimited-constant)"
-"(lambda(init-c_1 can-match?_0 chars_0 val_82 in_43 config_22)"
+"(lambda(init-c_1 can-match?_0 chars_0 val_79 in_50 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_118)"
+"((letrec-values(((loop_115)"
 "(lambda(chars_1)"
 "(begin"
 " 'loop"
 "(let-values(((c_37)"
-"(let-values(((in_52) in_43)"
-"((skip-count_13) 0)"
+"(let-values(((in_55) in_50)"
+"((skip-count_14) 0)"
 "((source_4)(read-config-source config_22)))"
-"(let-values(((c_95)"
+"(let-values(((c_98)"
 "(peek-char-or-special"
-" in_52"
-" skip-count_13"
+" in_55"
+" skip-count_14"
 " 'special"
 " source_4)))"
-"(if(eq? c_95 'special)(special1.1 'special) c_95)))))"
+"(if(eq? c_98 'special)(special1.1 'special) c_98)))))"
 "(if(char-delimiter? c_37 config_22)"
 "(let-values()"
 "(if(null? chars_1)"
 "(void)"
 "(let-values()"
-"(let-values(((in1_9) in_43)"
+"(let-values(((in1_9) in_50)"
 "((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 #f #f accum-str6_0 config7_1))))"
+"(accum-string-get!6.1 0 accum-str6_0 config7_1))))"
 "(reader-error12.1"
-" #f"
-" #f"
+" unsafe-undefined"
 " c3_7"
-" #t"
-" #f"
-" #f"
-" #f"
 " #f"
+" unsafe-undefined"
 " in1_9"
 " config2_8"
 " temp4_6"
@@ -55333,22 +54142,18 @@ static const char *startup_source =
 "(let-values()"
 "(begin"
 "(accum-string-add! accum-str_8 c_37)"
-"(let-values(((in8_1) in_43)"
+"(let-values(((in8_1) in_50)"
 "((config9_2) config_22)"
 "                                                       ((temp10_5) \"bad syntax `#~a`\")"
 "((temp11_5)"
 "(let-values(((accum-str12_0) accum-str_8)"
 "((config13_1) config_22))"
-"(accum-string-get!6.1 #f #f accum-str12_0 config13_1))))"
+"(accum-string-get!6.1 0 accum-str12_0 config13_1))))"
 "(reader-error12.1"
+" unsafe-undefined"
+" unsafe-undefined"
 " #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
+" unsafe-undefined"
 " in8_1"
 " config9_2"
 " temp10_5"
@@ -55356,41 +54161,37 @@ static const char *startup_source =
 "(if(if can-match?_0(char=? c_37(car chars_1)) #f)"
 "(let-values()"
 "(begin"
-"(consume-char in_43 c_37)"
+"(consume-char in_50 c_37)"
 "(accum-string-add! accum-str_8 c_37)"
-"(loop_118(cdr chars_1))))"
+"(loop_115(cdr chars_1))))"
 "(let-values()"
 "(begin"
-"(consume-char/special in_43 config_22 c_37)"
+"(consume-char/special in_50 config_22 c_37)"
 "(accum-string-add! accum-str_8 c_37)"
-"(let-values(((in14_1) in_43)"
+"(let-values(((in14_1) in_50)"
 "((config15_2) config_22)"
-"                                                         ((temp16_7) \"bad syntax `#~a`\")"
-"((temp17_3)"
+"                                                         ((temp16_4) \"bad syntax `#~a`\")"
+"((temp17_5)"
 "(let-values(((accum-str18_2) accum-str_8)"
-"((config19_1) config_22))"
-"(accum-string-get!6.1 #f #f accum-str18_2 config19_1))))"
+"((config19_3) config_22))"
+"(accum-string-get!6.1 0 accum-str18_2 config19_3))))"
 "(reader-error12.1"
+" unsafe-undefined"
+" unsafe-undefined"
 " #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
+" unsafe-undefined"
 " in14_1"
 " config15_2"
-" temp16_7"
-"(list temp17_3)))))))))))))"
-" loop_118)"
+" temp16_4"
+"(list temp17_5)))))))))))))"
+" loop_115)"
 " chars_0)"
 "(wrap"
-" val_82"
-" in_43"
+" val_79"
+" in_50"
 " config_22"
 "(let-values(((accum-str20_0) accum-str_8)((config21_1) config_22))"
-"(accum-string-get!6.1 #f #f accum-str20_0 config21_1))))))))"
+"(accum-string-get!6.1 0 accum-str20_0 config21_1))))))))"
 "(define-values"
 "(read-box)"
 "(lambda(read-one_3 dispatch-c_1 in_5 config_15)"
@@ -55404,41 +54205,45 @@ static const char *startup_source =
 "((config2_6) config_15)"
 "                                       ((temp3_8) \"`~a&` forms not enabled\")"
 "((dispatch-c4_0) dispatch-c_1))"
-"(reader-error12.1 #f #f #f #f #f #f #f #f in1_7 config2_6 temp3_8(list dispatch-c4_0)))))"
+"(reader-error12.1"
+" unsafe-undefined"
+" unsafe-undefined"
+" #f"
+" unsafe-undefined"
+" in1_7"
+" config2_6"
+" temp3_8"
+"(list dispatch-c4_0)))))"
 "(values))))"
 "(let-values(((open-end-line_6 open-end-col_6 open-end-pos_6)(port-next-location in_5)))"
-"(let-values(((e_86)(read-one_3 #f in_5(next-readtable config_15))))"
+"(let-values(((e_84)(read-one_3 #f in_5(next-readtable config_15))))"
 "(begin"
-"(if(eof-object? e_86)"
+"(if(eof-object? e_84)"
 "(let-values()"
 "(let-values(((in5_1) in_5)"
 "((config6_0) config_15)"
-"((e7_1) e_86)"
+"((e7_1) e_84)"
 "((open-end-pos8_0) open-end-pos_6)"
 "                               ((temp9_6) \"expected an element for `~a&` box, found end-of-file\")"
 "((dispatch-c10_0) dispatch-c_1))"
 "(reader-error12.1"
-" #f"
-" #f"
+" unsafe-undefined"
 " e7_1"
-" #t"
 " open-end-pos8_0"
-" #t"
-" #f"
-" #f"
+" unsafe-undefined"
 " in5_1"
 " config6_0"
 " temp9_6"
 "(list dispatch-c10_0))))"
 "(void))"
-"(wrap(box e_86) in_5 config_15 #f))))))))"
+"(wrap(box e_84) in_5 config_15 #f))))))))"
 "(define-values"
 "(read-regexp)"
 "(lambda(mode-c_0 accum-str_9 in_5 config_15)"
 "(begin"
 "(let-values(((c3_8)"
-"(let-values(((in_53) in_5)((source_36)(read-config-source config_15)))"
-"(read-char-or-special in_53 special1.1 source_36))))"
+"(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(((no-wrap-config_0)(disable-wrapping config_15)))"
 "(let-values(((rx_0)"
 "(let-values(((tmp_55) c3_8))"
@@ -55447,7 +54252,7 @@ static const char *startup_source =
 "(let-values((()(begin(accum-string-abandon! accum-str_9 config_15)(values))))"
 "(let-values(((str_32)"
 "(let-values(((in1_8) in_5)((no-wrap-config2_0) no-wrap-config_0))"
-"(read-string5.1 #f #f in1_8 no-wrap-config2_0))))"
+"(read-string5.1 'string in1_8 no-wrap-config2_0))))"
 "(catch-and-reraise-as-reader/proc"
 " in_5"
 " config_15"
@@ -55456,9 +54261,9 @@ static const char *startup_source =
 "(let-values()"
 "(let-values((()(begin(accum-string-add! accum-str_9 c3_8)(values))))"
 "(let-values(((c4_2)"
-"(let-values(((in_28) in_5)"
-"((source_37)(read-config-source config_15)))"
-"(read-char-or-special in_28 special1.1 source_37))))"
+"(let-values(((in_20) in_5)"
+"((source_17)(read-config-source config_15)))"
+"(read-char-or-special in_20 special1.1 source_17))))"
 "(let-values(((tmp_56) c4_2))"
 "                                      (if (equal? tmp_56 '#\\\")"
 "(let-values()"
@@ -55468,7 +54273,7 @@ static const char *startup_source =
 "(let-values(((in3_1) in_5)"
 "((no-wrap-config4_0) no-wrap-config_0)"
 "((temp5_9) '|byte string|))"
-"(read-string5.1 temp5_9 #t in3_1 no-wrap-config4_0))))"
+"(read-string5.1 temp5_9 in3_1 no-wrap-config4_0))))"
 "(catch-and-reraise-as-reader/proc"
 " in_5"
 " config_15"
@@ -55478,319 +54283,283 @@ static const char *startup_source =
 "(let-values(((in6_2) in_5)"
 "((config7_2) config_15)"
 "((c48_0) c4_2)"
-"                                                       ((temp9_7) \"expected `\\\"` after `~a`\")"
-"((temp10_6)"
+"                                                       ((temp9_0) \"expected `\\\"` after `~a`\")"
+"((temp10_2)"
 "(let-values(((accum-str11_0) accum-str_9)"
-"((config12_3) config_15))"
-"(accum-string-get!6.1 #f #f accum-str11_0 config12_3))))"
+"((config12_2) config_15))"
+"(accum-string-get!6.1 0 accum-str11_0 config12_2))))"
 "(reader-error12.1"
-" #f"
-" #f"
+" unsafe-undefined"
 " c48_0"
-" #t"
-" #f"
-" #f"
-" #f"
 " #f"
+" unsafe-undefined"
 " in6_2"
 " config7_2"
-" temp9_7"
-"(list temp10_6)))))))))"
+" temp9_0"
+"(list temp10_2)))))))))"
 "(let-values()"
 "(let-values(((in13_2) in_5)"
 "((config14_2) config_15)"
 "((c315_0) c3_8)"
-"                                             ((temp16_8) \"expected `\\\"` or `#` after `~a`\")"
-"((temp17_4)"
-"(let-values(((accum-str18_3) accum-str_9)((config19_2) config_15))"
-"(accum-string-get!6.1 #f #f accum-str18_3 config19_2))))"
+"                                             ((temp16_7) \"expected `\\\"` or `#` after `~a`\")"
+"((temp17_6)"
+"(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"
-" #f"
-" #f"
+" unsafe-undefined"
 " c315_0"
-" #t"
-" #f"
-" #f"
-" #f"
 " #f"
+" unsafe-undefined"
 " in13_2"
 " config14_2"
-" temp16_8"
-"(list temp17_4)))))))))"
+" temp16_7"
+"(list temp17_6)))))))))"
 "(wrap rx_0 in_5 config_15 #f)))))))"
 "(define-values"
 "(read-extension-reader)"
-"(lambda(read-one_9 read-recur_0 dispatch-c_2 in_25 config_24)"
+"(lambda(read-one_9 read-recur_0 dispatch-c_2 in_57 config_24)"
 "(begin"
 "(let-values(((extend-str_0)"
-"(read-extension-prefix(cons dispatch-c_2 '(#\\r #\\e)) '(#\\a #\\d #\\e #\\r) in_25 config_24)))"
+"(read-extension-prefix(cons dispatch-c_2 '(#\\r #\\e)) '(#\\a #\\d #\\e #\\r) in_57 config_24)))"
 "(let-values((()"
 "(begin"
 "(if(check-parameter 1/read-accept-reader config_24)"
 "(void)"
 "(let-values()"
-"(let-values(((in52_0) in_25)"
+"(let-values(((in52_0) in_57)"
 "((config53_1) config_24)"
-"                                         ((temp54_3) \"`~a` not enabled\")"
+"                                         ((temp54_4) \"`~a` not enabled\")"
 "((extend-str55_0) extend-str_0))"
 "(reader-error12.1"
+" unsafe-undefined"
+" unsafe-undefined"
 " #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
+" unsafe-undefined"
 " in52_0"
 " config53_1"
-" temp54_3"
+" temp54_4"
 "(list extend-str55_0)))))"
 "(values))))"
-"(let-values(((mod-path-wrapped_0)(read-one_9 #f in_25(next-readtable config_24))))"
+"(let-values(((mod-path-wrapped_0)(read-one_9 #f in_57(next-readtable config_24))))"
 "(begin"
 "(if(eof-object? mod-path-wrapped_0)"
 "(let-values()"
-"(let-values(((in56_0) in_25)"
+"(let-values(((in56_0) in_57)"
 "((config57_1) config_24)"
 "((mod-path-wrapped58_0) mod-path-wrapped_0)"
-"                               ((temp59_5) \"expected a datum after `~a`, found end-of-file\")"
+"                               ((temp59_6) \"expected a datum after `~a`, found end-of-file\")"
 "((extend-str60_0) extend-str_0))"
 "(reader-error12.1"
-" #f"
-" #f"
+" unsafe-undefined"
 " mod-path-wrapped58_0"
-" #t"
-" #f"
-" #f"
-" #f"
 " #f"
+" unsafe-undefined"
 " in56_0"
 " config57_1"
-" temp59_5"
+" temp59_6"
 "(list extend-str60_0))))"
 "(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_25)"
+"((in49_0) in_57)"
 "((config50_0) config_24)"
 "((mod-path-wrapped51_0) mod-path-wrapped_0))"
 "(read-extension44.1"
 " #f"
-" #f"
 " mod-path-wrapped51_0"
-" #t"
-" #f"
-" #f"
-" #f"
 " #f"
+" '|#reader|"
 " temp47_1"
 " read-recur48_0"
 " in49_0"
 " config50_0)))))))))"
 "(define-values"
 "(read-extension-lang7.1)"
-"(lambda(get-info?1_0 get-info?2_0 read-recur3_0 dispatch-c4_1 in5_2 config6_1)"
+"(lambda(get-info?1_0 read-recur3_0 dispatch-c4_1 in5_2 config6_1)"
 "(begin"
 " 'read-extension-lang7"
 "(let-values(((read-recur_1) read-recur3_0))"
 "(let-values(((dispatch-c_3) dispatch-c4_1))"
-"(let-values(((in_54) in5_2))"
-"(let-values(((config_51) config6_1))"
-"(let-values(((get-info?_0)(if get-info?2_0 get-info?1_0 #f)))"
+"(let-values(((in_13) in5_2))"
+"(let-values(((config_48) 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_54 config_51)))"
-"(let-values(((c_101)"
-"(let-values(((in_14) in_54)((source_17)(read-config-source config_51)))"
-"(read-char-or-special in_14 special1.1 source_17))))"
+"(read-extension-prefix(cons dispatch-c_3 '(#\\l)) '(#\\a #\\n #\\g) in_13 config_48)))"
+"(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))))"
 "(begin"
-"(if(char=? c_101 '#\\space)"
+"(if(char=? c_69 '#\\space)"
 "(void)"
 "(let-values()"
-"(let-values(((in67_1) in_54)"
-"((config68_1) config_51)"
-"                                         ((temp69_1) \"expected a single space after `~a`\")"
+"(let-values(((in67_1) in_13)"
+"((config68_1) config_48)"
+"                                         ((temp69_2) \"expected a single space after `~a`\")"
 "((extend-str70_0) extend-str_1))"
 "(reader-error12.1"
+" unsafe-undefined"
+" unsafe-undefined"
 " #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
+" unsafe-undefined"
 " in67_1"
 " config68_1"
-" temp69_1"
+" temp69_2"
 "(list extend-str70_0)))))"
 "(let-values(((extend-str61_0) extend-str_1)"
 "((read-recur62_0) read-recur_1)"
-"((in63_1) in_54)"
-"((config64_1) config_51)"
-"((temp65_4) '|#lang|)"
+"((in63_1) in_13)"
+"((config64_1) config_48)"
+"((temp65_3) '|#lang|)"
 "((get-info?66_0) get-info?_0))"
 "(read-lang29.1"
 " get-info?66_0"
-" #t"
 " #f"
-" #f"
-" temp65_4"
+" temp65_3"
 " extend-str61_0"
 " read-recur62_0"
 " in63_1"
 " config64_1))))))))))))))"
 "(define-values"
 "(read-extension-#!16.1)"
-"(lambda(get-info?10_0 get-info?11_0 read-recur12_0 dispatch-c13_0 in14_2 config15_3)"
+"(lambda(get-info?10_0 read-recur12_0 dispatch-c13_0 in14_2 config15_3)"
 "(begin"
 " 'read-extension-#!16"
 "(let-values(((read-recur_2) read-recur12_0))"
 "(let-values(((dispatch-c_4) dispatch-c13_0))"
-"(let-values(((in_55) in14_2))"
-"(let-values(((config_52) config15_3))"
-"(let-values(((get-info?_1)(if get-info?11_0 get-info?10_0 #f)))"
+"(let-values(((in_59) in14_2))"
+"(let-values(((config_49) config15_3))"
+"(let-values(((get-info?_1) get-info?10_0))"
 "(let-values()"
-"(let-values(((c_102)"
-"(let-values(((in_56) in_55)((source_38)(read-config-source config_52)))"
-"(read-char-or-special in_56 special1.1 source_38))))"
+"(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))))"
 "(begin"
-"(if(char-lang-nonsep? c_102)"
+"(if(char-lang-nonsep? c_99)"
 "(void)"
 "(let-values()"
-"(let-values(((in78_0) in_55)"
-"((config79_0) config_52)"
-"((temp80_3)"
-"(if(char? c_102)(string dispatch-c_4 '#\\! c_102)(string dispatch-c_4 '#\\!))))"
-"(bad-syntax-error20.1 #f #f in78_0 config79_0 temp80_3))))"
-"(let-values(((temp71_3)(string dispatch-c_4 '#\\!))"
+"(let-values(((in78_0) in_59)"
+"((config79_0) config_49)"
+"((temp80_1)"
+"(if(char? c_99)(string dispatch-c_4 '#\\! c_99)(string dispatch-c_4 '#\\!))))"
+"(bad-syntax-error20.1 unsafe-undefined in78_0 config79_0 temp80_1))))"
+"(let-values(((temp71_1)(string dispatch-c_4 '#\\!))"
 "((read-recur72_0) read-recur_2)"
-"((in73_0) in_55)"
-"((config74_0) config_52)"
-"((c75_0) c_102)"
-"((temp76_1) '|#!|)"
+"((in73_0) in_59)"
+"((config74_0) config_49)"
+"((c75_0) c_99)"
+"((temp76_3) '|#!|)"
 "((get-info?77_0) get-info?_1))"
 "(read-lang29.1"
 " get-info?77_0"
-" #t"
 " c75_0"
-" #t"
-" temp76_1"
-" temp71_3"
+" temp76_3"
+" temp71_1"
 " read-recur72_0"
 " in73_0"
 " config74_0)))))))))))))"
 "(define-values"
 "(read-lang29.1)"
-"(lambda(get-info?20_0 get-info?23_0 init-c19_0 init-c22_0 who21_0 extend-str25_0 read-recur26_0 in27_1 config28_2)"
+"(lambda(get-info?20_0 init-c19_0 who21_0 extend-str25_0 read-recur26_0 in27_1 config28_2)"
 "(begin"
 " 'read-lang29"
 "(let-values(((extend-str_2) extend-str25_0))"
 "(let-values(((read-recur_3) read-recur26_0))"
-"(let-values(((in_57) in27_1))"
-"(let-values(((config_53) config28_2))"
-"(let-values(((init-c_14)(if init-c22_0 init-c19_0 #f)))"
-"(let-values(((get-info?_2)(if get-info?23_0 get-info?20_0 #f)))"
-"(let-values(((who_31) who21_0))"
+"(let-values(((in_61) in27_1))"
+"(let-values(((config_50) 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_53)"
-"(check-parameter 1/read-accept-lang config_53)"
+"(if(if(check-parameter 1/read-accept-reader config_50)"
+"(check-parameter 1/read-accept-lang config_50)"
 " #f)"
 "(void)"
 "(let-values()"
-"(let-values(((in88_0) in_57)"
-"((config89_0) config_53)"
-"                                                       ((temp90_2) \"`~a` not enabled\")"
+"(let-values(((in88_0) in_61)"
+"((config89_0) config_50)"
+"                                                       ((temp90_3) \"`~a` not enabled\")"
 "((extend-str91_0) extend-str_2))"
 "(reader-error12.1"
+" unsafe-undefined"
+" unsafe-undefined"
 " #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
+" unsafe-undefined"
 " in88_0"
 " config89_0"
-" temp90_2"
+" temp90_3"
 "(list extend-str91_0)))))"
 "(values))))"
-"(let-values(((line_10 col_9 pos_120)(port-next-location in_57)))"
-"(let-values(((accum-str_10)(accum-string-init! config_53)))"
+"(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((()"
 "(begin"
-"(if init-c_14"
-"(let-values()(accum-string-add! accum-str_10 init-c_14))"
+"(if init-c_15"
+"(let-values()(accum-string-add! accum-str_10 init-c_15))"
 "(void))"
 "(values))))"
 "(let-values((()"
 "(begin"
-"((letrec-values(((loop_119)"
+"((letrec-values(((loop_116)"
 "(lambda()"
 "(begin"
 " 'loop"
 "(let-values(((c_9)"
-"(let-values(((in_58) in_57)"
-"((skip-count_14) 0)"
+"(let-values(((in_62) in_61)"
+"((skip-count_15) 0)"
 "((source_39)"
 "(read-config-source"
-" config_53)))"
-"(let-values(((c_103)"
+" config_50)))"
+"(let-values(((c_100)"
 "(peek-char-or-special"
-" in_58"
-" skip-count_14"
+" in_62"
+" skip-count_15"
 " 'special"
 " source_39)))"
-"(if(eq? c_103 'special)"
+"(if(eq? c_100 'special)"
 "(special1.1 'special)"
-" c_103)))))"
+" c_100)))))"
 "(if(eof-object? c_9)"
 "(let-values()(void))"
 "(if(not(char? c_9))"
 "(let-values()"
 "(begin"
-"(consume-char/special in_57 config_53 c_9)"
-"(let-values(((in92_0) in_57)"
-"((config93_0) config_53)"
+"(consume-char/special in_61 config_50 c_9)"
+"(let-values(((in92_0) in_61)"
+"((config93_0) config_50)"
 "((c94_0) c_9)"
 "((temp95_1)"
 "                                                                                            \"found non-character while reading `#~a`\")"
 "((extend-str96_0)"
 " extend-str_2))"
 "(reader-error12.1"
-" #f"
-" #f"
+" unsafe-undefined"
 " c94_0"
-" #t"
-" #f"
-" #f"
-" #f"
 " #f"
+" unsafe-undefined"
 " in92_0"
 " config93_0"
 " temp95_1"
 "(list extend-str96_0)))))"
 "(if(char-whitespace? c_9)"
 "(let-values()(void))"
-"(if(let-values(((or-part_170)"
+"(if(let-values(((or-part_168)"
 "(char-lang-nonsep? c_9)))"
-"(if or-part_170"
-" or-part_170"
+"(if or-part_168"
+" or-part_168"
 "(char=? '#\\/ c_9)))"
 "(let-values()"
 "(begin"
-"(consume-char in_57 c_9)"
+"(consume-char in_61 c_9)"
 "(accum-string-add! accum-str_10 c_9)"
-"(loop_119)))"
+"(loop_116)))"
 "(let-values()"
 "(begin"
-"(consume-char in_57 c_9)"
-"(let-values(((in97_1) in_57)"
-"((config98_1) config_53)"
+"(consume-char in_61 c_9)"
+"(let-values(((in97_1) in_61)"
+"((config98_1) config_50)"
 "((temp99_1)"
 "(string-append"
 "                                                                                                 \"expected only alphanumeric, `-`, `+`, `_`, or `/`\""
@@ -55799,46 +54568,38 @@ static const char *startup_source =
 " extend-str_2)"
 "((c101_0) c_9))"
 "(reader-error12.1"
+" unsafe-undefined"
+" unsafe-undefined"
 " #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
+" unsafe-undefined"
 " in97_1"
 " config98_1"
 " temp99_1"
 "(list"
 " extend-str100_0"
 " c101_0))))))))))))))"
-" loop_119))"
+" loop_116))"
 "(values))))"
 "(let-values(((lang-str_0)"
-"(let-values(((accum-str102_0) accum-str_10)((config103_0) config_53))"
-"(accum-string-get!6.1 #f #f accum-str102_0 config103_0))))"
+"(let-values(((accum-str102_0) accum-str_10)((config103_0) config_50))"
+"(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_57)"
-"((config105_0) config_53)"
-"((temp106_4)"
+"(let-values(((in104_0) in_61)"
+"((config105_0) config_50)"
+"((temp106_2)"
 "                                                                    \"expected a non-empty sequence of alphanumeric, `-`, `+`, `_`, or `/` after `~a`\")"
 "((extend-str107_0) extend-str_2))"
 "(reader-error12.1"
+" unsafe-undefined"
+" unsafe-undefined"
 " #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
+" unsafe-undefined"
 " in104_0"
 " config105_0"
-" temp106_4"
+" temp106_2"
 "(list extend-str107_0))))"
 "(void))"
 "(values))))"
@@ -55846,23 +54607,19 @@ static const char *startup_source =
 "(begin"
 "(if(char=? '#\\/(string-ref lang-str_0 0))"
 "(let-values()"
-"(let-values(((in108_0) in_57)"
-"((config109_0) config_53)"
-"((temp110_4)"
+"(let-values(((in108_0) in_61)"
+"((config109_0) config_50)"
+"((temp110_3)"
 "                                                                      \"expected a name that does not start `/` after `~a`\")"
 "((extend-str111_0) extend-str_2))"
 "(reader-error12.1"
+" unsafe-undefined"
+" unsafe-undefined"
 " #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
+" unsafe-undefined"
 " in108_0"
 " config109_0"
-" temp110_4"
+" temp110_3"
 "(list extend-str111_0))))"
 "(void))"
 "(values))))"
@@ -55872,23 +54629,19 @@ static const char *startup_source =
 " '#\\/"
 "(string-ref lang-str_0(sub1(string-length lang-str_0))))"
 "(let-values()"
-"(let-values(((in112_0) in_57)"
-"((config113_0) config_53)"
-"((temp114_2)"
+"(let-values(((in112_0) in_61)"
+"((config113_0) config_50)"
+"((temp114_4)"
 "                                                                        \"expected a name that does not end `/` after `~a`\")"
 "((extend-str115_0) extend-str_2))"
 "(reader-error12.1"
+" unsafe-undefined"
+" unsafe-undefined"
 " #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
+" unsafe-undefined"
 " in112_0"
 " config113_0"
-" temp114_2"
+" temp114_4"
 "(list extend-str115_0))))"
 "(void))"
 "(values))))"
@@ -55899,152 +54652,144 @@ 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_57)"
-"((temp85_1)(reading-at config_53 line_10 col_9 pos_120))"
+"((in84_0) in_61)"
+"((temp85_2)(reading-at config_50 line_10 col_9 pos_120))"
 "((get-info?86_0) get-info?_2)"
-"((who87_0) who_31))"
+"((who87_0) who_29))"
 "(read-extension44.1"
 " get-info?86_0"
-" #t"
-" #f"
-" #f"
+" unsafe-undefined"
 " submod-path81_0"
-" #t"
 " who87_0"
-" #t"
 " reader-path82_0"
 " read-recur83_0"
 " in84_0"
-" temp85_1))))))))))))))))))))))))"
+" temp85_2))))))))))))))))))))))))"
 "(define-values"
 "(char-lang-nonsep?)"
-"(lambda(c_104)"
+"(lambda(c_101)"
 "(begin"
-"(if(<(char->integer c_104) 128)"
-"(let-values(((or-part_299)(char-alphabetic? c_104)))"
-"(if or-part_299"
-" or-part_299"
-"(let-values(((or-part_178)(char-numeric? c_104)))"
-"(if or-part_178"
-" or-part_178"
-"(let-values(((or-part_305)(char=? '#\\- c_104)))"
-"(if or-part_305"
-" or-part_305"
-"(let-values(((or-part_171)(char=? '#\\+ c_104)))"
-"(if or-part_171 or-part_171(char=? '#\\_ c_104)))))))))"
+"(if(<(char->integer c_101) 128)"
+"(let-values(((or-part_90)(char-alphabetic? c_101)))"
+"(if or-part_90"
+" or-part_90"
+"(let-values(((or-part_304)(char-numeric? c_101)))"
+"(if or-part_304"
+" or-part_304"
+"(let-values(((or-part_359)(char=? '#\\- c_101)))"
+"(if or-part_359"
+" or-part_359"
+"(let-values(((or-part_360)(char=? '#\\+ c_101)))"
+"(if or-part_360 or-part_360(char=? '#\\_ c_101)))))))))"
 " #f))))"
 "(define-values"
 "(read-extension-prefix)"
-"(lambda(already_0 wanted_0 in_36 config_54)"
+"(lambda(already_0 wanted_0 in_63 config_51)"
 "(begin"
-"(let-values(((accum-str_11)(accum-string-init! config_54)))"
+"(let-values(((accum-str_11)(accum-string-init! config_51)))"
 "(begin"
-"(let-values(((lst_309) already_0))"
+"(let-values(((lst_197) already_0))"
 "(begin"
-"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_309)))"
-"((letrec-values(((for-loop_280)"
-"(lambda(lst_310)"
+"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_197)))"
+"((letrec-values(((for-loop_205)"
+"(lambda(lst_305)"
 "(begin"
 " 'for-loop"
-"(if(pair? lst_310)"
-"(let-values(((c_105)(unsafe-car lst_310))((rest_173)(unsafe-cdr lst_310)))"
+"(if(pair? lst_305)"
+"(let-values(((c_102)(unsafe-car lst_305))((rest_180)(unsafe-cdr lst_305)))"
 "(let-values((()"
 "(let-values()"
 "(let-values((()"
 "(let-values()"
 "(begin"
 "(let-values()"
-"(accum-string-add! accum-str_11 c_105))"
+"(accum-string-add! accum-str_11 c_102))"
 "(values)))))"
 "(values)))))"
-"(if(not #f)(for-loop_280 rest_173)(values))))"
+"(if(not #f)(for-loop_205 rest_180)(values))))"
 "(values))))))"
-" for-loop_280)"
-" lst_309)))"
+" for-loop_205)"
+" lst_197)))"
 "(void)"
-"((letrec-values(((loop_120)"
+"((letrec-values(((loop_12)"
 "(lambda(wanted_1)"
 "(begin"
 " 'loop"
 "(if(null? wanted_1)"
 "(void)"
 "(let-values()"
-"(let-values(((c_26)"
-"(let-values(((in_59) in_36)"
-"((source_40)(read-config-source config_54)))"
-"(read-char-or-special in_59 special1.1 source_40))))"
+"(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))))"
 "(begin"
-"(if(char? c_26)(let-values()(accum-string-add! accum-str_11 c_26))(void))"
-"(if(eqv? c_26(car wanted_1))"
+"(if(char? c_103)(let-values()(accum-string-add! accum-str_11 c_103))(void))"
+"(if(eqv? c_103(car wanted_1))"
 "(void)"
 "(let-values()"
-"(let-values(((in118_0) in_36)"
-"((config119_0) config_54)"
+"(let-values(((in118_0) in_63)"
+"((config119_0) config_51)"
 "((temp120_2)"
 "(let-values(((accum-str122_0) accum-str_11)"
-"((config123_0) config_54))"
-"(accum-string-get!6.1 #f #f accum-str122_0 config123_0)))"
-"((c121_0) c_26))"
-"(bad-syntax-error20.1 c121_0 #t in118_0 config119_0 temp120_2))))"
-"(loop_120(cdr wanted_1))))))))))"
-" loop_120)"
+"((config123_0) config_51))"
+"(accum-string-get!6.1 0 accum-str122_0 config123_0)))"
+"((c121_0) c_103))"
+"(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_54))"
-"(accum-string-get!6.1 #f #f accum-str116_0 config117_0)))))))"
+"(let-values(((accum-str116_0) accum-str_11)((config117_0) config_51))"
+"(accum-string-get!6.1 0 accum-str116_0 config117_0)))))))"
 "(define-values"
 "(read-extension44.1)"
 "(lambda(get-info?34_0"
-" get-info?38_0"
 " mod-path-wrapped33_0"
-" mod-path-wrapped37_0"
 " try-first-mod-path32_0"
-" try-first-mod-path36_0"
 " who35_0"
-" who39_0"
 " mod-path-datum40_0"
 " read-recur41_0"
-" in42_2"
+" in42_1"
 " config43_1)"
 "(begin"
 " 'read-extension44"
-"(let-values(((try-first-mod-path_0)(if try-first-mod-path36_0 try-first-mod-path32_0 #f)))"
+"(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_60) in42_2))"
-"(let-values(((config_55) config43_1))"
+"(let-values(((in_65) in42_1))"
+"(let-values(((config_52) config43_1))"
 "(let-values(((mod-path-wrapped_1)"
-"(if mod-path-wrapped37_0"
-" mod-path-wrapped33_0"
-"((read-config-coerce config_55)"
+"(if(eq? mod-path-wrapped33_0 unsafe-undefined)"
+"((read-config-coerce config_52)"
 " #t"
 " mod-path-datum_0"
-"(let-values(((in124_0) in_60)((config125_0) config_55))"
-"(port+config->srcloc49.1 #f #f in124_0 config125_0))))))"
-"(let-values(((get-info?_3)(if get-info?38_0 get-info?34_0 #f)))"
-"(let-values(((who_32)(if who39_0 who35_0 '|#reader|)))"
+"(let-values(((in124_0) in_65)((config125_0) config_52))"
+"(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_55)(values))))"
+"(let-values((()(begin(force-parameters! config_52)(values))))"
 "(let-values(((guard_0)(1/current-reader-guard)))"
-"(let-values(((mod-path_27)"
-"(let-values(((or-part_61)"
+"(let-values(((mod-path_28)"
+"(let-values(((or-part_361)"
 "(if try-first-mod-path_0"
-"(let-values(((mod-path_28)(guard_0 try-first-mod-path_0)))"
-"(if((read-config-module-declared? config_55)"
+"(let-values(((mod-path_29)(guard_0 try-first-mod-path_0)))"
+"(if((read-config-module-declared? config_52)"
 " try-first-mod-path_0)"
-" mod-path_28"
+" mod-path_29"
 " #f))"
 " #f)))"
-"(if or-part_61 or-part_61(guard_0 mod-path-datum_0)))))"
-"(let-values(((for-syntax?_8)(read-config-for-syntax? config_55)))"
-"(let-values(((dynamic-require_2)(read-config-dynamic-require config_55)))"
+"(if or-part_361 or-part_361(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(((no-value_0)(gensym)))"
 "(let-values(((extension_0)"
 "(if get-info?_3"
 "(let-values()"
-"(dynamic-require_2 mod-path_27 'get-info(lambda() no-value_0)))"
+"(dynamic-require_2 mod-path_28 'get-info(lambda() no-value_0)))"
 "(let-values()"
 "(dynamic-require_2"
-" mod-path_27"
+" mod-path_28"
 "(if for-syntax?_8 'read-syntax 'read))))))"
 "(if(eq? extension_0 no-value_0)"
 "(let-values() #f)"
@@ -56059,15 +54804,15 @@ static const char *startup_source =
 "(extend-parameterization"
 "(continuation-mark-set-first #f parameterization-key)"
 " current-read-config"
-" config_55)"
+" config_52)"
 "(let-values()"
 "(extension_0"
-"(read-config-source config_55)"
-" in_60"
+"(read-config-source config_52)"
+" in_65"
 " mod-path-wrapped_1"
-"(read-config-line config_55)"
-"(read-config-col config_55)"
-"(read-config-pos config_55)))))"
+"(read-config-line config_52)"
+"(read-config-col config_52)"
+"(read-config-pos config_52)))))"
 "(if(procedure-arity-includes? extension_0 2)"
 "(let-values()"
 "(with-continuation-mark"
@@ -56077,14 +54822,14 @@ static const char *startup_source =
 " #f"
 " parameterization-key)"
 " current-read-config"
-" config_55)"
+" config_52)"
 "(let-values()"
 "(extension_0"
-"(read-config-source config_55)"
-" in_60))))"
+"(read-config-source config_52)"
+" in_65))))"
 "(let-values()"
 "(raise-argument-error"
-" who_32"
+" who_30"
 "                                                                   \"(or/c (procedure-arity-includes?/c 2) (procedure-arity-includes?/c 6))\""
 " extension_0)))))"
 "(let-values()"
@@ -56095,18 +54840,18 @@ static const char *startup_source =
 "(extend-parameterization"
 "(continuation-mark-set-first #f parameterization-key)"
 " current-read-config"
-" config_55)"
+" config_52)"
 "(let-values()"
 "(extension_0"
-" in_60"
+" in_65"
 " mod-path-wrapped_1"
-"(read-config-line config_55)"
-"(read-config-col config_55)"
-"(read-config-pos config_55)))))"
+"(read-config-line config_52)"
+"(read-config-col config_52)"
+"(read-config-pos config_52)))))"
 "(if get-info?_3"
 "(let-values()"
 "(raise-argument-error"
-" who_32"
+" who_30"
 "                                                                   \"(procedure-arity-includes?/c 5)\""
 " extension_0))"
 "(if(procedure-arity-includes? extension_0 1)"
@@ -56118,11 +54863,11 @@ static const char *startup_source =
 " #f"
 " parameterization-key)"
 " current-read-config"
-" config_55)"
-"(let-values()(extension_0 in_60))))"
+" config_52)"
+"(let-values()(extension_0 in_65))))"
 "(let-values()"
 "(raise-argument-error"
-" who_32"
+" who_30"
 "                                                                     \"(or/c (procedure-arity-includes?/c 1) (procedure-arity-includes?/c 5))\""
 " extension_0)))))))))"
 "(if get-info?_3"
@@ -56139,122 +54884,111 @@ 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_60 config_55))"
+"(let-values()(read-recur_4 #f in_65 config_52))"
 "(let-values()"
-"(coerce result-v_1 in_60 config_55))))))))))))))))))))))))))"
+"(coerce result-v_1 in_65 config_52))))))))))))))))))))))))))"
 "(define-values"
 "(read-language/get-info)"
 "(lambda(read-one_3 in_2 config_7 fail-k_5)"
 "(begin"
-"(let-values(((c_33)(read-char/skip-whitespace-and-comments #f read-one_3 in_2 config_7)))"
-"(let-values(((line_8 col_7 pos_114)(port-next-location* in_2 c_33)))"
+"(let-values(((c_25)(read-char/skip-whitespace-and-comments #f read-one_3 in_2 config_7)))"
+"(let-values(((line_8 col_7 pos_116)(port-next-location* in_2 c_25)))"
 "(let-values(((l-config_0)"
-"(override-parameter 1/read-accept-reader(reading-at config_7 line_8 col_7 pos_114) #t)))"
-"(if(not(eqv? c_33 '#\\#))"
-"              (let-values () (if fail-k_5 (fail-k_5) (lang-error in_2 l-config_0 \"\" c_33)))"
+"(override-parameter 1/read-accept-reader(reading-at config_7 line_8 col_7 pos_116) #t)))"
+"(if(not(eqv? c_25 '#\\#))"
+"              (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_52) in_2)((source_41)(read-config-source l-config_0)))"
-"(read-char-or-special in_52 special1.1 source_41))))"
+"(let-values(((in_55) in_2)((source_41)(read-config-source l-config_0)))"
+"(read-char-or-special in_55 special1.1 source_41))))"
 "(if(eqv? c2_6 '#\\l)"
 "(let-values()"
 "(let-values(((read-one1_0) read-one_3)"
-"((c2_7) c_33)"
+"((c2_7) c_25)"
 "((in3_2) in_2)"
 "((l-config4_0) l-config_0)"
 "((temp5_3) #t))"
-"(read-extension-lang7.1 temp5_3 #t read-one1_0 c2_7 in3_2 l-config4_0)))"
+"(read-extension-lang7.1 temp5_3 read-one1_0 c2_7 in3_2 l-config4_0)))"
 "(if(eqv? c2_6 '#\\!)"
 "(let-values()"
 "(let-values(((read-one6_0) read-one_3)"
-"((c7_2) c_33)"
+"((c7_3) c_25)"
 "((in8_2) in_2)"
 "((l-config9_0) l-config_0)"
-"((temp10_7) #t))"
-"(read-extension-#!16.1 temp10_7 #t read-one6_0 c7_2 in8_2 l-config9_0)))"
+"((temp10_6) #t))"
+"(read-extension-#!16.1 temp10_6 read-one6_0 c7_3 in8_2 l-config9_0)))"
 "(let-values()"
-"(if fail-k_5(fail-k_5)(lang-error in_2 l-config_0(string c_33) c2_6))))))))))))))"
+"(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_50 config_56 prefix_7 c_49)"
+"(lambda(in_52 config_53 prefix_7 c_67)"
 "(begin"
 "(let-values(((add-prefix_0)"
-"(lambda(s_77)"
+"(lambda(s_78)"
 "(begin"
 " 'add-prefix"
-"                        (if (string=? prefix_7 \"\") (format \"`~a` followed by ~a\" prefix_7 s_77) s_77)))))"
-"(let-values(((in11_2) in_50)"
-"((config12_4) config_56)"
-"((c13_3) c_49)"
-"((temp14_7) 'read-language)"
+"                        (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)"
+"((c13_2) c_67)"
+"((temp14_6) 'read-language)"
 "((temp15_7)"
 "(string-append"
 "                       \"expected (after whitespace and comments) `#lang ` or `#!` followed\""
 "                       \" immediately by a language name, found ~a\"))"
-"((temp16_9)"
-"(if(eof-object? c_49)"
+"((temp16_8)"
+"(if(eof-object? c_67)"
 "                        (let-values () (add-prefix_0 \"end-of-file\"))"
-"(if(not(char? c_49))"
+"(if(not(char? c_67))"
 "                          (let-values () (add-prefix_0 \"non-character\"))"
-"                          (let-values () (format \"`~a~a`\" prefix_7 c_49))))))"
-"(reader-error12.1 #f #f c13_3 #t #f #f temp14_7 #t in11_2 config12_4 temp15_7(list temp16_9)))))))"
+"                          (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)))))))"
 "(define-values"
 "(read30.1)"
 "(lambda(coerce12_1"
-" coerce26_0"
 " coerce-key13_1"
-" coerce-key27_0"
-" dynamic-require10_1"
-" dynamic-require24_0"
+" dynamic-require10_2"
 " for-syntax?8_0"
-" for-syntax?22_0"
 " init-c2_0"
-" init-c16_0"
 " keep-comment?14_1"
-" keep-comment?28_0"
 " local-graph?6_0"
-" local-graph?20_0"
 " module-declared?11_1"
-" module-declared?25_0"
 " next-readtable3_0"
-" next-readtable17_0"
 " read-compiled9_1"
-" read-compiled23_0"
 " readtable4_0"
-" readtable18_0"
 " recursive?5_0"
-" recursive?19_0"
 " source7_0"
-" source21_0"
 " wrap1_0"
-" wrap15_0"
 " in29_1)"
 "(begin"
 " 'read30"
-"(let-values(((in_12) in29_1))"
-"(let-values(((wrap_7)(if wrap15_0 wrap1_0 #f)))"
-"(let-values(((init-c_15)(if init-c16_0 init-c2_0 #f)))"
-"(let-values(((next-readtable_3)(if next-readtable17_0 next-readtable3_0(1/current-readtable))))"
-"(let-values(((readtable_3)(if readtable18_0 readtable4_0 next-readtable_3)))"
-"(let-values(((recursive?_0)(if recursive?19_0 recursive?5_0 #f)))"
-"(let-values(((local-graph?_1)(if local-graph?20_0 local-graph?6_0 #f)))"
-"(let-values(((source_42)(if source21_0 source7_0 #f)))"
-"(let-values(((for-syntax?_9)(if for-syntax?22_0 for-syntax?8_0 #f)))"
-"(let-values(((read-compiled_2)(if read-compiled23_0 read-compiled9_1 #f)))"
-"(let-values(((dynamic-require_3)(if dynamic-require24_0 dynamic-require10_1 #f)))"
-"(let-values(((module-declared?_2)(if module-declared?25_0 module-declared?11_1 #f)))"
-"(let-values(((coerce_2)(if coerce26_0 coerce12_1 #f)))"
-"(let-values(((coerce-key_2)(if coerce-key27_0 coerce-key13_1 #f)))"
+"(let-values(((in_20) in29_1))"
+"(let-values(((wrap_7) wrap1_0))"
+"(let-values(((init-c_16) init-c2_0))"
+"(let-values(((next-readtable_3)"
+"(if(eq? next-readtable3_0 unsafe-undefined)(1/current-readtable) next-readtable3_0)))"
+"(let-values(((readtable_3)(if(eq? readtable4_0 unsafe-undefined) next-readtable_3 readtable4_0)))"
+"(let-values(((recursive?_0) recursive?5_0))"
+"(let-values(((local-graph?_1) local-graph?6_0))"
+"(let-values(((source_5) source7_0))"
+"(let-values(((for-syntax?_9) for-syntax?8_0))"
+"(let-values(((read-compiled_2) read-compiled9_1))"
+"(let-values(((dynamic-require_3) dynamic-require10_2))"
+"(let-values(((module-declared?_2) module-declared?11_1))"
+"(let-values(((coerce_2) coerce12_1))"
+"(let-values(((coerce-key_2) coerce-key13_1))"
 "(let-values(((keep-comment?_3)"
-"(if keep-comment?28_0 keep-comment?14_1 recursive?_0)))"
+"(if(eq? keep-comment?14_1 unsafe-undefined)"
+" recursive?_0"
+" keep-comment?14_1)))"
 "(let-values()"
-"(let-values(((config_57)"
-"(let-values(((c1_32)(if recursive?_0(current-read-config) #f)))"
-"(if c1_32"
-"((lambda(config_58)"
-"(let-values(((config52_0) config_58)"
+"(let-values(((config_54)"
+"(let-values(((c1_31)(if recursive?_0(current-read-config) #f)))"
+"(if c1_31"
+"((lambda(config_55)"
+"(let-values(((config52_0) config_55)"
 "((for-syntax?53_0) for-syntax?_9)"
-"((wrap54_1) wrap_7)"
+"((wrap54_0) wrap_7)"
 "((readtable55_0) readtable_3)"
 "((next-readtable56_0) next-readtable_3)"
 "((local-graph?57_0) local-graph?_1)"
@@ -56263,16 +54997,15 @@ static const char *startup_source =
 " for-syntax?53_0"
 " keep-comment?58_0"
 " next-readtable56_0"
-" #t"
 " readtable55_0"
 " local-graph?57_0"
-" wrap54_1"
+" wrap54_0"
 " config52_0)))"
-" c1_32)"
+" c1_31)"
 "(let-values()"
 "(let-values(((readtable59_1) readtable_3)"
 "((next-readtable60_1) next-readtable_3)"
-"((source61_0) source_42)"
+"((source61_0) source_5)"
 "((for-syntax?62_0) for-syntax?_9)"
 "((wrap63_0) wrap_7)"
 "((read-compiled64_0) read-compiled_2)"
@@ -56283,80 +55016,61 @@ static const char *startup_source =
 "((keep-comment?69_0) keep-comment?_3))"
 "(make-read-config26.1"
 " coerce67_0"
-" #t"
 " coerce-key68_0"
-" #t"
 " dynamic-require65_0"
-" #t"
 " for-syntax?62_0"
-" #t"
 " keep-comment?69_0"
-" #t"
 " module-declared?66_0"
-" #t"
 " next-readtable60_1"
-" #t"
 " read-compiled64_0"
-" #t"
 " readtable59_1"
-" #t"
 " source61_0"
-" #t"
-" wrap63_0"
-" #t)))))))"
-"(let-values(((v_254)(read-one init-c_15 in_12 config_57)))"
-"(if(if(let-values(((or-part_309)(not recursive?_0)))"
-"(if or-part_309 or-part_309 local-graph?_1))"
-"(read-config-state-graph(read-config-st config_57))"
+" wrap63_0)))))))"
+"(let-values(((v_32)(read-one init-c_16 in_20 config_54)))"
+"(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))"
 " #f)"
 "(let-values()"
 "(catch-and-reraise-as-reader/proc"
 " #f"
-" config_57"
-"(lambda()(make-reader-graph v_254))))"
+" config_54"
+"(lambda()(make-reader-graph v_32))))"
 "(if(if recursive?_0"
 "(if(not local-graph?_1)"
 "(if(not for-syntax?_9)"
-"(if(not(eof-object? v_254))(not(1/special-comment? v_254)) #f)"
+"(if(not(eof-object? v_32))(not(1/special-comment? v_32)) #f)"
 " #f)"
 " #f)"
 " #f)"
-"(let-values()"
-"(begin(get-graph-hash config_57)(make-placeholder v_254)))"
-"(let-values() v_254))))))))))))))))))))))))"
+"(let-values()(begin(get-graph-hash config_54)(make-placeholder v_32)))"
+"(let-values() v_32))))))))))))))))))))))))"
 "(define-values"
 "(read-language49.1)"
 "(lambda(coerce38_0"
-" coerce45_0"
 " coerce-key39_0"
-" coerce-key46_0"
 " dynamic-require36_0"
-" dynamic-require43_0"
 " for-syntax?33_0"
-" for-syntax?40_0"
 " module-declared?37_0"
-" module-declared?44_0"
 " read-compiled35_0"
-" read-compiled42_0"
 " wrap34_0"
-" wrap41_0"
 " in47_2"
 " fail-k48_0)"
 "(begin"
 " 'read-language49"
-"(let-values(((in_61) in47_2))"
+"(let-values(((in_66) in47_2))"
 "(let-values(((fail-k_6) fail-k48_0))"
-"(let-values(((for-syntax?_10)(if for-syntax?40_0 for-syntax?33_0 #f)))"
-"(let-values(((wrap_8)(if wrap41_0 wrap34_0 #f)))"
-"(let-values(((read-compiled_3)(if read-compiled42_0 read-compiled35_0 #f)))"
-"(let-values(((dynamic-require_4)(if dynamic-require43_0 dynamic-require36_0 #f)))"
-"(let-values(((module-declared?_3)(if module-declared?44_0 module-declared?37_0 #f)))"
-"(let-values(((coerce_3)(if coerce45_0 coerce38_0 #f)))"
-"(let-values(((coerce-key_3)(if coerce-key46_0 coerce-key39_0 #f)))"
+"(let-values(((for-syntax?_10) for-syntax?33_0))"
+"(let-values(((wrap_8) wrap34_0))"
+"(let-values(((read-compiled_3) read-compiled35_0))"
+"(let-values(((dynamic-require_4) dynamic-require36_0))"
+"(let-values(((module-declared?_3) module-declared?37_0))"
+"(let-values(((coerce_3) coerce38_0))"
+"(let-values(((coerce-key_3) coerce-key39_0))"
 "(let-values()"
-"(let-values(((config_59)"
+"(let-values(((config_56)"
 "(let-values(((temp70_3) #f)"
-"((temp71_4) #f)"
+"((temp71_2) #f)"
 "((for-syntax?72_0) for-syntax?_10)"
 "((wrap73_0) wrap_8)"
 "((read-compiled74_0) read-compiled_3)"
@@ -56366,118 +55080,107 @@ static const char *startup_source =
 "((coerce-key78_0) coerce-key_3))"
 "(make-read-config26.1"
 " coerce77_0"
-" #t"
 " coerce-key78_0"
-" #t"
 " dynamic-require75_0"
-" #t"
 " for-syntax?72_0"
-" #t"
-" #f"
 " #f"
 " module-declared?76_0"
-" #t"
-" temp71_4"
-" #t"
+" temp71_2"
 " read-compiled74_0"
-" #t"
 " temp70_3"
-" #t"
 " #f"
-" #f"
-" wrap73_0"
-" #t))))"
-"(let-values(((l-config_1)(override-parameter 1/read-accept-reader config_59 #f)))"
-"(read-language/get-info read-undotted in_61 config_59 fail-k_6))))))))))))))))"
+" 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))))))))))))))))"
 "(define-values"
 "(read-one)"
-"(lambda(init-c_16 in_62 config_60)"
+"(lambda(init-c_17 in_63 config_51)"
 "(begin"
-"(if(not(check-parameter 1/read-cdot config_60))"
-"(let-values()(read-undotted init-c_16 in_62 config_60))"
-"(if(check-parameter 1/read-cdot config_60)"
+"(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)"
 "(let-values()"
-"(let-values(((line_11 col_10 pos_121)(port-next-location in_62)))"
-"(let-values(((v_255)(read-undotted init-c_16 in_62 config_60)))"
-"(if(1/special-comment? v_255)"
-"(let-values() v_255)"
+"(let-values(((line_11 col_10 pos_92)(port-next-location in_63)))"
+"(let-values(((v_108)(read-undotted init-c_17 in_63 config_51)))"
+"(if(1/special-comment? v_108)"
+"(let-values() v_108)"
 "(let-values()"
-"((letrec-values(((loop_121)"
-"(lambda(v_256)"
+"((letrec-values(((loop_117)"
+"(lambda(v_110)"
 "(begin"
 " 'loop"
-"(let-values(((c_106)"
-"(let-values(((in_63) in_62)"
-"((skip-count_15) 0)"
-"((source_43)(read-config-source config_60)))"
-"(let-values(((c_107)"
+"(let-values(((c_104)"
+"(let-values(((in_67) in_63)"
+"((skip-count_16) 0)"
+"((source_40)(read-config-source config_51)))"
+"(let-values(((c_105)"
 "(peek-char-or-special"
-" in_63"
-" skip-count_15"
+" in_67"
+" skip-count_16"
 " 'special"
-" source_43)))"
-"(if(eq? c_107 'special)(special1.1 'special) c_107)))))"
-"(let-values(((ec_9)(effective-char c_106 config_60)))"
+" source_40)))"
+"(if(eq? c_105 'special)(special1.1 'special) c_105)))))"
+"(let-values(((ec_9)(effective-char c_104 config_51)))"
 "(if(not(char? ec_9))"
-"(let-values() v_256)"
+"(let-values() v_110)"
 "(if(char-whitespace? ec_9)"
-"(let-values()(begin(consume-char in_62 c_106)(loop_121 v_256)))"
+"(let-values()(begin(consume-char in_63 c_104)(loop_117 v_110)))"
 "(if(char=? ec_9 '#\\.)"
 "(let-values()"
 "(let-values(((dot-line_2 dot-col_2 dot-pos_5)"
-"(port-next-location in_62)))"
-"(let-values((()(begin(consume-char in_62 c_106)(values))))"
+"(port-next-location in_63)))"
+"(let-values((()(begin(consume-char in_63 c_104)(values))))"
 "(let-values(((cdot_0)"
 "(wrap"
 " '#%dot"
-" in_62"
+" in_63"
 "(reading-at"
-" config_60"
+" config_51"
 " dot-line_2"
 " dot-col_2"
 " dot-pos_5)"
 " '#\\.)))"
 "(let-values(((post-v_0)"
-"(read-undotted #f in_62 config_60)))"
-"(loop_121"
+"(read-undotted #f in_63 config_51)))"
+"(loop_117"
 "(wrap"
-"(list cdot_0 v_256 post-v_0)"
-" in_62"
-"(reading-at config_60 line_11 col_10 pos_121)"
+"(list cdot_0 v_110 post-v_0)"
+" in_63"
+"(reading-at config_51 line_11 col_10 pos_92)"
 " '#\\.)))))))"
-"(let-values() v_256))))))))))"
-" loop_121)"
-" v_255))))))"
+"(let-values() v_110))))))))))"
+" loop_117)"
+" v_108))))))"
 "(void))))))"
 "(define-values"
 "(read-undotted)"
-"(lambda(init-c_17 in_60 config_55)"
+"(lambda(init-c_18 in_68 config_57)"
 "(begin"
-"(let-values(((c_108)(read-char/skip-whitespace-and-comments init-c_17 read-one in_60 config_55)))"
-"(let-values(((line_12 col_11 pos_122)(port-next-location* in_60 c_108)))"
-"(if(eof-object? c_108)"
+"(let-values(((c_30)(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_30)))"
+"(if(eof-object? c_30)"
 "(let-values() eof)"
-"(if(not(char? c_108))"
+"(if(not(char? c_30))"
 "(let-values()"
-"(let-values(((v_257)(special-value c_108)))"
-"(if(1/special-comment? v_257)"
-"(let-values()(if(read-config-keep-comment? config_55) v_257(read-undotted #f in_60 config_55)))"
-"(let-values()(coerce v_257 in_60(reading-at config_55 line_12 col_11 pos_122))))))"
-"(let-values(((c2_8)(readtable-handler config_55 c_108)))"
+"(let-values(((v_251)(special-value c_30)))"
+"(if(1/special-comment? v_251)"
+"(let-values()(if(read-config-keep-comment? config_57) v_251(read-undotted #f in_68 config_57)))"
+"(let-values()(coerce v_251 in_68(reading-at config_57 line_12 col_11 pos_121))))))"
+"(let-values(((c2_8)(readtable-handler config_57 c_30)))"
 "(if c2_8"
 "((lambda(handler_3)"
-"(let-values(((v_43)(readtable-apply handler_3 c_108 in_60 config_55 line_12 col_11 pos_122)))"
-"(retry-special-comment v_43 in_60 config_55)))"
+"(let-values(((v_252)(readtable-apply handler_3 c_30 in_68 config_57 line_12 col_11 pos_121)))"
+"(retry-special-comment v_252 in_68 config_57)))"
 " c2_8)"
 "(let-values()"
-"(let-values(((ec_10)(effective-char c_108 config_55)))"
+"(let-values(((ec_10)(effective-char c_30 config_57)))"
 "(let-values((()"
 "(begin"
-"(if(not(char-closer? ec_10 config_55))"
-"(let-values()(track-indentation! config_55 line_12 col_11))"
+"(if(not(char-closer? ec_10 config_57))"
+"(let-values()(track-indentation! config_57 line_12 col_11))"
 "(void))"
 "(values))))"
-"(let-values(((r-config_0)(reading-at(discard-comment config_55) line_12 col_11 pos_122)))"
+"(let-values(((r-config_0)(reading-at(discard-comment config_57) line_12 col_11 pos_121)))"
 "(let-values(((tmp_57) ec_10))"
 "(let-values(((index_4)"
 "(if(char? tmp_57)"
@@ -56536,14 +55239,14 @@ static const char *startup_source =
 "(if(unsafe-fx< index_4 2)"
 "(if(unsafe-fx< index_4 1)"
 "(let-values()"
-"(let-values(((v_258)"
-"(let-values(((c79_1) c_108)"
-"((in80_1) in_60)"
+"(let-values(((v_253)"
+"(let-values(((c79_1) c_30)"
+"((in80_1) in_68)"
 "((r-config81_0) r-config_0)"
-"((temp82_4)"
-"(if(let-values(((or-part_329)(eq? c_108 ec_10)))"
-"(if or-part_329"
-" or-part_329"
+"((temp82_1)"
+"(if(let-values(((or-part_315)(eq? c_30 ec_10)))"
+"(if or-part_315"
+" or-part_315"
 "(if(<(char->integer ec_10) 128)"
 "(char-numeric? ec_10)"
 " #f)))"
@@ -56551,96 +55254,86 @@ static const char *startup_source =
 " 'symbol/indirect)))"
 "(read-symbol-or-number8.1"
 " #f"
-" #f"
-" temp82_4"
-" #t"
+" temp82_1"
 " c79_1"
 " in80_1"
 " r-config81_0))))"
-"(retry-special-comment v_258 in_60 config_55)))"
-"(let-values()(read-dispatch c_108 in_60 r-config_0 config_55)))"
+"(retry-special-comment v_253 in_68 config_57)))"
+"(let-values()(read-dispatch c_30 in_68 r-config_0 config_57)))"
 "(if(unsafe-fx< index_4 3)"
-"                                    (let-values () (read-quote read-one 'quote \"quoting \\\"'\\\"\" c_108 in_60 r-config_0))"
+"                                    (let-values () (read-quote read-one 'quote \"quoting \\\"'\\\"\" c_30 in_68 r-config_0))"
 "(if(unsafe-fx< index_4 4)"
 "(let-values()"
-"(if(check-parameter 1/read-accept-quasiquote config_55)"
+"(if(check-parameter 1/read-accept-quasiquote config_57)"
 "(let-values()"
 "(read-quote"
 " read-one"
 " 'quasiquote"
 "                                             \"quasiquoting \\\"`\\\"\""
-" c_108"
-" in_60"
+" c_30"
+" in_68"
 " r-config_0))"
 "(let-values()"
-"(let-values(((in83_0) in_60)"
+"(let-values(((in83_0) in_68)"
 "((r-config84_0) r-config_0)"
-"                                                         ((temp85_2) \"illegal use of `~a`\")"
-"((c86_0) c_108))"
+"                                                         ((temp85_3) \"illegal use of `~a`\")"
+"((c86_0) c_30))"
 "(reader-error12.1"
+" unsafe-undefined"
+" unsafe-undefined"
 " #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
+" unsafe-undefined"
 " in83_0"
 " r-config84_0"
-" temp85_2"
+" temp85_3"
 "(list c86_0))))))"
 "(if(unsafe-fx< index_4 5)"
 "(let-values()"
-"(if(check-parameter 1/read-accept-quasiquote config_55)"
+"(if(check-parameter 1/read-accept-quasiquote config_57)"
 "(let-values()"
 "(let-values(((c2_9)"
-"(let-values(((in_64) in_60)"
-"((skip-count_16) 0)"
-"((source_44)(read-config-source config_55)))"
-"(let-values(((c_109)"
+"(let-values(((in_69) in_68)"
+"((skip-count_17) 0)"
+"((source_42)(read-config-source config_57)))"
+"(let-values(((c_106)"
 "(peek-char-or-special"
-" in_64"
-" skip-count_16"
+" in_69"
+" skip-count_17"
 " 'special"
-" source_44)))"
-"(if(eq? c_109 'special)"
+" source_42)))"
+"(if(eq? c_106 'special)"
 "(special1.1 'special)"
-" c_109)))))"
+" c_106)))))"
 "(if(eqv? c2_9 '#\\@)"
 "(begin"
-"(consume-char in_60 c2_9)"
+"(consume-char in_68 c2_9)"
 "(read-quote"
 " read-one"
 " 'unquote-splicing"
 "                                                     \"unquoting `,@`\""
-" c_108"
-" in_60"
+" c_30"
+" in_68"
 " r-config_0))"
 "(read-quote"
 " read-one"
 " 'unquote"
 "                                                   \"unquoting `,`\""
-" c_108"
-" in_60"
+" c_30"
+" in_68"
 " r-config_0))))"
 "(let-values()"
-"(let-values(((in87_0) in_60)"
+"(let-values(((in87_0) in_68)"
 "((r-config88_0) r-config_0)"
-"                                                           ((temp89_2) \"illegal use of `~a`\")"
-"((c90_0) c_108))"
+"                                                           ((temp89_4) \"illegal use of `~a`\")"
+"((c90_0) c_30))"
 "(reader-error12.1"
+" unsafe-undefined"
+" unsafe-undefined"
 " #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
+" unsafe-undefined"
 " in87_0"
 " r-config88_0"
-" temp89_2"
+" temp89_4"
 "(list c90_0))))))"
 "(let-values()"
 "(wrap"
@@ -56648,304 +55341,275 @@ static const char *startup_source =
 "((ec92_0) ec_10)"
 "((temp93_2) '#\\()"
 "((temp94_1) '#\\))"
-"((in95_0) in_60)"
+"((in95_0) in_68)"
 "((r-config96_0) r-config_0)"
-"((temp97_2) #t))"
+"((temp97_1) #t))"
 "(read-unwrapped-sequence17.1"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" temp97_2"
-" #t"
-" #f"
-" #f"
+" 'all"
+" unsafe-undefined"
+" unsafe-undefined"
+" temp97_1"
+" unsafe-undefined"
 " read-one91_0"
 " ec92_0"
 " temp93_2"
 " temp94_1"
 " in95_0"
 " r-config96_0))"
-" in_60"
+" in_68"
 " r-config_0"
 " ec_10))))))"
 "(if(unsafe-fx< index_4 9)"
 "(if(unsafe-fx< index_4 7)"
 "(let-values()"
-"(let-values(((in98_0) in_60)"
+"(let-values(((in98_0) in_68)"
 "((r-config99_0) r-config_0)"
-"                                                   ((temp100_3) \"~a\")"
-"((temp101_4)"
-"(indentation-unexpected-closer-message ec_10 c_108 r-config_0)))"
+"                                                   ((temp100_1) \"~a\")"
+"((temp101_0)"
+"(indentation-unexpected-closer-message ec_10 c_30 r-config_0)))"
 "(reader-error12.1"
+" unsafe-undefined"
+" unsafe-undefined"
 " #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
+" unsafe-undefined"
 " in98_0"
 " r-config99_0"
-" temp100_3"
-"(list temp101_4))))"
+" temp100_1"
+"(list temp101_0))))"
 "(if(unsafe-fx< index_4 8)"
 "(let-values()"
-"(if(let-values(((or-part_360)"
-"(check-parameter 1/read-square-bracket-as-paren config_55)))"
-"(if or-part_360"
-" or-part_360"
-"(check-parameter 1/read-square-bracket-with-tag config_55)))"
+"(if(let-values(((or-part_110)"
+"(check-parameter 1/read-square-bracket-as-paren config_57)))"
+"(if or-part_110"
+" or-part_110"
+"(check-parameter 1/read-square-bracket-with-tag config_57)))"
 "(let-values()"
 "(wrap"
 "(let-values(((read-one102_0) read-one)"
 "((ec103_0) ec_10)"
-"((temp104_3) '#\\[)"
-"((temp105_3) '#\\])"
-"((in106_0) in_60)"
+"((temp104_1) '#\\[)"
+"((temp105_2) '#\\])"
+"((in106_0) in_68)"
 "((r-config107_0) r-config_0)"
-"((temp108_1) #t))"
+"((temp108_2) #t))"
 "(read-unwrapped-sequence17.1"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" temp108_1"
-" #t"
-" #f"
-" #f"
+" 'all"
+" unsafe-undefined"
+" unsafe-undefined"
+" temp108_2"
+" unsafe-undefined"
 " read-one102_0"
 " ec103_0"
-" temp104_3"
-" temp105_3"
+" temp104_1"
+" temp105_2"
 " in106_0"
 " r-config107_0))"
-" in_60"
+" in_68"
 " r-config_0"
 " ec_10))"
 "(let-values()"
-"(let-values(((in109_0) in_60)"
+"(let-values(((in109_0) in_68)"
 "((r-config110_0) r-config_0)"
-"                                                         ((temp111_0) \"illegal use of `~a`\")"
-"((c112_0) c_108))"
+"                                                         ((temp111_2) \"illegal use of `~a`\")"
+"((c112_0) c_30))"
 "(reader-error12.1"
+" unsafe-undefined"
+" unsafe-undefined"
 " #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
+" unsafe-undefined"
 " in109_0"
 " r-config110_0"
-" temp111_0"
+" temp111_2"
 "(list c112_0))))))"
 "(let-values()"
-"(if(let-values(((or-part_361)"
-"(check-parameter 1/read-square-bracket-as-paren config_55)))"
-"(if or-part_361"
-" or-part_361"
-"(check-parameter 1/read-square-bracket-with-tag config_55)))"
+"(if(let-values(((or-part_362)"
+"(check-parameter 1/read-square-bracket-as-paren config_57)))"
+"(if or-part_362"
+" or-part_362"
+"(check-parameter 1/read-square-bracket-with-tag config_57)))"
 "(let-values()"
-"(let-values(((in113_1) in_60)"
+"(let-values(((in113_1) in_68)"
 "((r-config114_0) r-config_0)"
-"                                                         ((temp115_1) \"~a\")"
-"((temp116_1)"
+"                                                         ((temp115_0) \"~a\")"
+"((temp116_2)"
 "(indentation-unexpected-closer-message"
 " ec_10"
-" c_108"
+" c_30"
 " r-config_0)))"
 "(reader-error12.1"
+" unsafe-undefined"
+" unsafe-undefined"
 " #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
+" unsafe-undefined"
 " in113_1"
 " r-config114_0"
-" temp115_1"
-"(list temp116_1))))"
+" temp115_0"
+"(list temp116_2))))"
 "(let-values()"
-"(let-values(((in117_0) in_60)"
+"(let-values(((in117_0) in_68)"
 "((r-config118_0) r-config_0)"
-"                                                         ((temp119_0) \"illegal use of `~a`\")"
-"((c120_0) c_108))"
+"                                                         ((temp119_2) \"illegal use of `~a`\")"
+"((c120_0) c_30))"
 "(reader-error12.1"
+" unsafe-undefined"
+" unsafe-undefined"
 " #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
+" unsafe-undefined"
 " in117_0"
 " r-config118_0"
-" temp119_0"
+" temp119_2"
 "(list c120_0))))))))"
 "(if(unsafe-fx< index_4 10)"
 "(let-values()"
-"(if(let-values(((or-part_362)"
-"(check-parameter 1/read-curly-brace-as-paren config_55)))"
-"(if or-part_362"
-" or-part_362"
-"(check-parameter 1/read-curly-brace-with-tag config_55)))"
+"(if(let-values(((or-part_363)"
+"(check-parameter 1/read-curly-brace-as-paren config_57)))"
+"(if or-part_363"
+" or-part_363"
+"(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_3) '#\\{)"
-"((temp124_2) '#\\})"
-"((in125_0) in_60)"
+"((temp123_2) '#\\{)"
+"((temp124_3) '#\\})"
+"((in125_0) in_68)"
 "((r-config126_0) r-config_0)"
 "((temp127_4) #t))"
 "(read-unwrapped-sequence17.1"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
+" 'all"
+" unsafe-undefined"
+" unsafe-undefined"
 " temp127_4"
-" #t"
-" #f"
-" #f"
+" unsafe-undefined"
 " read-one121_0"
 " ec122_0"
-" temp123_3"
-" temp124_2"
+" temp123_2"
+" temp124_3"
 " in125_0"
 " r-config126_0))"
-" in_60"
+" in_68"
 " r-config_0"
 " ec_10))"
 "(let-values()"
-"(let-values(((in128_0) in_60)"
+"(let-values(((in128_0) in_68)"
 "((r-config129_0) r-config_0)"
-"                                                       ((temp130_2) \"illegal use of `~a`\")"
-"((c131_0) c_108))"
+"                                                       ((temp130_1) \"illegal use of `~a`\")"
+"((c131_0) c_30))"
 "(reader-error12.1"
+" unsafe-undefined"
+" unsafe-undefined"
 " #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
+" unsafe-undefined"
 " in128_0"
 " r-config129_0"
-" temp130_2"
+" temp130_1"
 "(list c131_0))))))"
 "(if(unsafe-fx< index_4 11)"
 "(let-values()"
-"(if(let-values(((or-part_363)"
-"(check-parameter 1/read-curly-brace-as-paren config_55)))"
-"(if or-part_363"
-" or-part_363"
-"(check-parameter 1/read-curly-brace-with-tag config_55)))"
+"(if(let-values(((or-part_364)"
+"(check-parameter 1/read-curly-brace-as-paren config_57)))"
+"(if or-part_364"
+" or-part_364"
+"(check-parameter 1/read-curly-brace-with-tag config_57)))"
 "(let-values()"
-"(let-values(((in132_0) in_60)"
+"(let-values(((in132_0) in_68)"
 "((r-config133_0) r-config_0)"
 "                                                         ((temp134_2) \"~a\")"
-"((temp135_1)"
+"((temp135_0)"
 "(indentation-unexpected-closer-message"
 " ec_10"
-" c_108"
+" c_30"
 " r-config_0)))"
 "(reader-error12.1"
+" unsafe-undefined"
+" unsafe-undefined"
 " #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
+" unsafe-undefined"
 " in132_0"
 " r-config133_0"
 " temp134_2"
-"(list temp135_1))))"
+"(list temp135_0))))"
 "(let-values()"
-"(let-values(((in136_0) in_60)"
+"(let-values(((in136_0) in_68)"
 "((r-config137_0) r-config_0)"
-"                                                         ((temp138_3) \"illegal use of `~a`\")"
-"((c139_0) c_108))"
+"                                                         ((temp138_1) \"illegal use of `~a`\")"
+"((c139_0) c_30))"
 "(reader-error12.1"
+" unsafe-undefined"
+" unsafe-undefined"
 " #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
+" unsafe-undefined"
 " in136_0"
 " r-config137_0"
-" temp138_3"
+" temp138_1"
 "(list c139_0))))))"
 "(if(unsafe-fx< index_4 12)"
 "(let-values()"
-"(let-values(((in140_0) in_60)((r-config141_0) r-config_0))"
-"(read-string5.1 #f #f in140_0 r-config141_0)))"
+"(let-values(((in140_0) in_68)((r-config141_0) r-config_0))"
+"(read-string5.1 'string in140_0 r-config141_0)))"
 "(let-values()"
-"(let-values(((c142_0) c_108)"
-"((in143_0) in_60)"
+"(let-values(((c142_0) c_30)"
+"((in143_0) in_68)"
 "((r-config144_0) r-config_0)"
-"((temp145_2) 'symbol))"
+"((temp145_1) 'symbol))"
 "(read-symbol-or-number8.1"
 " #f"
-" #f"
-" temp145_2"
-" #t"
+" temp145_1"
 " c142_0"
 " in143_0"
 " r-config144_0)))))))))))))))))))))))"
 "(define-values"
 "(read-dispatch)"
-"(lambda(dispatch-c_5 in_65 config_61 orig-config_0)"
+"(lambda(dispatch-c_5 in_70 config_58 orig-config_0)"
 "(begin"
-"(let-values(((c_110)"
-"(let-values(((in_66) in_65)((source_45)(read-config-source config_61)))"
-"(read-char-or-special in_66 special1.1 source_45))))"
-"(if(eof-object? c_110)"
+"(let-values(((c_107)"
+"(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_107)"
 "(let-values()"
-"(let-values(((in146_0) in_65)"
-"((config147_0) config_61)"
-"((c148_0) c_110)"
+"(let-values(((in146_0) in_70)"
+"((config147_0) config_58)"
+"((c148_0) c_107)"
 "                         ((temp149_1) \"bad syntax `~a`\")"
 "((dispatch-c150_0) dispatch-c_5))"
-"(reader-error12.1 #f #f c148_0 #t #f #f #f #f in146_0 config147_0 temp149_1(list dispatch-c150_0))))"
-"(if(not(char? c_110))"
+"(reader-error12.1"
+" unsafe-undefined"
+" c148_0"
+" #f"
+" unsafe-undefined"
+" in146_0"
+" config147_0"
+" temp149_1"
+"(list dispatch-c150_0))))"
+"(if(not(char? c_107))"
 "(let-values()"
-"(let-values(((in151_0) in_65)"
-"((config152_0) config_61)"
-"((c153_0) c_110)"
+"(let-values(((in151_0) in_70)"
+"((config152_0) config_58)"
+"((c153_0) c_107)"
 "                           ((temp154_1) \"bad syntax `~a`\")"
 "((dispatch-c155_0) dispatch-c_5))"
-"(reader-error12.1 #f #f c153_0 #t #f #f #f #f in151_0 config152_0 temp154_1(list dispatch-c155_0))))"
-"(let-values(((c3_9)(readtable-dispatch-handler orig-config_0 c_110)))"
+"(reader-error12.1"
+" unsafe-undefined"
+" c153_0"
+" #f"
+" unsafe-undefined"
+" in151_0"
+" config152_0"
+" temp154_1"
+"(list dispatch-c155_0))))"
+"(let-values(((c3_9)(readtable-dispatch-handler orig-config_0 c_107)))"
 "(if c3_9"
 "((lambda(handler_4)"
-"(let-values(((line_13)(read-config-line config_61)))"
-"(let-values(((col_12)(read-config-col config_61)))"
-"(let-values(((pos_123)(read-config-pos config_61)))"
-"(let-values(((v_151)"
-"(readtable-apply handler_4 c_110 in_65 config_61 line_13 col_12 pos_123)))"
-"(retry-special-comment v_151 in_65 orig-config_0))))))"
+"(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(((v_254)"
+"(readtable-apply handler_4 c_107 in_70 config_58 line_13 col_12 pos_122)))"
+"(retry-special-comment v_254 in_70 orig-config_0))))))"
 " c3_9)"
 "(let-values()"
 "(let-values()"
-"(let-values(((tmp_58) c_110))"
+"(let-values(((tmp_58) c_107))"
 "(let-values(((index_5)"
 "(if(char? tmp_58)"
 "(let-values(((codepoint_3)(char->integer tmp_58)))"
@@ -57053,462 +55717,425 @@ static const char *startup_source =
 "(if(unsafe-fx< index_5 3)"
 "(if(unsafe-fx< index_5 1)"
 "(let-values()"
-"(let-values(((in156_0) in_65)"
-"((config157_0) config_61)"
-"                                               ((temp158_2) \"bad syntax `~a~a`\")"
+"(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_110))"
+"((c160_0) c_107))"
 "(reader-error12.1"
+" unsafe-undefined"
+" unsafe-undefined"
 " #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
+" unsafe-undefined"
 " in156_0"
 " config157_0"
-" temp158_2"
+" temp158_0"
 "(list dispatch-c159_0 c160_0))))"
 "(if(unsafe-fx< index_5 2)"
-"(let-values()(read-vector-or-graph read-one dispatch-c_5 c_110 in_65 config_61))"
+"(let-values()(read-vector-or-graph read-one dispatch-c_5 c_107 in_70 config_58))"
 "(let-values()"
 "(let-values(((read-one161_0) read-one)"
 "((temp162_2) '#\\()"
-"((temp163_2) '#\\()"
+"((temp163_3) '#\\()"
 "((temp164_1) '#\\))"
-"((in165_0) in_65)"
-"((config166_0) config_61))"
+"((in165_0) in_70)"
+"((config166_0) config_58))"
 "(read-vector11.1"
 " #f"
-" #f"
-" #f"
-" #f"
+" 'any"
 " read-one161_0"
 " temp162_2"
-" temp163_2"
+" temp163_3"
 " temp164_1"
 " in165_0"
 " config166_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_61)"
+"(if(check-parameter 1/read-square-bracket-as-paren config_58)"
 "(let-values()"
 "(let-values(((read-one167_0) read-one)"
-"((temp168_1) '#\\[)"
-"((temp169_1) '#\\[)"
+"((temp168_2) '#\\[)"
+"((temp169_0) '#\\[)"
 "((temp170_2) '#\\])"
-"((in171_0) in_65)"
-"((config172_0) config_61))"
+"((in171_0) in_70)"
+"((config172_0) config_58))"
 "(read-vector11.1"
 " #f"
-" #f"
-" #f"
-" #f"
+" 'any"
 " read-one167_0"
-" temp168_1"
-" temp169_1"
+" temp168_2"
+" temp169_0"
 " temp170_2"
 " in171_0"
 " config172_0)))"
 "(let-values()"
-"(let-values(((in173_0) in_65)"
-"((config174_0) config_61)"
-"                                                     ((temp175_0) (format \"~a~a\" dispatch-c_5 c_110)))"
-"(bad-syntax-error20.1 #f #f in173_0 config174_0 temp175_0)))))"
+"(let-values(((in173_0) in_70)"
+"((config174_0) config_58)"
+"                                                     ((temp175_0) (format \"~a~a\" dispatch-c_5 c_107)))"
+"(bad-syntax-error20.1 unsafe-undefined in173_0 config174_0 temp175_0)))))"
 "(let-values()"
-"(if(check-parameter 1/read-curly-brace-as-paren config_61)"
+"(if(check-parameter 1/read-curly-brace-as-paren config_58)"
 "(let-values()"
 "(let-values(((read-one176_0) read-one)"
 "((temp177_1) '#\\{)"
-"((temp178_0) '#\\{)"
+"((temp178_1) '#\\{)"
 "((temp179_0) '#\\})"
-"((in180_0) in_65)"
-"((config181_0) config_61))"
+"((in180_0) in_70)"
+"((config181_0) config_58))"
 "(read-vector11.1"
 " #f"
-" #f"
-" #f"
-" #f"
+" 'any"
 " read-one176_0"
 " temp177_1"
-" temp178_0"
+" temp178_1"
 " temp179_0"
 " in180_0"
 " config181_0)))"
 "(let-values()"
-"(let-values(((in182_0) in_65)"
-"((config183_0) config_61)"
-"                                                     ((temp184_0) (format \"~a~a\" dispatch-c_5 c_110)))"
-"(bad-syntax-error20.1 #f #f in182_0 config183_0 temp184_0))))))"
+"(let-values(((in182_0) in_70)"
+"((config183_0) config_58)"
+"                                                     ((temp184_0) (format \"~a~a\" dispatch-c_5 c_107)))"
+"(bad-syntax-error20.1 unsafe-undefined in182_0 config183_0 temp184_0))))))"
 "(if(unsafe-fx< index_5 6)"
-"(let-values()(read-struct read-one dispatch-c_5 in_65 config_61))"
+"(let-values()(read-struct read-one dispatch-c_5 in_70 config_58))"
 "(if(unsafe-fx< index_5 7)"
-"(let-values()(read-box read-one dispatch-c_5 in_65 config_61))"
-"                                    (let-values () (read-quote read-one 'syntax \"quoting #'\" c_110 in_65 config_61))))))"
+"(let-values()(read-box read-one dispatch-c_5 in_70 config_58))"
+"                                    (let-values () (read-quote read-one 'syntax \"quoting #'\" c_107 in_70 config_58))))))"
 "(if(unsafe-fx< index_5 12)"
 "(if(unsafe-fx< index_5 9)"
 "(let-values()"
-"                                  (read-quote read-one 'quasisyntax \"quasiquoting #`\" c_110 in_65 config_61))"
+"                                  (read-quote read-one 'quasisyntax \"quasiquoting #`\" c_107 in_70 config_58))"
 "(if(unsafe-fx< index_5 10)"
 "(let-values()"
 "(let-values(((c2_10)"
-"(let-values(((in_67) in_65)"
-"((skip-count_17) 0)"
-"((source_46)(read-config-source config_61)))"
-"(let-values(((c_111)"
+"(let-values(((in_72) in_70)"
+"((skip-count_18) 0)"
+"((source_44)(read-config-source config_58)))"
+"(let-values(((c_108)"
 "(peek-char-or-special"
-" in_67"
-" skip-count_17"
+" in_72"
+" skip-count_18"
 " 'special"
-" source_46)))"
-"(if(eq? c_111 'special)(special1.1 'special) c_111)))))"
+" source_44)))"
+"(if(eq? c_108 'special)(special1.1 'special) c_108)))))"
 "(if(eqv? c2_10 '#\\@)"
 "(begin"
-"(consume-char in_65 c2_10)"
+"(consume-char in_70 c2_10)"
 "(read-quote"
 " read-one"
 " 'unsyntax-splicing"
 "                                           \"unquoting #,@\""
-" c_110"
-" in_65"
-" config_61))"
-"                                        (read-quote read-one 'unsyntax \"unquoting #,\" c_110 in_65 config_61))))"
+" c_107"
+" in_70"
+" config_58))"
+"                                        (read-quote read-one 'unsyntax \"unquoting #,\" c_107 in_70 config_58))))"
 "(if(unsafe-fx< index_5 11)"
-"(let-values()(read-character in_65 config_61))"
+"(let-values()(read-character in_70 config_58))"
 "(let-values()"
-"(let-values(((in185_0) in_65)"
-"((config186_0) config_61)"
-"((temp187_1) '|byte string|))"
-"(read-string5.1 temp187_1 #t in185_0 config186_0))))))"
+"(let-values(((in185_0) in_70)"
+"((config186_0) config_58)"
+"((temp187_0) '|byte string|))"
+"(read-string5.1 temp187_0 in185_0 config186_0))))))"
 "(if(unsafe-fx< index_5 14)"
 "(if(unsafe-fx< index_5 13)"
 "(let-values()"
 "(let-values(((c2_11)"
-"(let-values(((in_68) in_65)"
-"((skip-count_18) 0)"
-"((source_47)(read-config-source config_61)))"
-"(let-values(((c_112)"
+"(let-values(((in_73) in_70)"
+"((skip-count_19) 0)"
+"((source_45)(read-config-source config_58)))"
+"(let-values(((c_109)"
 "(peek-char-or-special"
-" in_68"
-" skip-count_18"
+" in_73"
+" skip-count_19"
 " 'special"
-" source_47)))"
-"(if(eq? c_112 'special)(special1.1 'special) c_112)))))"
+" source_45)))"
+"(if(eq? c_109 'special)(special1.1 'special) c_109)))))"
 "(if(eqv? '#\\< c2_11)"
 "(let-values()"
-"(begin(consume-char in_65 '#\\<)(read-here-string in_65 config_61)))"
+"(begin(consume-char in_70 '#\\<)(read-here-string in_70 config_58)))"
 "(let-values()"
-"(let-values(((in188_0) in_65)"
-"((config189_0) config_61)"
+"(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))"
 "(reader-error12.1"
-" #f"
-" #f"
+" unsafe-undefined"
 " c2190_0"
-" #t"
-" #f"
-" #f"
-" #f"
 " #f"
+" unsafe-undefined"
 " in188_0"
 " config189_0"
 " temp191_0"
 "(list dispatch-c192_0)))))))"
 "(let-values()"
-"(let-values(((c193_0) c_110)"
-"((in194_0) in_65)"
-"((config195_0) config_61)"
+"(let-values(((c193_0) c_107)"
+"((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"
-" #t"
-" temp197_1"
-" #t"
-" c193_0"
-" in194_0"
-" config195_0))))"
+"(read-symbol-or-number8.1 dispatch-c196_0 temp197_1 c193_0 in194_0 config195_0))))"
 "(if(unsafe-fx< index_5 15)"
 "(let-values()"
 "(let-values(((temp198_1) #f)"
-"((in199_0) in_65)"
-"((config200_0) config_61)"
-"((temp201_0) 'keyword))"
-"(read-symbol-or-number8.1 #f #f temp201_0 #t temp198_1 in199_0 config200_0)))"
+"((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)))"
 "(if(unsafe-fx< index_5 16)"
 "(let-values()"
 "(let-values(((c2_12)"
-"(let-values(((in_69) in_65)"
-"((skip-count_19) 0)"
-"((source_48)(read-config-source config_61)))"
-"(let-values(((c_113)"
-"(peek-char-or-special"
-" in_69"
-" skip-count_19"
-" 'special"
-" source_48)))"
-"(if(eq? c_113 'special)(special1.1 'special) c_113)))))"
-"(if(char-delimiter? c2_12 config_61)"
-"(let-values()(wrap #t in_65 config_61 c_110))"
-"(let-values()"
-"(read-delimited-constant"
-" c_110"
-"(char=? c_110 '#\\t)"
-" '(#\\r #\\u #\\e)"
-" #t"
-" in_65"
-" config_61)))))"
-"(let-values()"
-"(let-values(((c2_13)"
-"(let-values(((in_70) in_65)"
+"(let-values(((in_74) in_70)"
 "((skip-count_20) 0)"
-"((source_49)(read-config-source config_61)))"
-"(let-values(((c_114)"
+"((source_46)(read-config-source config_58)))"
+"(let-values(((c_110)"
 "(peek-char-or-special"
-" in_70"
+" in_74"
 " skip-count_20"
 " 'special"
-" source_49)))"
-"(if(eq? c_114 'special)(special1.1 'special) c_114)))))"
-"(if(char-delimiter? c2_13 config_61)"
-"(let-values()(wrap #f in_65 config_61 c_110))"
-"(if(let-values(((or-part_350)(char=? c2_13 '#\\x)))"
-"(if or-part_350 or-part_350(char=? c2_13 '#\\l)))"
+" source_46)))"
+"(if(eq? c_110 'special)(special1.1 'special) c_110)))))"
+"(if(char-delimiter? c2_12 config_58)"
+"(let-values()(wrap #t in_70 config_58 c_107))"
+"(let-values()"
+"(read-delimited-constant"
+" c_107"
+"(char=? c_107 '#\\t)"
+" '(#\\r #\\u #\\e)"
+" #t"
+" in_70"
+" config_58)))))"
+"(let-values()"
+"(let-values(((c2_13)"
+"(let-values(((in_75) in_70)"
+"((skip-count_21) 0)"
+"((source_47)(read-config-source config_58)))"
+"(let-values(((c_111)"
+"(peek-char-or-special"
+" in_75"
+" skip-count_21"
+" 'special"
+" source_47)))"
+"(if(eq? c_111 'special)(special1.1 'special) c_111)))))"
+"(if(char-delimiter? c2_13 config_58)"
+"(let-values()(wrap #f in_70 config_58 c_107))"
+"(if(let-values(((or-part_365)(char=? c2_13 '#\\x)))"
+"(if or-part_365 or-part_365(char=? c2_13 '#\\l)))"
 "(let-values()"
 "(read-fixnum-or-flonum-vector"
 " read-one"
 " dispatch-c_5"
-" c_110"
+" c_107"
 " c2_13"
-" in_65"
-" config_61))"
+" in_70"
+" config_58))"
 "(let-values()"
 "(read-delimited-constant"
-" c_110"
-"(char=? c_110 '#\\f)"
+" c_107"
+"(char=? c_107 '#\\f)"
 " '(#\\a #\\l #\\s #\\e)"
 " #f"
-" in_65"
-" config_61)))))))))))"
+" in_70"
+" config_58)))))))))))"
 "(if(unsafe-fx< index_5 26)"
 "(if(unsafe-fx< index_5 21)"
 "(if(unsafe-fx< index_5 18)"
 "(let-values()"
-"(let-values(((temp202_1) #f)"
-"((in203_0) in_65)"
-"((config204_0) config_61)"
-"                                               ((temp205_1) \"#e\"))"
-"(read-symbol-or-number8.1 #f #f temp205_1 #t temp202_1 in203_0 config204_0)))"
+"(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)))"
 "(if(unsafe-fx< index_5 19)"
 "(let-values()"
 "(let-values(((temp206_0) #f)"
-"((in207_0) in_65)"
-"((config208_0) config_61)"
-"                                                 ((temp209_1) \"#E\"))"
-"(read-symbol-or-number8.1 #f #f temp209_1 #t temp206_0 in207_0 config208_0)))"
+"((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)))"
 "(if(unsafe-fx< index_5 20)"
 "(let-values()"
 "(let-values(((temp210_1) #f)"
-"((in211_0) in_65)"
-"((config212_0) config_61)"
-"                                                   ((temp213_0) \"#i\"))"
-"(read-symbol-or-number8.1 #f #f temp213_0 #t temp210_1 in211_0 config212_0)))"
+"((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_0) #f)"
-"((in215_0) in_65)"
-"((config216_0) config_61)"
+"(let-values(((temp214_1) #f)"
+"((in215_0) in_70)"
+"((config216_0) config_58)"
 "                                                   ((temp217_1) \"#I\"))"
-"(read-symbol-or-number8.1 #f #f temp217_1 #t temp214_0 in215_0 config216_0))))))"
+"(read-symbol-or-number8.1 #f temp217_1 temp214_1 in215_0 config216_0))))))"
 "(if(unsafe-fx< index_5 23)"
 "(if(unsafe-fx< index_5 22)"
 "(let-values()"
 "(let-values(((temp218_0) #f)"
-"((in219_0) in_65)"
-"((config220_0) config_61)"
-"                                                 ((temp221_0) \"#d\"))"
-"(read-symbol-or-number8.1 #f #f temp221_0 #t temp218_0 in219_0 config220_0)))"
+"((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_65)"
-"((config224_0) config_61)"
-"                                                 ((temp225_0) \"#B\"))"
-"(read-symbol-or-number8.1 #f #f temp225_0 #t temp222_1 in223_0 config224_0))))"
+"((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)"
 "(let-values()"
-"(let-values(((temp226_0) #f)"
-"((in227_0) in_65)"
-"((config228_0) config_61)"
-"                                                 ((temp229_0) \"#o\"))"
-"(read-symbol-or-number8.1 #f #f temp229_0 #t temp226_0 in227_0 config228_0)))"
+"(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)"
 "(let-values()"
-"(let-values(((temp230_1) #f)"
-"((in231_0) in_65)"
-"((config232_0) config_61)"
+"(let-values(((temp230_2) #f)"
+"((in231_0) in_70)"
+"((config232_0) config_58)"
 "                                                   ((temp233_1) \"#O\"))"
-"(read-symbol-or-number8.1 #f #f temp233_1 #t temp230_1 in231_0 config232_0)))"
+"(read-symbol-or-number8.1 #f temp233_1 temp230_2 in231_0 config232_0)))"
 "(let-values()"
 "(let-values(((temp234_0) #f)"
-"((in235_0) in_65)"
-"((config236_0) config_61)"
-"                                                   ((temp237_1) \"#D\"))"
-"(read-symbol-or-number8.1"
-" #f"
-" #f"
-" temp237_1"
-" #t"
-" temp234_0"
-" in235_0"
-" config236_0)))))))"
+"((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)))))))"
 "(if(unsafe-fx< index_5 30)"
 "(if(unsafe-fx< index_5 27)"
 "(let-values()"
 "(let-values(((temp238_0) #f)"
-"((in239_0) in_65)"
-"((config240_0) config_61)"
+"((in239_0) in_70)"
+"((config240_0) config_58)"
 "                                               ((temp241_0) \"#b\"))"
-"(read-symbol-or-number8.1 #f #f temp241_0 #t temp238_0 in239_0 config240_0)))"
+"(read-symbol-or-number8.1 #f temp241_0 temp238_0 in239_0 config240_0)))"
 "(if(unsafe-fx< index_5 28)"
 "(let-values()"
-"(let-values(((temp242_0) #f)"
-"((in243_0) in_65)"
-"((config244_0) config_61)"
+"(let-values(((temp242_1) #f)"
+"((in243_0) in_70)"
+"((config244_0) config_58)"
 "                                                 ((temp245_0) \"#x\"))"
-"(read-symbol-or-number8.1 #f #f temp245_0 #t temp242_0 in243_0 config244_0)))"
+"(read-symbol-or-number8.1 #f temp245_0 temp242_1 in243_0 config244_0)))"
 "(if(unsafe-fx< index_5 29)"
 "(let-values()"
 "(let-values(((temp246_0) #f)"
-"((in247_0) in_65)"
-"((config248_0) config_61)"
-"                                                   ((temp249_0) \"#X\"))"
-"(read-symbol-or-number8.1 #f #f temp249_0 #t temp246_0 in247_0 config248_0)))"
+"((in247_0) in_70)"
+"((config248_0) config_58)"
+"                                                   ((temp249_2) \"#X\"))"
+"(read-symbol-or-number8.1 #f temp249_2 temp246_0 in247_0 config248_0)))"
 "(let-values()"
 "(let-values(((c2_14)"
-"(let-values(((in_71) in_65)"
-"((source_50)(read-config-source config_61)))"
-"(read-char-or-special in_71 special1.1 source_50))))"
+"(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()"
-"(read-one #f in_65(override-parameter read-case-sensitive config_61 #t)))"
+"(read-one #f in_70(override-parameter read-case-sensitive config_58 #t)))"
 "(if(if(equal? tmp_59 '#\\i) #t(equal? tmp_59 '#\\I))"
 "(let-values()"
 "(read-one"
 " #f"
-" in_65"
-"(override-parameter read-case-sensitive config_61 #f)))"
+" in_70"
+"(override-parameter read-case-sensitive config_58 #f)))"
 "(let-values()"
-"(let-values(((in250_0) in_65)"
-"((config251_0) config_61)"
+"(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_110))"
+"((c255_0) c_107))"
 "(reader-error12.1"
-" #f"
-" #f"
+" unsafe-undefined"
 " c2252_0"
-" #t"
-" #f"
-" #f"
-" #f"
 " #f"
+" unsafe-undefined"
 " in250_0"
 " config251_0"
 " temp253_0"
 "(list dispatch-c254_0 c255_0))))))))))))"
 "(if(unsafe-fx< index_5 32)"
 "(if(unsafe-fx< index_5 31)"
-"(let-values()(read-hash read-one dispatch-c_5 c_110 in_65 config_61))"
+"(let-values()(read-hash read-one dispatch-c_5 c_107 in_70 config_58))"
 "(let-values()"
-"(let-values(((accum-str_12)(accum-string-init! config_61)))"
+"(let-values(((accum-str_12)(accum-string-init! config_58)))"
 "(let-values((()(begin(accum-string-add! accum-str_12 dispatch-c_5)(values))))"
-"(let-values((()(begin(accum-string-add! accum-str_12 c_110)(values))))"
+"(let-values((()(begin(accum-string-add! accum-str_12 c_107)(values))))"
 "(let-values(((c2_15)"
-"(let-values(((in_72) in_65)"
-"((source_51)(read-config-source config_61)))"
-"(read-char-or-special in_72 special1.1 source_51))))"
+"(let-values(((in_77) in_70)"
+"((source_49)(read-config-source config_58)))"
+"(read-char-or-special in_77 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_110 accum-str_12 in_65 config_61))"
+"(let-values()(read-regexp c_107 accum-str_12 in_70 config_58))"
 "(if(equal? tmp_60 '#\\e)"
 "(let-values()"
 "(read-extension-reader"
 " read-one"
 " read-undotted"
 " dispatch-c_5"
-" in_65"
-" config_61))"
+" in_70"
+" config_58))"
 "(let-values()"
-"(let-values(((in256_0) in_65)"
-"((config257_0) config_61)"
+"(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_61))"
+"((config261_0) config_58))"
 "(accum-string-get!6.1"
-" #f"
-" #f"
+" 0"
 " accum-str260_0"
 " config261_0))))"
 "(bad-syntax-error20.1"
 " c2258_0"
-" #t"
 " in256_0"
 " config257_0"
 " temp259_0)))))))))))))"
 "(if(unsafe-fx< index_5 33)"
 "(let-values()"
-"(let-values(((accum-str_13)(accum-string-init! config_61)))"
+"(let-values(((accum-str_13)(accum-string-init! config_58)))"
 "(let-values((()(begin(accum-string-add! accum-str_13 dispatch-c_5)(values))))"
-"(let-values((()(begin(accum-string-add! accum-str_13 c_110)(values))))"
+"(let-values((()(begin(accum-string-add! accum-str_13 c_107)(values))))"
 "(let-values(((c2_16)"
-"(let-values(((in_73) in_65)"
-"((source_52)(read-config-source config_61)))"
-"(read-char-or-special in_73 special1.1 source_52))))"
+"(let-values(((in_78) in_70)"
+"((source_50)(read-config-source config_58)))"
+"(read-char-or-special in_78 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_110 accum-str_13 in_65 config_61))"
+"(let-values()(read-regexp c_107 accum-str_13 in_70 config_58))"
 "(let-values()"
-"(let-values(((in262_0) in_65)"
-"((config263_0) config_61)"
+"(let-values(((in262_0) in_70)"
+"((config263_0) config_58)"
 "((c2264_0) c2_16)"
-"((temp265_0)"
+"((temp265_1)"
 "(let-values(((accum-str266_0) accum-str_13)"
-"((config267_0) config_61))"
+"((config267_0) config_58))"
 "(accum-string-get!6.1"
-" #f"
-" #f"
+" 0"
 " accum-str266_0"
 " config267_0))))"
 "(bad-syntax-error20.1"
 " c2264_0"
-" #t"
 " in262_0"
 " config263_0"
-" temp265_0)))))))))))"
+" temp265_1)))))))))))"
 "(if(unsafe-fx< index_5 34)"
 "(let-values()"
 "(let-values(((read-undotted268_0) read-undotted)"
 "((dispatch-c269_0) dispatch-c_5)"
-"((in270_0) in_65)"
-"((config271_0) config_61))"
+"((in270_0) in_70)"
+"((config271_0) config_58))"
 "(read-extension-lang7.1"
 " #f"
-" #f"
 " read-undotted268_0"
 " dispatch-c269_0"
 " in270_0"
@@ -57517,52 +56144,47 @@ static const char *startup_source =
 "(let-values()"
 "(let-values(((read-undotted272_0) read-undotted)"
 "((dispatch-c273_0) dispatch-c_5)"
-"((in274_0) in_65)"
-"((config275_0) config_61))"
+"((in274_0) in_70)"
+"((config275_0) config_58))"
 "(read-extension-#!16.1"
 " #f"
-" #f"
 " read-undotted272_0"
 " dispatch-c273_0"
 " in274_0"
 " config275_0)))"
 "(let-values()"
-"(if(check-parameter 1/read-accept-compiled config_61)"
+"(if(check-parameter 1/read-accept-compiled config_58)"
 "(let-values()"
-"(wrap((read-config-read-compiled config_61) in_65) in_65 config_61 c_110))"
+"(wrap((read-config-read-compiled config_58) in_70) in_70 config_58 c_107))"
 "(let-values()"
-"(let-values(((in276_0) in_65)"
-"((config277_0) config_61)"
-"                                                         ((temp278_0) \"`~a~~` compiled expressions not enabled\")"
+"(let-values(((in276_0) in_70)"
+"((config277_0) config_58)"
+"                                                         ((temp278_1) \"`~a~~` compiled expressions not enabled\")"
 "((dispatch-c279_0) dispatch-c_5))"
 "(reader-error12.1"
+" unsafe-undefined"
+" unsafe-undefined"
 " #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
+" unsafe-undefined"
 " in276_0"
 " config277_0"
-" temp278_0"
+" temp278_1"
 "(list dispatch-c279_0)))))))))))))))))))))))))"
 "(define-values"
 "(retry-special-comment)"
-"(lambda(v_259 in_74 config_62)"
+"(lambda(v_255 in_79 config_59)"
 "(begin"
-"(if(1/special-comment? v_259)"
-"(let-values()(if(read-config-keep-comment? config_62) v_259(read-undotted #f in_74 config_62)))"
-"(let-values() v_259)))))"
+"(if(1/special-comment? v_255)"
+"(let-values()(if(read-config-keep-comment? config_59) v_255(read-undotted #f in_79 config_59)))"
+"(let-values() v_255)))))"
 "(define-values"
 "(1/module-declared?)"
-"(let-values(((module-declared?4_0)"
-"(lambda(mod3_0 load?1_0 load?2_0)"
+"(let-values(((module-declared?3_0)"
+"(lambda(mod2_0 load?1_0)"
 "(begin"
-" 'module-declared?4"
-"(let-values(((mod_4) mod3_0))"
-"(let-values(((load?_3)(if load?2_0 load?1_0 #f)))"
+" 'module-declared?3"
+"(let-values(((mod_4) mod2_0))"
+"(let-values(((load?_3) load?1_0))"
 "(let-values()"
 "(let-values()"
 "(let-values()"
@@ -57573,14 +56195,14 @@ static const char *startup_source =
 "(let-values()"
 "(raise-argument-error 'module-declared? module-reference-str mod_4)))"
 "(values))))"
-"(let-values(((ns_56)(1/current-namespace)))"
-"(let-values(((name_52)"
-"(let-values(((mod36_0) mod_4)((load?37_0) load?_3))"
-"(reference->resolved-module-path32.1 load?37_0 mod36_0))))"
-"(if(namespace->module ns_56 name_52) #t #f)))))))))))))"
+"(let-values(((ns_114)(1/current-namespace)))"
+"(let-values(((name_40)"
+"(let-values(((mod31_0) mod_4)((load?32_0) load?_3))"
+"(reference->resolved-module-path27.1 load?32_0 mod31_0))))"
+"(if(namespace->module ns_114 name_40) #t #f)))))))))))))"
 "(case-lambda"
-"((mod_5)(begin 'module-declared?(module-declared?4_0 mod_5 #f #f)))"
-"((mod_6 load?1_1)(module-declared?4_0 mod_6 load?1_1 #t)))))"
+"((mod_5)(begin 'module-declared?(module-declared?3_0 mod_5 #f)))"
+"((mod_6 load?1_1)(module-declared?3_0 mod_6 load?1_1)))))"
 "(define-values"
 "(1/module-predefined?)"
 "(lambda(mod_7)"
@@ -57594,55 +56216,55 @@ static const char *startup_source =
 "(void)"
 "(let-values()(raise-argument-error 'module-predefined? module-reference-str mod_7)))"
 "(values))))"
-"(let-values(((ns_113)(1/current-namespace)))"
+"(let-values(((ns_68)(1/current-namespace)))"
 "(let-values(((name_69)"
-"(let-values(((mod39_0) mod_7)((temp40_4) #f))"
-"(reference->resolved-module-path32.1 temp40_4 mod39_0))))"
-"(let-values(((m_24)(namespace->module ns_113 name_69)))"
+"(let-values(((mod34_0) mod_7)((temp35_5) #f))"
+"(reference->resolved-module-path27.1 temp35_5 mod34_0))))"
+"(let-values(((m_24)(namespace->module ns_68 name_69)))"
 "(if m_24(module-is-predefined? m_24) #f))))))))))"
 "(define-values"
 "(module->)"
-"(let-values(((module->11_0)"
-"(lambda(extract8_0 who9_0 mod10_0 load?6_0 load?7_0)"
+"(let-values(((module->9_0)"
+"(lambda(extract6_0 who7_0 mod8_0 load?5_0)"
 "(begin"
-" 'module->11"
-"(let-values(((extract_1) extract8_0))"
-"(let-values(((who_33) who9_0))"
-"(let-values(((mod_8) mod10_0))"
-"(let-values(((load?_4)(if load?7_0 load?6_0 #f)))"
+" 'module->9"
+"(let-values(((extract_1) extract6_0))"
+"(let-values(((who_31) who7_0))"
+"(let-values(((mod_8) mod8_0))"
+"(let-values(((load?_4) load?5_0))"
 "(let-values()"
 "(let-values((()"
 "(begin"
 "(if(module-reference? mod_8)"
 "(void)"
 "(let-values()"
-"(raise-argument-error who_33 module-reference-str mod_8)))"
+"(raise-argument-error who_31 module-reference-str mod_8)))"
 "(values))))"
 "(let-values(((m_25)"
 "(namespace->module/complain"
-" who_33"
+" who_31"
 "(1/current-namespace)"
-"(let-values(((mod41_0) mod_8)((load?42_0) load?_4))"
-"(reference->resolved-module-path32.1 load?42_0 mod41_0)))))"
+"(let-values(((mod36_0) mod_8)((load?37_0) load?_4))"
+"(reference->resolved-module-path27.1 load?37_0 mod36_0)))))"
 "(extract_1 m_25))))))))))))"
 "(case-lambda"
-"((extract_2 who_34 mod_9)(begin(module->11_0 extract_2 who_34 mod_9 #f #f)))"
-"((extract_3 who_35 mod_10 load?6_1)(module->11_0 extract_3 who_35 mod_10 load?6_1 #t)))))"
+"((extract_2 who_22 mod_9)(begin(module->9_0 extract_2 who_22 mod_9 #f)))"
+"((extract_3 who_32 mod_10 load?5_1)(module->9_0 extract_3 who_32 mod_10 load?5_1)))))"
 "(define-values"
 "(1/module->language-info)"
-"(let-values(((module->language-info16_0)"
-"(lambda(mod15_0 load?13_0 load?14_0)"
+"(let-values(((module->language-info13_0)"
+"(lambda(mod12_0 load?11_0)"
 "(begin"
-" 'module->language-info16"
-"(let-values(((mod_11) mod15_0))"
-"(let-values(((load?_5)(if load?14_0 load?13_0 #f)))"
+" 'module->language-info13"
+"(let-values(((mod_11) mod12_0))"
+"(let-values(((load?_5) load?11_0))"
 "(let-values()"
 "(let-values()"
 "(let-values()"
 "(module-> module-language-info 'module->language-info mod_11 load?_5))))))))))"
 "(case-lambda"
-"((mod_12)(begin 'module->language-info(module->language-info16_0 mod_12 #f #f)))"
-"((mod_13 load?13_1)(module->language-info16_0 mod_13 load?13_1 #t)))))"
+"((mod_12)(begin 'module->language-info(module->language-info13_0 mod_12 #f)))"
+"((mod_13 load?11_1)(module->language-info13_0 mod_13 load?11_1)))))"
 "(define-values"
 "(1/module->imports)"
 "(lambda(mod_14)"
@@ -57669,23 +56291,23 @@ static const char *startup_source =
 " mod_16))))"
 "(define-values"
 "(1/module-provide-protected?)"
-"(lambda(mod_17 sym_95)"
+"(lambda(mod_17 sym_97)"
 "(begin"
 " 'module-provide-protected?"
 "(module->"
 "(lambda(m_28)"
-"(let-values(((b/p_3)(hash-ref(module-provides m_28) sym_95 #f)))"
-"(let-values(((or-part_33)(not b/p_3)))(if or-part_33 or-part_33(provided-as-protected? b/p_3)))))"
+"(let-values(((b/p_3)(hash-ref(module-provides m_28) sym_97 #f)))"
+"(let-values(((or-part_285)(not b/p_3)))(if or-part_285 or-part_285(provided-as-protected? b/p_3)))))"
 " 'module-provide-protected?"
 " mod_17))))"
 "(define-values"
 "(1/module->namespace)"
-"(let-values(((module->namespace21_0)"
-"(lambda(mod20_0 ns18_2 ns19_1)"
+"(let-values(((module->namespace17_0)"
+"(lambda(mod16_0 ns15_0)"
 "(begin"
-" 'module->namespace21"
-"(let-values(((mod_18) mod20_0))"
-"(let-values(((ns_114)(if ns19_1 ns18_2(1/current-namespace))))"
+" 'module->namespace17"
+"(let-values(((mod_18) mod16_0))"
+"(let-values(((ns_48)(if(eq? ns15_0 unsafe-undefined)(1/current-namespace) ns15_0)))"
 "(let-values()"
 "(let-values()"
 "(let-values()"
@@ -57701,40 +56323,37 @@ static const char *startup_source =
 "(values))))"
 "(let-values((()"
 "(begin"
-"(if(1/namespace? ns_114)"
+"(if(1/namespace? ns_48)"
 "(void)"
 "(let-values()"
-"                                                    (raise-argument-error 'module->namespace \"namespace?\" ns_114)))"
+"                                                    (raise-argument-error 'module->namespace \"namespace?\" ns_48)))"
 "(values))))"
-"(let-values(((name_70)"
-"(let-values(((mod49_0) mod_18)((temp50_3) #t))"
-"(reference->resolved-module-path32.1 temp50_3 mod49_0))))"
-"(let-values(((phase_130)(namespace-phase ns_114)))"
+"(let-values(((name_41)"
+"(let-values(((mod44_0) mod_18)((temp45_2) #t))"
+"(reference->resolved-module-path27.1 temp45_2 mod44_0))))"
+"(let-values(((phase_135)(namespace-phase ns_48)))"
 "(let-values(((m-ns_17)"
-"(let-values(((ns51_1) ns_114)"
-"((name52_0) name_70)"
-"((phase53_0) phase_130))"
+"(let-values(((ns46_0) ns_48)"
+"((name47_1) name_41)"
+"((phase48_1) phase_135))"
 "(namespace->module-namespace82.1"
 " #f"
 " #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" ns51_1"
-" name52_0"
-" phase53_0))))"
+" unsafe-undefined"
+" ns46_0"
+" name47_1"
+" phase48_1))))"
 "(begin"
 "(if m-ns_17"
 "(void)"
 "(let-values()"
 "(begin"
-"(namespace->module/complain 'module->namespace ns_114 name_70)"
+"(namespace->module/complain 'module->namespace ns_48 name_41)"
 "(raise-arguments-error"
 " 'module->namespace"
 "                                                 \"module not instantiated in the current namespace\""
 "                                                 \"name\""
-" name_70))))"
+" name_41))))"
 "(if(inspector-superior?"
 "(current-code-inspector)"
 "(namespace-inspector m-ns_17))"
@@ -57744,43 +56363,52 @@ static const char *startup_source =
 " 'module->namespace"
 "                                               \"current code inspector cannot access namespace of module\""
 "                                               \"module name\""
-" name_70)))"
+" name_41)))"
 "(if(namespace-get-root-expand-ctx m-ns_17)"
 "(void)"
 "(let-values()"
 "(namespace-set-root-expand-ctx!"
 " m-ns_17"
-"(let-values(((temp54_4)(namespace-mpi m-ns_17)))"
-"(make-root-expand-context13.1 #f #f #f #f #f #f #f #f temp54_4)))))"
-"(let-values(((ns46_1) ns_114)"
-"((temp47_2)(namespace-mpi m-ns_17))"
-"((phase48_1) phase_130))"
-"(namespace-module-make-available!112.1 #f #f ns46_1 temp47_2 phase48_1))"
+"(let-values(((temp49_3)(namespace-mpi m-ns_17)))"
+"(make-root-expand-context13.1"
+" #f"
+" null"
+" unsafe-undefined"
+" unsafe-undefined"
+" temp49_3)))))"
+"(let-values(((ns41_0) ns_48)"
+"((temp42_3)(namespace-mpi m-ns_17))"
+"((phase43_1) phase_135))"
+"(namespace-module-make-available!112.1"
+" unsafe-undefined"
+" ns41_0"
+" temp42_3"
+" phase43_1))"
 " m-ns_17)))))))))))))))"
 "(case-lambda"
-"((mod_19)(begin 'module->namespace(module->namespace21_0 mod_19 #f #f)))"
-"((mod_20 ns18_3)(module->namespace21_0 mod_20 ns18_3 #t)))))"
+"((mod_19)(begin 'module->namespace(module->namespace17_0 mod_19 unsafe-undefined)))"
+"((mod_20 ns15_1)(module->namespace17_0 mod_20 ns15_1)))))"
 "(define-values"
 "(1/namespace-unprotect-module)"
-"(let-values(((namespace-unprotect-module27_0)"
-"(lambda(insp25_0 mod26_0 ns23_0 ns24_1)"
+"(let-values(((namespace-unprotect-module22_0)"
+"(lambda(insp20_0 mod21_0 ns19_1)"
 "(begin"
-" 'namespace-unprotect-module27"
-"(let-values(((insp_12) insp25_0))"
-"(let-values(((mod_21) mod26_0))"
-"(let-values(((ns_115)(if ns24_1 ns23_0(1/current-namespace))))"
+" 'namespace-unprotect-module22"
+"(let-values(((insp_18) insp20_0))"
+"(let-values(((mod_21) mod21_0))"
+"(let-values(((ns_115)(if(eq? ns19_1 unsafe-undefined)(1/current-namespace) ns19_1)))"
 "(let-values()"
 "(let-values()"
 "(let-values()"
 "(let-values((()"
 "(begin"
-"(if(inspector? insp_12)"
+"(if(inspector? insp_18)"
 "(void)"
 "(let-values()"
 "(raise-argument-error"
 " 'namespace-unprotect-module"
 "                                                     \"inspector?\""
-" insp_12)))"
+" insp_18)))"
 "(values))))"
 "(let-values((()"
 "(begin"
@@ -57802,98 +56430,96 @@ static const char *startup_source =
 "                                                         \"namespace?\""
 " ns_115)))"
 "(values))))"
-"(let-values(((name_71)"
-"(let-values(((mod56_0) mod_21)((temp57_1) #f))"
-"(reference->resolved-module-path32.1 temp57_1 mod56_0))))"
-"(let-values(((phase_137)(namespace-phase ns_115)))"
-"(let-values(((m-ns_15)"
-"(let-values(((ns58_0) ns_115)"
-"((name59_0) name_71)"
-"((phase60_0) phase_137))"
+"(let-values(((name_70)"
+"(let-values(((mod51_0) mod_21)((temp52_3) #f))"
+"(reference->resolved-module-path27.1 temp52_3 mod51_0))))"
+"(let-values(((phase_6)(namespace-phase ns_115)))"
+"(let-values(((m-ns_18)"
+"(let-values(((ns53_3) ns_115)"
+"((name54_0) name_70)"
+"((phase55_1) phase_6))"
 "(namespace->module-namespace82.1"
 " #f"
 " #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" ns58_0"
-" name59_0"
-" phase60_0))))"
+" unsafe-undefined"
+" ns53_3"
+" name54_0"
+" phase55_1))))"
 "(begin"
-"(if m-ns_15"
+"(if m-ns_18"
 "(void)"
 "(let-values()"
 "(raise-arguments-error"
 " 'namespace-unprotect-module"
 "                                                   \"module not instantiated\""
 "                                                   \"module name\""
-" name_71)))"
-"(if(inspector-superior? insp_12(namespace-inspector m-ns_15))"
+" name_70)))"
+"(if(inspector-superior? insp_18(namespace-inspector m-ns_18))"
 "(let-values()"
 "(set-namespace-inspector!"
-" m-ns_15"
+" m-ns_18"
 "(make-inspector(current-code-inspector))))"
 "(void)))))))))))))))))))"
 "(case-lambda"
-"((insp_18 mod_22)(begin 'namespace-unprotect-module(namespace-unprotect-module27_0 insp_18 mod_22 #f #f)))"
-"((insp_19 mod_23 ns23_1)(namespace-unprotect-module27_0 insp_19 mod_23 ns23_1 #t)))))"
+"((insp_19 mod_22)"
+"(begin 'namespace-unprotect-module(namespace-unprotect-module22_0 insp_19 mod_22 unsafe-undefined)))"
+"((insp_9 mod_23 ns19_2)(namespace-unprotect-module22_0 insp_9 mod_23 ns19_2)))))"
 "(define-values"
 "(namespace->module/complain)"
-"(lambda(who_36 ns_116 name_72)"
+"(lambda(who_33 ns_116 name_71)"
 "(begin"
-"(let-values(((or-part_212)(namespace->module ns_116 name_72)))"
-"(if or-part_212"
-" or-part_212"
-"          (raise-arguments-error who_36 \"unknown module in the current namespace\" \"name\" name_72))))))"
+"(let-values(((or-part_211)(namespace->module ns_116 name_71)))"
+"(if or-part_211"
+" or-part_211"
+"          (raise-arguments-error who_33 \"unknown module in the current namespace\" \"name\" name_71))))))"
 "(define-values"
 "(module-reference?)"
 "(lambda(mod_24)"
 "(begin"
-"(let-values(((or-part_252)(1/module-path? mod_24)))"
-"(if or-part_252"
-" or-part_252"
-"(let-values(((or-part_364)(1/module-path-index? mod_24)))"
-"(if or-part_364 or-part_364(1/resolved-module-path? mod_24))))))))"
+"(let-values(((or-part_134)(1/module-path? mod_24)))"
+"(if or-part_134"
+" or-part_134"
+"(let-values(((or-part_258)(1/module-path-index? mod_24)))"
+"(if or-part_258 or-part_258(1/resolved-module-path? mod_24))))))))"
 " (define-values (module-reference-str) \"(or/c module-path? module-path-index? resolved-module-path?)\")"
 "(define-values"
-"(reference->resolved-module-path32.1)"
-"(lambda(load?29_0 mod31_0)"
+"(reference->resolved-module-path27.1)"
+"(lambda(load?24_0 mod26_0)"
 "(begin"
-" 'reference->resolved-module-path32"
-"(let-values(((mod_25) mod31_0))"
-"(let-values(((load?_6) load?29_0))"
+" 'reference->resolved-module-path27"
+"(let-values(((mod_25) mod26_0))"
+"(let-values(((load?_6) load?24_0))"
 "(let-values()"
 "(if(1/resolved-module-path? mod_25)"
 "(let-values() mod_25)"
 "(let-values()"
-"(let-values(((mpi_50)(if(1/module-path-index? mod_25) mod_25(1/module-path-index-join mod_25 #f))))"
-"(1/module-path-index-resolve mpi_50 load?_6))))))))))"
+"(let-values(((mpi_48)(if(1/module-path-index? mod_25) mod_25(1/module-path-index-join mod_25 #f))))"
+"(1/module-path-index-resolve mpi_48 load?_6))))))))))"
 "(define-values"
 "(read-syntax$1)"
-"(lambda(src_0 in_75)"
+"(lambda(src_0 in_26)"
 "(begin"
 " 'read-syntax"
-"(if(default-read-handler? in_75)"
+"(if(default-read-handler? in_26)"
 "(let-values()"
 "(begin"
-"(maybe-flush-stdout in_75)"
-"(let-values(((in23_2) in_75)((temp24_9) #t)((src25_0) src_0))"
-"(read*14.1 temp24_9 #f #f #f #f #f #f #f #f src25_0 #t in23_2))))"
-"(let-values()(values((port-read-handler in_75) in_75 src_0)))))))"
+"(maybe-flush-stdout in_26)"
+"(let-values(((in22_3) in_26)((temp23_6) #t)((src24_0) src_0))"
+"(read*14.1 temp23_6 #f #f unsafe-undefined #f src24_0 in22_3))))"
+"(let-values()(values((port-read-handler in_26) in_26 src_0)))))))"
 "(define-values"
 "(read-syntax/recursive$1)"
-"(lambda(src_1 in_76 start_58 readtable_4 graph?_1)"
+"(lambda(src_1 in_30 start_57 readtable_4 graph?_1)"
 "(begin"
 " 'read-syntax/recursive"
-"(let-values(((in26_2) in_76)"
-"((temp27_9) #t)"
-"((temp28_6) #t)"
-"((src29_0) src_1)"
-"((start30_0) start_58)"
-"((readtable31_1) readtable_4)"
-"((temp32_4)(not graph?_1)))"
-"(read*14.1 temp27_9 start30_0 #t temp32_4 #t readtable31_1 #t temp28_6 #t src29_0 #t in26_2)))))"
+"(let-values(((in25_1) in_30)"
+"((temp26_5) #t)"
+"((temp27_8) #t)"
+"((src28_0) src_1)"
+"((start29_0) start_57)"
+"((readtable30_0) readtable_4)"
+"((temp31_4)(not graph?_1)))"
+"(read*14.1 temp26_5 start29_0 temp31_4 readtable30_0 temp27_8 src28_0 in25_1)))))"
 "(define-values"
 "(read$1)"
 "(lambda(in_11)"
@@ -57903,142 +56529,111 @@ static const char *startup_source =
 "(let-values()"
 "(begin"
 "(maybe-flush-stdout in_11)"
-"(let-values(((in33_4) in_11)((temp34_4) #f))(read*14.1 temp34_4 #f #f #f #f #f #f #f #f #f #f in33_4))))"
+"(let-values(((in32_0) in_11)((temp33_4) #f))(read*14.1 temp33_4 #f #f unsafe-undefined #f #f in32_0))))"
 "(let-values()(values((port-read-handler in_11) in_11)))))))"
 "(define-values"
 "(read/recursive$1)"
-"(lambda(in_77 start_59 readtable_5 graph?_2)"
+"(lambda(in_43 start_58 readtable_5 graph?_2)"
 "(begin"
 " 'read/recursive"
-"(let-values(((in35_0) in_77)"
-"((temp36_8) #f)"
-"((temp37_4) #t)"
-"((start38_0) start_59)"
-"((readtable39_0) readtable_5)"
-"((temp40_5)(not graph?_2)))"
-"(read*14.1 temp36_8 start38_0 #t temp40_5 #t readtable39_0 #t temp37_4 #t #f #f in35_0)))))"
+"(let-values(((in34_2) in_43)"
+"((temp35_6) #f)"
+"((temp36_7) #t)"
+"((start37_0) start_58)"
+"((readtable38_0) readtable_5)"
+"((temp39_6)(not graph?_2)))"
+"(read*14.1 temp35_6 start37_0 temp39_6 readtable38_0 temp36_7 #f in34_2)))))"
 "(define-values"
 "(read*14.1)"
-"(lambda(for-syntax?1_0"
-" init-c4_0"
-" init-c10_0"
-" local-graph?6_1"
-" local-graph?12_0"
-" readtable5_0"
-" readtable11_0"
-" recursive?2_0"
-" recursive?8_0"
-" source3_0"
-" source9_0"
-" in13_3)"
+"(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_78) in13_3))"
+"(let-values(((in_80) in13_3))"
 "(let-values(((for-syntax?_11) for-syntax?1_0))"
-"(let-values(((recursive?_1)(if recursive?8_0 recursive?2_0 #f)))"
-"(let-values(((source_53)(if source9_0 source3_0 #f)))"
-"(let-values(((init-c_18)(if init-c10_0 init-c4_0 #f)))"
-"(let-values(((readtable_6)(if readtable11_0 readtable5_0(1/current-readtable))))"
-"(let-values(((local-graph?_2)(if local-graph?12_0 local-graph?6_1 #f)))"
+"(let-values(((recursive?_1) recursive?2_0))"
+"(let-values(((source_51) source3_0))"
+"(let-values(((init-c_19) init-c4_0))"
+"(let-values(((readtable_6)"
+"(if(eq? readtable5_0 unsafe-undefined)(1/current-readtable) readtable5_0)))"
+"(let-values(((local-graph?_2) local-graph?6_1))"
 "(let-values()"
 "(let-values()"
-"(let-values(((in41_1) in_78)"
-"((for-syntax?42_0) for-syntax?_11)"
-"((recursive?43_0) recursive?_1)"
-"((source44_0) source_53)"
-"((temp45_1)(if for-syntax?_11 read-to-syntax #f))"
-"((init-c46_0) init-c_18)"
-"((readtable47_0) readtable_6)"
-"((local-graph?48_0) local-graph?_2)"
-"((read-compiled-linklet49_0) 1/read-compiled-linklet)"
-"((dynamic-require-reader50_0) dynamic-require-reader)"
-"((read-module-declared?51_0) read-module-declared?)"
-"((read-coerce52_0) read-coerce)"
-"((read-coerce-key53_0) read-coerce-key))"
+"(let-values(((in40_2) in_80)"
+"((for-syntax?41_0) for-syntax?_11)"
+"((recursive?42_0) recursive?_1)"
+"((source43_0) source_51)"
+"((temp44_5)(if for-syntax?_11 read-to-syntax #f))"
+"((init-c45_0) init-c_19)"
+"((readtable46_0) readtable_6)"
+"((local-graph?47_0) local-graph?_2)"
+"((read-compiled-linklet48_0) 1/read-compiled-linklet)"
+"((dynamic-require-reader49_0) dynamic-require-reader)"
+"((read-module-declared?50_0) read-module-declared?)"
+"((read-coerce51_0) read-coerce)"
+"((read-coerce-key52_0) read-coerce-key))"
 "(read30.1"
-" read-coerce52_0"
-" #t"
-" read-coerce-key53_0"
-" #t"
-" dynamic-require-reader50_0"
-" #t"
-" for-syntax?42_0"
-" #t"
-" init-c46_0"
-" #t"
-" #f"
-" #f"
-" local-graph?48_0"
-" #t"
-" read-module-declared?51_0"
-" #t"
-" #f"
-" #f"
-" read-compiled-linklet49_0"
-" #t"
-" readtable47_0"
-" #t"
-" recursive?43_0"
-" #t"
-" source44_0"
-" #t"
-" temp45_1"
-" #t"
-" in41_1))))))))))))))"
+" read-coerce51_0"
+" read-coerce-key52_0"
+" dynamic-require-reader49_0"
+" for-syntax?41_0"
+" init-c45_0"
+" unsafe-undefined"
+" local-graph?47_0"
+" read-module-declared?50_0"
+" unsafe-undefined"
+" read-compiled-linklet48_0"
+" readtable46_0"
+" recursive?42_0"
+" source43_0"
+" temp44_5"
+" in40_2))))))))))))))"
 "(define-values"
 "(read-language$1)"
-"(lambda(in_79 fail-thunk_0)"
+"(lambda(in_81 fail-thunk_0)"
 "(begin"
 " 'read-language"
-"(let-values(((in54_1) in_79)"
-"((fail-thunk55_0) fail-thunk_0)"
-"((temp56_1) #t)"
-"((read-to-syntax57_0) read-to-syntax)"
-"((read-compiled-linklet58_0) 1/read-compiled-linklet)"
-"((dynamic-require-reader59_0) dynamic-require-reader)"
-"((read-module-declared?60_0) read-module-declared?)"
-"((read-coerce61_0) read-coerce)"
-"((read-coerce-key62_0) read-coerce-key))"
+"(let-values(((in53_0) in_81)"
+"((fail-thunk54_0) fail-thunk_0)"
+"((temp55_3) #t)"
+"((read-to-syntax56_0) read-to-syntax)"
+"((read-compiled-linklet57_0) 1/read-compiled-linklet)"
+"((dynamic-require-reader58_0) dynamic-require-reader)"
+"((read-module-declared?59_0) read-module-declared?)"
+"((read-coerce60_0) read-coerce)"
+"((read-coerce-key61_0) read-coerce-key))"
 "(read-language49.1"
-" read-coerce61_0"
-" #t"
-" read-coerce-key62_0"
-" #t"
-" dynamic-require-reader59_0"
-" #t"
-" temp56_1"
-" #t"
-" read-module-declared?60_0"
-" #t"
-" read-compiled-linklet58_0"
-" #t"
-" read-to-syntax57_0"
-" #t"
-" in54_1"
-" fail-thunk55_0)))))"
+" read-coerce60_0"
+" read-coerce-key61_0"
+" dynamic-require-reader58_0"
+" temp55_3"
+" read-module-declared?59_0"
+" read-compiled-linklet57_0"
+" read-to-syntax56_0"
+" in53_0"
+" fail-thunk54_0)))))"
 "(define-values"
 "(read-to-syntax)"
 "(lambda(s-exp_4 srcloc_11 rep_1)"
 "(begin"
 "(let-values(((the-struct_88) empty-syntax))"
 "(if(syntax?$1 the-struct_88)"
-"(let-values(((content63_0)(datum-intern-literal s-exp_4))"
-"((srcloc64_0) srcloc_11)"
-"((props65_0)"
-"(let-values(((tmp_39) rep_1))"
-"(if(equal? tmp_39 '#\\[)"
+"(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() original-square-props)"
-"(if(equal? tmp_39 '#\\{)"
+"(if(equal? tmp_62 '#\\{)"
 "(let-values() original-curly-props)"
 "(let-values() original-props))))))"
 "(syntax1.1"
-" content63_0"
+" content62_0"
 "(syntax-scopes the-struct_88)"
 "(syntax-shifted-multi-scopes the-struct_88)"
 "(syntax-scope-propagations+tamper the-struct_88)"
 "(syntax-mpi-shifts the-struct_88)"
-" srcloc64_0"
-" props65_0"
+" srcloc63_0"
+" props64_0"
 "(syntax-inspector the-struct_88)))"
 "          (raise-argument-error 'struct-copy \"syntax?\" the-struct_88))))))"
 "(define-values(original-props)(syntax-props(syntax-property$1 empty-syntax original-property-sym #t)))"
@@ -58048,86 +56643,88 @@ static const char *startup_source =
 "(define-values"
 "(original-curly-props)"
 "(syntax-props(syntax-property$1(syntax-property$1 empty-syntax original-property-sym #t) 'paren-shape '#\\{)))"
-"(define-values(read-module-declared?)(lambda(mod-path_29)(begin(1/module-declared? mod-path_29 #t))))"
+"(define-values(read-module-declared?)(lambda(mod-path_30)(begin(1/module-declared? mod-path_30 #t))))"
 "(define-values"
 "(read-coerce)"
-"(lambda(for-syntax?_12 v_260 srcloc_12)"
+"(lambda(for-syntax?_12 v_256 srcloc_12)"
 "(begin"
 "(if(not for-syntax?_12)"
-"(let-values()(if(syntax?$1 v_260)(let-values()(syntax->datum$1 v_260))(let-values() v_260)))"
-"(if(syntax?$1 v_260)"
-"(let-values() v_260)"
-"(if(list? v_260)"
+"(let-values()(if(syntax?$1 v_256)(let-values()(syntax->datum$1 v_256))(let-values() v_256)))"
+"(if(syntax?$1 v_256)"
+"(let-values() v_256)"
+"(if(list? v_256)"
 "(let-values()"
 "(read-to-syntax"
 "(reverse$1"
-"(let-values(((lst_271) v_260))"
+"(let-values(((lst_184) v_256))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
-"(let-values()(check-list lst_271)))"
-"((letrec-values(((for-loop_51)"
-"(lambda(fold-var_291 lst_285)"
+"(let-values()(check-list lst_184)))"
+"((letrec-values(((for-loop_117)"
+"(lambda(fold-var_230 lst_285)"
 "(begin"
 " 'for-loop"
 "(if(pair? lst_285)"
-"(let-values(((e_87)(unsafe-car lst_285))"
-"((rest_174)(unsafe-cdr lst_285)))"
-"(let-values(((fold-var_247)"
-"(let-values(((fold-var_292) fold-var_291))"
-"(let-values(((fold-var_293)"
+"(let-values(((e_85)(unsafe-car lst_285))"
+"((rest_163)(unsafe-cdr lst_285)))"
+"(let-values(((fold-var_238)"
+"(let-values(((fold-var_239) fold-var_230))"
+"(let-values(((fold-var_240)"
 "(let-values()"
 "(cons"
 "(let-values()"
-"(read-coerce #t e_87 srcloc_12))"
-" fold-var_292))))"
-"(values fold-var_293)))))"
-"(if(not #f)(for-loop_51 fold-var_247 rest_174) fold-var_247)))"
-" fold-var_291)))))"
-" for-loop_51)"
+"(read-coerce #t e_85 srcloc_12))"
+" fold-var_239))))"
+"(values fold-var_240)))))"
+"(if(not #f)(for-loop_117 fold-var_238 rest_163) fold-var_238)))"
+" fold-var_230)))))"
+" for-loop_117)"
 " null"
-" lst_271))))"
+" lst_184))))"
 " srcloc_12"
 " #f))"
-"(if(pair? v_260)"
+"(if(pair? v_256)"
 "(let-values()"
 "(read-to-syntax"
-"(cons(read-coerce #t(car v_260) srcloc_12)(read-coerce #t(cdr v_260) srcloc_12))"
+"(cons(read-coerce #t(car v_256) srcloc_12)(read-coerce #t(cdr v_256) srcloc_12))"
 " srcloc_12"
 " #f))"
-"(let-values()(read-to-syntax v_260 srcloc_12 #f)))))))))"
+"(let-values()(read-to-syntax v_256 srcloc_12 #f)))))))))"
 "(define-values"
 "(read-coerce-key)"
-"(lambda(for-syntax?_13 k_42)"
-"(begin(if for-syntax?_13(let-values()(datum-intern-literal k_42))(let-values() k_42)))))"
+"(lambda(for-syntax?_0 k_42)"
+"(begin(if for-syntax?_0(let-values()(datum-intern-literal k_42))(let-values() k_42)))))"
 "(define-values(default-read-handler) #f)"
 "(define-values"
 "(default-read-handler?)"
-"(lambda(in_80)"
+"(lambda(in_82)"
 "(begin"
 "(if(not default-read-handler)"
-"(let-values()(begin(set! default-read-handler(port-read-handler in_80)) #t))"
-"(let-values()(eq? default-read-handler(port-read-handler in_80)))))))"
+"(let-values()(begin(set! default-read-handler(port-read-handler in_82)) #t))"
+"(let-values()(eq? default-read-handler(port-read-handler in_82)))))))"
 "(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_42)"
+"(lambda(in_83)"
 "(begin"
-"(if(eq? in_42 orig-input-port)"
+"(if(eq? in_83 orig-input-port)"
 "(let-values()(begin(flush-output orig-output-port)(flush-output orig-error-port)))"
 "(void)))))"
 "(define-values"
 "(dynamic-require-reader)"
-"(let-values(((dynamic-require-reader21_0)"
-"(lambda(mod-path19_0 sym20_0 fail-thunk17_0 fail-thunk18_0)"
+"(let-values(((dynamic-require-reader20_0)"
+"(lambda(mod-path18_0 sym19_1 fail-thunk17_0)"
 "(begin"
-" 'dynamic-require-reader21"
-"(let-values(((mod-path_30) mod-path19_0))"
-"(let-values(((sym_96) sym20_0))"
+" 'dynamic-require-reader20"
+"(let-values(((mod-path_31) mod-path18_0))"
+"(let-values(((sym_98) sym19_1))"
 "(let-values(((fail-thunk_1)"
-"(if fail-thunk18_0 fail-thunk17_0 default-dynamic-require-fail-thunk)))"
+"(if(eq? fail-thunk17_0 unsafe-undefined)"
+" default-dynamic-require-fail-thunk"
+" fail-thunk17_0)))"
 "(let-values()"
 "(let-values(((root-ns_0)(namespace-root-namespace(1/current-namespace))))"
 "(if root-ns_0"
@@ -58137,69 +56734,61 @@ static const char *startup_source =
 "(continuation-mark-set-first #f parameterization-key)"
 " 1/current-namespace"
 " root-ns_0)"
-"(let-values()(1/dynamic-require mod-path_30 sym_96 fail-thunk_1)))"
-"(1/dynamic-require mod-path_30 sym_96 fail-thunk_1)))))))))))"
+"(let-values()(1/dynamic-require mod-path_31 sym_98 fail-thunk_1)))"
+"(1/dynamic-require mod-path_31 sym_98 fail-thunk_1)))))))))))"
 "(case-lambda"
-"((mod-path_31 sym_97)(begin(dynamic-require-reader21_0 mod-path_31 sym_97 #f #f)))"
-"((mod-path_32 sym_98 fail-thunk17_1)(dynamic-require-reader21_0 mod-path_32 sym_98 fail-thunk17_1 #t)))))"
+"((mod-path_32 sym_99)(begin(dynamic-require-reader20_0 mod-path_32 sym_99 unsafe-undefined)))"
+"((mod-path_0 sym_100 fail-thunk17_1)(dynamic-require-reader20_0 mod-path_0 sym_100 fail-thunk17_1)))))"
 "(define-values"
 "(1/read-syntax)"
-"(let-values(((read-syntax5_0)"
-"(lambda(src1_0 in2_0 src3_0 in4_2)"
+"(let-values(((read-syntax3_0)"
+"(lambda(src1_0 in2_0)"
 "(begin"
-" 'read-syntax5"
-"(let-values(((src_0)(if src3_0 src1_0(object-name(current-input-port)))))"
-"(let-values(((in_75)(if in4_2 in2_0(current-input-port))))"
+" '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()"
 "(let-values()"
 "(let-values()"
 "(begin"
-"(if(input-port? in_75)"
+"(if(input-port? in_50)"
 "(void)"
-"                                  (let-values () (raise-argument-error 'read-syntax \"input-port?\" in_75)))"
-"(read-syntax$1 src_0 in_75)))))))))))"
+"                                  (let-values () (raise-argument-error 'read-syntax \"input-port?\" in_50)))"
+"(read-syntax$1 src_2 in_50)))))))))))"
 "(case-lambda"
-"(()(begin 'read-syntax(read-syntax5_0 #f #f #f #f)))"
-"((src_2 in2_1)(read-syntax5_0 src_2 in2_1 #t #t))"
-"((src1_1)(read-syntax5_0 src1_1 #f #t #f)))))"
+"(()(begin 'read-syntax(read-syntax3_0 unsafe-undefined unsafe-undefined)))"
+"((src_3 in2_1)(read-syntax3_0 src_3 in2_1))"
+"((src1_1)(read-syntax3_0 src1_1 unsafe-undefined)))))"
 "(define-values"
 "(1/read-syntax/recursive)"
-"(let-values(((read-syntax/recursive17_0)"
-"(lambda(src7_0"
-" in8_3"
-" start9_0"
-" readtable10_0"
-" graph?11_0"
-" src12_0"
-" in13_4"
-" start14_0"
-" readtable15_0"
-" graph?16_0)"
+"(let-values(((read-syntax/recursive10_0)"
+"(lambda(src5_0 in6_3 start7_0 readtable8_0 graph?9_0)"
 "(begin"
-" 'read-syntax/recursive17"
-"(let-values(((src_3)(if src12_0 src7_0(object-name(current-input-port)))))"
-"(let-values(((in_31)(if in13_4 in8_3(current-input-port))))"
-"(let-values(((start_60)(if start14_0 start9_0 #f)))"
-"(let-values(((readtable_7)(if readtable15_0 readtable10_0(1/current-readtable))))"
-"(let-values(((graph?_3)(if graph?16_0 graph?11_0 #t)))"
+" '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(((start_59) start7_0))"
+"(let-values(((readtable_7)"
+"(if(eq? readtable8_0 unsafe-undefined)(1/current-readtable) readtable8_0)))"
+"(let-values(((graph?_3) graph?9_0))"
 "(let-values()"
 "(let-values()"
 "(let-values()"
 "(begin"
-"(if(input-port? in_31)"
+"(if(input-port? in_84)"
 "(void)"
 "(let-values()"
-"                                          (raise-argument-error 'read-syntax/recursive \"input-port?\" in_31)))"
-"(if((lambda(x_92)"
-"(let-values(((or-part_77)(not x_92)))"
-"(if or-part_77 or-part_77(char? x_92))))"
-" start_60)"
+"                                          (raise-argument-error 'read-syntax/recursive \"input-port?\" in_84)))"
+"(if((lambda(x_94)"
+"(let-values(((or-part_297)(not x_94)))"
+"(if or-part_297 or-part_297(char? x_94))))"
+" start_59)"
 "(void)"
 "(let-values()"
-"                                          (raise-argument-error 'read-syntax/recursive \"(or/c char? #f)\" start_60)))"
-"(if((lambda(x_93)"
-"(let-values(((or-part_79)(not x_93)))"
-"(if or-part_79 or-part_79(1/readtable? x_93))))"
+"                                          (raise-argument-error 'read-syntax/recursive \"(or/c char? #f)\" start_59)))"
+"(if((lambda(x_95)"
+"(let-values(((or-part_91)(not x_95)))"
+"(if or-part_91 or-part_91(1/readtable? x_95))))"
 " readtable_7)"
 "(void)"
 "(let-values()"
@@ -58207,85 +56796,88 @@ static const char *startup_source =
 " 'read-syntax/recursive"
 "                                           \"(or/c readtable? #f)\""
 " readtable_7)))"
-"(read-syntax/recursive$1 src_3 in_31 start_60 readtable_7 graph?_3))))))))))))))"
+"(read-syntax/recursive$1 src_4 in_84 start_59 readtable_7 graph?_3))))))))))))))"
 "(case-lambda"
-"(()(begin 'read-syntax/recursive(read-syntax/recursive17_0 #f #f #f #f #f #f #f #f #f #f)))"
-"((src_4 in_81 start_61 readtable_8 graph?11_1)"
-"(read-syntax/recursive17_0 src_4 in_81 start_61 readtable_8 graph?11_1 #t #t #t #t #t))"
-"((src_5 in_82 start_62 readtable10_1)"
-"(read-syntax/recursive17_0 src_5 in_82 start_62 readtable10_1 #f #t #t #t #t #f))"
-"((src_6 in_83 start9_1)(read-syntax/recursive17_0 src_6 in_83 start9_1 #f #f #t #t #t #f #f))"
-"((src_7 in8_4)(read-syntax/recursive17_0 src_7 in8_4 #f #f #f #t #t #f #f #f))"
-"((src7_1)(read-syntax/recursive17_0 src7_1 #f #f #f #f #t #f #f #f #f)))))"
+"(()"
+"(begin"
+" 'read-syntax/recursive"
+"(read-syntax/recursive10_0 unsafe-undefined unsafe-undefined #f unsafe-undefined #t)))"
+"((src_5 in_6 start_60 readtable_8 graph?9_1)(read-syntax/recursive10_0 src_5 in_6 start_60 readtable_8 graph?9_1))"
+"((src_6 in_40 start_14 readtable8_1)(read-syntax/recursive10_0 src_6 in_40 start_14 readtable8_1 #t))"
+"((src_7 in_13 start7_1)(read-syntax/recursive10_0 src_7 in_13 start7_1 unsafe-undefined #t))"
+"((src_8 in6_4)(read-syntax/recursive10_0 src_8 in6_4 #f unsafe-undefined #t))"
+"((src5_1)(read-syntax/recursive10_0 src5_1 unsafe-undefined #f unsafe-undefined #t)))))"
 "(define-values"
 "(1/read)"
-"(let-values(((read21_0)"
-"(lambda(in19_0 in20_2)"
+"(let-values(((read13_0)"
+"(lambda(in12_1)"
 "(begin"
-" 'read21"
-"(let-values(((in_84)(if in20_2 in19_0(current-input-port))))"
+" 'read13"
+"(let-values(((in_85)(if(eq? in12_1 unsafe-undefined)(current-input-port) in12_1)))"
 "(let-values()"
 "(let-values()"
 "(let-values()"
 "(begin"
-"(if(input-port? in_84)"
+"(if(input-port? in_85)"
 "(void)"
-"                                (let-values () (raise-argument-error 'read \"input-port?\" in_84)))"
-"(read$1 in_84))))))))))"
-"(case-lambda(()(begin 'read(read21_0 #f #f)))((in19_1)(read21_0 in19_1 #t)))))"
+"                                (let-values () (raise-argument-error 'read \"input-port?\" in_85)))"
+"(read$1 in_85))))))))))"
+"(case-lambda(()(begin 'read(read13_0 unsafe-undefined)))((in12_2)(read13_0 in12_2)))))"
 "(define-values"
 "(1/read/recursive)"
-"(let-values(((read/recursive31_0)"
-"(lambda(in23_3 start24_0 readtable25_0 graph?26_0 in27_2 start28_1 readtable29_0 graph?30_0)"
+"(let-values(((read/recursive19_0)"
+"(lambda(in15_1 start16_0 readtable17_0 graph?18_0)"
 "(begin"
-" 'read/recursive31"
-"(let-values(((in_20)(if in27_2 in23_3(current-input-port))))"
-"(let-values(((start_38)(if start28_1 start24_0 #f)))"
-"(let-values(((readtable_9)(if readtable29_0 readtable25_0(1/current-readtable))))"
-"(let-values(((graph?_4)(if graph?30_0 graph?26_0 #t)))"
+" 'read/recursive19"
+"(let-values(((in_80)(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)))"
+"(let-values(((graph?_4) graph?18_0))"
 "(let-values()"
 "(let-values()"
 "(let-values()"
 "(begin"
-"(if(input-port? in_20)"
+"(if(input-port? in_80)"
 "(void)"
-"                                      (let-values () (raise-argument-error 'read/recursive \"input-port?\" in_20)))"
-"(if((lambda(x_19)"
-"(let-values(((or-part_309)(not x_19)))"
-"(if or-part_309 or-part_309(char? x_19))))"
-" start_38)"
+"                                      (let-values () (raise-argument-error 'read/recursive \"input-port?\" in_80)))"
+"(if((lambda(x_96)"
+"(let-values(((or-part_31)(not x_96)))"
+"(if or-part_31 or-part_31(char? x_96))))"
+" start_61)"
 "(void)"
-"                                      (let-values () (raise-argument-error 'read/recursive \"(or/c char? #f)\" start_38)))"
-"(if((lambda(x_23)"
-"(let-values(((or-part_365)(not x_23)))"
-"(if or-part_365 or-part_365(1/readtable? x_23))))"
+"                                      (let-values () (raise-argument-error 'read/recursive \"(or/c char? #f)\" start_61)))"
+"(if((lambda(x_97)"
+"(let-values(((or-part_159)(not x_97)))"
+"(if or-part_159 or-part_159(1/readtable? x_97))))"
 " readtable_9)"
 "(void)"
 "(let-values()"
 "                                        (raise-argument-error 'read/recursive \"(or/c readtable? #f)\" readtable_9)))"
-"(read/recursive$1 in_20 start_38 readtable_9 graph?_4)))))))))))))"
+"(read/recursive$1 in_80 start_61 readtable_9 graph?_4)))))))))))))"
 "(case-lambda"
-"(()(begin 'read/recursive(read/recursive31_0 #f #f #f #f #f #f #f #f)))"
-"((in_85 start_63 readtable_10 graph?26_1)(read/recursive31_0 in_85 start_63 readtable_10 graph?26_1 #t #t #t #t))"
-"((in_37 start_64 readtable25_1)(read/recursive31_0 in_37 start_64 readtable25_1 #f #t #t #t #f))"
-"((in_86 start24_1)(read/recursive31_0 in_86 start24_1 #f #f #t #t #f #f))"
-"((in23_4)(read/recursive31_0 in23_4 #f #f #f #t #f #f #f)))))"
+"(()(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))"
+"((in15_2)(read/recursive19_0 in15_2 #f unsafe-undefined #t)))))"
 "(define-values"
 "(1/read-language)"
-"(let-values(((read-language37_0)"
-"(lambda(in33_5 fail-thunk34_0 in35_1 fail-thunk36_0)"
+"(let-values(((read-language23_0)"
+"(lambda(in21_3 fail-thunk22_0)"
 "(begin"
-" 'read-language37"
-"(let-values(((in_55)(if in35_1 in33_5(current-input-port))))"
-"(let-values(((fail-thunk_2)(if fail-thunk36_0 fail-thunk34_0 read-language-fail-thunk)))"
+" 'read-language23"
+"(let-values(((in_17)(if(eq? in21_3 unsafe-undefined)(current-input-port) in21_3)))"
+"(let-values(((fail-thunk_2)"
+"(if(eq? fail-thunk22_0 unsafe-undefined) read-language-fail-thunk fail-thunk22_0)))"
 "(let-values()"
 "(let-values()"
 "(let-values()"
 "(begin"
-"(if(input-port? in_55)"
+"(if(input-port? in_17)"
 "(void)"
-"                                  (let-values () (raise-argument-error 'read-language \"input-port?\" in_55)))"
-"(if((lambda(p_43)(if(procedure? p_43)(procedure-arity-includes? p_43 0) #f))"
+"                                  (let-values () (raise-argument-error 'read-language \"input-port?\" in_17)))"
+"(if((lambda(p_74)(if(procedure? p_74)(procedure-arity-includes? p_74 0) #f))"
 " fail-thunk_2)"
 "(void)"
 "(let-values()"
@@ -58294,102 +56886,93 @@ static const char *startup_source =
 "                                     \"(procedure-arity-includes/c 0)\""
 " fail-thunk_2)))"
 "(read-language$1"
-" in_55"
+" in_17"
 "(if(eq? fail-thunk_2 read-language-fail-thunk) #f fail-thunk_2))))))))))))"
 "(case-lambda"
-"(()(begin 'read-language(read-language37_0 #f #f #f #f)))"
-"((in_56 fail-thunk34_1)(read-language37_0 in_56 fail-thunk34_1 #t #t))"
-"((in33_6)(read-language37_0 in33_6 #f #t #f)))))"
+"(()(begin 'read-language(read-language23_0 unsafe-undefined unsafe-undefined)))"
+"((in_89 fail-thunk22_1)(read-language23_0 in_89 fail-thunk22_1))"
+"((in21_4)(read-language23_0 in21_4 unsafe-undefined)))))"
 " (define-values (read-language-fail-thunk) (lambda () (begin (error \"fail\"))))"
 "(define-values"
 "(declare-primitive-module!)"
-"(lambda(name_73 inst_7 in-ns_0 protected_0 cross-phase-persistent?_3)"
+"(lambda(name_72 inst_6 in-ns_0 protected_0 cross-phase-persistent?_3)"
 "(begin"
-"(let-values(((mpi_51)(1/module-path-index-join(list 'quote name_73) #f)))"
+"(let-values(((mpi_49)(1/module-path-index-join(list 'quote name_72) #f)))"
 "(let-values(((in-ns1_0) in-ns_0)"
 "((temp2_6)"
 "(let-values(((temp4_0)(1/current-module-declare-source))"
 "((cross-phase-persistent?5_0) cross-phase-persistent?_3)"
 "((temp6_4)(zero?(hash-count protected_0)))"
-"((mpi7_0) mpi_51)"
+"((mpi7_0) mpi_49)"
 "((temp8_4)"
 "(hasheqv"
 " 0"
-"(let-values(((lst_76)(1/instance-variable-names inst_7)))"
+"(let-values(((lst_77)(1/instance-variable-names inst_6)))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
-"(let-values()(check-list lst_76)))"
-"((letrec-values(((for-loop_98)"
-"(lambda(table_213 lst_77)"
+"(let-values()(check-list lst_77)))"
+"((letrec-values(((for-loop_95)"
+"(lambda(table_203 lst_78)"
 "(begin"
 " 'for-loop"
-"(if(pair? lst_77)"
-"(let-values(((sym_64)(unsafe-car lst_77))"
-"((rest_35)(unsafe-cdr lst_77)))"
-"(let-values(((table_219)"
-"(let-values(((table_174) table_213))"
-"(let-values(((table_175)"
+"(if(pair? lst_78)"
+"(let-values(((sym_67)(unsafe-car lst_78))"
+"((rest_36)(unsafe-cdr lst_78)))"
+"(let-values(((table_168)"
+"(let-values(((table_208) table_203))"
+"(let-values(((table_209)"
 "(let-values()"
 "(let-values(((key_33"
-" val_83)"
+" val_80)"
 "(let-values()"
-"(let-values(((binding_27)"
+"(let-values(((binding_25)"
 "(let-values(((mpi10_0)"
-" mpi_51)"
+" mpi_49)"
 "((temp11_6)"
 " 0)"
 "((sym12_0)"
-" sym_64))"
+" sym_67))"
 "(make-module-binding22.1"
 " #f"
+" null"
 " #f"
 " #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
+" unsafe-undefined"
+" unsafe-undefined"
+" 0"
+" unsafe-undefined"
+" unsafe-undefined"
 " mpi10_0"
 " temp11_6"
 " sym12_0))))"
 "(values"
-" sym_64"
+" sym_67"
 "(if(hash-ref"
 " protected_0"
-" sym_64"
+" sym_67"
 " #f)"
 "(provided1.1"
-" binding_27"
+" binding_25"
 " #t"
 " #f)"
-" binding_27))))))"
+" binding_25))))))"
 "(hash-set"
-" table_174"
+" table_208"
 " key_33"
-" val_83)))))"
-"(values table_175)))))"
+" val_80)))))"
+"(values table_209)))))"
 "(if(not #f)"
-"(for-loop_98 table_219 rest_35)"
-" table_219)))"
-" table_213)))))"
-" for-loop_98)"
+"(for-loop_95 table_168 rest_36)"
+" table_168)))"
+" table_203)))))"
+" for-loop_95)"
 " '#hash()"
-" lst_76)))))"
-"((temp9_8)"
+" lst_77)))))"
+"((temp9_7)"
 "(lambda(data-box_5"
 " ns_46"
-" phase-shift_20"
+" phase-shift_19"
 " phase-level_22"
 " self_28"
 " bulk-binding-registry_18"
@@ -58397,37 +56980,37 @@ static const char *startup_source =
 "(if(= 0 phase-level_22)"
 "(let-values()"
 "(begin"
-"(let-values(((lst_22)(1/instance-variable-names inst_7)))"
+"(let-values(((lst_22)(1/instance-variable-names inst_6)))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
 "(let-values()(check-list lst_22)))"
 "((letrec-values(((for-loop_20)"
-"(lambda(lst_268)"
+"(lambda(lst_258)"
 "(begin"
 " 'for-loop"
-"(if(pair? lst_268)"
-"(let-values(((sym_99)(unsafe-car lst_268))"
-"((rest_175)(unsafe-cdr lst_268)))"
+"(if(pair? lst_258)"
+"(let-values(((sym_101)(unsafe-car lst_258))"
+"((rest_181)(unsafe-cdr lst_258)))"
 "(let-values((()"
 "(let-values()"
 "(let-values((()"
 "(let-values()"
 "(begin"
 "(let-values()"
-"(let-values(((val_22)"
+"(let-values(((val_81)"
 "(1/instance-variable-value"
-" inst_7"
-" sym_99)))"
+" inst_6"
+" sym_101)))"
 "(namespace-set-variable!"
 " ns_46"
 " 0"
-" sym_99"
-" val_22)))"
+" sym_101"
+" val_81)))"
 "(values)))))"
 "(values)))))"
 "(if(not #f)"
-"(for-loop_20 rest_175)"
+"(for-loop_20 rest_181)"
 "(values))))"
 "(values))))))"
 " for-loop_20)"
@@ -58436,40 +57019,25 @@ static const char *startup_source =
 "(void)))))"
 "(make-module39.1"
 " cross-phase-persistent?5_0"
-" #t"
-" #f"
-" #f"
-" #f"
-" #f"
-" temp9_8"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
+" unsafe-undefined"
+" unsafe-undefined"
+" temp9_7"
 " #f"
+" 0"
+" 0"
 " temp6_4"
-" #t"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
+" unsafe-undefined"
 " #f"
+" unsafe-undefined"
 " #f"
 " temp8_4"
-" #f"
-" #f"
+" null"
 " mpi7_0"
 " temp4_0"
-" #t"
-" #f"
-" #f"
-" #f"
+" null"
 " #f)))"
-"((temp3_9)(substitute-module-declare-name name_73)))"
-"(declare-module!58.1 #f #f in-ns1_0 temp2_6 temp3_9))))))"
+"((temp3_9)(substitute-module-declare-name name_72)))"
+"(declare-module!58.1 #t in-ns1_0 temp2_6 temp3_9))))))"
 "(define-values"
 "(1/prop:exn:missing-module 1/exn:missing-module? 1/exn:missing-module-accessor)"
 "(make-struct-type-property"
@@ -58486,7 +57054,7 @@ static const char *startup_source =
 " 1/make-exn:fail:filesystem:missing-module"
 " 1/exn:fail:filesystem:missing-module?"
 " 1/exn:fail:filesystem:missing-module-path)"
-"(let-values(((struct:_82 make-_82 ?_82 -ref_82 -set!_82)"
+"(let-values(((struct:_83 make-_83 ?_83 -ref_83 -set!_83)"
 "(let-values()"
 "(let-values()"
 "(make-struct-type"
@@ -58496,19 +57064,19 @@ static const char *startup_source =
 " 0"
 " #f"
 "(list"
-"(cons 1/prop:exn:missing-module(lambda(e_88)(1/exn:fail:filesystem:missing-module-path e_88))))"
+"(cons 1/prop:exn:missing-module(lambda(e_86)(1/exn:fail:filesystem:missing-module-path e_86))))"
 " #f"
 " #f"
 " '(0)"
 " #f"
 " 'exn:fail:filesystem:missing-module)))))"
-"(values struct:_82 make-_82 ?_82(make-struct-field-accessor -ref_82 0 'path))))"
+"(values struct:_83 make-_83 ?_83(make-struct-field-accessor -ref_83 0 'path))))"
 "(define-values"
 "(1/struct:exn:fail:syntax:missing-module"
 " 1/make-exn:fail:syntax:missing-module"
 " 1/exn:fail:syntax:missing-module?"
 " 1/exn:fail:syntax:missing-module-path)"
-"(let-values(((struct:_66 make-_66 ?_66 -ref_66 -set!_66)"
+"(let-values(((struct:_67 make-_67 ?_67 -ref_67 -set!_67)"
 "(let-values()"
 "(let-values()"
 "(make-struct-type"
@@ -58518,24 +57086,24 @@ static const char *startup_source =
 " 0"
 " #f"
 "(list"
-"(cons 1/prop:exn:missing-module(lambda(e_73)(1/exn:fail:syntax:missing-module-path e_73))))"
+"(cons 1/prop:exn:missing-module(lambda(e_33)(1/exn:fail:syntax:missing-module-path e_33))))"
 " #f"
 " #f"
 " '(0)"
 " #f"
 " 'exn:fail:syntax:missing-module)))))"
-"(values struct:_66 make-_66 ?_66(make-struct-field-accessor -ref_66 0 'path))))"
+"(values struct:_67 make-_67 ?_67(make-struct-field-accessor -ref_67 0 'path))))"
 "(define-values"
 "(1/current-module-path-for-load)"
 "(make-parameter"
 " #f"
-"(lambda(v_188)"
+"(lambda(v_235)"
 "(begin"
-"(if(let-values(((or-part_69)(not v_188)))"
-"(if or-part_69"
-" or-part_69"
-"(let-values(((or-part_70)(1/module-path? v_188)))"
-"(if or-part_70 or-part_70(if(syntax?$1 v_188)(1/module-path?(syntax->datum$1 v_188)) #f)))))"
+"(if(let-values(((or-part_67)(not v_235)))"
+"(if or-part_67"
+" or-part_67"
+"(let-values(((or-part_68)(1/module-path? v_235)))"
+"(if or-part_68 or-part_68(if(syntax?$1 v_235)(1/module-path?(syntax->datum$1 v_235)) #f)))))"
 "(void)"
 "(let-values()"
 "(raise-argument-error"
@@ -58544,11 +57112,11 @@ static const char *startup_source =
 "             \"(or/c module-path?\""
 "             \" (and/c syntax? (lambda (stx) (module-path? (syntax->datum stx))))\""
 "             \" #f)\")"
-" v_188)))"
-" v_188))))"
+" v_235)))"
+" v_235))))"
 "(define-values"
 "(maybe-raise-missing-module)"
-"(lambda(name_74 filename_0 pre_0 rel_0 post_0 errstr_0)"
+"(lambda(name_73 filename_0 pre_0 rel_0 post_0 errstr_0)"
 "(begin"
 "(let-values(((path_11)(1/current-module-path-for-load)))"
 "(if path_11"
@@ -58564,7 +57132,7 @@ static const char *startup_source =
 "                      \"  module path: ~a\\n\""
 "                      \"  path: ~a~a~a~a\\n\""
 "                      \"  system error: ~a\")"
-"(if(syntax-srcloc path_11)(srcloc->string(syntax-srcloc path_11)) name_74)"
+"(if(syntax-srcloc path_11)(srcloc->string(syntax-srcloc path_11)) name_73)"
 "(syntax->datum$1 path_11)"
 " filename_0"
 " pre_0"
@@ -58583,7 +57151,7 @@ static const char *startup_source =
 "                  \"  module path: ~a\\n\""
 "                  \"  path: ~a~a~a~a\\n\""
 "                  \"  system error: ~a\")"
-" name_74"
+" name_73"
 " path_11"
 " filename_0"
 " pre_0"
@@ -58595,325 +57163,280 @@ static const char *startup_source =
 "(void))))))"
 "(define-values"
 "(1/local-expand)"
-"(let-values(((local-expand6_0)"
-"(lambda(s3_3 context4_0 stop-ids5_0 intdefs1_0 intdefs2_0)"
+"(let-values(((local-expand5_0)"
+"(lambda(s2_9 context3_0 stop-ids4_0 intdefs1_0)"
 "(begin"
-" 'local-expand6"
-"(let-values(((s_2) s3_3))"
-"(let-values(((context_10) context4_0))"
-"(let-values(((stop-ids_2) stop-ids5_0))"
-"(let-values(((intdefs_4)(if intdefs2_0 intdefs1_0 '())))"
+" 'local-expand5"
+"(let-values(((s_8) s2_9))"
+"(let-values(((context_10) context3_0))"
+"(let-values(((stop-ids_2) stop-ids4_0))"
+"(let-values(((intdefs_4) intdefs1_0))"
 "(let-values()"
-"(let-values(((temp61_4) 'local-expand)"
-"((s62_1) s_2)"
-"((context63_0) context_10)"
-"((stop-ids64_0) stop-ids_2)"
-"((intdefs65_0) intdefs_4))"
-"(do-local-expand58.1"
+"(let-values(((temp53_4) 'local-expand)"
+"((s54_1) s_8)"
+"((context55_0) context_10)"
+"((stop-ids56_0) stop-ids_2)"
+"((intdefs57_0) intdefs_4))"
+"(do-local-expand50.1"
+" #f"
+" #f"
+" #t"
+" unsafe-undefined"
 " #f"
 " #f"
 " #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" temp61_4"
-" s62_1"
-" context63_0"
-" stop-ids64_0"
-" intdefs65_0"
-" #t)))))))))))"
+" temp53_4"
+" s54_1"
+" context55_0"
+" stop-ids56_0"
+" intdefs57_0)))))))))))"
 "(case-lambda"
-"((s_180 context_1 stop-ids_3)(begin 'local-expand(local-expand6_0 s_180 context_1 stop-ids_3 #f #f)))"
-"((s_173 context_11 stop-ids_4 intdefs1_1)(local-expand6_0 s_173 context_11 stop-ids_4 intdefs1_1 #t)))))"
+"((s_446 context_11 stop-ids_3)(begin 'local-expand(local-expand5_0 s_446 context_11 stop-ids_3 '())))"
+"((s_75 context_12 stop-ids_4 intdefs1_1)(local-expand5_0 s_75 context_12 stop-ids_4 intdefs1_1)))))"
 "(define-values"
 "(1/local-expand/capture-lifts)"
-"(let-values(((local-expand/capture-lifts15_0)"
-"(lambda(s12_2 context13_0 stop-ids14_0 intdefs8_0 lift-key9_0 intdefs10_0 lift-key11_0)"
+"(let-values(((local-expand/capture-lifts12_0)"
+"(lambda(s9_1 context10_0 stop-ids11_0 intdefs7_0 lift-key8_0)"
 "(begin"
-" 'local-expand/capture-lifts15"
-"(let-values(((s_77) s12_2))"
-"(let-values(((context_12) context13_0))"
-"(let-values(((stop-ids_5) stop-ids14_0))"
-"(let-values(((intdefs_5)(if intdefs10_0 intdefs8_0 '())))"
-"(let-values(((lift-key_4)(if lift-key11_0 lift-key9_0(generate-lift-key))))"
+" 'local-expand/capture-lifts12"
+"(let-values(((s_490) s9_1))"
+"(let-values(((context_13) context10_0))"
+"(let-values(((stop-ids_5) stop-ids11_0))"
+"(let-values(((intdefs_5) intdefs7_0))"
+"(let-values(((lift-key_4)"
+"(if(eq? lift-key8_0 unsafe-undefined)(generate-lift-key) lift-key8_0)))"
 "(let-values()"
-"(let-values(((temp66_5) 'local-expand)"
-"((s67_0) s_77)"
-"((context68_0) context_12)"
-"((stop-ids69_0) stop-ids_5)"
-"((intdefs70_0) intdefs_5)"
-"((temp71_5) #t)"
-"((lift-key72_0) lift-key_4))"
-"(do-local-expand58.1"
+"(let-values(((temp58_3) 'local-expand)"
+"((s59_0) s_490)"
+"((context60_0) context_13)"
+"((stop-ids61_0) stop-ids_5)"
+"((intdefs62_0) intdefs_5)"
+"((temp63_4) #t)"
+"((lift-key64_0) lift-key_4))"
+"(do-local-expand50.1"
 " #f"
-" #f"
-" temp71_5"
-" #t"
-" #f"
-" #f"
-" lift-key72_0"
+" temp63_4"
 " #t"
+" lift-key64_0"
 " #f"
 " #f"
 " #f"
-" #f"
-" #f"
-" #f"
-" temp66_5"
-" s67_0"
-" context68_0"
-" stop-ids69_0"
-" intdefs70_0"
-" #t))))))))))))"
+" temp58_3"
+" s59_0"
+" context60_0"
+" stop-ids61_0"
+" intdefs62_0))))))))))))"
 "(case-lambda"
-"((s_85 context_13 stop-ids_6)"
-"(begin 'local-expand/capture-lifts(local-expand/capture-lifts15_0 s_85 context_13 stop-ids_6 #f #f #f #f)))"
-"((s_42 context_14 stop-ids_7 intdefs_6 lift-key9_1)"
-"(local-expand/capture-lifts15_0 s_42 context_14 stop-ids_7 intdefs_6 lift-key9_1 #t #t))"
-"((s_191 context_15 stop-ids_8 intdefs8_1)"
-"(local-expand/capture-lifts15_0 s_191 context_15 stop-ids_8 intdefs8_1 #f #t #f)))))"
+"((s_41 context_14 stop-ids_6)"
+"(begin"
+" 'local-expand/capture-lifts"
+"(local-expand/capture-lifts12_0 s_41 context_14 stop-ids_6 '() unsafe-undefined)))"
+"((s_86 context_15 stop-ids_7 intdefs_6 lift-key8_1)"
+"(local-expand/capture-lifts12_0 s_86 context_15 stop-ids_7 intdefs_6 lift-key8_1))"
+"((s_430 context_16 stop-ids_8 intdefs7_1)"
+"(local-expand/capture-lifts12_0 s_430 context_16 stop-ids_8 intdefs7_1 unsafe-undefined)))))"
 "(define-values"
 "(1/local-transformer-expand)"
-"(let-values(((local-transformer-expand22_0)"
-"(lambda(s19_1 context20_0 stop-ids21_0 intdefs17_0 intdefs18_0)"
+"(let-values(((local-transformer-expand18_0)"
+"(lambda(s15_1 context16_0 stop-ids17_0 intdefs14_0)"
 "(begin"
-" 'local-transformer-expand22"
-"(let-values(((s_492) s19_1))"
-"(let-values(((context_16) context20_0))"
-"(let-values(((stop-ids_9) stop-ids21_0))"
-"(let-values(((intdefs_7)(if intdefs18_0 intdefs17_0 '())))"
+" 'local-transformer-expand18"
+"(let-values(((s_35) s15_1))"
+"(let-values(((context_17) context16_0))"
+"(let-values(((stop-ids_9) stop-ids17_0))"
+"(let-values(((intdefs_7) intdefs14_0))"
 "(let-values()"
-"(let-values(((temp73_5) 'local-expand)"
-"((s74_0) s_492)"
-"((context75_0) context_16)"
-"((stop-ids76_0) stop-ids_9)"
-"((intdefs77_0) intdefs_7)"
-"((temp78_3) #t))"
-"(do-local-expand58.1"
-" temp78_3"
+"(let-values(((temp65_4) 'local-expand)"
+"((s66_2) s_35)"
+"((context67_0) context_17)"
+"((stop-ids68_0) stop-ids_9)"
+"((intdefs69_0) intdefs_7)"
+"((temp70_4) #t))"
+"(do-local-expand50.1"
+" temp70_4"
+" #f"
 " #t"
+" unsafe-undefined"
 " #f"
 " #f"
 " #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" temp73_5"
-" s74_0"
-" context75_0"
-" stop-ids76_0"
-" intdefs77_0"
-" #t)))))))))))"
+" temp65_4"
+" s66_2"
+" context67_0"
+" stop-ids68_0"
+" intdefs69_0)))))))))))"
 "(case-lambda"
-"((s_486 context_17 stop-ids_10)"
-"(begin 'local-transformer-expand(local-transformer-expand22_0 s_486 context_17 stop-ids_10 #f #f)))"
-"((s_493 context_18 stop-ids_11 intdefs17_1)"
-"(local-transformer-expand22_0 s_493 context_18 stop-ids_11 intdefs17_1 #t)))))"
+"((s_187 context_18 stop-ids_10)"
+"(begin 'local-transformer-expand(local-transformer-expand18_0 s_187 context_18 stop-ids_10 '())))"
+"((s_491 context_19 stop-ids_11 intdefs14_1)"
+"(local-transformer-expand18_0 s_491 context_19 stop-ids_11 intdefs14_1)))))"
 "(define-values"
 "(1/local-transformer-expand/capture-lifts)"
-"(let-values(((local-transformer-expand/capture-lifts31_0)"
-"(lambda(s28_1 context29_0 stop-ids30_0 intdefs24_0 lift-key25_0 intdefs26_0 lift-key27_0)"
+"(let-values(((local-transformer-expand/capture-lifts25_0)"
+"(lambda(s22_1 context23_0 stop-ids24_0 intdefs20_0 lift-key21_0)"
 "(begin"
-" 'local-transformer-expand/capture-lifts31"
-"(let-values(((s_483) s28_1))"
-"(let-values(((context_19) context29_0))"
-"(let-values(((stop-ids_12) stop-ids30_0))"
-"(let-values(((intdefs_8)(if intdefs26_0 intdefs24_0 '())))"
-"(let-values(((lift-key_5)(if lift-key27_0 lift-key25_0(generate-lift-key))))"
+" 'local-transformer-expand/capture-lifts25"
+"(let-values(((s_91) s22_1))"
+"(let-values(((context_20) context23_0))"
+"(let-values(((stop-ids_12) stop-ids24_0))"
+"(let-values(((intdefs_8) intdefs20_0))"
+"(let-values(((lift-key_5)"
+"(if(eq? lift-key21_0 unsafe-undefined)(generate-lift-key) lift-key21_0)))"
 "(let-values()"
-"(let-values(((temp79_2) 'local-expand)"
-"((s80_1) s_483)"
-"((context81_0) context_19)"
-"((stop-ids82_0) stop-ids_12)"
-"((intdefs83_0) intdefs_8)"
-"((temp84_1) #t)"
-"((temp85_3) #t)"
-"((lift-key86_0) lift-key_5))"
-"(do-local-expand58.1"
-" temp84_1"
-" #t"
-" temp85_3"
-" #t"
-" #f"
-" #f"
-" lift-key86_0"
+"(let-values(((temp71_3) 'local-expand)"
+"((s72_1) s_91)"
+"((context73_0) context_20)"
+"((stop-ids74_0) stop-ids_12)"
+"((intdefs75_0) intdefs_8)"
+"((temp76_4) #t)"
+"((temp77_2) #t)"
+"((lift-key78_0) lift-key_5))"
+"(do-local-expand50.1"
+" temp76_4"
+" temp77_2"
 " #t"
+" lift-key78_0"
 " #f"
 " #f"
 " #f"
-" #f"
-" #f"
-" #f"
-" temp79_2"
-" s80_1"
-" context81_0"
-" stop-ids82_0"
-" intdefs83_0"
-" #t))))))))))))"
+" temp71_3"
+" s72_1"
+" context73_0"
+" stop-ids74_0"
+" intdefs75_0))))))))))))"
 "(case-lambda"
-"((s_494 context_20 stop-ids_13)"
+"((s_19 context_21 stop-ids_13)"
 "(begin"
 " 'local-transformer-expand/capture-lifts"
-"(local-transformer-expand/capture-lifts31_0 s_494 context_20 stop-ids_13 #f #f #f #f)))"
-"((s_25 context_21 stop-ids_14 intdefs_9 lift-key25_1)"
-"(local-transformer-expand/capture-lifts31_0 s_25 context_21 stop-ids_14 intdefs_9 lift-key25_1 #t #t))"
-"((s_157 context_22 stop-ids_15 intdefs24_1)"
-"(local-transformer-expand/capture-lifts31_0 s_157 context_22 stop-ids_15 intdefs24_1 #f #t #f)))))"
+"(local-transformer-expand/capture-lifts25_0 s_19 context_21 stop-ids_13 '() unsafe-undefined)))"
+"((s_449 context_22 stop-ids_14 intdefs_9 lift-key21_1)"
+"(local-transformer-expand/capture-lifts25_0 s_449 context_22 stop-ids_14 intdefs_9 lift-key21_1))"
+"((s_492 context_23 stop-ids_15 intdefs20_1)"
+"(local-transformer-expand/capture-lifts25_0 s_492 context_23 stop-ids_15 intdefs20_1 unsafe-undefined)))))"
 "(define-values"
 "(1/syntax-local-expand-expression)"
-"(let-values(((syntax-local-expand-expression36_0)"
-"(lambda(s35_1 opaque-only?33_0 opaque-only?34_0)"
+"(let-values(((syntax-local-expand-expression29_0)"
+"(lambda(s28_1 opaque-only?27_0)"
 "(begin"
-" 'syntax-local-expand-expression36"
-"(let-values(((s_176) s35_1))"
-"(let-values(((opaque-only?_0)(if opaque-only?34_0 opaque-only?33_0 #f)))"
+" 'syntax-local-expand-expression29"
+"(let-values(((s_493) s28_1))"
+"(let-values(((opaque-only?_0) opaque-only?27_0))"
 "(let-values()"
-"(let-values(((exp-s_12)"
-"(let-values(((temp87_4) 'syntax-local-expand-expression)"
-"((s88_0) s_176)"
-"((temp89_3) 'expression)"
-"((null90_0) null)"
-"((temp91_1) #f)"
-"((opaque-only?92_0) opaque-only?_0)"
-"((temp93_3) #t)"
-"((temp94_2) #t)"
-"((temp95_2) #f))"
-"(do-local-expand58.1"
+"(let-values(((exp-s_11)"
+"(let-values(((temp79_0) 'syntax-local-expand-expression)"
+"((s80_2) s_493)"
+"((temp81_3) 'expression)"
+"((null82_0) null)"
+"((temp83_3) #f)"
+"((opaque-only?84_0) opaque-only?_0)"
+"((temp85_4) #t)"
+"((temp86_3) #t)"
+"((temp87_2) #f))"
+"(do-local-expand50.1"
 " #f"
 " #f"
-" #f"
-" #f"
-" temp95_2"
-" #t"
-" #f"
-" #f"
-" temp93_3"
-" #t"
-" opaque-only?92_0"
-" #t"
-" temp94_2"
-" #t"
-" temp87_4"
-" s88_0"
-" temp89_3"
-" null90_0"
-" temp91_1"
-" #t))))"
-"(let-values(((ctx_73)(let-values()(get-current-expand-context17.1 #f #f #f #f))))"
+" temp87_2"
+" unsafe-undefined"
+" temp85_4"
+" opaque-only?84_0"
+" temp86_3"
+" temp79_0"
+" s80_2"
+" temp81_3"
+" null82_0"
+" temp83_3))))"
+"(let-values(((ctx_72)(let-values()(get-current-expand-context16.1 #f 'unexpected))))"
 "(let-values(((ae_1)"
 "(flip-introduction-scopes"
 "(datum->syntax$1"
 " #f"
 "(already-expanded1.1"
-"(if(parsed? exp-s_12)"
-" exp-s_12"
-"(flip-introduction-scopes exp-s_12 ctx_73))"
-"(expand-context-binding-layer ctx_73)))"
-" ctx_73)))"
+"(if(parsed? exp-s_11)"
+" exp-s_11"
+"(flip-introduction-scopes exp-s_11 ctx_72))"
+"(expand-context-binding-layer ctx_72)))"
+" ctx_72)))"
 "(begin"
-"(let-values(((obs_60)(expand-context-observer ctx_73)))"
+"(let-values(((obs_60)(expand-context-observer ctx_72)))"
 "(if obs_60"
 "(let-values()(let-values()(call-expand-observe obs_60 'opaque-expr ae_1)))"
 "(void)))"
-"(let-values(((obs_61)(expand-context-observer ctx_73)))"
-"(if obs_61"
-"(let-values()(let-values()(call-expand-observe obs_61 'exit-local exp-s_12)))"
+"(let-values(((obs_4)(expand-context-observer ctx_72)))"
+"(if obs_4"
+"(let-values()(let-values()(call-expand-observe obs_4 'exit-local exp-s_11)))"
 "(void)))"
-"(values(if(not opaque-only?_0) exp-s_12 #f) ae_1))))))))))))"
+"(values(if(not opaque-only?_0) exp-s_11 #f) ae_1))))))))))))"
 "(case-lambda"
-"((s_26)(begin 'syntax-local-expand-expression(syntax-local-expand-expression36_0 s_26 #f #f)))"
-"((s_84 opaque-only?33_1)(syntax-local-expand-expression36_0 s_84 opaque-only?33_1 #t)))))"
+"((s_46)(begin 'syntax-local-expand-expression(syntax-local-expand-expression29_0 s_46 #f)))"
+"((s_484 opaque-only?27_1)(syntax-local-expand-expression29_0 s_484 opaque-only?27_1)))))"
 "(define-values"
-"(do-local-expand58.1)"
-"(lambda(as-transformer?39_0"
-" as-transformer?46_0"
-" capture-lifts?38_0"
-" capture-lifts?45_0"
-" keep-#%expression?41_0"
-" keep-#%expression?48_0"
-" lift-key42_0"
-" lift-key49_0"
-" skip-log-exit?44_0"
-" skip-log-exit?51_0"
-" to-parsed-ok?40_0"
-" to-parsed-ok?47_0"
-" track-to-be-defined?43_1"
-" track-to-be-defined?50_0"
-" who54_0"
-" s-or-s-exp55_0"
-" context56_0"
-" stop-ids57_0"
-" intdefs52_0"
-" intdefs53_0)"
+"(do-local-expand50.1)"
+"(lambda(as-transformer?32_0"
+" capture-lifts?31_0"
+" keep-#%expression?34_0"
+" lift-key35_0"
+" skip-log-exit?37_0"
+" to-parsed-ok?33_0"
+" track-to-be-defined?36_0"
+" who46_1"
+" s-or-s-exp47_0"
+" context48_0"
+" stop-ids49_0"
+" intdefs45_0)"
 "(begin"
-" 'do-local-expand58"
-"(let-values(((who_37) who54_0))"
-"(let-values(((s-or-s-exp_0) s-or-s-exp55_0))"
-"(let-values(((context_23) context56_0))"
-"(let-values(((stop-ids_16) stop-ids57_0))"
-"(let-values(((intdefs_10)(if intdefs53_0 intdefs52_0 '())))"
-"(let-values(((capture-lifts?_0)(if capture-lifts?45_0 capture-lifts?38_0 #f)))"
-"(let-values(((as-transformer?_6)(if as-transformer?46_0 as-transformer?39_0 #f)))"
-"(let-values(((to-parsed-ok?_1)(if to-parsed-ok?47_0 to-parsed-ok?40_0 #f)))"
-"(let-values(((keep-#%expression?_2)(if keep-#%expression?48_0 keep-#%expression?41_0 #t)))"
+" 'do-local-expand50"
+"(let-values(((who_34) who46_1))"
+"(let-values(((s-or-s-exp_0) s-or-s-exp47_0))"
+"(let-values(((context_24) context48_0))"
+"(let-values(((stop-ids_16) stop-ids49_0))"
+"(let-values(((intdefs_10) intdefs45_0))"
+"(let-values(((capture-lifts?_0) capture-lifts?31_0))"
+"(let-values(((as-transformer?_6) as-transformer?32_0))"
+"(let-values(((to-parsed-ok?_1) to-parsed-ok?33_0))"
+"(let-values(((keep-#%expression?_2) keep-#%expression?34_0))"
 "(let-values(((lift-key_6)"
-"(if lift-key49_0"
-" lift-key42_0"
-"(if(let-values(((or-part_45) capture-lifts?_0))"
-"(if or-part_45 or-part_45 as-transformer?_6))"
+"(if(eq? lift-key35_0 unsafe-undefined)"
+"(if(let-values(((or-part_40) capture-lifts?_0))"
+"(if or-part_40 or-part_40 as-transformer?_6))"
 "(generate-lift-key)"
-" #f))))"
-"(let-values(((track-to-be-defined?_1)"
-"(if track-to-be-defined?50_0 track-to-be-defined?43_1 #f)))"
-"(let-values(((skip-log-exit?_0)(if skip-log-exit?51_0 skip-log-exit?44_0 #f)))"
+" #f)"
+" lift-key35_0)))"
+"(let-values(((track-to-be-defined?_1) track-to-be-defined?36_0))"
+"(let-values(((skip-log-exit?_0) skip-log-exit?37_0))"
 "(let-values()"
 "(let-values()"
-"(let-values(((s_495)(datum->syntax$1 #f s-or-s-exp_0)))"
+"(let-values(((s_494)(datum->syntax$1 #f s-or-s-exp_0)))"
 "(let-values((()"
 "(begin"
-"(if(let-values(((or-part_170)(list? context_23)))"
-"(if or-part_170"
-" or-part_170"
+"(if(let-values(((or-part_366)(list? context_24)))"
+"(if or-part_366"
+" or-part_366"
 "(memq"
-" context_23"
+" context_24"
 "(if as-transformer?_6"
 " '(expression top-level)"
 " '(expression top-level module module-begin)))))"
 "(void)"
 "(let-values()"
 "(raise-argument-error"
-" who_37"
+" who_34"
 "(if as-transformer?_6"
 "                                                           \"(or/c 'expression 'top-level list?)\""
 "                                                           \"(or/c 'expression 'top-level 'module 'module-begin list?)\")"
-" context_23)))"
+" context_24)))"
 "(values))))"
 "(let-values((()"
 "(begin"
-"(if(let-values(((or-part_366)(not stop-ids_16)))"
-"(if or-part_366"
-" or-part_366"
+"(if(let-values(((or-part_45)(not stop-ids_16)))"
+"(if or-part_45"
+" or-part_45"
 "(if(list? stop-ids_16)"
 "(andmap2 identifier? stop-ids_16)"
 " #f)))"
 "(void)"
 "(let-values()"
 "(raise-argument-error"
-" who_37"
+" who_34"
 "                                                           \"(or/c (listof identifier?) #f)\""
 " stop-ids_16)))"
 "(values))))"
@@ -58923,106 +57446,99 @@ static const char *startup_source =
 "(void)"
 "(let-values()"
 "(raise-argument-error"
-" who_37"
+" who_34"
 " intdefs-or-false?-string"
 " intdefs_10)))"
 "(values))))"
-"(let-values(((ctx_74)"
-"(let-values(((who96_0) who_37))"
-"(get-current-expand-context17.1 #f #f who96_0 #t))))"
-"(let-values(((phase_142)"
+"(let-values(((ctx_73)"
+"(let-values(((who88_0) who_34))"
+"(get-current-expand-context16.1 #f who88_0))))"
+"(let-values(((phase_91)"
 "(if as-transformer?_6"
-"(add1(expand-context-phase ctx_74))"
-"(expand-context-phase ctx_74))))"
+"(add1(expand-context-phase ctx_73))"
+"(expand-context-phase ctx_73))))"
 "(let-values(((local-ctx_0)"
-"(let-values(((ctx97_1) ctx_74)"
-"((context98_1) context_23)"
-"((phase99_0) phase_142)"
-"((intdefs100_0) intdefs_10)"
-"((stop-ids101_0) stop-ids_16)"
-"((to-parsed-ok?102_0) to-parsed-ok?_1)"
-"((temp103_1)"
-"(let-values(((or-part_367)"
+"(let-values(((ctx89_0) ctx_73)"
+"((context90_0) context_24)"
+"((phase91_0) phase_91)"
+"((intdefs92_0) intdefs_10)"
+"((stop-ids93_0) stop-ids_16)"
+"((to-parsed-ok?94_0) to-parsed-ok?_1)"
+"((temp95_2)"
+"(let-values(((or-part_169)"
 " keep-#%expression?_2))"
-"(if or-part_367"
-" or-part_367"
+"(if or-part_169"
+" or-part_169"
 "(if(expand-context-in-local-expand?"
-" ctx_74)"
+" ctx_73)"
 "(expand-context-keep-#%expression?"
-" ctx_74)"
+" ctx_73)"
 " #f))))"
-"((track-to-be-defined?104_0)"
+"((track-to-be-defined?96_0)"
 " track-to-be-defined?_1))"
-"(make-local-expand-context46.1"
-" context98_1"
-" intdefs100_0"
-" temp103_1"
-" #t"
-" phase99_0"
-" #t"
-" stop-ids101_0"
-" #t"
-" to-parsed-ok?102_0"
-" #t"
-" track-to-be-defined?104_0"
-" #t"
-" ctx97_1))))"
+"(make-local-expand-context42.1"
+" context90_0"
+" intdefs92_0"
+" temp95_2"
+" phase91_0"
+" stop-ids93_0"
+" to-parsed-ok?94_0"
+" track-to-be-defined?96_0"
+" ctx89_0))))"
 "(let-values((()"
 "(begin"
 "(namespace-visit-available-modules!"
-"(expand-context-namespace ctx_74)"
-" phase_142)"
+"(expand-context-namespace ctx_73)"
+" phase_91)"
 "(values))))"
 "(let-values((()"
 "(begin"
-"(let-values(((obs_62)"
+"(let-values(((obs_7)"
 "(expand-context-observer local-ctx_0)))"
-"(if obs_62"
+"(if obs_7"
 "(let-values()"
 "(let-values()"
 "(call-expand-observe"
-" obs_62"
+" obs_7"
 " 'enter-local"
-" s_495)))"
+" s_494)))"
 "(void)))"
 "(values))))"
 "(let-values(((input-s_1)"
-"(let-values(((temp105_4)"
-"(flip-introduction-scopes s_495 ctx_74))"
-"((intdefs106_0) intdefs_10))"
-"(add-intdef-scopes28.1"
+"(let-values(((temp97_2)"
+"(flip-introduction-scopes s_494 ctx_73))"
+"((intdefs98_0) intdefs_10))"
+"(add-intdef-scopes24.1"
+" unsafe-undefined"
 " #f"
-" #f"
-" #f"
-" #f"
-" temp105_4"
-" intdefs106_0))))"
+" temp97_2"
+" intdefs98_0))))"
 "(let-values((()"
 "(begin"
 "(if as-transformer?_6"
 "(let-values()"
-"(let-values(((obs_63)"
+"(let-values(((obs_32)"
 "(expand-context-observer"
 " local-ctx_0)))"
-"(if obs_63"
+"(if obs_32"
 "(let-values()"
 "(let-values()"
 "(call-expand-observe"
-" obs_63"
+" obs_32"
 " 'phase-up)))"
 "(void))))"
 "(void))"
 "(values))))"
 "(let-values((()"
 "(begin"
-"(let-values(((obs_64)"
+"(let-values(((obs_61)"
 "(expand-context-observer"
 " local-ctx_0)))"
-"(if obs_64"
+"(if obs_61"
 "(let-values()"
 "(let-values()"
 "(call-expand-observe"
-" obs_64"
+" obs_61"
 " 'local-pre"
 " input-s_1)))"
 "(void)))"
@@ -59031,14 +57547,14 @@ static const char *startup_source =
 "(begin"
 "(if stop-ids_16"
 "(let-values()"
-"(let-values(((obs_65)"
+"(let-values(((obs_62)"
 "(expand-context-observer"
 " local-ctx_0)))"
-"(if obs_65"
+"(if obs_62"
 "(let-values()"
 "(let-values()"
 "(call-expand-observe"
-" obs_65"
+" obs_62"
 " 'start)))"
 "(void))))"
 "(void))"
@@ -59046,104 +57562,85 @@ static const char *startup_source =
 "(let-values(((output-s_0)"
 "(if(if as-transformer?_6 capture-lifts?_0 #f)"
 "(let-values()"
+"(let-values(((input-s99_0) input-s_1)"
+"((local-ctx100_0)"
+" local-ctx_0)"
+"((context101_0) context_24)"
+"((temp102_1) #f)"
+"((temp103_1) #t)"
+"((lift-key104_0) lift-key_6)"
+"((temp105_3) #t)"
+"((temp106_3) #t))"
+"(expand-transformer92.1"
+" temp105_3"
+" temp103_1"
+" context101_0"
+" temp102_1"
+" temp106_3"
+" lift-key104_0"
+" input-s99_0"
+" local-ctx100_0)))"
+"(if as-transformer?_6"
+"(let-values()"
 "(let-values(((input-s107_0) input-s_1)"
 "((local-ctx108_0)"
 " local-ctx_0)"
-"((context109_0) context_23)"
-"((temp110_5) #f)"
-"((temp111_1) #t)"
-"((lift-key112_0) lift-key_6)"
-"((temp113_1) #t)"
-"((temp114_3) #t))"
-"(expand-transformer92.1"
-" temp113_1"
-" #t"
-" temp111_1"
-" #t"
-" context109_0"
-" #t"
-" temp110_5"
-" #t"
-" temp114_3"
-" #t"
-" lift-key112_0"
-" #t"
-" input-s107_0"
-" local-ctx108_0)))"
-"(if as-transformer?_6"
-"(let-values()"
-"(let-values(((input-s115_0) input-s_1)"
-"((local-ctx116_0)"
-" local-ctx_0)"
-"((context117_0) context_23)"
-"((temp118_0) #f)"
-"((temp119_1)"
+"((context109_0) context_24)"
+"((temp110_4) #f)"
+"((temp111_3)"
 "(eq?"
 " 'top-level"
-" context_23))"
-"((lift-key120_0)"
+" context_24))"
+"((lift-key112_0)"
 " lift-key_6)"
-"((temp121_1) #t))"
+"((temp113_3) #t))"
 "(expand-transformer92.1"
 " #f"
-" #f"
-" temp119_1"
-" #t"
-" context117_0"
-" #t"
-" temp118_0"
-" #t"
-" temp121_1"
-" #t"
-" lift-key120_0"
-" #t"
-" input-s115_0"
-" local-ctx116_0)))"
+" temp111_3"
+" context109_0"
+" temp110_4"
+" temp113_3"
+" lift-key112_0"
+" input-s107_0"
+" local-ctx108_0)))"
 "(if capture-lifts?_0"
 "(let-values()"
-"(let-values(((input-s122_0)"
+"(let-values(((input-s114_0)"
 " input-s_1)"
-"((local-ctx123_0)"
+"((local-ctx115_0)"
 " local-ctx_0)"
-"((temp124_3) #t)"
-"((lift-key125_0)"
+"((temp116_3) #t)"
+"((lift-key117_0)"
 " lift-key_6)"
-"((temp126_0) #t))"
+"((temp118_1) #t))"
 "(expand/capture-lifts75.1"
-" temp126_0"
-" #t"
-" temp124_3"
-" #t"
+" temp118_1"
+" temp116_3"
 " #f"
-" #f"
-" lift-key125_0"
-" #t"
-" input-s122_0"
-" local-ctx123_0)))"
+" lift-key117_0"
+" input-s114_0"
+" local-ctx115_0)))"
 "(let-values()"
-"(let-values(((input-s127_0)"
+"(let-values(((input-s119_0)"
 " input-s_1)"
-"((local-ctx128_0)"
+"((local-ctx120_0)"
 " local-ctx_0))"
 "(expand9.1"
 " #f"
 " #f"
 " #f"
-" #f"
-" #f"
-" #f"
-" input-s127_0"
-" local-ctx128_0))))))))"
+" input-s119_0"
+" local-ctx120_0))))))))"
 "(let-values((()"
 "(begin"
-"(let-values(((obs_10)"
+"(let-values(((obs_63)"
 "(expand-context-observer"
 " local-ctx_0)))"
-"(if obs_10"
+"(if obs_63"
 "(let-values()"
 "(let-values()"
 "(call-expand-observe"
-" obs_10"
+" obs_63"
 " 'local-post"
 " output-s_0)))"
 "(void)))"
@@ -59153,19 +57650,19 @@ static const char *startup_source =
 " output-s_0"
 "(flip-introduction-scopes"
 " output-s_0"
-" ctx_74))))"
+" ctx_73))))"
 "(begin"
 "(if skip-log-exit?_0"
 "(void)"
 "(let-values()"
-"(let-values(((obs_66)"
+"(let-values(((obs_64)"
 "(expand-context-observer"
 " local-ctx_0)))"
-"(if obs_66"
+"(if obs_64"
 "(let-values()"
 "(let-values()"
 "(call-expand-observe"
-" obs_66"
+" obs_64"
 " 'exit-local"
 " result-s_8)))"
 "(void)))))"
@@ -59182,26 +57679,26 @@ static const char *startup_source =
 "(syntax-tainted?$1 s_0)))))))"
 "(define-values"
 "(1/syntax-arm)"
-"(let-values(((syntax-arm6_0)"
-"(lambda(s5_2 maybe-insp1_0 use-mode?2_0 maybe-insp3_0 use-mode?4_0)"
+"(let-values(((syntax-arm4_0)"
+"(lambda(s3_2 maybe-insp1_0 use-mode?2_0)"
 "(begin"
-" 'syntax-arm6"
-"(let-values(((s_179) s5_2))"
-"(let-values(((maybe-insp_0)(if maybe-insp3_0 maybe-insp1_0 #f)))"
-"(let-values(((use-mode?_0)(if use-mode?4_0 use-mode?2_0 #f)))"
+" 'syntax-arm4"
+"(let-values(((s_2) s3_2))"
+"(let-values(((maybe-insp_0) maybe-insp1_0))"
+"(let-values(((use-mode?_0) use-mode?2_0))"
 "(let-values()"
 "(let-values()"
 "(let-values()"
 "(let-values((()"
 "(begin"
-"(if(syntax?$1 s_179)"
+"(if(syntax?$1 s_2)"
 "(void)"
-"                                                  (let-values () (raise-argument-error 'syntax-arm \"syntax?\" s_179)))"
+"                                                  (let-values () (raise-argument-error 'syntax-arm \"syntax?\" s_2)))"
 "(values))))"
 "(let-values((()"
 "(begin"
-"(if(let-values(((or-part_211)(not maybe-insp_0)))"
-"(if or-part_211 or-part_211(inspector? maybe-insp_0)))"
+"(if(let-values(((or-part_12)(not maybe-insp_0)))"
+"(if or-part_12 or-part_12(inspector? maybe-insp_0)))"
 "(void)"
 "(let-values()"
 "(raise-argument-error"
@@ -59213,83 +57710,83 @@ static const char *startup_source =
 "(if use-mode?_0"
 "(let-values()"
 "(taint-dispatch"
-" s_179"
-"(lambda(s_496)(syntax-arm$1 s_496 insp_21))"
+" s_2"
+"(lambda(s_439)(syntax-arm$1 s_439 insp_21))"
 "(1/syntax-local-phase-level)))"
-"(let-values()(syntax-arm$1 s_179 insp_21))))))))))))))))"
+"(let-values()(syntax-arm$1 s_2 insp_21))))))))))))))))"
 "(case-lambda"
-"((s_180)(begin 'syntax-arm(syntax-arm6_0 s_180 #f #f #f #f)))"
-"((s_181 maybe-insp_1 use-mode?2_1)(syntax-arm6_0 s_181 maybe-insp_1 use-mode?2_1 #t #t))"
-"((s_456 maybe-insp1_1)(syntax-arm6_0 s_456 maybe-insp1_1 #f #t #f)))))"
+"((s_495)(begin 'syntax-arm(syntax-arm4_0 s_495 #f #f)))"
+"((s_446 maybe-insp_1 use-mode?2_1)(syntax-arm4_0 s_446 maybe-insp_1 use-mode?2_1))"
+"((s_75 maybe-insp1_1)(syntax-arm4_0 s_75 maybe-insp1_1 #f)))))"
 "(define-values"
 "(1/syntax-disarm)"
-"(lambda(s_497 maybe-insp_2)"
+"(lambda(s_496 maybe-insp_2)"
 "(begin"
 " 'syntax-disarm"
 "(let-values()"
 "(let-values()"
 "(let-values((()"
 "(begin"
-"(if(syntax?$1 s_497)"
+"(if(syntax?$1 s_496)"
 "(void)"
-"                            (let-values () (raise-argument-error 'syntax-disarm \"syntax?\" s_497)))"
+"                            (let-values () (raise-argument-error 'syntax-disarm \"syntax?\" s_496)))"
 "(values))))"
 "(let-values((()"
 "(begin"
-"(if(let-values(((or-part_368)(not maybe-insp_2)))"
-"(if or-part_368 or-part_368(inspector? maybe-insp_2)))"
+"(if(let-values(((or-part_309)(not maybe-insp_2)))"
+"(if or-part_309 or-part_309(inspector? maybe-insp_2)))"
 "(void)"
 "                              (let-values () (raise-argument-error 'syntax-disarm \"(or/c inspector? #f)\" maybe-insp_2)))"
 "(values))))"
-"(let-values(((insp_22)(inspector-for-taint maybe-insp_2)))(syntax-disarm$1 s_497 insp_22)))))))))"
+"(let-values(((insp_22)(inspector-for-taint maybe-insp_2)))(syntax-disarm$1 s_496 insp_22)))))))))"
 "(define-values"
 "(1/syntax-rearm)"
-"(let-values(((syntax-rearm12_0)"
-"(lambda(s10_0 from-s11_0 use-mode?8_0 use-mode?9_0)"
+"(let-values(((syntax-rearm9_0)"
+"(lambda(s7_1 from-s8_0 use-mode?6_0)"
 "(begin"
-" 'syntax-rearm12"
-"(let-values(((s_455) s10_0))"
-"(let-values(((from-s_2) from-s11_0))"
-"(let-values(((use-mode?_1)(if use-mode?9_0 use-mode?8_0 #f)))"
+" 'syntax-rearm9"
+"(let-values(((s_180) s7_1))"
+"(let-values(((from-s_2) from-s8_0))"
+"(let-values(((use-mode?_1) use-mode?6_0))"
 "(let-values()"
 "(let-values()"
 "(let-values()"
 "(begin"
-"(if(syntax?$1 s_455)"
+"(if(syntax?$1 s_180)"
 "(void)"
-"                                    (let-values () (raise-argument-error 'syntax-rearm \"syntax?\" s_455)))"
+"                                    (let-values () (raise-argument-error 'syntax-rearm \"syntax?\" s_180)))"
 "(if(syntax?$1 from-s_2)"
 "(void)"
 "                                    (let-values () (raise-argument-error 'syntax-rearm \"syntax?\" from-s_2)))"
 "(if use-mode?_1"
 "(let-values()"
 "(taint-dispatch"
-" s_455"
-"(lambda(s_498)(syntax-rearm$1 s_498 from-s_2))"
+" s_180"
+"(lambda(s_76)(syntax-rearm$1 s_76 from-s_2))"
 "(1/syntax-local-phase-level)))"
-"(let-values()(syntax-rearm$1 s_455 from-s_2))))))))))))))"
+"(let-values()(syntax-rearm$1 s_180 from-s_2))))))))))))))"
 "(case-lambda"
-"((s_452 from-s_3)(begin 'syntax-rearm(syntax-rearm12_0 s_452 from-s_3 #f #f)))"
-"((s_5 from-s_4 use-mode?8_1)(syntax-rearm12_0 s_5 from-s_4 use-mode?8_1 #t)))))"
+"((s_181 from-s_3)(begin 'syntax-rearm(syntax-rearm9_0 s_181 from-s_3 #f)))"
+"((s_441 from-s_4 use-mode?6_1)(syntax-rearm9_0 s_441 from-s_4 use-mode?6_1)))))"
 "(define-values"
 "(1/syntax-taint)"
-"(lambda(s_79)"
+"(lambda(s_5)"
 "(begin"
 " 'syntax-taint"
 "(let-values()"
 "(let-values()"
 "(begin"
-"            (if (syntax?$1 s_79) (void) (let-values () (raise-argument-error 'syntax-taint \"syntax?\" s_79)))"
-"(syntax-taint$1 s_79)))))))"
+"            (if (syntax?$1 s_5) (void) (let-values () (raise-argument-error 'syntax-taint \"syntax?\" s_5)))"
+"(syntax-taint$1 s_5)))))))"
 "(define-values"
 "(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_94)(current-module-code-inspector)))"
-"(if or-part_94 or-part_94(current-code-inspector))))))))"
+"(let-values(((or-part_367) maybe-insp_3))"
+"(if or-part_367"
+" or-part_367"
+"(let-values(((or-part_163)(current-module-code-inspector)))"
+"(if or-part_163 or-part_163(current-code-inspector))))))))"
 "(define-values"
 "(1/variable-reference->empty-namespace)"
 "(lambda(vr_0)"
@@ -59302,7 +57799,7 @@ static const char *startup_source =
 "(void)"
 "              (let-values () (raise-argument-error 'variable-reference->empty-namespace \"variable-reference?\" vr_0)))"
 "(let-values(((temp2_7)(1/variable-reference->namespace vr_0)))"
-"(new-namespace9.1 #f #f #f #f temp2_7 #t))))))))"
+"(new-namespace8.1 #t unsafe-undefined temp2_7))))))))"
 "(define-values"
 "(1/variable-reference->namespace)"
 "(lambda(vr_1)"
@@ -59317,26 +57814,26 @@ static const char *startup_source =
 "(let-values()"
 "                              (raise-argument-error 'variable-reference->namespace \"variable-reference?\" vr_1)))"
 "(values))))"
-"(let-values(((ns_117)(variable-reference->namespace* vr_1)))"
-"(let-values(((mpi_52)(namespace-mpi ns_117)))"
+"(let-values(((ns_60)(variable-reference->namespace* vr_1)))"
+"(let-values(((mpi_50)(namespace-mpi ns_60)))"
 "(begin"
-"(if(non-self-module-path-index? mpi_52)"
+"(if(non-self-module-path-index? mpi_50)"
 "(let-values()"
-"(let-values(((ns4_0) ns_117)((mpi5_1) mpi_52)((temp6_5)(namespace-0-phase ns_117)))"
-"(namespace-module-make-available!112.1 #f #f ns4_0 mpi5_1 temp6_5)))"
+"(let-values(((ns4_1) ns_60)((mpi5_0) mpi_50)((temp6_5)(namespace-0-phase ns_60)))"
+"(namespace-module-make-available!112.1 unsafe-undefined ns4_1 mpi5_0 temp6_5)))"
 "(void))"
-" ns_117)))))))))"
+" ns_60)))))))))"
 "(define-values"
 "(variable-reference->namespace*)"
 "(lambda(vr_2)"
 "(begin"
-"(let-values(((inst_8)(1/variable-reference->instance vr_2)))"
-"(if(symbol? inst_8)"
+"(let-values(((inst_7)(1/variable-reference->instance vr_2)))"
+"(if(symbol? inst_7)"
 "(let-values()"
-"(1/module->namespace(list 'quote inst_8)(1/instance-data(1/variable-reference->instance vr_2 #t))))"
-"(if(not inst_8)"
+"(1/module->namespace(list 'quote inst_7)(1/instance-data(1/variable-reference->instance vr_2 #t))))"
+"(if(not inst_7)"
 "(let-values()(1/instance-data(1/variable-reference->instance vr_2 #t)))"
-"(let-values()(1/instance-data inst_8))))))))"
+"(let-values()(1/instance-data inst_7))))))))"
 "(define-values"
 "(1/variable-reference->module-path-index)"
 "(lambda(vr_3)"
@@ -59351,8 +57848,8 @@ static const char *startup_source =
 "(let-values()"
 "                              (raise-argument-error 'variable-reference->module-path-index \"variable-reference?\" vr_3)))"
 "(values))))"
-"(let-values(((mpi_53)(namespace-mpi(variable-reference->namespace* vr_3))))"
-"(if(top-level-module-path-index? mpi_53) #f mpi_53))))))))"
+"(let-values(((mpi_51)(namespace-mpi(variable-reference->namespace* vr_3))))"
+"(if(top-level-module-path-index? mpi_51) #f mpi_51))))))))"
 "(define-values"
 "(1/variable-reference->resolved-module-path)"
 "(lambda(vr_4)"
@@ -59370,8 +57867,8 @@ static const char *startup_source =
 "                               \"variable-reference?\""
 " vr_4)))"
 "(values))))"
-"(let-values(((mpi_54)(1/variable-reference->module-path-index vr_4)))"
-"(if mpi_54(1/module-path-index-resolve mpi_54) #f))))))))"
+"(let-values(((mpi_52)(1/variable-reference->module-path-index vr_4)))"
+"(if mpi_52(1/module-path-index-resolve mpi_52) #f))))))))"
 "(define-values"
 "(1/variable-reference->module-source)"
 "(lambda(vr_5)"
@@ -59386,7 +57883,7 @@ static const char *startup_source =
 "(let-values()"
 "                              (raise-argument-error 'variable-reference->module-source \"variable-reference?\" vr_5)))"
 "(values))))"
-"(let-values(((ns_87)(variable-reference->namespace* vr_5)))(namespace-source-name ns_87))))))))"
+"(let-values(((ns_117)(variable-reference->namespace* vr_5)))(namespace-source-name ns_117))))))))"
 "(define-values"
 "(1/variable-reference->phase)"
 "(lambda(vr_6)"
@@ -59431,9 +57928,9 @@ static const char *startup_source =
 "                 \"variable reference\""
 " vr_8))"
 "(void))"
-"(let-values(((or-part_75)(namespace-declaration-inspector(variable-reference->namespace* vr_8))))"
-"(if or-part_75"
-" or-part_75"
+"(let-values(((or-part_73)(namespace-declaration-inspector(variable-reference->namespace* vr_8))))"
+"(if or-part_73"
+" or-part_73"
 "(raise-arguments-error"
 " 'variable-reference->module-declaration-inspector"
 "                 \"given variable reference is not from a module\")))))))))"
@@ -59727,10 +58224,10 @@ static const char *startup_source =
 "(let-values(((read-ids_0) read-ids3_0))"
 "(let-values()"
 "(begin"
-"(let-values(((temp53_4) '#%kernel)"
+"(let-values(((temp53_5) '#%kernel)"
 "((temp54_5) '#%runtime)"
-"((temp55_2)(set-union primitive-ids(set-union main-ids_0 read-ids_0)))"
-"((temp56_2)"
+"((temp55_4)(set-union primitive-ids(set-union main-ids_0 read-ids_0)))"
+"((temp56_4)"
 "(hasheq"
 " 'variable-reference?"
 " 1/variable-reference?"
@@ -59738,52 +58235,39 @@ static const char *startup_source =
 " 1/variable-reference-constant?"
 " 'variable-reference-from-unsafe?"
 " 1/variable-reference-from-unsafe?))"
-"((ns57_0) ns_118))"
-"(copy-runtime-module!26.1 #f #f temp56_2 #t ns57_0 #f #f #f #f temp55_2 #t temp54_5 #t temp53_4))"
-"(let-values(((temp58_3) '#%kernel)((temp59_6) '(#%core #%runtime #%main #%read))((ns60_0) ns_118))"
-"(declare-reexporting-module!50.1 ns60_0 #f #f temp58_3 temp59_6)))))))))))"
+"((ns57_2) ns_118))"
+"(copy-runtime-module!26.1 unsafe-undefined temp56_4 ns57_2 #t #f temp55_4 temp54_5 temp53_5))"
+"(let-values(((temp58_4) '#%kernel)((temp59_7) '(#%core #%runtime #%main #%read))((ns60_2) ns_118))"
+"(declare-reexporting-module!50.1 ns60_2 #t temp58_4 temp59_7)))))))))))"
 "(define-values"
 "(copy-runtime-module!26.1)"
-"(lambda(alts14_0"
-" alts21_0"
-" extras15_0"
-" extras22_0"
-" namespace12_0"
-" primitive?16_0"
-" primitive?23_0"
-" protected?17_0"
-" protected?24_0"
-" skip13_0"
-" skip20_0"
-" to11_0"
-" to18_0"
-" name25_0)"
+"(lambda(alts14_0 extras15_0 namespace12_0 primitive?16_0 protected?17_0 skip13_0 to11_0 name25_1)"
 "(begin"
 " 'copy-runtime-module!26"
-"(let-values(((name_66) name25_0))"
-"(let-values(((to-name_0)(if to18_0 to11_0 name_66)))"
+"(let-values(((name_74) name25_1))"
+"(let-values(((to-name_0)(if(eq? to11_0 unsafe-undefined) name_74 to11_0)))"
 "(let-values(((ns_119) namespace12_0))"
-"(let-values(((skip-syms_0)(if skip20_0 skip13_0(seteq))))"
-"(let-values(((alts_0)(if alts21_0 alts14_0 '#hasheq())))"
-"(let-values(((extras_0)(if extras22_0 extras15_0 '#hasheq())))"
-"(let-values(((primitive?_9)(if primitive?23_0 primitive?16_0 #t)))"
-"(let-values(((protected?_10)(if protected?24_0 protected?17_0 #f)))"
+"(let-values(((skip-syms_0)(if(eq? skip13_0 unsafe-undefined)(seteq) skip13_0)))"
+"(let-values(((alts_0)(if(eq? alts14_0 unsafe-undefined) '#hasheq() alts14_0)))"
+"(let-values(((extras_0)(if(eq? extras15_0 unsafe-undefined) '#hasheq() extras15_0)))"
+"(let-values(((primitive?_9) primitive?16_0))"
+"(let-values(((protected?_10) protected?17_0))"
 "(let-values()"
-"(let-values(((prims_0)(1/primitive-table name_66)))"
+"(let-values(((prims_0)(1/primitive-table name_74)))"
 "(let-values((()"
 "(begin"
-"(let-values(((ht_24) prims_0))"
+"(let-values(((ht_152) prims_0))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
-"(let-values()(check-in-hash-keys ht_24)))"
-"((letrec-values(((for-loop_281)"
-"(lambda(i_28)"
+"(let-values()(check-in-hash-keys ht_152)))"
+"((letrec-values(((for-loop_17)"
+"(lambda(i_178)"
 "(begin"
 " 'for-loop"
-"(if i_28"
-"(let-values(((sym_100)"
-"(hash-iterate-key ht_24 i_28)))"
+"(if i_178"
+"(let-values(((sym_64)"
+"(hash-iterate-key ht_152 i_178)))"
 "(let-values((()"
 "(let-values()"
 "(let-values((()"
@@ -59791,104 +58275,105 @@ static const char *startup_source =
 "(begin"
 "(let-values()"
 "(register-built-in-symbol!"
-" sym_100))"
+" sym_64))"
 "(values)))))"
 "(values)))))"
 "(if(not #f)"
-"(for-loop_281"
-"(hash-iterate-next ht_24 i_28))"
+"(for-loop_17"
+"(hash-iterate-next ht_152 i_178))"
 "(values))))"
 "(values))))))"
-" for-loop_281)"
-"(hash-iterate-first ht_24))))"
+" for-loop_17)"
+"(hash-iterate-first ht_152))))"
 "(values))))"
 "(let-values()"
-"(let-values(((ht_161)"
-"(let-values(((ht_162) prims_0))"
+"(let-values(((ht_153)"
+"(let-values(((ht_154) prims_0))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
-"(let-values()(check-in-hash ht_162)))"
-"((letrec-values(((for-loop_269)"
-"(lambda(table_11 i_185)"
+"(let-values()(check-in-hash ht_154)))"
+"((letrec-values(((for-loop_246)"
+"(lambda(table_210 i_98)"
 "(begin"
 " 'for-loop"
-"(if i_185"
-"(let-values(((sym_101 val_5)"
+"(if i_98"
+"(let-values(((sym_92 val_82)"
 "(hash-iterate-key+value"
-" ht_162"
-" i_185)))"
-"(let-values(((table_220)"
-"(let-values(((table_221)"
-" table_11))"
+" ht_154"
+" i_98)))"
+"(let-values(((table_211)"
+"(let-values(((table_10)"
+" table_210))"
 "(if(set-member?"
 " skip-syms_0"
-" sym_101)"
-" table_221"
-"(let-values(((table_20)"
-" table_221))"
-"(let-values(((table_222)"
+" sym_92)"
+" table_10"
+"(let-values(((table_11)"
+" table_10))"
+"(let-values(((table_12)"
 "(let-values()"
-"(let-values(((key_87"
-" val_84)"
+"(let-values(((key_14"
+" val_5)"
 "(let-values()"
 "(values"
-" sym_101"
-"(let-values(((or-part_222)"
+" sym_92"
+"(let-values(((or-part_167)"
 "(hash-ref"
 " alts_0"
-" sym_101"
+" sym_92"
 " #f)))"
-"(if or-part_222"
-" or-part_222"
-" val_5))))))"
+"(if or-part_167"
+" or-part_167"
+" val_82))))))"
 "(hash-set"
-" table_20"
-" key_87"
-" val_84)))))"
-"(values table_222)))))))"
+" table_11"
+" key_14"
+" val_5)))))"
+"(values table_12)))))))"
 "(if(not #f)"
-"(for-loop_269"
-" table_220"
-"(hash-iterate-next ht_162 i_185))"
-" table_220)))"
-" table_11)))))"
-" for-loop_269)"
+"(for-loop_246"
+" table_211"
+"(hash-iterate-next ht_154 i_98))"
+" table_211)))"
+" table_210)))))"
+" for-loop_246)"
 " '#hasheq()"
-"(hash-iterate-first ht_162))))))"
+"(hash-iterate-first ht_154))))))"
 "(let-values(((ht+extras_0)"
-"(let-values(((ht_163) extras_0))"
+"(let-values(((ht_141) extras_0))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
-"(let-values()(check-in-hash ht_163)))"
-"((letrec-values(((for-loop_282)"
-"(lambda(ht_164 i_186)"
+"(let-values()(check-in-hash ht_141)))"
+"((letrec-values(((for-loop_251)"
+"(lambda(ht_149 i_172)"
 "(begin"
 " 'for-loop"
-"(if i_186"
-"(let-values(((k_43 v_50)"
+"(if i_172"
+"(let-values(((k_43 v_46)"
 "(hash-iterate-key+value"
-" ht_163"
-" i_186)))"
-"(let-values(((ht_16)"
-"(let-values(((ht_46) ht_164))"
-"(let-values(((ht_165)"
+" ht_141"
+" i_172)))"
+"(let-values(((ht_155)"
+"(let-values(((ht_156)"
+" ht_149))"
+"(let-values(((ht_157)"
 "(let-values()"
 "(hash-set"
-" ht_46"
+" ht_156"
 " k_43"
-" v_50))))"
-"(values ht_165)))))"
+" v_46))))"
+"(values ht_157)))))"
 "(if(not #f)"
-"(for-loop_282"
-" ht_16"
-"(hash-iterate-next ht_163 i_186))"
-" ht_16)))"
-" ht_164)))))"
-" for-loop_282)"
-" ht_161"
-"(hash-iterate-first ht_163))))))"
+"(for-loop_251"
+" ht_155"
+"(hash-iterate-next ht_141 i_172))"
+" ht_155)))"
+" ht_149)))))"
+" for-loop_251)"
+" ht_153"
+"(hash-iterate-first ht_141))))))"
 "(let-values(((to-name61_0) to-name_0)"
 "((ht+extras62_0) ht+extras_0)"
 "((ns63_0) ns_119)"
@@ -59897,70 +58382,56 @@ static const char *startup_source =
 "(declare-hash-based-module!41.1"
 " ns63_0"
 " primitive?64_0"
-" #t"
-" #f"
-" #f"
+" null"
 " protected?65_0"
-" #t"
-" #f"
 " #f"
 " to-name61_0"
 " ht+extras62_0)))))))))))))))))))"
 "(define-values"
 "(declare-hash-based-module!41.1)"
-"(lambda(namespace29_0"
-" primitive?30_0"
-" primitive?35_0"
-" protected32_0"
-" protected37_0"
-" protected?31_0"
-" protected?36_0"
-" register-builtin?33_0"
-" register-builtin?38_0"
-" name39_0"
-" ht40_0)"
+"(lambda(namespace29_0 primitive?30_0 protected32_0 protected?31_0 register-builtin?33_0 name39_0 ht40_0)"
 "(begin"
 " 'declare-hash-based-module!41"
 "(let-values(((name_75) name39_0))"
-"(let-values(((ht_166) ht40_0))"
+"(let-values(((ht_158) ht40_0))"
 "(let-values(((ns_120) namespace29_0))"
-"(let-values(((primitive?_10)(if primitive?35_0 primitive?30_0 #f)))"
-"(let-values(((protected?_11)(if protected?36_0 protected?31_0 #f)))"
-"(let-values(((protected-syms_0)(if protected37_0 protected32_0 null)))"
-"(let-values(((register-builtin?_0)(if register-builtin?38_0 register-builtin?33_0 #f)))"
+"(let-values(((primitive?_10) primitive?30_0))"
+"(let-values(((protected?_11) protected?31_0))"
+"(let-values(((protected-syms_0) protected32_0))"
+"(let-values(((register-builtin?_0) register-builtin?33_0))"
 "(let-values()"
-"(let-values(((mpi_55)(1/module-path-index-join(list 'quote name_75) #f)))"
-"(let-values(((ns66_1) ns_120)"
-"((temp67_1)"
-"(let-values(((temp69_2) #t)"
+"(let-values(((mpi_5)(1/module-path-index-join(list 'quote name_75) #f)))"
+"(let-values(((ns66_0) ns_120)"
+"((temp67_4)"
+"(let-values(((temp69_3) #t)"
 "((primitive?70_0) primitive?_10)"
-"((temp71_6) #t)"
+"((temp71_4) #t)"
 "((temp72_3)(not protected?_11))"
-"((mpi73_1) mpi_55)"
-"((temp74_0)"
+"((mpi73_1) mpi_5)"
+"((temp74_3)"
 "(hasheqv"
 " 0"
-"(let-values(((ht_167) ht_166))"
+"(let-values(((ht_159) ht_158))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
-"(let-values()(check-in-hash-keys ht_167)))"
-"((letrec-values(((for-loop_283)"
-"(lambda(table_223 i_187)"
+"(let-values()(check-in-hash-keys ht_159)))"
+"((letrec-values(((for-loop_278)"
+"(lambda(table_212 i_179)"
 "(begin"
 " 'for-loop"
-"(if i_187"
+"(if i_179"
 "(let-values(((sym_102)"
 "(hash-iterate-key"
-" ht_167"
-" i_187)))"
-"(let-values(((table_224)"
-"(let-values(((table_225)"
-" table_223))"
-"(let-values(((table_226)"
+" ht_159"
+" i_179)))"
+"(let-values(((table_6)"
+"(let-values(((table_7)"
+" table_212))"
+"(let-values(((table_213)"
 "(let-values()"
-"(let-values(((key_88"
-" val_85)"
+"(let-values(((key_86"
+" val_83)"
 "(let-values()"
 "(let-values((()"
 "(begin"
@@ -59970,70 +58441,61 @@ static const char *startup_source =
 " sym_102))"
 "(void))"
 "(values))))"
-"(let-values(((binding_28)"
+"(let-values(((binding_26)"
 "(let-values(((mpi76_0)"
-" mpi_55)"
-"((temp77_2)"
+" mpi_5)"
+"((temp77_3)"
 " 0)"
 "((sym78_0)"
 " sym_102))"
 "(make-module-binding22.1"
 " #f"
+" null"
 " #f"
 " #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
+" unsafe-undefined"
+" unsafe-undefined"
+" 0"
+" unsafe-undefined"
+" unsafe-undefined"
 " mpi76_0"
-" temp77_2"
+" temp77_3"
 " sym78_0))))"
 "(values"
 " sym_102"
-"(if(let-values(((or-part_370)"
+"(if(let-values(((or-part_56)"
 " protected?_11))"
-"(if or-part_370"
-" or-part_370"
+"(if or-part_56"
+" or-part_56"
 "(member"
 " sym_102"
 " protected-syms_0)))"
 "(provided1.1"
-" binding_28"
+" binding_26"
 " #t"
 " #f)"
-" binding_28)))))))"
+" binding_26)))))))"
 "(hash-set"
-" table_225"
-" key_88"
-" val_85)))))"
+" table_7"
+" key_86"
+" val_83)))))"
 "(values"
-" table_226)))))"
+" table_213)))))"
 "(if(not #f)"
-"(for-loop_283"
-" table_224"
+"(for-loop_278"
+" table_6"
 "(hash-iterate-next"
-" ht_167"
-" i_187))"
-" table_224)))"
-" table_223)))))"
-" for-loop_283)"
+" ht_159"
+" i_179))"
+" table_6)))"
+" table_212)))))"
+" for-loop_278)"
 " '#hash()"
-"(hash-iterate-first ht_167))))))"
-"((temp75_3)"
+"(hash-iterate-first ht_159))))))"
+"((temp75_4)"
 "(lambda(data-box_6"
 " ns_121"
-" phase-shift_21"
+" phase-shift_20"
 " phase-level_23"
 " self_29"
 " bulk-binding-registry_19"
@@ -60041,21 +58503,21 @@ static const char *startup_source =
 "(if(= 0 phase-level_23)"
 "(let-values()"
 "(begin"
-"(let-values(((ht_168) ht_166))"
+"(let-values(((ht_160) ht_158))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
 "(#%variable-reference))"
 "(void)"
-"(let-values()(check-in-hash ht_168)))"
-"((letrec-values(((for-loop_243)"
-"(lambda(i_188)"
+"(let-values()(check-in-hash ht_160)))"
+"((letrec-values(((for-loop_279)"
+"(lambda(i_180)"
 "(begin"
 " 'for-loop"
-"(if i_188"
-"(let-values(((sym_103 val_32)"
+"(if i_180"
+"(let-values(((sym_103 val_84)"
 "(hash-iterate-key+value"
-" ht_168"
-" i_188)))"
+" ht_160"
+" i_180)))"
 "(let-values((()"
 "(let-values()"
 "(let-values((()"
@@ -60066,84 +58528,69 @@ static const char *startup_source =
 " ns_121"
 " 0"
 " sym_103"
-" val_32))"
+" val_84))"
 "(values)))))"
 "(values)))))"
 "(if(not #f)"
-"(for-loop_243"
+"(for-loop_279"
 "(hash-iterate-next"
-" ht_168"
-" i_188))"
+" ht_160"
+" i_180))"
 "(values))))"
 "(values))))))"
-" for-loop_243)"
-"(hash-iterate-first ht_168))))"
+" for-loop_279)"
+"(hash-iterate-first ht_160))))"
 "(void)))"
 "(void)))))"
 "(make-module39.1"
-" temp69_2"
-" #t"
-" #f"
-" #f"
-" #f"
-" #f"
-" temp75_3"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
+" temp69_3"
+" unsafe-undefined"
+" unsafe-undefined"
+" temp75_4"
 " #f"
+" 0"
+" 0"
 " temp72_3"
-" #t"
-" #f"
-" #f"
-" temp71_6"
-" #t"
-" #f"
-" #f"
+" unsafe-undefined"
+" temp71_4"
+" unsafe-undefined"
 " primitive?70_0"
-" #t"
-" temp74_0"
-" #f"
-" #f"
+" temp74_3"
+" null"
 " mpi73_1"
 " #f"
-" #f"
-" #f"
-" #f"
-" #f"
+" null"
 " #f)))"
-"((temp68_3)(1/module-path-index-resolve mpi_55)))"
-"(declare-module!58.1 #f #f ns66_1 temp67_1 temp68_3))))))))))))))"
+"((temp68_5)(1/module-path-index-resolve mpi_5)))"
+"(declare-module!58.1 #t ns66_0 temp67_4 temp68_5))))))))))))))"
 "(define-values"
 "(declare-reexporting-module!50.1)"
-"(lambda(namespace45_0 reexport?44_0 reexport?46_0 name48_1 require-names49_0)"
+"(lambda(namespace45_0 reexport?44_0 name48_0 require-names49_0)"
 "(begin"
 " 'declare-reexporting-module!50"
-"(let-values(((name_76) name48_1))"
+"(let-values(((name_76) name48_0))"
 "(let-values(((require-names_0) require-names49_0))"
-"(let-values(((reexport?_0)(if reexport?46_0 reexport?44_0 #t)))"
+"(let-values(((reexport?_0) reexport?44_0))"
 "(let-values(((ns_122) namespace45_0))"
 "(let-values()"
-"(let-values(((mpi_56)(1/module-path-index-join(list 'quote name_76) #f)))"
+"(let-values(((mpi_53)(1/module-path-index-join(list 'quote name_76) #f)))"
 "(let-values(((require-mpis_0)"
 "(reverse$1"
-"(let-values(((lst_203) require-names_0))"
+"(let-values(((lst_109) require-names_0))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
-"(let-values()(check-list lst_203)))"
+"(let-values()(check-list lst_109)))"
 "((letrec-values(((for-loop_206)"
-"(lambda(fold-var_145 lst_204)"
+"(lambda(fold-var_138 lst_110)"
 "(begin"
 " 'for-loop"
-"(if(pair? lst_204)"
-"(let-values(((require-name_0)(unsafe-car lst_204))"
-"((rest_107)(unsafe-cdr lst_204)))"
-"(let-values(((fold-var_294)"
-"(let-values(((fold-var_295) fold-var_145))"
-"(let-values(((fold-var_40)"
+"(if(pair? lst_110)"
+"(let-values(((require-name_0)(unsafe-car lst_110))"
+"((rest_109)(unsafe-cdr lst_110)))"
+"(let-values(((fold-var_39)"
+"(let-values(((fold-var_282) fold-var_138))"
+"(let-values(((fold-var_283)"
 "(let-values()"
 "(cons"
 "(let-values()"
@@ -60152,40 +58599,40 @@ static const char *startup_source =
 " 'quote"
 " require-name_0)"
 " #f))"
-" fold-var_295))))"
-"(values fold-var_40)))))"
+" fold-var_282))))"
+"(values fold-var_283)))))"
 "(if(not #f)"
-"(for-loop_206 fold-var_294 rest_107)"
-" fold-var_294)))"
-" fold-var_145)))))"
+"(for-loop_206 fold-var_39 rest_109)"
+" fold-var_39)))"
+" fold-var_138)))))"
 " for-loop_206)"
 " null"
-" lst_203))))))"
+" lst_109))))))"
 "(let-values(((ns79_1) ns_122)"
-"((temp80_4)"
-"(let-values(((temp82_5) #t)"
-"((temp83_3) #t)"
-"((mpi84_0) mpi_56)"
-"((temp85_4)(list(cons 0 require-mpis_0)))"
-"((temp86_1)"
+"((temp80_2)"
+"(let-values(((temp82_2) #t)"
+"((temp83_4) #t)"
+"((mpi84_0) mpi_53)"
+"((temp85_5)(list(cons 0 require-mpis_0)))"
+"((temp86_4)"
 "(if reexport?_0"
 "(hasheqv"
 " 0"
-"(let-values(((lst_110) require-mpis_0))"
+"(let-values(((lst_156) require-mpis_0))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
-"(let-values()(check-list lst_110)))"
-"((letrec-values(((for-loop_284)"
-"(lambda(table_227 lst_54)"
+"(let-values()(check-list lst_156)))"
+"((letrec-values(((for-loop_237)"
+"(lambda(table_183 lst_54)"
 "(begin"
 " 'for-loop"
 "(if(pair? lst_54)"
 "(let-values(((require-mpi_0)"
 "(unsafe-car lst_54))"
-"((rest_176)"
+"((rest_182)"
 "(unsafe-cdr lst_54)))"
-"(let-values(((table_228)"
+"(let-values(((table_33)"
 "(let-values(((m_29)"
 "(namespace->module"
 " ns_122"
@@ -60193,13 +58640,13 @@ static const char *startup_source =
 " require-mpi_0))))"
 "(begin"
 " #t"
-"((letrec-values(((for-loop_285)"
-"(lambda(table_32)"
+"((letrec-values(((for-loop_185)"
+"(lambda(table_141)"
 "(begin"
 " 'for-loop"
 "(let-values()"
-"(let-values(((table_229)"
-"(let-values(((ht_169)"
+"(let-values(((table_214)"
+"(let-values(((ht_161)"
 "(hash-ref"
 "(shift-provides-module-path-index"
 "(module-provides"
@@ -60214,96 +58661,81 @@ static const char *startup_source =
 "(void)"
 "(let-values()"
 "(check-in-hash"
-" ht_169)))"
-"((letrec-values(((for-loop_286)"
-"(lambda(table_148"
-" i_189)"
+" ht_161)))"
+"((letrec-values(((for-loop_280)"
+"(lambda(table_142"
+" i_181)"
 "(begin"
 " 'for-loop"
-"(if i_189"
+"(if i_181"
 "(let-values(((sym_104"
-" binding_29)"
+" binding_27)"
 "(hash-iterate-key+value"
-" ht_169"
-" i_189)))"
-"(let-values(((table_122)"
-"(let-values(((table_163)"
-" table_148))"
+" ht_161"
+" i_181)))"
+"(let-values(((table_31)"
+"(let-values(((table_32)"
+" table_142))"
 "(let-values(((table_35)"
 "(let-values()"
-"(let-values(((key_89"
-" val_86)"
+"(let-values(((key_87"
+" val_85)"
 "(let-values()"
 "(values"
 " sym_104"
-" binding_29))))"
+" binding_27))))"
 "(hash-set"
-" table_163"
-" key_89"
-" val_86)))))"
+" table_32"
+" key_87"
+" val_85)))))"
 "(values"
 " table_35)))))"
 "(if(not"
 " #f)"
-"(for-loop_286"
-" table_122"
+"(for-loop_280"
+" table_31"
 "(hash-iterate-next"
-" ht_169"
-" i_189))"
-" table_122)))"
-" table_148)))))"
-" for-loop_286)"
-" table_32"
+" ht_161"
+" i_181))"
+" table_31)))"
+" table_142)))))"
+" for-loop_280)"
+" table_141"
 "(hash-iterate-first"
-" ht_169))))))"
-" table_229))))))"
-" for-loop_285)"
-" table_227)))))"
+" ht_161))))))"
+" table_214))))))"
+" for-loop_185)"
+" table_183)))))"
 "(if(not #f)"
-"(for-loop_284 table_228 rest_176)"
-" table_228)))"
-" table_227)))))"
-" for-loop_284)"
+"(for-loop_237 table_33 rest_182)"
+" table_33)))"
+" table_183)))))"
+" for-loop_237)"
 " '#hash()"
-" lst_110))))"
+" lst_156))))"
 " '#hasheqv()))"
 "((void87_0) void))"
 "(make-module39.1"
-" temp82_5"
-" #t"
-" #f"
-" #f"
-" #f"
-" #f"
+" temp82_2"
+" unsafe-undefined"
+" unsafe-undefined"
 " void87_0"
 " #f"
+" 0"
+" 0"
 " #f"
+" unsafe-undefined"
+" temp83_4"
+" unsafe-undefined"
 " #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" temp83_3"
-" #t"
-" #f"
-" #f"
-" #f"
-" #f"
-" temp86_1"
-" temp85_4"
-" #t"
+" temp86_4"
+" temp85_5"
 " mpi84_0"
 " #f"
-" #f"
-" #f"
-" #f"
-" #f"
+" null"
 " #f)))"
-"((temp81_4)(1/module-path-index-resolve mpi_56)))"
-"(declare-module!58.1 #f #f ns79_1 temp80_4 temp81_4))))))))))))"
+"((temp81_4)(1/module-path-index-resolve mpi_53)))"
+"(declare-module!58.1 #t ns79_1 temp80_2 temp81_4))))))))))))"
 "(define-values"
 "(read-primitives)"
 "(hasheq"
@@ -60364,14 +58796,14 @@ static const char *startup_source =
 "(let-values()"
 "(let-values()"
 "(case-lambda"
-"((s_71)(begin 'eval((1/current-eval)(intro s_71))))"
-"((s_190 ns_123)"
+"((s_72)(begin 'eval((1/current-eval)(intro s_72))))"
+"((s_188 ns_123)"
 "(begin"
 "          (if (1/namespace? ns_123) (void) (let-values () (raise-argument-error 'eval \"namespace?\" ns_123)))"
 "(with-continuation-mark"
 " parameterization-key"
 "(extend-parameterization(continuation-mark-set-first #f parameterization-key) 1/current-namespace ns_123)"
-"(let-values()((1/current-eval)(intro s_190 ns_123))))))))))"
+"(let-values()((1/current-eval)(intro s_188 ns_123))))))))))"
 "(define-values"
 "(1/eval-syntax)"
 "(let-values()"
@@ -60383,72 +58815,74 @@ static const char *startup_source =
 "(begin"
 "            (if (syntax?$1 s_8) (void) (let-values () (raise-argument-error 'eval-syntax \"syntax?\" s_8)))"
 "((1/current-eval) s_8))))"
-"((s_2 ns_124)"
+"((s_2 ns_58)"
 "(begin"
 "          (if (syntax?$1 s_2) (void) (let-values () (raise-argument-error 'eval-syntax \"syntax?\" s_2)))"
-"          (if (1/namespace? ns_124) (void) (let-values () (raise-argument-error 'eval-syntax \"namespace?\" ns_124)))"
+"          (if (1/namespace? ns_58) (void) (let-values () (raise-argument-error 'eval-syntax \"namespace?\" ns_58)))"
 "(with-continuation-mark"
 " parameterization-key"
-"(extend-parameterization(continuation-mark-set-first #f parameterization-key) 1/current-namespace ns_124)"
+"(extend-parameterization(continuation-mark-set-first #f parameterization-key) 1/current-namespace ns_58)"
 "(let-values()((1/current-eval) s_2)))))))))"
-"(define-values(compile$1)(lambda(s_179)(begin 'compile((1/current-compile)(intro s_179) #f))))"
+"(define-values(compile$1)(lambda(s_177)(begin 'compile((1/current-compile)(intro s_177) #f))))"
 "(define-values"
 "(1/compile-syntax)"
-"(lambda(s_193)"
+"(lambda(s_497)"
 "(begin"
 " 'compile-syntax"
 "(let-values()"
 "(let-values()"
 "(begin"
-"            (if (syntax?$1 s_193) (void) (let-values () (raise-argument-error 'compile-syntax \"syntax?\" s_193)))"
-"((1/current-compile) s_193 #f)))))))"
+"            (if (syntax?$1 s_497) (void) (let-values () (raise-argument-error 'compile-syntax \"syntax?\" s_497)))"
+"((1/current-compile) s_497 #f)))))))"
 "(define-values(1/expand)(lambda(s_9)(begin 'expand(expand$1(intro s_9)(1/current-namespace) #t))))"
 "(define-values"
 "(1/expand-syntax)"
-"(lambda(s_499)"
+"(lambda(s_439)"
 "(begin"
 " 'expand-syntax"
 "(let-values()"
 "(let-values()"
 "(begin"
-"            (if (syntax?$1 s_499) (void) (let-values () (raise-argument-error 'expand-syntax \"syntax?\" s_499)))"
-"(expand$1 s_499(1/current-namespace) #t)))))))"
-"(define-values(1/expand-once)(lambda(s_496)(begin 'expand-once(expand-once$1(intro s_496)))))"
+"            (if (syntax?$1 s_439) (void) (let-values () (raise-argument-error 'expand-syntax \"syntax?\" s_439)))"
+"(expand$1 s_439(1/current-namespace) #t)))))))"
+"(define-values(1/expand-once)(lambda(s_446)(begin 'expand-once(expand-once$1(intro s_446)))))"
 "(define-values"
 "(1/expand-syntax-once)"
-"(lambda(s_180)"
+"(lambda(s_178)"
 "(begin"
 " 'expand-syntax-once"
 "(let-values()"
 "(let-values()"
 "(begin"
-"            (if (syntax?$1 s_180) (void) (let-values () (raise-argument-error 'expand-syntax-once \"syntax?\" s_180)))"
-"(expand-once$1 s_180)))))))"
-"(define-values(1/expand-to-top-form)(lambda(s_74)(begin 'expand-to-top-form(expand-to-top-form$1(intro s_74)))))"
+"            (if (syntax?$1 s_178) (void) (let-values () (raise-argument-error 'expand-syntax-once \"syntax?\" s_178)))"
+"(expand-once$1 s_178)))))))"
+"(define-values(1/expand-to-top-form)(lambda(s_75)(begin 'expand-to-top-form(expand-to-top-form$1(intro s_75)))))"
 "(define-values"
 "(1/expand-syntax-to-top-form)"
-"(lambda(s_173)"
+"(lambda(s_170)"
 "(begin"
 " 'expand-syntax-to-top-form"
 "(let-values()"
 "(let-values()"
 "(begin"
-"(if(syntax?$1 s_173)"
+"(if(syntax?$1 s_170)"
 "(void)"
-"              (let-values () (raise-argument-error 'expand-syntax-to-top-form \"syntax?\" s_173)))"
-"(expand-to-top-form$1 s_173)))))))"
+"              (let-values () (raise-argument-error 'expand-syntax-to-top-form \"syntax?\" s_170)))"
+"(expand-to-top-form$1 s_170)))))))"
 "(define-values"
 "(intro)"
-"(let-values(((intro4_0)"
-"(lambda(given-s3_0 ns1_7 ns2_1)"
+"(let-values(((intro3_0)"
+"(lambda(given-s2_0 ns1_6)"
 "(begin"
-" 'intro4"
-"(let-values(((given-s_1) given-s3_0))"
-"(let-values(((ns_68)(if ns2_1 ns1_7(1/current-namespace))))"
+" 'intro3"
+"(let-values(((given-s_1) given-s2_0))"
+"(let-values(((ns_124)(if(eq? ns1_6 unsafe-undefined)(1/current-namespace) ns1_6)))"
 "(let-values()"
-"(let-values(((s_500)(if(syntax?$1 given-s_1) given-s_1(1/datum->syntax #f given-s_1))))"
-"(1/namespace-syntax-introduce s_500 ns_68)))))))))"
-"(case-lambda((given-s_2)(begin(intro4_0 given-s_2 #f #f)))((given-s_3 ns1_8)(intro4_0 given-s_3 ns1_8 #t)))))"
+"(let-values(((s_304)(if(syntax?$1 given-s_1) given-s_1(1/datum->syntax #f given-s_1))))"
+"(1/namespace-syntax-introduce s_304 ns_124)))))))))"
+"(case-lambda"
+"((given-s_2)(begin(intro3_0 given-s_2 unsafe-undefined)))"
+"((given-s_3 ns1_7)(intro3_0 given-s_3 ns1_7)))))"
 "(define-values"
 "(main-primitives)"
 "(hasheq"
@@ -60616,10 +59050,10 @@ static const char *startup_source =
 "(define-values(expobs-primitives)(hasheq 'current-expand-observe current-expand-observe))"
 "(define-values"
 "(struct:TH-place-channel TH-place-channel TH-place-channel? TH-place-channel-ref TH-place-channel-set!)"
-"(make-struct-type 'TH-place-channel #f 2 0 #f(list(cons prop:evt(lambda(x_94)(TH-place-channel-ref x_94 0))))))"
+"(make-struct-type 'TH-place-channel #f 2 0 #f(list(cons prop:evt(lambda(x_98)(TH-place-channel-ref x_98 0))))))"
 "(define-values"
 "(TH-place-channel-in TH-place-channel-out)"
-"(values(lambda(x_95)(TH-place-channel-ref x_95 0))(lambda(x_83)(TH-place-channel-ref x_83 1))))"
+"(values(lambda(x_99)(TH-place-channel-ref x_99 0))(lambda(x_85)(TH-place-channel-ref x_85 1))))"
 "(define-values"
 "(place-struct-primitives)"
 "(hasheq"
@@ -60806,35 +59240,35 @@ static const char *startup_source =
 " expected-mod_0)))"
 "(values))))"
 "(let-values(((maybe-count-lines!_0)"
-"(lambda(i_127)"
+"(lambda(i_129)"
 "(begin"
 " 'maybe-count-lines!"
 "                            (if (regexp-match? '#rx\"[.]zo$\" path_12)"
 "(void)"
-"(let-values()(port-count-lines! i_127)))))))"
+"(let-values()(port-count-lines! i_129)))))))"
 "(if expected-mod_0"
 "(let-values()"
 "((call-with-input-module-file"
 " path_12"
-"(lambda(i_190)"
+"(lambda(i_182)"
 "(begin"
-"(maybe-count-lines!_0 i_190)"
+"(maybe-count-lines!_0 i_182)"
 "(with-module-reading-parameterization+delay-source"
 " path_12"
 "(lambda()"
-"(let-values(((c1_33)(linklet-directory-start i_190)))"
-"(if c1_33"
-"((lambda(pos_124)"
+"(let-values(((c1_32)(linklet-directory-start i_182)))"
+"(if c1_32"
+"((lambda(pos_123)"
 "(let-values(((b-pos_0)"
-"(search-directory i_190 pos_124(encode-symbols expected-mod_0))))"
+"(search-directory i_182 pos_123(encode-symbols expected-mod_0))))"
 "(if b-pos_0"
 "(let-values()"
 "(begin"
-"(file-position i_190 b-pos_0)"
-"(let-values(((or-part_12)(cached-bundle i_190)))"
+"(file-position i_182 b-pos_0)"
+"(let-values(((or-part_12)(cached-bundle i_182)))"
 "(if or-part_12"
 " or-part_12"
-"(let-values(((v_0)(1/read i_190)))"
+"(let-values(((v_0)(1/read i_182)))"
 "(if(1/compiled-module-expression? v_0)"
 "(lambda()((1/current-eval) v_0))"
 "(error"
@@ -60843,7 +59277,7 @@ static const char *startup_source =
 "                                                  \"expected a compiled module\\n\""
 "                                                  \"  in: ~e\\n\""
 "                                                  \"  found: ~e\")"
-"(object-name i_190)"
+"(object-name i_182)"
 " v_0)))))))"
 "(if(pair? expected-mod_0)"
 "(let-values() void)"
@@ -60851,18 +59285,18 @@ static const char *startup_source =
 "(error"
 " 'default-load-handler"
 "                                         (string-append \"could not find main module\\n\" \"  in: ~e\")"
-"(object-name i_190)))))))"
-" c1_33)"
+"(object-name i_182)))))))"
+" c1_32)"
 "(if(if(pair? expected-mod_0)(not(car expected-mod_0)) #f)"
 "(let-values() void)"
-"(let-values(((c2_17)(cached-bundle i_190)))"
+"(let-values(((c2_17)(cached-bundle i_182)))"
 "(if c2_17"
 "((lambda(thunk_8) thunk_8) c2_17)"
 "(let-values()"
-"(let-values(((s_180)(1/read-syntax(object-name i_190) i_190)))"
+"(let-values(((s_178)(1/read-syntax(object-name i_182) i_182)))"
 "(let-values((()"
 "(begin"
-"(if(eof-object? s_180)"
+"(if(eof-object? s_178)"
 "(let-values()"
 "(error"
 " 'default-load-handler"
@@ -60870,13 +59304,13 @@ static const char *startup_source =
 "                                                             \"expected a `module' declaration;\\n\""
 "                                                             \" found end-of-file\\n\""
 "                                                             \"  in: ~e\")"
-"(object-name i_190)))"
+"(object-name i_182)))"
 "(void))"
 "(values))))"
-"(let-values(((m-s_0)(check-module-form s_180 path_12)))"
-"(let-values(((s2_7)(1/read-syntax(object-name i_190) i_190)))"
+"(let-values(((m-s_0)(check-module-form s_178 path_12)))"
+"(let-values(((s2_10)(1/read-syntax(object-name i_182) i_182)))"
 "(begin"
-"(if(eof-object? s2_7)"
+"(if(eof-object? s2_10)"
 "(void)"
 "(let-values()"
 "(error"
@@ -60886,28 +59320,28 @@ static const char *startup_source =
 "                                                     \" found an extra form\\n\""
 "                                                     \"  in: ~e\\n\""
 "                                                     \"  found: ~.s\")"
-"(object-name i_190)"
-" s2_7)))"
+"(object-name i_182)"
+" s2_10)))"
 "(lambda()((1/current-eval) m-s_0))))))))))))))))))))"
 "(let-values()"
 "(let-values(((add-top-interaction_0)"
-"(lambda(s_456)"
+"(lambda(s_496)"
 "(begin"
 " 'add-top-interaction"
 "(1/namespace-syntax-introduce"
-"(1/datum->syntax #f(cons '#%top-interaction s_456) s_456))))))"
+"(1/datum->syntax #f(cons '#%top-interaction s_496) s_496))))))"
 "(let-values(((path1_0) path_12)"
 "((temp2_8)"
-"(lambda(i_84)"
+"(lambda(i_183)"
 "(begin"
 " 'temp2"
 "(begin"
-"(maybe-count-lines!_0 i_84)"
+"(maybe-count-lines!_0 i_183)"
 "((letrec-values(((loop_35)"
 "(lambda(vals_7)"
 "(begin"
 " 'loop"
-"(let-values(((s_309)"
+"(let-values(((s_304)"
 "(with-continuation-mark"
 " parameterization-key"
 "(extend-parameterization"
@@ -60932,19 +59366,19 @@ static const char *startup_source =
 "(path->complete-path path_12))"
 "(let-values()"
 "(1/read-syntax"
-"(object-name i_84)"
-" i_84)))"
+"(object-name i_183)"
+" i_183)))"
 "(1/read-syntax"
-"(object-name i_84)"
-" i_84))))))"
-"(if(eof-object? s_309)"
+"(object-name i_183)"
+" i_183))))))"
+"(if(eof-object? s_304)"
 "(apply values vals_7)"
 "(loop_35"
 "(call-with-continuation-prompt"
 "(lambda()"
 "(call-with-values"
 "(lambda()"
-"((1/current-eval)(add-top-interaction_0 s_309)))"
+"((1/current-eval)(add-top-interaction_0 s_304)))"
 " list))"
 "(default-continuation-prompt-tag)"
 "(lambda args_10"
@@ -60954,7 +59388,7 @@ static const char *startup_source =
 " args_10))))))))))"
 " loop_35)"
 "(list(void))))))))"
-"(call-with-input-file*61.1 #f #f path1_0 temp2_8)))))))))))"
+"(call-with-input-file*61.1 'binary path1_0 temp2_8)))))))))))"
 "(define-values"
 "(linklet-bundle-or-directory-start)"
 "(lambda(i_147 tag_1)"
@@ -60972,37 +59406,37 @@ static const char *startup_source =
 "(define-values"
 "(linklet-directory-start)"
 "(lambda(i_152)"
-"(begin(let-values(((pos_93)(linklet-bundle-or-directory-start i_152 '#\\D)))(if pos_93(+ pos_93 4) #f)))))"
+"(begin(let-values(((pos_95)(linklet-bundle-or-directory-start i_152 '#\\D)))(if pos_95(+ pos_95 4) #f)))))"
 "(define-values"
 "(linklet-bundle-hash-code)"
-"(lambda(i_85)"
+"(lambda(i_184)"
 "(begin"
-"(let-values(((pos_14)(linklet-bundle-or-directory-start i_85 '#\\B)))"
-"(let-values(((hash-code_5)(if pos_14(peek-bytes 20 pos_14 i_85) #f)))"
+"(let-values(((pos_15)(linklet-bundle-or-directory-start i_184 '#\\B)))"
+"(let-values(((hash-code_5)(if pos_15(peek-bytes 20 pos_15 i_184) #f)))"
 "(if(bytes? hash-code_5)"
 "(if(= 20(bytes-length hash-code_5))"
-"(if(let-values(((vec_71 len_40)"
-"(let-values(((vec_72) hash-code_5))"
-"(begin(check-bytes vec_72)(values vec_72(unsafe-bytes-length vec_72))))))"
+"(if(let-values(((vec_70 len_37)"
+"(let-values(((vec_71) hash-code_5))"
+"(begin(check-bytes vec_71)(values vec_71(unsafe-bytes-length vec_71))))))"
 "(begin"
 " #f"
-"((letrec-values(((for-loop_232)"
-"(lambda(result_130 pos_125)"
+"((letrec-values(((for-loop_234)"
+"(lambda(result_126 pos_99)"
 "(begin"
 " 'for-loop"
-"(if(unsafe-fx< pos_125 len_40)"
-"(let-values(((c_76)(unsafe-bytes-ref vec_71 pos_125)))"
-"(let-values(((result_131)"
+"(if(unsafe-fx< pos_99 len_37)"
+"(let-values(((c_52)(unsafe-bytes-ref vec_70 pos_99)))"
+"(let-values(((result_127)"
 "(let-values()"
-"(let-values(((result_132)"
+"(let-values(((result_128)"
 "(let-values()"
-"(let-values()(not(eq? c_76 0))))))"
-"(values result_132)))))"
-"(if(if(not((lambda x_96 result_131) c_76))(not #f) #f)"
-"(for-loop_232 result_131(unsafe-fx+ 1 pos_125))"
-" result_131)))"
-" result_130)))))"
-" for-loop_232)"
+"(let-values()(not(eq? c_52 0))))))"
+"(values result_128)))))"
+"(if(if(not((lambda x_100 result_127) c_52))(not #f) #f)"
+"(for-loop_234 result_127(unsafe-fx+ 1 pos_99))"
+" result_127)))"
+" result_126)))))"
+" for-loop_234)"
 " #f"
 " 0)))"
 " hash-code_5"
@@ -61011,38 +59445,38 @@ static const char *startup_source =
 " #f))))))"
 "(define-values"
 "(cached-bundle)"
-"(lambda(i_93)"
+"(lambda(i_94)"
 "(begin"
-"(let-values(((c3_10)(module-cache-ref(make-module-cache-key(linklet-bundle-hash-code i_93)))))"
+"(let-values(((c3_10)(module-cache-ref(make-module-cache-key(linklet-bundle-hash-code i_94)))))"
 "(if c3_10"
 "((lambda(declare-module_0)(lambda()(declare-module_0(1/current-namespace)))) c3_10)"
 "(let-values() #f))))))"
 "(define-values"
 "(read-number)"
-"(lambda(i_60)"
+"(lambda(i_62)"
 "(begin"
 "(let-values(((read-byte/not-eof_0)"
-"(lambda(i_191)"
+"(lambda(i_185)"
 "(begin"
 " 'read-byte/not-eof"
-"(let-values(((v_187)(read-byte i_191)))(if(eof-object? v_187) 0 v_187))))))"
+"(let-values(((v_186)(read-byte i_185)))(if(eof-object? v_186) 0 v_186))))))"
 "(bitwise-ior"
-"(read-byte/not-eof_0 i_60)"
-"(arithmetic-shift(read-byte/not-eof_0 i_60) 8)"
-"(arithmetic-shift(read-byte/not-eof_0 i_60) 16)"
-"(arithmetic-shift(read-byte/not-eof_0 i_60) 24))))))"
+"(read-byte/not-eof_0 i_62)"
+"(arithmetic-shift(read-byte/not-eof_0 i_62) 8)"
+"(arithmetic-shift(read-byte/not-eof_0 i_62) 16)"
+"(arithmetic-shift(read-byte/not-eof_0 i_62) 24))))))"
 "(define-values"
 "(search-directory)"
-"(lambda(i_192 pos_117 bstr_5)"
+"(lambda(i_186 pos_124 bstr_5)"
 "(begin"
-"(if(zero? pos_117)"
+"(if(zero? pos_124)"
 "(let-values() #f)"
 "(let-values()"
-"(let-values((()(begin(file-position i_192 pos_117)(values))))"
-"(let-values(((name-len_0)(read-number i_192)))"
-"(let-values(((v_261)(read-bytes name-len_0 i_192)))"
+"(let-values((()(begin(file-position i_186 pos_124)(values))))"
+"(let-values(((name-len_0)(read-number i_186)))"
+"(let-values(((v_257)(read-bytes name-len_0 i_186)))"
 "(begin"
-"(if(if(bytes? v_261)(=(bytes-length v_261) name-len_0) #f)"
+"(if(if(bytes? v_257)(=(bytes-length v_257) name-len_0) #f)"
 "(void)"
 "(let-values()"
 "(error"
@@ -61053,24 +59487,24 @@ static const char *startup_source =
 "                        \"  at position: ~a\\n\""
 "                        \"  expected bytes: ~a\\n\""
 "                        \"  read bytes: ~e\")"
-"(object-name i_192)"
-" pos_117"
+"(object-name i_186)"
+" pos_124"
 " name-len_0"
-" v_261)))"
-"(if(bytes=? bstr_5 v_261)"
-"(let-values()(read-number i_192))"
-"(if(bytes<? bstr_5 v_261)"
+" v_257)))"
+"(if(bytes=? bstr_5 v_257)"
+"(let-values()(read-number i_186))"
+"(if(bytes<? bstr_5 v_257)"
 "(let-values()"
 "(begin"
-"(read-number i_192)"
-"(read-number i_192)"
-"(search-directory i_192(read-number i_192) bstr_5)))"
+"(read-number i_186)"
+"(read-number i_186)"
+"(search-directory i_186(read-number i_186) bstr_5)))"
 "(let-values()"
 "(begin"
-"(read-number i_192)"
-"(read-number i_192)"
-"(read-number i_192)"
-"(search-directory i_192(read-number i_192) bstr_5))))))))))))))"
+"(read-number i_186)"
+"(read-number i_186)"
+"(read-number i_186)"
+"(search-directory i_186(read-number i_186) bstr_5))))))))))))))"
 "(define-values"
 "(encode-symbols)"
 "(lambda(expected-mod_1)"
@@ -61081,17 +59515,17 @@ static const char *startup_source =
 "(apply"
 " bytes-append"
 "(reverse$1"
-"(let-values(((lst_311)(cdr expected-mod_1)))"
+"(let-values(((lst_264)(cdr expected-mod_1)))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
-"(let-values()(check-list lst_311)))"
-"((letrec-values(((for-loop_105)"
-"(lambda(fold-var_63 lst_91)"
+"(let-values()(check-list lst_264)))"
+"((letrec-values(((for-loop_102)"
+"(lambda(fold-var_63 lst_93)"
 "(begin"
 " 'for-loop"
-"(if(pair? lst_91)"
-"(let-values(((s_187)(unsafe-car lst_91))((rest_43)(unsafe-cdr lst_91)))"
+"(if(pair? lst_93)"
+"(let-values(((s_185)(unsafe-car lst_93))((rest_44)(unsafe-cdr lst_93)))"
 "(let-values(((fold-var_65)"
 "(let-values(((fold-var_66) fold-var_63))"
 "(let-values(((fold-var_72)"
@@ -61100,30 +59534,30 @@ static const char *startup_source =
 "(let-values()"
 "(let-values(((bstr_6)"
 "(string->bytes/utf-8"
-"(symbol->string s_187))))"
-"(let-values(((len_41)"
+"(symbol->string s_185))))"
+"(let-values(((len_40)"
 "(bytes-length bstr_6)))"
-"(if(< len_41 255)"
+"(if(< len_40 255)"
 "(let-values()"
 "(bytes-append"
-"(bytes len_41)"
+"(bytes len_40)"
 " bstr_6))"
 "(let-values()"
 "(bytes-append"
 " 255"
 "(integer->integer-bytes"
-" len_41"
+" len_40"
 " 4"
 " #f"
 " #f)"
 " bstr_6))))))"
 " fold-var_66))))"
 "(values fold-var_72)))))"
-"(if(not #f)(for-loop_105 fold-var_65 rest_43) fold-var_65)))"
+"(if(not #f)(for-loop_102 fold-var_65 rest_44) fold-var_65)))"
 " fold-var_63)))))"
-" for-loop_105)"
+" for-loop_102)"
 " null"
-" lst_311))))))))))"
+" lst_264))))))))))"
 "(define-values"
 "(with-module-reading-parameterization+delay-source)"
 "(lambda(path_13 thunk_9)"
@@ -61141,29 +59575,29 @@ static const char *startup_source =
 "(call-with-input-module-file)"
 "(lambda(path_14 proc_10)"
 "(begin"
-"(let-values(((i_161) #f))"
+"(let-values(((i_160) #f))"
 "(dynamic-wind"
 "(lambda()"
-"(set! i_161(let-values(((path3_0) path_14)((temp4_7) #t))(open-input-file6.1 temp4_7 #t #f #f path3_0))))"
-"(lambda()(proc_10 i_161))"
-"(lambda()(close-input-port i_161)))))))"
+"(set! i_160(let-values(((path3_0) path_14)((temp4_7) #t))(open-input-file6.1 temp4_7 'binary path3_0))))"
+"(lambda()(proc_10 i_160))"
+"(lambda()(close-input-port i_160)))))))"
 "(define-values(dll-suffix)(system-type 'so-suffix))"
 "(define-values"
 "(default-load/use-compiled)"
 "(let-values(((resolve_0)"
-"(lambda(s_71)"
+"(lambda(s_72)"
 "(begin"
 " 'resolve"
-"(if(complete-path? s_71)"
-" s_71"
-"(let-values(((d_35)(current-load-relative-directory)))"
-"(if d_35(path->complete-path s_71 d_35) s_71)))))))"
+"(if(complete-path? s_72)"
+" s_72"
+"(let-values(((d_36)(current-load-relative-directory)))"
+"(if d_36(path->complete-path s_72 d_36) s_72)))))))"
 "(let-values(((date-of-1_0)"
 "(lambda(a_28)"
 "(begin"
 " 'date-of-1"
-"(let-values(((v_69)(file-or-directory-modify-seconds a_28 #f(lambda() #f))))"
-"(if v_69(cons a_28 v_69) #f))))))"
+"(let-values(((v_70)(file-or-directory-modify-seconds a_28 #f(lambda() #f))))"
+"(if v_70(cons a_28 v_70) #f))))))"
 "(let-values(((date-of_0)"
 "(lambda(a_35 modes_1 roots_1)"
 "(begin"
@@ -61172,22 +59606,22 @@ static const char *startup_source =
 "(lambda(root-dir_0)"
 "(ormap2"
 "(lambda(compiled-dir_0)"
-"(let-values(((a_73)(a_35 root-dir_0 compiled-dir_0)))(date-of-1_0 a_73)))"
+"(let-values(((a_71)(a_35 root-dir_0 compiled-dir_0)))(date-of-1_0 a_71)))"
 " modes_1))"
 " roots_1)))))"
 "(let-values(((date>=?_0)"
-"(lambda(modes_2 roots_2 a_74 bm_0)"
+"(lambda(modes_2 roots_2 a_72 bm_0)"
 "(begin"
 " 'date>=?"
-"(if a_74"
-"(let-values(((am_0)(date-of_0 a_74 modes_2 roots_2)))"
+"(if a_72"
+"(let-values(((am_0)(date-of_0 a_72 modes_2 roots_2)))"
 "(let-values(((or-part_28)(if(not bm_0) am_0 #f)))"
 "(if or-part_28"
 " or-part_28"
 "(if am_0(if bm_0(if(>=(cdr am_0)(cdr bm_0)) am_0 #f) #f) #f))))"
 " #f)))))"
 "(let-values(((with-dir*_0)"
-"(lambda(base_25 t_58)"
+"(lambda(base_23 t_60)"
 "(begin"
 " 'with-dir*"
 "(with-continuation-mark"
@@ -61195,8 +59629,8 @@ static const char *startup_source =
 "(extend-parameterization"
 "(continuation-mark-set-first #f parameterization-key)"
 " current-load-relative-directory"
-"(if(path? base_25) base_25(current-directory)))"
-"(let-values()(t_58)))))))"
+"(if(path? base_23) base_23(current-directory)))"
+"(let-values()(t_60)))))))"
 "(lambda(path_15 expect-module_0)"
 "(begin"
 "(let-values((()"
@@ -61207,16 +59641,16 @@ static const char *startup_source =
 "(values))))"
 "(let-values((()"
 "(begin"
-"(if(let-values(((or-part_76)(not expect-module_0)))"
-"(if or-part_76"
-" or-part_76"
-"(let-values(((or-part_77)(symbol? expect-module_0)))"
-"(if or-part_77"
-" or-part_77"
+"(if(let-values(((or-part_74)(not expect-module_0)))"
+"(if or-part_74"
+" or-part_74"
+"(let-values(((or-part_75)(symbol? expect-module_0)))"
+"(if or-part_75"
+" or-part_75"
 "(if(list? expect-module_0)"
 "(if(>(length expect-module_0) 1)"
-"(if(let-values(((or-part_78)(symbol?(car expect-module_0))))"
-"(if or-part_78 or-part_78(not(car expect-module_0))))"
+"(if(let-values(((or-part_76)(symbol?(car expect-module_0))))"
+"(if or-part_76 or-part_76(not(car expect-module_0))))"
 "(andmap2 symbol?(cdr expect-module_0))"
 " #f)"
 " #f)"
@@ -61228,12 +59662,12 @@ static const char *startup_source =
 "                                       \"(or/c #f symbol? (cons/c (or/c #f symbol?) (non-empty-listof symbol?)))\""
 " path_15)))"
 "(values))))"
-"(let-values(((name_56)(if expect-module_0(1/current-module-declare-name) #f)))"
+"(let-values(((name_55)(if expect-module_0(1/current-module-declare-name) #f)))"
 "(let-values(((ns-hts_0)"
-"(if name_56"
+"(if name_55"
 "(registry-table-ref(namespace-module-registry$1(1/current-namespace)))"
 " #f)))"
-"(let-values(((use-path/src_0)(if ns-hts_0(hash-ref(cdr ns-hts_0) name_56 #f) #f)))"
+"(let-values(((use-path/src_0)(if ns-hts_0(hash-ref(cdr ns-hts_0) name_55 #f) #f)))"
 "(if use-path/src_0"
 "(with-continuation-mark"
 " parameterization-key"
@@ -61246,41 +59680,41 @@ static const char *startup_source =
 "(caddr use-path/src_0)"
 "(lambda()((1/current-load)(car use-path/src_0) expect-module_0)))))"
 "(let-values(((orig-path_0)(resolve_0 path_15)))"
-"(let-values(((base_23 orig-file_0 dir?_7)(split-path path_15)))"
+"(let-values(((base_24 orig-file_0 dir?_7)(split-path path_15)))"
 "(let-values(((file_1 alt-file_0)"
 "(if expect-module_0"
-"(let-values(((b_93)(path->bytes orig-file_0)))"
-"(let-values(((len_38)(bytes-length b_93)))"
-"(if(if(>= len_38 4)"
-"                                                          (bytes=? #\".rkt\" (subbytes b_93 (- len_38 4)))"
+"(let-values(((b_91)(path->bytes orig-file_0)))"
+"(let-values(((len_41)(bytes-length b_91)))"
+"(if(if(>= len_41 4)"
+"                                                          (bytes=? #\".rkt\" (subbytes b_91 (- len_41 4)))"
 " #f)"
 "(let-values()"
 "(values"
 " orig-file_0"
 "(bytes->path"
-"                                                          (bytes-append (subbytes b_93 0 (- len_38 4)) #\".ss\"))))"
+"                                                          (bytes-append (subbytes b_91 0 (- len_41 4)) #\".ss\"))))"
 "(let-values()(values orig-file_0 #f)))))"
 "(values orig-file_0 #f))))"
 "(let-values(((path_16)"
-"(if(eq? file_1 orig-file_0) orig-path_0(build-path base_23 file_1))))"
+"(if(eq? file_1 orig-file_0) orig-path_0(build-path base_24 file_1))))"
 "(let-values(((alt-path_0)"
 "(if alt-file_0"
 "(if(eq? alt-file_0 orig-file_0)"
 " orig-path_0"
-"(build-path base_23 alt-file_0))"
+"(build-path base_24 alt-file_0))"
 " #f)))"
-"(let-values(((base_26)(if(eq? base_23 'relative) 'same base_23)))"
+"(let-values(((base_25)(if(eq? base_24 'relative) 'same base_24)))"
 "(let-values(((modes_3)(1/use-compiled-file-paths)))"
 "(let-values(((roots_3)(1/current-compiled-file-roots)))"
 "(let-values(((reroot_0)"
-"(lambda(p_76 d_36)"
+"(lambda(p_75 d_37)"
 "(begin"
 " 'reroot"
-"(if(eq? d_36 'same)"
-"(let-values() p_76)"
-"(if(relative-path? d_36)"
-"(let-values()(build-path p_76 d_36))"
-"(let-values()(reroot-path p_76 d_36))))))))"
+"(if(eq? d_37 'same)"
+"(let-values() p_75)"
+"(if(relative-path? d_37)"
+"(let-values()(build-path p_75 d_37))"
+"(let-values()(reroot-path p_75 d_37))))))))"
 "(let-values(((main-path-d_0)(date-of-1_0 path_16)))"
 "(let-values(((alt-path-d_0)"
 "(if alt-path_0"
@@ -61295,7 +59729,7 @@ static const char *startup_source =
 " 'get-so"
 "(lambda(root-dir_1 compiled-dir_1)"
 "(build-path"
-"(reroot_0 base_26 root-dir_1)"
+"(reroot_0 base_25 root-dir_1)"
 " compiled-dir_1"
 "                                                                         \"native\""
 "(system-library-subpath)"
@@ -61307,7 +59741,7 @@ static const char *startup_source =
 "(begin"
 " 'zo"
 "(build-path"
-"(reroot_0 base_26 root-dir_2)"
+"(reroot_0 base_25 root-dir_2)"
 " compiled-dir_2"
 "                                                                         (path-add-extension file_1 #\".zo\"))))))"
 "(let-values(((alt-zo_0)"
@@ -61315,30 +59749,30 @@ static const char *startup_source =
 "(begin"
 " 'alt-zo"
 "(build-path"
-"(reroot_0 base_26 root-dir_3)"
+"(reroot_0 base_25 root-dir_3)"
 " compiled-dir_3"
 "                                                                           (path-add-extension alt-file_0 #\".zo\"))))))"
 "(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_371) main-path-d_0))"
-"(if or-part_371"
-" or-part_371"
+"(let-values(((or-part_356) main-path-d_0))"
+"(if or-part_356"
+" or-part_356"
 "(not alt-path-d_0)))))"
 "(let-values(((try-alt?_0)"
 "(if alt-file_0"
-"(let-values(((or-part_164)"
+"(let-values(((or-part_166)"
 " alt-path-d_0))"
-"(if or-part_164"
-" or-part_164"
+"(if or-part_166"
+" or-part_166"
 "(not main-path-d_0)))"
 " #f)))"
 "(let-values(((with-dir_0)"
-"(lambda(t_59)"
+"(lambda(t_61)"
 "(begin"
 " 'with-dir"
-"(with-dir*_0 base_26 t_59)))))"
-"(let-values(((c1_34)"
+"(with-dir*_0 base_25 t_61)))))"
+"(let-values(((c1_33)"
 "(if try-main?_0"
 "(date>=?_0"
 " modes_3"
@@ -61346,7 +59780,7 @@ static const char *startup_source =
 " so_0"
 " path-d_0)"
 " #f)))"
-"(if c1_34"
+"(if c1_33"
 "((lambda(so-d_0)"
 "(with-continuation-mark"
 " parameterization-key"
@@ -61362,7 +59796,7 @@ static const char *startup_source =
 "((current-load-extension)"
 "(car so-d_0)"
 " expect-module_0))))))"
-" c1_34)"
+" c1_33)"
 "(let-values(((c2_18)"
 "(if try-alt?_0"
 "(date>=?_0"
@@ -61400,11 +59834,11 @@ static const char *startup_source =
 "((lambda(zo-d_0)"
 "(begin"
 "(register-zo-path"
-" name_56"
+" name_55"
 " ns-hts_0"
 "(car zo-d_0)"
 " #f"
-" base_26)"
+" base_25)"
 "(with-continuation-mark"
 " parameterization-key"
 "(extend-parameterization"
@@ -61432,11 +59866,11 @@ static const char *startup_source =
 "((lambda(zo-d_1)"
 "(begin"
 "(register-zo-path"
-" name_56"
+" name_55"
 " ns-hts_0"
 "(car zo-d_1)"
 " alt-path_0"
-" base_26)"
+" base_25)"
 "(with-continuation-mark"
 " parameterization-key"
 "(extend-parameterization"
@@ -61452,22 +59886,22 @@ static const char *startup_source =
 "(car zo-d_1)"
 " expect-module_0)))))))"
 " c4_3)"
-"(if(let-values(((or-part_372)"
+"(if(let-values(((or-part_368)"
 "(not"
 "(pair?"
 " expect-module_0))))"
-"(if or-part_372"
-" or-part_372"
+"(if or-part_368"
+" or-part_368"
 "(car expect-module_0)))"
 "(let-values()"
-"(let-values(((p_40)"
+"(let-values(((p_76)"
 "(if try-main?_0"
 " path_16"
 " alt-path_0)))"
 "(if(if(pair?"
 " expect-module_0)"
 "(not"
-"(file-exists? p_40))"
+"(file-exists? p_76))"
 " #f)"
 "(void)"
 "(let-values()"
@@ -61480,93 +59914,93 @@ static const char *startup_source =
 " 1/current-module-declare-source"
 "(if expect-module_0"
 "(if(not try-main?_0)"
-" p_40"
+" p_76"
 " #f)"
 " #f))"
 "(let-values()"
 "(with-dir_0"
 "(lambda()"
 "((1/current-load)"
-" p_40"
+" p_76"
 " expect-module_0)))))))))"
 "(void))))))))))))))))))))))))))))))))))))))))))))"
 "(define-values"
 "(register-zo-path)"
-"(lambda(name_77 ns-hts_1 path_17 src-path_0 base_27)"
-"(begin(if ns-hts_1(let-values()(hash-set!(cdr ns-hts_1) name_77(list path_17 src-path_0 base_27)))(void)))))"
+"(lambda(name_77 ns-hts_1 path_17 src-path_0 base_26)"
+"(begin(if ns-hts_1(let-values()(hash-set!(cdr ns-hts_1) name_77(list path_17 src-path_0 base_26)))(void)))))"
 "(define-values(default-reader-guard)(lambda(path_18)(begin path_18)))"
 "(define-values(-module-hash-table-table)(make-weak-hasheq))"
 "(define-values"
 "(registry-table-ref)"
 "(lambda(reg_0)"
-"(begin(let-values(((e_89)(hash-ref -module-hash-table-table reg_0 #f)))(if e_89(ephemeron-value e_89) #f)))))"
+"(begin(let-values(((e_87)(hash-ref -module-hash-table-table reg_0 #f)))(if e_87(ephemeron-value e_87) #f)))))"
 "(define-values"
 "(registry-table-set!)"
-"(lambda(reg_1 v_208)(begin(hash-set! -module-hash-table-table reg_1(make-ephemeron reg_1 v_208)))))"
+"(lambda(reg_1 v_205)(begin(hash-set! -module-hash-table-table reg_1(make-ephemeron reg_1 v_205)))))"
 "(define-values(CACHE-N) 512)"
 "(define-values(-path-cache)(make-vector CACHE-N #f))"
 "(define-values"
 "(path-cache-get)"
-"(lambda(p_22)"
+"(lambda(p_46)"
 "(begin"
-"(let-values(((i_28)(modulo(abs(equal-hash-code p_22)) CACHE-N)))"
-"(let-values(((w_1)(vector-ref -path-cache i_28)))"
-"(let-values(((l_85)(if w_1(weak-box-value w_1) #f)))"
-"(if l_85(let-values(((a_72)(1/assoc p_22 l_85)))(if a_72(cdr a_72) #f)) #f)))))))"
+"(let-values(((i_45)(modulo(abs(equal-hash-code p_46)) CACHE-N)))"
+"(let-values(((w_1)(vector-ref -path-cache i_45)))"
+"(let-values(((l_84)(if w_1(weak-box-value w_1) #f)))"
+"(if l_84(let-values(((a_73)(1/assoc p_46 l_84)))(if a_73(cdr a_73) #f)) #f)))))))"
 "(define-values"
 "(path-cache-set!)"
-"(lambda(p_77 v_262)"
+"(lambda(p_77 v_258)"
 "(begin"
-"(let-values(((i_193)(modulo(abs(equal-hash-code p_77)) CACHE-N)))"
-"(let-values(((w_2)(vector-ref -path-cache i_193)))"
-"(let-values(((l_72)(if w_2(weak-box-value w_2) #f)))"
+"(let-values(((i_169)(modulo(abs(equal-hash-code p_77)) CACHE-N)))"
+"(let-values(((w_2)(vector-ref -path-cache i_169)))"
+"(let-values(((l_19)(if w_2(weak-box-value w_2) #f)))"
 "(vector-set!"
 " -path-cache"
-" i_193"
+" i_169"
 "(make-weak-box"
-"(cons(cons p_77 v_262)(let-values(((or-part_36) l_72))(if or-part_36 or-part_36 null)))))))))))"
+"(cons(cons p_77 v_258)(let-values(((or-part_65) l_19))(if or-part_65 or-part_65 null)))))))))))"
 "(define-values(-loading-filename)(gensym))"
 "(define-values(-loading-prompt-tag)(make-continuation-prompt-tag 'module-loading))"
 "(define-values(-prev-relto) #f)"
 "(define-values(-prev-relto-dir) #f)"
 "(define-values"
 "(split-relative-string)"
-"(lambda(s_494 coll-mode?_0)"
+"(lambda(s_498 coll-mode?_0)"
 "(begin"
-"(let-values(((l_20)"
-"((letrec-values(((loop_122)"
-"(lambda(s_501)"
+"(let-values(((l_85)"
+"((letrec-values(((loop_118)"
+"(lambda(s_305)"
 "(begin"
 " 'loop"
-"(let-values(((len_42)(string-length s_501)))"
+"(let-values(((len_42)(string-length s_305)))"
 "((letrec-values(((iloop_2)"
 "(lambda(i_101)"
 "(begin"
 " 'iloop"
 "(if(= i_101 len_42)"
-"(let-values()(list s_501))"
-"(if(char=? '#\\/(string-ref s_501 i_101))"
+"(let-values()(list s_305))"
+"(if(char=? '#\\/(string-ref s_305 i_101))"
 "(let-values()"
 "(cons"
-"(substring s_501 0 i_101)"
-"(loop_122(substring s_501(add1 i_101)))))"
+"(substring s_305 0 i_101)"
+"(loop_118(substring s_305(add1 i_101)))))"
 "(let-values()(iloop_2(add1 i_101)))))))))"
 " iloop_2)"
 " 0))))))"
-" loop_122)"
-" s_494)))"
+" loop_118)"
+" s_498)))"
 "(if coll-mode?_0"
-" l_20"
-"((letrec-values(((loop_106)"
-"(lambda(l_83)"
+" l_85"
+"((letrec-values(((loop_101)"
+"(lambda(l_81)"
 "(begin"
 " 'loop"
-"(if(null?(cdr l_83))"
-"(values null(car l_83))"
-"(let-values(((c_115 f_42)(loop_106(cdr l_83))))"
-"(values(cons(car l_83) c_115) f_42)))))))"
-" loop_106)"
-" l_20))))))"
+"(if(null?(cdr l_81))"
+"(values null(car l_81))"
+"(let-values(((c_112 f_42)(loop_101(cdr l_81))))"
+"(values(cons(car l_81) c_112) f_42)))))))"
+" loop_101)"
+" l_85))))))"
 "(define-values"
 "(format-source-location)"
 "(lambda(stx_17)"
@@ -61597,29 +60031,29 @@ static const char *startup_source =
 "                               (1/dynamic-require '(lib \"planet/resolver.rkt\") 'planet-module-name-resolver)))))))))"
 "(letrec-values(((standard-module-name-resolver_0)"
 "(case-lambda"
-"((s_176 from-namespace_1)"
+"((s_173 from-namespace_1)"
 "(begin"
 " 'standard-module-name-resolver"
 "(begin"
-"(if(1/resolved-module-path? s_176)"
+"(if(1/resolved-module-path? s_173)"
 "(void)"
 "(let-values()"
-"                                   (raise-argument-error 'standard-module-name-resolver \"resolved-module-path?\" s_176)))"
-"(if(let-values(((or-part_131)(not from-namespace_1)))"
-"(if or-part_131 or-part_131(1/namespace? from-namespace_1)))"
+"                                   (raise-argument-error 'standard-module-name-resolver \"resolved-module-path?\" s_173)))"
+"(if(let-values(((or-part_134)(not from-namespace_1)))"
+"(if or-part_134 or-part_134(1/namespace? from-namespace_1)))"
 "(void)"
 "(let-values()"
 "(raise-argument-error"
 " 'standard-module-name-resolver"
 "                                    \"(or/c #f namespace?)\""
 " from-namespace_1)))"
-"(if planet-resolver_0(let-values()(planet-resolver_0 s_176))(void))"
+"(if planet-resolver_0(let-values()(planet-resolver_0 s_173))(void))"
 "(let-values(((hts_1)"
-"(let-values(((or-part_96)"
+"(let-values(((or-part_99)"
 "(registry-table-ref"
 "(namespace-module-registry$1(1/current-namespace)))))"
-"(if or-part_96"
-" or-part_96"
+"(if or-part_99"
+" or-part_99"
 "(let-values(((hts_2)(cons(make-hasheq)(make-hasheq))))"
 "(begin"
 "(registry-table-set!"
@@ -61627,14 +60061,14 @@ static const char *startup_source =
 " hts_2)"
 " hts_2))))))"
 "(begin"
-"(hash-set!(car hts_1) s_176 'declared)"
+"(hash-set!(car hts_1) s_173 'declared)"
 "(if from-namespace_1"
 "(let-values()"
 "(let-values(((root-name_2)"
-"(if(pair?(1/resolved-module-path-name s_176))"
+"(if(pair?(1/resolved-module-path-name s_173))"
 "(1/make-resolved-module-path"
-"(car(1/resolved-module-path-name s_176)))"
-" s_176))"
+"(car(1/resolved-module-path-name s_173)))"
+" s_173))"
 "((from-hts_0)"
 "(registry-table-ref"
 "(namespace-module-registry$1 from-namespace_1))))"
@@ -61646,18 +60080,18 @@ static const char *startup_source =
 "(void))))"
 "(void))))"
 "(void)))))))"
-"((s_502 relto_0 stx_18)"
+"((s_450 relto_0 stx_18)"
 "(begin"
 "(log-message"
 "(current-logger)"
 " 'error"
 "                              \"default module name resolver called with three arguments (deprecated)\""
 " #f)"
-"(standard-module-name-resolver_0 s_502 relto_0 stx_18 #t)))"
-"((s_503 relto_1 stx_19 load?_7)"
+"(standard-module-name-resolver_0 s_450 relto_0 stx_18 #t)))"
+"((s_499 relto_1 stx_19 load?_7)"
 "(let-values((()"
 "(begin"
-"(if(1/module-path? s_503)"
+"(if(1/module-path? s_499)"
 "(void)"
 "(let-values()"
 "(if(syntax?$1 stx_19)"
@@ -61665,12 +60099,12 @@ static const char *startup_source =
 "(raise-argument-error"
 " 'standard-module-name-resolver"
 "                                                  \"module-path?\""
-" s_503))))"
+" s_499))))"
 "(values))))"
 "(let-values((()"
 "(begin"
-"(if(let-values(((or-part_134)(not relto_1)))"
-"(if or-part_134 or-part_134(1/resolved-module-path? relto_1)))"
+"(if(let-values(((or-part_358)(not relto_1)))"
+"(if or-part_358 or-part_358(1/resolved-module-path? relto_1)))"
 "(void)"
 "(let-values()"
 "(raise-argument-error"
@@ -61680,8 +60114,8 @@ static const char *startup_source =
 "(values))))"
 "(let-values((()"
 "(begin"
-"(if(let-values(((or-part_141)(not stx_19)))"
-"(if or-part_141 or-part_141(syntax?$1 stx_19)))"
+"(if(let-values(((or-part_55)(not stx_19)))"
+"(if or-part_55 or-part_55(syntax?$1 stx_19)))"
 "(void)"
 "(let-values()"
 "(raise-argument-error"
@@ -61690,62 +60124,62 @@ static const char *startup_source =
 " stx_19)))"
 "(values))))"
 "(let-values(((flatten-sub-path_0)"
-"(lambda(base_28 orig-l_10)"
+"(lambda(base_27 orig-l_10)"
 "(begin"
 " 'flatten-sub-path"
-"((letrec-values(((loop_123)"
-"(lambda(a_75 l_34)"
+"((letrec-values(((loop_119)"
+"(lambda(a_74 l_35)"
 "(begin"
 " 'loop"
-"(if(null? l_34)"
+"(if(null? l_35)"
 "(let-values()"
-"(if(null? a_75)"
-" base_28"
-"(cons base_28(reverse$1 a_75))))"
-"                                                                           (if (equal? (car l_34) \"..\")"
+"(if(null? a_74)"
+" base_27"
+"(cons base_27(reverse$1 a_74))))"
+"                                                                           (if (equal? (car l_35) \"..\")"
 "(let-values()"
-"(if(null? a_75)"
+"(if(null? a_74)"
 "(error"
 " 'standard-module-name-resolver"
 "                                                                                  \"too many \\\"..\\\"s in submodule path: ~.s\""
 "(list*"
 " 'submod"
-"                                                                                   (if (equal? base_28 \".\")"
-" base_28"
-"(if(path? base_28)"
-" base_28"
+"                                                                                   (if (equal? base_27 \".\")"
+" base_27"
+"(if(path? base_27)"
+" base_27"
 "(list"
-"(if(symbol? base_28)"
+"(if(symbol? base_27)"
 " 'quote"
 " 'file)"
-" base_28)))"
+" base_27)))"
 " orig-l_10))"
-"(loop_123(cdr a_75)(cdr l_34))))"
+"(loop_119(cdr a_74)(cdr l_35))))"
 "(let-values()"
-"(loop_123"
-"(cons(car l_34) a_75)"
-"(cdr l_34)))))))))"
-" loop_123)"
+"(loop_119"
+"(cons(car l_35) a_74)"
+"(cdr l_35)))))))))"
+" loop_119)"
 " null"
 " orig-l_10)))))"
-"(if(if(pair? s_503)(eq?(car s_503) 'quote) #f)"
-"(let-values()(1/make-resolved-module-path(cadr s_503)))"
-"(if(if(pair? s_503)"
-"(if(eq?(car s_503) 'submod)"
-"(if(pair?(cadr s_503))(eq?(caadr s_503) 'quote) #f)"
+"(if(if(pair? s_499)(eq?(car s_499) 'quote) #f)"
+"(let-values()(1/make-resolved-module-path(cadr s_499)))"
+"(if(if(pair? s_499)"
+"(if(eq?(car s_499) 'submod)"
+"(if(pair?(cadr s_499))(eq?(caadr s_499) 'quote) #f)"
 " #f)"
 " #f)"
 "(let-values()"
-"(1/make-resolved-module-path(flatten-sub-path_0(cadadr s_503)(cddr s_503))))"
-"(if(if(pair? s_503)"
-"(if(eq?(car s_503) 'submod)"
-"                                               (if (let-values (((or-part_100) (equal? (cadr s_503) \".\")))"
-"                                                     (if or-part_100 or-part_100 (equal? (cadr s_503) \"..\")))"
+"(1/make-resolved-module-path(flatten-sub-path_0(cadadr s_499)(cddr s_499))))"
+"(if(if(pair? s_499)"
+"(if(eq?(car s_499) 'submod)"
+"                                               (if (let-values (((or-part_102) (equal? (cadr s_499) \".\")))"
+"                                                     (if or-part_102 or-part_102 (equal? (cadr s_499) \"..\")))"
 "(if relto_1"
 "(let-values(((p_78)(1/resolved-module-path-name relto_1)))"
-"(let-values(((or-part_373)(symbol? p_78)))"
-"(if or-part_373"
-" or-part_373"
+"(let-values(((or-part_369)(symbol? p_78)))"
+"(if or-part_369"
+" or-part_369"
 "(if(pair? p_78)(symbol?(car p_78)) #f))))"
 " #f)"
 " #f)"
@@ -61757,34 +60191,34 @@ static const char *startup_source =
 "(flatten-sub-path_0"
 "(if(pair? rp_0)(car rp_0) rp_0)"
 "(let-values(((r_47)"
-"                                                             (if (equal? (cadr s_503) \"..\") (cdr s_503) (cddr s_503))))"
+"                                                             (if (equal? (cadr s_499) \"..\") (cdr s_499) (cddr s_499))))"
 "(if(pair? rp_0)(append(cdr rp_0) r_47) r_47))))))"
-"(if(if(pair? s_503)(eq?(car s_503) 'planet) #f)"
+"(if(if(pair? s_499)(eq?(car s_499) 'planet) #f)"
 "(let-values()"
 "(begin"
 "(prep-planet-resolver!_0)"
-"(planet-resolver_0 s_503 relto_1 stx_19 load?_7 #f orig-paramz)))"
-"(if(if(pair? s_503)"
-"(if(eq?(car s_503) 'submod)"
-"(if(pair?(cadr s_503))(eq?(caadr s_503) 'planet) #f)"
+"(planet-resolver_0 s_499 relto_1 stx_19 load?_7 #f orig-paramz)))"
+"(if(if(pair? s_499)"
+"(if(eq?(car s_499) 'submod)"
+"(if(pair?(cadr s_499))(eq?(caadr s_499) 'planet) #f)"
 " #f)"
 " #f)"
 "(let-values()"
 "(begin"
 "(prep-planet-resolver!_0)"
 "(planet-resolver_0"
-"(cadr s_503)"
+"(cadr s_499)"
 " relto_1"
 " stx_19"
 " load?_7"
-"(cddr s_503)"
+"(cddr s_499)"
 " orig-paramz)))"
 "(let-values()"
 "(let-values(((get-dir_0)"
 "(lambda()"
 "(begin"
 " 'get-dir"
-"(let-values(((or-part_374)"
+"(let-values(((or-part_41)"
 "(if relto_1"
 "(if(eq? relto_1 -prev-relto)"
 " -prev-relto-dir"
@@ -61796,7 +60230,7 @@ static const char *startup_source =
 "(car p_79)"
 " p_79)))"
 "(if(path? p_80)"
-"(let-values(((base_29"
+"(let-values(((base_28"
 " n_36"
 " d?_0)"
 "(split-path"
@@ -61804,16 +60238,16 @@ static const char *startup_source =
 "(begin"
 "(set! -prev-relto relto_1)"
 "(set! -prev-relto-dir"
-" base_29)"
-" base_29))"
+" base_28)"
+" base_28))"
 " #f))))"
 " #f)))"
-"(if or-part_374"
-" or-part_374"
-"(let-values(((or-part_43)"
+"(if or-part_41"
+" or-part_41"
+"(let-values(((or-part_370)"
 "(current-load-relative-directory)))"
-"(if or-part_43"
-" or-part_43"
+"(if or-part_370"
+" or-part_370"
 "(current-directory))))))))"
 "((get-reg_0)"
 "(lambda()"
@@ -61826,15 +60260,15 @@ static const char *startup_source =
 " 'show-collection-err"
 "(let-values(((msg_2)"
 "(string-append"
-"(let-values(((or-part_375)"
+"(let-values(((or-part_366)"
 "(if stx_19"
 "(if(error-print-source-location)"
 "(format-source-location"
 " stx_19)"
 " #f)"
 " #f)))"
-"(if or-part_375"
-" or-part_375"
+"(if or-part_366"
+" or-part_366"
 "                                                                                    \"standard-module-name-resolver\"))"
 "                                                                                \": \""
 "(regexp-replace"
@@ -61842,109 +60276,109 @@ static const char *startup_source =
 " msg_1"
 "(format"
 "                                                                                  \"\\n  for module path: ~s\\n\""
-" s_503)))))"
+" s_499)))))"
 "(raise"
 "(if stx_19"
 "(1/make-exn:fail:syntax:missing-module"
 " msg_2"
 "(current-continuation-marks)"
 "(list stx_19)"
-" s_503)"
+" s_499)"
 "(1/make-exn:fail:filesystem:missing-module"
 " msg_2"
 "(current-continuation-marks)"
-" s_503)))))))"
+" s_499)))))))"
 "((ss->rkt_0)"
-"(lambda(s_319)"
+"(lambda(s_500)"
 "(begin"
 " 'ss->rkt"
-"(let-values(((len_43)(string-length s_319)))"
+"(let-values(((len_43)(string-length s_500)))"
 "(if(if(>= len_43 3)"
 "(if(equal?"
 " '#\\."
-"(string-ref s_319(- len_43 3)))"
+"(string-ref s_500(- len_43 3)))"
 "(if(equal?"
 " '#\\s"
-"(string-ref s_319(- len_43 2)))"
+"(string-ref s_500(- len_43 2)))"
 "(equal?"
 " '#\\s"
-"(string-ref s_319(- len_43 1)))"
+"(string-ref s_500(- len_43 1)))"
 " #f)"
 " #f)"
 " #f)"
 "(string-append"
-"(substring s_319 0(- len_43 3))"
+"(substring s_500 0(- len_43 3))"
 "                                                                      \".rkt\")"
-" s_319)))))"
+" s_500)))))"
 "((path-ss->rkt_0)"
 "(lambda(p_81)"
 "(begin"
 " 'path-ss->rkt"
-"(let-values(((base_11 name_78 dir?_8)"
+"(let-values(((base_29 name_78 dir?_8)"
 "(split-path p_81)))"
 "                                                                   (if (regexp-match '#rx\"[.]ss$\" (path->bytes name_78))"
 "                                                                     (path-replace-extension p_81 #\".rkt\")"
 " p_81)))))"
-"((s_504)"
-"(if(if(pair? s_503)(eq? 'submod(car s_503)) #f)"
-"(let-values(((v_38)(cadr s_503)))"
-"                                                                 (if (let-values (((or-part_376) (equal? v_38 \".\")))"
-"                                                                       (if or-part_376 or-part_376 (equal? v_38 \"..\")))"
+"((s_501)"
+"(if(if(pair? s_499)(eq? 'submod(car s_499)) #f)"
+"(let-values(((v_259)(cadr s_499)))"
+"                                                                 (if (let-values (((or-part_371) (equal? v_259 \".\")))"
+"                                                                       (if or-part_371 or-part_371 (equal? v_259 \"..\")))"
 "(if relto_1"
-"(let-values(((p_82)"
+"(let-values(((p_6)"
 "(1/resolved-module-path-name"
 " relto_1)))"
-"(if(pair? p_82)(car p_82) p_82))"
+"(if(pair? p_6)(car p_6) p_6))"
 "(error"
 " 'standard-module-name-resolver"
 "                                                                      \"no base path for relative submodule path: ~.s\""
-" s_503))"
-" v_38))"
-" s_503))"
+" s_499))"
+" v_259))"
+" s_499))"
 "((subm-path_0)"
-"(if(if(pair? s_503)(eq? 'submod(car s_503)) #f)"
-"(let-values(((p_83)"
-"(if(if(let-values(((or-part_166)"
+"(if(if(pair? s_499)(eq? 'submod(car s_499)) #f)"
+"(let-values(((p_82)"
+"(if(if(let-values(((or-part_168)"
 "(equal?"
-"(cadr s_503)"
+"(cadr s_499)"
 "                                                                                                    \".\")))"
-"(if or-part_166"
-" or-part_166"
-"                                                                                         (equal? (cadr s_503) \"..\")))"
+"(if or-part_168"
+" or-part_168"
+"                                                                                         (equal? (cadr s_499) \"..\")))"
 " relto_1"
 " #f)"
-"(let-values(((p_84)"
+"(let-values(((p_83)"
 "(1/resolved-module-path-name"
 " relto_1))"
-"((r_27)"
+"((r_48)"
 "(if(equal?"
-"(cadr s_503)"
+"(cadr s_499)"
 "                                                                                                  \"..\")"
-"(cdr s_503)"
-"(cddr s_503))))"
-"(if(pair? p_84)"
+"(cdr s_499)"
+"(cddr s_499))))"
+"(if(pair? p_83)"
 "(flatten-sub-path_0"
-"(car p_84)"
-"(append(cdr p_84) r_27))"
-"(flatten-sub-path_0 p_84 r_27)))"
+"(car p_83)"
+"(append(cdr p_83) r_48))"
+"(flatten-sub-path_0 p_83 r_48)))"
 "(flatten-sub-path_0"
 "                                                                                \".\""
-"                                                                                (if (equal? (cadr s_503) \"..\")"
-"(cdr s_503)"
-"(cddr s_503))))))"
-"(if(pair? p_83)(cdr p_83) #f))"
+"                                                                                (if (equal? (cadr s_499) \"..\")"
+"(cdr s_499)"
+"(cddr s_499))))))"
+"(if(pair? p_82)(cdr p_82) #f))"
 " #f)))"
 "(let-values(((s-parsed_0)"
-"(if(symbol? s_504)"
+"(if(symbol? s_501)"
 "(let-values()"
-"(let-values(((or-part_170)"
+"(let-values(((or-part_46)"
 "(path-cache-get"
-"(cons s_504(get-reg_0)))))"
-"(if or-part_170"
-" or-part_170"
+"(cons s_501(get-reg_0)))))"
+"(if or-part_46"
+" or-part_46"
 "(let-values(((cols_0 file_3)"
 "(split-relative-string"
-"(symbol->string s_504)"
+"(symbol->string s_501)"
 " #f)))"
 "(let-values(((f-file_0)"
 "(if(null? cols_0)"
@@ -61958,17 +60392,17 @@ static const char *startup_source =
 "(if(null? cols_0) null(cdr cols_0))"
 " f-file_0"
 " #t))))))"
-"(if(string? s_504)"
+"(if(string? s_501)"
 "(let-values()"
 "(let-values(((dir_4)(get-dir_0)))"
-"(let-values(((or-part_377)"
+"(let-values(((or-part_372)"
 "(path-cache-get"
-"(cons s_504 dir_4))))"
-"(if or-part_377"
-" or-part_377"
+"(cons s_501 dir_4))))"
+"(if or-part_372"
+" or-part_372"
 "(let-values(((cols_1 file_4)"
 "(split-relative-string"
-" s_504"
+" s_501"
 " #f)))"
 "(if(null? cols_1)"
 "(build-path dir_4(ss->rkt_0 file_4))"
@@ -61985,26 +60419,26 @@ static const char *startup_source =
 "(let-values() s_56))))"
 " cols_1)"
 "(list(ss->rkt_0 file_4))))))))))"
-"(if(path? s_504)"
+"(if(path? s_501)"
 "(let-values()"
 "(path-ss->rkt_0"
 "(simplify-path"
-"(if(complete-path? s_504)"
-" s_504"
-"(path->complete-path s_504(get-dir_0))))))"
-"(if(eq?(car s_504) 'lib)"
+"(if(complete-path? s_501)"
+" s_501"
+"(path->complete-path s_501(get-dir_0))))))"
+"(if(eq?(car s_501) 'lib)"
 "(let-values()"
-"(let-values(((or-part_88)"
+"(let-values(((or-part_85)"
 "(path-cache-get"
-"(cons s_504(get-reg_0)))))"
-"(if or-part_88"
-" or-part_88"
+"(cons s_501(get-reg_0)))))"
+"(if or-part_85"
+" or-part_85"
 "(let-values(((cols_2 file_5)"
 "(split-relative-string"
-"(cadr s_504)"
+"(cadr s_501)"
 " #f)))"
 "(let-values(((old-style?_0)"
-"(if(null?(cddr s_504))"
+"(if(null?(cddr s_501))"
 "(if(null? cols_2)"
 "(regexp-match?"
 "                                                                                                  '#rx\"[.]\""
@@ -62027,16 +60461,16 @@ static const char *startup_source =
 "(if old-style?_0"
 "(append"
 "(if(null?"
-"(cddr s_504))"
+"(cddr s_501))"
 "                                                                                                      '(\"mzlib\")"
 "(apply"
 " append"
 "(map2"
-"(lambda(p_85)"
+"(lambda(p_2)"
 "(split-relative-string"
-" p_85"
+" p_2"
 " #t))"
-"(cddr s_504))))"
+"(cddr s_501))))"
 " cols_2)"
 "(if(null? cols_2)"
 "(list file_5)"
@@ -62047,17 +60481,17 @@ static const char *startup_source =
 "(cdr cols_3)"
 " f-file_1"
 " #t))))))))"
-"(if(eq?(car s_504) 'file)"
+"(if(eq?(car s_501) 'file)"
 "(let-values()"
 "(path-ss->rkt_0"
 "(simplify-path"
 "(path->complete-path"
-"(expand-user-path(cadr s_504))"
+"(expand-user-path(cadr s_501))"
 "(get-dir_0)))))"
 "(void))))))))"
 "(begin"
-"(if(let-values(((or-part_378)(path? s-parsed_0)))"
-"(if or-part_378 or-part_378(vector? s-parsed_0)))"
+"(if(let-values(((or-part_132)(path? s-parsed_0)))"
+"(if or-part_132 or-part_132(vector? s-parsed_0)))"
 "(void)"
 "(let-values()"
 "(if stx_19"
@@ -62070,7 +60504,7 @@ static const char *startup_source =
 "(raise-argument-error"
 " 'standard-module-name-resolver"
 "                                                            \"module-path?\""
-" s_504))))"
+" s_501))))"
 "(let-values(((filename_2)"
 "(if(vector? s-parsed_0)"
 "(vector-ref s-parsed_0 0)"
@@ -62079,7 +60513,7 @@ static const char *startup_source =
 "(if(vector? s-parsed_0)"
 "(vector-ref s-parsed_0 1)"
 "(normal-case-path filename_2))))"
-"(let-values(((base_30 name_19 dir?_9)"
+"(let-values(((base_30 name_79 dir?_9)"
 "(if(vector? s-parsed_0)"
 "(values"
 " 'ignored"
@@ -62089,17 +60523,17 @@ static const char *startup_source =
 "(let-values(((no-sfx_0)"
 "(if(vector? s-parsed_0)"
 "(vector-ref s-parsed_0 3)"
-"                                                                           (path-replace-extension name_19 #\"\"))))"
+"                                                                           (path-replace-extension name_79 #\"\"))))"
 "(let-values(((root-modname_0)"
 "(if(vector? s-parsed_0)"
 "(vector-ref s-parsed_0 4)"
 "(1/make-resolved-module-path filename_2))))"
 "(let-values(((hts_3)"
-"(let-values(((or-part_128)"
+"(let-values(((or-part_373)"
 "(registry-table-ref"
 "(get-reg_0))))"
-"(if or-part_128"
-" or-part_128"
+"(if or-part_373"
+" or-part_373"
 "(let-values(((hts_4)"
 "(cons"
 "(make-hasheq)"
@@ -62142,11 +60576,11 @@ static const char *startup_source =
 "((nsr_0)(get-reg_0)))"
 "(begin"
 "(for-each2"
-"(lambda(s_414)"
+"(lambda(s_60)"
 "(if(if(equal?"
-"(cdr s_414)"
+"(cdr s_60)"
 " normal-filename_0)"
-"(eq?(car s_414) nsr_0)"
+"(eq?(car s_60) nsr_0)"
 " #f)"
 "(let-values()"
 "(error"
@@ -62177,9 +60611,9 @@ static const char *startup_source =
 "((if(continuation-prompt-available?"
 " -loading-prompt-tag)"
 "(lambda(f_43)(f_43))"
-"(lambda(f_26)"
+"(lambda(f_44)"
 "(call-with-continuation-prompt"
-" f_26"
+" f_44"
 " -loading-prompt-tag)))"
 "(lambda()"
 "(with-continuation-mark"
@@ -62197,34 +60631,34 @@ static const char *startup_source =
 " root-modname_0"
 " 1/current-module-path-for-load"
 "((if stx_19"
-"(lambda(p_86)"
+"(lambda(p_84)"
 "(1/datum->syntax"
 " #f"
-" p_86"
+" p_84"
 " stx_19))"
 " values)"
-"(if(symbol? s_504)"
-"(let-values() s_504)"
-"(if(if(pair? s_504)"
-"(eq?(car s_504) 'lib)"
+"(if(symbol? s_501)"
+"(let-values() s_501)"
+"(if(if(pair? s_501)"
+"(eq?(car s_501) 'lib)"
 " #f)"
-"(let-values() s_504)"
+"(let-values() s_501)"
 "(let-values()"
 "(if(1/resolved-module-path?"
 " root-modname_0)"
-"(let-values(((src_8)"
+"(let-values(((src_9)"
 "(1/resolved-module-path-name"
 " root-modname_0)))"
-"(if(symbol? src_8)"
+"(if(symbol? src_9)"
 "(list"
 " 'quote"
-" src_8)"
-" src_8))"
+" src_9)"
+" src_9))"
 " root-modname_0))))))"
 "(let-values()"
 "((1/current-load/use-compiled)"
 " filename_2"
-"(let-values(((sym_105)"
+"(let-values(((sym_75)"
 "(string->symbol"
 "(path->string"
 " no-sfx_0))))"
@@ -62235,34 +60669,34 @@ static const char *startup_source =
 " #f)"
 "(cons #f subm-path_0)"
 "(cons"
-" sym_105"
+" sym_75"
 " subm-path_0))"
-" sym_105))))))))))))))"
+" sym_75))))))))))))))"
 "(void))"
 "(if(if(not(vector? s-parsed_0))"
 "(if load?_7"
-"(let-values(((or-part_379)"
-"(string? s_504)))"
-"(if or-part_379"
-" or-part_379"
-"(let-values(((or-part_52)"
-"(symbol? s_504)))"
-"(if or-part_52"
-" or-part_52"
-"(if(pair? s_504)"
-"(eq?(car s_504) 'lib)"
+"(let-values(((or-part_374)"
+"(string? s_501)))"
+"(if or-part_374"
+" or-part_374"
+"(let-values(((or-part_375)"
+"(symbol? s_501)))"
+"(if or-part_375"
+" or-part_375"
+"(if(pair? s_501)"
+"(eq?(car s_501) 'lib)"
 " #f)))))"
 " #f)"
 " #f)"
 "(let-values()"
 "(path-cache-set!"
-"(if(string? s_504)"
-"(cons s_504(get-dir_0))"
-"(cons s_504(get-reg_0)))"
+"(if(string? s_501)"
+"(cons s_501(get-dir_0))"
+"(cons s_501(get-reg_0)))"
 "(vector"
 " filename_2"
 " normal-filename_0"
-" name_19"
+" name_79"
 " no-sfx_0"
 " root-modname_0)))"
 "(void))"
@@ -62270,30 +60704,30 @@ static const char *startup_source =
 " standard-module-name-resolver_0)))))"
 "(define-values"
 "(default-eval-handler)"
-"(lambda(s_505)"
+"(lambda(s_36)"
 "(begin"
 "(1/eval"
-" s_505"
+" s_36"
 "(1/current-namespace)"
-"(let-values(((c_116)(1/current-compile)))"
-"(lambda(e_90 ns_16)"
-"(if(eq? ns_16(1/current-namespace))"
-"(c_116 e_90 #t)"
+"(let-values(((c_113)(1/current-compile)))"
+"(lambda(e_88 ns_17)"
+"(if(eq? ns_17(1/current-namespace))"
+"(c_113 e_88 #t)"
 "(with-continuation-mark"
 " parameterization-key"
-"(extend-parameterization(continuation-mark-set-first #f parameterization-key) 1/current-namespace ns_16)"
-"(let-values()(c_116 e_90 #t))))))))))"
+"(extend-parameterization(continuation-mark-set-first #f parameterization-key) 1/current-namespace ns_17)"
+"(let-values()(c_113 e_88 #t))))))))))"
 "(define-values"
 "(default-compile-handler)"
-"(lambda(s_205 immediate-eval?_0)(begin(1/compile s_205(1/current-namespace)(not immediate-eval?_0)))))"
+"(lambda(s_502 immediate-eval?_0)(begin(1/compile s_502(1/current-namespace)(not immediate-eval?_0)))))"
 "(define-values"
 "(default-read-interaction)"
-"(lambda(src_9 in_0)"
+"(lambda(src_10 in_90)"
 "(begin"
 "(begin"
-"(if(input-port? in_0)"
+"(if(input-port? in_90)"
 "(void)"
-"          (let-values () (raise-argument-error 'default-read-interaction \"input-port?\" in_0)))"
+"          (let-values () (raise-argument-error 'default-read-interaction \"input-port?\" in_90)))"
 "(with-continuation-mark"
 " parameterization-key"
 "(extend-parameterization"
@@ -62302,7 +60736,7 @@ static const char *startup_source =
 " #t"
 " 1/read-accept-lang"
 " #f)"
-"(let-values()(1/read-syntax src_9 in_0)))))))"
+"(let-values()(1/read-syntax src_10 in_90)))))))"
 "(define-values"
 "(boot)"
 "(lambda()"
@@ -62325,98 +60759,98 @@ static const char *startup_source =
 "(hash 'boot boot 'seal seal 'get-original-parameterization get-original-parameterization))"
 "(define-values"
 "(prepare-next-phase-namespace)"
-"(lambda(ctx_75)"
+"(lambda(ctx_74)"
 "(begin"
-"(let-values(((phase_45)(add1(expand-context-phase ctx_75))))"
-"(let-values(((ns_59)(namespace->namespace-at-phase(expand-context-namespace ctx_75) phase_45)))"
-"(namespace-visit-available-modules! ns_59 phase_45))))))"
+"(let-values(((phase_42)(add1(expand-context-phase ctx_74))))"
+"(let-values(((ns_59)(namespace->namespace-at-phase(expand-context-namespace ctx_74) phase_42)))"
+"(namespace-visit-available-modules! ns_59 phase_42))))))"
 "(define-values"
 "(expand-body7.1)"
-"(lambda(source1_0 stratified?2_0 stratified?4_0 bodys5_0 ctx6_0)"
+"(lambda(source1_0 stratified?2_0 bodys5_0 ctx6_0)"
 "(begin"
 " 'expand-body7"
 "(let-values(((bodys_7) bodys5_0))"
-"(let-values(((ctx_76) ctx6_0))"
-"(let-values(((s_182) source1_0))"
-"(let-values(((stratified?_0)(if stratified?4_0 stratified?2_0 #f)))"
+"(let-values(((ctx_75) ctx6_0))"
+"(let-values(((s_490) source1_0))"
+"(let-values(((stratified?_0) stratified?2_0))"
 "(let-values()"
 "(let-values((()"
 "(begin"
-"(let-values(((obs_67)(expand-context-observer ctx_76)))"
-"(if obs_67"
+"(let-values(((obs_65)(expand-context-observer ctx_75)))"
+"(if obs_65"
 "(let-values()"
 "(let-values()"
-"(call-expand-observe obs_67 'enter-block(datum->syntax$1 #f bodys_7))))"
+"(call-expand-observe obs_65 'enter-block(datum->syntax$1 #f bodys_7))))"
 "(void)))"
 "(values))))"
 "(let-values(((inside-sc_0)(new-scope 'intdef)))"
 "(let-values(((init-bodys_0)"
 "(reverse$1"
-"(let-values(((lst_266) bodys_7))"
+"(let-values(((lst_22) bodys_7))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
-"(let-values()(check-list lst_266)))"
-"((letrec-values(((for-loop_287)"
-"(lambda(fold-var_70 lst_102)"
+"(let-values()(check-list lst_22)))"
+"((letrec-values(((for-loop_20)"
+"(lambda(fold-var_9 lst_23)"
 "(begin"
 " 'for-loop"
-"(if(pair? lst_102)"
-"(let-values(((body_11)(unsafe-car lst_102))"
-"((rest_140)(unsafe-cdr lst_102)))"
-"(let-values(((fold-var_11)"
-"(let-values(((fold-var_12) fold-var_70))"
-"(let-values(((fold-var_215)"
+"(if(pair? lst_23)"
+"(let-values(((body_9)(unsafe-car lst_23))"
+"((rest_8)(unsafe-cdr lst_23)))"
+"(let-values(((fold-var_10)"
+"(let-values(((fold-var_11) fold-var_9))"
+"(let-values(((fold-var_12)"
 "(let-values()"
 "(cons"
 "(let-values()"
 "(add-scope"
-" body_11"
+" body_9"
 " inside-sc_0))"
-" fold-var_12))))"
-"(values fold-var_215)))))"
+" fold-var_11))))"
+"(values fold-var_12)))))"
 "(if(not #f)"
-"(for-loop_287 fold-var_11 rest_140)"
-" fold-var_11)))"
-" fold-var_70)))))"
-" for-loop_287)"
+"(for-loop_20 fold-var_10 rest_8)"
+" fold-var_10)))"
+" fold-var_9)))))"
+" for-loop_20)"
 " null"
-" lst_266))))))"
+" lst_22))))))"
 "(let-values((()"
 "(begin"
-"(let-values(((obs_68)(expand-context-observer ctx_76)))"
-"(if obs_68"
+"(let-values(((obs_66)(expand-context-observer ctx_75)))"
+"(if obs_66"
 "(let-values()"
 "(let-values()"
 "(call-expand-observe"
-" obs_68"
+" obs_66"
 " 'block-renames"
 "(datum->syntax$1 #f init-bodys_0)"
 "(datum->syntax$1 #f bodys_7))))"
 "(void)))"
 "(values))))"
-"(let-values(((phase_143)(expand-context-phase ctx_76)))"
-"(let-values(((frame-id_2)(make-reference-record)))"
+"(let-values(((phase_136)(expand-context-phase ctx_75)))"
+"(let-values(((frame-id_7)(make-reference-record)))"
 "(let-values(((def-ctx-scopes_6)(box null)))"
 "(let-values(((body-ctx_0)"
-"(let-values(((v_263) ctx_76))"
-"(let-values(((the-struct_89) v_263))"
+"(let-values(((v_260) ctx_75))"
+"(let-values(((the-struct_89) v_260))"
 "(if(expand-context/outer? the-struct_89)"
 "(let-values(((context51_0)(list(make-liberal-define-context)))"
-"((name52_1) #f)"
+"((name52_0) #f)"
 "((only-immediate?53_0) #t)"
 "((def-ctx-scopes54_0) def-ctx-scopes_6)"
 "((post-expansion-scope55_0) inside-sc_0)"
 "((post-expansion-scope-action56_0) add-scope)"
-"((scopes57_0)"
-"(cons inside-sc_0(expand-context-scopes ctx_76)))"
+"((scopes57_1)"
+"(cons inside-sc_0(expand-context-scopes ctx_75)))"
 "((use-site-scopes58_0)(box null))"
-"((frame-id59_0) frame-id_2)"
+"((frame-id59_0) frame-id_7)"
 "((reference-records60_0)"
 "(cons"
-" frame-id_2"
-"(expand-context-reference-records ctx_76)))"
-"((inner61_0)(root-expand-context/outer-inner v_263)))"
+" frame-id_7"
+"(expand-context-reference-records ctx_75)))"
+"((inner61_0)(root-expand-context/outer-inner v_260)))"
 "(expand-context/outer1.1"
 " inner61_0"
 " post-expansion-scope55_0"
@@ -62425,29 +60859,29 @@ static const char *startup_source =
 " context51_0"
 "(expand-context/outer-env the-struct_89)"
 " post-expansion-scope-action56_0"
-" scopes57_0"
+" scopes57_1"
 " def-ctx-scopes54_0"
 "(expand-context/outer-binding-layer the-struct_89)"
 " reference-records60_0"
 " only-immediate?53_0"
 "(expand-context/outer-need-eventually-defined the-struct_89)"
 "(expand-context/outer-current-introduction-scopes the-struct_89)"
-" name52_1))"
+" name52_0))"
 "(raise-argument-error"
 " 'struct-copy"
 "                                                   \"expand-context/outer?\""
 " the-struct_89))))))"
 "(let-values(((maybe-increment-binding-layer_0)"
-"(lambda(ids_29 body-ctx_1)"
+"(lambda(ids_30 body-ctx_1)"
 "(begin"
 " 'maybe-increment-binding-layer"
 "(if(eq?"
 "(expand-context-binding-layer body-ctx_1)"
-"(expand-context-binding-layer ctx_76))"
-"(increment-binding-layer ids_29 body-ctx_1 inside-sc_0)"
+"(expand-context-binding-layer ctx_75))"
+"(increment-binding-layer ids_30 body-ctx_1 inside-sc_0)"
 "(expand-context-binding-layer body-ctx_1))))))"
-"(let-values(((name_79)(expand-context-name ctx_76)))"
-"((letrec-values(((loop_40)"
+"(let-values(((name_80)(expand-context-name ctx_75)))"
+"((letrec-values(((loop_120)"
 "(lambda(body-ctx_2"
 " bodys_8"
 " done-bodys_0"
@@ -62463,20 +60897,20 @@ static const char *startup_source =
 "(if(null? bodys_8)"
 "(let-values()"
 "(let-values(((body-ctx62_0) body-ctx_2)"
-"((frame-id63_0) frame-id_2)"
+"((frame-id63_0) frame-id_7)"
 "((def-ctx-scopes64_0) def-ctx-scopes_6)"
 "((temp65_5)(reverse$1 val-idss_0))"
-"((temp66_6)(reverse$1 val-keyss_0))"
-"((temp67_2)(reverse$1 val-rhss_0))"
-"((temp68_4)(reverse$1 track-stxs_0))"
-"((temp69_3)(reverse$1 stx-clauses_0))"
-"((temp70_4)(reverse$1 done-bodys_0))"
-"((s71_0) s_182)"
+"((temp66_5)(reverse$1 val-keyss_0))"
+"((temp67_5)(reverse$1 val-rhss_0))"
+"((temp68_6)(reverse$1 track-stxs_0))"
+"((temp69_4)(reverse$1 stx-clauses_0))"
+"((temp70_5)(reverse$1 done-bodys_0))"
+"((s71_0) s_490)"
 "((stratified?72_0) stratified?_0)"
-"((name73_0) name_79)"
-"((temp74_1)(reverse$1 trans-idss_1)))"
+"((name73_0) name_80)"
+"((temp74_4)(reverse$1 trans-idss_1)))"
 "(finish-expanding-body27.1"
-" temp74_1"
+" temp74_4"
 " name73_0"
 " s71_0"
 " stratified?72_0"
@@ -62484,44 +60918,44 @@ static const char *startup_source =
 " frame-id63_0"
 " def-ctx-scopes64_0"
 " temp65_5"
-" temp66_6"
-" temp67_2"
-" temp68_4"
-" temp69_3"
-" temp70_4)))"
+" temp66_5"
+" temp67_5"
+" temp68_6"
+" temp69_4"
+" temp70_5)))"
 "(let-values()"
 "(let-values(((rest-bodys_0)(cdr bodys_8)))"
 "(let-values((()"
 "(begin"
-"(let-values(((obs_3)"
+"(let-values(((obs_67)"
 "(expand-context-observer"
 " body-ctx_2)))"
-"(if obs_3"
+"(if obs_67"
 "(let-values()"
 "(let-values()"
 "(call-expand-observe"
-" obs_3"
+" obs_67"
 " 'next)))"
 "(void)))"
 "(values))))"
 "(let-values(((exp-body_0)"
-"(let-values(((temp75_4)(car bodys_8))"
-"((temp76_2)"
-"(if(if name_79"
+"(let-values(((temp75_5)(car bodys_8))"
+"((temp76_5)"
+"(if(if name_80"
 "(null?"
 "(cdr bodys_8))"
 " #f)"
-"(let-values(((v_236)"
+"(let-values(((v_261)"
 " body-ctx_2))"
 "(let-values(((the-struct_90)"
-" v_236))"
+" v_261))"
 "(if(expand-context/outer?"
 " the-struct_90)"
 "(let-values(((name77_0)"
-" name_79)"
+" name_80)"
 "((inner78_0)"
 "(root-expand-context/outer-inner"
-" v_236)))"
+" v_261)))"
 "(expand-context/outer1.1"
 " inner78_0"
 "(root-expand-context/outer-post-expansion-scope"
@@ -62560,74 +60994,71 @@ static const char *startup_source =
 " #f"
 " #f"
 " #f"
-" #f"
-" #f"
-" #f"
-" temp75_4"
-" temp76_2))))"
+" temp75_5"
+" temp76_5))))"
 "(let-values(((disarmed-exp-body_0)"
 "(syntax-disarm$1 exp-body_0)))"
-"(let-values(((tmp_62)"
+"(let-values(((tmp_63)"
 "(core-form-sym"
 " disarmed-exp-body_0"
-" phase_143)))"
-"(if(equal? tmp_62 'begin)"
+" phase_136)))"
+"(if(equal? tmp_63 'begin)"
 "(let-values()"
 "(let-values((()"
 "(begin"
-"(let-values(((obs_69)"
+"(let-values(((obs_68)"
 "(expand-context-observer"
 " body-ctx_2)))"
-"(if obs_69"
+"(if obs_68"
 "(let-values()"
 "(let-values()"
 "(call-expand-observe"
-" obs_69"
+" obs_68"
 " 'prim-begin)))"
 "(void)))"
 "(values))))"
-"(let-values(((ok?_33 begin79_0 e80_0)"
-"(let-values(((s_45)"
+"(let-values(((ok?_34 begin79_0 e80_0)"
+"(let-values(((s_503)"
 " disarmed-exp-body_0))"
 "(let-values(((orig-s_38)"
-" s_45))"
+" s_503))"
 "(let-values(((begin79_1"
 " e80_1)"
-"(let-values(((s_426)"
+"(let-values(((s_504)"
 "(if(syntax?$1"
-" s_45)"
+" s_503)"
 "(syntax-e$1"
-" s_45)"
-" s_45)))"
+" s_503)"
+" s_503)))"
 "(if(pair?"
-" s_426)"
+" s_504)"
 "(let-values(((begin81_0)"
-"(let-values(((s_502)"
+"(let-values(((s_176)"
 "(car"
-" s_426)))"
-" s_502))"
+" s_504)))"
+" s_176))"
 "((e82_0)"
-"(let-values(((s_46)"
+"(let-values(((s_450)"
 "(cdr"
-" s_426)))"
-"(let-values(((s_506)"
+" s_504)))"
+"(let-values(((s_46)"
 "(if(syntax?$1"
-" s_46)"
+" s_450)"
 "(syntax-e$1"
-" s_46)"
-" s_46)))"
-"(let-values(((flat-s_24)"
+" s_450)"
+" s_450)))"
+"(let-values(((flat-s_25)"
 "(to-syntax-list.1"
-" s_506)))"
+" s_46)))"
 "(if(not"
-" flat-s_24)"
+" flat-s_25)"
 "(let-values()"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                           \"bad syntax\""
 " orig-s_38))"
 "(let-values()"
-" flat-s_24)))))))"
+" flat-s_25)))))))"
 "(values"
 " begin81_0"
 " e82_0))"
@@ -62640,29 +61071,29 @@ static const char *startup_source =
 " begin79_1"
 " e80_1))))))"
 "(let-values(((track_0)"
-"(lambda(e_91)"
+"(lambda(e_89)"
 "(begin"
 " 'track"
 "(syntax-track-origin$1"
-" e_91"
+" e_89"
 " exp-body_0)))))"
 "(let-values(((splice-bodys_0)"
 "(append"
 "(map2 track_0 e80_0)"
 " rest-bodys_0)))"
 "(begin"
-"(let-values(((obs_70)"
+"(let-values(((obs_35)"
 "(expand-context-observer"
 " body-ctx_2)))"
-"(if obs_70"
+"(if obs_35"
 "(let-values()"
 "(let-values()"
 "(call-expand-observe"
-" obs_70"
+" obs_35"
 " 'splice"
 " splice-bodys_0)))"
 "(void)))"
-"(loop_40"
+"(loop_120"
 " body-ctx_2"
 " splice-bodys_0"
 " done-bodys_0"
@@ -62673,172 +61104,172 @@ static const char *startup_source =
 " trans-idss_1"
 " stx-clauses_0"
 " dups_0)))))))"
-"(if(equal? tmp_62 'define-values)"
+"(if(equal? tmp_63 'define-values)"
 "(let-values()"
 "(let-values((()"
 "(begin"
-"(let-values(((obs_71)"
+"(let-values(((obs_69)"
 "(expand-context-observer"
 " body-ctx_2)))"
-"(if obs_71"
+"(if obs_69"
 "(let-values()"
 "(let-values()"
 "(call-expand-observe"
-" obs_71"
+" obs_69"
 " 'prim-define-values)))"
 "(void)))"
 "(values))))"
-"(let-values(((ok?_34"
+"(let-values(((ok?_35"
 " define-values83_0"
-" id84_0"
+" id84_1"
 " rhs85_0)"
-"(let-values(((s_507)"
+"(let-values(((s_32)"
 " disarmed-exp-body_0))"
 "(let-values(((orig-s_39)"
-" s_507))"
+" s_32))"
 "(let-values(((define-values83_1"
-" id84_1"
+" id84_2"
 " rhs85_1)"
-"(let-values(((s_319)"
+"(let-values(((s_51)"
+"(if(syntax?$1"
+" s_32)"
+"(syntax-e$1"
+" s_32)"
+" s_32)))"
+"(if(pair?"
+" s_51)"
+"(let-values(((define-values86_0)"
+"(let-values(((s_451)"
+"(car"
+" s_51)))"
+" s_451))"
+"((id87_0"
+" rhs88_0)"
+"(let-values(((s_505)"
+"(cdr"
+" s_51)))"
+"(let-values(((s_506)"
+"(if(syntax?$1"
+" s_505)"
+"(syntax-e$1"
+" s_505)"
+" s_505)))"
+"(if(pair?"
+" s_506)"
+"(let-values(((id89_1)"
+"(let-values(((s_507)"
+"(car"
+" s_506)))"
+"(let-values(((s_53)"
 "(if(syntax?$1"
 " s_507)"
 "(syntax-e$1"
 " s_507)"
 " s_507)))"
-"(if(pair?"
-" s_319)"
-"(let-values(((define-values86_0)"
-"(let-values(((s_508)"
-"(car"
-" s_319)))"
-" s_508))"
-"((id87_0"
-" rhs88_0)"
-"(let-values(((s_509)"
-"(cdr"
-" s_319)))"
-"(let-values(((s_52)"
-"(if(syntax?$1"
-" s_509)"
-"(syntax-e$1"
-" s_509)"
-" s_509)))"
-"(if(pair?"
-" s_52)"
-"(let-values(((id89_0)"
-"(let-values(((s_53)"
-"(car"
-" s_52)))"
-"(let-values(((s_54)"
-"(if(syntax?$1"
-" s_53)"
-"(syntax-e$1"
-" s_53)"
-" s_53)))"
-"(let-values(((flat-s_25)"
+"(let-values(((flat-s_26)"
 "(to-syntax-list.1"
-" s_54)))"
+" s_53)))"
 "(if(not"
-" flat-s_25)"
+" flat-s_26)"
 "(let-values()"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                 \"bad syntax\""
 " orig-s_39))"
 "(let-values()"
-"(let-values(((id_105)"
-"(let-values(((lst_312)"
-" flat-s_25))"
+"(let-values(((id_62)"
+"(let-values(((lst_190)"
+" flat-s_26))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
 "(#%variable-reference))"
 "(void)"
 "(let-values()"
 "(check-list"
-" lst_312)))"
-"((letrec-values(((for-loop_288)"
-"(lambda(id_17"
-" lst_313)"
+" lst_190)))"
+"((letrec-values(((for-loop_202)"
+"(lambda(id_80"
+" lst_13)"
 "(begin"
 " 'for-loop"
 "(if(pair?"
-" lst_313)"
-"(let-values(((s_93)"
+" lst_13)"
+"(let-values(((s_312)"
 "(unsafe-car"
-" lst_313))"
-"((rest_177)"
+" lst_13))"
+"((rest_104)"
 "(unsafe-cdr"
-" lst_313)))"
-"(let-values(((id_106)"
-"(let-values(((id_84)"
-" id_17))"
-"(let-values(((id_107)"
+" lst_13)))"
+"(let-values(((id_102)"
+"(let-values(((id_103)"
+" id_80))"
+"(let-values(((id_8)"
 "(let-values()"
 "(let-values(((id92_0)"
 "(let-values()"
-"(if(let-values(((or-part_88)"
+"(if(let-values(((or-part_213)"
 "(if(syntax?$1"
-" s_93)"
+" s_312)"
 "(symbol?"
 "(syntax-e$1"
-" s_93))"
+" s_312))"
 " #f)))"
-"(if or-part_88"
-" or-part_88"
+"(if or-part_213"
+" or-part_213"
 "(symbol?"
-" s_93)))"
-" s_93"
+" s_312)))"
+" s_312"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                                                                                               \"not an identifier\""
 " orig-s_39"
-" s_93)))))"
+" s_312)))))"
 "(cons"
 " id92_0"
-" id_84)))))"
+" id_103)))))"
 "(values"
-" id_107)))))"
+" id_8)))))"
 "(if(not"
 " #f)"
-"(for-loop_288"
-" id_106"
-" rest_177)"
-" id_106)))"
-" id_17)))))"
-" for-loop_288)"
+"(for-loop_202"
+" id_102"
+" rest_104)"
+" id_102)))"
+" id_80)))))"
+" for-loop_202)"
 " null"
-" lst_312)))))"
+" lst_190)))))"
 "(reverse$1"
-" id_105))))))))"
+" id_62))))))))"
 "((rhs90_0)"
-"(let-values(((s_510)"
-"(cdr"
-" s_52)))"
-"(let-values(((s_511)"
-"(if(syntax?$1"
-" s_510)"
-"(syntax-e$1"
-" s_510)"
-" s_510)))"
-"(if(pair?"
-" s_511)"
-"(let-values(((rhs91_0)"
 "(let-values(((s_33)"
-"(car"
-" s_511)))"
-" s_33))"
-"(()"
-"(let-values(((s_459)"
 "(cdr"
-" s_511)))"
-"(let-values(((s_323)"
+" s_506)))"
+"(let-values(((s_508)"
 "(if(syntax?$1"
-" s_459)"
+" s_33)"
 "(syntax-e$1"
-" s_459)"
-" s_459)))"
+" s_33)"
+" s_33)))"
+"(if(pair?"
+" s_508)"
+"(let-values(((rhs91_0)"
+"(let-values(((s_95)"
+"(car"
+" s_508)))"
+" s_95))"
+"(()"
+"(let-values(((s_57)"
+"(cdr"
+" s_508)))"
+"(let-values(((s_509)"
+"(if(syntax?$1"
+" s_57)"
+"(syntax-e$1"
+" s_57)"
+" s_57)))"
 "(if(null?"
-" s_323)"
+" s_509)"
 "(values)"
 "(raise-syntax-error$1"
 " #f"
@@ -62851,7 +61282,7 @@ static const char *startup_source =
 "                                                                                                                                                             \"bad syntax\""
 " orig-s_39))))))"
 "(values"
-" id89_0"
+" id89_1"
 " rhs90_0))"
 "(raise-syntax-error$1"
 " #f"
@@ -62868,153 +61299,149 @@ static const char *startup_source =
 "(values"
 " #t"
 " define-values83_1"
-" id84_1"
+" id84_2"
 " rhs85_1))))))"
-"(let-values(((ids_30)"
+"(let-values(((ids_31)"
 "(remove-use-site-scopes"
-" id84_0"
+" id84_1"
 " body-ctx_2)))"
 "(let-values((()"
 "(begin"
-"(let-values(((obs_63)"
+"(let-values(((obs_70)"
 "(expand-context-observer"
 " body-ctx_2)))"
-"(if obs_63"
+"(if obs_70"
 "(let-values()"
 "(let-values()"
 "(call-expand-observe"
-" obs_63"
+" obs_70"
 " 'rename-one"
 "(datum->syntax$1"
 " #f"
 "(list"
-" ids_30"
+" ids_31"
 " rhs85_0)))))"
 "(void)))"
 "(values))))"
 "(let-values(((new-dups_0)"
 "(let-values(((ids93_0)"
-" ids_30)"
-"((phase94_2)"
-" phase_143)"
+" ids_31)"
+"((phase94_1)"
+" phase_136)"
 "((exp-body95_0)"
 " exp-body_0)"
 "((dups96_0)"
 " dups_0))"
-"(check-no-duplicate-ids8.1"
-" #f"
-" #f"
+"(check-no-duplicate-ids7.1"
+" unsafe-undefined"
 " ids93_0"
-" phase94_2"
+" phase94_1"
 " exp-body95_0"
-" dups96_0"
-" #t))))"
+" dups96_0))))"
 "(let-values(((counter_5)"
 "(root-expand-context-counter"
-" ctx_76)))"
+" ctx_75)))"
 "(let-values(((keys_5)"
 "(reverse$1"
-"(let-values(((lst_295)"
-" ids_30))"
+"(let-values(((lst_306)"
+" ids_31))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
 "(#%variable-reference))"
 "(void)"
 "(let-values()"
 "(check-list"
-" lst_295)))"
-"((letrec-values(((for-loop_82)"
-"(lambda(fold-var_37"
-" lst_314)"
+" lst_306)))"
+"((letrec-values(((for-loop_281)"
+"(lambda(fold-var_185"
+" lst_307)"
 "(begin"
 " 'for-loop"
 "(if(pair?"
-" lst_314)"
-"(let-values(((id_108)"
+" lst_307)"
+"(let-values(((id_104)"
 "(unsafe-car"
-" lst_314))"
-"((rest_178)"
+" lst_307))"
+"((rest_183)"
 "(unsafe-cdr"
-" lst_314)))"
-"(let-values(((fold-var_296)"
-"(let-values(((fold-var_252)"
-" fold-var_37))"
-"(let-values(((fold-var_187)"
+" lst_307)))"
+"(let-values(((fold-var_245)"
+"(let-values(((fold-var_246)"
+" fold-var_185))"
+"(let-values(((fold-var_284)"
 "(let-values()"
 "(cons"
 "(let-values()"
 "(let-values(((id97_0)"
-" id_108)"
+" id_104)"
 "((phase98_0)"
-" phase_143)"
+" phase_136)"
 "((counter99_0)"
 " counter_5)"
 "((frame-id100_0)"
-" frame-id_2)"
+" frame-id_7)"
 "((exp-body101_0)"
 " exp-body_0))"
 "(add-local-binding!37.1"
 " frame-id100_0"
-" #t"
 " exp-body101_0"
-" #t"
 " id97_0"
 " phase98_0"
 " counter99_0)))"
-" fold-var_252))))"
+" fold-var_246))))"
 "(values"
-" fold-var_187)))))"
+" fold-var_284)))))"
 "(if(not"
 " #f)"
-"(for-loop_82"
-" fold-var_296"
-" rest_178)"
-" fold-var_296)))"
-" fold-var_37)))))"
-" for-loop_82)"
+"(for-loop_281"
+" fold-var_245"
+" rest_183)"
+" fold-var_245)))"
+" fold-var_185)))))"
+" for-loop_281)"
 " null"
-" lst_295))))))"
+" lst_306))))))"
 "(let-values(((extended-env_0)"
-"(let-values(((lst_315)"
+"(let-values(((lst_225)"
 " keys_5)"
-"((lst_230)"
-" ids_30))"
+"((lst_304)"
+" ids_31))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
 "(#%variable-reference))"
 "(void)"
 "(let-values()"
 "(check-list"
-" lst_315)))"
+" lst_225)))"
 "(if(variable-reference-from-unsafe?"
 "(#%variable-reference))"
 "(void)"
 "(let-values()"
 "(check-list"
-" lst_230)))"
-"((letrec-values(((for-loop_279)"
+" lst_304)))"
+"((letrec-values(((for-loop_277)"
 "(lambda(env_17"
-" lst_28"
-" lst_198)"
+" lst_308"
+" lst_294)"
 "(begin"
 " 'for-loop"
 "(if(if(pair?"
-" lst_28)"
+" lst_308)"
 "(pair?"
-" lst_198)"
+" lst_294)"
 " #f)"
-"(let-values(((key_90)"
+"(let-values(((key_88)"
 "(unsafe-car"
-" lst_28))"
-"((rest_179)"
+" lst_308))"
+"((rest_170)"
 "(unsafe-cdr"
-" lst_28))"
-"((id_109)"
+" lst_308))"
+"((id_105)"
 "(unsafe-car"
-" lst_198))"
-"((rest_11)"
+" lst_294))"
+"((rest_184)"
 "(unsafe-cdr"
-" lst_198)))"
+" lst_294)))"
 "(let-values(((env_18)"
 "(let-values(((env_19)"
 " env_17))"
@@ -63022,40 +61449,40 @@ static const char *startup_source =
 "(let-values()"
 "(env-extend"
 " env_19"
-" key_90"
+" key_88"
 "(local-variable1.1"
-" id_109)))))"
+" id_105)))))"
 "(values"
 " env_20)))))"
 "(if(not"
 " #f)"
-"(for-loop_279"
+"(for-loop_277"
 " env_18"
-" rest_179"
-" rest_11)"
+" rest_170"
+" rest_184)"
 " env_18)))"
 " env_17)))))"
-" for-loop_279)"
+" for-loop_277)"
 "(expand-context-env"
 " body-ctx_2)"
-" lst_315"
-" lst_230)))))"
-"(loop_40"
-"(let-values(((v_98)"
+" lst_225"
+" lst_304)))))"
+"(loop_120"
+"(let-values(((v_262)"
 " body-ctx_2))"
 "(let-values(((the-struct_91)"
-" v_98))"
+" v_262))"
 "(if(expand-context/outer?"
 " the-struct_91)"
 "(let-values(((env102_0)"
 " extended-env_0)"
 "((binding-layer103_0)"
 "(maybe-increment-binding-layer_0"
-" ids_30"
+" ids_31"
 " body-ctx_2))"
 "((inner104_0)"
 "(root-expand-context/outer-inner"
-" v_98)))"
+" v_262)))"
 "(expand-context/outer1.1"
 " inner104_0"
 "(root-expand-context/outer-post-expansion-scope"
@@ -63091,10 +61518,10 @@ static const char *startup_source =
 " rest-bodys_0"
 " null"
 "(cons"
-" ids_30"
+" ids_31"
 "(append"
 "(reverse$1"
-"(let-values(((lst_153)"
+"(let-values(((lst_309)"
 " done-bodys_0))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
@@ -63102,41 +61529,41 @@ static const char *startup_source =
 "(void)"
 "(let-values()"
 "(check-list"
-" lst_153)))"
-"((letrec-values(((for-loop_184)"
-"(lambda(fold-var_297"
-" lst_316)"
+" lst_309)))"
+"((letrec-values(((for-loop_282)"
+"(lambda(fold-var_285"
+" lst_154)"
 "(begin"
 " 'for-loop"
 "(if(pair?"
-" lst_316)"
+" lst_154)"
 "(let-values(((done-body_0)"
 "(unsafe-car"
-" lst_316))"
-"((rest_180)"
+" lst_154))"
+"((rest_79)"
 "(unsafe-cdr"
-" lst_316)))"
-"(let-values(((fold-var_298)"
-"(let-values(((fold-var_299)"
-" fold-var_297))"
-"(let-values(((fold-var_300)"
+" lst_154)))"
+"(let-values(((fold-var_286)"
+"(let-values(((fold-var_287)"
+" fold-var_285))"
+"(let-values(((fold-var_288)"
 "(let-values()"
 "(cons"
 "(let-values()"
 " null)"
-" fold-var_299))))"
+" fold-var_287))))"
 "(values"
-" fold-var_300)))))"
+" fold-var_288)))))"
 "(if(not"
 " #f)"
-"(for-loop_184"
-" fold-var_298"
-" rest_180)"
-" fold-var_298)))"
-" fold-var_297)))))"
-" for-loop_184)"
+"(for-loop_282"
+" fold-var_286"
+" rest_79)"
+" fold-var_286)))"
+" fold-var_285)))))"
+" for-loop_282)"
 " null"
-" lst_153))))"
+" lst_309))))"
 " val-idss_0))"
 "(cons"
 " keys_5"
@@ -63151,38 +61578,38 @@ static const char *startup_source =
 "(let-values()"
 "(check-list"
 " lst_310)))"
-"((letrec-values(((for-loop_289)"
-"(lambda(fold-var_301"
-" lst_317)"
+"((letrec-values(((for-loop_283)"
+"(lambda(fold-var_289"
+" lst_32)"
 "(begin"
 " 'for-loop"
 "(if(pair?"
-" lst_317)"
+" lst_32)"
 "(let-values(((done-body_1)"
 "(unsafe-car"
-" lst_317))"
-"((rest_181)"
+" lst_32))"
+"((rest_185)"
 "(unsafe-cdr"
-" lst_317)))"
-"(let-values(((fold-var_302)"
-"(let-values(((fold-var_303)"
-" fold-var_301))"
-"(let-values(((fold-var_304)"
+" lst_32)))"
+"(let-values(((fold-var_290)"
+"(let-values(((fold-var_291)"
+" fold-var_289))"
+"(let-values(((fold-var_136)"
 "(let-values()"
 "(cons"
 "(let-values()"
 " null)"
-" fold-var_303))))"
+" fold-var_291))))"
 "(values"
-" fold-var_304)))))"
+" fold-var_136)))))"
 "(if(not"
 " #f)"
-"(for-loop_289"
-" fold-var_302"
-" rest_181)"
-" fold-var_302)))"
-" fold-var_301)))))"
-" for-loop_289)"
+"(for-loop_283"
+" fold-var_290"
+" rest_185)"
+" fold-var_290)))"
+" fold-var_289)))))"
+" for-loop_283)"
 " null"
 " lst_310))))"
 " val-keyss_0))"
@@ -63190,7 +61617,7 @@ static const char *startup_source =
 " rhs85_0"
 "(append"
 "(reverse$1"
-"(let-values(((lst_73)"
+"(let-values(((lst_108)"
 " done-bodys_0))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
@@ -63198,50 +61625,50 @@ static const char *startup_source =
 "(void)"
 "(let-values()"
 "(check-list"
-" lst_73)))"
-"((letrec-values(((for-loop_125)"
-"(lambda(fold-var_305"
-" lst_318)"
+" lst_108)))"
+"((letrec-values(((for-loop_123)"
+"(lambda(fold-var_292"
+" lst_311)"
 "(begin"
 " 'for-loop"
 "(if(pair?"
-" lst_318)"
+" lst_311)"
 "(let-values(((done-body_2)"
 "(unsafe-car"
-" lst_318))"
-"((rest_182)"
+" lst_311))"
+"((rest_186)"
 "(unsafe-cdr"
-" lst_318)))"
-"(let-values(((fold-var_142)"
-"(let-values(((fold-var_306)"
-" fold-var_305))"
-"(let-values(((fold-var_307)"
+" lst_311)))"
+"(let-values(((fold-var_293)"
+"(let-values(((fold-var_294)"
+" fold-var_292))"
+"(let-values(((fold-var_39)"
 "(let-values()"
 "(cons"
 "(let-values()"
 "(no-binds"
 " done-body_2"
-" s_182"
-" phase_143))"
-" fold-var_306))))"
+" s_490"
+" phase_136))"
+" fold-var_294))))"
 "(values"
-" fold-var_307)))))"
+" fold-var_39)))))"
 "(if(not"
 " #f)"
-"(for-loop_125"
-" fold-var_142"
-" rest_182)"
-" fold-var_142)))"
-" fold-var_305)))))"
-" for-loop_125)"
+"(for-loop_123"
+" fold-var_293"
+" rest_186)"
+" fold-var_293)))"
+" fold-var_292)))))"
+" for-loop_123)"
 " null"
-" lst_73))))"
+" lst_108))))"
 " val-rhss_0))"
 "(cons"
 " exp-body_0"
 "(append"
 "(reverse$1"
-"(let-values(((lst_319)"
+"(let-values(((lst_53)"
 " done-bodys_0))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
@@ -63249,49 +61676,362 @@ static const char *startup_source =
 "(void)"
 "(let-values()"
 "(check-list"
-" lst_319)))"
-"((letrec-values(((for-loop_290)"
-"(lambda(fold-var_308"
-" lst_203)"
+" lst_53)))"
+"((letrec-values(((for-loop_284)"
+"(lambda(fold-var_295"
+" lst_312)"
 "(begin"
 " 'for-loop"
 "(if(pair?"
-" lst_203)"
+" lst_312)"
 "(let-values(((done-body_3)"
 "(unsafe-car"
-" lst_203))"
-"((rest_183)"
+" lst_312))"
+"((rest_187)"
 "(unsafe-cdr"
-" lst_203)))"
-"(let-values(((fold-var_146)"
-"(let-values(((fold-var_39)"
-" fold-var_308))"
-"(let-values(((fold-var_309)"
+" lst_312)))"
+"(let-values(((fold-var_140)"
+"(let-values(((fold-var_296)"
+" fold-var_295))"
+"(let-values(((fold-var_297)"
 "(let-values()"
 "(cons"
 "(let-values()"
 " #f)"
-" fold-var_39))))"
+" fold-var_296))))"
 "(values"
-" fold-var_309)))))"
+" fold-var_297)))))"
 "(if(not"
 " #f)"
-"(for-loop_290"
-" fold-var_146"
-" rest_183)"
-" fold-var_146)))"
-" fold-var_308)))))"
-" for-loop_290)"
+"(for-loop_284"
+" fold-var_140"
+" rest_187)"
+" fold-var_140)))"
+" fold-var_295)))))"
+" for-loop_284)"
 " null"
-" lst_319))))"
+" lst_53))))"
 " track-stxs_0))"
 " trans-idss_1"
 " stx-clauses_0"
 " new-dups_0))))))))))"
-"(if(equal? tmp_62 'define-syntaxes)"
+"(if(equal? tmp_63 'define-syntaxes)"
 "(let-values()"
 "(let-values((()"
 "(begin"
+"(let-values(((obs_15)"
+"(expand-context-observer"
+" body-ctx_2)))"
+"(if obs_15"
+"(let-values()"
+"(let-values()"
+"(call-expand-observe"
+" obs_15"
+" 'prim-define-syntaxes)))"
+"(void)))"
+"(values))))"
+"(let-values(((ok?_36"
+" define-syntaxes105_0"
+" id106_0"
+" rhs107_0)"
+"(let-values(((s_213)"
+" disarmed-exp-body_0))"
+"(let-values(((orig-s_7)"
+" s_213))"
+"(let-values(((define-syntaxes105_1"
+" id106_1"
+" rhs107_1)"
+"(let-values(((s_510)"
+"(if(syntax?$1"
+" s_213)"
+"(syntax-e$1"
+" s_213)"
+" s_213)))"
+"(if(pair?"
+" s_510)"
+"(let-values(((define-syntaxes108_0)"
+"(let-values(((s_216)"
+"(car"
+" s_510)))"
+" s_216))"
+"((id109_0"
+" rhs110_0)"
+"(let-values(((s_511)"
+"(cdr"
+" s_510)))"
+"(let-values(((s_512)"
+"(if(syntax?$1"
+" s_511)"
+"(syntax-e$1"
+" s_511)"
+" s_511)))"
+"(if(pair?"
+" s_512)"
+"(let-values(((id111_0)"
+"(let-values(((s_513)"
+"(car"
+" s_512)))"
+"(let-values(((s_514)"
+"(if(syntax?$1"
+" s_513)"
+"(syntax-e$1"
+" s_513)"
+" s_513)))"
+"(let-values(((flat-s_27)"
+"(to-syntax-list.1"
+" s_514)))"
+"(if(not"
+" flat-s_27)"
+"(let-values()"
+"(raise-syntax-error$1"
+" #f"
+"                                                                                                                                                                   \"bad syntax\""
+" orig-s_7))"
+"(let-values()"
+"(let-values(((id_106)"
+"(let-values(((lst_313)"
+" flat-s_27))"
+"(begin"
+"(if(variable-reference-from-unsafe?"
+"(#%variable-reference))"
+"(void)"
+"(let-values()"
+"(check-list"
+" lst_313)))"
+"((letrec-values(((for-loop_285)"
+"(lambda(id_107"
+" lst_314)"
+"(begin"
+" 'for-loop"
+"(if(pair?"
+" lst_314)"
+"(let-values(((s_515)"
+"(unsafe-car"
+" lst_314))"
+"((rest_188)"
+"(unsafe-cdr"
+" lst_314)))"
+"(let-values(((id_64)"
+"(let-values(((id_108)"
+" id_107))"
+"(let-values(((id_109)"
+"(let-values()"
+"(let-values(((id114_0)"
+"(let-values()"
+"(if(let-values(((or-part_133)"
+"(if(syntax?$1"
+" s_515)"
+"(symbol?"
+"(syntax-e$1"
+" s_515))"
+" #f)))"
+"(if or-part_133"
+" or-part_133"
+"(symbol?"
+" s_515)))"
+" s_515"
+"(raise-syntax-error$1"
+" #f"
+"                                                                                                                                                                                                                                                                 \"not an identifier\""
+" orig-s_7"
+" s_515)))))"
+"(cons"
+" id114_0"
+" id_108)))))"
+"(values"
+" id_109)))))"
+"(if(not"
+" #f)"
+"(for-loop_285"
+" id_64"
+" rest_188)"
+" id_64)))"
+" id_107)))))"
+" for-loop_285)"
+" null"
+" lst_313)))))"
+"(reverse$1"
+" id_106))))))))"
+"((rhs112_0)"
+"(let-values(((s_102)"
+"(cdr"
+" s_512)))"
+"(let-values(((s_103)"
+"(if(syntax?$1"
+" s_102)"
+"(syntax-e$1"
+" s_102)"
+" s_102)))"
+"(if(pair?"
+" s_103)"
+"(let-values(((rhs113_0)"
+"(let-values(((s_161)"
+"(car"
+" s_103)))"
+" s_161))"
+"(()"
+"(let-values(((s_217)"
+"(cdr"
+" s_103)))"
+"(let-values(((s_104)"
+"(if(syntax?$1"
+" s_217)"
+"(syntax-e$1"
+" s_217)"
+" s_217)))"
+"(if(null?"
+" s_104)"
+"(values)"
+"(raise-syntax-error$1"
+" #f"
+"                                                                                                                                                                                   \"bad syntax\""
+" orig-s_7))))))"
+"(values"
+" rhs113_0))"
+"(raise-syntax-error$1"
+" #f"
+"                                                                                                                                                               \"bad syntax\""
+" orig-s_7))))))"
+"(values"
+" id111_0"
+" rhs112_0))"
+"(raise-syntax-error$1"
+" #f"
+"                                                                                                                                           \"bad syntax\""
+" orig-s_7))))))"
+"(values"
+" define-syntaxes108_0"
+" id109_0"
+" rhs110_0))"
+"(raise-syntax-error$1"
+" #f"
+"                                                                                                                       \"bad syntax\""
+" orig-s_7)))))"
+"(values"
+" #t"
+" define-syntaxes105_1"
+" id106_1"
+" rhs107_1))))))"
+"(let-values(((ids_32)"
+"(remove-use-site-scopes"
+" id106_0"
+" body-ctx_2)))"
+"(let-values((()"
+"(begin"
+"(let-values(((obs_18)"
+"(expand-context-observer"
+" body-ctx_2)))"
+"(if obs_18"
+"(let-values()"
+"(let-values()"
+"(call-expand-observe"
+" obs_18"
+" 'rename-one"
+"(datum->syntax$1"
+" #f"
+"(list"
+" ids_32"
+" rhs107_0)))))"
+"(void)))"
+"(values))))"
+"(let-values(((new-dups_1)"
+"(let-values(((ids115_0)"
+" ids_32)"
+"((phase116_0)"
+" phase_136)"
+"((exp-body117_0)"
+" exp-body_0)"
+"((dups118_0)"
+" dups_0))"
+"(check-no-duplicate-ids7.1"
+" unsafe-undefined"
+" ids115_0"
+" phase116_0"
+" exp-body117_0"
+" dups118_0))))"
+"(let-values(((counter_6)"
+"(root-expand-context-counter"
+" ctx_75)))"
+"(let-values(((keys_6)"
+"(reverse$1"
+"(let-values(((lst_315)"
+" ids_32))"
+"(begin"
+"(if(variable-reference-from-unsafe?"
+"(#%variable-reference))"
+"(void)"
+"(let-values()"
+"(check-list"
+" lst_315)))"
+"((letrec-values(((for-loop_286)"
+"(lambda(fold-var_298"
+" lst_316)"
+"(begin"
+" 'for-loop"
+"(if(pair?"
+" lst_316)"
+"(let-values(((id_110)"
+"(unsafe-car"
+" lst_316))"
+"((rest_189)"
+"(unsafe-cdr"
+" lst_316)))"
+"(let-values(((fold-var_299)"
+"(let-values(((fold-var_300)"
+" fold-var_298))"
+"(let-values(((fold-var_301)"
+"(let-values()"
+"(cons"
+"(let-values()"
+"(let-values(((id119_0)"
+" id_110)"
+"((phase120_0)"
+" phase_136)"
+"((counter121_0)"
+" counter_6)"
+"((frame-id122_0)"
+" frame-id_7)"
+"((exp-body123_0)"
+" exp-body_0))"
+"(add-local-binding!37.1"
+" frame-id122_0"
+" exp-body123_0"
+" id119_0"
+" phase120_0"
+" counter121_0)))"
+" fold-var_300))))"
+"(values"
+" fold-var_301)))))"
+"(if(not"
+" #f)"
+"(for-loop_286"
+" fold-var_299"
+" rest_189)"
+" fold-var_299)))"
+" fold-var_298)))))"
+" for-loop_286)"
+" null"
+" lst_315))))))"
+"(let-values((()"
+"(begin"
+"(let-values(((obs_71)"
+"(expand-context-observer"
+" body-ctx_2)))"
+"(if obs_71"
+"(let-values()"
+"(let-values()"
+"(call-expand-observe"
+" obs_71"
+" 'prepare-env)))"
+"(void)))"
+"(values))))"
+"(let-values((()"
+"(begin"
+"(prepare-next-phase-namespace"
+" ctx_75)"
+"(values))))"
+"(let-values((()"
+"(begin"
 "(let-values(((obs_72)"
 "(expand-context-observer"
 " body-ctx_2)))"
@@ -63300,196 +62040,106 @@ static const char *startup_source =
 "(let-values()"
 "(call-expand-observe"
 " obs_72"
-" 'prim-define-syntaxes)))"
+" 'enter-bind)))"
 "(void)))"
 "(values))))"
-"(let-values(((ok?_35"
-" define-syntaxes105_0"
-" id106_0"
-" rhs107_0)"
-"(let-values(((s_162)"
-" disarmed-exp-body_0))"
-"(let-values(((orig-s_40)"
-" s_162))"
-"(let-values(((define-syntaxes105_1"
-" id106_1"
-" rhs107_1)"
-"(let-values(((s_439)"
-"(if(syntax?$1"
-" s_162)"
-"(syntax-e$1"
-" s_162)"
-" s_162)))"
-"(if(pair?"
-" s_439)"
-"(let-values(((define-syntaxes108_0)"
-"(let-values(((s_218)"
-"(car"
-" s_439)))"
-" s_218))"
-"((id109_0"
-" rhs110_0)"
-"(let-values(((s_512)"
-"(cdr"
-" s_439)))"
-"(let-values(((s_513)"
-"(if(syntax?$1"
-" s_512)"
-"(syntax-e$1"
-" s_512)"
-" s_512)))"
-"(if(pair?"
-" s_513)"
-"(let-values(((id111_0)"
-"(let-values(((s_514)"
-"(car"
-" s_513)))"
-"(let-values(((s_515)"
-"(if(syntax?$1"
-" s_514)"
-"(syntax-e$1"
-" s_514)"
-" s_514)))"
-"(let-values(((flat-s_26)"
-"(to-syntax-list.1"
-" s_515)))"
-"(if(not"
-" flat-s_26)"
-"(let-values()"
-"(raise-syntax-error$1"
-" #f"
-"                                                                                                                                                                   \"bad syntax\""
-" orig-s_40))"
-"(let-values()"
-"(let-values(((id_110)"
-"(let-values(((lst_320)"
-" flat-s_26))"
+"(let-values(((vals_8)"
+"(eval-for-syntaxes-binding"
+" 'define-syntaxes"
+" rhs107_0"
+" ids_32"
+" body-ctx_2)))"
+"(let-values(((extended-env_1)"
+"(let-values(((lst_317)"
+" keys_6)"
+"((lst_318)"
+" vals_8)"
+"((lst_319)"
+" ids_32))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
 "(#%variable-reference))"
 "(void)"
 "(let-values()"
 "(check-list"
-" lst_320)))"
-"((letrec-values(((for-loop_291)"
-"(lambda(id_111"
+" lst_317)))"
+"(if(variable-reference-from-unsafe?"
+"(#%variable-reference))"
+"(void)"
+"(let-values()"
+"(check-list"
+" lst_318)))"
+"(if(variable-reference-from-unsafe?"
+"(#%variable-reference))"
+"(void)"
+"(let-values()"
+"(check-list"
+" lst_319)))"
+"((letrec-values(((for-loop_287)"
+"(lambda(env_21"
+" lst_36"
+" lst_320"
 " lst_321)"
 "(begin"
 " 'for-loop"
+"(if(if(pair?"
+" lst_36)"
 "(if(pair?"
+" lst_320)"
+"(pair?"
 " lst_321)"
-"(let-values(((s_516)"
+" #f)"
+" #f)"
+"(let-values(((key_89)"
+"(unsafe-car"
+" lst_36))"
+"((rest_190)"
+"(unsafe-cdr"
+" lst_36))"
+"((val_41)"
+"(unsafe-car"
+" lst_320))"
+"((rest_191)"
+"(unsafe-cdr"
+" lst_320))"
+"((id_111)"
 "(unsafe-car"
 " lst_321))"
-"((rest_184)"
+"((rest_192)"
 "(unsafe-cdr"
 " lst_321)))"
-"(let-values(((id_112)"
-"(let-values(((id_113)"
-" id_111))"
-"(let-values(((id_114)"
+"(let-values(((env_22)"
+"(let-values(((env_23)"
+" env_21))"
+"(let-values(((env_24)"
 "(let-values()"
-"(let-values(((id114_0)"
-"(let-values()"
-"(if(let-values(((or-part_380)"
-"(if(syntax?$1"
-" s_516)"
-"(symbol?"
-"(syntax-e$1"
-" s_516))"
-" #f)))"
-"(if or-part_380"
-" or-part_380"
-"(symbol?"
-" s_516)))"
-" s_516"
-"(raise-syntax-error$1"
-" #f"
-"                                                                                                                                                                                                                                                                 \"not an identifier\""
-" orig-s_40"
-" s_516)))))"
-"(cons"
-" id114_0"
-" id_113)))))"
+"(begin"
+"(maybe-install-free=id-in-context!"
+" val_41"
+" id_111"
+" phase_136"
+" body-ctx_2)"
+"(env-extend"
+" env_23"
+" key_89"
+" val_41)))))"
 "(values"
-" id_114)))))"
+" env_24)))))"
 "(if(not"
 " #f)"
-"(for-loop_291"
-" id_112"
-" rest_184)"
-" id_112)))"
-" id_111)))))"
-" for-loop_291)"
-" null"
-" lst_320)))))"
-"(reverse$1"
-" id_110))))))))"
-"((rhs112_0)"
-"(let-values(((s_101)"
-"(cdr"
-" s_513)))"
-"(let-values(((s_102)"
-"(if(syntax?$1"
-" s_101)"
-"(syntax-e$1"
-" s_101)"
-" s_101)))"
-"(if(pair?"
-" s_102)"
-"(let-values(((rhs113_0)"
-"(let-values(((s_517)"
-"(car"
-" s_102)))"
-" s_517))"
-"(()"
-"(let-values(((s_518)"
-"(cdr"
-" s_102)))"
-"(let-values(((s_103)"
-"(if(syntax?$1"
-" s_518)"
-"(syntax-e$1"
-" s_518)"
-" s_518)))"
-"(if(null?"
-" s_103)"
-"(values)"
-"(raise-syntax-error$1"
-" #f"
-"                                                                                                                                                                                   \"bad syntax\""
-" orig-s_40))))))"
-"(values"
-" rhs113_0))"
-"(raise-syntax-error$1"
-" #f"
-"                                                                                                                                                               \"bad syntax\""
-" orig-s_40))))))"
-"(values"
-" id111_0"
-" rhs112_0))"
-"(raise-syntax-error$1"
-" #f"
-"                                                                                                                                           \"bad syntax\""
-" orig-s_40))))))"
-"(values"
-" define-syntaxes108_0"
-" id109_0"
-" rhs110_0))"
-"(raise-syntax-error$1"
-" #f"
-"                                                                                                                       \"bad syntax\""
-" orig-s_40)))))"
-"(values"
-" #t"
-" define-syntaxes105_1"
-" id106_1"
-" rhs107_1))))))"
-"(let-values(((ids_31)"
-"(remove-use-site-scopes"
-" id106_0"
-" body-ctx_2)))"
-"(let-values((()"
+"(for-loop_287"
+" env_22"
+" rest_190"
+" rest_191"
+" rest_192)"
+" env_22)))"
+" env_21)))))"
+" for-loop_287)"
+"(expand-context-env"
+" body-ctx_2)"
+" lst_317"
+" lst_318"
+" lst_319)))))"
 "(begin"
 "(let-values(((obs_73)"
 "(expand-context-observer"
@@ -63499,251 +62149,24 @@ static const char *startup_source =
 "(let-values()"
 "(call-expand-observe"
 " obs_73"
-" 'rename-one"
-"(datum->syntax$1"
-" #f"
-"(list"
-" ids_31"
-" rhs107_0)))))"
-"(void)))"
-"(values))))"
-"(let-values(((new-dups_1)"
-"(let-values(((ids115_0)"
-" ids_31)"
-"((phase116_0)"
-" phase_143)"
-"((exp-body117_0)"
-" exp-body_0)"
-"((dups118_0)"
-" dups_0))"
-"(check-no-duplicate-ids8.1"
-" #f"
-" #f"
-" ids115_0"
-" phase116_0"
-" exp-body117_0"
-" dups118_0"
-" #t))))"
-"(let-values(((counter_6)"
-"(root-expand-context-counter"
-" ctx_76)))"
-"(let-values(((keys_6)"
-"(reverse$1"
-"(let-values(((lst_322)"
-" ids_31))"
-"(begin"
-"(if(variable-reference-from-unsafe?"
-"(#%variable-reference))"
-"(void)"
-"(let-values()"
-"(check-list"
-" lst_322)))"
-"((letrec-values(((for-loop_292)"
-"(lambda(fold-var_310"
-" lst_323)"
-"(begin"
-" 'for-loop"
-"(if(pair?"
-" lst_323)"
-"(let-values(((id_115)"
-"(unsafe-car"
-" lst_323))"
-"((rest_185)"
-"(unsafe-cdr"
-" lst_323)))"
-"(let-values(((fold-var_311)"
-"(let-values(((fold-var_312)"
-" fold-var_310))"
-"(let-values(((fold-var_313)"
-"(let-values()"
-"(cons"
-"(let-values()"
-"(let-values(((id119_0)"
-" id_115)"
-"((phase120_0)"
-" phase_143)"
-"((counter121_0)"
-" counter_6)"
-"((frame-id122_0)"
-" frame-id_2)"
-"((exp-body123_0)"
-" exp-body_0))"
-"(add-local-binding!37.1"
-" frame-id122_0"
-" #t"
-" exp-body123_0"
-" #t"
-" id119_0"
-" phase120_0"
-" counter121_0)))"
-" fold-var_312))))"
-"(values"
-" fold-var_313)))))"
-"(if(not"
-" #f)"
-"(for-loop_292"
-" fold-var_311"
-" rest_185)"
-" fold-var_311)))"
-" fold-var_310)))))"
-" for-loop_292)"
-" null"
-" lst_322))))))"
-"(let-values((()"
-"(begin"
-"(let-values(((obs_74)"
-"(expand-context-observer"
-" body-ctx_2)))"
-"(if obs_74"
-"(let-values()"
-"(let-values()"
-"(call-expand-observe"
-" obs_74"
-" 'prepare-env)))"
-"(void)))"
-"(values))))"
-"(let-values((()"
-"(begin"
-"(prepare-next-phase-namespace"
-" ctx_76)"
-"(values))))"
-"(let-values((()"
-"(begin"
-"(let-values(((obs_75)"
-"(expand-context-observer"
-" body-ctx_2)))"
-"(if obs_75"
-"(let-values()"
-"(let-values()"
-"(call-expand-observe"
-" obs_75"
-" 'enter-bind)))"
-"(void)))"
-"(values))))"
-"(let-values(((vals_8)"
-"(eval-for-syntaxes-binding"
-" 'define-syntaxes"
-" rhs107_0"
-" ids_31"
-" body-ctx_2)))"
-"(let-values(((extended-env_1)"
-"(let-values(((lst_324)"
-" keys_6)"
-"((lst_325)"
-" vals_8)"
-"((lst_326)"
-" ids_31))"
-"(begin"
-"(if(variable-reference-from-unsafe?"
-"(#%variable-reference))"
-"(void)"
-"(let-values()"
-"(check-list"
-" lst_324)))"
-"(if(variable-reference-from-unsafe?"
-"(#%variable-reference))"
-"(void)"
-"(let-values()"
-"(check-list"
-" lst_325)))"
-"(if(variable-reference-from-unsafe?"
-"(#%variable-reference))"
-"(void)"
-"(let-values()"
-"(check-list"
-" lst_326)))"
-"((letrec-values(((for-loop_293)"
-"(lambda(env_21"
-" lst_36"
-" lst_327"
-" lst_328)"
-"(begin"
-" 'for-loop"
-"(if(if(pair?"
-" lst_36)"
-"(if(pair?"
-" lst_327)"
-"(pair?"
-" lst_328)"
-" #f)"
-" #f)"
-"(let-values(((key_91)"
-"(unsafe-car"
-" lst_36))"
-"((rest_186)"
-"(unsafe-cdr"
-" lst_36))"
-"((val_41)"
-"(unsafe-car"
-" lst_327))"
-"((rest_187)"
-"(unsafe-cdr"
-" lst_327))"
-"((id_116)"
-"(unsafe-car"
-" lst_328))"
-"((rest_188)"
-"(unsafe-cdr"
-" lst_328)))"
-"(let-values(((env_22)"
-"(let-values(((env_23)"
-" env_21))"
-"(let-values(((env_24)"
-"(let-values()"
-"(begin"
-"(maybe-install-free=id-in-context!"
-" val_41"
-" id_116"
-" phase_143"
-" body-ctx_2)"
-"(env-extend"
-" env_23"
-" key_91"
-" val_41)))))"
-"(values"
-" env_24)))))"
-"(if(not"
-" #f)"
-"(for-loop_293"
-" env_22"
-" rest_186"
-" rest_187"
-" rest_188)"
-" env_22)))"
-" env_21)))))"
-" for-loop_293)"
-"(expand-context-env"
-" body-ctx_2)"
-" lst_324"
-" lst_325"
-" lst_326)))))"
-"(begin"
-"(let-values(((obs_40)"
-"(expand-context-observer"
-" body-ctx_2)))"
-"(if obs_40"
-"(let-values()"
-"(let-values()"
-"(call-expand-observe"
-" obs_40"
 " 'exit-bind)))"
 "(void)))"
-"(loop_40"
-"(let-values(((v_264)"
+"(loop_120"
+"(let-values(((v_263)"
 " body-ctx_2))"
 "(let-values(((the-struct_92)"
-" v_264))"
+" v_263))"
 "(if(expand-context/outer?"
 " the-struct_92)"
 "(let-values(((env124_0)"
 " extended-env_1)"
 "((binding-layer125_0)"
 "(maybe-increment-binding-layer_0"
-" ids_31"
+" ids_32"
 " body-ctx_2))"
 "((inner126_0)"
 "(root-expand-context/outer-inner"
-" v_264)))"
+" v_263)))"
 "(expand-context/outer1.1"
 " inner126_0"
 "(root-expand-context/outer-post-expansion-scope"
@@ -63783,13 +62206,13 @@ static const char *startup_source =
 " val-rhss_0"
 " track-stxs_0"
 "(cons"
-" ids_31"
+" ids_32"
 " trans-idss_1)"
 "(cons"
 "(datum->syntax$1"
 " #f"
 "(list"
-" ids_31"
+" ids_32"
 " rhs107_0)"
 " exp-body_0)"
 " stx-clauses_0)"
@@ -63803,7 +62226,7 @@ static const char *startup_source =
 "(let-values()"
 "(error"
 "                                                                                           \"internal error: accumulated expressions not empty\")))"
-"(loop_40"
+"(loop_120"
 " body-ctx_2"
 " null"
 "(if(if(null? val-idss_0)"
@@ -63819,7 +62242,7 @@ static const char *startup_source =
 "(cons"
 "(core-id"
 " '#%stratified-body"
-" phase_143)"
+" phase_136)"
 "(cons"
 " exp-body_0"
 " rest-bodys_0)))))"
@@ -63831,7 +62254,7 @@ static const char *startup_source =
 " stx-clauses_0"
 " dups_0)))"
 "(let-values()"
-"(loop_40"
+"(loop_120"
 " body-ctx_2"
 " rest-bodys_0"
 "(cons exp-body_0 done-bodys_0)"
@@ -63842,7 +62265,7 @@ static const char *startup_source =
 " trans-idss_1"
 " stx-clauses_0"
 " dups_0))))))))))))))))))"
-" loop_40)"
+" loop_120)"
 " body-ctx_0"
 " init-bodys_0"
 " null"
@@ -63881,7 +62304,7 @@ static const char *startup_source =
 "(let-values(((done-bodys_1) done-bodys26_0))"
 "(let-values(((s_233) source10_0))"
 "(let-values(((stratified?_1) stratified?11_0))"
-"(let-values(((name_80) name12_0))"
+"(let-values(((name_81) name12_0))"
 "(let-values(((disappeared-transformer-bindings_0) disappeared-transformer-bindings13_0))"
 "(let-values()"
 "(let-values((()"
@@ -63895,11 +62318,11 @@ static const char *startup_source =
 "(void))"
 "(values))))"
 "(let-values(((finish-ctx_0)"
-"(let-values(((v_265)"
+"(let-values(((v_264)"
 "(accumulate-def-ctx-scopes"
 " body-ctx_3"
 " def-ctx-scopes_7)))"
-"(let-values(((the-struct_93) v_265))"
+"(let-values(((the-struct_93) v_264))"
 "(if(expand-context/outer? the-struct_93)"
 "(let-values(((context127_0) 'expression)"
 "((use-site-scopes128_0)(box null))"
@@ -63913,7 +62336,7 @@ static const char *startup_source =
 "((def-ctx-scopes131_0) #f)"
 "((post-expansion-scope132_0) #f)"
 "((inner133_0)"
-"(root-expand-context/outer-inner v_265)))"
+"(root-expand-context/outer-inner v_264)))"
 "(expand-context/outer1.1"
 " inner133_0"
 " post-expansion-scope132_0"
@@ -63946,28 +62369,28 @@ static const char *startup_source =
 "(if block->list?_0"
 "(void)"
 "(let-values()"
-"(let-values(((obs_76)"
+"(let-values(((obs_74)"
 "(expand-context-observer"
 " body-ctx_3)))"
-"(if obs_76"
+"(if obs_74"
 "(let-values()"
 "(let-values()"
 "(call-expand-observe"
-" obs_76"
+" obs_74"
 " 'next-group)))"
 "(void)))))"
 "(values))))"
 "(let-values(((last-i_1)(sub1(length done-bodys_1))))"
 "(let-values((()"
 "(begin"
-"(let-values(((obs_77)"
+"(let-values(((obs_75)"
 "(expand-context-observer"
 " body-ctx_3)))"
-"(if obs_77"
+"(if obs_75"
 "(let-values()"
 "(let-values()"
 "(call-expand-observe"
-" obs_77"
+" obs_75"
 " 'enter-list"
 "(datum->syntax$1"
 " #f"
@@ -63976,74 +62399,74 @@ static const char *startup_source =
 "(values))))"
 "(let-values(((exp-bodys_0)"
 "(reverse$1"
-"(let-values(((lst_329) done-bodys_1)"
-"((start_65) 0))"
+"(let-values(((lst_210) done-bodys_1)"
+"((start_64) 0))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
 "(#%variable-reference))"
 "(void)"
 "(let-values()"
-"(check-list lst_329)))"
+"(check-list lst_210)))"
 "(if(variable-reference-from-unsafe?"
 "(#%variable-reference))"
 "(void)"
 "(let-values()"
-"(check-naturals start_65)))"
-"((letrec-values(((for-loop_294)"
-"(lambda(fold-var_314"
-" lst_330"
-" pos_126)"
+"(check-naturals start_64)))"
+"((letrec-values(((for-loop_288)"
+"(lambda(fold-var_302"
+" lst_5"
+" pos_125)"
 "(begin"
 " 'for-loop"
 "(if(if(pair?"
-" lst_330)"
+" lst_5)"
 " #t"
 " #f)"
 "(let-values(((done-body_4)"
 "(unsafe-car"
-" lst_330))"
-"((rest_189)"
+" lst_5))"
+"((rest_193)"
 "(unsafe-cdr"
-" lst_330))"
-"((i_194)"
-" pos_126))"
-"(let-values(((fold-var_265)"
-"(let-values(((fold-var_266)"
-" fold-var_314))"
-"(let-values(((fold-var_267)"
+" lst_5))"
+"((i_14)"
+" pos_125))"
+"(let-values(((fold-var_303)"
+"(let-values(((fold-var_304)"
+" fold-var_302))"
+"(let-values(((fold-var_305)"
 "(let-values()"
 "(cons"
 "(let-values()"
 "(begin"
-"(let-values(((obs_78)"
+"(let-values(((obs_76)"
 "(expand-context-observer"
 " body-ctx_3)))"
-"(if obs_78"
+"(if obs_76"
 "(let-values()"
 "(let-values()"
 "(call-expand-observe"
-" obs_78"
+" obs_76"
 " 'next)))"
 "(void)))"
 "(let-values(((done-body134_0)"
 " done-body_4)"
-"((temp135_2)"
-"(if(if name_80"
+"((temp135_1)"
+"(if(if name_81"
 "(="
-" i_194"
+" i_14"
 " last-i_1)"
 " #f)"
-"(let-values(((v_266)"
+"(let-values(((v_265)"
 " finish-ctx_0))"
 "(let-values(((the-struct_94)"
-" v_266))"
+" v_265))"
 "(if(expand-context/outer?"
 " the-struct_94)"
 "(let-values(((name136_0)"
-" name_80)"
+" name_81)"
 "((inner137_0)"
 "(root-expand-context/outer-inner"
-" v_266)))"
+" v_265)))"
 "(expand-context/outer1.1"
 " inner137_0"
 "(root-expand-context/outer-post-expansion-scope"
@@ -64082,36 +62505,33 @@ static const char *startup_source =
 " #f"
 " #f"
 " #f"
-" #f"
-" #f"
-" #f"
 " done-body134_0"
-" temp135_2))))"
-" fold-var_266))))"
+" temp135_1))))"
+" fold-var_304))))"
 "(values"
-" fold-var_267)))))"
+" fold-var_305)))))"
 "(if(not"
 " #f)"
-"(for-loop_294"
-" fold-var_265"
-" rest_189"
+"(for-loop_288"
+" fold-var_303"
+" rest_193"
 "(+"
-" pos_126"
+" pos_125"
 " 1))"
-" fold-var_265)))"
-" fold-var_314)))))"
-" for-loop_294)"
+" fold-var_303)))"
+" fold-var_302)))))"
+" for-loop_288)"
 " null"
-" lst_329"
-" start_65))))))"
+" lst_210"
+" start_64))))))"
 "(begin"
-"(let-values(((obs_79)"
+"(let-values(((obs_77)"
 "(expand-context-observer body-ctx_3)))"
-"(if obs_79"
+"(if obs_77"
 "(let-values()"
 "(let-values()"
 "(call-expand-observe"
-" obs_79"
+" obs_77"
 " 'exit-list"
 "(datum->syntax$1 #f exp-bodys_0))))"
 "(void)))"
@@ -64120,12 +62540,12 @@ static const char *startup_source =
 "(if(if(null? val-idss_1)(null? disappeared-transformer-bindings_0) #f)"
 "(let-values()"
 "(begin"
-"(let-values(((obs_80)(expand-context-observer finish-ctx_0)))"
-"(if obs_80"
+"(let-values(((obs_78)(expand-context-observer finish-ctx_0)))"
+"(if obs_78"
 "(let-values()"
 "(let-values()"
 "(call-expand-observe"
-" obs_80"
+" obs_78"
 " 'block->list"
 "(datum->syntax$1 s_233 done-bodys_1))))"
 "(void)))"
@@ -64133,12 +62553,12 @@ static const char *startup_source =
 "(let-values()"
 "(let-values((()"
 "(begin"
-"(let-values(((obs_81)"
+"(let-values(((obs_79)"
 "(expand-context-observer finish-ctx_0)))"
-"(if obs_81"
+"(if obs_79"
 "(let-values()"
 "(log-letrec-values$1"
-" obs_81"
+" obs_79"
 " finish-ctx_0"
 " s_233"
 " val-idss_1"
@@ -64148,44 +62568,44 @@ static const char *startup_source =
 " done-bodys_1))"
 "(void)))"
 "(values))))"
-"(let-values(((exp-s_13)"
+"(let-values(((exp-s_12)"
 "(let-values(((val-idss138_0) val-idss_1)"
 "((val-keyss139_0) val-keyss_1)"
 "((val-rhss140_0) val-rhss_1)"
 "((track-stxs141_0) track-stxs_1)"
-"((temp142_2)(not stratified?_1))"
+"((temp142_1)(not stratified?_1))"
 "((frame-id143_0) frame-id_13)"
 "((finish-ctx144_0) finish-ctx_0)"
-"((s145_0) s_233)"
-"((temp146_3)(pair? stx-clauses_1))"
+"((s145_1) s_233)"
+"((temp146_1)(pair? stx-clauses_1))"
 "((finish-bodys147_0) finish-bodys_0)"
 "((temp148_2) #f))"
 "(expand-and-split-bindings-by-reference48.1"
 " finish-ctx144_0"
 " frame-id143_0"
 " finish-bodys147_0"
-" temp146_3"
-" s145_0"
-" temp142_2"
+" temp146_1"
+" s145_1"
+" temp142_1"
 " temp148_2"
 " val-idss138_0"
 " val-keyss139_0"
 " val-rhss140_0"
 " track-stxs141_0))))"
 "(begin"
-"(let-values(((obs_82)(expand-context-observer body-ctx_3)))"
-"(if obs_82"
+"(let-values(((obs_80)(expand-context-observer body-ctx_3)))"
+"(if obs_80"
 "(let-values()"
 "(let-values()"
 "(begin"
-"(call-expand-observe obs_82 'exit-prim exp-s_13)"
-"(call-expand-observe obs_82 'return exp-s_13))))"
+"(call-expand-observe obs_80 'exit-prim exp-s_12)"
+"(call-expand-observe obs_80 'return exp-s_12))))"
 "(void)))"
 "(if(expand-context-to-parsed? body-ctx_3)"
-"(list exp-s_13)"
+"(list exp-s_12)"
 "(list"
 "(attach-disappeared-transformer-bindings"
-" exp-s_13"
+" exp-s_12"
 " disappeared-transformer-bindings_0))))))))))))))))))))))))))))"
 "(define-values"
 "(expand-and-split-bindings-by-reference48.1)"
@@ -64208,14 +62628,14 @@ static const char *startup_source =
 "(let-values(((track-stxs_2) track-stxs47_0))"
 "(let-values(((split?_0) split?30_0))"
 "(let-values(((frame-id_14) frame-id31_0))"
-"(let-values(((ctx_77) ctx32_0))"
-"(let-values(((s_371) source33_0))"
+"(let-values(((ctx_76) ctx32_0))"
+"(let-values(((s_366) source33_0))"
 "(let-values(((had-stxes?_0) had-stxes?34_0))"
 "(let-values(((get-body_0) get-body35_0))"
 "(let-values(((track?_1) track?36_0))"
 "(let-values()"
-"(let-values(((phase_144)(expand-context-phase ctx_77)))"
-"((letrec-values(((loop_124)"
+"(let-values(((phase_137)(expand-context-phase ctx_76)))"
+"((letrec-values(((loop_27)"
 "(lambda(idss_2"
 " keyss_1"
 " rhss_2"
@@ -64236,15 +62656,15 @@ static const char *startup_source =
 "(let-values()"
 "(let-values(((exp-body_1)(get-body_0)))"
 "(let-values(((result-s_9)"
-"(if(expand-context-to-parsed? ctx_77)"
+"(if(expand-context-to-parsed? ctx_76)"
 "(if(null? accum-idss_0)"
 "(parsed-let-values17.1"
-"(keep-properties-only s_371)"
+"(keep-properties-only s_366)"
 " null"
 " null"
 " exp-body_1)"
 "(parsed-letrec-values18.1"
-"(keep-properties-only s_371)"
+"(keep-properties-only s_366)"
 "(reverse$1 accum-idss_0)"
 "(reverse$1"
 "(map2"
@@ -64253,16 +62673,16 @@ static const char *startup_source =
 " accum-rhss_0))"
 " exp-body_1))"
 "(let-values(((track?149_0) track?_2)"
-"((s150_0) s_371)"
-"((temp151_2)"
+"((s150_0) s_366)"
+"((temp151_1)"
 "(list*"
 "(if(null? accum-idss_0)"
 "(core-id"
 " 'let-values"
-" phase_144)"
+" phase_137)"
 "(core-id"
 " 'letrec-values"
-" phase_144))"
+" phase_137))"
 "(build-clauses"
 " accum-idss_0"
 " accum-rhss_0"
@@ -64270,20 +62690,19 @@ static const char *startup_source =
 " exp-body_1)))"
 "(rebuild5.1"
 " track?149_0"
-" #t"
 " s150_0"
-" temp151_2)))))"
+" temp151_1)))))"
 "(begin"
-"(let-values(((obs_83)"
-"(expand-context-observer ctx_77)))"
-"(if obs_83"
+"(let-values(((obs_81)"
+"(expand-context-observer ctx_76)))"
+"(if obs_81"
 "(let-values()"
 "(if(if can-log?_0"
-"(log-tag? had-stxes?_0 ctx_77)"
+"(log-tag? had-stxes?_0 ctx_76)"
 " #f)"
 "(let-values()"
 "(call-expand-observe"
-" obs_83"
+" obs_81"
 " 'tag"
 " result-s_9))"
 "(void)))"
@@ -64292,30 +62711,27 @@ static const char *startup_source =
 "(let-values()"
 "(let-values((()"
 "(begin"
-"(let-values(((obs_84)"
+"(let-values(((obs_82)"
 "(expand-context-observer"
-" ctx_77)))"
-"(if obs_84"
+" ctx_76)))"
+"(if obs_82"
 "(let-values()"
 "(let-values()"
-"(call-expand-observe obs_84 'next)))"
+"(call-expand-observe obs_82 'next)))"
 "(void)))"
 "(values))))"
-"(let-values(((ids_32)(car idss_2)))"
+"(let-values(((ids_33)(car idss_2)))"
 "(let-values(((expanded-rhs_0)"
-"(let-values(((temp152_3)(car rhss_2))"
+"(let-values(((temp152_1)(car rhss_2))"
 "((temp153_1)"
 "(as-named-context"
-" ctx_77"
-" ids_32)))"
+" ctx_76"
+" ids_33)))"
 "(expand9.1"
 " #f"
 " #f"
 " #f"
-" #f"
-" #f"
-" #f"
-" temp152_3"
+" temp152_1"
 " temp153_1))))"
 "(let-values(((track-stx_0)(car track-stxs_3)))"
 "(let-values(((local-or-forward-references?_0)"
@@ -64343,7 +62759,7 @@ static const char *startup_source =
 "                                                                                                 \"internal error: accumulated ids not empty\")))"
 "(values))))"
 "(let-values(((exp-rest_0)"
-"(loop_124"
+"(loop_27"
 "(cdr idss_2)"
 "(cdr keyss_1)"
 "(cdr rhss_2)"
@@ -64357,11 +62773,11 @@ static const char *startup_source =
 " #f)))"
 "(let-values(((result-s_10)"
 "(if(expand-context-to-parsed?"
-" ctx_77)"
+" ctx_76)"
 "(parsed-let-values17.1"
 "(keep-properties-only"
-" s_371)"
-"(list ids_32)"
+" s_366)"
+"(list ids_33)"
 "(list"
 "(list"
 "(car keyss_1)"
@@ -64369,38 +62785,37 @@ static const char *startup_source =
 " exp-rest_0)"
 "(let-values(((track?154_0)"
 " track?_2)"
-"((s155_1)"
-" s_371)"
+"((s155_0)"
+" s_366)"
 "((temp156_0)"
 "(list*"
 "(core-id"
 " 'let-values"
-" phase_144)"
+" phase_137)"
 "(list"
 "(build-clause"
-" ids_32"
+" ids_33"
 " expanded-rhs_0"
 " track-stx_0))"
 " exp-rest_0)))"
 "(rebuild5.1"
 " track?154_0"
-" #t"
-" s155_1"
+" s155_0"
 " temp156_0)))))"
 "(begin"
-"(let-values(((obs_85)"
+"(let-values(((obs_57)"
 "(expand-context-observer"
-" ctx_77)))"
-"(if obs_85"
+" ctx_76)))"
+"(if obs_57"
 "(let-values()"
 "(if(if can-log?_0"
 "(log-tag?"
 " had-stxes?_0"
-" ctx_77)"
+" ctx_76)"
 " #f)"
 "(let-values()"
 "(call-expand-observe"
-" obs_85"
+" obs_57"
 " 'tag"
 " result-s_10))"
 "(void)))"
@@ -64409,14 +62824,14 @@ static const char *startup_source =
 "(list result-s_10)"
 " result-s_10))))))"
 "(if(if(not forward-references?_0)"
-"(let-values(((or-part_381) split?_0))"
-"(if or-part_381"
-" or-part_381"
+"(let-values(((or-part_376) split?_0))"
+"(if or-part_376"
+" or-part_376"
 "(null?(cdr idss_2))))"
 " #f)"
 "(let-values()"
 "(let-values(((exp-rest_1)"
-"(loop_124"
+"(loop_27"
 "(cdr idss_2)"
 "(cdr keyss_1)"
 "(cdr rhss_2)"
@@ -64430,13 +62845,13 @@ static const char *startup_source =
 " #f)))"
 "(let-values(((result-s_11)"
 "(if(expand-context-to-parsed?"
-" ctx_77)"
+" ctx_76)"
 "(parsed-letrec-values18.1"
 "(keep-properties-only"
-" s_371)"
+" s_366)"
 "(reverse$1"
 "(cons"
-" ids_32"
+" ids_33"
 " accum-idss_0))"
 "(reverse$1"
 "(cons"
@@ -64451,15 +62866,15 @@ static const char *startup_source =
 "(let-values(((track?157_0)"
 " track?_2)"
 "((s158_0)"
-" s_371)"
+" s_366)"
 "((temp159_1)"
 "(list*"
 "(core-id"
 " 'letrec-values"
-" phase_144)"
+" phase_137)"
 "(build-clauses"
 "(cons"
-" ids_32"
+" ids_33"
 " accum-idss_0)"
 "(cons"
 " expanded-rhs_0"
@@ -64470,23 +62885,22 @@ static const char *startup_source =
 " exp-rest_1)))"
 "(rebuild5.1"
 " track?157_0"
-" #t"
 " s158_0"
 " temp159_1)))))"
 "(begin"
-"(let-values(((obs_86)"
+"(let-values(((obs_83)"
 "(expand-context-observer"
-" ctx_77)))"
-"(if obs_86"
+" ctx_76)))"
+"(if obs_83"
 "(let-values()"
 "(if(if can-log?_0"
 "(log-tag?"
 " had-stxes?_0"
-" ctx_77)"
+" ctx_76)"
 " #f)"
 "(let-values()"
 "(call-expand-observe"
-" obs_86"
+" obs_83"
 " 'tag"
 " result-s_11))"
 "(void)))"
@@ -64495,19 +62909,19 @@ static const char *startup_source =
 "(list result-s_11)"
 " result-s_11)))))"
 "(let-values()"
-"(loop_124"
+"(loop_27"
 "(cdr idss_2)"
 "(cdr keyss_1)"
 "(cdr rhss_2)"
 "(cdr track-stxs_3)"
-"(cons ids_32 accum-idss_0)"
+"(cons ids_33 accum-idss_0)"
 "(cons(car keyss_1) accum-keyss_0)"
 "(cons expanded-rhs_0 accum-rhss_0)"
 "(cons track-stx_0 accum-track-stxs_0)"
 " track?_2"
 " get-list?_0"
 " can-log?_0)))))))))))))))))"
-" loop_124)"
+" loop_27)"
 " idss_1"
 " keyss_0"
 " rhss_1"
@@ -64525,55 +62939,55 @@ static const char *startup_source =
 "(begin(map2 build-clause(reverse$1 accum-idss_1)(reverse$1 accum-rhss_1)(reverse$1 accum-track-stxs_1)))))"
 "(define-values"
 "(build-clause)"
-"(lambda(ids_33 rhs_19 track-stx_1)"
+"(lambda(ids_34 rhs_19 track-stx_1)"
 "(begin"
-"(let-values(((clause_2)(datum->syntax$1 #f(list ids_33 rhs_19))))"
+"(let-values(((clause_2)(datum->syntax$1 #f(list ids_34 rhs_19))))"
 "(if track-stx_1(syntax-track-origin$1 clause_2 track-stx_1) clause_2)))))"
 "(define-values"
 "(no-binds)"
-"(lambda(expr_10 s_519 phase_145)"
+"(lambda(expr_10 s_516 phase_138)"
 "(begin"
-"(let-values(((s-runtime-stx_0)(syntax-shift-phase-level$1 runtime-stx phase_145)))"
+"(let-values(((s-runtime-stx_0)(syntax-shift-phase-level$1 runtime-stx phase_138)))"
 "(datum->syntax$1"
-"(core-id '#%app phase_145)"
-"(list(core-id 'begin phase_145) expr_10(list(datum->syntax$1 s-runtime-stx_0 'values)))"
-" s_519)))))"
+"(core-id '#%app phase_138)"
+"(list(core-id 'begin phase_138) expr_10(list(datum->syntax$1 s-runtime-stx_0 'values)))"
+" s_516)))))"
 "(define-values"
 "(log-tag?)"
-"(lambda(had-stxes?_1 ctx_78)(begin(if had-stxes?_1(not(expand-context-only-immediate? ctx_78)) #f))))"
+"(lambda(had-stxes?_1 ctx_77)(begin(if had-stxes?_1(not(expand-context-only-immediate? ctx_77)) #f))))"
 "(define-values"
 "(log-letrec-values$1)"
-"(lambda(obs_87 ctx_79 s_520 val-idss_2 val-rhss_2 track-stxs_4 stx-clauses_2 done-bodys_2)"
+"(lambda(obs_84 ctx_78 s_396 val-idss_2 val-rhss_2 track-stxs_4 stx-clauses_2 done-bodys_2)"
 "(begin"
 " 'log-letrec-values"
-"(let-values(((phase_146)(expand-context-phase ctx_79)))"
+"(let-values(((phase_139)(expand-context-phase ctx_78)))"
 "(let-values(((clauses_0)"
 "(reverse$1"
-"(let-values(((lst_125) val-idss_2)((lst_331) val-rhss_2)((lst_332) track-stxs_4))"
+"(let-values(((lst_322) val-idss_2)((lst_323) val-rhss_2)((lst_324) track-stxs_4))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
-"(let-values()(check-list lst_125)))"
+"(let-values()(check-list lst_322)))"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
-"(let-values()(check-list lst_331)))"
+"(let-values()(check-list lst_323)))"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
-"(let-values()(check-list lst_332)))"
-"((letrec-values(((for-loop_295)"
-"(lambda(fold-var_315 lst_333 lst_334 lst_335)"
+"(let-values()(check-list lst_324)))"
+"((letrec-values(((for-loop_289)"
+"(lambda(fold-var_306 lst_325 lst_326 lst_327)"
 "(begin"
 " 'for-loop"
-"(if(if(pair? lst_333)(if(pair? lst_334)(pair? lst_335) #f) #f)"
-"(let-values(((val-ids_0)(unsafe-car lst_333))"
-"((rest_190)(unsafe-cdr lst_333))"
-"((val-rhs_0)(unsafe-car lst_334))"
-"((rest_191)(unsafe-cdr lst_334))"
-"((track-stx_2)(unsafe-car lst_335))"
-"((rest_192)(unsafe-cdr lst_335)))"
-"(let-values(((fold-var_316)"
-"(let-values(((fold-var_317) fold-var_315))"
-"(let-values(((fold-var_318)"
+"(if(if(pair? lst_325)(if(pair? lst_326)(pair? lst_327) #f) #f)"
+"(let-values(((val-ids_0)(unsafe-car lst_325))"
+"((rest_194)(unsafe-cdr lst_325))"
+"((val-rhs_0)(unsafe-car lst_326))"
+"((rest_195)(unsafe-cdr lst_326))"
+"((track-stx_2)(unsafe-car lst_327))"
+"((rest_196)(unsafe-cdr lst_327)))"
+"(let-values(((fold-var_307)"
+"(let-values(((fold-var_308) fold-var_306))"
+"(let-values(((fold-var_309)"
 "(let-values()"
 "(cons"
 "(let-values()"
@@ -64581,159 +62995,157 @@ static const char *startup_source =
 " #f"
 "(list val-ids_0 val-rhs_0)"
 " track-stx_2))"
-" fold-var_317))))"
-"(values fold-var_318)))))"
+" fold-var_308))))"
+"(values fold-var_309)))))"
 "(if(not #f)"
-"(for-loop_295 fold-var_316 rest_190 rest_191 rest_192)"
-" fold-var_316)))"
-" fold-var_315)))))"
-" for-loop_295)"
+"(for-loop_289 fold-var_307 rest_194 rest_195 rest_196)"
+" fold-var_307)))"
+" fold-var_306)))))"
+" for-loop_289)"
 " null"
-" lst_125"
-" lst_331"
-" lst_332))))))"
+" lst_322"
+" lst_323"
+" lst_324))))))"
 "(let-values(((had-stxes?_2)(not(null? stx-clauses_2))))"
-"(let-values(((lv-id_0)(core-id(if had-stxes?_2 'letrec-syntaxes+values 'letrec-values) phase_146)))"
+"(let-values(((lv-id_0)(core-id(if had-stxes?_2 'letrec-syntaxes+values 'letrec-values) phase_139)))"
 "(let-values(((lv-s_0)"
 "(datum->syntax$1"
 " #f"
 "(if had-stxes?_2"
 "(list* lv-id_0 stx-clauses_2 clauses_0 done-bodys_2)"
 "(list* lv-id_0 clauses_0 done-bodys_2))"
-" s_520)))"
+" s_396)))"
 "(begin"
-"(call-expand-observe obs_87 'block->letrec(list lv-s_0))"
-"(call-expand-observe obs_87 'visit lv-s_0)"
-"(call-expand-observe obs_87 'resolve lv-id_0)"
-"(call-expand-observe obs_87 'enter-prim lv-s_0)"
+"(call-expand-observe obs_84 'block->letrec(list lv-s_0))"
+"(call-expand-observe obs_84 'visit lv-s_0)"
+"(call-expand-observe obs_84 'resolve lv-id_0)"
+"(call-expand-observe obs_84 'enter-prim lv-s_0)"
 "(if had-stxes?_2"
 "(let-values()"
 "(begin"
-"(call-expand-observe obs_87 'prim-letrec-syntaxes+values)"
+"(call-expand-observe obs_84 'prim-letrec-syntaxes+values)"
 "(call-expand-observe"
-" obs_87"
+" obs_84"
 " 'letrec-syntaxes-renames"
 " stx-clauses_2"
 " clauses_0"
-"(datum->syntax$1 #f done-bodys_2 s_520))"
-"(call-expand-observe obs_87 'prepare-env)"
-"(call-expand-observe obs_87 'next-group)"
+"(datum->syntax$1 #f done-bodys_2 s_396))"
+"(call-expand-observe obs_84 'prepare-env)"
+"(call-expand-observe obs_84 'next-group)"
 "(if(null? val-idss_2)"
 "(void)"
 "(let-values()"
 "(begin"
-"(call-expand-observe obs_87 'prim-letrec-values)"
+"(call-expand-observe obs_84 'prim-letrec-values)"
 "(call-expand-observe"
-" obs_87"
+" obs_84"
 " 'let-renames"
 " clauses_0"
-"(datum->syntax$1 #f done-bodys_2 s_520)))))))"
+"(datum->syntax$1 #f done-bodys_2 s_396)))))))"
 "(let-values()"
 "(begin"
-"(call-expand-observe obs_87 'prim-letrec-values)"
+"(call-expand-observe obs_84 'prim-letrec-values)"
 "(call-expand-observe"
-" obs_87"
+" obs_84"
 " 'let-renames"
 " clauses_0"
-"(datum->syntax$1 #f done-bodys_2 s_520))))))))))))))"
+"(datum->syntax$1 #f done-bodys_2 s_396))))))))))))))"
 "(define-values"
 "(lambda-clause-expander)"
-"(lambda(s_73 disarmed-s_5 formals_1 bodys_9 ctx_80 log-renames-tag_0)"
+"(lambda(s_74 disarmed-s_5 formals_1 bodys_9 ctx_79 log-renames-tag_0)"
 "(begin"
-"(let-values(((sc_35)(new-scope 'local)))"
-"(let-values(((phase_147)(expand-context-phase ctx_80)))"
-"(let-values(((ids_34)(parse-and-flatten-formals formals_1 sc_35 disarmed-s_5)))"
+"(let-values(((sc_36)(new-scope 'local)))"
+"(let-values(((phase_82)(expand-context-phase ctx_79)))"
+"(let-values(((ids_35)(parse-and-flatten-formals formals_1 sc_36 disarmed-s_5)))"
 "(let-values((()"
 "(begin"
-"(let-values(((ids34_0) ids_34)"
-"((phase35_2) phase_147)"
-"((s36_0) s_73)"
-"                                         ((temp37_5) \"argument name\"))"
-"(check-no-duplicate-ids8.1 temp37_5 #t ids34_0 phase35_2 s36_0 #f #f))"
+"(let-values(((ids33_0) ids_35)"
+"((phase34_1) phase_82)"
+"((s35_1) s_74)"
+"                                         ((temp36_8) \"argument name\"))"
+"(check-no-duplicate-ids7.1 temp36_8 ids33_0 phase34_1 s35_1 unsafe-undefined))"
 "(values))))"
-"(let-values(((counter_7)(root-expand-context-counter ctx_80)))"
+"(let-values(((counter_7)(root-expand-context-counter ctx_79)))"
 "(let-values(((keys_7)"
 "(reverse$1"
-"(let-values(((lst_86) ids_34))"
+"(let-values(((lst_88) ids_35))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
-"(let-values()(check-list lst_86)))"
-"((letrec-values(((for-loop_296)"
-"(lambda(fold-var_319 lst_267)"
+"(let-values()(check-list lst_88)))"
+"((letrec-values(((for-loop_189)"
+"(lambda(fold-var_150 lst_159)"
 "(begin"
 " 'for-loop"
-"(if(pair? lst_267)"
-"(let-values(((id_117)(unsafe-car lst_267))"
-"((rest_193)(unsafe-cdr lst_267)))"
+"(if(pair? lst_159)"
+"(let-values(((id_112)(unsafe-car lst_159))"
+"((rest_83)(unsafe-cdr lst_159)))"
 "(let-values(((fold-var_33)"
-"(let-values(((fold-var_34) fold-var_319))"
-"(let-values(((fold-var_157)"
+"(let-values(((fold-var_34) fold-var_150))"
+"(let-values(((fold-var_151)"
 "(let-values()"
 "(cons"
 "(let-values()"
-"(let-values(((id38_1)"
-" id_117)"
-"((phase39_1)"
-" phase_147)"
-"((counter40_0)"
+"(let-values(((id37_0)"
+" id_112)"
+"((phase38_1)"
+" phase_82)"
+"((counter39_0)"
 " counter_7)"
-"((s41_0)"
-" s_73))"
+"((s40_1)"
+" s_74))"
 "(add-local-binding!37.1"
 " #f"
-" #f"
-" s41_0"
-" #t"
-" id38_1"
-" phase39_1"
-" counter40_0)))"
+" s40_1"
+" id37_0"
+" phase38_1"
+" counter39_0)))"
 " fold-var_34))))"
-"(values fold-var_157)))))"
+"(values fold-var_151)))))"
 "(if(not #f)"
-"(for-loop_296 fold-var_33 rest_193)"
+"(for-loop_189 fold-var_33 rest_83)"
 " fold-var_33)))"
-" fold-var_319)))))"
-" for-loop_296)"
+" fold-var_150)))))"
+" for-loop_189)"
 " null"
-" lst_86))))))"
+" lst_88))))))"
 "(let-values(((body-env_0)"
-"(let-values(((lst_79) keys_7)((lst_89) ids_34))"
+"(let-values(((lst_80) keys_7)((lst_91) ids_35))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
-"(let-values()(check-list lst_79)))"
+"(let-values()(check-list lst_80)))"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
-"(let-values()(check-list lst_89)))"
-"((letrec-values(((for-loop_48)"
-"(lambda(env_25 lst_81 lst_274)"
+"(let-values()(check-list lst_91)))"
+"((letrec-values(((for-loop_49)"
+"(lambda(env_25 lst_82 lst_58)"
 "(begin"
 " 'for-loop"
-"(if(if(pair? lst_81)(pair? lst_274) #f)"
-"(let-values(((key_92)(unsafe-car lst_81))"
-"((rest_146)(unsafe-cdr lst_81))"
-"((id_118)(unsafe-car lst_274))"
-"((rest_194)(unsafe-cdr lst_274)))"
+"(if(if(pair? lst_82)(pair? lst_58) #f)"
+"(let-values(((key_90)(unsafe-car lst_82))"
+"((rest_197)(unsafe-cdr lst_82))"
+"((id_113)(unsafe-car lst_58))"
+"((rest_198)(unsafe-cdr lst_58)))"
 "(let-values(((env_26)"
 "(let-values(((env_27) env_25))"
 "(let-values(((env_28)"
 "(let-values()"
 "(env-extend"
 " env_27"
-" key_92"
+" key_90"
 "(local-variable1.1"
-" id_118)))))"
+" id_113)))))"
 "(values env_28)))))"
 "(if(not #f)"
-"(for-loop_48 env_26 rest_146 rest_194)"
+"(for-loop_49 env_26 rest_197 rest_198)"
 " env_26)))"
 " env_25)))))"
-" for-loop_48)"
-"(expand-context-env ctx_80)"
-" lst_79"
-" lst_89)))))"
-"(let-values(((sc-formals_0)(add-scope formals_1 sc_35)))"
+" for-loop_49)"
+"(expand-context-env ctx_79)"
+" lst_80"
+" lst_91)))))"
+"(let-values(((sc-formals_0)(add-scope formals_1 sc_36)))"
 "(let-values(((sc-bodys_0)"
 "(reverse$1"
 "(let-values(((lst_17) bodys_9))"
@@ -64742,65 +63154,65 @@ static const char *startup_source =
 "(void)"
 "(let-values()(check-list lst_17)))"
 "((letrec-values(((for-loop_10)"
-"(lambda(fold-var_216 lst_18)"
+"(lambda(fold-var_213 lst_18)"
 "(begin"
 " 'for-loop"
 "(if(pair? lst_18)"
-"(let-values(((body_12)(unsafe-car lst_18))"
+"(let-values(((body_10)(unsafe-car lst_18))"
 "((rest_5)(unsafe-cdr lst_18)))"
 "(let-values(((fold-var_64)"
 "(let-values(((fold-var_65)"
-" fold-var_216))"
+" fold-var_213))"
 "(let-values(((fold-var_66)"
 "(let-values()"
 "(cons"
 "(let-values()"
 "(add-scope"
-" body_12"
-" sc_35))"
+" body_10"
+" sc_36))"
 " fold-var_65))))"
 "(values fold-var_66)))))"
 "(if(not #f)"
 "(for-loop_10 fold-var_64 rest_5)"
 " fold-var_64)))"
-" fold-var_216)))))"
+" fold-var_213)))))"
 " for-loop_10)"
 " null"
 " lst_17))))))"
 "(let-values((()"
 "(begin"
-"(let-values(((obs_88)(expand-context-observer ctx_80)))"
-"(if obs_88"
+"(let-values(((obs_85)(expand-context-observer ctx_79)))"
+"(if obs_85"
 "(let-values()"
 "(let-values()"
 "(call-expand-observe"
-" obs_88"
+" obs_85"
 " log-renames-tag_0"
 " sc-formals_0"
 "(datum->syntax$1 #f sc-bodys_0))))"
 "(void)))"
 "(values))))"
 "(let-values(((body-ctx_4)"
-"(let-values(((v_267) ctx_80))"
-"(let-values(((the-struct_95) v_267))"
+"(let-values(((v_266) ctx_79))"
+"(let-values(((the-struct_95) v_266))"
 "(if(expand-context/outer? the-struct_95)"
-"(let-values(((env42_0) body-env_0)"
-"((scopes43_1)(cons sc_35(expand-context-scopes ctx_80)))"
-"((binding-layer44_0)"
-"(increment-binding-layer ids_34 ctx_80 sc_35))"
-"((frame-id45_0) #f)"
-"((inner46_0)(root-expand-context/outer-inner v_267)))"
+"(let-values(((env41_0) body-env_0)"
+"((scopes42_0)(cons sc_36(expand-context-scopes ctx_79)))"
+"((binding-layer43_0)"
+"(increment-binding-layer ids_35 ctx_79 sc_36))"
+"((frame-id44_0) #f)"
+"((inner45_0)(root-expand-context/outer-inner v_266)))"
 "(expand-context/outer1.1"
-" inner46_0"
+" inner45_0"
 "(root-expand-context/outer-post-expansion-scope the-struct_95)"
 "(root-expand-context/outer-use-site-scopes the-struct_95)"
-" frame-id45_0"
+" frame-id44_0"
 "(expand-context/outer-context the-struct_95)"
-" env42_0"
+" env41_0"
 "(expand-context/outer-post-expansion-scope-action the-struct_95)"
-" scopes43_1"
+" scopes42_0"
 "(expand-context/outer-def-ctx-scopes the-struct_95)"
-" binding-layer44_0"
+" binding-layer43_0"
 "(expand-context/outer-reference-records the-struct_95)"
 "(expand-context/outer-only-immediate? the-struct_95)"
 "(expand-context/outer-need-eventually-defined the-struct_95)"
@@ -64811,537 +63223,525 @@ static const char *startup_source =
 "                                               \"expand-context/outer?\""
 " the-struct_95))))))"
 "(let-values(((exp-body_2)"
-"(let-values(((sc-bodys47_0) sc-bodys_0)"
-"((body-ctx48_0) body-ctx_4)"
-"((temp49_2)"
-"(let-values(((ctx50_1) ctx_80)((s51_1) s_73)((temp52_6) #t))"
-"(keep-as-needed120.1 #f #f temp52_6 #t #f #f ctx50_1 s51_1))))"
-"(expand-body7.1 temp49_2 #f #f sc-bodys47_0 body-ctx48_0))))"
+"(let-values(((sc-bodys46_0) sc-bodys_0)"
+"((body-ctx47_0) body-ctx_4)"
+"((temp48_4)"
+"(let-values(((ctx49_0) ctx_79)((s50_0) s_74)((temp51_3) #t))"
+"(keep-as-needed119.1 #f temp51_3 #f ctx49_0 s50_0))))"
+"(expand-body7.1 temp48_4 #f sc-bodys46_0 body-ctx47_0))))"
 "(values"
-"(if(expand-context-to-parsed? ctx_80)"
+"(if(expand-context-to-parsed? ctx_79)"
 "(unflatten-like-formals keys_7 formals_1)"
 " sc-formals_0)"
 " exp-body_2))))))))))))))))"
 "(void"
 "(add-core-form!*"
 " 'lambda"
-"(lambda(s_13 ctx_81)"
+"(lambda(s_13 ctx_80)"
 "(let-values((()"
 "(begin"
-"(let-values(((obs_89)(expand-context-observer ctx_81)))"
-"(if obs_89(let-values()(let-values()(call-expand-observe obs_89 'prim-lambda)))(void)))"
+"(let-values(((obs_86)(expand-context-observer ctx_80)))"
+"(if obs_86(let-values()(let-values()(call-expand-observe obs_86 'prim-lambda)))(void)))"
 "(values))))"
 "(let-values(((disarmed-s_6)(syntax-disarm$1 s_13)))"
-"(let-values(((ok?_36 lambda53_0 formals54_0 body55_0)"
-"(let-values(((s_521) disarmed-s_6))"
-"(let-values(((orig-s_41) s_521))"
-"(let-values(((lambda53_1 formals54_1 body55_1)"
-"(let-values(((s_175)(if(syntax?$1 s_521)(syntax-e$1 s_521) s_521)))"
-"(if(pair? s_175)"
-"(let-values(((lambda56_0)(let-values(((s_45)(car s_175))) s_45))"
-"((formals57_0 body58_0)"
-"(let-values(((s_69)(cdr s_175)))"
-"(let-values(((s_82)"
-"(if(syntax?$1 s_69)"
-"(syntax-e$1 s_69)"
-" s_69)))"
-"(if(pair? s_82)"
-"(let-values(((formals59_0)"
-"(let-values(((s_177)(car s_82)))"
-" s_177))"
-"((body60_0)"
-"(let-values(((s_178)(cdr s_82)))"
-"(let-values(((s_502)"
-"(if(syntax?$1 s_178)"
-"(syntax-e$1 s_178)"
-" s_178)))"
-"(let-values(((flat-s_27)"
-"(to-syntax-list.1"
-" s_502)))"
-"(if(not flat-s_27)"
-"(let-values()"
-"(raise-syntax-error$1"
-" #f"
-"                                                                                          \"bad syntax\""
-" orig-s_41))"
-"(if(null? flat-s_27)"
-"(let-values()"
-"(raise-syntax-error$1"
-" #f"
-"                                                                                            \"bad syntax\""
-" orig-s_41))"
-"(let-values()"
-" flat-s_27))))))))"
-"(values formals59_0 body60_0))"
-"                                                                 (raise-syntax-error$1 #f \"bad syntax\" orig-s_41))))))"
-"(values lambda56_0 formals57_0 body58_0))"
-"                                             (raise-syntax-error$1 #f \"bad syntax\" orig-s_41)))))"
-"(values #t lambda53_1 formals54_1 body55_1))))))"
-"(let-values(((rebuild-s_4)"
-"(let-values(((ctx61_0) ctx_81)((s62_2) s_13)((temp63_5) #t))"
-"(keep-as-needed120.1 #f #f #f #f temp63_5 #t ctx61_0 s62_2))))"
-"(let-values(((formals_2 body_13)"
-"(lambda-clause-expander s_13 disarmed-s_6 formals54_0 body55_0 ctx_81 'lambda-renames)))"
-"(if(expand-context-to-parsed? ctx_81)"
-"(parsed-lambda5.1 rebuild-s_4 formals_2 body_13)"
-"(let-values(((rebuild-s64_0) rebuild-s_4)((temp65_6)(list* lambda53_0 formals_2 body_13)))"
-"(rebuild5.1 #f #f rebuild-s64_0 temp65_6)))))))))))"
-"(void"
-"(add-core-form!*"
-" 'λ"
-"(lambda(s_26)"
-"(let-values(((ok?_37 lam-id66_0 formals67_0 _68_0)"
-"(let-values(((s_507) s_26))"
-"(let-values(((orig-s_39) s_507))"
-"(let-values(((lam-id66_1 formals67_1 _68_1)"
-"(let-values(((s_319)(if(syntax?$1 s_507)(syntax-e$1 s_507) s_507)))"
-"(if(pair? s_319)"
-"(let-values(((lam-id69_0)(let-values(((s_508)(car s_319))) s_508))"
-"((formals70_0 _71_1)"
-"(let-values(((s_509)(cdr s_319)))"
-"(let-values(((s_52)"
-"(if(syntax?$1 s_509)(syntax-e$1 s_509) s_509)))"
-"(if(pair? s_52)"
-"(let-values(((formals72_0)"
-"(let-values(((s_53)(car s_52))) s_53))"
-"((_73_0)"
-"(let-values(((s_54)(cdr s_52)))"
-"(let-values(((s_167)"
-"(if(syntax?$1 s_54)"
-"(syntax-e$1 s_54)"
-" s_54)))"
+"(let-values(((ok?_37 lambda52_0 formals53_0 body54_0)"
+"(let-values(((s_493) disarmed-s_6))"
+"(let-values(((orig-s_40) s_493))"
+"(let-values(((lambda52_1 formals53_1 body54_1)"
+"(let-values(((s_172)(if(syntax?$1 s_493)(syntax-e$1 s_493) s_493)))"
+"(if(pair? s_172)"
+"(let-values(((lambda55_0)(let-values(((s_45)(car s_172))) s_45))"
+"((formals56_0 body57_0)"
+"(let-values(((s_70)(cdr s_172)))"
+"(let-values(((s_174)"
+"(if(syntax?$1 s_70)"
+"(syntax-e$1 s_70)"
+" s_70)))"
+"(if(pair? s_174)"
+"(let-values(((formals58_0)"
+"(let-values(((s_175)(car s_174)))"
+" s_175))"
+"((body59_0)"
+"(let-values(((s_176)(cdr s_174)))"
+"(let-values(((s_450)"
+"(if(syntax?$1 s_176)"
+"(syntax-e$1 s_176)"
+" s_176)))"
 "(let-values(((flat-s_28)"
-"(to-syntax-list.1 s_167)))"
+"(to-syntax-list.1"
+" s_450)))"
 "(if(not flat-s_28)"
 "(let-values()"
 "(raise-syntax-error$1"
 " #f"
-"                                                                                      \"bad syntax\""
-" orig-s_39))"
+"                                                                                          \"bad syntax\""
+" orig-s_40))"
 "(if(null? flat-s_28)"
 "(let-values()"
 "(raise-syntax-error$1"
 " #f"
+"                                                                                            \"bad syntax\""
+" orig-s_40))"
+"(let-values()"
+" flat-s_28))))))))"
+"(values formals58_0 body59_0))"
+"                                                                 (raise-syntax-error$1 #f \"bad syntax\" orig-s_40))))))"
+"(values lambda55_0 formals56_0 body57_0))"
+"                                             (raise-syntax-error$1 #f \"bad syntax\" orig-s_40)))))"
+"(values #t lambda52_1 formals53_1 body54_1))))))"
+"(let-values(((rebuild-s_4)"
+"(let-values(((ctx60_1) ctx_80)((s61_0) s_13)((temp62_2) #t))"
+"(keep-as-needed119.1 #f #f temp62_2 ctx60_1 s61_0))))"
+"(let-values(((formals_2 body_11)"
+"(lambda-clause-expander s_13 disarmed-s_6 formals53_0 body54_0 ctx_80 'lambda-renames)))"
+"(if(expand-context-to-parsed? ctx_80)"
+"(parsed-lambda5.1 rebuild-s_4 formals_2 body_11)"
+"(let-values(((rebuild-s63_0) rebuild-s_4)((temp64_4)(list* lambda52_0 formals_2 body_11)))"
+"(rebuild5.1 #t rebuild-s63_0 temp64_4)))))))))))"
+"(void"
+"(add-core-form!*"
+" 'λ"
+"(lambda(s_26)"
+"(let-values(((ok?_38 lam-id65_0 formals66_0 _67_0)"
+"(let-values(((s_517) s_26))"
+"(let-values(((orig-s_41) s_517))"
+"(let-values(((lam-id65_1 formals66_1 _67_1)"
+"(let-values(((s_500)(if(syntax?$1 s_517)(syntax-e$1 s_517) s_517)))"
+"(if(pair? s_500)"
+"(let-values(((lam-id68_0)(let-values(((s_505)(car s_500))) s_505))"
+"((formals69_0 _70_0)"
+"(let-values(((s_506)(cdr s_500)))"
+"(let-values(((s_52)"
+"(if(syntax?$1 s_506)(syntax-e$1 s_506) s_506)))"
+"(if(pair? s_52)"
+"(let-values(((formals71_0)"
+"(let-values(((s_53)(car s_52))) s_53))"
+"((_72_0)"
+"(let-values(((s_54)(cdr s_52)))"
+"(let-values(((s_310)"
+"(if(syntax?$1 s_54)"
+"(syntax-e$1 s_54)"
+" s_54)))"
+"(let-values(((flat-s_29)"
+"(to-syntax-list.1 s_310)))"
+"(if(not flat-s_29)"
+"(let-values()"
+"(raise-syntax-error$1"
+" #f"
+"                                                                                      \"bad syntax\""
+" orig-s_41))"
+"(if(null? flat-s_29)"
+"(let-values()"
+"(raise-syntax-error$1"
+" #f"
 "                                                                                        \"bad syntax\""
-" orig-s_39))"
-"(let-values() flat-s_28))))))))"
-"(values formals72_0 _73_0))"
-"                                                             (raise-syntax-error$1 #f \"bad syntax\" orig-s_39))))))"
-"(values lam-id69_0 formals70_0 _71_1))"
-"                                         (raise-syntax-error$1 #f \"bad syntax\" orig-s_39)))))"
-"(values #t lam-id66_1 formals67_1 _68_1))))))"
-"(let-values(((ids_35)(parse-and-flatten-formals formals67_0 #f s_26)))"
-"(let-values(((ctx_82)(let-values(((temp78_4) #t))(get-current-expand-context17.1 temp78_4 #t #f #f))))"
-"(let-values(((phase_148)(if ctx_82(expand-context-phase ctx_82) 0)))"
+" orig-s_41))"
+"(let-values() flat-s_29))))))))"
+"(values formals71_0 _72_0))"
+"                                                             (raise-syntax-error$1 #f \"bad syntax\" orig-s_41))))))"
+"(values lam-id68_0 formals69_0 _70_0))"
+"                                         (raise-syntax-error$1 #f \"bad syntax\" orig-s_41)))))"
+"(values #t lam-id65_1 formals66_1 _67_1))))))"
+"(let-values(((ids_36)(parse-and-flatten-formals formals66_0 #f s_26)))"
+"(let-values(((ctx_73)(let-values(((temp77_4) #t))(get-current-expand-context16.1 temp77_4 'unexpected))))"
+"(let-values(((phase_91)(if ctx_73(expand-context-phase ctx_73) 0)))"
 "(begin"
-"               (let-values (((ids74_0) ids_35) ((phase75_0) phase_148) ((s76_1) s_26) ((temp77_3) \"argument name\"))"
-"(check-no-duplicate-ids8.1 temp77_3 #t ids74_0 phase75_0 s76_1 #f #f))"
+"               (let-values (((ids73_0) ids_36) ((phase74_2) phase_91) ((s75_0) s_26) ((temp76_6) \"argument name\"))"
+"(check-no-duplicate-ids7.1 temp76_6 ids73_0 phase74_2 s75_0 unsafe-undefined))"
 "(datum->syntax$1"
 " s_26"
 "(cons"
-"(datum->syntax$1(syntax-shift-phase-level$1 core-stx phase_148) 'lambda lam-id66_0 lam-id66_0)"
+"(datum->syntax$1(syntax-shift-phase-level$1 core-stx phase_91) 'lambda lam-id65_0 lam-id65_0)"
 "(cdr(syntax-e$1 s_26)))"
 " s_26"
 " s_26)))))))))"
 "(void"
 "(add-core-form!*"
 " 'case-lambda"
-"(lambda(s_522 ctx_83)"
+"(lambda(s_453 ctx_81)"
 "(let-values((()"
 "(begin"
-"(let-values(((obs_90)(expand-context-observer ctx_83)))"
-"(if obs_90"
-"(let-values()(let-values()(call-expand-observe obs_90 'prim-case-lambda)))"
+"(let-values(((obs_87)(expand-context-observer ctx_81)))"
+"(if obs_87"
+"(let-values()(let-values()(call-expand-observe obs_87 'prim-case-lambda)))"
 "(void)))"
 "(values))))"
-"(let-values(((disarmed-s_7)(syntax-disarm$1 s_522)))"
-"(let-values(((ok?_1 case-lambda79_0 formals80_0 body81_0)"
-"(let-values(((s_523) disarmed-s_7))"
-"(let-values(((orig-s_42) s_523))"
-"(let-values(((case-lambda79_1 formals80_1 body81_1)"
-"(let-values(((s_444)(if(syntax?$1 s_523)(syntax-e$1 s_523) s_523)))"
-"(if(pair? s_444)"
-"(let-values(((case-lambda82_0)(let-values(((s_37)(car s_444))) s_37))"
-"((formals83_0 body84_0)"
-"(let-values(((s_65)(cdr s_444)))"
-"(let-values(((s_524)"
-"(if(syntax?$1 s_65)"
-"(syntax-e$1 s_65)"
-" s_65)))"
-"(let-values(((flat-s_29)(to-syntax-list.1 s_524)))"
-"(if(not flat-s_29)"
+"(let-values(((disarmed-s_7)(syntax-disarm$1 s_453)))"
+"(let-values(((ok?_39 case-lambda78_0 formals79_0 body80_0)"
+"(let-values(((s_518) disarmed-s_7))"
+"(let-values(((orig-s_42) s_518))"
+"(let-values(((case-lambda78_1 formals79_1 body80_1)"
+"(let-values(((s_416)(if(syntax?$1 s_518)(syntax-e$1 s_518) s_518)))"
+"(if(pair? s_416)"
+"(let-values(((case-lambda81_0)(let-values(((s_519)(car s_416))) s_519))"
+"((formals82_0 body83_0)"
+"(let-values(((s_407)(cdr s_416)))"
+"(let-values(((s_520)"
+"(if(syntax?$1 s_407)"
+"(syntax-e$1 s_407)"
+" s_407)))"
+"(let-values(((flat-s_30)(to-syntax-list.1 s_520)))"
+"(if(not flat-s_30)"
 "(let-values()"
 "                                                                     (raise-syntax-error$1 #f \"bad syntax\" orig-s_42))"
 "(let-values()"
-"(let-values(((formals_3 body_14)"
-"(let-values(((lst_310) flat-s_29))"
+"(let-values(((formals_3 body_12)"
+"(let-values(((lst_328) flat-s_30))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
 "(#%variable-reference))"
 "(void)"
 "(let-values()"
-"(check-list lst_310)))"
-"((letrec-values(((for-loop_289)"
+"(check-list lst_328)))"
+"((letrec-values(((for-loop_290)"
 "(lambda(formals_4"
-" body_15"
-" lst_32)"
+" body_13"
+" lst_329)"
 "(begin"
 " 'for-loop"
 "(if(pair?"
-" lst_32)"
-"(let-values(((s_327)"
+" lst_329)"
+"(let-values(((s_208)"
 "(unsafe-car"
-" lst_32))"
-"((rest_195)"
+" lst_329))"
+"((rest_199)"
 "(unsafe-cdr"
-" lst_32)))"
+" lst_329)))"
 "(let-values(((formals_5"
-" body_16)"
+" body_14)"
 "(let-values(((formals_6)"
 " formals_4)"
-"((body_17)"
-" body_15))"
+"((body_15)"
+" body_13))"
 "(let-values(((formals_7"
-" body_18)"
+" body_16)"
 "(let-values()"
-"(let-values(((formals91_0"
-" body92_0)"
+"(let-values(((formals90_0"
+" body91_0)"
 "(let-values()"
-"(let-values(((s_212)"
+"(let-values(((s_521)"
 "(if(syntax?$1"
-" s_327)"
+" s_208)"
 "(syntax-e$1"
-" s_327)"
-" s_327)))"
+" s_208)"
+" s_208)))"
 "(if(pair?"
-" s_212)"
-"(let-values(((formals85_0)"
-"(let-values(((s_525)"
+" s_521)"
+"(let-values(((formals84_0)"
+"(let-values(((s_522)"
 "(car"
-" s_212)))"
-" s_525))"
-"((body86_0)"
-"(let-values(((s_463)"
+" s_521)))"
+" s_522))"
+"((body85_0)"
+"(let-values(((s_523)"
 "(cdr"
-" s_212)))"
-"(let-values(((s_464)"
+" s_521)))"
+"(let-values(((s_524)"
 "(if(syntax?$1"
-" s_463)"
+" s_523)"
 "(syntax-e$1"
-" s_463)"
-" s_463)))"
-"(let-values(((flat-s_30)"
+" s_523)"
+" s_523)))"
+"(let-values(((flat-s_31)"
 "(to-syntax-list.1"
-" s_464)))"
+" s_524)))"
 "(if(not"
-" flat-s_30)"
+" flat-s_31)"
 "(let-values()"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                              \"bad syntax\""
 " orig-s_42))"
 "(if(null?"
-" flat-s_30)"
+" flat-s_31)"
 "(let-values()"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                                \"bad syntax\""
 " orig-s_42))"
 "(let-values()"
-" flat-s_30))))))))"
+" flat-s_31))))))))"
 "(values"
-" formals85_0"
-" body86_0))"
+" formals84_0"
+" body85_0))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                      \"bad syntax\""
 " orig-s_42))))))"
 "(values"
 "(cons"
-" formals91_0"
+" formals90_0"
 " formals_6)"
 "(cons"
-" body92_0"
-" body_17))))))"
+" body91_0"
+" body_15))))))"
 "(values"
 " formals_7"
-" body_18)))))"
+" body_16)))))"
 "(if(not"
 " #f)"
-"(for-loop_289"
+"(for-loop_290"
 " formals_5"
-" body_16"
-" rest_195)"
+" body_14"
+" rest_199)"
 "(values"
 " formals_5"
-" body_16))))"
+" body_14))))"
 "(values"
 " formals_4"
-" body_15))))))"
-" for-loop_289)"
+" body_13))))))"
+" for-loop_290)"
 " null"
 " null"
-" lst_310)))))"
+" lst_328)))))"
 "(values"
 "(reverse$1 formals_3)"
-"(reverse$1 body_14))))))))))"
-"(values case-lambda82_0 formals83_0 body84_0))"
+"(reverse$1 body_12))))))))))"
+"(values case-lambda81_0 formals82_0 body83_0))"
 "                                             (raise-syntax-error$1 #f \"bad syntax\" orig-s_42)))))"
-"(values #t case-lambda79_1 formals80_1 body81_1))))))"
-"(let-values(((ok?_38 case-lambda87_0 clause88_0)"
-"(let-values(((s_465) disarmed-s_7))"
-"(let-values(((orig-s_43) s_465))"
-"(let-values(((case-lambda87_1 clause88_1)"
-"(let-values(((s_445)(if(syntax?$1 s_465)(syntax-e$1 s_465) s_465)))"
-"(if(pair? s_445)"
-"(let-values(((case-lambda89_0)"
-"(let-values(((s_526)(car s_445))) s_526))"
-"((clause90_0)"
-"(let-values(((s_421)(cdr s_445)))"
+"(values #t case-lambda78_1 formals79_1 body80_1))))))"
+"(let-values(((ok?_40 case-lambda86_0 clause87_0)"
+"(let-values(((s_525) disarmed-s_7))"
+"(let-values(((orig-s_43) s_525))"
+"(let-values(((case-lambda86_1 clause87_1)"
+"(let-values(((s_458)(if(syntax?$1 s_525)(syntax-e$1 s_525) s_525)))"
+"(if(pair? s_458)"
+"(let-values(((case-lambda88_0)"
+"(let-values(((s_210)(car s_458))) s_210))"
+"((clause89_0)"
+"(let-values(((s_526)(cdr s_458)))"
 "(let-values(((s_527)"
-"(if(syntax?$1 s_421)"
-"(syntax-e$1 s_421)"
-" s_421)))"
-"(let-values(((flat-s_31)(to-syntax-list.1 s_527)))"
-"(if(not flat-s_31)"
+"(if(syntax?$1 s_526)"
+"(syntax-e$1 s_526)"
+" s_526)))"
+"(let-values(((flat-s_32)(to-syntax-list.1 s_527)))"
+"(if(not flat-s_32)"
 "(let-values()"
 "                                                                       (raise-syntax-error$1 #f \"bad syntax\" orig-s_43))"
-"(let-values() flat-s_31)))))))"
-"(values case-lambda89_0 clause90_0))"
+"(let-values() flat-s_32)))))))"
+"(values case-lambda88_0 clause89_0))"
 "                                               (raise-syntax-error$1 #f \"bad syntax\" orig-s_43)))))"
-"(values #t case-lambda87_1 clause88_1))))))"
+"(values #t case-lambda86_1 clause87_1))))))"
 "(let-values(((rebuild-s_5)"
-"(let-values(((ctx93_0) ctx_83)((s94_0) s_522)((temp95_3) #t))"
-"(keep-as-needed120.1 #f #f #f #f temp95_3 #t ctx93_0 s94_0))))"
+"(let-values(((ctx92_0) ctx_81)((s93_0) s_453)((temp94_2) #t))"
+"(keep-as-needed119.1 #f #f temp94_2 ctx92_0 s93_0))))"
 "(let-values(((clauses_1)"
 "(reverse$1"
-"(let-values(((lst_336) formals80_0)((lst_109) body81_0)((lst_337) clause88_0))"
+"(let-values(((lst_112) formals79_0)((lst_200) body80_0)((lst_113) clause87_0))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
-"(let-values()(check-list lst_336)))"
+"(let-values()(check-list lst_112)))"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
-"(let-values()(check-list lst_109)))"
+"(let-values()(check-list lst_200)))"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
-"(let-values()(check-list lst_337)))"
-"((letrec-values(((for-loop_297)"
-"(lambda(fold-var_320 lst_338 lst_54 lst_339)"
+"(let-values()(check-list lst_113)))"
+"((letrec-values(((for-loop_31)"
+"(lambda(fold-var_193 lst_330 lst_331 lst_332)"
 "(begin"
 " 'for-loop"
-"(if(if(pair? lst_338)"
-"(if(pair? lst_54)(pair? lst_339) #f)"
+"(if(if(pair? lst_330)"
+"(if(pair? lst_331)(pair? lst_332) #f)"
 " #f)"
-"(let-values(((formals_8)(unsafe-car lst_338))"
-"((rest_196)(unsafe-cdr lst_338))"
-"((body_19)(unsafe-car lst_54))"
-"((rest_197)(unsafe-cdr lst_54))"
-"((clause_3)(unsafe-car lst_339))"
-"((rest_24)(unsafe-cdr lst_339)))"
-"(let-values(((fold-var_105)"
-"(let-values(((fold-var_196) fold-var_320))"
-"(let-values(((fold-var_197)"
+"(let-values(((formals_8)(unsafe-car lst_330))"
+"((rest_200)(unsafe-cdr lst_330))"
+"((body_17)(unsafe-car lst_331))"
+"((rest_201)(unsafe-cdr lst_331))"
+"((clause_3)(unsafe-car lst_332))"
+"((rest_202)(unsafe-cdr lst_332)))"
+"(let-values(((fold-var_310)"
+"(let-values(((fold-var_311) fold-var_193))"
+"(let-values(((fold-var_312)"
 "(let-values()"
 "(cons"
 "(let-values()"
 "(let-values((()"
 "(begin"
-"(let-values(((obs_91)"
+"(let-values(((obs_88)"
 "(expand-context-observer"
-" ctx_83)))"
-"(if obs_91"
+" ctx_81)))"
+"(if obs_88"
 "(let-values()"
 "(let-values()"
 "(call-expand-observe"
-" obs_91"
+" obs_88"
 " 'next)))"
 "(void)))"
 "(values))))"
 "(let-values(((rebuild-clause_0)"
-"(let-values(((ctx96_0)"
-" ctx_83)"
-"((clause97_0)"
+"(let-values(((ctx95_0)"
+" ctx_81)"
+"((clause96_0)"
 " clause_3))"
-"(keep-as-needed120.1"
+"(keep-as-needed119.1"
 " #f"
 " #f"
 " #f"
-" #f"
-" #f"
-" #f"
-" ctx96_0"
-" clause97_0))))"
+" ctx95_0"
+" clause96_0))))"
 "(let-values(((exp-formals_0"
 " exp-body_3)"
 "(lambda-clause-expander"
-" s_522"
+" s_453"
 " disarmed-s_7"
 " formals_8"
-" body_19"
-" ctx_83"
+" body_17"
+" ctx_81"
 " 'lambda-renames)))"
 "(if(expand-context-to-parsed?"
-" ctx_83)"
+" ctx_81)"
 "(list"
 " exp-formals_0"
 " exp-body_3)"
-"(let-values(((rebuild-clause98_0)"
+"(let-values(((rebuild-clause97_0)"
 " rebuild-clause_0)"
-"((temp99_2)"
+"((temp98_2)"
 "(list*"
 " exp-formals_0"
 " exp-body_3)))"
 "(rebuild5.1"
-" #f"
-" #f"
-" rebuild-clause98_0"
-" temp99_2)))))))"
-" fold-var_196))))"
-"(values fold-var_197)))))"
+" #t"
+" rebuild-clause97_0"
+" temp98_2)))))))"
+" fold-var_311))))"
+"(values fold-var_312)))))"
 "(if(not #f)"
-"(for-loop_297 fold-var_105 rest_196 rest_197 rest_24)"
-" fold-var_105)))"
-" fold-var_320)))))"
-" for-loop_297)"
+"(for-loop_31 fold-var_310 rest_200 rest_201 rest_202)"
+" fold-var_310)))"
+" fold-var_193)))))"
+" for-loop_31)"
 " null"
-" lst_336"
-" lst_109"
-" lst_337))))))"
-"(if(expand-context-to-parsed? ctx_83)"
+" lst_112"
+" lst_200"
+" lst_113))))))"
+"(if(expand-context-to-parsed? ctx_81)"
 "(parsed-case-lambda6.1 rebuild-s_5 clauses_1)"
-"(let-values(((rebuild-s100_0) rebuild-s_5)((temp101_5)(list* case-lambda79_0 clauses_1)))"
-"(rebuild5.1 #f #f rebuild-s100_0 temp101_5))))))))))))"
+"(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_36 s_98)"
+"(lambda(all-formals_0 sc_37 s_528)"
 "(begin"
-"((letrec-values(((loop_125)"
+"((letrec-values(((loop_121)"
 "(lambda(formals_9)"
 "(begin"
 " 'loop"
 "(if(identifier? formals_9)"
-"(let-values()(list(add-scope formals_9 sc_36)))"
+"(let-values()(list(add-scope formals_9 sc_37)))"
 "(if(syntax?$1 formals_9)"
 "(let-values()"
-"(let-values(((p_87)(syntax-e$1 formals_9)))"
-"(if(pair? p_87)"
-"(let-values()(loop_125 p_87))"
-"(if(null? p_87)"
+"(let-values(((p_85)(syntax-e$1 formals_9)))"
+"(if(pair? p_85)"
+"(let-values()(loop_121 p_85))"
+"(if(null? p_85)"
 "(let-values() null)"
-"                                        (let-values () (raise-syntax-error$1 #f \"not an identifier\" s_98 p_87))))))"
+"                                        (let-values () (raise-syntax-error$1 #f \"not an identifier\" s_528 p_85))))))"
 "(if(pair? formals_9)"
 "(let-values()"
 "(begin"
 "(if(identifier?(car formals_9))"
 "(void)"
 "(let-values()"
-"                                          (raise-syntax-error$1 #f \"not an identifier\" s_98 (car formals_9))))"
+"                                          (raise-syntax-error$1 #f \"not an identifier\" s_528 (car formals_9))))"
 "(cons"
-"(if sc_36(add-scope(car formals_9) sc_36)(car formals_9))"
-"(loop_125(cdr formals_9)))))"
+"(if sc_37(add-scope(car formals_9) sc_37)(car formals_9))"
+"(loop_121(cdr formals_9)))))"
 "(if(null? formals_9)"
 "(let-values() null)"
 "(let-values()"
-"                                      (raise-syntax-error$1 \"bad argument sequence\" s_98 all-formals_0))))))))))"
-" loop_125)"
+"                                      (raise-syntax-error$1 \"bad argument sequence\" s_528 all-formals_0))))))))))"
+" loop_121)"
 " all-formals_0))))"
 "(define-values"
 "(unflatten-like-formals)"
 "(lambda(keys_8 formals_10)"
 "(begin"
-"((letrec-values(((loop_69)"
+"((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_69(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_69 keys_9(syntax-e$1 formals_11)))"
+"(let-values()(loop_122 keys_9(syntax-e$1 formals_11)))"
 "(let-values()(car keys_9)))))))))"
-" loop_69)"
+" loop_122)"
 " keys_8"
 " formals_10))))"
 "(define-values"
 "(make-let-values-form11.1)"
-"(lambda(log-tag1_0"
-" rec?3_0"
-" rec?8_0"
-" renames-log-tag5_0"
-" renames-log-tag10_0"
-" split-by-reference?4_0"
-" split-by-reference?9_0"
-" syntaxes?2_0"
-" syntaxes?7_0)"
+"(lambda(log-tag1_0 rec?3_0 renames-log-tag5_0 split-by-reference?4_0 syntaxes?2_0)"
 "(begin"
 " 'make-let-values-form11"
 "(let-values(((log-tag_0) log-tag1_0))"
-"(let-values(((syntaxes?_0)(if syntaxes?7_0 syntaxes?2_0 #f)))"
-"(let-values(((rec?_1)(if rec?8_0 rec?3_0 #f)))"
-"(let-values(((split-by-reference?_0)(if split-by-reference?9_0 split-by-reference?4_0 #f)))"
-"(let-values(((renames-log-tag_0)(if renames-log-tag10_0 renames-log-tag5_0 'let-renames)))"
+"(let-values(((syntaxes?_0) syntaxes?2_0))"
+"(let-values(((rec?_1) rec?3_0))"
+"(let-values(((split-by-reference?_0) split-by-reference?4_0))"
+"(let-values(((renames-log-tag_0) renames-log-tag5_0))"
 "(let-values()"
-"(lambda(s_528 ctx_84)"
+"(lambda(s_104 ctx_82)"
 "(let-values((()"
 "(begin"
-"(let-values(((obs_23)(expand-context-observer ctx_84)))"
-"(if obs_23"
-"(let-values()(let-values()(call-expand-observe obs_23 log-tag_0)))"
+"(let-values(((obs_89)(expand-context-observer ctx_82)))"
+"(if obs_89"
+"(let-values()(let-values()(call-expand-observe obs_89 log-tag_0)))"
 "(void)))"
 "(values))))"
-"(let-values(((disarmed-s_8)(syntax-disarm$1 s_528)))"
-"(let-values(((ok?_39"
-" letrec-syntaxes+values102_0"
-" id:trans103_0"
-" trans-rhs104_0"
-" id:val105_0"
-" val-rhs106_0"
-" body107_0)"
-"(let-values(((s_529) disarmed-s_8))"
+"(let-values(((disarmed-s_8)(syntax-disarm$1 s_104)))"
+"(let-values(((ok?_41"
+" letrec-syntaxes+values101_0"
+" id:trans102_0"
+" trans-rhs103_0"
+" id:val104_0"
+" val-rhs105_0"
+" body106_0)"
+"(let-values(((s_127) disarmed-s_8))"
 "(if(if syntaxes?_0 #t #f)"
-"(let-values(((orig-s_44) s_529))"
-"(let-values(((letrec-syntaxes+values102_1"
-" id:trans103_1"
-" trans-rhs104_1"
-" id:val105_1"
-" val-rhs106_1"
-" body107_1)"
-"(let-values(((s_472)"
-"(if(syntax?$1 s_529)"
-"(syntax-e$1 s_529)"
-" s_529)))"
-"(if(pair? s_472)"
-"(let-values(((letrec-syntaxes+values108_0)"
-"(let-values(((s_530)(car s_472))) s_530))"
-"((id:trans109_0"
-" trans-rhs110_0"
-" id:val111_0"
-" val-rhs112_0"
-" body113_0)"
-"(let-values(((s_531)(cdr s_472)))"
-"(let-values(((s_532)"
-"(if(syntax?$1 s_531)"
-"(syntax-e$1 s_531)"
-" s_531)))"
-"(if(pair? s_532)"
-"(let-values(((id:trans114_0"
-" trans-rhs115_0)"
-"(let-values(((s_131)"
+"(let-values(((orig-s_44) s_127))"
+"(let-values(((letrec-syntaxes+values101_1"
+" id:trans102_1"
+" trans-rhs103_1"
+" id:val104_1"
+" val-rhs105_1"
+" body106_1)"
+"(let-values(((s_529)"
+"(if(syntax?$1 s_127)"
+"(syntax-e$1 s_127)"
+" s_127)))"
+"(if(pair? s_529)"
+"(let-values(((letrec-syntaxes+values107_0)"
+"(let-values(((s_530)(car s_529))) s_530))"
+"((id:trans108_0"
+" trans-rhs109_0"
+" id:val110_0"
+" val-rhs111_0"
+" body112_0)"
+"(let-values(((s_230)(cdr s_529)))"
+"(let-values(((s_231)"
+"(if(syntax?$1 s_230)"
+"(syntax-e$1 s_230)"
+" s_230)))"
+"(if(pair? s_231)"
+"(let-values(((id:trans113_0"
+" trans-rhs114_0)"
+"(let-values(((s_234)"
 "(car"
-" s_532)))"
+" s_231)))"
 "(let-values(((s_235)"
 "(if(syntax?$1"
-" s_131)"
+" s_234)"
 "(syntax-e$1"
-" s_131)"
-" s_131)))"
-"(let-values(((flat-s_32)"
+" s_234)"
+" s_234)))"
+"(let-values(((flat-s_33)"
 "(to-syntax-list.1"
 " s_235)))"
 "(if(not"
-" flat-s_32)"
+" flat-s_33)"
 "(let-values()"
 "(raise-syntax-error$1"
 " #f"
@@ -65350,29 +63750,29 @@ static const char *startup_source =
 "(let-values()"
 "(let-values(((id:trans_0"
 " trans-rhs_0)"
-"(let-values(((lst_213)"
-" flat-s_32))"
+"(let-values(((lst_333)"
+" flat-s_33))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
 "(#%variable-reference))"
 "(void)"
 "(let-values()"
 "(check-list"
-" lst_213)))"
-"((letrec-values(((for-loop_298)"
+" lst_333)))"
+"((letrec-values(((for-loop_291)"
 "(lambda(id:trans_1"
 " trans-rhs_1"
-" lst_340)"
+" lst_334)"
 "(begin"
 " 'for-loop"
 "(if(pair?"
-" lst_340)"
-"(let-values(((s_240)"
+" lst_334)"
+"(let-values(((s_334)"
 "(unsafe-car"
-" lst_340))"
-"((rest_198)"
+" lst_334))"
+"((rest_203)"
 "(unsafe-cdr"
-" lst_340)))"
+" lst_334)))"
 "(let-values(((id:trans_2"
 " trans-rhs_2)"
 "(let-values(((id:trans_3)"
@@ -65382,32 +63782,32 @@ static const char *startup_source =
 "(let-values(((id:trans_4"
 " trans-rhs_4)"
 "(let-values()"
-"(let-values(((id:trans145_0"
-" trans-rhs146_0)"
+"(let-values(((id:trans144_0"
+" trans-rhs145_0)"
 "(let-values()"
-"(let-values(((s_533)"
+"(let-values(((s_531)"
 "(if(syntax?$1"
-" s_240)"
+" s_334)"
 "(syntax-e$1"
-" s_240)"
-" s_240)))"
+" s_334)"
+" s_334)))"
 "(if(pair?"
-" s_533)"
-"(let-values(((id:trans119_0)"
-"(let-values(((s_344)"
+" s_531)"
+"(let-values(((id:trans118_0)"
+"(let-values(((s_340)"
 "(car"
-" s_533)))"
-"(let-values(((s_345)"
+" s_531)))"
+"(let-values(((s_341)"
 "(if(syntax?$1"
-" s_344)"
+" s_340)"
 "(syntax-e$1"
-" s_344)"
-" s_344)))"
-"(let-values(((flat-s_33)"
+" s_340)"
+" s_340)))"
+"(let-values(((flat-s_34)"
 "(to-syntax-list.1"
-" s_345)))"
+" s_341)))"
 "(if(not"
-" flat-s_33)"
+" flat-s_34)"
 "(let-values()"
 "(raise-syntax-error$1"
 " #f"
@@ -65415,90 +63815,90 @@ static const char *startup_source =
 " orig-s_44))"
 "(let-values()"
 "(let-values(((id:trans_5)"
-"(let-values(((lst_341)"
-" flat-s_33))"
+"(let-values(((lst_335)"
+" flat-s_34))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
 "(#%variable-reference))"
 "(void)"
 "(let-values()"
 "(check-list"
-" lst_341)))"
-"((letrec-values(((for-loop_267)"
+" lst_335)))"
+"((letrec-values(((for-loop_292)"
 "(lambda(id:trans_6"
-" lst_342)"
+" lst_213)"
 "(begin"
 " 'for-loop"
 "(if(pair?"
-" lst_342)"
-"(let-values(((s_348)"
+" lst_213)"
+"(let-values(((s_532)"
 "(unsafe-car"
-" lst_342))"
-"((rest_199)"
+" lst_213))"
+"((rest_204)"
 "(unsafe-cdr"
-" lst_342)))"
+" lst_213)))"
 "(let-values(((id:trans_7)"
 "(let-values(((id:trans_8)"
 " id:trans_6))"
 "(let-values(((id:trans_9)"
 "(let-values()"
-"(let-values(((id:trans147_0)"
+"(let-values(((id:trans146_0)"
 "(let-values()"
-"(if(let-values(((or-part_267)"
+"(if(let-values(((or-part_340)"
 "(if(syntax?$1"
-" s_348)"
+" s_532)"
 "(symbol?"
 "(syntax-e$1"
-" s_348))"
+" s_532))"
 " #f)))"
-"(if or-part_267"
-" or-part_267"
+"(if or-part_340"
+" or-part_340"
 "(symbol?"
-" s_348)))"
-" s_348"
+" s_532)))"
+" s_532"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                                                                                                                                                                 \"not an identifier\""
 " orig-s_44"
-" s_348)))))"
+" s_532)))))"
 "(cons"
-" id:trans147_0"
+" id:trans146_0"
 " id:trans_8)))))"
 "(values"
 " id:trans_9)))))"
 "(if(not"
 " #f)"
-"(for-loop_267"
+"(for-loop_292"
 " id:trans_7"
-" rest_199)"
+" rest_204)"
 " id:trans_7)))"
 " id:trans_6)))))"
-" for-loop_267)"
+" for-loop_292)"
 " null"
-" lst_341)))))"
+" lst_335)))))"
 "(reverse$1"
 " id:trans_5))))))))"
-"((trans-rhs120_0)"
-"(let-values(((s_243)"
+"((trans-rhs119_0)"
+"(let-values(((s_242)"
 "(cdr"
-" s_533)))"
-"(let-values(((s_475)"
+" s_531)))"
+"(let-values(((s_533)"
 "(if(syntax?$1"
-" s_243)"
+" s_242)"
 "(syntax-e$1"
-" s_243)"
-" s_243)))"
+" s_242)"
+" s_242)))"
 "(if(pair?"
-" s_475)"
-"(let-values(((trans-rhs121_0)"
-"(let-values(((s_534)"
+" s_533)"
+"(let-values(((trans-rhs120_0)"
+"(let-values(((s_243)"
 "(car"
-" s_475)))"
-" s_534))"
+" s_533)))"
+" s_243))"
 "(()"
 "(let-values(((s_244)"
 "(cdr"
-" s_475)))"
+" s_533)))"
 "(let-values(((s_245)"
 "(if(syntax?$1"
 " s_244)"
@@ -65513,78 +63913,78 @@ static const char *startup_source =
 "                                                                                                                                                                                                                                                   \"bad syntax\""
 " orig-s_44))))))"
 "(values"
-" trans-rhs121_0))"
+" trans-rhs120_0))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                                                               \"bad syntax\""
 " orig-s_44))))))"
 "(values"
-" id:trans119_0"
-" trans-rhs120_0))"
+" id:trans118_0"
+" trans-rhs119_0))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                                           \"bad syntax\""
 " orig-s_44))))))"
 "(values"
 "(cons"
-" id:trans145_0"
+" id:trans144_0"
 " id:trans_3)"
 "(cons"
-" trans-rhs146_0"
+" trans-rhs145_0"
 " trans-rhs_3))))))"
 "(values"
 " id:trans_4"
 " trans-rhs_4)))))"
 "(if(not"
 " #f)"
-"(for-loop_298"
+"(for-loop_291"
 " id:trans_2"
 " trans-rhs_2"
-" rest_198)"
+" rest_203)"
 "(values"
 " id:trans_2"
 " trans-rhs_2))))"
 "(values"
 " id:trans_1"
 " trans-rhs_1))))))"
-" for-loop_298)"
+" for-loop_291)"
 " null"
 " null"
-" lst_213)))))"
+" lst_333)))))"
 "(values"
 "(reverse$1"
 " id:trans_0)"
 "(reverse$1"
 " trans-rhs_0)))))))))"
-"((id:val116_0"
-" val-rhs117_0"
-" body118_0)"
-"(let-values(((s_246)"
+"((id:val115_0"
+" val-rhs116_0"
+" body117_0)"
+"(let-values(((s_534)"
 "(cdr"
-" s_532)))"
-"(let-values(((s_353)"
+" s_231)))"
+"(let-values(((s_347)"
 "(if(syntax?$1"
-" s_246)"
+" s_534)"
 "(syntax-e$1"
-" s_246)"
-" s_246)))"
-"(if(pair? s_353)"
-"(let-values(((id:val122_0"
-" val-rhs123_0)"
-"(let-values(((s_249)"
-"(car"
-" s_353)))"
+" s_534)"
+" s_534)))"
+"(if(pair? s_347)"
+"(let-values(((id:val121_0"
+" val-rhs122_0)"
 "(let-values(((s_535)"
+"(car"
+" s_347)))"
+"(let-values(((s_246)"
 "(if(syntax?$1"
-" s_249)"
+" s_535)"
 "(syntax-e$1"
-" s_249)"
-" s_249)))"
-"(let-values(((flat-s_34)"
-"(to-syntax-list.1"
+" s_535)"
 " s_535)))"
+"(let-values(((flat-s_35)"
+"(to-syntax-list.1"
+" s_246)))"
 "(if(not"
-" flat-s_34)"
+" flat-s_35)"
 "(let-values()"
 "(raise-syntax-error$1"
 " #f"
@@ -65593,29 +63993,29 @@ static const char *startup_source =
 "(let-values()"
 "(let-values(((id:val_0"
 " val-rhs_1)"
-"(let-values(((lst_343)"
-" flat-s_34))"
+"(let-values(((lst_336)"
+" flat-s_35))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
 "(#%variable-reference))"
 "(void)"
 "(let-values()"
 "(check-list"
-" lst_343)))"
-"((letrec-values(((for-loop_299)"
+" lst_336)))"
+"((letrec-values(((for-loop_293)"
 "(lambda(id:val_1"
 " val-rhs_2"
-" lst_344)"
+" lst_337)"
 "(begin"
 " 'for-loop"
 "(if(pair?"
-" lst_344)"
+" lst_337)"
 "(let-values(((s_536)"
 "(unsafe-car"
-" lst_344))"
-"((rest_200)"
+" lst_337))"
+"((rest_205)"
 "(unsafe-cdr"
-" lst_344)))"
+" lst_337)))"
 "(let-values(((id:val_2"
 " val-rhs_3)"
 "(let-values(((id:val_3)"
@@ -65625,8 +64025,8 @@ static const char *startup_source =
 "(let-values(((id:val_4"
 " val-rhs_5)"
 "(let-values()"
-"(let-values(((id:val148_0"
-" val-rhs149_0)"
+"(let-values(((id:val147_0"
+" val-rhs148_0)"
 "(let-values()"
 "(let-values(((s_537)"
 "(if(syntax?$1"
@@ -65636,21 +64036,21 @@ static const char *startup_source =
 " s_536)))"
 "(if(pair?"
 " s_537)"
-"(let-values(((id:val125_0)"
-"(let-values(((s_488)"
+"(let-values(((id:val124_0)"
+"(let-values(((s_471)"
 "(car"
 " s_537)))"
-"(let-values(((s_538)"
+"(let-values(((s_472)"
 "(if(syntax?$1"
-" s_488)"
+" s_471)"
 "(syntax-e$1"
-" s_488)"
-" s_488)))"
-"(let-values(((flat-s_35)"
+" s_471)"
+" s_471)))"
+"(let-values(((flat-s_36)"
 "(to-syntax-list.1"
-" s_538)))"
+" s_472)))"
 "(if(not"
-" flat-s_35)"
+" flat-s_36)"
 "(let-values()"
 "(raise-syntax-error$1"
 " #f"
@@ -65658,247 +64058,247 @@ static const char *startup_source =
 " orig-s_44))"
 "(let-values()"
 "(let-values(((id:val_5)"
-"(let-values(((lst_345)"
-" flat-s_35))"
+"(let-values(((lst_338)"
+" flat-s_36))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
 "(#%variable-reference))"
 "(void)"
 "(let-values()"
 "(check-list"
-" lst_345)))"
-"((letrec-values(((for-loop_300)"
+" lst_338)))"
+"((letrec-values(((for-loop_294)"
 "(lambda(id:val_6"
-" lst_346)"
+" lst_123)"
 "(begin"
 " 'for-loop"
 "(if(pair?"
-" lst_346)"
-"(let-values(((s_539)"
+" lst_123)"
+"(let-values(((s_538)"
 "(unsafe-car"
-" lst_346))"
-"((rest_201)"
+" lst_123))"
+"((rest_62)"
 "(unsafe-cdr"
-" lst_346)))"
+" lst_123)))"
 "(let-values(((id:val_7)"
 "(let-values(((id:val_8)"
 " id:val_6))"
 "(let-values(((id:val_9)"
 "(let-values()"
-"(let-values(((id:val150_0)"
+"(let-values(((id:val149_0)"
 "(let-values()"
-"(if(let-values(((or-part_382)"
+"(if(let-values(((or-part_377)"
 "(if(syntax?$1"
-" s_539)"
+" s_538)"
 "(symbol?"
 "(syntax-e$1"
-" s_539))"
+" s_538))"
 " #f)))"
-"(if or-part_382"
-" or-part_382"
+"(if or-part_377"
+" or-part_377"
 "(symbol?"
-" s_539)))"
-" s_539"
+" s_538)))"
+" s_538"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                                                                                                                                                                                     \"not an identifier\""
 " orig-s_44"
-" s_539)))))"
+" s_538)))))"
 "(cons"
-" id:val150_0"
+" id:val149_0"
 " id:val_8)))))"
 "(values"
 " id:val_9)))))"
 "(if(not"
 " #f)"
-"(for-loop_300"
+"(for-loop_294"
 " id:val_7"
-" rest_201)"
+" rest_62)"
 " id:val_7)))"
 " id:val_6)))))"
-" for-loop_300)"
+" for-loop_294)"
 " null"
-" lst_345)))))"
+" lst_338)))))"
 "(reverse$1"
 " id:val_5))))))))"
-"((val-rhs126_0)"
-"(let-values(((s_359)"
+"((val-rhs125_0)"
+"(let-values(((s_353)"
 "(cdr"
 " s_537)))"
-"(let-values(((s_251)"
+"(let-values(((s_248)"
 "(if(syntax?$1"
-" s_359)"
+" s_353)"
 "(syntax-e$1"
-" s_359)"
-" s_359)))"
+" s_353)"
+" s_353)))"
 "(if(pair?"
-" s_251)"
-"(let-values(((val-rhs127_0)"
-"(let-values(((s_478)"
+" s_248)"
+"(let-values(((val-rhs126_0)"
+"(let-values(((s_355)"
 "(car"
-" s_251)))"
-" s_478))"
+" s_248)))"
+" s_355))"
 "(()"
-"(let-values(((s_361)"
+"(let-values(((s_539)"
 "(cdr"
-" s_251)))"
-"(let-values(((s_362)"
+" s_248)))"
+"(let-values(((s_356)"
 "(if(syntax?$1"
-" s_361)"
+" s_539)"
 "(syntax-e$1"
-" s_361)"
-" s_361)))"
+" s_539)"
+" s_539)))"
 "(if(null?"
-" s_362)"
+" s_356)"
 "(values)"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                                                                                                       \"bad syntax\""
 " orig-s_44))))))"
 "(values"
-" val-rhs127_0))"
+" val-rhs126_0))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                                                                                   \"bad syntax\""
 " orig-s_44))))))"
 "(values"
-" id:val125_0"
-" val-rhs126_0))"
+" id:val124_0"
+" val-rhs125_0))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                                                               \"bad syntax\""
 " orig-s_44))))))"
 "(values"
 "(cons"
-" id:val148_0"
+" id:val147_0"
 " id:val_3)"
 "(cons"
-" val-rhs149_0"
+" val-rhs148_0"
 " val-rhs_4))))))"
 "(values"
 " id:val_4"
 " val-rhs_5)))))"
 "(if(not"
 " #f)"
-"(for-loop_299"
+"(for-loop_293"
 " id:val_2"
 " val-rhs_3"
-" rest_200)"
+" rest_205)"
 "(values"
 " id:val_2"
 " val-rhs_3))))"
 "(values"
 " id:val_1"
 " val-rhs_2))))))"
-" for-loop_299)"
+" for-loop_293)"
 " null"
 " null"
-" lst_343)))))"
+" lst_336)))))"
 "(values"
 "(reverse$1"
 " id:val_0)"
 "(reverse$1"
 " val-rhs_1)))))))))"
-"((body124_0)"
-"(let-values(((s_363)"
+"((body123_0)"
+"(let-values(((s_249)"
 "(cdr"
-" s_353)))"
-"(let-values(((s_252)"
+" s_347)))"
+"(let-values(((s_250)"
 "(if(syntax?$1"
-" s_363)"
+" s_249)"
 "(syntax-e$1"
-" s_363)"
-" s_363)))"
-"(let-values(((flat-s_36)"
+" s_249)"
+" s_249)))"
+"(let-values(((flat-s_37)"
 "(to-syntax-list.1"
-" s_252)))"
+" s_250)))"
 "(if(not"
-" flat-s_36)"
+" flat-s_37)"
 "(let-values()"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                               \"bad syntax\""
 " orig-s_44))"
 "(if(null?"
-" flat-s_36)"
+" flat-s_37)"
 "(let-values()"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                 \"bad syntax\""
 " orig-s_44))"
 "(let-values()"
-" flat-s_36))))))))"
+" flat-s_37))))))))"
 "(values"
-" id:val122_0"
-" val-rhs123_0"
-" body124_0))"
+" id:val121_0"
+" val-rhs122_0"
+" body123_0))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                       \"bad syntax\""
 " orig-s_44))))))"
 "(values"
-" id:trans114_0"
-" trans-rhs115_0"
-" id:val116_0"
-" val-rhs117_0"
-" body118_0))"
+" id:trans113_0"
+" trans-rhs114_0"
+" id:val115_0"
+" val-rhs116_0"
+" body117_0))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                   \"bad syntax\""
 " orig-s_44))))))"
 "(values"
-" letrec-syntaxes+values108_0"
-" id:trans109_0"
-" trans-rhs110_0"
-" id:val111_0"
-" val-rhs112_0"
-" body113_0))"
+" letrec-syntaxes+values107_0"
+" id:trans108_0"
+" trans-rhs109_0"
+" id:val110_0"
+" val-rhs111_0"
+" body112_0))"
 "                                                              (raise-syntax-error$1 #f \"bad syntax\" orig-s_44)))))"
 "(values"
 " #t"
-" letrec-syntaxes+values102_1"
-" id:trans103_1"
-" trans-rhs104_1"
-" id:val105_1"
-" val-rhs106_1"
-" body107_1)))"
+" letrec-syntaxes+values101_1"
+" id:trans102_1"
+" trans-rhs103_1"
+" id:val104_1"
+" val-rhs105_1"
+" body106_1)))"
 "(values #f #f #f #f #f #f #f)))))"
-"(let-values(((ok?_40 let-values128_0 id:val129_0 val-rhs130_0 body131_0)"
-"(let-values(((s_365) disarmed-s_8))"
+"(let-values(((ok?_42 let-values127_0 id:val128_0 val-rhs129_0 body130_0)"
+"(let-values(((s_357) disarmed-s_8))"
 "(if(if(not syntaxes?_0) #t #f)"
-"(let-values(((orig-s_45) s_365))"
-"(let-values(((let-values128_1 id:val129_1 val-rhs130_1 body131_1)"
-"(let-values(((s_368)"
-"(if(syntax?$1 s_365)"
-"(syntax-e$1 s_365)"
-" s_365)))"
-"(if(pair? s_368)"
-"(let-values(((let-values132_0)"
-"(let-values(((s_257)(car s_368)))"
+"(let-values(((orig-s_45) s_357))"
+"(let-values(((let-values127_1 id:val128_1 val-rhs129_1 body130_1)"
+"(let-values(((s_254)"
+"(if(syntax?$1 s_357)"
+"(syntax-e$1 s_357)"
+" s_357)))"
+"(if(pair? s_254)"
+"(let-values(((let-values131_0)"
+"(let-values(((s_257)(car s_254)))"
 " s_257))"
-"((id:val133_0 val-rhs134_0 body135_0)"
-"(let-values(((s_258)(cdr s_368)))"
-"(let-values(((s_540)"
-"(if(syntax?$1 s_258)"
-"(syntax-e$1 s_258)"
-" s_258)))"
-"(if(pair? s_540)"
-"(let-values(((id:val136_0"
-" val-rhs137_0)"
-"(let-values(((s_261)"
-"(car"
-" s_540)))"
+"((id:val132_0 val-rhs133_0 body134_0)"
+"(let-values(((s_540)(cdr s_254)))"
 "(let-values(((s_541)"
-"(if(syntax?$1"
-" s_261)"
-"(syntax-e$1"
-" s_261)"
-" s_261)))"
-"(let-values(((flat-s_37)"
-"(to-syntax-list.1"
+"(if(syntax?$1 s_540)"
+"(syntax-e$1 s_540)"
+" s_540)))"
+"(if(pair? s_541)"
+"(let-values(((id:val135_0"
+" val-rhs136_0)"
+"(let-values(((s_542)"
+"(car"
 " s_541)))"
+"(let-values(((s_258)"
+"(if(syntax?$1"
+" s_542)"
+"(syntax-e$1"
+" s_542)"
+" s_542)))"
+"(let-values(((flat-s_38)"
+"(to-syntax-list.1"
+" s_258)))"
 "(if(not"
-" flat-s_37)"
+" flat-s_38)"
 "(let-values()"
 "(raise-syntax-error$1"
 " #f"
@@ -65907,29 +64307,29 @@ static const char *startup_source =
 "(let-values()"
 "(let-values(((id:val_10"
 " val-rhs_6)"
-"(let-values(((lst_347)"
-" flat-s_37))"
+"(let-values(((lst_339)"
+" flat-s_38))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
 "(#%variable-reference))"
 "(void)"
 "(let-values()"
 "(check-list"
-" lst_347)))"
-"((letrec-values(((for-loop_301)"
+" lst_339)))"
+"((letrec-values(((for-loop_295)"
 "(lambda(id:val_11"
 " val-rhs_7"
-" lst_303)"
+" lst_340)"
 "(begin"
 " 'for-loop"
 "(if(pair?"
-" lst_303)"
-"(let-values(((s_542)"
+" lst_340)"
+"(let-values(((s_543)"
 "(unsafe-car"
-" lst_303))"
-"((rest_202)"
+" lst_340))"
+"((rest_206)"
 "(unsafe-cdr"
-" lst_303)))"
+" lst_340)))"
 "(let-values(((id:val_12"
 " val-rhs_8)"
 "(let-values(((id:val_13)"
@@ -65939,32 +64339,32 @@ static const char *startup_source =
 "(let-values(((id:val_14"
 " val-rhs_10)"
 "(let-values()"
-"(let-values(((id:val151_0"
-" val-rhs152_0)"
+"(let-values(((id:val150_0"
+" val-rhs151_0)"
 "(let-values()"
-"(let-values(((s_380)"
-"(if(syntax?$1"
-" s_542)"
-"(syntax-e$1"
-" s_542)"
-" s_542)))"
-"(if(pair?"
-" s_380)"
-"(let-values(((id:val139_0)"
-"(let-values(((s_543)"
-"(car"
-" s_380)))"
-"(let-values(((s_544)"
+"(let-values(((s_372)"
 "(if(syntax?$1"
 " s_543)"
 "(syntax-e$1"
 " s_543)"
 " s_543)))"
-"(let-values(((flat-s_38)"
-"(to-syntax-list.1"
+"(if(pair?"
+" s_372)"
+"(let-values(((id:val138_0)"
+"(let-values(((s_544)"
+"(car"
+" s_372)))"
+"(let-values(((s_545)"
+"(if(syntax?$1"
+" s_544)"
+"(syntax-e$1"
+" s_544)"
 " s_544)))"
+"(let-values(((flat-s_39)"
+"(to-syntax-list.1"
+" s_545)))"
 "(if(not"
-" flat-s_38)"
+" flat-s_39)"
 "(let-values()"
 "(raise-syntax-error$1"
 " #f"
@@ -65972,299 +64372,220 @@ static const char *startup_source =
 " orig-s_45))"
 "(let-values()"
 "(let-values(((id:val_15)"
-"(let-values(((lst_348)"
-" flat-s_38))"
+"(let-values(((lst_341)"
+" flat-s_39))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
 "(#%variable-reference))"
 "(void)"
 "(let-values()"
 "(check-list"
-" lst_348)))"
-"((letrec-values(((for-loop_302)"
+" lst_341)))"
+"((letrec-values(((for-loop_296)"
 "(lambda(id:val_16"
-" lst_349)"
+" lst_342)"
 "(begin"
 " 'for-loop"
 "(if(pair?"
-" lst_349)"
-"(let-values(((s_545)"
+" lst_342)"
+"(let-values(((s_546)"
 "(unsafe-car"
-" lst_349))"
-"((rest_203)"
+" lst_342))"
+"((rest_207)"
 "(unsafe-cdr"
-" lst_349)))"
+" lst_342)))"
 "(let-values(((id:val_17)"
 "(let-values(((id:val_18)"
 " id:val_16))"
 "(let-values(((id:val_19)"
 "(let-values()"
-"(let-values(((id:val153_0)"
+"(let-values(((id:val152_0)"
 "(let-values()"
-"(if(let-values(((or-part_383)"
+"(if(let-values(((or-part_378)"
 "(if(syntax?$1"
-" s_545)"
+" s_546)"
 "(symbol?"
 "(syntax-e$1"
-" s_545))"
+" s_546))"
 " #f)))"
-"(if or-part_383"
-" or-part_383"
+"(if or-part_378"
+" or-part_378"
 "(symbol?"
-" s_545)))"
-" s_545"
+" s_546)))"
+" s_546"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                                                                                                                                                                   \"not an identifier\""
 " orig-s_45"
-" s_545)))))"
+" s_546)))))"
 "(cons"
-" id:val153_0"
+" id:val152_0"
 " id:val_18)))))"
 "(values"
 " id:val_19)))))"
 "(if(not"
 " #f)"
-"(for-loop_302"
+"(for-loop_296"
 " id:val_17"
-" rest_203)"
+" rest_207)"
 " id:val_17)))"
 " id:val_16)))))"
-" for-loop_302)"
+" for-loop_296)"
 " null"
-" lst_348)))))"
+" lst_341)))))"
 "(reverse$1"
 " id:val_15))))))))"
-"((val-rhs140_0)"
-"(let-values(((s_389)"
+"((val-rhs139_0)"
+"(let-values(((s_380)"
 "(cdr"
+" s_372)))"
+"(let-values(((s_260)"
+"(if(syntax?$1"
+" s_380)"
+"(syntax-e$1"
+" s_380)"
 " s_380)))"
-"(let-values(((s_263)"
-"(if(syntax?$1"
-" s_389)"
-"(syntax-e$1"
-" s_389)"
-" s_389)))"
 "(if(pair?"
-" s_263)"
-"(let-values(((val-rhs141_0)"
-"(let-values(((s_546)"
-"(car"
-" s_263)))"
-" s_546))"
-"(()"
+" s_260)"
+"(let-values(((val-rhs140_0)"
 "(let-values(((s_547)"
-"(cdr"
-" s_263)))"
+"(car"
+" s_260)))"
+" s_547))"
+"(()"
 "(let-values(((s_548)"
+"(cdr"
+" s_260)))"
+"(let-values(((s_549)"
 "(if(syntax?$1"
-" s_547)"
-"(syntax-e$1"
-" s_547)"
-" s_547)))"
-"(if(null?"
 " s_548)"
+"(syntax-e$1"
+" s_548)"
+" s_548)))"
+"(if(null?"
+" s_549)"
 "(values)"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                                                                                     \"bad syntax\""
 " orig-s_45))))))"
 "(values"
-" val-rhs141_0))"
+" val-rhs140_0))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                                                                 \"bad syntax\""
 " orig-s_45))))))"
 "(values"
-" id:val139_0"
-" val-rhs140_0))"
+" id:val138_0"
+" val-rhs139_0))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                                             \"bad syntax\""
 " orig-s_45))))))"
 "(values"
 "(cons"
-" id:val151_0"
+" id:val150_0"
 " id:val_13)"
 "(cons"
-" val-rhs152_0"
+" val-rhs151_0"
 " val-rhs_9))))))"
 "(values"
 " id:val_14"
 " val-rhs_10)))))"
 "(if(not"
 " #f)"
-"(for-loop_301"
+"(for-loop_295"
 " id:val_12"
 " val-rhs_8"
-" rest_202)"
+" rest_206)"
 "(values"
 " id:val_12"
 " val-rhs_8))))"
 "(values"
 " id:val_11"
 " val-rhs_7))))))"
-" for-loop_301)"
+" for-loop_295)"
 " null"
 " null"
-" lst_347)))))"
+" lst_339)))))"
 "(values"
 "(reverse$1"
 " id:val_10)"
 "(reverse$1"
 " val-rhs_6)))))))))"
-"((body138_0)"
-"(let-values(((s_549)"
+"((body137_0)"
+"(let-values(((s_261)"
 "(cdr"
-" s_540)))"
-"(let-values(((s_264)"
+" s_541)))"
+"(let-values(((s_262)"
 "(if(syntax?$1"
-" s_549)"
+" s_261)"
 "(syntax-e$1"
-" s_549)"
-" s_549)))"
-"(let-values(((flat-s_39)"
+" s_261)"
+" s_261)))"
+"(let-values(((flat-s_40)"
 "(to-syntax-list.1"
-" s_264)))"
+" s_262)))"
 "(if(not"
-" flat-s_39)"
+" flat-s_40)"
 "(let-values()"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                             \"bad syntax\""
 " orig-s_45))"
 "(if(null?"
-" flat-s_39)"
+" flat-s_40)"
 "(let-values()"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                               \"bad syntax\""
 " orig-s_45))"
 "(let-values()"
-" flat-s_39))))))))"
+" flat-s_40))))))))"
 "(values"
-" id:val136_0"
-" val-rhs137_0"
-" body138_0))"
+" id:val135_0"
+" val-rhs136_0"
+" body137_0))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                     \"bad syntax\""
 " orig-s_45))))))"
 "(values"
-" let-values132_0"
-" id:val133_0"
-" val-rhs134_0"
-" body135_0))"
+" let-values131_0"
+" id:val132_0"
+" val-rhs133_0"
+" body134_0))"
 "                                                                (raise-syntax-error$1 #f \"bad syntax\" orig-s_45)))))"
-"(values #t let-values128_1 id:val129_1 val-rhs130_1 body131_1)))"
+"(values #t let-values127_1 id:val128_1 val-rhs129_1 body130_1)))"
 "(values #f #f #f #f #f)))))"
-"(let-values(((sc_37)(new-scope 'local)))"
-"(let-values(((phase_149)(expand-context-phase ctx_84)))"
+"(let-values(((sc_38)(new-scope 'local)))"
+"(let-values(((phase_81)(expand-context-phase ctx_82)))"
 "(let-values(((frame-id_15)(if syntaxes?_0(make-reference-record) #f)))"
 "(let-values(((trans-idss_2)"
 "(reverse$1"
-"(let-values(((lst_350)(if syntaxes?_0 id:trans103_0 null)))"
+"(let-values(((lst_343)(if syntaxes?_0 id:trans102_0 null)))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
-"(let-values()(check-list lst_350)))"
-"((letrec-values(((for-loop_161)"
-"(lambda(fold-var_108 lst_351)"
+"(let-values()(check-list lst_343)))"
+"((letrec-values(((for-loop_297)"
+"(lambda(fold-var_313 lst_344)"
 "(begin"
 " 'for-loop"
-"(if(pair? lst_351)"
-"(let-values(((ids_36)"
-"(unsafe-car lst_351))"
-"((rest_204)"
-"(unsafe-cdr lst_351)))"
-"(let-values(((fold-var_112)"
-"(let-values(((fold-var_321)"
-" fold-var_108))"
-"(let-values(((fold-var_322)"
-"(let-values()"
-"(cons"
-"(let-values()"
-"(reverse$1"
-"(let-values(((lst_352)"
-" ids_36))"
-"(begin"
-"(if(variable-reference-from-unsafe?"
-"(#%variable-reference))"
-"(void)"
-"(let-values()"
-"(check-list"
-" lst_352)))"
-"((letrec-values(((for-loop_276)"
-"(lambda(fold-var_323"
-" lst_353)"
-"(begin"
-" 'for-loop"
-"(if(pair?"
-" lst_353)"
-"(let-values(((id_119)"
-"(unsafe-car"
-" lst_353))"
-"((rest_205)"
-"(unsafe-cdr"
-" lst_353)))"
-"(let-values(((fold-var_324)"
-"(let-values(((fold-var_325)"
-" fold-var_323))"
-"(let-values(((fold-var_326)"
-"(let-values()"
-"(cons"
-"(let-values()"
-"(add-scope"
-" id_119"
-" sc_37))"
-" fold-var_325))))"
-"(values"
-" fold-var_326)))))"
-"(if(not"
-" #f)"
-"(for-loop_276"
-" fold-var_324"
-" rest_205)"
-" fold-var_324)))"
-" fold-var_323)))))"
-" for-loop_276)"
-" null"
-" lst_352)))))"
-" fold-var_321))))"
-"(values"
-" fold-var_322)))))"
-"(if(not #f)"
-"(for-loop_161 fold-var_112 rest_204)"
-" fold-var_112)))"
-" fold-var_108)))))"
-" for-loop_161)"
-" null"
-" lst_350))))))"
-"(let-values(((val-idss_3)"
-"(reverse$1"
-"(let-values(((lst_354)(if syntaxes?_0 id:val105_0 id:val129_0)))"
-"(begin"
-"(if(variable-reference-from-unsafe?(#%variable-reference))"
-"(void)"
-"(let-values()(check-list lst_354)))"
-"((letrec-values(((for-loop_303)"
-"(lambda(fold-var_327 lst_355)"
-"(begin"
-" 'for-loop"
-"(if(pair? lst_355)"
+"(if(pair? lst_344)"
 "(let-values(((ids_37)"
-"(unsafe-car lst_355))"
-"((rest_206)"
-"(unsafe-cdr lst_355)))"
-"(let-values(((fold-var_328)"
-"(let-values(((fold-var_329)"
-" fold-var_327))"
-"(let-values(((fold-var_330)"
+"(unsafe-car lst_344))"
+"((rest_208)"
+"(unsafe-cdr lst_344)))"
+"(let-values(((fold-var_108)"
+"(let-values(((fold-var_109)"
+" fold-var_313))"
+"(let-values(((fold-var_110)"
 "(let-values()"
 "(cons"
 "(let-values()"
 "(reverse$1"
-"(let-values(((lst_356)"
+"(let-values(((lst_345)"
 " ids_37))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
@@ -66272,121 +64593,200 @@ static const char *startup_source =
 "(void)"
 "(let-values()"
 "(check-list"
-" lst_356)))"
-"((letrec-values(((for-loop_304)"
-"(lambda(fold-var_331"
-" lst_357)"
+" lst_345)))"
+"((letrec-values(((for-loop_298)"
+"(lambda(fold-var_314"
+" lst_346)"
 "(begin"
 " 'for-loop"
 "(if(pair?"
-" lst_357)"
-"(let-values(((id_120)"
+" lst_346)"
+"(let-values(((id_114)"
 "(unsafe-car"
-" lst_357))"
-"((rest_207)"
+" lst_346))"
+"((rest_209)"
 "(unsafe-cdr"
-" lst_357)))"
-"(let-values(((fold-var_332)"
-"(let-values(((fold-var_333)"
-" fold-var_331))"
-"(let-values(((fold-var_334)"
+" lst_346)))"
+"(let-values(((fold-var_315)"
+"(let-values(((fold-var_316)"
+" fold-var_314))"
+"(let-values(((fold-var_317)"
 "(let-values()"
 "(cons"
 "(let-values()"
 "(add-scope"
-" id_120"
-" sc_37))"
-" fold-var_333))))"
+" id_114"
+" sc_38))"
+" fold-var_316))))"
 "(values"
-" fold-var_334)))))"
+" fold-var_317)))))"
 "(if(not"
 " #f)"
-"(for-loop_304"
-" fold-var_332"
-" rest_207)"
-" fold-var_332)))"
-" fold-var_331)))))"
-" for-loop_304)"
+"(for-loop_298"
+" fold-var_315"
+" rest_209)"
+" fold-var_315)))"
+" fold-var_314)))))"
+" for-loop_298)"
 " null"
-" lst_356)))))"
-" fold-var_329))))"
+" lst_345)))))"
+" fold-var_109))))"
 "(values"
-" fold-var_330)))))"
+" fold-var_110)))))"
 "(if(not #f)"
-"(for-loop_303"
-" fold-var_328"
-" rest_206)"
-" fold-var_328)))"
-" fold-var_327)))))"
-" for-loop_303)"
+"(for-loop_297 fold-var_108 rest_208)"
+" fold-var_108)))"
+" fold-var_313)))))"
+" for-loop_297)"
 " null"
-" lst_354))))))"
-"(let-values(((val-rhss_3)"
-"(if rec?_1"
+" lst_343))))))"
+"(let-values(((val-idss_3)"
 "(reverse$1"
-"(let-values(((lst_358)"
-"(if syntaxes?_0 val-rhs106_0 val-rhs130_0)))"
+"(let-values(((lst_347)(if syntaxes?_0 id:val104_0 id:val128_0)))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
-"(let-values()(check-list lst_358)))"
-"((letrec-values(((for-loop_305)"
-"(lambda(fold-var_335 lst_359)"
+"(let-values()(check-list lst_347)))"
+"((letrec-values(((for-loop_299)"
+"(lambda(fold-var_318 lst_348)"
 "(begin"
 " 'for-loop"
-"(if(pair? lst_359)"
+"(if(pair? lst_348)"
+"(let-values(((ids_38)"
+"(unsafe-car lst_348))"
+"((rest_210)"
+"(unsafe-cdr lst_348)))"
+"(let-values(((fold-var_319)"
+"(let-values(((fold-var_320)"
+" fold-var_318))"
+"(let-values(((fold-var_321)"
+"(let-values()"
+"(cons"
+"(let-values()"
+"(reverse$1"
+"(let-values(((lst_349)"
+" ids_38))"
+"(begin"
+"(if(variable-reference-from-unsafe?"
+"(#%variable-reference))"
+"(void)"
+"(let-values()"
+"(check-list"
+" lst_349)))"
+"((letrec-values(((for-loop_300)"
+"(lambda(fold-var_322"
+" lst_350)"
+"(begin"
+" 'for-loop"
+"(if(pair?"
+" lst_350)"
+"(let-values(((id_115)"
+"(unsafe-car"
+" lst_350))"
+"((rest_211)"
+"(unsafe-cdr"
+" lst_350)))"
+"(let-values(((fold-var_323)"
+"(let-values(((fold-var_324)"
+" fold-var_322))"
+"(let-values(((fold-var_325)"
+"(let-values()"
+"(cons"
+"(let-values()"
+"(add-scope"
+" id_115"
+" sc_38))"
+" fold-var_324))))"
+"(values"
+" fold-var_325)))))"
+"(if(not"
+" #f)"
+"(for-loop_300"
+" fold-var_323"
+" rest_211)"
+" fold-var_323)))"
+" fold-var_322)))))"
+" for-loop_300)"
+" null"
+" lst_349)))))"
+" fold-var_320))))"
+"(values"
+" fold-var_321)))))"
+"(if(not #f)"
+"(for-loop_299"
+" fold-var_319"
+" rest_210)"
+" fold-var_319)))"
+" fold-var_318)))))"
+" for-loop_299)"
+" null"
+" lst_347))))))"
+"(let-values(((val-rhss_3)"
+"(if rec?_1"
+"(reverse$1"
+"(let-values(((lst_351)"
+"(if syntaxes?_0 val-rhs105_0 val-rhs129_0)))"
+"(begin"
+"(if(variable-reference-from-unsafe?(#%variable-reference))"
+"(void)"
+"(let-values()(check-list lst_351)))"
+"((letrec-values(((for-loop_301)"
+"(lambda(fold-var_326 lst_352)"
+"(begin"
+" 'for-loop"
+"(if(pair? lst_352)"
 "(let-values(((rhs_20)"
-"(unsafe-car lst_359))"
-"((rest_208)"
-"(unsafe-cdr lst_359)))"
-"(let-values(((fold-var_336)"
-"(let-values(((fold-var_337)"
-" fold-var_335))"
-"(let-values(((fold-var_338)"
+"(unsafe-car lst_352))"
+"((rest_212)"
+"(unsafe-cdr lst_352)))"
+"(let-values(((fold-var_327)"
+"(let-values(((fold-var_328)"
+" fold-var_326))"
+"(let-values(((fold-var_329)"
 "(let-values()"
 "(cons"
 "(let-values()"
 "(add-scope"
 " rhs_20"
-" sc_37))"
-" fold-var_337))))"
+" sc_38))"
+" fold-var_328))))"
 "(values"
-" fold-var_338)))))"
+" fold-var_329)))))"
 "(if(not #f)"
-"(for-loop_305"
-" fold-var_336"
-" rest_208)"
-" fold-var_336)))"
-" fold-var_335)))))"
-" for-loop_305)"
+"(for-loop_301"
+" fold-var_327"
+" rest_212)"
+" fold-var_327)))"
+" fold-var_326)))))"
+" for-loop_301)"
 " null"
-" lst_358))))"
-"(if syntaxes?_0 val-rhs106_0 val-rhs130_0))))"
+" lst_351))))"
+"(if syntaxes?_0 val-rhs105_0 val-rhs129_0))))"
 "(let-values(((val-clauses_0)"
 "(if syntaxes?_0"
 "(let-values()"
-"(let-values(((ok?_41 _154_0 _155_0 clause156_0 _157_0)"
-"(let-values(((s_482) disarmed-s_8))"
-"(let-values(((orig-s_46) s_482))"
-"(let-values(((_154_1"
-" _155_1"
-" clause156_1"
-" _157_1)"
+"(let-values(((ok?_43 _153_0 _154_0 clause155_0 _156_0)"
+"(let-values(((s_141) disarmed-s_8))"
+"(let-values(((orig-s_46) s_141))"
+"(let-values(((_153_1"
+" _154_1"
+" clause155_1"
+" _156_1)"
 "(let-values(((s_550)"
 "(if(syntax?$1"
-" s_482)"
+" s_141)"
 "(syntax-e$1"
-" s_482)"
-" s_482)))"
+" s_141)"
+" s_141)))"
 "(if(pair? s_550)"
-"(let-values(((_158_0)"
+"(let-values(((_157_0)"
 "(let-values(((s_551)"
 "(car"
 " s_550)))"
 " s_551))"
-"((_159_0"
-" clause160_0"
-" _161_0)"
+"((_158_0"
+" clause159_0"
+" _160_0)"
 "(let-values(((s_552)"
 "(cdr"
 " s_550)))"
@@ -66398,13 +64798,13 @@ static const char *startup_source =
 " s_552)))"
 "(if(pair?"
 " s_553)"
-"(let-values(((_162_0)"
+"(let-values(((_161_0)"
 "(let-values(((s_554)"
 "(car"
 " s_553)))"
 " s_554))"
-"((clause163_0"
-" _164_0)"
+"((clause162_0"
+" _163_0)"
 "(let-values(((s_555)"
 "(cdr"
 " s_553)))"
@@ -66416,7 +64816,7 @@ static const char *startup_source =
 " s_555)))"
 "(if(pair?"
 " s_556)"
-"(let-values(((clause165_0)"
+"(let-values(((clause164_0)"
 "(let-values(((s_557)"
 "(car"
 " s_556)))"
@@ -66426,76 +64826,76 @@ static const char *startup_source =
 "(syntax-e$1"
 " s_557)"
 " s_557)))"
-"(let-values(((flat-s_40)"
+"(let-values(((flat-s_41)"
 "(to-syntax-list.1"
 " s_558)))"
 "(if(not"
-" flat-s_40)"
+" flat-s_41)"
 "(let-values()"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                               \"bad syntax\""
 " orig-s_46))"
 "(let-values()"
-" flat-s_40))))))"
-"((_166_0)"
+" flat-s_41))))))"
+"((_165_0)"
 "(let-values(((s_559)"
 "(cdr"
 " s_556)))"
 " s_559)))"
 "(values"
-" clause165_0"
-" _166_0))"
+" clause164_0"
+" _165_0))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                       \"bad syntax\""
 " orig-s_46))))))"
 "(values"
-" _162_0"
-" clause163_0"
-" _164_0))"
+" _161_0"
+" clause162_0"
+" _163_0))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                   \"bad syntax\""
 " orig-s_46))))))"
 "(values"
+" _157_0"
 " _158_0"
-" _159_0"
-" clause160_0"
-" _161_0))"
+" clause159_0"
+" _160_0))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                               \"bad syntax\""
 " orig-s_46)))))"
 "(values"
 " #t"
+" _153_1"
 " _154_1"
-" _155_1"
-" clause156_1"
-" _157_1))))))"
-" clause156_0))"
+" clause155_1"
+" _156_1))))))"
+" clause155_0))"
 "(let-values()"
-"(let-values(((ok?_42 _167_0 clause168_0 _169_0)"
-"(let-values(((s_560) disarmed-s_8))"
-"(let-values(((orig-s_47) s_560))"
-"(let-values(((_167_1 clause168_1 _169_1)"
-"(let-values(((s_145)"
+"(let-values(((ok?_44 _166_0 clause167_0 _168_0)"
+"(let-values(((s_144) disarmed-s_8))"
+"(let-values(((orig-s_47) s_144))"
+"(let-values(((_166_1 clause167_1 _168_1)"
+"(let-values(((s_560)"
 "(if(syntax?$1"
-" s_560)"
+" s_144)"
 "(syntax-e$1"
-" s_560)"
-" s_560)))"
-"(if(pair? s_145)"
-"(let-values(((_170_0)"
+" s_144)"
+" s_144)))"
+"(if(pair? s_560)"
+"(let-values(((_169_0)"
 "(let-values(((s_561)"
 "(car"
-" s_145)))"
+" s_560)))"
 " s_561))"
-"((clause171_0"
-" _172_0)"
+"((clause170_0"
+" _171_0)"
 "(let-values(((s_562)"
 "(cdr"
-" s_145)))"
+" s_560)))"
 "(let-values(((s_563)"
 "(if(syntax?$1"
 " s_562)"
@@ -66504,7 +64904,7 @@ static const char *startup_source =
 " s_562)))"
 "(if(pair?"
 " s_563)"
-"(let-values(((clause173_0)"
+"(let-values(((clause172_0)"
 "(let-values(((s_564)"
 "(car"
 " s_563)))"
@@ -66514,171 +64914,359 @@ static const char *startup_source =
 "(syntax-e$1"
 " s_564)"
 " s_564)))"
-"(let-values(((flat-s_41)"
+"(let-values(((flat-s_42)"
 "(to-syntax-list.1"
 " s_565)))"
 "(if(not"
-" flat-s_41)"
+" flat-s_42)"
 "(let-values()"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                           \"bad syntax\""
 " orig-s_47))"
 "(let-values()"
-" flat-s_41))))))"
-"((_174_0)"
-"(let-values(((s_147)"
+" flat-s_42))))))"
+"((_173_0)"
+"(let-values(((s_566)"
 "(cdr"
 " s_563)))"
-" s_147)))"
+" s_566)))"
 "(values"
-" clause173_0"
-" _174_0))"
+" clause172_0"
+" _173_0))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                   \"bad syntax\""
 " orig-s_47))))))"
 "(values"
-" _170_0"
-" clause171_0"
-" _172_0))"
+" _169_0"
+" clause170_0"
+" _171_0))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                               \"bad syntax\""
 " orig-s_47)))))"
-"(values #t _167_1 clause168_1 _169_1))))))"
-" clause168_0)))))"
+"(values #t _166_1 clause167_1 _168_1))))))"
+" clause167_0)))))"
 "(let-values((()"
 "(begin"
-"(let-values(((temp142_3)(list trans-idss_2 val-idss_3))"
-"((phase143_0) phase_149)"
-"((s144_0) s_528))"
-"(check-no-duplicate-ids8.1"
-" #f"
-" #f"
-" temp142_3"
-" phase143_0"
-" s144_0"
-" #f"
-" #f))"
+"(let-values(((temp141_2)(list trans-idss_2 val-idss_3))"
+"((phase142_1) phase_81)"
+"((s143_0) s_104))"
+"(check-no-duplicate-ids7.1"
+" unsafe-undefined"
+" temp141_2"
+" phase142_1"
+" s143_0"
+" unsafe-undefined))"
 "(values))))"
-"(let-values(((counter_8)(root-expand-context-counter ctx_84)))"
+"(let-values(((counter_8)(root-expand-context-counter ctx_82)))"
 "(let-values(((trans-keyss_0)"
 "(reverse$1"
-"(let-values(((lst_360) trans-idss_2))"
+"(let-values(((lst_353) trans-idss_2))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
 "(#%variable-reference))"
 "(void)"
-"(let-values()(check-list lst_360)))"
-"((letrec-values(((for-loop_306)"
-"(lambda(fold-var_339 lst_361)"
+"(let-values()(check-list lst_353)))"
+"((letrec-values(((for-loop_302)"
+"(lambda(fold-var_330 lst_354)"
 "(begin"
 " 'for-loop"
-"(if(pair? lst_361)"
-"(let-values(((ids_38)"
+"(if(pair? lst_354)"
+"(let-values(((ids_39)"
 "(unsafe-car"
-" lst_361))"
-"((rest_209)"
+" lst_354))"
+"((rest_213)"
 "(unsafe-cdr"
-" lst_361)))"
-"(let-values(((fold-var_340)"
-"(let-values(((fold-var_341)"
-" fold-var_339))"
-"(let-values(((fold-var_342)"
+" lst_354)))"
+"(let-values(((fold-var_331)"
+"(let-values(((fold-var_332)"
+" fold-var_330))"
+"(let-values(((fold-var_333)"
 "(let-values()"
 "(cons"
 "(let-values()"
 "(reverse$1"
-"(let-values(((lst_239)"
-" ids_38))"
+"(let-values(((lst_355)"
+" ids_39))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
 "(#%variable-reference))"
 "(void)"
 "(let-values()"
 "(check-list"
-" lst_239)))"
-"((letrec-values(((for-loop_307)"
-"(lambda(fold-var_343"
-" lst_362)"
+" lst_355)))"
+"((letrec-values(((for-loop_303)"
+"(lambda(fold-var_334"
+" lst_356)"
 "(begin"
 " 'for-loop"
 "(if(pair?"
-" lst_362)"
-"(let-values(((id_121)"
+" lst_356)"
+"(let-values(((id_116)"
 "(unsafe-car"
-" lst_362))"
-"((rest_127)"
+" lst_356))"
+"((rest_214)"
 "(unsafe-cdr"
-" lst_362)))"
-"(let-values(((fold-var_344)"
-"(let-values(((fold-var_345)"
-" fold-var_343))"
-"(let-values(((fold-var_346)"
+" lst_356)))"
+"(let-values(((fold-var_335)"
+"(let-values(((fold-var_336)"
+" fold-var_334))"
+"(let-values(((fold-var_337)"
 "(let-values()"
 "(cons"
 "(let-values()"
-"(let-values(((id175_0)"
-" id_121)"
-"((phase176_0)"
-" phase_149)"
-"((counter177_0)"
+"(let-values(((id174_0)"
+" id_116)"
+"((phase175_0)"
+" phase_81)"
+"((counter176_0)"
 " counter_8)"
-"((frame-id178_0)"
+"((frame-id177_0)"
 " frame-id_15)"
-"((s179_0)"
-" s_528))"
+"((s178_0)"
+" s_104))"
 "(add-local-binding!37.1"
-" frame-id178_0"
-" #t"
-" s179_0"
-" #t"
-" id175_0"
-" phase176_0"
-" counter177_0)))"
-" fold-var_345))))"
+" frame-id177_0"
+" s178_0"
+" id174_0"
+" phase175_0"
+" counter176_0)))"
+" fold-var_336))))"
 "(values"
-" fold-var_346)))))"
+" fold-var_337)))))"
 "(if(not"
 " #f)"
-"(for-loop_307"
-" fold-var_344"
-" rest_127)"
-" fold-var_344)))"
-" fold-var_343)))))"
-" for-loop_307)"
+"(for-loop_303"
+" fold-var_335"
+" rest_214)"
+" fold-var_335)))"
+" fold-var_334)))))"
+" for-loop_303)"
 " null"
-" lst_239)))))"
-" fold-var_341))))"
+" lst_355)))))"
+" fold-var_332))))"
 "(values"
-" fold-var_342)))))"
+" fold-var_333)))))"
 "(if(not #f)"
-"(for-loop_306"
-" fold-var_340"
-" rest_209)"
-" fold-var_340)))"
-" fold-var_339)))))"
-" for-loop_306)"
+"(for-loop_302"
+" fold-var_331"
+" rest_213)"
+" fold-var_331)))"
+" fold-var_330)))))"
+" for-loop_302)"
 " null"
-" lst_360))))))"
+" lst_353))))))"
 "(let-values(((val-keyss_2)"
 "(reverse$1"
-"(let-values(((lst_363) val-idss_3))"
+"(let-values(((lst_357) val-idss_3))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
 "(#%variable-reference))"
 "(void)"
-"(let-values()(check-list lst_363)))"
-"((letrec-values(((for-loop_308)"
-"(lambda(fold-var_347 lst_364)"
+"(let-values()(check-list lst_357)))"
+"((letrec-values(((for-loop_304)"
+"(lambda(fold-var_338 lst_358)"
 "(begin"
 " 'for-loop"
-"(if(pair? lst_364)"
-"(let-values(((ids_39)"
+"(if(pair? lst_358)"
+"(let-values(((ids_40)"
+"(unsafe-car"
+" lst_358))"
+"((rest_215)"
+"(unsafe-cdr"
+" lst_358)))"
+"(let-values(((fold-var_339)"
+"(let-values(((fold-var_340)"
+" fold-var_338))"
+"(let-values(((fold-var_113)"
+"(let-values()"
+"(cons"
+"(let-values()"
+"(reverse$1"
+"(let-values(((lst_131)"
+" ids_40))"
+"(begin"
+"(if(variable-reference-from-unsafe?"
+"(#%variable-reference))"
+"(void)"
+"(let-values()"
+"(check-list"
+" lst_131)))"
+"((letrec-values(((for-loop_305)"
+"(lambda(fold-var_341"
+" lst_359)"
+"(begin"
+" 'for-loop"
+"(if(pair?"
+" lst_359)"
+"(let-values(((id_117)"
+"(unsafe-car"
+" lst_359))"
+"((rest_216)"
+"(unsafe-cdr"
+" lst_359)))"
+"(let-values(((fold-var_342)"
+"(let-values(((fold-var_343)"
+" fold-var_341))"
+"(let-values(((fold-var_344)"
+"(let-values()"
+"(cons"
+"(let-values()"
+"(let-values(((id179_0)"
+" id_117)"
+"((phase180_0)"
+" phase_81)"
+"((counter181_0)"
+" counter_8)"
+"((frame-id182_0)"
+" frame-id_15)"
+"((s183_0)"
+" s_104))"
+"(add-local-binding!37.1"
+" frame-id182_0"
+" s183_0"
+" id179_0"
+" phase180_0"
+" counter181_0)))"
+" fold-var_343))))"
+"(values"
+" fold-var_344)))))"
+"(if(not"
+" #f)"
+"(for-loop_305"
+" fold-var_342"
+" rest_216)"
+" fold-var_342)))"
+" fold-var_341)))))"
+" for-loop_305)"
+" null"
+" lst_131)))))"
+" fold-var_340))))"
+"(values"
+" fold-var_113)))))"
+"(if(not #f)"
+"(for-loop_304"
+" fold-var_339"
+" rest_215)"
+" fold-var_339)))"
+" fold-var_338)))))"
+" for-loop_304)"
+" null"
+" lst_357))))))"
+"(let-values(((bodys_10)"
+"(reverse$1"
+"(let-values(((lst_360)"
+"(if syntaxes?_0 body106_0 body130_0)))"
+"(begin"
+"(if(variable-reference-from-unsafe?"
+"(#%variable-reference))"
+"(void)"
+"(let-values()(check-list lst_360)))"
+"((letrec-values(((for-loop_306)"
+"(lambda(fold-var_345 lst_361)"
+"(begin"
+" 'for-loop"
+"(if(pair? lst_361)"
+"(let-values(((body_18)"
+"(unsafe-car"
+" lst_361))"
+"((rest_217)"
+"(unsafe-cdr"
+" lst_361)))"
+"(let-values(((fold-var_118)"
+"(let-values(((fold-var_346)"
+" fold-var_345))"
+"(let-values(((fold-var_48)"
+"(let-values()"
+"(cons"
+"(let-values()"
+"(add-scope"
+" body_18"
+" sc_38))"
+" fold-var_346))))"
+"(values"
+" fold-var_48)))))"
+"(if(not #f)"
+"(for-loop_306"
+" fold-var_118"
+" rest_217)"
+" fold-var_118)))"
+" fold-var_345)))))"
+" for-loop_306)"
+" null"
+" lst_360))))))"
+"(let-values((()"
+"(begin"
+"(let-values(((obs_90)"
+"(expand-context-observer ctx_82)))"
+"(if obs_90"
+"(let-values()"
+"(log-let-renames"
+" obs_90"
+" renames-log-tag_0"
+" val-idss_3"
+" val-rhss_3"
+" bodys_10"
+" trans-idss_2"
+"(if syntaxes?_0 trans-rhs103_0 #f)"
+" sc_38))"
+"(void)))"
+"(values))))"
+"(let-values((()"
+"(begin"
+"(if syntaxes?_0"
+"(let-values()"
+"(begin"
+"(let-values(((obs_91)"
+"(expand-context-observer"
+" ctx_82)))"
+"(if obs_91"
+"(let-values()"
+"(let-values()"
+"(call-expand-observe"
+" obs_91"
+" 'prepare-env)))"
+"(void)))"
+"(prepare-next-phase-namespace ctx_82)))"
+"(void))"
+"(values))))"
+"(let-values(((trans-valss_0)"
+"(reverse$1"
+"(let-values(((lst_63)"
+"(if syntaxes?_0"
+" trans-rhs103_0"
+" '()))"
+"((lst_362) trans-idss_2))"
+"(begin"
+"(if(variable-reference-from-unsafe?"
+"(#%variable-reference))"
+"(void)"
+"(let-values()(check-list lst_63)))"
+"(if(variable-reference-from-unsafe?"
+"(#%variable-reference))"
+"(void)"
+"(let-values()(check-list lst_362)))"
+"((letrec-values(((for-loop_307)"
+"(lambda(fold-var_347"
+" lst_363"
+" lst_364)"
+"(begin"
+" 'for-loop"
+"(if(if(pair? lst_363)"
+"(pair? lst_364)"
+" #f)"
+"(let-values(((rhs_21)"
+"(unsafe-car"
+" lst_363))"
+"((rest_218)"
+"(unsafe-cdr"
+" lst_363))"
+"((ids_41)"
 "(unsafe-car"
 " lst_364))"
-"((rest_210)"
+"((rest_219)"
 "(unsafe-cdr"
 " lst_364)))"
 "(let-values(((fold-var_348)"
@@ -66688,214 +65276,20 @@ static const char *startup_source =
 "(let-values()"
 "(cons"
 "(let-values()"
-"(reverse$1"
-"(let-values(((lst_365)"
-" ids_39))"
-"(begin"
-"(if(variable-reference-from-unsafe?"
-"(#%variable-reference))"
-"(void)"
-"(let-values()"
-"(check-list"
-" lst_365)))"
-"((letrec-values(((for-loop_309)"
-"(lambda(fold-var_351"
-" lst_366)"
-"(begin"
-" 'for-loop"
-"(if(pair?"
-" lst_366)"
-"(let-values(((id_122)"
-"(unsafe-car"
-" lst_366))"
-"((rest_211)"
-"(unsafe-cdr"
-" lst_366)))"
-"(let-values(((fold-var_352)"
-"(let-values(((fold-var_116)"
-" fold-var_351))"
-"(let-values(((fold-var_117)"
-"(let-values()"
-"(cons"
-"(let-values()"
-"(let-values(((id180_0)"
-" id_122)"
-"((phase181_0)"
-" phase_149)"
-"((counter182_0)"
-" counter_8)"
-"((frame-id183_0)"
-" frame-id_15)"
-"((s184_0)"
-" s_528))"
-"(add-local-binding!37.1"
-" frame-id183_0"
-" #t"
-" s184_0"
-" #t"
-" id180_0"
-" phase181_0"
-" counter182_0)))"
-" fold-var_116))))"
-"(values"
-" fold-var_117)))))"
-"(if(not"
-" #f)"
-"(for-loop_309"
-" fold-var_352"
-" rest_211)"
-" fold-var_352)))"
-" fold-var_351)))))"
-" for-loop_309)"
-" null"
-" lst_365)))))"
-" fold-var_349))))"
-"(values"
-" fold-var_350)))))"
-"(if(not #f)"
-"(for-loop_308"
-" fold-var_348"
-" rest_210)"
-" fold-var_348)))"
-" fold-var_347)))))"
-" for-loop_308)"
-" null"
-" lst_363))))))"
-"(let-values(((bodys_10)"
-"(reverse$1"
-"(let-values(((lst_367)"
-"(if syntaxes?_0 body107_0 body131_0)))"
-"(begin"
-"(if(variable-reference-from-unsafe?"
-"(#%variable-reference))"
-"(void)"
-"(let-values()(check-list lst_367)))"
-"((letrec-values(((for-loop_310)"
-"(lambda(fold-var_353 lst_130)"
-"(begin"
-" 'for-loop"
-"(if(pair? lst_130)"
-"(let-values(((body_20)"
-"(unsafe-car"
-" lst_130))"
-"((rest_212)"
-"(unsafe-cdr"
-" lst_130)))"
-"(let-values(((fold-var_354)"
-"(let-values(((fold-var_355)"
-" fold-var_353))"
-"(let-values(((fold-var_356)"
-"(let-values()"
-"(cons"
-"(let-values()"
-"(add-scope"
-" body_20"
-" sc_37))"
-" fold-var_355))))"
-"(values"
-" fold-var_356)))))"
-"(if(not #f)"
-"(for-loop_310"
-" fold-var_354"
-" rest_212)"
-" fold-var_354)))"
-" fold-var_353)))))"
-" for-loop_310)"
-" null"
-" lst_367))))))"
 "(let-values((()"
 "(begin"
 "(let-values(((obs_92)"
-"(expand-context-observer ctx_84)))"
+"(expand-context-observer"
+" ctx_82)))"
 "(if obs_92"
 "(let-values()"
-"(log-let-renames"
+"(let-values()"
+"(begin"
+"(call-expand-observe"
 " obs_92"
-" renames-log-tag_0"
-" val-idss_3"
-" val-rhss_3"
-" bodys_10"
-" trans-idss_2"
-"(if syntaxes?_0 trans-rhs104_0 #f)"
-" sc_37))"
-"(void)))"
-"(values))))"
-"(let-values((()"
-"(begin"
-"(if syntaxes?_0"
-"(let-values()"
-"(begin"
-"(let-values(((obs_93)"
-"(expand-context-observer"
-" ctx_84)))"
-"(if obs_93"
-"(let-values()"
-"(let-values()"
-"(call-expand-observe"
-" obs_93"
-" 'prepare-env)))"
-"(void)))"
-"(prepare-next-phase-namespace ctx_84)))"
-"(void))"
-"(values))))"
-"(let-values(((trans-valss_0)"
-"(reverse$1"
-"(let-values(((lst_368)"
-"(if syntaxes?_0"
-" trans-rhs104_0"
-" '()))"
-"((lst_248) trans-idss_2))"
-"(begin"
-"(if(variable-reference-from-unsafe?"
-"(#%variable-reference))"
-"(void)"
-"(let-values()(check-list lst_368)))"
-"(if(variable-reference-from-unsafe?"
-"(#%variable-reference))"
-"(void)"
-"(let-values()(check-list lst_248)))"
-"((letrec-values(((for-loop_311)"
-"(lambda(fold-var_123"
-" lst_132"
-" lst_369)"
-"(begin"
-" 'for-loop"
-"(if(if(pair? lst_132)"
-"(pair? lst_369)"
-" #f)"
-"(let-values(((rhs_21)"
-"(unsafe-car"
-" lst_132))"
-"((rest_213)"
-"(unsafe-cdr"
-" lst_132))"
-"((ids_40)"
-"(unsafe-car"
-" lst_369))"
-"((rest_67)"
-"(unsafe-cdr"
-" lst_369)))"
-"(let-values(((fold-var_125)"
-"(let-values(((fold-var_357)"
-" fold-var_123))"
-"(let-values(((fold-var_358)"
-"(let-values()"
-"(cons"
-"(let-values()"
-"(let-values((()"
-"(begin"
-"(let-values(((obs_94)"
-"(expand-context-observer"
-" ctx_84)))"
-"(if obs_94"
-"(let-values()"
-"(let-values()"
-"(begin"
-"(call-expand-observe"
-" obs_94"
 " 'next)"
 "(call-expand-observe"
-" obs_94"
+" obs_92"
 " 'enter-bind))))"
 "(void)))"
 "(values))))"
@@ -66904,207 +65298,75 @@ static const char *startup_source =
 " 'letrec-syntaxes+values"
 "(add-scope"
 " rhs_21"
-" sc_37)"
-" ids_40"
-" ctx_84)))"
+" sc_38)"
+" ids_41"
+" ctx_82)))"
 "(begin"
-"(let-values(((obs_95)"
+"(let-values(((obs_93)"
 "(expand-context-observer"
-" ctx_84)))"
-"(if obs_95"
+" ctx_82)))"
+"(if obs_93"
 "(let-values()"
 "(let-values()"
 "(call-expand-observe"
-" obs_95"
+" obs_93"
 " 'exit-bind)))"
 "(void)))"
 " trans-val_1))))"
-" fold-var_357))))"
+" fold-var_349))))"
 "(values"
-" fold-var_358)))))"
+" fold-var_350)))))"
 "(if(not #f)"
-"(for-loop_311"
-" fold-var_125"
-" rest_213"
-" rest_67)"
-" fold-var_125)))"
-" fold-var_123)))))"
-" for-loop_311)"
+"(for-loop_307"
+" fold-var_348"
+" rest_218"
+" rest_219)"
+" fold-var_348)))"
+" fold-var_347)))))"
+" for-loop_307)"
 " null"
-" lst_368"
-" lst_248))))))"
+" lst_63"
+" lst_362))))))"
 "(let-values(((rec-val-env_0)"
-"(let-values(((lst_61) val-keyss_2)"
-"((lst_250) val-idss_3))"
+"(let-values(((lst_365) val-keyss_2)"
+"((lst_135) val-idss_3))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
 "(#%variable-reference))"
 "(void)"
-"(let-values()(check-list lst_61)))"
+"(let-values()(check-list lst_365)))"
 "(if(variable-reference-from-unsafe?"
 "(#%variable-reference))"
 "(void)"
-"(let-values()(check-list lst_250)))"
-"((letrec-values(((for-loop_312)"
+"(let-values()(check-list lst_135)))"
+"((letrec-values(((for-loop_308)"
 "(lambda(env_29"
-" lst_370"
-" lst_134)"
+" lst_366"
+" lst_367)"
 "(begin"
 " 'for-loop"
 "(if(if(pair?"
-" lst_370)"
-"(pair? lst_134)"
+" lst_366)"
+"(pair? lst_367)"
 " #f)"
 "(let-values(((keys_10)"
 "(unsafe-car"
-" lst_370))"
-"((rest_68)"
+" lst_366))"
+"((rest_220)"
 "(unsafe-cdr"
-" lst_370))"
-"((ids_41)"
+" lst_366))"
+"((ids_42)"
 "(unsafe-car"
-" lst_134))"
-"((rest_214)"
+" lst_367))"
+"((rest_221)"
 "(unsafe-cdr"
-" lst_134)))"
+" lst_367)))"
 "(let-values(((env_30)"
 "(let-values(((env_31)"
 " env_29))"
-"(let-values(((lst_371)"
+"(let-values(((lst_368)"
 " keys_10)"
-"((lst_372)"
-" ids_41))"
-"(begin"
-"(if(variable-reference-from-unsafe?"
-"(#%variable-reference))"
-"(void)"
-"(let-values()"
-"(check-list"
-" lst_371)))"
-"(if(variable-reference-from-unsafe?"
-"(#%variable-reference))"
-"(void)"
-"(let-values()"
-"(check-list"
-" lst_372)))"
-"((letrec-values(((for-loop_150)"
-"(lambda(env_32"
-" lst_373"
-" lst_66)"
-"(begin"
-" 'for-loop"
-"(if(if(pair?"
-" lst_373)"
-"(pair?"
-" lst_66)"
-" #f)"
-"(let-values(((key_93)"
-"(unsafe-car"
-" lst_373))"
-"((rest_30)"
-"(unsafe-cdr"
-" lst_373))"
-"((id_123)"
-"(unsafe-car"
-" lst_66))"
-"((rest_215)"
-"(unsafe-cdr"
-" lst_66)))"
-"(let-values(((env_33)"
-"(let-values(((env_34)"
-" env_32))"
-"(let-values(((env_35)"
-"(let-values()"
-"(env-extend"
-" env_34"
-" key_93"
-"(local-variable1.1"
-" id_123)))))"
-"(values"
-" env_35)))))"
-"(if(not"
-" #f)"
-"(for-loop_150"
-" env_33"
-" rest_30"
-" rest_215)"
-" env_33)))"
-" env_32)))))"
-" for-loop_150)"
-" env_31"
-" lst_371"
-" lst_372))))))"
-"(if(not #f)"
-"(for-loop_312"
-" env_30"
-" rest_68"
-" rest_214)"
-" env_30)))"
-" env_29)))))"
-" for-loop_312)"
-"(expand-context-env ctx_84)"
-" lst_61"
-" lst_250)))))"
-"(let-values(((rec-env_0)"
-"(let-values(((lst_374) trans-keyss_0)"
-"((lst_375) trans-valss_0)"
-"((lst_376) trans-idss_2))"
-"(begin"
-"(if(variable-reference-from-unsafe?"
-"(#%variable-reference))"
-"(void)"
-"(let-values()(check-list lst_374)))"
-"(if(variable-reference-from-unsafe?"
-"(#%variable-reference))"
-"(void)"
-"(let-values()(check-list lst_375)))"
-"(if(variable-reference-from-unsafe?"
-"(#%variable-reference))"
-"(void)"
-"(let-values()(check-list lst_376)))"
-"((letrec-values(((for-loop_313)"
-"(lambda(env_36"
-" lst_377"
-" lst_378"
-" lst_379)"
-"(begin"
-" 'for-loop"
-"(if(if(pair?"
-" lst_377)"
-"(if(pair?"
-" lst_378)"
-"(pair?"
-" lst_379)"
-" #f)"
-" #f)"
-"(let-values(((keys_11)"
-"(unsafe-car"
-" lst_377))"
-"((rest_216)"
-"(unsafe-cdr"
-" lst_377))"
-"((vals_9)"
-"(unsafe-car"
-" lst_378))"
-"((rest_217)"
-"(unsafe-cdr"
-" lst_378))"
-"((ids_42)"
-"(unsafe-car"
-" lst_379))"
-"((rest_218)"
-"(unsafe-cdr"
-" lst_379)))"
-"(let-values(((env_37)"
-"(let-values(((env_38)"
-" env_36))"
-"(let-values(((env_39)"
-"(let-values()"
-"(let-values(((lst_380)"
-" keys_11)"
-"((lst_381)"
-" vals_9)"
-"((lst_382)"
+"((lst_369)"
 " ids_42))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
@@ -67112,52 +65374,184 @@ static const char *startup_source =
 "(void)"
 "(let-values()"
 "(check-list"
-" lst_380)))"
+" lst_368)))"
 "(if(variable-reference-from-unsafe?"
 "(#%variable-reference))"
 "(void)"
 "(let-values()"
 "(check-list"
-" lst_381)))"
-"(if(variable-reference-from-unsafe?"
-"(#%variable-reference))"
-"(void)"
-"(let-values()"
-"(check-list"
-" lst_382)))"
-"((letrec-values(((for-loop_314)"
-"(lambda(env_40"
-" lst_383"
-" lst_384"
-" lst_385)"
+" lst_369)))"
+"((letrec-values(((for-loop_309)"
+"(lambda(env_32"
+" lst_370"
+" lst_371)"
 "(begin"
 " 'for-loop"
 "(if(if(pair?"
-" lst_383)"
-"(if(pair?"
-" lst_384)"
+" lst_370)"
 "(pair?"
-" lst_385)"
+" lst_371)"
+" #f)"
+"(let-values(((key_91)"
+"(unsafe-car"
+" lst_370))"
+"((rest_222)"
+"(unsafe-cdr"
+" lst_370))"
+"((id_118)"
+"(unsafe-car"
+" lst_371))"
+"((rest_223)"
+"(unsafe-cdr"
+" lst_371)))"
+"(let-values(((env_33)"
+"(let-values(((env_34)"
+" env_32))"
+"(let-values(((env_35)"
+"(let-values()"
+"(env-extend"
+" env_34"
+" key_91"
+"(local-variable1.1"
+" id_118)))))"
+"(values"
+" env_35)))))"
+"(if(not"
+" #f)"
+"(for-loop_309"
+" env_33"
+" rest_222"
+" rest_223)"
+" env_33)))"
+" env_32)))))"
+" for-loop_309)"
+" env_31"
+" lst_368"
+" lst_369))))))"
+"(if(not #f)"
+"(for-loop_308"
+" env_30"
+" rest_220"
+" rest_221)"
+" env_30)))"
+" env_29)))))"
+" for-loop_308)"
+"(expand-context-env ctx_82)"
+" lst_365"
+" lst_135)))))"
+"(let-values(((rec-env_0)"
+"(let-values(((lst_372) trans-keyss_0)"
+"((lst_373) trans-valss_0)"
+"((lst_374) trans-idss_2))"
+"(begin"
+"(if(variable-reference-from-unsafe?"
+"(#%variable-reference))"
+"(void)"
+"(let-values()(check-list lst_372)))"
+"(if(variable-reference-from-unsafe?"
+"(#%variable-reference))"
+"(void)"
+"(let-values()(check-list lst_373)))"
+"(if(variable-reference-from-unsafe?"
+"(#%variable-reference))"
+"(void)"
+"(let-values()(check-list lst_374)))"
+"((letrec-values(((for-loop_310)"
+"(lambda(env_36"
+" lst_375"
+" lst_376"
+" lst_377)"
+"(begin"
+" 'for-loop"
+"(if(if(pair?"
+" lst_375)"
+"(if(pair?"
+" lst_376)"
+"(pair?"
+" lst_377)"
 " #f)"
 " #f)"
-"(let-values(((key_94)"
+"(let-values(((keys_11)"
+"(unsafe-car"
+" lst_375))"
+"((rest_224)"
+"(unsafe-cdr"
+" lst_375))"
+"((vals_9)"
+"(unsafe-car"
+" lst_376))"
+"((rest_225)"
+"(unsafe-cdr"
+" lst_376))"
+"((ids_43)"
+"(unsafe-car"
+" lst_377))"
+"((rest_226)"
+"(unsafe-cdr"
+" lst_377)))"
+"(let-values(((env_37)"
+"(let-values(((env_38)"
+" env_36))"
+"(let-values(((env_39)"
+"(let-values()"
+"(let-values(((lst_378)"
+" keys_11)"
+"((lst_379)"
+" vals_9)"
+"((lst_380)"
+" ids_43))"
+"(begin"
+"(if(variable-reference-from-unsafe?"
+"(#%variable-reference))"
+"(void)"
+"(let-values()"
+"(check-list"
+" lst_378)))"
+"(if(variable-reference-from-unsafe?"
+"(#%variable-reference))"
+"(void)"
+"(let-values()"
+"(check-list"
+" lst_379)))"
+"(if(variable-reference-from-unsafe?"
+"(#%variable-reference))"
+"(void)"
+"(let-values()"
+"(check-list"
+" lst_380)))"
+"((letrec-values(((for-loop_311)"
+"(lambda(env_40"
+" lst_381"
+" lst_382"
+" lst_383)"
+"(begin"
+" 'for-loop"
+"(if(if(pair?"
+" lst_381)"
+"(if(pair?"
+" lst_382)"
+"(pair?"
+" lst_383)"
+" #f)"
+" #f)"
+"(let-values(((key_92)"
+"(unsafe-car"
+" lst_381))"
+"((rest_227)"
+"(unsafe-cdr"
+" lst_381))"
+"((val_86)"
+"(unsafe-car"
+" lst_382))"
+"((rest_228)"
+"(unsafe-cdr"
+" lst_382))"
+"((id_119)"
 "(unsafe-car"
 " lst_383))"
-"((rest_219)"
+"((rest_229)"
 "(unsafe-cdr"
-" lst_383))"
-"((val_87)"
-"(unsafe-car"
-" lst_384))"
-"((rest_220)"
-"(unsafe-cdr"
-" lst_384))"
-"((id_124)"
-"(unsafe-car"
-" lst_385))"
-"((rest_60)"
-"(unsafe-cdr"
-" lst_385)))"
+" lst_383)))"
 "(let-values(((env_41)"
 "(let-values(((env_42)"
 " env_40))"
@@ -67165,80 +65559,80 @@ static const char *startup_source =
 "(let-values()"
 "(begin"
 "(maybe-install-free=id-in-context!"
-" val_87"
-" id_124"
-" phase_149"
-" ctx_84)"
+" val_86"
+" id_119"
+" phase_81"
+" ctx_82)"
 "(env-extend"
 " env_42"
-" key_94"
-" val_87)))))"
+" key_92"
+" val_86)))))"
 "(values"
 " env_43)))))"
 "(if(not"
 " #f)"
-"(for-loop_314"
+"(for-loop_311"
 " env_41"
-" rest_219"
-" rest_220"
-" rest_60)"
+" rest_227"
+" rest_228"
+" rest_229)"
 " env_41)))"
 " env_40)))))"
-" for-loop_314)"
+" for-loop_311)"
 " env_38"
-" lst_380"
-" lst_381"
-" lst_382))))))"
+" lst_378"
+" lst_379"
+" lst_380))))))"
 "(values"
 " env_39)))))"
 "(if(not #f)"
-"(for-loop_313"
+"(for-loop_310"
 " env_37"
-" rest_216"
-" rest_217"
-" rest_218)"
+" rest_224"
+" rest_225"
+" rest_226)"
 " env_37)))"
 " env_36)))))"
-" for-loop_313)"
+" for-loop_310)"
 " rec-val-env_0"
-" lst_374"
-" lst_375"
-" lst_376)))))"
+" lst_372"
+" lst_373"
+" lst_374)))))"
 "(let-values(((expr-ctx_0)"
-"(as-expression-context ctx_84)))"
+"(as-expression-context ctx_82)))"
 "(let-values(((orig-rrs_0)"
 "(expand-context-reference-records"
 " expr-ctx_0)))"
 "(let-values(((rec-ctx_0)"
-"(let-values(((v_183) expr-ctx_0))"
-"(let-values(((the-struct_96) v_183))"
+"(let-values(((v_181) expr-ctx_0))"
+"(let-values(((the-struct_96) v_181))"
 "(if(expand-context/outer?"
 " the-struct_96)"
-"(let-values(((env185_0)"
+"(let-values(((env184_0)"
 " rec-env_0)"
-"((scopes186_0)"
+"((scopes185_0)"
 "(cons"
-" sc_37"
+" sc_38"
 "(expand-context-scopes"
-" ctx_84)))"
-"((reference-records187_0)"
+" ctx_82)))"
+"((reference-records186_0)"
 "(if split-by-reference?_0"
 "(cons"
 " frame-id_15"
 " orig-rrs_0)"
 " orig-rrs_0))"
-"((binding-layer188_0)"
+"((binding-layer187_0)"
 "(increment-binding-layer"
 "(cons"
 " trans-idss_2"
 " val-idss_3)"
-" ctx_84"
-" sc_37))"
-"((inner189_0)"
+" ctx_82"
+" sc_38))"
+"((inner188_0)"
 "(root-expand-context/outer-inner"
-" v_183)))"
+" v_181)))"
 "(expand-context/outer1.1"
-" inner189_0"
+" inner188_0"
 "(root-expand-context/outer-post-expansion-scope"
 " the-struct_96)"
 "(root-expand-context/outer-use-site-scopes"
@@ -67247,14 +65641,14 @@ static const char *startup_source =
 " the-struct_96)"
 "(expand-context/outer-context"
 " the-struct_96)"
-" env185_0"
+" env184_0"
 "(expand-context/outer-post-expansion-scope-action"
 " the-struct_96)"
-" scopes186_0"
+" scopes185_0"
 "(expand-context/outer-def-ctx-scopes"
 " the-struct_96)"
-" binding-layer188_0"
-" reference-records187_0"
+" binding-layer187_0"
+" reference-records186_0"
 "(expand-context/outer-only-immediate?"
 " the-struct_96)"
 "(expand-context/outer-need-eventually-defined"
@@ -67270,58 +65664,55 @@ static const char *startup_source =
 "(let-values(((letrec-values-id_0)"
 "(if(not"
 "(expand-context-to-parsed?"
-" ctx_84))"
+" ctx_82))"
 "(if syntaxes?_0"
-"(core-id 'letrec-values phase_149)"
-" let-values128_0)"
+"(core-id 'letrec-values phase_81)"
+" let-values127_0)"
 " #f)))"
 "(let-values(((rebuild-s_6)"
-"(let-values(((ctx190_0) ctx_84)"
-"((s191_1) s_528)"
-"((temp192_1) #t))"
-"(keep-as-needed120.1"
+"(let-values(((ctx189_0) ctx_82)"
+"((s190_1) s_104)"
+"((temp191_1) #t))"
+"(keep-as-needed119.1"
 " #f"
+" temp191_1"
 " #f"
-" temp192_1"
-" #t"
-" #f"
-" #f"
-" ctx190_0"
-" s191_1))))"
+" ctx189_0"
+" s190_1))))"
 "(let-values(((val-name-idss_0)"
 "(if(expand-context-to-parsed?"
-" ctx_84)"
+" ctx_82)"
 "(reverse$1"
-"(let-values(((lst_386)"
+"(let-values(((lst_251)"
 " val-idss_3))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
 "(#%variable-reference))"
 "(void)"
 "(let-values()"
-"(check-list lst_386)))"
-"((letrec-values(((for-loop_315)"
-"(lambda(fold-var_359"
-" lst_387)"
+"(check-list lst_251)))"
+"((letrec-values(((for-loop_228)"
+"(lambda(fold-var_351"
+" lst_252)"
 "(begin"
 " 'for-loop"
 "(if(pair?"
-" lst_387)"
+" lst_252)"
 "(let-values(((val-ids_1)"
 "(unsafe-car"
-" lst_387))"
-"((rest_221)"
+" lst_252))"
+"((rest_139)"
 "(unsafe-cdr"
-" lst_387)))"
-"(let-values(((fold-var_360)"
-"(let-values(((fold-var_361)"
-" fold-var_359))"
-"(let-values(((fold-var_362)"
+" lst_252)))"
+"(let-values(((fold-var_352)"
+"(let-values(((fold-var_353)"
+" fold-var_351))"
+"(let-values(((fold-var_354)"
 "(let-values()"
 "(cons"
 "(let-values()"
 "(reverse$1"
-"(let-values(((lst_67)"
+"(let-values(((lst_384)"
 " val-ids_1))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
@@ -67329,24 +65720,24 @@ static const char *startup_source =
 "(void)"
 "(let-values()"
 "(check-list"
-" lst_67)))"
-"((letrec-values(((for-loop_91)"
-"(lambda(fold-var_363"
-" lst_388)"
+" lst_384)))"
+"((letrec-values(((for-loop_312)"
+"(lambda(fold-var_355"
+" lst_385)"
 "(begin"
 " 'for-loop"
 "(if(pair?"
-" lst_388)"
+" lst_385)"
 "(let-values(((val-id_0)"
 "(unsafe-car"
-" lst_388))"
-"((rest_222)"
+" lst_385))"
+"((rest_230)"
 "(unsafe-cdr"
-" lst_388)))"
-"(let-values(((fold-var_364)"
-"(let-values(((fold-var_365)"
-" fold-var_363))"
-"(let-values(((fold-var_366)"
+" lst_385)))"
+"(let-values(((fold-var_356)"
+"(let-values(((fold-var_127)"
+" fold-var_355))"
+"(let-values(((fold-var_357)"
 "(let-values()"
 "(cons"
 "(let-values()"
@@ -67356,44 +65747,44 @@ static const char *startup_source =
 " val-id_0)"
 " val-id_0"
 " val-id_0))"
-" fold-var_365))))"
+" fold-var_127))))"
 "(values"
-" fold-var_366)))))"
+" fold-var_357)))))"
 "(if(not"
 " #f)"
-"(for-loop_91"
-" fold-var_364"
-" rest_222)"
-" fold-var_364)))"
-" fold-var_363)))))"
-" for-loop_91)"
+"(for-loop_312"
+" fold-var_356"
+" rest_230)"
+" fold-var_356)))"
+" fold-var_355)))))"
+" for-loop_312)"
 " null"
-" lst_67)))))"
-" fold-var_361))))"
+" lst_384)))))"
+" fold-var_353))))"
 "(values"
-" fold-var_362)))))"
+" fold-var_354)))))"
 "(if(not"
 " #f)"
-"(for-loop_315"
-" fold-var_360"
-" rest_221)"
-" fold-var_360)))"
-" fold-var_359)))))"
-" for-loop_315)"
+"(for-loop_228"
+" fold-var_352"
+" rest_139)"
+" fold-var_352)))"
+" fold-var_351)))))"
+" for-loop_228)"
 " null"
-" lst_386))))"
+" lst_251))))"
 " val-idss_3)))"
 "(let-values((()"
 "(begin"
 "(if syntaxes?_0"
 "(let-values()"
-"(let-values(((obs_96)"
+"(let-values(((obs_94)"
 "(expand-context-observer"
-" ctx_84)))"
-"(if obs_96"
+" ctx_82)))"
+"(if obs_94"
 "(let-values()"
 "(log-letrec-values"
-" obs_96"
+" obs_94"
 " val-idss_3"
 " val-rhss_3"
 " bodys_10))"
@@ -67406,10 +65797,10 @@ static const char *startup_source =
 " 'get-body"
 "(let-values((()"
 "(begin"
-"(let-values(((obs_97)"
+"(let-values(((obs_95)"
 "(expand-context-observer"
-" ctx_84)))"
-"(if obs_97"
+" ctx_82)))"
+"(if obs_95"
 "(let-values()"
 "(if(not"
 "(if syntaxes?_0"
@@ -67418,25 +65809,25 @@ static const char *startup_source =
 " #f))"
 "(let-values()"
 "(call-expand-observe"
-" obs_97"
+" obs_95"
 " 'next-group))"
 "(void)))"
 "(void)))"
 "(values))))"
 "(let-values(((body-ctx_5)"
-"(let-values(((v_268)"
+"(let-values(((v_267)"
 " rec-ctx_0))"
 "(let-values(((the-struct_97)"
-" v_268))"
+" v_267))"
 "(if(expand-context/outer?"
 " the-struct_97)"
-"(let-values(((reference-records196_0)"
+"(let-values(((reference-records195_0)"
 " orig-rrs_0)"
-"((inner197_0)"
+"((inner196_0)"
 "(root-expand-context/outer-inner"
-" v_268)))"
+" v_267)))"
 "(expand-context/outer1.1"
-" inner197_0"
+" inner196_0"
 "(root-expand-context/outer-post-expansion-scope"
 " the-struct_97)"
 "(root-expand-context/outer-use-site-scopes"
@@ -67455,7 +65846,7 @@ static const char *startup_source =
 " the-struct_97)"
 "(expand-context/outer-binding-layer"
 " the-struct_97)"
-" reference-records196_0"
+" reference-records195_0"
 "(expand-context/outer-only-immediate?"
 " the-struct_97)"
 "(expand-context/outer-need-eventually-defined"
@@ -67468,37 +65859,36 @@ static const char *startup_source =
 " 'struct-copy"
 "                                                                                                                     \"expand-context/outer?\""
 " the-struct_97))))))"
-"(let-values(((bodys193_0)"
+"(let-values(((bodys192_0)"
 " bodys_10)"
-"((temp194_0)"
-"(let-values(((body-ctx198_0)"
+"((temp193_0)"
+"(let-values(((body-ctx197_0)"
 " body-ctx_5)"
-"((ctx199_0)"
-" ctx_84))"
-"(as-tail-context23.1"
-" ctx199_0"
-" body-ctx198_0)))"
-"((rebuild-s195_0)"
+"((ctx198_0)"
+" ctx_82))"
+"(as-tail-context22.1"
+" ctx198_0"
+" body-ctx197_0)))"
+"((rebuild-s194_0)"
 " rebuild-s_6))"
 "(expand-body7.1"
-" rebuild-s195_0"
+" rebuild-s194_0"
 " #f"
-" #f"
-" bodys193_0"
-" temp194_0))))))))"
+" bodys192_0"
+" temp193_0))))))))"
 "(let-values(((result-s_12)"
 "(if(not"
 " split-by-reference?_0)"
 "(let-values()"
 "(let-values(((clauses_2)"
 "(reverse$1"
-"(let-values(((lst_389)"
+"(let-values(((lst_149)"
 " val-name-idss_0)"
-"((lst_390)"
+"((lst_386)"
 " val-keyss_2)"
-"((lst_391)"
+"((lst_150)"
 " val-rhss_3)"
-"((lst_392)"
+"((lst_387)"
 " val-clauses_0))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
@@ -67506,139 +65896,136 @@ static const char *startup_source =
 "(void)"
 "(let-values()"
 "(check-list"
-" lst_389)))"
+" lst_149)))"
 "(if(variable-reference-from-unsafe?"
 "(#%variable-reference))"
 "(void)"
 "(let-values()"
 "(check-list"
-" lst_390)))"
+" lst_386)))"
 "(if(variable-reference-from-unsafe?"
 "(#%variable-reference))"
 "(void)"
 "(let-values()"
 "(check-list"
-" lst_391)))"
+" lst_150)))"
 "(if(variable-reference-from-unsafe?"
 "(#%variable-reference))"
 "(void)"
 "(let-values()"
 "(check-list"
-" lst_392)))"
-"((letrec-values(((for-loop_316)"
-"(lambda(fold-var_367"
-" lst_393"
-" lst_394"
-" lst_395"
-" lst_396)"
+" lst_387)))"
+"((letrec-values(((for-loop_313)"
+"(lambda(fold-var_358"
+" lst_388"
+" lst_389"
+" lst_390"
+" lst_391)"
 "(begin"
 " 'for-loop"
 "(if(if(pair?"
-" lst_393)"
+" lst_388)"
 "(if(pair?"
-" lst_394)"
+" lst_389)"
 "(if(pair?"
-" lst_395)"
+" lst_390)"
 "(pair?"
-" lst_396)"
+" lst_391)"
 " #f)"
 " #f)"
 " #f)"
-"(let-values(((ids_43)"
+"(let-values(((ids_44)"
 "(unsafe-car"
-" lst_393))"
-"((rest_223)"
+" lst_388))"
+"((rest_231)"
 "(unsafe-cdr"
-" lst_393))"
+" lst_388))"
 "((keys_12)"
 "(unsafe-car"
-" lst_394))"
-"((rest_224)"
+" lst_389))"
+"((rest_232)"
 "(unsafe-cdr"
-" lst_394))"
+" lst_389))"
 "((rhs_22)"
 "(unsafe-car"
-" lst_395))"
-"((rest_225)"
+" lst_390))"
+"((rest_233)"
 "(unsafe-cdr"
-" lst_395))"
+" lst_390))"
 "((clause_4)"
 "(unsafe-car"
-" lst_396))"
-"((rest_226)"
+" lst_391))"
+"((rest_234)"
 "(unsafe-cdr"
-" lst_396)))"
-"(let-values(((fold-var_368)"
-"(let-values(((fold-var_369)"
-" fold-var_367))"
-"(let-values(((fold-var_370)"
+" lst_391)))"
+"(let-values(((fold-var_51)"
+"(let-values(((fold-var_359)"
+" fold-var_358))"
+"(let-values(((fold-var_360)"
 "(let-values()"
 "(cons"
 "(let-values()"
 "(let-values((()"
 "(begin"
-"(let-values(((obs_98)"
+"(let-values(((obs_96)"
 "(expand-context-observer"
-" ctx_84)))"
-"(if obs_98"
+" ctx_82)))"
+"(if obs_96"
 "(let-values()"
 "(let-values()"
 "(call-expand-observe"
-" obs_98"
+" obs_96"
 " 'next)))"
 "(void)))"
 "(values))))"
 "(let-values(((exp-rhs_4)"
-"(let-values(((rhs200_0)"
+"(let-values(((rhs199_0)"
 " rhs_22)"
-"((temp201_1)"
+"((temp200_0)"
 "(if rec?_1"
 "(as-named-context"
 " rec-ctx_0"
-" ids_43)"
+" ids_44)"
 "(as-named-context"
 " expr-ctx_0"
-" ids_43))))"
+" ids_44))))"
 "(expand9.1"
 " #f"
 " #f"
 " #f"
-" #f"
-" #f"
-" #f"
-" rhs200_0"
-" temp201_1))))"
+" rhs199_0"
+" temp200_0))))"
 "(if(expand-context-to-parsed?"
-" ctx_84)"
+" ctx_82)"
 "(list"
 " keys_12"
 " exp-rhs_4)"
 "(datum->syntax$1"
 " #f"
 "(list"
-" ids_43"
+" ids_44"
 " exp-rhs_4)"
 " clause_4"
 " clause_4)))))"
-" fold-var_369))))"
+" fold-var_359))))"
 "(values"
-" fold-var_370)))))"
+" fold-var_360)))))"
 "(if(not"
 " #f)"
-"(for-loop_316"
-" fold-var_368"
-" rest_223"
-" rest_224"
-" rest_225"
-" rest_226)"
-" fold-var_368)))"
-" fold-var_367)))))"
-" for-loop_316)"
+"(for-loop_313"
+" fold-var_51"
+" rest_231"
+" rest_232"
+" rest_233"
+" rest_234)"
+" fold-var_51)))"
+" fold-var_358)))))"
+" for-loop_313)"
 " null"
-" lst_389"
-" lst_390"
-" lst_391"
-" lst_392))))))"
+" lst_149"
+" lst_386"
+" lst_150"
+" lst_387))))))"
 "(let-values(((exp-body_4)"
 "(get-body_1)))"
 "(begin"
@@ -67648,7 +66035,7 @@ static const char *startup_source =
 " frame-id_15))"
 "(void))"
 "(if(expand-context-to-parsed?"
-" ctx_84)"
+" ctx_82)"
 "(if rec?_1"
 "(parsed-letrec-values18.1"
 " rebuild-s_6"
@@ -67660,129 +66047,128 @@ static const char *startup_source =
 " val-name-idss_0"
 " clauses_2"
 " exp-body_4))"
-"(let-values(((rebuild-s202_0)"
+"(let-values(((rebuild-s201_0)"
 " rebuild-s_6)"
-"((temp203_0)"
+"((temp202_1)"
 "(list*"
 " letrec-values-id_0"
 " clauses_2"
 " exp-body_4)))"
 "(rebuild5.1"
-" #f"
-" #f"
-" rebuild-s202_0"
-" temp203_0)))))))"
+" #t"
+" rebuild-s201_0"
+" temp202_1)))))))"
 "(let-values()"
-"(let-values(((val-idss204_0)"
+"(let-values(((val-idss203_0)"
 " val-idss_3)"
-"((val-keyss205_0)"
+"((val-keyss204_0)"
 " val-keyss_2)"
-"((val-rhss206_0)"
+"((val-rhss205_0)"
 " val-rhss_3)"
-"((val-clauses207_0)"
+"((val-clauses206_0)"
 " val-clauses_0)"
-"((temp208_0)"
+"((temp207_0)"
 " #t)"
-"((frame-id209_0)"
+"((frame-id208_0)"
 " frame-id_15)"
-"((rec-ctx210_0)"
+"((rec-ctx209_0)"
 " rec-ctx_0)"
-"((rebuild-s211_0)"
+"((rebuild-s210_0)"
 " rebuild-s_6)"
-"((syntaxes?212_0)"
+"((syntaxes?211_0)"
 " syntaxes?_0)"
-"((get-body213_0)"
+"((get-body212_0)"
 " get-body_1)"
-"((temp214_1)"
+"((temp213_2)"
 " #t))"
 "(expand-and-split-bindings-by-reference48.1"
-" rec-ctx210_0"
-" frame-id209_0"
-" get-body213_0"
-" syntaxes?212_0"
-" rebuild-s211_0"
-" temp208_0"
-" temp214_1"
-" val-idss204_0"
-" val-keyss205_0"
-" val-rhss206_0"
-" val-clauses207_0))))))"
-"(if(expand-context-to-parsed? ctx_84)"
+" rec-ctx209_0"
+" frame-id208_0"
+" get-body212_0"
+" syntaxes?211_0"
+" rebuild-s210_0"
+" temp207_0"
+" temp213_2"
+" val-idss203_0"
+" val-keyss204_0"
+" val-rhss205_0"
+" val-clauses206_0))))))"
+"(if(expand-context-to-parsed? ctx_82)"
 " result-s_12"
 "(attach-disappeared-transformer-bindings"
 " result-s_12"
 " trans-idss_2))))))))))))))))))))))))))))))))))))))))))"
 "(define-values"
 "(log-let-renames)"
-"(lambda(obs_99 renames-log-tag_1 val-idss_4 val-rhss_4 bodys_11 trans-idss_3 trans-rhss_0 sc_38)"
+"(lambda(obs_97 renames-log-tag_1 val-idss_4 val-rhss_4 bodys_11 trans-idss_3 trans-rhss_0 sc_39)"
 "(begin"
 "(let-values(((vals+body_0)"
 "(cons"
 "(reverse$1"
-"(let-values(((lst_397) val-idss_4)((lst_398) val-rhss_4))"
+"(let-values(((lst_392) val-idss_4)((lst_393) val-rhss_4))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
-"(let-values()(check-list lst_397)))"
+"(let-values()(check-list lst_392)))"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
-"(let-values()(check-list lst_398)))"
-"((letrec-values(((for-loop_317)"
-"(lambda(fold-var_371 lst_399 lst_400)"
+"(let-values()(check-list lst_393)))"
+"((letrec-values(((for-loop_314)"
+"(lambda(fold-var_361 lst_394 lst_395)"
 "(begin"
 " 'for-loop"
-"(if(if(pair? lst_399)(pair? lst_400) #f)"
-"(let-values(((val-ids_2)(unsafe-car lst_399))"
-"((rest_227)(unsafe-cdr lst_399))"
-"((val-rhs_11)(unsafe-car lst_400))"
-"((rest_228)(unsafe-cdr lst_400)))"
-"(let-values(((fold-var_372)"
-"(let-values(((fold-var_373) fold-var_371))"
-"(let-values(((fold-var_374)"
+"(if(if(pair? lst_394)(pair? lst_395) #f)"
+"(let-values(((val-ids_2)(unsafe-car lst_394))"
+"((rest_235)(unsafe-cdr lst_394))"
+"((val-rhs_11)(unsafe-car lst_395))"
+"((rest_236)(unsafe-cdr lst_395)))"
+"(let-values(((fold-var_362)"
+"(let-values(((fold-var_363) fold-var_361))"
+"(let-values(((fold-var_364)"
 "(let-values()"
 "(cons"
 "(let-values()"
 "(datum->syntax$1"
 " #f"
 "(list val-ids_2 val-rhs_11)))"
-" fold-var_373))))"
-"(values fold-var_374)))))"
+" fold-var_363))))"
+"(values fold-var_364)))))"
 "(if(not #f)"
-"(for-loop_317 fold-var_372 rest_227 rest_228)"
-" fold-var_372)))"
-" fold-var_371)))))"
-" for-loop_317)"
+"(for-loop_314 fold-var_362 rest_235 rest_236)"
+" fold-var_362)))"
+" fold-var_361)))))"
+" for-loop_314)"
 " null"
-" lst_397"
-" lst_398))))"
+" lst_392"
+" lst_393))))"
 "(datum->syntax$1 #f bodys_11))))"
 "(call-expand-observe"
-" obs_99"
+" obs_97"
 " renames-log-tag_1"
 "(if(not trans-rhss_0)"
 " vals+body_0"
 "(cons"
 "(reverse$1"
-"(let-values(((lst_401) trans-idss_3)((lst_402) trans-rhss_0))"
+"(let-values(((lst_396) trans-idss_3)((lst_397) trans-rhss_0))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
-"(let-values()(check-list lst_401)))"
+"(let-values()(check-list lst_396)))"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
-"(let-values()(check-list lst_402)))"
-"((letrec-values(((for-loop_318)"
-"(lambda(fold-var_375 lst_403 lst_404)"
+"(let-values()(check-list lst_397)))"
+"((letrec-values(((for-loop_315)"
+"(lambda(fold-var_365 lst_398 lst_399)"
 "(begin"
 " 'for-loop"
-"(if(if(pair? lst_403)(pair? lst_404) #f)"
-"(let-values(((trans-ids_0)(unsafe-car lst_403))"
-"((rest_229)(unsafe-cdr lst_403))"
-"((trans-rhs_5)(unsafe-car lst_404))"
-"((rest_230)(unsafe-cdr lst_404)))"
-"(let-values(((fold-var_376)"
-"(let-values(((fold-var_377) fold-var_375))"
-"(let-values(((fold-var_378)"
+"(if(if(pair? lst_398)(pair? lst_399) #f)"
+"(let-values(((trans-ids_0)(unsafe-car lst_398))"
+"((rest_237)(unsafe-cdr lst_398))"
+"((trans-rhs_5)(unsafe-car lst_399))"
+"((rest_238)(unsafe-cdr lst_399)))"
+"(let-values(((fold-var_366)"
+"(let-values(((fold-var_367) fold-var_365))"
+"(let-values(((fold-var_368)"
 "(let-values()"
 "(cons"
 "(let-values()"
@@ -67790,122 +66176,122 @@ static const char *startup_source =
 " #f"
 "(list"
 " trans-ids_0"
-"(add-scope trans-rhs_5 sc_38))))"
-" fold-var_377))))"
-"(values fold-var_378)))))"
-"(if(not #f)(for-loop_318 fold-var_376 rest_229 rest_230) fold-var_376)))"
-" fold-var_375)))))"
-" for-loop_318)"
+"(add-scope trans-rhs_5 sc_39))))"
+" fold-var_367))))"
+"(values fold-var_368)))))"
+"(if(not #f)(for-loop_315 fold-var_366 rest_237 rest_238) fold-var_366)))"
+" fold-var_365)))))"
+" for-loop_315)"
 " null"
-" lst_401"
-" lst_402))))"
+" lst_396"
+" lst_397))))"
 " vals+body_0)))))))"
 "(define-values"
 "(log-letrec-values)"
-"(lambda(obs_100 val-idss_5 val-rhss_5 bodys_12)"
+"(lambda(obs_98 val-idss_5 val-rhss_5 bodys_12)"
 "(begin"
 "(begin"
-"(call-expand-observe obs_100 'next-group)"
+"(call-expand-observe obs_98 'next-group)"
 "(if(null? val-idss_5)"
 "(void)"
 "(let-values()"
 "(begin"
-"(call-expand-observe obs_100 'prim-letrec-values)"
-"(log-let-renames obs_100 'let-renames val-idss_5 val-rhss_5 bodys_12 #f #f #f))))))))"
+"(call-expand-observe obs_98 'prim-letrec-values)"
+"(log-let-renames obs_98 'let-renames val-idss_5 val-rhss_5 bodys_12 #f #f #f))))))))"
 "(void"
 "(add-core-form!*"
 " 'let-values"
-"(let-values(((temp215_1) 'prim-let-values))(make-let-values-form11.1 temp215_1 #f #f #f #f #f #f #f #f))))"
+"(let-values(((temp214_2) 'prim-let-values))(make-let-values-form11.1 temp214_2 #f 'let-renames #f #f))))"
 "(void"
 "(add-core-form!*"
 " 'letrec-values"
-"(let-values(((temp216_2) #t)((temp217_2) 'prim-letrec-values))"
-"(make-let-values-form11.1 temp217_2 temp216_2 #t #f #f #f #f #f #f))))"
+"(let-values(((temp215_1) #t)((temp216_1) 'prim-letrec-values))"
+"(make-let-values-form11.1 temp216_1 temp215_1 'let-renames #f #f))))"
 "(void"
 "(add-core-form!*"
 " 'letrec-syntaxes+values"
-"(let-values(((temp218_1) #t)"
-"((temp219_1) #t)"
-"((temp220_0) #t)"
-"((temp221_1) 'prim-letrec-syntaxes+values)"
-"((temp222_2) 'letrec-syntaxes-renames))"
-"(make-let-values-form11.1 temp221_1 temp219_1 #t temp222_2 #t temp220_0 #t temp218_1 #t))))"
+"(let-values(((temp217_2) #t)"
+"((temp218_1) #t)"
+"((temp219_0) #t)"
+"((temp220_0) 'prim-letrec-syntaxes+values)"
+"((temp221_3) 'letrec-syntaxes-renames))"
+"(make-let-values-form11.1 temp220_0 temp218_1 temp221_3 temp219_0 temp217_2))))"
 "(void"
 "(add-core-form!*"
 " '#%stratified-body"
-"(lambda(s_566 ctx_85)"
+"(lambda(s_567 ctx_83)"
 "(let-values((()"
 "(begin"
-"(let-values(((obs_101)(expand-context-observer ctx_85)))"
-"(if obs_101"
-"(let-values()(let-values()(call-expand-observe obs_101 'prim-#%stratified)))"
+"(let-values(((obs_99)(expand-context-observer ctx_83)))"
+"(if obs_99"
+"(let-values()(let-values()(call-expand-observe obs_99 'prim-#%stratified)))"
 "(void)))"
 "(values))))"
-"(let-values(((disarmed-s_9)(syntax-disarm$1 s_566)))"
-"(let-values(((ok?_43 #%stratified-body223_0 body224_0)"
-"(let-values(((s_567) disarmed-s_9))"
-"(let-values(((orig-s_48) s_567))"
-"(let-values(((#%stratified-body223_1 body224_1)"
-"(let-values(((s_568)(if(syntax?$1 s_567)(syntax-e$1 s_567) s_567)))"
-"(if(pair? s_568)"
-"(let-values(((#%stratified-body225_0)"
-"(let-values(((s_569)(car s_568))) s_569))"
-"((body226_0)"
-"(let-values(((s_570)(cdr s_568)))"
-"(let-values(((s_571)"
-"(if(syntax?$1 s_570)"
-"(syntax-e$1 s_570)"
-" s_570)))"
-"(let-values(((flat-s_42)(to-syntax-list.1 s_571)))"
-"(if(not flat-s_42)"
+"(let-values(((disarmed-s_9)(syntax-disarm$1 s_567)))"
+"(let-values(((ok?_45 #%stratified-body222_0 body223_0)"
+"(let-values(((s_568) disarmed-s_9))"
+"(let-values(((orig-s_48) s_568))"
+"(let-values(((#%stratified-body222_1 body223_1)"
+"(let-values(((s_569)(if(syntax?$1 s_568)(syntax-e$1 s_568) s_568)))"
+"(if(pair? s_569)"
+"(let-values(((#%stratified-body224_0)"
+"(let-values(((s_570)(car s_569))) s_570))"
+"((body225_0)"
+"(let-values(((s_571)(cdr s_569)))"
+"(let-values(((s_572)"
+"(if(syntax?$1 s_571)"
+"(syntax-e$1 s_571)"
+" s_571)))"
+"(let-values(((flat-s_43)(to-syntax-list.1 s_572)))"
+"(if(not flat-s_43)"
 "(let-values()"
 "                                                                     (raise-syntax-error$1 #f \"bad syntax\" orig-s_48))"
-"(if(null? flat-s_42)"
+"(if(null? flat-s_43)"
 "(let-values()"
 "                                                                       (raise-syntax-error$1 #f \"bad syntax\" orig-s_48))"
-"(let-values() flat-s_42))))))))"
-"(values #%stratified-body225_0 body226_0))"
+"(let-values() flat-s_43))))))))"
+"(values #%stratified-body224_0 body225_0))"
 "                                             (raise-syntax-error$1 #f \"bad syntax\" orig-s_48)))))"
-"(values #t #%stratified-body223_1 body224_1))))))"
+"(values #t #%stratified-body222_1 body223_1))))))"
 "(let-values(((rebuild-s_7)"
-"(let-values(((ctx227_0) ctx_85)((s228_1) s_566)((temp229_1) #t))"
-"(keep-as-needed120.1 #f #f temp229_1 #t #f #f ctx227_0 s228_1))))"
+"(let-values(((ctx226_0) ctx_83)((s227_1) s_567)((temp228_0) #t))"
+"(keep-as-needed119.1 #f temp228_0 #f ctx226_0 s227_1))))"
 "(let-values(((exp-body_5)"
-"(let-values(((temp230_2) body224_0)"
-"((ctx231_0) ctx_85)"
-"((temp232_1) #t)"
-"((rebuild-s233_0) rebuild-s_7))"
-"(expand-body7.1 rebuild-s233_0 temp232_1 #t temp230_2 ctx231_0))))"
-"(if(expand-context-to-parsed? ctx_85)"
+"(let-values(((temp229_3) body223_0)"
+"((ctx230_0) ctx_83)"
+"((temp231_1) #t)"
+"((rebuild-s232_0) rebuild-s_7))"
+"(expand-body7.1 rebuild-s232_0 temp231_1 temp229_3 ctx230_0))))"
+"(if(expand-context-to-parsed? ctx_83)"
 "(parsed-begin12.1 rebuild-s_7 exp-body_5)"
-"(let-values(((rebuild-s234_0) rebuild-s_7)"
-"((temp235_1)"
+"(let-values(((rebuild-s233_0) rebuild-s_7)"
+"((temp234_1)"
 "(if(null?(cdr exp-body_5))"
 "(car exp-body_5)"
-"(list*(core-id 'begin(expand-context-phase ctx_85)) exp-body_5))))"
-"(rebuild5.1 #f #f rebuild-s234_0 temp235_1)))))))))))"
+"(list*(core-id 'begin(expand-context-phase ctx_83)) exp-body_5))))"
+"(rebuild5.1 #t rebuild-s233_0 temp234_1)))))))))))"
 "(void"
 "(add-core-form!*"
 " '#%datum"
-"(lambda(s_572 ctx_86)"
+"(lambda(s_573 ctx_84)"
 "(let-values((()"
 "(begin"
-"(let-values(((obs_102)(expand-context-observer ctx_86)))"
-"(if obs_102(let-values()(let-values()(call-expand-observe obs_102 'prim-#%datum)))(void)))"
+"(let-values(((obs_100)(expand-context-observer ctx_84)))"
+"(if obs_100(let-values()(let-values()(call-expand-observe obs_100 'prim-#%datum)))(void)))"
 "(values))))"
-"(let-values(((disarmed-s_10)(syntax-disarm$1 s_572)))"
-"(let-values(((ok?_44 #%datum236_0 datum237_0)"
-"(let-values(((s_573) disarmed-s_10))"
-"(let-values(((orig-s_49) s_573))"
-"(let-values(((#%datum236_1 datum237_1)"
-"(let-values(((s_574)(if(syntax?$1 s_573)(syntax-e$1 s_573) s_573)))"
-"(if(pair? s_574)"
-"(let-values(((#%datum238_0)(let-values(((s_575)(car s_574))) s_575))"
-"((datum239_0)(let-values(((s_576)(cdr s_574))) s_576)))"
-"(values #%datum238_0 datum239_0))"
+"(let-values(((disarmed-s_10)(syntax-disarm$1 s_573)))"
+"(let-values(((ok?_46 #%datum235_0 datum236_0)"
+"(let-values(((s_574) disarmed-s_10))"
+"(let-values(((orig-s_49) s_574))"
+"(let-values(((#%datum235_1 datum236_1)"
+"(let-values(((s_575)(if(syntax?$1 s_574)(syntax-e$1 s_574) s_574)))"
+"(if(pair? s_575)"
+"(let-values(((#%datum237_0)(let-values(((s_576)(car s_575))) s_576))"
+"((datum238_0)(let-values(((s_577)(cdr s_575))) s_577)))"
+"(values #%datum237_0 datum238_0))"
 "                                             (raise-syntax-error$1 #f \"bad syntax\" orig-s_49)))))"
-"(values #t #%datum236_1 datum237_1))))))"
-"(let-values(((datum_2) datum237_0))"
+"(values #t #%datum235_1 datum236_1))))))"
+"(let-values(((datum_2) datum236_0))"
 "(let-values((()"
 "(begin"
 "(if(if(syntax?$1 datum_2)(keyword?(syntax-e$1 datum_2)) #f)"
@@ -67913,253 +66299,242 @@ static const char *startup_source =
 "                                 (raise-syntax-error$1 '#%datum \"keyword misused as an expression\" #f datum_2))"
 "(void))"
 "(values))))"
-"(let-values(((phase_150)(expand-context-phase ctx_86)))"
-"(if(if(expand-context-to-parsed? ctx_86)(free-id-set-empty?(expand-context-stops ctx_86)) #f)"
-"(parsed-quote14.1(keep-properties-only~ s_572)(syntax->datum$1 datum_2))"
-"(let-values(((s240_0) s_572)((temp241_1)(list(core-id 'quote phase_150) datum_2)))"
-"(rebuild5.1 #f #f s240_0 temp241_1))))))))))))"
+"(let-values(((phase_140)(expand-context-phase ctx_84)))"
+"(if(if(expand-context-to-parsed? ctx_84)(free-id-set-empty?(expand-context-stops ctx_84)) #f)"
+"(parsed-quote14.1(keep-properties-only~ s_573)(syntax->datum$1 datum_2))"
+"(let-values(((s239_0) s_573)((temp240_0)(list(core-id 'quote phase_140) datum_2)))"
+"(rebuild5.1 #t s239_0 temp240_0))))))))))))"
 "(void"
 "(add-core-form!*"
 " '#%app"
-"(lambda(s_577 ctx_87)"
+"(lambda(s_578 ctx_85)"
 "(let-values((()"
 "(begin"
-"(let-values(((obs_103)(expand-context-observer ctx_87)))"
-"(if obs_103(let-values()(let-values()(call-expand-observe obs_103 'prim-#%app)))(void)))"
+"(let-values(((obs_101)(expand-context-observer ctx_85)))"
+"(if obs_101(let-values()(let-values()(call-expand-observe obs_101 'prim-#%app)))(void)))"
 "(values))))"
-"(let-values(((disarmed-s_11)(syntax-disarm$1 s_577)))"
-"(let-values(((ok?_45 #%app242_0 e243_0)"
-"(let-values(((s_578) disarmed-s_11))"
-"(let-values(((orig-s_50) s_578))"
-"(let-values(((#%app242_1 e243_1)"
-"(let-values(((s_579)(if(syntax?$1 s_578)(syntax-e$1 s_578) s_578)))"
-"(if(pair? s_579)"
-"(let-values(((#%app244_0)(let-values(((s_580)(car s_579))) s_580))"
-"((e245_0)"
-"(let-values(((s_581)(cdr s_579)))"
-"(let-values(((s_582)"
-"(if(syntax?$1 s_581)"
-"(syntax-e$1 s_581)"
-" s_581)))"
-"(let-values(((flat-s_43)(to-syntax-list.1 s_582)))"
-"(if(not flat-s_43)"
+"(let-values(((disarmed-s_11)(syntax-disarm$1 s_578)))"
+"(let-values(((ok?_47 #%app241_0 e242_0)"
+"(let-values(((s_579) disarmed-s_11))"
+"(let-values(((orig-s_50) s_579))"
+"(let-values(((#%app241_1 e242_1)"
+"(let-values(((s_580)(if(syntax?$1 s_579)(syntax-e$1 s_579) s_579)))"
+"(if(pair? s_580)"
+"(let-values(((#%app243_0)(let-values(((s_581)(car s_580))) s_581))"
+"((e244_0)"
+"(let-values(((s_582)(cdr s_580)))"
+"(let-values(((s_583)"
+"(if(syntax?$1 s_582)"
+"(syntax-e$1 s_582)"
+" s_582)))"
+"(let-values(((flat-s_44)(to-syntax-list.1 s_583)))"
+"(if(not flat-s_44)"
 "(let-values()"
 "                                                                     (raise-syntax-error$1 #f \"bad syntax\" orig-s_50))"
-"(let-values() flat-s_43)))))))"
-"(values #%app244_0 e245_0))"
+"(let-values() flat-s_44)))))))"
+"(values #%app243_0 e244_0))"
 "                                             (raise-syntax-error$1 #f \"bad syntax\" orig-s_50)))))"
-"(values #t #%app242_1 e243_1))))))"
-"(let-values(((es_3) e243_0))"
+"(values #t #%app241_1 e242_1))))))"
+"(let-values(((es_3) e242_0))"
 "(if(null? es_3)"
 "(let-values()"
-"(let-values(((phase_151)(expand-context-phase ctx_87)))"
-"(if(expand-context-to-parsed? ctx_87)"
-"(parsed-quote14.1(keep-properties-only~ s_577) null)"
-"(let-values(((s246_0) s_577)((temp247_0)(list(core-id 'quote phase_151) null)))"
-"(rebuild5.1 #f #f s246_0 temp247_0)))))"
+"(let-values(((phase_141)(expand-context-phase ctx_85)))"
+"(if(expand-context-to-parsed? ctx_85)"
+"(parsed-quote14.1(keep-properties-only~ s_578) null)"
+"(let-values(((s245_0) s_578)((temp246_1)(list(core-id 'quote phase_141) null)))"
+"(rebuild5.1 #t s245_0 temp246_1)))))"
 "(let-values()"
 "(let-values(((keep-for-parsed?_1)(eq?(system-type 'vm) 'chez-scheme)))"
 "(let-values(((rebuild-s_8)"
-"(let-values(((ctx248_0) ctx_87)"
-"((s249_0) s_577)"
-"((keep-for-parsed?250_0) keep-for-parsed?_1))"
-"(keep-as-needed120.1 #f #f #f #f keep-for-parsed?250_0 #t ctx248_0 s249_0))))"
+"(let-values(((ctx247_0) ctx_85)"
+"((s248_0) s_578)"
+"((keep-for-parsed?249_0) keep-for-parsed?_1))"
+"(keep-as-needed119.1 #f #f keep-for-parsed?249_0 ctx247_0 s248_0))))"
 "(let-values(((prefixless_0)(cdr(syntax-e$1 disarmed-s_11))))"
 "(let-values(((rebuild-prefixless_0)"
 "(if(syntax?$1 prefixless_0)"
-"(let-values(((ctx251_0) ctx_87)"
-"((prefixless252_0) prefixless_0)"
-"((keep-for-parsed?253_0) keep-for-parsed?_1))"
-"(keep-as-needed120.1"
-" #f"
-" #f"
-" #f"
-" #f"
-" keep-for-parsed?253_0"
-" #t"
-" ctx251_0"
-" prefixless252_0))"
+"(let-values(((ctx250_0) ctx_85)"
+"((prefixless251_0) prefixless_0)"
+"((keep-for-parsed?252_0) keep-for-parsed?_1))"
+"(keep-as-needed119.1 #f #f keep-for-parsed?252_0 ctx250_0 prefixless251_0))"
 " #f)))"
-"(let-values(((expr-ctx_1)(as-expression-context ctx_87)))"
+"(let-values(((expr-ctx_1)(as-expression-context ctx_85)))"
 "(let-values((()"
 "(begin"
-"(let-values(((obs_104)(expand-context-observer expr-ctx_1)))"
-"(if obs_104"
+"(let-values(((obs_102)(expand-context-observer expr-ctx_1)))"
+"(if obs_102"
 "(let-values()"
 "(let-values()"
 "(begin"
 "(call-expand-observe"
-" obs_104"
+" obs_102"
 " 'enter-list"
-"(datum->syntax$1 #f es_3 s_577))"
-"(call-expand-observe obs_104 'next))))"
+"(datum->syntax$1 #f es_3 s_578))"
+"(call-expand-observe obs_102 'next))))"
 "(void)))"
 "(values))))"
 "(let-values(((rest-es_0)(cdr es_3)))"
 "(let-values(((exp-rator_0)"
-"(let-values(((temp254_0)(car es_3))((expr-ctx255_0) expr-ctx_1))"
-"(expand9.1 #f #f #f #f #f #f temp254_0 expr-ctx255_0))))"
+"(let-values(((temp253_1)(car es_3))((expr-ctx254_0) expr-ctx_1))"
+"(expand9.1 #f #f #f temp253_1 expr-ctx254_0))))"
 "(let-values(((exp-es_0)"
 "(reverse$1"
-"(let-values(((lst_405) rest-es_0))"
+"(let-values(((lst_400) rest-es_0))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
-"(let-values()(check-list lst_405)))"
-"((letrec-values(((for-loop_319)"
-"(lambda(fold-var_379 lst_406)"
+"(let-values()(check-list lst_400)))"
+"((letrec-values(((for-loop_316)"
+"(lambda(fold-var_369 lst_401)"
 "(begin"
 " 'for-loop"
-"(if(pair? lst_406)"
-"(let-values(((e_92)(unsafe-car lst_406))"
-"((rest_231)"
-"(unsafe-cdr lst_406)))"
-"(let-values(((fold-var_380)"
-"(let-values(((fold-var_381)"
-" fold-var_379))"
-"(let-values(((fold-var_382)"
+"(if(pair? lst_401)"
+"(let-values(((e_90)(unsafe-car lst_401))"
+"((rest_239)"
+"(unsafe-cdr lst_401)))"
+"(let-values(((fold-var_370)"
+"(let-values(((fold-var_371)"
+" fold-var_369))"
+"(let-values(((fold-var_372)"
 "(let-values()"
 "(cons"
 "(let-values()"
 "(begin"
-"(let-values(((obs_105)"
+"(let-values(((obs_103)"
 "(expand-context-observer"
 " expr-ctx_1)))"
-"(if obs_105"
+"(if obs_103"
 "(let-values()"
 "(let-values()"
 "(call-expand-observe"
-" obs_105"
+" obs_103"
 " 'next)))"
 "(void)))"
-"(let-values(((e256_0)"
-" e_92)"
-"((expr-ctx257_0)"
+"(let-values(((e255_0)"
+" e_90)"
+"((expr-ctx256_0)"
 " expr-ctx_1))"
 "(expand9.1"
 " #f"
 " #f"
 " #f"
-" #f"
-" #f"
-" #f"
-" e256_0"
-" expr-ctx257_0))))"
-" fold-var_381))))"
+" e255_0"
+" expr-ctx256_0))))"
+" fold-var_371))))"
 "(values"
-" fold-var_382)))))"
+" fold-var_372)))))"
 "(if(not #f)"
-"(for-loop_319 fold-var_380 rest_231)"
-" fold-var_380)))"
-" fold-var_379)))))"
-" for-loop_319)"
+"(for-loop_316 fold-var_370 rest_239)"
+" fold-var_370)))"
+" fold-var_369)))))"
+" for-loop_316)"
 " null"
-" lst_405))))))"
-"(if(expand-context-to-parsed? ctx_87)"
+" lst_400))))))"
+"(if(expand-context-to-parsed? ctx_85)"
 "(let-values()"
 "(parsed-app7.1"
-"(let-values(((or-part_384) rebuild-prefixless_0))"
-"(if or-part_384 or-part_384 rebuild-s_8))"
+"(let-values(((or-part_379) rebuild-prefixless_0))"
+"(if or-part_379 or-part_379 rebuild-s_8))"
 " exp-rator_0"
 " exp-es_0))"
 "(let-values()"
 "(let-values(((es_4)"
 "(let-values(((exp-es_1)(cons exp-rator_0 exp-es_0)))"
 "(if rebuild-prefixless_0"
-"(let-values(((rebuild-prefixless260_0) rebuild-prefixless_0)"
-"((exp-es261_0) exp-es_1))"
-"(rebuild5.1 #f #f rebuild-prefixless260_0 exp-es261_0))"
+"(let-values(((rebuild-prefixless259_0) rebuild-prefixless_0)"
+"((exp-es260_0) exp-es_1))"
+"(rebuild5.1 #t rebuild-prefixless259_0 exp-es260_0))"
 " exp-es_1))))"
 "(begin"
-"(let-values(((obs_106)(expand-context-observer expr-ctx_1)))"
-"(if obs_106"
+"(let-values(((obs_104)(expand-context-observer expr-ctx_1)))"
+"(if obs_104"
 "(let-values()"
 "(let-values()"
 "(call-expand-observe"
-" obs_106"
+" obs_104"
 " 'exit-list"
 "(datum->syntax$1 #f es_4 rebuild-s_8))))"
 "(void)))"
-"(let-values(((rebuild-s258_0) rebuild-s_8)"
-"((temp259_1)(cons #%app242_0 es_4)))"
-"(rebuild5.1 #f #f rebuild-s258_0 temp259_1))))))))))))))))))))))))"
+"(let-values(((rebuild-s257_0) rebuild-s_8)"
+"((temp258_0)(cons #%app241_0 es_4)))"
+"(rebuild5.1 #t rebuild-s257_0 temp258_0))))))))))))))))))))))))"
 "(void"
 "(add-core-form!*"
 " 'quote"
-"(lambda(s_583 ctx_88)"
+"(lambda(s_584 ctx_86)"
 "(let-values((()"
 "(begin"
-"(let-values(((obs_107)(expand-context-observer ctx_88)))"
-"(if obs_107(let-values()(let-values()(call-expand-observe obs_107 'prim-quote)))(void)))"
+"(let-values(((obs_105)(expand-context-observer ctx_86)))"
+"(if obs_105(let-values()(let-values()(call-expand-observe obs_105 'prim-quote)))(void)))"
 "(values))))"
-"(let-values(((ok?_46 quote262_0 datum263_0)"
-"(let-values(((s_584)(syntax-disarm$1 s_583)))"
-"(let-values(((orig-s_51) s_584))"
-"(let-values(((quote262_1 datum263_1)"
-"(let-values(((s_585)(if(syntax?$1 s_584)(syntax-e$1 s_584) s_584)))"
-"(if(pair? s_585)"
-"(let-values(((quote264_0)(let-values(((s_586)(car s_585))) s_586))"
-"((datum265_0)"
-"(let-values(((s_587)(cdr s_585)))"
-"(let-values(((s_588)"
-"(if(syntax?$1 s_587)"
-"(syntax-e$1 s_587)"
-" s_587)))"
-"(if(pair? s_588)"
-"(let-values(((datum266_0)"
-"(let-values(((s_589)(car s_588))) s_589))"
+"(let-values(((ok?_48 quote261_0 datum262_0)"
+"(let-values(((s_282)(syntax-disarm$1 s_584)))"
+"(let-values(((orig-s_51) s_282))"
+"(let-values(((quote261_1 datum262_1)"
+"(let-values(((s_284)(if(syntax?$1 s_282)(syntax-e$1 s_282) s_282)))"
+"(if(pair? s_284)"
+"(let-values(((quote263_0)(let-values(((s_585)(car s_284))) s_585))"
+"((datum264_0)"
+"(let-values(((s_586)(cdr s_284)))"
+"(let-values(((s_587)"
+"(if(syntax?$1 s_586)"
+"(syntax-e$1 s_586)"
+" s_586)))"
+"(if(pair? s_587)"
+"(let-values(((datum265_0)"
+"(let-values(((s_588)(car s_587))) s_588))"
 "(()"
-"(let-values(((s_590)(cdr s_588)))"
-"(let-values(((s_286)"
-"(if(syntax?$1 s_590)"
-"(syntax-e$1 s_590)"
-" s_590)))"
-"(if(null? s_286)"
+"(let-values(((s_589)(cdr s_587)))"
+"(let-values(((s_590)"
+"(if(syntax?$1 s_589)"
+"(syntax-e$1 s_589)"
+" s_589)))"
+"(if(null? s_590)"
 "(values)"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                    \"bad syntax\""
 " orig-s_51))))))"
-"(values datum266_0))"
+"(values datum265_0))"
 "                                                               (raise-syntax-error$1 #f \"bad syntax\" orig-s_51))))))"
-"(values quote264_0 datum265_0))"
+"(values quote263_0 datum264_0))"
 "                                           (raise-syntax-error$1 #f \"bad syntax\" orig-s_51)))))"
-"(values #t quote262_1 datum263_1))))))"
-"(if(expand-context-to-parsed? ctx_88)"
-"(parsed-quote14.1(keep-properties-only~ s_583)(syntax->datum$1 datum263_0))"
-" s_583))))))"
+"(values #t quote261_1 datum262_1))))))"
+"(if(expand-context-to-parsed? ctx_86)"
+"(parsed-quote14.1(keep-properties-only~ s_584)(syntax->datum$1 datum262_0))"
+" s_584))))))"
 "(void"
 "(add-core-form!*"
 " 'quote-syntax"
-"(lambda(s_591 ctx_89)"
+"(lambda(s_591 ctx_87)"
 "(let-values((()"
 "(begin"
-"(let-values(((obs_108)(expand-context-observer ctx_89)))"
-"(if obs_108"
-"(let-values()(let-values()(call-expand-observe obs_108 'prim-quote-syntax)))"
+"(let-values(((obs_106)(expand-context-observer ctx_87)))"
+"(if obs_106"
+"(let-values()(let-values()(call-expand-observe obs_106 'prim-quote-syntax)))"
 "(void)))"
 "(values))))"
 "(let-values(((disarmed-s_12)(syntax-disarm$1 s_591)))"
-"(let-values(((ok?_47 quote-syntax267_0 datum268_0)"
-"(let-values(((s_592) disarmed-s_12))"
-"(if(let-values(((s_593)(if(syntax?$1 s_592)(syntax-e$1 s_592) s_592)))"
-"(if(pair? s_593)"
-"(if(let-values(((s_594)(car s_593))) #t)"
-"(let-values(((s_595)(cdr s_593)))"
-"(let-values(((s_596)(if(syntax?$1 s_595)(syntax-e$1 s_595) s_595)))"
-"(if(pair? s_596)"
-"(if(let-values(((s_597)(car s_596))) #t)"
-"(let-values(((s_598)(cdr s_596)))"
-"(let-values(((s_599)(if(syntax?$1 s_598)(syntax-e$1 s_598) s_598)))"
-"(if(pair? s_599)"
-"(if(let-values(((s_600)(car s_599)))"
-"(let-values(((s_601)"
-"(if(syntax?$1 s_600)(syntax-e$1 s_600) s_600)))"
-"(eq? '#:local s_601)))"
-"(let-values(((s_602)(cdr s_599)))"
-"(let-values(((s_603)"
-"(if(syntax?$1 s_602)(syntax-e$1 s_602) s_602)))"
-"(null? s_603)))"
+"(let-values(((ok?_49 quote-syntax266_0 datum267_0)"
+"(let-values(((s_291) disarmed-s_12))"
+"(if(let-values(((s_592)(if(syntax?$1 s_291)(syntax-e$1 s_291) s_291)))"
+"(if(pair? s_592)"
+"(if(let-values(((s_593)(car s_592))) #t)"
+"(let-values(((s_594)(cdr s_592)))"
+"(let-values(((s_292)(if(syntax?$1 s_594)(syntax-e$1 s_594) s_594)))"
+"(if(pair? s_292)"
+"(if(let-values(((s_595)(car s_292))) #t)"
+"(let-values(((s_596)(cdr s_292)))"
+"(let-values(((s_293)(if(syntax?$1 s_596)(syntax-e$1 s_596) s_596)))"
+"(if(pair? s_293)"
+"(if(let-values(((s_294)(car s_293)))"
+"(let-values(((s_295)"
+"(if(syntax?$1 s_294)(syntax-e$1 s_294) s_294)))"
+"(eq? '#:local s_295)))"
+"(let-values(((s_597)(cdr s_293)))"
+"(let-values(((s_598)"
+"(if(syntax?$1 s_597)(syntax-e$1 s_597) s_597)))"
+"(null? s_598)))"
 " #f)"
 " #f)))"
 " #f)"
@@ -68167,199 +66542,199 @@ static const char *startup_source =
 " #f)"
 " #f))"
 "(let-values()"
-"(let-values(((quote-syntax267_1 datum268_1)"
-"(let-values(((s_604)(if(syntax?$1 s_592)(syntax-e$1 s_592) s_592)))"
-"(let-values(((quote-syntax269_0)"
-"(let-values(((s_605)(car s_604))) s_605))"
-"((datum270_0)"
-"(let-values(((s_606)(cdr s_604)))"
-"(let-values(((s_607)"
-"(if(syntax?$1 s_606)"
-"(syntax-e$1 s_606)"
-" s_606)))"
-"(let-values(((datum271_0)"
-"(let-values(((s_608)(car s_607))) s_608))"
+"(let-values(((quote-syntax266_1 datum267_1)"
+"(let-values(((s_599)(if(syntax?$1 s_291)(syntax-e$1 s_291) s_291)))"
+"(let-values(((quote-syntax268_0)"
+"(let-values(((s_600)(car s_599))) s_600))"
+"((datum269_0)"
+"(let-values(((s_601)(cdr s_599)))"
+"(let-values(((s_602)"
+"(if(syntax?$1 s_601)"
+"(syntax-e$1 s_601)"
+" s_601)))"
+"(let-values(((datum270_0)"
+"(let-values(((s_603)(car s_602))) s_603))"
 "(()"
-"(let-values(((s_609)(cdr s_607)))"
-"(let-values(((s_298)"
-"(if(syntax?$1 s_609)"
-"(syntax-e$1 s_609)"
-" s_609)))"
+"(let-values(((s_604)(cdr s_602)))"
+"(let-values(((s_605)"
+"(if(syntax?$1 s_604)"
+"(syntax-e$1 s_604)"
+" s_604)))"
 "(let-values((()"
-"(let-values(((s_299)"
+"(let-values(((s_606)"
 "(car"
-" s_298)))"
-"(let-values(((s_300)"
+" s_605)))"
+"(let-values(((s_607)"
 "(if(syntax?$1"
-" s_299)"
+" s_606)"
 "(syntax-e$1"
-" s_299)"
-" s_299)))"
+" s_606)"
+" s_606)))"
 "(values))))"
 "(()"
-"(let-values(((s_610)"
+"(let-values(((s_608)"
 "(cdr"
-" s_298)))"
-"(let-values(((s_611)"
+" s_605)))"
+"(let-values(((s_609)"
 "(if(syntax?$1"
-" s_610)"
+" s_608)"
 "(syntax-e$1"
-" s_610)"
-" s_610)))"
+" s_608)"
+" s_608)))"
 "(values)))))"
 "(values))))))"
-"(values datum271_0))))))"
-"(values quote-syntax269_0 datum270_0)))))"
-"(values #t quote-syntax267_1 datum268_1)))"
+"(values datum270_0))))))"
+"(values quote-syntax268_0 datum269_0)))))"
+"(values #t quote-syntax266_1 datum267_1)))"
 "(values #f #f #f)))))"
-"(let-values(((ok?_48 quote-syntax272_0 datum273_0)"
-"(let-values(((s_612) disarmed-s_12))"
-"(if(if(not ok?_47) #t #f)"
-"(let-values(((orig-s_52) s_612))"
-"(let-values(((quote-syntax272_1 datum273_1)"
-"(let-values(((s_613)(if(syntax?$1 s_612)(syntax-e$1 s_612) s_612)))"
+"(let-values(((ok?_50 quote-syntax271_0 datum272_0)"
+"(let-values(((s_610) disarmed-s_12))"
+"(if(if(not ok?_49) #t #f)"
+"(let-values(((orig-s_52) s_610))"
+"(let-values(((quote-syntax271_1 datum272_1)"
+"(let-values(((s_611)(if(syntax?$1 s_610)(syntax-e$1 s_610) s_610)))"
+"(if(pair? s_611)"
+"(let-values(((quote-syntax273_0)"
+"(let-values(((s_297)(car s_611))) s_297))"
+"((datum274_0)"
+"(let-values(((s_612)(cdr s_611)))"
+"(let-values(((s_613)"
+"(if(syntax?$1 s_612)"
+"(syntax-e$1 s_612)"
+" s_612)))"
 "(if(pair? s_613)"
-"(let-values(((quote-syntax274_0)"
-"(let-values(((s_614)(car s_613))) s_614))"
-"((datum275_0)"
-"(let-values(((s_615)(cdr s_613)))"
-"(let-values(((s_616)"
-"(if(syntax?$1 s_615)"
-"(syntax-e$1 s_615)"
-" s_615)))"
-"(if(pair? s_616)"
-"(let-values(((datum276_0)"
-"(let-values(((s_617)(car s_616)))"
-" s_617))"
+"(let-values(((datum275_0)"
+"(let-values(((s_298)(car s_613)))"
+" s_298))"
 "(()"
-"(let-values(((s_618)(cdr s_616)))"
-"(let-values(((s_619)"
-"(if(syntax?$1 s_618)"
-"(syntax-e$1 s_618)"
-" s_618)))"
-"(if(null? s_619)"
+"(let-values(((s_299)(cdr s_613)))"
+"(let-values(((s_300)"
+"(if(syntax?$1 s_299)"
+"(syntax-e$1 s_299)"
+" s_299)))"
+"(if(null? s_300)"
 "(values)"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                          \"bad syntax\""
 " orig-s_52))))))"
-"(values datum276_0))"
+"(values datum275_0))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                      \"bad syntax\""
 " orig-s_52))))))"
-"(values quote-syntax274_0 datum275_0))"
+"(values quote-syntax273_0 datum274_0))"
 "                                                 (raise-syntax-error$1 #f \"bad syntax\" orig-s_52)))))"
-"(values #t quote-syntax272_1 datum273_1)))"
+"(values #t quote-syntax271_1 datum272_1)))"
 "(values #f #f #f)))))"
-"(if ok?_47"
+"(if ok?_49"
 "(let-values()"
 "(let-values((()"
 "(begin"
-"(reference-records-all-used!(expand-context-reference-records ctx_89))"
+"(reference-records-all-used!(expand-context-reference-records ctx_87))"
 "(values))))"
-"(let-values(((ok?_49 _277_0 _278_0 kw279_0)"
-"(let-values(((s_307) disarmed-s_12))"
-"(let-values(((orig-s_53) s_307))"
-"(let-values(((_277_1 _278_1 kw279_1)"
+"(let-values(((ok?_51 _276_0 _277_0 kw278_0)"
+"(let-values(((s_614) disarmed-s_12))"
+"(let-values(((orig-s_53) s_614))"
+"(let-values(((_276_1 _277_1 kw278_1)"
+"(let-values(((s_615)"
+"(if(syntax?$1 s_614)(syntax-e$1 s_614) s_614)))"
+"(if(pair? s_615)"
+"(let-values(((_279_0)"
+"(let-values(((s_616)(car s_615))) s_616))"
+"((_280_0 kw281_0)"
+"(let-values(((s_617)(cdr s_615)))"
+"(let-values(((s_618)"
+"(if(syntax?$1 s_617)"
+"(syntax-e$1 s_617)"
+" s_617)))"
+"(if(pair? s_618)"
+"(let-values(((_282_0)"
+"(let-values(((s_619)"
+"(car s_618)))"
+" s_619))"
+"((kw283_0)"
 "(let-values(((s_620)"
-"(if(syntax?$1 s_307)(syntax-e$1 s_307) s_307)))"
-"(if(pair? s_620)"
-"(let-values(((_280_0)"
-"(let-values(((s_621)(car s_620))) s_621))"
-"((_281_0 kw282_0)"
-"(let-values(((s_622)(cdr s_620)))"
-"(let-values(((s_623)"
-"(if(syntax?$1 s_622)"
-"(syntax-e$1 s_622)"
-" s_622)))"
-"(if(pair? s_623)"
-"(let-values(((_283_0)"
-"(let-values(((s_624)"
-"(car s_623)))"
-" s_624))"
-"((kw284_0)"
-"(let-values(((s_625)"
-"(cdr s_623)))"
-"(let-values(((s_626)"
+"(cdr s_618)))"
+"(let-values(((s_621)"
 "(if(syntax?$1"
-" s_625)"
+" s_620)"
 "(syntax-e$1"
-" s_625)"
-" s_625)))"
-"(if(pair? s_626)"
-"(let-values(((kw285_0)"
-"(let-values(((s_627)"
+" s_620)"
+" s_620)))"
+"(if(pair? s_621)"
+"(let-values(((kw284_0)"
+"(let-values(((s_622)"
 "(car"
-" s_626)))"
-" s_627))"
+" s_621)))"
+" s_622))"
 "(()"
-"(let-values(((s_628)"
+"(let-values(((s_623)"
 "(cdr"
-" s_626)))"
-"(let-values(((s_629)"
+" s_621)))"
+"(let-values(((s_624)"
 "(if(syntax?$1"
-" s_628)"
+" s_623)"
 "(syntax-e$1"
-" s_628)"
-" s_628)))"
+" s_623)"
+" s_623)))"
 "(if(null?"
-" s_629)"
+" s_624)"
 "(values)"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                    \"bad syntax\""
 " orig-s_53))))))"
-"(values kw285_0))"
+"(values kw284_0))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                \"bad syntax\""
 " orig-s_53))))))"
-"(values _283_0 kw284_0))"
+"(values _282_0 kw283_0))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                            \"bad syntax\""
 " orig-s_53))))))"
-"(values _280_0 _281_0 kw282_0))"
+"(values _279_0 _280_0 kw281_0))"
 "                                                       (raise-syntax-error$1 #f \"bad syntax\" orig-s_53)))))"
-"(values #t _277_1 _278_1 kw279_1))))))"
-"(if(expand-context-to-parsed? ctx_89)"
-"(parsed-quote-syntax15.1(keep-properties-only~ s_591) datum268_0)"
-"(let-values(((s286_0) s_591)((temp287_0)(list quote-syntax267_0 datum268_0 kw279_0)))"
-"(rebuild5.1 #f #f s286_0 temp287_0))))))"
+"(values #t _276_1 _277_1 kw278_1))))))"
+"(if(expand-context-to-parsed? ctx_87)"
+"(parsed-quote-syntax15.1(keep-properties-only~ s_591) datum267_0)"
+"(let-values(((s285_0) s_591)((temp286_0)(list quote-syntax266_0 datum267_0 kw278_0)))"
+"(rebuild5.1 #t s285_0 temp286_0))))))"
 "(let-values()"
-"(let-values(((datum-s_0)(remove-scopes datum273_0(expand-context-scopes ctx_89))))"
-"(if(if(expand-context-to-parsed? ctx_89)(free-id-set-empty?(expand-context-stops ctx_89)) #f)"
+"(let-values(((datum-s_0)(remove-scopes datum272_0(expand-context-scopes ctx_87))))"
+"(if(if(expand-context-to-parsed? ctx_87)(free-id-set-empty?(expand-context-stops ctx_87)) #f)"
 "(parsed-quote-syntax15.1(keep-properties-only~ s_591) datum-s_0)"
-"(let-values(((s288_0) s_591)((temp289_0)(list quote-syntax272_0 datum-s_0)))"
-"(rebuild5.1 #f #f s288_0 temp289_0)))))))))))))"
+"(let-values(((s287_0) s_591)((temp288_0)(list quote-syntax271_0 datum-s_0)))"
+"(rebuild5.1 #t s287_0 temp288_0)))))))))))))"
 "(void"
 "(add-core-form!*"
 " 'if"
-"(lambda(s_630 ctx_90)"
+"(lambda(s_625 ctx_88)"
 "(let-values((()"
 "(begin"
-"(let-values(((obs_109)(expand-context-observer ctx_90)))"
-"(if obs_109(let-values()(let-values()(call-expand-observe obs_109 'prim-if)))(void)))"
+"(let-values(((obs_107)(expand-context-observer ctx_88)))"
+"(if obs_107(let-values()(let-values()(call-expand-observe obs_107 'prim-if)))(void)))"
 "(values))))"
-"(let-values(((disarmed-s_13)(syntax-disarm$1 s_630)))"
-"(let-values(((ok?_50 _290_0 _291_0 _292_0)"
-"(let-values(((s_631) disarmed-s_13))"
-"(if(let-values(((s_632)(if(syntax?$1 s_631)(syntax-e$1 s_631) s_631)))"
-"(if(pair? s_632)"
-"(if(let-values(((s_633)(car s_632))) #t)"
-"(let-values(((s_634)(cdr s_632)))"
-"(let-values(((s_635)(if(syntax?$1 s_634)(syntax-e$1 s_634) s_634)))"
-"(if(pair? s_635)"
-"(if(let-values(((s_636)(car s_635))) #t)"
-"(let-values(((s_637)(cdr s_635)))"
-"(let-values(((s_638)(if(syntax?$1 s_637)(syntax-e$1 s_637) s_637)))"
-"(if(pair? s_638)"
-"(if(let-values(((s_639)(car s_638))) #t)"
-"(let-values(((s_640)(cdr s_638)))"
-"(let-values(((s_641)"
-"(if(syntax?$1 s_640)(syntax-e$1 s_640) s_640)))"
-"(null? s_641)))"
+"(let-values(((disarmed-s_13)(syntax-disarm$1 s_625)))"
+"(let-values(((ok?_52 _289_0 _290_0 _291_0)"
+"(let-values(((s_626) disarmed-s_13))"
+"(if(let-values(((s_627)(if(syntax?$1 s_626)(syntax-e$1 s_626) s_626)))"
+"(if(pair? s_627)"
+"(if(let-values(((s_628)(car s_627))) #t)"
+"(let-values(((s_629)(cdr s_627)))"
+"(let-values(((s_630)(if(syntax?$1 s_629)(syntax-e$1 s_629) s_629)))"
+"(if(pair? s_630)"
+"(if(let-values(((s_631)(car s_630))) #t)"
+"(let-values(((s_632)(cdr s_630)))"
+"(let-values(((s_633)(if(syntax?$1 s_632)(syntax-e$1 s_632) s_632)))"
+"(if(pair? s_633)"
+"(if(let-values(((s_634)(car s_633))) #t)"
+"(let-values(((s_635)(cdr s_633)))"
+"(let-values(((s_636)"
+"(if(syntax?$1 s_635)(syntax-e$1 s_635) s_635)))"
+"(null? s_636)))"
 " #f)"
 " #f)))"
 " #f)"
@@ -68367,293 +66742,293 @@ static const char *startup_source =
 " #f)"
 " #f))"
 "(let-values()"
-"(let-values(((_290_1 _291_1 _292_1)"
-"(let-values(((s_642)(if(syntax?$1 s_631)(syntax-e$1 s_631) s_631)))"
-"(let-values(((_293_0)(let-values(((s_643)(car s_642))) s_643))"
-"((_294_0 _295_0)"
-"(let-values(((s_644)(cdr s_642)))"
-"(let-values(((s_645)"
-"(if(syntax?$1 s_644)"
-"(syntax-e$1 s_644)"
-" s_644)))"
-"(let-values(((_296_0)"
-"(let-values(((s_646)(car s_645))) s_646))"
-"((_297_0)"
-"(let-values(((s_647)(cdr s_645)))"
-"(let-values(((s_648)"
-"(if(syntax?$1 s_647)"
-"(syntax-e$1 s_647)"
-" s_647)))"
-"(let-values(((_298_0)"
-"(let-values(((s_649)"
+"(let-values(((_289_1 _290_1 _291_1)"
+"(let-values(((s_637)(if(syntax?$1 s_626)(syntax-e$1 s_626) s_626)))"
+"(let-values(((_292_0)(let-values(((s_638)(car s_637))) s_638))"
+"((_293_0 _294_0)"
+"(let-values(((s_639)(cdr s_637)))"
+"(let-values(((s_640)"
+"(if(syntax?$1 s_639)"
+"(syntax-e$1 s_639)"
+" s_639)))"
+"(let-values(((_295_0)"
+"(let-values(((s_641)(car s_640))) s_641))"
+"((_296_0)"
+"(let-values(((s_642)(cdr s_640)))"
+"(let-values(((s_643)"
+"(if(syntax?$1 s_642)"
+"(syntax-e$1 s_642)"
+" s_642)))"
+"(let-values(((_297_0)"
+"(let-values(((s_644)"
 "(car"
-" s_648)))"
-" s_649))"
+" s_643)))"
+" s_644))"
 "(()"
-"(let-values(((s_650)"
+"(let-values(((s_645)"
 "(cdr"
-" s_648)))"
-"(let-values(((s_651)"
+" s_643)))"
+"(let-values(((s_646)"
 "(if(syntax?$1"
-" s_650)"
+" s_645)"
 "(syntax-e$1"
-" s_650)"
-" s_650)))"
+" s_645)"
+" s_645)))"
 "(values)))))"
-"(values _298_0))))))"
-"(values _296_0 _297_0))))))"
-"(values _293_0 _294_0 _295_0)))))"
-"(values #t _290_1 _291_1 _292_1)))"
+"(values _297_0))))))"
+"(values _295_0 _296_0))))))"
+"(values _292_0 _293_0 _294_0)))))"
+"(values #t _289_1 _290_1 _291_1)))"
 "(values #f #f #f #f)))))"
 "(let-values((()"
 "(begin"
-"(if ok?_50"
-"                             (let-values () (raise-syntax-error$1 #f \"missing an \\\"else\\\" expression\" s_630))"
+"(if ok?_52"
+"                             (let-values () (raise-syntax-error$1 #f \"missing an \\\"else\\\" expression\" s_625))"
 "(void))"
 "(values))))"
-"(let-values(((ok?_51 if299_0 tst300_0 thn301_0 els302_0)"
-"(let-values(((s_652) disarmed-s_13))"
-"(let-values(((orig-s_54) s_652))"
-"(let-values(((if299_1 tst300_1 thn301_1 els302_1)"
-"(let-values(((s_653)(if(syntax?$1 s_652)(syntax-e$1 s_652) s_652)))"
-"(if(pair? s_653)"
-"(let-values(((if303_0)(let-values(((s_654)(car s_653))) s_654))"
-"((tst304_0 thn305_0 els306_0)"
-"(let-values(((s_655)(cdr s_653)))"
+"(let-values(((ok?_53 if298_0 tst299_0 thn300_0 els301_0)"
+"(let-values(((s_647) disarmed-s_13))"
+"(let-values(((orig-s_54) s_647))"
+"(let-values(((if298_1 tst299_1 thn300_1 els301_1)"
+"(let-values(((s_648)(if(syntax?$1 s_647)(syntax-e$1 s_647) s_647)))"
+"(if(pair? s_648)"
+"(let-values(((if302_0)(let-values(((s_649)(car s_648))) s_649))"
+"((tst303_0 thn304_0 els305_0)"
+"(let-values(((s_650)(cdr s_648)))"
+"(let-values(((s_651)"
+"(if(syntax?$1 s_650)"
+"(syntax-e$1 s_650)"
+" s_650)))"
+"(if(pair? s_651)"
+"(let-values(((tst306_0)"
+"(let-values(((s_652)(car s_651)))"
+" s_652))"
+"((thn307_0 els308_0)"
+"(let-values(((s_653)(cdr s_651)))"
+"(let-values(((s_654)"
+"(if(syntax?$1 s_653)"
+"(syntax-e$1 s_653)"
+" s_653)))"
+"(if(pair? s_654)"
+"(let-values(((thn309_0)"
+"(let-values(((s_655)"
+"(car"
+" s_654)))"
+" s_655))"
+"((els310_0)"
 "(let-values(((s_656)"
-"(if(syntax?$1 s_655)"
-"(syntax-e$1 s_655)"
-" s_655)))"
-"(if(pair? s_656)"
-"(let-values(((tst307_0)"
-"(let-values(((s_657)(car s_656)))"
-" s_657))"
-"((thn308_0 els309_0)"
-"(let-values(((s_658)(cdr s_656)))"
-"(let-values(((s_659)"
-"(if(syntax?$1 s_658)"
-"(syntax-e$1 s_658)"
-" s_658)))"
-"(if(pair? s_659)"
-"(let-values(((thn310_0)"
-"(let-values(((s_660)"
-"(car"
-" s_659)))"
-" s_660))"
-"((els311_0)"
-"(let-values(((s_661)"
 "(cdr"
-" s_659)))"
-"(let-values(((s_662)"
+" s_654)))"
+"(let-values(((s_657)"
 "(if(syntax?$1"
-" s_661)"
+" s_656)"
 "(syntax-e$1"
-" s_661)"
-" s_661)))"
+" s_656)"
+" s_656)))"
 "(if(pair?"
-" s_662)"
-"(let-values(((els312_0)"
-"(let-values(((s_663)"
+" s_657)"
+"(let-values(((els311_0)"
+"(let-values(((s_658)"
 "(car"
-" s_662)))"
-" s_663))"
+" s_657)))"
+" s_658))"
 "(()"
-"(let-values(((s_664)"
+"(let-values(((s_659)"
 "(cdr"
-" s_662)))"
-"(let-values(((s_665)"
+" s_657)))"
+"(let-values(((s_660)"
 "(if(syntax?$1"
-" s_664)"
+" s_659)"
 "(syntax-e$1"
-" s_664)"
-" s_664)))"
+" s_659)"
+" s_659)))"
 "(if(null?"
-" s_665)"
+" s_660)"
 "(values)"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                  \"bad syntax\""
 " orig-s_54))))))"
 "(values"
-" els312_0))"
+" els311_0))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                              \"bad syntax\""
 " orig-s_54))))))"
-"(values thn310_0 els311_0))"
+"(values thn309_0 els310_0))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                          \"bad syntax\""
 " orig-s_54))))))"
-"(values tst307_0 thn308_0 els309_0))"
+"(values tst306_0 thn307_0 els308_0))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                      \"bad syntax\""
 " orig-s_54))))))"
-"(values if303_0 tst304_0 thn305_0 els306_0))"
+"(values if302_0 tst303_0 thn304_0 els305_0))"
 "                                                 (raise-syntax-error$1 #f \"bad syntax\" orig-s_54)))))"
-"(values #t if299_1 tst300_1 thn301_1 els302_1))))))"
-"(let-values(((expr-ctx_2)(as-expression-context ctx_90)))"
+"(values #t if298_1 tst299_1 thn300_1 els301_1))))))"
+"(let-values(((expr-ctx_2)(as-expression-context ctx_88)))"
 "(let-values(((tail-ctx_0)"
-"(let-values(((expr-ctx313_0) expr-ctx_2)((ctx314_0) ctx_90))"
-"(as-tail-context23.1 ctx314_0 expr-ctx313_0))))"
+"(let-values(((expr-ctx312_0) expr-ctx_2)((ctx313_0) ctx_88))"
+"(as-tail-context22.1 ctx313_0 expr-ctx312_0))))"
 "(let-values(((rebuild-s_9)"
-"(let-values(((ctx315_0) ctx_90)((s316_0) s_630))"
-"(keep-as-needed120.1 #f #f #f #f #f #f ctx315_0 s316_0))))"
+"(let-values(((ctx314_0) ctx_88)((s315_0) s_625))"
+"(keep-as-needed119.1 #f #f #f ctx314_0 s315_0))))"
 "(let-values(((exp-tst_0)"
-"(let-values(((temp317_0) tst300_0)((expr-ctx318_0) expr-ctx_2))"
-"(expand9.1 #f #f #f #f #f #f temp317_0 expr-ctx318_0))))"
+"(let-values(((temp316_0) tst299_0)((expr-ctx317_0) expr-ctx_2))"
+"(expand9.1 #f #f #f temp316_0 expr-ctx317_0))))"
 "(let-values((()"
 "(begin"
-"(let-values(((obs_110)(expand-context-observer ctx_90)))"
-"(if obs_110"
-"(let-values()(let-values()(call-expand-observe obs_110 'next)))"
+"(let-values(((obs_108)(expand-context-observer ctx_88)))"
+"(if obs_108"
+"(let-values()(let-values()(call-expand-observe obs_108 'next)))"
 "(void)))"
 "(values))))"
 "(let-values(((exp-thn_0)"
-"(let-values(((temp319_0) thn301_0)((tail-ctx320_0) tail-ctx_0))"
-"(expand9.1 #f #f #f #f #f #f temp319_0 tail-ctx320_0))))"
+"(let-values(((temp318_0) thn300_0)((tail-ctx319_0) tail-ctx_0))"
+"(expand9.1 #f #f #f temp318_0 tail-ctx319_0))))"
 "(let-values((()"
 "(begin"
-"(let-values(((obs_111)(expand-context-observer ctx_90)))"
-"(if obs_111"
-"(let-values()(let-values()(call-expand-observe obs_111 'next)))"
+"(let-values(((obs_109)(expand-context-observer ctx_88)))"
+"(if obs_109"
+"(let-values()(let-values()(call-expand-observe obs_109 'next)))"
 "(void)))"
 "(values))))"
 "(let-values(((exp-els_0)"
-"(let-values(((temp321_0) els302_0)((tail-ctx322_0) tail-ctx_0))"
-"(expand9.1 #f #f #f #f #f #f temp321_0 tail-ctx322_0))))"
-"(if(expand-context-to-parsed? ctx_90)"
+"(let-values(((temp320_0) els301_0)((tail-ctx321_0) tail-ctx_0))"
+"(expand9.1 #f #f #f temp320_0 tail-ctx321_0))))"
+"(if(expand-context-to-parsed? ctx_88)"
 "(parsed-if8.1 rebuild-s_9 exp-tst_0 exp-thn_0 exp-els_0)"
-"(let-values(((rebuild-s323_0) rebuild-s_9)"
-"((temp324_0)(list if299_0 exp-tst_0 exp-thn_0 exp-els_0)))"
-"(rebuild5.1 #f #f rebuild-s323_0 temp324_0)))))))))))))))))))"
+"(let-values(((rebuild-s322_0) rebuild-s_9)"
+"((temp323_0)(list if298_0 exp-tst_0 exp-thn_0 exp-els_0)))"
+"(rebuild5.1 #t rebuild-s322_0 temp323_0)))))))))))))))))))"
 "(void"
 "(add-core-form!*"
 " 'with-continuation-mark"
-"(lambda(s_666 ctx_91)"
+"(lambda(s_661 ctx_89)"
 "(let-values((()"
 "(begin"
-"(let-values(((obs_112)(expand-context-observer ctx_91)))"
-"(if obs_112"
-"(let-values()(let-values()(call-expand-observe obs_112 'prim-with-continuation-mark)))"
+"(let-values(((obs_110)(expand-context-observer ctx_89)))"
+"(if obs_110"
+"(let-values()(let-values()(call-expand-observe obs_110 'prim-with-continuation-mark)))"
 "(void)))"
 "(values))))"
-"(let-values(((disarmed-s_14)(syntax-disarm$1 s_666)))"
-"(let-values(((ok?_52 with-continuation-mark325_0 key326_0 val327_0 body328_0)"
-"(let-values(((s_667) disarmed-s_14))"
-"(let-values(((orig-s_55) s_667))"
-"(let-values(((with-continuation-mark325_1 key326_1 val327_1 body328_1)"
-"(let-values(((s_668)(if(syntax?$1 s_667)(syntax-e$1 s_667) s_667)))"
-"(if(pair? s_668)"
-"(let-values(((with-continuation-mark329_0)"
-"(let-values(((s_669)(car s_668))) s_669))"
-"((key330_0 val331_0 body332_0)"
-"(let-values(((s_670)(cdr s_668)))"
+"(let-values(((disarmed-s_14)(syntax-disarm$1 s_661)))"
+"(let-values(((ok?_54 with-continuation-mark324_0 key325_0 val326_0 body327_0)"
+"(let-values(((s_662) disarmed-s_14))"
+"(let-values(((orig-s_55) s_662))"
+"(let-values(((with-continuation-mark324_1 key325_1 val326_1 body327_1)"
+"(let-values(((s_663)(if(syntax?$1 s_662)(syntax-e$1 s_662) s_662)))"
+"(if(pair? s_663)"
+"(let-values(((with-continuation-mark328_0)"
+"(let-values(((s_664)(car s_663))) s_664))"
+"((key329_0 val330_0 body331_0)"
+"(let-values(((s_665)(cdr s_663)))"
+"(let-values(((s_666)"
+"(if(syntax?$1 s_665)"
+"(syntax-e$1 s_665)"
+" s_665)))"
+"(if(pair? s_666)"
+"(let-values(((key332_0)"
+"(let-values(((s_667)(car s_666)))"
+" s_667))"
+"((val333_0 body334_0)"
+"(let-values(((s_668)(cdr s_666)))"
+"(let-values(((s_669)"
+"(if(syntax?$1 s_668)"
+"(syntax-e$1 s_668)"
+" s_668)))"
+"(if(pair? s_669)"
+"(let-values(((val335_0)"
+"(let-values(((s_670)"
+"(car"
+" s_669)))"
+" s_670))"
+"((body336_0)"
 "(let-values(((s_671)"
-"(if(syntax?$1 s_670)"
-"(syntax-e$1 s_670)"
-" s_670)))"
-"(if(pair? s_671)"
-"(let-values(((key333_0)"
-"(let-values(((s_672)(car s_671)))"
-" s_672))"
-"((val334_0 body335_0)"
-"(let-values(((s_673)(cdr s_671)))"
-"(let-values(((s_674)"
-"(if(syntax?$1 s_673)"
-"(syntax-e$1 s_673)"
-" s_673)))"
-"(if(pair? s_674)"
-"(let-values(((val336_0)"
-"(let-values(((s_675)"
-"(car"
-" s_674)))"
-" s_675))"
-"((body337_0)"
-"(let-values(((s_676)"
 "(cdr"
-" s_674)))"
-"(let-values(((s_677)"
+" s_669)))"
+"(let-values(((s_672)"
 "(if(syntax?$1"
-" s_676)"
+" s_671)"
 "(syntax-e$1"
-" s_676)"
-" s_676)))"
-"(if(pair? s_677)"
-"(let-values(((body338_0)"
-"(let-values(((s_678)"
+" s_671)"
+" s_671)))"
+"(if(pair? s_672)"
+"(let-values(((body337_0)"
+"(let-values(((s_673)"
 "(car"
-" s_677)))"
-" s_678))"
+" s_672)))"
+" s_673))"
 "(()"
-"(let-values(((s_679)"
+"(let-values(((s_674)"
 "(cdr"
-" s_677)))"
-"(let-values(((s_680)"
+" s_672)))"
+"(let-values(((s_675)"
 "(if(syntax?$1"
-" s_679)"
+" s_674)"
 "(syntax-e$1"
-" s_679)"
-" s_679)))"
+" s_674)"
+" s_674)))"
 "(if(null?"
-" s_680)"
+" s_675)"
 "(values)"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                              \"bad syntax\""
 " orig-s_55))))))"
 "(values"
-" body338_0))"
+" body337_0))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                          \"bad syntax\""
 " orig-s_55))))))"
-"(values val336_0 body337_0))"
+"(values val335_0 body336_0))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                      \"bad syntax\""
 " orig-s_55))))))"
-"(values key333_0 val334_0 body335_0))"
+"(values key332_0 val333_0 body334_0))"
 "                                                                 (raise-syntax-error$1 #f \"bad syntax\" orig-s_55))))))"
-"(values with-continuation-mark329_0 key330_0 val331_0 body332_0))"
+"(values with-continuation-mark328_0 key329_0 val330_0 body331_0))"
 "                                             (raise-syntax-error$1 #f \"bad syntax\" orig-s_55)))))"
-"(values #t with-continuation-mark325_1 key326_1 val327_1 body328_1))))))"
-"(let-values(((expr-ctx_3)(as-expression-context ctx_91)))"
+"(values #t with-continuation-mark324_1 key325_1 val326_1 body327_1))))))"
+"(let-values(((expr-ctx_3)(as-expression-context ctx_89)))"
 "(let-values(((rebuild-s_10)"
-"(let-values(((ctx339_0) ctx_91)((s340_0) s_666))"
-"(keep-as-needed120.1 #f #f #f #f #f #f ctx339_0 s340_0))))"
+"(let-values(((ctx338_0) ctx_89)((s339_0) s_661))"
+"(keep-as-needed119.1 #f #f #f ctx338_0 s339_0))))"
 "(let-values(((exp-key_0)"
-"(let-values(((temp341_0) key326_0)((expr-ctx342_0) expr-ctx_3))"
-"(expand9.1 #f #f #f #f #f #f temp341_0 expr-ctx342_0))))"
+"(let-values(((temp340_0) key325_0)((expr-ctx341_0) expr-ctx_3))"
+"(expand9.1 #f #f #f temp340_0 expr-ctx341_0))))"
 "(let-values((()"
 "(begin"
-"(let-values(((obs_113)(expand-context-observer ctx_91)))"
-"(if obs_113"
-"(let-values()(let-values()(call-expand-observe obs_113 'next)))"
+"(let-values(((obs_111)(expand-context-observer ctx_89)))"
+"(if obs_111"
+"(let-values()(let-values()(call-expand-observe obs_111 'next)))"
 "(void)))"
 "(values))))"
 "(let-values(((exp-val_0)"
-"(let-values(((temp343_0) val327_0)((expr-ctx344_0) expr-ctx_3))"
-"(expand9.1 #f #f #f #f #f #f temp343_0 expr-ctx344_0))))"
+"(let-values(((temp342_0) val326_0)((expr-ctx343_0) expr-ctx_3))"
+"(expand9.1 #f #f #f temp342_0 expr-ctx343_0))))"
 "(let-values((()"
 "(begin"
-"(let-values(((obs_114)(expand-context-observer ctx_91)))"
-"(if obs_114"
-"(let-values()(let-values()(call-expand-observe obs_114 'next)))"
+"(let-values(((obs_112)(expand-context-observer ctx_89)))"
+"(if obs_112"
+"(let-values()(let-values()(call-expand-observe obs_112 'next)))"
 "(void)))"
 "(values))))"
 "(let-values(((exp-body_6)"
-"(let-values(((temp345_0) body328_0)"
-"((temp346_0)"
-"(let-values(((expr-ctx347_0) expr-ctx_3)((ctx348_0) ctx_91))"
-"(as-tail-context23.1 ctx348_0 expr-ctx347_0))))"
-"(expand9.1 #f #f #f #f #f #f temp345_0 temp346_0))))"
-"(if(expand-context-to-parsed? ctx_91)"
+"(let-values(((temp344_0) body327_0)"
+"((temp345_0)"
+"(let-values(((expr-ctx346_0) expr-ctx_3)((ctx347_0) ctx_89))"
+"(as-tail-context22.1 ctx347_0 expr-ctx346_0))))"
+"(expand9.1 #f #f #f temp344_0 temp345_0))))"
+"(if(expand-context-to-parsed? ctx_89)"
 "(parsed-with-continuation-mark10.1 rebuild-s_10 exp-key_0 exp-val_0 exp-body_6)"
-"(let-values(((rebuild-s349_0) rebuild-s_10)"
-"((temp350_0)(list with-continuation-mark325_0 exp-key_0 exp-val_0 exp-body_6)))"
-"(rebuild5.1 #f #f rebuild-s349_0 temp350_0))))))))))))))))"
+"(let-values(((rebuild-s348_0) rebuild-s_10)"
+"((temp349_0)(list with-continuation-mark324_0 exp-key_0 exp-val_0 exp-body_6)))"
+"(rebuild5.1 #t rebuild-s348_0 temp349_0))))))))))))))))"
 "(define-values"
 "(make-begin20.1)"
 "(lambda(last-is-tail?15_0 list-start-index14_0 log-tag18_0 parsed-begin19_0)"
@@ -68664,74 +67039,74 @@ static const char *startup_source =
 "(let-values(((list-start-index_0) list-start-index14_0))"
 "(let-values(((last-is-tail?_0) last-is-tail?15_0))"
 "(let-values()"
-"(lambda(s_681 ctx_92)"
+"(lambda(s_676 ctx_90)"
 "(let-values((()"
 "(begin"
-"(let-values(((obs_115)(expand-context-observer ctx_92)))"
-"(if obs_115"
-"(let-values()(let-values()(call-expand-observe obs_115 log-tag_1)))"
+"(let-values(((obs_113)(expand-context-observer ctx_90)))"
+"(if obs_113"
+"(let-values()(let-values()(call-expand-observe obs_113 log-tag_1)))"
 "(void)))"
 "(values))))"
-"(let-values(((disarmed-s_15)(syntax-disarm$1 s_681)))"
-"(let-values(((ok?_53 begin351_0 e352_0)"
-"(let-values(((s_682) disarmed-s_15))"
-"(let-values(((orig-s_56) s_682))"
-"(let-values(((begin351_1 e352_1)"
-"(let-values(((s_683)"
-"(if(syntax?$1 s_682)(syntax-e$1 s_682) s_682)))"
-"(if(pair? s_683)"
-"(let-values(((begin353_0)"
-"(let-values(((s_684)(car s_683))) s_684))"
-"((e354_0)"
-"(let-values(((s_685)(cdr s_683)))"
-"(let-values(((s_686)"
-"(if(syntax?$1 s_685)"
-"(syntax-e$1 s_685)"
-" s_685)))"
-"(let-values(((flat-s_44)"
-"(to-syntax-list.1 s_686)))"
-"(if(not flat-s_44)"
+"(let-values(((disarmed-s_15)(syntax-disarm$1 s_676)))"
+"(let-values(((ok?_55 begin350_0 e351_0)"
+"(let-values(((s_677) disarmed-s_15))"
+"(let-values(((orig-s_56) s_677))"
+"(let-values(((begin350_1 e351_1)"
+"(let-values(((s_678)"
+"(if(syntax?$1 s_677)(syntax-e$1 s_677) s_677)))"
+"(if(pair? s_678)"
+"(let-values(((begin352_0)"
+"(let-values(((s_679)(car s_678))) s_679))"
+"((e353_0)"
+"(let-values(((s_680)(cdr s_678)))"
+"(let-values(((s_681)"
+"(if(syntax?$1 s_680)"
+"(syntax-e$1 s_680)"
+" s_680)))"
+"(let-values(((flat-s_45)"
+"(to-syntax-list.1 s_681)))"
+"(if(not flat-s_45)"
 "(let-values()"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                   \"bad syntax\""
 " orig-s_56))"
-"(if(null? flat-s_44)"
+"(if(null? flat-s_45)"
 "(let-values()"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                     \"bad syntax\""
 " orig-s_56))"
-"(let-values() flat-s_44))))))))"
-"(values begin353_0 e354_0))"
+"(let-values() flat-s_45))))))))"
+"(values begin352_0 e353_0))"
 "                                                          (raise-syntax-error$1 #f \"bad syntax\" orig-s_56)))))"
-"(values #t begin351_1 e352_1))))))"
+"(values #t begin350_1 e351_1))))))"
 "(let-values(((expr-ctx_4)"
 "(if last-is-tail?_0"
-"(as-begin-expression-context ctx_92)"
-"(as-expression-context ctx_92))))"
+"(as-begin-expression-context ctx_90)"
+"(as-expression-context ctx_90))))"
 "(let-values(((rebuild-s_11)"
-"(let-values(((ctx355_0) ctx_92)((s356_0) s_681))"
-"(keep-as-needed120.1 #f #f #f #f #f #f ctx355_0 s356_0))))"
+"(let-values(((ctx354_0) ctx_90)((s355_0) s_676))"
+"(keep-as-needed119.1 #f #f #f ctx354_0 s355_0))))"
 "(let-values(((exp-es_2)"
-"((letrec-values(((loop_126)"
+"((letrec-values(((loop_123)"
 "(lambda(es_5 index_6)"
 "(begin"
 " 'loop"
 "(begin"
 "(if(zero? index_6)"
 "(let-values()"
-"(let-values(((obs_116)"
-"(expand-context-observer ctx_92)))"
-"(if obs_116"
+"(let-values(((obs_114)"
+"(expand-context-observer ctx_90)))"
+"(if obs_114"
 "(let-values()"
 "(begin"
 "(if(zero? list-start-index_0)"
 "(void)"
 "(let-values()"
-"(call-expand-observe obs_116 'next)))"
+"(call-expand-observe obs_114 'next)))"
 "(call-expand-observe"
-" obs_116"
+" obs_114"
 " 'enter-list"
 "(datum->syntax$1 #f es_5 rebuild-s_11))))"
 "(void))))"
@@ -68741,929 +67116,876 @@ static const char *startup_source =
 "(let-values()"
 "(let-values(((rest-es_1)(cdr es_5)))"
 "(begin"
-"(let-values(((obs_117)"
+"(let-values(((obs_115)"
 "(expand-context-observer"
-" ctx_92)))"
-"(if obs_117"
+" ctx_90)))"
+"(if obs_115"
 "(let-values()"
 "(let-values()"
-"(call-expand-observe obs_117 'next)))"
+"(call-expand-observe obs_115 'next)))"
 "(void)))"
 "(cons"
-"(let-values(((temp357_0)(car es_5))"
-"((temp358_0)"
+"(let-values(((temp356_0)(car es_5))"
+"((temp357_0)"
 "(if(if last-is-tail?_0"
 "(null? rest-es_1)"
 " #f)"
-"(let-values(((expr-ctx359_0)"
+"(let-values(((expr-ctx358_0)"
 " expr-ctx_4)"
-"((ctx360_0)"
-" ctx_92))"
-"(as-tail-context23.1"
-" ctx360_0"
-" expr-ctx359_0))"
+"((ctx359_0)"
+" ctx_90))"
+"(as-tail-context22.1"
+" ctx359_0"
+" expr-ctx358_0))"
 " expr-ctx_4)))"
-"(expand9.1"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" temp357_0"
-" temp358_0))"
-"(loop_126 rest-es_1(sub1 index_6))))))))))))"
-" loop_126)"
-" e352_0"
+"(expand9.1 #f #f #f temp356_0 temp357_0))"
+"(loop_123 rest-es_1(sub1 index_6))))))))))))"
+" loop_123)"
+" e351_0"
 " list-start-index_0)))"
 "(begin"
-"(let-values(((obs_118)(expand-context-observer ctx_92)))"
-"(if obs_118"
+"(let-values(((obs_116)(expand-context-observer ctx_90)))"
+"(if obs_116"
 "(let-values()"
 "(let-values()"
 "(call-expand-observe"
-" obs_118"
+" obs_116"
 " 'exit-list"
 "(datum->syntax$1 #f(list-tail exp-es_2 list-start-index_0) rebuild-s_11))))"
 "(void)))"
-"(if(expand-context-to-parsed? ctx_92)"
+"(if(expand-context-to-parsed? ctx_90)"
 "(parsed-begin_0 rebuild-s_11 exp-es_2)"
-"(let-values(((rebuild-s361_0) rebuild-s_11)((temp362_0)(cons begin351_0 exp-es_2)))"
-"(rebuild5.1 #f #f rebuild-s361_0 temp362_0)))))))))))))))))))"
+"(let-values(((rebuild-s360_0) rebuild-s_11)((temp361_0)(cons begin350_0 exp-es_2)))"
+"(rebuild5.1 #t rebuild-s360_0 temp361_0)))))))))))))))))))"
 "(void"
 "(add-core-form!*"
 " 'begin"
 "(let-values(((nonempty-begin_0)"
-"(let-values(((temp363_0) 'prim-begin)"
-"((parsed-begin364_0) parsed-begin12.1)"
-"((temp365_0) 0)"
-"((temp366_0) #t))"
-"(make-begin20.1 temp366_0 temp365_0 temp363_0 parsed-begin364_0))))"
-"(lambda(s_687 ctx_93)"
-"(let-values(((context_24)(expand-context-context ctx_93)))"
-"(if(let-values(((or-part_385)(eq? context_24 'top-level)))"
-"(if or-part_385 or-part_385(eq? context_24 'module)))"
+"(let-values(((temp362_0) 'prim-begin)"
+"((parsed-begin363_0) parsed-begin12.1)"
+"((temp364_0) 0)"
+"((temp365_0) #t))"
+"(make-begin20.1 temp365_0 temp364_0 temp362_0 parsed-begin363_0))))"
+"(lambda(s_682 ctx_91)"
+"(let-values(((context_25)(expand-context-context ctx_91)))"
+"(if(let-values(((or-part_380)(eq? context_25 'top-level)))"
+"(if or-part_380 or-part_380(eq? context_25 'module)))"
 "(let-values()"
-"(let-values(((disarmed-s_16)(syntax-disarm$1 s_687)))"
-"(let-values(((ok?_54 begin367_0)"
-"(let-values(((s_688) disarmed-s_16))"
-"(if(let-values(((s_689)(if(syntax?$1 s_688)(syntax-e$1 s_688) s_688)))"
-"(if(pair? s_689)"
-"(if(let-values(((s_690)(car s_689))) #t)"
-"(let-values(((s_691)(cdr s_689)))"
-"(let-values(((s_692)(if(syntax?$1 s_691)(syntax-e$1 s_691) s_691)))"
-"(null? s_692)))"
+"(let-values(((disarmed-s_16)(syntax-disarm$1 s_682)))"
+"(let-values(((ok?_56 begin366_0)"
+"(let-values(((s_683) disarmed-s_16))"
+"(if(let-values(((s_684)(if(syntax?$1 s_683)(syntax-e$1 s_683) s_683)))"
+"(if(pair? s_684)"
+"(if(let-values(((s_685)(car s_684))) #t)"
+"(let-values(((s_686)(cdr s_684)))"
+"(let-values(((s_687)(if(syntax?$1 s_686)(syntax-e$1 s_686) s_686)))"
+"(null? s_687)))"
 " #f)"
 " #f))"
 "(let-values()"
-"(let-values(((begin367_1)"
-"(let-values(((s_693)(if(syntax?$1 s_688)(syntax-e$1 s_688) s_688)))"
-"(let-values(((begin368_0)"
-"(let-values(((s_694)(car s_693))) s_694))"
+"(let-values(((begin366_1)"
+"(let-values(((s_688)(if(syntax?$1 s_683)(syntax-e$1 s_683) s_683)))"
+"(let-values(((begin367_0)"
+"(let-values(((s_689)(car s_688))) s_689))"
 "(()"
-"(let-values(((s_695)(cdr s_693)))"
-"(let-values(((s_696)"
-"(if(syntax?$1 s_695)"
-"(syntax-e$1 s_695)"
-" s_695)))"
+"(let-values(((s_690)(cdr s_688)))"
+"(let-values(((s_691)"
+"(if(syntax?$1 s_690)"
+"(syntax-e$1 s_690)"
+" s_690)))"
 "(values)))))"
-"(values begin368_0)))))"
-"(values #t begin367_1)))"
+"(values begin367_0)))))"
+"(values #t begin366_1)))"
 "(values #f #f)))))"
-"(if ok?_54 s_687(nonempty-begin_0 s_687 ctx_93)))))"
-"(let-values()(nonempty-begin_0 s_687 ctx_93))))))))"
+"(if ok?_56 s_682(nonempty-begin_0 s_682 ctx_91)))))"
+"(let-values()(nonempty-begin_0 s_682 ctx_91))))))))"
 "(void"
 "(add-core-form!*"
 " 'begin0"
-"(let-values(((temp369_0) 'prim-begin0)((parsed-begin0370_0) parsed-begin013.1)((temp371_0) 1)((temp372_0) #f))"
-"(make-begin20.1 temp372_0 temp371_0 temp369_0 parsed-begin0370_0))))"
+"(let-values(((temp368_0) 'prim-begin0)((parsed-begin0369_0) parsed-begin013.1)((temp370_0) 1)((temp371_0) #f))"
+"(make-begin20.1 temp371_0 temp370_0 temp368_0 parsed-begin0369_0))))"
 "(define-values"
 "(register-eventual-variable!?)"
-"(lambda(id_125 ctx_94)"
+"(lambda(id_120 ctx_92)"
 "(begin"
-"(if(if(expand-context-need-eventually-defined ctx_94)(>=(expand-context-phase ctx_94) 1) #f)"
+"(if(if(expand-context-need-eventually-defined ctx_92)(>=(expand-context-phase ctx_92) 1) #f)"
 "(let-values()"
 "(begin"
 "(hash-update!"
-"(expand-context-need-eventually-defined ctx_94)"
-"(expand-context-phase ctx_94)"
-"(lambda(l_87)(cons id_125 l_87))"
+"(expand-context-need-eventually-defined ctx_92)"
+"(expand-context-phase ctx_92)"
+"(lambda(l_87)(cons id_120 l_87))"
 " null)"
 " #t))"
 "(let-values() #f)))))"
 "(void"
 "(add-core-form!*"
 " '#%top"
-"(let-values(((core377_0)"
-"(lambda(s375_0 ctx376_0 implicit-omitted?373_0 implicit-omitted?374_0)"
+"(let-values(((core375_0)"
+"(lambda(s373_0 ctx374_0 implicit-omitted?372_0)"
 "(begin"
-" 'core377"
-"(let-values(((s_697) s375_0))"
-"(let-values(((ctx_95) ctx376_0))"
-"(let-values(((implicit-omitted?_0)(if implicit-omitted?374_0 implicit-omitted?373_0 #f)))"
+" 'core375"
+"(let-values(((s_692) s373_0))"
+"(let-values(((ctx_93) ctx374_0))"
+"(let-values(((implicit-omitted?_0) implicit-omitted?372_0))"
 "(let-values()"
 "(let-values((()"
 "(begin"
-"(let-values(((obs_119)(expand-context-observer ctx_95)))"
-"(if obs_119"
+"(let-values(((obs_117)(expand-context-observer ctx_93)))"
+"(if obs_117"
 "(let-values()"
-"(let-values()(call-expand-observe obs_119 'prim-#%top)))"
+"(let-values()(call-expand-observe obs_117 'prim-#%top)))"
 "(void)))"
 "(values))))"
-"(let-values(((disarmed-s_17)(syntax-disarm$1 s_697)))"
-"(let-values(((id_126)"
+"(let-values(((disarmed-s_17)(syntax-disarm$1 s_692)))"
+"(let-values(((id_121)"
 "(if implicit-omitted?_0"
-"(let-values() s_697)"
+"(let-values() s_692)"
 "(let-values()"
-"(let-values(((ok?_55 #%top379_0 id380_0)"
-"(let-values(((s_698) disarmed-s_17))"
-"(let-values(((orig-s_57) s_698))"
-"(let-values(((#%top379_1 id380_1)"
-"(let-values(((s_699)"
-"(if(syntax?$1 s_698)"
-"(syntax-e$1 s_698)"
-" s_698)))"
-"(if(pair? s_699)"
-"(let-values(((#%top381_0)"
-"(let-values(((s_700)"
+"(let-values(((ok?_57 #%top377_0 id378_0)"
+"(let-values(((s_693) disarmed-s_17))"
+"(let-values(((orig-s_57) s_693))"
+"(let-values(((#%top377_1 id378_1)"
+"(let-values(((s_694)"
+"(if(syntax?$1 s_693)"
+"(syntax-e$1 s_693)"
+" s_693)))"
+"(if(pair? s_694)"
+"(let-values(((#%top379_0)"
+"(let-values(((s_695)"
 "(car"
-" s_699)))"
-" s_700))"
-"((id382_0)"
-"(let-values(((s_701)"
+" s_694)))"
+" s_695))"
+"((id380_0)"
+"(let-values(((s_696)"
 "(cdr"
-" s_699)))"
-"(if(let-values(((or-part_386)"
+" s_694)))"
+"(if(let-values(((or-part_381)"
 "(if(syntax?$1"
-" s_701)"
+" s_696)"
 "(symbol?"
 "(syntax-e$1"
-" s_701))"
+" s_696))"
 " #f)))"
-"(if or-part_386"
-" or-part_386"
+"(if or-part_381"
+" or-part_381"
 "(symbol?"
-" s_701)))"
-" s_701"
+" s_696)))"
+" s_696"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                          \"not an identifier\""
 " orig-s_57"
-" s_701)))))"
-"(values #%top381_0 id382_0))"
+" s_696)))))"
+"(values #%top379_0 id380_0))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                        \"bad syntax\""
 " orig-s_57)))))"
-"(values #t #%top379_1 id380_1))))))"
-" id380_0)))))"
-"(let-values(((b_94)"
-"(let-values(((id383_0) id_126)"
-"((temp384_0)(expand-context-phase ctx_95))"
-"((temp385_0) 'ambiguous))"
-"(resolve+shift30.1"
-" temp385_0"
-" #t"
+"(values #t #%top377_1 id378_1))))))"
+" id378_0)))))"
+"(let-values(((b_92)"
+"(let-values(((id381_0) id_121)"
+"((temp382_0)(expand-context-phase ctx_93))"
+"((temp383_0) 'ambiguous))"
+"(resolve+shift28.1"
+" temp383_0"
 " #f"
+" null"
+" unsafe-undefined"
 " #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" id383_0"
-" temp384_0))))"
-"(if(eq? b_94 'ambiguous)"
-"(let-values()(raise-ambiguous-error id_126 ctx_95))"
-"(if(if b_94"
-"(if(module-binding? b_94)"
-"(eq?(module-binding-module b_94)(root-expand-context-self-mpi ctx_95))"
+" id381_0"
+" temp382_0))))"
+"(if(eq? b_92 'ambiguous)"
+"(let-values()(raise-ambiguous-error id_121 ctx_93))"
+"(if(if b_92"
+"(if(module-binding? b_92)"
+"(eq?(module-binding-module b_92)(root-expand-context-self-mpi ctx_93))"
 " #f)"
 " #f)"
 "(let-values()"
-"(if(expand-context-to-parsed? ctx_95)"
-"(parsed-id2.1 id_126 b_94 #f)"
-"(if(top-level-module-path-index?(module-binding-module b_94))"
-"(let-values() s_697)"
-"(let-values() id_126))))"
-"(if(register-eventual-variable!? id_126 ctx_95)"
+"(if(expand-context-to-parsed? ctx_93)"
+"(parsed-id2.1 id_121 b_92 #f)"
+"(if(top-level-module-path-index?(module-binding-module b_92))"
+"(let-values() s_692)"
+"(let-values() id_121))))"
+"(if(register-eventual-variable!? id_121 ctx_93)"
 "(let-values()"
-"(if(expand-context-to-parsed? ctx_95)"
-"(parsed-id2.1 id_126 b_94 #f)"
-" id_126))"
+"(if(expand-context-to-parsed? ctx_93)"
+"(parsed-id2.1 id_121 b_92 #f)"
+" id_121))"
 "(let-values()"
-"(if(not(expand-context-allow-unbound? ctx_95))"
+"(if(not(expand-context-allow-unbound? ctx_93))"
 "(let-values()"
 "(raise-unbound-syntax-error"
 " #f"
 "                                                  \"unbound identifier\""
-" id_126"
+" id_121"
 " #f"
 " null"
-"(syntax-debug-info-string id_126 ctx_95)))"
+"(syntax-debug-info-string id_121 ctx_93)))"
 "(let-values()"
 "(let-values(((tl-id_1)"
 "(add-scope"
-" id_126"
-"(root-expand-context-top-level-bind-scope ctx_95))))"
+" id_121"
+"(root-expand-context-top-level-bind-scope ctx_93))))"
 "(let-values(((tl-b_1)"
-"(let-values(((tl-id386_0) tl-id_1)"
-"((temp387_0)"
-"(expand-context-phase ctx_95)))"
-"(resolve41.1"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" tl-id386_0"
-" temp387_0))))"
+"(let-values(((tl-id384_0) tl-id_1)"
+"((temp385_0)"
+"(expand-context-phase ctx_93)))"
+"(resolve40.1 #f #f null #f tl-id384_0 temp385_0))))"
 "(if tl-b_1"
 "(let-values()"
-"(if(expand-context-to-parsed? ctx_95)"
+"(if(expand-context-to-parsed? ctx_93)"
 "(parsed-top-id4.1 tl-id_1 tl-b_1 #f)"
 "(if implicit-omitted?_0"
-"(let-values() id_126)"
+"(let-values() id_121)"
 "(let-values()"
-"(let-values(((ok?_56 #%top388_0 id389_0)"
-"(let-values(((s_702) disarmed-s_17))"
-"(let-values(((orig-s_58) s_702))"
-"(let-values(((#%top388_1 id389_1)"
-"(let-values(((s_703)"
+"(let-values(((ok?_58 #%top386_0 id387_0)"
+"(let-values(((s_697) disarmed-s_17))"
+"(let-values(((orig-s_58) s_697))"
+"(let-values(((#%top386_1 id387_1)"
+"(let-values(((s_698)"
 "(if(syntax?$1"
-" s_702)"
+" s_697)"
 "(syntax-e$1"
-" s_702)"
-" s_702)))"
-"(if(pair? s_703)"
-"(let-values(((#%top390_0)"
-"(let-values(((s_704)"
+" s_697)"
+" s_697)))"
+"(if(pair? s_698)"
+"(let-values(((#%top388_0)"
+"(let-values(((s_699)"
 "(car"
-" s_703)))"
-" s_704))"
-"((id391_0)"
-"(let-values(((s_705)"
+" s_698)))"
+" s_699))"
+"((id389_0)"
+"(let-values(((s_700)"
 "(cdr"
-" s_703)))"
-"(if(let-values(((or-part_387)"
+" s_698)))"
+"(if(let-values(((or-part_382)"
 "(if(syntax?$1"
-" s_705)"
+" s_700)"
 "(symbol?"
 "(syntax-e$1"
-" s_705))"
+" s_700))"
 " #f)))"
-"(if or-part_387"
-" or-part_387"
+"(if or-part_382"
+" or-part_382"
 "(symbol?"
-" s_705)))"
-" s_705"
+" s_700)))"
+" s_700"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                      \"not an identifier\""
 " orig-s_58"
-" s_705)))))"
+" s_700)))))"
 "(values"
-" #%top390_0"
-" id391_0))"
+" #%top388_0"
+" id389_0))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                    \"bad syntax\""
 " orig-s_58)))))"
-"(values #t #%top388_1 id389_1))))))"
-"(let-values(((s392_0) s_697)"
-"((temp393_0)(cons #%top388_0 id_126)))"
-"(rebuild5.1 #f #f s392_0 temp393_0)))))))"
+"(values #t #%top386_1 id387_1))))))"
+"(let-values(((s390_0) s_692)"
+"((temp391_0)(cons #%top386_0 id_121)))"
+"(rebuild5.1 #t s390_0 temp391_0)))))))"
 "(let-values()"
-"(if(expand-context-to-parsed? ctx_95)"
-"(parsed-top-id4.1 id_126 b_94 #f)"
-" s_697)))))))))))))))))))))))"
+"(if(expand-context-to-parsed? ctx_93)"
+"(parsed-top-id4.1 id_121 b_92 #f)"
+" s_692)))))))))))))))))))))))"
 "(case-lambda"
-"((s_706 ctx_96)(core377_0 s_706 ctx_96 #f #f))"
-"((s_707 ctx_97 implicit-omitted?373_1)(core377_0 s_707 ctx_97 implicit-omitted?373_1 #t))))))"
+"((s_701 ctx_94)(core375_0 s_701 ctx_94 #f))"
+"((s_702 ctx_95 implicit-omitted?372_1)(core375_0 s_702 ctx_95 implicit-omitted?372_1))))))"
 "(void"
 "(add-core-form!*"
 " 'set!"
-"(lambda(s_708 ctx_98)"
+"(lambda(s_703 ctx_96)"
 "(let-values((()"
 "(begin"
-"(let-values(((obs_120)(expand-context-observer ctx_98)))"
-"(if obs_120(let-values()(let-values()(call-expand-observe obs_120 'prim-set!)))(void)))"
+"(let-values(((obs_118)(expand-context-observer ctx_96)))"
+"(if obs_118(let-values()(let-values()(call-expand-observe obs_118 'prim-set!)))(void)))"
 "(values))))"
-"(let-values(((disarmed-s_18)(syntax-disarm$1 s_708)))"
-"(let-values(((ok?_57 set!394_0 id395_0 rhs396_0)"
-"(let-values(((s_709) disarmed-s_18))"
-"(let-values(((orig-s_59) s_709))"
-"(let-values(((set!394_1 id395_1 rhs396_1)"
-"(let-values(((s_710)(if(syntax?$1 s_709)(syntax-e$1 s_709) s_709)))"
-"(if(pair? s_710)"
-"(let-values(((set!397_0)(let-values(((s_711)(car s_710))) s_711))"
-"((id398_0 rhs399_0)"
-"(let-values(((s_712)(cdr s_710)))"
-"(let-values(((s_713)"
-"(if(syntax?$1 s_712)"
-"(syntax-e$1 s_712)"
-" s_712)))"
-"(if(pair? s_713)"
-"(let-values(((id400_0)"
-"(let-values(((s_714)(car s_713)))"
-"(if(let-values(((or-part_388)"
-"(if(syntax?$1 s_714)"
+"(let-values(((disarmed-s_18)(syntax-disarm$1 s_703)))"
+"(let-values(((ok?_59 set!392_0 id393_0 rhs394_0)"
+"(let-values(((s_704) disarmed-s_18))"
+"(let-values(((orig-s_59) s_704))"
+"(let-values(((set!392_1 id393_1 rhs394_1)"
+"(let-values(((s_705)(if(syntax?$1 s_704)(syntax-e$1 s_704) s_704)))"
+"(if(pair? s_705)"
+"(let-values(((set!395_0)(let-values(((s_706)(car s_705))) s_706))"
+"((id396_0 rhs397_0)"
+"(let-values(((s_707)(cdr s_705)))"
+"(let-values(((s_708)"
+"(if(syntax?$1 s_707)"
+"(syntax-e$1 s_707)"
+" s_707)))"
+"(if(pair? s_708)"
+"(let-values(((id398_0)"
+"(let-values(((s_709)(car s_708)))"
+"(if(let-values(((or-part_383)"
+"(if(syntax?$1 s_709)"
 "(symbol?"
 "(syntax-e$1"
-" s_714))"
+" s_709))"
 " #f)))"
-"(if or-part_388"
-" or-part_388"
-"(symbol? s_714)))"
-" s_714"
+"(if or-part_383"
+" or-part_383"
+"(symbol? s_709)))"
+" s_709"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                    \"not an identifier\""
 " orig-s_59"
-" s_714))))"
-"((rhs401_0)"
-"(let-values(((s_715)(cdr s_713)))"
-"(let-values(((s_716)"
-"(if(syntax?$1 s_715)"
-"(syntax-e$1 s_715)"
-" s_715)))"
-"(if(pair? s_716)"
-"(let-values(((rhs402_0)"
-"(let-values(((s_717)"
+" s_709))))"
+"((rhs399_0)"
+"(let-values(((s_710)(cdr s_708)))"
+"(let-values(((s_711)"
+"(if(syntax?$1 s_710)"
+"(syntax-e$1 s_710)"
+" s_710)))"
+"(if(pair? s_711)"
+"(let-values(((rhs400_0)"
+"(let-values(((s_712)"
 "(car"
-" s_716)))"
-" s_717))"
+" s_711)))"
+" s_712))"
 "(()"
-"(let-values(((s_718)"
+"(let-values(((s_713)"
 "(cdr"
-" s_716)))"
-"(let-values(((s_719)"
+" s_711)))"
+"(let-values(((s_714)"
 "(if(syntax?$1"
-" s_718)"
+" s_713)"
 "(syntax-e$1"
-" s_718)"
-" s_718)))"
-"(if(null? s_719)"
+" s_713)"
+" s_713)))"
+"(if(null? s_714)"
 "(values)"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                          \"bad syntax\""
 " orig-s_59))))))"
-"(values rhs402_0))"
+"(values rhs400_0))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                      \"bad syntax\""
 " orig-s_59))))))"
-"(values id400_0 rhs401_0))"
+"(values id398_0 rhs399_0))"
 "                                                                 (raise-syntax-error$1 #f \"bad syntax\" orig-s_59))))))"
-"(values set!397_0 id398_0 rhs399_0))"
+"(values set!395_0 id396_0 rhs397_0))"
 "                                             (raise-syntax-error$1 #f \"bad syntax\" orig-s_59)))))"
-"(values #t set!394_1 id395_1 rhs396_1))))))"
-"(let-values(((orig-id_1) id395_0))"
+"(values #t set!392_1 id393_1 rhs394_1))))))"
+"(let-values(((orig-id_1) id393_0))"
 "((letrec-values(((rename-loop_0)"
-"(lambda(id_127 from-rename?_0)"
+"(lambda(id_122 from-rename?_0)"
 "(begin"
 " 'rename-loop"
-"(let-values(((binding_30)"
-"(let-values(((id403_0) id_127)"
-"((temp404_0)(expand-context-phase ctx_98))"
-"((temp405_0) 'ambiguous)"
-"((temp406_0) #t))"
-"(resolve+shift30.1"
-" temp405_0"
-" #t"
+"(let-values(((binding_28)"
+"(let-values(((id401_0) id_122)"
+"((temp402_0)(expand-context-phase ctx_96))"
+"((temp403_0) 'ambiguous)"
+"((temp404_0) #t))"
+"(resolve+shift28.1"
+" temp403_0"
 " #f"
+" null"
+" temp404_0"
 " #f"
-" #f"
-" #f"
-" temp406_0"
-" #t"
-" #f"
-" #f"
-" id403_0"
-" temp404_0))))"
+" id401_0"
+" temp402_0))))"
 "(let-values((()"
 "(begin"
-"(if(eq? binding_30 'ambiguous)"
-"(let-values()(raise-ambiguous-error id_127 ctx_98))"
+"(if(eq? binding_28 'ambiguous)"
+"(let-values()(raise-ambiguous-error id_122 ctx_96))"
 "(void))"
 "(values))))"
-"(let-values(((t_60 primitive?_11 insp_24 protected?_12)"
-"(if binding_30"
-"(let-values(((binding407_0) binding_30)"
-"((ctx408_0) ctx_98)"
-"((s409_0) s_708))"
-"(lookup62.1 #f #f #f #f binding407_0 ctx408_0 s409_0))"
+"(let-values(((t_62 primitive?_11 insp_24 protected?_12)"
+"(if binding_28"
+"(let-values(((binding405_0) binding_28)"
+"((ctx406_0) ctx_96)"
+"((s407_0) s_703))"
+"(lookup62.1 #f #f binding405_0 ctx406_0 s407_0))"
 "(values #f #f #f #f))))"
 "(begin"
-"(let-values(((obs_121)(expand-context-observer ctx_98)))"
-"(if obs_121"
+"(let-values(((obs_119)(expand-context-observer ctx_96)))"
+"(if obs_119"
 "(let-values()"
-"(let-values()(call-expand-observe obs_121 'resolve id_127)))"
+"(let-values()(call-expand-observe obs_119 'resolve id_122)))"
 "(void)))"
-"(if(let-values(((or-part_389)(variable? t_60)))"
-"(if or-part_389"
-" or-part_389"
-"(if(not binding_30)"
-"(let-values(((or-part_390)"
-"(register-eventual-variable!? id_127 ctx_98)))"
-"(if or-part_390"
-" or-part_390"
-"(expand-context-allow-unbound? ctx_98)))"
+"(if(let-values(((or-part_384)(variable? t_62)))"
+"(if or-part_384"
+" or-part_384"
+"(if(not binding_28)"
+"(let-values(((or-part_385)"
+"(register-eventual-variable!? id_122 ctx_96)))"
+"(if or-part_385"
+" or-part_385"
+"(expand-context-allow-unbound? ctx_96)))"
 " #f)))"
 "(let-values()"
 "(let-values((()"
 "(begin"
-"(if(if(module-binding? binding_30)"
+"(if(if(module-binding? binding_28)"
 "(not"
 "(eq?"
-"(module-binding-module binding_30)"
-"(root-expand-context-self-mpi ctx_98)))"
+"(module-binding-module binding_28)"
+"(root-expand-context-self-mpi ctx_96)))"
 " #f)"
 "(let-values()"
 "(raise-syntax-error$1"
 " #f"
 "                                                                    \"cannot mutate module-required identifier\""
-" s_708"
-" id_127))"
+" s_703"
+" id_122))"
 "(void))"
 "(values))))"
 "(let-values((()"
 "(begin"
-"(let-values(((obs_122)"
-"(expand-context-observer ctx_98)))"
-"(if obs_122"
+"(let-values(((obs_120)"
+"(expand-context-observer ctx_96)))"
+"(if obs_120"
 "(let-values()"
 "(let-values()"
-"(call-expand-observe obs_122 'next)))"
+"(call-expand-observe obs_120 'next)))"
 "(void)))"
 "(values))))"
 "(let-values((()"
 "(begin"
-"(register-variable-referenced-if-local! binding_30)"
+"(register-variable-referenced-if-local! binding_28)"
 "(values))))"
 "(let-values(((rebuild-s_12)"
-"(let-values(((ctx410_0) ctx_98)((s411_0) s_708))"
-"(keep-as-needed120.1"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" ctx410_0"
-" s411_0))))"
+"(let-values(((ctx408_0) ctx_96)((s409_0) s_703))"
+"(keep-as-needed119.1 #f #f #f ctx408_0 s409_0))))"
 "(let-values(((exp-rhs_5)"
-"(let-values(((temp412_0) rhs396_0)"
-"((temp413_0)"
-"(as-expression-context ctx_98)))"
-"(expand9.1"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" temp412_0"
-" temp413_0))))"
-"(if(expand-context-to-parsed? ctx_98)"
+"(let-values(((temp410_0) rhs394_0)"
+"((temp411_0)"
+"(as-expression-context ctx_96)))"
+"(expand9.1 #f #f #f temp410_0 temp411_0))))"
+"(if(expand-context-to-parsed? ctx_96)"
 "(parsed-set!9.1"
 " rebuild-s_12"
-"(parsed-id2.1 id_127 binding_30 #f)"
+"(parsed-id2.1 id_122 binding_28 #f)"
 " exp-rhs_5)"
-"(let-values(((rebuild-s414_0) rebuild-s_12)"
-"((temp415_0)"
+"(let-values(((rebuild-s412_0) rebuild-s_12)"
+"((temp413_0)"
 "(list"
-" set!394_0"
-"(let-values(((id416_0) id_127)"
-"((t417_0) t_60)"
-"((temp418_0)"
+" set!392_0"
+"(let-values(((id414_0) id_122)"
+"((t415_0) t_62)"
+"((temp416_0)"
 "(free-id-set-empty-or-just-module*?"
 "(expand-context-stops"
-" ctx_98))))"
+" ctx_96))))"
 "(substitute-variable6.1"
-" temp418_0"
-" id416_0"
-" t417_0))"
+" temp416_0"
+" id414_0"
+" t415_0))"
 " exp-rhs_5)))"
-"(rebuild5.1 #f #f rebuild-s414_0 temp415_0)))))))))"
-"(if(not binding_30)"
+"(rebuild5.1 #t rebuild-s412_0 temp413_0)))))))))"
+"(if(not binding_28)"
 "(let-values()"
 "(raise-unbound-syntax-error"
 " #f"
 "                                                  \"unbound identifier\""
-" s_708"
-" id_127"
+" s_703"
+" id_122"
 " null"
-"(syntax-debug-info-string id_127 ctx_98)))"
-"(if(1/set!-transformer? t_60)"
+"(syntax-debug-info-string id_122 ctx_96)))"
+"(if(1/set!-transformer? t_62)"
 "(let-values()"
-"(if(not-in-this-expand-context? t_60 ctx_98)"
+"(if(not-in-this-expand-context? t_62 ctx_96)"
 "(let-values()"
-"(let-values(((temp419_0)"
+"(let-values(((temp417_0)"
 "(avoid-current-expand-context"
 "(substitute-set!-rename"
-" s_708"
+" s_703"
 " disarmed-s_18"
-" set!394_0"
-" rhs396_0"
-" id_127"
+" set!392_0"
+" rhs394_0"
+" id_122"
 " from-rename?_0"
-" ctx_98)"
-" t_60"
-" ctx_98))"
-"((ctx420_0) ctx_98))"
-"(expand9.1 #f #f #f #f #f #f temp419_0 ctx420_0)))"
+" ctx_96)"
+" t_62"
+" ctx_96))"
+"((ctx418_0) ctx_96))"
+"(expand9.1 #f #f #f temp417_0 ctx418_0)))"
 "(let-values()"
-"(let-values(((exp-s_14 re-ctx_1)"
-"(let-values(((t421_0) t_60)"
-"((insp422_0) insp_24)"
-"((s423_0) s_708)"
-"((orig-id424_0) orig-id_1)"
-"((ctx425_0) ctx_98)"
-"((binding426_0) binding_30)"
-"((orig-id427_0) orig-id_1))"
+"(let-values(((exp-s_13 re-ctx_1)"
+"(let-values(((t419_0) t_62)"
+"((insp420_0) insp_24)"
+"((s421_0) s_703)"
+"((orig-id422_0) orig-id_1)"
+"((ctx423_0) ctx_96)"
+"((binding424_0) binding_28)"
+"((orig-id425_0) orig-id_1))"
 "(apply-transformer52.1"
-" orig-id427_0"
-" #t"
-" t421_0"
-" insp422_0"
-" s423_0"
-" orig-id424_0"
-" ctx425_0"
-" binding426_0))))"
-"(if(expand-context-just-once? ctx_98)"
-"(let-values() exp-s_14)"
+" orig-id425_0"
+" t419_0"
+" insp420_0"
+" s421_0"
+" orig-id422_0"
+" ctx423_0"
+" binding424_0))))"
+"(if(expand-context-just-once? ctx_96)"
+"(let-values() exp-s_13)"
 "(let-values()"
-"(let-values(((exp-s428_0) exp-s_14)"
-"((re-ctx429_0) re-ctx_1))"
-"(expand9.1"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" exp-s428_0"
-" re-ctx429_0))))))))"
-"(if(1/rename-transformer? t_60)"
+"(let-values(((exp-s426_0) exp-s_13)"
+"((re-ctx427_0) re-ctx_1))"
+"(expand9.1 #f #f #f exp-s426_0 re-ctx427_0))))))))"
+"(if(1/rename-transformer? t_62)"
 "(let-values()"
-"(if(not-in-this-expand-context? t_60 ctx_98)"
+"(if(not-in-this-expand-context? t_62 ctx_96)"
 "(let-values()"
-"(let-values(((temp430_0)"
+"(let-values(((temp428_0)"
 "(avoid-current-expand-context"
 "(substitute-set!-rename"
-" s_708"
+" s_703"
 " disarmed-s_18"
-" set!394_0"
-" rhs396_0"
-" id_127"
+" set!392_0"
+" rhs394_0"
+" id_122"
 " from-rename?_0"
-" ctx_98"
-" t_60)"
-" t_60"
-" ctx_98))"
-"((ctx431_0) ctx_98))"
-"(expand9.1 #f #f #f #f #f #f temp430_0 ctx431_0)))"
+" ctx_96"
+" t_62)"
+" t_62"
+" ctx_96))"
+"((ctx429_0) ctx_96))"
+"(expand9.1 #f #f #f temp428_0 ctx429_0)))"
 "(let-values()"
 "(rename-loop_0"
 "(syntax-track-origin$1"
-"(rename-transformer-target-in-context t_60 ctx_98)"
-" id_127"
-" id_127)"
+"(rename-transformer-target-in-context t_62 ctx_96)"
+" id_122"
+" id_122)"
 " #t))))"
 "(let-values()"
 "(raise-syntax-error$1"
 " #f"
 "                                                      \"cannot mutate syntax identifier\""
-" s_708"
-" id_127))))))))))))))"
+" s_703"
+" id_122))))))))))))))"
 " rename-loop_0)"
 " orig-id_1"
 " #f))))))))"
 "(define-values"
 "(substitute-set!-rename)"
-"(let-values(((substitute-set!-rename32_0)"
-"(lambda(s25_0 disarmed-s26_0 set!-id27_0 id28_0 rhs-s29_0 from-rename?30_0 ctx31_0 t23_0 t24_0)"
+"(let-values(((substitute-set!-rename31_0)"
+"(lambda(s24_3 disarmed-s25_0 set!-id26_0 id27_0 rhs-s28_0 from-rename?29_0 ctx30_0 t23_0)"
 "(begin"
-" 'substitute-set!-rename32"
-"(let-values(((s_720) s25_0))"
-"(let-values(((disarmed-s_19) disarmed-s26_0))"
-"(let-values(((set!-id_0) set!-id27_0))"
-"(let-values(((id_128) id28_0))"
-"(let-values(((rhs-s_0) rhs-s29_0))"
-"(let-values(((from-rename?_1) from-rename?30_0))"
-"(let-values(((ctx_99) ctx31_0))"
-"(let-values(((t_61)(if t24_0 t23_0 #f)))"
+" 'substitute-set!-rename31"
+"(let-values(((s_715) s24_3))"
+"(let-values(((disarmed-s_19) disarmed-s25_0))"
+"(let-values(((set!-id_0) set!-id26_0))"
+"(let-values(((id_123) id27_0))"
+"(let-values(((rhs-s_0) rhs-s28_0))"
+"(let-values(((from-rename?_1) from-rename?29_0))"
+"(let-values(((ctx_97) ctx30_0))"
+"(let-values(((t_63) t23_0))"
 "(let-values()"
-"(if(let-values(((or-part_391) t_61))"
-"(if or-part_391 or-part_391 from-rename?_1))"
+"(if(let-values(((or-part_386) t_63))"
+"(if or-part_386 or-part_386 from-rename?_1))"
 "(let-values()"
 "(let-values(((new-id_1)"
-"(if t_61"
-"(rename-transformer-target-in-context t_61 ctx_99)"
-" id_128)))"
+"(if t_63"
+"(rename-transformer-target-in-context t_63 ctx_97)"
+" id_123)))"
 "(syntax-rearm$1"
 "(datum->syntax$1"
 " disarmed-s_19"
 "(list set!-id_0 new-id_1 rhs-s_0)"
 " disarmed-s_19"
 " disarmed-s_19)"
-" s_720)))"
-"(let-values() s_720)))))))))))))))"
+" s_715)))"
+"(let-values() s_715)))))))))))))))"
 "(case-lambda"
-"((s_721 disarmed-s_20 set!-id_1 id_129 rhs-s_1 from-rename?_2 ctx_100)"
-"(begin(substitute-set!-rename32_0 s_721 disarmed-s_20 set!-id_1 id_129 rhs-s_1 from-rename?_2 ctx_100 #f #f)))"
-"((s_722 disarmed-s_21 set!-id_2 id_130 rhs-s_2 from-rename?_3 ctx_101 t23_1)"
-"(substitute-set!-rename32_0 s_722 disarmed-s_21 set!-id_2 id_130 rhs-s_2 from-rename?_3 ctx_101 t23_1 #t)))))"
+"((s_716 disarmed-s_20 set!-id_1 id_124 rhs-s_1 from-rename?_2 ctx_98)"
+"(begin(substitute-set!-rename31_0 s_716 disarmed-s_20 set!-id_1 id_124 rhs-s_1 from-rename?_2 ctx_98 #f)))"
+"((s_717 disarmed-s_21 set!-id_2 id_125 rhs-s_2 from-rename?_3 ctx_99 t23_1)"
+"(substitute-set!-rename31_0 s_717 disarmed-s_21 set!-id_2 id_125 rhs-s_2 from-rename?_3 ctx_99 t23_1)))))"
 "(void"
 "(add-core-form!*"
 " '#%variable-reference"
-"(lambda(s_723 ctx_102)"
+"(lambda(s_718 ctx_100)"
 "(let-values((()"
 "(begin"
-"(let-values(((obs_123)(expand-context-observer ctx_102)))"
-"(if obs_123"
-"(let-values()(let-values()(call-expand-observe obs_123 'prim-#%variable-reference)))"
+"(let-values(((obs_121)(expand-context-observer ctx_100)))"
+"(if obs_121"
+"(let-values()(let-values()(call-expand-observe obs_121 'prim-#%variable-reference)))"
 "(void)))"
 "(values))))"
-"(let-values(((disarmed-s_22)(syntax-disarm$1 s_723)))"
-"(let-values(((ok?_58 #%variable-reference432_0 id433_0)"
-"(let-values(((s_724) disarmed-s_22))"
-"(if(let-values(((s_725)(if(syntax?$1 s_724)(syntax-e$1 s_724) s_724)))"
-"(if(pair? s_725)"
-"(if(let-values(((s_726)(car s_725))) #t)"
-"(let-values(((s_727)(cdr s_725)))"
-"(let-values(((s_728)(if(syntax?$1 s_727)(syntax-e$1 s_727) s_727)))"
-"(if(pair? s_728)"
-"(if(let-values(((s_729)(car s_728)))"
-"(let-values(((or-part_392)"
-"(if(syntax?$1 s_729)(symbol?(syntax-e$1 s_729)) #f)))"
-"(if or-part_392 or-part_392(symbol? s_729))))"
-"(let-values(((s_730)(cdr s_728)))"
-"(let-values(((s_731)(if(syntax?$1 s_730)(syntax-e$1 s_730) s_730)))"
-"(null? s_731)))"
+"(let-values(((disarmed-s_22)(syntax-disarm$1 s_718)))"
+"(let-values(((ok?_60 #%variable-reference430_0 id431_0)"
+"(let-values(((s_719) disarmed-s_22))"
+"(if(let-values(((s_720)(if(syntax?$1 s_719)(syntax-e$1 s_719) s_719)))"
+"(if(pair? s_720)"
+"(if(let-values(((s_721)(car s_720))) #t)"
+"(let-values(((s_722)(cdr s_720)))"
+"(let-values(((s_723)(if(syntax?$1 s_722)(syntax-e$1 s_722) s_722)))"
+"(if(pair? s_723)"
+"(if(let-values(((s_724)(car s_723)))"
+"(let-values(((or-part_387)"
+"(if(syntax?$1 s_724)(symbol?(syntax-e$1 s_724)) #f)))"
+"(if or-part_387 or-part_387(symbol? s_724))))"
+"(let-values(((s_725)(cdr s_723)))"
+"(let-values(((s_726)(if(syntax?$1 s_725)(syntax-e$1 s_725) s_725)))"
+"(null? s_726)))"
 " #f)"
 " #f)))"
 " #f)"
 " #f))"
 "(let-values()"
-"(let-values(((#%variable-reference432_1 id433_1)"
-"(let-values(((s_732)(if(syntax?$1 s_724)(syntax-e$1 s_724) s_724)))"
-"(let-values(((#%variable-reference434_0)"
-"(let-values(((s_733)(car s_732))) s_733))"
-"((id435_0)"
-"(let-values(((s_734)(cdr s_732)))"
-"(let-values(((s_735)"
-"(if(syntax?$1 s_734)"
-"(syntax-e$1 s_734)"
-" s_734)))"
-"(let-values(((id436_0)"
-"(let-values(((s_736)(car s_735))) s_736))"
+"(let-values(((#%variable-reference430_1 id431_1)"
+"(let-values(((s_727)(if(syntax?$1 s_719)(syntax-e$1 s_719) s_719)))"
+"(let-values(((#%variable-reference432_0)"
+"(let-values(((s_728)(car s_727))) s_728))"
+"((id433_0)"
+"(let-values(((s_729)(cdr s_727)))"
+"(let-values(((s_730)"
+"(if(syntax?$1 s_729)"
+"(syntax-e$1 s_729)"
+" s_729)))"
+"(let-values(((id434_0)"
+"(let-values(((s_731)(car s_730))) s_731))"
 "(()"
-"(let-values(((s_737)(cdr s_735)))"
-"(let-values(((s_738)"
-"(if(syntax?$1 s_737)"
-"(syntax-e$1 s_737)"
-" s_737)))"
+"(let-values(((s_732)(cdr s_730)))"
+"(let-values(((s_733)"
+"(if(syntax?$1 s_732)"
+"(syntax-e$1 s_732)"
+" s_732)))"
 "(values)))))"
-"(values id436_0))))))"
-"(values #%variable-reference434_0 id435_0)))))"
-"(values #t #%variable-reference432_1 id433_1)))"
+"(values id434_0))))))"
+"(values #%variable-reference432_0 id433_0)))))"
+"(values #t #%variable-reference430_1 id431_1)))"
 "(values #f #f #f)))))"
-"(let-values(((ok?_59 #%variable-reference437_0 #%top438_0 id439_0)"
-"(let-values(((s_739) disarmed-s_22))"
-"(if(if(not ok?_58)"
-"(let-values(((s_740)(if(syntax?$1 s_739)(syntax-e$1 s_739) s_739)))"
+"(let-values(((ok?_61 #%variable-reference435_0 #%top436_0 id437_0)"
+"(let-values(((s_734) disarmed-s_22))"
+"(if(if(not ok?_60)"
+"(let-values(((s_735)(if(syntax?$1 s_734)(syntax-e$1 s_734) s_734)))"
+"(if(pair? s_735)"
+"(if(let-values(((s_736)(car s_735))) #t)"
+"(let-values(((s_737)(cdr s_735)))"
+"(let-values(((s_738)(if(syntax?$1 s_737)(syntax-e$1 s_737) s_737)))"
+"(if(pair? s_738)"
+"(if(let-values(((s_739)(car s_738)))"
+"(let-values(((s_740)"
+"(if(syntax?$1 s_739)(syntax-e$1 s_739) s_739)))"
 "(if(pair? s_740)"
 "(if(let-values(((s_741)(car s_740))) #t)"
 "(let-values(((s_742)(cdr s_740)))"
-"(let-values(((s_743)(if(syntax?$1 s_742)(syntax-e$1 s_742) s_742)))"
-"(if(pair? s_743)"
-"(if(let-values(((s_744)(car s_743)))"
-"(let-values(((s_745)"
-"(if(syntax?$1 s_744)(syntax-e$1 s_744) s_744)))"
-"(if(pair? s_745)"
-"(if(let-values(((s_746)(car s_745))) #t)"
-"(let-values(((s_747)(cdr s_745)))"
-"(let-values(((or-part_393)"
-"(if(syntax?$1 s_747)"
-"(symbol?(syntax-e$1 s_747))"
+"(let-values(((or-part_388)"
+"(if(syntax?$1 s_742)"
+"(symbol?(syntax-e$1 s_742))"
 " #f)))"
-"(if or-part_393 or-part_393(symbol? s_747))))"
+"(if or-part_388 or-part_388(symbol? s_742))))"
 " #f)"
 " #f)))"
-"(let-values(((s_748)(cdr s_743)))"
-"(let-values(((s_749)(if(syntax?$1 s_748)(syntax-e$1 s_748) s_748)))"
-"(null? s_749)))"
+"(let-values(((s_743)(cdr s_738)))"
+"(let-values(((s_744)(if(syntax?$1 s_743)(syntax-e$1 s_743) s_743)))"
+"(null? s_744)))"
 " #f)"
 " #f)))"
 " #f)"
 " #f))"
 " #f)"
 "(let-values()"
-"(let-values(((#%variable-reference437_1 #%top438_1 id439_1)"
-"(let-values(((s_750)(if(syntax?$1 s_739)(syntax-e$1 s_739) s_739)))"
-"(let-values(((#%variable-reference440_0)"
-"(let-values(((s_751)(car s_750))) s_751))"
-"((#%top441_0 id442_0)"
-"(let-values(((s_752)(cdr s_750)))"
-"(let-values(((s_753)"
-"(if(syntax?$1 s_752)"
-"(syntax-e$1 s_752)"
-" s_752)))"
-"(let-values(((#%top443_0 id444_0)"
-"(let-values(((s_754)(car s_753)))"
-"(let-values(((s_755)"
-"(if(syntax?$1 s_754)"
-"(syntax-e$1 s_754)"
-" s_754)))"
-"(let-values(((#%top445_0)"
-"(let-values(((s_756)"
+"(let-values(((#%variable-reference435_1 #%top436_1 id437_1)"
+"(let-values(((s_745)(if(syntax?$1 s_734)(syntax-e$1 s_734) s_734)))"
+"(let-values(((#%variable-reference438_0)"
+"(let-values(((s_746)(car s_745))) s_746))"
+"((#%top439_0 id440_0)"
+"(let-values(((s_747)(cdr s_745)))"
+"(let-values(((s_748)"
+"(if(syntax?$1 s_747)"
+"(syntax-e$1 s_747)"
+" s_747)))"
+"(let-values(((#%top441_0 id442_0)"
+"(let-values(((s_749)(car s_748)))"
+"(let-values(((s_750)"
+"(if(syntax?$1 s_749)"
+"(syntax-e$1 s_749)"
+" s_749)))"
+"(let-values(((#%top443_0)"
+"(let-values(((s_751)"
 "(car"
-" s_755)))"
-" s_756))"
-"((id446_0)"
-"(let-values(((s_757)"
+" s_750)))"
+" s_751))"
+"((id444_0)"
+"(let-values(((s_752)"
 "(cdr"
-" s_755)))"
-" s_757)))"
-"(values #%top445_0 id446_0)))))"
+" s_750)))"
+" s_752)))"
+"(values #%top443_0 id444_0)))))"
 "(()"
-"(let-values(((s_758)(cdr s_753)))"
+"(let-values(((s_753)(cdr s_748)))"
+"(let-values(((s_754)"
+"(if(syntax?$1 s_753)"
+"(syntax-e$1 s_753)"
+" s_753)))"
+"(values)))))"
+"(values #%top441_0 id442_0))))))"
+"(values #%variable-reference438_0 #%top439_0 id440_0)))))"
+"(values #t #%variable-reference435_1 #%top436_1 id437_1)))"
+"(values #f #f #f #f)))))"
+"(let-values(((ok?_62 #%variable-reference445_0)"
+"(let-values(((s_755) disarmed-s_22))"
+"(if(if(not(let-values(((or-part_389) ok?_60))(if or-part_389 or-part_389 ok?_61)))"
+" #t"
+" #f)"
+"(let-values(((orig-s_60) s_755))"
+"(let-values(((#%variable-reference445_1)"
+"(let-values(((s_756)(if(syntax?$1 s_755)(syntax-e$1 s_755) s_755)))"
+"(if(pair? s_756)"
+"(let-values(((#%variable-reference446_0)"
+"(let-values(((s_757)(car s_756))) s_757))"
+"(()"
+"(let-values(((s_758)(cdr s_756)))"
 "(let-values(((s_759)"
 "(if(syntax?$1 s_758)"
 "(syntax-e$1 s_758)"
 " s_758)))"
-"(values)))))"
-"(values #%top443_0 id444_0))))))"
-"(values #%variable-reference440_0 #%top441_0 id442_0)))))"
-"(values #t #%variable-reference437_1 #%top438_1 id439_1)))"
-"(values #f #f #f #f)))))"
-"(let-values(((ok?_60 #%variable-reference447_0)"
-"(let-values(((s_760) disarmed-s_22))"
-"(if(if(not(let-values(((or-part_394) ok?_58))(if or-part_394 or-part_394 ok?_59)))"
-" #t"
-" #f)"
-"(let-values(((orig-s_60) s_760))"
-"(let-values(((#%variable-reference447_1)"
-"(let-values(((s_761)(if(syntax?$1 s_760)(syntax-e$1 s_760) s_760)))"
-"(if(pair? s_761)"
-"(let-values(((#%variable-reference448_0)"
-"(let-values(((s_762)(car s_761))) s_762))"
-"(()"
-"(let-values(((s_763)(cdr s_761)))"
-"(let-values(((s_764)"
-"(if(syntax?$1 s_763)"
-"(syntax-e$1 s_763)"
-" s_763)))"
-"(if(null? s_764)"
+"(if(null? s_759)"
 "(values)"
 "(raise-syntax-error$1"
 " #f"
 "                                                                        \"bad syntax\""
 " orig-s_60))))))"
-"(values #%variable-reference448_0))"
+"(values #%variable-reference446_0))"
 "                                                   (raise-syntax-error$1 #f \"bad syntax\" orig-s_60)))))"
-"(values #t #%variable-reference447_1)))"
+"(values #t #%variable-reference445_1)))"
 "(values #f #f)))))"
-"(if(let-values(((or-part_395) ok?_58))(if or-part_395 or-part_395 ok?_59))"
+"(if(let-values(((or-part_390) ok?_60))(if or-part_390 or-part_390 ok?_61))"
 "(let-values()"
-"(let-values(((var-id_0)(if ok?_58 id433_0 id439_0)))"
-"(let-values(((binding_31)"
-"(let-values(((var-id449_0) var-id_0)"
-"((temp450_0)(expand-context-phase ctx_102))"
-"((temp451_0) 'ambiguous))"
-"(resolve+shift30.1 temp451_0 #t #f #f #f #f #f #f #f #f var-id449_0 temp450_0))))"
+"(let-values(((var-id_0)(if ok?_60 id431_0 id437_0)))"
+"(let-values(((binding_29)"
+"(let-values(((var-id447_0) var-id_0)"
+"((temp448_0)(expand-context-phase ctx_100))"
+"((temp449_0) 'ambiguous))"
+"(resolve+shift28.1 temp449_0 #f null unsafe-undefined #f var-id447_0 temp448_0))))"
 "(let-values((()"
 "(begin"
-"(if(eq? binding_31 'ambiguous)"
-"(let-values()(raise-ambiguous-error var-id_0 ctx_102))"
+"(if(eq? binding_29 'ambiguous)"
+"(let-values()(raise-ambiguous-error var-id_0 ctx_100))"
 "(void))"
 "(values))))"
 "(let-values((()"
 "(begin"
-"(if(let-values(((or-part_396) binding_31))"
-"(if or-part_396 or-part_396(expand-context-allow-unbound? ctx_102)))"
+"(if(let-values(((or-part_391) binding_29))"
+"(if or-part_391 or-part_391(expand-context-allow-unbound? ctx_100)))"
 "(void)"
 "(let-values()"
 "(raise-unbound-syntax-error"
 " #f"
 "                                              \"unbound identifier\""
-" s_723"
+" s_718"
 " var-id_0"
 " null"
-"(syntax-debug-info-string var-id_0 ctx_102))))"
+"(syntax-debug-info-string var-id_0 ctx_100))))"
 "(values))))"
-"(let-values(((t_62 primitive?_12 insp-of-t_7 protected?_13)"
-"(if binding_31"
-"(let-values(((binding452_0) binding_31)"
-"((ctx453_0) ctx_102)"
-"((var-id454_0) var-id_0)"
-"((s455_0) s_723)"
-"((temp456_0)(expand-context-in-local-expand? ctx_102)))"
-"(lookup62.1 s455_0 #t temp456_0 #t binding452_0 ctx453_0 var-id454_0))"
+"(let-values(((t_64 primitive?_12 insp-of-t_7 protected?_13)"
+"(if binding_29"
+"(let-values(((binding450_0) binding_29)"
+"((ctx451_0) ctx_100)"
+"((var-id452_0) var-id_0)"
+"((s453_0) s_718)"
+"((temp454_0)(expand-context-in-local-expand? ctx_100)))"
+"(lookup62.1 s453_0 temp454_0 binding450_0 ctx451_0 var-id452_0))"
 "(values #f #f #f #f))))"
 "(begin"
-"(if(if t_62(not(variable? t_62)) #f)"
+"(if(if t_64(not(variable? t_64)) #f)"
 "(let-values()"
-"                                   (raise-syntax-error$1 #f \"identifier does not refer to a variable\" var-id_0 s_723))"
+"                                   (raise-syntax-error$1 #f \"identifier does not refer to a variable\" var-id_0 s_718))"
 "(void))"
-"(if(expand-context-to-parsed? ctx_102)"
+"(if(expand-context-to-parsed? ctx_100)"
 "(parsed-#%variable-reference11.1"
-"(keep-properties-only~ s_723)"
-"(if ok?_59"
-"(let-values()(parsed-top-id4.1 var-id_0 binding_31 #f))"
-"(let-values()(parsed-id2.1 var-id_0 binding_31 #f))))"
-" s_723))))))))"
+"(keep-properties-only~ s_718)"
+"(if ok?_61"
+"(let-values()(parsed-top-id4.1 var-id_0 binding_29 #f))"
+"(let-values()(parsed-id2.1 var-id_0 binding_29 #f))))"
+" s_718))))))))"
 "(let-values()"
-"(if(expand-context-to-parsed? ctx_102)"
-"(parsed-#%variable-reference11.1(keep-properties-only~ s_723) #f)"
-" s_723)))))))))))"
+"(if(expand-context-to-parsed? ctx_100)"
+"(parsed-#%variable-reference11.1(keep-properties-only~ s_718) #f)"
+" s_718)))))))))))"
 "(void"
 "(add-core-form!*"
 " '#%expression"
-"(lambda(s_765 ctx_103)"
+"(lambda(s_760 ctx_101)"
 "(let-values((()"
 "(begin"
-"(let-values(((obs_124)(expand-context-observer ctx_103)))"
-"(if obs_124"
-"(let-values()(let-values()(call-expand-observe obs_124 'prim-#%expression)))"
+"(let-values(((obs_122)(expand-context-observer ctx_101)))"
+"(if obs_122"
+"(let-values()(let-values()(call-expand-observe obs_122 'prim-#%expression)))"
 "(void)))"
 "(values))))"
-"(let-values(((disarmed-s_23)(syntax-disarm$1 s_765)))"
-"(let-values(((ok?_61 #%expression457_0 e458_0)"
-"(let-values(((s_766) disarmed-s_23))"
-"(let-values(((orig-s_61) s_766))"
-"(let-values(((#%expression457_1 e458_1)"
-"(let-values(((s_767)(if(syntax?$1 s_766)(syntax-e$1 s_766) s_766)))"
-"(if(pair? s_767)"
-"(let-values(((#%expression459_0)"
-"(let-values(((s_768)(car s_767))) s_768))"
-"((e460_0)"
-"(let-values(((s_769)(cdr s_767)))"
-"(let-values(((s_770)"
-"(if(syntax?$1 s_769)"
-"(syntax-e$1 s_769)"
-" s_769)))"
-"(if(pair? s_770)"
-"(let-values(((e461_0)"
-"(let-values(((s_771)(car s_770)))"
-" s_771))"
+"(let-values(((disarmed-s_23)(syntax-disarm$1 s_760)))"
+"(let-values(((ok?_63 #%expression455_0 e456_0)"
+"(let-values(((s_761) disarmed-s_23))"
+"(let-values(((orig-s_61) s_761))"
+"(let-values(((#%expression455_1 e456_1)"
+"(let-values(((s_762)(if(syntax?$1 s_761)(syntax-e$1 s_761) s_761)))"
+"(if(pair? s_762)"
+"(let-values(((#%expression457_0)"
+"(let-values(((s_763)(car s_762))) s_763))"
+"((e458_0)"
+"(let-values(((s_764)(cdr s_762)))"
+"(let-values(((s_765)"
+"(if(syntax?$1 s_764)"
+"(syntax-e$1 s_764)"
+" s_764)))"
+"(if(pair? s_765)"
+"(let-values(((e459_0)"
+"(let-values(((s_766)(car s_765)))"
+" s_766))"
 "(()"
-"(let-values(((s_772)(cdr s_770)))"
-"(let-values(((s_773)"
-"(if(syntax?$1 s_772)"
-"(syntax-e$1 s_772)"
-" s_772)))"
-"(if(null? s_773)"
+"(let-values(((s_767)(cdr s_765)))"
+"(let-values(((s_768)"
+"(if(syntax?$1 s_767)"
+"(syntax-e$1 s_767)"
+" s_767)))"
+"(if(null? s_768)"
 "(values)"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                      \"bad syntax\""
 " orig-s_61))))))"
-"(values e461_0))"
+"(values e459_0))"
 "                                                                 (raise-syntax-error$1 #f \"bad syntax\" orig-s_61))))))"
-"(values #%expression459_0 e460_0))"
+"(values #%expression457_0 e458_0))"
 "                                             (raise-syntax-error$1 #f \"bad syntax\" orig-s_61)))))"
-"(values #t #%expression457_1 e458_1))))))"
+"(values #t #%expression455_1 e456_1))))))"
 "(let-values(((rebuild-s_13)"
-"(let-values(((ctx462_0) ctx_103)((s463_0) s_765)((temp464_0) #t))"
-"(keep-as-needed120.1 temp464_0 #t #f #f #f #f ctx462_0 s463_0))))"
+"(let-values(((ctx460_0) ctx_101)((s461_0) s_760)((temp462_0) #t))"
+"(keep-as-needed119.1 temp462_0 #f #f ctx460_0 s461_0))))"
 "(let-values(((exp-e_0)"
-"(let-values(((temp465_0) e458_0)"
-"((temp466_0)"
-"(let-values(((temp467_0)(as-expression-context ctx_103))"
-"((ctx468_0) ctx_103))"
-"(as-tail-context23.1 ctx468_0 temp467_0))))"
-"(expand9.1 #f #f #f #f #f #f temp465_0 temp466_0))))"
-"(if(expand-context-to-parsed? ctx_103)"
+"(let-values(((temp463_0) e456_0)"
+"((temp464_0)"
+"(let-values(((temp465_0)(as-expression-context ctx_101))"
+"((ctx466_0) ctx_101))"
+"(as-tail-context22.1 ctx466_0 temp465_0))))"
+"(expand9.1 #f #f #f temp463_0 temp464_0))))"
+"(if(expand-context-to-parsed? ctx_101)"
 " exp-e_0"
-"(if(let-values(((or-part_397)"
-"(if(expand-context-in-local-expand? ctx_103)"
-"(expand-context-keep-#%expression? ctx_103)"
+"(if(let-values(((or-part_392)"
+"(if(expand-context-in-local-expand? ctx_101)"
+"(expand-context-keep-#%expression? ctx_101)"
 " #f)))"
-"(if or-part_397 or-part_397(eq? 'top-level(expand-context-context ctx_103))))"
+"(if or-part_392 or-part_392(eq? 'top-level(expand-context-context ctx_101))))"
 "(let-values()"
-"(let-values(((rebuild-s469_0) rebuild-s_13)((temp470_0)(list #%expression457_0 exp-e_0)))"
-"(rebuild5.1 #f #f rebuild-s469_0 temp470_0)))"
+"(let-values(((rebuild-s467_0) rebuild-s_13)((temp468_0)(list #%expression455_0 exp-e_0)))"
+"(rebuild5.1 #t rebuild-s467_0 temp468_0)))"
 "(let-values()"
 "(let-values(((result-s_13)(syntax-track-origin$1 exp-e_0 rebuild-s_13)))"
 "(begin"
-"(let-values(((obs_125)(expand-context-observer ctx_103)))"
-"(if obs_125"
-"(let-values()(let-values()(call-expand-observe obs_125 'tag result-s_13)))"
+"(let-values(((obs_123)(expand-context-observer ctx_101)))"
+"(if obs_123"
+"(let-values()(let-values()(call-expand-observe obs_123 'tag result-s_13)))"
 "(void)))"
 " result-s_13)))))))))))))"
-" (void (add-core-form!* 'unquote (lambda (s_774 ctx_104) (raise-syntax-error$1 #f \"not in quasiquote\" s_774))))"
-" (void (add-core-form!* 'unquote-splicing (lambda (s_775 ctx_105) (raise-syntax-error$1 #f \"not in quasiquote\" s_775))))"
+" (void (add-core-form!* 'unquote (lambda (s_769 ctx_102) (raise-syntax-error$1 #f \"not in quasiquote\" s_769))))"
+" (void (add-core-form!* 'unquote-splicing (lambda (s_770 ctx_103) (raise-syntax-error$1 #f \"not in quasiquote\" s_770))))"
 "(define-values"
 "(binding-for-transformer?)"
-"(lambda(b_42 id_131 at-phase_12 ns_123)"
+"(lambda(b_42 id_126 at-phase_12 ns_123)"
 "(begin"
 "(if(not at-phase_12)"
 "(let-values()"
@@ -69680,43 +68002,43 @@ static const char *startup_source =
 "(let-values(((b1_8) b_42)"
 "((empty-env2_0) empty-env)"
 "((null3_0) null)"
-"((ns4_1) ns_123)"
+"((ns4_2) ns_123)"
 "((at-phase5_0) at-phase_12)"
-"((id6_0) id_131))"
-"(binding-lookup50.1 #f #f #f #f b1_8 empty-env2_0 null3_0 ns4_1 at-phase5_0 id6_0))))"
+"((id6_0) id_126))"
+"(binding-lookup50.1 #f #f b1_8 empty-env2_0 null3_0 ns4_2 at-phase5_0 id6_0))))"
 "(not(variable? val_14))))))))"
 "(define-values(layers) '(raw phaseless id))"
 "(define-values(provide-form-name) 'provide)"
 "(define-values"
 "(parse-and-expand-provides!)"
-"(lambda(specs_0 orig-s_62 rp_1 self_30 phase_46 ctx_106)"
+"(lambda(specs_0 orig-s_62 rp_1 self_30 phase_43 ctx_104)"
 "(begin"
-"(let-values(((ns_125)(expand-context-namespace ctx_106)))"
-"((letrec-values(((loop_118)"
+"(let-values(((ns_125)(expand-context-namespace ctx_104)))"
+"((letrec-values(((loop_115)"
 "(lambda(specs_1 at-phase_13 protected?_15 layer_6)"
 "(begin"
 " 'loop"
 "(let-values(((track-stxess_0 exp-specss_0)"
 "(let-values(((track-stxes_0 exp-specs_0)"
-"(let-values(((lst_76) specs_1))"
+"(let-values(((lst_77) specs_1))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
 "(#%variable-reference))"
 "(void)"
-"(let-values()(check-list lst_76)))"
-"((letrec-values(((for-loop_98)"
+"(let-values()(check-list lst_77)))"
+"((letrec-values(((for-loop_95)"
 "(lambda(track-stxes_1"
 " exp-specs_1"
-" lst_407)"
+" lst_402)"
 "(begin"
 " 'for-loop"
-"(if(pair? lst_407)"
+"(if(pair? lst_402)"
 "(let-values(((spec_0)"
 "(unsafe-car"
-" lst_407))"
-"((rest_232)"
+" lst_402))"
+"((rest_240)"
 "(unsafe-cdr"
-" lst_407)))"
+" lst_402)))"
 "(let-values(((track-stxes_2"
 " exp-specs_2)"
 "(let-values(((track-stxes_3)"
@@ -69764,11 +68086,11 @@ static const char *startup_source =
 " fm_2)"
 " orig-s_62"
 " spec_0)))))))"
-"(let-values(((tmp_63)"
+"(let-values(((tmp_42)"
 " fm_2))"
 "(let-values(((index_7)"
 "(if(symbol?"
-" tmp_63)"
+" tmp_42)"
 "(hash-ref"
 " '#hasheq((all-defined"
 " ."
@@ -69808,7 +68130,7 @@ static const char *startup_source =
 "(struct"
 " ."
 " 6))"
-" tmp_63"
+" tmp_42"
 "(lambda()"
 " 0))"
 " 0)))"
@@ -69851,70 +68173,70 @@ static const char *startup_source =
 "(check-nested_1"
 " 'raw)"
 "(values))))"
-"(let-values(((ok?_62"
+"(let-values(((ok?_64"
 " for-meta3_0"
 " phase-level4_0"
 " spec5_0)"
-"(let-values(((s_170)"
+"(let-values(((s_168)"
 " disarmed-spec_0))"
 "(let-values(((orig-s_63)"
-" s_170))"
+" s_168))"
 "(let-values(((for-meta3_1"
 " phase-level4_1"
 " spec5_1)"
-"(let-values(((s_457)"
+"(let-values(((s_771)"
 "(if(syntax?$1"
-" s_170)"
+" s_168)"
 "(syntax-e$1"
-" s_170)"
-" s_170)))"
+" s_168)"
+" s_168)))"
 "(if(pair?"
-" s_457)"
+" s_771)"
 "(let-values(((for-meta6_0)"
-"(let-values(((s_485)"
+"(let-values(((s_486)"
 "(car"
-" s_457)))"
-" s_485))"
+" s_771)))"
+" s_486))"
 "((phase-level7_0"
 " spec8_0)"
-"(let-values(((s_776)"
+"(let-values(((s_447)"
 "(cdr"
-" s_457)))"
-"(let-values(((s_777)"
+" s_771)))"
+"(let-values(((s_491)"
 "(if(syntax?$1"
-" s_776)"
+" s_447)"
 "(syntax-e$1"
-" s_776)"
-" s_776)))"
+" s_447)"
+" s_447)))"
 "(if(pair?"
-" s_777)"
+" s_491)"
 "(let-values(((phase-level9_0)"
-"(let-values(((s_778)"
+"(let-values(((s_772)"
 "(car"
-" s_777)))"
-" s_778))"
+" s_491)))"
+" s_772))"
 "((spec10_0)"
-"(let-values(((s_493)"
+"(let-values(((s_773)"
 "(cdr"
-" s_777)))"
-"(let-values(((s_779)"
+" s_491)))"
+"(let-values(((s_81)"
 "(if(syntax?$1"
-" s_493)"
+" s_773)"
 "(syntax-e$1"
-" s_493)"
-" s_493)))"
-"(let-values(((flat-s_45)"
+" s_773)"
+" s_773)))"
+"(let-values(((flat-s_46)"
 "(to-syntax-list.1"
-" s_779)))"
+" s_81)))"
 "(if(not"
-" flat-s_45)"
+" flat-s_46)"
 "(let-values()"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                                                                             \"bad syntax\""
 " orig-s_63))"
 "(let-values()"
-" flat-s_45)))))))"
+" flat-s_46)))))))"
 "(values"
 " phase-level9_0"
 " spec10_0))"
@@ -69935,13 +68257,13 @@ static const char *startup_source =
 " for-meta3_1"
 " phase-level4_1"
 " spec5_1))))))"
-"(let-values(((p_88)"
+"(let-values(((p_86)"
 "(syntax-e$1"
 " phase-level4_0)))"
 "(let-values((()"
 "(begin"
 "(if(phase?"
-" p_88)"
+" p_86)"
 "(void)"
 "(let-values()"
 "(raise-syntax-error$1"
@@ -69952,10 +68274,10 @@ static const char *startup_source =
 "(values))))"
 "(let-values(((track-stxes_5"
 " exp-specs_5)"
-"(loop_118"
+"(loop_115"
 " spec5_0"
 "(phase+"
-" p_88"
+" p_86"
 " at-phase_13)"
 " protected?_15"
 " 'phaseless)))"
@@ -69972,8 +68294,7 @@ static const char *startup_source =
 " phase-level4_0"
 " exp-specs_5)))"
 "(rebuild5.1"
-" #f"
-" #f"
+" #t"
 " spec11_0"
 " temp12_8))))))))))))"
 "(if(unsafe-fx<"
@@ -69985,50 +68306,50 @@ static const char *startup_source =
 "(check-nested_1"
 " 'raw)"
 "(values))))"
-"(let-values(((ok?_63"
+"(let-values(((ok?_65"
 " for-syntax13_0"
 " spec14_0)"
-"(let-values(((s_156)"
+"(let-values(((s_449)"
 " disarmed-spec_0))"
 "(let-values(((orig-s_64)"
-" s_156))"
+" s_449))"
 "(let-values(((for-syntax13_1"
 " spec14_1)"
 "(let-values(((s_24)"
 "(if(syntax?$1"
+" s_449)"
+"(syntax-e$1"
+" s_449)"
+" s_449)))"
+"(if(pair?"
+" s_24)"
+"(let-values(((for-syntax15_0)"
+"(let-values(((s_305)"
+"(car"
+" s_24)))"
+" s_305))"
+"((spec16_0)"
+"(let-values(((s_156)"
+"(cdr"
+" s_24)))"
+"(let-values(((s_774)"
+"(if(syntax?$1"
 " s_156)"
 "(syntax-e$1"
 " s_156)"
 " s_156)))"
-"(if(pair?"
-" s_24)"
-"(let-values(((for-syntax15_0)"
-"(let-values(((s_501)"
-"(car"
-" s_24)))"
-" s_501))"
-"((spec16_0)"
-"(let-values(((s_458)"
-"(cdr"
-" s_24)))"
-"(let-values(((s_311)"
-"(if(syntax?$1"
-" s_458)"
-"(syntax-e$1"
-" s_458)"
-" s_458)))"
-"(let-values(((flat-s_46)"
+"(let-values(((flat-s_47)"
 "(to-syntax-list.1"
-" s_311)))"
+" s_774)))"
 "(if(not"
-" flat-s_46)"
+" flat-s_47)"
 "(let-values()"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                                                         \"bad syntax\""
 " orig-s_64))"
 "(let-values()"
-" flat-s_46)))))))"
+" flat-s_47)))))))"
 "(values"
 " for-syntax15_0"
 " spec16_0))"
@@ -70042,7 +68363,7 @@ static const char *startup_source =
 " spec14_1))))))"
 "(let-values(((track-stxes_6"
 " exp-specs_6)"
-"(loop_118"
+"(loop_115"
 " spec14_0"
 "(phase+"
 " 1"
@@ -70061,8 +68382,7 @@ static const char *startup_source =
 " for-syntax13_0"
 " exp-specs_6)))"
 "(rebuild5.1"
-" #f"
-" #f"
+" #t"
 " spec17_0"
 " temp18_6)))))))))"
 "(if(unsafe-fx<"
@@ -70074,50 +68394,50 @@ static const char *startup_source =
 "(check-nested_1"
 " 'raw)"
 "(values))))"
-"(let-values(((ok?_64"
+"(let-values(((ok?_66"
 " for-label19_0"
 " spec20_0)"
-"(let-values(((s_503)"
+"(let-values(((s_499)"
 " disarmed-spec_0))"
 "(let-values(((orig-s_65)"
-" s_503))"
+" s_499))"
 "(let-values(((for-label19_1"
 " spec20_1)"
-"(let-values(((s_484)"
+"(let-values(((s_308)"
 "(if(syntax?$1"
-" s_503)"
+" s_499)"
 "(syntax-e$1"
-" s_503)"
-" s_503)))"
+" s_499)"
+" s_499)))"
 "(if(pair?"
-" s_484)"
+" s_308)"
 "(let-values(((for-label21_0)"
-"(let-values(((s_171)"
+"(let-values(((s_442)"
 "(car"
-" s_484)))"
-" s_171))"
+" s_308)))"
+" s_442))"
 "((spec22_0)"
 "(let-values(((s_27)"
 "(cdr"
-" s_484)))"
+" s_308)))"
 "(let-values(((s_28)"
 "(if(syntax?$1"
 " s_27)"
 "(syntax-e$1"
 " s_27)"
 " s_27)))"
-"(let-values(((flat-s_47)"
+"(let-values(((flat-s_48)"
 "(to-syntax-list.1"
 " s_28)))"
 "(if(not"
-" flat-s_47)"
+" flat-s_48)"
 "(let-values()"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                                                           \"bad syntax\""
 " orig-s_65))"
 "(let-values()"
-" flat-s_47)))))))"
+" flat-s_48)))))))"
 "(values"
 " for-label21_0"
 " spec22_0))"
@@ -70131,7 +68451,7 @@ static const char *startup_source =
 " spec20_1))))))"
 "(let-values(((track-stxes_7"
 " exp-specs_7)"
-"(loop_118"
+"(loop_115"
 " spec20_0"
 " #f"
 " protected?_15"
@@ -70148,8 +68468,7 @@ static const char *startup_source =
 " for-label19_0"
 " exp-specs_7)))"
 "(rebuild5.1"
-" #f"
-" #f"
+" #t"
 " spec23_0"
 " temp24_10)))))))))"
 "(if(unsafe-fx<"
@@ -70172,50 +68491,50 @@ static const char *startup_source =
 " spec_0))"
 "(void))"
 "(values))))"
-"(let-values(((ok?_65"
+"(let-values(((ok?_67"
 " protect25_0"
 " p-spec26_0)"
-"(let-values(((s_50)"
+"(let-values(((s_49)"
 " disarmed-spec_0))"
 "(let-values(((orig-s_66)"
-" s_50))"
+" s_49))"
 "(let-values(((protect25_1"
 " p-spec26_1)"
-"(let-values(((s_780)"
+"(let-values(((s_775)"
 "(if(syntax?$1"
-" s_50)"
+" s_49)"
 "(syntax-e$1"
-" s_50)"
-" s_50)))"
+" s_49)"
+" s_49)))"
 "(if(pair?"
-" s_780)"
+" s_775)"
 "(let-values(((protect27_0)"
-"(let-values(((s_508)"
+"(let-values(((s_505)"
 "(car"
-" s_780)))"
-" s_508))"
+" s_775)))"
+" s_505))"
 "((p-spec28_0)"
-"(let-values(((s_509)"
+"(let-values(((s_506)"
 "(cdr"
-" s_780)))"
+" s_775)))"
 "(let-values(((s_52)"
 "(if(syntax?$1"
-" s_509)"
+" s_506)"
 "(syntax-e$1"
-" s_509)"
-" s_509)))"
-"(let-values(((flat-s_48)"
+" s_506)"
+" s_506)))"
+"(let-values(((flat-s_49)"
 "(to-syntax-list.1"
 " s_52)))"
 "(if(not"
-" flat-s_48)"
+" flat-s_49)"
 "(let-values()"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                                                               \"bad syntax\""
 " orig-s_66))"
 "(let-values()"
-" flat-s_48)))))))"
+" flat-s_49)))))))"
 "(values"
 " protect27_0"
 " p-spec28_0))"
@@ -70229,7 +68548,7 @@ static const char *startup_source =
 " p-spec26_1))))))"
 "(let-values(((track-stxes_8"
 " exp-specs_8)"
-"(loop_118"
+"(loop_115"
 " p-spec26_0"
 " at-phase_13"
 " #t"
@@ -70241,124 +68560,123 @@ static const char *startup_source =
 " track-stxes_8"
 "(let-values(((spec29_0)"
 " spec_0)"
-"((temp30_3)"
+"((temp30_7)"
 "(list*"
 " protect25_0"
 " exp-specs_8)))"
 "(rebuild5.1"
-" #f"
-" #f"
+" #t"
 " spec29_0"
-" temp30_3))))))))))"
+" temp30_7))))))))))"
 "(let-values()"
 "(let-values((()"
 "(begin"
 "(check-nested_1"
 " 'phaseless)"
 "(values))))"
-"(let-values(((ok?_66"
+"(let-values(((ok?_68"
 " rename31_0"
 " id:from32_0"
 " id:to33_0)"
-"(let-values(((s_324)"
+"(let-values(((s_313)"
 " disarmed-spec_0))"
 "(let-values(((orig-s_67)"
-" s_324))"
+" s_313))"
 "(let-values(((rename31_1"
 " id:from32_1"
 " id:to33_1)"
-"(let-values(((s_781)"
+"(let-values(((s_776)"
 "(if(syntax?$1"
-" s_324)"
+" s_313)"
 "(syntax-e$1"
-" s_324)"
-" s_324)))"
+" s_313)"
+" s_313)))"
 "(if(pair?"
-" s_781)"
+" s_776)"
 "(let-values(((rename34_0)"
-"(let-values(((s_782)"
+"(let-values(((s_199)"
 "(car"
-" s_781)))"
-" s_782))"
+" s_776)))"
+" s_199))"
 "((id:from35_0"
 " id:to36_0)"
-"(let-values(((s_783)"
+"(let-values(((s_59)"
 "(cdr"
-" s_781)))"
-"(let-values(((s_34)"
+" s_776)))"
+"(let-values(((s_404)"
 "(if(syntax?$1"
-" s_783)"
+" s_59)"
 "(syntax-e$1"
-" s_783)"
-" s_783)))"
+" s_59)"
+" s_59)))"
 "(if(pair?"
-" s_34)"
+" s_404)"
 "(let-values(((id:from37_0)"
-"(let-values(((s_461)"
+"(let-values(((s_200)"
 "(car"
-" s_34)))"
-"(if(let-values(((or-part_398)"
+" s_404)))"
+"(if(let-values(((or-part_215)"
 "(if(syntax?$1"
-" s_461)"
+" s_200)"
 "(symbol?"
 "(syntax-e$1"
-" s_461))"
+" s_200))"
 " #f)))"
-"(if or-part_398"
-" or-part_398"
+"(if or-part_215"
+" or-part_215"
 "(symbol?"
-" s_461)))"
-" s_461"
+" s_200)))"
+" s_200"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                                                                           \"not an identifier\""
 " orig-s_67"
-" s_461))))"
+" s_200))))"
 "((id:to38_0)"
-"(let-values(((s_414)"
-"(cdr"
-" s_34)))"
-"(let-values(((s_415)"
-"(if(syntax?$1"
-" s_414)"
-"(syntax-e$1"
-" s_414)"
-" s_414)))"
-"(if(pair?"
-" s_415)"
-"(let-values(((id:to39_0)"
 "(let-values(((s_60)"
-"(car"
-" s_415)))"
-"(if(let-values(((or-part_210)"
+"(cdr"
+" s_404)))"
+"(let-values(((s_61)"
 "(if(syntax?$1"
 " s_60)"
+"(syntax-e$1"
+" s_60)"
+" s_60)))"
+"(if(pair?"
+" s_61)"
+"(let-values(((id:to39_0)"
+"(let-values(((s_202)"
+"(car"
+" s_61)))"
+"(if(let-values(((or-part_393)"
+"(if(syntax?$1"
+" s_202)"
 "(symbol?"
 "(syntax-e$1"
-" s_60))"
+" s_202))"
 " #f)))"
-"(if or-part_210"
-" or-part_210"
+"(if or-part_393"
+" or-part_393"
 "(symbol?"
-" s_60)))"
-" s_60"
+" s_202)))"
+" s_202"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                                                                                               \"not an identifier\""
 " orig-s_67"
-" s_60))))"
+" s_202))))"
 "(()"
-"(let-values(((s_784)"
+"(let-values(((s_777)"
 "(cdr"
-" s_415)))"
-"(let-values(((s_785)"
+" s_61)))"
+"(let-values(((s_415)"
 "(if(syntax?$1"
-" s_784)"
+" s_777)"
 "(syntax-e$1"
-" s_784)"
-" s_784)))"
+" s_777)"
+" s_777)))"
 "(if(null?"
-" s_785)"
+" s_415)"
 "(values)"
 "(raise-syntax-error$1"
 " #f"
@@ -70416,91 +68734,91 @@ static const char *startup_source =
 "(check-nested_1"
 " 'phaseless)"
 "(values))))"
-"(let-values(((ok?_67"
+"(let-values(((ok?_69"
 " struct40_0"
 " id:struct41_0"
 " id:field42_0)"
-"(let-values(((s_524)"
+"(let-values(((s_520)"
 " disarmed-spec_0))"
 "(let-values(((orig-s_68)"
-" s_524))"
+" s_520))"
 "(let-values(((struct40_1"
 " id:struct41_1"
 " id:field42_1)"
-"(let-values(((s_67)"
+"(let-values(((s_206)"
 "(if(syntax?$1"
-" s_524)"
+" s_520)"
 "(syntax-e$1"
-" s_524)"
-" s_524)))"
+" s_520)"
+" s_520)))"
 "(if(pair?"
-" s_67)"
+" s_206)"
 "(let-values(((struct43_0)"
-"(let-values(((s_327)"
+"(let-values(((s_208)"
 "(car"
-" s_67)))"
-" s_327))"
+" s_206)))"
+" s_208))"
 "((id:struct44_0"
 " id:field45_0)"
-"(let-values(((s_462)"
+"(let-values(((s_38)"
 "(cdr"
-" s_67)))"
-"(let-values(((s_209)"
+" s_206)))"
+"(let-values(((s_317)"
 "(if(syntax?$1"
-" s_462)"
+" s_38)"
 "(syntax-e$1"
-" s_462)"
-" s_462)))"
+" s_38)"
+" s_38)))"
 "(if(pair?"
-" s_209)"
+" s_317)"
 "(let-values(((id:struct46_0)"
-"(let-values(((s_329)"
+"(let-values(((s_778)"
 "(car"
-" s_209)))"
-"(if(let-values(((or-part_399)"
+" s_317)))"
+"(if(let-values(((or-part_394)"
 "(if(syntax?$1"
-" s_329)"
+" s_778)"
 "(symbol?"
 "(syntax-e$1"
-" s_329))"
+" s_778))"
 " #f)))"
-"(if or-part_399"
-" or-part_399"
+"(if or-part_394"
+" or-part_394"
 "(symbol?"
-" s_329)))"
-" s_329"
+" s_778)))"
+" s_778"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                                                                       \"not an identifier\""
 " orig-s_68"
-" s_329))))"
+" s_778))))"
 "((id:field47_0)"
-"(let-values(((s_786)"
+"(let-values(((s_779)"
 "(cdr"
-" s_209)))"
-"(let-values(((s_787)"
+" s_317)))"
+"(let-values(((s_431)"
 "(if(syntax?$1"
-" s_786)"
+" s_779)"
 "(syntax-e$1"
-" s_786)"
-" s_786)))"
+" s_779)"
+" s_779)))"
 "(if(pair?"
-" s_787)"
+" s_431)"
 "(let-values(((id:field48_0)"
-"(let-values(((s_212)"
+"(let-values(((s_521)"
 "(car"
-" s_787)))"
-"(let-values(((s_213)"
+" s_431)))"
+"(let-values(((s_780)"
 "(if(syntax?$1"
-" s_212)"
+" s_521)"
 "(syntax-e$1"
-" s_212)"
-" s_212)))"
-"(let-values(((flat-s_1)"
+" s_521)"
+" s_521)))"
+"(let-values(((flat-s_50)"
 "(to-syntax-list.1"
-" s_213)))"
+" s_780)))"
 "(if(not"
-" flat-s_1)"
+" flat-s_50)"
 "(let-values()"
 "(raise-syntax-error$1"
 " #f"
@@ -70508,28 +68826,28 @@ static const char *startup_source =
 " orig-s_68))"
 "(let-values()"
 "(let-values(((id:field_0)"
-"(let-values(((lst_156)"
-" flat-s_1))"
+"(let-values(((lst_403)"
+" flat-s_50))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
 "(#%variable-reference))"
 "(void)"
 "(let-values()"
 "(check-list"
-" lst_156)))"
-"((letrec-values(((for-loop_320)"
+" lst_403)))"
+"((letrec-values(((for-loop_317)"
 "(lambda(id:field_1"
-" lst_408)"
+" lst_269)"
 "(begin"
 " 'for-loop"
 "(if(pair?"
-" lst_408)"
-"(let-values(((s_788)"
+" lst_269)"
+"(let-values(((s_781)"
 "(unsafe-car"
-" lst_408))"
-"((rest_233)"
+" lst_269))"
+"((rest_241)"
 "(unsafe-cdr"
-" lst_408)))"
+" lst_269)))"
 "(let-values(((id:field_2)"
 "(let-values(((id:field_3)"
 " id:field_1))"
@@ -70537,23 +68855,23 @@ static const char *startup_source =
 "(let-values()"
 "(let-values(((id:field49_0)"
 "(let-values()"
-"(if(let-values(((or-part_400)"
+"(if(let-values(((or-part_395)"
 "(if(syntax?$1"
-" s_788)"
+" s_781)"
 "(symbol?"
 "(syntax-e$1"
-" s_788))"
+" s_781))"
 " #f)))"
-"(if or-part_400"
-" or-part_400"
+"(if or-part_395"
+" or-part_395"
 "(symbol?"
-" s_788)))"
-" s_788"
+" s_781)))"
+" s_781"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                                                                                                                                                                                               \"not an identifier\""
 " orig-s_68"
-" s_788)))))"
+" s_781)))))"
 "(cons"
 " id:field49_0"
 " id:field_3)))))"
@@ -70561,26 +68879,26 @@ static const char *startup_source =
 " id:field_4)))))"
 "(if(not"
 " #f)"
-"(for-loop_320"
+"(for-loop_317"
 " id:field_2"
-" rest_233)"
+" rest_241)"
 " id:field_2)))"
 " id:field_1)))))"
-" for-loop_320)"
+" for-loop_317)"
 " null"
-" lst_156)))))"
+" lst_403)))))"
 "(reverse$1"
 " id:field_0))))))))"
 "(()"
-"(let-values(((s_421)"
+"(let-values(((s_526)"
 "(cdr"
-" s_787)))"
+" s_431)))"
 "(let-values(((s_527)"
 "(if(syntax?$1"
-" s_421)"
+" s_526)"
 "(syntax-e$1"
-" s_421)"
-" s_421)))"
+" s_526)"
+" s_526)))"
 "(if(null?"
 " s_527)"
 "(values)"
@@ -70636,57 +68954,57 @@ static const char *startup_source =
 "(check-nested_1"
 " 'phaseless)"
 "(values))))"
-"(let-values(((ok?_68"
+"(let-values(((ok?_70"
 " all-from50_0"
 " mod-path51_0)"
-"(let-values(((s_97)"
+"(let-values(((s_319)"
 " disarmed-spec_0))"
 "(let-values(((orig-s_69)"
-" s_97))"
+" s_319))"
 "(let-values(((all-from50_1"
 " mod-path51_1)"
-"(let-values(((s_160)"
+"(let-values(((s_321)"
 "(if(syntax?$1"
-" s_97)"
+" s_319)"
 "(syntax-e$1"
-" s_97)"
-" s_97)))"
+" s_319)"
+" s_319)))"
 "(if(pair?"
-" s_160)"
+" s_321)"
 "(let-values(((all-from52_0)"
-"(let-values(((s_332)"
+"(let-values(((s_425)"
 "(car"
-" s_160)))"
-" s_332))"
+" s_321)))"
+" s_425))"
 "((mod-path53_0)"
-"(let-values(((s_68)"
+"(let-values(((s_426)"
 "(cdr"
-" s_160)))"
-"(let-values(((s_789)"
+" s_321)))"
+"(let-values(((s_214)"
 "(if(syntax?$1"
-" s_68)"
+" s_426)"
 "(syntax-e$1"
-" s_68)"
-" s_68)))"
+" s_426)"
+" s_426)))"
 "(if(pair?"
-" s_789)"
+" s_214)"
 "(let-values(((mod-path54_0)"
-"(let-values(((s_439)"
+"(let-values(((s_782)"
 "(car"
-" s_789)))"
-" s_439))"
+" s_214)))"
+" s_782))"
 "(()"
-"(let-values(((s_790)"
+"(let-values(((s_215)"
 "(cdr"
-" s_789)))"
-"(let-values(((s_172)"
+" s_214)))"
+"(let-values(((s_169)"
 "(if(syntax?$1"
-" s_790)"
+" s_215)"
 "(syntax-e$1"
-" s_790)"
-" s_790)))"
+" s_215)"
+" s_215)))"
 "(if(null?"
-" s_172)"
+" s_169)"
 "(values)"
 "(raise-syntax-error$1"
 " #f"
@@ -70719,7 +69037,7 @@ static const char *startup_source =
 " ns_125"
 " rp_1"
 " protected?_15"
-" ctx_106)"
+" ctx_104)"
 "(values"
 " null"
 "(list"
@@ -70730,133 +69048,133 @@ static const char *startup_source =
 "(check-nested_1"
 " 'phaseless)"
 "(values))))"
-"(let-values(((ok?_69"
+"(let-values(((ok?_71"
 " all-from-except55_0"
 " mod-path56_0"
-" id57_0)"
-"(let-values(((s_791)"
+" id57_1)"
+"(let-values(((s_102)"
 " disarmed-spec_0))"
 "(let-values(((orig-s_70)"
-" s_791))"
+" s_102))"
 "(let-values(((all-from-except55_1"
 " mod-path56_1"
-" id57_1)"
-"(let-values(((s_518)"
+" id57_2)"
+"(let-values(((s_104)"
 "(if(syntax?$1"
-" s_791)"
+" s_102)"
 "(syntax-e$1"
-" s_791)"
-" s_791)))"
+" s_102)"
+" s_102)))"
 "(if(pair?"
-" s_518)"
+" s_104)"
 "(let-values(((all-from-except58_0)"
-"(let-values(((s_528)"
+"(let-values(((s_218)"
 "(car"
-" s_518)))"
-" s_528))"
+" s_104)))"
+" s_218))"
 "((mod-path59_0"
 " id60_0)"
-"(let-values(((s_792)"
+"(let-values(((s_783)"
 "(cdr"
-" s_518)))"
-"(let-values(((s_333)"
+" s_104)))"
+"(let-values(((s_784)"
 "(if(syntax?$1"
-" s_792)"
+" s_783)"
 "(syntax-e$1"
-" s_792)"
-" s_792)))"
+" s_783)"
+" s_783)))"
 "(if(pair?"
-" s_333)"
+" s_784)"
 "(let-values(((mod-path61_0)"
-"(let-values(((s_223)"
+"(let-values(((s_220)"
 "(car"
-" s_333)))"
-" s_223))"
+" s_784)))"
+" s_220))"
 "((id62_0)"
-"(let-values(((s_334)"
+"(let-values(((s_221)"
 "(cdr"
-" s_333)))"
-"(let-values(((s_163)"
+" s_784)))"
+"(let-values(((s_324)"
 "(if(syntax?$1"
-" s_334)"
+" s_221)"
 "(syntax-e$1"
-" s_334)"
-" s_334)))"
-"(let-values(((flat-s_49)"
+" s_221)"
+" s_221)))"
+"(let-values(((flat-s_51)"
 "(to-syntax-list.1"
-" s_163)))"
+" s_324)))"
 "(if(not"
-" flat-s_49)"
+" flat-s_51)"
 "(let-values()"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                                                                               \"bad syntax\""
 " orig-s_70))"
 "(let-values()"
-"(let-values(((id_132)"
-"(let-values(((lst_409)"
-" flat-s_49))"
+"(let-values(((id_127)"
+"(let-values(((lst_404)"
+" flat-s_51))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
 "(#%variable-reference))"
 "(void)"
 "(let-values()"
 "(check-list"
-" lst_409)))"
-"((letrec-values(((for-loop_321)"
-"(lambda(id_133"
-" lst_410)"
+" lst_404)))"
+"((letrec-values(((for-loop_318)"
+"(lambda(id_128"
+" lst_405)"
 "(begin"
 " 'for-loop"
 "(if(pair?"
-" lst_410)"
-"(let-values(((s_106)"
+" lst_405)"
+"(let-values(((s_785)"
 "(unsafe-car"
-" lst_410))"
-"((rest_234)"
+" lst_405))"
+"((rest_242)"
 "(unsafe-cdr"
-" lst_410)))"
-"(let-values(((id_134)"
-"(let-values(((id_135)"
-" id_133))"
-"(let-values(((id_136)"
+" lst_405)))"
+"(let-values(((id_129)"
+"(let-values(((id_130)"
+" id_128))"
+"(let-values(((id_131)"
 "(let-values()"
 "(let-values(((id63_0)"
 "(let-values()"
-"(if(let-values(((or-part_401)"
+"(if(let-values(((or-part_396)"
 "(if(syntax?$1"
-" s_106)"
+" s_785)"
 "(symbol?"
 "(syntax-e$1"
-" s_106))"
+" s_785))"
 " #f)))"
-"(if or-part_401"
-" or-part_401"
+"(if or-part_396"
+" or-part_396"
 "(symbol?"
-" s_106)))"
-" s_106"
+" s_785)))"
+" s_785"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                                                                                                                                                                             \"not an identifier\""
 " orig-s_70"
-" s_106)))))"
+" s_785)))))"
 "(cons"
 " id63_0"
-" id_135)))))"
+" id_130)))))"
 "(values"
-" id_136)))))"
+" id_131)))))"
 "(if(not"
 " #f)"
-"(for-loop_321"
-" id_134"
-" rest_234)"
-" id_134)))"
-" id_133)))))"
-" for-loop_321)"
+"(for-loop_318"
+" id_129"
+" rest_242)"
+" id_129)))"
+" id_128)))))"
+" for-loop_318)"
 " null"
-" lst_409)))))"
+" lst_404)))))"
 "(reverse$1"
-" id_132)))))))))"
+" id_127)))))))))"
 "(values"
 " mod-path61_0"
 " id62_0))"
@@ -70876,18 +69194,18 @@ static const char *startup_source =
 " #t"
 " all-from-except55_1"
 " mod-path56_1"
-" id57_1))))))"
+" id57_2))))))"
 "(begin"
 "(parse-all-from"
 " mod-path56_0"
 " orig-s_62"
 " self_30"
-" id57_0"
+" id57_1"
 " at-phase_13"
 " ns_125"
 " rp_1"
 " protected?_15"
-" ctx_106)"
+" ctx_104)"
 "(values"
 " null"
 "(list"
@@ -70904,38 +69222,38 @@ static const char *startup_source =
 "(check-nested_1"
 " 'phaseless)"
 "(values))))"
-"(let-values(((ok?_70"
+"(let-values(((ok?_22"
 " all-defined64_0)"
-"(let-values(((s_793)"
+"(let-values(((s_113)"
 " disarmed-spec_0))"
 "(let-values(((orig-s_71)"
-" s_793))"
-"(let-values(((all-defined64_1)"
-"(let-values(((s_794)"
-"(if(syntax?$1"
-" s_793)"
-"(syntax-e$1"
-" s_793)"
-" s_793)))"
-"(if(pair?"
-" s_794)"
-"(let-values(((all-defined65_0)"
-"(let-values(((s_113)"
-"(car"
-" s_794)))"
 " s_113))"
-"(()"
-"(let-values(((s_795)"
-"(cdr"
-" s_794)))"
-"(let-values(((s_796)"
+"(let-values(((all-defined64_1)"
+"(let-values(((s_786)"
 "(if(syntax?$1"
-" s_795)"
+" s_113)"
 "(syntax-e$1"
-" s_795)"
-" s_795)))"
+" s_113)"
+" s_113)))"
+"(if(pair?"
+" s_786)"
+"(let-values(((all-defined65_0)"
+"(let-values(((s_437)"
+"(car"
+" s_786)))"
+" s_437))"
+"(()"
+"(let-values(((s_224)"
+"(cdr"
+" s_786)))"
+"(let-values(((s_427)"
+"(if(syntax?$1"
+" s_224)"
+"(syntax-e$1"
+" s_224)"
+" s_224)))"
 "(if(null?"
-" s_796)"
+" s_427)"
 "(values)"
 "(raise-syntax-error$1"
 " #f"
@@ -70971,113 +69289,113 @@ static const char *startup_source =
 "(check-nested_1"
 " 'phaseless)"
 "(values))))"
-"(let-values(((ok?_71"
+"(let-values(((ok?_72"
 " all-defined-except66_0"
 " id67_0)"
-"(let-values(((s_471)"
+"(let-values(((s_228)"
 " disarmed-spec_0))"
 "(let-values(((orig-s_72)"
-" s_471))"
+" s_228))"
 "(let-values(((all-defined-except66_1"
 " id67_1)"
-"(let-values(((s_797)"
+"(let-values(((s_787)"
 "(if(syntax?$1"
-" s_471)"
+" s_228)"
 "(syntax-e$1"
-" s_471)"
-" s_471)))"
+" s_228)"
+" s_228)))"
 "(if(pair?"
-" s_797)"
+" s_787)"
 "(let-values(((all-defined-except68_0)"
-"(let-values(((s_121)"
+"(let-values(((s_788)"
 "(car"
-" s_797)))"
-" s_121))"
+" s_787)))"
+" s_788))"
 "((id69_0)"
-"(let-values(((s_798)"
+"(let-values(((s_789)"
 "(cdr"
-" s_797)))"
-"(let-values(((s_799)"
+" s_787)))"
+"(let-values(((s_790)"
 "(if(syntax?$1"
-" s_798)"
+" s_789)"
 "(syntax-e$1"
-" s_798)"
-" s_798)))"
-"(let-values(((flat-s_50)"
+" s_789)"
+" s_789)))"
+"(let-values(((flat-s_52)"
 "(to-syntax-list.1"
-" s_799)))"
+" s_790)))"
 "(if(not"
-" flat-s_50)"
+" flat-s_52)"
 "(let-values()"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                                                           \"bad syntax\""
 " orig-s_72))"
 "(let-values()"
-"(let-values(((id_137)"
-"(let-values(((lst_411)"
-" flat-s_50))"
+"(let-values(((id_132)"
+"(let-values(((lst_204)"
+" flat-s_52))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
 "(#%variable-reference))"
 "(void)"
 "(let-values()"
 "(check-list"
-" lst_411)))"
-"((letrec-values(((for-loop_322)"
-"(lambda(id_34"
-" lst_412)"
+" lst_204)))"
+"((letrec-values(((for-loop_135)"
+"(lambda(id_133"
+" lst_406)"
 "(begin"
 " 'for-loop"
 "(if(pair?"
-" lst_412)"
-"(let-values(((s_800)"
+" lst_406)"
+"(let-values(((s_791)"
 "(unsafe-car"
-" lst_412))"
-"((rest_235)"
+" lst_406))"
+"((rest_243)"
 "(unsafe-cdr"
-" lst_412)))"
-"(let-values(((id_138)"
-"(let-values(((id_139)"
-" id_34))"
-"(let-values(((id_140)"
+" lst_406)))"
+"(let-values(((id_134)"
+"(let-values(((id_135)"
+" id_133))"
+"(let-values(((id_136)"
 "(let-values()"
 "(let-values(((id70_0)"
 "(let-values()"
-"(if(let-values(((or-part_402)"
+"(if(let-values(((or-part_287)"
 "(if(syntax?$1"
-" s_800)"
+" s_791)"
 "(symbol?"
 "(syntax-e$1"
-" s_800))"
+" s_791))"
 " #f)))"
-"(if or-part_402"
-" or-part_402"
+"(if or-part_287"
+" or-part_287"
 "(symbol?"
-" s_800)))"
-" s_800"
+" s_791)))"
+" s_791"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                                                                                                                                                         \"not an identifier\""
 " orig-s_72"
-" s_800)))))"
+" s_791)))))"
 "(cons"
 " id70_0"
-" id_139)))))"
+" id_135)))))"
 "(values"
-" id_140)))))"
+" id_136)))))"
 "(if(not"
 " #f)"
-"(for-loop_322"
-" id_138"
-" rest_235)"
-" id_138)))"
-" id_34)))))"
-" for-loop_322)"
+"(for-loop_135"
+" id_134"
+" rest_243)"
+" id_134)))"
+" id_133)))))"
+" for-loop_135)"
 " null"
-" lst_411)))))"
+" lst_204)))))"
 "(reverse$1"
-" id_137)))))))))"
+" id_132)))))))))"
 "(values"
 " all-defined-except68_0"
 " id69_0))"
@@ -71113,73 +69431,73 @@ static const char *startup_source =
 "(check-nested_1"
 " 'phaseless)"
 "(values))))"
-"(let-values(((ok?_72"
+"(let-values(((ok?_73"
 " prefix-all-defined71_0"
 " id:prefix72_0)"
-"(let-values(((s_801)"
+"(let-values(((s_232)"
 " disarmed-spec_0))"
 "(let-values(((orig-s_73)"
-" s_801))"
+" s_232))"
 "(let-values(((prefix-all-defined71_1"
 " id:prefix72_1)"
-"(let-values(((s_233)"
-"(if(syntax?$1"
-" s_801)"
-"(syntax-e$1"
-" s_801)"
-" s_801)))"
-"(if(pair?"
-" s_233)"
-"(let-values(((prefix-all-defined73_0)"
-"(let-values(((s_802)"
-"(car"
-" s_233)))"
-" s_802))"
-"((id:prefix74_0)"
-"(let-values(((s_234)"
-"(cdr"
-" s_233)))"
 "(let-values(((s_131)"
 "(if(syntax?$1"
-" s_234)"
+" s_232)"
 "(syntax-e$1"
-" s_234)"
-" s_234)))"
+" s_232)"
+" s_232)))"
 "(if(pair?"
 " s_131)"
-"(let-values(((id:prefix75_0)"
-"(let-values(((s_337)"
+"(let-values(((prefix-all-defined73_0)"
+"(let-values(((s_330)"
 "(car"
 " s_131)))"
-"(if(let-values(((or-part_111)"
+" s_330))"
+"((id:prefix74_0)"
+"(let-values(((s_132)"
+"(cdr"
+" s_131)))"
+"(let-values(((s_236)"
 "(if(syntax?$1"
-" s_337)"
+" s_132)"
+"(syntax-e$1"
+" s_132)"
+" s_132)))"
+"(if(pair?"
+" s_236)"
+"(let-values(((id:prefix75_0)"
+"(let-values(((s_331)"
+"(car"
+" s_236)))"
+"(if(let-values(((or-part_289)"
+"(if(syntax?$1"
+" s_331)"
 "(symbol?"
 "(syntax-e$1"
-" s_337))"
+" s_331))"
 " #f)))"
-"(if or-part_111"
-" or-part_111"
+"(if or-part_289"
+" or-part_289"
 "(symbol?"
-" s_337)))"
-" s_337"
+" s_331)))"
+" s_331"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                                                                         \"not an identifier\""
 " orig-s_73"
-" s_337))))"
+" s_331))))"
 "(()"
-"(let-values(((s_236)"
+"(let-values(((s_133)"
 "(cdr"
-" s_131)))"
-"(let-values(((s_132)"
-"(if(syntax?$1"
-" s_236)"
-"(syntax-e$1"
-" s_236)"
 " s_236)))"
+"(let-values(((s_333)"
+"(if(syntax?$1"
+" s_133)"
+"(syntax-e$1"
+" s_133)"
+" s_133)))"
 "(if(null?"
-" s_132)"
+" s_333)"
 "(values)"
 "(raise-syntax-error$1"
 " #f"
@@ -71227,149 +69545,149 @@ static const char *startup_source =
 "(check-nested_1"
 " 'phaseless)"
 "(values))))"
-"(let-values(((ok?_73"
+"(let-values(((ok?_74"
 " prefix-all-defined-except76_0"
 " id:prefix77_0"
 " id78_0)"
-"(let-values(((s_803)"
+"(let-values(((s_792)"
 " disarmed-spec_0))"
 "(let-values(((orig-s_74)"
-" s_803))"
+" s_792))"
 "(let-values(((prefix-all-defined-except76_1"
 " id:prefix77_1"
 " id78_1)"
-"(let-values(((s_348)"
+"(let-values(((s_793)"
 "(if(syntax?$1"
-" s_803)"
+" s_792)"
 "(syntax-e$1"
-" s_803)"
-" s_803)))"
+" s_792)"
+" s_792)))"
 "(if(pair?"
-" s_348)"
+" s_793)"
 "(let-values(((prefix-all-defined-except79_0)"
-"(let-values(((s_350)"
+"(let-values(((s_533)"
 "(car"
-" s_348)))"
-" s_350))"
+" s_793)))"
+" s_533))"
 "((id:prefix80_0"
 " id81_0)"
-"(let-values(((s_351)"
+"(let-values(((s_794)"
 "(cdr"
-" s_348)))"
-"(let-values(((s_352)"
+" s_793)))"
+"(let-values(((s_243)"
 "(if(syntax?$1"
-" s_351)"
+" s_794)"
 "(syntax-e$1"
-" s_351)"
-" s_351)))"
+" s_794)"
+" s_794)))"
 "(if(pair?"
-" s_352)"
+" s_243)"
 "(let-values(((id:prefix82_0)"
-"(let-values(((s_804)"
+"(let-values(((s_534)"
 "(car"
-" s_352)))"
-"(if(let-values(((or-part_344)"
+" s_243)))"
+"(if(let-values(((or-part_343)"
 "(if(syntax?$1"
-" s_804)"
+" s_534)"
 "(symbol?"
 "(syntax-e$1"
-" s_804))"
+" s_534))"
 " #f)))"
-"(if or-part_344"
-" or-part_344"
+"(if or-part_343"
+" or-part_343"
 "(symbol?"
-" s_804)))"
-" s_804"
+" s_534)))"
+" s_534"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                                                                           \"not an identifier\""
 " orig-s_74"
-" s_804))))"
+" s_534))))"
 "((id83_0)"
-"(let-values(((s_244)"
+"(let-values(((s_348)"
 "(cdr"
-" s_352)))"
-"(let-values(((s_245)"
+" s_243)))"
+"(let-values(((s_795)"
 "(if(syntax?$1"
-" s_244)"
+" s_348)"
 "(syntax-e$1"
-" s_244)"
-" s_244)))"
-"(let-values(((flat-s_51)"
+" s_348)"
+" s_348)))"
+"(let-values(((flat-s_53)"
 "(to-syntax-list.1"
-" s_245)))"
+" s_795)))"
 "(if(not"
-" flat-s_51)"
+" flat-s_53)"
 "(let-values()"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                                                                                 \"bad syntax\""
 " orig-s_74))"
 "(let-values()"
-"(let-values(((id_141)"
-"(let-values(((lst_413)"
-" flat-s_51))"
+"(let-values(((id_86)"
+"(let-values(((lst_407)"
+" flat-s_53))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
 "(#%variable-reference))"
 "(void)"
 "(let-values()"
 "(check-list"
-" lst_413)))"
-"((letrec-values(((for-loop_323)"
-"(lambda(id_142"
-" lst_414)"
+" lst_407)))"
+"((letrec-values(((for-loop_319)"
+"(lambda(id_36"
+" lst_408)"
 "(begin"
 " 'for-loop"
 "(if(pair?"
-" lst_414)"
-"(let-values(((s_535)"
+" lst_408)"
+"(let-values(((s_796)"
 "(unsafe-car"
-" lst_414))"
-"((rest_236)"
+" lst_408))"
+"((rest_244)"
 "(unsafe-cdr"
-" lst_414)))"
-"(let-values(((id_143)"
-"(let-values(((id_90)"
-" id_142))"
-"(let-values(((id_36)"
+" lst_408)))"
+"(let-values(((id_137)"
+"(let-values(((id_138)"
+" id_36))"
+"(let-values(((id_139)"
 "(let-values()"
-"(let-values(((id84_2)"
+"(let-values(((id84_3)"
 "(let-values()"
-"(if(let-values(((or-part_403)"
+"(if(let-values(((or-part_397)"
 "(if(syntax?$1"
-" s_535)"
+" s_796)"
 "(symbol?"
 "(syntax-e$1"
-" s_535))"
+" s_796))"
 " #f)))"
-"(if or-part_403"
-" or-part_403"
+"(if or-part_397"
+" or-part_397"
 "(symbol?"
-" s_535)))"
-" s_535"
+" s_796)))"
+" s_796"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                                                                                                                                                                               \"not an identifier\""
 " orig-s_74"
-" s_535)))))"
+" s_796)))))"
 "(cons"
-" id84_2"
-" id_90)))))"
+" id84_3"
+" id_138)))))"
 "(values"
-" id_36)))))"
+" id_139)))))"
 "(if(not"
 " #f)"
-"(for-loop_323"
-" id_143"
-" rest_236)"
-" id_143)))"
-" id_142)))))"
-" for-loop_323)"
+"(for-loop_319"
+" id_137"
+" rest_244)"
+" id_137)))"
+" id_36)))))"
+" for-loop_319)"
 " null"
-" lst_413)))))"
+" lst_407)))))"
 "(reverse$1"
-" id_141)))))))))"
+" id_86)))))))))"
 "(values"
 " id:prefix82_0"
 " id83_0))"
@@ -71407,82 +69725,82 @@ static const char *startup_source =
 "(list"
 " spec_0))))))"
 "(let-values()"
-"(let-values(((ok?_74"
+"(let-values(((ok?_75"
 " expand85_0"
 " id86_0"
 " datum87_0)"
-"(let-values(((s_260)"
+"(let-values(((s_797)"
 " disarmed-spec_0))"
 "(let-values(((orig-s_75)"
-" s_260))"
+" s_797))"
 "(let-values(((expand85_1"
 " id86_1"
 " datum87_1)"
-"(let-values(((s_371)"
+"(let-values(((s_798)"
 "(if(syntax?$1"
-" s_260)"
+" s_797)"
 "(syntax-e$1"
-" s_260)"
-" s_260)))"
+" s_797)"
+" s_797)))"
 "(if(pair?"
-" s_371)"
+" s_798)"
 "(let-values(((expand88_0)"
-"(let-values(((s_805)"
+"(let-values(((s_367)"
 "(car"
-" s_371)))"
-" s_805))"
-"((id89_1"
+" s_798)))"
+" s_367))"
+"((id89_2"
 " datum90_0)"
-"(let-values(((s_806)"
+"(let-values(((s_368)"
 "(cdr"
-" s_371)))"
-"(let-values(((s_542)"
+" s_798)))"
+"(let-values(((s_799)"
 "(if(syntax?$1"
-" s_806)"
+" s_368)"
 "(syntax-e$1"
-" s_806)"
-" s_806)))"
+" s_368)"
+" s_368)))"
 "(if(pair?"
-" s_542)"
+" s_799)"
 "(let-values(((id91_0"
 " datum92_0)"
-"(let-values(((s_807)"
+"(let-values(((s_370)"
 "(car"
-" s_542)))"
-"(let-values(((s_808)"
+" s_799)))"
+"(let-values(((s_371)"
 "(if(syntax?$1"
-" s_807)"
+" s_370)"
 "(syntax-e$1"
-" s_807)"
-" s_807)))"
+" s_370)"
+" s_370)))"
 "(if(pair?"
-" s_808)"
+" s_371)"
 "(let-values(((id93_2)"
-"(let-values(((s_378)"
+"(let-values(((s_373)"
 "(car"
-" s_808)))"
-"(if(let-values(((or-part_404)"
+" s_371)))"
+"(if(let-values(((or-part_398)"
 "(if(syntax?$1"
-" s_378)"
+" s_373)"
 "(symbol?"
 "(syntax-e$1"
-" s_378))"
+" s_373))"
 " #f)))"
-"(if or-part_404"
-" or-part_404"
+"(if or-part_398"
+" or-part_398"
 "(symbol?"
-" s_378)))"
-" s_378"
+" s_373)))"
+" s_373"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                                                                                             \"not an identifier\""
 " orig-s_75"
-" s_378))))"
+" s_373))))"
 "((datum94_0)"
-"(let-values(((s_379)"
+"(let-values(((s_544)"
 "(cdr"
-" s_808)))"
-" s_379)))"
+" s_371)))"
+" s_544)))"
 "(values"
 " id93_2"
 " datum94_0))"
@@ -71491,17 +69809,17 @@ static const char *startup_source =
 "                                                                                                                                                                                                                                           \"bad syntax\""
 " orig-s_75)))))"
 "(()"
-"(let-values(((s_380)"
+"(let-values(((s_545)"
 "(cdr"
-" s_542)))"
-"(let-values(((s_381)"
+" s_799)))"
+"(let-values(((s_800)"
 "(if(syntax?$1"
-" s_380)"
+" s_545)"
 "(syntax-e$1"
-" s_380)"
-" s_380)))"
+" s_545)"
+" s_545)))"
 "(if(null?"
-" s_381)"
+" s_800)"
 "(values)"
 "(raise-syntax-error$1"
 " #f"
@@ -71516,7 +69834,7 @@ static const char *startup_source =
 " orig-s_75))))))"
 "(values"
 " expand88_0"
-" id89_1"
+" id89_2"
 " datum90_0))"
 "(raise-syntax-error$1"
 " #f"
@@ -71527,57 +69845,57 @@ static const char *startup_source =
 " expand85_1"
 " id86_1"
 " datum87_1))))))"
-"(let-values(((ok?_75"
+"(let-values(((ok?_76"
 " expand95_0"
 " form96_0)"
-"(let-values(((s_809)"
+"(let-values(((s_801)"
 " disarmed-spec_0))"
 "(let-values(((orig-s_76)"
-" s_809))"
+" s_801))"
 "(let-values(((expand95_1"
 " form96_1)"
-"(let-values(((s_810)"
+"(let-values(((s_376)"
 "(if(syntax?$1"
-" s_809)"
+" s_801)"
 "(syntax-e$1"
-" s_809)"
-" s_809)))"
+" s_801)"
+" s_801)))"
 "(if(pair?"
-" s_810)"
+" s_376)"
 "(let-values(((expand97_0)"
-"(let-values(((s_383)"
+"(let-values(((s_259)"
 "(car"
-" s_810)))"
-" s_383))"
+" s_376)))"
+" s_259))"
 "((form98_0)"
-"(let-values(((s_811)"
+"(let-values(((s_377)"
 "(cdr"
-" s_810)))"
-"(let-values(((s_545)"
+" s_376)))"
+"(let-values(((s_378)"
 "(if(syntax?$1"
-" s_811)"
+" s_377)"
 "(syntax-e$1"
-" s_811)"
-" s_811)))"
+" s_377)"
+" s_377)))"
 "(if(pair?"
-" s_545)"
+" s_378)"
 "(let-values(((form99_0)"
-"(let-values(((s_385)"
+"(let-values(((s_379)"
 "(car"
-" s_545)))"
-" s_385))"
+" s_378)))"
+" s_379))"
 "(()"
-"(let-values(((s_386)"
+"(let-values(((s_380)"
 "(cdr"
-" s_545)))"
-"(let-values(((s_812)"
+" s_378)))"
+"(let-values(((s_260)"
 "(if(syntax?$1"
-" s_386)"
+" s_380)"
 "(syntax-e$1"
-" s_386)"
-" s_386)))"
+" s_380)"
+" s_380)))"
 "(if(null?"
-" s_812)"
+" s_260)"
 "(values)"
 "(raise-syntax-error$1"
 " #f"
@@ -71601,13 +69919,13 @@ static const char *startup_source =
 " expand95_1"
 " form96_1))))))"
 "(let-values(((exp-spec_0)"
-"(let-values(((temp104_4)"
+"(let-values(((temp104_2)"
 " form96_0)"
-"((temp105_5)"
-"(let-values(((v_269)"
-" ctx_106))"
+"((temp105_4)"
+"(let-values(((v_268)"
+" ctx_104))"
 "(let-values(((the-struct_98)"
-" v_269))"
+" v_268))"
 "(if(expand-context/outer?"
 " the-struct_98)"
 "(let-values(((def-ctx-scopes106_0)"
@@ -71616,7 +69934,7 @@ static const char *startup_source =
 "((inner107_0)"
 "(let-values(((the-struct_99)"
 "(root-expand-context/outer-inner"
-" v_269)))"
+" v_268)))"
 "(if(expand-context/inner?"
 " the-struct_99)"
 "(let-values(((stops108_0)"
@@ -71719,11 +70037,8 @@ static const char *startup_source =
 " #f"
 " #f"
 " #f"
-" #f"
-" #f"
-" #f"
-" temp104_4"
-" temp105_5))))"
+" temp104_2"
+" temp105_4))))"
 "(let-values((()"
 "(begin"
 "(if(if(pair?"
@@ -71748,50 +70063,50 @@ static const char *startup_source =
 " orig-s_62"
 " spec_0)))"
 "(values))))"
-"(let-values(((ok?_76"
+"(let-values(((ok?_77"
 " begin100_0"
 " spec101_0)"
-"(let-values(((s_549)"
+"(let-values(((s_802)"
 " exp-spec_0))"
 "(let-values(((orig-s_77)"
-" s_549))"
+" s_802))"
 "(let-values(((begin100_1"
 " spec101_1)"
-"(let-values(((s_489)"
-"(if(syntax?$1"
-" s_549)"
-"(syntax-e$1"
-" s_549)"
-" s_549)))"
-"(if(pair?"
-" s_489)"
-"(let-values(((begin102_0)"
 "(let-values(((s_266)"
-"(car"
-" s_489)))"
-" s_266))"
-"((spec103_0)"
-"(let-values(((s_267)"
-"(cdr"
-" s_489)))"
-"(let-values(((s_813)"
 "(if(syntax?$1"
-" s_267)"
+" s_802)"
 "(syntax-e$1"
-" s_267)"
-" s_267)))"
-"(let-values(((flat-s_52)"
+" s_802)"
+" s_802)))"
+"(if(pair?"
+" s_266)"
+"(let-values(((begin102_0)"
+"(let-values(((s_267)"
+"(car"
+" s_266)))"
+" s_267))"
+"((spec103_0)"
+"(let-values(((s_803)"
+"(cdr"
+" s_266)))"
+"(let-values(((s_268)"
+"(if(syntax?$1"
+" s_803)"
+"(syntax-e$1"
+" s_803)"
+" s_803)))"
+"(let-values(((flat-s_54)"
 "(to-syntax-list.1"
-" s_813)))"
+" s_268)))"
 "(if(not"
-" flat-s_52)"
+" flat-s_54)"
 "(let-values()"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                                                                   \"bad syntax\""
 " orig-s_77))"
 "(let-values()"
-" flat-s_52)))))))"
+" flat-s_54)))))))"
 "(values"
 " begin102_0"
 " spec103_0))"
@@ -71805,7 +70120,7 @@ static const char *startup_source =
 " spec101_1))))))"
 "(let-values(((track-stxes_9"
 " exp-specs_9)"
-"(loop_118"
+"(loop_115"
 " spec101_0"
 " at-phase_13"
 " protected?_15"
@@ -71827,35 +70142,35 @@ static const char *startup_source =
 " track-stxes_4"
 " exp-specs_4)))))"
 "(if(not #f)"
-"(for-loop_98"
+"(for-loop_95"
 " track-stxes_2"
 " exp-specs_2"
-" rest_232)"
+" rest_240)"
 "(values"
 " track-stxes_2"
 " exp-specs_2))))"
 "(values"
 " track-stxes_1"
 " exp-specs_1))))))"
-" for-loop_98)"
+" for-loop_95)"
 " null"
 " null"
-" lst_76)))))"
+" 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_118)"
+" loop_115)"
 " specs_0"
-" phase_46"
+" phase_43"
 " #f"
 " 'raw)))))"
 "(define-values"
 "(parse-identifier!)"
-"(lambda(spec_1 orig-s_78 sym_106 at-phase_14 ns_126 rp_2 protected?_16)"
+"(lambda(spec_1 orig-s_78 sym_105 at-phase_14 ns_126 rp_2 protected?_16)"
 "(begin"
-"(let-values(((b_95)(resolve+shift/extra-inspector spec_1 at-phase_14 ns_126)))"
+"(let-values(((b_93)(resolve+shift/extra-inspector spec_1 at-phase_14 ns_126)))"
 "(let-values((()"
 "(begin"
-"(if b_95"
+"(if b_93"
 "(void)"
 "(let-values()"
 "(raise-syntax-error$1"
@@ -71864,14 +70179,14 @@ static const char *startup_source =
 " orig-s_78"
 " spec_1)))"
 "(values))))"
-"(let-values(((as-transformer?_7)(binding-for-transformer? b_95 spec_1 at-phase_14 ns_126)))"
+"(let-values(((as-transformer?_7)(binding-for-transformer? b_93 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+shift30.1 #f #f #f #f #f #f temp120_3 #t #f #f spec118_0 at-phase119_0))))"
+"(resolve+shift28.1 #f #f null temp120_3 #f spec118_0 at-phase119_0))))"
 "(let-values(((rp109_0) rp_2)"
-"((sym110_0) sym_106)"
+"((sym110_0) sym_105)"
 "((at-phase111_0) at-phase_14)"
-"((b112_0) b_95)"
+"((b112_0) b_93)"
 "((immed-b113_0) immed-b_0)"
 "((spec114_0) spec_1)"
 "((orig-s115_0) orig-s_78)"
@@ -71895,61 +70210,61 @@ static const char *startup_source =
 "(lambda(fmt_1)"
 "(begin"
 " 'mk"
-"(let-values(((sym_107)(string->symbol(format fmt_1(syntax-e$1 id:struct_0)))))"
-"(datum->syntax$1 id:struct_0 sym_107 id:struct_0))))))"
+"(let-values(((sym_106)(string->symbol(format fmt_1(syntax-e$1 id:struct_0)))))"
+"(datum->syntax$1 id:struct_0 sym_106 id:struct_0))))))"
 "(let-values(((mk2_0)"
 "(lambda(fmt_2 field-id_0)"
 "(begin"
 " 'mk2"
-"(let-values(((sym_108)"
+"(let-values(((sym_107)"
 "(string->symbol"
 "(format fmt_2(syntax-e$1 id:struct_0)(syntax-e$1 field-id_0)))))"
-"(datum->syntax$1 id:struct_0 sym_108 id:struct_0))))))"
+"(datum->syntax$1 id:struct_0 sym_107 id:struct_0))))))"
 "(begin"
-"            (let-values (((lst_415) (list \"~a\" \"make-~a\" \"struct:~a\" \"~a?\")))"
+"            (let-values (((lst_409) (list \"~a\" \"make-~a\" \"struct:~a\" \"~a?\")))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
-"(let-values()(check-list lst_415)))"
-"((letrec-values(((for-loop_324)"
-"(lambda(lst_416)"
+"(let-values()(check-list lst_409)))"
+"((letrec-values(((for-loop_320)"
+"(lambda(lst_410)"
 "(begin"
 " 'for-loop"
-"(if(pair? lst_416)"
-"(let-values(((fmt_3)(unsafe-car lst_416))((rest_237)(unsafe-cdr lst_416)))"
+"(if(pair? lst_410)"
+"(let-values(((fmt_3)(unsafe-car lst_410))((rest_245)(unsafe-cdr lst_410)))"
 "(let-values((()"
 "(let-values()"
 "(let-values((()"
 "(let-values()"
 "(begin"
 "(let-values()"
-"(let-values(((id_144)(mk_0 fmt_3)))"
+"(let-values(((id_140)(mk_0 fmt_3)))"
 "(parse-identifier!"
-" id_144"
+" id_140"
 " orig-s_79"
-"(syntax-e$1 id_144)"
+"(syntax-e$1 id_140)"
 " at-phase_15"
 " ns_127"
 " rp_3"
 " protected?_17)))"
 "(values)))))"
 "(values)))))"
-"(if(not #f)(for-loop_324 rest_237)(values))))"
+"(if(not #f)(for-loop_320 rest_245)(values))))"
 "(values))))))"
-" for-loop_324)"
-" lst_415)))"
+" for-loop_320)"
+" lst_409)))"
 "(void)"
-"(let-values(((lst_417) fields_0))"
+"(let-values(((lst_411) fields_0))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
-"(let-values()(check-list lst_417)))"
-"((letrec-values(((for-loop_325)"
-"(lambda(lst_418)"
+"(let-values()(check-list lst_411)))"
+"((letrec-values(((for-loop_321)"
+"(lambda(lst_412)"
 "(begin"
 " 'for-loop"
-"(if(pair? lst_418)"
-"(let-values(((field_0)(unsafe-car lst_418))((rest_238)(unsafe-cdr lst_418)))"
+"(if(pair? lst_412)"
+"(let-values(((field_0)(unsafe-car lst_412))((rest_246)(unsafe-cdr lst_412)))"
 "(let-values((()"
 "(let-values()"
 "(let-values((()"
@@ -71981,14 +70296,14 @@ static const char *startup_source =
 " protected?_17)))))"
 "(values)))))"
 "(values)))))"
-"(if(not #f)(for-loop_325 rest_238)(values))))"
+"(if(not #f)(for-loop_321 rest_246)(values))))"
 "(values))))))"
-" for-loop_325)"
-" lst_417)))"
+" for-loop_321)"
+" lst_411)))"
 "(void)))))))"
 "(define-values"
 "(parse-all-from)"
-"(lambda(mod-path-stx_0 orig-s_80 self_31 except-ids_0 at-phase_16 ns_128 rp_4 protected?_18 ctx_107)"
+"(lambda(mod-path-stx_0 orig-s_80 self_31 except-ids_0 at-phase_16 ns_128 rp_4 protected?_18 ctx_105)"
 "(begin"
 "(let-values(((mod-path_33)(syntax->datum$1 mod-path-stx_0)))"
 "(let-values((()"
@@ -71998,13 +70313,13 @@ static const char *startup_source =
 "(let-values()"
 "                            (raise-syntax-error$1 provide-form-name \"not a module path\" orig-s_80 mod-path-stx_0)))"
 "(values))))"
-"(let-values(((mpi_57)(module-path->mpi/context mod-path_33 ctx_107)))"
-"(parse-all-from-module mpi_57 #f orig-s_80 except-ids_0 #f at-phase_16 ns_128 rp_4 protected?_18)))))))"
+"(let-values(((mpi_54)(module-path->mpi/context mod-path_33 ctx_105)))"
+"(parse-all-from-module mpi_54 #f orig-s_80 except-ids_0 #f at-phase_16 ns_128 rp_4 protected?_18)))))))"
 "(define-values"
 "(parse-all-from-module)"
-"(lambda(mpi_58 matching-stx_0 orig-s_81 except-ids_1 prefix-sym_0 at-phase_17 ns_129 rp_5 protected?_19)"
+"(lambda(mpi_55 matching-stx_0 orig-s_81 except-ids_1 prefix-sym_0 at-phase_17 ns_129 rp_5 protected?_19)"
 "(begin"
-"(let-values(((requireds_2)(extract-module-requires rp_5 mpi_58 at-phase_17)))"
+"(let-values(((requireds_2)(extract-module-requires rp_5 mpi_55 at-phase_17)))"
 "(let-values(((phase-desc_0)"
 "(lambda()"
 "(begin"
@@ -72026,54 +70341,54 @@ static const char *startup_source =
 " matching-stx_0)))"
 "(values))))"
 "(let-values(((add-prefix_1)"
-"(lambda(sym_109)"
+"(lambda(sym_108)"
 "(begin"
 " 'add-prefix"
-"                              (if prefix-sym_0 (string->symbol (format \"~a~a\" prefix-sym_0 sym_109)) sym_109)))))"
+"                              (if prefix-sym_0 (string->symbol (format \"~a~a\" prefix-sym_0 sym_108)) sym_108)))))"
 "(let-values(((found_0)(make-hasheq)))"
 "(begin"
-"(let-values(((lst_419) requireds_2))"
+"(let-values(((lst_413) requireds_2))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
-"(let-values()(check-list lst_419)))"
-"((letrec-values(((for-loop_67)"
-"(lambda(lst_420)"
+"(let-values()(check-list lst_413)))"
+"((letrec-values(((for-loop_322)"
+"(lambda(lst_414)"
 "(begin"
 " 'for-loop"
-"(if(pair? lst_420)"
-"(let-values(((i_71)(unsafe-car lst_420))"
-"((rest_239)(unsafe-cdr lst_420)))"
+"(if(pair? lst_414)"
+"(let-values(((i_187)(unsafe-car lst_414))"
+"((rest_247)(unsafe-cdr lst_414)))"
 "(let-values((()"
 "(let-values()"
 "(let-values((()"
 "(let-values()"
 "(begin"
 "(let-values()"
-"(let-values(((id_145)"
-"(required-id i_71)))"
-"(let-values(((phase_152)"
+"(let-values(((id_141)"
+"(required-id i_187)))"
+"(let-values(((phase_142)"
 "(required-phase"
-" i_71)))"
-"(if(let-values(((or-part_405)"
+" i_187)))"
+"(if(let-values(((or-part_399)"
 "(if matching-stx_0"
 "(not"
 "(if(eqv?"
-" phase_152"
+" phase_142"
 " at-phase_17)"
 "(free-identifier=?$1"
-" id_145"
+" id_141"
 "(datum->syntax$1"
 " matching-stx_0"
 "(syntax-e$1"
-" id_145))"
-" phase_152"
-" phase_152)"
+" id_141))"
+" phase_142"
+" phase_142)"
 " #f))"
 " #f)))"
-"(if or-part_405"
-" or-part_405"
-"(let-values(((lst_421)"
+"(if or-part_399"
+" or-part_399"
+"(let-values(((lst_415)"
 " except-ids_1))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
@@ -72081,147 +70396,142 @@ static const char *startup_source =
 "(void)"
 "(let-values()"
 "(check-list"
-" lst_421)))"
-"((letrec-values(((for-loop_326)"
-"(lambda(result_133"
-" lst_422)"
+" lst_415)))"
+"((letrec-values(((for-loop_323)"
+"(lambda(result_129"
+" lst_416)"
 "(begin"
 " 'for-loop"
 "(if(pair?"
-" lst_422)"
+" lst_416)"
 "(let-values(((except-id_0)"
 "(unsafe-car"
-" lst_422))"
-"((rest_240)"
+" lst_416))"
+"((rest_248)"
 "(unsafe-cdr"
-" lst_422)))"
-"(let-values(((result_134)"
+" lst_416)))"
+"(let-values(((result_130)"
 "(let-values()"
-"(let-values(((result_135)"
+"(let-values(((result_131)"
 "(let-values()"
 "(let-values()"
 "(if(free-identifier=?$1"
-" id_145"
+" id_141"
 " except-id_0"
-" phase_152"
-" phase_152)"
+" phase_142"
+" phase_142)"
 "(hash-set!"
 " found_0"
 " except-id_0"
 " #t)"
 " #f)))))"
 "(values"
-" result_135)))))"
+" result_131)))))"
 "(if(if(not"
-"((lambda x_97"
-" result_134)"
+"((lambda x_101"
+" result_130)"
 " except-id_0))"
 "(not"
 " #f)"
 " #f)"
-"(for-loop_326"
-" result_134"
-" rest_240)"
-" result_134)))"
-" result_133)))))"
-" for-loop_326)"
+"(for-loop_323"
+" result_130"
+" rest_248)"
+" result_130)))"
+" result_129)))))"
+" for-loop_323)"
 " #f"
-" lst_421)))))"
+" lst_415)))))"
 "(void)"
 "(let-values()"
-"(let-values(((b_96)"
+"(let-values(((b_94)"
 "(resolve+shift/extra-inspector"
-" id_145"
-" phase_152"
+" id_141"
+" phase_142"
 " ns_129)))"
 "(let-values(((immed-b_1)"
 "(let-values(((id130_0)"
-" id_145)"
+" id_141)"
 "((phase131_0)"
-" phase_152)"
+" phase_142)"
 "((temp132_2)"
 " #t))"
-"(resolve+shift30.1"
-" #f"
-" #f"
-" #f"
-" #f"
+"(resolve+shift28.1"
 " #f"
 " #f"
+" null"
 " temp132_2"
-" #t"
-" #f"
 " #f"
 " id130_0"
 " phase131_0))))"
 "(let-values(((rp121_0)"
 " rp_5)"
-"((temp122_3)"
+"((temp122_1)"
 "(add-prefix_1"
 "(syntax-e$1"
-" id_145)))"
+" id_141)))"
 "((phase123_0)"
-" phase_152)"
+" phase_142)"
 "((b124_0)"
-" b_96)"
+" b_94)"
 "((immed-b125_0)"
 " immed-b_1)"
-"((id126_0)"
-" id_145)"
+"((id126_1)"
+" id_141)"
 "((orig-s127_0)"
 " orig-s_81)"
 "((protected?128_0)"
 " protected?_19)"
 "((temp129_2)"
 "(required-as-transformer?"
-" i_71)))"
+" i_187)))"
 "(add-provide!117.1"
 " protected?128_0"
 " temp129_2"
 " rp121_0"
-" temp122_3"
+" temp122_1"
 " phase123_0"
 " b124_0"
 " immed-b125_0"
-" id126_0"
+" id126_1"
 " orig-s127_0)))))))))"
 "(values)))))"
 "(values)))))"
-"(if(not #f)(for-loop_67 rest_239)(values))))"
+"(if(not #f)(for-loop_322 rest_247)(values))))"
 "(values))))))"
-" for-loop_67)"
-" lst_419)))"
+" for-loop_322)"
+" lst_413)))"
 "(void)"
 "(if(=(hash-count found_0)(length except-ids_1))"
 "(void)"
 "(let-values()"
 "(begin"
-"(let-values(((lst_423) except-ids_1))"
+"(let-values(((lst_417) except-ids_1))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
-"(let-values()(check-list lst_423)))"
-"((letrec-values(((for-loop_327)"
-"(lambda(lst_424)"
+"(let-values()(check-list lst_417)))"
+"((letrec-values(((for-loop_324)"
+"(lambda(lst_418)"
 "(begin"
 " 'for-loop"
-"(if(pair? lst_424)"
-"(let-values(((except-id_1)(unsafe-car lst_424))"
-"((rest_241)(unsafe-cdr lst_424)))"
+"(if(pair? lst_418)"
+"(let-values(((except-id_1)(unsafe-car lst_418))"
+"((rest_249)(unsafe-cdr lst_418)))"
 "(let-values((()"
 "(let-values()"
 "(let-values((()"
 "(let-values()"
 "(begin"
 "(let-values()"
-"(if(let-values(((or-part_406)"
+"(if(let-values(((or-part_400)"
 "(hash-ref"
 " found_0"
 " except-id_1"
 " #f)))"
-"(if or-part_406"
-" or-part_406"
-"(let-values(((lst_126)"
+"(if or-part_400"
+" or-part_400"
+"(let-values(((lst_419)"
 " requireds_2))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
@@ -72229,53 +70539,53 @@ static const char *startup_source =
 "(void)"
 "(let-values()"
 "(check-list"
-" lst_126)))"
-"((letrec-values(((for-loop_163)"
-"(lambda(result_136"
-" lst_127)"
+" lst_419)))"
+"((letrec-values(((for-loop_325)"
+"(lambda(result_132"
+" lst_420)"
 "(begin"
 " 'for-loop"
 "(if(pair?"
-" lst_127)"
-"(let-values(((i_195)"
+" lst_420)"
+"(let-values(((i_188)"
 "(unsafe-car"
-" lst_127))"
-"((rest_64)"
+" lst_420))"
+"((rest_250)"
 "(unsafe-cdr"
-" lst_127)))"
-"(let-values(((result_137)"
+" lst_420)))"
+"(let-values(((result_133)"
 "(let-values()"
-"(let-values(((result_138)"
+"(let-values(((result_134)"
 "(let-values()"
 "(let-values()"
-"(let-values(((id_146)"
+"(let-values(((id_142)"
 "(required-id"
-" i_195)))"
-"(let-values(((phase_153)"
+" i_188)))"
+"(let-values(((phase_143)"
 "(required-phase"
-" i_195)))"
+" i_188)))"
 "(free-identifier=?$1"
-" id_146"
+" id_142"
 " except-id_1"
-" phase_153"
-" phase_153)))))))"
+" phase_143"
+" phase_143)))))))"
 "(values"
-" result_138)))))"
+" result_134)))))"
 "(if(if(not"
-"((lambda x_98"
-" result_137)"
-" i_195))"
+"((lambda x_102"
+" result_133)"
+" i_188))"
 "(not"
 " #f)"
 " #f)"
-"(for-loop_163"
-" result_137"
-" rest_64)"
-" result_137)))"
-" result_136)))))"
-" for-loop_163)"
+"(for-loop_325"
+" result_133"
+" rest_250)"
+" result_133)))"
+" result_132)))))"
+" for-loop_325)"
 " #f"
-" lst_126)))))"
+" lst_419)))))"
 "(void)"
 "(let-values()"
 "(raise-syntax-error$1"
@@ -72289,10 +70599,10 @@ static const char *startup_source =
 " except-id_1))))"
 "(values)))))"
 "(values)))))"
-"(if(not #f)(for-loop_327 rest_241)(values))))"
+"(if(not #f)(for-loop_324 rest_249)(values))))"
 "(values))))))"
-" for-loop_327)"
-" lst_423)))"
+" for-loop_324)"
+" lst_417)))"
 "(void)))))))))))))"
 "(define-values"
 "(check-cross-phase-persistent-form)"
@@ -72303,95 +70613,95 @@ static const char *startup_source =
 "(begin"
 " 'check-body"
 "(begin"
-"(let-values(((lst_425) bodys_14))"
+"(let-values(((lst_421) bodys_14))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
-"(let-values()(check-list lst_425)))"
-"((letrec-values(((for-loop_328)"
-"(lambda(lst_83)"
+"(let-values()(check-list lst_421)))"
+"((letrec-values(((for-loop_326)"
+"(lambda(lst_85)"
 "(begin"
 " 'for-loop"
-"(if(pair? lst_83)"
-"(let-values(((body_21)(unsafe-car lst_83))"
-"((rest_39)(unsafe-cdr lst_83)))"
+"(if(pair? lst_85)"
+"(let-values(((body_19)(unsafe-car lst_85))"
+"((rest_40)(unsafe-cdr lst_85)))"
 "(let-values((()"
 "(let-values()"
 "(let-values((()"
 "(let-values()"
 "(begin"
 "(let-values()"
-"(let-values(((p_36)"
+"(let-values(((p_45)"
 "(if(expanded+parsed?"
-" body_21)"
+" body_19)"
 "(expanded+parsed-parsed"
-" body_21)"
-" body_21)))"
+" body_19)"
+" body_19)))"
 "(if(parsed-define-values?"
-" p_36)"
+" p_45)"
 "(let-values()"
 "(check-expr_0"
 "(parsed-define-values-rhs"
-" p_36)"
+" p_45)"
 "(length"
 "(parsed-define-values-syms"
-" p_36))"
-" p_36))"
-"(if(let-values(((or-part_211)"
+" p_45))"
+" p_45))"
+"(if(let-values(((or-part_217)"
 "(parsed-#%declare?"
-" p_36)))"
-"(if or-part_211"
-" or-part_211"
+" p_45)))"
+"(if or-part_217"
+" or-part_217"
 "(let-values(((or-part_3)"
 "(parsed-module?"
-" p_36)))"
+" p_45)))"
 "(if or-part_3"
 " or-part_3"
 "(syntax?$1"
-" p_36)))))"
+" p_45)))))"
 "(let-values()"
 "(void))"
 "(let-values()"
 "(disallow"
-" p_36))))))"
+" p_45))))))"
 "(values)))))"
 "(values)))))"
-"(if(not #f)(for-loop_328 rest_39)(values))))"
+"(if(not #f)(for-loop_326 rest_40)(values))))"
 "(values))))))"
-" for-loop_328)"
-" lst_425)))"
+" for-loop_326)"
+" lst_421)))"
 "(void)))))"
 "((check-expr_0)"
-"(lambda(e_93 num-results_0 enclosing_15)"
+"(lambda(e_91 num-results_0 enclosing_15)"
 "(begin"
 " 'check-expr"
-"(if(parsed-lambda? e_93)"
+"(if(parsed-lambda? e_91)"
 "(let-values()"
-"(begin(check-count 1 num-results_0 enclosing_15)(check-no-disallowed-expr_0 e_93)))"
-"(if(parsed-case-lambda? e_93)"
+"(begin(check-count 1 num-results_0 enclosing_15)(check-no-disallowed-expr_0 e_91)))"
+"(if(parsed-case-lambda? e_91)"
 "(let-values()"
-"(begin(check-count 1 num-results_0 enclosing_15)(check-no-disallowed-expr_0 e_93)))"
-"(if(parsed-quote? e_93)"
+"(begin(check-count 1 num-results_0 enclosing_15)(check-no-disallowed-expr_0 e_91)))"
+"(if(parsed-quote? e_91)"
 "(let-values()"
 "(begin"
-"(check-datum(parsed-quote-datum e_93) e_93)"
+"(check-datum(parsed-quote-datum e_91) e_91)"
 "(check-count 1 num-results_0 enclosing_15)))"
-"(if(parsed-app? e_93)"
+"(if(parsed-app? e_91)"
 "(let-values()"
-"(let-values(((rands_1)(parsed-app-rands e_93)))"
+"(let-values(((rands_1)(parsed-app-rands e_91)))"
 "(begin"
-"(let-values(((lst_77) rands_1))"
+"(let-values(((lst_78) rands_1))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
-"(let-values()(check-list lst_77)))"
-"((letrec-values(((for-loop_83)"
-"(lambda(lst_84)"
+"(let-values()(check-list lst_78)))"
+"((letrec-values(((for-loop_327)"
+"(lambda(lst_86)"
 "(begin"
 " 'for-loop"
-"(if(pair? lst_84)"
-"(let-values(((rand_0)(unsafe-car lst_84))"
-"((rest_242)(unsafe-cdr lst_84)))"
+"(if(pair? lst_86)"
+"(let-values(((rand_0)(unsafe-car lst_86))"
+"((rest_251)(unsafe-cdr lst_86)))"
 "(let-values((()"
 "(let-values()"
 "(let-values((()"
@@ -72401,15 +70711,17 @@ static const char *startup_source =
 "(check-expr_0"
 " rand_0"
 " 1"
-" e_93))"
+" e_91))"
 "(values)))))"
 "(values)))))"
-"(if(not #f)(for-loop_83 rest_242)(values))))"
+"(if(not #f)"
+"(for-loop_327 rest_251)"
+"(values))))"
 "(values))))))"
-" for-loop_83)"
-" lst_77)))"
+" for-loop_327)"
+" lst_78)))"
 "(void)"
-"(let-values(((tmp_64)(cross-phase-primitive-name(parsed-app-rator e_93))))"
+"(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()(check-count 1 num-results_0 enclosing_15))"
 "(if(equal? tmp_64 'make-struct-type)"
@@ -72418,42 +70730,42 @@ static const char *startup_source =
 "(let-values()(check-count 3 num-results_0 enclosing_15))"
 "(if(equal? tmp_64 'gensym)"
 "(let-values()"
-"(if(let-values(((or-part_368)(= 0(length rands_1))))"
-"(if or-part_368"
-" or-part_368"
+"(if(let-values(((or-part_92)(= 0(length rands_1))))"
+"(if or-part_92"
+" or-part_92"
 "(if(= 1(length rands_1))"
 "(quoted-string?(car rands_1))"
 " #f)))"
 "(void)"
-"(let-values()(disallow e_93))))"
+"(let-values()(disallow e_91))))"
 "(if(equal? tmp_64 'string->uninterned-symbol)"
 "(let-values()"
 "(if(if(= 1(length rands_1))(quoted-string?(car rands_1)) #f)"
 "(void)"
-"(let-values()(disallow e_93))))"
-"(let-values()(disallow e_93)))))))))))"
-"(let-values()(check-no-disallowed-expr_0 e_93)))))))))"
+"(let-values()(disallow e_91))))"
+"(let-values()(disallow e_91)))))))))))"
+"(let-values()(check-no-disallowed-expr_0 e_91)))))))))"
 "((check-no-disallowed-expr_0)"
-"(lambda(e_40)"
+"(lambda(e_92)"
 "(begin"
 " 'check-no-disallowed-expr"
-"(if(parsed-lambda? e_40)"
-"(let-values()(check-body-no-disallowed-expr_0(parsed-lambda-body e_40)))"
-"(if(parsed-case-lambda? e_40)"
+"(if(parsed-lambda? e_92)"
+"(let-values()(check-body-no-disallowed-expr_0(parsed-lambda-body e_92)))"
+"(if(parsed-case-lambda? e_92)"
 "(let-values()"
 "(begin"
-"(let-values(((lst_272)(parsed-case-lambda-clauses e_40)))"
+"(let-values(((lst_266)(parsed-case-lambda-clauses e_92)))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
-"(let-values()(check-list lst_272)))"
-"((letrec-values(((for-loop_241)"
-"(lambda(lst_426)"
+"(let-values()(check-list lst_266)))"
+"((letrec-values(((for-loop_240)"
+"(lambda(lst_422)"
 "(begin"
 " 'for-loop"
-"(if(pair? lst_426)"
-"(let-values(((clause_5)(unsafe-car lst_426))"
-"((rest_243)(unsafe-cdr lst_426)))"
+"(if(pair? lst_422)"
+"(let-values(((clause_5)(unsafe-car lst_422))"
+"((rest_252)(unsafe-cdr lst_422)))"
 "(let-values((()"
 "(let-values()"
 "(let-values((()"
@@ -72464,27 +70776,27 @@ static const char *startup_source =
 "(cadr clause_5)))"
 "(values)))))"
 "(values)))))"
-"(if(not #f)(for-loop_241 rest_243)(values))))"
+"(if(not #f)(for-loop_240 rest_252)(values))))"
 "(values))))))"
-" for-loop_241)"
-" lst_272)))"
+" for-loop_240)"
+" lst_266)))"
 "(void)))"
-"(if(parsed-app? e_40)"
+"(if(parsed-app? e_92)"
 "(let-values()"
 "(begin"
-"(check-no-disallowed-expr_0(parsed-app-rator e_40))"
-"(let-values(((lst_222)(parsed-app-rands e_40)))"
+"(check-no-disallowed-expr_0(parsed-app-rator e_92))"
+"(let-values(((lst_217)(parsed-app-rands e_92)))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
-"(let-values()(check-list lst_222)))"
-"((letrec-values(((for-loop_108)"
-"(lambda(lst_267)"
+"(let-values()(check-list lst_217)))"
+"((letrec-values(((for-loop_105)"
+"(lambda(lst_159)"
 "(begin"
 " 'for-loop"
-"(if(pair? lst_267)"
-"(let-values(((e_94)(unsafe-car lst_267))"
-"((rest_193)(unsafe-cdr lst_267)))"
+"(if(pair? lst_159)"
+"(let-values(((e_93)(unsafe-car lst_159))"
+"((rest_83)(unsafe-cdr lst_159)))"
 "(let-values((()"
 "(let-values()"
 "(let-values((()"
@@ -72492,64 +70804,64 @@ static const char *startup_source =
 "(begin"
 "(let-values()"
 "(check-no-disallowed-expr_0"
-" e_94))"
+" e_93))"
 "(values)))))"
 "(values)))))"
-"(if(not #f)(for-loop_108 rest_193)(values))))"
+"(if(not #f)(for-loop_105 rest_83)(values))))"
 "(values))))))"
-" for-loop_108)"
-" lst_222)))"
+" for-loop_105)"
+" lst_217)))"
 "(void)))"
-"(if(parsed-if? e_40)"
+"(if(parsed-if? e_92)"
 "(let-values()"
 "(begin"
-"(check-no-disallowed-expr_0(parsed-if-tst e_40))"
-"(check-no-disallowed-expr_0(parsed-if-thn e_40))"
-"(check-no-disallowed-expr_0(parsed-if-els e_40))))"
-"(if(parsed-set!? e_40)"
+"(check-no-disallowed-expr_0(parsed-if-tst e_92))"
+"(check-no-disallowed-expr_0(parsed-if-thn e_92))"
+"(check-no-disallowed-expr_0(parsed-if-els e_92))))"
+"(if(parsed-set!? e_92)"
 "(let-values()"
-"(let-values(((id_147)(parsed-set!-id e_40)))"
-"(let-values(((normal-b_1)(parsed-id-binding id_147)))"
+"(let-values(((id_4)(parsed-set!-id e_92)))"
+"(let-values(((normal-b_1)(parsed-id-binding id_4)))"
 "(begin"
-"(if(let-values(((or-part_86)(not normal-b_1)))"
-"(if or-part_86"
-" or-part_86"
-"(let-values(((or-part_296)(parsed-top-id? id_147)))"
-"(if or-part_296"
-" or-part_296"
+"(if(let-values(((or-part_84)(not normal-b_1)))"
+"(if or-part_84"
+" or-part_84"
+"(let-values(((or-part_310)(parsed-top-id? id_4)))"
+"(if or-part_310"
+" or-part_310"
 "(if(not(symbol? normal-b_1))"
 "(eq?(module-binding-module normal-b_1) self-mpi_6)"
 " #f)))))"
-"(let-values()(disallow e_40))"
+"(let-values()(disallow e_92))"
 "(void))"
-"(check-no-disallowed-expr_0(parsed-set!-rhs e_40))))))"
-"(if(parsed-with-continuation-mark? e_40)"
+"(check-no-disallowed-expr_0(parsed-set!-rhs e_92))))))"
+"(if(parsed-with-continuation-mark? e_92)"
 "(let-values()"
 "(begin"
-"(check-no-disallowed-expr_0(parsed-with-continuation-mark-key e_40))"
-"(check-no-disallowed-expr_0(parsed-with-continuation-mark-val e_40))"
-"(check-no-disallowed-expr_0(parsed-with-continuation-mark-body e_40))))"
-"(if(parsed-begin? e_40)"
-"(let-values()(check-body-no-disallowed-expr_0(parsed-begin-body e_40)))"
-"(if(parsed-begin0? e_40)"
-"(let-values()(check-body-no-disallowed-expr_0(parsed-begin0-body e_40)))"
-"(if(parsed-let_-values? e_40)"
+"(check-no-disallowed-expr_0(parsed-with-continuation-mark-key e_92))"
+"(check-no-disallowed-expr_0(parsed-with-continuation-mark-val e_92))"
+"(check-no-disallowed-expr_0(parsed-with-continuation-mark-body e_92))))"
+"(if(parsed-begin? e_92)"
+"(let-values()(check-body-no-disallowed-expr_0(parsed-begin-body e_92)))"
+"(if(parsed-begin0? e_92)"
+"(let-values()(check-body-no-disallowed-expr_0(parsed-begin0-body e_92)))"
+"(if(parsed-let_-values? e_92)"
 "(let-values()"
 "(begin"
-"(let-values(((lst_23)(parsed-let_-values-clauses e_40)))"
+"(let-values(((lst_23)(parsed-let_-values-clauses e_92)))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
 "(let-values()(check-list lst_23)))"
-"((letrec-values(((for-loop_256)"
-"(lambda(lst_88)"
+"((letrec-values(((for-loop_190)"
+"(lambda(lst_90)"
 "(begin"
 " 'for-loop"
-"(if(pair? lst_88)"
+"(if(pair? lst_90)"
 "(let-values(((clause_6)"
-"(unsafe-car lst_88))"
-"((rest_150)"
-"(unsafe-cdr lst_88)))"
+"(unsafe-car lst_90))"
+"((rest_143)"
+"(unsafe-cdr lst_90)))"
 "(let-values((()"
 "(let-values()"
 "(let-values((()"
@@ -72562,34 +70874,34 @@ static const char *startup_source =
 "(values)))))"
 "(values)))))"
 "(if(not #f)"
-"(for-loop_256 rest_150)"
+"(for-loop_190 rest_143)"
 "(values))))"
 "(values))))))"
-" for-loop_256)"
+" for-loop_190)"
 " lst_23)))"
 "(void)"
-"(check-body-no-disallowed-expr_0(parsed-let_-values-body e_40))))"
-"(if(let-values(((or-part_407)(parsed-quote-syntax? e_40)))"
-"(if or-part_407 or-part_407(parsed-#%variable-reference? e_40)))"
-"(let-values()(disallow e_40))"
+"(check-body-no-disallowed-expr_0(parsed-let_-values-body e_92))))"
+"(if(let-values(((or-part_401)(parsed-quote-syntax? e_92)))"
+"(if or-part_401 or-part_401(parsed-#%variable-reference? e_92)))"
+"(let-values()(disallow e_92))"
 "(let-values()(void)))))))))))))))"
 "((check-body-no-disallowed-expr_0)"
 "(lambda(l_48)"
 "(begin"
 " 'check-body-no-disallowed-expr"
 "(begin"
-"(let-values(((lst_80) l_48))"
+"(let-values(((lst_81) l_48))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
-"(let-values()(check-list lst_80)))"
-"((letrec-values(((for-loop_329)"
-"(lambda(lst_274)"
+"(let-values()(check-list lst_81)))"
+"((letrec-values(((for-loop_328)"
+"(lambda(lst_58)"
 "(begin"
 " 'for-loop"
-"(if(pair? lst_274)"
-"(let-values(((e_84)(unsafe-car lst_274))"
-"((rest_146)(unsafe-cdr lst_274)))"
+"(if(pair? lst_58)"
+"(let-values(((e_82)(unsafe-car lst_58))"
+"((rest_197)(unsafe-cdr lst_58)))"
 "(let-values((()"
 "(let-values()"
 "(let-values((()"
@@ -72597,13 +70909,13 @@ static const char *startup_source =
 "(begin"
 "(let-values()"
 "(check-no-disallowed-expr_0"
-" e_84))"
+" e_82))"
 "(values)))))"
 "(values)))))"
-"(if(not #f)(for-loop_329 rest_146)(values))))"
+"(if(not #f)(for-loop_328 rest_197)(values))))"
 "(values))))))"
-" for-loop_329)"
-" lst_80)))"
+" for-loop_328)"
+" lst_81)))"
 "(void))))))"
 "(check-body_0 bodys_13)))))"
 "(define-values"
@@ -72612,90 +70924,90 @@ static const char *startup_source =
 "(begin(if(= is-num_0 expected-num_0)(void)(let-values()(disallow enclosing_16))))))"
 "(define-values"
 "(check-datum)"
-"(lambda(d_37 e_12)"
+"(lambda(d_38 e_12)"
 "(begin"
-"(if(let-values(((or-part_156)(number? d_37)))"
-"(if or-part_156"
-" or-part_156"
-"(let-values(((or-part_162)(boolean? d_37)))"
-"(if or-part_162"
-" or-part_162"
-"(let-values(((or-part_21)(symbol? d_37)))"
+"(if(let-values(((or-part_159)(number? d_38)))"
+"(if or-part_159"
+" or-part_159"
+"(let-values(((or-part_164)(boolean? d_38)))"
+"(if or-part_164"
+" or-part_164"
+"(let-values(((or-part_21)(symbol? d_38)))"
 "(if or-part_21"
 " or-part_21"
-"(let-values(((or-part_163)(string? d_37)))"
-"(if or-part_163"
-" or-part_163"
-"(let-values(((or-part_253)(bytes? d_37)))(if or-part_253 or-part_253(null? d_37)))))))))))"
+"(let-values(((or-part_165)(string? d_38)))"
+"(if or-part_165"
+" or-part_165"
+"(let-values(((or-part_259)(bytes? d_38)))(if or-part_259 or-part_259(null? d_38)))))))))))"
 "(let-values()(void))"
 "(let-values()(disallow e_12))))))"
 "(define-values"
 "(quoted-string?)"
-"(lambda(e_95)(begin(if(parsed-quote? e_95)(string?(parsed-quote-datum e_95)) #f))))"
+"(lambda(e_94)(begin(if(parsed-quote? e_94)(string?(parsed-quote-datum e_94)) #f))))"
 "(define-values"
 "(cross-phase-primitive-name)"
-"(lambda(id_148)"
+"(lambda(id_143)"
 "(begin"
-"(if(parsed-id? id_148)"
+"(if(parsed-id? id_143)"
 "(let-values()"
-"(let-values(((b_97)(parsed-id-binding id_148)))"
-"(if(module-binding? b_97)"
-"(if(eq? runtime-module-name(1/module-path-index-resolve(module-binding-module b_97)))"
-"(module-binding-sym b_97)"
+"(let-values(((b_86)(parsed-id-binding id_143)))"
+"(if(module-binding? b_86)"
+"(if(eq? runtime-module-name(1/module-path-index-resolve(module-binding-module b_86)))"
+"(module-binding-sym b_86)"
 " #f)"
 " #f)))"
 "(let-values() #f)))))"
 "(define-values"
 "(disallow)"
-"(lambda(body_22)"
+"(lambda(body_20)"
 "(begin"
 "(raise-syntax-error$1"
 " 'module"
 "       \"not allowed in a cross-phase persistent module\""
-"(if(parsed? body_22)(datum->syntax$1 #f body_22(parsed-s body_22)) body_22)))))"
+"(if(parsed? body_20)(datum->syntax$1 #f body_20(parsed-s body_20)) body_20)))))"
 "(void"
 "(add-core-form!*"
 " 'module"
-"(lambda(s_43 ctx_108)"
+"(lambda(s_43 ctx_106)"
 "(begin"
-"(if(eq?(expand-context-context ctx_108) 'top-level)"
+"(if(eq?(expand-context-context ctx_106) 'top-level)"
 "(void)"
 "(let-values()"
 "(begin"
-"(let-values(((obs_126)(expand-context-observer ctx_108)))"
-"(if obs_126(let-values()(let-values()(call-expand-observe obs_126 'prim-module)))(void)))"
+"(let-values(((obs_124)(expand-context-observer ctx_106)))"
+"(if obs_124(let-values()(let-values()(call-expand-observe obs_124 'prim-module)))(void)))"
 "             (raise-syntax-error$1 #f \"allowed only at the top level\" s_43))))"
 "(let-values()"
-"(let-values(((s223_1) s_43)((ctx224_0) ctx_108)((temp225_1) #f))"
-"(expand-module18.1 #f #f #f #f #f #f #f #f #f #f #f #f #f #f s223_1 ctx224_0 temp225_1)))))))"
+"(let-values(((s223_0) s_43)((ctx224_0) ctx_106)((temp225_2) #f))"
+"(expand-module18.1 #f #f #f #f #f unsafe-undefined #f s223_0 ctx224_0 temp225_2)))))))"
 "(void"
 "(add-core-form!*"
 " 'module*"
-"(lambda(s_814 ctx_109)"
+"(lambda(s_306 ctx_107)"
 "(begin"
-"(let-values(((obs_127)(expand-context-observer ctx_109)))"
-"(if obs_127(let-values()(let-values()(call-expand-observe obs_127 'prim-module)))(void)))"
-"       (raise-syntax-error$1 #f \"illegal use (not in a module top-level)\" s_814)))))"
+"(let-values(((obs_125)(expand-context-observer ctx_107)))"
+"(if obs_125(let-values()(let-values()(call-expand-observe obs_125 'prim-module)))(void)))"
+"       (raise-syntax-error$1 #f \"illegal use (not in a module top-level)\" s_306)))))"
 "(void"
 "(add-core-form!*"
 " '#%module-begin"
-"(lambda(s_89 ctx_110)"
+"(lambda(s_90 ctx_108)"
 "(begin"
-"(let-values(((obs_128)(expand-context-observer ctx_110)))"
-"(if obs_128(let-values()(let-values()(call-expand-observe obs_128 'prim-module-begin)))(void)))"
-"(if(eq?(expand-context-context ctx_110) 'module-begin)"
+"(let-values(((obs_126)(expand-context-observer ctx_108)))"
+"(if obs_126(let-values()(let-values()(call-expand-observe obs_126 'prim-module-begin)))(void)))"
+"(if(eq?(expand-context-context ctx_108) 'module-begin)"
 "(void)"
-"         (let-values () (raise-syntax-error$1 #f \"not in a module-definition context\" s_89)))"
-"(if(expand-context-module-begin-k ctx_110)"
+"         (let-values () (raise-syntax-error$1 #f \"not in a module-definition context\" s_90)))"
+"(if(expand-context-module-begin-k ctx_108)"
 "(void)"
-"         (let-values () (raise-syntax-error$1 #f \"not currently transforming a module\" s_89)))"
-"((expand-context-module-begin-k ctx_110)"
-" s_89"
-"(let-values(((v_270) ctx_110))"
-"(let-values(((the-struct_100) v_270))"
+"         (let-values () (raise-syntax-error$1 #f \"not currently transforming a module\" s_90)))"
+"((expand-context-module-begin-k ctx_108)"
+" s_90"
+"(let-values(((v_269) ctx_108))"
+"(let-values(((the-struct_100) v_269))"
 "(if(expand-context/outer? the-struct_100)"
 "(let-values(((inner226_0)"
-"(let-values(((the-struct_101)(root-expand-context/outer-inner v_270)))"
+"(let-values(((the-struct_101)(root-expand-context/outer-inner v_269)))"
 "(if(expand-context/inner? the-struct_101)"
 "(let-values(((module-begin-k227_0) #f))"
 "(expand-context/inner2.1"
@@ -72746,145 +71058,133 @@ static const char *startup_source =
 "(void"
 "(add-core-form!*"
 " '#%declare"
-"(lambda(s_815 ctx_111)"
+"(lambda(s_804 ctx_109)"
 "(begin"
-"(let-values(((obs_129)(expand-context-observer ctx_111)))"
-"(if obs_129(let-values()(let-values()(call-expand-observe obs_129 'prim-declare)))(void)))"
-"       (raise-syntax-error$1 #f \"not allowed outside of a module body\" s_815)))))"
+"(let-values(((obs_127)(expand-context-observer ctx_109)))"
+"(if obs_127(let-values()(let-values()(call-expand-observe obs_127 'prim-declare)))(void)))"
+"       (raise-syntax-error$1 #f \"not allowed outside of a module body\" s_804)))))"
 "(define-values"
 "(expand-module18.1)"
 "(lambda(always-produce-compiled?1_0"
-" always-produce-compiled?8_0"
 " enclosing-all-scopes-stx3_0"
-" enclosing-all-scopes-stx10_0"
 " enclosing-is-cross-phase-persistent?4_0"
-" enclosing-is-cross-phase-persistent?11_0"
 " enclosing-requires+provides5_0"
-" enclosing-requires+provides12_0"
 " keep-enclosing-scope-at-phase2_0"
-" keep-enclosing-scope-at-phase9_0"
 " modules-being-compiled7_0"
-" modules-being-compiled14_0"
 " mpis-for-enclosing-reset6_0"
-" mpis-for-enclosing-reset13_0"
-" s15_0"
+" s15_2"
 " init-ctx16_0"
 " enclosing-self17_0)"
 "(begin"
 " 'expand-module18"
-"(let-values(((s_483) s15_0))"
+"(let-values(((s_805) s15_2))"
 "(let-values(((init-ctx_0) init-ctx16_0))"
 "(let-values(((enclosing-self_1) enclosing-self17_0))"
-"(let-values(((always-produce-compiled?_0)(if always-produce-compiled?8_0 always-produce-compiled?1_0 #f)))"
-"(let-values(((keep-enclosing-scope-at-phase_0)"
-"(if keep-enclosing-scope-at-phase9_0 keep-enclosing-scope-at-phase2_0 #f)))"
-"(let-values(((enclosing-all-scopes-stx_0)"
-"(if enclosing-all-scopes-stx10_0 enclosing-all-scopes-stx3_0 #f)))"
-"(let-values(((enclosing-is-cross-phase-persistent?_0)"
-"(if enclosing-is-cross-phase-persistent?11_0"
-" enclosing-is-cross-phase-persistent?4_0"
-" #f)))"
-"(let-values(((enclosing-r+p_1)"
-"(if enclosing-requires+provides12_0 enclosing-requires+provides5_0 #f)))"
-"(let-values(((mpis-for-enclosing-reset_0)"
-"(if mpis-for-enclosing-reset13_0 mpis-for-enclosing-reset6_0 #f)))"
+"(let-values(((always-produce-compiled?_0) always-produce-compiled?1_0))"
+"(let-values(((keep-enclosing-scope-at-phase_0) keep-enclosing-scope-at-phase2_0))"
+"(let-values(((enclosing-all-scopes-stx_0) enclosing-all-scopes-stx3_0))"
+"(let-values(((enclosing-is-cross-phase-persistent?_0) enclosing-is-cross-phase-persistent?4_0))"
+"(let-values(((enclosing-r+p_1) enclosing-requires+provides5_0))"
+"(let-values(((mpis-for-enclosing-reset_0) mpis-for-enclosing-reset6_0))"
 "(let-values(((modules-being-compiled_3)"
-"(if modules-being-compiled14_0 modules-being-compiled7_0(make-hasheq))))"
+"(if(eq? modules-being-compiled7_0 unsafe-undefined)"
+"(make-hasheq)"
+" modules-being-compiled7_0)))"
 "(let-values()"
 "(let-values((()"
 "(begin"
-"(let-values(((obs_130)(expand-context-observer init-ctx_0)))"
-"(if obs_130"
+"(let-values(((obs_128)(expand-context-observer init-ctx_0)))"
+"(if obs_128"
 "(let-values()"
-"(let-values()(call-expand-observe obs_130 'prim-module)))"
+"(let-values()(call-expand-observe obs_128 'prim-module)))"
 "(void)))"
 "(values))))"
-"(let-values(((disarmed-s_24)(syntax-disarm$1 s_483)))"
-"(let-values(((ok?_77 module228_0 id:module-name229_0 initial-require230_0 body231_0)"
-"(let-values(((s_52) disarmed-s_24))"
-"(let-values(((orig-s_82) s_52))"
+"(let-values(((disarmed-s_24)(syntax-disarm$1 s_805)))"
+"(let-values(((ok?_78 module228_0 id:module-name229_0 initial-require230_0 body231_0)"
+"(let-values(((s_51) disarmed-s_24))"
+"(let-values(((orig-s_82) s_51))"
 "(let-values(((module228_1"
 " id:module-name229_1"
 " initial-require230_1"
 " body231_1)"
-"(let-values(((s_91)"
-"(if(syntax?$1 s_52)"
-"(syntax-e$1 s_52)"
-" s_52)))"
-"(if(pair? s_91)"
+"(let-values(((s_506)"
+"(if(syntax?$1 s_51)"
+"(syntax-e$1 s_51)"
+" s_51)))"
+"(if(pair? s_506)"
 "(let-values(((module232_0)"
-"(let-values(((s_93)(car s_91)))"
-" s_93))"
+"(let-values(((s_54)(car s_506)))"
+" s_54))"
 "((id:module-name233_0"
 " initial-require234_0"
 " body235_0)"
-"(let-values(((s_55)(cdr s_91)))"
-"(let-values(((s_322)"
-"(if(syntax?$1 s_55)"
-"(syntax-e$1 s_55)"
-" s_55)))"
-"(if(pair? s_322)"
+"(let-values(((s_310)(cdr s_506)))"
+"(let-values(((s_92)"
+"(if(syntax?$1 s_310)"
+"(syntax-e$1 s_310)"
+" s_310)))"
+"(if(pair? s_92)"
 "(let-values(((id:module-name236_0)"
-"(let-values(((s_816)"
+"(let-values(((s_312)"
 "(car"
-" s_322)))"
-"(if(let-values(((or-part_50)"
+" s_92)))"
+"(if(let-values(((or-part_48)"
 "(if(syntax?$1"
-" s_816)"
+" s_312)"
 "(symbol?"
 "(syntax-e$1"
-" s_816))"
+" s_312))"
 " #f)))"
-"(if or-part_50"
-" or-part_50"
+"(if or-part_48"
+" or-part_48"
 "(symbol?"
-" s_816)))"
-" s_816"
+" s_312)))"
+" s_312"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                           \"not an identifier\""
 " orig-s_82"
-" s_816))))"
+" s_312))))"
 "((initial-require237_0"
 " body238_0)"
-"(let-values(((s_511)"
+"(let-values(((s_55)"
 "(cdr"
-" s_322)))"
-"(let-values(((s_94)"
+" s_92)))"
+"(let-values(((s_452)"
 "(if(syntax?$1"
-" s_511)"
+" s_55)"
 "(syntax-e$1"
-" s_511)"
-" s_511)))"
+" s_55)"
+" s_55)))"
 "(if(pair?"
-" s_94)"
+" s_452)"
 "(let-values(((initial-require239_0)"
-"(let-values(((s_323)"
+"(let-values(((s_56)"
 "(car"
-" s_94)))"
-" s_323))"
+" s_452)))"
+" s_56))"
 "((body240_0)"
-"(let-values(((s_324)"
+"(let-values(((s_33)"
 "(cdr"
-" s_94)))"
-"(let-values(((s_310)"
+" s_452)))"
+"(let-values(((s_508)"
 "(if(syntax?$1"
-" s_324)"
+" s_33)"
 "(syntax-e$1"
-" s_324)"
-" s_324)))"
-"(let-values(((flat-s_53)"
+" s_33)"
+" s_33)))"
+"(let-values(((flat-s_55)"
 "(to-syntax-list.1"
-" s_310)))"
+" s_508)))"
 "(if(not"
-" flat-s_53)"
+" flat-s_55)"
 "(let-values()"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                     \"bad syntax\""
 " orig-s_82))"
 "(let-values()"
-" flat-s_53)))))))"
+" flat-s_55)))))))"
 "(values"
 " initial-require239_0"
 " body240_0))"
@@ -72914,38 +71214,30 @@ static const char *startup_source =
 " body231_1))))))"
 "(let-values(((rebuild-s_14)"
 "(let-values(((init-ctx253_0) init-ctx_0)"
-"((s254_0) s_483)"
+"((s254_0) s_805)"
 "((temp255_0) #t)"
 "((temp256_0) #t))"
-"(keep-as-needed120.1"
-" #f"
-" #f"
-" temp256_0"
-" #t"
-" temp255_0"
-" #t"
-" init-ctx253_0"
-" s254_0))))"
+"(keep-as-needed119.1 #f temp256_0 temp255_0 init-ctx253_0 s254_0))))"
 "(let-values(((initial-require_0)(syntax->datum$1 initial-require230_0)))"
 "(let-values((()"
 "(begin"
-"(if(let-values(((or-part_208) keep-enclosing-scope-at-phase_0))"
-"(if or-part_208"
-" or-part_208"
+"(if(let-values(((or-part_56) keep-enclosing-scope-at-phase_0))"
+"(if or-part_56"
+" or-part_56"
 "(1/module-path? initial-require_0)))"
 "(void)"
 "(let-values()"
 "(raise-syntax-error$1"
 " #f"
 "                                                           \"not a module path\""
-" s_483"
+" s_805"
 " initial-require230_0)))"
 "(values))))"
-"(let-values(((phase_154) 0))"
+"(let-values(((phase_144) 0))"
 "(let-values(((module-name-sym_0)(syntax-e$1 id:module-name229_0)))"
 "(let-values(((outside-scope_1)(new-scope 'module)))"
 "(let-values(((inside-scope_0)(new-multi-scope module-name-sym_0)))"
-"(let-values(((self_14)"
+"(let-values(((self_32)"
 "(make-self-module-path-index"
 "(if enclosing-self_1"
 " module-name-sym_0"
@@ -72954,7 +71246,7 @@ static const char *startup_source =
 " enclosing-self_1)))"
 "(let-values(((enclosing-mod_1)"
 "(if enclosing-self_1"
-"                                                                  (1/module-path-index-join '(submod \"..\") self_14)"
+"                                                                  (1/module-path-index-join '(submod \"..\") self_32)"
 " #f)))"
 "(let-values((()"
 "(begin"
@@ -72975,7 +71267,7 @@ static const char *startup_source =
 " inside-scope_0"
 " init-ctx_0"
 " keep-enclosing-scope-at-phase_0"
-" self_14"
+" self_32"
 " enclosing-self_1"
 " enclosing-mod_1)))"
 "(let-values(((initial-require-s_0)"
@@ -72988,8 +71280,8 @@ static const char *startup_source =
 " keep-enclosing-scope-at-phase_0))"
 " initial-require-s_0)))"
 "(let-values(((root-ctx_6)"
-"(let-values(((self257_0) self_14)"
-"((temp258_0)"
+"(let-values(((self257_0) self_32)"
+"((temp258_1)"
 "(if keep-enclosing-scope-at-phase_0"
 "(root-expand-context-module-scopes"
 " init-ctx_0)"
@@ -73002,38 +71294,34 @@ static const char *startup_source =
 " all-scopes-s_0))"
 "(make-root-expand-context13.1"
 " all-scopes-s261_0"
-" #t"
-" temp258_0"
-" #t"
+" temp258_1"
 " outside-scope259_0"
-" #t"
 " inside-scope260_0"
-" #t"
 " self257_0))))"
 "(let-values(((new-module-scopes_0)"
 "(root-expand-context-module-scopes"
 " root-ctx_6)))"
-"(let-values(((frame-id_1)"
+"(let-values(((frame-id_16)"
 "(root-expand-context-frame-id"
 " root-ctx_6)))"
 "(let-values(((make-m-ns244_0)"
-"(lambda(for-submodule?241_0"
-" for-submodule?242_0"
-" ns243_0)"
+"(lambda(for-submodule?241_0 ns243_0)"
 "(begin"
 " 'make-m-ns244"
 "(let-values(((ns_130) ns243_0))"
 "(let-values(((for-submodule?_1)"
-"(if for-submodule?242_0"
+"(if(eq?"
 " for-submodule?241_0"
+" unsafe-undefined)"
 "(if enclosing-self_1"
 " #t"
-" #f))))"
+" #f)"
+" for-submodule?241_0)))"
 "(let-values()"
 "(let-values(((ns262_0)"
 " ns_130)"
 "((self263_0)"
-" self_14)"
+" self_32)"
 "((root-ctx264_0)"
 " root-ctx_6)"
 "((for-submodule?265_0)"
@@ -73045,214 +71333,213 @@ static const char *startup_source =
 " ns262_0)))))))))"
 "(let-values()"
 "(let-values()"
-"(let-values(((m-ns_18)"
-"(let-values(((temp266_1)"
+"(let-values(((m-ns_19)"
+"(let-values(((temp266_0)"
 "(expand-context-namespace"
 " init-ctx_0)))"
 "(make-m-ns244_0"
-" #f"
-" #f"
-" temp266_1))))"
-"(let-values(((ctx_112)"
-"(let-values(((v_105)"
+" unsafe-undefined"
+" temp266_0))))"
+"(let-values(((ctx_110)"
+"(let-values(((v_262)"
 "(copy-root-expand-context"
 " init-ctx_0"
 " root-ctx_6)))"
-"(let-values(((the-struct_102)"
-" v_105))"
+"(let-values(((the-struct_91)"
+" v_262))"
 "(if(expand-context/outer?"
-" the-struct_102)"
+" the-struct_91)"
 "(let-values(((post-expansion-scope-action267_0)"
 " add-scope)"
 "((inner268_0)"
-"(let-values(((the-struct_103)"
+"(let-values(((the-struct_53)"
 "(root-expand-context/outer-inner"
-" v_105)))"
+" v_262)))"
 "(if(expand-context/inner?"
-" the-struct_103)"
+" the-struct_53)"
 "(let-values(((allow-unbound?269_0)"
 " #f)"
 "((namespace270_0)"
-" m-ns_18)"
+" m-ns_19)"
 "((phase271_0)"
-" phase_154)"
+" phase_144)"
 "((just-once?272_0)"
 " #f))"
 "(expand-context/inner2.1"
 "(root-expand-context/inner-self-mpi"
-" the-struct_103)"
+" the-struct_53)"
 "(root-expand-context/inner-module-scopes"
-" the-struct_103)"
+" the-struct_53)"
 "(root-expand-context/inner-top-level-bind-scope"
-" the-struct_103)"
+" the-struct_53)"
 "(root-expand-context/inner-all-scopes-stx"
-" the-struct_103)"
+" the-struct_53)"
 "(root-expand-context/inner-defined-syms"
-" the-struct_103)"
+" the-struct_53)"
 "(root-expand-context/inner-counter"
-" the-struct_103)"
+" the-struct_53)"
 "(root-expand-context/inner-lift-key"
-" the-struct_103)"
+" the-struct_53)"
 "(expand-context/inner-to-parsed?"
-" the-struct_103)"
+" the-struct_53)"
 " phase271_0"
 " namespace270_0"
 " just-once?272_0"
 "(expand-context/inner-module-begin-k"
-" the-struct_103)"
+" the-struct_53)"
 " allow-unbound?269_0"
 "(expand-context/inner-in-local-expand?"
-" the-struct_103)"
+" the-struct_53)"
 "(expand-context/inner-keep-#%expression?"
-" the-struct_103)"
+" the-struct_53)"
 "(expand-context/inner-stops"
-" the-struct_103)"
+" the-struct_53)"
 "(expand-context/inner-declared-submodule-names"
-" the-struct_103)"
+" the-struct_53)"
 "(expand-context/inner-lifts"
-" the-struct_103)"
+" the-struct_53)"
 "(expand-context/inner-lift-envs"
-" the-struct_103)"
+" the-struct_53)"
 "(expand-context/inner-module-lifts"
-" the-struct_103)"
+" the-struct_53)"
 "(expand-context/inner-require-lifts"
-" the-struct_103)"
+" the-struct_53)"
 "(expand-context/inner-to-module-lifts"
-" the-struct_103)"
+" the-struct_53)"
 "(expand-context/inner-requires+provides"
-" the-struct_103)"
+" the-struct_53)"
 "(expand-context/inner-observer"
-" the-struct_103)"
+" the-struct_53)"
 "(expand-context/inner-for-serializable?"
-" the-struct_103)"
+" the-struct_53)"
 "(expand-context/inner-should-not-encounter-macros?"
-" the-struct_103)))"
+" the-struct_53)))"
 "(raise-argument-error"
 " 'struct-copy"
 "                                                                                                                 \"expand-context/inner?\""
-" the-struct_103)))))"
+" the-struct_53)))))"
 "(expand-context/outer1.1"
 " inner268_0"
 "(root-expand-context/outer-post-expansion-scope"
-" the-struct_102)"
+" the-struct_91)"
 "(root-expand-context/outer-use-site-scopes"
-" the-struct_102)"
+" the-struct_91)"
 "(root-expand-context/outer-frame-id"
-" the-struct_102)"
+" the-struct_91)"
 "(expand-context/outer-context"
-" the-struct_102)"
+" the-struct_91)"
 "(expand-context/outer-env"
-" the-struct_102)"
+" the-struct_91)"
 " post-expansion-scope-action267_0"
 "(expand-context/outer-scopes"
-" the-struct_102)"
+" the-struct_91)"
 "(expand-context/outer-def-ctx-scopes"
-" the-struct_102)"
+" the-struct_91)"
 "(expand-context/outer-binding-layer"
-" the-struct_102)"
+" the-struct_91)"
 "(expand-context/outer-reference-records"
-" the-struct_102)"
+" the-struct_91)"
 "(expand-context/outer-only-immediate?"
-" the-struct_102)"
+" the-struct_91)"
 "(expand-context/outer-need-eventually-defined"
-" the-struct_102)"
+" the-struct_91)"
 "(expand-context/outer-current-introduction-scopes"
-" the-struct_102)"
+" the-struct_91)"
 "(expand-context/outer-name"
-" the-struct_102)))"
+" the-struct_91)))"
 "(raise-argument-error"
 " 'struct-copy"
 "                                                                                               \"expand-context/outer?\""
-" the-struct_102))))))"
-"(let-values(((bodys_4)"
+" the-struct_91))))))"
+"(let-values(((bodys_15)"
 "(let-values(((scoped-s_0)"
 "(apply-module-scopes_0"
 " disarmed-s_24)))"
-"(let-values(((ok?_78"
+"(let-values(((ok?_79"
 " _273_0"
 " _274_0"
 " _275_0"
 " body276_0)"
-"(let-values(((s_817)"
+"(let-values(((s_523)"
 " scoped-s_0))"
 "(let-values(((orig-s_83)"
-" s_817))"
+" s_523))"
 "(let-values(((_273_1"
 " _274_1"
 " _275_1"
 " body276_1)"
-"(let-values(((s_95)"
+"(let-values(((s_209)"
 "(if(syntax?$1"
-" s_817)"
+" s_523)"
 "(syntax-e$1"
-" s_817)"
-" s_817)))"
+" s_523)"
+" s_523)))"
 "(if(pair?"
-" s_95)"
+" s_209)"
 "(let-values(((_277_2)"
-"(let-values(((s_70)"
+"(let-values(((s_526)"
 "(car"
-" s_95)))"
-" s_70))"
-"((_278_2"
-" _279_0"
+" s_209)))"
+" s_526))"
+"((_278_0"
+" _279_1"
 " body280_0)"
-"(let-values(((s_215)"
+"(let-values(((s_527)"
 "(cdr"
-" s_95)))"
-"(let-values(((s_466)"
-"(if(syntax?$1"
-" s_215)"
-"(syntax-e$1"
-" s_215)"
-" s_215)))"
-"(if(pair?"
-" s_466)"
-"(let-values(((_281_1)"
+" s_209)))"
 "(let-values(((s_96)"
+"(if(syntax?$1"
+" s_527)"
+"(syntax-e$1"
+" s_527)"
+" s_527)))"
+"(if(pair?"
+" s_96)"
+"(let-values(((_281_0)"
+"(let-values(((s_459)"
 "(car"
-" s_466)))"
-" s_96))"
-"((_282_0"
+" s_96)))"
+" s_459))"
+"((_282_1"
 " body283_0)"
+"(let-values(((s_71)"
+"(cdr"
+" s_96)))"
+"(let-values(((s_806)"
+"(if(syntax?$1"
+" s_71)"
+"(syntax-e$1"
+" s_71)"
+" s_71)))"
+"(if(pair?"
+" s_806)"
+"(let-values(((_284_0)"
+"(let-values(((s_159)"
+"(car"
+" s_806)))"
+" s_159))"
+"((body285_0)"
 "(let-values(((s_39)"
 "(cdr"
-" s_466)))"
-"(let-values(((s_159)"
+" s_806)))"
+"(let-values(((s_97)"
 "(if(syntax?$1"
 " s_39)"
 "(syntax-e$1"
 " s_39)"
 " s_39)))"
-"(if(pair?"
-" s_159)"
-"(let-values(((_284_0)"
-"(let-values(((s_467)"
-"(car"
-" s_159)))"
-" s_467))"
-"((body285_0)"
-"(let-values(((s_468)"
-"(cdr"
-" s_159)))"
-"(let-values(((s_331)"
-"(if(syntax?$1"
-" s_468)"
-"(syntax-e$1"
-" s_468)"
-" s_468)))"
-"(let-values(((flat-s_54)"
+"(let-values(((flat-s_56)"
 "(to-syntax-list.1"
-" s_331)))"
+" s_97)))"
 "(if(not"
-" flat-s_54)"
+" flat-s_56)"
 "(let-values()"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                                 \"bad syntax\""
 " orig-s_83))"
 "(let-values()"
-" flat-s_54)))))))"
+" flat-s_56)))))))"
 "(values"
 " _284_0"
 " body285_0))"
@@ -73261,8 +71548,8 @@ static const char *startup_source =
 "                                                                                                                                                                         \"bad syntax\""
 " orig-s_83))))))"
 "(values"
-" _281_1"
-" _282_0"
+" _281_0"
+" _282_1"
 " body283_0))"
 "(raise-syntax-error$1"
 " #f"
@@ -73270,8 +71557,8 @@ static const char *startup_source =
 " orig-s_83))))))"
 "(values"
 " _277_2"
-" _278_2"
-" _279_0"
+" _278_0"
+" _279_1"
 " body280_0))"
 "(raise-syntax-error$1"
 " #f"
@@ -73286,10 +71573,9 @@ static const char *startup_source =
 " body276_0))))"
 "(let-values(((requires+provides_6)"
 "(let-values(((self286_0)"
-" self_14))"
+" self_32))"
 "(make-requires+provides8.1"
 " #f"
-" #f"
 " self286_0))))"
 "(let-values(((defined-syms_11)"
 "(root-expand-context-defined-syms"
@@ -73313,11 +71599,11 @@ static const char *startup_source =
 "(let-values(((initial-require287_0)"
 " initial-require_0)"
 "((self288_0)"
-" self_14)"
+" self_32)"
 "((all-scopes-s289_0)"
 " all-scopes-s_0)"
 "((m-ns290_0)"
-" m-ns_18)"
+" m-ns_19)"
 "((requires+provides291_0)"
 " requires+provides_6)"
 "((bind?292_0)"
@@ -73353,14 +71639,13 @@ static const char *startup_source =
 " enclosing-mod296_0"
 " keep-enclosing-scope-at-phase297_0))"
 "(let-values(((m-ns298_0)"
-" m-ns_18)"
+" m-ns_19)"
 "((enclosing-mod299_0)"
 " enclosing-mod_1)"
 "((keep-enclosing-scope-at-phase300_0)"
 " keep-enclosing-scope-at-phase_0))"
 "(namespace-module-visit!104.1"
-" #f"
-" #f"
+" unsafe-undefined"
 " m-ns298_0"
 " enclosing-mod299_0"
 " keep-enclosing-scope-at-phase300_0)))))))))))"
@@ -73368,14 +71653,14 @@ static const char *startup_source =
 "(let-values()"
 "(let-values((()"
 "(begin"
-"(let-values(((obs_131)"
+"(let-values(((obs_129)"
 "(expand-context-observer"
 " init-ctx_0)))"
-"(if obs_131"
+"(if obs_129"
 "(let-values()"
 "(let-values()"
 "(call-expand-observe"
-" obs_131"
+" obs_129"
 " 'prepare-env)))"
 "(void)))"
 "(values))))"
@@ -73416,32 +71701,31 @@ static const char *startup_source =
 "(set! again?_0"
 " #t)"
 "(values))))"
-"(let-values(((ctx_113)"
-"(let-values(((v_271)"
+"(let-values(((ctx_111)"
+"(let-values(((v_132)"
 " mb-init-ctx_0))"
-"(let-values(((the-struct_104)"
-" v_271))"
+"(let-values(((the-struct_43)"
+" v_132))"
 "(if(expand-context/outer?"
-" the-struct_104)"
+" the-struct_43)"
 "(let-values(((inner306_0)"
-"(let-values(((the-struct_19)"
+"(let-values(((the-struct_102)"
 "(root-expand-context/outer-inner"
-" v_271)))"
+" v_132)))"
 "(if(expand-context/inner?"
-" the-struct_19)"
+" the-struct_102)"
 "(let-values(((module-begin-k307_0)"
-"(lambda(s_793"
-" ctx_114)"
+"(lambda(s_436"
+" ctx_112)"
 "(begin"
 " 'module-begin-k307"
 "(let-values(((new-requires+provides_0)"
 "(let-values(((self314_0)"
-" self_14)"
+" self_32)"
 "((requires+provides315_0)"
 " requires+provides_6))"
 "(make-requires+provides8.1"
 " requires+provides315_0"
-" #t"
 " self314_0))))"
 "(let-values(((requires+provides308_0)"
 " requires+provides_6)"
@@ -73467,8 +71751,8 @@ static const char *startup_source =
 " compiled-module-box313_0)))"
 "(lambda()"
 "(module-begin-k_1"
-" s_793"
-" ctx_114))"
+" s_436"
+" ctx_112))"
 "(lambda()"
 "(begin"
 "(set! requires+provides_6"
@@ -73479,108 +71763,108 @@ static const char *startup_source =
 " compiled-module-box310_0))))))))))"
 "(expand-context/inner2.1"
 "(root-expand-context/inner-self-mpi"
-" the-struct_19)"
+" the-struct_102)"
 "(root-expand-context/inner-module-scopes"
-" the-struct_19)"
+" the-struct_102)"
 "(root-expand-context/inner-top-level-bind-scope"
-" the-struct_19)"
+" the-struct_102)"
 "(root-expand-context/inner-all-scopes-stx"
-" the-struct_19)"
+" the-struct_102)"
 "(root-expand-context/inner-defined-syms"
-" the-struct_19)"
+" the-struct_102)"
 "(root-expand-context/inner-counter"
-" the-struct_19)"
+" the-struct_102)"
 "(root-expand-context/inner-lift-key"
-" the-struct_19)"
+" the-struct_102)"
 "(expand-context/inner-to-parsed?"
-" the-struct_19)"
+" the-struct_102)"
 "(expand-context/inner-phase"
-" the-struct_19)"
+" the-struct_102)"
 "(expand-context/inner-namespace"
-" the-struct_19)"
+" the-struct_102)"
 "(expand-context/inner-just-once?"
-" the-struct_19)"
+" the-struct_102)"
 " module-begin-k307_0"
 "(expand-context/inner-allow-unbound?"
-" the-struct_19)"
+" the-struct_102)"
 "(expand-context/inner-in-local-expand?"
-" the-struct_19)"
+" the-struct_102)"
 "(expand-context/inner-keep-#%expression?"
-" the-struct_19)"
+" the-struct_102)"
 "(expand-context/inner-stops"
-" the-struct_19)"
+" the-struct_102)"
 "(expand-context/inner-declared-submodule-names"
-" the-struct_19)"
+" the-struct_102)"
 "(expand-context/inner-lifts"
-" the-struct_19)"
+" the-struct_102)"
 "(expand-context/inner-lift-envs"
-" the-struct_19)"
+" the-struct_102)"
 "(expand-context/inner-module-lifts"
-" the-struct_19)"
+" the-struct_102)"
 "(expand-context/inner-require-lifts"
-" the-struct_19)"
+" the-struct_102)"
 "(expand-context/inner-to-module-lifts"
-" the-struct_19)"
+" the-struct_102)"
 "(expand-context/inner-requires+provides"
-" the-struct_19)"
+" the-struct_102)"
 "(expand-context/inner-observer"
-" the-struct_19)"
+" the-struct_102)"
 "(expand-context/inner-for-serializable?"
-" the-struct_19)"
+" the-struct_102)"
 "(expand-context/inner-should-not-encounter-macros?"
-" the-struct_19)))"
+" the-struct_102)))"
 "(raise-argument-error"
 " 'struct-copy"
 "                                                                                                                                                                    \"expand-context/inner?\""
-" the-struct_19)))))"
+" the-struct_102)))))"
 "(expand-context/outer1.1"
 " inner306_0"
 "(root-expand-context/outer-post-expansion-scope"
-" the-struct_104)"
+" the-struct_43)"
 "(root-expand-context/outer-use-site-scopes"
-" the-struct_104)"
+" the-struct_43)"
 "(root-expand-context/outer-frame-id"
-" the-struct_104)"
+" the-struct_43)"
 "(expand-context/outer-context"
-" the-struct_104)"
+" the-struct_43)"
 "(expand-context/outer-env"
-" the-struct_104)"
+" the-struct_43)"
 "(expand-context/outer-post-expansion-scope-action"
-" the-struct_104)"
+" the-struct_43)"
 "(expand-context/outer-scopes"
-" the-struct_104)"
+" the-struct_43)"
 "(expand-context/outer-def-ctx-scopes"
-" the-struct_104)"
+" the-struct_43)"
 "(expand-context/outer-binding-layer"
-" the-struct_104)"
+" the-struct_43)"
 "(expand-context/outer-reference-records"
-" the-struct_104)"
+" the-struct_43)"
 "(expand-context/outer-only-immediate?"
-" the-struct_104)"
+" the-struct_43)"
 "(expand-context/outer-need-eventually-defined"
-" the-struct_104)"
+" the-struct_43)"
 "(expand-context/outer-current-introduction-scopes"
-" the-struct_104)"
+" the-struct_43)"
 "(expand-context/outer-name"
-" the-struct_104)))"
+" the-struct_43)))"
 "(raise-argument-error"
 " 'struct-copy"
 "                                                                                                                                                  \"expand-context/outer?\""
-" the-struct_104))))))"
+" the-struct_43))))))"
 "(let-values(((added-s_2)"
 "(add-scope"
 " mb-s_0"
 " inside-scope_0)))"
 "(let-values((()"
 "(begin"
-"(let-values(((obs_21)"
+"(let-values(((obs_130)"
 "(expand-context-observer"
-" ctx_113)))"
-"(if obs_21"
+" ctx_111)))"
+"(if obs_130"
 "(let-values()"
 "(let-values()"
 "(call-expand-observe"
-" obs_21"
+" obs_130"
 " 'rename-one"
 " added-s_2)))"
 "(void)))"
@@ -73588,50 +71872,50 @@ static const char *startup_source =
 "(let-values(((disarmed-mb-s_0)"
 "(syntax-disarm$1"
 " added-s_2)))"
-"(let-values(((ok?_79"
+"(let-values(((ok?_80"
 " #%module-begin301_0"
 " body302_0)"
-"(let-values(((s_818)"
+"(let-values(((s_437)"
 " disarmed-mb-s_0))"
 "(let-values(((orig-s_84)"
-" s_818))"
+" s_437))"
 "(let-values(((#%module-begin301_1"
 " body302_1)"
-"(let-values(((s_470)"
+"(let-values(((s_116)"
 "(if(syntax?$1"
-" s_818)"
+" s_437)"
 "(syntax-e$1"
-" s_818)"
-" s_818)))"
+" s_437)"
+" s_437)))"
 "(if(pair?"
-" s_470)"
+" s_116)"
 "(let-values(((#%module-begin303_0)"
-"(let-values(((s_226)"
+"(let-values(((s_225)"
 "(car"
-" s_470)))"
-" s_226))"
+" s_116)))"
+" s_225))"
 "((body304_0)"
-"(let-values(((s_227)"
+"(let-values(((s_119)"
 "(cdr"
-" s_470)))"
-"(let-values(((s_228)"
+" s_116)))"
+"(let-values(((s_807)"
 "(if(syntax?$1"
-" s_227)"
+" s_119)"
 "(syntax-e$1"
-" s_227)"
-" s_227)))"
-"(let-values(((flat-s_55)"
+" s_119)"
+" s_119)))"
+"(let-values(((flat-s_57)"
 "(to-syntax-list.1"
-" s_228)))"
+" s_807)))"
 "(if(not"
-" flat-s_55)"
+" flat-s_57)"
 "(let-values()"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                                  \"bad syntax\""
 " orig-s_84))"
 "(let-values()"
-" flat-s_55)))))))"
+" flat-s_57)))))))"
 "(values"
 " #%module-begin303_0"
 " body304_0))"
@@ -73643,17 +71927,14 @@ static const char *startup_source =
 " #t"
 " #%module-begin301_1"
 " body302_1))))))"
-"(let-values(((bodys_15)"
+"(let-values(((bodys_16)"
 " body302_0))"
 "(let-values(((rebuild-mb-s_0)"
 "(let-values(((ctx316_0)"
-" ctx_113)"
+" ctx_111)"
 "((mb-s317_0)"
 " mb-s_0))"
-"(keep-as-needed120.1"
-" #f"
-" #f"
-" #f"
+"(keep-as-needed119.1"
 " #f"
 " #f"
 " #f"
@@ -73669,8 +71950,8 @@ static const char *startup_source =
 "(make-hasheq)))"
 "(let-values(((expression-expanded-bodys_0)"
 "((letrec-values(((pass-1-and-2-loop_0)"
-"(lambda(bodys_16"
-" phase_155)"
+"(lambda(bodys_17"
+" phase_145)"
 "(begin"
 " 'pass-1-and-2-loop"
 "(let-values(((def-ctx-scopes_8)"
@@ -73678,14 +71959,14 @@ static const char *startup_source =
 " null)))"
 "(let-values(((to-parsed?_5)"
 "(expand-context-to-parsed?"
-" ctx_113)))"
+" ctx_111)))"
 "(let-values(((partial-body-ctx_0)"
-"(let-values(((v_149)"
-" ctx_113))"
-"(let-values(((the-struct_105)"
-" v_149))"
+"(let-values(((v_270)"
+" ctx_111))"
+"(let-values(((the-struct_103)"
+" v_270))"
 "(if(expand-context/outer?"
-" the-struct_105)"
+" the-struct_103)"
 "(let-values(((context326_0)"
 " 'module)"
 "((def-ctx-scopes327_0)"
@@ -73693,50 +71974,49 @@ static const char *startup_source =
 "((need-eventually-defined328_0)"
 " need-eventually-defined_1)"
 "((inner329_0)"
-"(let-values(((the-struct_106)"
+"(let-values(((the-struct_104)"
 "(root-expand-context/outer-inner"
-" v_149)))"
+" v_270)))"
 "(if(expand-context/inner?"
-" the-struct_106)"
+" the-struct_104)"
 "(let-values(((phase330_0)"
-" phase_155)"
+" phase_145)"
 "((namespace331_0)"
 "(namespace->namespace-at-phase"
-" m-ns_18"
-" phase_155))"
+" m-ns_19"
+" phase_145))"
 "((stops332_0)"
 "(free-id-set"
-" phase_155"
+" phase_145"
 "(module-expand-stop-ids"
-" phase_155)))"
+" phase_145)))"
 "((declared-submodule-names333_0)"
 " declared-submodule-names_3)"
 "((lift-key334_0)"
 "(generate-lift-key))"
 "((lifts335_0)"
-"(let-values(((temp339_1)"
+"(let-values(((temp339_0)"
 "(make-wrap-as-definition"
-" self_14"
-" frame-id_1"
+" self_32"
+" frame-id_16"
 " inside-scope_0"
 " all-scopes-s_0"
 " defined-syms_11"
 " requires+provides_6)))"
 "(make-lift-context6.1"
 " #f"
-" #f"
-" temp339_1)))"
+" temp339_0)))"
 "((module-lifts336_0)"
 "(make-module-lift-context"
-" phase_155"
+" phase_145"
 " #t))"
 "((require-lifts337_0)"
 "(make-require-lift-context"
-" phase_155"
+" phase_145"
 "(let-values(((m-ns340_0)"
-" m-ns_18)"
+" m-ns_19)"
 "((self341_0)"
-" self_14)"
+" self_32)"
 "((requires+provides342_0)"
 " requires+provides_6)"
 "((declared-submodule-names343_0)"
@@ -73748,107 +72028,107 @@ static const char *startup_source =
 " requires+provides342_0))))"
 "((to-module-lifts338_0)"
 "(let-values(((phase344_0)"
-" phase_155)"
+" phase_145)"
 "((module-ends345_0)"
 " module-ends_0)"
-"((temp346_1)"
+"((temp346_0)"
 " #f))"
 "(make-to-module-lift-context27.1"
-" temp346_1"
+" temp346_0"
 " module-ends345_0"
 " phase344_0))))"
 "(expand-context/inner2.1"
 "(root-expand-context/inner-self-mpi"
-" the-struct_106)"
+" the-struct_104)"
 "(root-expand-context/inner-module-scopes"
-" the-struct_106)"
+" the-struct_104)"
 "(root-expand-context/inner-top-level-bind-scope"
-" the-struct_106)"
+" the-struct_104)"
 "(root-expand-context/inner-all-scopes-stx"
-" the-struct_106)"
+" the-struct_104)"
 "(root-expand-context/inner-defined-syms"
-" the-struct_106)"
+" the-struct_104)"
 "(root-expand-context/inner-counter"
-" the-struct_106)"
+" the-struct_104)"
 " lift-key334_0"
 "(expand-context/inner-to-parsed?"
-" the-struct_106)"
+" the-struct_104)"
 " phase330_0"
 " namespace331_0"
 "(expand-context/inner-just-once?"
-" the-struct_106)"
+" the-struct_104)"
 "(expand-context/inner-module-begin-k"
-" the-struct_106)"
+" the-struct_104)"
 "(expand-context/inner-allow-unbound?"
-" the-struct_106)"
+" the-struct_104)"
 "(expand-context/inner-in-local-expand?"
-" the-struct_106)"
+" the-struct_104)"
 "(expand-context/inner-keep-#%expression?"
-" the-struct_106)"
+" the-struct_104)"
 " stops332_0"
 " declared-submodule-names333_0"
 " lifts335_0"
 "(expand-context/inner-lift-envs"
-" the-struct_106)"
+" the-struct_104)"
 " module-lifts336_0"
 " require-lifts337_0"
 " to-module-lifts338_0"
 "(expand-context/inner-requires+provides"
-" the-struct_106)"
+" the-struct_104)"
 "(expand-context/inner-observer"
-" the-struct_106)"
+" the-struct_104)"
 "(expand-context/inner-for-serializable?"
-" the-struct_106)"
+" the-struct_104)"
 "(expand-context/inner-should-not-encounter-macros?"
-" the-struct_106)))"
+" the-struct_104)))"
 "(raise-argument-error"
 " 'struct-copy"
 "                                                                                                                                                                                                                                  \"expand-context/inner?\""
-" the-struct_106)))))"
+" the-struct_104)))))"
 "(expand-context/outer1.1"
 " inner329_0"
 "(root-expand-context/outer-post-expansion-scope"
-" the-struct_105)"
+" the-struct_103)"
 "(root-expand-context/outer-use-site-scopes"
-" the-struct_105)"
+" the-struct_103)"
 "(root-expand-context/outer-frame-id"
-" the-struct_105)"
+" the-struct_103)"
 " context326_0"
 "(expand-context/outer-env"
-" the-struct_105)"
+" the-struct_103)"
 "(expand-context/outer-post-expansion-scope-action"
-" the-struct_105)"
+" the-struct_103)"
 "(expand-context/outer-scopes"
-" the-struct_105)"
+" the-struct_103)"
 " def-ctx-scopes327_0"
 "(expand-context/outer-binding-layer"
-" the-struct_105)"
+" the-struct_103)"
 "(expand-context/outer-reference-records"
-" the-struct_105)"
+" the-struct_103)"
 "(expand-context/outer-only-immediate?"
-" the-struct_105)"
+" the-struct_103)"
 " need-eventually-defined328_0"
 "(expand-context/outer-current-introduction-scopes"
-" the-struct_105)"
+" the-struct_103)"
 "(expand-context/outer-name"
-" the-struct_105)))"
+" the-struct_103)))"
 "(raise-argument-error"
 " 'struct-copy"
 "                                                                                                                                                                                                                \"expand-context/outer?\""
-" the-struct_105))))))"
+" the-struct_103))))))"
 "(let-values(((partially-expanded-bodys_0)"
 "(let-values(((bodys347_0)"
-" bodys_16)"
+" bodys_17)"
 "((phase348_0)"
-" phase_155)"
+" phase_145)"
 "((partial-body-ctx349_0)"
 " partial-body-ctx_0)"
 "((m-ns350_0)"
-" m-ns_18)"
+" m-ns_19)"
 "((self351_0)"
-" self_14)"
+" self_32)"
 "((frame-id352_0)"
-" frame-id_1)"
+" frame-id_16)"
 "((requires+provides353_0)"
 " requires+provides_6)"
 "((need-eventually-defined354_0)"
@@ -73888,144 +72168,144 @@ static const char *startup_source =
 " bodys347_0))))"
 "(let-values((()"
 "(begin"
-"(let-values(((obs_132)"
+"(let-values(((obs_131)"
 "(expand-context-observer"
 " partial-body-ctx_0)))"
-"(if obs_132"
+"(if obs_131"
 "(let-values()"
 "(let-values()"
 "(call-expand-observe"
-" obs_132"
+" obs_131"
 " 'next-group)))"
 "(void)))"
 "(values))))"
 "(let-values(((body-ctx_6)"
-"(let-values(((v_272)"
+"(let-values(((v_271)"
 "(accumulate-def-ctx-scopes"
 " partial-body-ctx_0"
 " def-ctx-scopes_8)))"
-"(let-values(((the-struct_107)"
-" v_272))"
+"(let-values(((the-struct_105)"
+" v_271))"
 "(if(expand-context/outer?"
-" the-struct_107)"
+" the-struct_105)"
 "(let-values(((def-ctx-scopes363_0)"
 " #f)"
 "((post-expansion-scope364_0)"
 " #f)"
 "((inner365_0)"
-"(let-values(((the-struct_108)"
+"(let-values(((the-struct_106)"
 "(root-expand-context/outer-inner"
-" v_272)))"
+" v_271)))"
 "(if(expand-context/inner?"
-" the-struct_108)"
+" the-struct_106)"
 "(let-values(((stops366_0)"
 " empty-free-id-set)"
 "((to-module-lifts367_0)"
 "(let-values(((phase368_0)"
-" phase_155)"
+" phase_145)"
 "((module-ends369_0)"
 " module-ends_0)"
-"((temp370_0)"
+"((temp370_1)"
 " #t))"
 "(make-to-module-lift-context27.1"
-" temp370_0"
+" temp370_1"
 " module-ends369_0"
 " phase368_0))))"
 "(expand-context/inner2.1"
 "(root-expand-context/inner-self-mpi"
-" the-struct_108)"
+" the-struct_106)"
 "(root-expand-context/inner-module-scopes"
-" the-struct_108)"
+" the-struct_106)"
 "(root-expand-context/inner-top-level-bind-scope"
-" the-struct_108)"
+" the-struct_106)"
 "(root-expand-context/inner-all-scopes-stx"
-" the-struct_108)"
+" the-struct_106)"
 "(root-expand-context/inner-defined-syms"
-" the-struct_108)"
+" the-struct_106)"
 "(root-expand-context/inner-counter"
-" the-struct_108)"
+" the-struct_106)"
 "(root-expand-context/inner-lift-key"
-" the-struct_108)"
+" the-struct_106)"
 "(expand-context/inner-to-parsed?"
-" the-struct_108)"
+" the-struct_106)"
 "(expand-context/inner-phase"
-" the-struct_108)"
+" the-struct_106)"
 "(expand-context/inner-namespace"
-" the-struct_108)"
+" the-struct_106)"
 "(expand-context/inner-just-once?"
-" the-struct_108)"
+" the-struct_106)"
 "(expand-context/inner-module-begin-k"
-" the-struct_108)"
+" the-struct_106)"
 "(expand-context/inner-allow-unbound?"
-" the-struct_108)"
+" the-struct_106)"
 "(expand-context/inner-in-local-expand?"
-" the-struct_108)"
+" the-struct_106)"
 "(expand-context/inner-keep-#%expression?"
-" the-struct_108)"
+" the-struct_106)"
 " stops366_0"
 "(expand-context/inner-declared-submodule-names"
-" the-struct_108)"
+" the-struct_106)"
 "(expand-context/inner-lifts"
-" the-struct_108)"
+" the-struct_106)"
 "(expand-context/inner-lift-envs"
-" the-struct_108)"
+" the-struct_106)"
 "(expand-context/inner-module-lifts"
-" the-struct_108)"
+" the-struct_106)"
 "(expand-context/inner-require-lifts"
-" the-struct_108)"
+" the-struct_106)"
 " to-module-lifts367_0"
 "(expand-context/inner-requires+provides"
-" the-struct_108)"
+" the-struct_106)"
 "(expand-context/inner-observer"
-" the-struct_108)"
+" the-struct_106)"
 "(expand-context/inner-for-serializable?"
-" the-struct_108)"
+" the-struct_106)"
 "(expand-context/inner-should-not-encounter-macros?"
-" the-struct_108)))"
+" the-struct_106)))"
 "(raise-argument-error"
 " 'struct-copy"
 "                                                                                                                                                                                                                                        \"expand-context/inner?\""
-" the-struct_108)))))"
+" the-struct_106)))))"
 "(expand-context/outer1.1"
 " inner365_0"
 " post-expansion-scope364_0"
 "(root-expand-context/outer-use-site-scopes"
-" the-struct_107)"
+" the-struct_105)"
 "(root-expand-context/outer-frame-id"
-" the-struct_107)"
+" the-struct_105)"
 "(expand-context/outer-context"
-" the-struct_107)"
+" the-struct_105)"
 "(expand-context/outer-env"
-" the-struct_107)"
+" the-struct_105)"
 "(expand-context/outer-post-expansion-scope-action"
-" the-struct_107)"
+" the-struct_105)"
 "(expand-context/outer-scopes"
-" the-struct_107)"
+" the-struct_105)"
 " def-ctx-scopes363_0"
 "(expand-context/outer-binding-layer"
-" the-struct_107)"
+" the-struct_105)"
 "(expand-context/outer-reference-records"
-" the-struct_107)"
+" the-struct_105)"
 "(expand-context/outer-only-immediate?"
-" the-struct_107)"
+" the-struct_105)"
 "(expand-context/outer-need-eventually-defined"
-" the-struct_107)"
+" the-struct_105)"
 "(expand-context/outer-current-introduction-scopes"
-" the-struct_107)"
+" the-struct_105)"
 "(expand-context/outer-name"
-" the-struct_107)))"
+" the-struct_105)))"
 "(raise-argument-error"
 " 'struct-copy"
 "                                                                                                                                                                                                                      \"expand-context/outer?\""
-" the-struct_107))))))"
+" the-struct_105))))))"
 "(let-values(((partially-expanded-bodys318_0)"
 " partially-expanded-bodys_0)"
 "((phase319_0)"
-" phase_155)"
+" phase_145)"
 "((body-ctx320_0)"
 " body-ctx_6)"
 "((self321_0)"
-" self_14)"
+" self_32)"
 "((declared-submodule-names322_0)"
 " declared-submodule-names_3)"
 "((compiled-submodules323_0)"
@@ -74044,26 +72324,26 @@ static const char *startup_source =
 " self321_0"
 " partially-expanded-bodys318_0))))))))))))"
 " pass-1-and-2-loop_0)"
-" bodys_15"
-" phase_154)))"
+" bodys_16"
+" phase_144)))"
 "(let-values((()"
 "(begin"
 "(check-defined-by-now"
 " need-eventually-defined_1"
-" self_14"
-" ctx_113"
+" self_32"
+" ctx_111"
 " requires+provides_6)"
 "(values))))"
 "(let-values((()"
 "(begin"
-"(let-values(((obs_78)"
+"(let-values(((obs_132)"
 "(expand-context-observer"
-" ctx_113)))"
-"(if obs_78"
+" ctx_111)))"
+"(if obs_132"
 "(let-values()"
 "(let-values()"
 "(call-expand-observe"
-" obs_78"
+" obs_132"
 " 'next-group)))"
 "(void)))"
 "(values))))"
@@ -74075,13 +72355,13 @@ static const char *startup_source =
 "((declared-submodule-names373_0)"
 " declared-submodule-names_3)"
 "((m-ns374_0)"
-" m-ns_18)"
+" m-ns_19)"
 "((phase375_0)"
-" phase_154)"
+" phase_144)"
 "((self376_0)"
-" self_14)"
+" self_32)"
 "((ctx377_0)"
-" ctx_113))"
+" ctx_111))"
 "(resolve-provides115.1"
 " ctx377_0"
 " declared-submodule-names373_0"
@@ -74113,14 +72393,14 @@ static const char *startup_source =
 " '#:cross-phase-persistent))))"
 "(check-cross-phase-persistent-form"
 " fully-expanded-bodys-except-post-submodules_0"
-" self_14)))"
+" self_32)))"
 "(void))"
 "(values))))"
 "(let-values((()"
 "(begin"
 "(let-values(((obs_133)"
 "(expand-context-observer"
-" ctx_113)))"
+" ctx_111)))"
 "(if obs_133"
 "(let-values()"
 "(let-values()"
@@ -74131,120 +72411,119 @@ static const char *startup_source =
 "(values))))"
 "(let-values(((submod-m-ns_0)"
 "(let-values(((m-ns378_0)"
-" m-ns_18)"
+" m-ns_19)"
 "((temp379_0)"
 " #t))"
 "(make-m-ns244_0"
 " temp379_0"
-" #t"
 " m-ns378_0))))"
 "(let-values(((submod-ctx_0)"
-"(let-values(((v_273)"
-" ctx_113))"
-"(let-values(((the-struct_109)"
-" v_273))"
+"(let-values(((v_272)"
+" ctx_111))"
+"(let-values(((the-struct_107)"
+" v_272))"
 "(if(expand-context/outer?"
-" the-struct_109)"
+" the-struct_107)"
 "(let-values(((frame-id380_0)"
 " #f)"
 "((post-expansion-scope381_0)"
 " #f)"
 "((inner382_0)"
-"(let-values(((the-struct_110)"
+"(let-values(((the-struct_75)"
 "(root-expand-context/outer-inner"
-" v_273)))"
+" v_272)))"
 "(if(expand-context/inner?"
-" the-struct_110)"
+" the-struct_75)"
 "(let-values(((namespace383_0)"
 " submod-m-ns_0))"
 "(expand-context/inner2.1"
 "(root-expand-context/inner-self-mpi"
-" the-struct_110)"
+" the-struct_75)"
 "(root-expand-context/inner-module-scopes"
-" the-struct_110)"
+" the-struct_75)"
 "(root-expand-context/inner-top-level-bind-scope"
-" the-struct_110)"
+" the-struct_75)"
 "(root-expand-context/inner-all-scopes-stx"
-" the-struct_110)"
+" the-struct_75)"
 "(root-expand-context/inner-defined-syms"
-" the-struct_110)"
+" the-struct_75)"
 "(root-expand-context/inner-counter"
-" the-struct_110)"
+" the-struct_75)"
 "(root-expand-context/inner-lift-key"
-" the-struct_110)"
+" the-struct_75)"
 "(expand-context/inner-to-parsed?"
-" the-struct_110)"
+" the-struct_75)"
 "(expand-context/inner-phase"
-" the-struct_110)"
+" the-struct_75)"
 " namespace383_0"
 "(expand-context/inner-just-once?"
-" the-struct_110)"
+" the-struct_75)"
 "(expand-context/inner-module-begin-k"
-" the-struct_110)"
+" the-struct_75)"
 "(expand-context/inner-allow-unbound?"
-" the-struct_110)"
+" the-struct_75)"
 "(expand-context/inner-in-local-expand?"
-" the-struct_110)"
+" the-struct_75)"
 "(expand-context/inner-keep-#%expression?"
-" the-struct_110)"
+" the-struct_75)"
 "(expand-context/inner-stops"
-" the-struct_110)"
+" the-struct_75)"
 "(expand-context/inner-declared-submodule-names"
-" the-struct_110)"
+" the-struct_75)"
 "(expand-context/inner-lifts"
-" the-struct_110)"
+" the-struct_75)"
 "(expand-context/inner-lift-envs"
-" the-struct_110)"
+" the-struct_75)"
 "(expand-context/inner-module-lifts"
-" the-struct_110)"
+" the-struct_75)"
 "(expand-context/inner-require-lifts"
-" the-struct_110)"
+" the-struct_75)"
 "(expand-context/inner-to-module-lifts"
-" the-struct_110)"
+" the-struct_75)"
 "(expand-context/inner-requires+provides"
-" the-struct_110)"
+" the-struct_75)"
 "(expand-context/inner-observer"
-" the-struct_110)"
+" the-struct_75)"
 "(expand-context/inner-for-serializable?"
-" the-struct_110)"
+" the-struct_75)"
 "(expand-context/inner-should-not-encounter-macros?"
-" the-struct_110)))"
+" the-struct_75)))"
 "(raise-argument-error"
 " 'struct-copy"
 "                                                                                                                                                                                                          \"expand-context/inner?\""
-" the-struct_110)))))"
+" the-struct_75)))))"
 "(expand-context/outer1.1"
 " inner382_0"
 " post-expansion-scope381_0"
 "(root-expand-context/outer-use-site-scopes"
-" the-struct_109)"
+" the-struct_107)"
 " frame-id380_0"
 "(expand-context/outer-context"
-" the-struct_109)"
+" the-struct_107)"
 "(expand-context/outer-env"
-" the-struct_109)"
+" the-struct_107)"
 "(expand-context/outer-post-expansion-scope-action"
-" the-struct_109)"
+" the-struct_107)"
 "(expand-context/outer-scopes"
-" the-struct_109)"
+" the-struct_107)"
 "(expand-context/outer-def-ctx-scopes"
-" the-struct_109)"
+" the-struct_107)"
 "(expand-context/outer-binding-layer"
-" the-struct_109)"
+" the-struct_107)"
 "(expand-context/outer-reference-records"
-" the-struct_109)"
+" the-struct_107)"
 "(expand-context/outer-only-immediate?"
-" the-struct_109)"
+" the-struct_107)"
 "(expand-context/outer-need-eventually-defined"
-" the-struct_109)"
+" the-struct_107)"
 "(expand-context/outer-current-introduction-scopes"
-" the-struct_109)"
+" the-struct_107)"
 "(expand-context/outer-name"
-" the-struct_109)))"
+" the-struct_107)))"
 "(raise-argument-error"
 " 'struct-copy"
 "                                                                                                                                                                                        \"expand-context/outer?\""
-" the-struct_109))))))"
+" the-struct_107))))))"
 "(let-values(((declare-enclosing-module_0)"
 "(delay"
 "(lambda()"
@@ -74261,7 +72540,7 @@ static const char *startup_source =
 "((submod-m-ns388_0)"
 " submod-m-ns_0)"
 "((self389_0)"
-" self_14)"
+" self_32)"
 "((enclosing-self390_0)"
 " enclosing-self_1)"
 "((root-ctx391_0)"
@@ -74295,9 +72574,9 @@ static const char *startup_source =
 "((declare-enclosing-module396_0)"
 " declare-enclosing-module_0)"
 "((phase397_0)"
-" phase_154)"
+" phase_144)"
 "((self398_0)"
-" self_14)"
+" self_32)"
 "((requires+provides399_0)"
 " requires+provides_6)"
 "((is-cross-phase-persistent?400_0)"
@@ -74344,8 +72623,7 @@ static const char *startup_source =
 "(syntax-only"
 " fully-expanded-bodys_0))))"
 "(rebuild5.1"
-" #f"
-" #f"
+" #t"
 " rebuild-mb-s407_0"
 " temp408_0))))"
 "(if(not"
@@ -74361,20 +72639,20 @@ static const char *startup_source =
 "(let-values()"
 " mb-result-s_0)))))))))))))))))))))))))))))))))"
 "(let-values(((mb-ctx_0)"
-"(let-values(((v_274)"
-" ctx_112))"
-"(let-values(((the-struct_111)"
-" v_274))"
+"(let-values(((v_273)"
+" ctx_110))"
+"(let-values(((the-struct_39)"
+" v_273))"
 "(if(expand-context/outer?"
-" the-struct_111)"
+" the-struct_39)"
 "(let-values(((context409_0)"
 " 'module-begin)"
 "((inner410_0)"
-"(let-values(((the-struct_112)"
+"(let-values(((the-struct_108)"
 "(root-expand-context/outer-inner"
-" v_274)))"
+" v_273)))"
 "(if(expand-context/inner?"
-" the-struct_112)"
+" the-struct_108)"
 "(let-values(((module-begin-k411_0)"
 " module-begin-k_1)"
 "((in-local-expand?412_0)"
@@ -74389,88 +72667,88 @@ static const char *startup_source =
 " #f))"
 "(expand-context/inner2.1"
 "(root-expand-context/inner-self-mpi"
-" the-struct_112)"
+" the-struct_108)"
 "(root-expand-context/inner-module-scopes"
-" the-struct_112)"
+" the-struct_108)"
 "(root-expand-context/inner-top-level-bind-scope"
-" the-struct_112)"
+" the-struct_108)"
 "(root-expand-context/inner-all-scopes-stx"
-" the-struct_112)"
+" the-struct_108)"
 "(root-expand-context/inner-defined-syms"
-" the-struct_112)"
+" the-struct_108)"
 "(root-expand-context/inner-counter"
-" the-struct_112)"
+" the-struct_108)"
 "(root-expand-context/inner-lift-key"
-" the-struct_112)"
+" the-struct_108)"
 "(expand-context/inner-to-parsed?"
-" the-struct_112)"
+" the-struct_108)"
 "(expand-context/inner-phase"
-" the-struct_112)"
+" the-struct_108)"
 "(expand-context/inner-namespace"
-" the-struct_112)"
+" the-struct_108)"
 "(expand-context/inner-just-once?"
-" the-struct_112)"
+" the-struct_108)"
 " module-begin-k411_0"
 "(expand-context/inner-allow-unbound?"
-" the-struct_112)"
+" the-struct_108)"
 " in-local-expand?412_0"
 "(expand-context/inner-keep-#%expression?"
-" the-struct_112)"
+" the-struct_108)"
 "(expand-context/inner-stops"
-" the-struct_112)"
+" the-struct_108)"
 "(expand-context/inner-declared-submodule-names"
-" the-struct_112)"
+" the-struct_108)"
 " lifts413_0"
 "(expand-context/inner-lift-envs"
-" the-struct_112)"
+" the-struct_108)"
 " module-lifts414_0"
 " require-lifts416_0"
 " to-module-lifts415_0"
 "(expand-context/inner-requires+provides"
-" the-struct_112)"
+" the-struct_108)"
 "(expand-context/inner-observer"
-" the-struct_112)"
+" the-struct_108)"
 "(expand-context/inner-for-serializable?"
-" the-struct_112)"
+" the-struct_108)"
 "(expand-context/inner-should-not-encounter-macros?"
-" the-struct_112)))"
+" the-struct_108)))"
 "(raise-argument-error"
 " 'struct-copy"
 "                                                                                                                                             \"expand-context/inner?\""
-" the-struct_112)))))"
+" the-struct_108)))))"
 "(expand-context/outer1.1"
 " inner410_0"
 "(root-expand-context/outer-post-expansion-scope"
-" the-struct_111)"
+" the-struct_39)"
 "(root-expand-context/outer-use-site-scopes"
-" the-struct_111)"
+" the-struct_39)"
 "(root-expand-context/outer-frame-id"
-" the-struct_111)"
+" the-struct_39)"
 " context409_0"
 "(expand-context/outer-env"
-" the-struct_111)"
+" the-struct_39)"
 "(expand-context/outer-post-expansion-scope-action"
-" the-struct_111)"
+" the-struct_39)"
 "(expand-context/outer-scopes"
-" the-struct_111)"
+" the-struct_39)"
 "(expand-context/outer-def-ctx-scopes"
-" the-struct_111)"
+" the-struct_39)"
 "(expand-context/outer-binding-layer"
-" the-struct_111)"
+" the-struct_39)"
 "(expand-context/outer-reference-records"
-" the-struct_111)"
+" the-struct_39)"
 "(expand-context/outer-only-immediate?"
-" the-struct_111)"
+" the-struct_39)"
 "(expand-context/outer-need-eventually-defined"
-" the-struct_111)"
+" the-struct_39)"
 "(expand-context/outer-current-introduction-scopes"
-" the-struct_111)"
+" the-struct_39)"
 "(expand-context/outer-name"
-" the-struct_111)))"
+" the-struct_39)))"
 "(raise-argument-error"
 " 'struct-copy"
 "                                                                                                                           \"expand-context/outer?\""
-" the-struct_111))))))"
+" the-struct_39))))))"
 "(let-values(((mb-scopes-s_0)"
 "(if keep-enclosing-scope-at-phase_0"
 "(apply-module-scopes_0"
@@ -74481,21 +72759,21 @@ static const char *startup_source =
 " null)))"
 "(let-values(((mb_0)"
 "(let-values(((bodys417_0)"
-" bodys_4)"
+" bodys_15)"
 "((module-name-sym418_0)"
 " module-name-sym_0)"
 "((mb-scopes-s419_0)"
 " mb-scopes-s_0)"
 "((m-ns420_0)"
-" m-ns_18)"
+" m-ns_19)"
 "((mb-ctx421_0)"
 " mb-ctx_0)"
 "((mb-def-ctx-scopes422_0)"
 " mb-def-ctx-scopes_0)"
 "((phase423_0)"
-" phase_154)"
+" phase_144)"
 "((s424_0)"
-" s_483))"
+" s_805))"
 "(ensure-module-begin36.1"
 " mb-ctx421_0"
 " mb-def-ctx-scopes422_0"
@@ -74517,37 +72795,34 @@ static const char *startup_source =
 " #f"
 " #f"
 " #f"
-" #f"
-" #f"
-" #f"
 " mb425_0"
 " temp426_0)))))"
 "(let-values(((requires_6"
 " provides_13)"
 "(extract-requires-and-provides"
 " requires+provides_6"
-" self_14"
-" self_14)))"
+" self_32"
+" self_32)))"
 "(let-values(((result-form_0)"
-"(if(let-values(((or-part_147)"
+"(if(let-values(((or-part_402)"
 "(expand-context-to-parsed?"
 " init-ctx_0)))"
-"(if or-part_147"
-" or-part_147"
+"(if or-part_402"
+" or-part_402"
 " always-produce-compiled?_0))"
 "(parsed-module25.1"
 " rebuild-s_14"
 " #f"
 " id:module-name229_0"
-" self_14"
+" self_32"
 " requires_6"
 " provides_13"
 "(requires+provides-all-bindings-simple?"
 " requires+provides_6)"
 "(root-expand-context-encode-for-module"
 " root-ctx_6"
-" self_14"
-" self_14)"
+" self_32"
+" self_32)"
 "(parsed-#%module-begin-body"
 "(if(expanded+parsed?"
 " expanded-mb_0)"
@@ -74565,11 +72840,11 @@ static const char *startup_source =
 "(let-values()"
 "(let-values(((generic-self_0)"
 "(make-generic-self-module-path-index"
-" self_14)))"
+" self_32)))"
 "(begin"
 "(imitate-generic-module-path-index!"
-" self_14)"
-"(let-values(((lst_427)"
+" self_32)"
+"(let-values(((lst_423)"
 "(unbox"
 " mpis-to-reset_0)))"
 "(begin"
@@ -74578,19 +72853,19 @@ static const char *startup_source =
 "(void)"
 "(let-values()"
 "(check-list"
-" lst_427)))"
-"((letrec-values(((for-loop_330)"
-"(lambda(lst_428)"
+" lst_423)))"
+"((letrec-values(((for-loop_329)"
+"(lambda(lst_424)"
 "(begin"
 " 'for-loop"
 "(if(pair?"
-" lst_428)"
-"(let-values(((mpi_59)"
+" lst_424)"
+"(let-values(((mpi_56)"
 "(unsafe-car"
-" lst_428))"
-"((rest_244)"
+" lst_424))"
+"((rest_253)"
 "(unsafe-cdr"
-" lst_428)))"
+" lst_424)))"
 "(let-values((()"
 "(let-values()"
 "(let-values((()"
@@ -74598,22 +72873,22 @@ static const char *startup_source =
 "(begin"
 "(let-values()"
 "(imitate-generic-module-path-index!"
-" mpi_59))"
+" mpi_56))"
 "(values)))))"
 "(values)))))"
 "(if(not"
 " #f)"
-"(for-loop_330"
-" rest_244)"
+"(for-loop_329"
+" rest_253)"
 "(values))))"
 "(values))))))"
-" for-loop_330)"
-" lst_427)))"
+" for-loop_329)"
+" lst_423)))"
 "(void)"
 "(let-values(((result-s_15)"
 "(let-values(((rebuild-s427_0)"
 " rebuild-s_14)"
-"((temp428_0)"
+"((temp428_1)"
 "(list"
 " module228_0"
 " id:module-name229_0"
@@ -74621,30 +72896,27 @@ static const char *startup_source =
 "(expanded+parsed-s"
 " expanded-mb_0))))"
 "(rebuild5.1"
-" #f"
-" #f"
+" #t"
 " rebuild-s427_0"
-" temp428_0))))"
+" temp428_1))))"
 "(let-values(((result-s_16)"
 "(let-values(((result-s429_0)"
 " result-s_15)"
 "((self430_0)"
-" self_14)"
+" self_32)"
 "((generic-self431_0)"
 " generic-self_0))"
-"(syntax-module-path-index-shift15.1"
-" #f"
+"(syntax-module-path-index-shift13.1"
 " #f"
 " result-s429_0"
 " self430_0"
 " generic-self431_0"
-" #f"
 " #f))))"
 "(let-values(((result-s_17)"
 "(attach-root-expand-context-properties"
 " result-s_16"
 " root-ctx_6"
-" self_14"
+" self_32"
 " generic-self_0)))"
 "(let-values(((result-s_18)"
 "(if(requires+provides-all-bindings-simple?"
@@ -74684,94 +72956,85 @@ static const char *startup_source =
 "(lambda(ctx24_0 def-ctx-scopes25_0 m-ns23_0 module-name-sym21_0 phase26_3 s27_2 scopes-s22_0 bodys35_0)"
 "(begin"
 " 'ensure-module-begin36"
-"(let-values(((bodys_17) bodys35_0))"
+"(let-values(((bodys_18) bodys35_0))"
 "(let-values(((module-name-sym_1) module-name-sym21_0))"
 "(let-values(((scopes-s_0) scopes-s22_0))"
 "(let-values()"
-"(let-values(((ctx_115) ctx24_0))"
+"(let-values(((ctx_113) ctx24_0))"
 "(let-values(((def-ctx-scopes_9) def-ctx-scopes25_0))"
-"(let-values(((phase_156) phase26_3))"
-"(let-values(((s_390) s27_2))"
+"(let-values(((phase_146) phase26_3))"
+"(let-values(((s_808) s27_2))"
 "(let-values()"
 "(let-values(((make-mb-ctx_0)"
 "(lambda()"
 "(begin"
 " 'make-mb-ctx"
-"(let-values(((v_275) ctx_115))"
-"(let-values(((the-struct_113) v_275))"
-"(if(expand-context/outer? the-struct_113)"
+"(let-values(((v_274) ctx_113))"
+"(let-values(((the-struct_109) v_274))"
+"(if(expand-context/outer? the-struct_109)"
 "(let-values(((context432_0) 'module-begin)"
 "((only-immediate?433_0) #t)"
 "((def-ctx-scopes434_0) def-ctx-scopes_9)"
-"((inner435_0)(root-expand-context/outer-inner v_275)))"
+"((inner435_0)(root-expand-context/outer-inner v_274)))"
 "(expand-context/outer1.1"
 " inner435_0"
-"(root-expand-context/outer-post-expansion-scope the-struct_113)"
-"(root-expand-context/outer-use-site-scopes the-struct_113)"
-"(root-expand-context/outer-frame-id the-struct_113)"
+"(root-expand-context/outer-post-expansion-scope the-struct_109)"
+"(root-expand-context/outer-use-site-scopes the-struct_109)"
+"(root-expand-context/outer-frame-id the-struct_109)"
 " context432_0"
-"(expand-context/outer-env the-struct_113)"
-"(expand-context/outer-post-expansion-scope-action the-struct_113)"
-"(expand-context/outer-scopes the-struct_113)"
+"(expand-context/outer-env the-struct_109)"
+"(expand-context/outer-post-expansion-scope-action the-struct_109)"
+"(expand-context/outer-scopes the-struct_109)"
 " def-ctx-scopes434_0"
-"(expand-context/outer-binding-layer the-struct_113)"
-"(expand-context/outer-reference-records the-struct_113)"
+"(expand-context/outer-binding-layer the-struct_109)"
+"(expand-context/outer-reference-records the-struct_109)"
 " only-immediate?433_0"
-"(expand-context/outer-need-eventually-defined the-struct_113)"
-"(expand-context/outer-current-introduction-scopes the-struct_113)"
-"(expand-context/outer-name the-struct_113)))"
+"(expand-context/outer-need-eventually-defined the-struct_109)"
+"(expand-context/outer-current-introduction-scopes the-struct_109)"
+"(expand-context/outer-name the-struct_109)))"
 "(raise-argument-error"
 " 'struct-copy"
 "                                                 \"expand-context/outer?\""
-" the-struct_113))))))))"
+" the-struct_109))))))))"
 "(let-values(((mb_1)"
-"(if(= 1(length bodys_17))"
+"(if(= 1(length bodys_18))"
 "(let-values()"
 "(begin"
-"(let-values(((obs_135)(expand-context-observer ctx_115)))"
+"(let-values(((obs_135)(expand-context-observer ctx_113)))"
 "(if obs_135"
 "(let-values()"
 "(let-values()"
-"(call-expand-observe obs_135 'rename-one(car bodys_17))))"
+"(call-expand-observe obs_135 'rename-one(car bodys_18))))"
 "(void)))"
 "(if(eq?"
 " '#%module-begin"
-"(core-form-sym(syntax-disarm$1(car bodys_17)) phase_156))"
-"(let-values()(car bodys_17))"
+"(core-form-sym(syntax-disarm$1(car bodys_18)) phase_146))"
+"(let-values()(car bodys_18))"
 "(let-values()"
 "(let-values(((partly-expanded-body_0)"
 "(let-values()"
 "(let-values(((temp436_0)"
 "(add-enclosing-name-property"
-"(car bodys_17)"
+"(car bodys_18)"
 " module-name-sym_1))"
 "((temp437_0)(make-mb-ctx_0)))"
-"(expand9.1"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" temp436_0"
-" temp437_0)))))"
+"(expand9.1 #f #f #f temp436_0 temp437_0)))))"
 "(if(eq?"
 " '#%module-begin"
 "(core-form-sym"
 "(syntax-disarm$1 partly-expanded-body_0)"
-" phase_156))"
+" phase_146))"
 "(let-values() partly-expanded-body_0)"
 "(let-values()"
 "(let-values(((temp438_0)(list partly-expanded-body_0))"
-"((s439_0) s_390)"
+"((s439_0) s_808)"
 "((scopes-s440_0) scopes-s_0)"
-"((phase441_0) phase_156)"
+"((phase441_0) phase_146)"
 "((module-name-sym442_0) module-name-sym_1)"
 "((temp443_0)(make-mb-ctx_0))"
 "((temp444_0) #f))"
 "(add-module-begin47.1"
 " temp444_0"
-" #t"
 " temp438_0"
 " s439_0"
 " scopes-s440_0"
@@ -74779,57 +73042,49 @@ static const char *startup_source =
 " module-name-sym442_0"
 " temp443_0)))))))))"
 "(let-values()"
-"(let-values(((bodys445_0) bodys_17)"
-"((s446_0) s_390)"
+"(let-values(((bodys445_0) bodys_18)"
+"((s446_0) s_808)"
 "((scopes-s447_0) scopes-s_0)"
-"((phase448_0) phase_156)"
+"((phase448_0) phase_146)"
 "((module-name-sym449_0) module-name-sym_1)"
-"((temp450_1)(make-mb-ctx_0)))"
+"((temp450_0)(make-mb-ctx_0)))"
 "(add-module-begin47.1"
-" #f"
-" #f"
+" #t"
 " bodys445_0"
 " s446_0"
 " scopes-s447_0"
 " phase448_0"
 " module-name-sym449_0"
-" temp450_1))))))"
+" temp450_0))))))"
 "(add-enclosing-name-property mb_1 module-name-sym_1)))))))))))))))"
 "(define-values"
 "(add-module-begin47.1)"
-"(lambda(log-rename-one?39_0"
-" log-rename-one?40_0"
-" bodys41_0"
-" s42_0"
-" scopes-s43_0"
-" phase44_1"
-" module-name-sym45_0"
-" mb-ctx46_0)"
+"(lambda(log-rename-one?39_0 bodys41_0 s42_0 scopes-s43_0 phase44_0 module-name-sym45_0 mb-ctx46_0)"
 "(begin"
 " 'add-module-begin47"
-"(let-values(((bodys_18) bodys41_0))"
-"(let-values(((s_819) s42_0))"
+"(let-values(((bodys_19) bodys41_0))"
+"(let-values(((s_809) s42_0))"
 "(let-values(((scopes-s_1) scopes-s43_0))"
-"(let-values(((phase_157) phase44_1))"
+"(let-values(((phase_147) phase44_0))"
 "(let-values(((module-name-sym_2) module-name-sym45_0))"
 "(let-values(((mb-ctx_1) mb-ctx46_0))"
-"(let-values(((log-rename-one?_0)(if log-rename-one?40_0 log-rename-one?39_0 #t)))"
+"(let-values(((log-rename-one?_0) log-rename-one?39_0))"
 "(let-values()"
 "(let-values(((disarmed-scopes-s_0)(syntax-disarm$1 scopes-s_1)))"
 "(let-values(((mb-id_0)(datum->syntax$1 disarmed-scopes-s_0 '#%module-begin)))"
 "(let-values((()"
 "(begin"
-"(if(let-values(((mb-id451_0) mb-id_0)((phase452_0) phase_157))"
-"(resolve41.1 #f #f #f #f #f #f #f #f mb-id451_0 phase452_0))"
+"(if(let-values(((mb-id451_0) mb-id_0)((phase452_0) phase_147))"
+"(resolve40.1 #f #f null #f mb-id451_0 phase452_0))"
 "(void)"
 "(let-values()"
 "(raise-syntax-error$1"
 " #f"
 "                                               \"no #%module-begin binding in the module's language\""
-" s_819)))"
+" s_809)))"
 "(values))))"
 "(let-values(((mb_2)"
-"(datum->syntax$1 disarmed-scopes-s_0(list* mb-id_0 bodys_18) s_819 s_819)))"
+"(datum->syntax$1 disarmed-scopes-s_0(list* mb-id_0 bodys_19) s_809 s_809)))"
 "(let-values((()"
 "(begin"
 "(let-values(((obs_136)(expand-context-observer mb-ctx_1)))"
@@ -74855,17 +73110,17 @@ static const char *startup_source =
 "(let-values(((temp453_0)"
 "(add-enclosing-name-property mb_2 module-name-sym_2))"
 "((mb-ctx454_0) mb-ctx_1))"
-"(expand9.1 #f #f #f #f #f #f temp453_0 mb-ctx454_0)))))"
+"(expand9.1 #f #f #f temp453_0 mb-ctx454_0)))))"
 "(begin"
 "(if(eq?"
 " '#%module-begin"
-"(core-form-sym(syntax-disarm$1 partly-expanded-mb_0) phase_157))"
+"(core-form-sym(syntax-disarm$1 partly-expanded-mb_0) phase_147))"
 "(void)"
 "(let-values()"
 "(raise-syntax-error$1"
 " #f"
 "                                           \"expansion of #%module-begin is not a #%plain-module-begin form\""
-" s_819"
+" s_809"
 " partly-expanded-mb_0)))"
 " partly-expanded-mb_0)))))))))))))))))))"
 "(define-values"
@@ -74877,17 +73132,17 @@ static const char *startup_source =
 " outside-scope_2"
 " init-ctx_1"
 " keep-enclosing-scope-at-phase_1"
-" self_32"
+" self_33"
 " enclosing-self_2"
 " enclosing-mod_2)"
 "(begin"
-"(lambda(s_820)"
+"(lambda(s_810)"
 "(let-values()"
 "(let-values(((s-without-enclosing_0)"
 "(if keep-enclosing-scope-at-phase_1"
-" s_820"
+" s_810"
 "(remove-use-site-scopes"
-"(remove-scopes s_820(root-expand-context-module-scopes init-ctx_1))"
+"(remove-scopes s_810(root-expand-context-module-scopes init-ctx_1))"
 " init-ctx_1))))"
 "(let-values(((s-with-edges_0)"
 "(add-scope(add-scope s-without-enclosing_0 outside-scope_2) inside-scope_1)))"
@@ -74897,27 +73152,23 @@ static const char *startup_source =
 "(let-values(((s-with-edges459_0) s-with-edges_0)"
 "((enclosing-self460_0) enclosing-self_2)"
 "((enclosing-mod461_0) enclosing-mod_2))"
-"(syntax-module-path-index-shift15.1"
-" #f"
+"(syntax-module-path-index-shift13.1"
 " #f"
 " s-with-edges459_0"
 " enclosing-self460_0"
 " enclosing-mod461_0"
-" #f"
 " #f)))"
 "(let-values() s-with-edges_0))))"
 "(let-values(((s-with-suitable-enclosing455_0) s-with-suitable-enclosing_0)"
-"((temp456_1)(make-generic-self-module-path-index self_32))"
-"((self457_0) self_32)"
+"((temp456_0)(make-generic-self-module-path-index self_33))"
+"((self457_0) self_33)"
 "((temp458_0)(current-code-inspector)))"
-"(syntax-module-path-index-shift15.1"
-" #f"
+"(syntax-module-path-index-shift13.1"
 " #f"
 " s-with-suitable-enclosing455_0"
-" temp456_1"
+" temp456_0"
 " self457_0"
-" temp458_0"
-" #t))))))))))"
+" temp458_0))))))))))"
 "(define-values"
 "(partially-expand-bodys81.1)"
 "(lambda(all-scopes-stx57_0"
@@ -74932,18 +73183,18 @@ static const char *startup_source =
 " mpis-to-reset63_0"
 " namespace52_0"
 " need-eventually-defined56_0"
-" phase50_0"
+" phase50_1"
 " requires-and-provides55_0"
 " self53_0"
 " bodys80_0)"
 "(begin"
 " 'partially-expand-bodys81"
-"(let-values(((bodys_19) bodys80_0))"
-"(let-values(((phase_158) phase50_0))"
+"(let-values(((bodys_20) bodys80_0))"
+"(let-values(((phase_148) phase50_1))"
 "(let-values(((partial-body-ctx_1) ctx51_0))"
-"(let-values(((m-ns_19) namespace52_0))"
-"(let-values(((self_33) self53_0))"
-"(let-values(((frame-id_16) frame-id54_0))"
+"(let-values(((m-ns_20) namespace52_0))"
+"(let-values(((self_34) self53_0))"
+"(let-values(((frame-id_17) frame-id54_0))"
 "(let-values(((requires+provides_7) requires-and-provides55_0))"
 "(let-values(((need-eventually-defined_2) need-eventually-defined56_0))"
 "(let-values(((all-scopes-stx_5) all-scopes-stx57_0))"
@@ -74956,14 +73207,14 @@ static const char *startup_source =
 "(let-values(((pass-1-and-2-loop_1) loop64_0))"
 "(let-values()"
 "(begin"
-"(namespace-visit-available-modules! m-ns_19 phase_158)"
-"((letrec-values(((loop_127)"
-"(lambda(tail?_52 bodys_20)"
+"(namespace-visit-available-modules! m-ns_20 phase_148)"
+"((letrec-values(((loop_124)"
+"(lambda(tail?_53 bodys_21)"
 "(begin"
 " 'loop"
-"(if(null? bodys_20)"
+"(if(null? bodys_21)"
 "(let-values()"
-"(if(if tail?_52(not(zero? phase_158)) #f)"
+"(if(if tail?_53(not(zero? phase_148)) #f)"
 "(let-values()"
 "(begin"
 "(let-values(((obs_138)"
@@ -74978,9 +73229,9 @@ static const char *startup_source =
 " '())))"
 "(void)))"
 " null))"
-"(if tail?_52"
+"(if tail?_53"
 "(let-values()"
-"(let-values(((bodys_21)"
+"(let-values(((bodys_22)"
 "(append"
 "(get-and-clear-end-lifts!"
 "(expand-context-to-module-lifts"
@@ -74998,19 +73249,19 @@ static const char *startup_source =
 "(call-expand-observe"
 " obs_139"
 " 'module-lift-end-loop"
-" bodys_21)))"
+" bodys_22)))"
 "(void)))"
-"(if(null? bodys_21)"
+"(if(null? bodys_22)"
 "(let-values() null)"
 "(let-values()"
-"(loop_127"
+"(loop_124"
 " #t"
 "(add-post-expansion-scope"
-" bodys_21"
+" bodys_22"
 " partial-body-ctx_1)))))))"
 "(let-values() null))))"
 "(let-values()"
-"(let-values(((rest-bodys_1)(cdr bodys_20)))"
+"(let-values(((rest-bodys_1)(cdr bodys_21)))"
 "(let-values((()"
 "(begin"
 "(let-values(((obs_140)"
@@ -75026,18 +73277,15 @@ static const char *startup_source =
 "(values))))"
 "(let-values(((exp-body_7)"
 "(let-values()"
-"(let-values(((temp462_0)"
-"(car bodys_20))"
+"(let-values(((temp462_1)"
+"(car bodys_21))"
 "((partial-body-ctx463_0)"
 " partial-body-ctx_1))"
 "(expand9.1"
 " #f"
 " #f"
 " #f"
-" #f"
-" #f"
-" #f"
-" temp462_0"
+" temp462_1"
 " partial-body-ctx463_0)))))"
 "(let-values(((disarmed-exp-body_1)"
 "(syntax-disarm$1 exp-body_7)))"
@@ -75054,14 +73302,14 @@ static const char *startup_source =
 " exp-body_7"
 " rest-bodys_1))"
 "(void))"
-"(let-values(((obs_141)"
+"(let-values(((obs_93)"
 "(expand-context-observer"
 " partial-body-ctx_1)))"
-"(if obs_141"
+"(if obs_93"
 "(let-values()"
 "(let-values()"
 "(call-expand-observe"
-" obs_141"
+" obs_93"
 " 'rename-one"
 " exp-body_7)))"
 "(void)))"
@@ -75072,55 +73320,55 @@ static const char *startup_source =
 "(let-values(((tmp_65)"
 "(core-form-sym"
 " disarmed-exp-body_1"
-" phase_158)))"
+" phase_148)))"
 "(if(equal?"
 " tmp_65"
 " 'begin)"
 "(let-values()"
-"(let-values(((ok?_80"
+"(let-values(((ok?_81"
 " begin464_0"
 " e465_0)"
-"(let-values(((s_821)"
+"(let-values(((s_811)"
 " disarmed-exp-body_1))"
 "(let-values(((orig-s_85)"
-" s_821))"
+" s_811))"
 "(let-values(((begin464_1"
 " e465_1)"
-"(let-values(((s_822)"
+"(let-values(((s_812)"
 "(if(syntax?$1"
-" s_821)"
+" s_811)"
 "(syntax-e$1"
-" s_821)"
-" s_821)))"
+" s_811)"
+" s_811)))"
 "(if(pair?"
-" s_822)"
+" s_812)"
 "(let-values(((begin466_0)"
-"(let-values(((s_823)"
+"(let-values(((s_813)"
 "(car"
-" s_822)))"
-" s_823))"
+" s_812)))"
+" s_813))"
 "((e467_0)"
-"(let-values(((s_824)"
+"(let-values(((s_814)"
 "(cdr"
-" s_822)))"
-"(let-values(((s_825)"
+" s_812)))"
+"(let-values(((s_815)"
 "(if(syntax?$1"
-" s_824)"
+" s_814)"
 "(syntax-e$1"
-" s_824)"
-" s_824)))"
-"(let-values(((flat-s_56)"
+" s_814)"
+" s_814)))"
+"(let-values(((flat-s_58)"
 "(to-syntax-list.1"
-" s_825)))"
+" s_815)))"
 "(if(not"
-" flat-s_56)"
+" flat-s_58)"
 "(let-values()"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                     \"bad syntax\""
 " orig-s_85))"
 "(let-values()"
-" flat-s_56)))))))"
+" flat-s_58)))))))"
 "(values"
 " begin466_0"
 " e467_0))"
@@ -75133,11 +73381,11 @@ static const char *startup_source =
 " begin464_1"
 " e465_1))))))"
 "(let-values(((track_1)"
-"(lambda(e_96)"
+"(lambda(e_95)"
 "(begin"
 " 'track"
 "(syntax-track-origin$1"
-" e_96"
+" e_95"
 " exp-body_7)))))"
 "(let-values(((spliced-bodys_0)"
 "(append"
@@ -75146,24 +73394,55 @@ static const char *startup_source =
 " e465_0)"
 " rest-bodys_1)))"
 "(begin"
+"(let-values(((obs_141)"
+"(expand-context-observer"
+" partial-body-ctx_1)))"
+"(if obs_141"
+"(let-values()"
+"(let-values()"
+"(call-expand-observe"
+" obs_141"
+" 'splice"
+" spliced-bodys_0)))"
+"(void)))"
+"(loop_124"
+" tail?_53"
+" spliced-bodys_0))))))"
+"(if(equal?"
+" tmp_65"
+" 'begin-for-syntax)"
+"(let-values()"
+"(let-values((()"
+"(begin"
 "(let-values(((obs_142)"
 "(expand-context-observer"
 " partial-body-ctx_1)))"
 "(if obs_142"
 "(let-values()"
 "(let-values()"
+"(begin"
 "(call-expand-observe"
 " obs_142"
-" 'splice"
-" spliced-bodys_0)))"
+" 'enter-prim"
+" exp-body_7)"
+"(call-expand-observe"
+" obs_142"
+" 'prim-begin-for-syntax)"
+"(call-expand-observe"
+" obs_142"
+" 'prepare-env))))"
 "(void)))"
-"(loop_127"
-" tail?_52"
-" spliced-bodys_0))))))"
-"(if(equal?"
-" tmp_65"
-" 'begin-for-syntax)"
-"(let-values()"
+"(values))))"
+"(let-values(((ct-m-ns_0)"
+"(namespace->namespace-at-phase"
+" m-ns_20"
+"(add1"
+" phase_148))))"
+"(let-values((()"
+"(begin"
+"(prepare-next-phase-namespace"
+" partial-body-ctx_1)"
+"(values))))"
 "(let-values((()"
 "(begin"
 "(let-values(((obs_143)"
@@ -75172,86 +73451,55 @@ static const char *startup_source =
 "(if obs_143"
 "(let-values()"
 "(let-values()"
-"(begin"
 "(call-expand-observe"
 " obs_143"
-" 'enter-prim"
-" exp-body_7)"
-"(call-expand-observe"
-" obs_143"
-" 'prim-begin-for-syntax)"
-"(call-expand-observe"
-" obs_143"
-" 'prepare-env))))"
-"(void)))"
-"(values))))"
-"(let-values(((ct-m-ns_0)"
-"(namespace->namespace-at-phase"
-" m-ns_19"
-"(add1"
-" phase_158))))"
-"(let-values((()"
-"(begin"
-"(prepare-next-phase-namespace"
-" partial-body-ctx_1)"
-"(values))))"
-"(let-values((()"
-"(begin"
-"(let-values(((obs_144)"
-"(expand-context-observer"
-" partial-body-ctx_1)))"
-"(if obs_144"
-"(let-values()"
-"(let-values()"
-"(call-expand-observe"
-" obs_144"
 " 'phase-up)))"
 "(void)))"
 "(values))))"
-"(let-values(((ok?_81"
+"(let-values(((ok?_82"
 " begin-for-syntax468_0"
 " e469_0)"
-"(let-values(((s_826)"
+"(let-values(((s_816)"
 " disarmed-exp-body_1))"
 "(let-values(((orig-s_86)"
-" s_826))"
+" s_816))"
 "(let-values(((begin-for-syntax468_1"
 " e469_1)"
-"(let-values(((s_827)"
+"(let-values(((s_817)"
 "(if(syntax?$1"
-" s_826)"
+" s_816)"
 "(syntax-e$1"
-" s_826)"
-" s_826)))"
+" s_816)"
+" s_816)))"
 "(if(pair?"
-" s_827)"
+" s_817)"
 "(let-values(((begin-for-syntax470_0)"
-"(let-values(((s_828)"
+"(let-values(((s_818)"
 "(car"
-" s_827)))"
-" s_828))"
+" s_817)))"
+" s_818))"
 "((e471_0)"
-"(let-values(((s_829)"
+"(let-values(((s_819)"
 "(cdr"
-" s_827)))"
-"(let-values(((s_830)"
+" s_817)))"
+"(let-values(((s_820)"
 "(if(syntax?$1"
-" s_829)"
+" s_819)"
 "(syntax-e$1"
-" s_829)"
-" s_829)))"
-"(let-values(((flat-s_57)"
+" s_819)"
+" s_819)))"
+"(let-values(((flat-s_59)"
 "(to-syntax-list.1"
-" s_830)))"
+" s_820)))"
 "(if(not"
-" flat-s_57)"
+" flat-s_59)"
 "(let-values()"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                               \"bad syntax\""
 " orig-s_86))"
 "(let-values()"
-" flat-s_57)))))))"
+" flat-s_59)))))))"
 "(values"
 " begin-for-syntax470_0"
 " e471_0))"
@@ -75267,8 +73515,32 @@ static const char *startup_source =
 "(pass-1-and-2-loop_1"
 " e469_0"
 "(add1"
-" phase_158))))"
+" phase_148))))"
 "(begin"
+"(let-values(((obs_144)"
+"(expand-context-observer"
+" partial-body-ctx_1)))"
+"(if obs_144"
+"(let-values()"
+"(let-values()"
+"(call-expand-observe"
+" obs_144"
+" 'next-group)))"
+"(void)))"
+"(namespace-run-available-modules!"
+" m-ns_20"
+"(add1"
+" phase_148))"
+"(eval-nested-bodys"
+" nested-bodys_1"
+"(add1"
+" phase_148)"
+" ct-m-ns_0"
+" self_34"
+" partial-body-ctx_1)"
+"(namespace-visit-available-modules!"
+" m-ns_20"
+" phase_148)"
 "(let-values(((obs_145)"
 "(expand-context-observer"
 " partial-body-ctx_1)))"
@@ -75277,34 +73549,10 @@ static const char *startup_source =
 "(let-values()"
 "(call-expand-observe"
 " obs_145"
-" 'next-group)))"
-"(void)))"
-"(namespace-run-available-modules!"
-" m-ns_19"
-"(add1"
-" phase_158))"
-"(eval-nested-bodys"
-" nested-bodys_1"
-"(add1"
-" phase_158)"
-" ct-m-ns_0"
-" self_33"
-" partial-body-ctx_1)"
-"(namespace-visit-available-modules!"
-" m-ns_19"
-" phase_158)"
-"(let-values(((obs_146)"
-"(expand-context-observer"
-" partial-body-ctx_1)))"
-"(if obs_146"
-"(let-values()"
-"(let-values()"
-"(call-expand-observe"
-" obs_146"
 " 'exit-prim"
 "(let-values(((s-nested-bodys_0)"
 "(reverse$1"
-"(let-values(((lst_256)"
+"(let-values(((lst_425)"
 " nested-bodys_1))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
@@ -75312,42 +73560,42 @@ static const char *startup_source =
 "(void)"
 "(let-values()"
 "(check-list"
-" lst_256)))"
-"((letrec-values(((for-loop_331)"
-"(lambda(fold-var_383"
-" lst_429)"
+" lst_425)))"
+"((letrec-values(((for-loop_330)"
+"(lambda(fold-var_373"
+" lst_251)"
 "(begin"
 " 'for-loop"
 "(if(pair?"
-" lst_429)"
+" lst_251)"
 "(let-values(((nested-body_0)"
 "(unsafe-car"
-" lst_429))"
-"((rest_245)"
+" lst_251))"
+"((rest_254)"
 "(unsafe-cdr"
-" lst_429)))"
-"(let-values(((fold-var_362)"
-"(let-values(((fold-var_384)"
-" fold-var_383))"
-"(let-values(((fold-var_385)"
+" lst_251)))"
+"(let-values(((fold-var_374)"
+"(let-values(((fold-var_375)"
+" fold-var_373))"
+"(let-values(((fold-var_376)"
 "(let-values()"
 "(cons"
 "(let-values()"
 "(extract-syntax"
 " nested-body_0))"
-" fold-var_384))))"
+" fold-var_375))))"
 "(values"
-" fold-var_385)))))"
+" fold-var_376)))))"
 "(if(not"
 " #f)"
-"(for-loop_331"
-" fold-var_362"
-" rest_245)"
-" fold-var_362)))"
-" fold-var_383)))))"
-" for-loop_331)"
+"(for-loop_330"
+" fold-var_374"
+" rest_254)"
+" fold-var_374)))"
+" fold-var_373)))))"
+" for-loop_330)"
 " null"
-" lst_256))))))"
+" lst_425))))))"
 "(datum->syntax$1"
 " #f"
 "(cons"
@@ -75359,8 +73607,8 @@ static const char *startup_source =
 "(semi-parsed-begin-for-syntax3.1"
 " exp-body_7"
 " nested-bodys_1)"
-"(loop_127"
-" tail?_52"
+"(loop_124"
+" tail?_53"
 " rest-bodys_1))))))))))"
 "(if(equal?"
 " tmp_65"
@@ -75368,173 +73616,173 @@ static const char *startup_source =
 "(let-values()"
 "(let-values((()"
 "(begin"
-"(let-values(((obs_147)"
+"(let-values(((obs_146)"
 "(expand-context-observer"
 " partial-body-ctx_1)))"
-"(if obs_147"
+"(if obs_146"
 "(let-values()"
 "(let-values()"
 "(begin"
 "(call-expand-observe"
-" obs_147"
+" obs_146"
 " 'enter-prim"
 " exp-body_7)"
 "(call-expand-observe"
-" obs_147"
+" obs_146"
 " 'prim-define-values))))"
 "(void)))"
 "(values))))"
-"(let-values(((ok?_82"
+"(let-values(((ok?_83"
 " define-values472_0"
 " id473_0"
 " rhs474_0)"
-"(let-values(((s_831)"
+"(let-values(((s_198)"
 " disarmed-exp-body_1))"
 "(let-values(((orig-s_87)"
-" s_831))"
+" s_198))"
 "(let-values(((define-values472_1"
 " id473_1"
 " rhs474_1)"
-"(let-values(((s_832)"
+"(let-values(((s_821)"
 "(if(syntax?$1"
-" s_831)"
+" s_198)"
 "(syntax-e$1"
-" s_831)"
-" s_831)))"
+" s_198)"
+" s_198)))"
 "(if(pair?"
-" s_832)"
+" s_821)"
 "(let-values(((define-values475_0)"
-"(let-values(((s_833)"
+"(let-values(((s_822)"
 "(car"
-" s_832)))"
-" s_833))"
+" s_821)))"
+" s_822))"
 "((id476_0"
 " rhs477_0)"
-"(let-values(((s_834)"
+"(let-values(((s_823)"
 "(cdr"
-" s_832)))"
-"(let-values(((s_835)"
+" s_821)))"
+"(let-values(((s_824)"
 "(if(syntax?$1"
-" s_834)"
+" s_823)"
 "(syntax-e$1"
-" s_834)"
-" s_834)))"
+" s_823)"
+" s_823)))"
 "(if(pair?"
-" s_835)"
+" s_824)"
 "(let-values(((id478_0)"
-"(let-values(((s_836)"
+"(let-values(((s_825)"
 "(car"
-" s_835)))"
-"(let-values(((s_837)"
+" s_824)))"
+"(let-values(((s_826)"
 "(if(syntax?$1"
-" s_836)"
+" s_825)"
 "(syntax-e$1"
-" s_836)"
-" s_836)))"
-"(let-values(((flat-s_58)"
+" s_825)"
+" s_825)))"
+"(let-values(((flat-s_60)"
 "(to-syntax-list.1"
-" s_837)))"
+" s_826)))"
 "(if(not"
-" flat-s_58)"
+" flat-s_60)"
 "(let-values()"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                               \"bad syntax\""
 " orig-s_87))"
 "(let-values()"
-"(let-values(((id_149)"
-"(let-values(((lst_430)"
-" flat-s_58))"
+"(let-values(((id_144)"
+"(let-values(((lst_426)"
+" flat-s_60))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
 "(#%variable-reference))"
 "(void)"
 "(let-values()"
 "(check-list"
-" lst_430)))"
-"((letrec-values(((for-loop_332)"
-"(lambda(id_150"
-" lst_431)"
+" lst_426)))"
+"((letrec-values(((for-loop_331)"
+"(lambda(id_145"
+" lst_69)"
 "(begin"
 " 'for-loop"
 "(if(pair?"
-" lst_431)"
-"(let-values(((s_838)"
+" lst_69)"
+"(let-values(((s_827)"
 "(unsafe-car"
-" lst_431))"
-"((rest_246)"
+" lst_69))"
+"((rest_255)"
 "(unsafe-cdr"
-" lst_431)))"
-"(let-values(((id_151)"
-"(let-values(((id_152)"
-" id_150))"
-"(let-values(((id_153)"
+" lst_69)))"
+"(let-values(((id_146)"
+"(let-values(((id_147)"
+" id_145))"
+"(let-values(((id_148)"
 "(let-values()"
 "(let-values(((id491_0)"
 "(let-values()"
-"(if(let-values(((or-part_408)"
+"(if(let-values(((or-part_403)"
 "(if(syntax?$1"
-" s_838)"
+" s_827)"
 "(symbol?"
 "(syntax-e$1"
-" s_838))"
+" s_827))"
 " #f)))"
-"(if or-part_408"
-" or-part_408"
+"(if or-part_403"
+" or-part_403"
 "(symbol?"
-" s_838)))"
-" s_838"
+" s_827)))"
+" s_827"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                                                                                                                             \"not an identifier\""
 " orig-s_87"
-" s_838)))))"
+" s_827)))))"
 "(cons"
 " id491_0"
-" id_152)))))"
+" id_147)))))"
 "(values"
-" id_153)))))"
+" id_148)))))"
 "(if(not"
 " #f)"
-"(for-loop_332"
-" id_151"
-" rest_246)"
-" id_151)))"
-" id_150)))))"
-" for-loop_332)"
+"(for-loop_331"
+" id_146"
+" rest_255)"
+" id_146)))"
+" id_145)))))"
+" for-loop_331)"
 " null"
-" lst_430)))))"
+" lst_426)))))"
 "(reverse$1"
-" id_149))))))))"
+" id_144))))))))"
 "((rhs479_0)"
-"(let-values(((s_839)"
+"(let-values(((s_828)"
 "(cdr"
-" s_835)))"
-"(let-values(((s_840)"
+" s_824)))"
+"(let-values(((s_829)"
 "(if(syntax?$1"
-" s_839)"
+" s_828)"
 "(syntax-e$1"
-" s_839)"
-" s_839)))"
+" s_828)"
+" s_828)))"
 "(if(pair?"
-" s_840)"
+" s_829)"
 "(let-values(((rhs480_0)"
-"(let-values(((s_841)"
+"(let-values(((s_830)"
 "(car"
-" s_840)))"
-" s_841))"
+" s_829)))"
+" s_830))"
 "(()"
-"(let-values(((s_842)"
+"(let-values(((s_831)"
 "(cdr"
-" s_840)))"
-"(let-values(((s_843)"
+" s_829)))"
+"(let-values(((s_832)"
 "(if(syntax?$1"
-" s_842)"
+" s_831)"
 "(syntax-e$1"
-" s_842)"
-" s_842)))"
+" s_831)"
+" s_831)))"
 "(if(null?"
-" s_843)"
+" s_832)"
 "(values)"
 "(raise-syntax-error$1"
 " #f"
@@ -75566,33 +73814,31 @@ static const char *startup_source =
 " define-values472_1"
 " id473_1"
 " rhs474_1))))))"
-"(let-values(((ids_44)"
+"(let-values(((ids_45)"
 "(remove-use-site-scopes"
 " id473_0"
 " partial-body-ctx_1)))"
 "(let-values((()"
 "(begin"
 "(let-values(((ids481_0)"
-" ids_44)"
+" ids_45)"
 "((phase482_0)"
-" phase_158)"
+" phase_148)"
 "((exp-body483_0)"
 " exp-body_7))"
-"(check-no-duplicate-ids8.1"
-" #f"
-" #f"
+"(check-no-duplicate-ids7.1"
+" unsafe-undefined"
 " ids481_0"
 " phase482_0"
 " exp-body483_0"
-" #f"
-" #f))"
+" unsafe-undefined))"
 "(values))))"
 "(let-values((()"
 "(begin"
 "(let-values(((ids484_0)"
-" ids_44)"
+" ids_45)"
 "((phase485_0)"
-" phase_158)"
+" phase_148)"
 "((requires+provides486_0)"
 " requires+provides_7)"
 "((exp-body487_0)"
@@ -75603,32 +73849,28 @@ static const char *startup_source =
 " phase485_0"
 " requires+provides486_0))"
 "(values))))"
-"(let-values(((syms_23)"
+"(let-values(((syms_22)"
 "(let-values(((ids492_0)"
-" ids_44)"
+" ids_45)"
 "((defined-syms493_0)"
 " defined-syms_12)"
 "((self494_0)"
-" self_33)"
+" self_34)"
 "((phase495_0)"
-" phase_158)"
+" phase_148)"
 "((all-scopes-stx496_0)"
 " all-scopes-stx_5)"
 "((frame-id497_0)"
-" frame-id_16)"
+" frame-id_17)"
 "((requires+provides498_0)"
 " requires+provides_7)"
 "((exp-body499_0)"
 " exp-body_7))"
 "(select-defined-syms-and-bind!16.1"
 " #f"
-" #f"
 " frame-id497_0"
 " exp-body499_0"
-" #t"
 " requires+provides498_0"
-" #t"
-" #f"
 " #f"
 " ids492_0"
 " defined-syms493_0"
@@ -75639,40 +73881,39 @@ static const char *startup_source =
 "(let-values(((requires+provides488_0)"
 " requires+provides_7)"
 "((syms489_0)"
-" syms_23)"
+" syms_22)"
 "((phase490_0)"
-" phase_158))"
+" phase_148))"
 "(add-defined-syms!103.1"
 " #f"
-" #f"
 " requires+provides488_0"
 " syms489_0"
 " phase490_0))"
-"(let-values(((obs_148)"
+"(let-values(((obs_147)"
 "(expand-context-observer"
 " partial-body-ctx_1)))"
-"(if obs_148"
+"(if obs_147"
 "(let-values()"
 "(let-values()"
 "(call-expand-observe"
-" obs_148"
+" obs_147"
 " 'exit-prim"
 "(datum->syntax$1"
 " #f"
 "(list"
 " define-values472_0"
-" ids_44"
+" ids_45"
 " rhs474_0)"
 " exp-body_7))))"
 "(void)))"
 "(cons"
 "(semi-parsed-define-values2.1"
 " exp-body_7"
-" syms_23"
-" ids_44"
+" syms_22"
+" ids_45"
 " rhs474_0)"
-"(loop_127"
-" tail?_52"
+"(loop_124"
+" tail?_53"
 " rest-bodys_1))))))))))"
 "(if(equal?"
 " tmp_65"
@@ -75680,22 +73921,22 @@ static const char *startup_source =
 "(let-values()"
 "(let-values((()"
 "(begin"
-"(let-values(((obs_149)"
+"(let-values(((obs_148)"
 "(expand-context-observer"
 " partial-body-ctx_1)))"
-"(if obs_149"
+"(if obs_148"
 "(let-values()"
 "(let-values()"
 "(begin"
 "(call-expand-observe"
-" obs_149"
+" obs_148"
 " 'enter-prim"
 " exp-body_7)"
 "(call-expand-observe"
-" obs_149"
+" obs_148"
 " 'prim-define-syntaxes)"
 "(call-expand-observe"
-" obs_149"
+" obs_148"
 " 'prepare-env))))"
 "(void)))"
 "(values))))"
@@ -75706,168 +73947,168 @@ static const char *startup_source =
 "(values))))"
 "(let-values((()"
 "(begin"
-"(let-values(((obs_150)"
+"(let-values(((obs_149)"
 "(expand-context-observer"
 " partial-body-ctx_1)))"
-"(if obs_150"
+"(if obs_149"
 "(let-values()"
 "(let-values()"
 "(call-expand-observe"
-" obs_150"
+" obs_149"
 " 'phase-up)))"
 "(void)))"
 "(values))))"
-"(let-values(((ok?_83"
+"(let-values(((ok?_84"
 " define-syntaxes500_0"
 " id501_0"
 " rhs502_0)"
-"(let-values(((s_844)"
+"(let-values(((s_833)"
 " disarmed-exp-body_1))"
 "(let-values(((orig-s_88)"
-" s_844))"
+" s_833))"
 "(let-values(((define-syntaxes500_1"
 " id501_1"
 " rhs502_1)"
-"(let-values(((s_845)"
+"(let-values(((s_834)"
 "(if(syntax?$1"
-" s_844)"
+" s_833)"
 "(syntax-e$1"
-" s_844)"
-" s_844)))"
+" s_833)"
+" s_833)))"
 "(if(pair?"
-" s_845)"
+" s_834)"
 "(let-values(((define-syntaxes503_0)"
-"(let-values(((s_846)"
+"(let-values(((s_835)"
 "(car"
-" s_845)))"
-" s_846))"
+" s_834)))"
+" s_835))"
 "((id504_0"
 " rhs505_0)"
-"(let-values(((s_847)"
+"(let-values(((s_836)"
 "(cdr"
-" s_845)))"
-"(let-values(((s_848)"
+" s_834)))"
+"(let-values(((s_837)"
 "(if(syntax?$1"
-" s_847)"
+" s_836)"
 "(syntax-e$1"
-" s_847)"
-" s_847)))"
+" s_836)"
+" s_836)))"
 "(if(pair?"
-" s_848)"
+" s_837)"
 "(let-values(((id506_0)"
-"(let-values(((s_849)"
+"(let-values(((s_838)"
 "(car"
-" s_848)))"
-"(let-values(((s_850)"
+" s_837)))"
+"(let-values(((s_839)"
 "(if(syntax?$1"
-" s_849)"
+" s_838)"
 "(syntax-e$1"
-" s_849)"
-" s_849)))"
-"(let-values(((flat-s_59)"
+" s_838)"
+" s_838)))"
+"(let-values(((flat-s_61)"
 "(to-syntax-list.1"
-" s_850)))"
+" s_839)))"
 "(if(not"
-" flat-s_59)"
+" flat-s_61)"
 "(let-values()"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                                     \"bad syntax\""
 " orig-s_88))"
 "(let-values()"
-"(let-values(((id_154)"
-"(let-values(((lst_432)"
-" flat-s_59))"
+"(let-values(((id_149)"
+"(let-values(((lst_427)"
+" flat-s_61))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
 "(#%variable-reference))"
 "(void)"
 "(let-values()"
 "(check-list"
-" lst_432)))"
-"((letrec-values(((for-loop_333)"
-"(lambda(id_155"
-" lst_433)"
+" lst_427)))"
+"((letrec-values(((for-loop_332)"
+"(lambda(id_150"
+" lst_428)"
 "(begin"
 " 'for-loop"
 "(if(pair?"
-" lst_433)"
-"(let-values(((s_851)"
+" lst_428)"
+"(let-values(((s_840)"
 "(unsafe-car"
-" lst_433))"
-"((rest_247)"
+" lst_428))"
+"((rest_256)"
 "(unsafe-cdr"
-" lst_433)))"
-"(let-values(((id_156)"
-"(let-values(((id_157)"
-" id_155))"
-"(let-values(((id_158)"
+" lst_428)))"
+"(let-values(((id_151)"
+"(let-values(((id_152)"
+" id_150))"
+"(let-values(((id_153)"
 "(let-values()"
 "(let-values(((id520_0)"
 "(let-values()"
-"(if(let-values(((or-part_409)"
+"(if(let-values(((or-part_404)"
 "(if(syntax?$1"
-" s_851)"
+" s_840)"
 "(symbol?"
 "(syntax-e$1"
-" s_851))"
+" s_840))"
 " #f)))"
-"(if or-part_409"
-" or-part_409"
+"(if or-part_404"
+" or-part_404"
 "(symbol?"
-" s_851)))"
-" s_851"
+" s_840)))"
+" s_840"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                                                                                                                                   \"not an identifier\""
 " orig-s_88"
-" s_851)))))"
+" s_840)))))"
 "(cons"
 " id520_0"
-" id_157)))))"
+" id_152)))))"
 "(values"
-" id_158)))))"
+" id_153)))))"
 "(if(not"
 " #f)"
-"(for-loop_333"
-" id_156"
-" rest_247)"
-" id_156)))"
-" id_155)))))"
-" for-loop_333)"
+"(for-loop_332"
+" id_151"
+" rest_256)"
+" id_151)))"
+" id_150)))))"
+" for-loop_332)"
 " null"
-" lst_432)))))"
+" lst_427)))))"
 "(reverse$1"
-" id_154))))))))"
+" id_149))))))))"
 "((rhs507_0)"
-"(let-values(((s_852)"
+"(let-values(((s_841)"
 "(cdr"
-" s_848)))"
-"(let-values(((s_853)"
+" s_837)))"
+"(let-values(((s_842)"
 "(if(syntax?$1"
-" s_852)"
+" s_841)"
 "(syntax-e$1"
-" s_852)"
-" s_852)))"
+" s_841)"
+" s_841)))"
 "(if(pair?"
-" s_853)"
+" s_842)"
 "(let-values(((rhs508_0)"
-"(let-values(((s_854)"
+"(let-values(((s_843)"
 "(car"
-" s_853)))"
-" s_854))"
+" s_842)))"
+" s_843))"
 "(()"
-"(let-values(((s_855)"
+"(let-values(((s_567)"
 "(cdr"
-" s_853)))"
-"(let-values(((s_856)"
+" s_842)))"
+"(let-values(((s_844)"
 "(if(syntax?$1"
-" s_855)"
+" s_567)"
 "(syntax-e$1"
-" s_855)"
-" s_855)))"
+" s_567)"
+" s_567)))"
 "(if(null?"
-" s_856)"
+" s_844)"
 "(values)"
 "(raise-syntax-error$1"
 " #f"
@@ -75899,33 +74140,31 @@ static const char *startup_source =
 " define-syntaxes500_1"
 " id501_1"
 " rhs502_1))))))"
-"(let-values(((ids_45)"
+"(let-values(((ids_46)"
 "(remove-use-site-scopes"
 " id501_0"
 " partial-body-ctx_1)))"
 "(let-values((()"
 "(begin"
 "(let-values(((ids509_0)"
-" ids_45)"
+" ids_46)"
 "((phase510_0)"
-" phase_158)"
+" phase_148)"
 "((exp-body511_0)"
 " exp-body_7))"
-"(check-no-duplicate-ids8.1"
-" #f"
-" #f"
+"(check-no-duplicate-ids7.1"
+" unsafe-undefined"
 " ids509_0"
 " phase510_0"
 " exp-body511_0"
-" #f"
-" #f))"
+" unsafe-undefined))"
 "(values))))"
 "(let-values((()"
 "(begin"
 "(let-values(((ids512_0)"
-" ids_45)"
+" ids_46)"
 "((phase513_0)"
-" phase_158)"
+" phase_148)"
 "((requires+provides514_0)"
 " requires+provides_7)"
 "((exp-body515_0)"
@@ -75936,19 +74175,19 @@ static const char *startup_source =
 " phase513_0"
 " requires+provides514_0))"
 "(values))))"
-"(let-values(((syms_24)"
+"(let-values(((syms_23)"
 "(let-values(((ids521_0)"
-" ids_45)"
+" ids_46)"
 "((defined-syms522_0)"
 " defined-syms_12)"
 "((self523_0)"
-" self_33)"
+" self_34)"
 "((phase524_0)"
-" phase_158)"
+" phase_148)"
 "((all-scopes-stx525_0)"
 " all-scopes-stx_5)"
 "((frame-id526_0)"
-" frame-id_16)"
+" frame-id_17)"
 "((requires+provides527_0)"
 " requires+provides_7)"
 "((exp-body528_0)"
@@ -75957,13 +74196,9 @@ static const char *startup_source =
 " #t))"
 "(select-defined-syms-and-bind!16.1"
 " temp529_0"
-" #t"
 " frame-id526_0"
 " exp-body528_0"
-" #t"
 " requires+provides527_0"
-" #t"
-" #f"
 " #f"
 " ids521_0"
 " defined-syms522_0"
@@ -75975,14 +74210,13 @@ static const char *startup_source =
 "(let-values(((requires+provides516_0)"
 " requires+provides_7)"
 "((syms517_0)"
-" syms_24)"
+" syms_23)"
 "((phase518_0)"
-" phase_158)"
+" phase_148)"
 "((temp519_0)"
 " #t))"
 "(add-defined-syms!103.1"
 " temp519_0"
-" #t"
 " requires+provides516_0"
 " syms517_0"
 " phase518_0))"
@@ -75995,22 +74229,22 @@ static const char *startup_source =
 "((temp531_0)"
 " rhs502_0)"
 "((ids532_0)"
-" ids_45)"
+" ids_46)"
 "((temp533_0)"
-"(let-values(((v_276)"
+"(let-values(((v_275)"
 " partial-body-ctx_1))"
-"(let-values(((the-struct_114)"
-" v_276))"
+"(let-values(((the-struct_110)"
+" v_275))"
 "(if(expand-context/outer?"
-" the-struct_114)"
+" the-struct_110)"
 "(let-values(((need-eventually-defined535_0)"
 " need-eventually-defined_2)"
 "((inner536_0)"
-"(let-values(((the-struct_115)"
+"(let-values(((the-struct_111)"
 "(root-expand-context/outer-inner"
-" v_276)))"
+" v_275)))"
 "(if(expand-context/inner?"
-" the-struct_115)"
+" the-struct_111)"
 "(let-values(((lifts537_0)"
 " #f)"
 "((module-lifts538_0)"
@@ -76019,159 +74253,158 @@ static const char *startup_source =
 " #f))"
 "(expand-context/inner2.1"
 "(root-expand-context/inner-self-mpi"
-" the-struct_115)"
+" the-struct_111)"
 "(root-expand-context/inner-module-scopes"
-" the-struct_115)"
+" the-struct_111)"
 "(root-expand-context/inner-top-level-bind-scope"
-" the-struct_115)"
+" the-struct_111)"
 "(root-expand-context/inner-all-scopes-stx"
-" the-struct_115)"
+" the-struct_111)"
 "(root-expand-context/inner-defined-syms"
-" the-struct_115)"
+" the-struct_111)"
 "(root-expand-context/inner-counter"
-" the-struct_115)"
+" the-struct_111)"
 "(root-expand-context/inner-lift-key"
-" the-struct_115)"
+" the-struct_111)"
 "(expand-context/inner-to-parsed?"
-" the-struct_115)"
+" the-struct_111)"
 "(expand-context/inner-phase"
-" the-struct_115)"
+" the-struct_111)"
 "(expand-context/inner-namespace"
-" the-struct_115)"
+" the-struct_111)"
 "(expand-context/inner-just-once?"
-" the-struct_115)"
+" the-struct_111)"
 "(expand-context/inner-module-begin-k"
-" the-struct_115)"
+" the-struct_111)"
 "(expand-context/inner-allow-unbound?"
-" the-struct_115)"
+" the-struct_111)"
 "(expand-context/inner-in-local-expand?"
-" the-struct_115)"
+" the-struct_111)"
 "(expand-context/inner-keep-#%expression?"
-" the-struct_115)"
+" the-struct_111)"
 "(expand-context/inner-stops"
-" the-struct_115)"
+" the-struct_111)"
 "(expand-context/inner-declared-submodule-names"
-" the-struct_115)"
+" the-struct_111)"
 " lifts537_0"
 "(expand-context/inner-lift-envs"
-" the-struct_115)"
+" the-struct_111)"
 " module-lifts538_0"
 "(expand-context/inner-require-lifts"
-" the-struct_115)"
+" the-struct_111)"
 " to-module-lifts539_0"
 "(expand-context/inner-requires+provides"
-" the-struct_115)"
+" the-struct_111)"
 "(expand-context/inner-observer"
-" the-struct_115)"
+" the-struct_111)"
 "(expand-context/inner-for-serializable?"
-" the-struct_115)"
+" the-struct_111)"
 "(expand-context/inner-should-not-encounter-macros?"
-" the-struct_115)))"
+" the-struct_111)))"
 "(raise-argument-error"
 " 'struct-copy"
 "                                                                                                                                                                                     \"expand-context/inner?\""
-" the-struct_115)))))"
+" the-struct_111)))))"
 "(expand-context/outer1.1"
 " inner536_0"
 "(root-expand-context/outer-post-expansion-scope"
-" the-struct_114)"
+" the-struct_110)"
 "(root-expand-context/outer-use-site-scopes"
-" the-struct_114)"
+" the-struct_110)"
 "(root-expand-context/outer-frame-id"
-" the-struct_114)"
+" the-struct_110)"
 "(expand-context/outer-context"
-" the-struct_114)"
+" the-struct_110)"
 "(expand-context/outer-env"
-" the-struct_114)"
+" the-struct_110)"
 "(expand-context/outer-post-expansion-scope-action"
-" the-struct_114)"
+" the-struct_110)"
 "(expand-context/outer-scopes"
-" the-struct_114)"
+" the-struct_110)"
 "(expand-context/outer-def-ctx-scopes"
-" the-struct_114)"
+" the-struct_110)"
 "(expand-context/outer-binding-layer"
-" the-struct_114)"
+" the-struct_110)"
 "(expand-context/outer-reference-records"
-" the-struct_114)"
+" the-struct_110)"
 "(expand-context/outer-only-immediate?"
-" the-struct_114)"
+" the-struct_110)"
 " need-eventually-defined535_0"
 "(expand-context/outer-current-introduction-scopes"
-" the-struct_114)"
+" the-struct_110)"
 "(expand-context/outer-name"
-" the-struct_114)))"
+" the-struct_110)))"
 "(raise-argument-error"
 " 'struct-copy"
 "                                                                                                                                                                   \"expand-context/outer?\""
-" the-struct_114)))))"
+" the-struct_110)))))"
 "((temp534_0)"
 " #f))"
-"(expand+eval-for-syntaxes-binding109.1"
+"(expand+eval-for-syntaxes-binding108.1"
 " temp534_0"
-" #t"
 " temp530_0"
 " temp531_0"
 " ids532_0"
 " temp533_0))))"
 "(let-values((()"
 "(begin"
-"(let-values(((lst_434)"
-" syms_24)"
-"((lst_435)"
+"(let-values(((lst_429)"
+" syms_23)"
+"((lst_430)"
 " vals_10)"
-"((lst_436)"
-" ids_45))"
+"((lst_431)"
+" ids_46))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
 "(#%variable-reference))"
 "(void)"
 "(let-values()"
 "(check-list"
-" lst_434)))"
+" lst_429)))"
 "(if(variable-reference-from-unsafe?"
 "(#%variable-reference))"
 "(void)"
 "(let-values()"
 "(check-list"
-" lst_435)))"
+" lst_430)))"
 "(if(variable-reference-from-unsafe?"
 "(#%variable-reference))"
 "(void)"
 "(let-values()"
 "(check-list"
-" lst_436)))"
-"((letrec-values(((for-loop_334)"
-"(lambda(lst_437"
-" lst_438"
-" lst_439)"
+" lst_431)))"
+"((letrec-values(((for-loop_333)"
+"(lambda(lst_432"
+" lst_433"
+" lst_434)"
 "(begin"
 " 'for-loop"
 "(if(if(pair?"
-" lst_437)"
+" lst_432)"
 "(if(pair?"
-" lst_438)"
+" lst_433)"
 "(pair?"
-" lst_439)"
+" lst_434)"
 " #f)"
 " #f)"
-"(let-values(((sym_48)"
+"(let-values(((sym_109)"
 "(unsafe-car"
-" lst_437))"
-"((rest_248)"
+" lst_432))"
+"((rest_257)"
 "(unsafe-cdr"
-" lst_437))"
-"((val_88)"
+" lst_432))"
+"((val_87)"
 "(unsafe-car"
-" lst_438))"
-"((rest_249)"
+" lst_433))"
+"((rest_258)"
 "(unsafe-cdr"
-" lst_438))"
-"((id_159)"
+" lst_433))"
+"((id_154)"
 "(unsafe-car"
-" lst_439))"
-"((rest_250)"
+" lst_434))"
+"((rest_259)"
 "(unsafe-cdr"
-" lst_439)))"
+" lst_434)))"
 "(let-values((()"
 "(let-values()"
 "(let-values((()"
@@ -76180,47 +74413,47 @@ static const char *startup_source =
 "(let-values()"
 "(begin"
 "(maybe-install-free=id-in-context!"
-" val_88"
-" id_159"
-" phase_158"
+" val_87"
+" id_154"
+" phase_148"
 " partial-body-ctx_1)"
 "(namespace-set-transformer!"
-" m-ns_19"
-" phase_158"
-" sym_48"
-" val_88)))"
+" m-ns_20"
+" phase_148"
+" sym_109"
+" val_87)))"
 "(values)))))"
 "(values)))))"
 "(if(not"
 " #f)"
-"(for-loop_334"
-" rest_248"
-" rest_249"
-" rest_250)"
+"(for-loop_333"
+" rest_257"
+" rest_258"
+" rest_259)"
 "(values))))"
 "(values))))))"
-" for-loop_334)"
-" lst_434"
-" lst_435"
-" lst_436)))"
+" for-loop_333)"
+" lst_429"
+" lst_430"
+" lst_431)))"
 "(values))))"
 "(let-values()"
 "(let-values((()"
 "(begin"
-"(let-values(((obs_151)"
+"(let-values(((obs_150)"
 "(expand-context-observer"
 " partial-body-ctx_1)))"
-"(if obs_151"
+"(if obs_150"
 "(let-values()"
 "(let-values()"
 "(call-expand-observe"
-" obs_151"
+" obs_150"
 " 'exit-prim"
 "(datum->syntax$1"
 " #f"
 "(list"
 " define-syntaxes500_0"
-" ids_45"
+" ids_46"
 " exp-rhs_6)))))"
 "(void)))"
 "(values))))"
@@ -76228,8 +74461,8 @@ static const char *startup_source =
 "(parsed-define-syntaxes20.1"
 "(keep-properties-only"
 " exp-body_7)"
-" ids_45"
-" syms_24"
+" ids_46"
+" syms_23"
 " parsed-rhs_2)))"
 "(cons"
 "(if(expand-context-to-parsed?"
@@ -76241,16 +74474,15 @@ static const char *startup_source =
 "((temp541_0)"
 "(list"
 " define-syntaxes500_0"
-" ids_45"
+" ids_46"
 " exp-rhs_6)))"
 "(rebuild5.1"
-" #f"
-" #f"
+" #t"
 " exp-body540_0"
 " temp541_0))"
 " parsed-body_0))"
-"(loop_127"
-" tail?_52"
+"(loop_124"
+" tail?_53"
 " rest-bodys_1)))))))))))))))))"
 "(if(equal?"
 " tmp_65"
@@ -76258,19 +74490,19 @@ static const char *startup_source =
 "(let-values()"
 "(let-values((()"
 "(begin"
-"(let-values(((obs_152)"
+"(let-values(((obs_151)"
 "(expand-context-observer"
 " partial-body-ctx_1)))"
-"(if obs_152"
+"(if obs_151"
 "(let-values()"
 "(let-values()"
 "(begin"
 "(call-expand-observe"
-" obs_152"
+" obs_151"
 " 'enter-prim"
 " exp-body_7)"
 "(call-expand-observe"
-" obs_152"
+" obs_151"
 " 'prim-require))))"
 "(void)))"
 "(values))))"
@@ -76278,50 +74510,50 @@ static const char *startup_source =
 "(remove-use-site-scopes"
 " disarmed-exp-body_1"
 " partial-body-ctx_1)))"
-"(let-values(((ok?_84"
+"(let-values(((ok?_85"
 " #%require542_0"
 " req543_0)"
-"(let-values(((s_857)"
+"(let-values(((s_576)"
 " ready-body_0))"
 "(let-values(((orig-s_89)"
-" s_857))"
+" s_576))"
 "(let-values(((#%require542_1"
 " req543_1)"
-"(let-values(((s_858)"
+"(let-values(((s_578)"
 "(if(syntax?$1"
-" s_857)"
+" s_576)"
 "(syntax-e$1"
-" s_857)"
-" s_857)))"
+" s_576)"
+" s_576)))"
 "(if(pair?"
-" s_858)"
+" s_578)"
 "(let-values(((#%require544_0)"
-"(let-values(((s_859)"
+"(let-values(((s_845)"
 "(car"
-" s_858)))"
-" s_859))"
+" s_578)))"
+" s_845))"
 "((req545_0)"
-"(let-values(((s_860)"
+"(let-values(((s_846)"
 "(cdr"
-" s_858)))"
-"(let-values(((s_861)"
+" s_578)))"
+"(let-values(((s_847)"
 "(if(syntax?$1"
-" s_860)"
+" s_846)"
 "(syntax-e$1"
-" s_860)"
-" s_860)))"
-"(let-values(((flat-s_60)"
+" s_846)"
+" s_846)))"
+"(let-values(((flat-s_62)"
 "(to-syntax-list.1"
-" s_861)))"
+" s_847)))"
 "(if(not"
-" flat-s_60)"
+" flat-s_62)"
 "(let-values()"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                 \"bad syntax\""
 " orig-s_89))"
 "(let-values()"
-" flat-s_60)))))))"
+" flat-s_62)))))))"
 "(values"
 " #%require544_0"
 " req545_0))"
@@ -76339,13 +74571,13 @@ static const char *startup_source =
 "((exp-body547_0)"
 " exp-body_7)"
 "((self548_0)"
-" self_33)"
+" self_34)"
 "((m-ns549_0)"
-" m-ns_19)"
+" m-ns_20)"
 "((phase550_0)"
-" phase_158)"
+" phase_148)"
 "((phase551_0)"
-" phase_158)"
+" phase_148)"
 "((requires+provides552_0)"
 " requires+provides_7)"
 "((declared-submodule-names553_0)"
@@ -76355,43 +74587,34 @@ static const char *startup_source =
 "(parse-and-perform-requires!30.1"
 " #f"
 " #f"
-" #f"
-" #f"
 " declared-submodule-names553_0"
-" #t"
-" #f"
 " #f"
 " phase551_0"
-" #t"
-" #f"
 " #f"
 " self548_0"
+" #f"
 " #t"
-" #f"
-" #f"
-" #f"
-" #f"
 " temp554_0"
 " temp546_0"
 " exp-body547_0"
 " m-ns549_0"
 " phase550_0"
 " requires+provides552_0))"
-"(let-values(((obs_153)"
+"(let-values(((obs_152)"
 "(expand-context-observer"
 " partial-body-ctx_1)))"
-"(if obs_153"
+"(if obs_152"
 "(let-values()"
 "(let-values()"
 "(call-expand-observe"
-" obs_153"
+" obs_152"
 " 'exit-prim"
 " ready-body_0)))"
 "(void)))"
 "(cons"
 " exp-body_7"
-"(loop_127"
-" tail?_52"
+"(loop_124"
+" tail?_53"
 " rest-bodys_1)))))))"
 "(if(equal?"
 " tmp_65"
@@ -76399,8 +74622,8 @@ static const char *startup_source =
 "(let-values()"
 "(cons"
 " exp-body_7"
-"(loop_127"
-" tail?_52"
+"(loop_124"
+" tail?_53"
 " rest-bodys_1)))"
 "(if(equal?"
 " tmp_65"
@@ -76414,7 +74637,7 @@ static const char *startup_source =
 "(let-values(((ready-body555_0)"
 " ready-body_1)"
 "((self556_0)"
-" self_33)"
+" self_34)"
 "((partial-body-ctx557_0)"
 " partial-body-ctx_1)"
 "((temp558_0)"
@@ -76433,12 +74656,8 @@ static const char *startup_source =
 " #f"
 " #f"
 " #f"
-" #f"
-" #f"
-" #f"
 " temp558_0"
 " #f"
-" #f"
 " modules-being-compiled562_0"
 " mpis-to-reset560_0"
 " ready-body555_0"
@@ -76446,86 +74665,86 @@ static const char *startup_source =
 " partial-body-ctx557_0))))"
 "(cons"
 " submod_2"
-"(loop_127"
-" tail?_52"
+"(loop_124"
+" tail?_53"
 " rest-bodys_1)))))"
 "(if(equal?"
 " tmp_65"
 " 'module*)"
 "(let-values()"
 "(begin"
-"(let-values(((obs_154)"
+"(let-values(((obs_153)"
 "(expand-context-observer"
 " partial-body-ctx_1)))"
-"(if obs_154"
+"(if obs_153"
 "(let-values()"
 "(let-values()"
 "(begin"
 "(call-expand-observe"
-" obs_154"
+" obs_153"
 " 'enter-prim"
 " exp-body_7)"
 "(call-expand-observe"
-" obs_154"
+" obs_153"
 " 'prim-submodule*)"
 "(call-expand-observe"
-" obs_154"
+" obs_153"
 " 'exit-prim"
 " exp-body_7))))"
 "(void)))"
 "(cons"
 " exp-body_7"
-"(loop_127"
-" tail?_52"
+"(loop_124"
+" tail?_53"
 " rest-bodys_1))))"
 "(if(equal?"
 " tmp_65"
 " '#%declare)"
 "(let-values()"
-"(let-values(((ok?_85"
+"(let-values(((ok?_86"
 " #%declare563_0"
 " kw564_0)"
-"(let-values(((s_862)"
+"(let-values(((s_848)"
 " disarmed-exp-body_1))"
 "(let-values(((orig-s_90)"
-" s_862))"
+" s_848))"
 "(let-values(((#%declare563_1"
 " kw564_1)"
-"(let-values(((s_863)"
+"(let-values(((s_849)"
 "(if(syntax?$1"
-" s_862)"
+" s_848)"
 "(syntax-e$1"
-" s_862)"
-" s_862)))"
+" s_848)"
+" s_848)))"
 "(if(pair?"
-" s_863)"
+" s_849)"
 "(let-values(((#%declare565_0)"
-"(let-values(((s_864)"
+"(let-values(((s_850)"
 "(car"
-" s_863)))"
-" s_864))"
+" s_849)))"
+" s_850))"
 "((kw566_0)"
-"(let-values(((s_865)"
+"(let-values(((s_273)"
 "(cdr"
-" s_863)))"
-"(let-values(((s_866)"
+" s_849)))"
+"(let-values(((s_851)"
 "(if(syntax?$1"
-" s_865)"
+" s_273)"
 "(syntax-e$1"
-" s_865)"
-" s_865)))"
-"(let-values(((flat-s_61)"
+" s_273)"
+" s_273)))"
+"(let-values(((flat-s_63)"
 "(to-syntax-list.1"
-" s_866)))"
+" s_851)))"
 "(if(not"
-" flat-s_61)"
+" flat-s_63)"
 "(let-values()"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                     \"bad syntax\""
 " orig-s_90))"
 "(let-values()"
-" flat-s_61)))))))"
+" flat-s_63)))))))"
 "(values"
 " #%declare565_0"
 " kw566_0))"
@@ -76539,7 +74758,7 @@ static const char *startup_source =
 " kw564_1))))))"
 "(let-values((()"
 "(begin"
-"(let-values(((lst_440)"
+"(let-values(((lst_435)"
 " kw564_0))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
@@ -76547,19 +74766,19 @@ static const char *startup_source =
 "(void)"
 "(let-values()"
 "(check-list"
-" lst_440)))"
-"((letrec-values(((for-loop_335)"
-"(lambda(lst_441)"
+" lst_435)))"
+"((letrec-values(((for-loop_334)"
+"(lambda(lst_436)"
 "(begin"
 " 'for-loop"
 "(if(pair?"
-" lst_441)"
+" lst_436)"
 "(let-values(((kw_1)"
 "(unsafe-car"
-" lst_441))"
-"((rest_251)"
+" lst_436))"
+"((rest_260)"
 "(unsafe-cdr"
-" lst_441)))"
+" lst_436)))"
 "(let-values((()"
 "(let-values()"
 "(let-values((()"
@@ -76610,12 +74829,12 @@ static const char *startup_source =
 "(values)))))"
 "(if(not"
 " #f)"
-"(for-loop_335"
-" rest_251)"
+"(for-loop_334"
+" rest_260)"
 "(values))))"
 "(values))))))"
-" for-loop_335)"
-" lst_440)))"
+" for-loop_334)"
+" lst_435)))"
 "(values))))"
 "(let-values()"
 "(let-values(((parsed-body_1)"
@@ -76628,14 +74847,14 @@ static const char *startup_source =
 "(expanded+parsed1.1"
 " exp-body_7"
 " parsed-body_1))"
-"(loop_127"
-" tail?_52"
+"(loop_124"
+" tail?_53"
 " rest-bodys_1)))))))"
 "(let-values()"
 "(cons"
 " exp-body_7"
-"(loop_127"
-" tail?_52"
+"(loop_124"
+" tail?_53"
 " rest-bodys_1)))))))))))))))))"
 "(let-values(((l_88)"
 "(append"
@@ -76643,7 +74862,7 @@ static const char *startup_source =
 "(expand-context-require-lifts"
 " partial-body-ctx_1))"
 " lifted-defns_0"
-"(loop_127"
+"(loop_124"
 " #f"
 "(add-post-expansion-scope"
 "(get-and-clear-module-lifts!"
@@ -76655,107 +74874,103 @@ static const char *startup_source =
 "(append"
 " l_88"
 "(finish_2)))))))))))))))))"
-" loop_127)"
+" loop_124)"
 " #t"
-" bodys_19))))))))))))))))))))))"
+" bodys_20))))))))))))))))))))))"
 "(define-values"
 "(make-wrap-as-definition)"
-"(lambda(self_34 frame-id_17 inside-scope_2 all-scopes-stx_6 defined-syms_13 requires+provides_8)"
+"(lambda(self_35 frame-id_18 inside-scope_2 all-scopes-stx_6 defined-syms_13 requires+provides_8)"
 "(begin"
-"(lambda(ids_46 rhs_23 phase_159)"
+"(lambda(ids_47 rhs_23 phase_149)"
 "(let-values(((scoped-ids_0)"
 "(reverse$1"
-"(let-values(((lst_442) ids_46))"
+"(let-values(((lst_437) ids_47))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
-"(let-values()(check-list lst_442)))"
-"((letrec-values(((for-loop_336)"
-"(lambda(fold-var_386 lst_443)"
+"(let-values()(check-list lst_437)))"
+"((letrec-values(((for-loop_335)"
+"(lambda(fold-var_377 lst_438)"
 "(begin"
 " 'for-loop"
-"(if(pair? lst_443)"
-"(let-values(((id_160)(unsafe-car lst_443))"
-"((rest_252)(unsafe-cdr lst_443)))"
-"(let-values(((fold-var_387)"
-"(let-values(((fold-var_388) fold-var_386))"
-"(let-values(((fold-var_389)"
+"(if(pair? lst_438)"
+"(let-values(((id_155)(unsafe-car lst_438))"
+"((rest_261)(unsafe-cdr lst_438)))"
+"(let-values(((fold-var_378)"
+"(let-values(((fold-var_379) fold-var_377))"
+"(let-values(((fold-var_380)"
 "(let-values()"
 "(cons"
 "(let-values()"
 "(add-scope"
-" id_160"
+" id_155"
 " inside-scope_2))"
-" fold-var_388))))"
-"(values fold-var_389)))))"
-"(if(not #f)(for-loop_336 fold-var_387 rest_252) fold-var_387)))"
-" fold-var_386)))))"
-" for-loop_336)"
+" fold-var_379))))"
+"(values fold-var_380)))))"
+"(if(not #f)(for-loop_335 fold-var_378 rest_261) fold-var_378)))"
+" fold-var_377)))))"
+" for-loop_335)"
 " null"
-" lst_442))))))"
-"(let-values(((syms_25)"
+" lst_437))))))"
+"(let-values(((syms_24)"
 "(let-values(((scoped-ids567_0) scoped-ids_0)"
 "((defined-syms568_0) defined-syms_13)"
-"((self569_0) self_34)"
-"((phase570_0) phase_159)"
+"((self569_0) self_35)"
+"((phase570_0) phase_149)"
 "((all-scopes-stx571_0) all-scopes-stx_6)"
-"((frame-id572_0) frame-id_17)"
+"((frame-id572_0) frame-id_18)"
 "((requires+provides573_0) requires+provides_8))"
 "(select-defined-syms-and-bind!16.1"
 " #f"
-" #f"
 " frame-id572_0"
 " #f"
-" #f"
 " requires+provides573_0"
-" #t"
-" #f"
 " #f"
 " scoped-ids567_0"
 " defined-syms568_0"
 " self569_0"
 " phase570_0"
 " all-scopes-stx571_0))))"
-"(let-values(((s_595)"
+"(let-values(((s_852)"
 "(add-scope"
 "(datum->syntax$1"
 " #f"
 "(list"
-"(datum->syntax$1(syntax-shift-phase-level$1 core-stx phase_159) 'define-values)"
+"(datum->syntax$1(syntax-shift-phase-level$1 core-stx phase_149) 'define-values)"
 " scoped-ids_0"
 " rhs_23))"
 " inside-scope_2)))"
-"(values scoped-ids_0(semi-parsed-define-values2.1 s_595 syms_25 scoped-ids_0 rhs_23)))))))))"
+"(values scoped-ids_0(semi-parsed-define-values2.1 s_852 syms_24 scoped-ids_0 rhs_23)))))))))"
 "(define-values"
 "(add-post-expansion-scope)"
-"(lambda(bodys_22 ctx_116)"
+"(lambda(bodys_23 ctx_114)"
 "(begin"
-"(let-values(((sc_39)(root-expand-context-post-expansion-scope ctx_116)))"
-"(if sc_39"
+"(let-values(((sc_40)(root-expand-context-post-expansion-scope ctx_114)))"
+"(if sc_40"
 "(reverse$1"
-"(let-values(((lst_444) bodys_22))"
+"(let-values(((lst_439) bodys_23))"
 "(begin"
-"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_444)))"
-"((letrec-values(((for-loop_337)"
-"(lambda(fold-var_390 lst_445)"
+"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_439)))"
+"((letrec-values(((for-loop_336)"
+"(lambda(fold-var_381 lst_440)"
 "(begin"
 " 'for-loop"
-"(if(pair? lst_445)"
-"(let-values(((body_23)(unsafe-car lst_445))((rest_253)(unsafe-cdr lst_445)))"
-"(let-values(((fold-var_391)"
-"(let-values(((fold-var_392) fold-var_390))"
-"(let-values(((fold-var_393)"
+"(if(pair? lst_440)"
+"(let-values(((body_21)(unsafe-car lst_440))((rest_262)(unsafe-cdr lst_440)))"
+"(let-values(((fold-var_382)"
+"(let-values(((fold-var_383) fold-var_381))"
+"(let-values(((fold-var_384)"
 "(let-values()"
 "(cons"
-"(let-values()(add-scope body_23 sc_39))"
-" fold-var_392))))"
-"(values fold-var_393)))))"
-"(if(not #f)(for-loop_337 fold-var_391 rest_253) fold-var_391)))"
-" fold-var_390)))))"
-" for-loop_337)"
+"(let-values()(add-scope body_21 sc_40))"
+" fold-var_383))))"
+"(values fold-var_384)))))"
+"(if(not #f)(for-loop_336 fold-var_382 rest_262) fold-var_382)))"
+" fold-var_381)))))"
+" for-loop_336)"
 " null"
-" lst_444))))"
-" bodys_22)))))"
+" lst_439))))"
+" bodys_23)))))"
 "(define-values"
 "(finish-expanding-body-expressons99.1)"
 "(lambda(compiled-submodules88_0"
@@ -76769,24 +74984,46 @@ static const char *startup_source =
 "(begin"
 " 'finish-expanding-body-expressons99"
 "(let-values(((partially-expanded-bodys_1) partially-expanded-bodys98_0))"
-"(let-values(((phase_160) phase84_0))"
+"(let-values(((phase_150) phase84_0))"
 "(let-values(((body-ctx_7) ctx85_0))"
-"(let-values(((self_35) self86_0))"
+"(let-values(((self_36) self86_0))"
 "(let-values(((declared-submodule-names_5) declared-submodule-names87_0))"
 "(let-values(((compiled-submodules_3) compiled-submodules88_0))"
 "(let-values(((modules-being-compiled_5) modules-being-compiled89_0))"
 "(let-values(((mpis-to-reset_2) mpis-to-reset90_0))"
 "(let-values()"
-"((letrec-values(((loop_128)"
-"(lambda(tail?_53 bodys_23)"
+"((letrec-values(((loop_125)"
+"(lambda(tail?_54 bodys_24)"
 "(begin"
 " 'loop"
-"(if(null? bodys_23)"
+"(if(null? bodys_24)"
 "(let-values()"
-"(if(if tail?_53(not(zero? phase_160)) #f)"
+"(if(if tail?_54(not(zero? phase_150)) #f)"
 "(let-values()"
 "(begin"
-"(let-values(((obs_155)(expand-context-observer body-ctx_7)))"
+"(let-values(((obs_154)(expand-context-observer body-ctx_7)))"
+"(if obs_154"
+"(let-values()"
+"(let-values()"
+"(call-expand-observe"
+" obs_154"
+" 'module-lift-end-loop"
+" '())))"
+"(void)))"
+" null))"
+"(if tail?_54"
+"(let-values()"
+"(let-values(((bodys_25)"
+"(append"
+"(get-and-clear-end-lifts!"
+"(expand-context-to-module-lifts body-ctx_7))"
+"(get-and-clear-provide-lifts!"
+"(expand-context-to-module-lifts body-ctx_7)))))"
+"(if(null? bodys_25)"
+"(let-values()"
+"(begin"
+"(let-values(((obs_155)"
+"(expand-context-observer body-ctx_7)))"
 "(if obs_155"
 "(let-values()"
 "(let-values()"
@@ -76796,151 +75033,129 @@ static const char *startup_source =
 " '())))"
 "(void)))"
 " null))"
-"(if tail?_53"
 "(let-values()"
-"(let-values(((bodys_24)"
-"(append"
-"(get-and-clear-end-lifts!"
-"(expand-context-to-module-lifts body-ctx_7))"
-"(get-and-clear-provide-lifts!"
-"(expand-context-to-module-lifts body-ctx_7)))))"
-"(if(null? bodys_24)"
+"(loop_125"
+" #t"
+"(add-post-expansion-scope bodys_25 body-ctx_7))))))"
+"(let-values() null))))"
 "(let-values()"
+"(let-values((()"
 "(begin"
 "(let-values(((obs_156)"
 "(expand-context-observer body-ctx_7)))"
 "(if obs_156"
 "(let-values()"
 "(let-values()"
-"(call-expand-observe"
-" obs_156"
-" 'module-lift-end-loop"
-" '())))"
-"(void)))"
-" null))"
-"(let-values()"
-"(loop_128"
-" #t"
-"(add-post-expansion-scope bodys_24 body-ctx_7))))))"
-"(let-values() null))))"
-"(let-values()"
-"(let-values((()"
-"(begin"
-"(let-values(((obs_157)"
-"(expand-context-observer body-ctx_7)))"
-"(if obs_157"
-"(let-values()"
-"(let-values()"
-"(call-expand-observe obs_157 'next)))"
+"(call-expand-observe obs_156 'next)))"
 "(void)))"
 "(values))))"
-"(let-values(((body_24)(car bodys_23)))"
-"(let-values(((rest-bodys_2)(cdr bodys_23)))"
+"(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_410)"
-"(parsed? body_24)))"
-"(if or-part_410"
-" or-part_410"
-"(let-values(((or-part_411)"
-"(expanded+parsed? body_24)))"
-"(if or-part_411"
-" or-part_411"
+"(if(let-values(((or-part_405)"
+"(parsed? body_22)))"
+"(if or-part_405"
+" or-part_405"
+"(let-values(((or-part_406)"
+"(expanded+parsed? body_22)))"
+"(if or-part_406"
+" or-part_406"
 "(semi-parsed-begin-for-syntax?"
-" body_24)))))"
-"(let-values() body_24)"
-"(if(semi-parsed-define-values? body_24)"
+" body_22)))))"
+"(let-values() body_22)"
+"(if(semi-parsed-define-values? body_22)"
 "(let-values()"
-"(let-values(((ids_47)"
+"(let-values(((ids_48)"
 "(semi-parsed-define-values-ids"
-" body_24)))"
+" body_22)))"
 "(let-values(((rhs-ctx_2)"
 "(as-named-context"
 "(as-expression-context"
 " body-ctx_7)"
-" ids_47)))"
-"(let-values(((syms_26)"
+" ids_48)))"
+"(let-values(((syms_25)"
 "(semi-parsed-define-values-syms"
-" body_24)))"
-"(let-values(((s_623)"
+" body_22)))"
+"(let-values(((s_853)"
 "(semi-parsed-define-values-s"
-" body_24)))"
-"(let-values(((ok?_86"
+" body_22)))"
+"(let-values(((ok?_87"
 " define-values574_0"
 " _575_0"
 " _576_0)"
-"(let-values(((s_867)"
+"(let-values(((s_854)"
 "(syntax-disarm$1"
-" s_623)))"
+" s_853)))"
 "(if(if(not"
 "(expand-context-to-parsed?"
 " rhs-ctx_2))"
 " #t"
 " #f)"
 "(let-values(((orig-s_91)"
-" s_867))"
+" s_854))"
 "(let-values(((define-values574_1"
 " _575_1"
 " _576_1)"
-"(let-values(((s_868)"
+"(let-values(((s_855)"
 "(if(syntax?$1"
-" s_867)"
+" s_854)"
 "(syntax-e$1"
-" s_867)"
-" s_867)))"
+" s_854)"
+" s_854)))"
 "(if(pair?"
-" s_868)"
+" s_855)"
 "(let-values(((define-values577_0)"
-"(let-values(((s_869)"
+"(let-values(((s_856)"
 "(car"
-" s_868)))"
-" s_869))"
+" s_855)))"
+" s_856))"
 "((_578_0"
 " _579_0)"
-"(let-values(((s_870)"
+"(let-values(((s_857)"
 "(cdr"
-" s_868)))"
-"(let-values(((s_871)"
+" s_855)))"
+"(let-values(((s_858)"
 "(if(syntax?$1"
-" s_870)"
+" s_857)"
 "(syntax-e$1"
-" s_870)"
-" s_870)))"
+" s_857)"
+" s_857)))"
 "(if(pair?"
-" s_871)"
+" s_858)"
 "(let-values(((_580_0)"
-"(let-values(((s_872)"
+"(let-values(((s_859)"
 "(car"
-" s_871)))"
-" s_872))"
+" s_858)))"
+" s_859))"
 "((_581_0)"
-"(let-values(((s_873)"
+"(let-values(((s_860)"
 "(cdr"
-" s_871)))"
-"(let-values(((s_874)"
+" s_858)))"
+"(let-values(((s_861)"
 "(if(syntax?$1"
-" s_873)"
+" s_860)"
 "(syntax-e$1"
-" s_873)"
-" s_873)))"
+" s_860)"
+" s_860)))"
 "(if(pair?"
-" s_874)"
+" s_861)"
 "(let-values(((_582_0)"
-"(let-values(((s_875)"
+"(let-values(((s_862)"
 "(car"
-" s_874)))"
-" s_875))"
+" s_861)))"
+" s_862))"
 "(()"
-"(let-values(((s_876)"
+"(let-values(((s_863)"
 "(cdr"
-" s_874)))"
-"(let-values(((s_877)"
+" s_861)))"
+"(let-values(((s_864)"
 "(if(syntax?$1"
-" s_876)"
+" s_863)"
 "(syntax-e$1"
-" s_876)"
-" s_876)))"
+" s_863)"
+" s_863)))"
 "(if(null?"
-" s_877)"
+" s_864)"
 "(values)"
 "(raise-syntax-error$1"
 " #f"
@@ -76981,52 +75196,46 @@ static const char *startup_source =
 "(let-values(((rhs-ctx583_0)"
 " rhs-ctx_2)"
 "((s584_0)"
-" s_623)"
+" s_853)"
 "((temp585_0)"
 " #t))"
-"(keep-as-needed120.1"
-" #f"
-" #f"
+"(keep-as-needed119.1"
 " #f"
 " #f"
 " temp585_0"
-" #t"
 " rhs-ctx583_0"
 " s584_0))))"
 "(let-values((()"
 "(begin"
 "(log-defn-enter"
 " body-ctx_7"
-" body_24)"
+" body_22)"
 "(values))))"
 "(let-values(((exp-rhs_7)"
 "(let-values()"
 "(let-values(((temp586_0)"
 "(semi-parsed-define-values-rhs"
-" body_24))"
+" body_22))"
 "((rhs-ctx587_0)"
 " rhs-ctx_2))"
 "(expand9.1"
 " #f"
 " #f"
 " #f"
-" #f"
-" #f"
-" #f"
 " temp586_0"
 " rhs-ctx587_0)))))"
 "(let-values((()"
 "(begin"
 "(log-defn-exit"
 " body-ctx_7"
-" body_24"
+" body_22"
 " exp-rhs_7)"
 "(values))))"
 "(let-values(((comp-form_0)"
 "(parsed-define-values19.1"
 " rebuild-s_15"
-" ids_47"
-" syms_26"
+" ids_48"
+" syms_25"
 "(if(expand-context-to-parsed?"
 " rhs-ctx_2)"
 " exp-rhs_7"
@@ -77039,9 +75248,6 @@ static const char *startup_source =
 " #f"
 " #f"
 " #f"
-" #f"
-" #f"
-" #f"
 " exp-rhs588_0"
 " temp589_0))))))"
 "(if(expand-context-to-parsed?"
@@ -77053,32 +75259,31 @@ static const char *startup_source =
 "((temp591_0)"
 "(list"
 " define-values574_0"
-" ids_47"
+" ids_48"
 " exp-rhs_7)))"
 "(rebuild5.1"
-" #f"
-" #f"
+" #t"
 " rebuild-s590_0"
 " temp591_0))"
 " comp-form_0)))))))))))))"
 "(let-values()"
 "(let-values(((disarmed-body_0)"
-"(syntax-disarm$1 body_24)))"
+"(syntax-disarm$1 body_22)))"
 "(let-values(((tmp_66)"
 "(core-form-sym"
 " disarmed-body_0"
-" phase_160)))"
+" phase_150)))"
 "(if(if(equal? tmp_66 '#%require)"
 " #t"
 "(if(equal? tmp_66 '#%provide)"
 " #t"
 "(equal? tmp_66 'module*)))"
-"(let-values() body_24)"
+"(let-values() body_22)"
 "(let-values()"
 "(let-values()"
 "(let-values(((exp-body_9)"
 "(let-values(((body592_0)"
-" body_24)"
+" body_22)"
 "((temp593_0)"
 "(as-expression-context"
 " body-ctx_7)))"
@@ -77086,9 +75291,6 @@ static const char *startup_source =
 " #f"
 " #f"
 " #f"
-" #f"
-" #f"
-" #f"
 " body592_0"
 " temp593_0))))"
 "(if(expand-context-to-parsed?"
@@ -77105,9 +75307,6 @@ static const char *startup_source =
 " #f"
 " #f"
 " #f"
-" #f"
-" #f"
-" #f"
 " exp-body594_0"
 " temp595_0)))))))))))))))"
 "(let-values(((lifted-defns_1)"
@@ -77130,14 +75329,14 @@ static const char *startup_source =
 "(if no-lifts?_0"
 "(void)"
 "(let-values()"
-"(let-values(((obs_158)"
+"(let-values(((obs_157)"
 "(expand-context-observer"
 " body-ctx_7)))"
-"(if obs_158"
+"(if obs_157"
 "(let-values()"
 "(let-values()"
 "(call-expand-observe"
-" obs_158"
+" obs_157"
 " 'module-lift-loop"
 "(append"
 " lifted-requires_0"
@@ -77151,8 +75350,8 @@ static const char *startup_source =
 "(let-values(((exp-lifted-modules_0)"
 "(let-values(((lifted-modules596_0)"
 " lifted-modules_0)"
-"((phase597_0) phase_160)"
-"((self598_0) self_35)"
+"((phase597_0) phase_150)"
+"((self598_0) self_36)"
 "((body-ctx599_0)"
 " body-ctx_7)"
 "((mpis-to-reset600_0)"
@@ -77173,19 +75372,19 @@ static const char *startup_source =
 " self598_0"
 " body-ctx599_0))))"
 "(let-values(((exp-lifted-defns_0)"
-"(loop_128 #f lifted-defns_1)))"
+"(loop_125 #f lifted-defns_1)))"
 "(begin"
 "(if no-lifts?_0"
 "(void)"
 "(let-values()"
-"(let-values(((obs_159)"
+"(let-values(((obs_158)"
 "(expand-context-observer"
 " body-ctx_7)))"
-"(if obs_159"
+"(if obs_158"
 "(let-values()"
 "(let-values()"
 "(call-expand-observe"
-" obs_159"
+" obs_158"
 " 'next)))"
 "(void)))))"
 "(append"
@@ -77194,26 +75393,26 @@ static const char *startup_source =
 " exp-lifted-modules_0"
 "(cons"
 " exp-body_8"
-"(loop_128"
-" tail?_53"
+"(loop_125"
+" tail?_54"
 " rest-bodys_2)))))))))))))))))))))"
-" loop_128)"
+" loop_125)"
 " #t"
 " partially-expanded-bodys_1)))))))))))))"
 "(define-values"
 "(check-defined-by-now)"
-"(lambda(need-eventually-defined_3 self_36 ctx_117 requires+provides_9)"
+"(lambda(need-eventually-defined_3 self_37 ctx_115 requires+provides_9)"
 "(begin"
 "(begin"
-"(let-values(((ht_170) need-eventually-defined_3))"
+"(let-values(((ht_162) need-eventually-defined_3))"
 "(begin"
-"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-in-hash ht_170)))"
-"((letrec-values(((for-loop_338)"
-"(lambda(i_196)"
+"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-in-hash ht_162)))"
+"((letrec-values(((for-loop_337)"
+"(lambda(i_189)"
 "(begin"
 " 'for-loop"
-"(if i_196"
-"(let-values(((phase_161 l_89)(hash-iterate-key+value ht_170 i_196)))"
+"(if i_189"
+"(let-values(((phase_151 l_89)(hash-iterate-key+value ht_162 i_189)))"
 "(let-values((()"
 "(let-values()"
 "(let-values((()"
@@ -77221,61 +75420,56 @@ static const char *startup_source =
 "(begin"
 "(let-values()"
 "(begin"
-"(let-values(((lst_446) l_89))"
+"(let-values(((lst_441) l_89))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
 "(#%variable-reference))"
 "(void)"
-"(let-values()(check-list lst_446)))"
-"((letrec-values(((for-loop_339)"
-"(lambda(lst_447)"
+"(let-values()(check-list lst_441)))"
+"((letrec-values(((for-loop_338)"
+"(lambda(lst_442)"
 "(begin"
 " 'for-loop"
 "(if(pair?"
-" lst_447)"
-"(let-values(((id_161)"
+" lst_442)"
+"(let-values(((id_156)"
 "(unsafe-car"
-" lst_447))"
-"((rest_254)"
+" lst_442))"
+"((rest_263)"
 "(unsafe-cdr"
-" lst_447)))"
+" lst_442)))"
 "(let-values((()"
 "(let-values()"
 "(let-values((()"
 "(let-values()"
 "(begin"
 "(let-values()"
-"(let-values(((b_98)"
+"(let-values(((b_95)"
 "(let-values(((id604_0)"
-" id_161)"
+" id_156)"
 "((phase605_0)"
-" phase_161))"
-"(resolve+shift30.1"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
+" phase_151))"
+"(resolve+shift28.1"
 " #f"
 " #f"
+" null"
+" unsafe-undefined"
 " #f"
 " id604_0"
 " phase605_0))))"
 "(let-values(((bound-here?_0)"
-"(if b_98"
+"(if b_95"
 "(if(module-binding?"
-" b_98)"
+" b_95)"
 "(if(eq?"
 "(module-binding-sym"
-" b_98)"
+" b_95)"
 "(syntax-e$1"
-" id_161))"
+" id_156))"
 "(eq?"
 "(module-binding-module"
-" b_98)"
-" self_36)"
+" b_95)"
+" self_37)"
 " #f)"
 " #f)"
 " #f)))"
@@ -77284,8 +75478,8 @@ static const char *startup_source =
 "(defined-sym-kind"
 " requires+provides_9"
 "(module-binding-sym"
-" b_98)"
-" phase_161)"
+" b_95)"
+" phase_151)"
 " #f)))"
 "(if(eq?"
 " bound-kind_0"
@@ -77296,7 +75490,7 @@ static const char *startup_source =
 " #f"
 "(string-append"
 "(if(not"
-" b_98)"
+" b_95)"
 "(let-values()"
 "                                                                                                                                                              \"reference to an unbound identifier\")"
 "(if(eq?"
@@ -77309,40 +75503,40 @@ static const char *startup_source =
 "(format"
 "                                                                                                                                                           \"\\n  at phase: ~a\""
 "(let-values(((tmp_67)"
-" phase_161))"
+" phase_151))"
 "(if(equal?"
 " tmp_67"
 " 1)"
 "(let-values()"
 "                                                                                                                                                                 \"1; the transformer environment\")"
 "(let-values()"
-" phase_161)))))"
-" id_161"
+" phase_151)))))"
+" id_156"
 " #f"
 " null"
 "(syntax-debug-info-string"
-" id_161"
-" ctx_117))))))))"
+" id_156"
+" ctx_115))))))))"
 "(values)))))"
 "(values)))))"
 "(if(not #f)"
-"(for-loop_339"
-" rest_254)"
+"(for-loop_338"
+" rest_263)"
 "(values))))"
 "(values))))))"
-" for-loop_339)"
-" lst_446)))"
+" for-loop_338)"
+" lst_441)))"
 "(void)))"
 "(values)))))"
 "(values)))))"
-"(if(not #f)(for-loop_338(hash-iterate-next ht_170 i_196))(values))))"
+"(if(not #f)(for-loop_337(hash-iterate-next ht_162 i_189))(values))))"
 "(values))))))"
-" for-loop_338)"
-"(hash-iterate-first ht_170))))"
+" for-loop_337)"
+"(hash-iterate-first ht_162))))"
 "(void)))))"
 "(define-values"
 "(resolve-provides115.1)"
-"(lambda(ctx107_0"
+"(lambda(ctx107_1"
 " declared-submodule-names103_0"
 " namespace104_0"
 " phase105_0"
@@ -77354,103 +75548,103 @@ static const char *startup_source =
 "(let-values(((expression-expanded-bodys_1) expression-expanded-bodys114_0))"
 "(let-values(((requires+provides_10) requires-and-provides102_0))"
 "(let-values(((declared-submodule-names_6) declared-submodule-names103_0))"
-"(let-values(((m-ns_20) namespace104_0))"
-"(let-values(((phase_162) phase105_0))"
-"(let-values(((self_37) self106_0))"
-"(let-values(((ctx_118) ctx107_0))"
+"(let-values(((m-ns_21) namespace104_0))"
+"(let-values(((phase_152) phase105_0))"
+"(let-values(((self_38) self106_0))"
+"(let-values(((ctx_116) ctx107_1))"
 "(let-values()"
 "(let-values()"
-"((letrec-values(((loop_129)"
-"(lambda(bodys_25 phase_163)"
+"((letrec-values(((loop_126)"
+"(lambda(bodys_26 phase_153)"
 "(begin"
 " 'loop"
-"(if(null? bodys_25)"
+"(if(null? bodys_26)"
 "(let-values() null)"
-"(if(let-values(((or-part_412)(parsed?(car bodys_25))))"
-"(if or-part_412 or-part_412(expanded+parsed?(car bodys_25))))"
+"(if(let-values(((or-part_407)(parsed?(car bodys_26))))"
+"(if or-part_407 or-part_407(expanded+parsed?(car bodys_26))))"
 "(let-values()"
-"(cons(car bodys_25)(loop_129(cdr bodys_25) phase_163)))"
-"(if(semi-parsed-begin-for-syntax?(car bodys_25))"
+"(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_129"
-"(semi-parsed-begin-for-syntax-body(car bodys_25))"
-"(add1 phase_163))))"
+"(loop_126"
+"(semi-parsed-begin-for-syntax-body(car bodys_26))"
+"(add1 phase_153))))"
 "(cons"
-"(let-values(((the-struct_116)(car bodys_25)))"
-"(if(semi-parsed-begin-for-syntax? the-struct_116)"
+"(let-values(((the-struct_112)(car bodys_26)))"
+"(if(semi-parsed-begin-for-syntax? the-struct_112)"
 "(let-values(((body606_0) nested-bodys_2))"
 "(semi-parsed-begin-for-syntax3.1"
-"(semi-parsed-begin-for-syntax-s the-struct_116)"
+"(semi-parsed-begin-for-syntax-s the-struct_112)"
 " body606_0))"
 "(raise-argument-error"
 " 'struct-copy"
 "                                                              \"semi-parsed-begin-for-syntax?\""
-" the-struct_116)))"
-"(loop_129(cdr bodys_25) phase_163))))"
+" the-struct_112)))"
+"(loop_126(cdr bodys_26) phase_153))))"
 "(let-values()"
-"(let-values(((disarmed-body_1)(syntax-disarm$1(car bodys_25))))"
+"(let-values(((disarmed-body_1)(syntax-disarm$1(car bodys_26))))"
 "(let-values(((tmp_68)"
-"(core-form-sym disarmed-body_1 phase_163)))"
+"(core-form-sym disarmed-body_1 phase_153)))"
 "(if(equal? tmp_68 '#%provide)"
 "(let-values()"
 "(let-values((()"
 "(begin"
-"(let-values(((obs_160)"
+"(let-values(((obs_159)"
 "(expand-context-observer"
-" ctx_118)))"
-"(if obs_160"
+" ctx_116)))"
+"(if obs_159"
 "(let-values()"
 "(let-values()"
 "(begin"
 "(call-expand-observe"
-" obs_160"
+" obs_159"
 " 'enter-prim"
-"(car bodys_25))"
+"(car bodys_26))"
 "(call-expand-observe"
-" obs_160"
+" obs_159"
 " 'prim-provide))))"
 "(void)))"
 "(values))))"
-"(let-values(((ok?_87 #%provide607_0 spec608_0)"
-"(let-values(((s_878) disarmed-body_1))"
-"(let-values(((orig-s_92) s_878))"
+"(let-values(((ok?_88 #%provide607_0 spec608_0)"
+"(let-values(((s_865) disarmed-body_1))"
+"(let-values(((orig-s_92) s_865))"
 "(let-values(((#%provide607_1"
 " spec608_1)"
-"(let-values(((s_667)"
+"(let-values(((s_866)"
 "(if(syntax?$1"
-" s_878)"
+" s_865)"
 "(syntax-e$1"
-" s_878)"
-" s_878)))"
-"(if(pair? s_667)"
+" s_865)"
+" s_865)))"
+"(if(pair? s_866)"
 "(let-values(((#%provide609_0)"
-"(let-values(((s_879)"
+"(let-values(((s_867)"
 "(car"
-" s_667)))"
-" s_879))"
+" s_866)))"
+" s_867))"
 "((spec610_0)"
-"(let-values(((s_880)"
+"(let-values(((s_868)"
 "(cdr"
-" s_667)))"
-"(let-values(((s_881)"
+" s_866)))"
+"(let-values(((s_662)"
 "(if(syntax?$1"
-" s_880)"
+" s_868)"
 "(syntax-e$1"
-" s_880)"
-" s_880)))"
-"(let-values(((flat-s_62)"
+" s_868)"
+" s_868)))"
+"(let-values(((flat-s_64)"
 "(to-syntax-list.1"
-" s_881)))"
+" s_662)))"
 "(if(not"
-" flat-s_62)"
+" flat-s_64)"
 "(let-values()"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                             \"bad syntax\""
 " orig-s_92))"
 "(let-values()"
-" flat-s_62)))))))"
+" flat-s_64)))))))"
 "(values"
 " #%provide609_0"
 " spec610_0))"
@@ -77465,161 +75659,160 @@ static const char *startup_source =
 "(let-values(((track-stxes_10 specs_2)"
 "(parse-and-expand-provides!"
 " spec608_0"
-"(car bodys_25)"
+"(car bodys_26)"
 " requires+provides_10"
-" self_37"
-" phase_163"
-"(let-values(((v_277) ctx_118))"
-"(let-values(((the-struct_117)"
-" v_277))"
+" self_38"
+" phase_153"
+"(let-values(((v_276) ctx_116))"
+"(let-values(((the-struct_113)"
+" v_276))"
 "(if(expand-context/outer?"
-" the-struct_117)"
+" the-struct_113)"
 "(let-values(((context611_0)"
 " 'top-level)"
 "((inner612_0)"
-"(let-values(((the-struct_118)"
+"(let-values(((the-struct_114)"
 "(root-expand-context/outer-inner"
-" v_277)))"
+" v_276)))"
 "(if(expand-context/inner?"
-" the-struct_118)"
+" the-struct_114)"
 "(let-values(((phase613_0)"
-" phase_163)"
+" phase_153)"
 "((namespace614_0)"
 "(namespace->namespace-at-phase"
-" m-ns_20"
-" phase_163))"
+" m-ns_21"
+" phase_153))"
 "((requires+provides615_0)"
 " requires+provides_10)"
 "((declared-submodule-names616_0)"
 " declared-submodule-names_6))"
 "(expand-context/inner2.1"
 "(root-expand-context/inner-self-mpi"
-" the-struct_118)"
+" the-struct_114)"
 "(root-expand-context/inner-module-scopes"
-" the-struct_118)"
+" the-struct_114)"
 "(root-expand-context/inner-top-level-bind-scope"
-" the-struct_118)"
+" the-struct_114)"
 "(root-expand-context/inner-all-scopes-stx"
-" the-struct_118)"
+" the-struct_114)"
 "(root-expand-context/inner-defined-syms"
-" the-struct_118)"
+" the-struct_114)"
 "(root-expand-context/inner-counter"
-" the-struct_118)"
+" the-struct_114)"
 "(root-expand-context/inner-lift-key"
-" the-struct_118)"
+" the-struct_114)"
 "(expand-context/inner-to-parsed?"
-" the-struct_118)"
+" the-struct_114)"
 " phase613_0"
 " namespace614_0"
 "(expand-context/inner-just-once?"
-" the-struct_118)"
+" the-struct_114)"
 "(expand-context/inner-module-begin-k"
-" the-struct_118)"
+" the-struct_114)"
 "(expand-context/inner-allow-unbound?"
-" the-struct_118)"
+" the-struct_114)"
 "(expand-context/inner-in-local-expand?"
-" the-struct_118)"
+" the-struct_114)"
 "(expand-context/inner-keep-#%expression?"
-" the-struct_118)"
+" the-struct_114)"
 "(expand-context/inner-stops"
-" the-struct_118)"
+" the-struct_114)"
 " declared-submodule-names616_0"
 "(expand-context/inner-lifts"
-" the-struct_118)"
+" the-struct_114)"
 "(expand-context/inner-lift-envs"
-" the-struct_118)"
+" the-struct_114)"
 "(expand-context/inner-module-lifts"
-" the-struct_118)"
+" the-struct_114)"
 "(expand-context/inner-require-lifts"
-" the-struct_118)"
+" the-struct_114)"
 "(expand-context/inner-to-module-lifts"
-" the-struct_118)"
+" the-struct_114)"
 " requires+provides615_0"
 "(expand-context/inner-observer"
-" the-struct_118)"
+" the-struct_114)"
 "(expand-context/inner-for-serializable?"
-" the-struct_118)"
+" the-struct_114)"
 "(expand-context/inner-should-not-encounter-macros?"
-" the-struct_118)))"
+" the-struct_114)))"
 "(raise-argument-error"
 " 'struct-copy"
 "                                                                                                          \"expand-context/inner?\""
-" the-struct_118)))))"
+" the-struct_114)))))"
 "(expand-context/outer1.1"
 " inner612_0"
 "(root-expand-context/outer-post-expansion-scope"
-" the-struct_117)"
+" the-struct_113)"
 "(root-expand-context/outer-use-site-scopes"
-" the-struct_117)"
+" the-struct_113)"
 "(root-expand-context/outer-frame-id"
-" the-struct_117)"
+" the-struct_113)"
 " context611_0"
 "(expand-context/outer-env"
-" the-struct_117)"
+" the-struct_113)"
 "(expand-context/outer-post-expansion-scope-action"
-" the-struct_117)"
+" the-struct_113)"
 "(expand-context/outer-scopes"
-" the-struct_117)"
+" the-struct_113)"
 "(expand-context/outer-def-ctx-scopes"
-" the-struct_117)"
+" the-struct_113)"
 "(expand-context/outer-binding-layer"
-" the-struct_117)"
+" the-struct_113)"
 "(expand-context/outer-reference-records"
-" the-struct_117)"
+" the-struct_113)"
 "(expand-context/outer-only-immediate?"
-" the-struct_117)"
+" the-struct_113)"
 "(expand-context/outer-need-eventually-defined"
-" the-struct_117)"
+" the-struct_113)"
 "(expand-context/outer-current-introduction-scopes"
-" the-struct_117)"
+" the-struct_113)"
 "(expand-context/outer-name"
-" the-struct_117)))"
+" the-struct_113)))"
 "(raise-argument-error"
 " 'struct-copy"
 "                                                                                        \"expand-context/outer?\""
-" the-struct_117)))))))"
-"(if(expand-context-to-parsed? ctx_118)"
+" the-struct_113)))))))"
+"(if(expand-context-to-parsed? ctx_116)"
 "(let-values()"
-"(loop_129(cdr bodys_25) phase_163))"
+"(loop_126(cdr bodys_26) phase_153))"
 "(let-values()"
 "(let-values(((new-s_10)"
 "(syntax-track-origin*"
 " track-stxes_10"
 "(let-values(((temp617_0)"
-"(car bodys_25))"
+"(car bodys_26))"
 "((temp618_0)"
 "(list*"
 " #%provide607_0"
 " specs_2)))"
 "(rebuild5.1"
-" #f"
-" #f"
+" #t"
 " temp617_0"
 " temp618_0)))))"
 "(begin"
-"(let-values(((obs_161)"
+"(let-values(((obs_160)"
 "(expand-context-observer"
-" ctx_118)))"
-"(if obs_161"
+" ctx_116)))"
+"(if obs_160"
 "(let-values()"
 "(let-values()"
 "(call-expand-observe"
-" obs_161"
+" obs_160"
 " 'exit-prim"
 " new-s_10)))"
 "(void)))"
 "(cons"
 " new-s_10"
-"(loop_129"
-"(cdr bodys_25)"
-" phase_163))))))))))"
+"(loop_126"
+"(cdr bodys_26)"
+" phase_153))))))))))"
 "(let-values()"
 "(cons"
-"(car bodys_25)"
-"(loop_129(cdr bodys_25) phase_163))))))))))))))"
-" loop_129)"
+"(car bodys_26)"
+"(loop_126(cdr bodys_26) phase_153))))))))))))))"
+" loop_126)"
 " expression-expanded-bodys_1"
-" phase_162)))))))))))))"
+" phase_152)))))))))))))"
 "(define-values"
 "(declare-module-for-expansion139.1)"
 "(lambda(ctx125_0"
@@ -77639,37 +75832,37 @@ static const char *startup_source =
 "(let-values(((module-name-id_0) module-name-id118_0))"
 "(let-values(((rebuild-s_16) rebuild-s119_0))"
 "(let-values(((requires+provides_11) requires-and-provides120_0))"
-"(let-values(((m-ns_21) namespace121_0))"
-"(let-values(((self_38) self122_0))"
+"(let-values(((m-ns_22) namespace121_0))"
+"(let-values(((self_39) self122_0))"
 "(let-values(((enclosing-self_3) enclosing123_0))"
 "(let-values(((root-ctx_7) root-ctx124_0))"
-"(let-values(((ctx_119) ctx125_0))"
+"(let-values(((ctx_117) ctx125_0))"
 "(let-values(((modules-being-compiled_6) modules-being-compiled126_0))"
 "(let-values(((compiled-module-box_1) fill127_0))"
 "(let-values()"
 "(let-values(((requires_7 provides_14)"
-"(extract-requires-and-provides requires+provides_11 self_38 self_38)))"
+"(extract-requires-and-provides requires+provides_11 self_39 self_39)))"
 "(let-values(((parsed-mod_0)"
 "(parsed-module25.1"
 " rebuild-s_16"
 " #f"
 " module-name-id_0"
-" self_38"
+" self_39"
 " requires_7"
 " provides_14"
 "(requires+provides-all-bindings-simple? requires+provides_11)"
-"(root-expand-context-encode-for-module root-ctx_7 self_38 self_38)"
+"(root-expand-context-encode-for-module root-ctx_7 self_39 self_39)"
 "(parsed-only fully-expanded-bodys-except-post-submodules_1)"
 " #f"
 "(hasheq))))"
 "(let-values(((module-name_2)"
 "(1/module-path-index-resolve"
-"(let-values(((or-part_413) enclosing-self_3))"
-"(if or-part_413 or-part_413 self_38)))))"
+"(let-values(((or-part_408) enclosing-self_3))"
+"(if or-part_408 or-part_408 self_39)))))"
 "(let-values(((compiled-module_0)"
 "(let-values(((parsed-mod619_0) parsed-mod_0)"
 "((temp620_0)"
-"(let-values(((m-ns624_0) m-ns_21)"
+"(let-values(((m-ns624_0) m-ns_22)"
 "((enclosing-self625_0) enclosing-self_3)"
 "((temp626_0)"
 "(if enclosing-self_3"
@@ -77678,30 +75871,19 @@ static const char *startup_source =
 " #f)))"
 "(make-compile-context14.1"
 " temp626_0"
-" #t"
-" #f"
-" #f"
+" unsafe-undefined"
 " enclosing-self625_0"
-" #t"
 " m-ns624_0"
-" #t"
-" #f"
-" #f"
-" #f"
-" #f)))"
-"((temp621_0)(expand-context-for-serializable? ctx_119))"
+" unsafe-undefined"
+" unsafe-undefined)))"
+"((temp621_0)(expand-context-for-serializable? ctx_117))"
 "((modules-being-compiled622_0) modules-being-compiled_6)"
 "((temp623_0) #f))"
 "(compile-module13.1"
 " #f"
-" #f"
 " modules-being-compiled622_0"
-" #t"
 " temp623_0"
-" #t"
 " temp621_0"
-" #t"
-" #f"
 " #f"
 " parsed-mod619_0"
 " temp620_0))))"
@@ -77716,31 +75898,28 @@ static const char *startup_source =
 "(extend-parameterization"
 "(continuation-mark-set-first #f parameterization-key)"
 " 1/current-namespace"
-" m-ns_21"
+" m-ns_22"
 " 1/current-module-declare-name"
 "(1/make-resolved-module-path root-module-name_0))"
 "(let-values()"
 "(let-values(((compiled-module627_0) compiled-module_0)((temp628_0) #f))"
 "(eval-module8.1"
-" #f"
-" #f"
-" #f"
+" unsafe-undefined"
 " #f"
 " temp628_0"
-" #t"
 " compiled-module627_0)))))))))))))))))))))))))"
 "(define-values"
 "(attach-root-expand-context-properties)"
-"(lambda(s_882 root-ctx_8 orig-self_1 new-self_2)"
+"(lambda(s_869 root-ctx_8 orig-self_1 new-self_2)"
 "(begin"
-"(let-values(((s_883)"
-"(syntax-property$1 s_882 'module-body-context(root-expand-context-all-scopes-stx root-ctx_8))))"
-"(let-values(((s_688)"
+"(let-values(((s_870)"
+"(syntax-property$1 s_869 'module-body-context(root-expand-context-all-scopes-stx root-ctx_8))))"
+"(let-values(((s_871)"
 "(syntax-property$1"
-" s_883"
+" s_870"
 " 'module-body-inside-context"
 "(add-scope empty-syntax(root-expand-context-post-expansion-scope root-ctx_8)))))"
-" s_688)))))"
+" s_871)))))"
 "(define-values"
 "(expand-post-submodules165.1)"
 "(lambda(all-scopes-s147_0"
@@ -77751,7 +75930,7 @@ static const char *startup_source =
 " enclosing-is-cross-phase-persistent?146_0"
 " modules-being-compiled151_0"
 " mpis-to-reset148_0"
-" phase143_1"
+" phase143_0"
 " requires-and-provides145_0"
 " self144_0"
 " fully-expanded-bodys-except-post-submodules164_0)"
@@ -77759,8 +75938,8 @@ static const char *startup_source =
 " 'expand-post-submodules165"
 "(let-values(((fully-expanded-bodys-except-post-submodules_2) fully-expanded-bodys-except-post-submodules164_0))"
 "(let-values(((declare-enclosing-module_1) declare-enclosing142_0))"
-"(let-values(((phase_164) phase143_1))"
-"(let-values(((self_39) self144_0))"
+"(let-values(((phase_154) phase143_0))"
+"(let-values(((self_40) self144_0))"
 "(let-values(((requires+provides_12) requires-and-provides145_0))"
 "(let-values(((enclosing-is-cross-phase-persistent?_1) enclosing-is-cross-phase-persistent?146_0))"
 "(let-values(((all-scopes-s_1) all-scopes-s147_0))"
@@ -77770,61 +75949,61 @@ static const char *startup_source =
 "(let-values(((modules-being-compiled_7) modules-being-compiled151_0))"
 "(let-values(((submod-ctx_1) ctx152_0))"
 "(let-values()"
-"((letrec-values(((loop_130)"
-"(lambda(bodys_26 phase_165)"
+"((letrec-values(((loop_127)"
+"(lambda(bodys_27 phase_155)"
 "(begin"
 " 'loop"
-"(if(null? bodys_26)"
+"(if(null? bodys_27)"
 "(let-values() null)"
 "(let-values()"
-"(let-values(((body_25)(car bodys_26)))"
-"(let-values(((rest-bodys_3)(cdr bodys_26)))"
-"(if(semi-parsed-begin-for-syntax? body_25)"
+"(let-values(((body_23)(car bodys_27)))"
+"(let-values(((rest-bodys_3)(cdr bodys_27)))"
+"(if(semi-parsed-begin-for-syntax? body_23)"
 "(let-values()"
 "(let-values(((body-s_0)"
 "(semi-parsed-begin-for-syntax-s"
-" body_25)))"
-"(let-values(((ok?_88 begin-for-syntax629_0 _630_0)"
-"(let-values(((s_884)"
+" body_23)))"
+"(let-values(((ok?_89 begin-for-syntax629_0 _630_0)"
+"(let-values(((s_872)"
 "(syntax-disarm$1"
 " body-s_0)))"
-"(let-values(((orig-s_93) s_884))"
+"(let-values(((orig-s_93) s_872))"
 "(let-values(((begin-for-syntax629_1"
 " _630_1)"
-"(let-values(((s_885)"
+"(let-values(((s_873)"
 "(if(syntax?$1"
-" s_884)"
+" s_872)"
 "(syntax-e$1"
-" s_884)"
-" s_884)))"
-"(if(pair? s_885)"
+" s_872)"
+" s_872)))"
+"(if(pair? s_873)"
 "(let-values(((begin-for-syntax631_0)"
-"(let-values(((s_886)"
+"(let-values(((s_874)"
 "(car"
-" s_885)))"
-" s_886))"
+" s_873)))"
+" s_874))"
 "((_632_0)"
-"(let-values(((s_887)"
+"(let-values(((s_875)"
 "(cdr"
-" s_885)))"
-"(let-values(((s_888)"
+" s_873)))"
+"(let-values(((s_876)"
 "(if(syntax?$1"
-" s_887)"
+" s_875)"
 "(syntax-e$1"
-" s_887)"
-" s_887)))"
-"(let-values(((flat-s_63)"
+" s_875)"
+" s_875)))"
+"(let-values(((flat-s_65)"
 "(to-syntax-list.1"
-" s_888)))"
+" s_876)))"
 "(if(not"
-" flat-s_63)"
+" flat-s_65)"
 "(let-values()"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                 \"bad syntax\""
 " orig-s_93))"
 "(let-values()"
-" flat-s_63)))))))"
+" flat-s_65)))))))"
 "(values"
 " begin-for-syntax631_0"
 " _632_0))"
@@ -77841,20 +76020,17 @@ static const char *startup_source =
 " submod-ctx_1)"
 "((body-s634_0)"
 " body-s_0))"
-"(keep-as-needed120.1"
-" #f"
-" #f"
-" #f"
+"(keep-as-needed119.1"
 " #f"
 " #f"
 " #f"
 " submod-ctx633_0"
 " body-s634_0))))"
 "(let-values(((nested-bodys_3)"
-"(loop_130"
+"(loop_127"
 "(semi-parsed-begin-for-syntax-body"
-" body_25)"
-"(add1 phase_165))))"
+" body_23)"
+"(add1 phase_155))))"
 "(let-values(((parsed-bfs_0)"
 "(parsed-begin-for-syntax21.1"
 " rebuild-body-s_0"
@@ -77872,25 +76048,24 @@ static const char *startup_source =
 "(syntax-only"
 " nested-bodys_3))))"
 "(rebuild5.1"
-" #f"
-" #f"
+" #t"
 " rebuild-body-s635_0"
 " temp636_0))"
 " parsed-bfs_0))"
-"(loop_130 rest-bodys_3 phase_165))))))))"
-"(if(let-values(((or-part_414)(parsed? body_25)))"
-"(if or-part_414"
-" or-part_414"
-"(expanded+parsed? body_25)))"
+"(loop_127 rest-bodys_3 phase_155))))))))"
+"(if(let-values(((or-part_409)(parsed? body_23)))"
+"(if or-part_409"
+" or-part_409"
+"(expanded+parsed? body_23)))"
 "(let-values()"
-"(cons body_25(loop_130 rest-bodys_3 phase_165)))"
+"(cons body_23(loop_127 rest-bodys_3 phase_155)))"
 "(let-values()"
 "(let-values(((disarmed-body_2)"
-"(syntax-disarm$1 body_25)))"
+"(syntax-disarm$1 body_23)))"
 "(let-values(((tmp_69)"
 "(core-form-sym"
 " disarmed-body_2"
-" phase_165)))"
+" phase_155)))"
 "(if(equal? tmp_69 'module*)"
 "(let-values()"
 "(let-values((()"
@@ -77900,66 +76075,66 @@ static const char *startup_source =
 "(values))))"
 "(let-values(((ready-body_2)"
 "(remove-use-site-scopes"
-" body_25"
+" body_23"
 " submod-ctx_1)))"
-"(let-values(((ok?_89"
+"(let-values(((ok?_90"
 " module*637_0"
 " name638_0"
 " _639_0)"
-"(let-values(((s_706)"
+"(let-values(((s_700)"
 " disarmed-body_2))"
-"(if(let-values(((s_889)"
+"(if(let-values(((s_877)"
 "(if(syntax?$1"
-" s_706)"
+" s_700)"
 "(syntax-e$1"
-" s_706)"
-" s_706)))"
-"(if(pair? s_889)"
-"(if(let-values(((s_707)"
+" s_700)"
+" s_700)))"
+"(if(pair? s_877)"
+"(if(let-values(((s_878)"
 "(car"
-" s_889)))"
+" s_877)))"
 " #t)"
-"(let-values(((s_890)"
+"(let-values(((s_879)"
 "(cdr"
-" s_889)))"
-"(let-values(((s_891)"
+" s_877)))"
+"(let-values(((s_701)"
 "(if(syntax?$1"
-" s_890)"
+" s_879)"
 "(syntax-e$1"
-" s_890)"
-" s_890)))"
+" s_879)"
+" s_879)))"
 "(if(pair?"
-" s_891)"
-"(if(let-values(((s_708)"
+" s_701)"
+"(if(let-values(((s_880)"
 "(car"
-" s_891)))"
+" s_701)))"
 " #t)"
-"(let-values(((s_892)"
+"(let-values(((s_702)"
 "(cdr"
-" s_891)))"
-"(let-values(((s_893)"
+" s_701)))"
+"(let-values(((s_881)"
 "(if(syntax?$1"
-" s_892)"
+" s_702)"
 "(syntax-e$1"
-" s_892)"
-" s_892)))"
+" s_702)"
+" s_702)))"
 "(if(pair?"
-" s_893)"
-"(if(let-values(((s_894)"
+" s_881)"
+"(if(let-values(((s_882)"
 "(car"
-" s_893)))"
-"(let-values(((s_895)"
+" s_881)))"
+"(let-values(((s_703)"
 "(if(syntax?$1"
-" s_894)"
+" s_882)"
 "(syntax-e$1"
-" s_894)"
-" s_894)))"
+" s_882)"
+" s_882)))"
 "(eq?"
 " #f"
-" s_895)))"
-"(let-values(((s_896)"
+" s_703)))"
+"(let-values(((s_883)"
 "(cdr"
-" s_893)))"
+" s_881)))"
 " #t)"
 " #f)"
 " #f)))"
@@ -77971,59 +76146,59 @@ static const char *startup_source =
 "(let-values(((module*637_1"
 " name638_1"
 " _639_1)"
-"(let-values(((s_897)"
+"(let-values(((s_884)"
 "(if(syntax?$1"
-" s_706)"
+" s_700)"
 "(syntax-e$1"
-" s_706)"
-" s_706)))"
+" s_700)"
+" s_700)))"
 "(let-values(((module*640_0)"
-"(let-values(((s_898)"
+"(let-values(((s_885)"
 "(car"
-" s_897)))"
-" s_898))"
+" s_884)))"
+" s_885))"
 "((name641_0"
 " _642_0)"
-"(let-values(((s_899)"
+"(let-values(((s_886)"
 "(cdr"
-" s_897)))"
-"(let-values(((s_900)"
+" s_884)))"
+"(let-values(((s_887)"
 "(if(syntax?$1"
-" s_899)"
+" s_886)"
 "(syntax-e$1"
-" s_899)"
-" s_899)))"
+" s_886)"
+" s_886)))"
 "(let-values(((name643_0)"
-"(let-values(((s_901)"
+"(let-values(((s_888)"
 "(car"
-" s_900)))"
-" s_901))"
+" s_887)))"
+" s_888))"
 "((_644_0)"
-"(let-values(((s_902)"
+"(let-values(((s_889)"
 "(cdr"
-" s_900)))"
-"(let-values(((s_903)"
+" s_887)))"
+"(let-values(((s_890)"
 "(if(syntax?$1"
-" s_902)"
+" s_889)"
 "(syntax-e$1"
-" s_902)"
-" s_902)))"
+" s_889)"
+" s_889)))"
 "(let-values((()"
-"(let-values(((s_904)"
+"(let-values(((s_891)"
 "(car"
-" s_903)))"
-"(let-values(((s_905)"
+" s_890)))"
+"(let-values(((s_892)"
 "(if(syntax?$1"
-" s_904)"
+" s_891)"
 "(syntax-e$1"
-" s_904)"
-" s_904)))"
+" s_891)"
+" s_891)))"
 "(values))))"
 "((_645_0)"
-"(let-values(((s_709)"
+"(let-values(((s_893)"
 "(cdr"
-" s_903)))"
-" s_709)))"
+" s_890)))"
+" s_893)))"
 "(values"
 " _645_0))))))"
 "(values"
@@ -78044,12 +76219,12 @@ static const char *startup_source =
 " #f"
 " #f)))))"
 "(let-values(((submod_3)"
-"(if ok?_89"
+"(if ok?_90"
 "(let-values()"
 "(let-values(((neg-phase_0)"
 "(phase-"
 " 0"
-" phase_165)))"
+" phase_155)))"
 "(let-values(((shifted-s_0)"
 "(syntax-shift-phase-level$1"
 " ready-body_2"
@@ -78058,7 +76233,7 @@ static const char *startup_source =
 "(let-values(((shifted-s646_0)"
 " shifted-s_0)"
 "((self647_0)"
-" self_39)"
+" self_40)"
 "((submod-ctx648_0)"
 " submod-ctx_1)"
 "((temp649_0)"
@@ -78083,14 +76258,10 @@ static const char *startup_source =
 " compiled-submodules656_0"
 " declared-submodule-names655_0"
 " all-scopes-s651_0"
-" #t"
 " enclosing-is-cross-phase-persistent?653_0"
-" #t"
 " requires+provides652_0"
-" #t"
 " temp649_0"
 " neg-phase650_0"
-" #t"
 " modules-being-compiled657_0"
 " mpis-to-reset654_0"
 " shifted-s646_0"
@@ -78103,32 +76274,32 @@ static const char *startup_source =
 "(if(expanded+parsed?"
 " submod_4)"
 "(let-values()"
-"(let-values(((the-struct_119)"
+"(let-values(((the-struct_115)"
 " submod_4))"
 "(if(expanded+parsed?"
-" the-struct_119)"
+" the-struct_115)"
 "(let-values(((s658_0)"
 "(syntax-shift-phase-level$1"
 "(expanded+parsed-s"
 " submod_4)"
-" phase_165)))"
+" phase_155)))"
 "(expanded+parsed1.1"
 " s658_0"
 "(expanded+parsed-parsed"
-" the-struct_119)))"
+" the-struct_115)))"
 "(raise-argument-error"
 " 'struct-copy"
 "                                                                                                                     \"expanded+parsed?\""
-" the-struct_119))))"
+" the-struct_115))))"
 "(let-values()"
 "(syntax-shift-phase-level$1"
 " submod_4"
-" phase_165))))))))"
+" phase_155))))))))"
 "(let-values()"
 "(let-values(((ready-body659_0)"
 " ready-body_2)"
 "((self660_0)"
-" self_39)"
+" self_40)"
 "((submod-ctx661_0)"
 " submod-ctx_1)"
 "((temp662_0)"
@@ -78147,12 +76318,8 @@ static const char *startup_source =
 " #f"
 " #f"
 " #f"
-" #f"
-" #f"
-" #f"
 " temp662_0"
 " #f"
-" #f"
 " modules-being-compiled666_0"
 " mpis-to-reset663_0"
 " ready-body659_0"
@@ -78160,49 +76327,49 @@ static const char *startup_source =
 " submod-ctx661_0))))))"
 "(cons"
 " submod_3"
-"(loop_130"
+"(loop_127"
 " rest-bodys_3"
-" phase_165)))))))"
+" phase_155)))))))"
 "(let-values()"
 "(cons"
-" body_25"
-"(loop_130"
+" body_23"
+"(loop_127"
 " rest-bodys_3"
-" phase_165)))))))))))))))))"
-" loop_130)"
+" phase_155)))))))))))))))))"
+" loop_127)"
 " fully-expanded-bodys-except-post-submodules_2"
-" phase_164)))))))))))))))))"
+" phase_154)))))))))))))))))"
 "(define-values"
 "(stop-at-module*?)"
-"(lambda(ctx_120)"
+"(lambda(ctx_118)"
 "(begin"
 "(free-id-set-member?"
-"(expand-context-stops ctx_120)"
-"(expand-context-phase ctx_120)"
-"(syntax-shift-phase-level$1(datum->syntax$1 core-stx 'module*)(expand-context-phase ctx_120))))))"
+"(expand-context-stops ctx_118)"
+"(expand-context-phase ctx_118)"
+"(syntax-shift-phase-level$1(datum->syntax$1 core-stx 'module*)(expand-context-phase ctx_118))))))"
 "(define-values"
 "(check-ids-unbound173.1)"
 "(lambda(in168_0 ids170_0 phase171_1 requires+provides172_0)"
 "(begin"
 " 'check-ids-unbound173"
-"(let-values(((ids_48) ids170_0))"
-"(let-values(((phase_166) phase171_1))"
+"(let-values(((ids_49) ids170_0))"
+"(let-values(((phase_156) phase171_1))"
 "(let-values(((requires+provides_13) requires+provides172_0))"
-"(let-values(((s_906) in168_0))"
+"(let-values(((s_894) in168_0))"
 "(let-values()"
 "(begin"
-"(let-values(((lst_448) ids_48))"
+"(let-values(((lst_443) ids_49))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
-"(let-values()(check-list lst_448)))"
-"((letrec-values(((for-loop_340)"
-"(lambda(lst_449)"
+"(let-values()(check-list lst_443)))"
+"((letrec-values(((for-loop_339)"
+"(lambda(lst_444)"
 "(begin"
 " 'for-loop"
-"(if(pair? lst_449)"
-"(let-values(((id_162)(unsafe-car lst_449))"
-"((rest_255)(unsafe-cdr lst_449)))"
+"(if(pair? lst_444)"
+"(let-values(((id_157)(unsafe-car lst_444))"
+"((rest_264)(unsafe-cdr lst_444)))"
 "(let-values((()"
 "(let-values()"
 "(let-values((()"
@@ -78211,127 +76378,122 @@ static const char *startup_source =
 "(let-values()"
 "(let-values(((requires+provides667_0)"
 " requires+provides_13)"
-"((id668_0) id_162)"
+"((id668_0) id_157)"
 "((phase669_0)"
-" phase_166)"
-"((s670_0) s_906)"
+" phase_156)"
+"((s670_0) s_894)"
 "((temp671_0) 'module))"
 "(check-not-defined95.1"
 " #f"
 " #f"
 " #f"
-" #f"
-" #f"
-" #f"
 " s670_0"
 " #f"
 " #f"
-" #f"
-" #f"
 " temp671_0"
 " requires+provides667_0"
 " id668_0"
 " phase669_0)))"
 "(values)))))"
 "(values)))))"
-"(if(not #f)(for-loop_340 rest_255)(values))))"
+"(if(not #f)(for-loop_339 rest_264)(values))))"
 "(values))))))"
-" for-loop_340)"
-" lst_448)))"
+" for-loop_339)"
+" lst_443)))"
 "(void))))))))))"
 "(define-values"
 "(eval-nested-bodys)"
-"(lambda(bodys_27 phase_167 m-ns_22 self_40 ctx_121)"
+"(lambda(bodys_28 phase_157 m-ns_23 self_41 ctx_119)"
 "(begin"
 "(begin"
-"(let-values(((lst_450) bodys_27))"
+"(let-values(((lst_445) bodys_28))"
 "(begin"
-"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_450)))"
-"((letrec-values(((for-loop_341)"
-"(lambda(lst_451)"
+"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_445)))"
+"((letrec-values(((for-loop_340)"
+"(lambda(lst_446)"
 "(begin"
 " 'for-loop"
-"(if(pair? lst_451)"
-"(let-values(((body_26)(unsafe-car lst_451))((rest_256)(unsafe-cdr lst_451)))"
+"(if(pair? lst_446)"
+"(let-values(((body_24)(unsafe-car lst_446))((rest_265)(unsafe-cdr lst_446)))"
 "(let-values((()"
 "(let-values()"
 "(let-values((()"
 "(let-values()"
 "(begin"
 "(let-values()"
-"(let-values(((p_89)"
-"(if(expanded+parsed? body_26)"
+"(let-values(((p_87)"
+"(if(expanded+parsed? body_24)"
 "(expanded+parsed-parsed"
-" body_26)"
-" body_26)))"
-"(if(parsed-define-values? p_89)"
+" body_24)"
+" body_24)))"
+"(if(parsed-define-values? p_87)"
 "(let-values()"
-"(let-values(((ids_49)"
+"(let-values(((ids_50)"
 "(parsed-define-values-ids"
-" p_89)))"
+" p_87)))"
 "(let-values(((vals_11)"
 "(eval-for-bindings"
 " 'define-values"
-" ids_49"
+" ids_50"
 "(parsed-define-values-rhs"
-" p_89)"
-" phase_167"
-" m-ns_22"
-" ctx_121)))"
+" p_87)"
+" phase_157"
+" m-ns_23"
+" ctx_119)))"
 "(begin"
-"(let-values(((lst_452) ids_49)"
-"((lst_453)"
+"(let-values(((lst_447) ids_50)"
+"((lst_448)"
 "(parsed-define-values-syms"
-" p_89))"
-"((lst_454) vals_11))"
+" p_87))"
+"((lst_449) vals_11))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
 "(#%variable-reference))"
 "(void)"
 "(let-values()"
-"(check-list lst_452)))"
+"(check-list lst_447)))"
 "(if(variable-reference-from-unsafe?"
 "(#%variable-reference))"
 "(void)"
 "(let-values()"
-"(check-list lst_453)))"
+"(check-list lst_448)))"
 "(if(variable-reference-from-unsafe?"
 "(#%variable-reference))"
 "(void)"
 "(let-values()"
-"(check-list lst_454)))"
-"((letrec-values(((for-loop_342)"
-"(lambda(lst_455"
-" lst_456"
-" lst_457)"
+"(check-list lst_449)))"
+"((letrec-values(((for-loop_341)"
+"(lambda(lst_450"
+" lst_451"
+" lst_452)"
 "(begin"
 " 'for-loop"
 "(if(if(pair?"
-" lst_455)"
+" lst_450)"
 "(if(pair?"
-" lst_456)"
+" lst_451)"
 "(pair?"
-" lst_457)"
+" lst_452)"
 " #f)"
 " #f)"
-"(let-values(((id_163)"
+"(let-values(((id_158)"
 "(unsafe-car"
-" lst_455))"
-"((rest_257)"
+" lst_450))"
+"((rest_266)"
 "(unsafe-cdr"
-" lst_455))"
+" lst_450))"
 "((sym_110)"
 "(unsafe-car"
-" lst_456))"
-"((rest_258)"
+" lst_451))"
+"((rest_267)"
 "(unsafe-cdr"
-" lst_456))"
-"((val_89)"
+" lst_451))"
+"((val_88)"
 "(unsafe-car"
-" lst_457))"
-"((rest_259)"
+" lst_452))"
+"((rest_268)"
 "(unsafe-cdr"
-" lst_457)))"
+" lst_452)))"
 "(let-values((()"
 "(let-values()"
 "(let-values((()"
@@ -78339,39 +76501,39 @@ static const char *startup_source =
 "(begin"
 "(let-values()"
 "(namespace-set-variable!"
-" m-ns_22"
-" phase_167"
+" m-ns_23"
+" phase_157"
 " sym_110"
-" val_89))"
+" val_88))"
 "(values)))))"
 "(values)))))"
 "(if(not"
 " #f)"
-"(for-loop_342"
-" rest_257"
-" rest_258"
-" rest_259)"
+"(for-loop_341"
+" rest_266"
+" rest_267"
+" rest_268)"
 "(values))))"
 "(values))))))"
-" for-loop_342)"
-" lst_452"
-" lst_453"
-" lst_454)))"
+" for-loop_341)"
+" lst_447"
+" lst_448"
+" lst_449)))"
 "(void)))))"
-"(if(let-values(((or-part_415)"
+"(if(let-values(((or-part_410)"
 "(parsed-define-syntaxes?"
-" p_89)))"
-"(if or-part_415"
-" or-part_415"
+" p_87)))"
+"(if or-part_410"
+" or-part_410"
 "(semi-parsed-begin-for-syntax?"
-" p_89)))"
+" p_87)))"
 "(let-values()(void))"
-"(if(let-values(((or-part_416)"
+"(if(let-values(((or-part_411)"
 "(parsed-#%declare?"
-" p_89)))"
-"(if or-part_416"
-" or-part_416"
-"(syntax?$1 p_89)))"
+" p_87)))"
+"(if or-part_411"
+" or-part_411"
+"(syntax?$1 p_87)))"
 "(let-values()(void))"
 "(let-values()"
 "(with-continuation-mark"
@@ -78381,51 +76543,41 @@ static const char *startup_source =
 " #f"
 " parameterization-key)"
 " current-expand-context"
-" ctx_121"
+" ctx_119"
 " 1/current-namespace"
-" m-ns_22)"
+" m-ns_23)"
 "(let-values()"
 "(eval-single-top"
 "(compile-single"
-" p_89"
+" p_87"
 "(let-values(((m-ns672_0)"
-" m-ns_22)"
+" m-ns_23)"
 "((phase673_0)"
-" phase_167))"
+" phase_157))"
 "(make-compile-context14.1"
 " #f"
-" #f"
-" #f"
-" #f"
-" #f"
+" unsafe-undefined"
 " #f"
 " m-ns672_0"
-" #t"
 " phase673_0"
-" #t"
-" #f"
-" #f)))"
-" m-ns_22)))))))))"
+" unsafe-undefined)))"
+" m-ns_23)))))))))"
 "(values)))))"
 "(values)))))"
-"(if(not #f)(for-loop_341 rest_256)(values))))"
+"(if(not #f)(for-loop_340 rest_265)(values))))"
 "(values))))))"
-" for-loop_341)"
-" lst_450)))"
+" for-loop_340)"
+" lst_445)))"
 "(void)))))"
 "(define-values"
 "(expand-submodule197.1)"
 "(lambda(compiled-submodules183_0"
 " declared-submodule-names182_0"
 " enclosing-all-scopes-stx180_0"
-" enclosing-all-scopes-stx189_0"
 " enclosing-is-cross-phase-persistent?179_0"
-" enclosing-is-cross-phase-persistent?188_0"
 " enclosing-requires+provides178_0"
-" enclosing-requires+provides187_0"
 " is-star?176_0"
 " keep-enclosing-scope-at-phase177_0"
-" keep-enclosing-scope-at-phase186_0"
 " modules-being-compiled184_0"
 " mpis-to-reset181_0"
 " s194_0"
@@ -78433,20 +76585,14 @@ static const char *startup_source =
 " ctx196_0)"
 "(begin"
 " 'expand-submodule197"
-"(let-values(((s_907) s194_0))"
-"(let-values(((self_41) self195_0))"
-"(let-values(((ctx_122) ctx196_0))"
+"(let-values(((s_895) s194_0))"
+"(let-values(((self_42) self195_0))"
+"(let-values(((ctx_120) ctx196_0))"
 "(let-values(((is-star?_0) is-star?176_0))"
-"(let-values(((keep-enclosing-scope-at-phase_2)"
-"(if keep-enclosing-scope-at-phase186_0 keep-enclosing-scope-at-phase177_0 #f)))"
-"(let-values(((enclosing-r+p_2)"
-"(if enclosing-requires+provides187_0 enclosing-requires+provides178_0 #f)))"
-"(let-values(((enclosing-is-cross-phase-persistent?_2)"
-"(if enclosing-is-cross-phase-persistent?188_0"
-" enclosing-is-cross-phase-persistent?179_0"
-" #f)))"
-"(let-values(((enclosing-all-scopes-stx_1)"
-"(if enclosing-all-scopes-stx189_0 enclosing-all-scopes-stx180_0 #f)))"
+"(let-values(((keep-enclosing-scope-at-phase_2) keep-enclosing-scope-at-phase177_0))"
+"(let-values(((enclosing-r+p_2) enclosing-requires+provides178_0))"
+"(let-values(((enclosing-is-cross-phase-persistent?_2) enclosing-is-cross-phase-persistent?179_0))"
+"(let-values(((enclosing-all-scopes-stx_1) enclosing-all-scopes-stx180_0))"
 "(let-values(((mpis-to-reset_4) mpis-to-reset181_0))"
 "(let-values(((declared-submodule-names_8) declared-submodule-names182_0))"
 "(let-values(((compiled-submodules_5) compiled-submodules183_0))"
@@ -78457,47 +76603,47 @@ static const char *startup_source =
 "(if is-star?_0"
 "(void)"
 "(let-values()"
-"(let-values(((obs_162)(expand-context-observer ctx_122)))"
-"(if obs_162"
+"(let-values(((obs_161)(expand-context-observer ctx_120)))"
+"(if obs_161"
 "(let-values()"
 "(let-values()"
 "(begin"
-"(call-expand-observe obs_162 'enter-prim s_907)"
+"(call-expand-observe obs_161 'enter-prim s_895)"
 "(call-expand-observe"
-" obs_162"
+" obs_161"
 "(if is-star?_0 'prim-submodule* 'prim-submodule)))))"
 "(void)))))"
 "(values))))"
-"(let-values(((ok?_90 module674_0 name675_0 _676_0)"
-"(let-values(((s_908) s_907))"
-"(let-values(((orig-s_94) s_908))"
+"(let-values(((ok?_91 module674_0 name675_0 _676_0)"
+"(let-values(((s_896) s_895))"
+"(let-values(((orig-s_94) s_896))"
 "(let-values(((module674_1 name675_1 _676_1)"
-"(let-values(((s_763)"
-"(if(syntax?$1 s_908)"
-"(syntax-e$1 s_908)"
-" s_908)))"
-"(if(pair? s_763)"
+"(let-values(((s_755)"
+"(if(syntax?$1 s_896)"
+"(syntax-e$1 s_896)"
+" s_896)))"
+"(if(pair? s_755)"
 "(let-values(((module677_0)"
-"(let-values(((s_909)(car s_763)))"
-" s_909))"
+"(let-values(((s_756)(car s_755)))"
+" s_756))"
 "((name678_0 _679_0)"
-"(let-values(((s_910)(cdr s_763)))"
-"(let-values(((s_911)"
+"(let-values(((s_897)(cdr s_755)))"
+"(let-values(((s_757)"
 "(if(syntax?$1"
-" s_910)"
-"(syntax-e$1 s_910)"
-" s_910)))"
-"(if(pair? s_911)"
+" s_897)"
+"(syntax-e$1 s_897)"
+" s_897)))"
+"(if(pair? s_757)"
 "(let-values(((name680_0)"
-"(let-values(((s_912)"
+"(let-values(((s_898)"
 "(car"
-" s_911)))"
-" s_912))"
+" s_757)))"
+" s_898))"
 "((_681_0)"
-"(let-values(((s_913)"
+"(let-values(((s_899)"
 "(cdr"
-" s_911)))"
-" s_913)))"
+" s_757)))"
+" s_899)))"
 "(values name680_0 _681_0))"
 "(raise-syntax-error$1"
 " #f"
@@ -78509,140 +76655,140 @@ static const char *startup_source =
 "                                                                       \"bad syntax\""
 " orig-s_94)))))"
 "(values #t module674_1 name675_1 _676_1))))))"
-"(let-values(((name_81)(syntax-e$1 name675_0)))"
+"(let-values(((name_82)(syntax-e$1 name675_0)))"
 "(let-values((()"
 "(begin"
-"(if(hash-ref declared-submodule-names_8 name_81 #f)"
+"(if(hash-ref declared-submodule-names_8 name_82 #f)"
 "(let-values()"
 "(raise-syntax-error$1"
 " #f"
 "                                                           \"submodule already declared with the same name\""
-" s_907"
-" name_81))"
+" s_895"
+" name_82))"
 "(void))"
 "(values))))"
 "(let-values((()"
 "(begin"
 "(hash-set!"
 " declared-submodule-names_8"
-" name_81"
+" name_82"
 "(syntax-e$1 module674_0))"
 "(values))))"
 "(let-values((()"
 "(begin"
-"(let-values(((obs_163)(expand-context-observer ctx_122)))"
-"(if obs_163"
+"(let-values(((obs_162)(expand-context-observer ctx_120)))"
+"(if obs_162"
 "(let-values()"
 "(let-values()"
-"(call-expand-observe obs_163 'enter-prim s_907)))"
+"(call-expand-observe obs_162 'enter-prim s_895)))"
 "(void)))"
 "(values))))"
 "(let-values(((submod_5)"
-"(let-values(((s682_0) s_907)"
+"(let-values(((s682_0) s_895)"
 "((temp683_0)"
-"(let-values(((v_278) ctx_122))"
-"(let-values(((the-struct_120) v_278))"
-"(if(expand-context/outer? the-struct_120)"
+"(let-values(((v_277) ctx_120))"
+"(let-values(((the-struct_116) v_277))"
+"(if(expand-context/outer? the-struct_116)"
 "(let-values(((context692_0) 'module)"
 "((post-expansion-scope693_0)"
 " #f)"
 "((inner694_0)"
-"(let-values(((the-struct_121)"
+"(let-values(((the-struct_117)"
 "(root-expand-context/outer-inner"
-" v_278)))"
+" v_277)))"
 "(if(expand-context/inner?"
-" the-struct_121)"
+" the-struct_117)"
 "(let-values(((stops695_0)"
 " empty-free-id-set))"
 "(expand-context/inner2.1"
 "(root-expand-context/inner-self-mpi"
-" the-struct_121)"
+" the-struct_117)"
 "(root-expand-context/inner-module-scopes"
-" the-struct_121)"
+" the-struct_117)"
 "(root-expand-context/inner-top-level-bind-scope"
-" the-struct_121)"
+" the-struct_117)"
 "(root-expand-context/inner-all-scopes-stx"
-" the-struct_121)"
+" the-struct_117)"
 "(root-expand-context/inner-defined-syms"
-" the-struct_121)"
+" the-struct_117)"
 "(root-expand-context/inner-counter"
-" the-struct_121)"
+" the-struct_117)"
 "(root-expand-context/inner-lift-key"
-" the-struct_121)"
+" the-struct_117)"
 "(expand-context/inner-to-parsed?"
-" the-struct_121)"
+" the-struct_117)"
 "(expand-context/inner-phase"
-" the-struct_121)"
+" the-struct_117)"
 "(expand-context/inner-namespace"
-" the-struct_121)"
+" the-struct_117)"
 "(expand-context/inner-just-once?"
-" the-struct_121)"
+" the-struct_117)"
 "(expand-context/inner-module-begin-k"
-" the-struct_121)"
+" the-struct_117)"
 "(expand-context/inner-allow-unbound?"
-" the-struct_121)"
+" the-struct_117)"
 "(expand-context/inner-in-local-expand?"
-" the-struct_121)"
+" the-struct_117)"
 "(expand-context/inner-keep-#%expression?"
-" the-struct_121)"
+" the-struct_117)"
 " stops695_0"
 "(expand-context/inner-declared-submodule-names"
-" the-struct_121)"
+" the-struct_117)"
 "(expand-context/inner-lifts"
-" the-struct_121)"
+" the-struct_117)"
 "(expand-context/inner-lift-envs"
-" the-struct_121)"
+" the-struct_117)"
 "(expand-context/inner-module-lifts"
-" the-struct_121)"
+" the-struct_117)"
 "(expand-context/inner-require-lifts"
-" the-struct_121)"
+" the-struct_117)"
 "(expand-context/inner-to-module-lifts"
-" the-struct_121)"
+" the-struct_117)"
 "(expand-context/inner-requires+provides"
-" the-struct_121)"
+" the-struct_117)"
 "(expand-context/inner-observer"
-" the-struct_121)"
+" the-struct_117)"
 "(expand-context/inner-for-serializable?"
-" the-struct_121)"
+" the-struct_117)"
 "(expand-context/inner-should-not-encounter-macros?"
-" the-struct_121)))"
+" the-struct_117)))"
 "(raise-argument-error"
 " 'struct-copy"
 "                                                                                                 \"expand-context/inner?\""
-" the-struct_121)))))"
+" the-struct_117)))))"
 "(expand-context/outer1.1"
 " inner694_0"
 " post-expansion-scope693_0"
 "(root-expand-context/outer-use-site-scopes"
-" the-struct_120)"
+" the-struct_116)"
 "(root-expand-context/outer-frame-id"
-" the-struct_120)"
+" the-struct_116)"
 " context692_0"
 "(expand-context/outer-env"
-" the-struct_120)"
+" the-struct_116)"
 "(expand-context/outer-post-expansion-scope-action"
-" the-struct_120)"
+" the-struct_116)"
 "(expand-context/outer-scopes"
-" the-struct_120)"
+" the-struct_116)"
 "(expand-context/outer-def-ctx-scopes"
-" the-struct_120)"
+" the-struct_116)"
 "(expand-context/outer-binding-layer"
-" the-struct_120)"
+" the-struct_116)"
 "(expand-context/outer-reference-records"
-" the-struct_120)"
+" the-struct_116)"
 "(expand-context/outer-only-immediate?"
-" the-struct_120)"
+" the-struct_116)"
 "(expand-context/outer-need-eventually-defined"
-" the-struct_120)"
+" the-struct_116)"
 "(expand-context/outer-current-introduction-scopes"
-" the-struct_120)"
+" the-struct_116)"
 "(expand-context/outer-name"
-" the-struct_120)))"
+" the-struct_116)))"
 "(raise-argument-error"
 " 'struct-copy"
 "                                                                               \"expand-context/outer?\""
-" the-struct_120)))))"
-"((self684_0) self_41)"
+" the-struct_116)))))"
+"((self684_0) self_42)"
 "((temp685_0) #t)"
 "((keep-enclosing-scope-at-phase686_0)"
 " keep-enclosing-scope-at-phase_2)"
@@ -78656,37 +76802,30 @@ static const char *startup_source =
 " modules-being-compiled_8))"
 "(expand-module18.1"
 " temp685_0"
-" #t"
 " enclosing-all-scopes-stx687_0"
-" #t"
 " enclosing-is-cross-phase-persistent?689_0"
-" #t"
 " enclosing-r+p688_0"
-" #t"
 " keep-enclosing-scope-at-phase686_0"
-" #t"
 " modules-being-compiled691_0"
-" #t"
 " mpis-to-reset690_0"
-" #t"
 " s682_0"
 " temp683_0"
 " self684_0))))"
 "(let-values((()"
 "(begin"
-"(let-values(((obs_164)"
-"(expand-context-observer ctx_122)))"
-"(if obs_164"
+"(let-values(((obs_163)"
+"(expand-context-observer ctx_120)))"
+"(if obs_163"
 "(let-values()"
 "(let-values()"
 "(call-expand-observe"
-" obs_164"
+" obs_163"
 " 'exit-prim"
 "(extract-syntax submod_5))))"
 "(void)))"
 "(values))))"
-"(let-values(((ns_131)(expand-context-namespace ctx_122)))"
-"(let-values(((module-name_3)(1/module-path-index-resolve self_41)))"
+"(let-values(((ns_131)(expand-context-namespace ctx_120)))"
+"(let-values(((module-name_3)(1/module-path-index-resolve self_42)))"
 "(let-values(((root-module-name_1)"
 "(resolved-module-path-root-name module-name_3)))"
 "(let-values(((compiled-submodule_0)"
@@ -78696,47 +76835,36 @@ static const char *startup_source =
 " submod_5))"
 "((temp697_0)"
 "(let-values(((ns702_0) ns_131)"
-"((self703_0) self_41)"
+"((self703_0) self_42)"
 "((temp704_0)"
 "(1/resolved-module-path-name"
 " module-name_3)))"
 "(make-compile-context14.1"
 " temp704_0"
-" #t"
-" #f"
-" #f"
+" unsafe-undefined"
 " self703_0"
-" #t"
 " ns702_0"
-" #t"
-" #f"
-" #f"
-" #f"
-" #f)))"
+" unsafe-undefined"
+" unsafe-undefined)))"
 "((temp698_0) #t)"
 "((temp699_0)"
 "(expand-context-for-serializable?"
-" ctx_122))"
+" ctx_120))"
 "((modules-being-compiled700_0)"
 " modules-being-compiled_8)"
 "((temp701_0) #f))"
 "(compile-module13.1"
 " temp698_0"
-" #t"
 " modules-being-compiled700_0"
-" #t"
 " temp701_0"
-" #t"
 " temp699_0"
-" #t"
-" #f"
 " #f"
 " temp696_0"
 " temp697_0))))"
 "(begin"
 "(hash-set!"
 " compiled-submodules_5"
-" name_81"
+" name_82"
 "(cons is-star?_0 compiled-submodule_0))"
 "(with-continuation-mark"
 " parameterization-key"
@@ -78751,23 +76879,20 @@ static const char *startup_source =
 " compiled-submodule_0)"
 "((temp706_0) #f))"
 "(eval-module8.1"
-" #f"
-" #f"
-" #f"
+" unsafe-undefined"
 " #f"
 " temp706_0"
-" #t"
 " compiled-submodule705_0))))"
 "(if is-star?_0"
 "(void)"
 "(let-values()"
-"(let-values(((obs_165)"
-"(expand-context-observer ctx_122)))"
-"(if obs_165"
+"(let-values(((obs_164)"
+"(expand-context-observer ctx_120)))"
+"(if obs_164"
 "(let-values()"
 "(let-values()"
 "(call-expand-observe"
-" obs_165"
+" obs_164"
 " 'exit-prim"
 "(extract-syntax submod_5))))"
 "(void)))))"
@@ -78775,67 +76900,67 @@ static const char *startup_source =
 "(let-values() submod_5)"
 "(if(expanded+parsed? submod_5)"
 "(let-values()"
-"(let-values(((the-struct_122) submod_5))"
-"(if(expanded+parsed? the-struct_122)"
+"(let-values(((the-struct_118) submod_5))"
+"(if(expanded+parsed? the-struct_118)"
 "(let-values(((parsed707_0)"
-"(let-values(((the-struct_123)"
+"(let-values(((the-struct_119)"
 "(expanded+parsed-parsed"
 " submod_5)))"
-"(if(parsed-module? the-struct_123)"
+"(if(parsed-module? the-struct_119)"
 "(let-values(((star?708_0) #t))"
 "(parsed-module25.1"
-"(parsed-s the-struct_123)"
+"(parsed-s the-struct_119)"
 " star?708_0"
 "(parsed-module-name-id"
-" the-struct_123)"
+" the-struct_119)"
 "(parsed-module-self"
-" the-struct_123)"
+" the-struct_119)"
 "(parsed-module-requires"
-" the-struct_123)"
+" the-struct_119)"
 "(parsed-module-provides"
-" the-struct_123)"
+" the-struct_119)"
 "(parsed-module-root-ctx-simple?"
-" the-struct_123)"
+" the-struct_119)"
 "(parsed-module-encoded-root-ctx"
-" the-struct_123)"
+" the-struct_119)"
 "(parsed-module-body"
-" the-struct_123)"
+" the-struct_119)"
 "(parsed-module-compiled-module"
-" the-struct_123)"
+" the-struct_119)"
 "(parsed-module-compiled-submodules"
-" the-struct_123)))"
+" the-struct_119)))"
 "(raise-argument-error"
 " 'struct-copy"
 "                                                                                       \"parsed-module?\""
-" the-struct_123)))))"
+" the-struct_119)))))"
 "(expanded+parsed1.1"
-"(expanded+parsed-s the-struct_122)"
+"(expanded+parsed-s the-struct_118)"
 " parsed707_0))"
 "(raise-argument-error"
 " 'struct-copy"
 "                                                                     \"expanded+parsed?\""
-" the-struct_122))))"
+" the-struct_118))))"
 "(let-values()"
-"(let-values(((the-struct_124) submod_5))"
-"(if(parsed-module? the-struct_124)"
+"(let-values(((the-struct_120) submod_5))"
+"(if(parsed-module? the-struct_120)"
 "(let-values(((star?709_0) #t))"
 "(parsed-module25.1"
-"(parsed-s the-struct_124)"
+"(parsed-s the-struct_120)"
 " star?709_0"
-"(parsed-module-name-id the-struct_124)"
-"(parsed-module-self the-struct_124)"
-"(parsed-module-requires the-struct_124)"
-"(parsed-module-provides the-struct_124)"
-"(parsed-module-root-ctx-simple? the-struct_124)"
-"(parsed-module-encoded-root-ctx the-struct_124)"
-"(parsed-module-body the-struct_124)"
-"(parsed-module-compiled-module the-struct_124)"
+"(parsed-module-name-id the-struct_120)"
+"(parsed-module-self the-struct_120)"
+"(parsed-module-requires the-struct_120)"
+"(parsed-module-provides the-struct_120)"
+"(parsed-module-root-ctx-simple? the-struct_120)"
+"(parsed-module-encoded-root-ctx the-struct_120)"
+"(parsed-module-body the-struct_120)"
+"(parsed-module-compiled-module the-struct_120)"
 "(parsed-module-compiled-submodules"
-" the-struct_124)))"
+" the-struct_120)))"
 "(raise-argument-error"
 " 'struct-copy"
 "                                                                     \"parsed-module?\""
-" the-struct_124)))))))))))))))))))))))))))))))))))"
+" the-struct_120)))))))))))))))))))))))))))))))))))"
 "(define-values"
 "(expand-non-module*-submodules212.1)"
 "(lambda(compiled-submodules202_0"
@@ -78848,47 +76973,47 @@ static const char *startup_source =
 " ctx211_0)"
 "(begin"
 " 'expand-non-module*-submodules212"
-"(let-values(((bodys_28) bodys208_0))"
-"(let-values(((phase_168) phase209_0))"
-"(let-values(((self_42) self210_0))"
-"(let-values(((ctx_123) ctx211_0))"
+"(let-values(((bodys_29) bodys208_0))"
+"(let-values(((phase_158) phase209_0))"
+"(let-values(((self_43) self210_0))"
+"(let-values(((ctx_121) ctx211_0))"
 "(let-values(((mpis-to-reset_5) mpis-to-reset200_0))"
 "(let-values(((declared-submodule-names_9) declared-submodule-names201_0))"
 "(let-values(((compiled-submodules_6) compiled-submodules202_0))"
 "(let-values(((modules-being-compiled_9) modules-being-compiled203_0))"
 "(let-values()"
 "(reverse$1"
-"(let-values(((lst_458) bodys_28))"
+"(let-values(((lst_453) bodys_29))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
-"(let-values()(check-list lst_458)))"
-"((letrec-values(((for-loop_343)"
-"(lambda(fold-var_394 lst_459)"
+"(let-values()(check-list lst_453)))"
+"((letrec-values(((for-loop_342)"
+"(lambda(fold-var_385 lst_454)"
 "(begin"
 " 'for-loop"
-"(if(pair? lst_459)"
-"(let-values(((body_27)(unsafe-car lst_459))"
-"((rest_260)(unsafe-cdr lst_459)))"
-"(let-values(((fold-var_395)"
-"(let-values(((fold-var_396) fold-var_394))"
-"(let-values(((fold-var_397)"
+"(if(pair? lst_454)"
+"(let-values(((body_25)(unsafe-car lst_454))"
+"((rest_269)(unsafe-cdr lst_454)))"
+"(let-values(((fold-var_386)"
+"(let-values(((fold-var_387) fold-var_385))"
+"(let-values(((fold-var_388)"
 "(let-values()"
 "(cons"
 "(let-values()"
 "(let-values(((tmp_70)"
 "(core-form-sym"
 "(syntax-disarm$1"
-" body_27)"
-" phase_168)))"
+" body_25)"
+" phase_158)))"
 "(if(equal? tmp_70 'module)"
 "(let-values()"
 "(let-values(((body710_0)"
-" body_27)"
+" body_25)"
 "((self711_0)"
-" self_42)"
+" self_43)"
 "((ctx712_0)"
-" ctx_123)"
+" ctx_121)"
 "((temp713_0)"
 " #f)"
 "((mpis-to-reset714_0)"
@@ -78905,68 +77030,64 @@ static const char *startup_source =
 " #f"
 " #f"
 " #f"
-" #f"
-" #f"
-" #f"
 " temp713_0"
 " #f"
-" #f"
 " modules-being-compiled717_0"
 " mpis-to-reset714_0"
 " body710_0"
 " self711_0"
 " ctx712_0)))"
-"(let-values() body_27))))"
-" fold-var_396))))"
-"(values fold-var_397)))))"
+"(let-values() body_25))))"
+" fold-var_387))))"
+"(values fold-var_388)))))"
 "(if(not #f)"
-"(for-loop_343 fold-var_395 rest_260)"
-" fold-var_395)))"
-" fold-var_394)))))"
-" for-loop_343)"
+"(for-loop_342 fold-var_386 rest_269)"
+" fold-var_386)))"
+" fold-var_385)))))"
+" for-loop_342)"
 " null"
-" lst_458))))))))))))))))"
+" lst_453))))))))))))))))"
 "(define-values"
 "(make-parse-lifted-require220.1)"
 "(lambda(declared-submodule-names215_0 m-ns217_0 self218_0 requires+provides219_0)"
 "(begin"
 " 'make-parse-lifted-require220"
-"(let-values(((m-ns_23) m-ns217_0))"
-"(let-values(((self_43) self218_0))"
+"(let-values(((m-ns_24) m-ns217_0))"
+"(let-values(((self_44) self218_0))"
 "(let-values(((requires+provides_14) requires+provides219_0))"
 "(let-values(((declared-submodule-names_10) declared-submodule-names215_0))"
 "(let-values()"
-"(lambda(s_914 phase_169)"
-"(let-values(((ok?_91 #%require718_0 req719_0)"
-"(let-values(((s_915)(syntax-disarm$1 s_914)))"
-"(let-values(((orig-s_95) s_915))"
+"(lambda(s_900 phase_159)"
+"(let-values(((ok?_92 #%require718_0 req719_0)"
+"(let-values(((s_901)(syntax-disarm$1 s_900)))"
+"(let-values(((orig-s_95) s_901))"
 "(let-values(((#%require718_1 req719_1)"
-"(let-values(((s_916)"
-"(if(syntax?$1 s_915)(syntax-e$1 s_915) s_915)))"
-"(if(pair? s_916)"
+"(let-values(((s_902)"
+"(if(syntax?$1 s_901)(syntax-e$1 s_901) s_901)))"
+"(if(pair? s_902)"
 "(let-values(((#%require720_0)"
-"(let-values(((s_917)(car s_916))) s_917))"
+"(let-values(((s_903)(car s_902))) s_903))"
 "((req721_0)"
-"(let-values(((s_918)(cdr s_916)))"
-"(let-values(((s_919)"
-"(if(syntax?$1 s_918)"
-"(syntax-e$1 s_918)"
-" s_918)))"
-"(if(pair? s_919)"
+"(let-values(((s_904)(cdr s_902)))"
+"(let-values(((s_905)"
+"(if(syntax?$1 s_904)"
+"(syntax-e$1 s_904)"
+" s_904)))"
+"(if(pair? s_905)"
 "(let-values(((req722_0)"
-"(let-values(((s_920)"
-"(car s_919)))"
-" s_920))"
+"(let-values(((s_906)"
+"(car s_905)))"
+" s_906))"
 "(()"
-"(let-values(((s_921)"
-"(cdr s_919)))"
-"(let-values(((s_922)"
+"(let-values(((s_907)"
+"(cdr s_905)))"
+"(let-values(((s_908)"
 "(if(syntax?$1"
-" s_921)"
+" s_907)"
 "(syntax-e$1"
-" s_921)"
-" s_921)))"
-"(if(null? s_922)"
+" s_907)"
+" s_907)))"
+"(if(null? s_908)"
 "(values)"
 "(raise-syntax-error$1"
 " #f"
@@ -78981,33 +77102,24 @@ static const char *startup_source =
 "                                                      (raise-syntax-error$1 #f \"bad syntax\" orig-s_95)))))"
 "(values #t #%require718_1 req719_1))))))"
 "(let-values(((temp723_0)(list req719_0))"
-"((s724_0) s_914)"
-"((self725_0) self_43)"
-"((m-ns726_0) m-ns_23)"
-"((phase727_0) phase_169)"
-"((phase728_0) phase_169)"
+"((s724_0) s_900)"
+"((self725_0) self_44)"
+"((m-ns726_0) m-ns_24)"
+"((phase727_0) phase_159)"
+"((phase728_0) phase_159)"
 "((requires+provides729_0) requires+provides_14)"
 "((declared-submodule-names730_0) declared-submodule-names_10)"
 "((temp731_0) 'require))"
 "(parse-and-perform-requires!30.1"
 " #f"
 " #f"
-" #f"
-" #f"
 " declared-submodule-names730_0"
-" #t"
-" #f"
 " #f"
 " phase728_0"
-" #t"
-" #f"
 " #f"
 " self725_0"
+" #f"
 " #t"
-" #f"
-" #f"
-" #f"
-" #f"
 " temp731_0"
 " temp723_0"
 " s724_0"
@@ -79027,107 +77139,107 @@ static const char *startup_source =
 "(lambda(lifted-defns_2)"
 "(begin"
 "(reverse$1"
-"(let-values(((lst_460) lifted-defns_2))"
+"(let-values(((lst_455) lifted-defns_2))"
 "(begin"
-"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_460)))"
-"((letrec-values(((for-loop_344)"
-"(lambda(fold-var_398 lst_461)"
+"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_455)))"
+"((letrec-values(((for-loop_343)"
+"(lambda(fold-var_389 lst_456)"
 "(begin"
 " 'for-loop"
-"(if(pair? lst_461)"
-"(let-values(((lifted-defn_0)(unsafe-car lst_461))"
-"((rest_261)(unsafe-cdr lst_461)))"
-"(let-values(((fold-var_399)"
-"(let-values(((fold-var_400) fold-var_398))"
-"(let-values(((fold-var_401)"
+"(if(pair? lst_456)"
+"(let-values(((lifted-defn_0)(unsafe-car lst_456))"
+"((rest_270)(unsafe-cdr lst_456)))"
+"(let-values(((fold-var_390)"
+"(let-values(((fold-var_391) fold-var_389))"
+"(let-values(((fold-var_392)"
 "(let-values()"
 "(cons"
 "(let-values()"
 "(defn-extract-syntax lifted-defn_0))"
-" fold-var_400))))"
-"(values fold-var_401)))))"
-"(if(not #f)(for-loop_344 fold-var_399 rest_261) fold-var_399)))"
-" fold-var_398)))))"
-" for-loop_344)"
+" fold-var_391))))"
+"(values fold-var_392)))))"
+"(if(not #f)(for-loop_343 fold-var_390 rest_270) fold-var_390)))"
+" fold-var_389)))))"
+" for-loop_343)"
 " null"
-" lst_460)))))))"
+" lst_455)))))))"
 "(define-values"
 "(log-lifted-defns)"
 "(lambda(partial-body-ctx_2 lifted-defns_3 exp-body_10 rest-bodys_4)"
 "(begin"
-"(let-values(((obs_166)(expand-context-observer partial-body-ctx_2)))"
-"(if obs_166"
+"(let-values(((obs_165)(expand-context-observer partial-body-ctx_2)))"
+"(if obs_165"
 "(let-values()"
 "(let-values(((s-lifted-defns_0)(lifted-defns-extract-syntax lifted-defns_3)))"
 "(let-values((()"
 "(begin"
-"(call-expand-observe obs_166 'rename-list(cons exp-body_10 rest-bodys_4))"
+"(call-expand-observe obs_165 'rename-list(cons exp-body_10 rest-bodys_4))"
 "(values))))"
-"(let-values((()(begin(call-expand-observe obs_166 'module-lift-loop s-lifted-defns_0)(values))))"
+"(let-values((()(begin(call-expand-observe obs_165 'module-lift-loop s-lifted-defns_0)(values))))"
 "(let-values((()"
 "(begin"
-"(let-values(((lst_462) s-lifted-defns_0))"
+"(let-values(((lst_457) s-lifted-defns_0))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
-"(let-values()(check-list lst_462)))"
-"((letrec-values(((for-loop_345)"
-"(lambda(lst_463)"
+"(let-values()(check-list lst_457)))"
+"((letrec-values(((for-loop_344)"
+"(lambda(lst_458)"
 "(begin"
 " 'for-loop"
-"(if(pair? lst_463)"
-"(let-values(((s-lifted-defn_0)(unsafe-car lst_463))"
-"((rest_262)(unsafe-cdr lst_463)))"
+"(if(pair? lst_458)"
+"(let-values(((s-lifted-defn_0)(unsafe-car lst_458))"
+"((rest_271)(unsafe-cdr lst_458)))"
 "(let-values((()"
 "(let-values()"
 "(let-values((()"
 "(let-values()"
 "(begin"
 "(let-values()"
-"(let-values(((ok?_92"
+"(let-values(((ok?_93"
 " define-values736_0"
 " _737_0)"
-"(let-values(((s_923)"
+"(let-values(((s_909)"
 " s-lifted-defn_0))"
 "(let-values(((orig-s_96)"
-" s_923))"
+" s_909))"
 "(let-values(((define-values736_1"
 " _737_1)"
-"(let-values(((s_924)"
+"(let-values(((s_910)"
 "(if(syntax?$1"
-" s_923)"
+" s_909)"
 "(syntax-e$1"
-" s_923)"
-" s_923)))"
+" s_909)"
+" s_909)))"
 "(if(pair?"
-" s_924)"
+" s_910)"
 "(let-values(((define-values738_0)"
-"(let-values(((s_925)"
+"(let-values(((s_911)"
 "(car"
-" s_924)))"
-" s_925))"
+" s_910)))"
+" s_911))"
 "((_739_0)"
-"(let-values(((s_926)"
+"(let-values(((s_912)"
 "(cdr"
-" s_924)))"
-"(let-values(((s_927)"
+" s_910)))"
+"(let-values(((s_913)"
 "(if(syntax?$1"
-" s_926)"
+" s_912)"
 "(syntax-e$1"
-" s_926)"
-" s_926)))"
-"(let-values(((flat-s_64)"
+" s_912)"
+" s_912)))"
+"(let-values(((flat-s_66)"
 "(to-syntax-list.1"
-" s_927)))"
+" s_913)))"
 "(if(not"
-" flat-s_64)"
+" flat-s_66)"
 "(let-values()"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                 \"bad syntax\""
 " orig-s_96))"
 "(let-values()"
-" flat-s_64)))))))"
+" flat-s_66)))))))"
 "(values"
 " define-values738_0"
 " _739_0))"
@@ -79141,212 +77253,212 @@ static const char *startup_source =
 " _737_1))))))"
 "(begin"
 "(call-expand-observe"
-" obs_166"
+" obs_165"
 " 'next)"
 "(call-expand-observe"
-" obs_166"
+" obs_165"
 " 'visit"
 " s-lifted-defn_0)"
 "(call-expand-observe"
-" obs_166"
+" obs_165"
 " 'resolve"
 " define-values736_0)"
 "(call-expand-observe"
-" obs_166"
+" obs_165"
 " 'enter-prim"
 " s-lifted-defn_0)"
 "(call-expand-observe"
-" obs_166"
+" obs_165"
 " 'prim-stop)"
 "(call-expand-observe"
-" obs_166"
+" obs_165"
 " 'exit-prim"
 " s-lifted-defn_0)"
 "(call-expand-observe"
-" obs_166"
+" obs_165"
 " 'return"
 " s-lifted-defn_0)"
 "(call-expand-observe"
-" obs_166"
+" obs_165"
 " 'rename-one"
 " s-lifted-defn_0)"
 "(call-expand-observe"
-" obs_166"
+" obs_165"
 " 'enter-prim"
 " s-lifted-defn_0)"
 "(call-expand-observe"
-" obs_166"
+" obs_165"
 " 'prim-define-values)"
 "(call-expand-observe"
-" obs_166"
+" obs_165"
 " 'exit-prim"
 " s-lifted-defn_0))))"
 "(values)))))"
 "(values)))))"
-"(if(not #f)(for-loop_345 rest_262)(values))))"
+"(if(not #f)(for-loop_344 rest_271)(values))))"
 "(values))))))"
-" for-loop_345)"
-" lst_462)))"
+" for-loop_344)"
+" lst_457)))"
 "(values))))"
 "(let-values()"
-"(let-values(((ok?_93 form-id732_0 _733_0)"
-"(let-values(((s_928) exp-body_10))"
-"(let-values(((orig-s_97) s_928))"
+"(let-values(((ok?_94 form-id732_0 _733_0)"
+"(let-values(((s_914) exp-body_10))"
+"(let-values(((orig-s_97) s_914))"
 "(let-values(((form-id732_1 _733_1)"
-"(let-values(((s_929)"
-"(if(syntax?$1 s_928)(syntax-e$1 s_928) s_928)))"
-"(if(pair? s_929)"
+"(let-values(((s_915)"
+"(if(syntax?$1 s_914)(syntax-e$1 s_914) s_914)))"
+"(if(pair? s_915)"
 "(let-values(((form-id734_0)"
-"(let-values(((s_930)(car s_929))) s_930))"
+"(let-values(((s_916)(car s_915))) s_916))"
 "((_735_0)"
-"(let-values(((s_931)(cdr s_929))) s_931)))"
+"(let-values(((s_917)(cdr s_915))) s_917)))"
 "(values form-id734_0 _735_0))"
 "                                                          (raise-syntax-error$1 #f \"bad syntax\" orig-s_97)))))"
 "(values #t form-id732_1 _733_1))))))"
 "(begin"
-"(call-expand-observe obs_166 'next)"
-"(call-expand-observe obs_166 'visit exp-body_10)"
-"(call-expand-observe obs_166 'resolve form-id732_0)"
-"(call-expand-observe obs_166 'enter-prim exp-body_10)"
-"(call-expand-observe obs_166 'prim-stop)"
-"(call-expand-observe obs_166 'exit-prim exp-body_10)"
-"(call-expand-observe obs_166 'return exp-body_10)))))))))"
+"(call-expand-observe obs_165 'next)"
+"(call-expand-observe obs_165 'visit exp-body_10)"
+"(call-expand-observe obs_165 'resolve form-id732_0)"
+"(call-expand-observe obs_165 'enter-prim exp-body_10)"
+"(call-expand-observe obs_165 'prim-stop)"
+"(call-expand-observe obs_165 'exit-prim exp-body_10)"
+"(call-expand-observe obs_165 'return exp-body_10)))))))))"
 "(void))))))"
 "(define-values"
 "(log-defn-enter)"
-"(lambda(ctx_124 defn_1)"
+"(lambda(ctx_122 defn_1)"
 "(begin"
-"(let-values(((obs_167)(expand-context-observer ctx_124)))"
-"(if obs_167"
+"(let-values(((obs_166)(expand-context-observer ctx_122)))"
+"(if obs_166"
 "(let-values()"
 "(let-values(((s-defn_0)(defn-extract-syntax defn_1)))"
-"(let-values(((ok?_94 define-values740_0 _741_0)"
-"(let-values(((s_932) s-defn_0))"
-"(let-values(((orig-s_98) s_932))"
+"(let-values(((ok?_95 define-values740_0 _741_0)"
+"(let-values(((s_918) s-defn_0))"
+"(let-values(((orig-s_98) s_918))"
 "(let-values(((define-values740_1 _741_1)"
-"(let-values(((s_933)(if(syntax?$1 s_932)(syntax-e$1 s_932) s_932)))"
-"(if(pair? s_933)"
+"(let-values(((s_919)(if(syntax?$1 s_918)(syntax-e$1 s_918) s_918)))"
+"(if(pair? s_919)"
 "(let-values(((define-values742_0)"
-"(let-values(((s_934)(car s_933))) s_934))"
+"(let-values(((s_920)(car s_919))) s_920))"
 "((_743_0)"
-"(let-values(((s_935)(cdr s_933)))"
-"(let-values(((s_936)"
-"(if(syntax?$1 s_935)"
-"(syntax-e$1 s_935)"
-" s_935)))"
-"(let-values(((flat-s_65)(to-syntax-list.1 s_936)))"
-"(if(not flat-s_65)"
+"(let-values(((s_921)(cdr s_919)))"
+"(let-values(((s_922)"
+"(if(syntax?$1 s_921)"
+"(syntax-e$1 s_921)"
+" s_921)))"
+"(let-values(((flat-s_67)(to-syntax-list.1 s_922)))"
+"(if(not flat-s_67)"
 "(let-values()"
 "(raise-syntax-error$1"
 " #f"
 "                                                                           \"bad syntax\""
 " orig-s_98))"
-"(let-values() flat-s_65)))))))"
+"(let-values() flat-s_67)))))))"
 "(values define-values742_0 _743_0))"
 "                                                  (raise-syntax-error$1 #f \"bad syntax\" orig-s_98)))))"
 "(values #t define-values740_1 _741_1))))))"
 "(begin"
-"(call-expand-observe obs_167 'visit s-defn_0)"
-"(call-expand-observe obs_167 'resolve define-values740_0)"
-"(call-expand-observe obs_167 'enter-prim s-defn_0)"
-"(call-expand-observe obs_167 'prim-define-values)))))"
+"(call-expand-observe obs_166 'visit s-defn_0)"
+"(call-expand-observe obs_166 'resolve define-values740_0)"
+"(call-expand-observe obs_166 'enter-prim s-defn_0)"
+"(call-expand-observe obs_166 'prim-define-values)))))"
 "(void))))))"
 "(define-values"
 "(log-defn-exit)"
-"(lambda(ctx_125 defn_2 exp-rhs_8)"
+"(lambda(ctx_123 defn_2 exp-rhs_8)"
 "(begin"
-"(let-values(((obs_168)(expand-context-observer ctx_125)))"
-"(if obs_168"
+"(let-values(((obs_167)(expand-context-observer ctx_123)))"
+"(if obs_167"
 "(let-values()"
 "(let-values(((s-defn_1)"
 "(datum->syntax$1"
 " #f"
 "(list 'define-values(semi-parsed-define-values-ids defn_2) exp-rhs_8)"
 "(semi-parsed-define-values-s defn_2))))"
-"(begin(call-expand-observe obs_168 'exit-prim s-defn_1)(call-expand-observe obs_168 'return s-defn_1))))"
+"(begin(call-expand-observe obs_167 'exit-prim s-defn_1)(call-expand-observe obs_167 'return s-defn_1))))"
 "(void))))))"
 "(define-values"
 "(as-expand-time-top-level-bindings)"
-"(lambda(ids_50 s_71 ctx_126)"
+"(lambda(ids_51 s_72 ctx_124)"
 "(begin"
-"(let-values(((top-level-bind-scope_6)(root-expand-context-top-level-bind-scope ctx_126)))"
+"(let-values(((top-level-bind-scope_6)(root-expand-context-top-level-bind-scope ctx_124)))"
 "(let-values(((tl-ids_2)"
 "(reverse$1"
-"(let-values(((lst_6) ids_50))"
+"(let-values(((lst_84) ids_51))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
-"(let-values()(check-list lst_6)))"
-"((letrec-values(((for-loop_106)"
-"(lambda(fold-var_402 lst_83)"
+"(let-values()(check-list lst_84)))"
+"((letrec-values(((for-loop_103)"
+"(lambda(fold-var_393 lst_85)"
 "(begin"
 " 'for-loop"
-"(if(pair? lst_83)"
-"(let-values(((id_164)(unsafe-car lst_83))"
-"((rest_39)(unsafe-cdr lst_83)))"
+"(if(pair? lst_85)"
+"(let-values(((id_50)(unsafe-car lst_85))"
+"((rest_40)(unsafe-cdr lst_85)))"
 "(let-values(((fold-var_61)"
-"(let-values(((fold-var_62) fold-var_402))"
-"(let-values(((fold-var_403)"
+"(let-values(((fold-var_62) fold-var_393))"
+"(let-values(((fold-var_394)"
 "(let-values()"
 "(cons"
 "(let-values()"
 "(remove-use-site-scopes"
-" id_164"
-" ctx_126))"
+" id_50"
+" ctx_124))"
 " fold-var_62))))"
-"(values fold-var_403)))))"
-"(if(not #f)(for-loop_106 fold-var_61 rest_39) fold-var_61)))"
-" fold-var_402)))))"
-" for-loop_106)"
+"(values fold-var_394)))))"
+"(if(not #f)(for-loop_103 fold-var_61 rest_40) fold-var_61)))"
+" fold-var_393)))))"
+" for-loop_103)"
 " null"
-" lst_6))))))"
+" lst_84))))))"
 "(let-values((()"
 "(begin"
-"(let-values(((tl-ids1_0) tl-ids_2)((temp2_9)(expand-context-phase ctx_126))((s3_4) s_71))"
-"(check-no-duplicate-ids8.1 #f #f tl-ids1_0 temp2_9 s3_4 #f #f))"
+"(let-values(((tl-ids1_0) tl-ids_2)((temp2_9)(expand-context-phase ctx_124))((s3_3) s_72))"
+"(check-no-duplicate-ids7.1 unsafe-undefined tl-ids1_0 temp2_9 s3_3 unsafe-undefined))"
 "(values))))"
 "(let-values(((tmp-bind-ids_0)"
 "(reverse$1"
-"(let-values(((lst_100) tl-ids_2))"
+"(let-values(((lst_459) tl-ids_2))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
-"(let-values()(check-list lst_100)))"
-"((letrec-values(((for-loop_346)"
-"(lambda(fold-var_222 lst_84)"
+"(let-values()(check-list lst_459)))"
+"((letrec-values(((for-loop_80)"
+"(lambda(fold-var_216 lst_86)"
 "(begin"
 " 'for-loop"
-"(if(pair? lst_84)"
-"(let-values(((id_165)(unsafe-car lst_84))"
-"((rest_242)(unsafe-cdr lst_84)))"
+"(if(pair? lst_86)"
+"(let-values(((id_159)(unsafe-car lst_86))"
+"((rest_251)(unsafe-cdr lst_86)))"
 "(let-values(((fold-var_26)"
-"(let-values(((fold-var_155) fold-var_222))"
-"(let-values(((fold-var_225)"
+"(let-values(((fold-var_395) fold-var_216))"
+"(let-values(((fold-var_219)"
 "(let-values()"
 "(cons"
 "(let-values()"
 "(add-scope"
-" id_165"
+" id_159"
 " top-level-bind-scope_6))"
-" fold-var_155))))"
-"(values fold-var_225)))))"
+" fold-var_395))))"
+"(values fold-var_219)))))"
 "(if(not #f)"
-"(for-loop_346 fold-var_26 rest_242)"
+"(for-loop_80 fold-var_26 rest_251)"
 " fold-var_26)))"
-" fold-var_222)))))"
-" for-loop_346)"
+" fold-var_216)))))"
+" for-loop_80)"
 " null"
-" lst_100))))))"
-"(values tl-ids_2(select-defined-syms-and-bind!/ctx tmp-bind-ids_0 ctx_126)))))))))"
+" lst_459))))))"
+"(values tl-ids_2(select-defined-syms-and-bind!/ctx tmp-bind-ids_0 ctx_124)))))))))"
 "(void"
 "(add-core-form!*"
 " 'define-values"
 "(lambda(s_0 ctx_7)"
 "(let-values((()"
 "(begin"
-"(let-values(((obs_169)(expand-context-observer ctx_7)))"
-"(if obs_169"
-"(let-values()(let-values()(call-expand-observe obs_169 'prim-define-values)))"
+"(let-values(((obs_168)(expand-context-observer ctx_7)))"
+"(if obs_168"
+"(let-values()(let-values()(call-expand-observe obs_168 'prim-define-values)))"
 "(void)))"
 "(values))))"
 "(let-values((()"
@@ -79356,124 +77468,124 @@ static const char *startup_source =
 "                         (let-values () (raise-syntax-error$1 #f \"not allowed in an expression position\" s_0)))"
 "(values))))"
 "(let-values(((disarmed-s_25)(syntax-disarm$1 s_0)))"
-"(let-values(((ok?_25 define-values1_0 id2_1 rhs3_0)"
-"(let-values(((s_451) s_0))"
-"(let-values(((orig-s_99) s_451))"
+"(let-values(((ok?_26 define-values1_0 id2_1 rhs3_0)"
+"(let-values(((s_490) s_0))"
+"(let-values(((orig-s_99) s_490))"
 "(let-values(((define-values1_1 id2_2 rhs3_1)"
-"(let-values(((s_75)(if(syntax?$1 s_451)(syntax-e$1 s_451) s_451)))"
-"(if(pair? s_75)"
+"(let-values(((s_76)(if(syntax?$1 s_490)(syntax-e$1 s_490) s_490)))"
+"(if(pair? s_76)"
 "(let-values(((define-values4_0)"
-"(let-values(((s_452)(car s_75))) s_452))"
+"(let-values(((s_413)(car s_76))) s_413))"
 "((id5_0 rhs6_0)"
-"(let-values(((s_169)(cdr s_75)))"
+"(let-values(((s_167)(cdr s_76)))"
 "(let-values(((s_5)"
-"(if(syntax?$1 s_169)"
-"(syntax-e$1 s_169)"
-" s_169)))"
+"(if(syntax?$1 s_167)"
+"(syntax-e$1 s_167)"
+" s_167)))"
 "(if(pair? s_5)"
 "(let-values(((id7_0)"
-"(let-values(((s_79)(car s_5)))"
+"(let-values(((s_80)(car s_5)))"
 "(let-values(((s_6)"
-"(if(syntax?$1 s_79)"
-"(syntax-e$1 s_79)"
-" s_79)))"
-"(let-values(((flat-s_66)"
+"(if(syntax?$1 s_80)"
+"(syntax-e$1 s_80)"
+" s_80)))"
+"(let-values(((flat-s_68)"
 "(to-syntax-list.1"
 " s_6)))"
-"(if(not flat-s_66)"
+"(if(not flat-s_68)"
 "(let-values()"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                            \"bad syntax\""
 " orig-s_99))"
 "(let-values()"
-"(let-values(((id_6)"
-"(let-values(((lst_79)"
-" flat-s_66))"
+"(let-values(((id_53)"
+"(let-values(((lst_80)"
+" flat-s_68))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
 "(#%variable-reference))"
 "(void)"
 "(let-values()"
 "(check-list"
-" lst_79)))"
-"((letrec-values(((for-loop_99)"
-"(lambda(id_166"
-" lst_80)"
+" lst_80)))"
+"((letrec-values(((for-loop_96)"
+"(lambda(id_160"
+" lst_81)"
 "(begin"
 " 'for-loop"
 "(if(pair?"
-" lst_80)"
-"(let-values(((s_87)"
+" lst_81)"
+"(let-values(((s_88)"
 "(unsafe-car"
-" lst_80))"
-"((rest_119)"
+" lst_81))"
+"((rest_121)"
 "(unsafe-cdr"
-" lst_80)))"
-"(let-values(((id_167)"
-"(let-values(((id_168)"
-" id_166))"
-"(let-values(((id_118)"
+" lst_81)))"
+"(let-values(((id_161)"
+"(let-values(((id_162)"
+" id_160))"
+"(let-values(((id_113)"
 "(let-values()"
 "(let-values(((id10_1)"
 "(let-values()"
 "(if(let-values(((or-part_30)"
 "(if(syntax?$1"
-" s_87)"
+" s_88)"
 "(symbol?"
 "(syntax-e$1"
-" s_87))"
+" s_88))"
 " #f)))"
 "(if or-part_30"
 " or-part_30"
 "(symbol?"
-" s_87)))"
-" s_87"
+" s_88)))"
+" s_88"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                          \"not an identifier\""
 " orig-s_99"
-" s_87)))))"
+" s_88)))))"
 "(cons"
 " id10_1"
-" id_168)))))"
+" id_162)))))"
 "(values"
-" id_118)))))"
+" id_113)))))"
 "(if(not"
 " #f)"
-"(for-loop_99"
-" id_167"
-" rest_119)"
-" id_167)))"
-" id_166)))))"
-" for-loop_99)"
+"(for-loop_96"
+" id_161"
+" rest_121)"
+" id_161)))"
+" id_160)))))"
+" for-loop_96)"
 " null"
-" lst_79)))))"
-"(reverse$1 id_6))))))))"
+" lst_80)))))"
+"(reverse$1 id_53))))))))"
 "((rhs8_0)"
-"(let-values(((s_814)(cdr s_5)))"
+"(let-values(((s_306)(cdr s_5)))"
 "(let-values(((s_35)"
-"(if(syntax?$1 s_814)"
-"(syntax-e$1 s_814)"
-" s_814)))"
+"(if(syntax?$1 s_306)"
+"(syntax-e$1 s_306)"
+" s_306)))"
 "(if(pair? s_35)"
 "(let-values(((rhs9_0)"
-"(let-values(((s_89)"
+"(let-values(((s_90)"
 "(car"
 " s_35)))"
-" s_89))"
+" s_90))"
 "(()"
-"(let-values(((s_170)"
+"(let-values(((s_168)"
 "(cdr"
 " s_35)))"
-"(let-values(((s_492)"
+"(let-values(((s_307)"
 "(if(syntax?$1"
-" s_170)"
+" s_168)"
 "(syntax-e$1"
-" s_170)"
-" s_170)))"
+" s_168)"
+" s_168)))"
 "(if(null?"
-" s_492)"
+" s_307)"
 "(values)"
 "(raise-syntax-error$1"
 " #f"
@@ -79489,156 +77601,156 @@ static const char *startup_source =
 "(values define-values4_0 id5_0 rhs6_0))"
 "                                               (raise-syntax-error$1 #f \"bad syntax\" orig-s_99)))))"
 "(values #t define-values1_1 id2_2 rhs3_1))))))"
-"(let-values(((ids_51 syms_27)(as-expand-time-top-level-bindings id2_1 s_0 ctx_7)))"
+"(let-values(((ids_52 syms_26)(as-expand-time-top-level-bindings id2_1 s_0 ctx_7)))"
 "(let-values(((exp-rhs_9)"
 "(let-values(((temp11_7) rhs3_0)"
-"((temp12_9)(as-named-context(as-expression-context ctx_7) ids_51)))"
-"(expand9.1 #f #f #f #f #f #f temp11_7 temp12_9))))"
+"((temp12_9)(as-named-context(as-expression-context ctx_7) ids_52)))"
+"(expand9.1 #f #f #f temp11_7 temp12_9))))"
 "(if(expand-context-to-parsed? ctx_7)"
-"(parsed-define-values19.1 s_0 ids_51 syms_27 exp-rhs_9)"
-"(let-values(((s13_0) s_0)((temp14_8)(list define-values1_0 ids_51 exp-rhs_9)))"
-"(rebuild5.1 #f #f s13_0 temp14_8))))))))))))"
+"(parsed-define-values19.1 s_0 ids_52 syms_26 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))))))))))))"
 "(void"
 "(add-core-form!*"
 " 'define-syntaxes"
-"(lambda(s_188 ctx_127)"
+"(lambda(s_186 ctx_125)"
 "(let-values((()"
 "(begin"
-"(let-values(((obs_3)(expand-context-observer ctx_127)))"
-"(if obs_3"
-"(let-values()(let-values()(call-expand-observe obs_3 'prim-define-syntaxes)))"
+"(let-values(((obs_169)(expand-context-observer ctx_125)))"
+"(if obs_169"
+"(let-values()(let-values()(call-expand-observe obs_169 'prim-define-syntaxes)))"
 "(void)))"
 "(values))))"
 "(let-values((()"
 "(begin"
-"(let-values(((obs_170)(expand-context-observer ctx_127)))"
+"(let-values(((obs_170)(expand-context-observer ctx_125)))"
 "(if obs_170(let-values()(let-values()(call-expand-observe obs_170 'prepare-env)))(void)))"
 "(values))))"
 "(let-values((()"
 "(begin"
-"(if(eq?(expand-context-context ctx_127) 'top-level)"
+"(if(eq?(expand-context-context ctx_125) 'top-level)"
 "(void)"
-"                           (let-values () (raise-syntax-error$1 #f \"not in a definition context\" s_188)))"
+"                           (let-values () (raise-syntax-error$1 #f \"not in a definition context\" s_186)))"
 "(values))))"
-"(let-values(((disarmed-s_26)(syntax-disarm$1 s_188)))"
-"(let-values(((ok?_95 define-syntaxes15_0 id16_1 rhs17_0)"
+"(let-values(((disarmed-s_26)(syntax-disarm$1 s_186)))"
+"(let-values(((ok?_96 define-syntaxes15_0 id16_1 rhs17_0)"
 "(let-values(((s_18) disarmed-s_26))"
 "(let-values(((orig-s_100) s_18))"
 "(let-values(((define-syntaxes15_1 id16_2 rhs17_1)"
 "(let-values(((s_22)(if(syntax?$1 s_18)(syntax-e$1 s_18) s_18)))"
 "(if(pair? s_22)"
 "(let-values(((define-syntaxes18_0)"
-"(let-values(((s_937)(car s_22))) s_937))"
+"(let-values(((s_492)(car s_22))) s_492))"
 "((id19_1 rhs20_0)"
 "(let-values(((s_25)(cdr s_22)))"
-"(let-values(((s_501)"
+"(let-values(((s_305)"
 "(if(syntax?$1 s_25)"
 "(syntax-e$1 s_25)"
 " s_25)))"
-"(if(pair? s_501)"
-"(let-values(((id21_0)"
-"(let-values(((s_938)(car s_501)))"
-"(let-values(((s_157)"
-"(if(syntax?$1 s_938)"
-"(syntax-e$1 s_938)"
-" s_938)))"
-"(let-values(((flat-s_67)"
+"(if(pair? s_305)"
+"(let-values(((id21_1)"
+"(let-values(((s_923)(car s_305)))"
+"(let-values(((s_924)"
+"(if(syntax?$1 s_923)"
+"(syntax-e$1 s_923)"
+" s_923)))"
+"(let-values(((flat-s_69)"
 "(to-syntax-list.1"
-" s_157)))"
-"(if(not flat-s_67)"
+" s_924)))"
+"(if(not flat-s_69)"
 "(let-values()"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                              \"bad syntax\""
 " orig-s_100))"
 "(let-values()"
-"(let-values(((id_79)"
-"(let-values(((lst_464)"
-" flat-s_67))"
+"(let-values(((id_163)"
+"(let-values(((lst_460)"
+" flat-s_69))"
 "(begin"
 "(if(variable-reference-from-unsafe?"
 "(#%variable-reference))"
 "(void)"
 "(let-values()"
 "(check-list"
-" lst_464)))"
+" lst_460)))"
 "((letrec-values(((for-loop_2)"
-"(lambda(id_55"
-" lst_465)"
+"(lambda(id_164"
+" lst_461)"
 "(begin"
 " 'for-loop"
 "(if(pair?"
-" lst_465)"
-"(let-values(((s_939)"
+" lst_461)"
+"(let-values(((s_925)"
 "(unsafe-car"
-" lst_465))"
-"((rest_263)"
+" lst_461))"
+"((rest_272)"
 "(unsafe-cdr"
-" lst_465)))"
-"(let-values(((id_169)"
-"(let-values(((id_170)"
-" id_55))"
-"(let-values(((id_171)"
+" lst_461)))"
+"(let-values(((id_165)"
+"(let-values(((id_166)"
+" id_164))"
+"(let-values(((id_167)"
 "(let-values()"
-"(let-values(((id24_1)"
+"(let-values(((id24_0)"
 "(let-values()"
-"(if(let-values(((or-part_212)"
+"(if(let-values(((or-part_218)"
 "(if(syntax?$1"
-" s_939)"
+" s_925)"
 "(symbol?"
 "(syntax-e$1"
-" s_939))"
+" s_925))"
 " #f)))"
-"(if or-part_212"
-" or-part_212"
+"(if or-part_218"
+" or-part_218"
 "(symbol?"
-" s_939)))"
-" s_939"
+" s_925)))"
+" s_925"
 "(raise-syntax-error$1"
 " #f"
 "                                                                                                                                                                                            \"not an identifier\""
 " orig-s_100"
-" s_939)))))"
+" s_925)))))"
 "(cons"
-" id24_1"
-" id_170)))))"
+" id24_0"
+" id_166)))))"
 "(values"
-" id_171)))))"
+" id_167)))))"
 "(if(not"
 " #f)"
 "(for-loop_2"
-" id_169"
-" rest_263)"
-" id_169)))"
-" id_55)))))"
+" id_165"
+" rest_272)"
+" id_165)))"
+" id_164)))))"
 " for-loop_2)"
 " null"
-" lst_464)))))"
-"(reverse$1 id_79))))))))"
+" lst_460)))))"
+"(reverse$1 id_163))))))))"
 "((rhs22_0)"
-"(let-values(((s_426)(cdr s_501)))"
-"(let-values(((s_177)"
-"(if(syntax?$1 s_426)"
-"(syntax-e$1 s_426)"
-" s_426)))"
-"(if(pair? s_177)"
+"(let-values(((s_926)(cdr s_305)))"
+"(let-values(((s_175)"
+"(if(syntax?$1 s_926)"
+"(syntax-e$1 s_926)"
+" s_926)))"
+"(if(pair? s_175)"
 "(let-values(((rhs23_2)"
-"(let-values(((s_502)"
+"(let-values(((s_450)"
 "(car"
-" s_177)))"
-" s_502))"
+" s_175)))"
+" s_450))"
 "(()"
 "(let-values(((s_46)"
 "(cdr"
-" s_177)))"
-"(let-values(((s_506)"
+" s_175)))"
+"(let-values(((s_484)"
 "(if(syntax?$1"
 " s_46)"
 "(syntax-e$1"
 " s_46)"
 " s_46)))"
 "(if(null?"
-" s_506)"
+" s_484)"
 "(values)"
 "(raise-syntax-error$1"
 " #f"
@@ -79649,7 +77761,7 @@ static const char *startup_source =
 " #f"
 "                                                                                          \"bad syntax\""
 " orig-s_100))))))"
-"(values id21_0 rhs22_0))"
+"(values id21_1 rhs22_0))"
 "(raise-syntax-error$1"
 " #f"
 "                                                                      \"bad syntax\""
@@ -79657,125 +77769,125 @@ static const char *startup_source =
 "(values define-syntaxes18_0 id19_1 rhs20_0))"
 "                                                 (raise-syntax-error$1 #f \"bad syntax\" orig-s_100)))))"
 "(values #t define-syntaxes15_1 id16_2 rhs17_1))))))"
-"(let-values(((ids_52 syms_28)(as-expand-time-top-level-bindings id16_1 s_188 ctx_127)))"
+"(let-values(((ids_53 syms_27)(as-expand-time-top-level-bindings id16_1 s_186 ctx_125)))"
 "(let-values(((exp-rhs_10)"
-"(let-values(((temp25_7) rhs17_0)((temp26_6)(as-named-context ctx_127 ids_52)))"
-"(expand-transformer92.1 #f #f #f #f #f #f #f #f #f #f #f #f temp25_7 temp26_6))))"
-"(if(expand-context-to-parsed? ctx_127)"
-"(parsed-define-syntaxes20.1 s_188 ids_52 syms_28 exp-rhs_10)"
-"(let-values(((s27_3) s_188)((temp28_7)(list define-syntaxes15_0 ids_52 exp-rhs_10)))"
-"(rebuild5.1 #f #f s27_3 temp28_7)))))))))))))"
+"(let-values(((temp25_8) rhs17_0)((temp26_6)(as-named-context ctx_125 ids_53)))"
+"(expand-transformer92.1 #f #f 'expression #t #f unsafe-undefined temp25_8 temp26_6))))"
+"(if(expand-context-to-parsed? ctx_125)"
+"(parsed-define-syntaxes20.1 s_186 ids_53 syms_27 exp-rhs_10)"
+"(let-values(((s27_3) s_186)((temp28_4)(list define-syntaxes15_0 ids_53 exp-rhs_10)))"
+"(rebuild5.1 #t s27_3 temp28_4)))))))))))))"
 "(void"
 "(add-core-form!*"
 " 'begin-for-syntax"
-"(lambda(s_484 ctx_128)"
+"(lambda(s_308 ctx_110)"
 "(let-values((()"
 "(begin"
-"(if(eq?(expand-context-context ctx_128) 'top-level)"
+"(if(eq?(expand-context-context ctx_110) 'top-level)"
 "(void)"
-"                       (let-values () (raise-syntax-error$1 #f \"not in a definition context\" s_484)))"
+"                       (let-values () (raise-syntax-error$1 #f \"not in a definition context\" s_308)))"
 "(values))))"
-"(let-values(((ok?_37 begin-for-syntax29_0 form30_0)"
-"(let-values(((s_940) s_484))"
-"(let-values(((orig-s_101) s_940))"
+"(let-values(((ok?_38 begin-for-syntax29_0 form30_0)"
+"(let-values(((s_494) s_308))"
+"(let-values(((orig-s_101) s_494))"
 "(let-values(((begin-for-syntax29_1 form30_1)"
-"(let-values(((s_49)(if(syntax?$1 s_940)(syntax-e$1 s_940) s_940)))"
-"(if(pair? s_49)"
-"(let-values(((begin-for-syntax31_0)(let-values(((s_51)(car s_49))) s_51))"
+"(let-values(((s_48)(if(syntax?$1 s_494)(syntax-e$1 s_494) s_494)))"
+"(if(pair? s_48)"
+"(let-values(((begin-for-syntax31_0)(let-values(((s_51)(car s_48))) s_51))"
 "((form32_0)"
-"(let-values(((s_319)(cdr s_49)))"
-"(let-values(((s_780)"
-"(if(syntax?$1 s_319)"
-"(syntax-e$1 s_319)"
-" s_319)))"
-"(let-values(((flat-s_68)(to-syntax-list.1 s_780)))"
-"(if(not flat-s_68)"
+"(let-values(((s_500)(cdr s_48)))"
+"(let-values(((s_775)"
+"(if(syntax?$1 s_500)"
+"(syntax-e$1 s_500)"
+" s_500)))"
+"(let-values(((flat-s_70)(to-syntax-list.1 s_775)))"
+"(if(not flat-s_70)"
 "(let-values()"
 "                                                                   (raise-syntax-error$1 #f \"bad syntax\" orig-s_101))"
-"(let-values() flat-s_68)))))))"
+"(let-values() flat-s_70)))))))"
 "(values begin-for-syntax31_0 form32_0))"
 "                                           (raise-syntax-error$1 #f \"bad syntax\" orig-s_101)))))"
 "(values #t begin-for-syntax29_1 form30_1))))))"
 "(let-values((()"
 "(begin"
-"(let-values(((obs_171)(expand-context-observer ctx_128)))"
+"(let-values(((obs_171)(expand-context-observer ctx_110)))"
 "(if obs_171"
 "(let-values()(let-values()(call-expand-observe obs_171 'prim-begin-for-syntax)))"
 "(void)))"
 "(values))))"
 "(let-values((()"
 "(begin"
-"(let-values(((obs_172)(expand-context-observer ctx_128)))"
+"(let-values(((obs_172)(expand-context-observer ctx_110)))"
 "(if obs_172"
 "(let-values()(let-values()(call-expand-observe obs_172 'prepare-env)))"
 "(void)))"
 "(values))))"
 "(let-values(((trans-ctx_1)"
-"(let-values(((ctx33_0) ctx_128)((temp34_5) 'top-level)((temp35_4) #t))"
-"(context->transformer-context100.1 temp35_4 #t ctx33_0 temp34_5 #t))))"
+"(let-values(((ctx33_0) ctx_110)((temp34_7) 'top-level)((temp35_7) #t))"
+"(context->transformer-context99.1 temp35_7 ctx33_0 temp34_7))))"
 "(let-values(((lift-ctx_7)"
 "(let-values(((temp36_9)(make-top-level-lift trans-ctx_1)))"
-"(make-lift-context6.1 #f #f temp36_9))))"
+"(make-lift-context6.1 #f temp36_9))))"
 "(let-values(((capture-ctx_1)"
-"(let-values(((v_279) trans-ctx_1))"
-"(let-values(((the-struct_125) v_279))"
-"(if(expand-context/outer? the-struct_125)"
+"(let-values(((v_278) trans-ctx_1))"
+"(let-values(((the-struct_121) v_278))"
+"(if(expand-context/outer? the-struct_121)"
 "(let-values(((inner37_0)"
-"(let-values(((the-struct_126)"
-"(root-expand-context/outer-inner v_279)))"
-"(if(expand-context/inner? the-struct_126)"
-"(let-values(((lift-key38_0)(generate-lift-key))"
+"(let-values(((the-struct_122)"
+"(root-expand-context/outer-inner v_278)))"
+"(if(expand-context/inner? the-struct_122)"
+"(let-values(((lift-key38_1)(generate-lift-key))"
 "((lifts39_0) lift-ctx_7))"
 "(expand-context/inner2.1"
-"(root-expand-context/inner-self-mpi the-struct_126)"
-"(root-expand-context/inner-module-scopes the-struct_126)"
+"(root-expand-context/inner-self-mpi the-struct_122)"
+"(root-expand-context/inner-module-scopes the-struct_122)"
 "(root-expand-context/inner-top-level-bind-scope"
-" the-struct_126)"
-"(root-expand-context/inner-all-scopes-stx the-struct_126)"
-"(root-expand-context/inner-defined-syms the-struct_126)"
-"(root-expand-context/inner-counter the-struct_126)"
-" lift-key38_0"
-"(expand-context/inner-to-parsed? the-struct_126)"
-"(expand-context/inner-phase the-struct_126)"
-"(expand-context/inner-namespace the-struct_126)"
-"(expand-context/inner-just-once? the-struct_126)"
-"(expand-context/inner-module-begin-k the-struct_126)"
-"(expand-context/inner-allow-unbound? the-struct_126)"
-"(expand-context/inner-in-local-expand? the-struct_126)"
-"(expand-context/inner-keep-#%expression? the-struct_126)"
-"(expand-context/inner-stops the-struct_126)"
-"(expand-context/inner-declared-submodule-names the-struct_126)"
+" the-struct_122)"
+"(root-expand-context/inner-all-scopes-stx the-struct_122)"
+"(root-expand-context/inner-defined-syms the-struct_122)"
+"(root-expand-context/inner-counter the-struct_122)"
+" lift-key38_1"
+"(expand-context/inner-to-parsed? the-struct_122)"
+"(expand-context/inner-phase the-struct_122)"
+"(expand-context/inner-namespace the-struct_122)"
+"(expand-context/inner-just-once? the-struct_122)"
+"(expand-context/inner-module-begin-k the-struct_122)"
+"(expand-context/inner-allow-unbound? the-struct_122)"
+"(expand-context/inner-in-local-expand? the-struct_122)"
+"(expand-context/inner-keep-#%expression? the-struct_122)"
+"(expand-context/inner-stops the-struct_122)"
+"(expand-context/inner-declared-submodule-names the-struct_122)"
 " lifts39_0"
-"(expand-context/inner-lift-envs the-struct_126)"
-"(expand-context/inner-module-lifts the-struct_126)"
-"(expand-context/inner-require-lifts the-struct_126)"
-"(expand-context/inner-to-module-lifts the-struct_126)"
-"(expand-context/inner-requires+provides the-struct_126)"
-"(expand-context/inner-observer the-struct_126)"
-"(expand-context/inner-for-serializable? the-struct_126)"
+"(expand-context/inner-lift-envs the-struct_122)"
+"(expand-context/inner-module-lifts the-struct_122)"
+"(expand-context/inner-require-lifts the-struct_122)"
+"(expand-context/inner-to-module-lifts the-struct_122)"
+"(expand-context/inner-requires+provides the-struct_122)"
+"(expand-context/inner-observer the-struct_122)"
+"(expand-context/inner-for-serializable? the-struct_122)"
 "(expand-context/inner-should-not-encounter-macros?"
-" the-struct_126)))"
+" the-struct_122)))"
 "(raise-argument-error"
 " 'struct-copy"
 "                                                        \"expand-context/inner?\""
-" the-struct_126)))))"
+" the-struct_122)))))"
 "(expand-context/outer1.1"
 " inner37_0"
-"(root-expand-context/outer-post-expansion-scope the-struct_125)"
-"(root-expand-context/outer-use-site-scopes the-struct_125)"
-"(root-expand-context/outer-frame-id the-struct_125)"
-"(expand-context/outer-context the-struct_125)"
-"(expand-context/outer-env the-struct_125)"
-"(expand-context/outer-post-expansion-scope-action the-struct_125)"
-"(expand-context/outer-scopes the-struct_125)"
-"(expand-context/outer-def-ctx-scopes the-struct_125)"
-"(expand-context/outer-binding-layer the-struct_125)"
-"(expand-context/outer-reference-records the-struct_125)"
-"(expand-context/outer-only-immediate? the-struct_125)"
-"(expand-context/outer-need-eventually-defined the-struct_125)"
-"(expand-context/outer-current-introduction-scopes the-struct_125)"
-"(expand-context/outer-name the-struct_125)))"
-"                                     (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_125))))))"
+"(root-expand-context/outer-post-expansion-scope the-struct_121)"
+"(root-expand-context/outer-use-site-scopes the-struct_121)"
+"(root-expand-context/outer-frame-id the-struct_121)"
+"(expand-context/outer-context the-struct_121)"
+"(expand-context/outer-env the-struct_121)"
+"(expand-context/outer-post-expansion-scope-action the-struct_121)"
+"(expand-context/outer-scopes the-struct_121)"
+"(expand-context/outer-def-ctx-scopes the-struct_121)"
+"(expand-context/outer-binding-layer the-struct_121)"
+"(expand-context/outer-reference-records the-struct_121)"
+"(expand-context/outer-only-immediate? the-struct_121)"
+"(expand-context/outer-need-eventually-defined the-struct_121)"
+"(expand-context/outer-current-introduction-scopes the-struct_121)"
+"(expand-context/outer-name the-struct_121)))"
+"                                     (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_121))))))"
 "(let-values(((all-exp-forms_0)"
 "((letrec-values(((loop_65)"
 "(lambda(forms_0)"
@@ -79784,18 +77896,18 @@ static const char *startup_source =
 "(let-values((()"
 "(begin"
 "(let-values(((obs_173)"
-"(expand-context-observer ctx_128)))"
+"(expand-context-observer ctx_110)))"
 "(if obs_173"
 "(let-values()"
 "(let-values()"
 "(call-expand-observe"
 " obs_173"
 " 'enter-list"
-"(datum->syntax$1 #f form30_0 s_484))))"
+"(datum->syntax$1 #f form30_0 s_308))))"
 "(void)))"
 "(values))))"
 "(let-values(((exp-forms_0)"
-"((letrec-values(((loop_131)"
+"((letrec-values(((loop_128)"
 "(lambda(forms_1 accum_1)"
 "(begin"
 " 'loop"
@@ -79807,7 +77919,7 @@ static const char *startup_source =
 "(begin"
 "(let-values(((obs_174)"
 "(expand-context-observer"
-" ctx_128)))"
+" ctx_110)))"
 "(if obs_174"
 "(let-values()"
 "(let-values()"
@@ -79817,25 +77929,25 @@ static const char *startup_source =
 "(datum->syntax$1"
 " #f"
 " forms_2"
-" s_484))))"
+" s_308))))"
 "(void)))"
 " forms_2)))"
 "(let-values()"
 "(let-values((()"
 "(begin"
-"(let-values(((obs_62)"
+"(let-values(((obs_175)"
 "(expand-context-observer"
-" ctx_128)))"
-"(if obs_62"
+" ctx_110)))"
+"(if obs_175"
 "(let-values()"
 "(let-values()"
 "(call-expand-observe"
-" obs_62"
+" obs_175"
 " 'next)))"
 "(void)))"
 "(values))))"
 "(let-values(((exp-form_0)"
-"(let-values(((temp40_6)"
+"(let-values(((temp40_3)"
 "(car"
 " forms_1))"
 "((capture-ctx41_0)"
@@ -79844,17 +77956,14 @@ static const char *startup_source =
 " #f"
 " #f"
 " #f"
-" #f"
-" #f"
-" #f"
-" temp40_6"
+" temp40_3"
 " capture-ctx41_0))))"
-"(loop_131"
+"(loop_128"
 "(cdr forms_1)"
 "(cons"
 " exp-form_0"
 " accum_1))))))))))"
-" loop_131)"
+" loop_128)"
 " forms_0"
 " null)))"
 "(let-values(((lifts_15)(get-and-clear-lifts! lift-ctx_7)))"
@@ -79863,32 +77972,30 @@ static const char *startup_source =
 "(let-values()"
 "(let-values((()"
 "(begin"
-"(let-values(((obs_65)"
+"(let-values(((obs_176)"
 "(expand-context-observer"
-" ctx_128)))"
-"(if obs_65"
+" ctx_110)))"
+"(if obs_176"
 "(let-values()"
 "(let-values()"
 "(call-expand-observe"
-" obs_65"
+" obs_176"
 " 'module-lift-loop"
 " lifts_15)))"
 "(void)))"
 "(values))))"
 "(let-values(((beg_0)"
 "(let-values(((lifts42_0) lifts_15)"
-"((temp43_4) #f)"
-"((temp44_5)"
+"((temp43_6) #f)"
+"((temp44_6)"
 "(expand-context-phase"
 " trans-ctx_1)))"
 "(wrap-lifts-as-begin16.1"
-" #f"
-" #f"
-" #f"
-" #f"
+" unsafe-undefined"
+" unsafe-undefined"
 " lifts42_0"
-" temp43_4"
-" temp44_5))))"
+" temp43_6"
+" temp44_6))))"
 "(let-values(((exprs_1)"
 "(reverse$1"
 "(cdr"
@@ -79899,215 +78006,206 @@ static const char *startup_source =
 " exp-forms_0)))))))))))))"
 " loop_65)"
 " form30_0)))"
-"(if(expand-context-to-parsed? ctx_128)"
-"(parsed-begin-for-syntax21.1 s_484 all-exp-forms_0)"
-"(let-values(((s45_0) s_484)((temp46_3)(cons begin-for-syntax29_0 all-exp-forms_0)))"
-"(rebuild5.1 #f #f s45_0 temp46_3))))))))))))))"
+"(if(expand-context-to-parsed? ctx_110)"
+"(parsed-begin-for-syntax21.1 s_308 all-exp-forms_0)"
+"(let-values(((s45_0) s_308)((temp46_2)(cons begin-for-syntax29_0 all-exp-forms_0)))"
+"(rebuild5.1 #t s45_0 temp46_2))))))))))))))"
 "(void"
 "(add-core-form!*"
 " '#%require"
-"(lambda(s_412 ctx_129)"
+"(lambda(s_927 ctx_126)"
 "(let-values((()"
 "(begin"
-"(let-values(((obs_10)(expand-context-observer ctx_129)))"
-"(if obs_10(let-values()(let-values()(call-expand-observe obs_10 'prim-require)))(void)))"
+"(let-values(((obs_177)(expand-context-observer ctx_126)))"
+"(if obs_177(let-values()(let-values()(call-expand-observe obs_177 'prim-require)))(void)))"
 "(values))))"
 "(let-values((()"
 "(begin"
-"(if(eq?(expand-context-context ctx_129) 'top-level)"
+"(if(eq?(expand-context-context ctx_126) 'top-level)"
 "(void)"
-"                         (let-values () (raise-syntax-error$1 #f \"allowed only in a module or the top level\" s_412)))"
+"                         (let-values () (raise-syntax-error$1 #f \"allowed only in a module or the top level\" s_927)))"
 "(values))))"
-"(let-values(((disarmed-s_27)(syntax-disarm$1 s_412)))"
-"(let-values(((ok?_96 #%require47_0 req48_0)"
-"(let-values(((s_204) disarmed-s_27))"
-"(let-values(((orig-s_102) s_204))"
+"(let-values(((disarmed-s_27)(syntax-disarm$1 s_927)))"
+"(let-values(((ok?_97 #%require47_0 req48_0)"
+"(let-values(((s_63) disarmed-s_27))"
+"(let-values(((orig-s_102) s_63))"
 "(let-values(((#%require47_1 req48_1)"
-"(let-values(((s_206)(if(syntax?$1 s_204)(syntax-e$1 s_204) s_204)))"
-"(if(pair? s_206)"
-"(let-values(((#%require49_0)(let-values(((s_63)(car s_206))) s_63))"
+"(let-values(((s_406)(if(syntax?$1 s_63)(syntax-e$1 s_63) s_63)))"
+"(if(pair? s_406)"
+"(let-values(((#%require49_0)(let-values(((s_409)(car s_406))) s_409))"
 "((req50_0)"
-"(let-values(((s_444)(cdr s_206)))"
-"(let-values(((s_416)"
-"(if(syntax?$1 s_444)"
-"(syntax-e$1 s_444)"
-" s_444)))"
-"(let-values(((flat-s_69)(to-syntax-list.1 s_416)))"
-"(if(not flat-s_69)"
+"(let-values(((s_416)(cdr s_406)))"
+"(let-values(((s_65)"
+"(if(syntax?$1 s_416)"
+"(syntax-e$1 s_416)"
+" s_416)))"
+"(let-values(((flat-s_71)(to-syntax-list.1 s_65)))"
+"(if(not flat-s_71)"
 "(let-values()"
 "(raise-syntax-error$1"
 " #f"
 "                                                                        \"bad syntax\""
 " orig-s_102))"
-"(let-values() flat-s_69)))))))"
+"(let-values() flat-s_71)))))))"
 "(values #%require49_0 req50_0))"
 "                                               (raise-syntax-error$1 #f \"bad syntax\" orig-s_102)))))"
 "(values #t #%require47_1 req48_1))))))"
-"(let-values(((sc_40)(new-scope 'macro)))"
+"(let-values(((sc_41)(new-scope 'macro)))"
 "(begin"
 "(let-values(((temp51_4)"
 "(reverse$1"
-"(let-values(((lst_466) req48_0))"
+"(let-values(((lst_32) req48_0))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
-"(let-values()(check-list lst_466)))"
-"((letrec-values(((for-loop_347)"
-"(lambda(fold-var_404 lst_201)"
+"(let-values()(check-list lst_32)))"
+"((letrec-values(((for-loop_25)"
+"(lambda(fold-var_396 lst_33)"
 "(begin"
 " 'for-loop"
-"(if(pair? lst_201)"
-"(let-values(((req_20)(unsafe-car lst_201))"
-"((rest_264)(unsafe-cdr lst_201)))"
-"(let-values(((fold-var_304)"
-"(let-values(((fold-var_139) fold-var_404))"
-"(let-values(((fold-var_405)"
+"(if(pair? lst_33)"
+"(let-values(((req_20)(unsafe-car lst_33))"
+"((rest_13)(unsafe-cdr lst_33)))"
+"(let-values(((fold-var_397)"
+"(let-values(((fold-var_398) fold-var_396))"
+"(let-values(((fold-var_292)"
 "(let-values()"
 "(cons"
 "(let-values()"
 "(add-scope"
 " req_20"
-" sc_40))"
-" fold-var_139))))"
-"(values fold-var_405)))))"
+" sc_41))"
+" fold-var_398))))"
+"(values fold-var_292)))))"
 "(if(not #f)"
-"(for-loop_347 fold-var_304 rest_264)"
-" fold-var_304)))"
-" fold-var_404)))))"
-" for-loop_347)"
+"(for-loop_25 fold-var_397 rest_13)"
+" fold-var_397)))"
+" fold-var_396)))))"
+" for-loop_25)"
 " null"
-" lst_466)))))"
-"((s52_0) s_412)"
-"((temp53_5) #f)"
-"((temp54_6)(expand-context-namespace ctx_129))"
-"((temp55_3)(expand-context-phase ctx_129))"
-"((temp56_3)(let-values(((temp59_7) #f))(make-requires+provides8.1 #f #f temp59_7)))"
-"((temp57_2) 'require)"
-"((temp58_4) #t))"
+" lst_32)))))"
+"((s52_0) s_927)"
+"((temp53_6) #f)"
+"((temp54_6)(expand-context-namespace ctx_126))"
+"((temp55_5)(expand-context-phase ctx_126))"
+"((temp56_5)(let-values(((temp59_8) #f))(make-requires+provides8.1 #f temp59_8)))"
+"((temp57_3) 'require)"
+"((temp58_5) #t))"
 "(parse-and-perform-requires!30.1"
 " #f"
 " #f"
+" unsafe-undefined"
+" temp58_5"
+" unsafe-undefined"
 " #f"
 " #f"
 " #f"
-" #f"
-" temp58_4"
-" #t"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" #f"
-" temp53_5"
-" #t"
-" temp57_2"
+" temp53_6"
+" temp57_3"
 " temp51_4"
 " s52_0"
 " temp54_6"
-" temp55_3"
-" temp56_3))"
-"(if(expand-context-to-parsed? ctx_129)(parsed-require23.1 s_412) s_412))))))))))"
+" temp55_5"
+" temp56_5))"
+"(if(expand-context-to-parsed? ctx_126)(parsed-require23.1 s_927) s_927))))))))))"
 "(void"
 "(add-core-form!*"
 " '#%provide"
-"(lambda(s_786 ctx_130)"
+"(lambda(s_779 ctx_127)"
 "(begin"
-"(let-values(((obs_175)(expand-context-observer ctx_130)))"
-"(if obs_175(let-values()(let-values()(call-expand-observe obs_175 'prim-provide)))(void)))"
-"       (raise-syntax-error$1 #f \"not allowed outside of a module body\" s_786)))))"
+"(let-values(((obs_178)(expand-context-observer ctx_127)))"
+"(if obs_178(let-values()(let-values()(call-expand-observe obs_178 'prim-provide)))(void)))"
+"       (raise-syntax-error$1 #f \"not allowed outside of a module body\" s_779)))))"
 "(define-values(ns)(make-namespace))"
 "(void"
 "(begin"
 "(declare-core-module! ns)"
-"(let-values(((temp1_3) '#%read)((read-primitives2_0) read-primitives)((ns3_1) ns))"
-"(declare-hash-based-module!41.1 ns3_1 #f #f #f #f #f #f #f #f temp1_3 read-primitives2_0))"
-"(let-values(((temp4_8) '#%main)((main-primitives5_0) main-primitives)((ns6_2) ns))"
-"(declare-hash-based-module!41.1 ns6_2 #f #f #f #f #f #f #f #f temp4_8 main-primitives5_0))"
+"(let-values(((temp1_3) '#%read)((read-primitives2_0) read-primitives)((ns3_0) ns))"
+"(declare-hash-based-module!41.1 ns3_0 #f null #f #f temp1_3 read-primitives2_0))"
+"(let-values(((temp4_8) '#%main)((main-primitives5_0) main-primitives)((ns6_1) ns))"
+"(declare-hash-based-module!41.1 ns6_1 #f null #f #f temp4_8 main-primitives5_0))"
 "(let-values(((temp7_5) '#%utils)((utils-primitives8_0) utils-primitives)((ns9_1) ns))"
-"(declare-hash-based-module!41.1 ns9_1 #f #f #f #f #f #f #f #f temp7_5 utils-primitives8_0))"
-"(let-values(((temp10_8) '#%place-struct)"
+"(declare-hash-based-module!41.1 ns9_1 #f null #f #f temp7_5 utils-primitives8_0))"
+"(let-values(((temp10_7) '#%place-struct)"
 "((place-struct-primitives11_0) place-struct-primitives)"
-"((ns12_1) ns)"
+"((ns12_2) ns)"
 "((temp13_3) '(dynamic-place)))"
-"(declare-hash-based-module!41.1 ns12_1 #f #f temp13_3 #t #f #f #f #f temp10_8 place-struct-primitives11_0))"
-"(let-values(((temp14_9) '#%boot)((boot-primitives15_0) boot-primitives)((ns16_1) ns))"
-"(declare-hash-based-module!41.1 ns16_1 #f #f #f #f #f #f #f #f temp14_9 boot-primitives15_0))"
+"(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(((linklet-primitives_0)"
 "(hash-remove(hash-remove linklet-primitives 'variable-reference?) 'variable-reference-constant?)))"
-"(let-values(((temp17_5) '#%linklet)"
+"(let-values(((temp17_7) '#%linklet)"
 "((linklet-primitives18_0) linklet-primitives_0)"
-"((ns19_2) ns)"
+"((ns19_3) ns)"
 "((temp20_6) #t)"
-"((temp21_2) #t))"
-"(declare-hash-based-module!41.1 ns19_2 temp20_6 #t #f #f #f #f temp21_2 #t temp17_5 linklet-primitives18_0)))"
-"(let-values(((temp22_6) '#%expobs)((expobs-primitives23_0) expobs-primitives)((ns24_2) ns)((temp25_8) #t))"
-"(declare-hash-based-module!41.1 ns24_2 #f #f #f #f temp25_8 #t #f #f temp22_6 expobs-primitives23_0))"
-"(let-values(((ns26_3) ns)"
+"((temp21_3) #t))"
+"(declare-hash-based-module!41.1 ns19_3 temp20_6 null #f temp21_3 temp17_7 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)"
 "((eval27_0) 1/eval)"
-"((temp28_8)"
-"(let-values(((ht_171) main-primitives))"
+"((temp28_5)"
+"(let-values(((ht_163) main-primitives))"
 "(begin"
 "(if(variable-reference-from-unsafe?(#%variable-reference))"
 "(void)"
-"(let-values()(check-in-hash-keys ht_171)))"
+"(let-values()(check-in-hash-keys ht_163)))"
 "((letrec-values(((for-loop_20)"
-"(lambda(table_230 i_3)"
+"(lambda(table_215 i_3)"
 "(begin"
 " 'for-loop"
 "(if i_3"
-"(let-values(((name_82)(hash-iterate-key ht_171 i_3)))"
-"(let-values(((table_218)"
-"(let-values(((table_231) table_230))"
-"(let-values(((table_186)"
+"(let-values(((name_83)(hash-iterate-key ht_163 i_3)))"
+"(let-values(((table_207)"
+"(let-values(((table_216) table_215))"
+"(let-values(((table_179)"
 "(let-values()"
-"(let-values(((key_95 val_90)"
-"(let-values()"
-"(values"
-"(let-values() name_82)"
-" #t))))"
-"(hash-set table_231 key_95 val_90)))))"
-"(values table_186)))))"
-"(if(not #f)"
-"(for-loop_20 table_218(hash-iterate-next ht_171 i_3))"
-" table_218)))"
-" table_230)))))"
-" for-loop_20)"
-" '#hash()"
-"(hash-iterate-first ht_171)))))"
-"((temp29_5)"
-"(let-values(((ht_172) read-primitives))"
-"(begin"
-"(if(variable-reference-from-unsafe?(#%variable-reference))"
-"(void)"
-"(let-values()(check-in-hash-keys ht_172)))"
-"((letrec-values(((for-loop_329)"
-"(lambda(table_189 i_191)"
-"(begin"
-" 'for-loop"
-"(if i_191"
-"(let-values(((name_83)(hash-iterate-key ht_172 i_191)))"
-"(let-values(((table_117)"
-"(let-values(((table_110) table_189))"
-"(let-values(((table_111)"
-"(let-values()"
-"(let-values(((key_96 val_91)"
+"(let-values(((key_93 val_89)"
 "(let-values()"
 "(values"
 "(let-values() name_83)"
 " #t))))"
-"(hash-set table_110 key_96 val_91)))))"
+"(hash-set table_216 key_93 val_89)))))"
+"(values table_179)))))"
+"(if(not #f)"
+"(for-loop_20 table_207(hash-iterate-next ht_163 i_3))"
+" table_207)))"
+" table_215)))))"
+" for-loop_20)"
+" '#hash()"
+"(hash-iterate-first ht_163)))))"
+"((temp29_7)"
+"(let-values(((ht_122) read-primitives))"
+"(begin"
+"(if(variable-reference-from-unsafe?(#%variable-reference))"
+"(void)"
+"(let-values()(check-in-hash-keys ht_122)))"
+"((letrec-values(((for-loop_328)"
+"(lambda(table_217 i_185)"
+"(begin"
+" 'for-loop"
+"(if i_185"
+"(let-values(((name_84)(hash-iterate-key ht_122 i_185)))"
+"(let-values(((table_117)"
+"(let-values(((table_110) table_217))"
+"(let-values(((table_111)"
+"(let-values()"
+"(let-values(((key_94 val_90)"
+"(let-values()"
+"(values"
+"(let-values() name_84)"
+" #t))))"
+"(hash-set table_110 key_94 val_90)))))"
 "(values table_111)))))"
 "(if(not #f)"
-"(for-loop_329 table_117(hash-iterate-next ht_172 i_191))"
+"(for-loop_328 table_117(hash-iterate-next ht_122 i_185))"
 " table_117)))"
-" table_189)))))"
-" for-loop_329)"
+" table_217)))))"
+" for-loop_328)"
 " '#hash()"
-"(hash-iterate-first ht_172))))))"
-"(declare-kernel-module!8.1 eval27_0 temp28_8 temp29_5 ns26_3))"
+"(hash-iterate-first ht_122))))))"
+"(declare-kernel-module!8.1 eval27_0 temp28_5 temp29_7 ns26_1))"
 "(begin"
 "(let-values(((lst_17) runtime-instances))"
 "(begin"
@@ -80117,48 +78215,42 @@ static const char *startup_source =
 "(begin"
 " 'for-loop"
 "(if(pair? lst_20)"
-"(let-values(((name_84)(unsafe-car lst_20))((rest_6)(unsafe-cdr lst_20)))"
+"(let-values(((name_85)(unsafe-car lst_20))((rest_6)(unsafe-cdr lst_20)))"
 "(let-values((()"
 "(let-values()"
-"(if(eq? name_84 '#%kernel)"
+"(if(eq? name_85 '#%kernel)"
 "(values)"
 "(let-values()"
 "(let-values((()"
 "(let-values()"
 "(begin"
 "(let-values()"
-"(let-values(((name30_0) name_84)"
-"((ns31_5) ns)"
-"((temp32_5)"
-"(let-values(((or-part_164)"
+"(let-values(((name30_0) name_85)"
+"((ns31_0) ns)"
+"((temp32_3)"
+"(let-values(((or-part_166)"
 "(eq?"
-" name_84"
+" name_85"
 " '#%foreign)))"
-"(if or-part_164"
-" or-part_164"
-"(let-values(((or-part_309)"
+"(if or-part_166"
+" or-part_166"
+"(let-values(((or-part_285)"
 "(eq?"
-" name_84"
+" name_85"
 " '#%futures)))"
-"(if or-part_309"
-" or-part_309"
+"(if or-part_285"
+" or-part_285"
 "(eq?"
-" name_84"
+" name_85"
 " '#%unsafe)))))))"
 "(copy-runtime-module!26.1"
-" #f"
-" #f"
-" #f"
-" #f"
-" ns31_5"
-" #f"
-" #f"
-" temp32_5"
+" unsafe-undefined"
+" unsafe-undefined"
+" ns31_0"
 " #t"
-" #f"
-" #f"
-" #f"
-" #f"
+" temp32_3"
+" unsafe-undefined"
+" unsafe-undefined"
 " name30_0)))"
 "(values)))))"
 "(values)))))))"
@@ -80167,12 +78259,12 @@ static const char *startup_source =
 " for-loop_10)"
 " lst_17)))"
 "(void))"
-"(let-values(((temp33_4) '#%builtin)"
-"((temp34_6)(list* '#%place-struct '#%utils '#%boot '#%expobs '#%linklet runtime-instances))"
+"(let-values(((temp33_5) '#%builtin)"
+"((temp34_8)(list* '#%place-struct '#%utils '#%boot '#%expobs '#%linklet runtime-instances))"
 "((ns35_1) ns)"
-"((temp36_6) #f))"
-"(declare-reexporting-module!50.1 ns35_1 temp36_6 #t temp33_4 temp34_6))"
+"((temp36_5) #f))"
+"(declare-reexporting-module!50.1 ns35_1 temp36_5 temp33_5 temp34_8))"
 "(1/current-namespace ns)"
 "(1/dynamic-require ''#%kernel 0)))"
-"(define-values(datum->kernel-syntax)(lambda(s_778)(begin(1/datum->syntax core-stx s_778)))))"
+"(define-values(datum->kernel-syntax)(lambda(s_772)(begin(1/datum->syntax core-stx s_772)))))"
 ;