From 77a978fb103b93342bef094d0b74b28f63175560 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Sun, 18 Mar 2018 14:59:24 -0600 Subject: [PATCH] expander: another cache layer for binding Add a cache on binding lookup that is like the old expander --- a small cache that is consulted before the more general cache that is already in place. The new cache layer primarily helps when a single identifier is compared to a sequence of other identifiers. --- racket/src/expander/syntax/binding.rkt | 103 +- racket/src/expander/syntax/cache.rkt | 66 +- racket/src/racket/src/jitcommon.c | 4 +- racket/src/racket/src/jitinline.c | 6 +- racket/src/racket/src/list.c | 15 +- racket/src/racket/src/startup.inc | 17862 ++++++++++++----------- 6 files changed, 9130 insertions(+), 8926 deletions(-) diff --git a/racket/src/expander/syntax/binding.rkt b/racket/src/expander/syntax/binding.rkt index 9a262aeb58..1a1e21e4bd 100644 --- a/racket/src/expander/syntax/binding.rkt +++ b/racket/src/expander/syntax/binding.rkt @@ -12,7 +12,8 @@ "local-binding.rkt" "datum-map.rkt" "../expand/rename-trans.rkt" - "../common/module-path.rkt") + "../common/module-path.rkt" + "cache.rkt") (provide binding-frame-id @@ -169,7 +170,7 @@ (syntax-mpi-shifts s)) (syntax-scope-propagations+tamper s))])])) -;; Use `resolve` instead of `resolve+shift` when the module of a +;; Use `resolve+shift` instead of `resolve` when the module of a ;; module binding is relevant or when `free-identifier=?` equivalences ;; (as installed by a binding to a rename transfomer) are relevant; ;; module path index shifts attached to `s` are taken into account in @@ -181,48 +182,64 @@ #:unbound-sym? [unbound-sym? #f] ;; For resolving bulk bindings in `free-identifier=?` chains: #:extra-shifts [extra-shifts null]) - (define immediate-b (resolve s phase - #:ambiguous-value ambiguous-value - #:exactly? exactly? - #:extra-shifts extra-shifts)) - (define b (if (and immediate-b - (not immediate?) - (binding-free=id immediate-b)) - (resolve+shift (binding-free=id immediate-b) phase - #:extra-shifts (append extra-shifts (syntax-mpi-shifts s)) - #:ambiguous-value ambiguous-value - #:exactly? exactly? - #:unbound-sym? unbound-sym?) - immediate-b)) + (define can-cache? (and (not exactly?) (not immediate?) (null? extra-shifts))) (cond - [(module-binding? b) - (define mpi-shifts (syntax-mpi-shifts s)) - (cond - [(null? mpi-shifts) - b] - [else - (define mod (module-binding-module b)) - (define shifted-mod (apply-syntax-shifts mod mpi-shifts)) - (define nominal-mod (module-binding-nominal-module b)) - (define shifted-nominal-mod (if (eq? mod nominal-mod) - shifted-mod - (apply-syntax-shifts nominal-mod mpi-shifts))) - (if (and (eq? mod shifted-mod) - (eq? nominal-mod shifted-nominal-mod) - (not (binding-free=id b)) - (null? (module-binding-extra-nominal-bindings b))) - b - (module-binding-update b - #:module shifted-mod - #:nominal-module shifted-nominal-mod - #:free=id (and (binding-free=id b) - (syntax-transfer-shifts (binding-free=id b) s)) - #:extra-nominal-bindings - (for/list ([b (in-list (module-binding-extra-nominal-bindings b))]) - (apply-syntax-shifts-to-binding b mpi-shifts))))])] - [(and (not b) unbound-sym?) - (syntax-e s)] - [else b])) + [(and can-cache? + (resolve+shift-cache-get s phase)) + => (lambda (b) + (if (eq? b '#:none) + (and unbound-sym? (syntax-content s)) + b))] + [else + (define immediate-b (resolve s phase + #:ambiguous-value ambiguous-value + #:exactly? exactly? + #:extra-shifts extra-shifts)) + (define b (if (and immediate-b + (not immediate?) + (binding-free=id immediate-b)) + (resolve+shift (binding-free=id immediate-b) phase + #:extra-shifts (append extra-shifts (syntax-mpi-shifts s)) + #:ambiguous-value ambiguous-value + #:exactly? exactly? + #:unbound-sym? unbound-sym?) + immediate-b)) + (cond + [(module-binding? b) + (define mpi-shifts (syntax-mpi-shifts s)) + (cond + [(null? mpi-shifts) + b] + [else + (define mod (module-binding-module b)) + (define shifted-mod (apply-syntax-shifts mod mpi-shifts)) + (define nominal-mod (module-binding-nominal-module b)) + (define shifted-nominal-mod (if (eq? mod nominal-mod) + shifted-mod + (apply-syntax-shifts nominal-mod mpi-shifts))) + (define result-b + (if (and (eq? mod shifted-mod) + (eq? nominal-mod shifted-nominal-mod) + (not (binding-free=id b)) + (null? (module-binding-extra-nominal-bindings b))) + b + (module-binding-update b + #:module shifted-mod + #:nominal-module shifted-nominal-mod + #:free=id (and (binding-free=id b) + (syntax-transfer-shifts (binding-free=id b) s)) + #:extra-nominal-bindings + (for/list ([b (in-list (module-binding-extra-nominal-bindings b))]) + (apply-syntax-shifts-to-binding b mpi-shifts))))) + (when can-cache? + (resolve+shift-cache-set! s phase result-b)) + result-b])] + [else + (when can-cache? + (resolve+shift-cache-set! s phase (or b '#:none))) + (or b + (and unbound-sym? + (syntax-content s)))])])) ;; Apply accumulated module path index shifts (define (apply-syntax-shifts mpi shifts) diff --git a/racket/src/expander/syntax/cache.rkt b/racket/src/expander/syntax/cache.rkt index 290a0ffa06..433b9bd99a 100644 --- a/racket/src/expander/syntax/cache.rkt +++ b/racket/src/expander/syntax/cache.rkt @@ -1,13 +1,22 @@ #lang racket/base -(require "../common/set.rkt") +(require racket/fixnum + "../common/set.rkt") (provide clear-resolve-cache! resolve-cache-get resolve-cache-set! + + resolve+shift-cache-get + resolve+shift-cache-set! cache-or-reuse-set cache-or-reuse-hash) +;; ---------------------------------------- + +;; Cache bindings resolutions with a fairly weak +;; cache keyed on a symbol, phase, and scope sets. + (define cache (box (make-weak-box #f))) (define clear-resolve-cache! @@ -15,11 +24,13 @@ [(sym) (define c (weak-box-value (unbox* cache))) (when c - (hash-remove! c sym))] + (hash-remove! c sym)) + (set-box*! shifted-cache #f)] [() (define c (weak-box-value (unbox* cache))) (when c - (hash-clear! c))])) + (hash-clear! c)) + (set-box*! shifted-cache #f)])) (struct entry (scs smss phase binding) #:authentic) @@ -46,6 +57,49 @@ ;; ---------------------------------------- +;; Cache binding resolutions keyed on an identifier and +;; phase; this is a very small cache that is consulted +;; before the more general one above; it's even cheaper +;; to check, and it avoids re-shifting module bindings +;; when it hits. It can be especially effective when +;; comparing one identifier to a sequence of other +;; identifiers. + +(define SHIFTED-CACHE-SIZE 16) ; power of 2 + +;; Cache box contains #f or a weak box of a vector: +(define shifted-cache (box #f)) +(define shifted-cache-pos 0) + +(struct shifted-entry (s phase binding) + #:authentic) + +(define (shifted-cache-vector) + (define wb (unbox* shifted-cache)) + (cond + [(and wb (weak-box-value wb)) + => (lambda (vec) vec)] + [else + (define vec (make-vector SHIFTED-CACHE-SIZE #f)) + (set-box*! shifted-cache (make-weak-box vec)) + vec])) + +(define (resolve+shift-cache-get s phase) + (define vec (shifted-cache-vector)) + (for/or ([e (in-vector vec)]) + (and e + (eq? s (shifted-entry-s e)) + (eqv? phase (shifted-entry-phase e)) + (shifted-entry-binding e)))) + +(define (resolve+shift-cache-set! s phase b) + (define vec (shifted-cache-vector)) + (define p shifted-cache-pos) + (vector*-set! vec p (shifted-entry s phase b)) + (set! shifted-cache-pos (fxand (fx+ 1 p) (fx- SHIFTED-CACHE-SIZE 1)))) + +;; ---------------------------------------- + ;; For scope sets and propagation hashes, we don't intern, but we ;; approximate interning by checking against a small set of recently ;; allocated scope sets or propagation hashes. That's good enough to @@ -54,7 +108,7 @@ ;; an macro-introduced syntax prevents the usual ;; child-is-same-as-parent sharing detecting from working well enough. -(define NUM-CACHE-SLOTS 8) +(define NUM-CACHE-SLOTS 8) ; power of 2 (define cached-sets (make-weak-box (make-vector NUM-CACHE-SLOTS #f))) (define cached-sets-pos 0) @@ -73,8 +127,8 @@ (same? s s2) s2)) (begin - (vector-set! vec cached-pos s) - (set! cached-pos (modulo (add1 cached-pos) NUM-CACHE-SLOTS)) + (vector*-set! vec cached-pos s) + (set! cached-pos (fxand (fx+ 1 cached-pos) (fx- NUM-CACHE-SLOTS 1))) s)))) (define-cache-or-reuse cache-or-reuse-set cached-sets cached-sets-pos set=?) diff --git a/racket/src/racket/src/jitcommon.c b/racket/src/racket/src/jitcommon.c index 13c903c2b8..01b6dd9e43 100644 --- a/racket/src/racket/src/jitcommon.c +++ b/racket/src/racket/src/jitcommon.c @@ -509,7 +509,7 @@ static int common1b(mz_jit_state *jitter, void *_data) JIT_UPDATE_THREAD_RSPTR(); jit_prepare(1); jit_pusharg_p(JIT_R0); - (void)mz_finish_lwe(ts_scheme_unbox_star, ref); + (void)mz_finish_lwe(ts_scheme_unbox_star, ref); /* doesn't return */ CHECK_LIMIT(); scheme_jit_register_sub_func(jitter, sjc.unbox_star_fail_code, scheme_false); @@ -521,7 +521,7 @@ static int common1b(mz_jit_state *jitter, void *_data) jit_prepare(2); jit_pusharg_p(JIT_R1); jit_pusharg_p(JIT_R0); - (void)mz_finish_lwe(ts_scheme_set_box_star, ref); + (void)mz_finish_lwe(ts_scheme_set_box_star, ref); /* doesn't return */ CHECK_LIMIT(); scheme_jit_register_sub_func(jitter, sjc.set_box_star_fail_code, scheme_false); diff --git a/racket/src/racket/src/jitinline.c b/racket/src/racket/src/jitinline.c index 58ad2ed549..0952f1ecf0 100644 --- a/racket/src/racket/src/jitinline.c +++ b/racket/src/racket/src/jitinline.c @@ -4137,11 +4137,11 @@ int scheme_generate_inlined_binary(mz_jit_state *jitter, Scheme_App3_Rec *app, i (void)jit_calli(sjc.set_box_code); else (void)jit_calli(sjc.set_box_star_fail_code); - if (!for_star) { + if (!for_star) ref2 = jit_jmpi(jit_forward()); - mz_patch_branch(ref); - } else + else ref2 = NULL; + mz_patch_branch(ref); if (!unsafe) { jit_ldxi_s(JIT_R2, JIT_R0, &MZ_OPT_HASH_KEY((Scheme_Inclhash_Object *)0x0)); (void)jit_bmsi_ul(reffail, JIT_R2, 0x1); diff --git a/racket/src/racket/src/list.c b/racket/src/racket/src/list.c index 165f597dfb..979fdd22df 100644 --- a/racket/src/racket/src/list.c +++ b/racket/src/racket/src/list.c @@ -937,17 +937,17 @@ scheme_init_unsafe_list (Scheme_Startup_Env *env) scheme_addto_prim_instance("unsafe-unbox*", p, env); scheme_unsafe_unbox_star_proc = p; - REGISTER_SO(scheme_unsafe_set_box_star_proc); p = scheme_make_immed_prim(unsafe_set_box, "unsafe-set-box!", 2, 2); SCHEME_PRIM_PROC_FLAGS(p) |= scheme_intern_prim_opt_flags(SCHEME_PRIM_IS_BINARY_INLINED | SCHEME_PRIM_AD_HOC_OPT); scheme_addto_prim_instance("unsafe-set-box!", p, env); - scheme_unsafe_set_box_star_proc = p; + REGISTER_SO(scheme_unsafe_set_box_star_proc); p = scheme_make_immed_prim(unsafe_set_box_star, "unsafe-set-box*!", 2, 2); SCHEME_PRIM_PROC_FLAGS(p) |= scheme_intern_prim_opt_flags(SCHEME_PRIM_IS_BINARY_INLINED | SCHEME_PRIM_AD_HOC_OPT); scheme_addto_prim_instance("unsafe-set-box*!", p, env); + scheme_unsafe_set_box_star_proc = p; p = scheme_make_prim_w_arity(scheme_box_cas, "unsafe-box*-cas!", 3, 3); SCHEME_PRIM_PROC_FLAGS(p) |= scheme_intern_prim_opt_flags(SCHEME_PRIM_IS_NARY_INLINED); @@ -1915,6 +1915,11 @@ Scheme_Object *scheme_unbox_star(Scheme_Object *obj) return SCHEME_BOX_VAL(obj); } +static void bad_cas_box(Scheme_Object *box) +{ + scheme_wrong_contract("box-cas!", "(and/c box? (not/c immutable?) (not/c impersonator?))", 0, 1, &box); +} + Scheme_Object *scheme_box_cas(int argc, Scheme_Object *argv[]) XFORM_SKIP_PROC { @@ -1923,11 +1928,11 @@ XFORM_SKIP_PROC Scheme_Object *nv = argv[2]; /* This procedure is used for both the safe and unsafe version, but - * the JIT elides the checking for the unsafe version. - */ + the JIT elides the checking for the unsafe version. */ if (!SCHEME_MUTABLE_BOXP(box)) { - scheme_wrong_contract("box-cas!", "(and/c box? (not/c immutable?) (not/c impersonator?))", 0, 1, &box); + bad_cas_box(box); + return NULL; } #ifdef MZ_USE_FUTURES diff --git a/racket/src/racket/src/startup.inc b/racket/src/racket/src/startup.inc index 1b8393a7c2..5cca515613 100644 --- a/racket/src/racket/src/startup.inc +++ b/racket/src/racket/src/startup.inc @@ -8127,8 +8127,10 @@ static const char *startup_source = "((sym_11)" "(begin" "(let-values(((c_13)(weak-box-value(unbox* cache))))" -"(if c_13(let-values()(hash-remove! c_13 sym_11))(void)))))" -"(()(let-values(((c_14)(weak-box-value(unbox* cache))))(if c_14(let-values()(hash-clear! c_14))(void))))))" +"(begin(if c_13(let-values()(hash-remove! c_13 sym_11))(void))(set-box*! shifted-cache #f)))))" +"(()" +"(let-values(((c_14)(weak-box-value(unbox* cache))))" +"(begin(if c_14(let-values()(hash-clear! c_14))(void))(set-box*! shifted-cache #f))))))" "(define-values" "(struct:entry entry1.1 entry? entry-scs entry-smss entry-phase entry-binding)" "(let-values(((struct:_20 make-_20 ?_20 -ref_20 -set!_20)" @@ -8179,6 +8181,91 @@ static const char *startup_source = "(box-cas! cache wb_0(make-weak-box(make-hasheq)))" "(resolve-cache-set! sym_13 phase_5 scs_4 smss_8 b_38)))" "(let-values()(hash-set! c_16 sym_13(entry1.1 scs_4 smss_8 phase_5 b_38)))))))))" +"(define-values(SHIFTED-CACHE-SIZE) 16)" +"(define-values(shifted-cache)(box #f))" +"(define-values(shifted-cache-pos) 0)" +"(define-values" +"(struct:shifted-entry shifted-entry2.1 shifted-entry? shifted-entry-s shifted-entry-phase shifted-entry-binding)" +"(let-values(((struct:_21 make-_21 ?_21 -ref_21 -set!_21)" +"(let-values()" +"(let-values()" +"(make-struct-type" +" 'shifted-entry" +" #f" +" 3" +" 0" +" #f" +"(list(cons prop:authentic #t))" +"(current-inspector)" +" #f" +" '(0 1 2)" +" #f" +" 'shifted-entry)))))" +"(values" +" struct:_21" +" make-_21" +" ?_21" +"(make-struct-field-accessor -ref_21 0 's)" +"(make-struct-field-accessor -ref_21 1 'phase)" +"(make-struct-field-accessor -ref_21 2 'binding))))" +"(define-values" +"(shifted-cache-vector)" +"(lambda()" +"(begin" +"(let-values(((wb_1)(unbox* shifted-cache)))" +"(let-values(((c1_21)(if wb_1(weak-box-value wb_1) #f)))" +"(if c1_21" +"((lambda(vec_16) vec_16) c1_21)" +"(let-values()" +"(let-values(((vec_17)(make-vector SHIFTED-CACHE-SIZE #f)))" +"(begin(set-box*! shifted-cache(make-weak-box vec_17)) vec_17)))))))))" +"(define-values" +"(resolve+shift-cache-get)" +"(lambda(s_78 phase_6)" +"(begin" +"(let-values(((vec_18)(shifted-cache-vector)))" +"(let-values(((vec_13 len_9)" +"(let-values(((vec_19) vec_18))" +"(begin(check-vector vec_19)(values vec_19(unsafe-vector-length vec_19))))))" +"(begin" +" #f" +"((letrec-values(((for-loop_55)" +"(lambda(result_24 pos_7)" +"(begin" +" 'for-loop" +"(if(unsafe-fx< pos_7 len_9)" +"(let-values(((e_15)(unsafe-vector-ref vec_13 pos_7)))" +"(let-values(((result_38)" +"(let-values()" +"(let-values(((result_39)" +"(let-values()" +"(let-values()" +"(if e_15" +"(if(eq? s_78(shifted-entry-s e_15))" +"(if(eqv?" +" phase_6" +"(shifted-entry-phase e_15))" +"(shifted-entry-binding e_15)" +" #f)" +" #f)" +" #f)))))" +"(values result_39)))))" +"(if(if(not((lambda x_30 result_38) e_15))(not #f) #f)" +"(for-loop_55 result_38(unsafe-fx+ 1 pos_7))" +" result_38)))" +" result_24)))))" +" for-loop_55)" +" #f" +" 0)))))))" +"(define-values" +"(resolve+shift-cache-set!)" +"(lambda(s_79 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_79 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)))" "(define-values(cached-sets-pos) 0)" @@ -8186,95 +8273,95 @@ static const char *startup_source = "(define-values(cached-hashes-pos) 0)" "(define-values" "(cache-or-reuse-set)" -"(lambda(s_78)" +"(lambda(s_45)" "(begin" -"(let-values(((vec_16)" +"(let-values(((vec_21)" "(let-values(((or-part_95)(weak-box-value cached-sets)))" "(if or-part_95" " or-part_95" -"(let-values(((vec_17)(make-vector NUM-CACHE-SLOTS #f)))" -"(begin(set! cached-sets(make-weak-box vec_17)) vec_17))))))" +"(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_96)" -"(let-values(((vec_18 len_9)" -"(let-values(((vec_19) vec_16))" -"(begin(check-vector vec_19)(values vec_19(unsafe-vector-length vec_19))))))" +"(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_55)" -"(lambda(result_38 pos_7)" +"((letrec-values(((for-loop_56)" +"(lambda(result_40 pos_8)" "(begin" " 'for-loop" -"(if(unsafe-fx< pos_7 len_9)" -"(let-values(((s2_5)(unsafe-vector-ref vec_18 pos_7)))" -"(let-values(((result_39)" +"(if(unsafe-fx< pos_8 len_10)" +"(let-values(((s2_5)(unsafe-vector-ref vec_23 pos_8)))" +"(let-values(((result_35)" "(let-values()" -"(let-values(((result_40)" +"(let-values(((result_41)" "(let-values()" "(let-values()" "(if s2_5" -"(if(set=? s_78 s2_5) s2_5 #f)" +"(if(set=? s_45 s2_5) s2_5 #f)" " #f)))))" -"(values result_40)))))" -"(if(if(not((lambda x_30 result_39) s2_5))(not #f) #f)" -"(for-loop_55 result_39(unsafe-fx+ 1 pos_7))" -" result_39)))" -" result_38)))))" -" for-loop_55)" +"(values result_41)))))" +"(if(if(not((lambda x_31 result_35) s2_5))(not #f) #f)" +"(for-loop_56 result_35(unsafe-fx+ 1 pos_8))" +" result_35)))" +" result_40)))))" +" for-loop_56)" " #f" " 0)))))" "(if or-part_96" " or-part_96" "(begin" -"(vector-set! vec_16 cached-sets-pos s_78)" -"(set! cached-sets-pos(modulo(add1 cached-sets-pos) NUM-CACHE-SLOTS))" -" s_78)))))))" +"(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_79)" +"(lambda(s_30)" "(begin" -"(let-values(((vec_20)" +"(let-values(((vec_25)" "(let-values(((or-part_97)(weak-box-value cached-hashes)))" "(if or-part_97" " or-part_97" -"(let-values(((vec_21)(make-vector NUM-CACHE-SLOTS #f)))" -"(begin(set! cached-hashes(make-weak-box vec_21)) vec_21))))))" +"(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_98)" -"(let-values(((vec_22 len_10)" -"(let-values(((vec_23) vec_20))" -"(begin(check-vector vec_23)(values vec_23(unsafe-vector-length vec_23))))))" +"(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))))))" "(begin" " #f" -"((letrec-values(((for-loop_56)" -"(lambda(result_41 pos_8)" +"((letrec-values(((for-loop_57)" +"(lambda(result_42 pos_2)" "(begin" " 'for-loop" -"(if(unsafe-fx< pos_8 len_10)" -"(let-values(((s2_6)(unsafe-vector-ref vec_22 pos_8)))" -"(let-values(((result_42)" -"(let-values()" +"(if(unsafe-fx< pos_2 len_11)" +"(let-values(((s2_6)(unsafe-vector-ref vec_26 pos_2)))" "(let-values(((result_43)" "(let-values()" +"(let-values(((result_44)" +"(let-values()" "(let-values()" "(if s2_6" -"(if(equal? s_79 s2_6) s2_6 #f)" +"(if(equal? s_30 s2_6) s2_6 #f)" " #f)))))" -"(values result_43)))))" -"(if(if(not((lambda x_31 result_42) s2_6))(not #f) #f)" -"(for-loop_56 result_42(unsafe-fx+ 1 pos_8))" -" result_42)))" -" result_41)))))" -" for-loop_56)" +"(values result_44)))))" +"(if(if(not((lambda x_32 result_43) s2_6))(not #f) #f)" +"(for-loop_57 result_43(unsafe-fx+ 1 pos_2))" +" result_43)))" +" result_42)))))" +" for-loop_57)" " #f" " 0)))))" "(if or-part_98" " or-part_98" "(begin" -"(vector-set! vec_20 cached-hashes-pos s_79)" -"(set! cached-hashes-pos(modulo(add1 cached-hashes-pos) NUM-CACHE-SLOTS))" -" s_79)))))))" +"(vector*-set! vec_25 cached-hashes-pos s_30)" +"(set! cached-hashes-pos(fxand(fx+ 1 cached-hashes-pos)(fx- NUM-CACHE-SLOTS 1)))" +" s_30)))))))" "(define-values" "(struct:scope scope1.1 scope? scope-id scope-kind scope-binding-table set-scope-binding-table!)" -"(let-values(((struct:_21 make-_21 ?_21 -ref_21 -set!_21)" +"(let-values(((struct:_22 make-_22 ?_22 -ref_22 -set!_22)" "(let-values()" "(let-values()" "(make-struct-type" @@ -8329,13 +8416,13 @@ static const char *startup_source = " #f" " 'scope)))))" "(values" -" struct:_21" -" make-_21" -" ?_21" -"(make-struct-field-accessor -ref_21 0 'id)" -"(make-struct-field-accessor -ref_21 1 'kind)" -"(make-struct-field-accessor -ref_21 2 'binding-table)" -"(make-struct-field-mutator -set!_21 2 'binding-table))))" +" struct:_22" +" make-_22" +" ?_22" +"(make-struct-field-accessor -ref_22 0 'id)" +"(make-struct-field-accessor -ref_22 1 'kind)" +"(make-struct-field-accessor -ref_22 2 'binding-table)" +"(make-struct-field-mutator -set!_22 2 'binding-table))))" "(define-values" "(deserialize-scope)" "(case-lambda" @@ -8351,7 +8438,7 @@ static const char *startup_source = " multi-scope-scopes" " multi-scope-shifted" " multi-scope-label-shifted)" -"(let-values(((struct:_22 make-_22 ?_22 -ref_22 -set!_22)" +"(let-values(((struct:_23 make-_23 ?_23 -ref_23 -set!_23)" "(let-values()" "(let-values()" "(make-struct-type" @@ -8371,7 +8458,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-hash-values ht_50)))" -"((letrec-values(((for-loop_57)" +"((letrec-values(((for-loop_55)" "(lambda(i_63)" "(begin" " 'for-loop" @@ -8392,10 +8479,10 @@ static const char *startup_source = "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_57(hash-iterate-next ht_50 i_63))" +"(for-loop_55(hash-iterate-next ht_50 i_63))" "(values))))" "(values))))))" -" for-loop_57)" +" for-loop_55)" "(hash-iterate-first ht_50))))" "(void))))" "(cons prop:reach-scopes(lambda(s_85 reach_9)(void)))" @@ -8422,7 +8509,7 @@ static const char *startup_source = "(begin" " 'for-loop" "(if i_64" -"(let-values(((phase_6 sc_5)" +"(let-values(((phase_8 sc_5)" "(hash-iterate-key+value ht_18 i_64)))" "(let-values((()" "(let-values()" @@ -8437,7 +8524,7 @@ static const char *startup_source = "(let-values()" "(hash-set!" " ht_51" -" phase_6" +" phase_8" " sc_5))" "(void)))" "(values)))))" @@ -8457,14 +8544,14 @@ static const char *startup_source = " #f" " 'multi-scope)))))" "(values" -" struct:_22" -" make-_22" -" ?_22" -"(make-struct-field-accessor -ref_22 0 'id)" -"(make-struct-field-accessor -ref_22 1 'name)" -"(make-struct-field-accessor -ref_22 2 'scopes)" -"(make-struct-field-accessor -ref_22 3 'shifted)" -"(make-struct-field-accessor -ref_22 4 'label-shifted))))" +" struct:_23" +" make-_23" +" ?_23" +"(make-struct-field-accessor -ref_23 0 'id)" +"(make-struct-field-accessor -ref_23 1 'name)" +"(make-struct-field-accessor -ref_23 2 'scopes)" +"(make-struct-field-accessor -ref_23 3 'shifted)" +"(make-struct-field-accessor -ref_23 4 'label-shifted))))" "(define-values" "(deserialize-multi-scope)" "(lambda(name_15 scopes_8)" @@ -8477,7 +8564,7 @@ static const char *startup_source = " representative-scope-phase" " set-representative-scope-owner!" " set-representative-scope-phase!)" -"(let-values(((struct:_23 make-_23 ?_23 -ref_23 -set!_23)" +"(let-values(((struct:_24 make-_24 ?_24 -ref_24 -set!_24)" "(let-values()" "(let-values()" "(make-struct-type" @@ -8525,17 +8612,17 @@ static const char *startup_source = " #f" " 'representative-scope)))))" "(values" -" struct:_23" -" make-_23" -" ?_23" -"(make-struct-field-accessor -ref_23 0 'owner)" -"(make-struct-field-accessor -ref_23 1 'phase)" -"(make-struct-field-mutator -set!_23 0 'owner)" -"(make-struct-field-mutator -set!_23 1 'phase))))" +" struct:_24" +" make-_24" +" ?_24" +"(make-struct-field-accessor -ref_24 0 'owner)" +"(make-struct-field-accessor -ref_24 1 'phase)" +"(make-struct-field-mutator -set!_24 0 'owner)" +"(make-struct-field-mutator -set!_24 1 'phase))))" "(define-values" "(deserialize-representative-scope)" -"(lambda(kind_1 phase_7)" -"(begin(let-values(((v_78)(representative-scope3.1(new-deserialize-scope-id!) kind_1 #f #f phase_7))) v_78))))" +"(lambda(kind_1 phase_9)" +"(begin(let-values(((v_78)(representative-scope3.1(new-deserialize-scope-id!) kind_1 #f #f phase_9))) v_78))))" "(define-values" "(deserialize-representative-scope-fill!)" "(lambda(s_88 bt_6 owner_0)" @@ -8546,7 +8633,7 @@ static const char *startup_source = " shifted-multi-scope?" " shifted-multi-scope-phase" " shifted-multi-scope-multi-scope)" -"(let-values(((struct:_24 make-_24 ?_24 -ref_24 -set!_24)" +"(let-values(((struct:_25 make-_25 ?_25 -ref_25 -set!_25)" "(let-values()" "(let-values()" "(make-struct-type" @@ -8582,23 +8669,23 @@ static const char *startup_source = " #f" " 'shifted-multi-scope)))))" "(values" -" struct:_24" -" make-_24" -" ?_24" -"(make-struct-field-accessor -ref_24 0 'phase)" -"(make-struct-field-accessor -ref_24 1 'multi-scope))))" +" struct:_25" +" make-_25" +" ?_25" +"(make-struct-field-accessor -ref_25 0 'phase)" +"(make-struct-field-accessor -ref_25 1 'multi-scope))))" "(define-values" "(deserialize-shifted-multi-scope)" -"(lambda(phase_8 multi-scope_0)(begin(intern-shifted-multi-scope phase_8 multi-scope_0))))" +"(lambda(phase_10 multi-scope_0)(begin(intern-shifted-multi-scope phase_10 multi-scope_0))))" "(define-values" "(intern-shifted-multi-scope)" -"(lambda(phase_9 multi-scope_1)" +"(lambda(phase_11 multi-scope_1)" "(begin" "(letrec-values(((transaction-loop_0)" "(lambda(boxed-table_0 key_30 make_0)" "(begin" " 'transaction-loop" -"(let-values(((or-part_100)(hash-ref(unbox boxed-table_0) phase_9 #f)))" +"(let-values(((or-part_100)(hash-ref(unbox boxed-table_0) phase_11 #f)))" "(if or-part_100" " or-part_100" "(let-values(((val_17)(make_0)))" @@ -8607,26 +8694,26 @@ static const char *startup_source = "(if(box-cas! boxed-table_0 current_0 next_3)" " val_17" "(transaction-loop_0 boxed-table_0 key_30 make_0)))))))))))" -"(if(phase? phase_9)" +"(if(phase? phase_11)" "(let-values()" -"(let-values(((or-part_101)(hash-ref(unbox(multi-scope-shifted multi-scope_1)) phase_9 #f)))" +"(let-values(((or-part_101)(hash-ref(unbox(multi-scope-shifted multi-scope_1)) phase_11 #f)))" "(if or-part_101" " or-part_101" "(transaction-loop_0" "(multi-scope-shifted multi-scope_1)" -" phase_9" -"(lambda()(shifted-multi-scope4.1 phase_9 multi-scope_1))))))" +" phase_11" +"(lambda()(shifted-multi-scope4.1 phase_11 multi-scope_1))))))" "(let-values()" -"(let-values(((or-part_102)(hash-ref(unbox(multi-scope-label-shifted multi-scope_1)) phase_9 #f)))" +"(let-values(((or-part_102)(hash-ref(unbox(multi-scope-label-shifted multi-scope_1)) phase_11 #f)))" "(if or-part_102" " or-part_102" "(transaction-loop_0" "(multi-scope-label-shifted multi-scope_1)" -" phase_9" -"(lambda()(shifted-multi-scope4.1 phase_9 multi-scope_1)))))))))))" +" phase_11" +"(lambda()(shifted-multi-scope4.1 phase_11 multi-scope_1)))))))))))" "(define-values" "(struct:shifted-to-label-phase shifted-to-label-phase5.1 shifted-to-label-phase? shifted-to-label-phase-from)" -"(let-values(((struct:_25 make-_25 ?_25 -ref_25 -set!_25)" +"(let-values(((struct:_26 make-_26 ?_26 -ref_26 -set!_26)" "(let-values()" "(let-values()" "(make-struct-type" @@ -8641,7 +8728,7 @@ static const char *startup_source = " '(0)" " #f" " 'shifted-to-label-phase)))))" -"(values struct:_25 make-_25 ?_25(make-struct-field-accessor -ref_25 0 'from))))" +"(values struct:_26 make-_26 ?_26(make-struct-field-accessor -ref_26 0 'from))))" "(define-values(id-counter) 0)" "(define-values(new-scope-id!)(lambda()(begin(begin(set! id-counter(add1 id-counter)) id-counter))))" "(define-values(new-deserialize-scope-id!)(lambda()(begin(-(new-scope-id!)))))" @@ -8662,9 +8749,9 @@ static const char *startup_source = "(case-lambda(()(begin(new-multi-scope8_0 #f #f)))((name6_1)(new-multi-scope8_0 name6_1 #t)))))" "(define-values" "(multi-scope-to-scope-at-phase)" -"(lambda(ms_2 phase_10)" +"(lambda(ms_2 phase_12)" "(begin" -"(let-values(((or-part_103)(hash-ref(multi-scope-scopes ms_2) phase_10 #f)))" +"(let-values(((or-part_103)(hash-ref(multi-scope-scopes ms_2) phase_12 #f)))" "(if or-part_103" " or-part_103" "(let-values(((s_89)" @@ -8673,8 +8760,8 @@ static const char *startup_source = " 'module" " empty-binding-table" " ms_2" -" phase_10)))" -"(begin(hash-set!(multi-scope-scopes ms_2) phase_10 s_89) s_89)))))))" +" phase_12)))" +"(begin(hash-set!(multi-scope-scopes ms_2) phase_12 s_89) s_89)))))))" "(define-values(scope>?)(lambda(sc1_0 sc2_0)(begin(>(scope-id sc1_0)(scope-id sc2_0)))))" "(define-values(scope_2)" "(lambda(sub-s_1)" "(begin" @@ -8750,11 +8837,11 @@ static const char *startup_source = "(let-values(((t_32)" "(tamper-tainted-for-content" "(syntax-content sub-s_1)))" -"((p_26)" +"((p_27)" "(syntax-scope-propagations+tamper stx_8)))" -"(if(tamper? p_26)" +"(if(tamper? p_27)" " t_32" -"((propagation-set-tamper-ref p_26) p_26 t_32)))))" +"((propagation-set-tamper-ref p_27) p_27 t_32)))))" "(syntax1.1" "(syntax-content the-struct_15)" "(syntax-scopes the-struct_15)" @@ -8837,9 +8924,9 @@ static const char *startup_source = "(lambda(s_96)" "(begin" " 'syntax-e" -"(let-values(((e_15)(syntax-content s_96)))" -"(if(symbol? e_15)" -"(let-values() e_15)" +"(let-values(((e_16)(syntax-content s_96)))" +"(if(symbol? e_16)" +"(let-values() e_16)" "(let-values()" "(let-values(((content_6)(syntax-e/no-taint s_96)))" "(if(not(tamper-armed?(syntax-scope-propagations+tamper s_96)))" @@ -9009,7 +9096,7 @@ static const char *startup_source = " lst_45))))))" "(define-values" "(set-flip)" -"(lambda(s_111 e_16)(begin(if(set-member? s_111 e_16)(set-remove s_111 e_16)(set-add s_111 e_16)))))" +"(lambda(s_111 e_17)(begin(if(set-member? s_111 e_17)(set-remove s_111 e_17)(set-add s_111 e_17)))))" "(define-values" "(flip-scope)" "(lambda(s_112 sc_14)" @@ -9114,7 +9201,7 @@ static const char *startup_source = "(set! prev-result_0 r_22)" " r_22))))))))" "(let-values(((s_120) s_119)" -"((f_29)(lambda(tail?_25 x_33)(begin 'f x_33)))" +"((f_29)(lambda(tail?_25 x_34)(begin 'f x_34)))" "((d->s_1)" "(lambda(s_121 d_3)" "(begin" @@ -9216,7 +9303,7 @@ static const char *startup_source = " propagation-add-mpi-shifts" " propagation-inspector" " propagation-tamper)" -"(let-values(((struct:_26 make-_26 ?_26 -ref_26 -set!_26)" +"(let-values(((struct:_27 make-_27 ?_27 -ref_27 -set!_27)" "(let-values()" "(let-values()" "(make-struct-type" @@ -9227,8 +9314,8 @@ static const char *startup_source = " #f" "(list" "(cons prop:authentic #t)" -"(cons prop:propagation-set-tamper(lambda(p_27 v_81)(propagation-set-tamper p_27 v_81)))" -"(cons prop:propagation-tamper(lambda(p_28)(propagation-tamper p_28)))" +"(cons prop:propagation-set-tamper(lambda(p_28 v_81)(propagation-set-tamper p_28 v_81)))" +"(cons prop:propagation-tamper(lambda(p_29)(propagation-tamper p_29)))" "(cons prop:propagation syntax-e$1))" "(current-inspector)" " #f" @@ -9236,16 +9323,16 @@ static const char *startup_source = " #f" " 'propagation)))))" "(values" -" struct:_26" -" make-_26" -" ?_26" -"(make-struct-field-accessor -ref_26 0 'prev-scs)" -"(make-struct-field-accessor -ref_26 1 'prev-smss)" -"(make-struct-field-accessor -ref_26 2 'scope-ops)" -"(make-struct-field-accessor -ref_26 3 'prev-mss)" -"(make-struct-field-accessor -ref_26 4 'add-mpi-shifts)" -"(make-struct-field-accessor -ref_26 5 'inspector)" -"(make-struct-field-accessor -ref_26 6 'tamper))))" +" struct:_27" +" make-_27" +" ?_27" +"(make-struct-field-accessor -ref_27 0 'prev-scs)" +"(make-struct-field-accessor -ref_27 1 'prev-smss)" +"(make-struct-field-accessor -ref_27 2 'scope-ops)" +"(make-struct-field-accessor -ref_27 3 'prev-mss)" +"(make-struct-field-accessor -ref_27 4 'add-mpi-shifts)" +"(make-struct-field-accessor -ref_27 5 'inspector)" +"(make-struct-field-accessor -ref_27 6 'tamper))))" "(define-values" "(propagation-add)" "(lambda(prop_4 sc_17 prev-scs_0 prev-smss_0 prev-mss_0)" @@ -9650,10 +9737,10 @@ static const char *startup_source = "(shifted-multi-scope-multi-scope sms_8)))))))))" "(define-values" "(syntax-shift-phase-level$1)" -"(lambda(s_127 phase_11)" +"(lambda(s_127 phase_13)" "(begin" " 'syntax-shift-phase-level" -"(if(eqv? phase_11 0)" +"(if(eqv? phase_13 0)" " s_127" "(let-values()" "(let-values(((smss80_0) #f))" @@ -9688,7 +9775,7 @@ static const char *startup_source = "(let-values(((new-sms_0)" "(shift-multi-scope" " sms_9" -" phase_11)))" +" phase_13)))" "(begin" " #t" "((letrec-values(((for-loop_64)" @@ -10046,11 +10133,11 @@ static const char *startup_source = " s_136)))))))))))))" "(define-values" "(syntax-scope-set)" -"(lambda(s_143 phase_12)" -"(begin(scope-set-at-fallback s_143(fallback-first(syntax-shifted-multi-scopes s_143)) phase_12))))" +"(lambda(s_143 phase_14)" +"(begin(scope-set-at-fallback s_143(fallback-first(syntax-shifted-multi-scopes s_143)) phase_14))))" "(define-values" "(scope-set-at-fallback)" -"(lambda(s_144 smss_24 phase_13)" +"(lambda(s_144 smss_24 phase_15)" "(begin" "(let-values(((ht_58) smss_24))" "(begin" @@ -10065,7 +10152,7 @@ static const char *startup_source = "(let-values(((sms_10)(unsafe-immutable-hash-iterate-key ht_58 i_72)))" "(let-values(((scopes_10)" "(let-values(((scopes_11) scopes_9))" -"(if(let-values(((or-part_123)(label-phase? phase_13)))" +"(if(let-values(((or-part_123)(label-phase? phase_15)))" "(if or-part_123" " or-part_123" "(not" @@ -10083,7 +10170,7 @@ static const char *startup_source = " sms_10)))" "(if(shifted-to-label-phase? ph_0)" "(shifted-to-label-phase-from ph_0)" -"(phase- ph_0 phase_13))))))))" +"(phase- ph_0 phase_15))))))))" "(values scopes_13)))" " scopes_11))))" "(if(not #f)" @@ -10169,21 +10256,21 @@ static const char *startup_source = "(void)" "(let-values()(check-in-immutable-hash-keys ht_60)))" "((letrec-values(((for-loop_69)" -"(lambda(result_44 i_74)" +"(lambda(result_45 i_74)" "(begin" " 'for-loop" "(if i_74" "(let-values(((sc_25)(unsafe-immutable-hash-iterate-key ht_60 i_74)))" -"(let-values(((result_45)" -"(let-values()" "(let-values(((result_46)" "(let-values()" +"(let-values(((result_47)" +"(let-values()" "(let-values()(eq?(scope-kind sc_25) 'macro)))))" -"(values result_46)))))" -"(if(if(not((lambda x_34 result_45) sc_25))(not #f) #f)" -"(for-loop_69 result_45(unsafe-immutable-hash-iterate-next ht_60 i_74))" -" result_45)))" -" result_44)))))" +"(values result_47)))))" +"(if(if(not((lambda x_35 result_46) sc_25))(not #f) #f)" +"(for-loop_69 result_46(unsafe-immutable-hash-iterate-next ht_60 i_74))" +" result_46)))" +" result_45)))))" " for-loop_69)" " #f" "(unsafe-immutable-hash-iterate-first ht_60)))))))" @@ -10202,7 +10289,7 @@ static const char *startup_source = "(begin" " 'resolve40" "(let-values(((s_146) s38_0))" -"(let-values(((phase_14) phase39_0))" +"(let-values(((phase_16) phase39_0))" "(let-values(((ambiguous-value_0)(if ambiguous-value34_0 ambiguous-value30_0 #f)))" "(let-values(((exactly?_0)(if exactly?35_0 exactly?31_0 #f)))" "(let-values(((get-scopes?_0)(if get-scopes?36_0 get-scopes?32_0 #f)))" @@ -10213,17 +10300,17 @@ static const char *startup_source = "(lambda(smss_25)" "(begin" " 'fallback-loop" -"(let-values(((c1_21)" +"(let-values(((c1_22)" "(if(not exactly?_0)" "(if(not get-scopes?_0)" "(resolve-cache-get" " sym_15" -" phase_14" +" phase_16" "(syntax-scopes s_146)" "(fallback-first smss_25))" " #f)" " #f)))" -"(if c1_21" +"(if c1_22" "((lambda(b_39)" "(if(eq? b_39 '#:none)" "(let-values()" @@ -10231,13 +10318,13 @@ static const char *startup_source = "(fallback-loop_0(fallback-rest smss_25))" " #f))" "(let-values() b_39)))" -" c1_21)" +" c1_22)" "(let-values()" "(let-values(((scopes_17)" "(scope-set-at-fallback" " s_146" "(fallback-first smss_25)" -" phase_14)))" +" phase_16)))" "(let-values(((best-scopes_0 best-binding_0)" "(let-values(((ht_61) scopes_17))" "(begin" @@ -10369,7 +10456,7 @@ static const char *startup_source = "(check-list" " lst_49)))" "((letrec-values(((for-loop_72)" -"(lambda(result_47" +"(lambda(result_48" " lst_50)" "(begin" " 'for-loop" @@ -10381,29 +10468,29 @@ static const char *startup_source = "((rest_21)" "(unsafe-cdr" " lst_50)))" -"(let-values(((result_48)" -"(let-values()" "(let-values(((result_49)" "(let-values()" +"(let-values(((result_50)" +"(let-values()" "(let-values()" "(subset?" " amb-scopes_0" " b-scopes_0)))))" "(values" -" result_49)))))" +" result_50)))))" "(if(if(not" -"((lambda x_35" +"((lambda x_36" "(not" -" result_48))" +" result_49))" " amb-scopes_0))" "(not" " #f)" " #f)" "(for-loop_72" -" result_48" +" result_49" " rest_21)" -" result_48)))" -" result_47)))))" +" result_49)))" +" result_48)))))" " for-loop_72)" " #t" " lst_49)))" @@ -10509,7 +10596,7 @@ static const char *startup_source = "(begin" "(resolve-cache-set!" " sym_15" -" phase_14" +" phase_16" "(syntax-scopes s_146)" "(fallback-first smss_25)" " best-binding_0)" @@ -10525,7 +10612,7 @@ static const char *startup_source = "(begin" "(resolve-cache-set!" " sym_15" -" phase_14" +" phase_16" "(syntax-scopes s_146)" "(fallback-first smss_25)" " '#:none)" @@ -10536,11 +10623,11 @@ static const char *startup_source = "(syntax-shifted-multi-scopes s_146)))))))))))))" "(define-values" "(bound-identifier=?$1)" -"(lambda(a_32 b_40 phase_15)" +"(lambda(a_32 b_40 phase_17)" "(begin" " 'bound-identifier=?" "(if(eq?(syntax-e$1 a_32)(syntax-e$1 b_40))" -"(equal?(syntax-scope-set a_32 phase_15)(syntax-scope-set b_40 phase_15))" +"(equal?(syntax-scope-set a_32 phase_17)(syntax-scope-set b_40 phase_17))" " #f))))" "(define-values" "(local-binding?)" @@ -10548,7 +10635,7 @@ static const char *startup_source = "(begin(let-values(((or-part_0)(full-local-binding? b_41)))(if or-part_0 or-part_0(symbol? b_41))))))" "(define-values" "(struct:full-local-binding full-local-binding1.1 full-local-binding? full-local-binding-key)" -"(let-values(((struct:_27 make-_27 ?_27 -ref_27 -set!_27)" +"(let-values(((struct:_28 make-_28 ?_28 -ref_28 -set!_28)" "(let-values()" "(let-values()" "(make-struct-type" @@ -10571,7 +10658,7 @@ static const char *startup_source = " '(0)" " #f" " 'full-local-binding)))))" -"(values struct:_27 make-_27 ?_27(make-struct-field-accessor -ref_27 0 'key))))" +"(values struct:_28 make-_28 ?_28(make-struct-field-accessor -ref_28 0 'key))))" "(define-values" "(deserialize-full-local-binding)" "(lambda(key_34 free=id_3)(begin(full-local-binding1.1 #f free=id_3 key_34))))" @@ -10672,7 +10759,7 @@ static const char *startup_source = " id_0))))))))))))" "(define-values" "(struct:id-rename-transformer id-rename-transformer1.1 id-rename-transformer? id-rename-transformer-id)" -"(let-values(((struct:_28 make-_28 ?_28 -ref_28 -set!_28)" +"(let-values(((struct:_29 make-_29 ?_29 -ref_29 -set!_29)" "(let-values()" "(let-values()" "(make-struct-type" @@ -10687,7 +10774,7 @@ static const char *startup_source = " '(0)" " #f" " 'id-rename-transformer)))))" -"(values struct:_28 make-_28 ?_28(make-struct-field-accessor -ref_28 0 'id))))" +"(values struct:_29 make-_29 ?_29(make-struct-field-accessor -ref_29 0 'id))))" "(define-values" "(1/make-rename-transformer)" "(lambda(id_1)" @@ -10755,11 +10842,11 @@ static const char *startup_source = " #f))))" "(define-values" "(identifier-binding-symbol$1)" -"(lambda(id_2 phase_16)" +"(lambda(id_2 phase_18)" "(begin" " 'identifier-binding-symbol" "(let-values(((b_42)" -"(let-values(((id53_0) id_2)((phase54_1) phase_16)((temp55_0) #t))" +"(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))))" "(if(symbol? b_42)" "(let-values() b_42)" @@ -10773,11 +10860,11 @@ static const char *startup_source = "(begin" " 'identifier-binding5" "(let-values(((id_3) id3_0))" -"(let-values(((phase_17) phase4_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)))" "(let-values()" "(let-values(((b_47)" -"(let-values(((id56_0) id_3)((phase57_0) phase_17))" +"(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))))" "(if(module-binding? b_47)" "(let-values()" @@ -10793,11 +10880,11 @@ static const char *startup_source = "(module-binding-nominal-phase b_47))))" "(if(local-binding? b_47)(let-values() 'lexical)(let-values() #f))))))))))))" "(case-lambda" -"((id_4 phase_18)(begin 'identifier-binding(identifier-binding5_0 id_4 phase_18 #f #f)))" -"((id_5 phase_19 top-level-symbol?1_1)(identifier-binding5_0 id_5 phase_19 top-level-symbol?1_1 #t)))))" +"((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)))))" "(define-values" "(maybe-install-free=id!)" -"(lambda(val_22 id_6 phase_20)" +"(lambda(val_22 id_6 phase_22)" "(begin" "(if(1/rename-transformer? val_22)" "(let-values()" @@ -10806,9 +10893,9 @@ static const char *startup_source = "(void)" "(let-values()" "(let-values(((b_48)" -"(let-values(((id61_0) id_6)((phase62_0) phase_20)((temp63_0) #t)((temp64_0) #t))" +"(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_20))" +"(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_48 free=id_6)))" "(add-binding-in-scopes!20.1 #f #f temp58_0 temp59_0 temp60_0)))))))" @@ -10924,16 +11011,23 @@ static const char *startup_source = "(begin" " 'resolve+shift30" "(let-values(((s_87) s28_0))" -"(let-values(((phase_21) phase29_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)))" "(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_87 phase_23) #f)))" +"(if c1_23" +"((lambda(b_50)(if(eq? b_50 '#:none)(if unbound-sym?_0(syntax-content s_87) #f) b_50))" +" c1_23)" +"(let-values()" "(let-values(((immediate-b_0)" "(let-values(((s73_0) s_87)" -"((phase74_0) phase_21)" +"((phase74_0) phase_23)" "((ambiguous-value75_0) ambiguous-value_1)" "((exactly?76_0) exactly?_1)" "((extra-shifts77_0) extra-shifts_4))" @@ -10948,13 +11042,14 @@ static const char *startup_source = " #f" " s73_0" " phase74_0))))" -"(let-values(((b_50)" +"(let-values(((b_51)" "(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_21)" -"((temp80_0)(append extra-shifts_4(syntax-mpi-shifts s_87)))" +"((phase79_0) phase_23)" +"((temp80_0)" +"(append extra-shifts_4(syntax-mpi-shifts s_87)))" "((ambiguous-value81_0) ambiguous-value_1)" "((exactly?82_0) exactly?_1)" "((unbound-sym?83_0) unbound-sym?_0))" @@ -10972,52 +11067,67 @@ static const char *startup_source = " temp78_0" " phase79_0))" " immediate-b_0)))" -"(if(module-binding? b_50)" +"(if(module-binding? b_51)" "(let-values()" "(let-values(((mpi-shifts_2)(syntax-mpi-shifts s_87)))" "(if(null? mpi-shifts_2)" -"(let-values() b_50)" +"(let-values() b_51)" "(let-values()" -"(let-values(((mod_0)(module-binding-module b_50)))" +"(let-values(((mod_0)(module-binding-module b_51)))" "(let-values(((shifted-mod_0)(apply-syntax-shifts mod_0 mpi-shifts_2)))" -"(let-values(((nominal-mod_0)(module-binding-nominal-module b_50)))" +"(let-values(((nominal-mod_0)(module-binding-nominal-module b_51)))" "(let-values(((shifted-nominal-mod_0)" "(if(eq? mod_0 nominal-mod_0)" " shifted-mod_0" "(apply-syntax-shifts nominal-mod_0 mpi-shifts_2))))" +"(let-values(((result-b_0)" "(if(if(eq? mod_0 shifted-mod_0)" "(if(eq? nominal-mod_0 shifted-nominal-mod_0)" -"(if(not(binding-free=id b_50))" -"(null?(module-binding-extra-nominal-bindings b_50))" +"(if(not(binding-free=id b_51))" +"(null?" +"(module-binding-extra-nominal-bindings" +" b_51))" " #f)" " #f)" " #f)" -" b_50" -"(let-values(((b84_0) b_50)" +" b_51" +"(let-values(((b84_0) b_51)" "((shifted-mod85_0) shifted-mod_0)" -"((shifted-nominal-mod86_0) shifted-nominal-mod_0)" +"((shifted-nominal-mod86_0)" +" shifted-nominal-mod_0)" "((temp87_0)" -"(if(binding-free=id b_50)" -"(let-values(((temp89_0)(binding-free=id b_50))" +"(if(binding-free=id b_51)" +"(let-values(((temp89_0)" +"(binding-free=id" +" b_51))" "((s90_0) s_87))" -"(syntax-transfer-shifts39.1 #f #f temp89_0 s90_0 #f #f))" +"(syntax-transfer-shifts39.1" +" #f" +" #f" +" temp89_0" +" s90_0" +" #f" +" #f))" " #f))" "((temp88_1)" "(reverse$1" "(let-values(((lst_51)" "(module-binding-extra-nominal-bindings" -" b_50)))" +" b_51)))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_51)))" +"(let-values()" +"(check-list lst_51)))" "((letrec-values(((for-loop_73)" -"(lambda(fold-var_35 lst_52)" +"(lambda(fold-var_35" +" lst_52)" "(begin" " 'for-loop" -"(if(pair? lst_52)" -"(let-values(((b_51)" +"(if(pair?" +" lst_52)" +"(let-values(((b_52)" "(unsafe-car" " lst_52))" "((rest_22)" @@ -11031,12 +11141,13 @@ static const char *startup_source = "(cons" "(let-values()" "(apply-syntax-shifts-to-binding" -" b_51" +" b_52" " mpi-shifts_2))" " fold-var_37))))" "(values" " fold-var_38)))))" -"(if(not #f)" +"(if(not" +" #f)" "(for-loop_73" " fold-var_36" " rest_22)" @@ -11068,10 +11179,26 @@ static const char *startup_source = " #f" " #f" " #f" -" b84_0)))))))))))" -"(if(if(not b_50) unbound-sym?_0 #f)" -"(let-values()(syntax-e$1 s_87))" -"(let-values() b_50))))))))))))))))" +" b84_0)))))" +"(begin" +"(if can-cache?_0" +"(let-values()" +"(resolve+shift-cache-set! s_87 phase_23 result-b_0))" +"(void))" +" result-b_0))))))))))" +"(let-values()" +"(begin" +"(if can-cache?_0" +"(let-values()" +"(resolve+shift-cache-set!" +" s_87" +" phase_23" +"(let-values(((or-part_128) b_51))(if or-part_128 or-part_128 '#:none))))" +"(void))" +"(let-values(((or-part_129) b_51))" +"(if or-part_129" +" or-part_129" +"(if unbound-sym?_0(syntax-content s_87) #f)))))))))))))))))))))))" "(define-values" "(apply-syntax-shifts)" "(lambda(mpi_12 shifts_0)" @@ -11084,26 +11211,26 @@ static const char *startup_source = "(module-path-index-shift shifted-mpi_1(shift-from shift_1)(shift-to shift_1)))))))))" "(define-values" "(apply-syntax-shifts-to-binding)" -"(lambda(b_52 shifts_1)" +"(lambda(b_53 shifts_1)" "(begin" "(if(null? shifts_1)" -"(let-values() b_52)" +"(let-values() b_53)" "(let-values()" -"(let-values(((shifted-b_0)(apply-syntax-shifts-to-binding b_52(cdr shifts_1))))" +"(let-values(((shifted-b_0)(apply-syntax-shifts-to-binding b_53(cdr shifts_1))))" "(let-values(((shift_2)(car shifts_1)))" "(binding-module-path-index-shift shifted-b_0(shift-from shift_2)(shift-to shift_2)))))))))" "(define-values" "(binding-module-path-index-shift)" -"(lambda(b_53 from-mpi_2 to-mpi_2)" +"(lambda(b_54 from-mpi_2 to-mpi_2)" "(begin" -"(if(module-binding? b_53)" +"(if(module-binding? b_54)" "(let-values()" -"(let-values(((b91_0) b_53)" -"((temp92_0)(module-path-index-shift(module-binding-module b_53) from-mpi_2 to-mpi_2))" -"((temp93_0)(module-path-index-shift(module-binding-nominal-module b_53) from-mpi_2 to-mpi_2))" +"(let-values(((b91_0) b_54)" +"((temp92_0)(module-path-index-shift(module-binding-module b_54) from-mpi_2 to-mpi_2))" +"((temp93_0)(module-path-index-shift(module-binding-nominal-module b_54) from-mpi_2 to-mpi_2))" "((temp94_0)" "(reverse$1" -"(let-values(((lst_53)(module-binding-extra-nominal-bindings b_53)))" +"(let-values(((lst_53)(module-binding-extra-nominal-bindings b_54)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" @@ -11113,7 +11240,7 @@ static const char *startup_source = "(begin" " 'for-loop" "(if(pair? lst_54)" -"(let-values(((b_54)(unsafe-car lst_54))" +"(let-values(((b_55)(unsafe-car lst_54))" "((rest_23)(unsafe-cdr lst_54)))" "(let-values(((fold-var_40)" "(let-values(((fold-var_41) fold-var_39))" @@ -11122,7 +11249,7 @@ static const char *startup_source = "(cons" "(let-values()" "(binding-module-path-index-shift" -" b_54" +" b_55" " from-mpi_2" " to-mpi_2))" " fold-var_41))))" @@ -11156,7 +11283,7 @@ static const char *startup_source = " #f" " #f" " b91_0)))" -"(let-values() b_53)))))" +"(let-values() b_54)))))" "(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)" @@ -11188,10 +11315,10 @@ static const char *startup_source = "((rest_24)(unsafe-cdr lst_56))" "((i_77) pos_9))" "(let-values(((s_150)" -"(let-values(((s_151) s_149))" -"(let-values(((s_94)" +"(let-values(((s_95) s_149))" +"(let-values(((s_96)" "(let-values()" -"(let-values(((s95_0) s_151)" +"(let-values(((s95_0) s_95)" "((temp96_0)" "(shift-from shift_3))" "((temp97_0)" @@ -11210,7 +11337,7 @@ static const char *startup_source = " temp97_0" " temp98_0" " #t)))))" -"(values s_94)))))" +"(values s_96)))))" "(if(not #f)(for-loop_75 s_150 rest_24(+ pos_9 1)) s_150)))" " s_149)))))" " for-loop_75)" @@ -11219,22 +11346,22 @@ static const char *startup_source = " start_12))))))))))))))" "(define-values" "(syntax-set-inspector)" -"(lambda(s_104 insp_3)" +"(lambda(s_151 insp_3)" "(begin" -"(let-values(((the-struct_31) s_104))" +"(let-values(((the-struct_31) s_151))" "(if(syntax?$1 the-struct_31)" "(let-values(((inspector100_0)" -"(let-values(((or-part_128)(syntax-inspector s_104)))(if or-part_128 or-part_128 insp_3)))" +"(let-values(((or-part_130)(syntax-inspector s_151)))(if or-part_130 or-part_130 insp_3)))" "((scope-propagations+tamper101_0)" -"(if(datum-has-elements?(syntax-content s_104))" +"(if(datum-has-elements?(syntax-content s_151))" "(propagation-mpi-shift" -"(syntax-scope-propagations+tamper s_104)" +"(syntax-scope-propagations+tamper s_151)" " #f" " insp_3" -"(syntax-scopes s_104)" -"(syntax-shifted-multi-scopes s_104)" -"(syntax-mpi-shifts s_104))" -"(syntax-scope-propagations+tamper s_104))))" +"(syntax-scopes s_151)" +"(syntax-shifted-multi-scopes s_151)" +"(syntax-mpi-shifts s_151))" +"(syntax-scope-propagations+tamper s_151))))" "(syntax1.1" "(syntax-content the-struct_31)" "(syntax-scopes the-struct_31)" @@ -11258,24 +11385,24 @@ static const char *startup_source = "(if(syntax?$1 s_152)" "(void)" " (let-values () (raise-argument-error 'syntax-track-origin \"syntax?\" s_152)))" -"(let-values(((lst_57)(reverse$1(syntax-mpi-shifts s_152))))" +"(let-values(((lst_46)(reverse$1(syntax-mpi-shifts s_152))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_57)))" +"(let-values()(check-list lst_46)))" "((letrec-values(((for-loop_76)" -"(lambda(result_50 lst_45)" +"(lambda(result_51 lst_57)" "(begin" " 'for-loop" -"(if(pair? lst_45)" -"(let-values(((shift_4)(unsafe-car lst_45))" -"((rest_25)(unsafe-cdr lst_45)))" -"(let-values(((result_51)" -"(let-values(((result_52) result_50))" +"(if(pair? lst_57)" +"(let-values(((shift_4)(unsafe-car lst_57))" +"((rest_25)(unsafe-cdr lst_57)))" +"(let-values(((result_52)" +"(let-values(((result_53) result_51))" "(if(non-source-shift? shift_4)" -" result_52" +" result_53" "(let-values()" -"(let-values(((result_53)" +"(let-values(((result_54)" "(let-values()" "(let-values()" "(let-values(((from-mpi_3)" @@ -11301,17 +11428,17 @@ static const char *startup_source = " mpi_13))" " #f)" " #f)))))))" -"(values result_53)))))))" -"(if(if(not((lambda x_4 result_51) shift_4))(not #f) #f)" -"(for-loop_76 result_51 rest_25)" -" result_51)))" -" result_50)))))" +"(values result_54)))))))" +"(if(if(not((lambda x_37 result_52) shift_4))(not #f) #f)" +"(for-loop_76 result_52 rest_25)" +" result_52)))" +" result_51)))))" " for-loop_76)" " #f" -" lst_57)))))))))))" +" lst_46)))))))))))" "(case-lambda" "((s_153)(begin 'syntax-source-module(syntax-source-module45_0 s_153 #f #f)))" -"((s_113 source?42_1)(syntax-source-module45_0 s_113 source?42_1 #t)))))" +"((s_154 source?42_1)(syntax-source-module45_0 s_154 source?42_1 #t)))))" "(define-values" "(1/identifier-prune-to-source-module)" "(lambda(id_7)" @@ -11349,12 +11476,12 @@ static const char *startup_source = "(cons prop:authentic #t)" "(cons" " prop:serialize" -"(lambda(p_29 ser-push!_13 state_23)" +"(lambda(p_30 ser-push!_13 state_23)" "(begin" "(ser-push!_13 'tag '#:provided)" -"(ser-push!_13(provided-binding p_29))" -"(ser-push!_13(provided-protected? p_29))" -"(ser-push!_13(provided-syntax? p_29))))))" +"(ser-push!_13(provided-binding p_30))" +"(ser-push!_13(provided-protected? p_30))" +"(ser-push!_13(provided-syntax? p_30))))))" " #f" " #f" " '(0 1 2)" @@ -11437,7 +11564,7 @@ static const char *startup_source = " bulk-binding-bulk-binding-registry" " set-bulk-binding-provides!" " set-bulk-binding-self!)" -"(let-values(((struct:_29 make-_29 ?_29 -ref_29 -set!_29)" +"(let-values(((struct:_30 make-_30 ?_30 -ref_30 -set!_30)" "(let-values()" "(let-values()" "(make-struct-type" @@ -11461,16 +11588,16 @@ static const char *startup_source = "(cons" " prop:bulk-binding" "(bulk-binding-class3.1" -"(lambda(b_55 mpi-shifts_3)" -"(let-values(((or-part_129)(bulk-binding-provides b_55)))" -"(if or-part_129" -" or-part_129" +"(lambda(b_56 mpi-shifts_3)" +"(let-values(((or-part_131)(bulk-binding-provides b_56)))" +"(if or-part_131" +" or-part_131" "(let-values(((mod-name_1)" "(1/module-path-index-resolve" -"(apply-syntax-shifts(bulk-binding-mpi b_55) mpi-shifts_3))))" +"(apply-syntax-shifts(bulk-binding-mpi b_56) mpi-shifts_3))))" "(let-values((()" "(begin" -"(if(bulk-binding-bulk-binding-registry b_55)" +"(if(bulk-binding-bulk-binding-registry b_56)" "(void)" "(let-values()" "(error" @@ -11479,7 +11606,7 @@ static const char *startup_source = "(values))))" "(let-values(((table_84)" "(bulk-binding-registry-table" -"(bulk-binding-bulk-binding-registry b_55))))" +"(bulk-binding-bulk-binding-registry b_56))))" "(let-values(((bulk-provide_0)(hash-ref table_84 mod-name_1 #f)))" "(let-values((()" "(begin" @@ -11492,18 +11619,18 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(set-bulk-binding-self! b_55(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_55))))" -"(let-values(((excepts_0)(bulk-binding-excepts b_55)))" -"(let-values(((prefix_0)(bulk-binding-prefix b_55)))" +"(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_130) prefix_0))" -"(if or-part_130" -" or-part_130" +"(if(let-values(((or-part_132) prefix_0))" +"(if or-part_132" +" or-part_132" "(positive?(hash-count excepts_0))))" "(let-values()" "(bulk-provides-add-prefix-remove-exceptions" @@ -11512,21 +11639,21 @@ static const char *startup_source = " excepts_0))" "(let-values() provides_0))))" "(begin" -"(set-bulk-binding-provides! b_55 adjusted-provides_0)" +"(set-bulk-binding-provides! b_56 adjusted-provides_0)" " adjusted-provides_0))))))))))))))" -"(lambda(b_56 binding_7 sym_1)" +"(lambda(b_57 binding_7 sym_1)" "(let-values(((binding27_0) binding_7)" "((temp28_2)" -"(if(bulk-binding-prefix b_56)" +"(if(bulk-binding-prefix b_57)" "(string->symbol" "(substring" "(symbol->string sym_1)" -"(string-length(symbol->string(bulk-binding-prefix b_56)))))" +"(string-length(symbol->string(bulk-binding-prefix b_57)))))" " sym_1))" -"((temp29_0)(bulk-binding-self b_56))" -"((temp30_0)(bulk-binding-mpi b_56))" -"((temp31_0)(bulk-binding-provide-phase-level b_56))" -"((temp32_0)(bulk-binding-phase-shift b_56)))" +"((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" @@ -11540,19 +11667,19 @@ static const char *startup_source = " #f" " 'bulk-binding)))))" "(values" -" struct:_29" -" make-_29" -" ?_29" -"(make-struct-field-accessor -ref_29 0 'provides)" -"(make-struct-field-accessor -ref_29 1 'prefix)" -"(make-struct-field-accessor -ref_29 2 'excepts)" -"(make-struct-field-accessor -ref_29 3 'self)" -"(make-struct-field-accessor -ref_29 4 'mpi)" -"(make-struct-field-accessor -ref_29 5 'provide-phase-level)" -"(make-struct-field-accessor -ref_29 6 'phase-shift)" -"(make-struct-field-accessor -ref_29 7 'bulk-binding-registry)" -"(make-struct-field-mutator -set!_29 0 'provides)" -"(make-struct-field-mutator -set!_29 3 'self))))" +" struct:_30" +" make-_30" +" ?_30" +"(make-struct-field-accessor -ref_30 0 'provides)" +"(make-struct-field-accessor -ref_30 1 'prefix)" +"(make-struct-field-accessor -ref_30 2 'excepts)" +"(make-struct-field-accessor -ref_30 3 'self)" +"(make-struct-field-accessor -ref_30 4 'mpi)" +"(make-struct-field-accessor -ref_30 5 'provide-phase-level)" +"(make-struct-field-accessor -ref_30 6 'phase-shift)" +"(make-struct-field-accessor -ref_30 7 'bulk-binding-registry)" +"(make-struct-field-mutator -set!_30 0 'provides)" +"(make-struct-field-mutator -set!_30 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)" @@ -11613,7 +11740,7 @@ static const char *startup_source = "(make-struct-field-accessor -ref_5 1 'provides))))" "(define-values" "(struct:bulk-binding-registry bulk-binding-registry16.1 bulk-binding-registry? bulk-binding-registry-table)" -"(let-values(((struct:_30 make-_30 ?_30 -ref_30 -set!_30)" +"(let-values(((struct:_31 make-_31 ?_31 -ref_31 -set!_31)" "(let-values()" "(let-values()" "(make-struct-type" @@ -11628,7 +11755,7 @@ static const char *startup_source = " '(0)" " #f" " 'bulk-binding-registry)))))" -"(values struct:_30 make-_30 ?_30(make-struct-field-accessor -ref_30 0 'table))))" +"(values struct:_31 make-_31 ?_31(make-struct-field-accessor -ref_31 0 'table))))" "(define-values(make-bulk-binding-registry)(lambda()(begin(bulk-binding-registry16.1(make-hasheq)))))" "(define-values" "(register-bulk-provide!)" @@ -11651,7 +11778,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:_31 make-_31 ?_31 -ref_31 -set!_31)" +"(let-values(((struct:_32 make-_32 ?_32 -ref_32 -set!_32)" "(let-values()" "(let-values()" "(make-struct-type" @@ -11667,13 +11794,13 @@ static const char *startup_source = " #f" " 'root-expand-context/outer)))))" "(values" -" struct:_31" -" make-_31" -" ?_31" -"(make-struct-field-accessor -ref_31 0 'inner)" -"(make-struct-field-accessor -ref_31 1 'post-expansion-scope)" -"(make-struct-field-accessor -ref_31 2 'use-site-scopes)" -"(make-struct-field-accessor -ref_31 3 'frame-id))))" +" struct:_32" +" make-_32" +" ?_32" +"(make-struct-field-accessor -ref_32 0 'inner)" +"(make-struct-field-accessor -ref_32 1 'post-expansion-scope)" +"(make-struct-field-accessor -ref_32 2 'use-site-scopes)" +"(make-struct-field-accessor -ref_32 3 'frame-id))))" "(define-values" "(struct:root-expand-context/inner" " root-expand-context/inner2.1" @@ -11790,8 +11917,8 @@ static const char *startup_source = " module-scopes_1" " post-expansion-scope_1" "(new-scope 'module)" -"(let-values(((or-part_131) all-scopes-stx_1))" -"(if or-part_131 or-part_131(add-scopes empty-syntax module-scopes_1)))" +"(let-values(((or-part_133) all-scopes-stx_1))" +"(if or-part_133 or-part_133(add-scopes empty-syntax module-scopes_1)))" "(box null)" "(make-hasheqv)" " (string->uninterned-symbol \"root-frame\")" @@ -11819,14 +11946,14 @@ static const char *startup_source = "(begin" " 'for-loop" "(if i_79" -"(let-values(((phase_22 ht_65)(hash-iterate-key+value ht_64 i_79)))" +"(let-values(((phase_24 ht_65)(hash-iterate-key+value ht_64 i_79)))" "(let-values(((table_92)" "(let-values(((table_93) table_91))" "(let-values(((table_94)" "(let-values()" "(let-values(((key_37 val_25)" "(let-values()" -"(values phase_22 ht_65))))" +"(values phase_24 ht_65))))" "(hash-set table_93 key_37 val_25)))))" "(values table_94)))))" "(if(not #f)(for-loop_78 table_92(hash-iterate-next ht_64 i_79)) table_92)))" @@ -11840,17 +11967,17 @@ static const char *startup_source = "(root-expand-context-decode-for-module)" "(lambda(vec-s_0 self_3)" "(begin" -"(let-values(((vec_24)(if(syntax?$1 vec-s_0)(syntax-e$1 vec-s_0) #f)))" +"(let-values(((vec_28)(if(syntax?$1 vec-s_0)(syntax-e$1 vec-s_0) #f)))" "(begin" -"(if(if(vector? vec_24)" -"(if(=(vector-length vec_24) 7)" -"(if(syntax?$1(vector-ref vec_24 0))" -"(if(syntax-with-one-scope?(vector-ref vec_24 1))" -"(if(syntax?$1(vector-ref vec_24 2))" -"(if(syntax?$1(vector-ref vec_24 3))" -"(if(defined-syms-hash?(syntax-e$1(vector-ref vec_24 4)))" -"(if(symbol?(syntax-e$1(vector-ref vec_24 5)))" -"(exact-nonnegative-integer?(syntax-e$1(vector-ref vec_24 6)))" +"(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)))" " #f)" " #f)" " #f)" @@ -11863,14 +11990,14 @@ 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_24 0))" -"(extract-scope(vector-ref vec_24 1))" +"(extract-scope-list(vector-ref vec_28 0))" +"(extract-scope(vector-ref vec_28 1))" "(new-scope 'module)" -"(vector-ref vec_24 2)" -"(box(extract-scope-list(vector-ref vec_24 3)))" -"(unpack-defined-syms(vector-ref vec_24 4))" -"(syntax-e$1(vector-ref vec_24 5))" -"(box(syntax-e$1(vector-ref vec_24 6)))" +"(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)))" "(generate-lift-key)))))))" "(define-values" "(defined-syms-hash?)" @@ -11880,17 +12007,17 @@ static const char *startup_source = "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-in-hash ht_66)))" "((letrec-values(((for-loop_8)" -"(lambda(result_54 i_80)" +"(lambda(result_55 i_80)" "(begin" " 'for-loop" "(if i_80" -"(let-values(((phase_23 ht-s_0)(hash-iterate-key+value ht_66 i_80)))" -"(let-values(((result_55)" -"(let-values()" +"(let-values(((phase_25 ht-s_0)(hash-iterate-key+value ht_66 i_80)))" "(let-values(((result_56)" "(let-values()" +"(let-values(((result_57)" "(let-values()" -"(if(phase? phase_23)" +"(let-values()" +"(if(phase? phase_25)" "(if(hash?(syntax-e$1 ht-s_0))" "(let-values(((ht_67)(syntax-e$1 ht-s_0)))" "(begin" @@ -11899,7 +12026,7 @@ static const char *startup_source = "(void)" "(let-values()(check-in-hash ht_67)))" "((letrec-values(((for-loop_79)" -"(lambda(result_57 i_81)" +"(lambda(result_58 i_81)" "(begin" " 'for-loop" "(if i_81" @@ -11908,10 +12035,10 @@ static const char *startup_source = "(hash-iterate-key+value" " ht_67" " i_81)))" -"(let-values(((result_58)" -"(let-values()" "(let-values(((result_59)" "(let-values()" +"(let-values(((result_60)" +"(let-values()" "(let-values()" "(if(symbol?" " sym_18)" @@ -11919,32 +12046,32 @@ static const char *startup_source = " id_8)" " #f)))))" "(values" -" result_59)))))" +" result_60)))))" "(if(if(not" -"((lambda x_36" +"((lambda x_38" "(not" -" result_58))" +" result_59))" " sym_18" " id_8))" "(not #f)" " #f)" "(for-loop_79" -" result_58" +" result_59" "(hash-iterate-next" " ht_67" " i_81))" -" result_58)))" -" result_57)))))" +" result_59)))" +" result_58)))))" " for-loop_79)" " #t" "(hash-iterate-first ht_67))))" " #f)" " #f)))))" -"(values result_56)))))" -"(if(if(not((lambda x_37(not result_55)) phase_23 ht-s_0))(not #f) #f)" -"(for-loop_8 result_55(hash-iterate-next ht_66 i_80))" -" result_55)))" -" result_54)))))" +"(values result_57)))))" +"(if(if(not((lambda x_39(not result_56)) phase_25 ht-s_0))(not #f) #f)" +"(for-loop_8 result_56(hash-iterate-next ht_66 i_80))" +" result_56)))" +" result_55)))))" " for-loop_8)" " #t" "(hash-iterate-first ht_66)))))))" @@ -11956,7 +12083,7 @@ 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_154)(syntax-scope-set stx_11 0)))(generalize-scope(set-first s_154))))))" +"(lambda(stx_11)(begin(let-values(((s_155)(syntax-scope-set stx_11 0)))(generalize-scope(set-first s_155))))))" "(define-values" "(unpack-defined-syms)" "(lambda(v_91)" @@ -11970,7 +12097,7 @@ static const char *startup_source = "(begin" " 'for-loop" "(if i_82" -"(let-values(((phase_24 ht-s_1)(hash-iterate-key+value ht_68 i_82)))" +"(let-values(((phase_26 ht-s_1)(hash-iterate-key+value ht_68 i_82)))" "(let-values(((table_96)" "(let-values(((table_97) table_95))" "(let-values(((table_98)" @@ -11978,7 +12105,7 @@ static const char *startup_source = "(let-values(((key_38 val_17)" "(let-values()" "(values" -" phase_24" +" phase_26" "(hash-copy" "(let-values(((ht_69)" "(syntax-e$1" @@ -12201,7 +12328,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:_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" @@ -12217,11 +12344,11 @@ static const char *startup_source = " #f" " 'definitions)))))" "(values" -" struct:_32" -" make-_32" -" ?_32" -"(make-struct-field-accessor -ref_32 0 'variables)" -"(make-struct-field-accessor -ref_32 1 'transformers))))" +" struct:_33" +" make-_33" +" ?_33" +"(make-struct-field-accessor -ref_33 0 'variables)" +"(make-struct-field-accessor -ref_33 1 'transformers))))" "(define-values(make-namespace)(lambda()(begin(let-values()(new-namespace9.1 #f #f #f #f #f #f)))))" "(define-values" "(new-namespace9.1)" @@ -12236,14 +12363,14 @@ static const char *startup_source = "(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)))" "(let-values()" -"(let-values(((phase_25)(if share-from-ns_0(namespace-phase share-from-ns_0) 0)))" +"(let-values(((phase_27)(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_25" -" phase_25" +" phase_27" +" phase_27" "(make-small-hasheqv)" "(make-small-hasheqv)" "(if share-from-ns_0(namespace-module-registry$1 share-from-ns_0)(make-module-registry))" @@ -12252,8 +12379,8 @@ static const char *startup_source = "(make-bulk-binding-registry))" "(make-small-hasheq)" "(if share-from-ns_0" -"(let-values(((or-part_132)(namespace-root-namespace share-from-ns_0)))" -"(if or-part_132 or-part_132 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))" " #f)" " #f" "(make-inspector(current-code-inspector))" @@ -12263,7 +12390,7 @@ 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_25 ns_1))" +"(let-values()(small-hash-set!(namespace-phase-to-namespace ns_1) phase_27 ns_1))" "(void))" " ns_1))))))))))" "(define-values" @@ -12287,21 +12414,21 @@ static const char *startup_source = "(namespace->module)" "(lambda(ns_5 name_17)" "(begin" -"(let-values(((or-part_133)(small-hash-ref(namespace-submodule-declarations ns_5) name_17 #f)))" -"(if or-part_133" -" or-part_133" +"(let-values(((or-part_135)(small-hash-ref(namespace-submodule-declarations ns_5) name_17 #f)))" +"(if or-part_135" +" or-part_135" "(hash-ref(module-registry-declarations(namespace-module-registry$1 ns_5)) name_17 #f))))))" "(define-values" "(namespace->namespace-at-phase)" -"(lambda(ns_6 phase_26)" +"(lambda(ns_6 phase_28)" "(begin" -"(let-values(((or-part_134)(small-hash-ref(namespace-phase-to-namespace ns_6) phase_26 #f)))" -"(if or-part_134" -" or-part_134" +"(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(((p-ns_0)" "(let-values(((the-struct_33) ns_6))" "(if(1/namespace? the-struct_33)" -"(let-values(((phase23_0) phase_26))" +"(let-values(((phase23_0) phase_28))" "(namespace1.1" "(namespace-mpi the-struct_33)" "(namespace-source-name the-struct_33)" @@ -12319,28 +12446,28 @@ static const char *startup_source = "(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_26 p-ns_0) p-ns_0)))))))" +"(begin(small-hash-set!(namespace-phase-to-namespace ns_6) phase_28 p-ns_0) p-ns_0)))))))" "(define-values" "(namespace->name)" "(lambda(ns_7)" "(begin" "(let-values(((n_20)(namespace-source-name ns_7)))" -"(let-values(((s_155)" +"(let-values(((s_156)" "(if(not n_20)" "(let-values() 'top-level)" "(if(symbol? n_20)" " (let-values () (format \"'~s\" n_20))" " (let-values () (string-append \"\\\"\" (path->string n_20) \"\\\"\"))))))" "(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_155 \" \" (substring (format \"~s\" (cdr r_27)) 1)) s_155)))))))" +" (if (pair? r_27) (string-append \"(submod \" s_156 \" \" (substring (format \"~s\" (cdr r_27)) 1)) s_156)))))))" "(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_135) d_8))" -"(if or-part_135" -" or-part_135" +"(let-values(((or-part_137) d_8))" +"(if or-part_137" +" or-part_137" "(let-values()" "(let-values(((p-ns_1)" "(namespace->namespace-at-phase ns_8(phase+(namespace-0-phase ns_8) phase-level_1))))" @@ -12663,7 +12790,7 @@ static const char *startup_source = " 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:_27 make-_27 ?_27 -ref_27 -set!_27)" +"(let-values(((struct:_28 make-_28 ?_28 -ref_28 -set!_28)" "(let-values()" "(let-values()" "(make-struct-type" @@ -12675,7 +12802,7 @@ static const char *startup_source = "(list" "(cons" " prop:exn:srclocs" -"(lambda(e_17)(filter values(map2 syntax-srcloc(1/exn:fail:syntax-exprs e_17))))))" +"(lambda(e_18)(filter values(map2 syntax-srcloc(1/exn:fail:syntax-exprs e_18))))))" " #f" " #f" " '(0)" @@ -12686,10 +12813,10 @@ static const char *startup_source = " (let-values () (raise-argument-error 'exn:fail:syntax \"(listof syntax?)\" exprs_0)))" "(values str_1 cm_0 exprs_0)))" " 'exn:fail:syntax)))))" -"(values struct:_27 make-_27 ?_27(make-struct-field-accessor -ref_27 0 'exprs))))" +"(values struct:_28 make-_28 ?_28(make-struct-field-accessor -ref_28 0 'exprs))))" "(define-values" "(1/struct:exn:fail:syntax:unbound make-exn:fail:syntax:unbound$1 1/exn:fail:syntax:unbound?)" -"(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" @@ -12704,7 +12831,7 @@ static const char *startup_source = " '()" " #f" " 'exn:fail:syntax:unbound)))))" -"(values struct:_33 make-_33 ?_33)))" +"(values struct:_34 make-_34 ?_34)))" "(define-values" "(raise-syntax-error$1)" "(let-values(((raise-syntax-error11_0)" @@ -12808,7 +12935,7 @@ static const char *startup_source = "(let-values((()" "(begin" "(if((lambda(x_12)" -"(let-values(((or-part_136)(not x_12)))(if or-part_136 or-part_136(symbol? x_12))))" +"(let-values(((or-part_138)(not x_12)))(if or-part_138 or-part_138(symbol? x_12))))" " given-name_12)" "(void)" " (let-values () (raise-argument-error who_9 \"(or/c symbol? #f)\" given-name_12)))" @@ -12834,32 +12961,32 @@ static const char *startup_source = "(let-values(((name_27)" "(format" " \"~a\"" -"(let-values(((or-part_137) given-name_12))" -"(if or-part_137" -" or-part_137" -"(let-values(((or-part_138)(extract-form-name expr_8)))" -"(if or-part_138 or-part_138 '?)))))))" +"(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(((at-message_0)" -"(let-values(((or-part_132)" +"(let-values(((or-part_134)" "(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_132 or-part_132 \"\"))))" +" (if or-part_134 or-part_134 \"\"))))" "(let-values(((in-message_0)" -"(let-values(((or-part_139)" +"(let-values(((or-part_141)" "(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_139 or-part_139 \"\"))))" +" (if or-part_141 or-part_141 \"\"))))" "(let-values(((src-loc-str_0)" "(let-values(((or-part_54)" "(if(error-print-source-location)" -"(let-values(((or-part_140)(extract-source-location sub-expr_6)))" -"(if or-part_140 or-part_140(extract-source-location expr_8)))" +"(let-values(((or-part_97)(extract-source-location sub-expr_6)))" +"(if or-part_97 or-part_97(extract-source-location expr_8)))" " #f)))" " (if or-part_54 or-part_54 \"\"))))" "(raise" @@ -12868,33 +12995,33 @@ static const char *startup_source = "(current-continuation-marks)" "(map2" " syntax-taint$1" -"(if(let-values(((or-part_141) sub-expr_6))(if or-part_141 or-part_141 expr_8))" +"(if(let-values(((or-part_142) sub-expr_6))(if or-part_142 or-part_142 expr_8))" "(cons" "(datum->syntax$1" " #f" -"(let-values(((or-part_142) sub-expr_6))(if or-part_142 or-part_142 expr_8)))" +"(let-values(((or-part_98) sub-expr_6))(if or-part_98 or-part_98 expr_8)))" " extra-sources_4)" " extra-sources_4)))))))))))))))" "(define-values" "(extract-form-name)" -"(lambda(s_156)" +"(lambda(s_157)" "(begin" -"(if(syntax?$1 s_156)" +"(if(syntax?$1 s_157)" "(let-values()" -"(let-values(((e_18)(syntax-e$1 s_156)))" -"(if(symbol? e_18)" -"(let-values() e_18)" -"(if(if(pair? e_18)(identifier?(car e_18)) #f)" -"(let-values()(syntax-e$1(car e_18)))" +"(let-values(((e_19)(syntax-e$1 s_157)))" +"(if(symbol? e_19)" +"(let-values() e_19)" +"(if(if(pair? e_19)(identifier?(car e_19)) #f)" +"(let-values()(syntax-e$1(car e_19)))" "(let-values() #f)))))" "(let-values() #f)))))" "(define-values" "(extract-source-location)" -"(lambda(s_157)" +"(lambda(s_158)" "(begin" -"(if(syntax?$1 s_157)" -"(if(syntax-srcloc s_157)" -" (let-values (((str_2) (srcloc->string (syntax-srcloc s_157)))) (if str_2 (string-append str_2 \": \") #f))" +"(if(syntax?$1 s_158)" +"(if(syntax-srcloc s_158)" +" (let-values (((str_2) (srcloc->string (syntax-srcloc s_158)))) (if str_2 (string-append str_2 \": \") #f))" " #f)" " #f))))" "(define-values" @@ -12983,7 +13110,7 @@ static const char *startup_source = " module-linklet-info-inspector" " module-linklet-info-extra-inspector" " module-linklet-info-extra-inspectorsss)" -"(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" @@ -12999,15 +13126,15 @@ static const char *startup_source = " #f" " 'module-linklet-info)))))" "(values" -" struct:_34" -" make-_34" -" ?_34" -"(make-struct-field-accessor -ref_34 0 'linklet-or-instance)" -"(make-struct-field-accessor -ref_34 1 'module-uses)" -"(make-struct-field-accessor -ref_34 2 'self)" -"(make-struct-field-accessor -ref_34 3 'inspector)" -"(make-struct-field-accessor -ref_34 4 'extra-inspector)" -"(make-struct-field-accessor -ref_34 5 'extra-inspectorsss))))" +" struct:_35" +" make-_35" +" ?_35" +"(make-struct-field-accessor -ref_35 0 'linklet-or-instance)" +"(make-struct-field-accessor -ref_35 1 'module-uses)" +"(make-struct-field-accessor -ref_35 2 'self)" +"(make-struct-field-accessor -ref_35 3 'inspector)" +"(make-struct-field-accessor -ref_35 4 'extra-inspector)" +"(make-struct-field-accessor -ref_35 5 'extra-inspectorsss))))" "(define-values" "(make-module39.1)" "(lambda(cross-phase-persistent?16_0" @@ -13113,7 +13240,7 @@ static const char *startup_source = " set-module-instance-shifted-requires!" " set-module-instance-made-available?!" " set-module-instance-attached?!)" -"(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" @@ -13129,19 +13256,19 @@ static const char *startup_source = " #f" " 'module-instance)))))" "(values" -" struct:_35" -" make-_35" -" ?_35" -"(make-struct-field-accessor -ref_35 0 'namespace)" -"(make-struct-field-accessor -ref_35 1 'module)" -"(make-struct-field-accessor -ref_35 2 'shifted-requires)" -"(make-struct-field-accessor -ref_35 3 'phase-level-to-state)" -"(make-struct-field-accessor -ref_35 4 'made-available?)" -"(make-struct-field-accessor -ref_35 5 'attached?)" -"(make-struct-field-accessor -ref_35 6 'data-box)" -"(make-struct-field-mutator -set!_35 2 'shifted-requires)" -"(make-struct-field-mutator -set!_35 4 'made-available?)" -"(make-struct-field-mutator -set!_35 5 'attached?))))" +" struct:_36" +" make-_36" +" ?_36" +"(make-struct-field-accessor -ref_36 0 'namespace)" +"(make-struct-field-accessor -ref_36 1 'module)" +"(make-struct-field-accessor -ref_36 2 'shifted-requires)" +"(make-struct-field-accessor -ref_36 3 'phase-level-to-state)" +"(make-struct-field-accessor -ref_36 4 'made-available?)" +"(make-struct-field-accessor -ref_36 5 'attached?)" +"(make-struct-field-accessor -ref_36 6 'data-box)" +"(make-struct-field-mutator -set!_36 2 'shifted-requires)" +"(make-struct-field-mutator -set!_36 4 'made-available?)" +"(make-struct-field-mutator -set!_36 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)))))" @@ -13155,7 +13282,7 @@ 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_27) 0))" +"(let-values(((phase_29) 0))" "(let-values(((name_28)(1/module-path-index-resolve name-mpi_0)))" "(let-values(((m-ns_1)" "(let-values(((the-struct_36)" @@ -13166,8 +13293,8 @@ static const char *startup_source = "(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_27)" -"((0-phase155_0) phase_27)" +"((phase154_0) phase_29)" +"((0-phase155_0) phase_29)" "((submodule-declarations156_0)" "(if for-submodule?_0" "(namespace-submodule-declarations ns_20)" @@ -13194,11 +13321,11 @@ static const char *startup_source = " (raise-argument-error 'struct-copy \"namespace?\" the-struct_36)))))" "(let-values((()" "(begin" -"(small-hash-set!(namespace-phase-to-namespace m-ns_1) phase_27 m-ns_1)" +"(small-hash-set!(namespace-phase-to-namespace m-ns_1) phase_29 m-ns_1)" "(values))))" "(let-values(((at-phase_0)(make-hasheq)))" "(begin" -"(hash-set!(namespace-module-instances m-ns_1) phase_27 at-phase_0)" +"(hash-set!(namespace-module-instances m-ns_1) phase_29 at-phase_0)" "(hash-set! at-phase_0 name_28(make-module-instance m-ns_1 #f))" " m-ns_1))))))))))))))" "(define-values" @@ -13257,24 +13384,24 @@ 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_28)(namespace-phase ns_21)))" -"(let-values(((visit?_0)(eq? 'started(small-hash-ref states_0(add1 phase_28) #f))))" -"(let-values(((run?_0)(eq? 'started(small-hash-ref states_0 phase_28 #f))))" -"(let-values(((at-phase_1)(hash-ref(namespace-module-instances ns_21) phase_28)))" +"(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)))" "(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_28))" +"((phase168_0) phase_30))" "(namespace-module-visit!104.1 #f #f ns166_0 temp167_0 phase168_0)))" "(void))" "(if run?_0" "(let-values()" "(let-values(((ns169_0) ns_21)" "((temp170_0)(namespace-mpi m-ns_2))" -"((phase171_0) phase_28))" +"((phase171_0) phase_30))" "(namespace-module-instantiate!96.1" " #f" " #f" @@ -13551,10 +13678,10 @@ static const char *startup_source = "(if mi_4(module-instance-namespace mi_4) #f))))))))))))" "(define-values" "(namespace-record-module-instance-attached!)" -"(lambda(ns_27 mod-name_7 phase_29)" +"(lambda(ns_27 mod-name_7 phase_31)" "(begin" "(let-values(((mi_5)" -"(let-values(((ns196_0) ns_27)((mod-name197_0) mod-name_7)((phase198_0) phase_29))" +"(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))))" "(set-module-instance-attached?! mi_5 #t)))))" "(define-values" @@ -13949,14 +14076,14 @@ static const char *startup_source = "(let-values()" "(begin" "(let-values()" -"(let-values(((phase_30)" +"(let-values(((phase_32)" "(phase+" " phase-level_13" " phase-shift_3)))" "(if(if(not" " skip-run?_1)" "(eqv?" -" phase_30" +" phase_32" " run-phase_2)" " #f)" "(let-values()" @@ -13987,7 +14114,7 @@ static const char *startup_source = "(let-values(((p-ns_2)" "(namespace->namespace-at-phase" " m-ns_5" -" phase_30)))" +" phase_32)))" "(let-values(((insp_5)" "(module-inspector" " m_9)))" @@ -14033,7 +14160,7 @@ static const char *startup_source = "(hash-update!" "(namespace-available-module-instances" " ns_33)" -" phase_30" +" phase_32" "(lambda(l_47)" "(cons" " mi_7" @@ -14303,7 +14430,7 @@ static const char *startup_source = "(begin" " 'for-loop" "(if i_86" -"(let-values(((phase_31 at-phase_6)" +"(let-values(((phase_33 at-phase_6)" "(hash-iterate-key+value ht_72 i_86)))" "(let-values(((table_104)" "(let-values(((table_105) table_103))" @@ -14312,7 +14439,7 @@ static const char *startup_source = "(let-values(((key_40 val_32)" "(let-values()" "(values" -" phase_31" +" phase_33" "(let-values(((ht_73)" " at-phase_6))" "(begin" @@ -14383,9 +14510,9 @@ static const char *startup_source = "(begin(set-module-access! m_10 access_0) access_0)))))" "(define-values" "(binding->module-instance)" -"(lambda(b_41 ns_42 phase_32 id_11)" +"(lambda(b_41 ns_42 phase_34 id_11)" "(begin" -"(let-values(((at-phase_7)(phase- phase_32(module-binding-phase b_41))))" +"(let-values(((at-phase_7)(phase- phase_34(module-binding-phase b_41))))" "(let-values(((mi_11)" "(let-values(((ns1_0) ns_42)" "((temp2_0)(1/module-path-index-resolve(module-binding-module b_41)))" @@ -14423,7 +14550,7 @@ static const char *startup_source = " \" definition phase: ~a\\n\"" " \" for identifier: ~s\")" "(module-binding-module b_41)" -" phase_32" +" phase_34" "(module-binding-phase b_41)" " id_11)))" " mi_11))))))" @@ -14485,32 +14612,32 @@ static const char *startup_source = "(let-values() #f))))))" "(define-values" "(resolve+shift/extra-inspector)" -"(lambda(id_13 phase_33 ns_43)" +"(lambda(id_13 phase_35 ns_43)" "(begin" "((letrec-values(((loop_76)" "(lambda(id_14 in-s_1)" "(begin" " 'loop" -"(let-values(((b_57)" -"(let-values(((id1_2) id_14)((phase2_0) phase_33)((temp3_0) #t))" +"(let-values(((b_58)" +"(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_22)(binding-free=id b_57)))" -"(if c1_22" +"(let-values(((c1_24)(binding-free=id b_58)))" +"(if c1_24" "((lambda(next-id_0)" "(let-values((()" "(begin" -"(if(if(module-binding? b_57)" +"(if(if(module-binding? b_58)" "(not" -"(top-level-module-path-index?(module-binding-module b_57)))" +"(top-level-module-path-index?(module-binding-module b_58)))" " #f)" "(let-values()" "(let-values(((mi_14)" "(binding->module-instance" -" b_57" +" b_58" " ns_43" -" phase_33" +" phase_35" " id_14)))" -" (check-access b_57 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)" @@ -14519,7 +14646,7 @@ static const char *startup_source = "(let-values(((or-part_77) in-s_1))" "(if or-part_77 or-part_77 id_14)))))" "(if(not next-b_0)" -"(let-values() b_57)" +"(let-values() b_58)" "(if(if(module-binding? next-b_0)" "(if(not(module-binding-extra-inspector next-b_0))" "(syntax-inspector id_14)" @@ -14552,8 +14679,8 @@ static const char *startup_source = " #f" " next-b4_0)))" "(let-values() next-b_0))))))" -" c1_22)" -"(let-values() b_57))))))))" +" c1_24)" +"(let-values() b_58))))))))" " loop_76)" " id_13" " #f))))" @@ -14609,16 +14736,16 @@ static const char *startup_source = "(if(integer? v_26)" "(let-values()" "(lambda(t_34)" -"(let-values(((p_30)(ref_0 t_34 v_26)))" -"(if(if(procedure? p_30)(procedure-arity-includes? p_30 1) #f)" -" p_30" +"(let-values(((p_31)(ref_0 t_34 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_13) 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:_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" @@ -14633,7 +14760,7 @@ static const char *startup_source = " '(0)" " #f" " 'set!-transformer)))))" -"(values struct:_36 make-_36 ?_36(make-struct-field-accessor -ref_36 0 'proc)))))" +"(values struct:_37 make-_37 ?_37(make-struct-field-accessor -ref_37 0 'proc)))))" "(lambda(proc_3)" "(begin" " 'make-set!-transformer" @@ -14648,7 +14775,7 @@ static const char *startup_source = "(begin" " 'set!-transformer-procedure" "(let-values(((v_94)((set!-transformer-value t_37) t_37)))" -"(if(procedure-arity-includes? v_94 1) v_94(lambda(s_158)(v_94 t_37 s_158)))))))" +"(if(procedure-arity-includes? v_94 1) v_94(lambda(s_159)(v_94 t_37 s_159)))))))" "(define-values(empty-env) '#hasheq())" "(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))" @@ -14658,7 +14785,7 @@ static const char *startup_source = "(begin(let-values(((or-part_10)(eq? t_13 variable)))(if or-part_10 or-part_10(local-variable? t_13))))))" "(define-values" "(struct:local-variable local-variable1.1 local-variable? local-variable-id)" -"(let-values(((struct:_28 make-_28 ?_28 -ref_28 -set!_28)" +"(let-values(((struct:_29 make-_29 ?_29 -ref_29 -set!_29)" "(let-values()" "(let-values()" "(make-struct-type" @@ -14673,7 +14800,7 @@ static const char *startup_source = " '(0)" " #f" " 'local-variable)))))" -"(values struct:_28 make-_28 ?_28(make-struct-field-accessor -ref_28 0 'id))))" +"(values struct:_29 make-_29 ?_29(make-struct-field-accessor -ref_29 0 'id))))" "(define-values" "(substitute-variable6.1)" "(lambda(no-stops?2_0 id4_0 t5_0)" @@ -14705,10 +14832,10 @@ static const char *startup_source = "(begin" "(if(1/set!-transformer? t_40)" "(let-values()(1/set!-transformer-procedure t_40))" -"(if(1/rename-transformer? t_40)(let-values()(lambda(s_159) s_159))(let-values() t_40))))))" +"(if(1/rename-transformer? t_40)(let-values()(lambda(s_160) s_160))(let-values() t_40))))))" "(define-values" "(struct:core-form core-form9.1 core-form? core-form-expander core-form-name)" -"(let-values(((struct:_22 make-_22 ?_22 -ref_22 -set!_22)" +"(let-values(((struct:_23 make-_23 ?_23 -ref_23 -set!_23)" "(let-values()" "(let-values()" "(make-struct-type" @@ -14724,11 +14851,11 @@ static const char *startup_source = " #f" " 'core-form)))))" "(values" -" struct:_22" -" make-_22" -" ?_22" -"(make-struct-field-accessor -ref_22 0 'expander)" -"(make-struct-field-accessor -ref_22 1 'name))))" +" struct:_23" +" make-_23" +" ?_23" +"(make-struct-field-accessor -ref_23 0 'expander)" +"(make-struct-field-accessor -ref_23 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)" @@ -14736,13 +14863,13 @@ static const char *startup_source = " 'add-binding!17" "(let-values(((id_16) id14_0))" "(let-values(((binding_8) binding15_0))" -"(let-values(((phase_34) phase16_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()" "(begin" "(check-id-taint id_16 in-s_2)" -"(let-values(((temp55_1)(syntax-scope-set id_16 phase_34))" +"(let-values(((temp55_1)(syntax-scope-set id_16 phase_36))" "((temp56_0)(syntax-e$1 id_16))" "((binding57_0) binding_8)" "((just-for-nominal?58_0) just-for-nominal?_2))" @@ -14752,17 +14879,17 @@ static const char *startup_source = "(lambda(in20_0 in22_0 shadow-except21_0 shadow-except23_1 s24_0 binding25_0 phase26_1)" "(begin" " 'add-bulk-binding!27" -"(let-values(((s_160) s24_0))" +"(let-values(((s_161) s24_0))" "(let-values(((binding_9) binding25_0))" -"(let-values(((phase_35) phase26_1))" +"(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_1 shadow-except21_0 #f)))" "(let-values()" "(begin" -"(if(syntax-tainted?$1 s_160)" -" (let-values () (raise-syntax-error$1 #f \"cannot bind from tainted syntax\" in-s_3 s_160))" +"(if(syntax-tainted?$1 s_161)" +" (let-values () (raise-syntax-error$1 #f \"cannot bind from tainted syntax\" in-s_3 s_161))" "(void))" -"(let-values(((temp59_1)(syntax-scope-set s_160 phase_35))" +"(let-values(((temp59_1)(syntax-scope-set s_161 phase_37))" "((binding60_0) binding_9)" "((shadow-except61_0) shadow-except_2))" "(add-bulk-binding-in-scopes!27.1 shadow-except61_0 #t temp59_1 binding60_0))))))))))))" @@ -14772,7 +14899,7 @@ static const char *startup_source = "(begin" " 'add-local-binding!37" "(let-values(((id_17) id34_0))" -"(let-values(((phase_36) phase35_0))" +"(let-values(((phase_38) 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)))" @@ -14782,7 +14909,7 @@ static const char *startup_source = "(let-values(((key_43)" " (string->uninterned-symbol (format \"~a_~a\" (syntax-e$1 id_17) (unbox counter_1)))))" "(begin" -"(let-values(((temp62_0)(syntax-scope-set id_17 phase_36))" +"(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_43)((frame-id66_0) frame-id_5))" @@ -14810,22 +14937,22 @@ static const char *startup_source = " id49_0)" "(begin" " 'binding-lookup50" -"(let-values(((b_58) 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_37) phase48_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()" -"(if(module-binding? b_58)" +"(if(module-binding? b_59)" "(let-values()" -"(let-values(((top-level?_0)(top-level-module-path-index?(module-binding-module b_58))))" +"(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_58 ns_44 phase_37 id_19)" +"(binding->module-instance b_59 ns_44 phase_39 id_19)" " #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)))" @@ -14837,13 +14964,13 @@ static const char *startup_source = "(let-values(((t_41)" "(namespace-get-transformer" " m-ns_7" -"(module-binding-phase b_58)" -"(module-binding-sym b_58)" +"(module-binding-phase b_59)" +"(module-binding-sym b_59)" " variable)))" "(let-values(((protected?_1)" "(if mi_15" "(check-access" -" b_58" +" b_59" " mi_15" " id_19" " in-s_6" @@ -14856,9 +14983,9 @@ static const char *startup_source = " #f)" " #f)))" "(values t_41 primitive?_1 insp_6 protected?_1)))))))))))" -"(if(local-binding? b_58)" +"(if(local-binding? b_59)" "(let-values()" -"(let-values(((t_42)(hash-ref env_1(local-binding-key b_58) missing)))" +"(let-values(((t_42)(hash-ref env_1(local-binding-key b_59) missing)))" "(if(eq? t_42 missing)" "(let-values()" "(values" @@ -14869,7 +14996,7 @@ static const char *startup_source = "(void)" "(let-values()(check-list lst_74)))" "((letrec-values(((for-loop_94)" -"(lambda(result_60 lst_75)" +"(lambda(result_61 lst_75)" "(begin" " 'for-loop" "(if(pair? lst_75)" @@ -14877,27 +15004,27 @@ static const char *startup_source = "(unsafe-car lst_75))" "((rest_34)" "(unsafe-cdr lst_75)))" -"(let-values(((result_61)" -"(let-values()" "(let-values(((result_62)" "(let-values()" +"(let-values(((result_63)" +"(let-values()" "(let-values()" "(hash-ref" "(unbox" " lift-env_0)" "(local-binding-key" -" b_58)" +" b_59)" " #f)))))" "(values" -" result_62)))))" +" result_63)))))" "(if(if(not" -"((lambda x_38 result_61)" +"((lambda x_40 result_62)" " lift-env_0))" "(not #f)" " #f)" -"(for-loop_94 result_61 rest_34)" -" result_61)))" -" result_60)))))" +"(for-loop_94 result_62 rest_34)" +" result_62)))" +" result_61)))))" " for-loop_94)" " #f" " lst_74)))))" @@ -14910,7 +15037,7 @@ static const char *startup_source = " #f" " #f))" "(let-values()(begin(check-taint id_19)(values t_42 #f #f #f))))))" -" (let-values () (error \"internal error: unknown binding for lookup:\" b_58))))))))))))))))" +" (let-values () (error \"internal error: unknown binding for lookup:\" b_59))))))))))))))))" "(define-values" "(check-taint)" "(lambda(id_20)" @@ -14918,10 +15045,10 @@ static const char *startup_source = "(if(syntax-tainted?$1 id_20)" " (let-values () (raise-syntax-error$1 #f \"cannot use identifier tainted by macro transformation\" id_20))" "(void)))))" -"(define-values(cons-ish)(lambda(a_36 b_59)(begin(if(null? b_59) a_36(cons a_36 b_59)))))" +"(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_38 ids_0)" +"(lambda(phase_40 ids_0)" "(begin" "(let-values(((lst_76) ids_0))" "(begin" @@ -14939,7 +15066,7 @@ static const char *startup_source = "(let-values(((sym_21)" "(identifier-binding-symbol$1" " id_21" -" phase_38)))" +" phase_40)))" "(hash-set" " ht_76" " sym_21" @@ -14956,11 +15083,11 @@ static const char *startup_source = "(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_39 given-id_0)" +"(lambda(fs_1 phase_41 given-id_0)" "(begin" "(if(zero?(hash-count fs_1))" " #f" -"(let-values(((lst_78)(hash-ref fs_1(identifier-binding-symbol$1 given-id_0 phase_39) null)))" +"(let-values(((lst_78)(hash-ref fs_1(identifier-binding-symbol$1 given-id_0 phase_41) null)))" "(begin" "(void)" "((letrec-values(((for-loop_96)" @@ -14970,20 +15097,20 @@ static const char *startup_source = "(if(not(null? lst_79))" "(let-values(((id_2)(if(pair? lst_79)(car lst_79) lst_79))" "((rest_36)(if(pair? lst_79)(cdr lst_79) null)))" -"(let-values(((result_63)" -"(let-values()" "(let-values(((result_64)" "(let-values()" +"(let-values(((result_65)" +"(let-values()" "(let-values()" "(free-identifier=?$1" " id_2" " given-id_0" -" phase_39" -" phase_39)))))" -"(values result_64)))))" -"(if(if(not((lambda x_39 result_63) id_2))(not #f) #f)" -"(for-loop_96 result_63 rest_36)" -" result_63)))" +" phase_41" +" phase_41)))))" +"(values result_65)))))" +"(if(if(not((lambda x_41 result_64) id_2))(not #f) #f)" +"(for-loop_96 result_64 rest_36)" +" result_64)))" " result_3)))))" " for-loop_96)" " #f" @@ -15006,7 +15133,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:_31 make-_31 ?_31 -ref_31 -set!_31)" +"(let-values(((struct:_32 make-_32 ?_32 -ref_32 -set!_32)" "(let-values()" "(let-values()" "(make-struct-type" @@ -15022,20 +15149,20 @@ static const char *startup_source = " #f" " 'expand-context/outer)))))" "(values" -" struct:_31" -" make-_31" -" ?_31" -"(make-struct-field-accessor -ref_31 0 'context)" -"(make-struct-field-accessor -ref_31 1 'env)" -"(make-struct-field-accessor -ref_31 2 'post-expansion-scope-action)" -"(make-struct-field-accessor -ref_31 3 'scopes)" -"(make-struct-field-accessor -ref_31 4 'def-ctx-scopes)" -"(make-struct-field-accessor -ref_31 5 'binding-layer)" -"(make-struct-field-accessor -ref_31 6 'reference-records)" -"(make-struct-field-accessor -ref_31 7 'only-immediate?)" -"(make-struct-field-accessor -ref_31 8 'need-eventually-defined)" -"(make-struct-field-accessor -ref_31 9 'current-introduction-scopes)" -"(make-struct-field-accessor -ref_31 10 'name))))" +" struct:_32" +" make-_32" +" ?_32" +"(make-struct-field-accessor -ref_32 0 'context)" +"(make-struct-field-accessor -ref_32 1 'env)" +"(make-struct-field-accessor -ref_32 2 'post-expansion-scope-action)" +"(make-struct-field-accessor -ref_32 3 'scopes)" +"(make-struct-field-accessor -ref_32 4 'def-ctx-scopes)" +"(make-struct-field-accessor -ref_32 5 'binding-layer)" +"(make-struct-field-accessor -ref_32 6 'reference-records)" +"(make-struct-field-accessor -ref_32 7 'only-immediate?)" +"(make-struct-field-accessor -ref_32 8 'need-eventually-defined)" +"(make-struct-field-accessor -ref_32 9 'current-introduction-scopes)" +"(make-struct-field-accessor -ref_32 10 'name))))" "(define-values" "(struct:expand-context/inner" " expand-context/inner2.1" @@ -15058,7 +15185,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:_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" @@ -15074,27 +15201,27 @@ static const char *startup_source = " #f" " 'expand-context/inner)))))" "(values" -" struct:_37" -" make-_37" -" ?_37" -"(make-struct-field-accessor -ref_37 0 'to-parsed?)" -"(make-struct-field-accessor -ref_37 1 'phase)" -"(make-struct-field-accessor -ref_37 2 'namespace)" -"(make-struct-field-accessor -ref_37 3 'just-once?)" -"(make-struct-field-accessor -ref_37 4 'module-begin-k)" -"(make-struct-field-accessor -ref_37 5 'allow-unbound?)" -"(make-struct-field-accessor -ref_37 6 'in-local-expand?)" -"(make-struct-field-accessor -ref_37 7 'stops)" -"(make-struct-field-accessor -ref_37 8 'declared-submodule-names)" -"(make-struct-field-accessor -ref_37 9 'lifts)" -"(make-struct-field-accessor -ref_37 10 'lift-envs)" -"(make-struct-field-accessor -ref_37 11 'module-lifts)" -"(make-struct-field-accessor -ref_37 12 'require-lifts)" -"(make-struct-field-accessor -ref_37 13 'to-module-lifts)" -"(make-struct-field-accessor -ref_37 14 'requires+provides)" -"(make-struct-field-accessor -ref_37 15 'observer)" -"(make-struct-field-accessor -ref_37 16 'for-serializable?)" -"(make-struct-field-accessor -ref_37 17 'should-not-encounter-macros?))))" +" struct:_38" +" make-_38" +" ?_38" +"(make-struct-field-accessor -ref_38 0 'to-parsed?)" +"(make-struct-field-accessor -ref_38 1 'phase)" +"(make-struct-field-accessor -ref_38 2 'namespace)" +"(make-struct-field-accessor -ref_38 3 'just-once?)" +"(make-struct-field-accessor -ref_38 4 'module-begin-k)" +"(make-struct-field-accessor -ref_38 5 'allow-unbound?)" +"(make-struct-field-accessor -ref_38 6 'in-local-expand?)" +"(make-struct-field-accessor -ref_38 7 'stops)" +"(make-struct-field-accessor -ref_38 8 'declared-submodule-names)" +"(make-struct-field-accessor -ref_38 9 'lifts)" +"(make-struct-field-accessor -ref_38 10 'lift-envs)" +"(make-struct-field-accessor -ref_38 11 'module-lifts)" +"(make-struct-field-accessor -ref_38 12 'require-lifts)" +"(make-struct-field-accessor -ref_38 13 'to-module-lifts)" +"(make-struct-field-accessor -ref_38 14 'requires+provides)" +"(make-struct-field-accessor -ref_38 15 'observer)" +"(make-struct-field-accessor -ref_38 16 'for-serializable?)" +"(make-struct-field-accessor -ref_38 17 'should-not-encounter-macros?))))" "(define-values" "(expand-context/make)" "(lambda(self-mpi_2" @@ -15109,7 +15236,7 @@ static const char *startup_source = " lift-key_1" " to-parsed?_0" " context_0" -" phase_40" +" phase_42" " namespace_0" " env_2" " post-expansion-scope-action_0" @@ -15147,7 +15274,7 @@ static const char *startup_source = " counter_2" " lift-key_1" " to-parsed?_0" -" phase_40" +" phase_42" " namespace_0" " just-once?_0" " module-begin-k_0" @@ -15572,14 +15699,14 @@ static const char *startup_source = " (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_43)))))))" "(define-values" "(to-syntax-list.1)" -"(lambda(s_161)" +"(lambda(s_162)" "(begin" " 'to-syntax-list" -"(if(list? s_161)" -"(let-values() s_161)" -"(if(pair? s_161)" -"(let-values()(let-values(((r_28)(to-syntax-list.1(cdr s_161))))(if r_28(cons(car s_161) r_28) #f)))" -"(if(syntax?$1 s_161)(let-values()(to-syntax-list.1(syntax-e$1 s_161)))(let-values() #f)))))))" +"(if(list? s_162)" +"(let-values() s_162)" +"(if(pair? s_162)" +"(let-values()(let-values(((r_28)(to-syntax-list.1(cdr s_162))))(if r_28(cons(car s_162) r_28) #f)))" +"(if(syntax?$1 s_162)(let-values()(to-syntax-list.1(syntax-e$1 s_162)))(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))" @@ -15588,23 +15715,23 @@ static const char *startup_source = "(define-values(id-cache-1)(make-hasheq))" "(define-values" "(core-id)" -"(lambda(sym_11 phase_33)" +"(lambda(sym_11 phase_35)" "(begin" -"(if(eqv? phase_33 0)" +"(if(eqv? phase_35 0)" "(let-values()" "(let-values(((or-part_6)(hash-ref id-cache-0 sym_11 #f)))" "(if or-part_6" " or-part_6" -"(let-values(((s_162)(datum->syntax$1 core-stx sym_11)))" -"(begin(hash-set! id-cache-0 sym_11 s_162) s_162)))))" -"(if(eq? phase_33 1)" +"(let-values(((s_163)(datum->syntax$1 core-stx sym_11)))" +"(begin(hash-set! id-cache-0 sym_11 s_163) s_163)))))" +"(if(eq? phase_35 1)" "(let-values()" "(let-values(((or-part_28)(hash-ref id-cache-1 sym_11 #f)))" "(if or-part_28" " or-part_28" "(let-values(((s_10)(datum->syntax$1(syntax-shift-phase-level$1 core-stx 1) sym_11)))" "(begin(hash-set! id-cache-1 sym_11 s_10) s_10)))))" -"(let-values()(datum->syntax$1(syntax-shift-phase-level$1 core-stx phase_33) sym_11)))))))" +"(let-values()(datum->syntax$1(syntax-shift-phase-level$1 core-stx phase_35) sym_11)))))))" "(define-values(core-forms) '#hasheq())" "(define-values(core-primitives) '#hasheq())" "(define-values" @@ -15703,7 +15830,7 @@ static const char *startup_source = "(let-values(((key_44" " val_35)" "(let-values()" -"(let-values(((b_60)" +"(let-values(((b_61)" "(let-values(((core-mpi17_0)" " core-mpi)" "((temp18_3)" @@ -15736,10 +15863,10 @@ static const char *startup_source = " sym_24" "(if syntax?_2" "(provided1.1" -" b_60" +" b_61" " #f" " #t)" -" b_60))))))" +" b_61))))))" "(hash-set" " table_116" " key_44" @@ -15790,7 +15917,7 @@ static const char *startup_source = "((temp16_1)" "(lambda(data-box_1" " ns_49" -" phase_41" +" phase_43" " phase-level_15" " self_5" " bulk-binding-registry_4" @@ -15914,21 +16041,21 @@ static const char *startup_source = "(declare-module!58.1 #f #f ns7_0 temp8_0 core-module-name9_0)))))" "(define-values" "(core-form-sym)" -"(lambda(s_23 phase_42)" +"(lambda(s_23 phase_44)" "(begin" "(let-values(((ok?_0 id23_0 _24_0)" -"(let-values(((s_163) s_23))" -"(if(let-values(((s_164)(if(syntax?$1 s_163)(syntax-e$1 s_163) s_163)))" -"(if(pair? s_164)" -"(if(let-values(((s_165)(car s_164)))" -"(let-values(((or-part_72)(if(syntax?$1 s_165)(symbol?(syntax-e$1 s_165)) #f)))" -"(if or-part_72 or-part_72(symbol? s_165))))" -"(let-values(((s_166)(cdr s_164))) #t)" +"(let-values(((s_164) s_23))" +"(if(let-values(((s_165)(if(syntax?$1 s_164)(syntax-e$1 s_164) s_164)))" +"(if(pair? s_165)" +"(if(let-values(((s_166)(car s_165)))" +"(let-values(((or-part_72)(if(syntax?$1 s_166)(symbol?(syntax-e$1 s_166)) #f)))" +"(if or-part_72 or-part_72(symbol? s_166))))" +"(let-values(((s_79)(cdr s_165))) #t)" " #f)" " #f))" "(let-values()" "(let-values(((id23_1 _24_1)" -"(let-values(((s_167)(if(syntax?$1 s_163)(syntax-e$1 s_163) s_163)))" +"(let-values(((s_167)(if(syntax?$1 s_164)(syntax-e$1 s_164) s_164)))" "(let-values(((id25_0)(let-values(((s_67)(car s_167))) s_67))" "((_26_0)(let-values(((s_168)(cdr s_167))) s_168)))" "(values id25_0 _26_0)))))" @@ -15936,7 +16063,7 @@ static const char *startup_source = "(values #f #f #f)))))" "(if ok?_0" "(let-values(((b_36)" -"(let-values(((temp27_1) id23_0)((phase28_0) phase_42))" +"(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_36)" "(if(eq? core-module-name(1/module-path-index-resolve(module-binding-module b_36)))" @@ -15946,7 +16073,7 @@ static const char *startup_source = " #f)))))" "(define-values" "(taint-dispatch)" -"(lambda(s_0 proc_6 phase_32)" +"(lambda(s_0 proc_6 phase_34)" "(begin" "((letrec-values(((loop_33)" "(lambda(s_70 mode_10)" @@ -16182,7 +16309,7 @@ static const char *startup_source = "(let-values()(loop_33 s_70 'transparent)))))" "(let-values()" "(let-values(((c_20)(syntax-e$1 s_70)))" -"(let-values(((tmp_15)(core-form-sym c_20 phase_32)))" +"(let-values(((tmp_15)(core-form-sym c_20 phase_34)))" "(if(if(equal? tmp_15 'begin)" " #t" "(if(equal? tmp_15 'begin-for-syntax)" @@ -16199,17 +16326,17 @@ static const char *startup_source = "(syntax-taint-mode-property s_0)))))" "(define-values" "(syntax-taint-mode-property)" -"(lambda(s_78)" +"(lambda(s_178)" "(begin" -"(let-values(((or-part_164)(syntax-property$1 s_78 'taint-mode)))" -"(if or-part_164 or-part_164(syntax-property$1 s_78 'certify-mode))))))" +"(let-values(((or-part_164)(syntax-property$1 s_178 'taint-mode)))" +"(if or-part_164 or-part_164(syntax-property$1 s_178 'certify-mode))))))" "(define-values" "(syntax-remove-taint-dispatch-properties)" -"(lambda(s_178)(begin(1/syntax-property-remove(1/syntax-property-remove s_178 'taint-mode) 'certify-mode))))" +"(lambda(s_179)(begin(1/syntax-property-remove(1/syntax-property-remove s_179 'taint-mode) 'certify-mode))))" "(define-values(current-module-code-inspector)(make-parameter #f))" "(define-values" "(syntax-debug-info$1)" -"(lambda(s_0 phase_43 all-bindings?_0)" +"(lambda(s_0 phase_45 all-bindings?_0)" "(begin" " 'syntax-debug-info" "(let-values(((hts_0)" @@ -16243,7 +16370,7 @@ static const char *startup_source = "(scope-set-at-fallback" " s_0" " smss_26" -" phase_43)))" +" phase_45)))" "(let-values(((context_1)" "(scope-set->context" " s-scs_0)))" @@ -16330,7 +16457,7 @@ static const char *startup_source = "(hash-iterate-key" " ht_81" " i_91))))" -"((b_61)" +"((b_62)" "(if(pair?" " i_91)" "(let-values()" @@ -16367,7 +16494,7 @@ static const char *startup_source = "((covered-scope-sets_4)" " covered-scope-sets_2))" "(if(if scs_15" -"(if b_61" +"(if b_62" "(if(let-values(((or-part_68)" " all-bindings?_0))" "(if or-part_68" @@ -16403,20 +16530,20 @@ static const char *startup_source = " scs_15" " s-scs_0)" "(if(local-binding?" -" b_61)" +" b_62)" " 'local" " 'module)" "(if(local-binding?" -" b_61)" +" b_62)" "(local-binding-key" -" b_61)" +" b_62)" "(vector" "(module-binding-sym" -" b_61)" +" b_62)" "(module-binding-module" -" b_61)" +" b_62)" "(module-binding-phase" -" b_61))))" +" b_62))))" " bindings_7)" "(set-add" " covered-scope-sets_5" @@ -16556,9 +16683,9 @@ static const char *startup_source = "(syntax-debug-info-string id_22 ctx_7)))))" "(define-values" "(syntax-debug-info-string)" -"(lambda(s_179 ctx_8)" +"(lambda(s_180 ctx_8)" "(begin" -"(let-values(((info_3)(syntax-debug-info$1 s_179(expand-context-phase ctx_8) #t)))" +"(let-values(((info_3)(syntax-debug-info$1 s_180(expand-context-phase ctx_8) #t)))" "(if(not" "(let-values(((or-part_26)(pair?(hash-ref info_3 'bindings null))))" "(if or-part_26" @@ -16569,7 +16696,7 @@ static const char *startup_source = "(void)" "(let-values()(check-list lst_6)))" "((letrec-values(((for-loop_104)" -"(lambda(result_65 lst_85)" +"(lambda(result_66 lst_85)" "(begin" " 'for-loop" "(if(pair? lst_85)" @@ -16577,7 +16704,7 @@ static const char *startup_source = "((rest_40)(unsafe-cdr lst_85)))" "(let-values(((result_1)" "(let-values()" -"(let-values(((result_66)" +"(let-values(((result_67)" "(let-values()" "(let-values()" "(pair?" @@ -16585,11 +16712,11 @@ static const char *startup_source = " fb-info_0" " 'bindings" " null))))))" -"(values result_66)))))" +"(values result_67)))))" "(if(if(not((lambda x_27 result_1) fb-info_0))(not #f) #f)" "(for-loop_104 result_1 rest_40)" " result_1)))" -" result_65)))))" +" result_66)))))" " for-loop_104)" " #f" " lst_6))))))" @@ -16702,12 +16829,12 @@ static const char *startup_source = "((rest_43)(unsafe-cdr lst_91)))" "(let-values(((s_82)" "(let-values(((s_43) s_174))" -"(let-values(((s_180)" +"(let-values(((s_181)" "(let-values()" "(set-intersect" " s_43" "(list->set l_48)))))" -"(values s_180)))))" +"(values s_181)))))" "(if(not #f)(for-loop_107 s_82 rest_43) s_82)))" " s_174)))))" " for-loop_107)" @@ -16729,11 +16856,11 @@ static const char *startup_source = "(let-values(((lst_92)" "(let-values(((temp1_1)(hash-ref info_5 'bindings null))" "((temp2_2)" -"(lambda(a_37 b_62)" +"(lambda(a_37 b_63)" "(begin" " 'temp2" "(if(hash-ref a_37 'match? #f)" -"(not(hash-ref b_62 'match? #f))" +"(not(hash-ref b_63 'match? #f))" " #f)))))" "(sort7.1 #f #f #f #f temp1_1 temp2_2))))" "(begin" @@ -16854,16 +16981,16 @@ static const char *startup_source = "(begin" " 'for-loop" "(if(pair? lst_10)" -"(let-values(((s_181)(unsafe-car lst_10))" +"(let-values(((s_182)(unsafe-car lst_10))" "((rest_1)(unsafe-cdr lst_10)))" "(let-values(((fold-var_78)" "(let-values(((fold-var_79) fold-var_77))" -"(if(set-member? common-scopes_0 s_181)" +"(if(set-member? common-scopes_0 s_182)" "(let-values(((fold-var_5) fold-var_79))" "(let-values(((fold-var_6)" "(let-values()" "(cons" -"(let-values() s_181)" +"(let-values() s_182)" " fold-var_5))))" "(values fold-var_6)))" " fold-var_79))))" @@ -16909,16 +17036,16 @@ static const char *startup_source = "(begin" " 'for-loop" "(if(pair? lst_97)" -"(let-values(((s_182)(unsafe-car lst_97))" +"(let-values(((s_183)(unsafe-car lst_97))" "((rest_45)(unsafe-cdr lst_97)))" "(let-values(((fold-var_81)" "(let-values(((fold-var_82) fold-var_80))" -"(if(not(set-member? common-scopes_1 s_182))" +"(if(not(set-member? common-scopes_1 s_183))" "(let-values(((fold-var_83) fold-var_82))" "(let-values(((fold-var_84)" "(let-values()" "(cons" -"(let-values() s_182)" +"(let-values() s_183)" " fold-var_83))))" "(values fold-var_84)))" " fold-var_82))))" @@ -16964,7 +17091,7 @@ static const char *startup_source = "(raise-syntax-implicit-error)" "(lambda(s_0 sym_27 trigger-id_0 ctx_8)" "(begin" -"(let-values(((phase_44)(expand-context-phase ctx_8)))" +"(let-values(((phase_46)(expand-context-phase ctx_8)))" "(let-values(((what_1)" "(let-values(((tmp_16) sym_27))" "(if(equal? tmp_16 '#%app)" @@ -16980,7 +17107,7 @@ 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_44))" +"(let-values(((trigger-id1_0) trigger-id_0)((phase2_1) phase_46))" "(resolve40.1 #f #f #f #f #f #f #f #f trigger-id1_0 phase2_1)))" " #f)))" "(let-values(((unbound-form_0)" @@ -16992,12 +17119,12 @@ static const char *startup_source = " \"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_27" -"(let-values(((tmp_17) phase_44))" +"(let-values(((tmp_17) phase_46))" "(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_44))))))" +" (let-values () (format \" at phase ~a\" phase_46))))))" "(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" @@ -17009,8 +17136,8 @@ static const char *startup_source = "(begin" " 'check-no-duplicate-ids8" "(let-values(((ids_2) ids5_0))" -"(let-values(((phase_45) phase6_0))" -"(let-values(((s_183) s7_1))" +"(let-values(((phase_47) phase6_0))" +"(let-values(((s_184) s7_1))" "(let-values(((ht_77)(if ht4_0 ht3_0(make-check-no-duplicate-table))))" " (let-values (((what_2) (if what2_0 what1_0 \"binding name\")))" "(let-values()" @@ -17044,14 +17171,14 @@ static const char *startup_source = "(if(bound-identifier=?$1" " id_14" " v_132" -" phase_45)" +" phase_47)" "(let-values()" "(raise-syntax-error$1" " #f" "(string-append" " \"duplicate \"" " what_2)" -" s_183" +" s_184" " v_132))" "(void)))" "(values)))))" @@ -17159,7 +17286,7 @@ static const char *startup_source = "(begin" " 'make-compile-context14" "(let-values(((namespace_1)(if namespace8_0 namespace2_0(1/current-namespace))))" -"(let-values(((phase_46)(if phase9_0 phase3_0(namespace-phase namespace_1))))" +"(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)))" @@ -17172,7 +17299,7 @@ static const char *startup_source = "(void))" "(compile-context1.1" " namespace_1" -" phase_46" +" phase_48" " self_6" " module-self_0" " full-module-name_0" @@ -17248,9 +17375,9 @@ static const char *startup_source = "(define-values(built-in-symbol?)(lambda(s_69)(begin(hash-ref built-in-symbols s_69 #f))))" "(define-values" "(make-built-in-symbol!)" -"(lambda(s_179)" +"(lambda(s_180)" "(begin" -" (let-values (((built-in-s_0) (string->symbol (format \".~s\" s_179))))" +" (let-values (((built-in-s_0) (string->symbol (format \".~s\" s_180))))" "(begin(register-built-in-symbol! built-in-s_0) built-in-s_0)))))" "(void" "(begin" @@ -17496,7 +17623,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-hash ht_85)))" -"((letrec-values(((for-loop_55)" +"((letrec-values(((for-loop_114)" "(lambda(table_122 i_20)" "(begin" " 'for-loop" @@ -17519,22 +17646,22 @@ static const char *startup_source = " val_38)))))" "(values table_9)))))" "(if(not #f)" -"(for-loop_55 table_15(hash-iterate-next ht_85 i_20))" +"(for-loop_114 table_15(hash-iterate-next ht_85 i_20))" " table_15)))" " table_122)))))" -" for-loop_55)" +" for-loop_114)" " '#hasheqv()" "(hash-iterate-first ht_85))))))" "(let-values(((gens_0)" -"(let-values(((len_11)(hash-count gen-order_0)))" +"(let-values(((len_12)(hash-count gen-order_0)))" "(begin" -"(if(exact-nonnegative-integer? len_11)" +"(if(exact-nonnegative-integer? len_12)" "(void)" "(let-values()" -" (raise-argument-error 'for/vector \"exact-nonnegative-integer?\" len_11)))" -"(let-values(((v_135)(make-vector len_11 0)))" +" (raise-argument-error 'for/vector \"exact-nonnegative-integer?\" len_12)))" +"(let-values(((v_135)(make-vector len_12 0)))" "(begin" -"(if(zero? len_11)" +"(if(zero? len_12)" "(void)" "(let-values()" "(let-values(((start_17) 0)" @@ -17602,7 +17729,7 @@ static const char *startup_source = "(values i_99)))))" "(if(if(not" "((lambda x_9" -"(unsafe-fx= i_97 len_11))" +"(unsafe-fx= i_97 len_12))" " i_89))" "(not #f)" " #f)" @@ -17618,31 +17745,31 @@ static const char *startup_source = "(list 'quote gens_0)" "(list" " 'quote" -"(let-values(((vec_25 i_43)" +"(let-values(((vec_29 i_43)" "(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_57)" -"(lambda(vec_26 i_100 pos_17)" +"((letrec-values(((for-loop_55)" +"(lambda(vec_30 i_100 pos_17)" "(begin" " 'for-loop" "(if(< pos_17 end_12)" "(let-values(((i_21) pos_17))" -"(let-values(((vec_27 i_101)" -"(let-values(((vec_28) vec_26)" +"(let-values(((vec_31 i_101)" +"(let-values(((vec_32) vec_30)" "((i_37) i_100))" -"(let-values(((vec_29 i_60)" +"(let-values(((vec_33 i_60)" "(let-values()" "(let-values(((new-vec_2)" "(if(eq?" " i_37" "(unsafe-vector*-length" -" vec_28))" +" vec_32))" "(grow-vector" -" vec_28)" -" vec_28)))" +" vec_32)" +" vec_32)))" "(begin" "(unsafe-vector*-set!" " new-vec_2" @@ -17658,37 +17785,37 @@ static const char *startup_source = "(unsafe-fx+" " i_37" " 1)))))))" -"(values vec_29 i_60)))))" +"(values vec_33 i_60)))))" "(if(not #f)" -"(for-loop_57 vec_27 i_101(+ pos_17 inc_6))" -"(values vec_27 i_101))))" -"(values vec_26 i_100))))))" -" for-loop_57)" +"(for-loop_55 vec_31 i_101(+ pos_17 inc_6))" +"(values vec_31 i_101))))" +"(values vec_30 i_100))))))" +" for-loop_55)" "(make-vector 16)" " 0" " start_18)))))" -"(shrink-vector vec_25 i_43)))))))))))))))" +"(shrink-vector vec_29 i_43)))))))))))))))" "(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_30 len_12)" -"(let-values(((vec_31) gen-vec_0))" -"(begin(check-vector vec_31)(values vec_31(unsafe-vector-length vec_31)))))" +"(let-values(((vec_34 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))" "(begin" " #f" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-naturals start_19)))" -"((letrec-values(((for-loop_114)" +"((letrec-values(((for-loop_115)" "(lambda(pos_18 pos_19)" "(begin" " 'for-loop" -"(if(if(unsafe-fx< pos_18 len_12) #t #f)" -"(let-values(((d_21)(unsafe-vector-ref vec_30 pos_18))((i_102) pos_19))" +"(if(if(unsafe-fx< pos_18 len_13) #t #f)" +"(let-values(((d_21)(unsafe-vector-ref vec_34 pos_18))((i_102) pos_19))" "(let-values((()" "(let-values()" "(let-values((()" @@ -17715,33 +17842,33 @@ static const char *startup_source = " #f)))))))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_114(unsafe-fx+ 1 pos_18)(+ pos_19 1))(values))))" +"(if(not #f)(for-loop_115(unsafe-fx+ 1 pos_18)(+ pos_19 1))(values))))" "(values))))))" -" for-loop_114)" +" for-loop_115)" " 0" " start_19)))" "(void)" -"(let-values(((len_13)(vector-length order-vec_0)))" +"(let-values(((len_14)(vector-length order-vec_0)))" "(begin" -"(if(exact-nonnegative-integer? len_13)" +"(if(exact-nonnegative-integer? len_14)" "(void)" -" (let-values () (raise-argument-error 'for/vector \"exact-nonnegative-integer?\" len_13)))" -"(let-values(((v_136)(make-vector len_13 0)))" +" (let-values () (raise-argument-error 'for/vector \"exact-nonnegative-integer?\" len_14)))" +"(let-values(((v_136)(make-vector len_14 0)))" "(begin" -"(if(zero? len_13)" +"(if(zero? len_14)" "(void)" "(let-values()" -"(let-values(((vec_32 len_14)" -"(let-values(((vec_33) order-vec_0))" -"(begin(check-vector vec_33)(values vec_33(unsafe-vector-length vec_33))))))" +"(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))))))" "(begin" " #f" -"((letrec-values(((for-loop_115)" +"((letrec-values(((for-loop_116)" "(lambda(i_103 pos_20)" "(begin" " 'for-loop" -"(if(unsafe-fx< pos_20 len_14)" -"(let-values(((p_31)(unsafe-vector-ref vec_32 pos_20)))" +"(if(unsafe-fx< pos_20 len_15)" +"(let-values(((p_32)(unsafe-vector-ref vec_35 pos_20)))" "(let-values(((i_45)" "(let-values(((i_104) i_103))" "(let-values(((i_105)" @@ -17751,16 +17878,16 @@ static const char *startup_source = " v_136" " i_104" "(let-values()" -"(vector*-ref gen_0 p_31)))" +"(vector*-ref gen_0 p_32)))" "(unsafe-fx+ 1 i_104)))))" "(values i_105)))))" -"(if(if(not((lambda x_40(unsafe-fx= i_45 len_13)) p_31))" +"(if(if(not((lambda x_42(unsafe-fx= i_45 len_14)) p_32))" "(not #f)" " #f)" -"(for-loop_115 i_45(unsafe-fx+ 1 pos_20))" +"(for-loop_116 i_45(unsafe-fx+ 1 pos_20))" " i_45)))" " i_103)))))" -" for-loop_115)" +" for-loop_116)" " 0" " 0)))))" " v_136)))))))))" @@ -17769,14 +17896,14 @@ static const char *startup_source = "(lambda(mpis_3)" "(begin" "(let-values(((positions_2)(module-path-index-table-positions mpis_3)))" -"(let-values(((vec_34)(make-vector(hash-count positions_2) #f)))" +"(let-values(((vec_37)(make-vector(hash-count positions_2) #f)))" "(begin" "(let-values(((ht_86) positions_2))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-hash ht_86)))" -"((letrec-values(((for-loop_116)" +"((letrec-values(((for-loop_117)" "(lambda(i_106)" "(begin" " 'for-loop" @@ -17788,15 +17915,15 @@ static const char *startup_source = "(let-values()" "(begin" "(let-values()" -"(vector-set! vec_34 pos_21 mpi_28))" +"(vector-set! vec_37 pos_21 mpi_28))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_116(hash-iterate-next ht_86 i_106))(values))))" +"(if(not #f)(for-loop_117(hash-iterate-next ht_86 i_106))(values))))" "(values))))))" -" for-loop_116)" +" for-loop_117)" "(hash-iterate-first ht_86))))" "(void)" -" vec_34))))))" +" vec_37))))))" "(define-values" "(serialize-module-uses)" "(lambda(mus_0 mpis_4)" @@ -17805,7 +17932,7 @@ static const char *startup_source = "(let-values(((lst_103) mus_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_103)))" -"((letrec-values(((for-loop_117)" +"((letrec-values(((for-loop_118)" "(lambda(fold-var_94 lst_104)" "(begin" " 'for-loop" @@ -17825,9 +17952,9 @@ static const char *startup_source = "(module-use-phase mu_1)))" " fold-var_96))))" "(values fold-var_97)))))" -"(if(not #f)(for-loop_117 fold-var_95 rest_50) fold-var_95)))" +"(if(not #f)(for-loop_118 fold-var_95 rest_50) fold-var_95)))" " fold-var_94)))))" -" for-loop_117)" +" for-loop_118)" " null" " lst_103)))))))" "(define-values" @@ -17864,32 +17991,32 @@ static const char *startup_source = "(let-values(((lst_105) phases-in-order_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_105)))" -"((letrec-values(((for-loop_118)" +"((letrec-values(((for-loop_119)" "(lambda(fold-var_98 lst_106)" "(begin" " 'for-loop" "(if(pair? lst_106)" -"(let-values(((phase_47)(unsafe-car lst_106))((rest_51)(unsafe-cdr lst_106)))" +"(let-values(((phase_49)(unsafe-car lst_106))((rest_51)(unsafe-cdr lst_106)))" "(let-values(((fold-var_99)" "(let-values(((fold-var_100) fold-var_98))" -"(let-values(((fold-var_35)" +"(let-values(((fold-var_101)" "(let-values()" "(cons" "(let-values()" "(list" -" phase_47" +" phase_49" "(list*" " 'list" "(serialize-module-uses" "(hash-ref" " phase-to-link-module-uses_0" -" phase_47)" +" phase_49)" " mpis_5))))" " fold-var_100))))" -"(values fold-var_35)))))" -"(if(not #f)(for-loop_118 fold-var_99 rest_51) fold-var_99)))" +"(values fold-var_101)))))" +"(if(not #f)(for-loop_119 fold-var_99 rest_51) fold-var_99)))" " fold-var_98)))))" -" for-loop_118)" +" for-loop_119)" " null" " lst_105))))))))))" "(define-values" @@ -17999,29 +18126,29 @@ static const char *startup_source = "(vector-length" " v_106))))" "(begin" -"(let-values(((vec_35" -" len_15)" -"(let-values(((vec_36)" +"(let-values(((vec_38" +" len_16)" +"(let-values(((vec_39)" " v_106))" "(begin" "(check-vector" -" vec_36)" +" vec_39)" "(values" -" vec_36" +" vec_39" "(unsafe-vector-length" -" vec_36))))))" +" vec_39))))))" "(begin" " #f" -"((letrec-values(((for-loop_119)" +"((letrec-values(((for-loop_120)" "(lambda(pos_22)" "(begin" " 'for-loop" "(if(unsafe-fx<" " pos_22" -" len_15)" -"(let-values(((e_19)" +" len_16)" +"(let-values(((e_20)" "(unsafe-vector-ref" -" vec_35" +" vec_38" " pos_22)))" "(let-values((()" "(let-values()" @@ -18030,18 +18157,18 @@ static const char *startup_source = "(begin" "(let-values()" "(loop_82" -" e_19))" +" e_20))" "(values)))))" "(values)))))" "(if(not" " #f)" -"(for-loop_119" +"(for-loop_120" "(unsafe-fx+" " 1" " pos_22))" "(values))))" "(values))))))" -" for-loop_119)" +" for-loop_120)" " 0)))" "(void))" "(begin" @@ -18051,29 +18178,29 @@ static const char *startup_source = "(hash-count" " mutables_0))" "(begin" -"(let-values(((vec_37" -" len_16)" -"(let-values(((vec_38)" +"(let-values(((vec_40" +" len_17)" +"(let-values(((vec_41)" " v_106))" "(begin" "(check-vector" -" vec_38)" +" vec_41)" "(values" -" vec_38" +" vec_41" "(unsafe-vector-length" -" vec_38))))))" +" vec_41))))))" "(begin" " #f" -"((letrec-values(((for-loop_120)" +"((letrec-values(((for-loop_121)" "(lambda(pos_23)" "(begin" " 'for-loop" "(if(unsafe-fx<" " pos_23" -" len_16)" -"(let-values(((e_20)" +" len_17)" +"(let-values(((e_21)" "(unsafe-vector-ref" -" vec_37" +" vec_40" " pos_23)))" "(let-values((()" "(let-values()" @@ -18082,18 +18209,18 @@ static const char *startup_source = "(begin" "(let-values()" "(add-frontier!_0" -" e_20))" +" e_21))" "(values)))))" "(values)))))" "(if(not" " #f)" -"(for-loop_120" +"(for-loop_121" "(unsafe-fx+" " 1" " pos_23))" "(values))))" "(values))))))" -" for-loop_120)" +" for-loop_121)" " 0)))" "(void)))))" "(if(box?" @@ -18129,7 +18256,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_75)))" -"((letrec-values(((for-loop_121)" +"((letrec-values(((for-loop_122)" "(lambda(lst_107)" "(begin" " 'for-loop" @@ -18158,11 +18285,11 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_121" +"(for-loop_122" " rest_52)" "(values))))" "(values))))))" -" for-loop_121)" +" for-loop_122)" " lst_75)))" "(void))" "(begin" @@ -18182,7 +18309,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_108)))" -"((letrec-values(((for-loop_122)" +"((letrec-values(((for-loop_123)" "(lambda(lst_109)" "(begin" " 'for-loop" @@ -18211,11 +18338,11 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_122" +"(for-loop_123" " rest_53)" "(values))))" "(values))))))" -" for-loop_122)" +" for-loop_123)" " lst_108)))" "(void)))))" "(if(prefab-struct-key" @@ -18229,65 +18356,9 @@ static const char *startup_source = "(normalise-inputs" " 'in-vector" " \"vector\"" -"(lambda(x_32)" +"(lambda(x_33)" "(vector?" -" x_32))" -"(lambda(x_41)" -"(unsafe-vector-length" -" x_41))" -"(struct->vector" -" v_106)" -" 1" -" #f" -" 1)))" -"(begin" -" #t" -"((letrec-values(((for-loop_123)" -"(lambda(idx_1)" -"(begin" -" 'for-loop" -"(if(unsafe-fx<" -" idx_1" -" stop*_2)" -"(let-values(((e_21)" -"(unsafe-vector-ref" -" v*_2" -" idx_1)))" -"(let-values((()" -"(let-values()" -"(let-values((()" -"(let-values()" -"(begin" -"(let-values()" -"(loop_82" -" e_21))" -"(values)))))" -"(values)))))" -"(if(not" -" #f)" -"(for-loop_123" -"(unsafe-fx+" -" idx_1" -" 1))" -"(values))))" -"(values))))))" -" for-loop_123)" -" start*_1)))" -"(void)))" -"(if(srcloc?" -" v_106)" -"(let-values()" -"(begin" -"(let-values(((v*_3" -" start*_2" -" stop*_3" -" step*_2)" -"(normalise-inputs" -" 'in-vector" -" \"vector\"" -"(lambda(x_42)" -"(vector?" -" x_42))" +" x_33))" "(lambda(x_43)" "(unsafe-vector-length" " x_43))" @@ -18299,16 +18370,16 @@ static const char *startup_source = "(begin" " #t" "((letrec-values(((for-loop_124)" -"(lambda(idx_2)" +"(lambda(idx_1)" "(begin" " 'for-loop" "(if(unsafe-fx<" -" idx_2" -" stop*_3)" +" idx_1" +" stop*_2)" "(let-values(((e_22)" "(unsafe-vector-ref" -" v*_3" -" idx_2)))" +" v*_2" +" idx_1)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -18323,11 +18394,67 @@ static const char *startup_source = " #f)" "(for-loop_124" "(unsafe-fx+" -" idx_2" +" idx_1" " 1))" "(values))))" "(values))))))" " for-loop_124)" +" start*_1)))" +"(void)))" +"(if(srcloc?" +" v_106)" +"(let-values()" +"(begin" +"(let-values(((v*_3" +" start*_2" +" stop*_3" +" step*_2)" +"(normalise-inputs" +" 'in-vector" +" \"vector\"" +"(lambda(x_44)" +"(vector?" +" x_44))" +"(lambda(x_45)" +"(unsafe-vector-length" +" x_45))" +"(struct->vector" +" v_106)" +" 1" +" #f" +" 1)))" +"(begin" +" #t" +"((letrec-values(((for-loop_125)" +"(lambda(idx_2)" +"(begin" +" 'for-loop" +"(if(unsafe-fx<" +" idx_2" +" stop*_3)" +"(let-values(((e_23)" +"(unsafe-vector-ref" +" v*_3" +" idx_2)))" +"(let-values((()" +"(let-values()" +"(let-values((()" +"(let-values()" +"(begin" +"(let-values()" +"(loop_82" +" e_23))" +"(values)))))" +"(values)))))" +"(if(not" +" #f)" +"(for-loop_125" +"(unsafe-fx+" +" idx_2" +" 1))" +"(values))))" +"(values))))))" +" for-loop_125)" " start*_2)))" "(void)))" "(let-values()" @@ -18354,7 +18481,7 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list lst_110)))" -"((letrec-values(((for-loop_75)" +"((letrec-values(((for-loop_126)" "(lambda(lst_111)" "(begin" " 'for-loop" @@ -18378,11 +18505,11 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_75" +"(for-loop_126" " rest_54)" "(values))))" "(values))))))" -" for-loop_75)" +" for-loop_126)" " lst_110)))" "(void))))))))))" " frontier-loop_0)" @@ -18398,8 +18525,8 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()(check-in-hash-keys ht_87)))" -"((letrec-values(((for-loop_125)" -"(lambda(fold-var_101 i_107)" +"((letrec-values(((for-loop_75)" +"(lambda(fold-var_102 i_107)" "(begin" " 'for-loop" "(if i_107" @@ -18407,28 +18534,28 @@ static const char *startup_source = "(hash-iterate-key" " ht_87" " i_107)))" -"(let-values(((fold-var_102)" "(let-values(((fold-var_103)" -" fold-var_101))" "(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_103))))" +" fold-var_104))))" "(values" -" fold-var_104)))))" +" fold-var_105)))))" "(if(not #f)" -"(for-loop_125" -" fold-var_102" +"(for-loop_75" +" fold-var_103" "(hash-iterate-next" " ht_87" " i_107))" -" fold-var_102)))" -" fold-var_101)))))" -" for-loop_125)" +" fold-var_103)))" +" fold-var_102)))))" +" for-loop_75)" " null" "(hash-iterate-first ht_87)))))))" "(let-values(((lst_112)" @@ -18443,7 +18570,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-naturals start_20)))" -"((letrec-values(((for-loop_126)" +"((letrec-values(((for-loop_127)" "(lambda(table_124 lst_113 pos_24)" "(begin" " 'for-loop" @@ -18470,13 +18597,13 @@ static const char *startup_source = " val_39)))))" "(values table_127)))))" "(if(not #f)" -"(for-loop_126" +"(for-loop_127" " table_125" " rest_55" "(+ pos_24 1))" " table_125)))" " table_124)))))" -" for-loop_126)" +" for-loop_127)" " '#hasheqv()" " lst_112" " start_20))))))" @@ -18524,14 +18651,14 @@ static const char *startup_source = "(begin" "(ser-push!_15 'tag '#:ref)" "(ser-push!_15 'exact n_21))))" -"(let-values(((c1_23)" +"(let-values(((c1_25)" "(hash-ref mutables_0 v_139 #f)))" -"(if c1_23" +"(if c1_25" "((lambda(n_22)" "(begin" "(ser-push!_15 'tag '#:ref)" "(ser-push!_15 'exact n_22)))" -" c1_23)" +" c1_25)" "(let-values()" "(ser-push-encoded!_0 v_139)))))))" "((kind_4 v_140)" @@ -18620,7 +18747,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_114)))" -"((letrec-values(((for-loop_127)" +"((letrec-values(((for-loop_128)" "(lambda(all-quoted?_1" " lst_115)" "(begin" @@ -18651,12 +18778,12 @@ static const char *startup_source = " all-quoted?_4)))))" "(if(not" " #f)" -"(for-loop_127" +"(for-loop_128" " all-quoted?_2" " rest_56)" " all-quoted?_2)))" " all-quoted?_1)))))" -" for-loop_127)" +" for-loop_128)" " #t" " lst_114)))))" "(if all-quoted?_0" @@ -18743,30 +18870,30 @@ static const char *startup_source = " v_141))" "(values))))" "(let-values(((all-quoted?_5)" -"(let-values(((vec_39" -" len_17)" -"(let-values(((vec_40)" +"(let-values(((vec_42" +" len_18)" +"(let-values(((vec_43)" " v_141))" "(begin" "(check-vector" -" vec_40)" +" vec_43)" "(values" -" vec_40" +" vec_43" "(unsafe-vector-length" -" vec_40))))))" +" vec_43))))))" "(begin" " #f" -"((letrec-values(((for-loop_128)" +"((letrec-values(((for-loop_129)" "(lambda(all-quoted?_6" " pos_28)" "(begin" " 'for-loop" "(if(unsafe-fx<" " pos_28" -" len_17)" +" len_18)" "(let-values(((i_109)" "(unsafe-vector-ref" -" vec_39" +" vec_42" " pos_28)))" "(let-values(((all-quoted?_7)" "(let-values(((all-quoted?_8)" @@ -18786,14 +18913,14 @@ static const char *startup_source = " all-quoted?_9)))))" "(if(not" " #f)" -"(for-loop_128" +"(for-loop_129" " all-quoted?_7" "(unsafe-fx+" " 1" " pos_28))" " all-quoted?_7)))" " all-quoted?_6)))))" -" for-loop_128)" +" for-loop_129)" " #t" " 0)))))" "(if all-quoted?_5" @@ -18821,7 +18948,7 @@ static const char *startup_source = "(check-in-hash-values" " ht_88)))" "((letrec-values(((for-loop_42)" -"(lambda(result_67" +"(lambda(result_68" " i_110)" "(begin" " 'for-loop" @@ -18830,31 +18957,31 @@ static const char *startup_source = "(hash-iterate-value" " ht_88" " i_110)))" -"(let-values(((result_68)" -"(let-values()" "(let-values(((result_69)" "(let-values()" +"(let-values(((result_70)" +"(let-values()" "(let-values()" "(eq?" " val_40" " #t)))))" "(values" -" result_69)))))" +" result_70)))))" "(if(if(not" -"((lambda x_44" +"((lambda x_46" "(not" -" result_68))" +" result_69))" " val_40))" "(not" " #f)" " #f)" "(for-loop_42" -" result_68" +" result_69" "(hash-iterate-next" " ht_88" " i_110))" -" result_68)))" -" result_67)))))" +" result_69)))" +" result_68)))))" " for-loop_42)" " #t" "(hash-iterate-first" @@ -18905,7 +19032,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_48)))" -"((letrec-values(((for-loop_129)" +"((letrec-values(((for-loop_130)" "(lambda(all-quoted?_11" " lst_116)" "(begin" @@ -18955,12 +19082,12 @@ static const char *startup_source = " all-quoted?_14)))))" "(if(not" " #f)" -"(for-loop_129" +"(for-loop_130" " all-quoted?_12" " rest_57)" " all-quoted?_12)))" " all-quoted?_11)))))" -" for-loop_129)" +" for-loop_130)" " #t" " lst_48)))))" "(if all-quoted?_10" @@ -18978,7 +19105,7 @@ static const char *startup_source = " v_141)))" "(if c3_0" "((lambda(k_24)" -"(let-values(((vec_41)" +"(let-values(((vec_44)" "(struct->vector" " v_141)))" "(let-values(((start-pos_5)" @@ -19001,7 +19128,7 @@ static const char *startup_source = " 'exact" "(sub1" "(vector-length" -" vec_41)))" +" vec_44)))" "(values))))" "(let-values(((all-quoted?_15)" "(let-values(((v*_4" @@ -19011,19 +19138,19 @@ 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))" -" vec_41" +" x_48))" +" vec_44" " 1" " #f" " 1)))" "(begin" " #t" -"((letrec-values(((for-loop_130)" +"((letrec-values(((for-loop_131)" "(lambda(all-quoted?_16" " idx_3)" "(begin" @@ -19053,14 +19180,14 @@ static const char *startup_source = " all-quoted?_19)))))" "(if(not" " #f)" -"(for-loop_130" +"(for-loop_131" " all-quoted?_17" "(unsafe-fx+" " idx_3" " 1))" " all-quoted?_17)))" " all-quoted?_16)))))" -" for-loop_130)" +" for-loop_131)" " #t" " start*_3)))))" "(if all-quoted?_15" @@ -19153,27 +19280,27 @@ static const char *startup_source = "(ser-push!_15" " 'exact" "(vector-length v_143))" -"(let-values(((vec_42 len_18)" -"(let-values(((vec_43)" +"(let-values(((vec_45 len_19)" +"(let-values(((vec_46)" " v_143))" "(begin" -"(check-vector vec_43)" +"(check-vector vec_46)" "(values" -" vec_43" +" vec_46" "(unsafe-vector-length" -" vec_43))))))" +" vec_46))))))" "(begin" " #f" -"((letrec-values(((for-loop_131)" +"((letrec-values(((for-loop_132)" "(lambda(pos_29)" "(begin" " 'for-loop" "(if(unsafe-fx<" " pos_29" -" len_18)" +" len_19)" "(let-values(((v_144)" "(unsafe-vector-ref" -" vec_42" +" vec_45" " pos_29)))" "(let-values((()" "(let-values()" @@ -19187,13 +19314,13 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_131" +"(for-loop_132" "(unsafe-fx+" " 1" " pos_29))" "(values))))" "(values))))))" -" for-loop_131)" +" for-loop_132)" " 0)))" "(void)))" "(if(hash? v_143)" @@ -19221,7 +19348,7 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list lst_117)))" -"((letrec-values(((for-loop_132)" +"((letrec-values(((for-loop_133)" "(lambda(lst_118)" "(begin" " 'for-loop" @@ -19250,11 +19377,11 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_132" +"(for-loop_133" " rest_58)" "(values))))" "(values))))))" -" for-loop_132)" +" for-loop_133)" " lst_117)))" "(void))))))" "(let-values()" @@ -19269,7 +19396,7 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()(check-in-hash ht_89)))" -"((letrec-values(((for-loop_133)" +"((letrec-values(((for-loop_134)" "(lambda(table_128 i_7)" "(begin" " 'for-loop" @@ -19297,14 +19424,14 @@ static const char *startup_source = "(values" " table_131)))))" "(if(not #f)" -"(for-loop_133" +"(for-loop_134" " table_129" "(hash-iterate-next" " ht_89" " i_7))" " table_129)))" " table_128)))))" -" for-loop_133)" +" for-loop_134)" " '#hasheqv()" "(hash-iterate-first ht_89))))))" "(let-values(((mutable-shell-bindings_0)" @@ -19320,7 +19447,7 @@ static const char *startup_source = "(void)" "(let-values()" "(check-range start_21 end_13 inc_7)))" -"((letrec-values(((for-loop_134)" +"((letrec-values(((for-loop_135)" "(lambda(pos_30)" "(begin" " 'for-loop" @@ -19342,13 +19469,13 @@ static const char *startup_source = "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_134" +"(for-loop_135" "(+" " pos_30" " inc_7))" "(values))))" "(values))))))" -" for-loop_134)" +" for-loop_135)" " start_21)))" "(void))" "(reap-stream!_0))))" @@ -19360,7 +19487,7 @@ static const char *startup_source = "(void)" "(let-values()" "(check-in-hash-keys ht_90)))" -"((letrec-values(((for-loop_135)" +"((letrec-values(((for-loop_136)" "(lambda(table_132 i_113)" "(begin" " 'for-loop" @@ -19391,14 +19518,14 @@ static const char *startup_source = "(values" " table_135)))))" "(if(not #f)" -"(for-loop_135" +"(for-loop_136" " table_133" "(hash-iterate-next" " ht_90" " i_113))" " table_133)))" " table_132)))))" -" for-loop_135)" +" for-loop_136)" " '#hasheqv()" "(hash-iterate-first ht_90))))))" "(let-values(((shared-bindings_0)" @@ -19419,7 +19546,7 @@ static const char *startup_source = " start_22" " end_14" " inc_8)))" -"((letrec-values(((for-loop_136)" +"((letrec-values(((for-loop_137)" "(lambda(pos_31)" "(begin" " 'for-loop" @@ -19442,13 +19569,13 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_136" +"(for-loop_137" "(+" " pos_31" " inc_8))" "(values))))" "(values))))))" -" for-loop_136)" +" for-loop_137)" " start_22)))" "(void))" "(reap-stream!_0))))" @@ -19468,7 +19595,7 @@ static const char *startup_source = " start_23" " end_15" " inc_9)))" -"((letrec-values(((for-loop_137)" +"((letrec-values(((for-loop_138)" "(lambda(pos_32)" "(begin" " 'for-loop" @@ -19491,13 +19618,13 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_137" +"(for-loop_138" "(+" " pos_32" " inc_9))" "(values))))" "(values))))))" -" for-loop_137)" +" for-loop_138)" " start_23)))" "(void))" "(reap-stream!_0))))" @@ -19558,7 +19685,7 @@ 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_138)" +"((letrec-values(((for-loop_139)" "(lambda(pos_33 pos_34)" "(begin" " 'for-loop" @@ -19583,9 +19710,9 @@ static const char *startup_source = " d_22)" " next-pos_0)))))" "(values pos_37)))))" -"(if(not #f)(for-loop_138 pos_35(+ pos_34 inc_10)) pos_35)))" +"(if(not #f)(for-loop_139 pos_35(+ pos_34 inc_10)) pos_35)))" " pos_33)))))" -" for-loop_138)" +" for-loop_139)" " 0" " start_24)))" "(values))))" @@ -19598,7 +19725,7 @@ 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_139)" +"((letrec-values(((for-loop_140)" "(lambda(pos_38 pos_39)" "(begin" " 'for-loop" @@ -19623,9 +19750,9 @@ static const char *startup_source = " d_23)" " next-pos_1)))))" "(values pos_42)))))" -"(if(not #f)(for-loop_139 pos_40(+ pos_39 inc_11)) pos_40)))" +"(if(not #f)(for-loop_140 pos_40(+ pos_39 inc_11)) pos_40)))" " pos_38)))))" -" for-loop_139)" +" for-loop_140)" " 0" " start_25)))" "(values))))" @@ -19634,22 +19761,22 @@ static const char *startup_source = "(let-values(((start_26) 0)" "((end_18) num-mutables_1)" "((inc_12) 1)" -"((vec_44 len_19)" -"(let-values(((vec_45) shared_0))" +"((vec_47 len_20)" +"(let-values(((vec_48) shared_0))" "(begin" -"(check-vector vec_45)" -"(values vec_45(unsafe-vector-length vec_45))))))" +"(check-vector vec_48)" +"(values vec_48(unsafe-vector-length vec_48))))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-range start_26 end_18 inc_12)))" " #f" -"((letrec-values(((for-loop_140)" +"((letrec-values(((for-loop_141)" "(lambda(pos_43 pos_44 pos_45)" "(begin" " 'for-loop" -"(if(if(< pos_44 end_18)(unsafe-fx< pos_45 len_19) #f)" -"(let-values(((v_146)(unsafe-vector-ref vec_44 pos_45)))" +"(if(if(< pos_44 end_18)(unsafe-fx< pos_45 len_20) #f)" +"(let-values(((v_146)(unsafe-vector-ref vec_47 pos_45)))" "(let-values(((pos_46)" "(let-values(((pos_47) pos_43))" "(let-values(((pos_48)" @@ -19664,42 +19791,42 @@ static const char *startup_source = " shared_0))))" "(values pos_48)))))" "(if(not #f)" -"(for-loop_140" +"(for-loop_141" " pos_46" "(+ pos_44 inc_12)" "(unsafe-fx+ 1 pos_45))" " pos_46)))" " pos_43)))))" -" for-loop_140)" +" for-loop_141)" " 0" " start_26" " 0)))" "(values))))" -"(let-values(((result_70 done-pos_0)" +"(let-values(((result_71 done-pos_0)" "(decode result-vec_0 0 mpis_7 inspector_5 bulk-binding-registry_5 shared_0)))" -" result_70))))))))" +" result_71))))))))" "(define-values" "(decode-shell)" -"(lambda(vec_46 pos_49 mpis_8 inspector_6 bulk-binding-registry_6 shared_1)" +"(lambda(vec_49 pos_49 mpis_8 inspector_6 bulk-binding-registry_6 shared_1)" "(begin" -"(let-values(((tmp_19)(vector*-ref vec_46 pos_49)))" +"(let-values(((tmp_19)(vector*-ref vec_49 pos_49)))" "(if(equal? tmp_19 '#:box)" "(let-values()(values(box #f)(add1 pos_49)))" "(if(equal? tmp_19 '#:vector)" -"(let-values()(values(make-vector(vector*-ref vec_46(add1 pos_49)))(+ pos_49 2)))" +"(let-values()(values(make-vector(vector*-ref vec_49(add1 pos_49)))(+ pos_49 2)))" "(if(equal? tmp_19 '#:hash)" "(let-values()(values(make-hasheq)(add1 pos_49)))" "(if(equal? tmp_19 '#:hasheq)" "(let-values()(values(make-hasheq)(add1 pos_49)))" "(if(equal? tmp_19 '#:hasheqv)" "(let-values()(values(make-hasheqv)(add1 pos_49)))" -"(let-values()(decode vec_46 pos_49 mpis_8 inspector_6 bulk-binding-registry_6 shared_1)))))))))))" +"(let-values()(decode vec_49 pos_49 mpis_8 inspector_6 bulk-binding-registry_6 shared_1)))))))))))" "(define-values" "(decode)" -"(lambda(vec_47 pos_50 mpis_9 inspector_7 bulk-binding-registry_7 shared_2)" +"(lambda(vec_50 pos_50 mpis_9 inspector_7 bulk-binding-registry_7 shared_2)" "(begin" "(let-values()" -"(let-values(((tmp_20)(vector*-ref vec_47 pos_50)))" +"(let-values(((tmp_20)(vector*-ref vec_50 pos_50)))" "(let-values(((index_0)" "(if(keyword? tmp_20)" "(hash-ref" @@ -19742,8 +19869,8 @@ 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_47 pos_50)(add1 pos_50)))" -"(let-values()(values(vector*-ref shared_2(vector*-ref vec_47(add1 pos_50)))(+ pos_50 2))))" +"(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))))" "(if(unsafe-fx< index_0 3)" "(let-values()(values inspector_7(add1 pos_50)))" "(if(unsafe-fx< index_0 4)" @@ -19752,29 +19879,29 @@ static const char *startup_source = "(let-values()" "(let-values(((content_8 next-pos_2)" "(decode" -" vec_47" +" vec_50" "(add1 pos_50)" " mpis_9" " inspector_7" " bulk-binding-registry_7" " shared_2)))" "(let-values(((context_2 next-pos_3)" -"(let-values(((i_118)(vector*-ref vec_47 next-pos_2)))" +"(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))" "(decode" -" vec_47" +" vec_50" " next-pos_2" " mpis_9" " inspector_7" " bulk-binding-registry_7" " shared_2)))))" "(let-values(((srcloc_3 next-pos_4)" -"(let-values(((i_119)(vector*-ref vec_47 next-pos_3)))" +"(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))" "(decode" -" vec_47" +" vec_50" " next-pos_3" " mpis_9" " inspector_7" @@ -19786,29 +19913,29 @@ static const char *startup_source = "(let-values()" "(let-values(((content_9 next-pos_5)" "(decode" -" vec_47" +" vec_50" "(add1 pos_50)" " mpis_9" " inspector_7" " bulk-binding-registry_7" " shared_2)))" "(let-values(((context_3 next-pos_6)" -"(let-values(((i_120)(vector*-ref vec_47 next-pos_5)))" +"(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))" "(decode" -" vec_47" +" vec_50" " next-pos_5" " mpis_9" " inspector_7" " bulk-binding-registry_7" " shared_2)))))" "(let-values(((srcloc_4 next-pos_7)" -"(let-values(((i_121)(vector*-ref vec_47 next-pos_6)))" +"(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))" "(decode" -" vec_47" +" vec_50" " next-pos_6" " mpis_9" " inspector_7" @@ -19821,24 +19948,24 @@ static const char *startup_source = "(if(unsafe-fx< index_0 7)" "(let-values()" "(let-values(((content_10 next-pos_8)" -"(decode vec_47(add1 pos_50) mpis_9 inspector_7 bulk-binding-registry_7 shared_2)))" +"(decode vec_50(add1 pos_50) mpis_9 inspector_7 bulk-binding-registry_7 shared_2)))" "(let-values(((context_4 next-pos_9)" -"(let-values(((i_122)(vector*-ref vec_47 next-pos_8)))" +"(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))" "(decode" -" vec_47" +" vec_50" " next-pos_8" " mpis_9" " inspector_7" " bulk-binding-registry_7" " shared_2)))))" "(let-values(((srcloc_5 next-pos_10)" -"(let-values(((i_123)(vector*-ref vec_47 next-pos_9)))" +"(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))" "(decode" -" vec_47" +" vec_50" " next-pos_9" " mpis_9" " inspector_7" @@ -19846,7 +19973,7 @@ static const char *startup_source = " shared_2)))))" "(let-values(((props_1 next-pos_11)" "(decode" -" vec_47" +" vec_50" " next-pos_10" " mpis_9" " inspector_7" @@ -19854,7 +19981,7 @@ static const char *startup_source = " shared_2)))" "(let-values(((tamper_2 next-pos_12)" "(decode" -" vec_47" +" vec_50" " next-pos_11" " mpis_9" " inspector_7" @@ -19867,7 +19994,7 @@ static const char *startup_source = "(let-values()" "(let-values(((source_0 next-pos_13)" "(decode" -" vec_47" +" vec_50" "(add1 pos_50)" " mpis_9" " inspector_7" @@ -19875,7 +20002,7 @@ static const char *startup_source = " shared_2)))" "(let-values(((line_0 next-pos_14)" "(decode" -" vec_47" +" vec_50" " next-pos_13" " mpis_9" " inspector_7" @@ -19883,7 +20010,7 @@ static const char *startup_source = " shared_2)))" "(let-values(((column_0 next-pos_15)" "(decode" -" vec_47" +" vec_50" " next-pos_14" " mpis_9" " inspector_7" @@ -19891,7 +20018,7 @@ static const char *startup_source = " shared_2)))" "(let-values(((position_0 next-pos_16)" "(decode" -" vec_47" +" vec_50" " next-pos_15" " mpis_9" " inspector_7" @@ -19899,21 +20026,21 @@ static const char *startup_source = " shared_2)))" "(let-values(((span_0 next-pos_17)" "(decode" -" vec_47" +" vec_50" " next-pos_16" " mpis_9" " 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_47(add1 pos_50))(+ pos_50 2)))))" +"(let-values()(values(vector*-ref vec_50(add1 pos_50))(+ pos_50 2)))))" "(if(unsafe-fx< index_0 10)" -"(let-values()(values(vector*-ref mpis_9(vector*-ref vec_47(add1 pos_50)))(+ pos_50 2)))" +"(let-values()(values(vector*-ref mpis_9(vector*-ref vec_50(add1 pos_50)))(+ pos_50 2)))" "(if(unsafe-fx< index_0 11)" "(let-values()" "(let-values(((v_147 next-pos_18)" "(decode" -" vec_47" +" vec_50" "(add1 pos_50)" " mpis_9" " inspector_7" @@ -19924,7 +20051,7 @@ static const char *startup_source = "(let-values()" "(let-values(((a_38 next-pos_19)" "(decode" -" vec_47" +" vec_50" "(add1 pos_50)" " mpis_9" " inspector_7" @@ -19932,7 +20059,7 @@ static const char *startup_source = " shared_2)))" "(let-values(((d_24 next-pos_20)" "(decode" -" vec_47" +" vec_50" " next-pos_19" " mpis_9" " inspector_7" @@ -19940,15 +20067,15 @@ static const char *startup_source = " shared_2)))" "(values(cons a_38 d_24) next-pos_20))))" "(let-values()" -"(let-values(((len_20)(vector*-ref vec_47(add1 pos_50))))" -"(let-values(((r_29)(make-vector len_20)))" +"(let-values(((len_21)(vector*-ref vec_50(add1 pos_50))))" +"(let-values(((r_29)(make-vector len_21)))" "(let-values(((next-pos_21)" -"(let-values(((start_27) 0)((end_19) len_20)((inc_13) 1))" +"(let-values(((start_27) 0)((end_19) len_21)((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_141)" +"((letrec-values(((for-loop_142)" "(lambda(pos_51 pos_52)" "(begin" " 'for-loop" @@ -19963,7 +20090,7 @@ static const char *startup_source = "(let-values(((v_149" " next-pos_23)" "(decode" -" vec_47" +" vec_50" " pos_54" " mpis_9" " inspector_7" @@ -19980,14 +20107,14 @@ static const char *startup_source = " next-pos_22)))))" "(values pos_55)))))" "(if(not #f)" -"(for-loop_141 pos_53(+ pos_52 inc_13))" +"(for-loop_142 pos_53(+ pos_52 inc_13))" " pos_53)))" " pos_51)))))" -" for-loop_141)" +" for-loop_142)" "(+ pos_50 2)" " start_27)))))" "(values" -"(if(eq?(vector*-ref vec_47 pos_50) '#:list)" +"(if(eq?(vector*-ref vec_50 pos_50) '#:list)" "(vector->list r_29)" "(vector->immutable-vector r_29))" " next-pos_21))))))))))" @@ -19996,7 +20123,7 @@ static const char *startup_source = "(if(unsafe-fx< index_0 14)" "(let-values()" "(let-values(((ht_92)" -"(let-values(((tmp_21)(vector*-ref vec_47 pos_50)))" +"(let-values(((tmp_21)(vector*-ref vec_50 pos_50)))" "(if(equal? tmp_21 '#:hash)" "(let-values()(hash))" "(if(equal? tmp_21 '#:hasheq)" @@ -20004,13 +20131,13 @@ static const char *startup_source = "(if(equal? tmp_21 '#:hasheqv)" "(let-values()(hasheqv))" "(let-values()(void))))))))" -"(let-values(((len_21)(vector*-ref vec_47(add1 pos_50))))" -"(let-values(((start_28) 0)((end_20) len_21)((inc_14) 1))" +"(let-values(((len_22)(vector*-ref vec_50(add1 pos_50))))" +"(let-values(((start_28) 0)((end_20) len_22)((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_142)" +"((letrec-values(((for-loop_143)" "(lambda(ht_93 pos_56 pos_57)" "(begin" " 'for-loop" @@ -20022,7 +20149,7 @@ static const char *startup_source = "(let-values()" "(let-values(((k_27 next-pos_24)" "(decode" -" vec_47" +" vec_50" " pos_59" " mpis_9" " inspector_7" @@ -20031,7 +20158,7 @@ static const char *startup_source = "(let-values(((v_150" " next-pos_25)" "(decode" -" vec_47" +" vec_50" " next-pos_24" " mpis_9" " inspector_7" @@ -20042,17 +20169,17 @@ static const char *startup_source = " next-pos_25))))))" "(values ht_96 pos_60)))))" "(if(not #f)" -"(for-loop_142 ht_94 pos_58(+ pos_57 inc_14))" +"(for-loop_143 ht_94 pos_58(+ pos_57 inc_14))" "(values ht_94 pos_58))))" "(values ht_93 pos_56))))))" -" for-loop_142)" +" for-loop_143)" " ht_92" "(+ pos_50 2)" " start_28))))))" "(if(unsafe-fx< index_0 15)" "(let-values()" "(let-values(((s_139)" -"(let-values(((tmp_22)(vector*-ref vec_47 pos_50)))" +"(let-values(((tmp_22)(vector*-ref vec_50 pos_50)))" "(if(equal? tmp_22 '#:set)" "(let-values()(set))" "(if(equal? tmp_22 '#:seteq)" @@ -20060,40 +20187,40 @@ static const char *startup_source = "(if(equal? tmp_22 '#:seteqv)" "(let-values()(seteqv))" "(let-values()(void))))))))" -"(let-values(((len_22)(vector*-ref vec_47(add1 pos_50))))" -"(let-values(((start_29) 0)((end_21) len_22)((inc_15) 1))" +"(let-values(((len_23)(vector*-ref vec_50(add1 pos_50))))" +"(let-values(((start_29) 0)((end_21) len_23)((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_143)" -"(lambda(s_184 pos_61 pos_62)" +"((letrec-values(((for-loop_144)" +"(lambda(s_185 pos_61 pos_62)" "(begin" " 'for-loop" "(if(< pos_62 end_21)" "(let-values()" -"(let-values(((s_185 pos_63)" -"(let-values(((s_186) s_184)((pos_64) pos_61))" -"(let-values(((s_187 pos_65)" +"(let-values(((s_186 pos_63)" +"(let-values(((s_187) s_185)((pos_64) pos_61))" +"(let-values(((s_188 pos_65)" "(let-values()" "(let-values(((k_28" " next-pos_26)" "(decode" -" vec_47" +" vec_50" " pos_64" " mpis_9" " inspector_7" " bulk-binding-registry_7" " shared_2)))" "(values" -"(set-add s_186 k_28)" +"(set-add s_187 k_28)" " next-pos_26)))))" -"(values s_187 pos_65)))))" +"(values s_188 pos_65)))))" "(if(not #f)" -"(for-loop_143 s_185 pos_63(+ pos_62 inc_15))" -"(values s_185 pos_63))))" -"(values s_184 pos_61))))))" -" for-loop_143)" +"(for-loop_144 s_186 pos_63(+ pos_62 inc_15))" +"(values s_186 pos_63))))" +"(values s_185 pos_61))))))" +" for-loop_144)" " s_139" "(+ pos_50 2)" " start_29))))))" @@ -20101,21 +20228,21 @@ static const char *startup_source = "(let-values(((key_50 next-pos_27)" "(let-values(((k_29 next-pos_28)" "(decode" -" vec_47" +" vec_50" "(add1 pos_50)" " mpis_9" " inspector_7" " bulk-binding-registry_7" " shared_2)))" "(values k_29 next-pos_28))))" -"(let-values(((len_23)(vector*-ref vec_47 next-pos_27)))" +"(let-values(((len_24)(vector*-ref vec_50 next-pos_27)))" "(let-values(((r_30 done-pos_1)" -"(let-values(((start_30) 0)((end_22) len_23)((inc_16) 1))" +"(let-values(((start_30) 0)((end_22) len_24)((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_144)" +"((letrec-values(((for-loop_145)" "(lambda(r_31 pos_66 pos_67)" "(begin" " 'for-loop" @@ -20129,7 +20256,7 @@ static const char *startup_source = "(let-values(((v_151" " next-pos_29)" "(decode" -" vec_47" +" vec_50" " pos_69" " mpis_9" " inspector_7" @@ -20142,10 +20269,10 @@ static const char *startup_source = " next-pos_29)))))" "(values r_34 pos_70)))))" "(if(not #f)" -"(for-loop_144 r_32 pos_68(+ pos_67 inc_16))" +"(for-loop_145 r_32 pos_68(+ pos_67 inc_16))" "(values r_32 pos_68))))" "(values r_31 pos_66))))))" -" for-loop_144)" +" for-loop_145)" " null" "(add1 next-pos_27)" " start_30)))))" @@ -20156,7 +20283,7 @@ static const char *startup_source = "(let-values()" "(let-values(((kind_5 next-pos_30)" "(decode" -" vec_47" +" vec_50" "(add1 pos_50)" " mpis_9" " inspector_7" @@ -20167,7 +20294,7 @@ static const char *startup_source = "(let-values()" "(let-values(((name_38 next-pos_31)" "(decode" -" vec_47" +" vec_50" "(add1 pos_50)" " mpis_9" " inspector_7" @@ -20175,7 +20302,7 @@ static const char *startup_source = " shared_2)))" "(let-values(((scopes_21 next-pos_32)" "(decode" -" vec_47" +" vec_50" " next-pos_31" " mpis_9" " inspector_7" @@ -20183,9 +20310,9 @@ static const char *startup_source = " shared_2)))" "(values(deserialize-multi-scope name_38 scopes_21) next-pos_32))))" "(let-values()" -"(let-values(((phase_48 next-pos_33)" +"(let-values(((phase_50 next-pos_33)" "(decode" -" vec_47" +" vec_50" "(add1 pos_50)" " mpis_9" " inspector_7" @@ -20193,26 +20320,26 @@ static const char *startup_source = " shared_2)))" "(let-values(((multi-scope_2 next-pos_34)" "(decode" -" vec_47" +" vec_50" " next-pos_33" " mpis_9" " inspector_7" " bulk-binding-registry_7" " shared_2)))" -"(values(deserialize-shifted-multi-scope phase_48 multi-scope_2) next-pos_34))))))))" +"(values(deserialize-shifted-multi-scope phase_50 multi-scope_2) next-pos_34))))))))" "(if(unsafe-fx< index_0 23)" "(if(unsafe-fx< index_0 21)" "(let-values()" "(let-values(((syms_13 next-pos_35)" -"(decode vec_47(add1 pos_50) mpis_9 inspector_7 bulk-binding-registry_7 shared_2)))" +"(decode vec_50(add1 pos_50) mpis_9 inspector_7 bulk-binding-registry_7 shared_2)))" "(let-values(((bulk-bindings_4 next-pos_36)" -"(decode vec_47 next-pos_35 mpis_9 inspector_7 bulk-binding-registry_7 shared_2)))" +"(decode vec_50 next-pos_35 mpis_9 inspector_7 bulk-binding-registry_7 shared_2)))" "(values(deserialize-table-with-bulk-bindings syms_13 bulk-bindings_4) next-pos_36))))" "(if(unsafe-fx< index_0 22)" "(let-values()" "(let-values(((scopes_22 next-pos_37)" "(decode" -" vec_47" +" vec_50" "(add1 pos_50)" " mpis_9" " inspector_7" @@ -20220,7 +20347,7 @@ static const char *startup_source = " shared_2)))" "(let-values(((bulk_5 next-pos_38)" "(decode" -" vec_47" +" vec_50" " next-pos_37" " mpis_9" " inspector_7" @@ -20230,27 +20357,27 @@ static const char *startup_source = "(let-values()" "(let-values(((kind_6 next-pos_39)" "(decode" -" vec_47" +" vec_50" "(add1 pos_50)" " mpis_9" " inspector_7" " bulk-binding-registry_7" " shared_2)))" -"(let-values(((phase_49 next-pos_40)" +"(let-values(((phase_51 next-pos_40)" "(decode" -" vec_47" +" vec_50" " next-pos_39" " mpis_9" " inspector_7" " bulk-binding-registry_7" " shared_2)))" -"(values(deserialize-representative-scope kind_6 phase_49) next-pos_40))))))" +"(values(deserialize-representative-scope kind_6 phase_51) next-pos_40))))))" "(if(unsafe-fx< index_0 25)" "(if(unsafe-fx< index_0 24)" "(let-values()" "(let-values(((module_4 next-pos_41)" "(decode" -" vec_47" +" vec_50" "(add1 pos_50)" " mpis_9" " inspector_7" @@ -20258,15 +20385,15 @@ static const char *startup_source = " shared_2)))" "(let-values(((sym_28 next-pos_42)" "(decode" -" vec_47" +" vec_50" " next-pos_41" " mpis_9" " inspector_7" " bulk-binding-registry_7" " shared_2)))" -"(let-values(((phase_50 next-pos_43)" +"(let-values(((phase_52 next-pos_43)" "(decode" -" vec_47" +" vec_50" " next-pos_42" " mpis_9" " inspector_7" @@ -20274,7 +20401,7 @@ static const char *startup_source = " shared_2)))" "(let-values(((nominal-module_4 next-pos_44)" "(decode" -" vec_47" +" vec_50" " next-pos_43" " mpis_9" " inspector_7" @@ -20282,7 +20409,7 @@ static const char *startup_source = " shared_2)))" "(let-values(((nominal-phase_3 next-pos_45)" "(decode" -" vec_47" +" vec_50" " next-pos_44" " mpis_9" " inspector_7" @@ -20290,7 +20417,7 @@ static const char *startup_source = " shared_2)))" "(let-values(((nominal-sym_3 next-pos_46)" "(decode" -" vec_47" +" vec_50" " next-pos_45" " mpis_9" " inspector_7" @@ -20298,7 +20425,7 @@ static const char *startup_source = " shared_2)))" "(let-values(((nominal-require-phase_3 next-pos_47)" "(decode" -" vec_47" +" vec_50" " next-pos_46" " mpis_9" " inspector_7" @@ -20306,7 +20433,7 @@ static const char *startup_source = " shared_2)))" "(let-values(((free=id_8 next-pos_48)" "(decode" -" vec_47" +" vec_50" " next-pos_47" " mpis_9" " inspector_7" @@ -20314,7 +20441,7 @@ static const char *startup_source = " shared_2)))" "(let-values(((extra-inspector_3 next-pos_49)" "(decode" -" vec_47" +" vec_50" " next-pos_48" " mpis_9" " inspector_7" @@ -20322,7 +20449,7 @@ static const char *startup_source = " shared_2)))" "(let-values(((extra-nominal-bindings_3 next-pos_50)" "(decode" -" vec_47" +" vec_50" " next-pos_49" " mpis_9" " inspector_7" @@ -20332,7 +20459,7 @@ static const char *startup_source = "(deserialize-full-module-binding" " module_4" " sym_28" -" phase_50" +" phase_52" " nominal-module_4" " nominal-phase_3" " nominal-sym_3" @@ -20344,7 +20471,7 @@ static const char *startup_source = "(let-values()" "(let-values(((module_5 next-pos_51)" "(decode" -" vec_47" +" vec_50" "(add1 pos_50)" " mpis_9" " inspector_7" @@ -20352,15 +20479,15 @@ static const char *startup_source = " shared_2)))" "(let-values(((sym_29 next-pos_52)" "(decode" -" vec_47" +" vec_50" " next-pos_51" " mpis_9" " inspector_7" " bulk-binding-registry_7" " shared_2)))" -"(let-values(((phase_51 next-pos_53)" +"(let-values(((phase_53 next-pos_53)" "(decode" -" vec_47" +" vec_50" " next-pos_52" " mpis_9" " inspector_7" @@ -20368,20 +20495,20 @@ static const char *startup_source = " shared_2)))" "(let-values(((nominal-module_5 next-pos_54)" "(decode" -" vec_47" +" vec_50" " next-pos_53" " mpis_9" " inspector_7" " bulk-binding-registry_7" " shared_2)))" "(values" -"(deserialize-simple-module-binding module_5 sym_29 phase_51 nominal-module_5)" +"(deserialize-simple-module-binding module_5 sym_29 phase_53 nominal-module_5)" " next-pos_54)))))))" "(if(unsafe-fx< index_0 26)" "(let-values()" "(let-values(((key_51 next-pos_55)" "(decode" -" vec_47" +" vec_50" "(add1 pos_50)" " mpis_9" " inspector_7" @@ -20389,7 +20516,7 @@ static const char *startup_source = " shared_2)))" "(let-values(((free=id_9 next-pos_56)" "(decode" -" vec_47" +" vec_50" " next-pos_55" " mpis_9" " inspector_7" @@ -20400,7 +20527,7 @@ static const char *startup_source = "(let-values()" "(let-values(((prefix_3 next-pos_57)" "(decode" -" vec_47" +" vec_50" "(add1 pos_50)" " mpis_9" " inspector_7" @@ -20408,7 +20535,7 @@ static const char *startup_source = " shared_2)))" "(let-values(((excepts_3 next-pos_58)" "(decode" -" vec_47" +" vec_50" " next-pos_57" " mpis_9" " inspector_7" @@ -20416,7 +20543,7 @@ static const char *startup_source = " shared_2)))" "(let-values(((mpi_29 next-pos_59)" "(decode" -" vec_47" +" vec_50" " next-pos_58" " mpis_9" " inspector_7" @@ -20424,7 +20551,7 @@ static const char *startup_source = " shared_2)))" "(let-values(((provide-phase-level_2 next-pos_60)" "(decode" -" vec_47" +" vec_50" " next-pos_59" " mpis_9" " inspector_7" @@ -20432,7 +20559,7 @@ static const char *startup_source = " shared_2)))" "(let-values(((phase-shift_5 next-pos_61)" "(decode" -" vec_47" +" vec_50" " next-pos_60" " mpis_9" " inspector_7" @@ -20440,7 +20567,7 @@ static const char *startup_source = " shared_2)))" "(let-values(((bulk-binding-registry_8 next-pos_62)" "(decode" -" vec_47" +" vec_50" " next-pos_61" " mpis_9" " inspector_7" @@ -20458,7 +20585,7 @@ static const char *startup_source = "(let-values()" "(let-values(((binding_10 next-pos_63)" "(decode" -" vec_47" +" vec_50" "(add1 pos_50)" " mpis_9" " inspector_7" @@ -20466,7 +20593,7 @@ static const char *startup_source = " shared_2)))" "(let-values(((protected?_2 next-pos_64)" "(decode" -" vec_47" +" vec_50" " next-pos_63" " mpis_9" " inspector_7" @@ -20474,7 +20601,7 @@ static const char *startup_source = " shared_2)))" "(let-values(((syntax?_3 next-pos_65)" "(decode" -" vec_47" +" vec_50" " next-pos_64" " mpis_9" " inspector_7" @@ -20485,25 +20612,25 @@ static const char *startup_source = " next-pos_65)))))))))))))))))" "(define-values" "(decode-fill!)" -"(lambda(v_152 vec_48 pos_71 mpis_10 inspector_8 bulk-binding-registry_9 shared_3)" +"(lambda(v_152 vec_51 pos_71 mpis_10 inspector_8 bulk-binding-registry_9 shared_3)" "(begin" -"(let-values(((tmp_23)(vector*-ref vec_48 pos_71)))" +"(let-values(((tmp_23)(vector*-ref vec_51 pos_71)))" "(if(equal? tmp_23 #f)" "(let-values()(add1 pos_71))" "(if(equal? tmp_23 '#:set-box!)" "(let-values()" "(let-values(((c_21 next-pos_66)" -"(decode vec_48(add1 pos_71) mpis_10 inspector_8 bulk-binding-registry_9 shared_3)))" +"(decode vec_51(add1 pos_71) mpis_10 inspector_8 bulk-binding-registry_9 shared_3)))" "(begin(set-box! v_152 c_21) next-pos_66)))" "(if(equal? tmp_23 '#:set-vector!)" "(let-values()" -"(let-values(((len_24)(vector*-ref vec_48(add1 pos_71))))" -"(let-values(((start_31) 0)((end_23) len_24)((inc_17) 1))" +"(let-values(((len_25)(vector*-ref vec_51(add1 pos_71))))" +"(let-values(((start_31) 0)((end_23) len_25)((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_145)" +"((letrec-values(((for-loop_146)" "(lambda(pos_72 pos_73)" "(begin" " 'for-loop" @@ -20515,7 +20642,7 @@ static const char *startup_source = "(let-values()" "(let-values(((c_22 next-pos_67)" "(decode" -" vec_48" +" vec_51" " pos_75" " mpis_10" " inspector_8" @@ -20525,15 +20652,15 @@ static const char *startup_source = "(vector-set! v_152 i_125 c_22)" " next-pos_67)))))" "(values pos_76)))))" -"(if(not #f)(for-loop_145 pos_74(+ pos_73 inc_17)) pos_74)))" +"(if(not #f)(for-loop_146 pos_74(+ pos_73 inc_17)) pos_74)))" " pos_72)))))" -" for-loop_145)" +" for-loop_146)" "(+ pos_71 2)" " start_31)))))" "(if(equal? tmp_23 '#:set-hash!)" "(let-values()" -"(let-values(((len_25)(vector*-ref vec_48(add1 pos_71))))" -"(let-values(((start_32) 0)((end_24) len_25)((inc_18) 1))" +"(let-values(((len_26)(vector*-ref vec_51(add1 pos_71))))" +"(let-values(((start_32) 0)((end_24) len_26)((inc_18) 1))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" @@ -20550,7 +20677,7 @@ static const char *startup_source = "(let-values()" "(let-values(((key_52 next-pos_68)" "(decode" -" vec_48" +" vec_51" " pos_80" " mpis_10" " inspector_8" @@ -20558,7 +20685,7 @@ static const char *startup_source = " shared_3)))" "(let-values(((val_43 done-pos_2)" "(decode" -" vec_48" +" vec_51" " next-pos_68" " mpis_10" " inspector_8" @@ -20576,16 +20703,16 @@ static const char *startup_source = "(if(equal? tmp_23 '#:scope-fill!)" "(let-values()" "(let-values(((c_23 next-pos_69)" -"(decode vec_48(add1 pos_71) mpis_10 inspector_8 bulk-binding-registry_9 shared_3)))" +"(decode vec_51(add1 pos_71) mpis_10 inspector_8 bulk-binding-registry_9 shared_3)))" "(begin(deserialize-scope-fill! v_152 c_23) next-pos_69)))" "(if(equal? tmp_23 '#:representative-scope-fill!)" "(let-values()" "(let-values(((a_39 next-pos_70)" -"(decode vec_48(add1 pos_71) mpis_10 inspector_8 bulk-binding-registry_9 shared_3)))" +"(decode vec_51(add1 pos_71) mpis_10 inspector_8 bulk-binding-registry_9 shared_3)))" "(let-values(((d_25 done-pos_3)" -"(decode vec_48 next-pos_70 mpis_10 inspector_8 bulk-binding-registry_9 shared_3)))" +"(decode vec_51 next-pos_70 mpis_10 inspector_8 bulk-binding-registry_9 shared_3)))" "(begin(deserialize-representative-scope-fill! v_152 a_39 d_25) done-pos_3))))" -" (let-values () (error 'deserialize \"bad fill encoding: ~v\" (vector*-ref vec_48 pos_71)))))))))))))" +" (let-values () (error 'deserialize \"bad fill encoding: ~v\" (vector*-ref vec_51 pos_71)))))))))))))" "(define-values" "(find-reachable-scopes)" "(lambda(v_153)" @@ -20616,7 +20743,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_119)))" -"((letrec-values(((for-loop_146)" +"((letrec-values(((for-loop_147)" "(lambda(lst_120)" "(begin" " 'for-loop" @@ -20636,10 +20763,10 @@ static const char *startup_source = "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_146 rest_59)" +"(for-loop_147 rest_59)" "(values))))" "(values))))))" -" for-loop_146)" +" for-loop_147)" " lst_119)))" "(void)" "(hash-remove! scope-triggers_0 v_154)" @@ -20647,11 +20774,11 @@ static const char *startup_source = " v_154" " get-reachable-scopes_4" " loop_83" -"(lambda(sc-unreachable_0 b_63)" +"(lambda(sc-unreachable_0 b_64)" "(hash-update!" " scope-triggers_0" " sc-unreachable_0" -"(lambda(l_50)(cons b_63 l_50))" +"(lambda(l_50)(cons b_64 l_50))" " null)))))" "(if(reach-scopes? v_154)" "(let-values()((reach-scopes-ref v_154) v_154 loop_83))" @@ -20660,23 +20787,23 @@ static const char *startup_source = "(if(vector? v_154)" "(let-values()" "(begin" -"(let-values(((vec_49 len_26)" -"(let-values(((vec_50) v_154))" +"(let-values(((vec_52 len_27)" +"(let-values(((vec_53) v_154))" "(begin" -"(check-vector vec_50)" +"(check-vector vec_53)" "(values" -" vec_50" -"(unsafe-vector-length vec_50))))))" +" vec_53" +"(unsafe-vector-length vec_53))))))" "(begin" " #f" -"((letrec-values(((for-loop_147)" +"((letrec-values(((for-loop_148)" "(lambda(pos_82)" "(begin" " 'for-loop" -"(if(unsafe-fx< pos_82 len_26)" -"(let-values(((e_23)" +"(if(unsafe-fx< pos_82 len_27)" +"(let-values(((e_24)" "(unsafe-vector-ref" -" vec_49" +" vec_52" " pos_82)))" "(let-values((()" "(let-values()" @@ -20685,15 +20812,15 @@ static const char *startup_source = "(begin" "(let-values()" "(loop_83" -" e_23))" +" e_24))" "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_147" +"(for-loop_148" "(unsafe-fx+ 1 pos_82))" "(values))))" "(values))))))" -" for-loop_147)" +" for-loop_148)" " 0)))" "(void)))" "(if(box? v_154)" @@ -20707,7 +20834,7 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()(check-in-hash ht_97)))" -"((letrec-values(((for-loop_148)" +"((letrec-values(((for-loop_149)" "(lambda(i_126)" "(begin" " 'for-loop" @@ -20730,13 +20857,13 @@ static const char *startup_source = "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_148" +"(for-loop_149" "(hash-iterate-next" " ht_97" " i_126))" "(values))))" "(values))))))" -" for-loop_148)" +" for-loop_149)" "(hash-iterate-first ht_97))))" "(void)))" "(if(prefab-struct-key v_154)" @@ -20746,21 +20873,21 @@ static const char *startup_source = "(normalise-inputs" " 'in-vector" " \"vector\"" -"(lambda(x_47)(vector? x_47))" -"(lambda(x_48)" -"(unsafe-vector-length x_48))" +"(lambda(x_49)(vector? x_49))" +"(lambda(x_50)" +"(unsafe-vector-length x_50))" "(struct->vector v_154)" " 1" " #f" " 1)))" "(begin" " #t" -"((letrec-values(((for-loop_149)" +"((letrec-values(((for-loop_150)" "(lambda(idx_4)" "(begin" " 'for-loop" "(if(unsafe-fx< idx_4 stop*_5)" -"(let-values(((e_24)" +"(let-values(((e_25)" "(unsafe-vector-ref" " v*_5" " idx_4)))" @@ -20771,15 +20898,15 @@ static const char *startup_source = "(begin" "(let-values()" "(loop_83" -" e_24))" +" e_25))" "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_149" +"(for-loop_150" "(unsafe-fx+ idx_4 1))" "(values))))" "(values))))))" -" for-loop_149)" +" for-loop_150)" " start*_4)))" "(void)))" "(if(srcloc? v_154)" @@ -20798,12 +20925,12 @@ static const char *startup_source = "(lambda(s24_1 from-mpi25_0 to-mpi26_0 inspector22_0 inspector23_0)" "(begin" " 'core27" -"(let-values(((s_188) s24_1))" +"(let-values(((s_189) s24_1))" "(let-values(((from-mpi_4) from-mpi25_0))" "(let-values(((to-mpi_3) to-mpi26_0))" "(let-values(((inspector_9)(if inspector23_0 inspector22_0 #f)))" "(let-values()" -"(let-values(((s29_1) s_188)" +"(let-values(((s29_1) s_189)" "((from-mpi30_0) from-mpi_4)" "((to-mpi31_0) to-mpi_3)" "((inspector32_0) inspector_9))" @@ -20816,9 +20943,9 @@ static const char *startup_source = " inspector32_0" " #t)))))))))))" "(case-lambda" -"((s_189 from-mpi_5 to-mpi_4)" -"(begin 'syntax-module-path-index-shift(core27_0 s_189 from-mpi_5 to-mpi_4 #f #f)))" -"((s_190 from-mpi_6 to-mpi_5 inspector22_1)(core27_0 s_190 from-mpi_6 to-mpi_5 inspector22_1 #t))))))" +"((s_190 from-mpi_5 to-mpi_4)" +"(begin 'syntax-module-path-index-shift(core27_0 s_190 from-mpi_5 to-mpi_4 #f #f)))" +"((s_191 from-mpi_6 to-mpi_5 inspector22_1)(core27_0 s_191 from-mpi_6 to-mpi_5 inspector22_1 #t))))))" " syntax-module-path-index-shift_0))" "(define-values" "(deserialize-instance)" @@ -20868,7 +20995,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:_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" @@ -20883,7 +21010,7 @@ static const char *startup_source = " '()" " #f" " 'parsed-primitive-id)))))" -"(values struct:_38 make-_38 ?_38)))" +"(values struct:_39 make-_39 ?_39)))" "(define-values" "(struct:parsed-top-id parsed-top-id4.1 parsed-top-id?)" "(let-values(((struct:_10 make-_10 ?_10 -ref_10 -set!_10)" @@ -20904,7 +21031,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:_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" @@ -20920,14 +21047,14 @@ static const char *startup_source = " #f" " 'parsed-lambda)))))" "(values" -" struct:_37" -" make-_37" -" ?_37" -"(make-struct-field-accessor -ref_37 0 'keys)" -"(make-struct-field-accessor -ref_37 1 'body))))" +" struct:_38" +" make-_38" +" ?_38" +"(make-struct-field-accessor -ref_38 0 'keys)" +"(make-struct-field-accessor -ref_38 1 'body))))" "(define-values" "(struct:parsed-case-lambda parsed-case-lambda6.1 parsed-case-lambda? parsed-case-lambda-clauses)" -"(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" @@ -20942,10 +21069,10 @@ static const char *startup_source = " '(0)" " #f" " 'parsed-case-lambda)))))" -"(values struct:_39 make-_39 ?_39(make-struct-field-accessor -ref_39 0 'clauses))))" +"(values struct:_40 make-_40 ?_40(make-struct-field-accessor -ref_40 0 'clauses))))" "(define-values" "(struct:parsed-app parsed-app7.1 parsed-app? parsed-app-rator parsed-app-rands)" -"(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" @@ -20961,11 +21088,11 @@ static const char *startup_source = " #f" " 'parsed-app)))))" "(values" -" struct:_40" -" make-_40" -" ?_40" -"(make-struct-field-accessor -ref_40 0 'rator)" -"(make-struct-field-accessor -ref_40 1 'rands))))" +" struct:_41" +" make-_41" +" ?_41" +"(make-struct-field-accessor -ref_41 0 'rator)" +"(make-struct-field-accessor -ref_41 1 'rands))))" "(define-values" "(struct:parsed-if parsed-if8.1 parsed-if? parsed-if-tst parsed-if-thn parsed-if-els)" "(let-values(((struct:_4 make-_4 ?_4 -ref_4 -set!_4)" @@ -20992,7 +21119,7 @@ static const char *startup_source = "(make-struct-field-accessor -ref_4 2 'els))))" "(define-values" "(struct:parsed-set! parsed-set!9.1 parsed-set!? parsed-set!-id parsed-set!-rhs)" -"(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" @@ -21008,11 +21135,11 @@ static const char *startup_source = " #f" " 'parsed-set!)))))" "(values" -" struct:_41" -" make-_41" -" ?_41" -"(make-struct-field-accessor -ref_41 0 'id)" -"(make-struct-field-accessor -ref_41 1 'rhs))))" +" struct:_42" +" make-_42" +" ?_42" +"(make-struct-field-accessor -ref_42 0 'id)" +"(make-struct-field-accessor -ref_42 1 'rhs))))" "(define-values" "(struct:parsed-with-continuation-mark" " parsed-with-continuation-mark10.1" @@ -21020,7 +21147,7 @@ static const char *startup_source = " parsed-with-continuation-mark-key" " parsed-with-continuation-mark-val" " parsed-with-continuation-mark-body)" -"(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" @@ -21036,18 +21163,18 @@ static const char *startup_source = " #f" " 'parsed-with-continuation-mark)))))" "(values" -" struct:_42" -" make-_42" -" ?_42" -"(make-struct-field-accessor -ref_42 0 'key)" -"(make-struct-field-accessor -ref_42 1 'val)" -"(make-struct-field-accessor -ref_42 2 'body))))" +" struct:_43" +" make-_43" +" ?_43" +"(make-struct-field-accessor -ref_43 0 'key)" +"(make-struct-field-accessor -ref_43 1 'val)" +"(make-struct-field-accessor -ref_43 2 'body))))" "(define-values" "(struct:parsed-#%variable-reference" " parsed-#%variable-reference11.1" " parsed-#%variable-reference?" " parsed-#%variable-reference-id)" -"(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" @@ -21062,10 +21189,10 @@ static const char *startup_source = " '(0)" " #f" " 'parsed-#%variable-reference)))))" -"(values struct:_43 make-_43 ?_43(make-struct-field-accessor -ref_43 0 'id))))" +"(values struct:_44 make-_44 ?_44(make-struct-field-accessor -ref_44 0 'id))))" "(define-values" "(struct:parsed-begin parsed-begin12.1 parsed-begin? parsed-begin-body)" -"(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" @@ -21080,10 +21207,10 @@ static const char *startup_source = " '(0)" " #f" " 'parsed-begin)))))" -"(values struct:_44 make-_44 ?_44(make-struct-field-accessor -ref_44 0 'body))))" +"(values struct:_45 make-_45 ?_45(make-struct-field-accessor -ref_45 0 'body))))" "(define-values" "(struct:parsed-begin0 parsed-begin013.1 parsed-begin0? parsed-begin0-body)" -"(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" @@ -21098,10 +21225,10 @@ static const char *startup_source = " '(0)" " #f" " 'parsed-begin0)))))" -"(values struct:_45 make-_45 ?_45(make-struct-field-accessor -ref_45 0 'body))))" +"(values struct:_46 make-_46 ?_46(make-struct-field-accessor -ref_46 0 'body))))" "(define-values" "(struct:parsed-quote parsed-quote14.1 parsed-quote? parsed-quote-datum)" -"(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" @@ -21116,10 +21243,10 @@ static const char *startup_source = " '(0)" " #f" " 'parsed-quote)))))" -"(values struct:_46 make-_46 ?_46(make-struct-field-accessor -ref_46 0 'datum))))" +"(values struct:_47 make-_47 ?_47(make-struct-field-accessor -ref_47 0 'datum))))" "(define-values" "(struct:parsed-quote-syntax parsed-quote-syntax15.1 parsed-quote-syntax? parsed-quote-syntax-datum)" -"(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" @@ -21134,7 +21261,7 @@ static const char *startup_source = " '(0)" " #f" " 'parsed-quote-syntax)))))" -"(values struct:_47 make-_47 ?_47(make-struct-field-accessor -ref_47 0 'datum))))" +"(values struct:_48 make-_48 ?_48(make-struct-field-accessor -ref_48 0 'datum))))" "(define-values" "(struct:parsed-let_-values" " parsed-let_-values16.1" @@ -21142,7 +21269,7 @@ static const char *startup_source = " parsed-let_-values-idss" " parsed-let_-values-clauses" " parsed-let_-values-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" @@ -21158,15 +21285,15 @@ static const char *startup_source = " #f" " 'parsed-let_-values)))))" "(values" -" struct:_48" -" make-_48" -" ?_48" -"(make-struct-field-accessor -ref_48 0 'idss)" -"(make-struct-field-accessor -ref_48 1 'clauses)" -"(make-struct-field-accessor -ref_48 2 'body))))" +" struct:_49" +" make-_49" +" ?_49" +"(make-struct-field-accessor -ref_49 0 'idss)" +"(make-struct-field-accessor -ref_49 1 'clauses)" +"(make-struct-field-accessor -ref_49 2 'body))))" "(define-values" "(struct:parsed-let-values parsed-let-values17.1 parsed-let-values?)" -"(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" @@ -21181,10 +21308,10 @@ static const char *startup_source = " '()" " #f" " 'parsed-let-values)))))" -"(values struct:_49 make-_49 ?_49)))" +"(values struct:_50 make-_50 ?_50)))" "(define-values" "(struct:parsed-letrec-values parsed-letrec-values18.1 parsed-letrec-values?)" -"(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" @@ -21199,7 +21326,7 @@ static const char *startup_source = " '()" " #f" " 'parsed-letrec-values)))))" -"(values struct:_50 make-_50 ?_50)))" +"(values struct:_51 make-_51 ?_51)))" "(define-values" "(struct:parsed-define-values" " parsed-define-values19.1" @@ -21207,7 +21334,7 @@ static const char *startup_source = " parsed-define-values-ids" " parsed-define-values-syms" " parsed-define-values-rhs)" -"(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" @@ -21223,12 +21350,12 @@ static const char *startup_source = " #f" " 'parsed-define-values)))))" "(values" -" struct:_51" -" make-_51" -" ?_51" -"(make-struct-field-accessor -ref_51 0 'ids)" -"(make-struct-field-accessor -ref_51 1 'syms)" -"(make-struct-field-accessor -ref_51 2 'rhs))))" +" struct:_52" +" make-_52" +" ?_52" +"(make-struct-field-accessor -ref_52 0 'ids)" +"(make-struct-field-accessor -ref_52 1 'syms)" +"(make-struct-field-accessor -ref_52 2 'rhs))))" "(define-values" "(struct:parsed-define-syntaxes" " parsed-define-syntaxes20.1" @@ -21236,7 +21363,7 @@ static const char *startup_source = " parsed-define-syntaxes-ids" " parsed-define-syntaxes-syms" " parsed-define-syntaxes-rhs)" -"(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" @@ -21252,15 +21379,15 @@ static const char *startup_source = " #f" " 'parsed-define-syntaxes)))))" "(values" -" struct:_52" -" make-_52" -" ?_52" -"(make-struct-field-accessor -ref_52 0 'ids)" -"(make-struct-field-accessor -ref_52 1 'syms)" -"(make-struct-field-accessor -ref_52 2 'rhs))))" +" struct:_53" +" make-_53" +" ?_53" +"(make-struct-field-accessor -ref_53 0 'ids)" +"(make-struct-field-accessor -ref_53 1 'syms)" +"(make-struct-field-accessor -ref_53 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:_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" @@ -21275,10 +21402,10 @@ static const char *startup_source = " '(0)" " #f" " 'parsed-begin-for-syntax)))))" -"(values struct:_53 make-_53 ?_53(make-struct-field-accessor -ref_53 0 'body))))" +"(values struct:_54 make-_54 ?_54(make-struct-field-accessor -ref_54 0 'body))))" "(define-values" "(struct:parsed-#%declare parsed-#%declare22.1 parsed-#%declare?)" -"(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" @@ -21293,10 +21420,10 @@ static const char *startup_source = " '()" " #f" " 'parsed-#%declare)))))" -"(values struct:_54 make-_54 ?_54)))" +"(values struct:_55 make-_55 ?_55)))" "(define-values" "(struct:parsed-require parsed-require23.1 parsed-require?)" -"(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" @@ -21311,10 +21438,10 @@ static const char *startup_source = " '()" " #f" " 'parsed-require)))))" -"(values struct:_55 make-_55 ?_55)))" +"(values struct:_56 make-_56 ?_56)))" "(define-values" "(struct:parsed-#%module-begin parsed-#%module-begin24.1 parsed-#%module-begin? parsed-#%module-begin-body)" -"(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" @@ -21329,7 +21456,7 @@ static const char *startup_source = " '(0)" " #f" " 'parsed-#%module-begin)))))" -"(values struct:_56 make-_56 ?_56(make-struct-field-accessor -ref_56 0 'body))))" +"(values struct:_57 make-_57 ?_57(make-struct-field-accessor -ref_57 0 'body))))" "(define-values" "(struct:parsed-module" " parsed-module25.1" @@ -21344,7 +21471,7 @@ static const char *startup_source = " parsed-module-body" " parsed-module-compiled-module" " parsed-module-compiled-submodules)" -"(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" @@ -21360,19 +21487,19 @@ static const char *startup_source = " #f" " 'parsed-module)))))" "(values" -" struct:_57" -" make-_57" -" ?_57" -"(make-struct-field-accessor -ref_57 0 'star?)" -"(make-struct-field-accessor -ref_57 1 'name-id)" -"(make-struct-field-accessor -ref_57 2 'self)" -"(make-struct-field-accessor -ref_57 3 'requires)" -"(make-struct-field-accessor -ref_57 4 'provides)" -"(make-struct-field-accessor -ref_57 5 'root-ctx-simple?)" -"(make-struct-field-accessor -ref_57 6 'encoded-root-ctx)" -"(make-struct-field-accessor -ref_57 7 'body)" -"(make-struct-field-accessor -ref_57 8 'compiled-module)" -"(make-struct-field-accessor -ref_57 9 'compiled-submodules))))" +" struct:_58" +" make-_58" +" ?_58" +"(make-struct-field-accessor -ref_58 0 'star?)" +"(make-struct-field-accessor -ref_58 1 'name-id)" +"(make-struct-field-accessor -ref_58 2 'self)" +"(make-struct-field-accessor -ref_58 3 'requires)" +"(make-struct-field-accessor -ref_58 4 'provides)" +"(make-struct-field-accessor -ref_58 5 'root-ctx-simple?)" +"(make-struct-field-accessor -ref_58 6 'encoded-root-ctx)" +"(make-struct-field-accessor -ref_58 7 'body)" +"(make-struct-field-accessor -ref_58 8 'compiled-module)" +"(make-struct-field-accessor -ref_58 9 'compiled-submodules))))" "(define-values" "(module-path->mpi5.1)" "(lambda(declared-submodule-names1_0 declared-submodule-names2_0 mod-path3_0 self4_2)" @@ -21418,9 +21545,9 @@ static const char *startup_source = "(module-path->mpi5.1 temp10_2 #t mod-path8_0 temp9_0)))))" "(define-values" "(syntax-mapped-names)" -"(lambda(s_0 phase_43)" +"(lambda(s_0 phase_45)" "(begin" -"(let-values(((s-scs_1)(syntax-scope-set s_0 phase_43)))" +"(let-values(((s-scs_1)(syntax-scope-set s_0 phase_45)))" "(let-values(((ht_98) s-scs_1))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" @@ -21466,7 +21593,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:_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" @@ -21482,20 +21609,20 @@ static const char *startup_source = " #f" " 'requires+provides)))))" "(values" -" struct:_58" -" make-_58" -" ?_58" -"(make-struct-field-accessor -ref_58 0 'self)" -"(make-struct-field-accessor -ref_58 1 'require-mpis)" -"(make-struct-field-accessor -ref_58 2 'require-mpis-in-order)" -"(make-struct-field-accessor -ref_58 3 'requires)" -"(make-struct-field-accessor -ref_58 4 'provides)" -"(make-struct-field-accessor -ref_58 5 'phase-to-defined-syms)" -"(make-struct-field-accessor -ref_58 6 'also-required)" -"(make-struct-field-accessor -ref_58 7 'can-cross-phase-persistent?)" -"(make-struct-field-accessor -ref_58 8 'all-bindings-simple?)" -"(make-struct-field-mutator -set!_58 7 'can-cross-phase-persistent?)" -"(make-struct-field-mutator -set!_58 8 'all-bindings-simple?))))" +" struct:_59" +" make-_59" +" ?_59" +"(make-struct-field-accessor -ref_59 0 'self)" +"(make-struct-field-accessor -ref_59 1 'require-mpis)" +"(make-struct-field-accessor -ref_59 2 'require-mpis-in-order)" +"(make-struct-field-accessor -ref_59 3 'requires)" +"(make-struct-field-accessor -ref_59 4 'provides)" +"(make-struct-field-accessor -ref_59 5 'phase-to-defined-syms)" +"(make-struct-field-accessor -ref_59 6 'also-required)" +"(make-struct-field-accessor -ref_59 7 'can-cross-phase-persistent?)" +"(make-struct-field-accessor -ref_59 8 'all-bindings-simple?)" +"(make-struct-field-mutator -set!_59 7 'can-cross-phase-persistent?)" +"(make-struct-field-mutator -set!_59 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)" @@ -21523,7 +21650,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:_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" @@ -21539,13 +21666,13 @@ static const char *startup_source = " #f" " 'nominal)))))" "(values" -" struct:_59" -" make-_59" -" ?_59" -"(make-struct-field-accessor -ref_59 0 'module)" -"(make-struct-field-accessor -ref_59 1 'provide-phase)" -"(make-struct-field-accessor -ref_59 2 'require-phase)" -"(make-struct-field-accessor -ref_59 3 'sym))))" +" struct:_60" +" make-_60" +" ?_60" +"(make-struct-field-accessor -ref_60 0 'module)" +"(make-struct-field-accessor -ref_60 1 'provide-phase)" +"(make-struct-field-accessor -ref_60 2 'require-phase)" +"(make-struct-field-accessor -ref_60 3 'sym))))" "(define-values" "(struct:bulk-required" " bulk-required4.1" @@ -21555,7 +21682,7 @@ static const char *startup_source = " bulk-required-s" " bulk-required-provide-phase-level" " bulk-required-can-be-shadowed?)" -"(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" @@ -21571,14 +21698,14 @@ static const char *startup_source = " #f" " 'bulk-required)))))" "(values" -" struct:_60" -" make-_60" -" ?_60" -"(make-struct-field-accessor -ref_60 0 'provides)" -"(make-struct-field-accessor -ref_60 1 'prefix-len)" -"(make-struct-field-accessor -ref_60 2 's)" -"(make-struct-field-accessor -ref_60 3 'provide-phase-level)" -"(make-struct-field-accessor -ref_60 4 'can-be-shadowed?))))" +" struct:_61" +" make-_61" +" ?_61" +"(make-struct-field-accessor -ref_61 0 'provides)" +"(make-struct-field-accessor -ref_61 1 'prefix-len)" +"(make-struct-field-accessor -ref_61 2 's)" +"(make-struct-field-accessor -ref_61 3 'provide-phase-level)" +"(make-struct-field-accessor -ref_61 4 'can-be-shadowed?))))" "(define-values" "(make-requires+provides8.1)" "(lambda(copy-requires5_0 copy-requires6_0 self7_0)" @@ -21639,14 +21766,14 @@ static const char *startup_source = " 'add-defined-or-required-id!19" "(let-values(((r+p_3) r+p15_0))" "(let-values(((id_23) id16_0))" -"(let-values(((phase_52) phase17_0))" +"(let-values(((phase_54) 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(((as-transformer?_0) as-transformer?12_0))" "(let-values()" "(begin" "(if(equal?" -" phase_52" +" phase_54" "(phase+" "(module-binding-nominal-phase binding_11)" "(module-binding-nominal-require-phase binding_11)))" @@ -21654,7 +21781,7 @@ static const char *startup_source = " (let-values () (error \"internal error: binding phase does not match nominal info\")))" "(let-values(((r+p116_0) r+p_3)" "((id117_0) id_23)" -"((phase118_0) phase_52)" +"((phase118_0) phase_54)" "((temp119_0)(module-binding-nominal-module binding_11))" "((temp120_0)(module-binding-nominal-require-phase binding_11))" "((can-be-shadowed?121_0) can-be-shadowed?_0)" @@ -21680,7 +21807,7 @@ static const char *startup_source = " 'add-defined-or-required-id-at-nominal!33" "(let-values(((r+p_4) r+p30_0))" "(let-values(((id_24) id31_0))" -"(let-values(((phase_53) phase32_0))" +"(let-values(((phase_55) 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))" @@ -21697,7 +21824,7 @@ static const char *startup_source = " sym-to-reqds_0" " sym_30" "(cons-ish" -"(required2.1 id_24 phase_53 can-be-shadowed?_1 as-transformer?_1)" +"(required2.1 id_24 phase_55 can-be-shadowed?_1 as-transformer?_1)" "(hash-ref sym-to-reqds_0 sym_30 null)))))))))))))))))" "(define-values" "(add-bulk-required-ids!59.1)" @@ -21719,7 +21846,7 @@ static const char *startup_source = "(begin" " 'add-bulk-required-ids!59" "(let-values(((r+p_5) r+p52_0))" -"(let-values(((s_191) s53_0))" +"(let-values(((s_192) s53_0))" "(let-values(((self_9) self54_0))" "(let-values(((nominal-module_7) nominal-module55_0))" "(let-values(((phase-shift_7) phase-shift56_0))" @@ -21734,11 +21861,11 @@ static const char *startup_source = "(let-values(((accum-update-nominals_0) accum-update-nominals42_0))" "(let-values(((who_12) who43_0))" "(let-values()" -"(let-values(((phase_54)(phase+ provide-phase-level_3 phase-shift_7)))" +"(let-values(((phase_56)(phase+ provide-phase-level_3 phase-shift_7)))" "(let-values(((shortcut-table_0)" "(if check-and-remove?_0" "(if(>(hash-count provides_4) 64)" -"(syntax-mapped-names s_191 phase_54)" +"(syntax-mapped-names s_192 phase_56)" " #f)" " #f)))" "(let-values(((mpi_32)(intern-mpi r+p_5 nominal-module_7)))" @@ -21757,7 +21884,7 @@ static const char *startup_source = "(bulk-required4.1" " provides_4" " prefix-len_0" -" s_191" +" s_192" " provide-phase-level_3" " can-be-shadowed?_2)))" "(let-values(((ht_99) provides_4))" @@ -21765,8 +21892,8 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-hash ht_99)))" -"((letrec-values(((for-loop_150)" -"(lambda(result_71 i_128)" +"((letrec-values(((for-loop_151)" +"(lambda(result_72 i_128)" "(begin" " 'for-loop" "(if i_128" @@ -21774,15 +21901,15 @@ static const char *startup_source = "(hash-iterate-key+value" " ht_99" " i_128)))" -"(let-values(((result_72)" "(let-values(((result_73)" -" result_71))" +"(let-values(((result_74)" +" result_72))" "(if(not" "(symbol-interned?" " out-sym_0))" -" result_73" +" result_74" "(let-values()" -"(let-values(((result_74)" +"(let-values(((result_75)" "(let-values()" "(let-values()" "(begin" @@ -21832,11 +21959,11 @@ static const char *startup_source = " r+p_5)" "((temp126_0)" "(datum->syntax$1" -" s_191" +" s_192" " sym_31" -" s_191))" +" s_192))" "((phase127_0)" -" phase_54)" +" phase_56)" "((orig-s128_0)" " orig-s_0)" "((temp129_0)" @@ -21899,24 +22026,24 @@ static const char *startup_source = " null)))))" " already-defined?_0))))))))))" "(values" -" result_74)))))))" +" result_75)))))))" "(if(if(not" -"((lambda x_49 result_72)" +"((lambda x_51 result_73)" " out-sym_0" " binding/p_2))" "(not #f)" " #f)" -"(for-loop_150" -" result_72" +"(for-loop_151" +" result_73" "(hash-iterate-next ht_99 i_128))" -" result_72)))" -" result_71)))))" -" for-loop_150)" +" result_73)))" +" result_72)))))" +" for-loop_151)" " #f" "(hash-iterate-first ht_99))))))))))))))))))))))))))))))" "(define-values" "(bulk-required->required)" -"(lambda(br_1 nominal-module_8 phase_55 sym_32)" +"(lambda(br_1 nominal-module_8 phase_57 sym_32)" "(begin" "(let-values(((prefix-len_1)(bulk-required-prefix-len br_1)))" "(let-values(((out-sym_1)" @@ -21926,13 +22053,13 @@ static const char *startup_source = "(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_32)" -"(phase+ phase_55(bulk-required-provide-phase-level br_1))" +"(phase+ phase_57(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_56 sym_33)" -"(begin(if(bulk-required? r_35)(bulk-required->required r_35 mod-name_9 phase_56 sym_33) r_35))))" +"(lambda(r_35 mod-name_9 phase_58 sym_33)" +"(begin(if(bulk-required? r_35)(bulk-required->required r_35 mod-name_9 phase_58 sym_33) 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)" @@ -21950,7 +22077,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-hash ht_100)))" -"((letrec-values(((for-loop_151)" +"((letrec-values(((for-loop_152)" "(lambda(i_129)" "(begin" " 'for-loop" @@ -21971,12 +22098,12 @@ static const char *startup_source = "(void)" "(let-values()" "(check-in-hash ht_101)))" -"((letrec-values(((for-loop_152)" +"((letrec-values(((for-loop_153)" "(lambda(i_130)" "(begin" " 'for-loop" "(if i_130" -"(let-values(((phase_57" +"(let-values(((phase_59" " at-phase_8)" "(hash-iterate-key+value" " ht_101" @@ -22006,7 +22133,7 @@ static const char *startup_source = " reqds_0))" "(begin" "(void)" -"((letrec-values(((for-loop_153)" +"((letrec-values(((for-loop_154)" "(lambda(lst_122)" "(begin" " 'for-loop" @@ -22035,7 +22162,7 @@ static const char *startup_source = "(normalize-required" " reqd/maybe-bulk_0" " mod-name_10" -" phase_57" +" phase_59" " sym_34)))" "(let-values(((r+p139_0)" " r+p_6)" @@ -22084,11 +22211,11 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_153" +"(for-loop_154" " rest_60)" "(values))))" "(values))))))" -" for-loop_153)" +" for-loop_154)" " lst_121)))))" "(if(not" " #f)" @@ -22103,23 +22230,23 @@ static const char *startup_source = " ht_52))))))" "(if(not" " #f)" -"(for-loop_152" +"(for-loop_153" "(hash-iterate-next" " ht_101" " i_130))" "(values))))" "(values))))))" -" for-loop_152)" +" for-loop_153)" "(hash-iterate-first" " ht_101))))" "(void)))" "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_151(hash-iterate-next ht_100 i_129))" +"(for-loop_152(hash-iterate-next ht_100 i_129))" "(values))))" "(values))))))" -" for-loop_151)" +" for-loop_152)" "(hash-iterate-first ht_100))))" "(void))))))))))" "(define-values" @@ -22129,19 +22256,19 @@ static const char *startup_source = " 'remove-required-id!75" "(let-values(((r+p_7) r+p72_0))" "(let-values(((id_25) id73_0))" -"(let-values(((phase_58) phase74_1))" +"(let-values(((phase_60) phase74_1))" "(let-values(((binding_12) unless-matches70_0))" "(let-values()" -"(let-values(((b_64)" -"(let-values(((id149_0) id_25)((phase150_0) phase_58)((temp151_0) #t))" +"(let-values(((b_65)" +"(let-values(((id149_0) id_25)((phase150_0) phase_60)((temp151_0) #t))" "(resolve+shift30.1 #f #f temp151_0 #t #f #f #f #f #f #f id149_0 phase150_0))))" -"(if b_64" +"(if b_65" "(let-values()" -"(let-values(((mpi_33)(intern-mpi r+p_7(module-binding-nominal-module b_64))))" +"(let-values(((mpi_33)(intern-mpi r+p_7(module-binding-nominal-module b_65))))" "(let-values(((at-mod_3)(hash-ref(requires+provides-requires r+p_7) mpi_33 #f)))" "(if at-mod_3" "(let-values()" -"(let-values(((nominal-phase_4)(module-binding-nominal-require-phase b_64)))" +"(let-values(((nominal-phase_4)(module-binding-nominal-require-phase b_65)))" "(let-values(((sym-to-reqds_2)(hash-ref at-mod_3 nominal-phase_4 #f)))" "(if sym-to-reqds_2" "(let-values()" @@ -22150,7 +22277,7 @@ static const char *startup_source = "(if(null? l_52)" "(void)" "(let-values()" -"(if(same-binding? b_64 binding_12)" +"(if(same-binding? b_65 binding_12)" "(void)" "(let-values()" "(hash-set!" @@ -22159,7 +22286,7 @@ static const char *startup_source = "(remove-non-matching-requireds" " l_52" " id_25" -" phase_58" +" phase_60" " mpi_33" " nominal-phase_4" " sym_35)))))))))" @@ -22168,20 +22295,20 @@ static const char *startup_source = "(void)))))))))))" "(define-values" "(remove-non-matching-requireds)" -"(lambda(reqds_1 id_26 phase_59 mpi_34 nominal-phase_5 sym_36)" +"(lambda(reqds_1 id_26 phase_61 mpi_34 nominal-phase_5 sym_36)" "(begin" "(reverse$1" "(let-values(((lst_123) reqds_1))" "(begin" "(void)" -"((letrec-values(((for-loop_154)" -"(lambda(fold-var_105 lst_124)" +"((letrec-values(((for-loop_155)" +"(lambda(fold-var_106 lst_124)" "(begin" " 'for-loop" "(if(not(null? lst_124))" "(let-values(((r_36)(if(pair? lst_124)(car lst_124) lst_124))" "((rest_61)(if(pair? lst_124)(cdr lst_124) null)))" -"(let-values(((fold-var_106)" +"(let-values(((fold-var_107)" "(let-values(((r_37)" "(normalize-required" " r_36" @@ -22190,41 +22317,41 @@ static const char *startup_source = " sym_36)))" "(begin" " #t" -"((letrec-values(((for-loop_155)" -"(lambda(fold-var_107)" +"((letrec-values(((for-loop_156)" +"(lambda(fold-var_108)" "(begin" " 'for-loop" "(let-values()" -"(let-values(((fold-var_108)" "(let-values(((fold-var_109)" -" fold-var_107))" +"(let-values(((fold-var_110)" +" fold-var_108))" "(if(if(eqv?" -" phase_59" +" phase_61" "(required-phase" " r_37))" "(free-identifier=?$1" "(required-id r_37)" " id_26" -" phase_59" -" phase_59)" +" phase_61" +" phase_61)" " #f)" -" fold-var_109" -"(let-values(((fold-var_110)" -" fold-var_109))" +" fold-var_110" "(let-values(((fold-var_111)" +" fold-var_110))" +"(let-values(((fold-var_112)" "(let-values()" "(cons" "(let-values()" " r_37)" -" fold-var_110))))" +" fold-var_111))))" "(values" -" fold-var_111)))))))" -" fold-var_108))))))" +" fold-var_112)))))))" +" fold-var_109))))))" +" for-loop_156)" +" fold-var_106)))))" +"(if(not #f)(for-loop_155 fold-var_107 rest_61) fold-var_107)))" +" fold-var_106)))))" " for-loop_155)" -" fold-var_105)))))" -"(if(not #f)(for-loop_154 fold-var_106 rest_61) fold-var_106)))" -" fold-var_105)))))" -" for-loop_154)" " null" " lst_123)))))))" "(define-values" @@ -22250,7 +22377,7 @@ static const char *startup_source = "(let-values(((allow-defined?_0)(if allow-defined?86_0 allow-defined?79_0 #f)))" "(let-values(((r+p_8) r+p92_0))" "(let-values(((id_27) id93_0))" -"(let-values(((phase_60) phase94_0))" +"(let-values(((phase_62) 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)))" @@ -22258,8 +22385,8 @@ static const char *startup_source = "(if accum-update-nominals90_0 accum-update-nominals83_0 #f)))" "(let-values(((who_13) who84_0))" "(let-values()" -"(let-values(((b_65)" -"(let-values(((id152_0) id_27)((phase153_0) phase_60)((temp154_0) #t))" +"(let-values(((b_66)" +"(let-values(((id152_0) id_27)((phase153_0) phase_62)((temp154_0) #t))" "(resolve+shift30.1" " #f" " #f" @@ -22273,23 +22400,23 @@ static const char *startup_source = " #f" " id152_0" " phase153_0))))" -"(if(not b_65)" +"(if(not b_66)" "(let-values() #f)" -"(if(not(module-binding? b_65))" +"(if(not(module-binding? b_66))" " (let-values () (raise-syntax-error$1 #f \"identifier out of context\" id_27))" "(let-values()" "(let-values(((defined?_0)" -"(if b_65" -"(eq?(requires+provides-self r+p_8)(module-binding-module b_65))" +"(if b_66" +"(eq?(requires+provides-self r+p_8)(module-binding-module b_66))" " #f)))" "(if(if defined?_0" "(not" "(hash-ref" "(hash-ref" "(requires+provides-phase-to-defined-syms r+p_8)" -" phase_60" +" phase_62" " '#hasheq())" -"(module-binding-sym b_65)" +"(module-binding-sym b_66)" " #f))" " #f)" "(let-values() #f)" @@ -22297,7 +22424,7 @@ static const char *startup_source = "(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_65))))" +"(intern-mpi r+p_8(module-binding-nominal-module b_66))))" "(let-values(((at-mod_4)" "(hash-ref(requires+provides-requires r+p_8) mpi_35 #f)))" "(let-values(((ok-binding_0)" @@ -22315,22 +22442,22 @@ static const char *startup_source = "(string-append" " \"identifier already \"" " (if defined?_1 \"defined\" \"required\")" -"(if(zero-phase? phase_60)" +"(if(zero-phase? phase_62)" " (let-values () \"\")" -"(if(label-phase? phase_60)" +"(if(label-phase? phase_62)" " (let-values () \" for label\")" -"(if(= 1 phase_60)" +"(if(= 1 phase_62)" " (let-values () \" for syntax\")" "(let-values()" -" (format \" for phase ~a\" phase_60))))))" +" (format \" for phase ~a\" phase_62))))))" " orig-s_1" " 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_65 ok-binding_0) #f)" +"(if(if ok-binding_0(same-binding? b_66 ok-binding_0) #f)" "(let-values()" "(begin" -"(if(same-binding-nominals? b_65 ok-binding_0)" +"(if(same-binding-nominals? b_66 ok-binding_0)" "(void)" "(let-values()" "(let-values(((update!_0)" @@ -22344,9 +22471,9 @@ static const char *startup_source = " ok-binding_0)" "((temp160_0)" "(cons" -" b_65" +" b_66" "(module-binding-extra-nominal-bindings" -" b_65))))" +" b_66))))" "(module-binding-update48.1" " #f" " #f" @@ -22371,7 +22498,7 @@ static const char *startup_source = " #f" " #f" " ok-binding159_0)))" -"((phase158_0) phase_60))" +"((phase158_0) phase_62))" "(add-binding!17.1" " #f" " #f" @@ -22396,7 +22523,7 @@ static const char *startup_source = "(let-values(((prev-b_0)" "(hash-ref" " also-required_0" -"(module-binding-sym b_65)" +"(module-binding-sym b_66)" " #f)))" "(begin" "(if(if prev-b_0" @@ -22406,13 +22533,13 @@ static const char *startup_source = "(void))" "(hash-set!" " also-required_0" -"(module-binding-sym b_65)" +"(module-binding-sym b_66)" " 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_65)))" +"(module-binding-nominal-require-phase b_66)))" "(let-values(((sym-to-reqds_3)" "(hash-ref" " at-mod_4" @@ -22427,7 +22554,7 @@ static const char *startup_source = "(let-values(((lst_125) reqds_2))" "(begin" "(void)" -"((letrec-values(((for-loop_156)" +"((letrec-values(((for-loop_157)" "(lambda(only-can-can-shadow-require?_1" " lst_126)" "(begin" @@ -22474,12 +22601,12 @@ static const char *startup_source = " only-can-can-shadow-require?_4)))))" "(if(not" " #f)" -"(for-loop_156" +"(for-loop_157" " only-can-can-shadow-require?_2" " rest_62)" " only-can-can-shadow-require?_2)))" " only-can-can-shadow-require?_1)))))" -" for-loop_156)" +" for-loop_157)" " #t" " lst_125)))))" "(begin" @@ -22494,8 +22621,8 @@ static const char *startup_source = "(let-values()" "(hash-set!" "(requires+provides-also-required r+p_8)" -"(module-binding-sym b_65)" -" b_65)))))" +"(module-binding-sym b_66)" +" b_66)))))" "(let-values()" "(if(if remove-shadowed!?_0" "(not(null? reqds_2))" @@ -22507,7 +22634,7 @@ static const char *startup_source = "(remove-non-matching-requireds" " reqds_2" " id_27" -" phase_60" +" phase_62" " mpi_35" " nominal-phase_6" "(syntax-e$1 id_27))))" @@ -22515,17 +22642,17 @@ static const char *startup_source = " #f)))))))))))))))))))))))))))))))))))" "(define-values" "(add-defined-syms!)" -"(lambda(r+p_9 syms_18 phase_61)" +"(lambda(r+p_9 syms_18 phase_63)" "(begin" "(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_61 '#hasheq())))" +"(let-values(((defined-syms_2)(hash-ref phase-to-defined-syms_0 phase_63 '#hasheq())))" "(let-values(((new-defined-syms_0)" "(let-values(((lst_127) syms_18))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_127)))" -"((letrec-values(((for-loop_144)" +"((letrec-values(((for-loop_145)" "(lambda(defined-syms_3 lst_128)" "(begin" " 'for-loop" @@ -22542,38 +22669,38 @@ static const char *startup_source = " #t))))" "(values defined-syms_6)))))" "(if(not #f)" -"(for-loop_144 defined-syms_4 rest_63)" +"(for-loop_145 defined-syms_4 rest_63)" " defined-syms_4)))" " defined-syms_3)))))" -" for-loop_144)" +" for-loop_145)" " defined-syms_2" " lst_127)))))" -"(hash-set! phase-to-defined-syms_0 phase_61 new-defined-syms_0)))))))" +"(hash-set! phase-to-defined-syms_0 phase_63 new-defined-syms_0)))))))" "(define-values" "(extract-module-requires)" -"(lambda(r+p_10 mod-name_11 phase_62)" +"(lambda(r+p_10 mod-name_11 phase_64)" "(begin" "(let-values(((mpi_36)(intern-mpi r+p_10 mod-name_11)))" "(let-values(((at-mod_5)(hash-ref(requires+provides-requires r+p_10) mpi_36 #f)))" "(if at-mod_5" "(reverse$1" -"(let-values(((ht_102)(hash-ref at-mod_5 phase_62 '#hasheq())))" +"(let-values(((ht_102)(hash-ref at-mod_5 phase_64 '#hasheq())))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-hash ht_102)))" -"((letrec-values(((for-loop_157)" -"(lambda(fold-var_112 i_132)" +"((letrec-values(((for-loop_158)" +"(lambda(fold-var_113 i_132)" "(begin" " 'for-loop" "(if i_132" "(let-values(((sym_38 reqds_3)(hash-iterate-key+value ht_102 i_132)))" -"(let-values(((fold-var_113)" +"(let-values(((fold-var_114)" "(let-values(((lst_129) reqds_3))" "(begin" "(void)" -"((letrec-values(((for-loop_158)" -"(lambda(fold-var_114 lst_130)" +"((letrec-values(((for-loop_159)" +"(lambda(fold-var_115 lst_130)" "(begin" " 'for-loop" "(if(not(null? lst_130))" @@ -22585,35 +22712,35 @@ static const char *startup_source = "(if(pair? lst_130)" "(cdr lst_130)" " null)))" -"(let-values(((fold-var_115)" "(let-values(((fold-var_116)" -" fold-var_114))" "(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_62" +" phase_64" " sym_38))" -" fold-var_116))))" +" fold-var_117))))" "(values" -" fold-var_117)))))" +" fold-var_118)))))" "(if(not #f)" -"(for-loop_158" -" fold-var_115" +"(for-loop_159" +" fold-var_116" " rest_64)" -" fold-var_115)))" -" fold-var_114)))))" -" for-loop_158)" -" fold-var_112" +" fold-var_116)))" +" fold-var_115)))))" +" for-loop_159)" +" fold-var_113" " lst_129)))))" "(if(not #f)" -"(for-loop_157 fold-var_113(hash-iterate-next ht_102 i_132))" -" fold-var_113)))" -" fold-var_112)))))" -" for-loop_157)" +"(for-loop_158 fold-var_114(hash-iterate-next ht_102 i_132))" +" fold-var_114)))" +" fold-var_113)))))" +" for-loop_158)" " null" "(hash-iterate-first ht_102)))))" " #f))))))" @@ -22625,7 +22752,7 @@ static const char *startup_source = "(if or-part_175 or-part_175 null)))))" "(define-values" "(extract-all-module-requires)" -"(lambda(r+p_12 mod-name_12 phase_49)" +"(lambda(r+p_12 mod-name_12 phase_51)" "(begin" "(let-values(((self_10)(requires+provides-self r+p_12)))" "(let-values(((requires_2)(requires+provides-requires r+p_12)))" @@ -22637,17 +22764,17 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_131)))" -"((letrec-values(((for-loop_159)" -"(lambda(fold-var_118 lst_132)" +"((letrec-values(((for-loop_160)" +"(lambda(fold-var_119 lst_132)" "(begin" " 'for-loop" "(if(pair? lst_132)" "(let-values(((mod-name_13)(unsafe-car lst_132))" "((rest_65)(unsafe-cdr lst_132)))" -"(let-values(((fold-var_119)" -"(let-values(((fold-var_120) fold-var_118))" +"(let-values(((fold-var_120)" +"(let-values(((fold-var_121) fold-var_119))" "(if(eq? mod-name_13 self_10)" -" fold-var_120" +" fold-var_121" "(let-values(((phase-to-requireds_0)" "(hash-ref" " requires_2" @@ -22655,20 +22782,20 @@ static const char *startup_source = " '#hasheqv())))" "(begin" " #t" -"((letrec-values(((for-loop_160)" -"(lambda(fold-var_121)" +"((letrec-values(((for-loop_161)" +"(lambda(fold-var_122)" "(begin" " 'for-loop" "(let-values()" -"(let-values(((fold-var_122)" +"(let-values(((fold-var_123)" "(let-values(((lst_133)" "(if(eq?" -" phase_49" +" phase_51" " 'all)" "(hash-keys" " phase-to-requireds_0)" "(list" -" phase_49))))" +" phase_51))))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" @@ -22676,24 +22803,24 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_133)))" -"((letrec-values(((for-loop_161)" -"(lambda(fold-var_123" +"((letrec-values(((for-loop_162)" +"(lambda(fold-var_124" " lst_134)" "(begin" " 'for-loop" "(if(pair?" " lst_134)" -"(let-values(((phase_63)" +"(let-values(((phase_65)" "(unsafe-car" " lst_134))" "((rest_66)" "(unsafe-cdr" " lst_134)))" -"(let-values(((fold-var_124)" +"(let-values(((fold-var_125)" "(let-values(((ht_103)" "(hash-ref" " phase-to-requireds_0" -" phase_63" +" phase_65" "(lambda()" "(esc_0" " #f)))))" @@ -22704,8 +22831,8 @@ static const char *startup_source = "(let-values()" "(check-in-hash" " ht_103)))" -"((letrec-values(((for-loop_162)" -"(lambda(fold-var_125" +"((letrec-values(((for-loop_163)" +"(lambda(fold-var_126" " i_133)" "(begin" " 'for-loop" @@ -22715,13 +22842,13 @@ static const char *startup_source = "(hash-iterate-key+value" " ht_103" " i_133)))" -"(let-values(((fold-var_126)" +"(let-values(((fold-var_127)" "(let-values(((lst_135)" " reqds_4))" "(begin" "(void)" -"((letrec-values(((for-loop_163)" -"(lambda(fold-var_127" +"((letrec-values(((for-loop_164)" +"(lambda(fold-var_128" " lst_136)" "(begin" " 'for-loop" @@ -22740,60 +22867,60 @@ static const char *startup_source = "(cdr" " lst_136)" " null)))" -"(let-values(((fold-var_128)" "(let-values(((fold-var_129)" -" fold-var_127))" "(let-values(((fold-var_130)" +" fold-var_128))" +"(let-values(((fold-var_131)" "(let-values()" "(cons" "(let-values()" "(normalize-required" " reqd_2" " mod-name_13" -" phase_63" +" phase_65" " sym_39))" -" fold-var_129))))" +" fold-var_130))))" "(values" -" fold-var_130)))))" +" fold-var_131)))))" "(if(not" " #f)" -"(for-loop_163" -" fold-var_128" +"(for-loop_164" +" fold-var_129" " rest_67)" -" fold-var_128)))" -" fold-var_127)))))" -" for-loop_163)" -" fold-var_125" +" fold-var_129)))" +" fold-var_128)))))" +" for-loop_164)" +" fold-var_126" " lst_135)))))" "(if(not" " #f)" -"(for-loop_162" -" fold-var_126" +"(for-loop_163" +" fold-var_127" "(hash-iterate-next" " ht_103" " i_133))" -" fold-var_126)))" -" fold-var_125)))))" -" for-loop_162)" -" fold-var_123" +" fold-var_127)))" +" fold-var_126)))))" +" for-loop_163)" +" fold-var_124" "(hash-iterate-first" " ht_103))))))" "(if(not" " #f)" -"(for-loop_161" -" fold-var_124" +"(for-loop_162" +" fold-var_125" " rest_66)" -" fold-var_124)))" -" fold-var_123)))))" -" for-loop_161)" -" fold-var_121" +" fold-var_125)))" +" fold-var_124)))))" +" for-loop_162)" +" fold-var_122" " lst_133)))))" -" fold-var_122))))))" +" fold-var_123))))))" +" for-loop_161)" +" fold-var_121)))))))" +"(if(not #f)(for-loop_160 fold-var_120 rest_65) fold-var_120)))" +" fold-var_119)))))" " for-loop_160)" -" fold-var_120)))))))" -"(if(not #f)(for-loop_159 fold-var_119 rest_65) fold-var_119)))" -" fold-var_118)))))" -" for-loop_159)" " null" " lst_131)))))))))))" "(define-values" @@ -22811,7 +22938,7 @@ static const char *startup_source = " 'add-provide!109" "(let-values(((r+p_13) r+p102_0))" "(let-values(((sym_40) sym103_0))" -"(let-values(((phase_64) phase104_0))" +"(let-values(((phase_66) phase104_0))" "(let-values(((binding_13) binding105_0))" "(let-values(((immed-binding_0) immed-binding106_0))" "(let-values(((id_28) id107_0))" @@ -22828,11 +22955,11 @@ static const char *startup_source = "(void))" "(hash-update!" "(requires+provides-provides r+p_13)" -" phase_64" +" phase_66" "(lambda(at-phase_9)" "(let-values(((b/p_0)(hash-ref at-phase_9 sym_40 #f)))" -"(let-values(((b_66)(provided-as-binding b/p_0)))" -"(if(not b_66)" +"(let-values(((b_67)(provided-as-binding b/p_0)))" +"(if(not b_67)" "(let-values()" "(let-values(((plain-binding_0)" "(if(binding-free=id binding_13)" @@ -22869,7 +22996,7 @@ static const char *startup_source = "(if or-part_176 or-part_176 as-transformer?_2))" "(provided1.1 plain-binding_0 as-protected?_0 as-transformer?_2)" " plain-binding_0))))" -"(if(same-binding? b_66 binding_13)" +"(if(same-binding? b_67 binding_13)" "(let-values() at-phase_9)" "(let-values()" "(raise-syntax-error$1" @@ -22897,27 +23024,27 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_137)))" -"((letrec-values(((for-loop_164)" -"(lambda(fold-var_131 lst_138)" +"((letrec-values(((for-loop_165)" +"(lambda(fold-var_132 lst_138)" "(begin" " 'for-loop" "(if(pair? lst_138)" -"(let-values(((phase_65)(unsafe-car lst_138))" +"(let-values(((phase_67)(unsafe-car lst_138))" "((rest_68)(unsafe-cdr lst_138)))" -"(let-values(((fold-var_132)" -"(let-values(((fold-var_133) fold-var_131))" -"(let-values(((fold-var_134)" +"(let-values(((fold-var_133)" +"(let-values(((fold-var_134) fold-var_132))" +"(let-values(((fold-var_135)" "(let-values()" "(cons" "(let-values()" "(cons" -" phase_65" +" phase_67" "(reverse$1" "(let-values(((lst_139)" "(reverse$1" "(hash-ref" " phase-to-mpis-in-order_0" -" phase_65))))" +" phase_67))))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" @@ -22925,8 +23052,8 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_139)))" -"((letrec-values(((for-loop_165)" -"(lambda(fold-var_135" +"((letrec-values(((for-loop_166)" +"(lambda(fold-var_136" " lst_140)" "(begin" " 'for-loop" @@ -22938,16 +23065,16 @@ static const char *startup_source = "((rest_69)" "(unsafe-cdr" " lst_140)))" -"(let-values(((fold-var_136)" "(let-values(((fold-var_137)" -" fold-var_135))" +"(let-values(((fold-var_138)" +" fold-var_136))" "(if(eq?" " mpi_37" " old-self_0)" -" fold-var_137" -"(let-values(((fold-var_138)" -" fold-var_137))" +" fold-var_138" "(let-values(((fold-var_139)" +" fold-var_138))" +"(let-values(((fold-var_140)" "(let-values()" "(cons" "(let-values()" @@ -22955,26 +23082,26 @@ static const char *startup_source = " mpi_37" " old-self_0" " new-self_1))" -" fold-var_138))))" +" fold-var_139))))" "(values" -" fold-var_139)))))))" +" fold-var_140)))))))" "(if(not" " #f)" -"(for-loop_165" -" fold-var_136" +"(for-loop_166" +" fold-var_137" " rest_69)" -" fold-var_136)))" -" fold-var_135)))))" -" for-loop_165)" +" fold-var_137)))" +" fold-var_136)))))" +" for-loop_166)" " null" " lst_139))))))" -" fold-var_133))))" -"(values fold-var_134)))))" +" fold-var_134))))" +"(values fold-var_135)))))" "(if(not #f)" -"(for-loop_164 fold-var_132 rest_68)" -" fold-var_132)))" -" fold-var_131)))))" -" for-loop_164)" +"(for-loop_165 fold-var_133 rest_68)" +" fold-var_133)))" +" fold-var_132)))))" +" for-loop_165)" " null" " lst_137))))))))))" "(let-values(((extract-provides_0)" @@ -22993,12 +23120,12 @@ static const char *startup_source = "(let-values(((ht_104) provides_5))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-in-hash ht_104)))" -"((letrec-values(((for-loop_166)" +"((letrec-values(((for-loop_167)" "(lambda(table_136 i_134)" "(begin" " 'for-loop" "(if i_134" -"(let-values(((phase_66 at-phase_10)(hash-iterate-key+value ht_104 i_134)))" +"(let-values(((phase_68 at-phase_10)(hash-iterate-key+value ht_104 i_134)))" "(let-values(((table_137)" "(let-values(((table_138) table_136))" "(let-values(((table_139)" @@ -23006,7 +23133,7 @@ static const char *startup_source = "(let-values(((key_53 val_44)" "(let-values()" "(values" -" phase_66" +" phase_68" "(let-values(((ht_105)" " at-phase_10))" "(begin" @@ -23015,7 +23142,7 @@ static const char *startup_source = "(void)" "(let-values()" "(check-in-hash ht_105)))" -"((letrec-values(((for-loop_167)" +"((letrec-values(((for-loop_168)" "(lambda(table_140" " i_135)" "(begin" @@ -23072,24 +23199,24 @@ static const char *startup_source = " table_143)))))" "(if(not" " #f)" -"(for-loop_167" +"(for-loop_168" " table_141" "(hash-iterate-next" " ht_105" " i_135))" " table_141)))" " table_140)))))" -" for-loop_167)" +" for-loop_168)" " '#hasheq()" "(hash-iterate-first" " ht_105))))))))" "(hash-set table_138 key_53 val_44)))))" "(values table_139)))))" "(if(not #f)" -"(for-loop_166 table_137(hash-iterate-next ht_104 i_134))" +"(for-loop_167 table_137(hash-iterate-next ht_104 i_134))" " table_137)))" " table_136)))))" -" for-loop_166)" +" for-loop_167)" " '#hasheqv()" "(hash-iterate-first ht_104)))))))" "(define-values" @@ -23131,16 +23258,16 @@ 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:_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 'adjust-rename #f 2 0 #f null(current-inspector) #f '(0 1) #f 'adjust-rename)))))" "(values" -" struct:_61" -" make-_61" -" ?_61" -"(make-struct-field-accessor -ref_61 0 'to-id)" -"(make-struct-field-accessor -ref_61 1 'from-sym))))" +" struct:_62" +" make-_62" +" ?_62" +"(make-struct-field-accessor -ref_62 0 'to-id)" +"(make-struct-field-accessor -ref_62 1 'from-sym))))" "(define-values(layers$1) '(raw phaseless path))" "(define-values" "(parse-and-perform-requires!30.1)" @@ -23207,8 +23334,8 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()(check-list lst_141)))" -"((letrec-values(((for-loop_168)" -"(lambda(result_75 lst_13)" +"((letrec-values(((for-loop_169)" +"(lambda(result_76 lst_13)" "(begin" " 'for-loop" "(if(pair? lst_13)" @@ -23218,10 +23345,10 @@ static const char *startup_source = "((rest_70)" "(unsafe-cdr" " lst_13)))" -"(let-values(((result_76)" -"(let-values()" "(let-values(((result_77)" "(let-values()" +"(let-values(((result_78)" +"(let-values()" "(let-values()" "(let-values(((check-nested_0)" "(let-values(((check-nested117_0)" @@ -23295,49 +23422,49 @@ static const char *startup_source = " for-meta119_0" " phase-level120_0" " spec121_0)" -"(let-values(((s_192)" +"(let-values(((s_193)" " req_0))" "(let-values(((orig-s_4)" -" s_192))" +" s_193))" "(let-values(((for-meta119_1" " phase-level120_1" " spec121_1)" -"(let-values(((s_193)" -"(if(syntax?$1" -" s_192)" -"(syntax-e$1" -" s_192)" -" s_192)))" -"(if(pair?" -" s_193)" -"(let-values(((for-meta122_0)" "(let-values(((s_194)" -"(car" +"(if(syntax?$1" +" s_193)" +"(syntax-e$1" +" s_193)" " s_193)))" -" s_194))" +"(if(pair?" +" s_194)" +"(let-values(((for-meta122_0)" +"(let-values(((s_195)" +"(car" +" s_194)))" +" s_195))" "((phase-level123_0" " spec124_0)" -"(let-values(((s_195)" +"(let-values(((s_196)" "(cdr" -" s_193)))" +" s_194)))" "(let-values(((s_60)" "(if(syntax?$1" -" s_195)" +" s_196)" "(syntax-e$1" -" s_195)" -" s_195)))" +" s_196)" +" s_196)))" "(if(pair?" " s_60)" "(let-values(((phase-level125_0)" -"(let-values(((s_196)" +"(let-values(((s_197)" "(car" " s_60)))" -" s_196))" +" s_197))" "((spec126_0)" "(let-values(((s_61)" "(cdr" " s_60)))" -"(let-values(((s_197)" +"(let-values(((s_198)" "(if(syntax?$1" " s_61)" "(syntax-e$1" @@ -23345,7 +23472,7 @@ static const char *startup_source = " s_61)))" "(let-values(((flat-s_0)" "(to-syntax-list.1" -" s_197)))" +" s_198)))" "(if(not" " flat-s_0)" "(let-values()" @@ -23375,12 +23502,12 @@ static const char *startup_source = " for-meta119_1" " phase-level120_1" " spec121_1))))))" -"(let-values(((p_32)" +"(let-values(((p_33)" "(syntax-e$1" " phase-level120_0)))" "(begin" "(if(phase?" -" p_32)" +" p_33)" "(void)" "(let-values()" "(raise-syntax-error$1" @@ -23397,7 +23524,7 @@ static const char *startup_source = " req_0))" "(phase+" " phase-shift_10" -" p_32)" +" p_33)" " just-meta_0" " adjust_0" " #f" @@ -23422,24 +23549,24 @@ static const char *startup_source = " s_65))" "(let-values(((for-syntax127_1" " spec128_1)" -"(let-values(((s_198)" +"(let-values(((s_199)" "(if(syntax?$1" " s_65)" "(syntax-e$1" " s_65)" " s_65)))" "(if(pair?" -" s_198)" +" s_199)" "(let-values(((for-syntax129_0)" -"(let-values(((s_199)" +"(let-values(((s_200)" "(car" -" s_198)))" -" s_199))" +" s_199)))" +" s_200))" "((spec130_0)" "(let-values(((s_38)" "(cdr" -" s_198)))" -"(let-values(((s_200)" +" s_199)))" +"(let-values(((s_201)" "(if(syntax?$1" " s_38)" "(syntax-e$1" @@ -23447,7 +23574,7 @@ static const char *startup_source = " s_38)))" "(let-values(((flat-s_1)" "(to-syntax-list.1" -" s_200)))" +" s_201)))" "(if(not" " flat-s_1)" "(let-values()" @@ -23496,38 +23623,38 @@ static const char *startup_source = "(let-values(((ok?_4" " for-template131_0" " spec132_0)" -"(let-values(((s_201)" +"(let-values(((s_202)" " req_0))" "(let-values(((orig-s_6)" -" s_201))" +" s_202))" "(let-values(((for-template131_1" " spec132_1)" -"(let-values(((s_202)" -"(if(syntax?$1" -" s_201)" -"(syntax-e$1" -" s_201)" -" s_201)))" -"(if(pair?" -" s_202)" -"(let-values(((for-template133_0)" "(let-values(((s_203)" -"(car" -" s_202)))" -" s_203))" -"((spec134_0)" -"(let-values(((s_204)" -"(cdr" -" s_202)))" -"(let-values(((s_205)" "(if(syntax?$1" -" s_204)" +" s_202)" "(syntax-e$1" -" s_204)" -" s_204)))" +" s_202)" +" s_202)))" +"(if(pair?" +" s_203)" +"(let-values(((for-template133_0)" +"(let-values(((s_204)" +"(car" +" s_203)))" +" s_204))" +"((spec134_0)" +"(let-values(((s_205)" +"(cdr" +" s_203)))" +"(let-values(((s_206)" +"(if(syntax?$1" +" s_205)" +"(syntax-e$1" +" s_205)" +" s_205)))" "(let-values(((flat-s_2)" "(to-syntax-list.1" -" s_205)))" +" s_206)))" "(if(not" " flat-s_2)" "(let-values()" @@ -23576,30 +23703,30 @@ static const char *startup_source = "(let-values(((ok?_5" " for-label135_0" " spec136_0)" -"(let-values(((s_206)" +"(let-values(((s_207)" " req_0))" "(let-values(((orig-s_7)" -" s_206))" +" s_207))" "(let-values(((for-label135_1" " spec136_1)" "(let-values(((s_96)" "(if(syntax?$1" -" s_206)" +" s_207)" "(syntax-e$1" -" s_206)" -" s_206)))" +" s_207)" +" s_207)))" "(if(pair?" " s_96)" "(let-values(((for-label137_0)" -"(let-values(((s_207)" +"(let-values(((s_208)" "(car" " s_96)))" -" s_207))" +" s_208))" "((spec138_0)" "(let-values(((s_97)" "(cdr" " s_96)))" -"(let-values(((s_208)" +"(let-values(((s_209)" "(if(syntax?$1" " s_97)" "(syntax-e$1" @@ -23607,7 +23734,7 @@ static const char *startup_source = " s_97)))" "(let-values(((flat-s_3)" "(to-syntax-list.1" -" s_208)))" +" s_209)))" "(if(not" " flat-s_3)" "(let-values()" @@ -23673,10 +23800,10 @@ static const char *startup_source = "(if(pair?" " s_105)" "(let-values(((just-meta142_0)" -"(let-values(((s_209)" +"(let-values(((s_151)" "(car" " s_105)))" -" s_209))" +" s_151))" "((phase-level143_0" " spec144_0)" "(let-values(((s_210)" @@ -23737,12 +23864,12 @@ static const char *startup_source = " just-meta139_1" " phase-level140_1" " spec141_1))))))" -"(let-values(((p_33)" +"(let-values(((p_34)" "(syntax-e$1" " phase-level140_0)))" "(begin" "(if(phase?" -" p_33)" +" p_34)" "(void)" "(let-values()" "(raise-syntax-error$1" @@ -23758,7 +23885,7 @@ static const char *startup_source = " or-part_180" " req_0))" " phase-shift_10" -" p_33" +" p_34" " adjust_0" " for-meta-ok?_0" " #f" @@ -24160,7 +24287,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_143)))" -"((letrec-values(((for-loop_169)" +"((letrec-values(((for-loop_170)" "(lambda(id_35" " lst_144)" "(begin" @@ -24204,12 +24331,12 @@ static const char *startup_source = " id_38)))))" "(if(not" " #f)" -"(for-loop_169" +"(for-loop_170" " id_36" " rest_72)" " id_36)))" " id_35)))))" -" for-loop_169)" +" for-loop_170)" " null" " lst_143)))))" "(reverse$1" @@ -24370,7 +24497,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_145)))" -"((letrec-values(((for-loop_140)" +"((letrec-values(((for-loop_141)" "(lambda(id_40" " lst_146)" "(begin" @@ -24414,12 +24541,12 @@ static const char *startup_source = " id_43)))))" "(if(not" " #f)" -"(for-loop_140" +"(for-loop_141" " id_41" " rest_73)" " id_41)))" " id_40)))))" -" for-loop_140)" +" for-loop_141)" " null" " lst_145)))))" "(reverse$1" @@ -24791,19 +24918,19 @@ static const char *startup_source = "(set! initial-require?_0" " #f)))))))))))))))))))))))))" "(values" -" result_77)))))" +" result_78)))))" "(if(if(not" -"((lambda x_50" -"(not result_76))" +"((lambda x_52" +"(not result_77))" " req_0))" "(not #f)" " #f)" -"(for-loop_168" -" result_76" +"(for-loop_169" +" result_77" " rest_70)" -" result_76)))" -" result_75)))))" -" for-loop_168)" +" result_77)))" +" result_76)))))" +" for-loop_169)" " #t" " lst_141)))))))" " loop_85)" @@ -24822,7 +24949,7 @@ 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_170)" +"((letrec-values(((for-loop_171)" "(lambda(table_144 lst_148)" "(begin" " 'for-loop" @@ -24839,9 +24966,9 @@ static const char *startup_source = " #t))))" "(hash-set table_146 key_55 val_46)))))" "(values table_147)))))" -"(if(not #f)(for-loop_170 table_145 rest_74) table_145)))" +"(if(not #f)(for-loop_171 table_145 rest_74) table_145)))" " table_144)))))" -" for-loop_170)" +" for-loop_171)" " '#hash()" " lst_147))))))" "(define-values" @@ -25426,7 +25553,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_149)))" -"((letrec-values(((for-loop_171)" +"((letrec-values(((for-loop_172)" "(lambda(lst_150)" "(begin" " 'for-loop" @@ -25449,11 +25576,11 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_171" +"(for-loop_172" " rest_75)" "(values))))" "(values))))))" -" for-loop_171)" +" for-loop_172)" " lst_149)))" "(void)))" "(void))" @@ -25493,7 +25620,7 @@ static const char *startup_source = "(let-values()" "(check-in-immutable-hash-keys" " ht_106)))" -"((letrec-values(((for-loop_172)" +"((letrec-values(((for-loop_173)" "(lambda(i_136)" "(begin" " 'for-loop" @@ -25523,13 +25650,13 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_172" +"(for-loop_173" "(unsafe-immutable-hash-iterate-next" " ht_106" " i_136))" "(values))))" "(values))))))" -" for-loop_172)" +" for-loop_173)" "(unsafe-immutable-hash-iterate-first" " ht_106))))" "(void)))" @@ -25578,7 +25705,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-hash ht_107)))" -"((letrec-values(((for-loop_173)" +"((letrec-values(((for-loop_174)" "(lambda(i_137)" "(begin" " 'for-loop" @@ -25603,7 +25730,7 @@ static const char *startup_source = "(let-values()" "(begin" "(let-values()" -"(let-values(((phase_67)" +"(let-values(((phase_69)" "(phase+" " phase-shift_12" " provide-phase-level_5)))" @@ -25633,7 +25760,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_151)))" -"((letrec-values(((for-loop_174)" +"((letrec-values(((for-loop_175)" "(lambda(lst_152)" "(begin" " 'for-loop" @@ -25658,7 +25785,7 @@ static const char *startup_source = " #f)))" "(if binding/p_4" "(let-values()" -"(let-values(((b_67)" +"(let-values(((b_68)" "(let-values(((binding/p294_0)" " binding/p_4)" "((sym295_0)" @@ -25680,7 +25807,7 @@ static const char *startup_source = " sym295_0))))" "(let-values(((sym_45)" "(filter_0" -" b_67" +" b_68" "(provided-as-transformer?" " binding/p_4))))" "(if(if sym_45" @@ -25693,9 +25820,9 @@ static const char *startup_source = " in-stx_2" " sym_45))" "((b301_0)" -" b_67)" +" b_68)" "((phase302_0)" -" phase_67))" +" phase_69))" "(add-binding!17.1" " #f" " #f" @@ -25710,11 +25837,11 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_174" +"(for-loop_175" " rest_76)" "(values))))" "(values))))))" -" for-loop_174)" +" for-loop_175)" " lst_151)))" "(void)))" "(void))" @@ -25755,7 +25882,7 @@ static const char *startup_source = " phase-shift_12" " bulk-binding-registry_10))" "((phase305_0)" -" phase_67)" +" phase_69)" "((orig-s306_0)" " orig-s_15)" "((temp307_0)" @@ -25776,11 +25903,11 @@ static const char *startup_source = "(values)))" "(values)))))" "(if(not #f)" -"(for-loop_173" +"(for-loop_174" "(hash-iterate-next ht_107 i_137))" "(values))))" "(values))))))" -" for-loop_173)" +" for-loop_174)" "(hash-iterate-first ht_107))))" "(void)))))))))))))))))))))))" "(define-values" @@ -25869,14 +25996,14 @@ static const char *startup_source = " \"bad syntax\"" " orig-s_16)))))" "(values #t for-meta308_1 phase-level309_1 spec310_1))))))" -"(let-values(((p_34)(syntax-e$1 phase-level309_0)))" +"(let-values(((p_35)(syntax-e$1 phase-level309_0)))" "(begin" -"(if(phase? p_34)" +"(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_34 1)(map2(loop_86 #t) spec310_0)))))))" +"(list* for-meta308_0(phase+ p_35 1)(map2(loop_86 #t) spec310_0)))))))" "(if(equal? tmp_25 'for-syntax)" "(let-values()" "(let-values(((ok?_13 for-syntax316_0 spec317_0)" @@ -26137,10 +26264,10 @@ static const char *startup_source = " 'constant" " top-level-bind!-id" "(lambda(id_22 mpi_41 orig-phase_0 phase-shift_14 ns_51 sym_46 trans?_0 trans-val_0)" -"(let-values(((phase_45)(phase+ orig-phase_0 phase-shift_14)))" -"(let-values(((b_68)" +"(let-values(((phase_47)(phase+ orig-phase_0 phase-shift_14)))" +"(let-values(((b_69)" "(let-values(((mpi4_0) mpi_41)" -"((phase5_0) phase_45)" +"((phase5_0) phase_47)" "((sym6_1) sym_46)" "((temp7_0)(root-expand-context-frame-id(namespace-get-root-expand-ctx ns_51))))" "(make-module-binding22.1" @@ -26166,11 +26293,11 @@ static const char *startup_source = " phase5_0" " sym6_1))))" "(begin" -"(let-values(((id1_3) id_22)((b2_4) b_68)((phase3_1) phase_45))" +"(let-values(((id1_3) id_22)((b2_4) b_69)((phase3_1) phase_47))" "(add-binding!17.1 #f #f #f #f id1_3 b2_4 phase3_1))" "(if trans?_0" -"(let-values()(if trans-val_0(let-values()(maybe-install-free=id! trans-val_0 id_22 phase_45))(void)))" -"(let-values()(namespace-unset-transformer! ns_51 phase_45 sym_46)))))))" +"(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_46)))))))" " top-level-require!-id" "(lambda(stx_12 ns_52)" "(let-values(((reqs_2)(cdr(syntax->list$1 stx_12))))" @@ -26312,8 +26439,8 @@ static const char *startup_source = "(decode-namespace-scopes)" "(lambda(stx_13)" "(begin" -"(let-values(((vec_51)(syntax-e$1 stx_13)))" -"(values(syntax-scope-set(vector-ref vec_51 0) 0)(syntax-scope-set(vector-ref vec_51 1) 0))))))" +"(let-values(((vec_54)(syntax-e$1 stx_13)))" +"(values(syntax-scope-set(vector-ref vec_54 0) 0)(syntax-scope-set(vector-ref vec_54 1) 0))))))" "(define-values" "(namespace-scopes=?)" "(lambda(nss1_0 nss2_0)" @@ -26366,35 +26493,35 @@ static const char *startup_source = " header-syntax-literals" " set-header-binding-syms-in-order!" " set-header-require-vars-in-order!)" -"(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 'header #f 8 0 #f null(current-inspector) #f '(0 1 3 4 6 7) #f 'header)))))" "(values" -" struct:_62" -" make-_62" -" ?_62" -"(make-struct-field-accessor -ref_62 0 'module-path-indexes)" -"(make-struct-field-accessor -ref_62 1 'binding-sym-to-define-sym)" -"(make-struct-field-accessor -ref_62 2 'binding-syms-in-order)" -"(make-struct-field-accessor -ref_62 3 'require-var-to-import-sym)" -"(make-struct-field-accessor -ref_62 4 'import-sym-to-extra-inspectors)" -"(make-struct-field-accessor -ref_62 5 'require-vars-in-order)" -"(make-struct-field-accessor -ref_62 6 'define-and-import-syms)" -"(make-struct-field-accessor -ref_62 7 'syntax-literals)" -"(make-struct-field-mutator -set!_62 2 'binding-syms-in-order)" -"(make-struct-field-mutator -set!_62 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:_63 make-_63 ?_63 -ref_63 -set!_63)" -"(let-values()" -"(let-values()(make-struct-type 'variable-use #f 2 0 #f null #f #f '(0 1) #f 'variable-use)))))" -"(values" " struct:_63" " make-_63" " ?_63" -"(make-struct-field-accessor -ref_63 0 'module-use)" -"(make-struct-field-accessor -ref_63 1 'sym))))" +"(make-struct-field-accessor -ref_63 0 'module-path-indexes)" +"(make-struct-field-accessor -ref_63 1 'binding-sym-to-define-sym)" +"(make-struct-field-accessor -ref_63 2 'binding-syms-in-order)" +"(make-struct-field-accessor -ref_63 3 'require-var-to-import-sym)" +"(make-struct-field-accessor -ref_63 4 'import-sym-to-extra-inspectors)" +"(make-struct-field-accessor -ref_63 5 'require-vars-in-order)" +"(make-struct-field-accessor -ref_63 6 'define-and-import-syms)" +"(make-struct-field-accessor -ref_63 7 'syntax-literals)" +"(make-struct-field-mutator -set!_63 2 'binding-syms-in-order)" +"(make-struct-field-mutator -set!_63 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:_64 make-_64 ?_64 -ref_64 -set!_64)" +"(let-values()" +"(let-values()(make-struct-type 'variable-use #f 2 0 #f null #f #f '(0 1) #f 'variable-use)))))" +"(values" +" struct:_64" +" make-_64" +" ?_64" +"(make-struct-field-accessor -ref_64 0 'module-use)" +"(make-struct-field-accessor -ref_64 1 'sym))))" "(define-values(make-syntax-literals)(lambda()(begin(syntax-literals1.1 null 0))))" "(define-values" "(make-header)" @@ -26417,21 +26544,21 @@ static const char *startup_source = " pos_83))))))" "(define-values" "(add-syntax-literals!)" -"(lambda(sl_1 vec_52)" +"(lambda(sl_1 vec_55)" "(begin" "(let-values(((pos_84)(syntax-literals-count sl_1)))" "(begin" -"(let-values(((vec_53 len_27)" -"(let-values(((vec_54) vec_52))" -"(begin(check-vector vec_54)(values vec_54(unsafe-vector-length vec_54))))))" +"(let-values(((vec_56 len_28)" +"(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_175)" +"((letrec-values(((for-loop_176)" "(lambda(pos_85)" "(begin" " 'for-loop" -"(if(unsafe-fx< pos_85 len_27)" -"(let-values(((e_12)(unsafe-vector-ref vec_53 pos_85)))" +"(if(unsafe-fx< pos_85 len_28)" +"(let-values(((e_12)(unsafe-vector-ref vec_56 pos_85)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -26441,12 +26568,12 @@ static const char *startup_source = "(add-syntax-literal! sl_1 e_12))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_175(unsafe-fx+ 1 pos_85))(values))))" +"(if(not #f)(for-loop_176(unsafe-fx+ 1 pos_85))(values))))" "(values))))))" -" for-loop_175)" +" for-loop_176)" " 0)))" "(void)" -"(cons pos_84(vector-length vec_52)))))))" +"(cons pos_84(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)" @@ -26600,12 +26727,12 @@ static const char *startup_source = " 'register-required-variable-use!19" "(let-values(((header_2) header14_0))" "(let-values(((mpi_42) mpi15_0))" -"(let-values(((phase_68) phase16_1))" +"(let-values(((phase_70) phase16_1))" "(let-values(((sym_49) sym17_0))" "(let-values(((extra-inspector_4) extra-inspector18_0))" "(let-values(((defined?_2)(if defined?13_0 defined?12_0 #f)))" "(let-values()" -"(let-values(((key_56)(variable-use3.1(module-use1.1 mpi_42 phase_68) sym_49)))" +"(let-values(((key_56)(variable-use3.1(module-use1.1 mpi_42 phase_70) sym_49)))" "(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_56 #f)))" "(let-values(((var-sym_0)" @@ -26643,7 +26770,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_69 cctx_0 cross-linklet-inlining?_0)" +"(lambda(header_5 phase_71 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)))" @@ -26651,7 +26778,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_153)))" -"((letrec-values(((for-loop_176)" +"((letrec-values(((for-loop_177)" "(lambda(ht_108 link-mod-uses_1 lst_154)" "(begin" " 'for-loop" @@ -26690,10 +26817,10 @@ static const char *startup_source = "(cons mu_2 link-mod-uses_3)))))))" "(values ht_111 link-mod-uses_4)))))" "(if(not #f)" -"(for-loop_176 ht_109 link-mod-uses_2 rest_77)" +"(for-loop_177 ht_109 link-mod-uses_2 rest_77)" "(values ht_109 link-mod-uses_2))))" "(values ht_108 link-mod-uses_1))))))" -" for-loop_176)" +" for-loop_177)" " '#hash()" " null" " lst_153)))))" @@ -26703,15 +26830,15 @@ static const char *startup_source = "(let-values(((lst_34) link-mod-uses_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_34)))" -"((letrec-values(((for-loop_177)" -"(lambda(fold-var_140 lst_155)" +"((letrec-values(((for-loop_178)" +"(lambda(fold-var_141 lst_155)" "(begin" " 'for-loop" "(if(pair? lst_155)" "(let-values(((mu_3)(unsafe-car lst_155))((rest_78)(unsafe-cdr lst_155)))" -"(let-values(((fold-var_141)" -"(let-values(((fold-var_142) fold-var_140))" -"(let-values(((fold-var_143)" +"(let-values(((fold-var_142)" +"(let-values(((fold-var_143) fold-var_141))" +"(let-values(((fold-var_144)" "(let-values()" "(cons" "(let-values()" @@ -26724,8 +26851,8 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()(check-list lst_109)))" -"((letrec-values(((for-loop_178)" -"(lambda(fold-var_144" +"((letrec-values(((for-loop_179)" +"(lambda(fold-var_145" " lst_156)" "(begin" " 'for-loop" @@ -26737,16 +26864,16 @@ static const char *startup_source = "((rest_79)" "(unsafe-cdr" " lst_156)))" -"(let-values(((fold-var_145)" -"(let-values(((fold-var_40)" -" fold-var_144))" +"(let-values(((fold-var_146)" +"(let-values(((fold-var_147)" +" fold-var_145))" "(if(equal?" " mu_3" "(variable-use-module-use" " vu_1))" -"(let-values(((fold-var_41)" -" fold-var_40))" -"(let-values(((fold-var_42)" +"(let-values(((fold-var_148)" +" fold-var_147))" +"(let-values(((fold-var_39)" "(let-values()" "(cons" "(let-values()" @@ -26765,39 +26892,39 @@ static const char *startup_source = "(list" " ex-sym_0" " var-sym_2)))))" -" fold-var_41))))" +" fold-var_148))))" "(values" -" fold-var_42)))" -" fold-var_40))))" +" fold-var_39)))" +" fold-var_147))))" "(if(not #f)" -"(for-loop_178" -" fold-var_145" +"(for-loop_179" +" fold-var_146" " rest_79)" -" fold-var_145)))" -" fold-var_144)))))" -" for-loop_178)" +" fold-var_146)))" +" fold-var_145)))))" +" for-loop_179)" " null" " lst_109)))))" -" fold-var_142))))" -"(values fold-var_143)))))" -"(if(not #f)(for-loop_177 fold-var_141 rest_78) fold-var_141)))" -" fold-var_140)))))" -" for-loop_177)" +" fold-var_143))))" +"(values fold-var_144)))))" +"(if(not #f)(for-loop_178 fold-var_142 rest_78) fold-var_142)))" +" fold-var_141)))))" +" for-loop_178)" " null" " lst_34))))" "(reverse$1" "(let-values(((lst_157) link-mod-uses_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_157)))" -"((letrec-values(((for-loop_179)" -"(lambda(fold-var_146 lst_158)" +"((letrec-values(((for-loop_180)" +"(lambda(fold-var_41 lst_158)" "(begin" " 'for-loop" "(if(pair? lst_158)" "(let-values(((mu_4)(unsafe-car lst_158))((rest_80)(unsafe-cdr lst_158)))" -"(let-values(((fold-var_147)" -"(let-values(((fold-var_148) fold-var_146))" "(let-values(((fold-var_149)" +"(let-values(((fold-var_150) fold-var_41))" +"(let-values(((fold-var_151)" "(let-values()" "(cons" "(let-values()" @@ -26811,19 +26938,19 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list lst_110)))" -"((letrec-values(((for-loop_75)" +"((letrec-values(((for-loop_126)" "(lambda(table_148" -" lst_56)" +" lst_159)" "(begin" " 'for-loop" "(if(pair?" -" lst_56)" +" lst_159)" "(let-values(((vu_2)" "(unsafe-car" -" lst_56))" +" lst_159))" "((rest_81)" "(unsafe-cdr" -" lst_56)))" +" lst_159)))" "(let-values(((table_149)" "(let-values(((table_34)" " table_148))" @@ -26838,7 +26965,7 @@ static const char *startup_source = " vu_2)))" "(begin" " #t" -"((letrec-values(((for-loop_180)" +"((letrec-values(((for-loop_181)" "(lambda(table_32)" "(begin" " 'for-loop" @@ -26852,7 +26979,7 @@ static const char *startup_source = " #f)))" "(begin" " #t" -"((letrec-values(((for-loop_181)" +"((letrec-values(((for-loop_182)" "(lambda(table_150)" "(begin" " 'for-loop" @@ -26883,44 +27010,44 @@ static const char *startup_source = " table_124)))" " table_152))))" " table_151))))))" -" for-loop_181)" +" for-loop_182)" " table_32)))))" " table_35))))))" -" for-loop_180)" +" for-loop_181)" " table_34)))" " table_34))))" "(if(not" " #f)" -"(for-loop_75" +"(for-loop_126" " table_149" " rest_81)" " table_149)))" " table_148)))))" -" for-loop_75)" +" for-loop_126)" " '#hash()" " lst_110)))))" "(if(hash-count extra-inspectorss_0)" " extra-inspectorss_0" " #f)))" -" fold-var_148))))" -"(values fold-var_149)))))" -"(if(not #f)(for-loop_179 fold-var_147 rest_80) fold-var_147)))" -" fold-var_146)))))" -" for-loop_179)" +" fold-var_150))))" +"(values fold-var_151)))))" +"(if(not #f)(for-loop_180 fold-var_149 rest_80) fold-var_149)))" +" fold-var_41)))))" +" for-loop_180)" " null" " lst_157))))" "(reverse$1" -"(let-values(((lst_159)(header-require-vars-in-order header_5)))" +"(let-values(((lst_160)(header-require-vars-in-order header_5)))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_159)))" -"((letrec-values(((for-loop_182)" -"(lambda(fold-var_150 lst_160)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_160)))" +"((letrec-values(((for-loop_183)" +"(lambda(fold-var_152 lst_161)" "(begin" " 'for-loop" -"(if(pair? lst_160)" -"(let-values(((vu_3)(unsafe-car lst_160))((rest_82)(unsafe-cdr lst_160)))" -"(let-values(((fold-var_151)" -"(let-values(((fold-var_152) fold-var_150))" +"(if(pair? lst_161)" +"(let-values(((vu_3)(unsafe-car lst_161))((rest_82)(unsafe-cdr lst_161)))" +"(let-values(((fold-var_153)" +"(let-values(((fold-var_154) fold-var_152))" "(if(let-values(((mod_2)" "(module-use-module" "(variable-use-module-use vu_3))))" @@ -26929,8 +27056,8 @@ static const char *startup_source = "(if or-part_206" " or-part_206" "(top-level-module-path-index? mod_2))))" -"(let-values(((fold-var_153) fold-var_152))" -"(let-values(((fold-var_154)" +"(let-values(((fold-var_155) fold-var_154))" +"(let-values(((fold-var_156)" "(let-values()" "(cons" "(let-values()" @@ -26944,14 +27071,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_182 fold-var_151 rest_82) fold-var_151)))" -" fold-var_150)))))" -" for-loop_182)" +" fold-var_155))))" +"(values fold-var_156)))" +" fold-var_154))))" +"(if(not #f)(for-loop_183 fold-var_153 rest_82) fold-var_153)))" +" fold-var_152)))))" +" for-loop_183)" " null" -" lst_159)))))))))" +" lst_160)))))))))" "(define-values" "(instance-imports)" "(list ns-id phase-shift-id self-id inspector-id bulk-binding-registry-id set-transformer!-id))" @@ -27055,7 +27182,7 @@ static const char *startup_source = "(define-values(syntax-property$2) syntax-property)" "(define-values(syntax-e$2) syntax-e)" "(define-values(1/syntax?) syntax?)" -"(define-values(correlated?)(lambda(e_25)(begin(1/syntax? e_25))))" +"(define-values(correlated?)(lambda(e_26)(begin(1/syntax? e_26))))" "(define-values" "(datum->correlated)" "(let-values(((datum->correlated4_0)" @@ -27068,35 +27195,35 @@ static const char *startup_source = "(case-lambda" "((d_27)(begin(datum->correlated4_0 d_27 #f #f)))" "((d_28 srcloc1_1)(datum->correlated4_0 d_28 srcloc1_1 #t)))))" -"(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(correlated-e)(lambda(e_27)(begin(if(1/syntax? e_27)(syntax-e$2 e_27) e_27))))" +"(define-values(correlated-cadr)(lambda(e_28)(begin(car(correlated-e(cdr(correlated-e e_28)))))))" "(define-values" "(correlated-length)" -"(lambda(e_28)(begin(let-values(((l_53)(correlated-e e_28)))(if(list? l_53)(length l_53) #f)))))" +"(lambda(e_29)(begin(let-values(((l_53)(correlated-e e_29)))(if(list? l_53)(length l_53) #f)))))" "(define-values" "(correlated->list)" -"(lambda(e_29)" -"(begin" -"((letrec-values(((loop_88)" "(lambda(e_30)" "(begin" +"((letrec-values(((loop_88)" +"(lambda(e_31)" +"(begin" " 'loop" -"(if(list? e_30)" -"(let-values() e_30)" -"(if(pair? e_30)" -"(let-values()(cons(car e_30)(loop_88(cdr e_30))))" -"(if(null? e_30)" +"(if(list? e_31)" +"(let-values() e_31)" +"(if(pair? e_31)" +"(let-values()(cons(car e_31)(loop_88(cdr e_31))))" +"(if(null? e_31)" "(let-values() null)" -"(if(1/syntax? e_30)" -"(let-values()(loop_88(syntax-e$2 e_30)))" +"(if(1/syntax? e_31)" +"(let-values()(loop_88(syntax-e$2 e_31)))" " (let-values () (error 'correlated->list \"not a list\"))))))))))" " loop_88)" -" e_29))))" +" e_30))))" "(define-values" "(correlated-property)" "(case-lambda" -"((e_16 k_31)(begin(syntax-property$2 e_16 k_31)))" -"((e_31 k_32 v_156)(syntax-property$2 e_31 k_32 v_156))))" +"((e_17 k_31)(begin(syntax-property$2 e_17 k_31)))" +"((e_32 k_32 v_156)(syntax-property$2 e_32 k_32 v_156))))" "(define-values" "(to-syntax-list.1$1)" "(lambda(s_297)" @@ -27130,20 +27257,20 @@ static const char *startup_source = "(lambda(p5_0 cctx6_0 name1_0 result-used?2_0 name3_0 result-used?4_0)" "(begin" " 'compile7" -"(let-values(((p_35) p5_0))" +"(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)))" "(let-values()" "(let-values(((compile_0)" -"(lambda(p_36 name_41 result-used?_1)" -"(begin 'compile(compile$2 p_36 cctx_1 name_41 result-used?_1)))))" -"(let-values(((s_10)(parsed-s p_35)))" -"(if(parsed-id? p_35)" +"(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)))" +"(if(parsed-id? p_36)" "(let-values()" -"(let-values(((p27_0) p_35)((cctx28_0) cctx_1))" +"(let-values(((p27_0) p_36)((cctx28_0) cctx_1))" "(compile-identifier24.1 #f #f #f #f p27_0 cctx28_0)))" -"(if(parsed-lambda? p_35)" +"(if(parsed-lambda? p_36)" "(let-values()" "(if result-used?_0" "(let-values()" @@ -27153,13 +27280,13 @@ static const char *startup_source = "(list*" " 'lambda" "(compile-lambda" -"(parsed-lambda-keys p_35)" -"(parsed-lambda-body p_35)" +"(parsed-lambda-keys p_36)" +"(parsed-lambda-body p_36)" " cctx_1)))" " name_40" " s_10))" "(let-values()(correlate~ s_10 ''unused-lambda))))" -"(if(parsed-case-lambda? p_35)" +"(if(parsed-case-lambda? p_36)" "(let-values()" "(if result-used?_0" "(let-values()" @@ -27169,23 +27296,23 @@ static const char *startup_source = "(list*" " 'case-lambda" "(reverse$1" -"(let-values(((lst_161)(parsed-case-lambda-clauses p_35)))" +"(let-values(((lst_162)(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_183)" -"(lambda(fold-var_155 lst_162)" +"(let-values()(check-list lst_162)))" +"((letrec-values(((for-loop_184)" +"(lambda(fold-var_157 lst_163)" "(begin" " 'for-loop" -"(if(pair? lst_162)" +"(if(pair? lst_163)" "(let-values(((clause_0)" -"(unsafe-car lst_162))" +"(unsafe-car lst_163))" "((rest_83)" -"(unsafe-cdr lst_162)))" +"(unsafe-cdr lst_163)))" "(let-values(((fold-var_28)" "(let-values(((fold-var_29)" -" fold-var_155))" +" fold-var_157))" "(let-values(((fold-var_30)" "(let-values()" "(cons" @@ -27200,39 +27327,39 @@ static const char *startup_source = "(values" " fold-var_30)))))" "(if(not #f)" -"(for-loop_183 fold-var_28 rest_83)" +"(for-loop_184 fold-var_28 rest_83)" " fold-var_28)))" -" fold-var_155)))))" -" for-loop_183)" +" fold-var_157)))))" +" for-loop_184)" " null" -" lst_161))))))" +" lst_162))))))" " name_40" " s_10))" "(let-values()(correlate~ s_10 ''unused-case-lambda))))" -"(if(parsed-app? p_35)" +"(if(parsed-app? p_36)" "(let-values()" -"(let-values(((rands_0)(parsed-app-rands p_35)))" +"(let-values(((rands_0)(parsed-app-rands p_36)))" "(correlate/app" " s_10" "(cons" -"(compile_0(parsed-app-rator p_35) #f #t)" +"(compile_0(parsed-app-rator p_36) #f #t)" "(reverse$1" "(let-values(((lst_42) rands_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_42)))" -"((letrec-values(((for-loop_184)" -"(lambda(fold-var_156 lst_163)" +"((letrec-values(((for-loop_185)" +"(lambda(fold-var_158 lst_164)" "(begin" " 'for-loop" -"(if(pair? lst_163)" -"(let-values(((r_39)(unsafe-car lst_163))" +"(if(pair? lst_164)" +"(let-values(((r_39)(unsafe-car lst_164))" "((rest_42)" -"(unsafe-cdr lst_163)))" -"(let-values(((fold-var_157)" +"(unsafe-cdr lst_164)))" +"(let-values(((fold-var_159)" "(let-values(((fold-var_9)" -" fold-var_156))" +" fold-var_158))" "(let-values(((fold-var_70)" "(let-values()" "(cons" @@ -27245,50 +27372,50 @@ static const char *startup_source = "(values" " fold-var_70)))))" "(if(not #f)" -"(for-loop_184 fold-var_157 rest_42)" -" fold-var_157)))" -" fold-var_156)))))" -" for-loop_184)" +"(for-loop_185 fold-var_159 rest_42)" +" fold-var_159)))" +" fold-var_158)))))" +" for-loop_185)" " null" " lst_42))))))))" -"(if(parsed-if? p_35)" +"(if(parsed-if? p_36)" "(let-values()" -"(let-values(((tst-e_0)(compile_0(parsed-if-tst p_35) #f #f)))" +"(let-values(((tst-e_0)(compile_0(parsed-if-tst p_36) #f #f)))" "(if(eq?(correlated-e tst-e_0) #t)" "(let-values()" -"(compile_0(parsed-if-thn p_35) name_40 result-used?_0))" +"(compile_0(parsed-if-thn p_36) name_40 result-used?_0))" "(if(eq?(correlated-e tst-e_0) #f)" "(let-values()" -"(compile_0(parsed-if-els p_35) name_40 result-used?_0))" +"(compile_0(parsed-if-els p_36) name_40 result-used?_0))" "(let-values()" "(correlate~" " s_10" "(list" " 'if" " tst-e_0" -"(compile_0(parsed-if-thn p_35) name_40 result-used?_0)" -"(compile_0(parsed-if-els p_35) name_40 result-used?_0))))))))" -"(if(parsed-with-continuation-mark? p_35)" +"(compile_0(parsed-if-thn p_36) name_40 result-used?_0)" +"(compile_0(parsed-if-els p_36) name_40 result-used?_0))))))))" +"(if(parsed-with-continuation-mark? p_36)" "(let-values()" "(correlate~" " s_10" "(list" " 'with-continuation-mark" -"(compile_0(parsed-with-continuation-mark-key p_35) #f #t)" -"(compile_0(parsed-with-continuation-mark-val p_35) #f #t)" +"(compile_0(parsed-with-continuation-mark-key p_36) #f #t)" +"(compile_0(parsed-with-continuation-mark-val p_36) #f #t)" "(compile_0" -"(parsed-with-continuation-mark-body p_35)" +"(parsed-with-continuation-mark-body p_36)" " name_40" " result-used?_0))))" -"(if(parsed-begin0? p_35)" +"(if(parsed-begin0? p_36)" "(let-values()" "(correlate~" " s_10" "(list*" " 'begin0" -"(compile_0(car(parsed-begin0-body p_35)) name_40 result-used?_0)" +"(compile_0(car(parsed-begin0-body p_36)) name_40 result-used?_0)" "(reverse$1" -"(let-values(((lst_90)(cdr(parsed-begin0-body p_35))))" +"(let-values(((lst_90)(cdr(parsed-begin0-body p_36))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" @@ -27298,24 +27425,24 @@ static const char *startup_source = "(begin" " 'for-loop" "(if(pair? lst_91)" -"(let-values(((e_32)" +"(let-values(((e_33)" "(unsafe-car lst_91))" "((rest_43)" "(unsafe-cdr lst_91)))" "(let-values(((fold-var_92)" "(let-values(((fold-var_93)" " fold-var_11))" -"(let-values(((fold-var_158)" +"(let-values(((fold-var_160)" "(let-values()" "(cons" "(let-values()" "(compile_0" -" e_32" +" e_33" " #f" " #f))" " fold-var_93))))" "(values" -" fold-var_158)))))" +" fold-var_160)))))" "(if(not #f)" "(for-loop_107" " fold-var_92" @@ -27325,26 +27452,26 @@ static const char *startup_source = " for-loop_107)" " null" " lst_90)))))))" -"(if(parsed-begin? p_35)" +"(if(parsed-begin? p_36)" "(let-values()" "(correlate~" " s_10" "(compile-begin" -"(parsed-begin-body p_35)" +"(parsed-begin-body p_36)" " cctx_1" " name_40" " result-used?_0)))" -"(if(parsed-set!? p_35)" +"(if(parsed-set!? p_36)" "(let-values()" "(correlate~" " s_10" -"(let-values(((temp29_1)(parsed-set!-id p_35))" +"(let-values(((temp29_1)(parsed-set!-id p_36))" "((cctx30_0) cctx_1)" "((temp31_1) #t)" "((temp32_1)" "(compile_0" -"(parsed-set!-rhs p_35)" -"(parsed-s(parsed-set!-id p_35))" +"(parsed-set!-rhs p_36)" +"(parsed-s(parsed-set!-id p_36))" " #t)))" "(compile-identifier24.1" " temp32_1" @@ -27353,9 +27480,9 @@ static const char *startup_source = " #t" " temp29_1" " cctx30_0))))" -"(if(parsed-let-values? p_35)" +"(if(parsed-let-values? p_36)" "(let-values()" -"(let-values(((p33_0) p_35)" +"(let-values(((p33_0) p_36)" "((cctx34_0) cctx_1)" "((name35_0) name_40)" "((temp36_0) #f)" @@ -27366,9 +27493,9 @@ static const char *startup_source = " cctx34_0" " name35_0" " result-used?37_0)))" -"(if(parsed-letrec-values? p_35)" +"(if(parsed-letrec-values? p_36)" "(let-values()" -"(let-values(((p38_0) p_35)" +"(let-values(((p38_0) p_36)" "((cctx39_0) cctx_1)" "((name40_0) name_40)" "((temp41_0) #t)" @@ -27379,24 +27506,24 @@ static const char *startup_source = " cctx39_0" " name40_0" " result-used?42_0)))" -"(if(parsed-quote? p_35)" +"(if(parsed-quote? p_36)" "(let-values()" -"(let-values(((datum_1)(parsed-quote-datum p_35)))" +"(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_10(list 'quote datum_1))))))" -"(if(parsed-quote-syntax? p_35)" +"(if(parsed-quote-syntax? p_36)" "(let-values()" "(if result-used?_0" "(compile-quote-syntax" -"(parsed-quote-syntax-datum p_35)" +"(parsed-quote-syntax-datum p_36)" " cctx_1)" "(correlate~ s_10(list 'quote(syntax->datum$1 s_10)))))" -"(if(parsed-#%variable-reference? p_35)" +"(if(parsed-#%variable-reference? p_36)" "(let-values()" "(let-values(((id_45)" -"(parsed-#%variable-reference-id p_35)))" +"(parsed-#%variable-reference-id p_36)))" "(correlate~" " s_10" "(if id_45" @@ -27414,11 +27541,11 @@ static const char *startup_source = "(let-values()" "(error" " \"unrecognized parsed form:\"" -" p_35)))))))))))))))))))))))))))" +" p_36)))))))))))))))))))))))))))" "(case-lambda" -"((p_37 cctx_2)(begin 'compile(compile7_0 p_37 cctx_2 #f #f #f #f)))" -"((p_38 cctx_3 name_42 result-used?2_1)(compile7_0 p_38 cctx_3 name_42 result-used?2_1 #t #t))" -"((p_39 cctx_4 name1_1)(compile7_0 p_39 cctx_4 name1_1 #f #t #f)))))" +"((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)))))" "(define-values" "(compile-lambda)" "(lambda(formals_0 bodys_0 cctx_5)(begin(list formals_0(compile-sequence bodys_0 cctx_5 #f #t)))))" @@ -27437,39 +27564,39 @@ static const char *startup_source = "(list*" " 'begin" "(reverse$1" -"(let-values(((lst_164) es_0)((start_33) 0))" +"(let-values(((lst_165) 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_165)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-naturals start_33)))" -"((letrec-values(((for-loop_185)" -"(lambda(fold-var_159 lst_96 pos_90)" +"((letrec-values(((for-loop_186)" +"(lambda(fold-var_161 lst_96 pos_90)" "(begin" " 'for-loop" "(if(if(pair? lst_96) #t #f)" -"(let-values(((e_33)(unsafe-car lst_96))" +"(let-values(((e_34)(unsafe-car lst_96))" "((rest_84)(unsafe-cdr lst_96))" "((i_43) pos_90))" -"(let-values(((fold-var_160)" -"(let-values(((fold-var_81) fold-var_159))" +"(let-values(((fold-var_162)" +"(let-values(((fold-var_81) fold-var_161))" "(let-values(((fold-var_82)" "(let-values()" "(cons" "(let-values()" "(let-values(((used?_0)(= i_43 used-pos_0)))" "(compile$2" -" e_33" +" e_34" " cctx_7" "(if used?_0 name_44 #f)" "(if used?_0 result-used?_3 #f))))" " fold-var_81))))" "(values fold-var_82)))))" -"(if(not #f)(for-loop_185 fold-var_160 rest_84(+ pos_90 1)) fold-var_160)))" -" fold-var_159)))))" -" for-loop_185)" +"(if(not #f)(for-loop_186 fold-var_162 rest_84(+ pos_90 1)) fold-var_162)))" +" fold-var_161)))))" +" for-loop_186)" " null" -" lst_164" +" lst_165" " start_33)))))))))" "(define-values" "(add-lambda-properties)" @@ -27488,9 +27615,9 @@ static const char *startup_source = "(let-values(((or-part_207)" "(let-values(((v_158)" "(simplify-name_0(syntax-property$1 orig-s_21 'inferred-name))))" -"(if(let-values(((or-part_129)(symbol? v_158)))" -"(if or-part_129" -" or-part_129" +"(if(let-values(((or-part_131)(symbol? v_158)))" +"(if or-part_131" +" or-part_131" "(let-values(((or-part_208)(syntax?$1 v_158)))" "(if or-part_208 or-part_208(void? v_158)))))" " v_158" @@ -27512,38 +27639,38 @@ static const char *startup_source = "(lambda(rec?9_0 p11_0 cctx12_0 name13_0 result-used?14_0)" "(begin" " 'compile-let15" -"(let-values(((p_40) p11_0))" +"(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))" "(let-values()" -"(let-values(((body_0)(parsed-let_-values-body p_40)))" +"(let-values(((body_0)(parsed-let_-values-body p_41)))" "(correlate~" -"(parsed-s p_40)" +"(parsed-s p_41)" "(list" "(if rec?_0 'letrec-values 'let-values)" "(reverse$1" -"(let-values(((lst_165)(parsed-let_-values-clauses p_40))" -"((lst_166)(parsed-let_-values-idss p_40)))" +"(let-values(((lst_166)(parsed-let_-values-clauses p_41))" +"((lst_167)(parsed-let_-values-idss p_41)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_165)))" -"(if(variable-reference-from-unsafe?(#%variable-reference))" -"(void)" "(let-values()(check-list lst_166)))" -"((letrec-values(((for-loop_186)" -"(lambda(fold-var_161 lst_167 lst_168)" +"(if(variable-reference-from-unsafe?(#%variable-reference))" +"(void)" +"(let-values()(check-list lst_167)))" +"((letrec-values(((for-loop_187)" +"(lambda(fold-var_163 lst_168 lst_169)" "(begin" " 'for-loop" -"(if(if(pair? lst_167)(pair? lst_168) #f)" -"(let-values(((clause_1)(unsafe-car lst_167))" -"((rest_85)(unsafe-cdr lst_167))" -"((ids_4)(unsafe-car lst_168))" -"((rest_86)(unsafe-cdr lst_168)))" -"(let-values(((fold-var_162)" -"(let-values(((fold-var_163) fold-var_161))" +"(if(if(pair? lst_168)(pair? lst_169) #f)" +"(let-values(((clause_1)(unsafe-car lst_168))" +"((rest_85)(unsafe-cdr lst_168))" +"((ids_4)(unsafe-car lst_169))" +"((rest_86)(unsafe-cdr lst_169)))" +"(let-values(((fold-var_164)" +"(let-values(((fold-var_165) fold-var_163))" "(let-values(((fold-var_0)" "(let-values()" "(cons" @@ -27551,10 +27678,10 @@ static const char *startup_source = "(list" "(if rec?_0" "(reverse$1" -"(let-values(((lst_169)" +"(let-values(((lst_170)" "(car" " clause_1))" -"((lst_170)" +"((lst_171)" " ids_4))" "(begin" "(if(variable-reference-from-unsafe?" @@ -27562,61 +27689,61 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_169)))" +" lst_170)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_170)))" -"((letrec-values(((for-loop_187)" +" lst_171)))" +"((letrec-values(((for-loop_188)" "(lambda(fold-var_2" -" lst_171" -" lst_172)" +" lst_172" +" lst_173)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_171)" -"(pair?" " lst_172)" +"(pair?" +" lst_173)" " #f)" "(let-values(((sym_51)" "(unsafe-car" -" lst_171))" +" lst_172))" "((rest_87)" "(unsafe-cdr" -" lst_171))" +" lst_172))" "((id_46)" "(unsafe-car" -" lst_172))" +" lst_173))" "((rest_88)" "(unsafe-cdr" -" lst_172)))" +" lst_173)))" "(let-values(((fold-var_94)" -"(let-values(((fold-var_164)" +"(let-values(((fold-var_166)" " fold-var_2))" -"(let-values(((fold-var_165)" +"(let-values(((fold-var_167)" "(let-values()" "(cons" "(let-values()" "(add-undefined-error-name-property" " sym_51" " id_46))" -" fold-var_164))))" +" fold-var_166))))" "(values" -" fold-var_165)))))" +" fold-var_167)))))" "(if(not" " #f)" -"(for-loop_187" +"(for-loop_188" " fold-var_94" " rest_87" " rest_88)" " fold-var_94)))" " fold-var_2)))))" -" for-loop_187)" +" for-loop_188)" " null" -" lst_169" -" lst_170))))" +" lst_170" +" lst_171))))" "(car clause_1))" "(compile$2" "(cadr clause_1)" @@ -27624,16 +27751,16 @@ static const char *startup_source = "(if(= 1(length ids_4))" "(car ids_4)" " #f))))" -" fold-var_163))))" +" fold-var_165))))" "(values fold-var_0)))))" "(if(not #f)" -"(for-loop_186 fold-var_162 rest_85 rest_86)" -" fold-var_162)))" -" fold-var_161)))))" -" for-loop_186)" +"(for-loop_187 fold-var_164 rest_85 rest_86)" +" fold-var_164)))" +" fold-var_163)))))" +" for-loop_187)" " null" -" lst_165" -" lst_166))))" +" lst_166" +" lst_167))))" "(compile-sequence body_0 cctx_8 name_46 result-used?_4)))))))))))))" "(define-values" "(add-undefined-error-name-property)" @@ -27650,19 +27777,19 @@ static const char *startup_source = "(lambda(set-to19_0 set-to21_0 set-to?18_0 set-to?20_0 p22_0 cctx23_0)" "(begin" " 'compile-identifier24" -"(let-values(((p_41) p22_0))" +"(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)))" "(let-values()" -"(let-values(((normal-b_0)(parsed-id-binding p_41)))" -"(let-values(((b_69)" +"(let-values(((normal-b_0)(parsed-id-binding p_42)))" +"(let-values(((b_70)" "(let-values(((or-part_209) normal-b_0))" "(if or-part_209" " or-part_209" "(let-values(((temp45_0)(compile-context-self cctx_9))" "((temp46_0)(compile-context-phase cctx_9))" -"((temp47_0)(syntax-e$1(parsed-s p_41))))" +"((temp47_0)(syntax-e$1(parsed-s p_42))))" "(make-module-binding22.1" " #f" " #f" @@ -27686,18 +27813,18 @@ static const char *startup_source = " temp46_0" " temp47_0))))))" "(let-values(((sym_5)" -"(if(local-binding? b_69)" -"(let-values()(local-binding-key b_69))" -"(if(module-binding? b_69)" +"(if(local-binding? b_70)" +"(let-values()(local-binding-key b_70))" +"(if(module-binding? b_70)" "(let-values()" "(let-values(((mpi_43)" -"(if(parsed-top-id? p_41)" +"(if(parsed-top-id? p_42)" "(compile-context-self cctx_9)" -"(module-binding-module b_69))))" -"(if(parsed-primitive-id? p_41)" +"(module-binding-module b_70))))" +"(if(parsed-primitive-id? p_42)" "(let-values()" "(begin" -"(if(zero?(module-binding-phase b_69))" +"(if(zero?(module-binding-phase b_70))" "(void)" "(let-values()" " (error \"internal error: non-zero phase for a primitive\")))" @@ -27705,31 +27832,31 @@ static const char *startup_source = "(let-values()" "(error" " \"internal error: cannot assign to a primitive:\"" -"(module-binding-sym b_69)))" +"(module-binding-sym b_70)))" "(void))" -"(module-binding-sym b_69)))" +"(module-binding-sym b_70)))" "(if(eq? mpi_43(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_69))))" +"(module-binding-sym b_70))))" "(let-values()" "(let-values(((temp48_0)(compile-context-header cctx_9))" "((mpi49_0) mpi_43)" -"((temp50_0)(module-binding-phase b_69))" -"((temp51_0)(module-binding-sym b_69))" +"((temp50_0)(module-binding-phase b_70))" +"((temp51_0)(module-binding-sym b_70))" "((temp52_1)" "(let-values(((or-part_102)" -"(module-binding-extra-inspector b_69)))" +"(module-binding-extra-inspector b_70)))" "(if or-part_102" " or-part_102" "(let-values(((or-part_210)" -"(parsed-id-inspector p_41)))" +"(parsed-id-inspector p_42)))" "(if or-part_210" " or-part_210" -"(if(parsed-s p_41)" -"(syntax-inspector(parsed-s p_41))" +"(if(parsed-s p_42)" +"(syntax-inspector(parsed-s p_42))" " #f)))))))" "(register-required-variable-use!19.1" " #f" @@ -27742,9 +27869,9 @@ static const char *startup_source = "(let-values()" "(error" " \"not a reference to a module or local binding:\"" -" b_69" -"(parsed-s p_41)))))))" -"(correlate~(parsed-s p_41)(if set-to?_0(list 'set! sym_5 rhs_0) sym_5)))))))))))))" +" b_70" +"(parsed-s p_42)))))))" +"(correlate~(parsed-s p_42)(if set-to?_0(list 'set! sym_5 rhs_0) sym_5)))))))))))))" "(define-values" "(compile-quote-syntax)" "(lambda(q_1 cctx_10)" @@ -27767,24 +27894,24 @@ static const char *startup_source = "(void)" "(let-values()(check-in-immutable-hash-keys ht_112)))" "((letrec-values(((for-loop_95)" -"(lambda(result_78 i_138)" +"(lambda(result_79 i_138)" "(begin" " 'for-loop" "(if i_138" "(let-values(((extra-insp_0)(unsafe-immutable-hash-iterate-key ht_112 i_138)))" -"(let-values(((result_79)" -"(let-values()" "(let-values(((result_80)" "(let-values()" +"(let-values(((result_81)" +"(let-values()" "(let-values()" "(inspector-superior?" " extra-insp_0" " guard-insp_0)))))" -"(values result_80)))))" -"(if(if(not((lambda x_51(not result_79)) extra-insp_0))(not #f) #f)" -"(for-loop_95 result_79(unsafe-immutable-hash-iterate-next ht_112 i_138))" -" result_79)))" -" result_78)))))" +"(values result_81)))))" +"(if(if(not((lambda x_53(not result_80)) extra-insp_0))(not #f) #f)" +"(for-loop_95 result_80(unsafe-immutable-hash-iterate-next ht_112 i_138))" +" result_80)))" +" result_79)))))" " for-loop_95)" " #t" "(unsafe-immutable-hash-iterate-first ht_112)))))" @@ -27817,7 +27944,7 @@ static const char *startup_source = " module-use*-self-inspector" " set-module-use*-extra-inspectorss!" " set-module-use*-self-inspector!)" -"(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" @@ -27833,13 +27960,13 @@ static const char *startup_source = " #f" " 'module-use*)))))" "(values" -" struct:_64" -" make-_64" -" ?_64" -"(make-struct-field-accessor -ref_64 0 'extra-inspectorss)" -"(make-struct-field-accessor -ref_64 1 'self-inspector)" -"(make-struct-field-mutator -set!_64 0 'extra-inspectorss)" -"(make-struct-field-mutator -set!_64 1 'self-inspector))))" +" struct:_65" +" make-_65" +" ?_65" +"(make-struct-field-accessor -ref_65 0 'extra-inspectorss)" +"(make-struct-field-accessor -ref_65 1 'self-inspector)" +"(make-struct-field-mutator -set!_65 0 'extra-inspectorss)" +"(make-struct-field-mutator -set!_65 1 'self-inspector))))" "(define-values" "(module-uses-add-extra-inspectorsss)" "(lambda(mus_1 extra-inspectorsss_0)" @@ -27852,17 +27979,17 @@ static const char *startup_source = "(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_90)))" "((letrec-values(((for-loop_107)" -"(lambda(fold-var_11 lst_91 lst_173)" +"(lambda(fold-var_11 lst_91 lst_174)" "(begin" " 'for-loop" -"(if(if(pair? lst_91)(pair? lst_173) #f)" +"(if(if(pair? lst_91)(pair? lst_174) #f)" "(let-values(((mu_5)(unsafe-car lst_91))" "((rest_89)(unsafe-cdr lst_91))" -"((extra-inspectorss_1)(unsafe-car lst_173))" -"((rest_37)(unsafe-cdr lst_173)))" -"(let-values(((fold-var_166)" -"(let-values(((fold-var_167) fold-var_11))" +"((extra-inspectorss_1)(unsafe-car lst_174))" +"((rest_37)(unsafe-cdr lst_174)))" "(let-values(((fold-var_168)" +"(let-values(((fold-var_169) fold-var_11))" +"(let-values(((fold-var_170)" "(let-values()" "(cons" "(let-values()" @@ -27871,9 +27998,9 @@ static const char *startup_source = "(module-use-phase mu_5)" " extra-inspectorss_1" " #f))" -" fold-var_167))))" -"(values fold-var_168)))))" -"(if(not #f)(for-loop_107 fold-var_166 rest_89 rest_37) fold-var_166)))" +" fold-var_169))))" +"(values fold-var_170)))))" +"(if(not #f)(for-loop_107 fold-var_168 rest_89 rest_37) fold-var_168)))" " fold-var_11)))))" " for-loop_107)" " null" @@ -27884,15 +28011,15 @@ static const char *startup_source = "(let-values(((lst_92) mus_1))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_92)))" -"((letrec-values(((for-loop_188)" -"(lambda(fold-var_169 lst_17)" +"((letrec-values(((for-loop_189)" +"(lambda(fold-var_171 lst_17)" "(begin" " 'for-loop" "(if(pair? lst_17)" "(let-values(((mu_6)(unsafe-car lst_17))((rest_90)(unsafe-cdr lst_17)))" "(let-values(((fold-var_63)" -"(let-values(((fold-var_170) fold-var_169))" -"(let-values(((fold-var_171)" +"(let-values(((fold-var_172) fold-var_171))" +"(let-values(((fold-var_173)" "(let-values()" "(cons" "(let-values()" @@ -27901,11 +28028,11 @@ static const char *startup_source = "(module-use-phase mu_6)" " #f" " #f))" -" fold-var_170))))" -"(values fold-var_171)))))" -"(if(not #f)(for-loop_188 fold-var_63 rest_90) fold-var_63)))" -" fold-var_169)))))" -" for-loop_188)" +" fold-var_172))))" +"(values fold-var_173)))))" +"(if(not #f)(for-loop_189 fold-var_63 rest_90) fold-var_63)))" +" fold-var_171)))))" +" for-loop_189)" " null" " lst_92)))))))))" "(define-values" @@ -27913,18 +28040,18 @@ static const char *startup_source = "(lambda(mu*s_0)" "(begin" "(reverse$1" -"(let-values(((lst_174) mu*s_0))" +"(let-values(((lst_175) mu*s_0))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_174)))" -"((letrec-values(((for-loop_189)" -"(lambda(fold-var_72 lst_175)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_175)))" +"((letrec-values(((for-loop_190)" +"(lambda(fold-var_72 lst_176)" "(begin" " 'for-loop" -"(if(pair? lst_175)" -"(let-values(((mu*_0)(unsafe-car lst_175))((rest_91)(unsafe-cdr lst_175)))" +"(if(pair? lst_176)" +"(let-values(((mu*_0)(unsafe-car lst_176))((rest_91)(unsafe-cdr lst_176)))" "(let-values(((fold-var_17)" "(let-values(((fold-var_73) fold-var_72))" -"(let-values(((fold-var_172)" +"(let-values(((fold-var_174)" "(let-values()" "(cons" "(let-values()" @@ -27932,12 +28059,12 @@ static const char *startup_source = "(module-use-module mu*_0)" "(module-use-phase mu*_0)))" " fold-var_73))))" -"(values fold-var_172)))))" -"(if(not #f)(for-loop_189 fold-var_17 rest_91) fold-var_17)))" +"(values fold-var_174)))))" +"(if(not #f)(for-loop_190 fold-var_17 rest_91) fold-var_17)))" " fold-var_72)))))" -" for-loop_189)" +" for-loop_190)" " null" -" lst_174)))))))" +" lst_175)))))))" "(define-values" "(module-uses-extract-extra-inspectorsss)" "(lambda(mu*s_1 linklet_0 check-inlined-reference?_0 skip-n_0)" @@ -27945,47 +28072,47 @@ 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_177) mu*s_1))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_176)))" -"((letrec-values(((for-loop_190)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_177)))" +"((letrec-values(((for-loop_191)" "(lambda(fold-var_76 lst_9)" "(begin" " 'for-loop" "(if(pair? lst_9)" "(let-values(((mu*_1)(unsafe-car lst_9))((rest_92)(unsafe-cdr lst_9)))" -"(let-values(((fold-var_173)" +"(let-values(((fold-var_175)" "(let-values(((fold-var_4) fold-var_76))" -"(let-values(((fold-var_174)" +"(let-values(((fold-var_176)" "(let-values()" "(cons" "(let-values()" "(module-use*-extra-inspectorss mu*_1))" " fold-var_4))))" -"(values fold-var_174)))))" -"(if(not #f)(for-loop_190 fold-var_173 rest_92) fold-var_173)))" +"(values fold-var_176)))))" +"(if(not #f)(for-loop_191 fold-var_175 rest_92) fold-var_175)))" " fold-var_76)))))" -" for-loop_190)" +" for-loop_191)" " null" -" lst_176)))))" +" lst_177)))))" "(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_178) mu*s_1)((lst_179)(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_179)))" "((letrec-values(((for-loop_28)" -"(lambda(fold-var_6 lst_179 lst_180)" +"(lambda(fold-var_6 lst_180 lst_181)" "(begin" " 'for-loop" -"(if(if(pair? lst_179)(pair? lst_180) #f)" -"(let-values(((mu*_2)(unsafe-car lst_179))" -"((rest_93)(unsafe-cdr lst_179))" -"((imports_0)(unsafe-car lst_180))" -"((rest_94)(unsafe-cdr lst_180)))" -"(let-values(((fold-var_159)" -"(let-values(((fold-var_175) fold-var_6))" -"(let-values(((fold-var_176)" +"(if(if(pair? lst_180)(pair? lst_181) #f)" +"(let-values(((mu*_2)(unsafe-car lst_180))" +"((rest_93)(unsafe-cdr lst_180))" +"((imports_0)(unsafe-car lst_181))" +"((rest_94)(unsafe-cdr lst_181)))" +"(let-values(((fold-var_161)" +"(let-values(((fold-var_177) fold-var_6))" +"(let-values(((fold-var_178)" "(let-values()" "(cons" "(let-values()" @@ -28000,17 +28127,17 @@ static const char *startup_source = "(let-values()(check-list lst_97)))" "((letrec-values(((for-loop_19)" "(lambda(extra-inspectorss_3" -" lst_181)" +" lst_182)" "(begin" " 'for-loop" "(if(pair?" -" lst_181)" +" lst_182)" "(let-values(((import_0)" "(unsafe-car" -" lst_181))" +" lst_182))" "((rest_95)" "(unsafe-cdr" -" lst_181)))" +" lst_182)))" "(let-values(((extra-inspectorss_4)" "(let-values(((extra-inspectorss_5)" " extra-inspectorss_3))" @@ -28043,20 +28170,20 @@ static const char *startup_source = " for-loop_19)" " extra-inspectorss_2" " lst_97)))))" -" fold-var_175))))" -"(values fold-var_176)))))" -"(if(not #f)(for-loop_28 fold-var_159 rest_93 rest_94) fold-var_159)))" +" fold-var_177))))" +"(values fold-var_178)))))" +"(if(not #f)(for-loop_28 fold-var_161 rest_93 rest_94) fold-var_161)))" " fold-var_6)))))" " for-loop_28)" " null" -" lst_177" -" lst_178)))))))))" +" lst_178" +" lst_179)))))))))" "(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_70 imports_1 inspector_12 extra-inspector_5 extra-inspectorss_7)" +"(lambda(mpi_44 phase_72 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_12(inspector-superior? inspector_12 now-inspector_0) #f)))" @@ -28065,18 +28192,18 @@ static const char *startup_source = "(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))" "(let-values()" -"(let-values(((lst_182) imports_1))" +"(let-values(((lst_183) imports_1))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_182)))" -"((letrec-values(((for-loop_191)" -"(lambda(table_154 lst_183)" +"(let-values()(check-list lst_183)))" +"((letrec-values(((for-loop_192)" +"(lambda(table_154 lst_184)" "(begin" " 'for-loop" -"(if(pair? lst_183)" -"(let-values(((import_1)(unsafe-car lst_183))" -"((rest_96)(unsafe-cdr lst_183)))" +"(if(pair? lst_184)" +"(let-values(((import_1)(unsafe-car lst_184))" +"((rest_96)(unsafe-cdr lst_184)))" "(let-values(((table_155)" "(let-values(((table_156) table_154))" "(let-values(((table_157)" @@ -28102,14 +28229,14 @@ static const char *startup_source = " #f)))" "(if or-part_54" " or-part_54" -"(let-values(((or-part_140)" +"(let-values(((or-part_97)" "(if add-extra-insp?_0" "(inspector-superior?" " extra-inspector_5" " guard-insp_2)" " #f)))" -"(if or-part_140" -" or-part_140" +"(if or-part_97" +" or-part_97" "(extra-inspectors-allow?" " extra-inspectors_3" " guard-insp_2)))))))))))" @@ -28118,24 +28245,24 @@ static const char *startup_source = " key_58" " val_50)))))" "(values table_157)))))" -"(if(not #f)(for-loop_191 table_155 rest_96) table_155)))" +"(if(not #f)(for-loop_192 table_155 rest_96) table_155)))" " table_154)))))" -" for-loop_191)" +" for-loop_192)" " '#hash()" -" lst_182))))" +" lst_183))))" "(let-values()" -"(let-values(((lst_184) imports_1))" +"(let-values(((lst_185) imports_1))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_184)))" -"((letrec-values(((for-loop_192)" -"(lambda(extra-inspectorss_8 lst_185)" +"(let-values()(check-list lst_185)))" +"((letrec-values(((for-loop_193)" +"(lambda(extra-inspectorss_8 lst_186)" "(begin" " 'for-loop" -"(if(pair? lst_185)" -"(let-values(((import_2)(unsafe-car lst_185))" -"((rest_97)(unsafe-cdr lst_185)))" +"(if(pair? lst_186)" +"(let-values(((import_2)(unsafe-car lst_186))" +"((rest_97)(unsafe-cdr lst_186)))" "(let-values(((extra-inspectorss_9)" "(let-values(((extra-inspectorss_10)" " extra-inspectorss_8))" @@ -28152,14 +28279,14 @@ static const char *startup_source = " #f)))))" "(values extra-inspectorss_11)))))" "(if(not #f)" -"(for-loop_192 extra-inspectorss_9 rest_97)" +"(for-loop_193 extra-inspectorss_9 rest_97)" " extra-inspectorss_9)))" " extra-inspectorss_8)))))" -" for-loop_192)" +" for-loop_193)" "(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_70 new-extra-inspectorss_0 #f))))))))" +" lst_185)))))))" +"(module-use*1.1 mpi_44 phase_72 new-extra-inspectorss_0 #f))))))))" "(define-values" "(module-use-merge-extra-inspectorss!)" "(lambda(existing-mu*_0 mu*_4)" @@ -28172,7 +28299,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-hash ht_113)))" -"((letrec-values(((for-loop_193)" +"((letrec-values(((for-loop_194)" "(lambda(new-extra-inspectorss_2 i_139)" "(begin" " 'for-loop" @@ -28195,12 +28322,12 @@ static const char *startup_source = "(seteq)))))))" "(values new-extra-inspectorss_5)))))" "(if(not #f)" -"(for-loop_193" +"(for-loop_194" " new-extra-inspectorss_3" "(hash-iterate-next ht_113 i_139))" " new-extra-inspectorss_3)))" " new-extra-inspectorss_2)))))" -" for-loop_193)" +" for-loop_194)" " existing-extra-inspectorss_0" "(hash-iterate-first ht_113))))))" "(set-module-use*-extra-inspectorss! existing-mu*_0 new-extra-inspectorss_1)))))))" @@ -28212,18 +28339,18 @@ static const char *startup_source = " link-info-imports" " link-info-extra-inspectorsss" " link-info-def-decls)" -"(let-values(((struct:_31 make-_31 ?_31 -ref_31 -set!_31)" +"(let-values(((struct:_32 make-_32 ?_32 -ref_32 -set!_32)" "(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:_31" -" make-_31" -" ?_31" -"(make-struct-field-accessor -ref_31 0 'link-module-uses)" -"(make-struct-field-accessor -ref_31 1 'imports)" -"(make-struct-field-accessor -ref_31 2 'extra-inspectorsss)" -"(make-struct-field-accessor -ref_31 3 'def-decls))))" +" struct:_32" +" make-_32" +" ?_32" +"(make-struct-field-accessor -ref_32 0 'link-module-uses)" +"(make-struct-field-accessor -ref_32 1 'imports)" +"(make-struct-field-accessor -ref_32 2 'extra-inspectorsss)" +"(make-struct-field-accessor -ref_32 3 'def-decls))))" "(define-values" "(compile-forms31.1)" "(lambda(body-import-instances3_0" @@ -28275,34 +28402,34 @@ static const char *startup_source = "(let-values(((get-module-linklet-info_0)" "(if get-module-linklet-info24_0" " get-module-linklet-info11_0" -"(lambda(mod-name_14 p_42)(begin 'get-module-linklet-info #f)))))" +"(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)))" "(let-values()" -"(let-values(((phase_71)(compile-context-phase cctx_3)))" +"(let-values(((phase_73)(compile-context-phase cctx_3)))" "(let-values(((self_18)(compile-context-self cctx_3)))" "(let-values(((syntax-literals_1)(make-syntax-literals)))" "(let-values(((phase-to-body_0)(make-hasheqv)))" "(let-values(((add-body!_0)" -"(lambda(phase_70 body_1)" +"(lambda(phase_72 body_1)" "(begin" " 'add-body!" "(hash-update!" " phase-to-body_0" -" phase_70" +" phase_72" "(lambda(l_54)(cons body_1 l_54))" " null)))))" "(let-values(((phase-to-header_0)(make-hasheqv)))" "(let-values(((find-or-create-header!_0)" -"(lambda(phase_72)" +"(lambda(phase_74)" "(begin" " 'find-or-create-header!" "(let-values(((or-part_207)" "(hash-ref" " phase-to-header_0" -" phase_72" +" phase_74" " #f)))" "(if or-part_207" " or-part_207" @@ -28313,28 +28440,28 @@ static const char *startup_source = "(begin" "(hash-set!" " phase-to-header_0" -" phase_72" +" phase_74" " header_7)" " header_7))))))))" "(let-values((()" "(begin" -"(let-values(((lst_186) force-phases_0))" +"(let-values(((lst_187) force-phases_0))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_186)))" -"((letrec-values(((for-loop_194)" -"(lambda(lst_187)" +"(let-values()(check-list lst_187)))" +"((letrec-values(((for-loop_195)" +"(lambda(lst_188)" "(begin" " 'for-loop" -"(if(pair? lst_187)" -"(let-values(((phase_73)" +"(if(pair? lst_188)" +"(let-values(((phase_75)" "(unsafe-car" -" lst_187))" +" lst_188))" "((rest_98)" "(unsafe-cdr" -" lst_187)))" +" lst_188)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -28343,19 +28470,19 @@ static const char *startup_source = "(let-values()" "(begin" "(find-or-create-header!_0" -" phase_73)" +" phase_75)" "(add-body!_0" -" phase_73" +" phase_75" " '(void))))" "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_194" +"(for-loop_195" " rest_98)" "(values))))" "(values))))))" -" for-loop_194)" -" lst_186)))" +" for-loop_195)" +" lst_187)))" "(values))))" "(let-values()" "(let-values(((saw-define-syntaxes?_0) #f))" @@ -28365,12 +28492,12 @@ static const char *startup_source = "(let-values()" "((letrec-values(((loop!_0)" "(lambda(bodys_3" -" phase_74" +" phase_76" " header_8)" "(begin" " 'loop!" "(begin" -"(let-values(((lst_188)" +"(let-values(((lst_189)" " bodys_3))" "(begin" "(if(variable-reference-from-unsafe?" @@ -28378,19 +28505,19 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_188)))" -"((letrec-values(((for-loop_195)" -"(lambda(lst_189)" +" lst_189)))" +"((letrec-values(((for-loop_196)" +"(lambda(lst_190)" "(begin" " 'for-loop" "(if(pair?" -" lst_189)" +" lst_190)" "(let-values(((body_2)" "(unsafe-car" -" lst_189))" +" lst_190))" "((rest_99)" "(unsafe-cdr" -" lst_189)))" +" lst_190)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -28401,7 +28528,7 @@ static const char *startup_source = " body_2)" "(let-values()" "(begin" -"(let-values(((lst_190)" +"(let-values(((lst_191)" "(parsed-define-values-syms" " body_2)))" "(begin" @@ -28410,19 +28537,19 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_190)))" -"((letrec-values(((for-loop_196)" -"(lambda(lst_191)" +" lst_191)))" +"((letrec-values(((for-loop_197)" +"(lambda(lst_192)" "(begin" " 'for-loop" "(if(pair?" -" lst_191)" +" lst_192)" "(let-values(((sym_53)" "(unsafe-car" -" lst_191))" +" lst_192))" "((rest_100)" "(unsafe-cdr" -" lst_191)))" +" lst_192)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -28452,12 +28579,12 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_196" +"(for-loop_197" " rest_100)" "(values))))" "(values))))))" -" for-loop_196)" -" lst_190)))" +" for-loop_197)" +" lst_191)))" "(void)))" "(if(parsed-begin-for-syntax?" " body_2)" @@ -28466,26 +28593,26 @@ static const char *startup_source = "(parsed-begin-for-syntax-body" " body_2)" "(add1" -" phase_74)" +" phase_76)" "(find-or-create-header!_0" "(add1" -" phase_74))))" +" phase_76))))" "(void))))" "(values)))))" "(values)))))" "(if(not" " #f)" -"(for-loop_195" +"(for-loop_196" " rest_99)" "(values))))" "(values))))))" -" for-loop_195)" -" lst_188)))" +" for-loop_196)" +" lst_189)))" "(void))))))" " loop!_0)" " bodys_2" -" phase_71" -"(find-or-create-header!_0 phase_71)))" +" phase_73" +"(find-or-create-header!_0 phase_73)))" "(void))" "(values))))" "(let-values(((as-required?_0)" @@ -28501,12 +28628,12 @@ static const char *startup_source = "(begin" "((letrec-values(((loop!_1)" "(lambda(bodys_4" -" phase_75" +" phase_77" " header_10)" "(begin" " 'loop!" "(begin" -"(let-values(((lst_192)" +"(let-values(((lst_193)" " bodys_4)" "((start_34)" " 0))" @@ -28516,28 +28643,28 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_192)))" +" lst_193)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-naturals" " start_34)))" -"((letrec-values(((for-loop_116)" -"(lambda(lst_193" +"((letrec-values(((for-loop_117)" +"(lambda(lst_194" " pos_92)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_193)" +" lst_194)" " #t" " #f)" "(let-values(((body_3)" "(unsafe-car" -" lst_193))" +" lst_194))" "((rest_86)" "(unsafe-cdr" -" lst_193))" +" lst_194))" "((i_140)" " pos_92))" "(let-values((()" @@ -28560,7 +28687,7 @@ static const char *startup_source = " cctx_3)" "(let-values()" "(reverse$1" -"(let-values(((lst_194)" +"(let-values(((lst_195)" " binding-syms_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -28568,22 +28695,22 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_194)))" -"((letrec-values(((for-loop_197)" +" lst_195)))" +"((letrec-values(((for-loop_198)" "(lambda(fold-var_3" -" lst_172)" +" lst_173)" "(begin" " 'for-loop" "(if(pair?" -" lst_172)" +" lst_173)" "(let-values(((binding-sym_0)" "(unsafe-car" -" lst_172))" +" lst_173))" "((rest_87)" "(unsafe-cdr" -" lst_172)))" -"(let-values(((fold-var_177)" -"(let-values(((fold-var_178)" +" lst_173)))" +"(let-values(((fold-var_179)" +"(let-values(((fold-var_180)" " fold-var_3))" "(let-values(((fold-var_94)" "(let-values()" @@ -28593,19 +28720,19 @@ static const char *startup_source = "(header-binding-sym-to-define-sym" " header_10)" " binding-sym_0))" -" fold-var_178))))" +" fold-var_180))))" "(values" " fold-var_94)))))" "(if(not" " #f)" -"(for-loop_197" -" fold-var_177" +"(for-loop_198" +" fold-var_179" " rest_87)" -" fold-var_177)))" +" fold-var_179)))" " fold-var_3)))))" -" for-loop_197)" +" for-loop_198)" " null" -" lst_194)))))" +" lst_195)))))" "(let-values()" "(reverse$1" "(let-values(((lst_104)" @@ -28617,23 +28744,23 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_104)))" -"((letrec-values(((for-loop_198)" -"(lambda(fold-var_179" -" lst_195)" +"((letrec-values(((for-loop_199)" +"(lambda(fold-var_181" +" lst_196)" "(begin" " 'for-loop" "(if(pair?" -" lst_195)" +" lst_196)" "(let-values(((binding-sym_1)" "(unsafe-car" -" lst_195))" +" lst_196))" "((rest_101)" "(unsafe-cdr" -" lst_195)))" -"(let-values(((fold-var_180)" -"(let-values(((fold-var_181)" -" fold-var_179))" +" lst_196)))" "(let-values(((fold-var_182)" +"(let-values(((fold-var_183)" +" fold-var_181))" +"(let-values(((fold-var_184)" "(let-values()" "(cons" "(let-values()" @@ -28643,7 +28770,7 @@ static const char *startup_source = "(compile-context-self" " cctx_3))" "((phase37_1)" -" phase_75)" +" phase_77)" "((binding-sym38_0)" " binding-sym_1)" "((temp39_0)" @@ -28658,17 +28785,17 @@ static const char *startup_source = " phase37_1" " binding-sym38_0" " temp39_0)))" -" fold-var_181))))" +" fold-var_183))))" "(values" -" fold-var_182)))))" +" fold-var_184)))))" "(if(not" " #f)" -"(for-loop_198" -" fold-var_180" +"(for-loop_199" +" fold-var_182" " rest_101)" -" fold-var_180)))" -" fold-var_179)))))" -" for-loop_198)" +" fold-var_182)))" +" fold-var_181)))))" +" for-loop_199)" " null" " lst_104))))))))" "(let-values(((rhs_1)" @@ -28680,7 +28807,7 @@ static const char *startup_source = "(if(compile-context?" " the-struct_46)" "(let-values(((phase41_0)" -" phase_75)" +" phase_77)" "((header42_0)" " header_10))" "(compile-context1.1" @@ -28713,11 +28840,11 @@ static const char *startup_source = " rhs_1" "(length" " def-syms_0)" -" phase_75" +" phase_77" "(as-required?_0" " header_10))" "(add-body!_0" -" phase_75" +" phase_77" "(propagate-inline-property" "(correlate*" "(parsed-s" @@ -28739,7 +28866,7 @@ static const char *startup_source = "(let-values()" "(begin" "(add-body!_0" -" phase_75" +" phase_77" "(list*" " 'if" " #f" @@ -28755,23 +28882,23 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_106)))" -"((letrec-values(((for-loop_199)" -"(lambda(fold-var_183" -" lst_51)" +"((letrec-values(((for-loop_200)" +"(lambda(fold-var_185" +" lst_197)" "(begin" " 'for-loop" "(if(pair?" -" lst_51)" +" lst_197)" "(let-values(((def-sym_2)" "(unsafe-car" -" lst_51))" +" lst_197))" "((rest_102)" "(unsafe-cdr" -" lst_51)))" -"(let-values(((fold-var_184)" -"(let-values(((fold-var_185)" -" fold-var_183))" +" lst_197)))" "(let-values(((fold-var_186)" +"(let-values(((fold-var_187)" +" fold-var_185))" +"(let-values(((fold-var_188)" "(let-values()" "(cons" "(let-values()" @@ -28779,22 +28906,22 @@ static const char *startup_source = " 'set!" " def-sym_2" " '(#f)))" -" fold-var_185))))" +" fold-var_187))))" "(values" -" fold-var_186)))))" +" fold-var_188)))))" "(if(not" " #f)" -"(for-loop_199" -" fold-var_184" +"(for-loop_200" +" fold-var_186" " rest_102)" -" fold-var_184)))" -" fold-var_183)))))" -" for-loop_199)" +" fold-var_186)))" +" fold-var_185)))))" +" for-loop_200)" " null" " lst_106)))))" " '((void))))" "(add-body!_0" -" phase_75" +" phase_77" "(compile-top-level-bind" " ids_5" " binding-syms_0" @@ -28803,7 +28930,7 @@ static const char *startup_source = "(if(compile-context?" " the-struct_47)" "(let-values(((phase43_0)" -" phase_75)" +" phase_77)" "((header44_0)" " header_10))" "(compile-context1.1" @@ -28836,10 +28963,10 @@ static const char *startup_source = "(let-values(((next-header_0)" "(find-or-create-header!_0" "(add1" -" phase_75))))" +" phase_77))))" "(let-values(((gen-syms_0)" "(reverse$1" -"(let-values(((lst_196)" +"(let-values(((lst_198)" " binding-syms_1))" "(begin" "(if(variable-reference-from-unsafe?" @@ -28847,24 +28974,24 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_196)))" -"((letrec-values(((for-loop_200)" -"(lambda(fold-var_187" -" lst_197)" +" lst_198)))" +"((letrec-values(((for-loop_201)" +"(lambda(fold-var_189" +" lst_199)" "(begin" " 'for-loop" "(if(pair?" -" lst_197)" +" lst_199)" "(let-values(((binding-sym_2)" "(unsafe-car" -" lst_197))" +" lst_199))" "((rest_103)" "(unsafe-cdr" -" lst_197)))" -"(let-values(((fold-var_188)" -"(let-values(((fold-var_189)" -" fold-var_187))" +" lst_199)))" "(let-values(((fold-var_190)" +"(let-values(((fold-var_191)" +" fold-var_189))" +"(let-values(((fold-var_192)" "(let-values()" "(cons" "(let-values()" @@ -28877,19 +29004,19 @@ static const char *startup_source = " next-header_0" " gen-sym_0)" " gen-sym_0)))" -" fold-var_189))))" +" fold-var_191))))" "(values" -" fold-var_190)))))" +" fold-var_192)))))" "(if(not" " #f)" -"(for-loop_200" -" fold-var_188" +"(for-loop_201" +" fold-var_190" " rest_103)" -" fold-var_188)))" -" fold-var_187)))))" -" for-loop_200)" +" fold-var_190)))" +" fold-var_189)))))" +" for-loop_201)" " null" -" lst_196))))))" +" lst_198))))))" "(let-values(((rhs_2)" "(compile$2" "(parsed-define-syntaxes-rhs" @@ -28900,7 +29027,7 @@ static const char *startup_source = " the-struct_48)" "(let-values(((phase45_0)" "(add1" -" phase_75))" +" phase_77))" "((header46_0)" " next-header_0))" "(compile-context1.1" @@ -28931,7 +29058,7 @@ static const char *startup_source = "(length" " gen-syms_0)" "(add1" -" phase_75)" +" phase_77)" "(as-required?_0" " header_10))" "(values))))" @@ -28939,7 +29066,7 @@ static const char *startup_source = "(reverse$1" "(let-values(((lst_29)" " binding-syms_1)" -"((lst_198)" +"((lst_200)" " gen-syms_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -28953,34 +29080,34 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_198)))" -"((letrec-values(((for-loop_201)" -"(lambda(fold-var_191" -" lst_199" -" lst_200)" +" lst_200)))" +"((letrec-values(((for-loop_202)" +"(lambda(fold-var_193" +" lst_201" +" lst_202)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_199)" +" lst_201)" "(pair?" -" lst_200)" +" lst_202)" " #f)" "(let-values(((binding-sym_3)" "(unsafe-car" -" lst_199))" +" lst_201))" "((rest_104)" "(unsafe-cdr" -" lst_199))" +" lst_201))" "((gen-sym_1)" "(unsafe-car" -" lst_200))" +" lst_202))" "((rest_105)" "(unsafe-cdr" -" lst_200)))" -"(let-values(((fold-var_192)" -"(let-values(((fold-var_193)" -" fold-var_191))" +" lst_202)))" "(let-values(((fold-var_194)" +"(let-values(((fold-var_195)" +" fold-var_193))" +"(let-values(((fold-var_196)" "(let-values()" "(cons" "(let-values()" @@ -28990,28 +29117,28 @@ static const char *startup_source = " 'quote" " binding-sym_3)" " gen-sym_1))" -" fold-var_193))))" +" fold-var_195))))" "(values" -" fold-var_194)))))" +" fold-var_196)))))" "(if(not" " #f)" -"(for-loop_201" -" fold-var_192" +"(for-loop_202" +" fold-var_194" " rest_104" " rest_105)" -" fold-var_192)))" -" fold-var_191)))))" -" for-loop_201)" +" fold-var_194)))" +" fold-var_193)))))" +" for-loop_202)" " null" " lst_29" -" lst_198))))))" +" lst_200))))))" "(begin" "(if(compile-context-module-self" " cctx_3)" "(let-values()" "(add-body!_0" "(add1" -" phase_75)" +" phase_77)" "(list" " 'let-values" "(list" @@ -29026,7 +29153,7 @@ static const char *startup_source = "(let-values()" "(add-body!_0" "(add1" -" phase_75)" +" phase_77)" "(generate-top-level-define-syntaxes" " gen-syms_0" " rhs_2" @@ -29039,7 +29166,7 @@ static const char *startup_source = "(if(compile-context?" " the-struct_49)" "(let-values(((phase47_0)" -" phase_75)" +" phase_77)" "((header48_0)" " header_10))" "(compile-context1.1" @@ -29069,10 +29196,10 @@ static const char *startup_source = "(parsed-begin-for-syntax-body" " body_3)" "(add1" -" phase_75)" +" phase_77)" "(find-or-create-header!_0" "(add1" -" phase_75))))" +" phase_77))))" "(if(let-values(((or-part_214)" "(parsed-#%declare?" " body_3)))" @@ -29086,7 +29213,7 @@ static const char *startup_source = "(parsed-require?" " body_3)))))" "(let-values()" -"(let-values(((e_34)" +"(let-values(((e_35)" "(other-form-callback_0" " body_3" "(let-values(((the-struct_50)" @@ -29094,7 +29221,7 @@ static const char *startup_source = "(if(compile-context?" " the-struct_50)" "(let-values(((phase49_0)" -" phase_75)" +" phase_77)" "((header50_0)" " header_10))" "(compile-context1.1" @@ -29114,21 +29241,21 @@ static const char *startup_source = " 'struct-copy" " \"compile-context?\"" " the-struct_50))))))" -"(if e_34" +"(if e_35" "(let-values()" "(begin" "(compiled-expression-callback_0" -" e_34" +" e_35" " #f" -" phase_75" +" phase_77" "(as-required?_0" " header_10))" "(add-body!_0" -" phase_75" -" e_34)))" +" phase_77" +" e_35)))" "(void))))" "(let-values()" -"(let-values(((e_35)" +"(let-values(((e_36)" "(compile$2" " body_3" "(let-values(((the-struct_51)" @@ -29136,7 +29263,7 @@ static const char *startup_source = "(if(compile-context?" " the-struct_51)" "(let-values(((phase51_0)" -" phase_75)" +" phase_77)" "((header52_0)" " header_10))" "(compile-context1.1" @@ -29162,33 +29289,33 @@ static const char *startup_source = " last-i_0))))" "(begin" "(compiled-expression-callback_0" -" e_35" +" e_36" " #f" -" phase_75" +" phase_77" "(as-required?_0" " header_10))" "(add-body!_0" -" phase_75" -" e_35)))))))))" +" phase_77" +" e_36)))))))))" "(values)))))" "(values)))))" "(if(not" " #f)" -"(for-loop_116" +"(for-loop_117" " rest_86" "(+" " pos_92" " 1))" "(values))))" "(values))))))" -" for-loop_116)" -" lst_192" +" for-loop_117)" +" lst_193" " start_34)))" "(void))))))" " loop!_1)" " bodys_2" -" phase_71" -"(find-or-create-header!_0 phase_71))" +" phase_73" +"(find-or-create-header!_0 phase_73))" "(values))))" "(let-values(((encoded-root-expand-pos_0)" "(if encoded-root-expand-ctx-box_0" @@ -29224,35 +29351,35 @@ static const char *startup_source = "(let-values(((min-phase_0)" "(if(pair? phases-in-order_2)" "(car phases-in-order_2)" -" phase_71)))" +" phase_73)))" "(let-values(((max-phase_0)" "(if(pair? phases-in-order_2)" "(car" "(reverse$1" " phases-in-order_2))" -" phase_71)))" +" phase_73)))" "(let-values(((phase-to-link-info_0)" -"(let-values(((lst_201)" +"(let-values(((lst_203)" " phases-in-order_2))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" -"(check-list lst_201)))" -"((letrec-values(((for-loop_120)" +"(check-list lst_203)))" +"((letrec-values(((for-loop_121)" "(lambda(table_158" -" lst_202)" +" lst_204)" "(begin" " 'for-loop" "(if(pair?" -" lst_202)" -"(let-values(((phase_76)" +" lst_204)" +"(let-values(((phase_78)" "(unsafe-car" -" lst_202))" +" lst_204))" "((rest_106)" "(unsafe-cdr" -" lst_202)))" +" lst_204)))" "(let-values(((table_159)" "(let-values(((table_160)" " table_158))" @@ -29264,7 +29391,7 @@ static const char *startup_source = "(let-values(((header_11)" "(hash-ref" " phase-to-header_0" -" phase_76" +" phase_78" " #f)))" "(let-values(((link-module-uses_0" " imports_2" @@ -29272,11 +29399,11 @@ static const char *startup_source = " def-decls_0)" "(generate-links+imports" " header_11" -" phase_76" +" phase_78" " cctx_3" " cross-linklet-inlining?_1)))" "(values" -" phase_76" +" phase_78" "(link-info1.1" " link-module-uses_0" " imports_2" @@ -29290,16 +29417,16 @@ static const char *startup_source = " table_161)))))" "(if(not" " #f)" -"(for-loop_120" +"(for-loop_121" " table_159" " rest_106)" " table_159)))" " table_158)))))" -" for-loop_120)" +" for-loop_121)" " '#hash()" -" lst_201)))))" +" lst_203)))))" "(let-values(((body-linklets+module-use*s_0)" -"(let-values(((lst_203)" +"(let-values(((lst_205)" " phases-in-order_2))" "(begin" "(if(variable-reference-from-unsafe?" @@ -29307,20 +29434,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_203)))" -"((letrec-values(((for-loop_202)" +" lst_205)))" +"((letrec-values(((for-loop_203)" "(lambda(table_162" -" lst_204)" +" lst_206)" "(begin" " 'for-loop" "(if(pair?" -" lst_204)" -"(let-values(((phase_77)" +" lst_206)" +"(let-values(((phase_79)" "(unsafe-car" -" lst_204))" +" lst_206))" "((rest_107)" "(unsafe-cdr" -" lst_204)))" +" lst_206)))" "(let-values(((table_163)" "(let-values(((table_164)" " table_162))" @@ -29332,16 +29459,16 @@ static const char *startup_source = "(let-values(((bodys_5)" "(hash-ref" " phase-to-body_0" -" phase_77)))" +" phase_79)))" "(let-values(((li_0)" "(hash-ref" " phase-to-link-info_0" -" phase_77)))" +" phase_79)))" "(let-values(((binding-sym-to-define-sym_0)" "(header-binding-sym-to-define-sym" "(hash-ref" " phase-to-header_0" -" phase_77))))" +" phase_79))))" "(let-values(((module-use*s_0)" "(module-uses-add-extra-inspectorsss" "(link-info-link-module-uses" @@ -29381,35 +29508,35 @@ static const char *startup_source = "(link-info-def-decls" " li_0)" "(reverse$1" -"(let-values(((lst_205)" +"(let-values(((lst_207)" "(header-binding-syms-in-order" "(hash-ref" " phase-to-header_0" -" phase_77))))" +" phase_79))))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_205)))" -"((letrec-values(((for-loop_180)" -"(lambda(fold-var_195" -" lst_206)" +" lst_207)))" +"((letrec-values(((for-loop_181)" +"(lambda(fold-var_197" +" lst_208)" "(begin" " 'for-loop" "(if(pair?" -" lst_206)" +" lst_208)" "(let-values(((binding-sym_4)" "(unsafe-car" -" lst_206))" +" lst_208))" "((rest_108)" "(unsafe-cdr" -" lst_206)))" -"(let-values(((fold-var_196)" -"(let-values(((fold-var_197)" -" fold-var_195))" +" lst_208)))" "(let-values(((fold-var_198)" +"(let-values(((fold-var_199)" +" fold-var_197))" +"(let-values(((fold-var_200)" "(let-values()" "(cons" "(let-values()" @@ -29424,19 +29551,19 @@ static const char *startup_source = "(list" " def-sym_3" " binding-sym_4))))" -" fold-var_197))))" +" fold-var_199))))" "(values" -" fold-var_198)))))" +" fold-var_200)))))" "(if(not" " #f)" -"(for-loop_180" -" fold-var_196" +"(for-loop_181" +" fold-var_198" " rest_108)" -" fold-var_196)))" -" fold-var_195)))))" -" for-loop_180)" +" fold-var_198)))" +" fold-var_197)))))" +" for-loop_181)" " null" -" lst_205)))))" +" lst_207)))))" "(qq-append" "(reverse$1" " bodys_5)" @@ -29453,7 +29580,7 @@ static const char *startup_source = " get-module-linklet-info_0" " module-use*s_0)))))" "(values" -" phase_77" +" phase_79" "(cons" " linklet_1" "(list-tail" @@ -29469,14 +29596,14 @@ static const char *startup_source = " table_165)))))" "(if(not" " #f)" -"(for-loop_202" +"(for-loop_203" " table_163" " rest_107)" " table_163)))" " table_162)))))" -" for-loop_202)" +" for-loop_203)" " '#hasheq()" -" lst_203)))))" +" lst_205)))))" "(let-values(((body-linklets_0)" "(let-values(((ht_114)" " body-linklets+module-use*s_0))" @@ -29487,13 +29614,13 @@ static const char *startup_source = "(let-values()" "(check-in-hash" " ht_114)))" -"((letrec-values(((for-loop_203)" +"((letrec-values(((for-loop_204)" "(lambda(table_166" " i_141)" "(begin" " 'for-loop" "(if i_141" -"(let-values(((phase_53" +"(let-values(((phase_55" " l+mu*s_0)" "(hash-iterate-key+value" " ht_114" @@ -29507,7 +29634,7 @@ static const char *startup_source = " val_53)" "(let-values()" "(values" -" phase_53" +" phase_55" "(car" " l+mu*s_0)))))" "(hash-set" @@ -29518,14 +29645,14 @@ static const char *startup_source = " table_126)))))" "(if(not" " #f)" -"(for-loop_203" +"(for-loop_204" " table_167" "(hash-iterate-next" " ht_114" " i_141))" " table_167)))" " table_166)))))" -" for-loop_203)" +" for-loop_204)" " '#hasheq()" "(hash-iterate-first" " ht_114))))))" @@ -29539,13 +29666,13 @@ static const char *startup_source = "(let-values()" "(check-in-hash" " ht_115)))" -"((letrec-values(((for-loop_204)" +"((letrec-values(((for-loop_205)" "(lambda(table_168" " i_142)" "(begin" " 'for-loop" "(if i_142" -"(let-values(((phase_78" +"(let-values(((phase_80" " l+mu*s_1)" "(hash-iterate-key+value" " ht_115" @@ -29559,7 +29686,7 @@ static const char *startup_source = " val_54)" "(let-values()" "(values" -" phase_78" +" phase_80" "(module-uses-strip-extra-inspectorsss" "(cdr" " l+mu*s_1))))))" @@ -29571,14 +29698,14 @@ static const char *startup_source = " table_170)))))" "(if(not" " #f)" -"(for-loop_204" +"(for-loop_205" " table_169" "(hash-iterate-next" " ht_115" " i_142))" " table_169)))" " table_168)))))" -" for-loop_204)" +" for-loop_205)" " '#hasheq()" "(hash-iterate-first" " ht_115))))))" @@ -29596,13 +29723,13 @@ static const char *startup_source = "(let-values()" "(check-in-hash" " ht_116)))" -"((letrec-values(((for-loop_205)" +"((letrec-values(((for-loop_206)" "(lambda(table_171" " i_143)" "(begin" " 'for-loop" "(if i_143" -"(let-values(((phase_79" +"(let-values(((phase_81" " l+mu*s_2)" "(hash-iterate-key+value" " ht_116" @@ -29619,7 +29746,7 @@ static const char *startup_source = " body-imports_0))))" "(begin" " #t" -"((letrec-values(((for-loop_127)" +"((letrec-values(((for-loop_128)" "(lambda(table_173)" "(begin" " 'for-loop" @@ -29636,7 +29763,7 @@ static const char *startup_source = " val_55)" "(let-values()" "(values" -" phase_79" +" phase_81" " extra-inspectorsss_2))))" "(hash-set" " table_176" @@ -29646,18 +29773,18 @@ static const char *startup_source = " table_46)))" " table_175))))" " table_174))))))" -" for-loop_127)" +" for-loop_128)" " table_171)))))" "(if(not" " #f)" -"(for-loop_205" +"(for-loop_206" " table_172" "(hash-iterate-next" " ht_116" " i_143))" " table_172)))" " table_171)))))" -" for-loop_205)" +" for-loop_206)" " '#hash()" "(hash-iterate-first" " ht_116))))))" @@ -29674,7 +29801,7 @@ static const char *startup_source = "(compile-top-level-bind)" "(lambda(ids_7 binding-syms_2 cctx_11 trans-exprs_0)" "(begin" -"(let-values(((phase_80)(compile-context-phase cctx_11)))" +"(let-values(((phase_82)(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(((mpis_16)(header-module-path-indexes header_12)))" @@ -29685,8 +29812,8 @@ static const char *startup_source = "(list*" " 'begin" "(reverse$1" -"(let-values(((lst_207) ids_7)" -"((lst_208) binding-syms_2)" +"(let-values(((lst_209) ids_7)" +"((lst_210) binding-syms_2)" "((lst_117)" "(let-values(((or-part_108) trans-exprs_0))" "(if or-part_108" @@ -29697,54 +29824,54 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_118)))" -"((letrec-values(((for-loop_206)" -"(lambda(fold-var_199 lst_209)" +"((letrec-values(((for-loop_207)" +"(lambda(fold-var_201 lst_211)" "(begin" " 'for-loop" -"(if(pair? lst_209)" -"(let-values(((id_48)(unsafe-car lst_209))" -"((rest_109)(unsafe-cdr lst_209)))" -"(let-values(((fold-var_200)" -"(let-values(((fold-var_201)" -" fold-var_199))" +"(if(pair? lst_211)" +"(let-values(((id_48)(unsafe-car lst_211))" +"((rest_109)(unsafe-cdr lst_211)))" "(let-values(((fold-var_202)" +"(let-values(((fold-var_203)" +" fold-var_201))" +"(let-values(((fold-var_204)" "(let-values()" "(cons" "(let-values()" " ''#f)" -" fold-var_201))))" -"(values fold-var_202)))))" +" fold-var_203))))" +"(values fold-var_204)))))" "(if(not #f)" -"(for-loop_206 fold-var_200 rest_109)" -" fold-var_200)))" -" fold-var_199)))))" -" for-loop_206)" +"(for-loop_207 fold-var_202 rest_109)" +" fold-var_202)))" +" fold-var_201)))))" +" for-loop_207)" " null" " lst_118))))))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_207)))" +"(let-values()(check-list lst_209)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_208)))" +"(let-values()(check-list lst_210)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_117)))" -"((letrec-values(((for-loop_207)" -"(lambda(fold-var_203 lst_210 lst_3 lst_211)" +"((letrec-values(((for-loop_208)" +"(lambda(fold-var_205 lst_212 lst_3 lst_213)" "(begin" " 'for-loop" -"(if(if(pair? lst_210)(if(pair? lst_3)(pair? lst_211) #f) #f)" -"(let-values(((id_49)(unsafe-car lst_210))" -"((rest_110)(unsafe-cdr lst_210))" +"(if(if(pair? lst_212)(if(pair? lst_3)(pair? lst_213) #f) #f)" +"(let-values(((id_49)(unsafe-car lst_212))" +"((rest_110)(unsafe-cdr lst_212))" "((binding-sym_5)(unsafe-car lst_3))" "((rest_111)(unsafe-cdr lst_3))" -"((trans-expr_0)(unsafe-car lst_211))" -"((rest_112)(unsafe-cdr lst_211)))" -"(let-values(((fold-var_204)" -"(let-values(((fold-var_205) fold-var_203))" +"((trans-expr_0)(unsafe-car lst_213))" +"((rest_112)(unsafe-cdr lst_213)))" "(let-values(((fold-var_206)" +"(let-values(((fold-var_207) fold-var_205))" +"(let-values(((fold-var_208)" "(let-values()" "(cons" "(let-values()" @@ -29758,22 +29885,22 @@ static const char *startup_source = " top-level-bind!-id" " id-stx_0" " self-expr_0" -" phase_80" +" phase_82" " 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_207))))" +"(values fold-var_208)))))" "(if(not #f)" -"(for-loop_207 fold-var_204 rest_110 rest_111 rest_112)" -" fold-var_204)))" -" fold-var_203)))))" -" for-loop_207)" +"(for-loop_208 fold-var_206 rest_110 rest_111 rest_112)" +" fold-var_206)))" +" fold-var_205)))))" +" for-loop_208)" " null" -" lst_207" -" lst_208" +" lst_209" +" lst_210" " lst_117))))))))))))))" "(define-values" "(generate-top-level-define-syntaxes)" @@ -29795,36 +29922,36 @@ static const char *startup_source = "(list*" " 'values" "(reverse$1" -"(let-values(((lst_212) gen-syms_1))" +"(let-values(((lst_214) gen-syms_1))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_212)))" -"((letrec-values(((for-loop_208)" -"(lambda(fold-var_207 lst_213)" +"(let-values()(check-list lst_214)))" +"((letrec-values(((for-loop_209)" +"(lambda(fold-var_209 lst_215)" "(begin" " 'for-loop" -"(if(pair? lst_213)" -"(let-values(((s_299)(unsafe-car lst_213))((rest_113)(unsafe-cdr lst_213)))" -"(let-values(((fold-var_208)" -"(let-values(((fold-var_209) fold-var_207))" +"(if(pair? lst_215)" +"(let-values(((s_299)(unsafe-car lst_215))((rest_113)(unsafe-cdr lst_215)))" "(let-values(((fold-var_210)" +"(let-values(((fold-var_211) fold-var_209))" +"(let-values(((fold-var_212)" "(let-values()" -"(cons(let-values() ''#f) fold-var_209))))" -"(values fold-var_210)))))" -"(if(not #f)(for-loop_208 fold-var_208 rest_113) fold-var_208)))" -" fold-var_207)))))" -" for-loop_208)" +"(cons(let-values() ''#f) fold-var_211))))" +"(values fold-var_212)))))" +"(if(not #f)(for-loop_209 fold-var_210 rest_113) fold-var_210)))" +" fold-var_209)))))" +" for-loop_209)" " null" -" lst_212)))))))" +" lst_214)))))))" "(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_36 orig-s_22)" +"(lambda(e_37 orig-s_22)" "(begin" "(let-values(((v_159)(syntax-property$1 orig-s_22 'compiler-hint:cross-module-inline)))" -"(if v_159(correlated-property e_36 'compiler-hint:cross-module-inline v_159) e_36)))))" +"(if v_159(correlated-property e_37 'compiler-hint:cross-module-inline v_159) e_37)))))" "(define-values" "(make-module-use-to-linklet)" "(lambda(cross-linklet-inlining?_2 ns_57 get-module-linklet-info_1 init-mu*s_0)" @@ -29850,12 +29977,12 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_143)))" -"((letrec-values(((for-loop_169)" -"(lambda(lst_214)" +"((letrec-values(((for-loop_170)" +"(lambda(lst_216)" "(begin" " 'for-loop" -"(if(pair? lst_214)" -"(let-values(((mu*_6)(unsafe-car lst_214))((rest_114)(unsafe-cdr lst_214)))" +"(if(pair? lst_216)" +"(let-values(((mu*_6)(unsafe-car lst_216))((rest_114)(unsafe-cdr lst_216)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -29864,9 +29991,9 @@ static const char *startup_source = "(let-values()(intern-module-use*_0 mu*_6))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_169 rest_114)(values))))" +"(if(not #f)(for-loop_170 rest_114)(values))))" "(values))))))" -" for-loop_169)" +" for-loop_170)" " lst_143)))" "(void)" "(lambda(mu*-or-instance_0)" @@ -29903,41 +30030,41 @@ static const char *startup_source = "((extra-inspectorsss_3)" "(module-linklet-info-extra-inspectorsss mli_0)))" "(reverse$1" -"(let-values(((lst_215) mus_2)" -"((lst_216)" +"(let-values(((lst_217) mus_2)" +"((lst_218)" "(1/linklet-import-variables" "(module-linklet-info-linklet-or-instance mli_0)))" -"((lst_217)" +"((lst_219)" "(let-values(((or-part_217) extra-inspectorsss_3))" "(if or-part_217 or-part_217 mus_2))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_215)))" -"(if(variable-reference-from-unsafe?(#%variable-reference))" -"(void)" -"(let-values()(check-list lst_216)))" -"(if(variable-reference-from-unsafe?(#%variable-reference))" -"(void)" "(let-values()(check-list lst_217)))" -"((letrec-values(((for-loop_209)" -"(lambda(fold-var_211 lst_218 lst_219 lst_220)" +"(if(variable-reference-from-unsafe?(#%variable-reference))" +"(void)" +"(let-values()(check-list lst_218)))" +"(if(variable-reference-from-unsafe?(#%variable-reference))" +"(void)" +"(let-values()(check-list lst_219)))" +"((letrec-values(((for-loop_210)" +"(lambda(fold-var_213 lst_220 lst_221 lst_222)" "(begin" " 'for-loop" -"(if(if(pair? lst_218)" -"(if(pair? lst_219)(pair? lst_220) #f)" +"(if(if(pair? lst_220)" +"(if(pair? lst_221)(pair? lst_222) #f)" " #f)" -"(let-values(((sub-mu_0)(unsafe-car lst_218))" -"((rest_115)(unsafe-cdr lst_218))" -"((imports_3)(unsafe-car lst_219))" -"((rest_116)(unsafe-cdr lst_219))" +"(let-values(((sub-mu_0)(unsafe-car lst_220))" +"((rest_115)(unsafe-cdr lst_220))" +"((imports_3)(unsafe-car lst_221))" +"((rest_116)(unsafe-cdr lst_221))" "((extra-inspectorss_13)" -"(unsafe-car lst_220))" -"((rest_117)(unsafe-cdr lst_220)))" -"(let-values(((fold-var_212)" -"(let-values(((fold-var_213)" -" fold-var_211))" +"(unsafe-car lst_222))" +"((rest_117)(unsafe-cdr lst_222)))" "(let-values(((fold-var_214)" +"(let-values(((fold-var_215)" +" fold-var_213))" +"(let-values(((fold-var_216)" "(let-values()" "(cons" "(let-values()" @@ -29960,21 +30087,21 @@ static const char *startup_source = "(if extra-inspectorsss_3" " extra-inspectorss_13" " #f))))" -" fold-var_213))))" -"(values fold-var_214)))))" +" fold-var_215))))" +"(values fold-var_216)))))" "(if(not #f)" -"(for-loop_209" -" fold-var_212" +"(for-loop_210" +" fold-var_214" " rest_115" " rest_116" " rest_117)" -" fold-var_212)))" -" fold-var_211)))))" -" for-loop_209)" +" fold-var_214)))" +" fold-var_213)))))" +" for-loop_210)" " null" -" lst_215" -" lst_216" -" lst_217)))))))" +" lst_217" +" lst_218" +" lst_219)))))))" " #f))" "(values #f #f)))))))" "(let-values()(values #f #f))))))))))))" @@ -29987,34 +30114,34 @@ static const char *startup_source = "(map-cim-tree" " cims_0" "(lambda(cim_1)" -"(let-values(((vec_55 i_144)" -"(let-values(((vec_56 len_28)" -"(let-values(((vec_57)(compiled-in-memory-mpis cim_1)))" +"(let-values(((vec_58 i_144)" +"(let-values(((vec_59 len_29)" +"(let-values(((vec_60)(compiled-in-memory-mpis cim_1)))" "(begin" -"(check-vector vec_57)" -"(values vec_57(unsafe-vector-length vec_57))))))" +"(check-vector vec_60)" +"(values vec_60(unsafe-vector-length vec_60))))))" "(begin" " #f" "((letrec-values(((for-loop_96)" -"(lambda(vec_58 i_145 pos_93)" +"(lambda(vec_61 i_145 pos_93)" "(begin" " 'for-loop" -"(if(unsafe-fx< pos_93 len_28)" +"(if(unsafe-fx< pos_93 len_29)" "(let-values(((mpi_45)" -"(unsafe-vector-ref vec_56 pos_93)))" -"(let-values(((vec_59 i_146)" -"(let-values(((vec_60) vec_58)" +"(unsafe-vector-ref vec_59 pos_93)))" +"(let-values(((vec_62 i_146)" +"(let-values(((vec_63) vec_61)" "((i_57) i_145))" -"(let-values(((vec_61 i_147)" +"(let-values(((vec_64 i_147)" "(let-values()" "(let-values(((new-vec_3)" "(if(eq?" " i_57" "(unsafe-vector*-length" -" vec_60))" +" vec_63))" "(grow-vector" -" vec_60)" -" vec_60)))" +" vec_63)" +" vec_63)))" "(begin" "(unsafe-vector*-set!" " new-vec_3" @@ -30028,19 +30155,19 @@ static const char *startup_source = "(unsafe-fx+" " i_57" " 1)))))))" -"(values vec_61 i_147)))))" +"(values vec_64 i_147)))))" "(if(not #f)" "(for-loop_96" -" vec_59" +" vec_62" " i_146" "(unsafe-fx+ 1 pos_93))" -"(values vec_59 i_146))))" -"(values vec_58 i_145))))))" +"(values vec_62 i_146))))" +"(values vec_61 i_145))))))" " for-loop_96)" "(make-vector 16)" " 0" " 0)))))" -"(shrink-vector vec_55 i_144))))))" +"(shrink-vector vec_58 i_144))))))" "(let-values(((syntax-literals_2)(make-syntax-literals)))" "(let-values(((syntax-literals-trees_0)" "(map-cim-tree" @@ -30067,11 +30194,11 @@ static const char *startup_source = "(list*" " 'vector" "(reverse$1" -"(let-values(((lst_221)(reverse$1 module-uses-tables_0)))" +"(let-values(((lst_223)(reverse$1 module-uses-tables_0)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_221)))" +"(let-values()(check-list lst_223)))" "((letrec-values(((for-loop_106)" "(lambda(fold-var_69 lst_89)" "(begin" @@ -30081,7 +30208,7 @@ static const char *startup_source = "(unsafe-car lst_89))" "((rest_118)(unsafe-cdr lst_89)))" "(let-values(((fold-var_34)" -"(let-values(((fold-var_157)" +"(let-values(((fold-var_159)" " fold-var_69))" "(let-values(((fold-var_9)" "(let-values()" @@ -30090,7 +30217,7 @@ static const char *startup_source = "(serialize-phase-to-link-module-uses" " phase-to-link-module-uses_2" " mpis_17))" -" fold-var_157))))" +" fold-var_159))))" "(values fold-var_9)))))" "(if(not #f)" "(for-loop_106 fold-var_34 rest_118)" @@ -30098,7 +30225,7 @@ static const char *startup_source = " fold-var_69)))))" " for-loop_106)" " null" -" lst_221)))))))" +" lst_223)))))))" "(1/compile-linklet" "(list" " 'linklet" @@ -30137,15 +30264,15 @@ static const char *startup_source = "(void)" "(let-values()(check-list lst_81)))" "((letrec-values(((for-loop_97)" -"(lambda(fold-var_215 lst_82)" +"(lambda(fold-var_217 lst_82)" "(begin" " 'for-loop" "(if(pair? lst_82)" "(let-values(((cim_4)(unsafe-car lst_82))" "((rest_119)(unsafe-cdr lst_82)))" -"(let-values(((fold-var_158)" -"(let-values(((fold-var_166) fold-var_215))" -"(let-values(((fold-var_167)" +"(let-values(((fold-var_160)" +"(let-values(((fold-var_168) fold-var_217))" +"(let-values(((fold-var_169)" "(let-values()" "(cons" "(let-values()" @@ -30157,12 +30284,12 @@ static const char *startup_source = "(loop_38" "(compiled-in-memory-post-compiled-in-memorys" " cim_4))))" -" fold-var_166))))" -"(values fold-var_167)))))" +" fold-var_168))))" +"(values fold-var_169)))))" "(if(not #f)" -"(for-loop_97 fold-var_158 rest_119)" -" fold-var_158)))" -" fold-var_215)))))" +"(for-loop_97 fold-var_160 rest_119)" +" fold-var_160)))" +" fold-var_217)))))" " for-loop_97)" " null" " lst_81))))))))" @@ -30189,15 +30316,15 @@ static const char *startup_source = "(let-values()(car cims_3))" "(let-values()" "(let-values(((sequence-ht_0)" -"(let-values(((lst_222) cims_3)((start_35) 0))" +"(let-values(((lst_224) cims_3)((start_35) 0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_222)))" +"(let-values()(check-list lst_224)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-naturals start_35)))" -"((letrec-values(((for-loop_210)" +"((letrec-values(((for-loop_211)" "(lambda(table_177 lst_100 pos_95)" "(begin" " 'for-loop" @@ -30226,12 +30353,12 @@ static const char *startup_source = " val_56)))))" "(values table_180)))))" "(if(not #f)" -"(for-loop_210 table_178 rest_36(+ pos_95 1))" +"(for-loop_211 table_178 rest_36(+ pos_95 1))" " table_178)))" " table_177)))))" -" for-loop_210)" +" for-loop_211)" " '#hasheq()" -" lst_222" +" lst_224" " start_35)))))" "(let-values(((ht_117)" "(if merge-serialization?_0" @@ -30273,12 +30400,12 @@ static const char *startup_source = "(void)" "(let-values()(check-range start_36 end_25 inc_19)))" "((letrec-values(((for-loop_10)" -"(lambda(fold-var_216 pos_96)" +"(lambda(fold-var_218 pos_96)" "(begin" " 'for-loop" "(if(< pos_96 end_25)" "(let-values(((i_92) pos_96))" -"(let-values(((fold-var_171)" +"(let-values(((fold-var_173)" "(let-values(((top_0)" "(hash-ref" " ht_118" @@ -30292,25 +30419,25 @@ static const char *startup_source = " 'for-loop" "(let-values()" "(let-values(((fold-var_72)" -"(let-values(((fold-var_217)" +"(let-values(((fold-var_219)" " fold-var_66))" "(if top_0" -"(let-values(((fold-var_218)" -" fold-var_217))" -"(let-values(((fold-var_219)" +"(let-values(((fold-var_220)" +" fold-var_219))" +"(let-values(((fold-var_221)" "(let-values()" "(cons" "(let-values()" " top_0)" -" fold-var_218))))" +" fold-var_220))))" "(values" -" fold-var_219)))" -" fold-var_217))))" +" fold-var_221)))" +" fold-var_219))))" " fold-var_72))))))" " for-loop_113)" -" fold-var_216)))))" -"(if(not #f)(for-loop_10 fold-var_171(+ pos_96 inc_19)) fold-var_171)))" -" fold-var_216)))))" +" fold-var_218)))))" +"(if(not #f)(for-loop_10 fold-var_173(+ pos_96 inc_19)) fold-var_173)))" +" fold-var_218)))))" " for-loop_10)" " null" " start_36))))))))" @@ -30335,35 +30462,35 @@ static const char *startup_source = " cims_4))))" "(define-values" "(struct:known-defined/delay known-defined/delay2.1 known-defined/delay? known-defined/delay-thunk)" -"(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 'known-defined/delay #f 1 0 #f null 'prefab #f '(0) #f 'known-defined/delay)))))" -"(values struct:_64 make-_64 ?_64(make-struct-field-accessor -ref_64 0 'thunk))))" +"(values struct:_65 make-_65 ?_65(make-struct-field-accessor -ref_65 0 'thunk))))" "(define-values" "(struct:known-property known-property3.1 known-property?)" -"(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 'known-property #f 0 0 #f null 'prefab #f '() #f 'known-property)))))" -"(values struct:_58 make-_58 ?_58)))" +"(values struct:_59 make-_59 ?_59)))" "(define-values" "(struct:known-function known-function4.1 known-function? known-function-arity known-function-pure?)" -"(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 'known-function #f 2 0 #f null 'prefab #f '(0 1) #f 'known-function)))))" "(values" -" struct:_65" -" make-_65" -" ?_65" -"(make-struct-field-accessor -ref_65 0 'arity)" -"(make-struct-field-accessor -ref_65 1 'pure?))))" +" struct:_66" +" make-_66" +" ?_66" +"(make-struct-field-accessor -ref_66 0 'arity)" +"(make-struct-field-accessor -ref_66 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:_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" @@ -30378,7 +30505,7 @@ static const char *startup_source = " '(0)" " #f" " 'known-function-of-satisfying)))))" -"(values struct:_37 make-_37 ?_37(make-struct-field-accessor -ref_37 0 'arg-predicate-keys))))" +"(values struct:_38 make-_38 ?_38(make-struct-field-accessor -ref_38 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)" @@ -30388,23 +30515,23 @@ 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:_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 'known-satisfies #f 1 0 #f null 'prefab #f '(0) #f 'known-satisfies)))))" -"(values struct:_66 make-_66 ?_66(make-struct-field-accessor -ref_66 0 'predicate-key))))" +"(values struct:_67 make-_67 ?_67(make-struct-field-accessor -ref_67 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:_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 'known-struct-op #f 2 0 #f null 'prefab #f '(0 1) #f 'known-struct-op)))))" "(values" -" struct:_34" -" make-_34" -" ?_34" -"(make-struct-field-accessor -ref_34 0 'type)" -"(make-struct-field-accessor -ref_34 1 'field-count))))" +" struct:_35" +" make-_35" +" ?_35" +"(make-struct-field-accessor -ref_35 0 'type)" +"(make-struct-field-accessor -ref_35 1 'field-count))))" "(define-values" "(lookup-defn)" "(lambda(defns_0 sym_51)" @@ -30425,7 +30552,7 @@ static const char *startup_source = " expected-results8_0)" "(begin" " 'any-side-effects?9" -"(let-values(((e_37) e7_0))" +"(let-values(((e_38) 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())))" @@ -30433,10 +30560,10 @@ static const char *startup_source = "(if ready-variable?6_0 ready-variable?3_0(lambda(id_50)(begin 'ready-variable? #f)))))" "(let-values()" "(let-values(((effects?_0)" -"(lambda(e_38 expected-results_1 locals_1)" +"(lambda(e_39 expected-results_1 locals_1)" "(begin" " 'effects?" -"(let-values(((e12_0) e_38)" +"(let-values(((e12_0) e_39)" "((expected-results13_0) expected-results_1)" "((locals14_0) locals_1)" "((defns15_0) defns_1)" @@ -30452,12 +30579,12 @@ static const char *startup_source = " expected-results13_0))))))" "(let-values(((actual-results_0)" "((letrec-values(((loop_2)" -"(lambda(e_39 locals_2)" +"(lambda(e_40 locals_2)" "(begin" " 'loop" "(let-values(((tmp_26)" -"(if(pair?(correlated-e e_39))" -"(correlated-e(car(correlated-e e_39)))" +"(if(pair?(correlated-e e_40))" +"(correlated-e(car(correlated-e e_40)))" " #f)))" "(let-values(((index_1)" "(if(symbol? tmp_26)" @@ -30484,7 +30611,7 @@ 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_39)))" +"(let-values(((v_4)(correlated-e e_40)))" "(if(let-values(((or-part_78)(string? v_4)))" "(if or-part_78" " or-part_78" @@ -30497,7 +30624,7 @@ static const char *startup_source = " or-part_29" "(char? v_4)))))))" "(let-values() 1)" -"(let-values(((c1_24)" +"(let-values(((c1_26)" "(if(pair? v_4)" "(let-values(((rator_0)" "(correlated-e" @@ -30513,10 +30640,10 @@ static const char *startup_source = " defns_1" " rator_0))))" " #f)))" -"(if c1_24" +"(if c1_26" "((lambda(d_19)" "(let-values(((ok?_17 _17_0 e18_0)" -"(let-values(((s_83) e_39))" +"(let-values(((s_83) e_40))" "(let-values(((orig-s_23)" " s_83))" "(let-values(((_17_1" @@ -30535,15 +30662,15 @@ static const char *startup_source = " s_300)))" " s_84))" "((e20_0)" -"(let-values(((s_159)" +"(let-values(((s_160)" "(cdr" " s_300)))" "(let-values(((s_301)" "(if(1/syntax?" -" s_159)" +" s_160)" "(syntax-e$2" -" s_159)" -" s_159)))" +" s_160)" +" s_160)))" "(let-values(((flat-s_13)" "(to-syntax-list.1$1" " s_301)))" @@ -30552,7 +30679,7 @@ static const char *startup_source = "(let-values()" "((lambda(false_0" " str_5" -" e_40)" +" e_41)" "(error" " str_5))" " #f" @@ -30565,7 +30692,7 @@ static const char *startup_source = " e20_0))" "((lambda(false_1" " str_6" -" e_41)" +" e_42)" "(error" " str_6))" " #f" @@ -30612,45 +30739,45 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_8)))" -"((letrec-values(((for-loop_211)" -"(lambda(result_81" -" lst_223)" +"((letrec-values(((for-loop_212)" +"(lambda(result_82" +" lst_225)" "(begin" " 'for-loop" "(if(pair?" -" lst_223)" -"(let-values(((e_42)" +" lst_225)" +"(let-values(((e_43)" "(unsafe-car" -" lst_223))" +" lst_225))" "((rest_120)" "(unsafe-cdr" -" lst_223)))" -"(let-values(((result_40)" +" lst_225)))" +"(let-values(((result_83)" "(let-values()" -"(let-values(((result_82)" +"(let-values(((result_84)" "(let-values()" "(let-values()" "(not" "(effects?_0" -" e_42" +" e_43" " 1" " locals_2))))))" "(values" -" result_82)))))" +" result_84)))))" "(if(if(not" -"((lambda x_52" +"((lambda x_54" "(not" -" result_40))" -" e_42))" +" result_83))" +" e_43))" "(not" " #f)" " #f)" -"(for-loop_211" -" result_40" +"(for-loop_212" +" result_83" " rest_120)" -" result_40)))" -" result_81)))))" -" for-loop_211)" +" result_83)))" +" result_82)))))" +" for-loop_212)" " #t" " lst_8)))" " #f)))" @@ -30665,7 +30792,7 @@ static const char *startup_source = " d_19)))" "(let-values(((lst_10)" " e18_0)" -"((lst_224)" +"((lst_226)" "(known-function-of-satisfying-arg-predicate-keys" " d_19)))" "(begin" @@ -30680,77 +30807,77 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_224)))" +" lst_226)))" "((letrec-values(((for-loop_99)" -"(lambda(result_83" -" lst_178" -" lst_225)" +"(lambda(result_85" +" lst_179" +" lst_227)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_178)" +" lst_179)" "(pair?" -" lst_225)" +" lst_227)" " #f)" -"(let-values(((e_43)" +"(let-values(((e_44)" "(unsafe-car" -" lst_178))" +" lst_179))" "((rest_121)" "(unsafe-cdr" -" lst_178))" +" lst_179))" "((key_65)" "(unsafe-car" -" lst_225))" +" lst_227))" "((rest_122)" "(unsafe-cdr" -" lst_225)))" -"(let-values(((result_42)" +" lst_227)))" +"(let-values(((result_86)" "(let-values()" -"(let-values(((result_43)" +"(let-values(((result_87)" "(let-values()" "(let-values()" "(if(not" "(effects?_0" -" e_43" +" e_44" " 1" " locals_2))" "(satisfies?" -" e_43" +" e_44" " key_65" " defns_1" " locals_2)" " #f)))))" "(values" -" result_43)))))" +" result_87)))))" "(if(if(not" -"((lambda x_31" +"((lambda x_55" "(not" -" result_42))" -" e_43))" +" result_86))" +" e_44))" "(if(not" -"((lambda x_53" +"((lambda x_56" "(not" -" result_42))" +" result_86))" " key_65))" "(not" " #f)" " #f)" " #f)" "(for-loop_99" -" result_42" +" result_86" " rest_121" " rest_122)" -" result_42)))" -" result_83)))))" +" result_86)))" +" result_85)))))" " for-loop_99)" " #t" " lst_10" -" lst_224)))" +" lst_226)))" " #f)" " #f)))" " 1" " #f))))" -" c1_24)" +" c1_26)" "(let-values()" "(if(let-values(((or-part_165)" "(self-quoting-in-linklet?" @@ -30789,7 +30916,7 @@ static const char *startup_source = " ids22_0" " rhs23_0" " body24_0)" -"(let-values(((s_168) e_39))" +"(let-values(((s_168) e_40))" "(let-values(((orig-s_24) s_168))" "(let-values(((_21_1" " ids22_1" @@ -30826,7 +30953,7 @@ static const char *startup_source = "(let-values(((s_303)" "(car" " s_30)))" -"(let-values(((s_156)" +"(let-values(((s_157)" "(if(1/syntax?" " s_303)" "(syntax-e$2" @@ -30834,13 +30961,13 @@ static const char *startup_source = " s_303)))" "(let-values(((flat-s_14)" "(to-syntax-list.1$1" -" s_156)))" +" s_157)))" "(if(not" " flat-s_14)" "(let-values()" "((lambda(false_2" " str_2" -" e_44)" +" e_45)" "(error" " str_2))" " #f" @@ -30849,7 +30976,7 @@ static const char *startup_source = "(let-values()" "(let-values(((ids_8" " rhs_4)" -"(let-values(((lst_226)" +"(let-values(((lst_228)" " flat-s_14))" "(begin" "(if(variable-reference-from-unsafe?" @@ -30857,21 +30984,21 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_226)))" -"((letrec-values(((for-loop_212)" +" lst_228)))" +"((letrec-values(((for-loop_213)" "(lambda(ids_9" " rhs_5" -" lst_227)" +" lst_229)" "(begin" " 'for-loop" "(if(pair?" -" lst_227)" +" lst_229)" "(let-values(((s_304)" "(unsafe-car" -" lst_227))" +" lst_229))" "((rest_123)" "(unsafe-cdr" -" lst_227)))" +" lst_229)))" "(let-values(((ids_10" " rhs_6)" "(let-values(((ids_11)" @@ -30918,18 +31045,18 @@ static const char *startup_source = "(let-values(((s_308)" "(cdr" " s_307)))" -"(let-values(((s_155)" +"(let-values(((s_156)" "(if(1/syntax?" " s_308)" "(syntax-e$2" " s_308)" " s_308)))" "(if(null?" -" s_155)" +" s_156)" "(values)" "((lambda(false_3" " str_7" -" e_45)" +" e_46)" "(error" " str_7))" " #f" @@ -30939,7 +31066,7 @@ static const char *startup_source = " rhs34_0))" "((lambda(false_4" " str_8" -" e_46)" +" e_47)" "(error" " str_8))" " #f" @@ -30950,7 +31077,7 @@ static const char *startup_source = " rhs33_0))" "((lambda(false_5" " str_9" -" e_47)" +" e_48)" "(error" " str_9))" " #f" @@ -30968,7 +31095,7 @@ static const char *startup_source = " rhs_8)))))" "(if(not" " #f)" -"(for-loop_212" +"(for-loop_213" " ids_10" " rhs_6" " rest_123)" @@ -30978,10 +31105,10 @@ static const char *startup_source = "(values" " ids_9" " rhs_5))))))" -" for-loop_212)" +" for-loop_213)" " null" " null" -" lst_226)))))" +" lst_228)))))" "(values" "(reverse$1" " ids_8)" @@ -31019,7 +31146,7 @@ static const char *startup_source = "(values)" "((lambda(false_6" " str_10" -" e_48)" +" e_49)" "(error" " str_10))" " #f" @@ -31029,7 +31156,7 @@ static const char *startup_source = " body35_0))" "((lambda(false_7" " str_11" -" e_49)" +" e_50)" "(error" " str_11))" " #f" @@ -31041,7 +31168,7 @@ static const char *startup_source = " body31_0))" "((lambda(false_8" " str_12" -" e_50)" +" e_51)" "(error" " str_12))" " #f" @@ -31054,7 +31181,7 @@ static const char *startup_source = " body28_0))" "((lambda(false_9" " str_13" -" e_51)" +" e_52)" "(error" " str_13))" " #f" @@ -31067,41 +31194,41 @@ static const char *startup_source = " rhs23_1" " body24_1))))))" "(if(not" -"(let-values(((lst_228) ids22_0)" -"((lst_229) rhs23_0))" +"(let-values(((lst_230) ids22_0)" +"((lst_231) rhs23_0))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_228)))" +"(let-values()(check-list lst_230)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_229)))" -"((letrec-values(((for-loop_213)" -"(lambda(result_84" -" lst_230" -" lst_197)" +"(let-values()(check-list lst_231)))" +"((letrec-values(((for-loop_214)" +"(lambda(result_88" +" lst_232" +" lst_199)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_230)" +" lst_232)" "(pair?" -" lst_197)" +" lst_199)" " #f)" "(let-values(((ids_13)" "(unsafe-car" -" lst_230))" +" lst_232))" "((rest_103)" "(unsafe-cdr" -" lst_230))" +" lst_232))" "((rhs_9)" "(unsafe-car" -" lst_197))" +" lst_199))" "((rest_124)" "(unsafe-cdr" -" lst_197)))" -"(let-values(((result_85)" +" lst_199)))" +"(let-values(((result_89)" "(let-values()" "(let-values(((result_14)" "(let-values()" @@ -31114,27 +31241,27 @@ static const char *startup_source = "(values" " result_14)))))" "(if(if(not" -"((lambda x_54" -" result_85)" +"((lambda x_57" +" result_89)" " ids_13))" "(if(not" -"((lambda x_55" -" result_85)" +"((lambda x_58" +" result_89)" " rhs_9))" "(not" " #f)" " #f)" " #f)" -"(for-loop_213" -" result_85" +"(for-loop_214" +" result_89" " rest_103" " rest_124)" -" result_85)))" -" result_84)))))" -" for-loop_213)" +" result_89)))" +" result_88)))))" +" for-loop_214)" " #f" -" lst_228" -" lst_229))))" +" lst_230" +" lst_231))))" "(loop_2" " body24_0" "(add-binding-info locals_2 ids22_0 rhs23_0))" @@ -31142,7 +31269,7 @@ static const char *startup_source = "(if(unsafe-fx< index_1 4)" "(let-values()" "(let-values(((ok?_19 _38_0 e39_0)" -"(let-values(((s_312) e_39))" +"(let-values(((s_312) e_40))" "(let-values(((orig-s_25) s_312))" "(let-values(((_38_1 e39_1)" "(let-values(((s_37)" @@ -31175,7 +31302,7 @@ static const char *startup_source = "(let-values()" "((lambda(false_10" " str_14" -" e_52)" +" e_53)" "(error" " str_14))" " #f" @@ -31188,7 +31315,7 @@ static const char *startup_source = " e41_0))" "((lambda(false_11" " str_15" -" e_53)" +" e_54)" "(error" " str_15))" " #f" @@ -31201,86 +31328,86 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()(check-list lst_155)))" -"((letrec-values(((for-loop_214)" -"(lambda(result_61" -" lst_231)" +"((letrec-values(((for-loop_215)" +"(lambda(result_62" +" lst_233)" "(begin" " 'for-loop" "(if(pair?" -" lst_231)" -"(let-values(((e_54)" +" lst_233)" +"(let-values(((e_55)" "(unsafe-car" -" lst_231))" +" lst_233))" "((rest_125)" "(unsafe-cdr" -" lst_231)))" -"(let-values(((result_86)" +" lst_233)))" +"(let-values(((result_90)" "(let-values()" -"(let-values(((result_87)" +"(let-values(((result_91)" "(let-values()" "(let-values()" "(not" "(effects?_0" -" e_54" +" e_55" " 1" " locals_2))))))" "(values" -" result_87)))))" +" result_91)))))" "(if(if(not" -"((lambda x_56" +"((lambda x_59" "(not" -" result_86))" -" e_54))" +" result_90))" +" e_55))" "(not" " #f)" " #f)" -"(for-loop_214" -" result_86" +"(for-loop_215" +" result_90" " rest_125)" -" result_86)))" -" result_61)))))" -" for-loop_214)" +" result_90)))" +" result_62)))))" +" for-loop_215)" " #t" " lst_155)))" "(length e39_0)" " #f)))" "(let-values()" "(let-values(((ok?_20 _42_0 e43_0)" -"(let-values(((s_204) e_39))" -"(let-values(((orig-s_26) s_204))" +"(let-values(((s_205) e_40))" +"(let-values(((orig-s_26) s_205))" "(let-values(((_42_1 e43_1)" "(let-values(((s_315)" "(if(1/syntax?" -" s_204)" +" s_205)" "(syntax-e$2" -" s_204)" -" s_204)))" +" s_205)" +" s_205)))" "(if(pair?" " s_315)" "(let-values(((_44_0)" -"(let-values(((s_149)" +"(let-values(((s_316)" "(car" " s_315)))" -" s_149))" +" s_316))" "((e45_0)" -"(let-values(((s_316)" +"(let-values(((s_317)" "(cdr" " s_315)))" -"(let-values(((s_317)" +"(let-values(((s_318)" "(if(1/syntax?" -" s_316)" +" s_317)" "(syntax-e$2" -" s_316)" -" s_316)))" +" s_317)" +" s_317)))" "(let-values(((flat-s_16)" "(to-syntax-list.1$1" -" s_317)))" +" s_318)))" "(if(not" " flat-s_16)" "(let-values()" "((lambda(false_12" " str_16" -" e_55)" +" e_56)" "(error" " str_16))" " #f" @@ -31293,86 +31420,86 @@ static const char *startup_source = " e45_0))" "((lambda(false_13" " str_17" -" e_56)" +" e_57)" "(error" " str_17))" " #f" " \"bad syntax\"" " orig-s_26)))))" "(values #t _42_1 e43_1))))))" -"(if(let-values(((lst_232) e43_0))" +"(if(let-values(((lst_234) e43_0))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_232)))" -"((letrec-values(((for-loop_215)" -"(lambda(result_88" -" lst_233)" +"(let-values()(check-list lst_234)))" +"((letrec-values(((for-loop_216)" +"(lambda(result_92" +" lst_235)" "(begin" " 'for-loop" "(if(pair?" -" lst_233)" -"(let-values(((e_57)" +" lst_235)" +"(let-values(((e_58)" "(unsafe-car" -" lst_233))" +" lst_235))" "((rest_126)" "(unsafe-cdr" -" lst_233)))" -"(let-values(((result_89)" +" lst_235)))" +"(let-values(((result_93)" "(let-values()" -"(let-values(((result_90)" +"(let-values(((result_94)" "(let-values()" "(let-values()" "(not" "(effects?_0" -" e_57" +" e_58" " 1" " locals_2))))))" "(values" -" result_90)))))" +" result_94)))))" "(if(if(not" -"((lambda x_57" +"((lambda x_60" "(not" -" result_89))" -" e_57))" +" result_93))" +" e_58))" "(not" " #f)" " #f)" -"(for-loop_215" -" result_89" +"(for-loop_216" +" result_93" " rest_126)" -" result_89)))" -" result_88)))))" -" for-loop_215)" +" result_93)))" +" result_92)))))" +" for-loop_216)" " #t" -" lst_232)))" +" lst_234)))" " 1" " #f))))))" "(if(unsafe-fx< index_1 8)" "(if(unsafe-fx< index_1 6)" "(let-values()" "(let-values(((ok?_21 _46_0 e47_0)" -"(let-values(((s_318) e_39))" -"(let-values(((orig-s_27) s_318))" +"(let-values(((s_319) e_40))" +"(let-values(((orig-s_27) s_319))" "(let-values(((_46_1 e47_1)" "(let-values(((s_102)" "(if(1/syntax?" -" s_318)" +" s_319)" "(syntax-e$2" -" s_318)" -" s_318)))" +" s_319)" +" s_319)))" "(if(pair? s_102)" "(let-values(((_48_0)" -"(let-values(((s_319)" +"(let-values(((s_320)" "(car" " s_102)))" -" s_319))" +" s_320))" "((e49_0)" "(let-values(((s_105)" "(cdr" " s_102)))" -"(let-values(((s_320)" +"(let-values(((s_321)" "(if(1/syntax?" " s_105)" "(syntax-e$2" @@ -31380,13 +31507,13 @@ static const char *startup_source = " s_105)))" "(let-values(((flat-s_17)" "(to-syntax-list.1$1" -" s_320)))" +" s_321)))" "(if(not" " flat-s_17)" "(let-values()" "((lambda(false_14" " str_18" -" e_58)" +" e_59)" "(error" " str_18))" " #f" @@ -31399,7 +31526,7 @@ static const char *startup_source = " e49_0))" "((lambda(false_15" " str_19" -" e_59)" +" e_60)" "(error" " str_19))" " #f" @@ -31430,7 +31557,7 @@ static const char *startup_source = "(if(unsafe-fx< index_1 7)" "(let-values()" "(let-values(((ok?_7 _50_0 e051_0 e52_0)" -"(let-values(((s_214) e_39))" +"(let-values(((s_214) e_40))" "(let-values(((orig-s_9) s_214))" "(let-values(((_50_1" " e051_1" @@ -31484,7 +31611,7 @@ static const char *startup_source = "(let-values()" "((lambda(false_16" " str_20" -" e_60)" +" e_61)" "(error" " str_20))" " #f" @@ -31497,7 +31624,7 @@ static const char *startup_source = " e57_0))" "((lambda(false_17" " str_21" -" e_61)" +" e_62)" "(error" " str_21))" " #f" @@ -31509,7 +31636,7 @@ static const char *startup_source = " e55_0))" "((lambda(false_18" " str_22" -" e_62)" +" e_63)" "(error" " str_22))" " #f" @@ -31527,43 +31654,43 @@ static const char *startup_source = "(void)" "(let-values()(check-list lst_39)))" "((letrec-values(((for-loop_45)" -"(lambda(result_91" -" lst_234)" +"(lambda(result_95" +" lst_236)" "(begin" " 'for-loop" "(if(pair?" -" lst_234)" -"(let-values(((e_63)" +" lst_236)" +"(let-values(((e_64)" "(unsafe-car" -" lst_234))" +" lst_236))" "((rest_127)" "(unsafe-cdr" -" lst_234)))" -"(let-values(((result_92)" +" lst_236)))" +"(let-values(((result_96)" "(let-values()" -"(let-values(((result_93)" +"(let-values(((result_97)" "(let-values()" "(let-values()" "(not" "(effects?_0" -" e_63" +" e_64" " #f" " locals_2))))))" "(values" -" result_93)))))" +" result_97)))))" "(if(if(not" -"((lambda x_58" +"((lambda x_61" "(not" -" result_92))" -" e_63))" +" result_96))" +" e_64))" "(not" " #f)" " #f)" "(for-loop_45" -" result_92" +" result_96" " rest_127)" -" result_92)))" -" result_91)))))" +" result_96)))" +" result_95)))))" " for-loop_45)" " #t" " lst_39)))" @@ -31571,7 +31698,7 @@ static const char *startup_source = " #f)))" "(let-values()" "(if(ok-make-struct-type?" -" e_39" +" e_40" " ready-variable?_0" " defns_1)" " 5" @@ -31579,7 +31706,7 @@ static const char *startup_source = "(if(unsafe-fx< index_1 9)" "(let-values()" "(if(ok-make-struct-field-accessor/mutator?" -" e_39" +" e_40" " locals_2" " 'general-accessor" " defns_1)" @@ -31588,7 +31715,7 @@ static const char *startup_source = "(if(unsafe-fx< index_1 10)" "(let-values()" "(if(ok-make-struct-field-accessor/mutator?" -" e_39" +" e_40" " locals_2" " 'general-mutator" " defns_1)" @@ -31596,7 +31723,7 @@ static const char *startup_source = " #f))" "(if(unsafe-fx< index_1 11)" "(let-values()" -"(if(ok-make-struct-type-property? e_39 defns_1)" +"(if(ok-make-struct-type-property? e_40 defns_1)" " 3" " #f))" "(let-values()" @@ -31606,27 +31733,27 @@ static const char *startup_source = " id:arg60_0" " thn61_0" " els62_0)" -"(let-values(((s_321) e_39))" +"(let-values(((s_322) e_40))" "(if(let-values(((s_224)" "(if(1/syntax?" -" s_321)" -"(syntax-e$2" -" s_321)" -" s_321)))" -"(if(pair? s_224)" -"(if(let-values(((s_225)" -"(car" -" s_224)))" -" #t)" -"(let-values(((s_322)" -"(cdr" -" s_224)))" -"(let-values(((s_226)" -"(if(1/syntax?" " s_322)" "(syntax-e$2" " s_322)" " s_322)))" +"(if(pair? s_224)" +"(if(let-values(((s_225)" +"(car" +" s_224)))" +" #t)" +"(let-values(((s_323)" +"(cdr" +" s_224)))" +"(let-values(((s_226)" +"(if(1/syntax?" +" s_323)" +"(syntax-e$2" +" s_323)" +" s_323)))" "(if(pair? s_226)" "(if(let-values(((s_227)" "(car" @@ -31639,101 +31766,101 @@ static const char *startup_source = " s_227)))" "(if(pair?" " s_228)" -"(if(let-values(((s_323)" +"(if(let-values(((s_324)" "(car" " s_228)))" "(let-values(((or-part_220)" "(if(1/syntax?" -" s_323)" +" s_324)" "(symbol?" "(syntax-e$2" -" s_323))" +" s_324))" " #f)))" "(if or-part_220" " or-part_220" "(symbol?" -" s_323))))" -"(let-values(((s_324)" +" s_324))))" +"(let-values(((s_325)" "(cdr" " s_228)))" -"(let-values(((s_325)" +"(let-values(((s_326)" "(if(1/syntax?" -" s_324)" -"(syntax-e$2" -" s_324)" -" s_324)))" -"(if(pair?" " s_325)" -"(if(let-values(((s_326)" -"(car" +"(syntax-e$2" +" s_325)" " s_325)))" +"(if(pair?" +" s_326)" +"(if(let-values(((s_327)" +"(car" +" s_326)))" "(let-values(((or-part_221)" "(if(1/syntax?" -" s_326)" +" s_327)" "(symbol?" "(syntax-e$2" -" s_326))" +" s_327))" " #f)))" "(if or-part_221" " or-part_221" "(symbol?" -" s_326))))" -"(let-values(((s_327)" -"(cdr" -" s_325)))" +" s_327))))" "(let-values(((s_328)" -"(if(1/syntax?" -" s_327)" -"(syntax-e$2" -" s_327)" -" s_327)))" -"(null?" -" s_328)))" -" #f)" -" #f)))" -" #f)" -" #f)))" +"(cdr" +" s_326)))" "(let-values(((s_329)" +"(if(1/syntax?" +" s_328)" +"(syntax-e$2" +" s_328)" +" s_328)))" +"(null?" +" s_329)))" +" #f)" +" #f)))" +" #f)" +" #f)))" +"(let-values(((s_330)" "(cdr" " s_226)))" -"(let-values(((s_330)" +"(let-values(((s_331)" "(if(1/syntax?" -" s_329)" -"(syntax-e$2" -" s_329)" -" s_329)))" -"(if(pair?" " s_330)" -"(if(let-values(((s_331)" -"(car" -" s_330)))" -" #t)" -"(let-values(((s_332)" -"(cdr" -" s_330)))" -"(let-values(((s_333)" -"(if(1/syntax?" -" s_332)" "(syntax-e$2" -" s_332)" -" s_332)))" +" s_330)" +" s_330)))" "(if(pair?" -" s_333)" -"(if(let-values(((s_334)" +" s_331)" +"(if(let-values(((s_332)" "(car" -" s_333)))" +" s_331)))" " #t)" -"(let-values(((s_335)" +"(let-values(((s_333)" "(cdr" -" s_333)))" -"(let-values(((s_336)" +" s_331)))" +"(let-values(((s_334)" "(if(1/syntax?" -" s_335)" +" s_333)" "(syntax-e$2" -" s_335)" -" s_335)))" -"(null?" +" s_333)" +" s_333)))" +"(if(pair?" +" s_334)" +"(if(let-values(((s_335)" +"(car" +" s_334)))" +" #t)" +"(let-values(((s_336)" +"(cdr" +" s_334)))" +"(let-values(((s_337)" +"(if(1/syntax?" +" s_336)" +"(syntax-e$2" +" s_336)" " s_336)))" +"(null?" +" s_337)))" " #f)" " #f)))" " #f)" @@ -31750,10 +31877,10 @@ static const char *startup_source = " els62_1)" "(let-values(((s_230)" "(if(1/syntax?" -" s_321)" +" s_322)" "(syntax-e$2" -" s_321)" -" s_321)))" +" s_322)" +" s_322)))" "(let-values(((_63_0)" "(let-values(((s_233)" "(car" @@ -31763,56 +31890,56 @@ static const char *startup_source = " id:arg65_0" " thn66_0" " els67_0)" -"(let-values(((s_337)" +"(let-values(((s_338)" "(cdr" " s_230)))" -"(let-values(((s_338)" +"(let-values(((s_339)" "(if(1/syntax?" -" s_337)" +" s_338)" "(syntax-e$2" -" s_337)" -" s_337)))" +" s_338)" +" s_338)))" "(let-values(((id:rator68_0" " id:arg69_0)" -"(let-values(((s_339)" -"(car" -" s_338)))" "(let-values(((s_340)" -"(if(1/syntax?" -" s_339)" -"(syntax-e$2" -" s_339)" -" s_339)))" -"(let-values(((id:rator72_0)" -"(let-values(((s_341)" "(car" +" s_339)))" +"(let-values(((s_341)" +"(if(1/syntax?" +" s_340)" +"(syntax-e$2" +" s_340)" " s_340)))" -" s_341))" +"(let-values(((id:rator72_0)" +"(let-values(((s_342)" +"(car" +" s_341)))" +" s_342))" "((id:arg73_0)" "(let-values(((s_237)" "(cdr" -" s_340)))" -"(let-values(((s_342)" +" s_341)))" +"(let-values(((s_343)" "(if(1/syntax?" " s_237)" "(syntax-e$2" " s_237)" " s_237)))" "(let-values(((id:arg74_0)" -"(let-values(((s_343)" -"(car" -" s_342)))" -" s_343))" -"(()" "(let-values(((s_344)" -"(cdr" -" s_342)))" +"(car" +" s_343)))" +" s_344))" +"(()" "(let-values(((s_345)" +"(cdr" +" s_343)))" +"(let-values(((s_346)" "(if(1/syntax?" -" s_344)" +" s_345)" "(syntax-e$2" -" s_344)" -" s_344)))" +" s_345)" +" s_345)))" "(values)))))" "(values" " id:arg74_0))))))" @@ -31821,45 +31948,45 @@ static const char *startup_source = " id:arg73_0)))))" "((thn70_0" " els71_0)" -"(let-values(((s_346)" -"(cdr" -" s_338)))" "(let-values(((s_347)" -"(if(1/syntax?" -" s_346)" -"(syntax-e$2" -" s_346)" -" s_346)))" -"(let-values(((thn75_0)" +"(cdr" +" s_339)))" "(let-values(((s_348)" -"(car" +"(if(1/syntax?" +" s_347)" +"(syntax-e$2" +" s_347)" " s_347)))" -" s_348))" -"((els76_0)" +"(let-values(((thn75_0)" "(let-values(((s_349)" -"(cdr" -" s_347)))" -"(let-values(((s_350)" -"(if(1/syntax?" -" s_349)" -"(syntax-e$2" -" s_349)" -" s_349)))" -"(let-values(((els77_0)" -"(let-values(((s_351)" "(car" -" s_350)))" -" s_351))" -"(()" -"(let-values(((s_352)" +" s_348)))" +" s_349))" +"((els76_0)" +"(let-values(((s_350)" "(cdr" -" s_350)))" -"(let-values(((s_353)" +" s_348)))" +"(let-values(((s_351)" "(if(1/syntax?" -" s_352)" +" s_350)" "(syntax-e$2" -" s_352)" -" s_352)))" +" s_350)" +" s_350)))" +"(let-values(((els77_0)" +"(let-values(((s_352)" +"(car" +" s_351)))" +" s_352))" +"(()" +"(let-values(((s_353)" +"(cdr" +" s_351)))" +"(let-values(((s_354)" +"(if(1/syntax?" +" s_353)" +"(syntax-e$2" +" s_353)" +" s_353)))" "(values)))))" "(values" " els77_0))))))" @@ -31922,74 +32049,74 @@ static const char *startup_source = " tst79_0" " thn80_0" " els81_0)" -"(let-values(((s_354) e_39))" -"(if(let-values(((s_355)" +"(let-values(((s_355) e_40))" +"(if(let-values(((s_356)" "(if(1/syntax?" -" s_354)" +" s_355)" "(syntax-e$2" -" s_354)" -" s_354)))" -"(if(pair? s_355)" +" s_355)" +" s_355)))" +"(if(pair? s_356)" "(if(let-values(((s_249)" "(car" -" s_355)))" -" #t)" -"(let-values(((s_356)" -"(cdr" -" s_355)))" -"(let-values(((s_357)" -"(if(1/syntax?" -" s_356)" -"(syntax-e$2" -" s_356)" " s_356)))" -"(if(pair?" +" #t)" +"(let-values(((s_357)" +"(cdr" +" s_356)))" +"(let-values(((s_358)" +"(if(1/syntax?" " s_357)" -"(if(let-values(((s_358)" +"(syntax-e$2" +" s_357)" +" s_357)))" +"(if(pair?" +" s_358)" +"(if(let-values(((s_359)" "(car" -" s_357)))" +" s_358)))" " #t)" -"(let-values(((s_359)" -"(cdr" -" s_357)))" "(let-values(((s_360)" +"(cdr" +" s_358)))" +"(let-values(((s_361)" "(if(1/syntax?" -" s_359)" -"(syntax-e$2" -" s_359)" -" s_359)))" -"(if(pair?" " s_360)" -"(if(let-values(((s_361)" -"(car" -" s_360)))" -" #t)" -"(let-values(((s_362)" -"(cdr" -" s_360)))" -"(let-values(((s_363)" -"(if(1/syntax?" -" s_362)" "(syntax-e$2" -" s_362)" -" s_362)))" +" s_360)" +" s_360)))" "(if(pair?" -" s_363)" -"(if(let-values(((s_364)" +" s_361)" +"(if(let-values(((s_362)" "(car" -" s_363)))" +" s_361)))" " #t)" -"(let-values(((s_365)" +"(let-values(((s_363)" "(cdr" -" s_363)))" -"(let-values(((s_366)" +" s_361)))" +"(let-values(((s_364)" "(if(1/syntax?" -" s_365)" +" s_363)" "(syntax-e$2" -" s_365)" -" s_365)))" -"(null?" +" s_363)" +" s_363)))" +"(if(pair?" +" s_364)" +"(if(let-values(((s_365)" +"(car" +" s_364)))" +" #t)" +"(let-values(((s_366)" +"(cdr" +" s_364)))" +"(let-values(((s_367)" +"(if(1/syntax?" +" s_366)" +"(syntax-e$2" +" s_366)" " s_366)))" +"(null?" +" s_367)))" " #f)" " #f)))" " #f)" @@ -32003,69 +32130,69 @@ static const char *startup_source = " tst79_1" " thn80_1" " els81_1)" -"(let-values(((s_367)" -"(if(1/syntax?" -" s_354)" -"(syntax-e$2" -" s_354)" -" s_354)))" -"(let-values(((_82_0)" "(let-values(((s_368)" +"(if(1/syntax?" +" s_355)" +"(syntax-e$2" +" s_355)" +" s_355)))" +"(let-values(((_82_0)" +"(let-values(((s_369)" "(car" -" s_367)))" -" s_368))" +" s_368)))" +" s_369))" "((tst83_0" " thn84_0" " els85_0)" -"(let-values(((s_369)" -"(cdr" -" s_367)))" "(let-values(((s_370)" -"(if(1/syntax?" -" s_369)" -"(syntax-e$2" -" s_369)" -" s_369)))" -"(let-values(((tst86_0)" +"(cdr" +" s_368)))" "(let-values(((s_371)" -"(car" +"(if(1/syntax?" +" s_370)" +"(syntax-e$2" +" s_370)" " s_370)))" -" s_371))" +"(let-values(((tst86_0)" +"(let-values(((s_372)" +"(car" +" s_371)))" +" s_372))" "((thn87_0" " els88_0)" -"(let-values(((s_372)" -"(cdr" -" s_370)))" "(let-values(((s_373)" +"(cdr" +" s_371)))" +"(let-values(((s_374)" "(if(1/syntax?" -" s_372)" +" s_373)" "(syntax-e$2" -" s_372)" -" s_372)))" +" s_373)" +" s_373)))" "(let-values(((thn89_0)" "(let-values(((s_251)" "(car" -" s_373)))" +" s_374)))" " s_251))" "((els90_0)" -"(let-values(((s_374)" -"(cdr" -" s_373)))" "(let-values(((s_375)" -"(if(1/syntax?" -" s_374)" -"(syntax-e$2" -" s_374)" +"(cdr" " s_374)))" -"(let-values(((els91_0)" "(let-values(((s_376)" -"(car" +"(if(1/syntax?" +" s_375)" +"(syntax-e$2" +" s_375)" " s_375)))" -" s_376))" +"(let-values(((els91_0)" +"(let-values(((s_377)" +"(car" +" s_376)))" +" s_377))" "(()" "(let-values(((s_252)" "(cdr" -" s_375)))" +" s_376)))" "(let-values(((s_253)" "(if(1/syntax?" " s_252)" @@ -32112,7 +32239,7 @@ static const char *startup_source = " #f)" " #f)))))))))))))))))" " loop_2)" -" e_37" +" e_38" " locals_0)))" "(not" "(if actual-results_0" @@ -32121,29 +32248,29 @@ static const char *startup_source = " #f)))))))))))))" "(define-values" "(satisfies?)" -"(lambda(e_64 key_66 defns_2 locals_3)" +"(lambda(e_65 key_66 defns_2 locals_3)" "(begin" "(let-values(((d_31)" -"(let-values(((or-part_223)(hash-ref locals_3 e_64 #f)))" -"(if or-part_223 or-part_223(lookup-defn defns_2 e_64)))))" +"(let-values(((or-part_223)(hash-ref locals_3 e_65 #f)))" +"(if or-part_223 or-part_223(lookup-defn defns_2 e_65)))))" "(if d_31(if(known-satisfies? d_31)(eq? key_66(known-satisfies-predicate-key d_31)) #f) #f)))))" "(define-values" "(add-binding-info)" "(lambda(locals_4 idss_0 rhss_0)" "(begin" -"(let-values(((lst_235) idss_0)((lst_236) rhss_0))" +"(let-values(((lst_237) idss_0)((lst_238) rhss_0))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_235)))" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_236)))" -"((letrec-values(((for-loop_216)" -"(lambda(locals_5 lst_237 lst_238)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_237)))" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_238)))" +"((letrec-values(((for-loop_217)" +"(lambda(locals_5 lst_239 lst_240)" "(begin" " 'for-loop" -"(if(if(pair? lst_237)(pair? lst_238) #f)" -"(let-values(((ids_14)(unsafe-car lst_237))" -"((rest_128)(unsafe-cdr lst_237))" -"((rhs_10)(unsafe-car lst_238))" -"((rest_129)(unsafe-cdr lst_238)))" +"(if(if(pair? lst_239)(pair? lst_240) #f)" +"(let-values(((ids_14)(unsafe-car lst_239))" +"((rest_128)(unsafe-cdr lst_239))" +"((rhs_10)(unsafe-car lst_240))" +"((rest_129)(unsafe-cdr lst_240)))" "(let-values(((locals_6)" "(let-values(((locals_7) locals_5))" "(let-values(((locals_8)" @@ -32168,10 +32295,10 @@ static const char *startup_source = "(let-values(((field-count_0)" "(extract-struct-field-count-lower-bound" " rhs_11)))" -"(let-values(((lst_239)" +"(let-values(((lst_241)" "(correlated->list" " ids_14))" -"((lst_240)" +"((lst_242)" " '(struct-type" " constructor" " predicate" @@ -32183,36 +32310,36 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_239)))" +" lst_241)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_240)))" -"((letrec-values(((for-loop_217)" +" lst_242)))" +"((letrec-values(((for-loop_218)" "(lambda(locals_9" -" lst_241" -" lst_242)" +" lst_243" +" lst_244)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_241)" +" lst_243)" "(pair?" -" lst_242)" +" lst_244)" " #f)" "(let-values(((id_51)" "(unsafe-car" -" lst_241))" +" lst_243))" "((rest_130)" "(unsafe-cdr" -" lst_241))" +" lst_243))" "((type_0)" "(unsafe-car" -" lst_242))" +" lst_244))" "((rest_131)" "(unsafe-cdr" -" lst_242)))" +" lst_244)))" "(let-values(((locals_10)" "(let-values(((locals_11)" " locals_9))" @@ -32229,16 +32356,16 @@ static const char *startup_source = " locals_12)))))" "(if(not" " #f)" -"(for-loop_217" +"(for-loop_218" " locals_10" " rest_130" " rest_131)" " locals_10)))" " locals_9)))))" -" for-loop_217)" +" for-loop_218)" " locals_7" -" lst_239" -" lst_240)))))" +" lst_241" +" lst_242)))))" "(if(equal?" " tmp_27" " 'let-values)" @@ -32253,7 +32380,7 @@ static const char *startup_source = " rhs_11)))" "(loop_90 #f)))" "(let-values()" -"(let-values(((lst_243)" +"(let-values(((lst_245)" "(correlated->list" " ids_14)))" "(begin" @@ -32262,20 +32389,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_243)))" -"((letrec-values(((for-loop_218)" +" lst_245)))" +"((letrec-values(((for-loop_219)" "(lambda(locals_13" -" lst_244)" +" lst_246)" "(begin" " 'for-loop" "(if(pair?" -" lst_244)" +" lst_246)" "(let-values(((id_52)" "(unsafe-car" -" lst_244))" +" lst_246))" "((rest_132)" "(unsafe-cdr" -" lst_244)))" +" lst_246)))" "(let-values(((locals_14)" "(let-values(((locals_15)" " locals_13))" @@ -32290,31 +32417,31 @@ static const char *startup_source = " locals_16)))))" "(if(not" " #f)" -"(for-loop_218" +"(for-loop_219" " locals_14" " rest_132)" " locals_14)))" " locals_13)))))" -" for-loop_218)" +" for-loop_219)" " locals_7" -" lst_243)))))))))))" +" lst_245)))))))))))" " loop_90)" " rhs_10))))" "(values locals_8)))))" -"(if(not #f)(for-loop_216 locals_6 rest_128 rest_129) locals_6)))" +"(if(not #f)(for-loop_217 locals_6 rest_128 rest_129) locals_6)))" " locals_5)))))" -" for-loop_216)" +" for-loop_217)" " locals_4" -" lst_235" -" lst_236))))))" +" lst_237" +" lst_238))))))" "(define-values" "(ok-make-struct-type-property?)" -"(lambda(e_65 defns_3)" +"(lambda(e_66 defns_3)" "(begin" -"(let-values(((l_57)(correlated->list e_65)))" +"(let-values(((l_57)(correlated->list e_66)))" "(if(<= 2(length l_57) 5)" -"(let-values(((lst_245)(cdr l_57))" -"((lst_246)" +"(let-values(((lst_247)(cdr l_57))" +"((lst_248)" "(list" "(lambda(v_160)(quoted? symbol? v_160))" "(lambda(v_161)(is-lambda? v_161 2 defns_3))" @@ -32323,32 +32450,32 @@ static const char *startup_source = "(let-values(((v92_0) v_163)((temp93_1) 1)((defns94_0) defns_3))" "(any-side-effects?9.1 defns94_0 #t #f #f #f #f v92_0 temp93_1))))))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_245)))" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_246)))" -"((letrec-values(((for-loop_170)" -"(lambda(result_94 lst_148 lst_247)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_247)))" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_248)))" +"((letrec-values(((for-loop_171)" +"(lambda(result_98 lst_148 lst_249)" "(begin" " 'for-loop" -"(if(if(pair? lst_148)(pair? lst_247) #f)" +"(if(if(pair? lst_148)(pair? lst_249) #f)" "(let-values(((arg_0)(unsafe-car lst_148))" "((rest_133)(unsafe-cdr lst_148))" -"((pred_1)(unsafe-car lst_247))" -"((rest_134)(unsafe-cdr lst_247)))" -"(let-values(((result_95)" +"((pred_1)(unsafe-car lst_249))" +"((rest_134)(unsafe-cdr lst_249)))" +"(let-values(((result_99)" "(let-values()" -"(let-values(((result_96)" +"(let-values(((result_100)" "(let-values()(let-values()(pred_1 arg_0)))))" -"(values result_96)))))" -"(if(if(not((lambda x_59(not result_95)) arg_0))" -"(if(not((lambda x_60(not result_95)) pred_1))(not #f) #f)" +"(values result_100)))))" +"(if(if(not((lambda x_62(not result_99)) arg_0))" +"(if(not((lambda x_63(not result_99)) pred_1))(not #f) #f)" " #f)" -"(for-loop_170 result_95 rest_133 rest_134)" -" result_95)))" -" result_94)))))" -" for-loop_170)" +"(for-loop_171 result_99 rest_133 rest_134)" +" result_99)))" +" result_98)))))" +" for-loop_171)" " #t" -" lst_245" -" lst_246)))" +" lst_247" +" lst_248)))" " #f)))))" "(define-values" "(ok-make-struct-type-property-super?)" @@ -32362,21 +32489,21 @@ static const char *startup_source = " or-part_225" "(if(pair?(correlated-e v_164))" "(if(eq?(correlated-e(car(correlated-e v_164))) 'list)" -"(if(let-values(((lst_248)(cdr(correlated->list v_164))))" +"(if(let-values(((lst_250)(cdr(correlated->list v_164))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_248)))" -"((letrec-values(((for-loop_219)" -"(lambda(result_97 lst_249)" +"(let-values()(check-list lst_250)))" +"((letrec-values(((for-loop_220)" +"(lambda(result_101 lst_251)" "(begin" " 'for-loop" -"(if(pair? lst_249)" -"(let-values(((prop+val_0)(unsafe-car lst_249))" -"((rest_135)(unsafe-cdr lst_249)))" -"(let-values(((result_98)" +"(if(pair? lst_251)" +"(let-values(((prop+val_0)(unsafe-car lst_251))" +"((rest_135)(unsafe-cdr lst_251)))" +"(let-values(((result_102)" "(let-values()" -"(let-values(((result_99)" +"(let-values(((result_103)" "(let-values()" "(let-values()" "(if(=" @@ -32429,31 +32556,31 @@ static const char *startup_source = " #f)" " #f))" " #f)))))" -"(values result_99)))))" -"(if(if(not((lambda x_61(not result_98)) prop+val_0))" +"(values result_103)))))" +"(if(if(not((lambda x_64(not result_102)) prop+val_0))" "(not #f)" " #f)" -"(for-loop_219 result_98 rest_135)" -" result_98)))" -" result_97)))))" -" for-loop_219)" +"(for-loop_220 result_102 rest_135)" +" result_102)))" +" result_101)))))" +" for-loop_220)" " #t" -" lst_248)))" +" lst_250)))" "(=" "(sub1(correlated-length v_164))" "(set-count" -"(let-values(((lst_250)(cdr(correlated->list v_164))))" +"(let-values(((lst_252)(cdr(correlated->list v_164))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_250)))" -"((letrec-values(((for-loop_220)" -"(lambda(table_181 lst_251)" +"(let-values()(check-list lst_252)))" +"((letrec-values(((for-loop_221)" +"(lambda(table_181 lst_253)" "(begin" " 'for-loop" -"(if(pair? lst_251)" -"(let-values(((prop+val_2)(unsafe-car lst_251))" -"((rest_136)(unsafe-cdr lst_251)))" +"(if(pair? lst_253)" +"(let-values(((prop+val_2)(unsafe-car lst_253))" +"((rest_136)(unsafe-cdr lst_253)))" "(let-values(((table_182)" "(let-values(((table_183) table_181))" "(let-values(((table_184)" @@ -32473,19 +32600,19 @@ static const char *startup_source = " key_67" " val_57)))))" "(values table_184)))))" -"(if(not #f)(for-loop_220 table_182 rest_136) table_182)))" +"(if(not #f)(for-loop_221 table_182 rest_136) table_182)))" " table_181)))))" -" for-loop_220)" +" for-loop_221)" " '#hash()" -" lst_250)))))" +" lst_252)))))" " #f)" " #f)" " #f))))))))" "(define-values" "(ok-make-struct-type?)" -"(lambda(e_66 ready-variable?_1 defns_5)" +"(lambda(e_67 ready-variable?_1 defns_5)" "(begin" -"(let-values(((l_58)(correlated->list e_66)))" +"(let-values(((l_58)(correlated->list e_67)))" "(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)" @@ -32498,8 +32625,8 @@ static const char *startup_source = "(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_252)(cdr l_58))" -"((lst_253)" +"(let-values(((lst_254)(cdr l_58))" +"((lst_255)" "(list" "(lambda(v_165)(quoted? symbol? v_165))" "(lambda(v_166)(super-ok? v_166 defns_5))" @@ -32528,53 +32655,53 @@ static const char *startup_source = "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_252)))" +"(let-values()(check-list lst_254)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_253)))" -"((letrec-values(((for-loop_221)" -"(lambda(result_100 lst_254 lst_130)" +"(let-values()(check-list lst_255)))" +"((letrec-values(((for-loop_222)" +"(lambda(result_104 lst_256 lst_130)" "(begin" " 'for-loop" -"(if(if(pair? lst_254)(pair? lst_130) #f)" -"(let-values(((arg_1)(unsafe-car lst_254))" -"((rest_64)(unsafe-cdr lst_254))" +"(if(if(pair? lst_256)(pair? lst_130) #f)" +"(let-values(((arg_1)(unsafe-car lst_256))" +"((rest_64)(unsafe-cdr lst_256))" "((pred_2)(unsafe-car lst_130))" "((rest_137)(unsafe-cdr lst_130)))" -"(let-values(((result_101)" +"(let-values(((result_105)" "(let-values()" -"(let-values(((result_102)" +"(let-values(((result_106)" "(let-values()" "(let-values()(pred_2 arg_1)))))" -"(values result_102)))))" -"(if(if(not((lambda x_62(not result_101)) arg_1))" -"(if(not((lambda x_63(not result_101)) pred_2))" +"(values result_106)))))" +"(if(if(not((lambda x_65(not result_105)) arg_1))" +"(if(not((lambda x_66(not result_105)) pred_2))" "(not #f)" " #f)" " #f)" -"(for-loop_221 result_101 rest_64 rest_137)" -" result_101)))" -" result_100)))))" -" for-loop_221)" +"(for-loop_222 result_105 rest_64 rest_137)" +" result_105)))" +" result_104)))))" +" for-loop_222)" " #t" -" lst_252" -" lst_253)))" +" lst_254" +" lst_255)))" " #f)" " #f))))))))))" "(define-values" "(super-ok?)" -"(lambda(e_67 defns_6)" +"(lambda(e_68 defns_6)" "(begin" -"(let-values(((or-part_228)(quoted? false? e_67)))" +"(let-values(((or-part_228)(quoted? false? e_68)))" "(if or-part_228" " or-part_228" -"(let-values(((o_0)(lookup-defn defns_6(correlated-e e_67))))" +"(let-values(((o_0)(lookup-defn defns_6(correlated-e e_68))))" "(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_69)" "(begin" -"(let-values(((l_59)(correlated->list e_68)))" +"(let-values(((l_59)(correlated->list e_69)))" "(+(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?)" @@ -32620,21 +32747,21 @@ static const char *startup_source = " or-part_233" "(if(pair?(correlated-e v_179))" "(if(eq?(correlated-e(car(correlated-e v_179))) 'list)" -"(if(let-values(((lst_255)(cdr(correlated->list v_179))))" +"(if(let-values(((lst_257)(cdr(correlated->list v_179))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_255)))" -"((letrec-values(((for-loop_222)" -"(lambda(result_103 lst_256)" +"(let-values()(check-list lst_257)))" +"((letrec-values(((for-loop_223)" +"(lambda(result_107 lst_258)" "(begin" " 'for-loop" -"(if(pair? lst_256)" -"(let-values(((prop+val_3)(unsafe-car lst_256))" -"((rest_138)(unsafe-cdr lst_256)))" -"(let-values(((result_104)" +"(if(pair? lst_258)" +"(let-values(((prop+val_3)(unsafe-car lst_258))" +"((rest_138)(unsafe-cdr lst_258)))" +"(let-values(((result_108)" "(let-values()" -"(let-values(((result_105)" +"(let-values(((result_109)" "(let-values()" "(let-values()" "(if(=" @@ -32656,31 +32783,31 @@ static const char *startup_source = " defns_7)" " #f))" " #f)))))" -"(values result_105)))))" -"(if(if(not((lambda x_64(not result_104)) prop+val_3))" +"(values result_109)))))" +"(if(if(not((lambda x_67(not result_108)) prop+val_3))" "(not #f)" " #f)" -"(for-loop_222 result_104 rest_138)" -" result_104)))" -" result_103)))))" -" for-loop_222)" +"(for-loop_223 result_108 rest_138)" +" result_108)))" +" result_107)))))" +" for-loop_223)" " #t" -" lst_255)))" +" lst_257)))" "(=" "(sub1(correlated-length v_179))" "(set-count" -"(let-values(((lst_257)(cdr(correlated->list v_179))))" +"(let-values(((lst_259)(cdr(correlated->list v_179))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_257)))" -"((letrec-values(((for-loop_223)" -"(lambda(table_185 lst_258)" +"(let-values()(check-list lst_259)))" +"((letrec-values(((for-loop_224)" +"(lambda(table_185 lst_260)" "(begin" " 'for-loop" -"(if(pair? lst_258)" -"(let-values(((prop+val_5)(unsafe-car lst_258))" -"((rest_139)(unsafe-cdr lst_258)))" +"(if(pair? lst_260)" +"(let-values(((prop+val_5)(unsafe-car lst_260))" +"((rest_139)(unsafe-cdr lst_260)))" "(let-values(((table_186)" "(let-values(((table_187) table_185))" "(let-values(((table_188)" @@ -32700,11 +32827,11 @@ static const char *startup_source = " key_68" " val_58)))))" "(values table_188)))))" -"(if(not #f)(for-loop_223 table_186 rest_139) table_186)))" +"(if(not #f)(for-loop_224 table_186 rest_139) table_186)))" " table_185)))))" -" for-loop_223)" +" for-loop_224)" " '#hash()" -" lst_257)))))" +" lst_259)))))" " #f)" " #f)" " #f))))))))" @@ -32804,23 +32931,23 @@ static const char *startup_source = "(let-values(((lst_67) a_40))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_67)))" -"((letrec-values(((for-loop_224)" -"(lambda(result_106 lst_259)" +"((letrec-values(((for-loop_225)" +"(lambda(result_110 lst_261)" "(begin" " 'for-loop" -"(if(pair? lst_259)" -"(let-values(((a_41)(unsafe-car lst_259))((rest_140)(unsafe-cdr lst_259)))" -"(let-values(((result_107)" +"(if(pair? lst_261)" +"(let-values(((a_41)(unsafe-car lst_261))((rest_140)(unsafe-cdr lst_261)))" +"(let-values(((result_111)" "(let-values()" -"(let-values(((result_108)" +"(let-values(((result_112)" "(let-values()" "(let-values()(equal? a_41 n_25)))))" -"(values result_108)))))" -"(if(if(not((lambda x_65 result_107) a_41))(not #f) #f)" -"(for-loop_224 result_107 rest_140)" -" result_107)))" -" result_106)))))" -" for-loop_224)" +"(values result_112)))))" +"(if(if(not((lambda x_68 result_111) a_41))(not #f) #f)" +"(for-loop_225 result_111 rest_140)" +" result_111)))" +" result_110)))))" +" for-loop_225)" " #f" " lst_67)))" " #f))))))" @@ -32833,12 +32960,12 @@ static const char *startup_source = " #f))))" "(define-values" "(immutables-expr-to-immutables)" -"(lambda(e_69 fail-v_0)" +"(lambda(e_70 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_70))(correlated-e(car(correlated-e e_70))) #f)))" "(if(equal? tmp_29 'quote)" "(let-values()" -"(let-values(((v_180)(correlated-cadr e_69)))" +"(let-values(((v_180)(correlated-cadr e_70)))" "(let-values(((or-part_241)" "(if(correlated-length v_180)" "(let-values(((l_61)(map2 correlated-e(correlated->list v_180))))" @@ -32850,52 +32977,52 @@ static const char *startup_source = "(let-values() fail-v_0))))))" "(define-values" "(procedure-spec?)" -"(lambda(e_70 field-count_1)" +"(lambda(e_71 field-count_1)" "(begin" -"(let-values(((or-part_242)(quoted? false? e_70)))" +"(let-values(((or-part_242)(quoted? false? e_71)))" "(if or-part_242" " or-part_242" "(let-values(((or-part_243)" -"(if(quoted? exact-nonnegative-integer? e_70)" -"(if field-count_1(<(quoted-value e_70) field-count_1) #f)" +"(if(quoted? exact-nonnegative-integer? e_71)" +"(if field-count_1(<(quoted-value e_71) field-count_1) #f)" " #f)))" -"(if or-part_243 or-part_243(is-lambda? e_70 #f '#hasheq()))))))))" +"(if or-part_243 or-part_243(is-lambda? e_71 #f '#hasheq()))))))))" "(define-values" "(immutables-ok?)" -"(lambda(e_71 init-field-count-expr_1)" +"(lambda(e_72 init-field-count-expr_1)" "(begin" -"(let-values(((l_62)(immutables-expr-to-immutables e_71 #f)))" +"(let-values(((l_62)(immutables-expr-to-immutables e_72 #f)))" "(let-values(((c_24)(field-count-expr-to-field-count init-field-count-expr_1)))" "(if l_62" -"(let-values(((lst_260) l_62))" +"(let-values(((lst_262) l_62))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_260)))" -"((letrec-values(((for-loop_225)" -"(lambda(result_109 lst_120)" +"(let-values()(check-list lst_262)))" +"((letrec-values(((for-loop_226)" +"(lambda(result_113 lst_120)" "(begin" " 'for-loop" "(if(pair? lst_120)" "(let-values(((n_26)(unsafe-car lst_120))((rest_59)(unsafe-cdr lst_120)))" -"(let-values(((result_110)" +"(let-values(((result_114)" "(let-values()" -"(let-values(((result_111)" +"(let-values(((result_115)" "(let-values()(let-values()(< n_26 c_24)))))" -"(values result_111)))))" -"(if(if(not((lambda x_66(not result_110)) n_26))(not #f) #f)" -"(for-loop_225 result_110 rest_59)" -" result_110)))" -" result_109)))))" -" for-loop_225)" +"(values result_115)))))" +"(if(if(not((lambda x_69(not result_114)) n_26))(not #f) #f)" +"(for-loop_226 result_114 rest_59)" +" result_114)))" +" result_113)))))" +" for-loop_226)" " #t" -" lst_260)))" +" lst_262)))" " #f))))))" "(define-values" "(ok-make-struct-field-accessor/mutator?)" -"(lambda(e_72 locals_17 type_1 defns_10)" +"(lambda(e_73 locals_17 type_1 defns_10)" "(begin" -"(let-values(((l_63)(correlated->list e_72)))" +"(let-values(((l_63)(correlated->list e_73)))" "(let-values(((a_42)" "(if(let-values(((or-part_125)(=(length l_63) 3)))" "(if or-part_125 or-part_125(=(length l_63) 4)))" @@ -32910,12 +33037,12 @@ static const char *startup_source = " #f)" " #f)" " #f))))))" -"(define-values(maybe+)(lambda(x_67 y_10)(begin(if x_67(if y_10(+ x_67 y_10) #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" "(compile-single)" -"(lambda(p_43 cctx_12)" +"(lambda(p_44 cctx_12)" "(begin" -"(let-values(((p12_0) p_43)((cctx13_0) cctx_12)((temp14_4) #f)((temp15_4) #t))" +"(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)))))" "(define-values" "(compile-top9.1)" @@ -32929,14 +33056,14 @@ static const char *startup_source = " cctx8_0)" "(begin" " 'compile-top9" -"(let-values(((p_44) p7_0))" +"(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()" "(let-values()" -"(let-values(((phase_81)(compile-context-phase cctx_13)))" +"(let-values(((phase_83)(compile-context-phase cctx_13)))" "(let-values(((mpis_18)(make-module-path-index-table)))" "(let-values(((purely-functional?_0) #t))" "(let-values(((body-linklets_1" @@ -32947,7 +33074,7 @@ static const char *startup_source = " phase-to-link-extra-inspectorss_0" " syntax-literals_3" " no-root-context-pos_0)" -"(let-values(((temp16_4)(list p_44))" +"(let-values(((temp16_4)(list p_45))" "((cctx17_0) cctx_13)" "((mpis18_0) mpis_18)" "((temp19_0)" @@ -32966,9 +33093,9 @@ 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_82 required-reference?_0)" +"(lambda(e_74 expected-results_2 phase_84 required-reference?_0)" "(if(if purely-functional?_0" -"(let-values(((e27_0) e_73)" +"(let-values(((e27_0) e_74)" "((expected-results28_0) expected-results_2)" "((required-reference?29_0)" " required-reference?_0))" @@ -32985,10 +33112,10 @@ static const char *startup_source = "(let-values()(set! purely-functional?_0 #f))" "(void))))" "((temp25_3)" -"(lambda(s_377 cctx_14)" +"(lambda(s_378 cctx_14)" "(begin" "(set! purely-functional?_0 #f)" -"(compile-top-level-require s_377 cctx_14))))" +"(compile-top-level-require s_378 cctx_14))))" "((temp26_1)(not single-expression?_0)))" "(compile-forms31.1" " temp20_0" @@ -33022,7 +33149,7 @@ static const char *startup_source = "(lambda(ht_118)" "(begin" " 'add-metadata" -"(let-values(((ht_78)(hash-set ht_118 'original-phase phase_81)))" +"(let-values(((ht_78)(hash-set ht_118 'original-phase phase_83)))" "(let-values(((ht_119)(hash-set ht_78 'max-phase max-phase_1)))" " ht_119))))))" "(let-values(((bundle_0)" @@ -33035,17 +33162,17 @@ static const char *startup_source = "(generate-eager-syntax-literals!" " syntax-literals_3" " mpis_18" -" phase_81" +" phase_83" "(compile-context-self cctx_13)" "(compile-context-namespace cctx_13)))))" "(let-values(((link-linklet_0)" "((if to-source?_2" " values" -"(lambda(s_159)" +"(lambda(s_160)" "(let-values()" "(let-values(((linklet_2 new-keys_0)" "(1/compile-linklet" -" s_159" +" s_160" " #f" "(vector" " deserialize-instance" @@ -33068,7 +33195,7 @@ static const char *startup_source = "(list" " 'define-values" "(list deserialized-syntax-vector-id)" -"(list* 'make-vector(add1 phase_81) '(#f)))" +"(list* 'make-vector(add1 phase_83) '(#f)))" "(list" " 'define-values" " '(phase-to-link-modules)" @@ -33098,12 +33225,12 @@ static const char *startup_source = " purely-functional?_0)))))))))))))))))))" "(define-values" "(compile-top-level-require)" -"(lambda(p_45 cctx_15)" +"(lambda(p_46 cctx_15)" "(begin" -"(let-values(((phase_34)(compile-context-phase cctx_15)))" -"(if(parsed-require? p_45)" +"(let-values(((phase_36)(compile-context-phase cctx_15)))" +"(if(parsed-require? p_46)" "(let-values()" -"(let-values(((form-stx_0)(compile-quote-syntax(syntax-disarm$1(parsed-s p_45)) cctx_15)))" +"(let-values(((form-stx_0)(compile-quote-syntax(syntax-disarm$1(parsed-s p_46)) cctx_15)))" "(list top-level-require!-id form-stx_0 ns-id)))" "(let-values() #f))))))" "(define-values" @@ -33127,7 +33254,7 @@ static const char *startup_source = "(let-values(((ids_15) ids11_0))" "(let-values(((defined-syms_7) defined-syms12_0))" "(let-values(((self_20) self13_0))" -"(let-values(((phase_83) phase14_0))" +"(let-values(((phase_85) 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)))" @@ -33136,27 +33263,27 @@ static const char *startup_source = "(let-values(((as-transformer?_4)(if as-transformer?10_0 as-transformer?5_0 #f)))" "(let-values()" "(let-values(((defined-syms-at-phase_0)" -"(let-values(((or-part_160)(hash-ref defined-syms_7 phase_83 #f)))" +"(let-values(((or-part_160)(hash-ref defined-syms_7 phase_85 #f)))" "(if or-part_160" " or-part_160" "(let-values(((ht_120)(make-hasheq)))" -"(begin(hash-set! defined-syms_7 phase_83 ht_120) ht_120))))))" +"(begin(hash-set! defined-syms_7 phase_85 ht_120) ht_120))))))" "(reverse$1" "(let-values(((lst_80) ids_15))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_80)))" -"((letrec-values(((for-loop_226)" -"(lambda(fold-var_12 lst_173)" +"((letrec-values(((for-loop_227)" +"(lambda(fold-var_12 lst_174)" "(begin" " 'for-loop" -"(if(pair? lst_173)" -"(let-values(((id_53)(unsafe-car lst_173))" -"((rest_89)(unsafe-cdr lst_173)))" +"(if(pair? lst_174)" +"(let-values(((id_53)(unsafe-car lst_174))" +"((rest_89)(unsafe-cdr lst_174)))" "(let-values(((fold-var_93)" -"(let-values(((fold-var_158) fold-var_12))" -"(let-values(((fold-var_166)" +"(let-values(((fold-var_160) fold-var_12))" +"(let-values(((fold-var_168)" "(let-values()" "(cons" "(let-values()" @@ -33171,13 +33298,13 @@ static const char *startup_source = " sym_12" " #f)" " id_53" -" phase_83" +" phase_85" " top-level-bind-scope_3))" "(if(no-extra-scopes?" " id_53" " all-scopes-stx_3" " top-level-bind-scope_3" -" phase_83)" +" phase_85)" "(symbol-interned?" " sym_12)" " #f)" @@ -33199,7 +33326,7 @@ static const char *startup_source = " s_176" " #f)" " id_53" -" phase_83" +" phase_85" " top-level-bind-scope_3)" "(loop_92" "(add1" @@ -33214,11 +33341,11 @@ static const char *startup_source = " defined-sym_0" " id_53)" "(values))))" -"(let-values(((b_70)" +"(let-values(((b_71)" "(let-values(((self23_0)" " self_20)" "((phase24_0)" -" phase_83)" +" phase_85)" "((defined-sym25_0)" " defined-sym_0)" "((frame-id26_0)" @@ -33255,9 +33382,9 @@ static const char *startup_source = "((id29_0)" " id_53)" "((phase30_0)" -" phase_83)" +" phase_85)" "((b31_0)" -" b_70))" +" b_71))" "(remove-required-id!75.1" " b31_0" " requires+provides28_0" @@ -33267,9 +33394,9 @@ static const char *startup_source = "(let-values(((id19_0)" " id_53)" "((b20_0)" -" b_70)" +" b_71)" "((phase21_0)" -" phase_83)" +" phase_85)" "((orig-s22_0)" " orig-s_28))" "(add-binding!17.1" @@ -33287,9 +33414,9 @@ static const char *startup_source = "((id33_0)" " id_53)" "((phase34_0)" -" phase_83)" +" phase_85)" "((b35_0)" -" b_70)" +" b_71)" "((as-transformer?36_0)" " as-transformer?_4))" "(add-defined-or-required-id!19.1" @@ -33302,32 +33429,32 @@ static const char *startup_source = " b35_0)))" "(void))" " defined-sym_0))))))" -" fold-var_158))))" -"(values fold-var_166)))))" +" fold-var_160))))" +"(values fold-var_168)))))" "(if(not #f)" -"(for-loop_226 fold-var_93 rest_89)" +"(for-loop_227 fold-var_93 rest_89)" " fold-var_93)))" " fold-var_12)))))" -" for-loop_226)" +" for-loop_227)" " null" " lst_80)))))))))))))))))))" "(define-values" "(no-extra-scopes?)" -"(lambda(id_54 all-scopes-stx_4 top-level-bind-scope_4 phase_84)" +"(lambda(id_54 all-scopes-stx_4 top-level-bind-scope_4 phase_86)" "(begin" "(let-values(((m-id_0)(datum->syntax$1 all-scopes-stx_4(syntax-e$1 id_54))))" -"(let-values(((or-part_129)(bound-identifier=?$1 id_54 m-id_0 phase_84)))" -"(if or-part_129" -" or-part_129" +"(let-values(((or-part_131)(bound-identifier=?$1 id_54 m-id_0 phase_86)))" +"(if or-part_131" +" or-part_131" "(if top-level-bind-scope_4" -"(bound-identifier=?$1 id_54(add-scope m-id_0 top-level-bind-scope_4) phase_84)" +"(bound-identifier=?$1 id_54(add-scope m-id_0 top-level-bind-scope_4) phase_86)" " #f)))))))" "(define-values" "(defined-as-other?)" -"(lambda(prev-id_0 id_55 phase_73 top-level-bind-scope_5)" +"(lambda(prev-id_0 id_55 phase_75 top-level-bind-scope_5)" "(begin" "(if prev-id_0" -"(if(not(bound-identifier=?$1 prev-id_0 id_55 phase_73))" +"(if(not(bound-identifier=?$1 prev-id_0 id_55 phase_75))" "(let-values(((or-part_245)(not top-level-bind-scope_5)))" "(if or-part_245" " or-part_245" @@ -33335,7 +33462,7 @@ static const char *startup_source = "(bound-identifier=?$1" "(remove-scope prev-id_0 top-level-bind-scope_5)" "(remove-scope id_55 top-level-bind-scope_5)" -" phase_73))))" +" phase_75))))" " #f)" " #f))))" "(define-values" @@ -33366,14 +33493,14 @@ static const char *startup_source = " temp41_1)))))" "(define-values" "(add-defined-sym!)" -"(lambda(defined-syms_8 phase_85 sym_55 id_56)" +"(lambda(defined-syms_8 phase_87 sym_55 id_56)" "(begin" "(let-values(((defined-syms-at-phase_1)" -"(let-values(((or-part_94)(hash-ref defined-syms_8 phase_85 #f)))" +"(let-values(((or-part_94)(hash-ref defined-syms_8 phase_87 #f)))" "(if or-part_94" " or-part_94" "(let-values(((ht_121)(make-hasheq)))" -"(begin(hash-set! defined-syms_8 phase_85 ht_121) ht_121))))))" +"(begin(hash-set! defined-syms_8 phase_87 ht_121) ht_121))))))" "(hash-set! defined-syms-at-phase_1 sym_55 id_56)))))" "(define-values" "(make-create-root-expand-context-from-module)" @@ -33386,12 +33513,12 @@ static const char *startup_source = "(let-values(((s_3)(add-scopes empty-syntax(root-expand-context-module-scopes root-ctx_4))))" "(let-values((()" "(begin" -"(let-values(((lst_261) requires_3))" +"(let-values(((lst_263) requires_3))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_261)))" -"((letrec-values(((for-loop_227)" +"(let-values()(check-list lst_263)))" +"((letrec-values(((for-loop_228)" "(lambda(lst_16)" "(begin" " 'for-loop" @@ -33404,11 +33531,11 @@ static const char *startup_source = "(let-values()" "(begin" "(let-values()" -"(let-values(((phase_33)" +"(let-values(((phase_35)" "(car" " phase+reqs_0)))" "(begin" -"(let-values(((lst_262)" +"(let-values(((lst_264)" "(cdr" " phase+reqs_0)))" "(begin" @@ -33417,8 +33544,8 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_262)))" -"((letrec-values(((for-loop_228)" +" lst_264)))" +"((letrec-values(((for-loop_229)" "(lambda(lst_79)" "(begin" " 'for-loop" @@ -33453,7 +33580,7 @@ static const char *startup_source = " ns_59)" "((temp7_1)" "(phase+" -" phase_33" +" phase_35" " phase-shift_14))" "((phase-shift8_0)" " phase-shift_14)" @@ -33494,19 +33621,19 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_228" +"(for-loop_229" " rest_36)" "(values))))" "(values))))))" -" for-loop_228)" -" lst_262)))" +" for-loop_229)" +" lst_264)))" "(void))))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_227 rest_4)(values))))" +"(if(not #f)(for-loop_228 rest_4)(values))))" "(values))))))" -" for-loop_227)" -" lst_261)))" +" for-loop_228)" +" lst_263)))" "(values))))" "(let-values()" "(let-values(((defined-syms_9)(root-expand-context-defined-syms root-ctx_4)))" @@ -33521,7 +33648,7 @@ static const char *startup_source = "(begin" " 'for-loop" "(if i_148" -"(let-values(((phase_86 linklet_3)" +"(let-values(((phase_88 linklet_3)" "(hash-iterate-key+value ht_122 i_148)))" "(let-values((()" "(let-values()" @@ -33530,7 +33657,7 @@ static const char *startup_source = "(begin" "(let-values()" "(begin" -"(let-values(((lst_263)" +"(let-values(((lst_265)" "(1/linklet-export-variables" " linklet_3)))" "(begin" @@ -33538,19 +33665,19 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()" -"(check-list lst_263)))" -"((letrec-values(((for-loop_229)" -"(lambda(lst_264)" +"(check-list lst_265)))" +"((letrec-values(((for-loop_230)" +"(lambda(lst_266)" "(begin" " 'for-loop" "(if(pair?" -" lst_264)" +" lst_266)" "(let-values(((sym_56)" "(unsafe-car" -" lst_264))" +" lst_266))" "((rest_141)" "(unsafe-cdr" -" lst_264)))" +" lst_266)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -33568,7 +33695,7 @@ static const char *startup_source = "(let-values(((self13_1)" " self_7)" "((phase14_1)" -" phase_86)" +" phase_88)" "((sym15_0)" " sym_56))" "(make-module-binding22.1" @@ -33594,7 +33721,7 @@ static const char *startup_source = " phase14_1" " sym15_0)))" "((phase12_0)" -" phase_86))" +" phase_88))" "(add-binding!17.1" " #f" " #f" @@ -33605,19 +33732,19 @@ static const char *startup_source = " phase12_0))" "(add-defined-sym!" " defined-syms_9" -" phase_86" +" phase_88" " sym_56" " id_57))))" "(values)))))" "(values)))))" "(if(not" " #f)" -"(for-loop_229" +"(for-loop_230" " rest_141)" "(values))))" "(values))))))" -" for-loop_229)" -" lst_263)))" +" for-loop_230)" +" lst_265)))" "(void)))" "(values)))))" "(values)))))" @@ -33691,9 +33818,9 @@ static const char *startup_source = "(let-values()" "(begin" "(let-values(((lst_42)(list-tail(1/linklet-import-variables linklet_4) skip-num-imports_0))" -"((lst_265) import-module-uses_0)" +"((lst_267) import-module-uses_0)" "((lst_89) import-module-instances_0)" -"((lst_163)" +"((lst_164)" "(let-values(((or-part_83) extra-inspectorsss_4))" "(if or-part_83 or-part_83 import-module-uses_0))))" "(begin" @@ -33702,24 +33829,24 @@ static const char *startup_source = "(let-values()(check-list lst_42)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_265)))" +"(let-values()(check-list lst_267)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_89)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_163)))" -"((letrec-values(((for-loop_229)" -"(lambda(lst_264 lst_266 lst_24 lst_102)" +"(let-values()(check-list lst_164)))" +"((letrec-values(((for-loop_230)" +"(lambda(lst_266 lst_268 lst_24 lst_102)" "(begin" " 'for-loop" -"(if(if(pair? lst_264)" -"(if(pair? lst_266)(if(pair? lst_24)(pair? lst_102) #f) #f)" +"(if(if(pair? lst_266)" +"(if(pair? lst_268)(if(pair? lst_24)(pair? lst_102) #f) #f)" " #f)" -"(let-values(((import-syms_0)(unsafe-car lst_264))" -"((rest_142)(unsafe-cdr lst_264))" -"((mu_7)(unsafe-car lst_266))" -"((rest_143)(unsafe-cdr lst_266))" +"(let-values(((import-syms_0)(unsafe-car lst_266))" +"((rest_142)(unsafe-cdr lst_266))" +"((mu_7)(unsafe-car lst_268))" +"((rest_143)(unsafe-cdr lst_268))" "((mi_16)(unsafe-car lst_24))" "((rest_43)(unsafe-cdr lst_24))" "((extra-inspectorss_14)(unsafe-car lst_102))" @@ -33755,7 +33882,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_59)))" -"((letrec-values(((for-loop_230)" +"((letrec-values(((for-loop_231)" "(lambda(lst_26)" "(begin" " 'for-loop" @@ -33839,28 +33966,28 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_230" +"(for-loop_231" " rest_9)" "(values))))" "(values))))))" -" for-loop_230)" +" for-loop_231)" " lst_59)))" "(void)))))))" "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_229 rest_142 rest_143 rest_43 rest_119)" +"(for-loop_230 rest_142 rest_143 rest_43 rest_119)" "(values))))" "(values))))))" -" for-loop_229)" +" for-loop_230)" " lst_42" -" lst_265" +" lst_267" " lst_89" -" lst_163)))" +" lst_164)))" "(void)))))))))))))" "(define-values" "(check-single-require-access)" -"(lambda(mi_17 phase_87 sym_57 insp_11)" +"(lambda(mi_17 phase_89 sym_57 insp_11)" "(begin" "(let-values(((m_16)(module-instance-module mi_17)))" "(if(module-no-protected? m_16)" @@ -33869,7 +33996,7 @@ static const char *startup_source = "(let-values(((access_3)" "(let-values(((or-part_248)(module-access m_16)))" "(if or-part_248 or-part_248(module-compute-access! m_16)))))" -"(let-values(((a_44)(hash-ref(hash-ref access_3 phase_87 '#hasheq()) sym_57 'unexported)))" +"(let-values(((a_44)(hash-ref(hash-ref access_3 phase_89 '#hasheq()) sym_57 'unexported)))" "(if(let-values(((or-part_249)(eq? a_44 'unexported)))" "(if or-part_249 or-part_249(eq? a_44 'protected)))" "(let-values()" @@ -33888,7 +34015,7 @@ static const char *startup_source = "(define-values" "(module-cache-ref)" "(lambda(key_69)" -"(begin(let-values(((e_74)(hash-ref module-cache key_69 #f)))(if e_74(ephemeron-value e_74) #f)))))" +"(begin(let-values(((e_75)(hash-ref module-cache key_69 #f)))(if e_75(ephemeron-value e_75) #f)))))" "(define-values(current-module-declare-as-predefined)(make-parameter #f))" "(define-values" "(eval-module8.1)" @@ -33944,7 +34071,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-range start_37 end_26 inc_20)))" -"((letrec-values(((for-loop_231)" +"((letrec-values(((for-loop_232)" "(lambda(table_189 pos_98)" "(begin" " 'for-loop" @@ -33990,12 +34117,12 @@ static const char *startup_source = " for-loop_50)" " table_189)))))" "(if(not #f)" -"(for-loop_231" +"(for-loop_232" " table_190" "(+ pos_98 inc_20))" " table_190)))" " table_189)))))" -" for-loop_231)" +" for-loop_232)" " '#hash()" " start_37)))))" "(let-values(((syntax-literals-linklet_0)" @@ -34037,7 +34164,7 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list lst_20)))" -"((letrec-values(((for-loop_232)" +"((letrec-values(((for-loop_233)" "(lambda(lst_93)" "(begin" " 'for-loop" @@ -34073,11 +34200,11 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_232" +"(for-loop_233" " rest_44)" "(values))))" "(values))))))" -" for-loop_232)" +" for-loop_233)" " lst_20)))" "(void))" "(begin" @@ -34254,7 +34381,7 @@ static const char *startup_source = " import-instances_0)" "(let-values(((mis_1" " is_0)" -"(let-values(((lst_267)" +"(let-values(((lst_269)" " module-uses_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -34262,21 +34389,21 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_267)))" -"((letrec-values(((for-loop_233)" +" lst_269)))" +"((letrec-values(((for-loop_234)" "(lambda(mis_2" " is_1" -" lst_268)" +" lst_270)" "(begin" " 'for-loop" "(if(pair?" -" lst_268)" +" lst_270)" "(let-values(((mu_8)" "(unsafe-car" -" lst_268))" +" lst_270))" "((rest_145)" "(unsafe-cdr" -" lst_268)))" +" lst_270)))" "(let-values(((mis_3" " is_2)" "(let-values(((mis_4)" @@ -34324,7 +34451,7 @@ static const char *startup_source = " is_4)))))" "(if(not" " #f)" -"(for-loop_233" +"(for-loop_234" " mis_3" " is_2" " rest_145)" @@ -34334,10 +34461,10 @@ static const char *startup_source = "(values" " mis_2" " is_1))))))" -" for-loop_233)" +" for-loop_234)" " null" " null" -" lst_267)))))" +" lst_269)))))" "(values" "(reverse$1" " mis_1)" @@ -34527,16 +34654,16 @@ 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:_67 make-_67 ?_67 -ref_67 -set!_67)" +"(let-values(((struct:_68 make-_68 ?_68 -ref_68 -set!_68)" "(let-values()" "(let-values()" "(make-struct-type 'instance-data #f 2 0 #f null(current-inspector) #f '(0 1) #f 'instance-data)))))" "(values" -" struct:_67" -" make-_67" -" ?_67" -"(make-struct-field-accessor -ref_67 0 'syntax-literals-instance)" -"(make-struct-field-accessor -ref_67 1 'cache-key))))" +" struct:_68" +" make-_68" +" ?_68" +"(make-struct-field-accessor -ref_68 0 'syntax-literals-instance)" +"(make-struct-field-accessor -ref_68 1 'cache-key))))" "(define-values" "(init-instance-data!)" "(lambda(data-box_4" @@ -34722,12 +34849,12 @@ static const char *startup_source = "(let-values(((ht_123) phases-h_1))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-in-hash ht_123)))" -"((letrec-values(((for-loop_234)" +"((letrec-values(((for-loop_235)" "(lambda(table_196 i_149)" "(begin" " 'for-loop" "(if i_149" -"(let-values(((phase_88 linklet_5)(hash-iterate-key+value ht_123 i_149)))" +"(let-values(((phase_90 linklet_5)(hash-iterate-key+value ht_123 i_149)))" "(let-values(((table_197)" "(let-values(((table_198) table_196))" "(let-values(((table_148)" @@ -34735,16 +34862,16 @@ static const char *startup_source = "(let-values(((key_72 val_62)" "(let-values()" "(values" -" phase_88" +" phase_90" "(1/linklet-export-variables" " linklet_5)))))" "(hash-set table_198 key_72 val_62)))))" "(values table_148)))))" "(if(not #f)" -"(for-loop_234 table_197(hash-iterate-next ht_123 i_149))" +"(for-loop_235 table_197(hash-iterate-next ht_123 i_149))" " table_197)))" " table_196)))))" -" for-loop_234)" +" for-loop_235)" " '#hash()" "(hash-iterate-first ht_123)))))))" "(define-values" @@ -34767,7 +34894,7 @@ static const char *startup_source = "(begin" " 'for-loop" "(if i_150" -"(let-values(((phase_89 at-phase_11)" +"(let-values(((phase_91 at-phase_11)" "(hash-iterate-key+value ht_124 i_150)))" "(let-values(((fold-var_60)" "(let-values(((l_64)" @@ -34781,8 +34908,8 @@ static const char *startup_source = "(let-values()" "(check-in-hash" " ht_117)))" -"((letrec-values(((for-loop_235)" -"(lambda(fold-var_220" +"((letrec-values(((for-loop_236)" +"(lambda(fold-var_222" " i_151)" "(begin" " 'for-loop" @@ -34792,18 +34919,18 @@ static const char *startup_source = "(hash-iterate-key+value" " ht_117" " i_151)))" -"(let-values(((fold-var_221)" -"(let-values(((fold-var_222)" -" fold-var_220))" +"(let-values(((fold-var_223)" +"(let-values(((fold-var_224)" +" fold-var_222))" "(if(ok?_24" " b/p_1)" -"(let-values(((fold-var_223)" -" fold-var_222))" -"(let-values(((fold-var_224)" +"(let-values(((fold-var_225)" +" fold-var_224))" +"(let-values(((fold-var_226)" "(let-values()" "(cons" "(let-values()" -"(let-values(((b_71)" +"(let-values(((b_72)" "(provided-as-binding" " b/p_1)))" "(list" @@ -34811,16 +34938,16 @@ static const char *startup_source = "(if(eq?" " self_24" "(module-binding-module" -" b_71))" +" b_72))" "(let-values()" " null)" "(let-values()" "(reverse$1" "(let-values(((lst_87)" "(cons" -" b_71" +" b_72" "(module-binding-extra-nominal-bindings" -" b_71))))" +" b_72))))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" @@ -34828,75 +34955,75 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_87)))" -"((letrec-values(((for-loop_236)" -"(lambda(fold-var_225" -" lst_269)" +"((letrec-values(((for-loop_237)" +"(lambda(fold-var_227" +" lst_271)" "(begin" " 'for-loop" "(if(pair?" -" lst_269)" -"(let-values(((b_72)" +" lst_271)" +"(let-values(((b_73)" "(unsafe-car" -" lst_269))" +" lst_271))" "((rest_146)" "(unsafe-cdr" -" lst_269)))" +" lst_271)))" "(let-values(((fold-var_29)" "(let-values(((fold-var_30)" -" fold-var_225))" +" fold-var_227))" "(let-values(((fold-var_31)" "(let-values()" "(cons" "(let-values()" "(if(if(eqv?" "(module-binding-nominal-phase" -" b_72)" -" phase_89)" +" b_73)" +" phase_91)" "(eq?" "(module-binding-nominal-sym" -" b_72)" +" b_73)" " sym_58)" " #f)" "(let-values()" "(module-binding-nominal-module" -" b_72))" +" b_73))" "(let-values()" "(list" "(module-binding-nominal-module" -" b_72)" +" b_73)" "(module-binding-phase" -" b_72)" +" b_73)" "(module-binding-nominal-sym" -" b_72)" +" b_73)" "(module-binding-nominal-phase" -" b_72)))))" +" b_73)))))" " fold-var_30))))" "(values" " fold-var_31)))))" "(if(not" " #f)" -"(for-loop_236" +"(for-loop_237" " fold-var_29" " rest_146)" " fold-var_29)))" -" fold-var_225)))))" -" for-loop_236)" +" fold-var_227)))))" +" for-loop_237)" " null" " lst_87)))))))))" -" fold-var_223))))" +" fold-var_225))))" "(values" -" fold-var_224)))" -" fold-var_222))))" +" fold-var_226)))" +" fold-var_224))))" "(if(not" " #f)" -"(for-loop_235" -" fold-var_221" +"(for-loop_236" +" fold-var_223" "(hash-iterate-next" " ht_117" " i_151))" -" fold-var_221)))" -" fold-var_220)))))" -" for-loop_235)" +" fold-var_223)))" +" fold-var_222)))))" +" for-loop_236)" " null" "(hash-iterate-first" " ht_117)))))))" @@ -34907,7 +35034,7 @@ static const char *startup_source = "(begin" " 'for-loop" "(let-values()" -"(let-values(((fold-var_156)" +"(let-values(((fold-var_158)" "(let-values(((fold-var_32)" " fold-var_69))" "(if(null?" @@ -34920,7 +35047,7 @@ static const char *startup_source = "(cons" "(let-values()" "(cons" -" phase_89" +" phase_91" "(let-values(((l4_0)" " l_64)" "((symbollinklet-directory" "(hash-set" -"(let-values(((lst_173) submods_0))" +"(let-values(((lst_174) submods_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_173)))" -"((letrec-values(((for-loop_239)" -"(lambda(ht_126 lst_271)" +"(let-values()(check-list lst_174)))" +"((letrec-values(((for-loop_240)" +"(lambda(ht_126 lst_273)" "(begin" " 'for-loop" -"(if(pair? lst_271)" -"(let-values(((submod_1)(unsafe-car lst_271))" -"((rest_148)(unsafe-cdr lst_271)))" +"(if(pair? lst_273)" +"(let-values(((submod_1)(unsafe-car lst_273))" +"((rest_148)(unsafe-cdr lst_273)))" "(let-values(((ht_127)" "(let-values(((ht_128) ht_126))" "(let-values(((ht_118)" @@ -35236,11 +35363,11 @@ static const char *startup_source = "(compiled->linklet-directory-or-bundle" " submod_1))))))))" "(values ht_118)))))" -"(if(not #f)(for-loop_239 ht_127 rest_148) ht_127)))" +"(if(not #f)(for-loop_240 ht_127 rest_148) ht_127)))" " ht_126)))))" -" for-loop_239)" +" for-loop_240)" " '#hasheq()" -" lst_173)))" +" lst_174)))" " #f" " main_0))))))))))" "(define-values" @@ -35261,8 +35388,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_73)(hash-ref(1/linklet-directory->hash ld_3) #f #f)))" -"(if b_73(hash-ref(1/linklet-bundle->hash b_73) 'decl #f) #f))" +"(if(let-values(((b_74)(hash-ref(1/linklet-directory->hash ld_3) #f #f)))" +"(if b_74(hash-ref(1/linklet-bundle->hash b_74) 'decl #f) #f))" " #t" " #f)" " #f)))" @@ -35515,7 +35642,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-range start_38 end_27 inc_21)))" -"((letrec-values(((for-loop_189)" +"((letrec-values(((for-loop_190)" "(lambda(table_64 pos_100)" "(begin" " 'for-loop" @@ -35543,9 +35670,9 @@ static const char *startup_source = " key_75" " val_65)))))" "(values table_203)))))" -"(if(not #f)(for-loop_189 table_67(+ pos_100 inc_21)) table_67)))" +"(if(not #f)(for-loop_190 table_67(+ pos_100 inc_21)) table_67)))" " table_64)))))" -" for-loop_189)" +" for-loop_190)" " '#hash()" " start_38)))))))))))))" "(define-values" @@ -35599,11 +35726,11 @@ static const char *startup_source = "(lambda(c_44)(begin(1/module-compiled-name c_44(1/module-compiled-name c_44)))))" "(define-values" "(reset-submodule-names)" -"(lambda(b_74 pre?_1 submods_2)" +"(lambda(b_75 pre?_1 submods_2)" "(begin" "(1/hash->linklet-bundle" "(hash-set" -"(1/linklet-bundle->hash b_74)" +"(1/linklet-bundle->hash b_75)" "(if pre?_1 'pre 'post)" "(map2 module-compiled-immediate-name submods_2))))))" "(define-values" @@ -35622,7 +35749,7 @@ static const char *startup_source = " cctx12_1)" "(begin" " 'compile-module13" -"(let-values(((p_36) p11_1))" +"(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)))" @@ -35634,13 +35761,13 @@ static const char *startup_source = "(let-values()" "(let-values(((full-module-name_1)" "(let-values(((parent-full-name_0)(compile-context-full-module-name cctx_16))" -"((name_56)(syntax-e$1(parsed-module-name-id p_36))))" +"((name_56)(syntax-e$1(parsed-module-name-id p_37))))" "(if parent-full-name_0" "(append" "(if(list? parent-full-name_0) parent-full-name_0(list parent-full-name_0))" "(list name_56))" " name_56))))" -"(let-values(((compiled-submodules_0)(parsed-module-compiled-submodules p_36)))" +"(let-values(((compiled-submodules_0)(parsed-module-compiled-submodules p_37)))" "(let-values(((get-submodules_0)" "(lambda(star?_0)" "(begin" @@ -35661,13 +35788,13 @@ static const char *startup_source = " ht_122" " i_153)))" "(let-values(((fold-var_34)" -"(let-values(((fold-var_157)" +"(let-values(((fold-var_159)" " fold-var_69))" "(if(eq?" " star?_0" "(car star?+compiled_0))" "(let-values(((fold-var_9)" -" fold-var_157))" +" fold-var_159))" "(let-values(((fold-var_70)" "(let-values()" "(cons" @@ -35677,7 +35804,7 @@ static const char *startup_source = "(if(if need-compiled-submodule-rename?_0" "(not" "(parsed-module-compiled-module" -" p_36))" +" p_37))" " #f)" "(update-submodule-names" "(cdr" @@ -35688,7 +35815,7 @@ static const char *startup_source = " star?+compiled_0))))" " fold-var_9))))" "(values fold-var_70)))" -" fold-var_157))))" +" fold-var_159))))" "(if(not #f)" "(for-loop_106" " fold-var_34" @@ -35700,8 +35827,8 @@ static const char *startup_source = "(hash-iterate-first ht_122)))))))))" "(let-values(((pre-submodules_0)(get-submodules_0 #f)))" "(let-values(((post-submodules_0)(get-submodules_0 #t)))" -"(let-values(((c1_25)(parsed-module-compiled-module p_36)))" -"(if c1_25" +"(let-values(((c1_27)(parsed-module-compiled-module p_37)))" +"(if c1_27" "((lambda(c_45)" "(let-values(((name_58 prefix_6)" "(if(symbol? full-module-name_1)" @@ -35713,9 +35840,9 @@ static const char *startup_source = "(1/module-compiled-submodules m_18 #t(map2 cdr pre-submodules_0))" " #f" "(map2 cdr post-submodules_0)))))" -" c1_25)" +" c1_27)" "(let-values()" -"(let-values(((p37_1) p_36)" +"(let-values(((p37_1) p_37)" "((cctx38_0) cctx_16)" "((full-module-name39_0) full-module-name_1)" "((force-linklet-directory?40_0) force-linklet-directory?_0)" @@ -35751,7 +35878,7 @@ static const char *startup_source = " cctx33_0)" "(begin" " 'compile-module-from-parsed34" -"(let-values(((p_46) p32_0))" +"(let-values(((p_47) p32_0))" "(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))" @@ -35764,16 +35891,16 @@ 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_46)))" -"(let-values(((requires_5)(parsed-module-requires p_46)))" -"(let-values(((provides_11)(parsed-module-provides p_46)))" +"(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(((encoded-root-expand-ctx-box_1)" -"(box(parsed-module-encoded-root-ctx p_46))))" -"(let-values(((body-context-simple?_0)(parsed-module-root-ctx-simple? p_46)))" +"(box(parsed-module-encoded-root-ctx p_47))))" +"(let-values(((body-context-simple?_0)(parsed-module-root-ctx-simple? p_47)))" "(let-values(((language-info_2)" "(filter-language-info" -"(syntax-property$1(parsed-s p_46) 'module-language))))" -"(let-values(((bodys_6)(parsed-module-body p_46)))" +"(syntax-property$1(parsed-s p_47) 'module-language))))" +"(let-values(((bodys_6)(parsed-module-body p_47)))" "(let-values(((empty-result-for-module->namespace?_0) #f))" "(let-values(((mpis_19)(make-module-path-index-table)))" "(let-values(((body-cctx_0)" @@ -35800,16 +35927,16 @@ static const char *startup_source = "(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_76" " expected-results_3" -" phase_22" +" phase_24" " required-reference?_1)" "(begin" " 'check-side-effects!" -"(if(hash-ref side-effects_0 phase_22 #f)" +"(if(hash-ref side-effects_0 phase_24 #f)" "(void)" "(let-values()" -"(if(let-values(((e52_2) e_75)" +"(if(let-values(((e52_2) e_76)" "((expected-results53_0)" " expected-results_3)" "((required-reference?54_0)" @@ -35826,7 +35953,7 @@ static const char *startup_source = "(let-values()" "(hash-set!" " side-effects_0" -" phase_22" +" phase_24" " #t))" "(void))))))))" "(let-values((()" @@ -35888,32 +36015,32 @@ static const char *startup_source = " s_57))" "(let-values(((_69_1" " kw70_1)" -"(let-values(((s_378)" +"(let-values(((s_379)" "(if(syntax?$1" " s_57)" "(syntax-e$1" " s_57)" " s_57)))" "(if(pair?" -" s_378)" +" s_379)" "(let-values(((_71_0)" -"(let-values(((s_379)" -"(car" -" s_378)))" -" s_379))" -"((kw72_0)" "(let-values(((s_380)" -"(cdr" -" s_378)))" +"(car" +" s_379)))" +" s_380))" +"((kw72_0)" "(let-values(((s_381)" +"(cdr" +" s_379)))" +"(let-values(((s_382)" "(if(syntax?$1" -" s_380)" +" s_381)" "(syntax-e$1" -" s_380)" -" s_380)))" +" s_381)" +" s_381)))" "(let-values(((flat-s_18)" "(to-syntax-list.1" -" s_381)))" +" s_382)))" "(if(not" " flat-s_18)" "(let-values()" @@ -35935,7 +36062,7 @@ static const char *startup_source = " _69_1" " kw70_1))))))" "(begin" -"(let-values(((lst_272)" +"(let-values(((lst_274)" " kw70_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -35943,19 +36070,19 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_272)))" +" lst_274)))" "((letrec-values(((for-loop_13)" -"(lambda(lst_273)" +"(lambda(lst_275)" "(begin" " 'for-loop" "(if(pair?" -" lst_273)" +" lst_275)" "(let-values(((kw_0)" "(unsafe-car" -" lst_273))" +" lst_275))" "((rest_149)" "(unsafe-cdr" -" lst_273)))" +" lst_275)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -35992,12 +36119,12 @@ static const char *startup_source = "(values))))" "(values))))))" " for-loop_13)" -" lst_272)))" +" lst_274)))" "(void)" " #f)))" "(let-values() #f))))" "((temp66_1)" -"(lambda(mod-name_17 phase_91)" +"(lambda(mod-name_17 phase_93)" "(let-values(((ht_130)" "(if modules-being-compiled_1" "(hash-ref" @@ -36008,7 +36135,7 @@ static const char *startup_source = "(if ht_130" "(hash-ref" " ht_130" -" phase_91" +" phase_93" " #f)" " #f))))" "((to-source?67_0) to-source?_4)" @@ -36063,7 +36190,7 @@ static const char *startup_source = "(begin" " 'for-loop" "(if i_154" -"(let-values(((phase_92" +"(let-values(((phase_94" " linklet_6)" "(hash-iterate-key+value" " ht_131" @@ -36077,12 +36204,12 @@ static const char *startup_source = " val_66)" "(let-values()" "(values" -" phase_92" +" phase_94" "(module-linklet-info2.1" " linklet_6" "(hash-ref" " phase-to-link-module-uses_4" -" phase_92" +" phase_94" " #f)" " self_25" " #f" @@ -36090,7 +36217,7 @@ static const char *startup_source = "(if phase-to-link-extra-inspectorsss_2" "(hash-ref" " phase-to-link-extra-inspectorsss_2" -" phase_92" +" phase_94" " #f)" " #f))))))" "(hash-set" @@ -36240,10 +36367,10 @@ static const char *startup_source = " syntax-literals_4))" "((if to-source?_4" " values" -"(lambda(s_382)" +"(lambda(s_383)" "(let-values()" "(1/compile-linklet" -" s_382" +" s_383" " 'syntax-literals-data))))" "(list*" " 'linklet" @@ -36272,10 +36399,10 @@ static const char *startup_source = "(if serializable?_3" "((if to-source?_4" " values" -"(lambda(s_199)" +"(lambda(s_200)" "(let-values()" "(1/compile-linklet" -" s_199" +" s_200" " 'data))))" "(list" " 'linklet" @@ -36418,7 +36545,7 @@ static const char *startup_source = "((if to-source?_4" " values" " 1/hash->linklet-directory)" -"(let-values(((lst_204)" +"(let-values(((lst_206)" "(append" " pre-submodules_1" " post-submodules_1)))" @@ -36428,20 +36555,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_204)))" -"((letrec-values(((for-loop_123)" +" lst_206)))" +"((letrec-values(((for-loop_124)" "(lambda(ht_132" -" lst_274)" +" lst_276)" "(begin" " 'for-loop" "(if(pair?" -" lst_274)" +" lst_276)" "(let-values(((sm_0)" "(unsafe-car" -" lst_274))" +" lst_276))" "((rest_150)" "(unsafe-cdr" -" lst_274)))" +" lst_276)))" "(let-values(((ht_133)" "(let-values(((ht_134)" " ht_132))" @@ -36460,14 +36587,14 @@ static const char *startup_source = " ht_123)))))" "(if(not" " #f)" -"(for-loop_123" +"(for-loop_124" " ht_133" " rest_150)" " ht_133)))" " ht_132)))))" -" for-loop_123)" +" for-loop_124)" "(hasheq #f bundle_1)" -" lst_204))))))))" +" lst_206))))))))" "(if to-source?_4" "(let-values() ld_4)" "(let-values()" @@ -36499,15 +36626,15 @@ static const char *startup_source = "(lambda(modules-being-compiled_2 pre-submodules_2 self_26)" "(begin" "(begin" -"(let-values(((lst_275) pre-submodules_2))" +"(let-values(((lst_277) pre-submodules_2))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_275)))" -"((letrec-values(((for-loop_240)" -"(lambda(lst_276)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_277)))" +"((letrec-values(((for-loop_241)" +"(lambda(lst_278)" "(begin" " 'for-loop" -"(if(pair? lst_276)" -"(let-values(((s_104)(unsafe-car lst_276))((rest_151)(unsafe-cdr lst_276)))" +"(if(pair? lst_278)" +"(let-values(((s_104)(unsafe-car lst_278))((rest_151)(unsafe-cdr lst_278)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -36551,7 +36678,7 @@ static const char *startup_source = "(void)" "(let-values()" "(check-in-hash ht_135)))" -"((letrec-values(((for-loop_241)" +"((letrec-values(((for-loop_242)" "(lambda(table_208" " i_5)" "(begin" @@ -36602,23 +36729,23 @@ static const char *startup_source = " table_210))))" "(if(not" " #f)" -"(for-loop_241" +"(for-loop_242" " table_209" "(hash-iterate-next" " ht_135" " i_5))" " table_209)))" " table_208)))))" -" for-loop_241)" +" for-loop_242)" " '#hasheq()" "(hash-iterate-first" " ht_135))))))))))))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_240 rest_151)(values))))" +"(if(not #f)(for-loop_241 rest_151)(values))))" "(values))))))" -" for-loop_240)" -" lst_275)))" +" for-loop_241)" +" lst_277)))" "(void)))))" "(define-values" "(filter-language-info)" @@ -36646,7 +36773,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-hash ht_136)))" -"((letrec-values(((for-loop_242)" +"((letrec-values(((for-loop_243)" "(lambda(table_212 i_155)" "(begin" " 'for-loop" @@ -36669,10 +36796,10 @@ static const char *startup_source = "(hash-set table_214 key_78 val_68)))))" "(values table_215)))))" "(if(not #f)" -"(for-loop_242 table_213(hash-iterate-next ht_136 i_155))" +"(for-loop_243 table_213(hash-iterate-next ht_136 i_155))" " table_213)))" " table_212)))))" -" for-loop_242)" +" for-loop_243)" " '#hasheq()" "(hash-iterate-first ht_136))))))" "(if(1/linklet-directory? c_31)" @@ -36683,7 +36810,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-hash ht_137)))" -"((letrec-values(((for-loop_243)" +"((letrec-values(((for-loop_244)" "(lambda(table_216 i_156)" "(begin" " 'for-loop" @@ -36707,10 +36834,10 @@ static const char *startup_source = "(hash-set table_218 key_79 val_69)))))" "(values table_219)))))" "(if(not #f)" -"(for-loop_243 table_217(hash-iterate-next ht_137 i_156))" +"(for-loop_244 table_217(hash-iterate-next ht_137 i_156))" " table_217)))" " table_216)))))" -" for-loop_243)" +" for-loop_244)" " '#hasheq()" "(hash-iterate-first ht_137))))))" "(let-values() c_31)))))))" @@ -36748,13 +36875,13 @@ static const char *startup_source = "(let-values(((or-part_77)(1/linklet-bundle? ld_6)))" "(if or-part_77" " or-part_77" -"(let-values(((b_75)" +"(let-values(((b_76)" "(hash-ref" "(1/linklet-directory->hash ld_6)" " #f" " #f)))" -"(if b_75" -"(hash-ref(1/linklet-bundle->hash b_75) 'decl #f)" +"(if b_76" +"(hash-ref(1/linklet-bundle->hash b_76) 'decl #f)" " #f))))))" "(let-values(((mpi-pos-vec_0)(vector-ref mpi-vector-tree_0 0)))" "(let-values(((syntax-literals-spec_0)" @@ -36772,16 +36899,16 @@ static const char *startup_source = "(begin" " 'map-construct-compiled-in-memory" "(reverse$1" -"(let-values(((lst_265) l_10)" +"(let-values(((lst_267) l_10)" "((lst_89)" "(vector-ref" " mpi-vector-tree_0" " vec-pos_0))" -"((lst_163)" +"((lst_164)" "(vector-ref" " phase-to-link-modules-tree_0" " vec-pos_0))" -"((lst_263)" +"((lst_265)" "(vector-ref" " syntax-literals-tree_0" " vec-pos_0)))" @@ -36789,7 +36916,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_265)))" +"(let-values()(check-list lst_267)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" @@ -36797,21 +36924,21 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_163)))" +"(let-values()(check-list lst_164)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_263)))" -"((letrec-values(((for-loop_229)" -"(lambda(fold-var_157" -" lst_266" +"(let-values()(check-list lst_265)))" +"((letrec-values(((for-loop_230)" +"(lambda(fold-var_159" +" lst_268" " lst_24" " lst_102" " lst_90)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_266)" +" lst_268)" "(if(pair?" " lst_24)" "(if(pair?" @@ -36823,10 +36950,10 @@ static const char *startup_source = " #f)" "(let-values(((sub-ld_0)" "(unsafe-car" -" lst_266))" +" lst_268))" "((rest_152)" "(unsafe-cdr" -" lst_266))" +" lst_268))" "((mpi-vector-tree_1)" "(unsafe-car" " lst_24))" @@ -36845,10 +36972,10 @@ static const char *startup_source = "((rest_37)" "(unsafe-cdr" " lst_90)))" -"(let-values(((fold-var_166)" -"(let-values(((fold-var_167)" -" fold-var_157))" "(let-values(((fold-var_168)" +"(let-values(((fold-var_169)" +" fold-var_159))" +"(let-values(((fold-var_170)" "(let-values()" "(cons" "(let-values()" @@ -36857,24 +36984,24 @@ static const char *startup_source = " mpi-vector-tree_1" " phase-to-link-modules-tree_1" " syntax-literals-tree_1))" -" fold-var_167))))" +" fold-var_169))))" "(values" -" fold-var_168)))))" +" fold-var_170)))))" "(if(not #f)" -"(for-loop_229" -" fold-var_166" +"(for-loop_230" +" fold-var_168" " rest_152" " rest_49" " rest_89" " rest_37)" -" fold-var_166)))" -" fold-var_157)))))" -" for-loop_229)" +" fold-var_168)))" +" fold-var_159)))))" +" for-loop_230)" " null" -" lst_265" +" lst_267" " lst_89" -" lst_163" -" lst_263))))))))" +" lst_164" +" lst_265))))))))" "(compiled-in-memory1.1" " ld_6" " #f" @@ -36885,29 +37012,29 @@ static const char *startup_source = "(vector-ref phase-to-link-modules-tree_0 0))" " #f" " '#hasheqv()" -"(let-values(((len_29)(vector-length mpi-pos-vec_0)))" +"(let-values(((len_30)(vector-length mpi-pos-vec_0)))" "(begin" -"(if(exact-nonnegative-integer? len_29)" +"(if(exact-nonnegative-integer? len_30)" "(void)" "(let-values()" "(raise-argument-error" " 'for/vector" " \"exact-nonnegative-integer?\"" -" len_29)))" -"(let-values(((v_64)(make-vector len_29 0)))" +" len_30)))" +"(let-values(((v_64)(make-vector len_30 0)))" "(begin" -"(if(zero? len_29)" +"(if(zero? len_30)" "(void)" "(let-values()" -"(let-values(((vec_62 len_30)" -"(let-values(((vec_63)" +"(let-values(((vec_65 len_31)" +"(let-values(((vec_66)" " mpi-pos-vec_0))" "(begin" -"(check-vector vec_63)" +"(check-vector vec_66)" "(values" -" vec_63" +" vec_66" "(unsafe-vector-length" -" vec_63))))))" +" vec_66))))))" "(begin" " #f" "((letrec-values(((for-loop_103)" @@ -36916,10 +37043,10 @@ static const char *startup_source = " 'for-loop" "(if(unsafe-fx<" " pos_101" -" len_30)" +" len_31)" "(let-values(((pos_102)" "(unsafe-vector-ref" -" vec_62" +" vec_65" " pos_101)))" "(let-values(((i_158)" "(let-values(((i_59)" @@ -36943,7 +37070,7 @@ static const char *startup_source = "((lambda x_19" "(unsafe-fx=" " i_158" -" len_29))" +" len_30))" " pos_102))" "(not #f)" " #f)" @@ -36958,18 +37085,18 @@ static const char *startup_source = " 0" " 0)))))" " v_64))))" -"(let-values(((len_31)(cdr syntax-literals-spec_0)))" +"(let-values(((len_32)(cdr syntax-literals-spec_0)))" "(begin" -"(if(exact-nonnegative-integer? len_31)" +"(if(exact-nonnegative-integer? len_32)" "(void)" "(let-values()" "(raise-argument-error" " 'for/vector" " \"exact-nonnegative-integer?\"" -" len_31)))" -"(let-values(((v_34)(make-vector len_31 0)))" +" len_32)))" +"(let-values(((v_34)(make-vector len_32 0)))" "(begin" -"(if(zero? len_31)" +"(if(zero? len_32)" "(void)" "(let-values()" "(let-values(((start_15) 0)" @@ -36982,7 +37109,7 @@ static const char *startup_source = "(void)" "(let-values()" "(check-range start_15 end_28 inc_22)))" -"((letrec-values(((for-loop_244)" +"((letrec-values(((for-loop_245)" "(lambda(i_160 pos_103)" "(begin" " 'for-loop" @@ -37013,21 +37140,21 @@ static const char *startup_source = "(values" " i_162)))))" "(if(if(not" -"((lambda x_68" +"((lambda x_71" "(unsafe-fx=" " i_161" -" len_31))" +" len_32))" " i_20))" "(not #f)" " #f)" -"(for-loop_244" +"(for-loop_245" " i_161" "(+" " pos_103" " inc_22))" " i_161)))" " i_160)))))" -" for-loop_244)" +" for-loop_245)" " 0" " start_15)))))" " v_34))))" @@ -37054,21 +37181,21 @@ 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_178) names_2))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_177)))" -"((letrec-values(((for-loop_245)" -"(lambda(fold-var_5 lst_277)" +"(let-values()(check-list lst_178)))" +"((letrec-values(((for-loop_246)" +"(lambda(fold-var_5 lst_279)" "(begin" " 'for-loop" -"(if(pair? lst_277)" -"(let-values(((name_44)(unsafe-car lst_277))" -"((rest_153)(unsafe-cdr lst_277)))" -"(let-values(((fold-var_227)" -"(let-values(((fold-var_228) fold-var_5))" +"(if(pair? lst_279)" +"(let-values(((name_44)(unsafe-car lst_279))" +"((rest_153)(unsafe-cdr lst_279)))" "(let-values(((fold-var_229)" +"(let-values(((fold-var_230) fold-var_5))" +"(let-values(((fold-var_231)" "(let-values()" "(cons" "(let-values()" @@ -37079,13 +37206,13 @@ static const char *startup_source = "(error" " \"missing submodule declaration:\"" " name_44))))" -" fold-var_228))))" -"(values fold-var_229)))))" -"(if(not #f)(for-loop_245 fold-var_227 rest_153) fold-var_227)))" +" fold-var_230))))" +"(values fold-var_231)))))" +"(if(not #f)(for-loop_246 fold-var_229 rest_153) fold-var_229)))" " fold-var_5)))))" -" for-loop_245)" +" for-loop_246)" " null" -" lst_177))))))))))))))" +" lst_178))))))))))))))" "(define-values" "(eval-single-top)" "(lambda(c_31 ns_42)" @@ -37141,15 +37268,15 @@ static const char *startup_source = " l_11)))))" "(if(compiled-in-memory? c_50)" "(let-values()(eval-compiled-parts_0(compiled-in-memory-pre-compiled-in-memorys c_50)))" -"(let-values(((c1_26)(hash-ref(1/linklet-directory->hash c_50) 'data #f)))" -"(if c1_26" +"(let-values(((c1_28)(hash-ref(1/linklet-directory->hash c_50) 'data #f)))" +"(if c1_28" "((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_26)" +" c1_28)" "(let-values()(eval-compiled-parts_0(compiled-top->compiled-tops c_50))))))))))" "(define-values" "(eval-one-top15.1)" @@ -37213,7 +37340,7 @@ static const char *startup_source = "(begin" " 'for-loop" "(if(> pos_104 end_29)" -"(let-values(((phase_93) pos_104))" +"(let-values(((phase_95) pos_104))" "(let-values(((prev-thunk_1)" "(let-values(((prev-thunk_2)" " prev-thunk_0))" @@ -37227,13 +37354,13 @@ static const char *startup_source = "(let-values(((module-uses_1)" "(hash-ref" " phase-to-link-modules_1" -" phase_93" +" phase_95" " null)))" "(let-values(((import-module-instances_2" " import-instances_1)" "(let-values(((mis_6" " is_5)" -"(let-values(((lst_224)" +"(let-values(((lst_226)" " module-uses_1))" "(begin" "(if(variable-reference-from-unsafe?" @@ -37241,21 +37368,21 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_224)))" +" lst_226)))" "((letrec-values(((for-loop_99)" "(lambda(mis_7" " is_6" -" lst_225)" +" lst_227)" "(begin" " 'for-loop" "(if(pair?" -" lst_225)" +" lst_227)" "(let-values(((mu_9)" "(unsafe-car" -" lst_225))" +" lst_227))" "((rest_121)" "(unsafe-cdr" -" lst_225)))" +" lst_227)))" "(let-values(((mis_8" " is_7)" "(let-values(((mis_9)" @@ -37275,7 +37402,7 @@ static const char *startup_source = "((temp33_1)" "(phase-" "(phase+" -" phase_93" +" phase_95" " phase-shift_19)" "(module-use-phase" " mu_9))))" @@ -37312,7 +37439,7 @@ static const char *startup_source = " for-loop_99)" " null" " null" -" lst_224)))))" +" lst_226)))))" "(values" "(reverse$1" " mis_6)" @@ -37322,7 +37449,7 @@ static const char *startup_source = "(namespace->namespace-at-phase" " ns_70" "(phase+" -" phase_93" +" phase_95" " phase-shift_19))))" "(let-values(((inst_6)" "(if single-expression?_1" @@ -37347,7 +37474,7 @@ static const char *startup_source = " ns_70" "(phase+" "(sub1" -" phase_93)" +" phase_95)" " phase-shift_19)" " name_45" " val_70))))" @@ -37361,7 +37488,7 @@ static const char *startup_source = "(let-values(((linklet_9)" "(hash-ref" " h_11" -" phase_93" +" phase_95" " #f)))" "(if linklet_9" "(let-values()" @@ -37382,7 +37509,7 @@ static const char *startup_source = "((temp46_1)" "(hash-ref" " phase-to-link-extra-inspectorsss_3" -" phase_93" +" phase_95" " #f)))" "(check-require-access9.1" " temp41_2" @@ -37408,14 +37535,14 @@ static const char *startup_source = " ns_70" "(phase-" "(phase+" -" phase_93" +" phase_95" " phase-shift_19)" "(namespace-0-phase" " ns_70)))" "(not" " tail?_49))))))" "(if(zero-phase?" -" phase_93)" +" phase_95)" "(let-values()" " instantiate_0)" "(if single-expression?_1" @@ -37439,7 +37566,7 @@ static const char *startup_source = "(namespace->namespace-at-phase" " phase-ns_0" "(sub1" -" phase_93))))" +" phase_95))))" "(lambda(tail?_51)" "(begin" " 'prev-thunk" @@ -37492,31 +37619,31 @@ static const char *startup_source = "(extract-namespace-scopes to-ns_0))" "(let-values() orig-syntax-literals_0)" "(let-values()" -"(let-values(((len_32)(vector-length orig-syntax-literals_0)))" +"(let-values(((len_33)(vector-length orig-syntax-literals_0)))" "(begin" -"(if(exact-nonnegative-integer? len_32)" +"(if(exact-nonnegative-integer? len_33)" "(void)" "(let-values()" -" (raise-argument-error 'for/vector \"exact-nonnegative-integer?\" len_32)))" -"(let-values(((v_183)(make-vector len_32 0)))" +" (raise-argument-error 'for/vector \"exact-nonnegative-integer?\" len_33)))" +"(let-values(((v_183)(make-vector len_33 0)))" "(begin" -"(if(zero? len_32)" +"(if(zero? len_33)" "(void)" "(let-values()" -"(let-values(((vec_64 len_33)" -"(let-values(((vec_65) orig-syntax-literals_0))" +"(let-values(((vec_67 len_34)" +"(let-values(((vec_68) orig-syntax-literals_0))" "(begin" -"(check-vector vec_65)" -"(values vec_65(unsafe-vector-length vec_65))))))" +"(check-vector vec_68)" +"(values vec_68(unsafe-vector-length vec_68))))))" "(begin" " #f" -"((letrec-values(((for-loop_246)" +"((letrec-values(((for-loop_247)" "(lambda(i_163 pos_105)" "(begin" " 'for-loop" -"(if(unsafe-fx< pos_105 len_33)" -"(let-values(((s_383)" -"(unsafe-vector-ref vec_64 pos_105)))" +"(if(unsafe-fx< pos_105 len_34)" +"(let-values(((s_384)" +"(unsafe-vector-ref vec_67 pos_105)))" "(let-values(((i_164)" "(let-values(((i_165) i_163))" "(let-values(((i_166)" @@ -37527,7 +37654,7 @@ static const char *startup_source = " i_165" "(let-values()" "(swap-top-level-scopes" -" s_383" +" s_384" "(compiled-in-memory-namespace-scopes" " cim_11)" " to-ns_0)))" @@ -37536,15 +37663,15 @@ static const char *startup_source = " i_165)))))" "(values i_166)))))" "(if(if(not" -"((lambda x_69" -"(unsafe-fx= i_164 len_32))" -" s_383))" +"((lambda x_72" +"(unsafe-fx= i_164 len_33))" +" s_384))" "(not #f)" " #f)" -"(for-loop_246 i_164(unsafe-fx+ 1 pos_105))" +"(for-loop_247 i_164(unsafe-fx+ 1 pos_105))" " i_164)))" " i_163)))))" -" for-loop_246)" +" for-loop_247)" " 0" " 0)))))" " v_183)))))))))" @@ -37560,62 +37687,62 @@ static const char *startup_source = "(define-values(get-not-available)(lambda()(begin not-available)))" "(define-values" "(can-direct-eval?)" -"(lambda(p_43 ns_42 self-mpi_3)" +"(lambda(p_44 ns_42 self-mpi_3)" "(begin" -"(if(parsed-app? p_43)" +"(if(parsed-app? p_44)" "(let-values()" -"(if(can-direct-eval?(parsed-app-rator p_43) ns_42 self-mpi_3)" -"(let-values(((lst_101)(parsed-app-rands p_43)))" +"(if(can-direct-eval?(parsed-app-rator p_44) ns_42 self-mpi_3)" +"(let-values(((lst_101)(parsed-app-rands p_44)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_101)))" "((letrec-values(((for-loop_111)" -"(lambda(result_112 lst_6)" +"(lambda(result_116 lst_6)" "(begin" " 'for-loop" "(if(pair? lst_6)" "(let-values(((r_41)(unsafe-car lst_6))((rest_48)(unsafe-cdr lst_6)))" -"(let-values(((result_80)" +"(let-values(((result_81)" "(let-values()" -"(let-values(((result_113)" +"(let-values(((result_117)" "(let-values()" "(let-values()" "(can-direct-eval? r_41 ns_42 self-mpi_3)))))" -"(values result_113)))))" -"(if(if(not((lambda x_70(not result_80)) r_41))(not #f) #f)" -"(for-loop_111 result_80 rest_48)" -" result_80)))" -" result_112)))))" +"(values result_117)))))" +"(if(if(not((lambda x_73(not result_81)) r_41))(not #f) #f)" +"(for-loop_111 result_81 rest_48)" +" result_81)))" +" result_116)))))" " for-loop_111)" " #t" " lst_101)))" " #f))" -"(if(parsed-id? p_43)" -"(let-values()(not(eq?(get-id-value p_43 ns_42 self-mpi_3) not-available)))" -"(if(parsed-quote? p_43)" +"(if(parsed-id? p_44)" +"(let-values()(not(eq?(get-id-value p_44 ns_42 self-mpi_3) not-available)))" +"(if(parsed-quote? p_44)" "(let-values() #t)" -"(if(parsed-quote-syntax? p_43)(let-values() #t)(let-values() #f))))))))" +"(if(parsed-quote-syntax? p_44)(let-values() #t)(let-values() #f))))))))" "(define-values" "(direct-eval)" -"(lambda(p_47 ns_71 self-mpi_4)" +"(lambda(p_48 ns_71 self-mpi_4)" "(begin" -"(if(parsed-app? p_47)" +"(if(parsed-app? p_48)" "(let-values()" "(apply" -"(direct-eval(parsed-app-rator p_47) ns_71 self-mpi_4)" +"(direct-eval(parsed-app-rator p_48) ns_71 self-mpi_4)" "(reverse$1" -"(let-values(((lst_78)(parsed-app-rands p_47)))" +"(let-values(((lst_78)(parsed-app-rands p_48)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_78)))" "((letrec-values(((for-loop_96)" -"(lambda(fold-var_230 lst_79)" +"(lambda(fold-var_232 lst_79)" "(begin" " 'for-loop" "(if(pair? lst_79)" "(let-values(((r_8)(unsafe-car lst_79))((rest_36)(unsafe-cdr lst_79)))" -"(let-values(((fold-var_224)" -"(let-values(((fold-var_67) fold-var_230))" +"(let-values(((fold-var_226)" +"(let-values(((fold-var_67) fold-var_232))" "(let-values(((fold-var_26)" "(let-values()" "(cons" @@ -37623,52 +37750,52 @@ static const char *startup_source = "(direct-eval r_8 ns_71 self-mpi_4))" " fold-var_67))))" "(values fold-var_26)))))" -"(if(not #f)(for-loop_96 fold-var_224 rest_36) fold-var_224)))" -" fold-var_230)))))" +"(if(not #f)(for-loop_96 fold-var_226 rest_36) fold-var_226)))" +" fold-var_232)))))" " for-loop_96)" " null" " lst_78))))))" -"(if(parsed-id? p_47)" -"(let-values()(get-id-value p_47 ns_71 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))))))))" +"(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))))))))" "(define-values" "(get-id-value)" "(lambda(p_1 ns_72 self-mpi_5)" "(begin" -"(let-values(((b_72)(parsed-id-binding p_1)))" +"(let-values(((b_73)(parsed-id-binding p_1)))" "(if(parsed-primitive-id? p_1)" -"(let-values()(hash-ref(1/primitive-table '#%kernel)(module-binding-sym b_72) get-not-available))" +"(let-values()(hash-ref(1/primitive-table '#%kernel)(module-binding-sym b_73) get-not-available))" "(if(let-values(((or-part_76)(parsed-top-id? p_1)))" "(if or-part_76" " or-part_76" -"(let-values(((or-part_77)(not b_72)))" -"(if or-part_77 or-part_77(eq? self-mpi_5(module-binding-module b_72))))))" +"(let-values(((or-part_77)(not b_73)))" +"(if or-part_77 or-part_77(eq? self-mpi_5(module-binding-module b_73))))))" "(let-values()" "(namespace-get-variable" " ns_72" -"(if b_72(module-binding-phase b_72)(namespace-phase ns_72))" -"(if b_72(module-binding-sym b_72)(syntax-e$1(parsed-s p_1)))" +"(if b_73(module-binding-phase b_73)(namespace-phase ns_72))" +"(if b_73(module-binding-sym b_73)(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_72)))" -"((temp3_4)(phase-(namespace-phase ns_72)(module-binding-phase b_72))))" +"((temp2_4)(1/module-path-index-resolve(module-binding-module b_73)))" +"((temp3_4)(phase-(namespace-phase ns_72)(module-binding-phase b_73))))" "(namespace->module-instance70.1 #f #f #f #f #f #f 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_72)" -"(module-binding-sym b_72)" -"(module-binding-extra-inspector b_72))" +"(module-binding-phase b_73)" +"(module-binding-sym b_73)" +"(module-binding-extra-inspector b_73))" "(let-values()" "(namespace-get-variable" "(module-instance-namespace mi_18)" -"(module-binding-phase b_72)" -"(module-binding-sym b_72)" +"(module-binding-phase b_73)" +"(module-binding-sym b_73)" " get-not-available))" "(let-values() not-available)))))))))))" "(define-values(runtime-scope)(new-multi-scope))" @@ -37722,7 +37849,7 @@ static const char *startup_source = "(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:_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" @@ -37738,15 +37865,15 @@ static const char *startup_source = " #f" " 'lift-context)))))" "(values" -" struct:_68" -" make-_68" -" ?_68" -"(make-struct-field-accessor -ref_68 0 'convert)" -"(make-struct-field-accessor -ref_68 1 'lifts)" -"(make-struct-field-accessor -ref_68 2 'module*-ok?))))" +" struct:_69" +" make-_69" +" ?_69" +"(make-struct-field-accessor -ref_69 0 'convert)" +"(make-struct-field-accessor -ref_69 1 'lifts)" +"(make-struct-field-accessor -ref_69 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:_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" @@ -37762,12 +37889,12 @@ static const char *startup_source = " #f" " 'lifted-bind)))))" "(values" -" struct:_69" -" make-_69" -" ?_69" -"(make-struct-field-accessor -ref_69 0 'ids)" -"(make-struct-field-accessor -ref_69 1 'keys)" -"(make-struct-field-accessor -ref_69 2 'rhs))))" +" struct:_70" +" make-_70" +" ?_70" +"(make-struct-field-accessor -ref_70 0 'ids)" +"(make-struct-field-accessor -ref_70 1 'keys)" +"(make-struct-field-accessor -ref_70 2 'rhs))))" "(define-values" "(make-lift-context6.1)" "(lambda(module*-ok?3_0 module*-ok?4_0 convert5_0)" @@ -37778,33 +37905,33 @@ static const char *startup_source = "(let-values()(lift-context1.1 convert_0(box null) module*-ok?_0)))))))" "(define-values" "(add-lifted!)" -"(lambda(lifts_1 ids_16 rhs_12 phase_94)" +"(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_94)))" +"(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_95)" +"(lambda(ids_17 rhs_13 phase_97)" "(let-values(((keys_2)" "(reverse$1" -"(let-values(((lst_278) ids_17))" +"(let-values(((lst_280) ids_17))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_278)))" -"((letrec-values(((for-loop_247)" -"(lambda(fold-var_231 lst_279)" +"(let-values()(check-list lst_280)))" +"((letrec-values(((for-loop_248)" +"(lambda(fold-var_233 lst_281)" "(begin" " 'for-loop" -"(if(pair? lst_279)" -"(let-values(((id_58)(unsafe-car lst_279))" -"((rest_154)(unsafe-cdr lst_279)))" +"(if(pair? lst_281)" +"(let-values(((id_58)(unsafe-car lst_281))" +"((rest_154)(unsafe-cdr lst_281)))" "(let-values(((fold-var_83)" -"(let-values(((fold-var_84) fold-var_231))" -"(let-values(((fold-var_232)" +"(let-values(((fold-var_84) fold-var_233))" +"(let-values(((fold-var_234)" "(let-values()" "(cons" "(let-values()" @@ -37812,7 +37939,7 @@ static const char *startup_source = "(let-values(((id32_0)" " id_58)" "((phase33_0)" -" phase_95)" +" phase_97)" "((counter34_0)" " counter_3))" "(add-local-binding!37.1" @@ -37832,70 +37959,70 @@ static const char *startup_source = " variable))" " key_81)))" " fold-var_84))))" -"(values fold-var_232)))))" -"(if(not #f)(for-loop_247 fold-var_83 rest_154) fold-var_83)))" -" fold-var_231)))))" -" for-loop_247)" +"(values fold-var_234)))))" +"(if(not #f)(for-loop_248 fold-var_83 rest_154) fold-var_83)))" +" fold-var_233)))))" +" for-loop_248)" " null" -" lst_278))))))" +" lst_280))))))" "(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_72)" +"(lambda(ids_18 rhs_14 phase_74)" "(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_280) ids_18))" +"(let-values(((lst_282) ids_18))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_280)))" -"((letrec-values(((for-loop_248)" -"(lambda(fold-var_233 lst_182)" +"(let-values()(check-list lst_282)))" +"((letrec-values(((for-loop_249)" +"(lambda(fold-var_235 lst_183)" "(begin" " 'for-loop" -"(if(pair? lst_182)" -"(let-values(((id_59)(unsafe-car lst_182))" -"((rest_155)(unsafe-cdr lst_182)))" -"(let-values(((fold-var_234)" -"(let-values(((fold-var_235) fold-var_233))" +"(if(pair? lst_183)" +"(let-values(((id_59)(unsafe-car lst_183))" +"((rest_155)(unsafe-cdr lst_183)))" "(let-values(((fold-var_236)" +"(let-values(((fold-var_237) fold-var_235))" +"(let-values(((fold-var_238)" "(let-values()" "(cons" "(let-values()" "(add-scope" " id_59" " post-scope_0))" -" fold-var_235))))" -"(values fold-var_236)))))" +" fold-var_237))))" +"(values fold-var_238)))))" "(if(not #f)" -"(for-loop_248 fold-var_234 rest_155)" -" fold-var_234)))" -" fold-var_233)))))" -" for-loop_248)" +"(for-loop_249 fold-var_236 rest_155)" +" fold-var_236)))" +" fold-var_235)))))" +" for-loop_249)" " null" -" lst_280))))))" +" lst_282))))))" "(let-values(((syms_20)(select-defined-syms-and-bind!/ctx tl-ids_1 ctx_11)))" "(values tl-ids_1(lifted-bind2.1 tl-ids_1 syms_20 rhs_14)))))))))" "(define-values" "(wrap-lifts-as-let)" -"(lambda(lifts_3 body_5 phase_96)" +"(lambda(lifts_3 body_5 phase_98)" "(begin" "(datum->syntax$1" " #f" -"(let-values(((lst_281)(reverse$1 lifts_3)))" +"(let-values(((lst_283)(reverse$1 lifts_3)))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_281)))" -"((letrec-values(((for-loop_249)" -"(lambda(body_6 lst_191)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_283)))" +"((letrec-values(((for-loop_250)" +"(lambda(body_6 lst_192)" "(begin" " 'for-loop" -"(if(pair? lst_191)" -"(let-values(((lift_0)(unsafe-car lst_191))((rest_100)(unsafe-cdr lst_191)))" +"(if(pair? lst_192)" +"(let-values(((lift_0)(unsafe-car lst_192))((rest_100)(unsafe-cdr lst_192)))" "(let-values(((body_7)" "(let-values(((body_8) body_6))" "(let-values(((body_9)" @@ -37907,7 +38034,7 @@ static const char *startup_source = " (error \"non-bindings in `lift-context`\")))" "(list" "(datum->syntax$1" -"(syntax-shift-phase-level$1 core-stx phase_96)" +"(syntax-shift-phase-level$1 core-stx phase_98)" " 'let-values)" "(list" "(list" @@ -37915,11 +38042,11 @@ static const char *startup_source = "(lifted-bind-rhs lift_0)))" " body_8)))))" "(values body_9)))))" -"(if(not #f)(for-loop_249 body_7 rest_100) body_7)))" +"(if(not #f)(for-loop_250 body_7 rest_100) body_7)))" " body_6)))))" -" for-loop_249)" +" for-loop_250)" " body_5" -" lst_281)))))))" +" lst_283)))))))" "(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)" @@ -37927,31 +38054,31 @@ static const char *startup_source = " 'wrap-lifts-as-begin16" "(let-values(((lifts_4) lifts13_0))" "(let-values(((body_10) body14_0))" -"(let-values(((phase_97) phase15_0))" +"(let-values(((phase_99) 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()" "(datum->syntax$1" " #f" "(cons" -"(datum->syntax$1(syntax-shift-phase-level$1 core-stx phase_97) 'begin)" +"(datum->syntax$1(syntax-shift-phase-level$1 core-stx phase_99) 'begin)" "(append" "(reverse$1" -"(let-values(((lst_282) lifts_4))" +"(let-values(((lst_284) lifts_4))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_282)))" -"((letrec-values(((for-loop_193)" -"(lambda(fold-var_237 lst_170)" +"(let-values()(check-list lst_284)))" +"((letrec-values(((for-loop_194)" +"(lambda(fold-var_239 lst_171)" "(begin" " 'for-loop" -"(if(pair? lst_170)" -"(let-values(((lift_1)(unsafe-car lst_170))" -"((rest_156)(unsafe-cdr lst_170)))" +"(if(pair? lst_171)" +"(let-values(((lift_1)(unsafe-car lst_171))" +"((rest_156)(unsafe-cdr lst_171)))" "(let-values(((fold-var_3)" -"(let-values(((fold-var_238) fold-var_237))" -"(let-values(((fold-var_239)" +"(let-values(((fold-var_240) fold-var_239))" +"(let-values(((fold-var_241)" "(let-values()" "(cons" "(let-values()" @@ -37964,37 +38091,37 @@ static const char *startup_source = "(datum->syntax$1" "(syntax-shift-phase-level$1" " core-stx" -" phase_97)" +" 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_193 fold-var_3 rest_156) fold-var_3)))" -" fold-var_237)))))" -" for-loop_193)" +" fold-var_240))))" +"(values fold-var_241)))))" +"(if(not #f)(for-loop_194 fold-var_3 rest_156) fold-var_3)))" +" fold-var_239)))))" +" for-loop_194)" " null" -" lst_282))))" +" lst_284))))" "(list(adjust-body_0 body_10))))))))))))))" "(define-values" "(get-lifts-as-lists)" "(lambda(lifts_5)" "(begin" "(reverse$1" -"(let-values(((lst_51) lifts_5))" +"(let-values(((lst_197) lifts_5))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_51)))" -"((letrec-values(((for-loop_73)" -"(lambda(fold-var_35 lst_52)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_197)))" +"((letrec-values(((for-loop_251)" +"(lambda(fold-var_101 lst_285)" "(begin" " 'for-loop" -"(if(pair? lst_52)" -"(let-values(((lift_2)(unsafe-car lst_52))((rest_22)(unsafe-cdr lst_52)))" -"(let-values(((fold-var_36)" -"(let-values(((fold-var_37) fold-var_35))" -"(let-values(((fold-var_38)" +"(if(pair? lst_285)" +"(let-values(((lift_2)(unsafe-car lst_285))((rest_157)(unsafe-cdr lst_285)))" +"(let-values(((fold-var_35)" +"(let-values(((fold-var_242) fold-var_101))" +"(let-values(((fold-var_243)" "(let-values()" "(cons" "(let-values()" @@ -38002,13 +38129,13 @@ static const char *startup_source = "(lifted-bind-ids lift_2)" "(lifted-bind-keys lift_2)" "(lifted-bind-rhs lift_2)))" -" fold-var_37))))" -"(values fold-var_38)))))" -"(if(not #f)(for-loop_73 fold-var_36 rest_22) fold-var_36)))" -" fold-var_35)))))" -" for-loop_73)" +" fold-var_242))))" +"(values fold-var_243)))))" +"(if(not #f)(for-loop_251 fold-var_35 rest_157) fold-var_35)))" +" fold-var_101)))))" +" for-loop_251)" " null" -" lst_51)))))))" +" lst_197)))))))" "(define-values" "(struct:module-lift-context" " module-lift-context19.1" @@ -38016,7 +38143,7 @@ static const char *startup_source = " module-lift-context-wrt-phase" " module-lift-context-lifts" " module-lift-context-module*-ok?)" -"(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" @@ -38032,21 +38159,21 @@ static const char *startup_source = " #f" " 'module-lift-context)))))" "(values" -" struct:_70" -" make-_70" -" ?_70" -"(make-struct-field-accessor -ref_70 0 'wrt-phase)" -"(make-struct-field-accessor -ref_70 1 'lifts)" -"(make-struct-field-accessor -ref_70 2 'module*-ok?))))" +" struct:_71" +" make-_71" +" ?_71" +"(make-struct-field-accessor -ref_71 0 'wrt-phase)" +"(make-struct-field-accessor -ref_71 1 'lifts)" +"(make-struct-field-accessor -ref_71 2 'module*-ok?))))" "(define-values" "(make-module-lift-context)" -"(lambda(phase_98 module*-ok?_1)(begin(module-lift-context19.1 phase_98(box null) module*-ok?_1))))" +"(lambda(phase_100 module*-ok?_1)(begin(module-lift-context19.1 phase_100(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_63 phase_99)" +"(lambda(module-lifts_2 s_63 phase_101)" "(begin" "(begin" "(if(let-values(((or-part_215)" @@ -38058,7 +38185,7 @@ static const char *startup_source = "(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_63 phase_99)))" +"(let-values(((tmp_30)(core-form-sym s_63 phase_101)))" "(if(equal? tmp_30 'module)" "(let-values()(void))" "(if(equal? tmp_30 'module*)" @@ -38082,7 +38209,7 @@ static const char *startup_source = " require-lift-context-do-require" " require-lift-context-wrt-phase" " require-lift-context-requires)" -"(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" @@ -38098,12 +38225,12 @@ static const char *startup_source = " #f" " 'require-lift-context)))))" "(values" -" struct:_71" -" make-_71" -" ?_71" -"(make-struct-field-accessor -ref_71 0 'do-require)" -"(make-struct-field-accessor -ref_71 1 'wrt-phase)" -"(make-struct-field-accessor -ref_71 2 'requires))))" +" struct:_72" +" make-_72" +" ?_72" +"(make-struct-field-accessor -ref_72 0 'do-require)" +"(make-struct-field-accessor -ref_72 1 'wrt-phase)" +"(make-struct-field-accessor -ref_72 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)))))" @@ -38112,11 +38239,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_384 phase_100)" +"(lambda(require-lifts_2 s_385 phase_102)" "(begin" "(begin" -"((require-lift-context-do-require require-lifts_2) s_384 phase_100)" -"(box-cons!(require-lift-context-requires require-lifts_2) s_384)))))" +"((require-lift-context-do-require require-lifts_2) s_385 phase_102)" +"(box-cons!(require-lift-context-requires require-lifts_2) s_385)))))" "(define-values" "(struct:to-module-lift-context" " to-module-lift-context21.1" @@ -38125,7 +38252,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:_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" @@ -38141,22 +38268,22 @@ static const char *startup_source = " #f" " 'to-module-lift-context)))))" "(values" -" struct:_72" -" make-_72" -" ?_72" -"(make-struct-field-accessor -ref_72 0 'wrt-phase)" -"(make-struct-field-accessor -ref_72 1 'provides)" -"(make-struct-field-accessor -ref_72 2 'end-as-expressions?)" -"(make-struct-field-accessor -ref_72 3 'ends))))" +" struct:_73" +" make-_73" +" ?_73" +"(make-struct-field-accessor -ref_73 0 'wrt-phase)" +"(make-struct-field-accessor -ref_73 1 'provides)" +"(make-struct-field-accessor -ref_73 2 'end-as-expressions?)" +"(make-struct-field-accessor -ref_73 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_101) phase26_2))" +"(let-values(((phase_103) 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_101(box null) end-as-expressions?_0 ends_0))))))))" +"(let-values()(to-module-lift-context21.1 phase_103(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!)" @@ -38166,12 +38293,12 @@ 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_213 phase_102)" +"(lambda(to-module-lifts_3 s_213 phase_104)" "(begin(box-cons!(to-module-lift-context-provides to-module-lifts_3) s_213))))" "(define-values" "(add-lifted-to-module-end!)" -"(lambda(to-module-lifts_4 s_385 phase_103)" -"(begin(box-cons!(to-module-lift-context-ends to-module-lifts_4) s_385))))" +"(lambda(to-module-lifts_4 s_386 phase_105)" +"(begin(box-cons!(to-module-lift-context-ends to-module-lifts_4) s_386))))" "(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)" @@ -38229,14 +38356,14 @@ static const char *startup_source = "(void)" "(let-values()(check-list lst_76)))" "((letrec-values(((for-loop_95)" -"(lambda(result_78 lst_77)" +"(lambda(result_79 lst_77)" "(begin" " 'for-loop" "(if(pair? lst_77)" "(let-values(((s_2)(unsafe-car lst_77))((rest_35)(unsafe-cdr lst_77)))" -"(let-values(((result_65)" +"(let-values(((result_66)" "(let-values()" -"(let-values(((result_114)" +"(let-values(((result_118)" "(let-values()" "(let-values()" "(memq" @@ -38246,11 +38373,11 @@ static const char *startup_source = " module" " module-begin" " definition-context))))))" -"(values result_114)))))" -"(if(if(not((lambda x_71(not result_65)) s_2))(not #f) #f)" -"(for-loop_95 result_65 rest_35)" -" result_65)))" -" result_78)))))" +"(values result_118)))))" +"(if(if(not((lambda x_74(not result_66)) s_2))(not #f) #f)" +"(for-loop_95 result_66 rest_35)" +" result_66)))" +" result_79)))))" " for-loop_95)" " #t" " lst_76)))" @@ -38353,7 +38480,7 @@ static const char *startup_source = "(let-values(((lst_42) rrs_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_42)))" -"((letrec-values(((for-loop_184)" +"((letrec-values(((for-loop_185)" "(lambda(lst_89)" "(begin" " 'for-loop" @@ -38370,9 +38497,9 @@ static const char *startup_source = "(let-values()" "(set-reference-record-all-referenced?! rr_1 #t))" "(values)))))" -"(if(post-guard-var_0)(for-loop_184 rest_118)(values))))))))" +"(if(post-guard-var_0)(for-loop_185 rest_118)(values))))))))" "(values))))))" -" for-loop_184)" +" for-loop_185)" " lst_42)))" "(void)))))" "(define-values" @@ -38385,7 +38512,7 @@ static const char *startup_source = "(let-values(((lst_24) keys_3))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_24)))" -"((letrec-values(((for-loop_250)" +"((letrec-values(((for-loop_252)" "(lambda(ab_3 lst_80)" "(begin" " 'for-loop" @@ -38395,31 +38522,31 @@ static const char *startup_source = "(let-values(((ab_5) ab_3))" "(let-values(((ab_6)(let-values()(set-add ab_5 key_82))))" "(values ab_6)))))" -"(if(not #f)(for-loop_250 ab_4 rest_143) ab_4)))" +"(if(not #f)(for-loop_252 ab_4 rest_143) ab_4)))" " ab_3)))))" -" for-loop_250)" +" for-loop_252)" "(reference-record-already-bound rr_2)" " lst_24))))" "(set-reference-record-reference-before-bound!" " rr_2" -"(let-values(((lst_271) keys_3))" +"(let-values(((lst_273) keys_3))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_271)))" -"((letrec-values(((for-loop_251)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_273)))" +"((letrec-values(((for-loop_253)" "(lambda(rbb_0 lst_25)" "(begin" " 'for-loop" "(if(pair? lst_25)" -"(let-values(((key_83)(unsafe-car lst_25))((rest_157)(unsafe-cdr lst_25)))" +"(let-values(((key_83)(unsafe-car lst_25))((rest_158)(unsafe-cdr lst_25)))" "(let-values(((rbb_1)" "(let-values(((rbb_2) rbb_0))" "(let-values(((rbb_3)(let-values()(set-remove rbb_2 key_83))))" "(values rbb_3)))))" -"(if(not #f)(for-loop_251 rbb_1 rest_157) rbb_1)))" +"(if(not #f)(for-loop_253 rbb_1 rest_158) rbb_1)))" " rbb_0)))))" -" for-loop_251)" +" for-loop_253)" "(reference-record-reference-before-bound rr_2)" -" lst_271))))))))" +" lst_273))))))))" "(define-values" "(reference-record-forward-references?)" "(lambda(rr_3)" @@ -38436,14 +38563,14 @@ static const char *startup_source = "(lambda(obs_0 key_84 . args_5)" "(begin" "(begin" -"(let-values(((c1_27)(hash-ref key->arity key_84 #f)))" -"(if c1_27" +"(let-values(((c1_29)(hash-ref key->arity key_84 #f)))" +"(if c1_29" "((lambda(arity_2)" "(if(let-values(((or-part_64)(eq? arity_2 'any)))" "(if or-part_64 or-part_64(eqv?(length args_5) arity_2)))" "(void)" " (let-values () (error 'call-expand-observe \"wrong arity for ~s: ~e\" key_84 args_5))))" -" c1_27)" +" c1_29)" " (let-values () (error 'call-expand-observe \"bad key: ~s\" key_84))))" "(obs_0 key_84(if(null? args_5)(let-values() #f)(let-values()(apply list* args_5))))))))" "(define-values" @@ -38571,7 +38698,7 @@ static const char *startup_source = " semi-parsed-define-values-syms" " semi-parsed-define-values-ids" " semi-parsed-define-values-rhs)" -"(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" @@ -38587,13 +38714,13 @@ static const char *startup_source = " #f" " 'semi-parsed-define-values)))))" "(values" -" struct:_62" -" make-_62" -" ?_62" -"(make-struct-field-accessor -ref_62 0 's)" -"(make-struct-field-accessor -ref_62 1 'syms)" -"(make-struct-field-accessor -ref_62 2 'ids)" -"(make-struct-field-accessor -ref_62 3 'rhs))))" +" struct:_63" +" make-_63" +" ?_63" +"(make-struct-field-accessor -ref_63 0 's)" +"(make-struct-field-accessor -ref_63 1 'syms)" +"(make-struct-field-accessor -ref_63 2 'ids)" +"(make-struct-field-accessor -ref_63 3 'rhs))))" "(define-values" "(struct:semi-parsed-begin-for-syntax" " semi-parsed-begin-for-syntax3.1" @@ -38621,23 +38748,23 @@ 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_181)(begin(if(expanded+parsed? s_181)(expanded+parsed-s s_181) s_181))))" +"(define-values(extract-syntax)(lambda(s_182)(begin(if(expanded+parsed? s_182)(expanded+parsed-s s_182) s_182))))" "(define-values" "(parsed-only)" "(lambda(l_66)" "(begin" "(reverse$1" -"(let-values(((lst_177) l_66))" +"(let-values(((lst_178) l_66))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_177)))" -"((letrec-values(((for-loop_245)" -"(lambda(fold-var_5 lst_277)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_178)))" +"((letrec-values(((for-loop_246)" +"(lambda(fold-var_5 lst_279)" "(begin" " 'for-loop" -"(if(pair? lst_277)" -"(let-values(((i_26)(unsafe-car lst_277))((rest_153)(unsafe-cdr lst_277)))" -"(let-values(((fold-var_227)" -"(let-values(((fold-var_228) fold-var_5))" +"(if(pair? lst_279)" +"(let-values(((i_26)(unsafe-car lst_279))((rest_153)(unsafe-cdr lst_279)))" +"(let-values(((fold-var_229)" +"(let-values(((fold-var_230) fold-var_5))" "(if(let-values(((or-part_252)(parsed? i_26)))" "(if or-part_252" " or-part_252" @@ -38645,8 +38772,8 @@ static const char *startup_source = "(if or-part_33" " or-part_33" "(semi-parsed-begin-for-syntax? i_26)))))" -"(let-values(((fold-var_159) fold-var_228))" -"(let-values(((fold-var_175)" +"(let-values(((fold-var_161) fold-var_230))" +"(let-values(((fold-var_177)" "(let-values()" "(cons" "(let-values()" @@ -38661,30 +38788,30 @@ static const char *startup_source = "(semi-parsed-begin-for-syntax-body" " i_26))))" "(let-values() i_26))))" -" fold-var_159))))" -"(values fold-var_175)))" -" fold-var_228))))" -"(if(not #f)(for-loop_245 fold-var_227 rest_153) fold-var_227)))" +" fold-var_161))))" +"(values fold-var_177)))" +" fold-var_230))))" +"(if(not #f)(for-loop_246 fold-var_229 rest_153) fold-var_229)))" " fold-var_5)))))" -" for-loop_245)" +" for-loop_246)" " null" -" lst_177)))))))" +" lst_178)))))))" "(define-values" "(syntax-only)" "(lambda(l_67)" "(begin" "(reverse$1" -"(let-values(((lst_278) l_67))" +"(let-values(((lst_280) l_67))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_278)))" -"((letrec-values(((for-loop_247)" -"(lambda(fold-var_231 lst_279)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_280)))" +"((letrec-values(((for-loop_248)" +"(lambda(fold-var_233 lst_281)" "(begin" " 'for-loop" -"(if(pair? lst_279)" -"(let-values(((i_35)(unsafe-car lst_279))((rest_154)(unsafe-cdr lst_279)))" +"(if(pair? lst_281)" +"(let-values(((i_35)(unsafe-car lst_281))((rest_154)(unsafe-cdr lst_281)))" "(let-values(((fold-var_83)" -"(let-values(((fold-var_84) fold-var_231))" +"(let-values(((fold-var_84) fold-var_233))" "(if(let-values(((or-part_127)(syntax?$1 i_35)))" "(if or-part_127" " or-part_127" @@ -38693,7 +38820,7 @@ static const char *startup_source = " or-part_253" "(semi-parsed-begin-for-syntax? i_35)))))" "(let-values(((fold-var_85) fold-var_84))" -"(let-values(((fold-var_240)" +"(let-values(((fold-var_244)" "(let-values()" "(cons" "(let-values()" @@ -38701,7 +38828,7 @@ static const char *startup_source = "(let-values()(expanded+parsed-s i_35))" "(if(semi-parsed-begin-for-syntax? i_35)" "(let-values()" -"(let-values(((s_165)" +"(let-values(((s_166)" "(semi-parsed-begin-for-syntax-s" " i_35)))" "(let-values(((nested-bodys_0)" @@ -38709,7 +38836,7 @@ static const char *startup_source = " i_35)))" "(let-values(((disarmed-s_0)" "(syntax-disarm$1" -" s_165)))" +" s_166)))" "(let-values(((ok?_26" " begin-for-syntax7_0" " _8_0)" @@ -38733,18 +38860,18 @@ static const char *startup_source = " s_27)))" " s_30))" "((_10_0)" -"(let-values(((s_160)" +"(let-values(((s_161)" "(cdr" " s_27)))" -"(let-values(((s_386)" +"(let-values(((s_387)" "(if(syntax?$1" -" s_160)" +" s_161)" "(syntax-e$1" -" s_160)" -" s_160)))" +" s_161)" +" s_161)))" "(let-values(((flat-s_19)" "(to-syntax-list.1" -" s_386)))" +" s_387)))" "(if(not" " flat-s_19)" "(let-values()" @@ -38765,7 +38892,7 @@ static const char *startup_source = " #t" " begin-for-syntax7_1" " _8_1))))))" -"(let-values(((s11_0) s_165)" +"(let-values(((s11_0) s_166)" "((temp12_2)" "(list*" " begin-for-syntax7_0" @@ -38778,19 +38905,19 @@ static const char *startup_source = " temp12_2)))))))" "(let-values() i_35))))" " fold-var_85))))" -"(values fold-var_240)))" +"(values fold-var_244)))" " fold-var_84))))" -"(if(not #f)(for-loop_247 fold-var_83 rest_154) fold-var_83)))" -" fold-var_231)))))" -" for-loop_247)" +"(if(not #f)(for-loop_248 fold-var_83 rest_154) fold-var_83)))" +" fold-var_233)))))" +" for-loop_248)" " null" -" lst_278)))))))" +" lst_280)))))))" "(define-values" "(expand7.1)" "(lambda(alternate-id1_0 alternate-id3_0 skip-log?2_0 skip-log?4_0 s5_1 ctx6_0)" "(begin" " 'expand7" -"(let-values(((s_387) s5_1))" +"(let-values(((s_388) s5_1))" "(let-values(((ctx_14) ctx6_0))" "(let-values(((alternate-id_0)(if alternate-id3_0 alternate-id1_0 #f)))" "(let-values(((skip-log?_0)(if skip-log?4_0 skip-log?2_0 #f)))" @@ -38804,19 +38931,19 @@ static const char *startup_source = "(call-expand-observe" " obs_1" "(if(expand-context-only-immediate? ctx_14) 'enter-check 'visit)" -" s_387))" +" s_388))" "(void)))" "(void)))" -"(if(identifier? s_387)" -"(let-values()(expand-identifier s_387 ctx_14 alternate-id_0))" -"(if(if(pair?(syntax-content s_387))(identifier?(car(syntax-content s_387))) #f)" -"(let-values()(expand-id-application-form s_387 ctx_14 alternate-id_0))" -"(if(let-values(((or-part_78)(pair?(syntax-content s_387))))" -"(if or-part_78 or-part_78(null?(syntax-content s_387))))" -"(let-values()(expand-implicit '#%app s_387 ctx_14 #f))" -"(if(already-expanded?(syntax-content s_387))" -"(let-values()(expand-already-expanded s_387 ctx_14))" -"(let-values()(expand-implicit '#%datum s_387 ctx_14 #f)))))))))))))))" +"(if(identifier? s_388)" +"(let-values()(expand-identifier s_388 ctx_14 alternate-id_0))" +"(if(if(pair?(syntax-content s_388))(identifier?(car(syntax-content s_388))) #f)" +"(let-values()(expand-id-application-form s_388 ctx_14 alternate-id_0))" +"(if(let-values(((or-part_78)(pair?(syntax-content s_388))))" +"(if or-part_78 or-part_78(null?(syntax-content s_388))))" +"(let-values()(expand-implicit '#%app s_388 ctx_14 #f))" +"(if(already-expanded?(syntax-content s_388))" +"(let-values()(expand-already-expanded s_388 ctx_14))" +"(let-values()(expand-implicit '#%datum s_388 ctx_14 #f)))))))))))))))" "(define-values" "(expand-identifier)" "(lambda(s_44 ctx_15 alternate-id_1)" @@ -38933,16 +39060,16 @@ static const char *startup_source = " protected?_4)))))))))))))))" "(define-values" "(expand-implicit)" -"(lambda(sym_61 s_182 ctx_17 trigger-id_1)" +"(lambda(sym_61 s_183 ctx_17 trigger-id_1)" "(begin" "(if(expand-context-only-immediate? ctx_17)" "(let-values()" "(begin" "(let-values(((obs_5)(expand-context-observer ctx_17)))" -"(if obs_5(let-values()(let-values()(call-expand-observe obs_5 'exit-check s_182)))(void)))" -" s_182))" +"(if obs_5(let-values()(let-values()(call-expand-observe obs_5 'exit-check s_183)))(void)))" +" s_183))" "(let-values()" -"(let-values(((disarmed-s_1)(syntax-disarm$1 s_182)))" +"(let-values(((disarmed-s_1)(syntax-disarm$1 s_183)))" "(let-values(((id_62)(datum->syntax$1 disarmed-s_1 sym_61)))" "(if(free-id-set-member?(expand-context-stops ctx_17)(expand-context-phase ctx_17) id_62)" "(let-values()" @@ -38954,13 +39081,13 @@ static const char *startup_source = "(let-values()" "(begin" "(call-expand-observe obs_6 'resolve id_62)" -"(call-expand-observe obs_6 'enter-prim s_182)" +"(call-expand-observe obs_6 'enter-prim s_183)" "(call-expand-observe obs_6 'prim-stop)" -"(call-expand-observe obs_6 'exit-prim s_182)" -"(call-expand-observe obs_6 'return s_182)))" +"(call-expand-observe obs_6 'exit-prim s_183)" +"(call-expand-observe obs_6 'return s_183)))" "(void)))" "(void)))" -" s_182))" +" s_183))" "(let-values()" "(let-values((()" "(begin" @@ -38969,18 +39096,18 @@ static const char *startup_source = "(let-values()(let-values()(call-expand-observe obs_7 'resolve id_62)))" "(void)))" "(values))))" -"(let-values(((b_76)" +"(let-values(((b_77)" "(let-values(((id106_0) id_62)" "((temp107_0)(expand-context-phase ctx_17))" "((temp108_0) 'ambiguous)" "((temp109_0) #t))" "(resolve+shift30.1 temp108_0 #t #f #f #f #f temp109_0 #t #f #f id106_0 temp107_0))))" -"(if(eq? b_76 'ambiguous)" +"(if(eq? b_77 'ambiguous)" "(let-values()(raise-ambiguous-error id_62 ctx_17))" "(let-values()" "(let-values(((t_48 primitive?_4 insp-of-t_2 protected?_5)" -"(if b_76" -"(let-values(((b110_0) b_76)((ctx111_0) ctx_17)((id112_0) id_62))" +"(if b_77" +"(let-values(((b110_0) b_77)((ctx111_0) ctx_17)((id112_0) id_62))" "(lookup28.1 #f #f #f #f b110_0 ctx111_0 id112_0))" "(values #f #f #f #f))))" "(if(transformer? t_48)" @@ -38988,10 +39115,10 @@ static const char *startup_source = "(dispatch-transformer" " t_48" " insp-of-t_2" -"(make-explicit ctx_17 sym_61 s_182 disarmed-s_1)" +"(make-explicit ctx_17 sym_61 s_183 disarmed-s_1)" " id_62" " ctx_17" -" b_76))" +" b_77))" "(if(core-form? t_48)" "(let-values()" "(if(if(eq? sym_61 '#%top)" @@ -38999,17 +39126,17 @@ static const char *startup_source = "(expand-context-in-local-expand? ctx_17)" " #f)" " #f)" -"(let-values()(dispatch-implicit-#%top-core-form t_48 s_182 ctx_17))" +"(let-values()(dispatch-implicit-#%top-core-form t_48 s_183 ctx_17))" "(let-values()" "(dispatch-core-form" " t_48" -"(make-explicit ctx_17 sym_61 s_182 disarmed-s_1)" +"(make-explicit ctx_17 sym_61 s_183 disarmed-s_1)" " ctx_17))))" "(let-values()" "(let-values(((tl-id_0)" "(if(eq? sym_61 '#%top)" "(if(root-expand-context-top-level-bind-scope ctx_17)" -"(add-scope s_182(root-expand-context-top-level-bind-scope ctx_17))" +"(add-scope s_183(root-expand-context-top-level-bind-scope ctx_17))" " #f)" " #f)))" "(let-values(((tl-b_0)" @@ -39027,7 +39154,7 @@ static const char *startup_source = " tl-id_0))" "(let-values()" "(raise-syntax-implicit-error" -" s_182" +" s_183" " sym_61" " trigger-id_1" " ctx_17))))))))))))))))))))))" @@ -39038,14 +39165,14 @@ static const char *startup_source = "(let-values(((ae_0)(syntax-e$1 s_46)))" "(let-values(((exp-s_0)(already-expanded-s ae_0)))" "(begin" -"(if(let-values(((or-part_136)(syntax-any-macro-scopes? s_46)))" -"(if or-part_136" -" or-part_136" -"(let-values(((or-part_137)" +"(if(let-values(((or-part_138)(syntax-any-macro-scopes? s_46)))" +"(if or-part_138" +" or-part_138" +"(let-values(((or-part_139)" "(not" "(eq?(expand-context-binding-layer ctx_18)(already-expanded-binding-layer ae_0)))))" -"(if or-part_137" -" or-part_137" +"(if or-part_139" +" or-part_139" "(if(parsed? exp-s_0)" "(not" "(if(expand-context-to-parsed? ctx_18)" @@ -39087,15 +39214,15 @@ static const char *startup_source = " new-s_0)))))" "(define-values" "(dispatch)" -"(lambda(t_49 insp-of-t_3 s_388 id_63 ctx_20 binding_20 primitive?_5 protected?_6)" +"(lambda(t_49 insp-of-t_3 s_389 id_63 ctx_20 binding_20 primitive?_5 protected?_6)" "(begin" "(if(core-form? t_49)" -"(let-values()(dispatch-core-form t_49 s_388 ctx_20))" +"(let-values()(dispatch-core-form t_49 s_389 ctx_20))" "(if(transformer? t_49)" -"(let-values()(dispatch-transformer t_49 insp-of-t_3 s_388 id_63 ctx_20 binding_20))" +"(let-values()(dispatch-transformer t_49 insp-of-t_3 s_389 id_63 ctx_20 binding_20))" "(if(variable? t_49)" -"(let-values()(dispatch-variable t_49 s_388 id_63 ctx_20 binding_20 primitive?_5 protected?_6))" -" (let-values () (raise-syntax-error$1 #f \"illegal use of syntax\" s_388))))))))" +"(let-values()(dispatch-variable t_49 s_389 id_63 ctx_20 binding_20 primitive?_5 protected?_6))" +" (let-values () (raise-syntax-error$1 #f \"illegal use of syntax\" s_389))))))))" "(define-values" "(dispatch-core-form)" "(lambda(t_50 s_47 ctx_21)" @@ -39151,7 +39278,7 @@ static const char *startup_source = " result-s_3))))))" "(define-values" "(dispatch-transformer)" -"(lambda(t_52 insp-of-t_4 s_383 id_64 ctx_23 binding_21)" +"(lambda(t_52 insp-of-t_4 s_384 id_64 ctx_23 binding_21)" "(begin" "(if(not-in-this-expand-context? t_52 ctx_23)" "(let-values()" @@ -39159,18 +39286,18 @@ static const char *startup_source = "(begin" "(let-values(((obs_15)(expand-context-observer ctx_23)))" "(if obs_15" -"(let-values()(let-values()(call-expand-observe obs_15 'enter-macro s_383)))" +"(let-values()(let-values()(call-expand-observe obs_15 'enter-macro s_384)))" "(void)))" "(values))))" -"(let-values(((adj-s_0)(avoid-current-expand-context(substitute-alternate-id s_383 id_64) t_52 ctx_23)))" +"(let-values(((adj-s_0)(avoid-current-expand-context(substitute-alternate-id s_384 id_64) t_52 ctx_23)))" "(begin" "(let-values(((obs_16)(expand-context-observer ctx_23)))" -"(if obs_16(let-values()(let-values()(call-expand-observe obs_16 'exit-macro s_383)))(void)))" +"(if obs_16(let-values()(let-values()(call-expand-observe obs_16 'exit-macro s_384)))(void)))" "(let-values(((adj-s117_0) adj-s_0)((ctx118_0) ctx_23))" "(expand7.1 #f #f #f #f adj-s117_0 ctx118_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_383))" +" (raise-syntax-error$1 #f \"encountered a macro binding in form that should be fully expanded\" s_384))" "(let-values()" "(let-values((()" "(begin" @@ -39180,17 +39307,17 @@ static const char *startup_source = "(if(if(expand-context-only-immediate? ctx_23)(not(1/rename-transformer? t_52)) #f)" "(let-values()" "(begin" -"(call-expand-observe obs_17 'visit s_383)" +"(call-expand-observe obs_17 'visit s_384)" "(call-expand-observe obs_17 'resolve id_64)))" "(void)))" "(void)))" "(values))))" "(let-values(((exp-s_1 re-ctx_0)" "(if(1/rename-transformer? t_52)" -"(values s_383 ctx_23)" +"(values s_384 ctx_23)" "(let-values(((t119_0) t_52)" "((insp-of-t120_0) insp-of-t_4)" -"((s121_0) s_383)" +"((s121_0) s_384)" "((id122_0) id_64)" "((ctx123_0) ctx_23)" "((binding124_0) binding_21))" @@ -39229,20 +39356,20 @@ static const char *startup_source = "(expand7.1 temp127_0 #t temp128_0 #t exp-s125_0 re-ctx126_0)))))))))))))" "(define-values" "(dispatch-variable)" -"(lambda(t_53 s_389 id_65 ctx_24 binding_22 primitive?_6 protected?_7)" +"(lambda(t_53 s_390 id_65 ctx_24 binding_22 primitive?_6 protected?_7)" "(begin" "(if(expand-context-only-immediate? ctx_24)" "(let-values()" "(begin" "(let-values(((obs_19)(expand-context-observer ctx_24)))" -"(if obs_19(let-values()(let-values()(call-expand-observe obs_19 'exit-check s_389)))(void)))" +"(if obs_19(let-values()(let-values()(call-expand-observe obs_19 'exit-check s_390)))(void)))" " id_65))" "(let-values()" "(let-values((()" "(begin" "(let-values(((obs_20)(expand-context-observer ctx_24)))" "(if obs_20" -"(let-values()(let-values()(call-expand-observe obs_20 'variable s_389 id_65)))" +"(let-values()(let-values()(call-expand-observe obs_20 'variable s_390 id_65)))" "(void)))" "(values))))" "(let-values((()(begin(register-variable-referenced-if-local! binding_22)(values))))" @@ -39420,16 +39547,16 @@ static const char *startup_source = " transformed-s_1)))))))))" "(define-values" "(maybe-add-use-site-scope)" -"(lambda(s_206 ctx_27 binding_24)" +"(lambda(s_207 ctx_27 binding_24)" "(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))" " #f)" "(let-values()" "(let-values(((sc_30)(new-scope 'use-site)))" -"(let-values(((b_77)(root-expand-context-use-site-scopes ctx_27)))" -"(begin(set-box! b_77(cons sc_30(unbox b_77)))(values(add-scope s_206 sc_30)(list sc_30))))))" -"(let-values()(values s_206 null))))))" +"(let-values(((b_78)(root-expand-context-use-site-scopes ctx_27)))" +"(begin(set-box! b_78(cons sc_30(unbox b_78)))(values(add-scope s_207 sc_30)(list sc_30))))))" +"(let-values()(values s_207 null))))))" "(define-values" "(matching-frame?)" "(lambda(current-frame-id_0 bind-frame-id_0)" @@ -39479,14 +39606,14 @@ static const char *startup_source = "(lambda(in21_0 in23_0 out-of-context-as-variable?22_0 out-of-context-as-variable?24_0 b25_0 ctx26_0 id27_0)" "(begin" " 'lookup28" -"(let-values(((b_78) b25_0))" +"(let-values(((b_79) b25_0))" "(let-values(((ctx_30) ctx26_0))" "(let-values(((id_68) id27_0))" "(let-values(((in-s_7)(if in23_0 in21_0 #f)))" "(let-values(((out-of-context-as-variable?_1)" "(if out-of-context-as-variable?24_0 out-of-context-as-variable?22_0 #f)))" "(let-values()" -"(let-values(((b137_0) b_78)" +"(let-values(((b137_0) b_79)" "((temp138_0)(expand-context-env ctx_30))" "((temp139_0)(expand-context-lift-envs ctx_30))" "((temp140_1)(expand-context-namespace ctx_30))" @@ -39507,19 +39634,19 @@ static const char *startup_source = " id142_0)))))))))))" "(define-values" "(substitute-alternate-id)" -"(lambda(s_390 alternate-id_3)" +"(lambda(s_391 alternate-id_3)" "(begin" "(if(not alternate-id_3)" -"(let-values() s_390)" -"(if(identifier? s_390)" -"(let-values()(syntax-rearm$1(syntax-track-origin$1 alternate-id_3 s_390) s_390))" +"(let-values() s_391)" +"(if(identifier? s_391)" +"(let-values()(syntax-rearm$1(syntax-track-origin$1 alternate-id_3 s_391) s_391))" "(let-values()" -"(let-values(((disarmed-s_4)(syntax-disarm$1 s_390)))" +"(let-values(((disarmed-s_4)(syntax-disarm$1 s_391)))" "(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_390)" -" s_390)" -" s_390))))))))" +"(datum->syntax$1 disarmed-s_4(cons alternate-id_3(cdr(syntax-e$1 disarmed-s_4))) s_391)" +" s_391)" +" s_391))))))))" "(define-values" "(register-variable-referenced-if-local!)" "(lambda(binding_25)" @@ -39541,7 +39668,7 @@ static const char *startup_source = " ctx40_0)" "(begin" " 'expand/capture-lifts41" -"(let-values(((s_391) s39_0))" +"(let-values(((s_392) s39_0))" "(let-values(((ctx_31) ctx40_0))" "(let-values(((expand-lifts?_0)(if expand-lifts?35_0 expand-lifts?31_0 #f)))" "(let-values(((begin-form?_0)(if begin-form?36_0 begin-form?32_0 #f)))" @@ -39549,7 +39676,7 @@ static const char *startup_source = "(let-values(((always-wrap?_0)(if always-wrap?38_0 always-wrap?34_0 #f)))" "(let-values()" "(let-values(((context_6)(expand-context-context ctx_31)))" -"(let-values(((phase_104)(expand-context-phase ctx_31)))" +"(let-values(((phase_106)(expand-context-phase ctx_31)))" "(let-values(((local?_0)(not begin-form?_0)))" "((letrec-values(((loop_93)" "(lambda(s_219 always-wrap?_1 ctx_32)" @@ -39725,7 +39852,7 @@ static const char *startup_source = "(let-values(((lifts154_0) lifts_6)" "((exp-s155_0) exp-s_2)" "((phase156_0)" -" phase_104))" +" phase_106))" "(wrap-lifts-as-begin16.1" " #f" " #f" @@ -39737,7 +39864,7 @@ static const char *startup_source = "(wrap-lifts-as-let" " lifts_6" " exp-s_2" -" phase_104)))))" +" phase_106)))))" "(let-values() exp-s_2))))" "(if(let-values(((or-part_108)(not expand-lifts?_0)))" "(if or-part_108" @@ -39761,7 +39888,7 @@ static const char *startup_source = "(void)))" "(loop_93 with-lifts-s_0 #f ctx_32)))))))))))))))" " loop_93)" -" s_391" +" s_392" " always-wrap?_0" " ctx_31))))))))))))))" "(define-values" @@ -39782,7 +39909,7 @@ static const char *startup_source = " ctx57_0)" "(begin" " 'expand-transformer58" -"(let-values(((s_340) s56_0))" +"(let-values(((s_341) s56_0))" "(let-values(((ctx_33) ctx57_0))" "(let-values(((context_7)(if context50_0 context44_0 'expression)))" "(let-values(((begin-form?_1)(if begin-form?51_0 begin-form?45_0 #f)))" @@ -39802,7 +39929,7 @@ static const char *startup_source = " ctx163_0" " context164_0" " #t))))" -"(let-values(((s157_0) s_340)" +"(let-values(((s157_0) s_341)" "((trans-ctx158_0) trans-ctx_0)" "((expand-lifts?159_0) expand-lifts?_1)" "((begin-form?160_0) begin-form?_1)" @@ -39828,10 +39955,10 @@ static const char *startup_source = "(let-values(((context_8)(if context64_0 context63_0 'expression)))" "(let-values(((keep-stops?_1)(if keep-stops?62_0 keep-stops?61_0 #f)))" "(let-values()" -"(let-values(((phase_105)(add1(expand-context-phase ctx_34))))" -"(let-values(((ns_73)(namespace->namespace-at-phase(expand-context-namespace ctx_34) phase_105)))" +"(let-values(((phase_107)(add1(expand-context-phase ctx_34))))" +"(let-values(((ns_73)(namespace->namespace-at-phase(expand-context-namespace ctx_34) phase_107)))" "(begin" -"(namespace-visit-available-modules! ns_73 phase_105)" +"(namespace-visit-available-modules! ns_73 phase_107)" "(let-values(((v_186) ctx_34))" "(let-values(((the-struct_60) v_186))" "(if(expand-context/outer? the-struct_60)" @@ -39845,7 +39972,7 @@ static const char *startup_source = "((inner172_0)" "(let-values(((the-struct_61)(root-expand-context/outer-inner v_186)))" "(if(expand-context/inner? the-struct_61)" -"(let-values(((phase173_0) phase_105)" +"(let-values(((phase173_0) phase_107)" "((namespace174_0) ns_73)" "((stops175_0)" "(if keep-stops?_1" @@ -39911,7 +40038,7 @@ static const char *startup_source = "(let-values(((exp-rhs_0)" "(let-values(((rhs176_0) rhs_16)((temp177_0)(as-named-context ctx_35 ids_19)))" "(expand-transformer58.1 #f #f #f #f #f #f #f #f #f #f #f #f rhs176_0 temp177_0))))" -"(let-values(((phase_106)(add1(expand-context-phase ctx_35))))" +"(let-values(((phase_108)(add1(expand-context-phase ctx_35))))" "(let-values(((parsed-rhs_0)" "(if(expand-context-to-parsed? ctx_35)" " exp-rhs_0" @@ -39932,8 +40059,8 @@ static const char *startup_source = "(eval-for-bindings" " ids_19" " parsed-rhs_0" -" phase_106" -"(namespace->namespace-at-phase(expand-context-namespace ctx_35) phase_106)" +" phase_108" +"(namespace->namespace-at-phase(expand-context-namespace ctx_35) phase_108)" " ctx_35))))))))))))))" "(define-values" "(eval-for-syntaxes-binding)" @@ -39945,14 +40072,14 @@ static const char *startup_source = " vals_3))))" "(define-values" "(eval-for-bindings)" -"(lambda(ids_21 p_48 phase_107 ns_74 ctx_37)" +"(lambda(ids_21 p_49 phase_109 ns_74 ctx_37)" "(begin" "(let-values(((compiled_0)" -"(if(can-direct-eval? p_48 ns_74(root-expand-context-self-mpi ctx_37))" +"(if(can-direct-eval? p_49 ns_74(root-expand-context-self-mpi ctx_37))" " #f" "(compile-single" -" p_48" -"(let-values(((ns184_0) ns_74)((phase185_0) phase_107))" +" p_49" +"(let-values(((ns184_0) ns_74)((phase185_0) phase_109))" "(make-compile-context14.1 #f #f #f #f #f #f ns184_0 #t phase185_0 #t #f #f))))))" "(let-values(((vals_4)" "(call-with-values" @@ -39970,15 +40097,15 @@ static const char *startup_source = "(let-values()" "(if compiled_0" "(eval-single-top compiled_0 ns_74)" -"(direct-eval p_48 ns_74(root-expand-context-self-mpi ctx_37))))))" +"(direct-eval p_49 ns_74(root-expand-context-self-mpi ctx_37))))))" " list)))" "(begin" "(if(=(length vals_4)(length ids_21))" "(void)" -" (let-values () (error \"wrong number of results (\" (length vals_4) \"vs.\" (length ids_21) \")\" \"from\" p_48)))" +" (let-values () (error \"wrong number of results (\" (length vals_4) \"vs.\" (length ids_21) \")\" \"from\" p_49)))" " vals_4))))))" -"(define-values(keep-properties-only)(lambda(s_392)(begin(datum->syntax$1 #f 'props s_392 s_392))))" -"(define-values(keep-properties-only~)(lambda(s_393)(begin #f)))" +"(define-values(keep-properties-only)(lambda(s_393)(begin(datum->syntax$1 #f 'props s_393 s_393))))" +"(define-values(keep-properties-only~)(lambda(s_394)(begin #f)))" "(define-values" "(keep-as-needed85.1)" "(lambda(for-track?77_0" @@ -39992,12 +40119,12 @@ static const char *startup_source = "(begin" " 'keep-as-needed85" "(let-values(((ctx_38) ctx83_0))" -"(let-values(((s_394) s84_0))" +"(let-values(((s_395) s84_0))" "(let-values()" "(let-values(((keep-for-parsed?_0)(if keep-for-parsed?81_0 keep-for-parsed?78_0 #f)))" "(let-values(((keep-for-error?_0)(if keep-for-error?82_0 keep-for-error?79_0 #f)))" "(let-values()" -"(let-values(((d_32)(syntax-e$1 s_394)))" +"(let-values(((d_32)(syntax-e$1 s_395)))" "(let-values(((keep-e_0)" "(if(symbol? d_32)" "(let-values() d_32)" @@ -40008,25 +40135,25 @@ static const char *startup_source = "(let-values()" "(if(let-values(((or-part_262) keep-for-parsed?_0))" "(if or-part_262 or-part_262 keep-for-error?_0))" -"(datum->syntax$1 #f keep-e_0 s_394 s_394)" +"(datum->syntax$1 #f keep-e_0 s_395 s_395)" " #f))" "(let-values()" "(syntax-rearm$1" -"(datum->syntax$1(syntax-disarm$1 s_394) keep-e_0 s_394 s_394)" -" s_394))))))))))))))" +"(datum->syntax$1(syntax-disarm$1 s_395) keep-e_0 s_395 s_395)" +" s_395))))))))))))))" "(define-values" "(attach-disappeared-transformer-bindings)" -"(lambda(s_395 trans-idss_0)" +"(lambda(s_396 trans-idss_0)" "(begin" "(if(null? trans-idss_0)" -"(let-values() s_395)" +"(let-values() s_396)" "(let-values()" "(syntax-property$1" -" s_395" +" s_396" " 'disappeared-binding" "(append" "(apply append trans-idss_0)" -"(let-values(((or-part_263)(syntax-property$1 s_395 'disappeared-binding)))" +"(let-values(((or-part_263)(syntax-property$1 s_396 'disappeared-binding)))" "(if or-part_263 or-part_263 null)))))))))" "(define-values" "(increment-binding-layer)" @@ -40074,35 +40201,35 @@ static const char *startup_source = "(let-values(((the-struct_62) v_187))" "(if(expand-context/outer? the-struct_62)" "(let-values(((env186_0)" -"(let-values(((lst_283) ids_24)((lst_284) keys_4))" +"(let-values(((lst_286) ids_24)((lst_287) keys_4))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_283)))" +"(let-values()(check-list lst_286)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_284)))" -"((letrec-values(((for-loop_252)" -"(lambda(env_3 lst_285 lst_286)" +"(let-values()(check-list lst_287)))" +"((letrec-values(((for-loop_254)" +"(lambda(env_3 lst_288 lst_289)" "(begin" " 'for-loop" -"(if(if(pair? lst_285)" -"(pair? lst_286)" +"(if(if(pair? lst_288)" +"(pair? lst_289)" " #f)" "(let-values(((id_69)" "(unsafe-car" -" lst_285))" -"((rest_158)" -"(unsafe-cdr" -" lst_285))" -"((key_85)" -"(unsafe-car" -" lst_286))" +" lst_288))" "((rest_159)" "(unsafe-cdr" -" lst_286)))" +" lst_288))" +"((key_85)" +"(unsafe-car" +" lst_289))" +"((rest_160)" +"(unsafe-cdr" +" lst_289)))" "(let-values(((env_4)" "(let-values(((env_5)" " env_3))" @@ -40116,16 +40243,16 @@ static const char *startup_source = "(values" " env_6)))))" "(if(not #f)" -"(for-loop_252" +"(for-loop_254" " env_4" -" rest_158" -" rest_159)" +" rest_159" +" rest_160)" " env_4)))" " env_3)))))" -" for-loop_252)" +" for-loop_254)" "(expand-context-env rhs-ctx_1)" -" lst_283" -" lst_284))))" +" lst_286" +" lst_287))))" "((inner187_0)(root-expand-context/outer-inner v_187)))" "(expand-context/outer1.1" " inner187_0" @@ -40160,14 +40287,14 @@ static const char *startup_source = "(let-values()(1/rename-transformer-target t_56))))))" "(define-values" "(maybe-install-free=id-in-context!)" -"(lambda(val_71 id_70 phase_108 ctx_42)" +"(lambda(val_71 id_70 phase_110 ctx_42)" "(begin" "(if(1/rename-transformer? val_71)" "(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_71 id_70 phase_108))))" +"(let-values()(maybe-install-free=id! val_71 id_70 phase_110))))" "(void)))))" "(define-values" "(transfer-srcloc)" @@ -40191,14 +40318,14 @@ static const char *startup_source = " new-s_1)))))" "(define-values" "(stop-ids->all-stop-ids)" -"(lambda(stop-ids_0 phase_43)" +"(lambda(stop-ids_0 phase_45)" "(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_43)))" +"(let-values(((p-core-stx_0)(syntax-shift-phase-level$1 core-stx phase_45)))" "(if(if(= 1(length stop-ids_0))" -"(free-identifier=?$1(car stop-ids_0)(datum->syntax$1 p-core-stx_0 'module*) phase_43 phase_43)" +"(free-identifier=?$1(car stop-ids_0)(datum->syntax$1 p-core-stx_0 'module*) phase_45 phase_45)" " #f)" "(let-values() stop-ids_0)" "(let-values()" @@ -40251,33 +40378,33 @@ static const char *startup_source = " #%variable-reference))" "(define-values" "(module-expand-stop-ids)" -"(lambda(phase_109)" +"(lambda(phase_111)" "(begin" -"(let-values(((p-core-stx_1)(syntax-shift-phase-level$1 core-stx phase_109)))" +"(let-values(((p-core-stx_1)(syntax-shift-phase-level$1 core-stx phase_111)))" "(reverse$1" -"(let-values(((lst_222) module-stop-syms))" +"(let-values(((lst_224) module-stop-syms))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_222)))" -"((letrec-values(((for-loop_253)" -"(lambda(fold-var_241 lst_262)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_224)))" +"((letrec-values(((for-loop_255)" +"(lambda(fold-var_245 lst_264)" "(begin" " 'for-loop" -"(if(pair? lst_262)" -"(let-values(((sym_16)(unsafe-car lst_262))((rest_160)(unsafe-cdr lst_262)))" -"(let-values(((fold-var_222)" -"(let-values(((fold-var_223) fold-var_241))" +"(if(pair? lst_264)" +"(let-values(((sym_16)(unsafe-car lst_264))((rest_161)(unsafe-cdr lst_264)))" "(let-values(((fold-var_224)" +"(let-values(((fold-var_225) fold-var_245))" +"(let-values(((fold-var_226)" "(let-values()" "(cons" "(let-values()" "(datum->syntax$1 p-core-stx_1 sym_16))" -" fold-var_223))))" -"(values fold-var_224)))))" -"(if(not #f)(for-loop_253 fold-var_222 rest_160) fold-var_222)))" -" fold-var_241)))))" -" for-loop_253)" +" fold-var_225))))" +"(values fold-var_226)))))" +"(if(not #f)(for-loop_255 fold-var_224 rest_161) fold-var_224)))" +" fold-var_245)))))" +" for-loop_255)" " null" -" lst_222))))))))" +" lst_224))))))))" "(define-values" "(module-stop-syms)" "(append" @@ -40291,7 +40418,7 @@ static const char *startup_source = " internal-definition-context-scope" " internal-definition-context-add-scope?" " internal-definition-context-env-mixins)" -"(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" @@ -40307,27 +40434,27 @@ static const char *startup_source = " #f" " 'internal-definition-context)))))" "(values" -" struct:_64" -" make-_64" -" ?_64" -"(make-struct-field-accessor -ref_64 0 'frame-id)" -"(make-struct-field-accessor -ref_64 1 'scope)" -"(make-struct-field-accessor -ref_64 2 'add-scope?)" -"(make-struct-field-accessor -ref_64 3 'env-mixins))))" +" struct:_65" +" make-_65" +" ?_65" +"(make-struct-field-accessor -ref_65 0 'frame-id)" +"(make-struct-field-accessor -ref_65 1 'scope)" +"(make-struct-field-accessor -ref_65 2 'add-scope?)" +"(make-struct-field-accessor -ref_65 3 'env-mixins))))" "(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:_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 'env-mixin #f 4 0 #f null(current-inspector) #f '(0 1 2 3) #f 'env-mixin)))))" "(values" -" struct:_65" -" make-_65" -" ?_65" -"(make-struct-field-accessor -ref_65 0 'id)" -"(make-struct-field-accessor -ref_65 1 'sym)" -"(make-struct-field-accessor -ref_65 2 'value)" -"(make-struct-field-accessor -ref_65 3 'cache))))" +" struct:_66" +" make-_66" +" ?_66" +"(make-struct-field-accessor -ref_66 0 'id)" +"(make-struct-field-accessor -ref_66 1 'sym)" +"(make-struct-field-accessor -ref_66 2 'value)" +"(make-struct-field-accessor -ref_66 3 'cache))))" "(define-values" "(1/syntax-local-make-definition-context)" "(let-values(((syntax-local-make-definition-context7_0)" @@ -40381,7 +40508,7 @@ static const char *startup_source = "((parent-ctx3_1)(syntax-local-make-definition-context7_0 parent-ctx3_1 #f #t #f)))))" "(define-values" "(1/syntax-local-bind-syntaxes)" -"(lambda(ids_25 s_396 intdef_0)" +"(lambda(ids_25 s_397 intdef_0)" "(begin" " 'syntax-local-bind-syntaxes" "(let-values((()" @@ -40393,9 +40520,9 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(if(let-values(((or-part_72)(not s_396)))(if or-part_72 or-part_72(syntax?$1 s_396)))" +"(if(let-values(((or-part_72)(not s_397)))(if or-part_72 or-part_72(syntax?$1 s_397)))" "(void)" -" (let-values () (raise-argument-error 'syntax-local-bind-syntaxes \"(or/c syntax? #f)\" s_396)))" +" (let-values () (raise-argument-error 'syntax-local-bind-syntaxes \"(or/c syntax? #f)\" s_397)))" "(values))))" "(let-values((()" "(begin" @@ -40416,26 +40543,26 @@ static const char *startup_source = "(let-values()(let-values()(call-expand-observe obs_28 'local-bind ids_25)))" "(void)))" "(values))))" -"(let-values(((phase_110)(expand-context-phase ctx_44)))" +"(let-values(((phase_112)(expand-context-phase ctx_44)))" "(let-values(((intdef-env_0)(add-intdef-bindings(expand-context-env ctx_44) intdef_0)))" "(let-values(((intdef-ids_0)" "(reverse$1" -"(let-values(((lst_287) ids_25))" +"(let-values(((lst_290) ids_25))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_287)))" -"((letrec-values(((for-loop_175)" -"(lambda(fold-var_16 lst_186)" +"(let-values()(check-list lst_290)))" +"((letrec-values(((for-loop_176)" +"(lambda(fold-var_16 lst_187)" "(begin" " 'for-loop" -"(if(pair? lst_186)" -"(let-values(((id_71)(unsafe-car lst_186))" -"((rest_161)(unsafe-cdr lst_186)))" -"(let-values(((fold-var_233)" -"(let-values(((fold-var_242)" +"(if(pair? lst_187)" +"(let-values(((id_71)(unsafe-car lst_187))" +"((rest_162)(unsafe-cdr lst_187)))" +"(let-values(((fold-var_235)" +"(let-values(((fold-var_246)" " fold-var_16))" -"(let-values(((fold-var_243)" +"(let-values(((fold-var_247)" "(let-values()" "(cons" "(let-values()" @@ -40458,15 +40585,15 @@ static const char *startup_source = " #t" " pre-id44_0" " intdef45_0))))" -" fold-var_242))))" -"(values fold-var_243)))))" +" fold-var_246))))" +"(values fold-var_247)))))" "(if(not #f)" -"(for-loop_175 fold-var_233 rest_161)" -" fold-var_233)))" +"(for-loop_176 fold-var_235 rest_162)" +" fold-var_235)))" " fold-var_16)))))" -" for-loop_175)" +" for-loop_176)" " null" -" lst_287))))))" +" lst_290))))))" "(let-values((()" "(begin" "(let-values(((obs_29)(expand-context-observer ctx_44)))" @@ -40477,29 +40604,29 @@ static const char *startup_source = "(values))))" "(let-values(((syms_21)" "(reverse$1" -"(let-values(((lst_288) intdef-ids_0))" +"(let-values(((lst_291) intdef-ids_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_288)))" -"((letrec-values(((for-loop_254)" -"(lambda(fold-var_244 lst_289)" +"(let-values()(check-list lst_291)))" +"((letrec-values(((for-loop_256)" +"(lambda(fold-var_248 lst_292)" "(begin" " 'for-loop" -"(if(pair? lst_289)" -"(let-values(((intdef-id_0)(unsafe-car lst_289))" -"((rest_162)(unsafe-cdr lst_289)))" -"(let-values(((fold-var_245)" -"(let-values(((fold-var_246)" -" fold-var_244))" -"(let-values(((fold-var_247)" +"(if(pair? lst_292)" +"(let-values(((intdef-id_0)(unsafe-car lst_292))" +"((rest_163)(unsafe-cdr lst_292)))" +"(let-values(((fold-var_249)" +"(let-values(((fold-var_250)" +" fold-var_248))" +"(let-values(((fold-var_251)" "(let-values()" "(cons" "(let-values()" "(let-values(((intdef-id47_0)" " intdef-id_0)" "((phase48_1)" -" phase_110)" +" phase_112)" "((temp49_1)" "(root-expand-context-counter" " ctx_44))" @@ -40514,43 +40641,43 @@ static const char *startup_source = " intdef-id47_0" " phase48_1" " temp49_1)))" -" fold-var_246))))" -"(values fold-var_247)))))" +" fold-var_250))))" +"(values fold-var_251)))))" "(if(not #f)" -"(for-loop_254 fold-var_245 rest_162)" -" fold-var_245)))" -" fold-var_244)))))" -" for-loop_254)" +"(for-loop_256 fold-var_249 rest_163)" +" fold-var_249)))" +" fold-var_248)))))" +" for-loop_256)" " null" -" lst_288))))))" +" lst_291))))))" "(let-values(((vals_5)" -"(if s_396" +"(if s_397" "(let-values()" "(let-values(((input-s_0)" "(flip-introduction-scopes" -"(let-values(((s51_0) s_396)" +"(let-values(((s51_0) s_397)" "((intdef52_0) intdef_0)" "((temp53_1) #t))" "(add-intdef-scopes21.1 #f #f temp53_1 #t s51_0 intdef52_0))" " ctx_44)))" "(let-values(((tmp-env_0)" -"(let-values(((lst_290) syms_21))" +"(let-values(((lst_293) syms_21))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_290)))" +"(let-values()(check-list lst_293)))" "((letrec-values(((for-loop_6)" -"(lambda(env_7 lst_169)" +"(lambda(env_7 lst_170)" "(begin" " 'for-loop" -"(if(pair? lst_169)" +"(if(pair? lst_170)" "(let-values(((sym_64)" "(unsafe-car" -" lst_169))" -"((rest_163)" +" lst_170))" +"((rest_164)" "(unsafe-cdr" -" lst_169)))" +" lst_170)))" "(let-values(((env_8)" "(let-values(((env_9)" " env_7))" @@ -40565,12 +40692,12 @@ static const char *startup_source = "(if(not #f)" "(for-loop_6" " env_8" -" rest_163)" +" rest_164)" " env_8)))" " env_7)))))" " for-loop_6)" " intdef-env_0" -" lst_290)))))" +" lst_293)))))" "(let-values((()" "(begin" "(let-values(((obs_30)" @@ -40650,69 +40777,69 @@ static const char *startup_source = " vals_6))))))" "(let-values()" "(reverse$1" -"(let-values(((lst_291) ids_25))" +"(let-values(((lst_294) ids_25))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_291)))" -"((letrec-values(((for-loop_255)" -"(lambda(fold-var_181 lst_292)" +"(let-values()(check-list lst_294)))" +"((letrec-values(((for-loop_257)" +"(lambda(fold-var_183 lst_295)" "(begin" " 'for-loop" -"(if(pair? lst_292)" -"(let-values(((id_72)(unsafe-car lst_292))" -"((rest_164)(unsafe-cdr lst_292)))" -"(let-values(((fold-var_248)" -"(let-values(((fold-var_249)" -" fold-var_181))" -"(let-values(((fold-var_250)" +"(if(pair? lst_295)" +"(let-values(((id_72)(unsafe-car lst_295))" +"((rest_165)(unsafe-cdr lst_295)))" +"(let-values(((fold-var_252)" +"(let-values(((fold-var_253)" +" fold-var_183))" +"(let-values(((fold-var_254)" "(let-values()" "(cons" "(let-values()" " variable)" -" fold-var_249))))" -"(values fold-var_250)))))" +" fold-var_253))))" +"(values fold-var_254)))))" "(if(not #f)" -"(for-loop_255 fold-var_248 rest_164)" -" fold-var_248)))" -" fold-var_181)))))" -" for-loop_255)" +"(for-loop_257 fold-var_252 rest_165)" +" fold-var_252)))" +" fold-var_183)))))" +" for-loop_257)" " null" -" lst_291))))))))" +" lst_294))))))))" "(let-values(((env-mixins_0)(internal-definition-context-env-mixins intdef_0)))" "(begin" "(set-box!" " env-mixins_0" "(append" "(reverse$1" -"(let-values(((lst_293) intdef-ids_0)((lst_294) syms_21)((lst_295) vals_5))" +"(let-values(((lst_296) intdef-ids_0)((lst_297) syms_21)((lst_298) vals_5))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_293)))" +"(let-values()(check-list lst_296)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_294)))" +"(let-values()(check-list lst_297)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_295)))" +"(let-values()(check-list lst_298)))" "((letrec-values(((for-loop_79)" -"(lambda(fold-var_251 lst_296 lst_106 lst_297)" +"(lambda(fold-var_255 lst_299 lst_106 lst_300)" "(begin" " 'for-loop" -"(if(if(pair? lst_296)" -"(if(pair? lst_106)(pair? lst_297) #f)" +"(if(if(pair? lst_299)" +"(if(pair? lst_106)(pair? lst_300) #f)" " #f)" -"(let-values(((intdef-id_1)(unsafe-car lst_296))" -"((rest_165)(unsafe-cdr lst_296))" +"(let-values(((intdef-id_1)(unsafe-car lst_299))" +"((rest_166)(unsafe-cdr lst_299))" "((sym_65)(unsafe-car lst_106))" "((rest_102)(unsafe-cdr lst_106))" -"((val_27)(unsafe-car lst_297))" -"((rest_166)(unsafe-cdr lst_297)))" -"(let-values(((fold-var_186)" -"(let-values(((fold-var_36)" -" fold-var_251))" -"(let-values(((fold-var_37)" +"((val_27)(unsafe-car lst_300))" +"((rest_167)(unsafe-cdr lst_300)))" +"(let-values(((fold-var_188)" +"(let-values(((fold-var_35)" +" fold-var_255))" +"(let-values(((fold-var_242)" "(let-values()" "(cons" "(let-values()" @@ -40720,28 +40847,28 @@ static const char *startup_source = "(maybe-install-free=id-in-context!" " val_27" " intdef-id_1" -" phase_110" +" phase_112" " ctx_44)" "(env-mixin2.1" " intdef-id_1" " sym_65" " val_27" "(make-weak-hasheq))))" -" fold-var_36))))" -"(values fold-var_37)))))" +" fold-var_35))))" +"(values fold-var_242)))))" "(if(not #f)" "(for-loop_79" -" fold-var_186" -" rest_165" +" fold-var_188" +" rest_166" " rest_102" -" rest_166)" -" fold-var_186)))" -" fold-var_251)))))" +" rest_167)" +" fold-var_188)))" +" fold-var_255)))))" " for-loop_79)" " null" -" lst_293" -" lst_294" -" lst_295))))" +" lst_296" +" lst_297" +" lst_298))))" "(unbox env-mixins_0)))" "(let-values(((obs_32)(expand-context-observer ctx_44)))" "(if obs_32" @@ -40761,29 +40888,29 @@ static const char *startup_source = " \"internal-definition-context?\"" " intdef_1)))" "(reverse$1" -"(let-values(((lst_298)(unbox(internal-definition-context-env-mixins intdef_1))))" +"(let-values(((lst_301)(unbox(internal-definition-context-env-mixins intdef_1))))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_298)))" -"((letrec-values(((for-loop_256)" -"(lambda(fold-var_252 lst_228)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_301)))" +"((letrec-values(((for-loop_258)" +"(lambda(fold-var_38 lst_230)" "(begin" " 'for-loop" -"(if(pair? lst_228)" -"(let-values(((env-mixin_0)(unsafe-car lst_228))" -"((rest_167)(unsafe-cdr lst_228)))" -"(let-values(((fold-var_253)" -"(let-values(((fold-var_187) fold-var_252))" -"(let-values(((fold-var_254)" +"(if(pair? lst_230)" +"(let-values(((env-mixin_0)(unsafe-car lst_230))" +"((rest_168)(unsafe-cdr lst_230)))" +"(let-values(((fold-var_256)" +"(let-values(((fold-var_189) fold-var_38))" +"(let-values(((fold-var_257)" "(let-values()" "(cons" "(let-values()(env-mixin-id env-mixin_0))" -" fold-var_187))))" -"(values fold-var_254)))))" -"(if(not #f)(for-loop_256 fold-var_253 rest_167) fold-var_253)))" -" fold-var_252)))))" -" for-loop_256)" +" fold-var_189))))" +"(values fold-var_257)))))" +"(if(not #f)(for-loop_258 fold-var_256 rest_168) fold-var_256)))" +" fold-var_38)))))" +" for-loop_258)" " null" -" lst_298))))))))" +" lst_301))))))))" "(define-values" "(1/internal-definition-context-introduce)" "(let-values(((internal-definition-context-introduce13_0)" @@ -40791,7 +40918,7 @@ static const char *startup_source = "(begin" " 'internal-definition-context-introduce13" "(let-values(((intdef_2) intdef11_0))" -"(let-values(((s_397) s12_1))" +"(let-values(((s_398) s12_1))" "(let-values(((mode_12)(if mode10_0 mode9_0 'flip)))" "(let-values()" "(begin" @@ -40802,11 +40929,11 @@ static const char *startup_source = " 'internal-definition-context-introduce" " \"internal-definition-context?\"" " intdef_2)))" -"(if(syntax?$1 s_397)" +"(if(syntax?$1 s_398)" "(void)" "(let-values()" -" (raise-argument-error 'internal-definition-context-introduce \"syntax?\" s_397)))" -"(let-values(((s59_0) s_397)" +" (raise-argument-error 'internal-definition-context-introduce \"syntax?\" s_398)))" +"(let-values(((s59_0) s_398)" "((intdef60_0) intdef_2)" "((temp61_1)" "(let-values(((tmp_32) mode_12))" @@ -40823,9 +40950,9 @@ static const char *startup_source = " mode_12))))))))" "(add-intdef-scopes21.1 temp61_1 #t #f #f s59_0 intdef60_0)))))))))))" "(case-lambda" -"((intdef_3 s_196)" -"(begin 'internal-definition-context-introduce(internal-definition-context-introduce13_0 intdef_3 s_196 #f #f)))" -"((intdef_4 s_197 mode9_1)(internal-definition-context-introduce13_0 intdef_4 s_197 mode9_1 #t)))))" +"((intdef_3 s_197)" +"(begin 'internal-definition-context-introduce(internal-definition-context-introduce13_0 intdef_3 s_197 #f #f)))" +"((intdef_4 s_198 mode9_1)(internal-definition-context-introduce13_0 intdef_4 s_198 mode9_1 #t)))))" "(define-values" "(1/internal-definition-context-seal)" "(lambda(intdef_5)" @@ -40854,14 +40981,14 @@ static const char *startup_source = " 'identifier-remove-from-definition-context" " \"(or/c internal-definition-context? (listof internal-definition-context?))\"" " intdef_6)))" -"(let-values(((x_72)" +"(let-values(((x_75)" "(let-values(((a_45) intdef_6))" "(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_176)" +"((letrec-values(((for-loop_177)" "(lambda(id_19 a_46)" "(begin" " 'for-loop" @@ -40876,23 +41003,23 @@ static const char *startup_source = " id_75" " 'remove))))" "(values id_76)))))" -"(if(not #f)(for-loop_176 id_74(cdr a_46)) id_74)))" +"(if(not #f)(for-loop_177 id_74(cdr a_46)) id_74)))" " id_19)))))" -" for-loop_176)" +" for-loop_177)" " id_73" -" x_72)))))))" +" x_75)))))))" "(define-values" "(add-intdef-bindings)" "(lambda(env_11 intdefs_0)" "(begin" -"(let-values(((x_73)" +"(let-values(((x_76)" "(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_257)" +"((letrec-values(((for-loop_259)" "(lambda(env_12 a_48)" "(begin" " 'for-loop" @@ -40945,42 +41072,42 @@ static const char *startup_source = " env_14" " env-mixins_1)))))" "(values env_15)))))" -"(if(not #f)(for-loop_257 env_13(cdr a_48)) env_13)))" +"(if(not #f)(for-loop_259 env_13(cdr a_48)) env_13)))" " env_12)))))" -" for-loop_257)" +" for-loop_259)" " env_11" -" x_73))))))" +" x_76))))))" "(define-values" "(add-intdef-scopes21.1)" "(lambda(action16_0 action18_0 always?15_0 always?17_0 s19_0 intdefs20_0)" "(begin" " 'add-intdef-scopes21" -"(let-values(((s_398) s19_0))" +"(let-values(((s_399) s19_0))" "(let-values(((intdefs_1) intdefs20_0))" "(let-values(((always?_0)(if always?17_0 always?15_0 #f)))" "(let-values(((action_0)(if action18_0 action16_0 add-scope)))" "(let-values()" -"(let-values(((x_74)" +"(let-values(((x_77)" "(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_179)" -"(lambda(s_384 a_50)" +"((letrec-values(((for-loop_180)" +"(lambda(s_385 a_50)" "(begin" " 'for-loop" "(if(pair? a_50)" "(let-values(((intdef_9)(car a_50)))" -"(let-values(((s_204)" -"(let-values(((s_205) s_384))" +"(let-values(((s_205)" +"(let-values(((s_206) s_385))" "(if(let-values(((or-part_268) always?_0))" "(if or-part_268" " or-part_268" "(internal-definition-context-add-scope?" " intdef_9)))" -"(let-values(((s_92) s_205))" +"(let-values(((s_92) s_206))" "(let-values(((s_315)" "(let-values()" "(action_0" @@ -40988,12 +41115,12 @@ static const char *startup_source = "(internal-definition-context-scope" " intdef_9)))))" "(values s_315)))" -" s_205))))" -"(if(not #f)(for-loop_179 s_204(cdr a_50)) s_204)))" -" s_384)))))" -" for-loop_179)" -" s_398" -" x_74)))))))))))" +" s_206))))" +"(if(not #f)(for-loop_180 s_205(cdr a_50)) s_205)))" +" s_385)))))" +" for-loop_180)" +" s_399" +" x_77)))))))))))" "(define-values" "(make-local-expand-context37.1)" "(lambda(context24_0" @@ -41011,7 +41138,7 @@ static const char *startup_source = " 'make-local-expand-context37" "(let-values(((ctx_45) ctx36_0))" "(let-values(((context_9) context24_0))" -"(let-values(((phase_111)(if phase31_0 phase25_0(expand-context-phase ctx_45))))" +"(let-values(((phase_113)(if phase31_0 phase25_0(expand-context-phase ctx_45))))" "(let-values(((intdefs_2) intdefs26_0))" "(let-values(((stop-ids_1)(if stop-ids33_0 stop-ids27_0 #f)))" "(let-values(((to-parsed-ok?_0)(if to-parsed-ok?34_0 to-parsed-ok?28_0 #f)))" @@ -41023,7 +41150,7 @@ static const char *startup_source = " or-part_269" "(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_111) #f)))" +"(if stop-ids_1(stop-ids->all-stop-ids stop-ids_1 phase_113) #f)))" "(let-values(((def-ctx-scopes_5)" "(if(expand-context-def-ctx-scopes ctx_45)" "(unbox(expand-context-def-ctx-scopes ctx_45))" @@ -41044,7 +41171,7 @@ static const char *startup_source = "(if or-part_272 or-part_272(box null)))" " #f))" "((frame-id65_0)" -"(let-values(((x_75)" +"(let-values(((x_78)" "(let-values(((a_51) intdefs_2))" "(if(list? a_51)" "(let-values()(reverse$1 a_51))" @@ -41053,7 +41180,7 @@ static const char *startup_source = "(let-values()(list a_51)))))))" "(begin" " #t" -"((letrec-values(((for-loop_128)" +"((letrec-values(((for-loop_129)" "(lambda(frame-id_9 a_52)" "(begin" " 'for-loop" @@ -41085,12 +41212,12 @@ static const char *startup_source = " i-frame-id_0))))))))" "(values frame-id_12)))))" "(if(not #f)" -"(for-loop_128 frame-id_10(cdr a_52))" +"(for-loop_129 frame-id_10(cdr a_52))" " frame-id_10)))" " frame-id_9)))))" -" for-loop_128)" +" for-loop_129)" "(root-expand-context-frame-id ctx_45)" -" x_75))))" +" x_78))))" "((post-expansion-scope66_0)" "(if intdefs_2" "(new-scope 'macro)" @@ -41116,8 +41243,8 @@ static const char *startup_source = "(let-values() ht_138)" "(if ht_138(let-values()(make-hasheqv))(let-values() #f)))))" "((inner72_0)" -"(let-values(((the-struct_65)(root-expand-context/outer-inner v_189)))" -"(if(expand-context/inner? the-struct_65)" +"(let-values(((the-struct_32)(root-expand-context/outer-inner v_189)))" +"(if(expand-context/inner? the-struct_32)" "(let-values(((to-parsed?75_0)" "(if to-parsed-ok?_0" "(expand-context-to-parsed? ctx_45)" @@ -41126,40 +41253,40 @@ static const char *startup_source = "((in-local-expand?77_0) #t)" "((stops78_0)" "(free-id-set" -" phase_111" +" phase_113" "(let-values(((or-part_274) all-stop-ids_0))" "(if or-part_274 or-part_274 null)))))" "(expand-context/inner2.1" -"(root-expand-context/inner-self-mpi the-struct_65)" -"(root-expand-context/inner-module-scopes the-struct_65)" -"(root-expand-context/inner-top-level-bind-scope the-struct_65)" -"(root-expand-context/inner-all-scopes-stx the-struct_65)" -"(root-expand-context/inner-defined-syms the-struct_65)" -"(root-expand-context/inner-counter the-struct_65)" -"(root-expand-context/inner-lift-key the-struct_65)" +"(root-expand-context/inner-self-mpi the-struct_32)" +"(root-expand-context/inner-module-scopes the-struct_32)" +"(root-expand-context/inner-top-level-bind-scope the-struct_32)" +"(root-expand-context/inner-all-scopes-stx the-struct_32)" +"(root-expand-context/inner-defined-syms the-struct_32)" +"(root-expand-context/inner-counter the-struct_32)" +"(root-expand-context/inner-lift-key the-struct_32)" " to-parsed?75_0" -"(expand-context/inner-phase the-struct_65)" -"(expand-context/inner-namespace the-struct_65)" +"(expand-context/inner-phase the-struct_32)" +"(expand-context/inner-namespace the-struct_32)" " just-once?76_0" -"(expand-context/inner-module-begin-k the-struct_65)" -"(expand-context/inner-allow-unbound? the-struct_65)" +"(expand-context/inner-module-begin-k the-struct_32)" +"(expand-context/inner-allow-unbound? the-struct_32)" " in-local-expand?77_0" " stops78_0" -"(expand-context/inner-declared-submodule-names the-struct_65)" -"(expand-context/inner-lifts the-struct_65)" -"(expand-context/inner-lift-envs the-struct_65)" -"(expand-context/inner-module-lifts the-struct_65)" -"(expand-context/inner-require-lifts the-struct_65)" -"(expand-context/inner-to-module-lifts the-struct_65)" -"(expand-context/inner-requires+provides the-struct_65)" -"(expand-context/inner-observer the-struct_65)" -"(expand-context/inner-for-serializable? the-struct_65)" +"(expand-context/inner-declared-submodule-names the-struct_32)" +"(expand-context/inner-lifts the-struct_32)" +"(expand-context/inner-lift-envs the-struct_32)" +"(expand-context/inner-module-lifts the-struct_32)" +"(expand-context/inner-require-lifts the-struct_32)" +"(expand-context/inner-to-module-lifts the-struct_32)" +"(expand-context/inner-requires+provides the-struct_32)" +"(expand-context/inner-observer the-struct_32)" +"(expand-context/inner-for-serializable? the-struct_32)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_65)))" +" the-struct_32)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_65)))))" +" the-struct_32)))))" "(expand-context/outer1.1" " inner72_0" " post-expansion-scope66_0" @@ -41221,21 +41348,21 @@ static const char *startup_source = "(expand-context-context ctx_50)))))" "(define-values" "(1/syntax-local-introduce)" -"(lambda(s_399)" +"(lambda(s_400)" "(begin" " 'syntax-local-introduce" "(let-values()" "(let-values()" "(let-values((()" "(begin" -"(if(syntax?$1 s_399)" +"(if(syntax?$1 s_400)" "(void)" -" (let-values () (raise-argument-error 'syntax-local-introduce \"syntax?\" s_399)))" +" (let-values () (raise-argument-error 'syntax-local-introduce \"syntax?\" s_400)))" "(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_399 ctx_51))))))))" +"(flip-introduction-scopes s_400 ctx_51))))))))" "(define-values" "(1/syntax-local-identifier-as-binding)" "(lambda(id_77)" @@ -41308,7 +41435,7 @@ static const char *startup_source = " mode_13))))))))))))))" "(case-lambda" "((s_43)(core77_0 s_43 #f #f))" -"((s_180 mode74_1)(core77_0 s_180 mode74_1 #t)))))))))))" +"((s_181 mode74_1)(core77_0 s_181 mode74_1 #t)))))))))))" "(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)))))" @@ -41320,7 +41447,7 @@ static const char *startup_source = " 'make-syntax-delta-introducer9" "(let-values(((ext-s_0) ext-s7_0))" "(let-values(((base-s_0) base-s8_0))" -"(let-values(((phase_112)(if phase6_1 phase5_1(1/syntax-local-phase-level))))" +"(let-values(((phase_114)(if phase6_1 phase5_1(1/syntax-local-phase-level))))" "(let-values()" "(let-values()" "(let-values()" @@ -41349,27 +41476,27 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(if(phase? phase_112)" +"(if(phase? phase_114)" "(void)" "(let-values()" "(raise-argument-error" " 'make-syntax-delta-introducer" " phase?-string" -" phase_112)))" +" phase_114)))" "(values))))" -"(let-values(((ext-scs_0)(syntax-scope-set ext-s_0 phase_112)))" +"(let-values(((ext-scs_0)(syntax-scope-set ext-s_0 phase_114)))" "(let-values(((base-scs_0)" "(syntax-scope-set" -"(let-values(((or-part_96) base-s_0))" -"(if or-part_96 or-part_96 empty-syntax))" -" phase_112)))" +"(let-values(((or-part_276) base-s_0))" +"(if or-part_276 or-part_276 empty-syntax))" +" phase_114)))" "(let-values(((use-base-scs_0)" "(if(subset? base-scs_0 ext-scs_0)" " base-scs_0" "(let-values(((or-part_32)" "(if(identifier? base-s_0)" "(let-values(((base-s80_0) base-s_0)" -"((phase81_0) phase_112)" +"((phase81_0) phase_114)" "((temp82_1) #t))" "(resolve40.1" " #f" @@ -41392,7 +41519,7 @@ static const char *startup_source = "(lambda(s85_0 mode83_0 mode84_0)" "(begin" " 'core86" -"(let-values(((s_400) s85_0))" +"(let-values(((s_401) s85_0))" "(let-values(((mode_14)" "(if mode84_0 mode83_0 'add)))" "(let-values()" @@ -41400,13 +41527,13 @@ static const char *startup_source = "(let-values(((tmp_34) mode_14))" "(if(equal? tmp_34 'add)" "(let-values()" -"(add-scopes s_400 delta-scs_0))" +"(add-scopes s_401 delta-scs_0))" "(if(equal? tmp_34 'remove)" "(let-values()" -"(remove-scopes s_400 delta-scs_0))" +"(remove-scopes s_401 delta-scs_0))" "(if(equal? tmp_34 'flip)" "(let-values()" -"(flip-scopes s_400 delta-scs_0))" +"(flip-scopes s_401 delta-scs_0))" "(let-values()" "(raise-argument-error" " 'syntax-introducer" @@ -41414,7 +41541,7 @@ static const char *startup_source = " mode_14))))))))))))))" "(case-lambda" "((s_15)(core86_0 s_15 #f #f))" -"((s_401 mode83_1)(core86_0 s_401 mode83_1 #t))))))))))))))))))))))" +"((s_402 mode83_1)(core86_0 s_402 mode83_1 #t))))))))))))))))))))))" "(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)))))" @@ -41452,13 +41579,13 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(if((lambda(x_76)" -"(let-values(((or-part_207)(not x_76)))" +"(if((lambda(x_79)" +"(let-values(((or-part_207)(not x_79)))" "(if or-part_207" " or-part_207" -"((lambda(p_49)" -"(if(procedure? p_49)(procedure-arity-includes? p_49 0) #f))" -" x_76))))" +"((lambda(p_26)" +"(if(procedure? p_26)(procedure-arity-includes? p_26 0) #f))" +" x_79))))" " failure-thunk_0)" "(void)" "(let-values()" @@ -41522,15 +41649,15 @@ static const char *startup_source = "(let-values()(call-expand-observe obs_33 'local-value id_79)))" "(void)))" "(values))))" -"(let-values(((phase_113)(expand-context-phase ctx_55)))" +"(let-values(((phase_7)(expand-context-phase ctx_55)))" "((letrec-values(((loop_96)" "(lambda(id_80)" "(begin" " 'loop" -"(let-values(((b_79)" +"(let-values(((b_80)" "(if immediate?_1" "(let-values(((id92_0) id_80)" -"((phase93_0) phase_113)" +"((phase93_0) phase_7)" "((temp94_1) #t))" "(resolve+shift30.1" " #f" @@ -41547,7 +41674,7 @@ static const char *startup_source = " phase93_0))" "(resolve+shift/extra-inspector" " id_80" -" phase_113" +" phase_7" "(expand-context-namespace ctx_55)))))" "(begin" "(let-values(((obs_8)(expand-context-observer ctx_55)))" @@ -41556,7 +41683,7 @@ static const char *startup_source = "(let-values()" "(call-expand-observe obs_8 'resolve id_80)))" "(void)))" -"(if(not b_79)" +"(if(not b_80)" "(let-values()" "(begin" "(let-values(((obs_34)" @@ -41574,7 +41701,7 @@ static const char *startup_source = " (error who_17 \"unbound identifier: ~v\" id_80))))" "(let-values()" "(let-values(((v_37 primitive?_7 insp_17 protected?_8)" -"(let-values(((b95_0) b_79)" +"(let-values(((b95_0) b_80)" "((ctx96_0) ctx_55)" "((id97_1) id_80)" "((temp98_2) #t))" @@ -41586,8 +41713,8 @@ static const char *startup_source = " b95_0" " ctx96_0" " id97_1))))" -"(if(let-values(((or-part_276)(variable? v_37)))" -"(if or-part_276 or-part_276(core-form? v_37)))" +"(if(let-values(((or-part_277)(variable? v_37)))" +"(if or-part_277 or-part_277(core-form? v_37)))" "(let-values()" "(begin" "(let-values(((obs_35)" @@ -41688,11 +41815,11 @@ static const char *startup_source = "((id_88 failure-thunk27_1)(syntax-local-value/immediate32_0 id_88 failure-thunk27_1 #f #t #f)))))" "(define-values" "(do-lift-values-expression)" -"(lambda(who_18 n_28 s_192)" +"(lambda(who_18 n_28 s_193)" "(begin" "(let-values((()" "(begin" -" (if (syntax?$1 s_192) (void) (let-values () (raise-argument-error who_18 \"syntax?\" s_192)))" +" (if (syntax?$1 s_193) (void) (let-values () (raise-argument-error who_18 \"syntax?\" s_193)))" "(values))))" "(let-values((()" "(begin" @@ -41714,15 +41841,15 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-range start_40 end_30 inc_24)))" -"((letrec-values(((for-loop_258)" -"(lambda(fold-var_255 pos_106)" +"((letrec-values(((for-loop_260)" +"(lambda(fold-var_258 pos_106)" "(begin" " 'for-loop" "(if(< pos_106 end_30)" "(let-values()" -"(let-values(((fold-var_256)" -"(let-values(((fold-var_257) fold-var_255))" -"(let-values(((fold-var_258)" +"(let-values(((fold-var_259)" +"(let-values(((fold-var_260) fold-var_258))" +"(let-values(((fold-var_261)" "(let-values()" "(cons" "(let-values()" @@ -41746,33 +41873,33 @@ static const char *startup_source = " name_25)" "(new-scope" " 'macro)))))" -" fold-var_257))))" -"(values fold-var_258)))))" +" fold-var_260))))" +"(values fold-var_261)))))" "(if(not #f)" -"(for-loop_258 fold-var_256(+ pos_106 inc_24))" -" fold-var_256)))" -" fold-var_255)))))" -" for-loop_258)" +"(for-loop_260 fold-var_259(+ pos_106 inc_24))" +" fold-var_259)))" +" fold-var_258)))))" +" for-loop_260)" " null" " start_40))))))" "(begin" "(let-values(((obs_37)(expand-context-observer ctx_56)))" "(if obs_37" -"(let-values()(let-values()(call-expand-observe obs_37 'lift-expr ids_26 s_192)))" +"(let-values()(let-values()(call-expand-observe obs_37 'lift-expr ids_26 s_193)))" "(void)))" "(map2" "(lambda(id_89)(flip-introduction-scopes id_89 ctx_56))" "(add-lifted!" " lifts_0" " ids_26" -"(flip-introduction-scopes s_192 ctx_56)" +"(flip-introduction-scopes s_193 ctx_56)" "(expand-context-phase ctx_56))))))))))))))" "(define-values" "(1/syntax-local-lift-expression)" -"(lambda(s_402)" +"(lambda(s_403)" "(begin" " 'syntax-local-lift-expression" -"(let-values()(let-values()(car(do-lift-values-expression 'syntax-local-lift-expression 1 s_402)))))))" +"(let-values()(let-values()(car(do-lift-values-expression 'syntax-local-lift-expression 1 s_403)))))))" "(define-values" "(1/syntax-local-lift-values-expression)" "(lambda(n_29 s_312)" @@ -41792,23 +41919,23 @@ static const char *startup_source = "(root-expand-context-lift-key ctx_57)))))))" "(define-values" "(1/syntax-local-lift-module)" -"(lambda(s_403)" +"(lambda(s_404)" "(begin" " 'syntax-local-lift-module" "(let-values()" "(let-values()" "(let-values((()" "(begin" -"(if(syntax?$1 s_403)" +"(if(syntax?$1 s_404)" "(void)" -" (let-values () (raise-argument-error 'syntax-local-lift-module \"syntax?\" s_403)))" +" (let-values () (raise-argument-error 'syntax-local-lift-module \"syntax?\" s_404)))" "(values))))" "(let-values(((ctx_58)" "(let-values(((who115_0) 'syntax-local-lift-module))" "(get-current-expand-context17.1 #f #f who115_0 #t))))" -"(let-values(((phase_114)(expand-context-phase ctx_58)))" +"(let-values(((phase_115)(expand-context-phase ctx_58)))" "(begin" -"(let-values(((tmp_35)(core-form-sym s_403 phase_114)))" +"(let-values(((tmp_35)(core-form-sym s_404 phase_115)))" "(if(if(equal? tmp_35 'module) #t(equal? tmp_35 'module*))" "(let-values()" "(let-values(((lifts_8)(expand-context-module-lifts ctx_58)))" @@ -41820,13 +41947,13 @@ static const char *startup_source = " 'syntax-local-lift-module" " \"not currently transforming within a module declaration or top level\"" " \"form to lift\"" -" s_403)))" -"(add-lifted-module! lifts_8(flip-introduction-scopes s_403 ctx_58) phase_114))))" +" s_404)))" +"(add-lifted-module! lifts_8(flip-introduction-scopes s_404 ctx_58) phase_115))))" "(let-values()" -" (raise-arguments-error 'syntax-local-lift-module \"not a module form\" \"given form\" s_403))))" +" (raise-arguments-error 'syntax-local-lift-module \"not a module form\" \"given form\" s_404))))" "(let-values(((obs_38)(expand-context-observer ctx_58)))" "(if obs_38" -"(let-values()(let-values()(call-expand-observe obs_38 'lift-statement s_403)))" +"(let-values()(let-values()(call-expand-observe obs_38 'lift-statement s_404)))" "(void))))))))))))" "(define-values" "(do-local-lift-to-module54.1)" @@ -41849,7 +41976,7 @@ static const char *startup_source = "(begin" " 'do-local-lift-to-module54" "(let-values(((who_19) who52_0))" -"(let-values(((s_404) s53_1))" +"(let-values(((s_405) 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)))" @@ -41859,21 +41986,21 @@ static const char *startup_source = "(let-values(((pre-wrap_0)" "(if pre-wrap49_0" " pre-wrap40_0" -"(lambda(s_205 phase_115 lift-ctx_1)(begin 'pre-wrap s_205)))))" +"(lambda(s_206 phase_116 lift-ctx_1)(begin 'pre-wrap s_206)))))" "(let-values(((shift-wrap_0)" "(if shift-wrap50_0" " shift-wrap41_0" -"(lambda(s_405 phase_116 lift-ctx_2)(begin 'shift-wrap s_405)))))" +"(lambda(s_406 phase_117 lift-ctx_2)(begin 'shift-wrap s_406)))))" "(let-values(((post-wrap_0)" "(if post-wrap51_0" " post-wrap42_0" -"(lambda(s_317 phase_117 lift-ctx_3)(begin 'post-wrap s_317)))))" +"(lambda(s_318 phase_118 lift-ctx_3)(begin 'post-wrap s_318)))))" "(let-values()" "(let-values((()" "(begin" -"(if(syntax?$1 s_404)" +"(if(syntax?$1 s_405)" "(void)" -" (let-values () (raise-argument-error who_19 \"syntax?\" s_404)))" +" (let-values () (raise-argument-error who_19 \"syntax?\" s_405)))" "(values))))" "(let-values((()(begin(more-checks_0)(values))))" "(let-values(((ctx_59)" @@ -41889,15 +42016,15 @@ static const char *startup_source = " who_19" " no-target-msg_0" " \"form to lift\"" -" s_404)))" +" s_405)))" "(values))))" -"(let-values(((phase_118)(expand-context-phase ctx_59)))" +"(let-values(((phase_119)(expand-context-phase ctx_59)))" "(let-values(((wrt-phase_1)(get-wrt-phase_0 lift-ctx_4)))" "(let-values(((added-s_0)" -"(if intro?_0(flip-introduction-scopes s_404 ctx_59) s_404)))" -"(let-values(((pre-s_0)(pre-wrap_0 added-s_0 phase_118 lift-ctx_4)))" +"(if intro?_0(flip-introduction-scopes s_405 ctx_59) s_405)))" +"(let-values(((pre-s_0)(pre-wrap_0 added-s_0 phase_119 lift-ctx_4)))" "(let-values(((shift-s_0)" -"(let-values(((start_41) phase_118)" +"(let-values(((start_41) phase_119)" "((end_31) wrt-phase_1)" "((inc_25) -1))" "(begin" @@ -41906,32 +42033,32 @@ static const char *startup_source = "(void)" "(let-values()" "(check-range start_41 end_31 inc_25)))" -"((letrec-values(((for-loop_203)" +"((letrec-values(((for-loop_204)" "(lambda(s_97 pos_24)" "(begin" " 'for-loop" "(if(> pos_24 end_31)" -"(let-values(((phase_53)" +"(let-values(((phase_55)" " pos_24))" -"(let-values(((s_406)" "(let-values(((s_407)" -" s_97))" "(let-values(((s_408)" +" s_97))" +"(let-values(((s_409)" "(let-values()" "(shift-wrap_0" -" s_407" +" s_408" "(sub1" -" phase_53)" +" phase_55)" " lift-ctx_4))))" "(values" -" s_408)))))" +" s_409)))))" "(if(not #f)" -"(for-loop_203" -" s_406" +"(for-loop_204" +" s_407" "(+ pos_24 inc_25))" -" s_406)))" +" s_407)))" " s_97)))))" -" for-loop_203)" +" for-loop_204)" " pre-s_0" " start_41)))))" "(let-values(((post-s_1)" @@ -41962,11 +42089,11 @@ static const char *startup_source = "((require-lift-context-wrt-phase124_0) require-lift-context-wrt-phase)" "((add-lifted-require!125_0) add-lifted-require!)" "((temp126_1)" -"(lambda(s_409 phase_119 require-lift-ctx_0)" -"(require-spec-shift-for-syntax s_409)))" +"(lambda(s_410 phase_120 require-lift-ctx_0)" +"(require-spec-shift-for-syntax s_410)))" "((temp127_1)" -"(lambda(s_115 phase_120 require-lift-ctx_1)" -"(wrap-form '#%require(add-scope s_115 sc_33) phase_120))))" +"(lambda(s_115 phase_121 require-lift-ctx_1)" +"(wrap-form '#%require(add-scope s_115 sc_33) phase_121))))" "(do-local-lift-to-module54.1" " add-lifted-require!125_0" " expand-context-require-lifts123_0" @@ -42013,10 +42140,10 @@ static const char *startup_source = "((to-module-lift-context-wrt-phase133_0) to-module-lift-context-wrt-phase)" "((add-lifted-to-module-provide!134_0) add-lifted-to-module-provide!)" "((temp135_0)" -"(lambda(s_410 phase_121 to-module-lift-ctx_0)(wrap-form 'for-syntax s_410 #f)))" +"(lambda(s_411 phase_122 to-module-lift-ctx_0)(wrap-form 'for-syntax s_411 #f)))" "((temp136_0)" -"(lambda(s_411 phase_122 to-module-lift-ctx_1)" -"(wrap-form '#%provide s_411 phase_122))))" +"(lambda(s_412 phase_123 to-module-lift-ctx_1)" +"(wrap-form '#%provide s_412 phase_123))))" "(do-local-lift-to-module54.1" " add-lifted-to-module-provide!134_0" " expand-context-to-module-lifts132_0" @@ -42040,27 +42167,27 @@ static const char *startup_source = "(void)))))))))" "(define-values" "(1/syntax-local-lift-module-end-declaration)" -"(lambda(s_412)" +"(lambda(s_413)" "(begin" " 'syntax-local-lift-module-end-declaration" "(let-values()" "(let-values()" "(let-values(((ctx_61 also-s_0)" "(let-values(((who138_0) 'syntax-local-lift-module-end-declaration)" -"((s139_0) s_412)" +"((s139_0) s_413)" "((temp140_2)" " \"not currently transforming an expression within a module declaration\")" "((expand-context-to-module-lifts141_0) expand-context-to-module-lifts)" "((temp142_0)(lambda(lift-ctx_5) 0))" "((add-lifted-to-module-end!143_0) add-lifted-to-module-end!)" "((temp144_1)" -"(lambda(orig-s_32 phase_123 to-module-lift-ctx_2)" +"(lambda(orig-s_32 phase_124 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_123)" +"(wrap-form '#%expression orig-s_32 phase_124)" " orig-s_32)))" "((temp145_2)" -"(lambda(s_125 phase_124 to-module-lift-ctx_3)" -"(wrap-form 'begin-for-syntax s_125 phase_124))))" +"(lambda(s_125 phase_125 to-module-lift-ctx_3)" +"(wrap-form 'begin-for-syntax s_125 phase_125))))" "(do-local-lift-to-module54.1" " add-lifted-to-module-end!143_0" " expand-context-to-module-lifts141_0" @@ -42080,15 +42207,15 @@ static const char *startup_source = " s139_0))))" "(let-values(((obs_26)(expand-context-observer ctx_61)))" "(if obs_26" -"(let-values()(let-values()(call-expand-observe obs_26 'lift-statement s_412)))" +"(let-values()(let-values()(call-expand-observe obs_26 'lift-statement s_413)))" "(void)))))))))" "(define-values" "(wrap-form)" -"(lambda(sym_66 s_126 phase_125)" +"(lambda(sym_66 s_126 phase_126)" "(begin" "(datum->syntax$1" " #f" -"(list(datum->syntax$1(if phase_125(syntax-shift-phase-level$1 core-stx phase_125) #f) sym_66) s_126)))))" +"(list(datum->syntax$1(if phase_126(syntax-shift-phase-level$1 core-stx phase_126) #f) sym_66) s_126)))))" "(define-values" "(1/syntax-local-module-defined-identifiers)" "(lambda()" @@ -42164,29 +42291,29 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-hash ht_139)))" -"((letrec-values(((for-loop_259)" -"(lambda(fold-var_204 i_167)" +"((letrec-values(((for-loop_261)" +"(lambda(fold-var_206 i_167)" "(begin" " 'for-loop" "(if i_167" -"(let-values(((phase_126 ids_27)" +"(let-values(((phase_127 ids_27)" "(hash-iterate-key+value ht_139 i_167)))" -"(let-values(((fold-var_259)" -"(let-values(((fold-var_260) fold-var_204))" -"(let-values(((fold-var_261)" +"(let-values(((fold-var_262)" +"(let-values(((fold-var_263) fold-var_206))" +"(let-values(((fold-var_264)" "(let-values()" "(cons" "(let-values()" -"(cons phase_126 ids_27))" -" fold-var_260))))" -"(values fold-var_261)))))" +"(cons phase_127 ids_27))" +" fold-var_263))))" +"(values fold-var_264)))))" "(if(not #f)" -"(for-loop_259" -" fold-var_259" +"(for-loop_261" +" fold-var_262" "(hash-iterate-next ht_139 i_167))" -" fold-var_259)))" -" fold-var_204)))))" -" for-loop_259)" +" fold-var_262)))" +" fold-var_206)))))" +" for-loop_261)" " null" "(hash-iterate-first ht_139)))))" " #f)))))))))))))" @@ -42194,15 +42321,15 @@ static const char *startup_source = "(requireds->phase-ht)" "(lambda(requireds_1)" "(begin" -"(let-values(((lst_299) requireds_1))" +"(let-values(((lst_302) requireds_1))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_299)))" -"((letrec-values(((for-loop_260)" -"(lambda(ht_140 lst_300)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_302)))" +"((letrec-values(((for-loop_262)" +"(lambda(ht_140 lst_303)" "(begin" " 'for-loop" -"(if(pair? lst_300)" -"(let-values(((r_42)(unsafe-car lst_300))((rest_168)(unsafe-cdr lst_300)))" +"(if(pair? lst_303)" +"(let-values(((r_42)(unsafe-car lst_303))((rest_169)(unsafe-cdr lst_303)))" "(let-values(((ht_141)" "(let-values(((ht_142) ht_140))" "(let-values(((ht_143)" @@ -42213,11 +42340,11 @@ static const char *startup_source = "(lambda(l_68)(cons(required-id r_42) l_68))" " null))))" "(values ht_143)))))" -"(if(not #f)(for-loop_260 ht_141 rest_168) ht_141)))" +"(if(not #f)(for-loop_262 ht_141 rest_169) ht_141)))" " ht_140)))))" -" for-loop_260)" +" for-loop_262)" "(hasheqv)" -" lst_299))))))" +" lst_302))))))" "(define-values" "(1/syntax-local-module-exports)" "(lambda(mod-path_9)" @@ -42227,9 +42354,9 @@ static const char *startup_source = "(let-values()" "(let-values((()" "(begin" -"(if(let-values(((or-part_277)(1/module-path? mod-path_9)))" -"(if or-part_277" -" or-part_277" +"(if(let-values(((or-part_278)(1/module-path? mod-path_9)))" +"(if or-part_278" +" or-part_278" "(if(syntax?$1 mod-path_9)(1/module-path?(syntax->datum$1 mod-path_9)) #f)))" "(void)" "(let-values()" @@ -42263,21 +42390,21 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-hash ht_144)))" -"((letrec-values(((for-loop_261)" -"(lambda(fold-var_262 i_12)" +"((letrec-values(((for-loop_263)" +"(lambda(fold-var_265 i_12)" "(begin" " 'for-loop" "(if i_12" -"(let-values(((phase_127 syms_22)" +"(let-values(((phase_128 syms_22)" "(hash-iterate-key+value ht_144 i_12)))" -"(let-values(((fold-var_263)" -"(let-values(((fold-var_264) fold-var_262))" -"(let-values(((fold-var_265)" +"(let-values(((fold-var_266)" +"(let-values(((fold-var_267) fold-var_265))" +"(let-values(((fold-var_268)" "(let-values()" "(cons" "(let-values()" "(cons" -" phase_127" +" phase_128" "(reverse$1" "(let-values(((ht_145)" " syms_22))" @@ -42288,8 +42415,8 @@ static const char *startup_source = "(let-values()" "(check-in-hash-keys" " ht_145)))" -"((letrec-values(((for-loop_262)" -"(lambda(fold-var_266" +"((letrec-values(((for-loop_264)" +"(lambda(fold-var_269" " i_168)" "(begin" " 'for-loop" @@ -42298,37 +42425,37 @@ static const char *startup_source = "(hash-iterate-key" " ht_145" " i_168)))" -"(let-values(((fold-var_267)" -"(let-values(((fold-var_268)" -" fold-var_266))" -"(let-values(((fold-var_269)" +"(let-values(((fold-var_270)" +"(let-values(((fold-var_271)" +" fold-var_269))" +"(let-values(((fold-var_272)" "(let-values()" "(cons" "(let-values()" " sym_67)" -" fold-var_268))))" +" fold-var_271))))" "(values" -" fold-var_269)))))" +" fold-var_272)))))" "(if(not" " #f)" -"(for-loop_262" -" fold-var_267" +"(for-loop_264" +" fold-var_270" "(hash-iterate-next" " ht_145" " i_168))" -" fold-var_267)))" -" fold-var_266)))))" -" for-loop_262)" +" fold-var_270)))" +" fold-var_269)))))" +" for-loop_264)" " null" "(hash-iterate-first" " ht_145)))))))" -" fold-var_264))))" -"(values fold-var_265)))))" +" fold-var_267))))" +"(values fold-var_268)))))" "(if(not #f)" -"(for-loop_261 fold-var_263(hash-iterate-next ht_144 i_12))" -" fold-var_263)))" -" fold-var_262)))))" -" for-loop_261)" +"(for-loop_263 fold-var_266(hash-iterate-next ht_144 i_12))" +" fold-var_266)))" +" fold-var_265)))))" +" for-loop_263)" " null" "(hash-iterate-first ht_144))))))))))))))))" "(define-values" @@ -42348,28 +42475,28 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-hash ht_146)))" -"((letrec-values(((for-loop_263)" -"(lambda(fold-var_270 i_169)" +"((letrec-values(((for-loop_265)" +"(lambda(fold-var_273 i_169)" "(begin" " 'for-loop" "(if i_169" "(let-values(((name_61 kind_7)(hash-iterate-key+value ht_146 i_169)))" -"(let-values(((fold-var_271)" -"(let-values(((fold-var_272) fold-var_270))" -"(if(eq? kind_7 'module)" -"(let-values(((fold-var_273) fold-var_272))" "(let-values(((fold-var_274)" +"(let-values(((fold-var_275) fold-var_273))" +"(if(eq? kind_7 'module)" +"(let-values(((fold-var_276) fold-var_275))" +"(let-values(((fold-var_277)" "(let-values()" "(cons" "(let-values() name_61)" -" fold-var_273))))" -"(values fold-var_274)))" -" fold-var_272))))" +" fold-var_276))))" +"(values fold-var_277)))" +" fold-var_275))))" "(if(not #f)" -"(for-loop_263 fold-var_271(hash-iterate-next ht_146 i_169))" -" fold-var_271)))" -" fold-var_270)))))" -" for-loop_263)" +"(for-loop_265 fold-var_274(hash-iterate-next ht_146 i_169))" +" fold-var_274)))" +" fold-var_273)))))" +" for-loop_265)" " null" "(hash-iterate-first ht_146))))))))))))" "(define-values" @@ -42405,12 +42532,12 @@ static const char *startup_source = "(syntax-source-accessor)" "(lambda(who_0 srcloc-accessor_0)" "(begin" -"(lambda(s_179)" +"(lambda(s_180)" "(let-values((()" "(begin" -" (if (syntax?$1 s_179) (void) (let-values () (raise-argument-error who_0 \"syntax?\" s_179)))" +" (if (syntax?$1 s_180) (void) (let-values () (raise-argument-error who_0 \"syntax?\" s_180)))" "(values))))" -"(let-values(((srcloc_8)(syntax-srcloc s_179)))(if srcloc_8(srcloc-accessor_0 srcloc_8) #f)))))))" +"(let-values(((srcloc_8)(syntax-srcloc s_180)))(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))" @@ -42426,8 +42553,8 @@ static const char *startup_source = "(srcloc-vector?)" "(lambda(v_68)" "(begin" -"(if(let-values(((or-part_278)(not(vector-ref v_68 1))))" -"(if or-part_278 or-part_278(exact-positive-integer?(vector-ref v_68 1))))" +"(if(let-values(((or-part_279)(not(vector-ref v_68 1))))" +"(if or-part_279 or-part_279(exact-positive-integer?(vector-ref v_68 1))))" "(if(let-values(((or-part_27)(not(vector-ref v_68 2))))" "(if or-part_27 or-part_27(exact-nonnegative-integer?(vector-ref v_68 2))))" "(if(let-values(((or-part_10)(not(vector-ref v_68 3))))" @@ -42443,25 +42570,25 @@ static const char *startup_source = "(begin" "(if(srcloc? v_191)" "(let-values()" -"(let-values(((the-struct_66) empty-syntax))" -"(if(syntax?$1 the-struct_66)" +"(let-values(((the-struct_65) empty-syntax))" +"(if(syntax?$1 the-struct_65)" "(let-values(((srcloc1_2) v_191))" "(syntax1.1" -"(syntax-content the-struct_66)" -"(syntax-scopes the-struct_66)" -"(syntax-shifted-multi-scopes the-struct_66)" -"(syntax-scope-propagations+tamper the-struct_66)" -"(syntax-mpi-shifts the-struct_66)" +"(syntax-content the-struct_65)" +"(syntax-scopes the-struct_65)" +"(syntax-shifted-multi-scopes the-struct_65)" +"(syntax-scope-propagations+tamper the-struct_65)" +"(syntax-mpi-shifts the-struct_65)" " srcloc1_2" -"(syntax-props the-struct_66)" -"(syntax-inspector the-struct_66)))" -" (raise-argument-error 'struct-copy \"syntax?\" the-struct_66))))" +"(syntax-props the-struct_65)" +"(syntax-inspector the-struct_65)))" +" (raise-argument-error 'struct-copy \"syntax?\" the-struct_65))))" "(if(pair? v_191)" "(let-values()(to-srcloc-stx(list->vector v_191)))" "(if(vector? v_191)" "(let-values()" -"(let-values(((the-struct_67) empty-syntax))" -"(if(syntax?$1 the-struct_67)" +"(let-values(((the-struct_66) empty-syntax))" +"(if(syntax?$1 the-struct_66)" "(let-values(((srcloc2_1)" "(srcloc" "(vector-ref v_191 0)" @@ -42470,15 +42597,15 @@ static const char *startup_source = "(vector-ref v_191 3)" "(vector-ref v_191 4))))" "(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_66)" +"(syntax-scopes the-struct_66)" +"(syntax-shifted-multi-scopes the-struct_66)" +"(syntax-scope-propagations+tamper the-struct_66)" +"(syntax-mpi-shifts the-struct_66)" " srcloc2_1" -"(syntax-props the-struct_67)" -"(syntax-inspector the-struct_67)))" -" (raise-argument-error 'struct-copy \"syntax?\" the-struct_67))))" +"(syntax-props the-struct_66)" +"(syntax-inspector the-struct_66)))" +" (raise-argument-error 'struct-copy \"syntax?\" the-struct_66))))" "(let-values() v_191)))))))" "(define-values" "(1/syntax-e)" @@ -42492,14 +42619,14 @@ static const char *startup_source = "(syntax-e$1 s_0)))))))" "(define-values" "(1/syntax->datum)" -"(lambda(s_179)" +"(lambda(s_180)" "(begin" " 'syntax->datum" "(let-values()" "(let-values()" "(begin" -" (if (syntax?$1 s_179) (void) (let-values () (raise-argument-error 'syntax->datum \"syntax?\" s_179)))" -"(syntax->datum$1 s_179)))))))" +" (if (syntax?$1 s_180) (void) (let-values () (raise-argument-error 'syntax->datum \"syntax?\" s_180)))" +"(syntax->datum$1 s_180)))))))" "(define-values(maybe-syntax->datum)(lambda(s_70)(begin(if(syntax?$1 s_70)(syntax->datum$1 s_70) s_70))))" "(define-values" "(1/datum->syntax)" @@ -42516,15 +42643,15 @@ static const char *startup_source = "(let-values()" "(let-values()" "(begin" -"(if(let-values(((or-part_279)(not stx-c_4)))" -"(if or-part_279 or-part_279(syntax?$1 stx-c_4)))" +"(if(let-values(((or-part_280)(not stx-c_4)))" +"(if or-part_280 or-part_280(syntax?$1 stx-c_4)))" "(void)" " (let-values () (raise-argument-error 'datum->syntax \"(or #f syntax?)\" stx-c_4)))" -"(if(let-values(((or-part_280)(not stx-l_2)))" -"(if or-part_280" -" or-part_280" -"(let-values(((or-part_281)(syntax?$1 stx-l_2)))" -"(if or-part_281 or-part_281(encoded-srcloc? stx-l_2)))))" +"(if(let-values(((or-part_281)(not stx-l_2)))" +"(if or-part_281" +" or-part_281" +"(let-values(((or-part_282)(syntax?$1 stx-l_2)))" +"(if or-part_282 or-part_282(encoded-srcloc? stx-l_2)))))" "(void)" "(let-values()" "(raise-argument-error" @@ -42542,16 +42669,16 @@ 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_282)(not stx-p_1)))" -"(if or-part_282 or-part_282(syntax?$1 stx-p_1)))" +"(if(let-values(((or-part_283)(not stx-p_1)))" +"(if or-part_283 or-part_283(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_170(to-srcloc-stx stx-l_2) stx-p_1))))))))))))))" "(case-lambda" "((stx-c_5 s_295)(begin 'datum->syntax(datum->syntax9_0 stx-c_5 s_295 #f #f #f #f #f #f)))" -"((stx-c_6 s_413 stx-l_3 stx-p_2 ignored3_1)(datum->syntax9_0 stx-c_6 s_413 stx-l_3 stx-p_2 ignored3_1 #t #t #t))" +"((stx-c_6 s_414 stx-l_3 stx-p_2 ignored3_1)(datum->syntax9_0 stx-c_6 s_414 stx-l_3 stx-p_2 ignored3_1 #t #t #t))" "((stx-c_7 s_73 stx-l_4 stx-p2_1)(datum->syntax9_0 stx-c_7 s_73 stx-l_4 stx-p2_1 #f #t #t #f))" -"((stx-c_8 s_414 stx-l1_1)(datum->syntax9_0 stx-c_8 s_414 stx-l1_1 #f #f #t #f #f)))))" +"((stx-c_8 s_415 stx-l1_1)(datum->syntax9_0 stx-c_8 s_415 stx-l1_1 #f #f #t #f #f)))))" "(define-values" "(1/syntax->list)" "(lambda(s_5)" @@ -42579,8 +42706,8 @@ static const char *startup_source = "(begin" " 'bound-identifier=?15" "(let-values(((a_53) a13_0))" -"(let-values(((b_80) b14_0))" -"(let-values(((phase_128)(if phase12_1 phase11_0(1/syntax-local-phase-level))))" +"(let-values(((b_81) b14_0))" +"(let-values(((phase_129)(if phase12_1 phase11_0(1/syntax-local-phase-level))))" "(let-values()" "(let-values()" "(let-values()" @@ -42588,16 +42715,16 @@ static const char *startup_source = "(if(identifier? a_53)" "(void)" " (let-values () (raise-argument-error 'bound-identifier=? \"identifier?\" a_53)))" -"(if(identifier? b_80)" +"(if(identifier? b_81)" "(void)" -" (let-values () (raise-argument-error 'bound-identifier=? \"identifier?\" b_80)))" -"(if(phase? phase_128)" +" (let-values () (raise-argument-error 'bound-identifier=? \"identifier?\" b_81)))" +"(if(phase? phase_129)" "(void)" -"(let-values()(raise-argument-error 'bound-identifier=? phase?-string phase_128)))" -"(bound-identifier=?$1 a_53 b_80 phase_128))))))))))))" +"(let-values()(raise-argument-error 'bound-identifier=? phase?-string phase_129)))" +"(bound-identifier=?$1 a_53 b_81 phase_129))))))))))))" "(case-lambda" "((a_54 b_8)(begin 'bound-identifier=?(bound-identifier=?15_0 a_54 b_8 #f #f)))" -"((a_55 b_81 phase11_1)(bound-identifier=?15_0 a_55 b_81 phase11_1 #t)))))" +"((a_55 b_82 phase11_1)(bound-identifier=?15_0 a_55 b_82 phase11_1 #t)))))" "(define-values" "(1/free-identifier=?)" "(let-values(((free-identifier=?23_0)" @@ -42605,7 +42732,7 @@ static const char *startup_source = "(begin" " 'free-identifier=?23" "(let-values(((a_56) a21_0))" -"(let-values(((b_82) b22_0))" +"(let-values(((b_83) 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)))" "(let-values()" @@ -42615,23 +42742,23 @@ static const char *startup_source = "(if(identifier? a_56)" "(void)" " (let-values () (raise-argument-error 'free-identifier=? \"identifier?\" a_56)))" -"(if(identifier? b_82)" +"(if(identifier? b_83)" "(void)" -" (let-values () (raise-argument-error 'free-identifier=? \"identifier?\" b_82)))" +" (let-values () (raise-argument-error 'free-identifier=? \"identifier?\" b_83)))" "(if(phase? a-phase_1)" "(void)" "(let-values()(raise-argument-error 'free-identifier=? phase?-string a-phase_1)))" "(if(phase? b-phase_1)" "(void)" "(let-values()(raise-argument-error 'free-identifier=? phase?-string b-phase_1)))" -"(free-identifier=?$1 a_56 b_82 a-phase_1 b-phase_1)))))))))))))" +"(free-identifier=?$1 a_56 b_83 a-phase_1 b-phase_1)))))))))))))" "(case-lambda" -"((a_57 b_83)(begin 'free-identifier=?(free-identifier=?23_0 a_57 b_83 #f #f #f #f)))" -"((a_58 b_84 a-phase_2 b-phase18_1)(free-identifier=?23_0 a_58 b_84 a-phase_2 b-phase18_1 #t #t))" -"((a_59 b_85 a-phase17_1)(free-identifier=?23_0 a_59 b_85 a-phase17_1 #f #t #f)))))" +"((a_57 b_84)(begin 'free-identifier=?(free-identifier=?23_0 a_57 b_84 #f #f #f #f)))" +"((a_58 b_85 a-phase_2 b-phase18_1)(free-identifier=?23_0 a_58 b_85 a-phase_2 b-phase18_1 #t #t))" +"((a_59 b_86 a-phase17_1)(free-identifier=?23_0 a_59 b_86 a-phase17_1 #f #t #f)))))" "(define-values" "(1/free-transformer-identifier=?)" -"(lambda(a_60 b_86)" +"(lambda(a_60 b_87)" "(begin" " 'free-transformer-identifier=?" "(let-values()" @@ -42644,15 +42771,15 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(if(identifier? b_86)" +"(if(identifier? b_87)" "(void)" -" (let-values () (raise-argument-error 'free-transformer-identifier=? \"identifier?\" b_86)))" +" (let-values () (raise-argument-error 'free-transformer-identifier=? \"identifier?\" b_87)))" "(values))))" -"(let-values(((phase_129)(add1(1/syntax-local-phase-level))))" -"(free-identifier=?$1 a_60 b_86 phase_129 phase_129)))))))))" +"(let-values(((phase_130)(add1(1/syntax-local-phase-level))))" +"(free-identifier=?$1 a_60 b_87 phase_130 phase_130)))))))))" "(define-values" "(1/free-template-identifier=?)" -"(lambda(a_9 b_87)" +"(lambda(a_9 b_88)" "(begin" " 'free-template-identifier=?" "(let-values()" @@ -42665,15 +42792,15 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(if(identifier? b_87)" +"(if(identifier? b_88)" "(void)" -" (let-values () (raise-argument-error 'free-template-identifier=? \"identifier?\" b_87)))" +" (let-values () (raise-argument-error 'free-template-identifier=? \"identifier?\" b_88)))" "(values))))" -"(let-values(((phase_130)(sub1(1/syntax-local-phase-level))))" -"(free-identifier=?$1 a_9 b_87 phase_130 phase_130)))))))))" +"(let-values(((phase_131)(sub1(1/syntax-local-phase-level))))" +"(free-identifier=?$1 a_9 b_88 phase_131 phase_131)))))))))" "(define-values" "(1/free-label-identifier=?)" -"(lambda(a_61 b_88)" +"(lambda(a_61 b_89)" "(begin" " 'free-label-identifier=?" "(let-values()" @@ -42682,10 +42809,10 @@ static const char *startup_source = "(if(identifier? a_61)" "(void)" " (let-values () (raise-argument-error 'free-label-identifier=? \"identifier?\" a_61)))" -"(if(identifier? b_88)" +"(if(identifier? b_89)" "(void)" -" (let-values () (raise-argument-error 'free-label-identifier=? \"identifier?\" b_88)))" -"(free-identifier=?$1 a_61 b_88 #f #f)))))))" +" (let-values () (raise-argument-error 'free-label-identifier=? \"identifier?\" b_89)))" +"(free-identifier=?$1 a_61 b_89 #f #f)))))))" "(define-values" "(1/identifier-binding)" "(let-values(((identifier-binding30_0)" @@ -42693,7 +42820,7 @@ static const char *startup_source = "(begin" " 'identifier-binding30" "(let-values(((id_93) id29_1))" -"(let-values(((phase_34)(if phase27_0 phase25_1(1/syntax-local-phase-level))))" +"(let-values(((phase_36)(if phase27_0 phase25_1(1/syntax-local-phase-level))))" "(let-values(((top-level-symbol?_1)(if top-level-symbol?28_0 top-level-symbol?26_0 #f)))" "(let-values()" "(let-values()" @@ -42702,13 +42829,13 @@ static const char *startup_source = "(if(identifier? id_93)" "(void)" " (let-values () (raise-argument-error 'identifier-binding \"identifier?\" id_93)))" -"(if(phase? phase_34)" +"(if(phase? phase_36)" "(void)" -"(let-values()(raise-argument-error 'identifier-binding phase?-string phase_34)))" -"(identifier-binding$1 id_93 phase_34 top-level-symbol?_1))))))))))))" +"(let-values()(raise-argument-error 'identifier-binding phase?-string phase_36)))" +"(identifier-binding$1 id_93 phase_36 top-level-symbol?_1))))))))))))" "(case-lambda" "((id_94)(begin 'identifier-binding(identifier-binding30_0 id_94 #f #f #f #f)))" -"((id_95 phase_131 top-level-symbol?26_1)(identifier-binding30_0 id_95 phase_131 top-level-symbol?26_1 #t #t))" +"((id_95 phase_132 top-level-symbol?26_1)(identifier-binding30_0 id_95 phase_132 top-level-symbol?26_1 #t #t))" "((id_96 phase25_2)(identifier-binding30_0 id_96 phase25_2 #f #t #f)))))" "(define-values" "(1/identifier-transformer-binding)" @@ -42717,7 +42844,7 @@ static const char *startup_source = "(begin" " 'identifier-transformer-binding35" "(let-values(((id_97) id34_1))" -"(let-values(((phase_132)(if phase33_1 phase32_1(1/syntax-local-phase-level))))" +"(let-values(((phase_133)(if phase33_1 phase32_1(1/syntax-local-phase-level))))" "(let-values()" "(let-values()" "(let-values()" @@ -42726,7 +42853,7 @@ static const char *startup_source = "(void)" "(let-values()" " (raise-argument-error 'identifier-transformer-binding \"identifier?\" id_97)))" -"(identifier-binding$1 id_97(if phase_132(add1 phase_132) #f))))))))))))" +"(identifier-binding$1 id_97(if phase_133(add1 phase_133) #f))))))))))))" "(case-lambda" "((id_98)(begin 'identifier-transformer-binding(identifier-transformer-binding35_0 id_98 #f #f)))" "((id_99 phase32_2)(identifier-transformer-binding35_0 id_99 phase32_2 #t)))))" @@ -42761,7 +42888,7 @@ static const char *startup_source = "(begin" " 'identifier-binding-symbol40" "(let-values(((id_101) id39_0))" -"(let-values(((phase_133)(if phase38_0 phase37_2(1/syntax-local-phase-level))))" +"(let-values(((phase_134)(if phase38_0 phase37_2(1/syntax-local-phase-level))))" "(let-values()" "(let-values()" "(let-values()" @@ -42770,11 +42897,11 @@ static const char *startup_source = "(void)" "(let-values()" " (raise-argument-error 'identifier-binding-symbol \"identifier?\" id_101)))" -"(if(phase? phase_133)" +"(if(phase? phase_134)" "(void)" "(let-values()" -"(raise-argument-error 'identifier-binding-symbol phase?-string phase_133)))" -"(identifier-binding-symbol$1 id_101 phase_133)))))))))))" +"(raise-argument-error 'identifier-binding-symbol phase?-string phase_134)))" +"(identifier-binding-symbol$1 id_101 phase_134)))))))))))" "(case-lambda" "((id_102)(begin 'identifier-binding-symbol(identifier-binding-symbol40_0 id_102 #f #f)))" "((id_103 phase37_3)(identifier-binding-symbol40_0 id_103 phase37_3 #t)))))" @@ -42811,37 +42938,37 @@ static const char *startup_source = "(lambda(s51_1 phase47_2 all-bindings?48_0 phase49_1 all-bindings?50_0)" "(begin" " 'syntax-debug-info52" -"(let-values(((s_415) s51_1))" -"(let-values(((phase_134)(if phase49_1 phase47_2(1/syntax-local-phase-level))))" +"(let-values(((s_416) s51_1))" +"(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)))" "(let-values()" "(let-values()" "(let-values()" "(begin" -"(if(syntax?$1 s_415)" +"(if(syntax?$1 s_416)" "(void)" -" (let-values () (raise-argument-error 'syntax-debug-info \"syntax?\" s_415)))" -"(if(phase? phase_134)" +" (let-values () (raise-argument-error 'syntax-debug-info \"syntax?\" s_416)))" +"(if(phase? phase_135)" "(void)" -"(let-values()(raise-argument-error 'syntax-debug-info phase?-string phase_134)))" -"(syntax-debug-info$1 s_415 phase_134 all-bindings?_1))))))))))))" +"(let-values()(raise-argument-error 'syntax-debug-info phase?-string phase_135)))" +"(syntax-debug-info$1 s_416 phase_135 all-bindings?_1))))))))))))" "(case-lambda" -"((s_416)(begin 'syntax-debug-info(syntax-debug-info52_0 s_416 #f #f #f #f)))" -"((s_86 phase_97 all-bindings?48_1)(syntax-debug-info52_0 s_86 phase_97 all-bindings?48_1 #t #t))" +"((s_417)(begin 'syntax-debug-info(syntax-debug-info52_0 s_417 #f #f #f #f)))" +"((s_86 phase_99 all-bindings?48_1)(syntax-debug-info52_0 s_86 phase_99 all-bindings?48_1 #t #t))" "((s_47 phase47_3)(syntax-debug-info52_0 s_47 phase47_3 #f #t #f)))))" "(define-values" "(1/syntax-shift-phase-level)" -"(lambda(s_87 phase_21)" +"(lambda(s_87 phase_23)" "(begin" " 'syntax-shift-phase-level" "(let-values()" "(let-values()" "(begin" " (if (syntax?$1 s_87) (void) (let-values () (raise-argument-error 'syntax-shift-phase-level \"syntax?\" s_87)))" -"(if(phase? phase_21)" +"(if(phase? phase_23)" "(void)" -"(let-values()(raise-argument-error 'syntax-shift-phase-level phase?-string phase_21)))" -"(syntax-shift-phase-level$1 s_87 phase_21)))))))" +"(let-values()(raise-argument-error 'syntax-shift-phase-level phase?-string phase_23)))" +"(syntax-shift-phase-level$1 s_87 phase_23)))))))" "(define-values" "(1/syntax-track-origin)" "(lambda(new-stx_8 old-stx_4 id_107)" @@ -42971,17 +43098,17 @@ static const char *startup_source = "(void)" " (let-values () (raise-argument-error who_20 \"namespace?\" dest-namespace_2)))" "(values))))" -"(let-values(((phase_128)(namespace-phase src-namespace_6)))" +"(let-values(((phase_129)(namespace-phase src-namespace_6)))" "(let-values((()" "(begin" -"(if(eqv? phase_128(namespace-phase dest-namespace_2))" +"(if(eqv? phase_129(namespace-phase dest-namespace_2))" "(void)" "(let-values()" "(raise-arguments-error" " who_20" " \"source and destination namespace phases do not match\"" " \"source phase\"" -" phase_128" +" phase_129" " \"destination phase\"" "(namespace-phase dest-namespace_2))))" "(values))))" @@ -42991,7 +43118,7 @@ static const char *startup_source = "(begin" "((letrec-values(((loop_39)" "(lambda(mpi_48" -" phase_135" +" phase_136" " attach-instances?_1" " attach-phase_0)" "(begin" @@ -43010,7 +43137,7 @@ static const char *startup_source = " mpi_48)))))" "(let-values(((attach-this-instance?_0)" "(if attach-instances?_1" -"(eqv? phase_135 attach-phase_0)" +"(eqv? phase_136 attach-phase_0)" " #f)))" "(let-values(((m-ns_12)" "(hash-ref" @@ -43018,7 +43145,7 @@ static const char *startup_source = " todo_0" " mod-name_19" " '#hasheqv())" -" phase_135" +" phase_136" " missing_0)))" "(if(let-values(((or-part_246)" "(eq? missing_0 m-ns_12)))" @@ -43044,9 +43171,9 @@ static const char *startup_source = "(if(if(module-cross-phase-persistent?" " m_20)" "(if(not" -"(label-phase? phase_135))" +"(label-phase? phase_136))" "(not" -"(zero-phase? phase_135))" +"(zero-phase? phase_136))" " #f)" " #f)" "(let-values()" @@ -43091,7 +43218,7 @@ static const char *startup_source = "((mod-name33_0)" " mod-name_19)" "((phase34_1)" -" phase_135))" +" phase_136))" "(namespace->module-namespace82.1" " #f" " #f" @@ -43120,7 +43247,7 @@ static const char *startup_source = "((mod-name36_0)" " mod-name_19)" "((phase37_4)" -" phase_135))" +" phase_136))" "(namespace->module-namespace82.1" " #f" " #f" @@ -43159,14 +43286,14 @@ static const char *startup_source = "(let-values()" "(begin" "(if(if(label-phase?" -" phase_135)" +" phase_136)" "(not" "(let-values(((src-namespace38_0)" " src-namespace_6)" "((mod-name39_0)" " mod-name_19)" "((phase40_0)" -" phase_135))" +" phase_136))" "(namespace->module-namespace82.1" " #f" " #f" @@ -43193,7 +43320,7 @@ static const char *startup_source = "((mpi42_0)" " mpi_48)" "((phase43_1)" -" phase_135))" +" phase_136))" "(namespace-module-instantiate!96.1" " #f" " #f" @@ -43219,7 +43346,7 @@ static const char *startup_source = "(lambda(ht_147)" "(hash-set" " ht_147" -" phase_135" +" phase_136" " m-ns_13))" " '#hasheqv())" "(if already?_0" @@ -43237,19 +43364,19 @@ static const char *startup_source = "(check-list" " lst_21)))" "((letrec-values(((for-loop_17)" -"(lambda(lst_224)" +"(lambda(lst_226)" "(begin" " 'for-loop" "(if(pair?" -" lst_224)" +" lst_226)" "(let-values(((phase+reqs_1)" "(unsafe-car" -" lst_224))" -"((rest_169)" +" lst_226))" +"((rest_170)" "(unsafe-cdr" -" lst_224)))" +" lst_226)))" "(let-values((()" -"(let-values(((lst_178)" +"(let-values(((lst_179)" "(cdr" " phase+reqs_1)))" "(begin" @@ -43258,19 +43385,19 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_178)))" +" lst_179)))" "((letrec-values(((for-loop_28)" -"(lambda(lst_277)" +"(lambda(lst_279)" "(begin" " 'for-loop" "(if(pair?" -" lst_277)" +" lst_279)" "(let-values(((req_5)" "(unsafe-car" -" lst_277))" +" lst_279))" "((rest_153)" "(unsafe-cdr" -" lst_277)))" +" lst_279)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -43284,7 +43411,7 @@ static const char *startup_source = " m_20)" " mpi_48)" "(phase+" -" phase_135" +" phase_136" "(car" " phase+reqs_1))" " attach-instances?_1" @@ -43298,17 +43425,17 @@ static const char *startup_source = "(values))))" "(values))))))" " for-loop_28)" -" lst_178)))))" +" lst_179)))))" "(if(not" " #f)" "(for-loop_17" -" rest_169)" +" rest_170)" "(values))))" "(values))))))" " for-loop_17)" " lst_21)))" "(void)" -"(let-values(((lst_301)" +"(let-values(((lst_304)" "(module-submodule-names" " m_20)))" "(begin" @@ -43317,19 +43444,19 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_301)))" -"((letrec-values(((for-loop_264)" -"(lambda(lst_302)" +" lst_304)))" +"((letrec-values(((for-loop_266)" +"(lambda(lst_305)" "(begin" " 'for-loop" "(if(pair?" -" lst_302)" +" lst_305)" "(let-values(((submod-name_0)" "(unsafe-car" -" lst_302))" -"((rest_170)" +" lst_305))" +"((rest_171)" "(unsafe-cdr" -" lst_302)))" +" lst_305)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -43350,12 +43477,12 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_264" -" rest_170)" +"(for-loop_266" +" rest_171)" "(values))))" "(values))))))" -" for-loop_264)" -" lst_301)))" +" for-loop_266)" +" lst_304)))" "(void)" "(if(module-supermodule-name" " m_20)" @@ -43376,9 +43503,9 @@ static const char *startup_source = "(resolved-module-path->module-path mod-path_15)" " mod-path_15)" " #f)" -" phase_128" +" phase_129" " attach-instances?_0" -" phase_128)" +" phase_129)" "(values))))" "(let-values((()" "(begin" @@ -43406,12 +43533,12 @@ static const char *startup_source = "(let-values()" "(check-in-hash" " ht_149)))" -"((letrec-values(((for-loop_265)" +"((letrec-values(((for-loop_267)" "(lambda(i_171)" "(begin" " 'for-loop" "(if i_171" -"(let-values(((phase_136" +"(let-values(((phase_137" " m-ns_15)" "(hash-iterate-key+value" " ht_149" @@ -43457,14 +43584,14 @@ static const char *startup_source = "(namespace-record-module-instance-attached!" " src-namespace_6" " mod-name_20" -" phase_136)" +" phase_137)" "(let-values(((or-part_71)" "(let-values(((dest-namespace47_0)" " dest-namespace_2)" "((mod-name48_0)" " mod-name_20)" "((phase49_2)" -" phase_136))" +" phase_137))" "(namespace->module-namespace82.1" " #f" " #f" @@ -43480,7 +43607,7 @@ static const char *startup_source = "(namespace-install-module-namespace!" " dest-namespace_2" " mod-name_20" -" phase_136" +" phase_137" " m_21" " m-ns_15)))))" "(void)))))" @@ -43488,13 +43615,13 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_265" +"(for-loop_267" "(hash-iterate-next" " ht_149" " i_171))" "(values))))" "(values))))))" -" for-loop_265)" +" for-loop_267)" "(hash-iterate-first" " ht_149))))))" "(if(not #f)" @@ -43520,7 +43647,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-hash-keys ht_51)))" -"((letrec-values(((for-loop_175)" +"((letrec-values(((for-loop_176)" "(lambda(i_172)" "(begin" " 'for-loop" @@ -43539,11 +43666,11 @@ static const char *startup_source = "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_175" +"(for-loop_176" "(hash-iterate-next ht_51 i_172))" "(values))))" "(values))))))" -" for-loop_175)" +" for-loop_176)" "(hash-iterate-first ht_51))))" "(void))))))))))))))))))))))))" "(define-values" @@ -43552,8 +43679,8 @@ static const char *startup_source = "(begin" " 'make-empty-namespace" "(let-values(((current-ns_0)(1/current-namespace)))" -"(let-values(((phase_43)(namespace-phase current-ns_0)))" -"(let-values(((ns_59)(namespace->namespace-at-phase(make-namespace) phase_43)))" +"(let-values(((phase_45)(namespace-phase current-ns_0)))" +"(let-values(((ns_59)(namespace->namespace-at-phase(make-namespace) phase_45)))" "(begin" "(1/namespace-attach-module current-ns_0 ''#%kernel ns_59)" "(namespace-primitive-module-visit! ns_59 '#%kernel)" @@ -43598,8 +43725,8 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-immutable-hash-keys ht_150)))" -"((letrec-values(((for-loop_210)" -"(lambda(fold-var_275 i_173)" +"((letrec-values(((for-loop_211)" +"(lambda(fold-var_278 i_173)" "(begin" " 'for-loop" "(if i_173" @@ -43607,32 +43734,32 @@ static const char *startup_source = "(unsafe-immutable-hash-iterate-key" " ht_150" " i_173)))" -"(let-values(((fold-var_222)" -"(let-values(((fold-var_223)" -" fold-var_275))" +"(let-values(((fold-var_224)" +"(let-values(((fold-var_225)" +" fold-var_278))" "(if(equal?" " sc_34" " post-scope_1)" -" fold-var_223" -"(let-values(((fold-var_224)" -" fold-var_223))" +" fold-var_225" +"(let-values(((fold-var_226)" +" fold-var_225))" "(let-values(((fold-var_67)" "(let-values()" "(cons" "(let-values()" " sc_34)" -" fold-var_224))))" +" fold-var_226))))" "(values" " fold-var_67)))))))" "(if(not #f)" -"(for-loop_210" -" fold-var_222" +"(for-loop_211" +" fold-var_224" "(unsafe-immutable-hash-iterate-next" " ht_150" " i_173))" -" fold-var_222)))" -" fold-var_275)))))" -" for-loop_210)" +" fold-var_224)))" +" fold-var_278)))))" +" for-loop_211)" " null" "(unsafe-immutable-hash-iterate-first ht_150)))))))" "(let-values(((add-ns-scopes_0)" @@ -43680,7 +43807,7 @@ static const char *startup_source = " s_3))" "(let-values()(add-ns-scopes_0 s_3)))))))))))))))))))" "(case-lambda" -"((s_417)(begin 'namespace-syntax-introduce(namespace-syntax-introduce4_0 s_417 #f #f)))" +"((s_418)(begin 'namespace-syntax-introduce(namespace-syntax-introduce4_0 s_418 #f #f)))" "((s_73 ns1_4)(namespace-syntax-introduce4_0 s_73 ns1_4 #t)))))" "(define-values" "(namespace-datum-introduce)" @@ -43696,8 +43823,8 @@ static const char *startup_source = "(let-values()" "(let-values()" "(begin" -"(if(let-values(((or-part_283)(1/namespace? where_0)))" -"(if or-part_283 or-part_283(phase? where_0)))" +"(if(let-values(((or-part_284)(1/namespace? where_0)))" +"(if or-part_284 or-part_284(phase? where_0)))" "(void)" "(let-values()" "(raise-argument-error" @@ -43995,9 +44122,9 @@ static const char *startup_source = "(if(symbol? sym_69)" "(void)" " (let-values () (raise-argument-error 'namespace-variable-value \"symbol?\" sym_69)))" -"(if(let-values(((or-part_284)(not failure-thunk_5)))" -"(if or-part_284" -" or-part_284" +"(if(let-values(((or-part_285)(not failure-thunk_5)))" +"(if or-part_285" +" or-part_285" "(if(procedure? failure-thunk_5)" "(procedure-arity-includes? failure-thunk_5 0)" " #f)))" @@ -44017,14 +44144,14 @@ static const char *startup_source = "(if use-mapping?_0" "(let-values()" "(let-values(((id_18)(1/datum->syntax #f sym_69)))" -"(let-values(((b_89)" +"(let-values(((b_90)" "(resolve+shift/extra-inspector" "(1/namespace-syntax-introduce id_18 ns_81)" "(namespace-phase ns_81)" " ns_81)))" "(let-values((()" "(begin" -"(if b_89" +"(if b_90" "(let-values()" "(namespace-visit-available-modules!" " ns_81))" @@ -44034,8 +44161,8 @@ static const char *startup_source = " primitive?_8" " extra-inspector_8" " protected?_9)" -"(if b_89" -"(let-values(((b131_0) b_89)" +"(if b_90" +"(let-values(((b131_0) b_90)" "((empty-env132_0)" " empty-env)" "((null133_0) null)" @@ -44060,9 +44187,9 @@ static const char *startup_source = "(void)" "(let-values()" "(escape_0" -"(let-values(((or-part_285) failure-thunk_5))" -"(if or-part_285" -" or-part_285" +"(let-values(((or-part_286) failure-thunk_5))" +"(if or-part_286" +" or-part_286" "(lambda()" "(raise" "(make-exn:fail:syntax$1" @@ -44073,19 +44200,19 @@ static const char *startup_source = " sym_69)" "(current-continuation-marks)" " null))))))))" -"(if(module-binding? b_89)" +"(if(module-binding? b_90)" "(values" "(if(top-level-module-path-index?" -"(module-binding-module b_89))" +"(module-binding-module b_90))" " ns_81" "(module-instance-namespace" "(binding->module-instance" -" b_89" +" b_90" " ns_81" "(namespace-phase ns_81)" " id_18)))" -"(module-binding-phase b_89)" -"(module-binding-sym b_89))" +"(module-binding-phase b_90)" +"(module-binding-sym b_90))" "(values" " ns_81" "(namespace-phase ns_81)" @@ -44269,20 +44396,20 @@ static const char *startup_source = "(let-values(((compile_1)" "(if compile4_0" " compile2_0" -"(lambda(s_418 ns_87)(begin 'compile(1/compile s_418 ns_87 #f))))))" +"(lambda(s_419 ns_87)(begin 'compile(1/compile s_419 ns_87 #f))))))" "(let-values()" -"(if(let-values(((or-part_280)(compiled-in-memory? s_171)))" -"(if or-part_280" -" or-part_280" -"(let-values(((or-part_281)(1/linklet-directory? s_171)))" -"(if or-part_281 or-part_281(1/linklet-bundle? s_171)))))" +"(if(let-values(((or-part_281)(compiled-in-memory? s_171)))" +"(if or-part_281" +" or-part_281" +"(let-values(((or-part_282)(1/linklet-directory? s_171)))" +"(if or-part_282 or-part_282(1/linklet-bundle? s_171)))))" "(let-values()(eval-compiled s_171 ns_43))" "(if(if(syntax?$1 s_171)" -"(let-values(((or-part_282)(compiled-in-memory?(1/syntax-e s_171))))" -"(if or-part_282" -" or-part_282" -"(let-values(((or-part_286)(1/linklet-directory?(1/syntax-e s_171))))" -"(if or-part_286 or-part_286(1/linklet-bundle?(1/syntax-e s_171))))))" +"(let-values(((or-part_283)(compiled-in-memory?(1/syntax-e s_171))))" +"(if or-part_283" +" or-part_283" +"(let-values(((or-part_287)(1/linklet-directory?(1/syntax-e s_171))))" +"(if or-part_287 or-part_287(1/linklet-bundle?(1/syntax-e s_171))))))" " #f)" "(let-values()(eval-compiled(1/syntax->datum s_171) ns_43))" "(let-values()" @@ -44310,7 +44437,7 @@ static const char *startup_source = "(case-lambda" "((s_173)(begin 'eval(eval6_0 s_173 #f #f #f #f)))" "((s_76 ns_53 compile2_1)(eval6_0 s_76 ns_53 compile2_1 #t #t))" -"((s_158 ns1_6)(eval6_0 s_158 ns1_6 #f #t #f)))))" +"((s_159 ns1_6)(eval6_0 s_159 ns1_6 #f #t #f)))))" "(define-values" "(eval-compiled)" "(let-values(((eval-compiled12_0)" @@ -44343,21 +44470,21 @@ static const char *startup_source = " to-source?21_1)" "(begin" " 'compile23" -"(let-values(((s_419) s22_0))" +"(let-values(((s_420) 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)))" "(let-values()" "(let-values(((cs_0)" -"(if(1/compiled-expression? s_419)" -"(let-values()(list s_419))" -"(if(if(syntax?$1 s_419)" -"(1/compiled-expression?(1/syntax-e s_419))" +"(if(1/compiled-expression? s_420)" +"(let-values()(list s_420))" +"(if(if(syntax?$1 s_420)" +"(1/compiled-expression?(1/syntax-e s_420))" " #f)" -"(let-values()(list(1/syntax-e s_419)))" +"(let-values()(list(1/syntax-e s_420)))" "(let-values()" -"(let-values(((s86_0) s_419)" +"(let-values(((s86_0) s_420)" "((ns87_0) ns_92)" "((temp88_2)" "(lambda(s_12 ns_49 as-tail?_4)" @@ -44400,9 +44527,9 @@ static const char *startup_source = " #t" " cs91_0))))))))))))))" "(case-lambda" -"((s_181)(begin 'compile(compile23_0 s_181 #f #f #f #f #f #f #f #f)))" -"((s_420 ns_93 serializable?_5 expand_1 to-source?17_1)" -"(compile23_0 s_420 ns_93 serializable?_5 expand_1 to-source?17_1 #t #t #t #t))" +"((s_182)(begin 'compile(compile23_0 s_182 #f #f #f #f #f #f #f #f)))" +"((s_421 ns_93 serializable?_5 expand_1 to-source?17_1)" +"(compile23_0 s_421 ns_93 serializable?_5 expand_1 to-source?17_1 #t #t #t #t))" "((s_20 ns_94 serializable?_6 expand16_1)(compile23_0 s_20 ns_94 serializable?_6 expand16_1 #f #t #t #t #f))" "((s_23 ns_95 serializable?15_1)(compile23_0 s_23 ns_95 serializable?15_1 #f #f #t #t #f #f))" "((s_148 ns14_3)(compile23_0 s_148 ns14_3 #f #f #f #t #f #f #f)))))" @@ -44412,11 +44539,11 @@ static const char *startup_source = "(lambda(s27_0 ns25_0 ns26_2)" "(begin" " 'compile-to-linklets28" -"(let-values(((s_396) s27_0))" +"(let-values(((s_397) s27_0))" "(let-values(((ns_96)(if ns26_2 ns25_0(1/current-namespace))))" -"(let-values()(1/compile s_396 ns_96 #t expand$1 #t))))))))" +"(let-values()(1/compile s_397 ns_96 #t expand$1 #t))))))))" "(case-lambda" -"((s_421)(begin(compile-to-linklets28_0 s_421 #f #f)))" +"((s_422)(begin(compile-to-linklets28_0 s_422 #f #f)))" "((s_298 ns25_1)(compile-to-linklets28_0 s_298 ns25_1 #t)))))" "(define-values" "(struct:lifted-parsed-begin" @@ -44424,7 +44551,7 @@ static const char *startup_source = " lifted-parsed-begin?" " lifted-parsed-begin-seq" " lifted-parsed-begin-last)" -"(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" @@ -44440,11 +44567,11 @@ static const char *startup_source = " #f" " 'lifted-parsed-begin)))))" "(values" -" struct:_73" -" make-_73" -" ?_73" -"(make-struct-field-accessor -ref_73 0 'seq)" -"(make-struct-field-accessor -ref_73 1 'last))))" +" struct:_74" +" make-_74" +" ?_74" +"(make-struct-field-accessor -ref_74 0 'seq)" +"(make-struct-field-accessor -ref_74 1 'last))))" "(define-values" "(compile-single$1)" "(lambda(s_29 ns_97 expand_2 serializable?_7 to-source?_6)" @@ -44480,42 +44607,42 @@ static const char *startup_source = "(let-values()" "(let-values(((temp101_1)" "(reverse$1" -"(let-values(((lst_290)" +"(let-values(((lst_293)" "(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_290)))" +"(let-values()(check-list lst_293)))" "((letrec-values(((for-loop_6)" -"(lambda(fold-var_0 lst_169)" +"(lambda(fold-var_0 lst_170)" "(begin" " 'for-loop" -"(if(pair? lst_169)" -"(let-values(((e_76)" -"(unsafe-car lst_169))" -"((rest_163)" -"(unsafe-cdr lst_169)))" +"(if(pair? lst_170)" +"(let-values(((e_77)" +"(unsafe-car lst_170))" +"((rest_164)" +"(unsafe-cdr lst_170)))" "(let-values(((fold-var_2)" "(let-values(((fold-var_3)" " fold-var_0))" -"(let-values(((fold-var_238)" +"(let-values(((fold-var_240)" "(let-values()" "(cons" "(let-values()" "(loop_97" -" e_76))" +" e_77))" " fold-var_3))))" "(values" -" fold-var_238)))))" +" fold-var_240)))))" "(if(not #f)" -"(for-loop_6 fold-var_2 rest_163)" +"(for-loop_6 fold-var_2 rest_164)" " fold-var_2)))" " fold-var_0)))))" " for-loop_6)" " null" -" lst_290)))))" +" lst_293)))))" "((to-source?102_0) to-source?_6))" "(compiled-tops->compiled-top8.1 #f #f #f #f to-source?102_0 #t temp101_1)))" "(let-values()" @@ -44562,7 +44689,7 @@ static const char *startup_source = " serializable?38_0)" "(begin" " 'expand40" -"(let-values(((s_422) s39_1))" +"(let-values(((s_423) 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)))" @@ -44578,12 +44705,12 @@ static const char *startup_source = " current-expand-observe" " #f)" "(let-values()" -"(let-values(((s108_0) s_422)" +"(let-values(((s108_0) s_423)" "((ns109_1) ns_98)" "((temp110_0)" -"(lambda(s_423 ns_99 as-tail?_5)" +"(lambda(s_424 ns_99 as-tail?_5)" "(expand-single" -" s_423" +" s_424" " ns_99" " observer_2" " to-parsed?_2" @@ -44608,23 +44735,23 @@ static const char *startup_source = " ns109_1))))))))))))))))" "(case-lambda" "((s_296)(begin 'expand(expand40_0 s_296 #f #f #f #f #f #f #f #f)))" -"((s_424 ns_100 observable?_1 to-parsed?_3 serializable?34_1)" -"(expand40_0 s_424 ns_100 observable?_1 to-parsed?_3 serializable?34_1 #t #t #t #t))" -"((s_425 ns_101 observable?_2 to-parsed?33_1)(expand40_0 s_425 ns_101 observable?_2 to-parsed?33_1 #f #t #t #t #f))" +"((s_425 ns_100 observable?_1 to-parsed?_3 serializable?34_1)" +"(expand40_0 s_425 ns_100 observable?_1 to-parsed?_3 serializable?34_1 #t #t #t #t))" +"((s_426 ns_101 observable?_2 to-parsed?33_1)(expand40_0 s_426 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_381 ns31_4)(expand40_0 s_381 ns31_4 #f #f #f #t #f #f #f)))))" +"((s_382 ns31_4)(expand40_0 s_382 ns31_4 #f #f #f #t #f #f #f)))))" "(define-values" "(expand-single)" -"(lambda(s_426 ns_103 observer_3 to-parsed?_4 serializable?_9)" +"(lambda(s_427 ns_103 observer_3 to-parsed?_4 serializable?_9)" "(begin" -"(let-values(((rebuild-s_2)(keep-properties-only s_426)))" +"(let-values(((rebuild-s_2)(keep-properties-only s_427)))" "(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_9 exp-s_6)(expand-capturing-lifts s_426 ctx_68)))" +"(let-values(((require-lifts_3 lifts_9 exp-s_6)(expand-capturing-lifts s_427 ctx_68)))" "(if(if(null? require-lifts_3)(null? lifts_9) #f)" "(let-values() exp-s_6)" "(if to-parsed?_4" @@ -44697,13 +44824,13 @@ static const char *startup_source = "(lambda(s44_1 ns42_1 ns43_0)" "(begin" " 'expand-once45" -"(let-values(((s_382) s44_1))" +"(let-values(((s_383) s44_1))" "(let-values(((ns_104)(if ns43_0 ns42_1(1/current-namespace))))" "(let-values()" -"(let-values(((s128_0) s_382)" +"(let-values(((s128_0) s_383)" "((ns129_0) ns_104)" "((temp130_1)" -"(lambda(s_427 ns_105 as-tail?_6)(expand-single-once s_427 ns_105)))" +"(lambda(s_428 ns_105 as-tail?_6)(expand-single-once s_428 ns_105)))" "((cons131_0) cons)" "((re-pair132_0) re-pair)" "((temp133_0) #t)" @@ -44724,71 +44851,71 @@ static const char *startup_source = " s128_0" " ns129_0)))))))))" "(case-lambda" -"((s_428)(begin 'expand-once(expand-once45_0 s_428 #f #f)))" -"((s_429 ns42_2)(expand-once45_0 s_429 ns42_2 #t)))))" +"((s_429)(begin 'expand-once(expand-once45_0 s_429 #f #f)))" +"((s_430 ns42_2)(expand-once45_0 s_430 ns42_2 #t)))))" "(define-values" "(expand-single-once)" -"(lambda(s_430 ns_106)" +"(lambda(s_431 ns_106)" "(begin" "(let-values(((require-lifts_4 lifts_10 exp-s_7)" "(expand-capturing-lifts" -" s_430" +" s_431" "(let-values(((v_193)" "(let-values(((ns135_1) ns_106))" "(make-expand-context10.1 #f #f #f #f #f #f ns135_1))))" -"(let-values(((the-struct_68) v_193))" -"(if(expand-context/outer? the-struct_68)" +"(let-values(((the-struct_67) v_193))" +"(if(expand-context/outer? the-struct_67)" "(let-values(((inner136_1)" -"(let-values(((the-struct_69)(root-expand-context/outer-inner v_193)))" -"(if(expand-context/inner? the-struct_69)" +"(let-values(((the-struct_68)(root-expand-context/outer-inner v_193)))" +"(if(expand-context/inner? the-struct_68)" "(let-values(((just-once?137_0) #t))" "(expand-context/inner2.1" -"(root-expand-context/inner-self-mpi the-struct_69)" -"(root-expand-context/inner-module-scopes the-struct_69)" -"(root-expand-context/inner-top-level-bind-scope the-struct_69)" -"(root-expand-context/inner-all-scopes-stx the-struct_69)" -"(root-expand-context/inner-defined-syms the-struct_69)" -"(root-expand-context/inner-counter the-struct_69)" -"(root-expand-context/inner-lift-key the-struct_69)" -"(expand-context/inner-to-parsed? the-struct_69)" -"(expand-context/inner-phase the-struct_69)" -"(expand-context/inner-namespace the-struct_69)" +"(root-expand-context/inner-self-mpi the-struct_68)" +"(root-expand-context/inner-module-scopes the-struct_68)" +"(root-expand-context/inner-top-level-bind-scope the-struct_68)" +"(root-expand-context/inner-all-scopes-stx the-struct_68)" +"(root-expand-context/inner-defined-syms the-struct_68)" +"(root-expand-context/inner-counter the-struct_68)" +"(root-expand-context/inner-lift-key the-struct_68)" +"(expand-context/inner-to-parsed? the-struct_68)" +"(expand-context/inner-phase the-struct_68)" +"(expand-context/inner-namespace the-struct_68)" " just-once?137_0" -"(expand-context/inner-module-begin-k the-struct_69)" -"(expand-context/inner-allow-unbound? the-struct_69)" -"(expand-context/inner-in-local-expand? the-struct_69)" -"(expand-context/inner-stops the-struct_69)" -"(expand-context/inner-declared-submodule-names the-struct_69)" -"(expand-context/inner-lifts the-struct_69)" -"(expand-context/inner-lift-envs the-struct_69)" -"(expand-context/inner-module-lifts the-struct_69)" -"(expand-context/inner-require-lifts the-struct_69)" -"(expand-context/inner-to-module-lifts the-struct_69)" -"(expand-context/inner-requires+provides the-struct_69)" -"(expand-context/inner-observer the-struct_69)" -"(expand-context/inner-for-serializable? the-struct_69)" -"(expand-context/inner-should-not-encounter-macros? the-struct_69)))" +"(expand-context/inner-module-begin-k the-struct_68)" +"(expand-context/inner-allow-unbound? the-struct_68)" +"(expand-context/inner-in-local-expand? the-struct_68)" +"(expand-context/inner-stops the-struct_68)" +"(expand-context/inner-declared-submodule-names the-struct_68)" +"(expand-context/inner-lifts the-struct_68)" +"(expand-context/inner-lift-envs the-struct_68)" +"(expand-context/inner-module-lifts the-struct_68)" +"(expand-context/inner-require-lifts the-struct_68)" +"(expand-context/inner-to-module-lifts the-struct_68)" +"(expand-context/inner-requires+provides the-struct_68)" +"(expand-context/inner-observer the-struct_68)" +"(expand-context/inner-for-serializable? the-struct_68)" +"(expand-context/inner-should-not-encounter-macros? the-struct_68)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_69)))))" +" the-struct_68)))))" "(expand-context/outer1.1" " inner136_1" -"(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)" -"(expand-context/outer-env the-struct_68)" -"(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_68)))))))" +"(root-expand-context/outer-post-expansion-scope the-struct_67)" +"(root-expand-context/outer-use-site-scopes the-struct_67)" +"(root-expand-context/outer-frame-id the-struct_67)" +"(expand-context/outer-context the-struct_67)" +"(expand-context/outer-env the-struct_67)" +"(expand-context/outer-post-expansion-scope-action the-struct_67)" +"(expand-context/outer-scopes the-struct_67)" +"(expand-context/outer-def-ctx-scopes the-struct_67)" +"(expand-context/outer-binding-layer the-struct_67)" +"(expand-context/outer-reference-records the-struct_67)" +"(expand-context/outer-only-immediate? the-struct_67)" +"(expand-context/outer-need-eventually-defined the-struct_67)" +"(expand-context/outer-current-introduction-scopes the-struct_67)" +"(expand-context/outer-name the-struct_67)))" +" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_67)))))))" "(if(if(null? require-lifts_4)(null? lifts_10) #f)" "(let-values() exp-s_7)" "(let-values()" @@ -44802,7 +44929,7 @@ static const char *startup_source = "(lambda(s49_0 ns47_2 ns48_2)" "(begin" " 'expand-to-top-form50" -"(let-values(((s_149) s49_0))" +"(let-values(((s_316) s49_0))" "(let-values(((ns_84)(if ns48_2 ns47_2(1/current-namespace))))" "(let-values()" "(let-values(((observer_4)(current-expand-observe)))" @@ -44815,7 +44942,7 @@ static const char *startup_source = " current-expand-observe" " #f)" "(let-values()" -"(let-values(((s141_0) s_149)" +"(let-values(((s141_0) s_316)" "((ns142_0) ns_84)" "((temp143_0) #f)" "((temp144_2) #f)" @@ -44836,8 +44963,8 @@ static const char *startup_source = " s141_0" " ns142_0)))))))))))))" "(case-lambda" -"((s_431)(begin 'expand-to-top-form(expand-to-top-form50_0 s_431 #f #f)))" -"((s_206 ns47_3)(expand-to-top-form50_0 s_206 ns47_3 #t)))))" +"((s_432)(begin 'expand-to-top-form(expand-to-top-form50_0 s_432 #f #f)))" +"((s_207 ns47_3)(expand-to-top-form50_0 s_207 ns47_3 #t)))))" "(define-values" "(per-top-level68.1)" "(lambda(combine53_0" @@ -44870,9 +44997,9 @@ static const char *startup_source = "(let-values(((ctx_69)" "(let-values(((ns146_0) ns_107)((observer147_0) observer_5))" "(make-expand-context10.1 #f #f observer147_0 #t #f #f ns146_0))))" -"(let-values(((phase_137)(namespace-phase ns_107)))" +"(let-values(((phase_138)(namespace-phase ns_107)))" "((letrec-values(((loop_98)" -"(lambda(s_209 phase_138 ns_108 as-tail?_7)" +"(lambda(s_151 phase_139 ns_108 as-tail?_7)" "(begin" " 'loop" "(let-values(((tl-ctx_0)" @@ -44880,13 +45007,13 @@ static const char *startup_source = "(let-values(((the-struct_41) v_127))" "(if(expand-context/outer? the-struct_41)" "(let-values(((inner148_0)" -"(let-values(((the-struct_70)" +"(let-values(((the-struct_69)" "(root-expand-context/outer-inner" " v_127)))" "(if(expand-context/inner?" -" the-struct_70)" +" the-struct_69)" "(let-values(((phase149_0)" -" phase_138)" +" phase_139)" "((namespace150_0)" " ns_108)" "((just-once?151_0)" @@ -44895,55 +45022,55 @@ static const char *startup_source = " serializable?_10))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi" -" the-struct_70)" +" the-struct_69)" "(root-expand-context/inner-module-scopes" -" the-struct_70)" +" the-struct_69)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_70)" +" the-struct_69)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_70)" +" the-struct_69)" "(root-expand-context/inner-defined-syms" -" the-struct_70)" +" the-struct_69)" "(root-expand-context/inner-counter" -" the-struct_70)" +" the-struct_69)" "(root-expand-context/inner-lift-key" -" the-struct_70)" +" the-struct_69)" "(expand-context/inner-to-parsed?" -" the-struct_70)" +" the-struct_69)" " phase149_0" " namespace150_0" " just-once?151_0" "(expand-context/inner-module-begin-k" -" the-struct_70)" +" the-struct_69)" "(expand-context/inner-allow-unbound?" -" the-struct_70)" +" the-struct_69)" "(expand-context/inner-in-local-expand?" -" the-struct_70)" +" the-struct_69)" "(expand-context/inner-stops" -" the-struct_70)" +" the-struct_69)" "(expand-context/inner-declared-submodule-names" -" the-struct_70)" +" the-struct_69)" "(expand-context/inner-lifts" -" the-struct_70)" +" the-struct_69)" "(expand-context/inner-lift-envs" -" the-struct_70)" +" the-struct_69)" "(expand-context/inner-module-lifts" -" the-struct_70)" +" the-struct_69)" "(expand-context/inner-require-lifts" -" the-struct_70)" +" the-struct_69)" "(expand-context/inner-to-module-lifts" -" the-struct_70)" +" the-struct_69)" "(expand-context/inner-requires+provides" -" the-struct_70)" +" the-struct_69)" "(expand-context/inner-observer" -" the-struct_70)" +" the-struct_69)" " for-serializable?152_0" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_70)))" +" the-struct_69)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_70)))))" +" the-struct_69)))))" "(expand-context/outer1.1" " inner148_0" "(root-expand-context/outer-post-expansion-scope" @@ -44975,7 +45102,7 @@ static const char *startup_source = " 'struct-copy" " \"expand-context/outer?\"" " the-struct_41))))))" -"(let-values(((wb-s_0)(if just-once?_1 s_209 #f)))" +"(let-values(((wb-s_0)(if just-once?_1 s_151 #f)))" "(let-values((()" "(begin" "(let-values(((obs_43)" @@ -44987,119 +45114,119 @@ static const char *startup_source = "(call-expand-observe" " obs_43" " 'visit" -" s_209)))" +" s_151)))" "(void)))" "(values))))" "(let-values(((require-lifts_5 lifts_11 exp-s_8)" "(expand-capturing-lifts" -" s_209" +" s_151" "(let-values(((v_194) tl-ctx_0))" -"(let-values(((the-struct_71) v_194))" -"(if(expand-context/outer? the-struct_71)" +"(let-values(((the-struct_70) v_194))" +"(if(expand-context/outer? the-struct_70)" "(let-values(((only-immediate?153_0)" " #t)" "((def-ctx-scopes154_0)" "(box null))" "((inner155_0)" -"(let-values(((the-struct_72)" +"(let-values(((the-struct_71)" "(root-expand-context/outer-inner" " v_194)))" "(if(expand-context/inner?" -" the-struct_72)" +" the-struct_71)" "(let-values(((phase156_1)" -" phase_138)" +" phase_139)" "((namespace157_0)" " ns_108))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi" -" the-struct_72)" +" the-struct_71)" "(root-expand-context/inner-module-scopes" -" the-struct_72)" +" the-struct_71)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_72)" +" the-struct_71)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_72)" +" the-struct_71)" "(root-expand-context/inner-defined-syms" -" the-struct_72)" +" the-struct_71)" "(root-expand-context/inner-counter" -" the-struct_72)" +" the-struct_71)" "(root-expand-context/inner-lift-key" -" the-struct_72)" +" the-struct_71)" "(expand-context/inner-to-parsed?" -" the-struct_72)" +" the-struct_71)" " phase156_1" " namespace157_0" "(expand-context/inner-just-once?" -" the-struct_72)" +" the-struct_71)" "(expand-context/inner-module-begin-k" -" the-struct_72)" +" the-struct_71)" "(expand-context/inner-allow-unbound?" -" the-struct_72)" +" the-struct_71)" "(expand-context/inner-in-local-expand?" -" the-struct_72)" +" the-struct_71)" "(expand-context/inner-stops" -" the-struct_72)" +" the-struct_71)" "(expand-context/inner-declared-submodule-names" -" the-struct_72)" +" the-struct_71)" "(expand-context/inner-lifts" -" the-struct_72)" +" the-struct_71)" "(expand-context/inner-lift-envs" -" the-struct_72)" +" the-struct_71)" "(expand-context/inner-module-lifts" -" the-struct_72)" +" the-struct_71)" "(expand-context/inner-require-lifts" -" the-struct_72)" +" the-struct_71)" "(expand-context/inner-to-module-lifts" -" the-struct_72)" +" the-struct_71)" "(expand-context/inner-requires+provides" -" the-struct_72)" +" the-struct_71)" "(expand-context/inner-observer" -" the-struct_72)" +" the-struct_71)" "(expand-context/inner-for-serializable?" -" the-struct_72)" +" the-struct_71)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_72)))" -"(raise-argument-error" -" 'struct-copy" -" \"expand-context/inner?\"" -" the-struct_72)))))" -"(expand-context/outer1.1" -" inner155_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)" -" def-ctx-scopes154_0" -"(expand-context/outer-binding-layer" -" the-struct_71)" -"(expand-context/outer-reference-records" -" the-struct_71)" -" only-immediate?153_0" -"(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/inner?\"" +" the-struct_71)))))" +"(expand-context/outer1.1" +" inner155_0" +"(root-expand-context/outer-post-expansion-scope" +" the-struct_70)" +"(root-expand-context/outer-use-site-scopes" +" the-struct_70)" +"(root-expand-context/outer-frame-id" +" the-struct_70)" +"(expand-context/outer-context" +" the-struct_70)" +"(expand-context/outer-env" +" the-struct_70)" +"(expand-context/outer-post-expansion-scope-action" +" the-struct_70)" +"(expand-context/outer-scopes" +" the-struct_70)" +" def-ctx-scopes154_0" +"(expand-context/outer-binding-layer" +" the-struct_70)" +"(expand-context/outer-reference-records" +" the-struct_70)" +" only-immediate?153_0" +"(expand-context/outer-need-eventually-defined" +" the-struct_70)" +"(expand-context/outer-current-introduction-scopes" +" the-struct_70)" +"(expand-context/outer-name" +" the-struct_70)))" +"(raise-argument-error" +" 'struct-copy" " \"expand-context/outer?\"" -" the-struct_71)))))))" +" the-struct_70)))))))" "(let-values(((disarmed-exp-s_0)" "(syntax-disarm$1 exp-s_8)))" -"(if(let-values(((or-part_287)" +"(if(let-values(((or-part_288)" "(pair? require-lifts_5)))" -"(if or-part_287 or-part_287(pair? lifts_11)))" +"(if or-part_288 or-part_288(pair? lifts_11)))" "(let-values()" "(let-values(((new-s_3)" "(let-values(((temp158_0)" @@ -45107,7 +45234,7 @@ static const char *startup_source = " require-lifts_5" " lifts_11))" "((exp-s159_0) exp-s_8)" -"((phase160_0) phase_138))" +"((phase160_0) phase_139))" "(wrap-lifts-as-begin16.1" " #f" " #f" @@ -45132,7 +45259,7 @@ static const char *startup_source = " new-s_3" "(loop_98" " new-s_3" -" phase_138" +" phase_139" " ns_108" " as-tail?_7)))))" "(if(not single_0)" @@ -45156,7 +45283,7 @@ static const char *startup_source = "(let-values(((tmp_36)" "(core-form-sym" " disarmed-exp-s_0" -" phase_138)))" +" phase_139)))" "(if(equal? tmp_36 'begin)" "(let-values()" "(let-values((()" @@ -45173,35 +45300,35 @@ static const char *startup_source = "(void)))" "(values))))" "(let-values(((ok?_27 begin161_0 e162_0)" -"(let-values(((s_432)" +"(let-values(((s_433)" " disarmed-exp-s_0))" "(let-values(((orig-s_33)" -" s_432))" +" s_433))" "(let-values(((begin161_1" " e162_1)" -"(let-values(((s_410)" -"(if(syntax?$1" -" s_432)" -"(syntax-e$1" -" s_432)" -" s_432)))" -"(if(pair?" -" s_410)" -"(let-values(((begin163_0)" "(let-values(((s_411)" -"(car" -" s_410)))" -" s_411))" -"((e164_0)" -"(let-values(((s_433)" -"(cdr" -" s_410)))" -"(let-values(((s_121)" "(if(syntax?$1" " s_433)" "(syntax-e$1" " s_433)" " s_433)))" +"(if(pair?" +" s_411)" +"(let-values(((begin163_0)" +"(let-values(((s_412)" +"(car" +" s_411)))" +" s_412))" +"((e164_0)" +"(let-values(((s_434)" +"(cdr" +" s_411)))" +"(let-values(((s_121)" +"(if(syntax?$1" +" s_434)" +"(syntax-e$1" +" s_434)" +" s_434)))" "(let-values(((flat-s_20)" "(to-syntax-list.1" " s_121)))" @@ -45243,7 +45370,7 @@ static const char *startup_source = "(let-values()" "(loop_98" "(car es_2)" -" phase_138" +" phase_139" " ns_108" " as-tail?_7))" "(let-values()" @@ -45265,14 +45392,14 @@ static const char *startup_source = "(loop_98" "(car" " es_2)" -" phase_138" +" phase_139" " ns_108" " #f)" "(begin" "(loop_98" "(car" " es_2)" -" phase_138" +" phase_139" " ns_108" " #f)" "(void)))))" @@ -45346,15 +45473,15 @@ static const char *startup_source = " s_223)))" " s_225))" "((e168_0)" -"(let-values(((s_322)" +"(let-values(((s_323)" "(cdr" " s_223)))" "(let-values(((s_226)" "(if(syntax?$1" -" s_322)" +" s_323)" "(syntax-e$1" -" s_322)" -" s_322)))" +" s_323)" +" s_323)))" "(let-values(((flat-s_21)" "(to-syntax-list.1" " s_226)))" @@ -45379,7 +45506,7 @@ static const char *startup_source = " begin-for-syntax165_1" " e166_1))))))" "(let-values(((next-phase_0)" -"(add1 phase_138)))" +"(add1 phase_139)))" "(let-values(((next-ns_0)" "(namespace->namespace-at-phase" " ns_108" @@ -45412,7 +45539,7 @@ static const char *startup_source = "(values))))" "(let-values(((l_69)" "(reverse$1" -"(let-values(((lst_303)" +"(let-values(((lst_306)" " e166_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -45420,24 +45547,24 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_303)))" -"((letrec-values(((for-loop_266)" -"(lambda(fold-var_276" -" lst_304)" +" lst_306)))" +"((letrec-values(((for-loop_268)" +"(lambda(fold-var_279" +" lst_307)" "(begin" " 'for-loop" "(if(pair?" -" lst_304)" -"(let-values(((s_326)" +" lst_307)" +"(let-values(((s_327)" "(unsafe-car" -" lst_304))" -"((rest_171)" +" lst_307))" +"((rest_172)" "(unsafe-cdr" -" lst_304)))" -"(let-values(((fold-var_205)" -"(let-values(((fold-var_206)" -" fold-var_276))" -"(let-values(((fold-var_277)" +" lst_307)))" +"(let-values(((fold-var_207)" +"(let-values(((fold-var_208)" +" fold-var_279))" +"(let-values(((fold-var_280)" "(let-values()" "(cons" "(let-values()" @@ -45453,23 +45580,23 @@ static const char *startup_source = " 'next)))" "(void)))" "(loop_98" -" s_326" +" s_327" " next-phase_0" " next-ns_0" " #f)))" -" fold-var_206))))" +" fold-var_208))))" "(values" -" fold-var_277)))))" +" fold-var_280)))))" "(if(not" " #f)" -"(for-loop_266" -" fold-var_205" -" rest_171)" -" fold-var_205)))" -" fold-var_276)))))" -" for-loop_266)" +"(for-loop_268" +" fold-var_207" +" rest_172)" +" fold-var_207)))" +" fold-var_279)))))" +" for-loop_268)" " null" -" lst_303))))))" +" lst_306))))))" "(if wrap_2" "(let-values()" "(let-values(((new-s_5)" @@ -45504,20 +45631,20 @@ static const char *startup_source = " as-tail?_7))))))))))))))))))" " loop_98)" " s_103" -" phase_137" +" phase_138" " ns_107" " #t)))))))))))))))))" "(define-values" "(maybe-intro)" -"(lambda(s_434 ns_109)" -"(begin(if(syntax?$1 s_434) s_434(1/namespace-syntax-introduce(1/datum->syntax #f s_434) ns_109)))))" +"(lambda(s_435 ns_109)" +"(begin(if(syntax?$1 s_435) s_435(1/namespace-syntax-introduce(1/datum->syntax #f s_435) ns_109)))))" "(define-values" "(re-pair)" -"(lambda(form-id_0 s_435 r_43)" -"(begin(syntax-rearm$1(1/datum->syntax(syntax-disarm$1 s_435)(cons form-id_0 r_43) s_435 s_435) s_435))))" +"(lambda(form-id_0 s_436 r_43)" +"(begin(syntax-rearm$1(1/datum->syntax(syntax-disarm$1 s_436)(cons form-id_0 r_43) s_436 s_436) s_436))))" "(define-values" "(expand-capturing-lifts)" -"(lambda(s_436 ctx_70)" +"(lambda(s_437 ctx_70)" "(begin" "(let-values()" "(let-values(((ns_110)(expand-context-namespace ctx_70)))" @@ -45530,11 +45657,11 @@ static const char *startup_source = "(namespace-phase ns_110)" "(make-parse-top-lifted-require ns_110))))" "(let-values(((exp-s_9)" -"(let-values(((s170_0) s_436)" +"(let-values(((s170_0) s_437)" "((temp171_0)" "(let-values(((v_195) ctx_70))" -"(let-values(((the-struct_73) v_195))" -"(if(expand-context/outer? the-struct_73)" +"(let-values(((the-struct_72) v_195))" +"(if(expand-context/outer? the-struct_72)" "(let-values(((inner172_1)" "(let-values(((the-struct_25)" "(root-expand-context/outer-inner v_195)))" @@ -45589,24 +45716,24 @@ static const char *startup_source = " the-struct_25)))))" "(expand-context/outer1.1" " inner172_1" -"(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)" -"(expand-context/outer-def-ctx-scopes the-struct_73)" -"(expand-context/outer-binding-layer the-struct_73)" -"(expand-context/outer-reference-records the-struct_73)" -"(expand-context/outer-only-immediate? the-struct_73)" -"(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)))" +"(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)" +"(expand-context/outer-def-ctx-scopes the-struct_72)" +"(expand-context/outer-binding-layer the-struct_72)" +"(expand-context/outer-reference-records the-struct_72)" +"(expand-context/outer-only-immediate? the-struct_72)" +"(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_73))))))" +" the-struct_72))))))" "(expand7.1 #f #f #f #f s170_0 temp171_0))))" "(values" "(get-and-clear-require-lifts! require-lift-ctx_2)" @@ -45616,12 +45743,12 @@ static const char *startup_source = "(make-parse-top-lifted-require)" "(lambda(ns_111)" "(begin" -"(lambda(s_437 phase_139)" +"(lambda(s_438 phase_140)" "(let-values(((ok?_28 #%require176_0 req177_0)" -"(let-values(((s_438)(syntax-disarm$1 s_437)))" -"(let-values(((orig-s_35) s_438))" +"(let-values(((s_439)(syntax-disarm$1 s_438)))" +"(let-values(((orig-s_35) s_439))" "(let-values(((#%require176_1 req177_1)" -"(let-values(((s_245)(if(syntax?$1 s_438)(syntax-e$1 s_438) s_438)))" +"(let-values(((s_245)(if(syntax?$1 s_439)(syntax-e$1 s_439) s_439)))" "(if(pair? s_245)" "(let-values(((#%require178_0)(let-values(((s_246)(car s_245))) s_246))" "((req179_0)" @@ -45632,15 +45759,15 @@ static const char *startup_source = " s_247)))" "(if(pair? s_248)" "(let-values(((req180_0)" -"(let-values(((s_439)(car s_248)))" -" s_439))" +"(let-values(((s_440)(car s_248)))" +" s_440))" "(()" -"(let-values(((s_440)(cdr s_248)))" -"(let-values(((s_441)" -"(if(syntax?$1 s_440)" -"(syntax-e$1 s_440)" -" s_440)))" -"(if(null? s_441)" +"(let-values(((s_441)(cdr s_248)))" +"(let-values(((s_442)" +"(if(syntax?$1 s_441)" +"(syntax-e$1 s_441)" +" s_441)))" +"(if(null? s_442)" "(values)" "(raise-syntax-error$1" " #f" @@ -45652,10 +45779,10 @@ static const char *startup_source = " (raise-syntax-error$1 #f \"bad syntax\" orig-s_35)))))" "(values #t #%require176_1 req177_1))))))" "(let-values(((temp181_0)(list req177_0))" -"((s182_0) s_437)" +"((s182_0) s_438)" "((ns183_0) ns_111)" -"((phase184_1) phase_139)" -"((phase185_1) phase_139)" +"((phase184_1) phase_140)" +"((phase185_1) phase_140)" "((temp186_0)(let-values(((temp188_0) #f))(make-requires+provides8.1 #f #f temp188_0)))" "((temp187_0) 'require))" "(parse-and-perform-requires!30.1" @@ -45697,48 +45824,48 @@ static const char *startup_source = "(lifted-parsed-begin30.1" "(append" "(reverse$1" -"(let-values(((lst_305) require-lifts_6))" +"(let-values(((lst_308) require-lifts_6))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_305)))" -"((letrec-values(((for-loop_267)" -"(lambda(fold-var_278 lst_306)" +"(let-values()(check-list lst_308)))" +"((letrec-values(((for-loop_269)" +"(lambda(fold-var_281 lst_309)" "(begin" " 'for-loop" -"(if(pair? lst_306)" -"(let-values(((req_19)(unsafe-car lst_306))" -"((rest_172)(unsafe-cdr lst_306)))" -"(let-values(((fold-var_279)" -"(let-values(((fold-var_280) fold-var_278))" -"(let-values(((fold-var_281)" +"(if(pair? lst_309)" +"(let-values(((req_19)(unsafe-car lst_309))" +"((rest_173)(unsafe-cdr lst_309)))" +"(let-values(((fold-var_282)" +"(let-values(((fold-var_283) fold-var_281))" +"(let-values(((fold-var_284)" "(let-values()" "(cons" "(let-values()" "(parsed-require23.1 req_19))" -" fold-var_280))))" -"(values fold-var_281)))))" -"(if(not #f)(for-loop_267 fold-var_279 rest_172) fold-var_279)))" -" fold-var_278)))))" -" for-loop_267)" +" fold-var_283))))" +"(values fold-var_284)))))" +"(if(not #f)(for-loop_269 fold-var_282 rest_173) fold-var_282)))" +" fold-var_281)))))" +" for-loop_269)" " null" -" lst_305))))" +" lst_308))))" "(reverse$1" -"(let-values(((lst_307)(get-lifts-as-lists lifts_12)))" +"(let-values(((lst_310)(get-lifts-as-lists lifts_12)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_307)))" -"((letrec-values(((for-loop_268)" -"(lambda(fold-var_282 lst_308)" +"(let-values()(check-list lst_310)))" +"((letrec-values(((for-loop_270)" +"(lambda(fold-var_285 lst_311)" "(begin" " 'for-loop" -"(if(pair? lst_308)" -"(let-values(((ids+syms+rhs_0)(unsafe-car lst_308))" -"((rest_173)(unsafe-cdr lst_308)))" -"(let-values(((fold-var_283)" -"(let-values(((fold-var_284) fold-var_282))" -"(let-values(((fold-var_285)" +"(if(pair? lst_311)" +"(let-values(((ids+syms+rhs_0)(unsafe-car lst_311))" +"((rest_174)(unsafe-cdr lst_311)))" +"(let-values(((fold-var_286)" +"(let-values(((fold-var_287) fold-var_285))" +"(let-values(((fold-var_288)" "(let-values()" "(cons" "(let-values()" @@ -45762,28 +45889,28 @@ static const char *startup_source = " just-rhs_0)))" "(if(lifted-parsed-begin?" " exp-rhs_3)" -"(let-values(((the-struct_74)" +"(let-values(((the-struct_73)" " exp-rhs_3))" "(if(lifted-parsed-begin?" -" the-struct_74)" +" the-struct_73)" "(let-values(((last189_0)" " dv_0))" "(lifted-parsed-begin30.1" "(lifted-parsed-begin-seq" -" the-struct_74)" +" the-struct_73)" " last189_0))" "(raise-argument-error" " 'struct-copy" " \"lifted-parsed-begin?\"" -" the-struct_74)))" +" the-struct_73)))" " dv_0)))))" -" fold-var_284))))" -"(values fold-var_285)))))" -"(if(not #f)(for-loop_268 fold-var_283 rest_173) fold-var_283)))" -" fold-var_282)))))" -" for-loop_268)" +" fold-var_287))))" +"(values fold-var_288)))))" +"(if(not #f)(for-loop_270 fold-var_286 rest_174) fold-var_286)))" +" fold-var_285)))))" +" for-loop_270)" " null" -" lst_307)))))" +" lst_310)))))" " exp-s_10))))))))))" "(define-values" "(log-top-lift-begin-before)" @@ -45810,15 +45937,15 @@ static const char *startup_source = "(let-values(((s_130) new-s_7))" "(let-values(((orig-s_36) s_130))" "(let-values(((begin193_1 e194_1)" -"(let-values(((s_442)(if(syntax?$1 s_130)(syntax-e$1 s_130) s_130)))" -"(if(pair? s_442)" -"(let-values(((begin195_0)(let-values(((s_443)(car s_442))) s_443))" +"(let-values(((s_443)(if(syntax?$1 s_130)(syntax-e$1 s_130) s_130)))" +"(if(pair? s_443)" +"(let-values(((begin195_0)(let-values(((s_444)(car s_443))) s_444))" "((e196_0)" -"(let-values(((s_444)(cdr s_442)))" +"(let-values(((s_445)(cdr s_443)))" "(let-values(((s_132)" -"(if(syntax?$1 s_444)" -"(syntax-e$1 s_444)" -" s_444)))" +"(if(syntax?$1 s_445)" +"(syntax-e$1 s_445)" +" s_445)))" "(let-values(((flat-s_22)(to-syntax-list.1 s_132)))" "(if(not flat-s_22)" "(let-values()" @@ -45845,19 +45972,19 @@ static const char *startup_source = "(if obs_55" "(let-values()" "(let-values(((ok?_30 begin197_0 e198_0)" -"(let-values(((s_445) new-s_8))" -"(let-values(((orig-s_37) s_445))" +"(let-values(((s_446) new-s_8))" +"(let-values(((orig-s_37) s_446))" "(let-values(((begin197_1 e198_1)" -"(let-values(((s_446)(if(syntax?$1 s_445)(syntax-e$1 s_445) s_445)))" -"(if(pair? s_446)" -"(let-values(((begin199_0)(let-values(((s_447)(car s_446))) s_447))" +"(let-values(((s_447)(if(syntax?$1 s_446)(syntax-e$1 s_446) s_446)))" +"(if(pair? s_447)" +"(let-values(((begin199_0)(let-values(((s_448)(car s_447))) s_448))" "((e200_0)" -"(let-values(((s_448)(cdr s_446)))" -"(let-values(((s_449)" -"(if(syntax?$1 s_448)" -"(syntax-e$1 s_448)" -" s_448)))" -"(let-values(((flat-s_23)(to-syntax-list.1 s_449)))" +"(let-values(((s_449)(cdr s_447)))" +"(let-values(((s_450)" +"(if(syntax?$1 s_449)" +"(syntax-e$1 s_449)" +" s_449)))" +"(let-values(((flat-s_23)(to-syntax-list.1 s_450)))" "(if(not flat-s_23)" "(let-values()" "(raise-syntax-error$1" @@ -45911,8 +46038,8 @@ static const char *startup_source = "(let-values(((or-part_6)(not sym_82)))" "(if or-part_6" " or-part_6" -"(let-values(((or-part_288)(equal? sym_82 0)))" -"(if or-part_288 or-part_288(void? sym_82)))))))" +"(let-values(((or-part_289)(equal? sym_82 0)))" +"(if or-part_289 or-part_289(void? sym_82)))))))" "(void)" "(let-values()" " (raise-argument-error who_22 \"(or/c symbol? #f 0 void?)\" sym_82)))" @@ -45936,13 +46063,13 @@ static const char *startup_source = "(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_140)(namespace-phase ns_58)))" +"(let-values(((phase_141)(namespace-phase ns_58)))" "(if(not sym_82)" "(let-values()" "(let-values(((ns20_1) ns_58)" "((mpi21_0) mpi_49)" -"((phase22_0) phase_140)" -"((phase23_1) phase_140)" +"((phase22_0) phase_141)" +"((phase23_1) phase_141)" "((temp24_4) #f))" "(namespace-module-instantiate!96.1" " temp24_4" @@ -45960,8 +46087,8 @@ static const char *startup_source = "(let-values()" "(let-values(((ns25_2) ns_58)" "((mpi26_0) mpi_49)" -"((phase27_1) phase_140)" -"((phase28_1) phase_140))" +"((phase27_1) phase_141)" +"((phase28_1) phase_141))" "(namespace-module-instantiate!96.1" " #f" " #f" @@ -45978,8 +46105,8 @@ static const char *startup_source = "(let-values()" "(let-values(((ns29_0) ns_58)" "((mpi30_0) mpi_49)" -"((phase31_1) phase_140)" -"((phase32_3) phase_140))" +"((phase31_1) phase_141)" +"((phase32_3) phase_141))" "(namespace-module-visit!104.1" " phase32_3" " #t" @@ -46024,9 +46151,9 @@ static const char *startup_source = "(begin" "(let-values(((ns33_0) ns_58)" "((mpi34_0) mpi_49)" -"((phase35_1) phase_140)" +"((phase35_1) phase_141)" "((phase36_0)" -" phase_140))" +" phase_141))" "(namespace-module-instantiate!96.1" " #f" " #f" @@ -46052,7 +46179,7 @@ static const char *startup_source = " ex-mod-name_0)" "((temp39_4)" "(phase-" -" phase_140" +" phase_141" " ex-phase_0))" "((temp40_2) #t))" "(namespace->module-namespace82.1" @@ -46149,9 +46276,9 @@ static const char *startup_source = "((mpi42_1)" " mpi_49)" "((phase43_2)" -" phase_140)" +" phase_141)" "((phase44_0)" -" phase_140))" +" phase_141))" "(namespace-module-visit!104.1" " phase44_0" " #t" @@ -46264,12 +46391,12 @@ static const char *startup_source = "(let-values()" "(make-parameter" "(replace-me 'current-compile)" -"(lambda(p_30)" +"(lambda(p_31)" "(begin" -"(if((lambda(p_52)(if(procedure? p_52)(procedure-arity-includes? p_52 2) #f)) p_30)" +"(if((lambda(p_52)(if(procedure? p_52)(procedure-arity-includes? p_52 2) #f)) p_31)" "(void)" -" (let-values () (raise-argument-error 'current-compile \"(procedure-arity-includes/c 2)\" p_30)))" -" p_30))))))" +" (let-values () (raise-argument-error 'current-compile \"(procedure-arity-includes/c 2)\" p_31)))" +" p_31))))))" "(define-values" "(1/current-load)" "(let-values()" @@ -46288,12 +46415,12 @@ static const char *startup_source = "(let-values()" "(make-parameter" "(replace-me 'current-load/use-compiled)" -"(lambda(p_35)" +"(lambda(p_36)" "(begin" -"(if((lambda(p_47)(if(procedure? p_47)(procedure-arity-includes? p_47 2) #f)) p_35)" +"(if((lambda(p_48)(if(procedure? p_48)(procedure-arity-includes? p_48 2) #f)) p_36)" "(void)" -" (let-values () (raise-argument-error 'current-load/use-compiled \"(procedure-arity-includes/c 2)\" p_35)))" -" p_35))))))" +" (let-values () (raise-argument-error 'current-load/use-compiled \"(procedure-arity-includes/c 2)\" p_36)))" +" p_36))))))" "(define-values" "(1/current-library-collection-paths)" "(let-values()" @@ -46322,28 +46449,28 @@ static const char *startup_source = "(if(list? l_8)" "(andmap2" "(lambda(p_55)" -"(let-values(((or-part_280)(not p_55)))" -"(if or-part_280" -" or-part_280" -"(let-values(((or-part_281)(complete-path-string? p_55)))" +"(let-values(((or-part_281)(not p_55)))" "(if or-part_281" " or-part_281" +"(let-values(((or-part_282)(complete-path-string? p_55)))" +"(if or-part_282" +" or-part_282" "(if(hash? p_55)" "(let-values(((ht_151) p_55))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-hash ht_151)))" -"((letrec-values(((for-loop_183)" -"(lambda(result_115 i_90)" +"((letrec-values(((for-loop_184)" +"(lambda(result_119 i_90)" "(begin" " 'for-loop" "(if i_90" "(let-values(((k_35 v_3)" "(hash-iterate-key+value ht_151 i_90)))" -"(let-values(((result_116)" +"(let-values(((result_120)" "(let-values()" -"(let-values(((result_117)" +"(let-values(((result_121)" "(let-values()" "(let-values()" "(if(let-values(((or-part_79)" @@ -46362,16 +46489,16 @@ static const char *startup_source = " v_3)" " #f)" " #f)))))" -"(values result_117)))))" -"(if(if(not((lambda x_77(not result_116)) k_35 v_3))" +"(values result_121)))))" +"(if(if(not((lambda x_80(not result_120)) k_35 v_3))" "(not #f)" " #f)" -"(for-loop_183" -" result_116" +"(for-loop_184" +" result_120" "(hash-iterate-next ht_151 i_90))" -" result_116)))" -" result_115)))))" -" for-loop_183)" +" result_120)))" +" result_119)))))" +" for-loop_184)" " #t" "(hash-iterate-first ht_151))))" " #f))))))" @@ -46402,7 +46529,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-hash ht_152)))" -"((letrec-values(((for-loop_269)" +"((letrec-values(((for-loop_271)" "(lambda(table_220 i_91)" "(begin" " 'for-loop" @@ -46423,10 +46550,10 @@ static const char *startup_source = " val_78)))))" "(values table_222)))))" "(if(not #f)" -"(for-loop_269 table_221(hash-iterate-next ht_152 i_91))" +"(for-loop_271 table_221(hash-iterate-next ht_152 i_91))" " table_221)))" " table_220)))))" -" for-loop_269)" +" for-loop_271)" " '#hash()" "(hash-iterate-first ht_152)))))))))" " l_71)))))))" @@ -46515,9 +46642,9 @@ static const char *startup_source = "(call-with-current-load-relative-directory p_61(lambda()((current-load-extension) p_61 #f))))))))))" "(define-values" "(call-with-current-load-relative-directory)" -"(lambda(p_30 thunk_4)" +"(lambda(p_31 thunk_4)" "(begin" -"(let-values(((base_18 name_62 dir?_2)(split-path p_30)))" +"(let-values(((base_18 name_62 dir?_2)(split-path p_31)))" "(with-continuation-mark" " parameterization-key" "(extend-parameterization" @@ -46538,22 +46665,22 @@ static const char *startup_source = "(void)" " (let-values () (raise-argument-error 'load/use-compiled \"path-string?\" f_24)))" "(values))))" -"(let-values(((p_47)(->path f_24)))((1/current-load/use-compiled) p_47 #f))))))))" +"(let-values(((p_48)(->path f_24)))((1/current-load/use-compiled) p_48 #f))))))))" "(define-values" "(embedded-load)" "(lambda(start_42 end_32 str_23 as-predefined?_0)" "(begin" -"(let-values(((s_162)" +"(let-values(((s_163)" "(if str_23" " str_23" "(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_281)(1/string->number start_42)))" -"(if or-part_281 or-part_281 0))))" +"(let-values(((or-part_282)(1/string->number start_42)))" +"(if or-part_282 or-part_282 0))))" "(let-values(((end_33)" -"(let-values(((or-part_286)(1/string->number end_32)))" -"(if or-part_286 or-part_286 0))))" +"(let-values(((or-part_287)(1/string->number end_32)))" +"(if or-part_287 or-part_287 0))))" "(let-values(((exe4_0) exe_0)" "((temp5_5)" "(lambda()" @@ -46563,12 +46690,12 @@ static const char *startup_source = "(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_162)))" +"(let-values(((p_62)(open-input-bytes s_163)))" "((letrec-values(((loop_66)" "(lambda()" "(begin" " 'loop" -"(let-values(((e_77)" +"(let-values(((e_78)" "(with-continuation-mark" " parameterization-key" "(extend-parameterization" @@ -46582,7 +46709,7 @@ static const char *startup_source = " read-on-demand-source" " #t)" "(let-values()(1/read p_62)))))" -"(if(eof-object? e_77)" +"(if(eof-object? e_78)" "(void)" "(let-values()" "(begin" @@ -46592,7 +46719,7 @@ 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_78)))" "(loop_66)))))))))" " loop_66)))))))" "(define-values(->path)(lambda(s_75)(begin(if(string? s_75)(string->path s_75) s_75))))" @@ -46624,12 +46751,12 @@ static const char *startup_source = "(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_25 s_179 l_4)" +"(lambda(who_25 s_180 l_4)" "(begin" "(begin" -"(if(relative-path-string? s_179)" +"(if(relative-path-string? s_180)" "(void)" -" (let-values () (raise-argument-error who_25 \"(and/c path-string? relative-path?)\" s_179)))" +" (let-values () (raise-argument-error who_25 \"(and/c path-string? relative-path?)\" s_180)))" "(if((lambda(l_2)(if(list? l_2)(andmap2 relative-path-string? l_2) #f)) l_4)" "(void)" " (let-values () (raise-argument-error who_25 \"(listof (and/c path-string? relative-path?))\" l_4)))))))" @@ -46671,7 +46798,7 @@ static const char *startup_source = "(lambda(d_33)" "(begin" " (let-values (((p_63) (if d_33 (build-path d_33 \"config.rktd\") #f)))" -"(let-values(((or-part_279)" +"(let-values(((or-part_280)" "(if p_63" "(if(file-exists? p_63)" "(let-values(((p9_0) p_63)" @@ -46684,7 +46811,7 @@ static const char *startup_source = "(with-input-from-file45.1 #f #f p9_0 temp10_4))" " #f)" " #f)))" -"(if or-part_279 or-part_279 '#hash()))))))" +"(if or-part_280 or-part_280 '#hash()))))))" "(define-values" "(get-installation-name)" "(lambda(config-table_0)(begin(hash-ref config-table_0 'installation-name(version)))))" @@ -46883,17 +47010,17 @@ static const char *startup_source = "(if(list? p_67)" "(if(let-values(((or-part_219)(= 2(length p_67))))" "(if or-part_219 or-part_219(= 3(length p_67))))" -"(if(let-values(((or-part_289)(string?(car p_67))))" -"(if or-part_289" -" or-part_289" -"(let-values(((or-part_290)" -"(eq? 'root(car p_67))))" +"(if(let-values(((or-part_290)(string?(car p_67))))" "(if or-part_290" " or-part_290" +"(let-values(((or-part_291)" +"(eq? 'root(car p_67))))" +"(if or-part_291" +" or-part_291" "(eq? 'static-root(car p_67))))))" "(if(path-string?(cadr p_67))" -"(let-values(((or-part_291)(null?(cddr p_67))))" -"(if or-part_291 or-part_291(regexp?(caddr p_67))))" +"(let-values(((or-part_292)(null?(cddr p_67))))" +"(if or-part_292 or-part_292(regexp?(caddr p_67))))" " #f)" " #f)" " #f)" @@ -46910,8 +47037,8 @@ static const char *startup_source = "(begin" "(for-each2" "(lambda(p_68)" -"(if(let-values(((or-part_292)(null?(cddr p_68))))" -"(if or-part_292 or-part_292(regexp-match?(caddr p_68)(version))))" +"(if(let-values(((or-part_293)(null?(cddr p_68))))" +"(if or-part_293 or-part_293(regexp-match?(caddr p_68)(version))))" "(let-values()" "(let-values(((dir_1)" "(simplify-path(path->complete-path(cadr p_68) dir_0))))" @@ -47009,8 +47136,8 @@ static const char *startup_source = "(lambda(p_69 c_55)" "(begin '*build-path-rep(if(path? p_69)(build-path p_69 c_55)(unbox p_69))))))" "(let-values(((*directory-exists?_0)" -"(lambda(orig_0 p_46)" -"(begin '*directory-exists?(if(path? orig_0)(directory-exists? p_46) #t)))))" +"(lambda(orig_0 p_47)" +"(begin '*directory-exists?(if(path? orig_0)(directory-exists? p_47) #t)))))" "(let-values(((to-string_0)" "(lambda(p_70)(begin 'to-string(if(path? p_70)(path->string p_70) p_70)))))" "((letrec-values(((cloop_0)" @@ -47056,17 +47183,17 @@ static const char *startup_source = " string-append" "(map2" " (lambda (p_71) (format \"\\n ~a ~a\" \" \" p_71))" -"(let-values(((len_34)(length all-paths_0))" +"(let-values(((len_35)(length all-paths_0))" "((clen_0)" "(length(1/current-library-collection-paths))))" -"(if(<(- len_34 clen_0) 5)" +"(if(<(- len_35 clen_0) 5)" " all-paths_0" "(append" "(1/current-library-collection-paths)" "(list" "(format" " \"... [~a additional linked and package directories]\"" -"(- len_34 clen_0))))))))" +"(- len_35 clen_0))))))))" "(if(ormap2 box? all-paths_0)" "(format" " \"\\n sub-collection: ~s\\n in parent directories:~a\"" @@ -47082,31 +47209,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_138)" +"(if(let-values(((or-part_140)" "(file-exists?/maybe-compiled" " cpath_0" " file-name_1" " check-compiled?_1)))" -"(if or-part_138" -" or-part_138" +"(if or-part_140" +" or-part_140" "(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_35)" +"(let-values(((len_36)" "(string-length file-name_2)))" -"(if(>= len_35 4)" +"(if(>= len_36 4)" "(if(string=?" " \".rkt\"" "(substring" " file-name_2" -"(- len_35 4)))" +"(- len_36 4)))" "(string-append" "(substring" " file-name_2" " 0" -"(- len_35 4))" +"(- len_36 4))" " \".ss\")" " #f)" " #f)))))" @@ -47119,8 +47246,8 @@ static const char *startup_source = "(done_1 cpath_0)" "(cloop_0" "(cdr paths_1)" -"(let-values(((or-part_140) found-col_0))" -"(if or-part_140 or-part_140 cpath_0))))" +"(let-values(((or-part_97) found-col_0))" +"(if or-part_97 or-part_97 cpath_0))))" "(done_1 cpath_0))" "(cloop_0(cdr paths_1) found-col_0)))" "(cloop_0(cdr paths_1) found-col_0))))))))" @@ -47131,9 +47258,9 @@ static const char *startup_source = "(file-exists?/maybe-compiled)" "(lambda(dir_3 path_10 check-compiled?_2)" "(begin" -"(let-values(((or-part_293)(file-exists?(build-path dir_3 path_10))))" -"(if or-part_293" -" or-part_293" +"(let-values(((or-part_294)(file-exists?(build-path dir_3 path_10))))" +"(if or-part_294" +" or-part_294" "(if check-compiled?_2" " (let-values (((try-path_0) (path-add-extension path_10 #\".zo\"))" "((modes_0)(1/use-compiled-file-paths))" @@ -47218,8 +47345,8 @@ static const char *startup_source = " #f" "(lambda(v_203)" "(begin" -"(if((lambda(x_78)" -"(let-values(((or-part_11)(not x_78)))(if or-part_11 or-part_11(prop:readtable? x_78))))" +"(if((lambda(x_81)" +"(let-values(((or-part_11)(not x_81)))(if or-part_11 or-part_11(prop:readtable? x_81))))" " v_203)" "(void)" " (let-values () (raise-argument-error 'current-readtable \"(or/c prop:readtable? #f)\" v_203)))" @@ -47235,7 +47362,7 @@ static const char *startup_source = " read-config/outer-pos" " read-config/outer-indentations" " read-config/outer-keep-comment?)" -"(let-values(((struct:_31 make-_31 ?_31 -ref_31 -set!_31)" +"(let-values(((struct:_32 make-_32 ?_32 -ref_32 -set!_32)" "(let-values()" "(let-values()" "(make-struct-type" @@ -47251,16 +47378,16 @@ static const char *startup_source = " #f" " 'read-config/outer)))))" "(values" -" struct:_31" -" make-_31" -" ?_31" -"(make-struct-field-accessor -ref_31 0 'inner)" -"(make-struct-field-accessor -ref_31 1 'wrap)" -"(make-struct-field-accessor -ref_31 2 'line)" -"(make-struct-field-accessor -ref_31 3 'col)" -"(make-struct-field-accessor -ref_31 4 'pos)" -"(make-struct-field-accessor -ref_31 5 'indentations)" -"(make-struct-field-accessor -ref_31 6 'keep-comment?))))" +" struct:_32" +" make-_32" +" ?_32" +"(make-struct-field-accessor -ref_32 0 'inner)" +"(make-struct-field-accessor -ref_32 1 'wrap)" +"(make-struct-field-accessor -ref_32 2 'line)" +"(make-struct-field-accessor -ref_32 3 'col)" +"(make-struct-field-accessor -ref_32 4 'pos)" +"(make-struct-field-accessor -ref_32 5 'indentations)" +"(make-struct-field-accessor -ref_32 6 'keep-comment?))))" "(define-values" "(struct:read-config/inner" " read-config/inner2.1" @@ -47277,7 +47404,7 @@ static const char *startup_source = " read-config/inner-parameter-override" " read-config/inner-parameter-cache" " read-config/inner-st)" -"(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" @@ -47293,21 +47420,21 @@ static const char *startup_source = " #f" " 'read-config/inner)))))" "(values" -" struct:_74" -" make-_74" -" ?_74" -"(make-struct-field-accessor -ref_74 0 'readtable)" -"(make-struct-field-accessor -ref_74 1 'next-readtable)" -"(make-struct-field-accessor -ref_74 2 'for-syntax?)" -"(make-struct-field-accessor -ref_74 3 'source)" -"(make-struct-field-accessor -ref_74 4 'read-compiled)" -"(make-struct-field-accessor -ref_74 5 'dynamic-require)" -"(make-struct-field-accessor -ref_74 6 'module-declared?)" -"(make-struct-field-accessor -ref_74 7 'coerce)" -"(make-struct-field-accessor -ref_74 8 'coerce-key)" -"(make-struct-field-accessor -ref_74 9 'parameter-override)" -"(make-struct-field-accessor -ref_74 10 'parameter-cache)" -"(make-struct-field-accessor -ref_74 11 'st))))" +" struct:_75" +" make-_75" +" ?_75" +"(make-struct-field-accessor -ref_75 0 'readtable)" +"(make-struct-field-accessor -ref_75 1 'next-readtable)" +"(make-struct-field-accessor -ref_75 2 'for-syntax?)" +"(make-struct-field-accessor -ref_75 3 'source)" +"(make-struct-field-accessor -ref_75 4 'read-compiled)" +"(make-struct-field-accessor -ref_75 5 'dynamic-require)" +"(make-struct-field-accessor -ref_75 6 'module-declared?)" +"(make-struct-field-accessor -ref_75 7 'coerce)" +"(make-struct-field-accessor -ref_75 8 'coerce-key)" +"(make-struct-field-accessor -ref_75 9 'parameter-override)" +"(make-struct-field-accessor -ref_75 10 'parameter-cache)" +"(make-struct-field-accessor -ref_75 11 'st))))" "(define-values" "(read-config/make)" "(lambda(readtable_0" @@ -47393,7 +47520,7 @@ static const char *startup_source = " read-config-state-graph" " set-read-config-state-accum-str!" " set-read-config-state-graph!)" -"(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" @@ -47409,13 +47536,13 @@ static const char *startup_source = " #f" " 'read-config-state)))))" "(values" -" struct:_75" -" make-_75" -" ?_75" -"(make-struct-field-accessor -ref_75 0 'accum-str)" -"(make-struct-field-accessor -ref_75 1 'graph)" -"(make-struct-field-mutator -set!_75 0 'accum-str)" -"(make-struct-field-mutator -set!_75 1 'graph))))" +" struct:_76" +" make-_76" +" ?_76" +"(make-struct-field-accessor -ref_76 0 'accum-str)" +"(make-struct-field-accessor -ref_76 1 'graph)" +"(make-struct-field-mutator -set!_76 0 'accum-str)" +"(make-struct-field-mutator -set!_76 1 'graph))))" "(define-values(current-read-config)(make-parameter #f))" "(define-values" "(make-read-config26.1)" @@ -47463,14 +47590,14 @@ static const char *startup_source = " 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_294) dynamic-require_1))" -"(if or-part_294" -" or-part_294" -"(lambda(mod-path_25 sym_91 failure-k_0)" -" (error 'read \"no `dynamic-require` provided\"))))" -"(let-values(((or-part_295) module-declared?_1))" +"(let-values(((or-part_295) dynamic-require_1))" "(if or-part_295" " or-part_295" +"(lambda(mod-path_25 sym_91 failure-k_0)" +" (error 'read \"no `dynamic-require` provided\"))))" +"(let-values(((or-part_296) module-declared?_1))" +"(if or-part_296" +" or-part_296" " (lambda (mod-path_26) (error 'read \"no `module-declare?` provided\"))))" "(let-values(((or-part_214) coerce_1))" "(if or-part_214 or-part_214(lambda(for-syntax?_2 v_110 srcloc_9) v_110)))" @@ -47506,13 +47633,13 @@ static const char *startup_source = "(let-values(((keep-comment?_2) keep-comment?34_0))" "(let-values()" "(let-values(((v_217) config_0))" -"(let-values(((the-struct_75) v_217))" -"(if(read-config/outer? the-struct_75)" +"(let-values(((the-struct_74) v_217))" +"(if(read-config/outer? the-struct_74)" "(let-values(((wrap55_0) wrap_5)" "((keep-comment?56_0) keep-comment?_2)" "((inner57_0)" -"(let-values(((the-struct_76)(read-config/outer-inner v_217)))" -"(if(read-config/inner? the-struct_76)" +"(let-values(((the-struct_75)(read-config/outer-inner v_217)))" +"(if(read-config/inner? the-struct_75)" "(let-values(((for-syntax?58_0) for-syntax?_4)" "((readtable59_0) readtable_2)" "((next-readtable60_0) next-readtable_2)" @@ -47524,25 +47651,25 @@ static const char *startup_source = " readtable59_0" " next-readtable60_0" " for-syntax?58_0" -"(read-config/inner-source the-struct_76)" -"(read-config/inner-read-compiled the-struct_76)" -"(read-config/inner-dynamic-require the-struct_76)" -"(read-config/inner-module-declared? the-struct_76)" -"(read-config/inner-coerce the-struct_76)" -"(read-config/inner-coerce-key the-struct_76)" -"(read-config/inner-parameter-override the-struct_76)" -"(read-config/inner-parameter-cache the-struct_76)" +"(read-config/inner-source the-struct_75)" +"(read-config/inner-read-compiled the-struct_75)" +"(read-config/inner-dynamic-require the-struct_75)" +"(read-config/inner-module-declared? the-struct_75)" +"(read-config/inner-coerce the-struct_75)" +"(read-config/inner-coerce-key the-struct_75)" +"(read-config/inner-parameter-override the-struct_75)" +"(read-config/inner-parameter-cache the-struct_75)" " st61_0))" -" (raise-argument-error 'struct-copy \"read-config/inner?\" the-struct_76)))))" +" (raise-argument-error 'struct-copy \"read-config/inner?\" the-struct_75)))))" "(read-config/outer1.1" " inner57_0" " wrap55_0" -"(read-config/outer-line the-struct_75)" -"(read-config/outer-col the-struct_75)" -"(read-config/outer-pos the-struct_75)" -"(read-config/outer-indentations the-struct_75)" +"(read-config/outer-line the-struct_74)" +"(read-config/outer-col the-struct_74)" +"(read-config/outer-pos the-struct_74)" +"(read-config/outer-indentations the-struct_74)" " keep-comment?56_0))" -" (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_75)))))))))))))))" +" (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_74)))))))))))))))" "(define-values" "(port+config->srcloc49.1)" "(lambda(end-pos45_0 end-pos46_0 in47_0 config48_0)" @@ -47553,16 +47680,16 @@ static const char *startup_source = "(let-values(((given-end-pos_0)(if end-pos46_0 end-pos45_0 #f)))" "(let-values()" "(let-values(((end-pos_0)" -"(let-values(((or-part_296) given-end-pos_0))" -"(if or-part_296" -" or-part_296" +"(let-values(((or-part_297) given-end-pos_0))" +"(if or-part_297" +" or-part_297" "(let-values(((end-line_0 end-col_0 end-pos_1)(port-next-location in_1)))" " end-pos_1)))))" "(srcloc" "(let-values(((or-part_173)(read-config-source config_1)))" "(if or-part_173" " or-part_173" -" (let-values (((or-part_297) (object-name in_1))) (if or-part_297 or-part_297 \"UNKNOWN\"))))" +" (let-values (((or-part_298) (object-name in_1))) (if or-part_298 or-part_298 \"UNKNOWN\"))))" "(read-config-line config_1)" "(read-config-col config_1)" "(read-config-pos config_1)" @@ -47574,55 +47701,55 @@ static const char *startup_source = "(lambda(config_2 line_2 col_1 pos_108)" "(begin" "(let-values(((v_218) config_2))" -"(let-values(((the-struct_77) v_218))" -"(if(read-config/outer? the-struct_77)" +"(let-values(((the-struct_76) v_218))" +"(if(read-config/outer? the-struct_76)" "(let-values(((line62_0) line_2)" "((col63_0) col_1)" "((pos64_0) pos_108)" "((inner65_0)(read-config/outer-inner v_218)))" "(read-config/outer1.1" " inner65_0" -"(read-config/outer-wrap the-struct_77)" +"(read-config/outer-wrap the-struct_76)" " line62_0" " col63_0" " pos64_0" -"(read-config/outer-indentations the-struct_77)" -"(read-config/outer-keep-comment? the-struct_77)))" -" (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_77)))))))" +"(read-config/outer-indentations the-struct_76)" +"(read-config/outer-keep-comment? the-struct_76)))" +" (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_76)))))))" "(define-values" "(disable-wrapping)" "(lambda(config_3)" "(begin" "(let-values(((v_219) config_3))" -"(let-values(((the-struct_78) v_219))" -"(if(read-config/outer? the-struct_78)" +"(let-values(((the-struct_77) v_219))" +"(if(read-config/outer? the-struct_77)" "(let-values(((wrap66_0) #f)((inner67_0)(read-config/outer-inner v_219)))" "(read-config/outer1.1" " inner67_0" " wrap66_0" -"(read-config/outer-line the-struct_78)" -"(read-config/outer-col the-struct_78)" -"(read-config/outer-pos the-struct_78)" -"(read-config/outer-indentations the-struct_78)" -"(read-config/outer-keep-comment? the-struct_78)))" -" (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_78)))))))" +"(read-config/outer-line the-struct_77)" +"(read-config/outer-col the-struct_77)" +"(read-config/outer-pos the-struct_77)" +"(read-config/outer-indentations the-struct_77)" +"(read-config/outer-keep-comment? the-struct_77)))" +" (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_77)))))))" "(define-values" "(keep-comment)" "(lambda(config_4)" "(begin" "(let-values(((v_220) config_4))" -"(let-values(((the-struct_79) v_220))" -"(if(read-config/outer? the-struct_79)" +"(let-values(((the-struct_78) v_220))" +"(if(read-config/outer? the-struct_78)" "(let-values(((keep-comment?68_0) #t)((inner69_0)(read-config/outer-inner v_220)))" "(read-config/outer1.1" " inner69_0" -"(read-config/outer-wrap the-struct_79)" -"(read-config/outer-line the-struct_79)" -"(read-config/outer-col the-struct_79)" -"(read-config/outer-pos the-struct_79)" -"(read-config/outer-indentations the-struct_79)" +"(read-config/outer-wrap the-struct_78)" +"(read-config/outer-line the-struct_78)" +"(read-config/outer-col the-struct_78)" +"(read-config/outer-pos the-struct_78)" +"(read-config/outer-indentations the-struct_78)" " keep-comment?68_0))" -" (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_79)))))))" +" (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_78)))))))" "(define-values" "(discard-comment)" "(lambda(config_5)" @@ -47631,18 +47758,18 @@ static const char *startup_source = "(let-values() config_5)" "(let-values()" "(let-values(((v_221) config_5))" -"(let-values(((the-struct_80) v_221))" -"(if(read-config/outer? the-struct_80)" +"(let-values(((the-struct_79) v_221))" +"(if(read-config/outer? the-struct_79)" "(let-values(((keep-comment?70_0) #f)((inner71_0)(read-config/outer-inner v_221)))" "(read-config/outer1.1" " inner71_0" -"(read-config/outer-wrap the-struct_80)" -"(read-config/outer-line the-struct_80)" -"(read-config/outer-col the-struct_80)" -"(read-config/outer-pos the-struct_80)" -"(read-config/outer-indentations the-struct_80)" +"(read-config/outer-wrap the-struct_79)" +"(read-config/outer-line the-struct_79)" +"(read-config/outer-col the-struct_79)" +"(read-config/outer-pos the-struct_79)" +"(read-config/outer-indentations the-struct_79)" " keep-comment?70_0))" -" (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_80)))))))))" +" (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_79)))))))))" "(define-values" "(next-readtable)" "(lambda(config_6)" @@ -47651,35 +47778,35 @@ static const char *startup_source = "(let-values() config_6)" "(let-values()" "(let-values(((v_222) config_6))" -"(let-values(((the-struct_81) v_222))" -"(if(read-config/outer? the-struct_81)" +"(let-values(((the-struct_80) v_222))" +"(if(read-config/outer? the-struct_80)" "(let-values(((inner72_1)" -"(let-values(((the-struct_82)(read-config/outer-inner v_222)))" -"(if(read-config/inner? the-struct_82)" +"(let-values(((the-struct_81)(read-config/outer-inner v_222)))" +"(if(read-config/inner? the-struct_81)" "(let-values(((readtable73_0)(read-config-next-readtable config_6)))" "(read-config/inner2.1" " readtable73_0" -"(read-config/inner-next-readtable the-struct_82)" -"(read-config/inner-for-syntax? the-struct_82)" -"(read-config/inner-source the-struct_82)" -"(read-config/inner-read-compiled the-struct_82)" -"(read-config/inner-dynamic-require the-struct_82)" -"(read-config/inner-module-declared? the-struct_82)" -"(read-config/inner-coerce the-struct_82)" -"(read-config/inner-coerce-key the-struct_82)" -"(read-config/inner-parameter-override the-struct_82)" -"(read-config/inner-parameter-cache the-struct_82)" -"(read-config/inner-st the-struct_82)))" -" (raise-argument-error 'struct-copy \"read-config/inner?\" the-struct_82)))))" +"(read-config/inner-next-readtable the-struct_81)" +"(read-config/inner-for-syntax? the-struct_81)" +"(read-config/inner-source the-struct_81)" +"(read-config/inner-read-compiled the-struct_81)" +"(read-config/inner-dynamic-require the-struct_81)" +"(read-config/inner-module-declared? the-struct_81)" +"(read-config/inner-coerce the-struct_81)" +"(read-config/inner-coerce-key the-struct_81)" +"(read-config/inner-parameter-override the-struct_81)" +"(read-config/inner-parameter-cache the-struct_81)" +"(read-config/inner-st the-struct_81)))" +" (raise-argument-error 'struct-copy \"read-config/inner?\" the-struct_81)))))" "(read-config/outer1.1" " inner72_1" -"(read-config/outer-wrap the-struct_81)" -"(read-config/outer-line the-struct_81)" -"(read-config/outer-col the-struct_81)" -"(read-config/outer-pos the-struct_81)" -"(read-config/outer-indentations the-struct_81)" -"(read-config/outer-keep-comment? the-struct_81)))" -" (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_81)))))))))" +"(read-config/outer-wrap the-struct_80)" +"(read-config/outer-line the-struct_80)" +"(read-config/outer-col the-struct_80)" +"(read-config/outer-pos the-struct_80)" +"(read-config/outer-indentations the-struct_80)" +"(read-config/outer-keep-comment? the-struct_80)))" +" (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_80)))))))))" "(define-values" "(coerce)" "(lambda(val_79 in_2 config_7)" @@ -47732,36 +47859,36 @@ static const char *startup_source = "(lambda(param_1 config_9 v_28)" "(begin" "(let-values(((v_92) config_9))" -"(let-values(((the-struct_83) v_92))" -"(if(read-config/outer? the-struct_83)" +"(let-values(((the-struct_82) v_92))" +"(if(read-config/outer? the-struct_82)" "(let-values(((inner1_0)" -"(let-values(((the-struct_84)(read-config/outer-inner v_92)))" -"(if(read-config/inner? the-struct_84)" +"(let-values(((the-struct_83)(read-config/outer-inner v_92)))" +"(if(read-config/inner? the-struct_83)" "(let-values(((parameter-override2_0)" "(hash-set(read-config-parameter-override config_9) param_1 v_28)))" "(read-config/inner2.1" -"(read-config/inner-readtable the-struct_84)" -"(read-config/inner-next-readtable the-struct_84)" -"(read-config/inner-for-syntax? the-struct_84)" -"(read-config/inner-source the-struct_84)" -"(read-config/inner-read-compiled the-struct_84)" -"(read-config/inner-dynamic-require the-struct_84)" -"(read-config/inner-module-declared? the-struct_84)" -"(read-config/inner-coerce the-struct_84)" -"(read-config/inner-coerce-key the-struct_84)" +"(read-config/inner-readtable the-struct_83)" +"(read-config/inner-next-readtable the-struct_83)" +"(read-config/inner-for-syntax? the-struct_83)" +"(read-config/inner-source the-struct_83)" +"(read-config/inner-read-compiled the-struct_83)" +"(read-config/inner-dynamic-require the-struct_83)" +"(read-config/inner-module-declared? the-struct_83)" +"(read-config/inner-coerce the-struct_83)" +"(read-config/inner-coerce-key the-struct_83)" " parameter-override2_0" -"(read-config/inner-parameter-cache the-struct_84)" -"(read-config/inner-st the-struct_84)))" -" (raise-argument-error 'struct-copy \"read-config/inner?\" the-struct_84)))))" +"(read-config/inner-parameter-cache the-struct_83)" +"(read-config/inner-st the-struct_83)))" +" (raise-argument-error 'struct-copy \"read-config/inner?\" the-struct_83)))))" "(read-config/outer1.1" " inner1_0" -"(read-config/outer-wrap the-struct_83)" -"(read-config/outer-line the-struct_83)" -"(read-config/outer-col the-struct_83)" -"(read-config/outer-pos the-struct_83)" -"(read-config/outer-indentations the-struct_83)" -"(read-config/outer-keep-comment? the-struct_83)))" -" (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_83)))))))" +"(read-config/outer-wrap the-struct_82)" +"(read-config/outer-line the-struct_82)" +"(read-config/outer-col the-struct_82)" +"(read-config/outer-pos the-struct_82)" +"(read-config/outer-indentations the-struct_82)" +"(read-config/outer-keep-comment? the-struct_82)))" +" (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_82)))))))" "(define-values" "(force-parameters!)" "(lambda(config_10)" @@ -47814,7 +47941,7 @@ static const char *startup_source = " readtable-char-ht" " readtable-dispatch-ht" " readtable-delimiter-ht)" -"(let-values(((struct:_21 make-_21 ?_21 -ref_21 -set!_21)" +"(let-values(((struct:_22 make-_22 ?_22 -ref_22 -set!_22)" "(let-values()" "(let-values()" "(make-struct-type" @@ -47830,13 +47957,13 @@ static const char *startup_source = " #f" " 'readtable)))))" "(values" -" struct:_21" -" make-_21" -" ?_21" -"(make-struct-field-accessor -ref_21 0 'symbol-parser)" -"(make-struct-field-accessor -ref_21 1 'char-ht)" -"(make-struct-field-accessor -ref_21 2 'dispatch-ht)" -"(make-struct-field-accessor -ref_21 3 'delimiter-ht))))" +" struct:_22" +" make-_22" +" ?_22" +"(make-struct-field-accessor -ref_22 0 'symbol-parser)" +"(make-struct-field-accessor -ref_22 1 'char-ht)" +"(make-struct-field-accessor -ref_22 2 'dispatch-ht)" +"(make-struct-field-accessor -ref_22 3 'delimiter-ht))))" "(define-values" "(1/make-readtable)" "(lambda(rt_0 . args_7)" @@ -47899,10 +48026,10 @@ static const char *startup_source = " 'non-terminating-macro)))" "(if or-part_247" " or-part_247" -"(let-values(((or-part_298)" +"(let-values(((or-part_299)" "(eq? mode_16 'dispatch-macro)))" -"(if or-part_298" -" or-part_298" +"(if or-part_299" +" or-part_299" "(char? mode_16)))))))" "(void)" "(let-values()" @@ -47973,10 +48100,10 @@ static const char *startup_source = "(let-values()" "(let-values((()" "(begin" -"(if(let-values(((or-part_95)" +"(if(let-values(((or-part_300)" "(not target_0)))" -"(if or-part_95" -" or-part_95" +"(if or-part_300" +" or-part_300" "(1/readtable? target_0)))" "(void)" "(let-values()" @@ -48150,34 +48277,34 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-hash ht_149)))" -"((letrec-values(((for-loop_265)" +"((letrec-values(((for-loop_267)" "(lambda(fold-var_82 i_174)" "(begin" " 'for-loop" "(if i_174" "(let-values(((k_40 v_88)(hash-iterate-key+value ht_149 i_174)))" -"(let-values(((fold-var_286)" +"(let-values(((fold-var_289)" "(let-values(((fold-var_85) fold-var_82))" "(if(eqv? v_88 c_64)" -"(let-values(((fold-var_240) fold-var_85))" +"(let-values(((fold-var_244) fold-var_85))" "(let-values(((fold-var_13)" "(let-values()" -"(cons(let-values() k_40) fold-var_240))))" +"(cons(let-values() k_40) fold-var_244))))" "(values fold-var_13)))" " fold-var_85))))" "(if(not #f)" -"(for-loop_265 fold-var_286(hash-iterate-next ht_149 i_174))" -" fold-var_286)))" +"(for-loop_267 fold-var_289(hash-iterate-next ht_149 i_174))" +" fold-var_289)))" " fold-var_82)))))" -" for-loop_265)" +" for-loop_267)" " null" "(hash-iterate-first ht_149))))))))))" "(define-values" "(struct:special special1.1 special? special-value)" -"(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 'special #f 1 0 #f null(current-inspector) #f '(0) #f 'special)))))" -"(values struct:_76 make-_76 ?_76(make-struct-field-accessor -ref_76 0 'value))))" +"(values struct:_77 make-_77 ?_77(make-struct-field-accessor -ref_77 0 'value))))" "(define-values" "(wrap)" "(lambda(s-exp_3 in_2 config_7 rep_0)" @@ -48285,8 +48412,8 @@ static const char *startup_source = "(let-values(((bpz_3)(continuation-mark-set-first #f break-enabled-key)))" "(call-handled-body" " bpz_3" -"(lambda(e_78)" -"(select-handler/no-breaks e_78 bpz_3(list(cons with-handlers-predicate31_0 with-handlers-handler32_0))))" +"(lambda(e_79)" +"(select-handler/no-breaks e_79 bpz_3(list(cons with-handlers-predicate31_0 with-handlers-handler32_0))))" "(lambda()(thunk_5))))))))" "(define-values" "(port-next-location*)" @@ -48345,10 +48472,10 @@ static const char *startup_source = " in_10" " special1.1" " source_5))))" -"(if(let-values(((or-part_282)" +"(if(let-values(((or-part_283)" "(eof-object? c_65)))" -"(if or-part_282" -" or-part_282" +"(if or-part_283" +" or-part_283" "(eqv?" " '#\\newline" "(effective-char c_65 config_15))))" @@ -48402,8 +48529,8 @@ static const char *startup_source = "(if(eq? c_67 'special)" "(special1.1 'special)" " c_67)))))" -"(let-values(((or-part_283)(eqv? '#\\space c3_1)))" -"(if or-part_283 or-part_283(eqv? '#\\/ c3_1))))" +"(let-values(((or-part_284)(eqv? '#\\space c3_1)))" +"(if or-part_284 or-part_284(eqv? '#\\/ c3_1))))" " #f)" " #f)" "(let-values()" @@ -48531,12 +48658,12 @@ static const char *startup_source = "(let-values(((or-part_26)(char-whitespace? dc_0)))" "(if or-part_26" " or-part_26" -"(let-values(((or-part_299)(char=? dc_0 '#\\()))" -"(if or-part_299" -" or-part_299" -"(let-values(((or-part_278)(char=? dc_0 '#\\))))" -"(if or-part_278" -" or-part_278" +"(let-values(((or-part_301)(char=? dc_0 '#\\()))" +"(if or-part_301" +" or-part_301" +"(let-values(((or-part_279)(char=? dc_0 '#\\))))" +"(if or-part_279" +" or-part_279" "(let-values(((or-part_27)(char=? dc_0 '#\\[)))" "(if or-part_27" " or-part_27" @@ -48632,9 +48759,9 @@ static const char *startup_source = "(if(check-parameter 1/read-curly-brace-as-paren config_21)(opener-name '#\\{ config_21) #f)))" "(if(if s_10 c_69 #f)" " (let-values () (format \"~a, ~a, or ~a\" p_63 s_10 c_69))" -"(if(let-values(((or-part_281) s_10))(if or-part_281 or-part_281 c_69))" +"(if(let-values(((or-part_282) s_10))(if or-part_282 or-part_282 c_69))" "(let-values()" -" (format \"~a or ~a\" p_63 (let-values (((or-part_282) s_10)) (if or-part_282 or-part_282 c_69))))" +" (format \"~a or ~a\" p_63 (let-values (((or-part_283) s_10)) (if or-part_283 or-part_283 c_69))))" "(let-values() p_63)))))))))" "(define-values" "(struct:accum-string" @@ -48686,15 +48813,15 @@ static const char *startup_source = "(begin" "(let-values(((str_27)(accum-string-str a_68)))" "(let-values(((s_77)(convert_1(substring str_27 start-pos_6(accum-string-pos a_68)))))" -"(let-values(((len_36)(string-length s_77)))" +"(let-values(((len_37)(string-length s_77)))" "(begin" -"(if(<(+ len_36 start-pos_6)(string-length str_27))" +"(if(<(+ len_37 start-pos_6)(string-length str_27))" "(void)" "(let-values()" -"(let-values(((str2_2)(make-string(+ start-pos_6 len_36))))" +"(let-values(((str2_2)(make-string(+ start-pos_6 len_37))))" "(begin(string-copy! str2_2 0 str_27 0 start-pos_6)(set-accum-string-str! a_68 str2_2)))))" "(string-copy!(accum-string-str a_68) start-pos_6 s_77)" -"(set-accum-string-pos! a_68(+ start-pos_6 len_36)))))))))" +"(set-accum-string-pos! a_68(+ start-pos_6 len_37)))))))))" "(define-values" "(accum-string-get!6.1)" "(lambda(start-pos2_0 start-pos3_0 a4_0 config5_0)" @@ -48704,8 +48831,8 @@ static const char *startup_source = "(let-values(((config_27) config5_0))" "(let-values(((start-pos_7)(if start-pos3_0 start-pos2_0 0)))" "(let-values()" -"(let-values(((s_180)(substring(accum-string-str a_69) start-pos_7(accum-string-pos a_69))))" -"(begin(accum-string-abandon! a_69 config_27) s_180)))))))))" +"(let-values(((s_181)(substring(accum-string-str a_69) start-pos_7(accum-string-pos a_69))))" +"(begin(accum-string-abandon! a_69 config_27) s_181)))))))))" "(define-values" "(accum-string-get-bytes!13.1)" "(lambda(start-pos9_0 start-pos10_0 a11_0 config12_0)" @@ -48816,23 +48943,23 @@ static const char *startup_source = " (let-values () (format \"unexpected `~a`\" c_71))" "(let-values()" "(let-values(((missing_2)" -"(let-values(((or-part_290)" -"(let-values(((lst_309)(cdr indts_1)))" +"(let-values(((or-part_291)" +"(let-values(((lst_312)(cdr indts_1)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_309)))" -"((letrec-values(((for-loop_270)" -"(lambda(result_39 lst_310)" +"(let-values()(check-list lst_312)))" +"((letrec-values(((for-loop_272)" +"(lambda(result_122 lst_313)" "(begin" " 'for-loop" -"(if(pair? lst_310)" -"(let-values(((indt_3)(unsafe-car lst_310))" -"((rest_174)" -"(unsafe-cdr lst_310)))" -"(let-values(((result_82)" +"(if(pair? lst_313)" +"(let-values(((indt_3)(unsafe-car lst_313))" +"((rest_175)" +"(unsafe-cdr lst_313)))" +"(let-values(((result_84)" "(let-values()" -"(let-values(((result_118)" +"(let-values(((result_123)" "(let-values()" "(let-values()" "(if(char=?" @@ -48841,19 +48968,19 @@ static const char *startup_source = " indt_3))" " \"missing\"" " #f)))))" -"(values result_118)))))" +"(values result_123)))))" "(if(if(not" -"((lambda x_79 result_82)" +"((lambda x_82 result_84)" " indt_3))" "(not #f)" " #f)" -"(for-loop_270 result_82 rest_174)" -" result_82)))" -" result_39)))))" -" for-loop_270)" +"(for-loop_272 result_84 rest_175)" +" result_84)))" +" result_122)))))" +" for-loop_272)" " #f" -" lst_309)))))" -" (if or-part_290 or-part_290 \"expected\"))))" +" lst_312)))))" +" (if or-part_291 or-part_291 \"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`\"" @@ -48901,8 +49028,8 @@ static const char *startup_source = "(let-values(((indentation_0)(make-indentation closer_1 in_10 seq-config_0)))" "(let-values(((config_34)" "(let-values(((v_229) elem-config_0))" -"(let-values(((the-struct_85) v_229))" -"(if(read-config/outer? the-struct_85)" +"(let-values(((the-struct_84) v_229))" +"(if(read-config/outer? the-struct_84)" "(let-values(((indentations20_0)" "(cons" " indentation_0" @@ -48910,16 +49037,16 @@ static const char *startup_source = "((inner21_0)(read-config/outer-inner v_229)))" "(read-config/outer1.1" " inner21_0" -"(read-config/outer-wrap the-struct_85)" -"(read-config/outer-line the-struct_85)" -"(read-config/outer-col the-struct_85)" -"(read-config/outer-pos the-struct_85)" +"(read-config/outer-wrap the-struct_84)" +"(read-config/outer-line the-struct_84)" +"(read-config/outer-col the-struct_84)" +"(read-config/outer-pos the-struct_84)" " indentations20_0" -"(read-config/outer-keep-comment? the-struct_85)))" +"(read-config/outer-keep-comment? the-struct_84)))" "(raise-argument-error" " 'struct-copy" " \"read-config/outer?\"" -" the-struct_85))))))" +" the-struct_84))))))" "(let-values(((open-end-line_0 open-end-col_0 open-end-pos_0)" "(port-next-location in_10)))" "(let-values(((config/keep-comment_0)(keep-comment config_34)))" @@ -48927,13 +49054,13 @@ static const char *startup_source = "(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_80)(read-one_2 init-c_4 in_10 config_35)))" "(begin" -"(if(eof-object? e_79)" +"(if(eof-object? e_80)" "(let-values()" "(let-values(((in22_1) in_10)" "((seq-config23_0) seq-config_0)" -"((e24_0) e_79)" +"((e24_0) e_80)" "((open-end-pos25_0) open-end-pos_0)" "((temp26_4)" " \"expected a ~a to close `~a`~a\")" @@ -48956,7 +49083,7 @@ static const char *startup_source = " temp26_4" "(list temp27_6 opener-c28_0 temp29_1))))" "(void))" -" e_79))))))" +" e_80))))))" "(let-values(((seq_0)" "((letrec-values(((loop_39)" "(lambda(depth_11" @@ -49145,11 +49272,11 @@ static const char *startup_source = " post-c_0" " seq-config_0)))" "(begin" -"(if(let-values(((or-part_98)" +"(if(let-values(((or-part_302)" "(eof-object?" " post-ec_0)))" -"(if or-part_98" -" or-part_98" +"(if or-part_302" +" or-part_302" "(eqv?" " post-ec_0" " closer_1)))" @@ -49354,11 +49481,11 @@ static const char *startup_source = "(hex-digit?)" "(lambda(c_78)" "(begin" -"(let-values(((or-part_300)(if(char>=? c_78 '#\\0)(char<=? c_78 '#\\9) #f)))" -"(if or-part_300" -" or-part_300" -"(let-values(((or-part_98)(if(char>=? c_78 '#\\A)(char<=? c_78 '#\\F) #f)))" -"(if or-part_98 or-part_98(if(char>=? c_78 '#\\a)(char<=? c_78 '#\\f) #f))))))))" +"(let-values(((or-part_303)(if(char>=? c_78 '#\\0)(char<=? c_78 '#\\9) #f)))" +"(if or-part_303" +" or-part_303" +"(let-values(((or-part_302)(if(char>=? c_78 '#\\A)(char<=? c_78 '#\\F) #f)))" +"(if or-part_302 or-part_302(if(char>=? c_78 '#\\a)(char<=? c_78 '#\\f) #f))))))))" "(define-values" "(digit->number)" "(lambda(c_79)" @@ -49432,10 +49559,10 @@ static const char *startup_source = " convert-mode75_0))))))))))))))" "(case-lambda" "((s_177)(begin 'string->number(string->number8_0 s_177 #f #f #f #f #f #f)))" -"((s_450 radix_1 convert-mode_1 decimal-mode3_1)" -"(string->number8_0 s_450 radix_1 convert-mode_1 decimal-mode3_1 #t #t #t))" -"((s_178 radix_2 convert-mode2_1)(string->number8_0 s_178 radix_2 convert-mode2_1 #f #t #t #f))" -"((s_451 radix1_1)(string->number8_0 s_451 radix1_1 #f #f #t #f #f)))))" +"((s_451 radix_1 convert-mode_1 decimal-mode3_1)" +"(string->number8_0 s_451 radix_1 convert-mode_1 decimal-mode3_1 #t #t #t))" +"((s_179 radix_2 convert-mode2_1)(string->number8_0 s_179 radix_2 convert-mode2_1 #f #t #t #f))" +"((s_452 radix1_1)(string->number8_0 s_452 radix1_1 #f #f #t #f #f)))))" "(define-values" "(do-string->number20.1)" "(lambda(in-complex11_0" @@ -49449,7 +49576,7 @@ static const char *startup_source = " convert-mode19_0)" "(begin" " 'do-string->number20" -"(let-values(((s_452) s14_1))" +"(let-values(((s_453) s14_1))" "(let-values(((start_44) start15_0))" "(let-values(((end_34) end16_0))" "(let-values(((radix_3) radix17_0))" @@ -49464,17 +49591,17 @@ static const char *startup_source = " (let-values () (format \"no digits\"))" "(let-values() #f)))" "(let-values()" -"(let-values(((c_80)(string-ref s_452 start_44)))" +"(let-values(((c_80)(string-ref s_453 start_44)))" "(if(char=? '#\\# c_80)" "(let-values()" "(let-values(((next_4)(add1 start_44)))" "(if(= next_4 end_34)" "(let-values()" "(if(eq? convert-mode_2 'must-read)" -" (let-values () (format \"no character after `#` indicator in `~.a`\" s_452))" +" (let-values () (format \"no character after `#` indicator in `~.a`\" s_453))" "(let-values() #f)))" "(let-values()" -"(let-values(((i_174)(string-ref s_452 next_4)))" +"(let-values(((i_174)(string-ref s_453 next_4)))" "(let-values(((tmp_39) i_174))" "(let-values(((index_2)" "(if(char? tmp_39)" @@ -49550,7 +49677,7 @@ static const char *startup_source = "(format" " \"bad `#` indicator `~a` at `~.a`\"" " i_174" -"(substring s_452 start_44 end_34)))" +"(substring s_453 start_44 end_34)))" "(let-values() #f)))" "(if(unsafe-fx< index_2 2)" "(let-values()" @@ -49561,10 +49688,10 @@ static const char *startup_source = "(let-values()" "(format" " \"misplaced exactness specification at `~.a`\"" -"(substring s_452 start_44 end_34)))" +"(substring s_453 start_44 end_34)))" "(let-values() #f)))" "(let-values()" -"(let-values(((s76_1) s_452)" +"(let-values(((s76_1) s_453)" "((temp77_0)(add1 next_4))" "((end78_0) end_34)" "((radix79_0) radix_3)" @@ -49592,14 +49719,14 @@ static const char *startup_source = " temp81_1" " temp82_4)))))" "(let-values()" -"(if(let-values(((or-part_301) radix-set?_0))" -"(if or-part_301 or-part_301 in-complex_0))" +"(if(let-values(((or-part_95) radix-set?_0))" +"(if or-part_95 or-part_95 in-complex_0))" "(let-values()" "(if(eq? convert-mode_2 'must-read)" "(let-values()" "(format" " \"misplaced radix specification at `~.a`\"" -"(substring s_452 start_44 end_34)))" +"(substring s_453 start_44 end_34)))" "(let-values() #f)))" "(let-values()" "(let-values(((radix_4)" @@ -49617,7 +49744,7 @@ static const char *startup_source = "(equal? tmp_40 '#\\D))" "(let-values() 10)" "(let-values() 16)))))))" -"(let-values(((s83_0) s_452)" +"(let-values(((s83_0) s_453)" "((temp84_0)(add1 next_4))" "((end85_0) end_34)" "((radix86_0) radix_4)" @@ -49637,11 +49764,11 @@ static const char *startup_source = " radix86_0" " exactness88_0" " temp89_2)))))))))))))))" -"(let-values(((c1_28)" +"(let-values(((c1_30)" "(if(char-sign? c_80)" -"(read-special-number s_452 start_44 end_34 convert-mode_2)" +"(read-special-number s_453 start_44 end_34 convert-mode_2)" " #f)))" -"(if c1_28" +"(if c1_30" "((lambda(v_232)" "(if(eq? exactness_0 'exact)" "(let-values()" @@ -49649,15 +49776,15 @@ static const char *startup_source = " (let-values () (format \"no exact representation for `~a`\" v_232))" "(let-values() #f)))" "(let-values() v_232)))" -" c1_28)" +" c1_30)" "(let-values(((c2_3)" "(if(char-sign? c_80)" "(if(not in-complex_0)" "(if(>(- end_34 start_44) 7)" -"(if(char=? '#\\i(string-ref s_452(sub1 end_34)))" -"(if(char-sign?(string-ref s_452 6))" +"(if(char=? '#\\i(string-ref s_453(sub1 end_34)))" +"(if(char-sign?(string-ref s_453 6))" "(read-special-number" -" s_452" +" s_453" " start_44" "(+ start_44 6)" " convert-mode_2)" @@ -49668,7 +49795,7 @@ static const char *startup_source = " #f)))" "(if c2_3" "((lambda(v_233)" -"(let-values(((s90_1) s_452)" +"(let-values(((s90_1) s_453)" "((temp91_1)(+ start_44 6))" "((temp92_2)(sub1 end_34))" "((radix93_0) radix_3)" @@ -49695,10 +49822,10 @@ static const char *startup_source = "(let-values(((c3_2)" "(if(not in-complex_0)" "(if(>=(- end_34 start_44) 7)" -"(if(char=? '#\\i(string-ref s_452(sub1 end_34)))" -"(if(char-sign?(string-ref s_452(- end_34 7)))" +"(if(char=? '#\\i(string-ref s_453(sub1 end_34)))" +"(if(char-sign?(string-ref s_453(- end_34 7)))" "(read-special-number" -" s_452" +" s_453" "(- end_34 7)" "(sub1 end_34)" " convert-mode_2)" @@ -49711,7 +49838,7 @@ static const char *startup_source = "(if(if(= start_44(- end_34 7))(not(extflonum? v2_1)) #f)" "(let-values()(make-rectangular 0 v2_1))" "(let-values()" -"(let-values(((s99_0) s_452)" +"(let-values(((s99_0) s_453)" "((start100_0) start_44)" "((temp101_2)(- end_34 7))" "((radix102_0) radix_3)" @@ -49740,9 +49867,9 @@ static const char *startup_source = "(if(char-sign? c_80)" "(if(not in-complex_0)" "(if(>(- end_34 start_44) 7)" -"(if(char=? '#\\@(string-ref s_452(+ start_44 6)))" +"(if(char=? '#\\@(string-ref s_453(+ start_44 6)))" "(read-special-number" -" s_452" +" s_453" " start_44" "(+ start_44 6)" " convert-mode_2)" @@ -49752,7 +49879,7 @@ static const char *startup_source = " #f)))" "(if c4_0" "((lambda(v_202)" -"(let-values(((s109_0) s_452)" +"(let-values(((s109_0) s_453)" "((temp110_1)(+ start_44 7))" "((end111_0) end_34)" "((radix112_0) radix_3)" @@ -49779,9 +49906,9 @@ static const char *startup_source = "(let-values(((c5_1)" "(if(not in-complex_0)" "(if(>(- end_34 start_44) 7)" -"(if(char=? '#\\@(string-ref s_452(- end_34 7)))" +"(if(char=? '#\\@(string-ref s_453(- end_34 7)))" "(read-special-number" -" s_452" +" s_453" "(- end_34 6)" " end_34" " convert-mode_2)" @@ -49790,7 +49917,7 @@ static const char *startup_source = " #f)))" "(if c5_1" "((lambda(v2_4)" -"(let-values(((s118_0) s_452)" +"(let-values(((s118_0) s_453)" "((start119_0) start_44)" "((temp120_2)(- end_34 7))" "((radix121_0) radix_3)" @@ -49816,7 +49943,7 @@ static const char *startup_source = " temp127_3)))" " c5_1)" "(let-values()" -"(let-values(((s128_1) s_452)" +"(let-values(((s128_1) s_453)" "((start129_0) start_44)" "((end130_0) end_34)" "((radix131_0) radix_3)" @@ -49847,7 +49974,7 @@ static const char *startup_source = " convert-mode32_0)" "(begin" " 'do-string->non-special-number33" -"(let-values(((s_199) s27_1))" +"(let-values(((s_200) s27_1))" "(let-values(((start_45) start28_0))" "(let-values(((end_35) end29_0))" "(let-values(((radix_5) radix30_0))" @@ -49877,7 +50004,7 @@ static const char *startup_source = "(let-values()" "(format" " \"no digits in `~.a`\"" -"(substring s_199 start_45 end_35)))" +"(substring s_200 start_45 end_35)))" "(let-values() #f)))" "(if(if must-i?_0(not i-pos_3) #f)" "(let-values()" @@ -49885,13 +50012,13 @@ static const char *startup_source = "(let-values()" "(format" " \"too many signs in `~.a`\"" -"(substring s_199 start_45 end_35)))" +"(substring s_200 start_45 end_35)))" "(let-values() #f)))" "(if(if sign-pos_0" -"(let-values(((or-part_302)" +"(let-values(((or-part_304)" "(if dot-pos_1(< dot-pos_1 sign-pos_0) #f)))" -"(if or-part_302" -" or-part_302" +"(if or-part_304" +" or-part_304" "(if slash-pos_0(< slash-pos_0 sign-pos_0) #f)))" " #f)" "(let-values()" @@ -49899,11 +50026,11 @@ static const char *startup_source = "(let-values()" "(format" " \"misplaced sign in `~.a`\"" -"(substring s_199 start_45 end_35)))" +"(substring s_200 start_45 end_35)))" "(let-values() #f)))" "(if i-pos_3" "(let-values()" -"(let-values(((s136_0) s_199)" +"(let-values(((s136_0) s_200)" "((start137_0) start_45)" "((sign-pos138_0) sign-pos_0)" "((sign-pos139_0) sign-pos_0)" @@ -49930,7 +50057,7 @@ static const char *startup_source = " convert-mode147_0)))" "(if @-pos_0" "(let-values()" -"(let-values(((s148_0) s_199)" +"(let-values(((s148_0) s_200)" "((start149_0) start_45)" "((@-pos150_0) @-pos_0)" "((temp151_2)(add1 @-pos_0))" @@ -49957,7 +50084,7 @@ static const char *startup_source = " convert-mode159_0)))" "(let-values()" "(string->real-number" -" s_199" +" s_200" " start_45" " end_35" " dot-pos_1" @@ -49968,7 +50095,7 @@ static const char *startup_source = " exactness_1" " convert-mode_3))))))))" "(let-values()" -"(let-values(((c_81)(string-ref s_199 i_175)))" +"(let-values(((c_81)(string-ref s_200 i_175)))" "(if(digit? c_81 radix_5)" "(let-values()" "(loop_106" @@ -50003,7 +50130,7 @@ static const char *startup_source = "(let-values()" "(format" " \"too many signs in `~.a`\"" -"(substring s_199 start_45 end_35)))" +"(substring s_200 start_45 end_35)))" "(let-values() #f)))" "(let-values()" "(loop_106" @@ -50017,19 +50144,19 @@ static const char *startup_source = " slash-pos_0" " #f" "(if(> i_175 start_45)" -"(let-values(((or-part_303)(not @-pos_0)))" -"(if or-part_303" -" or-part_303" +"(let-values(((or-part_305)(not @-pos_0)))" +"(if or-part_305" +" or-part_305" "(> i_175(add1 @-pos_0))))" " #f)))))" "(if(char=? c_81 '#\\.)" "(let-values()" "(if(let-values(((or-part_205)" "(if exp-pos_0" -"(let-values(((or-part_304)" +"(let-values(((or-part_306)" "(not sign-pos_0)))" -"(if or-part_304" -" or-part_304" +"(if or-part_306" +" or-part_306" "(> exp-pos_0 sign-pos_0)))" " #f)))" "(if or-part_205" @@ -50045,12 +50172,12 @@ static const char *startup_source = "(let-values()" "(format" " \"misplaced `.` in `~.a`\"" -"(substring s_199 start_45 end_35)))" +"(substring s_200 start_45 end_35)))" "(let-values() #f)))" "(if(if slash-pos_0" -"(let-values(((or-part_305)(not sign-pos_0)))" -"(if or-part_305" -" or-part_305" +"(let-values(((or-part_307)(not sign-pos_0)))" +"(if or-part_307" +" or-part_307" "(> slash-pos_0 sign-pos_0)))" " #f)" "(let-values()" @@ -50058,7 +50185,7 @@ static const char *startup_source = "(let-values()" "(format" " \"decimal points and fractions annot be mixed `~.a`\"" -"(substring s_199 start_45 end_35)))" +"(substring s_200 start_45 end_35)))" "(let-values() #f)))" "(let-values()" "(loop_106" @@ -50075,9 +50202,9 @@ static const char *startup_source = "(if(char=? c_81 '#\\/)" "(let-values()" "(if(if dot-pos_1" -"(let-values(((or-part_306)(not sign-pos_0)))" -"(if or-part_306" -" or-part_306" +"(let-values(((or-part_308)(not sign-pos_0)))" +"(if or-part_308" +" or-part_308" "(> dot-pos_1 sign-pos_0)))" " #f)" "(let-values()" @@ -50085,9 +50212,9 @@ static const char *startup_source = "(let-values()" "(format" " \"decimal points and fractions annot be mixed `~.a`\"" -"(substring s_199 start_45 end_35)))" +"(substring s_200 start_45 end_35)))" "(let-values() #f)))" -"(if(let-values(((or-part_307)" +"(if(let-values(((or-part_309)" "(if exp-pos_0" "(let-values(((or-part_179)" "(not sign-pos_0)))" @@ -50095,13 +50222,13 @@ static const char *startup_source = " or-part_179" "(> exp-pos_0 sign-pos_0)))" " #f)))" -"(if or-part_307" -" or-part_307" +"(if or-part_309" +" or-part_309" "(if slash-pos_0" -"(let-values(((or-part_308)" +"(let-values(((or-part_310)" "(not sign-pos_0)))" -"(if or-part_308" -" or-part_308" +"(if or-part_310" +" or-part_310" "(> slash-pos_0 sign-pos_0)))" " #f)))" "(let-values()" @@ -50109,7 +50236,7 @@ static const char *startup_source = "(let-values()" "(format" " \"misplaced `/` in `~.a`\"" -"(substring s_199 start_45 end_35)))" +"(substring s_200 start_45 end_35)))" "(let-values() #f)))" "(let-values()" "(loop_106" @@ -50123,28 +50250,28 @@ static const char *startup_source = " i_175" " #f" " must-i?_0)))))" -"(if(let-values(((or-part_309)(char=? c_81 '#\\e)))" -"(if or-part_309" -" or-part_309" -"(let-values(((or-part_310)(char=? c_81 '#\\E)))" -"(if or-part_310" -" or-part_310" -"(let-values(((or-part_311)" -"(char=? c_81 '#\\f)))" +"(if(let-values(((or-part_311)(char=? c_81 '#\\e)))" "(if or-part_311" " or-part_311" -"(let-values(((or-part_312)" -"(char=? c_81 '#\\F)))" +"(let-values(((or-part_312)(char=? c_81 '#\\E)))" "(if or-part_312" " or-part_312" "(let-values(((or-part_313)" -"(char=? c_81 '#\\d)))" +"(char=? c_81 '#\\f)))" "(if or-part_313" " or-part_313" "(let-values(((or-part_314)" -"(char=? c_81 '#\\D)))" +"(char=? c_81 '#\\F)))" "(if or-part_314" " or-part_314" +"(let-values(((or-part_315)" +"(char=? c_81 '#\\d)))" +"(if or-part_315" +" or-part_315" +"(let-values(((or-part_316)" +"(char=? c_81 '#\\D)))" +"(if or-part_316" +" or-part_316" "(let-values(((or-part_206)" "(char=?" " c_81" @@ -50157,24 +50284,24 @@ static const char *startup_source = " '#\\S)))" "(if or-part_158" " or-part_158" -"(let-values(((or-part_315)" -"(char=?" -" c_81" -" '#\\l)))" -"(if or-part_315" -" or-part_315" -"(let-values(((or-part_316)" -"(char=?" -" c_81" -" '#\\L)))" -"(if or-part_316" -" or-part_316" "(let-values(((or-part_317)" "(char=?" " c_81" -" '#\\t)))" +" '#\\l)))" "(if or-part_317" " or-part_317" +"(let-values(((or-part_318)" +"(char=?" +" c_81" +" '#\\L)))" +"(if or-part_318" +" or-part_318" +"(let-values(((or-part_319)" +"(char=?" +" c_81" +" '#\\t)))" +"(if or-part_319" +" or-part_319" "(char=?" " c_81" " '#\\T)))))))))))))))))))))))" @@ -50186,10 +50313,10 @@ static const char *startup_source = "(format" " \"misplaced `~a` in `~.a`\"" " c_81" -"(substring s_199 start_45 end_35)))" +"(substring s_200 start_45 end_35)))" "(let-values() #f)))" "(if(if(<(add1 i_175) end_35)" -"(char-sign?(string-ref s_199(add1 i_175)))" +"(char-sign?(string-ref s_200(add1 i_175)))" " #f)" "(let-values()" "(loop_106" @@ -50201,8 +50328,8 @@ static const char *startup_source = " sign-pos_0" " dot-pos_1" " slash-pos_0" -"(let-values(((or-part_318) exp-pos_0))" -"(if or-part_318 or-part_318 i_175))" +"(let-values(((or-part_320) exp-pos_0))" +"(if or-part_320 or-part_320 i_175))" " must-i?_0))" "(let-values()" "(loop_106" @@ -50214,8 +50341,8 @@ static const char *startup_source = " sign-pos_0" " dot-pos_1" " slash-pos_0" -"(let-values(((or-part_319) exp-pos_0))" -"(if or-part_319 or-part_319 i_175))" +"(let-values(((or-part_321) exp-pos_0))" +"(if or-part_321 or-part_321 i_175))" " must-i?_0)))))" "(if(char=? c_81 '#\\@)" "(let-values()" @@ -50225,18 +50352,18 @@ static const char *startup_source = "(let-values()" "(format" " \"cannot mix `@` and `i` in `~.a`\"" -"(substring s_199 start_45 end_35)))" +"(substring s_200 start_45 end_35)))" "(let-values() #f)))" -"(if(let-values(((or-part_320) @-pos_0))" -"(if or-part_320" -" or-part_320" +"(if(let-values(((or-part_322) @-pos_0))" +"(if or-part_322" +" or-part_322" "(eq? in-complex_1 '@)))" "(let-values()" "(if(eq? convert-mode_3 'must-read)" "(let-values()" "(format" " \"too many `@`s in `~.a`\"" -"(substring s_199 start_45 end_35)))" +"(substring s_200 start_45 end_35)))" "(let-values() #f)))" "(if(= i_175 start_45)" "(let-values()" @@ -50244,7 +50371,7 @@ static const char *startup_source = "(let-values()" "(format" " \"`@` cannot be at start in `~.a`\"" -"(substring s_199 start_45 end_35)))" +"(substring s_200 start_45 end_35)))" "(let-values() #f)))" "(if must-i?_0" "(let-values()" @@ -50252,7 +50379,7 @@ static const char *startup_source = "(let-values()" "(format" " \"too many signs in `~.a`\"" -"(substring s_199 start_45 end_35)))" +"(substring s_200 start_45 end_35)))" "(let-values() #f)))" "(let-values()" "(loop_106" @@ -50266,36 +50393,36 @@ static const char *startup_source = " #f" " #f" " must-i?_0)))))))" -"(if(if(let-values(((or-part_321)" +"(if(if(let-values(((or-part_323)" "(char=? c_81 '#\\i)))" -"(if or-part_321" -" or-part_321" +"(if or-part_323" +" or-part_323" "(char=? c_81 '#\\I)))" " sign-pos_0" " #f)" "(let-values()" -"(if(let-values(((or-part_322) @-pos_0))" -"(if or-part_322" -" or-part_322" +"(if(let-values(((or-part_324) @-pos_0))" +"(if or-part_324" +" or-part_324" "(eq? in-complex_1 '@)))" "(let-values()" "(if(eq? convert-mode_3 'must-read)" "(let-values()" "(format" " \"cannot mix `@` and `i` in `~.a`\"" -"(substring s_199 start_45 end_35)))" +"(substring s_200 start_45 end_35)))" "(let-values() #f)))" -"(if(let-values(((or-part_323)" +"(if(let-values(((or-part_325)" "(<(add1 i_175) end_35)))" -"(if or-part_323" -" or-part_323" +"(if or-part_325" +" or-part_325" "(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_199 start_45 end_35)))" +"(substring s_200 start_45 end_35)))" "(let-values() #f)))" "(let-values()" "(loop_106" @@ -50314,7 +50441,7 @@ static const char *startup_source = "(let-values()" "(if(eq? convert-mode_3 'must-read)" "(let-values()" -" (format \"nul character in `~.a`\" s_199))" +" (format \"nul character in `~.a`\" s_200))" "(let-values() #f)))" "(let-values()" "(if(eq? convert-mode_3 'must-read)" @@ -50409,11 +50536,11 @@ static const char *startup_source = " radix171_0" " exactness173_0" " convert-mode175_0))))))" -"(if(let-values(((or-part_324)(not v1_0)))" -"(if or-part_324 or-part_324(not v2_6)))" +"(if(let-values(((or-part_326)(not v1_0)))" +"(if or-part_326 or-part_326(not v2_6)))" "(let-values() #f)" -"(if(if(let-values(((or-part_325)(extflonum? v1_0)))" -"(if or-part_325 or-part_325(extflonum? v2_6)))" +"(if(if(let-values(((or-part_327)(extflonum? v1_0)))" +"(if or-part_327 or-part_327(extflonum? v2_6)))" "(not(eq? convert-mode_4 'must-read))" " #f)" "(let-values()(fail-extflonum convert-mode_4 v1_0))" @@ -50440,16 +50567,16 @@ static const char *startup_source = "(lambda()(begin 'extfl-mark?(char=?(char-downcase(string-ref s_230 exp-pos_1)) '#\\t)))))" "(let-values(((simple?_0)" "(if(not slash-pos_1)" -"(if(let-values(((or-part_326)(eq? exactness_3 'inexact)))" -"(if or-part_326" -" or-part_326" -"(let-values(((or-part_327)(eq? exactness_3 'decimal-as-inexact)))" -"(if or-part_327 or-part_327(if(not dot-pos_2)(not exp-pos_1) #f)))))" -"(if(let-values(((or-part_328)(not exp-pos_1)))" +"(if(let-values(((or-part_328)(eq? exactness_3 'inexact)))" "(if or-part_328" " or-part_328" -"(let-values(((or-part_329)(not(eq? convert-mode_5 'number-or-false))))" -"(if or-part_329 or-part_329(not(extfl-mark?_0))))))" +"(let-values(((or-part_329)(eq? exactness_3 'decimal-as-inexact)))" +"(if or-part_329 or-part_329(if(not dot-pos_2)(not exp-pos_1) #f)))))" +"(if(let-values(((or-part_330)(not exp-pos_1)))" +"(if or-part_330" +" or-part_330" +"(let-values(((or-part_331)(not(eq? convert-mode_5 'number-or-false))))" +"(if or-part_331 or-part_331(not(extfl-mark?_0))))))" "(not(if any-hashes?_1(hashes? s_230 start_46 end_36) #f))" " #f)" " #f)" @@ -50475,9 +50602,9 @@ static const char *startup_source = " (format \"missing digits before exponent marker in `~.a`\" (substring s_230 start_46 end_36)))" "(let-values() #f)))" "(if(if exp-pos_1" -"(let-values(((or-part_330)(= exp-pos_1(sub1 end_36))))" -"(if or-part_330" -" or-part_330" +"(let-values(((or-part_332)(= exp-pos_1(sub1 end_36))))" +"(if or-part_332" +" or-part_332" "(if(= exp-pos_1(- end_36 2))(char-sign?(string-ref s_230(sub1 end_36))) #f)))" " #f)" "(let-values()" @@ -50490,14 +50617,14 @@ static const char *startup_source = "(string->number$1" "(maybe-substring s_230 start_46 end_36)" " radix_7" -"(if(let-values(((or-part_331)(eq? convert-mode_5 'number-or-false)))" -"(if or-part_331" -" or-part_331" -"(let-values(((or-part_332)(not exp-pos_1)))" -"(if or-part_332 or-part_332(not(extfl-mark?_0))))))" +"(if(let-values(((or-part_333)(eq? convert-mode_5 'number-or-false)))" +"(if or-part_333" +" or-part_333" +"(let-values(((or-part_334)(not exp-pos_1)))" +"(if or-part_334 or-part_334(not(extfl-mark?_0))))))" " 'number-or-false" " 'read))))" -"(if(let-values(((or-part_333)(not n_30)))(if or-part_333 or-part_333(string? n_30)))" +"(if(let-values(((or-part_335)(not n_30)))(if or-part_335 or-part_335(string? n_30)))" "(let-values()" "(error" " 'string->number" @@ -50554,7 +50681,7 @@ static const char *startup_source = " 'read)))" "(let-values()(real->double-flonum r_45)))))))))" "(let-values(((get-extfl?_0)(extfl-mark?_0)))" -"(if(let-values(((or-part_334)(not m-v_0)))(if or-part_334 or-part_334(not e-v_0)))" +"(if(let-values(((or-part_336)(not m-v_0)))(if or-part_336 or-part_336(not e-v_0)))" "(let-values() #f)" "(if(string? m-v_0)" "(let-values() m-v_0)" @@ -50585,8 +50712,8 @@ static const char *startup_source = "(let-values()" "(let-values(((n_31)(* m-v_0(expt radix_7 e-v_0))))" "(if(if(not get-extfl?_0)" -"(let-values(((or-part_335)(eq? exactness_3 'exact)))" -"(if or-part_335 or-part_335(eq? exactness_3 'decimal-as-exact)))" +"(let-values(((or-part_337)(eq? exactness_3 'exact)))" +"(if or-part_337 or-part_337(eq? exactness_3 'decimal-as-exact)))" " #f)" "(let-values() n_31)" "(if(if(eqv? n_31 0)(char=?(string-ref s_230 start_46) '#\\-) #f)" @@ -50628,7 +50755,7 @@ static const char *startup_source = "(if(not(eq? exactness_3 'exact))" "(hashes? s_230 from-pos_0 end_36)" " #f)))))))" -"(if(let-values(((or-part_336)(not n-v_0)))(if or-part_336 or-part_336(not d-v_0)))" +"(if(let-values(((or-part_338)(not n-v_0)))(if or-part_338 or-part_338(not d-v_0)))" "(let-values() #f)" "(if(string? n-v_0)" "(let-values() n-v_0)" @@ -50657,11 +50784,11 @@ static const char *startup_source = " convert-mode_5))))))))))))" "(define-values" "(string->decimal-number)" -"(lambda(s_352 start_47 end_37 dot-pos_3 radix_8 exactness_4 convert-mode_6)" +"(lambda(s_353 start_47 end_37 dot-pos_3 radix_8 exactness_4 convert-mode_6)" "(begin" "(let-values(((get-exact?_0)" -"(let-values(((or-part_337)(eq? exactness_4 'exact)))" -"(if or-part_337 or-part_337(eq? exactness_4 'decimal-as-exact)))))" +"(let-values(((or-part_339)(eq? exactness_4 'exact)))" +"(if or-part_339 or-part_339(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_107)" "(lambda(i_116 j_3 hashes-pos_0)" @@ -50673,22 +50800,22 @@ static const char *startup_source = "(let-values()" "(if(eq? convert-mode_6 'must-read)" "(let-values()" -" (format \"misplaced `#` in `~.a`\" (substring s_352 start_47 end_37)))" +" (format \"misplaced `#` in `~.a`\" (substring s_353 start_47 end_37)))" "(let-values() #f)))" "(let-values()" "(let-values(((n_33)(string->number$1 new-str_0 radix_8)))" "(if(not n_33)" -"(let-values()(fail-bad-number convert-mode_6 s_352 start_47 end_37))" +"(let-values()(fail-bad-number convert-mode_6 s_353 start_47 end_37))" "(if(not get-exact?_0)" "(let-values()" -"(if(if(eqv? n_33 0)(char=?(string-ref s_352 start_47) '#\\-) #f)" +"(if(if(eqv? n_33 0)(char=?(string-ref s_353 start_47) '#\\-) #f)" " -0.0" "(exact->inexact n_33)))" "(if(if dot-pos_3 get-exact?_0 #f)" "(let-values()(/ n_33(expt 10(- end_37 dot-pos_3 1))))" "(let-values() n_33))))))))" "(let-values()" -"(let-values(((c_82)(string-ref s_352 i_116)))" +"(let-values(((c_82)(string-ref s_353 i_116)))" "(if(char=? c_82 '#\\.)" "(let-values()" "(if get-exact?_0" @@ -50725,7 +50852,7 @@ static const char *startup_source = "(let-values()" "(format" " \"misplaced `#` in `~.a`\"" -"(substring s_352 start_47 end_37)))" +"(substring s_353 start_47 end_37)))" "(let-values() #f)))))" "(let-values()" "(begin" @@ -50757,25 +50884,25 @@ static const char *startup_source = "(lambda(s_243 start_49 end_39 convert-mode_8)" "(begin" "(if(=(- end_39 start_49) 6)" -"(if(let-values(((or-part_338)(char=?(string-ref s_243 start_49) '#\\+)))" -"(if or-part_338 or-part_338(char=?(string-ref s_243 start_49) '#\\-)))" -"(let-values(((or-part_339)" +"(if(let-values(((or-part_340)(char=?(string-ref s_243 start_49) '#\\+)))" +"(if or-part_340 or-part_340(char=?(string-ref s_243 start_49) '#\\-)))" +"(let-values(((or-part_341)" "(if(char=?(char-downcase(string-ref s_243(+ start_49 1))) '#\\i)" "(if(char=?(char-downcase(string-ref s_243(+ start_49 2))) '#\\n)" "(if(char=?(char-downcase(string-ref s_243(+ start_49 3))) '#\\f)" "(if(char=?(char-downcase(string-ref s_243(+ start_49 4))) '#\\.)" -"(let-values(((or-part_340)" +"(let-values(((or-part_342)" "(if(char=?(char-downcase(string-ref s_243(+ start_49 5))) '#\\0)" "(if(char=?(string-ref s_243 start_49) '#\\+) +inf.0 -inf.0)" " #f)))" -"(if or-part_340" -" or-part_340" -"(let-values(((or-part_341)" +"(if or-part_342" +" or-part_342" +"(let-values(((or-part_343)" "(if(char=?(char-downcase(string-ref s_243(+ start_49 5))) '#\\f)" "(if(char=?(string-ref s_243 start_49) '#\\+) +inf.f -inf.f)" " #f)))" -"(if or-part_341" -" or-part_341" +"(if or-part_343" +" or-part_343" "(if(char=?(char-downcase(string-ref s_243(+ start_49 5))) '#\\t)" "(if(not(eq? convert-mode_8 'number-or-false))" "(if(char=?(string-ref s_243 start_49) '#\\+) '+inf.t '-inf.t)" @@ -50785,20 +50912,20 @@ static const char *startup_source = " #f)" " #f)" " #f)))" -"(if or-part_339" -" or-part_339" +"(if or-part_341" +" or-part_341" "(if(char=?(char-downcase(string-ref s_243(+ start_49 1))) '#\\n)" "(if(char=?(char-downcase(string-ref s_243(+ start_49 2))) '#\\a)" "(if(char=?(char-downcase(string-ref s_243(+ start_49 3))) '#\\n)" "(if(char=?(char-downcase(string-ref s_243(+ start_49 4))) '#\\.)" -"(let-values(((or-part_342)" +"(let-values(((or-part_344)" "(if(char=?(char-downcase(string-ref s_243(+ start_49 5))) '#\\0) +nan.0 #f)))" -"(if or-part_342" -" or-part_342" -"(let-values(((or-part_343)" +"(if or-part_344" +" or-part_344" +"(let-values(((or-part_345)" "(if(char=?(char-downcase(string-ref s_243(+ start_49 5))) '#\\f) +nan.f #f)))" -"(if or-part_343" -" or-part_343" +"(if or-part_345" +" or-part_345" "(if(char=?(char-downcase(string-ref s_243(+ start_49 5))) '#\\t)" "(if(not(eq? convert-mode_8 'number-or-false)) '+nan.t #f)" " #f)))))" @@ -50830,7 +50957,7 @@ static const char *startup_source = " combine64_0)" "(begin" " 'read-for-special-compound65" -"(let-values(((s_453) s57_0))" +"(let-values(((s_454) s57_0))" "(let-values(((start_50) start58_0))" "(let-values(((end_40) end59_0))" "(let-values(((radix_10) radix60_0))" @@ -50847,13 +50974,13 @@ static const char *startup_source = " (let-values () (format \"no exact representation for `~a`\" v_237))" "(let-values() #f)))" "(if(if(extflonum? v_237)" -"(let-values(((or-part_344)(not reading-first?_0)))" -"(if or-part_344 or-part_344(not(eq? convert-mode_10 'must-read))))" +"(let-values(((or-part_346)(not reading-first?_0)))" +"(if or-part_346 or-part_346(not(eq? convert-mode_10 'must-read))))" " #f)" "(let-values()(fail-extflonum convert-mode_10 v_237))" "(let-values()" "(let-values(((v2_7)" -"(let-values(((s176_0) s_453)" +"(let-values(((s176_0) s_454)" "((start177_0) start_50)" "((end178_0) end_40)" "((radix179_0) radix_10)" @@ -50880,41 +51007,41 @@ static const char *startup_source = "(let-values()(combine_1 v_237 v2_7)))))))))))))))))))))))" "(define-values" "(hashes?)" -"(lambda(s_454 start_51 end_41)" +"(lambda(s_455 start_51 end_41)" "(begin" "(let-values(((v*_6 start*_5 stop*_6 step*_5)" "(normalise-inputs" " 'in-string" " \"string\"" -"(lambda(x_80)(string? x_80))" -"(lambda(x_81)(unsafe-string-length x_81))" -" s_454" +"(lambda(x_83)(string? x_83))" +"(lambda(x_84)(unsafe-string-length x_84))" +" s_455" " start_51" " end_41" " 1)))" "(begin" " #t" -"((letrec-values(((for-loop_271)" -"(lambda(result_119 idx_5)" +"((letrec-values(((for-loop_273)" +"(lambda(result_124 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_120)" +"(let-values(((result_125)" "(let-values()" -"(let-values(((result_121)" +"(let-values(((result_126)" "(let-values()(let-values()(char=? c_83 '#\\#)))))" -"(values result_121)))))" -"(if(if(not((lambda x_82 result_120) c_83))(not #f) #f)" -"(for-loop_271 result_120(unsafe-fx+ idx_5 1))" -" result_120)))" -" result_119)))))" -" for-loop_271)" +"(values result_126)))))" +"(if(if(not((lambda x_85 result_125) c_83))(not #f) #f)" +"(for-loop_273 result_125(unsafe-fx+ idx_5 1))" +" result_125)))" +" result_124)))))" +" for-loop_273)" " #f" " start*_5))))))" "(define-values" "(replace-hashes)" -"(lambda(s_455 start_52 end_42)" +"(lambda(s_456 start_52 end_42)" "(begin" "(let-values(((new-s_9)(make-string(- end_42 start_52))))" "(begin" @@ -50922,9 +51049,9 @@ static const char *startup_source = "(normalise-inputs" " 'in-string" " \"string\"" -"(lambda(x_83)(string? x_83))" -"(lambda(x_84)(unsafe-string-length x_84))" -" s_455" +"(lambda(x_86)(string? x_86))" +"(lambda(x_87)(unsafe-string-length x_87))" +" s_456" " start_52" " end_42" " 1))" @@ -50934,7 +51061,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-naturals start_53)))" -"((letrec-values(((for-loop_272)" +"((letrec-values(((for-loop_274)" "(lambda(idx_6 pos_114)" "(begin" " 'for-loop" @@ -50951,48 +51078,48 @@ static const char *startup_source = "(string-set! new-s_9 i_176 c_84)))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_272(unsafe-fx+ idx_6 1)(+ pos_114 1))(values))))" +"(if(not #f)(for-loop_274(unsafe-fx+ idx_6 1)(+ pos_114 1))(values))))" "(values))))))" -" for-loop_272)" +" for-loop_274)" " start*_6" " start_53)))" "(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_394 start_54 end_43)" +"(begin(if(if(= 0 start_54)(= end_43(string-length s_394)) #f) s_394(substring s_394 start_54 end_43)))))" "(define-values" "(exactness-set?)" "(lambda(exactness_6)" "(begin" -"(let-values(((or-part_345)(eq? exactness_6 'exact)))(if or-part_345 or-part_345(eq? exactness_6 'inexact))))))" +"(let-values(((or-part_347)(eq? exactness_6 'exact)))(if or-part_347 or-part_347(eq? exactness_6 'inexact))))))" "(define-values" "(char-sign?)" "(lambda(c_85)" -"(begin(let-values(((or-part_346)(char=? c_85 '#\\-)))(if or-part_346 or-part_346(char=? c_85 '#\\+))))))" +"(begin(let-values(((or-part_348)(char=? c_85 '#\\-)))(if or-part_348 or-part_348(char=? c_85 '#\\+))))))" "(define-values" "(digit?)" "(lambda(c_86 radix_11)" "(begin" "(let-values(((v_238)(char->integer c_86)))" -"(let-values(((or-part_347)" +"(let-values(((or-part_349)" "(if(>= v_238(char->integer '#\\0))(<(- v_238(char->integer '#\\0)) radix_11) #f)))" -"(if or-part_347" -" or-part_347" +"(if or-part_349" +" or-part_349" "(if(> radix_11 10)" -"(let-values(((or-part_348)" +"(let-values(((or-part_350)" "(if(>= v_238(char->integer '#\\a))(<(- v_238(-(char->integer '#\\a) 10)) radix_11) #f)))" -"(if or-part_348" -" or-part_348" +"(if or-part_350" +" or-part_350" "(if(>= v_238(char->integer '#\\A))(<(- v_238(-(char->integer '#\\A) 10)) radix_11) #f)))" " #f)))))))" "(define-values" "(fail-bad-number)" -"(lambda(convert-mode_11 s_456 start_55 end_44)" +"(lambda(convert-mode_11 s_457 start_55 end_44)" "(begin" "(if(eq? convert-mode_11 'must-read)" -" (let-values () (format \"bad number `~.a`\" (substring s_456 start_55 end_44)))" +" (let-values () (format \"bad number `~.a`\" (substring s_457 start_55 end_44)))" "(let-values() #f)))))" "(define-values" "(read-complains)" @@ -51009,14 +51136,14 @@ static const char *startup_source = "(let-values(((extra-prefix_0)(if extra-prefix4_0 extra-prefix2_0 #f)))" "(let-values()" "(let-values(((rt_11)(read-config-readtable config_24)))" -"(let-values(((c1_29)" +"(let-values(((c1_31)" "(if rt_11" "(if(let-values(((or-part_3)(eq? mode_17 'symbol-or-number)))" "(if or-part_3 or-part_3(eq? mode_17 'symbol/indirect)))" "(readtable-symbol-parser rt_11)" " #f)" " #f)))" -"(if c1_29" +"(if c1_31" "((lambda(handler_2)" "(readtable-apply" " handler_2" @@ -51026,7 +51153,7 @@ static const char *startup_source = "(read-config-line config_24)" "(read-config-col config_24)" "(read-config-pos config_24)))" -" c1_29)" +" c1_31)" "(let-values()" "(let-values(((accum-str_1)(accum-string-init! config_24)))" "(let-values(((quoted-ever?_0) #f))" @@ -51350,11 +51477,11 @@ static const char *startup_source = "(let-values(((or-part_164) num_0))" "(if or-part_164" " or-part_164" -"(let-values(((or-part_95)" +"(let-values(((or-part_300)" "(if(eq? mode_17 'keyword)" "(string->keyword str_28)" " #f)))" -"(if or-part_95 or-part_95(string->symbol str_28)))))" +"(if or-part_300 or-part_300(string->symbol str_28)))))" " in_25" " config_24" " str_28)))))))))))))))))))))))))" @@ -51458,7 +51585,7 @@ static const char *startup_source = " closer17_0" " in18_0" " config19_1))))" -"(let-values(((vec_66)" +"(let-values(((vec_69)" "(if(not expected-len_0)" "(let-values()" "(let-values(((tmp_42) vector-mode_0))" @@ -51466,19 +51593,19 @@ static const char *startup_source = "(let-values()(list->vector seq_2))" "(if(equal? tmp_42 'fixnum)" "(let-values()" -"(let-values(((len_37)(length seq_2)))" +"(let-values(((len_38)(length seq_2)))" "(begin" -"(if(exact-nonnegative-integer? len_37)" +"(if(exact-nonnegative-integer? len_38)" "(void)" "(let-values()" "(raise-argument-error" " 'for/fxvector" " \"exact-nonnegative-integer?\"" -" len_37)))" +" len_38)))" "(let-values(((fill_0) 0))" -"(let-values(((v_196)(make-fxvector len_37 fill_0)))" +"(let-values(((v_196)(make-fxvector len_38 fill_0)))" "(begin" -"(if(zero? len_37)" +"(if(zero? len_38)" "(void)" "(let-values()" "(let-values(((lst_24) seq_2))" @@ -51487,12 +51614,12 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()(check-list lst_24)))" -"((letrec-values(((for-loop_250)" +"((letrec-values(((for-loop_252)" "(lambda(i_177 lst_80)" "(begin" " 'for-loop" "(if(pair? lst_80)" -"(let-values(((e_73)" +"(let-values(((e_74)" "(unsafe-car" " lst_80))" "((rest_143)" @@ -51506,7 +51633,7 @@ static const char *startup_source = "(begin" "(let-values(((elem_0)" "(let-values()" -" e_73)))" +" e_74)))" "(if(fixnum?" " elem_0)" "(unsafe-fxvector-set!" @@ -51522,19 +51649,19 @@ static const char *startup_source = "(values" " i_58)))))" "(if(if(not" -"((lambda x_85" +"((lambda x_88" "(unsafe-fx=" " i_178" -" len_37))" -" e_73))" +" len_38))" +" e_74))" "(not #f)" " #f)" -"(for-loop_250" +"(for-loop_252" " i_178" " rest_143)" " i_178)))" " i_177)))))" -" for-loop_250)" +" for-loop_252)" " 0" " lst_24)))))" " v_196))))))" @@ -51561,12 +51688,12 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()(check-list lst_92)))" -"((letrec-values(((for-loop_188)" +"((letrec-values(((for-loop_189)" "(lambda(i_180 lst_17)" "(begin" " 'for-loop" "(if(pair? lst_17)" -"(let-values(((e_80)" +"(let-values(((e_81)" "(unsafe-car" " lst_17))" "((rest_90)" @@ -51580,7 +51707,7 @@ static const char *startup_source = "(begin" "(let-values(((elem_1)" "(let-values()" -" e_80)))" +" e_81)))" "(if(flonum?" " elem_1)" "(unsafe-flvector-set!" @@ -51596,28 +51723,28 @@ static const char *startup_source = "(values" " i_181)))))" "(if(if(not" -"((lambda x_86" +"((lambda x_89" "(unsafe-fx=" " i_157" " len_8))" -" e_80))" +" e_81))" "(not #f)" " #f)" -"(for-loop_188" +"(for-loop_189" " i_157" " rest_90)" " i_157)))" " i_180)))))" -" for-loop_188)" +" for-loop_189)" " 0" " lst_92)))))" " v_239))))))" "(let-values()(void)))))))" "(let-values()" -"(let-values(((len_38)(length seq_2)))" -"(if(= expected-len_0 len_38)" +"(let-values(((len_39)(length seq_2)))" +"(if(= expected-len_0 len_39)" "(let-values()(list->vector seq_2))" -"(if(< expected-len_0 len_38)" +"(if(< expected-len_0 len_39)" "(let-values()" "(let-values(((in22_2) in_30)" "((config23_0) config_40)" @@ -51633,7 +51760,7 @@ static const char *startup_source = " (let-values () \"fl\")" "(let-values()(void)))))))" "((expected-len26_0) expected-len_0)" -"((len27_0) len_38))" +"((len27_0) len_39))" "(reader-error12.1" " #f" " #f" @@ -51674,7 +51801,7 @@ static const char *startup_source = "(current-continuation-marks))))" "(void))" "(values))))" -"(let-values(((vec_67)" +"(let-values(((vec_70)" "(let-values(((tmp_44) vector-mode_0))" "(if(equal? tmp_44 'any)" "(let-values()" @@ -51707,17 +51834,17 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()(check-naturals start_56)))" -"((letrec-values(((for-loop_273)" +"((letrec-values(((for-loop_275)" "(lambda(lst_10 pos_116)" "(begin" " 'for-loop" "(if(if(pair? lst_10)" " #t" " #f)" -"(let-values(((e_81)" +"(let-values(((e_82)" "(unsafe-car" " lst_10))" -"((rest_169)" +"((rest_170)" "(unsafe-cdr" " lst_10))" "((i_182)" @@ -51729,48 +51856,48 @@ static const char *startup_source = "(begin" "(let-values()" "(vector-set!" -" vec_67" +" vec_70" " i_182" -" e_81))" +" e_82))" "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_273" -" rest_169" +"(for-loop_275" +" rest_170" "(+ pos_116 1))" "(values))))" "(values))))))" -" for-loop_273)" +" for-loop_275)" " lst_9" " start_56)))" "(void)))" "(if(equal? tmp_45 'fixnum)" "(let-values()" "(begin" -"(let-values(((lst_225) seq_2)((start_57) 0))" +"(let-values(((lst_227) seq_2)((start_57) 0))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_225)))" +"(let-values()(check-list lst_227)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()(check-naturals start_57)))" "((letrec-values(((for-loop_100)" -"(lambda(lst_180 pos_109)" +"(lambda(lst_181 pos_109)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_180)" +" lst_181)" " #t" " #f)" -"(let-values(((e_82)" +"(let-values(((e_83)" "(unsafe-car" -" lst_180))" -"((rest_175)" +" lst_181))" +"((rest_176)" "(unsafe-cdr" -" lst_180))" +" lst_181))" "((i_183)" " pos_109))" "(let-values((()" @@ -51780,52 +51907,52 @@ static const char *startup_source = "(begin" "(let-values()" "(fxvector-set!" -" vec_67" +" vec_70" " i_183" -" e_82))" +" e_83))" "(values)))))" "(values)))))" "(if(not #f)" "(for-loop_100" -" rest_175" +" rest_176" "(+" " pos_109" " 1))" "(values))))" "(values))))))" " for-loop_100)" -" lst_225" +" lst_227" " start_57)))" "(void)))" "(if(equal? tmp_45 'flonum)" "(let-values()" "(begin" -"(let-values(((lst_311) seq_2)((start_58) 0))" +"(let-values(((lst_314) seq_2)((start_58) 0))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_311)))" +"(let-values()(check-list lst_314)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-naturals start_58)))" "((letrec-values(((for-loop_109)" -"(lambda(lst_278" +"(lambda(lst_280" " pos_117)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_278)" +" lst_280)" " #t" " #f)" -"(let-values(((e_83)" +"(let-values(((e_84)" "(unsafe-car" -" lst_278))" +" lst_280))" "((rest_45)" "(unsafe-cdr" -" lst_278))" +" lst_280))" "((i_35)" " pos_117))" "(let-values((()" @@ -51835,9 +51962,9 @@ static const char *startup_source = "(begin" "(let-values()" "(flvector-set!" -" vec_67" +" vec_70" " i_35" -" e_83))" +" e_84))" "(values)))))" "(values)))))" "(if(not #f)" @@ -51849,12 +51976,12 @@ static const char *startup_source = "(values))))" "(values))))))" " for-loop_109)" -" lst_311" +" lst_314" " start_58)))" "(void)))" "(let-values()(void))))))" -" vec_67))))))))))))" -"(wrap vec_66 in_30 config_40 opener_2))))))))))))))))" +" vec_70))))))))))))" +"(wrap vec_69 in_30 config_40 opener_2))))))))))))))))" "(define-values" "(read-fixnum-or-flonum-vector)" "(lambda(read-one_6 dispatch-c_0 c_91 c2_4 in_33 config_43)" @@ -52112,9 +52239,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_85)" "(select-handler/no-breaks" -" e_84" +" e_85" " bpz_4" "(list(cons with-handlers-predicate20_0 with-handlers-handler21_0))))" "(lambda()(prefab-key->struct-type(car seq_4)(length(cdr seq_4)))))))))" @@ -52310,9 +52437,9 @@ static const char *startup_source = "(if(if(equal? tmp_49 '#\\=) #t(equal? tmp_49 '#\\#))" "(let-values()" "(begin" -"(if(let-values(((or-part_349)(read-config-for-syntax? config_47)))" -"(if or-part_349" -" or-part_349" +"(if(let-values(((or-part_351)(read-config-for-syntax? config_47)))" +"(if or-part_351" +" or-part_351" "(not(check-parameter 1/read-accept-graph config_47))))" "(let-values()" "(let-values(((in37_1) in_39)" @@ -52502,9 +52629,9 @@ static const char *startup_source = "(lambda(config_48)" "(begin" "(let-values(((st_3)(read-config-st config_48)))" -"(let-values(((or-part_138)(read-config-state-graph st_3)))" -"(if or-part_138" -" or-part_138" +"(let-values(((or-part_140)(read-config-state-graph st_3)))" +"(if or-part_140" +" or-part_140" "(let-values(((ht_159)(make-hasheqv)))(begin(set-read-config-state-graph! st_3 ht_159) ht_159))))))))" "(define-values" "(coerce-key)" @@ -53976,24 +54103,24 @@ static const char *startup_source = "(void)" "(let-values()" "(begin" -"(let-values(((lst_312)" +"(let-values(((lst_315)" "(reverse$1 terminator-accum_0)))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_312)))" -"((letrec-values(((for-loop_274)" -"(lambda(lst_313)" +"(let-values()(check-list lst_315)))" +"((letrec-values(((for-loop_276)" +"(lambda(lst_316)" "(begin" " 'for-loop" -"(if(pair? lst_313)" +"(if(pair? lst_316)" "(let-values(((c_12)" "(unsafe-car" -" lst_313))" -"((rest_176)" +" lst_316))" +"((rest_177)" "(unsafe-cdr" -" lst_313)))" +" lst_316)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -54006,12 +54133,12 @@ static const char *startup_source = "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_274" -" rest_176)" +"(for-loop_276" +" rest_177)" "(values))))" "(values))))))" -" for-loop_274)" -" lst_312)))" +" for-loop_276)" +" lst_315)))" "(void))))" "(if(char=? c_98 '#\\newline)" "(let-values()" @@ -54299,19 +54426,19 @@ static const char *startup_source = "(begin" "(let-values(((wrapped-sym_0)(wrap sym_27 in_44 config_22 c_35)))" "(let-values(((end-line_1 end-col_1 end-pos_3)(port-next-location in_44)))" -"(let-values(((e_85)(read-one_3 #f in_44 config_22)))" +"(let-values(((e_86)(read-one_3 #f in_44 config_22)))" "(begin" -"(if(eof-object? e_85)" +"(if(eof-object? e_86)" "(let-values()" "(let-values(((in1_8) in_44)" "((config2_7) config_22)" -"((e3_0) e_85)" +"((e3_0) e_86)" "((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))))" "(void))" -"(wrap(list wrapped-sym_0 e_85) in_44 config_22 #f))))))))" +"(wrap(list wrapped-sym_0 e_86) in_44 config_22 #f))))))))" "(define-values" "(read-delimited-constant)" "(lambda(init-c_1 can-match?_0 chars_0 val_80 in_44 config_22)" @@ -54438,13 +54565,13 @@ static const char *startup_source = "(reader-error12.1 #f #f #f #f #f #f #f #f 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_87)(read-one_3 #f in_5(next-readtable config_15))))" "(begin" -"(if(eof-object? e_86)" +"(if(eof-object? e_87)" "(let-values()" "(let-values(((in5_1) in_5)" "((config6_0) config_15)" -"((e7_1) e_86)" +"((e7_1) e_87)" "((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))" @@ -54462,7 +54589,7 @@ static const char *startup_source = " temp9_6" "(list dispatch-c10_0))))" "(void))" -"(wrap(box e_86) in_5 config_15 #f))))))))" +"(wrap(box e_87) in_5 config_15 #f))))))))" "(define-values" "(read-regexp)" "(lambda(mode-c_0 accum-str_9 in_5 config_15)" @@ -54955,12 +55082,12 @@ static const char *startup_source = "(let-values(((or-part_266)(char-alphabetic? c_103)))" "(if or-part_266" " or-part_266" -"(let-values(((or-part_350)(char-numeric? c_103)))" -"(if or-part_350" -" or-part_350" -"(let-values(((or-part_295)(char=? '#\\- c_103)))" -"(if or-part_295" -" or-part_295" +"(let-values(((or-part_352)(char-numeric? c_103)))" +"(if or-part_352" +" or-part_352" +"(let-values(((or-part_296)(char=? '#\\- c_103)))" +"(if or-part_296" +" or-part_296" "(let-values(((or-part_171)(char=? '#\\+ c_103)))" "(if or-part_171 or-part_171(char=? '#\\_ c_103)))))))))" " #f))))" @@ -54970,15 +55097,15 @@ static const char *startup_source = "(begin" "(let-values(((accum-str_11)(accum-string-init! config_55)))" "(begin" -"(let-values(((lst_314) already_0))" +"(let-values(((lst_317) already_0))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_314)))" -"((letrec-values(((for-loop_275)" -"(lambda(lst_315)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_317)))" +"((letrec-values(((for-loop_277)" +"(lambda(lst_318)" "(begin" " 'for-loop" -"(if(pair? lst_315)" -"(let-values(((c_104)(unsafe-car lst_315))((rest_177)(unsafe-cdr lst_315)))" +"(if(pair? lst_318)" +"(let-values(((c_104)(unsafe-car lst_318))((rest_178)(unsafe-cdr lst_318)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -54988,10 +55115,10 @@ static const char *startup_source = "(accum-string-add! accum-str_11 c_104))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_275 rest_177)(values))))" +"(if(not #f)(for-loop_277 rest_178)(values))))" "(values))))))" -" for-loop_275)" -" lst_314)))" +" for-loop_277)" +" lst_317)))" "(void)" "((letrec-values(((loop_12)" "(lambda(wanted_1)" @@ -55280,8 +55407,8 @@ static const char *startup_source = "(if keep-comment?28_0 keep-comment?14_1 recursive?_0)))" "(let-values()" "(let-values(((config_58)" -"(let-values(((c1_30)(if recursive?_0(current-read-config) #f)))" -"(if c1_30" +"(let-values(((c1_32)(if recursive?_0(current-read-config) #f)))" +"(if c1_32" "((lambda(config_59)" "(let-values(((config52_0) config_59)" "((for-syntax?53_0) for-syntax?_9)" @@ -55299,7 +55426,7 @@ static const char *startup_source = " local-graph?57_0" " wrap54_1" " config52_0)))" -" c1_30)" +" c1_32)" "(let-values()" "(let-values(((readtable59_1) readtable_3)" "((next-readtable60_1) next-readtable_3)" @@ -55336,8 +55463,8 @@ static const char *startup_source = " wrap63_0" " #t)))))))" "(let-values(((v_244)(read-one init-c_15 in_12 config_58)))" -"(if(if(let-values(((or-part_95)(not recursive?_0)))" -"(if or-part_95 or-part_95 local-graph?_1))" +"(if(if(let-values(((or-part_300)(not recursive?_0)))" +"(if or-part_300 or-part_300 local-graph?_1))" "(read-config-state-graph(read-config-st config_58))" " #f)" "(let-values()" @@ -55572,9 +55699,9 @@ static const char *startup_source = "((in80_1) in_62)" "((r-config81_0) r-config_0)" "((temp82_5)" -"(if(let-values(((or-part_316)(eq? c_107 ec_10)))" -"(if or-part_316" -" or-part_316" +"(if(let-values(((or-part_318)(eq? c_107 ec_10)))" +"(if or-part_318" +" or-part_318" "(if(<(char->integer ec_10) 128)" "(char-numeric? ec_10)" " #f)))" @@ -55725,10 +55852,10 @@ static const char *startup_source = "(list temp101_3))))" "(if(unsafe-fx< index_4 8)" "(let-values()" -"(if(let-values(((or-part_351)" +"(if(let-values(((or-part_353)" "(check-parameter 1/read-square-bracket-as-paren config_56)))" -"(if or-part_351" -" or-part_351" +"(if or-part_353" +" or-part_353" "(check-parameter 1/read-square-bracket-with-tag config_56)))" "(let-values()" "(wrap" @@ -55778,10 +55905,10 @@ static const char *startup_source = " temp111_0" "(list c112_0))))))" "(let-values()" -"(if(let-values(((or-part_352)" +"(if(let-values(((or-part_354)" "(check-parameter 1/read-square-bracket-as-paren config_56)))" -"(if or-part_352" -" or-part_352" +"(if or-part_354" +" or-part_354" "(check-parameter 1/read-square-bracket-with-tag config_56)))" "(let-values()" "(let-values(((in113_1) in_62)" @@ -55825,10 +55952,10 @@ static const char *startup_source = "(list c120_0))))))))" "(if(unsafe-fx< index_4 10)" "(let-values()" -"(if(let-values(((or-part_353)" +"(if(let-values(((or-part_355)" "(check-parameter 1/read-curly-brace-as-paren config_56)))" -"(if or-part_353" -" or-part_353" +"(if or-part_355" +" or-part_355" "(check-parameter 1/read-curly-brace-with-tag config_56)))" "(let-values()" "(wrap" @@ -55879,10 +56006,10 @@ static const char *startup_source = "(list c131_0))))))" "(if(unsafe-fx< index_4 11)" "(let-values()" -"(if(let-values(((or-part_354)" +"(if(let-values(((or-part_356)" "(check-parameter 1/read-curly-brace-as-paren config_56)))" -"(if or-part_354" -" or-part_354" +"(if or-part_356" +" or-part_356" "(check-parameter 1/read-curly-brace-with-tag config_56)))" "(let-values()" "(let-values(((in132_0) in_62)" @@ -56308,8 +56435,8 @@ static const char *startup_source = "(if(eq? c_113 'special)(special1.1 'special) c_113)))))" "(if(char-delimiter? c2_13 config_62)" "(let-values()(wrap #f in_67 config_62 c_109))" -"(if(let-values(((or-part_339)(char=? c2_13 '#\\x)))" -"(if or-part_339 or-part_339(char=? c2_13 '#\\l)))" +"(if(let-values(((or-part_341)(char=? c2_13 '#\\x)))" +"(if or-part_341 or-part_341(char=? c2_13 '#\\l)))" "(let-values()" "(read-fixnum-or-flonum-vector" " read-one" @@ -56740,11 +56867,11 @@ static const char *startup_source = "(let-values(((name_69)" "(let-values(((mod49_0) mod_18)((temp50_4) #t))" "(reference->resolved-module-path32.1 temp50_4 mod49_0))))" -"(let-values(((phase_129)(namespace-phase ns_114)))" +"(let-values(((phase_130)(namespace-phase ns_114)))" "(let-values(((m-ns_17)" "(let-values(((ns51_1) ns_114)" "((name52_0) name_69)" -"((phase53_0) phase_129))" +"((phase53_0) phase_130))" "(namespace->module-namespace82.1" " #f" " #f" @@ -56785,7 +56912,7 @@ static const char *startup_source = "(make-root-expand-context13.1 #f #f #f #f #f #f #f #f temp54_5)))))" "(let-values(((ns46_0) ns_114)" "((temp47_2)(namespace-mpi m-ns_17))" -"((phase48_2) phase_129))" +"((phase48_2) phase_130))" "(namespace-module-make-available!112.1 #f #f ns46_0 temp47_2 phase48_2))" " m-ns_17)))))))))))))))" "(case-lambda" @@ -56836,11 +56963,11 @@ static const char *startup_source = "(let-values(((name_70)" "(let-values(((mod56_0) mod_21)((temp57_0) #f))" "(reference->resolved-module-path32.1 temp57_0 mod56_0))))" -"(let-values(((phase_136)(namespace-phase ns_115)))" +"(let-values(((phase_137)(namespace-phase ns_115)))" "(let-values(((m-ns_15)" "(let-values(((ns58_0) ns_115)" "((name59_0) name_70)" -"((phase60_0) phase_136))" +"((phase60_0) phase_137))" "(namespace->module-namespace82.1" " #f" " #f" @@ -56884,8 +57011,8 @@ static const char *startup_source = "(let-values(((or-part_245)(1/module-path? mod_24)))" "(if or-part_245" " or-part_245" -"(let-values(((or-part_355)(1/module-path-index? mod_24)))" -"(if or-part_355 or-part_355(1/resolved-module-path? mod_24))))))))" +"(let-values(((or-part_357)(1/module-path-index? mod_24)))" +"(if or-part_357 or-part_357(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)" @@ -57051,8 +57178,8 @@ static const char *startup_source = "(read-to-syntax)" "(lambda(s-exp_4 srcloc_11 rep_1)" "(begin" -"(let-values(((the-struct_86) empty-syntax))" -"(if(syntax?$1 the-struct_86)" +"(let-values(((the-struct_85) empty-syntax))" +"(if(syntax?$1 the-struct_85)" "(let-values(((content63_0)(datum-intern-literal s-exp_4))" "((srcloc64_0) srcloc_11)" "((props65_0)" @@ -57064,14 +57191,14 @@ static const char *startup_source = "(let-values() original-props))))))" "(syntax1.1" " content63_0" -"(syntax-scopes the-struct_86)" -"(syntax-shifted-multi-scopes the-struct_86)" -"(syntax-scope-propagations+tamper the-struct_86)" -"(syntax-mpi-shifts the-struct_86)" +"(syntax-scopes the-struct_85)" +"(syntax-shifted-multi-scopes the-struct_85)" +"(syntax-scope-propagations+tamper the-struct_85)" +"(syntax-mpi-shifts the-struct_85)" " srcloc64_0" " props65_0" -"(syntax-inspector the-struct_86)))" -" (raise-argument-error 'struct-copy \"syntax?\" the-struct_86))))))" +"(syntax-inspector the-struct_85)))" +" (raise-argument-error 'struct-copy \"syntax?\" the-struct_85))))))" "(define-values(original-props)(syntax-props(syntax-property$1 empty-syntax original-property-sym #t)))" "(define-values" "(original-square-props)" @@ -57092,32 +57219,32 @@ static const char *startup_source = "(let-values()" "(read-to-syntax" "(reverse$1" -"(let-values(((lst_268) v_251))" +"(let-values(((lst_270) v_251))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_268)))" +"(let-values()(check-list lst_270)))" "((letrec-values(((for-loop_53)" -"(lambda(fold-var_287 lst_281)" +"(lambda(fold-var_290 lst_283)" "(begin" " 'for-loop" -"(if(pair? lst_281)" -"(let-values(((e_87)(unsafe-car lst_281))" -"((rest_178)(unsafe-cdr lst_281)))" -"(let-values(((fold-var_288)" -"(let-values(((fold-var_289) fold-var_287))" -"(let-values(((fold-var_245)" +"(if(pair? lst_283)" +"(let-values(((e_88)(unsafe-car lst_283))" +"((rest_179)(unsafe-cdr lst_283)))" +"(let-values(((fold-var_291)" +"(let-values(((fold-var_292) fold-var_290))" +"(let-values(((fold-var_249)" "(let-values()" "(cons" "(let-values()" -"(read-coerce #t e_87 srcloc_12))" -" fold-var_289))))" -"(values fold-var_245)))))" -"(if(not #f)(for-loop_53 fold-var_288 rest_178) fold-var_288)))" -" fold-var_287)))))" +"(read-coerce #t e_88 srcloc_12))" +" fold-var_292))))" +"(values fold-var_249)))))" +"(if(not #f)(for-loop_53 fold-var_291 rest_179) fold-var_291)))" +" fold-var_290)))))" " for-loop_53)" " null" -" lst_268))))" +" lst_270))))" " srcloc_12" " #f))" "(if(pair? v_251)" @@ -57221,16 +57348,16 @@ static const char *startup_source = "(void)" "(let-values()" " (raise-argument-error 'read-syntax/recursive \"input-port?\" in_31)))" -"(if((lambda(x_87)" -"(let-values(((or-part_76)(not x_87)))" -"(if or-part_76 or-part_76(char? x_87))))" +"(if((lambda(x_90)" +"(let-values(((or-part_76)(not x_90)))" +"(if or-part_76 or-part_76(char? x_90))))" " start_61)" "(void)" "(let-values()" " (raise-argument-error 'read-syntax/recursive \"(or/c char? #f)\" start_61)))" -"(if((lambda(x_88)" -"(let-values(((or-part_78)(not x_88)))" -"(if or-part_78 or-part_78(1/readtable? x_88))))" +"(if((lambda(x_91)" +"(let-values(((or-part_78)(not x_91)))" +"(if or-part_78 or-part_78(1/readtable? x_91))))" " readtable_7)" "(void)" "(let-values()" @@ -57282,14 +57409,14 @@ static const char *startup_source = "(void)" " (let-values () (raise-argument-error 'read/recursive \"input-port?\" in_20)))" "(if((lambda(x_19)" -"(let-values(((or-part_95)(not x_19)))" -"(if or-part_95 or-part_95(char? x_19))))" +"(let-values(((or-part_300)(not x_19)))" +"(if or-part_300 or-part_300(char? x_19))))" " start_38)" "(void)" " (let-values () (raise-argument-error 'read/recursive \"(or/c char? #f)\" start_38)))" "(if((lambda(x_23)" -"(let-values(((or-part_96)(not x_23)))" -"(if or-part_96 or-part_96(1/readtable? x_23))))" +"(let-values(((or-part_276)(not x_23)))" +"(if or-part_276 or-part_276(1/readtable? x_23))))" " readtable_9)" "(void)" "(let-values()" @@ -57316,7 +57443,7 @@ static const char *startup_source = "(if(input-port? in_56)" "(void)" " (let-values () (raise-argument-error 'read-language \"input-port?\" in_56)))" -"(if((lambda(p_42)(if(procedure? p_42)(procedure-arity-includes? p_42 0) #f))" +"(if((lambda(p_43)(if(procedure? p_43)(procedure-arity-includes? p_43 0) #f))" " fail-thunk_2)" "(void)" "(let-values()" @@ -57434,12 +57561,12 @@ static const char *startup_source = "(void)" "(let-values()(check-list lst_23)))" "((letrec-values(((for-loop_20)" -"(lambda(lst_266)" +"(lambda(lst_268)" "(begin" " 'for-loop" -"(if(pair? lst_266)" -"(let-values(((sym_95)(unsafe-car lst_266))" -"((rest_179)(unsafe-cdr lst_266)))" +"(if(pair? lst_268)" +"(let-values(((sym_95)(unsafe-car lst_268))" +"((rest_180)(unsafe-cdr lst_268)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -57458,7 +57585,7 @@ static const char *startup_source = "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_20 rest_179)" +"(for-loop_20 rest_180)" "(values))))" "(values))))))" " for-loop_20)" @@ -57517,7 +57644,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:_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" @@ -57527,19 +57654,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_89)(1/exn:fail:filesystem:missing-module-path e_89))))" " #f" " #f" " '(0)" " #f" " 'exn:fail:filesystem:missing-module)))))" -"(values struct:_77 make-_77 ?_77(make-struct-field-accessor -ref_77 0 'path))))" +"(values struct:_78 make-_78 ?_78(make-struct-field-accessor -ref_78 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:_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" @@ -57549,13 +57676,13 @@ 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_74)(1/exn:fail:syntax:missing-module-path e_74))))" " #f" " #f" " '(0)" " #f" " 'exn:fail:syntax:missing-module)))))" -"(values struct:_62 make-_62 ?_62(make-struct-field-accessor -ref_62 0 'path))))" +"(values struct:_63 make-_63 ?_63(make-struct-field-accessor -ref_63 0 'path))))" "(define-values" "(1/current-module-path-for-load)" "(make-parameter" @@ -57661,7 +57788,7 @@ static const char *startup_source = " #t)))))))))))" "(case-lambda" "((s_170 context_1 stop-ids_3)(begin 'local-expand(local-expand6_0 s_170 context_1 stop-ids_3 #f #f)))" -"((s_162 context_11 stop-ids_4 intdefs1_1)(local-expand6_0 s_162 context_11 stop-ids_4 intdefs1_1 #t)))))" +"((s_163 context_11 stop-ids_4 intdefs1_1)(local-expand6_0 s_163 context_11 stop-ids_4 intdefs1_1 #t)))))" "(define-values" "(1/local-expand/capture-lifts)" "(let-values(((local-expand/capture-lifts15_0)" @@ -57705,8 +57832,8 @@ static const char *startup_source = "(begin 'local-expand/capture-lifts(local-expand/capture-lifts15_0 s_80 context_13 stop-ids_6 #f #f #f #f)))" "((s_42 context_14 stop-ids_7 intdefs_5 lift-key9_1)" "(local-expand/capture-lifts15_0 s_42 context_14 stop-ids_7 intdefs_5 lift-key9_1 #t #t))" -"((s_180 context_15 stop-ids_8 intdefs8_1)" -"(local-expand/capture-lifts15_0 s_180 context_15 stop-ids_8 intdefs8_1 #f #t #f)))))" +"((s_181 context_15 stop-ids_8 intdefs8_1)" +"(local-expand/capture-lifts15_0 s_181 context_15 stop-ids_8 intdefs8_1 #f #t #f)))))" "(define-values" "(1/local-transformer-expand)" "(let-values(((local-transformer-expand22_0)" @@ -57744,10 +57871,10 @@ static const char *startup_source = " intdefs75_0" " #t)))))))))))" "(case-lambda" -"((s_457 context_17 stop-ids_10)" -"(begin 'local-transformer-expand(local-transformer-expand22_0 s_457 context_17 stop-ids_10 #f #f)))" -"((s_458 context_18 stop-ids_11 intdefs17_1)" -"(local-transformer-expand22_0 s_458 context_18 stop-ids_11 intdefs17_1 #t)))))" +"((s_458 context_17 stop-ids_10)" +"(begin 'local-transformer-expand(local-transformer-expand22_0 s_458 context_17 stop-ids_10 #f #f)))" +"((s_459 context_18 stop-ids_11 intdefs17_1)" +"(local-transformer-expand22_0 s_459 context_18 stop-ids_11 intdefs17_1 #t)))))" "(define-values" "(1/local-transformer-expand/capture-lifts)" "(let-values(((local-transformer-expand/capture-lifts31_0)" @@ -57788,12 +57915,12 @@ static const char *startup_source = " intdefs81_0" " #t))))))))))))" "(case-lambda" -"((s_459 context_20 stop-ids_13)" +"((s_460 context_20 stop-ids_13)" "(begin" " 'local-transformer-expand/capture-lifts" -"(local-transformer-expand/capture-lifts31_0 s_459 context_20 stop-ids_13 #f #f #f #f)))" -"((s_396 context_21 stop-ids_14 intdefs_8 lift-key25_1)" -"(local-transformer-expand/capture-lifts31_0 s_396 context_21 stop-ids_14 intdefs_8 lift-key25_1 #t #t))" +"(local-transformer-expand/capture-lifts31_0 s_460 context_20 stop-ids_13 #f #f #f #f)))" +"((s_397 context_21 stop-ids_14 intdefs_8 lift-key25_1)" +"(local-transformer-expand/capture-lifts31_0 s_397 context_21 stop-ids_14 intdefs_8 lift-key25_1 #t #t))" "((s_85 context_22 stop-ids_15 intdefs24_1)" "(local-transformer-expand/capture-lifts31_0 s_85 context_22 stop-ids_15 intdefs24_1 #f #t #f)))))" "(define-values" @@ -57802,12 +57929,12 @@ static const char *startup_source = "(lambda(s35_1 opaque-only?33_0 opaque-only?34_0)" "(begin" " 'syntax-local-expand-expression36" -"(let-values(((s_460) s35_1))" +"(let-values(((s_461) s35_1))" "(let-values(((opaque-only?_0)(if opaque-only?34_0 opaque-only?33_0 #f)))" "(let-values()" "(let-values(((exp-s_12)" "(let-values(((temp85_3) 'syntax-local-expand-expression)" -"((s86_1) s_460)" +"((s86_1) s_461)" "((temp87_4) 'expression)" "((null88_0) null)" "((temp89_4) #f)" @@ -57890,8 +58017,8 @@ static const char *startup_source = "(let-values(((lift-key_6)" "(if lift-key47_1" " lift-key41_0" -"(if(let-values(((or-part_356) capture-lifts?_0))" -"(if or-part_356 or-part_356 as-transformer?_5))" +"(if(let-values(((or-part_358) capture-lifts?_0))" +"(if or-part_358 or-part_358 as-transformer?_5))" "(generate-lift-key)" " #f))))" "(let-values(((track-to-be-defined?_1)" @@ -57899,7 +58026,7 @@ static const char *startup_source = "(let-values(((skip-log-exit?_0)(if skip-log-exit?49_0 skip-log-exit?43_0 #f)))" "(let-values()" "(let-values()" -"(let-values(((s_383)(datum->syntax$1 #f s-or-s-exp_0)))" +"(let-values(((s_384)(datum->syntax$1 #f s-or-s-exp_0)))" "(let-values((()" "(begin" "(if(let-values(((or-part_166)(list? context_23)))" @@ -57956,14 +58083,14 @@ static const char *startup_source = "(let-values(((ctx_75)" "(let-values(((who93_0) who_34))" "(get-current-expand-context17.1 #f #f who93_0 #t))))" -"(let-values(((phase_141)" +"(let-values(((phase_142)" "(if as-transformer?_5" "(add1(expand-context-phase ctx_75))" "(expand-context-phase ctx_75))))" "(let-values(((local-ctx_0)" "(let-values(((ctx94_0) ctx_75)" "((context95_0) context_23)" -"((phase96_0) phase_141)" +"((phase96_0) phase_142)" "((intdefs97_0) intdefs_9)" "((stop-ids98_0) stop-ids_16)" "((to-parsed-ok?99_0) to-parsed-ok?_1)" @@ -57985,7 +58112,7 @@ static const char *startup_source = "(begin" "(namespace-visit-available-modules!" "(expand-context-namespace ctx_75)" -" phase_141)" +" phase_142)" "(values))))" "(let-values((()" "(begin" @@ -57997,12 +58124,12 @@ static const char *startup_source = "(call-expand-observe" " obs_59" " 'enter-local" -" s_383)))" +" s_384)))" "(void)))" "(values))))" "(let-values(((input-s_1)" "(let-values(((temp101_4)" -"(flip-introduction-scopes s_383 ctx_75))" +"(flip-introduction-scopes s_384 ctx_75))" "((intdefs102_0) intdefs_9))" "(add-intdef-scopes21.1" " #f" @@ -58218,62 +58345,62 @@ static const char *startup_source = "(let-values()" "(taint-dispatch" " s_169" -"(lambda(s_461)(syntax-arm$1 s_461 insp_21))" +"(lambda(s_462)(syntax-arm$1 s_462 insp_21))" "(1/syntax-local-phase-level)))" "(let-values()(syntax-arm$1 s_169 insp_21))))))))))))))))" "(case-lambda" "((s_170)(begin 'syntax-arm(syntax-arm6_0 s_170 #f #f #f #f)))" "((s_171 maybe-insp_1 use-mode?2_1)(syntax-arm6_0 s_171 maybe-insp_1 use-mode?2_1 #t #t))" -"((s_418 maybe-insp1_1)(syntax-arm6_0 s_418 maybe-insp1_1 #f #t #f)))))" +"((s_419 maybe-insp1_1)(syntax-arm6_0 s_419 maybe-insp1_1 #f #t #f)))))" "(define-values" "(1/syntax-disarm)" -"(lambda(s_462 maybe-insp_2)" +"(lambda(s_463 maybe-insp_2)" "(begin" " 'syntax-disarm" "(let-values()" "(let-values()" "(let-values((()" "(begin" -"(if(syntax?$1 s_462)" +"(if(syntax?$1 s_463)" "(void)" -" (let-values () (raise-argument-error 'syntax-disarm \"syntax?\" s_462)))" +" (let-values () (raise-argument-error 'syntax-disarm \"syntax?\" s_463)))" "(values))))" "(let-values((()" "(begin" -"(if(let-values(((or-part_357)(not maybe-insp_2)))" -"(if or-part_357 or-part_357(inspector? maybe-insp_2)))" +"(if(let-values(((or-part_359)(not maybe-insp_2)))" +"(if or-part_359 or-part_359(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_462 insp_22)))))))))" +"(let-values(((insp_22)(inspector-for-taint maybe-insp_2)))(syntax-disarm$1 s_463 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)" "(begin" " 'syntax-rearm12" -"(let-values(((s_417) s10_0))" +"(let-values(((s_418) 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)))" "(let-values()" "(let-values()" "(let-values()" "(begin" -"(if(syntax?$1 s_417)" +"(if(syntax?$1 s_418)" "(void)" -" (let-values () (raise-argument-error 'syntax-rearm \"syntax?\" s_417)))" +" (let-values () (raise-argument-error 'syntax-rearm \"syntax?\" s_418)))" "(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_417" -"(lambda(s_463)(syntax-rearm$1 s_463 from-s_2))" +" s_418" +"(lambda(s_464)(syntax-rearm$1 s_464 from-s_2))" "(1/syntax-local-phase-level)))" -"(let-values()(syntax-rearm$1 s_417 from-s_2))))))))))))))" +"(let-values()(syntax-rearm$1 s_418 from-s_2))))))))))))))" "(case-lambda" -"((s_414 from-s_3)(begin 'syntax-rearm(syntax-rearm12_0 s_414 from-s_3 #f #f)))" +"((s_415 from-s_3)(begin 'syntax-rearm(syntax-rearm12_0 s_415 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)))))" "(define-values" "(1/syntax-taint)" @@ -58289,9 +58416,9 @@ static const char *startup_source = "(inspector-for-taint)" "(lambda(maybe-insp_3)" "(begin" -"(let-values(((or-part_358) maybe-insp_3))" -"(if or-part_358" -" or-part_358" +"(let-values(((or-part_360) maybe-insp_3))" +"(if or-part_360" +" or-part_360" "(let-values(((or-part_93)(current-module-code-inspector)))" "(if or-part_93 or-part_93(current-code-inspector))))))))" "(define-values" @@ -58779,7 +58906,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-hash-keys ht_25)))" -"((letrec-values(((for-loop_56)" +"((letrec-values(((for-loop_278)" "(lambda(i_26)" "(begin" " 'for-loop" @@ -58797,10 +58924,11 @@ static const char *startup_source = "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_56(hash-iterate-next ht_25 i_26))" +"(for-loop_278" +"(hash-iterate-next ht_25 i_26))" "(values))))" "(values))))))" -" for-loop_56)" +" for-loop_278)" "(hash-iterate-first ht_25))))" "(values))))" "(let-values()" @@ -58810,7 +58938,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-hash ht_161)))" -"((letrec-values(((for-loop_264)" +"((letrec-values(((for-loop_266)" "(lambda(table_11 i_183)" "(begin" " 'for-loop" @@ -58849,12 +58977,12 @@ static const char *startup_source = " val_82)))))" "(values table_226)))))))" "(if(not #f)" -"(for-loop_264" +"(for-loop_266" " table_224" "(hash-iterate-next ht_161 i_183))" " table_224)))" " table_11)))))" -" for-loop_264)" +" for-loop_266)" " '#hasheq()" "(hash-iterate-first ht_161))))))" "(let-values(((ht+extras_0)" @@ -58863,7 +58991,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-hash ht_162)))" -"((letrec-values(((for-loop_276)" +"((letrec-values(((for-loop_279)" "(lambda(ht_163 i_184)" "(begin" " 'for-loop" @@ -58882,12 +59010,12 @@ static const char *startup_source = " v_50))))" "(values ht_165)))))" "(if(not #f)" -"(for-loop_276" +"(for-loop_279" " ht_164" "(hash-iterate-next ht_162 i_184))" " ht_164)))" " ht_163)))))" -" for-loop_276)" +" for-loop_279)" " ht_160" "(hash-iterate-first ht_162))))))" "(let-values(((to-name61_0) to-name_0)" @@ -58946,7 +59074,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-hash-keys ht_167)))" -"((letrec-values(((for-loop_277)" +"((letrec-values(((for-loop_280)" "(lambda(table_227 i_185)" "(begin" " 'for-loop" @@ -59002,10 +59130,10 @@ static const char *startup_source = " sym78_0))))" "(values" " sym_98" -"(if(let-values(((or-part_359)" +"(if(let-values(((or-part_361)" " protected?_11))" -"(if or-part_359" -" or-part_359" +"(if or-part_361" +" or-part_361" "(member" " sym_98" " protected-syms_0)))" @@ -59021,14 +59149,14 @@ static const char *startup_source = "(values" " table_230)))))" "(if(not #f)" -"(for-loop_277" +"(for-loop_280" " table_228" "(hash-iterate-next" " ht_167" " i_185))" " table_228)))" " table_227)))))" -" for-loop_277)" +" for-loop_280)" " '#hash()" "(hash-iterate-first ht_167))))))" "((temp75_3)" @@ -59048,7 +59176,7 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()(check-in-hash ht_168)))" -"((letrec-values(((for-loop_278)" +"((letrec-values(((for-loop_281)" "(lambda(i_47)" "(begin" " 'for-loop" @@ -59071,13 +59199,13 @@ static const char *startup_source = "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_278" +"(for-loop_281" "(hash-iterate-next" " ht_168" " i_47))" "(values))))" "(values))))))" -" for-loop_278)" +" for-loop_281)" "(hash-iterate-first ht_168))))" "(void)))" "(void)))))" @@ -59130,21 +59258,21 @@ static const char *startup_source = "(let-values(((mpi_56)(1/module-path-index-join(list 'quote name_75) #f)))" "(let-values(((require-mpis_0)" "(reverse$1" -"(let-values(((lst_203) require-names_0))" +"(let-values(((lst_205) require-names_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_203)))" -"((letrec-values(((for-loop_202)" -"(lambda(fold-var_40 lst_204)" +"(let-values()(check-list lst_205)))" +"((letrec-values(((for-loop_203)" +"(lambda(fold-var_147 lst_206)" "(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_290)" -"(let-values(((fold-var_291) fold-var_40))" -"(let-values(((fold-var_292)" +"(if(pair? lst_206)" +"(let-values(((require-name_0)(unsafe-car lst_206))" +"((rest_107)(unsafe-cdr lst_206)))" +"(let-values(((fold-var_293)" +"(let-values(((fold-var_294) fold-var_147))" +"(let-values(((fold-var_40)" "(let-values()" "(cons" "(let-values()" @@ -59153,15 +59281,15 @@ static const char *startup_source = " 'quote" " require-name_0)" " #f))" -" fold-var_291))))" -"(values fold-var_292)))))" +" fold-var_294))))" +"(values fold-var_40)))))" "(if(not #f)" -"(for-loop_202 fold-var_290 rest_107)" -" fold-var_290)))" -" fold-var_40)))))" -" for-loop_202)" +"(for-loop_203 fold-var_293 rest_107)" +" fold-var_293)))" +" fold-var_147)))))" +" for-loop_203)" " null" -" lst_203))))))" +" lst_205))))))" "(let-values(((ns79_1) ns_122)" "((temp80_4)" "(let-values(((temp82_7) #t)" @@ -59178,14 +59306,14 @@ static const char *startup_source = "(void)" "(let-values()(check-list lst_111)))" "((letrec-values(((for-loop_32)" -"(lambda(table_29 lst_316)" +"(lambda(table_29 lst_55)" "(begin" " 'for-loop" -"(if(pair? lst_316)" +"(if(pair? lst_55)" "(let-values(((require-mpi_0)" -"(unsafe-car lst_316))" -"((rest_180)" -"(unsafe-cdr lst_316)))" +"(unsafe-car lst_55))" +"((rest_181)" +"(unsafe-cdr lst_55)))" "(let-values(((table_30)" "(let-values(((m_29)" "(namespace->module" @@ -59194,7 +59322,7 @@ static const char *startup_source = " require-mpi_0))))" "(begin" " #t" -"((letrec-values(((for-loop_279)" +"((letrec-values(((for-loop_282)" "(lambda(table_35)" "(begin" " 'for-loop" @@ -59258,10 +59386,10 @@ static const char *startup_source = "(hash-iterate-first" " ht_36))))))" " table_36))))))" -" for-loop_279)" +" for-loop_282)" " table_29)))))" "(if(not #f)" -"(for-loop_32 table_30 rest_180)" +"(for-loop_32 table_30 rest_181)" " table_30)))" " table_29)))))" " for-loop_32)" @@ -59366,13 +59494,13 @@ static const char *startup_source = "(let-values()" "(case-lambda" "((s_69)(begin 'eval((1/current-eval)(intro s_69))))" -"((s_179 ns_123)" +"((s_180 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_179 ns_123))))))))))" +"(let-values()((1/current-eval)(intro s_180 ns_123))))))))))" "(define-values" "(1/eval-syntax)" "(let-values()" @@ -59395,26 +59523,26 @@ static const char *startup_source = "(define-values(compile$1)(lambda(s_169)(begin 'compile((1/current-compile)(intro s_169) #f))))" "(define-values" "(1/compile-syntax)" -"(lambda(s_183)" +"(lambda(s_184)" "(begin" " 'compile-syntax" "(let-values()" "(let-values()" "(begin" -" (if (syntax?$1 s_183) (void) (let-values () (raise-argument-error 'compile-syntax \"syntax?\" s_183)))" -"((1/current-compile) s_183 #f)))))))" +" (if (syntax?$1 s_184) (void) (let-values () (raise-argument-error 'compile-syntax \"syntax?\" s_184)))" +"((1/current-compile) s_184 #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_464)" +"(lambda(s_465)" "(begin" " 'expand-syntax" "(let-values()" "(let-values()" "(begin" -" (if (syntax?$1 s_464) (void) (let-values () (raise-argument-error 'expand-syntax \"syntax?\" s_464)))" -"(expand$1 s_464(1/current-namespace) #t)))))))" -"(define-values(1/expand-once)(lambda(s_461)(begin 'expand-once(expand-once$1(intro s_461)))))" +" (if (syntax?$1 s_465) (void) (let-values () (raise-argument-error 'expand-syntax \"syntax?\" s_465)))" +"(expand$1 s_465(1/current-namespace) #t)))))))" +"(define-values(1/expand-once)(lambda(s_462)(begin 'expand-once(expand-once$1(intro s_462)))))" "(define-values" "(1/expand-syntax-once)" "(lambda(s_170)" @@ -59428,16 +59556,16 @@ static const char *startup_source = "(define-values(1/expand-to-top-form)(lambda(s_72)(begin 'expand-to-top-form(expand-to-top-form$1(intro s_72)))))" "(define-values" "(1/expand-syntax-to-top-form)" -"(lambda(s_162)" +"(lambda(s_163)" "(begin" " 'expand-syntax-to-top-form" "(let-values()" "(let-values()" "(begin" -"(if(syntax?$1 s_162)" +"(if(syntax?$1 s_163)" "(void)" -" (let-values () (raise-argument-error 'expand-syntax-to-top-form \"syntax?\" s_162)))" -"(expand-to-top-form$1 s_162)))))))" +" (let-values () (raise-argument-error 'expand-syntax-to-top-form \"syntax?\" s_163)))" +"(expand-to-top-form$1 s_163)))))))" "(define-values" "(intro)" "(let-values(((intro4_0)" @@ -59447,8 +59575,8 @@ static const char *startup_source = "(let-values(((given-s_1) given-s3_0))" "(let-values(((ns_68)(if ns2_1 ns1_7(1/current-namespace))))" "(let-values()" -"(let-values(((s_387)(if(syntax?$1 given-s_1) given-s_1(1/datum->syntax #f given-s_1))))" -"(1/namespace-syntax-introduce s_387 ns_68)))))))))" +"(let-values(((s_388)(if(syntax?$1 given-s_1) given-s_1(1/datum->syntax #f given-s_1))))" +"(1/namespace-syntax-introduce s_388 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)))))" "(define-values" "(main-primitives)" @@ -59617,10 +59745,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_89)(TH-place-channel-ref x_89 0))))))" +"(make-struct-type 'TH-place-channel #f 2 0 #f(list(cons prop:evt(lambda(x_92)(TH-place-channel-ref x_92 0))))))" "(define-values" "(TH-place-channel-in TH-place-channel-out)" -"(values(lambda(x_90)(TH-place-channel-ref x_90 0))(lambda(x_78)(TH-place-channel-ref x_78 1))))" +"(values(lambda(x_93)(TH-place-channel-ref x_93 0))(lambda(x_81)(TH-place-channel-ref x_81 1))))" "(define-values" "(place-struct-primitives)" "(hasheq" @@ -59744,8 +59872,8 @@ static const char *startup_source = "(check-module-form)" "(lambda(exp_0 filename_1)" "(begin" -"(if(let-values(((or-part_299)(eof-object? exp_0)))" -"(if or-part_299 or-part_299(eof-object?(1/syntax-e exp_0))))" +"(if(let-values(((or-part_301)(eof-object? exp_0)))" +"(if or-part_301 or-part_301(eof-object?(1/syntax-e exp_0))))" "(let-values()" "(if filename_1" "(error" @@ -59823,8 +59951,8 @@ static const char *startup_source = "(with-module-reading-parameterization+delay-source" " path_12" "(lambda()" -"(let-values(((c1_31)(linklet-directory-start i_186)))" -"(if c1_31" +"(let-values(((c1_33)(linklet-directory-start i_186)))" +"(if c1_33" "((lambda(pos_125)" "(let-values(((b-pos_0)" "(search-directory i_186 pos_125(encode-symbols expected-mod_0))))" @@ -59853,7 +59981,7 @@ static const char *startup_source = " 'default-load-handler" " (string-append \"could not find main module\\n\" \" in: ~e\")" "(object-name i_186)))))))" -" c1_31)" +" c1_33)" "(if(if(pair? expected-mod_0)(not(car expected-mod_0)) #f)" "(let-values() void)" "(let-values(((c2_17)(cached-bundle i_186)))" @@ -59892,11 +60020,11 @@ static const char *startup_source = "(lambda()((1/current-eval) m-s_0))))))))))))))))))))" "(let-values()" "(let-values(((add-top-interaction_0)" -"(lambda(s_418)" +"(lambda(s_419)" "(begin" " 'add-top-interaction" "(1/namespace-syntax-introduce" -"(1/datum->syntax #f(cons '#%top-interaction s_418) s_418))))))" +"(1/datum->syntax #f(cons '#%top-interaction s_419) s_419))))))" "(let-values(((path1_0) path_12)" "((temp2_8)" "(lambda(i_84)" @@ -59982,28 +60110,28 @@ static const char *startup_source = "(let-values(((hash-code_5)(if pos_14(peek-bytes 20 pos_14 i_85) #f)))" "(if(bytes? hash-code_5)" "(if(= 20(bytes-length hash-code_5))" -"(if(let-values(((vec_68 len_39)" -"(let-values(((vec_69) hash-code_5))" -"(begin(check-bytes vec_69)(values vec_69(unsafe-bytes-length vec_69))))))" +"(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))))))" "(begin" " #f" -"((letrec-values(((for-loop_229)" -"(lambda(result_122 pos_126)" +"((letrec-values(((for-loop_230)" +"(lambda(result_127 pos_126)" "(begin" " 'for-loop" -"(if(unsafe-fx< pos_126 len_39)" -"(let-values(((c_76)(unsafe-bytes-ref vec_68 pos_126)))" -"(let-values(((result_123)" +"(if(unsafe-fx< pos_126 len_40)" +"(let-values(((c_76)(unsafe-bytes-ref vec_71 pos_126)))" +"(let-values(((result_128)" "(let-values()" -"(let-values(((result_124)" +"(let-values(((result_129)" "(let-values()" "(let-values()(not(eq? c_76 0))))))" -"(values result_124)))))" -"(if(if(not((lambda x_91 result_123) c_76))(not #f) #f)" -"(for-loop_229 result_123(unsafe-fx+ 1 pos_126))" -" result_123)))" -" result_122)))))" -" for-loop_229)" +"(values result_129)))))" +"(if(if(not((lambda x_94 result_128) c_76))(not #f) #f)" +"(for-loop_230 result_128(unsafe-fx+ 1 pos_126))" +" result_128)))" +" result_127)))))" +" for-loop_230)" " #f" " 0)))" " hash-code_5" @@ -60082,11 +60210,11 @@ static const char *startup_source = "(apply" " bytes-append" "(reverse$1" -"(let-values(((lst_317)(cdr expected-mod_1)))" +"(let-values(((lst_319)(cdr expected-mod_1)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_317)))" +"(let-values()(check-list lst_319)))" "((letrec-values(((for-loop_103)" "(lambda(fold-var_63 lst_93)" "(begin" @@ -60102,18 +60230,18 @@ static const char *startup_source = "(let-values(((bstr_6)" "(string->bytes/utf-8" "(symbol->string s_177))))" -"(let-values(((len_40)" +"(let-values(((len_41)" "(bytes-length bstr_6)))" -"(if(< len_40 255)" +"(if(< len_41 255)" "(let-values()" "(bytes-append" -"(bytes len_40)" +"(bytes len_41)" " bstr_6))" "(let-values()" "(bytes-append" " 255" "(integer->integer-bytes" -" len_40" +" len_41" " 4" " #f" " #f)" @@ -60124,7 +60252,7 @@ static const char *startup_source = " fold-var_63)))))" " for-loop_103)" " null" -" lst_317))))))))))" +" lst_319))))))))))" "(define-values" "(with-module-reading-parameterization+delay-source)" "(lambda(path_13 thunk_7)" @@ -60250,16 +60378,16 @@ static const char *startup_source = "(let-values(((base_23 orig-file_0 dir?_7)(split-path path_15)))" "(let-values(((file_1 alt-file_0)" "(if expect-module_0" -"(let-values(((b_90)(path->bytes orig-file_0)))" -"(let-values(((len_37)(bytes-length b_90)))" -"(if(if(>= len_37 4)" -" (bytes=? #\".rkt\" (subbytes b_90 (- len_37 4)))" +"(let-values(((b_91)(path->bytes orig-file_0)))" +"(let-values(((len_38)(bytes-length b_91)))" +"(if(if(>= len_38 4)" +" (bytes=? #\".rkt\" (subbytes b_91 (- len_38 4)))" " #f)" "(let-values()" "(values" " orig-file_0" "(bytes->path" -" (bytes-append (subbytes b_90 0 (- len_37 4)) #\".ss\"))))" +" (bytes-append (subbytes b_91 0 (- len_38 4)) #\".ss\"))))" "(let-values()(values orig-file_0 #f)))))" "(values orig-file_0 #f))))" "(let-values(((path_16)" @@ -60322,9 +60450,9 @@ static const char *startup_source = "(let-values(((so_0)(get-so_0 file_1 #t)))" "(let-values(((alt-so_0)(get-so_0 alt-file_0 #t)))" "(let-values(((try-main?_0)" -"(let-values(((or-part_360) main-path-d_0))" -"(if or-part_360" -" or-part_360" +"(let-values(((or-part_362) main-path-d_0))" +"(if or-part_362" +" or-part_362" "(not alt-path-d_0)))))" "(let-values(((try-alt?_0)" "(if alt-file_0" @@ -60339,7 +60467,7 @@ static const char *startup_source = "(begin" " 'with-dir" "(with-dir*_0 base_26 t_59)))))" -"(let-values(((c1_32)" +"(let-values(((c1_34)" "(if try-main?_0" "(date>=?_0" " modes_3" @@ -60347,7 +60475,7 @@ static const char *startup_source = " so_0" " path-d_0)" " #f)))" -"(if c1_32" +"(if c1_34" "((lambda(so-d_0)" "(with-continuation-mark" " parameterization-key" @@ -60363,7 +60491,7 @@ static const char *startup_source = "((current-load-extension)" "(car so-d_0)" " expect-module_0))))))" -" c1_32)" +" c1_34)" "(let-values(((c2_18)" "(if try-alt?_0" "(date>=?_0" @@ -60453,22 +60581,22 @@ static const char *startup_source = "(car zo-d_1)" " expect-module_0)))))))" " c4_3)" -"(if(let-values(((or-part_349)" +"(if(let-values(((or-part_351)" "(not" "(pair?" " expect-module_0))))" -"(if or-part_349" -" or-part_349" +"(if or-part_351" +" or-part_351" "(car expect-module_0)))" "(let-values()" -"(let-values(((p_39)" +"(let-values(((p_40)" "(if try-main?_0" " path_16" " alt-path_0)))" "(if(if(pair?" " expect-module_0)" "(not" -"(file-exists? p_39))" +"(file-exists? p_40))" " #f)" "(void)" "(let-values()" @@ -60481,14 +60609,14 @@ static const char *startup_source = " 1/current-module-declare-source" "(if expect-module_0" "(if(not try-main?_0)" -" p_39" +" p_40" " #f)" " #f))" "(let-values()" "(with-dir_0" "(lambda()" "((1/current-load)" -" p_39" +" p_40" " expect-module_0)))))))))" "(void))))))))))))))))))))))))))))))))))))))))))))" "(define-values" @@ -60500,7 +60628,7 @@ static const char *startup_source = "(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_90)(hash-ref -module-hash-table-table reg_0 #f)))(if e_90(ephemeron-value e_90) #f)))))" "(define-values" "(registry-table-set!)" "(lambda(reg_1 v_201)(begin(hash-set! -module-hash-table-table reg_1(make-ephemeron reg_1 v_201)))))" @@ -60532,30 +60660,30 @@ static const char *startup_source = "(define-values(-prev-relto-dir) #f)" "(define-values" "(split-relative-string)" -"(lambda(s_459 coll-mode?_0)" +"(lambda(s_460 coll-mode?_0)" "(begin" "(let-values(((l_19)" "((letrec-values(((loop_117)" -"(lambda(s_465)" +"(lambda(s_466)" "(begin" " 'loop" -"(let-values(((len_41)(string-length s_465)))" +"(let-values(((len_42)(string-length s_466)))" "((letrec-values(((iloop_2)" "(lambda(i_100)" "(begin" " 'iloop" -"(if(= i_100 len_41)" -"(let-values()(list s_465))" -"(if(char=? '#\\/(string-ref s_465 i_100))" +"(if(= i_100 len_42)" +"(let-values()(list s_466))" +"(if(char=? '#\\/(string-ref s_466 i_100))" "(let-values()" "(cons" -"(substring s_465 0 i_100)" -"(loop_117(substring s_465(add1 i_100)))))" +"(substring s_466 0 i_100)" +"(loop_117(substring s_466(add1 i_100)))))" "(let-values()(iloop_2(add1 i_100)))))))))" " iloop_2)" " 0))))))" " loop_117)" -" s_459)))" +" s_460)))" "(if coll-mode?_0" " l_19" "((letrec-values(((loop_101)" @@ -60598,29 +60726,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_460 from-namespace_1)" +"((s_461 from-namespace_1)" "(begin" " 'standard-module-name-resolver" "(begin" -"(if(1/resolved-module-path? s_460)" +"(if(1/resolved-module-path? s_461)" "(void)" "(let-values()" -" (raise-argument-error 'standard-module-name-resolver \"resolved-module-path?\" s_460)))" -"(if(let-values(((or-part_129)(not from-namespace_1)))" -"(if or-part_129 or-part_129(1/namespace? from-namespace_1)))" +" (raise-argument-error 'standard-module-name-resolver \"resolved-module-path?\" s_461)))" +"(if(let-values(((or-part_131)(not from-namespace_1)))" +"(if or-part_131 or-part_131(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_460))(void))" +"(if planet-resolver_0(let-values()(planet-resolver_0 s_461))(void))" "(let-values(((hts_1)" -"(let-values(((or-part_301)" +"(let-values(((or-part_95)" "(registry-table-ref" "(namespace-module-registry$1(1/current-namespace)))))" -"(if or-part_301" -" or-part_301" +"(if or-part_95" +" or-part_95" "(let-values(((hts_2)(cons(make-hasheq)(make-hasheq))))" "(begin" "(registry-table-set!" @@ -60628,14 +60756,14 @@ static const char *startup_source = " hts_2)" " hts_2))))))" "(begin" -"(hash-set!(car hts_1) s_460 'declared)" +"(hash-set!(car hts_1) s_461 'declared)" "(if from-namespace_1" "(let-values()" "(let-values(((root-name_2)" -"(if(pair?(1/resolved-module-path-name s_460))" +"(if(pair?(1/resolved-module-path-name s_461))" "(1/make-resolved-module-path" -"(car(1/resolved-module-path-name s_460)))" -" s_460))" +"(car(1/resolved-module-path-name s_461)))" +" s_461))" "((from-hts_0)" "(registry-table-ref" "(namespace-module-registry$1 from-namespace_1))))" @@ -60647,14 +60775,14 @@ static const char *startup_source = "(void))))" "(void))))" "(void)))))))" -"((s_466 relto_0 stx_18)" +"((s_467 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_466 relto_0 stx_18 #t)))" +"(standard-module-name-resolver_0 s_467 relto_0 stx_18 #t)))" "((s_26 relto_1 stx_19 load?_7)" "(let-values((()" "(begin" @@ -60670,8 +60798,8 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(if(let-values(((or-part_132)(not relto_1)))" -"(if or-part_132 or-part_132(1/resolved-module-path? relto_1)))" +"(if(let-values(((or-part_134)(not relto_1)))" +"(if or-part_134 or-part_134(1/resolved-module-path? relto_1)))" "(void)" "(let-values()" "(raise-argument-error" @@ -60681,8 +60809,8 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(if(let-values(((or-part_139)(not stx_19)))" -"(if or-part_139 or-part_139(syntax?$1 stx_19)))" +"(if(let-values(((or-part_141)(not stx_19)))" +"(if or-part_141 or-part_141(syntax?$1 stx_19)))" "(void)" "(let-values()" "(raise-argument-error" @@ -60740,13 +60868,13 @@ static const char *startup_source = "(1/make-resolved-module-path(flatten-sub-path_0(cadadr s_26)(cddr s_26))))" "(if(if(pair? s_26)" "(if(eq?(car s_26) 'submod)" -" (if (let-values (((or-part_293) (equal? (cadr s_26) \".\")))" -" (if or-part_293 or-part_293 (equal? (cadr s_26) \"..\")))" +" (if (let-values (((or-part_294) (equal? (cadr s_26) \".\")))" +" (if or-part_294 or-part_294 (equal? (cadr s_26) \"..\")))" "(if relto_1" "(let-values(((p_79)(1/resolved-module-path-name relto_1)))" -"(let-values(((or-part_361)(symbol? p_79)))" -"(if or-part_361" -" or-part_361" +"(let-values(((or-part_363)(symbol? p_79)))" +"(if or-part_363" +" or-part_363" "(if(pair? p_79)(symbol?(car p_79)) #f))))" " #f)" " #f)" @@ -60785,7 +60913,7 @@ static const char *startup_source = "(lambda()" "(begin" " 'get-dir" -"(let-values(((or-part_362)" +"(let-values(((or-part_364)" "(if relto_1" "(if(eq? relto_1 -prev-relto)" " -prev-relto-dir" @@ -60809,8 +60937,8 @@ static const char *startup_source = " base_29))" " #f))))" " #f)))" -"(if or-part_362" -" or-part_362" +"(if or-part_364" +" or-part_364" "(let-values(((or-part_42)" "(current-load-relative-directory)))" "(if or-part_42" @@ -60827,15 +60955,15 @@ static const char *startup_source = " 'show-collection-err" "(let-values(((msg_2)" "(string-append" -"(let-values(((or-part_363)" +"(let-values(((or-part_365)" "(if stx_19" "(if(error-print-source-location)" "(format-source-location" " stx_19)" " #f)" " #f)))" -"(if or-part_363" -" or-part_363" +"(if or-part_365" +" or-part_365" " \"standard-module-name-resolver\"))" " \": \"" "(regexp-replace" @@ -60859,22 +60987,22 @@ static const char *startup_source = "(lambda(s_88)" "(begin" " 'ss->rkt" -"(let-values(((len_42)(string-length s_88)))" -"(if(if(>= len_42 3)" +"(let-values(((len_43)(string-length s_88)))" +"(if(if(>= len_43 3)" "(if(equal?" " '#\\." -"(string-ref s_88(- len_42 3)))" +"(string-ref s_88(- len_43 3)))" "(if(equal?" " '#\\s" -"(string-ref s_88(- len_42 2)))" +"(string-ref s_88(- len_43 2)))" "(equal?" " '#\\s" -"(string-ref s_88(- len_42 1)))" +"(string-ref s_88(- len_43 1)))" " #f)" " #f)" " #f)" "(string-append" -"(substring s_88 0(- len_42 3))" +"(substring s_88 0(- len_43 3))" " \".rkt\")" " s_88)))))" "((path-ss->rkt_0)" @@ -60889,8 +61017,8 @@ static const char *startup_source = "((s_31)" "(if(if(pair? s_26)(eq? 'submod(car s_26)) #f)" "(let-values(((v_38)(cadr s_26)))" -" (if (let-values (((or-part_364) (equal? v_38 \".\")))" -" (if or-part_364 or-part_364 (equal? v_38 \"..\")))" +" (if (let-values (((or-part_366) (equal? v_38 \".\")))" +" (if or-part_366 or-part_366 (equal? v_38 \"..\")))" "(if relto_1" "(let-values(((p_83)" "(1/resolved-module-path-name" @@ -60962,11 +61090,11 @@ static const char *startup_source = "(if(string? s_31)" "(let-values()" "(let-values(((dir_4)(get-dir_0)))" -"(let-values(((or-part_365)" +"(let-values(((or-part_367)" "(path-cache-get" "(cons s_31 dir_4))))" -"(if or-part_365" -" or-part_365" +"(if or-part_367" +" or-part_367" "(let-values(((cols_1 file_4)" "(split-relative-string" " s_31" @@ -61057,8 +61185,8 @@ static const char *startup_source = "(get-dir_0)))))" "(void))))))))" "(begin" -"(if(let-values(((or-part_366)(path? s-parsed_0)))" -"(if or-part_366 or-part_366(vector? s-parsed_0)))" +"(if(let-values(((or-part_368)(path? s-parsed_0)))" +"(if or-part_368 or-part_368(vector? s-parsed_0)))" "(void)" "(let-values()" "(if stx_19" @@ -61096,11 +61224,11 @@ static const char *startup_source = "(vector-ref s-parsed_0 4)" "(1/make-resolved-module-path filename_2))))" "(let-values(((hts_3)" -"(let-values(((or-part_367)" +"(let-values(((or-part_128)" "(registry-table-ref" "(get-reg_0))))" -"(if or-part_367" -" or-part_367" +"(if or-part_128" +" or-part_128" "(let-values(((hts_4)" "(cons" "(make-hasheq)" @@ -61143,11 +61271,11 @@ static const char *startup_source = "((nsr_0)(get-reg_0)))" "(begin" "(for-each2" -"(lambda(s_426)" +"(lambda(s_427)" "(if(if(equal?" -"(cdr s_426)" +"(cdr s_427)" " normal-filename_0)" -"(eq?(car s_426) nsr_0)" +"(eq?(car s_427) nsr_0)" " #f)" "(let-values()" "(error" @@ -61242,10 +61370,10 @@ static const char *startup_source = "(void))" "(if(if(not(vector? s-parsed_0))" "(if load?_7" -"(let-values(((or-part_368)" +"(let-values(((or-part_369)" "(string? s_31)))" -"(if or-part_368" -" or-part_368" +"(if or-part_369" +" or-part_369" "(let-values(((or-part_51)" "(symbol? s_31)))" "(if or-part_51" @@ -61277,13 +61405,13 @@ static const char *startup_source = " s_60" "(1/current-namespace)" "(let-values(((c_115)(1/current-compile)))" -"(lambda(e_90 ns_16)" +"(lambda(e_91 ns_16)" "(if(eq? ns_16(1/current-namespace))" -"(c_115 e_90 #t)" +"(c_115 e_91 #t)" "(with-continuation-mark" " parameterization-key" "(extend-parameterization(continuation-mark-set-first #f parameterization-key) 1/current-namespace ns_16)" -"(let-values()(c_115 e_90 #t))))))))))" +"(let-values()(c_115 e_91 #t))))))))))" "(define-values" "(default-compile-handler)" "(lambda(s_61 immediate-eval?_0)(begin(1/compile s_61(1/current-namespace)(not immediate-eval?_0)))))" @@ -61328,9 +61456,9 @@ static const char *startup_source = "(prepare-next-phase-namespace)" "(lambda(ctx_76)" "(begin" -"(let-values(((phase_43)(add1(expand-context-phase ctx_76))))" -"(let-values(((ns_59)(namespace->namespace-at-phase(expand-context-namespace ctx_76) phase_43)))" -"(namespace-visit-available-modules! ns_59 phase_43))))))" +"(let-values(((phase_45)(add1(expand-context-phase ctx_76))))" +"(let-values(((ns_59)(namespace->namespace-at-phase(expand-context-namespace ctx_76) phase_45)))" +"(namespace-visit-available-modules! ns_59 phase_45))))))" "(define-values" "(expand-body7.1)" "(lambda(source1_0 stratified?2_0 stratified?4_0 bodys5_0 ctx6_0)" @@ -61353,12 +61481,12 @@ static const char *startup_source = "(let-values(((inside-sc_0)(new-scope 'intdef)))" "(let-values(((init-bodys_0)" "(reverse$1" -"(let-values(((lst_264) bodys_7))" +"(let-values(((lst_266) bodys_7))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_264)))" -"((letrec-values(((for-loop_280)" +"(let-values()(check-list lst_266)))" +"((letrec-values(((for-loop_283)" "(lambda(fold-var_70 lst_102)" "(begin" " 'for-loop" @@ -61367,7 +61495,7 @@ static const char *startup_source = "((rest_142)(unsafe-cdr lst_102)))" "(let-values(((fold-var_11)" "(let-values(((fold-var_12) fold-var_70))" -"(let-values(((fold-var_215)" +"(let-values(((fold-var_217)" "(let-values()" "(cons" "(let-values()" @@ -61375,14 +61503,14 @@ static const char *startup_source = " body_11" " inside-sc_0))" " fold-var_12))))" -"(values fold-var_215)))))" +"(values fold-var_217)))))" "(if(not #f)" -"(for-loop_280 fold-var_11 rest_142)" +"(for-loop_283 fold-var_11 rest_142)" " fold-var_11)))" " fold-var_70)))))" -" for-loop_280)" +" for-loop_283)" " null" -" lst_264))))))" +" lst_266))))))" "(let-values((()" "(begin" "(let-values(((obs_66)(expand-context-observer ctx_14)))" @@ -61396,13 +61524,13 @@ static const char *startup_source = "(datum->syntax$1 #f bodys_7))))" "(void)))" "(values))))" -"(let-values(((phase_142)(expand-context-phase ctx_14)))" +"(let-values(((phase_143)(expand-context-phase ctx_14)))" "(let-values(((frame-id_2)(make-reference-record)))" "(let-values(((def-ctx-scopes_6)(box null)))" "(let-values(((body-ctx_0)" "(let-values(((v_254) ctx_14))" -"(let-values(((the-struct_87) v_254))" -"(if(expand-context/outer? the-struct_87)" +"(let-values(((the-struct_86) v_254))" +"(if(expand-context/outer? the-struct_86)" "(let-values(((context51_0)(list(make-liberal-define-context)))" "((name52_1) #f)" "((only-immediate?53_0) #t)" @@ -61424,20 +61552,20 @@ static const char *startup_source = " use-site-scopes58_0" " frame-id59_0" " context51_0" -"(expand-context/outer-env the-struct_87)" +"(expand-context/outer-env the-struct_86)" " post-expansion-scope-action56_0" " scopes57_0" " def-ctx-scopes54_0" -"(expand-context/outer-binding-layer the-struct_87)" +"(expand-context/outer-binding-layer the-struct_86)" " reference-records60_0" " only-immediate?53_0" -"(expand-context/outer-need-eventually-defined the-struct_87)" -"(expand-context/outer-current-introduction-scopes the-struct_87)" +"(expand-context/outer-need-eventually-defined the-struct_86)" +"(expand-context/outer-current-introduction-scopes the-struct_86)" " name52_1))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_87))))))" +" the-struct_86))))))" "(let-values(((maybe-increment-binding-layer_0)" "(lambda(ids_28 body-ctx_1)" "(begin" @@ -61514,10 +61642,10 @@ static const char *startup_source = " #f)" "(let-values(((v_228)" " body-ctx_2))" -"(let-values(((the-struct_88)" +"(let-values(((the-struct_87)" " v_228))" "(if(expand-context/outer?" -" the-struct_88)" +" the-struct_87)" "(let-values(((name77_0)" " name_78)" "((inner78_0)" @@ -61526,36 +61654,36 @@ static const char *startup_source = "(expand-context/outer1.1" " inner78_0" "(root-expand-context/outer-post-expansion-scope" -" the-struct_88)" +" the-struct_87)" "(root-expand-context/outer-use-site-scopes" -" the-struct_88)" +" the-struct_87)" "(root-expand-context/outer-frame-id" -" the-struct_88)" +" the-struct_87)" "(expand-context/outer-context" -" the-struct_88)" +" the-struct_87)" "(expand-context/outer-env" -" the-struct_88)" +" the-struct_87)" "(expand-context/outer-post-expansion-scope-action" -" the-struct_88)" +" the-struct_87)" "(expand-context/outer-scopes" -" the-struct_88)" +" the-struct_87)" "(expand-context/outer-def-ctx-scopes" -" the-struct_88)" +" the-struct_87)" "(expand-context/outer-binding-layer" -" the-struct_88)" +" the-struct_87)" "(expand-context/outer-reference-records" -" the-struct_88)" +" the-struct_87)" "(expand-context/outer-only-immediate?" -" the-struct_88)" +" the-struct_87)" "(expand-context/outer-need-eventually-defined" -" the-struct_88)" +" the-struct_87)" "(expand-context/outer-current-introduction-scopes" -" the-struct_88)" +" the-struct_87)" " name77_0))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_88))))" +" the-struct_87))))" " body-ctx_2)))" "(expand7.1" " #f" @@ -61569,7 +61697,7 @@ static const char *startup_source = "(let-values(((tmp_64)" "(core-form-sym" " disarmed-exp-body_0" -" phase_142)))" +" phase_143)))" "(if(equal? tmp_64 'begin)" "(let-values()" "(let-values((()" @@ -61586,38 +61714,38 @@ static const char *startup_source = "(void)))" "(values))))" "(let-values(((ok?_31 begin79_0 e80_0)" -"(let-values(((s_467)" +"(let-values(((s_468)" " disarmed-exp-body_0))" "(let-values(((orig-s_38)" -" s_467))" +" s_468))" "(let-values(((begin79_1" " e80_1)" -"(let-values(((s_468)" -"(if(syntax?$1" -" s_467)" -"(syntax-e$1" -" s_467)" -" s_467)))" -"(if(pair?" -" s_468)" -"(let-values(((begin81_0)" "(let-values(((s_469)" -"(car" -" s_468)))" -" s_469))" -"((e82_0)" -"(let-values(((s_470)" -"(cdr" -" s_468)))" -"(let-values(((s_471)" "(if(syntax?$1" -" s_470)" +" s_468)" "(syntax-e$1" -" s_470)" -" s_470)))" +" s_468)" +" s_468)))" +"(if(pair?" +" s_469)" +"(let-values(((begin81_0)" +"(let-values(((s_470)" +"(car" +" s_469)))" +" s_470))" +"((e82_0)" +"(let-values(((s_471)" +"(cdr" +" s_469)))" +"(let-values(((s_472)" +"(if(syntax?$1" +" s_471)" +"(syntax-e$1" +" s_471)" +" s_471)))" "(let-values(((flat-s_24)" "(to-syntax-list.1" -" s_471)))" +" s_472)))" "(if(not" " flat-s_24)" "(let-values()" @@ -61639,11 +61767,11 @@ static const char *startup_source = " begin79_1" " e80_1))))))" "(let-values(((track_0)" -"(lambda(e_91)" +"(lambda(e_92)" "(begin" " 'track" "(syntax-track-origin$1" -" e_91" +" e_92" " exp-body_0)))))" "(let-values(((splice-bodys_0)" "(append" @@ -61698,37 +61826,37 @@ static const char *startup_source = "(let-values(((define-values83_1" " id84_1" " rhs85_1)" -"(let-values(((s_472)" +"(let-values(((s_473)" "(if(syntax?$1" " s_31)" "(syntax-e$1" " s_31)" " s_31)))" "(if(pair?" -" s_472)" +" s_473)" "(let-values(((define-values86_0)" "(let-values(((s_50)" "(car" -" s_472)))" +" s_473)))" " s_50))" "((id87_0" " rhs88_0)" "(let-values(((s_32)" "(cdr" -" s_472)))" -"(let-values(((s_473)" +" s_473)))" +"(let-values(((s_474)" "(if(syntax?$1" " s_32)" "(syntax-e$1" " s_32)" " s_32)))" "(if(pair?" -" s_473)" +" s_474)" "(let-values(((id89_0)" "(let-values(((s_305)" "(car" -" s_473)))" -"(let-values(((s_383)" +" s_474)))" +"(let-values(((s_384)" "(if(syntax?$1" " s_305)" "(syntax-e$1" @@ -61736,7 +61864,7 @@ static const char *startup_source = " s_305)))" "(let-values(((flat-s_25)" "(to-syntax-list.1" -" s_383)))" +" s_384)))" "(if(not" " flat-s_25)" "(let-values()" @@ -61746,7 +61874,7 @@ static const char *startup_source = " orig-s_39))" "(let-values()" "(let-values(((id_109)" -"(let-values(((lst_195)" +"(let-values(((lst_196)" " flat-s_25))" "(begin" "(if(variable-reference-from-unsafe?" @@ -61754,20 +61882,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_195)))" -"((letrec-values(((for-loop_281)" +" lst_196)))" +"((letrec-values(((for-loop_284)" "(lambda(id_110" -" lst_318)" +" lst_320)" "(begin" " 'for-loop" "(if(pair?" -" lst_318)" +" lst_320)" "(let-values(((s_308)" "(unsafe-car" -" lst_318))" -"((rest_181)" +" lst_320))" +"((rest_182)" "(unsafe-cdr" -" lst_318)))" +" lst_320)))" "(let-values(((id_72)" "(let-values(((id_111)" " id_110))" @@ -61775,15 +61903,15 @@ static const char *startup_source = "(let-values()" "(let-values(((id92_1)" "(let-values()" -"(if(let-values(((or-part_135)" +"(if(let-values(((or-part_137)" "(if(syntax?$1" " s_308)" "(symbol?" "(syntax-e$1" " s_308))" " #f)))" -"(if or-part_135" -" or-part_135" +"(if or-part_137" +" or-part_137" "(symbol?" " s_308)))" " s_308" @@ -61799,37 +61927,37 @@ static const char *startup_source = " id_112)))))" "(if(not" " #f)" -"(for-loop_281" +"(for-loop_284" " id_72" -" rest_181)" +" rest_182)" " id_72)))" " id_110)))))" -" for-loop_281)" +" for-loop_284)" " null" -" lst_195)))))" +" lst_196)))))" "(reverse$1" " id_109))))))))" "((rhs90_0)" "(let-values(((s_54)" "(cdr" -" s_473)))" -"(let-values(((s_474)" +" s_474)))" +"(let-values(((s_475)" "(if(syntax?$1" " s_54)" "(syntax-e$1" " s_54)" " s_54)))" "(if(pair?" -" s_474)" +" s_475)" "(let-values(((rhs91_0)" -"(let-values(((s_475)" +"(let-values(((s_476)" "(car" -" s_474)))" -" s_475))" +" s_475)))" +" s_476))" "(()" "(let-values(((s_55)" "(cdr" -" s_474)))" +" s_475)))" "(let-values(((s_309)" "(if(syntax?$1" " s_55)" @@ -61895,7 +62023,7 @@ static const char *startup_source = "(let-values(((ids93_0)" " ids_29)" "((phase94_1)" -" phase_142)" +" phase_143)" "((exp-body95_0)" " exp-body_0)" "((dups96_0)" @@ -61913,7 +62041,7 @@ static const char *startup_source = " ctx_14)))" "(let-values(((keys_5)" "(reverse$1" -"(let-values(((lst_319)" +"(let-values(((lst_321)" " ids_29))" "(begin" "(if(variable-reference-from-unsafe?" @@ -61921,31 +62049,31 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_319)))" -"((letrec-values(((for-loop_282)" -"(lambda(fold-var_185" -" lst_320)" +" lst_321)))" +"((letrec-values(((for-loop_285)" +"(lambda(fold-var_187" +" lst_322)" "(begin" " 'for-loop" "(if(pair?" -" lst_320)" +" lst_322)" "(let-values(((id_113)" "(unsafe-car" -" lst_320))" -"((rest_182)" +" lst_322))" +"((rest_183)" "(unsafe-cdr" -" lst_320)))" -"(let-values(((fold-var_38)" -"(let-values(((fold-var_293)" -" fold-var_185))" -"(let-values(((fold-var_294)" +" lst_322)))" +"(let-values(((fold-var_243)" +"(let-values(((fold-var_295)" +" fold-var_187))" +"(let-values(((fold-var_36)" "(let-values()" "(cons" "(let-values()" "(let-values(((id97_2)" " id_113)" "((phase98_0)" -" phase_142)" +" phase_143)" "((counter99_0)" " counter_5)" "((frame-id100_0)" @@ -61960,23 +62088,23 @@ static const char *startup_source = " id97_2" " phase98_0" " counter99_0)))" -" fold-var_293))))" +" fold-var_295))))" "(values" -" fold-var_294)))))" +" fold-var_36)))))" "(if(not" " #f)" -"(for-loop_282" -" fold-var_38" -" rest_182)" -" fold-var_38)))" -" fold-var_185)))))" -" for-loop_282)" +"(for-loop_285" +" fold-var_243" +" rest_183)" +" fold-var_243)))" +" fold-var_187)))))" +" for-loop_285)" " null" -" lst_319))))))" +" lst_321))))))" "(let-values(((extended-env_0)" -"(let-values(((lst_230)" +"(let-values(((lst_232)" " keys_5)" -"((lst_197)" +"((lst_199)" " ids_29))" "(begin" "(if(variable-reference-from-unsafe?" @@ -61984,36 +62112,36 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_230)))" +" lst_232)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_197)))" -"((letrec-values(((for-loop_283)" +" lst_199)))" +"((letrec-values(((for-loop_286)" "(lambda(env_17" -" lst_321" -" lst_273)" +" lst_323" +" lst_275)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_321)" +" lst_323)" "(pair?" -" lst_273)" +" lst_275)" " #f)" "(let-values(((key_93)" "(unsafe-car" -" lst_321))" +" lst_323))" "((rest_149)" "(unsafe-cdr" -" lst_321))" +" lst_323))" "((id_9)" "(unsafe-car" -" lst_273))" -"((rest_183)" +" lst_275))" +"((rest_184)" "(unsafe-cdr" -" lst_273)))" +" lst_275)))" "(let-values(((env_18)" "(let-values(((env_19)" " env_17))" @@ -62028,24 +62156,24 @@ static const char *startup_source = " env_20)))))" "(if(not" " #f)" -"(for-loop_283" +"(for-loop_286" " env_18" " rest_149" -" rest_183)" +" rest_184)" " env_18)))" " env_17)))))" -" for-loop_283)" +" for-loop_286)" "(expand-context-env" " body-ctx_2)" -" lst_230" -" lst_197)))))" +" lst_232" +" lst_199)))))" "(loop_120" "(let-values(((v_255)" " body-ctx_2))" -"(let-values(((the-struct_89)" +"(let-values(((the-struct_88)" " v_255))" "(if(expand-context/outer?" -" the-struct_89)" +" the-struct_88)" "(let-values(((env102_0)" " extended-env_0)" "((binding-layer103_0)" @@ -62058,42 +62186,42 @@ static const char *startup_source = "(expand-context/outer1.1" " inner104_0" "(root-expand-context/outer-post-expansion-scope" -" the-struct_89)" +" the-struct_88)" "(root-expand-context/outer-use-site-scopes" -" the-struct_89)" +" the-struct_88)" "(root-expand-context/outer-frame-id" -" the-struct_89)" +" the-struct_88)" "(expand-context/outer-context" -" the-struct_89)" +" the-struct_88)" " env102_0" "(expand-context/outer-post-expansion-scope-action" -" the-struct_89)" +" the-struct_88)" "(expand-context/outer-scopes" -" the-struct_89)" +" the-struct_88)" "(expand-context/outer-def-ctx-scopes" -" the-struct_89)" +" the-struct_88)" " binding-layer103_0" "(expand-context/outer-reference-records" -" the-struct_89)" +" the-struct_88)" "(expand-context/outer-only-immediate?" -" the-struct_89)" +" the-struct_88)" "(expand-context/outer-need-eventually-defined" -" the-struct_89)" +" the-struct_88)" "(expand-context/outer-current-introduction-scopes" -" the-struct_89)" +" the-struct_88)" "(expand-context/outer-name" -" the-struct_89)))" +" the-struct_88)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_89))))" +" the-struct_88))))" " rest-bodys_0" " null" "(cons" " ids_29" "(append" "(reverse$1" -"(let-values(((lst_322)" +"(let-values(((lst_324)" " done-bodys_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -62101,41 +62229,41 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_322)))" -"((letrec-values(((for-loop_284)" -"(lambda(fold-var_295" -" lst_323)" +" lst_324)))" +"((letrec-values(((for-loop_287)" +"(lambda(fold-var_296" +" lst_325)" "(begin" " 'for-loop" "(if(pair?" -" lst_323)" +" lst_325)" "(let-values(((done-body_0)" "(unsafe-car" -" lst_323))" -"((rest_184)" +" lst_325))" +"((rest_185)" "(unsafe-cdr" -" lst_323)))" -"(let-values(((fold-var_296)" +" lst_325)))" "(let-values(((fold-var_297)" -" fold-var_295))" "(let-values(((fold-var_298)" +" fold-var_296))" +"(let-values(((fold-var_299)" "(let-values()" "(cons" "(let-values()" " null)" -" fold-var_297))))" +" fold-var_298))))" "(values" -" fold-var_298)))))" +" fold-var_299)))))" "(if(not" " #f)" -"(for-loop_284" -" fold-var_296" -" rest_184)" -" fold-var_296)))" -" fold-var_295)))))" -" for-loop_284)" +"(for-loop_287" +" fold-var_297" +" rest_185)" +" fold-var_297)))" +" fold-var_296)))))" +" for-loop_287)" " null" -" lst_322))))" +" lst_324))))" " val-idss_0))" "(cons" " keys_5" @@ -62150,38 +62278,38 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_32)))" -"((letrec-values(((for-loop_285)" -"(lambda(fold-var_299" -" lst_324)" +"((letrec-values(((for-loop_288)" +"(lambda(fold-var_300" +" lst_326)" "(begin" " 'for-loop" "(if(pair?" -" lst_324)" +" lst_326)" "(let-values(((done-body_1)" "(unsafe-car" -" lst_324))" -"((rest_185)" +" lst_326))" +"((rest_186)" "(unsafe-cdr" -" lst_324)))" -"(let-values(((fold-var_300)" +" lst_326)))" "(let-values(((fold-var_301)" -" fold-var_299))" "(let-values(((fold-var_302)" +" fold-var_300))" +"(let-values(((fold-var_303)" "(let-values()" "(cons" "(let-values()" " null)" -" fold-var_301))))" +" fold-var_302))))" "(values" -" fold-var_302)))))" +" fold-var_303)))))" "(if(not" " #f)" -"(for-loop_285" -" fold-var_300" -" rest_185)" -" fold-var_300)))" -" fold-var_299)))))" -" for-loop_285)" +"(for-loop_288" +" fold-var_301" +" rest_186)" +" fold-var_301)))" +" fold-var_300)))))" +" for-loop_288)" " null" " lst_32))))" " val-keyss_0))" @@ -62189,7 +62317,7 @@ static const char *startup_source = " rhs85_0" "(append" "(reverse$1" -"(let-values(((lst_325)" +"(let-values(((lst_327)" " done-bodys_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -62197,44 +62325,44 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_325)))" -"((letrec-values(((for-loop_257)" -"(lambda(fold-var_303" -" lst_201)" +" lst_327)))" +"((letrec-values(((for-loop_259)" +"(lambda(fold-var_304" +" lst_203)" "(begin" " 'for-loop" "(if(pair?" -" lst_201)" +" lst_203)" "(let-values(((done-body_2)" "(unsafe-car" -" lst_201))" -"((rest_186)" +" lst_203))" +"((rest_187)" "(unsafe-cdr" -" lst_201)))" -"(let-values(((fold-var_304)" -"(let-values(((fold-var_140)" -" fold-var_303))" +" lst_203)))" "(let-values(((fold-var_305)" +"(let-values(((fold-var_141)" +" fold-var_304))" +"(let-values(((fold-var_306)" "(let-values()" "(cons" "(let-values()" "(no-binds" " done-body_2" " s_172" -" phase_142))" -" fold-var_140))))" +" phase_143))" +" fold-var_141))))" "(values" -" fold-var_305)))))" +" fold-var_306)))))" "(if(not" " #f)" -"(for-loop_257" -" fold-var_304" -" rest_186)" -" fold-var_304)))" -" fold-var_303)))))" -" for-loop_257)" +"(for-loop_259" +" fold-var_305" +" rest_187)" +" fold-var_305)))" +" fold-var_304)))))" +" for-loop_259)" " null" -" lst_325))))" +" lst_327))))" " val-rhss_0))" "(cons" " exp-body_0" @@ -62249,8 +62377,8 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_107)))" -"((letrec-values(((for-loop_286)" -"(lambda(fold-var_141" +"((letrec-values(((for-loop_289)" +"(lambda(fold-var_142" " lst_108)" "(begin" " 'for-loop" @@ -62259,28 +62387,28 @@ static const char *startup_source = "(let-values(((done-body_3)" "(unsafe-car" " lst_108))" -"((rest_187)" +"((rest_188)" "(unsafe-cdr" " lst_108)))" -"(let-values(((fold-var_306)" -"(let-values(((fold-var_144)" -" fold-var_141))" -"(let-values(((fold-var_39)" +"(let-values(((fold-var_307)" +"(let-values(((fold-var_145)" +" fold-var_142))" +"(let-values(((fold-var_308)" "(let-values()" "(cons" "(let-values()" " #f)" -" fold-var_144))))" +" fold-var_145))))" "(values" -" fold-var_39)))))" +" fold-var_308)))))" "(if(not" " #f)" -"(for-loop_286" -" fold-var_306" -" rest_187)" -" fold-var_306)))" -" fold-var_141)))))" -" for-loop_286)" +"(for-loop_289" +" fold-var_307" +" rest_188)" +" fold-var_307)))" +" fold-var_142)))))" +" for-loop_289)" " null" " lst_107))))" " track-stxs_0))" @@ -62306,26 +62434,26 @@ static const char *startup_source = " define-syntaxes105_0" " id106_2" " rhs107_0)" -"(let-values(((s_476)" +"(let-values(((s_477)" " disarmed-exp-body_0))" "(let-values(((orig-s_40)" -" s_476))" +" s_477))" "(let-values(((define-syntaxes105_1" " id106_3" " rhs107_1)" "(let-values(((s_94)" "(if(syntax?$1" -" s_476)" +" s_477)" "(syntax-e$1" -" s_476)" -" s_476)))" +" s_477)" +" s_477)))" "(if(pair?" " s_94)" "(let-values(((define-syntaxes108_0)" -"(let-values(((s_477)" +"(let-values(((s_150)" "(car" " s_94)))" -" s_477))" +" s_150))" "((id109_0" " rhs110_0)" "(let-values(((s_95)" @@ -62340,15 +62468,15 @@ static const char *startup_source = "(if(pair?" " s_96)" "(let-values(((id111_0)" -"(let-values(((s_207)" +"(let-values(((s_208)" "(car" " s_96)))" "(let-values(((s_97)" "(if(syntax?$1" -" s_207)" +" s_208)" "(syntax-e$1" -" s_207)" -" s_207)))" +" s_208)" +" s_208)))" "(let-values(((flat-s_26)" "(to-syntax-list.1" " s_97)))" @@ -62361,7 +62489,7 @@ static const char *startup_source = " orig-s_40))" "(let-values()" "(let-values(((id_114)" -"(let-values(((lst_326)" +"(let-values(((lst_328)" " flat-s_26))" "(begin" "(if(variable-reference-from-unsafe?" @@ -62369,8 +62497,8 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_326)))" -"((letrec-values(((for-loop_287)" +" lst_328)))" +"((letrec-values(((for-loop_290)" "(lambda(id_115" " lst_35)" "(begin" @@ -62380,7 +62508,7 @@ static const char *startup_source = "(let-values(((s_478)" "(unsafe-car" " lst_35))" -"((rest_188)" +"((rest_189)" "(unsafe-cdr" " lst_35)))" "(let-values(((id_116)" @@ -62390,15 +62518,15 @@ static const char *startup_source = "(let-values()" "(let-values(((id114_0)" "(let-values()" -"(if(let-values(((or-part_315)" +"(if(let-values(((or-part_317)" "(if(syntax?$1" " s_478)" "(symbol?" "(syntax-e$1" " s_478))" " #f)))" -"(if or-part_315" -" or-part_315" +"(if or-part_317" +" or-part_317" "(symbol?" " s_478)))" " s_478" @@ -62414,14 +62542,14 @@ static const char *startup_source = " id_118)))))" "(if(not" " #f)" -"(for-loop_287" +"(for-loop_290" " id_116" -" rest_188)" +" rest_189)" " id_116)))" " id_115)))))" -" for-loop_287)" +" for-loop_290)" " null" -" lst_326)))))" +" lst_328)))))" "(reverse$1" " id_114))))))))" "((rhs112_0)" @@ -62442,15 +62570,15 @@ static const char *startup_source = " s_480)))" " s_100))" "(()" -"(let-values(((s_318)" +"(let-values(((s_319)" "(cdr" " s_480)))" "(let-values(((s_481)" "(if(syntax?$1" -" s_318)" +" s_319)" "(syntax-e$1" -" s_318)" -" s_318)))" +" s_319)" +" s_319)))" "(if(null?" " s_481)" "(values)" @@ -62510,7 +62638,7 @@ static const char *startup_source = "(let-values(((ids115_0)" " ids_30)" "((phase116_0)" -" phase_142)" +" phase_143)" "((exp-body117_0)" " exp-body_0)" "((dups118_0)" @@ -62528,7 +62656,7 @@ static const char *startup_source = " ctx_14)))" "(let-values(((keys_6)" "(reverse$1" -"(let-values(((lst_327)" +"(let-values(((lst_329)" " ids_30))" "(begin" "(if(variable-reference-from-unsafe?" @@ -62536,31 +62664,31 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_327)))" -"((letrec-values(((for-loop_288)" -"(lambda(fold-var_307" -" lst_328)" +" lst_329)))" +"((letrec-values(((for-loop_291)" +"(lambda(fold-var_309" +" lst_330)" "(begin" " 'for-loop" "(if(pair?" -" lst_328)" +" lst_330)" "(let-values(((id_119)" "(unsafe-car" -" lst_328))" -"((rest_189)" +" lst_330))" +"((rest_190)" "(unsafe-cdr" -" lst_328)))" -"(let-values(((fold-var_308)" -"(let-values(((fold-var_309)" -" fold-var_307))" +" lst_330)))" "(let-values(((fold-var_310)" +"(let-values(((fold-var_311)" +" fold-var_309))" +"(let-values(((fold-var_312)" "(let-values()" "(cons" "(let-values()" "(let-values(((id119_0)" " id_119)" "((phase120_0)" -" phase_142)" +" phase_143)" "((counter121_0)" " counter_6)" "((frame-id122_0)" @@ -62575,19 +62703,19 @@ static const char *startup_source = " id119_0" " phase120_0" " counter121_0)))" -" fold-var_309))))" +" fold-var_311))))" "(values" -" fold-var_310)))))" +" fold-var_312)))))" "(if(not" " #f)" -"(for-loop_288" -" fold-var_308" -" rest_189)" -" fold-var_308)))" -" fold-var_307)))))" -" for-loop_288)" +"(for-loop_291" +" fold-var_310" +" rest_190)" +" fold-var_310)))" +" fold-var_309)))))" +" for-loop_291)" " null" -" lst_327))))))" +" lst_329))))))" "(let-values((()" "(begin" "(let-values(((obs_72)" @@ -62627,9 +62755,9 @@ static const char *startup_source = "(let-values(((extended-env_1)" "(let-values(((lst_46)" " keys_6)" -"((lst_329)" +"((lst_331)" " vals_8)" -"((lst_330)" +"((lst_332)" " ids_30))" "(begin" "(if(variable-reference-from-unsafe?" @@ -62643,46 +62771,46 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_329)))" +" lst_331)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_330)))" -"((letrec-values(((for-loop_289)" +" lst_332)))" +"((letrec-values(((for-loop_292)" "(lambda(env_21" -" lst_331" -" lst_332" -" lst_333)" +" lst_333" +" lst_334" +" lst_335)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_331)" -"(if(pair?" -" lst_332)" -"(pair?" " lst_333)" +"(if(pair?" +" lst_334)" +"(pair?" +" lst_335)" " #f)" " #f)" "(let-values(((key_94)" "(unsafe-car" -" lst_331))" -"((rest_190)" -"(unsafe-cdr" -" lst_331))" -"((val_85)" -"(unsafe-car" -" lst_332))" +" lst_333))" "((rest_191)" "(unsafe-cdr" -" lst_332))" -"((id_7)" -"(unsafe-car" " lst_333))" +"((val_85)" +"(unsafe-car" +" lst_334))" "((rest_192)" "(unsafe-cdr" -" lst_333)))" +" lst_334))" +"((id_120)" +"(unsafe-car" +" lst_335))" +"((rest_193)" +"(unsafe-cdr" +" lst_335)))" "(let-values(((env_22)" "(let-values(((env_23)" " env_21))" @@ -62691,8 +62819,8 @@ static const char *startup_source = "(begin" "(maybe-install-free=id-in-context!" " val_85" -" id_7" -" phase_142" +" id_120" +" phase_143" " body-ctx_2)" "(env-extend" " env_23" @@ -62702,19 +62830,19 @@ static const char *startup_source = " env_24)))))" "(if(not" " #f)" -"(for-loop_289" +"(for-loop_292" " env_22" -" rest_190" " rest_191" -" rest_192)" +" rest_192" +" rest_193)" " env_22)))" " env_21)))))" -" for-loop_289)" +" for-loop_292)" "(expand-context-env" " body-ctx_2)" " lst_46" -" lst_329" -" lst_330)))))" +" lst_331" +" lst_332)))))" "(begin" "(let-values(((obs_74)" "(expand-context-observer" @@ -62729,10 +62857,10 @@ static const char *startup_source = "(loop_120" "(let-values(((v_256)" " body-ctx_2))" -"(let-values(((the-struct_65)" +"(let-values(((the-struct_32)" " v_256))" "(if(expand-context/outer?" -" the-struct_65)" +" the-struct_32)" "(let-values(((env124_0)" " extended-env_1)" "((binding-layer125_0)" @@ -62745,35 +62873,35 @@ static const char *startup_source = "(expand-context/outer1.1" " inner126_0" "(root-expand-context/outer-post-expansion-scope" -" the-struct_65)" +" the-struct_32)" "(root-expand-context/outer-use-site-scopes" -" the-struct_65)" +" the-struct_32)" "(root-expand-context/outer-frame-id" -" the-struct_65)" +" the-struct_32)" "(expand-context/outer-context" -" the-struct_65)" +" the-struct_32)" " env124_0" "(expand-context/outer-post-expansion-scope-action" -" the-struct_65)" +" the-struct_32)" "(expand-context/outer-scopes" -" the-struct_65)" +" the-struct_32)" "(expand-context/outer-def-ctx-scopes" -" the-struct_65)" +" the-struct_32)" " binding-layer125_0" "(expand-context/outer-reference-records" -" the-struct_65)" +" the-struct_32)" "(expand-context/outer-only-immediate?" -" the-struct_65)" +" the-struct_32)" "(expand-context/outer-need-eventually-defined" -" the-struct_65)" +" the-struct_32)" "(expand-context/outer-current-introduction-scopes" -" the-struct_65)" +" the-struct_32)" "(expand-context/outer-name" -" the-struct_65)))" +" the-struct_32)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_65))))" +" the-struct_32))))" " rest-bodys_0" " done-bodys_0" " val-idss_0" @@ -62817,7 +62945,7 @@ static const char *startup_source = "(cons" "(core-id" " '#%stratified-body" -" phase_142)" +" phase_143)" "(cons" " exp-body_0" " rest-bodys_0)))))" @@ -62897,8 +63025,8 @@ static const char *startup_source = "(accumulate-def-ctx-scopes" " body-ctx_3" " def-ctx-scopes_7)))" -"(let-values(((the-struct_90) v_257))" -"(if(expand-context/outer? the-struct_90)" +"(let-values(((the-struct_89) v_257))" +"(if(expand-context/outer? the-struct_89)" "(let-values(((context127_0) 'expression)" "((use-site-scopes128_0)(box null))" "((scopes129_0)" @@ -62916,24 +63044,24 @@ static const char *startup_source = " inner133_0" " post-expansion-scope132_0" " use-site-scopes128_0" -"(root-expand-context/outer-frame-id the-struct_90)" +"(root-expand-context/outer-frame-id the-struct_89)" " context127_0" -"(expand-context/outer-env the-struct_90)" +"(expand-context/outer-env the-struct_89)" "(expand-context/outer-post-expansion-scope-action" -" the-struct_90)" +" the-struct_89)" " scopes129_0" " def-ctx-scopes131_0" -"(expand-context/outer-binding-layer the-struct_90)" -"(expand-context/outer-reference-records the-struct_90)" +"(expand-context/outer-binding-layer the-struct_89)" +"(expand-context/outer-reference-records the-struct_89)" " only-immediate?130_0" -"(expand-context/outer-need-eventually-defined the-struct_90)" +"(expand-context/outer-need-eventually-defined the-struct_89)" "(expand-context/outer-current-introduction-scopes" -" the-struct_90)" -"(expand-context/outer-name the-struct_90)))" +" the-struct_89)" +"(expand-context/outer-name the-struct_89)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_90))))))" +" the-struct_89))))))" "(let-values(((finish-bodys_0)" "(lambda()" "(begin" @@ -62974,41 +63102,41 @@ static const char *startup_source = "(values))))" "(let-values(((exp-bodys_0)" "(reverse$1" -"(let-values(((lst_334) done-bodys_1)" +"(let-values(((lst_336) done-bodys_1)" "((start_66) 0))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" -"(check-list lst_334)))" +"(check-list lst_336)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-naturals start_66)))" -"((letrec-values(((for-loop_290)" -"(lambda(fold-var_311" -" lst_335" +"((letrec-values(((for-loop_293)" +"(lambda(fold-var_313" +" lst_337" " pos_127)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_335)" +" lst_337)" " #t" " #f)" "(let-values(((done-body_4)" "(unsafe-car" -" lst_335))" -"((rest_193)" +" lst_337))" +"((rest_194)" "(unsafe-cdr" -" lst_335))" +" lst_337))" "((i_190)" " pos_127))" -"(let-values(((fold-var_312)" -"(let-values(((fold-var_313)" -" fold-var_311))" "(let-values(((fold-var_314)" +"(let-values(((fold-var_315)" +" fold-var_313))" +"(let-values(((fold-var_316)" "(let-values()" "(cons" "(let-values()" @@ -63033,10 +63161,10 @@ static const char *startup_source = " #f)" "(let-values(((v_258)" " finish-ctx_0))" -"(let-values(((the-struct_91)" +"(let-values(((the-struct_90)" " v_258))" "(if(expand-context/outer?" -" the-struct_91)" +" the-struct_90)" "(let-values(((name136_0)" " name_79)" "((inner137_0)" @@ -63045,36 +63173,36 @@ static const char *startup_source = "(expand-context/outer1.1" " inner137_0" "(root-expand-context/outer-post-expansion-scope" -" the-struct_91)" +" the-struct_90)" "(root-expand-context/outer-use-site-scopes" -" the-struct_91)" +" the-struct_90)" "(root-expand-context/outer-frame-id" -" the-struct_91)" +" the-struct_90)" "(expand-context/outer-context" -" the-struct_91)" +" the-struct_90)" "(expand-context/outer-env" -" the-struct_91)" +" the-struct_90)" "(expand-context/outer-post-expansion-scope-action" -" the-struct_91)" +" the-struct_90)" "(expand-context/outer-scopes" -" the-struct_91)" +" the-struct_90)" "(expand-context/outer-def-ctx-scopes" -" the-struct_91)" +" the-struct_90)" "(expand-context/outer-binding-layer" -" the-struct_91)" +" the-struct_90)" "(expand-context/outer-reference-records" -" the-struct_91)" +" the-struct_90)" "(expand-context/outer-only-immediate?" -" the-struct_91)" +" the-struct_90)" "(expand-context/outer-need-eventually-defined" -" the-struct_91)" +" the-struct_90)" "(expand-context/outer-current-introduction-scopes" -" the-struct_91)" +" the-struct_90)" " name136_0))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_91))))" +" the-struct_90))))" " finish-ctx_0)))" "(expand7.1" " #f" @@ -63083,22 +63211,22 @@ static const char *startup_source = " #f" " done-body134_0" " temp135_3))))" -" fold-var_313))))" +" fold-var_315))))" "(values" -" fold-var_314)))))" +" fold-var_316)))))" "(if(not" " #f)" -"(for-loop_290" -" fold-var_312" -" rest_193" +"(for-loop_293" +" fold-var_314" +" rest_194" "(+" " pos_127" " 1))" -" fold-var_312)))" -" fold-var_311)))))" -" for-loop_290)" +" fold-var_314)))" +" fold-var_313)))))" +" for-loop_293)" " null" -" lst_334" +" lst_336" " start_66))))))" "(begin" "(let-values(((obs_78)" @@ -63210,7 +63338,7 @@ static const char *startup_source = "(let-values(((get-body_0) get-body35_0))" "(let-values(((track?_1) track?36_0))" "(let-values()" -"(let-values(((phase_143)(expand-context-phase ctx_77)))" +"(let-values(((phase_144)(expand-context-phase ctx_77)))" "((letrec-values(((loop_121)" "(lambda(idss_2" " keyss_1" @@ -63255,10 +63383,10 @@ static const char *startup_source = "(if(null? accum-idss_0)" "(core-id" " 'let-values" -" phase_143)" +" phase_144)" "(core-id" " 'letrec-values" -" phase_143))" +" phase_144))" "(build-clauses" " accum-idss_0" " accum-rhss_0" @@ -63369,7 +63497,7 @@ static const char *startup_source = "(list*" "(core-id" " 'let-values" -" phase_143)" +" phase_144)" "(list" "(build-clause" " ids_31" @@ -63403,9 +63531,9 @@ static const char *startup_source = "(list result-s_10)" " result-s_10))))))" "(if(if(not forward-references?_0)" -"(let-values(((or-part_369) split?_0))" -"(if or-part_369" -" or-part_369" +"(let-values(((or-part_370) split?_0))" +"(if or-part_370" +" or-part_370" "(null?(cdr idss_2))))" " #f)" "(let-values()" @@ -63450,7 +63578,7 @@ static const char *startup_source = "(list*" "(core-id" " 'letrec-values" -" phase_143)" +" phase_144)" "(build-clauses" "(cons" " ids_31" @@ -63525,12 +63653,12 @@ static const char *startup_source = "(if track-stx_1(syntax-track-origin$1 clause_2 track-stx_1) clause_2)))))" "(define-values" "(no-binds)" -"(lambda(expr_10 s_483 phase_144)" +"(lambda(expr_10 s_483 phase_145)" "(begin" -"(let-values(((s-runtime-stx_0)(syntax-shift-phase-level$1 runtime-stx phase_144)))" +"(let-values(((s-runtime-stx_0)(syntax-shift-phase-level$1 runtime-stx phase_145)))" "(datum->syntax$1" -"(core-id '#%app phase_144)" -"(list(core-id 'begin phase_144) expr_10(list(datum->syntax$1 s-runtime-stx_0 'values)))" +"(core-id '#%app phase_145)" +"(list(core-id 'begin phase_145) expr_10(list(datum->syntax$1 s-runtime-stx_0 'values)))" " s_483)))))" "(define-values" "(log-tag?)" @@ -63540,34 +63668,34 @@ static const char *startup_source = "(lambda(obs_85 ctx_79 s_484 val-idss_2 val-rhss_2 track-stxs_4 stx-clauses_2 done-bodys_2)" "(begin" " 'log-letrec-values" -"(let-values(((phase_145)(expand-context-phase ctx_79)))" +"(let-values(((phase_146)(expand-context-phase ctx_79)))" "(let-values(((clauses_0)" "(reverse$1" -"(let-values(((lst_245) val-idss_2)((lst_246) val-rhss_2)((lst_336) track-stxs_4))" +"(let-values(((lst_247) val-idss_2)((lst_248) val-rhss_2)((lst_338) track-stxs_4))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_245)))" +"(let-values()(check-list lst_247)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_246)))" +"(let-values()(check-list lst_248)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_336)))" -"((letrec-values(((for-loop_291)" -"(lambda(fold-var_315 lst_337 lst_338 lst_339)" +"(let-values()(check-list lst_338)))" +"((letrec-values(((for-loop_294)" +"(lambda(fold-var_317 lst_339 lst_340 lst_341)" "(begin" " 'for-loop" -"(if(if(pair? lst_337)(if(pair? lst_338)(pair? lst_339) #f) #f)" -"(let-values(((val-ids_0)(unsafe-car lst_337))" -"((rest_194)(unsafe-cdr lst_337))" -"((val-rhs_0)(unsafe-car lst_338))" -"((rest_195)(unsafe-cdr lst_338))" -"((track-stx_2)(unsafe-car lst_339))" -"((rest_62)(unsafe-cdr lst_339)))" -"(let-values(((fold-var_316)" -"(let-values(((fold-var_317) fold-var_315))" +"(if(if(pair? lst_339)(if(pair? lst_340)(pair? lst_341) #f) #f)" +"(let-values(((val-ids_0)(unsafe-car lst_339))" +"((rest_195)(unsafe-cdr lst_339))" +"((val-rhs_0)(unsafe-car lst_340))" +"((rest_196)(unsafe-cdr lst_340))" +"((track-stx_2)(unsafe-car lst_341))" +"((rest_62)(unsafe-cdr lst_341)))" "(let-values(((fold-var_318)" +"(let-values(((fold-var_319) fold-var_317))" +"(let-values(((fold-var_320)" "(let-values()" "(cons" "(let-values()" @@ -63575,19 +63703,19 @@ 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_319))))" +"(values fold-var_320)))))" "(if(not #f)" -"(for-loop_291 fold-var_316 rest_194 rest_195 rest_62)" -" fold-var_316)))" -" fold-var_315)))))" -" for-loop_291)" +"(for-loop_294 fold-var_318 rest_195 rest_196 rest_62)" +" fold-var_318)))" +" fold-var_317)))))" +" for-loop_294)" " null" -" lst_245" -" lst_246" -" lst_336))))))" +" lst_247" +" lst_248" +" lst_338))))))" "(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_145)))" +"(let-values(((lv-id_0)(core-id(if had-stxes?_2 'letrec-syntaxes+values 'letrec-values) phase_146)))" "(let-values(((lv-s_0)" "(datum->syntax$1" " #f" @@ -63635,12 +63763,12 @@ static const char *startup_source = "(lambda(s_71 disarmed-s_5 formals_1 bodys_9 ctx_80 log-renames-tag_0)" "(begin" "(let-values(((sc_35)(new-scope 'local)))" -"(let-values(((phase_146)(expand-context-phase ctx_80)))" +"(let-values(((phase_147)(expand-context-phase ctx_80)))" "(let-values(((ids_33)(parse-and-flatten-formals formals_1 sc_35 disarmed-s_5)))" "(let-values((()" "(begin" "(let-values(((ids34_0) ids_33)" -"((phase35_2) phase_146)" +"((phase35_2) phase_147)" "((s36_0) s_71)" " ((temp37_4) \"argument name\"))" "(check-no-duplicate-ids8.1 temp37_4 #t ids34_0 phase35_2 s36_0 #f #f))" @@ -63653,23 +63781,23 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_88)))" -"((letrec-values(((for-loop_292)" -"(lambda(fold-var_319 lst_265)" +"((letrec-values(((for-loop_295)" +"(lambda(fold-var_321 lst_267)" "(begin" " 'for-loop" -"(if(pair? lst_265)" -"(let-values(((id_120)(unsafe-car lst_265))" -"((rest_196)(unsafe-cdr lst_265)))" +"(if(pair? lst_267)" +"(let-values(((id_121)(unsafe-car lst_267))" +"((rest_197)(unsafe-cdr lst_267)))" "(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_321))" +"(let-values(((fold-var_159)" "(let-values()" "(cons" "(let-values()" "(let-values(((id38_0)" -" id_120)" +" id_121)" "((phase39_1)" -" phase_146)" +" phase_147)" "((counter40_0)" " counter_7)" "((s41_0)" @@ -63683,12 +63811,12 @@ static const char *startup_source = " phase39_1" " counter40_0)))" " fold-var_34))))" -"(values fold-var_157)))))" +"(values fold-var_159)))))" "(if(not #f)" -"(for-loop_292 fold-var_33 rest_196)" +"(for-loop_295 fold-var_33 rest_197)" " fold-var_33)))" -" fold-var_319)))))" -" for-loop_292)" +" fold-var_321)))))" +" for-loop_295)" " null" " lst_88))))))" "(let-values(((body-env_0)" @@ -63701,14 +63829,14 @@ static const char *startup_source = "(void)" "(let-values()(check-list lst_91)))" "((letrec-values(((for-loop_50)" -"(lambda(env_25 lst_83 lst_271)" +"(lambda(env_25 lst_83 lst_273)" "(begin" " 'for-loop" -"(if(if(pair? lst_83)(pair? lst_271) #f)" +"(if(if(pair? lst_83)(pair? lst_273) #f)" "(let-values(((key_95)(unsafe-car lst_83))" "((rest_148)(unsafe-cdr lst_83))" -"((id_121)(unsafe-car lst_271))" -"((rest_197)(unsafe-cdr lst_271)))" +"((id_122)(unsafe-car lst_273))" +"((rest_198)(unsafe-cdr lst_273)))" "(let-values(((env_26)" "(let-values(((env_27) env_25))" "(let-values(((env_28)" @@ -63717,10 +63845,10 @@ static const char *startup_source = " env_27" " key_95" "(local-variable1.1" -" id_121)))))" +" id_122)))))" "(values env_28)))))" "(if(not #f)" -"(for-loop_50 env_26 rest_148 rest_197)" +"(for-loop_50 env_26 rest_148 rest_198)" " env_26)))" " env_25)))))" " for-loop_50)" @@ -63736,7 +63864,7 @@ 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_218 lst_18)" "(begin" " 'for-loop" "(if(pair? lst_18)" @@ -63744,7 +63872,7 @@ static const char *startup_source = "((rest_5)(unsafe-cdr lst_18)))" "(let-values(((fold-var_64)" "(let-values(((fold-var_65)" -" fold-var_216))" +" fold-var_218))" "(let-values(((fold-var_66)" "(let-values()" "(cons" @@ -63757,7 +63885,7 @@ static const char *startup_source = "(if(not #f)" "(for-loop_10 fold-var_64 rest_5)" " fold-var_64)))" -" fold-var_216)))))" +" fold-var_218)))))" " for-loop_10)" " null" " lst_17))))))" @@ -63776,8 +63904,8 @@ static const char *startup_source = "(values))))" "(let-values(((body-ctx_4)" "(let-values(((v_259) ctx_80))" -"(let-values(((the-struct_92) v_259))" -"(if(expand-context/outer? the-struct_92)" +"(let-values(((the-struct_91) v_259))" +"(if(expand-context/outer? the-struct_91)" "(let-values(((env42_0) body-env_0)" "((scopes43_1)(cons sc_35(expand-context-scopes ctx_80)))" "((binding-layer44_0)" @@ -63786,24 +63914,24 @@ static const char *startup_source = "((inner46_0)(root-expand-context/outer-inner v_259)))" "(expand-context/outer1.1" " inner46_0" -"(root-expand-context/outer-post-expansion-scope the-struct_92)" -"(root-expand-context/outer-use-site-scopes the-struct_92)" +"(root-expand-context/outer-post-expansion-scope the-struct_91)" +"(root-expand-context/outer-use-site-scopes the-struct_91)" " frame-id45_0" -"(expand-context/outer-context the-struct_92)" +"(expand-context/outer-context the-struct_91)" " env42_0" -"(expand-context/outer-post-expansion-scope-action the-struct_92)" +"(expand-context/outer-post-expansion-scope-action the-struct_91)" " scopes43_1" -"(expand-context/outer-def-ctx-scopes the-struct_92)" +"(expand-context/outer-def-ctx-scopes the-struct_91)" " binding-layer44_0" -"(expand-context/outer-reference-records the-struct_92)" -"(expand-context/outer-only-immediate? the-struct_92)" -"(expand-context/outer-need-eventually-defined the-struct_92)" -"(expand-context/outer-current-introduction-scopes the-struct_92)" -"(expand-context/outer-name the-struct_92)))" +"(expand-context/outer-reference-records the-struct_91)" +"(expand-context/outer-only-immediate? the-struct_91)" +"(expand-context/outer-need-eventually-defined the-struct_91)" +"(expand-context/outer-current-introduction-scopes the-struct_91)" +"(expand-context/outer-name the-struct_91)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_92))))))" +" the-struct_91))))))" "(let-values(((exp-body_2)" "(let-values(((sc-bodys47_0) sc-bodys_0)" "((body-ctx48_0) body-ctx_4)" @@ -63827,24 +63955,24 @@ static const char *startup_source = "(values))))" "(let-values(((disarmed-s_6)(syntax-disarm$1 s_15)))" "(let-values(((ok?_33 lambda53_0 formals54_0 body55_0)" -"(let-values(((s_421) disarmed-s_6))" -"(let-values(((orig-s_41) s_421))" +"(let-values(((s_422) disarmed-s_6))" +"(let-values(((orig-s_41) s_422))" "(let-values(((lambda53_1 formals54_1 body55_1)" -"(let-values(((s_164)(if(syntax?$1 s_421)(syntax-e$1 s_421) s_421)))" -"(if(pair? s_164)" -"(let-values(((lambda56_0)(let-values(((s_485)(car s_164))) s_485))" +"(let-values(((s_165)(if(syntax?$1 s_422)(syntax-e$1 s_422) s_422)))" +"(if(pair? s_165)" +"(let-values(((lambda56_0)(let-values(((s_485)(car s_165))) s_485))" "((formals57_0 body58_0)" -"(let-values(((s_467)(cdr s_164)))" -"(let-values(((s_460)" -"(if(syntax?$1 s_467)" -"(syntax-e$1 s_467)" -" s_467)))" -"(if(pair? s_460)" +"(let-values(((s_468)(cdr s_165)))" +"(let-values(((s_461)" +"(if(syntax?$1 s_468)" +"(syntax-e$1 s_468)" +" s_468)))" +"(if(pair? s_461)" "(let-values(((formals59_0)" -"(let-values(((s_468)(car s_460)))" -" s_468))" +"(let-values(((s_469)(car s_461)))" +" s_469))" "((body60_0)" -"(let-values(((s_67)(cdr s_460)))" +"(let-values(((s_67)(cdr s_461)))" "(let-values(((s_168)" "(if(syntax?$1 s_67)" "(syntax-e$1 s_67)" @@ -63900,12 +64028,12 @@ static const char *startup_source = "(let-values(((s_488)(car s_32))) s_488))" "((_73_0)" "(let-values(((s_305)(cdr s_32)))" -"(let-values(((s_383)" +"(let-values(((s_384)" "(if(syntax?$1 s_305)" "(syntax-e$1 s_305)" " s_305)))" "(let-values(((flat-s_25)" -"(to-syntax-list.1 s_383)))" +"(to-syntax-list.1 s_384)))" "(if(not flat-s_25)" "(let-values()" "(raise-syntax-error$1" @@ -63926,14 +64054,14 @@ static const char *startup_source = "(values #t lam-id66_1 formals67_1 _68_1))))))" "(let-values(((ids_34)(parse-and-flatten-formals formals67_0 #f s_486)))" "(let-values(((ctx_82)(let-values(((temp78_3) #t))(get-current-expand-context17.1 temp78_3 #t #f #f))))" -"(let-values(((phase_147)(if ctx_82(expand-context-phase ctx_82) 0)))" +"(let-values(((phase_148)(if ctx_82(expand-context-phase ctx_82) 0)))" "(begin" -" (let-values (((ids74_0) ids_34) ((phase75_0) phase_147) ((s76_2) s_486) ((temp77_4) \"argument name\"))" +" (let-values (((ids74_0) ids_34) ((phase75_0) phase_148) ((s76_2) s_486) ((temp77_4) \"argument name\"))" "(check-no-duplicate-ids8.1 temp77_4 #t ids74_0 phase75_0 s76_2 #f #f))" "(datum->syntax$1" " s_486" "(cons" -"(datum->syntax$1(syntax-shift-phase-level$1 core-stx phase_147) 'lambda lam-id66_0 lam-id66_0)" +"(datum->syntax$1(syntax-shift-phase-level$1 core-stx phase_148) 'lambda lam-id66_0 lam-id66_0)" "(cdr(syntax-e$1 s_486)))" " s_486" " s_486)))))))))" @@ -63968,27 +64096,27 @@ static const char *startup_source = " (raise-syntax-error$1 #f \"bad syntax\" orig-s_43))" "(let-values()" "(let-values(((formals_3 body_14)" -"(let-values(((lst_340) flat-s_28))" +"(let-values(((lst_342) flat-s_28))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" -"(check-list lst_340)))" -"((letrec-values(((for-loop_293)" +"(check-list lst_342)))" +"((letrec-values(((for-loop_296)" "(lambda(formals_4" " body_15" -" lst_341)" +" lst_343)" "(begin" " 'for-loop" "(if(pair?" -" lst_341)" +" lst_343)" "(let-values(((s_312)" "(unsafe-car" -" lst_341))" -"((rest_198)" +" lst_343))" +"((rest_199)" "(unsafe-cdr" -" lst_341)))" +" lst_343)))" "(let-values(((formals_5" " body_16)" "(let-values(((formals_6)" @@ -64015,15 +64143,15 @@ static const char *startup_source = " s_65)))" " s_89))" "((body86_0)" -"(let-values(((s_198)" +"(let-values(((s_199)" "(cdr" " s_65)))" "(let-values(((s_492)" "(if(syntax?$1" -" s_198)" +" s_199)" "(syntax-e$1" -" s_198)" -" s_198)))" +" s_199)" +" s_199)))" "(let-values(((flat-s_29)" "(to-syntax-list.1" " s_492)))" @@ -64062,20 +64190,20 @@ static const char *startup_source = " body_18)))))" "(if(not" " #f)" -"(for-loop_293" +"(for-loop_296" " formals_5" " body_16" -" rest_198)" +" rest_199)" "(values" " formals_5" " body_16))))" "(values" " formals_4" " body_15))))))" -" for-loop_293)" +" for-loop_296)" " null" " null" -" lst_340)))))" +" lst_342)))))" "(values" "(reverse$1 formals_3)" "(reverse$1 body_14))))))))))" @@ -64083,19 +64211,19 @@ static const char *startup_source = " (raise-syntax-error$1 #f \"bad syntax\" orig-s_43)))))" "(values #t case-lambda79_1 formals80_1 body81_1))))))" "(let-values(((ok?_36 case-lambda87_0 clause88_0)" -"(let-values(((s_199) disarmed-s_7))" -"(let-values(((orig-s_44) s_199))" +"(let-values(((s_200) disarmed-s_7))" +"(let-values(((orig-s_44) s_200))" "(let-values(((case-lambda87_1 clause88_1)" -"(let-values(((s_493)(if(syntax?$1 s_199)(syntax-e$1 s_199) s_199)))" +"(let-values(((s_493)(if(syntax?$1 s_200)(syntax-e$1 s_200) s_200)))" "(if(pair? s_493)" "(let-values(((case-lambda89_0)(let-values(((s_90)(car s_493))) s_90))" "((clause90_0)" "(let-values(((s_494)(cdr s_493)))" -"(let-values(((s_427)" +"(let-values(((s_428)" "(if(syntax?$1 s_494)" "(syntax-e$1 s_494)" " s_494)))" -"(let-values(((flat-s_30)(to-syntax-list.1 s_427)))" +"(let-values(((flat-s_30)(to-syntax-list.1 s_428)))" "(if(not flat-s_30)" "(let-values()" " (raise-syntax-error$1 #f \"bad syntax\" orig-s_44))" @@ -64108,33 +64236,33 @@ static const char *startup_source = "(keep-as-needed85.1 #f #f #f #f temp95_3 #t ctx93_1 s94_0))))" "(let-values(((clauses_1)" "(reverse$1" -"(let-values(((lst_342) formals80_0)((lst_343) body81_0)((lst_204) clause88_0))" +"(let-values(((lst_344) formals80_0)((lst_53) body81_0)((lst_206) clause88_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_342)))" +"(let-values()(check-list lst_344)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_343)))" +"(let-values()(check-list lst_53)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_204)))" -"((letrec-values(((for-loop_123)" -"(lambda(fold-var_320 lst_274 lst_157 lst_344)" +"(let-values()(check-list lst_206)))" +"((letrec-values(((for-loop_124)" +"(lambda(fold-var_322 lst_276 lst_157 lst_345)" "(begin" " 'for-loop" -"(if(if(pair? lst_274)" -"(if(pair? lst_157)(pair? lst_344) #f)" +"(if(if(pair? lst_276)" +"(if(pair? lst_157)(pair? lst_345) #f)" " #f)" -"(let-values(((formals_8)(unsafe-car lst_274))" -"((rest_199)(unsafe-cdr lst_274))" +"(let-values(((formals_8)(unsafe-car lst_276))" +"((rest_200)(unsafe-cdr lst_276))" "((body_19)(unsafe-car lst_157))" "((rest_80)(unsafe-cdr lst_157))" -"((clause_3)(unsafe-car lst_344))" -"((rest_200)(unsafe-cdr lst_344)))" -"(let-values(((fold-var_149)" -"(let-values(((fold-var_321) fold-var_320))" -"(let-values(((fold-var_322)" +"((clause_3)(unsafe-car lst_345))" +"((rest_201)(unsafe-cdr lst_345)))" +"(let-values(((fold-var_151)" +"(let-values(((fold-var_323) fold-var_322))" +"(let-values(((fold-var_324)" "(let-values()" "(cons" "(let-values()" @@ -64190,17 +64318,17 @@ static const char *startup_source = " #f" " rebuild-clause98_0" " temp99_4)))))))" -" fold-var_321))))" -"(values fold-var_322)))))" +" fold-var_323))))" +"(values fold-var_324)))))" "(if(not #f)" -"(for-loop_123 fold-var_149 rest_199 rest_80 rest_200)" -" fold-var_149)))" -" fold-var_320)))))" -" for-loop_123)" +"(for-loop_124 fold-var_151 rest_200 rest_80 rest_201)" +" fold-var_151)))" +" fold-var_322)))))" +" for-loop_124)" " null" -" lst_342" -" lst_343" -" lst_204))))))" +" lst_344" +" lst_53" +" lst_206))))))" "(if(expand-context-to-parsed? ctx_83)" "(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)))" @@ -64276,7 +64404,7 @@ static const char *startup_source = "(let-values(((split-by-reference?_0)(if split-by-reference?9_0 split-by-reference?4_0 #f)))" "(let-values(((renames-log-tag_0)(if renames-log-tag10_0 renames-log-tag5_0 'let-renames)))" "(let-values()" -"(lambda(s_318 ctx_84)" +"(lambda(s_319 ctx_84)" "(let-values((()" "(begin" "(let-values(((obs_87)(expand-context-observer ctx_84)))" @@ -64284,7 +64412,7 @@ static const char *startup_source = "(let-values()(let-values()(call-expand-observe obs_87 log-tag_0)))" "(void)))" "(values))))" -"(let-values(((disarmed-s_8)(syntax-disarm$1 s_318)))" +"(let-values(((disarmed-s_8)(syntax-disarm$1 s_319)))" "(let-values(((ok?_37" " letrec-syntaxes+values102_0" " id:trans103_0" @@ -64292,9 +64420,9 @@ static const char *startup_source = " id:val105_0" " val-rhs106_0" " body107_0)" -"(let-values(((s_433) disarmed-s_8))" +"(let-values(((s_434) disarmed-s_8))" "(if(if syntaxes?_0 #t #f)" -"(let-values(((orig-s_45) s_433))" +"(let-values(((orig-s_45) s_434))" "(let-values(((letrec-syntaxes+values102_1" " id:trans103_1" " trans-rhs104_1" @@ -64302,9 +64430,9 @@ static const char *startup_source = " val-rhs106_1" " body107_1)" "(let-values(((s_123)" -"(if(syntax?$1 s_433)" -"(syntax-e$1 s_433)" -" s_433)))" +"(if(syntax?$1 s_434)" +"(syntax-e$1 s_434)" +" s_434)))" "(if(pair? s_123)" "(let-values(((letrec-syntaxes+values108_0)" "(let-values(((s_220)(car s_123))) s_220))" @@ -64343,7 +64471,7 @@ static const char *startup_source = "(let-values()" "(let-values(((id:trans_0" " trans-rhs_0)" -"(let-values(((lst_345)" +"(let-values(((lst_346)" " flat-s_31))" "(begin" "(if(variable-reference-from-unsafe?" @@ -64351,21 +64479,21 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_345)))" +" lst_346)))" "((letrec-values(((for-loop_48)" "(lambda(id:trans_1" " trans-rhs_1" -" lst_346)" +" lst_347)" "(begin" " 'for-loop" "(if(pair?" -" lst_346)" -"(let-values(((s_322)" +" lst_347)" +"(let-values(((s_323)" "(unsafe-car" -" lst_346))" -"((rest_201)" +" lst_347))" +"((rest_202)" "(unsafe-cdr" -" lst_346)))" +" lst_347)))" "(let-values(((id:trans_2" " trans-rhs_2)" "(let-values(((id:trans_3)" @@ -64378,27 +64506,27 @@ static const char *startup_source = "(let-values(((id:trans145_0" " trans-rhs146_0)" "(let-values()" -"(let-values(((s_327)" +"(let-values(((s_328)" "(if(syntax?$1" -" s_322)" +" s_323)" "(syntax-e$1" -" s_322)" -" s_322)))" +" s_323)" +" s_323)))" "(if(pair?" -" s_327)" +" s_328)" "(let-values(((id:trans119_0)" -"(let-values(((s_330)" -"(car" -" s_327)))" "(let-values(((s_331)" +"(car" +" s_328)))" +"(let-values(((s_332)" "(if(syntax?$1" -" s_330)" +" s_331)" "(syntax-e$1" -" s_330)" -" s_330)))" +" s_331)" +" s_331)))" "(let-values(((flat-s_32)" "(to-syntax-list.1" -" s_331)))" +" s_332)))" "(if(not" " flat-s_32)" "(let-values()" @@ -64408,7 +64536,7 @@ static const char *startup_source = " orig-s_45))" "(let-values()" "(let-values(((id:trans_5)" -"(let-values(((lst_299)" +"(let-values(((lst_302)" " flat-s_32))" "(begin" "(if(variable-reference-from-unsafe?" @@ -64416,20 +64544,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_299)))" -"((letrec-values(((for-loop_260)" +" lst_302)))" +"((letrec-values(((for-loop_262)" "(lambda(id:trans_6" -" lst_300)" +" lst_303)" "(begin" " 'for-loop" "(if(pair?" -" lst_300)" +" lst_303)" "(let-values(((s_229)" "(unsafe-car" -" lst_300))" -"((rest_168)" +" lst_303))" +"((rest_169)" "(unsafe-cdr" -" lst_300)))" +" lst_303)))" "(let-values(((id:trans_7)" "(let-values(((id:trans_8)" " id:trans_6))" @@ -64437,15 +64565,15 @@ static const char *startup_source = "(let-values()" "(let-values(((id:trans147_0)" "(let-values()" -"(if(let-values(((or-part_370)" +"(if(let-values(((or-part_371)" "(if(syntax?$1" " s_229)" "(symbol?" "(syntax-e$1" " s_229))" " #f)))" -"(if or-part_370" -" or-part_370" +"(if or-part_371" +" or-part_371" "(symbol?" " s_229)))" " s_229" @@ -64461,20 +64589,20 @@ static const char *startup_source = " id:trans_9)))))" "(if(not" " #f)" -"(for-loop_260" +"(for-loop_262" " id:trans_7" -" rest_168)" +" rest_169)" " id:trans_7)))" " id:trans_6)))))" -" for-loop_260)" +" for-loop_262)" " null" -" lst_299)))))" +" lst_302)))))" "(reverse$1" " id:trans_5))))))))" "((trans-rhs120_0)" "(let-values(((s_498)" "(cdr" -" s_327)))" +" s_328)))" "(let-values(((s_499)" "(if(syntax?$1" " s_498)" @@ -64492,14 +64620,14 @@ static const char *startup_source = "(let-values(((s_233)" "(cdr" " s_499)))" -"(let-values(((s_337)" +"(let-values(((s_338)" "(if(syntax?$1" " s_233)" "(syntax-e$1" " s_233)" " s_233)))" "(if(null?" -" s_337)" +" s_338)" "(values)" "(raise-syntax-error$1" " #f" @@ -64533,7 +64661,7 @@ static const char *startup_source = "(for-loop_48" " id:trans_2" " trans-rhs_2" -" rest_201)" +" rest_202)" "(values" " id:trans_2" " trans-rhs_2))))" @@ -64543,7 +64671,7 @@ static const char *startup_source = " for-loop_48)" " null" " null" -" lst_345)))))" +" lst_346)))))" "(values" "(reverse$1" " id:trans_0)" @@ -64552,30 +64680,30 @@ static const char *startup_source = "((id:val116_0" " val-rhs117_0" " body118_0)" -"(let-values(((s_338)" +"(let-values(((s_339)" "(cdr" " s_496)))" "(let-values(((s_234)" "(if(syntax?$1" -" s_338)" -"(syntax-e$1" -" s_338)" -" s_338)))" -"(if(pair? s_234)" -"(let-values(((id:val122_0" -" val-rhs123_0)" -"(let-values(((s_339)" -"(car" -" s_234)))" -"(let-values(((s_340)" -"(if(syntax?$1" " s_339)" "(syntax-e$1" " s_339)" " s_339)))" +"(if(pair? s_234)" +"(let-values(((id:val122_0" +" val-rhs123_0)" +"(let-values(((s_340)" +"(car" +" s_234)))" +"(let-values(((s_341)" +"(if(syntax?$1" +" s_340)" +"(syntax-e$1" +" s_340)" +" s_340)))" "(let-values(((flat-s_33)" "(to-syntax-list.1" -" s_340)))" +" s_341)))" "(if(not" " flat-s_33)" "(let-values()" @@ -64586,7 +64714,7 @@ static const char *startup_source = "(let-values()" "(let-values(((id:val_0" " val-rhs_1)" -"(let-values(((lst_347)" +"(let-values(((lst_348)" " flat-s_33))" "(begin" "(if(variable-reference-from-unsafe?" @@ -64594,21 +64722,21 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_347)))" -"((letrec-values(((for-loop_262)" +" lst_348)))" +"((letrec-values(((for-loop_264)" "(lambda(id:val_1" " val-rhs_2" -" lst_348)" +" lst_349)" "(begin" " 'for-loop" "(if(pair?" -" lst_348)" -"(let-values(((s_345)" +" lst_349)" +"(let-values(((s_346)" "(unsafe-car" -" lst_348))" -"((rest_202)" +" lst_349))" +"((rest_203)" "(unsafe-cdr" -" lst_348)))" +" lst_349)))" "(let-values(((id:val_2" " val-rhs_3)" "(let-values(((id:val_3)" @@ -64623,22 +64751,22 @@ static const char *startup_source = "(let-values()" "(let-values(((s_500)" "(if(syntax?$1" -" s_345)" +" s_346)" "(syntax-e$1" -" s_345)" -" s_345)))" +" s_346)" +" s_346)))" "(if(pair?" " s_500)" "(let-values(((id:val125_0)" -"(let-values(((s_350)" +"(let-values(((s_351)" "(car" " s_500)))" "(let-values(((s_501)" "(if(syntax?$1" -" s_350)" +" s_351)" "(syntax-e$1" -" s_350)" -" s_350)))" +" s_351)" +" s_351)))" "(let-values(((flat-s_34)" "(to-syntax-list.1" " s_501)))" @@ -64651,7 +64779,7 @@ static const char *startup_source = " orig-s_45))" "(let-values()" "(let-values(((id:val_5)" -"(let-values(((lst_349)" +"(let-values(((lst_350)" " flat-s_34))" "(begin" "(if(variable-reference-from-unsafe?" @@ -64659,20 +64787,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_349)))" -"((letrec-values(((for-loop_294)" +" lst_350)))" +"((letrec-values(((for-loop_297)" "(lambda(id:val_6" -" lst_350)" +" lst_351)" "(begin" " 'for-loop" "(if(pair?" -" lst_350)" +" lst_351)" "(let-values(((s_502)" "(unsafe-car" -" lst_350))" -"((rest_203)" +" lst_351))" +"((rest_204)" "(unsafe-cdr" -" lst_350)))" +" lst_351)))" "(let-values(((id:val_7)" "(let-values(((id:val_8)" " id:val_6))" @@ -64680,15 +64808,15 @@ static const char *startup_source = "(let-values()" "(let-values(((id:val150_0)" "(let-values()" -"(if(let-values(((or-part_371)" +"(if(let-values(((or-part_372)" "(if(syntax?$1" " s_502)" "(symbol?" "(syntax-e$1" " s_502))" " #f)))" -"(if or-part_371" -" or-part_371" +"(if or-part_372" +" or-part_372" "(symbol?" " s_502)))" " s_502" @@ -64704,14 +64832,14 @@ static const char *startup_source = " id:val_9)))))" "(if(not" " #f)" -"(for-loop_294" +"(for-loop_297" " id:val_7" -" rest_203)" +" rest_204)" " id:val_7)))" " id:val_6)))))" -" for-loop_294)" +" for-loop_297)" " null" -" lst_349)))))" +" lst_350)))))" "(reverse$1" " id:val_5))))))))" "((val-rhs126_0)" @@ -64773,20 +64901,20 @@ static const char *startup_source = " val-rhs_5)))))" "(if(not" " #f)" -"(for-loop_262" +"(for-loop_264" " id:val_2" " val-rhs_3" -" rest_202)" +" rest_203)" "(values" " id:val_2" " val-rhs_3))))" "(values" " id:val_1" " val-rhs_2))))))" -" for-loop_262)" +" for-loop_264)" " null" " null" -" lst_347)))))" +" lst_348)))))" "(values" "(reverse$1" " id:val_0)" @@ -64870,18 +64998,18 @@ static const char *startup_source = "(let-values(((s_508)(car s_507)))" " s_508))" "((id:val133_0 val-rhs134_0 body135_0)" -"(let-values(((s_439)(cdr s_507)))" -"(let-values(((s_440)" -"(if(syntax?$1 s_439)" -"(syntax-e$1 s_439)" -" s_439)))" -"(if(pair? s_440)" +"(let-values(((s_440)(cdr s_507)))" +"(let-values(((s_441)" +"(if(syntax?$1 s_440)" +"(syntax-e$1 s_440)" +" s_440)))" +"(if(pair? s_441)" "(let-values(((id:val136_0" " val-rhs137_0)" "(let-values(((s_249)" "(car" -" s_440)))" -"(let-values(((s_356)" +" s_441)))" +"(let-values(((s_357)" "(if(syntax?$1" " s_249)" "(syntax-e$1" @@ -64889,7 +65017,7 @@ static const char *startup_source = " s_249)))" "(let-values(((flat-s_36)" "(to-syntax-list.1" -" s_356)))" +" s_357)))" "(if(not" " flat-s_36)" "(let-values()" @@ -64900,7 +65028,7 @@ static const char *startup_source = "(let-values()" "(let-values(((id:val_10" " val-rhs_6)" -"(let-values(((lst_351)" +"(let-values(((lst_352)" " flat-s_36))" "(begin" "(if(variable-reference-from-unsafe?" @@ -64908,21 +65036,21 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_351)))" -"((letrec-values(((for-loop_295)" +" lst_352)))" +"((letrec-values(((for-loop_298)" "(lambda(id:val_11" " val-rhs_7" -" lst_352)" +" lst_353)" "(begin" " 'for-loop" "(if(pair?" -" lst_352)" -"(let-values(((s_365)" +" lst_353)" +"(let-values(((s_366)" "(unsafe-car" -" lst_352))" -"((rest_204)" +" lst_353))" +"((rest_205)" "(unsafe-cdr" -" lst_352)))" +" lst_353)))" "(let-values(((id:val_12" " val-rhs_8)" "(let-values(((id:val_13)" @@ -64937,25 +65065,25 @@ static const char *startup_source = "(let-values()" "(let-values(((s_482)" "(if(syntax?$1" -" s_365)" +" s_366)" "(syntax-e$1" -" s_365)" -" s_365)))" +" s_366)" +" s_366)))" "(if(pair?" " s_482)" "(let-values(((id:val139_0)" -"(let-values(((s_369)" +"(let-values(((s_370)" "(car" " s_482)))" -"(let-values(((s_370)" +"(let-values(((s_371)" "(if(syntax?$1" -" s_369)" +" s_370)" "(syntax-e$1" -" s_369)" -" s_369)))" +" s_370)" +" s_370)))" "(let-values(((flat-s_37)" "(to-syntax-list.1" -" s_370)))" +" s_371)))" "(if(not" " flat-s_37)" "(let-values()" @@ -64965,7 +65093,7 @@ static const char *startup_source = " orig-s_46))" "(let-values()" "(let-values(((id:val_15)" -"(let-values(((lst_305)" +"(let-values(((lst_308)" " flat-s_37))" "(begin" "(if(variable-reference-from-unsafe?" @@ -64973,20 +65101,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_305)))" -"((letrec-values(((for-loop_267)" +" lst_308)))" +"((letrec-values(((for-loop_269)" "(lambda(id:val_16" -" lst_306)" +" lst_309)" "(begin" " 'for-loop" "(if(pair?" -" lst_306)" +" lst_309)" "(let-values(((s_509)" "(unsafe-car" -" lst_306))" -"((rest_172)" +" lst_309))" +"((rest_173)" "(unsafe-cdr" -" lst_306)))" +" lst_309)))" "(let-values(((id:val_17)" "(let-values(((id:val_18)" " id:val_16))" @@ -64994,15 +65122,15 @@ static const char *startup_source = "(let-values()" "(let-values(((id:val153_0)" "(let-values()" -"(if(let-values(((or-part_372)" +"(if(let-values(((or-part_373)" "(if(syntax?$1" " s_509)" "(symbol?" "(syntax-e$1" " s_509))" " #f)))" -"(if or-part_372" -" or-part_372" +"(if or-part_373" +" or-part_373" "(symbol?" " s_509)))" " s_509" @@ -65018,14 +65146,14 @@ static const char *startup_source = " id:val_19)))))" "(if(not" " #f)" -"(for-loop_267" +"(for-loop_269" " id:val_17" -" rest_172)" +" rest_173)" " id:val_17)))" " id:val_16)))))" -" for-loop_267)" +" for-loop_269)" " null" -" lst_305)))))" +" lst_308)))))" "(reverse$1" " id:val_15))))))))" "((val-rhs140_0)" @@ -65087,20 +65215,20 @@ static const char *startup_source = " val-rhs_10)))))" "(if(not" " #f)" -"(for-loop_295" +"(for-loop_298" " id:val_12" " val-rhs_8" -" rest_204)" +" rest_205)" "(values" " id:val_12" " val-rhs_8))))" "(values" " id:val_11" " val-rhs_7))))))" -" for-loop_295)" +" for-loop_298)" " null" " null" -" lst_351)))))" +" lst_352)))))" "(values" "(reverse$1" " id:val_10)" @@ -65109,7 +65237,7 @@ static const char *startup_source = "((body138_0)" "(let-values(((s_255)" "(cdr" -" s_440)))" +" s_441)))" "(let-values(((s_256)" "(if(syntax?$1" " s_255)" @@ -65152,33 +65280,33 @@ static const char *startup_source = "(values #t let-values128_1 id:val129_1 val-rhs130_1 body131_1)))" "(values #f #f #f #f #f)))))" "(let-values(((sc_37)(new-scope 'local)))" -"(let-values(((phase_148)(expand-context-phase ctx_84)))" +"(let-values(((phase_149)(expand-context-phase ctx_84)))" "(let-values(((frame-id_15)(if syntaxes?_0(make-reference-record) #f)))" "(let-values(((trans-idss_2)" "(reverse$1" -"(let-values(((lst_353)(if syntaxes?_0 id:trans103_0 null)))" +"(let-values(((lst_354)(if syntaxes?_0 id:trans103_0 null)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_353)))" -"((letrec-values(((for-loop_296)" -"(lambda(fold-var_323 lst_354)" +"(let-values()(check-list lst_354)))" +"((letrec-values(((for-loop_299)" +"(lambda(fold-var_325 lst_355)" "(begin" " 'for-loop" -"(if(pair? lst_354)" +"(if(pair? lst_355)" "(let-values(((ids_35)" -"(unsafe-car lst_354))" -"((rest_205)" -"(unsafe-cdr lst_354)))" -"(let-values(((fold-var_324)" -"(let-values(((fold-var_325)" -" fold-var_323))" +"(unsafe-car lst_355))" +"((rest_206)" +"(unsafe-cdr lst_355)))" "(let-values(((fold-var_326)" +"(let-values(((fold-var_327)" +" fold-var_325))" +"(let-values(((fold-var_328)" "(let-values()" "(cons" "(let-values()" "(reverse$1" -"(let-values(((lst_355)" +"(let-values(((lst_356)" " ids_35))" "(begin" "(if(variable-reference-from-unsafe?" @@ -65186,78 +65314,78 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_355)))" -"((letrec-values(((for-loop_297)" -"(lambda(fold-var_327" -" lst_356)" +" lst_356)))" +"((letrec-values(((for-loop_300)" +"(lambda(fold-var_329" +" lst_357)" "(begin" " 'for-loop" "(if(pair?" -" lst_356)" -"(let-values(((id_122)" +" lst_357)" +"(let-values(((id_123)" "(unsafe-car" -" lst_356))" -"((rest_206)" +" lst_357))" +"((rest_207)" "(unsafe-cdr" -" lst_356)))" -"(let-values(((fold-var_328)" -"(let-values(((fold-var_329)" -" fold-var_327))" +" lst_357)))" "(let-values(((fold-var_330)" +"(let-values(((fold-var_331)" +" fold-var_329))" +"(let-values(((fold-var_332)" "(let-values()" "(cons" "(let-values()" "(add-scope" -" id_122" +" id_123" " sc_37))" -" fold-var_329))))" +" fold-var_331))))" "(values" -" fold-var_330)))))" +" fold-var_332)))))" "(if(not" " #f)" -"(for-loop_297" -" fold-var_328" -" rest_206)" -" fold-var_328)))" -" fold-var_327)))))" -" for-loop_297)" +"(for-loop_300" +" fold-var_330" +" rest_207)" +" fold-var_330)))" +" fold-var_329)))))" +" for-loop_300)" " null" -" lst_355)))))" -" fold-var_325))))" +" lst_356)))))" +" fold-var_327))))" "(values" -" fold-var_326)))))" +" fold-var_328)))))" "(if(not #f)" -"(for-loop_296 fold-var_324 rest_205)" -" fold-var_324)))" -" fold-var_323)))))" -" for-loop_296)" +"(for-loop_299 fold-var_326 rest_206)" +" fold-var_326)))" +" fold-var_325)))))" +" for-loop_299)" " null" -" lst_353))))))" +" lst_354))))))" "(let-values(((val-idss_3)" "(reverse$1" -"(let-values(((lst_357)(if syntaxes?_0 id:val105_0 id:val129_0)))" +"(let-values(((lst_358)(if syntaxes?_0 id:val105_0 id:val129_0)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_357)))" -"((letrec-values(((for-loop_298)" -"(lambda(fold-var_331 lst_358)" +"(let-values()(check-list lst_358)))" +"((letrec-values(((for-loop_301)" +"(lambda(fold-var_333 lst_359)" "(begin" " 'for-loop" -"(if(pair? lst_358)" +"(if(pair? lst_359)" "(let-values(((ids_36)" -"(unsafe-car lst_358))" -"((rest_207)" -"(unsafe-cdr lst_358)))" -"(let-values(((fold-var_332)" -"(let-values(((fold-var_333)" -" fold-var_331))" -"(let-values(((fold-var_106)" +"(unsafe-car lst_359))" +"((rest_208)" +"(unsafe-cdr lst_359)))" +"(let-values(((fold-var_334)" +"(let-values(((fold-var_335)" +" fold-var_333))" +"(let-values(((fold-var_107)" "(let-values()" "(cons" "(let-values()" "(reverse$1" -"(let-values(((lst_359)" +"(let-values(((lst_360)" " ids_36))" "(begin" "(if(variable-reference-from-unsafe?" @@ -65265,95 +65393,95 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_359)))" -"((letrec-values(((for-loop_155)" -"(lambda(fold-var_107" -" lst_360)" +" lst_360)))" +"((letrec-values(((for-loop_156)" +"(lambda(fold-var_108" +" lst_361)" "(begin" " 'for-loop" "(if(pair?" -" lst_360)" -"(let-values(((id_123)" +" lst_361)" +"(let-values(((id_124)" "(unsafe-car" -" lst_360))" -"((rest_208)" +" lst_361))" +"((rest_209)" "(unsafe-cdr" -" lst_360)))" -"(let-values(((fold-var_111)" -"(let-values(((fold-var_334)" -" fold-var_107))" -"(let-values(((fold-var_335)" +" lst_361)))" +"(let-values(((fold-var_112)" +"(let-values(((fold-var_336)" +" fold-var_108))" +"(let-values(((fold-var_337)" "(let-values()" "(cons" "(let-values()" "(add-scope" -" id_123" +" id_124" " sc_37))" -" fold-var_334))))" +" fold-var_336))))" "(values" -" fold-var_335)))))" +" fold-var_337)))))" "(if(not" " #f)" -"(for-loop_155" -" fold-var_111" -" rest_208)" -" fold-var_111)))" -" fold-var_107)))))" -" for-loop_155)" +"(for-loop_156" +" fold-var_112" +" rest_209)" +" fold-var_112)))" +" fold-var_108)))))" +" for-loop_156)" " null" -" lst_359)))))" -" fold-var_333))))" +" lst_360)))))" +" fold-var_335))))" "(values" -" fold-var_106)))))" +" fold-var_107)))))" "(if(not #f)" -"(for-loop_298" -" fold-var_332" -" rest_207)" -" fold-var_332)))" -" fold-var_331)))))" -" for-loop_298)" +"(for-loop_301" +" fold-var_334" +" rest_208)" +" fold-var_334)))" +" fold-var_333)))))" +" for-loop_301)" " null" -" lst_357))))))" +" lst_358))))))" "(let-values(((val-rhss_3)" "(if rec?_1" "(reverse$1" -"(let-values(((lst_361)" +"(let-values(((lst_362)" "(if syntaxes?_0 val-rhs106_0 val-rhs130_0)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_361)))" -"((letrec-values(((for-loop_299)" -"(lambda(fold-var_336 lst_362)" +"(let-values()(check-list lst_362)))" +"((letrec-values(((for-loop_302)" +"(lambda(fold-var_338 lst_363)" "(begin" " 'for-loop" -"(if(pair? lst_362)" +"(if(pair? lst_363)" "(let-values(((rhs_17)" -"(unsafe-car lst_362))" -"((rest_209)" -"(unsafe-cdr lst_362)))" -"(let-values(((fold-var_337)" -"(let-values(((fold-var_338)" -" fold-var_336))" +"(unsafe-car lst_363))" +"((rest_210)" +"(unsafe-cdr lst_363)))" "(let-values(((fold-var_339)" +"(let-values(((fold-var_340)" +" fold-var_338))" +"(let-values(((fold-var_341)" "(let-values()" "(cons" "(let-values()" "(add-scope" " rhs_17" " sc_37))" -" fold-var_338))))" +" fold-var_340))))" "(values" -" fold-var_339)))))" +" fold-var_341)))))" "(if(not #f)" -"(for-loop_299" -" fold-var_337" -" rest_209)" -" fold-var_337)))" -" fold-var_336)))))" -" for-loop_299)" +"(for-loop_302" +" fold-var_339" +" rest_210)" +" fold-var_339)))" +" fold-var_338)))))" +" for-loop_302)" " null" -" lst_361))))" +" lst_362))))" "(if syntaxes?_0 val-rhs106_0 val-rhs130_0))))" "(let-values(((val-clauses_0)" "(if syntaxes?_0" @@ -65365,37 +65493,37 @@ static const char *startup_source = " _155_1" " clause156_1" " _157_1)" -"(let-values(((s_394)" +"(let-values(((s_395)" "(if(syntax?$1" " s_135)" "(syntax-e$1" " s_135)" " s_135)))" -"(if(pair? s_394)" +"(if(pair? s_395)" "(let-values(((_158_0)" "(let-values(((s_484)" "(car" -" s_394)))" +" s_395)))" " s_484))" "((_159_0" " clause160_0" " _161_0)" -"(let-values(((s_446)" +"(let-values(((s_447)" "(cdr" -" s_394)))" +" s_395)))" "(let-values(((s_513)" "(if(syntax?$1" -" s_446)" +" s_447)" "(syntax-e$1" -" s_446)" -" s_446)))" +" s_447)" +" s_447)))" "(if(pair?" " s_513)" "(let-values(((_162_0)" -"(let-values(((s_449)" +"(let-values(((s_450)" "(car" " s_513)))" -" s_449))" +" s_450))" "((clause163_0" " _164_0)" "(let-values(((s_514)" @@ -65469,15 +65597,15 @@ static const char *startup_source = " clause156_0))" "(let-values()" "(let-values(((ok?_40 _167_0 clause168_0 _169_0)" -"(let-values(((s_395) disarmed-s_8))" -"(let-values(((orig-s_48) s_395))" +"(let-values(((s_396) disarmed-s_8))" +"(let-values(((orig-s_48) s_396))" "(let-values(((_167_1 clause168_1 _169_1)" "(let-values(((s_519)" "(if(syntax?$1" -" s_395)" +" s_396)" "(syntax-e$1" -" s_395)" -" s_395)))" +" s_396)" +" s_396)))" "(if(pair? s_519)" "(let-values(((_170_0)" "(let-values(((s_520)" @@ -65544,8 +65672,8 @@ static const char *startup_source = "(let-values((()" "(begin" "(let-values(((temp142_3)(list trans-idss_2 val-idss_3))" -"((phase143_0) phase_148)" -"((s144_0) s_318))" +"((phase143_0) phase_149)" +"((s144_0) s_319))" "(check-no-duplicate-ids8.1" " #f" " #f" @@ -65558,32 +65686,32 @@ static const char *startup_source = "(let-values(((counter_8)(root-expand-context-counter ctx_84)))" "(let-values(((trans-keyss_0)" "(reverse$1" -"(let-values(((lst_363) trans-idss_2))" +"(let-values(((lst_364) trans-idss_2))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_363)))" -"((letrec-values(((for-loop_300)" -"(lambda(fold-var_340 lst_364)" +"(let-values()(check-list lst_364)))" +"((letrec-values(((for-loop_303)" +"(lambda(fold-var_342 lst_365)" "(begin" " 'for-loop" -"(if(pair? lst_364)" +"(if(pair? lst_365)" "(let-values(((ids_37)" "(unsafe-car" -" lst_364))" -"((rest_210)" +" lst_365))" +"((rest_211)" "(unsafe-cdr" -" lst_364)))" -"(let-values(((fold-var_341)" -"(let-values(((fold-var_342)" -" fold-var_340))" +" lst_365)))" "(let-values(((fold-var_343)" +"(let-values(((fold-var_344)" +" fold-var_342))" +"(let-values(((fold-var_345)" "(let-values()" "(cons" "(let-values()" "(reverse$1" -"(let-values(((lst_365)" +"(let-values(((lst_366)" " ids_37))" "(begin" "(if(variable-reference-from-unsafe?" @@ -65591,37 +65719,37 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_365)))" -"((letrec-values(((for-loop_301)" -"(lambda(fold-var_344" -" lst_366)" +" lst_366)))" +"((letrec-values(((for-loop_304)" +"(lambda(fold-var_346" +" lst_367)" "(begin" " 'for-loop" "(if(pair?" -" lst_366)" -"(let-values(((id_124)" +" lst_367)" +"(let-values(((id_125)" "(unsafe-car" -" lst_366))" -"((rest_211)" +" lst_367))" +"((rest_212)" "(unsafe-cdr" -" lst_366)))" -"(let-values(((fold-var_345)" -"(let-values(((fold-var_346)" -" fold-var_344))" +" lst_367)))" "(let-values(((fold-var_347)" +"(let-values(((fold-var_348)" +" fold-var_346))" +"(let-values(((fold-var_349)" "(let-values()" "(cons" "(let-values()" "(let-values(((id175_0)" -" id_124)" +" id_125)" "((phase176_0)" -" phase_148)" +" phase_149)" "((counter177_0)" " counter_8)" "((frame-id178_0)" " frame-id_15)" "((s179_0)" -" s_318))" +" s_319))" "(add-local-binding!37.1" " frame-id178_0" " #t" @@ -65630,59 +65758,59 @@ static const char *startup_source = " id175_0" " phase176_0" " counter177_0)))" -" fold-var_346))))" +" fold-var_348))))" "(values" -" fold-var_347)))))" +" fold-var_349)))))" "(if(not" " #f)" -"(for-loop_301" -" fold-var_345" -" rest_211)" -" fold-var_345)))" -" fold-var_344)))))" -" for-loop_301)" +"(for-loop_304" +" fold-var_347" +" rest_212)" +" fold-var_347)))" +" fold-var_346)))))" +" for-loop_304)" " null" -" lst_365)))))" -" fold-var_342))))" +" lst_366)))))" +" fold-var_344))))" "(values" -" fold-var_343)))))" +" fold-var_345)))))" "(if(not #f)" -"(for-loop_300" -" fold-var_341" -" rest_210)" -" fold-var_341)))" -" fold-var_340)))))" -" for-loop_300)" +"(for-loop_303" +" fold-var_343" +" rest_211)" +" fold-var_343)))" +" fold-var_342)))))" +" for-loop_303)" " null" -" lst_363))))))" +" lst_364))))))" "(let-values(((val-keyss_2)" "(reverse$1" -"(let-values(((lst_253) val-idss_3))" +"(let-values(((lst_255) val-idss_3))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_253)))" -"((letrec-values(((for-loop_302)" -"(lambda(fold-var_348 lst_367)" +"(let-values()(check-list lst_255)))" +"((letrec-values(((for-loop_305)" +"(lambda(fold-var_350 lst_368)" "(begin" " 'for-loop" -"(if(pair? lst_367)" +"(if(pair? lst_368)" "(let-values(((ids_38)" "(unsafe-car" -" lst_367))" -"((rest_212)" +" lst_368))" +"((rest_213)" "(unsafe-cdr" -" lst_367)))" -"(let-values(((fold-var_349)" -"(let-values(((fold-var_350)" -" fold-var_348))" +" lst_368)))" "(let-values(((fold-var_351)" +"(let-values(((fold-var_352)" +" fold-var_350))" +"(let-values(((fold-var_353)" "(let-values()" "(cons" "(let-values()" "(reverse$1" -"(let-values(((lst_368)" +"(let-values(((lst_369)" " ids_38))" "(begin" "(if(variable-reference-from-unsafe?" @@ -65690,37 +65818,37 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_368)))" -"((letrec-values(((for-loop_303)" -"(lambda(fold-var_352" -" lst_369)" +" lst_369)))" +"((letrec-values(((for-loop_306)" +"(lambda(fold-var_354" +" lst_370)" "(begin" " 'for-loop" "(if(pair?" -" lst_369)" -"(let-values(((id_125)" +" lst_370)" +"(let-values(((id_126)" "(unsafe-car" -" lst_369))" -"((rest_213)" +" lst_370))" +"((rest_214)" "(unsafe-cdr" -" lst_369)))" -"(let-values(((fold-var_353)" -"(let-values(((fold-var_354)" -" fold-var_352))" -"(let-values(((fold-var_114)" +" lst_370)))" +"(let-values(((fold-var_355)" +"(let-values(((fold-var_356)" +" fold-var_354))" +"(let-values(((fold-var_115)" "(let-values()" "(cons" "(let-values()" "(let-values(((id180_0)" -" id_125)" +" id_126)" "((phase181_0)" -" phase_148)" +" phase_149)" "((counter182_0)" " counter_8)" "((frame-id183_0)" " frame-id_15)" "((s184_0)" -" s_318))" +" s_319))" "(add-local-binding!37.1" " frame-id183_0" " #t" @@ -65729,73 +65857,73 @@ static const char *startup_source = " id180_0" " phase181_0" " counter182_0)))" -" fold-var_354))))" +" fold-var_356))))" "(values" -" fold-var_114)))))" +" fold-var_115)))))" "(if(not" " #f)" -"(for-loop_303" -" fold-var_353" -" rest_213)" -" fold-var_353)))" -" fold-var_352)))))" -" for-loop_303)" +"(for-loop_306" +" fold-var_355" +" rest_214)" +" fold-var_355)))" +" fold-var_354)))))" +" for-loop_306)" " null" -" lst_368)))))" -" fold-var_350))))" +" lst_369)))))" +" fold-var_352))))" "(values" -" fold-var_351)))))" +" fold-var_353)))))" "(if(not #f)" -"(for-loop_302" -" fold-var_349" -" rest_212)" -" fold-var_349)))" -" fold-var_348)))))" -" for-loop_302)" +"(for-loop_305" +" fold-var_351" +" rest_213)" +" fold-var_351)))" +" fold-var_350)))))" +" for-loop_305)" " null" -" lst_253))))))" +" lst_255))))))" "(let-values(((bodys_10)" "(reverse$1" -"(let-values(((lst_370)" +"(let-values(((lst_371)" "(if syntaxes?_0 body107_0 body131_0)))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_370)))" -"((letrec-values(((for-loop_304)" -"(lambda(fold-var_355 lst_371)" +"(let-values()(check-list lst_371)))" +"((letrec-values(((for-loop_307)" +"(lambda(fold-var_357 lst_372)" "(begin" " 'for-loop" -"(if(pair? lst_371)" +"(if(pair? lst_372)" "(let-values(((body_20)" "(unsafe-car" -" lst_371))" -"((rest_214)" +" lst_372))" +"((rest_215)" "(unsafe-cdr" -" lst_371)))" -"(let-values(((fold-var_356)" -"(let-values(((fold-var_357)" -" fold-var_355))" +" lst_372)))" "(let-values(((fold-var_358)" +"(let-values(((fold-var_359)" +" fold-var_357))" +"(let-values(((fold-var_360)" "(let-values()" "(cons" "(let-values()" "(add-scope" " body_20" " sc_37))" -" fold-var_357))))" +" fold-var_359))))" "(values" -" fold-var_358)))))" +" fold-var_360)))))" "(if(not #f)" -"(for-loop_304" -" fold-var_356" -" rest_214)" -" fold-var_356)))" -" fold-var_355)))))" -" for-loop_304)" +"(for-loop_307" +" fold-var_358" +" rest_215)" +" fold-var_358)))" +" fold-var_357)))))" +" for-loop_307)" " null" -" lst_370))))))" +" lst_371))))))" "(let-values((()" "(begin" "(let-values(((obs_88)" @@ -65837,7 +65965,7 @@ static const char *startup_source = "(if syntaxes?_0" " trans-rhs104_0" " '()))" -"((lst_372) trans-idss_2))" +"((lst_373) trans-idss_2))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" @@ -65846,32 +65974,32 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_372)))" -"((letrec-values(((for-loop_305)" -"(lambda(fold-var_119" -" lst_373" -" lst_374)" +"(let-values()(check-list lst_373)))" +"((letrec-values(((for-loop_308)" +"(lambda(fold-var_120" +" lst_374" +" lst_375)" "(begin" " 'for-loop" -"(if(if(pair? lst_373)" -"(pair? lst_374)" +"(if(if(pair? lst_374)" +"(pair? lst_375)" " #f)" "(let-values(((rhs_20)" "(unsafe-car" -" lst_373))" -"((rest_215)" -"(unsafe-cdr" -" lst_373))" -"((ids_39)" -"(unsafe-car" " lst_374))" "((rest_216)" "(unsafe-cdr" -" lst_374)))" -"(let-values(((fold-var_359)" -"(let-values(((fold-var_123)" -" fold-var_119))" -"(let-values(((fold-var_360)" +" lst_374))" +"((ids_39)" +"(unsafe-car" +" lst_375))" +"((rest_217)" +"(unsafe-cdr" +" lst_375)))" +"(let-values(((fold-var_361)" +"(let-values(((fold-var_124)" +" fold-var_120))" +"(let-values(((fold-var_362)" "(let-values()" "(cons" "(let-values()" @@ -65911,60 +66039,60 @@ static const char *startup_source = " 'exit-bind)))" "(void)))" " trans-val_1))))" -" fold-var_123))))" +" fold-var_124))))" "(values" -" fold-var_360)))))" +" fold-var_362)))))" "(if(not #f)" -"(for-loop_305" -" fold-var_359" -" rest_215" -" rest_216)" -" fold-var_359)))" -" fold-var_119)))))" -" for-loop_305)" +"(for-loop_308" +" fold-var_361" +" rest_216" +" rest_217)" +" fold-var_361)))" +" fold-var_120)))))" +" for-loop_308)" " null" " lst_132" -" lst_372))))))" +" lst_373))))))" "(let-values(((rec-val-env_0)" -"(let-values(((lst_375) val-keyss_2)" -"((lst_256) val-idss_3))" +"(let-values(((lst_376) val-keyss_2)" +"((lst_258) val-idss_3))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_375)))" +"(let-values()(check-list lst_376)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_256)))" -"((letrec-values(((for-loop_306)" +"(let-values()(check-list lst_258)))" +"((letrec-values(((for-loop_309)" "(lambda(env_29" -" lst_376" -" lst_377)" +" lst_377" +" lst_378)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_376)" -"(pair? lst_377)" +" lst_377)" +"(pair? lst_378)" " #f)" "(let-values(((keys_10)" "(unsafe-car" -" lst_376))" -"((rest_217)" -"(unsafe-cdr" -" lst_376))" -"((ids_40)" -"(unsafe-car" " lst_377))" "((rest_218)" "(unsafe-cdr" -" lst_377)))" +" lst_377))" +"((ids_40)" +"(unsafe-car" +" lst_378))" +"((rest_219)" +"(unsafe-cdr" +" lst_378)))" "(let-values(((env_30)" "(let-values(((env_31)" " env_29))" -"(let-values(((lst_258)" +"(let-values(((lst_260)" " keys_10)" -"((lst_378)" +"((lst_379)" " ids_40))" "(begin" "(if(variable-reference-from-unsafe?" @@ -65972,36 +66100,36 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_258)))" +" lst_260)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_378)))" -"((letrec-values(((for-loop_307)" +" lst_379)))" +"((letrec-values(((for-loop_310)" "(lambda(env_32" -" lst_379" -" lst_380)" +" lst_380" +" lst_381)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_379)" -"(pair?" " lst_380)" +"(pair?" +" lst_381)" " #f)" "(let-values(((key_68)" "(unsafe-car" -" lst_379))" -"((rest_219)" -"(unsafe-cdr" -" lst_379))" -"((id_126)" -"(unsafe-car" " lst_380))" "((rest_220)" "(unsafe-cdr" -" lst_380)))" +" lst_380))" +"((id_127)" +"(unsafe-car" +" lst_381))" +"((rest_221)" +"(unsafe-cdr" +" lst_381)))" "(let-values(((env_33)" "(let-values(((env_34)" " env_32))" @@ -66011,92 +66139,92 @@ static const char *startup_source = " env_34" " key_68" "(local-variable1.1" -" id_126)))))" +" id_127)))))" "(values" " env_35)))))" "(if(not" " #f)" -"(for-loop_307" +"(for-loop_310" " env_33" -" rest_219" -" rest_220)" +" rest_220" +" rest_221)" " env_33)))" " env_32)))))" -" for-loop_307)" +" for-loop_310)" " env_31" -" lst_258" -" lst_378))))))" +" lst_260" +" lst_379))))))" "(if(not #f)" -"(for-loop_306" +"(for-loop_309" " env_30" -" rest_217" -" rest_218)" +" rest_218" +" rest_219)" " env_30)))" " env_29)))))" -" for-loop_306)" +" for-loop_309)" "(expand-context-env ctx_84)" -" lst_375" -" lst_256)))))" +" lst_376" +" lst_258)))))" "(let-values(((rec-env_0)" -"(let-values(((lst_381) trans-keyss_0)" -"((lst_382) trans-valss_0)" +"(let-values(((lst_382) trans-keyss_0)" +"((lst_383) trans-valss_0)" "((lst_60) trans-idss_2))" "(begin" "(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)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" +"(let-values()(check-list lst_383)))" +"(if(variable-reference-from-unsafe?" +"(#%variable-reference))" +"(void)" "(let-values()(check-list lst_60)))" "((letrec-values(((for-loop_84)" "(lambda(env_36" " lst_61" -" lst_383" -" lst_384)" +" lst_384" +" lst_385)" "(begin" " 'for-loop" "(if(if(pair?" " lst_61)" "(if(pair?" -" lst_383)" -"(pair?" " lst_384)" +"(pair?" +" lst_385)" " #f)" " #f)" "(let-values(((keys_11)" "(unsafe-car" " lst_61))" -"((rest_221)" +"((rest_222)" "(unsafe-cdr" " lst_61))" "((vals_9)" "(unsafe-car" -" lst_383))" -"((rest_222)" -"(unsafe-cdr" -" lst_383))" -"((ids_41)" -"(unsafe-car" " lst_384))" "((rest_223)" "(unsafe-cdr" -" lst_384)))" +" lst_384))" +"((ids_41)" +"(unsafe-car" +" lst_385))" +"((rest_224)" +"(unsafe-cdr" +" lst_385)))" "(let-values(((env_37)" "(let-values(((env_38)" " env_36))" "(let-values(((env_39)" "(let-values()" -"(let-values(((lst_385)" +"(let-values(((lst_386)" " keys_11)" -"((lst_386)" -" vals_9)" "((lst_387)" +" vals_9)" +"((lst_388)" " ids_41))" "(begin" "(if(variable-reference-from-unsafe?" @@ -66104,12 +66232,6 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_385)))" -"(if(variable-reference-from-unsafe?" -"(#%variable-reference))" -"(void)" -"(let-values()" -"(check-list" " lst_386)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" @@ -66117,39 +66239,45 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_387)))" -"((letrec-values(((for-loop_308)" +"(if(variable-reference-from-unsafe?" +"(#%variable-reference))" +"(void)" +"(let-values()" +"(check-list" +" lst_388)))" +"((letrec-values(((for-loop_311)" "(lambda(env_40" " lst_65" -" lst_388" -" lst_389)" +" lst_389" +" lst_390)" "(begin" " 'for-loop" "(if(if(pair?" " lst_65)" "(if(pair?" -" lst_388)" -"(pair?" " lst_389)" +"(pair?" +" lst_390)" " #f)" " #f)" "(let-values(((key_96)" "(unsafe-car" " lst_65))" -"((rest_224)" +"((rest_225)" "(unsafe-cdr" " lst_65))" "((val_86)" "(unsafe-car" -" lst_388))" -"((rest_225)" -"(unsafe-cdr" -" lst_388))" -"((id_127)" -"(unsafe-car" " lst_389))" +"((rest_226)" +"(unsafe-cdr" +" lst_389))" +"((id_128)" +"(unsafe-car" +" lst_390))" "((rest_30)" "(unsafe-cdr" -" lst_389)))" +" lst_390)))" "(let-values(((env_41)" "(let-values(((env_42)" " env_40))" @@ -66158,8 +66286,8 @@ static const char *startup_source = "(begin" "(maybe-install-free=id-in-context!" " val_86" -" id_127" -" phase_148" +" id_128" +" phase_149" " ctx_84)" "(env-extend" " env_42" @@ -66169,32 +66297,32 @@ static const char *startup_source = " env_43)))))" "(if(not" " #f)" -"(for-loop_308" +"(for-loop_311" " env_41" -" rest_224" " rest_225" +" rest_226" " rest_30)" " env_41)))" " env_40)))))" -" for-loop_308)" +" for-loop_311)" " env_38" -" lst_385" " lst_386" -" lst_387))))))" +" lst_387" +" lst_388))))))" "(values" " env_39)))))" "(if(not #f)" "(for-loop_84" " env_37" -" rest_221" " rest_222" -" rest_223)" +" rest_223" +" rest_224)" " env_37)))" " env_36)))))" " for-loop_84)" " rec-val-env_0" -" lst_381" " lst_382" +" lst_383" " lst_60)))))" "(let-values(((expr-ctx_0)" "(as-expression-context ctx_84)))" @@ -66203,9 +66331,9 @@ static const char *startup_source = " expr-ctx_0)))" "(let-values(((rec-ctx_0)" "(let-values(((v_260) expr-ctx_0))" -"(let-values(((the-struct_93) v_260))" +"(let-values(((the-struct_92) v_260))" "(if(expand-context/outer?" -" the-struct_93)" +" the-struct_92)" "(let-values(((env185_0)" " rec-env_0)" "((scopes186_0)" @@ -66232,44 +66360,44 @@ static const char *startup_source = "(expand-context/outer1.1" " inner189_0" "(root-expand-context/outer-post-expansion-scope" -" the-struct_93)" +" the-struct_92)" "(root-expand-context/outer-use-site-scopes" -" the-struct_93)" +" the-struct_92)" "(root-expand-context/outer-frame-id" -" the-struct_93)" +" the-struct_92)" "(expand-context/outer-context" -" the-struct_93)" +" the-struct_92)" " env185_0" "(expand-context/outer-post-expansion-scope-action" -" the-struct_93)" +" the-struct_92)" " scopes186_0" "(expand-context/outer-def-ctx-scopes" -" the-struct_93)" +" the-struct_92)" " binding-layer188_0" " reference-records187_0" "(expand-context/outer-only-immediate?" -" the-struct_93)" +" the-struct_92)" "(expand-context/outer-need-eventually-defined" -" the-struct_93)" +" the-struct_92)" "(expand-context/outer-current-introduction-scopes" -" the-struct_93)" +" the-struct_92)" "(expand-context/outer-name" -" the-struct_93)))" +" the-struct_92)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_93))))))" +" the-struct_92))))))" "(let-values(((letrec-values-id_0)" "(if(not" "(expand-context-to-parsed?" " ctx_84))" "(if syntaxes?_0" -"(core-id 'letrec-values phase_148)" +"(core-id 'letrec-values phase_149)" " let-values128_0)" " #f)))" "(let-values(((rebuild-s_6)" "(let-values(((ctx190_0) ctx_84)" -"((s191_0) s_318)" +"((s191_0) s_319)" "((temp192_1) #t))" "(keep-as-needed85.1" " #f" @@ -66284,36 +66412,36 @@ static const char *startup_source = "(if(expand-context-to-parsed?" " ctx_84)" "(reverse$1" -"(let-values(((lst_390)" +"(let-values(((lst_391)" " val-idss_3))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" -"(check-list lst_390)))" -"((letrec-values(((for-loop_309)" -"(lambda(fold-var_361" -" lst_391)" +"(check-list lst_391)))" +"((letrec-values(((for-loop_312)" +"(lambda(fold-var_363" +" lst_392)" "(begin" " 'for-loop" "(if(pair?" -" lst_391)" +" lst_392)" "(let-values(((val-ids_1)" "(unsafe-car" -" lst_391))" -"((rest_226)" +" lst_392))" +"((rest_227)" "(unsafe-cdr" -" lst_391)))" -"(let-values(((fold-var_362)" -"(let-values(((fold-var_363)" -" fold-var_361))" +" lst_392)))" "(let-values(((fold-var_364)" +"(let-values(((fold-var_365)" +" fold-var_363))" +"(let-values(((fold-var_366)" "(let-values()" "(cons" "(let-values()" "(reverse$1" -"(let-values(((lst_260)" +"(let-values(((lst_262)" " val-ids_1))" "(begin" "(if(variable-reference-from-unsafe?" @@ -66321,9 +66449,9 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_260)))" -"((letrec-values(((for-loop_225)" -"(lambda(fold-var_365" +" lst_262)))" +"((letrec-values(((for-loop_226)" +"(lambda(fold-var_367" " lst_120)" "(begin" " 'for-loop" @@ -66335,10 +66463,10 @@ static const char *startup_source = "((rest_59)" "(unsafe-cdr" " lst_120)))" -"(let-values(((fold-var_366)" -"(let-values(((fold-var_367)" -" fold-var_365))" "(let-values(((fold-var_368)" +"(let-values(((fold-var_369)" +" fold-var_367))" +"(let-values(((fold-var_370)" "(let-values()" "(cons" "(let-values()" @@ -66348,32 +66476,32 @@ static const char *startup_source = " val-id_0)" " val-id_0" " val-id_0))" -" fold-var_367))))" +" fold-var_369))))" "(values" -" fold-var_368)))))" +" fold-var_370)))))" "(if(not" " #f)" -"(for-loop_225" -" fold-var_366" +"(for-loop_226" +" fold-var_368" " rest_59)" -" fold-var_366)))" -" fold-var_365)))))" -" for-loop_225)" +" fold-var_368)))" +" fold-var_367)))))" +" for-loop_226)" " null" -" lst_260)))))" -" fold-var_363))))" +" lst_262)))))" +" fold-var_365))))" "(values" -" fold-var_364)))))" +" fold-var_366)))))" "(if(not" " #f)" -"(for-loop_309" -" fold-var_362" -" rest_226)" -" fold-var_362)))" -" fold-var_361)))))" -" for-loop_309)" +"(for-loop_312" +" fold-var_364" +" rest_227)" +" fold-var_364)))" +" fold-var_363)))))" +" for-loop_312)" " null" -" lst_390))))" +" lst_391))))" " val-idss_3)))" "(let-values((()" "(begin" @@ -66418,10 +66546,10 @@ static const char *startup_source = "(let-values(((body-ctx_5)" "(let-values(((v_261)" " rec-ctx_0))" -"(let-values(((the-struct_94)" +"(let-values(((the-struct_93)" " v_261))" "(if(expand-context/outer?" -" the-struct_94)" +" the-struct_93)" "(let-values(((reference-records196_0)" " orig-rrs_0)" "((inner197_0)" @@ -66430,36 +66558,36 @@ static const char *startup_source = "(expand-context/outer1.1" " inner197_0" "(root-expand-context/outer-post-expansion-scope" -" the-struct_94)" +" the-struct_93)" "(root-expand-context/outer-use-site-scopes" -" the-struct_94)" +" the-struct_93)" "(root-expand-context/outer-frame-id" -" the-struct_94)" +" the-struct_93)" "(expand-context/outer-context" -" the-struct_94)" +" the-struct_93)" "(expand-context/outer-env" -" the-struct_94)" +" the-struct_93)" "(expand-context/outer-post-expansion-scope-action" -" the-struct_94)" +" the-struct_93)" "(expand-context/outer-scopes" -" the-struct_94)" +" the-struct_93)" "(expand-context/outer-def-ctx-scopes" -" the-struct_94)" +" the-struct_93)" "(expand-context/outer-binding-layer" -" the-struct_94)" +" the-struct_93)" " reference-records196_0" "(expand-context/outer-only-immediate?" -" the-struct_94)" +" the-struct_93)" "(expand-context/outer-need-eventually-defined" -" the-struct_94)" +" the-struct_93)" "(expand-context/outer-current-introduction-scopes" -" the-struct_94)" +" the-struct_93)" "(expand-context/outer-name" -" the-struct_94)))" +" the-struct_93)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_94))))))" +" the-struct_93))))))" "(let-values(((bodys193_0)" " bodys_10)" "((temp194_0)" @@ -66484,13 +66612,13 @@ static const char *startup_source = "(let-values()" "(let-values(((clauses_2)" "(reverse$1" -"(let-values(((lst_392)" +"(let-values(((lst_393)" " val-name-idss_0)" "((lst_140)" " val-keyss_2)" -"((lst_393)" -" val-rhss_3)" "((lst_394)" +" val-rhss_3)" +"((lst_395)" " val-clauses_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -66498,72 +66626,72 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_392)))" -"(if(variable-reference-from-unsafe?" -"(#%variable-reference))" -"(void)" -"(let-values()" -"(check-list" -" lst_140)))" -"(if(variable-reference-from-unsafe?" -"(#%variable-reference))" -"(void)" -"(let-values()" -"(check-list" " lst_393)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" +" lst_140)))" +"(if(variable-reference-from-unsafe?" +"(#%variable-reference))" +"(void)" +"(let-values()" +"(check-list" " lst_394)))" -"((letrec-values(((for-loop_310)" -"(lambda(fold-var_137" -" lst_395" +"(if(variable-reference-from-unsafe?" +"(#%variable-reference))" +"(void)" +"(let-values()" +"(check-list" +" lst_395)))" +"((letrec-values(((for-loop_313)" +"(lambda(fold-var_138" " lst_396" " lst_397" -" lst_398)" +" lst_398" +" lst_399)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_395)" -"(if(pair?" " lst_396)" "(if(pair?" " lst_397)" -"(pair?" +"(if(pair?" " lst_398)" +"(pair?" +" lst_399)" " #f)" " #f)" " #f)" "(let-values(((ids_42)" "(unsafe-car" -" lst_395))" -"((rest_227)" -"(unsafe-cdr" -" lst_395))" -"((keys_12)" -"(unsafe-car" " lst_396))" "((rest_228)" "(unsafe-cdr" " lst_396))" -"((rhs_21)" +"((keys_12)" "(unsafe-car" " lst_397))" -"((rest_31)" -"(unsafe-cdr" -" lst_397))" -"((clause_4)" -"(unsafe-car" -" lst_398))" "((rest_229)" "(unsafe-cdr" -" lst_398)))" -"(let-values(((fold-var_369)" -"(let-values(((fold-var_370)" -" fold-var_137))" +" lst_397))" +"((rhs_21)" +"(unsafe-car" +" lst_398))" +"((rest_31)" +"(unsafe-cdr" +" lst_398))" +"((clause_4)" +"(unsafe-car" +" lst_399))" +"((rest_230)" +"(unsafe-cdr" +" lst_399)))" "(let-values(((fold-var_371)" +"(let-values(((fold-var_372)" +" fold-var_138))" +"(let-values(((fold-var_373)" "(let-values()" "(cons" "(let-values()" @@ -66610,25 +66738,25 @@ static const char *startup_source = " exp-rhs_4)" " clause_4" " clause_4)))))" -" fold-var_370))))" +" fold-var_372))))" "(values" -" fold-var_371)))))" +" fold-var_373)))))" "(if(not" " #f)" -"(for-loop_310" -" fold-var_369" -" rest_227" +"(for-loop_313" +" fold-var_371" " rest_228" +" rest_229" " rest_31" -" rest_229)" -" fold-var_369)))" -" fold-var_137)))))" -" for-loop_310)" +" rest_230)" +" fold-var_371)))" +" fold-var_138)))))" +" for-loop_313)" " null" -" lst_392" -" lst_140" " lst_393" -" lst_394))))))" +" lst_140" +" lst_394" +" lst_395))))))" "(let-values(((exp-body_4)" "(get-body_1)))" "(begin" @@ -66709,25 +66837,25 @@ static const char *startup_source = "(let-values(((vals+body_0)" "(cons" "(reverse$1" -"(let-values(((lst_399) val-idss_4)((lst_400) val-rhss_4))" +"(let-values(((lst_400) val-idss_4)((lst_401) val-rhss_4))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_399)))" -"(if(variable-reference-from-unsafe?(#%variable-reference))" -"(void)" "(let-values()(check-list lst_400)))" -"((letrec-values(((for-loop_311)" -"(lambda(fold-var_372 lst_401 lst_402)" +"(if(variable-reference-from-unsafe?(#%variable-reference))" +"(void)" +"(let-values()(check-list lst_401)))" +"((letrec-values(((for-loop_314)" +"(lambda(fold-var_374 lst_402 lst_403)" "(begin" " 'for-loop" -"(if(if(pair? lst_401)(pair? lst_402) #f)" -"(let-values(((val-ids_2)(unsafe-car lst_401))" -"((rest_230)(unsafe-cdr lst_401))" -"((val-rhs_11)(unsafe-car lst_402))" -"((rest_231)(unsafe-cdr lst_402)))" -"(let-values(((fold-var_373)" -"(let-values(((fold-var_374) fold-var_372))" +"(if(if(pair? lst_402)(pair? lst_403) #f)" +"(let-values(((val-ids_2)(unsafe-car lst_402))" +"((rest_231)(unsafe-cdr lst_402))" +"((val-rhs_11)(unsafe-car lst_403))" +"((rest_232)(unsafe-cdr lst_403)))" +"(let-values(((fold-var_375)" +"(let-values(((fold-var_376) fold-var_374))" "(let-values(((fold-var_51)" "(let-values()" "(cons" @@ -66735,16 +66863,16 @@ static const char *startup_source = "(datum->syntax$1" " #f" "(list val-ids_2 val-rhs_11)))" -" fold-var_374))))" +" fold-var_376))))" "(values fold-var_51)))))" "(if(not #f)" -"(for-loop_311 fold-var_373 rest_230 rest_231)" -" fold-var_373)))" -" fold-var_372)))))" -" for-loop_311)" +"(for-loop_314 fold-var_375 rest_231 rest_232)" +" fold-var_375)))" +" fold-var_374)))))" +" for-loop_314)" " null" -" lst_399" -" lst_400))))" +" lst_400" +" lst_401))))" "(datum->syntax$1 #f bodys_11))))" "(call-expand-observe" " obs_95" @@ -66753,25 +66881,25 @@ static const char *startup_source = " vals+body_0" "(cons" "(reverse$1" -"(let-values(((lst_71) trans-idss_3)((lst_403) trans-rhss_0))" +"(let-values(((lst_71) trans-idss_3)((lst_404) trans-rhss_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_71)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_403)))" -"((letrec-values(((for-loop_312)" -"(lambda(fold-var_52 lst_404 lst_405)" +"(let-values()(check-list lst_404)))" +"((letrec-values(((for-loop_315)" +"(lambda(fold-var_52 lst_405 lst_406)" "(begin" " 'for-loop" -"(if(if(pair? lst_404)(pair? lst_405) #f)" -"(let-values(((trans-ids_0)(unsafe-car lst_404))" -"((rest_232)(unsafe-cdr lst_404))" -"((trans-rhs_5)(unsafe-car lst_405))" -"((rest_233)(unsafe-cdr lst_405)))" -"(let-values(((fold-var_375)" -"(let-values(((fold-var_376) fold-var_52))" +"(if(if(pair? lst_405)(pair? lst_406) #f)" +"(let-values(((trans-ids_0)(unsafe-car lst_405))" +"((rest_233)(unsafe-cdr lst_405))" +"((trans-rhs_5)(unsafe-car lst_406))" +"((rest_234)(unsafe-cdr lst_406)))" +"(let-values(((fold-var_377)" +"(let-values(((fold-var_378) fold-var_52))" "(let-values(((fold-var_56)" "(let-values()" "(cons" @@ -66781,14 +66909,14 @@ static const char *startup_source = "(list" " trans-ids_0" "(add-scope trans-rhs_5 sc_38))))" -" fold-var_376))))" +" fold-var_378))))" "(values fold-var_56)))))" -"(if(not #f)(for-loop_312 fold-var_375 rest_232 rest_233) fold-var_375)))" +"(if(not #f)(for-loop_315 fold-var_377 rest_233 rest_234) fold-var_377)))" " fold-var_52)))))" -" for-loop_312)" +" for-loop_315)" " null" " lst_71" -" lst_403))))" +" lst_404))))" " vals+body_0)))))))" "(define-values" "(log-letrec-values)" @@ -66903,10 +67031,10 @@ static const char *startup_source = " (raise-syntax-error$1 '#%datum \"keyword misused as an expression\" #f datum_2))" "(void))" "(values))))" -"(let-values(((phase_149)(expand-context-phase ctx_86)))" +"(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_530)(syntax->datum$1 datum_2))" -"(let-values(((s240_0) s_530)((temp241_1)(list(core-id 'quote phase_149) datum_2)))" +"(let-values(((s240_0) s_530)((temp241_1)(list(core-id 'quote phase_150) datum_2)))" "(rebuild5.1 #f #f s240_0 temp241_1))))))))))))" "(void" "(add-core-form!*" @@ -66942,10 +67070,10 @@ static const char *startup_source = "(let-values(((es_3) e243_0))" "(if(null? es_3)" "(let-values()" -"(let-values(((phase_150)(expand-context-phase ctx_87)))" +"(let-values(((phase_151)(expand-context-phase ctx_87)))" "(if(expand-context-to-parsed? ctx_87)" "(parsed-quote14.1(keep-properties-only~ s_535) null)" -"(let-values(((s246_0) s_535)((temp247_0)(list(core-id 'quote phase_150) null)))" +"(let-values(((s246_0) s_535)((temp247_0)(list(core-id 'quote phase_151) null)))" "(rebuild5.1 #f #f s246_0 temp247_0)))))" "(let-values()" "(let-values(((keep-for-parsed?_1)(eq?(system-type 'vm) 'chez-scheme)))" @@ -66991,23 +67119,23 @@ static const char *startup_source = "(expand7.1 #f #f #f #f temp254_0 expr-ctx255_0))))" "(let-values(((exp-es_0)" "(reverse$1" -"(let-values(((lst_406) rest-es_0))" +"(let-values(((lst_407) rest-es_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_406)))" -"((letrec-values(((for-loop_313)" -"(lambda(fold-var_377 lst_407)" +"(let-values()(check-list lst_407)))" +"((letrec-values(((for-loop_316)" +"(lambda(fold-var_379 lst_408)" "(begin" " 'for-loop" -"(if(pair? lst_407)" -"(let-values(((e_92)(unsafe-car lst_407))" -"((rest_234)" -"(unsafe-cdr lst_407)))" -"(let-values(((fold-var_378)" -"(let-values(((fold-var_379)" -" fold-var_377))" +"(if(pair? lst_408)" +"(let-values(((e_93)(unsafe-car lst_408))" +"((rest_235)" +"(unsafe-cdr lst_408)))" "(let-values(((fold-var_380)" +"(let-values(((fold-var_381)" +" fold-var_379))" +"(let-values(((fold-var_382)" "(let-values()" "(cons" "(let-values()" @@ -67023,7 +67151,7 @@ static const char *startup_source = " 'next)))" "(void)))" "(let-values(((e256_0)" -" e_92)" +" e_93)" "((expr-ctx257_0)" " expr-ctx_1))" "(expand7.1" @@ -67033,21 +67161,21 @@ static const char *startup_source = " #f" " e256_0" " expr-ctx257_0))))" -" fold-var_379))))" +" fold-var_381))))" "(values" -" fold-var_380)))))" +" fold-var_382)))))" "(if(not #f)" -"(for-loop_313 fold-var_378 rest_234)" -" fold-var_378)))" -" fold-var_377)))))" -" for-loop_313)" +"(for-loop_316 fold-var_380 rest_235)" +" fold-var_380)))" +" fold-var_379)))))" +" for-loop_316)" " null" -" lst_406))))))" +" lst_407))))))" "(if(expand-context-to-parsed? ctx_87)" "(let-values()" "(parsed-app7.1" -"(let-values(((or-part_373) rebuild-prefixless_0))" -"(if or-part_373 or-part_373 rebuild-s_8))" +"(let-values(((or-part_374) rebuild-prefixless_0))" +"(if or-part_374 or-part_374 rebuild-s_8))" " exp-rator_0" " exp-es_0))" "(let-values()" @@ -67787,8 +67915,8 @@ static const char *startup_source = "(make-begin20.1 temp366_0 temp365_0 temp363_0 parsed-begin364_0))))" "(lambda(s_640 ctx_93)" "(let-values(((context_24)(expand-context-context ctx_93)))" -"(if(let-values(((or-part_374)(eq? context_24 'top-level)))" -"(if or-part_374 or-part_374(eq? context_24 'module)))" +"(if(let-values(((or-part_375)(eq? context_24 'top-level)))" +"(if or-part_375 or-part_375(eq? context_24 'module)))" "(let-values()" "(let-values(((disarmed-s_16)(syntax-disarm$1 s_640)))" "(let-values(((ok?_52 begin367_0)" @@ -67825,7 +67953,7 @@ static const char *startup_source = "(make-begin20.1 temp372_0 temp371_0 temp369_0 parsed-begin0370_0))))" "(define-values" "(register-eventual-variable!?)" -"(lambda(id_128 ctx_94)" +"(lambda(id_129 ctx_94)" "(begin" "(if(if(expand-context-need-eventually-defined ctx_94)(>=(expand-context-phase ctx_94) 1) #f)" "(let-values()" @@ -67833,7 +67961,7 @@ static const char *startup_source = "(hash-update!" "(expand-context-need-eventually-defined ctx_94)" "(expand-context-phase ctx_94)" -"(lambda(l_82)(cons id_128 l_82))" +"(lambda(l_82)(cons id_129 l_82))" " null)" " #t))" "(let-values() #f)))))" @@ -67857,7 +67985,7 @@ static const char *startup_source = "(void)))" "(values))))" "(let-values(((disarmed-s_17)(syntax-disarm$1 s_650)))" -"(let-values(((id_129)" +"(let-values(((id_130)" "(if implicit-omitted?_0" "(let-values() s_650)" "(let-values()" @@ -67879,15 +68007,15 @@ static const char *startup_source = "(let-values(((s_654)" "(cdr" " s_652)))" -"(if(let-values(((or-part_375)" +"(if(let-values(((or-part_376)" "(if(syntax?$1" " s_654)" "(symbol?" "(syntax-e$1" " s_654))" " #f)))" -"(if or-part_375" -" or-part_375" +"(if or-part_376" +" or-part_376" "(symbol?" " s_654)))" " s_654" @@ -67903,8 +68031,8 @@ static const char *startup_source = " orig-s_58)))))" "(values #t #%top379_1 id380_1))))))" " id380_0)))))" -"(let-values(((b_91)" -"(let-values(((id383_0) id_129)" +"(let-values(((b_92)" +"(let-values(((id383_0) id_130)" "((temp384_0)(expand-context-phase ctx_95))" "((temp385_0) 'ambiguous))" "(resolve+shift30.1" @@ -67920,38 +68048,38 @@ static const char *startup_source = " #f" " id383_0" " temp384_0))))" -"(if(eq? b_91 'ambiguous)" -"(let-values()(raise-ambiguous-error id_129 ctx_95))" -"(if(if b_91" -"(if(module-binding? b_91)" -"(eq?(module-binding-module b_91)(root-expand-context-self-mpi ctx_95))" +"(if(eq? b_92 'ambiguous)" +"(let-values()(raise-ambiguous-error id_130 ctx_95))" +"(if(if b_92" +"(if(module-binding? b_92)" +"(eq?(module-binding-module b_92)(root-expand-context-self-mpi ctx_95))" " #f)" " #f)" "(let-values()" "(if(expand-context-to-parsed? ctx_95)" -"(parsed-id2.1 id_129 b_91 #f)" -"(if(top-level-module-path-index?(module-binding-module b_91))" +"(parsed-id2.1 id_130 b_92 #f)" +"(if(top-level-module-path-index?(module-binding-module b_92))" "(let-values() s_650)" -"(let-values() id_129))))" -"(if(register-eventual-variable!? id_129 ctx_95)" +"(let-values() id_130))))" +"(if(register-eventual-variable!? id_130 ctx_95)" "(let-values()" "(if(expand-context-to-parsed? ctx_95)" -"(parsed-id2.1 id_129 b_91 #f)" -" id_129))" +"(parsed-id2.1 id_130 b_92 #f)" +" id_130))" "(let-values()" "(if(not(expand-context-allow-unbound? ctx_95))" "(let-values()" "(raise-unbound-syntax-error" " #f" " \"unbound identifier\"" -" id_129" +" id_130" " #f" " null" -"(syntax-debug-info-string id_129 ctx_95)))" +"(syntax-debug-info-string id_130 ctx_95)))" "(let-values()" "(let-values(((tl-id_1)" "(add-scope" -" id_129" +" id_130" "(root-expand-context-top-level-bind-scope ctx_95))))" "(let-values(((tl-b_1)" "(let-values(((tl-id386_0) tl-id_1)" @@ -67973,7 +68101,7 @@ static const char *startup_source = "(if(expand-context-to-parsed? ctx_95)" "(parsed-top-id4.1 tl-id_1 tl-b_1 #f)" "(if implicit-omitted?_0" -"(let-values() id_129)" +"(let-values() id_130)" "(let-values()" "(let-values(((ok?_54 #%top388_0 id389_0)" "(let-values(((s_655) disarmed-s_17))" @@ -67995,15 +68123,15 @@ static const char *startup_source = "(let-values(((s_658)" "(cdr" " s_656)))" -"(if(let-values(((or-part_376)" +"(if(let-values(((or-part_377)" "(if(syntax?$1" " s_658)" "(symbol?" "(syntax-e$1" " s_658))" " #f)))" -"(if or-part_376" -" or-part_376" +"(if or-part_377" +" or-part_377" "(symbol?" " s_658)))" " s_658" @@ -68021,11 +68149,11 @@ static const char *startup_source = " orig-s_59)))))" "(values #t #%top388_1 id389_1))))))" "(let-values(((s392_0) s_650)" -"((temp393_0)(cons #%top388_0 id_129)))" +"((temp393_0)(cons #%top388_0 id_130)))" "(rebuild5.1 #f #f s392_0 temp393_0)))))))" "(let-values()" "(if(expand-context-to-parsed? ctx_95)" -"(parsed-top-id4.1 id_129 b_91 #f)" +"(parsed-top-id4.1 id_130 b_92 #f)" " s_650)))))))))))))))))))))))" "(case-lambda" "((s_659 ctx_96)(core377_0 s_659 ctx_96 #f #f))" @@ -68056,14 +68184,14 @@ static const char *startup_source = "(if(pair? s_666)" "(let-values(((id400_0)" "(let-values(((s_667)(car s_666)))" -"(if(let-values(((or-part_377)" +"(if(let-values(((or-part_378)" "(if(syntax?$1 s_667)" "(symbol?" "(syntax-e$1" " s_667))" " #f)))" -"(if or-part_377" -" or-part_377" +"(if or-part_378" +" or-part_378" "(symbol? s_667)))" " s_667" "(raise-syntax-error$1" @@ -68111,11 +68239,11 @@ static const char *startup_source = "(values #t set!394_1 id395_1 rhs396_1))))))" "(let-values(((orig-id_1) id395_0))" "((letrec-values(((rename-loop_0)" -"(lambda(id_130 from-rename?_0)" +"(lambda(id_131 from-rename?_0)" "(begin" " 'rename-loop" "(let-values(((binding_30)" -"(let-values(((id403_0) id_130)" +"(let-values(((id403_0) id_131)" "((temp404_0)(expand-context-phase ctx_98))" "((temp405_0) 'ambiguous)" "((temp406_0) #t))" @@ -68135,7 +68263,7 @@ static const char *startup_source = "(let-values((()" "(begin" "(if(eq? binding_30 'ambiguous)" -"(let-values()(raise-ambiguous-error id_130 ctx_98))" +"(let-values()(raise-ambiguous-error id_131 ctx_98))" "(void))" "(values))))" "(let-values(((t_60 primitive?_11 insp_24 protected?_12)" @@ -68149,16 +68277,16 @@ static const char *startup_source = "(let-values(((obs_117)(expand-context-observer ctx_98)))" "(if obs_117" "(let-values()" -"(let-values()(call-expand-observe obs_117 'resolve id_130)))" +"(let-values()(call-expand-observe obs_117 'resolve id_131)))" "(void)))" -"(if(let-values(((or-part_378)(variable? t_60)))" -"(if or-part_378" -" or-part_378" -"(if(not binding_30)" -"(let-values(((or-part_379)" -"(register-eventual-variable!? id_130 ctx_98)))" +"(if(let-values(((or-part_379)(variable? t_60)))" "(if or-part_379" " or-part_379" +"(if(not binding_30)" +"(let-values(((or-part_380)" +"(register-eventual-variable!? id_131 ctx_98)))" +"(if or-part_380" +" or-part_380" "(expand-context-allow-unbound? ctx_98)))" " #f)))" "(let-values()" @@ -68175,7 +68303,7 @@ static const char *startup_source = " #f" " \"cannot mutate module-required identifier\"" " s_661" -" id_130))" +" id_131))" "(void))" "(values))))" "(let-values((()" @@ -68211,13 +68339,13 @@ static const char *startup_source = "(if(expand-context-to-parsed? ctx_98)" "(parsed-set!9.1" " rebuild-s_12" -"(parsed-id2.1 id_130 binding_30 #f)" +"(parsed-id2.1 id_131 binding_30 #f)" " exp-rhs_5)" "(let-values(((rebuild-s414_0) rebuild-s_12)" "((temp415_0)" "(list" " set!394_0" -"(let-values(((id416_0) id_130)" +"(let-values(((id416_0) id_131)" "((t417_0) t_60)" "((temp418_0)" "(free-id-set-empty-or-just-module*?" @@ -68235,9 +68363,9 @@ static const char *startup_source = " #f" " \"unbound identifier\"" " s_661" -" id_130" +" id_131" " null" -"(syntax-debug-info-string id_130 ctx_98)))" +"(syntax-debug-info-string id_131 ctx_98)))" "(if(1/set!-transformer? t_60)" "(let-values()" "(if(not-in-this-expand-context? t_60 ctx_98)" @@ -68249,7 +68377,7 @@ static const char *startup_source = " disarmed-s_18" " set!394_0" " rhs396_0" -" id_130" +" id_131" " from-rename?_0" " ctx_98)" " t_60" @@ -68291,7 +68419,7 @@ static const char *startup_source = " disarmed-s_18" " set!394_0" " rhs396_0" -" id_130" +" id_131" " from-rename?_0" " ctx_98" " t_60)" @@ -68303,15 +68431,15 @@ static const char *startup_source = "(rename-loop_0" "(syntax-track-origin$1" "(rename-transformer-target-in-context t_60 ctx_98)" -" id_130" -" id_130)" +" id_131" +" id_131)" " #t))))" "(let-values()" "(raise-syntax-error$1" " #f" " \"cannot mutate syntax identifier\"" " s_661" -" id_130))))))))))))))" +" id_131))))))))))))))" " rename-loop_0)" " orig-id_1" " #f))))))))" @@ -68324,19 +68452,19 @@ static const char *startup_source = "(let-values(((s_673) s25_0))" "(let-values(((disarmed-s_19) disarmed-s26_0))" "(let-values(((set!-id_0) set!-id27_0))" -"(let-values(((id_131) id28_0))" +"(let-values(((id_132) 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)))" "(let-values()" -"(if(let-values(((or-part_380) t_61))" -"(if or-part_380 or-part_380 from-rename?_1))" +"(if(let-values(((or-part_381) t_61))" +"(if or-part_381 or-part_381 from-rename?_1))" "(let-values()" "(let-values(((new-id_1)" "(if t_61" "(rename-transformer-target-in-context t_61 ctx_99)" -" id_131)))" +" id_132)))" "(syntax-rearm$1" "(datum->syntax$1" " disarmed-s_19" @@ -68346,10 +68474,10 @@ static const char *startup_source = " s_673)))" "(let-values() s_673)))))))))))))))" "(case-lambda" -"((s_674 disarmed-s_20 set!-id_1 id_132 rhs-s_1 from-rename?_2 ctx_100)" -"(begin(substitute-set!-rename32_0 s_674 disarmed-s_20 set!-id_1 id_132 rhs-s_1 from-rename?_2 ctx_100 #f #f)))" -"((s_675 disarmed-s_21 set!-id_2 id_133 rhs-s_2 from-rename?_3 ctx_101 t23_1)" -"(substitute-set!-rename32_0 s_675 disarmed-s_21 set!-id_2 id_133 rhs-s_2 from-rename?_3 ctx_101 t23_1 #t)))))" +"((s_674 disarmed-s_20 set!-id_1 id_133 rhs-s_1 from-rename?_2 ctx_100)" +"(begin(substitute-set!-rename32_0 s_674 disarmed-s_20 set!-id_1 id_133 rhs-s_1 from-rename?_2 ctx_100 #f #f)))" +"((s_675 disarmed-s_21 set!-id_2 id_134 rhs-s_2 from-rename?_3 ctx_101 t23_1)" +"(substitute-set!-rename32_0 s_675 disarmed-s_21 set!-id_2 id_134 rhs-s_2 from-rename?_3 ctx_101 t23_1 #t)))))" "(void" "(add-core-form!*" " '#%variable-reference" @@ -68371,9 +68499,9 @@ static const char *startup_source = "(let-values(((s_681)(if(syntax?$1 s_680)(syntax-e$1 s_680) s_680)))" "(if(pair? s_681)" "(if(let-values(((s_682)(car s_681)))" -"(let-values(((or-part_381)" +"(let-values(((or-part_382)" "(if(syntax?$1 s_682)(symbol?(syntax-e$1 s_682)) #f)))" -"(if or-part_381 or-part_381(symbol? s_682))))" +"(if or-part_382 or-part_382(symbol? s_682))))" "(let-values(((s_683)(cdr s_681)))" "(let-values(((s_684)(if(syntax?$1 s_683)(syntax-e$1 s_683) s_683)))" "(null? s_684)))" @@ -68420,11 +68548,11 @@ static const char *startup_source = "(if(pair? s_698)" "(if(let-values(((s_699)(car s_698))) #t)" "(let-values(((s_700)(cdr s_698)))" -"(let-values(((or-part_382)" +"(let-values(((or-part_383)" "(if(syntax?$1 s_700)" "(symbol?(syntax-e$1 s_700))" " #f)))" -"(if or-part_382 or-part_382(symbol? s_700))))" +"(if or-part_383 or-part_383(symbol? s_700))))" " #f)" " #f)))" "(let-values(((s_701)(cdr s_696)))" @@ -68476,7 +68604,7 @@ static const char *startup_source = "(values #f #f #f #f)))))" "(let-values(((ok?_58 #%variable-reference447_0)" "(let-values(((s_713) disarmed-s_22))" -"(if(if(not(let-values(((or-part_383) ok?_56))(if or-part_383 or-part_383 ok?_57)))" +"(if(if(not(let-values(((or-part_384) ok?_56))(if or-part_384 or-part_384 ok?_57)))" " #t" " #f)" "(let-values(((orig-s_61) s_713))" @@ -68501,7 +68629,7 @@ static const char *startup_source = " (raise-syntax-error$1 #f \"bad syntax\" orig-s_61)))))" "(values #t #%variable-reference447_1)))" "(values #f #f)))))" -"(if(let-values(((or-part_384) ok?_56))(if or-part_384 or-part_384 ok?_57))" +"(if(let-values(((or-part_385) ok?_56))(if or-part_385 or-part_385 ok?_57))" "(let-values()" "(let-values(((var-id_0)(if ok?_56 id433_0 id439_0)))" "(let-values(((binding_31)" @@ -68517,8 +68645,8 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(if(let-values(((or-part_385) binding_31))" -"(if or-part_385 or-part_385(expand-context-allow-unbound? ctx_102)))" +"(if(let-values(((or-part_386) binding_31))" +"(if or-part_386 or-part_386(expand-context-allow-unbound? ctx_102)))" "(void)" "(let-values()" "(raise-unbound-syntax-error" @@ -68633,7 +68761,7 @@ static const char *startup_source = " (void (add-core-form!* 'unquote-splicing (lambda (s_728 ctx_105) (raise-syntax-error$1 #f \"not in quasiquote\" s_728))))" "(define-values" "(binding-for-transformer?)" -"(lambda(b_41 id_134 at-phase_12 ns_123)" +"(lambda(b_41 id_135 at-phase_12 ns_123)" "(begin" "(if(not at-phase_12)" "(let-values()" @@ -68652,14 +68780,14 @@ static const char *startup_source = "((null3_0) null)" "((ns4_1) ns_123)" "((at-phase5_0) at-phase_12)" -"((id6_0) id_134))" +"((id6_0) id_135))" "(binding-lookup50.1 #f #f #f #f b1_8 empty-env2_0 null3_0 ns4_1 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_63 rp_1 self_30 phase_44 ctx_106)" +"(lambda(specs_0 orig-s_63 rp_1 self_30 phase_46 ctx_106)" "(begin" "(let-values(((ns_125)(expand-context-namespace ctx_106)))" "((letrec-values(((loop_113)" @@ -68677,16 +68805,16 @@ static const char *startup_source = "((letrec-values(((for-loop_96)" "(lambda(track-stxes_1" " exp-specs_1" -" lst_408)" +" lst_409)" "(begin" " 'for-loop" -"(if(pair? lst_408)" +"(if(pair? lst_409)" "(let-values(((spec_0)" "(unsafe-car" -" lst_408))" -"((rest_235)" +" lst_409))" +"((rest_236)" "(unsafe-cdr" -" lst_408)))" +" lst_409)))" "(let-values(((track-stxes_2" " exp-specs_2)" "(let-values(((track-stxes_3)" @@ -68841,21 +68969,21 @@ static const char *startup_source = "(if(pair?" " s_301)" "(let-values(((for-meta6_0)" -"(let-values(((s_419)" +"(let-values(((s_420)" "(car" " s_301)))" -" s_419))" +" s_420))" "((phase-level7_0" " spec8_0)" -"(let-values(((s_78)" +"(let-values(((s_178)" "(cdr" " s_301)))" "(let-values(((s_729)" "(if(syntax?$1" -" s_78)" +" s_178)" "(syntax-e$1" -" s_78)" -" s_78)))" +" s_178)" +" s_178)))" "(if(pair?" " s_729)" "(let-values(((phase-level9_0)" @@ -68864,18 +68992,18 @@ static const char *startup_source = " s_729)))" " s_730))" "((spec10_0)" -"(let-values(((s_451)" +"(let-values(((s_452)" "(cdr" " s_729)))" -"(let-values(((s_457)" +"(let-values(((s_458)" "(if(syntax?$1" -" s_451)" +" s_452)" "(syntax-e$1" -" s_451)" -" s_451)))" +" s_452)" +" s_452)))" "(let-values(((flat-s_44)" "(to-syntax-list.1" -" s_457)))" +" s_458)))" "(if(not" " flat-s_44)" "(let-values()" @@ -68981,7 +69109,7 @@ static const char *startup_source = "(let-values(((s_25)" "(cdr" " s_23)))" -"(let-values(((s_731)" +"(let-values(((s_78)" "(if(syntax?$1" " s_25)" "(syntax-e$1" @@ -68989,7 +69117,7 @@ static const char *startup_source = " s_25)))" "(let-values(((flat-s_45)" "(to-syntax-list.1" -" s_731)))" +" s_78)))" "(if(not" " flat-s_45)" "(let-values()" @@ -69053,23 +69181,23 @@ static const char *startup_source = " s_45))" "(let-values(((for-label19_1" " spec20_1)" -"(let-values(((s_469)" +"(let-values(((s_470)" "(if(syntax?$1" " s_45)" "(syntax-e$1" " s_45)" " s_45)))" "(if(pair?" -" s_469)" +" s_470)" "(let-values(((for-label21_0)" -"(let-values(((s_466)" +"(let-values(((s_467)" "(car" -" s_469)))" -" s_466))" +" s_470)))" +" s_467))" "((spec22_0)" "(let-values(((s_46)" "(cdr" -" s_469)))" +" s_470)))" "(let-values(((s_302)" "(if(syntax?$1" " s_46)" @@ -69145,18 +69273,18 @@ static const char *startup_source = "(let-values(((ok?_63" " protect25_0" " p-spec26_0)" -"(let-values(((s_732)" +"(let-values(((s_731)" " disarmed-spec_0))" "(let-values(((orig-s_67)" -" s_732))" +" s_731))" "(let-values(((protect25_1" " p-spec26_1)" "(let-values(((s_31)" "(if(syntax?$1" -" s_732)" +" s_731)" "(syntax-e$1" -" s_732)" -" s_732)))" +" s_731)" +" s_731)))" "(if(pair?" " s_31)" "(let-values(((protect27_0)" @@ -69168,7 +69296,7 @@ static const char *startup_source = "(let-values(((s_304)" "(cdr" " s_31)))" -"(let-values(((s_472)" +"(let-values(((s_473)" "(if(syntax?$1" " s_304)" "(syntax-e$1" @@ -69176,7 +69304,7 @@ static const char *startup_source = " s_304)))" "(let-values(((flat-s_47)" "(to-syntax-list.1" -" s_472)))" +" s_473)))" "(if(not" " flat-s_47)" "(let-values()" @@ -69230,38 +69358,38 @@ static const char *startup_source = " rename31_0" " id:from32_0" " id:to33_0)" -"(let-values(((s_733)" +"(let-values(((s_732)" " disarmed-spec_0))" "(let-values(((orig-s_68)" -" s_733))" +" s_732))" "(let-values(((rename31_1" " id:from32_1" " id:to33_1)" -"(let-values(((s_474)" +"(let-values(((s_475)" +"(if(syntax?$1" +" s_732)" +"(syntax-e$1" +" s_732)" +" s_732)))" +"(if(pair?" +" s_475)" +"(let-values(((rename34_0)" +"(let-values(((s_309)" +"(car" +" s_475)))" +" s_309))" +"((id:from35_0" +" id:to36_0)" +"(let-values(((s_733)" +"(cdr" +" s_475)))" +"(let-values(((s_310)" "(if(syntax?$1" " s_733)" "(syntax-e$1" " s_733)" " s_733)))" "(if(pair?" -" s_474)" -"(let-values(((rename34_0)" -"(let-values(((s_309)" -"(car" -" s_474)))" -" s_309))" -"((id:from35_0" -" id:to36_0)" -"(let-values(((s_734)" -"(cdr" -" s_474)))" -"(let-values(((s_310)" -"(if(syntax?$1" -" s_734)" -"(syntax-e$1" -" s_734)" -" s_734)))" -"(if(pair?" " s_310)" "(let-values(((id:from37_0)" "(let-values(((s_33)" @@ -69285,48 +69413,48 @@ static const char *startup_source = " orig-s_68" " s_33))))" "((id:to38_0)" -"(let-values(((s_389)" +"(let-values(((s_390)" "(cdr" " s_310)))" -"(let-values(((s_735)" +"(let-values(((s_734)" "(if(syntax?$1" -" s_389)" +" s_390)" "(syntax-e$1" -" s_389)" -" s_389)))" +" s_390)" +" s_390)))" "(if(pair?" -" s_735)" +" s_734)" "(let-values(((id:to39_0)" -"(let-values(((s_424)" +"(let-values(((s_425)" "(car" -" s_735)))" +" s_734)))" "(if(let-values(((or-part_57)" "(if(syntax?$1" -" s_424)" +" s_425)" "(symbol?" "(syntax-e$1" -" s_424))" +" s_425))" " #f)))" "(if or-part_57" " or-part_57" "(symbol?" -" s_424)))" -" s_424" +" s_425)))" +" s_425" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_68" -" s_424))))" +" s_425))))" "(()" -"(let-values(((s_736)" +"(let-values(((s_735)" "(cdr" -" s_735)))" +" s_734)))" "(let-values(((s_57)" "(if(syntax?$1" -" s_736)" +" s_735)" "(syntax-e$1" -" s_736)" -" s_736)))" +" s_735)" +" s_735)))" "(if(null?" " s_57)" "(values)" @@ -69406,61 +69534,61 @@ static const char *startup_source = "(if(pair?" " s_491)" "(let-values(((struct43_0)" -"(let-values(((s_197)" +"(let-values(((s_198)" "(car" " s_491)))" -" s_197))" +" s_198))" "((id:struct44_0" " id:field45_0)" -"(let-values(((s_737)" +"(let-values(((s_736)" "(cdr" " s_491)))" -"(let-values(((s_738)" +"(let-values(((s_737)" "(if(syntax?$1" -" s_737)" +" s_736)" "(syntax-e$1" -" s_737)" -" s_737)))" +" s_736)" +" s_736)))" "(if(pair?" -" s_738)" +" s_737)" "(let-values(((id:struct46_0)" -"(let-values(((s_739)" +"(let-values(((s_738)" "(car" -" s_738)))" -"(if(let-values(((or-part_350)" +" s_737)))" +"(if(let-values(((or-part_352)" "(if(syntax?$1" -" s_739)" +" s_738)" "(symbol?" "(syntax-e$1" -" s_739))" +" s_738))" " #f)))" -"(if or-part_350" -" or-part_350" +"(if or-part_352" +" or-part_352" "(symbol?" -" s_739)))" -" s_739" +" s_738)))" +" s_738" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_69" -" s_739))))" +" s_738))))" "((id:field47_0)" -"(let-values(((s_740)" +"(let-values(((s_739)" "(cdr" -" s_738)))" +" s_737)))" "(let-values(((s_63)" "(if(syntax?$1" -" s_740)" +" s_739)" "(syntax-e$1" -" s_740)" -" s_740)))" +" s_739)" +" s_739)))" "(if(pair?" " s_63)" "(let-values(((id:field48_0)" "(let-values(((s_37)" "(car" " s_63)))" -"(let-values(((s_403)" +"(let-values(((s_404)" "(if(syntax?$1" " s_37)" "(syntax-e$1" @@ -69468,7 +69596,7 @@ static const char *startup_source = " s_37)))" "(let-values(((flat-s_48)" "(to-syntax-list.1" -" s_403)))" +" s_404)))" "(if(not" " flat-s_48)" "(let-values()" @@ -69478,7 +69606,7 @@ static const char *startup_source = " orig-s_69))" "(let-values()" "(let-values(((id:field_0)" -"(let-values(((lst_314)" +"(let-values(((lst_317)" " flat-s_48))" "(begin" "(if(variable-reference-from-unsafe?" @@ -69486,20 +69614,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_314)))" -"((letrec-values(((for-loop_275)" +" lst_317)))" +"((letrec-values(((for-loop_277)" "(lambda(id:field_1" -" lst_409)" +" lst_410)" "(begin" " 'for-loop" "(if(pair?" -" lst_409)" -"(let-values(((s_741)" +" lst_410)" +"(let-values(((s_740)" "(unsafe-car" -" lst_409))" -"((rest_236)" +" lst_410))" +"((rest_237)" "(unsafe-cdr" -" lst_409)))" +" lst_410)))" "(let-values(((id:field_2)" "(let-values(((id:field_3)" " id:field_1))" @@ -69507,23 +69635,23 @@ static const char *startup_source = "(let-values()" "(let-values(((id:field49_0)" "(let-values()" -"(if(let-values(((or-part_386)" +"(if(let-values(((or-part_387)" "(if(syntax?$1" -" s_741)" +" s_740)" "(symbol?" "(syntax-e$1" -" s_741))" +" s_740))" " #f)))" -"(if or-part_386" -" or-part_386" +"(if or-part_387" +" or-part_387" "(symbol?" -" s_741)))" -" s_741" +" s_740)))" +" s_740" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_69" -" s_741)))))" +" s_740)))))" "(cons" " id:field49_0" " id:field_3)))))" @@ -69531,28 +69659,28 @@ static const char *startup_source = " id:field_4)))))" "(if(not" " #f)" -"(for-loop_275" +"(for-loop_277" " id:field_2" -" rest_236)" +" rest_237)" " id:field_2)))" " id:field_1)))))" -" for-loop_275)" +" for-loop_277)" " null" -" lst_314)))))" +" lst_317)))))" "(reverse$1" " id:field_0))))))))" "(()" -"(let-values(((s_200)" +"(let-values(((s_201)" "(cdr" " s_63)))" -"(let-values(((s_742)" +"(let-values(((s_741)" "(if(syntax?$1" -" s_200)" +" s_201)" "(syntax-e$1" -" s_200)" -" s_200)))" +" s_201)" +" s_201)))" "(if(null?" -" s_742)" +" s_741)" "(values)" "(raise-syntax-error$1" " #f" @@ -69609,46 +69737,46 @@ static const char *startup_source = "(let-values(((ok?_66" " all-from50_0" " mod-path51_0)" -"(let-values(((s_743)" +"(let-values(((s_742)" " disarmed-spec_0))" "(let-values(((orig-s_70)" -" s_743))" +" s_742))" "(let-values(((all-from50_1" " mod-path51_1)" -"(let-values(((s_744)" +"(let-values(((s_743)" "(if(syntax?$1" -" s_743)" +" s_742)" "(syntax-e$1" -" s_743)" -" s_743)))" +" s_742)" +" s_742)))" "(if(pair?" -" s_744)" +" s_743)" "(let-values(((all-from52_0)" +"(let-values(((s_744)" +"(car" +" s_743)))" +" s_744))" +"((mod-path53_0)" +"(let-values(((s_204)" +"(cdr" +" s_743)))" +"(let-values(((s_205)" +"(if(syntax?$1" +" s_204)" +"(syntax-e$1" +" s_204)" +" s_204)))" +"(if(pair?" +" s_205)" +"(let-values(((mod-path54_0)" "(let-values(((s_745)" "(car" -" s_744)))" +" s_205)))" " s_745))" -"((mod-path53_0)" -"(let-values(((s_203)" -"(cdr" -" s_744)))" -"(let-values(((s_204)" -"(if(syntax?$1" -" s_203)" -"(syntax-e$1" -" s_203)" -" s_203)))" -"(if(pair?" -" s_204)" -"(let-values(((mod-path54_0)" -"(let-values(((s_746)" -"(car" -" s_204)))" -" s_746))" "(()" "(let-values(((s_92)" "(cdr" -" s_204)))" +" s_205)))" "(let-values(((s_315)" "(if(syntax?$1" " s_92)" @@ -69711,50 +69839,50 @@ static const char *startup_source = "(let-values(((all-from-except55_1" " mod-path56_1" " id57_1)" -"(let-values(((s_208)" +"(let-values(((s_209)" "(if(syntax?$1" " s_96)" "(syntax-e$1" " s_96)" " s_96)))" "(if(pair?" -" s_208)" +" s_209)" "(let-values(((all-from-except58_0)" -"(let-values(((s_408)" +"(let-values(((s_409)" "(car" -" s_208)))" -" s_408))" +" s_209)))" +" s_409))" "((mod-path59_0" " id60_0)" -"(let-values(((s_161)" +"(let-values(((s_162)" "(cdr" -" s_208)))" +" s_209)))" "(let-values(((s_478)" "(if(syntax?$1" -" s_161)" +" s_162)" "(syntax-e$1" -" s_161)" -" s_161)))" +" s_162)" +" s_162)))" "(if(pair?" " s_478)" "(let-values(((mod-path61_0)" -"(let-values(((s_747)" +"(let-values(((s_746)" "(car" " s_478)))" -" s_747))" +" s_746))" "((id62_0)" -"(let-values(((s_748)" +"(let-values(((s_747)" "(cdr" " s_478)))" -"(let-values(((s_749)" +"(let-values(((s_748)" "(if(syntax?$1" -" s_748)" +" s_747)" "(syntax-e$1" -" s_748)" -" s_748)))" +" s_747)" +" s_747)))" "(let-values(((flat-s_49)" "(to-syntax-list.1" -" s_749)))" +" s_748)))" "(if(not" " flat-s_49)" "(let-values()" @@ -69763,7 +69891,7 @@ static const char *startup_source = " \"bad syntax\"" " orig-s_71))" "(let-values()" -"(let-values(((id_135)" +"(let-values(((id_136)" "(let-values(((lst_43)" " flat-s_49))" "(begin" @@ -69786,22 +69914,22 @@ static const char *startup_source = "((rest_18)" "(unsafe-cdr" " lst_44)))" -"(let-values(((id_136)" "(let-values(((id_137)" -" id_68))" "(let-values(((id_138)" +" id_68))" +"(let-values(((id_139)" "(let-values()" "(let-values(((id63_0)" "(let-values()" -"(if(let-values(((or-part_387)" +"(if(let-values(((or-part_388)" "(if(syntax?$1" " s_481)" "(symbol?" "(syntax-e$1" " s_481))" " #f)))" -"(if or-part_387" -" or-part_387" +"(if or-part_388" +" or-part_388" "(symbol?" " s_481)))" " s_481" @@ -69812,21 +69940,21 @@ static const char *startup_source = " s_481)))))" "(cons" " id63_0" -" id_137)))))" -"(values" " id_138)))))" +"(values" +" id_139)))))" "(if(not" " #f)" "(for-loop_58" -" id_136" +" id_137" " rest_18)" -" id_136)))" +" id_137)))" " id_68)))))" " for-loop_58)" " null" " lst_43)))))" "(reverse$1" -" id_135)))))))))" +" id_136)))))))))" "(values" " mod-path61_0" " id62_0))" @@ -69881,31 +70009,31 @@ static const char *startup_source = "(let-values(((orig-s_72)" " s_213))" "(let-values(((all-defined64_1)" -"(let-values(((s_385)" +"(let-values(((s_386)" "(if(syntax?$1" " s_213)" "(syntax-e$1" " s_213)" " s_213)))" "(if(pair?" -" s_385)" +" s_386)" "(let-values(((all-defined65_0)" "(let-values(((s_107)" "(car" -" s_385)))" +" s_386)))" " s_107))" "(()" -"(let-values(((s_750)" +"(let-values(((s_749)" "(cdr" -" s_385)))" -"(let-values(((s_751)" +" s_386)))" +"(let-values(((s_750)" "(if(syntax?$1" -" s_750)" +" s_749)" "(syntax-e$1" -" s_750)" -" s_750)))" +" s_749)" +" s_749)))" "(if(null?" -" s_751)" +" s_750)" "(values)" "(raise-syntax-error$1" " #f" @@ -69944,25 +70072,25 @@ static const char *startup_source = "(let-values(((ok?_69" " all-defined-except66_0" " id67_0)" -"(let-values(((s_752)" +"(let-values(((s_153)" " disarmed-spec_0))" "(let-values(((orig-s_73)" -" s_752))" +" s_153))" "(let-values(((all-defined-except66_1" " id67_1)" "(let-values(((s_215)" "(if(syntax?$1" -" s_752)" +" s_153)" "(syntax-e$1" -" s_752)" -" s_752)))" +" s_153)" +" s_153)))" "(if(pair?" " s_215)" "(let-values(((all-defined-except68_0)" -"(let-values(((s_409)" +"(let-values(((s_410)" "(car" " s_215)))" -" s_409))" +" s_410))" "((id69_0)" "(let-values(((s_216)" "(cdr" @@ -69984,8 +70112,8 @@ static const char *startup_source = " \"bad syntax\"" " orig-s_73))" "(let-values()" -"(let-values(((id_139)" -"(let-values(((lst_410)" +"(let-values(((id_140)" +"(let-values(((lst_411)" " flat-s_50))" "(begin" "(if(variable-reference-from-unsafe?" @@ -69993,23 +70121,23 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_410)))" -"((letrec-values(((for-loop_314)" -"(lambda(id_140" -" lst_411)" +" lst_411)))" +"((letrec-values(((for-loop_317)" +"(lambda(id_141" +" lst_412)" "(begin" " 'for-loop" "(if(pair?" -" lst_411)" +" lst_412)" "(let-values(((s_118)" "(unsafe-car" -" lst_411))" -"((rest_237)" +" lst_412))" +"((rest_238)" "(unsafe-cdr" -" lst_411)))" -"(let-values(((id_141)" +" lst_412)))" "(let-values(((id_142)" -" id_140))" +"(let-values(((id_143)" +" id_141))" "(let-values(((id_30)" "(let-values()" "(let-values(((id70_0)" @@ -70033,21 +70161,21 @@ static const char *startup_source = " s_118)))))" "(cons" " id70_0" -" id_142)))))" +" id_143)))))" "(values" " id_30)))))" "(if(not" " #f)" -"(for-loop_314" -" id_141" -" rest_237)" -" id_141)))" -" id_140)))))" -" for-loop_314)" +"(for-loop_317" +" id_142" +" rest_238)" +" id_142)))" +" id_141)))))" +" for-loop_317)" " null" -" lst_410)))))" +" lst_411)))))" "(reverse$1" -" id_139)))))))))" +" id_140)))))))))" "(values" " all-defined-except68_0" " id69_0))" @@ -70086,50 +70214,50 @@ static const char *startup_source = "(let-values(((ok?_70" " prefix-all-defined71_0" " id:prefix72_0)" -"(let-values(((s_753)" +"(let-values(((s_751)" " disarmed-spec_0))" "(let-values(((orig-s_74)" -" s_753))" +" s_751))" "(let-values(((prefix-all-defined71_1" " id:prefix72_1)" -"(let-values(((s_754)" +"(let-values(((s_752)" "(if(syntax?$1" -" s_753)" +" s_751)" "(syntax-e$1" -" s_753)" -" s_753)))" +" s_751)" +" s_751)))" "(if(pair?" -" s_754)" +" s_752)" "(let-values(((prefix-all-defined73_0)" -"(let-values(((s_755)" +"(let-values(((s_753)" "(car" -" s_754)))" -" s_755))" +" s_752)))" +" s_753))" "((id:prefix74_0)" -"(let-values(((s_756)" +"(let-values(((s_754)" "(cdr" -" s_754)))" -"(let-values(((s_757)" +" s_752)))" +"(let-values(((s_755)" "(if(syntax?$1" -" s_756)" +" s_754)" "(syntax-e$1" -" s_756)" -" s_756)))" +" s_754)" +" s_754)))" "(if(pair?" -" s_757)" +" s_755)" "(let-values(((id:prefix75_0)" "(let-values(((s_124)" "(car" -" s_757)))" -"(if(let-values(((or-part_388)" +" s_755)))" +"(if(let-values(((or-part_389)" "(if(syntax?$1" " s_124)" "(symbol?" "(syntax-e$1" " s_124))" " #f)))" -"(if or-part_388" -" or-part_388" +"(if or-part_389" +" or-part_389" "(symbol?" " s_124)))" " s_124" @@ -70139,17 +70267,17 @@ static const char *startup_source = " orig-s_74" " s_124))))" "(()" -"(let-values(((s_758)" +"(let-values(((s_756)" "(cdr" -" s_757)))" -"(let-values(((s_759)" +" s_755)))" +"(let-values(((s_757)" "(if(syntax?$1" -" s_758)" +" s_756)" "(syntax-e$1" -" s_758)" -" s_758)))" +" s_756)" +" s_756)))" "(if(null?" -" s_759)" +" s_757)" "(values)" "(raise-syntax-error$1" " #f" @@ -70208,66 +70336,66 @@ static const char *startup_source = "(let-values(((prefix-all-defined-except76_1" " id:prefix77_1" " id78_1)" -"(let-values(((s_326)" +"(let-values(((s_327)" "(if(syntax?$1" " s_228)" "(syntax-e$1" " s_228)" " s_228)))" "(if(pair?" -" s_326)" +" s_327)" "(let-values(((prefix-all-defined-except79_0)" -"(let-values(((s_329)" +"(let-values(((s_330)" "(car" -" s_326)))" -" s_329))" +" s_327)))" +" s_330))" "((id:prefix80_0" " id81_0)" -"(let-values(((s_330)" -"(cdr" -" s_326)))" "(let-values(((s_331)" +"(cdr" +" s_327)))" +"(let-values(((s_332)" "(if(syntax?$1" -" s_330)" -"(syntax-e$1" -" s_330)" -" s_330)))" -"(if(pair?" " s_331)" -"(let-values(((id:prefix82_0)" -"(let-values(((s_334)" -"(car" +"(syntax-e$1" +" s_331)" " s_331)))" -"(if(let-values(((or-part_389)" +"(if(pair?" +" s_332)" +"(let-values(((id:prefix82_0)" +"(let-values(((s_335)" +"(car" +" s_332)))" +"(if(let-values(((or-part_390)" "(if(syntax?$1" -" s_334)" +" s_335)" "(symbol?" "(syntax-e$1" -" s_334))" +" s_335))" " #f)))" -"(if or-part_389" -" or-part_389" +"(if or-part_390" +" or-part_390" "(symbol?" -" s_334)))" -" s_334" +" s_335)))" +" s_335" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_75" -" s_334))))" +" s_335))))" "((id83_0)" -"(let-values(((s_336)" +"(let-values(((s_337)" "(cdr" -" s_331)))" -"(let-values(((s_760)" +" s_332)))" +"(let-values(((s_758)" "(if(syntax?$1" -" s_336)" +" s_337)" "(syntax-e$1" -" s_336)" -" s_336)))" +" s_337)" +" s_337)))" "(let-values(((flat-s_51)" "(to-syntax-list.1" -" s_760)))" +" s_758)))" "(if(not" " flat-s_51)" "(let-values()" @@ -70276,7 +70404,7 @@ static const char *startup_source = " \"bad syntax\"" " orig-s_75))" "(let-values()" -"(let-values(((id_143)" +"(let-values(((id_144)" "(let-values(((lst_4)" " flat-s_51))" "(begin" @@ -70286,60 +70414,60 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_4)))" -"((letrec-values(((for-loop_315)" -"(lambda(id_144" -" lst_412)" +"((letrec-values(((for-loop_318)" +"(lambda(id_145" +" lst_413)" "(begin" " 'for-loop" "(if(pair?" -" lst_412)" -"(let-values(((s_761)" +" lst_413)" +"(let-values(((s_759)" "(unsafe-car" -" lst_412))" -"((rest_193)" +" lst_413))" +"((rest_194)" "(unsafe-cdr" -" lst_412)))" -"(let-values(((id_145)" +" lst_413)))" "(let-values(((id_146)" -" id_144))" "(let-values(((id_147)" +" id_145))" +"(let-values(((id_148)" "(let-values()" "(let-values(((id84_2)" "(let-values()" -"(if(let-values(((or-part_277)" +"(if(let-values(((or-part_278)" "(if(syntax?$1" -" s_761)" +" s_759)" "(symbol?" "(syntax-e$1" -" s_761))" +" s_759))" " #f)))" -"(if or-part_277" -" or-part_277" +"(if or-part_278" +" or-part_278" "(symbol?" -" s_761)))" -" s_761" +" s_759)))" +" s_759" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_75" -" s_761)))))" +" s_759)))))" "(cons" " id84_2" -" id_146)))))" -"(values" " id_147)))))" +"(values" +" id_148)))))" "(if(not" " #f)" -"(for-loop_315" -" id_145" -" rest_193)" -" id_145)))" -" id_144)))))" -" for-loop_315)" +"(for-loop_318" +" id_146" +" rest_194)" +" id_146)))" +" id_145)))))" +" for-loop_318)" " null" " lst_4)))))" "(reverse$1" -" id_143)))))))))" +" id_144)))))))))" "(values" " id:prefix82_0" " id83_0))" @@ -70381,19 +70509,19 @@ static const char *startup_source = " expand85_0" " id86_0" " datum87_0)" -"(let-values(((s_762)" +"(let-values(((s_760)" " disarmed-spec_0))" "(let-values(((orig-s_76)" -" s_762))" +" s_760))" "(let-values(((expand85_1" " id86_1" " datum87_1)" "(let-values(((s_242)" "(if(syntax?$1" -" s_762)" +" s_760)" "(syntax-e$1" -" s_762)" -" s_762)))" +" s_760)" +" s_760)))" "(if(pair?" " s_242)" "(let-values(((expand88_0)" @@ -70403,43 +70531,43 @@ static const char *startup_source = " s_243))" "((id89_1" " datum90_0)" -"(let-values(((s_763)" +"(let-values(((s_761)" "(cdr" " s_242)))" "(let-values(((s_244)" "(if(syntax?$1" -" s_763)" +" s_761)" "(syntax-e$1" -" s_763)" -" s_763)))" +" s_761)" +" s_761)))" "(if(pair?" " s_244)" "(let-values(((id91_0" " datum92_0)" -"(let-values(((s_764)" +"(let-values(((s_762)" "(car" " s_244)))" "(let-values(((s_246)" "(if(syntax?$1" -" s_764)" +" s_762)" "(syntax-e$1" -" s_764)" -" s_764)))" +" s_762)" +" s_762)))" "(if(pair?" " s_246)" "(let-values(((id93_1)" "(let-values(((s_508)" "(car" " s_246)))" -"(if(let-values(((or-part_390)" +"(if(let-values(((or-part_391)" "(if(syntax?$1" " s_508)" "(symbol?" "(syntax-e$1" " s_508))" " #f)))" -"(if or-part_390" -" or-part_390" +"(if or-part_391" +" or-part_391" "(symbol?" " s_508)))" " s_508" @@ -70449,10 +70577,10 @@ static const char *startup_source = " orig-s_76" " s_508))))" "((datum94_0)" -"(let-values(((s_440)" +"(let-values(((s_441)" "(cdr" " s_246)))" -" s_440)))" +" s_441)))" "(values" " id93_1" " datum94_0))" @@ -70461,17 +70589,17 @@ static const char *startup_source = " \"bad syntax\"" " orig-s_76)))))" "(()" -"(let-values(((s_441)" +"(let-values(((s_442)" "(cdr" " s_244)))" -"(let-values(((s_354)" +"(let-values(((s_355)" "(if(syntax?$1" -" s_441)" +" s_442)" "(syntax-e$1" -" s_441)" -" s_441)))" +" s_442)" +" s_442)))" "(if(null?" -" s_354)" +" s_355)" "(values)" "(raise-syntax-error$1" " #f" @@ -70500,54 +70628,54 @@ static const char *startup_source = "(let-values(((ok?_73" " expand95_0" " form96_0)" -"(let-values(((s_355)" +"(let-values(((s_356)" " disarmed-spec_0))" "(let-values(((orig-s_77)" -" s_355))" +" s_356))" "(let-values(((expand95_1" " form96_1)" -"(let-values(((s_358)" +"(let-values(((s_359)" "(if(syntax?$1" -" s_355)" +" s_356)" "(syntax-e$1" -" s_355)" -" s_355)))" +" s_356)" +" s_356)))" "(if(pair?" -" s_358)" +" s_359)" "(let-values(((expand97_0)" -"(let-values(((s_361)" -"(car" -" s_358)))" -" s_361))" -"((form98_0)" "(let-values(((s_362)" -"(cdr" -" s_358)))" -"(let-values(((s_363)" -"(if(syntax?$1" -" s_362)" -"(syntax-e$1" -" s_362)" -" s_362)))" -"(if(pair?" -" s_363)" -"(let-values(((form99_0)" -"(let-values(((s_365)" "(car" -" s_363)))" -" s_365))" -"(()" -"(let-values(((s_366)" +" s_359)))" +" s_362))" +"((form98_0)" +"(let-values(((s_363)" "(cdr" -" s_363)))" -"(let-values(((s_765)" +" s_359)))" +"(let-values(((s_364)" "(if(syntax?$1" -" s_366)" +" s_363)" "(syntax-e$1" -" s_366)" -" s_366)))" +" s_363)" +" s_363)))" +"(if(pair?" +" s_364)" +"(let-values(((form99_0)" +"(let-values(((s_366)" +"(car" +" s_364)))" +" s_366))" +"(()" +"(let-values(((s_367)" +"(cdr" +" s_364)))" +"(let-values(((s_763)" +"(if(syntax?$1" +" s_367)" +"(syntax-e$1" +" s_367)" +" s_367)))" "(if(null?" -" s_765)" +" s_763)" "(values)" "(raise-syntax-error$1" " #f" @@ -70576,19 +70704,19 @@ static const char *startup_source = "((temp105_5)" "(let-values(((v_262)" " ctx_106))" -"(let-values(((the-struct_95)" +"(let-values(((the-struct_94)" " v_262))" "(if(expand-context/outer?" -" the-struct_95)" +" the-struct_94)" "(let-values(((def-ctx-scopes106_0)" "(box" " null))" "((inner107_0)" -"(let-values(((the-struct_96)" +"(let-values(((the-struct_95)" "(root-expand-context/outer-inner" " v_262)))" "(if(expand-context/inner?" -" the-struct_96)" +" the-struct_95)" "(let-values(((stops108_0)" "(free-id-set" " at-phase_13" @@ -70598,91 +70726,91 @@ static const char *startup_source = " at-phase_13)))))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi" -" the-struct_96)" +" the-struct_95)" "(root-expand-context/inner-module-scopes" -" the-struct_96)" +" the-struct_95)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_96)" +" the-struct_95)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_96)" +" the-struct_95)" "(root-expand-context/inner-defined-syms" -" the-struct_96)" +" the-struct_95)" "(root-expand-context/inner-counter" -" the-struct_96)" +" the-struct_95)" "(root-expand-context/inner-lift-key" -" the-struct_96)" +" the-struct_95)" "(expand-context/inner-to-parsed?" -" the-struct_96)" +" the-struct_95)" "(expand-context/inner-phase" -" the-struct_96)" +" the-struct_95)" "(expand-context/inner-namespace" -" the-struct_96)" +" the-struct_95)" "(expand-context/inner-just-once?" -" the-struct_96)" +" the-struct_95)" "(expand-context/inner-module-begin-k" -" the-struct_96)" +" the-struct_95)" "(expand-context/inner-allow-unbound?" -" the-struct_96)" +" the-struct_95)" "(expand-context/inner-in-local-expand?" -" the-struct_96)" +" the-struct_95)" " stops108_0" "(expand-context/inner-declared-submodule-names" -" the-struct_96)" +" the-struct_95)" "(expand-context/inner-lifts" -" the-struct_96)" +" the-struct_95)" "(expand-context/inner-lift-envs" -" the-struct_96)" +" the-struct_95)" "(expand-context/inner-module-lifts" -" the-struct_96)" +" the-struct_95)" "(expand-context/inner-require-lifts" -" the-struct_96)" +" the-struct_95)" "(expand-context/inner-to-module-lifts" -" the-struct_96)" +" the-struct_95)" "(expand-context/inner-requires+provides" -" the-struct_96)" +" the-struct_95)" "(expand-context/inner-observer" -" the-struct_96)" +" the-struct_95)" "(expand-context/inner-for-serializable?" -" the-struct_96)" +" the-struct_95)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_96)))" -"(raise-argument-error" -" 'struct-copy" -" \"expand-context/inner?\"" -" the-struct_96)))))" -"(expand-context/outer1.1" -" inner107_0" -"(root-expand-context/outer-post-expansion-scope" -" the-struct_95)" -"(root-expand-context/outer-use-site-scopes" -" the-struct_95)" -"(root-expand-context/outer-frame-id" -" the-struct_95)" -"(expand-context/outer-context" -" the-struct_95)" -"(expand-context/outer-env" -" the-struct_95)" -"(expand-context/outer-post-expansion-scope-action" -" the-struct_95)" -"(expand-context/outer-scopes" -" the-struct_95)" -" def-ctx-scopes106_0" -"(expand-context/outer-binding-layer" -" the-struct_95)" -"(expand-context/outer-reference-records" -" the-struct_95)" -"(expand-context/outer-only-immediate?" -" the-struct_95)" -"(expand-context/outer-need-eventually-defined" -" the-struct_95)" -"(expand-context/outer-current-introduction-scopes" -" the-struct_95)" -"(expand-context/outer-name" " the-struct_95)))" "(raise-argument-error" " 'struct-copy" +" \"expand-context/inner?\"" +" the-struct_95)))))" +"(expand-context/outer1.1" +" inner107_0" +"(root-expand-context/outer-post-expansion-scope" +" the-struct_94)" +"(root-expand-context/outer-use-site-scopes" +" the-struct_94)" +"(root-expand-context/outer-frame-id" +" the-struct_94)" +"(expand-context/outer-context" +" the-struct_94)" +"(expand-context/outer-env" +" the-struct_94)" +"(expand-context/outer-post-expansion-scope-action" +" the-struct_94)" +"(expand-context/outer-scopes" +" the-struct_94)" +" def-ctx-scopes106_0" +"(expand-context/outer-binding-layer" +" the-struct_94)" +"(expand-context/outer-reference-records" +" the-struct_94)" +"(expand-context/outer-only-immediate?" +" the-struct_94)" +"(expand-context/outer-need-eventually-defined" +" the-struct_94)" +"(expand-context/outer-current-introduction-scopes" +" the-struct_94)" +"(expand-context/outer-name" +" the-struct_94)))" +"(raise-argument-error" +" 'struct-copy" " \"expand-context/outer?\"" -" the-struct_95))))))" +" the-struct_94))))))" "(expand7.1" " #f" " #f" @@ -70717,38 +70845,38 @@ static const char *startup_source = "(let-values(((ok?_74" " begin100_0" " spec101_0)" -"(let-values(((s_766)" +"(let-values(((s_764)" " exp-spec_0))" "(let-values(((orig-s_78)" -" s_766))" +" s_764))" "(let-values(((begin100_1" " spec101_1)" -"(let-values(((s_767)" +"(let-values(((s_765)" "(if(syntax?$1" -" s_766)" +" s_764)" "(syntax-e$1" -" s_766)" -" s_766)))" +" s_764)" +" s_764)))" "(if(pair?" -" s_767)" +" s_765)" "(let-values(((begin102_0)" -"(let-values(((s_371)" -"(car" -" s_767)))" -" s_371))" -"((spec103_0)" "(let-values(((s_372)" -"(cdr" -" s_767)))" +"(car" +" s_765)))" +" s_372))" +"((spec103_0)" "(let-values(((s_373)" +"(cdr" +" s_765)))" +"(let-values(((s_374)" "(if(syntax?$1" -" s_372)" +" s_373)" "(syntax-e$1" -" s_372)" -" s_372)))" +" s_373)" +" s_373)))" "(let-values(((flat-s_52)" "(to-syntax-list.1" -" s_373)))" +" s_374)))" "(if(not" " flat-s_52)" "(let-values()" @@ -70796,7 +70924,7 @@ static const char *startup_source = "(for-loop_96" " track-stxes_2" " exp-specs_2" -" rest_235)" +" rest_236)" "(values" " track-stxes_2" " exp-specs_2))))" @@ -70811,17 +70939,17 @@ static const char *startup_source = "(values(apply append track-stxess_0)(apply append exp-specss_0)))))))" " loop_113)" " specs_0" -" phase_44" +" phase_46" " #f" " 'raw)))))" "(define-values" "(parse-identifier!)" "(lambda(spec_1 orig-s_79 sym_101 at-phase_5 ns_126 rp_2 protected?_16)" "(begin" -"(let-values(((b_92)(resolve+shift/extra-inspector spec_1 at-phase_5 ns_126)))" +"(let-values(((b_93)(resolve+shift/extra-inspector spec_1 at-phase_5 ns_126)))" "(let-values((()" "(begin" -"(if b_92" +"(if b_93" "(void)" "(let-values()" "(raise-syntax-error$1" @@ -70830,14 +70958,14 @@ static const char *startup_source = " orig-s_79" " spec_1)))" "(values))))" -"(let-values(((as-transformer?_6)(binding-for-transformer? b_92 spec_1 at-phase_5 ns_126)))" +"(let-values(((as-transformer?_6)(binding-for-transformer? b_93 spec_1 at-phase_5 ns_126)))" "(let-values(((immed-b_0)" "(let-values(((spec118_0) spec_1)((at-phase119_0) at-phase_5)((temp120_5) #t))" "(resolve+shift30.1 #f #f #f #f #f #f temp120_5 #t #f #f spec118_0 at-phase119_0))))" "(let-values(((rp109_0) rp_2)" "((sym110_0) sym_101)" "((at-phase111_0) at-phase_5)" -"((b112_0) b_92)" +"((b112_0) b_93)" "((immed-b113_0) immed-b_0)" "((spec114_0) spec_1)" "((orig-s115_0) orig-s_79)" @@ -70878,44 +71006,44 @@ static const char *startup_source = "(void)" "(let-values()(check-list lst_124)))" "((letrec-values(((for-loop_64)" -"(lambda(lst_413)" +"(lambda(lst_414)" "(begin" " 'for-loop" -"(if(pair? lst_413)" -"(let-values(((fmt_3)(unsafe-car lst_413))((rest_238)(unsafe-cdr lst_413)))" +"(if(pair? lst_414)" +"(let-values(((fmt_3)(unsafe-car lst_414))((rest_239)(unsafe-cdr lst_414)))" "(let-values((()" "(let-values()" "(let-values((()" "(let-values()" "(begin" "(let-values()" -"(let-values(((id_148)(mk_0 fmt_3)))" +"(let-values(((id_149)(mk_0 fmt_3)))" "(parse-identifier!" -" id_148" +" id_149" " orig-s_80" -"(syntax-e$1 id_148)" +"(syntax-e$1 id_149)" " at-phase_14" " ns_127" " rp_3" " protected?_17)))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_64 rest_238)(values))))" +"(if(not #f)(for-loop_64 rest_239)(values))))" "(values))))))" " for-loop_64)" " lst_124)))" "(void)" -"(let-values(((lst_414) fields_0))" +"(let-values(((lst_415) fields_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_414)))" -"((letrec-values(((for-loop_316)" -"(lambda(lst_415)" +"(let-values()(check-list lst_415)))" +"((letrec-values(((for-loop_319)" +"(lambda(lst_416)" "(begin" " 'for-loop" -"(if(pair? lst_415)" -"(let-values(((field_0)(unsafe-car lst_415))((rest_239)(unsafe-cdr lst_415)))" +"(if(pair? lst_416)" +"(let-values(((field_0)(unsafe-car lst_416))((rest_240)(unsafe-cdr lst_416)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -70947,10 +71075,10 @@ static const char *startup_source = " protected?_17)))))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_316 rest_239)(values))))" +"(if(not #f)(for-loop_319 rest_240)(values))))" "(values))))))" -" for-loop_316)" -" lst_414)))" +" for-loop_319)" +" lst_415)))" "(void)))))))" "(define-values" "(parse-all-from)" @@ -70998,48 +71126,48 @@ static const char *startup_source = " (if prefix-sym_0 (string->symbol (format \"~a~a\" prefix-sym_0 sym_103)) sym_103)))))" "(let-values(((found_0)(make-hasheq)))" "(begin" -"(let-values(((lst_239) requireds_2))" +"(let-values(((lst_241) requireds_2))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_239)))" -"((letrec-values(((for-loop_317)" -"(lambda(lst_416)" +"(let-values()(check-list lst_241)))" +"((letrec-values(((for-loop_320)" +"(lambda(lst_417)" "(begin" " 'for-loop" -"(if(pair? lst_416)" -"(let-values(((i_191)(unsafe-car lst_416))" -"((rest_240)(unsafe-cdr lst_416)))" +"(if(pair? lst_417)" +"(let-values(((i_191)(unsafe-car lst_417))" +"((rest_241)(unsafe-cdr lst_417)))" "(let-values((()" "(let-values()" "(let-values((()" "(let-values()" "(begin" "(let-values()" -"(let-values(((id_149)" +"(let-values(((id_150)" "(required-id i_191)))" -"(let-values(((phase_151)" +"(let-values(((phase_152)" "(required-phase" " i_191)))" -"(if(let-values(((or-part_391)" +"(if(let-values(((or-part_392)" "(if matching-stx_0" "(not" "(if(eqv?" -" phase_151" +" phase_152" " at-phase_16)" "(free-identifier=?$1" -" id_149" +" id_150" "(datum->syntax$1" " matching-stx_0" "(syntax-e$1" -" id_149))" -" phase_151" -" phase_151)" +" id_150))" +" phase_152" +" phase_152)" " #f))" " #f)))" -"(if or-part_391" -" or-part_391" -"(let-values(((lst_417)" +"(if or-part_392" +" or-part_392" +"(let-values(((lst_418)" " except-ids_1))" "(begin" "(if(variable-reference-from-unsafe?" @@ -71047,64 +71175,64 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_417)))" -"((letrec-values(((for-loop_318)" -"(lambda(result_125" -" lst_418)" +" lst_418)))" +"((letrec-values(((for-loop_321)" +"(lambda(result_130" +" lst_419)" "(begin" " 'for-loop" "(if(pair?" -" lst_418)" +" lst_419)" "(let-values(((except-id_0)" "(unsafe-car" -" lst_418))" -"((rest_241)" +" lst_419))" +"((rest_242)" "(unsafe-cdr" -" lst_418)))" -"(let-values(((result_126)" +" lst_419)))" +"(let-values(((result_131)" "(let-values()" -"(let-values(((result_127)" +"(let-values(((result_132)" "(let-values()" "(let-values()" "(if(free-identifier=?$1" -" id_149" +" id_150" " except-id_0" -" phase_151" -" phase_151)" +" phase_152" +" phase_152)" "(hash-set!" " found_0" " except-id_0" " #t)" " #f)))))" "(values" -" result_127)))))" +" result_132)))))" "(if(if(not" -"((lambda x_92" -" result_126)" +"((lambda x_95" +" result_131)" " except-id_0))" "(not" " #f)" " #f)" -"(for-loop_318" -" result_126" -" rest_241)" -" result_126)))" -" result_125)))))" -" for-loop_318)" +"(for-loop_321" +" result_131" +" rest_242)" +" result_131)))" +" result_130)))))" +" for-loop_321)" " #f" -" lst_417)))))" +" lst_418)))))" "(void)" "(let-values()" -"(let-values(((b_93)" +"(let-values(((b_94)" "(resolve+shift/extra-inspector" -" id_149" -" phase_151" +" id_150" +" phase_152" " ns_129)))" "(let-values(((immed-b_1)" "(let-values(((id130_0)" -" id_149)" +" id_150)" "((phase131_0)" -" phase_151)" +" phase_152)" "((temp132_0)" " #t))" "(resolve+shift30.1" @@ -71125,15 +71253,15 @@ static const char *startup_source = "((temp122_4)" "(add-prefix_1" "(syntax-e$1" -" id_149)))" +" id_150)))" "((phase123_0)" -" phase_151)" +" phase_152)" "((b124_0)" -" b_93)" +" b_94)" "((immed-b125_0)" " immed-b_1)" "((id126_0)" -" id_149)" +" id_150)" "((orig-s127_0)" " orig-s_82)" "((protected?128_0)" @@ -71153,10 +71281,10 @@ static const char *startup_source = " orig-s127_0)))))))))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_317 rest_240)(values))))" +"(if(not #f)(for-loop_320 rest_241)(values))))" "(values))))))" -" for-loop_317)" -" lst_239)))" +" for-loop_320)" +" lst_241)))" "(void)" "(if(=(hash-count found_0)(length except-ids_1))" "(void)" @@ -71167,7 +71295,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_147)))" -"((letrec-values(((for-loop_170)" +"((letrec-values(((for-loop_171)" "(lambda(lst_126)" "(begin" " 'for-loop" @@ -71180,14 +71308,14 @@ static const char *startup_source = "(let-values()" "(begin" "(let-values()" -"(if(let-values(((or-part_392)" +"(if(let-values(((or-part_393)" "(hash-ref" " found_0" " except-id_1" " #f)))" -"(if or-part_392" -" or-part_392" -"(let-values(((lst_419)" +"(if or-part_393" +" or-part_393" +"(let-values(((lst_420)" " requireds_2))" "(begin" "(if(variable-reference-from-unsafe?" @@ -71195,53 +71323,53 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_419)))" -"((letrec-values(((for-loop_142)" -"(lambda(result_128" -" lst_420)" +" lst_420)))" +"((letrec-values(((for-loop_143)" +"(lambda(result_133" +" lst_421)" "(begin" " 'for-loop" "(if(pair?" -" lst_420)" +" lst_421)" "(let-values(((i_192)" "(unsafe-car" -" lst_420))" -"((rest_242)" +" lst_421))" +"((rest_243)" "(unsafe-cdr" -" lst_420)))" -"(let-values(((result_129)" +" lst_421)))" +"(let-values(((result_134)" "(let-values()" -"(let-values(((result_130)" +"(let-values(((result_135)" "(let-values()" "(let-values()" -"(let-values(((id_150)" +"(let-values(((id_151)" "(required-id" " i_192)))" -"(let-values(((phase_152)" +"(let-values(((phase_153)" "(required-phase" " i_192)))" "(free-identifier=?$1" -" id_150" +" id_151" " except-id_1" -" phase_152" -" phase_152)))))))" +" phase_153" +" phase_153)))))))" "(values" -" result_130)))))" +" result_135)))))" "(if(if(not" -"((lambda x_93" -" result_129)" +"((lambda x_96" +" result_134)" " i_192))" "(not" " #f)" " #f)" -"(for-loop_142" -" result_129" -" rest_242)" -" result_129)))" -" result_128)))))" -" for-loop_142)" +"(for-loop_143" +" result_134" +" rest_243)" +" result_134)))" +" result_133)))))" +" for-loop_143)" " #f" -" lst_419)))))" +" lst_420)))))" "(void)" "(let-values()" "(raise-syntax-error$1" @@ -71255,9 +71383,9 @@ static const char *startup_source = " except-id_1))))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_170 rest_62)(values))))" +"(if(not #f)(for-loop_171 rest_62)(values))))" "(values))))))" -" for-loop_170)" +" for-loop_171)" " lst_147)))" "(void)))))))))))))" "(define-values" @@ -71269,12 +71397,12 @@ static const char *startup_source = "(begin" " 'check-body" "(begin" -"(let-values(((lst_421) bodys_14))" +"(let-values(((lst_422) bodys_14))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_421)))" -"((letrec-values(((for-loop_319)" +"(let-values()(check-list lst_422)))" +"((letrec-values(((for-loop_322)" "(lambda(lst_85)" "(begin" " 'for-loop" @@ -71287,64 +71415,64 @@ static const char *startup_source = "(let-values()" "(begin" "(let-values()" -"(let-values(((p_35)" +"(let-values(((p_36)" "(if(expanded+parsed?" " body_21)" "(expanded+parsed-parsed" " body_21)" " body_21)))" "(if(parsed-define-values?" -" p_35)" +" p_36)" "(let-values()" "(check-expr_0" "(parsed-define-values-rhs" -" p_35)" +" p_36)" "(length" "(parsed-define-values-syms" -" p_35))" -" p_35))" +" p_36))" +" p_36))" "(if(let-values(((or-part_211)" "(parsed-#%declare?" -" p_35)))" +" p_36)))" "(if or-part_211" " or-part_211" "(let-values(((or-part_3)" "(parsed-module?" -" p_35)))" +" p_36)))" "(if or-part_3" " or-part_3" "(syntax?$1" -" p_35)))))" +" p_36)))))" "(let-values()" "(void))" "(let-values()" "(disallow" -" p_35))))))" +" p_36))))))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_319 rest_40)(values))))" +"(if(not #f)(for-loop_322 rest_40)(values))))" "(values))))))" -" for-loop_319)" -" lst_421)))" +" for-loop_322)" +" lst_422)))" "(void)))))" "((check-expr_0)" -"(lambda(e_93 num-results_0 enclosing_15)" +"(lambda(e_94 num-results_0 enclosing_15)" "(begin" " 'check-expr" -"(if(parsed-lambda? e_93)" +"(if(parsed-lambda? e_94)" "(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_94)))" +"(if(parsed-case-lambda? e_94)" "(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_94)))" +"(if(parsed-quote? e_94)" "(let-values()" "(begin" -"(check-datum(parsed-quote-datum e_93) e_93)" +"(check-datum(parsed-quote-datum e_94) e_94)" "(check-count 1 num-results_0 enclosing_15)))" -"(if(parsed-app? e_93)" +"(if(parsed-app? e_94)" "(let-values()" -"(let-values(((rands_1)(parsed-app-rands e_93)))" +"(let-values(((rands_1)(parsed-app-rands e_94)))" "(begin" "(let-values(((lst_79) rands_1))" "(begin" @@ -71357,7 +71485,7 @@ static const char *startup_source = " 'for-loop" "(if(pair? lst_86)" "(let-values(((rand_0)(unsafe-car lst_86))" -"((rest_243)(unsafe-cdr lst_86)))" +"((rest_244)(unsafe-cdr lst_86)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -71367,15 +71495,15 @@ static const char *startup_source = "(check-expr_0" " rand_0" " 1" -" e_93))" +" e_94))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_81 rest_243)(values))))" +"(if(not #f)(for-loop_81 rest_244)(values))))" "(values))))))" " for-loop_81)" " lst_79)))" "(void)" -"(let-values(((tmp_67)(cross-phase-primitive-name(parsed-app-rator e_93))))" +"(let-values(((tmp_67)(cross-phase-primitive-name(parsed-app-rator e_94))))" "(if(if(equal? tmp_67 'cons) #t(equal? tmp_67 'list))" "(let-values()(check-count 1 num-results_0 enclosing_15))" "(if(equal? tmp_67 'make-struct-type)" @@ -71384,42 +71512,42 @@ static const char *startup_source = "(let-values()(check-count 3 num-results_0 enclosing_15))" "(if(equal? tmp_67 'gensym)" "(let-values()" -"(if(let-values(((or-part_357)(= 0(length rands_1))))" -"(if or-part_357" -" or-part_357" +"(if(let-values(((or-part_359)(= 0(length rands_1))))" +"(if or-part_359" +" or-part_359" "(if(= 1(length rands_1))" "(quoted-string?(car rands_1))" " #f)))" "(void)" -"(let-values()(disallow e_93))))" +"(let-values()(disallow e_94))))" "(if(equal? tmp_67 '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_94))))" +"(let-values()(disallow e_94)))))))))))" +"(let-values()(check-no-disallowed-expr_0 e_94)))))))))" "((check-no-disallowed-expr_0)" -"(lambda(e_39)" +"(lambda(e_40)" "(begin" " 'check-no-disallowed-expr" -"(if(parsed-lambda? e_39)" -"(let-values()(check-body-no-disallowed-expr_0(parsed-lambda-body e_39)))" -"(if(parsed-case-lambda? e_39)" +"(if(parsed-lambda? e_40)" +"(let-values()(check-body-no-disallowed-expr_0(parsed-lambda-body e_40)))" +"(if(parsed-case-lambda? e_40)" "(let-values()" "(begin" -"(let-values(((lst_269)(parsed-case-lambda-clauses e_39)))" +"(let-values(((lst_271)(parsed-case-lambda-clauses e_40)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_269)))" -"((letrec-values(((for-loop_238)" -"(lambda(lst_422)" +"(let-values()(check-list lst_271)))" +"((letrec-values(((for-loop_239)" +"(lambda(lst_423)" "(begin" " 'for-loop" -"(if(pair? lst_422)" -"(let-values(((clause_5)(unsafe-car lst_422))" -"((rest_244)(unsafe-cdr lst_422)))" +"(if(pair? lst_423)" +"(let-values(((clause_5)(unsafe-car lst_423))" +"((rest_245)(unsafe-cdr lst_423)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -71430,27 +71558,27 @@ static const char *startup_source = "(cadr clause_5)))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_238 rest_244)(values))))" +"(if(not #f)(for-loop_239 rest_245)(values))))" "(values))))))" -" for-loop_238)" -" lst_269)))" +" for-loop_239)" +" lst_271)))" "(void)))" -"(if(parsed-app? e_39)" +"(if(parsed-app? e_40)" "(let-values()" "(begin" -"(check-no-disallowed-expr_0(parsed-app-rator e_39))" -"(let-values(((lst_221)(parsed-app-rands e_39)))" +"(check-no-disallowed-expr_0(parsed-app-rator e_40))" +"(let-values(((lst_223)(parsed-app-rands e_40)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_221)))" +"(let-values()(check-list lst_223)))" "((letrec-values(((for-loop_106)" -"(lambda(lst_265)" +"(lambda(lst_267)" "(begin" " 'for-loop" -"(if(pair? lst_265)" -"(let-values(((e_94)(unsafe-car lst_265))" -"((rest_196)(unsafe-cdr lst_265)))" +"(if(pair? lst_267)" +"(let-values(((e_95)(unsafe-car lst_267))" +"((rest_197)(unsafe-cdr lst_267)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -71458,56 +71586,56 @@ static const char *startup_source = "(begin" "(let-values()" "(check-no-disallowed-expr_0" -" e_94))" +" e_95))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_106 rest_196)(values))))" +"(if(not #f)(for-loop_106 rest_197)(values))))" "(values))))))" " for-loop_106)" -" lst_221)))" +" lst_223)))" "(void)))" -"(if(parsed-if? e_39)" +"(if(parsed-if? e_40)" "(let-values()" "(begin" -"(check-no-disallowed-expr_0(parsed-if-tst e_39))" -"(check-no-disallowed-expr_0(parsed-if-thn e_39))" -"(check-no-disallowed-expr_0(parsed-if-els e_39))))" -"(if(parsed-set!? e_39)" +"(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)" "(let-values()" -"(let-values(((id_151)(parsed-set!-id e_39)))" -"(let-values(((normal-b_1)(parsed-id-binding id_151)))" +"(let-values(((id_152)(parsed-set!-id e_40)))" +"(let-values(((normal-b_1)(parsed-id-binding id_152)))" "(begin" "(if(let-values(((or-part_85)(not normal-b_1)))" "(if or-part_85" " or-part_85" -"(let-values(((or-part_283)(parsed-top-id? id_151)))" -"(if or-part_283" -" or-part_283" +"(let-values(((or-part_284)(parsed-top-id? id_152)))" +"(if or-part_284" +" or-part_284" "(if(not(symbol? normal-b_1))" "(eq?(module-binding-module normal-b_1) self-mpi_6)" " #f)))))" -"(let-values()(disallow e_39))" +"(let-values()(disallow e_40))" "(void))" -"(check-no-disallowed-expr_0(parsed-set!-rhs e_39))))))" -"(if(parsed-with-continuation-mark? e_39)" +"(check-no-disallowed-expr_0(parsed-set!-rhs e_40))))))" +"(if(parsed-with-continuation-mark? e_40)" "(let-values()" "(begin" -"(check-no-disallowed-expr_0(parsed-with-continuation-mark-key e_39))" -"(check-no-disallowed-expr_0(parsed-with-continuation-mark-val e_39))" -"(check-no-disallowed-expr_0(parsed-with-continuation-mark-body e_39))))" -"(if(parsed-begin? e_39)" -"(let-values()(check-body-no-disallowed-expr_0(parsed-begin-body e_39)))" -"(if(parsed-begin0? e_39)" -"(let-values()(check-body-no-disallowed-expr_0(parsed-begin0-body e_39)))" -"(if(parsed-let_-values? e_39)" +"(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)" "(let-values()" "(begin" -"(let-values(((lst_24)(parsed-let_-values-clauses e_39)))" +"(let-values(((lst_24)(parsed-let_-values-clauses e_40)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_24)))" -"((letrec-values(((for-loop_250)" +"((letrec-values(((for-loop_252)" "(lambda(lst_90)" "(begin" " 'for-loop" @@ -71528,16 +71656,16 @@ static const char *startup_source = "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_250 rest_152)" +"(for-loop_252 rest_152)" "(values))))" "(values))))))" -" for-loop_250)" +" for-loop_252)" " lst_24)))" "(void)" -"(check-body-no-disallowed-expr_0(parsed-let_-values-body e_39))))" -"(if(let-values(((or-part_393)(parsed-quote-syntax? e_39)))" -"(if or-part_393 or-part_393(parsed-#%variable-reference? e_39)))" -"(let-values()(disallow e_39))" +"(check-body-no-disallowed-expr_0(parsed-let_-values-body e_40))))" +"(if(let-values(((or-part_394)(parsed-quote-syntax? e_40)))" +"(if or-part_394 or-part_394(parsed-#%variable-reference? e_40)))" +"(let-values()(disallow e_40))" "(let-values()(void)))))))))))))))" "((check-body-no-disallowed-expr_0)" "(lambda(l_48)" @@ -71549,13 +71677,13 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_82)))" -"((letrec-values(((for-loop_320)" -"(lambda(lst_271)" +"((letrec-values(((for-loop_323)" +"(lambda(lst_273)" "(begin" " 'for-loop" -"(if(pair? lst_271)" -"(let-values(((e_95)(unsafe-car lst_271))" -"((rest_148)(unsafe-cdr lst_271)))" +"(if(pair? lst_273)" +"(let-values(((e_96)(unsafe-car lst_273))" +"((rest_148)(unsafe-cdr lst_273)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -71563,12 +71691,12 @@ static const char *startup_source = "(begin" "(let-values()" "(check-no-disallowed-expr_0" -" e_95))" +" e_96))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_320 rest_148)(values))))" +"(if(not #f)(for-loop_323 rest_148)(values))))" "(values))))))" -" for-loop_320)" +" for-loop_323)" " lst_82)))" "(void))))))" "(check-body_0 bodys_13)))))" @@ -71597,17 +71725,17 @@ static const char *startup_source = "(let-values()(disallow e_13))))))" "(define-values" "(quoted-string?)" -"(lambda(e_96)(begin(if(parsed-quote? e_96)(string?(parsed-quote-datum e_96)) #f))))" +"(lambda(e_97)(begin(if(parsed-quote? e_97)(string?(parsed-quote-datum e_97)) #f))))" "(define-values" "(cross-phase-primitive-name)" -"(lambda(id_152)" +"(lambda(id_153)" "(begin" -"(if(parsed-id? id_152)" +"(if(parsed-id? id_153)" "(let-values()" -"(let-values(((b_94)(parsed-id-binding id_152)))" -"(if(module-binding? b_94)" -"(if(eq? runtime-module-name(1/module-path-index-resolve(module-binding-module b_94)))" -"(module-binding-sym b_94)" +"(let-values(((b_95)(parsed-id-binding id_153)))" +"(if(module-binding? b_95)" +"(if(eq? runtime-module-name(1/module-path-index-resolve(module-binding-module b_95)))" +"(module-binding-sym b_95)" " #f)" " #f)))" "(let-values() #f)))))" @@ -71658,56 +71786,56 @@ static const char *startup_source = "((expand-context-module-begin-k ctx_110)" " s_84" "(let-values(((v_263) ctx_110))" -"(let-values(((the-struct_97) v_263))" -"(if(expand-context/outer? the-struct_97)" +"(let-values(((the-struct_96) v_263))" +"(if(expand-context/outer? the-struct_96)" "(let-values(((inner226_0)" -"(let-values(((the-struct_98)(root-expand-context/outer-inner v_263)))" -"(if(expand-context/inner? the-struct_98)" +"(let-values(((the-struct_97)(root-expand-context/outer-inner v_263)))" +"(if(expand-context/inner? the-struct_97)" "(let-values(((module-begin-k227_0) #f))" "(expand-context/inner2.1" -"(root-expand-context/inner-self-mpi the-struct_98)" -"(root-expand-context/inner-module-scopes the-struct_98)" -"(root-expand-context/inner-top-level-bind-scope the-struct_98)" -"(root-expand-context/inner-all-scopes-stx the-struct_98)" -"(root-expand-context/inner-defined-syms the-struct_98)" -"(root-expand-context/inner-counter the-struct_98)" -"(root-expand-context/inner-lift-key the-struct_98)" -"(expand-context/inner-to-parsed? the-struct_98)" -"(expand-context/inner-phase the-struct_98)" -"(expand-context/inner-namespace the-struct_98)" -"(expand-context/inner-just-once? the-struct_98)" +"(root-expand-context/inner-self-mpi the-struct_97)" +"(root-expand-context/inner-module-scopes the-struct_97)" +"(root-expand-context/inner-top-level-bind-scope the-struct_97)" +"(root-expand-context/inner-all-scopes-stx the-struct_97)" +"(root-expand-context/inner-defined-syms the-struct_97)" +"(root-expand-context/inner-counter the-struct_97)" +"(root-expand-context/inner-lift-key the-struct_97)" +"(expand-context/inner-to-parsed? the-struct_97)" +"(expand-context/inner-phase the-struct_97)" +"(expand-context/inner-namespace the-struct_97)" +"(expand-context/inner-just-once? the-struct_97)" " module-begin-k227_0" -"(expand-context/inner-allow-unbound? the-struct_98)" -"(expand-context/inner-in-local-expand? the-struct_98)" -"(expand-context/inner-stops the-struct_98)" -"(expand-context/inner-declared-submodule-names the-struct_98)" -"(expand-context/inner-lifts the-struct_98)" -"(expand-context/inner-lift-envs the-struct_98)" -"(expand-context/inner-module-lifts the-struct_98)" -"(expand-context/inner-require-lifts the-struct_98)" -"(expand-context/inner-to-module-lifts the-struct_98)" -"(expand-context/inner-requires+provides the-struct_98)" -"(expand-context/inner-observer the-struct_98)" -"(expand-context/inner-for-serializable? the-struct_98)" -"(expand-context/inner-should-not-encounter-macros? the-struct_98)))" -" (raise-argument-error 'struct-copy \"expand-context/inner?\" the-struct_98)))))" +"(expand-context/inner-allow-unbound? the-struct_97)" +"(expand-context/inner-in-local-expand? the-struct_97)" +"(expand-context/inner-stops the-struct_97)" +"(expand-context/inner-declared-submodule-names the-struct_97)" +"(expand-context/inner-lifts the-struct_97)" +"(expand-context/inner-lift-envs the-struct_97)" +"(expand-context/inner-module-lifts the-struct_97)" +"(expand-context/inner-require-lifts the-struct_97)" +"(expand-context/inner-to-module-lifts the-struct_97)" +"(expand-context/inner-requires+provides the-struct_97)" +"(expand-context/inner-observer the-struct_97)" +"(expand-context/inner-for-serializable? the-struct_97)" +"(expand-context/inner-should-not-encounter-macros? the-struct_97)))" +" (raise-argument-error 'struct-copy \"expand-context/inner?\" the-struct_97)))))" "(expand-context/outer1.1" " inner226_0" -"(root-expand-context/outer-post-expansion-scope the-struct_97)" -"(root-expand-context/outer-use-site-scopes the-struct_97)" -"(root-expand-context/outer-frame-id the-struct_97)" -"(expand-context/outer-context the-struct_97)" -"(expand-context/outer-env the-struct_97)" -"(expand-context/outer-post-expansion-scope-action the-struct_97)" -"(expand-context/outer-scopes the-struct_97)" -"(expand-context/outer-def-ctx-scopes the-struct_97)" -"(expand-context/outer-binding-layer the-struct_97)" -"(expand-context/outer-reference-records the-struct_97)" -"(expand-context/outer-only-immediate? the-struct_97)" -"(expand-context/outer-need-eventually-defined the-struct_97)" -"(expand-context/outer-current-introduction-scopes the-struct_97)" -"(expand-context/outer-name the-struct_97)))" -" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_97)))))))))" +"(root-expand-context/outer-post-expansion-scope the-struct_96)" +"(root-expand-context/outer-use-site-scopes the-struct_96)" +"(root-expand-context/outer-frame-id the-struct_96)" +"(expand-context/outer-context the-struct_96)" +"(expand-context/outer-env the-struct_96)" +"(expand-context/outer-post-expansion-scope-action the-struct_96)" +"(expand-context/outer-scopes the-struct_96)" +"(expand-context/outer-def-ctx-scopes the-struct_96)" +"(expand-context/outer-binding-layer the-struct_96)" +"(expand-context/outer-reference-records the-struct_96)" +"(expand-context/outer-only-immediate? the-struct_96)" +"(expand-context/outer-need-eventually-defined the-struct_96)" +"(expand-context/outer-current-introduction-scopes the-struct_96)" +"(expand-context/outer-name the-struct_96)))" +" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_96)))))))))" "(void" "(add-core-form!*" " '#%declare" @@ -71783,44 +71911,44 @@ static const char *startup_source = "((id:module-name233_0" " initial-require234_0" " body235_0)" -"(let-values(((s_733)(cdr s_307)))" -"(let-values(((s_768)" -"(if(syntax?$1 s_733)" -"(syntax-e$1 s_733)" -" s_733)))" -"(if(pair? s_768)" +"(let-values(((s_732)(cdr s_307)))" +"(let-values(((s_766)" +"(if(syntax?$1 s_732)" +"(syntax-e$1 s_732)" +" s_732)))" +"(if(pair? s_766)" "(let-values(((id:module-name236_0)" -"(let-values(((s_474)" +"(let-values(((s_475)" "(car" -" s_768)))" -"(if(let-values(((or-part_365)" +" s_766)))" +"(if(let-values(((or-part_367)" "(if(syntax?$1" -" s_474)" +" s_475)" "(symbol?" "(syntax-e$1" -" s_474))" +" s_475))" " #f)))" -"(if or-part_365" -" or-part_365" +"(if or-part_367" +" or-part_367" "(symbol?" -" s_474)))" -" s_474" +" s_475)))" +" s_475" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_83" -" s_474))))" +" s_475))))" "((initial-require237_0" " body238_0)" -"(let-values(((s_475)" +"(let-values(((s_476)" "(cdr" -" s_768)))" +" s_766)))" "(let-values(((s_55)" "(if(syntax?$1" -" s_475)" +" s_476)" "(syntax-e$1" -" s_475)" -" s_475)))" +" s_476)" +" s_476)))" "(if(pair?" " s_55)" "(let-values(((initial-require239_0)" @@ -71906,7 +72034,7 @@ static const char *startup_source = " s_16" " initial-require230_0)))" "(values))))" -"(let-values(((phase_153) 0))" +"(let-values(((phase_154) 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)))" @@ -72030,70 +72158,70 @@ static const char *startup_source = "(let-values(((post-expansion-scope-action267_0)" " add-scope)" "((inner268_0)" -"(let-values(((the-struct_99)" +"(let-values(((the-struct_98)" "(root-expand-context/outer-inner" " v_103)))" "(if(expand-context/inner?" -" the-struct_99)" +" the-struct_98)" "(let-values(((allow-unbound?269_0)" " #f)" "((namespace270_0)" " m-ns_18)" "((phase271_0)" -" phase_153)" +" phase_154)" "((just-once?272_0)" " #f))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi" -" the-struct_99)" +" the-struct_98)" "(root-expand-context/inner-module-scopes" -" the-struct_99)" +" the-struct_98)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_99)" +" the-struct_98)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_99)" +" the-struct_98)" "(root-expand-context/inner-defined-syms" -" the-struct_99)" +" the-struct_98)" "(root-expand-context/inner-counter" -" the-struct_99)" +" the-struct_98)" "(root-expand-context/inner-lift-key" -" the-struct_99)" +" the-struct_98)" "(expand-context/inner-to-parsed?" -" the-struct_99)" +" the-struct_98)" " phase271_0" " namespace270_0" " just-once?272_0" "(expand-context/inner-module-begin-k" -" the-struct_99)" +" the-struct_98)" " allow-unbound?269_0" "(expand-context/inner-in-local-expand?" -" the-struct_99)" +" the-struct_98)" "(expand-context/inner-stops" -" the-struct_99)" +" the-struct_98)" "(expand-context/inner-declared-submodule-names" -" the-struct_99)" +" the-struct_98)" "(expand-context/inner-lifts" -" the-struct_99)" +" the-struct_98)" "(expand-context/inner-lift-envs" -" the-struct_99)" +" the-struct_98)" "(expand-context/inner-module-lifts" -" the-struct_99)" +" the-struct_98)" "(expand-context/inner-require-lifts" -" the-struct_99)" +" the-struct_98)" "(expand-context/inner-to-module-lifts" -" the-struct_99)" +" the-struct_98)" "(expand-context/inner-requires+provides" -" the-struct_99)" +" the-struct_98)" "(expand-context/inner-observer" -" the-struct_99)" +" the-struct_98)" "(expand-context/inner-for-serializable?" -" the-struct_99)" +" the-struct_98)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_99)))" +" the-struct_98)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_99)))))" +" the-struct_98)))))" "(expand-context/outer1.1" " inner268_0" "(root-expand-context/outer-post-expansion-scope" @@ -72136,57 +72264,57 @@ static const char *startup_source = " _274_0" " _275_0" " body276_0)" -"(let-values(((s_769)" +"(let-values(((s_767)" " scoped-s_0))" "(let-values(((orig-s_84)" -" s_769))" +" s_767))" "(let-values(((_273_1" " _274_1" " _275_1" " body276_1)" -"(let-values(((s_398)" +"(let-values(((s_399)" "(if(syntax?$1" -" s_769)" +" s_767)" "(syntax-e$1" -" s_769)" -" s_769)))" +" s_767)" +" s_767)))" "(if(pair?" -" s_398)" +" s_399)" "(let-values(((_277_2)" -"(let-values(((s_744)" +"(let-values(((s_743)" "(car" -" s_398)))" -" s_744))" +" s_399)))" +" s_743))" "((_278_2" " _279_0" " body280_0)" -"(let-values(((s_202)" +"(let-values(((s_203)" "(cdr" -" s_398)))" -"(let-values(((s_384)" +" s_399)))" +"(let-values(((s_385)" "(if(syntax?$1" -" s_202)" +" s_203)" "(syntax-e$1" -" s_202)" -" s_202)))" +" s_203)" +" s_203)))" "(if(pair?" -" s_384)" +" s_385)" "(let-values(((_281_1)" -"(let-values(((s_205)" +"(let-values(((s_206)" "(car" -" s_384)))" -" s_205))" +" s_385)))" +" s_206))" "((_282_0" " body283_0)" -"(let-values(((s_746)" +"(let-values(((s_745)" "(cdr" -" s_384)))" +" s_385)))" "(let-values(((s_92)" "(if(syntax?$1" -" s_746)" +" s_745)" "(syntax-e$1" -" s_746)" -" s_746)))" +" s_745)" +" s_745)))" "(if(pair?" " s_92)" "(let-values(((_284_0)" @@ -72195,18 +72323,18 @@ static const char *startup_source = " s_92)))" " s_68))" "((body285_0)" -"(let-values(((s_149)" +"(let-values(((s_316)" "(cdr" " s_92)))" -"(let-values(((s_316)" +"(let-values(((s_317)" "(if(syntax?$1" -" s_149)" +" s_316)" "(syntax-e$1" -" s_149)" -" s_149)))" +" s_316)" +" s_316)))" "(let-values(((flat-s_54)" "(to-syntax-list.1" -" s_316)))" +" s_317)))" "(if(not" " flat-s_54)" "(let-values()" @@ -72382,18 +72510,18 @@ static const char *startup_source = "(let-values(((ctx_113)" "(let-values(((v_264)" " mb-init-ctx_0))" -"(let-values(((the-struct_100)" +"(let-values(((the-struct_99)" " v_264))" "(if(expand-context/outer?" -" the-struct_100)" +" the-struct_99)" "(let-values(((inner306_0)" -"(let-values(((the-struct_101)" +"(let-values(((the-struct_100)" "(root-expand-context/outer-inner" " v_264)))" "(if(expand-context/inner?" -" the-struct_101)" +" the-struct_100)" "(let-values(((module-begin-k307_0)" -"(lambda(s_770" +"(lambda(s_768" " ctx_114)" "(begin" " 'module-begin-k307" @@ -72430,7 +72558,7 @@ static const char *startup_source = " compiled-module-box313_0)))" "(lambda()" "(module-begin-k_1" -" s_770" +" s_768" " ctx_114))" "(lambda()" "(begin" @@ -72442,92 +72570,92 @@ static const char *startup_source = " compiled-module-box310_0))))))))))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi" -" the-struct_101)" +" the-struct_100)" "(root-expand-context/inner-module-scopes" -" the-struct_101)" +" the-struct_100)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_101)" +" the-struct_100)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_101)" +" the-struct_100)" "(root-expand-context/inner-defined-syms" -" the-struct_101)" +" the-struct_100)" "(root-expand-context/inner-counter" -" the-struct_101)" +" the-struct_100)" "(root-expand-context/inner-lift-key" -" the-struct_101)" +" the-struct_100)" "(expand-context/inner-to-parsed?" -" the-struct_101)" +" the-struct_100)" "(expand-context/inner-phase" -" the-struct_101)" +" the-struct_100)" "(expand-context/inner-namespace" -" the-struct_101)" +" the-struct_100)" "(expand-context/inner-just-once?" -" the-struct_101)" +" the-struct_100)" " module-begin-k307_0" "(expand-context/inner-allow-unbound?" -" the-struct_101)" +" the-struct_100)" "(expand-context/inner-in-local-expand?" -" the-struct_101)" +" the-struct_100)" "(expand-context/inner-stops" -" the-struct_101)" +" the-struct_100)" "(expand-context/inner-declared-submodule-names" -" the-struct_101)" +" the-struct_100)" "(expand-context/inner-lifts" -" the-struct_101)" +" the-struct_100)" "(expand-context/inner-lift-envs" -" the-struct_101)" +" the-struct_100)" "(expand-context/inner-module-lifts" -" the-struct_101)" +" the-struct_100)" "(expand-context/inner-require-lifts" -" the-struct_101)" +" the-struct_100)" "(expand-context/inner-to-module-lifts" -" the-struct_101)" +" the-struct_100)" "(expand-context/inner-requires+provides" -" the-struct_101)" +" the-struct_100)" "(expand-context/inner-observer" -" the-struct_101)" +" the-struct_100)" "(expand-context/inner-for-serializable?" -" the-struct_101)" +" the-struct_100)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_101)))" -"(raise-argument-error" -" 'struct-copy" -" \"expand-context/inner?\"" -" the-struct_101)))))" -"(expand-context/outer1.1" -" inner306_0" -"(root-expand-context/outer-post-expansion-scope" -" the-struct_100)" -"(root-expand-context/outer-use-site-scopes" -" the-struct_100)" -"(root-expand-context/outer-frame-id" -" the-struct_100)" -"(expand-context/outer-context" -" the-struct_100)" -"(expand-context/outer-env" -" the-struct_100)" -"(expand-context/outer-post-expansion-scope-action" -" the-struct_100)" -"(expand-context/outer-scopes" -" the-struct_100)" -"(expand-context/outer-def-ctx-scopes" -" the-struct_100)" -"(expand-context/outer-binding-layer" -" the-struct_100)" -"(expand-context/outer-reference-records" -" the-struct_100)" -"(expand-context/outer-only-immediate?" -" the-struct_100)" -"(expand-context/outer-need-eventually-defined" -" the-struct_100)" -"(expand-context/outer-current-introduction-scopes" -" the-struct_100)" -"(expand-context/outer-name" " the-struct_100)))" "(raise-argument-error" " 'struct-copy" +" \"expand-context/inner?\"" +" the-struct_100)))))" +"(expand-context/outer1.1" +" inner306_0" +"(root-expand-context/outer-post-expansion-scope" +" the-struct_99)" +"(root-expand-context/outer-use-site-scopes" +" the-struct_99)" +"(root-expand-context/outer-frame-id" +" the-struct_99)" +"(expand-context/outer-context" +" the-struct_99)" +"(expand-context/outer-env" +" the-struct_99)" +"(expand-context/outer-post-expansion-scope-action" +" the-struct_99)" +"(expand-context/outer-scopes" +" the-struct_99)" +"(expand-context/outer-def-ctx-scopes" +" the-struct_99)" +"(expand-context/outer-binding-layer" +" the-struct_99)" +"(expand-context/outer-reference-records" +" the-struct_99)" +"(expand-context/outer-only-immediate?" +" the-struct_99)" +"(expand-context/outer-need-eventually-defined" +" the-struct_99)" +"(expand-context/outer-current-introduction-scopes" +" the-struct_99)" +"(expand-context/outer-name" +" the-struct_99)))" +"(raise-argument-error" +" 'struct-copy" " \"expand-context/outer?\"" -" the-struct_100))))))" +" the-struct_99))))))" "(let-values(((added-s_2)" "(add-scope" " mb-s_0" @@ -72575,7 +72703,7 @@ static const char *startup_source = "(let-values(((s_119)" "(cdr" " s_218)))" -"(let-values(((s_771)" +"(let-values(((s_769)" "(if(syntax?$1" " s_119)" "(syntax-e$1" @@ -72583,7 +72711,7 @@ static const char *startup_source = " s_119)))" "(let-values(((flat-s_55)" "(to-syntax-list.1" -" s_771)))" +" s_769)))" "(if(not" " flat-s_55)" "(let-values()" @@ -72631,7 +72759,7 @@ static const char *startup_source = "(let-values(((expression-expanded-bodys_0)" "((letrec-values(((pass-1-and-2-loop_0)" "(lambda(bodys_17" -" phase_154)" +" phase_155)" "(begin" " 'pass-1-and-2-loop" "(let-values(((def-ctx-scopes_8)" @@ -72643,10 +72771,10 @@ static const char *startup_source = "(let-values(((partial-body-ctx_0)" "(let-values(((v_265)" " ctx_113))" -"(let-values(((the-struct_102)" +"(let-values(((the-struct_101)" " v_265))" "(if(expand-context/outer?" -" the-struct_102)" +" the-struct_101)" "(let-values(((context326_0)" " 'module)" "((def-ctx-scopes327_0)" @@ -72660,16 +72788,16 @@ static const char *startup_source = "(if(expand-context/inner?" " the-struct_58)" "(let-values(((phase330_0)" -" phase_154)" +" phase_155)" "((namespace331_0)" "(namespace->namespace-at-phase" " m-ns_18" -" phase_154))" +" phase_155))" "((stops332_0)" "(free-id-set" -" phase_154" +" phase_155" "(module-expand-stop-ids" -" phase_154)))" +" phase_155)))" "((declared-submodule-names333_0)" " declared-submodule-names_3)" "((lift-key334_0)" @@ -72689,11 +72817,11 @@ static const char *startup_source = " temp339_1)))" "((module-lifts336_0)" "(make-module-lift-context" -" phase_154" +" phase_155" " #t))" "((require-lifts337_0)" "(make-require-lift-context" -" phase_154" +" phase_155" "(let-values(((m-ns340_0)" " m-ns_18)" "((self341_0)" @@ -72709,7 +72837,7 @@ static const char *startup_source = " requires+provides342_0))))" "((to-module-lifts338_0)" "(let-values(((phase344_0)" -" phase_154)" +" phase_155)" "((module-ends345_0)" " module-ends_0)" "((temp346_1)" @@ -72767,39 +72895,39 @@ static const char *startup_source = "(expand-context/outer1.1" " inner329_0" "(root-expand-context/outer-post-expansion-scope" -" the-struct_102)" +" the-struct_101)" "(root-expand-context/outer-use-site-scopes" -" the-struct_102)" +" the-struct_101)" "(root-expand-context/outer-frame-id" -" the-struct_102)" +" the-struct_101)" " context326_0" "(expand-context/outer-env" -" the-struct_102)" +" the-struct_101)" "(expand-context/outer-post-expansion-scope-action" -" the-struct_102)" +" the-struct_101)" "(expand-context/outer-scopes" -" the-struct_102)" +" the-struct_101)" " def-ctx-scopes327_0" "(expand-context/outer-binding-layer" -" the-struct_102)" +" the-struct_101)" "(expand-context/outer-reference-records" -" the-struct_102)" +" the-struct_101)" "(expand-context/outer-only-immediate?" -" the-struct_102)" +" the-struct_101)" " need-eventually-defined328_0" "(expand-context/outer-current-introduction-scopes" -" the-struct_102)" +" the-struct_101)" "(expand-context/outer-name" -" the-struct_102)))" +" the-struct_101)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_102))))))" +" the-struct_101))))))" "(let-values(((partially-expanded-bodys_0)" "(let-values(((bodys347_0)" " bodys_17)" "((phase348_0)" -" phase_154)" +" phase_155)" "((partial-body-ctx349_0)" " partial-body-ctx_0)" "((m-ns350_0)" @@ -72863,25 +72991,25 @@ static const char *startup_source = "(accumulate-def-ctx-scopes" " partial-body-ctx_0" " def-ctx-scopes_8)))" -"(let-values(((the-struct_103)" +"(let-values(((the-struct_102)" " v_266))" "(if(expand-context/outer?" -" the-struct_103)" +" the-struct_102)" "(let-values(((def-ctx-scopes363_0)" " #f)" "((post-expansion-scope364_0)" " #f)" "((inner365_0)" -"(let-values(((the-struct_104)" +"(let-values(((the-struct_103)" "(root-expand-context/outer-inner" " v_266)))" "(if(expand-context/inner?" -" the-struct_104)" +" the-struct_103)" "(let-values(((stops366_0)" " empty-free-id-set)" "((to-module-lifts367_0)" "(let-values(((phase368_0)" -" phase_154)" +" phase_155)" "((module-ends369_0)" " module-ends_0)" "((temp370_0)" @@ -72892,93 +73020,93 @@ static const char *startup_source = " phase368_0))))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi" -" the-struct_104)" +" the-struct_103)" "(root-expand-context/inner-module-scopes" -" the-struct_104)" +" the-struct_103)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_104)" +" the-struct_103)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_104)" +" the-struct_103)" "(root-expand-context/inner-defined-syms" -" the-struct_104)" +" the-struct_103)" "(root-expand-context/inner-counter" -" the-struct_104)" +" the-struct_103)" "(root-expand-context/inner-lift-key" -" the-struct_104)" +" the-struct_103)" "(expand-context/inner-to-parsed?" -" the-struct_104)" +" the-struct_103)" "(expand-context/inner-phase" -" the-struct_104)" +" the-struct_103)" "(expand-context/inner-namespace" -" the-struct_104)" +" the-struct_103)" "(expand-context/inner-just-once?" -" the-struct_104)" +" the-struct_103)" "(expand-context/inner-module-begin-k" -" the-struct_104)" +" the-struct_103)" "(expand-context/inner-allow-unbound?" -" the-struct_104)" +" the-struct_103)" "(expand-context/inner-in-local-expand?" -" the-struct_104)" +" the-struct_103)" " stops366_0" "(expand-context/inner-declared-submodule-names" -" the-struct_104)" +" the-struct_103)" "(expand-context/inner-lifts" -" the-struct_104)" +" the-struct_103)" "(expand-context/inner-lift-envs" -" the-struct_104)" +" the-struct_103)" "(expand-context/inner-module-lifts" -" the-struct_104)" +" the-struct_103)" "(expand-context/inner-require-lifts" -" the-struct_104)" +" the-struct_103)" " to-module-lifts367_0" "(expand-context/inner-requires+provides" -" the-struct_104)" +" the-struct_103)" "(expand-context/inner-observer" -" the-struct_104)" +" the-struct_103)" "(expand-context/inner-for-serializable?" -" the-struct_104)" +" the-struct_103)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_104)))" +" the-struct_103)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_104)))))" +" the-struct_103)))))" "(expand-context/outer1.1" " inner365_0" " post-expansion-scope364_0" "(root-expand-context/outer-use-site-scopes" -" the-struct_103)" +" the-struct_102)" "(root-expand-context/outer-frame-id" -" the-struct_103)" +" the-struct_102)" "(expand-context/outer-context" -" the-struct_103)" +" the-struct_102)" "(expand-context/outer-env" -" the-struct_103)" +" the-struct_102)" "(expand-context/outer-post-expansion-scope-action" -" the-struct_103)" +" the-struct_102)" "(expand-context/outer-scopes" -" the-struct_103)" +" the-struct_102)" " def-ctx-scopes363_0" "(expand-context/outer-binding-layer" -" the-struct_103)" +" the-struct_102)" "(expand-context/outer-reference-records" -" the-struct_103)" +" the-struct_102)" "(expand-context/outer-only-immediate?" -" the-struct_103)" +" the-struct_102)" "(expand-context/outer-need-eventually-defined" -" the-struct_103)" +" the-struct_102)" "(expand-context/outer-current-introduction-scopes" -" the-struct_103)" +" the-struct_102)" "(expand-context/outer-name" -" the-struct_103)))" +" the-struct_102)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_103))))))" +" the-struct_102))))))" "(let-values(((partially-expanded-bodys318_0)" " partially-expanded-bodys_0)" "((phase319_0)" -" phase_154)" +" phase_155)" "((body-ctx320_0)" " body-ctx_6)" "((self321_0)" @@ -73002,7 +73130,7 @@ static const char *startup_source = " partially-expanded-bodys318_0))))))))))))" " pass-1-and-2-loop_0)" " bodys_16" -" phase_153)))" +" phase_154)))" "(let-values((()" "(begin" "(check-defined-by-now" @@ -73033,7 +73161,7 @@ static const char *startup_source = "((m-ns374_0)" " m-ns_18)" "((phase375_0)" -" phase_153)" +" phase_154)" "((self376_0)" " self_32)" "((ctx377_0)" @@ -73097,108 +73225,108 @@ static const char *startup_source = "(let-values(((submod-ctx_0)" "(let-values(((v_81)" " ctx_113))" -"(let-values(((the-struct_105)" +"(let-values(((the-struct_104)" " v_81))" "(if(expand-context/outer?" -" the-struct_105)" +" the-struct_104)" "(let-values(((frame-id380_0)" " #f)" "((post-expansion-scope381_0)" " #f)" "((inner382_0)" -"(let-values(((the-struct_106)" +"(let-values(((the-struct_105)" "(root-expand-context/outer-inner" " v_81)))" "(if(expand-context/inner?" -" the-struct_106)" +" the-struct_105)" "(let-values(((namespace383_0)" " submod-m-ns_0))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi" -" the-struct_106)" +" the-struct_105)" "(root-expand-context/inner-module-scopes" -" the-struct_106)" +" the-struct_105)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_106)" +" the-struct_105)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_106)" +" the-struct_105)" "(root-expand-context/inner-defined-syms" -" the-struct_106)" +" the-struct_105)" "(root-expand-context/inner-counter" -" the-struct_106)" +" the-struct_105)" "(root-expand-context/inner-lift-key" -" the-struct_106)" +" the-struct_105)" "(expand-context/inner-to-parsed?" -" the-struct_106)" +" the-struct_105)" "(expand-context/inner-phase" -" the-struct_106)" +" the-struct_105)" " namespace383_0" "(expand-context/inner-just-once?" -" the-struct_106)" +" the-struct_105)" "(expand-context/inner-module-begin-k" -" the-struct_106)" +" the-struct_105)" "(expand-context/inner-allow-unbound?" -" the-struct_106)" +" the-struct_105)" "(expand-context/inner-in-local-expand?" -" the-struct_106)" +" the-struct_105)" "(expand-context/inner-stops" -" the-struct_106)" +" the-struct_105)" "(expand-context/inner-declared-submodule-names" -" the-struct_106)" +" the-struct_105)" "(expand-context/inner-lifts" -" the-struct_106)" +" the-struct_105)" "(expand-context/inner-lift-envs" -" the-struct_106)" +" the-struct_105)" "(expand-context/inner-module-lifts" -" the-struct_106)" +" the-struct_105)" "(expand-context/inner-require-lifts" -" the-struct_106)" +" the-struct_105)" "(expand-context/inner-to-module-lifts" -" the-struct_106)" +" the-struct_105)" "(expand-context/inner-requires+provides" -" the-struct_106)" +" the-struct_105)" "(expand-context/inner-observer" -" the-struct_106)" +" the-struct_105)" "(expand-context/inner-for-serializable?" -" the-struct_106)" +" the-struct_105)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_106)))" +" the-struct_105)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_106)))))" +" the-struct_105)))))" "(expand-context/outer1.1" " inner382_0" " post-expansion-scope381_0" "(root-expand-context/outer-use-site-scopes" -" the-struct_105)" +" the-struct_104)" " frame-id380_0" "(expand-context/outer-context" -" the-struct_105)" +" the-struct_104)" "(expand-context/outer-env" -" the-struct_105)" +" the-struct_104)" "(expand-context/outer-post-expansion-scope-action" -" the-struct_105)" +" the-struct_104)" "(expand-context/outer-scopes" -" the-struct_105)" +" the-struct_104)" "(expand-context/outer-def-ctx-scopes" -" the-struct_105)" +" the-struct_104)" "(expand-context/outer-binding-layer" -" the-struct_105)" +" the-struct_104)" "(expand-context/outer-reference-records" -" the-struct_105)" +" the-struct_104)" "(expand-context/outer-only-immediate?" -" the-struct_105)" +" the-struct_104)" "(expand-context/outer-need-eventually-defined" -" the-struct_105)" +" the-struct_104)" "(expand-context/outer-current-introduction-scopes" -" the-struct_105)" +" the-struct_104)" "(expand-context/outer-name" -" the-struct_105)))" +" the-struct_104)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_105))))))" +" the-struct_104))))))" "(let-values(((declare-enclosing-module_0)" "(delay" "(lambda()" @@ -73249,7 +73377,7 @@ static const char *startup_source = "((declare-enclosing-module396_0)" " declare-enclosing-module_0)" "((phase397_0)" -" phase_153)" +" phase_154)" "((self398_0)" " self_32)" "((requires+provides399_0)" @@ -73317,108 +73445,108 @@ static const char *startup_source = "(let-values(((mb-ctx_0)" "(let-values(((v_267)" " ctx_112))" -"(let-values(((the-struct_107)" +"(let-values(((the-struct_106)" " v_267))" "(if(expand-context/outer?" -" the-struct_107)" +" the-struct_106)" "(let-values(((context409_0)" " 'module-begin)" "((inner410_0)" -"(let-values(((the-struct_108)" +"(let-values(((the-struct_107)" "(root-expand-context/outer-inner" " v_267)))" "(if(expand-context/inner?" -" the-struct_108)" +" the-struct_107)" "(let-values(((module-begin-k411_0)" " module-begin-k_1)" "((in-local-expand?412_0)" " #f))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi" -" the-struct_108)" +" the-struct_107)" "(root-expand-context/inner-module-scopes" -" the-struct_108)" +" the-struct_107)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_108)" +" the-struct_107)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_108)" +" the-struct_107)" "(root-expand-context/inner-defined-syms" -" the-struct_108)" +" the-struct_107)" "(root-expand-context/inner-counter" -" the-struct_108)" +" the-struct_107)" "(root-expand-context/inner-lift-key" -" the-struct_108)" +" the-struct_107)" "(expand-context/inner-to-parsed?" -" the-struct_108)" +" the-struct_107)" "(expand-context/inner-phase" -" the-struct_108)" +" the-struct_107)" "(expand-context/inner-namespace" -" the-struct_108)" +" the-struct_107)" "(expand-context/inner-just-once?" -" the-struct_108)" +" the-struct_107)" " module-begin-k411_0" "(expand-context/inner-allow-unbound?" -" the-struct_108)" +" the-struct_107)" " in-local-expand?412_0" "(expand-context/inner-stops" -" the-struct_108)" +" the-struct_107)" "(expand-context/inner-declared-submodule-names" -" the-struct_108)" +" the-struct_107)" "(expand-context/inner-lifts" -" the-struct_108)" +" the-struct_107)" "(expand-context/inner-lift-envs" -" the-struct_108)" +" the-struct_107)" "(expand-context/inner-module-lifts" -" the-struct_108)" +" the-struct_107)" "(expand-context/inner-require-lifts" -" the-struct_108)" +" the-struct_107)" "(expand-context/inner-to-module-lifts" -" the-struct_108)" +" the-struct_107)" "(expand-context/inner-requires+provides" -" the-struct_108)" +" the-struct_107)" "(expand-context/inner-observer" -" the-struct_108)" +" the-struct_107)" "(expand-context/inner-for-serializable?" -" the-struct_108)" +" the-struct_107)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_108)))" -"(raise-argument-error" -" 'struct-copy" -" \"expand-context/inner?\"" -" the-struct_108)))))" -"(expand-context/outer1.1" -" inner410_0" -"(root-expand-context/outer-post-expansion-scope" -" the-struct_107)" -"(root-expand-context/outer-use-site-scopes" -" the-struct_107)" -"(root-expand-context/outer-frame-id" -" the-struct_107)" -" context409_0" -"(expand-context/outer-env" -" the-struct_107)" -"(expand-context/outer-post-expansion-scope-action" -" the-struct_107)" -"(expand-context/outer-scopes" -" the-struct_107)" -"(expand-context/outer-def-ctx-scopes" -" the-struct_107)" -"(expand-context/outer-binding-layer" -" the-struct_107)" -"(expand-context/outer-reference-records" -" the-struct_107)" -"(expand-context/outer-only-immediate?" -" the-struct_107)" -"(expand-context/outer-need-eventually-defined" -" the-struct_107)" -"(expand-context/outer-current-introduction-scopes" -" the-struct_107)" -"(expand-context/outer-name" " the-struct_107)))" "(raise-argument-error" " 'struct-copy" +" \"expand-context/inner?\"" +" the-struct_107)))))" +"(expand-context/outer1.1" +" inner410_0" +"(root-expand-context/outer-post-expansion-scope" +" the-struct_106)" +"(root-expand-context/outer-use-site-scopes" +" the-struct_106)" +"(root-expand-context/outer-frame-id" +" the-struct_106)" +" context409_0" +"(expand-context/outer-env" +" the-struct_106)" +"(expand-context/outer-post-expansion-scope-action" +" the-struct_106)" +"(expand-context/outer-scopes" +" the-struct_106)" +"(expand-context/outer-def-ctx-scopes" +" the-struct_106)" +"(expand-context/outer-binding-layer" +" the-struct_106)" +"(expand-context/outer-reference-records" +" the-struct_106)" +"(expand-context/outer-only-immediate?" +" the-struct_106)" +"(expand-context/outer-need-eventually-defined" +" the-struct_106)" +"(expand-context/outer-current-introduction-scopes" +" the-struct_106)" +"(expand-context/outer-name" +" the-struct_106)))" +"(raise-argument-error" +" 'struct-copy" " \"expand-context/outer?\"" -" the-struct_107))))))" +" the-struct_106))))))" "(let-values(((mb-scopes-s_0)" "(if keep-enclosing-scope-at-phase_0" "(apply-module-scopes_0" @@ -73441,7 +73569,7 @@ static const char *startup_source = "((mb-def-ctx-scopes418_0)" " mb-def-ctx-scopes_0)" "((phase419_0)" -" phase_153)" +" phase_154)" "((s420_0)" " s_16))" "(ensure-module-begin36.1" @@ -73475,11 +73603,11 @@ static const char *startup_source = " self_32" " self_32)))" "(let-values(((result-form_0)" -"(if(let-values(((or-part_343)" +"(if(let-values(((or-part_345)" "(expand-context-to-parsed?" " init-ctx_0)))" -"(if or-part_343" -" or-part_343" +"(if or-part_345" +" or-part_345" " always-produce-compiled?_0))" "(parsed-module25.1" " rebuild-s_14" @@ -73525,18 +73653,18 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_145)))" -"((letrec-values(((for-loop_140)" -"(lambda(lst_423)" +"((letrec-values(((for-loop_141)" +"(lambda(lst_424)" "(begin" " 'for-loop" "(if(pair?" -" lst_423)" +" lst_424)" "(let-values(((mpi_59)" "(unsafe-car" -" lst_423))" -"((rest_245)" +" lst_424))" +"((rest_246)" "(unsafe-cdr" -" lst_423)))" +" lst_424)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -73549,11 +73677,11 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_140" -" rest_245)" +"(for-loop_141" +" rest_246)" "(values))))" "(values))))))" -" for-loop_140)" +" for-loop_141)" " lst_145)))" "(void)" "(let-values(((result-s_15)" @@ -73636,40 +73764,40 @@ static const char *startup_source = "(let-values()" "(let-values(((ctx_115) ctx24_0))" "(let-values(((def-ctx-scopes_9) def-ctx-scopes25_0))" -"(let-values(((phase_155) phase26_3))" -"(let-values(((s_772) s27_2))" +"(let-values(((phase_156) phase26_3))" +"(let-values(((s_770) s27_2))" "(let-values()" "(let-values(((make-mb-ctx_0)" "(lambda()" "(begin" " 'make-mb-ctx" "(let-values(((v_268) ctx_115))" -"(let-values(((the-struct_109) v_268))" -"(if(expand-context/outer? the-struct_109)" +"(let-values(((the-struct_108) v_268))" +"(if(expand-context/outer? the-struct_108)" "(let-values(((context428_0) 'module-begin)" "((only-immediate?429_0) #t)" "((def-ctx-scopes430_0) def-ctx-scopes_9)" "((inner431_0)(root-expand-context/outer-inner v_268)))" "(expand-context/outer1.1" " inner431_0" -"(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)" +"(root-expand-context/outer-post-expansion-scope the-struct_108)" +"(root-expand-context/outer-use-site-scopes the-struct_108)" +"(root-expand-context/outer-frame-id the-struct_108)" " context428_0" -"(expand-context/outer-env the-struct_109)" -"(expand-context/outer-post-expansion-scope-action the-struct_109)" -"(expand-context/outer-scopes the-struct_109)" +"(expand-context/outer-env the-struct_108)" +"(expand-context/outer-post-expansion-scope-action the-struct_108)" +"(expand-context/outer-scopes the-struct_108)" " def-ctx-scopes430_0" -"(expand-context/outer-binding-layer the-struct_109)" -"(expand-context/outer-reference-records the-struct_109)" +"(expand-context/outer-binding-layer the-struct_108)" +"(expand-context/outer-reference-records the-struct_108)" " only-immediate?429_0" -"(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)))" +"(expand-context/outer-need-eventually-defined the-struct_108)" +"(expand-context/outer-current-introduction-scopes the-struct_108)" +"(expand-context/outer-name the-struct_108)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_109))))))))" +" the-struct_108))))))))" "(let-values(((mb_1)" "(if(= 1(length bodys_18))" "(let-values()" @@ -73682,7 +73810,7 @@ static const char *startup_source = "(void)))" "(if(eq?" " '#%module-begin" -"(core-form-sym(syntax-disarm$1(car bodys_18)) phase_155))" +"(core-form-sym(syntax-disarm$1(car bodys_18)) phase_156))" "(let-values()(car bodys_18))" "(let-values()" "(let-values(((partly-expanded-body_0)" @@ -73697,13 +73825,13 @@ static const char *startup_source = " '#%module-begin" "(core-form-sym" "(syntax-disarm$1 partly-expanded-body_0)" -" phase_155))" +" phase_156))" "(let-values() partly-expanded-body_0)" "(let-values()" "(let-values(((temp434_0)(list partly-expanded-body_0))" -"((s435_0) s_772)" +"((s435_0) s_770)" "((scopes-s436_0) scopes-s_0)" -"((phase437_0) phase_155)" +"((phase437_0) phase_156)" "((module-name-sym438_0) module-name-sym_1)" "((temp439_0)(make-mb-ctx_0))" "((temp440_0) #f))" @@ -73718,9 +73846,9 @@ static const char *startup_source = " temp439_0)))))))))" "(let-values()" "(let-values(((bodys441_0) bodys_18)" -"((s442_0) s_772)" +"((s442_0) s_770)" "((scopes-s443_0) scopes-s_0)" -"((phase444_0) phase_155)" +"((phase444_0) phase_156)" "((module-name-sym445_0) module-name-sym_1)" "((temp446_0)(make-mb-ctx_0)))" "(add-module-begin47.1" @@ -73748,7 +73876,7 @@ static const char *startup_source = "(let-values(((bodys_19) bodys41_0))" "(let-values(((s_519) s42_0))" "(let-values(((scopes-s_1) scopes-s43_0))" -"(let-values(((phase_156) phase44_1))" +"(let-values(((phase_157) phase44_1))" "(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)))" @@ -73757,7 +73885,7 @@ static const char *startup_source = "(let-values(((mb-id_0)(datum->syntax$1 disarmed-scopes-s_0 '#%module-begin)))" "(let-values((()" "(begin" -"(if(let-values(((mb-id447_0) mb-id_0)((phase448_0) phase_156))" +"(if(let-values(((mb-id447_0) mb-id_0)((phase448_0) phase_157))" "(resolve40.1 #f #f #f #f #f #f #f #f mb-id447_0 phase448_0))" "(void)" "(let-values()" @@ -73797,7 +73925,7 @@ static const char *startup_source = "(begin" "(if(eq?" " '#%module-begin" -"(core-form-sym(syntax-disarm$1 partly-expanded-mb_0) phase_156))" +"(core-form-sym(syntax-disarm$1 partly-expanded-mb_0) phase_157))" "(void)" "(let-values()" "(raise-syntax-error$1" @@ -73819,13 +73947,13 @@ static const char *startup_source = " enclosing-self_2" " enclosing-mod_2)" "(begin" -"(lambda(s_773)" +"(lambda(s_771)" "(let-values()" "(let-values(((s-without-enclosing_0)" "(if keep-enclosing-scope-at-phase_1" -" s_773" +" s_771" "(remove-use-site-scopes" -"(remove-scopes s_773(root-expand-context-module-scopes init-ctx_1))" +"(remove-scopes s_771(root-expand-context-module-scopes init-ctx_1))" " init-ctx_1))))" "(let-values(((s-with-edges_0)" "(add-scope(add-scope s-without-enclosing_0 outside-scope_2) inside-scope_1)))" @@ -73877,7 +74005,7 @@ static const char *startup_source = "(begin" " 'partially-expand-bodys81" "(let-values(((bodys_20) bodys80_0))" -"(let-values(((phase_157) phase50_0))" +"(let-values(((phase_158) phase50_0))" "(let-values(((partial-body-ctx_1) ctx51_0))" "(let-values(((m-ns_19) namespace52_0))" "(let-values(((self_34) self53_0))" @@ -73894,14 +74022,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_157)" +"(namespace-visit-available-modules! m-ns_19 phase_158)" "((letrec-values(((loop_125)" "(lambda(tail?_52 bodys_21)" "(begin" " 'loop" "(if(null? bodys_21)" "(let-values()" -"(if(if tail?_52(not(zero? phase_157)) #f)" +"(if(if tail?_52(not(zero? phase_158)) #f)" "(let-values()" "(begin" "(let-values(((obs_134)" @@ -74008,7 +74136,7 @@ static const char *startup_source = "(let-values(((tmp_68)" "(core-form-sym" " disarmed-exp-body_1" -" phase_157)))" +" phase_158)))" "(if(equal?" " tmp_68" " 'begin)" @@ -74022,32 +74150,32 @@ static const char *startup_source = " s_146))" "(let-values(((begin460_1" " e461_2)" -"(let-values(((s_774)" +"(let-values(((s_772)" "(if(syntax?$1" " s_146)" "(syntax-e$1" " s_146)" " s_146)))" "(if(pair?" -" s_774)" +" s_772)" "(let-values(((begin462_0)" -"(let-values(((s_775)" +"(let-values(((s_773)" "(car" -" s_774)))" -" s_775))" +" s_772)))" +" s_773))" "((e463_0)" -"(let-values(((s_776)" +"(let-values(((s_774)" "(cdr" -" s_774)))" -"(let-values(((s_777)" +" s_772)))" +"(let-values(((s_775)" "(if(syntax?$1" -" s_776)" +" s_774)" "(syntax-e$1" -" s_776)" -" s_776)))" +" s_774)" +" s_774)))" "(let-values(((flat-s_56)" "(to-syntax-list.1" -" s_777)))" +" s_775)))" "(if(not" " flat-s_56)" "(let-values()" @@ -74069,11 +74197,11 @@ static const char *startup_source = " begin460_1" " e461_2))))))" "(let-values(((track_1)" -"(lambda(e_97)" +"(lambda(e_98)" "(begin" " 'track" "(syntax-track-origin$1" -" e_97" +" e_98" " exp-body_7)))))" "(let-values(((spliced-bodys_0)" "(append" @@ -74125,7 +74253,7 @@ static const char *startup_source = "(namespace->namespace-at-phase" " m-ns_19" "(add1" -" phase_157))))" +" phase_158))))" "(let-values((()" "(begin" "(prepare-next-phase-namespace" @@ -74147,38 +74275,38 @@ static const char *startup_source = "(let-values(((ok?_79" " begin-for-syntax464_0" " e465_0)" -"(let-values(((s_778)" +"(let-values(((s_776)" " disarmed-exp-body_1))" "(let-values(((orig-s_87)" -" s_778))" +" s_776))" "(let-values(((begin-for-syntax464_1" " e465_1)" -"(let-values(((s_779)" +"(let-values(((s_777)" "(if(syntax?$1" -" s_778)" +" s_776)" "(syntax-e$1" -" s_778)" -" s_778)))" +" s_776)" +" s_776)))" "(if(pair?" -" s_779)" +" s_777)" "(let-values(((begin-for-syntax466_0)" -"(let-values(((s_780)" +"(let-values(((s_778)" "(car" -" s_779)))" -" s_780))" +" s_777)))" +" s_778))" "((e467_0)" -"(let-values(((s_781)" +"(let-values(((s_779)" "(cdr" -" s_779)))" -"(let-values(((s_782)" +" s_777)))" +"(let-values(((s_780)" "(if(syntax?$1" -" s_781)" +" s_779)" "(syntax-e$1" -" s_781)" -" s_781)))" +" s_779)" +" s_779)))" "(let-values(((flat-s_57)" "(to-syntax-list.1" -" s_782)))" +" s_780)))" "(if(not" " flat-s_57)" "(let-values()" @@ -74203,7 +74331,7 @@ static const char *startup_source = "(pass-1-and-2-loop_1" " e465_0" "(add1" -" phase_157))))" +" phase_158))))" "(begin" "(let-values(((obs_141)" "(expand-context-observer" @@ -74218,17 +74346,17 @@ static const char *startup_source = "(namespace-run-available-modules!" " m-ns_19" "(add1" -" phase_157))" +" phase_158))" "(eval-nested-bodys" " nested-bodys_1" "(add1" -" phase_157)" +" phase_158)" " ct-m-ns_0" " self_34" " partial-body-ctx_1)" "(namespace-visit-available-modules!" " m-ns_19" -" phase_157)" +" phase_158)" "(let-values(((obs_142)" "(expand-context-observer" " partial-body-ctx_1)))" @@ -74240,7 +74368,7 @@ static const char *startup_source = " 'exit-prim" "(let-values(((s-nested-bodys_0)" "(reverse$1" -"(let-values(((lst_424)" +"(let-values(((lst_425)" " nested-bodys_1))" "(begin" "(if(variable-reference-from-unsafe?" @@ -74248,42 +74376,42 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_424)))" -"((letrec-values(((for-loop_321)" -"(lambda(fold-var_368" -" lst_425)" +" lst_425)))" +"((letrec-values(((for-loop_324)" +"(lambda(fold-var_370" +" lst_426)" "(begin" " 'for-loop" "(if(pair?" -" lst_425)" +" lst_426)" "(let-values(((nested-body_0)" "(unsafe-car" -" lst_425))" -"((rest_246)" +" lst_426))" +"((rest_247)" "(unsafe-cdr" -" lst_425)))" -"(let-values(((fold-var_381)" -"(let-values(((fold-var_382)" -" fold-var_368))" +" lst_426)))" "(let-values(((fold-var_383)" +"(let-values(((fold-var_384)" +" fold-var_370))" +"(let-values(((fold-var_385)" "(let-values()" "(cons" "(let-values()" "(extract-syntax" " nested-body_0))" -" fold-var_382))))" +" fold-var_384))))" "(values" -" fold-var_383)))))" +" fold-var_385)))))" "(if(not" " #f)" -"(for-loop_321" -" fold-var_381" -" rest_246)" -" fold-var_381)))" -" fold-var_368)))))" -" for-loop_321)" +"(for-loop_324" +" fold-var_383" +" rest_247)" +" fold-var_383)))" +" fold-var_370)))))" +" for-loop_324)" " null" -" lst_424))))))" +" lst_425))))))" "(datum->syntax$1" " #f" "(cons" @@ -74324,52 +74452,52 @@ static const char *startup_source = " define-values468_0" " id469_0" " rhs470_0)" -"(let-values(((s_783)" +"(let-values(((s_781)" " disarmed-exp-body_1))" "(let-values(((orig-s_88)" -" s_783))" +" s_781))" "(let-values(((define-values468_1" " id469_1" " rhs470_1)" +"(let-values(((s_782)" +"(if(syntax?$1" +" s_781)" +"(syntax-e$1" +" s_781)" +" s_781)))" +"(if(pair?" +" s_782)" +"(let-values(((define-values471_0)" +"(let-values(((s_783)" +"(car" +" s_782)))" +" s_783))" +"((id472_0" +" rhs473_0)" +"(let-values(((s_190)" +"(cdr" +" s_782)))" "(let-values(((s_784)" "(if(syntax?$1" -" s_783)" +" s_190)" "(syntax-e$1" -" s_783)" -" s_783)))" +" s_190)" +" s_190)))" "(if(pair?" " s_784)" -"(let-values(((define-values471_0)" +"(let-values(((id474_0)" "(let-values(((s_785)" "(car" " s_784)))" -" s_785))" -"((id472_0" -" rhs473_0)" -"(let-values(((s_189)" -"(cdr" -" s_784)))" "(let-values(((s_786)" "(if(syntax?$1" -" s_189)" +" s_785)" "(syntax-e$1" -" s_189)" -" s_189)))" -"(if(pair?" -" s_786)" -"(let-values(((id474_0)" -"(let-values(((s_787)" -"(car" -" s_786)))" -"(let-values(((s_788)" -"(if(syntax?$1" -" s_787)" -"(syntax-e$1" -" s_787)" -" s_787)))" +" s_785)" +" s_785)))" "(let-values(((flat-s_58)" "(to-syntax-list.1" -" s_788)))" +" s_786)))" "(if(not" " flat-s_58)" "(let-values()" @@ -74378,8 +74506,8 @@ static const char *startup_source = " \"bad syntax\"" " orig-s_88))" "(let-values()" -"(let-values(((id_153)" -"(let-values(((lst_426)" +"(let-values(((id_154)" +"(let-values(((lst_427)" " flat-s_58))" "(begin" "(if(variable-reference-from-unsafe?" @@ -74387,90 +74515,90 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_426)))" -"((letrec-values(((for-loop_322)" -"(lambda(id_154" -" lst_427)" +" lst_427)))" +"((letrec-values(((for-loop_325)" +"(lambda(id_155" +" lst_428)" "(begin" " 'for-loop" "(if(pair?" -" lst_427)" -"(let-values(((s_789)" +" lst_428)" +"(let-values(((s_787)" "(unsafe-car" -" lst_427))" -"((rest_247)" +" lst_428))" +"((rest_248)" "(unsafe-cdr" -" lst_427)))" -"(let-values(((id_155)" +" lst_428)))" "(let-values(((id_156)" -" id_154))" "(let-values(((id_157)" +" id_155))" +"(let-values(((id_158)" "(let-values()" "(let-values(((id484_0)" "(let-values()" -"(if(let-values(((or-part_394)" +"(if(let-values(((or-part_395)" "(if(syntax?$1" -" s_789)" +" s_787)" "(symbol?" "(syntax-e$1" -" s_789))" +" s_787))" " #f)))" -"(if or-part_394" -" or-part_394" +"(if or-part_395" +" or-part_395" "(symbol?" -" s_789)))" -" s_789" +" s_787)))" +" s_787" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_88" -" s_789)))))" +" s_787)))))" "(cons" " id484_0" -" id_156)))))" -"(values" " id_157)))))" +"(values" +" id_158)))))" "(if(not" " #f)" -"(for-loop_322" -" id_155" -" rest_247)" -" id_155)))" -" id_154)))))" -" for-loop_322)" +"(for-loop_325" +" id_156" +" rest_248)" +" id_156)))" +" id_155)))))" +" for-loop_325)" " null" -" lst_426)))))" +" lst_427)))))" "(reverse$1" -" id_153))))))))" +" id_154))))))))" "((rhs475_0)" -"(let-values(((s_790)" +"(let-values(((s_788)" "(cdr" -" s_786)))" -"(let-values(((s_791)" +" s_784)))" +"(let-values(((s_789)" "(if(syntax?$1" -" s_790)" +" s_788)" "(syntax-e$1" -" s_790)" -" s_790)))" +" s_788)" +" s_788)))" "(if(pair?" -" s_791)" +" s_789)" "(let-values(((rhs476_0)" -"(let-values(((s_792)" +"(let-values(((s_790)" "(car" -" s_791)))" -" s_792))" +" s_789)))" +" s_790))" "(()" -"(let-values(((s_793)" +"(let-values(((s_791)" "(cdr" -" s_791)))" -"(let-values(((s_794)" +" s_789)))" +"(let-values(((s_792)" "(if(syntax?$1" -" s_793)" +" s_791)" "(syntax-e$1" -" s_793)" -" s_793)))" +" s_791)" +" s_791)))" "(if(null?" -" s_794)" +" s_792)" "(values)" "(raise-syntax-error$1" " #f" @@ -74511,7 +74639,7 @@ static const char *startup_source = "(let-values(((ids477_0)" " ids_43)" "((phase478_0)" -" phase_157)" +" phase_158)" "((exp-body479_0)" " exp-body_7))" "(check-no-duplicate-ids8.1" @@ -74528,7 +74656,7 @@ static const char *startup_source = "(let-values(((ids480_0)" " ids_43)" "((phase481_0)" -" phase_157)" +" phase_158)" "((requires+provides482_0)" " requires+provides_7)" "((exp-body483_0)" @@ -74547,7 +74675,7 @@ static const char *startup_source = "((self487_0)" " self_34)" "((phase488_0)" -" phase_157)" +" phase_158)" "((all-scopes-stx489_0)" " all-scopes-stx_5)" "((frame-id490_0)" @@ -74575,7 +74703,7 @@ static const char *startup_source = "(add-defined-syms!" " requires+provides_7" " syms_24" -" phase_157)" +" phase_158)" "(let-values(((obs_144)" "(expand-context-observer" " partial-body-ctx_1)))" @@ -74649,52 +74777,52 @@ static const char *startup_source = " define-syntaxes493_0" " id494_0" " rhs495_0)" -"(let-values(((s_795)" +"(let-values(((s_793)" " disarmed-exp-body_1))" "(let-values(((orig-s_89)" -" s_795))" +" s_793))" "(let-values(((define-syntaxes493_1" " id494_1" " rhs495_1)" -"(let-values(((s_796)" +"(let-values(((s_794)" "(if(syntax?$1" -" s_795)" +" s_793)" "(syntax-e$1" -" s_795)" -" s_795)))" +" s_793)" +" s_793)))" "(if(pair?" -" s_796)" +" s_794)" "(let-values(((define-syntaxes496_0)" -"(let-values(((s_797)" +"(let-values(((s_795)" "(car" -" s_796)))" -" s_797))" +" s_794)))" +" s_795))" "((id497_0" " rhs498_0)" -"(let-values(((s_798)" +"(let-values(((s_796)" "(cdr" +" s_794)))" +"(let-values(((s_797)" +"(if(syntax?$1" +" s_796)" +"(syntax-e$1" +" s_796)" " s_796)))" +"(if(pair?" +" s_797)" +"(let-values(((id499_0)" +"(let-values(((s_798)" +"(car" +" s_797)))" "(let-values(((s_799)" "(if(syntax?$1" " s_798)" "(syntax-e$1" " s_798)" " s_798)))" -"(if(pair?" -" s_799)" -"(let-values(((id499_0)" -"(let-values(((s_800)" -"(car" -" s_799)))" -"(let-values(((s_801)" -"(if(syntax?$1" -" s_800)" -"(syntax-e$1" -" s_800)" -" s_800)))" "(let-values(((flat-s_59)" "(to-syntax-list.1" -" s_801)))" +" s_799)))" "(if(not" " flat-s_59)" "(let-values()" @@ -74703,8 +74831,8 @@ static const char *startup_source = " \"bad syntax\"" " orig-s_89))" "(let-values()" -"(let-values(((id_158)" -"(let-values(((lst_428)" +"(let-values(((id_159)" +"(let-values(((lst_429)" " flat-s_59))" "(begin" "(if(variable-reference-from-unsafe?" @@ -74712,90 +74840,90 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_428)))" -"((letrec-values(((for-loop_323)" -"(lambda(id_159" -" lst_429)" +" lst_429)))" +"((letrec-values(((for-loop_326)" +"(lambda(id_160" +" lst_430)" "(begin" " 'for-loop" "(if(pair?" -" lst_429)" -"(let-values(((s_802)" +" lst_430)" +"(let-values(((s_800)" "(unsafe-car" -" lst_429))" -"((rest_248)" +" lst_430))" +"((rest_249)" "(unsafe-cdr" -" lst_429)))" -"(let-values(((id_160)" +" lst_430)))" "(let-values(((id_161)" -" id_159))" "(let-values(((id_162)" +" id_160))" +"(let-values(((id_163)" "(let-values()" "(let-values(((id509_0)" "(let-values()" -"(if(let-values(((or-part_395)" +"(if(let-values(((or-part_396)" "(if(syntax?$1" -" s_802)" +" s_800)" "(symbol?" "(syntax-e$1" -" s_802))" +" s_800))" " #f)))" -"(if or-part_395" -" or-part_395" +"(if or-part_396" +" or-part_396" "(symbol?" -" s_802)))" -" s_802" +" s_800)))" +" s_800" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_89" -" s_802)))))" +" s_800)))))" "(cons" " id509_0" -" id_161)))))" -"(values" " id_162)))))" +"(values" +" id_163)))))" "(if(not" " #f)" -"(for-loop_323" -" id_160" -" rest_248)" -" id_160)))" -" id_159)))))" -" for-loop_323)" +"(for-loop_326" +" id_161" +" rest_249)" +" id_161)))" +" id_160)))))" +" for-loop_326)" " null" -" lst_428)))))" +" lst_429)))))" "(reverse$1" -" id_158))))))))" +" id_159))))))))" "((rhs500_0)" -"(let-values(((s_803)" +"(let-values(((s_801)" "(cdr" -" s_799)))" -"(let-values(((s_804)" +" s_797)))" +"(let-values(((s_802)" "(if(syntax?$1" -" s_803)" +" s_801)" "(syntax-e$1" -" s_803)" -" s_803)))" +" s_801)" +" s_801)))" "(if(pair?" -" s_804)" +" s_802)" "(let-values(((rhs501_0)" -"(let-values(((s_805)" +"(let-values(((s_803)" "(car" -" s_804)))" -" s_805))" +" s_802)))" +" s_803))" "(()" -"(let-values(((s_806)" +"(let-values(((s_804)" "(cdr" -" s_804)))" -"(let-values(((s_807)" +" s_802)))" +"(let-values(((s_805)" "(if(syntax?$1" -" s_806)" +" s_804)" "(syntax-e$1" -" s_806)" -" s_806)))" +" s_804)" +" s_804)))" "(if(null?" -" s_807)" +" s_805)" "(values)" "(raise-syntax-error$1" " #f" @@ -74836,7 +74964,7 @@ static const char *startup_source = "(let-values(((ids502_0)" " ids_44)" "((phase503_0)" -" phase_157)" +" phase_158)" "((exp-body504_0)" " exp-body_7))" "(check-no-duplicate-ids8.1" @@ -74853,7 +74981,7 @@ static const char *startup_source = "(let-values(((ids505_0)" " ids_44)" "((phase506_0)" -" phase_157)" +" phase_158)" "((requires+provides507_0)" " requires+provides_7)" "((exp-body508_0)" @@ -74872,7 +75000,7 @@ static const char *startup_source = "((self512_0)" " self_34)" "((phase513_0)" -" phase_157)" +" phase_158)" "((all-scopes-stx514_0)" " all-scopes-stx_5)" "((frame-id515_0)" @@ -74903,7 +75031,7 @@ static const char *startup_source = "(add-defined-syms!" " requires+provides_7" " syms_25" -" phase_157)" +" phase_158)" "(values))))" "(let-values(((exp-rhs_6" " parsed-rhs_2" @@ -74915,18 +75043,18 @@ static const char *startup_source = "((temp521_0)" "(let-values(((v_269)" " partial-body-ctx_1))" -"(let-values(((the-struct_110)" +"(let-values(((the-struct_109)" " v_269))" "(if(expand-context/outer?" -" the-struct_110)" +" the-struct_109)" "(let-values(((need-eventually-defined523_0)" " need-eventually-defined_2)" "((inner524_0)" -"(let-values(((the-struct_111)" +"(let-values(((the-struct_110)" "(root-expand-context/outer-inner" " v_269)))" "(if(expand-context/inner?" -" the-struct_111)" +" the-struct_110)" "(let-values(((lifts525_0)" " #f)" "((module-lifts526_0)" @@ -74935,89 +75063,89 @@ static const char *startup_source = " #f))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi" -" the-struct_111)" +" the-struct_110)" "(root-expand-context/inner-module-scopes" -" the-struct_111)" +" the-struct_110)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_111)" +" the-struct_110)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_111)" +" the-struct_110)" "(root-expand-context/inner-defined-syms" -" the-struct_111)" +" the-struct_110)" "(root-expand-context/inner-counter" -" the-struct_111)" +" the-struct_110)" "(root-expand-context/inner-lift-key" -" the-struct_111)" +" the-struct_110)" "(expand-context/inner-to-parsed?" -" the-struct_111)" +" the-struct_110)" "(expand-context/inner-phase" -" the-struct_111)" +" the-struct_110)" "(expand-context/inner-namespace" -" the-struct_111)" +" the-struct_110)" "(expand-context/inner-just-once?" -" the-struct_111)" +" the-struct_110)" "(expand-context/inner-module-begin-k" -" the-struct_111)" +" the-struct_110)" "(expand-context/inner-allow-unbound?" -" the-struct_111)" +" the-struct_110)" "(expand-context/inner-in-local-expand?" -" the-struct_111)" +" the-struct_110)" "(expand-context/inner-stops" -" the-struct_111)" +" the-struct_110)" "(expand-context/inner-declared-submodule-names" -" the-struct_111)" +" the-struct_110)" " lifts525_0" "(expand-context/inner-lift-envs" -" the-struct_111)" +" the-struct_110)" " module-lifts526_0" "(expand-context/inner-require-lifts" -" the-struct_111)" +" the-struct_110)" " to-module-lifts527_0" "(expand-context/inner-requires+provides" -" the-struct_111)" +" the-struct_110)" "(expand-context/inner-observer" -" the-struct_111)" +" the-struct_110)" "(expand-context/inner-for-serializable?" -" the-struct_111)" +" the-struct_110)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_111)))" -"(raise-argument-error" -" 'struct-copy" -" \"expand-context/inner?\"" -" the-struct_111)))))" -"(expand-context/outer1.1" -" inner524_0" -"(root-expand-context/outer-post-expansion-scope" -" the-struct_110)" -"(root-expand-context/outer-use-site-scopes" -" the-struct_110)" -"(root-expand-context/outer-frame-id" -" the-struct_110)" -"(expand-context/outer-context" -" the-struct_110)" -"(expand-context/outer-env" -" the-struct_110)" -"(expand-context/outer-post-expansion-scope-action" -" the-struct_110)" -"(expand-context/outer-scopes" -" the-struct_110)" -"(expand-context/outer-def-ctx-scopes" -" the-struct_110)" -"(expand-context/outer-binding-layer" -" the-struct_110)" -"(expand-context/outer-reference-records" -" the-struct_110)" -"(expand-context/outer-only-immediate?" -" the-struct_110)" -" need-eventually-defined523_0" -"(expand-context/outer-current-introduction-scopes" -" the-struct_110)" -"(expand-context/outer-name" " the-struct_110)))" "(raise-argument-error" " 'struct-copy" -" \"expand-context/outer?\"" +" \"expand-context/inner?\"" " the-struct_110)))))" +"(expand-context/outer1.1" +" inner524_0" +"(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)" +"(expand-context/outer-context" +" the-struct_109)" +"(expand-context/outer-env" +" the-struct_109)" +"(expand-context/outer-post-expansion-scope-action" +" the-struct_109)" +"(expand-context/outer-scopes" +" the-struct_109)" +"(expand-context/outer-def-ctx-scopes" +" the-struct_109)" +"(expand-context/outer-binding-layer" +" the-struct_109)" +"(expand-context/outer-reference-records" +" the-struct_109)" +"(expand-context/outer-only-immediate?" +" the-struct_109)" +" need-eventually-defined523_0" +"(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_109)))))" "((temp522_0)" " #f))" "(expand+eval-for-syntaxes-binding74.1" @@ -75028,11 +75156,11 @@ static const char *startup_source = " temp521_0))))" "(let-values((()" "(begin" -"(let-values(((lst_430)" +"(let-values(((lst_431)" " syms_25)" -"((lst_431)" -" vals_10)" "((lst_432)" +" vals_10)" +"((lst_433)" " ids_44))" "(begin" "(if(variable-reference-from-unsafe?" @@ -75040,12 +75168,6 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_430)))" -"(if(variable-reference-from-unsafe?" -"(#%variable-reference))" -"(void)" -"(let-values()" -"(check-list" " lst_431)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" @@ -75053,38 +75175,44 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_432)))" -"((letrec-values(((for-loop_324)" -"(lambda(lst_433" -" lst_434" -" lst_435)" +"(if(variable-reference-from-unsafe?" +"(#%variable-reference))" +"(void)" +"(let-values()" +"(check-list" +" lst_433)))" +"((letrec-values(((for-loop_327)" +"(lambda(lst_434" +" lst_435" +" lst_436)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_433)" -"(if(pair?" " lst_434)" -"(pair?" +"(if(pair?" " lst_435)" +"(pair?" +" lst_436)" " #f)" " #f)" "(let-values(((sym_104)" "(unsafe-car" -" lst_433))" -"((rest_249)" -"(unsafe-cdr" -" lst_433))" -"((val_87)" -"(unsafe-car" " lst_434))" "((rest_250)" "(unsafe-cdr" " lst_434))" -"((id_163)" +"((val_87)" "(unsafe-car" " lst_435))" "((rest_251)" "(unsafe-cdr" -" lst_435)))" +" lst_435))" +"((id_164)" +"(unsafe-car" +" lst_436))" +"((rest_252)" +"(unsafe-cdr" +" lst_436)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -75094,28 +75222,28 @@ static const char *startup_source = "(begin" "(maybe-install-free=id-in-context!" " val_87" -" id_163" -" phase_157" +" id_164" +" phase_158" " partial-body-ctx_1)" "(namespace-set-transformer!" " m-ns_19" -" phase_157" +" phase_158" " sym_104" " val_87)))" "(values)))))" "(values)))))" "(if(not" " #f)" -"(for-loop_324" -" rest_249" +"(for-loop_327" " rest_250" -" rest_251)" +" rest_251" +" rest_252)" "(values))))" "(values))))))" -" for-loop_324)" -" lst_430" +" for-loop_327)" " lst_431" -" lst_432)))" +" lst_432" +" lst_433)))" "(values))))" "(let-values()" "(let-values((()" @@ -75200,32 +75328,32 @@ static const char *startup_source = " s_535))" "(let-values(((#%require530_1" " req531_1)" -"(let-values(((s_808)" +"(let-values(((s_806)" "(if(syntax?$1" " s_535)" "(syntax-e$1" " s_535)" " s_535)))" "(if(pair?" -" s_808)" +" s_806)" "(let-values(((#%require532_0)" -"(let-values(((s_809)" +"(let-values(((s_807)" "(car" -" s_808)))" -" s_809))" +" s_806)))" +" s_807))" "((req533_0)" -"(let-values(((s_810)" +"(let-values(((s_808)" "(cdr" -" s_808)))" -"(let-values(((s_811)" +" s_806)))" +"(let-values(((s_809)" "(if(syntax?$1" -" s_810)" +" s_808)" "(syntax-e$1" -" s_810)" -" s_810)))" +" s_808)" +" s_808)))" "(let-values(((flat-s_60)" "(to-syntax-list.1" -" s_811)))" +" s_809)))" "(if(not" " flat-s_60)" "(let-values()" @@ -75256,9 +75384,9 @@ static const char *startup_source = "((m-ns537_0)" " m-ns_19)" "((phase538_0)" -" phase_157)" +" phase_158)" "((phase539_0)" -" phase_157)" +" phase_158)" "((requires+provides540_0)" " requires+provides_7)" "((declared-submodule-names541_0)" @@ -75398,38 +75526,38 @@ static const char *startup_source = "(let-values(((ok?_83" " #%declare551_0" " kw552_0)" -"(let-values(((s_812)" +"(let-values(((s_810)" " disarmed-exp-body_1))" "(let-values(((orig-s_91)" -" s_812))" +" s_810))" "(let-values(((#%declare551_1" " kw552_1)" -"(let-values(((s_813)" +"(let-values(((s_811)" "(if(syntax?$1" -" s_812)" +" s_810)" "(syntax-e$1" -" s_812)" -" s_812)))" +" s_810)" +" s_810)))" "(if(pair?" -" s_813)" +" s_811)" "(let-values(((#%declare553_0)" -"(let-values(((s_814)" +"(let-values(((s_812)" "(car" -" s_813)))" -" s_814))" +" s_811)))" +" s_812))" "((kw554_0)" -"(let-values(((s_815)" +"(let-values(((s_813)" "(cdr" -" s_813)))" -"(let-values(((s_816)" +" s_811)))" +"(let-values(((s_814)" "(if(syntax?$1" -" s_815)" +" s_813)" "(syntax-e$1" -" s_815)" -" s_815)))" +" s_813)" +" s_813)))" "(let-values(((flat-s_61)" "(to-syntax-list.1" -" s_816)))" +" s_814)))" "(if(not" " flat-s_61)" "(let-values()" @@ -75452,7 +75580,7 @@ static const char *startup_source = " kw552_1))))))" "(let-values((()" "(begin" -"(let-values(((lst_436)" +"(let-values(((lst_437)" " kw552_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -75460,19 +75588,19 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_436)))" -"((letrec-values(((for-loop_325)" -"(lambda(lst_437)" +" lst_437)))" +"((letrec-values(((for-loop_328)" +"(lambda(lst_438)" "(begin" " 'for-loop" "(if(pair?" -" lst_437)" +" lst_438)" "(let-values(((kw_1)" "(unsafe-car" -" lst_437))" -"((rest_252)" +" lst_438))" +"((rest_253)" "(unsafe-cdr" -" lst_437)))" +" lst_438)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -75523,12 +75651,12 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_325" -" rest_252)" +"(for-loop_328" +" rest_253)" "(values))))" "(values))))))" -" for-loop_325)" -" lst_436)))" +" for-loop_328)" +" lst_437)))" "(values))))" "(let-values()" "(let-values(((parsed-body_1)" @@ -75575,42 +75703,42 @@ static const char *startup_source = "(make-wrap-as-definition)" "(lambda(self_35 frame-id_18 inside-scope_2 all-scopes-stx_6 defined-syms_12 requires+provides_8)" "(begin" -"(lambda(ids_45 rhs_22 phase_158)" +"(lambda(ids_45 rhs_22 phase_159)" "(let-values(((scoped-ids_0)" "(reverse$1" -"(let-values(((lst_438) ids_45))" +"(let-values(((lst_439) ids_45))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_438)))" -"((letrec-values(((for-loop_326)" -"(lambda(fold-var_384 lst_439)" +"(let-values()(check-list lst_439)))" +"((letrec-values(((for-loop_329)" +"(lambda(fold-var_386 lst_440)" "(begin" " 'for-loop" -"(if(pair? lst_439)" -"(let-values(((id_164)(unsafe-car lst_439))" -"((rest_253)(unsafe-cdr lst_439)))" -"(let-values(((fold-var_385)" -"(let-values(((fold-var_386) fold-var_384))" +"(if(pair? lst_440)" +"(let-values(((id_165)(unsafe-car lst_440))" +"((rest_254)(unsafe-cdr lst_440)))" "(let-values(((fold-var_387)" +"(let-values(((fold-var_388) fold-var_386))" +"(let-values(((fold-var_389)" "(let-values()" "(cons" "(let-values()" "(add-scope" -" id_164" +" id_165" " inside-scope_2))" -" fold-var_386))))" -"(values fold-var_387)))))" -"(if(not #f)(for-loop_326 fold-var_385 rest_253) fold-var_385)))" -" fold-var_384)))))" -" for-loop_326)" +" fold-var_388))))" +"(values fold-var_389)))))" +"(if(not #f)(for-loop_329 fold-var_387 rest_254) fold-var_387)))" +" fold-var_386)))))" +" for-loop_329)" " null" -" lst_438))))))" +" lst_439))))))" "(let-values(((syms_26)" "(let-values(((scoped-ids555_0) scoped-ids_0)" "((defined-syms556_0) defined-syms_12)" "((self557_0) self_35)" -"((phase558_0) phase_158)" +"((phase558_0) phase_159)" "((all-scopes-stx559_0) all-scopes-stx_6)" "((frame-id560_0) frame-id_18)" "((requires+provides561_0) requires+provides_8))" @@ -75634,7 +75762,7 @@ static const char *startup_source = "(datum->syntax$1" " #f" "(list" -"(datum->syntax$1(syntax-shift-phase-level$1 core-stx phase_158) 'define-values)" +"(datum->syntax$1(syntax-shift-phase-level$1 core-stx phase_159) 'define-values)" " scoped-ids_0" " rhs_22))" " inside-scope_2)))" @@ -75646,28 +75774,28 @@ static const char *startup_source = "(let-values(((sc_39)(root-expand-context-post-expansion-scope ctx_116)))" "(if sc_39" "(reverse$1" -"(let-values(((lst_440) bodys_23))" +"(let-values(((lst_441) bodys_23))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_440)))" -"((letrec-values(((for-loop_327)" -"(lambda(fold-var_388 lst_441)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_441)))" +"((letrec-values(((for-loop_330)" +"(lambda(fold-var_390 lst_442)" "(begin" " 'for-loop" -"(if(pair? lst_441)" -"(let-values(((body_23)(unsafe-car lst_441))((rest_254)(unsafe-cdr lst_441)))" -"(let-values(((fold-var_389)" -"(let-values(((fold-var_390) fold-var_388))" +"(if(pair? lst_442)" +"(let-values(((body_23)(unsafe-car lst_442))((rest_255)(unsafe-cdr lst_442)))" "(let-values(((fold-var_391)" +"(let-values(((fold-var_392) fold-var_390))" +"(let-values(((fold-var_393)" "(let-values()" "(cons" "(let-values()(add-scope body_23 sc_39))" -" fold-var_390))))" -"(values fold-var_391)))))" -"(if(not #f)(for-loop_327 fold-var_389 rest_254) fold-var_389)))" -" fold-var_388)))))" -" for-loop_327)" +" fold-var_392))))" +"(values fold-var_393)))))" +"(if(not #f)(for-loop_330 fold-var_391 rest_255) fold-var_391)))" +" fold-var_390)))))" +" for-loop_330)" " null" -" lst_440))))" +" lst_441))))" " bodys_23)))))" "(define-values" "(finish-expanding-body-expressons99.1)" @@ -75682,7 +75810,7 @@ static const char *startup_source = "(begin" " 'finish-expanding-body-expressons99" "(let-values(((partially-expanded-bodys_1) partially-expanded-bodys98_0))" -"(let-values(((phase_159) phase84_0))" +"(let-values(((phase_160) phase84_0))" "(let-values(((body-ctx_7) ctx85_0))" "(let-values(((self_36) self86_0))" "(let-values(((declared-submodule-names_5) declared-submodule-names87_0))" @@ -75696,7 +75824,7 @@ static const char *startup_source = " 'loop" "(if(null? bodys_24)" "(let-values()" -"(if(if tail?_53(not(zero? phase_159)) #f)" +"(if(if tail?_53(not(zero? phase_160)) #f)" "(let-values()" "(begin" "(let-values(((obs_151)(expand-context-observer body-ctx_7)))" @@ -75750,14 +75878,14 @@ static const char *startup_source = "(let-values(((body_24)(car bodys_24)))" "(let-values(((rest-bodys_2)(cdr bodys_24)))" "(let-values(((exp-body_8)" -"(if(let-values(((or-part_396)" +"(if(let-values(((or-part_397)" "(parsed? body_24)))" -"(if or-part_396" -" or-part_396" -"(let-values(((or-part_397)" -"(expanded+parsed? body_24)))" "(if or-part_397" " or-part_397" +"(let-values(((or-part_398)" +"(expanded+parsed? body_24)))" +"(if or-part_398" +" or-part_398" "(semi-parsed-begin-for-syntax?" " body_24)))))" "(let-values() body_24)" @@ -75774,86 +75902,86 @@ static const char *startup_source = "(let-values(((syms_27)" "(semi-parsed-define-values-syms" " body_24)))" -"(let-values(((s_817)" +"(let-values(((s_815)" "(semi-parsed-define-values-s" " body_24)))" "(let-values(((ok?_84" " define-values562_0" " _563_0" " _564_0)" -"(let-values(((s_818)" +"(let-values(((s_816)" "(syntax-disarm$1" -" s_817)))" +" s_815)))" "(if(if(not" "(expand-context-to-parsed?" " rhs-ctx_2))" " #t" " #f)" "(let-values(((orig-s_92)" -" s_818))" +" s_816))" "(let-values(((define-values562_1" " _563_1" " _564_1)" -"(let-values(((s_819)" +"(let-values(((s_817)" "(if(syntax?$1" -" s_818)" +" s_816)" "(syntax-e$1" -" s_818)" -" s_818)))" +" s_816)" +" s_816)))" "(if(pair?" -" s_819)" +" s_817)" "(let-values(((define-values565_0)" -"(let-values(((s_820)" +"(let-values(((s_818)" "(car" -" s_819)))" -" s_820))" +" s_817)))" +" s_818))" "((_566_0" " _567_0)" -"(let-values(((s_821)" +"(let-values(((s_819)" "(cdr" +" s_817)))" +"(let-values(((s_820)" +"(if(syntax?$1" +" s_819)" +"(syntax-e$1" +" s_819)" " s_819)))" -"(let-values(((s_822)" -"(if(syntax?$1" -" s_821)" -"(syntax-e$1" -" s_821)" -" s_821)))" "(if(pair?" -" s_822)" +" s_820)" "(let-values(((_568_0)" -"(let-values(((s_823)" +"(let-values(((s_821)" "(car" -" s_822)))" -" s_823))" +" s_820)))" +" s_821))" "((_569_0)" -"(let-values(((s_824)" +"(let-values(((s_822)" "(cdr" +" s_820)))" +"(let-values(((s_823)" +"(if(syntax?$1" +" s_822)" +"(syntax-e$1" +" s_822)" " s_822)))" -"(let-values(((s_825)" -"(if(syntax?$1" -" s_824)" -"(syntax-e$1" -" s_824)" -" s_824)))" "(if(pair?" -" s_825)" +" s_823)" "(let-values(((_570_0)" -"(let-values(((s_826)" +"(let-values(((s_824)" "(car" -" s_825)))" -" s_826))" +" s_823)))" +" s_824))" "(()" -"(let-values(((s_827)" +"(let-values(((s_825)" "(cdr" -" s_825)))" -"(let-values(((s_828)" +" s_823)))" +"(let-values(((s_826)" "(if(syntax?$1" -" s_827)" +" s_825)" "(syntax-e$1" -" s_827)" -" s_827)))" +" s_825)" +" s_825)))" "(if(null?" -" s_828)" +" s_826)" "(values)" "(raise-syntax-error$1" " #f" @@ -75894,7 +76022,7 @@ static const char *startup_source = "(let-values(((rhs-ctx571_0)" " rhs-ctx_2)" "((s572_0)" -" s_817)" +" s_815)" "((temp573_0)" " #t))" "(keep-as-needed85.1" @@ -75976,7 +76104,7 @@ static const char *startup_source = "(let-values(((tmp_69)" "(core-form-sym" " disarmed-body_0" -" phase_159)))" +" phase_160)))" "(if(if(equal? tmp_69 '#%require)" " #t" "(if(equal? tmp_69 '#%provide)" @@ -76056,7 +76184,7 @@ static const char *startup_source = "(let-values(((exp-lifted-modules_0)" "(let-values(((lifted-modules584_0)" " lifted-modules_0)" -"((phase585_0) phase_159)" +"((phase585_0) phase_160)" "((self586_0) self_36)" "((body-ctx587_0)" " body-ctx_7)" @@ -76113,12 +76241,12 @@ static const char *startup_source = "(let-values(((ht_169) need-eventually-defined_3))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-in-hash ht_169)))" -"((letrec-values(((for-loop_328)" +"((letrec-values(((for-loop_331)" "(lambda(i_193)" "(begin" " 'for-loop" "(if i_193" -"(let-values(((phase_160 l_84)(hash-iterate-key+value ht_169 i_193)))" +"(let-values(((phase_161 l_84)(hash-iterate-key+value ht_169 i_193)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -76126,35 +76254,35 @@ static const char *startup_source = "(begin" "(let-values()" "(begin" -"(let-values(((lst_442) l_84))" +"(let-values(((lst_443) l_84))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_442)))" -"((letrec-values(((for-loop_329)" -"(lambda(lst_443)" +"(let-values()(check-list lst_443)))" +"((letrec-values(((for-loop_332)" +"(lambda(lst_444)" "(begin" " 'for-loop" "(if(pair?" -" lst_443)" -"(let-values(((id_165)" +" lst_444)" +"(let-values(((id_166)" "(unsafe-car" -" lst_443))" -"((rest_255)" +" lst_444))" +"((rest_256)" "(unsafe-cdr" -" lst_443)))" +" lst_444)))" "(let-values((()" "(let-values()" "(let-values((()" "(let-values()" "(begin" "(let-values()" -"(let-values(((b_95)" +"(let-values(((b_96)" "(let-values(((id592_0)" -" id_165)" +" id_166)" "((phase593_0)" -" phase_160))" +" phase_161))" "(resolve+shift30.1" " #f" " #f" @@ -76168,17 +76296,17 @@ static const char *startup_source = " #f" " id592_0" " phase593_0))))" -"(if(if b_95" +"(if(if b_96" "(if(module-binding?" -" b_95)" +" b_96)" "(if(eq?" "(module-binding-sym" -" b_95)" +" b_96)" "(syntax-e$1" -" id_165))" +" id_166))" "(eq?" "(module-binding-module" -" b_95)" +" b_96)" " self_37)" " #f)" " #f)" @@ -76188,27 +76316,27 @@ static const char *startup_source = "(raise-syntax-error$1" " #f" " \"reference to an unbound identifier\"" -" id_165" +" id_166" " #f" " null" "(syntax-debug-info-string" -" id_165" +" id_166" " ctx_117))))))" "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_329" -" rest_255)" +"(for-loop_332" +" rest_256)" "(values))))" "(values))))))" -" for-loop_329)" -" lst_442)))" +" for-loop_332)" +" lst_443)))" "(void)))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_328(hash-iterate-next ht_169 i_193))(values))))" +"(if(not #f)(for-loop_331(hash-iterate-next ht_169 i_193))(values))))" "(values))))))" -" for-loop_328)" +" for-loop_331)" "(hash-iterate-first ht_169))))" "(void)))))" "(define-values" @@ -76226,43 +76354,43 @@ static const char *startup_source = "(let-values(((requires+provides_9) requires-and-provides102_0))" "(let-values(((declared-submodule-names_6) declared-submodule-names103_0))" "(let-values(((m-ns_20) namespace104_0))" -"(let-values(((phase_161) phase105_0))" +"(let-values(((phase_162) phase105_0))" "(let-values(((self_38) self106_0))" "(let-values(((ctx_118) ctx107_0))" "(let-values()" "(let-values()" "((letrec-values(((loop_127)" -"(lambda(bodys_26 phase_162)" +"(lambda(bodys_26 phase_163)" "(begin" " 'loop" "(if(null? bodys_26)" "(let-values() null)" -"(if(let-values(((or-part_398)(parsed?(car bodys_26))))" -"(if or-part_398 or-part_398(expanded+parsed?(car bodys_26))))" +"(if(let-values(((or-part_399)(parsed?(car bodys_26))))" +"(if or-part_399 or-part_399(expanded+parsed?(car bodys_26))))" "(let-values()" -"(cons(car bodys_26)(loop_127(cdr bodys_26) phase_162)))" +"(cons(car bodys_26)(loop_127(cdr bodys_26) phase_163)))" "(if(semi-parsed-begin-for-syntax?(car bodys_26))" "(let-values()" "(let-values(((nested-bodys_2)" "(loop_127" "(semi-parsed-begin-for-syntax-body(car bodys_26))" -"(add1 phase_162))))" +"(add1 phase_163))))" "(cons" -"(let-values(((the-struct_112)(car bodys_26)))" -"(if(semi-parsed-begin-for-syntax? the-struct_112)" +"(let-values(((the-struct_111)(car bodys_26)))" +"(if(semi-parsed-begin-for-syntax? the-struct_111)" "(let-values(((body594_0) nested-bodys_2))" "(semi-parsed-begin-for-syntax3.1" -"(semi-parsed-begin-for-syntax-s the-struct_112)" +"(semi-parsed-begin-for-syntax-s the-struct_111)" " body594_0))" "(raise-argument-error" " 'struct-copy" " \"semi-parsed-begin-for-syntax?\"" -" the-struct_112)))" -"(loop_127(cdr bodys_26) phase_162))))" +" the-struct_111)))" +"(loop_127(cdr bodys_26) phase_163))))" "(let-values()" "(let-values(((disarmed-body_1)(syntax-disarm$1(car bodys_26))))" "(let-values(((tmp_70)" -"(core-form-sym disarmed-body_1 phase_162)))" +"(core-form-sym disarmed-body_1 phase_163)))" "(if(equal? tmp_70 '#%provide)" "(let-values()" "(let-values((()" @@ -76288,23 +76416,23 @@ static const char *startup_source = "(let-values(((orig-s_93) s_622))" "(let-values(((#%provide595_1" " spec596_1)" -"(let-values(((s_829)" +"(let-values(((s_827)" "(if(syntax?$1" " s_622)" "(syntax-e$1" " s_622)" " s_622)))" -"(if(pair? s_829)" +"(if(pair? s_827)" "(let-values(((#%provide597_0)" "(let-values(((s_626)" "(car" -" s_829)))" +" s_827)))" " s_626))" "((spec598_0)" "(let-values(((s_627)" "(cdr" -" s_829)))" -"(let-values(((s_830)" +" s_827)))" +"(let-values(((s_828)" "(if(syntax?$1" " s_627)" "(syntax-e$1" @@ -76312,7 +76440,7 @@ static const char *startup_source = " s_627)))" "(let-values(((flat-s_62)" "(to-syntax-list.1" -" s_830)))" +" s_828)))" "(if(not" " flat-s_62)" "(let-values()" @@ -76339,117 +76467,117 @@ static const char *startup_source = "(car bodys_26)" " requires+provides_9" " self_38" -" phase_162" +" phase_163" "(let-values(((v_270) ctx_118))" -"(let-values(((the-struct_113)" +"(let-values(((the-struct_112)" " v_270))" "(if(expand-context/outer?" -" the-struct_113)" +" the-struct_112)" "(let-values(((context599_0)" " 'top-level)" "((inner600_0)" -"(let-values(((the-struct_114)" +"(let-values(((the-struct_113)" "(root-expand-context/outer-inner" " v_270)))" "(if(expand-context/inner?" -" the-struct_114)" +" the-struct_113)" "(let-values(((phase601_0)" -" phase_162)" +" phase_163)" "((namespace602_0)" "(namespace->namespace-at-phase" " m-ns_20" -" phase_162))" +" phase_163))" "((requires+provides603_0)" " requires+provides_9)" "((declared-submodule-names604_0)" " declared-submodule-names_6))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi" -" the-struct_114)" +" the-struct_113)" "(root-expand-context/inner-module-scopes" -" the-struct_114)" +" the-struct_113)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_114)" +" the-struct_113)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_114)" +" the-struct_113)" "(root-expand-context/inner-defined-syms" -" the-struct_114)" +" the-struct_113)" "(root-expand-context/inner-counter" -" the-struct_114)" +" the-struct_113)" "(root-expand-context/inner-lift-key" -" the-struct_114)" +" the-struct_113)" "(expand-context/inner-to-parsed?" -" the-struct_114)" +" the-struct_113)" " phase601_0" " namespace602_0" "(expand-context/inner-just-once?" -" the-struct_114)" +" the-struct_113)" "(expand-context/inner-module-begin-k" -" the-struct_114)" +" the-struct_113)" "(expand-context/inner-allow-unbound?" -" the-struct_114)" +" the-struct_113)" "(expand-context/inner-in-local-expand?" -" the-struct_114)" +" the-struct_113)" "(expand-context/inner-stops" -" the-struct_114)" +" the-struct_113)" " declared-submodule-names604_0" "(expand-context/inner-lifts" -" the-struct_114)" +" the-struct_113)" "(expand-context/inner-lift-envs" -" the-struct_114)" +" the-struct_113)" "(expand-context/inner-module-lifts" -" the-struct_114)" +" the-struct_113)" "(expand-context/inner-require-lifts" -" the-struct_114)" +" the-struct_113)" "(expand-context/inner-to-module-lifts" -" the-struct_114)" +" the-struct_113)" " requires+provides603_0" "(expand-context/inner-observer" -" the-struct_114)" +" the-struct_113)" "(expand-context/inner-for-serializable?" -" the-struct_114)" +" the-struct_113)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_114)))" -"(raise-argument-error" -" 'struct-copy" -" \"expand-context/inner?\"" -" the-struct_114)))))" -"(expand-context/outer1.1" -" inner600_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)" -" context599_0" -"(expand-context/outer-env" -" the-struct_113)" -"(expand-context/outer-post-expansion-scope-action" -" the-struct_113)" -"(expand-context/outer-scopes" -" the-struct_113)" -"(expand-context/outer-def-ctx-scopes" -" the-struct_113)" -"(expand-context/outer-binding-layer" -" the-struct_113)" -"(expand-context/outer-reference-records" -" the-struct_113)" -"(expand-context/outer-only-immediate?" -" the-struct_113)" -"(expand-context/outer-need-eventually-defined" -" the-struct_113)" -"(expand-context/outer-current-introduction-scopes" -" the-struct_113)" -"(expand-context/outer-name" " the-struct_113)))" "(raise-argument-error" " 'struct-copy" +" \"expand-context/inner?\"" +" the-struct_113)))))" +"(expand-context/outer1.1" +" inner600_0" +"(root-expand-context/outer-post-expansion-scope" +" the-struct_112)" +"(root-expand-context/outer-use-site-scopes" +" the-struct_112)" +"(root-expand-context/outer-frame-id" +" the-struct_112)" +" context599_0" +"(expand-context/outer-env" +" the-struct_112)" +"(expand-context/outer-post-expansion-scope-action" +" the-struct_112)" +"(expand-context/outer-scopes" +" the-struct_112)" +"(expand-context/outer-def-ctx-scopes" +" the-struct_112)" +"(expand-context/outer-binding-layer" +" the-struct_112)" +"(expand-context/outer-reference-records" +" the-struct_112)" +"(expand-context/outer-only-immediate?" +" the-struct_112)" +"(expand-context/outer-need-eventually-defined" +" the-struct_112)" +"(expand-context/outer-current-introduction-scopes" +" the-struct_112)" +"(expand-context/outer-name" +" the-struct_112)))" +"(raise-argument-error" +" 'struct-copy" " \"expand-context/outer?\"" -" the-struct_113)))))))" +" the-struct_112)))))))" "(if(expand-context-to-parsed? ctx_118)" "(let-values()" -"(loop_127(cdr bodys_26) phase_162))" +"(loop_127(cdr bodys_26) phase_163))" "(let-values()" "(let-values(((new-s_10)" "(syntax-track-origin*" @@ -76481,14 +76609,14 @@ static const char *startup_source = " new-s_10" "(loop_127" "(cdr bodys_26)" -" phase_162))))))))))" +" phase_163))))))))))" "(let-values()" "(cons" "(car bodys_26)" -"(loop_127(cdr bodys_26) phase_162))))))))))))))" +"(loop_127(cdr bodys_26) phase_163))))))))))))))" " loop_127)" " expression-expanded-bodys_1" -" phase_161)))))))))))))" +" phase_162)))))))))))))" "(define-values" "(declare-module-for-expansion139.1)" "(lambda(ctx125_0" @@ -76533,8 +76661,8 @@ static const char *startup_source = "(hasheq))))" "(let-values(((module-name_2)" "(1/module-path-index-resolve" -"(let-values(((or-part_399) enclosing-self_3))" -"(if or-part_399 or-part_399 self_39)))))" +"(let-values(((or-part_400) enclosing-self_3))" +"(if or-part_400 or-part_400 self_39)))))" "(let-values(((compiled-module_0)" "(let-values(((parsed-mod607_0) parsed-mod_0)" "((temp608_0)" @@ -76600,16 +76728,16 @@ static const char *startup_source = " compiled-module615_0)))))))))))))))))))))))))" "(define-values" "(attach-root-expand-context-properties)" -"(lambda(s_831 root-ctx_8 orig-self_1 new-self_2)" +"(lambda(s_829 root-ctx_8 orig-self_1 new-self_2)" "(begin" -"(let-values(((s_832)" -"(syntax-property$1 s_831 'module-body-context(root-expand-context-all-scopes-stx root-ctx_8))))" -"(let-values(((s_833)" +"(let-values(((s_830)" +"(syntax-property$1 s_829 'module-body-context(root-expand-context-all-scopes-stx root-ctx_8))))" +"(let-values(((s_831)" "(syntax-property$1" -" s_832" +" s_830" " 'module-body-inside-context" "(add-scope empty-syntax(root-expand-context-post-expansion-scope root-ctx_8)))))" -" s_833)))))" +" s_831)))))" "(define-values" "(expand-post-submodules165.1)" "(lambda(all-scopes-s147_0" @@ -76628,7 +76756,7 @@ static const char *startup_source = " 'expand-post-submodules165" "(let-values(((fully-expanded-bodys-except-post-submodules_2) fully-expanded-bodys-except-post-submodules164_0))" "(let-values(((declare-enclosing-module_1) declare-enclosing142_0))" -"(let-values(((phase_163) phase143_1))" +"(let-values(((phase_164) phase143_1))" "(let-values(((self_40) self144_0))" "(let-values(((requires+provides_11) requires-and-provides145_0))" "(let-values(((enclosing-is-cross-phase-persistent?_1) enclosing-is-cross-phase-persistent?146_0))" @@ -76640,7 +76768,7 @@ static const char *startup_source = "(let-values(((submod-ctx_1) ctx152_0))" "(let-values()" "((letrec-values(((loop_128)" -"(lambda(bodys_27 phase_164)" +"(lambda(bodys_27 phase_165)" "(begin" " 'loop" "(if(null? bodys_27)" @@ -76654,34 +76782,34 @@ static const char *startup_source = "(semi-parsed-begin-for-syntax-s" " body_25)))" "(let-values(((ok?_86 begin-for-syntax617_0 _618_0)" -"(let-values(((s_834)" +"(let-values(((s_832)" "(syntax-disarm$1" " body-s_0)))" -"(let-values(((orig-s_94) s_834))" +"(let-values(((orig-s_94) s_832))" "(let-values(((begin-for-syntax617_1" " _618_1)" -"(let-values(((s_835)" +"(let-values(((s_833)" "(if(syntax?$1" -" s_834)" +" s_832)" "(syntax-e$1" -" s_834)" -" s_834)))" -"(if(pair? s_835)" +" s_832)" +" s_832)))" +"(if(pair? s_833)" "(let-values(((begin-for-syntax619_0)" -"(let-values(((s_836)" +"(let-values(((s_834)" "(car" -" s_835)))" -" s_836))" +" s_833)))" +" s_834))" "((_620_0)" -"(let-values(((s_837)" +"(let-values(((s_835)" "(cdr" -" s_835)))" +" s_833)))" "(let-values(((s_656)" "(if(syntax?$1" -" s_837)" +" s_835)" "(syntax-e$1" -" s_837)" -" s_837)))" +" s_835)" +" s_835)))" "(let-values(((flat-s_63)" "(to-syntax-list.1" " s_656)))" @@ -76723,7 +76851,7 @@ static const char *startup_source = "(loop_128" "(semi-parsed-begin-for-syntax-body" " body_25)" -"(add1 phase_164))))" +"(add1 phase_165))))" "(let-values(((parsed-bfs_0)" "(parsed-begin-for-syntax21.1" " rebuild-body-s_0" @@ -76746,20 +76874,20 @@ static const char *startup_source = " rebuild-body-s623_0" " temp624_0))" " parsed-bfs_0))" -"(loop_128 rest-bodys_3 phase_164))))))))" -"(if(let-values(((or-part_400)(parsed? body_25)))" -"(if or-part_400" -" or-part_400" +"(loop_128 rest-bodys_3 phase_165))))))))" +"(if(let-values(((or-part_401)(parsed? body_25)))" +"(if or-part_401" +" or-part_401" "(expanded+parsed? body_25)))" "(let-values()" -"(cons body_25(loop_128 rest-bodys_3 phase_164)))" +"(cons body_25(loop_128 rest-bodys_3 phase_165)))" "(let-values()" "(let-values(((disarmed-body_2)" "(syntax-disarm$1 body_25)))" "(let-values(((tmp_71)" "(core-form-sym" " disarmed-body_2" -" phase_164)))" +" phase_165)))" "(if(equal? tmp_71 'module*)" "(let-values()" "(let-values((()" @@ -76775,58 +76903,58 @@ static const char *startup_source = " module*625_0" " name626_0" " _627_0)" -"(let-values(((s_838)" +"(let-values(((s_836)" " disarmed-body_2))" -"(if(let-values(((s_839)" +"(if(let-values(((s_837)" "(if(syntax?$1" -" s_838)" +" s_836)" "(syntax-e$1" -" s_838)" -" s_838)))" -"(if(pair? s_839)" -"(if(let-values(((s_840)" +" s_836)" +" s_836)))" +"(if(pair? s_837)" +"(if(let-values(((s_838)" "(car" -" s_839)))" +" s_837)))" " #t)" -"(let-values(((s_841)" +"(let-values(((s_839)" "(cdr" -" s_839)))" -"(let-values(((s_842)" +" s_837)))" +"(let-values(((s_840)" "(if(syntax?$1" -" s_841)" +" s_839)" "(syntax-e$1" -" s_841)" -" s_841)))" +" s_839)" +" s_839)))" "(if(pair?" -" s_842)" -"(if(let-values(((s_843)" +" s_840)" +"(if(let-values(((s_841)" "(car" -" s_842)))" +" s_840)))" " #t)" -"(let-values(((s_844)" +"(let-values(((s_842)" "(cdr" -" s_842)))" +" s_840)))" "(let-values(((s_662)" "(if(syntax?$1" -" s_844)" +" s_842)" "(syntax-e$1" -" s_844)" -" s_844)))" +" s_842)" +" s_842)))" "(if(pair?" " s_662)" -"(if(let-values(((s_845)" +"(if(let-values(((s_843)" "(car" " s_662)))" -"(let-values(((s_846)" +"(let-values(((s_844)" "(if(syntax?$1" -" s_845)" +" s_843)" "(syntax-e$1" -" s_845)" -" s_845)))" +" s_843)" +" s_843)))" "(eq?" " #f" -" s_846)))" -"(let-values(((s_847)" +" s_844)))" +"(let-values(((s_845)" "(cdr" " s_662)))" " #t)" @@ -76840,48 +76968,48 @@ static const char *startup_source = "(let-values(((module*625_1" " name626_1" " _627_1)" -"(let-values(((s_848)" +"(let-values(((s_846)" "(if(syntax?$1" -" s_838)" +" s_836)" "(syntax-e$1" -" s_838)" -" s_838)))" +" s_836)" +" s_836)))" "(let-values(((module*628_0)" -"(let-values(((s_849)" +"(let-values(((s_847)" "(car" -" s_848)))" -" s_849))" +" s_846)))" +" s_847))" "((name629_0" " _630_0)" -"(let-values(((s_850)" +"(let-values(((s_848)" "(cdr" -" s_848)))" +" s_846)))" "(let-values(((s_667)" "(if(syntax?$1" -" s_850)" +" s_848)" "(syntax-e$1" -" s_850)" -" s_850)))" +" s_848)" +" s_848)))" "(let-values(((name631_0)" "(let-values(((s_669)" "(car" " s_667)))" " s_669))" "((_632_0)" -"(let-values(((s_851)" +"(let-values(((s_849)" "(cdr" " s_667)))" "(let-values(((s_670)" "(if(syntax?$1" -" s_851)" +" s_849)" "(syntax-e$1" -" s_851)" -" s_851)))" +" s_849)" +" s_849)))" "(let-values((()" "(let-values(((s_672)" "(car" " s_670)))" -"(let-values(((s_852)" +"(let-values(((s_850)" "(if(syntax?$1" " s_672)" "(syntax-e$1" @@ -76889,10 +77017,10 @@ static const char *startup_source = " s_672)))" "(values))))" "((_633_0)" -"(let-values(((s_853)" +"(let-values(((s_851)" "(cdr" " s_670)))" -" s_853)))" +" s_851)))" "(values" " _633_0))))))" "(values" @@ -76918,7 +77046,7 @@ static const char *startup_source = "(let-values(((neg-phase_0)" "(phase-" " 0" -" phase_164)))" +" phase_165)))" "(let-values(((shifted-s_0)" "(syntax-shift-phase-level$1" " ready-body_2" @@ -76972,27 +77100,27 @@ static const char *startup_source = "(if(expanded+parsed?" " submod_4)" "(let-values()" -"(let-values(((the-struct_115)" +"(let-values(((the-struct_114)" " submod_4))" "(if(expanded+parsed?" -" the-struct_115)" +" the-struct_114)" "(let-values(((s646_0)" "(syntax-shift-phase-level$1" "(expanded+parsed-s" " submod_4)" -" phase_164)))" +" phase_165)))" "(expanded+parsed1.1" " s646_0" "(expanded+parsed-parsed" -" the-struct_115)))" +" the-struct_114)))" "(raise-argument-error" " 'struct-copy" " \"expanded+parsed?\"" -" the-struct_115))))" +" the-struct_114))))" "(let-values()" "(syntax-shift-phase-level$1" " submod_4" -" phase_164))))))))" +" phase_165))))))))" "(let-values()" "(let-values(((ready-body647_0)" " ready-body_2)" @@ -77031,16 +77159,16 @@ static const char *startup_source = " submod_3" "(loop_128" " rest-bodys_3" -" phase_164)))))))" +" phase_165)))))))" "(let-values()" "(cons" " body_25" "(loop_128" " rest-bodys_3" -" phase_164)))))))))))))))))" +" phase_165)))))))))))))))))" " loop_128)" " fully-expanded-bodys-except-post-submodules_2" -" phase_163)))))))))))))))))" +" phase_164)))))))))))))))))" "(define-values" "(stop-at-module*?)" "(lambda(ctx_120)" @@ -77055,23 +77183,23 @@ static const char *startup_source = "(begin" " 'check-ids-unbound173" "(let-values(((ids_47) ids170_0))" -"(let-values(((phase_165) phase171_1))" +"(let-values(((phase_166) phase171_1))" "(let-values(((requires+provides_12) requires+provides172_0))" -"(let-values(((s_854) in168_0))" +"(let-values(((s_852) in168_0))" "(let-values()" "(begin" -"(let-values(((lst_444) ids_47))" +"(let-values(((lst_445) ids_47))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_444)))" -"((letrec-values(((for-loop_330)" -"(lambda(lst_445)" +"(let-values()(check-list lst_445)))" +"((letrec-values(((for-loop_333)" +"(lambda(lst_446)" "(begin" " 'for-loop" -"(if(pair? lst_445)" -"(let-values(((id_166)(unsafe-car lst_445))" -"((rest_256)(unsafe-cdr lst_445)))" +"(if(pair? lst_446)" +"(let-values(((id_167)(unsafe-car lst_446))" +"((rest_257)(unsafe-cdr lst_446)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -77080,10 +77208,10 @@ static const char *startup_source = "(let-values()" "(let-values(((requires+provides655_0)" " requires+provides_12)" -"((id656_0) id_166)" +"((id656_0) id_167)" "((phase657_0)" -" phase_165)" -"((s658_0) s_854)" +" phase_166)" +"((s658_0) s_852)" "((temp659_0) 'module))" "(check-not-defined95.1" " #f" @@ -77103,25 +77231,25 @@ static const char *startup_source = " phase657_0)))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_330 rest_256)(values))))" +"(if(not #f)(for-loop_333 rest_257)(values))))" "(values))))))" -" for-loop_330)" -" lst_444)))" +" for-loop_333)" +" lst_445)))" "(void))))))))))" "(define-values" "(eval-nested-bodys)" -"(lambda(bodys_28 phase_166 m-ns_22 self_41 ctx_121)" +"(lambda(bodys_28 phase_167 m-ns_22 self_41 ctx_121)" "(begin" "(begin" -"(let-values(((lst_446) bodys_28))" +"(let-values(((lst_447) bodys_28))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_446)))" -"((letrec-values(((for-loop_331)" -"(lambda(lst_447)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_447)))" +"((letrec-values(((for-loop_334)" +"(lambda(lst_448)" "(begin" " 'for-loop" -"(if(pair? lst_447)" -"(let-values(((body_26)(unsafe-car lst_447))((rest_257)(unsafe-cdr lst_447)))" +"(if(pair? lst_448)" +"(let-values(((body_26)(unsafe-car lst_448))((rest_258)(unsafe-cdr lst_448)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -77143,63 +77271,63 @@ static const char *startup_source = " ids_48" "(parsed-define-values-rhs" " p_89)" -" phase_166" +" phase_167" " m-ns_22" " ctx_121)))" "(begin" -"(let-values(((lst_448) ids_48)" -"((lst_449)" +"(let-values(((lst_449) ids_48)" +"((lst_450)" "(parsed-define-values-syms" " p_89))" -"((lst_450) vals_11))" +"((lst_451) vals_11))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" -"(check-list lst_448)))" -"(if(variable-reference-from-unsafe?" -"(#%variable-reference))" -"(void)" -"(let-values()" "(check-list lst_449)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list lst_450)))" -"((letrec-values(((for-loop_332)" -"(lambda(lst_451" -" lst_452" -" lst_453)" +"(if(variable-reference-from-unsafe?" +"(#%variable-reference))" +"(void)" +"(let-values()" +"(check-list lst_451)))" +"((letrec-values(((for-loop_335)" +"(lambda(lst_452" +" lst_453" +" lst_454)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_451)" -"(if(pair?" " lst_452)" -"(pair?" +"(if(pair?" " lst_453)" +"(pair?" +" lst_454)" " #f)" " #f)" -"(let-values(((id_167)" -"(unsafe-car" -" lst_451))" -"((rest_258)" -"(unsafe-cdr" -" lst_451))" -"((sym_105)" +"(let-values(((id_168)" "(unsafe-car" " lst_452))" "((rest_259)" "(unsafe-cdr" " lst_452))" -"((val_88)" +"((sym_105)" "(unsafe-car" " lst_453))" "((rest_260)" "(unsafe-cdr" -" lst_453)))" +" lst_453))" +"((val_88)" +"(unsafe-car" +" lst_454))" +"((rest_261)" +"(unsafe-cdr" +" lst_454)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -77208,37 +77336,37 @@ static const char *startup_source = "(let-values()" "(namespace-set-variable!" " m-ns_22" -" phase_166" +" phase_167" " sym_105" " val_88))" "(values)))))" "(values)))))" "(if(not" " #f)" -"(for-loop_332" -" rest_258" +"(for-loop_335" " rest_259" -" rest_260)" +" rest_260" +" rest_261)" "(values))))" "(values))))))" -" for-loop_332)" -" lst_448" +" for-loop_335)" " lst_449" -" lst_450)))" +" lst_450" +" lst_451)))" "(void)))))" -"(if(let-values(((or-part_401)" -"(parsed-define-syntaxes?" -" p_89)))" -"(if or-part_401" -" or-part_401" -"(semi-parsed-begin-for-syntax?" -" p_89)))" -"(let-values()(void))" "(if(let-values(((or-part_402)" -"(parsed-#%declare?" +"(parsed-define-syntaxes?" " p_89)))" "(if or-part_402" " or-part_402" +"(semi-parsed-begin-for-syntax?" +" p_89)))" +"(let-values()(void))" +"(if(let-values(((or-part_403)" +"(parsed-#%declare?" +" p_89)))" +"(if or-part_403" +" or-part_403" "(syntax?$1 p_89)))" "(let-values()(void))" "(let-values()" @@ -77259,7 +77387,7 @@ static const char *startup_source = "(let-values(((m-ns660_0)" " m-ns_22)" "((phase661_0)" -" phase_166))" +" phase_167))" "(make-compile-context14.1" " #f" " #f" @@ -77276,10 +77404,10 @@ static const char *startup_source = " m-ns_22)))))))))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_331 rest_257)(values))))" +"(if(not #f)(for-loop_334 rest_258)(values))))" "(values))))))" -" for-loop_331)" -" lst_446)))" +" for-loop_334)" +" lst_447)))" "(void)))))" "(define-values" "(expand-submodule197.1)" @@ -77301,7 +77429,7 @@ static const char *startup_source = " ctx196_0)" "(begin" " 'expand-submodule197" -"(let-values(((s_855) s194_0))" +"(let-values(((s_853) s194_0))" "(let-values(((self_42) self195_0))" "(let-values(((ctx_122) ctx196_0))" "(let-values(((is-star?_0) is-star?176_0))" @@ -77330,42 +77458,42 @@ static const char *startup_source = "(let-values()" "(let-values()" "(begin" -"(call-expand-observe obs_158 'enter-prim s_855)" +"(call-expand-observe obs_158 'enter-prim s_853)" "(call-expand-observe" " obs_158" "(if is-star?_0 'prim-submodule* 'prim-submodule)))))" "(void)))))" "(values))))" "(let-values(((ok?_88 module662_0 name663_0 _664_0)" -"(let-values(((s_856) s_855))" -"(let-values(((orig-s_95) s_856))" +"(let-values(((s_854) s_853))" +"(let-values(((orig-s_95) s_854))" "(let-values(((module662_1 name663_1 _664_1)" -"(let-values(((s_857)" -"(if(syntax?$1 s_856)" -"(syntax-e$1 s_856)" -" s_856)))" -"(if(pair? s_857)" +"(let-values(((s_855)" +"(if(syntax?$1 s_854)" +"(syntax-e$1 s_854)" +" s_854)))" +"(if(pair? s_855)" "(let-values(((module665_0)" -"(let-values(((s_858)(car s_857)))" -" s_858))" +"(let-values(((s_856)(car s_855)))" +" s_856))" "((name666_0 _667_0)" -"(let-values(((s_859)(cdr s_857)))" -"(let-values(((s_860)" +"(let-values(((s_857)(cdr s_855)))" +"(let-values(((s_858)" "(if(syntax?$1" -" s_859)" -"(syntax-e$1 s_859)" -" s_859)))" -"(if(pair? s_860)" +" s_857)" +"(syntax-e$1 s_857)" +" s_857)))" +"(if(pair? s_858)" "(let-values(((name668_0)" -"(let-values(((s_861)" +"(let-values(((s_859)" "(car" -" s_860)))" -" s_861))" +" s_858)))" +" s_859))" "((_669_0)" -"(let-values(((s_862)" +"(let-values(((s_860)" "(cdr" +" s_858)))" " s_860)))" -" s_862)))" "(values name668_0 _669_0))" "(raise-syntax-error$1" " #f" @@ -77385,7 +77513,7 @@ static const char *startup_source = "(raise-syntax-error$1" " #f" " \"submodule already declared with the same name\"" -" s_855" +" s_853" " name_80))" "(void))" "(values))))" @@ -77402,112 +77530,112 @@ static const char *startup_source = "(if obs_159" "(let-values()" "(let-values()" -"(call-expand-observe obs_159 'enter-prim s_855)))" +"(call-expand-observe obs_159 'enter-prim s_853)))" "(void)))" "(values))))" "(let-values(((submod_5)" -"(let-values(((s670_0) s_855)" +"(let-values(((s670_0) s_853)" "((temp671_0)" "(let-values(((v_271) ctx_122))" -"(let-values(((the-struct_116) v_271))" -"(if(expand-context/outer? the-struct_116)" +"(let-values(((the-struct_115) v_271))" +"(if(expand-context/outer? the-struct_115)" "(let-values(((context680_0) 'module)" "((post-expansion-scope681_0)" " #f)" "((inner682_0)" -"(let-values(((the-struct_117)" +"(let-values(((the-struct_116)" "(root-expand-context/outer-inner" " v_271)))" "(if(expand-context/inner?" -" the-struct_117)" +" the-struct_116)" "(let-values(((stops683_0)" " empty-free-id-set))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi" -" the-struct_117)" +" the-struct_116)" "(root-expand-context/inner-module-scopes" -" the-struct_117)" +" the-struct_116)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_117)" +" the-struct_116)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_117)" +" the-struct_116)" "(root-expand-context/inner-defined-syms" -" the-struct_117)" +" the-struct_116)" "(root-expand-context/inner-counter" -" the-struct_117)" +" the-struct_116)" "(root-expand-context/inner-lift-key" -" the-struct_117)" +" the-struct_116)" "(expand-context/inner-to-parsed?" -" the-struct_117)" +" the-struct_116)" "(expand-context/inner-phase" -" the-struct_117)" +" the-struct_116)" "(expand-context/inner-namespace" -" the-struct_117)" +" the-struct_116)" "(expand-context/inner-just-once?" -" the-struct_117)" +" the-struct_116)" "(expand-context/inner-module-begin-k" -" the-struct_117)" +" the-struct_116)" "(expand-context/inner-allow-unbound?" -" the-struct_117)" +" the-struct_116)" "(expand-context/inner-in-local-expand?" -" the-struct_117)" +" the-struct_116)" " stops683_0" "(expand-context/inner-declared-submodule-names" -" the-struct_117)" +" the-struct_116)" "(expand-context/inner-lifts" -" the-struct_117)" +" the-struct_116)" "(expand-context/inner-lift-envs" -" the-struct_117)" +" the-struct_116)" "(expand-context/inner-module-lifts" -" the-struct_117)" +" the-struct_116)" "(expand-context/inner-require-lifts" -" the-struct_117)" +" the-struct_116)" "(expand-context/inner-to-module-lifts" -" the-struct_117)" +" the-struct_116)" "(expand-context/inner-requires+provides" -" the-struct_117)" +" the-struct_116)" "(expand-context/inner-observer" -" the-struct_117)" +" the-struct_116)" "(expand-context/inner-for-serializable?" -" the-struct_117)" +" the-struct_116)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_117)))" +" the-struct_116)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_117)))))" +" the-struct_116)))))" "(expand-context/outer1.1" " inner682_0" " post-expansion-scope681_0" "(root-expand-context/outer-use-site-scopes" -" the-struct_116)" +" the-struct_115)" "(root-expand-context/outer-frame-id" -" the-struct_116)" +" the-struct_115)" " context680_0" "(expand-context/outer-env" -" the-struct_116)" +" the-struct_115)" "(expand-context/outer-post-expansion-scope-action" -" the-struct_116)" +" the-struct_115)" "(expand-context/outer-scopes" -" the-struct_116)" +" the-struct_115)" "(expand-context/outer-def-ctx-scopes" -" the-struct_116)" +" the-struct_115)" "(expand-context/outer-binding-layer" -" the-struct_116)" +" the-struct_115)" "(expand-context/outer-reference-records" -" the-struct_116)" +" the-struct_115)" "(expand-context/outer-only-immediate?" -" the-struct_116)" +" the-struct_115)" "(expand-context/outer-need-eventually-defined" -" the-struct_116)" +" the-struct_115)" "(expand-context/outer-current-introduction-scopes" -" the-struct_116)" +" the-struct_115)" "(expand-context/outer-name" -" the-struct_116)))" +" the-struct_115)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_116)))))" +" the-struct_115)))))" "((self672_0) self_42)" "((temp673_0) #t)" "((keep-enclosing-scope-at-phase674_0)" @@ -77641,67 +77769,67 @@ static const char *startup_source = "(let-values() submod_5)" "(if(expanded+parsed? submod_5)" "(let-values()" -"(let-values(((the-struct_118) submod_5))" -"(if(expanded+parsed? the-struct_118)" +"(let-values(((the-struct_117) submod_5))" +"(if(expanded+parsed? the-struct_117)" "(let-values(((parsed695_0)" -"(let-values(((the-struct_119)" +"(let-values(((the-struct_118)" "(expanded+parsed-parsed" " submod_5)))" -"(if(parsed-module? the-struct_119)" +"(if(parsed-module? the-struct_118)" "(let-values(((star?696_0) #t))" "(parsed-module25.1" -"(parsed-s the-struct_119)" +"(parsed-s the-struct_118)" " star?696_0" "(parsed-module-name-id" -" the-struct_119)" +" the-struct_118)" "(parsed-module-self" -" the-struct_119)" +" the-struct_118)" "(parsed-module-requires" -" the-struct_119)" +" the-struct_118)" "(parsed-module-provides" -" the-struct_119)" +" the-struct_118)" "(parsed-module-root-ctx-simple?" -" the-struct_119)" +" the-struct_118)" "(parsed-module-encoded-root-ctx" -" the-struct_119)" +" the-struct_118)" "(parsed-module-body" -" the-struct_119)" +" the-struct_118)" "(parsed-module-compiled-module" -" the-struct_119)" +" the-struct_118)" "(parsed-module-compiled-submodules" -" the-struct_119)))" +" the-struct_118)))" "(raise-argument-error" " 'struct-copy" " \"parsed-module?\"" -" the-struct_119)))))" +" the-struct_118)))))" "(expanded+parsed1.1" -"(expanded+parsed-s the-struct_118)" +"(expanded+parsed-s the-struct_117)" " parsed695_0))" "(raise-argument-error" " 'struct-copy" " \"expanded+parsed?\"" -" the-struct_118))))" +" the-struct_117))))" "(let-values()" -"(let-values(((the-struct_120) submod_5))" -"(if(parsed-module? the-struct_120)" +"(let-values(((the-struct_119) submod_5))" +"(if(parsed-module? the-struct_119)" "(let-values(((star?697_0) #t))" "(parsed-module25.1" -"(parsed-s the-struct_120)" +"(parsed-s the-struct_119)" " star?697_0" -"(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-name-id the-struct_119)" +"(parsed-module-self the-struct_119)" +"(parsed-module-requires the-struct_119)" +"(parsed-module-provides the-struct_119)" +"(parsed-module-root-ctx-simple? the-struct_119)" +"(parsed-module-encoded-root-ctx the-struct_119)" +"(parsed-module-body the-struct_119)" +"(parsed-module-compiled-module the-struct_119)" "(parsed-module-compiled-submodules" -" the-struct_120)))" +" the-struct_119)))" "(raise-argument-error" " 'struct-copy" " \"parsed-module?\"" -" the-struct_120)))))))))))))))))))))))))))))))))))" +" the-struct_119)))))))))))))))))))))))))))))))))))" "(define-values" "(expand-non-module*-submodules212.1)" "(lambda(compiled-submodules202_0" @@ -77715,7 +77843,7 @@ static const char *startup_source = "(begin" " 'expand-non-module*-submodules212" "(let-values(((bodys_29) bodys208_0))" -"(let-values(((phase_167) phase209_0))" +"(let-values(((phase_168) phase209_0))" "(let-values(((self_43) self210_0))" "(let-values(((ctx_123) ctx211_0))" "(let-values(((mpis-to-reset_5) mpis-to-reset200_0))" @@ -77724,21 +77852,21 @@ static const char *startup_source = "(let-values(((modules-being-compiled_9) modules-being-compiled203_0))" "(let-values()" "(reverse$1" -"(let-values(((lst_454) bodys_29))" +"(let-values(((lst_455) bodys_29))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_454)))" -"((letrec-values(((for-loop_333)" -"(lambda(fold-var_392 lst_455)" +"(let-values()(check-list lst_455)))" +"((letrec-values(((for-loop_336)" +"(lambda(fold-var_394 lst_456)" "(begin" " 'for-loop" -"(if(pair? lst_455)" -"(let-values(((body_27)(unsafe-car lst_455))" -"((rest_261)(unsafe-cdr lst_455)))" -"(let-values(((fold-var_393)" -"(let-values(((fold-var_394) fold-var_392))" +"(if(pair? lst_456)" +"(let-values(((body_27)(unsafe-car lst_456))" +"((rest_262)(unsafe-cdr lst_456)))" "(let-values(((fold-var_395)" +"(let-values(((fold-var_396) fold-var_394))" +"(let-values(((fold-var_397)" "(let-values()" "(cons" "(let-values()" @@ -77746,7 +77874,7 @@ static const char *startup_source = "(core-form-sym" "(syntax-disarm$1" " body_27)" -" phase_167)))" +" phase_168)))" "(if(equal? tmp_72 'module)" "(let-values()" "(let-values(((body698_0)" @@ -77783,15 +77911,15 @@ static const char *startup_source = " self699_0" " ctx700_0)))" "(let-values() body_27))))" -" fold-var_394))))" -"(values fold-var_395)))))" +" fold-var_396))))" +"(values fold-var_397)))))" "(if(not #f)" -"(for-loop_333 fold-var_393 rest_261)" -" fold-var_393)))" -" fold-var_392)))))" -" for-loop_333)" +"(for-loop_336 fold-var_395 rest_262)" +" fold-var_395)))" +" fold-var_394)))))" +" for-loop_336)" " null" -" lst_454))))))))))))))))" +" lst_455))))))))))))))))" "(define-values" "(make-parse-lifted-require220.1)" "(lambda(declared-submodule-names215_0 m-ns217_0 self218_0 requires+provides219_0)" @@ -77802,37 +77930,37 @@ static const char *startup_source = "(let-values(((requires+provides_13) requires+provides219_0))" "(let-values(((declared-submodule-names_10) declared-submodule-names215_0))" "(let-values()" -"(lambda(s_863 phase_168)" +"(lambda(s_861 phase_169)" "(let-values(((ok?_89 #%require706_0 req707_0)" -"(let-values(((s_864)(syntax-disarm$1 s_863)))" -"(let-values(((orig-s_96) s_864))" +"(let-values(((s_862)(syntax-disarm$1 s_861)))" +"(let-values(((orig-s_96) s_862))" "(let-values(((#%require706_1 req707_1)" -"(let-values(((s_865)" -"(if(syntax?$1 s_864)(syntax-e$1 s_864) s_864)))" -"(if(pair? s_865)" +"(let-values(((s_863)" +"(if(syntax?$1 s_862)(syntax-e$1 s_862) s_862)))" +"(if(pair? s_863)" "(let-values(((#%require708_0)" -"(let-values(((s_866)(car s_865))) s_866))" +"(let-values(((s_864)(car s_863))) s_864))" "((req709_0)" -"(let-values(((s_867)(cdr s_865)))" -"(let-values(((s_868)" -"(if(syntax?$1 s_867)" -"(syntax-e$1 s_867)" -" s_867)))" -"(if(pair? s_868)" +"(let-values(((s_865)(cdr s_863)))" +"(let-values(((s_866)" +"(if(syntax?$1 s_865)" +"(syntax-e$1 s_865)" +" s_865)))" +"(if(pair? s_866)" "(let-values(((req710_0)" -"(let-values(((s_869)" -"(car s_868)))" -" s_869))" +"(let-values(((s_867)" +"(car s_866)))" +" s_867))" "(()" -"(let-values(((s_870)" -"(cdr s_868)))" -"(let-values(((s_871)" +"(let-values(((s_868)" +"(cdr s_866)))" +"(let-values(((s_869)" "(if(syntax?$1" -" s_870)" +" s_868)" "(syntax-e$1" -" s_870)" -" s_870)))" -"(if(null? s_871)" +" s_868)" +" s_868)))" +"(if(null? s_869)" "(values)" "(raise-syntax-error$1" " #f" @@ -77847,11 +77975,11 @@ static const char *startup_source = " (raise-syntax-error$1 #f \"bad syntax\" orig-s_96)))))" "(values #t #%require706_1 req707_1))))))" "(let-values(((temp711_0)(list req707_0))" -"((s712_0) s_863)" +"((s712_0) s_861)" "((self713_0) self_44)" "((m-ns714_0) m-ns_23)" -"((phase715_0) phase_168)" -"((phase716_0) phase_168)" +"((phase715_0) phase_169)" +"((phase716_0) phase_169)" "((requires+provides717_0) requires+provides_13)" "((declared-submodule-names718_0) declared-submodule-names_10)" "((temp719_0) 'require))" @@ -77893,30 +78021,30 @@ static const char *startup_source = "(lambda(lifted-defns_2)" "(begin" "(reverse$1" -"(let-values(((lst_456) lifted-defns_2))" +"(let-values(((lst_457) lifted-defns_2))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_456)))" -"((letrec-values(((for-loop_334)" -"(lambda(fold-var_396 lst_457)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_457)))" +"((letrec-values(((for-loop_337)" +"(lambda(fold-var_398 lst_458)" "(begin" " 'for-loop" -"(if(pair? lst_457)" -"(let-values(((lifted-defn_0)(unsafe-car lst_457))" -"((rest_262)(unsafe-cdr lst_457)))" -"(let-values(((fold-var_397)" -"(let-values(((fold-var_398) fold-var_396))" +"(if(pair? lst_458)" +"(let-values(((lifted-defn_0)(unsafe-car lst_458))" +"((rest_263)(unsafe-cdr lst_458)))" "(let-values(((fold-var_399)" +"(let-values(((fold-var_400) fold-var_398))" +"(let-values(((fold-var_401)" "(let-values()" "(cons" "(let-values()" "(defn-extract-syntax lifted-defn_0))" -" fold-var_398))))" -"(values fold-var_399)))))" -"(if(not #f)(for-loop_334 fold-var_397 rest_262) fold-var_397)))" -" fold-var_396)))))" -" for-loop_334)" +" fold-var_400))))" +"(values fold-var_401)))))" +"(if(not #f)(for-loop_337 fold-var_399 rest_263) fold-var_399)))" +" fold-var_398)))))" +" for-loop_337)" " null" -" lst_456)))))))" +" lst_457)))))))" "(define-values" "(log-lifted-defns)" "(lambda(partial-body-ctx_2 lifted-defns_3 exp-body_10 rest-bodys_4)" @@ -77932,18 +78060,18 @@ static const char *startup_source = "(let-values((()(begin(call-expand-observe obs_162 'module-lift-loop s-lifted-defns_0)(values))))" "(let-values((()" "(begin" -"(let-values(((lst_458) s-lifted-defns_0))" +"(let-values(((lst_459) s-lifted-defns_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_458)))" -"((letrec-values(((for-loop_335)" -"(lambda(lst_459)" +"(let-values()(check-list lst_459)))" +"((letrec-values(((for-loop_338)" +"(lambda(lst_460)" "(begin" " 'for-loop" -"(if(pair? lst_459)" -"(let-values(((s-lifted-defn_0)(unsafe-car lst_459))" -"((rest_263)(unsafe-cdr lst_459)))" +"(if(pair? lst_460)" +"(let-values(((s-lifted-defn_0)(unsafe-car lst_460))" +"((rest_264)(unsafe-cdr lst_460)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -77953,38 +78081,38 @@ static const char *startup_source = "(let-values(((ok?_90" " define-values724_0" " _725_0)" -"(let-values(((s_872)" +"(let-values(((s_870)" " s-lifted-defn_0))" "(let-values(((orig-s_97)" -" s_872))" +" s_870))" "(let-values(((define-values724_1" " _725_1)" -"(let-values(((s_873)" +"(let-values(((s_871)" "(if(syntax?$1" -" s_872)" +" s_870)" "(syntax-e$1" -" s_872)" -" s_872)))" +" s_870)" +" s_870)))" "(if(pair?" -" s_873)" +" s_871)" "(let-values(((define-values726_0)" -"(let-values(((s_874)" +"(let-values(((s_872)" "(car" -" s_873)))" -" s_874))" +" s_871)))" +" s_872))" "((_727_0)" -"(let-values(((s_875)" +"(let-values(((s_873)" "(cdr" -" s_873)))" -"(let-values(((s_876)" +" s_871)))" +"(let-values(((s_874)" "(if(syntax?$1" -" s_875)" +" s_873)" "(syntax-e$1" -" s_875)" -" s_875)))" +" s_873)" +" s_873)))" "(let-values(((flat-s_64)" "(to-syntax-list.1" -" s_876)))" +" s_874)))" "(if(not" " flat-s_64)" "(let-values()" @@ -78049,23 +78177,23 @@ static const char *startup_source = " s-lifted-defn_0))))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_335 rest_263)(values))))" +"(if(not #f)(for-loop_338 rest_264)(values))))" "(values))))))" -" for-loop_335)" -" lst_458)))" +" for-loop_338)" +" lst_459)))" "(values))))" "(let-values()" "(let-values(((ok?_91 form-id720_0 _721_0)" -"(let-values(((s_877) exp-body_10))" -"(let-values(((orig-s_98) s_877))" +"(let-values(((s_875) exp-body_10))" +"(let-values(((orig-s_98) s_875))" "(let-values(((form-id720_1 _721_1)" -"(let-values(((s_878)" -"(if(syntax?$1 s_877)(syntax-e$1 s_877) s_877)))" -"(if(pair? s_878)" +"(let-values(((s_876)" +"(if(syntax?$1 s_875)(syntax-e$1 s_875) s_875)))" +"(if(pair? s_876)" "(let-values(((form-id722_0)" -"(let-values(((s_879)(car s_878))) s_879))" +"(let-values(((s_877)(car s_876))) s_877))" "((_723_0)" -"(let-values(((s_880)(cdr s_878))) s_880)))" +"(let-values(((s_878)(cdr s_876))) s_878)))" "(values form-id722_0 _723_0))" " (raise-syntax-error$1 #f \"bad syntax\" orig-s_98)))))" "(values #t form-id720_1 _721_1))))))" @@ -78087,20 +78215,20 @@ static const char *startup_source = "(let-values()" "(let-values(((s-defn_0)(defn-extract-syntax defn_1)))" "(let-values(((ok?_92 define-values728_0 _729_0)" -"(let-values(((s_881) s-defn_0))" -"(let-values(((orig-s_99) s_881))" +"(let-values(((s_879) s-defn_0))" +"(let-values(((orig-s_99) s_879))" "(let-values(((define-values728_1 _729_1)" -"(let-values(((s_882)(if(syntax?$1 s_881)(syntax-e$1 s_881) s_881)))" -"(if(pair? s_882)" +"(let-values(((s_880)(if(syntax?$1 s_879)(syntax-e$1 s_879) s_879)))" +"(if(pair? s_880)" "(let-values(((define-values730_0)" -"(let-values(((s_883)(car s_882))) s_883))" +"(let-values(((s_881)(car s_880))) s_881))" "((_731_0)" -"(let-values(((s_884)(cdr s_882)))" -"(let-values(((s_885)" -"(if(syntax?$1 s_884)" -"(syntax-e$1 s_884)" -" s_884)))" -"(let-values(((flat-s_65)(to-syntax-list.1 s_885)))" +"(let-values(((s_882)(cdr s_880)))" +"(let-values(((s_883)" +"(if(syntax?$1 s_882)" +"(syntax-e$1 s_882)" +" s_882)))" +"(let-values(((flat-s_65)(to-syntax-list.1 s_883)))" "(if(not flat-s_65)" "(let-values()" "(raise-syntax-error$1" @@ -78144,25 +78272,25 @@ static const char *startup_source = "(void)" "(let-values()(check-list lst_6)))" "((letrec-values(((for-loop_104)" -"(lambda(fold-var_400 lst_85)" +"(lambda(fold-var_402 lst_85)" "(begin" " 'for-loop" "(if(pair? lst_85)" -"(let-values(((id_168)(unsafe-car lst_85))" +"(let-values(((id_169)(unsafe-car lst_85))" "((rest_40)(unsafe-cdr lst_85)))" "(let-values(((fold-var_61)" -"(let-values(((fold-var_62) fold-var_400))" -"(let-values(((fold-var_401)" +"(let-values(((fold-var_62) fold-var_402))" +"(let-values(((fold-var_403)" "(let-values()" "(cons" "(let-values()" "(remove-use-site-scopes" -" id_168" +" id_169" " ctx_126))" " fold-var_62))))" -"(values fold-var_401)))))" +"(values fold-var_403)))))" "(if(not #f)(for-loop_104 fold-var_61 rest_40) fold-var_61)))" -" fold-var_400)))))" +" fold-var_402)))))" " for-loop_104)" " null" " lst_6))))))" @@ -78178,29 +78306,29 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_100)))" -"((letrec-values(((for-loop_336)" -"(lambda(fold-var_222 lst_86)" +"((letrec-values(((for-loop_339)" +"(lambda(fold-var_224 lst_86)" "(begin" " 'for-loop" "(if(pair? lst_86)" -"(let-values(((id_169)(unsafe-car lst_86))" -"((rest_243)(unsafe-cdr lst_86)))" +"(let-values(((id_170)(unsafe-car lst_86))" +"((rest_244)(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_157) fold-var_224))" +"(let-values(((fold-var_227)" "(let-values()" "(cons" "(let-values()" "(add-scope" -" id_169" +" id_170" " top-level-bind-scope_6))" -" fold-var_155))))" -"(values fold-var_225)))))" +" fold-var_157))))" +"(values fold-var_227)))))" "(if(not #f)" -"(for-loop_336 fold-var_26 rest_243)" +"(for-loop_339 fold-var_26 rest_244)" " fold-var_26)))" -" fold-var_222)))))" -" for-loop_336)" +" fold-var_224)))))" +" for-loop_339)" " null" " lst_100))))))" "(values tl-ids_2(select-defined-syms-and-bind!/ctx tmp-bind-ids_0 ctx_126)))))))))" @@ -78223,10 +78351,10 @@ static const char *startup_source = "(values))))" "(let-values(((disarmed-s_25)(syntax-disarm$1 s_0)))" "(let-values(((ok?_24 define-values1_0 id2_1 rhs3_0)" -"(let-values(((s_399) s_0))" -"(let-values(((orig-s_100) s_399))" +"(let-values(((s_400) s_0))" +"(let-values(((orig-s_100) s_400))" "(let-values(((define-values1_1 id2_2 rhs3_1)" -"(let-values(((s_172)(if(syntax?$1 s_399)(syntax-e$1 s_399) s_399)))" +"(let-values(((s_172)(if(syntax?$1 s_400)(syntax-e$1 s_400) s_400)))" "(if(pair? s_172)" "(let-values(((define-values4_0)" "(let-values(((s_73)(car s_172))) s_73))" @@ -78238,11 +78366,11 @@ static const char *startup_source = " s_173)))" "(if(pair? s_76)" "(let-values(((id7_0)" -"(let-values(((s_158)(car s_76)))" +"(let-values(((s_159)(car s_76)))" "(let-values(((s_5)" -"(if(syntax?$1 s_158)" -"(syntax-e$1 s_158)" -" s_158)))" +"(if(syntax?$1 s_159)" +"(syntax-e$1 s_159)" +" s_159)))" "(let-values(((flat-s_66)" "(to-syntax-list.1" " s_5)))" @@ -78263,8 +78391,8 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_24)))" -"((letrec-values(((for-loop_250)" -"(lambda(id_170" +"((letrec-values(((for-loop_252)" +"(lambda(id_171" " lst_80)" "(begin" " 'for-loop" @@ -78276,10 +78404,10 @@ static const char *startup_source = "((rest_143)" "(unsafe-cdr" " lst_80)))" -"(let-values(((id_171)" -"(let-values(((id_53)" -" id_170))" "(let-values(((id_172)" +"(let-values(((id_53)" +" id_171))" +"(let-values(((id_173)" "(let-values()" "(let-values(((id10_1)" "(let-values()" @@ -78304,34 +78432,34 @@ static const char *startup_source = " id10_1" " id_53)))))" "(values" -" id_172)))))" +" id_173)))))" "(if(not" " #f)" -"(for-loop_250" -" id_171" +"(for-loop_252" +" id_172" " rest_143)" -" id_171)))" -" id_170)))))" -" for-loop_250)" +" id_172)))" +" id_171)))))" +" for-loop_252)" " null" " lst_24)))))" "(reverse$1 id_5))))))))" "((rhs8_0)" "(let-values(((s_83)(cdr s_76)))" -"(let-values(((s_377)" +"(let-values(((s_378)" "(if(syntax?$1 s_83)" "(syntax-e$1 s_83)" " s_83)))" -"(if(pair? s_377)" +"(if(pair? s_378)" "(let-values(((rhs9_0)" "(let-values(((s_44)" "(car" -" s_377)))" +" s_378)))" " s_44))" "(()" "(let-values(((s_300)" "(cdr" -" s_377)))" +" s_378)))" "(let-values(((s_35)" "(if(syntax?$1" " s_300)" @@ -78370,7 +78498,7 @@ static const char *startup_source = "(void" "(add-core-form!*" " 'define-syntaxes" -"(lambda(s_886 ctx_127)" +"(lambda(s_884 ctx_127)" "(let-values((()" "(begin" "(let-values(((obs_166)(expand-context-observer ctx_127)))" @@ -78387,33 +78515,33 @@ static const char *startup_source = "(begin" "(if(eq?(expand-context-context ctx_127) 'top-level)" "(void)" -" (let-values () (raise-syntax-error$1 #f \"not in a definition context\" s_886)))" +" (let-values () (raise-syntax-error$1 #f \"not in a definition context\" s_884)))" "(values))))" -"(let-values(((disarmed-s_26)(syntax-disarm$1 s_886)))" +"(let-values(((disarmed-s_26)(syntax-disarm$1 s_884)))" "(let-values(((ok?_93 define-syntaxes15_0 id16_1 rhs17_0)" -"(let-values(((s_420) disarmed-s_26))" -"(let-values(((orig-s_101) s_420))" +"(let-values(((s_421) disarmed-s_26))" +"(let-values(((orig-s_101) s_421))" "(let-values(((define-syntaxes15_1 id16_2 rhs17_1)" -"(let-values(((s_20)(if(syntax?$1 s_420)(syntax-e$1 s_420) s_420)))" +"(let-values(((s_20)(if(syntax?$1 s_421)(syntax-e$1 s_421) s_421)))" "(if(pair? s_20)" "(let-values(((define-syntaxes18_0)" "(let-values(((s_23)(car s_20))) s_23))" "((id19_1 rhs20_0)" -"(let-values(((s_452)(cdr s_20)))" +"(let-values(((s_453)(cdr s_20)))" "(let-values(((s_24)" -"(if(syntax?$1 s_452)" -"(syntax-e$1 s_452)" -" s_452)))" +"(if(syntax?$1 s_453)" +"(syntax-e$1 s_453)" +" s_453)))" "(if(pair? s_24)" "(let-values(((id21_0)" -"(let-values(((s_731)(car s_24)))" -"(let-values(((s_459)" -"(if(syntax?$1 s_731)" -"(syntax-e$1 s_731)" -" s_731)))" +"(let-values(((s_78)(car s_24)))" +"(let-values(((s_460)" +"(if(syntax?$1 s_78)" +"(syntax-e$1 s_78)" +" s_78)))" "(let-values(((flat-s_67)" "(to-syntax-list.1" -" s_459)))" +" s_460)))" "(if(not flat-s_67)" "(let-values()" "(raise-syntax-error$1" @@ -78421,8 +78549,8 @@ static const char *startup_source = " \"bad syntax\"" " orig-s_101))" "(let-values()" -"(let-values(((id_173)" -"(let-values(((lst_181)" +"(let-values(((id_174)" +"(let-values(((lst_182)" " flat-s_67))" "(begin" "(if(variable-reference-from-unsafe?" @@ -78430,44 +78558,44 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_181)))" -"((letrec-values(((for-loop_337)" -"(lambda(id_174" -" lst_460)" +" lst_182)))" +"((letrec-values(((for-loop_340)" +"(lambda(id_175" +" lst_461)" "(begin" " 'for-loop" "(if(pair?" -" lst_460)" -"(let-values(((s_887)" +" lst_461)" +"(let-values(((s_885)" "(unsafe-car" -" lst_460))" -"((rest_264)" +" lst_461))" +"((rest_265)" "(unsafe-cdr" -" lst_460)))" -"(let-values(((id_175)" +" lst_461)))" +"(let-values(((id_176)" "(let-values(((id_98)" -" id_174))" +" id_175))" "(let-values(((id_99)" "(let-values()" "(let-values(((id24_1)" "(let-values()" "(if(let-values(((or-part_73)" "(if(syntax?$1" -" s_887)" +" s_885)" "(symbol?" "(syntax-e$1" -" s_887))" +" s_885))" " #f)))" "(if or-part_73" " or-part_73" "(symbol?" -" s_887)))" -" s_887" +" s_885)))" +" s_885" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_101" -" s_887)))))" +" s_885)))))" "(cons" " id24_1" " id_98)))))" @@ -78475,39 +78603,39 @@ static const char *startup_source = " id_99)))))" "(if(not" " #f)" -"(for-loop_337" -" id_175" -" rest_264)" -" id_175)))" -" id_174)))))" -" for-loop_337)" +"(for-loop_340" +" id_176" +" rest_265)" +" id_176)))" +" id_175)))))" +" for-loop_340)" " null" -" lst_181)))))" -"(reverse$1 id_173))))))))" +" lst_182)))))" +"(reverse$1 id_174))))))))" "((rhs22_0)" "(let-values(((s_485)(cdr s_24)))" -"(let-values(((s_467)" +"(let-values(((s_468)" "(if(syntax?$1 s_485)" "(syntax-e$1 s_485)" " s_485)))" -"(if(pair? s_467)" +"(if(pair? s_468)" "(let-values(((rhs23_2)" "(let-values(((s_167)" "(car" -" s_467)))" +" s_468)))" " s_167))" "(()" "(let-values(((s_45)" "(cdr" -" s_467)))" -"(let-values(((s_468)" +" s_468)))" +"(let-values(((s_469)" "(if(syntax?$1" " s_45)" "(syntax-e$1" " s_45)" " s_45)))" "(if(null?" -" s_468)" +" s_469)" "(values)" "(raise-syntax-error$1" " #f" @@ -78526,37 +78654,37 @@ static const char *startup_source = "(values define-syntaxes18_0 id19_1 rhs20_0))" " (raise-syntax-error$1 #f \"bad syntax\" orig-s_101)))))" "(values #t define-syntaxes15_1 id16_2 rhs17_1))))))" -"(let-values(((ids_51 syms_29)(as-expand-time-top-level-bindings id16_1 s_886 ctx_127)))" +"(let-values(((ids_51 syms_29)(as-expand-time-top-level-bindings id16_1 s_884 ctx_127)))" "(let-values(((exp-rhs_10)" "(let-values(((temp25_7) rhs17_0)((temp26_6)(as-named-context ctx_127 ids_51)))" "(expand-transformer58.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_886 ids_51 syms_29 exp-rhs_10)" -"(let-values(((s27_3) s_886)((temp28_7)(list define-syntaxes15_0 ids_51 exp-rhs_10)))" +"(parsed-define-syntaxes20.1 s_884 ids_51 syms_29 exp-rhs_10)" +"(let-values(((s27_3) s_884)((temp28_7)(list define-syntaxes15_0 ids_51 exp-rhs_10)))" "(rebuild5.1 #f #f s27_3 temp28_7)))))))))))))" "(void" "(add-core-form!*" " 'begin-for-syntax" -"(lambda(s_471 ctx_10)" +"(lambda(s_472 ctx_10)" "(let-values((()" "(begin" "(if(eq?(expand-context-context ctx_10) 'top-level)" "(void)" -" (let-values () (raise-syntax-error$1 #f \"not in a definition context\" s_471)))" +" (let-values () (raise-syntax-error$1 #f \"not in a definition context\" s_472)))" "(values))))" "(let-values(((ok?_94 begin-for-syntax29_0 form30_0)" -"(let-values(((s_415) s_471))" -"(let-values(((orig-s_102) s_415))" +"(let-values(((s_416) s_472))" +"(let-values(((orig-s_102) s_416))" "(let-values(((begin-for-syntax29_1 form30_1)" -"(let-values(((s_416)(if(syntax?$1 s_415)(syntax-e$1 s_415) s_415)))" -"(if(pair? s_416)" +"(let-values(((s_417)(if(syntax?$1 s_416)(syntax-e$1 s_416) s_416)))" +"(if(pair? s_417)" "(let-values(((begin-for-syntax31_0)" -"(let-values(((s_31)(car s_416))) s_31))" +"(let-values(((s_31)(car s_417))) s_31))" "((form32_0)" -"(let-values(((s_47)(cdr s_416)))" -"(let-values(((s_888)" +"(let-values(((s_47)(cdr s_417)))" +"(let-values(((s_886)" "(if(syntax?$1 s_47)(syntax-e$1 s_47) s_47)))" -"(let-values(((flat-s_68)(to-syntax-list.1 s_888)))" +"(let-values(((flat-s_68)(to-syntax-list.1 s_886)))" "(if(not flat-s_68)" "(let-values()" " (raise-syntax-error$1 #f \"bad syntax\" orig-s_102))" @@ -78586,63 +78714,63 @@ static const char *startup_source = "(make-lift-context6.1 #f #f temp36_10))))" "(let-values(((capture-ctx_1)" "(let-values(((v_78) trans-ctx_1))" -"(let-values(((the-struct_121) v_78))" -"(if(expand-context/outer? the-struct_121)" +"(let-values(((the-struct_120) v_78))" +"(if(expand-context/outer? the-struct_120)" "(let-values(((inner37_0)" -"(let-values(((the-struct_122)" +"(let-values(((the-struct_121)" "(root-expand-context/outer-inner v_78)))" -"(if(expand-context/inner? the-struct_122)" +"(if(expand-context/inner? the-struct_121)" "(let-values(((lift-key38_0)(generate-lift-key))" "((lifts39_0) lift-ctx_7))" "(expand-context/inner2.1" -"(root-expand-context/inner-self-mpi the-struct_122)" -"(root-expand-context/inner-module-scopes the-struct_122)" +"(root-expand-context/inner-self-mpi the-struct_121)" +"(root-expand-context/inner-module-scopes the-struct_121)" "(root-expand-context/inner-top-level-bind-scope" -" 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)" +" the-struct_121)" +"(root-expand-context/inner-all-scopes-stx the-struct_121)" +"(root-expand-context/inner-defined-syms the-struct_121)" +"(root-expand-context/inner-counter the-struct_121)" " lift-key38_0" -"(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-stops the-struct_122)" -"(expand-context/inner-declared-submodule-names the-struct_122)" +"(expand-context/inner-to-parsed? the-struct_121)" +"(expand-context/inner-phase the-struct_121)" +"(expand-context/inner-namespace the-struct_121)" +"(expand-context/inner-just-once? the-struct_121)" +"(expand-context/inner-module-begin-k the-struct_121)" +"(expand-context/inner-allow-unbound? the-struct_121)" +"(expand-context/inner-in-local-expand? the-struct_121)" +"(expand-context/inner-stops the-struct_121)" +"(expand-context/inner-declared-submodule-names the-struct_121)" " lifts39_0" -"(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-lift-envs the-struct_121)" +"(expand-context/inner-module-lifts the-struct_121)" +"(expand-context/inner-require-lifts the-struct_121)" +"(expand-context/inner-to-module-lifts the-struct_121)" +"(expand-context/inner-requires+provides the-struct_121)" +"(expand-context/inner-observer the-struct_121)" +"(expand-context/inner-for-serializable? the-struct_121)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_122)))" +" the-struct_121)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_122)))))" +" the-struct_121)))))" "(expand-context/outer1.1" " inner37_0" -"(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))))))" +"(root-expand-context/outer-post-expansion-scope the-struct_120)" +"(root-expand-context/outer-use-site-scopes the-struct_120)" +"(root-expand-context/outer-frame-id the-struct_120)" +"(expand-context/outer-context the-struct_120)" +"(expand-context/outer-env the-struct_120)" +"(expand-context/outer-post-expansion-scope-action the-struct_120)" +"(expand-context/outer-scopes the-struct_120)" +"(expand-context/outer-def-ctx-scopes the-struct_120)" +"(expand-context/outer-binding-layer the-struct_120)" +"(expand-context/outer-reference-records the-struct_120)" +"(expand-context/outer-only-immediate? the-struct_120)" +"(expand-context/outer-need-eventually-defined the-struct_120)" +"(expand-context/outer-current-introduction-scopes the-struct_120)" +"(expand-context/outer-name the-struct_120)))" +" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_120))))))" "(let-values(((all-exp-forms_0)" "((letrec-values(((loop_87)" "(lambda(forms_0)" @@ -78658,7 +78786,7 @@ static const char *startup_source = "(call-expand-observe" " obs_16" " 'enter-list" -"(datum->syntax$1 #f form30_0 s_471))))" +"(datum->syntax$1 #f form30_0 s_472))))" "(void)))" "(values))))" "(let-values(((exp-forms_0)" @@ -78684,7 +78812,7 @@ static const char *startup_source = "(datum->syntax$1" " #f" " forms_2" -" s_471))))" +" s_472))))" "(void)))" " forms_2)))" "(let-values()" @@ -78765,8 +78893,8 @@ static const char *startup_source = " loop_87)" " form30_0)))" "(if(expand-context-to-parsed? ctx_10)" -"(parsed-begin-for-syntax21.1 s_471 all-exp-forms_0)" -"(let-values(((s45_0) s_471)((temp46_4)(cons begin-for-syntax29_0 all-exp-forms_0)))" +"(parsed-begin-for-syntax21.1 s_472 all-exp-forms_0)" +"(let-values(((s45_0) s_472)((temp46_4)(cons begin-for-syntax29_0 all-exp-forms_0)))" "(rebuild5.1 #f #f s45_0 temp46_4))))))))))))))" "(void" "(add-core-form!*" @@ -78785,19 +78913,19 @@ static const char *startup_source = "(values))))" "(let-values(((disarmed-s_27)(syntax-disarm$1 s_33)))" "(let-values(((ok?_95 #%require47_0 req48_0)" -"(let-values(((s_192) disarmed-s_27))" -"(let-values(((orig-s_4) s_192))" +"(let-values(((s_193) disarmed-s_27))" +"(let-values(((orig-s_4) s_193))" "(let-values(((#%require47_1 req48_1)" -"(let-values(((s_889)(if(syntax?$1 s_192)(syntax-e$1 s_192) s_192)))" -"(if(pair? s_889)" -"(let-values(((#%require49_0)(let-values(((s_490)(car s_889))) s_490))" +"(let-values(((s_887)(if(syntax?$1 s_193)(syntax-e$1 s_193) s_193)))" +"(if(pair? s_887)" +"(let-values(((#%require49_0)(let-values(((s_490)(car s_887))) s_490))" "((req50_0)" -"(let-values(((s_890)(cdr s_889)))" -"(let-values(((s_194)" -"(if(syntax?$1 s_890)" -"(syntax-e$1 s_890)" -" s_890)))" -"(let-values(((flat-s_69)(to-syntax-list.1 s_194)))" +"(let-values(((s_888)(cdr s_887)))" +"(let-values(((s_195)" +"(if(syntax?$1 s_888)" +"(syntax-e$1 s_888)" +" s_888)))" +"(let-values(((flat-s_69)(to-syntax-list.1 s_195)))" "(if(not flat-s_69)" "(let-values()" " (raise-syntax-error$1 #f \"bad syntax\" orig-s_4))" @@ -78809,36 +78937,36 @@ static const char *startup_source = "(begin" "(let-values(((temp51_3)" "(reverse$1" -"(let-values(((lst_461) req48_0))" +"(let-values(((lst_462) req48_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_461)))" -"((letrec-values(((for-loop_338)" -"(lambda(fold-var_296 lst_153)" +"(let-values()(check-list lst_462)))" +"((letrec-values(((for-loop_341)" +"(lambda(fold-var_297 lst_153)" "(begin" " 'for-loop" "(if(pair? lst_153)" "(let-values(((req_20)(unsafe-car lst_153))" -"((rest_265)(unsafe-cdr lst_153)))" -"(let-values(((fold-var_402)" -"(let-values(((fold-var_299) fold-var_296))" -"(let-values(((fold-var_403)" +"((rest_266)(unsafe-cdr lst_153)))" +"(let-values(((fold-var_404)" +"(let-values(((fold-var_300) fold-var_297))" +"(let-values(((fold-var_405)" "(let-values()" "(cons" "(let-values()" "(add-scope" " req_20" " sc_40))" -" fold-var_299))))" -"(values fold-var_403)))))" +" fold-var_300))))" +"(values fold-var_405)))))" "(if(not #f)" -"(for-loop_338 fold-var_402 rest_265)" -" fold-var_402)))" -" fold-var_296)))))" -" for-loop_338)" +"(for-loop_341 fold-var_404 rest_266)" +" fold-var_404)))" +" fold-var_297)))))" +" for-loop_341)" " null" -" lst_461)))))" +" lst_462)))))" "((s52_0) s_33)" "((temp53_5) #f)" "((temp54_7)(expand-context-namespace ctx_128))" @@ -78945,7 +79073,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-hash-keys ht_171)))" -"((letrec-values(((for-loop_320)" +"((letrec-values(((for-loop_323)" "(lambda(table_193 i_187)" "(begin" " 'for-loop" @@ -78963,10 +79091,10 @@ static const char *startup_source = "(hash-set table_112 key_98 val_90)))))" "(values table_113)))))" "(if(not #f)" -"(for-loop_320 table_119(hash-iterate-next ht_171 i_187))" +"(for-loop_323 table_119(hash-iterate-next ht_171 i_187))" " table_119)))" " table_193)))))" -" for-loop_320)" +" for-loop_323)" " '#hash()" "(hash-iterate-first ht_171))))))" "(declare-kernel-module!8.1 eval27_0 temp28_8 temp29_5 ns26_3))" @@ -78998,12 +79126,12 @@ static const char *startup_source = " '#%foreign)))" "(if or-part_164" " or-part_164" -"(let-values(((or-part_95)" +"(let-values(((or-part_300)" "(eq?" " name_83" " '#%futures)))" -"(if or-part_95" -" or-part_95" +"(if or-part_300" +" or-part_300" "(eq?" " name_83" " '#%unsafe)))))))" @@ -79036,5 +79164,5 @@ static const char *startup_source = "(declare-reexporting-module!50.1 ns35_1 temp36_11 #t temp33_4 temp34_6))" "(1/current-namespace ns)" "(1/dynamic-require ''#%kernel 0)))" -"(define-values(datum->kernel-syntax)(lambda(s_891)(begin(1/datum->syntax core-stx s_891)))))" +"(define-values(datum->kernel-syntax)(lambda(s_889)(begin(1/datum->syntax core-stx s_889)))))" ;