diff --git a/pkgs/racket-test-core/tests/racket/module.rktl b/pkgs/racket-test-core/tests/racket/module.rktl index 826225ccf8..9509917dd1 100644 --- a/pkgs/racket-test-core/tests/racket/module.rktl +++ b/pkgs/racket-test-core/tests/racket/module.rktl @@ -712,6 +712,17 @@ (test "last" dynamic-require ''definition-shadows-later-require/2 'result) +(module definition-shadows-require-shadowing-initial-require racket/base + (provide result) + (define version 42) + (module M racket/base + (provide (all-defined-out)) + (define version 42)) + (require 'M) + (define result version)) + +(test 42 dynamic-require ''definition-shadows-require-shadowing-initial-require 'result) + (err/rt-test (eval '(module m racket/base diff --git a/racket/src/expander/expand/require+provide.rkt b/racket/src/expander/expand/require+provide.rkt index 7bc616b4a1..a8aa1a62ad 100644 --- a/racket/src/expander/expand/require+provide.rkt +++ b/racket/src/expander/expand/require+provide.rkt @@ -297,96 +297,104 @@ (define defined? (and b (eq? (requires+provides-self r+p) (module-binding-module b)))) (cond - [(and (not defined?) (not check-not-required?)) - ;; Not defined, and we're shadowing all requires -- so, it's ok, - ;; but binding is non-simple - (set-requires+provides-all-bindings-simple?! r+p #f) - ;; Also, record the `require` binding, in case we see another - ;; `require` for the same identifier - (hash-set! (requires+provides-also-required r+p) (module-binding-sym b) b) - #f] - [(and defined? - ;; In case `#%module-begin` is expanded multiple times, check - ;; that the definition has been seen this particular expansion - (not (hash-ref (hash-ref (requires+provides-phase-to-defined-syms r+p) - phase - #hasheq()) - (module-binding-sym b) - #f))) - ;; Doesn't count as previously defined - #f] - [else - (define mpi (intern-mpi r+p (module-binding-nominal-module b))) - (define at-mod (hash-ref (requires+provides-requires r+p) mpi #f)) - (define ok-binding (if (procedure? ok-binding/delayed) - (ok-binding/delayed) - ok-binding/delayed)) - (define (raise-already-bound defined?) - (raise-syntax-error who - (string-append "identifier already " - (if defined? "defined" "required") - (cond - [(zero-phase? phase) ""] - [(label-phase? phase) " for label"] - [(= 1 phase) " for syntax"] - [else (format " for phase ~a" phase)])) - orig-s - id)) - (cond - [(not at-mod) - ;; Binding is from an enclosing context; if it's from an - ;; enclosing module, then we've already marked bindings - ;; a non-simple --- otherwise, we don't care - #f] - [(and ok-binding (same-binding? b ok-binding)) - ;; It's the same binding already, so overall binding hasn't - ;; become non-simple - (unless (same-binding-nominals? b ok-binding) - ;; Need to accumulate nominals - (define (update!) - (add-binding! - #:just-for-nominal? #t - id - (module-binding-update b - #:extra-nominal-bindings - (cons ok-binding - (module-binding-extra-nominal-bindings b))) - phase)) + [(and defined? + ;; In case `#%module-begin` is expanded multiple times, check + ;; that the definition has been seen this particular expansion + (not (hash-ref (hash-ref (requires+provides-phase-to-defined-syms r+p) + phase + #hasheq()) + (module-binding-sym b) + #f))) + ;; Doesn't count as previously defined + #f] + [else + (define define-shadowing-require? (and (not defined?) (not check-not-required?))) + (define mpi (intern-mpi r+p (module-binding-nominal-module b))) + (define at-mod (hash-ref (requires+provides-requires r+p) mpi #f)) + (define ok-binding (and (not define-shadowing-require?) + (if (procedure? ok-binding/delayed) + (ok-binding/delayed) + ok-binding/delayed))) + (define (raise-already-bound defined?) + (raise-syntax-error who + (string-append "identifier already " + (if defined? "defined" "required") + (cond + [(zero-phase? phase) ""] + [(label-phase? phase) " for label"] + [(= 1 phase) " for syntax"] + [else (format " for phase ~a" phase)])) + orig-s + id)) + (cond + [(and (not at-mod) + (not define-shadowing-require?)) + ;; Binding is from an enclosing context; if it's from an + ;; enclosing module, then we've already marked bindings + ;; a non-simple --- otherwise, we don't care + #f] + [(and ok-binding (same-binding? b ok-binding)) + ;; It's the same binding already, so overall binding hasn't + ;; become non-simple + (unless (same-binding-nominals? b ok-binding) + ;; Need to accumulate nominals + (define (update!) + (add-binding! + #:just-for-nominal? #t + id + (module-binding-update b + #:extra-nominal-bindings + (cons ok-binding + (module-binding-extra-nominal-bindings b))) + phase)) + (cond + [accum-update-nominals + ;; We can't reset now, because the caller is preparing for + ;; a bulk bind. Record that we need to merge nominals. + (set-box! accum-update-nominals (cons update! (unbox accum-update-nominals)))] + [else (update!)])) + defined?] + [(and defined? allow-defined?) + ;; A `require` doesn't conflict with a definition, even if we + ;; saw the definition earlier; but make sure there are not multiple + ;; `require`s (any one of which would be shadowed by the definition) + (define also-required (requires+provides-also-required r+p)) + (define prev-b (hash-ref also-required (module-binding-sym b) #f)) + (when (and prev-b (not (same-binding? ok-binding prev-b))) + (raise-already-bound #f)) + (hash-set! also-required (module-binding-sym b) ok-binding) + (set-requires+provides-all-bindings-simple?! r+p #f) + #t] + [else + (define nominal-phase (module-binding-nominal-require-phase b)) + (define sym-to-reqds (hash-ref at-mod nominal-phase #hasheq())) + (define reqds (hash-ref sym-to-reqds (syntax-e id) null)) + (define only-can-can-shadow-require? + (for/fold ([only-can-can-shadow-require? #t]) ([r (in-list-ish reqds)]) + (cond + [(if (bulk-required? r) + (bulk-required-can-be-shadowed? r) + (required-can-be-shadowed? r)) + ;; Shadowing --- ok, but non-simple + (set-requires+provides-all-bindings-simple?! r+p #f) + only-can-can-shadow-require?] + [define-shadowing-require? #f] + [else (raise-already-bound defined?)]))) (cond - [accum-update-nominals - ;; We can't reset now, because the caller is preparing for - ;; a bulk bind. Record that we need to merge nominals. - (set-box! accum-update-nominals (cons update! (unbox accum-update-nominals)))] - [else (update!)])) - defined?] - [(and defined? allow-defined?) - ;; A `require` doesn't conflict with a definition, even if we - ;; saw the definition earlier; but make sure there are not multiple - ;; `require`s (any one of which would be shadowed by the definition) - (define also-required (requires+provides-also-required r+p)) - (define prev-b (hash-ref also-required (module-binding-sym b) #f)) - (when (and prev-b (not (same-binding? ok-binding prev-b))) - (raise-already-bound #f)) - (hash-set! also-required (module-binding-sym b) ok-binding) - (set-requires+provides-all-bindings-simple?! r+p #f) - #t] - [else - (define nominal-phase (module-binding-nominal-require-phase b)) - (define sym-to-reqds (hash-ref at-mod nominal-phase #hasheq())) - (define reqds (hash-ref sym-to-reqds (syntax-e id) null)) - (for ([r (in-list-ish reqds)]) - (cond - [(if (bulk-required? r) - (bulk-required-can-be-shadowed? r) - (required-can-be-shadowed? r)) - ;; Shadowing --- ok, but non-simple - (set-requires+provides-all-bindings-simple?! r+p #f)] - [else (raise-already-bound defined?)])) - (when (and remove-shadowed!? (not (null? reqds))) - ;; Same work as in `remove-required-id!` - (hash-set! sym-to-reqds (syntax-e id) - (remove-non-matching-requireds reqds id phase mpi nominal-phase (syntax-e id)))) - #f])])])) + [define-shadowing-require? + ;; Not defined, but defining now (shadowing all requires); + ;; make sure we indicated that the binding is non-simple + (set-requires+provides-all-bindings-simple?! r+p #f) + (unless only-can-can-shadow-require? + ;; Record the `require` binding, if it's non-shadowable, + ;; in case we see another `require` for the same identifier + (hash-set! (requires+provides-also-required r+p) (module-binding-sym b) b))] + [else + (when (and remove-shadowed!? (not (null? reqds))) + ;; Same work as in `remove-required-id!` + (hash-set! sym-to-reqds (syntax-e id) + (remove-non-matching-requireds reqds id phase mpi nominal-phase (syntax-e id))))]) + #f])])])) (define (add-defined-syms! r+p syms phase) (define phase-to-defined-syms (requires+provides-phase-to-defined-syms r+p)) diff --git a/racket/src/racket/src/startup.inc b/racket/src/racket/src/startup.inc index b48cb5d02c..5a4298b44b 100644 --- a/racket/src/racket/src/startup.inc +++ b/racket/src/racket/src/startup.inc @@ -4932,6 +4932,7 @@ static const char *startup_source = " serialize-state-bulk-bindings-intern" " serialize-state-scopes" " serialize-state-shifted-multi-scopes" +" serialize-state-multi-scope-tables" " serialize-state-mpi-shifts" " serialize-state-context-triples" " serialize-state-props" @@ -4944,13 +4945,13 @@ static const char *startup_source = "(make-struct-type" " 'serialize-state" " #f" -" 11" +" 12" " 0" " #f" " null" "(current-inspector)" " #f" -" '(0 1 2 3 4 5 6 7 8 9 10)" +" '(0 1 2 3 4 5 6 7 8 9 10 11)" " #f" " 'serialize-state)))))" "(values" @@ -4962,16 +4963,18 @@ static const char *startup_source = "(make-struct-field-accessor -ref_0 2 'bulk-bindings-intern)" "(make-struct-field-accessor -ref_0 3 'scopes)" "(make-struct-field-accessor -ref_0 4 'shifted-multi-scopes)" -"(make-struct-field-accessor -ref_0 5 'mpi-shifts)" -"(make-struct-field-accessor -ref_0 6 'context-triples)" -"(make-struct-field-accessor -ref_0 7 'props)" -"(make-struct-field-accessor -ref_0 8 'interned-props)" -"(make-struct-field-accessor -ref_0 9 'syntax-context)" -"(make-struct-field-accessor -ref_0 10 'sharing-syntaxes))))" +"(make-struct-field-accessor -ref_0 5 'multi-scope-tables)" +"(make-struct-field-accessor -ref_0 6 'mpi-shifts)" +"(make-struct-field-accessor -ref_0 7 'context-triples)" +"(make-struct-field-accessor -ref_0 8 'props)" +"(make-struct-field-accessor -ref_0 9 'interned-props)" +"(make-struct-field-accessor -ref_0 10 'syntax-context)" +"(make-struct-field-accessor -ref_0 11 'sharing-syntaxes))))" "(define-values" "(make-serialize-state)" "(lambda(reachable-scopes_0)" "(begin" +"(let-values(((state_1)" "(serialize-state1.1" " reachable-scopes_0" "(make-hasheq)" @@ -4981,37 +4984,44 @@ static const char *startup_source = "(make-hasheq)" "(make-hasheq)" "(make-hasheq)" +"(make-hasheq)" "(make-hash)" "(box null)" -"(make-hasheq)))))" +"(make-hasheq))))" +"(let-values(((empty-seteq_0)(seteq)))" +"(begin" +"(hash-set!(serialize-state-scopes state_1) empty-seteq_0 empty-seteq_0)" +"(hash-set!(serialize-state-shifted-multi-scopes state_1) empty-seteq_0 empty-seteq_0)" +"(hash-set!(serialize-state-interned-props state_1) empty-seteq_0 empty-seteq_0)" +" state_1))))))" "(define-values" "(intern-scopes)" -"(lambda(scs_0 state_1)" +"(lambda(scs_0 state_2)" "(begin" -"(let-values(((or-part_63)(hash-ref(serialize-state-scopes state_1) scs_0 #f)))" -"(if or-part_63 or-part_63(begin(hash-set!(serialize-state-scopes state_1) scs_0 scs_0) scs_0))))))" +"(let-values(((or-part_63)(hash-ref(serialize-state-scopes state_2) scs_0 #f)))" +"(if or-part_63 or-part_63(begin(hash-set!(serialize-state-scopes state_2) scs_0 scs_0) scs_0))))))" "(define-values" "(intern-shifted-multi-scopes)" -"(lambda(sms_0 state_2)" +"(lambda(sms_0 state_3)" "(begin" -"(let-values(((or-part_64)(hash-ref(serialize-state-shifted-multi-scopes state_2) sms_0 #f)))" +"(let-values(((or-part_64)(hash-ref(serialize-state-shifted-multi-scopes state_3) sms_0 #f)))" "(if or-part_64" " or-part_64" -"(begin(hash-set!(serialize-state-shifted-multi-scopes state_2) sms_0 sms_0) sms_0))))))" +"(begin(hash-set!(serialize-state-shifted-multi-scopes state_3) sms_0 sms_0) sms_0))))))" "(define-values" "(intern-mpi-shifts)" -"(lambda(mpi-shifts_0 state_3)" +"(lambda(mpi-shifts_0 state_4)" "(begin" "(if(null? mpi-shifts_0)" "(let-values() null)" "(let-values()" -"(let-values(((tail_0)(intern-mpi-shifts(cdr mpi-shifts_0) state_3)))" +"(let-values(((tail_0)(intern-mpi-shifts(cdr mpi-shifts_0) state_4)))" "(let-values(((tail-table_0)" -"(let-values(((or-part_65)(hash-ref(serialize-state-mpi-shifts state_3) tail_0 #f)))" +"(let-values(((or-part_65)(hash-ref(serialize-state-mpi-shifts state_4) tail_0 #f)))" "(if or-part_65" " or-part_65" "(let-values(((ht_25)(make-hasheq)))" -"(begin(hash-set!(serialize-state-mpi-shifts state_3) tail_0 ht_25) ht_25))))))" +"(begin(hash-set!(serialize-state-mpi-shifts state_4) tail_0 ht_25) ht_25))))))" "(let-values(((or-part_66)(hash-ref tail-table_0(car mpi-shifts_0) #f)))" "(if or-part_66" " or-part_66" @@ -5019,29 +5029,29 @@ static const char *startup_source = "(begin(hash-set! tail-table_0(car mpi-shifts_0) v_55) v_55)))))))))))" "(define-values" "(intern-context-triple)" -"(lambda(scs_1 sms_1 mpi-shifts_1 state_4)" +"(lambda(scs_1 sms_1 mpi-shifts_1 state_5)" "(begin" "(let-values(((scs-ht_0)" -"(let-values(((or-part_67)(hash-ref(serialize-state-context-triples state_4) scs_1 #f)))" +"(let-values(((or-part_67)(hash-ref(serialize-state-context-triples state_5) scs_1 #f)))" "(if or-part_67" " or-part_67" "(let-values(((ht_26)(make-hasheq)))" -"(begin(hash-set!(serialize-state-context-triples state_4) scs_1 ht_26) ht_26))))))" +"(begin(hash-set!(serialize-state-context-triples state_5) scs_1 ht_26) ht_26))))))" "(let-values(((sms-ht_0)" -"(let-values(((or-part_68)(hash-ref scs-ht_0 sms_1 #f)))" +"(let-values(((or-part_35)(hash-ref scs-ht_0 sms_1 #f)))" +"(if or-part_35" +" or-part_35" +"(let-values(((ht_24)(make-hasheq)))(begin(hash-set! scs-ht_0 sms_1 ht_24) ht_24))))))" +"(let-values(((or-part_68)(hash-ref sms-ht_0 mpi-shifts_1 #f)))" "(if or-part_68" " or-part_68" -"(let-values(((ht_27)(make-hasheq)))(begin(hash-set! scs-ht_0 sms_1 ht_27) ht_27))))))" -"(let-values(((or-part_69)(hash-ref sms-ht_0 mpi-shifts_1 #f)))" -"(if or-part_69" -" or-part_69" "(let-values(((vec_13)(vector-immutable scs_1 sms_1 mpi-shifts_1)))" "(begin(hash-set! sms-ht_0 mpi-shifts_1 vec_13) vec_13)))))))))" "(define-values" "(intern-properties)" -"(lambda(all-props_0 get-preserved-props_0 state_5)" +"(lambda(all-props_0 get-preserved-props_0 state_6)" "(begin" -"(let-values(((v_56)(hash-ref(serialize-state-props state_5) all-props_0 'no)))" +"(let-values(((v_56)(hash-ref(serialize-state-props state_6) all-props_0 'no)))" "(if(eq? v_56 'no)" "(let-values()" "(let-values(((preserved-props_0)(get-preserved-props_0)))" @@ -5049,32 +5059,32 @@ static const char *startup_source = "(if(zero?(hash-count preserved-props_0))" "(let-values() #f)" "(let-values(((c1_19)" -"(hash-ref(serialize-state-interned-props state_5) preserved-props_0 #f)))" +"(hash-ref(serialize-state-interned-props state_6) preserved-props_0 #f)))" "(if c1_19" "((lambda(p_18) p_18) c1_19)" "(let-values()" "(begin" "(hash-set!" -"(serialize-state-interned-props state_5)" +"(serialize-state-interned-props state_6)" " preserved-props_0" " preserved-props_0)" " preserved-props_0)))))))" -"(begin(hash-set!(serialize-state-props state_5) all-props_0 p_17) p_17))))" +"(begin(hash-set!(serialize-state-props state_6) all-props_0 p_17) p_17))))" "(let-values() v_56))))))" "(define-values" "(push-syntax-context!)" -"(lambda(state_6 v_57)" -"(begin(let-values(((b_18)(serialize-state-syntax-context state_6)))(set-box! b_18(cons v_57(unbox b_18)))))))" +"(lambda(state_7 v_48)" +"(begin(let-values(((b_18)(serialize-state-syntax-context state_7)))(set-box! b_18(cons v_48(unbox b_18)))))))" "(define-values" "(get-syntax-context)" -"(lambda(state_7)" +"(lambda(state_8)" "(begin" -"(let-values(((b_19)(serialize-state-syntax-context state_7)))" +"(let-values(((b_19)(serialize-state-syntax-context state_8)))" "(if(null?(unbox b_19)) #f(car(unbox b_19)))))))" "(define-values" "(pop-syntax-context!)" -"(lambda(state_8)" -"(begin(let-values(((b_20)(serialize-state-syntax-context state_8)))(set-box! b_20(cdr(unbox b_20)))))))" +"(lambda(state_9)" +"(begin(let-values(((b_20)(serialize-state-syntax-context state_9)))(set-box! b_20(cdr(unbox b_20)))))))" "(define-values" "(immutable-prefab-struct-key)" "(lambda(v_26)" @@ -5118,11 +5128,11 @@ static const char *startup_source = "(if(pair? s_41)" "(let-values()" "(f_19 tail?_1(cons(loop_60 #f(car s_41) seen_1)(loop_60 #t(cdr s_41) seen_1))))" -"(if(let-values(((or-part_70)(symbol? s_41)))" -"(if or-part_70" -" or-part_70" -"(let-values(((or-part_71)(boolean? s_41)))" -"(if or-part_71 or-part_71(number? s_41)))))" +"(if(let-values(((or-part_69)(symbol? s_41)))" +"(if or-part_69" +" or-part_69" +"(let-values(((or-part_70)(boolean? s_41)))" +"(if or-part_70 or-part_70(number? s_41)))))" "(let-values()(f_19 #f s_41))" "(if(vector? s_41)" "(let-values()" @@ -5138,7 +5148,7 @@ static const char *startup_source = " 'for/vector" " \"exact-nonnegative-integer?\"" " len_7)))" -"(let-values(((v_58)(make-vector len_7 0)))" +"(let-values(((v_57)(make-vector len_7 0)))" "(begin" "(if(zero? len_7)" "(void)" @@ -5168,7 +5178,7 @@ static const char *startup_source = "(let-values()" "(begin" "(unsafe-vector*-set!" -" v_58" +" v_57" " i_40" "(let-values()" "(loop_60" @@ -5195,7 +5205,7 @@ static const char *startup_source = " for-loop_26)" " 0" " 0)))))" -" v_58)))))))" +" v_57)))))))" "(if(box? s_41)" "(let-values()(f_19 #f(box-immutable(loop_60 #f(unbox s_41) seen_1))))" "(let-values(((c1_20)(immutable-prefab-struct-key s_41)))" @@ -5258,19 +5268,19 @@ static const char *startup_source = "(let-values()" "(f_19" " #f" -"(let-values(((ht_28) s_41))" +"(let-values(((ht_27) s_41))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_28)))" +"(let-values()(check-in-hash ht_27)))" "((letrec-values(((for-loop_27)" "(lambda(table_15 i_42)" "(begin" " 'for-loop" "(if i_42" -"(let-values(((k_10 v_59)" +"(let-values(((k_10 v_58)" "(hash-iterate-key+value" -" ht_28" +" ht_27" " i_42)))" "(let-values(((table_16)" "(let-values(((table_17)" @@ -5284,7 +5294,7 @@ static const char *startup_source = " k_10" "(loop_60" " #f" -" v_59" +" v_58" " seen_1)))))" "(hash-set" " table_17" @@ -5295,21 +5305,21 @@ static const char *startup_source = "(if(not #f)" "(for-loop_27" " table_16" -"(hash-iterate-next ht_28 i_42))" +"(hash-iterate-next ht_27 i_42))" " table_16)))" " table_15)))))" " for-loop_27)" " '#hasheq()" -"(hash-iterate-first ht_28))))))" +"(hash-iterate-first ht_27))))))" "(if(hash-eqv? s_41)" "(let-values()" "(f_19" " #f" -"(let-values(((ht_29) s_41))" +"(let-values(((ht_28) s_41))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_29)))" +"(let-values()(check-in-hash ht_28)))" "((letrec-values(((for-loop_28)" "(lambda(table_19 i_43)" "(begin" @@ -5317,7 +5327,7 @@ static const char *startup_source = "(if i_43" "(let-values(((k_11 v_36)" "(hash-iterate-key+value" -" ht_29" +" ht_28" " i_43)))" "(let-values(((table_20)" "(let-values(((table_21)" @@ -5343,29 +5353,29 @@ static const char *startup_source = "(for-loop_28" " table_20" "(hash-iterate-next" -" ht_29" +" ht_28" " i_43))" " table_20)))" " table_19)))))" " for-loop_28)" " '#hasheqv()" -"(hash-iterate-first ht_29))))))" +"(hash-iterate-first ht_28))))))" "(let-values()" "(f_19" " #f" -"(let-values(((ht_30) s_41))" +"(let-values(((ht_29) s_41))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_30)))" +"(let-values()(check-in-hash ht_29)))" "((letrec-values(((for-loop_29)" "(lambda(table_23 i_26)" "(begin" " 'for-loop" "(if i_26" -"(let-values(((k_12 v_60)" +"(let-values(((k_12 v_59)" "(hash-iterate-key+value" -" ht_30" +" ht_29" " i_26)))" "(let-values(((table_10)" "(let-values(((table_11)" @@ -5379,7 +5389,7 @@ static const char *startup_source = " k_12" "(loop_60" " #f" -" v_60" +" v_59" " seen_1)))))" "(hash-set" " table_11" @@ -5391,13 +5401,13 @@ static const char *startup_source = "(for-loop_29" " table_10" "(hash-iterate-next" -" ht_30" +" ht_29" " i_26))" " table_10)))" " table_23)))))" " for-loop_29)" " '#hash()" -"(hash-iterate-first ht_30)))))))))" +"(hash-iterate-first ht_29)))))))))" "(let-values()(f_19 #f s_41)))))))))))))))" " loop_60)" " tail?_0" @@ -5413,12 +5423,12 @@ static const char *startup_source = "(let-values(((or-part_36)(vector? d_0)))" "(if or-part_36" " or-part_36" -"(let-values(((or-part_72)(box? d_0)))" -"(if or-part_72" -" or-part_72" -"(let-values(((or-part_73)(immutable-prefab-struct-key d_0)))" -"(if or-part_73" -" or-part_73" +"(let-values(((or-part_68)(box? d_0)))" +"(if or-part_68" +" or-part_68" +"(let-values(((or-part_71)(immutable-prefab-struct-key d_0)))" +"(if or-part_71" +" or-part_71" "(if(hash? d_0)(if(immutable? d_0)(positive?(hash-count d_0)) #f) #f))))))))))))" "(define-values" "(struct:preserved-property-value" @@ -5443,56 +5453,56 @@ static const char *startup_source = "(values struct:_0 make-_0 ?_0(make-struct-field-accessor -ref_0 0 'content))))" "(define-values" "(plain-property-value)" -"(lambda(v_61)(begin(if(preserved-property-value? v_61)(preserved-property-value-content v_61) v_61))))" +"(lambda(v_60)(begin(if(preserved-property-value? v_60)(preserved-property-value-content v_60) v_60))))" "(define-values" "(check-value-to-preserve)" -"(lambda(v_62 syntax?_0)" +"(lambda(v_61 syntax?_0)" "(begin" -"(let-values(((s_4) v_62)" +"(let-values(((s_4) v_61)" "((f_20)" "(lambda(tail?_0 v_3)" "(begin" " 'f" "(begin" -"(if(let-values(((or-part_74)(null? v_3)))" +"(if(let-values(((or-part_72)(null? v_3)))" +"(if or-part_72" +" or-part_72" +"(let-values(((or-part_73)(boolean? v_3)))" +"(if or-part_73" +" or-part_73" +"(let-values(((or-part_74)(symbol? v_3)))" "(if or-part_74" " or-part_74" -"(let-values(((or-part_75)(boolean? v_3)))" +"(let-values(((or-part_75)(number? v_3)))" "(if or-part_75" " or-part_75" -"(let-values(((or-part_76)(symbol? v_3)))" -"(if or-part_76" -" or-part_76" -"(let-values(((or-part_77)(number? v_3)))" -"(if or-part_77" -" or-part_77" "(let-values(((or-part_29)(char? v_3)))" "(if or-part_29" " or-part_29" -"(let-values(((or-part_78)(string? v_3)))" -"(if or-part_78" -" or-part_78" -"(let-values(((or-part_79)(bytes? v_3)))" -"(if or-part_79" -" or-part_79" -"(let-values(((or-part_70)(regexp? v_3)))" +"(let-values(((or-part_76)(string? v_3)))" +"(if or-part_76" +" or-part_76" +"(let-values(((or-part_77)(bytes? v_3)))" +"(if or-part_77" +" or-part_77" +"(let-values(((or-part_69)(regexp? v_3)))" +"(if or-part_69" +" or-part_69" +"(let-values(((or-part_70)(syntax?_0 v_3)))" "(if or-part_70" " or-part_70" -"(let-values(((or-part_71)(syntax?_0 v_3)))" -"(if or-part_71" -" or-part_71" -"(let-values(((or-part_80)(pair? v_3)))" +"(let-values(((or-part_78)(pair? v_3)))" +"(if or-part_78" +" or-part_78" +"(let-values(((or-part_79)(vector? v_3)))" +"(if or-part_79" +" or-part_79" +"(let-values(((or-part_80)(box? v_3)))" "(if or-part_80" " or-part_80" -"(let-values(((or-part_81)(vector? v_3)))" +"(let-values(((or-part_81)(hash? v_3)))" "(if or-part_81" " or-part_81" -"(let-values(((or-part_82)(box? v_3)))" -"(if or-part_82" -" or-part_82" -"(let-values(((or-part_83)(hash? v_3)))" -"(if or-part_83" -" or-part_83" "(immutable-prefab-struct-key" " v_3)))))))))))))))))))))))))))" "(void)" @@ -5519,9 +5529,9 @@ static const char *startup_source = "(f_20" " tail?_2" "(cons(loop_61 #f(car s_7) depth_0)(loop_61 #t(cdr s_7) depth_0))))" -"(if(let-values(((or-part_84)(symbol? s_7)))" -"(if or-part_84" -" or-part_84" +"(if(let-values(((or-part_82)(symbol? s_7)))" +"(if or-part_82" +" or-part_82" "(let-values(((or-part_52)(boolean? s_7)))" "(if or-part_52 or-part_52(number? s_7)))))" "(let-values()(f_20 #f s_7))" @@ -5548,19 +5558,19 @@ static const char *startup_source = "(disallow-cycles$1)" "(hash" " 'cycle-fail" -" (lambda (v_63) (raise-arguments-error 'write \"disallowed cycle in preserved syntax property\" \"at\" v_63))))" +" (lambda (v_62) (raise-arguments-error 'write \"disallowed cycle in preserved syntax property\" \"at\" v_62))))" "(define-values" "(tamper?)" "(lambda(v_26)" "(begin" "(let-values(((or-part_0)(not v_26)))" "(if or-part_0 or-part_0(let-values(((or-part_1)(symbol? v_26)))(if or-part_1 or-part_1(set? v_26))))))))" -"(define-values(tamper-tainted?)(lambda(v_64)(begin(symbol? v_64))))" -"(define-values(tamper-armed?)(lambda(v_65)(begin(set? v_65))))" -"(define-values(tamper-clean?)(lambda(v_66)(begin(not v_66))))" +"(define-values(tamper-tainted?)(lambda(v_63)(begin(symbol? v_63))))" +"(define-values(tamper-armed?)(lambda(v_64)(begin(set? v_64))))" +"(define-values(tamper-clean?)(lambda(v_65)(begin(not v_65))))" "(define-values" "(tamper-tainted-for-content)" -"(lambda(v_67)(begin(if(datum-has-elements? v_67) 'tainted/need-propagate 'tainted))))" +"(lambda(v_66)(begin(if(datum-has-elements? v_66) 'tainted/need-propagate 'tainted))))" "(define-values(tamper-needs-propagate?)(lambda(t_12)(begin(eq? t_12 'tainted/need-propagate))))" "(define-values(tamper-propagated)(lambda(t_13)(begin(if(eq? t_13 'tainted/need-propagate) 'tainted t_13))))" "(define-values(serialize-tamper)(lambda(t_14)(begin(if(tamper-armed? t_14) 'armed t_14))))" @@ -5600,23 +5610,23 @@ static const char *startup_source = "(if(propagation?$1 prop_1)((propagation-ref prop_1) s_44)(syntax-content s_44)))" "(reach_0(syntax-scopes s_44))" "(reach_0(syntax-shifted-multi-scopes s_44))" -"(let-values(((ht_31)(syntax-props s_44)))" +"(let-values(((ht_30)(syntax-props s_44)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-immutable-hash ht_31)))" +"(let-values()(check-in-immutable-hash ht_30)))" "((letrec-values(((for-loop_30)" "(lambda(i_44)" "(begin" " 'for-loop" "(if i_44" -"(let-values(((k_13 v_68)" +"(let-values(((k_13 v_67)" "(unsafe-immutable-hash-iterate-key+value" -" ht_31" +" ht_30" " i_44)))" "(let-values((()" "(let-values()" -"(if(preserved-property-value? v_68)" +"(if(preserved-property-value? v_67)" "(let-values()" "(let-values((()" "(let-values()" @@ -5624,22 +5634,22 @@ static const char *startup_source = "(let-values()" "(reach_0" "(plain-property-value" -" v_68)))" +" v_67)))" "(values)))))" "(values)))" "(values)))))" "(if(not #f)" "(for-loop_30" -"(unsafe-immutable-hash-iterate-next ht_31 i_44))" +"(unsafe-immutable-hash-iterate-next ht_30 i_44))" "(values))))" "(values))))))" " for-loop_30)" -"(unsafe-immutable-hash-iterate-first ht_31))))" +"(unsafe-immutable-hash-iterate-first ht_30))))" "(void)" "(reach_0(syntax-srcloc s_44))))))" "(cons" " prop:serialize" -"(lambda(s_45 ser-push!_1 state_9)" +"(lambda(s_45 ser-push!_1 state_10)" "(let-values(((prop_2)(syntax-scope-propagations+tamper s_45)))" "(let-values(((content_0)" "(if(propagation?$1 prop_2)" @@ -5649,25 +5659,25 @@ static const char *startup_source = "(intern-properties" "(syntax-props s_45)" "(lambda()" -"(let-values(((ht_32)(syntax-props s_45)))" +"(let-values(((ht_31)(syntax-props s_45)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_32)))" +"(let-values()(check-in-hash ht_31)))" "((letrec-values(((for-loop_31)" "(lambda(table_24 i_45)" "(begin" " 'for-loop" "(if i_45" -"(let-values(((k_14 v_69)" +"(let-values(((k_14 v_68)" "(hash-iterate-key+value" -" ht_32" +" ht_31" " i_45)))" "(let-values(((table_25)" "(let-values(((table_26)" " table_24))" "(if(preserved-property-value?" -" v_69)" +" v_68)" "(let-values(((table_27)" " table_26))" "(let-values(((table_28)" @@ -5679,7 +5689,7 @@ static const char *startup_source = " k_14" "(check-value-to-preserve" "(plain-property-value" -" v_69)" +" v_68)" " syntax?$1)))))" "(hash-set" " table_27" @@ -5690,28 +5700,30 @@ static const char *startup_source = "(if(not #f)" "(for-loop_31" " table_25" -"(hash-iterate-next ht_32 i_45))" +"(hash-iterate-next ht_31 i_45))" " table_25)))" " table_24)))))" " for-loop_31)" " '#hasheq()" -"(hash-iterate-first ht_32)))))" -" state_9)))" +"(hash-iterate-first ht_31)))))" +" state_10)))" "(let-values(((tamper_0)(serialize-tamper(syntax-tamper s_45))))" "(let-values(((context-triple_0)" "(intern-context-triple" -"(intern-scopes(syntax-scopes s_45) state_9)" -"(intern-shifted-multi-scopes(syntax-shifted-multi-scopes s_45) state_9)" -"(intern-mpi-shifts(syntax-mpi-shifts s_45) state_9)" -" state_9)))" -"(let-values(((stx-state_0)(get-syntax-context state_9)))" -"(if(let-values(((or-part_85) properties_0))(if or-part_85 or-part_85 tamper_0))" +"(intern-scopes(syntax-scopes s_45) state_10)" +"(intern-shifted-multi-scopes" +"(syntax-shifted-multi-scopes s_45)" +" state_10)" +"(intern-mpi-shifts(syntax-mpi-shifts s_45) state_10)" +" state_10)))" +"(let-values(((stx-state_0)(get-syntax-context state_10)))" +"(if(let-values(((or-part_83) properties_0))(if or-part_83 or-part_83 tamper_0))" "(let-values()" "(begin" "(ser-push!_1 'tag '#:syntax+props)" -"(push-syntax-context! state_9 #f)" +"(push-syntax-context! state_10 #f)" "(ser-push!_1 content_0)" -"(pop-syntax-context! state_9)" +"(pop-syntax-context! state_10)" "(ser-push!_1 'reference context-triple_0)" "(ser-push!_1 'reference(syntax-srcloc s_45))" "(ser-push!_1 properties_0)" @@ -5722,7 +5734,7 @@ static const char *startup_source = "(let-values()" "(let-values(((sharing-mode_0)" "(hash-ref" -"(serialize-state-sharing-syntaxes state_9)" +"(serialize-state-sharing-syntaxes state_10)" " s_45" " 'unknown)))" "(begin" @@ -5743,12 +5755,12 @@ static const char *startup_source = " #f)))" "(let-values((()" "(begin" -"(push-syntax-context! state_9 this-state_0)" +"(push-syntax-context! state_10 this-state_0)" "(values))))" "(let-values((()(begin(ser-push!_1 content_0)(values))))" "(let-values((()" "(begin" -"(pop-syntax-context! state_9)" +"(pop-syntax-context! state_10)" "(values))))" "(let-values(((new-sharing-mode_0)" "(if(if this-state_0" @@ -5759,7 +5771,7 @@ static const char *startup_source = " 'none)))" "(begin" "(hash-set!" -"(serialize-state-sharing-syntaxes state_9)" +"(serialize-state-sharing-syntaxes state_10)" " s_45" "(if(datum-has-elements? content_0)" " new-sharing-mode_0" @@ -5771,9 +5783,9 @@ static const char *startup_source = "(let-values()" "(begin" "(ser-push!_1 'tag '#:syntax)" -"(push-syntax-context! state_9 #f)" +"(push-syntax-context! state_10 #f)" "(ser-push!_1 content_0)" -"(pop-syntax-context! state_9)))))" +"(pop-syntax-context! state_10)))))" "(ser-push!_1 'reference context-triple_0)" "(ser-push!_1 'reference(syntax-srcloc s_45))" "(if stx-state_0" @@ -5829,8 +5841,8 @@ static const char *startup_source = "(syntax-tamper)" "(lambda(s_47)" "(begin" -"(let-values(((v_70)(syntax-scope-propagations+tamper s_47)))" -"(if(tamper? v_70) v_70((propagation-tamper-ref v_70) v_70))))))" +"(let-values(((v_69)(syntax-scope-propagations+tamper s_47)))" +"(if(tamper? v_69) v_69((propagation-tamper-ref v_69) v_69))))))" "(define-values(empty-scopes)(seteq))" "(define-values(empty-shifted-multi-scopes)(seteq))" "(define-values(empty-mpi-shifts) null)" @@ -5855,12 +5867,12 @@ static const char *startup_source = " 'loop" "(let-values(((s_52) s_51)" "((f_22)" -"(lambda(tail?_6 v_71)" +"(lambda(tail?_6 v_70)" "(begin" " 'f" -"(if(syntax?$1 v_71)" -"(let-values()(d->s_0 v_71(loop_62(s-e_0 v_71))))" -"(let-values()(f_21 tail?_6 v_71))))))" +"(if(syntax?$1 v_70)" +"(let-values()(d->s_0 v_70(loop_62(s-e_0 v_70))))" +"(let-values()(f_21 tail?_6 v_70))))))" "((seen_4) seen_3))" "((letrec-values(((loop_63)" "(lambda(tail?_7 s_53 prev-depth_1)" @@ -5889,9 +5901,9 @@ static const char *startup_source = "(let-values(((or-part_48)(boolean? s_53)))" "(if or-part_48 or-part_48(number? s_53)))))" "(let-values()(f_22 #f s_53))" -"(if(let-values(((or-part_86)(vector? s_53)))" -"(if or-part_86" -" or-part_86" +"(if(let-values(((or-part_84)(vector? s_53)))" +"(if or-part_84" +" or-part_84" "(let-values(((or-part_49)(box? s_53)))" "(if or-part_49" " or-part_49" @@ -5955,12 +5967,12 @@ static const char *startup_source = "((seen_5) disallow-cycles))" "(let-values(((s_58) s_56)" "((f_24)" -"(lambda(tail?_11 v_72)" +"(lambda(tail?_11 v_71)" "(begin" " 'f" -"(if(syntax?$1 v_72)" -"(let-values()(s->_0 v_72))" -"(let-values()(f_23 tail?_11 v_72))))))" +"(if(syntax?$1 v_71)" +"(let-values()(s->_0 v_71))" +"(let-values()(f_23 tail?_11 v_71))))))" "((seen_6) seen_5))" "((letrec-values(((loop_64)" "(lambda(tail?_12 s_59 prev-depth_2)" @@ -5988,31 +6000,31 @@ static const char *startup_source = " #t" "(cdr s_59)" " depth_2))))" -"(if(let-values(((or-part_87)" +"(if(let-values(((or-part_85)" "(symbol? s_59)))" +"(if or-part_85" +" or-part_85" +"(let-values(((or-part_86)" +"(boolean?" +" s_59)))" +"(if or-part_86" +" or-part_86" +"(number? s_59)))))" +"(let-values()(f_24 #f s_59))" +"(if(let-values(((or-part_87)" +"(vector? s_59)))" "(if or-part_87" " or-part_87" "(let-values(((or-part_88)" -"(boolean?" +"(box?" " s_59)))" "(if or-part_88" " or-part_88" -"(number? s_59)))))" -"(let-values()(f_24 #f s_59))" -"(if(let-values(((or-part_89)" -"(vector? s_59)))" -"(if or-part_89" -" or-part_89" -"(let-values(((or-part_90)" -"(box?" -" s_59)))" -"(if or-part_90" -" or-part_90" -"(let-values(((or-part_91)" +"(let-values(((or-part_89)" "(prefab-struct-key" " s_59)))" -"(if or-part_91" -" or-part_91" +"(if or-part_89" +" or-part_89" "(hash? s_59)))))))" "(let-values()" "(datum-map-slow" @@ -6101,17 +6113,17 @@ static const char *startup_source = "(vector*-ref context-triple_1 2)" " srcloc_1" "(if props_0" -"(let-values(((ht_33) props_0))" +"(let-values(((ht_32) props_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-immutable-hash ht_33)))" +"(let-values()(check-in-immutable-hash ht_32)))" "((letrec-values(((for-loop_32)" "(lambda(table_29 i_46)" "(begin" " 'for-loop" "(if i_46" -"(let-values(((k_15 v_73)(unsafe-immutable-hash-iterate-key+value ht_33 i_46)))" +"(let-values(((k_15 v_72)(unsafe-immutable-hash-iterate-key+value ht_32 i_46)))" "(let-values(((table_30)" "(let-values(((table_31) table_29))" "(let-values(((table_32)" @@ -6121,16 +6133,16 @@ static const char *startup_source = "(values" " k_15" "(preserved-property-value1.1" -" v_73)))))" +" v_72)))))" "(hash-set table_31 key_18 val_8)))))" "(values table_32)))))" "(if(not #f)" -"(for-loop_32 table_30(unsafe-immutable-hash-iterate-next ht_33 i_46))" +"(for-loop_32 table_30(unsafe-immutable-hash-iterate-next ht_32 i_46))" " table_30)))" " table_29)))))" " for-loop_32)" " '#hasheq()" -"(unsafe-immutable-hash-iterate-first ht_33))))" +"(unsafe-immutable-hash-iterate-first ht_32))))" " empty-props)" " inspector_0))))" "(define-values" @@ -6208,12 +6220,12 @@ static const char *startup_source = "(if(let-values(((or-part_29) frame-id_0))" "(if or-part_29" " or-part_29" -"(let-values(((or-part_78) free=id_0))" -"(if or-part_78" -" or-part_78" -"(let-values(((or-part_79) extra-inspector_0))" -"(if or-part_79" -" or-part_79" +"(let-values(((or-part_76) free=id_0))" +"(if or-part_76" +" or-part_76" +"(let-values(((or-part_77) extra-inspector_0))" +"(if or-part_77" +" or-part_77" "(not" "(if(eqv? nominal-phase_0 phase_0)" "(if(eq? nominal-sym_0 sym_0)" @@ -6329,8 +6341,8 @@ static const char *startup_source = "(module-binding?)" "(lambda(b_24)" "(begin" -"(let-values(((or-part_89)(simple-module-binding? b_24)))" -"(if or-part_89 or-part_89(full-module-binding? b_24))))))" +"(let-values(((or-part_87)(simple-module-binding? b_24)))" +"(if or-part_87 or-part_87(full-module-binding? b_24))))))" "(define-values" "(struct:full-module-binding" " full-module-binding51.1" @@ -6357,7 +6369,7 @@ static const char *startup_source = "(cons prop:authentic #t)" "(cons" " prop:serialize" -"(lambda(b_25 ser-push!_2 state_10)" +"(lambda(b_25 ser-push!_2 state_11)" "(let-values(((simplified-b_0)" "(if(full-binding-frame-id b_25)" "(let-values(((b65_0) b_25)((temp66_0) #f))" @@ -6442,7 +6454,7 @@ static const char *startup_source = "(cons prop:authentic #t)" "(cons" " prop:serialize" -"(lambda(b_26 ser-push!_3 state_11)" +"(lambda(b_26 ser-push!_3 state_12)" "(begin" "(ser-push!_3 'tag '#:simple-module-binding)" "(ser-push!_3(simple-module-binding-module b_26))" @@ -6568,7 +6580,7 @@ static const char *startup_source = "(list" "(cons" " prop:serialize" -"(lambda(twbb_0 ser-push!_4 state_12)" +"(lambda(twbb_0 ser-push!_4 state_13)" "(begin" "(ser-push!_4 'tag '#:table-with-bulk-bindings)" "(ser-push!_4(table-with-bulk-bindings-syms/serialize twbb_0))" @@ -6603,7 +6615,7 @@ static const char *startup_source = " (cons prop:reach-scopes (lambda (sms_2 reach_1) (error \"shouldn't get here\")))" "(cons" " prop:serialize" -"(lambda(bba_0 ser-push!_5 state_13)" +"(lambda(bba_0 ser-push!_5 state_14)" "(begin" "(ser-push!_5 'tag '#:bulk-binding-at)" "(ser-push!_5(bulk-binding-at-scopes bba_0))" @@ -6694,6 +6706,9 @@ static const char *startup_source = "(table-with-bulk-bindings-bulk-bindings the-struct_1)))" " (raise-argument-error 'struct-copy \"table-with-bulk-bindings?\" the-struct_1))))))))))" "(define-values" +"(prop:implicitly-reachable implicitly-reachable? implicitly-reachable-ref)" +"(make-struct-type-property 'implicitly-reachable))" +"(define-values" "(binding-table-add-bulk9.1)" "(lambda(shadow-except4_0 shadow-except5_0 bt6_0 scopes7_0 bulk8_0)" "(begin" @@ -6747,18 +6762,18 @@ static const char *startup_source = "(let-values(((bulk-symbols_0)(bulk-binding-symbols bulk_2 #f null)))" "(if(<(hash-count syms_2)(hash-count bulk-symbols_0))" "(let-values()" -"(let-values(((ht_34) syms_2))" +"(let-values(((ht_33) syms_2))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-immutable-hash ht_34)))" +"(let-values()(check-in-immutable-hash ht_33)))" "((letrec-values(((for-loop_33)" "(lambda(syms_3 i_31)" "(begin" " 'for-loop" "(if i_31" "(let-values(((sym_5 sym-bindings_0)" -"(unsafe-immutable-hash-iterate-key+value ht_34 i_31)))" +"(unsafe-immutable-hash-iterate-key+value ht_33 i_31)))" "(let-values(((syms_4)" "(let-values(((syms_5) syms_3))" "(let-values(((syms_6)" @@ -6786,24 +6801,24 @@ static const char *startup_source = "(if(not #f)" "(for-loop_33" " syms_4" -"(unsafe-immutable-hash-iterate-next ht_34 i_31))" +"(unsafe-immutable-hash-iterate-next ht_33 i_31))" " syms_4)))" " syms_3)))))" " for-loop_33)" " syms_2" -"(unsafe-immutable-hash-iterate-first ht_34)))))" +"(unsafe-immutable-hash-iterate-first ht_33)))))" "(let-values()" -"(let-values(((ht_35) bulk-symbols_0))" +"(let-values(((ht_34) bulk-symbols_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-immutable-hash-keys ht_35)))" +"(let-values()(check-in-immutable-hash-keys ht_34)))" "((letrec-values(((for-loop_23)" "(lambda(syms_7 i_47)" "(begin" " 'for-loop" "(if i_47" -"(let-values(((sym_6)(unsafe-immutable-hash-iterate-key ht_35 i_47)))" +"(let-values(((sym_6)(unsafe-immutable-hash-iterate-key ht_34 i_47)))" "(let-values(((syms_8)" "(let-values(((syms_9) syms_7))" "(let-values(((syms_10)" @@ -6833,12 +6848,12 @@ static const char *startup_source = "(if(not #f)" "(for-loop_23" " syms_8" -"(unsafe-immutable-hash-iterate-next ht_35 i_47))" +"(unsafe-immutable-hash-iterate-next ht_34 i_47))" " syms_8)))" " syms_7)))))" " for-loop_23)" " syms_2" -"(unsafe-immutable-hash-iterate-first ht_35)))))))))))))))" +"(unsafe-immutable-hash-iterate-first ht_34)))))))))))))))" "(define-values" "(remove-matching-binding26.1)" "(lambda(except20_0 syms22_0 sym23_0 sym-bindings24_0 scopes25_0)" @@ -6860,30 +6875,30 @@ static const char *startup_source = "(binding-table-symbols)" "(lambda(table_33 scs_2 s_39 extra-shifts_1)" "(begin" -"(let-values(((ht_36 bulk-bindings_1)" +"(let-values(((ht_35 bulk-bindings_1)" "(if(hash? table_33)" "(values table_33 null)" "(values" "(table-with-bulk-bindings-syms table_33)" "(table-with-bulk-bindings-bulk-bindings table_33)))))" "(set-union" -"(let-values(((ht_37) ht_36))" +"(let-values(((ht_36) ht_35))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-in-hash ht_37)))" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-in-hash ht_36)))" "((letrec-values(((for-loop_34)" "(lambda(table_34 i_48)" "(begin" " 'for-loop" "(if i_48" -"(let-values(((sym_8 at-sym_0)(hash-iterate-key+value ht_37 i_48)))" +"(let-values(((sym_8 at-sym_0)(hash-iterate-key+value ht_36 i_48)))" "(let-values(((table_31)" "(let-values(((table_32) table_34))" -"(if(let-values(((ht_38) at-sym_0))" +"(if(let-values(((ht_37) at-sym_0))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-in-hash-keys ht_38)))" +"(let-values()(check-in-hash-keys ht_37)))" "((letrec-values(((for-loop_35)" "(lambda(result_29 i_49)" "(begin" @@ -6891,7 +6906,7 @@ static const char *startup_source = "(if i_49" "(let-values(((an-scs_0)" "(hash-iterate-key" -" ht_38" +" ht_37" " i_49)))" "(let-values(((result_30)" "(let-values()" @@ -6912,13 +6927,13 @@ static const char *startup_source = "(for-loop_35" " result_30" "(hash-iterate-next" -" ht_38" +" ht_37" " i_49))" " result_30)))" " result_29)))))" " for-loop_35)" " #f" -"(hash-iterate-first ht_38))))" +"(hash-iterate-first ht_37))))" "(let-values(((table_35) table_32))" "(let-values(((table_36)" "(let-values()" @@ -6930,11 +6945,11 @@ static const char *startup_source = "(hash-set table_35 key_19 val_9)))))" "(values table_36)))" " table_32))))" -"(if(not #f)(for-loop_34 table_31(hash-iterate-next ht_37 i_48)) table_31)))" +"(if(not #f)(for-loop_34 table_31(hash-iterate-next ht_36 i_48)) table_31)))" " table_34)))))" " for-loop_34)" " '#hasheq()" -"(hash-iterate-first ht_37))))" +"(hash-iterate-first ht_36))))" "(let-values(((lst_35) bulk-bindings_1))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_35)))" @@ -6947,7 +6962,7 @@ static const char *startup_source = "(let-values(((table_38)" "(let-values(((table_39) table_37))" "(if(subset?(bulk-binding-at-scopes bba_1) scs_2)" -"(let-values(((ht_39)" +"(let-values(((ht_38)" "(bulk-binding-symbols" "(bulk-binding-at-bulk bba_1)" " s_39" @@ -6956,7 +6971,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-in-hash-keys ht_39)))" +"(let-values()(check-in-hash-keys ht_38)))" "((letrec-values(((for-loop_37)" "(lambda(table_40 i_50)" "(begin" @@ -6964,7 +6979,7 @@ static const char *startup_source = "(if i_50" "(let-values(((sym_9)" "(hash-iterate-key" -" ht_39" +" ht_38" " i_50)))" "(let-values(((table_41)" "(let-values(((table_42)" @@ -6988,13 +7003,13 @@ static const char *startup_source = "(for-loop_37" " table_41" "(hash-iterate-next" -" ht_39" +" ht_38" " i_50))" " table_41)))" " table_40)))))" " for-loop_37)" " table_39" -"(hash-iterate-first ht_39))))" +"(hash-iterate-first ht_38))))" " table_39))))" "(if(not #f)(for-loop_36 table_38 rest_14) table_38)))" " table_37)))))" @@ -7003,18 +7018,18 @@ static const char *startup_source = " lst_35))))))))" "(define-values" "(binding-table-prune-to-reachable)" -"(lambda(bt_3 state_14)" +"(lambda(bt_3 state_15)" "(begin" -"(let-values(((or-part_92)(hash-ref(serialize-state-bindings-intern state_14) bt_3 #f)))" -"(if or-part_92" -" or-part_92" -"(let-values(((reachable-scopes_1)(serialize-state-reachable-scopes state_14)))" +"(let-values(((or-part_90)(hash-ref(serialize-state-bindings-intern state_15) bt_3 #f)))" +"(if or-part_90" +" or-part_90" +"(let-values(((reachable-scopes_1)(serialize-state-reachable-scopes state_15)))" "(let-values(((new-syms_2)" -"(let-values(((ht_40)(if(hash? bt_3) bt_3(table-with-bulk-bindings-syms/serialize bt_3))))" +"(let-values(((ht_39)(if(hash? bt_3) bt_3(table-with-bulk-bindings-syms/serialize bt_3))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-immutable-hash ht_40)))" +"(let-values()(check-in-immutable-hash ht_39)))" "((letrec-values(((for-loop_38)" "(lambda(table_44 i_51)" "(begin" @@ -7022,11 +7037,11 @@ static const char *startup_source = "(if i_51" "(let-values(((sym_2 bindings-for-sym_0)" "(unsafe-immutable-hash-iterate-key+value" -" ht_40" +" ht_39" " i_51)))" "(let-values(((table_45)" "(let-values(((new-bindings-for-sym_0)" -"(let-values(((ht_41)" +"(let-values(((ht_40)" " bindings-for-sym_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -7034,7 +7049,7 @@ static const char *startup_source = "(void)" "(let-values()" "(check-in-immutable-hash" -" ht_41)))" +" ht_40)))" "((letrec-values(((for-loop_39)" "(lambda(table_46" " i_52)" @@ -7044,7 +7059,7 @@ static const char *startup_source = "(let-values(((scopes_5" " binding_1)" "(unsafe-immutable-hash-iterate-key+value" -" ht_41" +" ht_40" " i_52)))" "(let-values(((table_47)" "(let-values(((table_48)" @@ -7062,7 +7077,7 @@ static const char *startup_source = "(values" "(intern-scopes" " scopes_5" -" state_14)" +" state_15)" " binding_1))))" "(hash-set" " table_49" @@ -7076,14 +7091,14 @@ static const char *startup_source = "(for-loop_39" " table_47" "(unsafe-immutable-hash-iterate-next" -" ht_41" +" ht_40" " i_52))" " table_47)))" " table_46)))))" " for-loop_39)" " '#hash()" "(unsafe-immutable-hash-iterate-first" -" ht_41))))))" +" ht_40))))))" "(begin" " #t" "((letrec-values(((for-loop_40)" @@ -7120,12 +7135,12 @@ static const char *startup_source = "(if(not #f)" "(for-loop_38" " table_45" -"(unsafe-immutable-hash-iterate-next ht_40 i_51))" +"(unsafe-immutable-hash-iterate-next ht_39 i_51))" " table_45)))" " table_44)))))" " for-loop_38)" " '#hasheq()" -"(unsafe-immutable-hash-iterate-first ht_40))))))" +"(unsafe-immutable-hash-iterate-first ht_39))))))" "(let-values(((new-bulk-bindings_0)" "(if(hash? bt_3)" " null" @@ -7160,7 +7175,7 @@ static const char *startup_source = "(intern-scopes" "(bulk-binding-at-scopes" " bba_2)" -" state_14)))" +" state_15)))" "(bulk-binding-at2.1" " scopes55_0" "(bulk-binding-at-bulk" @@ -7183,30 +7198,30 @@ static const char *startup_source = "(if(pair? new-bulk-bindings_0)" "(table-with-bulk-bindings1.1 new-syms_2 new-syms_2 new-bulk-bindings_0)" " new-syms_2)))" -"(begin(hash-set!(serialize-state-bulk-bindings-intern state_14) bt_3 new-bt_0) new-bt_0))))))))))" +"(begin(hash-set!(serialize-state-bulk-bindings-intern state_15) bt_3 new-bt_0) new-bt_0))))))))))" "(define-values" "(binding-table-register-reachable)" -"(lambda(bt_4 reachable-scopes_2 reach_2 register-trigger_0)" +"(lambda(bt_4 get-reachable-scopes_0 reach_2 register-trigger_0)" "(begin" "(begin" -"(let-values(((ht_42)(if(hash? bt_4) bt_4(table-with-bulk-bindings-syms/serialize bt_4))))" +"(let-values(((ht_41)(if(hash? bt_4) bt_4(table-with-bulk-bindings-syms/serialize bt_4))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-immutable-hash ht_42)))" +"(let-values()(check-in-immutable-hash ht_41)))" "((letrec-values(((for-loop_42)" "(lambda(i_53)" "(begin" " 'for-loop" "(if i_53" "(let-values(((sym_10 bindings-for-sym_1)" -"(unsafe-immutable-hash-iterate-key+value ht_42 i_53)))" +"(unsafe-immutable-hash-iterate-key+value ht_41 i_53)))" "(let-values((()" -"(let-values(((ht_43) bindings-for-sym_1))" +"(let-values(((ht_42) bindings-for-sym_1))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-immutable-hash ht_43)))" +"(let-values()(check-in-immutable-hash ht_42)))" "((letrec-values(((for-loop_43)" "(lambda(i_54)" "(begin" @@ -7214,7 +7229,7 @@ static const char *startup_source = "(if i_54" "(let-values(((scopes_6 binding_2)" "(unsafe-immutable-hash-iterate-key+value" -" ht_43" +" ht_42" " i_54)))" "(let-values((()" "(let-values()" @@ -7222,72 +7237,210 @@ static const char *startup_source = "(let-values()" "(begin" "(let-values()" +"(let-values(((v_73)" +"(if(binding-reach-scopes?" +" binding_2)" +"((binding-reach-scopes-ref" +" binding_2)" +" binding_2)" +" #f)))" "(scopes-register-reachable" " scopes_6" -" binding_2" -" reachable-scopes_2" +" v_73" +" get-reachable-scopes_0" " reach_2" -" register-trigger_0))" +" register-trigger_0)))" "(values)))))" "(values)))))" "(if(not #f)" "(for-loop_43" "(unsafe-immutable-hash-iterate-next" -" ht_43" +" ht_42" " i_54))" "(values))))" "(values))))))" " for-loop_43)" -"(unsafe-immutable-hash-iterate-first ht_43))))))" +"(unsafe-immutable-hash-iterate-first ht_42))))))" "(if(not #f)" -"(for-loop_42(unsafe-immutable-hash-iterate-next ht_42 i_53))" +"(for-loop_42(unsafe-immutable-hash-iterate-next ht_41 i_53))" "(values))))" "(values))))))" " for-loop_42)" -"(unsafe-immutable-hash-iterate-first ht_42))))" -"(void)))))" +"(unsafe-immutable-hash-iterate-first ht_41))))" +"(void)" +"(if(table-with-bulk-bindings? bt_4)" +"(let-values()" +"(begin" +"(let-values(((lst_39)(table-with-bulk-bindings-bulk-bindings bt_4)))" +"(begin" +"(if(variable-reference-from-unsafe?(#%variable-reference))" +"(void)" +"(let-values()(check-list lst_39)))" +"((letrec-values(((for-loop_44)" +"(lambda(lst_40)" +"(begin" +" 'for-loop" +"(if(pair? lst_40)" +"(let-values(((bba_3)(unsafe-car lst_40))((rest_16)(unsafe-cdr lst_40)))" +"(let-values((()" +"(let-values()" +"(let-values((()" +"(let-values()" +"(begin" +"(let-values()" +"(scopes-register-reachable" +"(bulk-binding-at-scopes bba_3)" +" #f" +" get-reachable-scopes_0" +" reach_2" +" register-trigger_0))" +"(values)))))" +"(values)))))" +"(if(not #f)(for-loop_44 rest_16)(values))))" +"(values))))))" +" for-loop_44)" +" lst_39)))" +"(void)))" +"(void))))))" "(define-values" "(scopes-register-reachable)" -"(lambda(scopes_7 binding_3 reachable-scopes_3 reach_3 register-trigger_1)" +"(lambda(scopes_7 v_74 get-reachable-scopes_1 reach_3 register-trigger_1)" "(begin" -"(let-values(((v_74)(if(binding-reach-scopes? binding_3)((binding-reach-scopes-ref binding_3) binding_3) #f)))" -"(if v_74" -"(let-values()" -"(if(subset? scopes_7 reachable-scopes_3)" +"(let-values(((reachable-scopes_2)(get-reachable-scopes_1)))" +"(if(subset? scopes_7 reachable-scopes_2)" "(let-values()(reach_3 v_74))" "(let-values()" +"(let-values(((pending-scopes_0)" +"(let-values(((ht_43) scopes_7))" "(begin" +"(if(variable-reference-from-unsafe?(#%variable-reference))" +"(void)" +"(let-values()(check-in-immutable-hash-keys ht_43)))" +"((letrec-values(((for-loop_45)" +"(lambda(table_56 i_55)" +"(begin" +" 'for-loop" +"(if i_55" +"(let-values(((sc_0)" +"(unsafe-immutable-hash-iterate-key ht_43 i_55)))" +"(let-values(((table_57)" +"(let-values(((table_58) table_56))" +"(if(let-values(((or-part_91)" +"(set-member?" +" reachable-scopes_2" +" sc_0)))" +"(if or-part_91" +" or-part_91" +"(implicitly-reachable? sc_0)))" +" table_58" +"(let-values(((table_59) table_58))" +"(let-values(((table_60)" +"(let-values()" +"(let-values(((key_23" +" val_13)" +"(let-values()" +"(values" +"(let-values()" +" sc_0)" +" #t))))" +"(hash-set" +" table_59" +" key_23" +" val_13)))))" +"(values table_60)))))))" +"(if(not #f)" +"(for-loop_45" +" table_57" +"(unsafe-immutable-hash-iterate-next ht_43 i_55))" +" table_57)))" +" table_56)))))" +" for-loop_45)" +" '#hasheq()" +"(unsafe-immutable-hash-iterate-first ht_43))))))" +"(let-values(((check-trigger_0)" +"(lambda(reach_4)" +"(begin" +" 'check-trigger" +"(if(zero?(hash-count pending-scopes_0))" +"(let-values()" +"(begin" +"(reach_4 v_74)" "(let-values(((ht_44) scopes_7))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-immutable-hash-keys ht_44)))" -"((letrec-values(((for-loop_44)" -"(lambda(i_55)" +"((letrec-values(((for-loop_46)" +"(lambda(i_56)" "(begin" " 'for-loop" -"(if i_55" -"(let-values(((sc_0)(unsafe-immutable-hash-iterate-key ht_44 i_55)))" +"(if i_56" +"(let-values(((sc_1)" +"(unsafe-immutable-hash-iterate-key" +" ht_44" +" i_56)))" "(let-values((()" "(let-values()" -"(if(set-member? reachable-scopes_3 sc_0)" -"(values)" -"(let-values()" "(let-values((()" "(let-values()" "(begin" "(let-values()" -"(register-trigger_1 sc_0 v_74))" +"(if(implicitly-reachable?" +" sc_1)" +"(let-values()" +"(reach_4" +" sc_1))" +"(void)))" +"(values)))))" "(values)))))" -"(values)))))))" "(if(not #f)" -"(for-loop_44(unsafe-immutable-hash-iterate-next ht_44 i_55))" +"(for-loop_46" +"(unsafe-immutable-hash-iterate-next" +" ht_44" +" i_56))" "(values))))" "(values))))))" -" for-loop_44)" +" for-loop_46)" "(unsafe-immutable-hash-iterate-first ht_44))))" -"(void)))))" +"(void)))" "(void))))))" +"(begin" +"(let-values(((ht_45) pending-scopes_0))" +"(begin" +"(if(variable-reference-from-unsafe?(#%variable-reference))" +"(void)" +"(let-values()(check-in-immutable-hash-keys ht_45)))" +"((letrec-values(((for-loop_47)" +"(lambda(i_8)" +"(begin" +" 'for-loop" +"(if i_8" +"(let-values(((sc_2)(unsafe-immutable-hash-iterate-key ht_45 i_8)))" +"(let-values((()" +"(let-values()" +"(let-values((()" +"(let-values()" +"(begin" +"(let-values()" +"(register-trigger_1" +" sc_2" +"(lambda(reach_5)" +"(begin" +"(set! pending-scopes_0" +"(hash-remove" +" pending-scopes_0" +" sc_2))" +"(check-trigger_0 reach_5)))))" +"(values)))))" +"(values)))))" +"(if(not #f)" +"(for-loop_47(unsafe-immutable-hash-iterate-next ht_45 i_8))" +"(values))))" +"(values))))))" +" for-loop_47)" +"(unsafe-immutable-hash-iterate-first ht_45))))" +"(void)" +"(check-trigger_0 reach_3))))))))))" "(define-values" "(taint-content)" "(lambda(d_2)" @@ -7344,20 +7497,20 @@ static const char *startup_source = "(f_4" " tail?_17" "(cons(loop_66 #f(car s_69) depth_3)(loop_66 #t(cdr s_69) depth_3))))" -"(if(let-values(((or-part_78)(symbol? s_69)))" -"(if or-part_78" -" or-part_78" -"(let-values(((or-part_79)(boolean? s_69)))" -"(if or-part_79 or-part_79(number? s_69)))))" +"(if(let-values(((or-part_76)(symbol? s_69)))" +"(if or-part_76" +" or-part_76" +"(let-values(((or-part_77)(boolean? s_69)))" +"(if or-part_77 or-part_77(number? s_69)))))" "(let-values()(f_4 #f s_69))" -"(if(let-values(((or-part_70)(vector? s_69)))" +"(if(let-values(((or-part_69)(vector? s_69)))" +"(if or-part_69" +" or-part_69" +"(let-values(((or-part_70)(box? s_69)))" "(if or-part_70" " or-part_70" -"(let-values(((or-part_71)(box? s_69)))" -"(if or-part_71" -" or-part_71" -"(let-values(((or-part_80)(prefab-struct-key s_69)))" -"(if or-part_80 or-part_80(hash? s_69)))))))" +"(let-values(((or-part_78)(prefab-struct-key s_69)))" +"(if or-part_78 or-part_78(hash? s_69)))))))" "(let-values()" "(datum-map-slow" " tail?_17" @@ -7380,21 +7533,21 @@ static const char *startup_source = "(if(tamper-tainted? t_17)" "(let-values() s_72)" "(if(if t_17" -"(let-values(((or-part_93)(set-member? t_17 insp_0)))" -"(if or-part_93" -" or-part_93" -"(let-values(((ht_45) t_17))" +"(let-values(((or-part_92)(set-member? t_17 insp_0)))" +"(if or-part_92" +" or-part_92" +"(let-values(((ht_46) t_17))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-immutable-hash-keys ht_45)))" -"((letrec-values(((for-loop_45)" -"(lambda(result_32 i_56)" +"(let-values()(check-in-immutable-hash-keys ht_46)))" +"((letrec-values(((for-loop_48)" +"(lambda(result_32 i_57)" "(begin" " 'for-loop" -"(if i_56" +"(if i_57" "(let-values(((already-insp_0)" -"(unsafe-immutable-hash-iterate-key ht_45 i_56)))" +"(unsafe-immutable-hash-iterate-key ht_46 i_57)))" "(let-values(((result_33)" "(let-values()" "(let-values(((result_34)" @@ -7405,14 +7558,14 @@ static const char *startup_source = " insp_0)))))" "(values result_34)))))" "(if(if(not((lambda x_29 result_33) already-insp_0))(not #f) #f)" -"(for-loop_45" +"(for-loop_48" " result_33" -"(unsafe-immutable-hash-iterate-next ht_45 i_56))" +"(unsafe-immutable-hash-iterate-next ht_46 i_57))" " result_33)))" " result_32)))))" -" for-loop_45)" +" for-loop_48)" " #f" -"(unsafe-immutable-hash-iterate-first ht_45))))))" +"(unsafe-immutable-hash-iterate-first ht_46))))))" " #f)" "(let-values() s_72)" "(let-values()" @@ -7437,38 +7590,38 @@ static const char *startup_source = "(remove-inferior)" "(lambda(t_19 insp_1)" "(begin" -"(let-values(((ht_46) t_19))" +"(let-values(((ht_47) t_19))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-immutable-hash-keys ht_46)))" -"((letrec-values(((for-loop_46)" -"(lambda(table_56 i_57)" +"(let-values()(check-in-immutable-hash-keys ht_47)))" +"((letrec-values(((for-loop_49)" +"(lambda(table_61 i_58)" "(begin" " 'for-loop" -"(if i_57" -"(let-values(((already-insp_1)(unsafe-immutable-hash-iterate-key ht_46 i_57)))" +"(if i_58" +"(let-values(((already-insp_1)(unsafe-immutable-hash-iterate-key ht_47 i_58)))" "(let-values(((table_15)" -"(let-values(((table_57) table_56))" +"(let-values(((table_62) table_61))" "(if(inspector-superior-or-same? insp_1 already-insp_1)" -" table_57" -"(let-values(((table_58) table_57))" -"(let-values(((table_59)" +" table_62" +"(let-values(((table_63) table_62))" +"(let-values(((table_64)" "(let-values()" -"(let-values(((key_23 val_13)" +"(let-values(((key_24 val_14)" "(let-values()" "(values" "(let-values() already-insp_1)" " #t))))" -"(hash-set table_58 key_23 val_13)))))" -"(values table_59)))))))" +"(hash-set table_63 key_24 val_14)))))" +"(values table_64)))))))" "(if(not #f)" -"(for-loop_46 table_15(unsafe-immutable-hash-iterate-next ht_46 i_57))" +"(for-loop_49 table_15(unsafe-immutable-hash-iterate-next ht_47 i_58))" " table_15)))" -" table_56)))))" -" for-loop_46)" +" table_61)))))" +" for-loop_49)" " '#hasheq()" -"(unsafe-immutable-hash-iterate-first ht_46)))))))" +"(unsafe-immutable-hash-iterate-first ht_47)))))))" "(define-values" "(syntax-disarm$1)" "(let-values(((syntax-disarm4_0)" @@ -7582,20 +7735,20 @@ static const char *startup_source = "(if(syntax?$1 the-struct_9)" "(let-values(((scope-propagations+tamper12_0)" "(let-values(((t_26)" -"(let-values(((ht_47) from-t_0))" +"(let-values(((ht_48) from-t_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-immutable-hash-keys ht_47)))" -"((letrec-values(((for-loop_47)" -"(lambda(t_27 i_58)" +"(let-values()(check-in-immutable-hash-keys ht_48)))" +"((letrec-values(((for-loop_50)" +"(lambda(t_27 i_59)" "(begin" " 'for-loop" -"(if i_58" +"(if i_59" "(let-values(((from-i_0)" "(unsafe-immutable-hash-iterate-key" -" ht_47" -" i_58)))" +" ht_48" +" i_59)))" "(let-values(((t_28)" "(let-values(((t_29)" " t_27))" @@ -7620,16 +7773,16 @@ static const char *startup_source = "(values" " t_30)))))" "(if(not #f)" -"(for-loop_47" +"(for-loop_50" " t_28" "(unsafe-immutable-hash-iterate-next" -" ht_47" -" i_58))" +" ht_48" +" i_59))" " t_28)))" " t_27)))))" -" for-loop_47)" +" for-loop_50)" " t_23" -"(unsafe-immutable-hash-iterate-first ht_47)))))" +"(unsafe-immutable-hash-iterate-first ht_48)))))" "((p_25)(syntax-scope-propagations+tamper stx_6)))" "(if(tamper? p_25) t_26((propagation-set-tamper-ref p_25) p_25 t_26)))))" "(syntax1.1" @@ -7670,36 +7823,36 @@ static const char *startup_source = "(any-superior?)" "(lambda(t_5 from-i_1)" "(begin" -"(let-values(((ht_48) t_5))" +"(let-values(((ht_49) t_5))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-immutable-hash-keys ht_48)))" -"((letrec-values(((for-loop_48)" -"(lambda(result_35 i_59)" +"(let-values()(check-in-immutable-hash-keys ht_49)))" +"((letrec-values(((for-loop_51)" +"(lambda(result_35 i_60)" "(begin" " 'for-loop" -"(if i_59" -"(let-values(((i_60)(unsafe-immutable-hash-iterate-key ht_48 i_59)))" +"(if i_60" +"(let-values(((i_61)(unsafe-immutable-hash-iterate-key ht_49 i_60)))" "(let-values(((result_36)" "(let-values()" "(let-values(((result_37)" "(let-values()" "(let-values()" -"(inspector-superior-or-same? i_60 from-i_1)))))" +"(inspector-superior-or-same? i_61 from-i_1)))))" "(values result_37)))))" -"(if(if(not((lambda x_30 result_36) i_60))(not #f) #f)" -"(for-loop_48 result_36(unsafe-immutable-hash-iterate-next ht_48 i_59))" +"(if(if(not((lambda x_30 result_36) i_61))(not #f) #f)" +"(for-loop_51 result_36(unsafe-immutable-hash-iterate-next ht_49 i_60))" " result_36)))" " result_35)))))" -" for-loop_48)" +" for-loop_51)" " #f" -"(unsafe-immutable-hash-iterate-first ht_48)))))))" +"(unsafe-immutable-hash-iterate-first ht_49)))))))" "(define-values" "(inspector-superior-or-same?)" -"(lambda(sup-i_0 i_61)" +"(lambda(sup-i_0 i_62)" "(begin" -"(let-values(((or-part_94)(eq? sup-i_0 i_61)))(if or-part_94 or-part_94(inspector-superior? sup-i_0 i_61))))))" +"(let-values(((or-part_93)(eq? sup-i_0 i_62)))(if or-part_93 or-part_93(inspector-superior? sup-i_0 i_62))))))" "(define-values" "(struct:fallback fallback1.1 fallback? fallback-search-list)" "(let-values(((struct:_0 make-_0 ?_0 -ref_0 -set!_0)" @@ -7739,15 +7892,15 @@ static const char *startup_source = "(if(fallback? smss_4)" "(fallback1.1" "(reverse$1" -"(let-values(((lst_39)(fallback-search-list smss_4)))" +"(let-values(((lst_41)(fallback-search-list smss_4)))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_39)))" -"((letrec-values(((for-loop_49)" -"(lambda(fold-var_26 lst_40)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_41)))" +"((letrec-values(((for-loop_52)" +"(lambda(fold-var_26 lst_42)" "(begin" " 'for-loop" -"(if(pair? lst_40)" -"(let-values(((smss_5)(unsafe-car lst_40))((rest_16)(unsafe-cdr lst_40)))" +"(if(pair? lst_42)" +"(let-values(((smss_5)(unsafe-car lst_42))((rest_17)(unsafe-cdr lst_42)))" "(let-values(((fold-var_27)" "(let-values(((fold-var_28) fold-var_26))" "(let-values(((fold-var_29)" @@ -7756,11 +7909,11 @@ static const char *startup_source = "(let-values()(f_19 smss_5))" " fold-var_28))))" "(values fold-var_29)))))" -"(if(not #f)(for-loop_49 fold-var_27 rest_16) fold-var_27)))" +"(if(not #f)(for-loop_52 fold-var_27 rest_17) fold-var_27)))" " fold-var_26)))))" -" for-loop_49)" +" for-loop_52)" " null" -" lst_39)))))" +" lst_41)))))" "(f_19 smss_4)))))" "(define-values" "(fallback->list)" @@ -7834,18 +7987,18 @@ static const char *startup_source = "(lambda(s_75)" "(begin" "(let-values(((vec_16)" -"(let-values(((or-part_95)(weak-box-value cached-sets)))" -"(if or-part_95" -" or-part_95" +"(let-values(((or-part_94)(weak-box-value cached-sets)))" +"(if or-part_94" +" or-part_94" "(let-values(((vec_17)(make-vector NUM-CACHE-SLOTS #f)))" "(begin(set! cached-sets(make-weak-box vec_17)) vec_17))))))" -"(let-values(((or-part_96)" +"(let-values(((or-part_95)" "(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))))))" "(begin" " #f" -"((letrec-values(((for-loop_50)" +"((letrec-values(((for-loop_53)" "(lambda(result_38 pos_7)" "(begin" " 'for-loop" @@ -7861,14 +8014,14 @@ static const char *startup_source = " #f)))))" "(values result_40)))))" "(if(if(not((lambda x_31 result_39) s2_5))(not #f) #f)" -"(for-loop_50 result_39(unsafe-fx+ 1 pos_7))" +"(for-loop_53 result_39(unsafe-fx+ 1 pos_7))" " result_39)))" " result_38)))))" -" for-loop_50)" +" for-loop_53)" " #f" " 0)))))" -"(if or-part_96" -" or-part_96" +"(if or-part_95" +" or-part_95" "(begin" "(vector-set! vec_16 cached-sets-pos s_75)" "(set! cached-sets-pos(modulo(add1 cached-sets-pos) NUM-CACHE-SLOTS))" @@ -7878,18 +8031,18 @@ static const char *startup_source = "(lambda(s_76)" "(begin" "(let-values(((vec_20)" -"(let-values(((or-part_97)(weak-box-value cached-hashes)))" -"(if or-part_97" -" or-part_97" +"(let-values(((or-part_96)(weak-box-value cached-hashes)))" +"(if or-part_96" +" or-part_96" "(let-values(((vec_21)(make-vector NUM-CACHE-SLOTS #f)))" "(begin(set! cached-hashes(make-weak-box vec_21)) vec_21))))))" -"(let-values(((or-part_98)" +"(let-values(((or-part_97)" "(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))))))" "(begin" " #f" -"((letrec-values(((for-loop_51)" +"((letrec-values(((for-loop_54)" "(lambda(result_41 pos_8)" "(begin" " 'for-loop" @@ -7905,14 +8058,14 @@ static const char *startup_source = " #f)))))" "(values result_43)))))" "(if(if(not((lambda x_32 result_42) s2_6))(not #f) #f)" -"(for-loop_51 result_42(unsafe-fx+ 1 pos_8))" +"(for-loop_54 result_42(unsafe-fx+ 1 pos_8))" " result_42)))" " result_41)))))" -" for-loop_51)" +" for-loop_54)" " #f" " 0)))))" -"(if or-part_98" -" or-part_98" +"(if or-part_97" +" or-part_97" "(begin" "(vector-set! vec_20 cached-hashes-pos s_76)" "(set! cached-hashes-pos(modulo(add1 cached-hashes-pos) NUM-CACHE-SLOTS))" @@ -7932,27 +8085,27 @@ static const char *startup_source = "(cons prop:authentic #t)" "(cons" " prop:scope-with-bindings" -"(lambda(s_72 reachable-scopes_4 reach_4 register-trigger_2)" +"(lambda(s_72 get-reachable-scopes_2 reach_6 register-trigger_2)" "(binding-table-register-reachable" "(scope-binding-table s_72)" -" reachable-scopes_4" -" reach_4" +" get-reachable-scopes_2" +" reach_6" " register-trigger_2)))" -"(cons prop:reach-scopes(lambda(s_77 reach_5)(void)))" +"(cons prop:reach-scopes(lambda(s_77 reach_7)(void)))" "(cons" " prop:serialize-fill!" -"(lambda(s_78 ser-push!_6 state_15)" +"(lambda(s_78 ser-push!_6 state_16)" "(if(binding-table-empty?(scope-binding-table s_78))" "(let-values()(ser-push!_6 'tag #f))" "(let-values()" "(begin" "(ser-push!_6 'tag '#:scope-fill!)" -"(ser-push!_6(binding-table-prune-to-reachable(scope-binding-table s_78) state_15)))))))" +"(ser-push!_6(binding-table-prune-to-reachable(scope-binding-table s_78) state_16)))))))" "(cons" " prop:serialize" -"(lambda(s_79 ser-push!_7 state_16)" +"(lambda(s_79 ser-push!_7 state_17)" "(begin" -"(if(set-member?(serialize-state-reachable-scopes state_16) s_79)" +"(if(set-member?(serialize-state-reachable-scopes state_17) s_79)" "(void)" " (let-values () (error \"internal error: found supposedly unreachable scope\")))" "(if(eq? s_79 top-level-common-scope)" @@ -7961,12 +8114,12 @@ static const char *startup_source = "(begin(ser-push!_7 'tag '#:scope+kind)(ser-push!_7(scope-kind s_79))))))))" "(cons" " prop:custom-write" -"(lambda(sc_1 port_6 mode_6)" +"(lambda(sc_3 port_6 mode_6)" "(begin" " (write-string \"#\" port_6)))))" "(current-inspector)" " #f" @@ -8007,14 +8160,95 @@ static const char *startup_source = " #f" "(list" "(cons prop:authentic #t)" -"(cons prop:reach-scopes(lambda(ms_0 reach_6)(reach_6(multi-scope-scopes ms_0))))" +"(cons" +" prop:scope-with-bindings" +"(lambda(ms_0 get-reachable-scopes_3 reach_8 register-trigger_3)" +"(begin" +"(let-values(((ht_50)(multi-scope-scopes ms_0)))" +"(begin" +"(if(variable-reference-from-unsafe?(#%variable-reference))" +"(void)" +"(let-values()(check-in-hash-values ht_50)))" +"((letrec-values(((for-loop_55)" +"(lambda(i_63)" +"(begin" +" 'for-loop" +"(if i_63" +"(let-values(((sc_4)(hash-iterate-value ht_50 i_63)))" +"(let-values((()" +"(let-values()" +"(let-values((()" +"(let-values()" +"(begin" +"(let-values()" +"(if(binding-table-empty?" +"(scope-binding-table" +" sc_4))" +"(void)" +"(let-values()" +"(reach_8 sc_4))))" +"(values)))))" +"(values)))))" +"(if(not #f)" +"(for-loop_55(hash-iterate-next ht_50 i_63))" +"(values))))" +"(values))))))" +" for-loop_55)" +"(hash-iterate-first ht_50))))" +"(void))))" +"(cons prop:reach-scopes(lambda(s_81 reach_9)(void)))" "(cons" " prop:serialize" -"(lambda(ms_1 ser-push!_8 state_6)" +"(lambda(ms_1 ser-push!_8 state_18)" +"(let-values((()(begin(ser-push!_8 'tag '#:multi-scope)(values))))" +"(let-values((()(begin(ser-push!_8(multi-scope-name ms_1))(values))))" +"(let-values(((multi-scope-tables_0)(serialize-state-multi-scope-tables state_18)))" +"(ser-push!_8" +"(let-values(((or-part_98)" +"(hash-ref multi-scope-tables_0(multi-scope-scopes ms_1) #f)))" +"(if or-part_98" +" or-part_98" +"(let-values(((ht_51)(make-hasheqv)))" "(begin" -"(ser-push!_8 'tag '#:multi-scope)" -"(ser-push!_8(multi-scope-name ms_1))" -"(ser-push!_8(multi-scope-scopes ms_1))))))" +"(let-values(((ht_18)(multi-scope-scopes ms_1)))" +"(begin" +"(if(variable-reference-from-unsafe?(#%variable-reference))" +"(void)" +"(let-values()(check-in-hash ht_18)))" +"((letrec-values(((for-loop_3)" +"(lambda(i_64)" +"(begin" +" 'for-loop" +"(if i_64" +"(let-values(((phase_6 sc_5)" +"(hash-iterate-key+value ht_18 i_64)))" +"(let-values((()" +"(let-values()" +"(let-values((()" +"(let-values()" +"(begin" +"(let-values()" +"(if(set-member?" +"(serialize-state-reachable-scopes" +" state_18)" +" sc_5)" +"(let-values()" +"(hash-set!" +" ht_51" +" phase_6" +" sc_5))" +"(void)))" +"(values)))))" +"(values)))))" +"(if(not #f)" +"(for-loop_3(hash-iterate-next ht_18 i_64))" +"(values))))" +"(values))))))" +" for-loop_3)" +"(hash-iterate-first ht_18))))" +"(void)" +"(hash-set! multi-scope-tables_0(multi-scope-scopes ms_1) ht_51)" +" ht_51)))))))))))" "(current-inspector)" " #f" " '(0 1 2 3 4)" @@ -8052,35 +8286,36 @@ static const char *startup_source = " #f" "(list" "(cons prop:authentic #t)" -"(cons prop:reach-scopes(lambda(s_28 reach_7)(reach_7(representative-scope-owner s_28))))" +"(cons prop:implicitly-reachable #t)" +"(cons prop:reach-scopes(lambda(s_82 reach_10)(reach_10(representative-scope-owner s_82))))" "(cons" " prop:serialize-fill!" -"(lambda(s_30 ser-push!_9 state_17)" +"(lambda(s_31 ser-push!_9 state_19)" "(begin" "(ser-push!_9 'tag '#:representative-scope-fill!)" -"(ser-push!_9(binding-table-prune-to-reachable(scope-binding-table s_30) state_17))" -"(ser-push!_9(representative-scope-owner s_30)))))" +"(ser-push!_9(binding-table-prune-to-reachable(scope-binding-table s_31) state_19))" +"(ser-push!_9(representative-scope-owner s_31)))))" "(cons" " prop:serialize" -"(lambda(s_81 ser-push!_10 state_18)" +"(lambda(s_83 ser-push!_10 state_20)" "(begin" "(ser-push!_10 'tag '#:representative-scope)" -"(ser-push!_10(scope-kind s_81))" -"(ser-push!_10(representative-scope-phase s_81)))))" +"(ser-push!_10(scope-kind s_83))" +"(ser-push!_10(representative-scope-phase s_83)))))" "(cons" " prop:custom-write" -"(lambda(sc_2 port_7 mode_7)" +"(lambda(sc_6 port_7 mode_7)" "(begin" " (write-string \"#\" port_7)))))" "(current-inspector)" " #f" @@ -8097,12 +8332,12 @@ static const char *startup_source = "(make-struct-field-mutator -set!_23 1 'phase))))" "(define-values" "(deserialize-representative-scope)" -"(lambda(kind_1 phase_6)" -"(begin(let-values(((v_53)(representative-scope3.1(new-deserialize-scope-id!) kind_1 #f #f phase_6))) v_53))))" +"(lambda(kind_1 phase_7)" +"(begin(let-values(((v_77)(representative-scope3.1(new-deserialize-scope-id!) kind_1 #f #f phase_7))) v_77))))" "(define-values" "(deserialize-representative-scope-fill!)" -"(lambda(s_82 bt_6 owner_0)" -"(begin(begin(deserialize-scope-fill! s_82 bt_6)(set-representative-scope-owner! s_82 owner_0)))))" +"(lambda(s_84 bt_6 owner_0)" +"(begin(begin(deserialize-scope-fill! s_84 bt_6)(set-representative-scope-owner! s_84 owner_0)))))" "(define-values" "(struct:shifted-multi-scope" " shifted-multi-scope4.1" @@ -8122,10 +8357,10 @@ static const char *startup_source = "(cons prop:authentic #t)" "(cons" " prop:reach-scopes" -"(lambda(sms_3 reach_8)(reach_8(shifted-multi-scope-multi-scope sms_3))))" +"(lambda(sms_3 reach_11)(reach_11(shifted-multi-scope-multi-scope sms_3))))" "(cons" " prop:serialize" -"(lambda(sms_4 ser-push!_11 state_19)" +"(lambda(sms_4 ser-push!_11 state_21)" "(begin" "(ser-push!_11 'tag '#:shifted-multi-scope)" "(ser-push!_11(shifted-multi-scope-phase sms_4))" @@ -8152,41 +8387,41 @@ static const char *startup_source = "(make-struct-field-accessor -ref_24 1 'multi-scope))))" "(define-values" "(deserialize-shifted-multi-scope)" -"(lambda(phase_7 multi-scope_0)(begin(intern-shifted-multi-scope phase_7 multi-scope_0))))" +"(lambda(phase_8 multi-scope_0)(begin(intern-shifted-multi-scope phase_8 multi-scope_0))))" "(define-values" "(intern-shifted-multi-scope)" -"(lambda(phase_8 multi-scope_1)" +"(lambda(phase_9 multi-scope_1)" "(begin" "(letrec-values(((transaction-loop_0)" -"(lambda(boxed-table_0 key_24 make_0)" +"(lambda(boxed-table_0 key_25 make_0)" "(begin" " 'transaction-loop" -"(let-values(((or-part_58)(hash-ref(unbox boxed-table_0) phase_8 #f)))" -"(if or-part_58" -" or-part_58" -"(let-values(((val_14)(make_0)))" -"(let-values(((current_0)(unbox boxed-table_0)))" -"(let-values(((next_3)(hash-set current_0 key_24 val_14)))" -"(if(box-cas! boxed-table_0 current_0 next_3)" -" val_14" -"(transaction-loop_0 boxed-table_0 key_24 make_0)))))))))))" -"(if(phase? phase_8)" -"(let-values()" -"(let-values(((or-part_99)(hash-ref(unbox(multi-scope-shifted multi-scope_1)) phase_8 #f)))" +"(let-values(((or-part_99)(hash-ref(unbox boxed-table_0) phase_9 #f)))" "(if or-part_99" " or-part_99" -"(transaction-loop_0" -"(multi-scope-shifted multi-scope_1)" -" phase_8" -"(lambda()(shifted-multi-scope4.1 phase_8 multi-scope_1))))))" +"(let-values(((val_15)(make_0)))" +"(let-values(((current_0)(unbox boxed-table_0)))" +"(let-values(((next_3)(hash-set current_0 key_25 val_15)))" +"(if(box-cas! boxed-table_0 current_0 next_3)" +" val_15" +"(transaction-loop_0 boxed-table_0 key_25 make_0)))))))))))" +"(if(phase? phase_9)" "(let-values()" -"(let-values(((or-part_100)(hash-ref(unbox(multi-scope-label-shifted multi-scope_1)) phase_8 #f)))" +"(let-values(((or-part_100)(hash-ref(unbox(multi-scope-shifted multi-scope_1)) phase_9 #f)))" "(if or-part_100" " or-part_100" "(transaction-loop_0" +"(multi-scope-shifted multi-scope_1)" +" phase_9" +"(lambda()(shifted-multi-scope4.1 phase_9 multi-scope_1))))))" +"(let-values()" +"(let-values(((or-part_101)(hash-ref(unbox(multi-scope-label-shifted multi-scope_1)) phase_9 #f)))" +"(if or-part_101" +" or-part_101" +"(transaction-loop_0" "(multi-scope-label-shifted multi-scope_1)" -" phase_8" -"(lambda()(shifted-multi-scope4.1 phase_8 multi-scope_1)))))))))))" +" phase_9" +"(lambda()(shifted-multi-scope4.1 phase_9 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)" @@ -8208,6 +8443,7 @@ static const char *startup_source = "(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!)))))" +"(define-values(deserialized-scope-id?)(lambda(scope-id_0)(begin(negative? scope-id_0))))" "(define-values(top-level-common-scope)(scope1.1 0 'module empty-binding-table))" "(define-values(new-scope)(lambda(kind_2)(begin(scope1.1(new-scope-id!) kind_2 empty-binding-table))))" "(define-values" @@ -8224,13 +8460,19 @@ 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_9)" +"(lambda(ms_2 phase_10)" "(begin" -"(let-values(((or-part_88)(hash-ref(multi-scope-scopes ms_2) phase_9 #f)))" -"(if or-part_88" -" or-part_88" -"(let-values(((s_83)(representative-scope3.1(new-scope-id!) 'module empty-binding-table ms_2 phase_9)))" -"(begin(hash-set!(multi-scope-scopes ms_2) phase_9 s_83) s_83)))))))" +"(let-values(((or-part_102)(hash-ref(multi-scope-scopes ms_2) phase_10 #f)))" +"(if or-part_102" +" or-part_102" +"(let-values(((s_85)" +"(representative-scope3.1" +"(if(deserialized-scope-id?(multi-scope-id ms_2))(new-deserialize-scope-id!)(new-scope-id!))" +" 'module" +" empty-binding-table" +" ms_2" +" phase_10)))" +"(begin(hash-set!(multi-scope-scopes ms_2) phase_10 s_85) s_85)))))))" "(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)" @@ -8266,17 +8508,17 @@ static const char *startup_source = "(let-values(((the-struct_11) sub-s_1))" "(if(syntax?$1 the-struct_11)" "(let-values(((scopes48_1)" -"(propagation-apply prop_3(syntax-scopes sub-s_1) s_84))" +"(propagation-apply prop_3(syntax-scopes sub-s_1) s_86))" "((shifted-multi-scopes49_0)" "(propagation-apply-shifted" " prop_3" "(syntax-shifted-multi-scopes sub-s_1)" -" s_84))" +" s_86))" "((mpi-shifts50_0)" "(propagation-apply-mpi-shifts" " prop_3" "(syntax-mpi-shifts sub-s_1)" -" s_84))" +" s_86))" "((inspector51_0)" "(propagation-apply-inspector" " prop_3" @@ -8314,17 +8556,17 @@ static const char *startup_source = "(syntax-inspector the-struct_12)))" " (raise-argument-error 'struct-copy \"syntax?\" the-struct_12)))))))" "((seen_9) #f))" -"(let-values(((s_86) s_85)" +"(let-values(((s_88) s_87)" "((f_28)" -"(lambda(tail?_20 v_77)" +"(lambda(tail?_20 v_78)" "(begin" " 'f" -"(if(syntax?$1 v_77)" -"(let-values()(s->_2 v_77))" -"(let-values()(f_27 tail?_20 v_77))))))" +"(if(syntax?$1 v_78)" +"(let-values()(s->_2 v_78))" +"(let-values()(f_27 tail?_20 v_78))))))" "((seen_10) seen_9))" "((letrec-values(((loop_67)" -"(lambda(tail?_21 s_87 prev-depth_4)" +"(lambda(tail?_21 s_89 prev-depth_4)" "(begin" " 'loop" "(let-values(((depth_4)(add1 prev-depth_4)))" @@ -8332,88 +8574,88 @@ static const char *startup_source = "(let-values()" "(datum-map-slow" " tail?_21" -" s_87" -"(lambda(tail?_22 s_88)(f_28 tail?_22 s_88))" +" s_89" +"(lambda(tail?_22 s_90)(f_28 tail?_22 s_90))" " seen_10))" -"(if(null? s_87)" -"(let-values()(f_28 tail?_21 s_87))" -"(if(pair? s_87)" +"(if(null? s_89)" +"(let-values()(f_28 tail?_21 s_89))" +"(if(pair? s_89)" "(let-values()" "(f_28" " tail?_21" "(cons" -"(loop_67 #f(car s_87) depth_4)" -"(loop_67 #t(cdr s_87) depth_4))))" -"(if(let-values(((or-part_102)(symbol? s_87)))" -"(if or-part_102" -" or-part_102" -"(let-values(((or-part_103)(boolean? s_87)))" -"(if or-part_103 or-part_103(number? s_87)))))" -"(let-values()(f_28 #f s_87))" -"(if(let-values(((or-part_104)(vector? s_87)))" +"(loop_67 #f(car s_89) depth_4)" +"(loop_67 #t(cdr s_89) depth_4))))" +"(if(let-values(((or-part_104)(symbol? s_89)))" "(if or-part_104" " or-part_104" -"(let-values(((or-part_105)(box? s_87)))" -"(if or-part_105" -" or-part_105" -"(let-values(((or-part_106)" -"(prefab-struct-key s_87)))" -"(if or-part_106 or-part_106(hash? s_87)))))))" +"(let-values(((or-part_105)(boolean? s_89)))" +"(if or-part_105 or-part_105(number? s_89)))))" +"(let-values()(f_28 #f s_89))" +"(if(let-values(((or-part_106)(vector? s_89)))" +"(if or-part_106" +" or-part_106" +"(let-values(((or-part_107)(box? s_89)))" +"(if or-part_107" +" or-part_107" +"(let-values(((or-part_108)" +"(prefab-struct-key s_89)))" +"(if or-part_108 or-part_108(hash? s_89)))))))" "(let-values()" "(datum-map-slow" " tail?_21" -" s_87" -"(lambda(tail?_23 s_89)(f_28 tail?_23 s_89))" +" s_89" +"(lambda(tail?_23 s_91)(f_28 tail?_23 s_91))" " seen_10))" -"(let-values()(f_28 #f s_87))))))))))))" +"(let-values()(f_28 #f s_89))))))))))))" " loop_67)" " #f" -" s_86" +" s_88" " 0)))))" "(begin" -"(set-syntax-content! s_84 new-content_0)" +"(set-syntax-content! s_86 new-content_0)" "(set-syntax-scope-propagations+tamper!" -" s_84" +" s_86" "(tamper-propagated(if(propagation? prop_3)(propagation-tamper prop_3) prop_3)))" " new-content_0))" -"(syntax-content s_84))))))" +"(syntax-content s_86))))))" "(define-values" "(syntax-e$1)" -"(lambda(s_90)" +"(lambda(s_92)" "(begin" " 'syntax-e" -"(let-values(((content_4)(syntax-e/no-taint s_90)))" -"(if(not(tamper-armed?(syntax-tamper s_90)))" -"(let-values() content_4)" -"(if(datum-has-elements? content_4)(let-values()(taint-content content_4))(let-values() content_4)))))))" +"(let-values(((content_5)(syntax-e/no-taint s_92)))" +"(if(not(tamper-armed?(syntax-tamper s_92)))" +"(let-values() content_5)" +"(if(datum-has-elements? content_5)(let-values()(taint-content content_5))(let-values() content_5)))))))" "(define-values" "(generalize-scope)" -"(lambda(sc_3)" +"(lambda(sc_7)" "(begin" -"(if(representative-scope? sc_3)" -"(intern-shifted-multi-scope(representative-scope-phase sc_3)(representative-scope-owner sc_3))" -" sc_3))))" +"(if(representative-scope? sc_7)" +"(intern-shifted-multi-scope(representative-scope-phase sc_7)(representative-scope-owner sc_7))" +" sc_7))))" "(define-values" "(add-scope)" -"(lambda(s_91 sc_4)" +"(lambda(s_93 sc_8)" "(begin" -"(let-values(((s_92) s_91)((sc_5)(generalize-scope sc_4))((op_0) set-add)((prop-op_0) propagation-add))" -"(if(shifted-multi-scope? sc_5)" -"(let-values(((the-struct_13) s_92))" +"(let-values(((s_65) s_93)((sc_9)(generalize-scope sc_8))((op_0) set-add)((prop-op_0) propagation-add))" +"(if(shifted-multi-scope? sc_9)" +"(let-values(((the-struct_13) s_65))" "(if(syntax?$1 the-struct_13)" "(let-values(((shifted-multi-scopes54_0)" "(fallback-update-first" -"(syntax-shifted-multi-scopes s_92)" -"(lambda(smss_9)(op_0(fallback-first smss_9) sc_5))))" +"(syntax-shifted-multi-scopes s_65)" +"(lambda(smss_9)(op_0(fallback-first smss_9) sc_9))))" "((scope-propagations+tamper55_0)" -"(if(datum-has-elements?(syntax-content s_92))" +"(if(datum-has-elements?(syntax-content s_65))" "(prop-op_0" -"(syntax-scope-propagations+tamper s_92)" -" sc_5" -"(syntax-scopes s_92)" -"(syntax-shifted-multi-scopes s_92)" -"(syntax-mpi-shifts s_92))" -"(syntax-scope-propagations+tamper s_92))))" +"(syntax-scope-propagations+tamper s_65)" +" sc_9" +"(syntax-scopes s_65)" +"(syntax-shifted-multi-scopes s_65)" +"(syntax-mpi-shifts s_65))" +"(syntax-scope-propagations+tamper s_65))))" "(syntax1.1" "(syntax-content the-struct_13)" "(syntax-scopes the-struct_13)" @@ -8424,18 +8666,18 @@ static const char *startup_source = "(syntax-props the-struct_13)" "(syntax-inspector the-struct_13)))" " (raise-argument-error 'struct-copy \"syntax?\" the-struct_13)))" -"(let-values(((the-struct_14) s_92))" +"(let-values(((the-struct_14) s_65))" "(if(syntax?$1 the-struct_14)" -"(let-values(((scopes56_0)(op_0(syntax-scopes s_92) sc_5))" +"(let-values(((scopes56_0)(op_0(syntax-scopes s_65) sc_9))" "((scope-propagations+tamper57_0)" -"(if(datum-has-elements?(syntax-content s_92))" +"(if(datum-has-elements?(syntax-content s_65))" "(prop-op_0" -"(syntax-scope-propagations+tamper s_92)" -" sc_5" -"(syntax-scopes s_92)" -"(syntax-shifted-multi-scopes s_92)" -"(syntax-mpi-shifts s_92))" -"(syntax-scope-propagations+tamper s_92))))" +"(syntax-scope-propagations+tamper s_65)" +" sc_9" +"(syntax-scopes s_65)" +"(syntax-shifted-multi-scopes s_65)" +"(syntax-mpi-shifts s_65))" +"(syntax-scope-propagations+tamper s_65))))" "(syntax1.1" "(syntax-content the-struct_14)" " scopes56_0" @@ -8448,47 +8690,50 @@ static const char *startup_source = " (raise-argument-error 'struct-copy \"syntax?\" the-struct_14))))))))" "(define-values" "(add-scopes)" -"(lambda(s_93 scs_5)" +"(lambda(s_94 scs_5)" "(begin" -"(let-values(((lst_41) scs_5))" +"(let-values(((lst_43) scs_5))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_41)))" -"((letrec-values(((for-loop_52)" -"(lambda(s_94 lst_42)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_43)))" +"((letrec-values(((for-loop_56)" +"(lambda(s_95 lst_44)" "(begin" " 'for-loop" -"(if(pair? lst_42)" -"(let-values(((sc_6)(unsafe-car lst_42))((rest_17)(unsafe-cdr lst_42)))" -"(let-values(((s_95)" -"(let-values(((s_96) s_94))" -"(let-values(((s_97)(let-values()(add-scope s_96 sc_6))))" -"(values s_97)))))" -"(if(not #f)(for-loop_52 s_95 rest_17) s_95)))" -" s_94)))))" -" for-loop_52)" -" s_93" -" lst_41))))))" +"(if(pair? lst_44)" +"(let-values(((sc_10)(unsafe-car lst_44))((rest_18)(unsafe-cdr lst_44)))" +"(let-values(((s_96)" +"(let-values(((s_97) s_95))" +"(let-values(((s_98)(let-values()(add-scope s_97 sc_10))))" +"(values s_98)))))" +"(if(not #f)(for-loop_56 s_96 rest_18) s_96)))" +" s_95)))))" +" for-loop_56)" +" s_94" +" lst_43))))))" "(define-values" "(remove-scope)" -"(lambda(s_98 sc_7)" +"(lambda(s_99 sc_11)" "(begin" -"(let-values(((s_99) s_98)((sc_8)(generalize-scope sc_7))((op_1) set-remove)((prop-op_1) propagation-remove))" -"(if(shifted-multi-scope? sc_8)" -"(let-values(((the-struct_15) s_99))" +"(let-values(((s_100) s_99)" +"((sc_12)(generalize-scope sc_11))" +"((op_1) set-remove)" +"((prop-op_1) propagation-remove))" +"(if(shifted-multi-scope? sc_12)" +"(let-values(((the-struct_15) s_100))" "(if(syntax?$1 the-struct_15)" "(let-values(((shifted-multi-scopes58_0)" "(fallback-update-first" -"(syntax-shifted-multi-scopes s_99)" -"(lambda(smss_10)(op_1(fallback-first smss_10) sc_8))))" +"(syntax-shifted-multi-scopes s_100)" +"(lambda(smss_10)(op_1(fallback-first smss_10) sc_12))))" "((scope-propagations+tamper59_0)" -"(if(datum-has-elements?(syntax-content s_99))" +"(if(datum-has-elements?(syntax-content s_100))" "(prop-op_1" -"(syntax-scope-propagations+tamper s_99)" -" sc_8" -"(syntax-scopes s_99)" -"(syntax-shifted-multi-scopes s_99)" -"(syntax-mpi-shifts s_99))" -"(syntax-scope-propagations+tamper s_99))))" +"(syntax-scope-propagations+tamper s_100)" +" sc_12" +"(syntax-scopes s_100)" +"(syntax-shifted-multi-scopes s_100)" +"(syntax-mpi-shifts s_100))" +"(syntax-scope-propagations+tamper s_100))))" "(syntax1.1" "(syntax-content the-struct_15)" "(syntax-scopes the-struct_15)" @@ -8499,18 +8744,18 @@ static const char *startup_source = "(syntax-props the-struct_15)" "(syntax-inspector the-struct_15)))" " (raise-argument-error 'struct-copy \"syntax?\" the-struct_15)))" -"(let-values(((the-struct_16) s_99))" +"(let-values(((the-struct_16) s_100))" "(if(syntax?$1 the-struct_16)" -"(let-values(((scopes60_0)(op_1(syntax-scopes s_99) sc_8))" +"(let-values(((scopes60_0)(op_1(syntax-scopes s_100) sc_12))" "((scope-propagations+tamper61_0)" -"(if(datum-has-elements?(syntax-content s_99))" +"(if(datum-has-elements?(syntax-content s_100))" "(prop-op_1" -"(syntax-scope-propagations+tamper s_99)" -" sc_8" -"(syntax-scopes s_99)" -"(syntax-shifted-multi-scopes s_99)" -"(syntax-mpi-shifts s_99))" -"(syntax-scope-propagations+tamper s_99))))" +"(syntax-scope-propagations+tamper s_100)" +" sc_12" +"(syntax-scopes s_100)" +"(syntax-shifted-multi-scopes s_100)" +"(syntax-mpi-shifts s_100))" +"(syntax-scope-propagations+tamper s_100))))" "(syntax1.1" "(syntax-content the-struct_16)" " scopes60_0" @@ -8523,50 +8768,50 @@ static const char *startup_source = " (raise-argument-error 'struct-copy \"syntax?\" the-struct_16))))))))" "(define-values" "(remove-scopes)" -"(lambda(s_100 scs_6)" +"(lambda(s_101 scs_6)" "(begin" -"(let-values(((lst_43) scs_6))" +"(let-values(((lst_45) scs_6))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_43)))" -"((letrec-values(((for-loop_53)" -"(lambda(s_101 lst_44)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_45)))" +"((letrec-values(((for-loop_57)" +"(lambda(s_102 lst_46)" "(begin" " 'for-loop" -"(if(pair? lst_44)" -"(let-values(((sc_9)(unsafe-car lst_44))((rest_18)(unsafe-cdr lst_44)))" -"(let-values(((s_102)" -"(let-values(((s_103) s_101))" -"(let-values(((s_104)(let-values()(remove-scope s_103 sc_9))))" -"(values s_104)))))" -"(if(not #f)(for-loop_53 s_102 rest_18) s_102)))" -" s_101)))))" -" for-loop_53)" -" s_100" -" lst_43))))))" +"(if(pair? lst_46)" +"(let-values(((sc_13)(unsafe-car lst_46))((rest_19)(unsafe-cdr lst_46)))" +"(let-values(((s_103)" +"(let-values(((s_104) s_102))" +"(let-values(((s_105)(let-values()(remove-scope s_104 sc_13))))" +"(values s_105)))))" +"(if(not #f)(for-loop_57 s_103 rest_19) s_103)))" +" s_102)))))" +" for-loop_57)" +" s_101" +" lst_45))))))" "(define-values" "(set-flip)" -"(lambda(s_105 e_15)(begin(if(set-member? s_105 e_15)(set-remove s_105 e_15)(set-add s_105 e_15)))))" +"(lambda(s_106 e_15)(begin(if(set-member? s_106 e_15)(set-remove s_106 e_15)(set-add s_106 e_15)))))" "(define-values" "(flip-scope)" -"(lambda(s_106 sc_10)" +"(lambda(s_107 sc_14)" "(begin" -"(let-values(((s_107) s_106)((sc_11)(generalize-scope sc_10))((op_2) set-flip)((prop-op_2) propagation-flip))" -"(if(shifted-multi-scope? sc_11)" -"(let-values(((the-struct_17) s_107))" +"(let-values(((s_108) s_107)((sc_15)(generalize-scope sc_14))((op_2) set-flip)((prop-op_2) propagation-flip))" +"(if(shifted-multi-scope? sc_15)" +"(let-values(((the-struct_17) s_108))" "(if(syntax?$1 the-struct_17)" "(let-values(((shifted-multi-scopes62_0)" "(fallback-update-first" -"(syntax-shifted-multi-scopes s_107)" -"(lambda(smss_11)(op_2(fallback-first smss_11) sc_11))))" +"(syntax-shifted-multi-scopes s_108)" +"(lambda(smss_11)(op_2(fallback-first smss_11) sc_15))))" "((scope-propagations+tamper63_0)" -"(if(datum-has-elements?(syntax-content s_107))" +"(if(datum-has-elements?(syntax-content s_108))" "(prop-op_2" -"(syntax-scope-propagations+tamper s_107)" -" sc_11" -"(syntax-scopes s_107)" -"(syntax-shifted-multi-scopes s_107)" -"(syntax-mpi-shifts s_107))" -"(syntax-scope-propagations+tamper s_107))))" +"(syntax-scope-propagations+tamper s_108)" +" sc_15" +"(syntax-scopes s_108)" +"(syntax-shifted-multi-scopes s_108)" +"(syntax-mpi-shifts s_108))" +"(syntax-scope-propagations+tamper s_108))))" "(syntax1.1" "(syntax-content the-struct_17)" "(syntax-scopes the-struct_17)" @@ -8577,18 +8822,18 @@ static const char *startup_source = "(syntax-props the-struct_17)" "(syntax-inspector the-struct_17)))" " (raise-argument-error 'struct-copy \"syntax?\" the-struct_17)))" -"(let-values(((the-struct_18) s_107))" +"(let-values(((the-struct_18) s_108))" "(if(syntax?$1 the-struct_18)" -"(let-values(((scopes64_0)(op_2(syntax-scopes s_107) sc_11))" +"(let-values(((scopes64_0)(op_2(syntax-scopes s_108) sc_15))" "((scope-propagations+tamper65_0)" -"(if(datum-has-elements?(syntax-content s_107))" +"(if(datum-has-elements?(syntax-content s_108))" "(prop-op_2" -"(syntax-scope-propagations+tamper s_107)" -" sc_11" -"(syntax-scopes s_107)" -"(syntax-shifted-multi-scopes s_107)" -"(syntax-mpi-shifts s_107))" -"(syntax-scope-propagations+tamper s_107))))" +"(syntax-scope-propagations+tamper s_108)" +" sc_15" +"(syntax-scopes s_108)" +"(syntax-shifted-multi-scopes s_108)" +"(syntax-mpi-shifts s_108))" +"(syntax-scope-propagations+tamper s_108))))" "(syntax1.1" "(syntax-content the-struct_18)" " scopes64_0" @@ -8601,29 +8846,29 @@ static const char *startup_source = " (raise-argument-error 'struct-copy \"syntax?\" the-struct_18))))))))" "(define-values" "(flip-scopes)" -"(lambda(s_108 scs_7)" +"(lambda(s_109 scs_7)" "(begin" -"(let-values(((lst_45) scs_7))" +"(let-values(((lst_38) scs_7))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_45)))" -"((letrec-values(((for-loop_54)" -"(lambda(s_109 lst_46)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_38)))" +"((letrec-values(((for-loop_58)" +"(lambda(s_110 lst_47)" "(begin" " 'for-loop" -"(if(pair? lst_46)" -"(let-values(((sc_12)(unsafe-car lst_46))((rest_19)(unsafe-cdr lst_46)))" -"(let-values(((s_110)" -"(let-values(((s_111) s_109))" -"(let-values(((s_112)(let-values()(flip-scope s_111 sc_12))))" -"(values s_112)))))" -"(if(not #f)(for-loop_54 s_110 rest_19) s_110)))" -" s_109)))))" -" for-loop_54)" -" s_108" -" lst_45))))))" +"(if(pair? lst_47)" +"(let-values(((sc_16)(unsafe-car lst_47))((rest_20)(unsafe-cdr lst_47)))" +"(let-values(((s_111)" +"(let-values(((s_112) s_110))" +"(let-values(((s_113)(let-values()(flip-scope s_112 sc_16))))" +"(values s_113)))))" +"(if(not #f)(for-loop_58 s_111 rest_20) s_111)))" +" s_110)))))" +" for-loop_58)" +" s_109" +" lst_38))))))" "(define-values" "(push-scope)" -"(lambda(s_113 sms_6)" +"(lambda(s_114 sms_6)" "(begin" "(let-values(((smss/maybe-fallbacks66_0) #f))" "(let-values(((prev-result_0) #f))" @@ -8649,17 +8894,17 @@ static const char *startup_source = "(set! smss/maybe-fallbacks66_0 smss/maybe-fallbacks_0)" "(set! prev-result_0 r_22)" " r_22))))))))" -"(let-values(((s_114) s_113)" +"(let-values(((s_115) s_114)" "((f_29)(lambda(tail?_24 x_34)(begin 'f x_34)))" "((d->s_1)" -"(lambda(s_115 d_3)" +"(lambda(s_116 d_3)" "(begin" " 'd->s" -"(let-values(((the-struct_19) s_115))" +"(let-values(((the-struct_19) s_116))" "(if(syntax?$1 the-struct_19)" "(let-values(((content67_0) d_3)" "((shifted-multi-scopes68_0)" -"(push_0(syntax-shifted-multi-scopes s_115))))" +"(push_0(syntax-shifted-multi-scopes s_116))))" "(syntax1.1" " content67_0" "(syntax-scopes the-struct_19)" @@ -8673,20 +8918,20 @@ static const char *startup_source = "((s-e_1) syntax-e/no-taint)" "((seen_11) #f))" "((letrec-values(((loop_68)" -"(lambda(s_116)" +"(lambda(s_117)" "(begin" " 'loop" -"(let-values(((s_117) s_116)" +"(let-values(((s_118) s_117)" "((f_30)" -"(lambda(tail?_25 v_78)" +"(lambda(tail?_25 v_79)" "(begin" " 'f" -"(if(syntax?$1 v_78)" -"(let-values()(d->s_1 v_78(loop_68(s-e_1 v_78))))" -"(let-values()(f_29 tail?_25 v_78))))))" +"(if(syntax?$1 v_79)" +"(let-values()(d->s_1 v_79(loop_68(s-e_1 v_79))))" +"(let-values()(f_29 tail?_25 v_79))))))" "((seen_12) seen_11))" "((letrec-values(((loop_69)" -"(lambda(tail?_26 s_118 prev-depth_5)" +"(lambda(tail?_26 s_119 prev-depth_5)" "(begin" " 'loop" "(let-values(((depth_5)(add1 prev-depth_5)))" @@ -8694,53 +8939,53 @@ static const char *startup_source = "(let-values()" "(datum-map-slow" " tail?_26" -" s_118" -"(lambda(tail?_27 s_119)(f_30 tail?_27 s_119))" +" s_119" +"(lambda(tail?_27 s_120)(f_30 tail?_27 s_120))" " seen_12))" -"(if(null? s_118)" -"(let-values()(f_30 tail?_26 s_118))" -"(if(pair? s_118)" +"(if(null? s_119)" +"(let-values()(f_30 tail?_26 s_119))" +"(if(pair? s_119)" "(let-values()" "(f_30" " tail?_26" "(cons" -"(loop_69 #f(car s_118) depth_5)" -"(loop_69 #t(cdr s_118) depth_5))))" -"(if(let-values(((or-part_107)(symbol? s_118)))" -"(if or-part_107" -" or-part_107" -"(let-values(((or-part_108)" -"(boolean? s_118)))" -"(if or-part_108" -" or-part_108" -"(number? s_118)))))" -"(let-values()(f_30 #f s_118))" -"(if(let-values(((or-part_109)(vector? s_118)))" +"(loop_69 #f(car s_119) depth_5)" +"(loop_69 #t(cdr s_119) depth_5))))" +"(if(let-values(((or-part_109)(symbol? s_119)))" "(if or-part_109" " or-part_109" -"(let-values(((or-part_110)(box? s_118)))" +"(let-values(((or-part_91)" +"(boolean? s_119)))" +"(if or-part_91" +" or-part_91" +"(number? s_119)))))" +"(let-values()(f_30 #f s_119))" +"(if(let-values(((or-part_14)(vector? s_119)))" +"(if or-part_14" +" or-part_14" +"(let-values(((or-part_110)(box? s_119)))" "(if or-part_110" " or-part_110" "(let-values(((or-part_111)" "(prefab-struct-key" -" s_118)))" +" s_119)))" "(if or-part_111" " or-part_111" -"(hash? s_118)))))))" +"(hash? s_119)))))))" "(let-values()" "(datum-map-slow" " tail?_26" -" s_118" -"(lambda(tail?_28 s_120)" -"(f_30 tail?_28 s_120))" +" s_119" +"(lambda(tail?_28 s_121)" +"(f_30 tail?_28 s_121))" " seen_12))" -"(let-values()(f_30 #f s_118))))))))))))" +"(let-values()(f_30 #f s_119))))))))))))" " loop_69)" " #f" -" s_117" +" s_118" " 0))))))" " loop_68)" -" s_114))))))))" +" s_115))))))))" "(define-values" "(struct:propagation" " propagation14.1" @@ -8763,7 +9008,7 @@ static const char *startup_source = " #f" "(list" "(cons prop:authentic #t)" -"(cons prop:propagation-set-tamper(lambda(p_27 v_79)(propagation-set-tamper p_27 v_79)))" +"(cons prop:propagation-set-tamper(lambda(p_27 v_80)(propagation-set-tamper p_27 v_80)))" "(cons prop:propagation-tamper(lambda(p_28)(propagation-tamper p_28)))" "(cons prop:propagation syntax-e$1))" "(current-inspector)" @@ -8784,12 +9029,12 @@ static const char *startup_source = "(make-struct-field-accessor -ref_26 6 'tamper))))" "(define-values" "(propagation-add)" -"(lambda(prop_4 sc_13 prev-scs_0 prev-smss_0 prev-mss_0)" +"(lambda(prop_4 sc_17 prev-scs_0 prev-smss_0 prev-mss_0)" "(begin" "(if(propagation? prop_4)" "(let-values(((the-struct_20) prop_4))" "(if(propagation? the-struct_20)" -"(let-values(((scope-ops70_0)(hash-set(propagation-scope-ops prop_4) sc_13 'add)))" +"(let-values(((scope-ops70_0)(hash-set(propagation-scope-ops prop_4) sc_17 'add)))" "(propagation14.1" "(propagation-prev-scs the-struct_20)" "(propagation-prev-smss the-struct_20)" @@ -8799,15 +9044,15 @@ static const char *startup_source = "(propagation-inspector the-struct_20)" "(propagation-tamper the-struct_20)))" " (raise-argument-error 'struct-copy \"propagation?\" the-struct_20)))" -"(propagation14.1 prev-scs_0 prev-smss_0(hasheq sc_13 'add) prev-mss_0 #f #f prop_4)))))" +"(propagation14.1 prev-scs_0 prev-smss_0(hasheq sc_17 'add) prev-mss_0 #f #f prop_4)))))" "(define-values" "(propagation-remove)" -"(lambda(prop_5 sc_14 prev-scs_1 prev-smss_1 prev-mss_1)" +"(lambda(prop_5 sc_18 prev-scs_1 prev-smss_1 prev-mss_1)" "(begin" "(if(propagation? prop_5)" "(let-values(((the-struct_21) prop_5))" "(if(propagation? the-struct_21)" -"(let-values(((scope-ops71_0)(hash-set(propagation-scope-ops prop_5) sc_14 'remove)))" +"(let-values(((scope-ops71_0)(hash-set(propagation-scope-ops prop_5) sc_18 'remove)))" "(propagation14.1" "(propagation-prev-scs the-struct_21)" "(propagation-prev-smss the-struct_21)" @@ -8817,14 +9062,14 @@ static const char *startup_source = "(propagation-inspector the-struct_21)" "(propagation-tamper the-struct_21)))" " (raise-argument-error 'struct-copy \"propagation?\" the-struct_21)))" -"(propagation14.1 prev-scs_1 prev-smss_1(hasheq sc_14 'remove) prev-mss_1 #f #f prop_5)))))" +"(propagation14.1 prev-scs_1 prev-smss_1(hasheq sc_18 'remove) prev-mss_1 #f #f prop_5)))))" "(define-values" "(propagation-flip)" -"(lambda(prop_6 sc_15 prev-scs_2 prev-smss_2 prev-mss_2)" +"(lambda(prop_6 sc_19 prev-scs_2 prev-smss_2 prev-mss_2)" "(begin" "(if(propagation? prop_6)" "(let-values(((ops_0)(propagation-scope-ops prop_6)))" -"(let-values(((current-op_0)(hash-ref ops_0 sc_15 #f)))" +"(let-values(((current-op_0)(hash-ref ops_0 sc_19 #f)))" "(if(if(eq? current-op_0 'flip)" "(if(= 1(hash-count ops_0))" "(if(not(propagation-inspector prop_6))(not(propagation-add-mpi-shifts prop_6)) #f)" @@ -8836,10 +9081,10 @@ static const char *startup_source = "(if(propagation? the-struct_22)" "(let-values(((scope-ops72_0)" "(if(eq? current-op_0 'flip)" -"(hash-remove ops_0 sc_15)" +"(hash-remove ops_0 sc_19)" "(hash-set" " ops_0" -" sc_15" +" sc_19" "(let-values(((tmp_9) current-op_0))" "(if(equal? tmp_9 'add)" "(let-values() 'remove)" @@ -8853,7 +9098,7 @@ static const char *startup_source = "(propagation-inspector the-struct_22)" "(propagation-tamper the-struct_22)))" " (raise-argument-error 'struct-copy \"propagation?\" the-struct_22)))))))" -"(propagation14.1 prev-scs_2 prev-smss_2(hasheq sc_15 'flip) prev-mss_2 #f #f prop_6)))))" +"(propagation14.1 prev-scs_2 prev-smss_2(hasheq sc_19 'flip) prev-mss_2 #f #f prop_6)))))" "(define-values" "(propagation-mpi-shift)" "(lambda(prop_7 add_0 inspector_2 prev-scs_3 prev-smss_3 prev-mss_3)" @@ -8887,50 +9132,50 @@ static const char *startup_source = "(let-values()(syntax-scopes parent-s_0))" "(let-values()" "(let-values(((new-scs_0)" -"(let-values(((ht_49)(propagation-scope-ops prop_8)))" +"(let-values(((ht_52)(propagation-scope-ops prop_8)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-immutable-hash ht_49)))" -"((letrec-values(((for-loop_55)" -"(lambda(scs_9 i_62)" +"(let-values()(check-in-immutable-hash ht_52)))" +"((letrec-values(((for-loop_59)" +"(lambda(scs_9 i_65)" "(begin" " 'for-loop" -"(if i_62" -"(let-values(((sc_16 op_3)" -"(unsafe-immutable-hash-iterate-key+value ht_49 i_62)))" +"(if i_65" +"(let-values(((sc_20 op_3)" +"(unsafe-immutable-hash-iterate-key+value ht_52 i_65)))" "(let-values(((scs_10)" "(let-values(((scs_11) scs_9))" -"(if(not(shifted-multi-scope? sc_16))" +"(if(not(shifted-multi-scope? sc_20))" "(let-values(((scs_12) scs_11))" "(let-values(((scs_13)" "(let-values()" "(let-values(((tmp_10) op_3))" "(if(equal? tmp_10 'add)" "(let-values()" -"(set-add scs_12 sc_16))" +"(set-add scs_12 sc_20))" "(if(equal?" " tmp_10" " 'remove)" "(let-values()" "(set-remove" " scs_12" -" sc_16))" +" sc_20))" "(let-values()" "(set-flip" " scs_12" -" sc_16))))))))" +" sc_20))))))))" "(values scs_13)))" " scs_11))))" "(if(not #f)" -"(for-loop_55" +"(for-loop_59" " scs_10" -"(unsafe-immutable-hash-iterate-next ht_49 i_62))" +"(unsafe-immutable-hash-iterate-next ht_52 i_65))" " scs_10)))" " scs_9)))))" -" for-loop_55)" +" for-loop_59)" " scs_8" -"(unsafe-immutable-hash-iterate-first ht_49))))))" +"(unsafe-immutable-hash-iterate-first ht_52))))))" "(if(set=? new-scs_0(syntax-scopes parent-s_0))" "(syntax-scopes parent-s_0)" "(cache-or-reuse-set new-scs_0))))))))" @@ -8942,18 +9187,18 @@ static const char *startup_source = "(let-values()(syntax-shifted-multi-scopes parent-s_1))" "(let-values()" "(let-values(((new-smss_0)" -"(let-values(((ht_50)(propagation-scope-ops prop_9)))" +"(let-values(((ht_53)(propagation-scope-ops prop_9)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-immutable-hash ht_50)))" -"((letrec-values(((for-loop_56)" -"(lambda(smss_14 i_63)" +"(let-values()(check-in-immutable-hash ht_53)))" +"((letrec-values(((for-loop_60)" +"(lambda(smss_14 i_66)" "(begin" " 'for-loop" -"(if i_63" +"(if i_66" "(let-values(((sms_7 op_4)" -"(unsafe-immutable-hash-iterate-key+value ht_50 i_63)))" +"(unsafe-immutable-hash-iterate-key+value ht_53 i_66)))" "(let-values(((smss_15)" "(let-values(((smss_16) smss_14))" "(if(shifted-multi-scope? sms_7)" @@ -8984,14 +9229,14 @@ static const char *startup_source = "(values smss_18)))" " smss_16))))" "(if(not #f)" -"(for-loop_56" +"(for-loop_60" " smss_15" -"(unsafe-immutable-hash-iterate-next ht_50 i_63))" +"(unsafe-immutable-hash-iterate-next ht_53 i_66))" " smss_15)))" " smss_14)))))" -" for-loop_56)" +" for-loop_60)" " smss_13" -"(unsafe-immutable-hash-iterate-first ht_50))))))" +"(unsafe-immutable-hash-iterate-first ht_53))))))" "(let-values(((parent-smss_0)(syntax-shifted-multi-scopes parent-s_1)))" "(if(if(set? new-smss_0)(if(set? parent-smss_0)(set=? new-smss_0 parent-smss_0) #f) #f)" " parent-smss_0" @@ -9005,8 +9250,8 @@ static const char *startup_source = "(let-values()(let-values(((add_1)(propagation-add-mpi-shifts prop_10)))(if add_1(add_1 mss_1) mss_1)))))))" "(define-values" "(propagation-apply-inspector)" -"(lambda(prop_11 i_64)" -"(begin(let-values(((or-part_114) i_64))(if or-part_114 or-part_114(propagation-inspector prop_11))))))" +"(lambda(prop_11 i_67)" +"(begin(let-values(((or-part_114) i_67))(if or-part_114 or-part_114(propagation-inspector prop_11))))))" "(define-values" "(propagation-set-tamper)" "(lambda(prop_12 t_32)" @@ -9052,20 +9297,20 @@ static const char *startup_source = "(if(tamper-tainted?(propagation-tamper prop_13)) 'tainted/need-propagate base-prop_0)))))" "(let-values()" "(let-values(((new-ops_0)" -"(let-values(((ht_51)(propagation-scope-ops prop_13)))" +"(let-values(((ht_54)(propagation-scope-ops prop_13)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-immutable-hash ht_51)))" -"((letrec-values(((for-loop_57)" -"(lambda(ops_1 i_65)" +"(let-values()(check-in-immutable-hash ht_54)))" +"((letrec-values(((for-loop_61)" +"(lambda(ops_1 i_68)" "(begin" " 'for-loop" -"(if i_65" -"(let-values(((sc_17 op_5)" +"(if i_68" +"(let-values(((sc_21 op_5)" "(unsafe-immutable-hash-iterate-key+value" -" ht_51" -" i_65)))" +" ht_54" +" i_68)))" "(let-values(((ops_2)" "(let-values(((ops_3) ops_1))" "(let-values(((ops_4)" @@ -9075,19 +9320,19 @@ static const char *startup_source = "(let-values()" "(hash-set" " ops_3" -" sc_17" +" sc_21" " 'add))" "(if(equal? tmp_12 'remove)" "(let-values()" "(hash-set" " ops_3" -" sc_17" +" sc_21" " 'remove))" "(let-values()" "(let-values(((current-op_1)" "(hash-ref" " ops_3" -" sc_17" +" sc_21" " #f)))" "(let-values(((tmp_13)" " current-op_1))" @@ -9097,7 +9342,7 @@ static const char *startup_source = "(let-values()" "(hash-set" " ops_3" -" sc_17" +" sc_21" " 'remove))" "(if(equal?" " tmp_13" @@ -9105,7 +9350,7 @@ static const char *startup_source = "(let-values()" "(hash-set" " ops_3" -" sc_17" +" sc_21" " 'add))" "(if(equal?" " tmp_13" @@ -9113,22 +9358,22 @@ static const char *startup_source = "(let-values()" "(hash-remove" " ops_3" -" sc_17))" +" sc_21))" "(let-values()" "(hash-set" " ops_3" -" sc_17" +" sc_21" " 'flip))))))))))))))" "(values ops_4)))))" "(if(not #f)" -"(for-loop_57" +"(for-loop_61" " ops_2" -"(unsafe-immutable-hash-iterate-next ht_51 i_65))" +"(unsafe-immutable-hash-iterate-next ht_54 i_68))" " ops_2)))" " ops_1)))))" -" for-loop_57)" +" for-loop_61)" "(propagation-scope-ops base-prop_0)" -"(unsafe-immutable-hash-iterate-first ht_51))))))" +"(unsafe-immutable-hash-iterate-first ht_54))))))" "(let-values(((add_2)(propagation-add-mpi-shifts prop_13)))" "(let-values(((base-add_1)(propagation-add-mpi-shifts base-prop_0)))" "(let-values(((new-tamper_0)" @@ -9186,11 +9431,11 @@ static const char *startup_source = "(shifted-multi-scope-multi-scope sms_8)))))))))" "(define-values" "(syntax-shift-phase-level$1)" -"(lambda(s_121 phase_10)" +"(lambda(s_122 phase_11)" "(begin" " 'syntax-shift-phase-level" -"(if(eqv? phase_10 0)" -" s_121" +"(if(eqv? phase_11 0)" +" s_122" "(let-values()" "(let-values(((smss80_0) #f))" "(let-values(((prev-result_1) #f))" @@ -9206,80 +9451,80 @@ static const char *startup_source = "(fallback-map" " smss_20" "(lambda(smss_21)" -"(let-values(((ht_52) smss_21))" +"(let-values(((ht_55) smss_21))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-immutable-hash-keys ht_52)))" -"((letrec-values(((for-loop_58)" -"(lambda(table_60 i_66)" +"(let-values()(check-in-immutable-hash-keys ht_55)))" +"((letrec-values(((for-loop_62)" +"(lambda(table_65 i_69)" "(begin" " 'for-loop" -"(if i_66" +"(if i_69" "(let-values(((sms_9)" "(unsafe-immutable-hash-iterate-key" -" ht_52" -" i_66)))" -"(let-values(((table_61)" +" ht_55" +" i_69)))" +"(let-values(((table_66)" "(let-values(((new-sms_0)" "(shift-multi-scope" " sms_9" -" phase_10)))" +" phase_11)))" "(begin" " #t" -"((letrec-values(((for-loop_59)" -"(lambda(table_62)" +"((letrec-values(((for-loop_63)" +"(lambda(table_67)" "(begin" " 'for-loop" "(let-values()" -"(let-values(((table_63)" -"(let-values(((table_64)" -" table_62))" +"(let-values(((table_68)" +"(let-values(((table_69)" +" table_67))" "(if new-sms_0" -"(let-values(((table_65)" -" table_64))" -"(let-values(((table_66)" +"(let-values(((table_70)" +" table_69))" +"(let-values(((table_71)" "(let-values()" -"(let-values(((key_25" -" val_15)" +"(let-values(((key_26" +" val_16)" "(let-values()" "(values" "(let-values()" " new-sms_0)" " #t))))" "(hash-set" -" table_65" -" key_25" -" val_15)))))" +" table_70" +" key_26" +" val_16)))))" "(values" -" table_66)))" -" table_64))))" -" table_63))))))" -" for-loop_59)" -" table_60)))))" +" table_71)))" +" table_69))))" +" table_68))))))" +" for-loop_63)" +" table_65)))))" "(if(not #f)" -"(for-loop_58" -" table_61" +"(for-loop_62" +" table_66" "(unsafe-immutable-hash-iterate-next" -" ht_52" -" i_66))" -" table_61)))" -" table_60)))))" -" for-loop_58)" +" ht_55" +" i_69))" +" table_66)))" +" table_65)))))" +" for-loop_62)" " '#hasheq()" -"(unsafe-immutable-hash-iterate-first ht_52)))))))))" +"(unsafe-immutable-hash-iterate-first ht_55)))))))))" "(begin(set! smss80_0 smss_20)(set! prev-result_1 r_23) r_23))))))))" -"(let-values(((s_122) s_121)" +"(let-values(((s_123) s_122)" "((f_31)(lambda(tail?_29 d_4)(begin 'f d_4)))" "((d->s_2)" -"(lambda(s_123 d_5)" +"(lambda(s_124 d_5)" "(begin" " 'd->s" -"(let-values(((the-struct_26) s_123))" +"(let-values(((the-struct_26) s_124))" "(if(syntax?$1 the-struct_26)" "(let-values(((content81_0) d_5)" "((shifted-multi-scopes82_0)" -"(shift-all_0(syntax-shifted-multi-scopes s_123))))" +"(shift-all_0(syntax-shifted-multi-scopes s_124))))" "(syntax1.1" " content81_0" "(syntax-scopes the-struct_26)" @@ -9293,20 +9538,20 @@ static const char *startup_source = "((s-e_2) syntax-e/no-taint)" "((seen_13) #f))" "((letrec-values(((loop_70)" -"(lambda(s_124)" +"(lambda(s_125)" "(begin" " 'loop" -"(let-values(((s_125) s_124)" +"(let-values(((s_126) s_125)" "((f_32)" -"(lambda(tail?_30 v_80)" +"(lambda(tail?_30 v_81)" "(begin" " 'f" -"(if(syntax?$1 v_80)" -"(let-values()(d->s_2 v_80(loop_70(s-e_2 v_80))))" -"(let-values()(f_31 tail?_30 v_80))))))" +"(if(syntax?$1 v_81)" +"(let-values()(d->s_2 v_81(loop_70(s-e_2 v_81))))" +"(let-values()(f_31 tail?_30 v_81))))))" "((seen_14) seen_13))" "((letrec-values(((loop_71)" -"(lambda(tail?_31 s_126 prev-depth_6)" +"(lambda(tail?_31 s_127 prev-depth_6)" "(begin" " 'loop" "(let-values(((depth_6)(add1 prev-depth_6)))" @@ -9314,143 +9559,143 @@ static const char *startup_source = "(let-values()" "(datum-map-slow" " tail?_31" -" s_126" -"(lambda(tail?_32 s_127)(f_32 tail?_32 s_127))" +" s_127" +"(lambda(tail?_32 s_128)(f_32 tail?_32 s_128))" " seen_14))" -"(if(null? s_126)" -"(let-values()(f_32 tail?_31 s_126))" -"(if(pair? s_126)" +"(if(null? s_127)" +"(let-values()(f_32 tail?_31 s_127))" +"(if(pair? s_127)" "(let-values()" "(f_32" " tail?_31" "(cons" -"(loop_71 #f(car s_126) depth_6)" -"(loop_71 #t(cdr s_126) depth_6))))" +"(loop_71 #f(car s_127) depth_6)" +"(loop_71 #t(cdr s_127) depth_6))))" "(if(let-values(((or-part_118)" -"(symbol? s_126)))" +"(symbol? s_127)))" "(if or-part_118" " or-part_118" "(let-values(((or-part_119)" -"(boolean? s_126)))" +"(boolean? s_127)))" "(if or-part_119" " or-part_119" -"(number? s_126)))))" -"(let-values()(f_32 #f s_126))" +"(number? s_127)))))" +"(let-values()(f_32 #f s_127))" "(if(let-values(((or-part_120)" -"(vector? s_126)))" +"(vector? s_127)))" "(if or-part_120" " or-part_120" "(let-values(((or-part_121)" -"(box? s_126)))" +"(box? s_127)))" "(if or-part_121" " or-part_121" "(let-values(((or-part_122)" "(prefab-struct-key" -" s_126)))" +" s_127)))" "(if or-part_122" " or-part_122" -"(hash? s_126)))))))" +"(hash? s_127)))))))" "(let-values()" "(datum-map-slow" " tail?_31" -" s_126" -"(lambda(tail?_33 s_128)" -"(f_32 tail?_33 s_128))" +" s_127" +"(lambda(tail?_33 s_129)" +"(f_32 tail?_33 s_129))" " seen_14))" -"(let-values()(f_32 #f s_126))))))))))))" +"(let-values()(f_32 #f s_127))))))))))))" " loop_71)" " #f" -" s_125" +" s_126" " 0))))))" " loop_70)" -" s_122))))))))))" +" s_123))))))))))" "(define-values" "(syntax-swap-scopes)" -"(lambda(s_129 src-scopes_0 dest-scopes_0)" +"(lambda(s_130 src-scopes_0 dest-scopes_0)" "(begin" "(if(equal? src-scopes_0 dest-scopes_0)" -" s_129" +" s_130" "(let-values(((src-smss_0 src-scs_0)" "(set-partition" -"(let-values(((ht_53) src-scopes_0))" +"(let-values(((ht_56) src-scopes_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-immutable-hash-keys ht_53)))" -"((letrec-values(((for-loop_60)" -"(lambda(table_67 i_67)" +"(let-values()(check-in-immutable-hash-keys ht_56)))" +"((letrec-values(((for-loop_64)" +"(lambda(table_72 i_70)" "(begin" " 'for-loop" -"(if i_67" -"(let-values(((sc_18)" -"(unsafe-immutable-hash-iterate-key ht_53 i_67)))" -"(let-values(((table_68)" -"(let-values(((table_69) table_67))" -"(let-values(((table_70)" -"(let-values()" -"(let-values(((key_26 val_16)" -"(let-values()" -"(values" -"(let-values()" -"(generalize-scope" -" sc_18))" -" #t))))" -"(hash-set" -" table_69" -" key_26" -" val_16)))))" -"(values table_70)))))" -"(if(not #f)" -"(for-loop_60" -" table_68" -"(unsafe-immutable-hash-iterate-next ht_53 i_67))" -" table_68)))" -" table_67)))))" -" for-loop_60)" -" '#hasheq()" -"(unsafe-immutable-hash-iterate-first ht_53))))" -" shifted-multi-scope?" -"(seteq)" -"(seteq)))" -"((dest-smss_0 dest-scs_0)" -"(set-partition" -"(let-values(((ht_54) dest-scopes_0))" -"(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))" -"(void)" -"(let-values()(check-in-immutable-hash-keys ht_54)))" -"((letrec-values(((for-loop_61)" -"(lambda(table_71 i_68)" -"(begin" -" 'for-loop" -"(if i_68" -"(let-values(((sc_19)" -"(unsafe-immutable-hash-iterate-key ht_54 i_68)))" -"(let-values(((table_72)" -"(let-values(((table_73) table_71))" -"(let-values(((table_74)" +"(if i_70" +"(let-values(((sc_22)" +"(unsafe-immutable-hash-iterate-key ht_56 i_70)))" +"(let-values(((table_73)" +"(let-values(((table_74) table_72))" +"(let-values(((table_75)" "(let-values()" "(let-values(((key_27 val_17)" "(let-values()" "(values" "(let-values()" "(generalize-scope" -" sc_19))" +" sc_22))" " #t))))" "(hash-set" -" table_73" +" table_74" " key_27" " val_17)))))" -"(values table_74)))))" +"(values table_75)))))" "(if(not #f)" -"(for-loop_61" -" table_72" -"(unsafe-immutable-hash-iterate-next ht_54 i_68))" -" table_72)))" -" table_71)))))" -" for-loop_61)" +"(for-loop_64" +" table_73" +"(unsafe-immutable-hash-iterate-next ht_56 i_70))" +" table_73)))" +" table_72)))))" +" for-loop_64)" " '#hasheq()" -"(unsafe-immutable-hash-iterate-first ht_54))))" +"(unsafe-immutable-hash-iterate-first ht_56))))" +" shifted-multi-scope?" +"(seteq)" +"(seteq)))" +"((dest-smss_0 dest-scs_0)" +"(set-partition" +"(let-values(((ht_57) dest-scopes_0))" +"(begin" +"(if(variable-reference-from-unsafe?(#%variable-reference))" +"(void)" +"(let-values()(check-in-immutable-hash-keys ht_57)))" +"((letrec-values(((for-loop_65)" +"(lambda(table_76 i_71)" +"(begin" +" 'for-loop" +"(if i_71" +"(let-values(((sc_23)" +"(unsafe-immutable-hash-iterate-key ht_57 i_71)))" +"(let-values(((table_77)" +"(let-values(((table_78) table_76))" +"(let-values(((table_79)" +"(let-values()" +"(let-values(((key_28 val_18)" +"(let-values()" +"(values" +"(let-values()" +"(generalize-scope" +" sc_23))" +" #t))))" +"(hash-set" +" table_78" +" key_28" +" val_18)))))" +"(values table_79)))))" +"(if(not #f)" +"(for-loop_65" +" table_77" +"(unsafe-immutable-hash-iterate-next ht_57 i_71))" +" table_77)))" +" table_76)))))" +" for-loop_65)" +" '#hasheq()" +"(unsafe-immutable-hash-iterate-first ht_57))))" " shifted-multi-scope?" "(seteq)" "(seteq))))" @@ -9487,18 +9732,18 @@ static const char *startup_source = "(set-union(set-subtract smss_23 src-smss_0) dest-smss_0)" " smss_23))))))" "(begin(set! smss84_0 smss_22)(set! prev-result_3 r_25) r_25))))))))" -"(let-values(((s_130) s_129)" +"(let-values(((s_131) s_130)" "((f_33)(lambda(tail?_34 d_6)(begin 'f d_6)))" "((d->s_3)" -"(lambda(s_131 d_7)" +"(lambda(s_132 d_7)" "(begin" " 'd->s" -"(let-values(((the-struct_27) s_131))" +"(let-values(((the-struct_27) s_132))" "(if(syntax?$1 the-struct_27)" "(let-values(((content85_0) d_7)" -"((scopes86_0)(swap-scs_0(syntax-scopes s_131)))" +"((scopes86_0)(swap-scs_0(syntax-scopes s_132)))" "((shifted-multi-scopes87_0)" -"(swap-smss_0(syntax-shifted-multi-scopes s_131))))" +"(swap-smss_0(syntax-shifted-multi-scopes s_132))))" "(syntax1.1" " content85_0" " scopes86_0" @@ -9512,20 +9757,20 @@ static const char *startup_source = "((s-e_3) syntax-e/no-taint)" "((seen_15) #f))" "((letrec-values(((loop_72)" -"(lambda(s_132)" +"(lambda(s_133)" "(begin" " 'loop" -"(let-values(((s_133) s_132)" +"(let-values(((s_134) s_133)" "((f_34)" -"(lambda(tail?_35 v_81)" +"(lambda(tail?_35 v_82)" "(begin" " 'f" -"(if(syntax?$1 v_81)" -"(let-values()(d->s_3 v_81(loop_72(s-e_3 v_81))))" -"(let-values()(f_33 tail?_35 v_81))))))" +"(if(syntax?$1 v_82)" +"(let-values()(d->s_3 v_82(loop_72(s-e_3 v_82))))" +"(let-values()(f_33 tail?_35 v_82))))))" "((seen_16) seen_15))" -"((letrec-values(((loop_32)" -"(lambda(tail?_36 s_134 prev-depth_7)" +"((letrec-values(((loop_73)" +"(lambda(tail?_36 s_135 prev-depth_7)" "(begin" " 'loop" "(let-values(((depth_7)(add1 prev-depth_7)))" @@ -9533,80 +9778,80 @@ static const char *startup_source = "(let-values()" "(datum-map-slow" " tail?_36" -" s_134" -"(lambda(tail?_37 s_135)" -"(f_34 tail?_37 s_135))" +" s_135" +"(lambda(tail?_37 s_136)" +"(f_34 tail?_37 s_136))" " seen_16))" -"(if(null? s_134)" -"(let-values()(f_34 tail?_36 s_134))" -"(if(pair? s_134)" +"(if(null? s_135)" +"(let-values()(f_34 tail?_36 s_135))" +"(if(pair? s_135)" "(let-values()" "(f_34" " tail?_36" "(cons" -"(loop_32 #f(car s_134) depth_7)" -"(loop_32 #t(cdr s_134) depth_7))))" +"(loop_73 #f(car s_135) depth_7)" +"(loop_73 #t(cdr s_135) depth_7))))" "(if(let-values(((or-part_123)" -"(symbol? s_134)))" +"(symbol? s_135)))" "(if or-part_123" " or-part_123" "(let-values(((or-part_124)" -"(boolean? s_134)))" +"(boolean? s_135)))" "(if or-part_124" " or-part_124" -"(number? s_134)))))" -"(let-values()(f_34 #f s_134))" +"(number? s_135)))))" +"(let-values()(f_34 #f s_135))" "(if(let-values(((or-part_125)" -"(vector? s_134)))" +"(vector? s_135)))" "(if or-part_125" " or-part_125" "(let-values(((or-part_126)" -"(box? s_134)))" +"(box? s_135)))" "(if or-part_126" " or-part_126" "(let-values(((or-part_127)" "(prefab-struct-key" -" s_134)))" +" s_135)))" "(if or-part_127" " or-part_127" -"(hash? s_134)))))))" +"(hash? s_135)))))))" "(let-values()" "(datum-map-slow" " tail?_36" -" s_134" -"(lambda(tail?_38 s_136)" -"(f_34 tail?_38 s_136))" +" s_135" +"(lambda(tail?_38 s_137)" +"(f_34 tail?_38 s_137))" " seen_16))" "(let-values()" -"(f_34 #f s_134))))))))))))" -" loop_32)" +"(f_34 #f s_135))))))))))))" +" loop_73)" " #f" -" s_133" +" s_134" " 0))))))" " loop_72)" -" s_130)))))))))))))" +" s_131)))))))))))))" "(define-values" "(syntax-scope-set)" -"(lambda(s_137 phase_11)" -"(begin(scope-set-at-fallback s_137(fallback-first(syntax-shifted-multi-scopes s_137)) phase_11))))" +"(lambda(s_138 phase_12)" +"(begin(scope-set-at-fallback s_138(fallback-first(syntax-shifted-multi-scopes s_138)) phase_12))))" "(define-values" "(scope-set-at-fallback)" -"(lambda(s_138 smss_24 phase_12)" +"(lambda(s_139 smss_24 phase_13)" "(begin" -"(let-values(((ht_55) smss_24))" +"(let-values(((ht_58) smss_24))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-immutable-hash-keys ht_55)))" -"((letrec-values(((for-loop_62)" -"(lambda(scopes_9 i_69)" +"(let-values()(check-in-immutable-hash-keys ht_58)))" +"((letrec-values(((for-loop_66)" +"(lambda(scopes_9 i_72)" "(begin" " 'for-loop" -"(if i_69" -"(let-values(((sms_10)(unsafe-immutable-hash-iterate-key ht_55 i_69)))" +"(if i_72" +"(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_128)(label-phase? phase_12)))" +"(if(let-values(((or-part_128)(label-phase? phase_13)))" "(if or-part_128" " or-part_128" "(not" @@ -9624,46 +9869,46 @@ 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_12))))))))" +"(phase- ph_0 phase_13))))))))" "(values scopes_13)))" " scopes_11))))" "(if(not #f)" -"(for-loop_62 scopes_10(unsafe-immutable-hash-iterate-next ht_55 i_69))" +"(for-loop_66 scopes_10(unsafe-immutable-hash-iterate-next ht_58 i_72))" " scopes_10)))" " scopes_9)))))" -" for-loop_62)" -"(syntax-scopes s_138)" -"(unsafe-immutable-hash-iterate-first ht_55)))))))" +" for-loop_66)" +"(syntax-scopes s_139)" +"(unsafe-immutable-hash-iterate-first ht_58)))))))" "(define-values" "(find-max-scope)" "(lambda(scopes_14)" "(begin" "(begin" " (if (set-empty? scopes_14) (let-values () (error \"cannot bind in empty scope set\")) (void))" -"(let-values(((ht_56) scopes_14))" +"(let-values(((ht_59) scopes_14))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-immutable-hash-keys ht_56)))" -"((letrec-values(((for-loop_63)" -"(lambda(max-sc_0 i_70)" +"(let-values()(check-in-immutable-hash-keys ht_59)))" +"((letrec-values(((for-loop_67)" +"(lambda(max-sc_0 i_73)" "(begin" " 'for-loop" -"(if i_70" -"(let-values(((sc_20)(unsafe-immutable-hash-iterate-key ht_56 i_70)))" +"(if i_73" +"(let-values(((sc_24)(unsafe-immutable-hash-iterate-key ht_59 i_73)))" "(let-values(((max-sc_1)" "(let-values(((max-sc_2) max-sc_0))" "(let-values(((max-sc_3)" "(let-values()" -"(if(scope>? sc_20 max-sc_2) sc_20 max-sc_2))))" +"(if(scope>? sc_24 max-sc_2) sc_24 max-sc_2))))" "(values max-sc_3)))))" "(if(not #f)" -"(for-loop_63 max-sc_1(unsafe-immutable-hash-iterate-next ht_56 i_70))" +"(for-loop_67 max-sc_1(unsafe-immutable-hash-iterate-next ht_59 i_73))" " max-sc_1)))" " max-sc_0)))))" -" for-loop_63)" +" for-loop_67)" "(set-first scopes_14)" -"(unsafe-immutable-hash-iterate-first ht_56))))))))" +"(unsafe-immutable-hash-iterate-first ht_59))))))))" "(define-values" "(add-binding-in-scopes!20.1)" "(lambda(just-for-nominal?15_0 just-for-nominal?16_0 scopes17_0 sym18_0 binding19_0)" @@ -9671,7 +9916,7 @@ static const char *startup_source = " 'add-binding-in-scopes!20" "(let-values(((scopes_15) scopes17_0))" "(let-values(((sym_14) sym18_0))" -"(let-values(((binding_4) binding19_0))" +"(let-values(((binding_3) binding19_0))" "(let-values(((just-for-nominal?_1)(if just-for-nominal?16_0 just-for-nominal?15_0 #f)))" "(let-values()" "(let-values(((max-sc_4)(find-max-scope scopes_15)))" @@ -9680,7 +9925,7 @@ static const char *startup_source = "(scope-binding-table max-sc_4)" " scopes_15" " sym_14" -" binding_4" +" binding_3" " just-for-nominal?_1)))" "(begin(set-scope-binding-table! max-sc_4 bt_7)(clear-resolve-cache! sym_14))))))))))))" "(define-values" @@ -9702,32 +9947,32 @@ static const char *startup_source = "(begin(set-scope-binding-table! max-sc_5 bt_8)(clear-resolve-cache!)))))))))))" "(define-values" "(syntax-any-macro-scopes?)" -"(lambda(s_139)" +"(lambda(s_140)" "(begin" -"(let-values(((ht_57)(syntax-scopes s_139)))" +"(let-values(((ht_60)(syntax-scopes s_140)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-immutable-hash-keys ht_57)))" -"((letrec-values(((for-loop_64)" -"(lambda(result_44 i_71)" +"(let-values()(check-in-immutable-hash-keys ht_60)))" +"((letrec-values(((for-loop_68)" +"(lambda(result_44 i_74)" "(begin" " 'for-loop" -"(if i_71" -"(let-values(((sc_21)(unsafe-immutable-hash-iterate-key ht_57 i_71)))" +"(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()(eq?(scope-kind sc_21) 'macro)))))" +"(let-values()(eq?(scope-kind sc_25) 'macro)))))" "(values result_46)))))" -"(if(if(not((lambda x_35 result_45) sc_21))(not #f) #f)" -"(for-loop_64 result_45(unsafe-immutable-hash-iterate-next ht_57 i_71))" +"(if(if(not((lambda x_35 result_45) sc_25))(not #f) #f)" +"(for-loop_68 result_45(unsafe-immutable-hash-iterate-next ht_60 i_74))" " result_45)))" " result_44)))))" -" for-loop_64)" +" for-loop_68)" " #f" -"(unsafe-immutable-hash-iterate-first ht_57)))))))" +"(unsafe-immutable-hash-iterate-first ht_60)))))))" "(define-values" "(resolve40.1)" "(lambda(ambiguous-value30_0" @@ -9742,14 +9987,14 @@ static const char *startup_source = " phase39_0)" "(begin" " 'resolve40" -"(let-values(((s_140) s38_0))" -"(let-values(((phase_13) phase39_0))" +"(let-values(((s_141) s38_0))" +"(let-values(((phase_14) 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)))" "(let-values(((extra-shifts_2)(if extra-shifts37_0 extra-shifts33_0 null)))" "(let-values()" -"(let-values(((sym_15)(syntax-content s_140)))" +"(let-values(((sym_15)(syntax-content s_141)))" "((letrec-values(((fallback-loop_0)" "(lambda(smss_25)" "(begin" @@ -9759,8 +10004,8 @@ static const char *startup_source = "(if(not get-scopes?_0)" "(resolve-cache-get" " sym_15" -" phase_13" -"(syntax-scopes s_140)" +" phase_14" +"(syntax-scopes s_141)" "(fallback-first smss_25))" " #f)" " #f)))" @@ -9776,90 +10021,90 @@ static const char *startup_source = "(let-values()" "(let-values(((scopes_17)" "(scope-set-at-fallback" -" s_140" +" s_141" "(fallback-first smss_25)" -" phase_13)))" +" phase_14)))" "(let-values(((best-scopes_0 best-binding_0)" -"(let-values(((ht_58) scopes_17))" +"(let-values(((ht_61) scopes_17))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" -"(check-in-immutable-hash-keys ht_58)))" -"((letrec-values(((for-loop_65)" +"(check-in-immutable-hash-keys ht_61)))" +"((letrec-values(((for-loop_69)" "(lambda(best-scopes_1" " best-binding_1" -" i_72)" +" i_75)" "(begin" " 'for-loop" -"(if i_72" -"(let-values(((sc_22)" +"(if i_75" +"(let-values(((sc_26)" "(unsafe-immutable-hash-iterate-key" -" ht_58" -" i_72)))" +" ht_61" +" i_75)))" "(let-values(((best-scopes_2" " best-binding_2)" -"(let-values(((ht_59" +"(let-values(((ht_62" " bulk-bindings_2)" -"(let-values(((table_75)" +"(let-values(((table_80)" "(scope-binding-table" -" sc_22)))" +" sc_26)))" "(if(hash?" -" table_75)" +" table_80)" "(values" "(hash-ref" -" table_75" +" table_80" " sym_15" " '#hash())" " null)" "(values" "(hash-ref" "(table-with-bulk-bindings-syms" -" table_75)" +" table_80)" " sym_15" " '#hash())" "(table-with-bulk-bindings-bulk-bindings" -" table_75)))))" -"((s_141)" -" s_140)" +" table_80)))))" +"((s_142)" +" s_141)" "((extra-shifts_3)" " extra-shifts_2))" "(begin" " #t" -"((letrec-values(((for-loop_66)" +"((letrec-values(((for-loop_70)" "(lambda(best-scopes_3" " best-binding_3" -" i_73)" +" i_76)" "(begin" " 'for-loop" "(if(not" "(null?" -" i_73))" +" i_76))" "(let-values(((b-scopes_0)" "(if(pair?" -" i_73)" +" i_76)" "(let-values()" "(bulk-binding-at-scopes" "(car" -" i_73)))" +" i_76)))" "(let-values()" "(hash-iterate-key" -" ht_59" -" i_73))))" -"((binding_5)" +" ht_62" +" i_76))))" +"((binding_4)" "(if(pair?" -" i_73)" +" i_76)" "(let-values()" "(let-values(((bulk_3)" "(bulk-binding-at-bulk" "(car" -" i_73))))" +" i_76))))" "(let-values(((b-info_0)" "(hash-ref" "(bulk-binding-symbols" " bulk_3" -" s_141" +" s_142" " extra-shifts_3)" " sym_15" " #f)))" @@ -9872,8 +10117,8 @@ static const char *startup_source = " #f))))" "(let-values()" "(hash-iterate-value" -" ht_59" -" i_73)))))" +" ht_62" +" i_76)))))" "(let-values(((best-scopes_4" " best-binding_4)" "(let-values(((best-scopes_5)" @@ -9881,7 +10126,7 @@ static const char *startup_source = "((best-binding_5)" " best-binding_3))" "(if(if b-scopes_0" -"(if binding_5" +"(if binding_4" "(subset?" " b-scopes_0" " scopes_17)" @@ -9897,7 +10142,7 @@ static const char *startup_source = "(if(pair?" " best-scopes_6)" "(let-values()" -"(if(let-values(((lst_47)" +"(if(let-values(((lst_48)" " best-scopes_6))" "(begin" "(if(variable-reference-from-unsafe?" @@ -9905,20 +10150,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_47)))" -"((letrec-values(((for-loop_67)" +" lst_48)))" +"((letrec-values(((for-loop_71)" "(lambda(result_47" -" lst_48)" +" lst_49)" "(begin" " 'for-loop" "(if(pair?" -" lst_48)" +" lst_49)" "(let-values(((amb-scopes_0)" "(unsafe-car" -" lst_48))" -"((rest_20)" +" lst_49))" +"((rest_21)" "(unsafe-cdr" -" lst_48)))" +" lst_49)))" "(let-values(((result_48)" "(let-values()" "(let-values(((result_49)" @@ -9937,18 +10182,18 @@ static const char *startup_source = "(not" " #f)" " #f)" -"(for-loop_67" +"(for-loop_71" " result_48" -" rest_20)" +" rest_21)" " result_48)))" " result_47)))))" -" for-loop_67)" +" for-loop_71)" " #t" -" lst_47)))" +" lst_48)))" "(let-values()" "(values" " b-scopes_0" -" binding_5))" +" binding_4))" "(let-values()" "(values" "(cons" @@ -9960,7 +10205,7 @@ static const char *startup_source = "(let-values()" "(values" " b-scopes_0" -" binding_5))" +" binding_4))" "(if(subset?" " b-scopes_0" " best-scopes_6)" @@ -9974,7 +10219,7 @@ static const char *startup_source = "(let-values()" "(values" " b-scopes_0" -" binding_5))" +" binding_4))" "(let-values()" "(values" "(list" @@ -9989,19 +10234,19 @@ static const char *startup_source = " best-binding_5)))))" "(if(not" " #f)" -"(for-loop_66" +"(for-loop_70" " best-scopes_4" " best-binding_4" "(if(pair?" -" i_73)" +" i_76)" "(let-values()" "(cdr" -" i_73))" +" i_76))" "(let-values()" "(let-values(((or-part_129)" "(hash-iterate-next" -" ht_59" -" i_73)))" +" ht_62" +" i_76)))" "(if or-part_129" " or-part_129" " bulk-bindings_2)))))" @@ -10011,32 +10256,32 @@ static const char *startup_source = "(values" " best-scopes_3" " best-binding_3))))))" -" for-loop_66)" +" for-loop_70)" " best-scopes_1" " best-binding_1" "(let-values(((or-part_130)" "(hash-iterate-first" -" ht_59)))" +" ht_62)))" "(if or-part_130" " or-part_130" " bulk-bindings_2)))))))" "(if(not #f)" -"(for-loop_65" +"(for-loop_69" " best-scopes_2" " best-binding_2" "(unsafe-immutable-hash-iterate-next" -" ht_58" -" i_72))" +" ht_61" +" i_75))" "(values" " best-scopes_2" " best-binding_2))))" "(values" " best-scopes_1" " best-binding_1))))))" -" for-loop_65)" +" for-loop_69)" " #f" " #f" -"(unsafe-immutable-hash-iterate-first ht_58))))))" +"(unsafe-immutable-hash-iterate-first ht_61))))))" "(if(pair? best-scopes_0)" "(let-values()" "(if(fallback? smss_25)" @@ -10047,8 +10292,8 @@ static const char *startup_source = "(begin" "(resolve-cache-set!" " sym_15" -" phase_13" -"(syntax-scopes s_140)" +" phase_14" +"(syntax-scopes s_141)" "(fallback-first smss_25)" " best-binding_0)" "(if(let-values(((or-part_131)(not exactly?_0)))" @@ -10063,22 +10308,22 @@ static const char *startup_source = "(begin" "(resolve-cache-set!" " sym_15" -" phase_13" -"(syntax-scopes s_140)" +" phase_14" +"(syntax-scopes s_141)" "(fallback-first smss_25)" " '#:none)" "(if(fallback? smss_25)" "(fallback-loop_0(fallback-rest smss_25))" " #f))))))))))))))" " fallback-loop_0)" -"(syntax-shifted-multi-scopes s_140)))))))))))))" +"(syntax-shifted-multi-scopes s_141)))))))))))))" "(define-values" "(bound-identifier=?$1)" -"(lambda(a_32 b_40 phase_14)" +"(lambda(a_32 b_40 phase_15)" "(begin" " 'bound-identifier=?" "(if(eq?(syntax-e$1 a_32)(syntax-e$1 b_40))" -"(equal?(syntax-scope-set a_32 phase_14)(syntax-scope-set b_40 phase_14))" +"(equal?(syntax-scope-set a_32 phase_15)(syntax-scope-set b_40 phase_15))" " #f))))" "(define-values" "(syntax-property$1)" @@ -10110,33 +10355,33 @@ static const char *startup_source = " props1_0" "(syntax-inspector the-struct_28)))" " (raise-argument-error 'struct-copy \"syntax?\" the-struct_28))))))" -"((s_142 key_28 val_18 preserved?_0)" +"((s_143 key_29 val_19 preserved?_0)" "(let-values((()" "(begin" -"(if(syntax?$1 s_142)" +"(if(syntax?$1 s_143)" "(void)" -" (let-values () (raise-argument-error 'syntax-property \"syntax?\" s_142)))" +" (let-values () (raise-argument-error 'syntax-property \"syntax?\" s_143)))" "(values))))" "(let-values((()" "(begin" "(if preserved?_0" "(let-values()" -"(if(if(symbol? key_28)(symbol-interned? key_28) #f)" +"(if(if(symbol? key_29)(symbol-interned? key_29) #f)" "(void)" "(let-values()" "(raise-arguments-error" " 'syntax-property" " \"key for a perserved property must be an interned symbol\"" " \"given key\"" -" key_28" +" key_29" " \"given value\"" -" val_18))))" +" val_19))))" "(void))" "(values))))" -"(let-values(((pval_1)(if preserved?_0(preserved-property-value1.1 val_18) val_18)))" -"(let-values(((the-struct_29) s_142))" +"(let-values(((pval_1)(if preserved?_0(preserved-property-value1.1 val_19) val_19)))" +"(let-values(((the-struct_29) s_143))" "(if(syntax?$1 the-struct_29)" -"(let-values(((props2_0)(hash-set(syntax-props s_142) key_28 pval_1)))" +"(let-values(((props2_0)(hash-set(syntax-props s_143) key_29 pval_1)))" "(syntax1.1" "(syntax-content the-struct_29)" "(syntax-scopes the-struct_29)" @@ -10149,34 +10394,34 @@ static const char *startup_source = " (raise-argument-error 'struct-copy \"syntax?\" the-struct_29)))))))))" "(define-values" "(1/syntax-property-preserved?)" -"(lambda(s_143 key_29)" +"(lambda(s_144 key_30)" "(begin" " 'syntax-property-preserved?" "(begin" -" (if (syntax?$1 s_143) (void) (let-values () (raise-argument-error 'syntax-property-preserved \"syntax?\" s_143)))" -"(if(if(symbol? key_29)(symbol-interned? key_29) #f)" +" (if (syntax?$1 s_144) (void) (let-values () (raise-argument-error 'syntax-property-preserved \"syntax?\" s_144)))" +"(if(if(symbol? key_30)(symbol-interned? key_30) #f)" "(void)" -" (let-values () (raise-argument-error 'syntax-property \"(and/c symbol? symbol-interned?)\" key_29)))" -"(preserved-property-value?(hash-ref(syntax-props s_143) key_29 #f))))))" +" (let-values () (raise-argument-error 'syntax-property \"(and/c symbol? symbol-interned?)\" key_30)))" +"(preserved-property-value?(hash-ref(syntax-props s_144) key_30 #f))))))" "(define-values" "(1/syntax-property-symbol-keys)" -"(lambda(s_144)" +"(lambda(s_145)" "(begin" " 'syntax-property-symbol-keys" "(begin" -" (if (syntax?$1 s_144) (void) (let-values () (raise-argument-error 'syntax-property-symbol-keys \"syntax\" s_144)))" +" (if (syntax?$1 s_145) (void) (let-values () (raise-argument-error 'syntax-property-symbol-keys \"syntax\" s_145)))" "(reverse$1" -"(let-values(((ht_60)(syntax-props s_144)))" +"(let-values(((ht_63)(syntax-props s_145)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-immutable-hash ht_60)))" -"((letrec-values(((for-loop_68)" -"(lambda(fold-var_30 i_74)" +"(let-values()(check-in-immutable-hash ht_63)))" +"((letrec-values(((for-loop_72)" +"(lambda(fold-var_30 i_77)" "(begin" " 'for-loop" -"(if i_74" -"(let-values(((k_16 v_82)(unsafe-immutable-hash-iterate-key+value ht_60 i_74)))" +"(if i_77" +"(let-values(((k_16 v_83)(unsafe-immutable-hash-iterate-key+value ht_63 i_77)))" "(let-values(((fold-var_31)" "(let-values(((fold-var_32) fold-var_30))" "(if(if(symbol? k_16)(symbol-interned? k_16) #f)" @@ -10187,20 +10432,20 @@ static const char *startup_source = "(values fold-var_34)))" " fold-var_32))))" "(if(not #f)" -"(for-loop_68 fold-var_31(unsafe-immutable-hash-iterate-next ht_60 i_74))" +"(for-loop_72 fold-var_31(unsafe-immutable-hash-iterate-next ht_63 i_77))" " fold-var_31)))" " fold-var_30)))))" -" for-loop_68)" +" for-loop_72)" " null" -"(unsafe-immutable-hash-iterate-first ht_60)))))))))" +"(unsafe-immutable-hash-iterate-first ht_63)))))))))" "(define-values" "(syntax-property-remove)" -"(lambda(s_69 key_30)" +"(lambda(s_69 key_31)" "(begin" -"(if(hash-ref(syntax-props s_69) key_30 #f)" +"(if(hash-ref(syntax-props s_69) key_31 #f)" "(let-values(((the-struct_30) s_69))" "(if(syntax?$1 the-struct_30)" -"(let-values(((props3_0)(hash-remove(syntax-props s_69) key_30)))" +"(let-values(((props3_0)(hash-remove(syntax-props s_69) key_31)))" "(syntax1.1" "(syntax-content the-struct_30)" "(syntax-scopes the-struct_30)" @@ -10231,7 +10476,7 @@ static const char *startup_source = "(cons prop:authentic #t)" "(cons" " prop:serialize" -"(lambda(b_42 ser-push!_12 state_20)" +"(lambda(b_42 ser-push!_12 state_22)" "(begin" "(ser-push!_12 'tag '#:local-binding)" "(ser-push!_12(full-local-binding-key b_42))" @@ -10244,30 +10489,30 @@ static const char *startup_source = "(values struct:_27 make-_27 ?_27(make-struct-field-accessor -ref_27 0 'key))))" "(define-values" "(deserialize-full-local-binding)" -"(lambda(key_31 free=id_3)(begin(full-local-binding1.1 #f free=id_3 key_31))))" +"(lambda(key_32 free=id_3)(begin(full-local-binding1.1 #f free=id_3 key_32))))" "(define-values" "(make-local-binding7.1)" "(lambda(frame-id2_0 frame-id4_0 free=id3_0 free=id5_0 key6_0)" "(begin" " 'make-local-binding7" -"(let-values(((key_32) key6_0))" +"(let-values(((key_33) key6_0))" "(let-values(((frame-id_2)(if frame-id4_0 frame-id2_0 #f)))" "(let-values(((free=id_4)(if free=id5_0 free=id3_0 #f)))" "(let-values()" "(if(if(not frame-id_2)(not free=id_4) #f)" -"(let-values() key_32)" -"(let-values()(full-local-binding1.1 frame-id_2 free=id_4 key_32))))))))))" +"(let-values() key_33)" +"(let-values()(full-local-binding1.1 frame-id_2 free=id_4 key_33))))))))))" "(define-values" "(local-binding-update17.1)" "(lambda(frame-id11_0 frame-id14_0 free=id12_0 free=id15_0 key10_0 key13_0 b16_0)" "(begin" " 'local-binding-update17" "(let-values(((b_43) b16_0))" -"(let-values(((key_33)(if key13_0 key10_0(local-binding-key b_43))))" +"(let-values(((key_34)(if key13_0 key10_0(local-binding-key b_43))))" "(let-values(((frame-id_3)(if frame-id14_0 frame-id11_0(binding-frame-id b_43))))" "(let-values(((free=id_5)(if free=id15_0 free=id12_0(binding-free=id b_43))))" "(let-values()" -"(let-values(((key21_0) key_33)((frame-id22_0) frame-id_3)((free=id23_0) free=id_5))" +"(let-values(((key21_0) key_34)((frame-id22_0) frame-id_3)((free=id23_0) free=id_5))" "(make-local-binding7.1 frame-id22_0 #t free=id23_0 #t key21_0))))))))))" "(define-values" "(local-binding-key)" @@ -10325,8 +10570,8 @@ static const char *startup_source = "(if(integer? v_26)" "(let-values()" "(lambda(t_34)" -"(let-values(((val_19)(ref_0 t_34 v_26)))" -"(if(identifier? val_19) val_19(datum->syntax$1 #f '?)))))" +"(let-values(((val_20)(ref_0 t_34 v_26)))" +"(if(identifier? val_20) val_20(datum->syntax$1 #f '?)))))" "(let-values()" "(lambda(t_13)" "(let-values(((id_0)(call-with-continuation-prompt(lambda()(v_26 t_13)))))" @@ -10416,11 +10661,11 @@ static const char *startup_source = " #f))))" "(define-values" "(identifier-binding-symbol$1)" -"(lambda(id_2 phase_15)" +"(lambda(id_2 phase_16)" "(begin" " 'identifier-binding-symbol" "(let-values(((b_46)" -"(let-values(((id53_0) id_2)((phase54_1) phase_15)((temp55_0) #t))" +"(let-values(((id53_0) id_2)((phase54_1) phase_16)((temp55_0) #t))" "(resolve+shift30.1 #f #f #f #f #f #f #f #f temp55_0 #t id53_0 phase54_1))))" "(if(symbol? b_46)" "(let-values() b_46)" @@ -10434,11 +10679,11 @@ static const char *startup_source = "(begin" " 'identifier-binding5" "(let-values(((id_3) id3_0))" -"(let-values(((phase_16) phase4_0))" +"(let-values(((phase_17) 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_16))" +"(let-values(((id56_0) id_3)((phase57_0) phase_17))" "(resolve+shift30.1 #f #f #f #f #f #f #f #f #f #f id56_0 phase57_0))))" "(if(module-binding? b_47)" "(let-values()" @@ -10454,22 +10699,22 @@ 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_17)(begin 'identifier-binding(identifier-binding5_0 id_4 phase_17 #f #f)))" -"((id_5 phase_18 top-level-symbol?1_1)(identifier-binding5_0 id_5 phase_18 top-level-symbol?1_1 #t)))))" +"((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)))))" "(define-values" "(maybe-install-free=id!)" -"(lambda(val_20 id_6 phase_19)" +"(lambda(val_21 id_6 phase_20)" "(begin" -"(if(1/rename-transformer? val_20)" +"(if(1/rename-transformer? val_21)" "(let-values()" -"(let-values(((free=id_6)(1/rename-transformer-target val_20)))" +"(let-values(((free=id_6)(1/rename-transformer-target val_21)))" "(if(syntax-property$1 free=id_6 'not-free-identifier=?)" "(void)" "(let-values()" "(let-values(((b_48)" -"(let-values(((id61_0) id_6)((phase62_0) phase_19)((temp63_0) #t)((temp64_0) #t))" +"(let-values(((id61_0) id_6)((phase62_0) phase_20)((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_19))" +"(let-values(((temp58_0)(syntax-scope-set id_6 phase_20))" "((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)))))))" @@ -10552,7 +10797,7 @@ static const char *startup_source = "(if(datum-has-elements?(syntax-content s_24))" "(propagation-mpi-shift" "(syntax-scope-propagations+tamper s_24)" -"(lambda(s_145)(cons shift_0 s_145))" +"(lambda(s_146)(cons shift_0 s_146))" " inspector_3" "(syntax-scopes s_24)" "(syntax-shifted-multi-scopes s_24)" @@ -10584,8 +10829,8 @@ static const char *startup_source = " phase29_0)" "(begin" " 'resolve+shift30" -"(let-values(((s_146) s28_1))" -"(let-values(((phase_20) phase29_0))" +"(let-values(((s_147) s28_1))" +"(let-values(((phase_21) 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)))" @@ -10593,8 +10838,8 @@ static const char *startup_source = "(let-values(((extra-shifts_4)(if extra-shifts27_0 extra-shifts22_0 null)))" "(let-values()" "(let-values(((immediate-b_0)" -"(let-values(((s73_0) s_146)" -"((phase74_0) phase_20)" +"(let-values(((s73_0) s_147)" +"((phase74_0) phase_21)" "((ambiguous-value75_0) ambiguous-value_1)" "((exactly?76_0) exactly?_1)" "((extra-shifts77_0) extra-shifts_4))" @@ -10614,8 +10859,8 @@ static const char *startup_source = "(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_20)" -"((temp80_0)(append extra-shifts_4(syntax-mpi-shifts s_146)))" +"((phase79_0) phase_21)" +"((temp80_0)(append extra-shifts_4(syntax-mpi-shifts s_147)))" "((ambiguous-value81_0) ambiguous-value_1)" "((exactly?82_0) exactly?_1)" "((unbound-sym?83_0) unbound-sym?_0))" @@ -10635,7 +10880,7 @@ static const char *startup_source = " immediate-b_0)))" "(if(module-binding? b_50)" "(let-values()" -"(let-values(((mpi-shifts_2)(syntax-mpi-shifts s_146)))" +"(let-values(((mpi-shifts_2)(syntax-mpi-shifts s_147)))" "(if(null? mpi-shifts_2)" "(let-values() b_50)" "(let-values()" @@ -10660,30 +10905,30 @@ static const char *startup_source = "((temp87_0)" "(if(binding-free=id b_50)" "(let-values(((temp89_0)(binding-free=id b_50))" -"((s90_0) s_146))" +"((s90_0) s_147))" "(syntax-transfer-shifts39.1 #f #f temp89_0 s90_0 #f #f))" " #f))" "((temp88_1)" "(reverse$1" -"(let-values(((lst_49)" +"(let-values(((lst_50)" "(module-binding-extra-nominal-bindings" " b_50)))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_49)))" -"((letrec-values(((for-loop_69)" -"(lambda(fold-var_35 lst_50)" +"(let-values()(check-list lst_50)))" +"((letrec-values(((for-loop_73)" +"(lambda(fold-var_35 lst_51)" "(begin" " 'for-loop" -"(if(pair? lst_50)" +"(if(pair? lst_51)" "(let-values(((b_51)" "(unsafe-car" -" lst_50))" -"((rest_21)" +" lst_51))" +"((rest_22)" "(unsafe-cdr" -" lst_50)))" +" lst_51)))" "(let-values(((fold-var_36)" "(let-values(((fold-var_37)" " fold-var_35))" @@ -10698,14 +10943,14 @@ static const char *startup_source = "(values" " fold-var_38)))))" "(if(not #f)" -"(for-loop_69" +"(for-loop_73" " fold-var_36" -" rest_21)" +" rest_22)" " fold-var_36)))" " fold-var_35)))))" -" for-loop_69)" +" for-loop_73)" " null" -" lst_49))))))" +" lst_50))))))" "(module-binding-update48.1" " #f" " #f" @@ -10731,7 +10976,7 @@ static const char *startup_source = " #f" " b84_0)))))))))))" "(if(if(not b_50) unbound-sym?_0 #f)" -"(let-values()(syntax-e$1 s_146))" +"(let-values()(syntax-e$1 s_147))" "(let-values() b_50))))))))))))))))" "(define-values" "(apply-syntax-shifts)" @@ -10764,18 +11009,18 @@ static const char *startup_source = "((temp93_0)(module-path-index-shift(module-binding-nominal-module b_53) from-mpi_2 to-mpi_2))" "((temp94_0)" "(reverse$1" -"(let-values(((lst_51)(module-binding-extra-nominal-bindings b_53)))" +"(let-values(((lst_52)(module-binding-extra-nominal-bindings b_53)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_51)))" -"((letrec-values(((for-loop_70)" -"(lambda(fold-var_39 lst_52)" +"(let-values()(check-list lst_52)))" +"((letrec-values(((for-loop_74)" +"(lambda(fold-var_39 lst_53)" "(begin" " 'for-loop" -"(if(pair? lst_52)" -"(let-values(((b_37)(unsafe-car lst_52))" -"((rest_22)(unsafe-cdr lst_52)))" +"(if(pair? lst_53)" +"(let-values(((b_37)(unsafe-car lst_53))" +"((rest_23)(unsafe-cdr lst_53)))" "(let-values(((fold-var_40)" "(let-values(((fold-var_41) fold-var_39))" "(let-values(((fold-var_42)" @@ -10788,11 +11033,11 @@ static const char *startup_source = " to-mpi_2))" " fold-var_41))))" "(values fold-var_42)))))" -"(if(not #f)(for-loop_70 fold-var_40 rest_22) fold-var_40)))" +"(if(not #f)(for-loop_74 fold-var_40 rest_23) fold-var_40)))" " fold-var_39)))))" -" for-loop_70)" +" for-loop_74)" " null" -" lst_51))))))" +" lst_52))))))" "(module-binding-update48.1" " #f" " #f" @@ -10832,33 +11077,33 @@ static const char *startup_source = "(if(if(null? shifts_2) inspector_4 #f)" "(let-values()(syntax-set-inspector to-s_0 inspector_4))" "(let-values()" -"(let-values(((lst_53)(reverse$1 shifts_2))((start_12) 0))" +"(let-values(((lst_54)(reverse$1 shifts_2))((start_12) 0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_53)))" +"(let-values()(check-list lst_54)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-naturals start_12)))" -"((letrec-values(((for-loop_71)" -"(lambda(s_39 lst_54 pos_9)" +"((letrec-values(((for-loop_75)" +"(lambda(s_39 lst_55 pos_9)" "(begin" " 'for-loop" -"(if(if(pair? lst_54) #t #f)" -"(let-values(((shift_3)(unsafe-car lst_54))" -"((rest_23)(unsafe-cdr lst_54))" -"((i_75) pos_9))" -"(let-values(((s_147)" -"(let-values(((s_148) s_39))" -"(let-values(((s_149)" +"(if(if(pair? lst_55) #t #f)" +"(let-values(((shift_3)(unsafe-car lst_55))" +"((rest_24)(unsafe-cdr lst_55))" +"((i_78) pos_9))" +"(let-values(((s_148)" +"(let-values(((s_149) s_39))" +"(let-values(((s_150)" "(let-values()" -"(let-values(((s95_0) s_148)" +"(let-values(((s95_0) s_149)" "((temp96_0)" "(shift-from shift_3))" "((temp97_0)" "(shift-to shift_3))" "((temp98_0)" -"(if(zero? i_75)" +"(if(zero? i_78)" " inspector_4" " #f))" "((non-source?99_0)" @@ -10871,31 +11116,31 @@ static const char *startup_source = " temp97_0" " temp98_0" " #t)))))" -"(values s_149)))))" -"(if(not #f)(for-loop_71 s_147 rest_23(+ pos_9 1)) s_147)))" +"(values s_150)))))" +"(if(not #f)(for-loop_75 s_148 rest_24(+ pos_9 1)) s_148)))" " s_39)))))" -" for-loop_71)" +" for-loop_75)" " to-s_0" -" lst_53" +" lst_54" " start_12))))))))))))))" "(define-values" "(syntax-set-inspector)" -"(lambda(s_150 insp_3)" +"(lambda(s_100 insp_3)" "(begin" -"(let-values(((the-struct_32) s_150))" +"(let-values(((the-struct_32) s_100))" "(if(syntax?$1 the-struct_32)" "(let-values(((inspector100_0)" -"(let-values(((or-part_133)(syntax-inspector s_150)))(if or-part_133 or-part_133 insp_3)))" +"(let-values(((or-part_133)(syntax-inspector s_100)))(if or-part_133 or-part_133 insp_3)))" "((scope-propagations+tamper101_0)" -"(if(datum-has-elements?(syntax-content s_150))" +"(if(datum-has-elements?(syntax-content s_100))" "(propagation-mpi-shift" -"(syntax-scope-propagations+tamper s_150)" +"(syntax-scope-propagations+tamper s_100)" " #f" " insp_3" -"(syntax-scopes s_150)" -"(syntax-shifted-multi-scopes s_150)" -"(syntax-mpi-shifts s_150))" -"(syntax-scope-propagations+tamper s_150))))" +"(syntax-scopes s_100)" +"(syntax-shifted-multi-scopes s_100)" +"(syntax-mpi-shifts s_100))" +"(syntax-scope-propagations+tamper s_100))))" "(syntax1.1" "(syntax-content the-struct_32)" "(syntax-scopes the-struct_32)" @@ -10919,18 +11164,18 @@ static const char *startup_source = "(if(syntax?$1 s_151)" "(void)" " (let-values () (raise-argument-error 'syntax-track-origin \"syntax?\" s_151)))" -"(let-values(((lst_55)(reverse$1(syntax-mpi-shifts s_151))))" +"(let-values(((lst_56)(reverse$1(syntax-mpi-shifts s_151))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_55)))" -"((letrec-values(((for-loop_72)" -"(lambda(result_50 lst_56)" +"(let-values()(check-list lst_56)))" +"((letrec-values(((for-loop_76)" +"(lambda(result_50 lst_57)" "(begin" " 'for-loop" -"(if(pair? lst_56)" -"(let-values(((shift_4)(unsafe-car lst_56))" -"((rest_24)(unsafe-cdr lst_56)))" +"(if(pair? lst_57)" +"(let-values(((shift_4)(unsafe-car lst_57))" +"((rest_25)(unsafe-cdr lst_57)))" "(let-values(((result_51)" "(let-values(((result_52) result_50))" "(if(non-source-shift? shift_4)" @@ -10964,15 +11209,15 @@ static const char *startup_source = " #f)))))))" "(values result_53)))))))" "(if(if(not((lambda x_37 result_51) shift_4))(not #f) #f)" -"(for-loop_72 result_51 rest_24)" +"(for-loop_76 result_51 rest_25)" " result_51)))" " result_50)))))" -" for-loop_72)" +" for-loop_76)" " #f" -" lst_55)))))))))))" +" lst_56)))))))))))" "(case-lambda" "((s_152)(begin 'syntax-source-module(syntax-source-module45_0 s_152 #f #f)))" -"((s_110 source?42_1)(syntax-source-module45_0 s_110 source?42_1 #t)))))" +"((s_153 source?42_1)(syntax-source-module45_0 s_153 source?42_1 #t)))))" "(define-values" "(1/identifier-prune-to-source-module)" "(lambda(id_7)" @@ -10997,12 +11242,12 @@ static const char *startup_source = " (raise-argument-error 'struct-copy \"syntax?\" the-struct_33)))))))" "(define-values(built-in-symbols)(make-hasheq))" "(define-values(register-built-in-symbol!)(lambda(s_0)(begin(hash-set! built-in-symbols s_0 #t))))" -"(define-values(built-in-symbol?)(lambda(s_153)(begin(hash-ref built-in-symbols s_153 #f))))" +"(define-values(built-in-symbol?)(lambda(s_154)(begin(hash-ref built-in-symbols s_154 #f))))" "(define-values" "(make-built-in-symbol!)" -"(lambda(s_154)" +"(lambda(s_155)" "(begin" -" (let-values (((built-in-s_0) (string->symbol (format \".~s\" s_154))))" +" (let-values (((built-in-s_0) (string->symbol (format \".~s\" s_155))))" "(begin(register-built-in-symbol! built-in-s_0) built-in-s_0)))))" "(void" "(begin" @@ -11070,7 +11315,7 @@ static const char *startup_source = "(list" "(cons" " prop:serialize" -"(lambda(p_29 ser-push!_13 state_21)" +"(lambda(p_29 ser-push!_13 state_23)" "(begin" "(ser-push!_13 'tag '#:provided)" "(ser-push!_13(provided-binding p_29))" @@ -11088,12 +11333,12 @@ static const char *startup_source = "(make-struct-field-accessor -ref_0 0 'binding)" "(make-struct-field-accessor -ref_0 1 'protected?)" "(make-struct-field-accessor -ref_0 2 'syntax?))))" -"(define-values(provided-as-binding)(lambda(v_83)(begin(if(provided? v_83)(provided-binding v_83) v_83))))" +"(define-values(provided-as-binding)(lambda(v_84)(begin(if(provided? v_84)(provided-binding v_84) v_84))))" "(define-values(provided-as-protected?)(lambda(v_5)(begin(if(provided? v_5)(provided-protected? v_5) #f))))" -"(define-values(provided-as-transformer?)(lambda(v_84)(begin(if(provided? v_84)(provided-syntax? v_84) #f))))" +"(define-values(provided-as-transformer?)(lambda(v_85)(begin(if(provided? v_85)(provided-syntax? v_85) #f))))" "(define-values" "(deserialize-provided)" -"(lambda(binding_6 protected?_0 syntax?_1)(begin(provided1.1 binding_6 protected?_0 syntax?_1))))" +"(lambda(binding_5 protected?_0 syntax?_1)(begin(provided1.1 binding_5 protected?_0 syntax?_1))))" "(define-values" "(provide-binding-to-require-binding11.1)" "(lambda(mpi2_0 phase-shift4_0 provide-phase-level3_0 self1_0 binding/p9_0 sym10_0)" @@ -11106,9 +11351,9 @@ static const char *startup_source = "(let-values(((provide-phase-level_0) provide-phase-level3_0))" "(let-values(((phase-shift_0) phase-shift4_0))" "(let-values()" -"(let-values(((binding_7)(provided-as-binding binding/p_0)))" -"(let-values(((from-mod_0)(module-binding-module binding_7)))" -"(let-values(((binding17_0) binding_7)" +"(let-values(((binding_6)(provided-as-binding binding/p_0)))" +"(let-values(((from-mod_0)(module-binding-module binding_6)))" +"(let-values(((binding17_0) binding_6)" "((temp18_1)(module-path-index-shift from-mod_0 self_1 mpi_13))" "((mpi19_0) mpi_13)" "((provide-phase-level20_0) provide-phase-level_0)" @@ -11117,7 +11362,7 @@ static const char *startup_source = "((temp23_1) #f)" "((temp24_2)" "(if(not(provided-as-protected? binding/p_0))" -"(module-binding-extra-inspector binding_7)" +"(module-binding-extra-inspector binding_6)" " #f))" "((null25_0) null))" "(module-binding-update48.1" @@ -11170,38 +11415,38 @@ static const char *startup_source = "(list" "(cons" " prop:serialize" -"(lambda(b_54 ser-push!_14 reachable-scopes_5)" +"(lambda(b_18 ser-push!_14 reachable-scopes_3)" "(begin" "(ser-push!_14 'tag '#:bulk-binding)" -"(ser-push!_14(bulk-binding-prefix b_54))" -"(ser-push!_14(bulk-binding-excepts b_54))" -"(ser-push!_14(bulk-binding-mpi b_54))" -"(ser-push!_14(bulk-binding-provide-phase-level b_54))" -"(ser-push!_14(bulk-binding-phase-shift b_54))" +"(ser-push!_14(bulk-binding-prefix b_18))" +"(ser-push!_14(bulk-binding-excepts b_18))" +"(ser-push!_14(bulk-binding-mpi b_18))" +"(ser-push!_14(bulk-binding-provide-phase-level b_18))" +"(ser-push!_14(bulk-binding-phase-shift b_18))" "(ser-push!_14 'tag '#:bulk-binding-registry))))" "(cons" " prop:bulk-binding" "(bulk-binding-class3.1" -"(lambda(b_55 mpi-shifts_3)" -"(let-values(((or-part_134)(bulk-binding-provides b_55)))" +"(lambda(b_54 mpi-shifts_3)" +"(let-values(((or-part_134)(bulk-binding-provides b_54)))" "(if or-part_134" " or-part_134" "(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_54) mpi-shifts_3))))" "(let-values((()" "(begin" -"(if(bulk-binding-bulk-binding-registry b_55)" +"(if(bulk-binding-bulk-binding-registry b_54)" "(void)" "(let-values()" "(error" " \"namespace mismatch: no bulk-binding registry available:\"" " mod-name_1)))" "(values))))" -"(let-values(((table_76)" +"(let-values(((table_81)" "(bulk-binding-registry-table" -"(bulk-binding-bulk-binding-registry b_55))))" -"(let-values(((bulk-provide_0)(hash-ref table_76 mod-name_1 #f)))" +"(bulk-binding-bulk-binding-registry b_54))))" +"(let-values(((bulk-provide_0)(hash-ref table_81 mod-name_1 #f)))" "(let-values((()" "(begin" "(if bulk-provide_0" @@ -11213,14 +11458,14 @@ 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_54(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_54))))" +"(let-values(((excepts_0)(bulk-binding-excepts b_54)))" +"(let-values(((prefix_0)(bulk-binding-prefix b_54)))" "(let-values(((adjusted-provides_0)" "(if(let-values(((or-part_135) prefix_0))" "(if or-part_135" @@ -11233,21 +11478,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_54 adjusted-provides_0)" " adjusted-provides_0))))))))))))))" -"(lambda(b_56 binding_8 sym_1)" -"(let-values(((binding27_0) binding_8)" +"(lambda(b_55 binding_7 sym_1)" +"(let-values(((binding27_0) binding_7)" "((temp28_1)" -"(if(bulk-binding-prefix b_56)" +"(if(bulk-binding-prefix b_55)" "(string->symbol" "(substring" "(symbol->string sym_1)" -"(string-length(symbol->string(bulk-binding-prefix b_56)))))" +"(string-length(symbol->string(bulk-binding-prefix b_55)))))" " 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_55))" +"((temp30_0)(bulk-binding-mpi b_55))" +"((temp31_0)(bulk-binding-provide-phase-level b_55))" +"((temp32_0)(bulk-binding-phase-shift b_55)))" "(provide-binding-to-require-binding11.1" " temp30_0" " temp32_0" @@ -11283,23 +11528,23 @@ static const char *startup_source = "(bulk-provides-add-prefix-remove-exceptions)" "(lambda(provides_1 prefix_2 excepts_2)" "(begin" -"(let-values(((ht_61) provides_1))" +"(let-values(((ht_64) provides_1))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-in-hash ht_61)))" -"((letrec-values(((for-loop_73)" -"(lambda(table_77 i_76)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-in-hash ht_64)))" +"((letrec-values(((for-loop_77)" +"(lambda(table_82 i_79)" "(begin" " 'for-loop" -"(if i_76" -"(let-values(((sym_17 val_21)(hash-iterate-key+value ht_61 i_76)))" -"(let-values(((table_78)" -"(let-values(((table_79) table_77))" +"(if i_79" +"(let-values(((sym_17 val_22)(hash-iterate-key+value ht_64 i_79)))" +"(let-values(((table_83)" +"(let-values(((table_84) table_82))" "(if(hash-ref excepts_2 sym_17 #f)" -" table_79" -"(let-values(((table_80) table_79))" -"(let-values(((table_81)" +" table_84" +"(let-values(((table_85) table_84))" +"(let-values(((table_86)" "(let-values()" -"(let-values(((key_34 val_22)" +"(let-values(((key_35 val_23)" "(let-values()" "(values" "(if prefix_2" @@ -11309,14 +11554,14 @@ static const char *startup_source = " prefix_2" " sym_17))" " sym_17)" -" val_21))))" -"(hash-set table_80 key_34 val_22)))))" -"(values table_81)))))))" -"(if(not #f)(for-loop_73 table_78(hash-iterate-next ht_61 i_76)) table_78)))" -" table_77)))))" -" for-loop_73)" +" val_22))))" +"(hash-set table_85 key_35 val_23)))))" +"(values table_86)))))))" +"(if(not #f)(for-loop_77 table_83(hash-iterate-next ht_64 i_79)) table_83)))" +" table_82)))))" +" for-loop_77)" " '#hash()" -"(hash-iterate-first ht_61)))))))" +"(hash-iterate-first ht_64)))))))" "(define-values" "(struct:bulk-provide bulk-provide15.1 bulk-provide? bulk-provide-self bulk-provide-provides)" "(let-values(((struct:_30 make-_30 ?_30 -ref_30 -set!_30)" @@ -11459,29 +11704,29 @@ static const char *startup_source = "(lambda(v_45)(begin(root-expand-context/outer-post-expansion-scope v_45))))" "(define-values" "(root-expand-context-use-site-scopes)" -"(lambda(v_85)(begin(root-expand-context/outer-use-site-scopes v_85))))" +"(lambda(v_86)(begin(root-expand-context/outer-use-site-scopes v_86))))" "(define-values(root-expand-context-frame-id)(lambda(v_46)(begin(root-expand-context/outer-frame-id v_46))))" "(define-values" "(root-expand-context-self-mpi)" -"(lambda(v_86)(begin(root-expand-context/inner-self-mpi(root-expand-context/outer-inner v_86)))))" +"(lambda(v_87)(begin(root-expand-context/inner-self-mpi(root-expand-context/outer-inner v_87)))))" "(define-values" "(root-expand-context-module-scopes)" "(lambda(v_47)(begin(root-expand-context/inner-module-scopes(root-expand-context/outer-inner v_47)))))" "(define-values" "(root-expand-context-top-level-bind-scope)" -"(lambda(v_57)(begin(root-expand-context/inner-top-level-bind-scope(root-expand-context/outer-inner v_57)))))" +"(lambda(v_88)(begin(root-expand-context/inner-top-level-bind-scope(root-expand-context/outer-inner v_88)))))" "(define-values" "(root-expand-context-all-scopes-stx)" -"(lambda(v_87)(begin(root-expand-context/inner-all-scopes-stx(root-expand-context/outer-inner v_87)))))" +"(lambda(v_56)(begin(root-expand-context/inner-all-scopes-stx(root-expand-context/outer-inner v_56)))))" "(define-values" "(root-expand-context-defined-syms)" -"(lambda(v_88)(begin(root-expand-context/inner-defined-syms(root-expand-context/outer-inner v_88)))))" +"(lambda(v_89)(begin(root-expand-context/inner-defined-syms(root-expand-context/outer-inner v_89)))))" "(define-values" "(root-expand-context-counter)" "(lambda(v_40)(begin(root-expand-context/inner-counter(root-expand-context/outer-inner v_40)))))" "(define-values" "(root-expand-context-lift-key)" -"(lambda(v_89)(begin(root-expand-context/inner-lift-key(root-expand-context/outer-inner v_89)))))" +"(lambda(v_90)(begin(root-expand-context/inner-lift-key(root-expand-context/outer-inner v_90)))))" "(define-values" "(make-root-expand-context13.1)" "(lambda(all-scopes-stx7_0" @@ -11529,29 +11774,29 @@ static const char *startup_source = "((new-self20_0) new-self_0))" "(syntax-module-path-index-shift15.1 #f #f temp18_2 orig-self19_0 new-self20_0 #f #f))" "(add-scopes empty-syntax(unbox(root-expand-context-use-site-scopes ctx_0)))" -"(let-values(((ht_62)(root-expand-context-defined-syms ctx_0)))" +"(let-values(((ht_65)(root-expand-context-defined-syms ctx_0)))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-in-hash ht_62)))" -"((letrec-values(((for-loop_74)" -"(lambda(table_82 i_77)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-in-hash ht_65)))" +"((letrec-values(((for-loop_78)" +"(lambda(table_87 i_80)" "(begin" " 'for-loop" -"(if i_77" -"(let-values(((phase_21 ht_63)(hash-iterate-key+value ht_62 i_77)))" -"(let-values(((table_83)" -"(let-values(((table_84) table_82))" -"(let-values(((table_85)" +"(if i_80" +"(let-values(((phase_22 ht_66)(hash-iterate-key+value ht_65 i_80)))" +"(let-values(((table_88)" +"(let-values(((table_89) table_87))" +"(let-values(((table_90)" "(let-values()" -"(let-values(((key_35 val_23)" +"(let-values(((key_36 val_24)" "(let-values()" -"(values phase_21 ht_63))))" -"(hash-set table_84 key_35 val_23)))))" -"(values table_85)))))" -"(if(not #f)(for-loop_74 table_83(hash-iterate-next ht_62 i_77)) table_83)))" -" table_82)))))" -" for-loop_74)" +"(values phase_22 ht_66))))" +"(hash-set table_89 key_36 val_24)))))" +"(values table_90)))))" +"(if(not #f)(for-loop_78 table_88(hash-iterate-next ht_65 i_80)) table_88)))" +" table_87)))))" +" for-loop_78)" " '#hasheqv()" -"(hash-iterate-first ht_62))))" +"(hash-iterate-first ht_65))))" "(root-expand-context-frame-id ctx_0)" "(unbox(root-expand-context-counter ctx_0)))))))" "(define-values" @@ -11592,40 +11837,40 @@ static const char *startup_source = "(generate-lift-key)))))))" "(define-values" "(defined-syms-hash?)" -"(lambda(v_90)" +"(lambda(v_91)" "(begin" -"(let-values(((ht_64) v_90))" +"(let-values(((ht_67) v_91))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-in-hash ht_64)))" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-in-hash ht_67)))" "((letrec-values(((for-loop_8)" -"(lambda(result_54 i_78)" +"(lambda(result_54 i_81)" "(begin" " 'for-loop" -"(if i_78" -"(let-values(((phase_22 ht-s_0)(hash-iterate-key+value ht_64 i_78)))" +"(if i_81" +"(let-values(((phase_23 ht-s_0)(hash-iterate-key+value ht_67 i_81)))" "(let-values(((result_55)" "(let-values()" "(let-values(((result_56)" "(let-values()" "(let-values()" -"(if(phase? phase_22)" +"(if(phase? phase_23)" "(if(hash?(syntax-e$1 ht-s_0))" -"(let-values(((ht_65)(syntax-e$1 ht-s_0)))" +"(let-values(((ht_68)(syntax-e$1 ht-s_0)))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_65)))" -"((letrec-values(((for-loop_75)" -"(lambda(result_57 i_79)" +"(let-values()(check-in-hash ht_68)))" +"((letrec-values(((for-loop_79)" +"(lambda(result_57 i_82)" "(begin" " 'for-loop" -"(if i_79" +"(if i_82" "(let-values(((sym_18" " id_8)" "(hash-iterate-key+value" -" ht_65" -" i_79)))" +" ht_68" +" i_82)))" "(let-values(((result_58)" "(let-values()" "(let-values(((result_59)" @@ -11646,26 +11891,26 @@ static const char *startup_source = " id_8))" "(not #f)" " #f)" -"(for-loop_75" +"(for-loop_79" " result_58" "(hash-iterate-next" -" ht_65" -" i_79))" +" ht_68" +" i_82))" " result_58)))" " result_57)))))" -" for-loop_75)" +" for-loop_79)" " #t" -"(hash-iterate-first ht_65))))" +"(hash-iterate-first ht_68))))" " #f)" " #f)))))" "(values result_56)))))" -"(if(if(not((lambda x_39(not result_55)) phase_22 ht-s_0))(not #f) #f)" -"(for-loop_8 result_55(hash-iterate-next ht_64 i_78))" +"(if(if(not((lambda x_39(not result_55)) phase_23 ht-s_0))(not #f) #f)" +"(for-loop_8 result_55(hash-iterate-next ht_67 i_81))" " result_55)))" " result_54)))))" " for-loop_8)" " #t" -"(hash-iterate-first ht_64)))))))" +"(hash-iterate-first ht_67)))))))" "(define-values" "(extract-scope-list)" "(lambda(stx_8)(begin(map2 generalize-scope(set->list(syntax-scope-set stx_8 0))))))" @@ -11674,31 +11919,31 @@ static const char *startup_source = "(lambda(stx_9)(begin(if(syntax?$1 stx_9)(= 1(set-count(syntax-scope-set stx_9 0))) #f))))" "(define-values" "(extract-scope)" -"(lambda(stx_10)(begin(let-values(((s_155)(syntax-scope-set stx_10 0)))(generalize-scope(set-first s_155))))))" +"(lambda(stx_10)(begin(let-values(((s_156)(syntax-scope-set stx_10 0)))(generalize-scope(set-first s_156))))))" "(define-values" "(unpack-defined-syms)" -"(lambda(v_91)" +"(lambda(v_92)" "(begin" "(hash-copy" -"(let-values(((ht_66)(syntax-e$1 v_91)))" +"(let-values(((ht_69)(syntax-e$1 v_92)))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-in-hash ht_66)))" -"((letrec-values(((for-loop_76)" -"(lambda(table_86 i_80)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-in-hash ht_69)))" +"((letrec-values(((for-loop_80)" +"(lambda(table_91 i_83)" "(begin" " 'for-loop" -"(if i_80" -"(let-values(((phase_23 ht-s_1)(hash-iterate-key+value ht_66 i_80)))" -"(let-values(((table_87)" -"(let-values(((table_88) table_86))" -"(let-values(((table_89)" +"(if i_83" +"(let-values(((phase_24 ht-s_1)(hash-iterate-key+value ht_69 i_83)))" +"(let-values(((table_92)" +"(let-values(((table_93) table_91))" +"(let-values(((table_94)" "(let-values()" -"(let-values(((key_36 val_24)" +"(let-values(((key_37 val_15)" "(let-values()" "(values" -" phase_23" +" phase_24" "(hash-copy" -"(let-values(((ht_67)" +"(let-values(((ht_70)" "(syntax-e$1" " ht-s_1)))" "(begin" @@ -11706,55 +11951,55 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()" -"(check-in-hash ht_67)))" +"(check-in-hash ht_70)))" "((letrec-values(((for-loop_13)" -"(lambda(table_90" -" i_81)" +"(lambda(table_95" +" i_84)" "(begin" " 'for-loop" -"(if i_81" +"(if i_84" "(let-values(((sym_19" " id_9)" "(hash-iterate-key+value" -" ht_67" -" i_81)))" -"(let-values(((table_91)" -"(let-values(((table_92)" -" table_90))" -"(let-values(((table_93)" +" ht_70" +" i_84)))" +"(let-values(((table_96)" +"(let-values(((table_97)" +" table_95))" +"(let-values(((table_98)" "(let-values()" -"(let-values(((key_37" +"(let-values(((key_38" " val_25)" "(let-values()" "(values" " sym_19" " id_9))))" "(hash-set" -" table_92" -" key_37" +" table_97" +" key_38" " val_25)))))" "(values" -" table_93)))))" +" table_98)))))" "(if(not" " #f)" "(for-loop_13" -" table_91" +" table_96" "(hash-iterate-next" -" ht_67" -" i_81))" -" table_91)))" -" table_90)))))" +" ht_70" +" i_84))" +" table_96)))" +" table_95)))))" " for-loop_13)" " '#hash()" "(hash-iterate-first" -" ht_67)))))))))" -"(hash-set table_88 key_36 val_24)))))" -"(values table_89)))))" -"(if(not #f)(for-loop_76 table_87(hash-iterate-next ht_66 i_80)) table_87)))" -" table_86)))))" -" for-loop_76)" +" ht_70)))))))))" +"(hash-set table_93 key_37 val_15)))))" +"(values table_94)))))" +"(if(not #f)(for-loop_80 table_92(hash-iterate-next ht_69 i_83)) table_92)))" +" table_91)))))" +" for-loop_80)" " '#hasheqv()" -"(hash-iterate-first ht_66))))))))" +"(hash-iterate-first ht_69))))))))" "(define-values(1/primitive-table) primitive-table)" "(define-values(1/primitive->compiled-position) primitive->compiled-position)" "(define-values(1/compiled-position->primitive) compiled-position->primitive)" @@ -11818,13 +12063,13 @@ static const char *startup_source = "(lambda(r_26 proc_2)" "(begin" "(let-values(((lock-box_0)(module-registry-lock-box r_26)))" -"((letrec-values(((loop_73)" +"((letrec-values(((loop_74)" "(lambda()" "(begin" " 'loop" "(let-values(((v_31)(unbox lock-box_0)))" -"(if(let-values(((or-part_75)(not v_31)))" -"(if or-part_75 or-part_75(sync/timeout 0(car v_31)(cdr v_31))))" +"(if(let-values(((or-part_73)(not v_31)))" +"(if or-part_73 or-part_73(sync/timeout 0(car v_31)(cdr v_31))))" "(let-values()" "(let-values(((sema_0)(make-semaphore)))" "(let-values(((lock_0)(cons(semaphore-peek-evt sema_0)(current-thread))))" @@ -11833,12 +12078,12 @@ static const char *startup_source = "(lambda()" "(if(box-cas! lock-box_0 v_31 lock_0)" "(let-values()(begin(proc_2) void))" -"(let-values()(loop_73))))" +"(let-values()(loop_74))))" "(lambda()(semaphore-post sema_0)))))))" "(if(eq?(current-thread)(cdr v_31))" "(let-values()(proc_2))" -"(let-values()(begin(sync(car v_31)(cdr v_31))(loop_73))))))))))" -" loop_73))))))" +"(let-values()(begin(sync(car v_31)(cdr v_31))(loop_74))))))))))" +" loop_74))))))" "(define-values" "(struct:namespace" " namespace1.1" @@ -11942,14 +12187,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_24)(if share-from-ns_0(namespace-phase share-from-ns_0) 0)))" +"(let-values(((phase_25)(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_24" -" phase_24" +" phase_25" +" phase_25" "(make-small-hasheqv)" "(make-small-hasheqv)" "(if share-from-ns_0(1/namespace-module-registry share-from-ns_0)(make-module-registry))" @@ -11969,17 +12214,17 @@ static const char *startup_source = "(if share-from-ns_0(namespace-module-instances share-from-ns_0)(make-hasheqv)))))" "(begin" "(if register?_0" -"(let-values()(small-hash-set!(namespace-phase-to-namespace ns_1) phase_24 ns_1))" +"(let-values()(small-hash-set!(namespace-phase-to-namespace ns_1) phase_25 ns_1))" "(void))" " ns_1))))))))))" "(define-values" "(1/current-namespace)" "(make-parameter" "(make-namespace)" -"(lambda(v_70)" +"(lambda(v_69)" "(begin" -" (if (1/namespace? v_70) (void) (let-values () (raise-argument-error 'current-namespace \"namespace?\" v_70)))" -" v_70))))" +" (if (1/namespace? v_69) (void) (let-values () (raise-argument-error 'current-namespace \"namespace?\" v_69)))" +" v_69))))" "(define-values" "(namespace-get-root-expand-ctx)" "(lambda(ns_2)(begin(force(unbox(namespace-root-expand-ctx ns_2))))))" @@ -11999,15 +12244,15 @@ static const char *startup_source = "(hash-ref(module-registry-declarations(1/namespace-module-registry ns_5)) name_17 #f))))))" "(define-values" "(namespace->namespace-at-phase)" -"(lambda(ns_6 phase_25)" +"(lambda(ns_6 phase_26)" "(begin" -"(let-values(((or-part_139)(small-hash-ref(namespace-phase-to-namespace ns_6) phase_25 #f)))" +"(let-values(((or-part_139)(small-hash-ref(namespace-phase-to-namespace ns_6) phase_26 #f)))" "(if or-part_139" " or-part_139" "(let-values(((p-ns_0)" "(let-values(((the-struct_34) ns_6))" "(if(1/namespace? the-struct_34)" -"(let-values(((phase23_0) phase_25))" +"(let-values(((phase23_0) phase_26))" "(namespace1.1" "(namespace-mpi the-struct_34)" "(namespace-source-name the-struct_34)" @@ -12025,20 +12270,20 @@ static const char *startup_source = "(namespace-available-module-instances the-struct_34)" "(namespace-module-instances the-struct_34)))" " (raise-argument-error 'struct-copy \"namespace?\" the-struct_34)))))" -"(begin(small-hash-set!(namespace-phase-to-namespace ns_6) phase_25 p-ns_0) p-ns_0)))))))" +"(begin(small-hash-set!(namespace-phase-to-namespace ns_6) phase_26 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_156)" +"(let-values(((s_157)" "(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_15)(1/resolved-module-path-name(1/module-path-index-resolve(namespace-mpi ns_7)))))" -" (if (pair? r_15) (string-append \"(submod \" s_156 \" \" (substring (format \"~s\" (cdr r_15)) 1)) s_156)))))))" +" (if (pair? r_15) (string-append \"(submod \" s_157 \" \" (substring (format \"~s\" (cdr r_15)) 1)) s_157)))))))" "(define-values" "(namespace->definitions)" "(lambda(ns_8 phase-level_1)" @@ -12061,26 +12306,26 @@ static const char *startup_source = "(let-values(((ns_9) ns14_0))" "(let-values(((phase-level_2) phase-level15_0))" "(let-values(((name_18) name16_1))" -"(let-values(((val_14) val17_0))" +"(let-values(((val_26) val17_0))" "(let-values(((as-constant?_0)(if as-constant?13_0 as-constant?12_0 #f)))" "(let-values()" "(let-values(((d_10)(namespace->definitions ns_9 phase-level_2)))" "(1/instance-set-variable-value!" "(definitions-variables d_10)" " name_18" -" val_14" +" val_26" "(if as-constant?_0 'constant #f)))))))))))))" "(case-lambda" -"((ns_10 phase-level_3 name_19 val_26)" -"(begin(namespace-set-variable!18_0 ns_10 phase-level_3 name_19 val_26 #f #f)))" -"((ns_11 phase-level_4 name_20 val_27 as-constant?12_1)" -"(namespace-set-variable!18_0 ns_11 phase-level_4 name_20 val_27 as-constant?12_1 #t)))))" +"((ns_10 phase-level_3 name_19 val_27)" +"(begin(namespace-set-variable!18_0 ns_10 phase-level_3 name_19 val_27 #f #f)))" +"((ns_11 phase-level_4 name_20 val_28 as-constant?12_1)" +"(namespace-set-variable!18_0 ns_11 phase-level_4 name_20 val_28 as-constant?12_1 #t)))))" "(define-values" "(namespace-set-consistent!)" -"(lambda(ns_12 phase-level_5 name_21 val_28)" +"(lambda(ns_12 phase-level_5 name_21 val_29)" "(begin" "(let-values(((d_11)(namespace->definitions ns_12 phase-level_5)))" -"(1/instance-set-variable-value!(definitions-variables d_11) name_21 val_28 'consistent)))))" +"(1/instance-set-variable-value!(definitions-variables d_11) name_21 val_29 'consistent)))))" "(define-values" "(namespace-unset-variable!)" "(lambda(ns_13 phase-level_6 name_22)" @@ -12089,10 +12334,10 @@ static const char *startup_source = "(1/instance-unset-variable!(definitions-variables d_12) name_22)))))" "(define-values" "(namespace-set-transformer!)" -"(lambda(ns_14 phase-level_7 name_23 val_29)" +"(lambda(ns_14 phase-level_7 name_23 val_30)" "(begin" "(let-values(((d_13)(namespace->definitions ns_14(add1 phase-level_7))))" -"(hash-set!(definitions-transformers d_13) name_23 val_29)))))" +"(hash-set!(definitions-transformers d_13) name_23 val_30)))))" "(define-values" "(namespace-unset-transformer!)" "(lambda(ns_15 phase-level_8 name_24)" @@ -12128,16 +12373,16 @@ static const char *startup_source = "(begin" " 'syntax->list" "(let-values(((l_46)" -"((letrec-values(((loop_74)" +"((letrec-values(((loop_75)" "(lambda(s_1)" "(begin" " 'loop" "(if(pair? s_1)" -"(let-values()(cons(car s_1)(loop_74(cdr s_1))))" +"(let-values()(cons(car s_1)(loop_75(cdr s_1))))" "(if(syntax?$1 s_1)" -"(let-values()(loop_74(syntax-e$1 s_1)))" +"(let-values()(loop_75(syntax-e$1 s_1)))" "(let-values() s_1)))))))" -" loop_74)" +" loop_75)" " s_0)))" "(if(list? l_46) l_46 #f)))))" "(define-values(missing$1)(gensym))" @@ -12154,8 +12399,8 @@ static const char *startup_source = " id1_0" "(if(identifier? old-stx_0)" " old-stx_0" -"(let-values(((v_92)(syntax-e/no-taint old-stx_0)))" -"(if(pair? v_92)(car v_92) #f))))))" +"(let-values(((v_93)(syntax-e/no-taint old-stx_0)))" +"(if(pair? v_93)(car v_93) #f))))))" "(let-values()" "(let-values(((old-props_0)(syntax-props old-stx_0)))" "(if(zero?(hash-count old-props_0))" @@ -12219,21 +12464,21 @@ static const char *startup_source = "(hash-count old-props-with-origin_0)" "(hash-count new-props_0))" "(let-values()" -"(let-values(((ht_60) old-props-with-origin_0))" +"(let-values(((ht_63) old-props-with-origin_0))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-in-immutable-hash ht_60)))" -"((letrec-values(((for-loop_68)" -"(lambda(new-props_1 i_74)" +"(let-values()(check-in-immutable-hash ht_63)))" +"((letrec-values(((for-loop_72)" +"(lambda(new-props_1 i_77)" "(begin" " 'for-loop" -"(if i_74" -"(let-values(((k_16 v_82)" +"(if i_77" +"(let-values(((k_16 v_83)" "(unsafe-immutable-hash-iterate-key+value" -" ht_60" -" i_74)))" +" ht_63" +" i_77)))" "(let-values(((new-props_2)" "(let-values(((new-props_3)" " new-props_1))" @@ -12250,39 +12495,39 @@ static const char *startup_source = "(if(eq?" " new-v_0" " missing$1)" -" v_82" +" v_83" "(cons/preserve" " new-v_0" -" v_82)))))))" +" v_83)))))))" "(values" " new-props_4)))))" "(if(not #f)" -"(for-loop_68" +"(for-loop_72" " new-props_2" "(unsafe-immutable-hash-iterate-next" -" ht_60" -" i_74))" +" ht_63" +" i_77))" " new-props_2)))" " new-props_1)))))" -" for-loop_68)" +" for-loop_72)" " new-props_0" -"(unsafe-immutable-hash-iterate-first ht_60)))))" +"(unsafe-immutable-hash-iterate-first ht_63)))))" "(let-values()" -"(let-values(((ht_68) new-props_0))" +"(let-values(((ht_71) new-props_0))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-in-immutable-hash ht_68)))" -"((letrec-values(((for-loop_77)" -"(lambda(old-props_1 i_82)" +"(let-values()(check-in-immutable-hash ht_71)))" +"((letrec-values(((for-loop_81)" +"(lambda(old-props_1 i_85)" "(begin" " 'for-loop" -"(if i_82" +"(if i_85" "(let-values(((k_17 v_5)" "(unsafe-immutable-hash-iterate-key+value" -" ht_68" -" i_82)))" +" ht_71" +" i_85)))" "(let-values(((old-props_2)" "(let-values(((old-props_3)" " old-props_1))" @@ -12306,16 +12551,16 @@ static const char *startup_source = "(values" " old-props_4)))))" "(if(not #f)" -"(for-loop_77" +"(for-loop_81" " old-props_2" "(unsafe-immutable-hash-iterate-next" -" ht_68" -" i_82))" +" ht_71" +" i_85))" " old-props_2)))" " old-props_1)))))" -" for-loop_77)" +" for-loop_81)" " old-props-with-origin_0" -"(unsafe-immutable-hash-iterate-first ht_68))))))))" +"(unsafe-immutable-hash-iterate-first ht_71))))))))" "(let-values(((the-struct_37) new-stx_0))" "(if(syntax?$1 the-struct_37)" "(let-values(((props9_0) updated-props_0))" @@ -12337,36 +12582,36 @@ static const char *startup_source = "((new-stx_2 old-stx_2 id1_1)(syntax-track-origin5_0 new-stx_2 old-stx_2 id1_1 #t)))))" "(define-values" "(cons/preserve)" -"(lambda(a_34 b_57)" +"(lambda(a_34 b_56)" "(begin" "(if(let-values(((or-part_141)(preserved-property-value? a_34)))" -"(if or-part_141 or-part_141(preserved-property-value? b_57)))" -"(preserved-property-value1.1(cons(plain-property-value a_34)(plain-property-value b_57)))" -"(cons a_34 b_57)))))" +"(if or-part_141 or-part_141(preserved-property-value? b_56)))" +"(preserved-property-value1.1(cons(plain-property-value a_34)(plain-property-value b_56)))" +"(cons a_34 b_56)))))" "(define-values" "(syntax-track-origin*)" "(lambda(old-stxes_0 new-stx_3)" "(begin" -"(let-values(((lst_57) old-stxes_0))" +"(let-values(((lst_58) old-stxes_0))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_57)))" -"((letrec-values(((for-loop_78)" -"(lambda(new-stx_4 lst_58)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_58)))" +"((letrec-values(((for-loop_82)" +"(lambda(new-stx_4 lst_59)" "(begin" " 'for-loop" -"(if(pair? lst_58)" -"(let-values(((old-stx_3)(unsafe-car lst_58))((rest_25)(unsafe-cdr lst_58)))" +"(if(pair? lst_59)" +"(let-values(((old-stx_3)(unsafe-car lst_59))((rest_26)(unsafe-cdr lst_59)))" "(let-values(((new-stx_5)" "(let-values(((new-stx_6) new-stx_4))" "(let-values(((new-stx_7)" "(let-values()" "(syntax-track-origin$1 new-stx_6 old-stx_3))))" "(values new-stx_7)))))" -"(if(not #f)(for-loop_78 new-stx_5 rest_25) new-stx_5)))" +"(if(not #f)(for-loop_82 new-stx_5 rest_26) new-stx_5)))" " new-stx_4)))))" -" for-loop_78)" +" for-loop_82)" " new-stx_3" -" lst_57))))))" +" lst_58))))))" "(define-values" "(1/struct:exn:fail:syntax make-exn:fail:syntax$1 1/exn:fail:syntax? 1/exn:fail:syntax-exprs)" "(let-values(((struct:_27 make-_27 ?_27 -ref_27 -set!_27)" @@ -12577,11 +12822,11 @@ static const char *startup_source = " extra-sources_4)))))))))))))))" "(define-values" "(extract-form-name)" -"(lambda(s_157)" +"(lambda(s_158)" "(begin" -"(if(syntax?$1 s_157)" +"(if(syntax?$1 s_158)" "(let-values()" -"(let-values(((e_17)(syntax-e$1 s_157)))" +"(let-values(((e_17)(syntax-e$1 s_158)))" "(if(symbol? e_17)" "(let-values() e_17)" "(if(if(pair? e_17)(identifier?(car e_17)) #f)" @@ -12590,11 +12835,11 @@ static const char *startup_source = "(let-values() #f)))))" "(define-values" "(extract-source-location)" -"(lambda(s_81)" +"(lambda(s_159)" "(begin" -"(if(syntax?$1 s_81)" -"(if(syntax-srcloc s_81)" -" (let-values (((str_2) (srcloc->string (syntax-srcloc s_81)))) (if str_2 (string-append str_2 \": \") #f))" +"(if(syntax?$1 s_159)" +"(if(syntax-srcloc s_159)" +" (let-values (((str_2) (srcloc->string (syntax-srcloc s_159)))) (if str_2 (string-append str_2 \": \") #f))" " #f)" " #f))))" "(define-values" @@ -12855,7 +13100,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_26) 0))" +"(let-values(((phase_27) 0))" "(let-values(((name_28)(1/module-path-index-resolve name-mpi_0)))" "(let-values(((m-ns_1)" "(let-values(((the-struct_38)" @@ -12866,8 +13111,8 @@ static const char *startup_source = "(if(1/namespace? the-struct_38)" "(let-values(((mpi152_0) name-mpi_0)" "((source-name153_0)(resolved-module-path-root-name name_28))" -"((phase154_0) phase_26)" -"((0-phase155_0) phase_26)" +"((phase154_0) phase_27)" +"((0-phase155_0) phase_27)" "((submodule-declarations156_0)" "(if for-submodule?_0" "(namespace-submodule-declarations ns_20)" @@ -12894,11 +13139,11 @@ static const char *startup_source = " (raise-argument-error 'struct-copy \"namespace?\" the-struct_38)))))" "(let-values((()" "(begin" -"(small-hash-set!(namespace-phase-to-namespace m-ns_1) phase_26 m-ns_1)" +"(small-hash-set!(namespace-phase-to-namespace m-ns_1) phase_27 m-ns_1)" "(values))))" "(let-values(((at-phase_0)(make-hasheq)))" "(begin" -"(hash-set!(namespace-module-instances m-ns_1) phase_26 at-phase_0)" +"(hash-set!(namespace-module-instances m-ns_1) phase_27 at-phase_0)" "(hash-set! at-phase_0 name_28(make-module-instance m-ns_1 #f))" " m-ns_1))))))))))))))" "(define-values" @@ -12957,24 +13202,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_27)(namespace-phase ns_21)))" -"(let-values(((visit?_0)(eq? 'started(small-hash-ref states_0(add1 phase_27) #f))))" -"(let-values(((run?_0)(eq? 'started(small-hash-ref states_0 phase_27 #f))))" -"(let-values(((at-phase_1)(hash-ref(namespace-module-instances ns_21) phase_27)))" +"(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)))" "(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_27))" +"((phase168_0) phase_28))" "(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_27))" +"((phase171_0) phase_28))" "(namespace-module-instantiate!96.1" " #f" " #f" @@ -13048,14 +13293,14 @@ static const char *startup_source = " #f)))" "(if or-part_148" " or-part_148" -"(let-values(((or-part_112)" -"(let-values(((c-ns_0)" "(let-values(((or-part_149)" +"(let-values(((c-ns_0)" +"(let-values(((or-part_150)" "(namespace-root-namespace ns_23)))" -"(if or-part_149 or-part_149 ns_23))))" +"(if or-part_150 or-part_150 ns_23))))" "(hash-ref(namespace-module-instances c-ns_0) name_30 #f))))" -"(if or-part_112" -" or-part_112" +"(if or-part_149" +" or-part_149" "(if complain-on-failure?_0" " (error \"no module instance found:\" name_30 0-phase_1)" " #f)))))))" @@ -13114,7 +13359,7 @@ static const char *startup_source = "(namespace->definitions existing-m-ns_0 1))" "(hash-set!" "(namespace-module-instances" -"(let-values(((or-part_150)(namespace-root-namespace ns_24)))(if or-part_150 or-part_150 ns_24)))" +"(let-values(((or-part_151)(namespace-root-namespace ns_24)))(if or-part_151 or-part_151 ns_24)))" " name_31" " mi_1)" "(small-hash-set!(module-instance-phase-level-to-state mi_1) 0 'started)))" @@ -13133,10 +13378,10 @@ static const char *startup_source = "(small-hash-set!(module-instance-phase-level-to-state mi_1) 0 'started)" "(values))))" "(let-values(((at-phase_2)" -"(let-values(((or-part_151)" +"(let-values(((or-part_152)" "(hash-ref(namespace-module-instances ns_24) 0-phase_2 #f)))" -"(if or-part_151" -" or-part_151" +"(if or-part_152" +" or-part_152" "(let-values(((at-phase_3)(make-hasheq)))" "(begin" "(hash-set!(namespace-module-instances ns_24) 0-phase_2 at-phase_3)" @@ -13151,9 +13396,9 @@ static const char *startup_source = "(if(1/namespace? the-struct_40)" "(let-values(((mpi181_0) mpi_14)" "((source-name182_0)" -"(let-values(((or-part_152)(module-source-name m_5)))" -"(if or-part_152" -" or-part_152" +"(let-values(((or-part_153)(module-source-name m_5)))" +"(if or-part_153" +" or-part_153" "(resolved-module-path-root-name(1/module-path-index-resolve mpi_14)))))" "((root-expand-ctx183_0)(box #f))" "((phase184_0) 0-phase_3)" @@ -13185,9 +13430,9 @@ static const char *startup_source = "(if(module-cross-phase-persistent? m_5)" "(hash-set!(namespace-module-instances ns_25) name_32 mi_2)" "(let-values(((at-phase_4)" -"(let-values(((or-part_117)(hash-ref(namespace-module-instances ns_25) 0-phase_3 #f)))" -"(if or-part_117" -" or-part_117" +"(let-values(((or-part_154)(hash-ref(namespace-module-instances ns_25) 0-phase_3 #f)))" +"(if or-part_154" +" or-part_154" "(let-values(((at-phase_5)(make-hasheq)))" "(begin" "(hash-set!(namespace-module-instances ns_25) 0-phase_3 at-phase_5)" @@ -13251,10 +13496,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_28)" +"(lambda(ns_27 mod-name_7 phase_29)" "(begin" "(let-values(((mi_5)" -"(let-values(((ns196_0) ns_27)((mod-name197_0) mod-name_7)((phase198_0) phase_28))" +"(let-values(((ns196_0) ns_27)((mod-name197_0) mod-name_7)((phase198_0) phase_29))" "(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" @@ -13302,7 +13547,7 @@ static const char *startup_source = "(begin" " 'instantiate!" "(let-values(((mi_6)" -"(let-values(((or-part_153)" +"(let-values(((or-part_155)" "(let-values(((ns205_0) ns_30)" "((name206_0) name_34)" "((instance-phase207_0)" @@ -13317,8 +13562,8 @@ static const char *startup_source = " ns205_0" " name206_0" " instance-phase207_0))))" -"(if or-part_153" -" or-part_153" +"(if or-part_155" +" or-part_155" "(namespace-create-module-instance!" " ns_30" " name_34" @@ -13344,8 +13589,8 @@ static const char *startup_source = "(instantiate!_0" " 0" " 0" -"(let-values(((or-part_154)(namespace-root-namespace ns_29)))" -"(if or-part_154 or-part_154 ns_29))))" +"(let-values(((or-part_156)(namespace-root-namespace ns_29)))" +"(if or-part_156 or-part_156 ns_29))))" "(let-values()(instantiate!_0 instance-phase_0 run-phase_0 ns_29)))))))))))))))))))" "(define-values" "(namespace-module-visit!104.1)" @@ -13416,17 +13661,17 @@ static const char *startup_source = "(let-values(((m-ns_5)(module-instance-namespace mi_7)))" "(let-values(((instance-phase_4)(namespace-0-phase m-ns_5)))" "(let-values(((run-phase-level_0)(phase- run-phase_2 instance-phase_4)))" -"(if(if(let-values(((or-part_155) skip-run?_1))" -"(if or-part_155" -" or-part_155" +"(if(if(let-values(((or-part_157) skip-run?_1))" +"(if or-part_157" +" or-part_157" "(eq?" " 'started" "(small-hash-ref" "(module-instance-phase-level-to-state mi_7)" " run-phase-level_0" " #f))))" -"(let-values(((or-part_156)(not otherwise-available?_1)))" -"(if or-part_156 or-part_156(module-instance-made-available? mi_7)))" +"(let-values(((or-part_158)(not otherwise-available?_1)))" +"(if or-part_158 or-part_158(module-instance-made-available? mi_7)))" " #f)" "(void)" "(let-values()" @@ -13445,20 +13690,20 @@ static const char *startup_source = "(set-module-instance-shifted-requires!" " mi_7" "(reverse$1" -"(let-values(((lst_59)(module-requires m_9)))" +"(let-values(((lst_60)(module-requires m_9)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_59)))" -"((letrec-values(((for-loop_79)" -"(lambda(fold-var_43 lst_60)" +"(let-values()(check-list lst_60)))" +"((letrec-values(((for-loop_83)" +"(lambda(fold-var_43 lst_61)" "(begin" " 'for-loop" -"(if(pair? lst_60)" +"(if(pair? lst_61)" "(let-values(((phase+mpis_0)" -"(unsafe-car lst_60))" -"((rest_26)" -"(unsafe-cdr lst_60)))" +"(unsafe-car lst_61))" +"((rest_27)" +"(unsafe-cdr lst_61)))" "(let-values(((fold-var_44)" "(let-values(((fold-var_45)" " fold-var_43))" @@ -13470,7 +13715,7 @@ static const char *startup_source = "(car" " phase+mpis_0)" "(reverse$1" -"(let-values(((lst_61)" +"(let-values(((lst_62)" "(cdr" " phase+mpis_0)))" "(begin" @@ -13479,20 +13724,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_61)))" -"((letrec-values(((for-loop_80)" +" lst_62)))" +"((letrec-values(((for-loop_84)" "(lambda(fold-var_47" -" lst_62)" +" lst_63)" "(begin" " 'for-loop" "(if(pair?" -" lst_62)" +" lst_63)" "(let-values(((req-mpi_0)" "(unsafe-car" -" lst_62))" -"((rest_27)" +" lst_63))" +"((rest_28)" "(unsafe-cdr" -" lst_62)))" +" lst_63)))" "(let-values(((fold-var_48)" "(let-values(((fold-var_49)" " fold-var_47))" @@ -13510,35 +13755,35 @@ static const char *startup_source = " fold-var_50)))))" "(if(not" " #f)" -"(for-loop_80" +"(for-loop_84" " fold-var_48" -" rest_27)" +" rest_28)" " fold-var_48)))" " fold-var_47)))))" -" for-loop_80)" +" for-loop_84)" " null" -" lst_61))))))" +" lst_62))))))" " fold-var_45))))" "(values fold-var_46)))))" "(if(not #f)" -"(for-loop_79 fold-var_44 rest_26)" +"(for-loop_83 fold-var_44 rest_27)" " fold-var_44)))" " fold-var_43)))))" -" for-loop_79)" +" for-loop_83)" " null" -" lst_59)))))))" -"(let-values(((lst_63)(module-instance-shifted-requires mi_7)))" +" lst_60)))))))" +"(let-values(((lst_64)(module-instance-shifted-requires mi_7)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_63)))" -"((letrec-values(((for-loop_81)" -"(lambda(lst_64)" +"(let-values()(check-list lst_64)))" +"((letrec-values(((for-loop_85)" +"(lambda(lst_65)" "(begin" " 'for-loop" -"(if(pair? lst_64)" -"(let-values(((phase+mpis_1)(unsafe-car lst_64))" -"((rest_28)(unsafe-cdr lst_64)))" +"(if(pair? lst_65)" +"(let-values(((phase+mpis_1)(unsafe-car lst_65))" +"((rest_29)(unsafe-cdr lst_65)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -13549,7 +13794,7 @@ static const char *startup_source = "(car" " phase+mpis_1)))" "(begin" -"(let-values(((lst_65)" +"(let-values(((lst_66)" "(cdr" " phase+mpis_1)))" "(begin" @@ -13558,19 +13803,19 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_65)))" -"((letrec-values(((for-loop_82)" -"(lambda(lst_66)" +" lst_66)))" +"((letrec-values(((for-loop_86)" +"(lambda(lst_67)" "(begin" " 'for-loop" "(if(pair?" -" lst_66)" +" lst_67)" "(let-values(((req-mpi_1)" "(unsafe-car" -" lst_66))" -"((rest_29)" +" lst_67))" +"((rest_30)" "(unsafe-cdr" -" lst_66)))" +" lst_67)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -13612,19 +13857,19 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_82" -" rest_29)" +"(for-loop_86" +" rest_30)" "(values))))" "(values))))))" -" for-loop_82)" -" lst_65)))" +" for-loop_86)" +" lst_66)))" "(void))))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_81 rest_28)(values))))" +"(if(not #f)(for-loop_85 rest_29)(values))))" "(values))))))" -" for-loop_81)" -" lst_63)))" +" for-loop_85)" +" lst_64)))" "(void)" "(if(label-phase? instance-phase_4)" "(void)" @@ -13637,7 +13882,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-range start_13 end_9 inc_3)))" -"((letrec-values(((for-loop_83)" +"((letrec-values(((for-loop_87)" "(lambda(pos_10)" "(begin" " 'for-loop" @@ -13649,14 +13894,14 @@ static const char *startup_source = "(let-values()" "(begin" "(let-values()" -"(let-values(((phase_29)" +"(let-values(((phase_30)" "(phase+" " phase-level_13" " phase-shift_3)))" "(if(if(not" " skip-run?_1)" "(eqv?" -" phase_29" +" phase_30" " run-phase_2)" " #f)" "(let-values()" @@ -13687,7 +13932,7 @@ static const char *startup_source = "(let-values(((p-ns_2)" "(namespace->namespace-at-phase" " m-ns_5" -" phase_29)))" +" phase_30)))" "(let-values(((insp_5)" "(module-inspector" " m_9)))" @@ -13733,7 +13978,7 @@ static const char *startup_source = "(hash-update!" "(namespace-available-module-instances" " ns_33)" -" phase_29" +" phase_30" "(lambda(l_47)" "(cons" " mi_7" @@ -13748,10 +13993,10 @@ static const char *startup_source = "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_83(+ pos_10 inc_3))" +"(for-loop_87(+ pos_10 inc_3))" "(values))))" "(values))))))" -" for-loop_83)" +" for-loop_87)" " start_13)))" "(void))))" "(if otherwise-available?_1" @@ -13791,7 +14036,7 @@ static const char *startup_source = "(registry-call-with-lock" "(1/namespace-module-registry ns_37)" "(lambda()" -"((letrec-values(((loop_75)" +"((letrec-values(((loop_76)" "(lambda()" "(begin" " 'loop" @@ -13808,23 +14053,23 @@ static const char *startup_source = "(namespace-available-module-instances ns_37)" " run-phase_4" " null)" -"(let-values(((lst_67)(reverse$1 mis_0)))" +"(let-values(((lst_68)(reverse$1 mis_0)))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_67)))" -"((letrec-values(((for-loop_84)" -"(lambda(lst_68)" +"(let-values()(check-list lst_68)))" +"((letrec-values(((for-loop_88)" +"(lambda(lst_69)" "(begin" " 'for-loop" -"(if(pair? lst_68)" +"(if(pair? lst_69)" "(let-values(((mi_8)" "(unsafe-car" -" lst_68))" -"((rest_30)" +" lst_69))" +"((rest_31)" "(unsafe-cdr" -" lst_68)))" +" lst_69)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -13852,14 +14097,14 @@ static const char *startup_source = "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_84 rest_30)" +"(for-loop_88 rest_31)" "(values))))" "(values))))))" -" for-loop_84)" -" lst_67)))" +" for-loop_88)" +" lst_68)))" "(void)" -"(loop_75)))))))))" -" loop_75)))))))))))))" +"(loop_76)))))))))" +" loop_76)))))))))))))" "(case-lambda" "((ns_38)(begin(namespace-run-available-modules!136_0 ns_38 #f #f)))" "((ns_39 run-phase133_1)(namespace-run-available-modules!136_0 ns_39 run-phase133_1 #t)))))" @@ -13924,15 +14169,15 @@ static const char *startup_source = "(lambda(requires_1)" "(begin" "(reverse$1" -"(let-values(((lst_69) requires_1))" +"(let-values(((lst_70) requires_1))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_69)))" -"((letrec-values(((for-loop_85)" -"(lambda(fold-var_51 lst_70)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_70)))" +"((letrec-values(((for-loop_89)" +"(lambda(fold-var_51 lst_71)" "(begin" " 'for-loop" -"(if(pair? lst_70)" -"(let-values(((phase+mpis_2)(unsafe-car lst_70))((rest_31)(unsafe-cdr lst_70)))" +"(if(pair? lst_71)" +"(let-values(((phase+mpis_2)(unsafe-car lst_71))((rest_32)(unsafe-cdr lst_71)))" "(let-values(((fold-var_52)" "(let-values(((fold-var_53) fold-var_51))" "(let-values(((fold-var_54)" @@ -13942,24 +14187,24 @@ static const char *startup_source = "(cons" "(car phase+mpis_2)" "(reverse$1" -"(let-values(((lst_71)(cdr phase+mpis_2)))" +"(let-values(((lst_72)(cdr phase+mpis_2)))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_71)))" -"((letrec-values(((for-loop_86)" +"(let-values()(check-list lst_72)))" +"((letrec-values(((for-loop_90)" "(lambda(fold-var_55" -" lst_72)" +" lst_73)" "(begin" " 'for-loop" -"(if(pair? lst_72)" +"(if(pair? lst_73)" "(let-values(((req-mpi_2)" "(unsafe-car" -" lst_72))" -"((rest_32)" +" lst_73))" +"((rest_33)" "(unsafe-cdr" -" lst_72)))" +" lst_73)))" "(let-values(((fold-var_56)" "(let-values(((fold-var_57)" " fold-var_55))" @@ -13973,47 +14218,47 @@ static const char *startup_source = "(values" " fold-var_58)))))" "(if(not #f)" -"(for-loop_86" +"(for-loop_90" " fold-var_56" -" rest_32)" +" rest_33)" " fold-var_56)))" " fold-var_55)))))" -" for-loop_86)" +" for-loop_90)" " null" -" lst_71))))))" +" lst_72))))))" " fold-var_53))))" "(values fold-var_54)))))" -"(if(not #f)(for-loop_85 fold-var_52 rest_31) fold-var_52)))" +"(if(not #f)(for-loop_89 fold-var_52 rest_32) fold-var_52)))" " fold-var_51)))))" -" for-loop_85)" +" for-loop_89)" " null" -" lst_69)))))))" +" lst_70)))))))" "(define-values" "(module-compute-access!)" "(lambda(m_10)" "(begin" "(let-values(((access_0)" -"(let-values(((ht_69)(module-provides m_10)))" +"(let-values(((ht_72)(module-provides m_10)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_69)))" -"((letrec-values(((for-loop_87)" -"(lambda(table_94 i_83)" +"(let-values()(check-in-hash ht_72)))" +"((letrec-values(((for-loop_91)" +"(lambda(table_99 i_86)" "(begin" " 'for-loop" -"(if i_83" -"(let-values(((phase_30 at-phase_6)" -"(hash-iterate-key+value ht_69 i_83)))" -"(let-values(((table_95)" -"(let-values(((table_96) table_94))" -"(let-values(((table_97)" +"(if i_86" +"(let-values(((phase_31 at-phase_6)" +"(hash-iterate-key+value ht_72 i_86)))" +"(let-values(((table_100)" +"(let-values(((table_101) table_99))" +"(let-values(((table_102)" "(let-values()" -"(let-values(((key_38 val_30)" +"(let-values(((key_39 val_31)" "(let-values()" "(values" -" phase_30" -"(let-values(((ht_70)" +" phase_31" +"(let-values(((ht_73)" " at-phase_6))" "(begin" "(if(variable-reference-from-unsafe?" @@ -14021,25 +14266,25 @@ static const char *startup_source = "(void)" "(let-values()" "(check-in-hash" -" ht_70)))" -"((letrec-values(((for-loop_88)" -"(lambda(table_98" -" i_84)" +" ht_73)))" +"((letrec-values(((for-loop_92)" +"(lambda(table_103" +" i_87)" "(begin" " 'for-loop" -"(if i_84" +"(if i_87" "(let-values(((sym_20" " binding/p_1)" "(hash-iterate-key+value" -" ht_70" -" i_84)))" -"(let-values(((table_99)" -"(let-values(((table_100)" -" table_98))" -"(let-values(((table_101)" +" ht_73" +" i_87)))" +"(let-values(((table_104)" +"(let-values(((table_105)" +" table_103))" +"(let-values(((table_106)" "(let-values()" -"(let-values(((key_39" -" val_31)" +"(let-values(((key_40" +" val_32)" "(let-values()" "(values" "(module-binding-sym" @@ -14050,42 +14295,42 @@ static const char *startup_source = " 'protected" " 'provided)))))" "(hash-set" -" table_100" -" key_39" -" val_31)))))" +" table_105" +" key_40" +" val_32)))))" "(values" -" table_101)))))" +" table_106)))))" "(if(not" " #f)" -"(for-loop_88" -" table_99" +"(for-loop_92" +" table_104" "(hash-iterate-next" -" ht_70" -" i_84))" -" table_99)))" -" table_98)))))" -" for-loop_88)" +" ht_73" +" i_87))" +" table_104)))" +" table_103)))))" +" for-loop_92)" " '#hash()" "(hash-iterate-first" -" ht_70))))))))" +" ht_73))))))))" "(hash-set" -" table_96" -" key_38" -" val_30)))))" -"(values table_97)))))" +" table_101" +" key_39" +" val_31)))))" +"(values table_102)))))" "(if(not #f)" -"(for-loop_87 table_95(hash-iterate-next ht_69 i_83))" -" table_95)))" -" table_94)))))" -" for-loop_87)" +"(for-loop_91 table_100(hash-iterate-next ht_72 i_86))" +" table_100)))" +" table_99)))))" +" for-loop_91)" " '#hasheqv()" -"(hash-iterate-first ht_69))))))" +"(hash-iterate-first ht_72))))))" "(begin(set-module-access! m_10 access_0) access_0)))))" "(define-values" "(binding->module-instance)" -"(lambda(b_41 ns_42 phase_31 id_11)" +"(lambda(b_41 ns_42 phase_32 id_11)" "(begin" -"(let-values(((at-phase_7)(phase- phase_31(module-binding-phase b_41))))" +"(let-values(((at-phase_7)(phase- phase_32(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)))" @@ -14123,7 +14368,7 @@ static const char *startup_source = " \" definition phase: ~a\\n\"" " \" for identifier: ~s\")" "(module-binding-module b_41)" -" phase_31" +" phase_32" "(module-binding-phase b_41)" " id_11)))" " mi_11))))))" @@ -14146,13 +14391,13 @@ static const char *startup_source = "(if or-part_10 or-part_10(eq? a_35 'protected)))" "(let-values()" "(begin" -"(if(let-values(((or-part_157)" +"(if(let-values(((or-part_159)" "(inspector-superior?" "(let-values(((or-part_12)(syntax-inspector id_12)))" "(if or-part_12 or-part_12(current-code-inspector)))" "(namespace-inspector(module-instance-namespace mi_13)))))" -"(if or-part_157" -" or-part_157" +"(if or-part_159" +" or-part_159" "(if(module-binding-extra-inspector b_41)" "(inspector-superior?" "(module-binding-extra-inspector b_41)" @@ -14185,14 +14430,14 @@ static const char *startup_source = "(let-values() #f))))))" "(define-values" "(resolve+shift/extra-inspector)" -"(lambda(id_13 phase_32 ns_43)" +"(lambda(id_13 phase_33 ns_43)" "(begin" -"((letrec-values(((loop_76)" +"((letrec-values(((loop_77)" "(lambda(id_2 in-s_1)" "(begin" " 'loop" "(let-values(((b_46)" -"(let-values(((id1_2) id_2)((phase2_0) phase_32)((temp3_0) #t))" +"(let-values(((id1_2) id_2)((phase2_0) phase_33)((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_46)))" "(if c1_22" @@ -14208,16 +14453,16 @@ static const char *startup_source = "(binding->module-instance" " b_46" " ns_43" -" phase_32" +" phase_33" " id_2)))" " (check-access b_46 mi_14 id_2 in-s_1 \"provided binding\")))" "(void))" "(values))))" "(let-values(((next-b_0)" -"(loop_76" +"(loop_77" " next-id_0" -"(let-values(((or-part_75) in-s_1))" -"(if or-part_75 or-part_75 id_2)))))" +"(let-values(((or-part_73) in-s_1))" +"(if or-part_73 or-part_73 id_2)))))" "(if(not next-b_0)" "(let-values() b_46)" "(if(if(module-binding? next-b_0)" @@ -14254,7 +14499,7 @@ static const char *startup_source = "(let-values() next-b_0))))))" " c1_22)" "(let-values() b_46))))))))" -" loop_76)" +" loop_77)" " id_13" " #f))))" "(define-values" @@ -14347,10 +14592,10 @@ static const char *startup_source = "(lambda(t_36)" "(begin" " 'set!-transformer-procedure" -"(let-values(((v_93)((set!-transformer-value t_36) t_36)))" -"(if(procedure-arity-includes? v_93 1) v_93(lambda(s_158)(v_93 t_36 s_158)))))))" +"(let-values(((v_94)((set!-transformer-value t_36) t_36)))" +"(if(procedure-arity-includes? v_94 1) v_94(lambda(s_160)(v_94 t_36 s_160)))))))" "(define-values(empty-env) '#hasheq())" -"(define-values(env-extend)(lambda(env_0 key_40 val_19)(begin(hash-set env_0 key_40 val_19))))" +"(define-values(env-extend)(lambda(env_0 key_41 val_20)(begin(hash-set env_0 key_41 val_20))))" "(define-values(variable)(gensym 'variable))" "(define-values" "(variable?)" @@ -14395,15 +14640,15 @@ static const char *startup_source = "(let-values(((or-part_21)(procedure? t_38)))" "(if or-part_21" " or-part_21" -"(let-values(((or-part_158)(1/set!-transformer? t_38)))" -"(if or-part_158 or-part_158(1/rename-transformer? t_38))))))))" +"(let-values(((or-part_160)(1/set!-transformer? t_38)))" +"(if or-part_160 or-part_160(1/rename-transformer? t_38))))))))" "(define-values" "(transformer->procedure)" "(lambda(t_18)" "(begin" "(if(1/set!-transformer? t_18)" "(let-values()(1/set!-transformer-procedure t_18))" -"(if(1/rename-transformer? t_18)(let-values()(lambda(s_159) s_159))(let-values() t_18))))))" +"(if(1/rename-transformer? t_18)(let-values()(lambda(s_161) s_161))(let-values() t_18))))))" "(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)" @@ -14433,16 +14678,16 @@ static const char *startup_source = "(begin" " 'add-binding!17" "(let-values(((id_14) id14_0))" -"(let-values(((binding_9) binding15_0))" -"(let-values(((phase_33) phase16_0))" +"(let-values(((binding_8) binding15_0))" +"(let-values(((phase_34) 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_14 in-s_2)" -"(let-values(((temp55_1)(syntax-scope-set id_14 phase_33))" +"(let-values(((temp55_1)(syntax-scope-set id_14 phase_34))" "((temp56_0)(syntax-e$1 id_14))" -"((binding57_0) binding_9)" +"((binding57_0) binding_8)" "((just-for-nominal?58_0) just-for-nominal?_2))" "(add-binding-in-scopes!20.1 just-for-nominal?58_0 #t temp55_1 temp56_0 binding57_0))))))))))))" "(define-values" @@ -14450,18 +14695,18 @@ 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_157) s24_0))" -"(let-values(((binding_10) binding25_0))" -"(let-values(((phase_34) phase26_1))" +"(let-values(((s_158) s24_0))" +"(let-values(((binding_9) binding25_0))" +"(let-values(((phase_35) 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_157)" -" (let-values () (raise-syntax-error$1 #f \"cannot bind from tainted syntax\" in-s_3 s_157))" +"(if(syntax-tainted?$1 s_158)" +" (let-values () (raise-syntax-error$1 #f \"cannot bind from tainted syntax\" in-s_3 s_158))" "(void))" -"(let-values(((temp59_1)(syntax-scope-set s_157 phase_34))" -"((binding60_0) binding_10)" +"(let-values(((temp59_1)(syntax-scope-set s_158 phase_35))" +"((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))))))))))))" "(define-values" @@ -14470,23 +14715,23 @@ static const char *startup_source = "(begin" " 'add-local-binding!37" "(let-values(((id_15) id34_0))" -"(let-values(((phase_35) phase35_0))" +"(let-values(((phase_36) phase35_0))" "(let-values(((counter_1) counter36_0))" "(let-values(((frame-id_5)(if frame-id32_1 frame-id30_0 #f)))" "(let-values(((in-s_4)(if in33_0 in31_0 #f)))" "(let-values()" "(let-values((()(begin(check-id-taint id_15 in-s_4)(values))))" "(let-values((()(begin(set-box! counter_1(add1(unbox counter_1)))(values))))" -"(let-values(((key_41)" +"(let-values(((key_42)" " (string->uninterned-symbol (format \"~a_~a\" (syntax-e$1 id_15) (unbox counter_1)))))" "(begin" -"(let-values(((temp62_0)(syntax-scope-set id_15 phase_35))" +"(let-values(((temp62_0)(syntax-scope-set id_15 phase_36))" "((temp63_1)(syntax-e$1 id_15))" "((temp64_1)" -"(let-values(((key65_0) key_41)((frame-id66_0) frame-id_5))" +"(let-values(((key65_0) key_42)((frame-id66_0) frame-id_5))" "(make-local-binding7.1 frame-id66_0 #t #f #f key65_0))))" "(add-binding-in-scopes!20.1 #f #f temp62_0 temp63_1 temp64_1))" -" key_41)))))))))))))" +" key_42)))))))))))))" "(define-values" "(check-id-taint)" "(lambda(id_16 in-s_5)" @@ -14508,22 +14753,22 @@ static const char *startup_source = " id49_0)" "(begin" " 'binding-lookup50" -"(let-values(((b_58) b44_0))" +"(let-values(((b_57) 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_36) phase48_0))" +"(let-values(((phase_37) phase48_0))" "(let-values(((id_17) 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_57)" "(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_57))))" "(let-values(((mi_15)" "(if(not top-level?_0)" -"(binding->module-instance b_58 ns_44 phase_36 id_17)" +"(binding->module-instance b_57 ns_44 phase_37 id_17)" " #f)))" "(let-values(((m_12)(if mi_15(module-instance-module mi_15) #f)))" "(let-values(((primitive?_1)(if m_12(module-primitive? m_12) #f)))" @@ -14535,13 +14780,13 @@ static const char *startup_source = "(let-values(((t_39)" "(namespace-get-transformer" " m-ns_7" -"(module-binding-phase b_58)" -"(module-binding-sym b_58)" +"(module-binding-phase b_57)" +"(module-binding-sym b_57)" " variable)))" "(let-values(((protected?_1)" "(if mi_15" "(check-access" -" b_58" +" b_57" " mi_15" " id_17" " in-s_6" @@ -14554,27 +14799,27 @@ static const char *startup_source = " #f)" " #f)))" "(values t_39 primitive?_1 insp_6 protected?_1)))))))))))" -"(if(local-binding? b_58)" +"(if(local-binding? b_57)" "(let-values()" -"(let-values(((t_40)(hash-ref env_1(local-binding-key b_58) missing)))" +"(let-values(((t_40)(hash-ref env_1(local-binding-key b_57) missing)))" "(if(eq? t_40 missing)" "(let-values()" "(values" -"(let-values(((or-part_159)" -"(let-values(((lst_73) lift-envs_0))" +"(let-values(((or-part_161)" +"(let-values(((lst_74) lift-envs_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_73)))" -"((letrec-values(((for-loop_89)" -"(lambda(result_60 lst_74)" +"(let-values()(check-list lst_74)))" +"((letrec-values(((for-loop_93)" +"(lambda(result_60 lst_75)" "(begin" " 'for-loop" -"(if(pair? lst_74)" +"(if(pair? lst_75)" "(let-values(((lift-env_0)" -"(unsafe-car lst_74))" -"((rest_33)" -"(unsafe-cdr lst_74)))" +"(unsafe-car lst_75))" +"((rest_34)" +"(unsafe-cdr lst_75)))" "(let-values(((result_61)" "(let-values()" "(let-values(((result_62)" @@ -14584,7 +14829,7 @@ static const char *startup_source = "(unbox" " lift-env_0)" "(local-binding-key" -" b_58)" +" b_57)" " #f)))))" "(values" " result_62)))))" @@ -14593,14 +14838,14 @@ static const char *startup_source = " lift-env_0))" "(not #f)" " #f)" -"(for-loop_89 result_61 rest_33)" +"(for-loop_93 result_61 rest_34)" " result_61)))" " result_60)))))" -" for-loop_89)" +" for-loop_93)" " #f" -" lst_73)))))" -"(if or-part_159" -" or-part_159" +" lst_74)))))" +"(if or-part_161" +" or-part_161" "(if out-of-context-as-variable?_0" " variable" " (error \"identifier used out of context:\" id_17))))" @@ -14608,7 +14853,7 @@ static const char *startup_source = " #f" " #f))" "(let-values()(begin(check-taint id_17)(values t_40 #f #f #f))))))" -" (let-values () (error \"internal error: unknown binding for lookup:\" b_58))))))))))))))))" +" (let-values () (error \"internal error: unknown binding for lookup:\" b_57))))))))))))))))" "(define-values" "(check-taint)" "(lambda(id_18)" @@ -14616,58 +14861,58 @@ static const char *startup_source = "(if(syntax-tainted?$1 id_18)" " (let-values () (raise-syntax-error$1 #f \"cannot use identifier tainted by macro transformation\" id_18))" "(void)))))" -"(define-values(cons-ish)(lambda(a_36 b_59)(begin(if(null? b_59) a_36(cons a_36 b_59)))))" +"(define-values(cons-ish)(lambda(a_36 b_58)(begin(if(null? b_58) a_36(cons a_36 b_58)))))" "(define-values" "(free-id-set)" -"(lambda(phase_37 ids_0)" +"(lambda(phase_38 ids_0)" "(begin" -"(let-values(((lst_75) ids_0))" +"(let-values(((lst_76) ids_0))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_75)))" -"((letrec-values(((for-loop_90)" -"(lambda(ht_71 lst_76)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_76)))" +"((letrec-values(((for-loop_94)" +"(lambda(ht_74 lst_77)" "(begin" " 'for-loop" -"(if(pair? lst_76)" -"(let-values(((id_19)(unsafe-car lst_76))((rest_34)(unsafe-cdr lst_76)))" -"(let-values(((ht_72)" -"(let-values(((ht_73) ht_71))" -"(let-values(((ht_74)" +"(if(pair? lst_77)" +"(let-values(((id_19)(unsafe-car lst_77))((rest_35)(unsafe-cdr lst_77)))" +"(let-values(((ht_75)" +"(let-values(((ht_76) ht_74))" +"(let-values(((ht_77)" "(let-values()" "(let-values(((sym_21)" "(identifier-binding-symbol$1" " id_19" -" phase_37)))" +" phase_38)))" "(hash-set" -" ht_73" +" ht_76" " sym_21" "(cons-ish" " id_19" -"(hash-ref ht_73 sym_21 null)))))))" -"(values ht_74)))))" -"(if(not #f)(for-loop_90 ht_72 rest_34) ht_72)))" -" ht_71)))))" -" for-loop_90)" +"(hash-ref ht_76 sym_21 null)))))))" +"(values ht_77)))))" +"(if(not #f)(for-loop_94 ht_75 rest_35) ht_75)))" +" ht_74)))))" +" for-loop_94)" " '#hasheq()" -" lst_75))))))" +" lst_76))))))" "(define-values(empty-free-id-set)(free-id-set 0 null))" "(define-values(free-id-set-empty?)(lambda(fs_0)(begin(eq? fs_0 empty-free-id-set))))" "(define-values" "(free-id-set-member?)" -"(lambda(fs_1 phase_38 given-id_0)" +"(lambda(fs_1 phase_39 given-id_0)" "(begin" "(if(zero?(hash-count fs_1))" " #f" -"(let-values(((lst_77)(hash-ref fs_1(identifier-binding-symbol$1 given-id_0 phase_38) null)))" +"(let-values(((lst_78)(hash-ref fs_1(identifier-binding-symbol$1 given-id_0 phase_39) null)))" "(begin" "(void)" -"((letrec-values(((for-loop_91)" -"(lambda(result_3 lst_78)" +"((letrec-values(((for-loop_95)" +"(lambda(result_3 lst_79)" "(begin" " 'for-loop" -"(if(not(null? lst_78))" -"(let-values(((id_20)(if(pair? lst_78)(car lst_78) lst_78))" -"((rest_35)(if(pair? lst_78)(cdr lst_78) null)))" +"(if(not(null? lst_79))" +"(let-values(((id_20)(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)" @@ -14676,16 +14921,16 @@ static const char *startup_source = "(free-identifier=?$1" " id_20" " given-id_0" -" phase_38" -" phase_38)))))" +" phase_39" +" phase_39)))))" "(values result_64)))))" "(if(if(not((lambda x_41 result_63) id_20))(not #f) #f)" -"(for-loop_91 result_63 rest_35)" +"(for-loop_95 result_63 rest_36)" " result_63)))" " result_3)))))" -" for-loop_91)" +" for-loop_95)" " #f" -" lst_77)))))))" +" lst_78)))))))" "(define-values" "(free-id-set-empty-or-just-module*?)" "(lambda(fs_2)(begin(let-values(((c_17)(hash-count fs_2)))(<= c_17 1)))))" @@ -14807,7 +15052,7 @@ static const char *startup_source = " lift-key_1" " to-parsed?_0" " context_0" -" phase_39" +" phase_40" " namespace_0" " env_2" " post-expansion-scope-action_0" @@ -14845,7 +15090,7 @@ static const char *startup_source = " counter_2" " lift-key_1" " to-parsed?_0" -" phase_39" +" phase_40" " namespace_0" " just-once?_0" " module-begin-k_0" @@ -14876,79 +15121,79 @@ static const char *startup_source = " need-eventually-defined_0" " current-introduction-scopes_0" " name_36))))" -"(define-values(expand-context-context)(lambda(v_94)(begin(expand-context/outer-context v_94))))" -"(define-values(expand-context-env)(lambda(v_95)(begin(expand-context/outer-env v_95))))" +"(define-values(expand-context-context)(lambda(v_95)(begin(expand-context/outer-context v_95))))" +"(define-values(expand-context-env)(lambda(v_96)(begin(expand-context/outer-env v_96))))" "(define-values" "(expand-context-post-expansion-scope-action)" -"(lambda(v_96)(begin(expand-context/outer-post-expansion-scope-action v_96))))" -"(define-values(expand-context-scopes)(lambda(v_97)(begin(expand-context/outer-scopes v_97))))" -"(define-values(expand-context-def-ctx-scopes)(lambda(v_98)(begin(expand-context/outer-def-ctx-scopes v_98))))" -"(define-values(expand-context-binding-layer)(lambda(v_99)(begin(expand-context/outer-binding-layer v_99))))" +"(lambda(v_97)(begin(expand-context/outer-post-expansion-scope-action v_97))))" +"(define-values(expand-context-scopes)(lambda(v_98)(begin(expand-context/outer-scopes v_98))))" +"(define-values(expand-context-def-ctx-scopes)(lambda(v_99)(begin(expand-context/outer-def-ctx-scopes v_99))))" +"(define-values(expand-context-binding-layer)(lambda(v_100)(begin(expand-context/outer-binding-layer v_100))))" "(define-values" "(expand-context-reference-records)" -"(lambda(v_100)(begin(expand-context/outer-reference-records v_100))))" -"(define-values(expand-context-only-immediate?)(lambda(v_101)(begin(expand-context/outer-only-immediate? v_101))))" +"(lambda(v_101)(begin(expand-context/outer-reference-records v_101))))" +"(define-values(expand-context-only-immediate?)(lambda(v_102)(begin(expand-context/outer-only-immediate? v_102))))" "(define-values" "(expand-context-need-eventually-defined)" -"(lambda(v_102)(begin(expand-context/outer-need-eventually-defined v_102))))" +"(lambda(v_103)(begin(expand-context/outer-need-eventually-defined v_103))))" "(define-values" "(expand-context-current-introduction-scopes)" -"(lambda(v_103)(begin(expand-context/outer-current-introduction-scopes v_103))))" -"(define-values(expand-context-name)(lambda(v_104)(begin(expand-context/outer-name v_104))))" +"(lambda(v_104)(begin(expand-context/outer-current-introduction-scopes v_104))))" +"(define-values(expand-context-name)(lambda(v_105)(begin(expand-context/outer-name v_105))))" "(define-values" "(expand-context-to-parsed?)" -"(lambda(v_105)(begin(expand-context/inner-to-parsed?(root-expand-context/outer-inner v_105)))))" +"(lambda(v_106)(begin(expand-context/inner-to-parsed?(root-expand-context/outer-inner v_106)))))" "(define-values" "(expand-context-phase)" -"(lambda(v_106)(begin(expand-context/inner-phase(root-expand-context/outer-inner v_106)))))" +"(lambda(v_107)(begin(expand-context/inner-phase(root-expand-context/outer-inner v_107)))))" "(define-values" "(expand-context-namespace)" -"(lambda(v_107)(begin(expand-context/inner-namespace(root-expand-context/outer-inner v_107)))))" +"(lambda(v_108)(begin(expand-context/inner-namespace(root-expand-context/outer-inner v_108)))))" "(define-values" "(expand-context-just-once?)" -"(lambda(v_108)(begin(expand-context/inner-just-once?(root-expand-context/outer-inner v_108)))))" +"(lambda(v_109)(begin(expand-context/inner-just-once?(root-expand-context/outer-inner v_109)))))" "(define-values" "(expand-context-module-begin-k)" -"(lambda(v_109)(begin(expand-context/inner-module-begin-k(root-expand-context/outer-inner v_109)))))" +"(lambda(v_110)(begin(expand-context/inner-module-begin-k(root-expand-context/outer-inner v_110)))))" "(define-values" "(expand-context-allow-unbound?)" -"(lambda(v_110)(begin(expand-context/inner-allow-unbound?(root-expand-context/outer-inner v_110)))))" +"(lambda(v_111)(begin(expand-context/inner-allow-unbound?(root-expand-context/outer-inner v_111)))))" "(define-values" "(expand-context-in-local-expand?)" -"(lambda(v_111)(begin(expand-context/inner-in-local-expand?(root-expand-context/outer-inner v_111)))))" +"(lambda(v_112)(begin(expand-context/inner-in-local-expand?(root-expand-context/outer-inner v_112)))))" "(define-values" "(expand-context-stops)" -"(lambda(v_112)(begin(expand-context/inner-stops(root-expand-context/outer-inner v_112)))))" +"(lambda(v_113)(begin(expand-context/inner-stops(root-expand-context/outer-inner v_113)))))" "(define-values" "(expand-context-declared-submodule-names)" -"(lambda(v_113)(begin(expand-context/inner-declared-submodule-names(root-expand-context/outer-inner v_113)))))" +"(lambda(v_114)(begin(expand-context/inner-declared-submodule-names(root-expand-context/outer-inner v_114)))))" "(define-values" "(expand-context-lifts)" -"(lambda(v_114)(begin(expand-context/inner-lifts(root-expand-context/outer-inner v_114)))))" +"(lambda(v_115)(begin(expand-context/inner-lifts(root-expand-context/outer-inner v_115)))))" "(define-values" "(expand-context-lift-envs)" -"(lambda(v_115)(begin(expand-context/inner-lift-envs(root-expand-context/outer-inner v_115)))))" +"(lambda(v_116)(begin(expand-context/inner-lift-envs(root-expand-context/outer-inner v_116)))))" "(define-values" "(expand-context-module-lifts)" -"(lambda(v_116)(begin(expand-context/inner-module-lifts(root-expand-context/outer-inner v_116)))))" +"(lambda(v_117)(begin(expand-context/inner-module-lifts(root-expand-context/outer-inner v_117)))))" "(define-values" "(expand-context-require-lifts)" -"(lambda(v_117)(begin(expand-context/inner-require-lifts(root-expand-context/outer-inner v_117)))))" +"(lambda(v_118)(begin(expand-context/inner-require-lifts(root-expand-context/outer-inner v_118)))))" "(define-values" "(expand-context-to-module-lifts)" -"(lambda(v_118)(begin(expand-context/inner-to-module-lifts(root-expand-context/outer-inner v_118)))))" +"(lambda(v_119)(begin(expand-context/inner-to-module-lifts(root-expand-context/outer-inner v_119)))))" "(define-values" "(expand-context-requires+provides)" -"(lambda(v_119)(begin(expand-context/inner-requires+provides(root-expand-context/outer-inner v_119)))))" +"(lambda(v_120)(begin(expand-context/inner-requires+provides(root-expand-context/outer-inner v_120)))))" "(define-values" "(expand-context-observer)" -"(lambda(v_120)(begin(expand-context/inner-observer(root-expand-context/outer-inner v_120)))))" +"(lambda(v_121)(begin(expand-context/inner-observer(root-expand-context/outer-inner v_121)))))" "(define-values" "(expand-context-for-serializable?)" -"(lambda(v_121)(begin(expand-context/inner-for-serializable?(root-expand-context/outer-inner v_121)))))" +"(lambda(v_122)(begin(expand-context/inner-for-serializable?(root-expand-context/outer-inner v_122)))))" "(define-values" "(expand-context-should-not-encounter-macros?)" -"(lambda(v_122)(begin(expand-context/inner-should-not-encounter-macros?(root-expand-context/outer-inner v_122)))))" +"(lambda(v_123)(begin(expand-context/inner-should-not-encounter-macros?(root-expand-context/outer-inner v_123)))))" "(define-values" "(make-expand-context10.1)" "(lambda(for-serializable?4_0 for-serializable?7_0 observer5_0 observer8_0 to-parsed?3_0 to-parsed?6_0 ns9_0)" @@ -15004,15 +15249,15 @@ static const char *startup_source = "(copy-root-expand-context)" "(lambda(ctx_1 root-ctx_2)" "(begin" -"(let-values(((v_123) ctx_1))" -"(let-values(((the-struct_41) v_123))" +"(let-values(((v_124) ctx_1))" +"(let-values(((the-struct_41) v_124))" "(if(expand-context/outer? the-struct_41)" "(let-values(((post-expansion-scope28_0)(root-expand-context-post-expansion-scope root-ctx_2))" "((use-site-scopes29_0)(root-expand-context-use-site-scopes root-ctx_2))" "((frame-id30_1)(root-expand-context-frame-id root-ctx_2))" "((binding-layer31_0)(root-expand-context-frame-id root-ctx_2))" "((inner32_0)" -"(let-values(((the-struct_42)(root-expand-context/outer-inner v_123)))" +"(let-values(((the-struct_42)(root-expand-context/outer-inner v_124)))" "(if(expand-context/inner? the-struct_42)" "(let-values(((self-mpi33_0)(root-expand-context-self-mpi root-ctx_2))" "((module-scopes34_0)(root-expand-context-module-scopes root-ctx_2))" @@ -15075,22 +15320,22 @@ static const char *startup_source = "(let-values(((who_9)(if who16_0 who15_0 'unexpected)))" "(let-values(((fail-ok?_0)(if fail-ok?14_0 fail-ok?13_0 #f)))" "(let-values()" -"(let-values(((or-part_160)(force(current-expand-context))))" -"(if or-part_160" -" or-part_160" +"(let-values(((or-part_162)(force(current-expand-context))))" +"(if or-part_162" +" or-part_162" " (if fail-ok?_0 #f (raise-arguments-error who_9 \"not currently expanding\"))))))))))" "(define-values" "(current-expand-observe)" "(make-parameter" " #f" -"(lambda(v_124)" +"(lambda(v_125)" "(begin" -"(if(let-values(((or-part_161)(not v_124)))" -"(if or-part_161 or-part_161(if(procedure? v_124)(procedure-arity-includes? v_124 2) #f)))" +"(if(let-values(((or-part_163)(not v_125)))" +"(if or-part_163 or-part_163(if(procedure? v_125)(procedure-arity-includes? v_125 2) #f)))" "(void)" "(let-values()" -" (raise-argument-error 'current-expand-observe \"(or/c (procedure-arity-includes/c 2) #f)\" v_124)))" -" v_124))))" +" (raise-argument-error 'current-expand-observe \"(or/c (procedure-arity-includes/c 2) #f)\" v_125)))" +" v_125))))" "(define-values" "(as-expression-context)" "(lambda(ctx_2)" @@ -15098,13 +15343,13 @@ static const char *startup_source = "(if(if(eq? 'expression(expand-context-context ctx_2))(not(expand-context-name ctx_2)) #f)" "(let-values() ctx_2)" "(let-values()" -"(let-values(((v_125) ctx_2))" -"(let-values(((the-struct_43) v_125))" +"(let-values(((v_126) ctx_2))" +"(let-values(((the-struct_43) v_126))" "(if(expand-context/outer? the-struct_43)" "(let-values(((context40_0) 'expression)" "((name41_0) #f)" "((post-expansion-scope42_0) #f)" -"((inner43_0)(root-expand-context/outer-inner v_125)))" +"((inner43_0)(root-expand-context/outer-inner v_126)))" "(expand-context/outer1.1" " inner43_0" " post-expansion-scope42_0" @@ -15129,10 +15374,10 @@ static const char *startup_source = "(if(not(expand-context-name ctx_3))" "(let-values() ctx_3)" "(let-values()" -"(let-values(((v_126) ctx_3))" -"(let-values(((the-struct_44) v_126))" +"(let-values(((v_127) ctx_3))" +"(let-values(((the-struct_44) v_127))" "(if(expand-context/outer? the-struct_44)" -"(let-values(((name44_0) #f)((inner45_0)(root-expand-context/outer-inner v_126)))" +"(let-values(((name44_0) #f)((inner45_0)(root-expand-context/outer-inner v_127)))" "(expand-context/outer1.1" " inner45_0" "(root-expand-context/outer-post-expansion-scope the-struct_44)" @@ -15160,28 +15405,28 @@ static const char *startup_source = "(let-values()" "(if(expand-context-name wrt-ctx_0)" "(let-values()" -"(let-values(((v_127) ctx_4))" -"(let-values(((the-struct_45) v_127))" -"(if(expand-context/outer? the-struct_45)" +"(let-values(((v_128) ctx_4))" +"(let-values(((the-struct_17) v_128))" +"(if(expand-context/outer? the-struct_17)" "(let-values(((name46_0)(expand-context-name wrt-ctx_0))" -"((inner47_0)(root-expand-context/outer-inner v_127)))" +"((inner47_0)(root-expand-context/outer-inner v_128)))" "(expand-context/outer1.1" " inner47_0" -"(root-expand-context/outer-post-expansion-scope the-struct_45)" -"(root-expand-context/outer-use-site-scopes the-struct_45)" -"(root-expand-context/outer-frame-id the-struct_45)" -"(expand-context/outer-context the-struct_45)" -"(expand-context/outer-env the-struct_45)" -"(expand-context/outer-post-expansion-scope-action the-struct_45)" -"(expand-context/outer-scopes the-struct_45)" -"(expand-context/outer-def-ctx-scopes the-struct_45)" -"(expand-context/outer-binding-layer the-struct_45)" -"(expand-context/outer-reference-records the-struct_45)" -"(expand-context/outer-only-immediate? the-struct_45)" -"(expand-context/outer-need-eventually-defined the-struct_45)" -"(expand-context/outer-current-introduction-scopes the-struct_45)" +"(root-expand-context/outer-post-expansion-scope the-struct_17)" +"(root-expand-context/outer-use-site-scopes the-struct_17)" +"(root-expand-context/outer-frame-id the-struct_17)" +"(expand-context/outer-context the-struct_17)" +"(expand-context/outer-env the-struct_17)" +"(expand-context/outer-post-expansion-scope-action the-struct_17)" +"(expand-context/outer-scopes the-struct_17)" +"(expand-context/outer-def-ctx-scopes the-struct_17)" +"(expand-context/outer-binding-layer the-struct_17)" +"(expand-context/outer-reference-records the-struct_17)" +"(expand-context/outer-only-immediate? the-struct_17)" +"(expand-context/outer-need-eventually-defined the-struct_17)" +"(expand-context/outer-current-introduction-scopes the-struct_17)" " name46_0))" -" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_45)))))" +" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_17)))))" "(let-values() ctx_4))))))))" "(define-values" "(as-named-context)" @@ -15189,10 +15434,10 @@ static const char *startup_source = "(begin" "(if(if(pair? ids_1)(null?(cdr ids_1)) #f)" "(let-values()" -"(let-values(((v_128) ctx_5))" -"(let-values(((the-struct_2) v_128))" +"(let-values(((v_129) ctx_5))" +"(let-values(((the-struct_2) v_129))" "(if(expand-context/outer? the-struct_2)" -"(let-values(((name48_0)(car ids_1))((inner49_0)(root-expand-context/outer-inner v_128)))" +"(let-values(((name48_0)(car ids_1))((inner49_0)(root-expand-context/outer-inner v_129)))" "(expand-context/outer1.1" " inner49_0" "(root-expand-context/outer-post-expansion-scope the-struct_2)" @@ -15215,69 +15460,69 @@ static const char *startup_source = "(as-to-parsed-context)" "(lambda(ctx_6)" "(begin" -"(let-values(((v_129) ctx_6))" -"(let-values(((the-struct_46) v_129))" -"(if(expand-context/outer? the-struct_46)" +"(let-values(((v_130) ctx_6))" +"(let-values(((the-struct_45) v_130))" +"(if(expand-context/outer? the-struct_45)" "(let-values(((inner50_0)" -"(let-values(((the-struct_47)(root-expand-context/outer-inner v_129)))" -"(if(expand-context/inner? the-struct_47)" +"(let-values(((the-struct_46)(root-expand-context/outer-inner v_130)))" +"(if(expand-context/inner? the-struct_46)" "(let-values(((to-parsed?51_0) #t)" "((observer52_0) #f)" "((should-not-encounter-macros?53_0) #t))" "(expand-context/inner2.1" -"(root-expand-context/inner-self-mpi the-struct_47)" -"(root-expand-context/inner-module-scopes the-struct_47)" -"(root-expand-context/inner-top-level-bind-scope the-struct_47)" -"(root-expand-context/inner-all-scopes-stx the-struct_47)" -"(root-expand-context/inner-defined-syms the-struct_47)" -"(root-expand-context/inner-counter the-struct_47)" -"(root-expand-context/inner-lift-key the-struct_47)" +"(root-expand-context/inner-self-mpi the-struct_46)" +"(root-expand-context/inner-module-scopes the-struct_46)" +"(root-expand-context/inner-top-level-bind-scope the-struct_46)" +"(root-expand-context/inner-all-scopes-stx the-struct_46)" +"(root-expand-context/inner-defined-syms the-struct_46)" +"(root-expand-context/inner-counter the-struct_46)" +"(root-expand-context/inner-lift-key the-struct_46)" " to-parsed?51_0" -"(expand-context/inner-phase the-struct_47)" -"(expand-context/inner-namespace the-struct_47)" -"(expand-context/inner-just-once? the-struct_47)" -"(expand-context/inner-module-begin-k the-struct_47)" -"(expand-context/inner-allow-unbound? the-struct_47)" -"(expand-context/inner-in-local-expand? the-struct_47)" -"(expand-context/inner-stops the-struct_47)" -"(expand-context/inner-declared-submodule-names the-struct_47)" -"(expand-context/inner-lifts the-struct_47)" -"(expand-context/inner-lift-envs the-struct_47)" -"(expand-context/inner-module-lifts the-struct_47)" -"(expand-context/inner-require-lifts the-struct_47)" -"(expand-context/inner-to-module-lifts the-struct_47)" -"(expand-context/inner-requires+provides the-struct_47)" +"(expand-context/inner-phase the-struct_46)" +"(expand-context/inner-namespace the-struct_46)" +"(expand-context/inner-just-once? the-struct_46)" +"(expand-context/inner-module-begin-k the-struct_46)" +"(expand-context/inner-allow-unbound? the-struct_46)" +"(expand-context/inner-in-local-expand? the-struct_46)" +"(expand-context/inner-stops the-struct_46)" +"(expand-context/inner-declared-submodule-names the-struct_46)" +"(expand-context/inner-lifts the-struct_46)" +"(expand-context/inner-lift-envs the-struct_46)" +"(expand-context/inner-module-lifts the-struct_46)" +"(expand-context/inner-require-lifts the-struct_46)" +"(expand-context/inner-to-module-lifts the-struct_46)" +"(expand-context/inner-requires+provides the-struct_46)" " observer52_0" -"(expand-context/inner-for-serializable? the-struct_47)" +"(expand-context/inner-for-serializable? the-struct_46)" " should-not-encounter-macros?53_0))" -" (raise-argument-error 'struct-copy \"expand-context/inner?\" the-struct_47)))))" +" (raise-argument-error 'struct-copy \"expand-context/inner?\" the-struct_46)))))" "(expand-context/outer1.1" " inner50_0" -"(root-expand-context/outer-post-expansion-scope the-struct_46)" -"(root-expand-context/outer-use-site-scopes the-struct_46)" -"(root-expand-context/outer-frame-id the-struct_46)" -"(expand-context/outer-context the-struct_46)" -"(expand-context/outer-env the-struct_46)" -"(expand-context/outer-post-expansion-scope-action the-struct_46)" -"(expand-context/outer-scopes the-struct_46)" -"(expand-context/outer-def-ctx-scopes the-struct_46)" -"(expand-context/outer-binding-layer the-struct_46)" -"(expand-context/outer-reference-records the-struct_46)" -"(expand-context/outer-only-immediate? the-struct_46)" -"(expand-context/outer-need-eventually-defined the-struct_46)" -"(expand-context/outer-current-introduction-scopes the-struct_46)" -"(expand-context/outer-name the-struct_46)))" -" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_46)))))))" +"(root-expand-context/outer-post-expansion-scope the-struct_45)" +"(root-expand-context/outer-use-site-scopes the-struct_45)" +"(root-expand-context/outer-frame-id the-struct_45)" +"(expand-context/outer-context the-struct_45)" +"(expand-context/outer-env the-struct_45)" +"(expand-context/outer-post-expansion-scope-action the-struct_45)" +"(expand-context/outer-scopes the-struct_45)" +"(expand-context/outer-def-ctx-scopes the-struct_45)" +"(expand-context/outer-binding-layer the-struct_45)" +"(expand-context/outer-reference-records the-struct_45)" +"(expand-context/outer-only-immediate? the-struct_45)" +"(expand-context/outer-need-eventually-defined the-struct_45)" +"(expand-context/outer-current-introduction-scopes the-struct_45)" +"(expand-context/outer-name the-struct_45)))" +" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_45)))))))" "(define-values" "(to-syntax-list.1)" -"(lambda(s_99)" +"(lambda(s_162)" "(begin" " 'to-syntax-list" -"(if(list? s_99)" -"(let-values() s_99)" -"(if(pair? s_99)" -"(let-values()(let-values(((r_27)(to-syntax-list.1(cdr s_99))))(if r_27(cons(car s_99) r_27) #f)))" -"(if(syntax?$1 s_99)(let-values()(to-syntax-list.1(syntax-e$1 s_99)))(let-values() #f)))))))" +"(if(list? s_162)" +"(let-values() s_162)" +"(if(pair? s_162)" +"(let-values()(let-values(((r_27)(to-syntax-list.1(cdr s_162))))(if r_27(cons(car s_162) r_27) #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))" @@ -15286,23 +15531,23 @@ static const char *startup_source = "(define-values(id-cache-1)(make-hasheq))" "(define-values" "(core-id)" -"(lambda(sym_11 phase_32)" +"(lambda(sym_11 phase_33)" "(begin" -"(if(eqv? phase_32 0)" +"(if(eqv? phase_33 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_144)(datum->syntax$1 core-stx sym_11)))" -"(begin(hash-set! id-cache-0 sym_11 s_144) s_144)))))" -"(if(eq? phase_32 1)" +"(let-values(((s_145)(datum->syntax$1 core-stx sym_11)))" +"(begin(hash-set! id-cache-0 sym_11 s_145) s_145)))))" +"(if(eq? phase_33 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_32) sym_11)))))))" +"(let-values()(datum->syntax$1(syntax-shift-phase-level$1 core-stx phase_33) sym_11)))))))" "(define-values(core-forms) '#hasheq())" "(define-values(core-primitives) '#hasheq())" "(define-values" @@ -15311,8 +15556,8 @@ static const char *startup_source = "(begin(begin(add-core-binding! sym_22)(set! core-forms(hash-set core-forms sym_22 proc_4))))))" "(define-values" "(add-core-primitive!)" -"(lambda(sym_0 val_32)" -"(begin(begin(add-core-binding! sym_0)(set! core-primitives(hash-set core-primitives sym_0 val_32))))))" +"(lambda(sym_0 val_33)" +"(begin(begin(add-core-binding! sym_0)(set! core-primitives(hash-set core-primitives sym_0 val_33))))))" "(define-values" "(add-core-binding!)" "(lambda(sym_23)" @@ -15357,51 +15602,51 @@ static const char *startup_source = "((temp14_1)" "(hasheqv" " 0" -"(let-values(((lst_79)(list core-primitives core-forms))((lst_80) '(#f #t)))" +"(let-values(((lst_80)(list core-primitives core-forms))((lst_81) '(#f #t)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_79)))" -"(if(variable-reference-from-unsafe?(#%variable-reference))" -"(void)" "(let-values()(check-list lst_80)))" -"((letrec-values(((for-loop_92)" -"(lambda(table_102 lst_81 lst_82)" +"(if(variable-reference-from-unsafe?(#%variable-reference))" +"(void)" +"(let-values()(check-list lst_81)))" +"((letrec-values(((for-loop_96)" +"(lambda(table_107 lst_82 lst_83)" "(begin" " 'for-loop" -"(if(if(pair? lst_81)(pair? lst_82) #f)" -"(let-values(((syms_12)(unsafe-car lst_81))" -"((rest_36)(unsafe-cdr lst_81))" -"((syntax?_2)(unsafe-car lst_82))" -"((rest_37)(unsafe-cdr lst_82)))" -"(let-values(((table_103)" -"(let-values(((table_104) table_102))" -"(let-values(((ht_75) syms_12))" +"(if(if(pair? lst_82)(pair? lst_83) #f)" +"(let-values(((syms_12)(unsafe-car lst_82))" +"((rest_37)(unsafe-cdr lst_82))" +"((syntax?_2)(unsafe-car lst_83))" +"((rest_38)(unsafe-cdr lst_83)))" +"(let-values(((table_108)" +"(let-values(((table_109) table_107))" +"(let-values(((ht_78) syms_12))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" -"(check-in-hash-keys ht_75)))" -"((letrec-values(((for-loop_93)" -"(lambda(table_105" -" i_85)" +"(check-in-hash-keys ht_78)))" +"((letrec-values(((for-loop_97)" +"(lambda(table_110" +" i_88)" "(begin" " 'for-loop" -"(if i_85" +"(if i_88" "(let-values(((sym_24)" "(hash-iterate-key" -" ht_75" -" i_85)))" -"(let-values(((table_106)" -"(let-values(((table_107)" -" table_105))" -"(let-values(((table_108)" +" ht_78" +" i_88)))" +"(let-values(((table_111)" +"(let-values(((table_112)" +" table_110))" +"(let-values(((table_113)" "(let-values()" -"(let-values(((key_42" -" val_33)" +"(let-values(((key_43" +" val_34)" "(let-values()" -"(let-values(((b_60)" +"(let-values(((b_59)" "(let-values(((core-mpi17_0)" " core-mpi)" "((temp18_3)" @@ -15434,36 +15679,36 @@ static const char *startup_source = " sym_24" "(if syntax?_2" "(provided1.1" -" b_60" +" b_59" " #f" " #t)" -" b_60))))))" +" b_59))))))" "(hash-set" -" table_107" -" key_42" -" val_33)))))" +" table_112" +" key_43" +" val_34)))))" "(values" -" table_108)))))" +" table_113)))))" "(if(not" " #f)" -"(for-loop_93" -" table_106" +"(for-loop_97" +" table_111" "(hash-iterate-next" -" ht_75" -" i_85))" -" table_106)))" -" table_105)))))" -" for-loop_93)" -" table_104" -"(hash-iterate-first ht_75)))))))" +" ht_78" +" i_88))" +" table_111)))" +" table_110)))))" +" for-loop_97)" +" table_109" +"(hash-iterate-first ht_78)))))))" "(if(not #f)" -"(for-loop_92 table_103 rest_36 rest_37)" -" table_103)))" -" table_102)))))" -" for-loop_92)" +"(for-loop_96 table_108 rest_37 rest_38)" +" table_108)))" +" table_107)))))" +" for-loop_96)" " '#hasheq()" -" lst_79" -" lst_80)))))" +" lst_80" +" lst_81)))))" "((temp15_1)" "(lambda(phase-level_14 ns_47 insp_7)" "(if(zero? phase-level_14)" @@ -15488,7 +15733,7 @@ static const char *startup_source = "((temp16_1)" "(lambda(data-box_1" " ns_49" -" phase_40" +" phase_41" " phase-level_15" " self_5" " bulk-binding-registry_4" @@ -15497,20 +15742,20 @@ static const char *startup_source = "(if(equal? tmp_14 0)" "(let-values()" "(begin" -"(let-values(((ht_76) core-primitives))" +"(let-values(((ht_79) core-primitives))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_76)))" -"((letrec-values(((for-loop_94)" -"(lambda(i_86)" +"(let-values()(check-in-hash ht_79)))" +"((letrec-values(((for-loop_98)" +"(lambda(i_89)" "(begin" " 'for-loop" -"(if i_86" -"(let-values(((sym_25 val_34)" +"(if i_89" +"(let-values(((sym_25 val_35)" "(hash-iterate-key+value" -" ht_76" -" i_86)))" +" ht_79" +" i_89)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -15521,31 +15766,31 @@ static const char *startup_source = " ns_49" " 0" " sym_25" -" val_34))" +" val_35))" "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_94" -"(hash-iterate-next ht_76 i_86))" +"(for-loop_98" +"(hash-iterate-next ht_79 i_89))" "(values))))" "(values))))))" -" for-loop_94)" -"(hash-iterate-first ht_76))))" +" for-loop_98)" +"(hash-iterate-first ht_79))))" "(void)" -"(let-values(((ht_77) core-forms))" +"(let-values(((ht_80) core-forms))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_77)))" -"((letrec-values(((for-loop_95)" -"(lambda(i_87)" +"(let-values()(check-in-hash ht_80)))" +"((letrec-values(((for-loop_99)" +"(lambda(i_90)" "(begin" " 'for-loop" -"(if i_87" +"(if i_90" "(let-values(((sym_26 proc_5)" "(hash-iterate-key+value" -" ht_77" -" i_87)))" +" ht_80" +" i_90)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -15566,12 +15811,12 @@ static const char *startup_source = "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_95" -"(hash-iterate-next ht_77 i_87))" +"(for-loop_99" +"(hash-iterate-next ht_80 i_90))" "(values))))" "(values))))))" -" for-loop_95)" -"(hash-iterate-first ht_77))))" +" for-loop_99)" +"(hash-iterate-first ht_80))))" "(void)))" "(let-values()(void)))))))" "(make-module39.1" @@ -15612,29 +15857,29 @@ 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_41)" +"(lambda(s_23 phase_42)" "(begin" "(let-values(((ok?_0 id23_0 _24_0)" -"(let-values(((s_160) s_23))" -"(if(let-values(((s_161)(if(syntax?$1 s_160)(syntax-e$1 s_160) s_160)))" -"(if(pair? s_161)" -"(if(let-values(((s_162)(car s_161)))" -"(let-values(((or-part_162)(if(syntax?$1 s_162)(symbol?(syntax-e$1 s_162)) #f)))" -"(if or-part_162 or-part_162(symbol? s_162))))" -"(let-values(((s_163)(cdr s_161))) #t)" +"(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_164)(if(syntax?$1 s_165)(symbol?(syntax-e$1 s_165)) #f)))" +"(if or-part_164 or-part_164(symbol? s_165))))" +"(let-values(((s_166)(cdr s_164))) #t)" " #f)" " #f))" "(let-values()" "(let-values(((id23_1 _24_1)" -"(let-values(((s_164)(if(syntax?$1 s_160)(syntax-e$1 s_160) s_160)))" -"(let-values(((id25_0)(let-values(((s_66)(car s_164))) s_66))" -"((_26_0)(let-values(((s_74)(cdr s_164))) s_74)))" +"(let-values(((s_167)(if(syntax?$1 s_163)(syntax-e$1 s_163) s_163)))" +"(let-values(((id25_0)(let-values(((s_66)(car s_167))) s_66))" +"((_26_0)(let-values(((s_74)(cdr s_167))) s_74)))" "(values id25_0 _26_0)))))" "(values #t id23_1 _24_1)))" "(values #f #f #f)))))" "(if ok?_0" "(let-values(((b_36)" -"(let-values(((temp27_1) id23_0)((phase28_0) phase_41))" +"(let-values(((temp27_1) id23_0)((phase28_0) phase_42))" "(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)))" @@ -15644,43 +15889,43 @@ static const char *startup_source = " #f)))))" "(define-values" "(taint-dispatch)" -"(lambda(s_0 proc_6 phase_31)" +"(lambda(s_0 proc_6 phase_32)" "(begin" "((letrec-values(((loop_33)" -"(lambda(s_165 mode_10)" +"(lambda(s_168 mode_10)" "(begin" " 'loop" "(let-values(((tmp_4) mode_10))" "(if(equal? tmp_4 'none)" -"(let-values() s_165)" +"(let-values() s_168)" "(if(equal? tmp_4 'opaque)" -"(let-values()(proc_6 s_165))" +"(let-values()(proc_6 s_168))" "(if(equal? tmp_4 'transparent)" "(let-values()" "(let-values(((c_18)" -"(let-values(((s_166)" -"(let-values(((or-part_13)(syntax->list$1 s_165)))" -"(if or-part_13 or-part_13(syntax-e$1 s_165))))" +"(let-values(((s_169)" +"(let-values(((or-part_13)(syntax->list$1 s_168)))" +"(if or-part_13 or-part_13(syntax-e$1 s_168))))" "((f_35)(lambda(tail?_39 d_18)(begin 'f d_18)))" "((s->_3)" -"(lambda(s_167)" +"(lambda(s_170)" "(begin" " 's->" "(loop_33" -" s_167" -"(syntax-taint-mode-property s_167)))))" +" s_170" +"(syntax-taint-mode-property s_170)))))" "((seen_19) #f))" -"(let-values(((s_143) s_166)" +"(let-values(((s_144) s_169)" "((f_36)" -"(lambda(tail?_40 v_61)" +"(lambda(tail?_40 v_60)" "(begin" " 'f" -"(if(syntax?$1 v_61)" -"(let-values()(s->_3 v_61))" -"(let-values()(f_35 tail?_40 v_61))))))" +"(if(syntax?$1 v_60)" +"(let-values()(s->_3 v_60))" +"(let-values()(f_35 tail?_40 v_60))))))" "((seen_20) seen_19))" "((letrec-values(((loop_7)" -"(lambda(tail?_41 s_168 prev-depth_8)" +"(lambda(tail?_41 s_171 prev-depth_8)" "(begin" " 'loop" "(let-values(((depth_8)" @@ -15689,84 +15934,84 @@ static const char *startup_source = "(let-values()" "(datum-map-slow" " tail?_41" -" s_168" -"(lambda(tail?_42 s_169)" -"(f_36 tail?_42 s_169))" +" s_171" +"(lambda(tail?_42 s_172)" +"(f_36 tail?_42 s_172))" " seen_20))" -"(if(null? s_168)" +"(if(null? s_171)" "(let-values()" -"(f_36 tail?_41 s_168))" -"(if(pair? s_168)" +"(f_36 tail?_41 s_171))" +"(if(pair? s_171)" "(let-values()" "(f_36" " tail?_41" "(cons" "(loop_7" " #f" -"(car s_168)" +"(car s_171)" " depth_8)" "(loop_7" " #t" -"(cdr s_168)" +"(cdr s_171)" " depth_8))))" -"(if(let-values(((or-part_163)" +"(if(let-values(((or-part_165)" "(symbol?" -" s_168)))" -"(if or-part_163" -" or-part_163" -"(let-values(((or-part_74)" +" s_171)))" +"(if or-part_165" +" or-part_165" +"(let-values(((or-part_72)" "(boolean?" -" s_168)))" +" s_171)))" +"(if or-part_72" +" or-part_72" +"(number? s_171)))))" +"(let-values()(f_36 #f s_171))" +"(if(let-values(((or-part_73)" +"(vector?" +" s_171)))" +"(if or-part_73" +" or-part_73" +"(let-values(((or-part_74)" +"(box?" +" s_171)))" "(if or-part_74" " or-part_74" -"(number? s_168)))))" -"(let-values()(f_36 #f s_168))" -"(if(let-values(((or-part_75)" -"(vector?" -" s_168)))" +"(let-values(((or-part_75)" +"(prefab-struct-key" +" s_171)))" "(if or-part_75" " or-part_75" -"(let-values(((or-part_76)" -"(box?" -" s_168)))" -"(if or-part_76" -" or-part_76" -"(let-values(((or-part_77)" -"(prefab-struct-key" -" s_168)))" -"(if or-part_77" -" or-part_77" "(hash?" -" s_168)))))))" +" s_171)))))))" "(let-values()" "(datum-map-slow" " tail?_41" -" s_168" -"(lambda(tail?_43 s_170)" -"(f_36 tail?_43 s_170))" +" s_171" +"(lambda(tail?_43 s_173)" +"(f_36 tail?_43 s_173))" " seen_20))" "(let-values()" -"(f_36 #f s_168))))))))))))" +"(f_36 #f s_171))))))))))))" " loop_7)" " #f" -" s_143" +" s_144" " 0)))))" "(datum->syntax$1" " #f" " c_18" -" s_165" -"(if(syntax-any-macro-scopes? s_165)" -"(syntax-property-remove s_165 original-property-sym)" -" s_165))))" +" s_168" +"(if(syntax-any-macro-scopes? s_168)" +"(syntax-property-remove s_168 original-property-sym)" +" s_168))))" "(if(equal? tmp_4 'transparent-binding)" "(let-values()" -"(let-values(((c_19)(syntax-e$1 s_165)))" +"(let-values(((c_19)(syntax-e$1 s_168)))" "(if(pair? c_19)" "(let-values()" "(let-values(((cd_0)(cdr c_19)))" -"(if(let-values(((or-part_71)(pair? cd_0)))" -"(if or-part_71" -" or-part_71" +"(if(let-values(((or-part_70)(pair? cd_0)))" +"(if or-part_70" +" or-part_70" "(if(syntax?$1 cd_0)(pair?(syntax-e$1 cd_0)) #f)))" "(let-values()" "(let-values(((d_19)(if(syntax?$1 cd_0)(syntax-e$1 cd_0) cd_0)))" @@ -15776,20 +16021,20 @@ static const char *startup_source = "(loop_33(car c_19)(syntax-taint-mode-property(car c_19)))" "(cons" "(loop_33(car d_19) 'transparent)" -"(let-values(((s_171)" -"(let-values(((or-part_164)" +"(let-values(((s_174)" +"(let-values(((or-part_166)" "(syntax->list$1(cdr d_19))))" -"(if or-part_164 or-part_164(cdr d_19))))" +"(if or-part_166 or-part_166(cdr d_19))))" "((f_7)(lambda(tail?_44 d_20)(begin 'f d_20)))" "((s->_4)" -"(lambda(s_172)" +"(lambda(s_175)" "(begin" " 's->" "(loop_33" -" s_172" -"(syntax-taint-mode-property s_172)))))" +" s_175" +"(syntax-taint-mode-property s_175)))))" "((seen_21) #f))" -"(let-values(((s_77) s_171)" +"(let-values(((s_77) s_174)" "((f_8)" "(lambda(tail?_45 v_39)" "(begin" @@ -15798,8 +16043,8 @@ static const char *startup_source = "(let-values()(s->_4 v_39))" "(let-values()(f_7 tail?_45 v_39))))))" "((seen_22) seen_21))" -"((letrec-values(((loop_77)" -"(lambda(tail?_46 s_173 prev-depth_9)" +"((letrec-values(((loop_78)" +"(lambda(tail?_46 s_176 prev-depth_9)" "(begin" " 'loop" "(let-values(((depth_9)" @@ -15808,127 +16053,127 @@ static const char *startup_source = "(let-values()" "(datum-map-slow" " tail?_46" -" s_173" -"(lambda(tail?_47 s_174)" -"(f_8 tail?_47 s_174))" +" s_176" +"(lambda(tail?_47 s_177)" +"(f_8 tail?_47 s_177))" " seen_22))" -"(if(null? s_173)" +"(if(null? s_176)" "(let-values()" -"(f_8 tail?_46 s_173))" -"(if(pair? s_173)" +"(f_8 tail?_46 s_176))" +"(if(pair? s_176)" "(let-values()" "(f_8" " tail?_46" "(cons" -"(loop_77" +"(loop_78" " #f" -"(car s_173)" +"(car s_176)" " depth_9)" -"(loop_77" +"(loop_78" " #t" -"(cdr s_173)" +"(cdr s_176)" " depth_9))))" -"(if(let-values(((or-part_165)" -"(symbol?" -" s_173)))" -"(if or-part_165" -" or-part_165" -"(let-values(((or-part_166)" -"(boolean?" -" s_173)))" -"(if or-part_166" -" or-part_166" -"(number?" -" s_173)))))" -"(let-values()" -"(f_8 #f s_173))" "(if(let-values(((or-part_167)" -"(vector?" -" s_173)))" +"(symbol?" +" s_176)))" "(if or-part_167" " or-part_167" "(let-values(((or-part_168)" -"(box?" -" s_173)))" +"(boolean?" +" s_176)))" "(if or-part_168" " or-part_168" -"(let-values(((or-part_169)" -"(prefab-struct-key" -" s_173)))" +"(number?" +" s_176)))))" +"(let-values()" +"(f_8 #f s_176))" +"(if(let-values(((or-part_169)" +"(vector?" +" s_176)))" "(if or-part_169" " or-part_169" +"(let-values(((or-part_170)" +"(box?" +" s_176)))" +"(if or-part_170" +" or-part_170" +"(let-values(((or-part_171)" +"(prefab-struct-key" +" s_176)))" +"(if or-part_171" +" or-part_171" "(hash?" -" s_173)))))))" +" s_176)))))))" "(let-values()" "(datum-map-slow" " tail?_46" -" s_173" +" s_176" "(lambda(tail?_48" -" s_175)" +" s_178)" "(f_8" " tail?_48" -" s_175))" +" s_178))" " seen_22))" "(let-values()" "(f_8" " #f" -" s_173))))))))))))" -" loop_77)" +" s_176))))))))))))" +" loop_78)" " #f" " s_77" " 0)))))" -" s_165" -"(if(syntax-any-macro-scopes? s_165)" -"(syntax-property-remove s_165 original-property-sym)" -" s_165))))" -"(let-values()(loop_33 s_165 'transparent)))))" -"(let-values()(loop_33 s_165 'transparent)))))" +" s_168" +"(if(syntax-any-macro-scopes? s_168)" +"(syntax-property-remove s_168 original-property-sym)" +" s_168))))" +"(let-values()(loop_33 s_168 'transparent)))))" +"(let-values()(loop_33 s_168 'transparent)))))" "(let-values()" -"(let-values(((c_20)(syntax-e$1 s_165)))" -"(let-values(((tmp_15)(core-form-sym c_20 phase_31)))" +"(let-values(((c_20)(syntax-e$1 s_168)))" +"(let-values(((tmp_15)(core-form-sym c_20 phase_32)))" "(if(if(equal? tmp_15 'begin)" " #t" "(if(equal? tmp_15 'begin-for-syntax)" " #t" "(equal? tmp_15 '#%module-begin)))" -"(let-values()(loop_33 s_165 'transparent))" +"(let-values()(loop_33 s_168 'transparent))" "(if(if(equal? tmp_15 'define-values)" " #t" "(equal? tmp_15 'define-syntaxes))" -"(let-values()(loop_33 s_165 'transparent-binding))" -"(let-values()(loop_33 s_165 'opaque))))))))))))))))" +"(let-values()(loop_33 s_168 'transparent-binding))" +"(let-values()(loop_33 s_168 'opaque))))))))))))))))" " loop_33)" " s_0" "(syntax-taint-mode-property s_0)))))" "(define-values" "(syntax-taint-mode-property)" -"(lambda(s_176)" +"(lambda(s_179)" "(begin" -"(let-values(((or-part_170)(syntax-property$1 s_176 'taint-mode)))" -"(if or-part_170 or-part_170(syntax-property$1 s_176 'certify-mode))))))" +"(let-values(((or-part_172)(syntax-property$1 s_179 'taint-mode)))" +"(if or-part_172 or-part_172(syntax-property$1 s_179 'certify-mode))))))" "(define-values" "(syntax-remove-taint-dispatch-properties)" -"(lambda(s_177)(begin(syntax-property-remove(syntax-property-remove s_177 'taint-mode) 'certify-mode))))" +"(lambda(s_180)(begin(syntax-property-remove(syntax-property-remove s_180 'taint-mode) 'certify-mode))))" "(define-values(current-module-code-inspector)(make-parameter #f))" "(define-values" "(syntax-debug-info$1)" -"(lambda(s_0 phase_42 all-bindings?_0)" +"(lambda(s_0 phase_43 all-bindings?_0)" "(begin" " 'syntax-debug-info" "(let-values(((hts_0)" "(reverse$1" -"(let-values(((lst_76)(fallback->list(syntax-shifted-multi-scopes s_0))))" +"(let-values(((lst_77)(fallback->list(syntax-shifted-multi-scopes s_0))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_76)))" -"((letrec-values(((for-loop_96)" -"(lambda(fold-var_59 lst_83)" +"(let-values()(check-list lst_77)))" +"((letrec-values(((for-loop_100)" +"(lambda(fold-var_59 lst_84)" "(begin" " 'for-loop" -"(if(pair? lst_83)" -"(let-values(((smss_26)(unsafe-car lst_83))" -"((rest_38)(unsafe-cdr lst_83)))" +"(if(pair? lst_84)" +"(let-values(((smss_26)(unsafe-car lst_84))" +"((rest_39)(unsafe-cdr lst_84)))" "(let-values(((fold-var_60)" "(let-values(((fold-var_61) fold-var_59))" "(let-values(((fold-var_62)" @@ -15946,7 +16191,7 @@ static const char *startup_source = "(scope-set-at-fallback" " s_0" " smss_26" -" phase_42)))" +" phase_43)))" "(let-values(((context_1)" "(scope-set->context" " s-scs_0)))" @@ -15964,7 +16209,7 @@ static const char *startup_source = "(let-values()" "(let-values(((bindings_1" " covered-scopess_0)" -"(let-values(((ht_78)" +"(let-values(((ht_81)" " s-scs_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -15972,80 +16217,80 @@ static const char *startup_source = "(void)" "(let-values()" "(check-in-immutable-hash-keys" -" ht_78)))" -"((letrec-values(((for-loop_97)" +" ht_81)))" +"((letrec-values(((for-loop_101)" "(lambda(bindings_2" " covered-scope-sets_0" -" i_88)" +" i_91)" "(begin" " 'for-loop" -"(if i_88" -"(let-values(((sc_23)" +"(if i_91" +"(let-values(((sc_27)" "(unsafe-immutable-hash-iterate-key" -" ht_78" -" i_88)))" +" ht_81" +" i_91)))" "(let-values(((bindings_3" " covered-scope-sets_1)" -"(let-values(((ht_79" +"(let-values(((ht_82" " bulk-bindings_3)" -"(let-values(((table_109)" +"(let-values(((table_114)" "(scope-binding-table" -" sc_23)))" +" sc_27)))" "(if(hash?" -" table_109)" +" table_114)" "(values" "(hash-ref" -" table_109" +" table_114" " sym_16" " '#hash())" " null)" "(values" "(hash-ref" "(table-with-bulk-bindings-syms" -" table_109)" +" table_114)" " sym_16" " '#hash())" "(table-with-bulk-bindings-bulk-bindings" -" table_109)))))" -"((s_178)" +" table_114)))))" +"((s_181)" " s_0)" "((extra-shifts_5)" " null))" "(begin" " #t" -"((letrec-values(((for-loop_98)" +"((letrec-values(((for-loop_102)" "(lambda(bindings_4" " covered-scope-sets_2" -" i_89)" +" i_92)" "(begin" " 'for-loop" "(if(not" "(null?" -" i_89))" +" i_92))" "(let-values(((scs_15)" "(if(pair?" -" i_89)" +" i_92)" "(let-values()" "(bulk-binding-at-scopes" "(car" -" i_89)))" +" i_92)))" "(let-values()" "(hash-iterate-key" -" ht_79" -" i_89))))" -"((b_61)" +" ht_82" +" i_92))))" +"((b_60)" "(if(pair?" -" i_89)" +" i_92)" "(let-values()" "(let-values(((bulk_4)" "(bulk-binding-at-bulk" "(car" -" i_89))))" +" i_92))))" "(let-values(((b-info_1)" "(hash-ref" "(bulk-binding-symbols" " bulk_4" -" s_178" +" s_181" " extra-shifts_5)" " sym_16" " #f)))" @@ -16058,8 +16303,8 @@ static const char *startup_source = " #f))))" "(let-values()" "(hash-iterate-value" -" ht_79" -" i_89)))))" +" ht_82" +" i_92)))))" "(let-values(((bindings_5" " covered-scope-sets_3)" "(let-values(((bindings_6)" @@ -16067,11 +16312,11 @@ static const char *startup_source = "((covered-scope-sets_4)" " covered-scope-sets_2))" "(if(if scs_15" -"(if b_61" -"(if(let-values(((or-part_171)" +"(if b_60" +"(if(let-values(((or-part_173)" " all-bindings?_0))" -"(if or-part_171" -" or-part_171" +"(if or-part_173" +" or-part_173" "(subset?" " scs_15" " s-scs_0)))" @@ -16103,20 +16348,20 @@ static const char *startup_source = " scs_15" " s-scs_0)" "(if(local-binding?" -" b_61)" +" b_60)" " 'local" " 'module)" "(if(local-binding?" -" b_61)" +" b_60)" "(local-binding-key" -" b_61)" +" b_60)" "(vector" "(module-binding-sym" -" b_61)" +" b_60)" "(module-binding-module" -" b_61)" +" b_60)" "(module-binding-phase" -" b_61))))" +" b_60))))" " bindings_7)" "(set-add" " covered-scope-sets_5" @@ -16129,19 +16374,19 @@ static const char *startup_source = " covered-scope-sets_4)))))" "(if(not" " #f)" -"(for-loop_98" +"(for-loop_102" " bindings_5" " covered-scope-sets_3" "(if(pair?" -" i_89)" +" i_92)" "(let-values()" "(cdr" -" i_89))" +" i_92))" "(let-values()" "(let-values(((or-part_7)" "(hash-iterate-next" -" ht_79" -" i_89)))" +" ht_82" +" i_92)))" "(if or-part_7" " or-part_7" " bulk-bindings_3)))))" @@ -16151,34 +16396,34 @@ static const char *startup_source = "(values" " bindings_4" " covered-scope-sets_2))))))" -" for-loop_98)" +" for-loop_102)" " bindings_2" " covered-scope-sets_0" "(let-values(((or-part_8)" "(hash-iterate-first" -" ht_79)))" +" ht_82)))" "(if or-part_8" " or-part_8" " bulk-bindings_3)))))))" "(if(not" " #f)" -"(for-loop_97" +"(for-loop_101" " bindings_3" " covered-scope-sets_1" "(unsafe-immutable-hash-iterate-next" -" ht_78" -" i_88))" +" ht_81" +" i_91))" "(values" " bindings_3" " covered-scope-sets_1))))" "(values" " bindings_2" " covered-scope-sets_0))))))" -" for-loop_97)" +" for-loop_101)" " null" "(set)" "(unsafe-immutable-hash-iterate-first" -" ht_78))))))" +" ht_81))))))" " bindings_1))" "(let-values()" " null))))" @@ -16190,58 +16435,58 @@ static const char *startup_source = " bindings_0)))))))))" " fold-var_61))))" "(values fold-var_62)))))" -"(if(not #f)(for-loop_96 fold-var_60 rest_38) fold-var_60)))" +"(if(not #f)(for-loop_100 fold-var_60 rest_39) fold-var_60)))" " fold-var_59)))))" -" for-loop_96)" +" for-loop_100)" " null" -" lst_76))))))" -"(let-values(((ht_71)(car hts_0)))(if(null?(cdr hts_0)) ht_71(hash-set ht_71 'fallbacks(cdr hts_0))))))))" +" lst_77))))))" +"(let-values(((ht_74)(car hts_0)))(if(null?(cdr hts_0)) ht_74(hash-set ht_74 'fallbacks(cdr hts_0))))))))" "(define-values" "(scope-set->context)" "(lambda(scs_16)" "(begin" "(let-values(((temp1_1)" "(reverse$1" -"(let-values(((ht_80) scs_16))" +"(let-values(((ht_83) scs_16))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-immutable-hash-keys ht_80)))" -"((letrec-values(((for-loop_99)" -"(lambda(fold-var_63 i_90)" +"(let-values()(check-in-immutable-hash-keys ht_83)))" +"((letrec-values(((for-loop_103)" +"(lambda(fold-var_63 i_93)" "(begin" " 'for-loop" -"(if i_90" -"(let-values(((sc_24)(unsafe-immutable-hash-iterate-key ht_80 i_90)))" +"(if i_93" +"(let-values(((sc_28)(unsafe-immutable-hash-iterate-key ht_83 i_93)))" "(let-values(((fold-var_19)" "(let-values(((fold-var_20) fold-var_63))" "(let-values(((fold-var_64)" "(let-values()" "(cons" "(let-values()" -"(if(representative-scope? sc_24)" +"(if(representative-scope? sc_28)" "(vector" -"(scope-id sc_24)" -"(scope-kind sc_24)" +"(scope-id sc_28)" +"(scope-kind sc_28)" "(multi-scope-name" "(representative-scope-owner" -" sc_24)))" +" sc_28)))" "(vector" -"(scope-id sc_24)" -"(scope-kind sc_24))))" +"(scope-id sc_28)" +"(scope-kind sc_28))))" " fold-var_20))))" "(values fold-var_64)))))" "(if(not #f)" -"(for-loop_99" +"(for-loop_103" " fold-var_19" -"(unsafe-immutable-hash-iterate-next ht_80 i_90))" +"(unsafe-immutable-hash-iterate-next ht_83 i_93))" " fold-var_19)))" " fold-var_63)))))" -" for-loop_99)" +" for-loop_103)" " null" -"(unsafe-immutable-hash-iterate-first ht_80))))))" +"(unsafe-immutable-hash-iterate-first ht_83))))))" "((<2_0) <)" -"((temp3_2)(lambda(v_130)(vector-ref v_130 0))))" +"((temp3_2)(lambda(v_131)(vector-ref v_131 0))))" "(sort7.1 #f #f temp3_2 #t temp1_1 <2_0)))))" "(define-values" "(raise-ambiguous-error)" @@ -16256,9 +16501,9 @@ static const char *startup_source = "(syntax-debug-info-string id_21 ctx_7)))))" "(define-values" "(syntax-debug-info-string)" -"(lambda(s_154 ctx_8)" +"(lambda(s_155 ctx_8)" "(begin" -"(let-values(((info_3)(syntax-debug-info$1 s_154(expand-context-phase ctx_8) #t)))" +"(let-values(((info_3)(syntax-debug-info$1 s_155(expand-context-phase ctx_8) #t)))" "(if(not" "(let-values(((or-part_26)(pair?(hash-ref info_3 'bindings null))))" "(if or-part_26" @@ -16268,13 +16513,13 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_6)))" -"((letrec-values(((for-loop_100)" -"(lambda(result_65 lst_84)" +"((letrec-values(((for-loop_104)" +"(lambda(result_65 lst_85)" "(begin" " 'for-loop" -"(if(pair? lst_84)" -"(let-values(((fb-info_0)(unsafe-car lst_84))" -"((rest_39)(unsafe-cdr lst_84)))" +"(if(pair? lst_85)" +"(let-values(((fb-info_0)(unsafe-car lst_85))" +"((rest_40)(unsafe-cdr lst_85)))" "(let-values(((result_1)" "(let-values()" "(let-values(((result_66)" @@ -16287,16 +16532,16 @@ static const char *startup_source = " null))))))" "(values result_66)))))" "(if(if(not((lambda x_28 result_1) fb-info_0))(not #f) #f)" -"(for-loop_100 result_1 rest_39)" +"(for-loop_104 result_1 rest_40)" " result_1)))" " result_65)))))" -" for-loop_100)" +" for-loop_104)" " #f" " lst_6))))))" " (let-values () \"\")" "(let-values()" "(let-values(((relevant-scope-sets_0)" -"((letrec-values(((loop_76)" +"((letrec-values(((loop_77)" "(lambda(info_4 layer_0)" "(begin" " 'loop" @@ -16305,19 +16550,19 @@ static const char *startup_source = "(cons" "(hash-ref info_4 'context)" "(reverse$1" -"(let-values(((lst_85)(hash-ref info_4 'bindings null)))" +"(let-values(((lst_86)(hash-ref info_4 'bindings null)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_85)))" -"((letrec-values(((for-loop_101)" -"(lambda(fold-var_65 lst_86)" +"(let-values()(check-list lst_86)))" +"((letrec-values(((for-loop_105)" +"(lambda(fold-var_65 lst_87)" "(begin" " 'for-loop" -"(if(pair? lst_86)" -"(let-values(((b_21)(unsafe-car lst_86))" -"((rest_40)" -"(unsafe-cdr lst_86)))" +"(if(pair? lst_87)" +"(let-values(((b_21)(unsafe-car lst_87))" +"((rest_41)" +"(unsafe-cdr lst_87)))" "(let-values(((fold-var_33)" "(let-values(((fold-var_34)" " fold-var_65))" @@ -16332,31 +16577,31 @@ static const char *startup_source = "(values" " fold-var_66)))))" "(if(not #f)" -"(for-loop_101 fold-var_33 rest_40)" +"(for-loop_105 fold-var_33 rest_41)" " fold-var_33)))" " fold-var_65)))))" -" for-loop_101)" +" for-loop_105)" " null" -" lst_85)))))" +" lst_86)))))" "(let-values(((fallbacks_0)(hash-ref info_4 'fallbacks null)))" "(reverse$1" -"(let-values(((lst_87) fallbacks_0)((start_14)(add1 layer_0)))" +"(let-values(((lst_88) fallbacks_0)((start_14)(add1 layer_0)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_87)))" +"(let-values()(check-list lst_88)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-naturals start_14)))" -"((letrec-values(((for-loop_102)" -"(lambda(fold-var_67 lst_88 pos_11)" +"((letrec-values(((for-loop_106)" +"(lambda(fold-var_67 lst_89 pos_11)" "(begin" " 'for-loop" -"(if(if(pair? lst_88) #t #f)" +"(if(if(pair? lst_89) #t #f)" "(let-values(((fallback_0)" -"(unsafe-car lst_88))" -"((rest_41)" -"(unsafe-cdr lst_88))" +"(unsafe-car lst_89))" +"((rest_42)" +"(unsafe-cdr lst_89))" "((layer_1) pos_11))" "(let-values(((fold-var_9)" "(let-values(((fold-var_68)" @@ -16365,56 +16610,56 @@ static const char *startup_source = "(let-values()" "(cons" "(let-values()" -"(loop_76" +"(loop_77" " fallback_0" " layer_1))" " fold-var_68))))" "(values" " fold-var_69)))))" "(if(not #f)" -"(for-loop_102" +"(for-loop_106" " fold-var_9" -" rest_41" +" rest_42" "(+ pos_11 1))" " fold-var_9)))" " fold-var_67)))))" -" for-loop_102)" +" for-loop_106)" " null" -" lst_87" +" lst_88" " start_14))))))))))" -" loop_76)" +" loop_77)" " info_3" " 0)))" "(let-values(((common-scopes_0)" "(if(null? relevant-scope-sets_0)" "(set)" -"(let-values(((lst_89) relevant-scope-sets_0))" +"(let-values(((lst_90) relevant-scope-sets_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_89)))" -"((letrec-values(((for-loop_103)" -"(lambda(s_179 lst_90)" +"(let-values()(check-list lst_90)))" +"((letrec-values(((for-loop_107)" +"(lambda(s_182 lst_91)" "(begin" " 'for-loop" -"(if(pair? lst_90)" -"(let-values(((l_48)(unsafe-car lst_90))" -"((rest_42)(unsafe-cdr lst_90)))" +"(if(pair? lst_91)" +"(let-values(((l_48)(unsafe-car lst_91))" +"((rest_43)(unsafe-cdr lst_91)))" "(let-values(((s_78)" -"(let-values(((s_180) s_179))" -"(let-values(((s_181)" +"(let-values(((s_183) s_182))" +"(let-values(((s_184)" "(let-values()" "(set-intersect" -" s_180" +" s_183" "(list->set l_48)))))" -"(values s_181)))))" -"(if(not #f)(for-loop_103 s_78 rest_42) s_78)))" -" s_179)))))" -" for-loop_103)" +"(values s_184)))))" +"(if(not #f)(for-loop_107 s_78 rest_43) s_78)))" +" s_182)))))" +" for-loop_107)" "(list->set(car relevant-scope-sets_0))" -" lst_89))))))" +" lst_90))))))" "(string-append" -"((letrec-values(((loop_77)" +"((letrec-values(((loop_78)" "(lambda(info_5 layer_2)" "(begin" " 'loop" @@ -16426,27 +16671,27 @@ static const char *startup_source = "(apply" " string-append" "(reverse$1" -"(let-values(((lst_91)" +"(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_61)" "(begin" " 'temp2" "(if(hash-ref a_37 'match? #f)" -"(not(hash-ref b_62 'match? #f))" +"(not(hash-ref b_61 'match? #f))" " #f)))))" "(sort7.1 #f #f #f #f temp1_1 temp2_2))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_91)))" -"((letrec-values(((for-loop_99)" -"(lambda(fold-var_63 lst_92)" +"(let-values()(check-list lst_92)))" +"((letrec-values(((for-loop_103)" +"(lambda(fold-var_63 lst_93)" "(begin" " 'for-loop" -"(if(pair? lst_92)" -"(let-values(((b_38)(unsafe-car lst_92))" -"((rest_43)(unsafe-cdr lst_92)))" +"(if(pair? lst_93)" +"(let-values(((b_38)(unsafe-car lst_93))" +"((rest_44)(unsafe-cdr lst_93)))" "(let-values(((fold-var_20)" "(let-values(((fold-var_64)" " fold-var_63))" @@ -16486,31 +16731,31 @@ static const char *startup_source = " fold-var_64))))" "(values fold-var_70)))))" "(if(not #f)" -"(for-loop_99 fold-var_20 rest_43)" +"(for-loop_103 fold-var_20 rest_44)" " fold-var_20)))" " fold-var_63)))))" -" for-loop_99)" +" for-loop_103)" " null" -" lst_91)))))" +" lst_92)))))" "(let-values(((fallbacks_1)(hash-ref info_5 'fallbacks null)))" "(apply" " string-append" "(reverse$1" -"(let-values(((lst_93) fallbacks_1)((start_15)(add1 layer_2)))" +"(let-values(((lst_94) fallbacks_1)((start_15)(add1 layer_2)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_93)))" +"(let-values()(check-list lst_94)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-naturals start_15)))" -"((letrec-values(((for-loop_104)" -"(lambda(fold-var_71 lst_94 pos_12)" +"((letrec-values(((for-loop_108)" +"(lambda(fold-var_71 lst_95 pos_12)" "(begin" " 'for-loop" -"(if(if(pair? lst_94) #t #f)" -"(let-values(((fallback_1)(unsafe-car lst_94))" -"((rest_0)(unsafe-cdr lst_94))" +"(if(if(pair? lst_95) #t #f)" +"(let-values(((fallback_1)(unsafe-car lst_95))" +"((rest_0)(unsafe-cdr lst_95))" "((layer_3) pos_12))" "(let-values(((fold-var_72)" "(let-values(((fold-var_73)" @@ -16519,23 +16764,23 @@ static const char *startup_source = "(let-values()" "(cons" "(let-values()" -"(loop_77" +"(loop_78" " fallback_1" " layer_3))" " fold-var_73))))" "(values fold-var_74)))))" "(if(not #f)" -"(for-loop_104" +"(for-loop_108" " fold-var_72" " rest_0" "(+ pos_12 1))" " fold-var_72)))" " fold-var_71)))))" -" for-loop_104)" +" for-loop_108)" " null" -" lst_93" +" lst_94" " start_15)))))))))))" -" loop_77)" +" loop_78)" " info_3" " 0)" "(if(set-empty? common-scopes_0)" @@ -16554,16 +16799,16 @@ static const char *startup_source = "(begin" " 'for-loop" "(if(pair? lst_10)" -"(let-values(((s_182)(unsafe-car lst_10))" +"(let-values(((s_185)(unsafe-car lst_10))" "((rest_1)(unsafe-cdr lst_10)))" "(let-values(((fold-var_76)" "(let-values(((fold-var_77) fold-var_75))" -"(if(set-member? common-scopes_0 s_182)" +"(if(set-member? common-scopes_0 s_185)" "(let-values(((fold-var_5) fold-var_77))" "(let-values(((fold-var_6)" "(let-values()" "(cons" -"(let-values() s_182)" +"(let-values() s_185)" " fold-var_5))))" "(values fold-var_6)))" " fold-var_77))))" @@ -16578,7 +16823,7 @@ static const char *startup_source = "(lambda(scopes_19 common-scopes_1)" "(begin" "(let-values(((strs_0)" -"((letrec-values(((loop_78)" +"((letrec-values(((loop_79)" "(lambda(strs_1 scopes_20)" "(begin" " 'loop" @@ -16589,44 +16834,44 @@ static const char *startup_source = "(if(if(pair? strs_1)" "(<(+(string-length str_3)(string-length(car strs_1))) 72)" " #f)" -"(loop_78" +"(loop_79" "(cons(string-append(car strs_1) str_3)(cdr strs_1))" "(cdr scopes_20))" -"(loop_78(cons str_3 strs_1)(cdr scopes_20))))))))))" -" loop_78)" +"(loop_79(cons str_3 strs_1)(cdr scopes_20))))))))))" +" loop_79)" " null" "(if(set-empty? common-scopes_1)" " scopes_19" "(append" "(reverse$1" -"(let-values(((lst_95) scopes_19))" +"(let-values(((lst_96) scopes_19))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_95)))" -"((letrec-values(((for-loop_105)" -"(lambda(fold-var_78 lst_96)" +"(let-values()(check-list lst_96)))" +"((letrec-values(((for-loop_109)" +"(lambda(fold-var_78 lst_97)" "(begin" " 'for-loop" -"(if(pair? lst_96)" -"(let-values(((s_183)(unsafe-car lst_96))" -"((rest_44)(unsafe-cdr lst_96)))" +"(if(pair? lst_97)" +"(let-values(((s_186)(unsafe-car lst_97))" +"((rest_45)(unsafe-cdr lst_97)))" "(let-values(((fold-var_79)" "(let-values(((fold-var_80) fold-var_78))" -"(if(not(set-member? common-scopes_1 s_183))" +"(if(not(set-member? common-scopes_1 s_186))" "(let-values(((fold-var_81) fold-var_80))" "(let-values(((fold-var_82)" "(let-values()" "(cons" -"(let-values() s_183)" +"(let-values() s_186)" " fold-var_81))))" "(values fold-var_82)))" " fold-var_80))))" -"(if(not #f)(for-loop_105 fold-var_79 rest_44) fold-var_79)))" +"(if(not #f)(for-loop_109 fold-var_79 rest_45) fold-var_79)))" " fold-var_78)))))" -" for-loop_105)" +" for-loop_109)" " null" -" lst_95))))" +" lst_96))))" " (list \"[common scopes]\"))))))" "(if(null? strs_0)" " (let-values () \"\\n [empty]\")" @@ -16634,17 +16879,17 @@ static const char *startup_source = "(apply" " string-append" "(reverse$1" -"(let-values(((lst_97) strs_0))" +"(let-values(((lst_98) strs_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_97)))" -"((letrec-values(((for-loop_106)" -"(lambda(fold-var_83 lst_98)" +"(let-values()(check-list lst_98)))" +"((letrec-values(((for-loop_110)" +"(lambda(fold-var_83 lst_99)" "(begin" " 'for-loop" -"(if(pair? lst_98)" -"(let-values(((str_4)(unsafe-car lst_98))((rest_45)(unsafe-cdr lst_98)))" +"(if(pair? lst_99)" +"(let-values(((str_4)(unsafe-car lst_99))((rest_46)(unsafe-cdr lst_99)))" "(let-values(((fold-var_84)" "(let-values(((fold-var_85) fold-var_83))" "(let-values(((fold-var_14)" @@ -16654,17 +16899,17 @@ static const char *startup_source = " (string-append \"\\n \" str_4))" " fold-var_85))))" "(values fold-var_14)))))" -"(if(not #f)(for-loop_106 fold-var_84 rest_45) fold-var_84)))" +"(if(not #f)(for-loop_110 fold-var_84 rest_46) fold-var_84)))" " fold-var_83)))))" -" for-loop_106)" +" for-loop_110)" " null" -" lst_97)))))))))))" +" lst_98)))))))))))" " (define-values (layer->string) (lambda (layer_4) (begin (if (zero? layer_4) \"\" (format \" at layer ~a\" layer_4)))))" "(define-values" "(raise-syntax-implicit-error)" "(lambda(s_0 sym_27 trigger-id_0 ctx_8)" "(begin" -"(let-values(((phase_43)(expand-context-phase ctx_8)))" +"(let-values(((phase_44)(expand-context-phase ctx_8)))" "(let-values(((what_1)" "(let-values(((tmp_16) sym_27))" "(if(equal? tmp_16 '#%app)" @@ -16680,7 +16925,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_43))" +"(let-values(((trigger-id1_0) trigger-id_0)((phase2_1) phase_44))" "(resolve40.1 #f #f #f #f #f #f #f #f trigger-id1_0 phase2_1)))" " #f)))" "(raise-syntax-error$1" @@ -16690,12 +16935,12 @@ static const char *startup_source = " \"unbound identifier;\\n also, no ~a 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_43))" +"(let-values(((tmp_17) phase_44))" "(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_43))))))" +" (let-values () (format \" at phase ~a\" phase_44))))))" "(if unbound?_0 trigger-id_0 #f)" "(if unbound?_0(if(not(eq?(syntax-e$1 s_0)(syntax-e$1 trigger-id_0))) s_0 #f) #f)" " null" @@ -16707,32 +16952,32 @@ static const char *startup_source = "(begin" " 'check-no-duplicate-ids8" "(let-values(((ids_2) ids5_0))" -"(let-values(((phase_44) phase6_0))" -"(let-values(((s_142) s7_1))" -"(let-values(((ht_74)(if ht4_0 ht3_0(make-check-no-duplicate-table))))" +"(let-values(((phase_45) phase6_0))" +"(let-values(((s_143) 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()" -"((letrec-values(((loop_79)" -"(lambda(v_131 ht_81)" +"((letrec-values(((loop_80)" +"(lambda(v_132 ht_84)" "(begin" " 'loop" -"(if(identifier? v_131)" +"(if(identifier? v_132)" "(let-values()" -"(let-values(((l_7)(hash-ref ht_81(syntax-e$1 v_131) null)))" +"(let-values(((l_7)(hash-ref ht_84(syntax-e$1 v_132) null)))" "(begin" -"(let-values(((lst_77) l_7))" +"(let-values(((lst_78) l_7))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_77)))" -"((letrec-values(((for-loop_91)" -"(lambda(lst_99)" +"(let-values()(check-list lst_78)))" +"((letrec-values(((for-loop_95)" +"(lambda(lst_100)" "(begin" " 'for-loop" -"(if(pair? lst_99)" -"(let-values(((id_2)(unsafe-car lst_99))" -"((rest_46)" -"(unsafe-cdr lst_99)))" +"(if(pair? lst_100)" +"(let-values(((id_2)(unsafe-car lst_100))" +"((rest_47)" +"(unsafe-cdr lst_100)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -16741,33 +16986,33 @@ static const char *startup_source = "(let-values()" "(if(bound-identifier=?$1" " id_2" -" v_131" -" phase_44)" +" v_132" +" phase_45)" "(let-values()" "(raise-syntax-error$1" " #f" "(string-append" " \"duplicate \"" " what_2)" -" s_142" -" v_131))" +" s_143" +" v_132))" "(void)))" "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_91 rest_46)" +"(for-loop_95 rest_47)" "(values))))" "(values))))))" -" for-loop_91)" -" lst_77)))" +" for-loop_95)" +" lst_78)))" "(void)" -"(hash-set ht_81(syntax-e$1 v_131)(cons v_131 l_7)))))" -"(if(pair? v_131)" -"(let-values()(loop_79(cdr v_131)(loop_79(car v_131) ht_81)))" -"(let-values() ht_81)))))))" -" loop_79)" +"(hash-set ht_84(syntax-e$1 v_132)(cons v_132 l_7)))))" +"(if(pair? v_132)" +"(let-values()(loop_80(cdr v_132)(loop_80(car v_132) ht_84)))" +"(let-values() ht_84)))))))" +" loop_80)" " ids_2" -" ht_74))))))))))" +" ht_77))))))))))" "(define-values" "(remove-use-site-scopes)" "(lambda(s_0 ctx_7)" @@ -16777,17 +17022,17 @@ static const char *startup_source = "(if(syntax?$1 s_0)" "(remove-scopes s_0(unbox use-sites_0))" "(reverse$1" -"(let-values(((lst_100) s_0))" +"(let-values(((lst_101) s_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_100)))" -"((letrec-values(((for-loop_107)" +"(let-values()(check-list lst_101)))" +"((letrec-values(((for-loop_111)" "(lambda(fold-var_86 lst_6)" "(begin" " 'for-loop" "(if(pair? lst_6)" -"(let-values(((id_10)(unsafe-car lst_6))((rest_47)(unsafe-cdr lst_6)))" +"(let-values(((id_10)(unsafe-car lst_6))((rest_48)(unsafe-cdr lst_6)))" "(let-values(((fold-var_87)" "(let-values(((fold-var_88) fold-var_86))" "(let-values(((fold-var_60)" @@ -16797,11 +17042,11 @@ static const char *startup_source = "(remove-scopes id_10(unbox use-sites_0)))" " fold-var_88))))" "(values fold-var_60)))))" -"(if(not #f)(for-loop_107 fold-var_87 rest_47) fold-var_87)))" +"(if(not #f)(for-loop_111 fold-var_87 rest_48) fold-var_87)))" " fold-var_86)))))" -" for-loop_107)" +" for-loop_111)" " null" -" lst_100)))))" +" lst_101)))))" " s_0)))))" "(define-values" "(struct:compile-context" @@ -16857,7 +17102,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_45)(if phase9_0 phase3_0(namespace-phase namespace_1))))" +"(let-values(((phase_46)(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)))" @@ -16870,7 +17115,7 @@ static const char *startup_source = "(void))" "(compile-context1.1" " namespace_1" -" phase_45" +" phase_46" " self_6" " module-self_0" " full-module-name_0" @@ -16906,9 +17151,9 @@ static const char *startup_source = "(intern-module-path-index!)" "(lambda(t_41 mpi_19)" "(begin" -"(let-values(((or-part_172)(hash-ref(mpi-intern-table-fast t_41) mpi_19 #f)))" -"(if or-part_172" -" or-part_172" +"(let-values(((or-part_174)(hash-ref(mpi-intern-table-fast t_41) mpi_19 #f)))" +"(if or-part_174" +" or-part_174" "(let-values(((name_2 base_15)(1/module-path-index-split mpi_19)))" "(if(not name_2)" "(let-values()(begin(hash-set!(mpi-intern-table-fast t_41) mpi_19 mpi_19) mpi_19))" @@ -16921,24 +17166,24 @@ static const char *startup_source = "(let-values(((at-name_1)(make-hasheq)))" "(begin(hash-set!(mpi-intern-table-normal t_41) name_2 at-name_1) at-name_1))))))" "(let-values(((i-mpi_0)" -"(let-values(((or-part_79)(hash-ref at-name_0 interned-base_0 #f)))" -"(if or-part_79" -" or-part_79" +"(let-values(((or-part_77)(hash-ref at-name_0 interned-base_0 #f)))" +"(if or-part_77" +" or-part_77" "(let-values(((mpi_20)" "(if(eq? base_15 interned-base_0)" " mpi_19" -"(let-values(((the-struct_48) mpi_19))" -"(if(1/module-path-index? the-struct_48)" +"(let-values(((the-struct_47) mpi_19))" +"(if(1/module-path-index? the-struct_47)" "(let-values(((base3_0) interned-base_0))" "(module-path-index2.1" -"(module-path-index-path the-struct_48)" +"(module-path-index-path the-struct_47)" " base3_0" -"(module-path-index-resolved the-struct_48)" -"(module-path-index-shift-cache the-struct_48)))" +"(module-path-index-resolved the-struct_47)" +"(module-path-index-shift-cache the-struct_47)))" "(raise-argument-error" " 'struct-copy" " \"module-path-index?\"" -" the-struct_48))))))" +" the-struct_47))))))" "(begin(hash-set! at-name_0 interned-base_0 mpi_20) mpi_20))))))" "(begin(hash-set!(mpi-intern-table-fast t_41) mpi_19 i-mpi_0) i-mpi_0))))))))))))" "(define-values" @@ -16990,9 +17235,9 @@ static const char *startup_source = "(let-values()" "(let-values(((mpi_22)(intern-module-path-index!(module-path-index-table-intern mpis_1) mpi_21))" "((positions_0)(module-path-index-table-positions mpis_1)))" -"(let-values(((or-part_77)(hash-ref positions_0 mpi_22 #f)))" -"(if or-part_77" -" or-part_77" +"(let-values(((or-part_75)(hash-ref positions_0 mpi_22 #f)))" +"(if or-part_75" +" or-part_75" "(let-values(((pos_14)(hash-count positions_0)))" "(begin(hash-set! positions_0 mpi_22 pos_14) pos_14))))))" "(void))))))" @@ -17000,41 +17245,73 @@ static const char *startup_source = "(generate-module-path-index-deserialize)" "(lambda(mpis_2)" "(begin" -"(let-values(((positions_1)(module-path-index-table-positions mpis_2)))" -"(let-values(((gen-order_0)(make-hasheqv)))" -"(let-values(((rev-positions_0)" -"(let-values(((ht_82) positions_1))" +"(let-values(((unique-list_0)" +"(lambda(v_133)" +"(begin" +" 'unique-list" +"(if(pair? v_133)" +"(reverse$1" +"(let-values(((lst_102) v_133))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_82)))" -"((letrec-values(((for-loop_108)" -"(lambda(table_110 i_91)" +"(let-values()(check-list lst_102)))" +"((letrec-values(((for-loop_26)" +"(lambda(fold-var_10 lst_81)" "(begin" " 'for-loop" -"(if i_91" -"(let-values(((k_18 v_132)(hash-iterate-key+value ht_82 i_91)))" -"(let-values(((table_111)" -"(let-values(((table_102) table_110))" -"(let-values(((table_112)" +"(if(pair? lst_81)" +"(let-values(((i_94)(unsafe-car lst_81))" +"((rest_49)(unsafe-cdr lst_81)))" +"(let-values(((fold-var_89)" +"(let-values(((fold-var_90) fold-var_10))" +"(let-values(((fold-var_91)" "(let-values()" -"(let-values(((key_43 val_35)" +"(cons" +"(let-values() i_94)" +" fold-var_90))))" +"(values fold-var_91)))))" +"(if(not #f)(for-loop_26 fold-var_89 rest_49) fold-var_89)))" +" fold-var_10)))))" +" for-loop_26)" +" null" +" lst_102))))" +" v_133)))))" +"(let-values(((positions_1)(module-path-index-table-positions mpis_2)))" +"(let-values(((gen-order_0)(make-hasheqv)))" +"(let-values(((rev-positions_0)" +"(let-values(((ht_85) positions_1))" +"(begin" +"(if(variable-reference-from-unsafe?(#%variable-reference))" +"(void)" +"(let-values()(check-in-hash ht_85)))" +"((letrec-values(((for-loop_82)" +"(lambda(table_115 i_95)" +"(begin" +" 'for-loop" +"(if i_95" +"(let-values(((k_18 v_62)(hash-iterate-key+value ht_85 i_95)))" +"(let-values(((table_116)" +"(let-values(((table_110) table_115))" +"(let-values(((table_117)" +"(let-values()" +"(let-values(((key_44 val_36)" "(let-values()" "(values" -" v_132" +" v_62" " k_18))))" "(hash-set" -" table_102" -" key_43" -" val_35)))))" -"(values table_112)))))" +" table_110" +" key_44" +" val_36)))))" +"(values table_117)))))" "(if(not #f)" -"(for-loop_108 table_111(hash-iterate-next ht_82 i_91))" -" table_111)))" -" table_110)))))" -" for-loop_108)" +"(for-loop_82 table_116(hash-iterate-next ht_85 i_95))" +" table_116)))" +" table_115)))))" +" for-loop_82)" " '#hasheqv()" -"(hash-iterate-first ht_82))))))" +"(hash-iterate-first ht_85))))))" "(let-values((()" "(begin" "(let-values(((start_16) 0)((end_10)(hash-count rev-positions_0))((inc_4) 1))" @@ -17042,12 +17319,12 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-range start_16 end_10 inc_4)))" -"((letrec-values(((for-loop_21)" +"((letrec-values(((for-loop_112)" "(lambda(pos_15)" "(begin" " 'for-loop" "(if(< pos_15 end_10)" -"(let-values(((i_92) pos_15))" +"(let-values(((i_96) pos_15))" "(let-values((()" "(let-values()" "(let-values((()" @@ -17057,8 +17334,8 @@ static const char *startup_source = "(let-values(((mpi_23)" "(hash-ref" " rev-positions_0" -" i_92)))" -"((letrec-values(((loop_80)" +" i_96)))" +"((letrec-values(((loop_81)" "(lambda(mpi_24)" "(begin" " 'loop" @@ -17075,7 +17352,7 @@ static const char *startup_source = "(begin" "(if base_16" "(let-values()" -"(loop_80" +"(loop_81" " base_16))" "(void))" "(hash-set!" @@ -17083,87 +17360,89 @@ static const char *startup_source = " mpi_24" "(hash-count" " gen-order_0))))))))))" -" loop_80)" +" loop_81)" " mpi_23)))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_21(+ pos_15 inc_4))(values))))" +"(if(not #f)(for-loop_112(+ pos_15 inc_4))(values))))" "(values))))))" -" for-loop_21)" +" for-loop_112)" " start_16)))" "(values))))" "(let-values()" "(let-values(((rev-gen-order_0)" -"(let-values(((ht_83) gen-order_0))" +"(let-values(((ht_86) gen-order_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_83)))" -"((letrec-values(((for-loop_109)" -"(lambda(table_113 i_93)" +"(let-values()(check-in-hash ht_86)))" +"((letrec-values(((for-loop_53)" +"(lambda(table_118 i_20)" "(begin" " 'for-loop" -"(if i_93" -"(let-values(((k_19 v_130)" -"(hash-iterate-key+value ht_83 i_93)))" -"(let-values(((table_15)" -"(let-values(((table_57) table_113))" -"(let-values(((table_58)" +"(if i_20" +"(let-values(((k_19 v_134)" +"(hash-iterate-key+value ht_86 i_20)))" +"(let-values(((table_19)" +"(let-values(((table_119) table_118))" +"(let-values(((table_9)" "(let-values()" -"(let-values(((key_44" -" val_36)" +"(let-values(((key_45" +" val_37)" "(let-values()" "(values" -" v_130" +" v_134" " k_19))))" "(hash-set" -" table_57" -" key_44" -" val_36)))))" -"(values table_58)))))" +" table_119" +" key_45" +" val_37)))))" +"(values table_9)))))" "(if(not #f)" -"(for-loop_109 table_15(hash-iterate-next ht_83 i_93))" -" table_15)))" -" table_113)))))" -" for-loop_109)" +"(for-loop_53 table_19(hash-iterate-next ht_86 i_20))" +" table_19)))" +" table_118)))))" +" for-loop_53)" " '#hasheqv()" -"(hash-iterate-first ht_83))))))" +"(hash-iterate-first ht_86))))))" "(let-values(((gens_0)" "(let-values(((len_11)(hash-count gen-order_0)))" "(begin" "(if(exact-nonnegative-integer? len_11)" "(void)" "(let-values()" -" (raise-argument-error 'for/vector \"exact-nonnegative-integer?\" len_11)))" -"(let-values(((v_133)(make-vector len_11 0)))" +" (raise-argument-error 'for/vector \"exact-nonnegative-integer?\" len_11)))" +"(let-values(((v_135)(make-vector len_11 0)))" "(begin" "(if(zero? len_11)" "(void)" "(let-values()" -"(let-values(((start_17) 0)((end_11)(hash-count gen-order_0))((inc_5) 1))" +"(let-values(((start_17) 0)" +"((end_11)(hash-count gen-order_0))" +"((inc_5) 1))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-range start_17 end_11 inc_5)))" -"((letrec-values(((for-loop_28)" -"(lambda(i_94 pos_16)" +"((letrec-values(((for-loop_29)" +"(lambda(i_97 pos_16)" "(begin" " 'for-loop" "(if(< pos_16 end_11)" -"(let-values(((i_95) pos_16))" -"(let-values(((i_96)" -"(let-values(((i_97) i_94))" +"(let-values(((i_90) pos_16))" "(let-values(((i_98)" +"(let-values(((i_99) i_97))" +"(let-values(((i_100)" "(let-values()" "(begin" "(unsafe-vector*-set!" -" v_133" -" i_97" +" v_135" +" i_99" "(let-values()" "(let-values(((mpi_25)" "(hash-ref" " rev-gen-order_0" -" i_95)))" +" i_90)))" "(let-values(((path_6" " base_17)" "(1/module-path-index-split" @@ -17176,12 +17455,13 @@ static const char *startup_source = " path_6)" "(let-values()" "(box" -"(let-values(((or-part_173)" +"(let-values(((or-part_175)" +"(unique-list_0" "(1/resolved-module-path-name" "(module-path-index-resolved" -" mpi_25))))" -"(if or-part_173" -" or-part_173" +" mpi_25)))))" +"(if or-part_175" +" or-part_175" " 'self))))" "(if(not" " base_17)" @@ -17198,97 +17478,97 @@ static const char *startup_source = "(void)))))))))" "(unsafe-fx+" " 1" -" i_97)))))" -"(values i_98)))))" +" i_99)))))" +"(values i_100)))))" "(if(if(not" -"((lambda x_42" -"(unsafe-fx= i_96 len_11))" -" i_95))" +"((lambda x_9" +"(unsafe-fx= i_98 len_11))" +" i_90))" "(not #f)" " #f)" -"(for-loop_28 i_96(+ pos_16 inc_5))" -" i_96)))" -" i_94)))))" -" for-loop_28)" +"(for-loop_29 i_98(+ pos_16 inc_5))" +" i_98)))" +" i_97)))))" +" for-loop_29)" " 0" " start_17)))))" -" v_133))))))" +" v_135))))))" "(list" " 'deserialize-module-path-indexes" "(list 'quote gens_0)" "(list" " 'quote" -"(let-values(((vec_25 i_26)" +"(let-values(((vec_25 i_101)" "(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_110)" -"(lambda(vec_13 i_99 pos_17)" +"((letrec-values(((for-loop_55)" +"(lambda(vec_26 i_102 pos_17)" "(begin" " 'for-loop" "(if(< pos_17 end_12)" -"(let-values(((i_27) pos_17))" -"(let-values(((vec_26 i_100)" -"(let-values(((vec_27) vec_13)" -"((i_28) i_99))" -"(let-values(((vec_28 i_101)" +"(let-values(((i_21) pos_17))" +"(let-values(((vec_27 i_103)" +"(let-values(((vec_28) vec_26)" +"((i_37) i_102))" +"(let-values(((vec_29 i_104)" "(let-values()" "(let-values(((new-vec_2)" "(if(eq?" -" i_28" +" i_37" "(unsafe-vector*-length" -" vec_27))" +" vec_28))" "(grow-vector" -" vec_27)" -" vec_27)))" +" vec_28)" +" vec_28)))" "(begin" "(unsafe-vector*-set!" " new-vec_2" -" i_28" +" i_37" "(let-values()" "(hash-ref" " gen-order_0" "(hash-ref" " rev-positions_0" -" i_27))))" +" i_21))))" "(values" " new-vec_2" "(unsafe-fx+" -" i_28" +" i_37" " 1)))))))" -"(values vec_28 i_101)))))" +"(values vec_29 i_104)))))" "(if(not #f)" -"(for-loop_110 vec_26 i_100(+ pos_17 inc_6))" -"(values vec_26 i_100))))" -"(values vec_13 i_99))))))" -" for-loop_110)" +"(for-loop_55 vec_27 i_103(+ pos_17 inc_6))" +"(values vec_27 i_103))))" +"(values vec_26 i_102))))))" +" for-loop_55)" "(make-vector 16)" " 0" " start_18)))))" -"(shrink-vector vec_25 i_26))))))))))))))" +"(shrink-vector vec_25 i_101)))))))))))))))" "(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_29 len_12)" -"(let-values(((vec_30) gen-vec_0))" -"(begin(check-vector vec_30)(values vec_30(unsafe-vector-length vec_30)))))" +"(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)))))" "((start_19) 0))" "(begin" " #f" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-naturals start_19)))" -"((letrec-values(((for-loop_111)" +"((letrec-values(((for-loop_113)" "(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_29 pos_18))((i_102) pos_19))" +"(let-values(((d_21)(unsafe-vector-ref vec_30 pos_18))((i_105) pos_19))" "(let-values((()" "(let-values()" "(let-values((()" @@ -17297,7 +17577,7 @@ static const char *startup_source = "(let-values()" "(vector-set!" " gen_0" -" i_102" +" i_105" "(if(eq? d_21 'top)" "(let-values()" "(deserialize-module-path-index))" @@ -17315,9 +17595,9 @@ static const char *startup_source = " #f)))))))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_111(unsafe-fx+ 1 pos_18)(+ pos_19 1))(values))))" +"(if(not #f)(for-loop_113(unsafe-fx+ 1 pos_18)(+ pos_19 1))(values))))" "(values))))))" -" for-loop_111)" +" for-loop_113)" " 0" " start_19)))" "(void)" @@ -17326,94 +17606,94 @@ static const char *startup_source = "(if(exact-nonnegative-integer? len_13)" "(void)" " (let-values () (raise-argument-error 'for/vector \"exact-nonnegative-integer?\" len_13)))" -"(let-values(((v_134)(make-vector len_13 0)))" +"(let-values(((v_136)(make-vector len_13 0)))" "(begin" "(if(zero? len_13)" "(void)" "(let-values()" -"(let-values(((vec_31 len_14)" -"(let-values(((vec_32) order-vec_0))" -"(begin(check-vector vec_32)(values vec_32(unsafe-vector-length vec_32))))))" +"(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))))))" "(begin" " #f" -"((letrec-values(((for-loop_112)" -"(lambda(i_103 pos_20)" +"((letrec-values(((for-loop_114)" +"(lambda(i_106 pos_20)" "(begin" " 'for-loop" "(if(unsafe-fx< pos_20 len_14)" -"(let-values(((p_26)(unsafe-vector-ref vec_31 pos_20)))" -"(let-values(((i_104)" -"(let-values(((i_105) i_103))" -"(let-values(((i_23)" +"(let-values(((p_31)(unsafe-vector-ref vec_32 pos_20)))" +"(let-values(((i_45)" +"(let-values(((i_62) i_106))" +"(let-values(((i_107)" "(let-values()" "(begin" "(unsafe-vector*-set!" -" v_134" -" i_105" +" v_136" +" i_62" "(let-values()" -"(vector*-ref gen_0 p_26)))" -"(unsafe-fx+ 1 i_105)))))" -"(values i_23)))))" -"(if(if(not((lambda x_43(unsafe-fx= i_104 len_13)) p_26))" +"(vector*-ref gen_0 p_31)))" +"(unsafe-fx+ 1 i_62)))))" +"(values i_107)))))" +"(if(if(not((lambda x_42(unsafe-fx= i_45 len_13)) p_31))" "(not #f)" " #f)" -"(for-loop_112 i_104(unsafe-fx+ 1 pos_20))" -" i_104)))" -" i_103)))))" -" for-loop_112)" +"(for-loop_114 i_45(unsafe-fx+ 1 pos_20))" +" i_45)))" +" i_106)))))" +" for-loop_114)" " 0" " 0)))))" -" v_134)))))))))" +" v_136)))))))))" "(define-values" "(mpis-as-vector)" "(lambda(mpis_3)" "(begin" "(let-values(((positions_2)(module-path-index-table-positions mpis_3)))" -"(let-values(((vec_33)(make-vector(hash-count positions_2) #f)))" +"(let-values(((vec_34)(make-vector(hash-count positions_2) #f)))" "(begin" -"(let-values(((ht_84) positions_2))" +"(let-values(((ht_87) positions_2))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_84)))" -"((letrec-values(((for-loop_113)" -"(lambda(i_106)" +"(let-values()(check-in-hash ht_87)))" +"((letrec-values(((for-loop_115)" +"(lambda(i_108)" "(begin" " 'for-loop" -"(if i_106" -"(let-values(((mpi_2 pos_21)(hash-iterate-key+value ht_84 i_106)))" +"(if i_108" +"(let-values(((mpi_26 pos_21)(hash-iterate-key+value ht_87 i_108)))" "(let-values((()" "(let-values()" "(let-values((()" "(let-values()" "(begin" "(let-values()" -"(vector-set! vec_33 pos_21 mpi_2))" +"(vector-set! vec_34 pos_21 mpi_26))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_113(hash-iterate-next ht_84 i_106))(values))))" +"(if(not #f)(for-loop_115(hash-iterate-next ht_87 i_108))(values))))" "(values))))))" -" for-loop_113)" -"(hash-iterate-first ht_84))))" +" for-loop_115)" +"(hash-iterate-first ht_87))))" "(void)" -" vec_33))))))" +" vec_34))))))" "(define-values" "(serialize-module-uses)" "(lambda(mus_0 mpis_4)" "(begin" "(reverse$1" -"(let-values(((lst_101) mus_0))" +"(let-values(((lst_103) mus_0))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_101)))" -"((letrec-values(((for-loop_6)" -"(lambda(fold-var_0 lst_102)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_103)))" +"((letrec-values(((for-loop_116)" +"(lambda(fold-var_92 lst_104)" "(begin" " 'for-loop" -"(if(pair? lst_102)" -"(let-values(((mu_1)(unsafe-car lst_102))((rest_48)(unsafe-cdr lst_102)))" -"(let-values(((fold-var_2)" -"(let-values(((fold-var_3) fold-var_0))" -"(let-values(((fold-var_89)" +"(if(pair? lst_104)" +"(let-values(((mu_1)(unsafe-car lst_104))((rest_50)(unsafe-cdr lst_104)))" +"(let-values(((fold-var_93)" +"(let-values(((fold-var_94) fold-var_92))" +"(let-values(((fold-var_95)" "(let-values()" "(cons" "(let-values()" @@ -17423,32 +17703,32 @@ static const char *startup_source = " mpis_4" "(module-use-module mu_1))" "(module-use-phase mu_1)))" -" fold-var_3))))" -"(values fold-var_89)))))" -"(if(not #f)(for-loop_6 fold-var_2 rest_48) fold-var_2)))" -" fold-var_0)))))" -" for-loop_6)" +" fold-var_94))))" +"(values fold-var_95)))))" +"(if(not #f)(for-loop_116 fold-var_93 rest_50) fold-var_93)))" +" fold-var_92)))))" +" for-loop_116)" " null" -" lst_101)))))))" +" lst_103)))))))" "(define-values" "(interned-literal?)" -"(lambda(v_135)" +"(lambda(v_91)" "(begin" -"(let-values(((or-part_174)(null? v_135)))" -"(if or-part_174" -" or-part_174" -"(let-values(((or-part_175)(boolean? v_135)))" -"(if or-part_175" -" or-part_175" -"(let-values(((or-part_176)" -"(if(fixnum? v_135)(if(< v_135(sub1(expt 2 30)))(> v_135(-(expt 2 30))) #f) #f)))" +"(let-values(((or-part_176)(null? v_91)))" "(if or-part_176" " or-part_176" -"(let-values(((or-part_138)(symbol? v_135)))" -"(if or-part_138" -" or-part_138" -"(let-values(((or-part_177)(char? v_135)))" -"(if or-part_177 or-part_177(keyword? v_135))))))))))))))" +"(let-values(((or-part_177)(boolean? v_91)))" +"(if or-part_177" +" or-part_177" +"(let-values(((or-part_178)" +"(if(fixnum? v_91)(if(< v_91(sub1(expt 2 30)))(> v_91(-(expt 2 30))) #f) #f)))" +"(if or-part_178" +" or-part_178" +"(let-values(((or-part_57)(symbol? v_91)))" +"(if or-part_57" +" or-part_57" +"(let-values(((or-part_179)(char? v_91)))" +"(if or-part_179 or-part_179(keyword? v_91))))))))))))))" "(define-values" "(serialize-phase-to-link-module-uses)" "(lambda(phase-to-link-module-uses_0 mpis_5)" @@ -17461,48 +17741,48 @@ static const char *startup_source = "(apply" " append" "(reverse$1" -"(let-values(((lst_103) phases-in-order_0))" +"(let-values(((lst_105) phases-in-order_0))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_103)))" -"((letrec-values(((for-loop_114)" -"(lambda(fold-var_90 lst_104)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_105)))" +"((letrec-values(((for-loop_117)" +"(lambda(fold-var_96 lst_106)" "(begin" " 'for-loop" -"(if(pair? lst_104)" -"(let-values(((phase_46)(unsafe-car lst_104))((rest_49)(unsafe-cdr lst_104)))" -"(let-values(((fold-var_91)" -"(let-values(((fold-var_92) fold-var_90))" -"(let-values(((fold-var_93)" +"(if(pair? lst_106)" +"(let-values(((phase_47)(unsafe-car lst_106))((rest_51)(unsafe-cdr lst_106)))" +"(let-values(((fold-var_97)" +"(let-values(((fold-var_35) fold-var_96))" +"(let-values(((fold-var_98)" "(let-values()" "(cons" "(let-values()" "(list" -" phase_46" +" phase_47" "(list*" " 'list" "(serialize-module-uses" "(hash-ref" " phase-to-link-module-uses_0" -" phase_46)" +" phase_47)" " mpis_5))))" -" fold-var_92))))" -"(values fold-var_93)))))" -"(if(not #f)(for-loop_114 fold-var_91 rest_49) fold-var_91)))" -" fold-var_90)))))" -" for-loop_114)" +" fold-var_35))))" +"(values fold-var_98)))))" +"(if(not #f)(for-loop_117 fold-var_97 rest_51) fold-var_97)))" +" fold-var_96)))))" +" for-loop_117)" " null" -" lst_103))))))))))" +" lst_105))))))))))" "(define-values" "(generate-deserialize6.1)" "(lambda(syntax-support?2_0 syntax-support?3_0 v4_0 mpis5_0)" "(begin" " 'generate-deserialize6" -"(let-values(((v_136) v4_0))" +"(let-values(((v_137) v4_0))" "(let-values(((mpis_6) mpis5_0))" "(let-values(((syntax-support?_0)(if syntax-support?3_0 syntax-support?2_0 #t)))" "(let-values()" -"(let-values(((reachable-scopes_6)(find-reachable-scopes v_136)))" -"(let-values(((state_22)(make-serialize-state reachable-scopes_6)))" +"(let-values(((reachable-scopes_4)(find-reachable-scopes v_137)))" +"(let-values(((state_24)(make-serialize-state reachable-scopes_4)))" "(let-values(((mutables_0)(make-hasheq)))" "(let-values(((objs_0)(make-hasheq)))" "(let-values(((shares_0)(make-hasheq)))" @@ -17510,108 +17790,109 @@ static const char *startup_source = "(let-values(((frontier_0) null))" "(letrec-values(((add-frontier!_0)" "(case-lambda" -"((v_137)(begin 'add-frontier!(set! frontier_0(cons v_137 frontier_0))))" -"((kind_3 v_72)(add-frontier!_0 v_72)))))" +"((v_100)(begin 'add-frontier!(set! frontier_0(cons v_100 frontier_0))))" +"((kind_3 v_102)(add-frontier!_0 v_102)))))" "(let-values((()" "(begin" "((letrec-values(((frontier-loop_0)" -"(lambda(v_138)" +"(lambda(v_104)" "(begin" " 'frontier-loop" "(begin" -"((letrec-values(((loop_81)" -"(lambda(v_94)" +"((letrec-values(((loop_82)" +"(lambda(v_106)" "(begin" " 'loop" -"(if(let-values(((or-part_178)" +"(if(let-values(((or-part_180)" "(interned-literal?" -" v_94)))" -"(if or-part_178" -" or-part_178" +" v_106)))" +"(if or-part_180" +" or-part_180" "(1/module-path-index?" -" v_94)))" +" v_106)))" "(let-values()(void))" "(if(hash-ref" " objs_0" -" v_94" +" v_106" " #f)" "(let-values()" "(if(hash-ref" " mutables_0" -" v_94" +" v_106" " #f)" "(void)" "(let-values()" "(hash-set!" " shares_0" -" v_94" +" v_106" " #t))))" "(let-values()" "(begin" "(if(serialize-fill!?" -" v_94)" +" v_106)" "(let-values()" "(begin" "(hash-set!" " mutables_0" -" v_94" +" v_106" "(hash-count" " mutables_0))" "((serialize-fill!-ref" -" v_94)" -" v_94" +" v_106)" +" v_106" " add-frontier!_0" -" state_22)))" +" state_24)))" "(if(serialize?" -" v_94)" +" v_106)" "(let-values()" "((serialize-ref" -" v_94)" -" v_94" +" v_106)" +" v_106" "(case-lambda" "((sub-v_0)" -"(loop_81" +"(loop_82" " sub-v_0))" -"((kind_4" +"((kind_2" " sub-v_1)" -"(loop_81" +"(loop_82" " sub-v_1)))" -" state_22))" -"(if(pair? v_94)" +" state_24))" +"(if(pair?" +" v_106)" "(let-values()" "(begin" -"(loop_81" +"(loop_82" "(car" -" v_94))" -"(loop_81" +" v_106))" +"(loop_82" "(cdr" -" v_94))))" +" v_106))))" "(if(vector?" -" v_94)" +" v_106)" "(let-values()" -"(if(let-values(((or-part_88)" +"(if(let-values(((or-part_181)" "(immutable?" -" v_94)))" -"(if or-part_88" -" or-part_88" +" v_106)))" +"(if or-part_181" +" or-part_181" "(zero?" "(vector-length" -" v_94))))" +" v_106))))" "(begin" -"(let-values(((vec_34" +"(let-values(((vec_35" " len_15)" -"(let-values(((vec_35)" -" v_94))" +"(let-values(((vec_36)" +" v_106))" "(begin" "(check-vector" -" vec_35)" +" vec_36)" "(values" -" vec_35" +" vec_36" "(unsafe-vector-length" -" vec_35))))))" +" vec_36))))))" "(begin" " #f" -"((letrec-values(((for-loop_115)" +"((letrec-values(((for-loop_118)" "(lambda(pos_22)" "(begin" " 'for-loop" @@ -17620,7 +17901,7 @@ static const char *startup_source = " len_15)" "(let-values(((e_18)" "(unsafe-vector-ref" -" vec_34" +" vec_35" " pos_22)))" "(let-values((()" "(let-values()" @@ -17628,42 +17909,42 @@ static const char *startup_source = "(let-values()" "(begin" "(let-values()" -"(loop_81" +"(loop_82" " e_18))" "(values)))))" "(values)))))" "(if(not" " #f)" -"(for-loop_115" +"(for-loop_118" "(unsafe-fx+" " 1" " pos_22))" "(values))))" "(values))))))" -" for-loop_115)" +" for-loop_118)" " 0)))" "(void))" "(begin" "(hash-set!" " mutables_0" -" v_94" +" v_106" "(hash-count" " mutables_0))" "(begin" -"(let-values(((vec_36" +"(let-values(((vec_37" " len_16)" -"(let-values(((vec_37)" -" v_94))" +"(let-values(((vec_38)" +" v_106))" "(begin" "(check-vector" -" vec_37)" +" vec_38)" "(values" -" vec_37" +" vec_38" "(unsafe-vector-length" -" vec_37))))))" +" vec_38))))))" "(begin" " #f" -"((letrec-values(((for-loop_116)" +"((letrec-values(((for-loop_119)" "(lambda(pos_23)" "(begin" " 'for-loop" @@ -17672,7 +17953,7 @@ static const char *startup_source = " len_16)" "(let-values(((e_19)" "(unsafe-vector-ref" -" vec_36" +" vec_37" " pos_23)))" "(let-values((()" "(let-values()" @@ -17686,111 +17967,58 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_116" +"(for-loop_119" "(unsafe-fx+" " 1" " pos_23))" "(values))))" "(values))))))" -" for-loop_116)" +" for-loop_119)" " 0)))" "(void)))))" "(if(box?" -" v_94)" +" v_106)" "(let-values()" "(if(immutable?" -" v_94)" -"(loop_81" +" v_106)" +"(loop_82" "(unbox" -" v_94))" +" v_106))" "(begin" "(hash-set!" " mutables_0" -" v_94" +" v_106" "(hash-count" " mutables_0))" "(add-frontier!_0" "(unbox" -" v_94)))))" +" v_106)))))" "(if(hash?" -" v_94)" +" v_106)" "(let-values()" "(if(immutable?" -" v_94)" +" v_106)" "(begin" -"(let-values(((lst_33)" +"(let-values(((lst_75)" "(sorted-hash-keys" -" v_94)))" +" v_106)))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_33)))" -"((letrec-values(((for-loop_25)" -"(lambda(lst_105)" -"(begin" -" 'for-loop" -"(if(pair?" -" lst_105)" -"(let-values(((k_20)" -"(unsafe-car" -" lst_105))" -"((rest_50)" -"(unsafe-cdr" -" lst_105)))" -"(let-values((()" -"(let-values()" -"(let-values((()" -"(let-values()" -"(begin" -"(let-values()" -"(begin" -"(loop_81" -" k_20)" -"(loop_81" -"(hash-ref" -" v_94" -" k_20))))" -"(values)))))" -"(values)))))" -"(if(not" -" #f)" -"(for-loop_25" -" rest_50)" -"(values))))" -"(values))))))" -" for-loop_25)" -" lst_33)))" -"(void))" -"(begin" -"(hash-set!" -" mutables_0" -" v_94" -"(hash-count" -" mutables_0))" -"(begin" -"(let-values(((lst_106)" -"(sorted-hash-keys" -" v_94)))" -"(begin" -"(if(variable-reference-from-unsafe?" -"(#%variable-reference))" -"(void)" -"(let-values()" -"(check-list" -" lst_106)))" -"((letrec-values(((for-loop_117)" +" lst_75)))" +"((letrec-values(((for-loop_120)" "(lambda(lst_107)" "(begin" " 'for-loop" "(if(pair?" " lst_107)" -"(let-values(((k_21)" +"(let-values(((k_20)" "(unsafe-car" " lst_107))" -"((rest_51)" +"((rest_52)" "(unsafe-cdr" " lst_107)))" "(let-values((()" @@ -17800,25 +18028,78 @@ static const char *startup_source = "(begin" "(let-values()" "(begin" +"(loop_82" +" k_20)" +"(loop_82" +"(hash-ref" +" v_106" +" k_20))))" +"(values)))))" +"(values)))))" +"(if(not" +" #f)" +"(for-loop_120" +" rest_52)" +"(values))))" +"(values))))))" +" for-loop_120)" +" lst_75)))" +"(void))" +"(begin" +"(hash-set!" +" mutables_0" +" v_106" +"(hash-count" +" mutables_0))" +"(begin" +"(let-values(((lst_108)" +"(sorted-hash-keys" +" v_106)))" +"(begin" +"(if(variable-reference-from-unsafe?" +"(#%variable-reference))" +"(void)" +"(let-values()" +"(check-list" +" lst_108)))" +"((letrec-values(((for-loop_121)" +"(lambda(lst_52)" +"(begin" +" 'for-loop" +"(if(pair?" +" lst_52)" +"(let-values(((k_21)" +"(unsafe-car" +" lst_52))" +"((rest_53)" +"(unsafe-cdr" +" lst_52)))" +"(let-values((()" +"(let-values()" +"(let-values((()" +"(let-values()" +"(begin" +"(let-values()" +"(begin" "(add-frontier!_0" " k_21)" "(add-frontier!_0" "(hash-ref" -" v_94" +" v_106" " k_21))))" "(values)))))" "(values)))))" "(if(not" " #f)" -"(for-loop_117" -" rest_51)" +"(for-loop_121" +" rest_53)" "(values))))" "(values))))))" -" for-loop_117)" -" lst_106)))" +" for-loop_121)" +" lst_108)))" "(void)))))" "(if(prefab-struct-key" -" v_94)" +" v_106)" "(let-values()" "(begin" "(let-values(((v*_2" @@ -17828,20 +18109,20 @@ static const char *startup_source = "(normalise-inputs" " 'in-vector" " \"vector\"" -"(lambda(x_44)" +"(lambda(x_33)" "(vector?" -" x_44))" -"(lambda(x_45)" +" x_33))" +"(lambda(x_43)" "(unsafe-vector-length" -" x_45))" +" x_43))" "(struct->vector" -" v_94)" +" v_106)" " 1" " #f" " 1)))" "(begin" " #t" -"((letrec-values(((for-loop_118)" +"((letrec-values(((for-loop_122)" "(lambda(idx_1)" "(begin" " 'for-loop" @@ -17858,23 +18139,23 @@ static const char *startup_source = "(let-values()" "(begin" "(let-values()" -"(loop_81" +"(loop_82" " e_20))" "(values)))))" "(values)))))" "(if(not" " #f)" -"(for-loop_118" +"(for-loop_122" "(unsafe-fx+" " idx_1" " 1))" "(values))))" "(values))))))" -" for-loop_118)" +" for-loop_122)" " start*_1)))" "(void)))" "(if(srcloc?" -" v_94)" +" v_106)" "(let-values()" "(begin" "(let-values(((v*_3" @@ -17884,20 +18165,20 @@ static const char *startup_source = "(normalise-inputs" " 'in-vector" " \"vector\"" -"(lambda(x_46)" +"(lambda(x_44)" "(vector?" -" x_46))" -"(lambda(x_47)" +" x_44))" +"(lambda(x_45)" "(unsafe-vector-length" -" x_47))" +" x_45))" "(struct->vector" -" v_94)" +" v_106)" " 1" " #f" " 1)))" "(begin" " #t" -"((letrec-values(((for-loop_119)" +"((letrec-values(((for-loop_123)" "(lambda(idx_2)" "(begin" " 'for-loop" @@ -17914,57 +18195,57 @@ static const char *startup_source = "(let-values()" "(begin" "(let-values()" -"(loop_81" +"(loop_82" " e_21))" "(values)))))" "(values)))))" "(if(not" " #f)" -"(for-loop_119" +"(for-loop_123" "(unsafe-fx+" " idx_2" " 1))" "(values))))" "(values))))))" -" for-loop_119)" +" for-loop_123)" " start*_2)))" "(void)))" "(let-values()" "(void))))))))))" "(hash-set!" " objs_0" -" v_94" +" v_106" " obj-step_0)" "(set! obj-step_0" "(add1" " obj-step_0))))))))))" -" loop_81)" -" v_138)" +" loop_82)" +" v_104)" "(if(null? frontier_0)" "(void)" "(let-values()" "(let-values(((l_49) frontier_0))" "(begin" "(set! frontier_0 null)" -"(let-values(((lst_108) l_49))" +"(let-values(((lst_109) l_49))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" -"(check-list lst_108)))" -"((letrec-values(((for-loop_120)" -"(lambda(lst_109)" +"(check-list lst_109)))" +"((letrec-values(((for-loop_124)" +"(lambda(lst_55)" "(begin" " 'for-loop" "(if(pair?" -" lst_109)" -"(let-values(((v_139)" +" lst_55)" +"(let-values(((v_138)" "(unsafe-car" -" lst_109))" -"((rest_52)" +" lst_55))" +"((rest_54)" "(unsafe-cdr" -" lst_109)))" +" lst_55)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -17972,64 +18253,64 @@ static const char *startup_source = "(begin" "(let-values()" "(frontier-loop_0" -" v_139))" +" v_138))" "(values)))))" "(values)))))" "(if(not" " #f)" -"(for-loop_120" -" rest_52)" +"(for-loop_124" +" rest_54)" "(values))))" "(values))))))" -" for-loop_120)" -" lst_108)))" +" for-loop_124)" +" lst_109)))" "(void))))))))))" " frontier-loop_0)" -" v_136)" +" v_137)" "(values))))" "(let-values(((num-mutables_0)(hash-count mutables_0)))" "(let-values(((share-step-positions_0)" "(let-values(((share-steps_0)" "(reverse$1" -"(let-values(((ht_85) shares_0))" +"(let-values(((ht_88) shares_0))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-in-hash-keys ht_85)))" -"((letrec-values(((for-loop_121)" -"(lambda(fold-var_94 i_107)" +"(let-values()(check-in-hash-keys ht_88)))" +"((letrec-values(((for-loop_125)" +"(lambda(fold-var_99 i_109)" "(begin" " 'for-loop" -"(if i_107" +"(if i_109" "(let-values(((obj_0)" "(hash-iterate-key" -" ht_85" -" i_107)))" -"(let-values(((fold-var_95)" -"(let-values(((fold-var_96)" -" fold-var_94))" -"(let-values(((fold-var_97)" +" ht_88" +" i_109)))" +"(let-values(((fold-var_100)" +"(let-values(((fold-var_101)" +" fold-var_99))" +"(let-values(((fold-var_102)" "(let-values()" "(cons" "(let-values()" "(hash-ref" " objs_0" " obj_0))" -" fold-var_96))))" +" fold-var_101))))" "(values" -" fold-var_97)))))" +" fold-var_102)))))" "(if(not #f)" -"(for-loop_121" -" fold-var_95" +"(for-loop_125" +" fold-var_100" "(hash-iterate-next" -" ht_85" -" i_107))" -" fold-var_95)))" -" fold-var_94)))))" -" for-loop_121)" +" ht_88" +" i_109))" +" fold-var_100)))" +" fold-var_99)))))" +" for-loop_125)" " null" -"(hash-iterate-first ht_85)))))))" +"(hash-iterate-first ht_88)))))))" "(let-values(((lst_110)" "(let-values(((share-steps12_0) share-steps_0)" "((<13_0) <))" @@ -18042,40 +18323,40 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-naturals start_20)))" -"((letrec-values(((for-loop_122)" -"(lambda(table_114 lst_111 pos_24)" +"((letrec-values(((for-loop_126)" +"(lambda(table_120 lst_111 pos_24)" "(begin" " 'for-loop" "(if(if(pair? lst_111) #t #f)" "(let-values(((step_3)" "(unsafe-car lst_111))" -"((rest_53)" +"((rest_55)" "(unsafe-cdr lst_111))" "((pos_25) pos_24))" -"(let-values(((table_115)" -"(let-values(((table_116)" -" table_114))" -"(let-values(((table_117)" +"(let-values(((table_121)" +"(let-values(((table_122)" +" table_120))" +"(let-values(((table_123)" "(let-values()" -"(let-values(((key_45" -" val_37)" +"(let-values(((key_46" +" val_38)" "(let-values()" "(values" " step_3" " pos_25))))" "(hash-set" -" table_116" -" key_45" -" val_37)))))" -"(values table_117)))))" +" table_122" +" key_46" +" val_38)))))" +"(values table_123)))))" "(if(not #f)" -"(for-loop_122" -" table_115" -" rest_53" +"(for-loop_126" +" table_121" +" rest_55" "(+ pos_24 1))" -" table_115)))" -" table_114)))))" -" for-loop_122)" +" table_121)))" +" table_120)))))" +" for-loop_126)" " '#hasheqv()" " lst_110" " start_20))))))" @@ -18087,12 +18368,12 @@ static const char *startup_source = "(lambda(pos_26)" "(begin" " 'quoted?" -"(let-values(((v_140)" +"(let-values(((v_139)" "(list-ref" " stream_0" "(- stream-size_0(add1 pos_26)))))" -"(let-values(((or-part_179)(not(keyword? v_140))))" -"(if or-part_179 or-part_179(eq? '#:quote v_140))))))))" +"(let-values(((or-part_162)(not(keyword? v_139))))" +"(if or-part_162 or-part_162(eq? '#:quote v_139))))))))" "(let-values(((ser-reset!_0)" "(lambda(pos_27)" "(begin" @@ -18111,20 +18392,20 @@ static const char *startup_source = "(set! stream-size_0 0))))))" "(letrec-values(((ser-push!_15)" "(case-lambda" -"((v_141)" +"((v_140)" "(begin" " 'ser-push!" -"(if(hash-ref shares_0 v_141 #f)" +"(if(hash-ref shares_0 v_140 #f)" "(let-values()" "(let-values(((n_21)" "(hash-ref" " share-step-positions_0" -"(hash-ref objs_0 v_141))))" +"(hash-ref objs_0 v_140))))" "(begin" "(ser-push!_15 'tag '#:ref)" "(ser-push!_15 'exact n_21))))" "(let-values(((c1_23)" -"(hash-ref mutables_0 v_141 #f)))" +"(hash-ref mutables_0 v_140 #f)))" "(if c1_23" "((lambda(n_22)" "(begin" @@ -18132,49 +18413,49 @@ static const char *startup_source = "(ser-push!_15 'exact n_22)))" " c1_23)" "(let-values()" -"(ser-push-encoded!_0 v_141)))))))" -"((kind_5 v_142)" -"(let-values(((tmp_18) kind_5))" +"(ser-push-encoded!_0 v_140)))))))" +"((kind_4 v_141)" +"(let-values(((tmp_18) kind_4))" "(if(equal? tmp_18 'exact)" "(let-values()" "(begin" -"(set! stream_0(cons v_142 stream_0))" +"(set! stream_0(cons v_141 stream_0))" "(set! stream-size_0(add1 stream-size_0))))" "(if(equal? tmp_18 'tag)" -"(let-values()(ser-push!_15 'exact v_142))" +"(let-values()(ser-push!_15 'exact v_141))" "(if(equal? tmp_18 'reference)" "(let-values()" -"(if(hash-ref shares_0 v_142 #f)" +"(if(hash-ref shares_0 v_141 #f)" "(let-values()" "(let-values(((n_23)" "(hash-ref" " share-step-positions_0" "(hash-ref" " objs_0" -" v_142))))" +" v_141))))" "(ser-push!_15 'exact n_23)))" "(let-values(((c2_1)" "(hash-ref" " mutables_0" -" v_142" +" v_141" " #f)))" "(if c2_1" "((lambda(n_24)" "(ser-push!_15 'exact n_24))" " c2_1)" "(let-values()" -"(ser-push!_15 v_142))))))" -"(let-values()(ser-push!_15 v_142)))))))))" +"(ser-push!_15 v_141))))))" +"(let-values()(ser-push!_15 v_141)))))))))" "((ser-push-encoded!_0)" -"(lambda(v_143)" +"(lambda(v_142)" "(begin" " 'ser-push-encoded!" -"(if(keyword? v_143)" +"(if(keyword? v_142)" "(let-values()" "(begin" "(ser-push!_15 'tag '#:quote)" -"(ser-push!_15 'exact v_143)))" -"(if(1/module-path-index? v_143)" +"(ser-push!_15 'exact v_142)))" +"(if(1/module-path-index? v_142)" "(let-values()" "(begin" "(ser-push!_15 'tag '#:mpi)" @@ -18182,16 +18463,16 @@ static const char *startup_source = " 'exact" "(add-module-path-index!/pos" " mpis_6" -" v_143))))" -"(if(serialize? v_143)" +" v_142))))" +"(if(serialize? v_142)" "(let-values()" -"((serialize-ref v_143)" -" v_143" +"((serialize-ref v_142)" +" v_142" " ser-push!_15" -" state_22))" -"(if(if(list? v_143)" -"(if(pair? v_143)" -"(pair?(cdr v_143))" +" state_24))" +"(if(if(list? v_142)" +"(if(pair? v_142)" +"(pair?(cdr v_142))" " #f)" " #f)" "(let-values()" @@ -18207,11 +18488,11 @@ static const char *startup_source = "(begin" "(ser-push!_15" " 'exact" -"(length v_143))" +"(length v_142))" "(values))))" "(let-values(((all-quoted?_0)" "(let-values(((lst_112)" -" v_143))" +" v_142))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" @@ -18219,19 +18500,19 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_112)))" -"((letrec-values(((for-loop_123)" +"((letrec-values(((for-loop_127)" "(lambda(all-quoted?_1" -" lst_43)" +" lst_113)" "(begin" " 'for-loop" "(if(pair?" -" lst_43)" -"(let-values(((i_108)" +" lst_113)" +"(let-values(((i_110)" "(unsafe-car" -" lst_43))" -"((rest_54)" +" lst_113))" +"((rest_56)" "(unsafe-cdr" -" lst_43)))" +" lst_113)))" "(let-values(((all-quoted?_2)" "(let-values(((all-quoted?_3)" " all-quoted?_1))" @@ -18241,7 +18522,7 @@ static const char *startup_source = "(next-push-position_0)))" "(begin" "(ser-push!_15" -" i_108)" +" i_110)" "(if all-quoted?_3" "(quoted?_0" " i-pos_0)" @@ -18250,12 +18531,12 @@ static const char *startup_source = " all-quoted?_4)))))" "(if(not" " #f)" -"(for-loop_123" +"(for-loop_127" " all-quoted?_2" -" rest_54)" +" rest_56)" " all-quoted?_2)))" " all-quoted?_1)))))" -" for-loop_123)" +" for-loop_127)" " #t" " lst_112)))))" "(if all-quoted?_0" @@ -18265,9 +18546,9 @@ static const char *startup_source = "(ser-push-optional-quote!_0)" "(ser-push!_15" " 'exact" -" v_143)))" +" v_142)))" "(void)))))))" -"(if(pair? v_143)" +"(if(pair? v_142)" "(let-values()" "(let-values(((start-pos_1)" "(next-push-position_0)))" @@ -18282,12 +18563,12 @@ static const char *startup_source = "(let-values((()" "(begin" "(ser-push!_15" -"(car v_143))" +"(car v_142))" "(values))))" "(let-values(((d-pos_0)" "(next-push-position_0)))" "(begin" -"(ser-push!_15(cdr v_143))" +"(ser-push!_15(cdr v_142))" "(if(if(quoted?_0 a-pos_0)" "(quoted?_0 d-pos_0)" " #f)" @@ -18298,9 +18579,9 @@ static const char *startup_source = "(ser-push-optional-quote!_0)" "(ser-push!_15" " 'exact" -" v_143)))" +" v_142)))" "(void)))))))))" -"(if(box? v_143)" +"(if(box? v_142)" "(let-values()" "(let-values(((start-pos_2)" "(next-push-position_0)))" @@ -18313,7 +18594,7 @@ static const char *startup_source = "(let-values(((v-pos_0)" "(next-push-position_0)))" "(begin" -"(ser-push!_15(unbox v_143))" +"(ser-push!_15(unbox v_142))" "(if(quoted?_0 v-pos_0)" "(let-values()" "(begin" @@ -18322,9 +18603,9 @@ static const char *startup_source = "(ser-push-optional-quote!_0)" "(ser-push!_15" " 'exact" -" v_143)))" +" v_142)))" "(void)))))))" -"(if(vector? v_143)" +"(if(vector? v_142)" "(let-values()" "(let-values(((start-pos_3)" "(next-push-position_0)))" @@ -18339,23 +18620,23 @@ static const char *startup_source = "(ser-push!_15" " 'exact" "(vector-length" -" v_143))" +" v_142))" "(values))))" "(let-values(((all-quoted?_5)" -"(let-values(((vec_38" +"(let-values(((vec_39" " len_17)" -"(let-values(((vec_39)" -" v_143))" +"(let-values(((vec_40)" +" v_142))" "(begin" "(check-vector" -" vec_39)" +" vec_40)" "(values" -" vec_39" +" vec_40" "(unsafe-vector-length" -" vec_39))))))" +" vec_40))))))" "(begin" " #f" -"((letrec-values(((for-loop_72)" +"((letrec-values(((for-loop_128)" "(lambda(all-quoted?_6" " pos_28)" "(begin" @@ -18363,9 +18644,9 @@ static const char *startup_source = "(if(unsafe-fx<" " pos_28" " len_17)" -"(let-values(((i_109)" +"(let-values(((i_111)" "(unsafe-vector-ref" -" vec_38" +" vec_39" " pos_28)))" "(let-values(((all-quoted?_7)" "(let-values(((all-quoted?_8)" @@ -18376,7 +18657,7 @@ static const char *startup_source = "(next-push-position_0)))" "(begin" "(ser-push!_15" -" i_109)" +" i_111)" "(if all-quoted?_8" "(quoted?_0" " i-pos_1)" @@ -18385,14 +18666,14 @@ static const char *startup_source = " all-quoted?_9)))))" "(if(not" " #f)" -"(for-loop_72" +"(for-loop_128" " all-quoted?_7" "(unsafe-fx+" " 1" " pos_28))" " all-quoted?_7)))" " all-quoted?_6)))))" -" for-loop_72)" +" for-loop_128)" " #t" " 0)))))" "(if all-quoted?_5" @@ -18403,82 +18684,82 @@ static const char *startup_source = "(ser-push-optional-quote!_0)" "(ser-push!_15" " 'exact" -" v_143)))" +" v_142)))" "(void)))))))" -"(if(hash? v_143)" +"(if(hash? v_142)" "(let-values()" "(let-values(((start-pos_4)" "(next-push-position_0)))" "(let-values(((as-set?_0)" -"(let-values(((ht_86)" -" v_143))" +"(let-values(((ht_89)" +" v_142))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-in-hash-values" -" ht_86)))" -"((letrec-values(((for-loop_124)" +" ht_89)))" +"((letrec-values(((for-loop_41)" "(lambda(result_67" -" i_110)" +" i_112)" "(begin" " 'for-loop" -"(if i_110" -"(let-values(((val_38)" +"(if i_112" +"(let-values(((val_39)" "(hash-iterate-value" -" ht_86" -" i_110)))" +" ht_89" +" i_112)))" "(let-values(((result_68)" "(let-values()" "(let-values(((result_69)" "(let-values()" "(let-values()" "(eq?" -" val_38" +" val_39" " #t)))))" "(values" " result_69)))))" "(if(if(not" -"((lambda x_48" +"((lambda x_46" "(not" " result_68))" -" val_38))" +" val_39))" "(not" " #f)" " #f)" -"(for-loop_124" +"(for-loop_41" " result_68" "(hash-iterate-next" -" ht_86" -" i_110))" +" ht_89" +" i_112))" " result_68)))" " result_67)))))" -" for-loop_124)" +" for-loop_41)" " #t" "(hash-iterate-first" -" ht_86))))))" +" ht_89))))))" "(let-values((()" "(begin" "(ser-push!_15" " 'tag" "(if as-set?_0" "(if(hash-eq?" -" v_143)" +" v_142)" "(let-values()" " '#:seteq)" "(if(hash-eqv?" -" v_143)" +" v_142)" "(let-values()" " '#:seteqv)" "(let-values()" " '#:set)))" "(if(hash-eq?" -" v_143)" +" v_142)" "(let-values()" " '#:hasheq)" "(if(hash-eqv?" -" v_143)" +" v_142)" "(let-values()" " '#:hasheqv)" "(let-values()" @@ -18489,13 +18770,13 @@ static const char *startup_source = "(ser-push!_15" " 'exact" "(hash-count" -" v_143))" +" v_142))" "(values))))" "(let-values(((ks_0)" "(sorted-hash-keys" -" v_143)))" +" v_142)))" "(let-values(((all-quoted?_10)" -"(let-values(((lst_113)" +"(let-values(((lst_114)" " ks_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -18503,20 +18784,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_113)))" -"((letrec-values(((for-loop_125)" +" lst_114)))" +"((letrec-values(((for-loop_129)" "(lambda(all-quoted?_11" -" lst_114)" +" lst_115)" "(begin" " 'for-loop" "(if(pair?" -" lst_114)" +" lst_115)" "(let-values(((k_22)" "(unsafe-car" -" lst_114))" -"((rest_55)" +" lst_115))" +"((rest_57)" "(unsafe-cdr" -" lst_114)))" +" lst_115)))" "(let-values(((all-quoted?_12)" "(let-values(((all-quoted?_13)" " all-quoted?_11))" @@ -18537,15 +18818,15 @@ static const char *startup_source = "(let-values()" "(ser-push!_15" "(hash-ref" -" v_143" +" v_142" " k_22))))" "(if all-quoted?_13" "(if(quoted?_0" " k-pos_0)" -"(let-values(((or-part_180)" +"(let-values(((or-part_182)" " as-set?_0))" -"(if or-part_180" -" or-part_180" +"(if or-part_182" +" or-part_182" "(quoted?_0" " v-pos_1)))" " #f)" @@ -18554,14 +18835,14 @@ static const char *startup_source = " all-quoted?_14)))))" "(if(not" " #f)" -"(for-loop_125" +"(for-loop_129" " all-quoted?_12" -" rest_55)" +" rest_57)" " all-quoted?_12)))" " all-quoted?_11)))))" -" for-loop_125)" +" for-loop_129)" " #t" -" lst_113)))))" +" lst_114)))))" "(if all-quoted?_10" "(let-values()" "(begin" @@ -18570,16 +18851,16 @@ static const char *startup_source = "(ser-push-optional-quote!_0)" "(ser-push!_15" " 'exact" -" v_143)))" +" v_142)))" "(void)))))))))" "(let-values(((c3_0)" "(prefab-struct-key" -" v_143)))" +" v_142)))" "(if c3_0" "((lambda(k_23)" -"(let-values(((vec_40)" +"(let-values(((vec_41)" "(struct->vector" -" v_143)))" +" v_142)))" "(let-values(((start-pos_5)" "(next-push-position_0)))" "(let-values((()" @@ -18600,7 +18881,7 @@ static const char *startup_source = " 'exact" "(sub1" "(vector-length" -" vec_40)))" +" vec_41)))" "(values))))" "(let-values(((all-quoted?_15)" "(let-values(((v*_4" @@ -18610,19 +18891,19 @@ static const char *startup_source = "(normalise-inputs" " 'in-vector" " \"vector\"" -"(lambda(x_49)" +"(lambda(x_47)" "(vector?" -" x_49))" -"(lambda(x_50)" +" x_47))" +"(lambda(x_48)" "(unsafe-vector-length" -" x_50))" -" vec_40" +" x_48))" +" vec_41" " 1" " #f" " 1)))" "(begin" " #t" -"((letrec-values(((for-loop_126)" +"((letrec-values(((for-loop_130)" "(lambda(all-quoted?_16" " idx_3)" "(begin" @@ -18630,7 +18911,7 @@ static const char *startup_source = "(if(unsafe-fx<" " idx_3" " stop*_4)" -"(let-values(((i_111)" +"(let-values(((i_113)" "(unsafe-vector-ref" " v*_4" " idx_3)))" @@ -18643,7 +18924,7 @@ static const char *startup_source = "(next-push-position_0)))" "(begin" "(ser-push!_15" -" i_111)" +" i_113)" "(if all-quoted?_18" "(quoted?_0" " i-pos_2)" @@ -18652,14 +18933,14 @@ static const char *startup_source = " all-quoted?_19)))))" "(if(not" " #f)" -"(for-loop_126" +"(for-loop_130" " all-quoted?_17" "(unsafe-fx+" " idx_3" " 1))" " all-quoted?_17)))" " all-quoted?_16)))))" -" for-loop_126)" +" for-loop_130)" " #t" " start*_3)))))" "(if all-quoted?_15" @@ -18670,109 +18951,109 @@ static const char *startup_source = "(ser-push-optional-quote!_0)" "(ser-push!_15" " 'exact" -" v_143)))" +" v_142)))" "(void)))))))))" " c3_0)" -"(if(srcloc? v_143)" +"(if(srcloc? v_142)" "(let-values()" "(begin" "(ser-push!_15" " 'tag" " '#:srcloc)" "(ser-push!_15" -"(srcloc-source v_143))" +"(srcloc-source v_142))" "(ser-push!_15" -"(srcloc-line v_143))" +"(srcloc-line v_142))" "(ser-push!_15" -"(srcloc-column v_143))" +"(srcloc-column v_142))" "(ser-push!_15" -"(srcloc-position v_143))" +"(srcloc-position v_142))" "(ser-push!_15" -"(srcloc-span v_143))))" +"(srcloc-span v_142))))" "(let-values()" "(begin" "(ser-push-optional-quote!_0)" "(ser-push!_15" " 'exact" -" v_143)))))))))))))))))" +" v_142)))))))))))))))))" "((ser-push-optional-quote!_0)" "(lambda()(begin 'ser-push-optional-quote!(void)))))" "(let-values(((ser-shell!_0)" -"(lambda(v_144)" +"(lambda(v_143)" "(begin" " 'ser-shell!" -"(if(serialize-fill!? v_144)" +"(if(serialize-fill!? v_143)" "(let-values()" -"((serialize-ref v_144)" -" v_144" +"((serialize-ref v_143)" +" v_143" " ser-push!_15" -" state_22))" -"(if(box? v_144)" +" state_24))" +"(if(box? v_143)" "(let-values()(ser-push!_15 'tag '#:box))" -"(if(vector? v_144)" +"(if(vector? v_143)" "(let-values()" "(begin" "(ser-push!_15 'tag '#:vector)" "(ser-push!_15" " 'exact" -"(vector-length v_144))))" -"(if(hash? v_144)" +"(vector-length v_143))))" +"(if(hash? v_143)" "(let-values()" "(ser-push!_15" " 'tag" -"(if(hash-eq? v_144)" +"(if(hash-eq? v_143)" "(let-values() '#:hasheq)" -"(if(hash-eqv? v_144)" +"(if(hash-eqv? v_143)" "(let-values() '#:hasheqv)" "(let-values() '#:hash)))))" "(let-values()" "(error" " 'ser-shell" " \"unknown mutable: ~e\"" -" v_144))))))))))" +" v_143))))))))))" "(let-values(((ser-shell-fill!_0)" -"(lambda(v_145)" +"(lambda(v_144)" "(begin" " 'ser-shell-fill!" -"(if(serialize-fill!? v_145)" +"(if(serialize-fill!? v_144)" "(let-values()" -"((serialize-fill!-ref v_145)" -" v_145" +"((serialize-fill!-ref v_144)" +" v_144" " ser-push!_15" -" state_22))" -"(if(box? v_145)" +" state_24))" +"(if(box? v_144)" "(let-values()" "(begin" "(ser-push!_15 'tag '#:set-box!)" -"(ser-push!_15(unbox v_145))))" -"(if(vector? v_145)" +"(ser-push!_15(unbox v_144))))" +"(if(vector? v_144)" "(let-values()" "(begin" "(ser-push!_15 'tag '#:set-vector!)" "(ser-push!_15" " 'exact" -"(vector-length v_145))" -"(let-values(((vec_41 len_18)" -"(let-values(((vec_42)" -" v_145))" +"(vector-length v_144))" +"(let-values(((vec_42 len_18)" +"(let-values(((vec_43)" +" v_144))" "(begin" -"(check-vector vec_42)" +"(check-vector vec_43)" "(values" -" vec_42" +" vec_43" "(unsafe-vector-length" -" vec_42))))))" +" vec_43))))))" "(begin" " #f" -"((letrec-values(((for-loop_127)" +"((letrec-values(((for-loop_131)" "(lambda(pos_29)" "(begin" " 'for-loop" "(if(unsafe-fx<" " pos_29" " len_18)" -"(let-values(((v_146)" +"(let-values(((v_145)" "(unsafe-vector-ref" -" vec_41" +" vec_42" " pos_29)))" "(let-values((()" "(let-values()" @@ -18781,21 +19062,21 @@ static const char *startup_source = "(begin" "(let-values()" "(ser-push!_15" -" v_146))" +" v_145))" "(values)))))" "(values)))))" "(if(not" " #f)" -"(for-loop_127" +"(for-loop_131" "(unsafe-fx+" " 1" " pos_29))" "(values))))" "(values))))))" -" for-loop_127)" +" for-loop_131)" " 0)))" "(void)))" -"(if(hash? v_145)" +"(if(hash? v_144)" "(let-values()" "(let-values((()" "(begin" @@ -18807,31 +19088,31 @@ static const char *startup_source = "(begin" "(ser-push!_15" " 'exact" -"(hash-count v_145))" +"(hash-count v_144))" "(values))))" "(let-values(((ks_1)" "(sorted-hash-keys" -" v_145)))" +" v_144)))" "(begin" -"(let-values(((lst_115) ks_1))" +"(let-values(((lst_116) ks_1))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" -"(check-list lst_115)))" -"((letrec-values(((for-loop_128)" -"(lambda(lst_116)" +"(check-list lst_116)))" +"((letrec-values(((for-loop_132)" +"(lambda(lst_117)" "(begin" " 'for-loop" "(if(pair?" -" lst_116)" +" lst_117)" "(let-values(((k_24)" "(unsafe-car" -" lst_116))" -"((rest_56)" +" lst_117))" +"((rest_58)" "(unsafe-cdr" -" lst_116)))" +" lst_117)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -18843,69 +19124,69 @@ static const char *startup_source = " k_24)" "(ser-push!_15" "(hash-ref" -" v_145" +" v_144" " k_24))))" "(values)))))" "(values)))))" "(if(not" " #f)" -"(for-loop_128" -" rest_56)" +"(for-loop_132" +" rest_58)" "(values))))" "(values))))))" -" for-loop_128)" -" lst_115)))" +" for-loop_132)" +" lst_116)))" "(void))))))" "(let-values()" "(error" " 'ser-shell-fill" " \"unknown mutable: ~e\"" -" v_145))))))))))" +" v_144))))))))))" "(let-values(((rev-mutables_0)" -"(let-values(((ht_87) mutables_0))" +"(let-values(((ht_90) mutables_0))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_87)))" -"((letrec-values(((for-loop_129)" -"(lambda(table_118 i_112)" +"(let-values()(check-in-hash ht_90)))" +"((letrec-values(((for-loop_133)" +"(lambda(table_124 i_7)" "(begin" " 'for-loop" -"(if i_112" +"(if i_7" "(let-values(((k_25" -" v_147)" +" v_146)" "(hash-iterate-key+value" -" ht_87" -" i_112)))" -"(let-values(((table_119)" -"(let-values(((table_120)" -" table_118))" -"(let-values(((table_121)" +" ht_90" +" i_7)))" +"(let-values(((table_125)" +"(let-values(((table_126)" +" table_124))" +"(let-values(((table_127)" "(let-values()" -"(let-values(((key_46" -" val_39)" +"(let-values(((key_47" +" val_40)" "(let-values()" "(values" -" v_147" +" v_146" " k_25))))" "(hash-set" -" table_120" -" key_46" -" val_39)))))" +" table_126" +" key_47" +" val_40)))))" "(values" -" table_121)))))" +" table_127)))))" "(if(not #f)" -"(for-loop_129" -" table_119" +"(for-loop_133" +" table_125" "(hash-iterate-next" -" ht_87" -" i_112))" -" table_119)))" -" table_118)))))" -" for-loop_129)" +" ht_90" +" i_7))" +" table_125)))" +" table_124)))))" +" for-loop_133)" " '#hasheqv()" -"(hash-iterate-first ht_87))))))" +"(hash-iterate-first ht_90))))))" "(let-values(((mutable-shell-bindings_0)" "(begin" "(begin" @@ -18919,14 +19200,14 @@ static const char *startup_source = "(void)" "(let-values()" "(check-range start_21 end_13 inc_7)))" -"((letrec-values(((for-loop_130)" +"((letrec-values(((for-loop_134)" "(lambda(pos_30)" "(begin" " 'for-loop" "(if(<" " pos_30" " end_13)" -"(let-values(((i_8)" +"(let-values(((i_114)" " pos_30))" "(let-values((()" "(let-values()" @@ -18937,44 +19218,44 @@ static const char *startup_source = "(ser-shell!_0" "(hash-ref" " rev-mutables_0" -" i_8)))" +" i_114)))" "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_130" +"(for-loop_134" "(+" " pos_30" " inc_7))" "(values))))" "(values))))))" -" for-loop_130)" +" for-loop_134)" " start_21)))" "(void))" "(reap-stream!_0))))" "(let-values(((rev-shares_0)" -"(let-values(((ht_88) shares_0))" +"(let-values(((ht_91) shares_0))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" -"(check-in-hash-keys ht_88)))" -"((letrec-values(((for-loop_131)" -"(lambda(table_122 i_113)" +"(check-in-hash-keys ht_91)))" +"((letrec-values(((for-loop_135)" +"(lambda(table_128 i_115)" "(begin" " 'for-loop" -"(if i_113" +"(if i_115" "(let-values(((obj_1)" "(hash-iterate-key" -" ht_88" -" i_113)))" -"(let-values(((table_123)" -"(let-values(((table_124)" -" table_122))" -"(let-values(((table_125)" +" ht_91" +" i_115)))" +"(let-values(((table_129)" +"(let-values(((table_130)" +" table_128))" +"(let-values(((table_131)" "(let-values()" -"(let-values(((key_47" -" val_40)" +"(let-values(((key_48" +" val_41)" "(let-values()" "(values" "(hash-ref" @@ -18984,22 +19265,22 @@ static const char *startup_source = " obj_1))" " obj_1))))" "(hash-set" -" table_124" -" key_47" -" val_40)))))" +" table_130" +" key_48" +" val_41)))))" "(values" -" table_125)))))" +" table_131)))))" "(if(not #f)" -"(for-loop_131" -" table_123" +"(for-loop_135" +" table_129" "(hash-iterate-next" -" ht_88" -" i_113))" -" table_123)))" -" table_122)))))" -" for-loop_131)" +" ht_91" +" i_115))" +" table_129)))" +" table_128)))))" +" for-loop_135)" " '#hasheqv()" -"(hash-iterate-first ht_88))))))" +"(hash-iterate-first ht_91))))))" "(let-values(((shared-bindings_0)" "(begin" "(begin" @@ -19018,14 +19299,14 @@ static const char *startup_source = " start_22" " end_14" " inc_8)))" -"((letrec-values(((for-loop_132)" +"((letrec-values(((for-loop_136)" "(lambda(pos_31)" "(begin" " 'for-loop" "(if(<" " pos_31" " end_14)" -"(let-values(((i_114)" +"(let-values(((i_116)" " pos_31))" "(let-values((()" "(let-values()" @@ -19036,18 +19317,18 @@ static const char *startup_source = "(ser-push-encoded!_0" "(hash-ref" " rev-shares_0" -" i_114)))" +" i_116)))" "(values)))))" "(values)))))" "(if(not" " #f)" -"(for-loop_132" +"(for-loop_136" "(+" " pos_31" " inc_8))" "(values))))" "(values))))))" -" for-loop_132)" +" for-loop_136)" " start_22)))" "(void))" "(reap-stream!_0))))" @@ -19067,14 +19348,14 @@ static const char *startup_source = " start_23" " end_15" " inc_9)))" -"((letrec-values(((for-loop_133)" +"((letrec-values(((for-loop_137)" "(lambda(pos_32)" "(begin" " 'for-loop" "(if(<" " pos_32" " end_15)" -"(let-values(((i_115)" +"(let-values(((i_117)" " pos_32))" "(let-values((()" "(let-values()" @@ -19085,18 +19366,18 @@ static const char *startup_source = "(ser-shell-fill!_0" "(hash-ref" " rev-mutables_0" -" i_115)))" +" i_117)))" "(values)))))" "(values)))))" "(if(not" " #f)" -"(for-loop_133" +"(for-loop_137" "(+" " pos_32" " inc_9))" "(values))))" "(values))))))" -" for-loop_133)" +" for-loop_137)" " start_23)))" "(void))" "(reap-stream!_0))))" @@ -19113,13 +19394,13 @@ static const char *startup_source = "(list" " 'quote" "(begin" -"(ser-push!_15 v_136)" +"(ser-push!_15 v_137)" "(reap-stream!_0))))))))))))))))))))))))))))))))))))" "(define-values" "(sorted-hash-keys)" -"(lambda(ht_89)" +"(lambda(ht_92)" "(begin" -"(let-values(((ks_2)(hash-keys ht_89)))" +"(let-values(((ks_2)(hash-keys ht_92)))" "(if(null? ks_2)" "(let-values() ks_2)" "(if(null?(cdr ks_2))" @@ -19157,12 +19438,12 @@ 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_134)" +"((letrec-values(((for-loop_138)" "(lambda(pos_33 pos_34)" "(begin" " 'for-loop" "(if(< pos_34 end_16)" -"(let-values(((i_116) pos_34))" +"(let-values(((i_118) pos_34))" "(let-values(((pos_35)" "(let-values(((pos_36) pos_33))" "(let-values(((pos_37)" @@ -19178,13 +19459,13 @@ static const char *startup_source = "(begin" "(vector-set!" " shared_0" -" i_116" +" i_118" " d_22)" " next-pos_0)))))" "(values pos_37)))))" -"(if(not #f)(for-loop_134 pos_35(+ pos_34 inc_10)) pos_35)))" +"(if(not #f)(for-loop_138 pos_35(+ pos_34 inc_10)) pos_35)))" " pos_33)))))" -" for-loop_134)" +" for-loop_138)" " 0" " start_24)))" "(values))))" @@ -19197,12 +19478,12 @@ 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_135)" +"((letrec-values(((for-loop_139)" "(lambda(pos_38 pos_39)" "(begin" " 'for-loop" "(if(< pos_39 end_17)" -"(let-values(((i_117) pos_39))" +"(let-values(((i_65) pos_39))" "(let-values(((pos_40)" "(let-values(((pos_41) pos_38))" "(let-values(((pos_42)" @@ -19218,13 +19499,13 @@ static const char *startup_source = "(begin" "(vector-set!" " shared_0" -" i_117" +" i_65" " d_23)" " next-pos_1)))))" "(values pos_42)))))" -"(if(not #f)(for-loop_135 pos_40(+ pos_39 inc_11)) pos_40)))" +"(if(not #f)(for-loop_139 pos_40(+ pos_39 inc_11)) pos_40)))" " pos_38)))))" -" for-loop_135)" +" for-loop_139)" " 0" " start_25)))" "(values))))" @@ -19233,28 +19514,28 @@ static const char *startup_source = "(let-values(((start_26) 0)" "((end_18) num-mutables_1)" "((inc_12) 1)" -"((vec_43 len_19)" -"(let-values(((vec_44) shared_0))" +"((vec_44 len_19)" +"(let-values(((vec_45) shared_0))" "(begin" -"(check-vector vec_44)" -"(values vec_44(unsafe-vector-length vec_44))))))" +"(check-vector vec_45)" +"(values vec_45(unsafe-vector-length vec_45))))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-range start_26 end_18 inc_12)))" " #f" -"((letrec-values(((for-loop_136)" +"((letrec-values(((for-loop_140)" "(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_148)(unsafe-vector-ref vec_43 pos_45)))" +"(let-values(((v_147)(unsafe-vector-ref vec_44 pos_45)))" "(let-values(((pos_46)" "(let-values(((pos_47) pos_43))" "(let-values(((pos_48)" "(let-values()" "(decode-fill!" -" v_148" +" v_147" " mutable-fill-vec_0" " pos_47" " mpis_7" @@ -19263,13 +19544,13 @@ static const char *startup_source = " shared_0))))" "(values pos_48)))))" "(if(not #f)" -"(for-loop_136" +"(for-loop_140" " pos_46" "(+ pos_44 inc_12)" "(unsafe-fx+ 1 pos_45))" " pos_46)))" " pos_43)))))" -" for-loop_136)" +" for-loop_140)" " 0" " start_26" " 0)))" @@ -19279,26 +19560,26 @@ static const char *startup_source = " result_70))))))))" "(define-values" "(decode-shell)" -"(lambda(vec_4 pos_49 mpis_8 inspector_6 bulk-binding-registry_6 shared_1)" +"(lambda(vec_46 pos_49 mpis_8 inspector_6 bulk-binding-registry_6 shared_1)" "(begin" -"(let-values(((tmp_19)(vector*-ref vec_4 pos_49)))" +"(let-values(((tmp_19)(vector*-ref vec_46 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_4(add1 pos_49)))(+ pos_49 2)))" +"(let-values()(values(make-vector(vector*-ref vec_46(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_4 pos_49 mpis_8 inspector_6 bulk-binding-registry_6 shared_1)))))))))))" +"(let-values()(decode vec_46 pos_49 mpis_8 inspector_6 bulk-binding-registry_6 shared_1)))))))))))" "(define-values" "(decode)" -"(lambda(vec_45 pos_50 mpis_9 inspector_7 bulk-binding-registry_7 shared_2)" +"(lambda(vec_47 pos_50 mpis_9 inspector_7 bulk-binding-registry_7 shared_2)" "(begin" "(let-values()" -"(let-values(((tmp_20)(vector*-ref vec_45 pos_50)))" +"(let-values(((tmp_20)(vector*-ref vec_47 pos_50)))" "(let-values(((index_0)" "(if(keyword? tmp_20)" "(hash-ref" @@ -19341,8 +19622,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_45 pos_50)(add1 pos_50)))" -"(let-values()(values(vector*-ref shared_2(vector*-ref vec_45(add1 pos_50)))(+ pos_50 2))))" +"(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))))" "(if(unsafe-fx< index_0 3)" "(let-values()(values inspector_7(add1 pos_50)))" "(if(unsafe-fx< index_0 4)" @@ -19351,29 +19632,29 @@ static const char *startup_source = "(let-values()" "(let-values(((content_7 next-pos_2)" "(decode" -" vec_45" +" vec_47" "(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_45 next-pos_2)))" -"(if(exact-integer? i_118)" -"(values(vector*-ref shared_2 i_118)(add1 next-pos_2))" +"(let-values(((i_119)(vector*-ref vec_47 next-pos_2)))" +"(if(exact-integer? i_119)" +"(values(vector*-ref shared_2 i_119)(add1 next-pos_2))" "(decode" -" vec_45" +" vec_47" " 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_45 next-pos_3)))" -"(if(exact-integer? i_119)" -"(values(vector*-ref shared_2 i_119)(add1 next-pos_3))" +"(let-values(((i_120)(vector*-ref vec_47 next-pos_3)))" +"(if(exact-integer? i_120)" +"(values(vector*-ref shared_2 i_120)(add1 next-pos_3))" "(decode" -" vec_45" +" vec_47" " next-pos_3" " mpis_9" " inspector_7" @@ -19385,29 +19666,29 @@ static const char *startup_source = "(let-values()" "(let-values(((content_8 next-pos_5)" "(decode" -" vec_45" +" vec_47" "(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_45 next-pos_5)))" -"(if(exact-integer? i_120)" -"(values(vector*-ref shared_2 i_120)(add1 next-pos_5))" +"(let-values(((i_121)(vector*-ref vec_47 next-pos_5)))" +"(if(exact-integer? i_121)" +"(values(vector*-ref shared_2 i_121)(add1 next-pos_5))" "(decode" -" vec_45" +" vec_47" " 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_45 next-pos_6)))" -"(if(exact-integer? i_121)" -"(values(vector*-ref shared_2 i_121)(add1 next-pos_6))" +"(let-values(((i_122)(vector*-ref vec_47 next-pos_6)))" +"(if(exact-integer? i_122)" +"(values(vector*-ref shared_2 i_122)(add1 next-pos_6))" "(decode" -" vec_45" +" vec_47" " next-pos_6" " mpis_9" " inspector_7" @@ -19420,24 +19701,24 @@ static const char *startup_source = "(if(unsafe-fx< index_0 7)" "(let-values()" "(let-values(((content_9 next-pos_8)" -"(decode vec_45(add1 pos_50) mpis_9 inspector_7 bulk-binding-registry_7 shared_2)))" +"(decode vec_47(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_45 next-pos_8)))" -"(if(exact-integer? i_122)" -"(values(vector*-ref shared_2 i_122)(add1 next-pos_8))" +"(let-values(((i_123)(vector*-ref vec_47 next-pos_8)))" +"(if(exact-integer? i_123)" +"(values(vector*-ref shared_2 i_123)(add1 next-pos_8))" "(decode" -" vec_45" +" vec_47" " 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_45 next-pos_9)))" -"(if(exact-integer? i_123)" -"(values(vector*-ref shared_2 i_123)(add1 next-pos_9))" +"(let-values(((i_124)(vector*-ref vec_47 next-pos_9)))" +"(if(exact-integer? i_124)" +"(values(vector*-ref shared_2 i_124)(add1 next-pos_9))" "(decode" -" vec_45" +" vec_47" " next-pos_9" " mpis_9" " inspector_7" @@ -19445,7 +19726,7 @@ static const char *startup_source = " shared_2)))))" "(let-values(((props_1 next-pos_11)" "(decode" -" vec_45" +" vec_47" " next-pos_10" " mpis_9" " inspector_7" @@ -19453,7 +19734,7 @@ static const char *startup_source = " shared_2)))" "(let-values(((tamper_2 next-pos_12)" "(decode" -" vec_45" +" vec_47" " next-pos_11" " mpis_9" " inspector_7" @@ -19466,7 +19747,7 @@ static const char *startup_source = "(let-values()" "(let-values(((source_0 next-pos_13)" "(decode" -" vec_45" +" vec_47" "(add1 pos_50)" " mpis_9" " inspector_7" @@ -19474,7 +19755,7 @@ static const char *startup_source = " shared_2)))" "(let-values(((line_0 next-pos_14)" "(decode" -" vec_45" +" vec_47" " next-pos_13" " mpis_9" " inspector_7" @@ -19482,7 +19763,7 @@ static const char *startup_source = " shared_2)))" "(let-values(((column_0 next-pos_15)" "(decode" -" vec_45" +" vec_47" " next-pos_14" " mpis_9" " inspector_7" @@ -19490,7 +19771,7 @@ static const char *startup_source = " shared_2)))" "(let-values(((position_0 next-pos_16)" "(decode" -" vec_45" +" vec_47" " next-pos_15" " mpis_9" " inspector_7" @@ -19498,32 +19779,32 @@ static const char *startup_source = " shared_2)))" "(let-values(((span_0 next-pos_17)" "(decode" -" vec_45" +" vec_47" " 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_45(add1 pos_50))(+ pos_50 2)))))" +"(let-values()(values(vector*-ref vec_47(add1 pos_50))(+ pos_50 2)))))" "(if(unsafe-fx< index_0 10)" -"(let-values()(values(vector*-ref mpis_9(vector*-ref vec_45(add1 pos_50)))(+ pos_50 2)))" +"(let-values()(values(vector*-ref mpis_9(vector*-ref vec_47(add1 pos_50)))(+ pos_50 2)))" "(if(unsafe-fx< index_0 11)" "(let-values()" -"(let-values(((v_149 next-pos_18)" +"(let-values(((v_148 next-pos_18)" "(decode" -" vec_45" +" vec_47" "(add1 pos_50)" " mpis_9" " inspector_7" " bulk-binding-registry_7" " shared_2)))" -"(values(box-immutable v_149) next-pos_18)))" +"(values(box-immutable v_148) next-pos_18)))" "(if(unsafe-fx< index_0 12)" "(let-values()" "(let-values(((a_38 next-pos_19)" "(decode" -" vec_45" +" vec_47" "(add1 pos_50)" " mpis_9" " inspector_7" @@ -19531,7 +19812,7 @@ static const char *startup_source = " shared_2)))" "(let-values(((d_24 next-pos_20)" "(decode" -" vec_45" +" vec_47" " next-pos_19" " mpis_9" " inspector_7" @@ -19539,7 +19820,7 @@ 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_45(add1 pos_50))))" +"(let-values(((len_20)(vector*-ref vec_47(add1 pos_50))))" "(let-values(((r_28)(make-vector len_20)))" "(let-values(((next-pos_21)" "(let-values(((start_27) 0)((end_19) len_20)((inc_13) 1))" @@ -19547,46 +19828,46 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-range start_27 end_19 inc_13)))" -"((letrec-values(((for-loop_137)" +"((letrec-values(((for-loop_141)" "(lambda(pos_51 pos_52)" "(begin" " 'for-loop" "(if(< pos_52 end_19)" -"(let-values(((i_124) pos_52))" +"(let-values(((i_125) pos_52))" "(let-values(((pos_53)" "(let-values(((pos_54) pos_51))" "(let-values(((pos_55)" "(let-values()" -"(let-values(((v_150" +"(let-values(((v_149" " next-pos_22)" -"(let-values(((v_151" +"(let-values(((v_150" " next-pos_23)" "(decode" -" vec_45" +" vec_47" " pos_54" " mpis_9" " inspector_7" " bulk-binding-registry_7" " shared_2)))" "(values" -" v_151" +" v_150" " next-pos_23))))" "(begin" "(vector-set!" " r_28" -" i_124" -" v_150)" +" i_125" +" v_149)" " next-pos_22)))))" "(values pos_55)))))" "(if(not #f)" -"(for-loop_137 pos_53(+ pos_52 inc_13))" +"(for-loop_141 pos_53(+ pos_52 inc_13))" " pos_53)))" " pos_51)))))" -" for-loop_137)" +" for-loop_141)" "(+ pos_50 2)" " start_27)))))" "(values" -"(if(eq?(vector*-ref vec_45 pos_50) '#:list)" +"(if(eq?(vector*-ref vec_47 pos_50) '#:list)" "(vector->list r_28)" "(vector->immutable-vector r_28))" " next-pos_21))))))))))" @@ -19594,8 +19875,8 @@ static const char *startup_source = "(if(unsafe-fx< index_0 16)" "(if(unsafe-fx< index_0 14)" "(let-values()" -"(let-values(((ht_90)" -"(let-values(((tmp_21)(vector*-ref vec_45 pos_50)))" +"(let-values(((ht_93)" +"(let-values(((tmp_21)(vector*-ref vec_47 pos_50)))" "(if(equal? tmp_21 '#:hash)" "(let-values()(hash))" "(if(equal? tmp_21 '#:hasheq)" @@ -19603,55 +19884,55 @@ static const char *startup_source = "(if(equal? tmp_21 '#:hasheqv)" "(let-values()(hasheqv))" "(let-values()(void))))))))" -"(let-values(((len_21)(vector*-ref vec_45(add1 pos_50))))" +"(let-values(((len_21)(vector*-ref vec_47(add1 pos_50))))" "(let-values(((start_28) 0)((end_20) len_21)((inc_14) 1))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-range start_28 end_20 inc_14)))" -"((letrec-values(((for-loop_138)" -"(lambda(ht_91 pos_56 pos_57)" +"((letrec-values(((for-loop_142)" +"(lambda(ht_94 pos_56 pos_57)" "(begin" " 'for-loop" "(if(< pos_57 end_20)" "(let-values()" -"(let-values(((ht_92 pos_58)" -"(let-values(((ht_93) ht_91)((pos_59) pos_56))" -"(let-values(((ht_94 pos_60)" +"(let-values(((ht_95 pos_58)" +"(let-values(((ht_96) ht_94)((pos_59) pos_56))" +"(let-values(((ht_97 pos_60)" "(let-values()" "(let-values(((k_26 next-pos_24)" "(decode" -" vec_45" +" vec_47" " pos_59" " mpis_9" " inspector_7" " bulk-binding-registry_7" " shared_2)))" -"(let-values(((v_152" +"(let-values(((v_151" " next-pos_25)" "(decode" -" vec_45" +" vec_47" " next-pos_24" " mpis_9" " inspector_7" " bulk-binding-registry_7" " shared_2)))" "(values" -"(hash-set ht_93 k_26 v_152)" +"(hash-set ht_96 k_26 v_151)" " next-pos_25))))))" -"(values ht_94 pos_60)))))" +"(values ht_97 pos_60)))))" "(if(not #f)" -"(for-loop_138 ht_92 pos_58(+ pos_57 inc_14))" -"(values ht_92 pos_58))))" -"(values ht_91 pos_56))))))" -" for-loop_138)" -" ht_90" +"(for-loop_142 ht_95 pos_58(+ pos_57 inc_14))" +"(values ht_95 pos_58))))" +"(values ht_94 pos_56))))))" +" for-loop_142)" +" ht_93" "(+ pos_50 2)" " start_28))))))" "(if(unsafe-fx< index_0 15)" "(let-values()" -"(let-values(((s_134)" -"(let-values(((tmp_22)(vector*-ref vec_45 pos_50)))" +"(let-values(((s_187)" +"(let-values(((tmp_22)(vector*-ref vec_47 pos_50)))" "(if(equal? tmp_22 '#:set)" "(let-values()(set))" "(if(equal? tmp_22 '#:seteq)" @@ -19659,62 +19940,62 @@ static const char *startup_source = "(if(equal? tmp_22 '#:seteqv)" "(let-values()(seteqv))" "(let-values()(void))))))))" -"(let-values(((len_22)(vector*-ref vec_45(add1 pos_50))))" +"(let-values(((len_22)(vector*-ref vec_47(add1 pos_50))))" "(let-values(((start_29) 0)((end_21) len_22)((inc_15) 1))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-range start_29 end_21 inc_15)))" -"((letrec-values(((for-loop_139)" -"(lambda(s_184 pos_61 pos_62)" +"((letrec-values(((for-loop_143)" +"(lambda(s_188 pos_61 pos_62)" "(begin" " 'for-loop" "(if(< pos_62 end_21)" "(let-values()" -"(let-values(((s_136 pos_63)" -"(let-values(((s_185) s_184)((pos_64) pos_61))" -"(let-values(((s_186 pos_65)" +"(let-values(((s_189 pos_63)" +"(let-values(((s_190) s_188)((pos_64) pos_61))" +"(let-values(((s_191 pos_65)" "(let-values()" "(let-values(((k_27" " next-pos_26)" "(decode" -" vec_45" +" vec_47" " pos_64" " mpis_9" " inspector_7" " bulk-binding-registry_7" " shared_2)))" "(values" -"(set-add s_185 k_27)" +"(set-add s_190 k_27)" " next-pos_26)))))" -"(values s_186 pos_65)))))" +"(values s_191 pos_65)))))" "(if(not #f)" -"(for-loop_139 s_136 pos_63(+ pos_62 inc_15))" -"(values s_136 pos_63))))" -"(values s_184 pos_61))))))" -" for-loop_139)" -" s_134" +"(for-loop_143 s_189 pos_63(+ pos_62 inc_15))" +"(values s_189 pos_63))))" +"(values s_188 pos_61))))))" +" for-loop_143)" +" s_187" "(+ pos_50 2)" " start_29))))))" "(let-values()" -"(let-values(((key_48 next-pos_27)" +"(let-values(((key_49 next-pos_27)" "(let-values(((k_28 next-pos_28)" "(decode" -" vec_45" +" vec_47" "(add1 pos_50)" " mpis_9" " inspector_7" " bulk-binding-registry_7" " shared_2)))" "(values k_28 next-pos_28))))" -"(let-values(((len_23)(vector*-ref vec_45 next-pos_27)))" +"(let-values(((len_23)(vector*-ref vec_47 next-pos_27)))" "(let-values(((r_29 done-pos_1)" "(let-values(((start_30) 0)((end_22) len_23)((inc_16) 1))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-range start_30 end_22 inc_16)))" -"((letrec-values(((for-loop_140)" +"((letrec-values(((for-loop_144)" "(lambda(r_30 pos_66 pos_67)" "(begin" " 'for-loop" @@ -19725,10 +20006,10 @@ static const char *startup_source = "((pos_69) pos_66))" "(let-values(((r_33 pos_70)" "(let-values()" -"(let-values(((v_153" +"(let-values(((v_152" " next-pos_29)" "(decode" -" vec_45" +" vec_47" " pos_69" " mpis_9" " inspector_7" @@ -19736,37 +20017,37 @@ static const char *startup_source = " shared_2)))" "(values" "(cons" -" v_153" +" v_152" " r_32)" " next-pos_29)))))" "(values r_33 pos_70)))))" "(if(not #f)" -"(for-loop_140 r_31 pos_68(+ pos_67 inc_16))" +"(for-loop_144 r_31 pos_68(+ pos_67 inc_16))" "(values r_31 pos_68))))" "(values r_30 pos_66))))))" -" for-loop_140)" +" for-loop_144)" " null" "(add1 next-pos_27)" " start_30)))))" -"(values(apply make-prefab-struct key_48(reverse$1 r_29)) done-pos_1)))))))" +"(values(apply make-prefab-struct key_49(reverse$1 r_29)) done-pos_1)))))))" "(if(unsafe-fx< index_0 17)" "(let-values()(values(deserialize-scope)(add1 pos_50)))" "(if(unsafe-fx< index_0 18)" "(let-values()" -"(let-values(((kind_6 next-pos_30)" +"(let-values(((kind_5 next-pos_30)" "(decode" -" vec_45" +" vec_47" "(add1 pos_50)" " mpis_9" " inspector_7" " bulk-binding-registry_7" " shared_2)))" -"(values(deserialize-scope kind_6) next-pos_30)))" +"(values(deserialize-scope kind_5) next-pos_30)))" "(if(unsafe-fx< index_0 19)" "(let-values()" "(let-values(((name_38 next-pos_31)" "(decode" -" vec_45" +" vec_47" "(add1 pos_50)" " mpis_9" " inspector_7" @@ -19774,7 +20055,7 @@ static const char *startup_source = " shared_2)))" "(let-values(((scopes_21 next-pos_32)" "(decode" -" vec_45" +" vec_47" " next-pos_31" " mpis_9" " inspector_7" @@ -19782,9 +20063,9 @@ static const char *startup_source = " shared_2)))" "(values(deserialize-multi-scope name_38 scopes_21) next-pos_32))))" "(let-values()" -"(let-values(((phase_47 next-pos_33)" +"(let-values(((phase_48 next-pos_33)" "(decode" -" vec_45" +" vec_47" "(add1 pos_50)" " mpis_9" " inspector_7" @@ -19792,26 +20073,26 @@ static const char *startup_source = " shared_2)))" "(let-values(((multi-scope_2 next-pos_34)" "(decode" -" vec_45" +" vec_47" " next-pos_33" " mpis_9" " inspector_7" " bulk-binding-registry_7" " shared_2)))" -"(values(deserialize-shifted-multi-scope phase_47 multi-scope_2) next-pos_34))))))))" +"(values(deserialize-shifted-multi-scope phase_48 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_45(add1 pos_50) mpis_9 inspector_7 bulk-binding-registry_7 shared_2)))" +"(decode vec_47(add1 pos_50) mpis_9 inspector_7 bulk-binding-registry_7 shared_2)))" "(let-values(((bulk-bindings_4 next-pos_36)" -"(decode vec_45 next-pos_35 mpis_9 inspector_7 bulk-binding-registry_7 shared_2)))" +"(decode vec_47 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_45" +" vec_47" "(add1 pos_50)" " mpis_9" " inspector_7" @@ -19819,7 +20100,7 @@ static const char *startup_source = " shared_2)))" "(let-values(((bulk_5 next-pos_38)" "(decode" -" vec_45" +" vec_47" " next-pos_37" " mpis_9" " inspector_7" @@ -19827,29 +20108,29 @@ static const char *startup_source = " shared_2)))" "(values(deserialize-bulk-binding-at scopes_22 bulk_5) next-pos_38))))" "(let-values()" -"(let-values(((kind_7 next-pos_39)" +"(let-values(((kind_6 next-pos_39)" "(decode" -" vec_45" +" vec_47" "(add1 pos_50)" " mpis_9" " inspector_7" " bulk-binding-registry_7" " shared_2)))" -"(let-values(((phase_48 next-pos_40)" +"(let-values(((phase_49 next-pos_40)" "(decode" -" vec_45" +" vec_47" " next-pos_39" " mpis_9" " inspector_7" " bulk-binding-registry_7" " shared_2)))" -"(values(deserialize-representative-scope kind_7 phase_48) next-pos_40))))))" +"(values(deserialize-representative-scope kind_6 phase_49) 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_45" +" vec_47" "(add1 pos_50)" " mpis_9" " inspector_7" @@ -19857,15 +20138,15 @@ static const char *startup_source = " shared_2)))" "(let-values(((sym_28 next-pos_42)" "(decode" -" vec_45" +" vec_47" " next-pos_41" " mpis_9" " inspector_7" " bulk-binding-registry_7" " shared_2)))" -"(let-values(((phase_49 next-pos_43)" +"(let-values(((phase_50 next-pos_43)" "(decode" -" vec_45" +" vec_47" " next-pos_42" " mpis_9" " inspector_7" @@ -19873,7 +20154,7 @@ static const char *startup_source = " shared_2)))" "(let-values(((nominal-module_4 next-pos_44)" "(decode" -" vec_45" +" vec_47" " next-pos_43" " mpis_9" " inspector_7" @@ -19881,7 +20162,7 @@ static const char *startup_source = " shared_2)))" "(let-values(((nominal-phase_3 next-pos_45)" "(decode" -" vec_45" +" vec_47" " next-pos_44" " mpis_9" " inspector_7" @@ -19889,7 +20170,7 @@ static const char *startup_source = " shared_2)))" "(let-values(((nominal-sym_3 next-pos_46)" "(decode" -" vec_45" +" vec_47" " next-pos_45" " mpis_9" " inspector_7" @@ -19897,7 +20178,7 @@ static const char *startup_source = " shared_2)))" "(let-values(((nominal-require-phase_3 next-pos_47)" "(decode" -" vec_45" +" vec_47" " next-pos_46" " mpis_9" " inspector_7" @@ -19905,7 +20186,7 @@ static const char *startup_source = " shared_2)))" "(let-values(((free=id_8 next-pos_48)" "(decode" -" vec_45" +" vec_47" " next-pos_47" " mpis_9" " inspector_7" @@ -19913,7 +20194,7 @@ static const char *startup_source = " shared_2)))" "(let-values(((extra-inspector_3 next-pos_49)" "(decode" -" vec_45" +" vec_47" " next-pos_48" " mpis_9" " inspector_7" @@ -19921,7 +20202,7 @@ static const char *startup_source = " shared_2)))" "(let-values(((extra-nominal-bindings_3 next-pos_50)" "(decode" -" vec_45" +" vec_47" " next-pos_49" " mpis_9" " inspector_7" @@ -19931,7 +20212,7 @@ static const char *startup_source = "(deserialize-full-module-binding" " module_4" " sym_28" -" phase_49" +" phase_50" " nominal-module_4" " nominal-phase_3" " nominal-sym_3" @@ -19943,7 +20224,7 @@ static const char *startup_source = "(let-values()" "(let-values(((module_5 next-pos_51)" "(decode" -" vec_45" +" vec_47" "(add1 pos_50)" " mpis_9" " inspector_7" @@ -19951,15 +20232,15 @@ static const char *startup_source = " shared_2)))" "(let-values(((sym_29 next-pos_52)" "(decode" -" vec_45" +" vec_47" " next-pos_51" " mpis_9" " inspector_7" " bulk-binding-registry_7" " shared_2)))" -"(let-values(((phase_50 next-pos_53)" +"(let-values(((phase_51 next-pos_53)" "(decode" -" vec_45" +" vec_47" " next-pos_52" " mpis_9" " inspector_7" @@ -19967,20 +20248,20 @@ static const char *startup_source = " shared_2)))" "(let-values(((nominal-module_5 next-pos_54)" "(decode" -" vec_45" +" vec_47" " next-pos_53" " mpis_9" " inspector_7" " bulk-binding-registry_7" " shared_2)))" "(values" -"(deserialize-simple-module-binding module_5 sym_29 phase_50 nominal-module_5)" +"(deserialize-simple-module-binding module_5 sym_29 phase_51 nominal-module_5)" " next-pos_54)))))))" "(if(unsafe-fx< index_0 26)" "(let-values()" -"(let-values(((key_49 next-pos_55)" +"(let-values(((key_50 next-pos_55)" "(decode" -" vec_45" +" vec_47" "(add1 pos_50)" " mpis_9" " inspector_7" @@ -19988,18 +20269,18 @@ static const char *startup_source = " shared_2)))" "(let-values(((free=id_9 next-pos_56)" "(decode" -" vec_45" +" vec_47" " next-pos_55" " mpis_9" " inspector_7" " bulk-binding-registry_7" " shared_2)))" -"(values(deserialize-full-local-binding key_49 free=id_9) next-pos_56))))" +"(values(deserialize-full-local-binding key_50 free=id_9) next-pos_56))))" "(if(unsafe-fx< index_0 27)" "(let-values()" "(let-values(((prefix_3 next-pos_57)" "(decode" -" vec_45" +" vec_47" "(add1 pos_50)" " mpis_9" " inspector_7" @@ -20007,15 +20288,15 @@ static const char *startup_source = " shared_2)))" "(let-values(((excepts_3 next-pos_58)" "(decode" -" vec_45" +" vec_47" " next-pos_57" " mpis_9" " inspector_7" " bulk-binding-registry_7" " shared_2)))" -"(let-values(((mpi_26 next-pos_59)" +"(let-values(((mpi_27 next-pos_59)" "(decode" -" vec_45" +" vec_47" " next-pos_58" " mpis_9" " inspector_7" @@ -20023,7 +20304,7 @@ static const char *startup_source = " shared_2)))" "(let-values(((provide-phase-level_2 next-pos_60)" "(decode" -" vec_45" +" vec_47" " next-pos_59" " mpis_9" " inspector_7" @@ -20031,7 +20312,7 @@ static const char *startup_source = " shared_2)))" "(let-values(((phase-shift_5 next-pos_61)" "(decode" -" vec_45" +" vec_47" " next-pos_60" " mpis_9" " inspector_7" @@ -20039,7 +20320,7 @@ static const char *startup_source = " shared_2)))" "(let-values(((bulk-binding-registry_8 next-pos_62)" "(decode" -" vec_45" +" vec_47" " next-pos_61" " mpis_9" " inspector_7" @@ -20049,15 +20330,15 @@ static const char *startup_source = "(deserialize-bulk-binding" " prefix_3" " excepts_3" -" mpi_26" +" mpi_27" " provide-phase-level_2" " phase-shift_5" " bulk-binding-registry_8)" " next-pos_62))))))))" "(let-values()" -"(let-values(((binding_11 next-pos_63)" +"(let-values(((binding_10 next-pos_63)" "(decode" -" vec_45" +" vec_47" "(add1 pos_50)" " mpis_9" " inspector_7" @@ -20065,7 +20346,7 @@ static const char *startup_source = " shared_2)))" "(let-values(((protected?_2 next-pos_64)" "(decode" -" vec_45" +" vec_47" " next-pos_63" " mpis_9" " inspector_7" @@ -20073,71 +20354,71 @@ static const char *startup_source = " shared_2)))" "(let-values(((syntax?_3 next-pos_65)" "(decode" -" vec_45" +" vec_47" " next-pos_64" " mpis_9" " inspector_7" " bulk-binding-registry_7" " shared_2)))" "(values" -"(deserialize-provided binding_11 protected?_2 syntax?_3)" +"(deserialize-provided binding_10 protected?_2 syntax?_3)" " next-pos_65)))))))))))))))))" "(define-values" "(decode-fill!)" -"(lambda(v_154 vec_46 pos_71 mpis_10 inspector_8 bulk-binding-registry_9 shared_3)" +"(lambda(v_153 vec_48 pos_71 mpis_10 inspector_8 bulk-binding-registry_9 shared_3)" "(begin" -"(let-values(((tmp_23)(vector*-ref vec_46 pos_71)))" +"(let-values(((tmp_23)(vector*-ref vec_48 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_46(add1 pos_71) mpis_10 inspector_8 bulk-binding-registry_9 shared_3)))" -"(begin(set-box! v_154 c_21) next-pos_66)))" +"(decode vec_48(add1 pos_71) mpis_10 inspector_8 bulk-binding-registry_9 shared_3)))" +"(begin(set-box! v_153 c_21) next-pos_66)))" "(if(equal? tmp_23 '#:set-vector!)" "(let-values()" -"(let-values(((len_24)(vector*-ref vec_46(add1 pos_71))))" +"(let-values(((len_24)(vector*-ref vec_48(add1 pos_71))))" "(let-values(((start_31) 0)((end_23) len_24)((inc_17) 1))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-range start_31 end_23 inc_17)))" -"((letrec-values(((for-loop_141)" +"((letrec-values(((for-loop_145)" "(lambda(pos_72 pos_73)" "(begin" " 'for-loop" "(if(< pos_73 end_23)" -"(let-values(((i_125) pos_73))" +"(let-values(((i_126) pos_73))" "(let-values(((pos_74)" "(let-values(((pos_75) pos_72))" "(let-values(((pos_76)" "(let-values()" "(let-values(((c_22 next-pos_67)" "(decode" -" vec_46" +" vec_48" " pos_75" " mpis_10" " inspector_8" " bulk-binding-registry_9" " shared_3)))" "(begin" -"(vector-set! v_154 i_125 c_22)" +"(vector-set! v_153 i_126 c_22)" " next-pos_67)))))" "(values pos_76)))))" -"(if(not #f)(for-loop_141 pos_74(+ pos_73 inc_17)) pos_74)))" +"(if(not #f)(for-loop_145 pos_74(+ pos_73 inc_17)) pos_74)))" " pos_72)))))" -" for-loop_141)" +" for-loop_145)" "(+ pos_71 2)" " start_31)))))" "(if(equal? tmp_23 '#:set-hash!)" "(let-values()" -"(let-values(((len_25)(vector*-ref vec_46(add1 pos_71))))" +"(let-values(((len_25)(vector*-ref vec_48(add1 pos_71))))" "(let-values(((start_32) 0)((end_24) len_25)((inc_18) 1))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-range start_32 end_24 inc_18)))" -"((letrec-values(((for-loop_142)" +"((letrec-values(((for-loop_69)" "(lambda(pos_77 pos_78)" "(begin" " 'for-loop" @@ -20147,141 +20428,135 @@ static const char *startup_source = "(let-values(((pos_80) pos_77))" "(let-values(((pos_81)" "(let-values()" -"(let-values(((key_50 next-pos_68)" +"(let-values(((key_51 next-pos_68)" "(decode" -" vec_46" +" vec_48" " pos_80" " mpis_10" " inspector_8" " bulk-binding-registry_9" " shared_3)))" -"(let-values(((val_41 done-pos_2)" +"(let-values(((val_42 done-pos_2)" "(decode" -" vec_46" +" vec_48" " next-pos_68" " mpis_10" " inspector_8" " bulk-binding-registry_9" " shared_3)))" "(begin" -"(hash-set! v_154 key_50 val_41)" +"(hash-set! v_153 key_51 val_42)" " done-pos_2))))))" "(values pos_81)))))" -"(if(not #f)(for-loop_142 pos_79(+ pos_78 inc_18)) pos_79)))" +"(if(not #f)(for-loop_69 pos_79(+ pos_78 inc_18)) pos_79)))" " pos_77)))))" -" for-loop_142)" +" for-loop_69)" "(+ pos_71 2)" " start_32)))))" "(if(equal? tmp_23 '#:scope-fill!)" "(let-values()" "(let-values(((c_23 next-pos_69)" -"(decode vec_46(add1 pos_71) mpis_10 inspector_8 bulk-binding-registry_9 shared_3)))" -"(begin(deserialize-scope-fill! v_154 c_23) next-pos_69)))" +"(decode vec_48(add1 pos_71) mpis_10 inspector_8 bulk-binding-registry_9 shared_3)))" +"(begin(deserialize-scope-fill! v_153 c_23) next-pos_69)))" "(if(equal? tmp_23 '#:representative-scope-fill!)" "(let-values()" "(let-values(((a_39 next-pos_70)" -"(decode vec_46(add1 pos_71) mpis_10 inspector_8 bulk-binding-registry_9 shared_3)))" +"(decode vec_48(add1 pos_71) mpis_10 inspector_8 bulk-binding-registry_9 shared_3)))" "(let-values(((d_25 done-pos_3)" -"(decode vec_46 next-pos_70 mpis_10 inspector_8 bulk-binding-registry_9 shared_3)))" -"(begin(deserialize-representative-scope-fill! v_154 a_39 d_25) done-pos_3))))" -" (let-values () (error 'deserialize \"bad fill encoding: ~v\" (vector*-ref vec_46 pos_71)))))))))))))" +"(decode vec_48 next-pos_70 mpis_10 inspector_8 bulk-binding-registry_9 shared_3)))" +"(begin(deserialize-representative-scope-fill! v_153 a_39 d_25) done-pos_3))))" +" (let-values () (error 'deserialize \"bad fill encoding: ~v\" (vector*-ref vec_48 pos_71)))))))))))))" "(define-values" "(find-reachable-scopes)" -"(lambda(v_155)" +"(lambda(v_154)" "(begin" "(let-values(((seen_23)(make-hasheq)))" -"(let-values(((reachable-scopes_7)(seteq)))" +"(let-values(((reachable-scopes_5)(seteq)))" +"(let-values(((get-reachable-scopes_4)(lambda()(begin 'get-reachable-scopes reachable-scopes_5))))" "(let-values(((scope-triggers_0)(make-hasheq)))" "(begin" -"((letrec-values(((loop_82)" -"(lambda(v_156)" +"((letrec-values(((loop_83)" +"(lambda(v_155)" "(begin" " 'loop" -"(if(interned-literal? v_156)" +"(if(interned-literal? v_155)" "(let-values()(void))" -"(if(hash-ref seen_23 v_156 #f)" +"(if(hash-ref seen_23 v_155 #f)" "(let-values()(void))" "(let-values()" "(begin" -"(hash-set! seen_23 v_156 #t)" -"(if(scope-with-bindings? v_156)" +"(hash-set! seen_23 v_155 #t)" +"(if(scope-with-bindings? v_155)" "(let-values()" -"(let-values((()" "(begin" -"(set! reachable-scopes_7" -"(set-add reachable-scopes_7 v_156))" -"(values))))" -"(let-values((()" -"(begin" -"((reach-scopes-ref v_156) v_156 loop_82)" -"(values))))" -"(let-values(((l_50)(hash-ref scope-triggers_0 v_156 null)))" -"(begin" -"(let-values(((lst_117) l_50))" +"(set! reachable-scopes_5(set-add reachable-scopes_5 v_155))" +"((reach-scopes-ref v_155) v_155 loop_83)" +"(let-values(((lst_118)(hash-ref scope-triggers_0 v_155 null)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_117)))" -"((letrec-values(((for-loop_143)" -"(lambda(lst_118)" +"(let-values()(check-list lst_118)))" +"((letrec-values(((for-loop_146)" +"(lambda(lst_119)" "(begin" " 'for-loop" -"(if(pair? lst_118)" -"(let-values(((v_157)" -"(unsafe-car lst_118))" -"((rest_57)" -"(unsafe-cdr lst_118)))" +"(if(pair? lst_119)" +"(let-values(((proc_7)" +"(unsafe-car lst_119))" +"((rest_59)" +"(unsafe-cdr lst_119)))" "(let-values((()" "(let-values()" "(let-values((()" "(let-values()" "(begin" "(let-values()" -"(loop_82" -" v_157))" +"(proc_7" +" loop_83))" "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_143 rest_57)" +"(for-loop_146 rest_59)" "(values))))" "(values))))))" -" for-loop_143)" -" lst_117)))" +" for-loop_146)" +" lst_118)))" "(void)" -"((scope-with-bindings-ref v_156)" -" v_156" -" reachable-scopes_7" -" loop_82" -"(lambda(sc-unreachable_0 b_63)" +"(hash-remove! scope-triggers_0 v_155)" +"((scope-with-bindings-ref v_155)" +" v_155" +" get-reachable-scopes_4" +" loop_83" +"(lambda(sc-unreachable_0 b_62)" "(hash-update!" " scope-triggers_0" " sc-unreachable_0" -"(lambda(l_47)(cons b_63 l_47))" -" null))))))))" -"(if(reach-scopes? v_156)" -"(let-values()((reach-scopes-ref v_156) v_156 loop_82))" -"(if(pair? v_156)" -"(let-values()(begin(loop_82(car v_156))(loop_82(cdr v_156))))" -"(if(vector? v_156)" +"(lambda(l_50)(cons b_62 l_50))" +" null)))))" +"(if(reach-scopes? v_155)" +"(let-values()((reach-scopes-ref v_155) v_155 loop_83))" +"(if(pair? v_155)" +"(let-values()(begin(loop_83(car v_155))(loop_83(cdr v_155))))" +"(if(vector? v_155)" "(let-values()" "(begin" -"(let-values(((vec_47 len_26)" -"(let-values(((vec_48) v_156))" +"(let-values(((vec_49 len_26)" +"(let-values(((vec_50) v_155))" "(begin" -"(check-vector vec_48)" +"(check-vector vec_50)" "(values" -" vec_48" -"(unsafe-vector-length vec_48))))))" +" vec_50" +"(unsafe-vector-length vec_50))))))" "(begin" " #f" -"((letrec-values(((for-loop_144)" +"((letrec-values(((for-loop_147)" "(lambda(pos_82)" "(begin" " 'for-loop" "(if(unsafe-fx< pos_82 len_26)" "(let-values(((e_22)" "(unsafe-vector-ref" -" vec_47" +" vec_49" " pos_82)))" "(let-values((()" "(let-values()" @@ -20289,38 +20564,38 @@ static const char *startup_source = "(let-values()" "(begin" "(let-values()" -"(loop_82" +"(loop_83" " e_22))" "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_144" +"(for-loop_147" "(unsafe-fx+ 1 pos_82))" "(values))))" "(values))))))" -" for-loop_144)" +" for-loop_147)" " 0)))" "(void)))" -"(if(box? v_156)" -"(let-values()(loop_82(unbox v_156)))" -"(if(hash? v_156)" +"(if(box? v_155)" +"(let-values()(loop_83(unbox v_155)))" +"(if(hash? v_155)" "(let-values()" "(begin" -"(let-values(((ht_95) v_156))" +"(let-values(((ht_98) v_155))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_95)))" -"((letrec-values(((for-loop_145)" -"(lambda(i_126)" +"(let-values()(check-in-hash ht_98)))" +"((letrec-values(((for-loop_148)" +"(lambda(i_127)" "(begin" " 'for-loop" -"(if i_126" -"(let-values(((k_29 v_158)" +"(if i_127" +"(let-values(((k_29 v_156)" "(hash-iterate-key+value" -" ht_95" -" i_126)))" +" ht_98" +" i_127)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -20328,38 +20603,39 @@ static const char *startup_source = "(begin" "(let-values()" "(begin" -"(loop_82" +"(loop_83" " k_29)" -"(loop_82" -" v_158)))" +"(loop_83" +" v_156)))" "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_145" +"(for-loop_148" "(hash-iterate-next" -" ht_95" -" i_126))" +" ht_98" +" i_127))" "(values))))" "(values))))))" -" for-loop_145)" -"(hash-iterate-first ht_95))))" +" for-loop_148)" +"(hash-iterate-first ht_98))))" "(void)))" -"(if(prefab-struct-key v_156)" +"(if(prefab-struct-key v_155)" "(let-values()" "(begin" "(let-values(((v*_5 start*_4 stop*_5 step*_4)" "(normalise-inputs" " 'in-vector" -" \"vector\"" -"(lambda(x_51)(vector? x_51))" -"(lambda(x_52)(unsafe-vector-length x_52))" -"(struct->vector v_156)" +" \"vector\"" +"(lambda(x_49)(vector? x_49))" +"(lambda(x_50)" +"(unsafe-vector-length x_50))" +"(struct->vector v_155)" " 1" " #f" " 1)))" "(begin" " #t" -"((letrec-values(((for-loop_146)" +"((letrec-values(((for-loop_149)" "(lambda(idx_4)" "(begin" " 'for-loop" @@ -20374,24 +20650,24 @@ static const char *startup_source = "(let-values()" "(begin" "(let-values()" -"(loop_82" +"(loop_83" " e_23))" "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_146" +"(for-loop_149" "(unsafe-fx+ idx_4 1))" "(values))))" "(values))))))" -" for-loop_146)" +" for-loop_149)" " start*_4)))" "(void)))" -"(if(srcloc? v_156)" -"(let-values()(loop_82(srcloc-source v_156)))" +"(if(srcloc? v_155)" +"(let-values()(loop_83(srcloc-source v_155)))" "(let-values()(void))))))))))))))))))" -" loop_82)" -" v_155)" -" reachable-scopes_7)))))))" +" loop_83)" +" v_154)" +" reachable-scopes_5))))))))" "(define-values" "(deserialize-imports)" " '(deserialize-module-path-indexes syntax-module-path-index-shift syntax-shift-phase-level module-use deserialize))" @@ -20402,12 +20678,12 @@ static const char *startup_source = "(lambda(s24_1 from-mpi25_0 to-mpi26_0 inspector22_0 inspector23_0)" "(begin" " 'core27" -"(let-values(((s_187) s24_1))" +"(let-values(((s_192) 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_0) s_187)" +"(let-values(((s29_0) s_192)" "((from-mpi30_0) from-mpi_4)" "((to-mpi31_0) to-mpi_3)" "((inspector32_0) inspector_9))" @@ -20420,9 +20696,9 @@ static const char *startup_source = " inspector32_0" " #t)))))))))))" "(case-lambda" -"((s_188 from-mpi_5 to-mpi_4)" -"(begin 'syntax-module-path-index-shift(core27_0 s_188 from-mpi_5 to-mpi_4 #f #f)))" -"((s_189 from-mpi_6 to-mpi_5 inspector22_1)(core27_0 s_189 from-mpi_6 to-mpi_5 inspector22_1 #t))))))" +"((s_193 from-mpi_5 to-mpi_4)" +"(begin 'syntax-module-path-index-shift(core27_0 s_193 from-mpi_5 to-mpi_4 #f #f)))" +"((s_194 from-mpi_6 to-mpi_5 inspector22_1)(core27_0 s_194 from-mpi_6 to-mpi_5 inspector22_1 #t))))))" " syntax-module-path-index-shift_0))" "(define-values" "(deserialize-instance)" @@ -21022,20 +21298,20 @@ 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_42)" +"(lambda(s_0 phase_43)" "(begin" -"(let-values(((s-scs_1)(syntax-scope-set s_0 phase_42)))" -"(let-values(((ht_96) s-scs_1))" +"(let-values(((s-scs_1)(syntax-scope-set s_0 phase_43)))" +"(let-values(((ht_99) s-scs_1))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-immutable-hash-keys ht_96)))" -"((letrec-values(((for-loop_107)" -"(lambda(syms_14 i_127)" +"(let-values()(check-in-immutable-hash-keys ht_99)))" +"((letrec-values(((for-loop_111)" +"(lambda(syms_14 i_128)" "(begin" " 'for-loop" -"(if i_127" -"(let-values(((sc_25)(unsafe-immutable-hash-iterate-key ht_96 i_127)))" +"(if i_128" +"(let-values(((sc_29)(unsafe-immutable-hash-iterate-key ht_99 i_128)))" "(let-values(((syms_15)" "(let-values(((syms_16) syms_14))" "(let-values(((syms_17)" @@ -21043,18 +21319,18 @@ static const char *startup_source = "(set-union" " syms_16" "(binding-table-symbols" -"(scope-binding-table sc_25)" +"(scope-binding-table sc_29)" " s-scs_1" " s_0" " null)))))" "(values syms_17)))))" "(if(not #f)" -"(for-loop_107 syms_15(unsafe-immutable-hash-iterate-next ht_96 i_127))" +"(for-loop_111 syms_15(unsafe-immutable-hash-iterate-next ht_99 i_128))" " syms_15)))" " syms_14)))))" -" for-loop_107)" +" for-loop_111)" "(seteq)" -"(unsafe-immutable-hash-iterate-first ht_96))))))))" +"(unsafe-immutable-hash-iterate-first ht_99))))))))" "(define-values" "(struct:requires+provides" " requires+provides1.1" @@ -21201,30 +21477,30 @@ static const char *startup_source = "(hash-clear!(requires+provides-also-required r+p_0))))))" "(define-values" "(intern-mpi)" -"(lambda(r+p_1 mpi_27)(begin(intern-module-path-index!(requires+provides-require-mpis r+p_1) mpi_27))))" +"(lambda(r+p_1 mpi_28)(begin(intern-module-path-index!(requires+provides-require-mpis r+p_1) mpi_28))))" "(define-values" "(add-required-module!)" "(lambda(r+p_2 mod-name_8 phase-shift_6 is-cross-phase-persistent?_0)" "(begin" -"(let-values(((mpi_28)(intern-mpi r+p_2 mod-name_8)))" +"(let-values(((mpi_29)(intern-mpi r+p_2 mod-name_8)))" "(begin" -"(if(hash-ref(hash-ref(requires+provides-requires r+p_2) mpi_28 '#hasheqv()) phase-shift_6 #f)" +"(if(hash-ref(hash-ref(requires+provides-requires r+p_2) mpi_29 '#hasheqv()) phase-shift_6 #f)" "(void)" "(let-values()" "(begin" "(hash-update!" "(requires+provides-require-mpis-in-order r+p_2)" " phase-shift_6" -"(lambda(l_51)(cons mpi_28 l_51))" +"(lambda(l_51)(cons mpi_29 l_51))" " null)" "(hash-set!" -"(hash-ref!(requires+provides-requires r+p_2) mpi_28 make-hasheqv)" +"(hash-ref!(requires+provides-requires r+p_2) mpi_29 make-hasheqv)" " phase-shift_6" "(make-hasheq)))))" "(if is-cross-phase-persistent?_0" "(void)" "(let-values()(set-requires+provides-can-cross-phase-persistent?! r+p_2 #f)))" -" mpi_28)))))" +" mpi_29)))))" "(define-values" "(add-defined-or-required-id!19.1)" "(lambda(as-transformer?12_0 can-be-shadowed?11_0 can-be-shadowed?13_0 r+p15_0 id16_0 phase17_0 binding18_0)" @@ -21232,24 +21508,24 @@ static const char *startup_source = " 'add-defined-or-required-id!19" "(let-values(((r+p_3) r+p15_0))" "(let-values(((id_22) id16_0))" -"(let-values(((phase_51) phase17_0))" -"(let-values(((binding_12) binding18_0))" +"(let-values(((phase_52) 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_51" +" phase_52" "(phase+" -"(module-binding-nominal-phase binding_12)" -"(module-binding-nominal-require-phase binding_12)))" +"(module-binding-nominal-phase binding_11)" +"(module-binding-nominal-require-phase binding_11)))" "(void)" " (let-values () (error \"internal error: binding phase does not match nominal info\")))" "(let-values(((r+p116_0) r+p_3)" "((id117_0) id_22)" -"((phase118_0) phase_51)" -"((temp119_0)(module-binding-nominal-module binding_12))" -"((temp120_0)(module-binding-nominal-require-phase binding_12))" +"((phase118_0) phase_52)" +"((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)" "((as-transformer?122_0) as-transformer?_0))" "(add-defined-or-required-id-at-nominal!33.1" @@ -21273,7 +21549,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_23) id31_0))" -"(let-values(((phase_52) phase32_0))" +"(let-values(((phase_53) 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))" @@ -21290,7 +21566,7 @@ static const char *startup_source = " sym-to-reqds_0" " sym_30" "(cons-ish" -"(required2.1 id_23 phase_52 can-be-shadowed?_1 as-transformer?_1)" +"(required2.1 id_23 phase_53 can-be-shadowed?_1 as-transformer?_1)" "(hash-ref sym-to-reqds_0 sym_30 null)))))))))))))))))" "(define-values" "(add-bulk-required-ids!59.1)" @@ -21312,7 +21588,7 @@ static const char *startup_source = "(begin" " 'add-bulk-required-ids!59" "(let-values(((r+p_5) r+p52_0))" -"(let-values(((s_190) s53_0))" +"(let-values(((s_111) s53_0))" "(let-values(((self_9) self54_0))" "(let-values(((nominal-module_7) nominal-module55_0))" "(let-values(((phase-shift_7) phase-shift56_0))" @@ -21327,18 +21603,18 @@ static const char *startup_source = "(let-values(((accum-update-nominals_0) accum-update-nominals42_0))" "(let-values(((who_10) who43_0))" "(let-values()" -"(let-values(((phase_53)(phase+ provide-phase-level_3 phase-shift_7)))" +"(let-values(((phase_54)(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_190 phase_53)" +"(syntax-mapped-names s_111 phase_54)" " #f)" " #f)))" -"(let-values(((mpi_29)(intern-mpi r+p_5 nominal-module_7)))" +"(let-values(((mpi_30)(intern-mpi r+p_5 nominal-module_7)))" "(let-values(((at-mod_1)" "(hash-ref!" "(requires+provides-requires r+p_5)" -" mpi_29" +" mpi_30" " make-hasheqv)))" "(let-values(((sym-to-reqds_1)" "(hash-ref! at-mod_1 phase-shift_7 make-hasheq)))" @@ -21350,23 +21626,23 @@ static const char *startup_source = "(bulk-required4.1" " provides_4" " prefix-len_0" -" s_190" +" s_111" " provide-phase-level_3" " can-be-shadowed?_2)))" -"(let-values(((ht_97) provides_4))" +"(let-values(((ht_100) provides_4))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_97)))" -"((letrec-values(((for-loop_147)" -"(lambda(result_71 i_128)" +"(let-values()(check-in-hash ht_100)))" +"((letrec-values(((for-loop_150)" +"(lambda(result_71 i_129)" "(begin" " 'for-loop" -"(if i_128" +"(if i_129" "(let-values(((out-sym_0 binding/p_2)" "(hash-iterate-key+value" -" ht_97" -" i_128)))" +" ht_100" +" i_129)))" "(let-values(((result_72)" "(let-values()" "(let-values(((result_73)" @@ -21400,11 +21676,11 @@ static const char *startup_source = " out-sym_0))))))" "(let-values(((already-defined?_0)" "(if(if check-and-remove?_0" -"(let-values(((or-part_181)" +"(let-values(((or-part_183)" "(not" " shortcut-table_0)))" -"(if or-part_181" -" or-part_181" +"(if or-part_183" +" or-part_183" "(hash-ref" " shortcut-table_0" " sym_31" @@ -21419,11 +21695,11 @@ static const char *startup_source = " r+p_5)" "((temp126_0)" "(datum->syntax$1" -" s_190" +" s_111" " sym_31" -" s_190))" +" s_111))" "((phase127_0)" -" phase_53)" +" phase_54)" "((orig-s128_0)" " orig-s_0)" "((temp129_0)" @@ -21435,7 +21711,7 @@ static const char *startup_source = "((self135_0)" " self_9)" "((mpi136_0)" -" mpi_29)" +" mpi_30)" "((provide-phase-level137_0)" " provide-phase-level_3)" "((phase-shift138_0)" @@ -21488,22 +21764,22 @@ static const char *startup_source = "(values" " result_73)))))" "(if(if(not" -"((lambda x_53 result_72)" +"((lambda x_51 result_72)" " out-sym_0" " binding/p_2))" "(not #f)" " #f)" -"(for-loop_147" +"(for-loop_150" " result_72" -"(hash-iterate-next ht_97 i_128))" +"(hash-iterate-next ht_100 i_129))" " result_72)))" " result_71)))))" -" for-loop_147)" +" for-loop_150)" " #f" -"(hash-iterate-first ht_97))))))))))))))))))))))))))))))" +"(hash-iterate-first ht_100))))))))))))))))))))))))))))))" "(define-values" "(bulk-required->required)" -"(lambda(br_1 nominal-module_8 phase_54 sym_32)" +"(lambda(br_1 nominal-module_8 phase_55 sym_32)" "(begin" "(let-values(((prefix-len_1)(bulk-required-prefix-len br_1)))" "(let-values(((out-sym_1)" @@ -21513,13 +21789,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_54(bulk-required-provide-phase-level br_1))" +"(phase+ phase_55(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_34 mod-name_9 phase_55 sym_33)" -"(begin(if(bulk-required? r_34)(bulk-required->required r_34 mod-name_9 phase_55 sym_33) r_34))))" +"(lambda(r_34 mod-name_9 phase_56 sym_33)" +"(begin(if(bulk-required? r_34)(bulk-required->required r_34 mod-name_9 phase_56 sym_33) r_34))))" "(define-values" "(add-enclosing-module-defined-and-required!67.1)" "(lambda(enclosing-requires+provides62_0 r+p64_0 enclosing-mod65_0 phase-shift66_0)" @@ -21532,18 +21808,18 @@ static const char *startup_source = "(let-values()" "(begin" "(set-requires+provides-all-bindings-simple?! r+p_6 #f)" -"(let-values(((ht_98)(requires+provides-requires enclosing-r+p_0)))" +"(let-values(((ht_101)(requires+provides-requires enclosing-r+p_0)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_98)))" -"((letrec-values(((for-loop_148)" -"(lambda(i_129)" +"(let-values()(check-in-hash ht_101)))" +"((letrec-values(((for-loop_151)" +"(lambda(i_130)" "(begin" " 'for-loop" -"(if i_129" +"(if i_130" "(let-values(((mod-name_10 at-mod_2)" -"(hash-iterate-key+value ht_98 i_129)))" +"(hash-iterate-key+value ht_101 i_130)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -21551,25 +21827,25 @@ static const char *startup_source = "(begin" "(let-values()" "(begin" -"(let-values(((ht_99) at-mod_2))" +"(let-values(((ht_102) at-mod_2))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" -"(check-in-hash ht_99)))" -"((letrec-values(((for-loop_149)" -"(lambda(i_130)" +"(check-in-hash ht_102)))" +"((letrec-values(((for-loop_152)" +"(lambda(i_131)" "(begin" " 'for-loop" -"(if i_130" -"(let-values(((phase_56" +"(if i_131" +"(let-values(((phase_57" " at-phase_8)" "(hash-iterate-key+value" -" ht_99" -" i_130)))" +" ht_102" +" i_131)))" "(let-values((()" -"(let-values(((ht_100)" +"(let-values(((ht_103)" " at-phase_8))" "(begin" "(if(variable-reference-from-unsafe?" @@ -21577,40 +21853,40 @@ static const char *startup_source = "(void)" "(let-values()" "(check-in-hash" -" ht_100)))" -"((letrec-values(((for-loop_150)" -"(lambda(i_131)" +" ht_103)))" +"((letrec-values(((for-loop_153)" +"(lambda(i_65)" "(begin" " 'for-loop" -"(if i_131" +"(if i_65" "(let-values(((sym_34" " reqds_0)" "(hash-iterate-key+value" -" ht_100" -" i_131)))" +" ht_103" +" i_65)))" "(let-values((()" -"(let-values(((lst_119)" +"(let-values(((lst_120)" " reqds_0))" "(begin" "(void)" -"((letrec-values(((for-loop_151)" -"(lambda(lst_120)" +"((letrec-values(((for-loop_154)" +"(lambda(lst_121)" "(begin" " 'for-loop" "(if(not" "(null?" -" lst_120))" +" lst_121))" "(let-values(((reqd/maybe-bulk_0)" "(if(pair?" -" lst_120)" +" lst_121)" "(car" -" lst_120)" -" lst_120))" -"((rest_58)" +" lst_121)" +" lst_121))" +"((rest_60)" "(if(pair?" -" lst_120)" +" lst_121)" "(cdr" -" lst_120)" +" lst_121)" " null)))" "(let-values((()" "(let-values()" @@ -21622,7 +21898,7 @@ static const char *startup_source = "(normalize-required" " reqd/maybe-bulk_0" " mod-name_10" -" phase_56" +" phase_57" " sym_34)))" "(let-values(((r+p139_0)" " r+p_6)" @@ -21671,42 +21947,43 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_151" -" rest_58)" +"(for-loop_154" +" rest_60)" "(values))))" "(values))))))" -" for-loop_151)" -" lst_119)))))" +" for-loop_154)" +" lst_120)))))" "(if(not" " #f)" -"(for-loop_150" +"(for-loop_153" "(hash-iterate-next" -" ht_100" +" ht_103" +" i_65))" +"(values))))" +"(values))))))" +" for-loop_153)" +"(hash-iterate-first" +" ht_103))))))" +"(if(not" +" #f)" +"(for-loop_152" +"(hash-iterate-next" +" ht_102" " i_131))" "(values))))" "(values))))))" -" for-loop_150)" +" for-loop_152)" "(hash-iterate-first" -" ht_100))))))" -"(if(not" -" #f)" -"(for-loop_149" -"(hash-iterate-next" -" ht_99" -" i_130))" -"(values))))" -"(values))))))" -" for-loop_149)" -"(hash-iterate-first ht_99))))" +" ht_102))))" "(void)))" "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_148(hash-iterate-next ht_98 i_129))" +"(for-loop_151(hash-iterate-next ht_101 i_130))" "(values))))" "(values))))))" -" for-loop_148)" -"(hash-iterate-first ht_98))))" +" for-loop_151)" +"(hash-iterate-first ht_101))))" "(void))))))))))" "(define-values" "(remove-required-id!75.1)" @@ -21715,19 +21992,19 @@ static const char *startup_source = " 'remove-required-id!75" "(let-values(((r+p_7) r+p72_0))" "(let-values(((id_24) id73_0))" -"(let-values(((phase_57) phase74_1))" -"(let-values(((binding_13) unless-matches70_0))" +"(let-values(((phase_58) phase74_1))" +"(let-values(((binding_12) unless-matches70_0))" "(let-values()" -"(let-values(((b_64)" -"(let-values(((id149_0) id_24)((phase150_0) phase_57)((temp151_0) #t))" +"(let-values(((b_63)" +"(let-values(((id149_0) id_24)((phase150_0) phase_58)((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_63" "(let-values()" -"(let-values(((mpi_30)(intern-mpi r+p_7(module-binding-nominal-module b_64))))" -"(let-values(((at-mod_3)(hash-ref(requires+provides-requires r+p_7) mpi_30 #f)))" +"(let-values(((mpi_31)(intern-mpi r+p_7(module-binding-nominal-module b_63))))" +"(let-values(((at-mod_3)(hash-ref(requires+provides-requires r+p_7) mpi_31 #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_63)))" "(let-values(((sym-to-reqds_2)(hash-ref at-mod_3 nominal-phase_4 #f)))" "(if sym-to-reqds_2" "(let-values()" @@ -21736,7 +22013,7 @@ static const char *startup_source = "(if(null? l_52)" "(void)" "(let-values()" -"(if(same-binding? b_64 binding_13)" +"(if(same-binding? b_63 binding_12)" "(void)" "(let-values()" "(hash-set!" @@ -21745,8 +22022,8 @@ static const char *startup_source = "(remove-non-matching-requireds" " l_52" " id_24" -" phase_57" -" mpi_30" +" phase_58" +" mpi_31" " nominal-phase_4" " sym_35)))))))))" "(void)))))" @@ -21754,65 +22031,65 @@ static const char *startup_source = "(void)))))))))))" "(define-values" "(remove-non-matching-requireds)" -"(lambda(reqds_1 id_25 phase_58 mpi_31 nominal-phase_5 sym_36)" +"(lambda(reqds_1 id_25 phase_59 mpi_32 nominal-phase_5 sym_36)" "(begin" "(reverse$1" -"(let-values(((lst_121) reqds_1))" +"(let-values(((lst_122) reqds_1))" "(begin" "(void)" -"((letrec-values(((for-loop_152)" -"(lambda(fold-var_98 lst_122)" +"((letrec-values(((for-loop_155)" +"(lambda(fold-var_103 lst_123)" "(begin" " 'for-loop" -"(if(not(null? lst_122))" -"(let-values(((r_35)(if(pair? lst_122)(car lst_122) lst_122))" -"((rest_59)(if(pair? lst_122)(cdr lst_122) null)))" -"(let-values(((fold-var_99)" +"(if(not(null? lst_123))" +"(let-values(((r_35)(if(pair? lst_123)(car lst_123) lst_123))" +"((rest_61)(if(pair? lst_123)(cdr lst_123) null)))" +"(let-values(((fold-var_104)" "(let-values(((r_36)" "(normalize-required" " r_35" -" mpi_31" +" mpi_32" " nominal-phase_5" " sym_36)))" "(begin" " #t" -"((letrec-values(((for-loop_153)" -"(lambda(fold-var_100)" +"((letrec-values(((for-loop_156)" +"(lambda(fold-var_105)" "(begin" " 'for-loop" "(let-values()" -"(let-values(((fold-var_101)" -"(let-values(((fold-var_102)" -" fold-var_100))" +"(let-values(((fold-var_106)" +"(let-values(((fold-var_107)" +" fold-var_105))" "(if(if(eqv?" -" phase_58" +" phase_59" "(required-phase" " r_36))" "(free-identifier=?$1" "(required-id r_36)" " id_25" -" phase_58" -" phase_58)" +" phase_59" +" phase_59)" " #f)" -" fold-var_102" -"(let-values(((fold-var_103)" -" fold-var_102))" -"(let-values(((fold-var_104)" +" fold-var_107" +"(let-values(((fold-var_108)" +" fold-var_107))" +"(let-values(((fold-var_109)" "(let-values()" "(cons" "(let-values()" " r_36)" -" fold-var_103))))" +" fold-var_108))))" "(values" -" fold-var_104)))))))" -" fold-var_101))))))" -" for-loop_153)" -" fold-var_98)))))" -"(if(not #f)(for-loop_152 fold-var_99 rest_59) fold-var_99)))" -" fold-var_98)))))" -" for-loop_152)" +" fold-var_109)))))))" +" fold-var_106))))))" +" for-loop_156)" +" fold-var_103)))))" +"(if(not #f)(for-loop_155 fold-var_104 rest_61) fold-var_104)))" +" fold-var_103)))))" +" for-loop_155)" " null" -" lst_121)))))))" +" lst_122)))))))" "(define-values" "(check-not-defined95.1)" "(lambda(accum-update-nominals83_0" @@ -21836,7 +22113,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_26) id93_0))" -"(let-values(((phase_59) phase94_0))" +"(let-values(((phase_60) 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)))" @@ -21844,8 +22121,8 @@ static const char *startup_source = "(if accum-update-nominals90_0 accum-update-nominals83_0 #f)))" "(let-values(((who_11) who84_0))" "(let-values()" -"(let-values(((b_65)" -"(let-values(((id152_0) id_26)((phase153_0) phase_59)((temp154_0) #t))" +"(let-values(((b_64)" +"(let-values(((id152_0) id_26)((phase153_0) phase_60)((temp154_0) #t))" "(resolve+shift30.1" " #f" " #f" @@ -21859,44 +22136,39 @@ static const char *startup_source = " #f" " id152_0" " phase153_0))))" -"(if(not b_65)" +"(if(not b_64)" "(let-values() #f)" -"(if(not(module-binding? b_65))" +"(if(not(module-binding? b_64))" " (let-values () (raise-syntax-error$1 #f \"identifier out of context\" id_26))" "(let-values()" "(let-values(((defined?_0)" -"(if b_65" -"(eq?(requires+provides-self r+p_8)(module-binding-module b_65))" +"(if b_64" +"(eq?(requires+provides-self r+p_8)(module-binding-module b_64))" " #f)))" -"(if(if(not defined?_0)(not check-not-required?_0) #f)" -"(let-values()" -"(begin" -"(set-requires+provides-all-bindings-simple?! r+p_8 #f)" -"(hash-set!" -"(requires+provides-also-required r+p_8)" -"(module-binding-sym b_65)" -" b_65)" -" #f))" "(if(if defined?_0" "(not" "(hash-ref" "(hash-ref" "(requires+provides-phase-to-defined-syms r+p_8)" -" phase_59" +" phase_60" " '#hasheq())" -"(module-binding-sym b_65)" +"(module-binding-sym b_64)" " #f))" " #f)" "(let-values() #f)" "(let-values()" -"(let-values(((mpi_32)" -"(intern-mpi r+p_8(module-binding-nominal-module b_65))))" +"(let-values(((define-shadowing-require?_0)" +"(if(not defined?_0)(not check-not-required?_0) #f)))" +"(let-values(((mpi_33)" +"(intern-mpi r+p_8(module-binding-nominal-module b_64))))" "(let-values(((at-mod_4)" -"(hash-ref(requires+provides-requires r+p_8) mpi_32 #f)))" +"(hash-ref(requires+provides-requires r+p_8) mpi_33 #f)))" "(let-values(((ok-binding_0)" +"(if(not define-shadowing-require?_0)" "(if(procedure? ok-binding/delayed_0)" "(ok-binding/delayed_0)" -" ok-binding/delayed_0)))" +" ok-binding/delayed_0)" +" #f)))" "(let-values(((raise-already-bound_0)" "(lambda(defined?_1)" "(begin" @@ -21906,22 +22178,22 @@ static const char *startup_source = "(string-append" " \"identifier already \"" " (if defined?_1 \"defined\" \"required\")" -"(if(zero-phase? phase_59)" +"(if(zero-phase? phase_60)" " (let-values () \"\")" -"(if(label-phase? phase_59)" +"(if(label-phase? phase_60)" " (let-values () \" for label\")" -"(if(= 1 phase_59)" +"(if(= 1 phase_60)" " (let-values () \" for syntax\")" "(let-values()" -" (format \" for phase ~a\" phase_59))))))" +" (format \" for phase ~a\" phase_60))))))" " orig-s_1" " id_26)))))" -"(if(not at-mod_4)" +"(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_64 ok-binding_0) #f)" "(let-values()" "(begin" -"(if(same-binding-nominals? b_65 ok-binding_0)" +"(if(same-binding-nominals? b_64 ok-binding_0)" "(void)" "(let-values()" "(let-values(((update!_0)" @@ -21932,12 +22204,12 @@ static const char *startup_source = "((id156_0) id_26)" "((temp157_0)" "(let-values(((b159_0)" -" b_65)" +" b_64)" "((temp160_0)" "(cons" " ok-binding_0" "(module-binding-extra-nominal-bindings" -" b_65))))" +" b_64))))" "(module-binding-update48.1" " #f" " #f" @@ -21962,7 +22234,7 @@ static const char *startup_source = " #f" " #f" " b159_0)))" -"((phase158_0) phase_59))" +"((phase158_0) phase_60))" "(add-binding!17.1" " #f" " #f" @@ -21987,7 +22259,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_64)" " #f)))" "(begin" "(if(if prev-b_0" @@ -21997,13 +22269,13 @@ static const char *startup_source = "(void))" "(hash-set!" " also-required_0" -"(module-binding-sym b_65)" +"(module-binding-sym b_64)" " 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_64)))" "(let-values(((sym-to-reqds_3)" "(hash-ref" " at-mod_4" @@ -22014,56 +22286,80 @@ static const char *startup_source = " sym-to-reqds_3" "(syntax-e$1 id_26)" " null)))" -"(begin" -"(let-values(((lst_123) reqds_2))" +"(let-values(((only-can-can-shadow-require?_0)" +"(let-values(((lst_124) reqds_2))" "(begin" "(void)" -"((letrec-values(((for-loop_154)" -"(lambda(lst_124)" +"((letrec-values(((for-loop_157)" +"(lambda(only-can-can-shadow-require?_1" +" lst_125)" "(begin" " 'for-loop" -"(if(not(null? lst_124))" -"(let-values(((r_37)" +"(if(not" +"(null?" +" lst_125))" +"(let-values(((r_24)" "(if(pair?" -" lst_124)" +" lst_125)" "(car" -" lst_124)" -" lst_124))" -"((rest_60)" +" lst_125)" +" lst_125))" +"((rest_62)" "(if(pair?" -" lst_124)" +" lst_125)" "(cdr" -" lst_124)" +" lst_125)" " null)))" -"(let-values((()" -"(let-values()" -"(let-values((()" -"(let-values()" -"(begin" +"(let-values(((only-can-can-shadow-require?_2)" +"(let-values(((only-can-can-shadow-require?_3)" +" only-can-can-shadow-require?_1))" +"(let-values(((only-can-can-shadow-require?_4)" "(let-values()" "(if(if(bulk-required?" -" r_37)" +" r_24)" "(bulk-required-can-be-shadowed?" -" r_37)" +" r_24)" "(required-can-be-shadowed?" -" r_37))" +" r_24))" "(let-values()" +"(begin" "(set-requires+provides-all-bindings-simple?!" " r+p_8" -" #f))" +" #f)" +" only-can-can-shadow-require?_3))" +"(if define-shadowing-require?_0" +"(let-values()" +" #f)" "(let-values()" "(raise-already-bound_0" -" defined?_0))))" -"(values)))))" -"(values)))))" -"(if(not #f)" -"(for-loop_154" -" rest_60)" -"(values))))" -"(values))))))" -" for-loop_154)" -" lst_123)))" +" defined?_0)))))))" +"(values" +" only-can-can-shadow-require?_4)))))" +"(if(not" +" #f)" +"(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_157)" +" #t" +" lst_124)))))" +"(begin" +"(if define-shadowing-require?_0" +"(let-values()" +"(begin" +"(set-requires+provides-all-bindings-simple?!" +" r+p_8" +" #f)" +"(if only-can-can-shadow-require?_0" "(void)" +"(let-values()" +"(hash-set!" +"(requires+provides-also-required r+p_8)" +"(module-binding-sym b_64)" +" b_64)))))" +"(let-values()" "(if(if remove-shadowed!?_0" "(not(null? reqds_2))" " #f)" @@ -22074,31 +22370,31 @@ static const char *startup_source = "(remove-non-matching-requireds" " reqds_2" " id_26" -" phase_59" -" mpi_32" +" phase_60" +" mpi_33" " nominal-phase_6" "(syntax-e$1 id_26))))" -"(void))" -" #f))))))))))))))))))))))))))))))))))" +"(void))))" +" #f)))))))))))))))))))))))))))))))))))" "(define-values" "(add-defined-syms!)" -"(lambda(r+p_9 syms_18 phase_60)" +"(lambda(r+p_9 syms_18 phase_61)" "(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_60 '#hasheq())))" +"(let-values(((defined-syms_2)(hash-ref phase-to-defined-syms_0 phase_61 '#hasheq())))" "(let-values(((new-defined-syms_0)" -"(let-values(((lst_125) syms_18))" +"(let-values(((lst_126) syms_18))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_125)))" -"((letrec-values(((for-loop_155)" -"(lambda(defined-syms_3 lst_126)" +"(let-values()(check-list lst_126)))" +"((letrec-values(((for-loop_158)" +"(lambda(defined-syms_3 lst_127)" "(begin" " 'for-loop" -"(if(pair? lst_126)" -"(let-values(((sym_37)(unsafe-car lst_126))" -"((rest_61)(unsafe-cdr lst_126)))" +"(if(pair? lst_127)" +"(let-values(((sym_37)(unsafe-car lst_127))" +"((rest_63)(unsafe-cdr lst_127)))" "(let-values(((defined-syms_4)" "(let-values(((defined-syms_5) defined-syms_3))" "(let-values(((defined-syms_6)" @@ -22109,112 +22405,112 @@ static const char *startup_source = " #t))))" "(values defined-syms_6)))))" "(if(not #f)" -"(for-loop_155 defined-syms_4 rest_61)" +"(for-loop_158 defined-syms_4 rest_63)" " defined-syms_4)))" " defined-syms_3)))))" -" for-loop_155)" +" for-loop_158)" " defined-syms_2" -" lst_125)))))" -"(hash-set! phase-to-defined-syms_0 phase_60 new-defined-syms_0)))))))" +" lst_126)))))" +"(hash-set! phase-to-defined-syms_0 phase_61 new-defined-syms_0)))))))" "(define-values" "(extract-module-requires)" -"(lambda(r+p_10 mod-name_11 phase_61)" +"(lambda(r+p_10 mod-name_11 phase_62)" "(begin" -"(let-values(((mpi_33)(intern-mpi r+p_10 mod-name_11)))" -"(let-values(((at-mod_5)(hash-ref(requires+provides-requires r+p_10) mpi_33 #f)))" +"(let-values(((mpi_34)(intern-mpi r+p_10 mod-name_11)))" +"(let-values(((at-mod_5)(hash-ref(requires+provides-requires r+p_10) mpi_34 #f)))" "(if at-mod_5" "(reverse$1" -"(let-values(((ht_101)(hash-ref at-mod_5 phase_61 '#hasheq())))" +"(let-values(((ht_104)(hash-ref at-mod_5 phase_62 '#hasheq())))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_101)))" -"((letrec-values(((for-loop_156)" -"(lambda(fold-var_105 i_132)" +"(let-values()(check-in-hash ht_104)))" +"((letrec-values(((for-loop_159)" +"(lambda(fold-var_110 i_132)" "(begin" " 'for-loop" "(if i_132" -"(let-values(((sym_38 reqds_3)(hash-iterate-key+value ht_101 i_132)))" -"(let-values(((fold-var_106)" -"(let-values(((lst_127) reqds_3))" +"(let-values(((sym_38 reqds_3)(hash-iterate-key+value ht_104 i_132)))" +"(let-values(((fold-var_111)" +"(let-values(((lst_128) reqds_3))" "(begin" "(void)" -"((letrec-values(((for-loop_157)" -"(lambda(fold-var_107 lst_128)" +"((letrec-values(((for-loop_160)" +"(lambda(fold-var_112 lst_129)" "(begin" " 'for-loop" -"(if(not(null? lst_128))" +"(if(not(null? lst_129))" "(let-values(((reqd_1)" -"(if(pair? lst_128)" -"(car lst_128)" -" lst_128))" -"((rest_62)" -"(if(pair? lst_128)" -"(cdr lst_128)" +"(if(pair? lst_129)" +"(car lst_129)" +" lst_129))" +"((rest_64)" +"(if(pair? lst_129)" +"(cdr lst_129)" " null)))" -"(let-values(((fold-var_108)" -"(let-values(((fold-var_109)" -" fold-var_107))" -"(let-values(((fold-var_110)" +"(let-values(((fold-var_113)" +"(let-values(((fold-var_114)" +" fold-var_112))" +"(let-values(((fold-var_115)" "(let-values()" "(cons" "(let-values()" "(normalize-required" " reqd_1" -" mpi_33" -" phase_61" +" mpi_34" +" phase_62" " sym_38))" -" fold-var_109))))" +" fold-var_114))))" "(values" +" fold-var_115)))))" +"(if(not #f)" +"(for-loop_160" +" fold-var_113" +" rest_64)" +" fold-var_113)))" +" fold-var_112)))))" +" for-loop_160)" +" fold-var_110" +" lst_128)))))" +"(if(not #f)" +"(for-loop_159 fold-var_111(hash-iterate-next ht_104 i_132))" +" fold-var_111)))" " fold-var_110)))))" -"(if(not #f)" -"(for-loop_157" -" fold-var_108" -" rest_62)" -" fold-var_108)))" -" fold-var_107)))))" -" for-loop_157)" -" fold-var_105" -" lst_127)))))" -"(if(not #f)" -"(for-loop_156 fold-var_106(hash-iterate-next ht_101 i_132))" -" fold-var_106)))" -" fold-var_105)))))" -" for-loop_156)" +" for-loop_159)" " null" -"(hash-iterate-first ht_101)))))" +"(hash-iterate-first ht_104)))))" " #f))))))" "(define-values" "(extract-module-definitions)" "(lambda(r+p_11)" "(begin" -"(let-values(((or-part_182)(extract-module-requires r+p_11(requires+provides-self r+p_11) 0)))" -"(if or-part_182 or-part_182 null)))))" +"(let-values(((or-part_184)(extract-module-requires r+p_11(requires+provides-self r+p_11) 0)))" +"(if or-part_184 or-part_184 null)))))" "(define-values" "(extract-all-module-requires)" -"(lambda(r+p_12 mod-name_12 phase_62)" +"(lambda(r+p_12 mod-name_12 phase_63)" "(begin" "(let-values(((self_10)(requires+provides-self r+p_12)))" "(let-values(((requires_2)(requires+provides-requires r+p_12)))" "(call/ec" "(lambda(esc_0)" "(reverse$1" -"(let-values(((lst_129)(if mod-name_12(list(intern-mpi r+p_12 mod-name_12))(hash-keys requires_2))))" +"(let-values(((lst_130)(if mod-name_12(list(intern-mpi r+p_12 mod-name_12))(hash-keys requires_2))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_129)))" -"((letrec-values(((for-loop_158)" -"(lambda(fold-var_111 lst_130)" +"(let-values()(check-list lst_130)))" +"((letrec-values(((for-loop_161)" +"(lambda(fold-var_116 lst_131)" "(begin" " 'for-loop" -"(if(pair? lst_130)" -"(let-values(((mod-name_13)(unsafe-car lst_130))" -"((rest_63)(unsafe-cdr lst_130)))" -"(let-values(((fold-var_112)" -"(let-values(((fold-var_113) fold-var_111))" +"(if(pair? lst_131)" +"(let-values(((mod-name_13)(unsafe-car lst_131))" +"((rest_65)(unsafe-cdr lst_131)))" +"(let-values(((fold-var_117)" +"(let-values(((fold-var_118) fold-var_116))" "(if(eq? mod-name_13 self_10)" -" fold-var_113" +" fold-var_118" "(let-values(((phase-to-requireds_0)" "(hash-ref" " requires_2" @@ -22222,45 +22518,45 @@ static const char *startup_source = " '#hasheqv())))" "(begin" " #t" -"((letrec-values(((for-loop_159)" -"(lambda(fold-var_114)" +"((letrec-values(((for-loop_162)" +"(lambda(fold-var_119)" "(begin" " 'for-loop" "(let-values()" -"(let-values(((fold-var_115)" -"(let-values(((lst_131)" +"(let-values(((fold-var_120)" +"(let-values(((lst_132)" "(if(eq?" -" phase_62" +" phase_63" " 'all)" "(hash-keys" " phase-to-requireds_0)" "(list" -" phase_62))))" +" phase_63))))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_131)))" -"((letrec-values(((for-loop_160)" -"(lambda(fold-var_116" -" lst_132)" +" lst_132)))" +"((letrec-values(((for-loop_163)" +"(lambda(fold-var_121" +" lst_133)" "(begin" " 'for-loop" "(if(pair?" -" lst_132)" -"(let-values(((phase_63)" +" lst_133)" +"(let-values(((phase_64)" "(unsafe-car" -" lst_132))" -"((rest_64)" +" lst_133))" +"((rest_66)" "(unsafe-cdr" -" lst_132)))" -"(let-values(((fold-var_117)" -"(let-values(((ht_102)" +" lst_133)))" +"(let-values(((fold-var_122)" +"(let-values(((ht_105)" "(hash-ref" " phase-to-requireds_0" -" phase_63" +" phase_64" "(lambda()" "(esc_0" " #f)))))" @@ -22270,9 +22566,9 @@ static const char *startup_source = "(void)" "(let-values()" "(check-in-hash" -" ht_102)))" -"((letrec-values(((for-loop_161)" -"(lambda(fold-var_118" +" ht_105)))" +"((letrec-values(((for-loop_164)" +"(lambda(fold-var_123" " i_133)" "(begin" " 'for-loop" @@ -22280,89 +22576,89 @@ static const char *startup_source = "(let-values(((sym_39" " reqds_4)" "(hash-iterate-key+value" -" ht_102" +" ht_105" " i_133)))" -"(let-values(((fold-var_119)" -"(let-values(((lst_133)" +"(let-values(((fold-var_124)" +"(let-values(((lst_134)" " reqds_4))" "(begin" "(void)" -"((letrec-values(((for-loop_162)" -"(lambda(fold-var_120" -" lst_134)" +"((letrec-values(((for-loop_165)" +"(lambda(fold-var_125" +" lst_135)" "(begin" " 'for-loop" "(if(not" "(null?" -" lst_134))" +" lst_135))" "(let-values(((reqd_2)" "(if(pair?" -" lst_134)" +" lst_135)" "(car" -" lst_134)" -" lst_134))" -"((rest_65)" +" lst_135)" +" lst_135))" +"((rest_67)" "(if(pair?" -" lst_134)" +" lst_135)" "(cdr" -" lst_134)" +" lst_135)" " null)))" -"(let-values(((fold-var_121)" -"(let-values(((fold-var_122)" -" fold-var_120))" -"(let-values(((fold-var_123)" +"(let-values(((fold-var_126)" +"(let-values(((fold-var_127)" +" fold-var_125))" +"(let-values(((fold-var_128)" "(let-values()" "(cons" "(let-values()" "(normalize-required" " reqd_2" " mod-name_13" -" phase_63" +" phase_64" " sym_39))" -" fold-var_122))))" +" fold-var_127))))" "(values" -" fold-var_123)))))" +" fold-var_128)))))" "(if(not" " #f)" -"(for-loop_162" -" fold-var_121" -" rest_65)" -" fold-var_121)))" -" fold-var_120)))))" -" for-loop_162)" -" fold-var_118" -" lst_133)))))" +"(for-loop_165" +" fold-var_126" +" rest_67)" +" fold-var_126)))" +" fold-var_125)))))" +" for-loop_165)" +" fold-var_123" +" lst_134)))))" "(if(not" " #f)" -"(for-loop_161" -" fold-var_119" +"(for-loop_164" +" fold-var_124" "(hash-iterate-next" -" ht_102" +" ht_105" " i_133))" -" fold-var_119)))" -" fold-var_118)))))" -" for-loop_161)" -" fold-var_116" +" fold-var_124)))" +" fold-var_123)))))" +" for-loop_164)" +" fold-var_121" "(hash-iterate-first" -" ht_102))))))" +" ht_105))))))" "(if(not" " #f)" -"(for-loop_160" -" fold-var_117" -" rest_64)" -" fold-var_117)))" +"(for-loop_163" +" fold-var_122" +" rest_66)" +" fold-var_122)))" +" fold-var_121)))))" +" for-loop_163)" +" fold-var_119" +" lst_132)))))" +" fold-var_120))))))" +" for-loop_162)" +" fold-var_118)))))))" +"(if(not #f)(for-loop_161 fold-var_117 rest_65) fold-var_117)))" " fold-var_116)))))" -" for-loop_160)" -" fold-var_114" -" lst_131)))))" -" fold-var_115))))))" -" for-loop_159)" -" fold-var_113)))))))" -"(if(not #f)(for-loop_158 fold-var_112 rest_63) fold-var_112)))" -" fold-var_111)))))" -" for-loop_158)" +" for-loop_161)" " null" -" lst_129)))))))))))" +" lst_130)))))))))))" "(define-values" "(add-provide!109.1)" "(lambda(as-protected?98_0" @@ -22378,8 +22674,8 @@ 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(((binding_14) binding105_0))" +"(let-values(((phase_14) phase104_0))" +"(let-values(((binding_13) binding105_0))" "(let-values(((immed-binding_0) immed-binding106_0))" "(let-values(((id_27) id107_0))" "(let-values(((orig-s_2) orig-s108_0))" @@ -22395,15 +22691,15 @@ static const char *startup_source = "(void))" "(hash-update!" "(requires+provides-provides r+p_13)" -" phase_64" +" phase_14" "(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_39)(provided-as-binding b/p_0)))" +"(if(not b_39)" "(let-values()" "(let-values(((plain-binding_0)" -"(if(binding-free=id binding_14)" -"(let-values(((binding161_0) binding_14)((temp162_1) #f))" +"(if(binding-free=id binding_13)" +"(let-values(((binding161_0) binding_13)((temp162_1) #f))" "(module-binding-update48.1" " #f" " #f" @@ -22428,15 +22724,15 @@ static const char *startup_source = " #f" " #f" " binding161_0))" -" binding_14)))" +" binding_13)))" "(hash-set" " at-phase_9" " sym_40" -"(if(let-values(((or-part_183) as-protected?_0))" -"(if or-part_183 or-part_183 as-transformer?_2))" +"(if(let-values(((or-part_185) as-protected?_0))" +"(if or-part_185 or-part_185 as-transformer?_2))" "(provided1.1 plain-binding_0 as-protected?_0 as-transformer?_2)" " plain-binding_0))))" -"(if(same-binding? b_66 binding_14)" +"(if(same-binding? b_39 binding_13)" "(let-values() at-phase_9)" "(let-values()" "(raise-syntax-error$1" @@ -22459,28 +22755,28 @@ static const char *startup_source = "((phasemodule-path" " maybe-mp_0)" " maybe-mp_0)))" -"(let-values(((mpi_35)" +"(let-values(((mpi_36)" "(let-values(((mp219_0)" " mp_0)" "((self220_0)" @@ -24292,16 +24588,16 @@ static const char *startup_source = " self220_0))))" "(begin" "(let-values(((mpi202_0)" -" mpi_35)" +" mpi_36)" "((req203_0)" " req_0)" "((self204_0)" " self_11)" "((temp205_0)" -"(let-values(((or-part_118)" +"(let-values(((or-part_203)" " req_0))" -"(if or-part_118" -" or-part_118" +"(if or-part_203" +" or-part_203" " top-req_0)))" "((m-ns206_0)" " m-ns_8)" @@ -24365,20 +24661,20 @@ static const char *startup_source = "(values" " result_76)))))" "(if(if(not" -"((lambda x_54" +"((lambda x_52" "(not result_75))" " req_0))" "(not #f)" " #f)" -"(for-loop_167" +"(for-loop_170" " result_75" -" rest_68)" +" rest_70)" " result_75)))" " result_74)))))" -" for-loop_167)" +" for-loop_170)" " #t" -" lst_139)))))))" -" loop_84)" +" lst_140)))))))" +" loop_85)" " reqs_0" " #f" " phase-shift_9" @@ -24391,31 +24687,31 @@ static const char *startup_source = "(ids->sym-set)" "(lambda(ids_3)" "(begin" -"(let-values(((lst_145) ids_3))" +"(let-values(((lst_146) ids_3))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_145)))" -"((letrec-values(((for-loop_170)" -"(lambda(table_135 lst_146)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_146)))" +"((letrec-values(((for-loop_172)" +"(lambda(table_141 lst_147)" "(begin" " 'for-loop" -"(if(pair? lst_146)" -"(let-values(((id_43)(unsafe-car lst_146))((rest_72)(unsafe-cdr lst_146)))" -"(let-values(((table_136)" -"(let-values(((table_137) table_135))" -"(let-values(((table_138)" +"(if(pair? lst_147)" +"(let-values(((id_43)(unsafe-car lst_147))((rest_74)(unsafe-cdr lst_147)))" +"(let-values(((table_142)" +"(let-values(((table_143) table_141))" +"(let-values(((table_144)" "(let-values()" -"(let-values(((key_53 val_44)" +"(let-values(((key_54 val_45)" "(let-values()" "(values" "(let-values()(syntax-e$1 id_43))" " #t))))" -"(hash-set table_137 key_53 val_44)))))" -"(values table_138)))))" -"(if(not #f)(for-loop_170 table_136 rest_72) table_136)))" -" table_135)))))" -" for-loop_170)" +"(hash-set table_143 key_54 val_45)))))" +"(values table_144)))))" +"(if(not #f)(for-loop_172 table_142 rest_74) table_142)))" +" table_141)))))" +" for-loop_172)" " '#hash()" -" lst_145))))))" +" lst_146))))))" "(define-values" "(perform-initial-require!42.1)" "(lambda(bind?33_0 who34_0 mod-path37_0 self38_0 in-stx39_0 m-ns40_0 requires+provides41_0)" @@ -24508,7 +24804,7 @@ static const char *startup_source = " m-ns77_0)" "(begin" " 'perform-require!78" -"(let-values(((mpi_36) mpi73_0))" +"(let-values(((mpi_37) mpi73_0))" "(let-values(((orig-s_14) orig-s74_0))" "(let-values()" "(let-values(((in-stx_1) in-stx76_0))" @@ -24536,7 +24832,7 @@ static const char *startup_source = "(let-values(((who_14) who58_0))" "(let-values()" "(let-values()" -"(let-values(((module-name_0)(1/module-path-index-resolve mpi_36 #t)))" +"(let-values(((module-name_0)(1/module-path-index-resolve mpi_37 #t)))" "(let-values(((bind-in-stx_0)" "(if(adjust-rename? adjust_1)" "(adjust-rename-to-id adjust_1)" @@ -24556,10 +24852,10 @@ static const char *startup_source = "(if requires+provides_3" "(add-required-module!" " requires+provides_3" -" mpi_36" +" mpi_37" " phase-shift_11" "(module-cross-phase-persistent? m_13))" -" mpi_36)))" +" mpi_37)))" "(let-values((()" "(begin" "(if visit?_2" @@ -24607,10 +24903,10 @@ static const char *startup_source = "(let-values((()" "(begin" "(if(not" -"(let-values(((or-part_202)" +"(let-values(((or-part_204)" " visit?_2))" -"(if or-part_202" -" or-part_202" +"(if or-part_204" +" or-part_204" " run?_2)))" "(let-values()" "(let-values(((m-ns260_0) m-ns_10)" @@ -24629,15 +24925,15 @@ static const char *startup_source = "(void))" "(values))))" "(let-values(((can-bulk-bind?_0)" -"(if(let-values(((or-part_203)" +"(if(let-values(((or-part_205)" "(not adjust_1)))" -"(if or-part_203" -" or-part_203" -"(let-values(((or-part_204)" +"(if or-part_205" +" or-part_205" +"(let-values(((or-part_206)" "(adjust-prefix?" " adjust_1)))" -"(if or-part_204" -" or-part_204" +"(if or-part_206" +" or-part_206" "(adjust-all-except?" " adjust_1)))))" "(not skip-variable-phase-level_1)" @@ -24721,7 +25017,7 @@ static const char *startup_source = "(module-self" " m_13))" "((mpi267_0)" -" mpi_36)" +" mpi_37)" "((phase-shift268_0)" " phase-shift_11)" "((provides269_0)" @@ -24768,22 +25064,22 @@ static const char *startup_source = " #f)" " #f))" "((temp251_0)" -"(if(let-values(((or-part_205)" +"(if(let-values(((or-part_207)" "(not" " can-bulk-bind?_0)))" -"(if or-part_205" -" or-part_205" +"(if or-part_207" +" or-part_207" " copy-variable-phase-level_1))" -"(lambda(binding_17" +"(lambda(binding_16" " as-transformer?_3)" "(begin" " 'temp251" "(let-values(((sym_42)" "(module-binding-nominal-sym" -" binding_17)))" +" binding_16)))" "(let-values(((provide-phase_0)" "(module-binding-nominal-phase" -" binding_17)))" +" binding_16)))" "(let-values(((adjusted-sym_0)" "(if(if skip-variable-phase-level_1" "(if(not" @@ -24863,7 +25159,7 @@ static const char *startup_source = " requires+provides_3" " #f)" "(let-values()" -"(let-values(((s_267)" +"(let-values(((s_271)" "(datum->syntax$1" " bind-in-stx_0" " adjusted-sym_0)))" @@ -24883,11 +25179,11 @@ static const char *startup_source = "((requires+provides281_0)" " requires+provides_3)" "((s282_0)" -" s_267)" +" s_271)" "((bind-phase283_0)" " bind-phase_0)" "((binding284_0)" -" binding_17)" +" binding_16)" "((orig-s285_0)" " orig-s_14)" "((temp286_0)" @@ -24917,11 +25213,11 @@ static const char *startup_source = "(let-values(((requires+provides288_0)" " requires+provides_3)" "((s289_0)" -" s_267)" +" s_271)" "((bind-phase290_0)" " bind-phase_0)" "((binding291_0)" -" binding_17)" +" binding_16)" "((can-be-shadowed?292_0)" " can-be-shadowed?_3)" "((as-transformer?293_0)" @@ -24952,7 +25248,7 @@ static const char *startup_source = "(copy-namespace-value" " m-ns_10" " adjusted-sym_0" -" binding_17" +" binding_16" " copy-variable-phase-level_1" " phase-shift_11" " copy-variable-as-constant?_1))" @@ -24985,7 +25281,7 @@ static const char *startup_source = "(if update-nominals-box_0" "(let-values()" "(begin" -"(let-values(((lst_147)" +"(let-values(((lst_148)" "(unbox" " update-nominals-box_0)))" "(begin" @@ -24994,19 +25290,19 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_147)))" -"((letrec-values(((for-loop_171)" -"(lambda(lst_148)" +" lst_148)))" +"((letrec-values(((for-loop_173)" +"(lambda(lst_149)" "(begin" " 'for-loop" "(if(pair?" -" lst_148)" +" lst_149)" "(let-values(((update!_1)" "(unsafe-car" -" lst_148))" -"((rest_73)" +" lst_149))" +"((rest_75)" "(unsafe-cdr" -" lst_148)))" +" lst_149)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -25018,12 +25314,12 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_171" -" rest_73)" +"(for-loop_173" +" rest_75)" "(values))))" "(values))))))" -" for-loop_171)" -" lst_147)))" +" for-loop_173)" +" lst_148)))" "(void)))" "(void))" "(values))))" @@ -25053,7 +25349,7 @@ static const char *startup_source = " #f)" "(let-values()" "(begin" -"(let-values(((ht_105)" +"(let-values(((ht_108)" " need-syms_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -25061,15 +25357,15 @@ static const char *startup_source = "(void)" "(let-values()" "(check-in-immutable-hash-keys" -" ht_105)))" -"((letrec-values(((for-loop_172)" +" ht_108)))" +"((letrec-values(((for-loop_174)" "(lambda(i_136)" "(begin" " 'for-loop" "(if i_136" "(let-values(((sym_43)" "(unsafe-immutable-hash-iterate-key" -" ht_105" +" ht_108" " i_136)))" "(let-values((()" "(let-values()" @@ -25092,15 +25388,15 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_172" +"(for-loop_174" "(unsafe-immutable-hash-iterate-next" -" ht_105" +" ht_108" " i_136))" "(values))))" "(values))))))" -" for-loop_172)" +" for-loop_174)" "(unsafe-immutable-hash-iterate-first" -" ht_105))))" +" ht_108))))" "(void)))" "(void))))))))))))))))))))))))))))))))))))))))))" "(define-values" @@ -25127,7 +25423,7 @@ static const char *startup_source = "(let-values(((in-stx_2) in-stx102_0))" "(let-values(((phase-shift_12) phase-shift103_0))" "(let-values(((ns_50) ns104_0))" -"(let-values(((mpi_37) mpi105_0))" +"(let-values(((mpi_38) mpi105_0))" "(let-values(((module-name_1) module-name106_0))" "(let-values(((orig-s_15) in81_0))" "(let-values(((defines-mpi_0) defines-mpi82_0))" @@ -25142,28 +25438,28 @@ static const char *startup_source = "(let-values()" "(let-values(((self_13)(module-self m_14)))" "(begin" -"(let-values(((ht_106)(module-provides m_14)))" +"(let-values(((ht_109)(module-provides m_14)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_106)))" -"((letrec-values(((for-loop_173)" +"(let-values()(check-in-hash ht_109)))" +"((letrec-values(((for-loop_175)" "(lambda(i_137)" "(begin" " 'for-loop" "(if i_137" "(let-values(((provide-phase-level_5 provides_7)" "(hash-iterate-key+value" -" ht_106" +" ht_109" " i_137)))" "(let-values((()" "(let-values()" -"(if(let-values(((or-part_206)" +"(if(let-values(((or-part_208)" "(eq?" " just-meta_2" " 'all)))" -"(if or-part_206" -" or-part_206" +"(if or-part_208" +" or-part_208" "(eqv?" " just-meta_2" " provide-phase-level_5)))" @@ -25188,11 +25484,11 @@ static const char *startup_source = "(if filter_0" "(let-values()" "(begin" -"(let-values(((lst_149)" -"(let-values(((or-part_207)" +"(let-values(((lst_150)" +"(let-values(((or-part_209)" " only-syms_0))" -"(if or-part_207" -" or-part_207" +"(if or-part_209" +" or-part_209" "(hash-keys" " provides_7)))))" "(begin" @@ -25201,19 +25497,19 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_149)))" -"((letrec-values(((for-loop_174)" -"(lambda(lst_150)" +" lst_150)))" +"((letrec-values(((for-loop_176)" +"(lambda(lst_151)" "(begin" " 'for-loop" "(if(pair?" -" lst_150)" +" lst_151)" "(let-values(((sym_44)" "(unsafe-car" -" lst_150))" -"((rest_74)" +" lst_151))" +"((rest_76)" "(unsafe-cdr" -" lst_150)))" +" lst_151)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -25227,7 +25523,7 @@ static const char *startup_source = " #f)))" "(if binding/p_4" "(let-values()" -"(let-values(((b_67)" +"(let-values(((b_65)" "(let-values(((binding/p294_0)" " binding/p_4)" "((sym295_0)" @@ -25235,7 +25531,7 @@ static const char *startup_source = "((self296_0)" " self_13)" "((mpi297_0)" -" mpi_37)" +" mpi_38)" "((provide-phase-level298_0)" " provide-phase-level_5)" "((phase-shift299_0)" @@ -25249,7 +25545,7 @@ static const char *startup_source = " sym295_0))))" "(let-values(((sym_45)" "(filter_0" -" b_67" +" b_65" "(provided-as-transformer?" " binding/p_4))))" "(if(if sym_45" @@ -25262,7 +25558,7 @@ static const char *startup_source = " in-stx_2" " sym_45))" "((b301_0)" -" b_67)" +" b_65)" "((phase302_0)" " phase_67))" "(add-binding!17.1" @@ -25279,12 +25575,12 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_174" -" rest_74)" +"(for-loop_176" +" rest_76)" "(values))))" "(values))))))" -" for-loop_174)" -" lst_149)))" +" for-loop_176)" +" lst_150)))" "(void)))" "(void))" "(if can-bulk?_0" @@ -25296,7 +25592,7 @@ static const char *startup_source = " in-stx_2)" "((temp304_0)" "(bulk-binding14.1" -"(let-values(((or-part_208)" +"(let-values(((or-part_210)" "(if(not" " bulk-prefix_2)" "(if(zero?" @@ -25305,8 +25601,8 @@ static const char *startup_source = " provides_7" " #f)" " #f)))" -"(if or-part_208" -" or-part_208" +"(if or-part_210" +" or-part_210" "(if(not" "(registered-bulk-provide?" " bulk-binding-registry_10" @@ -25319,7 +25615,7 @@ static const char *startup_source = " bulk-prefix_2" " bulk-excepts_2" " self_13" -" mpi_37" +" mpi_38" " provide-phase-level_5" " phase-shift_12" " bulk-binding-registry_10))" @@ -25345,12 +25641,12 @@ static const char *startup_source = "(values)))" "(values)))))" "(if(not #f)" -"(for-loop_173" -"(hash-iterate-next ht_106 i_137))" +"(for-loop_175" +"(hash-iterate-next ht_109 i_137))" "(values))))" "(values))))))" -" for-loop_173)" -"(hash-iterate-first ht_106))))" +" for-loop_175)" +"(hash-iterate-first ht_109))))" "(void)))))))))))))))))))))))" "(define-values" "(require-spec-shift-for-syntax)" @@ -25358,7 +25654,7 @@ static const char *startup_source = "(begin" "(let-values(((rebuild-req_0)" "(lambda(req_2 new-req_0)(begin 'rebuild-req(datum->syntax$1 req_2 new-req_0 req_2 req_2)))))" -"(letrec-values(((loop_85)" +"(letrec-values(((loop_86)" "(lambda(shifted?_0)" "(begin" " 'loop" @@ -25373,46 +25669,46 @@ static const char *startup_source = "(if(equal? tmp_25 'for-meta)" "(let-values()" "(let-values(((ok?_12 for-meta308_0 phase-level309_0 spec310_0)" -"(let-values(((s_268) req_3))" -"(let-values(((orig-s_16) s_268))" +"(let-values(((s_272) req_3))" +"(let-values(((orig-s_16) s_272))" "(let-values(((for-meta308_1 phase-level309_1 spec310_1)" -"(let-values(((s_269)" -"(if(syntax?$1 s_268)" -"(syntax-e$1 s_268)" -" s_268)))" -"(if(pair? s_269)" -"(let-values(((for-meta311_0)" -"(let-values(((s_270)" -"(car s_269)))" -" s_270))" -"((phase-level312_0 spec313_0)" -"(let-values(((s_271)" -"(cdr s_269)))" -"(let-values(((s_272)" -"(if(syntax?$1" -" s_271)" -"(syntax-e$1" -" s_271)" -" s_271)))" -"(if(pair? s_272)" -"(let-values(((phase-level314_0)" "(let-values(((s_273)" -"(car" +"(if(syntax?$1 s_272)" +"(syntax-e$1 s_272)" " s_272)))" -" s_273))" -"((spec315_0)" +"(if(pair? s_273)" +"(let-values(((for-meta311_0)" "(let-values(((s_274)" -"(cdr" -" s_272)))" +"(car s_273)))" +" s_274))" +"((phase-level312_0 spec313_0)" "(let-values(((s_275)" +"(cdr s_273)))" +"(let-values(((s_276)" "(if(syntax?$1" -" s_274)" +" s_275)" "(syntax-e$1" -" s_274)" -" s_274)))" +" s_275)" +" s_275)))" +"(if(pair? s_276)" +"(let-values(((phase-level314_0)" +"(let-values(((s_277)" +"(car" +" s_276)))" +" s_277))" +"((spec315_0)" +"(let-values(((s_278)" +"(cdr" +" s_276)))" +"(let-values(((s_279)" +"(if(syntax?$1" +" s_278)" +"(syntax-e$1" +" s_278)" +" s_278)))" "(let-values(((flat-s_8)" "(to-syntax-list.1" -" s_275)))" +" s_279)))" "(if(not" " flat-s_8)" "(let-values()" @@ -25438,41 +25734,41 @@ static const char *startup_source = " \"bad syntax\"" " orig-s_16)))))" "(values #t for-meta308_1 phase-level309_1 spec310_1))))))" -"(let-values(((p_33)(syntax-e$1 phase-level309_0)))" +"(let-values(((p_34)(syntax-e$1 phase-level309_0)))" "(begin" -"(if(phase? p_33)" +"(if(phase? p_34)" "(void)" " (let-values () (raise-syntax-error$1 #f \"bad phase\" req_3)))" "(rebuild-req_0" " req_3" -"(list* for-meta308_0(phase+ p_33 1)(map2(loop_85 #t) spec310_0)))))))" +"(list* for-meta308_0(phase+ p_34 1)(map2(loop_86 #t) spec310_0)))))))" "(if(equal? tmp_25 'for-syntax)" "(let-values()" "(let-values(((ok?_13 for-syntax316_0 spec317_0)" -"(let-values(((s_276) req_3))" -"(let-values(((orig-s_17) s_276))" +"(let-values(((s_280) req_3))" +"(let-values(((orig-s_17) s_280))" "(let-values(((for-syntax316_1 spec317_1)" -"(let-values(((s_277)" -"(if(syntax?$1 s_276)" -"(syntax-e$1 s_276)" -" s_276)))" -"(if(pair? s_277)" +"(let-values(((s_281)" +"(if(syntax?$1 s_280)" +"(syntax-e$1 s_280)" +" s_280)))" +"(if(pair? s_281)" "(let-values(((for-syntax318_0)" -"(let-values(((s_278)" -"(car s_277)))" -" s_278))" +"(let-values(((s_282)" +"(car s_281)))" +" s_282))" "((spec319_0)" -"(let-values(((s_279)" -"(cdr s_277)))" -"(let-values(((s_280)" +"(let-values(((s_283)" +"(cdr s_281)))" +"(let-values(((s_284)" "(if(syntax?$1" -" s_279)" +" s_283)" "(syntax-e$1" -" s_279)" -" s_279)))" +" s_283)" +" s_283)))" "(let-values(((flat-s_9)" "(to-syntax-list.1" -" s_280)))" +" s_284)))" "(if(not flat-s_9)" "(let-values()" "(raise-syntax-error$1" @@ -25487,34 +25783,34 @@ static const char *startup_source = " \"bad syntax\"" " orig-s_17)))))" "(values #t for-syntax316_1 spec317_1))))))" -"(rebuild-req_0 req_3(list* 'for-meta 2(map2(loop_85 #t) spec317_0)))))" +"(rebuild-req_0 req_3(list* 'for-meta 2(map2(loop_86 #t) spec317_0)))))" "(if(equal? tmp_25 'for-template)" "(let-values()" "(let-values(((ok?_14 for-template320_0 spec321_0)" -"(let-values(((s_281) req_3))" -"(let-values(((orig-s_18) s_281))" +"(let-values(((s_285) req_3))" +"(let-values(((orig-s_18) s_285))" "(let-values(((for-template320_1 spec321_1)" -"(let-values(((s_282)" -"(if(syntax?$1 s_281)" -"(syntax-e$1 s_281)" -" s_281)))" -"(if(pair? s_282)" +"(let-values(((s_286)" +"(if(syntax?$1 s_285)" +"(syntax-e$1 s_285)" +" s_285)))" +"(if(pair? s_286)" "(let-values(((for-template322_0)" -"(let-values(((s_283)" -"(car s_282)))" -" s_283))" +"(let-values(((s_287)" +"(car s_286)))" +" s_287))" "((spec323_0)" -"(let-values(((s_284)" -"(cdr s_282)))" -"(let-values(((s_285)" +"(let-values(((s_288)" +"(cdr s_286)))" +"(let-values(((s_289)" "(if(syntax?$1" -" s_284)" +" s_288)" "(syntax-e$1" -" s_284)" -" s_284)))" +" s_288)" +" s_288)))" "(let-values(((flat-s_10)" "(to-syntax-list.1" -" s_285)))" +" s_289)))" "(if(not flat-s_10)" "(let-values()" "(raise-syntax-error$1" @@ -25529,36 +25825,36 @@ static const char *startup_source = " \"bad syntax\"" " orig-s_18)))))" "(values #t for-template320_1 spec321_1))))))" -"(rebuild-req_0 req_3(list* 'for-meta 0(map2(loop_85 #t) spec321_0)))))" +"(rebuild-req_0 req_3(list* 'for-meta 0(map2(loop_86 #t) spec321_0)))))" "(if(equal? tmp_25 'for-label)" "(let-values()" "(let-values(((ok?_15 for-label324_0 spec325_0)" -"(let-values(((s_286) req_3))" -"(let-values(((orig-s_19) s_286))" +"(let-values(((s_290) req_3))" +"(let-values(((orig-s_19) s_290))" "(let-values(((for-label324_1 spec325_1)" -"(let-values(((s_287)" -"(if(syntax?$1 s_286)" -"(syntax-e$1 s_286)" -" s_286)))" -"(if(pair? s_287)" +"(let-values(((s_291)" +"(if(syntax?$1 s_290)" +"(syntax-e$1 s_290)" +" s_290)))" +"(if(pair? s_291)" "(let-values(((for-label326_0)" -"(let-values(((s_288)" +"(let-values(((s_292)" "(car" -" s_287)))" -" s_288))" +" s_291)))" +" s_292))" "((spec327_0)" -"(let-values(((s_289)" +"(let-values(((s_293)" "(cdr" -" s_287)))" -"(let-values(((s_290)" +" s_291)))" +"(let-values(((s_294)" "(if(syntax?$1" -" s_289)" +" s_293)" "(syntax-e$1" -" s_289)" -" s_289)))" +" s_293)" +" s_293)))" "(let-values(((flat-s_11)" "(to-syntax-list.1" -" s_290)))" +" s_294)))" "(if(not flat-s_11)" "(let-values()" "(raise-syntax-error$1" @@ -25575,55 +25871,55 @@ static const char *startup_source = "(values #t for-label324_1 spec325_1))))))" "(rebuild-req_0" " req_3" -"(list* for-label324_0(map2(loop_85 #t) spec325_0)))))" +"(list* for-label324_0(map2(loop_86 #t) spec325_0)))))" "(if(equal? tmp_25 'just-meta)" "(let-values()" "(let-values(((ok?_16 just-meta328_0 phase-level329_0 spec330_0)" -"(let-values(((s_291) req_3))" -"(let-values(((orig-s_20) s_291))" +"(let-values(((s_295) req_3))" +"(let-values(((orig-s_20) s_295))" "(let-values(((just-meta328_1" " phase-level329_1" " spec330_1)" -"(let-values(((s_292)" -"(if(syntax?$1 s_291)" -"(syntax-e$1 s_291)" -" s_291)))" -"(if(pair? s_292)" +"(let-values(((s_296)" +"(if(syntax?$1 s_295)" +"(syntax-e$1 s_295)" +" s_295)))" +"(if(pair? s_296)" "(let-values(((just-meta331_0)" -"(let-values(((s_293)" +"(let-values(((s_297)" "(car" -" s_292)))" -" s_293))" +" s_296)))" +" s_297))" "((phase-level332_0" " spec333_0)" -"(let-values(((s_294)" -"(cdr" -" s_292)))" -"(let-values(((s_295)" -"(if(syntax?$1" -" s_294)" -"(syntax-e$1" -" s_294)" -" s_294)))" -"(if(pair? s_295)" -"(let-values(((phase-level334_0)" -"(let-values(((s_296)" -"(car" -" s_295)))" -" s_296))" -"((spec335_0)" -"(let-values(((s_297)" -"(cdr" -" s_295)))" "(let-values(((s_298)" +"(cdr" +" s_296)))" +"(let-values(((s_299)" "(if(syntax?$1" -" s_297)" +" s_298)" "(syntax-e$1" -" s_297)" -" s_297)))" +" s_298)" +" s_298)))" +"(if(pair? s_299)" +"(let-values(((phase-level334_0)" +"(let-values(((s_300)" +"(car" +" s_299)))" +" s_300))" +"((spec335_0)" +"(let-values(((s_301)" +"(cdr" +" s_299)))" +"(let-values(((s_302)" +"(if(syntax?$1" +" s_301)" +"(syntax-e$1" +" s_301)" +" s_301)))" "(let-values(((flat-s_12)" "(to-syntax-list.1" -" s_298)))" +" s_302)))" "(if(not" " flat-s_12)" "(let-values()" @@ -25658,27 +25954,27 @@ static const char *startup_source = "(list*" " just-meta328_0" " phase-level329_0" -"(map2(loop_85 #f) spec330_0)))))" +"(map2(loop_86 #f) spec330_0)))))" "(let-values()" "(if shifted?_0" " req_3" "(datum->syntax$1 #f(list 'for-syntax req_3))))))))))))))))" -"((loop_85 #f) req_1))))))" +"((loop_86 #f) req_1))))))" "(define-values" "(copy-namespace-value)" -"(lambda(m-ns_11 adjusted-sym_1 binding_18 phase-level_16 phase-shift_13 as-constant?_1)" +"(lambda(m-ns_11 adjusted-sym_1 binding_17 phase-level_16 phase-shift_13 as-constant?_1)" "(begin" "(let-values(((i-ns_0)" "(let-values(((m-ns336_0) m-ns_11)" -"((temp337_0)(1/module-path-index-resolve(module-binding-module binding_18)))" -"((temp338_0)(phase-(module-binding-phase binding_18) phase-level_16))" +"((temp337_0)(1/module-path-index-resolve(module-binding-module binding_17)))" +"((temp338_0)(phase-(module-binding-phase binding_17) phase-level_16))" "((temp339_0) #t))" "(namespace->module-namespace82.1 #f #f temp339_0 #t #f #f m-ns336_0 temp337_0 temp338_0))))" -"(let-values(((val_45)" +"(let-values(((val_46)" "(namespace-get-variable" " i-ns_0" -"(module-binding-phase binding_18)" -"(module-binding-sym binding_18)" +"(module-binding-phase binding_17)" +"(module-binding-sym binding_17)" "(lambda()" "(error" " 'namespace-require/copy" @@ -25689,14 +25985,14 @@ static const char *startup_source = " \" module: ~a\\n\"" " \" variable name: ~s\\n\"" " \" phase level: ~s\")" -"(module-binding-module binding_18)" -"(module-binding-sym binding_18)" -"(module-binding-phase binding_18)))))))" +"(module-binding-module binding_17)" +"(module-binding-sym binding_17)" +"(module-binding-phase binding_17)))))))" "(namespace-set-variable!" " m-ns_11" "(phase+ phase-shift_13 phase-level_16)" " adjusted-sym_1" -" val_45" +" val_46" " as-constant?_1))))))" "(define-values" "(top-level-instance)" @@ -25705,11 +26001,11 @@ static const char *startup_source = " #f" " 'constant" " top-level-bind!-id" -"(lambda(id_21 mpi_38 orig-phase_0 phase-shift_14 ns_51 sym_46 trans?_0 trans-val_0)" -"(let-values(((phase_44)(phase+ orig-phase_0 phase-shift_14)))" -"(let-values(((b_68)" -"(let-values(((mpi4_0) mpi_38)" -"((phase5_0) phase_44)" +"(lambda(id_21 mpi_39 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_66)" +"(let-values(((mpi4_0) mpi_39)" +"((phase5_0) phase_45)" "((sym6_1) sym_46)" "((temp7_0)(root-expand-context-frame-id(namespace-get-root-expand-ctx ns_51))))" "(make-module-binding22.1" @@ -25735,11 +26031,11 @@ static const char *startup_source = " phase5_0" " sym6_1))))" "(begin" -"(let-values(((id1_3) id_21)((b2_4) b_68)((phase3_1) phase_44))" +"(let-values(((id1_3) id_21)((b2_4) b_66)((phase3_1) phase_45))" "(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_21 phase_44))(void)))" -"(let-values()(namespace-unset-transformer! ns_51 phase_44 sym_46)))))))" +"(let-values()(if trans-val_0(let-values()(maybe-install-free=id! trans-val_0 id_21 phase_45))(void)))" +"(let-values()(namespace-unset-transformer! ns_51 phase_45 sym_46)))))))" " top-level-require!-id" "(lambda(stx_11 ns_52)" "(let-values(((reqs_2)(cdr(syntax->list$1 stx_11))))" @@ -25843,7 +26139,7 @@ static const char *startup_source = "(make-struct-field-accessor -ref_0 1 'other))))" "(define-values" "(swap-top-level-scopes)" -"(lambda(s_299 original-scopes-s_0 new-ns_0)" +"(lambda(s_303 original-scopes-s_0 new-ns_0)" "(begin" "(let-values(((old-scs-post_0 old-scs-other_0)" "(if(namespace-scopes? original-scopes-s_0)" @@ -25851,7 +26147,7 @@ static const char *startup_source = "(decode-namespace-scopes original-scopes-s_0))))" "(let-values(((new-scs-post_0 new-scs-other_0)(extract-namespace-scopes/values new-ns_0)))" "(syntax-swap-scopes" -"(syntax-swap-scopes s_299 old-scs-post_0 new-scs-post_0)" +"(syntax-swap-scopes s_303 old-scs-post_0 new-scs-post_0)" " old-scs-other_0" " new-scs-other_0))))))" "(define-values" @@ -25881,8 +26177,8 @@ static const char *startup_source = "(decode-namespace-scopes)" "(lambda(stx_12)" "(begin" -"(let-values(((vec_49)(syntax-e$1 stx_12)))" -"(values(syntax-scope-set(vector-ref vec_49 0) 0)(syntax-scope-set(vector-ref vec_49 1) 0))))))" +"(let-values(((vec_51)(syntax-e$1 stx_12)))" +"(values(syntax-scope-set(vector-ref vec_51 0) 0)(syntax-scope-set(vector-ref vec_51 1) 0))))))" "(define-values" "(namespace-scopes=?)" "(lambda(nss1_0 nss2_0)" @@ -25986,21 +26282,21 @@ static const char *startup_source = " pos_83))))))" "(define-values" "(add-syntax-literals!)" -"(lambda(sl_1 vec_50)" +"(lambda(sl_1 vec_52)" "(begin" "(let-values(((pos_84)(syntax-literals-count sl_1)))" "(begin" -"(let-values(((vec_51 len_27)" -"(let-values(((vec_52) vec_50))" -"(begin(check-vector vec_52)(values vec_52(unsafe-vector-length vec_52))))))" +"(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))))))" "(begin" " #f" -"((letrec-values(((for-loop_175)" +"((letrec-values(((for-loop_177)" "(lambda(pos_85)" "(begin" " 'for-loop" "(if(unsafe-fx< pos_85 len_27)" -"(let-values(((e_12)(unsafe-vector-ref vec_51 pos_85)))" +"(let-values(((e_12)(unsafe-vector-ref vec_53 pos_85)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -26010,12 +26306,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_177(unsafe-fx+ 1 pos_85))(values))))" "(values))))))" -" for-loop_175)" +" for-loop_177)" " 0)))" "(void)" -"(cons pos_84(vector-length vec_50)))))))" +"(cons pos_84(vector-length vec_52)))))))" "(define-values(syntax-literals-empty?)(lambda(sl_2)(begin(null?(syntax-literals-stxes sl_2)))))" "(define-values" "(generate-lazy-syntax-literals!9.1)" @@ -26074,7 +26370,7 @@ static const char *startup_source = "(list* unsafe-vector-ref-id syntax-literals-id '(pos))))))))))))))))))))" "(define-values" "(generate-lazy-syntax-literals-data!)" -"(lambda(sl_4 mpis_4)" +"(lambda(sl_4 mpis_13)" "(begin" "(if(syntax-literals-empty? sl_4)" "(let-values()(list(list* 'define-values(list deserialize-syntax-id) '(#f))))" @@ -26097,13 +26393,13 @@ static const char *startup_source = "(list(list*(list inspector-id) '(#f)))" "(let-values(((temp25_1)" "(vector->immutable-vector(list->vector(reverse$1(syntax-literals-stxes sl_4)))))" -"((mpis26_0) mpis_4))" +"((mpis26_0) mpis_13))" "(generate-deserialize6.1 #f #f temp25_1 mpis26_0))))" "(list* 'set! deserialize-syntax-id '(#f)))))))))))" "(define-values(generate-lazy-syntax-literal-lookup)(lambda(pos_86)(begin(list get-syntax-literal!-id pos_86))))" "(define-values" "(generate-eager-syntax-literals!)" -"(lambda(sl_5 mpis_13 base-phase_0 self_15 ns_2)" +"(lambda(sl_5 mpis_14 base-phase_0 self_15 ns_2)" "(begin" "(if(syntax-literals-empty? sl_5)" "(let-values() #f)" @@ -26114,7 +26410,7 @@ static const char *startup_source = "(list" " '(ns+stxss)" "(let-values(((temp27_2)(cons(encode-namespace-scopes ns_2)(reverse$1(syntax-literals-stxes sl_5))))" -"((mpis28_0) mpis_13))" +"((mpis28_0) mpis_14))" "(generate-deserialize6.1 #f #f temp27_2 mpis28_0))))" "(list" " 'let-values" @@ -26131,7 +26427,7 @@ static const char *startup_source = "(list" " 'syntax-module-path-index-shift" "(list 'syntax-shift-phase-level 'stx(list '- base-phase_0 dest-phase-id))" -"(add-module-path-index! mpis_13 self_15)" +"(add-module-path-index! mpis_14 self_15)" " self-id)" " 'ns-scope-s" " ns-id))" @@ -26147,46 +26443,46 @@ static const char *startup_source = "(lambda(sym_47 header_0)" "(begin" "(if(symbol-conflicts? sym_47 header_0)" -"((letrec-values(((loop_86)" +"((letrec-values(((loop_87)" "(lambda(pos_88)" "(begin" " 'loop" " (let-values (((new-sym_0) (string->symbol (format \"~a/~a\" pos_88 sym_47))))" -"(if(symbol-conflicts? new-sym_0 header_0)(loop_86(add1 pos_88)) new-sym_0))))))" -" loop_86)" +"(if(symbol-conflicts? new-sym_0 header_0)(loop_87(add1 pos_88)) new-sym_0))))))" +" loop_87)" " 1)" " sym_47))))" "(define-values" "(symbol-conflicts?)" "(lambda(sym_48 header_1)" "(begin" -"(let-values(((or-part_209)(built-in-symbol? sym_48)))" -"(if or-part_209 or-part_209(hash-ref(header-define-and-import-syms header_1) sym_48 #f))))))" +"(let-values(((or-part_176)(built-in-symbol? sym_48)))" +"(if or-part_176 or-part_176(hash-ref(header-define-and-import-syms header_1) sym_48 #f))))))" "(define-values" "(register-required-variable-use!19.1)" "(lambda(defined?12_0 defined?13_0 header14_0 mpi15_0 phase16_1 sym17_0 extra-inspector18_0)" "(begin" " 'register-required-variable-use!19" "(let-values(((header_2) header14_0))" -"(let-values(((mpi_39) mpi15_0))" -"(let-values(((phase_7) phase16_1))" +"(let-values(((mpi_40) mpi15_0))" +"(let-values(((phase_68) 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_54)(variable-use3.1(module-use1.1 mpi_39 phase_7) sym_49)))" +"(let-values(((key_55)(variable-use3.1(module-use1.1 mpi_40 phase_68) 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_54 #f)))" +"(let-values(((prev-var-sym_0)(hash-ref variable-uses_0 key_55 #f)))" "(let-values(((var-sym_0)" "(let-values(((or-part_58) prev-var-sym_0))" "(if or-part_58" " or-part_58" -"(let-values(((sym_50)(select-fresh(variable-use-sym key_54) header_2)))" +"(let-values(((sym_50)(select-fresh(variable-use-sym key_55) header_2)))" "(begin" -"(hash-set! variable-uses_0 key_54 sym_50)" +"(hash-set! variable-uses_0 key_55 sym_50)" "(set-header-require-vars-in-order!" " header_2" -"(cons key_54(header-require-vars-in-order header_2)))" +"(cons key_55(header-require-vars-in-order header_2)))" "(hash-set!" "(header-define-and-import-syms header_2)" " sym_50" @@ -26199,7 +26495,7 @@ static const char *startup_source = "(hash-update!" " extra-inspectors_0" " var-sym_0" -"(lambda(s_300)(set-add s_300 extra-inspector_4))" +"(lambda(s_304)(set-add s_304 extra-inspector_4))" " '#hasheq())))" "(void))" " var-sym_0)))))))))))))))" @@ -26212,35 +26508,36 @@ 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_68 cctx_0 cross-linklet-inlining?_0)" +"(lambda(header_5 phase_69 cctx_0 cross-linklet-inlining?_0)" "(begin" -"(let-values(((mod-use-ht_0)" -"(let-values(((lst_151)(header-require-vars-in-order header_5)))" +"(let-values(((mod-use-ht_0 link-mod-uses_0)" +"(let-values(((lst_152)(header-require-vars-in-order header_5)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_151)))" -"((letrec-values(((for-loop_176)" -"(lambda(ht_107 lst_152)" +"(let-values()(check-list lst_152)))" +"((letrec-values(((for-loop_178)" +"(lambda(ht_110 link-mod-uses_1 lst_153)" "(begin" " 'for-loop" -"(if(pair? lst_152)" -"(let-values(((vu_0)(unsafe-car lst_152))" -"((rest_75)(unsafe-cdr lst_152)))" -"(let-values(((ht_108)" -"(let-values(((ht_109) ht_107))" -"(let-values(((ht_110)" +"(if(pair? lst_153)" +"(let-values(((vu_0)(unsafe-car lst_153))" +"((rest_77)(unsafe-cdr lst_153)))" +"(let-values(((ht_111 link-mod-uses_2)" +"(let-values(((ht_112) ht_110)" +"((link-mod-uses_3) link-mod-uses_1))" +"(let-values(((ht_113 link-mod-uses_4)" "(let-values()" "(let-values(((mu_2)" "(variable-use-module-use" " vu_0)))" -"(if(let-values(((or-part_210)" +"(if(let-values(((or-part_161)" "(hash-ref" -" ht_109" +" ht_112" " mu_2" " #f)))" -"(if or-part_210" -" or-part_210" +"(if or-part_161" +" or-part_161" "(let-values(((or-part_211)" "(eq?" "(module-use-module" @@ -26252,68 +26549,68 @@ static const char *startup_source = "(top-level-module-path-index?" "(module-use-module" " mu_2))))))" -" ht_109" -"(hash-set ht_109 mu_2 #t))))))" -"(values ht_110)))))" -"(if(not #f)(for-loop_176 ht_108 rest_75) ht_108)))" -" ht_107)))))" -" for-loop_176)" +"(values ht_112 link-mod-uses_3)" +"(values" +"(hash-set ht_112 mu_2 #t)" +"(cons mu_2 link-mod-uses_3)))))))" +"(values ht_113 link-mod-uses_4)))))" +"(if(not #f)" +"(for-loop_178 ht_111 link-mod-uses_2 rest_77)" +"(values ht_111 link-mod-uses_2))))" +"(values ht_110 link-mod-uses_1))))))" +" for-loop_178)" " '#hash()" -" lst_151)))))" -"(let-values(((link-mod-uses_0)(hash-keys mod-use-ht_0)))" +" null" +" lst_152)))))" "(values" " link-mod-uses_0" "(reverse$1" -"(let-values(((lst_106) link-mod-uses_0))" +"(let-values(((lst_154) link-mod-uses_0))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))" -"(void)" -"(let-values()(check-list lst_106)))" -"((letrec-values(((for-loop_117)" -"(lambda(fold-var_133 lst_73)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_154)))" +"((letrec-values(((for-loop_179)" +"(lambda(fold-var_138 lst_155)" "(begin" " 'for-loop" -"(if(pair? lst_73)" -"(let-values(((mu_3)(unsafe-car lst_73))((rest_76)(unsafe-cdr lst_73)))" -"(let-values(((fold-var_134)" -"(let-values(((fold-var_135) fold-var_133))" -"(let-values(((fold-var_136)" +"(if(pair? lst_155)" +"(let-values(((mu_3)(unsafe-car lst_155))((rest_78)(unsafe-cdr lst_155)))" +"(let-values(((fold-var_139)" +"(let-values(((fold-var_140) fold-var_138))" +"(let-values(((fold-var_141)" "(let-values()" "(cons" "(let-values()" "(reverse$1" -"(let-values(((lst_153)" +"(let-values(((lst_52)" "(header-require-vars-in-order" " header_5)))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()" -"(check-list lst_153)))" -"((letrec-values(((for-loop_177)" -"(lambda(fold-var_137" -" lst_154)" +"(let-values()(check-list lst_52)))" +"((letrec-values(((for-loop_74)" +"(lambda(fold-var_39" +" lst_53)" "(begin" " 'for-loop" -"(if(pair?" -" lst_154)" +"(if(pair? lst_53)" "(let-values(((vu_1)" "(unsafe-car" -" lst_154))" -"((rest_77)" +" lst_53))" +"((rest_23)" "(unsafe-cdr" -" lst_154)))" -"(let-values(((fold-var_39)" -"(let-values(((fold-var_138)" -" fold-var_137))" +" lst_53)))" +"(let-values(((fold-var_40)" +"(let-values(((fold-var_41)" +" fold-var_39))" "(if(equal?" " mu_3" "(variable-use-module-use" " vu_1))" -"(let-values(((fold-var_139)" -" fold-var_138))" -"(let-values(((fold-var_140)" +"(let-values(((fold-var_42)" +" fold-var_41))" +"(let-values(((fold-var_142)" "(let-values()" "(cons" "(let-values()" @@ -26332,47 +26629,44 @@ static const char *startup_source = "(list" " ex-sym_0" " var-sym_2)))))" -" fold-var_139))))" +" fold-var_42))))" "(values" -" fold-var_140)))" -" fold-var_138))))" -"(if(not" -" #f)" -"(for-loop_177" -" fold-var_39" -" rest_77)" -" fold-var_39)))" -" fold-var_137)))))" -" for-loop_177)" +" fold-var_142)))" +" fold-var_41))))" +"(if(not #f)" +"(for-loop_74" +" fold-var_40" +" rest_23)" +" fold-var_40)))" +" fold-var_39)))))" +" for-loop_74)" " null" -" lst_153)))))" -" fold-var_135))))" -"(values fold-var_136)))))" -"(if(not #f)(for-loop_117 fold-var_134 rest_76) fold-var_134)))" -" fold-var_133)))))" -" for-loop_117)" +" lst_52)))))" +" fold-var_140))))" +"(values fold-var_141)))))" +"(if(not #f)(for-loop_179 fold-var_139 rest_78) fold-var_139)))" +" fold-var_138)))))" +" for-loop_179)" " null" -" lst_106))))" +" lst_154))))" "(reverse$1" -"(let-values(((lst_155) link-mod-uses_0))" +"(let-values(((lst_156) link-mod-uses_0))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))" -"(void)" -"(let-values()(check-list lst_155)))" -"((letrec-values(((for-loop_178)" -"(lambda(fold-var_141 lst_108)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_156)))" +"((letrec-values(((for-loop_180)" +"(lambda(fold-var_143 lst_157)" "(begin" " 'for-loop" -"(if(pair? lst_108)" -"(let-values(((mu_4)(unsafe-car lst_108))((rest_78)(unsafe-cdr lst_108)))" -"(let-values(((fold-var_142)" -"(let-values(((fold-var_143) fold-var_141))" +"(if(pair? lst_157)" +"(let-values(((mu_4)(unsafe-car lst_157))((rest_79)(unsafe-cdr lst_157)))" "(let-values(((fold-var_144)" +"(let-values(((fold-var_145) fold-var_143))" +"(let-values(((fold-var_146)" "(let-values()" "(cons" "(let-values()" "(let-values(((extra-inspectorss_0)" -"(let-values(((lst_156)" +"(let-values(((lst_109)" "(header-require-vars-in-order" " header_5)))" "(begin" @@ -26380,24 +26674,23 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()" -"(check-list" -" lst_156)))" -"((letrec-values(((for-loop_179)" -"(lambda(table_139" -" lst_157)" +"(check-list lst_109)))" +"((letrec-values(((for-loop_124)" +"(lambda(table_145" +" lst_158)" "(begin" " 'for-loop" "(if(pair?" -" lst_157)" +" lst_158)" "(let-values(((vu_2)" "(unsafe-car" -" lst_157))" -"((rest_79)" +" lst_158))" +"((rest_24)" "(unsafe-cdr" -" lst_157)))" -"(let-values(((table_140)" -"(let-values(((table_141)" -" table_139))" +" lst_158)))" +"(let-values(((table_29)" +"(let-values(((table_34)" +" table_145))" "(if(equal?" " mu_4" "(variable-use-module-use" @@ -26409,12 +26702,12 @@ static const char *startup_source = " vu_2)))" "(begin" " #t" -"((letrec-values(((for-loop_32)" -"(lambda(table_29)" +"((letrec-values(((for-loop_181)" +"(lambda(table_30)" "(begin" " 'for-loop" "(let-values()" -"(let-values(((table_34)" +"(let-values(((table_31)" "(let-values(((extra-inspectors_1)" "(hash-ref" "(header-import-sym-to-extra-inspectors" @@ -26423,87 +26716,85 @@ static const char *startup_source = " #f)))" "(begin" " #t" -"((letrec-values(((for-loop_180)" -"(lambda(table_30)" +"((letrec-values(((for-loop_182)" +"(lambda(table_146)" "(begin" " 'for-loop" "(let-values()" -"(let-values(((table_31)" -"(let-values(((table_32)" -" table_30))" +"(let-values(((table_147)" +"(let-values(((table_148)" +" table_146))" "(if(let-values(((or-part_212)" " extra-inspectors_1))" "(if or-part_212" " or-part_212" " cross-linklet-inlining?_0))" -"(let-values(((table_115)" -" table_32))" -"(let-values(((table_116)" +"(let-values(((table_149)" +" table_148))" +"(let-values(((table_120)" "(let-values()" -"(let-values(((key_55" -" val_46)" +"(let-values(((key_56" +" val_47)" "(let-values()" "(values" " var-sym_3" " extra-inspectors_1))))" "(hash-set" -" table_115" -" key_55" -" val_46)))))" +" table_149" +" key_56" +" val_47)))))" "(values" -" table_116)))" -" table_32))))" +" table_120)))" +" table_148))))" +" table_147))))))" +" for-loop_182)" +" table_30)))))" " table_31))))))" -" for-loop_180)" -" table_29)))))" -" table_34))))))" -" for-loop_32)" -" table_141)))" -" table_141))))" +" for-loop_181)" +" table_34)))" +" table_34))))" "(if(not" " #f)" -"(for-loop_179" -" table_140" -" rest_79)" -" table_140)))" -" table_139)))))" -" for-loop_179)" +"(for-loop_124" +" table_29" +" rest_24)" +" table_29)))" +" table_145)))))" +" for-loop_124)" " '#hash()" -" lst_156)))))" +" lst_109)))))" "(if(hash-count extra-inspectorss_0)" " extra-inspectorss_0" " #f)))" -" 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)" +" fold-var_145))))" +"(values fold-var_146)))))" +"(if(not #f)(for-loop_180 fold-var_144 rest_79) fold-var_144)))" +" fold-var_143)))))" +" for-loop_180)" " null" -" lst_155))))" +" lst_156))))" "(reverse$1" -"(let-values(((lst_42)(header-require-vars-in-order header_5)))" +"(let-values(((lst_159)(header-require-vars-in-order header_5)))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_42)))" -"((letrec-values(((for-loop_181)" -"(lambda(fold-var_145 lst_158)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_159)))" +"((letrec-values(((for-loop_183)" +"(lambda(fold-var_147 lst_160)" "(begin" " 'for-loop" -"(if(pair? lst_158)" -"(let-values(((vu_3)(unsafe-car lst_158))((rest_80)(unsafe-cdr lst_158)))" -"(let-values(((fold-var_146)" -"(let-values(((fold-var_147) fold-var_145))" +"(if(pair? lst_160)" +"(let-values(((vu_3)(unsafe-car lst_160))((rest_80)(unsafe-cdr lst_160)))" +"(let-values(((fold-var_148)" +"(let-values(((fold-var_149) fold-var_147))" "(if(let-values(((mod_2)" "(module-use-module" "(variable-use-module-use vu_3))))" "(let-values(((or-part_213)" -"(eq?" -" mod_2" -"(compile-context-self cctx_0))))" +"(eq? mod_2(compile-context-self cctx_0))))" "(if or-part_213" " or-part_213" "(top-level-module-path-index? mod_2))))" -"(let-values(((fold-var_148) fold-var_147))" -"(let-values(((fold-var_149)" +"(let-values(((fold-var_150) fold-var_149))" +"(let-values(((fold-var_151)" "(let-values()" "(cons" "(let-values()" @@ -26513,19 +26804,18 @@ static const char *startup_source = " header_5)" " vu_3)))" "(let-values(((ex-sym_1)" -"(variable-use-sym" -" vu_3)))" +"(variable-use-sym vu_3)))" "(if(eq? var-sym_4 ex-sym_1)" " var-sym_4" "(list var-sym_4 ex-sym_1)))))" -" fold-var_148))))" -"(values fold-var_149)))" -" fold-var_147))))" -"(if(not #f)(for-loop_181 fold-var_146 rest_80) fold-var_146)))" -" fold-var_145)))))" -" for-loop_181)" +" fold-var_150))))" +"(values fold-var_151)))" +" fold-var_149))))" +"(if(not #f)(for-loop_183 fold-var_148 rest_80) fold-var_148)))" +" fold-var_147)))))" +" for-loop_183)" " null" -" lst_42))))))))))" +" lst_159)))))))))" "(define-values" "(instance-imports)" "(list ns-id phase-shift-id self-id inspector-id bulk-binding-registry-id set-transformer!-id))" @@ -26569,7 +26859,7 @@ static const char *startup_source = "(1/make-instance 'empty-stx #f 'constant get-syntax-literal!-id(lambda(pos_89) #f) 'get-encoded-root-expand-ctx #f))" "(define-values" "(empty-module-body-instance)" -"(let-values(((temp21_0)(lambda(name_39 val_47)(void))))(make-module-body-instance-instance18.1 temp21_0)))" +"(let-values(((temp21_0)(lambda(name_39 val_48)(void))))(make-module-body-instance-instance18.1 temp21_0)))" "(define-values" "(empty-top-syntax-literal-instance)" "(1/make-instance 'top-syntax-literal #f 'constant mpi-vector-id #f syntax-literals-id #f))" @@ -26651,36 +26941,36 @@ static const char *startup_source = "(correlated->list)" "(lambda(e_28)" "(begin" -"((letrec-values(((loop_87)" +"((letrec-values(((loop_88)" "(lambda(e_29)" "(begin" " 'loop" "(if(list? e_29)" "(let-values() e_29)" "(if(pair? e_29)" -"(let-values()(cons(car e_29)(loop_87(cdr e_29))))" +"(let-values()(cons(car e_29)(loop_88(cdr e_29))))" "(if(null? e_29)" "(let-values() null)" "(if(1/syntax? e_29)" -"(let-values()(loop_87(syntax-e$2 e_29)))" +"(let-values()(loop_88(syntax-e$2 e_29)))" " (let-values () (error 'correlated->list \"not a list\"))))))))))" -" loop_87)" +" loop_88)" " e_28))))" "(define-values" "(correlated-property)" "(case-lambda" "((e_30 k_30)(begin(syntax-property$2 e_30 k_30)))" -"((e_31 k_31 v_127)(syntax-property$2 e_31 k_31 v_127))))" +"((e_31 k_31 v_128)(syntax-property$2 e_31 k_31 v_128))))" "(define-values" "(to-syntax-list.1$1)" -"(lambda(s_112)" +"(lambda(s_305)" "(begin" " 'to-syntax-list" -"(if(list? s_112)" -"(let-values() s_112)" -"(if(pair? s_112)" -"(let-values()(let-values(((r_38)(to-syntax-list.1$1(cdr s_112))))(if r_38(cons(car s_112) r_38) #f)))" -"(if(1/syntax? s_112)(let-values()(to-syntax-list.1$1(syntax-e$2 s_112)))(let-values() #f)))))))" +"(if(list? s_305)" +"(let-values() s_305)" +"(if(pair? s_305)" +"(let-values()(let-values(((r_37)(to-syntax-list.1$1(cdr s_305))))(if r_37(cons(car s_305) r_37) #f)))" +"(if(1/syntax? s_305)(let-values()(to-syntax-list.1$1(syntax-e$2 s_305)))(let-values() #f)))))))" "(define-values" "(srcloc->vector)" "(lambda(s_6)" @@ -26704,20 +26994,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_34) p5_0))" +"(let-values(((p_35) 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_35 name_41 result-used?_1)" -"(begin 'compile(compile$2 p_35 cctx_1 name_41 result-used?_1)))))" -"(let-values(((s_10)(parsed-s p_34)))" -"(if(parsed-id? p_34)" +"(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)" "(let-values()" -"(let-values(((p27_1) p_34)((cctx28_0) cctx_1))" +"(let-values(((p27_1) p_35)((cctx28_0) cctx_1))" "(compile-identifier24.1 #f #f #f #f p27_1 cctx28_0)))" -"(if(parsed-lambda? p_34)" +"(if(parsed-lambda? p_35)" "(let-values()" "(if result-used?_0" "(let-values()" @@ -26727,13 +27017,13 @@ static const char *startup_source = "(list*" " 'lambda" "(compile-lambda" -"(parsed-lambda-keys p_34)" -"(parsed-lambda-body p_34)" +"(parsed-lambda-keys p_35)" +"(parsed-lambda-body p_35)" " cctx_1)))" " name_40" " s_10))" "(let-values()(correlate~ s_10 ''unused-lambda))))" -"(if(parsed-case-lambda? p_34)" +"(if(parsed-case-lambda? p_35)" "(let-values()" "(if result-used?_0" "(let-values()" @@ -26743,24 +27033,24 @@ static const char *startup_source = "(list*" " 'case-lambda" "(reverse$1" -"(let-values(((lst_159)(parsed-case-lambda-clauses p_34)))" +"(let-values(((lst_161)(parsed-case-lambda-clauses p_35)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_159)))" -"((letrec-values(((for-loop_182)" -"(lambda(fold-var_31 lst_160)" +"(let-values()(check-list lst_161)))" +"((letrec-values(((for-loop_184)" +"(lambda(fold-var_31 lst_162)" "(begin" " 'for-loop" -"(if(pair? lst_160)" +"(if(pair? lst_162)" "(let-values(((clause_0)" -"(unsafe-car lst_160))" +"(unsafe-car lst_162))" "((rest_81)" -"(unsafe-cdr lst_160)))" +"(unsafe-cdr lst_162)))" "(let-values(((fold-var_66)" -"(let-values(((fold-var_150)" +"(let-values(((fold-var_152)" " fold-var_31))" -"(let-values(((fold-var_151)" +"(let-values(((fold-var_153)" "(let-values()" "(cons" "(let-values()" @@ -26770,114 +27060,114 @@ static const char *startup_source = "(cadr" " clause_0)" " cctx_1))" -" fold-var_150))))" +" fold-var_152))))" "(values" -" fold-var_151)))))" +" fold-var_153)))))" "(if(not #f)" -"(for-loop_182 fold-var_66 rest_81)" +"(for-loop_184 fold-var_66 rest_81)" " fold-var_66)))" " fold-var_31)))))" -" for-loop_182)" +" for-loop_184)" " null" -" lst_159))))))" +" lst_161))))))" " name_40" " s_10))" "(let-values()(correlate~ s_10 ''unused-case-lambda))))" -"(if(parsed-app? p_34)" +"(if(parsed-app? p_35)" "(let-values()" -"(let-values(((rands_0)(parsed-app-rands p_34)))" +"(let-values(((rands_0)(parsed-app-rands p_35)))" "(correlate/app" " s_10" "(cons" -"(compile_0(parsed-app-rator p_34) #f #t)" +"(compile_0(parsed-app-rator p_35) #f #t)" "(reverse$1" -"(let-values(((lst_40) rands_0))" +"(let-values(((lst_42) rands_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_40)))" -"((letrec-values(((for-loop_183)" -"(lambda(fold-var_152 lst_161)" +"(let-values()(check-list lst_42)))" +"((letrec-values(((for-loop_185)" +"(lambda(fold-var_154 lst_163)" "(begin" " 'for-loop" -"(if(pair? lst_161)" -"(let-values(((r_39)(unsafe-car lst_161))" -"((rest_41)" -"(unsafe-cdr lst_161)))" -"(let-values(((fold-var_153)" +"(if(pair? lst_163)" +"(let-values(((r_38)(unsafe-car lst_163))" +"((rest_42)" +"(unsafe-cdr lst_163)))" +"(let-values(((fold-var_155)" "(let-values(((fold-var_9)" -" fold-var_152))" +" fold-var_154))" "(let-values(((fold-var_68)" "(let-values()" "(cons" "(let-values()" "(compile_0" -" r_39" +" r_38" " #f" " #t))" " fold-var_9))))" "(values" " fold-var_68)))))" "(if(not #f)" -"(for-loop_183 fold-var_153 rest_41)" -" fold-var_153)))" -" fold-var_152)))))" -" for-loop_183)" +"(for-loop_185 fold-var_155 rest_42)" +" fold-var_155)))" +" fold-var_154)))))" +" for-loop_185)" " null" -" lst_40))))))))" -"(if(parsed-if? p_34)" +" lst_42))))))))" +"(if(parsed-if? p_35)" "(let-values()" -"(let-values(((tst-e_0)(compile_0(parsed-if-tst p_34) #f #f)))" +"(let-values(((tst-e_0)(compile_0(parsed-if-tst p_35) #f #f)))" "(if(eq?(correlated-e tst-e_0) #t)" "(let-values()" -"(compile_0(parsed-if-thn p_34) name_40 result-used?_0))" +"(compile_0(parsed-if-thn p_35) name_40 result-used?_0))" "(if(eq?(correlated-e tst-e_0) #f)" "(let-values()" -"(compile_0(parsed-if-els p_34) name_40 result-used?_0))" +"(compile_0(parsed-if-els p_35) name_40 result-used?_0))" "(let-values()" "(correlate~" " s_10" "(list" " 'if" " tst-e_0" -"(compile_0(parsed-if-thn p_34) name_40 result-used?_0)" -"(compile_0(parsed-if-els p_34) name_40 result-used?_0))))))))" -"(if(parsed-with-continuation-mark? p_34)" +"(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)" "(let-values()" "(correlate~" " s_10" "(list" " 'with-continuation-mark" -"(compile_0(parsed-with-continuation-mark-key p_34) #f #t)" -"(compile_0(parsed-with-continuation-mark-val p_34) #f #t)" +"(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-body p_34)" +"(parsed-with-continuation-mark-body p_35)" " name_40" " result-used?_0))))" -"(if(parsed-begin0? p_34)" +"(if(parsed-begin0? p_35)" "(let-values()" "(correlate~" " s_10" "(list*" " 'begin0" -"(compile_0(car(parsed-begin0-body p_34)) name_40 result-used?_0)" +"(compile_0(car(parsed-begin0-body p_35)) name_40 result-used?_0)" "(reverse$1" -"(let-values(((lst_89)(cdr(parsed-begin0-body p_34))))" +"(let-values(((lst_90)(cdr(parsed-begin0-body p_35))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_89)))" -"((letrec-values(((for-loop_103)" -"(lambda(fold-var_11 lst_90)" +"(let-values()(check-list lst_90)))" +"((letrec-values(((for-loop_107)" +"(lambda(fold-var_11 lst_91)" "(begin" " 'for-loop" -"(if(pair? lst_90)" +"(if(pair? lst_91)" "(let-values(((e_32)" -"(unsafe-car lst_90))" -"((rest_42)" -"(unsafe-cdr lst_90)))" -"(let-values(((fold-var_154)" -"(let-values(((fold-var_155)" +"(unsafe-car lst_91))" +"((rest_43)" +"(unsafe-cdr lst_91)))" +"(let-values(((fold-var_90)" +"(let-values(((fold-var_91)" " fold-var_11))" "(let-values(((fold-var_156)" "(let-values()" @@ -26887,38 +27177,38 @@ static const char *startup_source = " e_32" " #f" " #f))" -" fold-var_155))))" +" fold-var_91))))" "(values" " fold-var_156)))))" "(if(not #f)" -"(for-loop_103" -" fold-var_154" -" rest_42)" -" fold-var_154)))" +"(for-loop_107" +" fold-var_90" +" rest_43)" +" fold-var_90)))" " fold-var_11)))))" -" for-loop_103)" +" for-loop_107)" " null" -" lst_89)))))))" -"(if(parsed-begin? p_34)" +" lst_90)))))))" +"(if(parsed-begin? p_35)" "(let-values()" "(correlate~" " s_10" "(compile-begin" -"(parsed-begin-body p_34)" +"(parsed-begin-body p_35)" " cctx_1" " name_40" " result-used?_0)))" -"(if(parsed-set!? p_34)" +"(if(parsed-set!? p_35)" "(let-values()" "(correlate~" " s_10" -"(let-values(((temp29_1)(parsed-set!-id p_34))" +"(let-values(((temp29_1)(parsed-set!-id p_35))" "((cctx30_0) cctx_1)" "((temp31_1) #t)" "((temp32_1)" "(compile_0" -"(parsed-set!-rhs p_34)" -"(parsed-s(parsed-set!-id p_34))" +"(parsed-set!-rhs p_35)" +"(parsed-s(parsed-set!-id p_35))" " #t)))" "(compile-identifier24.1" " temp32_1" @@ -26927,9 +27217,9 @@ static const char *startup_source = " #t" " temp29_1" " cctx30_0))))" -"(if(parsed-let-values? p_34)" +"(if(parsed-let-values? p_35)" "(let-values()" -"(let-values(((p33_1) p_34)" +"(let-values(((p33_1) p_35)" "((cctx34_0) cctx_1)" "((name35_0) name_40)" "((temp36_0) #f)" @@ -26940,9 +27230,9 @@ static const char *startup_source = " cctx34_0" " name35_0" " result-used?37_0)))" -"(if(parsed-letrec-values? p_34)" +"(if(parsed-letrec-values? p_35)" "(let-values()" -"(let-values(((p38_0) p_34)" +"(let-values(((p38_0) p_35)" "((cctx39_0) cctx_1)" "((name40_0) name_40)" "((temp41_0) #t)" @@ -26953,24 +27243,24 @@ static const char *startup_source = " cctx39_0" " name40_0" " result-used?42_0)))" -"(if(parsed-quote? p_34)" +"(if(parsed-quote? p_35)" "(let-values()" -"(let-values(((datum_1)(parsed-quote-datum p_34)))" +"(let-values(((datum_1)(parsed-quote-datum p_35)))" "(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_34)" +"(if(parsed-quote-syntax? p_35)" "(let-values()" "(if result-used?_0" "(compile-quote-syntax" -"(parsed-quote-syntax-datum p_34)" +"(parsed-quote-syntax-datum p_35)" " cctx_1)" "(correlate~ s_10(list 'quote(syntax->datum$1 s_10)))))" -"(if(parsed-#%variable-reference? p_34)" +"(if(parsed-#%variable-reference? p_35)" "(let-values()" "(let-values(((id_44)" -"(parsed-#%variable-reference-id p_34)))" +"(parsed-#%variable-reference-id p_35)))" "(correlate~" " s_10" "(if id_44" @@ -26988,11 +27278,11 @@ static const char *startup_source = "(let-values()" "(error" " \"unrecognized parsed form:\"" -" p_34)))))))))))))))))))))))))))" +" p_35)))))))))))))))))))))))))))" "(case-lambda" -"((p_36 cctx_2)(begin 'compile(compile7_0 p_36 cctx_2 #f #f #f #f)))" -"((p_37 cctx_3 name_42 result-used?2_1)(compile7_0 p_37 cctx_3 name_42 result-used?2_1 #t #t))" -"((p_38 cctx_4 name1_1)(compile7_0 p_38 cctx_4 name1_1 #f #t #f)))))" +"((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)))))" "(define-values" "(compile-lambda)" "(lambda(formals_0 bodys_0 cctx_5)(begin(list formals_0(compile-sequence bodys_0 cctx_5 #f #t)))))" @@ -27011,20 +27301,20 @@ static const char *startup_source = "(list*" " 'begin" "(reverse$1" -"(let-values(((lst_162) es_0)((start_33) 0))" +"(let-values(((lst_164) es_0)((start_33) 0))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_162)))" +"(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-naturals start_33)))" -"((letrec-values(((for-loop_184)" -"(lambda(fold-var_157 lst_95 pos_90)" +"((letrec-values(((for-loop_186)" +"(lambda(fold-var_157 lst_96 pos_90)" "(begin" " 'for-loop" -"(if(if(pair? lst_95) #t #f)" -"(let-values(((e_33)(unsafe-car lst_95))" -"((rest_82)(unsafe-cdr lst_95))" -"((i_138) pos_90))" +"(if(if(pair? lst_96) #t #f)" +"(let-values(((e_33)(unsafe-car lst_96))" +"((rest_82)(unsafe-cdr lst_96))" +"((i_101) pos_90))" "(let-values(((fold-var_158)" "(let-values(((fold-var_79) fold-var_157))" "(let-values(((fold-var_80)" @@ -27032,7 +27322,7 @@ static const char *startup_source = "(cons" "(let-values()" "(let-values(((used?_0)" -"(= i_138 used-pos_0)))" +"(= i_101 used-pos_0)))" "(compile$2" " e_33" " cctx_7" @@ -27040,44 +27330,44 @@ static const char *startup_source = "(if used?_0 result-used?_3 #f))))" " fold-var_79))))" "(values fold-var_80)))))" -"(if(not #f)(for-loop_184 fold-var_158 rest_82(+ pos_90 1)) fold-var_158)))" +"(if(not #f)(for-loop_186 fold-var_158 rest_82(+ pos_90 1)) fold-var_158)))" " fold-var_157)))))" -" for-loop_184)" +" for-loop_186)" " null" -" lst_162" +" lst_164" " start_33)))))))))" "(define-values" "(add-lambda-properties)" -"(lambda(s_301 inferred-name_0 orig-s_21)" +"(lambda(s_306 inferred-name_0 orig-s_21)" "(begin" "(letrec-values(((simplify-name_0)" -"(lambda(v_159)" +"(lambda(v_157)" "(begin" " 'simplify-name" -"(if(pair? v_159)" +"(if(pair? v_157)" "(let-values()" -"(let-values(((n1_0)(simplify-name_0(car v_159))))" -"(let-values(((n2_0)(simplify-name_0(cdr v_159))))(if(eq? n1_0 n2_0) n1_0 v_159))))" -"(let-values() v_159))))))" +"(let-values(((n1_0)(simplify-name_0(car v_157))))" +"(let-values(((n2_0)(simplify-name_0(cdr v_157))))(if(eq? n1_0 n2_0) n1_0 v_157))))" +"(let-values() v_157))))))" "(let-values(((name_45)" "(let-values(((or-part_214)" -"(let-values(((v_160)" +"(let-values(((v_158)" "(simplify-name_0(syntax-property$1 orig-s_21 'inferred-name))))" -"(if(let-values(((or-part_134)(symbol? v_160)))" +"(if(let-values(((or-part_134)(symbol? v_158)))" "(if or-part_134" " or-part_134" -"(let-values(((or-part_215)(syntax?$1 v_160)))" -"(if or-part_215 or-part_215(void? v_160)))))" -" v_160" +"(let-values(((or-part_215)(syntax?$1 v_158)))" +"(if or-part_215 or-part_215(void? v_158)))))" +" v_158" " #f))))" "(if or-part_214 or-part_214 inferred-name_0))))" "(let-values(((named-s_0)" "(if name_45" "(correlated-property" -"(->correlated s_301)" +"(->correlated s_306)" " 'inferred-name" "(if(syntax?$1 name_45)(syntax-e$1 name_45) name_45))" -" s_301)))" +" s_306)))" "(let-values(((as-method_0)(syntax-property$1 orig-s_21 'method-arity-error)))" "(if as-method_0" "(correlated-property(->correlated named-s_0) 'method-arity-error as-method_0)" @@ -27087,36 +27377,36 @@ 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_39) p11_0))" +"(let-values(((p_40) 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_39)))" +"(let-values(((body_0)(parsed-let_-values-body p_40)))" "(correlate~" -"(parsed-s p_39)" +"(parsed-s p_40)" "(list" "(if rec?_0 'letrec-values 'let-values)" "(reverse$1" -"(let-values(((lst_163)(parsed-let_-values-clauses p_39))" -"((lst_164)(parsed-let_-values-idss p_39)))" +"(let-values(((lst_165)(parsed-let_-values-clauses p_40))" +"((lst_166)(parsed-let_-values-idss p_40)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_163)))" +"(let-values()(check-list lst_165)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_164)))" -"((letrec-values(((for-loop_185)" -"(lambda(fold-var_159 lst_165 lst_166)" +"(let-values()(check-list lst_166)))" +"((letrec-values(((for-loop_187)" +"(lambda(fold-var_159 lst_167 lst_168)" "(begin" " 'for-loop" -"(if(if(pair? lst_165)(pair? lst_166) #f)" -"(let-values(((clause_1)(unsafe-car lst_165))" -"((rest_83)(unsafe-cdr lst_165))" -"((ids_4)(unsafe-car lst_166))" -"((rest_84)(unsafe-cdr lst_166)))" +"(if(if(pair? lst_167)(pair? lst_168) #f)" +"(let-values(((clause_1)(unsafe-car lst_167))" +"((rest_83)(unsafe-cdr lst_167))" +"((ids_4)(unsafe-car lst_168))" +"((rest_84)(unsafe-cdr lst_168)))" "(let-values(((fold-var_160)" "(let-values(((fold-var_161) fold-var_159))" "(let-values(((fold-var_0)" @@ -27126,10 +27416,10 @@ static const char *startup_source = "(list" "(if rec?_0" "(reverse$1" -"(let-values(((lst_102)" +"(let-values(((lst_169)" "(car" " clause_1))" -"((lst_167)" +"((lst_170)" " ids_4))" "(begin" "(if(variable-reference-from-unsafe?" @@ -27137,61 +27427,61 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_102)))" +" lst_169)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_167)))" -"((letrec-values(((for-loop_186)" +" lst_170)))" +"((letrec-values(((for-loop_188)" "(lambda(fold-var_2" -" lst_168" -" lst_169)" +" lst_171" +" lst_172)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_168)" +" lst_171)" "(pair?" -" lst_169)" +" lst_172)" " #f)" "(let-values(((sym_51)" "(unsafe-car" -" lst_168))" +" lst_171))" "((rest_85)" "(unsafe-cdr" -" lst_168))" +" lst_171))" "((id_45)" "(unsafe-car" -" lst_169))" +" lst_172))" "((rest_86)" "(unsafe-cdr" -" lst_169)))" +" lst_172)))" +"(let-values(((fold-var_92)" "(let-values(((fold-var_162)" -"(let-values(((fold-var_163)" " fold-var_2))" -"(let-values(((fold-var_164)" +"(let-values(((fold-var_163)" "(let-values()" "(cons" "(let-values()" "(add-undefined-error-name-property" " sym_51" " id_45))" -" fold-var_163))))" +" fold-var_162))))" "(values" -" fold-var_164)))))" +" fold-var_163)))))" "(if(not" " #f)" -"(for-loop_186" -" fold-var_162" +"(for-loop_188" +" fold-var_92" " rest_85" " rest_86)" -" fold-var_162)))" +" fold-var_92)))" " fold-var_2)))))" -" for-loop_186)" +" for-loop_188)" " null" -" lst_102" -" lst_167))))" +" lst_169" +" lst_170))))" "(car clause_1))" "(compile$2" "(cadr clause_1)" @@ -27202,13 +27492,13 @@ static const char *startup_source = " fold-var_161))))" "(values fold-var_0)))))" "(if(not #f)" -"(for-loop_185 fold-var_160 rest_83 rest_84)" +"(for-loop_187 fold-var_160 rest_83 rest_84)" " fold-var_160)))" " fold-var_159)))))" -" for-loop_185)" +" for-loop_187)" " null" -" lst_163" -" lst_164))))" +" lst_165" +" lst_166))))" "(compile-sequence body_0 cctx_8 name_46 result-used?_4)))))))))))))" "(define-values" "(add-undefined-error-name-property)" @@ -27225,19 +27515,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_40) p22_0))" +"(let-values(((p_41) 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_40)))" -"(let-values(((b_69)" +"(let-values(((normal-b_0)(parsed-id-binding p_41)))" +"(let-values(((b_67)" "(let-values(((or-part_216) normal-b_0))" "(if or-part_216" " or-part_216" "(let-values(((temp45_0)(compile-context-self cctx_9))" "((temp46_0)(compile-context-phase cctx_9))" -"((temp47_0)(syntax-e$1(parsed-s p_40))))" +"((temp47_0)(syntax-e$1(parsed-s p_41))))" "(make-module-binding22.1" " #f" " #f" @@ -27261,18 +27551,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_67)" +"(let-values()(local-binding-key b_67))" +"(if(module-binding? b_67)" "(let-values()" -"(let-values(((mpi_40)" -"(if(parsed-top-id? p_40)" +"(let-values(((mpi_41)" +"(if(parsed-top-id? p_41)" "(compile-context-self cctx_9)" -"(module-binding-module b_69))))" -"(if(parsed-primitive-id? p_40)" +"(module-binding-module b_67))))" +"(if(parsed-primitive-id? p_41)" "(let-values()" "(begin" -"(if(zero?(module-binding-phase b_69))" +"(if(zero?(module-binding-phase b_67))" "(void)" "(let-values()" " (error \"internal error: non-zero phase for a primitive\")))" @@ -27280,31 +27570,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_67)))" "(void))" -"(module-binding-sym b_69)))" -"(if(eq? mpi_40(compile-context-module-self cctx_9))" +"(module-binding-sym b_67)))" +"(if(eq? mpi_41(compile-context-module-self cctx_9))" "(let-values()" "(let-values(((header_6)(compile-context-header cctx_9)))" "(hash-ref" "(header-binding-sym-to-define-sym header_6)" -"(module-binding-sym b_69))))" +"(module-binding-sym b_67))))" "(let-values()" "(let-values(((temp48_0)(compile-context-header cctx_9))" -"((mpi49_0) mpi_40)" -"((temp50_0)(module-binding-phase b_69))" -"((temp51_0)(module-binding-sym b_69))" +"((mpi49_0) mpi_41)" +"((temp50_0)(module-binding-phase b_67))" +"((temp51_0)(module-binding-sym b_67))" "((temp52_1)" +"(let-values(((or-part_101)" +"(module-binding-extra-inspector b_67)))" +"(if or-part_101" +" or-part_101" "(let-values(((or-part_217)" -"(module-binding-extra-inspector b_69)))" +"(parsed-id-inspector p_41)))" "(if or-part_217" " or-part_217" -"(let-values(((or-part_218)" -"(parsed-id-inspector p_40)))" -"(if or-part_218" -" or-part_218" -"(if(parsed-s p_40)" -"(syntax-inspector(parsed-s p_40))" +"(if(parsed-s p_41)" +"(syntax-inspector(parsed-s p_41))" " #f)))))))" "(register-required-variable-use!19.1" " #f" @@ -27317,9 +27607,9 @@ static const char *startup_source = "(let-values()" "(error" " \"not a reference to a module or local binding:\"" -" b_69" -"(parsed-s p_40)))))))" -"(correlate~(parsed-s p_40)(if set-to?_0(list 'set! sym_5 rhs_0) sym_5)))))))))))))" +" b_67" +"(parsed-s p_41)))))))" +"(correlate~(parsed-s p_41)(if set-to?_0(list 'set! sym_5 rhs_0) sym_5)))))))))))))" "(define-values" "(compile-quote-syntax)" "(lambda(q_1 cctx_10)" @@ -27336,17 +27626,17 @@ static const char *startup_source = "(let-values() #f)" "(if(set? extra-inspectors_2)" "(let-values()" -"(let-values(((ht_111) extra-inspectors_2))" +"(let-values(((ht_114) extra-inspectors_2))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-immutable-hash-keys ht_111)))" -"((letrec-values(((for-loop_90)" -"(lambda(result_77 i_139)" +"(let-values()(check-in-immutable-hash-keys ht_114)))" +"((letrec-values(((for-loop_94)" +"(lambda(result_77 i_138)" "(begin" " 'for-loop" -"(if i_139" -"(let-values(((extra-insp_0)(unsafe-immutable-hash-iterate-key ht_111 i_139)))" +"(if i_138" +"(let-values(((extra-insp_0)(unsafe-immutable-hash-iterate-key ht_114 i_138)))" "(let-values(((result_78)" "(let-values()" "(let-values(((result_79)" @@ -27356,13 +27646,13 @@ static const char *startup_source = " extra-insp_0" " guard-insp_0)))))" "(values result_79)))))" -"(if(if(not((lambda x_55(not result_78)) extra-insp_0))(not #f) #f)" -"(for-loop_90 result_78(unsafe-immutable-hash-iterate-next ht_111 i_139))" +"(if(if(not((lambda x_53(not result_78)) extra-insp_0))(not #f) #f)" +"(for-loop_94 result_78(unsafe-immutable-hash-iterate-next ht_114 i_138))" " result_78)))" " result_77)))))" -" for-loop_90)" +" for-loop_94)" " #t" -"(unsafe-immutable-hash-iterate-first ht_111)))))" +"(unsafe-immutable-hash-iterate-first ht_114)))))" "(if(procedure? extra-inspectors_2)" "(let-values()(extra-inspectors_2 guard-insp_0))" "(let-values()" @@ -27374,8 +27664,8 @@ static const char *startup_source = "(extra-inspectors-merge)" "(lambda(extra-inspectors-1_0 extra-inspectors-2_0)" "(begin" -"(if(let-values(((or-part_219)(not extra-inspectors-1_0)))" -"(if or-part_219 or-part_219(not extra-inspectors-2_0)))" +"(if(let-values(((or-part_218)(not extra-inspectors-1_0)))" +"(if or-part_218 or-part_218(not extra-inspectors-2_0)))" "(let-values() #f)" "(if(if(set? extra-inspectors-1_0)(set? extra-inspectors-2_0) #f)" "(let-values()(set-union extra-inspectors-1_0 extra-inspectors-2_0))" @@ -27422,22 +27712,22 @@ static const char *startup_source = "(if extra-inspectorsss_0" "(let-values()" "(reverse$1" -"(let-values(((lst_170) mus_1)((lst_89) extra-inspectorsss_0))" +"(let-values(((lst_102) mus_1)((lst_90) extra-inspectorsss_0))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_170)))" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_89)))" -"((letrec-values(((for-loop_103)" -"(lambda(fold-var_11 lst_90 lst_171)" +"(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)" "(begin" " 'for-loop" -"(if(if(pair? lst_90)(pair? lst_171) #f)" -"(let-values(((mu_5)(unsafe-car lst_90))" -"((rest_87)(unsafe-cdr lst_90))" -"((extra-inspectorss_1)(unsafe-car lst_171))" -"((rest_36)(unsafe-cdr lst_171)))" -"(let-values(((fold-var_165)" -"(let-values(((fold-var_166) fold-var_11))" -"(let-values(((fold-var_167)" +"(if(if(pair? lst_91)(pair? lst_173) #f)" +"(let-values(((mu_5)(unsafe-car lst_91))" +"((rest_87)(unsafe-cdr lst_91))" +"((extra-inspectorss_1)(unsafe-car lst_173))" +"((rest_37)(unsafe-cdr lst_173)))" +"(let-values(((fold-var_164)" +"(let-values(((fold-var_165) fold-var_11))" +"(let-values(((fold-var_166)" "(let-values()" "(cons" "(let-values()" @@ -27446,27 +27736,27 @@ static const char *startup_source = "(module-use-phase mu_5)" " extra-inspectorss_1" " #f))" -" fold-var_166))))" -"(values fold-var_167)))))" -"(if(not #f)(for-loop_103 fold-var_165 rest_87 rest_36) fold-var_165)))" +" fold-var_165))))" +"(values fold-var_166)))))" +"(if(not #f)(for-loop_107 fold-var_164 rest_87 rest_37) fold-var_164)))" " fold-var_11)))))" -" for-loop_103)" +" for-loop_107)" " null" -" lst_170" -" lst_89)))))" +" lst_102" +" lst_90)))))" "(let-values()" "(reverse$1" -"(let-values(((lst_91) mus_1))" +"(let-values(((lst_92) mus_1))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_91)))" -"((letrec-values(((for-loop_187)" -"(lambda(fold-var_168 lst_17)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_92)))" +"((letrec-values(((for-loop_189)" +"(lambda(fold-var_167 lst_17)" "(begin" " 'for-loop" "(if(pair? lst_17)" "(let-values(((mu_6)(unsafe-car lst_17))((rest_88)(unsafe-cdr lst_17)))" "(let-values(((fold-var_63)" -"(let-values(((fold-var_169) fold-var_168))" +"(let-values(((fold-var_168) fold-var_167))" "(let-values(((fold-var_18)" "(let-values()" "(cons" @@ -27476,30 +27766,30 @@ static const char *startup_source = "(module-use-phase mu_6)" " #f" " #f))" -" fold-var_169))))" +" fold-var_168))))" "(values fold-var_18)))))" -"(if(not #f)(for-loop_187 fold-var_63 rest_88) fold-var_63)))" -" fold-var_168)))))" -" for-loop_187)" +"(if(not #f)(for-loop_189 fold-var_63 rest_88) fold-var_63)))" +" fold-var_167)))))" +" for-loop_189)" " null" -" lst_91)))))))))" +" lst_92)))))))))" "(define-values" "(module-uses-strip-extra-inspectorsss)" "(lambda(mu*s_0)" "(begin" "(reverse$1" -"(let-values(((lst_172) mu*s_0))" +"(let-values(((lst_174) mu*s_0))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_172)))" -"((letrec-values(((for-loop_188)" -"(lambda(fold-var_70 lst_173)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_174)))" +"((letrec-values(((for-loop_190)" +"(lambda(fold-var_70 lst_175)" "(begin" " 'for-loop" -"(if(pair? lst_173)" -"(let-values(((mu*_0)(unsafe-car lst_173))((rest_89)(unsafe-cdr lst_173)))" -"(let-values(((fold-var_170)" +"(if(pair? lst_175)" +"(let-values(((mu*_0)(unsafe-car lst_175))((rest_89)(unsafe-cdr lst_175)))" +"(let-values(((fold-var_169)" "(let-values(((fold-var_71) fold-var_70))" -"(let-values(((fold-var_171)" +"(let-values(((fold-var_170)" "(let-values()" "(cons" "(let-values()" @@ -27507,12 +27797,12 @@ static const char *startup_source = "(module-use-module mu*_0)" "(module-use-phase mu*_0)))" " fold-var_71))))" -"(values fold-var_171)))))" -"(if(not #f)(for-loop_188 fold-var_170 rest_89) fold-var_170)))" +"(values fold-var_170)))))" +"(if(not #f)(for-loop_190 fold-var_169 rest_89) fold-var_169)))" " fold-var_70)))))" -" for-loop_188)" +" for-loop_190)" " null" -" lst_172)))))))" +" lst_174)))))))" "(define-values" "(module-uses-extract-extra-inspectorsss)" "(lambda(mu*s_1 linklet_0 check-inlined-reference?_0 skip-n_0)" @@ -27520,72 +27810,72 @@ static const char *startup_source = "(if(not check-inlined-reference?_0)" "(let-values()" "(reverse$1" -"(let-values(((lst_174) mu*s_1))" +"(let-values(((lst_176) mu*s_1))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_174)))" -"((letrec-values(((for-loop_189)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_176)))" +"((letrec-values(((for-loop_191)" "(lambda(fold-var_74 lst_9)" "(begin" " 'for-loop" "(if(pair? lst_9)" "(let-values(((mu*_1)(unsafe-car lst_9))((rest_90)(unsafe-cdr lst_9)))" -"(let-values(((fold-var_172)" +"(let-values(((fold-var_171)" "(let-values(((fold-var_4) fold-var_74))" -"(let-values(((fold-var_173)" +"(let-values(((fold-var_172)" "(let-values()" "(cons" "(let-values()" "(module-use*-extra-inspectorss mu*_1))" " fold-var_4))))" -"(values fold-var_173)))))" -"(if(not #f)(for-loop_189 fold-var_172 rest_90) fold-var_172)))" +"(values fold-var_172)))))" +"(if(not #f)(for-loop_191 fold-var_171 rest_90) fold-var_171)))" " fold-var_74)))))" -" for-loop_189)" +" for-loop_191)" " null" -" lst_174)))))" +" lst_176)))))" "(let-values()" "(reverse$1" -"(let-values(((lst_175) mu*s_1)((lst_176)(list-tail(1/linklet-import-variables linklet_0) skip-n_0)))" +"(let-values(((lst_177) mu*s_1)((lst_178)(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_175)))" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_176)))" +"(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)))" "((letrec-values(((for-loop_29)" -"(lambda(fold-var_6 lst_177 lst_178)" +"(lambda(fold-var_6 lst_179 lst_180)" "(begin" " 'for-loop" -"(if(if(pair? lst_177)(pair? lst_178) #f)" -"(let-values(((mu*_2)(unsafe-car lst_177))" -"((rest_91)(unsafe-cdr lst_177))" -"((imports_0)(unsafe-car lst_178))" -"((rest_92)(unsafe-cdr lst_178)))" +"(if(if(pair? lst_179)(pair? lst_180) #f)" +"(let-values(((mu*_2)(unsafe-car lst_179))" +"((rest_91)(unsafe-cdr lst_179))" +"((imports_0)(unsafe-car lst_180))" +"((rest_92)(unsafe-cdr lst_180)))" "(let-values(((fold-var_157)" -"(let-values(((fold-var_174) fold-var_6))" -"(let-values(((fold-var_175)" +"(let-values(((fold-var_173) fold-var_6))" +"(let-values(((fold-var_174)" "(let-values()" "(cons" "(let-values()" "(let-values(((extra-inspectorss_2)" "(module-use*-extra-inspectorss" " mu*_2)))" -"(let-values(((lst_96) imports_0))" +"(let-values(((lst_97) imports_0))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_96)))" +"(let-values()(check-list lst_97)))" "((letrec-values(((for-loop_19)" "(lambda(extra-inspectorss_3" -" lst_179)" +" lst_181)" "(begin" " 'for-loop" "(if(pair?" -" lst_179)" +" lst_181)" "(let-values(((import_0)" "(unsafe-car" -" lst_179))" +" lst_181))" "((rest_93)" "(unsafe-cdr" -" lst_179)))" +" lst_181)))" "(let-values(((extra-inspectorss_4)" "(let-values(((extra-inspectorss_5)" " extra-inspectorss_3))" @@ -27617,47 +27907,47 @@ static const char *startup_source = " extra-inspectorss_3)))))" " for-loop_19)" " extra-inspectorss_2" -" lst_96)))))" -" fold-var_174))))" -"(values fold-var_175)))))" +" lst_97)))))" +" fold-var_173))))" +"(values fold-var_174)))))" "(if(not #f)(for-loop_29 fold-var_157 rest_91 rest_92) fold-var_157)))" " fold-var_6)))))" " for-loop_29)" " null" -" lst_175" -" lst_176)))))))))" +" lst_177" +" lst_178)))))))))" "(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_41 phase_69 imports_1 inspector_12 extra-inspector_5 extra-inspectorss_7)" +"(lambda(mpi_42 phase_70 imports_1 inspector_12 extra-inspector_5 extra-inspectorss_7)" "(begin" "(let-values(((now-inspector_0)(current-code-inspector)))" "(let-values(((add-insp?_0)(if inspector_12(inspector-superior? inspector_12 now-inspector_0) #f)))" "(let-values(((add-extra-insp?_0)" "(if extra-inspector_5(inspector-superior? extra-inspector_5 now-inspector_0) #f)))" "(let-values(((new-extra-inspectorss_0)" -"(if(let-values(((or-part_220) add-insp?_0))(if or-part_220 or-part_220 add-extra-insp?_0))" +"(if(let-values(((or-part_219) add-insp?_0))(if or-part_219 or-part_219 add-extra-insp?_0))" "(let-values()" -"(let-values(((lst_180) imports_1))" +"(let-values(((lst_182) imports_1))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_180)))" -"((letrec-values(((for-loop_112)" -"(lambda(table_142 lst_181)" +"(let-values()(check-list lst_182)))" +"((letrec-values(((for-loop_192)" +"(lambda(table_150 lst_183)" "(begin" " 'for-loop" -"(if(pair? lst_181)" -"(let-values(((import_1)(unsafe-car lst_181))" -"((rest_94)(unsafe-cdr lst_181)))" -"(let-values(((table_143)" -"(let-values(((table_144) table_142))" -"(let-values(((table_145)" +"(if(pair? lst_183)" +"(let-values(((import_1)(unsafe-car lst_183))" +"((rest_94)(unsafe-cdr lst_183)))" +"(let-values(((table_151)" +"(let-values(((table_152) table_150))" +"(let-values(((table_153)" "(let-values()" -"(let-values(((key_56" -" val_48)" +"(let-values(((key_57" +" val_49)" "(let-values()" "(values" " import_1" @@ -27669,48 +27959,48 @@ static const char *startup_source = " #f)" " #f)))" "(lambda(guard-insp_2)" -"(let-values(((or-part_221)" +"(let-values(((or-part_220)" "(if add-insp?_0" "(inspector-superior?" " inspector_12" " guard-insp_2)" " #f)))" -"(if or-part_221" -" or-part_221" -"(let-values(((or-part_222)" +"(if or-part_220" +" or-part_220" +"(let-values(((or-part_221)" "(if add-extra-insp?_0" "(inspector-superior?" " extra-inspector_5" " guard-insp_2)" " #f)))" -"(if or-part_222" -" or-part_222" +"(if or-part_221" +" or-part_221" "(extra-inspectors-allow?" " extra-inspectors_3" " guard-insp_2)))))))))))" "(hash-set" -" table_144" -" key_56" -" val_48)))))" -"(values table_145)))))" -"(if(not #f)(for-loop_112 table_143 rest_94) table_143)))" -" table_142)))))" -" for-loop_112)" +" table_152" +" key_57" +" val_49)))))" +"(values table_153)))))" +"(if(not #f)(for-loop_192 table_151 rest_94) table_151)))" +" table_150)))))" +" for-loop_192)" " '#hash()" -" lst_180))))" +" lst_182))))" "(let-values()" -"(let-values(((lst_182) imports_1))" +"(let-values(((lst_184) imports_1))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_182)))" -"((letrec-values(((for-loop_190)" -"(lambda(extra-inspectorss_8 lst_183)" +"(let-values()(check-list lst_184)))" +"((letrec-values(((for-loop_193)" +"(lambda(extra-inspectorss_8 lst_185)" "(begin" " 'for-loop" -"(if(pair? lst_183)" -"(let-values(((import_2)(unsafe-car lst_183))" -"((rest_95)(unsafe-cdr lst_183)))" +"(if(pair? lst_185)" +"(let-values(((import_2)(unsafe-car lst_185))" +"((rest_95)(unsafe-cdr lst_185)))" "(let-values(((extra-inspectorss_9)" "(let-values(((extra-inspectorss_10)" " extra-inspectorss_8))" @@ -27727,14 +28017,14 @@ static const char *startup_source = " #f)))))" "(values extra-inspectorss_11)))))" "(if(not #f)" -"(for-loop_190 extra-inspectorss_9 rest_95)" +"(for-loop_193 extra-inspectorss_9 rest_95)" " extra-inspectorss_9)))" " extra-inspectorss_8)))))" -" for-loop_190)" -"(let-values(((or-part_223) extra-inspectorss_7))" -"(if or-part_223 or-part_223(seteq)))" -" lst_182)))))))" -"(module-use*1.1 mpi_41 phase_69 new-extra-inspectorss_0 #f))))))))" +" for-loop_193)" +"(let-values(((or-part_222) extra-inspectorss_7))" +"(if or-part_222 or-part_222(seteq)))" +" lst_184)))))))" +"(module-use*1.1 mpi_42 phase_70 new-extra-inspectorss_0 #f))))))))" "(define-values" "(module-use-merge-extra-inspectorss!)" "(lambda(existing-mu*_0 mu*_4)" @@ -27742,18 +28032,18 @@ static const char *startup_source = "(let-values(((extra-inspectorss_12)(module-use*-extra-inspectorss mu*_4)))" "(let-values(((existing-extra-inspectorss_0)(module-use*-extra-inspectorss existing-mu*_0)))" "(let-values(((new-extra-inspectorss_1)" -"(let-values(((ht_112) extra-inspectorss_12))" +"(let-values(((ht_115) extra-inspectorss_12))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_112)))" -"((letrec-values(((for-loop_191)" -"(lambda(new-extra-inspectorss_2 i_140)" +"(let-values()(check-in-hash ht_115)))" +"((letrec-values(((for-loop_194)" +"(lambda(new-extra-inspectorss_2 i_139)" "(begin" " 'for-loop" -"(if i_140" +"(if i_139" "(let-values(((sym_52 extra-inspectors_4)" -"(hash-iterate-key+value ht_112 i_140)))" +"(hash-iterate-key+value ht_115 i_139)))" "(let-values(((new-extra-inspectorss_3)" "(let-values(((new-extra-inspectorss_4)" " new-extra-inspectorss_2))" @@ -27770,14 +28060,14 @@ static const char *startup_source = "(seteq)))))))" "(values new-extra-inspectorss_5)))))" "(if(not #f)" -"(for-loop_191" +"(for-loop_194" " new-extra-inspectorss_3" -"(hash-iterate-next ht_112 i_140))" +"(hash-iterate-next ht_115 i_139))" " new-extra-inspectorss_3)))" " new-extra-inspectorss_2)))))" -" for-loop_191)" +" for-loop_194)" " existing-extra-inspectorss_0" -"(hash-iterate-first ht_112))))))" +"(hash-iterate-first ht_115))))))" "(set-module-use*-extra-inspectorss! existing-mu*_0 new-extra-inspectorss_1)))))))" "(define-values" "(struct:link-info" @@ -27832,7 +28122,7 @@ static const char *startup_source = " 'compile-forms31" "(let-values(((bodys_2) bodys28_0))" "(let-values(((cctx_3) cctx29_0))" -"(let-values(((mpis_14) mpis30_0))" +"(let-values(((mpis_15) mpis30_0))" "(let-values(((body-imports_0) body-imports2_0))" "(let-values(((body-import-instances_0) body-import-instances3_0))" "(let-values(((body-suffix-forms_0)(if body-suffix-forms17_0 body-suffix-forms4_0 null)))" @@ -27850,66 +28140,66 @@ 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_41)(begin 'get-module-linklet-info #f)))))" +"(lambda(mod-name_14 p_42)(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_70)(compile-context-phase cctx_3)))" +"(let-values(((phase_71)(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_69 body_1)" +"(lambda(phase_70 body_1)" "(begin" " 'add-body!" "(hash-update!" " phase-to-body_0" -" phase_69" +" phase_70" "(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_71)" +"(lambda(phase_72)" "(begin" " 'find-or-create-header!" "(let-values(((or-part_214)" "(hash-ref" " phase-to-header_0" -" phase_71" +" phase_72" " #f)))" "(if or-part_214" " or-part_214" "(let-values(((header_7)" "(make-header" -" mpis_14" +" mpis_15" " syntax-literals_1)))" "(begin" "(hash-set!" " phase-to-header_0" -" phase_71" +" phase_72" " header_7)" " header_7))))))))" "(let-values((()" "(begin" -"(let-values(((lst_184) force-phases_0))" +"(let-values(((lst_186) force-phases_0))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_184)))" -"((letrec-values(((for-loop_192)" -"(lambda(lst_185)" +"(let-values()(check-list lst_186)))" +"((letrec-values(((for-loop_195)" +"(lambda(lst_187)" "(begin" " 'for-loop" -"(if(pair? lst_185)" -"(let-values(((phase_72)" +"(if(pair? lst_187)" +"(let-values(((phase_73)" "(unsafe-car" -" lst_185))" +" lst_187))" "((rest_96)" "(unsafe-cdr" -" lst_185)))" +" lst_187)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -27918,19 +28208,19 @@ static const char *startup_source = "(let-values()" "(begin" "(find-or-create-header!_0" -" phase_72)" +" phase_73)" "(add-body!_0" -" phase_72" +" phase_73" " '(void))))" "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_192" +"(for-loop_195" " rest_96)" "(values))))" "(values))))))" -" for-loop_192)" -" lst_184)))" +" for-loop_195)" +" lst_186)))" "(values))))" "(let-values()" "(let-values(((saw-define-syntaxes?_0) #f))" @@ -27940,12 +28230,12 @@ static const char *startup_source = "(let-values()" "((letrec-values(((loop!_0)" "(lambda(bodys_3" -" phase_73" +" phase_74" " header_8)" "(begin" " 'loop!" "(begin" -"(let-values(((lst_186)" +"(let-values(((lst_188)" " bodys_3))" "(begin" "(if(variable-reference-from-unsafe?" @@ -27953,19 +28243,19 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_186)))" -"((letrec-values(((for-loop_193)" -"(lambda(lst_187)" +" lst_188)))" +"((letrec-values(((for-loop_196)" +"(lambda(lst_189)" "(begin" " 'for-loop" "(if(pair?" -" lst_187)" +" lst_189)" "(let-values(((body_2)" "(unsafe-car" -" lst_187))" +" lst_189))" "((rest_97)" "(unsafe-cdr" -" lst_187)))" +" lst_189)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -27976,7 +28266,7 @@ static const char *startup_source = " body_2)" "(let-values()" "(begin" -"(let-values(((lst_188)" +"(let-values(((lst_190)" "(parsed-define-values-syms" " body_2)))" "(begin" @@ -27985,19 +28275,19 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_188)))" -"((letrec-values(((for-loop_194)" -"(lambda(lst_189)" +" lst_190)))" +"((letrec-values(((for-loop_197)" +"(lambda(lst_191)" "(begin" " 'for-loop" "(if(pair?" -" lst_189)" +" lst_191)" "(let-values(((sym_53)" "(unsafe-car" -" lst_189))" +" lst_191))" "((rest_98)" "(unsafe-cdr" -" lst_189)))" +" lst_191)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -28027,12 +28317,12 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_194" +"(for-loop_197" " rest_98)" "(values))))" "(values))))))" -" for-loop_194)" -" lst_188)))" +" for-loop_197)" +" lst_190)))" "(void)))" "(if(parsed-begin-for-syntax?" " body_2)" @@ -28041,26 +28331,26 @@ static const char *startup_source = "(parsed-begin-for-syntax-body" " body_2)" "(add1" -" phase_73)" +" phase_74)" "(find-or-create-header!_0" "(add1" -" phase_73))))" +" phase_74))))" "(void))))" "(values)))))" "(values)))))" "(if(not" " #f)" -"(for-loop_193" +"(for-loop_196" " rest_97)" "(values))))" "(values))))))" -" for-loop_193)" -" lst_186)))" +" for-loop_196)" +" lst_188)))" "(void))))))" " loop!_0)" " bodys_2" -" phase_70" -"(find-or-create-header!_0 phase_70)))" +" phase_71" +"(find-or-create-header!_0 phase_71)))" "(void))" "(values))))" "(let-values(((as-required?_0)" @@ -28076,12 +28366,12 @@ static const char *startup_source = "(begin" "((letrec-values(((loop!_1)" "(lambda(bodys_4" -" phase_74" +" phase_75" " header_10)" "(begin" " 'loop!" "(begin" -"(let-values(((lst_190)" +"(let-values(((lst_192)" " bodys_4)" "((start_34)" " 0))" @@ -28091,29 +28381,29 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_190)))" +" lst_192)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-naturals" " start_34)))" -"((letrec-values(((for-loop_195)" -"(lambda(lst_191" +"((letrec-values(((for-loop_115)" +"(lambda(lst_193" " pos_92)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_191)" +" lst_193)" " #t" " #f)" "(let-values(((body_3)" "(unsafe-car" -" lst_191))" +" lst_193))" "((rest_84)" "(unsafe-cdr" -" lst_191))" -"((i_141)" +" lst_193))" +"((i_140)" " pos_92))" "(let-values((()" "(let-values()" @@ -28135,7 +28425,7 @@ static const char *startup_source = " cctx_3)" "(let-values()" "(reverse$1" -"(let-values(((lst_192)" +"(let-values(((lst_194)" " binding-syms_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -28143,24 +28433,24 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_192)))" -"((letrec-values(((for-loop_196)" +" lst_194)))" +"((letrec-values(((for-loop_198)" "(lambda(fold-var_3" -" lst_169)" +" lst_172)" "(begin" " 'for-loop" "(if(pair?" -" lst_169)" +" lst_172)" "(let-values(((binding-sym_0)" "(unsafe-car" -" lst_169))" +" lst_172))" "((rest_85)" "(unsafe-cdr" -" lst_169)))" +" lst_172)))" +"(let-values(((fold-var_175)" "(let-values(((fold-var_176)" -"(let-values(((fold-var_177)" " fold-var_3))" -"(let-values(((fold-var_162)" +"(let-values(((fold-var_92)" "(let-values()" "(cons" "(let-values()" @@ -28168,22 +28458,22 @@ static const char *startup_source = "(header-binding-sym-to-define-sym" " header_10)" " binding-sym_0))" -" fold-var_177))))" +" fold-var_176))))" "(values" -" fold-var_162)))))" +" fold-var_92)))))" "(if(not" " #f)" -"(for-loop_196" -" fold-var_176" +"(for-loop_198" +" fold-var_175" " rest_85)" -" fold-var_176)))" +" fold-var_175)))" " fold-var_3)))))" -" for-loop_196)" +" for-loop_198)" " null" -" lst_192)))))" +" lst_194)))))" "(let-values()" "(reverse$1" -"(let-values(((lst_193)" +"(let-values(((lst_104)" " binding-syms_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -28191,24 +28481,24 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_193)))" -"((letrec-values(((for-loop_197)" -"(lambda(fold-var_178" -" lst_194)" +" lst_104)))" +"((letrec-values(((for-loop_199)" +"(lambda(fold-var_177" +" lst_195)" "(begin" " 'for-loop" "(if(pair?" -" lst_194)" +" lst_195)" "(let-values(((binding-sym_1)" "(unsafe-car" -" lst_194))" +" lst_195))" "((rest_99)" "(unsafe-cdr" -" lst_194)))" +" lst_195)))" +"(let-values(((fold-var_178)" "(let-values(((fold-var_179)" +" fold-var_177))" "(let-values(((fold-var_180)" -" fold-var_178))" -"(let-values(((fold-var_90)" "(let-values()" "(cons" "(let-values()" @@ -28218,7 +28508,7 @@ static const char *startup_source = "(compile-context-self" " cctx_3))" "((phase37_1)" -" phase_74)" +" phase_75)" "((binding-sym38_0)" " binding-sym_1)" "((temp39_0)" @@ -28233,48 +28523,48 @@ static const char *startup_source = " phase37_1" " binding-sym38_0" " temp39_0)))" -" fold-var_180))))" +" fold-var_179))))" "(values" -" fold-var_90)))))" +" fold-var_180)))))" "(if(not" " #f)" -"(for-loop_197" -" fold-var_179" +"(for-loop_199" +" fold-var_178" " rest_99)" -" fold-var_179)))" -" fold-var_178)))))" -" for-loop_197)" +" fold-var_178)))" +" fold-var_177)))))" +" for-loop_199)" " null" -" lst_193))))))))" +" lst_104))))))))" "(let-values(((rhs_1)" "(compile$2" "(parsed-define-values-rhs" " body_3)" -"(let-values(((the-struct_49)" +"(let-values(((the-struct_48)" " cctx_3))" "(if(compile-context?" -" the-struct_49)" +" the-struct_48)" "(let-values(((phase41_0)" -" phase_74)" +" phase_75)" "((header42_0)" " header_10))" "(compile-context1.1" "(compile-context-namespace" -" the-struct_49)" +" the-struct_48)" " phase41_0" "(compile-context-self" -" the-struct_49)" +" the-struct_48)" "(compile-context-module-self" -" the-struct_49)" +" the-struct_48)" "(compile-context-full-module-name" -" the-struct_49)" +" the-struct_48)" "(compile-context-lazy-syntax-literals?" -" the-struct_49)" +" the-struct_48)" " header42_0))" "(raise-argument-error" " 'struct-copy" " \"compile-context?\"" -" the-struct_49)))" +" the-struct_48)))" "(if(=" "(length" " ids_5)" @@ -28288,11 +28578,11 @@ static const char *startup_source = " rhs_1" "(length" " def-syms_0)" -" phase_74" +" phase_75" "(as-required?_0" " header_10))" "(add-body!_0" -" phase_74" +" phase_75" "(propagate-inline-property" "(correlate*" "(parsed-s" @@ -28314,14 +28604,14 @@ static const char *startup_source = "(let-values()" "(begin" "(add-body!_0" -" phase_74" +" phase_75" "(list*" " 'if" " #f" "(list*" " 'begin" "(reverse$1" -"(let-values(((lst_195)" +"(let-values(((lst_106)" " def-syms_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -28329,8 +28619,8 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_195)))" -"((letrec-values(((for-loop_198)" +" lst_106)))" +"((letrec-values(((for-loop_200)" "(lambda(fold-var_181" " lst_196)" "(begin" @@ -28359,45 +28649,45 @@ static const char *startup_source = " fold-var_36)))))" "(if(not" " #f)" -"(for-loop_198" +"(for-loop_200" " fold-var_182" " rest_100)" " fold-var_182)))" " fold-var_181)))))" -" for-loop_198)" +" for-loop_200)" " null" -" lst_195)))))" +" lst_106)))))" " '((void))))" "(add-body!_0" -" phase_74" +" phase_75" "(compile-top-level-bind" " ids_5" " binding-syms_0" -"(let-values(((the-struct_50)" +"(let-values(((the-struct_49)" " cctx_3))" "(if(compile-context?" -" the-struct_50)" +" the-struct_49)" "(let-values(((phase43_0)" -" phase_74)" +" phase_75)" "((header44_0)" " header_10))" "(compile-context1.1" "(compile-context-namespace" -" the-struct_50)" +" the-struct_49)" " phase43_0" "(compile-context-self" -" the-struct_50)" +" the-struct_49)" "(compile-context-module-self" -" the-struct_50)" +" the-struct_49)" "(compile-context-full-module-name" -" the-struct_50)" +" the-struct_49)" "(compile-context-lazy-syntax-literals?" -" the-struct_50)" +" the-struct_49)" " header44_0))" "(raise-argument-error" " 'struct-copy" " \"compile-context?\"" -" the-struct_50)))" +" the-struct_49)))" " #f)))))))))))" "(if(parsed-define-syntaxes?" " body_3)" @@ -28411,7 +28701,7 @@ static const char *startup_source = "(let-values(((next-header_0)" "(find-or-create-header!_0" "(add1" -" phase_74))))" +" phase_75))))" "(let-values(((gen-syms_0)" "(reverse$1" "(let-values(((lst_197)" @@ -28423,7 +28713,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_197)))" -"((letrec-values(((for-loop_199)" +"((letrec-values(((for-loop_201)" "(lambda(fold-var_184" " lst_198)" "(begin" @@ -28457,44 +28747,44 @@ static const char *startup_source = " fold-var_187)))))" "(if(not" " #f)" -"(for-loop_199" +"(for-loop_201" " fold-var_185" " rest_101)" " fold-var_185)))" " fold-var_184)))))" -" for-loop_199)" +" for-loop_201)" " null" " lst_197))))))" "(let-values(((rhs_2)" "(compile$2" "(parsed-define-syntaxes-rhs" " body_3)" -"(let-values(((the-struct_51)" +"(let-values(((the-struct_50)" " cctx_3))" "(if(compile-context?" -" the-struct_51)" +" the-struct_50)" "(let-values(((phase45_0)" "(add1" -" phase_74))" +" phase_75))" "((header46_0)" " next-header_0))" "(compile-context1.1" "(compile-context-namespace" -" the-struct_51)" +" the-struct_50)" " phase45_0" "(compile-context-self" -" the-struct_51)" +" the-struct_50)" "(compile-context-module-self" -" the-struct_51)" +" the-struct_50)" "(compile-context-full-module-name" -" the-struct_51)" +" the-struct_50)" "(compile-context-lazy-syntax-literals?" -" the-struct_51)" +" the-struct_50)" " header46_0))" "(raise-argument-error" " 'struct-copy" " \"compile-context?\"" -" the-struct_51))))))" +" the-struct_50))))))" "(let-values((()" "(begin" "(definition-callback_0)" @@ -28506,7 +28796,7 @@ static const char *startup_source = "(length" " gen-syms_0)" "(add1" -" phase_74)" +" phase_75)" "(as-required?_0" " header_10))" "(values))))" @@ -28529,7 +28819,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_200)))" -"((letrec-values(((for-loop_200)" +"((letrec-values(((for-loop_202)" "(lambda(fold-var_188" " lst_201" " lst_202)" @@ -28570,13 +28860,13 @@ static const char *startup_source = " fold-var_191)))))" "(if(not" " #f)" -"(for-loop_200" +"(for-loop_202" " fold-var_189" " rest_102" " rest_103)" " fold-var_189)))" " fold-var_188)))))" -" for-loop_200)" +" for-loop_202)" " null" " lst_199" " lst_200))))))" @@ -28586,7 +28876,7 @@ static const char *startup_source = "(let-values()" "(add-body!_0" "(add1" -" phase_74)" +" phase_75)" "(list" " 'let-values" "(list" @@ -28601,7 +28891,7 @@ static const char *startup_source = "(let-values()" "(add-body!_0" "(add1" -" phase_74)" +" phase_75)" "(generate-top-level-define-syntaxes" " gen-syms_0" " rhs_2" @@ -28609,31 +28899,31 @@ static const char *startup_source = "(compile-top-level-bind" " ids_6" " binding-syms_1" -"(let-values(((the-struct_52)" +"(let-values(((the-struct_51)" " cctx_3))" "(if(compile-context?" -" the-struct_52)" +" the-struct_51)" "(let-values(((phase47_0)" -" phase_74)" +" phase_75)" "((header48_0)" " header_10))" "(compile-context1.1" "(compile-context-namespace" -" the-struct_52)" +" the-struct_51)" " phase47_0" "(compile-context-self" -" the-struct_52)" +" the-struct_51)" "(compile-context-module-self" -" the-struct_52)" +" the-struct_51)" "(compile-context-full-module-name" -" the-struct_52)" +" the-struct_51)" "(compile-context-lazy-syntax-literals?" -" the-struct_52)" +" the-struct_51)" " header48_0))" "(raise-argument-error" " 'struct-copy" " \"compile-context?\"" -" the-struct_52)))" +" the-struct_51)))" " gen-syms_0)))))" "(set! saw-define-syntaxes?_0" " #t)))))))))))" @@ -28644,126 +28934,126 @@ static const char *startup_source = "(parsed-begin-for-syntax-body" " body_3)" "(add1" -" phase_74)" +" phase_75)" "(find-or-create-header!_0" "(add1" -" phase_74))))" -"(if(let-values(((or-part_224)" +" phase_75))))" +"(if(let-values(((or-part_223)" "(parsed-#%declare?" " body_3)))" +"(if or-part_223" +" or-part_223" +"(let-values(((or-part_224)" +"(parsed-module?" +" body_3)))" "(if or-part_224" " or-part_224" -"(let-values(((or-part_225)" -"(parsed-module?" -" body_3)))" -"(if or-part_225" -" or-part_225" "(parsed-require?" " body_3)))))" "(let-values()" "(let-values(((e_34)" "(other-form-callback_0" " body_3" -"(let-values(((the-struct_53)" +"(let-values(((the-struct_52)" " cctx_3))" "(if(compile-context?" -" the-struct_53)" +" the-struct_52)" "(let-values(((phase49_0)" -" phase_74)" +" phase_75)" "((header50_0)" " header_10))" "(compile-context1.1" "(compile-context-namespace" -" the-struct_53)" +" the-struct_52)" " phase49_0" "(compile-context-self" -" the-struct_53)" +" the-struct_52)" "(compile-context-module-self" -" the-struct_53)" +" the-struct_52)" "(compile-context-full-module-name" -" the-struct_53)" +" the-struct_52)" "(compile-context-lazy-syntax-literals?" -" the-struct_53)" +" the-struct_52)" " header50_0))" "(raise-argument-error" " 'struct-copy" " \"compile-context?\"" -" the-struct_53))))))" +" the-struct_52))))))" "(if e_34" "(let-values()" "(begin" "(compiled-expression-callback_0" " e_34" " #f" -" phase_74" +" phase_75" "(as-required?_0" " header_10))" "(add-body!_0" -" phase_74" +" phase_75" " e_34)))" "(void))))" "(let-values()" "(let-values(((e_35)" "(compile$2" " body_3" -"(let-values(((the-struct_54)" +"(let-values(((the-struct_53)" " cctx_3))" "(if(compile-context?" -" the-struct_54)" +" the-struct_53)" "(let-values(((phase51_0)" -" phase_74)" +" phase_75)" "((header52_0)" " header_10))" "(compile-context1.1" "(compile-context-namespace" -" the-struct_54)" +" the-struct_53)" " phase51_0" "(compile-context-self" -" the-struct_54)" +" the-struct_53)" "(compile-context-module-self" -" the-struct_54)" +" the-struct_53)" "(compile-context-full-module-name" -" the-struct_54)" +" the-struct_53)" "(compile-context-lazy-syntax-literals?" -" the-struct_54)" +" the-struct_53)" " header52_0))" "(raise-argument-error" " 'struct-copy" " \"compile-context?\"" -" the-struct_54)))" +" the-struct_53)))" " #f" "(=" -" i_141" +" i_140" " last-i_0))))" "(begin" "(compiled-expression-callback_0" " e_35" " #f" -" phase_74" +" phase_75" "(as-required?_0" " header_10))" "(add-body!_0" -" phase_74" +" phase_75" " e_35)))))))))" "(values)))))" "(values)))))" "(if(not" " #f)" -"(for-loop_195" +"(for-loop_115" " rest_84" "(+" " pos_92" " 1))" "(values))))" "(values))))))" -" for-loop_195)" -" lst_190" +" for-loop_115)" +" lst_192" " start_34)))" "(void))))))" " loop!_1)" " bodys_2" -" phase_70" -"(find-or-create-header!_0 phase_70))" +" phase_71" +"(find-or-create-header!_0 phase_71))" "(values))))" "(let-values(((encoded-root-expand-pos_0)" "(if encoded-root-expand-ctx-box_0" @@ -28799,47 +29089,47 @@ static const char *startup_source = "(let-values(((min-phase_0)" "(if(pair? phases-in-order_2)" "(car phases-in-order_2)" -" phase_70)))" +" phase_71)))" "(let-values(((max-phase_0)" "(if(pair? phases-in-order_2)" "(car" "(reverse$1" " phases-in-order_2))" -" phase_70)))" +" phase_71)))" "(let-values(((phase-to-link-info_0)" -"(let-values(((lst_107)" +"(let-values(((lst_203)" " phases-in-order_2))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" -"(check-list lst_107)))" -"((letrec-values(((for-loop_201)" -"(lambda(table_146" -" lst_203)" +"(check-list lst_203)))" +"((letrec-values(((for-loop_119)" +"(lambda(table_154" +" lst_204)" "(begin" " 'for-loop" "(if(pair?" -" lst_203)" -"(let-values(((phase_75)" +" lst_204)" +"(let-values(((phase_76)" "(unsafe-car" -" lst_203))" +" lst_204))" "((rest_104)" "(unsafe-cdr" -" lst_203)))" -"(let-values(((table_147)" -"(let-values(((table_148)" -" table_146))" -"(let-values(((table_149)" +" lst_204)))" +"(let-values(((table_155)" +"(let-values(((table_156)" +" table_154))" +"(let-values(((table_157)" "(let-values()" -"(let-values(((key_57" -" val_49)" +"(let-values(((key_58" +" val_50)" "(let-values()" "(let-values(((header_11)" "(hash-ref" " phase-to-header_0" -" phase_75" +" phase_76" " #f)))" "(let-values(((link-module-uses_0" " imports_2" @@ -28847,34 +29137,34 @@ static const char *startup_source = " def-decls_0)" "(generate-links+imports" " header_11" -" phase_75" +" phase_76" " cctx_3" " cross-linklet-inlining?_1)))" "(values" -" phase_75" +" phase_76" "(link-info1.1" " link-module-uses_0" " imports_2" " extra-inspectorsss_1" " def-decls_0)))))))" "(hash-set" -" table_148" -" key_57" -" val_49)))))" +" table_156" +" key_58" +" val_50)))))" "(values" -" table_149)))))" +" table_157)))))" "(if(not" " #f)" -"(for-loop_201" -" table_147" +"(for-loop_119" +" table_155" " rest_104)" -" table_147)))" -" table_146)))))" -" for-loop_201)" +" table_155)))" +" table_154)))))" +" for-loop_119)" " '#hash()" -" lst_107)))))" +" lst_203)))))" "(let-values(((body-linklets+module-use*s_0)" -"(let-values(((lst_204)" +"(let-values(((lst_205)" " phases-in-order_2))" "(begin" "(if(variable-reference-from-unsafe?" @@ -28882,41 +29172,41 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_204)))" -"((letrec-values(((for-loop_202)" -"(lambda(table_150" -" lst_155)" +" lst_205)))" +"((letrec-values(((for-loop_203)" +"(lambda(table_158" +" lst_206)" "(begin" " 'for-loop" "(if(pair?" -" lst_155)" -"(let-values(((phase_76)" +" lst_206)" +"(let-values(((phase_77)" "(unsafe-car" -" lst_155))" +" lst_206))" "((rest_105)" "(unsafe-cdr" -" lst_155)))" -"(let-values(((table_151)" -"(let-values(((table_152)" -" table_150))" -"(let-values(((table_153)" +" lst_206)))" +"(let-values(((table_159)" +"(let-values(((table_160)" +" table_158))" +"(let-values(((table_161)" "(let-values()" -"(let-values(((key_58" -" val_50)" +"(let-values(((key_59" +" val_51)" "(let-values()" "(let-values(((bodys_5)" "(hash-ref" " phase-to-body_0" -" phase_76)))" +" phase_77)))" "(let-values(((li_0)" "(hash-ref" " phase-to-link-info_0" -" phase_76)))" +" phase_77)))" "(let-values(((binding-sym-to-define-sym_0)" "(header-binding-sym-to-define-sym" "(hash-ref" " phase-to-header_0" -" phase_76))))" +" phase_77))))" "(let-values(((module-use*s_0)" "(module-uses-add-extra-inspectorsss" "(link-info-link-module-uses" @@ -28954,31 +29244,31 @@ 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_76))))" +" phase_77))))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_205)))" -"((letrec-values(((for-loop_180)" +" lst_207)))" +"((letrec-values(((for-loop_181)" "(lambda(fold-var_192" -" lst_206)" +" lst_208)" "(begin" " 'for-loop" "(if(pair?" -" lst_206)" +" lst_208)" "(let-values(((binding-sym_4)" "(unsafe-car" -" lst_206))" +" lst_208))" "((rest_106)" "(unsafe-cdr" -" lst_206)))" +" lst_208)))" "(let-values(((fold-var_193)" "(let-values(((fold-var_194)" " fold-var_192))" @@ -29002,14 +29292,14 @@ static const char *startup_source = " fold-var_195)))))" "(if(not" " #f)" -"(for-loop_180" +"(for-loop_181" " fold-var_193" " rest_106)" " fold-var_193)))" " fold-var_192)))))" -" for-loop_180)" +" for-loop_181)" " null" -" lst_205)))))" +" lst_207)))))" "(qq-append" "(reverse$1" " bodys_5)" @@ -29026,7 +29316,7 @@ static const char *startup_source = " get-module-linklet-info_0" " module-use*s_0)))))" "(values" -" phase_76" +" phase_77" "(cons" " linklet_1" "(list-tail" @@ -29035,75 +29325,23 @@ static const char *startup_source = "(length" " body-imports_0))))))))))))" "(hash-set" -" table_152" -" key_58" -" val_50)))))" -"(values" -" table_153)))))" -"(if(not" -" #f)" -"(for-loop_202" -" table_151" -" rest_105)" -" table_151)))" -" table_150)))))" -" for-loop_202)" -" '#hasheq()" -" lst_204)))))" -"(let-values(((body-linklets_0)" -"(let-values(((ht_113)" -" body-linklets+module-use*s_0))" -"(begin" -"(if(variable-reference-from-unsafe?" -"(#%variable-reference))" -"(void)" -"(let-values()" -"(check-in-hash" -" ht_113)))" -"((letrec-values(((for-loop_181)" -"(lambda(table_154" -" i_142)" -"(begin" -" 'for-loop" -"(if i_142" -"(let-values(((phase_52" -" l+mu*s_0)" -"(hash-iterate-key+value" -" ht_113" -" i_142)))" -"(let-values(((table_155)" -"(let-values(((table_156)" -" table_154))" -"(let-values(((table_157)" -"(let-values()" -"(let-values(((key_59" -" val_51)" -"(let-values()" -"(values" -" phase_52" -"(car" -" l+mu*s_0)))))" -"(hash-set" -" table_156" +" table_160" " key_59" " val_51)))))" "(values" -" table_157)))))" +" table_161)))))" "(if(not" " #f)" -"(for-loop_181" -" table_155" -"(hash-iterate-next" -" ht_113" -" i_142))" -" table_155)))" -" table_154)))))" -" for-loop_181)" +"(for-loop_203" +" table_159" +" rest_105)" +" table_159)))" +" table_158)))))" +" for-loop_203)" " '#hasheq()" -"(hash-iterate-first" -" ht_113))))))" -"(let-values(((phase-to-link-module-uses_1)" -"(let-values(((ht_114)" +" lst_205)))))" +"(let-values(((body-linklets_0)" +"(let-values(((ht_116)" " body-linklets+module-use*s_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -29111,56 +29349,51 @@ static const char *startup_source = "(void)" "(let-values()" "(check-in-hash" -" ht_114)))" -"((letrec-values(((for-loop_203)" -"(lambda(table_158" -" i_143)" +" ht_116)))" +"((letrec-values(((for-loop_204)" +"(lambda(table_162" +" i_141)" "(begin" " 'for-loop" -"(if i_143" -"(let-values(((phase_77" -" l+mu*s_1)" +"(if i_141" +"(let-values(((phase_53" +" l+mu*s_0)" "(hash-iterate-key+value" -" ht_114" -" i_143)))" -"(let-values(((table_159)" -"(let-values(((table_40)" -" table_158))" -"(let-values(((table_160)" +" ht_116" +" i_141)))" +"(let-values(((table_163)" +"(let-values(((table_121)" +" table_162))" +"(let-values(((table_122)" "(let-values()" "(let-values(((key_60" " val_52)" "(let-values()" "(values" -" phase_77" -"(module-uses-strip-extra-inspectorsss" -"(cdr" -" l+mu*s_1))))))" +" phase_53" +"(car" +" l+mu*s_0)))))" "(hash-set" -" table_40" +" table_121" " key_60" " val_52)))))" "(values" -" table_160)))))" +" table_122)))))" "(if(not" " #f)" -"(for-loop_203" -" table_159" +"(for-loop_204" +" table_163" "(hash-iterate-next" -" ht_114" -" i_143))" -" table_159)))" -" table_158)))))" -" for-loop_203)" +" ht_116" +" i_141))" +" table_163)))" +" table_162)))))" +" for-loop_204)" " '#hasheq()" "(hash-iterate-first" -" ht_114))))))" -"(let-values(((phase-to-link-module-uses-expr_0)" -"(serialize-phase-to-link-module-uses" -" phase-to-link-module-uses_1" -" mpis_14)))" -"(let-values(((phase-to-link-extra-inspectorsss_0)" -"(let-values(((ht_115)" +" ht_116))))))" +"(let-values(((phase-to-link-module-uses_1)" +"(let-values(((ht_117)" " body-linklets+module-use*s_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -29168,19 +29401,76 @@ static const char *startup_source = "(void)" "(let-values()" "(check-in-hash" -" ht_115)))" -"((letrec-values(((for-loop_204)" -"(lambda(table_161" -" i_144)" +" ht_117)))" +"((letrec-values(((for-loop_205)" +"(lambda(table_164" +" i_142)" "(begin" " 'for-loop" -"(if i_144" +"(if i_142" "(let-values(((phase_78" +" l+mu*s_1)" +"(hash-iterate-key+value" +" ht_117" +" i_142)))" +"(let-values(((table_165)" +"(let-values(((table_40)" +" table_164))" +"(let-values(((table_166)" +"(let-values()" +"(let-values(((key_61" +" val_53)" +"(let-values()" +"(values" +" phase_78" +"(module-uses-strip-extra-inspectorsss" +"(cdr" +" l+mu*s_1))))))" +"(hash-set" +" table_40" +" key_61" +" val_53)))))" +"(values" +" table_166)))))" +"(if(not" +" #f)" +"(for-loop_205" +" table_165" +"(hash-iterate-next" +" ht_117" +" i_142))" +" table_165)))" +" table_164)))))" +" for-loop_205)" +" '#hasheq()" +"(hash-iterate-first" +" ht_117))))))" +"(let-values(((phase-to-link-module-uses-expr_0)" +"(serialize-phase-to-link-module-uses" +" phase-to-link-module-uses_1" +" mpis_15)))" +"(let-values(((phase-to-link-extra-inspectorsss_0)" +"(let-values(((ht_118)" +" body-linklets+module-use*s_0))" +"(begin" +"(if(variable-reference-from-unsafe?" +"(#%variable-reference))" +"(void)" +"(let-values()" +"(check-in-hash" +" ht_118)))" +"((letrec-values(((for-loop_206)" +"(lambda(table_167" +" i_143)" +"(begin" +" 'for-loop" +"(if i_143" +"(let-values(((phase_79" " l+mu*s_2)" "(hash-iterate-key+value" -" ht_115" -" i_144)))" -"(let-values(((table_162)" +" ht_118" +" i_143)))" +"(let-values(((table_168)" "(let-values(((extra-inspectorsss_2)" "(module-uses-extract-extra-inspectorsss" "(cdr" @@ -29192,48 +29482,48 @@ static const char *startup_source = " body-imports_0))))" "(begin" " #t" -"((letrec-values(((for-loop_205)" -"(lambda(table_163)" +"((letrec-values(((for-loop_127)" +"(lambda(table_169)" "(begin" " 'for-loop" "(let-values()" -"(let-values(((table_164)" -"(let-values(((table_165)" -" table_163))" +"(let-values(((table_170)" +"(let-values(((table_171)" +" table_169))" "(if extra-inspectorsss_2" -"(let-values(((table_166)" -" table_165))" +"(let-values(((table_172)" +" table_171))" "(let-values(((table_44)" "(let-values()" -"(let-values(((key_61" -" val_53)" +"(let-values(((key_62" +" val_54)" "(let-values()" "(values" -" phase_78" +" phase_79" " extra-inspectorsss_2))))" "(hash-set" -" table_166" -" key_61" -" val_53)))))" +" table_172" +" key_62" +" val_54)))))" "(values" " table_44)))" -" table_165))))" -" table_164))))))" -" for-loop_205)" -" table_161)))))" +" table_171))))" +" table_170))))))" +" for-loop_127)" +" table_167)))))" "(if(not" " #f)" -"(for-loop_204" -" table_162" +"(for-loop_206" +" table_168" "(hash-iterate-next" -" ht_115" -" i_144))" -" table_162)))" -" table_161)))))" -" for-loop_204)" +" ht_118" +" i_143))" +" table_168)))" +" table_167)))))" +" for-loop_206)" " '#hash()" "(hash-iterate-first" -" ht_115))))))" +" ht_118))))))" "(values" " body-linklets_0" " min-phase_0" @@ -29247,30 +29537,30 @@ static const char *startup_source = "(compile-top-level-bind)" "(lambda(ids_7 binding-syms_2 cctx_11 trans-exprs_0)" "(begin" -"(let-values(((phase_79)(compile-context-phase cctx_11)))" +"(let-values(((phase_80)(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_15)(header-module-path-indexes header_12)))" +"(let-values(((mpis_16)(header-module-path-indexes header_12)))" "(let-values(((top-level-bind-scope_2)" "(root-expand-context-top-level-bind-scope" "(namespace-get-root-expand-ctx(compile-context-namespace cctx_11)))))" -"(let-values(((self-expr_0)(add-module-path-index! mpis_15 self_19)))" +"(let-values(((self-expr_0)(add-module-path-index! mpis_16 self_19)))" "(list*" " 'begin" "(reverse$1" -"(let-values(((lst_207) ids_7)" -"((lst_208) binding-syms_2)" -"((lst_209)" -"(let-values(((or-part_226) trans-exprs_0))" -"(if or-part_226" -" or-part_226" +"(let-values(((lst_209) ids_7)" +"((lst_210) binding-syms_2)" +"((lst_116)" +"(let-values(((or-part_111) trans-exprs_0))" +"(if or-part_111" +" or-part_111" "(reverse$1" -"(let-values(((lst_210) ids_7))" +"(let-values(((lst_117) ids_7))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_210)))" -"((letrec-values(((for-loop_206)" +"(let-values()(check-list lst_117)))" +"((letrec-values(((for-loop_207)" "(lambda(fold-var_196 lst_211)" "(begin" " 'for-loop" @@ -29288,23 +29578,23 @@ static const char *startup_source = " fold-var_198))))" "(values fold-var_199)))))" "(if(not #f)" -"(for-loop_206 fold-var_197 rest_107)" +"(for-loop_207 fold-var_197 rest_107)" " fold-var_197)))" " fold-var_196)))))" -" for-loop_206)" +" for-loop_207)" " null" -" lst_210))))))))" +" lst_117))))))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_207)))" -"(if(variable-reference-from-unsafe?(#%variable-reference))" -"(void)" -"(let-values()(check-list lst_208)))" -"(if(variable-reference-from-unsafe?(#%variable-reference))" -"(void)" "(let-values()(check-list lst_209)))" -"((letrec-values(((for-loop_207)" +"(if(variable-reference-from-unsafe?(#%variable-reference))" +"(void)" +"(let-values()(check-list lst_210)))" +"(if(variable-reference-from-unsafe?(#%variable-reference))" +"(void)" +"(let-values()(check-list lst_116)))" +"((letrec-values(((for-loop_208)" "(lambda(fold-var_200 lst_212 lst_3 lst_213)" "(begin" " 'for-loop" @@ -29331,7 +29621,7 @@ static const char *startup_source = " top-level-bind!-id" " id-stx_0" " self-expr_0" -" phase_79" +" phase_80" " phase-shift-id" " ns-id" "(list 'quote binding-sym_5)" @@ -29340,14 +29630,14 @@ static const char *startup_source = " fold-var_202))))" "(values fold-var_203)))))" "(if(not #f)" -"(for-loop_207 fold-var_201 rest_108 rest_109 rest_110)" +"(for-loop_208 fold-var_201 rest_108 rest_109 rest_110)" " fold-var_201)))" " fold-var_200)))))" -" for-loop_207)" +" for-loop_208)" " null" -" lst_207" -" lst_208" -" lst_209))))))))))))))" +" lst_209" +" lst_210" +" lst_116))))))))))))))" "(define-values" "(generate-top-level-define-syntaxes)" "(lambda(gen-syms_1 rhs_3 transformer-set!s_1 finish_1)" @@ -29373,21 +29663,21 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_214)))" -"((letrec-values(((for-loop_208)" +"((letrec-values(((for-loop_209)" "(lambda(fold-var_204 lst_215)" "(begin" " 'for-loop" "(if(pair? lst_215)" -"(let-values(((s_302)(unsafe-car lst_215))((rest_111)(unsafe-cdr lst_215)))" +"(let-values(((s_307)(unsafe-car lst_215))((rest_111)(unsafe-cdr lst_215)))" "(let-values(((fold-var_205)" "(let-values(((fold-var_206) fold-var_204))" "(let-values(((fold-var_207)" "(let-values()" "(cons(let-values() ''#f) fold-var_206))))" "(values fold-var_207)))))" -"(if(not #f)(for-loop_208 fold-var_205 rest_111) fold-var_205)))" +"(if(not #f)(for-loop_209 fold-var_205 rest_111) fold-var_205)))" " fold-var_204)))))" -" for-loop_208)" +" for-loop_209)" " null" " lst_214)))))))" "(list* 'begin finish_1 '((void)))))" @@ -29396,8 +29686,8 @@ static const char *startup_source = "(propagate-inline-property)" "(lambda(e_36 orig-s_22)" "(begin" -"(let-values(((v_161)(syntax-property$1 orig-s_22 'compiler-hint:cross-module-inline)))" -"(if v_161(correlated-property e_36 'compiler-hint:cross-module-inline v_161) e_36)))))" +"(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)))))" "(define-values" "(make-module-use-to-linklet)" "(lambda(cross-linklet-inlining?_2 ns_57 get-module-linklet-info_1 init-mu*s_0)" @@ -29418,12 +29708,12 @@ static const char *startup_source = "(hash-set! mu*-intern-table_0(cons mod-name_15(module-use-phase mu*_5)) mu*_5)" " mu*_5)))))))))" "(begin" -"(let-values(((lst_141) init-mu*s_0))" +"(let-values(((lst_142) init-mu*s_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_141)))" -"((letrec-values(((for-loop_168)" +"(let-values()(check-list lst_142)))" +"((letrec-values(((for-loop_171)" "(lambda(lst_216)" "(begin" " 'for-loop" @@ -29437,10 +29727,10 @@ static const char *startup_source = "(let-values()(intern-module-use*_0 mu*_6))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_168 rest_112)(values))))" +"(if(not #f)(for-loop_171 rest_112)(values))))" "(values))))))" -" for-loop_168)" -" lst_141)))" +" for-loop_171)" +" lst_142)))" "(void)" "(lambda(mu*-or-instance_0)" "(if(1/instance? mu*-or-instance_0)" @@ -29452,10 +29742,10 @@ static const char *startup_source = "(let-values(((mu*_7) mu*-or-instance_0))" "(let-values(((mod-name_16)(1/module-path-index-resolve(module-use-module mu*_7))))" "(let-values(((mli_0)" -"(let-values(((or-part_227)" +"(let-values(((or-part_225)" "(get-module-linklet-info_1 mod-name_16(module-use-phase mu*_7))))" -"(if or-part_227" -" or-part_227" +"(if or-part_225" +" or-part_225" "(namespace->module-linklet-info" " ns_57" " mod-name_16" @@ -29481,8 +29771,8 @@ static const char *startup_source = "(1/linklet-import-variables" "(module-linklet-info-linklet-or-instance mli_0)))" "((lst_219)" -"(let-values(((or-part_228) extra-inspectorsss_3))" -"(if or-part_228 or-part_228 mus_2))))" +"(let-values(((or-part_226) extra-inspectorsss_3))" +"(if or-part_226 or-part_226 mus_2))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" @@ -29493,7 +29783,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_219)))" -"((letrec-values(((for-loop_209)" +"((letrec-values(((for-loop_210)" "(lambda(fold-var_208 lst_220 lst_221 lst_222)" "(begin" " 'for-loop" @@ -29536,14 +29826,14 @@ static const char *startup_source = " fold-var_210))))" "(values fold-var_211)))))" "(if(not #f)" -"(for-loop_209" +"(for-loop_210" " fold-var_209" " rest_113" " rest_114" " rest_115)" " fold-var_209)))" " fold-var_208)))))" -" for-loop_209)" +" for-loop_210)" " null" " lst_217" " lst_218" @@ -29555,65 +29845,65 @@ static const char *startup_source = "(build-shared-data-linklet)" "(lambda(cims_0 ns_42)" "(begin" -"(let-values(((mpis_16)(make-module-path-index-table)))" +"(let-values(((mpis_17)(make-module-path-index-table)))" "(let-values(((mpi-trees_0)" "(map-cim-tree" " cims_0" "(lambda(cim_1)" -"(let-values(((vec_53 i_145)" -"(let-values(((vec_54 len_28)" -"(let-values(((vec_55)(compiled-in-memory-mpis cim_1)))" +"(let-values(((vec_55 i_144)" +"(let-values(((vec_56 len_28)" +"(let-values(((vec_57)(compiled-in-memory-mpis cim_1)))" "(begin" -"(check-vector vec_55)" -"(values vec_55(unsafe-vector-length vec_55))))))" +"(check-vector vec_57)" +"(values vec_57(unsafe-vector-length vec_57))))))" "(begin" " #f" -"((letrec-values(((for-loop_91)" -"(lambda(vec_56 i_146 pos_93)" +"((letrec-values(((for-loop_95)" +"(lambda(vec_58 i_145 pos_93)" "(begin" " 'for-loop" "(if(unsafe-fx< pos_93 len_28)" -"(let-values(((mpi_42)" -"(unsafe-vector-ref vec_54 pos_93)))" -"(let-values(((vec_57 i_147)" -"(let-values(((vec_58) vec_56)" -"((i_148) i_146))" -"(let-values(((vec_59 i_149)" +"(let-values(((mpi_43)" +"(unsafe-vector-ref vec_56 pos_93)))" +"(let-values(((vec_59 i_146)" +"(let-values(((vec_60) vec_58)" +"((i_147) i_145))" +"(let-values(((vec_61 i_148)" "(let-values()" "(let-values(((new-vec_3)" "(if(eq?" -" i_148" +" i_147" "(unsafe-vector*-length" -" vec_58))" +" vec_60))" "(grow-vector" -" vec_58)" -" vec_58)))" +" vec_60)" +" vec_60)))" "(begin" "(unsafe-vector*-set!" " new-vec_3" -" i_148" +" i_147" "(let-values()" "(add-module-path-index!/pos" -" mpis_16" -" mpi_42)))" +" mpis_17" +" mpi_43)))" "(values" " new-vec_3" "(unsafe-fx+" -" i_148" -" 1)))))))" -"(values vec_59 i_149)))))" -"(if(not #f)" -"(for-loop_91" -" vec_57" " i_147" +" 1)))))))" +"(values vec_61 i_148)))))" +"(if(not #f)" +"(for-loop_95" +" vec_59" +" i_146" "(unsafe-fx+ 1 pos_93))" -"(values vec_57 i_147))))" -"(values vec_56 i_146))))))" -" for-loop_91)" +"(values vec_59 i_146))))" +"(values vec_58 i_145))))))" +" for-loop_95)" "(make-vector 16)" " 0" " 0)))))" -"(shrink-vector vec_53 i_145))))))" +"(shrink-vector vec_55 i_144))))))" "(let-values(((syntax-literals_2)(make-syntax-literals)))" "(let-values(((syntax-literals-trees_0)" "(map-cim-tree" @@ -29635,7 +29925,7 @@ static const char *startup_source = "(set! module-uses-tables-count_0(add1 pos_94))" " pos_94))))))" "(let-values(((syntax-literals-expr_0)" -"(generate-eager-syntax-literals! syntax-literals_2 mpis_16 0 #f ns_42)))" +"(generate-eager-syntax-literals! syntax-literals_2 mpis_17 0 #f ns_42)))" "(let-values(((phase-to-link-module-uses-expr_1)" "(list*" " 'vector" @@ -29645,16 +29935,16 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_223)))" -"((letrec-values(((for-loop_102)" -"(lambda(fold-var_67 lst_88)" +"((letrec-values(((for-loop_106)" +"(lambda(fold-var_67 lst_89)" "(begin" " 'for-loop" -"(if(pair? lst_88)" +"(if(pair? lst_89)" "(let-values(((phase-to-link-module-uses_2)" -"(unsafe-car lst_88))" -"((rest_116)(unsafe-cdr lst_88)))" +"(unsafe-car lst_89))" +"((rest_116)(unsafe-cdr lst_89)))" "(let-values(((fold-var_29)" -"(let-values(((fold-var_153)" +"(let-values(((fold-var_155)" " fold-var_67))" "(let-values(((fold-var_9)" "(let-values()" @@ -29662,14 +29952,14 @@ static const char *startup_source = "(let-values()" "(serialize-phase-to-link-module-uses" " phase-to-link-module-uses_2" -" mpis_16))" -" fold-var_153))))" +" mpis_17))" +" fold-var_155))))" "(values fold-var_9)))))" "(if(not #f)" -"(for-loop_102 fold-var_29 rest_116)" +"(for-loop_106 fold-var_29 rest_116)" " fold-var_29)))" " fold-var_67)))))" -" for-loop_102)" +" for-loop_106)" " null" " lst_223)))))))" "(1/compile-linklet" @@ -29683,7 +29973,7 @@ static const char *startup_source = " phase-to-link-modules-trees" " syntax-literals" " syntax-literals-trees))" -"(list 'define-values(list mpi-vector-id)(generate-module-path-index-deserialize mpis_16))" +"(list 'define-values(list mpi-vector-id)(generate-module-path-index-deserialize mpis_17))" "(list 'define-values '(mpi-vector-trees)(list 'quote mpi-trees_0))" "(list 'define-values '(phase-to-link-modules-vector) phase-to-link-module-uses-expr_1)" "(list" @@ -29697,48 +29987,48 @@ static const char *startup_source = "(list 'quote syntax-literals-trees_0))))))))))))))))" "(define-values" "(map-cim-tree)" -"(lambda(cims_1 proc_7)" +"(lambda(cims_1 proc_8)" "(begin" "((letrec-values(((loop_38)" "(lambda(cims_2)" "(begin" " 'loop" "(reverse$1" -"(let-values(((lst_80) cims_2))" +"(let-values(((lst_81) cims_2))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_80)))" -"((letrec-values(((for-loop_92)" -"(lambda(fold-var_212 lst_81)" +"(let-values()(check-list lst_81)))" +"((letrec-values(((for-loop_96)" +"(lambda(fold-var_212 lst_82)" "(begin" " 'for-loop" -"(if(pair? lst_81)" -"(let-values(((cim_4)(unsafe-car lst_81))" -"((rest_117)(unsafe-cdr lst_81)))" +"(if(pair? lst_82)" +"(let-values(((cim_4)(unsafe-car lst_82))" +"((rest_117)(unsafe-cdr lst_82)))" "(let-values(((fold-var_156)" -"(let-values(((fold-var_165) fold-var_212))" -"(let-values(((fold-var_166)" +"(let-values(((fold-var_164) fold-var_212))" +"(let-values(((fold-var_165)" "(let-values()" "(cons" "(let-values()" "(vector" -"(proc_7 cim_4)" +"(proc_8 cim_4)" "(loop_38" "(compiled-in-memory-pre-compiled-in-memorys" " cim_4))" "(loop_38" "(compiled-in-memory-post-compiled-in-memorys" " cim_4))))" -" fold-var_165))))" -"(values fold-var_166)))))" +" fold-var_164))))" +"(values fold-var_165)))))" "(if(not #f)" -"(for-loop_92 fold-var_156 rest_117)" +"(for-loop_96 fold-var_156 rest_117)" " fold-var_156)))" " fold-var_212)))))" -" for-loop_92)" +" for-loop_96)" " null" -" lst_80))))))))" +" lst_81))))))))" " loop_38)" " cims_1))))" "(define-values" @@ -29770,43 +30060,43 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-naturals start_35)))" -"((letrec-values(((for-loop_210)" -"(lambda(table_167 lst_99 pos_95)" +"((letrec-values(((for-loop_211)" +"(lambda(table_173 lst_100 pos_95)" "(begin" " 'for-loop" -"(if(if(pair? lst_99) #t #f)" -"(let-values(((cim_5)(unsafe-car lst_99))" -"((rest_35)(unsafe-cdr lst_99))" -"((i_74) pos_95))" -"(let-values(((table_168)" -"(let-values(((table_169) table_167))" -"(let-values(((table_170)" +"(if(if(pair? lst_100) #t #f)" +"(let-values(((cim_5)(unsafe-car lst_100))" +"((rest_36)(unsafe-cdr lst_100))" +"((i_77) pos_95))" +"(let-values(((table_174)" +"(let-values(((table_175) table_173))" +"(let-values(((table_176)" "(let-values()" -"(let-values(((key_62" -" val_54)" +"(let-values(((key_63" +" val_55)" "(let-values()" "(values" "(string->symbol" "(number->string" -" i_74))" +" i_77))" "((if to-source?_1" " values" " compiled-in-memory-linklet-directory)" " cim_5)))))" "(hash-set" -" table_169" -" key_62" -" val_54)))))" -"(values table_170)))))" +" table_175" +" key_63" +" val_55)))))" +"(values table_176)))))" "(if(not #f)" -"(for-loop_210 table_168 rest_35(+ pos_95 1))" -" table_168)))" -" table_167)))))" -" for-loop_210)" +"(for-loop_211 table_174 rest_36(+ pos_95 1))" +" table_174)))" +" table_173)))))" +" for-loop_211)" " '#hasheq()" " lst_224" " start_35)))))" -"(let-values(((ht_116)" +"(let-values(((ht_119)" "(if merge-serialization?_0" "(hash-set" " sequence-ht_0" @@ -29818,10 +30108,10 @@ static const char *startup_source = "(hasheq 0(build-shared-data-linklet cims_3 ns_58))))))" " sequence-ht_0)))" "(if to-source?_1" -"(let-values() ht_116)" +"(let-values() ht_119)" "(let-values()" "(compiled-in-memory1.1" -"(1/hash->linklet-directory ht_116)" +"(1/hash->linklet-directory ht_119)" " #f" " #f" " #f" @@ -29838,9 +30128,9 @@ static const char *startup_source = "(compiled-top->compiled-tops)" "(lambda(ld_0)" "(begin" -"(let-values(((ht_117)(1/linklet-directory->hash ld_0)))" +"(let-values(((ht_120)(1/linklet-directory->hash ld_0)))" "(reverse$1" -"(let-values(((start_36) 0)((end_25)(hash-count ht_117))((inc_19) 1))" +"(let-values(((start_36) 0)((end_25)(hash-count ht_120))((inc_19) 1))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" @@ -29850,16 +30140,16 @@ static const char *startup_source = "(begin" " 'for-loop" "(if(< pos_96 end_25)" -"(let-values(((i_90) pos_96))" +"(let-values(((i_93) pos_96))" "(let-values(((fold-var_18)" "(let-values(((top_0)" "(hash-ref" -" ht_117" -"(string->symbol(number->string i_90))" +" ht_120" +"(string->symbol(number->string i_93))" " #f)))" "(begin" " #t" -"((letrec-values(((for-loop_211)" +"((letrec-values(((for-loop_112)" "(lambda(fold-var_64)" "(begin" " 'for-loop" @@ -29880,7 +30170,7 @@ static const char *startup_source = " fold-var_215)))" " fold-var_213))))" " fold-var_70))))))" -" for-loop_211)" +" for-loop_112)" " fold-var_17)))))" "(if(not #f)(for-loop_10 fold-var_18(+ pos_96 inc_19)) fold-var_18)))" " fold-var_17)))))" @@ -29891,7 +30181,7 @@ static const char *startup_source = "(remove-nontail-purely-functional)" "(lambda(cims_4)" "(begin" -"((letrec-values(((loop_88)" +"((letrec-values(((loop_89)" "(lambda(cims_5)" "(begin" " 'loop" @@ -29902,9 +30192,9 @@ static const char *startup_source = "(if(if(compiled-in-memory?(car cims_5))" "(compiled-in-memory-purely-functional?(car cims_5))" " #f)" -"(let-values()(loop_88(cdr cims_5)))" +"(let-values()(loop_89(cdr cims_5)))" "(let-values()(cons(car cims_5)(cdr cims_5))))))))))" -" loop_88)" +" loop_89)" " cims_4))))" "(define-values" "(struct:known-defined/delay known-defined/delay2.1 known-defined/delay? known-defined/delay-thunk)" @@ -30058,12 +30348,12 @@ static const char *startup_source = "(if(unsafe-fx< index_1 1)" "(let-values()" "(let-values(((v_4)(correlated-e e_39)))" -"(if(let-values(((or-part_76)(string? v_4)))" -"(if or-part_76" -" or-part_76" -"(let-values(((or-part_77)(number? v_4)))" -"(if or-part_77" -" or-part_77" +"(if(let-values(((or-part_74)(string? v_4)))" +"(if or-part_74" +" or-part_74" +"(let-values(((or-part_75)(number? v_4)))" +"(if or-part_75" +" or-part_75" "(let-values(((or-part_29)" "(boolean? v_4)))" "(if or-part_29" @@ -30075,13 +30365,13 @@ static const char *startup_source = "(let-values(((rator_0)" "(correlated-e" "(car v_4))))" -"(let-values(((or-part_70)" +"(let-values(((or-part_69)" "(hash-ref" " locals_2" " rator_0" " #f)))" -"(if or-part_70" -" or-part_70" +"(if or-part_69" +" or-part_69" "(lookup-defn" " defns_1" " rator_0))))" @@ -30094,32 +30384,32 @@ static const char *startup_source = " s_79))" "(let-values(((_17_1" " e18_1)" -"(let-values(((s_303)" +"(let-values(((s_308)" "(if(1/syntax?" " s_79)" "(syntax-e$2" " s_79)" " s_79)))" "(if(pair?" -" s_303)" +" s_308)" "(let-values(((_19_0)" "(let-values(((s_80)" "(car" -" s_303)))" +" s_308)))" " s_80))" "((e20_0)" -"(let-values(((s_159)" +"(let-values(((s_161)" "(cdr" -" s_303)))" -"(let-values(((s_304)" +" s_308)))" +"(let-values(((s_309)" "(if(1/syntax?" -" s_159)" +" s_161)" "(syntax-e$2" -" s_159)" -" s_159)))" +" s_161)" +" s_161)))" "(let-values(((flat-s_13)" "(to-syntax-list.1$1" -" s_304)))" +" s_309)))" "(if(not" " flat-s_13)" "(let-values()" @@ -30150,8 +30440,8 @@ static const char *startup_source = " e18_1))))))" "(let-values(((n-args_0)" "(length e18_0)))" -"(if(let-values(((or-part_229)" -"(if(let-values(((or-part_63)" +"(if(let-values(((or-part_227)" +"(if(let-values(((or-part_228)" "(if(known-struct-op?" " d_30)" "(if(eq?" @@ -30164,8 +30454,8 @@ static const char *startup_source = " n-args_0)" " #f)" " #f)))" -"(if or-part_63" -" or-part_63" +"(if or-part_228" +" or-part_228" "(if(known-function?" " d_30)" "(if(known-function-pure?" @@ -30211,7 +30501,7 @@ static const char *startup_source = "(values" " result_81)))))" "(if(if(not" -"((lambda x_56" +"((lambda x_54" "(not" " result_40))" " e_42))" @@ -30227,8 +30517,8 @@ static const char *startup_source = " #t" " lst_8)))" " #f)))" -"(if or-part_229" -" or-part_229" +"(if or-part_227" +" or-part_227" "(if(known-function-of-satisfying?" " d_30)" "(if(=" @@ -30254,24 +30544,24 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_226)))" -"((letrec-values(((for-loop_94)" +"((letrec-values(((for-loop_98)" "(lambda(result_82" -" lst_176" +" lst_178" " lst_227)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_176)" +" lst_178)" "(pair?" " lst_227)" " #f)" "(let-values(((e_43)" "(unsafe-car" -" lst_176))" +" lst_178))" "((rest_119)" "(unsafe-cdr" -" lst_176))" -"((key_63)" +" lst_178))" +"((key_64)" "(unsafe-car" " lst_227))" "((rest_120)" @@ -30289,7 +30579,7 @@ static const char *startup_source = " locals_2))" "(satisfies?" " e_43" -" key_63" +" key_64" " defns_1" " locals_2)" " #f)))))" @@ -30301,21 +30591,21 @@ static const char *startup_source = " result_42))" " e_43))" "(if(not" -"((lambda x_57" +"((lambda x_55" "(not" " result_42))" -" key_63))" +" key_64))" "(not" " #f)" " #f)" " #f)" -"(for-loop_94" +"(for-loop_98" " result_42" " rest_119" " rest_120)" " result_42)))" " result_82)))))" -" for-loop_94)" +" for-loop_98)" " #t" " lst_10" " lst_226)))" @@ -30325,11 +30615,11 @@ static const char *startup_source = " #f))))" " c1_24)" "(let-values()" -"(if(let-values(((or-part_230)" +"(if(let-values(((or-part_175)" "(self-quoting-in-linklet?" " v_4)))" -"(if or-part_230" -" or-part_230" +"(if or-part_175" +" or-part_175" "(if(symbol? v_4)" "(let-values(((or-part_35)" "(hash-ref" @@ -30344,11 +30634,11 @@ static const char *startup_source = " v_4)))" "(if or-part_36" " or-part_36" -"(let-values(((or-part_72)" +"(let-values(((or-part_68)" "(built-in-symbol?" " v_4)))" -"(if or-part_72" -" or-part_72" +"(if or-part_68" +" or-part_68" "(ready-variable?_0" " v_4)))))))" " #f)))" @@ -30368,24 +30658,24 @@ static const char *startup_source = " ids22_1" " rhs23_1" " body24_1)" -"(let-values(((s_305)" +"(let-values(((s_310)" "(if(1/syntax?" " s_74)" "(syntax-e$2" " s_74)" " s_74)))" -"(if(pair? s_305)" +"(if(pair? s_310)" "(let-values(((_25_0)" "(let-values(((s_28)" "(car" -" s_305)))" +" s_310)))" " s_28))" "((ids26_0" " rhs27_0" " body28_0)" "(let-values(((s_29)" "(cdr" -" s_305)))" +" s_310)))" "(let-values(((s_30)" "(if(1/syntax?" " s_29)" @@ -30396,18 +30686,18 @@ static const char *startup_source = " s_30)" "(let-values(((ids29_0" " rhs30_0)" -"(let-values(((s_306)" +"(let-values(((s_311)" "(car" " s_30)))" -"(let-values(((s_307)" +"(let-values(((s_312)" "(if(1/syntax?" -" s_306)" +" s_311)" "(syntax-e$2" -" s_306)" -" s_306)))" +" s_311)" +" s_311)))" "(let-values(((flat-s_14)" "(to-syntax-list.1$1" -" s_307)))" +" s_312)))" "(if(not" " flat-s_14)" "(let-values()" @@ -30439,7 +30729,7 @@ static const char *startup_source = " 'for-loop" "(if(pair?" " lst_229)" -"(let-values(((s_308)" +"(let-values(((s_313)" "(unsafe-car" " lst_229))" "((rest_121)" @@ -30457,48 +30747,48 @@ static const char *startup_source = "(let-values(((ids36_0" " rhs37_0)" "(let-values()" -"(let-values(((s_309)" +"(let-values(((s_314)" "(if(1/syntax?" -" s_308)" +" s_313)" "(syntax-e$2" -" s_308)" -" s_308)))" +" s_313)" +" s_313)))" "(if(pair?" -" s_309)" +" s_314)" "(let-values(((ids32_0)" "(let-values(((s_50)" "(car" -" s_309)))" +" s_314)))" " s_50))" "((rhs33_0)" -"(let-values(((s_310)" +"(let-values(((s_315)" "(cdr" -" s_309)))" -"(let-values(((s_311)" +" s_314)))" +"(let-values(((s_316)" "(if(1/syntax?" -" s_310)" +" s_315)" "(syntax-e$2" -" s_310)" -" s_310)))" +" s_315)" +" s_315)))" "(if(pair?" -" s_311)" +" s_316)" "(let-values(((rhs34_0)" "(let-values(((s_52)" "(car" -" s_311)))" +" s_316)))" " s_52))" "(()" -"(let-values(((s_312)" +"(let-values(((s_317)" "(cdr" -" s_311)))" -"(let-values(((s_156)" +" s_316)))" +"(let-values(((s_157)" "(if(1/syntax?" -" s_312)" +" s_317)" "(syntax-e$2" -" s_312)" -" s_312)))" +" s_317)" +" s_317)))" "(if(null?" -" s_156)" +" s_157)" "(values)" "((lambda(false_3" " str_8" @@ -30561,34 +30851,34 @@ static const char *startup_source = "(reverse$1" " rhs_4)))))))))" "((body31_0)" -"(let-values(((s_313)" +"(let-values(((s_318)" "(cdr" " s_30)))" -"(let-values(((s_314)" +"(let-values(((s_319)" "(if(1/syntax?" -" s_313)" +" s_318)" "(syntax-e$2" -" s_313)" -" s_313)))" +" s_318)" +" s_318)))" "(if(pair?" -" s_314)" +" s_319)" "(let-values(((body35_0)" -"(let-values(((s_315)" +"(let-values(((s_320)" "(car" -" s_314)))" -" s_315))" +" s_319)))" +" s_320))" "(()" -"(let-values(((s_316)" +"(let-values(((s_321)" "(cdr" -" s_314)))" -"(let-values(((s_317)" +" s_319)))" +"(let-values(((s_322)" "(if(1/syntax?" -" s_316)" +" s_321)" "(syntax-e$2" -" s_316)" -" s_316)))" +" s_321)" +" s_321)))" "(if(null?" -" s_317)" +" s_322)" "(values)" "((lambda(false_6" " str_11" @@ -30687,11 +30977,11 @@ static const char *startup_source = "(values" " result_14)))))" "(if(if(not" -"((lambda x_58" +"((lambda x_56" " result_84)" " ids_13))" "(if(not" -"((lambda x_59" +"((lambda x_57" " result_84)" " rhs_9))" "(not" @@ -30726,23 +31016,23 @@ static const char *startup_source = " s_61)))" "(if(pair? s_62)" "(let-values(((_40_0)" -"(let-values(((s_84)" +"(let-values(((s_323)" "(car" " s_62)))" -" s_84))" +" s_323))" "((e41_0)" -"(let-values(((s_318)" +"(let-values(((s_324)" "(cdr" " s_62)))" -"(let-values(((s_319)" +"(let-values(((s_325)" "(if(1/syntax?" -" s_318)" +" s_324)" "(syntax-e$2" -" s_318)" -" s_318)))" +" s_324)" +" s_324)))" "(let-values(((flat-s_15)" "(to-syntax-list.1$1" -" s_319)))" +" s_325)))" "(if(not" " flat-s_15)" "(let-values()" @@ -30768,25 +31058,25 @@ static const char *startup_source = " \"bad syntax\"" " orig-s_25)))))" "(values #t _38_1 e39_1))))))" -"(if(let-values(((lst_233) e39_0))" +"(if(let-values(((lst_155) e39_0))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_233)))" +"(let-values()(check-list lst_155)))" "((letrec-values(((for-loop_215)" "(lambda(result_61" -" lst_234)" +" lst_233)" "(begin" " 'for-loop" "(if(pair?" -" lst_234)" +" lst_233)" "(let-values(((e_53)" "(unsafe-car" -" lst_234))" +" lst_233))" "((rest_123)" "(unsafe-cdr" -" lst_234)))" +" lst_233)))" "(let-values(((result_85)" "(let-values()" "(let-values(((result_86)" @@ -30800,7 +31090,7 @@ static const char *startup_source = "(values" " result_86)))))" "(if(if(not" -"((lambda x_60" +"((lambda x_58" "(not" " result_85))" " e_53))" @@ -30814,40 +31104,40 @@ static const char *startup_source = " result_61)))))" " for-loop_215)" " #t" -" lst_233)))" +" 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_88) e_39))" +"(let-values(((orig-s_26) s_88))" "(let-values(((_42_1 e43_1)" -"(let-values(((s_320)" +"(let-values(((s_326)" "(if(1/syntax?" -" s_204)" +" s_88)" "(syntax-e$2" -" s_204)" -" s_204)))" +" s_88)" +" s_88)))" "(if(pair?" -" s_320)" +" s_326)" "(let-values(((_44_0)" -"(let-values(((s_92)" +"(let-values(((s_89)" "(car" -" s_320)))" -" s_92))" +" s_326)))" +" s_89))" "((e45_0)" -"(let-values(((s_321)" +"(let-values(((s_327)" "(cdr" -" s_320)))" -"(let-values(((s_322)" +" s_326)))" +"(let-values(((s_328)" "(if(1/syntax?" -" s_321)" +" s_327)" "(syntax-e$2" -" s_321)" -" s_321)))" +" s_327)" +" s_327)))" "(let-values(((flat-s_16)" "(to-syntax-list.1$1" -" s_322)))" +" s_328)))" "(if(not" " flat-s_16)" "(let-values()" @@ -30873,24 +31163,25 @@ static const char *startup_source = " \"bad syntax\"" " orig-s_26)))))" "(values #t _42_1 e43_1))))))" -"(if(let-values(((lst_41) e43_0))" +"(if(let-values(((lst_234) e43_0))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_41)))" -"((letrec-values(((for-loop_52)" +"(let-values()(check-list lst_234)))" +"((letrec-values(((for-loop_216)" "(lambda(result_87" -" lst_42)" +" lst_235)" "(begin" " 'for-loop" -"(if(pair? lst_42)" +"(if(pair?" +" lst_235)" "(let-values(((e_56)" "(unsafe-car" -" lst_42))" -"((rest_17)" +" lst_235))" +"((rest_124)" "(unsafe-cdr" -" lst_42)))" +" lst_235)))" "(let-values(((result_88)" "(let-values()" "(let-values(((result_89)" @@ -30904,55 +31195,55 @@ static const char *startup_source = "(values" " result_89)))))" "(if(if(not" -"((lambda x_61" +"((lambda x_59" "(not" " result_88))" " e_56))" "(not" " #f)" " #f)" -"(for-loop_52" +"(for-loop_216" " result_88" -" rest_17)" +" rest_124)" " result_88)))" " result_87)))))" -" for-loop_52)" +" for-loop_216)" " #t" -" lst_41)))" +" 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_323) e_39))" -"(let-values(((orig-s_27) s_323))" +"(let-values(((s_96) e_39))" +"(let-values(((orig-s_27) s_96))" "(let-values(((_46_1 e47_1)" -"(let-values(((s_324)" +"(let-values(((s_329)" "(if(1/syntax?" -" s_323)" +" s_96)" "(syntax-e$2" -" s_323)" -" s_323)))" -"(if(pair? s_324)" +" s_96)" +" s_96)))" +"(if(pair? s_329)" "(let-values(((_48_0)" -"(let-values(((s_102)" +"(let-values(((s_330)" "(car" -" s_324)))" -" s_102))" +" s_329)))" +" s_330))" "((e49_0)" -"(let-values(((s_103)" +"(let-values(((s_213)" "(cdr" -" s_324)))" -"(let-values(((s_104)" +" s_329)))" +"(let-values(((s_331)" "(if(1/syntax?" -" s_103)" +" s_213)" "(syntax-e$2" -" s_103)" -" s_103)))" +" s_213)" +" s_213)))" "(let-values(((flat-s_17)" "(to-syntax-list.1$1" -" s_104)))" +" s_331)))" "(if(not" " flat-s_17)" "(let-values()" @@ -31002,55 +31293,55 @@ 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_212) e_39))" -"(let-values(((orig-s_9) s_212))" +"(let-values(((s_220) e_39))" +"(let-values(((orig-s_9) s_220))" "(let-values(((_50_1" " e051_1" " e52_1)" -"(let-values(((s_213)" +"(let-values(((s_221)" "(if(1/syntax?" -" s_212)" +" s_220)" "(syntax-e$2" -" s_212)" -" s_212)))" +" s_220)" +" s_220)))" "(if(pair?" -" s_213)" +" s_221)" "(let-values(((_53_0)" -"(let-values(((s_214)" +"(let-values(((s_222)" "(car" -" s_213)))" -" s_214))" +" s_221)))" +" s_222))" "((e054_0" " e55_0)" -"(let-values(((s_215)" +"(let-values(((s_223)" "(cdr" -" s_213)))" -"(let-values(((s_216)" +" s_221)))" +"(let-values(((s_224)" "(if(1/syntax?" -" s_215)" +" s_223)" "(syntax-e$2" -" s_215)" -" s_215)))" +" s_223)" +" s_223)))" "(if(pair?" -" s_216)" +" s_224)" "(let-values(((e056_0)" -"(let-values(((s_217)" +"(let-values(((s_113)" "(car" -" s_216)))" -" s_217))" +" s_224)))" +" s_113))" "((e57_0)" -"(let-values(((s_218)" +"(let-values(((s_114)" "(cdr" -" s_216)))" -"(let-values(((s_219)" +" s_224)))" +"(let-values(((s_225)" "(if(1/syntax?" -" s_218)" +" s_114)" "(syntax-e$2" -" s_218)" -" s_218)))" +" s_114)" +" s_114)))" "(let-values(((flat-s_5)" "(to-syntax-list.1$1" -" s_219)))" +" s_225)))" "(if(not" " flat-s_5)" "(let-values()" @@ -31092,13 +31383,13 @@ static const char *startup_source = " _50_1" " e051_1" " e52_1))))))" -"(if(let-values(((lst_235) e52_0))" +"(if(let-values(((lst_39) e52_0))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_235)))" -"((letrec-values(((for-loop_216)" +"(let-values()(check-list lst_39)))" +"((letrec-values(((for-loop_44)" "(lambda(result_90" " lst_236)" "(begin" @@ -31108,7 +31399,7 @@ static const char *startup_source = "(let-values(((e_62)" "(unsafe-car" " lst_236))" -"((rest_124)" +"((rest_125)" "(unsafe-cdr" " lst_236)))" "(let-values(((result_91)" @@ -31124,21 +31415,21 @@ static const char *startup_source = "(values" " result_92)))))" "(if(if(not" -"((lambda x_62" +"((lambda x_60" "(not" " result_91))" " e_62))" "(not" " #f)" " #f)" -"(for-loop_216" +"(for-loop_44" " result_91" -" rest_124)" +" rest_125)" " result_91)))" " result_90)))))" -" for-loop_216)" +" for-loop_44)" " #t" -" lst_235)))" +" lst_39)))" "(loop_2 e051_0 locals_2)" " #f)))" "(let-values()" @@ -31178,134 +31469,134 @@ static const char *startup_source = " id:arg60_0" " thn61_0" " els62_0)" -"(let-values(((s_325) e_39))" -"(if(let-values(((s_227)" +"(let-values(((s_332) e_39))" +"(if(let-values(((s_232)" "(if(1/syntax?" -" s_325)" +" s_332)" "(syntax-e$2" -" s_325)" -" s_325)))" -"(if(pair? s_227)" -"(if(let-values(((s_228)" -"(car" -" s_227)))" -" #t)" -"(let-values(((s_326)" -"(cdr" -" s_227)))" -"(let-values(((s_229)" -"(if(1/syntax?" -" s_326)" -"(syntax-e$2" -" s_326)" -" s_326)))" -"(if(pair? s_229)" -"(if(let-values(((s_230)" -"(car" -" s_229)))" -"(let-values(((s_231)" -"(if(1/syntax?" -" s_230)" -"(syntax-e$2" -" s_230)" -" s_230)))" -"(if(pair?" -" s_231)" -"(if(let-values(((s_327)" -"(car" -" s_231)))" -"(let-values(((or-part_231)" -"(if(1/syntax?" -" s_327)" -"(symbol?" -"(syntax-e$2" -" s_327))" -" #f)))" -"(if or-part_231" -" or-part_231" -"(symbol?" -" s_327))))" -"(let-values(((s_328)" -"(cdr" -" s_231)))" -"(let-values(((s_329)" -"(if(1/syntax?" -" s_328)" -"(syntax-e$2" -" s_328)" -" s_328)))" -"(if(pair?" -" s_329)" -"(if(let-values(((s_330)" -"(car" -" s_329)))" -"(let-values(((or-part_232)" -"(if(1/syntax?" -" s_330)" -"(symbol?" -"(syntax-e$2" -" s_330))" -" #f)))" -"(if or-part_232" -" or-part_232" -"(symbol?" -" s_330))))" -"(let-values(((s_331)" -"(cdr" -" s_329)))" -"(let-values(((s_332)" -"(if(1/syntax?" -" s_331)" -"(syntax-e$2" -" s_331)" -" s_331)))" -"(null?" +" s_332)" " s_332)))" -" #f)" -" #f)))" -" #f)" -" #f)))" +"(if(pair? s_232)" +"(if(let-values(((s_233)" +"(car" +" s_232)))" +" #t)" "(let-values(((s_333)" "(cdr" -" s_229)))" -"(let-values(((s_334)" +" s_232)))" +"(let-values(((s_234)" "(if(1/syntax?" " s_333)" "(syntax-e$2" " s_333)" " s_333)))" +"(if(pair? s_234)" +"(if(let-values(((s_235)" +"(car" +" s_234)))" +"(let-values(((s_236)" +"(if(1/syntax?" +" s_235)" +"(syntax-e$2" +" s_235)" +" s_235)))" "(if(pair?" +" s_236)" +"(if(let-values(((s_334)" +"(car" +" s_236)))" +"(let-values(((or-part_229)" +"(if(1/syntax?" " s_334)" -"(if(let-values(((s_335)" -"(car" -" s_334)))" -" #t)" +"(symbol?" +"(syntax-e$2" +" s_334))" +" #f)))" +"(if or-part_229" +" or-part_229" +"(symbol?" +" s_334))))" +"(let-values(((s_335)" +"(cdr" +" s_236)))" "(let-values(((s_336)" -"(cdr" -" s_334)))" -"(let-values(((s_337)" "(if(1/syntax?" -" s_336)" +" s_335)" "(syntax-e$2" -" s_336)" -" s_336)))" +" s_335)" +" s_335)))" "(if(pair?" -" s_337)" -"(if(let-values(((s_338)" +" s_336)" +"(if(let-values(((s_337)" "(car" -" s_337)))" -" #t)" -"(let-values(((s_339)" -"(cdr" -" s_337)))" -"(let-values(((s_340)" +" s_336)))" +"(let-values(((or-part_230)" "(if(1/syntax?" -" s_339)" +" s_337)" +"(symbol?" "(syntax-e$2" -" s_339)" -" s_339)))" +" s_337))" +" #f)))" +"(if or-part_230" +" or-part_230" +"(symbol?" +" s_337))))" +"(let-values(((s_338)" +"(cdr" +" s_336)))" +"(let-values(((s_339)" +"(if(1/syntax?" +" s_338)" +"(syntax-e$2" +" s_338)" +" s_338)))" "(null?" +" s_339)))" +" #f)" +" #f)))" +" #f)" +" #f)))" +"(let-values(((s_340)" +"(cdr" +" s_234)))" +"(let-values(((s_341)" +"(if(1/syntax?" +" s_340)" +"(syntax-e$2" +" s_340)" " s_340)))" +"(if(pair?" +" s_341)" +"(if(let-values(((s_342)" +"(car" +" s_341)))" +" #t)" +"(let-values(((s_343)" +"(cdr" +" s_341)))" +"(let-values(((s_344)" +"(if(1/syntax?" +" s_343)" +"(syntax-e$2" +" s_343)" +" s_343)))" +"(if(pair?" +" s_344)" +"(if(let-values(((s_345)" +"(car" +" s_344)))" +" #t)" +"(let-values(((s_346)" +"(cdr" +" s_344)))" +"(let-values(((s_347)" +"(if(1/syntax?" +" s_346)" +"(syntax-e$2" +" s_346)" +" s_346)))" +"(null?" +" s_347)))" " #f)" " #f)))" " #f)" @@ -31320,71 +31611,71 @@ static const char *startup_source = " id:arg60_1" " thn61_1" " els62_1)" -"(let-values(((s_233)" +"(let-values(((s_238)" "(if(1/syntax?" -" s_325)" +" s_332)" "(syntax-e$2" -" s_325)" -" s_325)))" +" s_332)" +" s_332)))" "(let-values(((_63_0)" -"(let-values(((s_236)" +"(let-values(((s_241)" "(car" -" s_233)))" -" s_236))" +" s_238)))" +" s_241))" "((id:rator64_0" " id:arg65_0" " thn66_0" " els67_0)" -"(let-values(((s_341)" -"(cdr" -" s_233)))" -"(let-values(((s_342)" -"(if(1/syntax?" -" s_341)" -"(syntax-e$2" -" s_341)" -" s_341)))" -"(let-values(((id:rator68_0" -" id:arg69_0)" -"(let-values(((s_343)" -"(car" -" s_342)))" -"(let-values(((s_344)" -"(if(1/syntax?" -" s_343)" -"(syntax-e$2" -" s_343)" -" s_343)))" -"(let-values(((id:rator72_0)" -"(let-values(((s_345)" -"(car" -" s_344)))" -" s_345))" -"((id:arg73_0)" -"(let-values(((s_240)" -"(cdr" -" s_344)))" -"(let-values(((s_346)" -"(if(1/syntax?" -" s_240)" -"(syntax-e$2" -" s_240)" -" s_240)))" -"(let-values(((id:arg74_0)" -"(let-values(((s_347)" -"(car" -" s_346)))" -" s_347))" -"(()" "(let-values(((s_348)" "(cdr" -" s_346)))" +" s_238)))" "(let-values(((s_349)" "(if(1/syntax?" " s_348)" "(syntax-e$2" " s_348)" " s_348)))" +"(let-values(((id:rator68_0" +" id:arg69_0)" +"(let-values(((s_350)" +"(car" +" s_349)))" +"(let-values(((s_351)" +"(if(1/syntax?" +" s_350)" +"(syntax-e$2" +" s_350)" +" s_350)))" +"(let-values(((id:rator72_0)" +"(let-values(((s_352)" +"(car" +" s_351)))" +" s_352))" +"((id:arg73_0)" +"(let-values(((s_245)" +"(cdr" +" s_351)))" +"(let-values(((s_353)" +"(if(1/syntax?" +" s_245)" +"(syntax-e$2" +" s_245)" +" s_245)))" +"(let-values(((id:arg74_0)" +"(let-values(((s_354)" +"(car" +" s_353)))" +" s_354))" +"(()" +"(let-values(((s_355)" +"(cdr" +" s_353)))" +"(let-values(((s_356)" +"(if(1/syntax?" +" s_355)" +"(syntax-e$2" +" s_355)" +" s_355)))" "(values)))))" "(values" " id:arg74_0))))))" @@ -31393,45 +31684,45 @@ static const char *startup_source = " id:arg73_0)))))" "((thn70_0" " els71_0)" -"(let-values(((s_350)" -"(cdr" -" s_342)))" -"(let-values(((s_351)" -"(if(1/syntax?" -" s_350)" -"(syntax-e$2" -" s_350)" -" s_350)))" -"(let-values(((thn75_0)" -"(let-values(((s_352)" -"(car" -" s_351)))" -" s_352))" -"((els76_0)" -"(let-values(((s_353)" -"(cdr" -" s_351)))" -"(let-values(((s_354)" -"(if(1/syntax?" -" s_353)" -"(syntax-e$2" -" s_353)" -" s_353)))" -"(let-values(((els77_0)" -"(let-values(((s_355)" -"(car" -" s_354)))" -" s_355))" -"(()" -"(let-values(((s_356)" -"(cdr" -" s_354)))" "(let-values(((s_357)" +"(cdr" +" s_349)))" +"(let-values(((s_358)" "(if(1/syntax?" -" s_356)" +" s_357)" "(syntax-e$2" -" s_356)" -" s_356)))" +" s_357)" +" s_357)))" +"(let-values(((thn75_0)" +"(let-values(((s_359)" +"(car" +" s_358)))" +" s_359))" +"((els76_0)" +"(let-values(((s_360)" +"(cdr" +" s_358)))" +"(let-values(((s_361)" +"(if(1/syntax?" +" s_360)" +"(syntax-e$2" +" s_360)" +" s_360)))" +"(let-values(((els77_0)" +"(let-values(((s_362)" +"(car" +" s_361)))" +" s_362))" +"(()" +"(let-values(((s_363)" +"(cdr" +" s_361)))" +"(let-values(((s_364)" +"(if(1/syntax?" +" s_363)" +"(syntax-e$2" +" s_363)" +" s_363)))" "(values)))))" "(values" " els77_0))))))" @@ -31460,19 +31751,19 @@ static const char *startup_source = "(if ok?_22" "(let-values()" "(let-values(((c2_2)" -"(let-values(((or-part_233)" +"(let-values(((or-part_113)" "(hash-ref" " locals_2" " id:rator59_0" " #f)))" -"(if or-part_233" -" or-part_233" +"(if or-part_113" +" or-part_113" "(lookup-defn" " defns_1" " id:rator59_0)))))" "(if c2_2" -"((lambda(d_23)" -"(if(known-predicate? d_23)" +"((lambda(d_31)" +"(if(known-predicate? d_31)" "(if(not" "(effects?_0" " thn61_0" @@ -31482,7 +31773,7 @@ static const char *startup_source = " id:arg60_0" "(known-satisfies7.1" "(known-predicate-key" -" d_23)))))" +" d_31)))))" "(loop_2 els62_0 locals_2)" " #f)" " #f))" @@ -31494,74 +31785,74 @@ static const char *startup_source = " tst79_0" " thn80_0" " els81_0)" -"(let-values(((s_358) e_39))" -"(if(let-values(((s_359)" +"(let-values(((s_365) e_39))" +"(if(let-values(((s_366)" "(if(1/syntax?" -" s_358)" +" s_365)" "(syntax-e$2" -" s_358)" -" s_358)))" -"(if(pair? s_359)" -"(if(let-values(((s_252)" +" s_365)" +" s_365)))" +"(if(pair? s_366)" +"(if(let-values(((s_257)" "(car" -" s_359)))" -" #t)" -"(let-values(((s_360)" -"(cdr" -" s_359)))" -"(let-values(((s_361)" -"(if(1/syntax?" -" s_360)" -"(syntax-e$2" -" s_360)" -" s_360)))" -"(if(pair?" -" s_361)" -"(if(let-values(((s_362)" -"(car" -" s_361)))" -" #t)" -"(let-values(((s_363)" -"(cdr" -" s_361)))" -"(let-values(((s_364)" -"(if(1/syntax?" -" s_363)" -"(syntax-e$2" -" 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)))" -"(if(pair?" -" s_367)" -"(if(let-values(((s_368)" -"(car" -" s_367)))" " #t)" -"(let-values(((s_369)" +"(let-values(((s_367)" "(cdr" -" s_367)))" -"(let-values(((s_370)" +" s_366)))" +"(let-values(((s_368)" "(if(1/syntax?" -" s_369)" +" s_367)" "(syntax-e$2" -" s_369)" -" s_369)))" -"(null?" +" s_367)" +" s_367)))" +"(if(pair?" +" s_368)" +"(if(let-values(((s_369)" +"(car" +" s_368)))" +" #t)" +"(let-values(((s_370)" +"(cdr" +" s_368)))" +"(let-values(((s_371)" +"(if(1/syntax?" +" s_370)" +"(syntax-e$2" +" s_370)" " s_370)))" +"(if(pair?" +" s_371)" +"(if(let-values(((s_372)" +"(car" +" s_371)))" +" #t)" +"(let-values(((s_373)" +"(cdr" +" s_371)))" +"(let-values(((s_374)" +"(if(1/syntax?" +" s_373)" +"(syntax-e$2" +" s_373)" +" s_373)))" +"(if(pair?" +" s_374)" +"(if(let-values(((s_375)" +"(car" +" s_374)))" +" #t)" +"(let-values(((s_376)" +"(cdr" +" s_374)))" +"(let-values(((s_377)" +"(if(1/syntax?" +" s_376)" +"(syntax-e$2" +" s_376)" +" s_376)))" +"(null?" +" s_377)))" " #f)" " #f)))" " #f)" @@ -31575,75 +31866,75 @@ static const char *startup_source = " tst79_1" " thn80_1" " els81_1)" -"(let-values(((s_371)" +"(let-values(((s_378)" "(if(1/syntax?" -" s_358)" +" s_365)" "(syntax-e$2" -" s_358)" -" s_358)))" +" s_365)" +" s_365)))" "(let-values(((_82_0)" -"(let-values(((s_372)" +"(let-values(((s_379)" "(car" -" s_371)))" -" s_372))" +" s_378)))" +" s_379))" "((tst83_0" " thn84_0" " els85_0)" -"(let-values(((s_373)" +"(let-values(((s_380)" "(cdr" -" s_371)))" -"(let-values(((s_374)" +" s_378)))" +"(let-values(((s_381)" "(if(1/syntax?" -" s_373)" +" s_380)" "(syntax-e$2" -" s_373)" -" s_373)))" +" s_380)" +" s_380)))" "(let-values(((tst86_0)" -"(let-values(((s_375)" +"(let-values(((s_382)" "(car" -" s_374)))" -" s_375))" +" s_381)))" +" s_382))" "((thn87_0" " els88_0)" -"(let-values(((s_376)" +"(let-values(((s_383)" "(cdr" -" s_374)))" -"(let-values(((s_377)" +" s_381)))" +"(let-values(((s_384)" "(if(1/syntax?" -" s_376)" +" s_383)" "(syntax-e$2" -" s_376)" -" s_376)))" +" s_383)" +" s_383)))" "(let-values(((thn89_0)" -"(let-values(((s_254)" +"(let-values(((s_259)" "(car" -" s_377)))" -" s_254))" +" s_384)))" +" s_259))" "((els90_0)" -"(let-values(((s_378)" +"(let-values(((s_385)" "(cdr" -" s_377)))" -"(let-values(((s_379)" +" s_384)))" +"(let-values(((s_386)" "(if(1/syntax?" -" s_378)" +" s_385)" "(syntax-e$2" -" s_378)" -" s_378)))" +" s_385)" +" s_385)))" "(let-values(((els91_0)" -"(let-values(((s_121)" +"(let-values(((s_387)" "(car" -" s_379)))" -" s_121))" +" s_386)))" +" s_387))" "(()" -"(let-values(((s_255)" +"(let-values(((s_260)" "(cdr" -" s_379)))" -"(let-values(((s_256)" +" s_386)))" +"(let-values(((s_261)" "(if(1/syntax?" -" s_255)" +" s_260)" "(syntax-e$2" -" s_255)" -" s_255)))" +" s_260)" +" s_260)))" "(values)))))" "(values" " els91_0))))))" @@ -31688,17 +31979,17 @@ static const char *startup_source = " locals_0)))" "(not" "(if actual-results_0" -"(let-values(((or-part_234)(not expected-results_0)))" -"(if or-part_234 or-part_234(= actual-results_0 expected-results_0)))" +"(let-values(((or-part_231)(not expected-results_0)))" +"(if or-part_231 or-part_231(= actual-results_0 expected-results_0)))" " #f)))))))))))))" "(define-values" "(satisfies?)" -"(lambda(e_63 key_64 defns_2 locals_3)" +"(lambda(e_63 key_65 defns_2 locals_3)" "(begin" -"(let-values(((d_31)" -"(let-values(((or-part_119)(hash-ref locals_3 e_63 #f)))" -"(if or-part_119 or-part_119(lookup-defn defns_2 e_63)))))" -"(if d_31(if(known-satisfies? d_31)(eq? key_64(known-satisfies-predicate-key d_31)) #f) #f)))))" +"(let-values(((d_32)" +"(let-values(((or-part_232)(hash-ref locals_3 e_63 #f)))" +"(if or-part_232 or-part_232(lookup-defn defns_2 e_63)))))" +"(if d_32(if(known-satisfies? d_32)(eq? key_65(known-satisfies-predicate-key d_32)) #f) #f)))))" "(define-values" "(add-binding-info)" "(lambda(locals_4 idss_0 rhss_0)" @@ -31713,14 +32004,14 @@ static const char *startup_source = " 'for-loop" "(if(if(pair? lst_239)(pair? lst_240) #f)" "(let-values(((ids_14)(unsafe-car lst_239))" -"((rest_125)(unsafe-cdr lst_239))" +"((rest_126)(unsafe-cdr lst_239))" "((rhs_10)(unsafe-car lst_240))" -"((rest_126)(unsafe-cdr lst_240)))" +"((rest_127)(unsafe-cdr lst_240)))" "(let-values(((locals_6)" "(let-values(((locals_7) locals_5))" "(let-values(((locals_8)" "(let-values()" -"((letrec-values(((loop_89)" +"((letrec-values(((loop_90)" "(lambda(rhs_11)" "(begin" " 'loop" @@ -31776,13 +32067,13 @@ static const char *startup_source = "(let-values(((id_50)" "(unsafe-car" " lst_243))" -"((rest_127)" +"((rest_128)" "(unsafe-cdr" " lst_243))" "((type_0)" "(unsafe-car" " lst_244))" -"((rest_128)" +"((rest_129)" "(unsafe-cdr" " lst_244)))" "(let-values(((locals_10)" @@ -31803,8 +32094,8 @@ static const char *startup_source = " #f)" "(for-loop_218" " locals_10" -" rest_127" -" rest_128)" +" rest_128" +" rest_129)" " locals_10)))" " locals_9)))))" " for-loop_218)" @@ -31819,11 +32110,11 @@ static const char *startup_source = "(correlated-e" "(correlated-cadr" " rhs_11)))" -"(loop_89" +"(loop_90" "(caddr" "(correlated->list" " rhs_11)))" -"(loop_89 #f)))" +"(loop_90 #f)))" "(let-values()" "(let-values(((lst_245)" "(correlated->list" @@ -31845,7 +32136,7 @@ static const char *startup_source = "(let-values(((id_51)" "(unsafe-car" " lst_246))" -"((rest_129)" +"((rest_130)" "(unsafe-cdr" " lst_246)))" "(let-values(((locals_14)" @@ -31864,16 +32155,16 @@ static const char *startup_source = " #f)" "(for-loop_219" " locals_14" -" rest_129)" +" rest_130)" " locals_14)))" " locals_13)))))" " for-loop_219)" " locals_7" " lst_245)))))))))))" -" loop_89)" +" loop_90)" " rhs_10))))" "(values locals_8)))))" -"(if(not #f)(for-loop_217 locals_6 rest_125 rest_126) locals_6)))" +"(if(not #f)(for-loop_217 locals_6 rest_126 rest_127) locals_6)))" " locals_5)))))" " for-loop_217)" " locals_4" @@ -31888,53 +32179,53 @@ static const char *startup_source = "(let-values(((lst_247)(cdr l_57))" "((lst_248)" "(list" -"(lambda(v_162)(quoted? symbol? v_162))" -"(lambda(v_163)(is-lambda? v_163 2 defns_3))" -"(lambda(v_164)(ok-make-struct-type-property-super? v_164 defns_3))" -"(lambda(v_165)" -"(let-values(((v92_0) v_165)((temp93_1) 1)((defns94_0) defns_3))" +"(lambda(v_160)(quoted? symbol? v_160))" +"(lambda(v_161)(is-lambda? v_161 2 defns_3))" +"(lambda(v_162)(ok-make-struct-type-property-super? v_162 defns_3))" +"(lambda(v_163)" +"(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_247)))" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_248)))" -"((letrec-values(((for-loop_170)" -"(lambda(result_93 lst_146 lst_249)" +"((letrec-values(((for-loop_172)" +"(lambda(result_93 lst_147 lst_249)" "(begin" " 'for-loop" -"(if(if(pair? lst_146)(pair? lst_249) #f)" -"(let-values(((arg_0)(unsafe-car lst_146))" -"((rest_130)(unsafe-cdr lst_146))" +"(if(if(pair? lst_147)(pair? lst_249) #f)" +"(let-values(((arg_0)(unsafe-car lst_147))" +"((rest_131)(unsafe-cdr lst_147))" "((pred_1)(unsafe-car lst_249))" -"((rest_131)(unsafe-cdr lst_249)))" +"((rest_132)(unsafe-cdr lst_249)))" "(let-values(((result_94)" "(let-values()" "(let-values(((result_95)" "(let-values()(let-values()(pred_1 arg_0)))))" "(values result_95)))))" -"(if(if(not((lambda x_63(not result_94)) arg_0))" -"(if(not((lambda x_64(not result_94)) pred_1))(not #f) #f)" +"(if(if(not((lambda x_61(not result_94)) arg_0))" +"(if(not((lambda x_62(not result_94)) pred_1))(not #f) #f)" " #f)" -"(for-loop_170 result_94 rest_130 rest_131)" +"(for-loop_172 result_94 rest_131 rest_132)" " result_94)))" " result_93)))))" -" for-loop_170)" +" for-loop_172)" " #t" " lst_247" " lst_248)))" " #f)))))" "(define-values" "(ok-make-struct-type-property-super?)" -"(lambda(v_166 defns_4)" +"(lambda(v_164 defns_4)" "(begin" -"(let-values(((or-part_123)(quoted? null? v_166)))" -"(if or-part_123" -" or-part_123" -"(let-values(((or-part_124)(eq? 'null(correlated-e v_166))))" -"(if or-part_124" -" or-part_124" -"(if(pair?(correlated-e v_166))" -"(if(eq?(correlated-e(car(correlated-e v_166))) 'list)" -"(if(let-values(((lst_250)(cdr(correlated->list v_166))))" +"(let-values(((or-part_233)(quoted? null? v_164)))" +"(if or-part_233" +" or-part_233" +"(let-values(((or-part_234)(eq? 'null(correlated-e v_164))))" +"(if or-part_234" +" or-part_234" +"(if(pair?(correlated-e v_164))" +"(if(eq?(correlated-e(car(correlated-e v_164))) 'list)" +"(if(let-values(((lst_250)(cdr(correlated->list v_164))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" @@ -31945,7 +32236,7 @@ static const char *startup_source = " 'for-loop" "(if(pair? lst_251)" "(let-values(((prop+val_0)(unsafe-car lst_251))" -"((rest_132)(unsafe-cdr lst_251)))" +"((rest_133)(unsafe-cdr lst_251)))" "(let-values(((result_97)" "(let-values()" "(let-values(((result_98)" @@ -32002,35 +32293,35 @@ static const char *startup_source = " #f))" " #f)))))" "(values result_98)))))" -"(if(if(not((lambda x_65(not result_97)) prop+val_0))" +"(if(if(not((lambda x_63(not result_97)) prop+val_0))" "(not #f)" " #f)" -"(for-loop_220 result_97 rest_132)" +"(for-loop_220 result_97 rest_133)" " result_97)))" " result_96)))))" " for-loop_220)" " #t" " lst_250)))" "(=" -"(sub1(correlated-length v_166))" +"(sub1(correlated-length v_164))" "(set-count" -"(let-values(((lst_252)(cdr(correlated->list v_166))))" +"(let-values(((lst_252)(cdr(correlated->list v_164))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_252)))" "((letrec-values(((for-loop_221)" -"(lambda(table_171 lst_253)" +"(lambda(table_177 lst_253)" "(begin" " 'for-loop" "(if(pair? lst_253)" "(let-values(((prop+val_2)(unsafe-car lst_253))" -"((rest_133)(unsafe-cdr lst_253)))" -"(let-values(((table_172)" -"(let-values(((table_173) table_171))" -"(let-values(((table_174)" +"((rest_134)(unsafe-cdr lst_253)))" +"(let-values(((table_178)" +"(let-values(((table_179) table_177))" +"(let-values(((table_180)" "(let-values()" -"(let-values(((key_65 val_55)" +"(let-values(((key_66 val_56)" "(let-values()" "(values" "(let-values()" @@ -32041,12 +32332,12 @@ static const char *startup_source = " 1)))" " #t))))" "(hash-set" -" table_173" -" key_65" -" val_55)))))" -"(values table_174)))))" -"(if(not #f)(for-loop_221 table_172 rest_133) table_172)))" -" table_171)))))" +" table_179" +" key_66" +" val_56)))))" +"(values table_180)))))" +"(if(not #f)(for-loop_221 table_178 rest_134) table_178)))" +" table_177)))))" " for-loop_221)" " '#hash()" " lst_252)))))" @@ -32073,13 +32364,13 @@ static const char *startup_source = "(let-values(((lst_254)(cdr l_58))" "((lst_255)" "(list" -"(lambda(v_167)(quoted? symbol? v_167))" -"(lambda(v_168)(super-ok? v_168 defns_5))" -"(lambda(v_169)(field-count-expr-to-field-count v_169))" -"(lambda(v_170)(field-count-expr-to-field-count v_170))" -"(lambda(v_171)" +"(lambda(v_165)(quoted? symbol? v_165))" +"(lambda(v_166)(super-ok? v_166 defns_5))" +"(lambda(v_167)(field-count-expr-to-field-count v_167))" +"(lambda(v_168)(field-count-expr-to-field-count v_168))" +"(lambda(v_169)" "(not" -"(let-values(((v98_0) v_171)" +"(let-values(((v98_0) v_169)" "((temp99_0) 1)" "((ready-variable?100_0) ready-variable?_1)" "((defns101_0) defns_5))" @@ -32092,11 +32383,11 @@ static const char *startup_source = " #t" " v98_0" " temp99_0))))" -"(lambda(v_172)" -"(known-good-struct-properties? v_172 immutables-expr_0 super-expr_0 defns_5))" -"(lambda(v_173)(inspector-or-false? v_173))" -"(lambda(v_174)(procedure-spec? v_174 num-fields_0))" -"(lambda(v_175)(immutables-ok? v_175 init-field-count-expr_0)))))" +"(lambda(v_170)" +"(known-good-struct-properties? v_170 immutables-expr_0 super-expr_0 defns_5))" +"(lambda(v_171)(inspector-or-false? v_171))" +"(lambda(v_172)(procedure-spec? v_172 num-fields_0))" +"(lambda(v_173)(immutables-ok? v_173 init-field-count-expr_0)))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" @@ -32104,30 +32395,30 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_255)))" -"((letrec-values(((for-loop_222)" -"(lambda(result_99 lst_256 lst_257)" +"((letrec-values(((for-loop_160)" +"(lambda(result_99 lst_129 lst_256)" "(begin" " 'for-loop" -"(if(if(pair? lst_256)(pair? lst_257) #f)" -"(let-values(((arg_1)(unsafe-car lst_256))" -"((rest_134)(unsafe-cdr lst_256))" -"((pred_2)(unsafe-car lst_257))" -"((rest_135)(unsafe-cdr lst_257)))" +"(if(if(pair? lst_129)(pair? lst_256) #f)" +"(let-values(((arg_1)(unsafe-car lst_129))" +"((rest_135)(unsafe-cdr lst_129))" +"((pred_2)(unsafe-car lst_256))" +"((rest_136)(unsafe-cdr lst_256)))" "(let-values(((result_100)" "(let-values()" "(let-values(((result_101)" "(let-values()" "(let-values()(pred_2 arg_1)))))" "(values result_101)))))" -"(if(if(not((lambda x_66(not result_100)) arg_1))" -"(if(not((lambda x_67(not result_100)) pred_2))" +"(if(if(not((lambda x_64(not result_100)) arg_1))" +"(if(not((lambda x_65(not result_100)) pred_2))" "(not #f)" " #f)" " #f)" -"(for-loop_222 result_100 rest_134 rest_135)" +"(for-loop_160 result_100 rest_135 rest_136)" " result_100)))" " result_99)))))" -" for-loop_222)" +" for-loop_160)" " #t" " lst_254" " lst_255)))" @@ -32150,60 +32441,60 @@ static const char *startup_source = "(+(field-count-expr-to-field-count(list-ref l_59 3))(field-count-expr-to-field-count(list-ref l_59 4)))))))" "(define-values" "(quoted?)" -"(lambda(val?_0 v_176)" +"(lambda(val?_0 v_174)" "(begin" "(let-values(((or-part_238)" -"(if(pair?(correlated-e v_176))" -"(if(eq?(correlated-e(car(correlated-e v_176))) 'quote)" -"(val?_0(correlated-e(correlated-cadr v_176)))" +"(if(pair?(correlated-e v_174))" +"(if(eq?(correlated-e(car(correlated-e v_174))) 'quote)" +"(val?_0(correlated-e(correlated-cadr v_174)))" " #f)" " #f)))" -"(if or-part_238 or-part_238(val?_0(correlated-e v_176)))))))" +"(if or-part_238 or-part_238(val?_0(correlated-e v_174)))))))" "(define-values" "(quoted-value)" -"(lambda(v_177)" -"(begin(if(pair?(correlated-e v_177))(correlated-e(correlated-cadr v_177))(correlated-e v_177)))))" -"(define-values(false?)(lambda(v_178)(begin(eq?(correlated-e v_178) #f))))" +"(lambda(v_175)" +"(begin(if(pair?(correlated-e v_175))(correlated-e(correlated-cadr v_175))(correlated-e v_175)))))" +"(define-values(false?)(lambda(v_176)(begin(eq?(correlated-e v_176) #f))))" "(define-values" "(field-count-expr-to-field-count)" -"(lambda(v_179)(begin(if(quoted? exact-nonnegative-integer? v_179)(quoted-value v_179) #f))))" +"(lambda(v_177)(begin(if(quoted? exact-nonnegative-integer? v_177)(quoted-value v_177) #f))))" "(define-values" "(inspector-or-false?)" -"(lambda(v_180)" +"(lambda(v_178)" "(begin" -"(let-values(((or-part_239)(quoted? false? v_180)))" +"(let-values(((or-part_239)(quoted? false? v_178)))" "(if or-part_239" " or-part_239" -"(let-values(((or-part_240)(if(quoted? symbol? v_180)(eq? 'prefab(quoted-value v_180)) #f)))" +"(let-values(((or-part_240)(if(quoted? symbol? v_178)(eq? 'prefab(quoted-value v_178)) #f)))" "(if or-part_240" " or-part_240" -"(if(= 1(correlated-length v_180))" -"(eq? 'current-inspector(correlated-e(car(correlated-e v_180))))" +"(if(= 1(correlated-length v_178))" +"(eq? 'current-inspector(correlated-e(car(correlated-e v_178))))" " #f))))))))" "(define-values" "(known-good-struct-properties?)" -"(lambda(v_181 immutables-expr_1 super-expr_1 defns_7)" +"(lambda(v_179 immutables-expr_1 super-expr_1 defns_7)" "(begin" -"(let-values(((or-part_241)(quoted? null? v_181)))" +"(let-values(((or-part_241)(quoted? null? v_179)))" "(if or-part_241" " or-part_241" -"(let-values(((or-part_242)(eq? 'null(correlated-e v_181))))" +"(let-values(((or-part_242)(eq? 'null(correlated-e v_179))))" "(if or-part_242" " or-part_242" -"(if(pair?(correlated-e v_181))" -"(if(eq?(correlated-e(car(correlated-e v_181))) 'list)" -"(if(let-values(((lst_258)(cdr(correlated->list v_181))))" +"(if(pair?(correlated-e v_179))" +"(if(eq?(correlated-e(car(correlated-e v_179))) 'list)" +"(if(let-values(((lst_257)(cdr(correlated->list v_179))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_258)))" -"((letrec-values(((for-loop_223)" -"(lambda(result_102 lst_259)" +"(let-values()(check-list lst_257)))" +"((letrec-values(((for-loop_222)" +"(lambda(result_102 lst_258)" "(begin" " 'for-loop" -"(if(pair? lst_259)" -"(let-values(((prop+val_3)(unsafe-car lst_259))" -"((rest_136)(unsafe-cdr lst_259)))" +"(if(pair? lst_258)" +"(let-values(((prop+val_3)(unsafe-car lst_258))" +"((rest_137)(unsafe-cdr lst_258)))" "(let-values(((result_103)" "(let-values()" "(let-values(((result_104)" @@ -32229,35 +32520,35 @@ static const char *startup_source = " #f))" " #f)))))" "(values result_104)))))" -"(if(if(not((lambda x_68(not result_103)) prop+val_3))" +"(if(if(not((lambda x_66(not result_103)) prop+val_3))" "(not #f)" " #f)" -"(for-loop_223 result_103 rest_136)" +"(for-loop_222 result_103 rest_137)" " result_103)))" " result_102)))))" -" for-loop_223)" +" for-loop_222)" " #t" -" lst_258)))" +" lst_257)))" "(=" -"(sub1(correlated-length v_181))" +"(sub1(correlated-length v_179))" "(set-count" -"(let-values(((lst_260)(cdr(correlated->list v_181))))" +"(let-values(((lst_135)(cdr(correlated->list v_179))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_260)))" -"((letrec-values(((for-loop_224)" -"(lambda(table_175 lst_261)" +"(let-values()(check-list lst_135)))" +"((letrec-values(((for-loop_223)" +"(lambda(table_181 lst_259)" "(begin" " 'for-loop" -"(if(pair? lst_261)" -"(let-values(((prop+val_5)(unsafe-car lst_261))" -"((rest_137)(unsafe-cdr lst_261)))" -"(let-values(((table_176)" -"(let-values(((table_177) table_175))" -"(let-values(((table_178)" +"(if(pair? lst_259)" +"(let-values(((prop+val_5)(unsafe-car lst_259))" +"((rest_138)(unsafe-cdr lst_259)))" +"(let-values(((table_182)" +"(let-values(((table_183) table_181))" +"(let-values(((table_184)" "(let-values()" -"(let-values(((key_66 val_56)" +"(let-values(((key_67 val_57)" "(let-values()" "(values" "(let-values()" @@ -32268,15 +32559,15 @@ static const char *startup_source = " 1)))" " #t))))" "(hash-set" -" table_177" -" key_66" -" val_56)))))" -"(values table_178)))))" -"(if(not #f)(for-loop_224 table_176 rest_137) table_176)))" -" table_175)))))" -" for-loop_224)" +" table_183" +" key_67" +" val_57)))))" +"(values table_184)))))" +"(if(not #f)(for-loop_223 table_182 rest_138) table_182)))" +" table_181)))))" +" for-loop_223)" " '#hash()" -" lst_260)))))" +" lst_135)))))" " #f)" " #f)" " #f))))))))" @@ -32349,18 +32640,18 @@ static const char *startup_source = "(let-values(((or-part_248)(not arity_0)))" "(if or-part_248" " or-part_248" -"((letrec-values(((loop_90)" +"((letrec-values(((loop_91)" "(lambda(args_4 arity_1)" "(begin" " 'loop" "(if(correlated? args_4)" -"(let-values()(loop_90(correlated-e args_4) arity_1))" +"(let-values()(loop_91(correlated-e args_4) arity_1))" "(if(null? args_4)" "(let-values()(zero? arity_1))" "(if(pair? args_4)" -"(let-values()(loop_90(cdr args_4)(sub1 arity_1)))" +"(let-values()(loop_91(cdr args_4)(sub1 arity_1)))" "(let-values()(not(negative? arity_1))))))))))" -" loop_90)" +" loop_91)" "(cadr(correlated->list expr_9))" " arity_0)))" " #f)" @@ -32373,28 +32664,28 @@ static const char *startup_source = "(if or-part_249" " or-part_249" "(if(list? a_40)" -"(let-values(((lst_66) a_40))" +"(let-values(((lst_67) a_40))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_66)))" -"((letrec-values(((for-loop_225)" -"(lambda(result_105 lst_262)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_67)))" +"((letrec-values(((for-loop_224)" +"(lambda(result_105 lst_260)" "(begin" " 'for-loop" -"(if(pair? lst_262)" -"(let-values(((a_41)(unsafe-car lst_262))((rest_138)(unsafe-cdr lst_262)))" +"(if(pair? lst_260)" +"(let-values(((a_41)(unsafe-car lst_260))((rest_139)(unsafe-cdr lst_260)))" "(let-values(((result_106)" "(let-values()" "(let-values(((result_107)" "(let-values()" "(let-values()(equal? a_41 n_25)))))" "(values result_107)))))" -"(if(if(not((lambda x_69 result_106) a_41))(not #f) #f)" -"(for-loop_225 result_106 rest_138)" +"(if(if(not((lambda x_67 result_106) a_41))(not #f) #f)" +"(for-loop_224 result_106 rest_139)" " result_106)))" " result_105)))))" -" for-loop_225)" +" for-loop_224)" " #f" -" lst_66)))" +" lst_67)))" " #f))))))" "(define-values" "(immutable-field?)" @@ -32410,10 +32701,10 @@ static const char *startup_source = "(let-values(((tmp_29)(if(pair?(correlated-e e_68))(correlated-e(car(correlated-e e_68))) #f)))" "(if(equal? tmp_29 'quote)" "(let-values()" -"(let-values(((v_182)(correlated-cadr e_68)))" +"(let-values(((v_180)(correlated-cadr e_68)))" "(let-values(((or-part_250)" -"(if(correlated-length v_182)" -"(let-values(((l_61)(map2 correlated-e(correlated->list v_182))))" +"(if(correlated-length v_180)" +"(let-values(((l_61)(map2 correlated-e(correlated->list v_180))))" "(if(andmap2 exact-nonnegative-integer? l_61)" "(if(=(length l_61)(set-count(list->set l_61))) l_61 #f)" " #f))" @@ -32439,29 +32730,29 @@ static const char *startup_source = "(let-values(((l_62)(immutables-expr-to-immutables e_70 #f)))" "(let-values(((c_24)(field-count-expr-to-field-count init-field-count-expr_1)))" "(if l_62" -"(let-values(((lst_263) l_62))" +"(let-values(((lst_261) l_62))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_263)))" -"((letrec-values(((for-loop_144)" -"(lambda(result_108 lst_264)" +"(let-values()(check-list lst_261)))" +"((letrec-values(((for-loop_225)" +"(lambda(result_108 lst_119)" "(begin" " 'for-loop" -"(if(pair? lst_264)" -"(let-values(((n_26)(unsafe-car lst_264))((rest_139)(unsafe-cdr lst_264)))" +"(if(pair? lst_119)" +"(let-values(((n_26)(unsafe-car lst_119))((rest_59)(unsafe-cdr lst_119)))" "(let-values(((result_109)" "(let-values()" "(let-values(((result_110)" "(let-values()(let-values()(< n_26 c_24)))))" "(values result_110)))))" -"(if(if(not((lambda x_70(not result_109)) n_26))(not #f) #f)" -"(for-loop_144 result_109 rest_139)" +"(if(if(not((lambda x_68(not result_109)) n_26))(not #f) #f)" +"(for-loop_225 result_109 rest_59)" " result_109)))" " result_108)))))" -" for-loop_144)" +" for-loop_225)" " #t" -" lst_263)))" +" lst_261)))" " #f))))))" "(define-values" "(ok-make-struct-field-accessor/mutator?)" @@ -32469,25 +32760,25 @@ static const char *startup_source = "(begin" "(let-values(((l_63)(correlated->list e_71)))" "(let-values(((a_42)" -"(if(let-values(((or-part_253)(=(length l_63) 3)))" -"(if or-part_253 or-part_253(=(length l_63) 4)))" -"(let-values(((or-part_254)(hash-ref locals_17(correlated-e(list-ref l_63 1)) #f)))" -"(if or-part_254 or-part_254(lookup-defn defns_10(correlated-e(list-ref l_63 1)))))" +"(if(let-values(((or-part_130)(=(length l_63) 3)))" +"(if or-part_130 or-part_130(=(length l_63) 4)))" +"(let-values(((or-part_131)(hash-ref locals_17(correlated-e(list-ref l_63 1)) #f)))" +"(if or-part_131 or-part_131(lookup-defn defns_10(correlated-e(list-ref l_63 1)))))" " #f)))" "(if(known-struct-op? a_42)" "(if(eq?(known-struct-op-type a_42) type_1)" "(if(<(field-count-expr-to-field-count(list-ref l_63 2))(known-struct-op-field-count a_42))" -"(let-values(((or-part_255)(=(length l_63) 3)))" -"(if or-part_255 or-part_255(quoted? symbol?(list-ref l_63 3))))" +"(let-values(((or-part_253)(=(length l_63) 3)))" +"(if or-part_253 or-part_253(quoted? symbol?(list-ref l_63 3))))" " #f)" " #f)" " #f))))))" -"(define-values(maybe+)(lambda(x_71 y_10)(begin(if x_71(if y_10(+ x_71 y_10) #f) #f))))" +"(define-values(maybe+)(lambda(x_69 y_10)(begin(if x_69(if y_10(+ x_69 y_10) #f) #f))))" "(define-values" "(compile-single)" -"(lambda(p_42 cctx_12)" +"(lambda(p_43 cctx_12)" "(begin" -"(let-values(((p12_0) p_42)((cctx13_0) cctx_12)((temp14_4) #f)((temp15_4) #t))" +"(let-values(((p12_0) p_43)((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)" @@ -32501,15 +32792,15 @@ static const char *startup_source = " cctx8_0)" "(begin" " 'compile-top9" -"(let-values(((p_43) p7_0))" +"(let-values(((p_44) 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_15)(compile-context-phase cctx_13)))" -"(let-values(((mpis_17)(make-module-path-index-table)))" +"(let-values(((phase_16)(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" " min-phase_1" @@ -32519,9 +32810,9 @@ 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_43))" +"(let-values(((temp16_4)(list p_44))" "((cctx17_0) cctx_13)" -"((mpis18_0) mpis_17)" +"((mpis18_0) mpis_18)" "((temp19_0)" "(if single-expression?_0" "(list* '()(list syntax-literals-id) '(()))" @@ -32538,7 +32829,7 @@ static const char *startup_source = "((serializable?22_0) serializable?_1)" "((temp23_3)(lambda()(set! purely-functional?_0 #f)))" "((temp24_4)" -"(lambda(e_72 expected-results_2 phase_80 required-reference?_0)" +"(lambda(e_72 expected-results_2 phase_81 required-reference?_0)" "(if(if purely-functional?_0" "(let-values(((e27_0) e_72)" "((expected-results28_0) expected-results_2)" @@ -32557,10 +32848,10 @@ static const char *startup_source = "(let-values()(set! purely-functional?_0 #f))" "(void))))" "((temp25_3)" -"(lambda(s_380 cctx_14)" +"(lambda(s_388 cctx_14)" "(begin" "(set! purely-functional?_0 #f)" -"(compile-top-level-require s_380 cctx_14))))" +"(compile-top-level-require s_388 cctx_14))))" "((temp26_1)(not single-expression?_0)))" "(compile-forms31.1" " temp20_0" @@ -32591,12 +32882,12 @@ static const char *startup_source = " cctx17_0" " mpis18_0))))" "(let-values(((add-metadata_0)" -"(lambda(ht_117)" +"(lambda(ht_120)" "(begin" " 'add-metadata" -"(let-values(((ht_75)(hash-set ht_117 'original-phase phase_15)))" -"(let-values(((ht_118)(hash-set ht_75 'max-phase max-phase_1)))" -" ht_118))))))" +"(let-values(((ht_78)(hash-set ht_120 'original-phase phase_16)))" +"(let-values(((ht_121)(hash-set ht_78 'max-phase max-phase_1)))" +" ht_121))))))" "(let-values(((bundle_0)" "((if to-source?_2 values 1/hash->linklet-bundle)" "(add-metadata_0" @@ -32606,18 +32897,18 @@ static const char *startup_source = "(let-values()" "(generate-eager-syntax-literals!" " syntax-literals_3" -" mpis_17" -" phase_15" +" mpis_18" +" phase_16" "(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_161)" "(let-values()" "(let-values(((linklet_2 new-keys_0)" "(1/compile-linklet" -" s_159" +" s_161" " #f" "(vector" " deserialize-instance" @@ -32636,11 +32927,11 @@ static const char *startup_source = "(list" " 'define-values" "(list mpi-vector-id)" -"(generate-module-path-index-deserialize mpis_17))" +"(generate-module-path-index-deserialize mpis_18))" "(list" " 'define-values" "(list deserialized-syntax-vector-id)" -"(list* 'make-vector(add1 phase_15) '(#f)))" +"(list* 'make-vector(add1 phase_16) '(#f)))" "(list" " 'define-values" " '(phase-to-link-modules)" @@ -32662,7 +32953,7 @@ static const char *startup_source = " phase-to-link-module-uses_3" "(current-code-inspector)" " phase-to-link-extra-inspectorss_0" -"(mpis-as-vector mpis_17)" +"(mpis-as-vector mpis_18)" "(syntax-literals-as-vector syntax-literals_3)" " null" " null" @@ -32670,12 +32961,12 @@ static const char *startup_source = " purely-functional?_0)))))))))))))))))))" "(define-values" "(compile-top-level-require)" -"(lambda(p_44 cctx_15)" +"(lambda(p_45 cctx_15)" "(begin" -"(let-values(((phase_33)(compile-context-phase cctx_15)))" -"(if(parsed-require? p_44)" +"(let-values(((phase_34)(compile-context-phase cctx_15)))" +"(if(parsed-require? p_45)" "(let-values()" -"(let-values(((form-stx_0)(compile-quote-syntax(syntax-disarm$1(parsed-s p_44)) cctx_15)))" +"(let-values(((form-stx_0)(compile-quote-syntax(syntax-disarm$1(parsed-s p_45)) cctx_15)))" "(list top-level-require!-id form-stx_0 ns-id)))" "(let-values() #f))))))" "(define-values" @@ -32699,7 +32990,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_81) phase14_0))" +"(let-values(((phase_82) 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)))" @@ -32708,27 +32999,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_256)(hash-ref defined-syms_7 phase_81 #f)))" -"(if or-part_256" -" or-part_256" -"(let-values(((ht_119)(make-hasheq)))" -"(begin(hash-set! defined-syms_7 phase_81 ht_119) ht_119))))))" +"(let-values(((or-part_254)(hash-ref defined-syms_7 phase_82 #f)))" +"(if or-part_254" +" or-part_254" +"(let-values(((ht_122)(make-hasheq)))" +"(begin(hash-set! defined-syms_7 phase_82 ht_122) ht_122))))))" "(reverse$1" -"(let-values(((lst_79) ids_15))" +"(let-values(((lst_80) ids_15))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_79)))" +"(let-values()(check-list lst_80)))" "((letrec-values(((for-loop_226)" -"(lambda(fold-var_12 lst_171)" +"(lambda(fold-var_12 lst_173)" "(begin" " 'for-loop" -"(if(pair? lst_171)" -"(let-values(((id_52)(unsafe-car lst_171))" -"((rest_87)(unsafe-cdr lst_171)))" -"(let-values(((fold-var_155)" +"(if(pair? lst_173)" +"(let-values(((id_52)(unsafe-car lst_173))" +"((rest_87)(unsafe-cdr lst_173)))" +"(let-values(((fold-var_91)" "(let-values(((fold-var_156) fold-var_12))" -"(let-values(((fold-var_165)" +"(let-values(((fold-var_164)" "(let-values()" "(cons" "(let-values()" @@ -32743,23 +33034,23 @@ static const char *startup_source = " sym_12" " #f)" " id_52" -" phase_81" +" phase_82" " top-level-bind-scope_3))" "(if(no-extra-scopes?" " id_52" " all-scopes-stx_3" " top-level-bind-scope_3" -" phase_81)" +" phase_82)" "(symbol-interned?" " sym_12)" " #f)" " #f)" " sym_12" -"((letrec-values(((loop_91)" +"((letrec-values(((loop_92)" "(lambda(pos_97)" "(begin" " 'loop" -"(let-values(((s_174)" +"(let-values(((s_177)" "(string->unreadable-symbol" "(format" " \"~a.~a\"" @@ -32768,16 +33059,16 @@ static const char *startup_source = "(if(defined-as-other?" "(hash-ref" " defined-syms-at-phase_0" -" s_174" +" s_177" " #f)" " id_52" -" phase_81" +" phase_82" " top-level-bind-scope_3)" -"(loop_91" +"(loop_92" "(add1" " pos_97))" -" s_174))))))" -" loop_91)" +" s_177))))))" +" loop_92)" " 1))))" "(let-values((()" "(begin" @@ -32790,7 +33081,7 @@ static const char *startup_source = "(let-values(((self23_0)" " self_20)" "((phase24_0)" -" phase_81)" +" phase_82)" "((defined-sym25_0)" " defined-sym_0)" "((frame-id26_0)" @@ -32827,7 +33118,7 @@ static const char *startup_source = "((id29_0)" " id_52)" "((phase30_0)" -" phase_81)" +" phase_82)" "((b31_0)" " b_49))" "(remove-required-id!75.1" @@ -32841,7 +33132,7 @@ static const char *startup_source = "((b20_0)" " b_49)" "((phase21_0)" -" phase_81)" +" phase_82)" "((orig-s22_0)" " orig-s_28))" "(add-binding!17.1" @@ -32859,7 +33150,7 @@ static const char *startup_source = "((id33_0)" " id_52)" "((phase34_0)" -" phase_81)" +" phase_82)" "((b35_0)" " b_49)" "((as-transformer?36_0)" @@ -32875,39 +33166,39 @@ static const char *startup_source = "(void))" " defined-sym_0))))))" " fold-var_156))))" -"(values fold-var_165)))))" +"(values fold-var_164)))))" "(if(not #f)" -"(for-loop_226 fold-var_155 rest_87)" -" fold-var_155)))" +"(for-loop_226 fold-var_91 rest_87)" +" fold-var_91)))" " fold-var_12)))))" " for-loop_226)" " null" -" lst_79)))))))))))))))))))" +" lst_80)))))))))))))))))))" "(define-values" "(no-extra-scopes?)" -"(lambda(id_53 all-scopes-stx_4 top-level-bind-scope_4 phase_82)" +"(lambda(id_53 all-scopes-stx_4 top-level-bind-scope_4 phase_83)" "(begin" "(let-values(((m-id_0)(datum->syntax$1 all-scopes-stx_4(syntax-e$1 id_53))))" -"(let-values(((or-part_134)(bound-identifier=?$1 id_53 m-id_0 phase_82)))" +"(let-values(((or-part_134)(bound-identifier=?$1 id_53 m-id_0 phase_83)))" "(if or-part_134" " or-part_134" "(if top-level-bind-scope_4" -"(bound-identifier=?$1 id_53(add-scope m-id_0 top-level-bind-scope_4) phase_82)" +"(bound-identifier=?$1 id_53(add-scope m-id_0 top-level-bind-scope_4) phase_83)" " #f)))))))" "(define-values" "(defined-as-other?)" -"(lambda(prev-id_0 id_54 phase_72 top-level-bind-scope_5)" +"(lambda(prev-id_0 id_54 phase_73 top-level-bind-scope_5)" "(begin" "(if prev-id_0" -"(if(not(bound-identifier=?$1 prev-id_0 id_54 phase_72))" -"(let-values(((or-part_257)(not top-level-bind-scope_5)))" -"(if or-part_257" -" or-part_257" +"(if(not(bound-identifier=?$1 prev-id_0 id_54 phase_73))" +"(let-values(((or-part_255)(not top-level-bind-scope_5)))" +"(if or-part_255" +" or-part_255" "(not" "(bound-identifier=?$1" "(remove-scope prev-id_0 top-level-bind-scope_5)" "(remove-scope id_54 top-level-bind-scope_5)" -" phase_72))))" +" phase_73))))" " #f)" " #f))))" "(define-values" @@ -32938,14 +33229,14 @@ static const char *startup_source = " temp41_1)))))" "(define-values" "(add-defined-sym!)" -"(lambda(defined-syms_8 phase_83 sym_55 id_55)" +"(lambda(defined-syms_8 phase_84 sym_55 id_55)" "(begin" "(let-values(((defined-syms-at-phase_1)" -"(let-values(((or-part_258)(hash-ref defined-syms_8 phase_83 #f)))" -"(if or-part_258" -" or-part_258" -"(let-values(((ht_120)(make-hasheq)))" -"(begin(hash-set! defined-syms_8 phase_83 ht_120) ht_120))))))" +"(let-values(((or-part_256)(hash-ref defined-syms_8 phase_84 #f)))" +"(if or-part_256" +" or-part_256" +"(let-values(((ht_123)(make-hasheq)))" +"(begin(hash-set! defined-syms_8 phase_84 ht_123) ht_123))))))" "(hash-set! defined-syms-at-phase_1 sym_55 id_55)))))" "(define-values" "(make-create-root-expand-context-from-module)" @@ -32958,11 +33249,11 @@ 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_265) requires_3))" +"(let-values(((lst_262) requires_3))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_265)))" +"(let-values()(check-list lst_262)))" "((letrec-values(((for-loop_227)" "(lambda(lst_16)" "(begin" @@ -32976,11 +33267,11 @@ static const char *startup_source = "(let-values()" "(begin" "(let-values()" -"(let-values(((phase_32)" +"(let-values(((phase_33)" "(car" " phase+reqs_0)))" "(begin" -"(let-values(((lst_266)" +"(let-values(((lst_263)" "(cdr" " phase+reqs_0)))" "(begin" @@ -32989,32 +33280,32 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_266)))" +" lst_263)))" "((letrec-values(((for-loop_228)" -"(lambda(lst_78)" +"(lambda(lst_79)" "(begin" " 'for-loop" "(if(pair?" -" lst_78)" +" lst_79)" "(let-values(((req_4)" "(unsafe-car" -" lst_78))" -"((rest_35)" +" lst_79))" +"((rest_36)" "(unsafe-cdr" -" lst_78)))" +" lst_79)))" "(let-values((()" "(let-values()" "(let-values((()" "(let-values()" "(begin" "(let-values()" -"(let-values(((mpi_43)" +"(let-values(((mpi_44)" "(module-path-index-shift" " req_4" " original-self_0" " self_7)))" "(let-values(((mpi2_1)" -" mpi_43)" +" mpi_44)" "((s3_1)" " s_3)" "((self4_3)" @@ -33025,7 +33316,7 @@ static const char *startup_source = " ns_59)" "((temp7_1)" "(phase+" -" phase_32" +" phase_33" " phase-shift_14))" "((phase-shift8_0)" " phase-shift_14)" @@ -33067,34 +33358,34 @@ static const char *startup_source = "(if(not" " #f)" "(for-loop_228" -" rest_35)" +" rest_36)" "(values))))" "(values))))))" " for-loop_228)" -" lst_266)))" +" lst_263)))" "(void))))" "(values)))))" "(values)))))" "(if(not #f)(for-loop_227 rest_4)(values))))" "(values))))))" " for-loop_227)" -" lst_265)))" +" lst_262)))" "(values))))" "(let-values()" "(let-values(((defined-syms_9)(root-expand-context-defined-syms root-ctx_4)))" "(begin" -"(let-values(((ht_121) evaled-ld-h_0))" +"(let-values(((ht_124) evaled-ld-h_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_121)))" -"((letrec-values(((for-loop_102)" -"(lambda(i_150)" +"(let-values()(check-in-hash ht_124)))" +"((letrec-values(((for-loop_106)" +"(lambda(i_149)" "(begin" " 'for-loop" -"(if i_150" -"(let-values(((phase_84 linklet_3)" -"(hash-iterate-key+value ht_121 i_150)))" +"(if i_149" +"(let-values(((phase_85 linklet_3)" +"(hash-iterate-key+value ht_124 i_149)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -33102,7 +33393,7 @@ static const char *startup_source = "(begin" "(let-values()" "(begin" -"(let-values(((lst_267)" +"(let-values(((lst_264)" "(1/linklet-export-variables" " linklet_3)))" "(begin" @@ -33110,19 +33401,19 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()" -"(check-list lst_267)))" +"(check-list lst_264)))" "((letrec-values(((for-loop_229)" -"(lambda(lst_268)" +"(lambda(lst_265)" "(begin" " 'for-loop" "(if(pair?" -" lst_268)" +" lst_265)" "(let-values(((sym_56)" "(unsafe-car" -" lst_268))" +" lst_265))" "((rest_140)" "(unsafe-cdr" -" lst_268)))" +" lst_265)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -33140,7 +33431,7 @@ static const char *startup_source = "(let-values(((self13_1)" " self_7)" "((phase14_1)" -" phase_84)" +" phase_85)" "((sym15_0)" " sym_56))" "(make-module-binding22.1" @@ -33166,7 +33457,7 @@ static const char *startup_source = " phase14_1" " sym15_0)))" "((phase12_0)" -" phase_84))" +" phase_85))" "(add-binding!17.1" " #f" " #f" @@ -33177,7 +33468,7 @@ static const char *startup_source = " phase12_0))" "(add-defined-sym!" " defined-syms_9" -" phase_84" +" phase_85" " sym_56" " id_56))))" "(values)))))" @@ -33189,16 +33480,16 @@ static const char *startup_source = "(values))))" "(values))))))" " for-loop_229)" -" lst_267)))" +" lst_264)))" "(void)))" "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_102(hash-iterate-next ht_121 i_150))" +"(for-loop_106(hash-iterate-next ht_124 i_149))" "(values))))" "(values))))))" -" for-loop_102)" -"(hash-iterate-first ht_121))))" +" for-loop_106)" +"(hash-iterate-first ht_124))))" "(void)" " root-ctx_4))))))))))" "(define-values" @@ -33207,12 +33498,12 @@ static const char *startup_source = "(begin" "(let-values(((outside-mpi_0)(root-expand-context-self-mpi root-context_0)))" "(let-values(((inside-mpi_0)(make-self-module-path-index(module-path-index-resolved outside-mpi_0))))" -"(let-values(((v_183) root-context_0))" -"(let-values(((the-struct_55) v_183))" -"(if(root-expand-context/outer? the-struct_55)" +"(let-values(((v_181) root-context_0))" +"(let-values(((the-struct_54) v_181))" +"(if(root-expand-context/outer? the-struct_54)" "(let-values(((inner16_0)" -"(let-values(((the-struct_56)(root-expand-context/outer-inner v_183)))" -"(if(root-expand-context/inner? the-struct_56)" +"(let-values(((the-struct_55)(root-expand-context/outer-inner v_181)))" +"(if(root-expand-context/inner? the-struct_55)" "(let-values(((self-mpi17_0) inside-mpi_0)" "((all-scopes-stx18_0)" "(let-values(((temp19_1)" @@ -33229,19 +33520,19 @@ static const char *startup_source = " #f))))" "(root-expand-context/inner2.1" " self-mpi17_0" -"(root-expand-context/inner-module-scopes the-struct_56)" -"(root-expand-context/inner-top-level-bind-scope the-struct_56)" +"(root-expand-context/inner-module-scopes the-struct_55)" +"(root-expand-context/inner-top-level-bind-scope the-struct_55)" " all-scopes-stx18_0" -"(root-expand-context/inner-defined-syms the-struct_56)" -"(root-expand-context/inner-counter the-struct_56)" -"(root-expand-context/inner-lift-key the-struct_56)))" -" (raise-argument-error 'struct-copy \"root-expand-context/inner?\" the-struct_56)))))" +"(root-expand-context/inner-defined-syms the-struct_55)" +"(root-expand-context/inner-counter the-struct_55)" +"(root-expand-context/inner-lift-key the-struct_55)))" +" (raise-argument-error 'struct-copy \"root-expand-context/inner?\" the-struct_55)))))" "(root-expand-context/outer1.1" " inner16_0" -"(root-expand-context/outer-post-expansion-scope the-struct_55)" -"(root-expand-context/outer-use-site-scopes the-struct_55)" -"(root-expand-context/outer-frame-id the-struct_55)))" -" (raise-argument-error 'struct-copy \"root-expand-context/outer?\" the-struct_55)))))))))" +"(root-expand-context/outer-post-expansion-scope the-struct_54)" +"(root-expand-context/outer-use-site-scopes the-struct_54)" +"(root-expand-context/outer-frame-id the-struct_54)))" +" (raise-argument-error 'struct-copy \"root-expand-context/outer?\" the-struct_54)))))))))" "(define-values" "(check-require-access9.1)" "(lambda(skip-imports1_0" @@ -33262,40 +33553,40 @@ static const char *startup_source = "(let-values(((extra-inspectorsss_4) extra-inspectorsss8_0))" "(let-values()" "(begin" -"(let-values(((lst_40)(list-tail(1/linklet-import-variables linklet_4) skip-num-imports_0))" -"((lst_269) import-module-uses_0)" -"((lst_88) import-module-instances_0)" -"((lst_161)" -"(let-values(((or-part_71) extra-inspectorsss_4))" -"(if or-part_71 or-part_71 import-module-uses_0))))" +"(let-values(((lst_42)(list-tail(1/linklet-import-variables linklet_4) skip-num-imports_0))" +"((lst_266) import-module-uses_0)" +"((lst_89) import-module-instances_0)" +"((lst_163)" +"(let-values(((or-part_70) extra-inspectorsss_4))" +"(if or-part_70 or-part_70 import-module-uses_0))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_40)))" +"(let-values()(check-list lst_42)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_269)))" +"(let-values()(check-list lst_266)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_88)))" +"(let-values()(check-list lst_89)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_161)))" +"(let-values()(check-list lst_163)))" "((letrec-values(((for-loop_229)" -"(lambda(lst_268 lst_270 lst_24 lst_170)" +"(lambda(lst_265 lst_267 lst_24 lst_102)" "(begin" " 'for-loop" -"(if(if(pair? lst_268)" -"(if(pair? lst_270)(if(pair? lst_24)(pair? lst_170) #f) #f)" +"(if(if(pair? lst_265)" +"(if(pair? lst_267)(if(pair? lst_24)(pair? lst_102) #f) #f)" " #f)" -"(let-values(((import-syms_0)(unsafe-car lst_268))" -"((rest_141)(unsafe-cdr lst_268))" -"((mu_7)(unsafe-car lst_270))" -"((rest_142)(unsafe-cdr lst_270))" +"(let-values(((import-syms_0)(unsafe-car lst_265))" +"((rest_141)(unsafe-cdr lst_265))" +"((mu_7)(unsafe-car lst_267))" +"((rest_142)(unsafe-cdr lst_267))" "((mi_16)(unsafe-car lst_24))" -"((rest_42)(unsafe-cdr lst_24))" -"((extra-inspectorss_14)(unsafe-car lst_170))" -"((rest_117)(unsafe-cdr lst_170)))" +"((rest_43)(unsafe-cdr lst_24))" +"((extra-inspectorss_14)(unsafe-car lst_102))" +"((rest_117)(unsafe-cdr lst_102)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -33318,7 +33609,7 @@ static const char *startup_source = "(module-compute-access!" " m_15)))))" "(begin" -"(let-values(((lst_58)" +"(let-values(((lst_59)" " import-syms_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -33326,7 +33617,7 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_58)))" +" lst_59)))" "((letrec-values(((for-loop_230)" "(lambda(lst_26)" "(begin" @@ -33354,12 +33645,12 @@ static const char *startup_source = " '#hasheq())" " import-sym_0" " 'unexported)))" -"(if(let-values(((or-part_166)" +"(if(let-values(((or-part_168)" "(eq?" " a_43" " 'unexported)))" -"(if or-part_166" -" or-part_166" +"(if or-part_168" +" or-part_168" "(eq?" " a_43" " 'protected)))" @@ -33368,20 +33659,20 @@ static const char *startup_source = "(namespace-inspector" "(module-instance-namespace" " mi_16))))" -"(if(let-values(((or-part_168)" +"(if(let-values(((or-part_170)" "(inspector-superior?" " insp_10" " guard-insp_3)))" -"(if or-part_168" -" or-part_168" -"(let-values(((or-part_169)" +"(if or-part_170" +" or-part_170" +"(let-values(((or-part_171)" "(if extra-inspector_0" "(inspector-superior?" " extra-inspector_0" " guard-insp_3)" " #f)))" -"(if or-part_169" -" or-part_169" +"(if or-part_171" +" or-part_171" "(if extra-inspectorsss_4" "(if extra-inspectorss_14" "(extra-inspectors-allow?" @@ -33416,38 +33707,38 @@ static const char *startup_source = "(values))))" "(values))))))" " for-loop_230)" -" lst_58)))" +" lst_59)))" "(void)))))))" "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_229 rest_141 rest_142 rest_42 rest_117)" +"(for-loop_229 rest_141 rest_142 rest_43 rest_117)" "(values))))" "(values))))))" " for-loop_229)" -" lst_40" -" lst_269" -" lst_88" -" lst_161)))" +" lst_42" +" lst_266" +" lst_89" +" lst_163)))" "(void)))))))))))))" "(define-values" "(check-single-require-access)" -"(lambda(mi_17 phase_85 sym_57 insp_11)" +"(lambda(mi_17 phase_86 sym_57 insp_11)" "(begin" "(let-values(((m_16)(module-instance-module mi_17)))" "(if(module-no-protected? m_16)" "(let-values() #t)" "(let-values()" "(let-values(((access_3)" -"(let-values(((or-part_67)(module-access m_16)))" -"(if or-part_67 or-part_67(module-compute-access! m_16)))))" -"(let-values(((a_44)(hash-ref(hash-ref access_3 phase_85 '#hasheq()) sym_57 'unexported)))" -"(if(let-values(((or-part_259)(eq? a_44 'unexported)))" -"(if or-part_259 or-part_259(eq? a_44 'protected)))" +"(let-values(((or-part_257)(module-access m_16)))" +"(if or-part_257 or-part_257(module-compute-access! m_16)))))" +"(let-values(((a_44)(hash-ref(hash-ref access_3 phase_86 '#hasheq()) sym_57 'unexported)))" +"(if(let-values(((or-part_258)(eq? a_44 'unexported)))" +"(if or-part_258 or-part_258(eq? a_44 'protected)))" "(let-values()" "(let-values(((guard-insp_4)(namespace-inspector(module-instance-namespace mi_17))))" -"(let-values(((or-part_260)(if insp_11(inspector-superior? insp_11 guard-insp_4) #f)))" -"(if or-part_260 or-part_260(inspector-superior?(current-code-inspector) guard-insp_4)))))" +"(let-values(((or-part_259)(if insp_11(inspector-superior? insp_11 guard-insp_4) #f)))" +"(if or-part_259 or-part_259(inspector-superior?(current-code-inspector) guard-insp_4)))))" "(let-values() #t))))))))))" "(define-values(module-cache)(make-weak-hash))" "(define-values" @@ -33455,11 +33746,11 @@ static const char *startup_source = "(lambda(hash-code_4)(begin(if hash-code_4(list hash-code_4(current-load-relative-directory)) #f))))" "(define-values" "(module-cache-set!)" -"(lambda(key_11 proc_8)(begin(hash-set! module-cache key_11(make-ephemeron key_11 proc_8)))))" +"(lambda(key_11 proc_9)(begin(hash-set! module-cache key_11(make-ephemeron key_11 proc_9)))))" "(define-values" "(module-cache-ref)" -"(lambda(key_67)" -"(begin(let-values(((e_73)(hash-ref module-cache key_67 #f)))(if e_73(ephemeron-value e_73) #f)))))" +"(lambda(key_68)" +"(begin(let-values(((e_73)(hash-ref module-cache key_68 #f)))(if e_73(ephemeron-value e_73) #f)))))" "(define-values(current-module-declare-as-predefined)(make-parameter #f))" "(define-values" "(eval-module8.1)" @@ -33493,8 +33784,8 @@ static const char *startup_source = "(let-values() empty-syntax-literals-instance/empty-namespace)" "(let-values() empty-syntax-literals-data-instance)))))))" "(let-values(((decl_0)" -"(lambda(key_68)" -"(begin 'decl(1/instance-variable-value declaration-instance_0 key_68)))))" +"(lambda(key_69)" +"(begin 'decl(1/instance-variable-value declaration-instance_0 key_69)))))" "(let-values(((pre-submodule-names_0)(hash-ref h_1 'pre null)))" "(let-values(((post-submodule-names_0)(hash-ref h_1 'post null)))" "(let-values(((default-name_1)(hash-ref h_1 'name 'module)))" @@ -33515,58 +33806,58 @@ 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_108)" -"(lambda(table_110 pos_98)" +"((letrec-values(((for-loop_231)" +"(lambda(table_185 pos_98)" "(begin" " 'for-loop" "(if(< pos_98 end_26)" "(let-values(((phase-level_17)" " pos_98))" -"(let-values(((table_179)" -"(let-values(((v_184)" +"(let-values(((table_186)" +"(let-values(((v_182)" "(hash-ref" " h_1" " phase-level_17" " #f)))" "(begin" " #t" -"((letrec-values(((for-loop_231)" -"(lambda(table_112)" +"((letrec-values(((for-loop_232)" +"(lambda(table_187)" "(begin" " 'for-loop" "(let-values()" -"(let-values(((table_180)" -"(let-values(((table_181)" -" table_112))" -"(if v_184" -"(let-values(((table_182)" -" table_181))" -"(let-values(((table_183)" +"(let-values(((table_188)" +"(let-values(((table_189)" +" table_187))" +"(if v_182" +"(let-values(((table_190)" +" table_189))" +"(let-values(((table_191)" "(let-values()" -"(let-values(((key_69" -" val_57)" +"(let-values(((key_70" +" val_58)" "(let-values()" "(values" " phase-level_17" "(1/eval-linklet" -" v_184)))))" +" v_182)))))" "(hash-set" -" table_182" -" key_69" -" val_57)))))" +" table_190" +" key_70" +" val_58)))))" "(values" -" table_183)))" -" table_181))))" -" table_180))))))" -" for-loop_231)" -" table_110)))))" +" table_191)))" +" table_189))))" +" table_188))))))" +" for-loop_232)" +" table_185)))))" "(if(not #f)" -"(for-loop_108" -" table_179" +"(for-loop_231" +" table_186" "(+ pos_98 inc_20))" -" table_179)))" -" table_110)))))" -" for-loop_108)" +" table_186)))" +" table_185)))))" +" for-loop_231)" " '#hash()" " start_37)))))" "(let-values(((syntax-literals-linklet_0)" @@ -33608,18 +33899,18 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list lst_20)))" -"((letrec-values(((for-loop_232)" -"(lambda(lst_92)" +"((letrec-values(((for-loop_233)" +"(lambda(lst_93)" "(begin" " 'for-loop" "(if(pair?" -" lst_92)" +" lst_93)" "(let-values(((c_25)" "(unsafe-car" -" lst_92))" -"((rest_43)" +" lst_93))" +"((rest_44)" "(unsafe-cdr" -" lst_92)))" +" lst_93)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -33644,22 +33935,22 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_232" -" rest_43)" +"(for-loop_233" +" rest_44)" "(values))))" "(values))))))" -" for-loop_232)" +" for-loop_233)" " lst_20)))" "(void))" "(begin" -"(let-values(((lst_93) names_0))" +"(let-values(((lst_94) names_0))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" -"(check-list lst_93)))" -"((letrec-values(((for-loop_233)" +"(check-list lst_94)))" +"((letrec-values(((for-loop_234)" "(lambda(lst_7)" "(begin" " 'for-loop" @@ -33707,12 +33998,12 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_233" +"(for-loop_234" " rest_143)" "(values))))" "(values))))))" -" for-loop_233)" -" lst_93)))" +" for-loop_234)" +" lst_94)))" "(void)))))" " void)))" "(let-values(((declare-this-module_0)" @@ -33825,7 +34116,7 @@ static const char *startup_source = " import-instances_0)" "(let-values(((mis_1" " is_0)" -"(let-values(((lst_271)" +"(let-values(((lst_268)" " module-uses_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -33833,21 +34124,21 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_271)))" -"((letrec-values(((for-loop_234)" +" lst_268)))" +"((letrec-values(((for-loop_235)" "(lambda(mis_2" " is_1" -" lst_272)" +" lst_269)" "(begin" " 'for-loop" "(if(pair?" -" lst_272)" +" lst_269)" "(let-values(((mu_8)" "(unsafe-car" -" lst_272))" +" lst_269))" "((rest_144)" "(unsafe-cdr" -" lst_272)))" +" lst_269)))" "(let-values(((mis_3" " is_2)" "(let-values(((mis_4)" @@ -33895,7 +34186,7 @@ static const char *startup_source = " is_4)))))" "(if(not" " #f)" -"(for-loop_234" +"(for-loop_235" " mis_3" " is_2" " rest_144)" @@ -33905,10 +34196,10 @@ static const char *startup_source = "(values" " mis_2" " is_1))))))" -" for-loop_234)" +" for-loop_235)" " null" " null" -" lst_271)))))" +" lst_268)))))" "(values" "(reverse$1" " mis_1)" @@ -33945,13 +34236,13 @@ static const char *startup_source = "(let-values(((module-body-instance-instance_0)" "(let-values(((temp52_2)" "(lambda(name_50" -" val_58)" +" val_59)" "(namespace-set-transformer!" " ns_65" "(sub1" " phase-level_19)" " name_50" -" val_58))))" +" val_59))))" "(make-module-body-instance-instance18.1" " temp52_2))))" "(let-values(((instantiate-body_0)" @@ -34141,7 +34432,7 @@ static const char *startup_source = "((insp58_0) insp_15)" "((bulk-binding-registry59_0) bulk-binding-registry_16)" "((temp60_1)" -" (lambda (name_51 val_59) (error \"shouldn't get here for the root-ctx linklet\"))))" +" (lambda (name_16 val_60) (error \"shouldn't get here for the root-ctx linklet\"))))" "(make-instance-instance13.1" " bulk-binding-registry59_0" " insp58_0" @@ -34290,34 +34581,34 @@ static const char *startup_source = "(get-all-variables)" "(lambda(phases-h_1)" "(begin" -"(let-values(((ht_122) phases-h_1))" +"(let-values(((ht_125) phases-h_1))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-in-hash ht_122)))" -"((letrec-values(((for-loop_235)" -"(lambda(table_184 i_151)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-in-hash ht_125)))" +"((letrec-values(((for-loop_236)" +"(lambda(table_192 i_150)" "(begin" " 'for-loop" -"(if i_151" -"(let-values(((phase_86 linklet_5)(hash-iterate-key+value ht_122 i_151)))" -"(let-values(((table_185)" -"(let-values(((table_186) table_184))" -"(let-values(((table_140)" +"(if i_150" +"(let-values(((phase_87 linklet_5)(hash-iterate-key+value ht_125 i_150)))" +"(let-values(((table_193)" +"(let-values(((table_194) table_192))" +"(let-values(((table_145)" "(let-values()" -"(let-values(((key_70 val_60)" +"(let-values(((key_71 val_61)" "(let-values()" "(values" -" phase_86" +" phase_87" "(1/linklet-export-variables" " linklet_5)))))" -"(hash-set table_186 key_70 val_60)))))" -"(values table_140)))))" +"(hash-set table_194 key_71 val_61)))))" +"(values table_145)))))" "(if(not #f)" -"(for-loop_235 table_185(hash-iterate-next ht_122 i_151))" -" table_185)))" -" table_184)))))" -" for-loop_235)" +"(for-loop_236 table_193(hash-iterate-next ht_125 i_150))" +" table_193)))" +" table_192)))))" +" for-loop_236)" " '#hash()" -"(hash-iterate-first ht_122)))))))" +"(hash-iterate-first ht_125)))))))" "(define-values" "(provides->api-provides)" "(lambda(provides_9 self_24)" @@ -34328,22 +34619,22 @@ static const char *startup_source = " 'extract" "(let-values(((result-l_0)" "(reverse$1" -"(let-values(((ht_123) provides_9))" +"(let-values(((ht_126) provides_9))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_123)))" -"((letrec-values(((for-loop_96)" -"(lambda(fold-var_59 i_152)" +"(let-values()(check-in-hash ht_126)))" +"((letrec-values(((for-loop_100)" +"(lambda(fold-var_59 i_151)" "(begin" " 'for-loop" -"(if i_152" -"(let-values(((phase_87 at-phase_11)" -"(hash-iterate-key+value ht_123 i_152)))" +"(if i_151" +"(let-values(((phase_88 at-phase_11)" +"(hash-iterate-key+value ht_126 i_151)))" "(let-values(((fold-var_60)" "(let-values(((l_64)" "(reverse$1" -"(let-values(((ht_116)" +"(let-values(((ht_119)" " at-phase_11))" "(begin" "(if(variable-reference-from-unsafe?" @@ -34351,18 +34642,18 @@ static const char *startup_source = "(void)" "(let-values()" "(check-in-hash" -" ht_116)))" -"((letrec-values(((for-loop_236)" +" ht_119)))" +"((letrec-values(((for-loop_237)" "(lambda(fold-var_216" -" i_153)" +" i_152)" "(begin" " 'for-loop" -"(if i_153" +"(if i_152" "(let-values(((sym_58" " b/p_1)" "(hash-iterate-key+value" -" ht_116" -" i_153)))" +" ht_119" +" i_152)))" "(let-values(((fold-var_217)" "(let-values(((fold-var_218)" " fold-var_216))" @@ -34374,7 +34665,7 @@ static const char *startup_source = "(let-values()" "(cons" "(let-values()" -"(let-values(((b_70)" +"(let-values(((b_68)" "(provided-as-binding" " b/p_1)))" "(list" @@ -34382,38 +34673,38 @@ static const char *startup_source = "(if(eq?" " self_24" "(module-binding-module" -" b_70))" +" b_68))" "(let-values()" " null)" "(let-values()" "(reverse$1" -"(let-values(((lst_86)" +"(let-values(((lst_87)" "(cons" -" b_70" +" b_68" "(module-binding-extra-nominal-bindings" -" b_70))))" +" b_68))))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_86)))" -"((letrec-values(((for-loop_237)" +" lst_87)))" +"((letrec-values(((for-loop_238)" "(lambda(fold-var_32" -" lst_273)" +" lst_270)" "(begin" " 'for-loop" "(if(pair?" -" lst_273)" -"(let-values(((b_71)" +" lst_270)" +"(let-values(((b_69)" "(unsafe-car" -" lst_273))" +" lst_270))" "((rest_145)" "(unsafe-cdr" -" lst_273)))" -"(let-values(((fold-var_150)" -"(let-values(((fold-var_151)" +" lst_270)))" +"(let-values(((fold-var_152)" +"(let-values(((fold-var_153)" " fold-var_32))" "(let-values(((fold-var_26)" "(let-values()" @@ -34421,64 +34712,64 @@ static const char *startup_source = "(let-values()" "(if(if(eqv?" "(module-binding-nominal-phase" -" b_71)" -" phase_87)" +" b_69)" +" phase_88)" "(eq?" "(module-binding-nominal-sym" -" b_71)" +" b_69)" " sym_58)" " #f)" "(let-values()" "(module-binding-nominal-module" -" b_71))" +" b_69))" "(let-values()" "(list" "(module-binding-nominal-module" -" b_71)" +" b_69)" "(module-binding-phase" -" b_71)" +" b_69)" "(module-binding-nominal-sym" -" b_71)" +" b_69)" "(module-binding-nominal-phase" -" b_71)))))" -" fold-var_151))))" +" b_69)))))" +" fold-var_153))))" "(values" " fold-var_26)))))" "(if(not" " #f)" -"(for-loop_237" -" fold-var_150" +"(for-loop_238" +" fold-var_152" " rest_145)" -" fold-var_150)))" +" fold-var_152)))" " fold-var_32)))))" -" for-loop_237)" +" for-loop_238)" " null" -" lst_86)))))))))" +" lst_87)))))))))" " fold-var_30))))" "(values" " fold-var_219)))" " fold-var_218))))" "(if(not" " #f)" -"(for-loop_236" +"(for-loop_237" " fold-var_217" "(hash-iterate-next" -" ht_116" -" i_153))" +" ht_119" +" i_152))" " fold-var_217)))" " fold-var_216)))))" -" for-loop_236)" +" for-loop_237)" " null" "(hash-iterate-first" -" ht_116)))))))" +" ht_119)))))))" "(begin" " #t" -"((letrec-values(((for-loop_102)" +"((letrec-values(((for-loop_106)" "(lambda(fold-var_67)" "(begin" " 'for-loop" "(let-values()" -"(let-values(((fold-var_152)" +"(let-values(((fold-var_154)" "(let-values(((fold-var_27)" " fold-var_67))" "(if(null?" @@ -34491,7 +34782,7 @@ static const char *startup_source = "(cons" "(let-values()" "(cons" -" phase_87" +" phase_88" "(let-values(((l4_0)" " l_64)" "((symbollinklet-directory" -"(let-values(((ht_125)(1/linklet-directory->hash c_34)))" +"(let-values(((ht_127)(1/linklet-directory->hash c_34)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_125)))" -"((letrec-values(((for-loop_239)" -"(lambda(table_187 i_155)" +"(let-values()(check-in-hash ht_127)))" +"((letrec-values(((for-loop_240)" +"(lambda(table_195 i_153)" "(begin" " 'for-loop" -"(if i_155" -"(let-values(((key_71 val_61)(hash-iterate-key+value ht_125 i_155)))" -"(let-values(((table_188)" -"(let-values(((table_109) table_187))" -"(let-values(((table_189)" +"(if i_153" +"(let-values(((key_72 val_62)(hash-iterate-key+value ht_127 i_153)))" +"(let-values(((table_196)" +"(let-values(((table_114) table_195))" +"(let-values(((table_197)" "(let-values()" -"(let-values(((key_72 val_62)" +"(let-values(((key_73 val_63)" "(let-values()" "(values" -" key_71" -"(if(not key_71)" +" key_72" +"(if(not key_72)" "(update-one-name" -" val_61" +" val_62" " full-name_0)" "(recur_0" -" val_61" -" key_71))))))" +" val_62" +" key_72))))))" "(hash-set" -" table_109" -" key_72" -" val_62)))))" -"(values table_189)))))" +" table_114" +" key_73" +" val_63)))))" +"(values table_197)))))" "(if(not #f)" -"(for-loop_239 table_188(hash-iterate-next ht_125 i_155))" -" table_188)))" -" table_187)))))" -" for-loop_239)" +"(for-loop_240 table_196(hash-iterate-next ht_127 i_153))" +" table_196)))" +" table_195)))))" +" for-loop_240)" " '#hasheq()" -"(hash-iterate-first ht_125))))))" +"(hash-iterate-first ht_127))))))" "(let-values()(update-one-name c_34 full-name_0))))))))))" "(define-values" "(update-one-name)" -"(lambda(lb_0 name_53)(begin(1/hash->linklet-bundle(hash-set(1/linklet-bundle->hash lb_0) 'name name_53)))))" +"(lambda(lb_0 name_52)(begin(1/hash->linklet-bundle(hash-set(1/linklet-bundle->hash lb_0) 'name name_52)))))" "(define-values" "(rebuild-linklet-directory5.1)" "(lambda(bundle-ok?1_0 bundle-ok?2_0 main3_0 submods4_0)" @@ -34774,44 +35065,44 @@ static const char *startup_source = " main_0" "(1/hash->linklet-directory" "(hash-set" -"(let-values(((lst_171) submods_0))" +"(let-values(((lst_173) submods_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_171)))" -"((letrec-values(((for-loop_45)" -"(lambda(ht_126 lst_275)" +"(let-values()(check-list lst_173)))" +"((letrec-values(((for-loop_48)" +"(lambda(ht_128 lst_272)" "(begin" " 'for-loop" -"(if(pair? lst_275)" -"(let-values(((submod_1)(unsafe-car lst_275))" -"((rest_147)(unsafe-cdr lst_275)))" -"(let-values(((ht_127)" -"(let-values(((ht_128) ht_126))" -"(let-values(((ht_117)" +"(if(pair? lst_272)" +"(let-values(((submod_1)(unsafe-car lst_272))" +"((rest_147)(unsafe-cdr lst_272)))" +"(let-values(((ht_129)" +"(let-values(((ht_130) ht_128))" +"(let-values(((ht_120)" "(let-values()" -"(let-values(((name_54)" +"(let-values(((name_53)" "(module-compiled-immediate-name" " submod_1)))" -"(if(hash-ref ht_128 name_54 #f)" +"(if(hash-ref ht_130 name_53 #f)" "(let-values()" "(raise-arguments-error" " 'module-compiled-submodules" " \"change would result in duplicate submodule name\"" " \"name\"" -" name_54))" +" name_53))" "(let-values()" "(hash-set" -" ht_128" -" name_54" +" ht_130" +" name_53" "(compiled->linklet-directory-or-bundle" " submod_1))))))))" -"(values ht_117)))))" -"(if(not #f)(for-loop_45 ht_127 rest_147) ht_127)))" -" ht_126)))))" -" for-loop_45)" +"(values ht_120)))))" +"(if(not #f)(for-loop_48 ht_129 rest_147) ht_129)))" +" ht_128)))))" +" for-loop_48)" " '#hasheq()" -" lst_171)))" +" lst_173)))" " #f" " main_0))))))))))" "(define-values" @@ -34832,8 +35123,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_72)(hash-ref(1/linklet-directory->hash ld_3) #f #f)))" -"(if b_72(hash-ref(1/linklet-bundle->hash b_72) 'decl #f) #f))" +"(if(let-values(((b_70)(hash-ref(1/linklet-directory->hash ld_3) #f #f)))" +"(if b_70(hash-ref(1/linklet-bundle->hash b_70) 'decl #f) #f))" " #t" " #f)" " #f)))" @@ -34851,7 +35142,7 @@ static const char *startup_source = "(void)" " (let-values () (raise-argument-error 'module-compiled-name \"compiled-module-expression?\" c_18)))" "(module-compiled-current-name c_18))))" -"((c_36 name_55)" +"((c_36 name_54)" "(let-values((()" "(begin" "(if(1/compiled-module-expression? c_36)" @@ -34860,21 +35151,21 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(if(let-values(((or-part_13)(symbol? name_55)))" +"(if(let-values(((or-part_13)(symbol? name_54)))" "(if or-part_13" " or-part_13" -"(if(pair? name_55)(if(list? name_55)(andmap2 symbol? name_55) #f) #f)))" +"(if(pair? name_54)(if(list? name_54)(andmap2 symbol? name_54) #f) #f)))" "(void)" "(let-values()" "(raise-argument-error" " 'module-compiled-name" " \"(or/c symbol? (cons/c symbol? (non-empty-listof symbol?)))\"" -" name_55)))" +" name_54)))" "(values))))" "(let-values(((i-name_0 prefix_5)" -"(if(symbol? name_55)" -"(values name_55 null)" -"(let-values(((r_40)(reverse$1 name_55)))(values(car r_40)(reverse$1(cdr r_40)))))))" +"(if(symbol? name_54)" +"(values name_54 null)" +"(let-values(((r_39)(reverse$1 name_54)))(values(car r_39)(reverse$1(cdr r_39)))))))" "(change-module-name c_36 i-name_0 prefix_5)))))))" "(define-values" "(1/module-compiled-submodules)" @@ -34894,36 +35185,36 @@ static const char *startup_source = "(let-values()" "(if(1/linklet-directory? c_37)" "(let-values()" -"(let-values(((ht_129)(1/linklet-directory->hash c_37)))" -"(let-values(((bh_0)(1/linklet-bundle->hash(hash-ref ht_129 #f))))" +"(let-values(((ht_131)(1/linklet-directory->hash c_37)))" +"(let-values(((bh_0)(1/linklet-bundle->hash(hash-ref ht_131 #f))))" "(let-values(((names_1)(hash-ref bh_0(if non-star?_0 'pre 'post) null)))" "(reverse$1" -"(let-values(((lst_78) names_1))" +"(let-values(((lst_79) names_1))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_78)))" -"((letrec-values(((for-loop_68)" -"(lambda(fold-var_30 lst_276)" +"(let-values()(check-list lst_79)))" +"((letrec-values(((for-loop_72)" +"(lambda(fold-var_30 lst_273)" "(begin" " 'for-loop" -"(if(pair? lst_276)" -"(let-values(((name_56)(unsafe-car lst_276))" -"((rest_148)(unsafe-cdr lst_276)))" +"(if(pair? lst_273)" +"(let-values(((name_55)(unsafe-car lst_273))" +"((rest_148)(unsafe-cdr lst_273)))" "(let-values(((fold-var_31)" "(let-values(((fold-var_32) fold-var_30))" "(let-values(((fold-var_33)" "(let-values()" "(cons" "(let-values()" -"(hash-ref ht_129 name_56))" +"(hash-ref ht_131 name_55))" " fold-var_32))))" "(values fold-var_33)))))" -"(if(not #f)(for-loop_68 fold-var_31 rest_148) fold-var_31)))" +"(if(not #f)(for-loop_72 fold-var_31 rest_148) fold-var_31)))" " fold-var_30)))))" -" for-loop_68)" +" for-loop_72)" " null" -" lst_78))))))))" +" lst_79))))))))" "(let-values() null)))))))" "((c_38 non-star?_1 submods_1)" "(begin" @@ -34935,9 +35226,9 @@ static const char *startup_source = "(let-values()" " (raise-argument-error 'module-compiled-submodules \"(listof compiled-module-expression?)\" submods_1)))" "(if(if(null? submods_1)" -"(let-values(((or-part_76)(1/linklet-bundle?(compiled->linklet-directory-or-bundle c_38))))" -"(if or-part_76" -" or-part_76" +"(let-values(((or-part_74)(1/linklet-bundle?(compiled->linklet-directory-or-bundle c_38))))" +"(if or-part_74" +" or-part_74" "(if(compiled-in-memory? c_38)" "(null?" "(if non-star?_1" @@ -34954,8 +35245,8 @@ static const char *startup_source = "(if non-star?_1(compiled-in-memory-post-compiled-in-memorys c_38) submods_1)))" "(let-values(((n-c_0)(normalize-to-linklet-directory c_38)))" "(fixup-submodule-names" -"(let-values(((the-struct_57) n-c_0))" -"(if(compiled-in-memory? the-struct_57)" +"(let-values(((the-struct_56) n-c_0))" +"(if(compiled-in-memory? the-struct_56)" "(let-values(((pre-compiled-in-memorys1_0) pre-compiled-in-memorys_1)" "((post-compiled-in-memorys2_0) post-compiled-in-memorys_1)" "((linklet-directory3_0)" @@ -34973,19 +35264,19 @@ static const char *startup_source = "(rebuild-linklet-directory5.1 temp5_3 #t temp4_1 temp6_0))))" "(compiled-in-memory1.1" " linklet-directory3_0" -"(compiled-in-memory-original-self the-struct_57)" -"(compiled-in-memory-requires the-struct_57)" -"(compiled-in-memory-provides the-struct_57)" -"(compiled-in-memory-phase-to-link-module-uses the-struct_57)" -"(compiled-in-memory-compile-time-inspector the-struct_57)" -"(compiled-in-memory-phase-to-link-extra-inspectorsss the-struct_57)" -"(compiled-in-memory-mpis the-struct_57)" -"(compiled-in-memory-syntax-literals the-struct_57)" +"(compiled-in-memory-original-self the-struct_56)" +"(compiled-in-memory-requires the-struct_56)" +"(compiled-in-memory-provides the-struct_56)" +"(compiled-in-memory-phase-to-link-module-uses the-struct_56)" +"(compiled-in-memory-compile-time-inspector the-struct_56)" +"(compiled-in-memory-phase-to-link-extra-inspectorsss the-struct_56)" +"(compiled-in-memory-mpis the-struct_56)" +"(compiled-in-memory-syntax-literals the-struct_56)" " pre-compiled-in-memorys1_0" " post-compiled-in-memorys2_0" -"(compiled-in-memory-namespace-scopes the-struct_57)" -"(compiled-in-memory-purely-functional? the-struct_57)))" -" (raise-argument-error 'struct-copy \"compiled-in-memory?\" the-struct_57))))))))" +"(compiled-in-memory-namespace-scopes the-struct_56)" +"(compiled-in-memory-purely-functional? the-struct_56)))" +" (raise-argument-error 'struct-copy \"compiled-in-memory?\" the-struct_56))))))))" "(let-values()" "(let-values(((n-c_1)(normalize-to-linklet-directory c_38)))" "(fixup-submodule-names" @@ -35066,17 +35357,17 @@ 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_99)" -"(lambda(table_106 pos_100)" +"((letrec-values(((for-loop_103)" +"(lambda(table_111 pos_100)" "(begin" " 'for-loop" "(if(< pos_100 end_27)" "(let-values(((phase-level_20) pos_100))" -"(let-values(((table_113)" -"(let-values(((table_56) table_106))" -"(let-values(((table_190)" +"(let-values(((table_198)" +"(let-values(((table_61) table_111))" +"(let-values(((table_199)" "(let-values()" -"(let-values(((key_73 val_47)" +"(let-values(((key_74 val_48)" "(let-values()" "(let-values(((linklet_6)" "(hash-ref" @@ -35089,11 +35380,11 @@ static const char *startup_source = "(1/linklet-export-variables" " linklet_6)" " null))))))" -"(hash-set table_56 key_73 val_47)))))" -"(values table_190)))))" -"(if(not #f)(for-loop_99 table_113(+ pos_100 inc_21)) table_113)))" -" table_106)))))" -" for-loop_99)" +"(hash-set table_61 key_74 val_48)))))" +"(values table_199)))))" +"(if(not #f)(for-loop_103 table_198(+ pos_100 inc_21)) table_198)))" +" table_111)))))" +" for-loop_103)" " '#hash()" " start_38)))))))))))" "(define-values" @@ -35121,35 +35412,35 @@ static const char *startup_source = "(if(1/linklet-bundle? c_44)" "(let-values()(1/hash->linklet-directory(hasheq #f c_44)))" "(let-values()" -"(let-values(((the-struct_58) c_44))" -"(if(compiled-in-memory? the-struct_58)" +"(let-values(((the-struct_57) c_44))" +"(if(compiled-in-memory? the-struct_57)" "(let-values(((linklet-directory9_0)" "(normalize-to-linklet-directory(compiled-in-memory-linklet-directory c_44))))" "(compiled-in-memory1.1" " linklet-directory9_0" -"(compiled-in-memory-original-self the-struct_58)" -"(compiled-in-memory-requires the-struct_58)" -"(compiled-in-memory-provides the-struct_58)" -"(compiled-in-memory-phase-to-link-module-uses the-struct_58)" -"(compiled-in-memory-compile-time-inspector the-struct_58)" -"(compiled-in-memory-phase-to-link-extra-inspectorsss the-struct_58)" -"(compiled-in-memory-mpis the-struct_58)" -"(compiled-in-memory-syntax-literals the-struct_58)" -"(compiled-in-memory-pre-compiled-in-memorys the-struct_58)" -"(compiled-in-memory-post-compiled-in-memorys the-struct_58)" -"(compiled-in-memory-namespace-scopes the-struct_58)" -"(compiled-in-memory-purely-functional? the-struct_58)))" -" (raise-argument-error 'struct-copy \"compiled-in-memory?\" the-struct_58)))))))))" +"(compiled-in-memory-original-self the-struct_57)" +"(compiled-in-memory-requires the-struct_57)" +"(compiled-in-memory-provides the-struct_57)" +"(compiled-in-memory-phase-to-link-module-uses the-struct_57)" +"(compiled-in-memory-compile-time-inspector the-struct_57)" +"(compiled-in-memory-phase-to-link-extra-inspectorsss the-struct_57)" +"(compiled-in-memory-mpis the-struct_57)" +"(compiled-in-memory-syntax-literals the-struct_57)" +"(compiled-in-memory-pre-compiled-in-memorys the-struct_57)" +"(compiled-in-memory-post-compiled-in-memorys the-struct_57)" +"(compiled-in-memory-namespace-scopes the-struct_57)" +"(compiled-in-memory-purely-functional? the-struct_57)))" +" (raise-argument-error 'struct-copy \"compiled-in-memory?\" the-struct_57)))))))))" "(define-values" "(fixup-submodule-names)" "(lambda(c_45)(begin(1/module-compiled-name c_45(1/module-compiled-name c_45)))))" "(define-values" "(reset-submodule-names)" -"(lambda(b_73 pre?_1 submods_2)" +"(lambda(b_71 pre?_1 submods_2)" "(begin" "(1/hash->linklet-bundle" "(hash-set" -"(1/linklet-bundle->hash b_73)" +"(1/linklet-bundle->hash b_71)" "(if pre?_1 'pre 'post)" "(map2 module-compiled-immediate-name submods_2))))))" "(define-values" @@ -35168,7 +35459,7 @@ static const char *startup_source = " cctx12_1)" "(begin" " 'compile-module13" -"(let-values(((p_35) p11_1))" +"(let-values(((p_36) 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)))" @@ -35180,88 +35471,88 @@ 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_57)(syntax-e$1(parsed-module-name-id p_35))))" +"((name_56)(syntax-e$1(parsed-module-name-id p_36))))" "(if parent-full-name_0" "(append" "(if(list? parent-full-name_0) parent-full-name_0(list parent-full-name_0))" -"(list name_57))" -" name_57))))" -"(let-values(((compiled-submodules_0)(parsed-module-compiled-submodules p_35)))" +"(list name_56))" +" name_56))))" +"(let-values(((compiled-submodules_0)(parsed-module-compiled-submodules p_36)))" "(let-values(((get-submodules_0)" "(lambda(star?_0)" "(begin" " 'get-submodules" "(reverse$1" -"(let-values(((ht_121) compiled-submodules_0))" +"(let-values(((ht_124) compiled-submodules_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_121)))" -"((letrec-values(((for-loop_102)" -"(lambda(fold-var_67 i_156)" +"(let-values()(check-in-hash ht_124)))" +"((letrec-values(((for-loop_106)" +"(lambda(fold-var_67 i_154)" "(begin" " 'for-loop" -"(if i_156" -"(let-values(((name_58 star?+compiled_0)" +"(if i_154" +"(let-values(((name_57 star?+compiled_0)" "(hash-iterate-key+value" -" ht_121" -" i_156)))" +" ht_124" +" i_154)))" "(let-values(((fold-var_29)" -"(let-values(((fold-var_153)" +"(let-values(((fold-var_155)" " fold-var_67))" "(if(eq?" " star?_0" "(car star?+compiled_0))" "(let-values(((fold-var_9)" -" fold-var_153))" +" fold-var_155))" "(let-values(((fold-var_68)" "(let-values()" "(cons" "(let-values()" "(cons" -" name_58" +" name_57" "(if(if need-compiled-submodule-rename?_0" "(not" "(parsed-module-compiled-module" -" p_35))" +" p_36))" " #f)" "(update-submodule-names" "(cdr" " star?+compiled_0)" -" name_58" +" name_57" " full-module-name_1)" "(cdr" " star?+compiled_0))))" " fold-var_9))))" "(values fold-var_68)))" -" fold-var_153))))" +" fold-var_155))))" "(if(not #f)" -"(for-loop_102" +"(for-loop_106" " fold-var_29" -"(hash-iterate-next ht_121 i_156))" +"(hash-iterate-next ht_124 i_154))" " fold-var_29)))" " fold-var_67)))))" -" for-loop_102)" +" for-loop_106)" " null" -"(hash-iterate-first ht_121)))))))))" +"(hash-iterate-first ht_124)))))))))" "(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_35)))" +"(let-values(((c1_25)(parsed-module-compiled-module p_36)))" "(if c1_25" "((lambda(c_46)" -"(let-values(((name_59 prefix_6)" +"(let-values(((name_58 prefix_6)" "(if(symbol? full-module-name_1)" "(values full-module-name_1 null)" "(let-values(((r_10)(reverse$1 full-module-name_1)))" "(values(car r_10)(reverse$1(cdr r_10)))))))" -"(let-values(((m_18)(change-module-name c_46 name_59 prefix_6)))" +"(let-values(((m_18)(change-module-name c_46 name_58 prefix_6)))" "(1/module-compiled-submodules" "(1/module-compiled-submodules m_18 #t(map2 cdr pre-submodules_0))" " #f" "(map2 cdr post-submodules_0)))))" " c1_25)" "(let-values()" -"(let-values(((p37_0) p_35)" +"(let-values(((p37_0) p_36)" "((cctx38_0) cctx_16)" "((full-module-name39_0) full-module-name_1)" "((force-linklet-directory?40_0) force-linklet-directory?_0)" @@ -35297,7 +35588,7 @@ static const char *startup_source = " cctx33_0)" "(begin" " 'compile-module-from-parsed34" -"(let-values(((p_45) p32_0))" +"(let-values(((p_46) 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))" @@ -35310,21 +35601,21 @@ static const char *startup_source = "(let-values()" "(let-values()" "(let-values(((enclosing-self_0)(compile-context-module-self cctx_17)))" -"(let-values(((self_25)(parsed-module-self p_45)))" -"(let-values(((requires_5)(parsed-module-requires p_45)))" -"(let-values(((provides_11)(parsed-module-provides p_45)))" +"(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(((encoded-root-expand-ctx-box_1)" -"(box(parsed-module-encoded-root-ctx p_45))))" -"(let-values(((body-context-simple?_0)(parsed-module-root-ctx-simple? p_45)))" +"(box(parsed-module-encoded-root-ctx p_46))))" +"(let-values(((body-context-simple?_0)(parsed-module-root-ctx-simple? p_46)))" "(let-values(((language-info_2)" "(filter-language-info" -"(syntax-property$1(parsed-s p_45) 'module-language))))" -"(let-values(((bodys_6)(parsed-module-body p_45)))" +"(syntax-property$1(parsed-s p_46) 'module-language))))" +"(let-values(((bodys_6)(parsed-module-body p_46)))" "(let-values(((empty-result-for-module->namespace?_0) #f))" -"(let-values(((mpis_18)(make-module-path-index-table)))" +"(let-values(((mpis_19)(make-module-path-index-table)))" "(let-values(((body-cctx_0)" -"(let-values(((the-struct_59) cctx_17))" -"(if(compile-context? the-struct_59)" +"(let-values(((the-struct_58) cctx_17))" +"(if(compile-context? the-struct_58)" "(let-values(((phase47_1) 0)" "((self48_0) self_25)" "((module-self49_0) self_25)" @@ -35332,27 +35623,27 @@ static const char *startup_source = " full-module-name_2)" "((lazy-syntax-literals?51_0) #t))" "(compile-context1.1" -"(compile-context-namespace the-struct_59)" +"(compile-context-namespace the-struct_58)" " phase47_1" " self48_0" " module-self49_0" " full-module-name50_0" " lazy-syntax-literals?51_0" -"(compile-context-header the-struct_59)))" +"(compile-context-header the-struct_58)))" "(raise-argument-error" " 'struct-copy" " \"compile-context?\"" -" the-struct_59)))))" +" the-struct_58)))))" "(let-values(((cross-phase-persistent?_2) #f))" "(let-values(((side-effects_0)(make-hasheqv)))" "(let-values(((check-side-effects!_0)" "(lambda(e_74" " expected-results_3" -" phase_21" +" phase_22" " required-reference?_1)" "(begin" " 'check-side-effects!" -"(if(hash-ref side-effects_0 phase_21 #f)" +"(if(hash-ref side-effects_0 phase_22 #f)" "(void)" "(let-values()" "(if(let-values(((e52_2) e_74)" @@ -35372,7 +35663,7 @@ static const char *startup_source = "(let-values()" "(hash-set!" " side-effects_0" -" phase_21" +" phase_22" " #t))" "(void))))))))" "(let-values((()" @@ -35403,7 +35694,7 @@ static const char *startup_source = " root-ctx-pos_0)" "(let-values(((bodys55_0) bodys_6)" "((body-cctx56_0) body-cctx_0)" -"((mpis57_0) mpis_18)" +"((mpis57_0) mpis_19)" "((temp58_1)" "(list" "(list get-syntax-literal!-id)" @@ -35427,39 +35718,39 @@ static const char *startup_source = "(let-values(((ok?_25" " _69_0" " kw70_0)" -"(let-values(((s_381)" +"(let-values(((s_389)" "(parsed-s" " body_4)))" "(let-values(((orig-s_29)" -" s_381))" +" s_389))" "(let-values(((_69_1" " kw70_1)" -"(let-values(((s_382)" +"(let-values(((s_390)" "(if(syntax?$1" -" s_381)" +" s_389)" "(syntax-e$1" -" s_381)" -" s_381)))" +" s_389)" +" s_389)))" "(if(pair?" -" s_382)" +" s_390)" "(let-values(((_71_0)" "(let-values(((s_56)" "(car" -" s_382)))" +" s_390)))" " s_56))" "((kw72_0)" -"(let-values(((s_383)" +"(let-values(((s_391)" "(cdr" -" s_382)))" -"(let-values(((s_384)" +" s_390)))" +"(let-values(((s_392)" "(if(syntax?$1" -" s_383)" +" s_391)" "(syntax-e$1" -" s_383)" -" s_383)))" +" s_391)" +" s_391)))" "(let-values(((flat-s_18)" "(to-syntax-list.1" -" s_384)))" +" s_392)))" "(if(not" " flat-s_18)" "(let-values()" @@ -35481,7 +35772,7 @@ static const char *startup_source = " _69_1" " kw70_1))))))" "(begin" -"(let-values(((lst_277)" +"(let-values(((lst_274)" " kw70_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -35489,7 +35780,7 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_277)))" +" lst_274)))" "((letrec-values(((for-loop_13)" "(lambda(lst_29)" "(begin" @@ -35538,23 +35829,23 @@ static const char *startup_source = "(values))))" "(values))))))" " for-loop_13)" -" lst_277)))" +" lst_274)))" "(void)" " #f)))" "(let-values() #f))))" "((temp66_1)" -"(lambda(mod-name_17 phase_89)" -"(let-values(((ht_130)" +"(lambda(mod-name_17 phase_90)" +"(let-values(((ht_132)" "(if modules-being-compiled_1" "(hash-ref" " modules-being-compiled_1" " mod-name_17" " #f)" " #f)))" -"(if ht_130" +"(if ht_132" "(hash-ref" -" ht_130" -" phase_89" +" ht_132" +" phase_90" " #f)" " #f))))" "((to-source?67_0) to-source?_4)" @@ -35595,40 +35886,40 @@ static const char *startup_source = "(hash-set!" " modules-being-compiled_1" "(1/module-path-index-resolve self_25)" -"(let-values(((ht_131)" +"(let-values(((ht_133)" " body-linklets_2))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" -"(check-in-hash ht_131)))" -"((letrec-values(((for-loop_240)" -"(lambda(table_191" -" i_157)" +"(check-in-hash ht_133)))" +"((letrec-values(((for-loop_241)" +"(lambda(table_200" +" i_155)" "(begin" " 'for-loop" -"(if i_157" -"(let-values(((phase_90" +"(if i_155" +"(let-values(((phase_91" " linklet_7)" "(hash-iterate-key+value" -" ht_131" -" i_157)))" -"(let-values(((table_192)" -"(let-values(((table_193)" -" table_191))" -"(let-values(((table_194)" +" ht_133" +" i_155)))" +"(let-values(((table_201)" +"(let-values(((table_202)" +" table_200))" +"(let-values(((table_203)" "(let-values()" -"(let-values(((key_74" -" val_63)" +"(let-values(((key_75" +" val_64)" "(let-values()" "(values" -" phase_90" +" phase_91" "(module-linklet-info2.1" " linklet_7" "(hash-ref" " phase-to-link-module-uses_4" -" phase_90" +" phase_91" " #f)" " self_25" " #f" @@ -35636,27 +35927,27 @@ static const char *startup_source = "(if phase-to-link-extra-inspectorsss_2" "(hash-ref" " phase-to-link-extra-inspectorsss_2" -" phase_90" +" phase_91" " #f)" " #f))))))" "(hash-set" -" table_193" -" key_74" -" val_63)))))" +" table_202" +" key_75" +" val_64)))))" "(values" -" table_194)))))" +" table_203)))))" "(if(not" " #f)" -"(for-loop_240" -" table_192" +"(for-loop_241" +" table_201" "(hash-iterate-next" -" ht_131" -" i_157))" -" table_192)))" -" table_191)))))" -" for-loop_240)" +" ht_133" +" i_155))" +" table_201)))" +" table_200)))))" +" for-loop_241)" " '#hasheq()" -"(hash-iterate-first ht_131))))))" +"(hash-iterate-first ht_133))))))" "(void))" "(values))))" "(let-values(((declaration-linklet_0)" @@ -35679,14 +35970,14 @@ static const char *startup_source = " 'define-values" " '(self-mpi)" "(add-module-path-index!" -" mpis_18" +" mpis_19" " self_25))" "(list" " 'define-values" " '(requires)" "(let-values(((requires73_0)" " requires_5)" -"((mpis74_0) mpis_18)" +"((mpis74_0) mpis_19)" "((temp75_0) #f))" "(generate-deserialize6.1" " temp75_0" @@ -35698,7 +35989,7 @@ static const char *startup_source = " '(provides)" "(let-values(((provides76_0)" " provides_11)" -"((mpis77_0) mpis_18)" +"((mpis77_0) mpis_19)" "((temp78_1) #f))" "(generate-deserialize6.1" " temp78_1" @@ -35716,12 +36007,12 @@ static const char *startup_source = " syntax-literals_4))" "((if to-source?_4" " values" -"(lambda(s_84)" +"(lambda(s_323)" "(let-values()" "(let-values(((linklet_8" " new-keys_1)" "(1/compile-linklet" -" s_84" +" s_323" " 'syntax-literals" "(vector" " deserialize-instance" @@ -35751,7 +36042,7 @@ static const char *startup_source = "(qq-append" "(let-values(((syntax-literals79_0)" " syntax-literals_4)" -"((mpis80_0) mpis_18)" +"((mpis80_0) mpis_19)" "((self81_0) self_25)" "((temp82_0)" "(not" @@ -35784,10 +36075,10 @@ static const char *startup_source = " syntax-literals_4))" "((if to-source?_4" " values" -"(lambda(s_385)" +"(lambda(s_393)" "(let-values()" "(1/compile-linklet" -" s_385" +" s_393" " 'syntax-literals-data))))" "(list*" " 'linklet" @@ -35809,17 +36100,17 @@ static const char *startup_source = "(let-values()" "(generate-lazy-syntax-literals-data!" " syntax-literals_4" -" mpis_18))))" +" mpis_19))))" " #f)" " #f)))" "(let-values(((data-linklet_0)" "(if serializable?_3" "((if to-source?_4" " values" -"(lambda(s_198)" +"(lambda(s_202)" "(let-values()" "(1/compile-linklet" -" s_198" +" s_202" " 'data))))" "(list" " 'linklet" @@ -35833,7 +36124,7 @@ static const char *startup_source = " 'define-values" "(list mpi-vector-id)" "(generate-module-path-index-deserialize" -" mpis_18))))" +" mpis_19))))" " #f)))" "(let-values(((bundle_1)" "(let-values(((bundle_2)" @@ -35845,10 +36136,10 @@ static const char *startup_source = "(hash-set" " bundle_2" " 'decl" -"(let-values(((or-part_261)" +"(let-values(((or-part_260)" " declaration-linklet_0))" -"(if or-part_261" -" or-part_261" +"(if or-part_260" +" or-part_260" " 'in-memory)))))" "(let-values(((bundle_4)" "(if data-linklet_0" @@ -35962,7 +36253,7 @@ static const char *startup_source = "((if to-source?_4" " values" " 1/hash->linklet-directory)" -"(let-values(((lst_155)" +"(let-values(((lst_206)" "(append" " pre-submodules_1" " post-submodules_1)))" @@ -35972,27 +36263,27 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_155)))" -"((letrec-values(((for-loop_178)" -"(lambda(ht_132" -" lst_108)" +" lst_206)))" +"((letrec-values(((for-loop_122)" +"(lambda(ht_134" +" lst_275)" "(begin" " 'for-loop" "(if(pair?" -" lst_108)" +" lst_275)" "(let-values(((sm_0)" "(unsafe-car" -" lst_108))" -"((rest_78)" +" lst_275))" +"((rest_150)" "(unsafe-cdr" -" lst_108)))" -"(let-values(((ht_133)" -"(let-values(((ht_134)" -" ht_132))" -"(let-values(((ht_122)" +" lst_275)))" +"(let-values(((ht_135)" +"(let-values(((ht_136)" +" ht_134))" +"(let-values(((ht_125)" "(let-values()" "(hash-set" -" ht_134" +" ht_136" "(car" " sm_0)" "((if to-source?_4" @@ -36001,17 +36292,17 @@ static const char *startup_source = "(cdr" " sm_0))))))" "(values" -" ht_122)))))" +" ht_125)))))" "(if(not" " #f)" -"(for-loop_178" -" ht_133" -" rest_78)" -" ht_133)))" -" ht_132)))))" -" for-loop_178)" +"(for-loop_122" +" ht_135" +" rest_150)" +" ht_135)))" +" ht_134)))))" +" for-loop_122)" "(hasheq #f bundle_1)" -" lst_155))))))))" +" lst_206))))))))" "(if to-source?_4" "(let-values() ld_4)" "(let-values()" @@ -36023,7 +36314,7 @@ static const char *startup_source = " phase-to-link-module-uses_4" "(current-code-inspector)" " phase-to-link-extra-inspectorsss_2" -"(mpis-as-vector mpis_18)" +"(mpis-as-vector mpis_19)" "(syntax-literals-as-vector" " syntax-literals_4)" "(map2 cdr pre-submodules_1)" @@ -36032,34 +36323,34 @@ static const char *startup_source = " #f)))))))))))))))))))))))))))))))))))))))))" "(define-values" "(update-submodule-names)" -"(lambda(cim_9 name_60 full-module-name_3)" +"(lambda(cim_9 name_59 full-module-name_3)" "(begin" "(change-module-name" " cim_9" -" name_60" +" name_59" "(if(symbol? full-module-name_3)(list full-module-name_3)(reverse$1(cdr(reverse$1 full-module-name_3))))))))" "(define-values" "(register-compiled-submodules)" "(lambda(modules-being-compiled_2 pre-submodules_2 self_26)" "(begin" "(begin" -"(let-values(((lst_278) pre-submodules_2))" +"(let-values(((lst_276) pre-submodules_2))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_278)))" -"((letrec-values(((for-loop_241)" -"(lambda(lst_279)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_276)))" +"((letrec-values(((for-loop_242)" +"(lambda(lst_277)" "(begin" " 'for-loop" -"(if(pair? lst_279)" -"(let-values(((s_386)(unsafe-car lst_279))((rest_150)(unsafe-cdr lst_279)))" +"(if(pair? lst_277)" +"(let-values(((s_394)(unsafe-car lst_277))((rest_151)(unsafe-cdr lst_277)))" "(let-values((()" "(let-values()" "(let-values((()" "(let-values()" "(begin" "(let-values()" -"(let-values(((name_61)(car s_386)))" -"(let-values(((cim_10)(cdr s_386)))" +"(let-values(((name_60)(car s_394)))" +"(let-values(((cim_10)(cdr s_394)))" "(let-values(((phase-to-link-module-uses_5)" "(compiled-in-memory-phase-to-link-module-uses" " cim_10)))" @@ -36071,7 +36362,7 @@ static const char *startup_source = "(list" " 'submod" " \".\"" -" name_61)" +" name_60)" " self_26)))" "(let-values(((phase-to-extra-inspectorsss_0)" "(compiled-in-memory-phase-to-link-extra-inspectorsss" @@ -36080,7 +36371,7 @@ static const char *startup_source = " modules-being-compiled_2" "(1/module-path-index-resolve" " sm-self_0)" -"(let-values(((ht_135)" +"(let-values(((ht_137)" "(1/linklet-bundle->hash" "(if(1/linklet-directory?" " ld_5)" @@ -36094,9 +36385,9 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()" -"(check-in-hash ht_135)))" -"((letrec-values(((for-loop_242)" -"(lambda(table_195" +"(check-in-hash ht_137)))" +"((letrec-values(((for-loop_243)" +"(lambda(table_204" " i_5)" "(begin" " 'for-loop" @@ -36104,19 +36395,19 @@ static const char *startup_source = "(let-values(((phase_2" " linklet_9)" "(hash-iterate-key+value" -" ht_135" +" ht_137" " i_5)))" -"(let-values(((table_196)" -"(let-values(((table_197)" -" table_195))" +"(let-values(((table_205)" +"(let-values(((table_206)" +" table_204))" "(if(number?" " phase_2)" -"(let-values(((table_198)" -" table_197))" +"(let-values(((table_207)" +" table_206))" "(let-values(((table_46)" "(let-values()" -"(let-values(((key_75" -" val_64)" +"(let-values(((key_76" +" val_65)" "(let-values()" "(values" " phase_2" @@ -36138,31 +36429,31 @@ static const char *startup_source = " #f)" " #f))))))" "(hash-set" -" table_198" -" key_75" -" val_64)))))" +" table_207" +" key_76" +" val_65)))))" "(values" " table_46)))" -" table_197))))" +" table_206))))" "(if(not" " #f)" -"(for-loop_242" -" table_196" +"(for-loop_243" +" table_205" "(hash-iterate-next" -" ht_135" +" ht_137" " i_5))" -" table_196)))" -" table_195)))))" -" for-loop_242)" +" table_205)))" +" table_204)))))" +" for-loop_243)" " '#hasheq()" "(hash-iterate-first" -" ht_135))))))))))))" +" ht_137))))))))))))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_241 rest_150)(values))))" +"(if(not #f)(for-loop_242 rest_151)(values))))" "(values))))))" -" for-loop_241)" -" lst_278)))" +" for-loop_242)" +" lst_276)))" "(void)))))" "(define-values" "(filter-language-info)" @@ -36185,59 +36476,59 @@ static const char *startup_source = "(if(1/linklet-bundle? c_31)" "(let-values()" "(1/hash->linklet-bundle" -"(let-values(((ht_136)(1/linklet-bundle->hash c_31)))" +"(let-values(((ht_138)(1/linklet-bundle->hash c_31)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_136)))" -"((letrec-values(((for-loop_243)" -"(lambda(table_199 i_158)" +"(let-values()(check-in-hash ht_138)))" +"((letrec-values(((for-loop_244)" +"(lambda(table_208 i_156)" "(begin" " 'for-loop" -"(if i_158" -"(let-values(((k_32 v_67)(hash-iterate-key+value ht_136 i_158)))" -"(let-values(((table_200)" -"(let-values(((table_201) table_199))" -"(let-values(((table_202)" +"(if i_156" +"(let-values(((k_32 v_66)(hash-iterate-key+value ht_138 i_156)))" +"(let-values(((table_209)" +"(let-values(((table_210) table_208))" +"(let-values(((table_211)" "(let-values()" -"(let-values(((key_28 val_18)" +"(let-values(((key_29 val_19)" "(let-values()" -"(if(1/linklet? v_67)" +"(if(1/linklet? v_66)" "(let-values()" "(values" " k_32" "(1/recompile-linklet" -" v_67)))" +" v_66)))" "(let-values()" -"(values k_32 v_67))))))" -"(hash-set table_201 key_28 val_18)))))" -"(values table_202)))))" +"(values k_32 v_66))))))" +"(hash-set table_210 key_29 val_19)))))" +"(values table_211)))))" "(if(not #f)" -"(for-loop_243 table_200(hash-iterate-next ht_136 i_158))" -" table_200)))" -" table_199)))))" -" for-loop_243)" +"(for-loop_244 table_209(hash-iterate-next ht_138 i_156))" +" table_209)))" +" table_208)))))" +" for-loop_244)" " '#hasheq()" -"(hash-iterate-first ht_136))))))" +"(hash-iterate-first ht_138))))))" "(if(1/linklet-directory? c_31)" "(let-values()" "(1/hash->linklet-directory" -"(let-values(((ht_137)(1/linklet-directory->hash c_31)))" +"(let-values(((ht_139)(1/linklet-directory->hash c_31)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_137)))" -"((letrec-values(((for-loop_244)" -"(lambda(table_203 i_159)" +"(let-values()(check-in-hash ht_139)))" +"((letrec-values(((for-loop_245)" +"(lambda(table_212 i_157)" "(begin" " 'for-loop" -"(if i_159" -"(let-values(((k_33 v_1)(hash-iterate-key+value ht_137 i_159)))" -"(let-values(((table_204)" -"(let-values(((table_205) table_203))" -"(let-values(((table_206)" +"(if i_157" +"(let-values(((k_33 v_1)(hash-iterate-key+value ht_139 i_157)))" +"(let-values(((table_213)" +"(let-values(((table_214) table_212))" +"(let-values(((table_215)" "(let-values()" -"(let-values(((key_76 val_65)" +"(let-values(((key_77 val_66)" "(let-values()" "(if(1/compiled-expression?" " v_1)" @@ -36248,15 +36539,15 @@ static const char *startup_source = " v_1)))" "(let-values()" "(values k_33 v_1))))))" -"(hash-set table_205 key_76 val_65)))))" -"(values table_206)))))" +"(hash-set table_214 key_77 val_66)))))" +"(values table_215)))))" "(if(not #f)" -"(for-loop_244 table_204(hash-iterate-next ht_137 i_159))" -" table_204)))" -" table_203)))))" -" for-loop_244)" +"(for-loop_245 table_213(hash-iterate-next ht_139 i_157))" +" table_213)))" +" table_212)))))" +" for-loop_245)" " '#hasheq()" -"(hash-iterate-first ht_137))))))" +"(hash-iterate-first ht_139))))))" "(let-values() c_31)))))))" "(define-values" "(create-compiled-in-memorys-using-shared-data)" @@ -36273,7 +36564,7 @@ static const char *startup_source = "((temp4_2)(namespace-bulk-binding-registry ns_59))" "((temp5_4)(current-code-inspector)))" "(make-eager-instance-instance11.1 temp4_2 temp2_3 temp5_4 ns1_1 temp3_3))))))" -"(let-values(((data_0)(lambda(key_77)(begin 'data(1/instance-variable-value data-instance_5 key_77)))))" +"(let-values(((data_0)(lambda(key_78)(begin 'data(1/instance-variable-value data-instance_5 key_78)))))" "(let-values(((mpi-vector_0)(data_0 mpi-vector-id)))" "(let-values(((mpi-vector-trees_0)(data_0 'mpi-vector-trees)))" "(let-values(((phase-to-link-modules-vector_0)(data_0 'phase-to-link-modules-vector)))" @@ -36289,16 +36580,16 @@ static const char *startup_source = "(begin" " 'construct-compiled-in-memory" "(let-values(((is-module?_0)" -"(let-values(((or-part_75)(1/linklet-bundle? ld_6)))" -"(if or-part_75" -" or-part_75" -"(let-values(((b_74)" +"(let-values(((or-part_73)(1/linklet-bundle? ld_6)))" +"(if or-part_73" +" or-part_73" +"(let-values(((b_72)" "(hash-ref" "(1/linklet-directory->hash ld_6)" " #f" " #f)))" -"(if b_74" -"(hash-ref(1/linklet-bundle->hash b_74) 'decl #f)" +"(if b_72" +"(hash-ref(1/linklet-bundle->hash b_72) 'decl #f)" " #f))))))" "(let-values(((mpi-pos-vec_0)(vector-ref mpi-vector-tree_0 0)))" "(let-values(((syntax-literals-spec_0)" @@ -36316,16 +36607,16 @@ static const char *startup_source = "(begin" " 'map-construct-compiled-in-memory" "(reverse$1" -"(let-values(((lst_269) l_10)" -"((lst_88)" +"(let-values(((lst_266) l_10)" +"((lst_89)" "(vector-ref" " mpi-vector-tree_0" " vec-pos_0))" -"((lst_161)" +"((lst_163)" "(vector-ref" " phase-to-link-modules-tree_0" " vec-pos_0))" -"((lst_267)" +"((lst_264)" "(vector-ref" " syntax-literals-tree_0" " vec-pos_0)))" @@ -36333,66 +36624,66 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_269)))" +"(let-values()(check-list lst_266)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_88)))" +"(let-values()(check-list lst_89)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_161)))" +"(let-values()(check-list lst_163)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_267)))" +"(let-values()(check-list lst_264)))" "((letrec-values(((for-loop_229)" -"(lambda(fold-var_153" -" lst_270" +"(lambda(fold-var_155" +" lst_267" " lst_24" -" lst_170" -" lst_89)" +" lst_102" +" lst_90)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_270)" +" lst_267)" "(if(pair?" " lst_24)" "(if(pair?" -" lst_170)" +" lst_102)" "(pair?" -" lst_89)" +" lst_90)" " #f)" " #f)" " #f)" "(let-values(((sub-ld_0)" "(unsafe-car" -" lst_270))" -"((rest_151)" +" lst_267))" +"((rest_152)" "(unsafe-cdr" -" lst_270))" +" lst_267))" "((mpi-vector-tree_1)" "(unsafe-car" " lst_24))" -"((rest_152)" +"((rest_49)" "(unsafe-cdr" " lst_24))" "((phase-to-link-modules-tree_1)" "(unsafe-car" -" lst_170))" +" lst_102))" "((rest_87)" "(unsafe-cdr" -" lst_170))" +" lst_102))" "((syntax-literals-tree_1)" "(unsafe-car" -" lst_89))" -"((rest_36)" +" lst_90))" +"((rest_37)" "(unsafe-cdr" -" lst_89)))" +" lst_90)))" +"(let-values(((fold-var_164)" "(let-values(((fold-var_165)" +" fold-var_155))" "(let-values(((fold-var_166)" -" fold-var_153))" -"(let-values(((fold-var_167)" "(let-values()" "(cons" "(let-values()" @@ -36401,24 +36692,24 @@ static const char *startup_source = " mpi-vector-tree_1" " phase-to-link-modules-tree_1" " syntax-literals-tree_1))" -" fold-var_166))))" +" fold-var_165))))" "(values" -" fold-var_167)))))" +" fold-var_166)))))" "(if(not #f)" "(for-loop_229" -" fold-var_165" -" rest_151" +" fold-var_164" " rest_152" +" rest_49" " rest_87" -" rest_36)" -" fold-var_165)))" -" fold-var_153)))))" +" rest_37)" +" fold-var_164)))" +" fold-var_155)))))" " for-loop_229)" " null" -" lst_269" -" lst_88" -" lst_161" -" lst_267))))))))" +" lst_266" +" lst_89" +" lst_163" +" lst_264))))))))" "(compiled-in-memory1.1" " ld_6" " #f" @@ -36438,24 +36729,24 @@ static const char *startup_source = " 'for/vector" " \"exact-nonnegative-integer?\"" " len_29)))" -"(let-values(((v_63)(make-vector len_29 0)))" +"(let-values(((v_62)(make-vector len_29 0)))" "(begin" "(if(zero? len_29)" "(void)" "(let-values()" -"(let-values(((vec_60 len_30)" -"(let-values(((vec_61)" +"(let-values(((vec_62 len_30)" +"(let-values(((vec_63)" " mpi-pos-vec_0))" "(begin" -"(check-vector vec_61)" +"(check-vector vec_63)" "(values" -" vec_61" +" vec_63" "(unsafe-vector-length" -" vec_61))))))" +" vec_63))))))" "(begin" " #f" -"((letrec-values(((for-loop_99)" -"(lambda(i_160 pos_100)" +"((letrec-values(((for-loop_103)" +"(lambda(i_158 pos_100)" "(begin" " 'for-loop" "(if(unsafe-fx<" @@ -36463,45 +36754,45 @@ static const char *startup_source = " len_30)" "(let-values(((pos_101)" "(unsafe-vector-ref" -" vec_60" +" vec_62" " pos_100)))" -"(let-values(((i_161)" -"(let-values(((i_93)" -" i_160))" -"(let-values(((i_57)" +"(let-values(((i_159)" +"(let-values(((i_160)" +" i_158))" +"(let-values(((i_58)" "(let-values()" "(begin" "(unsafe-vector*-set!" -" v_63" -" i_93" +" v_62" +" i_160" "(let-values()" "(vector-ref" " mpi-vector_0" " pos_101)))" "(unsafe-fx+" " 1" -" i_93)))))" +" i_160)))))" "(values" -" i_57)))))" +" i_58)))))" "(if(if(not" "((lambda x_19" "(unsafe-fx=" -" i_161" +" i_159" " len_29))" " pos_101))" "(not #f)" " #f)" -"(for-loop_99" -" i_161" +"(for-loop_103" +" i_159" "(unsafe-fx+" " 1" " pos_100))" -" i_161)))" -" i_160)))))" -" for-loop_99)" +" i_159)))" +" i_158)))))" +" for-loop_103)" " 0" " 0)))))" -" v_63))))" +" v_62))))" "(let-values(((len_31)(cdr syntax-literals-spec_0)))" "(begin" "(if(exact-nonnegative-integer? len_31)" @@ -36526,17 +36817,17 @@ static const char *startup_source = "(void)" "(let-values()" "(check-range start_15 end_28 inc_22)))" -"((letrec-values(((for-loop_245)" -"(lambda(i_162 pos_102)" +"((letrec-values(((for-loop_246)" +"(lambda(i_161 pos_102)" "(begin" " 'for-loop" "(if(< pos_102 end_28)" "(let-values(((i_20)" " pos_102))" -"(let-values(((i_163)" +"(let-values(((i_162)" "(let-values(((i_34)" -" i_162))" -"(let-values(((i_94)" +" i_161))" +"(let-values(((i_163)" "(let-values()" "(begin" "(unsafe-vector*-set!" @@ -36555,23 +36846,23 @@ static const char *startup_source = " 1" " i_34)))))" "(values" -" i_94)))))" +" i_163)))))" "(if(if(not" -"((lambda x_72" +"((lambda x_70" "(unsafe-fx=" -" i_163" +" i_162" " len_31))" " i_20))" "(not #f)" " #f)" -"(for-loop_245" -" i_163" +"(for-loop_246" +" i_162" "(+" " pos_102" " inc_22))" -" i_163)))" -" i_162)))))" -" for-loop_245)" +" i_162)))" +" i_161)))))" +" for-loop_246)" " 0" " start_15)))))" " v_34))))" @@ -36598,18 +36889,18 @@ 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_175) names_2))" +"(let-values(((lst_177) names_2))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_175)))" -"((letrec-values(((for-loop_246)" -"(lambda(fold-var_5 lst_280)" +"(let-values()(check-list lst_177)))" +"((letrec-values(((for-loop_247)" +"(lambda(fold-var_5 lst_278)" "(begin" " 'for-loop" -"(if(pair? lst_280)" -"(let-values(((name_44)(unsafe-car lst_280))" -"((rest_153)(unsafe-cdr lst_280)))" +"(if(pair? lst_278)" +"(let-values(((name_44)(unsafe-car lst_278))" +"((rest_153)(unsafe-cdr lst_278)))" "(let-values(((fold-var_224)" "(let-values(((fold-var_225) fold-var_5))" "(let-values(((fold-var_226)" @@ -36625,11 +36916,11 @@ static const char *startup_source = " name_44))))" " fold-var_225))))" "(values fold-var_226)))))" -"(if(not #f)(for-loop_246 fold-var_224 rest_153) fold-var_224)))" +"(if(not #f)(for-loop_247 fold-var_224 rest_153) fold-var_224)))" " fold-var_5)))))" -" for-loop_246)" +" for-loop_247)" " null" -" lst_175))))))))))))))" +" lst_177))))))))))))))" "(define-values" "(eval-single-top)" "(lambda(c_31 ns_42)" @@ -36752,12 +37043,12 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-range start_39 end_29 inc_23)))" -"((letrec-values(((for-loop_233)" +"((letrec-values(((for-loop_234)" "(lambda(prev-thunk_0 pos_103)" "(begin" " 'for-loop" "(if(> pos_103 end_29)" -"(let-values(((phase_91) pos_103))" +"(let-values(((phase_92) pos_103))" "(let-values(((prev-thunk_1)" "(let-values(((prev-thunk_2)" " prev-thunk_0))" @@ -36771,7 +37062,7 @@ static const char *startup_source = "(let-values(((module-uses_1)" "(hash-ref" " phase-to-link-modules_1" -" phase_91" +" phase_92" " null)))" "(let-values(((import-module-instances_2" " import-instances_1)" @@ -36786,7 +37077,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_226)))" -"((letrec-values(((for-loop_94)" +"((letrec-values(((for-loop_98)" "(lambda(mis_7" " is_6" " lst_227)" @@ -36819,7 +37110,7 @@ static const char *startup_source = "((temp33_1)" "(phase-" "(phase+" -" phase_91" +" phase_92" " phase-shift_19)" "(module-use-phase" " mu_9))))" @@ -36843,7 +37134,7 @@ static const char *startup_source = " is_9)))))" "(if(not" " #f)" -"(for-loop_94" +"(for-loop_98" " mis_8" " is_7" " rest_119)" @@ -36853,7 +37144,7 @@ static const char *startup_source = "(values" " mis_7" " is_6))))))" -" for-loop_94)" +" for-loop_98)" " null" " null" " lst_226)))))" @@ -36866,7 +37157,7 @@ static const char *startup_source = "(namespace->namespace-at-phase" " ns_70" "(phase+" -" phase_91" +" phase_92" " phase-shift_19))))" "(let-values(((inst_6)" "(if single-expression?_1" @@ -36886,15 +37177,15 @@ static const char *startup_source = " ns_70))" "((temp39_3)" "(lambda(name_45" -" val_66)" +" val_67)" "(namespace-set-transformer!" " ns_70" "(phase+" "(sub1" -" phase_91)" +" phase_92)" " phase-shift_19)" " name_45" -" val_66))))" +" val_67))))" "(make-instance-instance13.1" " temp38_2" " temp37_1" @@ -36905,7 +37196,7 @@ static const char *startup_source = "(let-values(((linklet_10)" "(hash-ref" " h_11" -" phase_91" +" phase_92" " #f)))" "(if linklet_10" "(let-values()" @@ -36926,7 +37217,7 @@ static const char *startup_source = "((temp46_1)" "(hash-ref" " phase-to-link-extra-inspectorsss_3" -" phase_91" +" phase_92" " #f)))" "(check-require-access9.1" " temp41_2" @@ -36952,14 +37243,14 @@ static const char *startup_source = " ns_70" "(phase-" "(phase+" -" phase_91" +" phase_92" " phase-shift_19)" "(namespace-0-phase" " ns_70)))" "(not" " tail?_49))))))" "(if(zero-phase?" -" phase_91)" +" phase_92)" "(let-values()" " instantiate_0)" "(if single-expression?_1" @@ -36983,7 +37274,7 @@ static const char *startup_source = "(namespace->namespace-at-phase" " phase-ns_0" "(sub1" -" phase_91))))" +" phase_92))))" "(lambda(tail?_51)" "(begin" " 'prev-thunk" @@ -37014,12 +37305,12 @@ static const char *startup_source = "(values" " prev-thunk_3)))))" "(if(not #f)" -"(for-loop_233" +"(for-loop_234" " prev-thunk_1" "(+ pos_103 inc_23))" " prev-thunk_1)))" " prev-thunk_0)))))" -" for-loop_233)" +" for-loop_234)" " void" " start_39)))))" "(thunk_3 as-tail?_2))))))))))))))))))))" @@ -37042,36 +37333,36 @@ static const char *startup_source = "(void)" "(let-values()" " (raise-argument-error 'for/vector \"exact-nonnegative-integer?\" len_32)))" -"(let-values(((v_185)(make-vector len_32 0)))" +"(let-values(((v_183)(make-vector len_32 0)))" "(begin" "(if(zero? len_32)" "(void)" "(let-values()" -"(let-values(((vec_62 len_33)" -"(let-values(((vec_63) orig-syntax-literals_0))" +"(let-values(((vec_64 len_33)" +"(let-values(((vec_65) orig-syntax-literals_0))" "(begin" -"(check-vector vec_63)" -"(values vec_63(unsafe-vector-length vec_63))))))" +"(check-vector vec_65)" +"(values vec_65(unsafe-vector-length vec_65))))))" "(begin" " #f" -"((letrec-values(((for-loop_247)" +"((letrec-values(((for-loop_248)" "(lambda(i_164 pos_104)" "(begin" " 'for-loop" "(if(unsafe-fx< pos_104 len_33)" -"(let-values(((s_387)" -"(unsafe-vector-ref vec_62 pos_104)))" +"(let-values(((s_395)" +"(unsafe-vector-ref vec_64 pos_104)))" "(let-values(((i_165)" "(let-values(((i_166) i_164))" "(let-values(((i_167)" "(let-values()" "(begin" "(unsafe-vector*-set!" -" v_185" +" v_183" " i_166" "(let-values()" "(swap-top-level-scopes" -" s_387" +" s_395" "(compiled-in-memory-namespace-scopes" " cim_11)" " to-ns_0)))" @@ -37080,18 +37371,18 @@ static const char *startup_source = " i_166)))))" "(values i_167)))))" "(if(if(not" -"((lambda x_73" +"((lambda x_71" "(unsafe-fx= i_165 len_32))" -" s_387))" +" s_395))" "(not #f)" " #f)" -"(for-loop_247 i_165(unsafe-fx+ 1 pos_104))" +"(for-loop_248 i_165(unsafe-fx+ 1 pos_104))" " i_165)))" " i_164)))))" -" for-loop_247)" +" for-loop_248)" " 0" " 0)))))" -" v_185)))))))))" +" v_183)))))))))" "(1/make-instance" " 'link" " #f" @@ -37104,60 +37395,60 @@ static const char *startup_source = "(define-values(get-not-available)(lambda()(begin not-available)))" "(define-values" "(can-direct-eval?)" -"(lambda(p_42 ns_42 self-mpi_3)" +"(lambda(p_43 ns_42 self-mpi_3)" "(begin" -"(if(parsed-app? p_42)" +"(if(parsed-app? p_43)" "(let-values()" -"(if(can-direct-eval?(parsed-app-rator p_42) ns_42 self-mpi_3)" -"(let-values(((lst_100)(parsed-app-rands p_42)))" +"(if(can-direct-eval?(parsed-app-rator p_43) ns_42 self-mpi_3)" +"(let-values(((lst_101)(parsed-app-rands p_43)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_100)))" -"((letrec-values(((for-loop_107)" +"(let-values()(check-list lst_101)))" +"((letrec-values(((for-loop_111)" "(lambda(result_111 lst_6)" "(begin" " 'for-loop" "(if(pair? lst_6)" -"(let-values(((r_41)(unsafe-car lst_6))((rest_47)(unsafe-cdr lst_6)))" +"(let-values(((r_40)(unsafe-car lst_6))((rest_48)(unsafe-cdr lst_6)))" "(let-values(((result_79)" "(let-values()" "(let-values(((result_112)" "(let-values()" "(let-values()" -"(can-direct-eval? r_41 ns_42 self-mpi_3)))))" +"(can-direct-eval? r_40 ns_42 self-mpi_3)))))" "(values result_112)))))" -"(if(if(not((lambda x_74(not result_79)) r_41))(not #f) #f)" -"(for-loop_107 result_79 rest_47)" +"(if(if(not((lambda x_72(not result_79)) r_40))(not #f) #f)" +"(for-loop_111 result_79 rest_48)" " result_79)))" " result_111)))))" -" for-loop_107)" +" for-loop_111)" " #t" -" lst_100)))" +" lst_101)))" " #f))" -"(if(parsed-id? p_42)" -"(let-values()(not(eq?(get-id-value p_42 ns_42 self-mpi_3) not-available)))" -"(if(parsed-quote? p_42)" +"(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)" "(let-values() #t)" -"(if(parsed-quote-syntax? p_42)(let-values() #t)(let-values() #f))))))))" +"(if(parsed-quote-syntax? p_43)(let-values() #t)(let-values() #f))))))))" "(define-values" "(direct-eval)" -"(lambda(p_46 ns_71 self-mpi_4)" +"(lambda(p_47 ns_71 self-mpi_4)" "(begin" -"(if(parsed-app? p_46)" +"(if(parsed-app? p_47)" "(let-values()" "(apply" -"(direct-eval(parsed-app-rator p_46) ns_71 self-mpi_4)" +"(direct-eval(parsed-app-rator p_47) ns_71 self-mpi_4)" "(reverse$1" -"(let-values(((lst_77)(parsed-app-rands p_46)))" +"(let-values(((lst_78)(parsed-app-rands p_47)))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_77)))" -"((letrec-values(((for-loop_91)" -"(lambda(fold-var_227 lst_78)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_78)))" +"((letrec-values(((for-loop_95)" +"(lambda(fold-var_227 lst_79)" "(begin" " 'for-loop" -"(if(pair? lst_78)" -"(let-values(((r_8)(unsafe-car lst_78))((rest_35)(unsafe-cdr lst_78)))" +"(if(pair? lst_79)" +"(let-values(((r_8)(unsafe-car lst_79))((rest_36)(unsafe-cdr lst_79)))" "(let-values(((fold-var_219)" "(let-values(((fold-var_65) fold-var_227))" "(let-values(((fold-var_228)" @@ -37167,52 +37458,52 @@ static const char *startup_source = "(direct-eval r_8 ns_71 self-mpi_4))" " fold-var_65))))" "(values fold-var_228)))))" -"(if(not #f)(for-loop_91 fold-var_219 rest_35) fold-var_219)))" +"(if(not #f)(for-loop_95 fold-var_219 rest_36) fold-var_219)))" " fold-var_227)))))" -" for-loop_91)" +" for-loop_95)" " null" -" lst_77))))))" -"(if(parsed-id? p_46)" -"(let-values()(get-id-value p_46 ns_71 self-mpi_4))" -"(if(parsed-quote? p_46)" -"(let-values()(parsed-quote-datum p_46))" -"(if(parsed-quote-syntax? p_46)(let-values()(parsed-quote-syntax-datum p_46))(let-values() #f))))))))" +" 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))))))))" "(define-values" "(get-id-value)" "(lambda(p_1 ns_72 self-mpi_5)" "(begin" -"(let-values(((b_71)(parsed-id-binding p_1)))" +"(let-values(((b_69)(parsed-id-binding p_1)))" "(if(parsed-primitive-id? p_1)" -"(let-values()(hash-ref(1/primitive-table '#%kernel)(module-binding-sym b_71) get-not-available))" -"(if(let-values(((or-part_74)(parsed-top-id? p_1)))" -"(if or-part_74" -" or-part_74" -"(let-values(((or-part_75)(not b_71)))" -"(if or-part_75 or-part_75(eq? self-mpi_5(module-binding-module b_71))))))" +"(let-values()(hash-ref(1/primitive-table '#%kernel)(module-binding-sym b_69) get-not-available))" +"(if(let-values(((or-part_72)(parsed-top-id? p_1)))" +"(if or-part_72" +" or-part_72" +"(let-values(((or-part_73)(not b_69)))" +"(if or-part_73 or-part_73(eq? self-mpi_5(module-binding-module b_69))))))" "(let-values()" "(namespace-get-variable" " ns_72" -"(if b_71(module-binding-phase b_71)(namespace-phase ns_72))" -"(if b_71(module-binding-sym b_71)(syntax-e$1(parsed-s p_1)))" +"(if b_69(module-binding-phase b_69)(namespace-phase ns_72))" +"(if b_69(module-binding-sym b_69)(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_71)))" -"((temp3_4)(phase-(namespace-phase ns_72)(module-binding-phase b_71))))" +"((temp2_4)(1/module-path-index-resolve(module-binding-module b_69)))" +"((temp3_4)(phase-(namespace-phase ns_72)(module-binding-phase b_69))))" "(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_71)" -"(module-binding-sym b_71)" -"(module-binding-extra-inspector b_71))" +"(module-binding-phase b_69)" +"(module-binding-sym b_69)" +"(module-binding-extra-inspector b_69))" "(let-values()" "(namespace-get-variable" "(module-instance-namespace mi_18)" -"(module-binding-phase b_71)" -"(module-binding-sym b_71)" +"(module-binding-phase b_69)" +"(module-binding-sym b_69)" " get-not-available))" "(let-values() not-available)))))))))))" "(define-values(runtime-scope)(new-multi-scope))" @@ -37262,7 +37553,7 @@ static const char *startup_source = "(define-values" "(runtime-instances)" " '(#%kernel #%paramz #%foreign #%unsafe #%flfxnum #%extfl #%network #%place #%futures))" -"(define-values(box-cons!)(lambda(b_16 v_67)(begin(set-box! b_16(cons v_67(unbox b_16))))))" +"(define-values(box-cons!)(lambda(b_16 v_66)(begin(set-box! b_16(cons v_66(unbox b_16))))))" "(define-values(box-clear!)(lambda(b_17)(begin(begin0(reverse$1(unbox b_17))(set-box! b_17 null)))))" "(define-values" "(struct:lift-context lift-context1.1 lift-context? lift-context-convert lift-context-lifts lift-context-module*-ok?)" @@ -37300,41 +37591,41 @@ 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_92)" +"(lambda(lifts_1 ids_16 rhs_12 phase_93)" "(begin" -"(let-values(((lifted-ids_0 lifted_0)((lift-context-convert lifts_1) ids_16 rhs_12 phase_92)))" +"(let-values(((lifted-ids_0 lifted_0)((lift-context-convert lifts_1) ids_16 rhs_12 phase_93)))" "(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_93)" +"(lambda(ids_17 rhs_13 phase_94)" "(let-values(((keys_2)" "(reverse$1" -"(let-values(((lst_281) ids_17))" +"(let-values(((lst_279) ids_17))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_281)))" -"((letrec-values(((for-loop_248)" -"(lambda(fold-var_229 lst_282)" +"(let-values()(check-list lst_279)))" +"((letrec-values(((for-loop_249)" +"(lambda(fold-var_229 lst_280)" "(begin" " 'for-loop" -"(if(pair? lst_282)" -"(let-values(((id_57)(unsafe-car lst_282))" -"((rest_154)(unsafe-cdr lst_282)))" +"(if(pair? lst_280)" +"(let-values(((id_57)(unsafe-car lst_280))" +"((rest_154)(unsafe-cdr lst_280)))" "(let-values(((fold-var_81)" "(let-values(((fold-var_82) fold-var_229))" "(let-values(((fold-var_230)" "(let-values()" "(cons" "(let-values()" -"(let-values(((key_78)" +"(let-values(((key_79)" "(let-values(((id32_0)" " id_57)" "((phase33_0)" -" phase_93)" +" phase_94)" "((counter34_0)" " counter_3))" "(add-local-binding!37.1" @@ -37350,39 +37641,39 @@ static const char *startup_source = " lift-env_1" "(hash-set" "(unbox lift-env_1)" -" key_78" +" key_79" " variable))" -" key_78)))" +" key_79)))" " fold-var_82))))" "(values fold-var_230)))))" -"(if(not #f)(for-loop_248 fold-var_81 rest_154) fold-var_81)))" +"(if(not #f)(for-loop_249 fold-var_81 rest_154) fold-var_81)))" " fold-var_229)))))" -" for-loop_248)" +" for-loop_249)" " null" -" lst_281))))))" +" lst_279))))))" "(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_71)" +"(lambda(ids_18 rhs_14 phase_72)" "(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_283) ids_18))" +"(let-values(((lst_281) ids_18))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_283)))" -"((letrec-values(((for-loop_249)" -"(lambda(fold-var_231 lst_180)" +"(let-values()(check-list lst_281)))" +"((letrec-values(((for-loop_250)" +"(lambda(fold-var_231 lst_182)" "(begin" " 'for-loop" -"(if(pair? lst_180)" -"(let-values(((id_58)(unsafe-car lst_180))" -"((rest_155)(unsafe-cdr lst_180)))" +"(if(pair? lst_182)" +"(let-values(((id_58)(unsafe-car lst_182))" +"((rest_155)(unsafe-cdr lst_182)))" "(let-values(((fold-var_232)" "(let-values(((fold-var_233) fold-var_231))" "(let-values(((fold-var_234)" @@ -37395,29 +37686,29 @@ static const char *startup_source = " fold-var_233))))" "(values fold-var_234)))))" "(if(not #f)" -"(for-loop_249 fold-var_232 rest_155)" +"(for-loop_250 fold-var_232 rest_155)" " fold-var_232)))" " fold-var_231)))))" -" for-loop_249)" +" for-loop_250)" " null" -" lst_283))))))" +" lst_281))))))" "(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_94)" +"(lambda(lifts_3 body_5 phase_95)" "(begin" "(datum->syntax$1" " #f" -"(let-values(((lst_284)(reverse$1 lifts_3)))" +"(let-values(((lst_282)(reverse$1 lifts_3)))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_284)))" -"((letrec-values(((for-loop_250)" -"(lambda(body_6 lst_189)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_282)))" +"((letrec-values(((for-loop_251)" +"(lambda(body_6 lst_191)" "(begin" " 'for-loop" -"(if(pair? lst_189)" -"(let-values(((lift_0)(unsafe-car lst_189))((rest_98)(unsafe-cdr lst_189)))" +"(if(pair? lst_191)" +"(let-values(((lift_0)(unsafe-car lst_191))((rest_98)(unsafe-cdr lst_191)))" "(let-values(((body_7)" "(let-values(((body_8) body_6))" "(let-values(((body_9)" @@ -37429,7 +37720,7 @@ static const char *startup_source = " (error \"non-bindings in `lift-context`\")))" "(list" "(datum->syntax$1" -"(syntax-shift-phase-level$1 core-stx phase_94)" +"(syntax-shift-phase-level$1 core-stx phase_95)" " 'let-values)" "(list" "(list" @@ -37437,11 +37728,11 @@ static const char *startup_source = "(lifted-bind-rhs lift_0)))" " body_8)))))" "(values body_9)))))" -"(if(not #f)(for-loop_250 body_7 rest_98) body_7)))" +"(if(not #f)(for-loop_251 body_7 rest_98) body_7)))" " body_6)))))" -" for-loop_250)" +" for-loop_251)" " body_5" -" lst_284)))))))" +" lst_282)))))))" "(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)" @@ -37449,31 +37740,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_95) phase15_0))" +"(let-values(((phase_96) 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_95) 'begin)" +"(datum->syntax$1(syntax-shift-phase-level$1 core-stx phase_96) 'begin)" "(append" "(reverse$1" -"(let-values(((lst_285) lifts_4))" +"(let-values(((lst_283) lifts_4))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_285)))" -"((letrec-values(((for-loop_191)" -"(lambda(fold-var_235 lst_167)" +"(let-values()(check-list lst_283)))" +"((letrec-values(((for-loop_194)" +"(lambda(fold-var_235 lst_170)" "(begin" " 'for-loop" -"(if(pair? lst_167)" -"(let-values(((lift_1)(unsafe-car lst_167))" -"((rest_156)(unsafe-cdr lst_167)))" +"(if(pair? lst_170)" +"(let-values(((lift_1)(unsafe-car lst_170))" +"((rest_156)(unsafe-cdr lst_170)))" "(let-values(((fold-var_3)" -"(let-values(((fold-var_89) fold-var_235))" -"(let-values(((fold-var_236)" +"(let-values(((fold-var_236) fold-var_235))" +"(let-values(((fold-var_237)" "(let-values()" "(cons" "(let-values()" @@ -37486,19 +37777,19 @@ static const char *startup_source = "(datum->syntax$1" "(syntax-shift-phase-level$1" " core-stx" -" phase_95)" +" phase_96)" " 'define-values)" "(lifted-bind-ids lift_1)" "(lifted-bind-rhs" " lift_1))))" "(let-values() lift_1))))" -" fold-var_89))))" -"(values fold-var_236)))))" -"(if(not #f)(for-loop_191 fold-var_3 rest_156) fold-var_3)))" +" fold-var_236))))" +"(values fold-var_237)))))" +"(if(not #f)(for-loop_194 fold-var_3 rest_156) fold-var_3)))" " fold-var_235)))))" -" for-loop_191)" +" for-loop_194)" " null" -" lst_285))))" +" lst_283))))" "(list(adjust-body_0 body_10))))))))))))))" "(define-values" "(get-lifts-as-lists)" @@ -37508,14 +37799,14 @@ static const char *startup_source = "(let-values(((lst_196) lifts_5))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_196)))" -"((letrec-values(((for-loop_251)" -"(lambda(fold-var_237 lst_286)" +"((letrec-values(((for-loop_252)" +"(lambda(fold-var_98 lst_284)" "(begin" " 'for-loop" -"(if(pair? lst_286)" -"(let-values(((lift_2)(unsafe-car lst_286))((rest_157)(unsafe-cdr lst_286)))" +"(if(pair? lst_284)" +"(let-values(((lift_2)(unsafe-car lst_284))((rest_157)(unsafe-cdr lst_284)))" "(let-values(((fold-var_37)" -"(let-values(((fold-var_38) fold-var_237))" +"(let-values(((fold-var_38) fold-var_98))" "(let-values(((fold-var_238)" "(let-values()" "(cons" @@ -37526,9 +37817,9 @@ static const char *startup_source = "(lifted-bind-rhs lift_2)))" " fold-var_38))))" "(values fold-var_238)))))" -"(if(not #f)(for-loop_251 fold-var_37 rest_157) fold-var_37)))" -" fold-var_237)))))" -" for-loop_251)" +"(if(not #f)(for-loop_252 fold-var_37 rest_157) fold-var_37)))" +" fold-var_98)))))" +" for-loop_252)" " null" " lst_196)))))))" "(define-values" @@ -37562,25 +37853,25 @@ static const char *startup_source = "(make-struct-field-accessor -ref_71 2 'module*-ok?))))" "(define-values" "(make-module-lift-context)" -"(lambda(phase_96 module*-ok?_1)(begin(module-lift-context19.1 phase_96(box null) module*-ok?_1))))" +"(lambda(phase_97 module*-ok?_1)(begin(module-lift-context19.1 phase_97(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_388 phase_97)" +"(lambda(module-lifts_2 s_396 phase_98)" "(begin" "(begin" -"(if(let-values(((or-part_225)" +"(if(let-values(((or-part_224)" "(if(module-lift-context? module-lifts_2)" "(module-lift-context-module*-ok? module-lifts_2)" " #f)))" -"(if or-part_225" -" or-part_225" +"(if or-part_224" +" or-part_224" "(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_388 phase_97)))" +"(let-values(((tmp_30)(core-form-sym s_396 phase_98)))" "(if(equal? tmp_30 'module)" "(let-values()(void))" "(if(equal? tmp_30 'module*)" @@ -37589,13 +37880,13 @@ static const char *startup_source = " 'syntax-local-lift-module" " \"cannot lift `module*' to a top-level context\"" " \"syntax\"" -" s_388))" +" s_396))" "(let-values()" -" (raise-arguments-error 'syntax-local-lift-module \"not a `module' declaration\" \"syntax\" s_388)))))))" +" (raise-arguments-error 'syntax-local-lift-module \"not a `module' declaration\" \"syntax\" s_396)))))))" "(if(module-lift-context? module-lifts_2)" -"(let-values()(box-cons!(module-lift-context-lifts module-lifts_2) s_388))" +"(let-values()(box-cons!(module-lift-context-lifts module-lifts_2) s_396))" "(if(lift-context? module-lifts_2)" -"(let-values()(box-cons!(lift-context-lifts module-lifts_2) s_388))" +"(let-values()(box-cons!(lift-context-lifts module-lifts_2) s_396))" " (let-values () (error \"internal error: unrecognized lift-context type for module lift\"))))))))" "(define-values" "(struct:require-lift-context" @@ -37634,11 +37925,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_389 phase_98)" +"(lambda(require-lifts_2 s_397 phase_99)" "(begin" "(begin" -"((require-lift-context-do-require require-lifts_2) s_389 phase_98)" -"(box-cons!(require-lift-context-requires require-lifts_2) s_389)))))" +"((require-lift-context-do-require require-lifts_2) s_397 phase_99)" +"(box-cons!(require-lift-context-requires require-lifts_2) s_397)))))" "(define-values" "(struct:to-module-lift-context" " to-module-lift-context21.1" @@ -37675,10 +37966,10 @@ static const char *startup_source = "(lambda(end-as-expressions?23_0 shared-module-ends22_0 phase26_2)" "(begin" " 'make-to-module-lift-context27" -"(let-values(((phase_99) phase26_2))" +"(let-values(((phase_100) 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_99(box null) end-as-expressions?_0 ends_0))))))))" +"(let-values()(to-module-lift-context21.1 phase_100(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!)" @@ -37688,12 +37979,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_210 phase_100)" -"(begin(box-cons!(to-module-lift-context-provides to-module-lifts_3) s_210))))" +"(lambda(to-module-lifts_3 s_218 phase_101)" +"(begin(box-cons!(to-module-lift-context-provides to-module-lifts_3) s_218))))" "(define-values" "(add-lifted-to-module-end!)" -"(lambda(to-module-lifts_4 s_390 phase_101)" -"(begin(box-cons!(to-module-lift-context-ends to-module-lifts_4) s_390))))" +"(lambda(to-module-lifts_4 s_398 phase_102)" +"(begin(box-cons!(to-module-lift-context-ends to-module-lifts_4) s_398))))" "(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)" @@ -37745,17 +38036,17 @@ static const char *startup_source = "(lambda(v_26 info_1)" "(begin" "(if(if(list? v_26)" -"(let-values(((lst_75) v_26))" +"(let-values(((lst_76) v_26))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_75)))" -"((letrec-values(((for-loop_90)" -"(lambda(result_77 lst_76)" +"(let-values()(check-list lst_76)))" +"((letrec-values(((for-loop_94)" +"(lambda(result_77 lst_77)" "(begin" " 'for-loop" -"(if(pair? lst_76)" -"(let-values(((s_2)(unsafe-car lst_76))((rest_34)(unsafe-cdr lst_76)))" +"(if(pair? lst_77)" +"(let-values(((s_2)(unsafe-car lst_77))((rest_35)(unsafe-cdr lst_77)))" "(let-values(((result_65)" "(let-values()" "(let-values(((result_113)" @@ -37769,13 +38060,13 @@ static const char *startup_source = " module-begin" " definition-context))))))" "(values result_113)))))" -"(if(if(not((lambda x_75(not result_65)) s_2))(not #f) #f)" -"(for-loop_90 result_65 rest_34)" +"(if(if(not((lambda x_73(not result_65)) s_2))(not #f) #f)" +"(for-loop_94 result_65 rest_35)" " result_65)))" " result_77)))))" -" for-loop_90)" +" for-loop_94)" " #t" -" lst_75)))" +" lst_76)))" " #f)" "(void)" "(let-values()" @@ -37794,7 +38085,7 @@ static const char *startup_source = "(define-values(context->symbol)(lambda(context_5)(begin(if(symbol? context_5) context_5 'definition-context))))" "(define-values" "(avoid-current-expand-context)" -"(lambda(s_167 t_43 ctx_13)" +"(lambda(s_170 t_43 ctx_13)" "(begin" "(let-values(((wrap_1)" "(lambda(sym_60)" @@ -37804,7 +38095,7 @@ static const char *startup_source = " #f" "(list" "(syntax-shift-phase-level$1(datum->syntax$1 core-stx sym_60)(expand-context-phase ctx_13))" -" s_167))))))" +" s_170))))))" "(let-values(((fail_0)" "(lambda()" "(begin" @@ -37814,7 +38105,7 @@ static const char *startup_source = "(format" " \"not allowed in context\\n expansion context: ~a\"" "(context->symbol(expand-context-context ctx_13)))" -" s_167)))))" +" s_170)))))" "(let-values(((tmp_31)(context->symbol(expand-context-context ctx_13))))" "(if(equal? tmp_31 'module-begin)" "(let-values()(wrap_1 'begin))" @@ -37847,28 +38138,28 @@ static const char *startup_source = "(define-values(make-reference-record)(lambda()(begin(reference-record1.1(seteq)(seteq) #f))))" "(define-values" "(reference-record-used!)" -"(lambda(rr_0 key_71)" +"(lambda(rr_0 key_72)" "(begin" -"(if(set-member?(reference-record-already-bound rr_0) key_71)" +"(if(set-member?(reference-record-already-bound rr_0) key_72)" "(void)" "(let-values()" "(set-reference-record-reference-before-bound!" " rr_0" -"(set-add(reference-record-reference-before-bound rr_0) key_71)))))))" +"(set-add(reference-record-reference-before-bound rr_0) key_72)))))))" "(define-values" "(reference-records-all-used!)" "(lambda(rrs_0)" "(begin" "(begin" -"(let-values(((lst_40) rrs_0))" +"(let-values(((lst_42) rrs_0))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_40)))" -"((letrec-values(((for-loop_183)" -"(lambda(lst_88)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_42)))" +"((letrec-values(((for-loop_185)" +"(lambda(lst_89)" "(begin" " 'for-loop" -"(if(pair? lst_88)" -"(let-values(((rr_1)(unsafe-car lst_88))((rest_116)(unsafe-cdr lst_88)))" +"(if(pair? lst_89)" +"(let-values(((rr_1)(unsafe-car lst_89))((rest_116)(unsafe-cdr lst_89)))" "(let-values(((post-guard-var_0)(lambda()(begin 'post-guard-var #t))))" "(let-values()" "(if(reference-record-all-referenced? rr_1)" @@ -37880,10 +38171,10 @@ static const char *startup_source = "(let-values()" "(set-reference-record-all-referenced?! rr_1 #t))" "(values)))))" -"(if(post-guard-var_0)(for-loop_183 rest_116)(values))))))))" +"(if(post-guard-var_0)(for-loop_185 rest_116)(values))))))))" "(values))))))" -" for-loop_183)" -" lst_40)))" +" for-loop_185)" +" lst_42)))" "(void)))))" "(define-values" "(reference-record-bound!)" @@ -37895,47 +38186,47 @@ 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_252)" -"(lambda(ab_3 lst_79)" +"((letrec-values(((for-loop_253)" +"(lambda(ab_3 lst_80)" "(begin" " 'for-loop" -"(if(pair? lst_79)" -"(let-values(((key_79)(unsafe-car lst_79))((rest_142)(unsafe-cdr lst_79)))" +"(if(pair? lst_80)" +"(let-values(((key_80)(unsafe-car lst_80))((rest_142)(unsafe-cdr lst_80)))" "(let-values(((ab_4)" "(let-values(((ab_5) ab_3))" -"(let-values(((ab_6)(let-values()(set-add ab_5 key_79))))" +"(let-values(((ab_6)(let-values()(set-add ab_5 key_80))))" "(values ab_6)))))" -"(if(not #f)(for-loop_252 ab_4 rest_142) ab_4)))" +"(if(not #f)(for-loop_253 ab_4 rest_142) ab_4)))" " ab_3)))))" -" for-loop_252)" +" for-loop_253)" "(reference-record-already-bound rr_2)" " lst_24))))" "(set-reference-record-reference-before-bound!" " rr_2" -"(let-values(((lst_275) keys_3))" +"(let-values(((lst_272) keys_3))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_275)))" -"((letrec-values(((for-loop_253)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_272)))" +"((letrec-values(((for-loop_254)" "(lambda(rbb_0 lst_25)" "(begin" " 'for-loop" "(if(pair? lst_25)" -"(let-values(((key_80)(unsafe-car lst_25))((rest_158)(unsafe-cdr lst_25)))" +"(let-values(((key_81)(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_80))))" +"(let-values(((rbb_3)(let-values()(set-remove rbb_2 key_81))))" "(values rbb_3)))))" -"(if(not #f)(for-loop_253 rbb_1 rest_158) rbb_1)))" +"(if(not #f)(for-loop_254 rbb_1 rest_158) rbb_1)))" " rbb_0)))))" -" for-loop_253)" +" for-loop_254)" "(reference-record-reference-before-bound rr_2)" -" lst_275))))))))" +" lst_272))))))))" "(define-values" "(reference-record-forward-references?)" "(lambda(rr_3)" "(begin" -"(let-values(((or-part_166)(reference-record-all-referenced? rr_3)))" -"(if or-part_166 or-part_166(positive?(set-count(reference-record-reference-before-bound rr_3))))))))" +"(let-values(((or-part_168)(reference-record-all-referenced? rr_3)))" +"(if or-part_168 or-part_168(positive?(set-count(reference-record-reference-before-bound rr_3))))))))" "(define-values" "(reference-record-clear!)" "(lambda(rr_4)" @@ -37943,19 +38234,19 @@ static const char *startup_source = "(begin(set-reference-record-already-bound! rr_4 #f)(set-reference-record-reference-before-bound! rr_4 #f)))))" "(define-values" "(call-expand-observe)" -"(lambda(obs_0 key_81 . args_5)" +"(lambda(obs_0 key_82 . args_5)" "(begin" "(begin" -"(let-values(((c1_27)(hash-ref key->arity key_81 #f)))" +"(let-values(((c1_27)(hash-ref key->arity key_82 #f)))" "(if c1_27" "((lambda(arity_2)" -"(if(let-values(((or-part_173)(eq? arity_2 'any)))" -"(if or-part_173 or-part_173(eqv?(length args_5) arity_2)))" +"(if(let-values(((or-part_65)(eq? arity_2 'any)))" +"(if or-part_65 or-part_65(eqv?(length args_5) arity_2)))" "(void)" -" (let-values () (error 'call-expand-observe \"wrong arity for ~s: ~e\" key_81 args_5))))" +" (let-values () (error 'call-expand-observe \"wrong arity for ~s: ~e\" key_82 args_5))))" " c1_27)" -" (let-values () (error 'call-expand-observe \"bad key: ~s\" key_81))))" -"(obs_0 key_81(if(null? args_5)(let-values() #f)(let-values()(apply list* args_5))))))))" +" (let-values () (error 'call-expand-observe \"bad key: ~s\" key_82))))" +"(obs_0 key_82(if(null? args_5)(let-values() #f)(let-values()(apply list* args_5))))))))" "(define-values" "(key->arity)" " '#hash((block->letrec . 1)" @@ -38131,32 +38422,32 @@ 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_182)(begin(if(expanded+parsed? s_182)(expanded+parsed-s s_182) s_182))))" +"(define-values(extract-syntax)(lambda(s_185)(begin(if(expanded+parsed? s_185)(expanded+parsed-s s_185) s_185))))" "(define-values" "(parsed-only)" "(lambda(l_66)" "(begin" "(reverse$1" -"(let-values(((lst_175) l_66))" +"(let-values(((lst_177) l_66))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_175)))" -"((letrec-values(((for-loop_246)" -"(lambda(fold-var_5 lst_280)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_177)))" +"((letrec-values(((for-loop_247)" +"(lambda(fold-var_5 lst_278)" "(begin" " 'for-loop" -"(if(pair? lst_280)" -"(let-values(((i_26)(unsafe-car lst_280))((rest_153)(unsafe-cdr lst_280)))" +"(if(pair? lst_278)" +"(let-values(((i_26)(unsafe-car lst_278))((rest_153)(unsafe-cdr lst_278)))" "(let-values(((fold-var_224)" "(let-values(((fold-var_225) fold-var_5))" -"(if(let-values(((or-part_69)(parsed? i_26)))" -"(if or-part_69" -" or-part_69" +"(if(let-values(((or-part_261)(parsed? i_26)))" +"(if or-part_261" +" or-part_261" "(let-values(((or-part_33)(expanded+parsed? i_26)))" "(if or-part_33" " or-part_33" "(semi-parsed-begin-for-syntax? i_26)))))" "(let-values(((fold-var_157) fold-var_225))" -"(let-values(((fold-var_174)" +"(let-values(((fold-var_173)" "(let-values()" "(cons" "(let-values()" @@ -38172,27 +38463,27 @@ static const char *startup_source = " i_26))))" "(let-values() i_26))))" " fold-var_157))))" -"(values fold-var_174)))" +"(values fold-var_173)))" " fold-var_225))))" -"(if(not #f)(for-loop_246 fold-var_224 rest_153) fold-var_224)))" +"(if(not #f)(for-loop_247 fold-var_224 rest_153) fold-var_224)))" " fold-var_5)))))" -" for-loop_246)" +" for-loop_247)" " null" -" lst_175)))))))" +" lst_177)))))))" "(define-values" "(syntax-only)" "(lambda(l_67)" "(begin" "(reverse$1" -"(let-values(((lst_281) l_67))" +"(let-values(((lst_279) l_67))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_281)))" -"((letrec-values(((for-loop_248)" -"(lambda(fold-var_229 lst_282)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_279)))" +"((letrec-values(((for-loop_249)" +"(lambda(fold-var_229 lst_280)" "(begin" " 'for-loop" -"(if(pair? lst_282)" -"(let-values(((i_35)(unsafe-car lst_282))((rest_154)(unsafe-cdr lst_282)))" +"(if(pair? lst_280)" +"(let-values(((i_35)(unsafe-car lst_280))((rest_154)(unsafe-cdr lst_280)))" "(let-values(((fold-var_81)" "(let-values(((fold-var_82) fold-var_229))" "(if(let-values(((or-part_262)(syntax?$1 i_35)))" @@ -38211,7 +38502,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_162)" +"(let-values(((s_165)" "(semi-parsed-begin-for-syntax-s" " i_35)))" "(let-values(((nested-bodys_0)" @@ -38219,22 +38510,22 @@ static const char *startup_source = " i_35)))" "(let-values(((disarmed-s_0)" "(syntax-disarm$1" -" s_162)))" +" s_165)))" "(let-values(((ok?_26" " begin-for-syntax7_0" " _8_0)" -"(let-values(((s_305)" +"(let-values(((s_310)" " disarmed-s_0))" "(let-values(((orig-s_31)" -" s_305))" +" s_310))" "(let-values(((begin-for-syntax7_1" " _8_1)" "(let-values(((s_27)" "(if(syntax?$1" -" s_305)" +" s_310)" "(syntax-e$1" -" s_305)" -" s_305)))" +" s_310)" +" s_310)))" "(if(pair?" " s_27)" "(let-values(((begin-for-syntax9_0)" @@ -38243,18 +38534,18 @@ static const char *startup_source = " s_27)))" " s_30))" "((_10_0)" -"(let-values(((s_157)" +"(let-values(((s_158)" "(cdr" " s_27)))" -"(let-values(((s_391)" +"(let-values(((s_399)" "(if(syntax?$1" -" s_157)" +" s_158)" "(syntax-e$1" -" s_157)" -" s_157)))" +" s_158)" +" s_158)))" "(let-values(((flat-s_19)" "(to-syntax-list.1" -" s_391)))" +" s_399)))" "(if(not" " flat-s_19)" "(let-values()" @@ -38275,7 +38566,7 @@ static const char *startup_source = " #t" " begin-for-syntax7_1" " _8_1))))))" -"(let-values(((s11_0) s_162)" +"(let-values(((s11_0) s_165)" "((temp12_2)" "(list*" " begin-for-syntax7_0" @@ -38290,17 +38581,17 @@ static const char *startup_source = " fold-var_83))))" "(values fold-var_239)))" " fold-var_82))))" -"(if(not #f)(for-loop_248 fold-var_81 rest_154) fold-var_81)))" +"(if(not #f)(for-loop_249 fold-var_81 rest_154) fold-var_81)))" " fold-var_229)))))" -" for-loop_248)" +" for-loop_249)" " null" -" lst_281)))))))" +" lst_279)))))))" "(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_392) s5_1))" +"(let-values(((s_400) 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)))" @@ -38314,24 +38605,24 @@ static const char *startup_source = "(call-expand-observe" " obs_1" "(if(expand-context-only-immediate? ctx_14) 'enter-check 'visit)" -" s_392))" +" s_400))" "(void)))" "(void)))" -"(if(identifier? s_392)" -"(let-values()(expand-identifier s_392 ctx_14 alternate-id_0))" -"(if(if(pair?(syntax-content s_392))(identifier?(car(syntax-content s_392))) #f)" -"(let-values()(expand-id-application-form s_392 ctx_14 alternate-id_0))" -"(if(let-values(((or-part_76)(pair?(syntax-content s_392))))" -"(if or-part_76 or-part_76(null?(syntax-content s_392))))" -"(let-values()(expand-implicit '#%app s_392 ctx_14 #f))" -"(if(already-expanded?(syntax-content s_392))" -"(let-values()(expand-already-expanded s_392 ctx_14))" -"(let-values()(expand-implicit '#%datum s_392 ctx_14 #f)))))))))))))))" +"(if(identifier? s_400)" +"(let-values()(expand-identifier s_400 ctx_14 alternate-id_0))" +"(if(if(pair?(syntax-content s_400))(identifier?(car(syntax-content s_400))) #f)" +"(let-values()(expand-id-application-form s_400 ctx_14 alternate-id_0))" +"(if(let-values(((or-part_74)(pair?(syntax-content s_400))))" +"(if or-part_74 or-part_74(null?(syntax-content s_400))))" +"(let-values()(expand-implicit '#%app s_400 ctx_14 #f))" +"(if(already-expanded?(syntax-content s_400))" +"(let-values()(expand-already-expanded s_400 ctx_14))" +"(let-values()(expand-implicit '#%datum s_400 ctx_14 #f)))))))))))))))" "(define-values" "(expand-identifier)" "(lambda(s_43 ctx_15 alternate-id_1)" "(begin" -"(let-values(((id_59)(let-values(((or-part_165) alternate-id_1))(if or-part_165 or-part_165 s_43))))" +"(let-values(((id_59)(let-values(((or-part_167) alternate-id_1))(if or-part_167 or-part_167 s_43))))" "(if(free-id-set-member?(expand-context-stops ctx_15)(expand-context-phase ctx_15) id_59)" "(let-values()" "(begin" @@ -38350,7 +38641,7 @@ static const char *startup_source = "(void)))" " s_43))" "(let-values()" -"(let-values(((binding_19)" +"(let-values(((binding_18)" "(let-values(((id77_0) id_59)" "((temp78_2)(expand-context-phase ctx_15))" "((temp79_0) 'ambiguous)" @@ -38364,19 +38655,19 @@ static const char *startup_source = "(let-values()(call-expand-observe obs_3 'resolve id_59))" "(void)))" "(void)))" -"(if(eq? binding_19 'ambiguous)" +"(if(eq? binding_18 'ambiguous)" "(let-values()(raise-ambiguous-error id_59 ctx_15))" -"(if(not binding_19)" +"(if(not binding_18)" "(let-values()(expand-implicit '#%top(substitute-alternate-id s_43 alternate-id_1) ctx_15 s_43))" "(let-values()" "(let-values(((t_44 primitive?_2 insp-of-t_0 protected?_3)" -"(let-values(((binding81_0) binding_19)" +"(let-values(((binding81_0) binding_18)" "((ctx82_0) ctx_15)" "((id83_0) id_59)" "((temp84_0)(if alternate-id_1 s_43 #f))" "((temp85_0)(expand-context-in-local-expand? ctx_15)))" "(lookup17.1 temp84_0 #t temp85_0 #t binding81_0 ctx82_0 id83_0))))" -"(dispatch t_44 insp-of-t_0 s_43 id_59 ctx_15 binding_19 primitive?_2 protected?_3)))))))))))))" +"(dispatch t_44 insp-of-t_0 s_43 id_59 ctx_15 binding_18 primitive?_2 protected?_3)))))))))))))" "(define-values" "(expand-id-application-form)" "(lambda(s_13 ctx_16 alternate-id_2)" @@ -38402,7 +38693,7 @@ static const char *startup_source = "(void)))" " s_13))" "(let-values()" -"(let-values(((binding_20)" +"(let-values(((binding_19)" "(let-values(((id86_0) id_60)" "((temp87_1)(expand-context-phase ctx_16))" "((temp88_2) 'ambiguous)" @@ -38416,13 +38707,13 @@ static const char *startup_source = "(let-values()(call-expand-observe obs_4 'resolve id_60))" "(void)))" "(void)))" -"(if(eq? binding_20 'ambiguous)" +"(if(eq? binding_19 'ambiguous)" "(let-values()(raise-ambiguous-error id_60 ctx_16))" -"(if(not binding_20)" +"(if(not binding_19)" "(let-values()(expand-implicit '#%app(substitute-alternate-id s_13 alternate-id_2) ctx_16 id_60))" "(let-values()" "(let-values(((t_45 primitive?_3 insp-of-t_1 protected?_4)" -"(let-values(((binding90_0) binding_20)" +"(let-values(((binding90_0) binding_19)" "((ctx91_0) ctx_16)" "((id92_0) id_60)" "((temp93_2)(if alternate-id_2(car(syntax-e/no-taint s_13)) #f))" @@ -38438,21 +38729,21 @@ static const char *startup_source = " s_13" " id_60" " ctx_16" -" binding_20" +" binding_19" " primitive?_3" " protected?_4)))))))))))))))" "(define-values" "(expand-implicit)" -"(lambda(sym_61 s_183 ctx_17 trigger-id_1)" +"(lambda(sym_61 s_186 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_183)))(void)))" -" s_183))" +"(if obs_5(let-values()(let-values()(call-expand-observe obs_5 'exit-check s_186)))(void)))" +" s_186))" "(let-values()" -"(let-values(((disarmed-s_1)(syntax-disarm$1 s_183)))" +"(let-values(((disarmed-s_1)(syntax-disarm$1 s_186)))" "(let-values(((id_61)(datum->syntax$1 disarmed-s_1 sym_61)))" "(if(free-id-set-member?(expand-context-stops ctx_17)(expand-context-phase ctx_17) id_61)" "(let-values()" @@ -38464,13 +38755,13 @@ static const char *startup_source = "(let-values()" "(begin" "(call-expand-observe obs_6 'resolve id_61)" -"(call-expand-observe obs_6 'enter-prim s_183)" +"(call-expand-observe obs_6 'enter-prim s_186)" "(call-expand-observe obs_6 'prim-stop)" -"(call-expand-observe obs_6 'exit-prim s_183)" -"(call-expand-observe obs_6 'return s_183)))" +"(call-expand-observe obs_6 'exit-prim s_186)" +"(call-expand-observe obs_6 'return s_186)))" "(void)))" "(void)))" -" s_183))" +" s_186))" "(let-values()" "(let-values((()" "(begin" @@ -38479,18 +38770,18 @@ static const char *startup_source = "(let-values()(let-values()(call-expand-observe obs_7 'resolve id_61)))" "(void)))" "(values))))" -"(let-values(((b_19)" +"(let-values(((b_73)" "(let-values(((id95_0) id_61)" "((temp96_2)(expand-context-phase ctx_17))" "((temp97_1) 'ambiguous)" "((temp98_1) #t))" "(resolve+shift30.1 temp97_1 #t #f #f #f #f temp98_1 #t #f #f id95_0 temp96_2))))" -"(if(eq? b_19 'ambiguous)" +"(if(eq? b_73 'ambiguous)" "(let-values()(raise-ambiguous-error id_61 ctx_17))" "(let-values()" "(let-values(((t_27 primitive?_4 insp-of-t_2 protected?_5)" -"(if b_19" -"(let-values(((b99_0) b_19)((ctx100_0) ctx_17)((id101_0) id_61))" +"(if b_73" +"(let-values(((b99_0) b_73)((ctx100_0) ctx_17)((id101_0) id_61))" "(lookup17.1 #f #f #f #f b99_0 ctx100_0 id101_0))" "(values #f #f #f #f))))" "(if(transformer? t_27)" @@ -38498,10 +38789,10 @@ static const char *startup_source = "(dispatch-transformer" " t_27" " insp-of-t_2" -"(make-explicit ctx_17 sym_61 s_183 disarmed-s_1)" +"(make-explicit ctx_17 sym_61 s_186 disarmed-s_1)" " id_61" " ctx_17" -" b_19))" +" b_73))" "(if(core-form? t_27)" "(let-values()" "(if(if(eq? sym_61 '#%top)" @@ -38509,17 +38800,17 @@ static const char *startup_source = "(expand-context-in-local-expand? ctx_17)" " #f)" " #f)" -"(let-values()(dispatch-implicit-#%top-core-form t_27 s_183 ctx_17))" +"(let-values()(dispatch-implicit-#%top-core-form t_27 s_186 ctx_17))" "(let-values()" "(dispatch-core-form" " t_27" -"(make-explicit ctx_17 sym_61 s_183 disarmed-s_1)" +"(make-explicit ctx_17 sym_61 s_186 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_183(root-expand-context-top-level-bind-scope ctx_17))" +"(add-scope s_186(root-expand-context-top-level-bind-scope ctx_17))" " #f)" " #f)))" "(let-values(((tl-b_0)" @@ -38537,7 +38828,7 @@ static const char *startup_source = " tl-id_0))" "(let-values()" "(raise-syntax-implicit-error" -" s_183" +" s_186" " sym_61" " trigger-id_1" " ctx_17))))))))))))))))))))))" @@ -38585,25 +38876,25 @@ static const char *startup_source = " result-s_1)))))))))))" "(define-values" "(make-explicit)" -"(lambda(ctx_19 sym_62 s_306 disarmed-s_2)" +"(lambda(ctx_19 sym_62 s_311 disarmed-s_2)" "(begin" "(let-values(((new-s_0)" -"(syntax-rearm$1(datum->syntax$1 disarmed-s_2(cons sym_62 disarmed-s_2) s_306 s_306) s_306)))" +"(syntax-rearm$1(datum->syntax$1 disarmed-s_2(cons sym_62 disarmed-s_2) s_311 s_311) s_311)))" "(begin" "(let-values(((obs_9)(expand-context-observer ctx_19)))" "(if obs_9(let-values()(let-values()(call-expand-observe obs_9 'tag new-s_0)))(void)))" " new-s_0)))))" "(define-values" "(dispatch)" -"(lambda(t_46 insp-of-t_3 s_393 id_62 ctx_20 binding_21 primitive?_5 protected?_6)" +"(lambda(t_46 insp-of-t_3 s_401 id_62 ctx_20 binding_20 primitive?_5 protected?_6)" "(begin" "(if(core-form? t_46)" -"(let-values()(dispatch-core-form t_46 s_393 ctx_20))" +"(let-values()(dispatch-core-form t_46 s_401 ctx_20))" "(if(transformer? t_46)" -"(let-values()(dispatch-transformer t_46 insp-of-t_3 s_393 id_62 ctx_20 binding_21))" +"(let-values()(dispatch-transformer t_46 insp-of-t_3 s_401 id_62 ctx_20 binding_20))" "(if(variable? t_46)" -"(let-values()(dispatch-variable t_46 s_393 id_62 ctx_20 binding_21 primitive?_5 protected?_6))" -" (let-values () (raise-syntax-error$1 #f \"illegal use of syntax\" s_393))))))))" +"(let-values()(dispatch-variable t_46 s_401 id_62 ctx_20 binding_20 primitive?_5 protected?_6))" +" (let-values () (raise-syntax-error$1 #f \"illegal use of syntax\" s_401))))))))" "(define-values" "(dispatch-core-form)" "(lambda(t_47 s_46 ctx_21)" @@ -38659,7 +38950,7 @@ static const char *startup_source = " result-s_3))))))" "(define-values" "(dispatch-transformer)" -"(lambda(t_49 insp-of-t_4 s_387 id_63 ctx_23 binding_22)" +"(lambda(t_49 insp-of-t_4 s_395 id_63 ctx_23 binding_21)" "(begin" "(if(not-in-this-expand-context? t_49 ctx_23)" "(let-values()" @@ -38667,18 +38958,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_387)))" +"(let-values()(let-values()(call-expand-observe obs_15 'enter-macro s_395)))" "(void)))" "(values))))" -"(let-values(((adj-s_0)(avoid-current-expand-context(substitute-alternate-id s_387 id_63) t_49 ctx_23)))" +"(let-values(((adj-s_0)(avoid-current-expand-context(substitute-alternate-id s_395 id_63) t_49 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_387)))(void)))" +"(if obs_16(let-values()(let-values()(call-expand-observe obs_16 'exit-macro s_395)))(void)))" "(let-values(((adj-s106_0) adj-s_0)((ctx107_0) ctx_23))" "(expand7.1 #f #f #f #f adj-s106_0 ctx107_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_387))" +" (raise-syntax-error$1 #f \"encountered a macro binding in form that should be fully expanded\" s_395))" "(let-values()" "(let-values((()" "(begin" @@ -38688,15 +38979,15 @@ static const char *startup_source = "(if(if(expand-context-only-immediate? ctx_23)(not(1/rename-transformer? t_49)) #f)" "(let-values()" "(begin" -"(call-expand-observe obs_17 'visit s_387)" +"(call-expand-observe obs_17 'visit s_395)" "(call-expand-observe obs_17 'resolve id_63)))" "(void)))" "(void)))" "(values))))" "(let-values(((exp-s_1 re-ctx_0)" "(if(1/rename-transformer? t_49)" -"(values s_387 ctx_23)" -"(apply-transformer t_49 insp-of-t_4 s_387 id_63 ctx_23 binding_22))))" +"(values s_395 ctx_23)" +"(apply-transformer t_49 insp-of-t_4 s_395 id_63 ctx_23 binding_21))))" "(begin" "(let-values(((obs_18)(expand-context-observer ctx_23)))" "(if obs_18" @@ -38723,23 +39014,23 @@ static const char *startup_source = "(expand7.1 temp110_0 #t temp111_0 #t exp-s108_0 re-ctx109_0)))))))))))))" "(define-values" "(dispatch-variable)" -"(lambda(t_50 s_394 id_8 ctx_24 binding_23 primitive?_6 protected?_7)" +"(lambda(t_50 s_402 id_8 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_394)))(void)))" +"(if obs_19(let-values()(let-values()(call-expand-observe obs_19 'exit-check s_402)))(void)))" " id_8))" "(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_394 id_8)))" +"(let-values()(let-values()(call-expand-observe obs_20 'variable s_402 id_8)))" "(void)))" "(values))))" -"(let-values((()(begin(register-variable-referenced-if-local! binding_23)(values))))" +"(let-values((()(begin(register-variable-referenced-if-local! binding_22)(values))))" "(let-values(((result-s_4)" "(let-values(((id112_0) id_8)" "((t113_0) t_50)" @@ -38751,8 +39042,8 @@ static const char *startup_source = "(let-values(((prop-s_0)(keep-properties-only~ result-s_4)))" "(let-values(((insp_16)(syntax-inspector result-s_4)))" "(if primitive?_6" -"(parsed-primitive-id3.1 prop-s_0 binding_23 insp_16)" -"(parsed-id2.1 prop-s_0 binding_23 insp_16)))))" +"(parsed-primitive-id3.1 prop-s_0 binding_22 insp_16)" +"(parsed-id2.1 prop-s_0 binding_22 insp_16)))))" "(let-values()" "(let-values(((protected-result-s_0)" "(if protected?_7(syntax-property$1 result-s_4 'protected #t) result-s_4)))" @@ -38764,7 +39055,7 @@ static const char *startup_source = " protected-result-s_0))))))))))))" "(define-values" "(apply-transformer)" -"(lambda(t_51 insp-of-t_5 s_56 id_64 ctx_25 binding_24)" +"(lambda(t_51 insp-of-t_5 s_56 id_64 ctx_25 binding_23)" "(begin" "(let-values()" "(let-values((()" @@ -38777,7 +39068,7 @@ static const char *startup_source = "(let-values(((disarmed-s_3)(syntax-disarm$1 s_56)))" "(let-values(((intro-scope_0)(new-scope 'macro)))" "(let-values(((intro-s_0)(flip-scope disarmed-s_3 intro-scope_0)))" -"(let-values(((use-s_0 use-scopes_0)(maybe-add-use-site-scope intro-s_0 ctx_25 binding_24)))" +"(let-values(((use-s_0 use-scopes_0)(maybe-add-use-site-scope intro-s_0 ctx_25 binding_23)))" "(let-values(((cleaned-s_0)(syntax-remove-taint-dispatch-properties use-s_0)))" "(let-values(((def-ctx-scopes_1)(box null)))" "(let-values(((transformed-s_0)" @@ -38833,32 +39124,32 @@ static const char *startup_source = "(accumulate-def-ctx-scopes ctx_26(expand-context-def-ctx-scopes ctx_26))" " ctx_26)))" "(let-values(((m-ctx_0)" -"(let-values(((v_112) accum-ctx_0))" -"(let-values(((the-struct_60) v_112))" -"(if(expand-context/outer? the-struct_60)" +"(let-values(((v_113) accum-ctx_0))" +"(let-values(((the-struct_59) v_113))" +"(if(expand-context/outer? the-struct_59)" "(let-values(((current-introduction-scopes115_0)(cons intro-scope_1 use-scopes_1))" "((def-ctx-scopes116_0)" "(if confine-def-ctx-scopes?_0" " def-ctx-scopes_2" "(expand-context-def-ctx-scopes ctx_26)))" -"((inner117_0)(root-expand-context/outer-inner v_112)))" +"((inner117_0)(root-expand-context/outer-inner v_113)))" "(expand-context/outer1.1" " inner117_0" -"(root-expand-context/outer-post-expansion-scope the-struct_60)" -"(root-expand-context/outer-use-site-scopes the-struct_60)" -"(root-expand-context/outer-frame-id the-struct_60)" -"(expand-context/outer-context the-struct_60)" -"(expand-context/outer-env the-struct_60)" -"(expand-context/outer-post-expansion-scope-action the-struct_60)" -"(expand-context/outer-scopes the-struct_60)" +"(root-expand-context/outer-post-expansion-scope the-struct_59)" +"(root-expand-context/outer-use-site-scopes the-struct_59)" +"(root-expand-context/outer-frame-id the-struct_59)" +"(expand-context/outer-context the-struct_59)" +"(expand-context/outer-env the-struct_59)" +"(expand-context/outer-post-expansion-scope-action the-struct_59)" +"(expand-context/outer-scopes the-struct_59)" " def-ctx-scopes116_0" -"(expand-context/outer-binding-layer the-struct_60)" -"(expand-context/outer-reference-records the-struct_60)" -"(expand-context/outer-only-immediate? the-struct_60)" -"(expand-context/outer-need-eventually-defined the-struct_60)" +"(expand-context/outer-binding-layer the-struct_59)" +"(expand-context/outer-reference-records the-struct_59)" +"(expand-context/outer-only-immediate? the-struct_59)" +"(expand-context/outer-need-eventually-defined the-struct_59)" " current-introduction-scopes115_0" -"(expand-context/outer-name the-struct_60)))" -" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_60))))))" +"(expand-context/outer-name the-struct_59)))" +" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_59))))))" "(let-values(((transformed-s_1)" "(with-continuation-mark" " parameterization-key" @@ -38893,16 +39184,16 @@ static const char *startup_source = " transformed-s_1)))))))))" "(define-values" "(maybe-add-use-site-scope)" -"(lambda(s_395 ctx_27 binding_25)" +"(lambda(s_403 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_25))" +"(matching-frame?(root-expand-context-frame-id ctx_27)(binding-frame-id binding_24))" " #f)" "(let-values()" -"(let-values(((sc_26)(new-scope 'use-site)))" -"(let-values(((b_75)(root-expand-context-use-site-scopes ctx_27)))" -"(begin(set-box! b_75(cons sc_26(unbox b_75)))(values(add-scope s_395 sc_26)(list sc_26))))))" -"(let-values()(values s_395 null))))))" +"(let-values(((sc_30)(new-scope 'use-site)))" +"(let-values(((b_74)(root-expand-context-use-site-scopes ctx_27)))" +"(begin(set-box! b_74(cons sc_30(unbox b_74)))(values(add-scope s_403 sc_30)(list sc_30))))))" +"(let-values()(values s_403 null))))))" "(define-values" "(matching-frame?)" "(lambda(current-frame-id_0 bind-frame-id_0)" @@ -38913,53 +39204,53 @@ static const char *startup_source = " #f))))" "(define-values" "(maybe-add-post-expansion-scope)" -"(lambda(s_396 ctx_28)" +"(lambda(s_404 ctx_28)" "(begin" "(if(root-expand-context-post-expansion-scope ctx_28)" "(let-values()" -"((expand-context-post-expansion-scope-action ctx_28) s_396(root-expand-context-post-expansion-scope ctx_28)))" -"(let-values() s_396)))))" +"((expand-context-post-expansion-scope-action ctx_28) s_404(root-expand-context-post-expansion-scope ctx_28)))" +"(let-values() s_404)))))" "(define-values" "(accumulate-def-ctx-scopes)" "(lambda(ctx_29 def-ctx-scopes_3)" "(begin" "(if(null?(unbox def-ctx-scopes_3))" " ctx_29" -"(let-values(((v_186) ctx_29))" -"(let-values(((the-struct_61) v_186))" -"(if(expand-context/outer? the-struct_61)" +"(let-values(((v_184) ctx_29))" +"(let-values(((the-struct_60) v_184))" +"(if(expand-context/outer? the-struct_60)" "(let-values(((scopes118_0)(append(unbox def-ctx-scopes_3)(expand-context-scopes ctx_29)))" -"((inner119_0)(root-expand-context/outer-inner v_186)))" +"((inner119_0)(root-expand-context/outer-inner v_184)))" "(expand-context/outer1.1" " inner119_0" -"(root-expand-context/outer-post-expansion-scope the-struct_61)" -"(root-expand-context/outer-use-site-scopes the-struct_61)" -"(root-expand-context/outer-frame-id the-struct_61)" -"(expand-context/outer-context the-struct_61)" -"(expand-context/outer-env the-struct_61)" -"(expand-context/outer-post-expansion-scope-action the-struct_61)" +"(root-expand-context/outer-post-expansion-scope the-struct_60)" +"(root-expand-context/outer-use-site-scopes the-struct_60)" +"(root-expand-context/outer-frame-id the-struct_60)" +"(expand-context/outer-context the-struct_60)" +"(expand-context/outer-env the-struct_60)" +"(expand-context/outer-post-expansion-scope-action the-struct_60)" " scopes118_0" -"(expand-context/outer-def-ctx-scopes the-struct_61)" -"(expand-context/outer-binding-layer the-struct_61)" -"(expand-context/outer-reference-records the-struct_61)" -"(expand-context/outer-only-immediate? the-struct_61)" -"(expand-context/outer-need-eventually-defined the-struct_61)" -"(expand-context/outer-current-introduction-scopes the-struct_61)" -"(expand-context/outer-name the-struct_61)))" -" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_61))))))))" +"(expand-context/outer-def-ctx-scopes the-struct_60)" +"(expand-context/outer-binding-layer the-struct_60)" +"(expand-context/outer-reference-records the-struct_60)" +"(expand-context/outer-only-immediate? the-struct_60)" +"(expand-context/outer-need-eventually-defined the-struct_60)" +"(expand-context/outer-current-introduction-scopes the-struct_60)" +"(expand-context/outer-name the-struct_60)))" +" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_60))))))))" "(define-values" "(lookup17.1)" "(lambda(in10_1 in12_1 out-of-context-as-variable?11_0 out-of-context-as-variable?13_0 b14_0 ctx15_0 id16_1)" "(begin" " 'lookup17" -"(let-values(((b_76) b14_0))" +"(let-values(((b_75) b14_0))" "(let-values(((ctx_30) ctx15_0))" "(let-values(((id_66) id16_1))" "(let-values(((in-s_7)(if in12_1 in10_1 #f)))" "(let-values(((out-of-context-as-variable?_1)" "(if out-of-context-as-variable?13_0 out-of-context-as-variable?11_0 #f)))" "(let-values()" -"(let-values(((b120_0) b_76)" +"(let-values(((b120_0) b_75)" "((temp121_0)(expand-context-env ctx_30))" "((temp122_0)(expand-context-lift-envs ctx_30))" "((temp123_1)(expand-context-namespace ctx_30))" @@ -38980,25 +39271,25 @@ static const char *startup_source = " id125_0)))))))))))" "(define-values" "(substitute-alternate-id)" -"(lambda(s_397 alternate-id_3)" +"(lambda(s_94 alternate-id_3)" "(begin" "(if(not alternate-id_3)" -"(let-values() s_397)" -"(if(identifier? s_397)" -"(let-values()(syntax-rearm$1(syntax-track-origin$1 alternate-id_3 s_397) s_397))" +"(let-values() s_94)" +"(if(identifier? s_94)" +"(let-values()(syntax-rearm$1(syntax-track-origin$1 alternate-id_3 s_94) s_94))" "(let-values()" -"(let-values(((disarmed-s_4)(syntax-disarm$1 s_397)))" +"(let-values(((disarmed-s_4)(syntax-disarm$1 s_94)))" "(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_397)" -" s_397)" -" s_397))))))))" +"(datum->syntax$1 disarmed-s_4(cons alternate-id_3(cdr(syntax-e$1 disarmed-s_4))) s_94)" +" s_94)" +" s_94))))))))" "(define-values" "(register-variable-referenced-if-local!)" -"(lambda(binding_26)" +"(lambda(binding_25)" "(begin" -"(if(if(local-binding? binding_26)(reference-record?(binding-frame-id binding_26)) #f)" -"(let-values()(reference-record-used!(binding-frame-id binding_26)(local-binding-key binding_26)))" +"(if(if(local-binding? binding_25)(reference-record?(binding-frame-id binding_25)) #f)" +"(let-values()(reference-record-used!(binding-frame-id binding_25)(local-binding-key binding_25)))" "(void)))))" "(define-values" "(expand/capture-lifts30.1)" @@ -39014,7 +39305,7 @@ static const char *startup_source = " ctx29_0)" "(begin" " 'expand/capture-lifts30" -"(let-values(((s_386) s28_2))" +"(let-values(((s_394) s28_2))" "(let-values(((ctx_31) ctx29_0))" "(let-values(((expand-lifts?_0)(if expand-lifts?24_0 expand-lifts?20_0 #f)))" "(let-values(((begin-form?_0)(if begin-form?25_0 begin-form?21_0 #f)))" @@ -39022,10 +39313,10 @@ static const char *startup_source = "(let-values(((always-wrap?_0)(if always-wrap?27_0 always-wrap?23_0 #f)))" "(let-values()" "(let-values(((context_6)(expand-context-context ctx_31)))" -"(let-values(((phase_102)(expand-context-phase ctx_31)))" +"(let-values(((phase_103)(expand-context-phase ctx_31)))" "(let-values(((local?_0)(not begin-form?_0)))" -"((letrec-values(((loop_92)" -"(lambda(s_398 always-wrap?_1 ctx_32)" +"((letrec-values(((loop_93)" +"(lambda(s_101 always-wrap?_1 ctx_32)" "(begin" " 'loop" "(let-values(((lift-env_2)(if local?_0(box empty-env) #f)))" @@ -39042,15 +39333,15 @@ static const char *startup_source = " #f)))" "(make-lift-context6.1 temp129_1 #t temp128_0))))" "(let-values(((capture-ctx_0)" -"(let-values(((v_187) ctx_32))" -"(let-values(((the-struct_62) v_187))" -"(if(expand-context/outer? the-struct_62)" +"(let-values(((v_185) ctx_32))" +"(let-values(((the-struct_61) v_185))" +"(if(expand-context/outer? the-struct_61)" "(let-values(((inner130_0)" -"(let-values(((the-struct_63)" +"(let-values(((the-struct_62)" "(root-expand-context/outer-inner" -" v_187)))" +" v_185)))" "(if(expand-context/inner?" -" the-struct_63)" +" the-struct_62)" "(let-values(((lift-key131_0)" " lift-key_2)" "((lifts132_0)" @@ -39078,88 +39369,88 @@ static const char *startup_source = " lift-ctx_0)))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi" -" the-struct_63)" +" the-struct_62)" "(root-expand-context/inner-module-scopes" -" the-struct_63)" +" the-struct_62)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_63)" +" the-struct_62)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_63)" +" the-struct_62)" "(root-expand-context/inner-defined-syms" -" the-struct_63)" +" the-struct_62)" "(root-expand-context/inner-counter" -" the-struct_63)" +" the-struct_62)" " lift-key131_0" "(expand-context/inner-to-parsed?" -" the-struct_63)" +" the-struct_62)" "(expand-context/inner-phase" -" the-struct_63)" +" the-struct_62)" "(expand-context/inner-namespace" -" the-struct_63)" +" the-struct_62)" "(expand-context/inner-just-once?" -" the-struct_63)" +" the-struct_62)" "(expand-context/inner-module-begin-k" -" the-struct_63)" +" the-struct_62)" "(expand-context/inner-allow-unbound?" -" the-struct_63)" +" the-struct_62)" "(expand-context/inner-in-local-expand?" -" the-struct_63)" +" the-struct_62)" "(expand-context/inner-stops" -" the-struct_63)" +" the-struct_62)" "(expand-context/inner-declared-submodule-names" -" the-struct_63)" +" the-struct_62)" " lifts132_0" " lift-envs133_0" " module-lifts134_0" "(expand-context/inner-require-lifts" -" the-struct_63)" +" the-struct_62)" "(expand-context/inner-to-module-lifts" -" the-struct_63)" +" the-struct_62)" "(expand-context/inner-requires+provides" -" the-struct_63)" +" the-struct_62)" "(expand-context/inner-observer" -" the-struct_63)" +" the-struct_62)" "(expand-context/inner-for-serializable?" -" the-struct_63)" +" the-struct_62)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_63)))" +" the-struct_62)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_63)))))" +" the-struct_62)))))" "(expand-context/outer1.1" " inner130_0" "(root-expand-context/outer-post-expansion-scope" -" the-struct_62)" +" the-struct_61)" "(root-expand-context/outer-use-site-scopes" -" the-struct_62)" +" the-struct_61)" "(root-expand-context/outer-frame-id" -" the-struct_62)" -"(expand-context/outer-context the-struct_62)" -"(expand-context/outer-env the-struct_62)" +" the-struct_61)" +"(expand-context/outer-context the-struct_61)" +"(expand-context/outer-env the-struct_61)" "(expand-context/outer-post-expansion-scope-action" -" the-struct_62)" -"(expand-context/outer-scopes the-struct_62)" +" the-struct_61)" +"(expand-context/outer-scopes the-struct_61)" "(expand-context/outer-def-ctx-scopes" -" the-struct_62)" +" the-struct_61)" "(expand-context/outer-binding-layer" -" the-struct_62)" +" the-struct_61)" "(expand-context/outer-reference-records" -" the-struct_62)" +" the-struct_61)" "(expand-context/outer-only-immediate?" -" the-struct_62)" +" the-struct_61)" "(expand-context/outer-need-eventually-defined" -" the-struct_62)" +" the-struct_61)" "(expand-context/outer-current-introduction-scopes" -" the-struct_62)" -"(expand-context/outer-name the-struct_62)))" +" the-struct_61)" +"(expand-context/outer-name the-struct_61)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_62))))))" -"(let-values(((rebuild-s_0)(keep-properties-only s_398)))" +" the-struct_61))))))" +"(let-values(((rebuild-s_0)(keep-properties-only s_101)))" "(let-values(((exp-s_2)" -"(let-values(((s135_0) s_398)" +"(let-values(((s135_0) s_101)" "((capture-ctx136_0) capture-ctx_0))" "(expand7.1" " #f" @@ -39192,13 +39483,13 @@ static const char *startup_source = " rebuild-s_0" " ctx_32" "(lambda(rhs_15 rhs-ctx_0)" -"(loop_92 rhs_15 #f rhs-ctx_0)))))" +"(loop_93 rhs_15 #f rhs-ctx_0)))))" "(let-values()" "(if begin-form?_0" "(let-values(((lifts137_0) lifts_6)" "((exp-s138_0) exp-s_2)" "((phase139_0)" -" phase_102))" +" phase_103))" "(wrap-lifts-as-begin16.1" " #f" " #f" @@ -39210,7 +39501,7 @@ static const char *startup_source = "(wrap-lifts-as-let" " lifts_6" " exp-s_2" -" phase_102)))))" +" phase_103)))))" "(let-values() exp-s_2))))" "(if(let-values(((or-part_270)(not expand-lifts?_0)))" "(if or-part_270" @@ -39232,9 +39523,9 @@ static const char *startup_source = " 'letlift-loop" " with-lifts-s_0)))" "(void)))" -"(loop_92 with-lifts-s_0 #f ctx_32)))))))))))))))" -" loop_92)" -" s_386" +"(loop_93 with-lifts-s_0 #f ctx_32)))))))))))))))" +" loop_93)" +" s_394" " always-wrap?_0" " ctx_31))))))))))))))" "(define-values" @@ -39255,7 +39546,7 @@ static const char *startup_source = " ctx46_0)" "(begin" " 'expand-transformer47" -"(let-values(((s_399) s45_0))" +"(let-values(((s_405) s45_0))" "(let-values(((ctx_33) ctx46_0))" "(let-values(((context_7)(if context39_0 context33_0 'expression)))" "(let-values(((begin-form?_1)(if begin-form?40_0 begin-form?34_0 #f)))" @@ -39275,7 +39566,7 @@ static const char *startup_source = " ctx146_0" " context147_0" " #t))))" -"(let-values(((s140_0) s_399)" +"(let-values(((s140_0) s_405)" "((trans-ctx141_0) trans-ctx_0)" "((expand-lifts?142_0) expand-lifts?_1)" "((begin-form?143_0) begin-form?_1)" @@ -39301,13 +39592,13 @@ static const char *startup_source = "(let-values(((context_8)(if context53_0 context52_0 'expression)))" "(let-values(((keep-stops?_1)(if keep-stops?51_0 keep-stops?50_0 #f)))" "(let-values()" -"(let-values(((phase_103)(add1(expand-context-phase ctx_34))))" -"(let-values(((ns_73)(namespace->namespace-at-phase(expand-context-namespace ctx_34) phase_103)))" +"(let-values(((phase_104)(add1(expand-context-phase ctx_34))))" +"(let-values(((ns_73)(namespace->namespace-at-phase(expand-context-namespace ctx_34) phase_104)))" "(begin" -"(namespace-visit-available-modules! ns_73 phase_103)" -"(let-values(((v_188) ctx_34))" -"(let-values(((the-struct_64) v_188))" -"(if(expand-context/outer? the-struct_64)" +"(namespace-visit-available-modules! ns_73 phase_104)" +"(let-values(((v_186) ctx_34))" +"(let-values(((the-struct_63) v_186))" +"(if(expand-context/outer? the-struct_63)" "(let-values(((context149_0) context_8)" "((scopes150_0) null)" "((env151_0) empty-env)" @@ -39316,61 +39607,61 @@ static const char *startup_source = "((def-ctx-scopes153_0) #f)" "((post-expansion-scope154_0) #f)" "((inner155_0)" -"(let-values(((the-struct_65)(root-expand-context/outer-inner v_188)))" -"(if(expand-context/inner? the-struct_65)" -"(let-values(((phase156_0) phase_103)" +"(let-values(((the-struct_64)(root-expand-context/outer-inner v_186)))" +"(if(expand-context/inner? the-struct_64)" +"(let-values(((phase156_0) phase_104)" "((namespace157_0) ns_73)" "((stops158_0)" "(if keep-stops?_1" "(expand-context-stops ctx_34)" " empty-free-id-set)))" "(expand-context/inner2.1" -"(root-expand-context/inner-self-mpi the-struct_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)" -"(expand-context/inner-to-parsed? the-struct_65)" +"(root-expand-context/inner-self-mpi the-struct_64)" +"(root-expand-context/inner-module-scopes the-struct_64)" +"(root-expand-context/inner-top-level-bind-scope the-struct_64)" +"(root-expand-context/inner-all-scopes-stx the-struct_64)" +"(root-expand-context/inner-defined-syms the-struct_64)" +"(root-expand-context/inner-counter the-struct_64)" +"(root-expand-context/inner-lift-key the-struct_64)" +"(expand-context/inner-to-parsed? the-struct_64)" " phase156_0" " namespace157_0" -"(expand-context/inner-just-once? the-struct_65)" -"(expand-context/inner-module-begin-k the-struct_65)" -"(expand-context/inner-allow-unbound? the-struct_65)" -"(expand-context/inner-in-local-expand? the-struct_65)" +"(expand-context/inner-just-once? the-struct_64)" +"(expand-context/inner-module-begin-k the-struct_64)" +"(expand-context/inner-allow-unbound? the-struct_64)" +"(expand-context/inner-in-local-expand? the-struct_64)" " stops158_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-should-not-encounter-macros? the-struct_65)))" +"(expand-context/inner-declared-submodule-names the-struct_64)" +"(expand-context/inner-lifts the-struct_64)" +"(expand-context/inner-lift-envs the-struct_64)" +"(expand-context/inner-module-lifts the-struct_64)" +"(expand-context/inner-require-lifts the-struct_64)" +"(expand-context/inner-to-module-lifts the-struct_64)" +"(expand-context/inner-requires+provides the-struct_64)" +"(expand-context/inner-observer the-struct_64)" +"(expand-context/inner-for-serializable? the-struct_64)" +"(expand-context/inner-should-not-encounter-macros? the-struct_64)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_65)))))" +" the-struct_64)))))" "(expand-context/outer1.1" " inner155_0" " post-expansion-scope154_0" -"(root-expand-context/outer-use-site-scopes the-struct_64)" -"(root-expand-context/outer-frame-id the-struct_64)" +"(root-expand-context/outer-use-site-scopes the-struct_63)" +"(root-expand-context/outer-frame-id the-struct_63)" " context149_0" " env151_0" -"(expand-context/outer-post-expansion-scope-action the-struct_64)" +"(expand-context/outer-post-expansion-scope-action the-struct_63)" " scopes150_0" " def-ctx-scopes153_0" -"(expand-context/outer-binding-layer the-struct_64)" -"(expand-context/outer-reference-records the-struct_64)" +"(expand-context/outer-binding-layer the-struct_63)" +"(expand-context/outer-reference-records the-struct_63)" " only-immediate?152_0" -"(expand-context/outer-need-eventually-defined the-struct_64)" -"(expand-context/outer-current-introduction-scopes the-struct_64)" -"(expand-context/outer-name the-struct_64)))" -" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_64))))))))))))))" +"(expand-context/outer-need-eventually-defined the-struct_63)" +"(expand-context/outer-current-introduction-scopes the-struct_63)" +"(expand-context/outer-name the-struct_63)))" +" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_63))))))))))))))" "(define-values" "(expand+eval-for-syntaxes-binding63.1)" "(lambda(log-next?58_0 log-next?59_0 rhs60_0 ids61_0 ctx62_0)" @@ -39384,7 +39675,7 @@ static const char *startup_source = "(let-values(((exp-rhs_0)" "(let-values(((rhs159_0) rhs_16)((temp160_1)(as-named-context ctx_35 ids_19)))" "(expand-transformer47.1 #f #f #f #f #f #f #f #f #f #f #f #f rhs159_0 temp160_1))))" -"(let-values(((phase_104)(add1(expand-context-phase ctx_35))))" +"(let-values(((phase_105)(add1(expand-context-phase ctx_35))))" "(let-values(((parsed-rhs_0)" "(if(expand-context-to-parsed? ctx_35)" " exp-rhs_0" @@ -39405,8 +39696,8 @@ static const char *startup_source = "(eval-for-bindings" " ids_19" " parsed-rhs_0" -" phase_104" -"(namespace->namespace-at-phase(expand-context-namespace ctx_35) phase_104)" +" phase_105" +"(namespace->namespace-at-phase(expand-context-namespace ctx_35) phase_105)" " ctx_35))))))))))))))" "(define-values" "(eval-for-syntaxes-binding)" @@ -39418,14 +39709,14 @@ static const char *startup_source = " vals_3))))" "(define-values" "(eval-for-bindings)" -"(lambda(ids_21 p_47 phase_105 ns_74 ctx_37)" +"(lambda(ids_21 p_48 phase_106 ns_74 ctx_37)" "(begin" "(let-values(((compiled_0)" -"(if(can-direct-eval? p_47 ns_74(root-expand-context-self-mpi ctx_37))" +"(if(can-direct-eval? p_48 ns_74(root-expand-context-self-mpi ctx_37))" " #f" "(compile-single" -" p_47" -"(let-values(((ns167_0) ns_74)((phase168_1) phase_105))" +" p_48" +"(let-values(((ns167_0) ns_74)((phase168_1) phase_106))" "(make-compile-context14.1 #f #f #f #f #f #f ns167_0 #t phase168_1 #t #f #f))))))" "(let-values(((vals_4)" "(call-with-values" @@ -39443,15 +39734,15 @@ static const char *startup_source = "(let-values()" "(if compiled_0" "(eval-single-top compiled_0 ns_74)" -"(direct-eval p_47 ns_74(root-expand-context-self-mpi ctx_37))))))" +"(direct-eval p_48 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_47)))" +" (let-values () (error \"wrong number of results (\" (length vals_4) \"vs.\" (length ids_21) \")\" \"from\" p_48)))" " vals_4))))))" -"(define-values(keep-properties-only)(lambda(s_400)(begin(datum->syntax$1 #f 'props s_400 s_400))))" -"(define-values(keep-properties-only~)(lambda(s_401)(begin #f)))" +"(define-values(keep-properties-only)(lambda(s_406)(begin(datum->syntax$1 #f 'props s_406 s_406))))" +"(define-values(keep-properties-only~)(lambda(s_407)(begin #f)))" "(define-values" "(keep-as-needed74.1)" "(lambda(for-track?66_0" @@ -39465,47 +39756,47 @@ static const char *startup_source = "(begin" " 'keep-as-needed74" "(let-values(((ctx_38) ctx72_0))" -"(let-values(((s_402) s73_1))" +"(let-values(((s_408) s73_1))" "(let-values()" "(let-values(((keep-for-parsed?_0)(if keep-for-parsed?70_0 keep-for-parsed?67_0 #f)))" "(let-values(((keep-for-error?_0)(if keep-for-error?71_0 keep-for-error?68_0 #f)))" "(let-values()" -"(let-values(((d_32)(syntax-e$1 s_402)))" +"(let-values(((d_33)(syntax-e$1 s_408)))" "(let-values(((keep-e_0)" -"(if(symbol? d_32)" -"(let-values() d_32)" -"(if(if(pair? d_32)(identifier?(car d_32)) #f)" -"(let-values()(syntax-e$1(car d_32)))" +"(if(symbol? d_33)" +"(let-values() d_33)" +"(if(if(pair? d_33)(identifier?(car d_33)) #f)" +"(let-values()(syntax-e$1(car d_33)))" "(let-values() #f)))))" "(if(expand-context-to-parsed? ctx_38)" "(let-values()" "(if(let-values(((or-part_272) keep-for-parsed?_0))" "(if or-part_272 or-part_272 keep-for-error?_0))" -"(datum->syntax$1 #f keep-e_0 s_402 s_402)" +"(datum->syntax$1 #f keep-e_0 s_408 s_408)" " #f))" "(let-values()" "(syntax-rearm$1" -"(datum->syntax$1(syntax-disarm$1 s_402) keep-e_0 s_402 s_402)" -" s_402))))))))))))))" +"(datum->syntax$1(syntax-disarm$1 s_408) keep-e_0 s_408 s_408)" +" s_408))))))))))))))" "(define-values" "(attach-disappeared-transformer-bindings)" -"(lambda(s_403 trans-idss_0)" +"(lambda(s_409 trans-idss_0)" "(begin" "(if(null? trans-idss_0)" -"(let-values() s_403)" +"(let-values() s_409)" "(let-values()" "(syntax-property$1" -" s_403" +" s_409" " 'disappeared-binding" "(append" "(apply append trans-idss_0)" -"(let-values(((or-part_273)(syntax-property$1 s_403 'disappeared-binding)))" +"(let-values(((or-part_273)(syntax-property$1 s_409 'disappeared-binding)))" "(if or-part_273 or-part_273 null)))))))))" "(define-values" "(increment-binding-layer)" "(lambda(ids_22 ctx_39 layer-val_0)" "(begin" -"(if((letrec-values(((loop_93)" +"(if((letrec-values(((loop_94)" "(lambda(ids_23)" "(begin" " 'loop" @@ -39513,10 +39804,10 @@ static const char *startup_source = "(if or-part_274" " or-part_274" "(if(pair? ids_23)" -"(let-values(((or-part_275)(loop_93(car ids_23))))" -"(if or-part_275 or-part_275(loop_93(cdr ids_23))))" +"(let-values(((or-part_275)(loop_94(car ids_23))))" +"(if or-part_275 or-part_275(loop_94(cdr ids_23))))" " #f)))))))" -" loop_93)" +" loop_94)" " ids_22)" " layer-val_0" "(expand-context-binding-layer ctx_39)))))" @@ -39543,37 +39834,37 @@ static const char *startup_source = "(list" "(lets-loop_0" "(cdr idss+keyss+rhss_1)" -"(let-values(((v_189) rhs-ctx_1))" -"(let-values(((the-struct_66) v_189))" -"(if(expand-context/outer? the-struct_66)" +"(let-values(((v_187) rhs-ctx_1))" +"(let-values(((the-struct_65) v_187))" +"(if(expand-context/outer? the-struct_65)" "(let-values(((env169_0)" -"(let-values(((lst_287) ids_24)((lst_288) keys_4))" +"(let-values(((lst_285) ids_24)((lst_286) keys_4))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_287)))" +"(let-values()(check-list lst_285)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_288)))" -"((letrec-values(((for-loop_254)" -"(lambda(env_3 lst_289 lst_124)" +"(let-values()(check-list lst_286)))" +"((letrec-values(((for-loop_255)" +"(lambda(env_3 lst_287 lst_124)" "(begin" " 'for-loop" -"(if(if(pair? lst_289)" +"(if(if(pair? lst_287)" "(pair? lst_124)" " #f)" "(let-values(((id_67)" "(unsafe-car" -" lst_289))" -"((rest_60)" +" lst_287))" +"((rest_159)" "(unsafe-cdr" -" lst_289))" -"((key_82)" +" lst_287))" +"((key_83)" "(unsafe-car" " lst_124))" -"((rest_159)" +"((rest_160)" "(unsafe-cdr" " lst_124)))" "(let-values(((env_4)" @@ -39583,43 +39874,43 @@ static const char *startup_source = "(let-values()" "(env-extend" " env_5" -" key_82" +" key_83" "(local-variable1.1" " id_67)))))" "(values" " env_6)))))" "(if(not #f)" -"(for-loop_254" +"(for-loop_255" " env_4" -" rest_60" -" rest_159)" +" rest_159" +" rest_160)" " env_4)))" " env_3)))))" -" for-loop_254)" +" for-loop_255)" "(expand-context-env rhs-ctx_1)" -" lst_287" -" lst_288))))" -"((inner170_0)(root-expand-context/outer-inner v_189)))" +" lst_285" +" lst_286))))" +"((inner170_0)(root-expand-context/outer-inner v_187)))" "(expand-context/outer1.1" " inner170_0" -"(root-expand-context/outer-post-expansion-scope the-struct_66)" -"(root-expand-context/outer-use-site-scopes the-struct_66)" -"(root-expand-context/outer-frame-id the-struct_66)" -"(expand-context/outer-context the-struct_66)" +"(root-expand-context/outer-post-expansion-scope the-struct_65)" +"(root-expand-context/outer-use-site-scopes the-struct_65)" +"(root-expand-context/outer-frame-id the-struct_65)" +"(expand-context/outer-context the-struct_65)" " env169_0" -"(expand-context/outer-post-expansion-scope-action the-struct_66)" -"(expand-context/outer-scopes the-struct_66)" -"(expand-context/outer-def-ctx-scopes the-struct_66)" -"(expand-context/outer-binding-layer the-struct_66)" -"(expand-context/outer-reference-records the-struct_66)" -"(expand-context/outer-only-immediate? the-struct_66)" -"(expand-context/outer-need-eventually-defined the-struct_66)" -"(expand-context/outer-current-introduction-scopes the-struct_66)" -"(expand-context/outer-name the-struct_66)))" +"(expand-context/outer-post-expansion-scope-action the-struct_65)" +"(expand-context/outer-scopes the-struct_65)" +"(expand-context/outer-def-ctx-scopes the-struct_65)" +"(expand-context/outer-binding-layer the-struct_65)" +"(expand-context/outer-reference-records the-struct_65)" +"(expand-context/outer-only-immediate? the-struct_65)" +"(expand-context/outer-need-eventually-defined the-struct_65)" +"(expand-context/outer-current-introduction-scopes the-struct_65)" +"(expand-context/outer-name the-struct_65)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_66)))))))))))))))))" +" the-struct_65)))))))))))))))))" " lets-loop_0)" " idss+keyss+rhss_0" " ctx_40)))))" @@ -39633,14 +39924,14 @@ static const char *startup_source = "(let-values()(1/rename-transformer-target t_53))))))" "(define-values" "(maybe-install-free=id-in-context!)" -"(lambda(val_67 id_68 phase_106 ctx_42)" +"(lambda(val_68 id_68 phase_107 ctx_42)" "(begin" -"(if(1/rename-transformer? val_67)" +"(if(1/rename-transformer? val_68)" "(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_67 id_68 phase_106))))" +"(let-values()(maybe-install-free=id! val_68 id_68 phase_107))))" "(void)))))" "(define-values" "(transfer-srcloc)" @@ -39648,47 +39939,47 @@ static const char *startup_source = "(begin" "(let-values(((srcloc_7)(syntax-srcloc old-s_0)))" "(if srcloc_7" -"(let-values(((the-struct_67) new-s_1))" -"(if(syntax?$1 the-struct_67)" +"(let-values(((the-struct_27) new-s_1))" +"(if(syntax?$1 the-struct_27)" "(let-values(((srcloc171_0) srcloc_7))" "(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_27)" +"(syntax-scopes the-struct_27)" +"(syntax-shifted-multi-scopes the-struct_27)" +"(syntax-scope-propagations+tamper the-struct_27)" +"(syntax-mpi-shifts the-struct_27)" " srcloc171_0" -"(syntax-props the-struct_67)" -"(syntax-inspector the-struct_67)))" -" (raise-argument-error 'struct-copy \"syntax?\" the-struct_67)))" +"(syntax-props the-struct_27)" +"(syntax-inspector the-struct_27)))" +" (raise-argument-error 'struct-copy \"syntax?\" the-struct_27)))" " new-s_1)))))" "(define-values" "(stop-ids->all-stop-ids)" -"(lambda(stop-ids_0 phase_42)" +"(lambda(stop-ids_0 phase_43)" "(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_42)))" +"(let-values(((p-core-stx_0)(syntax-shift-phase-level$1 core-stx phase_43)))" "(if(if(= 1(length stop-ids_0))" -"(free-identifier=?$1(car stop-ids_0)(datum->syntax$1 p-core-stx_0 'module*) phase_42 phase_42)" +"(free-identifier=?$1(car stop-ids_0)(datum->syntax$1 p-core-stx_0 'module*) phase_43 phase_43)" " #f)" "(let-values() stop-ids_0)" "(let-values()" "(append" " stop-ids_0" "(reverse$1" -"(let-values(((lst_100) auto-stop-syms))" +"(let-values(((lst_101) auto-stop-syms))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_100)))" -"((letrec-values(((for-loop_107)" +"(let-values()(check-list lst_101)))" +"((letrec-values(((for-loop_111)" "(lambda(fold-var_86 lst_6)" "(begin" " 'for-loop" "(if(pair? lst_6)" -"(let-values(((sym_63)(unsafe-car lst_6))((rest_47)(unsafe-cdr lst_6)))" +"(let-values(((sym_63)(unsafe-car lst_6))((rest_48)(unsafe-cdr lst_6)))" "(let-values(((fold-var_87)" "(let-values(((fold-var_88) fold-var_86))" "(let-values(((fold-var_60)" @@ -39700,11 +39991,11 @@ static const char *startup_source = " sym_63))" " fold-var_88))))" "(values fold-var_60)))))" -"(if(not #f)(for-loop_107 fold-var_87 rest_47) fold-var_87)))" +"(if(not #f)(for-loop_111 fold-var_87 rest_48) fold-var_87)))" " fold-var_86)))))" -" for-loop_107)" +" for-loop_111)" " null" -" lst_100)))))))))))))" +" lst_101)))))))))))))" "(define-values" "(auto-stop-syms)" " '(begin" @@ -39724,19 +40015,19 @@ static const char *startup_source = " #%variable-reference))" "(define-values" "(module-expand-stop-ids)" -"(lambda(phase_107)" +"(lambda(phase_108)" "(begin" -"(let-values(((p-core-stx_1)(syntax-shift-phase-level$1 core-stx phase_107)))" +"(let-values(((p-core-stx_1)(syntax-shift-phase-level$1 core-stx phase_108)))" "(reverse$1" "(let-values(((lst_224) module-stop-syms))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_224)))" -"((letrec-values(((for-loop_255)" -"(lambda(fold-var_240 lst_266)" +"((letrec-values(((for-loop_256)" +"(lambda(fold-var_240 lst_263)" "(begin" " 'for-loop" -"(if(pair? lst_266)" -"(let-values(((sym_16)(unsafe-car lst_266))((rest_160)(unsafe-cdr lst_266)))" +"(if(pair? lst_263)" +"(let-values(((sym_16)(unsafe-car lst_263))((rest_161)(unsafe-cdr lst_263)))" "(let-values(((fold-var_218)" "(let-values(((fold-var_30) fold-var_240))" "(let-values(((fold-var_219)" @@ -39746,9 +40037,9 @@ static const char *startup_source = "(datum->syntax$1 p-core-stx_1 sym_16))" " fold-var_30))))" "(values fold-var_219)))))" -"(if(not #f)(for-loop_255 fold-var_218 rest_160) fold-var_218)))" +"(if(not #f)(for-loop_256 fold-var_218 rest_161) fold-var_218)))" " fold-var_240)))))" -" for-loop_255)" +" for-loop_256)" " null" " lst_224))))))))" "(define-values" @@ -39827,25 +40118,25 @@ static const char *startup_source = "(let-values(((temp42_2) 'syntax-local-make-definition-context))" "(get-current-expand-context17.1 #f #f temp42_2 #t))))" "(let-values(((frame-id_8)" -"(let-values(((or-part_276)(root-expand-context-frame-id ctx_43)))" -"(if or-part_276" -" or-part_276" -"(let-values(((or-part_230)" +"(let-values(((or-part_67)(root-expand-context-frame-id ctx_43)))" +"(if or-part_67" +" or-part_67" +"(let-values(((or-part_175)" "(if parent-ctx_0" "(internal-definition-context-frame-id parent-ctx_0)" " #f)))" -"(if or-part_230 or-part_230(gensym)))))))" -"(let-values(((sc_27)(new-scope 'intdef)))" +"(if or-part_175 or-part_175(gensym)))))))" +"(let-values(((sc_31)(new-scope 'intdef)))" "(let-values(((def-ctx-scopes_4)(expand-context-def-ctx-scopes ctx_43)))" "(begin" "(if def-ctx-scopes_4" "(void)" "(let-values()" " (error \"internal error: no box to accumulate definition-context scopes\")))" -"(set-box! def-ctx-scopes_4(cons sc_27(unbox def-ctx-scopes_4)))" +"(set-box! def-ctx-scopes_4(cons sc_31(unbox def-ctx-scopes_4)))" "(internal-definition-context1.1" " frame-id_8" -" sc_27" +" sc_31" " add-scope?_0" "(box null)))))))))))))))" "(case-lambda" @@ -39854,7 +40145,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_404 intdef_0)" +"(lambda(ids_25 s_410 intdef_0)" "(begin" " 'syntax-local-bind-syntaxes" "(let-values((()" @@ -39866,9 +40157,9 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(if(let-values(((or-part_162)(not s_404)))(if or-part_162 or-part_162(syntax?$1 s_404)))" +"(if(let-values(((or-part_164)(not s_410)))(if or-part_164 or-part_164(syntax?$1 s_410)))" "(void)" -" (let-values () (raise-argument-error 'syntax-local-bind-syntaxes \"(or/c syntax? #f)\" s_404)))" +" (let-values () (raise-argument-error 'syntax-local-bind-syntaxes \"(or/c syntax? #f)\" s_410)))" "(values))))" "(let-values((()" "(begin" @@ -39889,22 +40180,22 @@ static const char *startup_source = "(let-values()(let-values()(call-expand-observe obs_28 'local-bind ids_25)))" "(void)))" "(values))))" -"(let-values(((phase_108)(expand-context-phase ctx_44)))" +"(let-values(((phase_109)(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_290) ids_25))" +"(let-values(((lst_288) ids_25))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_290)))" -"((letrec-values(((for-loop_175)" -"(lambda(fold-var_16 lst_184)" +"(let-values()(check-list lst_288)))" +"((letrec-values(((for-loop_177)" +"(lambda(fold-var_16 lst_186)" "(begin" " 'for-loop" -"(if(pair? lst_184)" -"(let-values(((id_69)(unsafe-car lst_184))" -"((rest_161)(unsafe-cdr lst_184)))" +"(if(pair? lst_186)" +"(let-values(((id_69)(unsafe-car lst_186))" +"((rest_162)(unsafe-cdr lst_186)))" "(let-values(((fold-var_231)" "(let-values(((fold-var_241)" " fold-var_16))" @@ -39934,12 +40225,12 @@ static const char *startup_source = " fold-var_241))))" "(values fold-var_242)))))" "(if(not #f)" -"(for-loop_175 fold-var_231 rest_161)" +"(for-loop_177 fold-var_231 rest_162)" " fold-var_231)))" " fold-var_16)))))" -" for-loop_175)" +" for-loop_177)" " null" -" lst_290))))))" +" lst_288))))))" "(let-values((()" "(begin" "(let-values(((obs_29)(expand-context-observer ctx_44)))" @@ -39950,18 +40241,18 @@ static const char *startup_source = "(values))))" "(let-values(((syms_21)" "(reverse$1" -"(let-values(((lst_291) intdef-ids_0))" +"(let-values(((lst_289) intdef-ids_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_291)))" -"((letrec-values(((for-loop_256)" -"(lambda(fold-var_243 lst_292)" +"(let-values()(check-list lst_289)))" +"((letrec-values(((for-loop_257)" +"(lambda(fold-var_243 lst_290)" "(begin" " 'for-loop" -"(if(pair? lst_292)" -"(let-values(((intdef-id_0)(unsafe-car lst_292))" -"((rest_162)(unsafe-cdr lst_292)))" +"(if(pair? lst_290)" +"(let-values(((intdef-id_0)(unsafe-car lst_290))" +"((rest_163)(unsafe-cdr lst_290)))" "(let-values(((fold-var_244)" "(let-values(((fold-var_245)" " fold-var_243))" @@ -39972,7 +40263,7 @@ static const char *startup_source = "(let-values(((intdef-id47_0)" " intdef-id_0)" "((phase48_1)" -" phase_108)" +" phase_109)" "((temp49_1)" "(root-expand-context-counter" " ctx_44))" @@ -39990,40 +40281,40 @@ static const char *startup_source = " fold-var_245))))" "(values fold-var_246)))))" "(if(not #f)" -"(for-loop_256 fold-var_244 rest_162)" +"(for-loop_257 fold-var_244 rest_163)" " fold-var_244)))" " fold-var_243)))))" -" for-loop_256)" +" for-loop_257)" " null" -" lst_291))))))" +" lst_289))))))" "(let-values(((vals_5)" -"(if s_404" +"(if s_410" "(let-values()" "(let-values(((input-s_0)" "(flip-introduction-scopes" -"(let-values(((s51_0) s_404)" +"(let-values(((s51_0) s_410)" "((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_101) syms_21))" +"(let-values(((lst_291) syms_21))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_101)))" +"(let-values()(check-list lst_291)))" "((letrec-values(((for-loop_6)" -"(lambda(env_7 lst_102)" +"(lambda(env_7 lst_169)" "(begin" " 'for-loop" -"(if(pair? lst_102)" +"(if(pair? lst_169)" "(let-values(((sym_64)" "(unsafe-car" -" lst_102))" -"((rest_48)" +" lst_169))" +"((rest_164)" "(unsafe-cdr" -" lst_102)))" +" lst_169)))" "(let-values(((env_8)" "(let-values(((env_9)" " env_7))" @@ -40036,12 +40327,14 @@ static const char *startup_source = "(values" " env_10)))))" "(if(not #f)" -"(for-loop_6 env_8 rest_48)" +"(for-loop_6" +" env_8" +" rest_164)" " env_8)))" " env_7)))))" " for-loop_6)" " intdef-env_0" -" lst_101)))))" +" lst_291)))))" "(let-values((()" "(begin" "(let-values(((obs_30)" @@ -40057,47 +40350,47 @@ static const char *startup_source = " input-s_0" " ids_25" "(let-values(((temp54_0)" -"(let-values(((v_190) ctx_44))" -"(let-values(((the-struct_68) v_190))" +"(let-values(((v_188) ctx_44))" +"(let-values(((the-struct_66) v_188))" "(if(expand-context/outer?" -" the-struct_68)" +" the-struct_66)" "(let-values(((env57_0) tmp-env_0)" "((inner58_0)" "(root-expand-context/outer-inner" -" v_190)))" +" v_188)))" "(expand-context/outer1.1" " inner58_0" "(root-expand-context/outer-post-expansion-scope" -" the-struct_68)" +" the-struct_66)" "(root-expand-context/outer-use-site-scopes" -" the-struct_68)" +" the-struct_66)" "(root-expand-context/outer-frame-id" -" the-struct_68)" +" the-struct_66)" "(expand-context/outer-context" -" the-struct_68)" +" the-struct_66)" " env57_0" "(expand-context/outer-post-expansion-scope-action" -" the-struct_68)" +" the-struct_66)" "(expand-context/outer-scopes" -" the-struct_68)" +" the-struct_66)" "(expand-context/outer-def-ctx-scopes" -" the-struct_68)" +" the-struct_66)" "(expand-context/outer-binding-layer" -" the-struct_68)" +" the-struct_66)" "(expand-context/outer-reference-records" -" the-struct_68)" +" the-struct_66)" "(expand-context/outer-only-immediate?" -" the-struct_68)" +" the-struct_66)" "(expand-context/outer-need-eventually-defined" -" the-struct_68)" +" the-struct_66)" "(expand-context/outer-current-introduction-scopes" -" the-struct_68)" +" the-struct_66)" "(expand-context/outer-name" -" the-struct_68)))" +" the-struct_66)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_68)))))" +" the-struct_66)))))" "((temp55_2) 'expression)" "((intdef56_0) intdef_0))" "(make-local-expand-context37.1" @@ -40121,94 +40414,94 @@ static const char *startup_source = " vals_6))))))" "(let-values()" "(reverse$1" -"(let-values(((lst_293) ids_25))" +"(let-values(((lst_292) ids_25))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_293)))" -"((letrec-values(((for-loop_257)" -"(lambda(fold-var_180 lst_294)" +"(let-values()(check-list lst_292)))" +"((letrec-values(((for-loop_258)" +"(lambda(fold-var_179 lst_293)" "(begin" " 'for-loop" -"(if(pair? lst_294)" -"(let-values(((id_70)(unsafe-car lst_294))" -"((rest_163)(unsafe-cdr lst_294)))" +"(if(pair? lst_293)" +"(let-values(((id_70)(unsafe-car lst_293))" +"((rest_165)(unsafe-cdr lst_293)))" "(let-values(((fold-var_247)" -"(let-values(((fold-var_91)" -" fold-var_180))" -"(let-values(((fold-var_92)" +"(let-values(((fold-var_248)" +" fold-var_179))" +"(let-values(((fold-var_249)" "(let-values()" "(cons" "(let-values()" " variable)" -" fold-var_91))))" -"(values fold-var_92)))))" +" fold-var_248))))" +"(values fold-var_249)))))" "(if(not #f)" -"(for-loop_257 fold-var_247 rest_163)" +"(for-loop_258 fold-var_247 rest_165)" " fold-var_247)))" -" fold-var_180)))))" -" for-loop_257)" +" fold-var_179)))))" +" for-loop_258)" " null" -" lst_293))))))))" +" lst_292))))))))" "(let-values(((env-mixins_0)(internal-definition-context-env-mixins intdef_0)))" "(begin" "(set-box!" " env-mixins_0" "(append" "(reverse$1" -"(let-values(((lst_295) intdef-ids_0)((lst_296) syms_21)((lst_297) vals_5))" +"(let-values(((lst_294) intdef-ids_0)((lst_295) syms_21)((lst_296) vals_5))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" +"(let-values()(check-list lst_294)))" +"(if(variable-reference-from-unsafe?(#%variable-reference))" +"(void)" "(let-values()(check-list lst_295)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_296)))" -"(if(variable-reference-from-unsafe?(#%variable-reference))" -"(void)" -"(let-values()(check-list lst_297)))" -"((letrec-values(((for-loop_75)" -"(lambda(fold-var_248 lst_298 lst_195 lst_299)" +"((letrec-values(((for-loop_79)" +"(lambda(fold-var_250 lst_297 lst_106 lst_298)" "(begin" " 'for-loop" -"(if(if(pair? lst_298)" -"(if(pair? lst_195)(pair? lst_299) #f)" +"(if(if(pair? lst_297)" +"(if(pair? lst_106)(pair? lst_298) #f)" " #f)" -"(let-values(((intdef-id_1)(unsafe-car lst_298))" -"((rest_164)(unsafe-cdr lst_298))" -"((sym_65)(unsafe-car lst_195))" -"((rest_100)(unsafe-cdr lst_195))" -"((val_14)(unsafe-car lst_299))" -"((rest_21)(unsafe-cdr lst_299)))" +"(let-values(((intdef-id_1)(unsafe-car lst_297))" +"((rest_166)(unsafe-cdr lst_297))" +"((sym_65)(unsafe-car lst_106))" +"((rest_100)(unsafe-cdr lst_106))" +"((val_26)(unsafe-car lst_298))" +"((rest_22)(unsafe-cdr lst_298)))" "(let-values(((fold-var_36)" "(let-values(((fold-var_37)" -" fold-var_248))" +" fold-var_250))" "(let-values(((fold-var_38)" "(let-values()" "(cons" "(let-values()" "(begin" "(maybe-install-free=id-in-context!" -" val_14" +" val_26" " intdef-id_1" -" phase_108" +" phase_109" " ctx_44)" "(env-mixin2.1" " intdef-id_1" " sym_65" -" val_14" +" val_26" "(make-weak-hasheq))))" " fold-var_37))))" "(values fold-var_38)))))" "(if(not #f)" -"(for-loop_75 fold-var_36 rest_164 rest_100 rest_21)" +"(for-loop_79 fold-var_36 rest_166 rest_100 rest_22)" " fold-var_36)))" -" fold-var_248)))))" -" for-loop_75)" +" fold-var_250)))))" +" for-loop_79)" " null" +" lst_294" " lst_295" -" lst_296" -" lst_297))))" +" lst_296))))" "(unbox env-mixins_0)))" "(let-values(((obs_32)(expand-context-observer ctx_44)))" "(if obs_32" @@ -40228,29 +40521,29 @@ static const char *startup_source = " \"internal-definition-context?\"" " intdef_1)))" "(reverse$1" -"(let-values(((lst_300)(unbox(internal-definition-context-env-mixins intdef_1))))" +"(let-values(((lst_299)(unbox(internal-definition-context-env-mixins intdef_1))))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_300)))" -"((letrec-values(((for-loop_258)" -"(lambda(fold-var_249 lst_230)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_299)))" +"((letrec-values(((for-loop_259)" +"(lambda(fold-var_251 lst_230)" "(begin" " 'for-loop" "(if(pair? lst_230)" "(let-values(((env-mixin_0)(unsafe-car lst_230))" -"((rest_165)(unsafe-cdr lst_230)))" -"(let-values(((fold-var_250)" -"(let-values(((fold-var_184) fold-var_249))" -"(let-values(((fold-var_251)" +"((rest_167)(unsafe-cdr lst_230)))" +"(let-values(((fold-var_252)" +"(let-values(((fold-var_184) fold-var_251))" +"(let-values(((fold-var_253)" "(let-values()" "(cons" "(let-values()(env-mixin-id env-mixin_0))" " fold-var_184))))" -"(values fold-var_251)))))" -"(if(not #f)(for-loop_258 fold-var_250 rest_165) fold-var_250)))" -" fold-var_249)))))" -" for-loop_258)" +"(values fold-var_253)))))" +"(if(not #f)(for-loop_259 fold-var_252 rest_167) fold-var_252)))" +" fold-var_251)))))" +" for-loop_259)" " null" -" lst_300))))))))" +" lst_299))))))))" "(define-values" "(1/internal-definition-context-introduce)" "(let-values(((internal-definition-context-introduce13_0)" @@ -40258,7 +40551,7 @@ static const char *startup_source = "(begin" " 'internal-definition-context-introduce13" "(let-values(((intdef_2) intdef11_0))" -"(let-values(((s_405) s12_1))" +"(let-values(((s_411) s12_1))" "(let-values(((mode_12)(if mode10_0 mode9_0 'flip)))" "(let-values()" "(begin" @@ -40269,11 +40562,11 @@ static const char *startup_source = " 'internal-definition-context-introduce" " \"internal-definition-context?\"" " intdef_2)))" -"(if(syntax?$1 s_405)" +"(if(syntax?$1 s_411)" "(void)" "(let-values()" -" (raise-argument-error 'internal-definition-context-introduce \"syntax?\" s_405)))" -"(let-values(((s59_0) s_405)" +" (raise-argument-error 'internal-definition-context-introduce \"syntax?\" s_411)))" +"(let-values(((s59_0) s_411)" "((intdef60_0) intdef_2)" "((temp61_1)" "(let-values(((tmp_32) mode_12))" @@ -40290,9 +40583,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_195)" -"(begin 'internal-definition-context-introduce(internal-definition-context-introduce13_0 intdef_3 s_195 #f #f)))" -"((intdef_4 s_196 mode9_1)(internal-definition-context-introduce13_0 intdef_4 s_196 mode9_1 #t)))))" +"((intdef_3 s_199)" +"(begin 'internal-definition-context-introduce(internal-definition-context-introduce13_0 intdef_3 s_199 #f #f)))" +"((intdef_4 s_200 mode9_1)(internal-definition-context-introduce13_0 intdef_4 s_200 mode9_1 #t)))))" "(define-values" "(1/internal-definition-context-seal)" "(lambda(intdef_5)" @@ -40313,22 +40606,22 @@ static const char *startup_source = "(if(identifier? id_71)" "(void)" " (let-values () (raise-argument-error 'identifier-remove-from-definition-context \"identifier?\" id_71)))" -"(if(let-values(((or-part_277)(1/internal-definition-context? intdef_6)))" -"(if or-part_277 or-part_277(if(list? intdef_6)(andmap2 1/internal-definition-context? intdef_6) #f)))" +"(if(let-values(((or-part_276)(1/internal-definition-context? intdef_6)))" +"(if or-part_276 or-part_276(if(list? intdef_6)(andmap2 1/internal-definition-context? intdef_6) #f)))" "(void)" "(let-values()" "(raise-argument-error" " 'identifier-remove-from-definition-context" " \"(or/c internal-definition-context? (listof internal-definition-context?))\"" " intdef_6)))" -"(let-values(((x_76)" +"(let-values(((x_74)" "(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_178)" "(lambda(id_17 a_46)" "(begin" " 'for-loop" @@ -40343,23 +40636,23 @@ static const char *startup_source = " id_73" " 'remove))))" "(values id_74)))))" -"(if(not #f)(for-loop_176 id_72(cdr a_46)) id_72)))" +"(if(not #f)(for-loop_178 id_72(cdr a_46)) id_72)))" " id_17)))))" -" for-loop_176)" +" for-loop_178)" " id_71" -" x_76)))))))" +" x_74)))))))" "(define-values" "(add-intdef-bindings)" "(lambda(env_11 intdefs_0)" "(begin" -"(let-values(((x_77)" +"(let-values(((x_75)" "(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_259)" +"((letrec-values(((for-loop_260)" "(lambda(env_12 a_48)" "(begin" " 'for-loop" @@ -40373,7 +40666,7 @@ static const char *startup_source = "(unbox" "(internal-definition-context-env-mixins" " intdef_8))))" -"((letrec-values(((loop_94)" +"((letrec-values(((loop_95)" "(lambda(env_16 env-mixins_2)" "(begin" " 'loop" @@ -40383,17 +40676,17 @@ static const char *startup_source = "(let-values(((env-mixin_1)" "(car" " env-mixins_2)))" -"(let-values(((or-part_278)" +"(let-values(((or-part_277)" "(hash-ref" "(env-mixin-cache" " env-mixin_1)" " env_16" " #f)))" -"(if or-part_278" -" or-part_278" +"(if or-part_277" +" or-part_277" "(let-values(((new-env_0)" "(env-extend" -"(loop_94" +"(loop_95" " env_16" "(cdr" " env-mixins_2))" @@ -40408,59 +40701,59 @@ static const char *startup_source = " env_16" " new-env_0)" " new-env_0)))))))))))" -" loop_94)" +" loop_95)" " env_14" " env-mixins_1)))))" "(values env_15)))))" -"(if(not #f)(for-loop_259 env_13(cdr a_48)) env_13)))" +"(if(not #f)(for-loop_260 env_13(cdr a_48)) env_13)))" " env_12)))))" -" for-loop_259)" +" for-loop_260)" " env_11" -" x_77))))))" +" x_75))))))" "(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_87) s19_0))" +"(let-values(((s_412) 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_78)" +"(let-values(((x_76)" "(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_260)" -"(lambda(s_389 a_50)" +"((letrec-values(((for-loop_180)" +"(lambda(s_397 a_50)" "(begin" " 'for-loop" "(if(pair? a_50)" "(let-values(((intdef_9)(car a_50)))" -"(let-values(((s_204)" -"(let-values(((s_89) s_389))" -"(if(let-values(((or-part_279) always?_0))" -"(if or-part_279" -" or-part_279" +"(let-values(((s_88)" +"(let-values(((s_208) s_397))" +"(if(let-values(((or-part_278) always?_0))" +"(if or-part_278" +" or-part_278" "(internal-definition-context-add-scope?" " intdef_9)))" -"(let-values(((s_406) s_89))" -"(let-values(((s_320)" +"(let-values(((s_413) s_208))" +"(let-values(((s_326)" "(let-values()" "(action_0" -" s_406" +" s_413" "(internal-definition-context-scope" " intdef_9)))))" -"(values s_320)))" -" s_89))))" -"(if(not #f)(for-loop_260 s_204(cdr a_50)) s_204)))" -" s_389)))))" -" for-loop_260)" -" s_87" -" x_78)))))))))))" +"(values s_326)))" +" s_208))))" +"(if(not #f)(for-loop_180 s_88(cdr a_50)) s_88)))" +" s_397)))))" +" for-loop_180)" +" s_412" +" x_76)))))))))))" "(define-values" "(make-local-expand-context37.1)" "(lambda(context24_0" @@ -40478,7 +40771,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_109)(if phase31_0 phase25_0(expand-context-phase ctx_45))))" +"(let-values(((phase_110)(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)))" @@ -40490,28 +40783,28 @@ static const char *startup_source = " or-part_133" "(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_109) #f)))" +"(if stop-ids_1(stop-ids->all-stop-ids stop-ids_1 phase_110) #f)))" "(let-values(((def-ctx-scopes_5)" "(if(expand-context-def-ctx-scopes ctx_45)" "(unbox(expand-context-def-ctx-scopes ctx_45))" " null)))" -"(let-values(((v_191) ctx_45))" -"(let-values(((the-struct_69) v_191))" -"(if(expand-context/outer? the-struct_69)" +"(let-values(((v_189) ctx_45))" +"(let-values(((the-struct_67) v_189))" +"(if(expand-context/outer? the-struct_67)" "(let-values(((context62_0) context_9)" "((env63_0)(add-intdef-bindings(expand-context-env ctx_45) intdefs_2))" "((use-site-scopes64_0)" -"(if(let-values(((or-part_280)(eq? context_9 'module)))" -"(if or-part_280" -" or-part_280" -"(let-values(((or-part_281)(eq? context_9 'module-begin)))" -"(if or-part_281 or-part_281(list? context_9)))))" -"(let-values(((or-part_282)" +"(if(let-values(((or-part_279)(eq? context_9 'module)))" +"(if or-part_279" +" or-part_279" +"(let-values(((or-part_280)(eq? context_9 'module-begin)))" +"(if or-part_280 or-part_280(list? context_9)))))" +"(let-values(((or-part_281)" "(root-expand-context-use-site-scopes ctx_45)))" -"(if or-part_282 or-part_282(box null)))" +"(if or-part_281 or-part_281(box null)))" " #f))" "((frame-id65_0)" -"(let-values(((x_79)" +"(let-values(((x_77)" "(let-values(((a_51) intdefs_2))" "(if(list? a_51)" "(let-values()(reverse$1 a_51))" @@ -40520,7 +40813,7 @@ static const char *startup_source = "(let-values()(list a_51)))))))" "(begin" " #t" -"((letrec-values(((for-loop_261)" +"((letrec-values(((for-loop_128)" "(lambda(frame-id_9 a_52)" "(begin" " 'for-loop" @@ -40552,12 +40845,12 @@ static const char *startup_source = " i-frame-id_0))))))))" "(values frame-id_12)))))" "(if(not #f)" -"(for-loop_261 frame-id_10(cdr a_52))" +"(for-loop_128 frame-id_10(cdr a_52))" " frame-id_10)))" " frame-id_9)))))" -" for-loop_261)" +" for-loop_128)" "(root-expand-context-frame-id ctx_45)" -" x_79))))" +" x_77))))" "((post-expansion-scope66_0)" "(if intdefs_2" "(new-scope 'macro)" @@ -40568,23 +40861,23 @@ static const char *startup_source = " #f)))" "((post-expansion-scope-action67_0)" "(if intdefs_2" -"(lambda(s_212 placeholder-sc_0)" +"(lambda(s_220 placeholder-sc_0)" "(begin" " 'post-expansion-scope-action67" -"(let-values(((s73_2) s_212)((intdefs74_0) intdefs_2))" +"(let-values(((s73_2) s_220)((intdefs74_0) intdefs_2))" "(add-intdef-scopes21.1 #f #f #f #f s73_2 intdefs74_0))))" "(expand-context-post-expansion-scope-action ctx_45)))" "((scopes68_0)(append def-ctx-scopes_5(expand-context-scopes ctx_45)))" "((only-immediate?69_0)(not stop-ids_1))" "((current-introduction-scopes70_0) null)" "((need-eventually-defined71_0)" -"(let-values(((ht_138)(expand-context-need-eventually-defined ctx_45)))" +"(let-values(((ht_140)(expand-context-need-eventually-defined ctx_45)))" "(if track-to-be-defined?_0" -"(let-values() ht_138)" -"(if ht_138(let-values()(make-hasheqv))(let-values() #f)))))" +"(let-values() ht_140)" +"(if ht_140(let-values()(make-hasheqv))(let-values() #f)))))" "((inner72_0)" -"(let-values(((the-struct_70)(root-expand-context/outer-inner v_191)))" -"(if(expand-context/inner? the-struct_70)" +"(let-values(((the-struct_68)(root-expand-context/outer-inner v_189)))" +"(if(expand-context/inner? the-struct_68)" "(let-values(((to-parsed?75_0)" "(if to-parsed-ok?_0" "(expand-context-to-parsed? ctx_45)" @@ -40593,40 +40886,40 @@ static const char *startup_source = "((in-local-expand?77_0) #t)" "((stops78_0)" "(free-id-set" -" phase_109" -"(let-values(((or-part_283) all-stop-ids_0))" -"(if or-part_283 or-part_283 null)))))" +" phase_110" +"(let-values(((or-part_282) all-stop-ids_0))" +"(if or-part_282 or-part_282 null)))))" "(expand-context/inner2.1" -"(root-expand-context/inner-self-mpi the-struct_70)" -"(root-expand-context/inner-module-scopes the-struct_70)" -"(root-expand-context/inner-top-level-bind-scope the-struct_70)" -"(root-expand-context/inner-all-scopes-stx the-struct_70)" -"(root-expand-context/inner-defined-syms the-struct_70)" -"(root-expand-context/inner-counter the-struct_70)" -"(root-expand-context/inner-lift-key the-struct_70)" +"(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)" " to-parsed?75_0" -"(expand-context/inner-phase the-struct_70)" -"(expand-context/inner-namespace the-struct_70)" +"(expand-context/inner-phase the-struct_68)" +"(expand-context/inner-namespace the-struct_68)" " just-once?76_0" -"(expand-context/inner-module-begin-k the-struct_70)" -"(expand-context/inner-allow-unbound? the-struct_70)" +"(expand-context/inner-module-begin-k the-struct_68)" +"(expand-context/inner-allow-unbound? the-struct_68)" " in-local-expand?77_0" " stops78_0" -"(expand-context/inner-declared-submodule-names the-struct_70)" -"(expand-context/inner-lifts the-struct_70)" -"(expand-context/inner-lift-envs the-struct_70)" -"(expand-context/inner-module-lifts the-struct_70)" -"(expand-context/inner-require-lifts the-struct_70)" -"(expand-context/inner-to-module-lifts the-struct_70)" -"(expand-context/inner-requires+provides the-struct_70)" -"(expand-context/inner-observer the-struct_70)" -"(expand-context/inner-for-serializable? the-struct_70)" +"(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_70)))" +" the-struct_68)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_70)))))" +" the-struct_68)))))" "(expand-context/outer1.1" " inner72_0" " post-expansion-scope66_0" @@ -40636,20 +40929,20 @@ static const char *startup_source = " env63_0" " post-expansion-scope-action67_0" " scopes68_0" -"(expand-context/outer-def-ctx-scopes the-struct_69)" -"(expand-context/outer-binding-layer the-struct_69)" -"(expand-context/outer-reference-records the-struct_69)" +"(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)" " only-immediate?69_0" " need-eventually-defined71_0" " current-introduction-scopes70_0" -"(expand-context/outer-name the-struct_69)))" +"(expand-context/outer-name the-struct_67)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_69))))))))))))))))))" +" the-struct_67))))))))))))))))))" "(define-values" "(flip-introduction-scopes)" -"(lambda(s_407 ctx_46)(begin(flip-scopes s_407(expand-context-current-introduction-scopes ctx_46)))))" +"(lambda(s_414 ctx_46)(begin(flip-scopes s_414(expand-context-current-introduction-scopes ctx_46)))))" "(define-values" "(1/syntax-transforming?)" "(lambda()" @@ -40688,19 +40981,19 @@ static const char *startup_source = "(expand-context-context ctx_50)))))" "(define-values" "(1/syntax-local-introduce)" -"(lambda(s_168)" +"(lambda(s_171)" "(begin" " 'syntax-local-introduce" "(let-values((()" "(begin" -"(if(syntax?$1 s_168)" +"(if(syntax?$1 s_171)" "(void)" -" (let-values () (raise-argument-error 'syntax-local-introduce \"syntax?\" s_168)))" +" (let-values () (raise-argument-error 'syntax-local-introduce \"syntax?\" s_171)))" "(values))))" "(let-values(((ctx_51)" "(let-values(((temp67_0) 'syntax-local-introduce))" "(get-current-expand-context17.1 #f #f temp67_0 #t))))" -"(flip-introduction-scopes s_168 ctx_51))))))" +"(flip-introduction-scopes s_171 ctx_51))))))" "(define-values" "(1/syntax-local-identifier-as-binding)" "(lambda(id_75)" @@ -40740,7 +41033,7 @@ static const char *startup_source = " 'make-syntax-introducer3" "(let-values(((as-use-site?_0)(if as-use-site?2_0 as-use-site?1_0 #f)))" "(let-values()" -"(let-values(((sc_28)(new-scope(if as-use-site?_0 'use-site 'macro))))" +"(let-values(((sc_32)(new-scope(if as-use-site?_0 'use-site 'macro))))" "(let-values(((core74_0)" "(lambda(s73_3 mode71_0 mode72_0)" "(begin" @@ -40755,11 +41048,11 @@ static const char *startup_source = " (raise-argument-error 'syntax-introducer \"syntax?\" s_7)))" "(let-values(((tmp_33) mode_13))" "(if(equal? tmp_33 'add)" -"(let-values()(add-scope s_7 sc_28))" +"(let-values()(add-scope s_7 sc_32))" "(if(equal? tmp_33 'remove)" -"(let-values()(remove-scope s_7 sc_28))" +"(let-values()(remove-scope s_7 sc_32))" "(if(equal? tmp_33 'flip)" -"(let-values()(flip-scope s_7 sc_28))" +"(let-values()(flip-scope s_7 sc_32))" "(let-values()" "(raise-argument-error" " 'syntax-introducer" @@ -40779,7 +41072,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_110)(if phase6_1 phase5_1(1/syntax-local-phase-level))))" +"(let-values(((phase_111)(if phase6_1 phase5_1(1/syntax-local-phase-level))))" "(let-values()" "(let-values((()" "(begin" @@ -40790,8 +41083,8 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(if(let-values(((or-part_284)(syntax?$1 base-s_0)))" -"(if or-part_284 or-part_284(not base-s_0)))" +"(if(let-values(((or-part_283)(syntax?$1 base-s_0)))" +"(if or-part_283 or-part_283(not base-s_0)))" "(void)" "(let-values()" "(raise-argument-error" @@ -40801,27 +41094,27 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(if(phase? phase_110)" +"(if(phase? phase_111)" "(void)" "(let-values()" "(raise-argument-error" " 'make-syntax-delta-introducer" " phase?-string" -" phase_110)))" +" phase_111)))" "(values))))" -"(let-values(((ext-scs_0)(syntax-scope-set ext-s_0 phase_110)))" +"(let-values(((ext-scs_0)(syntax-scope-set ext-s_0 phase_111)))" "(let-values(((base-scs_0)" "(syntax-scope-set" -"(let-values(((or-part_285) base-s_0))" -"(if or-part_285 or-part_285 empty-syntax))" -" phase_110)))" +"(let-values(((or-part_284) base-s_0))" +"(if or-part_284 or-part_284 empty-syntax))" +" phase_111)))" "(let-values(((use-base-scs_0)" "(if(subset? base-scs_0 ext-scs_0)" " base-scs_0" "(let-values(((or-part_22)" "(if(identifier? base-s_0)" "(let-values(((base-s76_0) base-s_0)" -"((phase77_0) phase_110)" +"((phase77_0) phase_111)" "((temp78_3) #t))" "(resolve40.1" " #f" @@ -40844,19 +41137,19 @@ static const char *startup_source = "(lambda(s81_0 mode79_0 mode80_0)" "(begin" " 'core82" -"(let-values(((s_408) s81_0))" +"(let-values(((s_415) s81_0))" "(let-values(((mode_14)(if mode80_0 mode79_0 'add)))" "(let-values()" "(maybe-taint_0" "(let-values(((tmp_34) mode_14))" "(if(equal? tmp_34 'add)" -"(let-values()(add-scopes s_408 delta-scs_0))" +"(let-values()(add-scopes s_415 delta-scs_0))" "(if(equal? tmp_34 'remove)" "(let-values()" -"(remove-scopes s_408 delta-scs_0))" +"(remove-scopes s_415 delta-scs_0))" "(if(equal? tmp_34 'flip)" "(let-values()" -"(flip-scopes s_408 delta-scs_0))" +"(flip-scopes s_415 delta-scs_0))" "(let-values()" "(raise-argument-error" " 'syntax-introducer" @@ -40900,9 +41193,9 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(if(let-values(((or-part_286)(not failure-thunk_0)))" -"(if or-part_286" -" or-part_286" +"(if(let-values(((or-part_285)(not failure-thunk_0)))" +"(if or-part_285" +" or-part_285" "(if(procedure? failure-thunk_0)" "(procedure-arity-includes? failure-thunk_0 0)" " #f)))" @@ -40915,8 +41208,8 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(if(let-values(((or-part_287)(not intdef_11)))" -"(if or-part_287 or-part_287(1/internal-definition-context? intdef_11)))" +"(if(let-values(((or-part_286)(not intdef_11)))" +"(if or-part_286 or-part_286(1/internal-definition-context? intdef_11)))" "(void)" "(let-values()" "(raise-argument-error" @@ -40930,8 +41223,8 @@ static const char *startup_source = "(let-values(((ctx_54)" "(if intdef_11" "(let-values(((v_48) current-ctx_0))" -"(let-values(((the-struct_71) v_48))" -"(if(expand-context/outer? the-struct_71)" +"(let-values(((the-struct_69) v_48))" +"(if(expand-context/outer? the-struct_69)" "(let-values(((env85_0)" "(add-intdef-bindings" "(expand-context-env current-ctx_0)" @@ -40939,24 +41232,24 @@ static const char *startup_source = "((inner86_0)(root-expand-context/outer-inner v_48)))" "(expand-context/outer1.1" " inner86_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)" +"(root-expand-context/outer-post-expansion-scope the-struct_69)" +"(root-expand-context/outer-use-site-scopes the-struct_69)" +"(root-expand-context/outer-frame-id the-struct_69)" +"(expand-context/outer-context the-struct_69)" " env85_0" -"(expand-context/outer-post-expansion-scope-action the-struct_71)" -"(expand-context/outer-scopes the-struct_71)" -"(expand-context/outer-def-ctx-scopes the-struct_71)" -"(expand-context/outer-binding-layer the-struct_71)" -"(expand-context/outer-reference-records the-struct_71)" -"(expand-context/outer-only-immediate? the-struct_71)" -"(expand-context/outer-need-eventually-defined the-struct_71)" -"(expand-context/outer-current-introduction-scopes the-struct_71)" -"(expand-context/outer-name the-struct_71)))" +"(expand-context/outer-post-expansion-scope-action the-struct_69)" +"(expand-context/outer-scopes the-struct_69)" +"(expand-context/outer-def-ctx-scopes the-struct_69)" +"(expand-context/outer-binding-layer the-struct_69)" +"(expand-context/outer-reference-records the-struct_69)" +"(expand-context/outer-only-immediate? the-struct_69)" +"(expand-context/outer-need-eventually-defined the-struct_69)" +"(expand-context/outer-current-introduction-scopes the-struct_69)" +"(expand-context/outer-name the-struct_69)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_71))))" +" the-struct_69))))" " current-ctx_0)))" "(let-values((()" "(begin" @@ -40966,15 +41259,15 @@ static const char *startup_source = "(let-values()(call-expand-observe obs_33 'local-value id_77)))" "(void)))" "(values))))" -"(let-values(((phase_111)(expand-context-phase ctx_54)))" -"((letrec-values(((loop_95)" +"(let-values(((phase_112)(expand-context-phase ctx_54)))" +"((letrec-values(((loop_96)" "(lambda(id_78)" "(begin" " 'loop" "(let-values(((b_12)" "(if immediate?_1" "(let-values(((id87_0) id_78)" -"((phase88_0) phase_111)" +"((phase88_0) phase_112)" "((temp89_2) #t))" "(resolve+shift30.1" " #f" @@ -40991,7 +41284,7 @@ static const char *startup_source = " phase88_0))" "(resolve+shift/extra-inspector" " id_78" -" phase_111" +" phase_112" "(expand-context-namespace ctx_54)))))" "(begin" "(let-values(((obs_34)(expand-context-observer ctx_54)))" @@ -41020,7 +41313,7 @@ static const char *startup_source = " \"unbound identifier: ~v\"" " id_78))))" "(let-values()" -"(let-values(((v_192 primitive?_7 insp_17 protected?_8)" +"(let-values(((v_190 primitive?_7 insp_17 protected?_8)" "(let-values(((b90_0) b_12)" "((ctx91_1) ctx_54)" "((id92_1) id_78)" @@ -41033,8 +41326,8 @@ static const char *startup_source = " b90_0" " ctx91_1" " id92_1))))" -"(if(let-values(((or-part_221)(variable? v_192)))" -"(if or-part_221 or-part_221(core-form? v_192)))" +"(if(let-values(((or-part_220)(variable? v_190)))" +"(if or-part_220 or-part_220(core-form? v_190)))" "(let-values()" "(begin" "(let-values(((obs_36)" @@ -41060,7 +41353,7 @@ static const char *startup_source = "(if obs_37" "(let-values()" "(if(not" -"(if(1/rename-transformer? v_192)" +"(if(1/rename-transformer? v_190)" "(not immediate?_1)" " #f))" "(let-values()" @@ -41070,18 +41363,18 @@ static const char *startup_source = " #t))" "(void)))" "(void)))" -"(if(1/rename-transformer? v_192)" +"(if(1/rename-transformer? v_190)" "(let-values()" "(if immediate?_1" "(values" -" v_192" -"(1/rename-transformer-target v_192))" -"(loop_95" -"(1/rename-transformer-target v_192))))" +" v_190" +"(1/rename-transformer-target v_190))" +"(loop_96" +"(1/rename-transformer-target v_190))))" "(if immediate?_1" -"(let-values()(values v_192 #f))" -"(let-values() v_192)))))))))))))))" -" loop_95)" +"(let-values()(values v_190 #f))" +"(let-values() v_190)))))))))))))))" +" loop_96)" "(flip-introduction-scopes id_77 ctx_54))))))))))))))))))" "(define-values" "(1/syntax-local-value)" @@ -41156,15 +41449,15 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-range start_9 end_6 inc_24)))" -"((letrec-values(((for-loop_262)" -"(lambda(fold-var_252 pos_105)" +"((letrec-values(((for-loop_261)" +"(lambda(fold-var_254 pos_105)" "(begin" " 'for-loop" "(if(< pos_105 end_6)" "(let-values()" "(let-values(((fold-var_187)" -"(let-values(((fold-var_253) fold-var_252))" -"(let-values(((fold-var_254)" +"(let-values(((fold-var_255) fold-var_254))" +"(let-values(((fold-var_256)" "(let-values()" "(cons" "(let-values()" @@ -41188,13 +41481,13 @@ static const char *startup_source = " name_23)" "(new-scope" " 'macro)))))" -" fold-var_253))))" -"(values fold-var_254)))))" +" fold-var_255))))" +"(values fold-var_256)))))" "(if(not #f)" -"(for-loop_262 fold-var_187(+ pos_105 inc_24))" +"(for-loop_261 fold-var_187(+ pos_105 inc_24))" " fold-var_187)))" -" fold-var_252)))))" -" for-loop_262)" +" fold-var_254)))))" +" for-loop_261)" " null" " start_9))))))" "(begin" @@ -41211,14 +41504,14 @@ static const char *startup_source = "(expand-context-phase ctx_55))))))))))))))" "(define-values" "(1/syntax-local-lift-expression)" -"(lambda(s_194)" -"(begin 'syntax-local-lift-expression(car(do-lift-values-expression 'syntax-local-lift-expression 1 s_194)))))" +"(lambda(s_198)" +"(begin 'syntax-local-lift-expression(car(do-lift-values-expression 'syntax-local-lift-expression 1 s_198)))))" "(define-values" "(1/syntax-local-lift-values-expression)" -"(lambda(n_29 s_409)" +"(lambda(n_29 s_416)" "(begin" " 'syntax-local-lift-values-expression" -"(do-lift-values-expression 'syntax-local-lift-values-expression n_29 s_409))))" +"(do-lift-values-expression 'syntax-local-lift-values-expression n_29 s_416))))" "(define-values" "(1/syntax-local-lift-context)" "(lambda()" @@ -41242,9 +41535,9 @@ static const char *startup_source = "(let-values(((ctx_57)" "(let-values(((temp106_1) 'syntax-local-lift-module))" "(get-current-expand-context17.1 #f #f temp106_1 #t))))" -"(let-values(((phase_112)(expand-context-phase ctx_57)))" +"(let-values(((phase_113)(expand-context-phase ctx_57)))" "(begin" -"(let-values(((tmp_35)(core-form-sym s_60 phase_112)))" +"(let-values(((tmp_35)(core-form-sym s_60 phase_113)))" "(if(if(equal? tmp_35 'module) #t(equal? tmp_35 'module*))" "(let-values()" "(let-values(((lifts_9)(expand-context-module-lifts ctx_57)))" @@ -41257,7 +41550,7 @@ static const char *startup_source = " \"not currently transforming within a module declaration or top level\"" " \"form to lift\"" " s_60)))" -"(add-lifted-module! lifts_9(flip-introduction-scopes s_60 ctx_57) phase_112))))" +"(add-lifted-module! lifts_9(flip-introduction-scopes s_60 ctx_57) phase_113))))" "(let-values()" " (raise-arguments-error 'syntax-local-lift-module \"not a module form\" \"given form\" s_60))))" "(let-values(((obs_39)(expand-context-observer ctx_57)))" @@ -41285,7 +41578,7 @@ static const char *startup_source = "(begin" " 'do-local-lift-to-module54" "(let-values(((who_17) who52_0))" -"(let-values(((s_396) s53_1))" +"(let-values(((s_404) 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)))" @@ -41295,21 +41588,21 @@ static const char *startup_source = "(let-values(((pre-wrap_0)" "(if pre-wrap49_0" " pre-wrap40_0" -"(lambda(s_410 phase_113 lift-ctx_1)(begin 'pre-wrap s_410)))))" +"(lambda(s_417 phase_114 lift-ctx_1)(begin 'pre-wrap s_417)))))" "(let-values(((shift-wrap_0)" "(if shift-wrap50_0" " shift-wrap41_0" -"(lambda(s_201 phase_114 lift-ctx_2)(begin 'shift-wrap s_201)))))" +"(lambda(s_205 phase_115 lift-ctx_2)(begin 'shift-wrap s_205)))))" "(let-values(((post-wrap_0)" "(if post-wrap51_0" " post-wrap42_0" -"(lambda(s_202 phase_115 lift-ctx_3)(begin 'post-wrap s_202)))))" +"(lambda(s_206 phase_116 lift-ctx_3)(begin 'post-wrap s_206)))))" "(let-values()" "(let-values((()" "(begin" -"(if(syntax?$1 s_396)" +"(if(syntax?$1 s_404)" "(void)" -" (let-values () (raise-argument-error who_17 \"syntax?\" s_396)))" +" (let-values () (raise-argument-error who_17 \"syntax?\" s_404)))" "(values))))" "(let-values((()(begin(more-checks_0)(values))))" "(let-values(((ctx_58)" @@ -41325,15 +41618,15 @@ static const char *startup_source = " who_17" " no-target-msg_0" " \"form to lift\"" -" s_396)))" +" s_404)))" "(values))))" -"(let-values(((phase_116)(expand-context-phase ctx_58)))" +"(let-values(((phase_117)(expand-context-phase ctx_58)))" "(let-values(((wrt-phase_1)(get-wrt-phase_0 lift-ctx_4)))" "(let-values(((added-s_0)" -"(if intro?_0(flip-introduction-scopes s_396 ctx_58) s_396)))" -"(let-values(((pre-s_0)(pre-wrap_0 added-s_0 phase_116 lift-ctx_4)))" +"(if intro?_0(flip-introduction-scopes s_404 ctx_58) s_404)))" +"(let-values(((pre-s_0)(pre-wrap_0 added-s_0 phase_117 lift-ctx_4)))" "(let-values(((shift-s_0)" -"(let-values(((start_40) phase_116)" +"(let-values(((start_40) phase_117)" "((end_30) wrt-phase_1)" "((inc_25) -1))" "(begin" @@ -41343,30 +41636,30 @@ static const char *startup_source = "(let-values()" "(check-range start_40 end_30 inc_25)))" "((letrec-values(((for-loop_34)" -"(lambda(s_147 pos_106)" +"(lambda(s_148 pos_106)" "(begin" " 'for-loop" "(if(> pos_106 end_30)" -"(let-values(((phase_117)" +"(let-values(((phase_118)" " pos_106))" -"(let-values(((s_411)" -"(let-values(((s_412)" -" s_147))" -"(let-values(((s_205)" +"(let-values(((s_418)" +"(let-values(((s_419)" +" s_148))" +"(let-values(((s_209)" "(let-values()" "(shift-wrap_0" -" s_412" +" s_419" "(sub1" -" phase_117)" +" phase_118)" " lift-ctx_4))))" "(values" -" s_205)))))" +" s_209)))))" "(if(not #f)" "(for-loop_34" -" s_411" +" s_418" "(+ pos_106 inc_25))" -" s_411)))" -" s_147)))))" +" s_418)))" +" s_148)))))" " for-loop_34)" " pre-s_0" " start_40)))))" @@ -41380,7 +41673,7 @@ static const char *startup_source = "(lambda(s_151 use-s_1)" "(begin" " 'syntax-local-lift-require" -"(let-values(((sc_29)(new-scope 'macro)))" +"(let-values(((sc_33)(new-scope 'macro)))" "(let-values(((ctx_32 added-s_1)" "(let-values(((temp108_0) 'syntax-local-lift-require)" "((temp109_0)(datum->syntax$1 #f s_151))" @@ -41396,10 +41689,10 @@ static const char *startup_source = "((require-lift-context-wrt-phase114_0) require-lift-context-wrt-phase)" "((add-lifted-require!115_0) add-lifted-require!)" "((temp116_0)" -"(lambda(s_152 phase_118 require-lift-ctx_0)(require-spec-shift-for-syntax s_152)))" +"(lambda(s_152 phase_119 require-lift-ctx_0)(require-spec-shift-for-syntax s_152)))" "((temp117_0)" -"(lambda(s_112 phase_119 require-lift-ctx_1)" -"(wrap-form '#%require(add-scope s_112 sc_29) phase_119))))" +"(lambda(s_305 phase_120 require-lift-ctx_1)" +"(wrap-form '#%require(add-scope s_305 sc_33) phase_120))))" "(do-local-lift-to-module54.1" " add-lifted-require!115_0" " expand-context-require-lifts113_0" @@ -41423,7 +41716,7 @@ static const char *startup_source = "(expand-context-namespace ctx_32)" "(expand-context-phase ctx_32))" "(values))))" -"(let-values(((result-s_6)(add-scope use-s_1 sc_29)))" +"(let-values(((result-s_6)(add-scope use-s_1 sc_33)))" "(begin" "(let-values(((obs_40)(expand-context-observer ctx_32)))" "(if obs_40" @@ -41433,21 +41726,21 @@ static const char *startup_source = " result-s_6))))))))" "(define-values" "(1/syntax-local-lift-provide)" -"(lambda(s_413)" +"(lambda(s_420)" "(begin" " 'syntax-local-lift-provide" "(let-values(((ctx_59 result-s_7)" "(let-values(((temp118_0) 'syntax-local-lift-provide)" -"((s119_0) s_413)" +"((s119_0) s_420)" " ((temp120_1) \"not expanding in a module run-time body\")" "((expand-context-to-module-lifts121_0) expand-context-to-module-lifts)" "((to-module-lift-context-wrt-phase122_0) to-module-lift-context-wrt-phase)" "((add-lifted-to-module-provide!123_0) add-lifted-to-module-provide!)" "((temp124_2)" -"(lambda(s_115 phase_120 to-module-lift-ctx_0)(wrap-form 'for-syntax s_115 #f)))" +"(lambda(s_112 phase_121 to-module-lift-ctx_0)(wrap-form 'for-syntax s_112 #f)))" "((temp125_0)" -"(lambda(s_219 phase_121 to-module-lift-ctx_1)" -"(wrap-form '#%provide s_219 phase_121))))" +"(lambda(s_225 phase_122 to-module-lift-ctx_1)" +"(wrap-form '#%provide s_225 phase_122))))" "(do-local-lift-to-module54.1" " add-lifted-to-module-provide!123_0" " expand-context-to-module-lifts121_0" @@ -41469,24 +41762,24 @@ static const char *startup_source = "(if obs_41(let-values()(let-values()(call-expand-observe obs_41 'lift-provide result-s_7)))(void)))))))" "(define-values" "(1/syntax-local-lift-module-end-declaration)" -"(lambda(s_117)" +"(lambda(s_421)" "(begin" " 'syntax-local-lift-module-end-declaration" "(let-values(((ctx_60 also-s_0)" "(let-values(((temp126_1) 'syntax-local-lift-module-end-declaration)" -"((s127_0) s_117)" +"((s127_0) s_421)" " ((temp128_1) \"not currently transforming an expression within a module declaration\")" "((expand-context-to-module-lifts129_0) expand-context-to-module-lifts)" "((temp130_1)(lambda(lift-ctx_5) 0))" "((add-lifted-to-module-end!131_0) add-lifted-to-module-end!)" "((temp132_0)" -"(lambda(orig-s_32 phase_122 to-module-lift-ctx_2)" +"(lambda(orig-s_32 phase_123 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_122)" +"(wrap-form '#%expression orig-s_32 phase_123)" " orig-s_32)))" "((temp133_0)" -"(lambda(s_414 phase_123 to-module-lift-ctx_3)" -"(wrap-form 'begin-for-syntax s_414 phase_123))))" +"(lambda(s_117 phase_124 to-module-lift-ctx_3)" +"(wrap-form 'begin-for-syntax s_117 phase_124))))" "(do-local-lift-to-module54.1" " add-lifted-to-module-end!131_0" " expand-context-to-module-lifts129_0" @@ -41505,14 +41798,14 @@ static const char *startup_source = " temp126_1" " s127_0))))" "(let-values(((obs_42)(expand-context-observer ctx_60)))" -"(if obs_42(let-values()(let-values()(call-expand-observe obs_42 'lift-statement s_117)))(void)))))))" +"(if obs_42(let-values()(let-values()(call-expand-observe obs_42 'lift-statement s_421)))(void)))))))" "(define-values" "(wrap-form)" -"(lambda(sym_66 s_415 phase_124)" +"(lambda(sym_66 s_422 phase_125)" "(begin" "(datum->syntax$1" " #f" -"(list(datum->syntax$1(if phase_124(syntax-shift-phase-level$1 core-stx phase_124) #f) sym_66) s_415)))))" +"(list(datum->syntax$1(if phase_125(syntax-shift-phase-level$1 core-stx phase_125) #f) sym_66) s_422)))))" "(define-values" "(1/syntax-local-module-defined-identifiers)" "(lambda()" @@ -41549,8 +41842,8 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(if(let-values(((or-part_288)(eq? phase-level_21 #t)))" -"(if or-part_288 or-part_288(phase? phase-level_21)))" +"(if(let-values(((or-part_110)(eq? phase-level_21 #t)))" +"(if or-part_110 or-part_110(phase? phase-level_21)))" "(void)" "(let-values()" "(raise-argument-error" @@ -41571,71 +41864,71 @@ static const char *startup_source = "(let-values(((temp135_0) 'syntax-local-module-required-identifiers))" "(get-current-expand-context17.1 #f #f temp135_0 #t))))" "(let-values(((requires+provides_5)(expand-context-requires+provides ctx_62)))" -"(let-values(((mpi_44)(if mod-path_8(module-path->mpi/context mod-path_8 ctx_62) #f)))" +"(let-values(((mpi_45)(if mod-path_8(module-path->mpi/context mod-path_8 ctx_62) #f)))" "(let-values(((requireds_0)" "(extract-all-module-requires" " requires+provides_5" -" mpi_44" +" mpi_45" "(if(eq? phase-level_21 #t) 'all phase-level_21))))" "(if requireds_0" "(reverse$1" -"(let-values(((ht_139)(requireds->phase-ht requireds_0)))" +"(let-values(((ht_141)(requireds->phase-ht requireds_0)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_139)))" -"((letrec-values(((for-loop_206)" +"(let-values()(check-in-hash ht_141)))" +"((letrec-values(((for-loop_207)" "(lambda(fold-var_196 i_6)" "(begin" " 'for-loop" "(if i_6" -"(let-values(((phase_125 ids_27)" -"(hash-iterate-key+value ht_139 i_6)))" +"(let-values(((phase_126 ids_27)" +"(hash-iterate-key+value ht_141 i_6)))" "(let-values(((fold-var_197)" "(let-values(((fold-var_198) fold-var_196))" "(let-values(((fold-var_199)" "(let-values()" "(cons" "(let-values()" -"(cons phase_125 ids_27))" +"(cons phase_126 ids_27))" " fold-var_198))))" "(values fold-var_199)))))" "(if(not #f)" -"(for-loop_206 fold-var_197(hash-iterate-next ht_139 i_6))" +"(for-loop_207 fold-var_197(hash-iterate-next ht_141 i_6))" " fold-var_197)))" " fold-var_196)))))" -" for-loop_206)" +" for-loop_207)" " null" -"(hash-iterate-first ht_139)))))" +"(hash-iterate-first ht_141)))))" " #f)))))))))))" "(define-values" "(requireds->phase-ht)" "(lambda(requireds_1)" "(begin" -"(let-values(((lst_301) requireds_1))" +"(let-values(((lst_300) requireds_1))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_301)))" -"((letrec-values(((for-loop_263)" -"(lambda(ht_140 lst_213)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_300)))" +"((letrec-values(((for-loop_262)" +"(lambda(ht_142 lst_213)" "(begin" " 'for-loop" "(if(pair? lst_213)" -"(let-values(((r_42)(unsafe-car lst_213))((rest_108)(unsafe-cdr lst_213)))" -"(let-values(((ht_141)" -"(let-values(((ht_142) ht_140))" +"(let-values(((r_41)(unsafe-car lst_213))((rest_108)(unsafe-cdr lst_213)))" "(let-values(((ht_143)" +"(let-values(((ht_144) ht_142))" +"(let-values(((ht_145)" "(let-values()" "(hash-update" -" ht_142" -"(required-phase r_42)" -"(lambda(l_68)(cons(required-id r_42) l_68))" +" ht_144" +"(required-phase r_41)" +"(lambda(l_68)(cons(required-id r_41) l_68))" " null))))" -"(values ht_143)))))" -"(if(not #f)(for-loop_263 ht_141 rest_108) ht_141)))" -" ht_140)))))" -" for-loop_263)" +"(values ht_145)))))" +"(if(not #f)(for-loop_262 ht_143 rest_108) ht_143)))" +" ht_142)))))" +" for-loop_262)" "(hasheqv)" -" lst_301))))))" +" lst_300))))))" "(define-values" "(1/syntax-local-module-exports)" "(lambda(mod-path_9)" @@ -41643,9 +41936,9 @@ static const char *startup_source = " 'syntax-local-module-exports" "(let-values((()" "(begin" -"(if(let-values(((or-part_289)(1/module-path? mod-path_9)))" -"(if or-part_289" -" or-part_289" +"(if(let-values(((or-part_287)(1/module-path? mod-path_9)))" +"(if or-part_287" +" or-part_287" "(if(syntax?$1 mod-path_9)(1/module-path?(syntax->datum$1 mod-path_9)) #f)))" "(void)" "(let-values()" @@ -41672,34 +41965,34 @@ static const char *startup_source = "(begin" "(if m_19(void)(let-values()(raise-unknown-module-error 'syntax-local-module-exports mod-name_18)))" "(reverse$1" -"(let-values(((ht_144)(module-provides m_19)))" +"(let-values(((ht_146)(module-provides m_19)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_144)))" -"((letrec-values(((for-loop_133)" -"(lambda(fold-var_255 i_115)" +"(let-values()(check-in-hash ht_146)))" +"((letrec-values(((for-loop_263)" +"(lambda(fold-var_257 i_168)" "(begin" " 'for-loop" -"(if i_115" -"(let-values(((phase_126 syms_22)(hash-iterate-key+value ht_144 i_115)))" -"(let-values(((fold-var_256)" -"(let-values(((fold-var_257) fold-var_255))" +"(if i_168" +"(let-values(((phase_127 syms_22)(hash-iterate-key+value ht_146 i_168)))" "(let-values(((fold-var_258)" +"(let-values(((fold-var_259) fold-var_257))" +"(let-values(((fold-var_260)" "(let-values()" "(cons" "(let-values()" "(cons" -" phase_126" +" phase_127" "(reverse$1" -"(let-values(((ht_145) syms_22))" +"(let-values(((ht_147) syms_22))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-in-hash-keys" -" ht_145)))" +" ht_147)))" "((letrec-values(((for-loop_264)" "(lambda(fold-var_207" " i_11)" @@ -41708,41 +42001,41 @@ static const char *startup_source = "(if i_11" "(let-values(((sym_67)" "(hash-iterate-key" -" ht_145" +" ht_147" " i_11)))" -"(let-values(((fold-var_259)" -"(let-values(((fold-var_260)" -" fold-var_207))" "(let-values(((fold-var_261)" +"(let-values(((fold-var_262)" +" fold-var_207))" +"(let-values(((fold-var_263)" "(let-values()" "(cons" "(let-values()" " sym_67)" -" fold-var_260))))" +" fold-var_262))))" "(values" -" fold-var_261)))))" +" fold-var_263)))))" "(if(not" " #f)" "(for-loop_264" -" fold-var_259" +" fold-var_261" "(hash-iterate-next" -" ht_145" +" ht_147" " i_11))" -" fold-var_259)))" +" fold-var_261)))" " fold-var_207)))))" " for-loop_264)" " null" "(hash-iterate-first" -" ht_145)))))))" -" fold-var_257))))" -"(values fold-var_258)))))" +" ht_147)))))))" +" fold-var_259))))" +"(values fold-var_260)))))" "(if(not #f)" -"(for-loop_133 fold-var_256(hash-iterate-next ht_144 i_115))" -" fold-var_256)))" -" fold-var_255)))))" -" for-loop_133)" +"(for-loop_263 fold-var_258(hash-iterate-next ht_146 i_168))" +" fold-var_258)))" +" fold-var_257)))))" +" for-loop_263)" " null" -"(hash-iterate-first ht_144))))))))))))))" +"(hash-iterate-first ht_146))))))))))))))" "(define-values" "(1/syntax-local-submodules)" "(lambda()" @@ -41753,35 +42046,35 @@ static const char *startup_source = "(get-current-expand-context17.1 #f #f temp137_0 #t))))" "(let-values(((submods_3)(expand-context-declared-submodule-names ctx_64)))" "(reverse$1" -"(let-values(((ht_146) submods_3))" +"(let-values(((ht_148) submods_3))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_146)))" +"(let-values()(check-in-hash ht_148)))" "((letrec-values(((for-loop_265)" -"(lambda(fold-var_262 i_168)" +"(lambda(fold-var_264 i_169)" "(begin" " 'for-loop" -"(if i_168" -"(let-values(((name_62 kind_8)(hash-iterate-key+value ht_146 i_168)))" -"(let-values(((fold-var_263)" -"(let-values(((fold-var_264) fold-var_262))" -"(if(eq? kind_8 'module)" -"(let-values(((fold-var_265) fold-var_264))" -"(let-values(((fold-var_266)" +"(if i_169" +"(let-values(((name_61 kind_7)(hash-iterate-key+value ht_148 i_169)))" +"(let-values(((fold-var_265)" +"(let-values(((fold-var_266) fold-var_264))" +"(if(eq? kind_7 'module)" +"(let-values(((fold-var_267) fold-var_266))" +"(let-values(((fold-var_268)" "(let-values()" "(cons" -"(let-values() name_62)" -" fold-var_265))))" -"(values fold-var_266)))" -" fold-var_264))))" +"(let-values() name_61)" +" fold-var_267))))" +"(values fold-var_268)))" +" fold-var_266))))" "(if(not #f)" -"(for-loop_265 fold-var_263(hash-iterate-next ht_146 i_168))" -" fold-var_263)))" -" fold-var_262)))))" +"(for-loop_265 fold-var_265(hash-iterate-next ht_148 i_169))" +" fold-var_265)))" +" fold-var_264)))))" " for-loop_265)" " null" -"(hash-iterate-first ht_146))))))))))" +"(hash-iterate-first ht_148))))))))))" "(define-values" "(1/syntax-local-get-shadower)" "(let-values(((syntax-local-get-shadower60_0)" @@ -41810,12 +42103,12 @@ static const char *startup_source = "(syntax-source-accessor)" "(lambda(who_0 srcloc-accessor_0)" "(begin" -"(lambda(s_154)" +"(lambda(s_155)" "(let-values((()" "(begin" -" (if (syntax?$1 s_154) (void) (let-values () (raise-argument-error who_0 \"syntax?\" s_154)))" +" (if (syntax?$1 s_155) (void) (let-values () (raise-argument-error who_0 \"syntax?\" s_155)))" "(values))))" -"(let-values(((srcloc_8)(syntax-srcloc s_154)))(if srcloc_8(srcloc-accessor_0 srcloc_8) #f)))))))" +"(let-values(((srcloc_8)(syntax-srcloc s_155)))(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))" @@ -41823,57 +42116,57 @@ static const char *startup_source = "(define-values(1/syntax-span)(syntax-source-accessor 'syntax-span srcloc-span))" "(define-values" "(encoded-srcloc?)" -"(lambda(v_65)" +"(lambda(v_64)" "(begin" -"(let-values(((or-part_26)(if(list? v_65)(if(=(length v_65) 5)(srcloc-vector?(list->vector v_65)) #f) #f)))" -"(if or-part_26 or-part_26(if(vector? v_65)(if(=(vector-length v_65) 5)(srcloc-vector? v_65) #f) #f))))))" +"(let-values(((or-part_26)(if(list? v_64)(if(=(length v_64) 5)(srcloc-vector?(list->vector v_64)) #f) #f)))" +"(if or-part_26 or-part_26(if(vector? v_64)(if(=(vector-length v_64) 5)(srcloc-vector? v_64) #f) #f))))))" "(define-values" "(srcloc-vector?)" -"(lambda(v_67)" +"(lambda(v_66)" "(begin" -"(if(let-values(((or-part_290)(not(vector-ref v_67 1))))" -"(if or-part_290 or-part_290(exact-positive-integer?(vector-ref v_67 1))))" -"(if(let-values(((or-part_27)(not(vector-ref v_67 2))))" -"(if or-part_27 or-part_27(exact-nonnegative-integer?(vector-ref v_67 2))))" -"(if(let-values(((or-part_10)(not(vector-ref v_67 3))))" -"(if or-part_10 or-part_10(exact-positive-integer?(vector-ref v_67 3))))" -"(let-values(((or-part_157)(not(vector-ref v_67 4))))" -"(if or-part_157 or-part_157(exact-nonnegative-integer?(vector-ref v_67 4))))" +"(if(let-values(((or-part_288)(not(vector-ref v_66 1))))" +"(if or-part_288 or-part_288(exact-positive-integer?(vector-ref v_66 1))))" +"(if(let-values(((or-part_27)(not(vector-ref v_66 2))))" +"(if or-part_27 or-part_27(exact-nonnegative-integer?(vector-ref v_66 2))))" +"(if(let-values(((or-part_10)(not(vector-ref v_66 3))))" +"(if or-part_10 or-part_10(exact-positive-integer?(vector-ref v_66 3))))" +"(let-values(((or-part_159)(not(vector-ref v_66 4))))" +"(if or-part_159 or-part_159(exact-nonnegative-integer?(vector-ref v_66 4))))" " #f)" " #f)" " #f))))" "(define-values" "(to-srcloc-stx)" -"(lambda(v_193)" +"(lambda(v_191)" "(begin" -"(if(srcloc? v_193)" +"(if(srcloc? v_191)" "(let-values()" -"(let-values(((the-struct_72) empty-syntax))" -"(if(syntax?$1 the-struct_72)" -"(let-values(((srcloc1_2) v_193))" +"(let-values(((the-struct_70) empty-syntax))" +"(if(syntax?$1 the-struct_70)" +"(let-values(((srcloc1_2) v_191))" "(syntax1.1" -"(syntax-content the-struct_72)" -"(syntax-scopes the-struct_72)" -"(syntax-shifted-multi-scopes the-struct_72)" -"(syntax-scope-propagations+tamper the-struct_72)" -"(syntax-mpi-shifts the-struct_72)" +"(syntax-content the-struct_70)" +"(syntax-scopes the-struct_70)" +"(syntax-shifted-multi-scopes the-struct_70)" +"(syntax-scope-propagations+tamper the-struct_70)" +"(syntax-mpi-shifts the-struct_70)" " srcloc1_2" -"(syntax-props the-struct_72)" -"(syntax-inspector the-struct_72)))" -" (raise-argument-error 'struct-copy \"syntax?\" the-struct_72))))" -"(if(pair? v_193)" -"(let-values()(to-srcloc-stx(list->vector v_193)))" -"(if(vector? v_193)" +"(syntax-props the-struct_70)" +"(syntax-inspector the-struct_70)))" +" (raise-argument-error 'struct-copy \"syntax?\" the-struct_70))))" +"(if(pair? v_191)" +"(let-values()(to-srcloc-stx(list->vector v_191)))" +"(if(vector? v_191)" "(let-values()" "(let-values(((the-struct_29) empty-syntax))" "(if(syntax?$1 the-struct_29)" "(let-values(((srcloc2_1)" "(srcloc" -"(vector-ref v_193 0)" -"(vector-ref v_193 1)" -"(vector-ref v_193 2)" -"(vector-ref v_193 3)" -"(vector-ref v_193 4))))" +"(vector-ref v_191 0)" +"(vector-ref v_191 1)" +"(vector-ref v_191 2)" +"(vector-ref v_191 3)" +"(vector-ref v_191 4))))" "(syntax1.1" "(syntax-content the-struct_29)" "(syntax-scopes the-struct_29)" @@ -41884,7 +42177,7 @@ static const char *startup_source = "(syntax-props the-struct_29)" "(syntax-inspector the-struct_29)))" " (raise-argument-error 'struct-copy \"syntax?\" the-struct_29))))" -"(let-values() v_193)))))))" +"(let-values() v_191)))))))" "(define-values" "(1/syntax-e)" "(lambda(s_0)" @@ -41895,13 +42188,13 @@ static const char *startup_source = "(syntax-e$1 s_0)))))" "(define-values" "(1/syntax->datum)" -"(lambda(s_153)" +"(lambda(s_154)" "(begin" " 'syntax->datum" "(begin" -" (if (syntax?$1 s_153) (void) (let-values () (raise-argument-error 'syntax->datum \"syntax?\" s_153)))" -"(syntax->datum$1 s_153)))))" -"(define-values(maybe-syntax->datum)(lambda(s_154)(begin(if(syntax?$1 s_154)(syntax->datum$1 s_154) s_154))))" +" (if (syntax?$1 s_154) (void) (let-values () (raise-argument-error 'syntax->datum \"syntax?\" s_154)))" +"(syntax->datum$1 s_154)))))" +"(define-values(maybe-syntax->datum)(lambda(s_155)(begin(if(syntax?$1 s_155)(syntax->datum$1 s_155) s_155))))" "(define-values" "(1/datum->syntax)" "(let-values(((datum->syntax9_0)" @@ -41909,7 +42202,7 @@ static const char *startup_source = "(begin" " 'datum->syntax9" "(let-values(((stx-c_4) stx-c7_0))" -"(let-values(((s_416) s8_0))" +"(let-values(((s_423) s8_0))" "(let-values(((stx-l_2)(if stx-l4_1 stx-l1_0 #f)))" "(let-values(((stx-p_1)(if stx-p5_1 stx-p2_0 #f)))" "(let-values()" @@ -41919,9 +42212,9 @@ static const char *startup_source = "(if or-part_6 or-part_6(syntax?$1 stx-c_4)))" "(void)" " (let-values () (raise-argument-error 'datum->syntax \"(or #f syntax?)\" stx-c_4)))" -"(if(let-values(((or-part_291)(not stx-l_2)))" -"(if or-part_291" -" or-part_291" +"(if(let-values(((or-part_289)(not stx-l_2)))" +"(if or-part_289" +" or-part_289" "(let-values(((or-part_28)(syntax?$1 stx-l_2)))" "(if or-part_28 or-part_28(encoded-srcloc? stx-l_2)))))" "(void)" @@ -41941,11 +42234,11 @@ 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_292)(not stx-p_1)))" -"(if or-part_292 or-part_292(syntax?$1 stx-p_1)))" +"(if(let-values(((or-part_290)(not stx-p_1)))" +"(if or-part_290 or-part_290(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_416(to-srcloc-stx stx-l_2) stx-p_1))))))))))))" +"(datum->syntax$1 stx-c_4 s_423(to-srcloc-stx stx-l_2) stx-p_1))))))))))))" "(case-lambda" "((stx-c_5 s_68)(begin 'datum->syntax(datum->syntax9_0 stx-c_5 s_68 #f #f #f #f #f #f)))" "((stx-c_6 s_4 stx-l_3 stx-p_2 ignored3_1)(datum->syntax9_0 stx-c_6 s_4 stx-l_3 stx-p_2 ignored3_1 #t #t #t))" @@ -41953,20 +42246,20 @@ static const char *startup_source = "((stx-c_8 s_41 stx-l1_1)(datum->syntax9_0 stx-c_8 s_41 stx-l1_1 #f #f #t #f #f)))))" "(define-values" "(1/syntax->list)" -"(lambda(s_417)" +"(lambda(s_424)" "(begin" " 'syntax->list" "(begin" -" (if (syntax?$1 s_417) (void) (let-values () (raise-argument-error 'syntax->list \"syntax?\" s_417)))" -"(syntax->list$1 s_417)))))" +" (if (syntax?$1 s_424) (void) (let-values () (raise-argument-error 'syntax->list \"syntax?\" s_424)))" +"(syntax->list$1 s_424)))))" "(define-values" "(1/syntax-original?)" -"(lambda(s_418)" +"(lambda(s_425)" "(begin" " 'syntax-original?" "(begin" -" (if (syntax?$1 s_418) (void) (let-values () (raise-argument-error 'syntax-original? \"syntax?\" s_418)))" -"(if(syntax-property$1 s_418 original-property-sym)(not(syntax-any-macro-scopes? s_418)) #f)))))" +" (if (syntax?$1 s_425) (void) (let-values () (raise-argument-error 'syntax-original? \"syntax?\" s_425)))" +"(if(syntax-property$1 s_425 original-property-sym)(not(syntax-any-macro-scopes? s_425)) #f)))))" "(define-values" "(1/bound-identifier=?)" "(let-values(((bound-identifier=?15_0)" @@ -41974,23 +42267,23 @@ static const char *startup_source = "(begin" " 'bound-identifier=?15" "(let-values(((a_53) a13_0))" -"(let-values(((b_77) b14_1))" -"(let-values(((phase_19)(if phase12_1 phase11_0(1/syntax-local-phase-level))))" +"(let-values(((b_76) b14_1))" +"(let-values(((phase_20)(if phase12_1 phase11_0(1/syntax-local-phase-level))))" "(let-values()" "(begin" "(if(identifier? a_53)" "(void)" " (let-values () (raise-argument-error 'bound-identifier=? \"identifier?\" a_53)))" -"(if(identifier? b_77)" +"(if(identifier? b_76)" "(void)" -" (let-values () (raise-argument-error 'bound-identifier=? \"identifier?\" b_77)))" -"(if(phase? phase_19)" +" (let-values () (raise-argument-error 'bound-identifier=? \"identifier?\" b_76)))" +"(if(phase? phase_20)" "(void)" -"(let-values()(raise-argument-error 'bound-identifier=? phase?-string phase_19)))" -"(bound-identifier=?$1 a_53 b_77 phase_19))))))))))" +"(let-values()(raise-argument-error 'bound-identifier=? phase?-string phase_20)))" +"(bound-identifier=?$1 a_53 b_76 phase_20))))))))))" "(case-lambda" "((a_54 b_48)(begin 'bound-identifier=?(bound-identifier=?15_0 a_54 b_48 #f #f)))" -"((a_55 b_78 phase11_1)(bound-identifier=?15_0 a_55 b_78 phase11_1 #t)))))" +"((a_55 b_77 phase11_1)(bound-identifier=?15_0 a_55 b_77 phase11_1 #t)))))" "(define-values" "(1/free-identifier=?)" "(let-values(((free-identifier=?23_0)" @@ -41998,7 +42291,7 @@ static const char *startup_source = "(begin" " 'free-identifier=?23" "(let-values(((a_56) a21_0))" -"(let-values(((b_79) b22_0))" +"(let-values(((b_78) 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()" @@ -42006,23 +42299,23 @@ static const char *startup_source = "(if(identifier? a_56)" "(void)" " (let-values () (raise-argument-error 'free-identifier=? \"identifier?\" a_56)))" -"(if(identifier? b_79)" +"(if(identifier? b_78)" "(void)" -" (let-values () (raise-argument-error 'free-identifier=? \"identifier?\" b_79)))" +" (let-values () (raise-argument-error 'free-identifier=? \"identifier?\" b_78)))" "(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_79 a-phase_1 b-phase_1)))))))))))" +"(free-identifier=?$1 a_56 b_78 a-phase_1 b-phase_1)))))))))))" "(case-lambda" "((a_57 b_43)(begin 'free-identifier=?(free-identifier=?23_0 a_57 b_43 #f #f #f #f)))" -"((a_58 b_80 a-phase_2 b-phase18_1)(free-identifier=?23_0 a_58 b_80 a-phase_2 b-phase18_1 #t #t))" -"((a_59 b_81 a-phase17_1)(free-identifier=?23_0 a_59 b_81 a-phase17_1 #f #t #f)))))" +"((a_58 b_79 a-phase_2 b-phase18_1)(free-identifier=?23_0 a_58 b_79 a-phase_2 b-phase18_1 #t #t))" +"((a_59 b_80 a-phase17_1)(free-identifier=?23_0 a_59 b_80 a-phase17_1 #f #t #f)))))" "(define-values" "(1/free-transformer-identifier=?)" -"(lambda(a_60 b_82)" +"(lambda(a_60 b_81)" "(begin" " 'free-transformer-identifier=?" "(let-values((()" @@ -42033,15 +42326,15 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(if(identifier? b_82)" +"(if(identifier? b_81)" "(void)" -" (let-values () (raise-argument-error 'free-transformer-identifier=? \"identifier?\" b_82)))" +" (let-values () (raise-argument-error 'free-transformer-identifier=? \"identifier?\" b_81)))" "(values))))" -"(let-values(((phase_127)(add1(1/syntax-local-phase-level))))" -"(free-identifier=?$1 a_60 b_82 phase_127 phase_127)))))))" +"(let-values(((phase_128)(add1(1/syntax-local-phase-level))))" +"(free-identifier=?$1 a_60 b_81 phase_128 phase_128)))))))" "(define-values" "(1/free-template-identifier=?)" -"(lambda(a_61 b_83)" +"(lambda(a_61 b_82)" "(begin" " 'free-template-identifier=?" "(let-values((()" @@ -42052,25 +42345,25 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(if(identifier? b_83)" +"(if(identifier? b_82)" "(void)" -" (let-values () (raise-argument-error 'free-template-identifier=? \"identifier?\" b_83)))" +" (let-values () (raise-argument-error 'free-template-identifier=? \"identifier?\" b_82)))" "(values))))" -"(let-values(((phase_128)(sub1(1/syntax-local-phase-level))))" -"(free-identifier=?$1 a_61 b_83 phase_128 phase_128)))))))" +"(let-values(((phase_129)(sub1(1/syntax-local-phase-level))))" +"(free-identifier=?$1 a_61 b_82 phase_129 phase_129)))))))" "(define-values" "(1/free-label-identifier=?)" -"(lambda(a_62 b_84)" +"(lambda(a_62 b_83)" "(begin" " 'free-label-identifier=?" "(begin" "(if(identifier? a_62)" "(void)" " (let-values () (raise-argument-error 'free-label-identifier=? \"identifier?\" a_62)))" -"(if(identifier? b_84)" +"(if(identifier? b_83)" "(void)" -" (let-values () (raise-argument-error 'free-label-identifier=? \"identifier?\" b_84)))" -"(free-identifier=?$1 a_62 b_84 #f #f)))))" +" (let-values () (raise-argument-error 'free-label-identifier=? \"identifier?\" b_83)))" +"(free-identifier=?$1 a_62 b_83 #f #f)))))" "(define-values" "(1/identifier-binding)" "(let-values(((identifier-binding30_0)" @@ -42078,20 +42371,20 @@ static const char *startup_source = "(begin" " 'identifier-binding30" "(let-values(((id_91) id29_1))" -"(let-values(((phase_85)(if phase27_0 phase25_1(1/syntax-local-phase-level))))" +"(let-values(((phase_86)(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()" "(begin" "(if(identifier? id_91)" "(void)" " (let-values () (raise-argument-error 'identifier-binding \"identifier?\" id_91)))" -"(if(phase? phase_85)" +"(if(phase? phase_86)" "(void)" -"(let-values()(raise-argument-error 'identifier-binding phase?-string phase_85)))" -"(identifier-binding$1 id_91 phase_85 top-level-symbol?_1))))))))))" +"(let-values()(raise-argument-error 'identifier-binding phase?-string phase_86)))" +"(identifier-binding$1 id_91 phase_86 top-level-symbol?_1))))))))))" "(case-lambda" "((id_92)(begin 'identifier-binding(identifier-binding30_0 id_92 #f #f #f #f)))" -"((id_93 phase_129 top-level-symbol?26_1)(identifier-binding30_0 id_93 phase_129 top-level-symbol?26_1 #t #t))" +"((id_93 phase_130 top-level-symbol?26_1)(identifier-binding30_0 id_93 phase_130 top-level-symbol?26_1 #t #t))" "((id_94 phase25_2)(identifier-binding30_0 id_94 phase25_2 #f #t #f)))))" "(define-values" "(1/identifier-transformer-binding)" @@ -42100,14 +42393,14 @@ static const char *startup_source = "(begin" " 'identifier-transformer-binding35" "(let-values(((id_95) id34_1))" -"(let-values(((phase_93)(if phase33_1 phase32_1(1/syntax-local-phase-level))))" +"(let-values(((phase_94)(if phase33_1 phase32_1(1/syntax-local-phase-level))))" "(let-values()" "(begin" "(if(identifier? id_95)" "(void)" "(let-values()" " (raise-argument-error 'identifier-transformer-binding \"identifier?\" id_95)))" -"(identifier-binding$1 id_95(if phase_93(add1 phase_93) #f))))))))))" +"(identifier-binding$1 id_95(if phase_94(add1 phase_94) #f))))))))))" "(case-lambda" "((id_96)(begin 'identifier-transformer-binding(identifier-transformer-binding35_0 id_96 #f #f)))" "((id_97 phase32_2)(identifier-transformer-binding35_0 id_97 phase32_2 #t)))))" @@ -42138,16 +42431,16 @@ static const char *startup_source = "(begin" " 'identifier-binding-symbol40" "(let-values(((id_99) id39_0))" -"(let-values(((phase_111)(if phase38_0 phase37_2(1/syntax-local-phase-level))))" +"(let-values(((phase_112)(if phase38_0 phase37_2(1/syntax-local-phase-level))))" "(let-values()" "(begin" "(if(identifier? id_99)" "(void)" " (let-values () (raise-argument-error 'identifier-binding-symbol \"identifier?\" id_99)))" -"(if(phase? phase_111)" +"(if(phase? phase_112)" "(void)" -"(let-values()(raise-argument-error 'identifier-binding-symbol phase?-string phase_111)))" -"(identifier-binding-symbol$1 id_99 phase_111)))))))))" +"(let-values()(raise-argument-error 'identifier-binding-symbol phase?-string phase_112)))" +"(identifier-binding-symbol$1 id_99 phase_112)))))))))" "(case-lambda" "((id_100)(begin 'identifier-binding-symbol(identifier-binding-symbol40_0 id_100 #f #f)))" "((id_101 phase37_3)(identifier-binding-symbol40_0 id_101 phase37_3 #t)))))" @@ -42179,33 +42472,33 @@ 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_305) s51_1))" +"(let-values(((s_310) s51_1))" "(let-values(((phase_1)(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()" "(begin" -"(if(syntax?$1 s_305)" +"(if(syntax?$1 s_310)" "(void)" -" (let-values () (raise-argument-error 'syntax-debug-info \"syntax?\" s_305)))" +" (let-values () (raise-argument-error 'syntax-debug-info \"syntax?\" s_310)))" "(if(phase? phase_1)" "(void)" "(let-values()(raise-argument-error 'syntax-debug-info phase?-string phase_1)))" -"(syntax-debug-info$1 s_305 phase_1 all-bindings?_1))))))))))" +"(syntax-debug-info$1 s_310 phase_1 all-bindings?_1))))))))))" "(case-lambda" -"((s_419)(begin 'syntax-debug-info(syntax-debug-info52_0 s_419 #f #f #f #f)))" -"((s_27 phase_130 all-bindings?48_1)(syntax-debug-info52_0 s_27 phase_130 all-bindings?48_1 #t #t))" +"((s_426)(begin 'syntax-debug-info(syntax-debug-info52_0 s_426 #f #f #f #f)))" +"((s_27 phase_131 all-bindings?48_1)(syntax-debug-info52_0 s_27 phase_131 all-bindings?48_1 #t #t))" "((s_30 phase47_3)(syntax-debug-info52_0 s_30 phase47_3 #f #t #f)))))" "(define-values" "(1/syntax-shift-phase-level)" -"(lambda(s_391 phase_34)" +"(lambda(s_399 phase_35)" "(begin" " 'syntax-shift-phase-level" "(begin" -" (if (syntax?$1 s_391) (void) (let-values () (raise-argument-error 'syntax-shift-phase-level \"syntax?\" s_391)))" -"(if(phase? phase_34)" +" (if (syntax?$1 s_399) (void) (let-values () (raise-argument-error 'syntax-shift-phase-level \"syntax?\" s_399)))" +"(if(phase? phase_35)" "(void)" -"(let-values()(raise-argument-error 'syntax-shift-phase-level phase?-string phase_34)))" -"(syntax-shift-phase-level$1 s_391 phase_34)))))" +"(let-values()(raise-argument-error 'syntax-shift-phase-level phase?-string phase_35)))" +"(syntax-shift-phase-level$1 s_399 phase_35)))))" "(define-values" "(1/syntax-track-origin)" "(lambda(new-stx_8 old-stx_4 id_103)" @@ -42229,17 +42522,17 @@ static const char *startup_source = "(void)" " (let-values () (raise-argument-error 'syntax-track-origin \"identifier?\" id_103)))" "(values))))" -"(let-values(((s_420)(syntax-track-origin$1 new-stx_8 old-stx_4 id_103)))" +"(let-values(((s_427)(syntax-track-origin$1 new-stx_8 old-stx_4 id_103)))" "(let-values(((ctx_66)(let-values(((temp54_1) #t))(get-current-expand-context17.1 temp54_1 #t #f #f))))" "(begin" "(if ctx_66" "(let-values()" "(let-values(((obs_43)(expand-context-observer ctx_66)))" "(if obs_43" -"(let-values()(let-values()(call-expand-observe obs_43 'track-origin new-stx_8 s_420)))" +"(let-values()(let-values()(call-expand-observe obs_43 'track-origin new-stx_8 s_427)))" "(void))))" "(void))" -" s_420)))))))))" +" s_427)))))))))" "(define-values" "(1/namespace-attach-module)" "(let-values(((namespace-attach-module5_0)" @@ -42332,17 +42625,17 @@ static const char *startup_source = "(void)" " (let-values () (raise-argument-error who_18 \"namespace?\" dest-namespace_2)))" "(values))))" -"(let-values(((phase_131)(namespace-phase src-namespace_6)))" +"(let-values(((phase_132)(namespace-phase src-namespace_6)))" "(let-values((()" "(begin" -"(if(eqv? phase_131(namespace-phase dest-namespace_2))" +"(if(eqv? phase_132(namespace-phase dest-namespace_2))" "(void)" "(let-values()" "(raise-arguments-error" " who_18" " \"source and destination namespace phases do not match\"" " \"source phase\"" -" phase_131" +" phase_132" " \"destination phase\"" "(namespace-phase dest-namespace_2))))" "(values))))" @@ -42351,8 +42644,8 @@ static const char *startup_source = "(let-values((()" "(begin" "((letrec-values(((loop_39)" -"(lambda(mpi_45" -" phase_132" +"(lambda(mpi_46" +" phase_133" " attach-instances?_1" " attach-phase_0)" "(begin" @@ -42368,10 +42661,10 @@ static const char *startup_source = " src-namespace_6)" "(let-values()" "(1/module-path-index-resolve" -" mpi_45)))))" +" mpi_46)))))" "(let-values(((attach-this-instance?_0)" "(if attach-instances?_1" -"(eqv? phase_132 attach-phase_0)" +"(eqv? phase_133 attach-phase_0)" " #f)))" "(let-values(((m-ns_12)" "(hash-ref" @@ -42379,12 +42672,12 @@ static const char *startup_source = " todo_0" " mod-name_19" " '#hasheqv())" -" phase_132" +" phase_133" " missing_0)))" -"(if(let-values(((or-part_168)" +"(if(let-values(((or-part_170)" "(eq? missing_0 m-ns_12)))" -"(if or-part_168" -" or-part_168" +"(if or-part_170" +" or-part_170" "(if attach-this-instance?_0" "(not m-ns_12)" " #f)))" @@ -42405,14 +42698,14 @@ static const char *startup_source = "(if(if(module-cross-phase-persistent?" " m_20)" "(if(not" -"(label-phase? phase_132))" +"(label-phase? phase_133))" "(not" -"(zero-phase? phase_132))" +"(zero-phase? phase_133))" " #f)" " #f)" "(let-values()" "(loop_39" -" mpi_45" +" mpi_46" " 0" " attach-instances?_1" " 0))" @@ -42439,10 +42732,10 @@ static const char *startup_source = "(values))))" "(let-values(((m-ns_13" " already?_0)" -"(if(let-values(((or-part_293)" +"(if(let-values(((or-part_291)" " attach-this-instance?_0))" -"(if or-part_293" -" or-part_293" +"(if or-part_291" +" or-part_291" "(module-cross-phase-persistent?" " m_20)))" "(let-values()" @@ -42452,7 +42745,7 @@ static const char *startup_source = "((mod-name33_0)" " mod-name_19)" "((phase34_1)" -" phase_132))" +" phase_133))" "(namespace->module-namespace82.1" " #f" " #f" @@ -42481,7 +42774,7 @@ static const char *startup_source = "((mod-name36_0)" " mod-name_19)" "((phase37_4)" -" phase_132))" +" phase_133))" "(namespace->module-namespace82.1" " #f" " #f" @@ -42520,14 +42813,14 @@ static const char *startup_source = "(let-values()" "(begin" "(if(if(label-phase?" -" phase_132)" +" phase_133)" "(not" "(let-values(((src-namespace38_0)" " src-namespace_6)" "((mod-name39_0)" " mod-name_19)" "((phase40_0)" -" phase_132))" +" phase_133))" "(namespace->module-namespace82.1" " #f" " #f" @@ -42552,9 +42845,9 @@ static const char *startup_source = "(let-values(((src-namespace41_0)" " src-namespace_6)" "((mpi42_0)" -" mpi_45)" +" mpi_46)" "((phase43_1)" -" phase_132))" +" phase_133))" "(namespace-module-instantiate!96.1" " #f" " #f" @@ -42577,10 +42870,10 @@ static const char *startup_source = "(hash-update!" " todo_0" " mod-name_19" -"(lambda(ht_25)" +"(lambda(ht_149)" "(hash-set" -" ht_25" -" phase_132" +" ht_149" +" phase_133" " m-ns_13))" " '#hasheqv())" "(if already?_0" @@ -42606,11 +42899,11 @@ static const char *startup_source = "(let-values(((phase+reqs_1)" "(unsafe-car" " lst_226))" -"((rest_166)" +"((rest_168)" "(unsafe-cdr" " lst_226)))" "(let-values((()" -"(let-values(((lst_176)" +"(let-values(((lst_178)" "(cdr" " phase+reqs_1)))" "(begin" @@ -42619,19 +42912,19 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_176)))" +" lst_178)))" "((letrec-values(((for-loop_29)" -"(lambda(lst_280)" +"(lambda(lst_278)" "(begin" " 'for-loop" "(if(pair?" -" lst_280)" +" lst_278)" "(let-values(((req_5)" "(unsafe-car" -" lst_280))" +" lst_278))" "((rest_153)" "(unsafe-cdr" -" lst_280)))" +" lst_278)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -42643,9 +42936,9 @@ static const char *startup_source = " req_5" "(module-self" " m_20)" -" mpi_45)" +" mpi_46)" "(phase+" -" phase_132" +" phase_133" "(car" " phase+reqs_1))" " attach-instances?_1" @@ -42659,17 +42952,17 @@ static const char *startup_source = "(values))))" "(values))))))" " for-loop_29)" -" lst_176)))))" +" lst_178)))))" "(if(not" " #f)" "(for-loop_17" -" rest_166)" +" rest_168)" "(values))))" "(values))))))" " for-loop_17)" " lst_21)))" "(void)" -"(let-values(((lst_302)" +"(let-values(((lst_301)" "(module-submodule-names" " m_20)))" "(begin" @@ -42678,19 +42971,19 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_302)))" +" lst_301)))" "((letrec-values(((for-loop_266)" -"(lambda(lst_303)" +"(lambda(lst_302)" "(begin" " 'for-loop" "(if(pair?" -" lst_303)" +" lst_302)" "(let-values(((submod-name_0)" "(unsafe-car" -" lst_303))" -"((rest_167)" +" lst_302))" +"((rest_169)" "(unsafe-cdr" -" lst_303)))" +" lst_302)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -42703,7 +42996,7 @@ static const char *startup_source = " 'submod" " \".\"" " submod-name_0)" -" mpi_45)" +" mpi_46)" " #f" " #f" " attach-phase_0))" @@ -42712,11 +43005,11 @@ static const char *startup_source = "(if(not" " #f)" "(for-loop_266" -" rest_167)" +" rest_169)" "(values))))" "(values))))))" " for-loop_266)" -" lst_302)))" +" lst_301)))" "(void)" "(if(module-supermodule-name" " m_20)" @@ -42725,7 +43018,7 @@ static const char *startup_source = "(1/module-path-index-join" " '(submod" " \"..\")" -" mpi_45)" +" mpi_46)" " #f" " #f" " attach-phase_0))" @@ -42737,28 +43030,28 @@ static const char *startup_source = "(resolved-module-path->module-path mod-path_15)" " mod-path_15)" " #f)" -" phase_131" +" phase_132" " attach-instances?_0" -" phase_131)" +" phase_132)" "(values))))" "(let-values((()" "(begin" -"(let-values(((ht_147) todo_0))" +"(let-values(((ht_150) todo_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_147)))" -"((letrec-values(((for-loop_105)" -"(lambda(i_169)" +"(let-values()(check-in-hash ht_150)))" +"((letrec-values(((for-loop_109)" +"(lambda(i_170)" "(begin" " 'for-loop" -"(if i_169" +"(if i_170" "(let-values(((mod-name_20 phases_0)" "(hash-iterate-key+value" -" ht_147" -" i_169)))" +" ht_150" +" i_170)))" "(let-values((()" -"(let-values(((ht_148)" +"(let-values(((ht_151)" " phases_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -42766,17 +43059,17 @@ static const char *startup_source = "(void)" "(let-values()" "(check-in-hash" -" ht_148)))" +" ht_151)))" "((letrec-values(((for-loop_267)" -"(lambda(i_101)" +"(lambda(i_171)" "(begin" " 'for-loop" -"(if i_101" -"(let-values(((phase_133" +"(if i_171" +"(let-values(((phase_134" " m-ns_15)" "(hash-iterate-key+value" -" ht_148" -" i_101)))" +" ht_151" +" i_171)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -42818,14 +43111,14 @@ static const char *startup_source = "(namespace-record-module-instance-attached!" " src-namespace_6" " mod-name_20" -" phase_133)" -"(let-values(((or-part_294)" +" phase_134)" +"(let-values(((or-part_292)" "(let-values(((dest-namespace47_0)" " dest-namespace_2)" "((mod-name48_0)" " mod-name_20)" "((phase49_2)" -" phase_133))" +" phase_134))" "(namespace->module-namespace82.1" " #f" " #f" @@ -42836,12 +43129,12 @@ static const char *startup_source = " dest-namespace47_0" " mod-name48_0" " phase49_2))))" -"(if or-part_294" -" or-part_294" +"(if or-part_292" +" or-part_292" "(namespace-install-module-namespace!" " dest-namespace_2" " mod-name_20" -" phase_133" +" phase_134" " m_21" " m-ns_15)))))" "(void)))))" @@ -42851,20 +43144,20 @@ static const char *startup_source = " #f)" "(for-loop_267" "(hash-iterate-next" -" ht_148" -" i_101))" +" ht_151" +" i_171))" "(values))))" "(values))))))" " for-loop_267)" "(hash-iterate-first" -" ht_148))))))" +" ht_151))))))" "(if(not #f)" -"(for-loop_105" -"(hash-iterate-next ht_147 i_169))" +"(for-loop_109" +"(hash-iterate-next ht_150 i_170))" "(values))))" "(values))))))" -" for-loop_105)" -"(hash-iterate-first ht_147))))" +" for-loop_109)" +"(hash-iterate-first ht_150))))" "(values))))" "(let-values()" "(let-values(((mnr_0)(1/current-module-name-resolver)))" @@ -42876,18 +43169,18 @@ static const char *startup_source = " dest-namespace_2)" "(let-values()" "(begin" -"(let-values(((ht_149) todo_0))" +"(let-values(((ht_51) todo_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash-keys ht_149)))" -"((letrec-values(((for-loop_175)" -"(lambda(i_102)" +"(let-values()(check-in-hash-keys ht_51)))" +"((letrec-values(((for-loop_177)" +"(lambda(i_172)" "(begin" " 'for-loop" -"(if i_102" +"(if i_172" "(let-values(((mod-name_21)" -"(hash-iterate-key ht_149 i_102)))" +"(hash-iterate-key ht_51 i_172)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -42900,12 +43193,12 @@ static const char *startup_source = "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_175" -"(hash-iterate-next ht_149 i_102))" +"(for-loop_177" +"(hash-iterate-next ht_51 i_172))" "(values))))" "(values))))))" -" for-loop_175)" -"(hash-iterate-first ht_149))))" +" for-loop_177)" +"(hash-iterate-first ht_51))))" "(void))))))))))))))))))))))))" "(define-values" "(1/make-empty-namespace)" @@ -42913,8 +43206,8 @@ static const char *startup_source = "(begin" " 'make-empty-namespace" "(let-values(((current-ns_0)(1/current-namespace)))" -"(let-values(((phase_42)(namespace-phase current-ns_0)))" -"(let-values(((ns_59)(namespace->namespace-at-phase(make-namespace) phase_42)))" +"(let-values(((phase_43)(namespace-phase current-ns_0)))" +"(let-values(((ns_59)(namespace->namespace-at-phase(make-namespace) phase_43)))" "(begin" "(1/namespace-attach-module current-ns_0 ''#%kernel ns_59)" "(namespace-primitive-module-visit! ns_59 '#%kernel)" @@ -42946,28 +43239,28 @@ static const char *startup_source = "(let-values(((post-scope_1)(root-expand-context-post-expansion-scope root-ctx_5)))" "(let-values(((other-namespace-scopes_0)" "(reverse$1" -"(let-values(((ht_81)" +"(let-values(((ht_84)" "(syntax-scope-set" "(root-expand-context-all-scopes-stx root-ctx_5)" "(namespace-phase ns_60))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-immutable-hash-keys ht_81)))" -"((letrec-values(((for-loop_255)" -"(lambda(fold-var_240 i_170)" +"(let-values()(check-in-immutable-hash-keys ht_84)))" +"((letrec-values(((for-loop_256)" +"(lambda(fold-var_240 i_173)" "(begin" " 'for-loop" -"(if i_170" -"(let-values(((sc_30)" +"(if i_173" +"(let-values(((sc_34)" "(unsafe-immutable-hash-iterate-key" -" ht_81" -" i_170)))" +" ht_84" +" i_173)))" "(let-values(((fold-var_217)" "(let-values(((fold-var_218)" " fold-var_240))" "(if(equal?" -" sc_30" +" sc_34" " post-scope_1)" " fold-var_218" "(let-values(((fold-var_30)" @@ -42976,37 +43269,37 @@ static const char *startup_source = "(let-values()" "(cons" "(let-values()" -" sc_30)" +" sc_34)" " fold-var_30))))" "(values" " fold-var_219)))))))" "(if(not #f)" -"(for-loop_255" +"(for-loop_256" " fold-var_217" "(unsafe-immutable-hash-iterate-next" -" ht_81" -" i_170))" +" ht_84" +" i_173))" " fold-var_217)))" " fold-var_240)))))" -" for-loop_255)" +" for-loop_256)" " null" -"(unsafe-immutable-hash-iterate-first ht_81)))))))" +"(unsafe-immutable-hash-iterate-first ht_84)))))))" "(let-values(((add-ns-scopes_0)" -"(lambda(s_168)" +"(lambda(s_171)" "(begin" " 'add-ns-scopes" "(let-values(((temp78_4)" "(add-scopes" -"(push-scope s_168 post-scope_1)" +"(push-scope s_171 post-scope_1)" " other-namespace-scopes_0))" "((temp79_1)" "(root-expand-context-all-scopes-stx root-ctx_5))" "((temp80_2)" -"(let-values(((or-part_74)" +"(let-values(((or-part_72)" "(namespace-declaration-inspector" " ns_60)))" -"(if or-part_74" -" or-part_74" +"(if or-part_72" +" or-part_72" "(current-code-inspector))))" "((temp81_0) #t))" "(syntax-transfer-shifts39.1" @@ -43036,8 +43329,8 @@ static const char *startup_source = " s_3))" "(let-values()(add-ns-scopes_0 s_3)))))))))))))))))" "(case-lambda" -"((s_421)(begin 'namespace-syntax-introduce(namespace-syntax-introduce4_0 s_421 #f #f)))" -"((s_422 ns1_2)(namespace-syntax-introduce4_0 s_422 ns1_2 #t)))))" +"((s_428)(begin 'namespace-syntax-introduce(namespace-syntax-introduce4_0 s_428 #f #f)))" +"((s_429 ns1_2)(namespace-syntax-introduce4_0 s_429 ns1_2 #t)))))" "(define-values" "(1/namespace-module-identifier)" "(let-values(((namespace-module-identifier8_0)" @@ -43047,8 +43340,8 @@ static const char *startup_source = "(let-values(((where_0)(if where7_0 where6_0(1/current-namespace))))" "(let-values()" "(begin" -"(if(let-values(((or-part_71)(1/namespace? where_0)))" -"(if or-part_71 or-part_71(phase? where_0)))" +"(if(let-values(((or-part_70)(1/namespace? where_0)))" +"(if or-part_70 or-part_70(phase? where_0)))" "(void)" "(let-values()" "(raise-argument-error" @@ -43112,8 +43405,8 @@ static const char *startup_source = "(add-scopes" " empty-syntax" "(root-expand-context-module-scopes(namespace-get-root-expand-ctx ns_76)))))" -"(if(let-values(((or-part_168)(1/module-path-index? req_6)))" -"(if or-part_168 or-part_168(1/module-path? req_6)))" +"(if(let-values(((or-part_170)(1/module-path-index? req_6)))" +"(if or-part_170 or-part_170(1/module-path? req_6)))" "(let-values()" "(let-values(((temp82_1)" "(if(1/module-path-index? req_6)" @@ -43342,25 +43635,25 @@ static const char *startup_source = "(if use-mapping?_0" "(let-values()" "(let-values(((id_104)(1/datum->syntax #f sym_69)))" -"(let-values(((b_85)" +"(let-values(((b_84)" "(resolve+shift/extra-inspector" "(1/namespace-syntax-introduce id_104 ns_81)" "(namespace-phase ns_81)" " ns_81)))" "(let-values((()" "(begin" -"(if b_85" +"(if b_84" "(let-values()" "(namespace-visit-available-modules!" " ns_81))" "(void))" "(values))))" -"(let-values(((v_194" +"(let-values(((v_192" " primitive?_8" " extra-inspector_8" " protected?_9)" -"(if b_85" -"(let-values(((b123_0) b_85)" +"(if b_84" +"(let-values(((b123_0) b_84)" "((empty-env124_0) empty-env)" "((null125_0) null)" "((ns126_0) ns_81)" @@ -43380,13 +43673,13 @@ static const char *startup_source = " id128_0))" "(values variable #f #f #f))))" "(begin" -"(if(variable? v_194)" +"(if(variable? v_192)" "(void)" "(let-values()" "(escape_0" -"(let-values(((or-part_295) failure-thunk_5))" -"(if or-part_295" -" or-part_295" +"(let-values(((or-part_293) failure-thunk_5))" +"(if or-part_293" +" or-part_293" "(lambda()" "(raise" "(make-exn:fail:syntax$1" @@ -43397,31 +43690,31 @@ static const char *startup_source = " sym_69)" "(current-continuation-marks)" " null))))))))" -"(if(module-binding? b_85)" +"(if(module-binding? b_84)" "(values" "(if(top-level-module-path-index?" -"(module-binding-module b_85))" +"(module-binding-module b_84))" " ns_81" "(module-instance-namespace" "(binding->module-instance" -" b_85" +" b_84" " ns_81" "(namespace-phase ns_81)" " id_104)))" -"(module-binding-phase b_85)" -"(module-binding-sym b_85))" +"(module-binding-phase b_84)" +"(module-binding-sym b_84))" "(values ns_81(namespace-phase ns_81) sym_69))))))))" "(let-values()(values ns_81(namespace-phase ns_81) sym_69)))))" -"(let-values(((val_68)" +"(let-values(((val_69)" "(namespace-get-variable" " var-ns_0" " var-phase-level_0" " var-sym_6" "(lambda()" "(escape_0" -"(let-values(((or-part_296) failure-thunk_5))" -"(if or-part_296" -" or-part_296" +"(let-values(((or-part_294) failure-thunk_5))" +"(if or-part_294" +" or-part_294" "(raise" "(exn:fail:contract:variable" "(format" @@ -43431,7 +43724,7 @@ static const char *startup_source = " sym_69)" "(current-continuation-marks)" " sym_69)))))))))" -"(lambda() val_68))))))))))))))))" +"(lambda() val_69))))))))))))))))" "(case-lambda" "((sym_70)(begin 'namespace-variable-value(namespace-variable-value53_0 sym_70 #f #f #f #f #f #f)))" "((sym_71 use-mapping?_1 failure-thunk_6 ns48_1)" @@ -43446,7 +43739,7 @@ static const char *startup_source = "(begin" " 'namespace-set-variable-value!63" "(let-values(((sym_74) sym61_0))" -"(let-values(((val_69) val62_0))" +"(let-values(((val_70) val62_0))" "(let-values(((map?_0)(if map?58_0 map?55_0 #f)))" "(let-values(((ns_82)(if ns59_0 ns56_0(1/current-namespace))))" "(let-values(((as-constant?_2)(if as-constant?60_0 as-constant?57_0 #f)))" @@ -43458,7 +43751,7 @@ static const char *startup_source = "(if(1/namespace? ns_82)" "(void)" " (let-values () (raise-argument-error 'namespace-variable-value \"namespace?\" ns_82)))" -"(namespace-set-variable! ns_82(namespace-phase ns_82) sym_74 val_69 as-constant?_2)" +"(namespace-set-variable! ns_82(namespace-phase ns_82) sym_74 val_70 as-constant?_2)" "(if map?_0" "(let-values()" "(let-values((()" @@ -43500,12 +43793,12 @@ static const char *startup_source = "(add-binding!17.1 #f #f #f #f temp129_2 temp130_2 temp131_0)))))" "(void)))))))))))))" "(case-lambda" -"((sym_75 val_70)" -"(begin 'namespace-set-variable-value!(namespace-set-variable-value!63_0 sym_75 val_70 #f #f #f #f #f #f)))" -"((sym_76 val_49 map?_1 ns_83 as-constant?57_1)" -"(namespace-set-variable-value!63_0 sym_76 val_49 map?_1 ns_83 as-constant?57_1 #t #t #t))" -"((sym_77 val_71 map?_2 ns56_1)(namespace-set-variable-value!63_0 sym_77 val_71 map?_2 ns56_1 #f #t #t #f))" -"((sym_78 val_72 map?55_1)(namespace-set-variable-value!63_0 sym_78 val_72 map?55_1 #f #f #t #f #f)))))" +"((sym_75 val_71)" +"(begin 'namespace-set-variable-value!(namespace-set-variable-value!63_0 sym_75 val_71 #f #f #f #f #f #f)))" +"((sym_76 val_50 map?_1 ns_83 as-constant?57_1)" +"(namespace-set-variable-value!63_0 sym_76 val_50 map?_1 ns_83 as-constant?57_1 #t #t #t))" +"((sym_77 val_72 map?_2 ns56_1)(namespace-set-variable-value!63_0 sym_77 val_72 map?_2 ns56_1 #f #t #t #f))" +"((sym_78 val_73 map?55_1)(namespace-set-variable-value!63_0 sym_78 val_73 map?55_1 #f #f #t #f #f)))))" "(define-values" "(1/namespace-undefine-variable!)" "(let-values(((namespace-undefine-variable!68_0)" @@ -43569,33 +43862,33 @@ static const char *startup_source = "(lambda(s5_2 ns1_4 compile2_0 ns3_0 compile4_0)" "(begin" " 'eval6" -"(let-values(((s_143) s5_2))" +"(let-values(((s_144) s5_2))" "(let-values(((ns_43)(if ns3_0 ns1_4(1/current-namespace))))" "(let-values(((compile_1)" "(if compile4_0" " compile2_0" -"(lambda(s_423 ns_87)(begin 'compile(1/compile s_423 ns_87 #f))))))" +"(lambda(s_430 ns_87)(begin 'compile(1/compile s_430 ns_87 #f))))))" "(let-values()" -"(if(let-values(((or-part_297)(compiled-in-memory? s_143)))" +"(if(let-values(((or-part_295)(compiled-in-memory? s_144)))" +"(if or-part_295" +" or-part_295" +"(let-values(((or-part_296)(1/linklet-directory? s_144)))" +"(if or-part_296 or-part_296(1/linklet-bundle? s_144)))))" +"(let-values()(eval-compiled s_144 ns_43))" +"(if(if(syntax?$1 s_144)" +"(let-values(((or-part_297)(compiled-in-memory?(1/syntax-e s_144))))" "(if or-part_297" " or-part_297" -"(let-values(((or-part_298)(1/linklet-directory? s_143)))" -"(if or-part_298 or-part_298(1/linklet-bundle? s_143)))))" -"(let-values()(eval-compiled s_143 ns_43))" -"(if(if(syntax?$1 s_143)" -"(let-values(((or-part_299)(compiled-in-memory?(1/syntax-e s_143))))" -"(if or-part_299" -" or-part_299" -"(let-values(((or-part_300)(1/linklet-directory?(1/syntax-e s_143))))" -"(if or-part_300 or-part_300(1/linklet-bundle?(1/syntax-e s_143))))))" +"(let-values(((or-part_298)(1/linklet-directory?(1/syntax-e s_144))))" +"(if or-part_298 or-part_298(1/linklet-bundle?(1/syntax-e s_144))))))" " #f)" -"(let-values()(eval-compiled(1/syntax->datum s_143) ns_43))" +"(let-values()(eval-compiled(1/syntax->datum s_144) ns_43))" "(let-values()" -"(let-values(((s80_0) s_143)" +"(let-values(((s80_0) s_144)" "((ns81_0) ns_43)" "((temp82_2)" -"(lambda(s_421 ns_88 tail?_1)" -"(eval-compiled(compile_1 s_421 ns_88) ns_88 tail?_1)))" +"(lambda(s_428 ns_88 tail?_1)" +"(eval-compiled(compile_1 s_428 ns_88) ns_88 tail?_1)))" "((temp83_2) #f))" "(per-top-level68.1" " #f" @@ -43614,8 +43907,8 @@ static const char *startup_source = " ns81_0)))))))))))))" "(case-lambda" "((s_41)(begin 'eval(eval6_0 s_41 #f #f #f #f)))" -"((s_170 ns_53 compile2_1)(eval6_0 s_170 ns_53 compile2_1 #t #t))" -"((s_158 ns1_5)(eval6_0 s_158 ns1_5 #f #t #f)))))" +"((s_173 ns_53 compile2_1)(eval6_0 s_173 ns_53 compile2_1 #t #t))" +"((s_160 ns1_5)(eval6_0 s_160 ns1_5 #f #t #f)))))" "(define-values" "(eval-compiled)" "(let-values(((eval-compiled12_0)" @@ -43648,21 +43941,21 @@ static const char *startup_source = " to-source?21_1)" "(begin" " 'compile23" -"(let-values(((s_175) s22_0))" +"(let-values(((s_178) 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_175)" -"(let-values()(list s_175))" -"(if(if(syntax?$1 s_175)" -"(1/compiled-expression?(1/syntax-e s_175))" +"(if(1/compiled-expression? s_178)" +"(let-values()(list s_178))" +"(if(if(syntax?$1 s_178)" +"(1/compiled-expression?(1/syntax-e s_178))" " #f)" -"(let-values()(list(1/syntax-e s_175)))" +"(let-values()(list(1/syntax-e s_178)))" "(let-values()" -"(let-values(((s86_0) s_175)" +"(let-values(((s86_0) s_178)" "((ns87_0) ns_92)" "((temp88_3)" "(lambda(s_12 ns_49 as-tail?_4)" @@ -43705,24 +43998,24 @@ static const char *startup_source = " #t" " cs91_0))))))))))))))" "(case-lambda" -"((s_182)(begin 'compile(compile23_0 s_182 #f #f #f #f #f #f #f #f)))" -"((s_424 ns_93 serializable?_5 expand_1 to-source?17_1)" -"(compile23_0 s_424 ns_93 serializable?_5 expand_1 to-source?17_1 #t #t #t #t))" +"((s_185)(begin 'compile(compile23_0 s_185 #f #f #f #f #f #f #f #f)))" +"((s_431 ns_93 serializable?_5 expand_1 to-source?17_1)" +"(compile23_0 s_431 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_425 ns14_3)(compile23_0 s_425 ns14_3 #f #f #f #t #f #f #f)))))" +"((s_432 ns14_3)(compile23_0 s_432 ns14_3 #f #f #f #t #f #f #f)))))" "(define-values" "(compile-to-linklets)" "(let-values(((compile-to-linklets28_0)" "(lambda(s27_0 ns25_0 ns26_2)" "(begin" " 'compile-to-linklets28" -"(let-values(((s_404) s27_0))" +"(let-values(((s_410) s27_0))" "(let-values(((ns_96)(if ns26_2 ns25_0(1/current-namespace))))" -"(let-values()(1/compile s_404 ns_96 #t expand$1 #t))))))))" +"(let-values()(1/compile s_410 ns_96 #t expand$1 #t))))))))" "(case-lambda" -"((s_426)(begin(compile-to-linklets28_0 s_426 #f #f)))" -"((s_301 ns25_1)(compile-to-linklets28_0 s_301 ns25_1 #t)))))" +"((s_433)(begin(compile-to-linklets28_0 s_433 #f #f)))" +"((s_306 ns25_1)(compile-to-linklets28_0 s_306 ns25_1 #t)))))" "(define-values" "(struct:lifted-parsed-begin" " lifted-parsed-begin30.1" @@ -43756,7 +44049,7 @@ static const char *startup_source = "(begin" " 'compile-single" "(let-values(((exp-s_4)(expand_2 s_29 ns_97 #f #t serializable?_7)))" -"((letrec-values(((loop_96)" +"((letrec-values(((loop_97)" "(lambda(exp-s_5)" "(begin" " 'loop" @@ -43785,42 +44078,42 @@ static const char *startup_source = "(let-values()" "(let-values(((temp101_1)" "(reverse$1" -"(let-values(((lst_101)" +"(let-values(((lst_291)" "(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_101)))" +"(let-values()(check-list lst_291)))" "((letrec-values(((for-loop_6)" -"(lambda(fold-var_0 lst_102)" +"(lambda(fold-var_0 lst_169)" "(begin" " 'for-loop" -"(if(pair? lst_102)" +"(if(pair? lst_169)" "(let-values(((e_75)" -"(unsafe-car lst_102))" -"((rest_48)" -"(unsafe-cdr lst_102)))" +"(unsafe-car lst_169))" +"((rest_164)" +"(unsafe-cdr lst_169)))" "(let-values(((fold-var_2)" "(let-values(((fold-var_3)" " fold-var_0))" -"(let-values(((fold-var_89)" +"(let-values(((fold-var_236)" "(let-values()" "(cons" "(let-values()" -"(loop_96" +"(loop_97" " e_75))" " fold-var_3))))" "(values" -" fold-var_89)))))" +" fold-var_236)))))" "(if(not #f)" -"(for-loop_6 fold-var_2 rest_48)" +"(for-loop_6 fold-var_2 rest_164)" " fold-var_2)))" " fold-var_0)))))" " for-loop_6)" " null" -" lst_101)))))" +" lst_291)))))" "((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()" @@ -43851,7 +44144,7 @@ static const char *startup_source = " #t" " exp-s103_0" " temp104_1)))))))))" -" loop_96)" +" loop_97)" " exp-s_4)))))" "(define-values" "(expand$1)" @@ -43867,7 +44160,7 @@ static const char *startup_source = " serializable?38_0)" "(begin" " 'expand40" -"(let-values(((s_427) s39_0))" +"(let-values(((s_434) s39_0))" "(let-values(((ns_80)(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)))" @@ -43883,12 +44176,12 @@ static const char *startup_source = " current-expand-observe" " #f)" "(let-values()" -"(let-values(((s108_0) s_427)" +"(let-values(((s108_0) s_434)" "((ns109_1) ns_80)" "((temp110_3)" -"(lambda(s_428 ns_98 as-tail?_5)" +"(lambda(s_435 ns_98 as-tail?_5)" "(expand-single" -" s_428" +" s_435" " ns_98" " observer_2" " to-parsed?_2" @@ -43912,24 +44205,24 @@ static const char *startup_source = " s108_0" " ns109_1))))))))))))))))" "(case-lambda" -"((s_300)(begin 'expand(expand40_0 s_300 #f #f #f #f #f #f #f #f)))" -"((s_429 ns_99 observable?_1 to-parsed?_3 serializable?34_1)" -"(expand40_0 s_429 ns_99 observable?_1 to-parsed?_3 serializable?34_1 #t #t #t #t))" -"((s_430 ns_100 observable?_2 to-parsed?33_1)(expand40_0 s_430 ns_100 observable?_2 to-parsed?33_1 #f #t #t #t #f))" +"((s_304)(begin 'expand(expand40_0 s_304 #f #f #f #f #f #f #f #f)))" +"((s_436 ns_99 observable?_1 to-parsed?_3 serializable?34_1)" +"(expand40_0 s_436 ns_99 observable?_1 to-parsed?_3 serializable?34_1 #t #t #t #t))" +"((s_437 ns_100 observable?_2 to-parsed?33_1)(expand40_0 s_437 ns_100 observable?_2 to-parsed?33_1 #f #t #t #t #f))" "((s_34 ns_101 observable?32_1)(expand40_0 s_34 ns_101 observable?32_1 #f #f #t #t #f #f))" -"((s_384 ns31_4)(expand40_0 s_384 ns31_4 #f #f #f #t #f #f #f)))))" +"((s_392 ns31_4)(expand40_0 s_392 ns31_4 #f #f #f #t #f #f #f)))))" "(define-values" "(expand-single)" -"(lambda(s_431 ns_102 observer_3 to-parsed?_4 serializable?_9)" +"(lambda(s_438 ns_102 observer_3 to-parsed?_4 serializable?_9)" "(begin" -"(let-values(((rebuild-s_2)(keep-properties-only s_431)))" +"(let-values(((rebuild-s_2)(keep-properties-only s_438)))" "(let-values(((ctx_67)" "(let-values(((ns114_0) ns_102)" "((to-parsed?115_0) to-parsed?_4)" "((serializable?116_0) serializable?_9)" "((observer117_0) observer_3))" "(make-expand-context10.1 serializable?116_0 #t observer117_0 #t to-parsed?115_0 #t ns114_0))))" -"(let-values(((require-lifts_3 lifts_10 exp-s_6)(expand-capturing-lifts s_431 ctx_67)))" +"(let-values(((require-lifts_3 lifts_10 exp-s_6)(expand-capturing-lifts s_438 ctx_67)))" "(if(if(null? require-lifts_3)(null? lifts_10) #f)" "(let-values() exp-s_6)" "(if to-parsed?_4" @@ -44002,12 +44295,12 @@ static const char *startup_source = "(lambda(s44_1 ns42_1 ns43_0)" "(begin" " 'expand-once45" -"(let-values(((s_385) s44_1))" +"(let-values(((s_393) s44_1))" "(let-values(((ns_103)(if ns43_0 ns42_1(1/current-namespace))))" "(let-values()" -"(let-values(((s128_0) s_385)" +"(let-values(((s128_0) s_393)" "((ns129_0) ns_103)" -"((temp130_3)(lambda(s_86 ns_83 as-tail?_6)(expand-single-once s_86 ns_83)))" +"((temp130_3)(lambda(s_439 ns_83 as-tail?_6)(expand-single-once s_439 ns_83)))" "((cons131_0) cons)" "((re-pair132_0) re-pair)" "((temp133_2) #t)" @@ -44028,71 +44321,71 @@ static const char *startup_source = " s128_0" " ns129_0)))))))))" "(case-lambda" -"((s_432)(begin 'expand-once(expand-once45_0 s_432 #f #f)))" -"((s_433 ns42_2)(expand-once45_0 s_433 ns42_2 #t)))))" +"((s_440)(begin 'expand-once(expand-once45_0 s_440 #f #f)))" +"((s_441 ns42_2)(expand-once45_0 s_441 ns42_2 #t)))))" "(define-values" "(expand-single-once)" -"(lambda(s_434 ns_104)" +"(lambda(s_442 ns_104)" "(begin" "(let-values(((require-lifts_4 lifts_11 exp-s_7)" "(expand-capturing-lifts" -" s_434" -"(let-values(((v_195)" +" s_442" +"(let-values(((v_193)" "(let-values(((ns135_1) ns_104))" "(make-expand-context10.1 #f #f #f #f #f #f ns135_1))))" -"(let-values(((the-struct_73) v_195))" -"(if(expand-context/outer? the-struct_73)" +"(let-values(((the-struct_71) v_193))" +"(if(expand-context/outer? the-struct_71)" "(let-values(((inner136_0)" -"(let-values(((the-struct_74)(root-expand-context/outer-inner v_195)))" -"(if(expand-context/inner? the-struct_74)" +"(let-values(((the-struct_12)(root-expand-context/outer-inner v_193)))" +"(if(expand-context/inner? the-struct_12)" "(let-values(((just-once?137_0) #t))" "(expand-context/inner2.1" -"(root-expand-context/inner-self-mpi the-struct_74)" -"(root-expand-context/inner-module-scopes the-struct_74)" -"(root-expand-context/inner-top-level-bind-scope the-struct_74)" -"(root-expand-context/inner-all-scopes-stx the-struct_74)" -"(root-expand-context/inner-defined-syms the-struct_74)" -"(root-expand-context/inner-counter the-struct_74)" -"(root-expand-context/inner-lift-key the-struct_74)" -"(expand-context/inner-to-parsed? the-struct_74)" -"(expand-context/inner-phase the-struct_74)" -"(expand-context/inner-namespace the-struct_74)" +"(root-expand-context/inner-self-mpi the-struct_12)" +"(root-expand-context/inner-module-scopes the-struct_12)" +"(root-expand-context/inner-top-level-bind-scope the-struct_12)" +"(root-expand-context/inner-all-scopes-stx the-struct_12)" +"(root-expand-context/inner-defined-syms the-struct_12)" +"(root-expand-context/inner-counter the-struct_12)" +"(root-expand-context/inner-lift-key the-struct_12)" +"(expand-context/inner-to-parsed? the-struct_12)" +"(expand-context/inner-phase the-struct_12)" +"(expand-context/inner-namespace the-struct_12)" " just-once?137_0" -"(expand-context/inner-module-begin-k the-struct_74)" -"(expand-context/inner-allow-unbound? the-struct_74)" -"(expand-context/inner-in-local-expand? the-struct_74)" -"(expand-context/inner-stops the-struct_74)" -"(expand-context/inner-declared-submodule-names the-struct_74)" -"(expand-context/inner-lifts the-struct_74)" -"(expand-context/inner-lift-envs the-struct_74)" -"(expand-context/inner-module-lifts the-struct_74)" -"(expand-context/inner-require-lifts the-struct_74)" -"(expand-context/inner-to-module-lifts the-struct_74)" -"(expand-context/inner-requires+provides the-struct_74)" -"(expand-context/inner-observer the-struct_74)" -"(expand-context/inner-for-serializable? the-struct_74)" -"(expand-context/inner-should-not-encounter-macros? the-struct_74)))" +"(expand-context/inner-module-begin-k the-struct_12)" +"(expand-context/inner-allow-unbound? the-struct_12)" +"(expand-context/inner-in-local-expand? the-struct_12)" +"(expand-context/inner-stops the-struct_12)" +"(expand-context/inner-declared-submodule-names the-struct_12)" +"(expand-context/inner-lifts the-struct_12)" +"(expand-context/inner-lift-envs the-struct_12)" +"(expand-context/inner-module-lifts the-struct_12)" +"(expand-context/inner-require-lifts the-struct_12)" +"(expand-context/inner-to-module-lifts the-struct_12)" +"(expand-context/inner-requires+provides the-struct_12)" +"(expand-context/inner-observer the-struct_12)" +"(expand-context/inner-for-serializable? the-struct_12)" +"(expand-context/inner-should-not-encounter-macros? the-struct_12)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_74)))))" +" the-struct_12)))))" "(expand-context/outer1.1" " inner136_0" -"(root-expand-context/outer-post-expansion-scope the-struct_73)" -"(root-expand-context/outer-use-site-scopes the-struct_73)" -"(root-expand-context/outer-frame-id the-struct_73)" -"(expand-context/outer-context the-struct_73)" -"(expand-context/outer-env the-struct_73)" -"(expand-context/outer-post-expansion-scope-action the-struct_73)" -"(expand-context/outer-scopes the-struct_73)" -"(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)))" -" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_73)))))))" +"(root-expand-context/outer-post-expansion-scope the-struct_71)" +"(root-expand-context/outer-use-site-scopes the-struct_71)" +"(root-expand-context/outer-frame-id the-struct_71)" +"(expand-context/outer-context the-struct_71)" +"(expand-context/outer-env the-struct_71)" +"(expand-context/outer-post-expansion-scope-action the-struct_71)" +"(expand-context/outer-scopes the-struct_71)" +"(expand-context/outer-def-ctx-scopes the-struct_71)" +"(expand-context/outer-binding-layer the-struct_71)" +"(expand-context/outer-reference-records the-struct_71)" +"(expand-context/outer-only-immediate? the-struct_71)" +"(expand-context/outer-need-eventually-defined the-struct_71)" +"(expand-context/outer-current-introduction-scopes the-struct_71)" +"(expand-context/outer-name the-struct_71)))" +" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_71)))))))" "(if(if(null? require-lifts_4)(null? lifts_11) #f)" "(let-values() exp-s_7)" "(let-values()" @@ -44106,7 +44399,7 @@ static const char *startup_source = "(lambda(s49_0 ns47_2 ns48_2)" "(begin" " 'expand-to-top-form50" -"(let-values(((s_92) s49_0))" +"(let-values(((s_89) s49_0))" "(let-values(((ns_105)(if ns48_2 ns47_2(1/current-namespace))))" "(let-values()" "(let-values(((observer_4)(current-expand-observe)))" @@ -44119,7 +44412,7 @@ static const char *startup_source = " current-expand-observe" " #f)" "(let-values()" -"(let-values(((s141_0) s_92)" +"(let-values(((s141_0) s_89)" "((ns142_0) ns_105)" "((temp143_0) #f)" "((temp144_1) #f)" @@ -44140,8 +44433,8 @@ static const char *startup_source = " s141_0" " ns142_0)))))))))))))" "(case-lambda" -"((s_412)(begin 'expand-to-top-form(expand-to-top-form50_0 s_412 #f #f)))" -"((s_205 ns47_3)(expand-to-top-form50_0 s_205 ns47_3 #t)))))" +"((s_419)(begin 'expand-to-top-form(expand-to-top-form50_0 s_419 #f #f)))" +"((s_209 ns47_3)(expand-to-top-form50_0 s_209 ns47_3 #t)))))" "(define-values" "(per-top-level68.1)" "(lambda(combine53_0" @@ -44170,27 +44463,27 @@ static const char *startup_source = "(let-values(((serializable?_10)(if serializable?64_0 serializable?57_0 #f)))" "(let-values(((observer_5) observer58_0))" "(let-values()" -"(let-values(((s_150)(maybe-intro given-s_0 ns_106)))" +"(let-values(((s_100)(maybe-intro given-s_0 ns_106)))" "(let-values(((ctx_68)" "(let-values(((ns146_0) ns_106)((observer147_0) observer_5))" "(make-expand-context10.1 #f #f observer147_0 #t #f #f ns146_0))))" -"(let-values(((phase_134)(namespace-phase ns_106)))" -"((letrec-values(((loop_97)" -"(lambda(s_106 phase_102 ns_107 as-tail?_7)" +"(let-values(((phase_135)(namespace-phase ns_106)))" +"((letrec-values(((loop_98)" +"(lambda(s_214 phase_103 ns_107 as-tail?_7)" "(begin" " 'loop" "(let-values(((tl-ctx_0)" -"(let-values(((v_126) ctx_68))" -"(let-values(((the-struct_44) v_126))" +"(let-values(((v_127) ctx_68))" +"(let-values(((the-struct_44) v_127))" "(if(expand-context/outer? the-struct_44)" "(let-values(((inner148_0)" -"(let-values(((the-struct_75)" +"(let-values(((the-struct_72)" "(root-expand-context/outer-inner" -" v_126)))" +" v_127)))" "(if(expand-context/inner?" -" the-struct_75)" +" the-struct_72)" "(let-values(((phase149_0)" -" phase_102)" +" phase_103)" "((namespace150_0)" " ns_107)" "((just-once?151_0)" @@ -44199,55 +44492,55 @@ static const char *startup_source = " serializable?_10))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi" -" the-struct_75)" +" the-struct_72)" "(root-expand-context/inner-module-scopes" -" the-struct_75)" +" the-struct_72)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_75)" +" the-struct_72)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_75)" +" the-struct_72)" "(root-expand-context/inner-defined-syms" -" the-struct_75)" +" the-struct_72)" "(root-expand-context/inner-counter" -" the-struct_75)" +" the-struct_72)" "(root-expand-context/inner-lift-key" -" the-struct_75)" +" the-struct_72)" "(expand-context/inner-to-parsed?" -" the-struct_75)" +" the-struct_72)" " phase149_0" " namespace150_0" " just-once?151_0" "(expand-context/inner-module-begin-k" -" the-struct_75)" +" the-struct_72)" "(expand-context/inner-allow-unbound?" -" the-struct_75)" +" the-struct_72)" "(expand-context/inner-in-local-expand?" -" the-struct_75)" +" the-struct_72)" "(expand-context/inner-stops" -" the-struct_75)" +" the-struct_72)" "(expand-context/inner-declared-submodule-names" -" the-struct_75)" +" the-struct_72)" "(expand-context/inner-lifts" -" the-struct_75)" +" the-struct_72)" "(expand-context/inner-lift-envs" -" the-struct_75)" +" the-struct_72)" "(expand-context/inner-module-lifts" -" the-struct_75)" +" the-struct_72)" "(expand-context/inner-require-lifts" -" the-struct_75)" +" the-struct_72)" "(expand-context/inner-to-module-lifts" -" the-struct_75)" +" the-struct_72)" "(expand-context/inner-requires+provides" -" the-struct_75)" +" the-struct_72)" "(expand-context/inner-observer" -" the-struct_75)" +" the-struct_72)" " for-serializable?152_0" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_75)))" +" the-struct_72)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_75)))))" +" the-struct_72)))))" "(expand-context/outer1.1" " inner148_0" "(root-expand-context/outer-post-expansion-scope" @@ -44279,7 +44572,7 @@ static const char *startup_source = " 'struct-copy" " \"expand-context/outer?\"" " the-struct_44))))))" -"(let-values(((wb-s_0)(if just-once?_1 s_106 #f)))" +"(let-values(((wb-s_0)(if just-once?_1 s_214 #f)))" "(let-values((()" "(begin" "(let-values(((obs_46)" @@ -44291,15 +44584,15 @@ static const char *startup_source = "(call-expand-observe" " obs_46" " 'visit" -" s_106)))" +" s_214)))" "(void)))" "(values))))" "(let-values(((require-lifts_5 lifts_12 exp-s_8)" "(expand-capturing-lifts" -" s_106" -"(let-values(((v_196) tl-ctx_0))" -"(let-values(((the-struct_63) v_196))" -"(if(expand-context/outer? the-struct_63)" +" s_214" +"(let-values(((v_194) tl-ctx_0))" +"(let-values(((the-struct_62) v_194))" +"(if(expand-context/outer? the-struct_62)" "(let-values(((only-immediate?153_0)" " #t)" "((def-ctx-scopes154_0)" @@ -44307,11 +44600,11 @@ static const char *startup_source = "((inner155_1)" "(let-values(((the-struct_33)" "(root-expand-context/outer-inner" -" v_196)))" +" v_194)))" "(if(expand-context/inner?" " the-struct_33)" "(let-values(((phase156_1)" -" phase_102)" +" phase_103)" "((namespace157_1)" " ns_107))" "(expand-context/inner2.1" @@ -44370,40 +44663,40 @@ static const char *startup_source = "(expand-context/outer1.1" " inner155_1" "(root-expand-context/outer-post-expansion-scope" -" the-struct_63)" +" the-struct_62)" "(root-expand-context/outer-use-site-scopes" -" the-struct_63)" +" the-struct_62)" "(root-expand-context/outer-frame-id" -" the-struct_63)" +" the-struct_62)" "(expand-context/outer-context" -" the-struct_63)" +" the-struct_62)" "(expand-context/outer-env" -" the-struct_63)" +" the-struct_62)" "(expand-context/outer-post-expansion-scope-action" -" the-struct_63)" +" the-struct_62)" "(expand-context/outer-scopes" -" the-struct_63)" +" the-struct_62)" " def-ctx-scopes154_0" "(expand-context/outer-binding-layer" -" the-struct_63)" +" the-struct_62)" "(expand-context/outer-reference-records" -" the-struct_63)" +" the-struct_62)" " only-immediate?153_0" "(expand-context/outer-need-eventually-defined" -" the-struct_63)" +" the-struct_62)" "(expand-context/outer-current-introduction-scopes" -" the-struct_63)" +" the-struct_62)" "(expand-context/outer-name" -" the-struct_63)))" +" the-struct_62)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_63)))))))" +" the-struct_62)))))))" "(let-values(((disarmed-exp-s_0)" "(syntax-disarm$1 exp-s_8)))" -"(if(let-values(((or-part_301)" +"(if(let-values(((or-part_299)" "(pair? require-lifts_5)))" -"(if or-part_301 or-part_301(pair? lifts_12)))" +"(if or-part_299 or-part_299(pair? lifts_12)))" "(let-values()" "(let-values(((new-s_3)" "(let-values(((temp158_0)" @@ -44411,7 +44704,7 @@ static const char *startup_source = " require-lifts_5" " lifts_12))" "((exp-s159_0) exp-s_8)" -"((phase160_0) phase_102))" +"((phase160_0) phase_103))" "(wrap-lifts-as-begin16.1" " #f" " #f" @@ -44434,9 +44727,9 @@ static const char *startup_source = "(void)))" "(if just-once?_1" " new-s_3" -"(loop_97" +"(loop_98" " new-s_3" -" phase_102" +" phase_103" " ns_107" " as-tail?_7)))))" "(if(not single_0)" @@ -44460,7 +44753,7 @@ static const char *startup_source = "(let-values(((tmp_36)" "(core-form-sym" " disarmed-exp-s_0" -" phase_102)))" +" phase_103)))" "(if(equal? tmp_36 'begin)" "(let-values()" "(let-values((()" @@ -44477,38 +44770,38 @@ static const char *startup_source = "(void)))" "(values))))" "(let-values(((ok?_27 begin161_0 e162_0)" -"(let-values(((s_435)" +"(let-values(((s_443)" " disarmed-exp-s_0))" "(let-values(((orig-s_33)" -" s_435))" +" s_443))" "(let-values(((begin161_1" " e162_1)" -"(let-values(((s_436)" +"(let-values(((s_444)" "(if(syntax?$1" -" s_435)" +" s_443)" "(syntax-e$1" -" s_435)" -" s_435)))" +" s_443)" +" s_443)))" "(if(pair?" -" s_436)" +" s_444)" "(let-values(((begin163_0)" -"(let-values(((s_119)" +"(let-values(((s_445)" "(car" -" s_436)))" -" s_119))" +" s_444)))" +" s_445))" "((e164_0)" -"(let-values(((s_437)" +"(let-values(((s_446)" "(cdr" -" s_436)))" -"(let-values(((s_438)" +" s_444)))" +"(let-values(((s_447)" "(if(syntax?$1" -" s_437)" +" s_446)" "(syntax-e$1" -" s_437)" -" s_437)))" +" s_446)" +" s_446)))" "(let-values(((flat-s_20)" "(to-syntax-list.1" -" s_438)))" +" s_447)))" "(if(not" " flat-s_20)" "(let-values()" @@ -44545,9 +44838,9 @@ static const char *startup_source = " es_2))" " #f)" "(let-values()" -"(loop_97" +"(loop_98" "(car es_2)" -" phase_102" +" phase_103" " ns_107" " as-tail?_7))" "(let-values()" @@ -44566,17 +44859,17 @@ static const char *startup_source = "(values))))" "(let-values(((a_63)" "(if combine_0" -"(loop_97" +"(loop_98" "(car" " es_2)" -" phase_102" +" phase_103" " ns_107" " #f)" "(begin" -"(loop_97" +"(loop_98" "(car" " es_2)" -" phase_102" +" phase_103" " ns_107" " #f)" "(void)))))" @@ -44630,38 +44923,38 @@ static const char *startup_source = "(let-values(((ok?_22" " begin-for-syntax165_0" " e166_0)" -"(let-values(((s_224)" +"(let-values(((s_229)" " disarmed-exp-s_0))" "(let-values(((orig-s_34)" -" s_224))" +" s_229))" "(let-values(((begin-for-syntax165_1" " e166_1)" -"(let-values(((s_226)" +"(let-values(((s_231)" "(if(syntax?$1" -" s_224)" +" s_229)" "(syntax-e$1" -" s_224)" -" s_224)))" +" s_229)" +" s_229)))" "(if(pair?" -" s_226)" +" s_231)" "(let-values(((begin-for-syntax167_0)" -"(let-values(((s_228)" +"(let-values(((s_233)" "(car" -" s_226)))" -" s_228))" +" s_231)))" +" s_233))" "((e168_0)" -"(let-values(((s_326)" +"(let-values(((s_333)" "(cdr" -" s_226)))" -"(let-values(((s_229)" +" s_231)))" +"(let-values(((s_234)" "(if(syntax?$1" -" s_326)" +" s_333)" "(syntax-e$1" -" s_326)" -" s_326)))" +" s_333)" +" s_333)))" "(let-values(((flat-s_21)" "(to-syntax-list.1" -" s_229)))" +" s_234)))" "(if(not" " flat-s_21)" "(let-values()" @@ -44683,7 +44976,7 @@ static const char *startup_source = " begin-for-syntax165_1" " e166_1))))))" "(let-values(((next-phase_0)" -"(add1 phase_102)))" +"(add1 phase_103)))" "(let-values(((next-ns_0)" "(namespace->namespace-at-phase" " ns_107" @@ -44716,7 +45009,7 @@ static const char *startup_source = "(values))))" "(let-values(((l_69)" "(reverse$1" -"(let-values(((lst_304)" +"(let-values(((lst_303)" " e166_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -44724,24 +45017,24 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_304)))" +" lst_303)))" "((letrec-values(((for-loop_268)" -"(lambda(fold-var_267" -" lst_305)" +"(lambda(fold-var_269" +" lst_304)" "(begin" " 'for-loop" "(if(pair?" -" lst_305)" -"(let-values(((s_330)" +" lst_304)" +"(let-values(((s_337)" "(unsafe-car" -" lst_305))" -"((rest_168)" +" lst_304))" +"((rest_170)" "(unsafe-cdr" -" lst_305)))" +" lst_304)))" "(let-values(((fold-var_202)" "(let-values(((fold-var_203)" -" fold-var_267))" -"(let-values(((fold-var_268)" +" fold-var_269))" +"(let-values(((fold-var_270)" "(let-values()" "(cons" "(let-values()" @@ -44756,24 +45049,24 @@ static const char *startup_source = " obs_53" " 'next)))" "(void)))" -"(loop_97" -" s_330" +"(loop_98" +" s_337" " next-phase_0" " next-ns_0" " #f)))" " fold-var_203))))" "(values" -" fold-var_268)))))" +" fold-var_270)))))" "(if(not" " #f)" "(for-loop_268" " fold-var_202" -" rest_168)" +" rest_170)" " fold-var_202)))" -" fold-var_267)))))" +" fold-var_269)))))" " for-loop_268)" " null" -" lst_304))))))" +" lst_303))))))" "(if wrap_2" "(let-values()" "(let-values(((new-s_5)" @@ -44806,22 +45099,22 @@ static const char *startup_source = " exp-s_8" " ns_107" " as-tail?_7))))))))))))))))))" -" loop_97)" -" s_150" -" phase_134" +" loop_98)" +" s_100" +" phase_135" " ns_106" " #t)))))))))))))))))" "(define-values" "(maybe-intro)" -"(lambda(s_439 ns_108)" -"(begin(if(syntax?$1 s_439) s_439(1/namespace-syntax-introduce(1/datum->syntax #f s_439) ns_108)))))" +"(lambda(s_448 ns_108)" +"(begin(if(syntax?$1 s_448) s_448(1/namespace-syntax-introduce(1/datum->syntax #f s_448) ns_108)))))" "(define-values" "(re-pair)" -"(lambda(form-id_0 s_440 r_43)" -"(begin(syntax-rearm$1(1/datum->syntax(syntax-disarm$1 s_440)(cons form-id_0 r_43) s_440 s_440) s_440))))" +"(lambda(form-id_0 s_449 r_42)" +"(begin(syntax-rearm$1(1/datum->syntax(syntax-disarm$1 s_449)(cons form-id_0 r_42) s_449 s_449) s_449))))" "(define-values" "(expand-capturing-lifts)" -"(lambda(s_441 ctx_69)" +"(lambda(s_450 ctx_69)" "(begin" "(let-values()" "(let-values(((ns_109)(expand-context-namespace ctx_69)))" @@ -44834,83 +45127,83 @@ static const char *startup_source = "(namespace-phase ns_109)" "(make-parse-top-lifted-require ns_109))))" "(let-values(((exp-s_9)" -"(let-values(((s170_0) s_441)" +"(let-values(((s170_0) s_450)" "((temp171_0)" -"(let-values(((v_197) ctx_69))" -"(let-values(((the-struct_76) v_197))" -"(if(expand-context/outer? the-struct_76)" +"(let-values(((v_195) ctx_69))" +"(let-values(((the-struct_22) v_195))" +"(if(expand-context/outer? the-struct_22)" "(let-values(((inner172_0)" -"(let-values(((the-struct_77)" -"(root-expand-context/outer-inner v_197)))" -"(if(expand-context/inner? the-struct_77)" +"(let-values(((the-struct_73)" +"(root-expand-context/outer-inner v_195)))" +"(if(expand-context/inner? the-struct_73)" "(let-values(((lifts173_0) lift-ctx_6)" "((module-lifts174_0) lift-ctx_6)" "((require-lifts175_0)" " require-lift-ctx_2))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi" -" the-struct_77)" +" the-struct_73)" "(root-expand-context/inner-module-scopes" -" the-struct_77)" +" the-struct_73)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_77)" +" the-struct_73)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_77)" +" the-struct_73)" "(root-expand-context/inner-defined-syms" -" the-struct_77)" -"(root-expand-context/inner-counter the-struct_77)" +" the-struct_73)" +"(root-expand-context/inner-counter the-struct_73)" "(root-expand-context/inner-lift-key" -" the-struct_77)" -"(expand-context/inner-to-parsed? the-struct_77)" -"(expand-context/inner-phase the-struct_77)" -"(expand-context/inner-namespace the-struct_77)" -"(expand-context/inner-just-once? the-struct_77)" +" the-struct_73)" +"(expand-context/inner-to-parsed? the-struct_73)" +"(expand-context/inner-phase the-struct_73)" +"(expand-context/inner-namespace the-struct_73)" +"(expand-context/inner-just-once? the-struct_73)" "(expand-context/inner-module-begin-k" -" the-struct_77)" +" the-struct_73)" "(expand-context/inner-allow-unbound?" -" the-struct_77)" +" the-struct_73)" "(expand-context/inner-in-local-expand?" -" the-struct_77)" -"(expand-context/inner-stops the-struct_77)" +" the-struct_73)" +"(expand-context/inner-stops the-struct_73)" "(expand-context/inner-declared-submodule-names" -" the-struct_77)" +" the-struct_73)" " lifts173_0" -"(expand-context/inner-lift-envs the-struct_77)" +"(expand-context/inner-lift-envs the-struct_73)" " module-lifts174_0" " require-lifts175_0" "(expand-context/inner-to-module-lifts" -" the-struct_77)" +" the-struct_73)" "(expand-context/inner-requires+provides" -" the-struct_77)" -"(expand-context/inner-observer the-struct_77)" +" the-struct_73)" +"(expand-context/inner-observer the-struct_73)" "(expand-context/inner-for-serializable?" -" the-struct_77)" +" the-struct_73)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_77)))" +" the-struct_73)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_77)))))" +" the-struct_73)))))" "(expand-context/outer1.1" " inner172_0" -"(root-expand-context/outer-post-expansion-scope the-struct_76)" -"(root-expand-context/outer-use-site-scopes the-struct_76)" -"(root-expand-context/outer-frame-id the-struct_76)" -"(expand-context/outer-context the-struct_76)" -"(expand-context/outer-env the-struct_76)" -"(expand-context/outer-post-expansion-scope-action the-struct_76)" -"(expand-context/outer-scopes the-struct_76)" -"(expand-context/outer-def-ctx-scopes the-struct_76)" -"(expand-context/outer-binding-layer the-struct_76)" -"(expand-context/outer-reference-records the-struct_76)" -"(expand-context/outer-only-immediate? the-struct_76)" -"(expand-context/outer-need-eventually-defined the-struct_76)" -"(expand-context/outer-current-introduction-scopes the-struct_76)" -"(expand-context/outer-name the-struct_76)))" +"(root-expand-context/outer-post-expansion-scope the-struct_22)" +"(root-expand-context/outer-use-site-scopes the-struct_22)" +"(root-expand-context/outer-frame-id the-struct_22)" +"(expand-context/outer-context the-struct_22)" +"(expand-context/outer-env the-struct_22)" +"(expand-context/outer-post-expansion-scope-action the-struct_22)" +"(expand-context/outer-scopes the-struct_22)" +"(expand-context/outer-def-ctx-scopes the-struct_22)" +"(expand-context/outer-binding-layer the-struct_22)" +"(expand-context/outer-reference-records the-struct_22)" +"(expand-context/outer-only-immediate? the-struct_22)" +"(expand-context/outer-need-eventually-defined the-struct_22)" +"(expand-context/outer-current-introduction-scopes the-struct_22)" +"(expand-context/outer-name the-struct_22)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_76))))))" +" the-struct_22))))))" "(expand7.1 #f #f #f #f s170_0 temp171_0))))" "(values" "(get-and-clear-require-lifts! require-lift-ctx_2)" @@ -44920,31 +45213,31 @@ static const char *startup_source = "(make-parse-top-lifted-require)" "(lambda(ns_73)" "(begin" -"(lambda(s_442 phase_135)" +"(lambda(s_451 phase_136)" "(let-values(((ok?_28 #%require176_0 req177_0)" -"(let-values(((s_443)(syntax-disarm$1 s_442)))" -"(let-values(((orig-s_35) s_443))" +"(let-values(((s_452)(syntax-disarm$1 s_451)))" +"(let-values(((orig-s_35) s_452))" "(let-values(((#%require176_1 req177_1)" -"(let-values(((s_248)(if(syntax?$1 s_443)(syntax-e$1 s_443) s_443)))" -"(if(pair? s_248)" -"(let-values(((#%require178_0)(let-values(((s_249)(car s_248))) s_249))" +"(let-values(((s_253)(if(syntax?$1 s_452)(syntax-e$1 s_452) s_452)))" +"(if(pair? s_253)" +"(let-values(((#%require178_0)(let-values(((s_254)(car s_253))) s_254))" "((req179_0)" -"(let-values(((s_250)(cdr s_248)))" -"(let-values(((s_251)" -"(if(syntax?$1 s_250)" -"(syntax-e$1 s_250)" -" s_250)))" -"(if(pair? s_251)" +"(let-values(((s_255)(cdr s_253)))" +"(let-values(((s_256)" +"(if(syntax?$1 s_255)" +"(syntax-e$1 s_255)" +" s_255)))" +"(if(pair? s_256)" "(let-values(((req180_0)" -"(let-values(((s_444)(car s_251)))" -" s_444))" +"(let-values(((s_453)(car s_256)))" +" s_453))" "(()" -"(let-values(((s_445)(cdr s_251)))" -"(let-values(((s_446)" -"(if(syntax?$1 s_445)" -"(syntax-e$1 s_445)" -" s_445)))" -"(if(null? s_446)" +"(let-values(((s_454)(cdr s_256)))" +"(let-values(((s_455)" +"(if(syntax?$1 s_454)" +"(syntax-e$1 s_454)" +" s_454)))" +"(if(null? s_455)" "(values)" "(raise-syntax-error$1" " #f" @@ -44956,10 +45249,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_442)" +"((s182_0) s_451)" "((ns183_0) ns_73)" -"((phase184_1) phase_135)" -"((phase185_0) phase_135)" +"((phase184_1) phase_136)" +"((phase185_0) phase_136)" "((temp186_0)(let-values(((temp188_0) #f))(make-requires+provides8.1 #f #f temp188_0)))" "((temp187_0) 'require))" "(parse-and-perform-requires!30.1" @@ -45001,48 +45294,48 @@ static const char *startup_source = "(lifted-parsed-begin30.1" "(append" "(reverse$1" -"(let-values(((lst_306) require-lifts_6))" +"(let-values(((lst_305) require-lifts_6))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_306)))" +"(let-values()(check-list lst_305)))" "((letrec-values(((for-loop_269)" -"(lambda(fold-var_269 lst_307)" +"(lambda(fold-var_271 lst_306)" "(begin" " 'for-loop" -"(if(pair? lst_307)" -"(let-values(((req_19)(unsafe-car lst_307))" -"((rest_169)(unsafe-cdr lst_307)))" -"(let-values(((fold-var_270)" -"(let-values(((fold-var_271) fold-var_269))" +"(if(pair? lst_306)" +"(let-values(((req_19)(unsafe-car lst_306))" +"((rest_171)(unsafe-cdr lst_306)))" "(let-values(((fold-var_272)" +"(let-values(((fold-var_273) fold-var_271))" +"(let-values(((fold-var_274)" "(let-values()" "(cons" "(let-values()" "(parsed-require23.1 req_19))" -" fold-var_271))))" -"(values fold-var_272)))))" -"(if(not #f)(for-loop_269 fold-var_270 rest_169) fold-var_270)))" -" fold-var_269)))))" +" fold-var_273))))" +"(values fold-var_274)))))" +"(if(not #f)(for-loop_269 fold-var_272 rest_171) fold-var_272)))" +" fold-var_271)))))" " for-loop_269)" " null" -" lst_306))))" +" lst_305))))" "(reverse$1" -"(let-values(((lst_308)(get-lifts-as-lists lifts_13)))" +"(let-values(((lst_307)(get-lifts-as-lists lifts_13)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_308)))" +"(let-values()(check-list lst_307)))" "((letrec-values(((for-loop_270)" -"(lambda(fold-var_273 lst_309)" +"(lambda(fold-var_275 lst_308)" "(begin" " 'for-loop" -"(if(pair? lst_309)" -"(let-values(((ids+syms+rhs_0)(unsafe-car lst_309))" -"((rest_170)(unsafe-cdr lst_309)))" -"(let-values(((fold-var_274)" -"(let-values(((fold-var_275) fold-var_273))" +"(if(pair? lst_308)" +"(let-values(((ids+syms+rhs_0)(unsafe-car lst_308))" +"((rest_172)(unsafe-cdr lst_308)))" "(let-values(((fold-var_276)" +"(let-values(((fold-var_277) fold-var_275))" +"(let-values(((fold-var_278)" "(let-values()" "(cons" "(let-values()" @@ -45066,28 +45359,28 @@ static const char *startup_source = " just-rhs_0)))" "(if(lifted-parsed-begin?" " exp-rhs_1)" -"(let-values(((the-struct_78)" +"(let-values(((the-struct_74)" " exp-rhs_1))" "(if(lifted-parsed-begin?" -" the-struct_78)" +" the-struct_74)" "(let-values(((last189_0)" " dv_0))" "(lifted-parsed-begin30.1" "(lifted-parsed-begin-seq" -" the-struct_78)" +" the-struct_74)" " last189_0))" "(raise-argument-error" " 'struct-copy" " \"lifted-parsed-begin?\"" -" the-struct_78)))" +" the-struct_74)))" " dv_0)))))" -" fold-var_275))))" -"(values fold-var_276)))))" -"(if(not #f)(for-loop_270 fold-var_274 rest_170) fold-var_274)))" -" fold-var_273)))))" +" fold-var_277))))" +"(values fold-var_278)))))" +"(if(not #f)(for-loop_270 fold-var_276 rest_172) fold-var_276)))" +" fold-var_275)))))" " for-loop_270)" " null" -" lst_308)))))" +" lst_307)))))" " exp-s_10))))))))))" "(define-values" "(log-top-lift-begin-before)" @@ -45111,19 +45404,19 @@ static const char *startup_source = "(if obs_56" "(let-values()" "(let-values(((ok?_29 begin193_0 e194_0)" -"(let-values(((s_128) new-s_7))" -"(let-values(((orig-s_36) s_128))" +"(let-values(((s_456) new-s_7))" +"(let-values(((orig-s_36) s_456))" "(let-values(((begin193_1 e194_1)" -"(let-values(((s_447)(if(syntax?$1 s_128)(syntax-e$1 s_128) s_128)))" -"(if(pair? s_447)" -"(let-values(((begin195_0)(let-values(((s_448)(car s_447))) s_448))" +"(let-values(((s_457)(if(syntax?$1 s_456)(syntax-e$1 s_456) s_456)))" +"(if(pair? s_457)" +"(let-values(((begin195_0)(let-values(((s_458)(car s_457))) s_458))" "((e196_0)" -"(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_22)(to-syntax-list.1 s_450)))" +"(let-values(((s_459)(cdr s_457)))" +"(let-values(((s_460)" +"(if(syntax?$1 s_459)" +"(syntax-e$1 s_459)" +" s_459)))" +"(let-values(((flat-s_22)(to-syntax-list.1 s_460)))" "(if(not flat-s_22)" "(let-values()" "(raise-syntax-error$1" @@ -45149,19 +45442,19 @@ static const char *startup_source = "(if obs_57" "(let-values()" "(let-values(((ok?_30 begin197_0 e198_0)" -"(let-values(((s_451) new-s_8))" -"(let-values(((orig-s_37) s_451))" +"(let-values(((s_461) new-s_8))" +"(let-values(((orig-s_37) s_461))" "(let-values(((begin197_1 e198_1)" -"(let-values(((s_452)(if(syntax?$1 s_451)(syntax-e$1 s_451) s_451)))" -"(if(pair? s_452)" -"(let-values(((begin199_0)(let-values(((s_453)(car s_452))) s_453))" +"(let-values(((s_462)(if(syntax?$1 s_461)(syntax-e$1 s_461) s_461)))" +"(if(pair? s_462)" +"(let-values(((begin199_0)(let-values(((s_463)(car s_462))) s_463))" "((e200_0)" -"(let-values(((s_454)(cdr s_452)))" -"(let-values(((s_455)" -"(if(syntax?$1 s_454)" -"(syntax-e$1 s_454)" -" s_454)))" -"(let-values(((flat-s_23)(to-syntax-list.1 s_455)))" +"(let-values(((s_464)(cdr s_462)))" +"(let-values(((s_465)" +"(if(syntax?$1 s_464)" +"(syntax-e$1 s_464)" +" s_464)))" +"(let-values(((flat-s_23)(to-syntax-list.1 s_465)))" "(if(not flat-s_23)" "(let-values()" "(raise-syntax-error$1" @@ -45215,8 +45508,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_291)(equal? sym_82 0)))" -"(if or-part_291 or-part_291(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_20 \"(or/c symbol? #f 0 void?)\" sym_82)))" @@ -45230,7 +45523,7 @@ static const char *startup_source = " (let-values () (raise-argument-error who_20 \"(-> any)\" fail-k_2)))" "(values))))" "(let-values(((ns_58)(1/current-namespace)))" -"(let-values(((mpi_46)" +"(let-values(((mpi_47)" "(if(1/module-path? mod-path_5)" "(let-values()(1/module-path-index-join mod-path_5 #f))" "(if(1/module-path-index? mod-path_5)" @@ -45239,14 +45532,14 @@ static const char *startup_source = "(1/module-path-index-join" "(resolved-module-path->module-path mod-path_5)" " #f))))))" -"(let-values(((mod-name_22)(1/module-path-index-resolve mpi_46 #t)))" -"(let-values(((phase_136)(namespace-phase ns_58)))" +"(let-values(((mod-name_22)(1/module-path-index-resolve mpi_47 #t)))" +"(let-values(((phase_137)(namespace-phase ns_58)))" "(if(not sym_82)" "(let-values()" "(let-values(((ns20_1) ns_58)" -"((mpi21_0) mpi_46)" -"((phase22_0) phase_136)" -"((phase23_1) phase_136)" +"((mpi21_0) mpi_47)" +"((phase22_0) phase_137)" +"((phase23_1) phase_137)" "((temp24_5) #f))" "(namespace-module-instantiate!96.1" " temp24_5" @@ -45263,9 +45556,9 @@ static const char *startup_source = "(if(equal? sym_82 0)" "(let-values()" "(let-values(((ns25_2) ns_58)" -"((mpi26_0) mpi_46)" -"((phase27_1) phase_136)" -"((phase28_1) phase_136))" +"((mpi26_0) mpi_47)" +"((phase27_1) phase_137)" +"((phase28_1) phase_137))" "(namespace-module-instantiate!96.1" " #f" " #f" @@ -45281,9 +45574,9 @@ static const char *startup_source = "(if(void? sym_82)" "(let-values()" "(let-values(((ns29_0) ns_58)" -"((mpi30_0) mpi_46)" -"((phase31_1) phase_136)" -"((phase32_3) phase_136))" +"((mpi30_0) mpi_47)" +"((phase31_1) phase_137)" +"((phase32_3) phase_137))" "(namespace-module-visit!104.1" " phase32_3" " #t" @@ -45318,19 +45611,19 @@ static const char *startup_source = " mod-name_22)" "(fail-k_2)))" "(let-values()" -"(let-values(((binding_27)" +"(let-values(((binding_26)" "(provided-as-binding binding/p_5)))" "(let-values(((ex-sym_2)" -"(module-binding-sym binding_27)))" +"(module-binding-sym binding_26)))" "(let-values(((ex-phase_0)" -"(module-binding-phase binding_27)))" +"(module-binding-phase binding_26)))" "(let-values((()" "(begin" "(let-values(((ns33_0) ns_58)" -"((mpi34_0) mpi_46)" -"((phase35_1) phase_136)" +"((mpi34_0) mpi_47)" +"((phase35_1) phase_137)" "((phase36_0)" -" phase_136))" +" phase_137))" "(namespace-module-instantiate!96.1" " #f" " #f" @@ -45347,16 +45640,16 @@ static const char *startup_source = "(let-values(((ex-mod-name_0)" "(1/module-path-index-resolve" "(module-path-index-shift" -"(module-binding-module binding_27)" +"(module-binding-module binding_26)" "(module-self m_22)" -" mpi_46))))" +" mpi_47))))" "(let-values(((m-ns_16)" "(let-values(((ns37_1) ns_58)" "((ex-mod-name38_0)" " ex-mod-name_0)" "((temp39_4)" "(phase-" -" phase_136" +" phase_137" " ex-phase_0))" "((temp40_2) #t))" "(namespace->module-namespace82.1" @@ -45400,10 +45693,10 @@ static const char *startup_source = " m-ns_16)))" "(not" "(if(module-binding-extra-inspector" -" binding_27)" +" binding_26)" "(inspector-superior?" "(module-binding-extra-inspector" -" binding_27)" +" binding_26)" "(namespace-inspector" " m-ns_16))" " #f))" @@ -45451,11 +45744,11 @@ static const char *startup_source = "(let-values(((ns41_2)" " ns_58)" "((mpi42_1)" -" mpi_46)" +" mpi_47)" "((phase43_2)" -" phase_136)" +" phase_137)" "((phase44_0)" -" phase_136))" +" phase_137))" "(namespace-module-visit!104.1" " phase44_0" " #t" @@ -45548,12 +45841,12 @@ static const char *startup_source = "(let-values()" "(make-parameter" "(replace-me 'current-eval)" -"(lambda(p_48)" +"(lambda(p_49)" "(begin" -"(if((lambda(p_49)(if(procedure? p_49)(procedure-arity-includes? p_49 1) #f)) p_48)" +"(if((lambda(p_50)(if(procedure? p_50)(procedure-arity-includes? p_50 1) #f)) p_49)" "(void)" -" (let-values () (raise-argument-error 'current-eval \"(procedure-arity-includes/c 1)\" p_48)))" -" p_48))))))" +" (let-values () (raise-argument-error 'current-eval \"(procedure-arity-includes/c 1)\" p_49)))" +" p_49))))))" "(define-values" "(1/current-compile)" "(let-values()" @@ -45562,7 +45855,7 @@ static const char *startup_source = "(replace-me 'current-compile)" "(lambda(p_30)" "(begin" -"(if((lambda(p_50)(if(procedure? p_50)(procedure-arity-includes? p_50 2) #f)) p_30)" +"(if((lambda(p_51)(if(procedure? p_51)(procedure-arity-includes? p_51 2) #f)) p_30)" "(void)" " (let-values () (raise-argument-error 'current-compile \"(procedure-arity-includes/c 2)\" p_30)))" " p_30))))))" @@ -45572,24 +45865,24 @@ static const char *startup_source = "(let-values()" "(make-parameter" "(replace-me 'current-load)" -"(lambda(p_51)" +"(lambda(p_52)" "(begin" -"(if((lambda(p_52)(if(procedure? p_52)(procedure-arity-includes? p_52 2) #f)) p_51)" +"(if((lambda(p_53)(if(procedure? p_53)(procedure-arity-includes? p_53 2) #f)) p_52)" "(void)" -" (let-values () (raise-argument-error 'current-load \"(procedure-arity-includes/c 2)\" p_51)))" -" p_51))))))" +" (let-values () (raise-argument-error 'current-load \"(procedure-arity-includes/c 2)\" p_52)))" +" p_52))))))" "(define-values" "(1/current-load/use-compiled)" "(let-values()" "(let-values()" "(make-parameter" "(replace-me 'current-load/use-compiled)" -"(lambda(p_34)" +"(lambda(p_35)" "(begin" -"(if((lambda(p_46)(if(procedure? p_46)(procedure-arity-includes? p_46 2) #f)) p_34)" +"(if((lambda(p_47)(if(procedure? p_47)(procedure-arity-includes? p_47 2) #f)) p_35)" "(void)" -" (let-values () (raise-argument-error 'current-load/use-compiled \"(procedure-arity-includes/c 2)\" p_34)))" -" p_34))))))" +" (let-values () (raise-argument-error 'current-load/use-compiled \"(procedure-arity-includes/c 2)\" p_35)))" +" p_35))))))" "(define-values" "(1/current-library-collection-paths)" "(let-values()" @@ -45617,36 +45910,36 @@ static const char *startup_source = "(if((lambda(l_8)" "(if(list? l_8)" "(andmap2" -"(lambda(p_53)" -"(let-values(((or-part_297)(not p_53)))" -"(if or-part_297" -" or-part_297" -"(let-values(((or-part_298)(complete-path-string? p_53)))" -"(if or-part_298" -" or-part_298" -"(if(hash? p_53)" -"(let-values(((ht_150) p_53))" +"(lambda(p_54)" +"(let-values(((or-part_295)(not p_54)))" +"(if or-part_295" +" or-part_295" +"(let-values(((or-part_296)(complete-path-string? p_54)))" +"(if or-part_296" +" or-part_296" +"(if(hash? p_54)" +"(let-values(((ht_152) p_54))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_150)))" -"((letrec-values(((for-loop_182)" -"(lambda(result_114 i_88)" +"(let-values()(check-in-hash ht_152)))" +"((letrec-values(((for-loop_184)" +"(lambda(result_114 i_91)" "(begin" " 'for-loop" -"(if i_88" +"(if i_91" "(let-values(((k_34 v_3)" -"(hash-iterate-key+value ht_150 i_88)))" +"(hash-iterate-key+value ht_152 i_91)))" "(let-values(((result_115)" "(let-values()" "(let-values(((result_116)" "(let-values()" "(let-values()" -"(if(let-values(((or-part_77)" +"(if(let-values(((or-part_75)" "(not" " k_34)))" -"(if or-part_77" -" or-part_77" +"(if or-part_75" +" or-part_75" "(if(symbol?" " k_34)" "(1/module-path?" @@ -45659,17 +45952,17 @@ static const char *startup_source = " #f)" " #f)))))" "(values result_116)))))" -"(if(if(not((lambda x_80(not result_115)) k_34 v_3))" +"(if(if(not((lambda x_78(not result_115)) k_34 v_3))" "(not #f)" " #f)" -"(for-loop_182" +"(for-loop_184" " result_115" -"(hash-iterate-next ht_150 i_88))" +"(hash-iterate-next ht_152 i_91))" " result_115)))" " result_114)))))" -" for-loop_182)" +" for-loop_184)" " #t" -"(hash-iterate-first ht_150))))" +"(hash-iterate-first ht_152))))" " #f))))))" " l_8)" " #f))" @@ -45693,38 +45986,38 @@ static const char *startup_source = "(if(string? p_3)" "(let-values()(string->path p_3))" "(let-values()" -"(let-values(((ht_151) p_3))" +"(let-values(((ht_153) p_3))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_151)))" +"(let-values()(check-in-hash ht_153)))" "((letrec-values(((for-loop_271)" -"(lambda(table_207 i_89)" +"(lambda(table_216 i_92)" "(begin" " 'for-loop" -"(if i_89" -"(let-values(((k_35 v_198)(hash-iterate-key+value ht_151 i_89)))" -"(let-values(((table_208)" -"(let-values(((table_110) table_207))" -"(let-values(((table_209)" +"(if i_92" +"(let-values(((k_35 v_196)(hash-iterate-key+value ht_153 i_92)))" +"(let-values(((table_217)" +"(let-values(((table_185) table_216))" +"(let-values(((table_218)" "(let-values()" -"(let-values(((key_83 val_73)" +"(let-values(((key_84 val_74)" "(let-values()" "(values" " k_35" -"(to-path v_198)))))" +"(to-path v_196)))))" "(hash-set" -" table_110" -" key_83" -" val_73)))))" -"(values table_209)))))" +" table_185" +" key_84" +" val_74)))))" +"(values table_218)))))" "(if(not #f)" -"(for-loop_271 table_208(hash-iterate-next ht_151 i_89))" -" table_208)))" -" table_207)))))" +"(for-loop_271 table_217(hash-iterate-next ht_153 i_92))" +" table_217)))" +" table_216)))))" " for-loop_271)" " '#hash()" -"(hash-iterate-first ht_151)))))))))" +"(hash-iterate-first ht_153)))))))))" " l_71)))))))" "(define-values" "(1/use-compiled-file-paths)" @@ -45750,8 +46043,8 @@ static const char *startup_source = "(if((lambda(l_74)" "(if(list? l_74)" "(andmap2" -"(lambda(p_54)" -"(let-values(((or-part_8)(path-string? p_54)))(if or-part_8 or-part_8(eq? p_54 'same))))" +"(lambda(p_55)" +"(let-values(((or-part_8)(path-string? p_55)))(if or-part_8 or-part_8(eq? p_55 'same))))" " l_74)" " #f))" " l_73)" @@ -45765,22 +46058,22 @@ static const char *startup_source = "(let-values()" "(make-parameter" " 'modify-seconds" -"(lambda(v_199)" +"(lambda(v_197)" "(begin" -"(if((lambda(v_63)" -"(let-values(((or-part_21)(eq? v_63 'modify-seconds)))" -"(if or-part_21 or-part_21(eq? v_63 'exists))))" -" v_199)" +"(if((lambda(v_62)" +"(let-values(((or-part_21)(eq? v_62 'modify-seconds)))" +"(if or-part_21 or-part_21(eq? v_62 'exists))))" +" v_197)" "(void)" -" (let-values () (raise-argument-error 'use-compiled-file-check \"(or/c 'modify-seconds 'exists)\" v_199)))" -" v_199))))))" +" (let-values () (raise-argument-error 'use-compiled-file-check \"(or/c 'modify-seconds 'exists)\" v_197)))" +" v_197))))))" "(define-values(1/use-collection-link-paths)(make-parameter #t(lambda(v_76)(if v_76 #t #f))))" -"(define-values(1/use-user-specific-search-paths)(make-parameter #t(lambda(v_200)(if v_200 #t #f))))" +"(define-values(1/use-user-specific-search-paths)(make-parameter #t(lambda(v_198)(if v_198 #t #f))))" "(define-values(complete-path-string?)(lambda(p_20)(begin(if(path-string? p_20)(complete-path? p_20) #f))))" "(define-values" "(relative-path-string?$1)" -"(lambda(p_55)(begin 'relative-path-string?(if(path-string? p_55)(relative-path? p_55) #f))))" -"(define-values(to-path)(lambda(p_56)(begin(if(string? p_56)(string->path p_56) p_56))))" +"(lambda(p_56)(begin 'relative-path-string?(if(path-string? p_56)(relative-path? p_56) #f))))" +"(define-values(to-path)(lambda(p_57)(begin(if(string? p_57)(string->path p_57) p_57))))" "(define-values" "(1/load)" "(lambda(s_0)" @@ -45792,8 +46085,8 @@ static const char *startup_source = "(begin" " (if (path-string? s_0) (void) (let-values () (raise-argument-error 'load \"path-string?\" s_0)))" "(values))))" -"(let-values(((p_57)(->path s_0)))" -"(call-with-current-load-relative-directory p_57(lambda()((1/current-load) p_57 #f))))))))))" +"(let-values(((p_58)(->path s_0)))" +"(call-with-current-load-relative-directory p_58(lambda()((1/current-load) p_58 #f))))))))))" "(define-values" "(1/load-extension)" "(lambda(s_1)" @@ -45807,13 +46100,13 @@ static const char *startup_source = "(void)" " (let-values () (raise-argument-error 'load-extension \"path-string?\" s_1)))" "(values))))" -"(let-values(((p_58)(->path s_1)))" -"(call-with-current-load-relative-directory p_58(lambda()((current-load-extension) p_58 #f))))))))))" +"(let-values(((p_59)(->path s_1)))" +"(call-with-current-load-relative-directory p_59(lambda()((current-load-extension) p_59 #f))))))))))" "(define-values" "(call-with-current-load-relative-directory)" "(lambda(p_30 thunk_4)" "(begin" -"(let-values(((base_18 name_55 dir?_2)(split-path p_30)))" +"(let-values(((base_18 name_54 dir?_2)(split-path p_30)))" "(with-continuation-mark" " parameterization-key" "(extend-parameterization" @@ -45834,22 +46127,22 @@ static const char *startup_source = "(void)" " (let-values () (raise-argument-error 'load/use-compiled \"path-string?\" f_25)))" "(values))))" -"(let-values(((p_46)(->path f_25)))((1/current-load/use-compiled) p_46 #f))))))))" +"(let-values(((p_47)(->path f_25)))((1/current-load/use-compiled) p_47 #f))))))))" "(define-values" "(embedded-load)" "(lambda(start_41 end_31 str_24 as-predefined?_0)" "(begin" -"(let-values(((s_144)" +"(let-values(((s_145)" "(if str_24" " str_24" "(let-values(((sp_0)(find-system-path 'exec-file)))" "(let-values(((exe_0)(find-executable-path sp_0 #f)))" "(let-values(((start_42)" -"(let-values(((or-part_298)(1/string->number start_41)))" -"(if or-part_298 or-part_298 0))))" +"(let-values(((or-part_296)(1/string->number start_41)))" +"(if or-part_296 or-part_296 0))))" "(let-values(((end_32)" -"(let-values(((or-part_300)(1/string->number end_31)))" -"(if or-part_300 or-part_300 0))))" +"(let-values(((or-part_298)(1/string->number end_31)))" +"(if or-part_298 or-part_298 0))))" "(let-values(((exe4_0) exe_0)" "((temp5_6)" "(lambda()" @@ -45859,8 +46152,8 @@ static const char *startup_source = "(file-position(current-input-port) start_42)" "(read-bytes(max 0(- end_32 start_42))))))))" "(with-input-from-file45.1 #f #f exe4_0 temp5_6)))))))))" -"(let-values(((p_59)(open-input-bytes s_144)))" -"((letrec-values(((loop_73)" +"(let-values(((p_60)(open-input-bytes s_145)))" +"((letrec-values(((loop_74)" "(lambda()" "(begin" " 'loop" @@ -45877,7 +46170,7 @@ static const char *startup_source = " #t" " read-on-demand-source" " #t)" -"(let-values()(1/read p_59)))))" +"(let-values()(1/read p_60)))))" "(if(eof-object? e_76)" "(void)" "(let-values()" @@ -45889,9 +46182,9 @@ static const char *startup_source = " current-module-declare-as-predefined" " as-predefined?_0)" "(let-values()((1/current-eval) e_76)))" -"(loop_73)))))))))" -" loop_73)))))))" -"(define-values(->path)(lambda(s_421)(begin(if(string? s_421)(string->path s_421) s_421))))" +"(loop_74)))))))))" +" loop_74)))))))" +"(define-values(->path)(lambda(s_428)(begin(if(string? s_428)(string->path s_428) s_428))))" "(define-values" "(find-main-collects)" "(lambda()" @@ -45912,20 +46205,20 @@ static const char *startup_source = "(path->complete-path" "(find-executable-path(find-system-path 'exec-file))" "(find-system-path 'orig-dir))))" -"(let-values(((base_19 name_63 dir?_3)(split-path exec_0)))" +"(let-values(((base_19 name_62 dir?_3)(split-path exec_0)))" "(simplify-path(path->complete-path collects-path_0 base_19)))))" "(let-values()" -"(let-values(((p_58)(find-executable-path(find-system-path 'exec-file) collects-path_0 #t)))" -"(if p_58(simplify-path p_58) #f))))))))" +"(let-values(((p_59)(find-executable-path(find-system-path 'exec-file) collects-path_0 #t)))" +"(if p_59(simplify-path p_59) #f))))))))" "(define-values(relative-path-string?)(lambda(s_0)(begin(if(path-string? s_0)(relative-path? s_0) #f))))" "(define-values" "(check-collection)" -"(lambda(who_23 s_154 l_4)" +"(lambda(who_23 s_155 l_4)" "(begin" "(begin" -"(if(relative-path-string? s_154)" +"(if(relative-path-string? s_155)" "(void)" -" (let-values () (raise-argument-error who_23 \"(and/c path-string? relative-path?)\" s_154)))" +" (let-values () (raise-argument-error who_23 \"(and/c path-string? relative-path?)\" s_155)))" "(if((lambda(l_2)(if(list? l_2)(andmap2 relative-path-string? l_2) #f)) l_4)" "(void)" " (let-values () (raise-argument-error who_23 \"(listof (and/c path-string? relative-path?))\" l_4)))))))" @@ -45933,7 +46226,7 @@ static const char *startup_source = "(check-fail)" "(lambda(who_24 fail_2)" "(begin" -"(if((lambda(p_50)(if(procedure? p_50)(procedure-arity-includes? p_50 1) #f)) fail_2)" +"(if((lambda(p_51)(if(procedure? p_51)(procedure-arity-includes? p_51 1) #f)) fail_2)" "(void)" " (let-values () (raise-argument-error who_24 \"(procedure-arity-includes/c 1)\" fail_2))))))" "(define-values" @@ -45964,13 +46257,13 @@ static const char *startup_source = "(find-col-file fail_4 collection_1 collection-path_1 file-name_0 check-compiled?_0)))))))" "(define-values" "(get-config-table)" -"(lambda(d_33)" +"(lambda(d_34)" "(begin" -" (let-values (((p_60) (if d_33 (build-path d_33 \"config.rktd\") #f)))" -"(let-values(((or-part_292)" -"(if p_60" -"(if(file-exists? p_60)" -"(let-values(((p9_0) p_60)" +" (let-values (((p_61) (if d_34 (build-path d_34 \"config.rktd\") #f)))" +"(let-values(((or-part_290)" +"(if p_61" +"(if(file-exists? p_61)" +"(let-values(((p9_0) p_61)" "((temp10_3)" "(lambda()" "(begin" @@ -45980,7 +46273,7 @@ static const char *startup_source = "(with-input-from-file45.1 #f #f p9_0 temp10_3))" " #f)" " #f)))" -"(if or-part_292 or-part_292 '#hash()))))))" +"(if or-part_290 or-part_290 '#hash()))))))" "(define-values" "(get-installation-name)" "(lambda(config-table_0)(begin(hash-ref config-table_0 'installation-name(version)))))" @@ -45995,30 +46288,30 @@ static const char *startup_source = "(if(path? p_1)(let-values()(collects-relative-path->complete-path p_1))(let-values() p_1)))))))" "(define-values" "(collects-relative-path->complete-path)" -"(lambda(p_61)" +"(lambda(p_62)" "(begin" -"(if(complete-path? p_61)" -"(let-values() p_61)" +"(if(complete-path? p_62)" +"(let-values() p_62)" "(let-values()" "(path->complete-path" -" p_61" -"(let-values(((or-part_172)(find-main-collects)))(if or-part_172 or-part_172(current-directory)))))))))" +" p_62" +"(let-values(((or-part_174)(find-main-collects)))(if or-part_174 or-part_174(current-directory)))))))))" "(define-values" "(add-config-search)" -"(lambda(ht_152 key_84 orig-l_9)" +"(lambda(ht_154 key_85 orig-l_9)" "(begin" -"(let-values(((l_75)(hash-ref ht_152 key_84 #f)))" +"(let-values(((l_75)(hash-ref ht_154 key_85 #f)))" "(if l_75" -"((letrec-values(((loop_98)" +"((letrec-values(((loop_99)" "(lambda(l_76)" "(begin" " 'loop" "(if(null? l_76)" "(let-values() null)" "(if(not(car l_76))" -"(let-values()(append orig-l_9(loop_98(cdr l_76))))" -"(let-values()(cons(coerce-to-path(car l_76))(loop_98(cdr l_76))))))))))" -" loop_98)" +"(let-values()(append orig-l_9(loop_99(cdr l_76))))" +"(let-values()(cons(coerce-to-path(car l_76))(loop_99(cdr l_76))))))))))" +" loop_99)" " l_75)" " orig-l_9)))))" "(define-values" @@ -46026,22 +46319,22 @@ static const char *startup_source = "(lambda()" "(begin" " 'find-library-collection-links" -"(let-values(((ht_153)(get-config-table(find-main-config))))" +"(let-values(((ht_155)(get-config-table(find-main-config))))" "(let-values(((lf_0)" "(coerce-to-path" -"(let-values(((or-part_70)(hash-ref ht_153 'links-file #f)))" -"(if or-part_70" -" or-part_70" +"(let-values(((or-part_69)(hash-ref ht_155 'links-file #f)))" +"(if or-part_69" +" or-part_69" "(build-path" -"(let-values(((or-part_71)(hash-ref ht_153 'share-dir #f)))" -" (if or-part_71 or-part_71 (build-path 'up \"share\")))" +"(let-values(((or-part_70)(hash-ref ht_155 'share-dir #f)))" +" (if or-part_70 or-part_70 (build-path 'up \"share\")))" " \"links.rktd\"))))))" "(append" "(list #f)" "(if(if(1/use-user-specific-search-paths)(1/use-collection-link-paths) #f)" -" (list (build-path (find-system-path 'addon-dir) (get-installation-name ht_153) \"links.rktd\"))" +" (list (build-path (find-system-path 'addon-dir) (get-installation-name ht_155) \"links.rktd\"))" " null)" -"(if(1/use-collection-link-paths)(add-config-search ht_153 'links-search-files(list lf_0)) null)))))))" +"(if(1/use-collection-link-paths)(add-config-search ht_155 'links-search-files(list lf_0)) null)))))))" "(define-values(links-cache)(make-weak-hash))" "(define-values(stamp-prompt-tag)(make-continuation-prompt-tag 'stamp))" "(define-values" @@ -46065,7 +46358,7 @@ static const char *startup_source = "(lambda(path_8)" "(begin" " 'loop" -"(let-values(((base_20 name_64 dir?_4)(split-path path_8)))" +"(let-values(((base_20 name_63 dir?_4)(split-path path_8)))" "(if(path? base_20)" "(if(directory-exists? base_20)" "(filesystem-change-evt base_20(lambda() #f))" @@ -46091,22 +46384,22 @@ static const char *startup_source = "(begin" "(let-values(((path11_0) path_9)" "((temp12_3)" -"(lambda(p_62)" +"(lambda(p_63)" "(begin" " 'temp12" -"(let-values(((bstr_1)(read-bytes 8192 p_62)))" +"(let-values(((bstr_1)(read-bytes 8192 p_63)))" "(if(if(bytes? bstr_1)(>=(bytes-length bstr_1) 8192) #f)" "(apply" " bytes-append" "(cons" " bstr_1" -"((letrec-values(((loop_99)" +"((letrec-values(((loop_100)" "(lambda()" "(begin" " 'loop" -"(let-values(((bstr_2)(read-bytes 8192 p_62)))" -"(if(eof-object? bstr_2) null(cons bstr_2(loop_99))))))))" -" loop_99))))" +"(let-values(((bstr_2)(read-bytes 8192 p_63)))" +"(if(eof-object? bstr_2) null(cons bstr_2(loop_100))))))))" +" loop_100))))" " bstr_1))))))" "(call-with-input-file*61.1 #f #f path11_0 temp12_3)))))" "(define-values" @@ -46156,62 +46449,62 @@ static const char *startup_source = "(lambda()" "(call-with-default-reading-parameterization" "(lambda()" -"(let-values(((v_201)" +"(let-values(((v_199)" "(if(no-file-stamp? ts_1)" " null" "(let-values(((links-path13_0) links-path_0)" "((temp14_5)" -"(lambda(p_63)" +"(lambda(p_64)" "(begin" " 'temp14" "(begin0" -"(1/read p_63)" -"(if(eof-object?(1/read p_63))" +"(1/read p_64)" +"(if(eof-object?(1/read p_64))" "(void)" "(let-values()" " (error \"expected a single S-expression\"))))))))" "(call-with-input-file*61.1 #f #f links-path13_0 temp14_5)))))" "(let-values((()" "(begin" -"(if(if(list? v_201)" +"(if(if(list? v_199)" "(andmap2" -"(lambda(p_64)" -"(if(list? p_64)" -"(if(let-values(((or-part_63)(= 2(length p_64))))" -"(if or-part_63 or-part_63(= 3(length p_64))))" -"(if(let-values(((or-part_302)(string?(car p_64))))" -"(if or-part_302" -" or-part_302" -"(let-values(((or-part_303)" -"(eq? 'root(car p_64))))" -"(if or-part_303" -" or-part_303" -"(eq? 'static-root(car p_64))))))" -"(if(path-string?(cadr p_64))" -"(let-values(((or-part_64)(null?(cddr p_64))))" -"(if or-part_64 or-part_64(regexp?(caddr p_64))))" +"(lambda(p_65)" +"(if(list? p_65)" +"(if(let-values(((or-part_228)(= 2(length p_65))))" +"(if or-part_228 or-part_228(= 3(length p_65))))" +"(if(let-values(((or-part_300)(string?(car p_65))))" +"(if or-part_300" +" or-part_300" +"(let-values(((or-part_301)" +"(eq? 'root(car p_65))))" +"(if or-part_301" +" or-part_301" +"(eq? 'static-root(car p_65))))))" +"(if(path-string?(cadr p_65))" +"(let-values(((or-part_302)(null?(cddr p_65))))" +"(if or-part_302 or-part_302(regexp?(caddr p_65))))" " #f)" " #f)" " #f)" " #f))" -" v_201)" +" v_199)" " #f)" "(void)" " (let-values () (error \"ill-formed content\")))" "(values))))" -"(let-values(((ht_154)(make-hasheq)))" +"(let-values(((ht_156)(make-hasheq)))" "(let-values(((dir_0)" -"(let-values(((base_21 name_65 dir?_5)(split-path links-path_0)))" +"(let-values(((base_21 name_64 dir?_5)(split-path links-path_0)))" " base_21)))" "(begin" "(for-each2" -"(lambda(p_65)" -"(if(let-values(((or-part_65)(null?(cddr p_65))))" -"(if or-part_65 or-part_65(regexp-match?(caddr p_65)(version))))" +"(lambda(p_66)" +"(if(let-values(((or-part_303)(null?(cddr p_66))))" +"(if or-part_303 or-part_303(regexp-match?(caddr p_66)(version))))" "(let-values()" "(let-values(((dir_1)" -"(simplify-path(path->complete-path(cadr p_65) dir_0))))" -"(if(eq?(car p_65) 'static-root)" +"(simplify-path(path->complete-path(cadr p_66) dir_0))))" +"(if(eq?(car p_66) 'static-root)" "(let-values()" "(for-each2" "(lambda(sub_1)" @@ -46219,34 +46512,34 @@ static const char *startup_source = "(let-values()" "(let-values(((k_36)(string->symbol(path->string sub_1))))" "(hash-set!" -" ht_154" +" ht_156" " k_36" -"(cons dir_1(hash-ref ht_154 k_36 null)))))" +"(cons dir_1(hash-ref ht_156 k_36 null)))))" "(void)))" "(directory-list dir_1)))" -"(if(eq?(car p_65) 'root)" +"(if(eq?(car p_66) 'root)" "(let-values()" "(begin" -"(if(hash-ref ht_154 #f #f)" +"(if(hash-ref ht_156 #f #f)" "(void)" -"(let-values()(hash-set! ht_154 #f null)))" +"(let-values()(hash-set! ht_156 #f null)))" "(hash-for-each" -" ht_154" -"(lambda(k_37 v_202)" -"(hash-set! ht_154 k_37(cons dir_1 v_202))))))" +" ht_156" +"(lambda(k_37 v_200)" +"(hash-set! ht_156 k_37(cons dir_1 v_200))))))" "(let-values()" -"(let-values(((s_16)(string->symbol(car p_65))))" +"(let-values(((s_16)(string->symbol(car p_66))))" "(hash-set!" -" ht_154" +" ht_156" " s_16" -"(cons(box dir_1)(hash-ref ht_154 s_16 null)))))))))" +"(cons(box dir_1)(hash-ref ht_156 s_16 null)))))))))" "(void)))" -" v_201)" +" v_199)" "(hash-for-each" -" ht_154" -"(lambda(k_38 v_203)(hash-set! ht_154 k_38(reverse$1 v_203))))" -"(hash-set! links-cache links-path_0(cons ts_1 ht_154))" -" ht_154))))))))))))))))))))))" +" ht_156" +"(lambda(k_38 v_201)(hash-set! ht_156 k_38(reverse$1 v_201))))" +"(hash-set! links-cache links-path_0(cons ts_1 ht_156))" +" ht_156))))))))))))))))))))))" "(define-values" "(normalize-collection-reference)" "(lambda(collection_2 collection-path_2)" @@ -46263,10 +46556,10 @@ static const char *startup_source = "(cons(substring collection_2(cdar m_23)) collection-path_2))))" "(values collection_2 collection-path_2))))" "(let-values()" -"(let-values(((base_22 name_66 dir?_6)(split-path collection_2)))" +"(let-values(((base_22 name_65 dir?_6)(split-path collection_2)))" "(if(eq? base_22 'relative)" -"(values name_66 collection-path_2)" -"(normalize-collection-reference base_22(cons name_66 collection-path_2)))))))))" +"(values name_65 collection-path_2)" +"(normalize-collection-reference base_22(cons name_65 collection-path_2)))))))))" "(define-values" "(find-col-file)" "(lambda(fail_5 collection-in_0 collection-path-in_0 file-name_1 check-compiled?_1)" @@ -46277,7 +46570,7 @@ static const char *startup_source = "(let-values(((sym_91)" "(string->symbol" "(if(path? collection_3)(path->string collection_3) collection_3))))" -"((letrec-values(((loop_100)" +"((letrec-values(((loop_101)" "(lambda(l_78)" "(begin" " 'loop" @@ -46285,30 +46578,30 @@ static const char *startup_source = "(let-values() null)" "(if(not(car l_78))" "(let-values()" -"(append(1/current-library-collection-paths)(loop_100(cdr l_78))))" +"(append(1/current-library-collection-paths)(loop_101(cdr l_78))))" "(if(hash?(car l_78))" "(let-values()" "(append" "(map2 box(hash-ref(car l_78) sym_91 null))" "(hash-ref(car l_78) #f null)" -"(loop_100(cdr l_78))))" +"(loop_101(cdr l_78))))" "(let-values()" -"(let-values(((ht_155)(get-linked-collections(car l_78))))" +"(let-values(((ht_157)(get-linked-collections(car l_78))))" "(append" -"(hash-ref ht_155 sym_91 null)" -"(hash-ref ht_155 #f null)" -"(loop_100(cdr l_78))))))))))))" -" loop_100)" +"(hash-ref ht_157 sym_91 null)" +"(hash-ref ht_157 #f null)" +"(loop_101(cdr l_78))))))))))))" +" loop_101)" "(1/current-library-collection-links)))))" "(let-values(((done_1)(lambda(p_11)(begin 'done(if file-name_1(build-path p_11 file-name_1) p_11)))))" "(let-values(((*build-path-rep_0)" "(lambda(p_25 c_53)" "(begin '*build-path-rep(if(path? p_25)(build-path p_25 c_53)(unbox p_25))))))" "(let-values(((*directory-exists?_0)" -"(lambda(orig_0 p_45)" -"(begin '*directory-exists?(if(path? orig_0)(directory-exists? p_45) #t)))))" +"(lambda(orig_0 p_46)" +"(begin '*directory-exists?(if(path? orig_0)(directory-exists? p_46) #t)))))" "(let-values(((to-string_0)" -"(lambda(p_66)(begin 'to-string(if(path? p_66)(path->string p_66) p_66)))))" +"(lambda(p_67)(begin 'to-string(if(path? p_67)(path->string p_67) p_67)))))" "((letrec-values(((cloop_0)" "(lambda(paths_1 found-col_0)" "(begin" @@ -46370,7 +46663,7 @@ static const char *startup_source = "(apply" " string-append" "(map2" -" (lambda (p_67) (format \"\\n ~a\" (unbox p_67)))" +" (lambda (p_68) (format \"\\n ~a\" (unbox p_68)))" "(filter_1 box? all-paths_0))))" " \"\"))))))" "(let-values(((dir_2)(*build-path-rep_0(car paths_1) collection_3)))" @@ -46415,8 +46708,8 @@ static const char *startup_source = "(done_1 cpath_0)" "(cloop_0" "(cdr paths_1)" -"(let-values(((or-part_222) found-col_0))" -"(if or-part_222 or-part_222 cpath_0))))" +"(let-values(((or-part_221) found-col_0))" +"(if or-part_221 or-part_221 cpath_0))))" "(done_1 cpath_0))" "(cloop_0(cdr paths_1) found-col_0)))" "(cloop_0(cdr paths_1) found-col_0))))))))" @@ -46427,24 +46720,24 @@ static const char *startup_source = "(file-exists?/maybe-compiled)" "(lambda(dir_3 path_10 check-compiled?_2)" "(begin" -"(let-values(((or-part_94)(file-exists?(build-path dir_3 path_10))))" -"(if or-part_94" -" or-part_94" +"(let-values(((or-part_93)(file-exists?(build-path dir_3 path_10))))" +"(if or-part_93" +" or-part_93" "(if check-compiled?_2" " (let-values (((try-path_0) (path-add-extension path_10 #\".zo\"))" "((modes_0)(1/use-compiled-file-paths))" "((roots_0)(1/current-compiled-file-roots)))" "(ormap2" -"(lambda(d_34)" +"(lambda(d_35)" "(ormap2" "(lambda(mode_15)" "(file-exists?" -"(let-values(((p_68)(build-path dir_3 mode_15 try-path_0)))" -"(if(eq? d_34 'same)" -"(let-values() p_68)" -"(if(relative-path? d_34)" -"(let-values()(build-path p_68 d_34))" -"(let-values()(reroot-path p_68 d_34)))))))" +"(let-values(((p_69)(build-path dir_3 mode_15 try-path_0)))" +"(if(eq? d_35 'same)" +"(let-values() p_69)" +"(if(relative-path? d_35)" +"(let-values()(build-path p_69 d_35))" +"(let-values()(reroot-path p_69 d_35)))))))" " modes_0))" " roots_0))" " #f))))))" @@ -46459,7 +46752,7 @@ static const char *startup_source = "(let-values()" "(let-values(((user-too?_0)(1/use-user-specific-search-paths))" "((cons-if_0)" -"(lambda(f_38 r_44)(begin 'cons-if(if f_38(cons f_38 r_44) r_44))))" +"(lambda(f_38 r_43)(begin 'cons-if(if f_38(cons f_38 r_43) r_43))))" "((config-table_1)(get-config-table(find-main-config))))" "(path-list-string->path-list" "(if user-too?_0" @@ -46479,23 +46772,23 @@ static const char *startup_source = "(get-installation-name config-table_1)" " \"collects\")" " #f)" -"((letrec-values(((loop_84)" +"((letrec-values(((loop_85)" "(lambda(l_79)" "(begin" " 'loop" "(if(null? l_79)" " null" "(let-values(((collects-path_1)(car l_79)))" -"(let-values(((v_204)" +"(let-values(((v_202)" "(exe-relative-path->complete-path" " collects-path_1)))" -"(if v_204" +"(if v_202" "(cons" "(simplify-path" -"(path->complete-path v_204(current-directory)))" -"(loop_84(cdr l_79)))" -"(loop_84(cdr l_79))))))))))" -" loop_84)" +"(path->complete-path v_202(current-directory)))" +"(loop_85(cdr l_79)))" +"(loop_85(cdr l_79))))))))))" +" loop_85)" "(append" " extra-collects-dirs_0" "(list(find-system-path 'collects-dir))" @@ -46641,44 +46934,42 @@ static const char *startup_source = " pos_107" " indentations_0" " keep-comment?_0))))" -"(define-values(read-config-wrap)(lambda(v_205)(begin(read-config/outer-wrap v_205))))" -"(define-values(read-config-line)(lambda(v_206)(begin(read-config/outer-line v_206))))" -"(define-values(read-config-col)(lambda(v_207)(begin(read-config/outer-col v_207))))" -"(define-values(read-config-pos)(lambda(v_208)(begin(read-config/outer-pos v_208))))" -"(define-values(read-config-indentations)(lambda(v_209)(begin(read-config/outer-indentations v_209))))" -"(define-values(read-config-keep-comment?)(lambda(v_210)(begin(read-config/outer-keep-comment? v_210))))" +"(define-values(read-config-wrap)(lambda(v_203)(begin(read-config/outer-wrap v_203))))" +"(define-values(read-config-line)(lambda(v_204)(begin(read-config/outer-line v_204))))" +"(define-values(read-config-col)(lambda(v_205)(begin(read-config/outer-col v_205))))" +"(define-values(read-config-pos)(lambda(v_206)(begin(read-config/outer-pos v_206))))" +"(define-values(read-config-indentations)(lambda(v_207)(begin(read-config/outer-indentations v_207))))" +"(define-values(read-config-keep-comment?)(lambda(v_208)(begin(read-config/outer-keep-comment? v_208))))" "(define-values" "(read-config-readtable)" -"(lambda(v_211)(begin(read-config/inner-readtable(read-config/outer-inner v_211)))))" +"(lambda(v_209)(begin(read-config/inner-readtable(read-config/outer-inner v_209)))))" "(define-values" "(read-config-next-readtable)" -"(lambda(v_212)(begin(read-config/inner-next-readtable(read-config/outer-inner v_212)))))" +"(lambda(v_210)(begin(read-config/inner-next-readtable(read-config/outer-inner v_210)))))" "(define-values" "(read-config-for-syntax?)" -"(lambda(v_213)(begin(read-config/inner-for-syntax?(read-config/outer-inner v_213)))))" -"(define-values(read-config-source)(lambda(v_70)(begin(read-config/inner-source(read-config/outer-inner v_70)))))" +"(lambda(v_211)(begin(read-config/inner-for-syntax?(read-config/outer-inner v_211)))))" +"(define-values(read-config-source)(lambda(v_69)(begin(read-config/inner-source(read-config/outer-inner v_69)))))" "(define-values" "(read-config-read-compiled)" -"(lambda(v_185)(begin(read-config/inner-read-compiled(read-config/outer-inner v_185)))))" +"(lambda(v_183)(begin(read-config/inner-read-compiled(read-config/outer-inner v_183)))))" "(define-values" "(read-config-dynamic-require)" -"(lambda(v_214)(begin(read-config/inner-dynamic-require(read-config/outer-inner v_214)))))" +"(lambda(v_212)(begin(read-config/inner-dynamic-require(read-config/outer-inner v_212)))))" "(define-values" "(read-config-module-declared?)" -"(lambda(v_135)(begin(read-config/inner-module-declared?(read-config/outer-inner v_135)))))" -"(define-values" -"(read-config-coerce)" -"(lambda(v_215)(begin(read-config/inner-coerce(read-config/outer-inner v_215)))))" +"(lambda(v_213)(begin(read-config/inner-module-declared?(read-config/outer-inner v_213)))))" +"(define-values(read-config-coerce)(lambda(v_77)(begin(read-config/inner-coerce(read-config/outer-inner v_77)))))" "(define-values" "(read-config-coerce-key)" -"(lambda(v_216)(begin(read-config/inner-coerce-key(read-config/outer-inner v_216)))))" +"(lambda(v_214)(begin(read-config/inner-coerce-key(read-config/outer-inner v_214)))))" "(define-values" "(read-config-parameter-override)" -"(lambda(v_204)(begin(read-config/inner-parameter-override(read-config/outer-inner v_204)))))" +"(lambda(v_202)(begin(read-config/inner-parameter-override(read-config/outer-inner v_202)))))" "(define-values" "(read-config-parameter-cache)" -"(lambda(v_217)(begin(read-config/inner-parameter-cache(read-config/outer-inner v_217)))))" -"(define-values(read-config-st)(lambda(v_190)(begin(read-config/inner-st(read-config/outer-inner v_190)))))" +"(lambda(v_215)(begin(read-config/inner-parameter-cache(read-config/outer-inner v_215)))))" +"(define-values(read-config-st)(lambda(v_188)(begin(read-config/inner-st(read-config/outer-inner v_188)))))" "(define-values" "(struct:read-config-state" " read-config-state3.1" @@ -46755,21 +47046,21 @@ static const char *startup_source = " for-syntax?_1" " source_2" " wrap_4" -"(let-values(((or-part_88) read-compiled_1))" -" (if or-part_88 or-part_88 (lambda (in_0) (error 'read \"no `read-compiled` provided\"))))" -"(let-values(((or-part_90) dynamic-require_1))" -"(if or-part_90" -" or-part_90" +"(let-values(((or-part_86) read-compiled_1))" +" (if or-part_86 or-part_86 (lambda (in_0) (error 'read \"no `read-compiled` provided\"))))" +"(let-values(((or-part_88) dynamic-require_1))" +"(if or-part_88" +" or-part_88" "(lambda(mod-path_25 sym_73 failure-k_0)" " (error 'read \"no `dynamic-require` provided\"))))" "(let-values(((or-part_304) module-declared?_1))" "(if or-part_304" " or-part_304" " (lambda (mod-path_26) (error 'read \"no `module-declare?` provided\"))))" -"(let-values(((or-part_224) coerce_1))" -"(if or-part_224 or-part_224(lambda(for-syntax?_2 v_109 srcloc_9) v_109)))" +"(let-values(((or-part_223) coerce_1))" +"(if or-part_223 or-part_223(lambda(for-syntax?_2 v_110 srcloc_9) v_110)))" "(let-values(((or-part_265) coerce-key_1))" -"(if or-part_265 or-part_265(lambda(for-syntax?_3 v_113) v_113)))" +"(if or-part_265 or-part_265(lambda(for-syntax?_3 v_114) v_114)))" " #f" " #f" " #f" @@ -46799,14 +47090,14 @@ static const char *startup_source = "(let-values(((local-graph?_0) reset-graph?33_0))" "(let-values(((keep-comment?_2) keep-comment?34_0))" "(let-values()" -"(let-values(((v_218) config_0))" -"(let-values(((the-struct_79) v_218))" -"(if(read-config/outer? the-struct_79)" +"(let-values(((v_216) config_0))" +"(let-values(((the-struct_75) v_216))" +"(if(read-config/outer? the-struct_75)" "(let-values(((wrap48_0) wrap_5)" "((keep-comment?49_0) keep-comment?_2)" "((inner50_1)" -"(let-values(((the-struct_80)(read-config/outer-inner v_218)))" -"(if(read-config/inner? the-struct_80)" +"(let-values(((the-struct_76)(read-config/outer-inner v_216)))" +"(if(read-config/inner? the-struct_76)" "(let-values(((for-syntax?51_0) for-syntax?_4)" "((readtable52_0) readtable_2)" "((next-readtable53_0) next-readtable_2)" @@ -46818,25 +47109,25 @@ static const char *startup_source = " readtable52_0" " next-readtable53_0" " for-syntax?51_0" -"(read-config/inner-source the-struct_80)" -"(read-config/inner-read-compiled the-struct_80)" -"(read-config/inner-dynamic-require the-struct_80)" -"(read-config/inner-module-declared? the-struct_80)" -"(read-config/inner-coerce the-struct_80)" -"(read-config/inner-coerce-key the-struct_80)" -"(read-config/inner-parameter-override the-struct_80)" -"(read-config/inner-parameter-cache the-struct_80)" +"(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)" " st54_0))" -" (raise-argument-error 'struct-copy \"read-config/inner?\" the-struct_80)))))" +" (raise-argument-error 'struct-copy \"read-config/inner?\" the-struct_76)))))" "(read-config/outer1.1" " inner50_1" " wrap48_0" -"(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-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)" " keep-comment?49_0))" -" (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_79)))))))))))))))" +" (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_75)))))))))))))))" "(define-values" "(port+config->srcloc)" "(lambda(in_1 config_1)" @@ -46855,13 +47146,13 @@ static const char *startup_source = "(reading-at)" "(lambda(config_2 line_2 col_1 pos_108)" "(begin" -"(let-values(((v_219) config_2))" -"(let-values(((the-struct_38) v_219))" +"(let-values(((v_217) config_2))" +"(let-values(((the-struct_38) v_217))" "(if(read-config/outer? the-struct_38)" "(let-values(((line55_0) line_2)" "((col56_0) col_1)" "((pos57_0) pos_108)" -"((inner58_1)(read-config/outer-inner v_219)))" +"((inner58_1)(read-config/outer-inner v_217)))" "(read-config/outer1.1" " inner58_1" "(read-config/outer-wrap the-struct_38)" @@ -46875,36 +47166,36 @@ static const char *startup_source = "(disable-wrapping)" "(lambda(config_3)" "(begin" -"(let-values(((v_220) config_3))" -"(let-values(((the-struct_81) v_220))" -"(if(read-config/outer? the-struct_81)" -"(let-values(((wrap59_0) #f)((inner60_0)(read-config/outer-inner v_220)))" +"(let-values(((v_73) config_3))" +"(let-values(((the-struct_77) v_73))" +"(if(read-config/outer? the-struct_77)" +"(let-values(((wrap59_0) #f)((inner60_0)(read-config/outer-inner v_73)))" "(read-config/outer1.1" " inner60_0" " wrap59_0" -"(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-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_74) config_4))" -"(let-values(((the-struct_82) v_74))" -"(if(read-config/outer? the-struct_82)" -"(let-values(((keep-comment?61_0) #t)((inner62_0)(read-config/outer-inner v_74)))" +"(let-values(((v_218) config_4))" +"(let-values(((the-struct_78) v_218))" +"(if(read-config/outer? the-struct_78)" +"(let-values(((keep-comment?61_0) #t)((inner62_0)(read-config/outer-inner v_218)))" "(read-config/outer1.1" " inner62_0" -"(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-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?61_0))" -" (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_82)))))))" +" (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_78)))))))" "(define-values" "(discard-comment)" "(lambda(config_5)" @@ -46912,19 +47203,19 @@ static const char *startup_source = "(if(not(read-config-keep-comment? config_5))" "(let-values() config_5)" "(let-values()" -"(let-values(((v_146) config_5))" -"(let-values(((the-struct_83) v_146))" -"(if(read-config/outer? the-struct_83)" -"(let-values(((keep-comment?63_0) #f)((inner64_0)(read-config/outer-inner v_146)))" +"(let-values(((v_219) config_5))" +"(let-values(((the-struct_79) v_219))" +"(if(read-config/outer? the-struct_79)" +"(let-values(((keep-comment?63_0) #f)((inner64_0)(read-config/outer-inner v_219)))" "(read-config/outer1.1" " inner64_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-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?63_0))" -" (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_83)))))))))" +" (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_79)))))))))" "(define-values" "(next-readtable)" "(lambda(config_6)" @@ -46932,65 +47223,65 @@ static const char *startup_source = "(if(eq?(read-config-readtable config_6)(read-config-next-readtable config_6))" "(let-values() config_6)" "(let-values()" -"(let-values(((v_221) config_6))" -"(let-values(((the-struct_84) v_221))" -"(if(read-config/outer? the-struct_84)" +"(let-values(((v_144) config_6))" +"(let-values(((the-struct_80) v_144))" +"(if(read-config/outer? the-struct_80)" "(let-values(((inner65_0)" -"(let-values(((the-struct_85)(read-config/outer-inner v_221)))" -"(if(read-config/inner? the-struct_85)" +"(let-values(((the-struct_81)(read-config/outer-inner v_144)))" +"(if(read-config/inner? the-struct_81)" "(let-values(((readtable66_0)(read-config-next-readtable config_6)))" "(read-config/inner2.1" " readtable66_0" -"(read-config/inner-next-readtable the-struct_85)" -"(read-config/inner-for-syntax? the-struct_85)" -"(read-config/inner-source the-struct_85)" -"(read-config/inner-read-compiled the-struct_85)" -"(read-config/inner-dynamic-require the-struct_85)" -"(read-config/inner-module-declared? the-struct_85)" -"(read-config/inner-coerce the-struct_85)" -"(read-config/inner-coerce-key the-struct_85)" -"(read-config/inner-parameter-override the-struct_85)" -"(read-config/inner-parameter-cache the-struct_85)" -"(read-config/inner-st the-struct_85)))" -" (raise-argument-error 'struct-copy \"read-config/inner?\" the-struct_85)))))" +"(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" " inner65_0" -"(read-config/outer-wrap the-struct_84)" -"(read-config/outer-line the-struct_84)" -"(read-config/outer-col the-struct_84)" -"(read-config/outer-pos the-struct_84)" -"(read-config/outer-indentations the-struct_84)" -"(read-config/outer-keep-comment? the-struct_84)))" -" (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_84)))))))))" +"(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_74 in_2 config_7)" +"(lambda(val_75 in_2 config_7)" "(begin" "(let-values(((for-syntax?_5)(read-config-for-syntax? config_7)))" "((read-config-coerce config_7)" " for-syntax?_5" -" val_74" +" val_75" "(if for-syntax?_5(port+config->srcloc in_2 config_7) #f))))))" -"(define-values(default-reader-guard$1)(lambda(v_222)(begin 'default-reader-guard v_222)))" +"(define-values(default-reader-guard$1)(lambda(v_220)(begin 'default-reader-guard v_220)))" "(define-values" "(1/current-reader-guard)" "(make-parameter" " default-reader-guard$1" -"(lambda(v_223)" +"(lambda(v_221)" "(begin" -"(if(if(procedure? v_223)(procedure-arity-includes? v_223 1) #f)" +"(if(if(procedure? v_221)(procedure-arity-includes? v_221 1) #f)" "(void)" -" (let-values () (raise-argument-error 'current-reader-guard \"(procedure-arity-includes/c 1)\" v_223)))" -" v_223))))" +" (let-values () (raise-argument-error 'current-reader-guard \"(procedure-arity-includes/c 1)\" v_221)))" +" v_221))))" "(define-values(1/read-square-bracket-as-paren)(make-parameter #t(lambda(v_1)(if v_1 #t #f))))" -"(define-values(1/read-curly-brace-as-paren)(make-parameter #t(lambda(v_224)(if v_224 #t #f))))" -"(define-values(1/read-square-bracket-with-tag)(make-parameter #f(lambda(v_225)(if v_225 #t #f))))" -"(define-values(1/read-curly-brace-with-tag)(make-parameter #f(lambda(v_61)(if v_61 #t #f))))" +"(define-values(1/read-curly-brace-as-paren)(make-parameter #t(lambda(v_222)(if v_222 #t #f))))" +"(define-values(1/read-square-bracket-with-tag)(make-parameter #f(lambda(v_223)(if v_223 #t #f))))" +"(define-values(1/read-curly-brace-with-tag)(make-parameter #f(lambda(v_60)(if v_60 #t #f))))" "(define-values(1/read-cdot)(make-parameter #f(lambda(v_29)(if v_29 #t #f))))" -"(define-values(1/read-accept-graph)(make-parameter #t(lambda(v_62)(if v_62 #t #f))))" +"(define-values(1/read-accept-graph)(make-parameter #t(lambda(v_61)(if v_61 #t #f))))" "(define-values(1/read-accept-compiled)(make-parameter #f(lambda(v_2)(if v_2 #t #f))))" -"(define-values(1/read-accept-box)(make-parameter #t(lambda(v_82)(if v_82 #t #f))))" -"(define-values(1/read-decimal-as-inexact)(make-parameter #t(lambda(v_226)(if v_226 #t #f))))" +"(define-values(1/read-accept-box)(make-parameter #t(lambda(v_83)(if v_83 #t #f))))" +"(define-values(1/read-decimal-as-inexact)(make-parameter #t(lambda(v_224)(if v_224 #t #f))))" "(define-values(1/read-accept-dot)(make-parameter #t(lambda(v_75)(if v_75 #t #f))))" "(define-values(1/read-accept-infix-dot)(make-parameter #t(lambda(v_30)(if v_30 #t #f))))" "(define-values(1/read-accept-quasiquote)(make-parameter #t(lambda(v_3)(if v_3 #t #f))))" @@ -47002,46 +47293,46 @@ static const char *startup_source = "(lambda(param_0 config_8)" "(begin" "(let-values(((cache_4)(read-config-parameter-cache config_8)))" -"(let-values(((v_64)" +"(let-values(((v_63)" "(hash-ref(read-config-parameter-override config_8) param_0(hash-ref cache_4 param_0 unknown))))" -"(if(eq? v_64 unknown)" -"(let-values()(let-values(((v_65)(param_0)))(begin(hash-set! cache_4 param_0 v_65) v_65)))" -"(let-values() v_64)))))))" +"(if(eq? v_63 unknown)" +"(let-values()(let-values(((v_64)(param_0)))(begin(hash-set! cache_4 param_0 v_64) v_64)))" +"(let-values() v_63)))))))" "(define-values" "(override-parameter)" "(lambda(param_1 config_9 v_28)" "(begin" -"(let-values(((v_92) config_9))" -"(let-values(((the-struct_86) v_92))" -"(if(read-config/outer? the-struct_86)" +"(let-values(((v_93) config_9))" +"(let-values(((the-struct_82) v_93))" +"(if(read-config/outer? the-struct_82)" "(let-values(((inner1_0)" -"(let-values(((the-struct_87)(read-config/outer-inner v_92)))" -"(if(read-config/inner? the-struct_87)" +"(let-values(((the-struct_83)(read-config/outer-inner v_93)))" +"(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_87)" -"(read-config/inner-next-readtable the-struct_87)" -"(read-config/inner-for-syntax? the-struct_87)" -"(read-config/inner-source the-struct_87)" -"(read-config/inner-read-compiled the-struct_87)" -"(read-config/inner-dynamic-require the-struct_87)" -"(read-config/inner-module-declared? the-struct_87)" -"(read-config/inner-coerce the-struct_87)" -"(read-config/inner-coerce-key the-struct_87)" +"(read-config/inner-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_87)" -"(read-config/inner-st the-struct_87)))" -" (raise-argument-error 'struct-copy \"read-config/inner?\" the-struct_87)))))" +"(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_86)" -"(read-config/outer-line the-struct_86)" -"(read-config/outer-col the-struct_86)" -"(read-config/outer-pos the-struct_86)" -"(read-config/outer-indentations the-struct_86)" -"(read-config/outer-keep-comment? the-struct_86)))" -" (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_86)))))))" +"(read-config/outer-wrap the-struct_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)" @@ -47126,30 +47417,30 @@ static const char *startup_source = "(if(let-values(((or-part_52)(not rt_0)))(if or-part_52 or-part_52(1/readtable? rt_0)))" "(void)" " (let-values () (raise-argument-error 'make-readtable \"(or/c readtable? #f)\" rt_0)))" -"((letrec-values(((loop_101)" +"((letrec-values(((loop_102)" "(lambda(args_8 symbol-parser_0 char-ht_0 dispatch-ht_0 delimiter-ht_0)" "(begin" " 'loop" "(if(null? args_8)" "(let-values()(readtable1.1 symbol-parser_0 char-ht_0 dispatch-ht_0 delimiter-ht_0))" "(let-values()" -"(let-values(((key_85)(car args_8)))" +"(let-values(((key_86)(car args_8)))" "(let-values((()" "(begin" -"(if(let-values(((or-part_167)(not key_85)))" -"(if or-part_167 or-part_167(char? key_85)))" +"(if(let-values(((or-part_169)(not key_86)))" +"(if or-part_169 or-part_169(char? key_86)))" "(void)" "(let-values()" "(raise-argument-error" " 'make-readtable" " \"(or/c char? #f)\"" -" key_85)))" +" key_86)))" "(values))))" "(let-values((()" "(begin" "(if(null? args_8)" "(let-values()" -"(if key_85" +"(if key_86" "(let-values()" "(raise-arguments-error" " 'make-readtable" @@ -47157,7 +47448,7 @@ static const char *startup_source = " \"expected 'terminating-macro, 'non-terminating-macro, 'dispatch-macro,\"" " \" or character argument after character argument\")" " \"character\"" -" key_85))" +" key_86))" "(let-values()" "(raise-arguments-error" " 'make-readtable" @@ -47167,22 +47458,22 @@ static const char *startup_source = "(let-values(((mode_16)(cadr args_8)))" "(let-values((()" "(begin" -"(if key_85" +"(if key_86" "(let-values()" -"(if(let-values(((or-part_168)" +"(if(let-values(((or-part_170)" "(eq? mode_16 'terminating-macro)))" -"(if or-part_168" -" or-part_168" -"(let-values(((or-part_169)" +"(if or-part_170" +" or-part_170" +"(let-values(((or-part_171)" "(eq?" " mode_16" " 'non-terminating-macro)))" -"(if or-part_169" -" or-part_169" -"(let-values(((or-part_284)" +"(if or-part_171" +" or-part_171" +"(let-values(((or-part_283)" "(eq? mode_16 'dispatch-macro)))" -"(if or-part_284" -" or-part_284" +"(if or-part_283" +" or-part_283" "(char? mode_16)))))))" "(void)" "(let-values()" @@ -47204,7 +47495,7 @@ static const char *startup_source = "(let-values()" "(raise-arguments-error" " 'make-readtable" -"(if key_85" +"(if key_86" " \"expected readtable or #f argument after character argument\"" " \"expected procedure argument after symbol argument\")" " \"given\"" @@ -47213,7 +47504,7 @@ static const char *startup_source = "(values))))" "(let-values(((target_0)(caddr args_8)))" "(let-values(((rest-args_0)(cdddr args_8)))" -"(if(not key_85)" +"(if(not key_86)" "(let-values()" "(begin" "(if(if(procedure? target_0)" @@ -47225,7 +47516,7 @@ static const char *startup_source = " 'make-readtable" " \"(procedure-arity-includes/c 6)\"" " target_0)))" -"(loop_101" +"(loop_102" " rest-args_0" " target_0" " char-ht_0" @@ -47243,20 +47534,20 @@ static const char *startup_source = " 'make-readtable" " \"(procedure-arity-includes/c 6)\"" " target_0)))" -"(loop_101" +"(loop_102" " rest-args_0" " symbol-parser_0" " char-ht_0" -"(hash-set dispatch-ht_0 key_85 target_0)" +"(hash-set dispatch-ht_0 key_86 target_0)" " delimiter-ht_0)))" "(if(char? mode_16)" "(let-values()" "(let-values((()" "(begin" -"(if(let-values(((or-part_95)" +"(if(let-values(((or-part_94)" "(not target_0)))" -"(if or-part_95" -" or-part_95" +"(if or-part_94" +" or-part_94" "(1/readtable? target_0)))" "(void)" "(let-values()" @@ -47266,32 +47557,32 @@ static const char *startup_source = " target_0)))" "(values))))" "(let-values(((actual-target_0)" -"(let-values(((or-part_170)" +"(let-values(((or-part_172)" "(if target_0" "(hash-ref" "(readtable-char-ht target_0)" " mode_16" " #f)" " #f)))" -"(if or-part_170 or-part_170 mode_16))))" +"(if or-part_172 or-part_172 mode_16))))" "(let-values(((new-char-ht_0)" "(if actual-target_0" "(hash-set" " char-ht_0" -" key_85" +" key_86" " actual-target_0)" -"(hash-remove char-ht_0 key_85))))" +"(hash-remove char-ht_0 key_86))))" "(let-values(((new-delimiter-ht_0)" "(hash-set" " delimiter-ht_0" -" key_85" +" key_86" "(if target_0" "(hash-ref" "(readtable-delimiter-ht target_0)" " mode_16" " mode_16)" " mode_16))))" -"(loop_101" +"(loop_102" " rest-args_0" " symbol-parser_0" " new-char-ht_0" @@ -47311,21 +47602,21 @@ static const char *startup_source = " target_0)))" "(values))))" "(let-values(((new-char-ht_1)" -"(hash-set char-ht_0 key_85 target_0)))" +"(hash-set char-ht_0 key_86 target_0)))" "(let-values(((new-delimiter-ht_1)" "(hash-set" " delimiter-ht_0" -" key_85" +" key_86" "(if(eq? mode_16 'terminating-macro)" " 'delimit" " 'no-delimit))))" -"(loop_101" +"(loop_102" " rest-args_0" " symbol-parser_0" " new-char-ht_1" " dispatch-ht_0" " new-delimiter-ht_1))))))))))))))))))))))" -" loop_101)" +" loop_102)" " args_7" "(if rt_0(readtable-symbol-parser rt_0) #f)" "(if rt_0(readtable-char-ht rt_0) '#hasheqv())" @@ -47366,7 +47657,7 @@ static const char *startup_source = "(lambda(handler_0 c_59 in_3 config_14 line_3 col_2 pos_109)" "(begin" "(let-values(((for-syntax?_6)(read-config-for-syntax? config_14)))" -"(let-values(((v_227)" +"(let-values(((v_225)" "(if(not for-syntax?_6)" "(let-values()" "(with-continuation-mark" @@ -47388,7 +47679,7 @@ static const char *startup_source = " config_14)" "(let-values()" "(handler_0 c_59 in_3(read-config-source config_14) line_3 col_2 pos_109)))))))" -"(if(1/special-comment? v_227) v_227(coerce v_227 in_3 config_14)))))))" +"(if(1/special-comment? v_225) v_225(coerce v_225 in_3 config_14)))))))" "(define-values" "(1/readtable-mapping)" "(lambda(rt_5 c_60)" @@ -47406,7 +47697,7 @@ static const char *startup_source = "(values))))" "(let-values(((handler_1)(hash-ref(readtable-char-ht rt_5) c_60 #f)))" "(values" -"(let-values(((or-part_230)" +"(let-values(((or-part_175)" "(if handler_1" "(if(char? handler_1)" "(let-values() handler_1)" @@ -47414,31 +47705,31 @@ static const char *startup_source = "(let-values() 'terminating-macro)" "(let-values() 'non-terminating-macro)))" " #f)))" -"(if or-part_230 or-part_230 c_60))" +"(if or-part_175 or-part_175 c_60))" "(if(char? handler_1) #f handler_1)" "(hash-ref(readtable-dispatch-ht rt_5) c_60 #f))))))))" "(define-values" "(readtable-equivalent-chars)" "(lambda(rt_6 c_61)" "(begin" -"(let-values(((ht_156)(readtable-char-ht rt_6)))" +"(let-values(((ht_158)(readtable-char-ht rt_6)))" "(append" -"(if(hash-ref ht_156 c_61 #f) null(list c_61))" +"(if(hash-ref ht_158 c_61 #f) null(list c_61))" "(reverse$1" -"(let-values(((ht_148) ht_156))" +"(let-values(((ht_151) ht_158))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_148)))" +"(let-values()(check-in-hash ht_151)))" "((letrec-values(((for-loop_267)" -"(lambda(fold-var_80 i_171)" +"(lambda(fold-var_80 i_174)" "(begin" " 'for-loop" -"(if i_171" -"(let-values(((k_39 v_88)(hash-iterate-key+value ht_148 i_171)))" -"(let-values(((fold-var_277)" +"(if i_174" +"(let-values(((k_39 v_89)(hash-iterate-key+value ht_151 i_174)))" +"(let-values(((fold-var_279)" "(let-values(((fold-var_83) fold-var_80))" -"(if(eqv? v_88 c_61)" +"(if(eqv? v_89 c_61)" "(let-values(((fold-var_239) fold-var_83))" "(let-values(((fold-var_13)" "(let-values()" @@ -47446,12 +47737,12 @@ static const char *startup_source = "(values fold-var_13)))" " fold-var_83))))" "(if(not #f)" -"(for-loop_267 fold-var_277(hash-iterate-next ht_148 i_171))" -" fold-var_277)))" +"(for-loop_267 fold-var_279(hash-iterate-next ht_151 i_174))" +" fold-var_279)))" " fold-var_80)))))" " for-loop_267)" " null" -"(hash-iterate-first ht_148))))))))))" +"(hash-iterate-first ht_151))))))))))" "(define-values" "(struct:special special1.1 special? special-value)" "(let-values(((struct:_77 make-_77 ?_77 -ref_77 -set!_77)" @@ -47499,11 +47790,11 @@ static const char *startup_source = "(if(not(char? due-to_0))" "(let-values() exn:fail:read:non-char)" "(let-values() exn:fail:read)))" -"(let-values(((s_158)" +"(let-values(((s_160)" "(if(error-print-source-location)" "(if srcloc_10(srcloc->string srcloc_10) #f)" " #f)))" -" (if s_158 (string-append s_158 \": \" msg_0) msg_0))" +" (if s_160 (string-append s_160 \": \" msg_0) msg_0))" " continuation-marks_0" "(if srcloc_10(list srcloc_10) null)))))))))))))))" "(define-values" @@ -47535,8 +47826,8 @@ static const char *startup_source = "((config29_0) config_18)" " ((temp30_2) \"~a\")" "((temp31_4)" -"(let-values(((s_456)(exn-message exn_2)))" -" (regexp-replace \"^[a-z-]*: \" s_456 \"\")))" +"(let-values(((s_466)(exn-message exn_2)))" +" (regexp-replace \"^[a-z-]*: \" s_466 \"\")))" "((temp32_2)(exn-continuation-marks exn_2)))" "(reader-error10.1 temp32_2 #t #f #f #f #f in28_0 config29_0 temp30_2(list temp31_4)))))))" "(let-values(((bpz_3)(continuation-mark-set-first #f break-enabled-key)))" @@ -47565,9 +47856,9 @@ static const char *startup_source = "(begin" " 'skip-loop" "(let-values(((c_36)" -"(let-values(((or-part_157) init-c_2))" -"(if or-part_157" -" or-part_157" +"(let-values(((or-part_159) init-c_2))" +"(if or-part_159" +" or-part_159" "(let-values(((in_9) in_5)((source_4) source_3))" "(read-char-or-special in_9 special1.1 source_4))))))" "(let-values(((ec_0)" @@ -47591,7 +47882,7 @@ static const char *startup_source = "(if(char=? '#\\; ec_0)" "(let-values()" "(begin" -"((letrec-values(((loop_76)" +"((letrec-values(((loop_77)" "(lambda()" "(begin" " 'loop" @@ -47602,16 +47893,16 @@ static const char *startup_source = " in_10" " special1.1" " source_5))))" -"(if(let-values(((or-part_299)" +"(if(let-values(((or-part_297)" "(eof-object? c_62)))" -"(if or-part_299" -" or-part_299" +"(if or-part_297" +" or-part_297" "(eqv?" " '#\\newline" "(effective-char c_62 config_15))))" "(void)" -"(let-values()(loop_76))))))))" -" loop_76))" +"(let-values()(loop_77))))))))" +" loop_77))" "(if(read-config-keep-comment? config_15)" "(result-special-comment)" "(skip-loop_0 #f))))" @@ -47659,8 +47950,8 @@ static const char *startup_source = "(if(eq? c_64 'special)" "(special1.1 'special)" " c_64)))))" -"(let-values(((or-part_82)(eqv? '#\\space c3_1)))" -"(if or-part_82 or-part_82(eqv? '#\\/ c3_1))))" +"(let-values(((or-part_80)(eqv? '#\\space c3_1)))" +"(if or-part_80 or-part_80(eqv? '#\\/ c3_1))))" " #f)" " #f)" "(let-values()" @@ -47685,13 +47976,13 @@ static const char *startup_source = " #f)" "(let-values()" "(let-values((()(begin(consume-char in_5 '#\\;)(values))))" -"(let-values(((v_184)(read-one_0 #f in_5 config_15)))" +"(let-values(((v_182)(read-one_0 #f in_5 config_15)))" "(begin" -"(if(eof-object? v_184)" +"(if(eof-object? v_182)" "(let-values()" "(let-values(((in1_0) in_5)" "((config2_0) config_15)" -"((v3_0) v_184)" +"((v3_0) v_182)" "((temp4_3)" " \"expected a commented-out element for `~a;', but found end-of-file\")" "((ec5_0) ec_0))" @@ -47722,7 +48013,7 @@ static const char *startup_source = "(let-values(((line_5 col_4 pos_111)(port-next-location in_15)))" "(begin" "(consume-char in_15 '#\\|)" -"((letrec-values(((loop_102)" +"((letrec-values(((loop_103)" "(lambda(prev-c_0 depth_10)" "(begin" " 'loop" @@ -47737,23 +48028,23 @@ static const char *startup_source = " ((temp9_3) \"end of file in `#|` comment\"))" "(reader-error10.1 #f #f c8_0 #t #f #f in6_0 temp7_3 temp9_3(list))))" "(if(not(char? c_25))" -"(let-values()(loop_102 #f depth_10))" +"(let-values()(loop_103 #f depth_10))" "(if(if(char=? '#\\| c_25)(eqv? prev-c_0 '#\\#) #f)" -"(let-values()(loop_102 #f(add1 depth_10)))" +"(let-values()(loop_103 #f(add1 depth_10)))" "(if(if(char=? '#\\# c_25)(eqv? prev-c_0 '#\\|) #f)" "(let-values()" "(if(positive? depth_10)" -"(let-values()(loop_102 #f(sub1 depth_10)))" +"(let-values()(loop_103 #f(sub1 depth_10)))" "(void)))" -"(let-values()(loop_102 c_25 depth_10)))))))))))" -" loop_102)" +"(let-values()(loop_103 c_25 depth_10)))))))))))" +" loop_103)" " #f" " 0)))))))" "(define-values" "(skip-unix-line-comment!)" "(lambda(in_17 config_20)" "(begin" -"((letrec-values(((loop_103)" +"((letrec-values(((loop_104)" "(lambda(backslash?_0)" "(begin" " 'loop" @@ -47763,13 +48054,13 @@ static const char *startup_source = "(if(eof-object? c_66)" "(let-values()(void))" "(if(not(char? c_66))" -"(let-values()(loop_103 #f))" +"(let-values()(loop_104 #f))" "(if(char=? c_66 '#\\newline)" -"(let-values()(if backslash?_0(let-values()(loop_103 #f))(void)))" +"(let-values()(if backslash?_0(let-values()(loop_104 #f))(void)))" "(if(char=? c_66 '#\\\\)" -"(let-values()(loop_103 #t))" -"(let-values()(loop_103 #f)))))))))))" -" loop_103)" +"(let-values()(loop_104 #t))" +"(let-values()(loop_104 #f)))))))))))" +" loop_104)" " #f))))" "(define-values" "(readtable-char-delimiter?)" @@ -47789,27 +48080,27 @@ static const char *startup_source = "(let-values(((or-part_307)(char=? dc_0 '#\\()))" "(if or-part_307" " or-part_307" -"(let-values(((or-part_290)(char=? dc_0 '#\\))))" -"(if or-part_290" -" or-part_290" +"(let-values(((or-part_288)(char=? dc_0 '#\\))))" +"(if or-part_288" +" or-part_288" "(let-values(((or-part_27)(char=? dc_0 '#\\[)))" "(if or-part_27" " or-part_27" "(let-values(((or-part_10)(char=? dc_0 '#\\])))" "(if or-part_10" " or-part_10" -"(let-values(((or-part_157)(char=? dc_0 '#\\{)))" -"(if or-part_157" -" or-part_157" +"(let-values(((or-part_159)(char=? dc_0 '#\\{)))" +"(if or-part_159" +" or-part_159" "(let-values(((or-part_12)(char=? dc_0 '#\\})))" "(if or-part_12" " or-part_12" "(let-values(((or-part_13)(char=? dc_0 '#\\')))" "(if or-part_13" " or-part_13" -"(let-values(((or-part_219)(char=? dc_0 '#\\`)))" -"(if or-part_219" -" or-part_219" +"(let-values(((or-part_218)(char=? dc_0 '#\\`)))" +"(if or-part_218" +" or-part_218" "(let-values(((or-part_3)(char=? dc_0 '#\\,)))" "(if or-part_3" " or-part_3" @@ -47855,15 +48146,15 @@ static const char *startup_source = "(let-values()" "(apply" " string-append" -"((letrec-values(((loop_104)" +"((letrec-values(((loop_105)" "(lambda(cs_2)" "(begin" " 'loop" "(if(null?(cdr cs_2))" " (let-values () (list (format \"or `~a`\" (car cs_2))))" "(let-values()" -" (cons (format \"`~a`, \" (car cs_2)) (loop_104 (cdr cs_2)))))))))" -" loop_104)" +" (cons (format \"`~a`, \" (car cs_2)) (loop_105 (cdr cs_2)))))))))" +" loop_105)" " cs_1)))))))))))))" "(define-values" "(closer->opener)" @@ -47880,17 +48171,17 @@ static const char *startup_source = "(all-openers-str)" "(lambda(config_21)" "(begin" -"(let-values(((p_60)(opener-name '#\\( config_21)))" +"(let-values(((p_61)(opener-name '#\\( config_21)))" "(let-values(((s_10)" "(if(check-parameter 1/read-square-bracket-as-paren config_21)(opener-name '#\\[ config_21) #f)))" "(let-values(((c_67)" "(if(check-parameter 1/read-curly-brace-as-paren config_21)(opener-name '#\\{ config_21) #f)))" "(if(if s_10 c_67 #f)" -" (let-values () (format \"~a, ~a, or ~a\" p_60 s_10 c_67))" -"(if(let-values(((or-part_298) s_10))(if or-part_298 or-part_298 c_67))" +" (let-values () (format \"~a, ~a, or ~a\" p_61 s_10 c_67))" +"(if(let-values(((or-part_296) s_10))(if or-part_296 or-part_296 c_67))" "(let-values()" -" (format \"~a or ~a\" p_60 (let-values (((or-part_299) s_10)) (if or-part_299 or-part_299 c_67))))" -"(let-values() p_60)))))))))" +" (format \"~a or ~a\" p_61 (let-values (((or-part_297) s_10)) (if or-part_297 or-part_297 c_67))))" +"(let-values() p_61)))))))))" "(define-values" "(struct:accum-string" " accum-string1.1" @@ -47959,8 +48250,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_181)(substring(accum-string-str a_70) start-pos_7(accum-string-pos a_70))))" -"(begin(accum-string-abandon! a_70 config_27) s_181)))))))))" +"(let-values(((s_184)(substring(accum-string-str a_70) start-pos_7(accum-string-pos a_70))))" +"(begin(accum-string-abandon! a_70 config_27) s_184)))))))))" "(define-values" "(accum-string-get-bytes!13.1)" "(lambda(start-pos9_0 start-pos10_0 a11_0 config12_0)" @@ -48071,20 +48362,20 @@ static const char *startup_source = " (let-values () (format \"unexpected `~a`\" c_69))" "(let-values()" "(let-values(((missing_2)" -"(let-values(((or-part_303)" -"(let-values(((lst_310)(cdr indts_1)))" +"(let-values(((or-part_301)" +"(let-values(((lst_309)(cdr indts_1)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_310)))" +"(let-values()(check-list lst_309)))" "((letrec-values(((for-loop_272)" -"(lambda(result_39 lst_311)" +"(lambda(result_39 lst_310)" "(begin" " 'for-loop" -"(if(pair? lst_311)" -"(let-values(((indt_3)(unsafe-car lst_311))" -"((rest_171)" -"(unsafe-cdr lst_311)))" +"(if(pair? lst_310)" +"(let-values(((indt_3)(unsafe-car lst_310))" +"((rest_173)" +"(unsafe-cdr lst_310)))" "(let-values(((result_81)" "(let-values()" "(let-values(((result_117)" @@ -48098,17 +48389,17 @@ static const char *startup_source = " #f)))))" "(values result_117)))))" "(if(if(not" -"((lambda x_81 result_81)" +"((lambda x_79 result_81)" " indt_3))" "(not #f)" " #f)" -"(for-loop_272 result_81 rest_171)" +"(for-loop_272 result_81 rest_173)" " result_81)))" " result_39)))))" " for-loop_272)" " #f" -" lst_310)))))" -" (if or-part_303 or-part_303 \"expected\"))))" +" lst_309)))))" +" (if or-part_301 or-part_301 \"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`\"" @@ -48156,8 +48447,8 @@ static const char *startup_source = "(let-values(((indentation_0)(make-indentation closer_1 in_10 seq-config_0)))" "(let-values(((config_16)" "(let-values(((v_5) elem-config_0))" -"(let-values(((the-struct_57) v_5))" -"(if(read-config/outer? the-struct_57)" +"(let-values(((the-struct_56) v_5))" +"(if(read-config/outer? the-struct_56)" "(let-values(((indentations20_0)" "(cons" " indentation_0" @@ -48165,16 +48456,16 @@ static const char *startup_source = "((inner21_0)(read-config/outer-inner v_5)))" "(read-config/outer1.1" " inner21_0" -"(read-config/outer-wrap the-struct_57)" -"(read-config/outer-line the-struct_57)" -"(read-config/outer-col the-struct_57)" -"(read-config/outer-pos the-struct_57)" +"(read-config/outer-wrap the-struct_56)" +"(read-config/outer-line the-struct_56)" +"(read-config/outer-col the-struct_56)" +"(read-config/outer-pos the-struct_56)" " indentations20_0" -"(read-config/outer-keep-comment? the-struct_57)))" +"(read-config/outer-keep-comment? the-struct_56)))" "(raise-argument-error" " 'struct-copy" " \"read-config/outer?\"" -" the-struct_57))))))" +" the-struct_56))))))" "(let-values(((config/keep-comment_0)(keep-comment config_16)))" "(let-values(((read-one/not-eof_0)" "(lambda(init-c_4 read-one_2 config_34)" @@ -48208,7 +48499,7 @@ static const char *startup_source = "(void))" " e_78))))))" "(let-values(((seq_0)" -"((letrec-values(((loop_105)" +"((letrec-values(((loop_106)" "(lambda(depth_11" " accum_0" " init-c_3" @@ -48301,7 +48592,7 @@ static const char *startup_source = " temp31_5" "(list)))))" "(values))))" -"(let-values(((v_201)" +"(let-values(((v_199)" "(read-one/not-eof_0" " #f" " first-read-one_1" @@ -48322,11 +48613,11 @@ static const char *startup_source = "(let-values()" "(if(null?" " accum_0)" -" v_201" +" v_199" "(append" "(reverse$1" " accum_0)" -" v_201)))" +" v_199)))" "(if(if(eqv?" " rest-ec_0" " '#\\.)" @@ -48365,7 +48656,7 @@ static const char *startup_source = "(begin" "(set! head_0" "(box" -" v_201))" +" v_199))" "(values))))" "(let-values(((dot2-line_0" " dot2-col_0" @@ -48423,7 +48714,7 @@ static const char *startup_source = " temp35_1" "(list))))" "(void))" -"(loop_105" +"(loop_106" " depth_11" " accum_0" " post-c_0" @@ -48454,14 +48745,14 @@ static const char *startup_source = " temp39_5" "(list)))))))))))))" "(let-values()" -"(let-values(((v_60)" +"(let-values(((v_59)" "(read-one/not-eof_0" " c_70" " first-read-one_1" " config/keep-comment_0)))" -"(if(1/special-comment? v_60)" +"(if(1/special-comment? v_59)" "(let-values()" -"(loop_105" +"(loop_106" " depth_11" " accum_0" " #f" @@ -48469,22 +48760,22 @@ static const char *startup_source = " read-one_1))" "(if(> depth_11 1024)" "(let-values()" -"(loop_105" +"(loop_106" " depth_11" -"(cons v_60 accum_0)" +"(cons v_59 accum_0)" " #f" " #f" " read-one_1))" "(let-values()" "(cons" -" v_60" -"(loop_105" +" v_59" +"(loop_106" "(add1 depth_11)" " null" " #f" " #f" " read-one_1)))))))))))))))" -" loop_105)" +" loop_106)" " 0" " null" " #f" @@ -48506,10 +48797,10 @@ static const char *startup_source = "(let-values()(if(check-parameter 1/read-curly-brace-with-tag config_35) '#%braces #f))" "(let-values() #f))))))" "(if tag_0(cons(wrap tag_0 in_21 config_35 #f) seq_1) seq_1)))))" -" (define-values (not-an-fX.1) (lambda (who_26 v_228) (begin 'not-an-fX (raise-argument-error who_26 \"fixnum?\" v_228))))" +" (define-values (not-an-fX.1) (lambda (who_26 v_226) (begin 'not-an-fX (raise-argument-error who_26 \"fixnum?\" v_226))))" "(define-values" "(not-an-fX.1$1)" -" (lambda (who_26 v_228) (begin 'not-an-fX (raise-argument-error who_26 \"flonum?\" v_228))))" +" (lambda (who_26 v_226) (begin 'not-an-fX (raise-argument-error who_26 \"flonum?\" v_226))))" "(define-values" "(read-digits13.1)" "(lambda(base1_0" @@ -48545,11 +48836,11 @@ static const char *startup_source = "(consume-char in_12 c_72)" "(if accum-str_0(let-values()(accum-string-add! accum-str_0 c_72))(void))" "((letrec-values(((loop_61)" -"(lambda(v_229 max-count_1)" +"(lambda(v_227 max-count_1)" "(begin" " 'loop" "(if(zero? max-count_1)" -"(let-values() v_229)" +"(let-values() v_227)" "(let-values()" "(let-values(((c_65)" "(let-values(((in_23) in_12)" @@ -48573,9 +48864,9 @@ static const char *startup_source = "(let-values()(accum-string-add! accum-str_0 c_65))" "(void))" "(loop_61" -"(+(digit->number c_65)(* v_229 base_23))" +"(+(digit->number c_65)(* v_227 base_23))" "(sub1 max-count_1))))" -"(let-values() v_229)))))))))" +"(let-values() v_227)))))))))" " loop_61)" "(+(digit->number c_72)(* init-v_0 base_23))" "(sub1 max-count_0))))" @@ -48601,8 +48892,8 @@ static const char *startup_source = "(let-values(((or-part_308)(if(char>=? c_77 '#\\0)(char<=? c_77 '#\\9) #f)))" "(if or-part_308" " or-part_308" -"(let-values(((or-part_98)(if(char>=? c_77 '#\\A)(char<=? c_77 '#\\F) #f)))" -"(if or-part_98 or-part_98(if(char>=? c_77 '#\\a)(char<=? c_77 '#\\f) #f))))))))" +"(let-values(((or-part_97)(if(char>=? c_77 '#\\A)(char<=? c_77 '#\\F) #f)))" +"(if or-part_97 or-part_97(if(char>=? c_77 '#\\a)(char<=? c_77 '#\\f) #f))))))))" "(define-values" "(digit->number)" "(lambda(c_78)" @@ -48619,7 +48910,7 @@ static const char *startup_source = "(lambda(s7_2 radix1_0 convert-mode2_0 decimal-mode3_0 radix4_0 convert-mode5_0 decimal-mode6_0)" "(begin" " 'string->number8" -"(let-values(((s_179) s7_2))" +"(let-values(((s_182) s7_2))" "(let-values(((radix_0)(if radix4_0 radix1_0 10)))" "(let-values(((convert-mode_0)(if convert-mode5_0 convert-mode2_0 'number-or-false)))" "(let-values(((decimal-mode_0)" @@ -48630,16 +48921,16 @@ static const char *startup_source = "(let-values()" "(let-values()" "(begin" -"(if(string? s_179)" +"(if(string? s_182)" "(void)" -" (let-values () (raise-argument-error 'string->number \"string?\" s_179)))" -"(if((lambda(p_69)(if(exact-integer? radix_0)(<= 2 radix_0 16) #f)) radix_0)" +" (let-values () (raise-argument-error 'string->number \"string?\" s_182)))" +"(if((lambda(p_70)(if(exact-integer? radix_0)(<= 2 radix_0 16) #f)) radix_0)" "(void)" "(let-values()" " (raise-argument-error 'string->number \"(integer-in 2 16)\" radix_0)))" -"(if((lambda(p_62)" -"(let-values(((or-part_7)(eq? p_62 'number-or-false)))" -"(if or-part_7 or-part_7(eq? p_62 'read))))" +"(if((lambda(p_63)" +"(let-values(((or-part_7)(eq? p_63 'number-or-false)))" +"(if or-part_7 or-part_7(eq? p_63 'read))))" " convert-mode_0)" "(void)" "(let-values()" @@ -48647,9 +48938,9 @@ static const char *startup_source = " 'string->number" " \"(or/c 'number-or-false 'read)\"" " convert-mode_0)))" -"(if((lambda(p_70)" -"(let-values(((or-part_9)(eq? p_70 'decimal-as-inexact)))" -"(if or-part_9 or-part_9(eq? p_70 'decimal-as-exact))))" +"(if((lambda(p_71)" +"(let-values(((or-part_9)(eq? p_71 'decimal-as-inexact)))" +"(if or-part_9 or-part_9(eq? p_71 'decimal-as-exact))))" " decimal-mode_0)" "(void)" "(let-values()" @@ -48657,9 +48948,9 @@ static const char *startup_source = " 'string->number" " \"(or/c 'decimal-as-inexact decimal-as-exact)\"" " decimal-mode_0)))" -"(let-values(((s69_0) s_179)" +"(let-values(((s69_0) s_182)" "((temp70_1) 0)" -"((temp71_0)(string-length s_179))" +"((temp71_0)(string-length s_182))" "((radix72_0) radix_0)" "((temp73_0) #f)" "((decimal-mode74_0) decimal-mode_0)" @@ -48675,11 +48966,11 @@ static const char *startup_source = " decimal-mode74_0" " convert-mode75_0))))))))))))))" "(case-lambda" -"((s_457)(begin 'string->number(string->number8_0 s_457 #f #f #f #f #f #f)))" -"((s_458 radix_1 convert-mode_1 decimal-mode3_1)" -"(string->number8_0 s_458 radix_1 convert-mode_1 decimal-mode3_1 #t #t #t))" -"((s_176 radix_2 convert-mode2_1)(string->number8_0 s_176 radix_2 convert-mode2_1 #f #t #t #f))" -"((s_459 radix1_1)(string->number8_0 s_459 radix1_1 #f #f #t #f #f)))))" +"((s_467)(begin 'string->number(string->number8_0 s_467 #f #f #f #f #f #f)))" +"((s_468 radix_1 convert-mode_1 decimal-mode3_1)" +"(string->number8_0 s_468 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_469 radix1_1)(string->number8_0 s_469 radix1_1 #f #f #t #f #f)))))" "(define-values" "(do-string->number20.1)" "(lambda(in-complex11_0" @@ -48693,7 +48984,7 @@ static const char *startup_source = " convert-mode19_0)" "(begin" " 'do-string->number20" -"(let-values(((s_460) s14_0))" +"(let-values(((s_470) s14_0))" "(let-values(((start_43) start15_0))" "(let-values(((end_33) end16_0))" "(let-values(((radix_3) radix17_0))" @@ -48708,18 +48999,18 @@ static const char *startup_source = " (let-values () (format \"no digits\"))" "(let-values() #f)))" "(let-values()" -"(let-values(((c_79)(string-ref s_460 start_43)))" +"(let-values(((c_79)(string-ref s_470 start_43)))" "(if(char=? '#\\# c_79)" "(let-values()" "(let-values(((next_4)(add1 start_43)))" "(if(= next_4 end_33)" "(let-values()" "(if(eq? convert-mode_2 'must-read)" -" (let-values () (format \"no character after `#` indicator in `~.a`\" s_460))" +" (let-values () (format \"no character after `#` indicator in `~.a`\" s_470))" "(let-values() #f)))" "(let-values()" -"(let-values(((i_171)(string-ref s_460 next_4)))" -"(let-values(((tmp_39) i_171))" +"(let-values(((i_174)(string-ref s_470 next_4)))" +"(let-values(((tmp_39) i_174))" "(let-values(((index_2)" "(if(char? tmp_39)" "(let-values(((codepoint_0)(char->integer tmp_39)))" @@ -48793,32 +49084,32 @@ static const char *startup_source = "(let-values()" "(format" " \"bad `#` indicator `~a` at `~.a`\"" -" i_171" -"(substring s_460 start_43 end_33)))" +" i_174" +"(substring s_470 start_43 end_33)))" "(let-values() #f)))" "(if(unsafe-fx< index_2 2)" "(let-values()" -"(if(let-values(((or-part_287)(exactness-set? exactness_0)))" -"(if or-part_287 or-part_287 in-complex_0))" +"(if(let-values(((or-part_286)(exactness-set? exactness_0)))" +"(if or-part_286 or-part_286 in-complex_0))" "(let-values()" "(if(eq? convert-mode_2 'must-read)" "(let-values()" "(format" " \"misplaced exactness specification at `~.a`\"" -"(substring s_460 start_43 end_33)))" +"(substring s_470 start_43 end_33)))" "(let-values() #f)))" "(let-values()" -"(let-values(((s76_0) s_460)" +"(let-values(((s76_0) s_470)" "((temp77_0)(add1 next_4))" "((end78_0) end_33)" "((radix79_0) radix_3)" "((radix-set?80_0) radix-set?_0)" "((temp81_1)" "(if(let-values(((or-part_215)" -"(char=? i_171 '#\\e)))" +"(char=? i_174 '#\\e)))" "(if or-part_215" " or-part_215" -"(char=? i_171 '#\\E)))" +"(char=? i_174 '#\\E)))" " 'exact" " 'inexact))" "((temp82_3)" @@ -48843,11 +49134,11 @@ static const char *startup_source = "(let-values()" "(format" " \"misplaced radix specification at `~.a`\"" -"(substring s_460 start_43 end_33)))" +"(substring s_470 start_43 end_33)))" "(let-values() #f)))" "(let-values()" "(let-values(((radix_4)" -"(let-values(((tmp_40) i_171))" +"(let-values(((tmp_40) i_174))" "(if(if(equal? tmp_40 '#\\b)" " #t" "(equal? tmp_40 '#\\B))" @@ -48861,7 +49152,7 @@ static const char *startup_source = "(equal? tmp_40 '#\\D))" "(let-values() 10)" "(let-values() 16)))))))" -"(let-values(((s83_0) s_460)" +"(let-values(((s83_0) s_470)" "((temp84_2)(add1 next_4))" "((end85_0) end_33)" "((radix86_0) radix_4)" @@ -48883,25 +49174,25 @@ static const char *startup_source = " temp89_4)))))))))))))))" "(let-values(((c1_28)" "(if(char-sign? c_79)" -"(read-special-number s_460 start_43 end_33 convert-mode_2)" +"(read-special-number s_470 start_43 end_33 convert-mode_2)" " #f)))" "(if c1_28" -"((lambda(v_230)" +"((lambda(v_228)" "(if(eq? exactness_0 'exact)" "(let-values()" "(if(eq? convert-mode_2 'must-read)" -" (let-values () (format \"no exact representation for `~a`\" v_230))" +" (let-values () (format \"no exact representation for `~a`\" v_228))" "(let-values() #f)))" -"(let-values() v_230)))" +"(let-values() v_228)))" " c1_28)" "(let-values(((c2_3)" "(if(char-sign? c_79)" "(if(not in-complex_0)" "(if(>(- end_33 start_43) 7)" -"(if(char=? '#\\i(string-ref s_460(sub1 end_33)))" -"(if(char-sign?(string-ref s_460 6))" +"(if(char=? '#\\i(string-ref s_470(sub1 end_33)))" +"(if(char-sign?(string-ref s_470 6))" "(read-special-number" -" s_460" +" s_470" " start_43" "(+ start_43 6)" " convert-mode_2)" @@ -48911,15 +49202,15 @@ static const char *startup_source = " #f)" " #f)))" "(if c2_3" -"((lambda(v_231)" -"(let-values(((s90_1) s_460)" +"((lambda(v_229)" +"(let-values(((s90_1) s_470)" "((temp91_0)(+ start_43 6))" "((temp92_1)(sub1 end_33))" "((radix93_0) radix_3)" "((exactness94_0) exactness_0)" "((convert-mode95_0) convert-mode_2)" "((temp96_3) 'i)" -"((v97_0) v_231)" +"((v97_0) v_229)" "((temp98_3)" "(lambda(v_53 v2_0)" "(begin 'temp98(make-rectangular v_53 v2_0)))))" @@ -48939,10 +49230,10 @@ static const char *startup_source = "(let-values(((c3_2)" "(if(not in-complex_0)" "(if(>=(- end_33 start_43) 7)" -"(if(char=? '#\\i(string-ref s_460(sub1 end_33)))" -"(if(char-sign?(string-ref s_460(- end_33 7)))" +"(if(char=? '#\\i(string-ref s_470(sub1 end_33)))" +"(if(char-sign?(string-ref s_470(- end_33 7)))" "(read-special-number" -" s_460" +" s_470" "(- end_33 7)" "(sub1 end_33)" " convert-mode_2)" @@ -48955,7 +49246,7 @@ static const char *startup_source = "(if(if(= start_43(- end_33 7))(not(extflonum? v2_1)) #f)" "(let-values()(make-rectangular 0 v2_1))" "(let-values()" -"(let-values(((s99_0) s_460)" +"(let-values(((s99_0) s_470)" "((start100_0) start_43)" "((temp101_2)(- end_33 7))" "((radix102_0) radix_3)" @@ -48965,8 +49256,8 @@ static const char *startup_source = "((temp106_2) #t)" "((v2107_0) v2_1)" "((temp108_2)" -"(lambda(v2_2 v_215)" -"(begin 'temp108(make-rectangular v_215 v2_2)))))" +"(lambda(v2_2 v_77)" +"(begin 'temp108(make-rectangular v_77 v2_2)))))" "(read-for-special-compound65.1" " temp105_2" " temp106_2" @@ -48984,9 +49275,9 @@ static const char *startup_source = "(if(char-sign? c_79)" "(if(not in-complex_0)" "(if(>(- end_33 start_43) 7)" -"(if(char=? '#\\@(string-ref s_460(+ start_43 6)))" +"(if(char=? '#\\@(string-ref s_470(+ start_43 6)))" "(read-special-number" -" s_460" +" s_470" " start_43" "(+ start_43 6)" " convert-mode_2)" @@ -48995,18 +49286,18 @@ static const char *startup_source = " #f)" " #f)))" "(if c4_0" -"((lambda(v_204)" -"(let-values(((s109_0) s_460)" +"((lambda(v_202)" +"(let-values(((s109_0) s_470)" "((temp110_4)(+ start_43 7))" "((end111_0) end_33)" "((radix112_0) radix_3)" "((exactness113_0) exactness_0)" "((convert-mode114_0) convert-mode_2)" "((temp115_0) '@)" -"((v116_0) v_204)" +"((v116_0) v_202)" "((temp117_2)" -"(lambda(v_232 v2_3)" -"(begin 'temp117(make-polar v_232 v2_3)))))" +"(lambda(v_230 v2_3)" +"(begin 'temp117(make-polar v_230 v2_3)))))" "(read-for-special-compound65.1" " temp115_0" " #f" @@ -49023,9 +49314,9 @@ static const char *startup_source = "(let-values(((c5_1)" "(if(not in-complex_0)" "(if(>(- end_33 start_43) 7)" -"(if(char=? '#\\@(string-ref s_460(- end_33 7)))" +"(if(char=? '#\\@(string-ref s_470(- end_33 7)))" "(read-special-number" -" s_460" +" s_470" "(- end_33 6)" " end_33" " convert-mode_2)" @@ -49034,7 +49325,7 @@ static const char *startup_source = " #f)))" "(if c5_1" "((lambda(v2_4)" -"(let-values(((s118_0) s_460)" +"(let-values(((s118_0) s_470)" "((start119_0) start_43)" "((temp120_2)(- end_33 7))" "((radix121_0) radix_3)" @@ -49044,8 +49335,8 @@ static const char *startup_source = "((temp125_2) #t)" "((v2126_0) v2_4)" "((temp127_2)" -"(lambda(v2_5 v_233)" -"(begin 'temp127(make-polar v_233 v2_5)))))" +"(lambda(v2_5 v_231)" +"(begin 'temp127(make-polar v_231 v2_5)))))" "(read-for-special-compound65.1" " temp124_4" " temp125_2" @@ -49060,7 +49351,7 @@ static const char *startup_source = " temp127_2)))" " c5_1)" "(let-values()" -"(let-values(((s128_1) s_460)" +"(let-values(((s128_1) s_470)" "((start129_0) start_43)" "((end130_0) end_33)" "((radix131_0) radix_3)" @@ -49091,7 +49382,7 @@ static const char *startup_source = " convert-mode32_0)" "(begin" " 'do-string->non-special-number33" -"(let-values(((s_198) s27_1))" +"(let-values(((s_202) s27_1))" "(let-values(((start_44) start28_0))" "(let-values(((end_34) end29_0))" "(let-values(((radix_5) radix30_0))" @@ -49100,8 +49391,8 @@ static const char *startup_source = "(let-values(((in-complex_1)(if in-complex26_0 in-complex24_0 #f)))" "(let-values(((convert-mode_3) convert-mode32_0))" "(let-values()" -"((letrec-values(((loop_106)" -"(lambda(i_172" +"((letrec-values(((loop_107)" +"(lambda(i_175" " any-digits?_0" " any-hashes?_0" " i-pos_3" @@ -49113,7 +49404,7 @@ static const char *startup_source = " must-i?_0)" "(begin" " 'loop" -"(if(= i_172 end_34)" +"(if(= i_175 end_34)" "(let-values()" "(if(if(not any-digits?_0)(not i-pos_3) #f)" "(let-values()" @@ -49121,7 +49412,7 @@ static const char *startup_source = "(let-values()" "(format" " \"no digits in `~.a`\"" -"(substring s_198 start_44 end_34)))" +"(substring s_202 start_44 end_34)))" "(let-values() #f)))" "(if(if must-i?_0(not i-pos_3) #f)" "(let-values()" @@ -49129,7 +49420,7 @@ static const char *startup_source = "(let-values()" "(format" " \"too many signs in `~.a`\"" -"(substring s_198 start_44 end_34)))" +"(substring s_202 start_44 end_34)))" "(let-values() #f)))" "(if(if sign-pos_0" "(let-values(((or-part_310)" @@ -49143,11 +49434,11 @@ static const char *startup_source = "(let-values()" "(format" " \"misplaced sign in `~.a`\"" -"(substring s_198 start_44 end_34)))" +"(substring s_202 start_44 end_34)))" "(let-values() #f)))" "(if i-pos_3" "(let-values()" -"(let-values(((s136_0) s_198)" +"(let-values(((s136_0) s_202)" "((start137_0) start_44)" "((sign-pos138_0) sign-pos_0)" "((sign-pos139_0) sign-pos_0)" @@ -49174,7 +49465,7 @@ static const char *startup_source = " convert-mode147_0)))" "(if @-pos_0" "(let-values()" -"(let-values(((s148_0) s_198)" +"(let-values(((s148_0) s_202)" "((start149_0) start_44)" "((@-pos150_0) @-pos_0)" "((temp151_1)(add1 @-pos_0))" @@ -49201,7 +49492,7 @@ static const char *startup_source = " convert-mode159_0)))" "(let-values()" "(string->real-number" -" s_198" +" s_202" " start_44" " end_34" " dot-pos_1" @@ -49212,11 +49503,11 @@ static const char *startup_source = " exactness_1" " convert-mode_3))))))))" "(let-values()" -"(let-values(((c_80)(string-ref s_198 i_172)))" +"(let-values(((c_80)(string-ref s_202 i_175)))" "(if(digit? c_80 radix_5)" "(let-values()" -"(loop_106" -"(add1 i_172)" +"(loop_107" +"(add1 i_175)" " #t" " any-hashes?_0" " i-pos_3" @@ -49228,8 +49519,8 @@ static const char *startup_source = " must-i?_0))" "(if(char=? c_80 '#\\#)" "(let-values()" -"(loop_106" -"(add1 i_172)" +"(loop_107" +"(add1 i_175)" " #t" " #t" " i-pos_3" @@ -49247,41 +49538,41 @@ static const char *startup_source = "(let-values()" "(format" " \"too many signs in `~.a`\"" -"(substring s_198 start_44 end_34)))" +"(substring s_202 start_44 end_34)))" "(let-values() #f)))" "(let-values()" -"(loop_106" -"(add1 i_172)" +"(loop_107" +"(add1 i_175)" " any-digits?_0" " any-hashes?_0" " i-pos_3" " @-pos_0" -" i_172" +" i_175" " dot-pos_1" " slash-pos_0" " #f" -"(if(> i_172 start_44)" +"(if(> i_175 start_44)" "(let-values(((or-part_311)(not @-pos_0)))" "(if or-part_311" " or-part_311" -"(> i_172(add1 @-pos_0))))" +"(> i_175(add1 @-pos_0))))" " #f)))))" "(if(char=? c_80 '#\\.)" "(let-values()" -"(if(let-values(((or-part_312)" +"(if(let-values(((or-part_212)" "(if exp-pos_0" -"(let-values(((or-part_313)" +"(let-values(((or-part_312)" "(not sign-pos_0)))" -"(if or-part_313" -" or-part_313" -"(> exp-pos_0 sign-pos_0)))" -" #f)))" "(if or-part_312" " or-part_312" +"(> exp-pos_0 sign-pos_0)))" +" #f)))" +"(if or-part_212" +" or-part_212" "(if dot-pos_1" -"(let-values(((or-part_314)(not sign-pos_0)))" -"(if or-part_314" -" or-part_314" +"(let-values(((or-part_313)(not sign-pos_0)))" +"(if or-part_313" +" or-part_313" "(> dot-pos_1 sign-pos_0)))" " #f)))" "(let-values()" @@ -49289,12 +49580,12 @@ static const char *startup_source = "(let-values()" "(format" " \"misplaced `.` in `~.a`\"" -"(substring s_198 start_44 end_34)))" +"(substring s_202 start_44 end_34)))" "(let-values() #f)))" "(if(if slash-pos_0" -"(let-values(((or-part_315)(not sign-pos_0)))" -"(if or-part_315" -" or-part_315" +"(let-values(((or-part_314)(not sign-pos_0)))" +"(if or-part_314" +" or-part_314" "(> slash-pos_0 sign-pos_0)))" " #f)" "(let-values()" @@ -49302,26 +49593,26 @@ static const char *startup_source = "(let-values()" "(format" " \"decimal points and fractions annot be mixed `~.a`\"" -"(substring s_198 start_44 end_34)))" +"(substring s_202 start_44 end_34)))" "(let-values() #f)))" "(let-values()" -"(loop_106" -"(add1 i_172)" +"(loop_107" +"(add1 i_175)" " any-digits?_0" " any-hashes?_0" " i-pos_3" " @-pos_0" " sign-pos_0" -" i_172" +" i_175" " #f" " #f" " must-i?_0)))))" "(if(char=? c_80 '#\\/)" "(let-values()" "(if(if dot-pos_1" -"(let-values(((or-part_179)(not sign-pos_0)))" -"(if or-part_179" -" or-part_179" +"(let-values(((or-part_315)(not sign-pos_0)))" +"(if or-part_315" +" or-part_315" "(> dot-pos_1 sign-pos_0)))" " #f)" "(let-values()" @@ -49329,14 +49620,14 @@ static const char *startup_source = "(let-values()" "(format" " \"decimal points and fractions annot be mixed `~.a`\"" -"(substring s_198 start_44 end_34)))" +"(substring s_202 start_44 end_34)))" "(let-values() #f)))" "(if(let-values(((or-part_316)" "(if exp-pos_0" -"(let-values(((or-part_186)" +"(let-values(((or-part_188)" "(not sign-pos_0)))" -"(if or-part_186" -" or-part_186" +"(if or-part_188" +" or-part_188" "(> exp-pos_0 sign-pos_0)))" " #f)))" "(if or-part_316" @@ -49353,18 +49644,18 @@ static const char *startup_source = "(let-values()" "(format" " \"misplaced `/` in `~.a`\"" -"(substring s_198 start_44 end_34)))" +"(substring s_202 start_44 end_34)))" "(let-values() #f)))" "(let-values()" -"(loop_106" -"(add1 i_172)" +"(loop_107" +"(add1 i_175)" " any-digits?_0" " any-hashes?_0" " i-pos_3" " @-pos_0" " sign-pos_0" " #f" -" i_172" +" i_175" " #f" " must-i?_0)))))" "(if(let-values(((or-part_318)(char=? c_80 '#\\e)))" @@ -49373,34 +49664,34 @@ static const char *startup_source = "(let-values(((or-part_319)(char=? c_80 '#\\E)))" "(if or-part_319" " or-part_319" -"(let-values(((or-part_213)" -"(char=? c_80 '#\\f)))" -"(if or-part_213" -" or-part_213" "(let-values(((or-part_320)" -"(char=? c_80 '#\\F)))" +"(char=? c_80 '#\\f)))" "(if or-part_320" " or-part_320" "(let-values(((or-part_321)" -"(char=? c_80 '#\\d)))" +"(char=? c_80 '#\\F)))" "(if or-part_321" " or-part_321" "(let-values(((or-part_322)" -"(char=? c_80 '#\\D)))" +"(char=? c_80 '#\\d)))" "(if or-part_322" " or-part_322" "(let-values(((or-part_323)" +"(char=? c_80 '#\\D)))" +"(if or-part_323" +" or-part_323" +"(let-values(((or-part_213)" "(char=?" " c_80" " '#\\s)))" -"(if or-part_323" -" or-part_323" -"(let-values(((or-part_160)" +"(if or-part_213" +" or-part_213" +"(let-values(((or-part_162)" "(char=?" " c_80" " '#\\S)))" -"(if or-part_160" -" or-part_160" +"(if or-part_162" +" or-part_162" "(let-values(((or-part_324)" "(char=?" " c_80" @@ -49430,14 +49721,14 @@ static const char *startup_source = "(format" " \"misplaced `~a` in `~.a`\"" " c_80" -"(substring s_198 start_44 end_34)))" +"(substring s_202 start_44 end_34)))" "(let-values() #f)))" -"(if(if(<(add1 i_172) end_34)" -"(char-sign?(string-ref s_198(add1 i_172)))" +"(if(if(<(add1 i_175) end_34)" +"(char-sign?(string-ref s_202(add1 i_175)))" " #f)" "(let-values()" -"(loop_106" -"(+ i_172 2)" +"(loop_107" +"(+ i_175 2)" " any-digits?_0" " any-hashes?_0" " i-pos_3" @@ -49446,11 +49737,11 @@ static const char *startup_source = " dot-pos_1" " slash-pos_0" "(let-values(((or-part_327) exp-pos_0))" -"(if or-part_327 or-part_327 i_172))" +"(if or-part_327 or-part_327 i_175))" " must-i?_0))" "(let-values()" -"(loop_106" -"(+ i_172 1)" +"(loop_107" +"(+ i_175 1)" " any-digits?_0" " any-hashes?_0" " i-pos_3" @@ -49459,7 +49750,7 @@ static const char *startup_source = " dot-pos_1" " slash-pos_0" "(let-values(((or-part_328) exp-pos_0))" -"(if or-part_328 or-part_328 i_172))" +"(if or-part_328 or-part_328 i_175))" " must-i?_0)))))" "(if(char=? c_80 '#\\@)" "(let-values()" @@ -49469,7 +49760,7 @@ static const char *startup_source = "(let-values()" "(format" " \"cannot mix `@` and `i` in `~.a`\"" -"(substring s_198 start_44 end_34)))" +"(substring s_202 start_44 end_34)))" "(let-values() #f)))" "(if(let-values(((or-part_329) @-pos_0))" "(if or-part_329" @@ -49480,15 +49771,15 @@ static const char *startup_source = "(let-values()" "(format" " \"too many `@`s in `~.a`\"" -"(substring s_198 start_44 end_34)))" +"(substring s_202 start_44 end_34)))" "(let-values() #f)))" -"(if(= i_172 start_44)" +"(if(= i_175 start_44)" "(let-values()" "(if(eq? convert-mode_3 'must-read)" "(let-values()" "(format" " \"`@` cannot be at start in `~.a`\"" -"(substring s_198 start_44 end_34)))" +"(substring s_202 start_44 end_34)))" "(let-values() #f)))" "(if must-i?_0" "(let-values()" @@ -49496,15 +49787,15 @@ static const char *startup_source = "(let-values()" "(format" " \"too many signs in `~.a`\"" -"(substring s_198 start_44 end_34)))" +"(substring s_202 start_44 end_34)))" "(let-values() #f)))" "(let-values()" -"(loop_106" -"(add1 i_172)" +"(loop_107" +"(add1 i_175)" " any-digits?_0" " any-hashes?_0" " i-pos_3" -" i_172" +" i_175" " #f" " #f" " #f" @@ -49527,10 +49818,10 @@ static const char *startup_source = "(let-values()" "(format" " \"cannot mix `@` and `i` in `~.a`\"" -"(substring s_198 start_44 end_34)))" +"(substring s_202 start_44 end_34)))" "(let-values() #f)))" "(if(let-values(((or-part_332)" -"(<(add1 i_172) end_34)))" +"(<(add1 i_175) end_34)))" "(if or-part_332" " or-part_332" "(eq? in-complex_1 'i)))" @@ -49539,14 +49830,14 @@ static const char *startup_source = "(let-values()" "(format" " \"`i' must be at the end in `~.a`\"" -"(substring s_198 start_44 end_34)))" +"(substring s_202 start_44 end_34)))" "(let-values() #f)))" "(let-values()" -"(loop_106" -"(add1 i_172)" +"(loop_107" +"(add1 i_175)" " any-digits?_0" " any-hashes?_0" -" i_172" +" i_175" " @-pos_0" " sign-pos_0" " #f" @@ -49558,14 +49849,14 @@ static const char *startup_source = "(let-values()" "(if(eq? convert-mode_3 'must-read)" "(let-values()" -" (format \"nul character in `~.a`\" s_198))" +" (format \"nul character in `~.a`\" s_202))" "(let-values() #f)))" "(let-values()" "(if(eq? convert-mode_3 'must-read)" "(let-values()" " (format \"bad digit `~a`\" c_80))" "(let-values() #f))))))))))))))))))))" -" loop_106)" +" loop_107)" " start_44" " #f" " #f" @@ -49592,7 +49883,7 @@ static const char *startup_source = " convert-mode49_0)" "(begin" " 'string->complex-number50" -"(let-values(((s_220) s40_0))" +"(let-values(((s_115) s40_0))" "(let-values(((start1_0) start141_0))" "(let-values(((end1_0) end142_0))" "(let-values(((start2_0) start243_0))" @@ -49609,7 +49900,7 @@ static const char *startup_source = "(if(= start1_0 end1_0)" "(let-values()(if(eq? exactness_2 'inexact) 0.0 0))" "(let-values()" -"(let-values(((s160_0) s_220)" +"(let-values(((s160_0) s_115)" "((start1161_0) start1_0)" "((end1162_0) end1_0)" "((radix163_0) radix_6)" @@ -49630,12 +49921,12 @@ static const char *startup_source = "(let-values(((v2_6)" "(if(if(eq? in-complex_2 'i)(=(- end2_0 start2_0) 1) #f)" "(let-values()" -"(let-values(((neg?_0)(char=?(string-ref s_220 start2_0) '#\\-)))" +"(let-values(((neg?_0)(char=?(string-ref s_115 start2_0) '#\\-)))" "(if(eq? exactness_2 'inexact)" "(let-values()(if neg?_0 -1.0 1.0))" "(let-values()(if neg?_0 -1 1)))))" "(let-values()" -"(let-values(((s168_0) s_220)" +"(let-values(((s168_0) s_115)" "((start2169_0) start2_0)" "((end2170_0) end2_0)" "((radix171_0) radix_6)" @@ -49672,16 +49963,16 @@ static const char *startup_source = "(if(eq? in-complex_2 'i)" "(let-values()(make-rectangular v1_0 v2_6))" "(let-values()" -"(let-values(((p_71)(make-polar v1_0 v2_6)))" +"(let-values(((p_72)(make-polar v1_0 v2_6)))" "(if(eq? exactness_2 'exact)" -"(inexact->exact p_71)" -" p_71))))))))))))))))))))))))))))" +"(inexact->exact p_72)" +" p_72))))))))))))))))))))))))))))" "(define-values" "(string->real-number)" -"(lambda(s_233 start_45 end_35 dot-pos_2 slash-pos_1 exp-pos_1 any-hashes?_1 radix_7 exactness_3 convert-mode_5)" +"(lambda(s_238 start_45 end_35 dot-pos_2 slash-pos_1 exp-pos_1 any-hashes?_1 radix_7 exactness_3 convert-mode_5)" "(begin" "(let-values(((extfl-mark?_0)" -"(lambda()(begin 'extfl-mark?(char=?(char-downcase(string-ref s_233 exp-pos_1)) '#\\t)))))" +"(lambda()(begin 'extfl-mark?(char=?(char-downcase(string-ref s_238 exp-pos_1)) '#\\t)))))" "(let-values(((simple?_0)" "(if(not slash-pos_1)" "(if(let-values(((or-part_335)(eq? exactness_3 'inexact)))" @@ -49694,17 +49985,17 @@ static const char *startup_source = " or-part_337" "(let-values(((or-part_338)(not(eq? convert-mode_5 'number-or-false))))" "(if or-part_338 or-part_338(not(extfl-mark?_0))))))" -"(not(if any-hashes?_1(hashes? s_233 start_45 end_35) #f))" +"(not(if any-hashes?_1(hashes? s_238 start_45 end_35) #f))" " #f)" " #f)" " #f)))" -"(let-values(((has-sign?_0)(if(> end_35 start_45)(char-sign?(string-ref s_233 start_45)) #f)))" +"(let-values(((has-sign?_0)(if(> end_35 start_45)(char-sign?(string-ref s_238 start_45)) #f)))" "(if(=(- end_35 start_45)(+(if dot-pos_2 1 0)(if exp-pos_1 1 0)(if has-sign?_0 1 0)))" "(let-values()" "(if(= end_35 start_45)" " (if (eq? convert-mode_5 'must-read) (let-values () (format \"missing digits\")) (let-values () #f))" "(if(eq? convert-mode_5 'must-read)" -" (let-values () (format \"missing digits in `~.a`\" (substring s_233 start_45 end_35)))" +" (let-values () (format \"missing digits in `~.a`\" (substring s_238 start_45 end_35)))" "(let-values() #f))))" "(if simple?_0" "(let-values()" @@ -49716,23 +50007,23 @@ static const char *startup_source = "(let-values()" "(if(eq? convert-mode_5 'must-read)" "(let-values()" -" (format \"missing digits before exponent marker in `~.a`\" (substring s_233 start_45 end_35)))" +" (format \"missing digits before exponent marker in `~.a`\" (substring s_238 start_45 end_35)))" "(let-values() #f)))" "(if(if exp-pos_1" "(let-values(((or-part_339)(= exp-pos_1(sub1 end_35))))" "(if or-part_339" " or-part_339" -"(if(= exp-pos_1(- end_35 2))(char-sign?(string-ref s_233(sub1 end_35))) #f)))" +"(if(= exp-pos_1(- end_35 2))(char-sign?(string-ref s_238(sub1 end_35))) #f)))" " #f)" "(let-values()" "(if(eq? convert-mode_5 'must-read)" "(let-values()" -" (format \"missing digits after exponent marker in `~.a`\" (substring s_233 start_45 end_35)))" +" (format \"missing digits after exponent marker in `~.a`\" (substring s_238 start_45 end_35)))" "(let-values() #f)))" "(let-values()" "(let-values(((n_30)" "(string->number$1" -"(maybe-substring s_233 start_45 end_35)" +"(maybe-substring s_238 start_45 end_35)" " radix_7" "(if(let-values(((or-part_340)(eq? convert-mode_5 'number-or-false)))" "(if or-part_340" @@ -49746,7 +50037,7 @@ static const char *startup_source = "(error" " 'string->number" " \"host `string->number` failed on ~s\"" -"(substring s_233 start_45 end_35)))" +"(substring s_238 start_45 end_35)))" "(if(eq? exactness_3 'inexact)" "(let-values()" "(if(extflonum? n_30)" @@ -49755,9 +50046,9 @@ static const char *startup_source = "(let-values()" "(format" " \"cannot convert extflonum `~.a` to inexact\"" -"(substring s_233 start_45 end_35)))" +"(substring s_238 start_45 end_35)))" "(let-values() #f)))" -"(if(if(eqv? n_30 0)(char=?(string-ref s_233 start_45) '#\\-) #f)" +"(if(if(eqv? n_30 0)(char=?(string-ref s_238 start_45) '#\\-) #f)" "(let-values() -0.0)" "(let-values()(exact->inexact n_30)))))" "(let-values() n_30))))))))" @@ -49765,7 +50056,7 @@ static const char *startup_source = "(let-values()" "(let-values(((m-v_0)" "(string->real-number" -" s_233" +" s_238" " start_45" " exp-pos_1" " dot-pos_2" @@ -49776,27 +50067,27 @@ static const char *startup_source = " 'exact" " convert-mode_5)))" "(let-values(((e-v_0)" -"(string->exact-integer-number s_233(+ exp-pos_1 1) end_35 radix_7 convert-mode_5)))" +"(string->exact-integer-number s_238(+ exp-pos_1 1) end_35 radix_7 convert-mode_5)))" "(let-values(((real->precision-inexact_0)" -"(lambda(r_45)" +"(lambda(r_44)" "(begin" " 'real->precision-inexact" -"(let-values(((tmp_41)(string-ref s_233 exp-pos_1)))" +"(let-values(((tmp_41)(string-ref s_238 exp-pos_1)))" "(if(if(equal? tmp_41 '#\\s)" " #t" "(if(equal? tmp_41 '#\\S)" " #t" "(if(equal? tmp_41 '#\\f) #t(equal? tmp_41 '#\\F))))" -"(let-values()(real->single-flonum r_45))" +"(let-values()(real->single-flonum r_44))" "(if(if(equal? tmp_41 '#\\t) #t(equal? tmp_41 '#\\T))" "(let-values()" "(if(extflonum-available?)" -"(real->extfl r_45)" +"(real->extfl r_44)" "(string->number$1" -"(replace-hashes s_233 start_45 end_35)" +"(replace-hashes s_238 start_45 end_35)" " radix_7" " 'read)))" -"(let-values()(real->double-flonum r_45)))))))))" +"(let-values()(real->double-flonum r_44)))))))))" "(let-values(((get-extfl?_0)(extfl-mark?_0)))" "(if(let-values(((or-part_343)(not m-v_0)))(if or-part_343 or-part_343(not e-v_0)))" "(let-values() #f)" @@ -49806,14 +50097,14 @@ static const char *startup_source = "(let-values() e-v_0)" "(if(if(eq? convert-mode_5 'number-or-false) get-extfl?_0 #f)" "(let-values() #f)" -"(if(if(let-values(((or-part_228)(eq? exactness_3 'inexact)))" -"(if or-part_228 or-part_228(eq? exactness_3 'decimal-as-inexact)))" +"(if(if(let-values(((or-part_226)(eq? exactness_3 'inexact)))" +"(if or-part_226 or-part_226(eq? exactness_3 'decimal-as-inexact)))" "(>(abs e-v_0)(if get-extfl?_0 6000 400))" " #f)" "(let-values()" "(real->precision-inexact_0" "(if(eqv? m-v_0 0)" -"(let-values()(if(char=?(string-ref s_233 start_45) '#\\-) -0.0 0.0))" +"(let-values()(if(char=?(string-ref s_238 start_45) '#\\-) -0.0 0.0))" "(if(positive? m-v_0)" "(let-values()(if(positive? e-v_0) +inf.0 0.0))" "(let-values()(if(positive? e-v_0) -inf.0 -0.0))))))" @@ -49823,7 +50114,7 @@ static const char *startup_source = "(let-values()" "(format" " \"cannot convert extflonum `~.a` to ~a\"" -"(substring s_233 start_45 end_35)" +"(substring s_238 start_45 end_35)" " exactness_3))" "(let-values() #f)))" "(let-values()" @@ -49833,14 +50124,14 @@ static const char *startup_source = "(if or-part_344 or-part_344(eq? exactness_3 'decimal-as-exact)))" " #f)" "(let-values() n_31)" -"(if(if(eqv? n_31 0)(char=?(string-ref s_233 start_45) '#\\-) #f)" +"(if(if(eqv? n_31 0)(char=?(string-ref s_238 start_45) '#\\-) #f)" "(let-values()(real->precision-inexact_0 -0.0))" "(let-values()(real->precision-inexact_0 n_31)))))))))))))))))" "(if slash-pos_1" "(let-values()" "(let-values(((n-v_0)" "(string->real-number" -" s_233" +" s_238" " start_45" " slash-pos_1" " #f" @@ -49852,7 +50143,7 @@ static const char *startup_source = " convert-mode_5)))" "(let-values(((d-v_0)" "(string->real-number" -" s_233" +" s_238" "(add1 slash-pos_1)" " end_35" " #f" @@ -49866,13 +50157,13 @@ static const char *startup_source = "(lambda(from-pos_0)" "(begin" " 'get-inexact?" -"(let-values(((or-part_112)(eq? exactness_3 'inexact)))" -"(if or-part_112" -" or-part_112" +"(let-values(((or-part_149)(eq? exactness_3 'inexact)))" +"(if or-part_149" +" or-part_149" "(if(not(eq? exactness_3 'exact))" -"(hashes? s_233 from-pos_0 end_35)" +"(hashes? s_238 from-pos_0 end_35)" " #f)))))))" -"(if(let-values(((or-part_113)(not n-v_0)))(if or-part_113 or-part_113(not d-v_0)))" +"(if(let-values(((or-part_345)(not n-v_0)))(if or-part_345 or-part_345(not d-v_0)))" "(let-values() #f)" "(if(string? n-v_0)" "(let-values() n-v_0)" @@ -49885,14 +50176,14 @@ static const char *startup_source = "(let-values()" "(if(eq?(read-complains convert-mode_5) 'must-read)" "(let-values()" -" (format \"division by zero in `~.a`\" (substring s_233 start_45 end_35)))" +" (format \"division by zero in `~.a`\" (substring s_238 start_45 end_35)))" "(let-values() #f)))))" "(let-values()" "(let-values(((n_32)(/ n-v_0 d-v_0)))" "(if(get-inexact?_0 start_45)(exact->inexact n_32) n_32)))))))))))" "(let-values()" "(string->decimal-number" -" s_233" +" s_238" " start_45" " end_35" " dot-pos_2" @@ -49901,149 +50192,149 @@ static const char *startup_source = " convert-mode_5))))))))))))" "(define-values" "(string->decimal-number)" -"(lambda(s_356 start_46 end_36 dot-pos_3 radix_8 exactness_4 convert-mode_6)" +"(lambda(s_363 start_46 end_36 dot-pos_3 radix_8 exactness_4 convert-mode_6)" "(begin" "(let-values(((get-exact?_0)" -"(let-values(((or-part_345)(eq? exactness_4 'exact)))" -"(if or-part_345 or-part_345(eq? exactness_4 'decimal-as-exact)))))" +"(let-values(((or-part_346)(eq? exactness_4 'exact)))" +"(if or-part_346 or-part_346(eq? exactness_4 'decimal-as-exact)))))" "(let-values(((new-str_0)(make-string(- end_36 start_46(if(if dot-pos_3 get-exact?_0 #f) 1 0)))))" -"((letrec-values(((loop_107)" -"(lambda(i_173 j_3 hashes-pos_0)" +"((letrec-values(((loop_108)" +"(lambda(i_118 j_3 hashes-pos_0)" "(begin" " 'loop" -"(if(< i_173 start_46)" +"(if(< i_118 start_46)" "(let-values()" "(if(= hashes-pos_0 start_46)" "(let-values()" "(if(eq? convert-mode_6 'must-read)" "(let-values()" -" (format \"misplaced `#` in `~.a`\" (substring s_356 start_46 end_36)))" +" (format \"misplaced `#` in `~.a`\" (substring s_363 start_46 end_36)))" "(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_356 start_46 end_36))" +"(let-values()(fail-bad-number convert-mode_6 s_363 start_46 end_36))" "(if(not get-exact?_0)" "(let-values()" -"(if(if(eqv? n_33 0)(char=?(string-ref s_356 start_46) '#\\-) #f)" +"(if(if(eqv? n_33 0)(char=?(string-ref s_363 start_46) '#\\-) #f)" " -0.0" "(exact->inexact n_33)))" "(if(if dot-pos_3 get-exact?_0 #f)" "(let-values()(/ n_33(expt 10(- end_36 dot-pos_3 1))))" "(let-values() n_33))))))))" "(let-values()" -"(let-values(((c_81)(string-ref s_356 i_173)))" +"(let-values(((c_81)(string-ref s_363 i_118)))" "(if(char=? c_81 '#\\.)" "(let-values()" "(if get-exact?_0" "(let-values()" -"(loop_107" -"(sub1 i_173)" +"(loop_108" +"(sub1 i_118)" " j_3" -"(if(= hashes-pos_0(add1 i_173)) i_173 hashes-pos_0)))" +"(if(= hashes-pos_0(add1 i_118)) i_118 hashes-pos_0)))" "(let-values()" "(begin" "(string-set! new-str_0 j_3 c_81)" -"(loop_107" -"(sub1 i_173)" +"(loop_108" +"(sub1 i_118)" "(sub1 j_3)" -"(if(= hashes-pos_0(add1 i_173)) i_173 hashes-pos_0))))))" -"(if(let-values(((or-part_346)(char=? c_81 '#\\-)))" -"(if or-part_346 or-part_346(char=? c_81 '#\\+)))" +"(if(= hashes-pos_0(add1 i_118)) i_118 hashes-pos_0))))))" +"(if(let-values(((or-part_347)(char=? c_81 '#\\-)))" +"(if or-part_347 or-part_347(char=? c_81 '#\\+)))" "(let-values()" "(begin" "(string-set! new-str_0 j_3 c_81)" -"(loop_107" -"(sub1 i_173)" +"(loop_108" +"(sub1 i_118)" "(sub1 j_3)" -"(if(= hashes-pos_0(add1 i_173)) i_173 hashes-pos_0))))" +"(if(= hashes-pos_0(add1 i_118)) i_118 hashes-pos_0))))" "(if(char=? c_81 '#\\#)" "(let-values()" -"(if(= hashes-pos_0(add1 i_173))" +"(if(= hashes-pos_0(add1 i_118))" "(let-values()" "(begin" "(string-set! new-str_0 j_3 '#\\0)" -"(loop_107(sub1 i_173)(sub1 j_3) i_173)))" +"(loop_108(sub1 i_118)(sub1 j_3) i_118)))" "(let-values()" "(if(eq? convert-mode_6 'must-read)" "(let-values()" "(format" " \"misplaced `#` in `~.a`\"" -"(substring s_356 start_46 end_36)))" +"(substring s_363 start_46 end_36)))" "(let-values() #f)))))" "(let-values()" "(begin" "(string-set! new-str_0 j_3 c_81)" -"(loop_107(sub1 i_173)(sub1 j_3) hashes-pos_0)))))))))))))" -" loop_107)" +"(loop_108(sub1 i_118)(sub1 j_3) hashes-pos_0)))))))))))))" +" loop_108)" "(sub1 end_36)" "(sub1(string-length new-str_0))" " end_36))))))" "(define-values" "(string->exact-integer-number)" -"(lambda(s_243 start_26 end_18 radix_9 convert-mode_7)" +"(lambda(s_248 start_47 end_37 radix_9 convert-mode_7)" "(begin" -"(if(hashes? s_243 start_26 end_18)" +"(if(hashes? s_248 start_47 end_37)" "(let-values()" "(if(eq? convert-mode_7 'must-read)" -" (let-values () (format \"misplaced `#` in `~.a`\" (substring s_243 start_26 end_18)))" +" (let-values () (format \"misplaced `#` in `~.a`\" (substring s_248 start_47 end_37)))" "(let-values() #f)))" "(let-values()" -"(let-values(((n_34)(string->number$1(maybe-substring s_243 start_26 end_18) radix_9)))" +"(let-values(((n_34)(string->number$1(maybe-substring s_248 start_47 end_37) radix_9)))" "(if(not n_34)" "(let-values()" "(if(eq? convert-mode_7 'must-read)" -" (let-values () (format \"bad exponent `~.a`\" (substring s_243 start_26 end_18)))" +" (let-values () (format \"bad exponent `~.a`\" (substring s_248 start_47 end_37)))" "(let-values() #f)))" "(let-values() n_34))))))))" "(define-values" "(read-special-number)" -"(lambda(s_246 start_47 end_37 convert-mode_8)" +"(lambda(s_251 start_48 end_38 convert-mode_8)" "(begin" -"(if(=(- end_37 start_47) 6)" -"(if(let-values(((or-part_347)(char=?(string-ref s_246 start_47) '#\\+)))" -"(if or-part_347 or-part_347(char=?(string-ref s_246 start_47) '#\\-)))" -"(let-values(((or-part_348)" -"(if(char=?(char-downcase(string-ref s_246(+ start_47 1))) '#\\i)" -"(if(char=?(char-downcase(string-ref s_246(+ start_47 2))) '#\\n)" -"(if(char=?(char-downcase(string-ref s_246(+ start_47 3))) '#\\f)" -"(if(char=?(char-downcase(string-ref s_246(+ start_47 4))) '#\\.)" +"(if(=(- end_38 start_48) 6)" +"(if(let-values(((or-part_348)(char=?(string-ref s_251 start_48) '#\\+)))" +"(if or-part_348 or-part_348(char=?(string-ref s_251 start_48) '#\\-)))" "(let-values(((or-part_349)" -"(if(char=?(char-downcase(string-ref s_246(+ start_47 5))) '#\\0)" -"(if(char=?(string-ref s_246 start_47) '#\\+) +inf.0 -inf.0)" -" #f)))" -"(if or-part_349" -" or-part_349" +"(if(char=?(char-downcase(string-ref s_251(+ start_48 1))) '#\\i)" +"(if(char=?(char-downcase(string-ref s_251(+ start_48 2))) '#\\n)" +"(if(char=?(char-downcase(string-ref s_251(+ start_48 3))) '#\\f)" +"(if(char=?(char-downcase(string-ref s_251(+ start_48 4))) '#\\.)" "(let-values(((or-part_350)" -"(if(char=?(char-downcase(string-ref s_246(+ start_47 5))) '#\\f)" -"(if(char=?(string-ref s_246 start_47) '#\\+) +inf.f -inf.f)" +"(if(char=?(char-downcase(string-ref s_251(+ start_48 5))) '#\\0)" +"(if(char=?(string-ref s_251 start_48) '#\\+) +inf.0 -inf.0)" " #f)))" "(if or-part_350" " or-part_350" -"(if(char=?(char-downcase(string-ref s_246(+ start_47 5))) '#\\t)" +"(let-values(((or-part_351)" +"(if(char=?(char-downcase(string-ref s_251(+ start_48 5))) '#\\f)" +"(if(char=?(string-ref s_251 start_48) '#\\+) +inf.f -inf.f)" +" #f)))" +"(if or-part_351" +" or-part_351" +"(if(char=?(char-downcase(string-ref s_251(+ start_48 5))) '#\\t)" "(if(not(eq? convert-mode_8 'number-or-false))" -"(if(char=?(string-ref s_246 start_47) '#\\+) '+inf.t '-inf.t)" +"(if(char=?(string-ref s_251 start_48) '#\\+) '+inf.t '-inf.t)" " #f)" " #f)))))" " #f)" " #f)" " #f)" " #f)))" -"(if or-part_348" -" or-part_348" -"(if(char=?(char-downcase(string-ref s_246(+ start_47 1))) '#\\n)" -"(if(char=?(char-downcase(string-ref s_246(+ start_47 2))) '#\\a)" -"(if(char=?(char-downcase(string-ref s_246(+ start_47 3))) '#\\n)" -"(if(char=?(char-downcase(string-ref s_246(+ start_47 4))) '#\\.)" -"(let-values(((or-part_351)" -"(if(char=?(char-downcase(string-ref s_246(+ start_47 5))) '#\\0) +nan.0 #f)))" -"(if or-part_351" -" or-part_351" +"(if or-part_349" +" or-part_349" +"(if(char=?(char-downcase(string-ref s_251(+ start_48 1))) '#\\n)" +"(if(char=?(char-downcase(string-ref s_251(+ start_48 2))) '#\\a)" +"(if(char=?(char-downcase(string-ref s_251(+ start_48 3))) '#\\n)" +"(if(char=?(char-downcase(string-ref s_251(+ start_48 4))) '#\\.)" "(let-values(((or-part_352)" -"(if(char=?(char-downcase(string-ref s_246(+ start_47 5))) '#\\f) +nan.f #f)))" +"(if(char=?(char-downcase(string-ref s_251(+ start_48 5))) '#\\0) +nan.0 #f)))" "(if or-part_352" " or-part_352" -"(if(char=?(char-downcase(string-ref s_246(+ start_47 5))) '#\\t)" +"(let-values(((or-part_353)" +"(if(char=?(char-downcase(string-ref s_251(+ start_48 5))) '#\\f) +nan.f #f)))" +"(if or-part_353" +" or-part_353" +"(if(char=?(char-downcase(string-ref s_251(+ start_48 5))) '#\\t)" "(if(not(eq? convert-mode_8 'number-or-false)) '+nan.t #f)" " #f)))))" " #f)" @@ -50054,10 +50345,10 @@ static const char *startup_source = " #f))))" "(define-values" "(fail-extflonum)" -"(lambda(convert-mode_9 v_234)" +"(lambda(convert-mode_9 v_232)" "(begin" "(if(eq? convert-mode_9 'must-read)" -" (let-values () (format \"cannot combine extflonum `~a` into complex number\" v_234))" +" (let-values () (format \"cannot combine extflonum `~a` into complex number\" v_232))" "(let-values() #f)))))" "(define-values" "(read-for-special-compound65.1)" @@ -50074,32 +50365,32 @@ static const char *startup_source = " combine64_0)" "(begin" " 'read-for-special-compound65" -"(let-values(((s_461) s57_0))" -"(let-values(((start_48) start58_0))" -"(let-values(((end_38) end59_0))" +"(let-values(((s_471) s57_0))" +"(let-values(((start_49) start58_0))" +"(let-values(((end_39) end59_0))" "(let-values(((radix_10) radix60_0))" "(let-values(((exactness_5) exactness61_0))" "(let-values(((convert-mode_10) convert-mode62_0))" "(let-values(((in-complex_3) in-complex53_0))" "(let-values(((reading-first?_0)(if reading-first?56_0 reading-first?54_0 #f)))" -"(let-values(((v_235) v63_0))" +"(let-values(((v_233) v63_0))" "(let-values(((combine_1) combine64_0))" "(let-values()" "(if(eq? exactness_5 'exact)" "(let-values()" "(if(eq? convert-mode_10 'must-read)" -" (let-values () (format \"no exact representation for `~a`\" v_235))" +" (let-values () (format \"no exact representation for `~a`\" v_233))" "(let-values() #f)))" -"(if(if(extflonum? v_235)" -"(let-values(((or-part_353)(not reading-first?_0)))" -"(if or-part_353 or-part_353(not(eq? convert-mode_10 'must-read))))" +"(if(if(extflonum? v_233)" +"(let-values(((or-part_354)(not reading-first?_0)))" +"(if or-part_354 or-part_354(not(eq? convert-mode_10 'must-read))))" " #f)" -"(let-values()(fail-extflonum convert-mode_10 v_235))" +"(let-values()(fail-extflonum convert-mode_10 v_233))" "(let-values()" "(let-values(((v2_7)" -"(let-values(((s176_0) s_461)" -"((start177_0) start_48)" -"((end178_0) end_38)" +"(let-values(((s176_0) s_471)" +"((start177_0) start_49)" +"((end178_0) end_39)" "((radix179_0) radix_10)" "((temp180_0) #t)" "((exactness181_0) exactness_5)" @@ -50119,22 +50410,22 @@ static const char *startup_source = "(let-values() v2_7)" "(if(not v2_7)" "(let-values() v2_7)" -"(if(extflonum? v_235)" -"(let-values()(fail-extflonum convert-mode_10 v_235))" -"(let-values()(combine_1 v_235 v2_7)))))))))))))))))))))))" +"(if(extflonum? v_233)" +"(let-values()(fail-extflonum convert-mode_10 v_233))" +"(let-values()(combine_1 v_233 v2_7)))))))))))))))))))))))" "(define-values" "(hashes?)" -"(lambda(s_125 start_49 end_39)" +"(lambda(s_472 start_50 end_40)" "(begin" "(let-values(((v*_6 start*_5 stop*_6 step*_5)" "(normalise-inputs" " 'in-string" " \"string\"" -"(lambda(x_82)(string? x_82))" -"(lambda(x_83)(unsafe-string-length x_83))" -" s_125" -" start_49" -" end_39" +"(lambda(x_80)(string? x_80))" +"(lambda(x_81)(unsafe-string-length x_81))" +" s_472" +" start_50" +" end_40" " 1)))" "(begin" " #t" @@ -50149,7 +50440,7 @@ static const char *startup_source = "(let-values(((result_120)" "(let-values()(let-values()(char=? c_82 '#\\#)))))" "(values result_120)))))" -"(if(if(not((lambda x_84 result_119) c_82))(not #f) #f)" +"(if(if(not((lambda x_82 result_119) c_82))(not #f) #f)" "(for-loop_273 result_119(unsafe-fx+ idx_5 1))" " result_119)))" " result_118)))))" @@ -50158,32 +50449,32 @@ static const char *startup_source = " start*_5))))))" "(define-values" "(replace-hashes)" -"(lambda(s_462 start_50 end_40)" +"(lambda(s_126 start_51 end_41)" "(begin" -"(let-values(((new-s_9)(make-string(- end_40 start_50))))" +"(let-values(((new-s_9)(make-string(- end_41 start_51))))" "(begin" "(let-values(((v*_7 start*_6 stop*_7 step*_6)" "(normalise-inputs" " 'in-string" " \"string\"" -"(lambda(x_85)(string? x_85))" -"(lambda(x_86)(unsafe-string-length x_86))" -" s_462" -" start_50" -" end_40" +"(lambda(x_83)(string? x_83))" +"(lambda(x_84)(unsafe-string-length x_84))" +" s_126" +" start_51" +" end_41" " 1))" -"((start_51) 0))" +"((start_52) 0))" "(begin" " #t" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-naturals start_51)))" +"(let-values()(check-naturals start_52)))" "((letrec-values(((for-loop_274)" "(lambda(idx_6 pos_114)" "(begin" " 'for-loop" "(if(if(unsafe-fx< idx_6 stop*_7) #t #f)" -"(let-values(((c_83)(string-ref v*_7 idx_6))((i_174) pos_114))" +"(let-values(((c_83)(string-ref v*_7 idx_6))((i_176) pos_114))" "(let-values((()" "(let-values()" "(let-values((()" @@ -50191,52 +50482,52 @@ static const char *startup_source = "(begin" "(let-values()" "(if(char=? c_83 '#\\#)" -"(string-set! new-s_9 i_174 '#\\0)" -"(string-set! new-s_9 i_174 c_83)))" +"(string-set! new-s_9 i_176 '#\\0)" +"(string-set! new-s_9 i_176 c_83)))" "(values)))))" "(values)))))" "(if(not #f)(for-loop_274(unsafe-fx+ idx_6 1)(+ pos_114 1))(values))))" "(values))))))" " for-loop_274)" " start*_6" -" start_51)))" +" start_52)))" "(void)" " new-s_9)))))" "(define-values" "(maybe-substring)" -"(lambda(s_463 start_52 end_41)" -"(begin(if(if(= 0 start_52)(= end_41(string-length s_463)) #f) s_463(substring s_463 start_52 end_41)))))" +"(lambda(s_473 start_53 end_42)" +"(begin(if(if(= 0 start_53)(= end_42(string-length s_473)) #f) s_473(substring s_473 start_53 end_42)))))" "(define-values" "(exactness-set?)" "(lambda(exactness_6)" "(begin" -"(let-values(((or-part_354)(eq? exactness_6 'exact)))(if or-part_354 or-part_354(eq? exactness_6 'inexact))))))" +"(let-values(((or-part_355)(eq? exactness_6 'exact)))(if or-part_355 or-part_355(eq? exactness_6 'inexact))))))" "(define-values" "(char-sign?)" "(lambda(c_84)" -"(begin(let-values(((or-part_355)(char=? c_84 '#\\-)))(if or-part_355 or-part_355(char=? c_84 '#\\+))))))" +"(begin(let-values(((or-part_356)(char=? c_84 '#\\-)))(if or-part_356 or-part_356(char=? c_84 '#\\+))))))" "(define-values" "(digit?)" "(lambda(c_85 radix_11)" "(begin" -"(let-values(((v_236)(char->integer c_85)))" +"(let-values(((v_234)(char->integer c_85)))" "(let-values(((or-part_275)" -"(if(>= v_236(char->integer '#\\0))(<(- v_236(char->integer '#\\0)) radix_11) #f)))" +"(if(>= v_234(char->integer '#\\0))(<(- v_234(char->integer '#\\0)) radix_11) #f)))" "(if or-part_275" " or-part_275" "(if(> radix_11 10)" -"(let-values(((or-part_356)" -"(if(>= v_236(char->integer '#\\a))(<(- v_236(-(char->integer '#\\a) 10)) radix_11) #f)))" -"(if or-part_356" -" or-part_356" -"(if(>= v_236(char->integer '#\\A))(<(- v_236(-(char->integer '#\\A) 10)) radix_11) #f)))" +"(let-values(((or-part_357)" +"(if(>= v_234(char->integer '#\\a))(<(- v_234(-(char->integer '#\\a) 10)) radix_11) #f)))" +"(if or-part_357" +" or-part_357" +"(if(>= v_234(char->integer '#\\A))(<(- v_234(-(char->integer '#\\A) 10)) radix_11) #f)))" " #f)))))))" "(define-values" "(fail-bad-number)" -"(lambda(convert-mode_11 s_464 start_53 end_42)" +"(lambda(convert-mode_11 s_474 start_54 end_43)" "(begin" "(if(eq? convert-mode_11 'must-read)" -" (let-values () (format \"bad number `~.a`\" (substring s_464 start_53 end_42)))" +" (let-values () (format \"bad number `~.a`\" (substring s_474 start_54 end_43)))" "(let-values() #f)))))" "(define-values" "(read-complains)" @@ -50314,17 +50605,17 @@ static const char *startup_source = "(list temp15_5 after-c16_0 temp17_3)))))))" "(let-values((()" "(begin" -"((letrec-values(((loop_108)" +"((letrec-values(((loop_109)" "(lambda(init-c_5" " pipe-quote-c_0" " foldcase-from_0)" "(begin" " 'loop" "(let-values(((c_87)" -"(let-values(((or-part_81)" +"(let-values(((or-part_79)" " init-c_5))" -"(if or-part_81" -" or-part_81" +"(if or-part_79" +" or-part_79" "(let-values(((in_25)" " in_24)" "((skip-count_8)" @@ -50346,11 +50637,11 @@ static const char *startup_source = "(let-values(((ec_4)" "(let-values(((rt_12) rt_11)" "((c_39) c_87))" -"(if(let-values(((or-part_171)" +"(if(let-values(((or-part_173)" "(not" " rt_12)))" -"(if or-part_171" -" or-part_171" +"(if or-part_173" +" or-part_173" "(not" "(char? c_39))))" "(let-values() c_39)" @@ -50398,7 +50689,7 @@ static const char *startup_source = "(consume-char" " in_24" " c_87)))" -"(loop_108" +"(loop_109" " #f" " #f" "(accum-string-count" @@ -50424,7 +50715,7 @@ static const char *startup_source = " accum-str_1" " string-foldcase" " foldcase-from_0)))" -"(loop_108" +"(loop_109" " #f" " c_87" "(accum-string-count" @@ -50474,7 +50765,7 @@ static const char *startup_source = " next-c_0)" "(set! quoted-ever?_0" " #t)" -"(loop_108" +"(loop_109" " #f" " #f" "(accum-string-count" @@ -50490,11 +50781,11 @@ static const char *startup_source = "(accum-string-add!" " accum-str_1" " c_87)" -"(loop_108" +"(loop_109" " #f" " pipe-quote-c_0" " foldcase-from_0))))))))))))))" -" loop_108)" +" loop_109)" " init-c_2" " #f" " 0)" @@ -50530,9 +50821,9 @@ static const char *startup_source = "(void))" "(values))))" "(let-values(((num_0)" -"(if(let-values(((or-part_158)" +"(if(let-values(((or-part_160)" "(eq? mode_17 'symbol-or-number)))" -"(if or-part_158 or-part_158(string? mode_17)))" +"(if or-part_160 or-part_160(string? mode_17)))" "(if(not quoted-ever?_0)" "(1/string->number" "(if(string? mode_17)" @@ -50583,14 +50874,14 @@ static const char *startup_source = "(list temp30_4))))" "(void))" "(wrap" -"(let-values(((or-part_293) num_0))" -"(if or-part_293" -" or-part_293" -"(let-values(((or-part_95)" +"(let-values(((or-part_291) num_0))" +"(if or-part_291" +" or-part_291" +"(let-values(((or-part_94)" "(if(eq? mode_17 'keyword)" "(string->keyword str_29)" " #f)))" -"(if or-part_95 or-part_95(string->symbol str_29)))))" +"(if or-part_94 or-part_94(string->symbol str_29)))))" " in_24" " config_24" " str_29)))))))))))))))))))))))))" @@ -50600,16 +50891,16 @@ static const char *startup_source = "(begin" "(let-values(((c_33)(read-char/skip-whitespace-and-comments init-c_0 read-one_3 in_5 config_15)))" "(let-values(((line_8 col_7 pos_115)(port-next-location* in_5 c_33)))" -" (let-values (((v_92) (read-number-literal c_33 in_5 config_15 \"#e\")))" -"(if(fixnum? v_92)" -"(let-values() v_92)" -"(if(eof-object? v_92)" -"(let-values() v_92)" +" (let-values (((v_93) (read-number-literal c_33 in_5 config_15 \"#e\")))" +"(if(fixnum? v_93)" +"(let-values() v_93)" +"(if(eof-object? v_93)" +"(let-values() v_93)" "(let-values()" "(let-values(((in1_1) in_5)" "((temp2_5)(reading-at config_15 line_8 col_7 pos_115))" " ((temp3_6) \"expected a fixnum, found ~a\")" -"((v4_1) v_92))" +"((v4_1) v_93))" "(reader-error10.1 #f #f #f #f #f #f in1_1 temp2_5 temp3_6(list v4_1))))))))))))" "(define-values" "(read-flonum)" @@ -50694,7 +50985,7 @@ static const char *startup_source = " closer17_0" " in18_0" " config19_1))))" -"(let-values(((vec_64)" +"(let-values(((vec_66)" "(if(not expected-len_0)" "(let-values()" "(let-values(((tmp_42) vector-mode_0))" @@ -50712,7 +51003,7 @@ static const char *startup_source = " \"exact-nonnegative-integer?\"" " len_7)))" "(let-values(((fill_0) 0))" -"(let-values(((v_198)(make-fxvector len_7 fill_0)))" +"(let-values(((v_196)(make-fxvector len_7 fill_0)))" "(begin" "(if(zero? len_7)" "(void)" @@ -50723,20 +51014,20 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()(check-list lst_24)))" -"((letrec-values(((for-loop_252)" -"(lambda(i_91 lst_79)" +"((letrec-values(((for-loop_253)" +"(lambda(i_177 lst_80)" "(begin" " 'for-loop" -"(if(pair? lst_79)" +"(if(pair? lst_80)" "(let-values(((e_72)" "(unsafe-car" -" lst_79))" +" lst_80))" "((rest_142)" "(unsafe-cdr" -" lst_79)))" +" lst_80)))" "(let-values(((i_39)" "(let-values(((i_40)" -" i_91))" +" i_177))" "(let-values(((i_41)" "(let-values()" "(begin" @@ -50746,7 +51037,7 @@ static const char *startup_source = "(if(fixnum?" " elem_0)" "(unsafe-fxvector-set!" -" v_198" +" v_196" " i_40" " elem_0)" "(not-an-fX.1" @@ -50758,22 +51049,22 @@ static const char *startup_source = "(values" " i_41)))))" "(if(if(not" -"((lambda x_87" +"((lambda x_85" "(unsafe-fx=" " i_39" " len_7))" " e_72))" "(not #f)" " #f)" -"(for-loop_252" +"(for-loop_253" " i_39" " rest_142)" " i_39)))" -" i_91)))))" -" for-loop_252)" +" i_177)))))" +" for-loop_253)" " 0" " lst_24)))))" -" v_198))))))" +" v_196))))))" "(if(equal? tmp_42 'flonum)" "(let-values()" "(let-values(((len_37)(length seq_2)))" @@ -50786,19 +51077,19 @@ static const char *startup_source = " \"exact-nonnegative-integer?\"" " len_37)))" "(let-values(((fill_1) 0.0))" -"(let-values(((v_237)(make-flvector len_37 fill_1)))" +"(let-values(((v_235)(make-flvector len_37 fill_1)))" "(begin" "(if(zero? len_37)" "(void)" "(let-values()" -"(let-values(((lst_91) seq_2))" +"(let-values(((lst_92) seq_2))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_91)))" -"((letrec-values(((for-loop_187)" -"(lambda(i_175 lst_17)" +"(let-values()(check-list lst_92)))" +"((letrec-values(((for-loop_189)" +"(lambda(i_178 lst_17)" "(begin" " 'for-loop" "(if(pair? lst_17)" @@ -50808,10 +51099,10 @@ static const char *startup_source = "((rest_88)" "(unsafe-cdr" " lst_17)))" -"(let-values(((i_160)" -"(let-values(((i_90)" -" i_175))" -"(let-values(((i_176)" +"(let-values(((i_158)" +"(let-values(((i_93)" +" i_178))" +"(let-values(((i_179)" "(let-values()" "(begin" "(let-values(((elem_1)" @@ -50820,34 +51111,34 @@ static const char *startup_source = "(if(flonum?" " elem_1)" "(unsafe-flvector-set!" -" v_237" -" i_90" +" v_235" +" i_93" " elem_1)" "(not-an-fX.1$1" " 'for*/vector" " elem_1)))" "(unsafe-fx+" " 1" -" i_90)))))" +" i_93)))))" "(values" -" i_176)))))" +" i_179)))))" "(if(if(not" -"((lambda x_88" +"((lambda x_86" "(unsafe-fx=" -" i_160" +" i_158" " len_37))" " e_79))" "(not #f)" " #f)" -"(for-loop_187" -" i_160" +"(for-loop_189" +" i_158" " rest_88)" -" i_160)))" -" i_175)))))" -" for-loop_187)" +" i_158)))" +" i_178)))))" +" for-loop_189)" " 0" -" lst_91)))))" -" v_237))))))" +" lst_92)))))" +" v_235))))))" "(let-values()(void)))))))" "(let-values()" "(let-values(((len_38)(length seq_2)))" @@ -50883,20 +51174,20 @@ static const char *startup_source = "(list temp25_7 expected-len26_0 len27_0))))" "(let-values()" "(let-values(((last-or_0)" -"(lambda(v_238)" +"(lambda(v_236)" "(begin" " 'last-or" "(if(null? seq_2)" -"(wrap v_238 in_29 config_39 #f)" -"((letrec-values(((loop_109)" +"(wrap v_236 in_29 config_39 #f)" +"((letrec-values(((loop_110)" "(lambda(seq_3)" "(begin" " 'loop" "(if(null?(cdr seq_3))" "(car seq_3)" -"(loop_109" +"(loop_110" "(cdr seq_3)))))))" -" loop_109)" +" loop_110)" " seq_2))))))" "(let-values((()" "(begin" @@ -50908,7 +51199,7 @@ static const char *startup_source = "(current-continuation-marks))))" "(void))" "(values))))" -"(let-values(((vec_65)" +"(let-values(((vec_67)" "(let-values(((tmp_44) vector-mode_0))" "(if(equal? tmp_44 'any)" "(let-values()" @@ -50931,7 +51222,7 @@ static const char *startup_source = "(if(equal? tmp_45 'any)" "(let-values()" "(begin" -"(let-values(((lst_9) seq_2)((start_54) 0))" +"(let-values(((lst_9) seq_2)((start_55) 0))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" @@ -50940,7 +51231,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-naturals start_54)))" +"(let-values()(check-naturals start_55)))" "((letrec-values(((for-loop_275)" "(lambda(lst_10 pos_116)" "(begin" @@ -50951,10 +51242,10 @@ static const char *startup_source = "(let-values(((e_80)" "(unsafe-car" " lst_10))" -"((rest_166)" +"((rest_168)" "(unsafe-cdr" " lst_10))" -"((i_177)" +"((i_180)" " pos_116))" "(let-values((()" "(let-values()" @@ -50963,25 +51254,25 @@ static const char *startup_source = "(begin" "(let-values()" "(vector-set!" -" vec_65" -" i_177" +" vec_67" +" i_180" " e_80))" "(values)))))" "(values)))))" "(if(not #f)" "(for-loop_275" -" rest_166" +" rest_168" "(+ pos_116 1))" "(values))))" "(values))))))" " for-loop_275)" " lst_9" -" start_54)))" +" start_55)))" "(void)))" "(if(equal? tmp_45 'fixnum)" "(let-values()" "(begin" -"(let-values(((lst_227) seq_2)((start_55) 0))" +"(let-values(((lst_227) seq_2)((start_56) 0))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" @@ -50990,22 +51281,22 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-naturals start_55)))" -"((letrec-values(((for-loop_95)" -"(lambda(lst_178 pos_109)" +"(let-values()(check-naturals start_56)))" +"((letrec-values(((for-loop_99)" +"(lambda(lst_180 pos_109)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_178)" +" lst_180)" " #t" " #f)" "(let-values(((e_81)" "(unsafe-car" -" lst_178))" -"((rest_172)" +" lst_180))" +"((rest_174)" "(unsafe-cdr" -" lst_178))" -"((i_178)" +" lst_180))" +"((i_181)" " pos_109))" "(let-values((()" "(let-values()" @@ -51014,52 +51305,52 @@ static const char *startup_source = "(begin" "(let-values()" "(fxvector-set!" -" vec_65" -" i_178" +" vec_67" +" i_181" " e_81))" "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_95" -" rest_172" +"(for-loop_99" +" rest_174" "(+" " pos_109" " 1))" "(values))))" "(values))))))" -" for-loop_95)" +" for-loop_99)" " lst_227" -" start_55)))" +" start_56)))" "(void)))" "(if(equal? tmp_45 'flonum)" "(let-values()" "(begin" -"(let-values(((lst_312) seq_2)((start_56) 0))" +"(let-values(((lst_311) seq_2)((start_57) 0))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_312)))" +"(let-values()(check-list lst_311)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" -"(check-naturals start_56)))" -"((letrec-values(((for-loop_105)" -"(lambda(lst_281" +"(check-naturals start_57)))" +"((letrec-values(((for-loop_109)" +"(lambda(lst_279" " pos_117)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_281)" +" lst_279)" " #t" " #f)" "(let-values(((e_82)" "(unsafe-car" -" lst_281))" -"((rest_44)" +" lst_279))" +"((rest_45)" "(unsafe-cdr" -" lst_281))" +" lst_279))" "((i_35)" " pos_117))" "(let-values((()" @@ -51069,26 +51360,26 @@ static const char *startup_source = "(begin" "(let-values()" "(flvector-set!" -" vec_65" +" vec_67" " i_35" " e_82))" "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_105" -" rest_44" +"(for-loop_109" +" rest_45" "(+" " pos_117" " 1))" "(values))))" "(values))))))" -" for-loop_105)" -" lst_312" -" start_56)))" +" for-loop_109)" +" lst_311" +" start_57)))" "(void)))" "(let-values()(void))))))" -" vec_65))))))))))))" -"(wrap vec_64 in_29 config_39 opener_2))))))))))))))))" +" vec_67))))))))))))" +"(wrap vec_66 in_29 config_39 opener_2))))))))))))))))" "(define-values" "(read-fixnum-or-flonum-vector)" "(lambda(read-one_6 dispatch-c_0 c_89 c2_4 in_32 config_42)" @@ -51217,7 +51508,7 @@ static const char *startup_source = "(let-values(((accum-str_2)(accum-string-init! config_43)))" "(let-values((()(begin(accum-string-add! accum-str_2 init-c_9)(values))))" "(let-values(((init-v_1)(digit->number init-c_9)))" -"(let-values(((v_97)" +"(let-values(((v_98)" "(let-values(((in69_0) in_34)" "((config70_0) config_43)" "((accum-str71_0) accum-str_2)" @@ -51237,7 +51528,7 @@ static const char *startup_source = " accum-str71_0" " #t))))" "(values" -" v_97" +" v_98" "(let-values(((accum-str76_0) accum-str_2)((config77_0) config_43))" "(accum-string-get!6.1 #f #f accum-str76_0 config77_0))" "(let-values(((in_35) in_34)((source_21)(read-config-source config_43)))" @@ -51524,9 +51815,9 @@ static const char *startup_source = "(if(if(equal? tmp_34 '#\\=) #t(equal? tmp_34 '#\\#))" "(let-values()" "(begin" -"(if(let-values(((or-part_357)(read-config-for-syntax? config_46)))" -"(if or-part_357" -" or-part_357" +"(if(let-values(((or-part_358)(read-config-for-syntax? config_46)))" +"(if or-part_358" +" or-part_358" "(not(check-parameter 1/read-accept-graph config_46))))" "(let-values()" "(let-values(((in37_0) in_38)" @@ -51576,10 +51867,10 @@ static const char *startup_source = "(if(equal? tmp_48 '#\\=)" "(let-values()" "(let-values(((ph_1)(make-placeholder 'placeholder)))" -"(let-values(((ht_27)(get-graph-hash config_46)))" +"(let-values(((ht_159)(get-graph-hash config_46)))" "(let-values((()" "(begin" -"(if(hash-ref ht_27 v_28 #f)" +"(if(hash-ref ht_159 v_28 #f)" "(let-values()" "(let-values(((in50_0) in_38)" "((config51_0) config_46)" @@ -51609,7 +51900,7 @@ static const char *startup_source = "(list dispatch-c53_0 temp54_3 c55_0))))" "(void))" "(values))))" -"(let-values((()(begin(hash-set! ht_27 v_28 ph_1)(values))))" +"(let-values((()(begin(hash-set! ht_159 v_28 ph_1)(values))))" "(let-values(((result-v_0)" "(read-one_3 #f in_38(next-readtable config_46))))" "(begin" @@ -51649,9 +51940,9 @@ static const char *startup_source = "(let-values()" "(begin0" "(hash-ref" -"(let-values(((or-part_358)" +"(let-values(((or-part_359)" "(read-config-state-graph(read-config-st config_46))))" -"(if or-part_358 or-part_358 '#hash()))" +"(if or-part_359 or-part_359 '#hash()))" " v_28" "(lambda()" "(let-values(((in67_0) in_38)" @@ -51707,13 +51998,13 @@ static const char *startup_source = "(let-values(((or-part_146)(read-config-state-graph st_3)))" "(if or-part_146" " or-part_146" -"(let-values(((ht_157)(make-hasheqv)))(begin(set-read-config-state-graph! st_3 ht_157) ht_157))))))))" +"(let-values(((ht_160)(make-hasheqv)))(begin(set-read-config-state-graph! st_3 ht_160) ht_160))))))))" "(define-values" "(coerce-key)" -"(lambda(key_86 config_8)" +"(lambda(key_87 config_8)" "(begin" "(let-values(((for-syntax?_7)(read-config-for-syntax? config_8)))" -"((read-config-coerce-key config_8) for-syntax?_7 key_86)))))" +"((read-config-coerce-key config_8) for-syntax?_7 key_87)))))" "(define-values" "(read-hash)" "(lambda(read-one_3 dispatch-c_1 init-c_11 in_38 config_46)" @@ -52125,7 +52416,7 @@ static const char *startup_source = " temp71_1" "(list temp72_1)))))" "(values))))" -"(let-values(((v_239)(read-one_8 #f in_41 elem-config_1)))" +"(let-values(((v_237)(read-one_8 #f in_41 elem-config_1)))" "(let-values(((closer-c_0)" "(read-char/skip-whitespace-and-comments #f read-one_8 in_41 config_48)))" "(let-values(((closer-line_0 closer-col_0 closer-pos_0)" @@ -52156,7 +52447,7 @@ static const char *startup_source = " temp74_0" " temp76_0" "(list temp77_1)))))" -"(cons(coerce-key k_40 elem-config_1) v_239))))))))))))))))))))))" +"(cons(coerce-key k_40 elem-config_1) v_237))))))))))))))))))))))" "(define-values" "(read-string5.1)" "(lambda(mode1_1 mode2_0 in3_0 config4_0)" @@ -52198,7 +52489,7 @@ static const char *startup_source = "(list mode16_0)))))))))" "(let-values((()" "(begin" -"((letrec-values(((loop_110)" +"((letrec-values(((loop_111)" "(lambda()" "(begin" " 'loop" @@ -52484,7 +52775,7 @@ static const char *startup_source = "(let-values(((init-v_3)" "(digit->number" " escaped-c_0)))" -"(let-values(((v_183)" +"(let-values(((v_181)" "(let-values(((in23_1)" " in_43)" "((config24_1)" @@ -52511,7 +52802,7 @@ static const char *startup_source = " accum-str25_0" " #t))))" "(begin" -"(if(<= v_183 255)" +"(if(<= v_181 255)" "(void)" "(let-values()" "(let-values(((in30_0)" @@ -52556,13 +52847,13 @@ static const char *startup_source = "(accum-string-add!" " accum-str_4" "(integer->char" -" v_183)))))))))" +" v_181)))))))))" "(if(unsafe-fx< index_3 14)" "(let-values()" "(let-values(((pos_119)" "(accum-string-count" " accum-str_4)))" -"(let-values(((v_240)" +"(let-values(((v_238)" "(let-values(((in39_1)" " in_43)" "((config40_0)" @@ -52585,13 +52876,13 @@ static const char *startup_source = " accum-str41_0" " #t))))" "(begin" -"(if(integer? v_240)" +"(if(integer? v_238)" "(void)" "(let-values()" "(no-hex-digits" " in_43" " config_22" -" v_240" +" v_238" " escaping-c_0" " escaped-c_0)))" "(set-accum-string-count!" @@ -52600,7 +52891,7 @@ static const char *startup_source = "(accum-string-add!" " accum-str_4" "(integer->char" -" v_240))))))" +" v_238))))))" "(if(unsafe-fx< index_3 15)" "(let-values()" "(let-values((()" @@ -52615,7 +52906,7 @@ static const char *startup_source = "(let-values(((pos_120)" "(accum-string-count" " accum-str_4)))" -"(let-values(((v_241)" +"(let-values(((v_239)" "(let-values(((in44_1)" " in_43)" "((config45_1)" @@ -52638,23 +52929,23 @@ static const char *startup_source = " accum-str46_0" " #t))))" "(begin" -"(if(integer? v_241)" +"(if(integer? v_239)" "(void)" "(let-values()" "(no-hex-digits" " in_43" " config_22" -" v_241" +" v_239" " escaping-c_0" " escaped-c_0)))" -"(if(let-values(((or-part_359)" +"(if(let-values(((or-part_360)" "(<" -" v_241" +" v_239" " 55296)))" -"(if or-part_359" -" or-part_359" +"(if or-part_360" +" or-part_360" "(>" -" v_241" +" v_239" " 57343)))" "(let-values()" "(begin" @@ -52664,7 +52955,7 @@ static const char *startup_source = "(accum-string-add!" " accum-str_4" "(integer->char" -" v_241))))" +" v_239))))" "(let-values()" "(let-values(((next!_0)" "(lambda()" @@ -52748,7 +53039,7 @@ static const char *startup_source = "(+" "(arithmetic-shift" "(-" -" v_241" +" v_239" " 55296)" " 10)" "(-" @@ -52850,7 +53141,7 @@ static const char *startup_source = "(let-values(((pos_121)" "(accum-string-count" " accum-str_4)))" -"(let-values(((v_242)" +"(let-values(((v_240)" "(let-values(((in71_0)" " in_43)" "((config72_0)" @@ -52873,26 +53164,26 @@ static const char *startup_source = " accum-str73_0" " #t))))" "(begin" -"(if(integer? v_242)" +"(if(integer? v_240)" "(void)" "(let-values()" "(no-hex-digits" " in_43" " config_22" -" v_242" +" v_240" " escaping-c_0" " escaped-c_0)))" "(if(if(let-values(((or-part_145)" "(<" -" v_242" +" v_240" " 55296)))" "(if or-part_145" " or-part_145" "(>" -" v_242" +" v_240" " 57343)))" "(<=" -" v_242" +" v_240" " 1114111)" " #f)" "(let-values()" @@ -52903,7 +53194,7 @@ static const char *startup_source = "(accum-string-add!" " accum-str_4" "(integer->char" -" v_242))))" +" v_240))))" "(let-values()" "(let-values(((in76_0)" " in_43)" @@ -52938,7 +53229,7 @@ static const char *startup_source = "(list" " escaping-c79_0" " temp80_4)))))))))))))))))" -"(loop_110)))))))" +"(loop_111)))))))" " (if (char=? '#\\\" c_49)" "(let-values() null)" "(let-values()" @@ -52966,8 +53257,8 @@ static const char *startup_source = "(list c87_0))))))" "(void))" "(accum-string-add! accum-str_4 c_49)" -"(loop_110)))))))))))" -" loop_110))" +"(loop_111)))))))))))" +" loop_111))" "(values))))" "(let-values(((str_30)" "(if(eq? mode_0 '|byte string|)" @@ -52985,7 +53276,7 @@ static const char *startup_source = "(let-values(((full-terminator_0)" "(cons" " '#\\newline" -"((letrec-values(((loop_111)" +"((letrec-values(((loop_112)" "(lambda()" "(begin" " 'loop" @@ -53030,11 +53321,11 @@ static const char *startup_source = "(list))))" "(if(char=? c_97 '#\\newline)" "(let-values() null)" -"(let-values()(cons c_97(loop_111)))))))))))" -" loop_111)))))" +"(let-values()(cons c_97(loop_112)))))))))))" +" loop_112)))))" "(let-values((()" "(begin" -"((letrec-values(((loop_112)" +"((letrec-values(((loop_113)" "(lambda(terminator_0 terminator-accum_0)" "(begin" " 'loop" @@ -53086,7 +53377,7 @@ static const char *startup_source = "(char=? c_98(car terminator_0))" " #f)" "(let-values()" -"(loop_112" +"(loop_113" "(cdr terminator_0)" "(cons(car terminator_0) terminator-accum_0)))" "(if(if(null? terminator_0)(char=? c_98 '#\\newline) #f)" @@ -53105,16 +53396,16 @@ static const char *startup_source = "(void)" "(let-values()(check-list lst_232)))" "((letrec-values(((for-loop_276)" -"(lambda(lst_313)" +"(lambda(lst_312)" "(begin" " 'for-loop" -"(if(pair? lst_313)" +"(if(pair? lst_312)" "(let-values(((c_99)" "(unsafe-car" -" lst_313))" -"((rest_173)" +" lst_312))" +"((rest_175)" "(unsafe-cdr" -" lst_313)))" +" lst_312)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -53128,7 +53419,7 @@ static const char *startup_source = "(values)))))" "(if(not #f)" "(for-loop_276" -" rest_173)" +" rest_175)" "(values))))" "(values))))))" " for-loop_276)" @@ -53136,14 +53427,14 @@ static const char *startup_source = "(void))))" "(if(char=? c_98 '#\\newline)" "(let-values()" -"(loop_112" +"(loop_113" "(cdr full-terminator_0)" "(list '#\\newline)))" "(let-values()" "(begin" "(accum-string-add! accum-str_5 c_98)" -"(loop_112 full-terminator_0 null)))))))))))))))" -" loop_112)" +"(loop_113 full-terminator_0 null)))))))))))))))" +" loop_113)" "(cdr full-terminator_0)" " null)" "(values))))" @@ -53204,7 +53495,7 @@ static const char *startup_source = "(let-values(((in_44) in_4)" "((source_6)(read-config-source config_8)))" "(read-char-or-special in_44 special1.1 source_6))))" -"(let-values(((v_82)" +"(let-values(((v_83)" "(if(if(char? c3_6)(octal-digit? c3_6) #f)" "(let-values()" "(+" @@ -53213,7 +53504,7 @@ static const char *startup_source = "(digit->number c3_6)))" "(let-values() #f))))" "(begin" -"(if(if v_82(<= v_82 255) #f)" +"(if(if v_83(<= v_83 255) #f)" "(void)" "(let-values()" "(let-values(((in9_2) in_4)" @@ -53234,10 +53525,10 @@ static const char *startup_source = " config10_1" " temp12_5" "(list c13_2 c214_0 temp15_7)))))" -"(integer->char v_82))))))" +"(integer->char v_83))))))" "(let-values() c_101))))" -"(if(let-values(((or-part_70)(char=? c_101 '#\\u)))" -"(if or-part_70 or-part_70(char=? c_101 '#\\U)))" +"(if(let-values(((or-part_69)(char=? c_101 '#\\u)))" +"(if or-part_69 or-part_69(char=? c_101 '#\\U)))" "(let-values()" "(let-values(((accum-str_6)(accum-string-init! config_8)))" "(let-values(((v_33)" @@ -53259,8 +53550,8 @@ static const char *startup_source = " #t))))" "(if(integer? v_33)" "(let-values()" -"(if(if(let-values(((or-part_360)(< v_33 55296)))" -"(if or-part_360 or-part_360(> v_33 57343)))" +"(if(if(let-values(((or-part_361)(< v_33 55296)))" +"(if or-part_361 or-part_361(> v_33 57343)))" "(<= v_33 1114111)" " #f)" "(let-values()" @@ -53306,7 +53597,7 @@ static const char *startup_source = "(let-values((()(begin(consume-char in_4 next-c_4)(values))))" "(let-values((()" "(begin" -"((letrec-values(((loop_102)" +"((letrec-values(((loop_103)" "(lambda()" "(begin" " 'loop" @@ -53342,11 +53633,11 @@ static const char *startup_source = "(consume-char" " in_4" " next-c_5)" -"(loop_102)))" +"(loop_103)))" "(void)))))))" -" loop_102))" +" loop_103))" "(values))))" -"(let-values(((name_67)" +"(let-values(((name_66)" "(string-foldcase" "(let-values(((accum-str27_0) accum-str_7)" "((config28_1) config_8))" @@ -53355,7 +53646,7 @@ static const char *startup_source = " #f" " accum-str27_0" " config28_1)))))" -"(let-values(((tmp_53) name_67))" +"(let-values(((tmp_53) name_66))" " (if (if (equal? tmp_53 \"nul\") #t (equal? tmp_53 \"null\"))" "(let-values() '#\\nul)" " (if (equal? tmp_53 \"backspace\")" @@ -53381,7 +53672,7 @@ static const char *startup_source = "((config30_0) config_8)" "((temp31_7)" " \"bad character constant `#\\\\~a`\")" -"((name32_0) name_67))" +"((name32_0) name_66))" "(reader-error10.1" " #f" " #f" @@ -53415,12 +53706,12 @@ static const char *startup_source = "(wrap(list wrapped-sym_0 e_84) in_43 config_22 #f)))))))" "(define-values" "(read-delimited-constant)" -"(lambda(init-c_1 can-match?_0 chars_0 val_75 in_43 config_22)" +"(lambda(init-c_1 can-match?_0 chars_0 val_76 in_43 config_22)" "(begin" "(let-values(((accum-str_8)(accum-string-init! config_22)))" "(begin" "(accum-string-add! accum-str_8 init-c_1)" -"((letrec-values(((loop_113)" +"((letrec-values(((loop_114)" "(lambda(chars_1)" "(begin" " 'loop" @@ -53486,7 +53777,7 @@ static const char *startup_source = "(begin" "(consume-char in_43 c_102)" "(accum-string-add! accum-str_8 c_102)" -"(loop_113(cdr chars_1))))" +"(loop_114(cdr chars_1))))" "(let-values()" "(begin" "(consume-char/special in_43 config_22 c_102)" @@ -53509,10 +53800,10 @@ static const char *startup_source = " config15_2" " temp16_5" "(list temp17_3)))))))))))))" -" loop_113)" +" loop_114)" " chars_0)" "(wrap" -" val_75" +" val_76" " in_43" " config_22" "(let-values(((accum-str20_0) accum-str_8)((config21_1) config_22))" @@ -53809,7 +54100,7 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"((letrec-values(((loop_114)" +"((letrec-values(((loop_115)" "(lambda()" "(begin" " 'loop" @@ -53854,16 +54145,16 @@ static const char *startup_source = "(list extend-str96_0)))))" "(if(char-whitespace? c_9)" "(let-values()(void))" -"(if(let-values(((or-part_361)" +"(if(let-values(((or-part_179)" "(char-lang-nonsep? c_9)))" -"(if or-part_361" -" or-part_361" +"(if or-part_179" +" or-part_179" "(char=? '#\\/ c_9)))" "(let-values()" "(begin" "(consume-char in_21 c_9)" "(accum-string-add! accum-str_10 c_9)" -"(loop_114)))" +"(loop_115)))" "(let-values()" "(begin" "(consume-char in_21 c_9)" @@ -53889,7 +54180,7 @@ static const char *startup_source = "(list" " extend-str100_0" " c101_0))))))))))))))" -" loop_114))" +" loop_115))" "(values))))" "(let-values(((lang-str_0)" "(let-values(((accum-str102_0) accum-str_10)((config103_0) config_35))" @@ -53991,17 +54282,17 @@ static const char *startup_source = "(lambda(c_105)" "(begin" "(if(<(char->integer c_105) 128)" -"(let-values(((or-part_277)(char-alphabetic? c_105)))" -"(if or-part_277" -" or-part_277" +"(let-values(((or-part_276)(char-alphabetic? c_105)))" +"(if or-part_276" +" or-part_276" "(let-values(((or-part_362)(char-numeric? c_105)))" "(if or-part_362" " or-part_362" "(let-values(((or-part_304)(char=? '#\\- c_105)))" "(if or-part_304" " or-part_304" -"(let-values(((or-part_363)(char=? '#\\+ c_105)))" -"(if or-part_363 or-part_363(char=? '#\\_ c_105)))))))))" +"(let-values(((or-part_180)(char=? '#\\+ c_105)))" +"(if or-part_180 or-part_180(char=? '#\\_ c_105)))))))))" " #f))))" "(define-values" "(read-extension-prefix)" @@ -54013,11 +54304,11 @@ static const char *startup_source = "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_33)))" "((letrec-values(((for-loop_25)" -"(lambda(lst_105)" +"(lambda(lst_313)" "(begin" " 'for-loop" -"(if(pair? lst_105)" -"(let-values(((c_106)(unsafe-car lst_105))((rest_50)(unsafe-cdr lst_105)))" +"(if(pair? lst_313)" +"(let-values(((c_106)(unsafe-car lst_313))((rest_176)(unsafe-cdr lst_313)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -54027,7 +54318,7 @@ static const char *startup_source = "(accum-string-add! accum-str_11 c_106))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_25 rest_50)(values))))" +"(if(not #f)(for-loop_25 rest_176)(values))))" "(values))))))" " for-loop_25)" " lst_33)))" @@ -54095,7 +54386,7 @@ static const char *startup_source = "(let-values((()(begin(force-parameters! config_54)(values))))" "(let-values(((guard_0)(1/current-reader-guard)))" "(let-values(((mod-path_27)" -"(let-values(((or-part_364)" +"(let-values(((or-part_363)" "(if try-first-mod-path_0" "(let-values(((mod-path_28)(guard_0 try-first-mod-path_0)))" "(if((read-config-module-declared? config_54)" @@ -54103,7 +54394,7 @@ static const char *startup_source = " mod-path_28" " #f))" " #f)))" -"(if or-part_364 or-part_364(guard_0 mod-path-datum_0)))))" +"(if or-part_363 or-part_363(guard_0 mod-path-datum_0)))))" "(let-values(((for-syntax?_8)(read-config-for-syntax? config_54)))" "(let-values(((dynamic-require_2)(read-config-dynamic-require config_54)))" "(let-values(((no-value_0)(gensym)))" @@ -54248,10 +54539,10 @@ static const char *startup_source = "(lambda(in_44 config_55 prefix_7 c_38)" "(begin" "(let-values(((add-prefix_0)" -"(lambda(s_421)" +"(lambda(s_428)" "(begin" " 'add-prefix" -" (if (string=? prefix_7 \"\") (format \"`~a` followed by ~a\" prefix_7 s_421) s_421)))))" +" (if (string=? prefix_7 \"\") (format \"`~a` followed by ~a\" prefix_7 s_428) s_428)))))" "(let-values(((in11_2) in_44)" "((config12_4) config_55)" "((c13_3) c_38)" @@ -54373,26 +54664,26 @@ static const char *startup_source = " #t" " wrap63_0" " #t)))))))" -"(let-values(((v_132)(read-one init-c_14 in_12 config_56)))" -"(if(if(let-values(((or-part_95)(not recursive?_0)))" -"(if or-part_95 or-part_95 local-graph?_1))" +"(let-values(((v_241)(read-one init-c_14 in_12 config_56)))" +"(if(if(let-values(((or-part_94)(not recursive?_0)))" +"(if or-part_94 or-part_94 local-graph?_1))" "(read-config-state-graph(read-config-st config_56))" " #f)" "(let-values()" "(catch-and-reraise-as-reader/proc" " #f" " config_56" -"(lambda()(make-reader-graph v_132))))" +"(lambda()(make-reader-graph v_241))))" "(if(if recursive?_0" "(if(not local-graph?_1)" "(if(not for-syntax?_9)" -"(if(not(eof-object? v_132))(not(1/special-comment? v_132)) #f)" +"(if(not(eof-object? v_241))(not(1/special-comment? v_241)) #f)" " #f)" " #f)" " #f)" "(let-values()" -"(begin(get-graph-hash config_56)(make-placeholder v_132)))" -"(let-values() v_132))))))))))))))))))))))))" +"(begin(get-graph-hash config_56)(make-placeholder v_241)))" +"(let-values() v_241))))))))))))))))))))))))" "(define-values" "(read-language49.1)" "(lambda(coerce38_0" @@ -54467,12 +54758,12 @@ static const char *startup_source = "(if(check-parameter 1/read-cdot config_59)" "(let-values()" "(let-values(((line_11 col_10 pos_123)(port-next-location in_64)))" -"(let-values(((v_186)(read-undotted init-c_15 in_64 config_59)))" -"(if(1/special-comment? v_186)" -"(let-values() v_186)" +"(let-values(((v_184)(read-undotted init-c_15 in_64 config_59)))" +"(if(1/special-comment? v_184)" +"(let-values() v_184)" "(let-values()" -"((letrec-values(((loop_115)" -"(lambda(v_243)" +"((letrec-values(((loop_116)" +"(lambda(v_242)" "(begin" " 'loop" "(let-values(((c_107)" @@ -54488,9 +54779,9 @@ static const char *startup_source = "(if(eq? c_108 'special)(special1.1 'special) c_108)))))" "(let-values(((ec_9)(effective-char c_107 config_59)))" "(if(not(char? ec_9))" -"(let-values() v_243)" +"(let-values() v_242)" "(if(char-whitespace? ec_9)" -"(let-values()(begin(consume-char in_64 c_107)(loop_115 v_243)))" +"(let-values()(begin(consume-char in_64 c_107)(loop_116 v_242)))" "(if(char=? ec_9 '#\\.)" "(let-values()" "(let-values(((dot-line_2 dot-col_2 dot-pos_5)" @@ -54508,15 +54799,15 @@ static const char *startup_source = " '#\\.)))" "(let-values(((post-v_0)" "(read-undotted #f in_64 config_59)))" -"(loop_115" +"(loop_116" "(wrap" -"(list cdot_0 v_243 post-v_0)" +"(list cdot_0 v_242 post-v_0)" " in_64" "(reading-at config_59 line_11 col_10 pos_123)" " '#\\.)))))))" -"(let-values() v_243))))))))))" -" loop_115)" -" v_186))))))" +"(let-values() v_242))))))))))" +" loop_116)" +" v_184))))))" "(void))))))" "(define-values" "(read-undotted)" @@ -54528,15 +54819,15 @@ static const char *startup_source = "(let-values() eof)" "(if(not(char? c_109))" "(let-values()" -"(let-values(((v_244)(special-value c_109)))" -"(if(1/special-comment? v_244)" -"(let-values()(if(read-config-keep-comment? config_54) v_244(read-undotted #f in_62 config_54)))" -"(let-values()(coerce v_244 in_62(reading-at config_54 line_12 col_11 pos_124))))))" +"(let-values(((v_243)(special-value c_109)))" +"(if(1/special-comment? v_243)" +"(let-values()(if(read-config-keep-comment? config_54) v_243(read-undotted #f in_62 config_54)))" +"(let-values()(coerce v_243 in_62(reading-at config_54 line_12 col_11 pos_124))))))" "(let-values(((c2_8)(readtable-handler config_54 c_109)))" "(if c2_8" "((lambda(handler_3)" -"(let-values(((v_245)(readtable-apply handler_3 c_109 in_62 config_54 line_12 col_11 pos_124)))" -"(retry-special-comment v_245 in_62 config_54)))" +"(let-values(((v_244)(readtable-apply handler_3 c_109 in_62 config_54 line_12 col_11 pos_124)))" +"(retry-special-comment v_244 in_62 config_54)))" " c2_8)" "(let-values()" "(let-values(((ec_10)(effective-char c_109 config_54)))" @@ -54605,7 +54896,7 @@ static const char *startup_source = "(if(unsafe-fx< index_4 2)" "(if(unsafe-fx< index_4 1)" "(let-values()" -"(let-values(((v_142)" +"(let-values(((v_245)" "(let-values(((c79_1) c_109)" "((in80_1) in_62)" "((r-config81_0) r-config_0)" @@ -54626,7 +54917,7 @@ static const char *startup_source = " c79_1" " in80_1" " r-config81_0))))" -"(retry-special-comment v_142 in_62 config_54)))" +"(retry-special-comment v_245 in_62 config_54)))" "(let-values()(read-dispatch c_109 in_62 r-config_0 config_54)))" "(if(unsafe-fx< index_4 3)" " (let-values () (read-quote read-one 'quote \"quoting '\" c_109 in_62 r-config_0))" @@ -54745,10 +55036,10 @@ static const char *startup_source = "(list temp101_3))))" "(if(unsafe-fx< index_4 8)" "(let-values()" -"(if(let-values(((or-part_365)" +"(if(let-values(((or-part_364)" "(check-parameter 1/read-square-bracket-as-paren config_54)))" -"(if or-part_365" -" or-part_365" +"(if or-part_364" +" or-part_364" "(check-parameter 1/read-square-bracket-with-tag config_54)))" "(let-values()" "(wrap" @@ -54796,10 +55087,10 @@ static const char *startup_source = " temp111_2" "(list c112_0))))))" "(let-values()" -"(if(let-values(((or-part_366)" +"(if(let-values(((or-part_365)" "(check-parameter 1/read-square-bracket-as-paren config_54)))" -"(if or-part_366" -" or-part_366" +"(if or-part_365" +" or-part_365" "(check-parameter 1/read-square-bracket-with-tag config_54)))" "(let-values()" "(let-values(((in113_0) in_62)" @@ -54839,10 +55130,10 @@ static const char *startup_source = "(list c120_0))))))))" "(if(unsafe-fx< index_4 10)" "(let-values()" -"(if(let-values(((or-part_367)" +"(if(let-values(((or-part_366)" "(check-parameter 1/read-curly-brace-as-paren config_54)))" -"(if or-part_367" -" or-part_367" +"(if or-part_366" +" or-part_366" "(check-parameter 1/read-curly-brace-with-tag config_54)))" "(let-values()" "(wrap" @@ -54891,10 +55182,10 @@ static const char *startup_source = "(list c131_0))))))" "(if(unsafe-fx< index_4 11)" "(let-values()" -"(if(let-values(((or-part_368)" +"(if(let-values(((or-part_367)" "(check-parameter 1/read-curly-brace-as-paren config_54)))" -"(if or-part_368" -" or-part_368" +"(if or-part_367" +" or-part_367" "(check-parameter 1/read-curly-brace-with-tag config_54)))" "(let-values()" "(let-values(((in132_0) in_62)" @@ -55305,8 +55596,8 @@ static const char *startup_source = "(if(eq? c_115 'special)(special1.1 'special) c_115)))))" "(if(char-delimiter? c2_13 config_5)" "(let-values()(wrap #f in_67 config_5 c_111))" -"(if(let-values(((or-part_348)(char=? c2_13 '#\\x)))" -"(if or-part_348 or-part_348(char=? c2_13 '#\\l)))" +"(if(let-values(((or-part_349)(char=? c2_13 '#\\x)))" +"(if or-part_349 or-part_349(char=? c2_13 '#\\l)))" "(let-values()" "(read-fixnum-or-flonum-vector" " read-one" @@ -55596,10 +55887,10 @@ static const char *startup_source = "(raise-argument-error 'module-declared? module-reference-str mod_4)))" "(values))))" "(let-values(((ns_112)(1/current-namespace)))" -"(let-values(((name_68)" +"(let-values(((name_67)" "(let-values(((mod35_0) mod_4)((load?36_0) load?_3))" "(reference->resolved-module-path32.1 load?36_0 mod35_0))))" -"(if(namespace->module ns_112 name_68) #t #f)))))))))))" +"(if(namespace->module ns_112 name_67) #t #f)))))))))))" "(case-lambda" "((mod_5)(begin 'module-declared?(module-declared?4_0 mod_5 #f #f)))" "((mod_6 load?1_1)(module-declared?4_0 mod_6 load?1_1 #t)))))" @@ -55690,7 +55981,7 @@ static const char *startup_source = "(module->" "(lambda(m_28)" "(let-values(((b/p_3)(hash-ref(module-provides m_28) sym_92 #f)))" -"(let-values(((or-part_293)(not b/p_3)))(if or-part_293 or-part_293(provided-as-protected? b/p_3)))))" +"(let-values(((or-part_291)(not b/p_3)))(if or-part_291 or-part_291(provided-as-protected? b/p_3)))))" " 'module-provide-protected?" " mod_17))))" "(define-values" @@ -55716,14 +56007,14 @@ static const char *startup_source = "(let-values()" " (raise-argument-error 'module->namespace \"namespace?\" ns_48)))" "(values))))" -"(let-values(((name_69)" +"(let-values(((name_68)" "(let-values(((mod44_0) mod_18)((temp45_1) #t))" "(reference->resolved-module-path32.1 temp45_1 mod44_0))))" -"(let-values(((phase_128)(namespace-phase ns_48)))" +"(let-values(((phase_129)(namespace-phase ns_48)))" "(let-values(((m-ns_17)" "(let-values(((ns46_0) ns_48)" -"((name47_0) name_69)" -"((phase48_2) phase_128))" +"((name47_0) name_68)" +"((phase48_2) phase_129))" "(namespace->module-namespace82.1" " #f" " #f" @@ -55739,12 +56030,12 @@ static const char *startup_source = "(void)" "(let-values()" "(begin" -"(namespace->module/complain 'module->namespace ns_48 name_69)" +"(namespace->module/complain 'module->namespace ns_48 name_68)" "(raise-arguments-error" " 'module->namespace" " \"module not instantiated in the current namespace\"" " \"name\"" -" name_69))))" +" name_68))))" "(if(inspector-superior?(current-code-inspector)(namespace-inspector m-ns_17))" "(void)" "(let-values()" @@ -55752,7 +56043,7 @@ static const char *startup_source = " 'module->namespace" " \"current code inspector cannot access namespace of module\"" " \"module name\"" -" name_69)))" +" name_68)))" "(if(namespace-get-root-expand-ctx m-ns_17)" "(void)" "(let-values()" @@ -55762,7 +56053,7 @@ static const char *startup_source = "(make-root-expand-context13.1 #f #f #f #f #f #f #f #f temp49_2)))))" "(let-values(((ns41_3) ns_48)" "((temp42_5)(namespace-mpi m-ns_17))" -"((phase43_3) phase_128))" +"((phase43_3) phase_129))" "(namespace-module-make-available!112.1 #f #f ns41_3 temp42_5 phase43_3))" " m-ns_17)))))))))))))" "(case-lambda" @@ -55808,14 +56099,14 @@ static const char *startup_source = " \"namespace?\"" " ns_113)))" "(values))))" -"(let-values(((name_70)" +"(let-values(((name_69)" "(let-values(((mod50_0) mod_21)((temp51_3) #f))" "(reference->resolved-module-path32.1 temp51_3 mod50_0))))" -"(let-values(((phase_137)(namespace-phase ns_113)))" +"(let-values(((phase_138)(namespace-phase ns_113)))" "(let-values(((m-ns_18)" "(let-values(((ns52_0) ns_113)" -"((name53_0) name_70)" -"((phase54_2) phase_137))" +"((name53_0) name_69)" +"((phase54_2) phase_138))" "(namespace->module-namespace82.1" " #f" " #f" @@ -55834,7 +56125,7 @@ static const char *startup_source = " 'namespace-unprotect-module" " \"module not instantiated\"" " \"module name\"" -" name_70)))" +" name_69)))" "(if(inspector-superior? insp_18(namespace-inspector m-ns_18))" "(let-values()" "(set-namespace-inspector!" @@ -55846,19 +56137,19 @@ static const char *startup_source = "((insp_19 mod_23 ns23_1)(namespace-unprotect-module27_0 insp_19 mod_23 ns23_1 #t)))))" "(define-values" "(namespace->module/complain)" -"(lambda(who_31 ns_114 name_71)" +"(lambda(who_31 ns_114 name_70)" "(begin" -"(let-values(((or-part_369)(namespace->module ns_114 name_71)))" -"(if or-part_369" -" or-part_369" -" (raise-arguments-error who_31 \"unknown module in the current namespace\" \"name\" name_71))))))" +"(let-values(((or-part_368)(namespace->module ns_114 name_70)))" +"(if or-part_368" +" or-part_368" +" (raise-arguments-error who_31 \"unknown module in the current namespace\" \"name\" name_70))))))" "(define-values" "(module-reference?)" "(lambda(mod_24)" "(begin" -"(let-values(((or-part_370)(1/module-path? mod_24)))" -"(if or-part_370" -" or-part_370" +"(let-values(((or-part_369)(1/module-path? mod_24)))" +"(if or-part_369" +" or-part_369" "(let-values(((or-part_134)(1/module-path-index? mod_24)))" "(if or-part_134 or-part_134(1/resolved-module-path? mod_24))))))))" " (define-values (module-reference-str) \"(or/c module-path? module-path-index? resolved-module-path?)\")" @@ -55873,8 +56164,8 @@ static const char *startup_source = "(if(1/resolved-module-path? mod_25)" "(let-values() mod_25)" "(let-values()" -"(let-values(((mpi_47)(if(1/module-path-index? mod_25) mod_25(1/module-path-index-join mod_25 #f))))" -"(1/module-path-index-resolve mpi_47 load?_6))))))))))" +"(let-values(((mpi_48)(if(1/module-path-index? mod_25) mod_25(1/module-path-index-join mod_25 #f))))" +"(1/module-path-index-resolve mpi_48 load?_6))))))))))" "(define-values" "(read-syntax$1)" "(lambda(src_0 in_77)" @@ -55889,14 +56180,14 @@ static const char *startup_source = "(let-values()(values((port-read-handler in_77) in_77 src_0)))))))" "(define-values" "(read-syntax/recursive$1)" -"(lambda(src_1 in_78 start_57 readtable_4 graph?_1)" +"(lambda(src_1 in_78 start_58 readtable_4 graph?_1)" "(begin" " 'read-syntax/recursive" "(let-values(((in26_1) in_78)" "((temp27_8) #t)" "((temp28_5) #t)" "((src29_0) src_1)" -"((start30_0) start_57)" +"((start30_0) start_58)" "((readtable31_1) readtable_4)" "((temp32_5)(not graph?_1)))" "(read*14.1 temp27_8 start30_0 #t temp32_5 #t readtable31_1 #t temp28_5 #t src29_0 #t in26_1)))))" @@ -55913,13 +56204,13 @@ static const char *startup_source = "(let-values()(values((port-read-handler in_11) in_11)))))))" "(define-values" "(read/recursive$1)" -"(lambda(in_6 start_58 readtable_5 graph?_2)" +"(lambda(in_6 start_59 readtable_5 graph?_2)" "(begin" " 'read/recursive" "(let-values(((in35_0) in_6)" "((temp36_7) #f)" "((temp37_3) #t)" -"((start38_0) start_58)" +"((start38_0) start_59)" "((readtable39_0) readtable_5)" "((temp40_3)(not graph?_2)))" "(read*14.1 temp36_7 start38_0 #t temp40_3 #t readtable39_0 #t temp37_3 #t #f #f in35_0)))))" @@ -56026,8 +56317,8 @@ static const char *startup_source = "(read-to-syntax)" "(lambda(s-exp_4 srcloc_11 rep_1)" "(begin" -"(let-values(((the-struct_88) empty-syntax))" -"(if(syntax?$1 the-struct_88)" +"(let-values(((the-struct_84) empty-syntax))" +"(if(syntax?$1 the-struct_84)" "(let-values(((content63_0)(datum-intern-literal s-exp_4))" "((srcloc64_0) srcloc_11)" "((props65_0)" @@ -56039,14 +56330,14 @@ static const char *startup_source = "(let-values() original-props))))))" "(syntax1.1" " content63_0" -"(syntax-scopes the-struct_88)" -"(syntax-shifted-multi-scopes the-struct_88)" -"(syntax-scope-propagations+tamper the-struct_88)" -"(syntax-mpi-shifts the-struct_88)" +"(syntax-scopes the-struct_84)" +"(syntax-shifted-multi-scopes the-struct_84)" +"(syntax-scope-propagations+tamper the-struct_84)" +"(syntax-mpi-shifts the-struct_84)" " srcloc64_0" " props65_0" -"(syntax-inspector the-struct_88)))" -" (raise-argument-error 'struct-copy \"syntax?\" the-struct_88))))))" +"(syntax-inspector the-struct_84)))" +" (raise-argument-error 'struct-copy \"syntax?\" the-struct_84))))))" "(define-values(original-props)(syntax-props(syntax-property$1 empty-syntax original-property-sym #t)))" "(define-values" "(original-square-props)" @@ -56057,11 +56348,11 @@ static const char *startup_source = "(define-values(read-module-declared?)(lambda(mod-path_29)(begin(1/module-declared? mod-path_29 #t))))" "(define-values" "(read-coerce)" -"(lambda(for-syntax?_12 v_192 srcloc_12)" +"(lambda(for-syntax?_12 v_190 srcloc_12)" "(begin" "(if(not for-syntax?_12)" -"(let-values()(if(syntax?$1 v_192)(let-values()(syntax->datum$1 v_192))(let-values() v_192)))" -"(let-values()(datum->syntax$1 #f v_192(if srcloc_12(to-srcloc-stx srcloc_12) #f)))))))" +"(let-values()(if(syntax?$1 v_190)(let-values()(syntax->datum$1 v_190))(let-values() v_190)))" +"(let-values()(datum->syntax$1 #f v_190(if srcloc_12(to-srcloc-stx srcloc_12) #f)))))))" "(define-values" "(read-coerce-key)" "(lambda(for-syntax?_13 k_41)" @@ -56143,7 +56434,7 @@ static const char *startup_source = " 'read-syntax/recursive17" "(let-values(((src_3)(if src12_0 src7_0(object-name(current-input-port)))))" "(let-values(((in_83)(if in13_3 in8_3(current-input-port))))" -"(let-values(((start_59)(if start14_0 start9_0 #f)))" +"(let-values(((start_60)(if start14_0 start9_0 #f)))" "(let-values(((readtable_7)(if readtable15_0 readtable10_0(1/current-readtable))))" "(let-values(((graph?_3)(if graph?16_0 graph?11_0 #t)))" "(let-values()" @@ -56151,23 +56442,23 @@ static const char *startup_source = "(if(input-port? in_83)" "(void)" " (let-values () (raise-argument-error 'read-syntax/recursive \"input-port?\" in_83)))" -"(if(let-values(((or-part_371)(char? start_59)))" -"(if or-part_371 or-part_371(not start_59)))" +"(if(let-values(((or-part_370)(char? start_60)))" +"(if or-part_370 or-part_370(not start_60)))" "(void)" "(let-values()" -" (raise-argument-error 'read-syntax/recursive \"(or/c char? #f)\" start_59)))" -"(if(let-values(((or-part_172)(1/readtable? readtable_7)))" -"(if or-part_172 or-part_172(not readtable_7)))" +" (raise-argument-error 'read-syntax/recursive \"(or/c char? #f)\" start_60)))" +"(if(let-values(((or-part_174)(1/readtable? readtable_7)))" +"(if or-part_174 or-part_174(not readtable_7)))" "(void)" "(let-values()" " (raise-argument-error 'read-syntax/recursive \"(or/c readtable? #f)\" readtable_7)))" -"(read-syntax/recursive$1 src_3 in_83 start_59 readtable_7 graph?_3))))))))))))" +"(read-syntax/recursive$1 src_3 in_83 start_60 readtable_7 graph?_3))))))))))))" "(case-lambda" "(()(begin 'read-syntax/recursive(read-syntax/recursive17_0 #f #f #f #f #f #f #f #f #f #f)))" -"((src_4 in_12 start_60 readtable_8 graph?11_1)" -"(read-syntax/recursive17_0 src_4 in_12 start_60 readtable_8 graph?11_1 #t #t #t #t #t))" -"((src_5 in_84 start_61 readtable10_1)" -"(read-syntax/recursive17_0 src_5 in_84 start_61 readtable10_1 #f #t #t #t #t #f))" +"((src_4 in_12 start_61 readtable_8 graph?11_1)" +"(read-syntax/recursive17_0 src_4 in_12 start_61 readtable_8 graph?11_1 #t #t #t #t #t))" +"((src_5 in_84 start_62 readtable10_1)" +"(read-syntax/recursive17_0 src_5 in_84 start_62 readtable10_1 #f #t #t #t #t #f))" "((src_6 in_85 start9_1)(read-syntax/recursive17_0 src_6 in_85 start9_1 #f #f #t #t #t #f #f))" "((src_7 in8_4)(read-syntax/recursive17_0 src_7 in8_4 #f #f #f #t #t #f #f #f))" "((src7_1)(read-syntax/recursive17_0 src7_1 #f #f #f #f #t #f #f #f #f)))))" @@ -56192,7 +56483,7 @@ static const char *startup_source = "(begin" " 'read/recursive31" "(let-values(((in_86)(if in27_2 in23_3(current-input-port))))" -"(let-values(((start_62)(if start28_1 start24_0 #f)))" +"(let-values(((start_63)(if start28_1 start24_0 #f)))" "(let-values(((readtable_9)(if readtable29_0 readtable25_0(1/current-readtable))))" "(let-values(((graph?_4)(if graph?30_0 graph?26_0 #t)))" "(let-values()" @@ -56200,20 +56491,20 @@ static const char *startup_source = "(if(input-port? in_86)" "(void)" " (let-values () (raise-argument-error 'read/recursive \"input-port?\" in_86)))" -"(if(let-values(((or-part_167)(char? start_62)))" -"(if or-part_167 or-part_167(not start_62)))" +"(if(let-values(((or-part_169)(char? start_63)))" +"(if or-part_169 or-part_169(not start_63)))" "(void)" -" (let-values () (raise-argument-error 'read/recursive \"(or/c char? #f)\" start_62)))" -"(if(let-values(((or-part_168)(1/readtable? readtable_9)))" -"(if or-part_168 or-part_168(not readtable_9)))" +" (let-values () (raise-argument-error 'read/recursive \"(or/c char? #f)\" start_63)))" +"(if(let-values(((or-part_170)(1/readtable? readtable_9)))" +"(if or-part_170 or-part_170(not readtable_9)))" "(void)" "(let-values()" " (raise-argument-error 'read/recursive \"(or/c readtable? #f)\" readtable_9)))" -"(read/recursive$1 in_86 start_62 readtable_9 graph?_4)))))))))))" +"(read/recursive$1 in_86 start_63 readtable_9 graph?_4)))))))))))" "(case-lambda" "(()(begin 'read/recursive(read/recursive31_0 #f #f #f #f #f #f #f #f)))" -"((in_36 start_63 readtable_10 graph?26_1)(read/recursive31_0 in_36 start_63 readtable_10 graph?26_1 #t #t #t #t))" -"((in_87 start_64 readtable25_1)(read/recursive31_0 in_87 start_64 readtable25_1 #f #t #t #t #f))" +"((in_36 start_64 readtable_10 graph?26_1)(read/recursive31_0 in_36 start_64 readtable_10 graph?26_1 #t #t #t #t))" +"((in_87 start_65 readtable25_1)(read/recursive31_0 in_87 start_65 readtable25_1 #f #t #t #t #f))" "((in_88 start24_1)(read/recursive31_0 in_88 start24_1 #f #f #t #t #f #f))" "((in23_4)(read/recursive31_0 in23_4 #f #f #f #t #f #f #f)))))" "(define-values" @@ -56245,13 +56536,13 @@ static const char *startup_source = "(eval$1)" "(case-lambda" "((s_0)(begin 'eval((1/current-eval)(intro s_0))))" -"((s_153 ns_59)" +"((s_154 ns_59)" "(begin" " (if (1/namespace? ns_59) (void) (let-values () (raise-argument-error 'eval \"namespace?\" ns_59)))" "(with-continuation-mark" " parameterization-key" "(extend-parameterization(continuation-mark-set-first #f parameterization-key) 1/current-namespace ns_59)" -"(let-values()((1/current-eval)(intro s_153 ns_59))))))))" +"(let-values()((1/current-eval)(intro s_154 ns_59))))))))" "(define-values" "(1/eval-syntax)" "(case-lambda" @@ -56261,14 +56552,14 @@ static const char *startup_source = "(begin" " (if (syntax?$1 s_1) (void) (let-values () (raise-argument-error 'eval-syntax \"syntax?\" s_1)))" "((1/current-eval) s_1))))" -"((s_165 ns_115)" +"((s_168 ns_115)" "(begin" -" (if (syntax?$1 s_165) (void) (let-values () (raise-argument-error 'eval-syntax \"syntax?\" s_165)))" +" (if (syntax?$1 s_168) (void) (let-values () (raise-argument-error 'eval-syntax \"syntax?\" s_168)))" " (if (1/namespace? ns_115) (void) (let-values () (raise-argument-error 'eval-syntax \"namespace?\" ns_115)))" "(with-continuation-mark" " parameterization-key" "(extend-parameterization(continuation-mark-set-first #f parameterization-key) 1/current-namespace ns_115)" -"(let-values()((1/current-eval) s_165)))))))" +"(let-values()((1/current-eval) s_168)))))))" "(define-values(compile$1)(lambda(s_2)(begin 'compile((1/current-compile)(intro s_2) #f))))" "(define-values" "(1/compile-syntax)" @@ -56278,15 +56569,15 @@ static const char *startup_source = "(begin" " (if (syntax?$1 s_3) (void) (let-values () (raise-argument-error 'compile-syntax \"syntax?\" s_3)))" "((1/current-compile) s_3 #f)))))" -"(define-values(1/expand)(lambda(s_166)(begin 'expand(expand$1(intro s_166)(1/current-namespace) #t))))" +"(define-values(1/expand)(lambda(s_169)(begin 'expand(expand$1(intro s_169)(1/current-namespace) #t))))" "(define-values" "(1/expand-syntax)" -"(lambda(s_142)" +"(lambda(s_143)" "(begin" " 'expand-syntax" "(begin" -" (if (syntax?$1 s_142) (void) (let-values () (raise-argument-error 'expand-syntax \"syntax?\" s_142)))" -"(expand$1 s_142(1/current-namespace) #t)))))" +" (if (syntax?$1 s_143) (void) (let-values () (raise-argument-error 'expand-syntax \"syntax?\" s_143)))" +"(expand$1 s_143(1/current-namespace) #t)))))" "(define-values(1/expand-once)(lambda(s_67)(begin 'expand-once(expand-once$1(intro s_67)))))" "(define-values" "(1/expand-syntax-once)" @@ -56298,15 +56589,15 @@ static const char *startup_source = "(expand-once$1 s_9)))))" "(define-values" "(1/expand-to-top-form)" -"(lambda(s_465)(begin 'expand-to-top-form(expand-to-top-form$1(intro s_465)))))" +"(lambda(s_475)(begin 'expand-to-top-form(expand-to-top-form$1(intro s_475)))))" "(define-values" "(1/expand-syntax-to-top-form)" -"(lambda(s_416)" +"(lambda(s_423)" "(begin" " 'expand-syntax-to-top-form" "(begin" -" (if (syntax?$1 s_416) (void) (let-values () (raise-argument-error 'expand-syntax-to-top-form \"syntax?\" s_416)))" -"(expand-to-top-form$1 s_416)))))" +" (if (syntax?$1 s_423) (void) (let-values () (raise-argument-error 'expand-syntax-to-top-form \"syntax?\" s_423)))" +"(expand-to-top-form$1 s_423)))))" "(define-values" "(intro)" "(let-values(((intro4_0)" @@ -56321,40 +56612,40 @@ static const char *startup_source = "(case-lambda((given-s_2)(begin(intro4_0 given-s_2 #f #f)))((given-s_3 ns1_7)(intro4_0 given-s_3 ns1_7 #t)))))" "(define-values" "(declare-primitive-module!)" -"(lambda(name_72 inst_7 in-ns_0 protected_0 cross-phase-persistent?_3)" +"(lambda(name_71 inst_7 in-ns_0 protected_0 cross-phase-persistent?_3)" "(begin" -"(let-values(((mpi_48)(1/module-path-index-join(list 'quote name_72) #f)))" +"(let-values(((mpi_49)(1/module-path-index-join(list 'quote name_71) #f)))" "(let-values(((in-ns1_0) in-ns_0)" "((temp2_6)" "(let-values(((temp4_0)(1/current-module-declare-source))" "((cross-phase-persistent?5_0) cross-phase-persistent?_3)" "((temp6_4)(zero?(hash-count protected_0)))" -"((mpi7_0) mpi_48)" +"((mpi7_0) mpi_49)" "((temp8_5)" "(hasheqv" " 0" -"(let-values(((lst_77)(1/instance-variable-names inst_7)))" +"(let-values(((lst_78)(1/instance-variable-names inst_7)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_77)))" -"((letrec-values(((for-loop_91)" -"(lambda(table_204 lst_78)" +"(let-values()(check-list lst_78)))" +"((letrec-values(((for-loop_95)" +"(lambda(table_213 lst_79)" "(begin" " 'for-loop" -"(if(pair? lst_78)" -"(let-values(((sym_60)(unsafe-car lst_78))" -"((rest_35)(unsafe-cdr lst_78)))" -"(let-values(((table_210)" -"(let-values(((table_168) table_204))" -"(let-values(((table_169)" +"(if(pair? lst_79)" +"(let-values(((sym_60)(unsafe-car lst_79))" +"((rest_36)(unsafe-cdr lst_79)))" +"(let-values(((table_219)" +"(let-values(((table_174) table_213))" +"(let-values(((table_175)" "(let-values()" -"(let-values(((key_31" -" val_76)" +"(let-values(((key_32" +" val_77)" "(let-values()" -"(let-values(((binding_28)" +"(let-values(((binding_27)" "(let-values(((mpi10_0)" -" mpi_48)" +" mpi_49)" "((temp11_7)" " 0)" "((sym12_0)" @@ -56388,22 +56679,22 @@ static const char *startup_source = " sym_60" " #f)" "(provided1.1" -" binding_28" +" binding_27" " #t" " #f)" -" binding_28))))))" +" binding_27))))))" "(hash-set" -" table_168" -" key_31" -" val_76)))))" -"(values table_169)))))" +" table_174" +" key_32" +" val_77)))))" +"(values table_175)))))" "(if(not #f)" -"(for-loop_91 table_210 rest_35)" -" table_210)))" -" table_204)))))" -" for-loop_91)" +"(for-loop_95 table_219 rest_36)" +" table_219)))" +" table_213)))))" +" for-loop_95)" " '#hash()" -" lst_77)))))" +" lst_78)))))" "((temp9_6)" "(lambda(data-box_5" " ns_46" @@ -56421,19 +56712,19 @@ static const char *startup_source = "(void)" "(let-values()(check-list lst_23)))" "((letrec-values(((for-loop_20)" -"(lambda(lst_270)" +"(lambda(lst_267)" "(begin" " 'for-loop" -"(if(pair? lst_270)" -"(let-values(((sym_96)(unsafe-car lst_270))" -"((rest_174)(unsafe-cdr lst_270)))" +"(if(pair? lst_267)" +"(let-values(((sym_96)(unsafe-car lst_267))" +"((rest_177)(unsafe-cdr lst_267)))" "(let-values((()" "(let-values()" "(let-values((()" "(let-values()" "(begin" "(let-values()" -"(let-values(((val_77)" +"(let-values(((val_78)" "(1/instance-variable-value" " inst_7" " sym_96)))" @@ -56441,11 +56732,11 @@ static const char *startup_source = " ns_46" " 0" " sym_96" -" val_77)))" +" val_78)))" "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_20 rest_174)" +"(for-loop_20 rest_177)" "(values))))" "(values))))))" " for-loop_20)" @@ -56486,7 +56777,7 @@ static const char *startup_source = " #f" " #f" " #f)))" -"((temp3_9)(substitute-module-declare-name name_72)))" +"((temp3_9)(substitute-module-declare-name name_71)))" "(declare-module!58.1 #f #f in-ns1_0 temp2_6 temp3_9))))))" "(define-values" "(1/prop:missing-module 1/exn:missing-module? 1/exn:missing-module-accessor)" @@ -56545,13 +56836,13 @@ static const char *startup_source = "(1/current-module-path-for-load)" "(make-parameter" " #f" -"(lambda(v_184)" +"(lambda(v_182)" "(begin" -"(if(let-values(((or-part_171)(not v_184)))" -"(if or-part_171" -" or-part_171" -"(let-values(((or-part_141)(1/module-path? v_184)))" -"(if or-part_141 or-part_141(if(syntax?$1 v_184)(1/module-path?(syntax->datum$1 v_184)) #f)))))" +"(if(let-values(((or-part_173)(not v_182)))" +"(if or-part_173" +" or-part_173" +"(let-values(((or-part_141)(1/module-path? v_182)))" +"(if or-part_141 or-part_141(if(syntax?$1 v_182)(1/module-path?(syntax->datum$1 v_182)) #f)))))" "(void)" "(let-values()" "(raise-argument-error" @@ -56560,11 +56851,11 @@ static const char *startup_source = " \"(or/c module-path?\"" " \" (and/c syntax? (lambda (stx) (module-path? (syntax->datum stx))))\"" " \" #f)\")" -" v_184)))" -" v_184))))" +" v_182)))" +" v_182))))" "(define-values" "(maybe-raise-missing-module)" -"(lambda(name_73 filename_0 pre_0 rel_0 post_0 errstr_0)" +"(lambda(name_72 filename_0 pre_0 rel_0 post_0 errstr_0)" "(begin" "(let-values(((path_11)(1/current-module-path-for-load)))" "(if path_11" @@ -56580,7 +56871,7 @@ static const char *startup_source = " \" module path: ~a\\n\"" " \" path: ~a~a~a~a\\n\"" " \" system error: ~a\")" -"(if(syntax-srcloc path_11)(srcloc->string(syntax-srcloc path_11)) name_73)" +"(if(syntax-srcloc path_11)(srcloc->string(syntax-srcloc path_11)) name_72)" "(syntax->datum$1 path_11)" " filename_0" " pre_0" @@ -56599,7 +56890,7 @@ static const char *startup_source = " \" module path: ~a\\n\"" " \" path: ~a~a~a~a\\n\"" " \" system error: ~a\")" -" name_73" +" name_72" " path_11" " filename_0" " pre_0" @@ -56645,22 +56936,22 @@ static const char *startup_source = " intdefs63_0" " #t)))))))))))" "(case-lambda" -"((s_167 context_1 stop-ids_3)(begin 'local-expand(local-expand6_0 s_167 context_1 stop-ids_3 #f #f)))" -"((s_144 context_11 stop-ids_4 intdefs1_1)(local-expand6_0 s_144 context_11 stop-ids_4 intdefs1_1 #t)))))" +"((s_170 context_1 stop-ids_3)(begin 'local-expand(local-expand6_0 s_170 context_1 stop-ids_3 #f #f)))" +"((s_145 context_11 stop-ids_4 intdefs1_1)(local-expand6_0 s_145 context_11 stop-ids_4 intdefs1_1 #t)))))" "(define-values" "(1/local-expand/capture-lifts)" "(let-values(((local-expand/capture-lifts15_0)" "(lambda(s12_2 context13_0 stop-ids14_0 intdefs8_0 lift-key9_0 intdefs10_0 lift-key11_0)" "(begin" " 'local-expand/capture-lifts15" -"(let-values(((s_421) s12_2))" +"(let-values(((s_428) s12_2))" "(let-values(((context_12) context13_0))" "(let-values(((stop-ids_5) stop-ids14_0))" "(let-values(((intdefs_4)(if intdefs10_0 intdefs8_0 #f)))" "(let-values(((lift-key_4)(if lift-key11_0 lift-key9_0(generate-lift-key))))" "(let-values()" "(let-values(((temp64_3) 'local-expand)" -"((s65_0) s_421)" +"((s65_0) s_428)" "((context66_0) context_12)" "((stop-ids67_0) stop-ids_5)" "((intdefs68_0) intdefs_4)" @@ -56688,23 +56979,23 @@ static const char *startup_source = "(case-lambda" "((s_72 context_13 stop-ids_6)" "(begin 'local-expand/capture-lifts(local-expand/capture-lifts15_0 s_72 context_13 stop-ids_6 #f #f #f #f)))" -"((s_172 context_14 stop-ids_7 intdefs_5 lift-key9_1)" -"(local-expand/capture-lifts15_0 s_172 context_14 stop-ids_7 intdefs_5 lift-key9_1 #t #t))" -"((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)))))" +"((s_175 context_14 stop-ids_7 intdefs_5 lift-key9_1)" +"(local-expand/capture-lifts15_0 s_175 context_14 stop-ids_7 intdefs_5 lift-key9_1 #t #t))" +"((s_184 context_15 stop-ids_8 intdefs8_1)" +"(local-expand/capture-lifts15_0 s_184 context_15 stop-ids_8 intdefs8_1 #f #t #f)))))" "(define-values" "(1/local-transformer-expand)" "(let-values(((local-transformer-expand22_0)" "(lambda(s19_1 context20_0 stop-ids21_0 intdefs17_0 intdefs18_0)" "(begin" " 'local-transformer-expand22" -"(let-values(((s_304) s19_1))" +"(let-values(((s_309) s19_1))" "(let-values(((context_16) context20_0))" "(let-values(((stop-ids_9) stop-ids21_0))" "(let-values(((intdefs_6)(if intdefs18_0 intdefs17_0 #f)))" "(let-values()" "(let-values(((temp71_4) 'local-expand)" -"((s72_0) s_304)" +"((s72_0) s_309)" "((context73_0) context_16)" "((stop-ids74_0) stop-ids_9)" "((intdefs75_0) intdefs_6)" @@ -56729,10 +57020,10 @@ static const char *startup_source = " intdefs75_0" " #t)))))))))))" "(case-lambda" -"((s_466 context_17 stop-ids_10)" -"(begin 'local-transformer-expand(local-transformer-expand22_0 s_466 context_17 stop-ids_10 #f #f)))" -"((s_408 context_18 stop-ids_11 intdefs17_1)" -"(local-transformer-expand22_0 s_408 context_18 stop-ids_11 intdefs17_1 #t)))))" +"((s_476 context_17 stop-ids_10)" +"(begin 'local-transformer-expand(local-transformer-expand22_0 s_476 context_17 stop-ids_10 #f #f)))" +"((s_415 context_18 stop-ids_11 intdefs17_1)" +"(local-transformer-expand22_0 s_415 context_18 stop-ids_11 intdefs17_1 #t)))))" "(define-values" "(1/local-transformer-expand/capture-lifts)" "(let-values(((local-transformer-expand/capture-lifts31_0)" @@ -56773,26 +57064,26 @@ static const char *startup_source = " intdefs81_0" " #t))))))))))))" "(case-lambda" -"((s_467 context_20 stop-ids_13)" +"((s_477 context_20 stop-ids_13)" "(begin" " 'local-transformer-expand/capture-lifts" -"(local-transformer-expand/capture-lifts31_0 s_467 context_20 stop-ids_13 #f #f #f #f)))" -"((s_404 context_21 stop-ids_14 intdefs_8 lift-key25_1)" -"(local-transformer-expand/capture-lifts31_0 s_404 context_21 stop-ids_14 intdefs_8 lift-key25_1 #t #t))" -"((s_468 context_22 stop-ids_15 intdefs24_1)" -"(local-transformer-expand/capture-lifts31_0 s_468 context_22 stop-ids_15 intdefs24_1 #f #t #f)))))" +"(local-transformer-expand/capture-lifts31_0 s_477 context_20 stop-ids_13 #f #f #f #f)))" +"((s_410 context_21 stop-ids_14 intdefs_8 lift-key25_1)" +"(local-transformer-expand/capture-lifts31_0 s_410 context_21 stop-ids_14 intdefs_8 lift-key25_1 #t #t))" +"((s_81 context_22 stop-ids_15 intdefs24_1)" +"(local-transformer-expand/capture-lifts31_0 s_81 context_22 stop-ids_15 intdefs24_1 #f #t #f)))))" "(define-values" "(1/syntax-local-expand-expression)" "(let-values(((syntax-local-expand-expression36_0)" "(lambda(s35_0 opaque-only?33_0 opaque-only?34_0)" "(begin" " 'syntax-local-expand-expression36" -"(let-values(((s_469) s35_0))" +"(let-values(((s_478) s35_0))" "(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_469)" +"((s86_1) s_478)" "((temp87_3) 'expression)" "((null88_0) null)" "((temp89_6) #f)" @@ -56875,8 +57166,8 @@ static const char *startup_source = "(let-values(((lift-key_6)" "(if lift-key47_0" " lift-key41_0" -"(if(let-values(((or-part_175) capture-lifts?_0))" -"(if or-part_175 or-part_175 as-transformer?_5))" +"(if(let-values(((or-part_371) capture-lifts?_0))" +"(if or-part_371 or-part_371 as-transformer?_5))" "(generate-lift-key)" " #f))))" "(let-values(((track-to-be-defined?_1)" @@ -56884,12 +57175,12 @@ 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_387)(datum->syntax$1 #f s-or-s-exp_0)))" +"(let-values(((s_395)(datum->syntax$1 #f s-or-s-exp_0)))" "(let-values((()" "(begin" -"(if(let-values(((or-part_209)(list? context_23)))" -"(if or-part_209" -" or-part_209" +"(if(let-values(((or-part_176)(list? context_23)))" +"(if or-part_176" +" or-part_176" "(memq" " context_23" "(if as-transformer?_5" @@ -56906,9 +57197,9 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(if(let-values(((or-part_372)(not stop-ids_16)))" -"(if or-part_372" -" or-part_372" +"(if(let-values(((or-part_177)(not stop-ids_16)))" +"(if or-part_177" +" or-part_177" "(if(list? stop-ids_16)" "(andmap2 identifier? stop-ids_16)" " #f)))" @@ -56921,9 +57212,9 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(if(let-values(((or-part_373)(not intdefs_9)))" -"(if or-part_373" -" or-part_373" +"(if(let-values(((or-part_178)(not intdefs_9)))" +"(if or-part_178" +" or-part_178" "(let-values(((or-part_57)" "(1/internal-definition-context? intdefs_9)))" "(if or-part_57" @@ -56941,14 +57232,14 @@ static const char *startup_source = "(let-values(((ctx_74)" "(let-values(((who93_0) who_32))" "(get-current-expand-context17.1 #f #f who93_0 #t))))" -"(let-values(((phase_138)" +"(let-values(((phase_139)" "(if as-transformer?_5" "(add1(expand-context-phase ctx_74))" "(expand-context-phase ctx_74))))" "(let-values(((local-ctx_0)" "(let-values(((ctx94_0) ctx_74)" "((context95_0) context_23)" -"((phase96_0) phase_138)" +"((phase96_0) phase_139)" "((intdefs97_0) intdefs_9)" "((stop-ids98_0) stop-ids_16)" "((to-parsed-ok?99_0) to-parsed-ok?_1)" @@ -56970,7 +57261,7 @@ static const char *startup_source = "(begin" "(namespace-visit-available-modules!" "(expand-context-namespace ctx_74)" -" phase_138)" +" phase_139)" "(values))))" "(let-values((()" "(begin" @@ -56982,12 +57273,12 @@ static const char *startup_source = "(call-expand-observe" " obs_61" " 'enter-local" -" s_387)))" +" s_395)))" "(void)))" "(values))))" "(let-values(((input-s_1)" "(let-values(((temp101_4)" -"(flip-introduction-scopes s_387 ctx_74))" +"(flip-introduction-scopes s_395 ctx_74))" "((intdefs102_0) intdefs_9))" "(add-intdef-scopes21.1" " #f" @@ -57199,32 +57490,32 @@ static const char *startup_source = "(let-values()" "(taint-dispatch" " s_3" -"(lambda(s_465)(syntax-arm$1 s_465 insp_21))" +"(lambda(s_475)(syntax-arm$1 s_475 insp_21))" "(1/syntax-local-phase-level)))" "(let-values()(syntax-arm$1 s_3 insp_21))))))))))))))" "(case-lambda" -"((s_416)(begin 'syntax-arm(syntax-arm6_0 s_416 #f #f #f #f)))" -"((s_470 maybe-insp_1 use-mode?2_1)(syntax-arm6_0 s_470 maybe-insp_1 use-mode?2_1 #t #t))" -"((s_471 maybe-insp1_1)(syntax-arm6_0 s_471 maybe-insp1_1 #f #t #f)))))" +"((s_423)(begin 'syntax-arm(syntax-arm6_0 s_423 #f #f #f #f)))" +"((s_479 maybe-insp_1 use-mode?2_1)(syntax-arm6_0 s_479 maybe-insp_1 use-mode?2_1 #t #t))" +"((s_480 maybe-insp1_1)(syntax-arm6_0 s_480 maybe-insp1_1 #f #t #f)))))" "(define-values" "(1/syntax-disarm)" -"(lambda(s_423 maybe-insp_2)" +"(lambda(s_430 maybe-insp_2)" "(begin" " 'syntax-disarm" "(let-values((()" "(begin" -"(if(syntax?$1 s_423)" +"(if(syntax?$1 s_430)" "(void)" -" (let-values () (raise-argument-error 'syntax-disarm \"syntax?\" s_423)))" +" (let-values () (raise-argument-error 'syntax-disarm \"syntax?\" s_430)))" "(values))))" "(let-values((()" "(begin" -"(if(let-values(((or-part_298)(not maybe-insp_2)))" -"(if or-part_298 or-part_298(inspector? maybe-insp_2)))" +"(if(let-values(((or-part_296)(not maybe-insp_2)))" +"(if or-part_296 or-part_296(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_423 insp_22)))))))" +"(let-values(((insp_22)(inspector-for-taint maybe-insp_2)))(syntax-disarm$1 s_430 insp_22)))))))" "(define-values" "(1/syntax-rearm)" "(let-values(((syntax-rearm12_0)" @@ -57246,29 +57537,29 @@ static const char *startup_source = "(let-values()" "(taint-dispatch" " s_40" -"(lambda(s_422)(syntax-rearm$1 s_422 from-s_2))" +"(lambda(s_429)(syntax-rearm$1 s_429 from-s_2))" "(1/syntax-local-phase-level)))" "(let-values()(syntax-rearm$1 s_40 from-s_2))))))))))))" "(case-lambda" -"((s_178 from-s_3)(begin 'syntax-rearm(syntax-rearm12_0 s_178 from-s_3 #f #f)))" -"((s_170 from-s_4 use-mode?8_1)(syntax-rearm12_0 s_170 from-s_4 use-mode?8_1 #t)))))" +"((s_181 from-s_3)(begin 'syntax-rearm(syntax-rearm12_0 s_181 from-s_3 #f #f)))" +"((s_173 from-s_4 use-mode?8_1)(syntax-rearm12_0 s_173 from-s_4 use-mode?8_1 #t)))))" "(define-values" "(1/syntax-taint)" -"(lambda(s_158)" +"(lambda(s_160)" "(begin" " 'syntax-taint" "(begin" -" (if (syntax?$1 s_158) (void) (let-values () (raise-argument-error 'syntax-taint \"syntax?\" s_158)))" -"(syntax-taint$1 s_158)))))" +" (if (syntax?$1 s_160) (void) (let-values () (raise-argument-error 'syntax-taint \"syntax?\" s_160)))" +"(syntax-taint$1 s_160)))))" "(define-values" "(inspector-for-taint)" "(lambda(maybe-insp_3)" "(begin" -"(let-values(((or-part_81) maybe-insp_3))" -"(if or-part_81" -" or-part_81" -"(let-values(((or-part_82)(current-module-code-inspector)))" -"(if or-part_82 or-part_82(current-code-inspector))))))))" +"(let-values(((or-part_79) maybe-insp_3))" +"(if or-part_79" +" or-part_79" +"(let-values(((or-part_80)(current-module-code-inspector)))" +"(if or-part_80 or-part_80(current-code-inspector))))))))" "(define-values" "(1/variable-reference->empty-namespace)" "(lambda(vr_0)" @@ -57310,8 +57601,8 @@ static const char *startup_source = "(let-values()" " (raise-argument-error 'variable-reference->module-path-index \"variable-reference?\" vr_2)))" "(values))))" -"(let-values(((mpi_48)(namespace-mpi(1/variable-reference->namespace vr_2))))" -"(if(top-level-module-path-index? mpi_48) #f mpi_48))))))" +"(let-values(((mpi_49)(namespace-mpi(1/variable-reference->namespace vr_2))))" +"(if(top-level-module-path-index? mpi_49) #f mpi_49))))))" "(define-values" "(1/variable-reference->resolved-module-path)" "(lambda(vr_3)" @@ -57324,8 +57615,8 @@ static const char *startup_source = "(let-values()" " (raise-argument-error 'variable-reference->resolved-module-path \"variable-reference?\" vr_3)))" "(values))))" -"(let-values(((mpi_49)(1/variable-reference->module-path-index vr_3)))" -"(if mpi_49(1/module-path-index-resolve mpi_49) #f))))))" +"(let-values(((mpi_50)(1/variable-reference->module-path-index vr_3)))" +"(if mpi_50(1/module-path-index-resolve mpi_50) #f))))))" "(define-values" "(1/variable-reference->module-source)" "(lambda(vr_4)" @@ -57377,9 +57668,9 @@ static const char *startup_source = " \"variable reference\"" " vr_7))" "(void))" -"(let-values(((or-part_219)(namespace-declaration-inspector(1/variable-reference->namespace vr_7))))" -"(if or-part_219" -" or-part_219" +"(let-values(((or-part_218)(namespace-declaration-inspector(1/variable-reference->namespace vr_7))))" +"(if or-part_218" +" or-part_218" "(raise-arguments-error" " 'variable-reference->module-declaration-inspector" " \"given variable reference is not from a module\")))))))" @@ -57702,8 +57993,8 @@ static const char *startup_source = " name25_0)" "(begin" " 'copy-runtime-module!26" -"(let-values(((name_65) name25_0))" -"(let-values(((to-name_0)(if to18_0 to11_0 name_65)))" +"(let-values(((name_64) name25_0))" +"(let-values(((to-name_0)(if to18_0 to11_0 name_64)))" "(let-values(((ns_118) namespace12_0))" "(let-values(((skip-syms_0)(if skip20_0 skip13_0(seteq))))" "(let-values(((alts_0)(if alts21_0 alts14_0 '#hasheq())))" @@ -57711,21 +58002,21 @@ static const char *startup_source = "(let-values(((primitive?_9)(if primitive?23_0 primitive?16_0 #t)))" "(let-values(((protected?_10)(if protected?24_0 protected?17_0 #f)))" "(let-values()" -"(let-values(((prims_0)(1/primitive-table name_65)))" +"(let-values(((prims_0)(1/primitive-table name_64)))" "(let-values((()" "(begin" -"(let-values(((ht_158) prims_0))" +"(let-values(((ht_25) prims_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash-keys ht_158)))" -"((letrec-values(((for-loop_51)" +"(let-values()(check-in-hash-keys ht_25)))" +"((letrec-values(((for-loop_54)" "(lambda(i_26)" "(begin" " 'for-loop" "(if i_26" "(let-values(((sym_88)" -"(hash-iterate-key ht_158 i_26)))" +"(hash-iterate-key ht_25 i_26)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -57737,42 +58028,41 @@ static const char *startup_source = "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_51" -"(hash-iterate-next ht_158 i_26))" +"(for-loop_54(hash-iterate-next ht_25 i_26))" "(values))))" "(values))))))" -" for-loop_51)" -"(hash-iterate-first ht_158))))" +" for-loop_54)" +"(hash-iterate-first ht_25))))" "(values))))" "(let-values()" -"(let-values(((ht_159)" -"(let-values(((ht_160) prims_0))" +"(let-values(((ht_161)" +"(let-values(((ht_162) prims_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_160)))" +"(let-values()(check-in-hash ht_162)))" "((letrec-values(((for-loop_266)" -"(lambda(table_11 i_178)" +"(lambda(table_11 i_181)" "(begin" " 'for-loop" -"(if i_178" +"(if i_181" "(let-values(((sym_97 val_6)" "(hash-iterate-key+value" -" ht_160" -" i_178)))" -"(let-values(((table_211)" -"(let-values(((table_212)" +" ht_162" +" i_181)))" +"(let-values(((table_220)" +"(let-values(((table_221)" " table_11))" "(if(set-member?" " skip-syms_0" " sym_97)" -" table_212" -"(let-values(((table_213)" -" table_212))" -"(let-values(((table_214)" +" table_221" +"(let-values(((table_222)" +" table_221))" +"(let-values(((table_223)" "(let-values()" -"(let-values(((key_87" -" val_78)" +"(let-values(((key_88" +" val_79)" "(let-values()" "(values" " sym_97" @@ -57785,53 +58075,53 @@ static const char *startup_source = " or-part_24" " val_6))))))" "(hash-set" -" table_213" -" key_87" -" val_78)))))" -"(values table_214)))))))" +" table_222" +" key_88" +" val_79)))))" +"(values table_223)))))))" "(if(not #f)" "(for-loop_266" -" table_211" -"(hash-iterate-next ht_160 i_178))" -" table_211)))" +" table_220" +"(hash-iterate-next ht_162 i_181))" +" table_220)))" " table_11)))))" " for-loop_266)" " '#hasheq()" -"(hash-iterate-first ht_160))))))" +"(hash-iterate-first ht_162))))))" "(let-values(((ht+extras_0)" -"(let-values(((ht_161) extras_0))" +"(let-values(((ht_163) extras_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_161)))" +"(let-values()(check-in-hash ht_163)))" "((letrec-values(((for-loop_277)" -"(lambda(ht_162 i_179)" +"(lambda(ht_164 i_182)" "(begin" " 'for-loop" -"(if i_179" +"(if i_182" "(let-values(((k_42 v_50)" "(hash-iterate-key+value" -" ht_161" -" i_179)))" -"(let-values(((ht_163)" -"(let-values(((ht_164)" -" ht_162))" -"(let-values(((ht_47)" +" ht_163" +" i_182)))" +"(let-values(((ht_165)" +"(let-values(((ht_166)" +" ht_164))" +"(let-values(((ht_48)" "(let-values()" "(hash-set" -" ht_164" +" ht_166" " k_42" " v_50))))" -"(values ht_47)))))" +"(values ht_48)))))" "(if(not #f)" "(for-loop_277" -" ht_163" -"(hash-iterate-next ht_161 i_179))" -" ht_163)))" -" ht_162)))))" +" ht_165" +"(hash-iterate-next ht_163 i_182))" +" ht_165)))" +" ht_164)))))" " for-loop_277)" -" ht_159" -"(hash-iterate-first ht_161))))))" +" ht_161" +"(hash-iterate-first ht_163))))))" "(let-values(((to-name61_0) to-name_0)" "((ht+extras62_0) ht+extras_0)" "((ns63_0) ns_118)" @@ -57864,15 +58154,15 @@ static const char *startup_source = " ht40_0)" "(begin" " 'declare-hash-based-module!41" -"(let-values(((name_74) name39_0))" -"(let-values(((ht_165) ht40_0))" +"(let-values(((name_73) name39_0))" +"(let-values(((ht_167) ht40_0))" "(let-values(((ns_119) namespace29_0))" "(let-values(((primitive?_10)(if primitive?35_0 primitive?30_0 #f)))" "(let-values(((protected?_11)(if protected?36_0 protected?31_0 #f)))" "(let-values(((protected-syms_0)(if protected37_0 protected32_0 null)))" "(let-values(((register-builtin?_0)(if register-builtin?38_0 register-builtin?33_0 #f)))" "(let-values()" -"(let-values(((mpi_6)(1/module-path-index-join(list 'quote name_74) #f)))" +"(let-values(((mpi_6)(1/module-path-index-join(list 'quote name_73) #f)))" "(let-values(((ns66_1) ns_119)" "((temp67_3)" "(let-values(((temp69_5) #t)" @@ -57883,27 +58173,27 @@ static const char *startup_source = "((temp74_2)" "(hasheqv" " 0" -"(let-values(((ht_166) ht_165))" +"(let-values(((ht_168) ht_167))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash-keys ht_166)))" +"(let-values()(check-in-hash-keys ht_168)))" "((letrec-values(((for-loop_278)" -"(lambda(table_215 i_180)" +"(lambda(table_224 i_183)" "(begin" " 'for-loop" -"(if i_180" +"(if i_183" "(let-values(((sym_98)" "(hash-iterate-key" -" ht_166" -" i_180)))" -"(let-values(((table_216)" -"(let-values(((table_217)" -" table_215))" -"(let-values(((table_218)" +" ht_168" +" i_183)))" +"(let-values(((table_225)" +"(let-values(((table_226)" +" table_224))" +"(let-values(((table_227)" "(let-values()" -"(let-values(((key_88" -" val_79)" +"(let-values(((key_89" +" val_80)" "(let-values()" "(let-values((()" "(begin" @@ -57913,7 +58203,7 @@ static const char *startup_source = " sym_98))" "(void))" "(values))))" -"(let-values(((binding_29)" +"(let-values(((binding_28)" "(let-values(((mpi76_0)" " mpi_6)" "((temp77_3)" @@ -57944,35 +58234,35 @@ static const char *startup_source = " sym78_0))))" "(values" " sym_98" -"(if(let-values(((or-part_374)" +"(if(let-values(((or-part_372)" " protected?_11))" -"(if or-part_374" -" or-part_374" +"(if or-part_372" +" or-part_372" "(member" " sym_98" " protected-syms_0)))" "(provided1.1" -" binding_29" +" binding_28" " #t" " #f)" -" binding_29)))))))" +" binding_28)))))))" "(hash-set" -" table_217" -" key_88" -" val_79)))))" +" table_226" +" key_89" +" val_80)))))" "(values" -" table_218)))))" +" table_227)))))" "(if(not #f)" "(for-loop_278" -" table_216" +" table_225" "(hash-iterate-next" -" ht_166" -" i_180))" -" table_216)))" -" table_215)))))" +" ht_168" +" i_183))" +" table_225)))" +" table_224)))))" " for-loop_278)" " '#hash()" -"(hash-iterate-first ht_166))))))" +"(hash-iterate-first ht_168))))))" "((temp75_2)" "(lambda(data-box_6" " ns_120" @@ -57984,20 +58274,20 @@ static const char *startup_source = "(if(= 0 phase-level_23)" "(let-values()" "(begin" -"(let-values(((ht_167) ht_165))" +"(let-values(((ht_169) ht_167))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_167)))" +"(let-values()(check-in-hash ht_169)))" "((letrec-values(((for-loop_279)" "(lambda(i_47)" "(begin" " 'for-loop" "(if i_47" -"(let-values(((sym_6 val_29)" +"(let-values(((sym_6 val_30)" "(hash-iterate-key+value" -" ht_167" +" ht_169" " i_47)))" "(let-values((()" "(let-values()" @@ -58009,18 +58299,18 @@ static const char *startup_source = " ns_120" " 0" " sym_6" -" val_29))" +" val_30))" "(values)))))" "(values)))))" "(if(not #f)" "(for-loop_279" "(hash-iterate-next" -" ht_167" +" ht_169" " i_47))" "(values))))" "(values))))))" " for-loop_279)" -"(hash-iterate-first ht_167))))" +"(hash-iterate-first ht_169))))" "(void)))" "(void)))))" "(make-module39.1" @@ -58069,24 +58359,24 @@ static const char *startup_source = "(let-values(((reexport?_0)(if reexport?46_0 reexport?44_0 #t)))" "(let-values(((ns_121) namespace45_0))" "(let-values()" -"(let-values(((mpi_50)(1/module-path-index-join(list 'quote name_13) #f)))" +"(let-values(((mpi_51)(1/module-path-index-join(list 'quote name_13) #f)))" "(let-values(((require-mpis_0)" "(reverse$1" -"(let-values(((lst_204) require-names_0))" +"(let-values(((lst_205) require-names_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_204)))" -"((letrec-values(((for-loop_202)" -"(lambda(fold-var_41 lst_155)" +"(let-values()(check-list lst_205)))" +"((letrec-values(((for-loop_203)" +"(lambda(fold-var_41 lst_206)" "(begin" " 'for-loop" -"(if(pair? lst_155)" -"(let-values(((require-name_0)(unsafe-car lst_155))" -"((rest_105)(unsafe-cdr lst_155)))" -"(let-values(((fold-var_278)" -"(let-values(((fold-var_279) fold-var_41))" +"(if(pair? lst_206)" +"(let-values(((require-name_0)(unsafe-car lst_206))" +"((rest_105)(unsafe-cdr lst_206)))" "(let-values(((fold-var_280)" +"(let-values(((fold-var_281) fold-var_41))" +"(let-values(((fold-var_282)" "(let-values()" "(cons" "(let-values()" @@ -58095,40 +58385,40 @@ static const char *startup_source = " 'quote" " require-name_0)" " #f))" -" fold-var_279))))" -"(values fold-var_280)))))" +" fold-var_281))))" +"(values fold-var_282)))))" "(if(not #f)" -"(for-loop_202 fold-var_278 rest_105)" -" fold-var_278)))" +"(for-loop_203 fold-var_280 rest_105)" +" fold-var_280)))" " fold-var_41)))))" -" for-loop_202)" +" for-loop_203)" " null" -" lst_204))))))" +" lst_205))))))" "(let-values(((ns79_1) ns_121)" "((temp80_6)" "(let-values(((temp82_6) #t)" "((temp83_4) #t)" -"((mpi84_0) mpi_50)" +"((mpi84_0) mpi_51)" "((temp85_4)(list(cons 0 require-mpis_0)))" "((temp86_1)" "(if reexport?_0" "(hasheqv" " 0" -"(let-values(((lst_54) require-mpis_0))" +"(let-values(((lst_55) require-mpis_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_54)))" +"(let-values()(check-list lst_55)))" "((letrec-values(((for-loop_280)" -"(lambda(table_219 lst_314)" +"(lambda(table_228 lst_314)" "(begin" " 'for-loop" "(if(pair? lst_314)" "(let-values(((require-mpi_0)" "(unsafe-car lst_314))" -"((rest_175)" +"((rest_178)" "(unsafe-cdr lst_314)))" -"(let-values(((table_114)" +"(let-values(((table_229)" "(let-values(((m_29)" "(namespace->module" " ns_121" @@ -58142,7 +58432,7 @@ static const char *startup_source = " 'for-loop" "(let-values()" "(let-values(((table_32)" -"(let-values(((ht_38)" +"(let-values(((ht_37)" "(hash-ref" "(shift-provides-module-path-index" "(module-provides" @@ -58157,58 +58447,58 @@ static const char *startup_source = "(void)" "(let-values()" "(check-in-hash" -" ht_38)))" +" ht_37)))" "((letrec-values(((for-loop_35)" -"(lambda(table_116" +"(lambda(table_147" " i_49)" "(begin" " 'for-loop" "(if i_49" "(let-values(((sym_99" -" binding_30)" +" binding_29)" "(hash-iterate-key+value" -" ht_38" +" ht_37" " i_49)))" -"(let-values(((table_220)" -"(let-values(((table_154)" -" table_116))" -"(let-values(((table_221)" +"(let-values(((table_120)" +"(let-values(((table_162)" +" table_147))" +"(let-values(((table_230)" "(let-values()" -"(let-values(((key_89" -" val_80)" +"(let-values(((key_90" +" val_81)" "(let-values()" "(values" " sym_99" -" binding_30))))" +" binding_29))))" "(hash-set" -" table_154" -" key_89" -" val_80)))))" +" table_162" +" key_90" +" val_81)))))" "(values" -" table_221)))))" +" table_230)))))" "(if(not" " #f)" "(for-loop_35" -" table_220" +" table_120" "(hash-iterate-next" -" ht_38" +" ht_37" " i_49))" -" table_220)))" -" table_116)))))" +" table_120)))" +" table_147)))))" " for-loop_35)" " table_31" "(hash-iterate-first" -" ht_38))))))" +" ht_37))))))" " table_32))))))" " for-loop_281)" -" table_219)))))" +" table_228)))))" "(if(not #f)" -"(for-loop_280 table_114 rest_175)" -" table_114)))" -" table_219)))))" +"(for-loop_280 table_229 rest_178)" +" table_229)))" +" table_228)))))" " for-loop_280)" " '#hash()" -" lst_54))))" +" lst_55))))" " '#hasheqv()))" "((void87_0) void))" "(make-module39.1" @@ -58245,7 +58535,7 @@ static const char *startup_source = " #f" " #f" " #f)))" -"((temp81_3)(1/module-path-index-resolve mpi_50)))" +"((temp81_3)(1/module-path-index-resolve mpi_51)))" "(declare-module!58.1 #f #f ns79_1 temp80_6 temp81_3))))))))))))" "(define-values" "(read-primitives)" @@ -58469,10 +58759,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_87)(TH-place-channel-ref x_87 0))))))" "(define-values" "(TH-place-channel-in TH-place-channel-out)" -"(values(lambda(x_90)(TH-place-channel-ref x_90 0))(lambda(x_91)(TH-place-channel-ref x_91 1))))" +"(values(lambda(x_88)(TH-place-channel-ref x_88 0))(lambda(x_89)(TH-place-channel-ref x_89 1))))" "(define-values" "(place-struct-primitives)" "(hasheq" @@ -58610,9 +58900,9 @@ static const char *startup_source = "(if(if(syntax?$1 exp_0)" "(if(pair?(1/syntax-e exp_0))" "(if(eq? 'module(1/syntax-e(car(1/syntax-e exp_0))))" -"(let-values(((r_41)(cdr(1/syntax-e exp_0))))" -"(let-values(((r_46)(if(syntax?$1 r_41)(1/syntax-e r_41) r_41)))" -"(if(pair? r_46)(identifier?(car r_46)) #f)))" +"(let-values(((r_40)(cdr(1/syntax-e exp_0))))" +"(let-values(((r_45)(if(syntax?$1 r_40)(1/syntax-e r_40) r_40)))" +"(if(pair? r_45)(identifier?(car r_45)) #f)))" " #f)" " #f)" " #f)" @@ -58659,35 +58949,35 @@ static const char *startup_source = " expected-mod_0)))" "(values))))" "(let-values(((maybe-count-lines!_0)" -"(lambda(i_127)" +"(lambda(i_128)" "(begin" " 'maybe-count-lines!" " (if (regexp-match? '#rx\"[.]zo$\" path_12)" "(void)" -"(let-values()(port-count-lines! i_127)))))))" +"(let-values()(port-count-lines! i_128)))))))" "(if expected-mod_0" "(let-values()" "((call-with-input-module-file" " path_12" -"(lambda(i_181)" +"(lambda(i_184)" "(begin" -"(maybe-count-lines!_0 i_181)" +"(maybe-count-lines!_0 i_184)" "(with-module-reading-parameterization+delay-source" " path_12" "(lambda()" -"(let-values(((c1_31)(linklet-directory-start i_181)))" +"(let-values(((c1_31)(linklet-directory-start i_184)))" "(if c1_31" "((lambda(pos_126)" "(let-values(((b-pos_0)" -"(search-directory i_181 pos_126(encode-symbols expected-mod_0))))" +"(search-directory i_184 pos_126(encode-symbols expected-mod_0))))" "(if b-pos_0" "(let-values()" "(begin" -"(file-position i_181 b-pos_0)" -"(let-values(((or-part_12)(cached-bundle i_181)))" +"(file-position i_184 b-pos_0)" +"(let-values(((or-part_12)(cached-bundle i_184)))" "(if or-part_12" " or-part_12" -"(let-values(((v_0)(1/read i_181)))" +"(let-values(((v_0)(1/read i_184)))" "(if(1/compiled-module-expression? v_0)" "(lambda()((1/current-eval) v_0))" "(error" @@ -58696,7 +58986,7 @@ static const char *startup_source = " \"expected a compiled module\\n\"" " \" in: ~e\\n\"" " \" found: ~e\")" -"(object-name i_181)" +"(object-name i_184)" " v_0)))))))" "(if(pair? expected-mod_0)" "(let-values() void)" @@ -58704,18 +58994,18 @@ static const char *startup_source = "(error" " 'default-load-handler" " (string-append \"could not find main module\\n\" \" in: ~e\")" -"(object-name i_181)))))))" +"(object-name i_184)))))))" " c1_31)" "(if(if(pair? expected-mod_0)(not(car expected-mod_0)) #f)" "(let-values() void)" -"(let-values(((c2_17)(cached-bundle i_181)))" +"(let-values(((c2_17)(cached-bundle i_184)))" "(if c2_17" "((lambda(thunk_6) thunk_6) c2_17)" "(let-values()" -"(let-values(((s_167)(1/read-syntax(object-name i_181) i_181)))" +"(let-values(((s_170)(1/read-syntax(object-name i_184) i_184)))" "(let-values((()" "(begin" -"(if(eof-object? s_167)" +"(if(eof-object? s_170)" "(let-values()" "(error" " 'default-load-handler" @@ -58723,11 +59013,11 @@ static const char *startup_source = " \"expected a `module' declaration;\\n\"" " \" found end-of-file\\n\"" " \" in: ~e\")" -"(object-name i_181)))" +"(object-name i_184)))" "(void))" "(values))))" -"(let-values(((m-s_0)(check-module-form s_167 path_12)))" -"(let-values(((s2_7)(1/read-syntax(object-name i_181) i_181)))" +"(let-values(((m-s_0)(check-module-form s_170 path_12)))" +"(let-values(((s2_7)(1/read-syntax(object-name i_184) i_184)))" "(begin" "(if(eof-object? s2_7)" "(void)" @@ -58739,28 +59029,28 @@ static const char *startup_source = " \" found an extra form\\n\"" " \" in: ~e\\n\"" " \" found: ~.s\")" -"(object-name i_181)" +"(object-name i_184)" " s2_7)))" "(lambda()((1/current-eval) m-s_0))))))))))))))))))))" "(let-values()" "(let-values(((add-top-interaction_0)" -"(lambda(s_423)" +"(lambda(s_430)" "(begin" " 'add-top-interaction" "(1/namespace-syntax-introduce" -"(1/datum->syntax s_423(cons '#%top-interaction s_423)))))))" +"(1/datum->syntax s_430(cons '#%top-interaction s_430)))))))" "(let-values(((path1_0) path_12)" "((temp2_7)" -"(lambda(i_74)" +"(lambda(i_77)" "(begin" " 'temp2" "(begin" -"(maybe-count-lines!_0 i_74)" -"((letrec-values(((loop_110)" +"(maybe-count-lines!_0 i_77)" +"((letrec-values(((loop_111)" "(lambda(vals_7)" "(begin" " 'loop" -"(let-values(((s_299)" +"(let-values(((s_303)" "(with-continuation-mark" " parameterization-key" "(extend-parameterization" @@ -58785,19 +59075,19 @@ static const char *startup_source = "(path->complete-path path_12))" "(let-values()" "(1/read-syntax" -"(object-name i_74)" -" i_74)))" +"(object-name i_77)" +" i_77)))" "(1/read-syntax" -"(object-name i_74)" -" i_74))))))" -"(if(eof-object? s_299)" +"(object-name i_77)" +" i_77))))))" +"(if(eof-object? s_303)" "(apply values vals_7)" -"(loop_110" +"(loop_111" "(call-with-continuation-prompt" "(lambda()" "(call-with-values" "(lambda()" -"((1/current-eval)(add-top-interaction_0 s_299)))" +"((1/current-eval)(add-top-interaction_0 s_303)))" " list))" "(default-continuation-prompt-tag)" "(lambda args_10" @@ -58805,38 +59095,38 @@ static const char *startup_source = " abort-current-continuation" "(default-continuation-prompt-tag)" " args_10))))))))))" -" loop_110)" +" loop_111)" "(list(void))))))))" "(call-with-input-file*61.1 #f #f path1_0 temp2_7)))))))))))" "(define-values" "(linklet-bundle-or-directory-start)" -"(lambda(i_149 tag_1)" +"(lambda(i_148 tag_1)" "(begin" "(let-values(((version-length_0)(string-length(version))))" -"(if(equal?(peek-byte i_149)(char->integer '#\\#))" -"(if(equal?(peek-byte i_149 1)(char->integer '#\\~))" -"(if(equal?(peek-byte i_149 2) version-length_0)" -"(if(equal?(peek-bytes version-length_0 3 i_149)(string->bytes/utf-8(version)))" -"(if(equal?(peek-byte i_149(+ 3 version-length_0))(char->integer tag_1))(+ version-length_0 4) #f)" +"(if(equal?(peek-byte i_148)(char->integer '#\\#))" +"(if(equal?(peek-byte i_148 1)(char->integer '#\\~))" +"(if(equal?(peek-byte i_148 2) version-length_0)" +"(if(equal?(peek-bytes version-length_0 3 i_148)(string->bytes/utf-8(version)))" +"(if(equal?(peek-byte i_148(+ 3 version-length_0))(char->integer tag_1))(+ version-length_0 4) #f)" " #f)" " #f)" " #f)" " #f)))))" "(define-values" "(linklet-directory-start)" -"(lambda(i_155)" -"(begin(let-values(((pos_94)(linklet-bundle-or-directory-start i_155 '#\\D)))(if pos_94(+ pos_94 4) #f)))))" +"(lambda(i_153)" +"(begin(let-values(((pos_94)(linklet-bundle-or-directory-start i_153 '#\\D)))(if pos_94(+ pos_94 4) #f)))))" "(define-values" "(linklet-bundle-hash-code)" -"(lambda(i_82)" +"(lambda(i_85)" "(begin" -"(let-values(((pos_14)(linklet-bundle-or-directory-start i_82 '#\\B)))" -"(let-values(((hash-code_5)(if pos_14(peek-bytes 20 pos_14 i_82) #f)))" +"(let-values(((pos_14)(linklet-bundle-or-directory-start i_85 '#\\B)))" +"(let-values(((hash-code_5)(if pos_14(peek-bytes 20 pos_14 i_85) #f)))" "(if(bytes? hash-code_5)" "(if(= 20(bytes-length hash-code_5))" -"(if(let-values(((vec_66 len_39)" -"(let-values(((vec_67) hash-code_5))" -"(begin(check-bytes vec_67)(values vec_67(unsafe-bytes-length vec_67))))))" +"(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))))))" "(begin" " #f" "((letrec-values(((for-loop_229)" @@ -58844,14 +59134,14 @@ static const char *startup_source = "(begin" " 'for-loop" "(if(unsafe-fx< pos_127 len_39)" -"(let-values(((c_73)(unsafe-bytes-ref vec_66 pos_127)))" +"(let-values(((c_73)(unsafe-bytes-ref vec_68 pos_127)))" "(let-values(((result_122)" "(let-values()" "(let-values(((result_123)" "(let-values()" "(let-values()(not(eq? c_73 0))))))" "(values result_123)))))" -"(if(if(not((lambda x_92 result_122) c_73))(not #f) #f)" +"(if(if(not((lambda x_90 result_122) c_73))(not #f) #f)" "(for-loop_229 result_122(unsafe-fx+ 1 pos_127))" " result_122)))" " result_121)))))" @@ -58864,9 +59154,9 @@ static const char *startup_source = " #f))))))" "(define-values" "(cached-bundle)" -"(lambda(i_182)" +"(lambda(i_94)" "(begin" -"(let-values(((c3_10)(module-cache-ref(make-module-cache-key(linklet-bundle-hash-code i_182)))))" +"(let-values(((c3_10)(module-cache-ref(make-module-cache-key(linklet-bundle-hash-code i_94)))))" "(if c3_10" "((lambda(declare-module_0)(lambda()(declare-module_0(1/current-namespace)))) c3_10)" "(let-values() #f))))))" @@ -58875,10 +59165,10 @@ static const char *startup_source = "(lambda(i_41)" "(begin" "(let-values(((read-byte/not-eof_0)" -"(lambda(i_183)" +"(lambda(i_185)" "(begin" " 'read-byte/not-eof" -"(let-values(((v_183)(read-byte i_183)))(if(eof-object? v_183) 0 v_183))))))" +"(let-values(((v_181)(read-byte i_185)))(if(eof-object? v_181) 0 v_181))))))" "(bitwise-ior" "(read-byte/not-eof_0 i_41)" "(arithmetic-shift(read-byte/not-eof_0 i_41) 8)" @@ -58886,14 +59176,14 @@ static const char *startup_source = "(arithmetic-shift(read-byte/not-eof_0 i_41) 24))))))" "(define-values" "(search-directory)" -"(lambda(i_184 pos_128 bstr_5)" +"(lambda(i_186 pos_128 bstr_5)" "(begin" "(if(zero? pos_128)" "(let-values() #f)" "(let-values()" -"(let-values((()(begin(file-position i_184 pos_128)(values))))" -"(let-values(((name-len_0)(read-number i_184)))" -"(let-values(((v_248)(read-bytes name-len_0 i_184)))" +"(let-values((()(begin(file-position i_186 pos_128)(values))))" +"(let-values(((name-len_0)(read-number i_186)))" +"(let-values(((v_248)(read-bytes name-len_0 i_186)))" "(begin" "(if(if(bytes? v_248)(=(bytes-length v_248) name-len_0) #f)" "(void)" @@ -58906,24 +59196,24 @@ static const char *startup_source = " \" at position: ~a\\n\"" " \" expected bytes: ~a\\n\"" " \" read bytes: ~e\")" -"(object-name i_184)" +"(object-name i_186)" " pos_128" " name-len_0" " v_248)))" "(if(bytes=? bstr_5 v_248)" -"(let-values()(read-number i_184))" +"(let-values()(read-number i_186))" "(if(bytesbytes/utf-8" -"(symbol->string s_457))))" +"(symbol->string s_467))))" "(let-values(((len_40)" "(bytes-length bstr_6)))" "(if(< len_40 255)" @@ -58972,9 +59262,9 @@ static const char *startup_source = " bstr_6))))))" " fold-var_64))))" "(values fold-var_70)))))" -"(if(not #f)(for-loop_99 fold-var_20 rest_43) fold-var_20)))" +"(if(not #f)(for-loop_103 fold-var_20 rest_44) fold-var_20)))" " fold-var_63)))))" -" for-loop_99)" +" for-loop_103)" " null" " lst_315))))))))))" "(define-values" @@ -58992,31 +59282,31 @@ static const char *startup_source = "(with-module-reading-parameterization thunk_7)))))" "(define-values" "(call-with-input-module-file)" -"(lambda(path_14 proc_9)" +"(lambda(path_14 proc_10)" "(begin" -"(let-values(((i_162) #f))" +"(let-values(((i_161) #f))" "(dynamic-wind" "(lambda()" -"(set! i_162(let-values(((path3_0) path_14)((temp4_9) #t))(open-input-file6.1 temp4_9 #t #f #f path3_0))))" -"(lambda()(proc_9 i_162))" -"(lambda()(close-input-port i_162)))))))" +"(set! i_161(let-values(((path3_0) path_14)((temp4_9) #t))(open-input-file6.1 temp4_9 #t #f #f path3_0))))" +"(lambda()(proc_10 i_161))" +"(lambda()(close-input-port i_161)))))))" "(define-values(dll-suffix)(system-type 'so-suffix))" "(define-values" "(default-load/use-compiled)" "(let-values(((resolve_0)" -"(lambda(s_153)" +"(lambda(s_154)" "(begin" " 'resolve" -"(if(complete-path? s_153)" -" s_153" -"(let-values(((d_35)(current-load-relative-directory)))" -"(if d_35(path->complete-path s_153 d_35) s_153)))))))" +"(if(complete-path? s_154)" +" s_154" +"(let-values(((d_36)(current-load-relative-directory)))" +"(if d_36(path->complete-path s_154 d_36) s_154)))))))" "(let-values(((date-of-1_0)" "(lambda(a_28)" "(begin" " 'date-of-1" -"(let-values(((v_66)(file-or-directory-modify-seconds a_28 #f(lambda() #f))))" -"(if v_66(cons a_28 v_66) #f))))))" +"(let-values(((v_65)(file-or-directory-modify-seconds a_28 #f(lambda() #f))))" +"(if v_65(cons a_28 v_65) #f))))))" "(let-values(((date-of_0)" "(lambda(a_35 modes_1 roots_1)" "(begin" @@ -59060,16 +59350,16 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(if(let-values(((or-part_163)(not expect-module_0)))" -"(if or-part_163" -" or-part_163" -"(let-values(((or-part_74)(symbol? expect-module_0)))" -"(if or-part_74" -" or-part_74" +"(if(let-values(((or-part_165)(not expect-module_0)))" +"(if or-part_165" +" or-part_165" +"(let-values(((or-part_72)(symbol? expect-module_0)))" +"(if or-part_72" +" or-part_72" "(if(list? expect-module_0)" "(if(>(length expect-module_0) 1)" -"(if(let-values(((or-part_75)(symbol?(car expect-module_0))))" -"(if or-part_75 or-part_75(not(car expect-module_0))))" +"(if(let-values(((or-part_73)(symbol?(car expect-module_0))))" +"(if or-part_73 or-part_73(not(car expect-module_0))))" "(andmap2 symbol?(cdr expect-module_0))" " #f)" " #f)" @@ -59081,12 +59371,12 @@ static const char *startup_source = " \"(or/c #f symbol? (cons/c (or/c #f symbol?) (non-empty-listof symbol?)))\"" " path_15)))" "(values))))" -"(let-values(((name_75)(if expect-module_0(1/current-module-declare-name) #f)))" +"(let-values(((name_74)(if expect-module_0(1/current-module-declare-name) #f)))" "(let-values(((ns-hts_0)" -"(if name_75" +"(if name_74" "(registry-table-ref(1/namespace-module-registry(1/current-namespace)))" " #f)))" -"(let-values(((use-path/src_0)(if ns-hts_0(hash-ref(cdr ns-hts_0) name_75 #f) #f)))" +"(let-values(((use-path/src_0)(if ns-hts_0(hash-ref(cdr ns-hts_0) name_74 #f) #f)))" "(if use-path/src_0" "(with-continuation-mark" " parameterization-key" @@ -59102,16 +59392,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_86)(path->bytes orig-file_0)))" -"(let-values(((len_7)(bytes-length b_86)))" +"(let-values(((b_85)(path->bytes orig-file_0)))" +"(let-values(((len_7)(bytes-length b_85)))" "(if(if(>= len_7 4)" -" (bytes=? #\".rkt\" (subbytes b_86 (- len_7 4)))" +" (bytes=? #\".rkt\" (subbytes b_85 (- len_7 4)))" " #f)" "(let-values()" "(values" " orig-file_0" "(bytes->path" -" (bytes-append (subbytes b_86 0 (- len_7 4)) #\".ss\"))))" +" (bytes-append (subbytes b_85 0 (- len_7 4)) #\".ss\"))))" "(let-values()(values orig-file_0 #f)))))" "(values orig-file_0 #f))))" "(let-values(((path_16)" @@ -59126,14 +59416,14 @@ static const char *startup_source = "(let-values(((modes_3)(1/use-compiled-file-paths)))" "(let-values(((roots_3)(1/current-compiled-file-roots)))" "(let-values(((reroot_0)" -"(lambda(p_72 d_36)" +"(lambda(p_73 d_37)" "(begin" " 'reroot" -"(if(eq? d_36 'same)" -"(let-values() p_72)" -"(if(relative-path? d_36)" -"(let-values()(build-path p_72 d_36))" -"(let-values()(reroot-path p_72 d_36))))))))" +"(if(eq? d_37 'same)" +"(let-values() p_73)" +"(if(relative-path? d_37)" +"(let-values()(build-path p_73 d_37))" +"(let-values()(reroot-path p_73 d_37))))))))" "(let-values(((main-path-d_0)(date-of-1_0 path_16)))" "(let-values(((alt-path-d_0)" "(if alt-path_0" @@ -59174,16 +59464,16 @@ 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_285) main-path-d_0))" -"(if or-part_285" -" or-part_285" +"(let-values(((or-part_284) main-path-d_0))" +"(if or-part_284" +" or-part_284" "(not alt-path-d_0)))))" "(let-values(((try-alt?_0)" "(if alt-file_0" -"(let-values(((or-part_293)" +"(let-values(((or-part_291)" " alt-path-d_0))" -"(if or-part_293" -" or-part_293" +"(if or-part_291" +" or-part_291" "(not main-path-d_0)))" " #f)))" "(let-values(((with-dir_0)" @@ -59253,7 +59543,7 @@ static const char *startup_source = "((lambda(zo-d_0)" "(begin" "(register-zo-path" -" name_75" +" name_74" " ns-hts_0" "(car zo-d_0)" " #f" @@ -59285,7 +59575,7 @@ static const char *startup_source = "((lambda(zo-d_1)" "(begin" "(register-zo-path" -" name_75" +" name_74" " ns-hts_0" "(car zo-d_1)" " alt-path_0" @@ -59305,22 +59595,22 @@ static const char *startup_source = "(car zo-d_1)" " expect-module_0)))))))" " c4_3)" -"(if(let-values(((or-part_357)" +"(if(let-values(((or-part_358)" "(not" "(pair?" " expect-module_0))))" -"(if or-part_357" -" or-part_357" +"(if or-part_358" +" or-part_358" "(car expect-module_0)))" "(let-values()" -"(let-values(((p_38)" +"(let-values(((p_39)" "(if try-main?_0" " path_16" " alt-path_0)))" "(if(if(pair?" " expect-module_0)" "(not" -"(file-exists? p_38))" +"(file-exists? p_39))" " #f)" "(void)" "(let-values()" @@ -59333,20 +59623,20 @@ static const char *startup_source = " 1/current-module-declare-source" "(if expect-module_0" "(if(not try-main?_0)" -" p_38" +" p_39" " #f)" " #f))" "(let-values()" "(with-dir_0" "(lambda()" "((1/current-load)" -" p_38" +" p_39" " expect-module_0)))))))))" "(void))))))))))))))))))))))))))))))))))))))))))))" "(define-values" "(register-zo-path)" -"(lambda(name_76 ns-hts_1 path_17 src-path_0 base_27)" -"(begin(if ns-hts_1(let-values()(hash-set!(cdr ns-hts_1) name_76(list path_17 src-path_0 base_27)))(void)))))" +"(lambda(name_75 ns-hts_1 path_17 src-path_0 base_27)" +"(begin(if ns-hts_1(let-values()(hash-set!(cdr ns-hts_1) name_75(list path_17 src-path_0 base_27)))(void)))))" "(define-values(default-reader-guard)(lambda(path_18)(begin path_18)))" "(define-values(-module-hash-table-table)(make-weak-hasheq))" "(define-values" @@ -59355,70 +59645,70 @@ static const char *startup_source = "(begin(let-values(((e_86)(hash-ref -module-hash-table-table reg_0 #f)))(if e_86(ephemeron-value e_86) #f)))))" "(define-values" "(registry-table-set!)" -"(lambda(reg_1 v_203)(begin(hash-set! -module-hash-table-table reg_1(make-ephemeron reg_1 v_203)))))" +"(lambda(reg_1 v_201)(begin(hash-set! -module-hash-table-table reg_1(make-ephemeron reg_1 v_201)))))" "(define-values(CACHE-N) 512)" "(define-values(-path-cache)(make-vector CACHE-N #f))" "(define-values" "(path-cache-get)" -"(lambda(p_73)" +"(lambda(p_74)" "(begin" -"(let-values(((i_26)(modulo(abs(equal-hash-code p_73)) CACHE-N)))" +"(let-values(((i_26)(modulo(abs(equal-hash-code p_74)) CACHE-N)))" "(let-values(((w_1)(vector-ref -path-cache i_26)))" "(let-values(((l_80)(if w_1(weak-box-value w_1) #f)))" -"(if l_80(let-values(((a_71)(1/assoc p_73 l_80)))(if a_71(cdr a_71) #f)) #f)))))))" +"(if l_80(let-values(((a_71)(1/assoc p_74 l_80)))(if a_71(cdr a_71) #f)) #f)))))))" "(define-values" "(path-cache-set!)" -"(lambda(p_74 v_249)" +"(lambda(p_75 v_249)" "(begin" -"(let-values(((i_99)(modulo(abs(equal-hash-code p_74)) CACHE-N)))" -"(let-values(((w_2)(vector-ref -path-cache i_99)))" +"(let-values(((i_187)(modulo(abs(equal-hash-code p_75)) CACHE-N)))" +"(let-values(((w_2)(vector-ref -path-cache i_187)))" "(let-values(((l_67)(if w_2(weak-box-value w_2) #f)))" "(vector-set!" " -path-cache" -" i_99" +" i_187" "(make-weak-box" -"(cons(cons p_74 v_249)(let-values(((or-part_35) l_67))(if or-part_35 or-part_35 null)))))))))))" +"(cons(cons p_75 v_249)(let-values(((or-part_35) l_67))(if or-part_35 or-part_35 null)))))))))))" "(define-values(-loading-filename)(gensym))" "(define-values(-loading-prompt-tag)(make-continuation-prompt-tag 'module-loading))" "(define-values(-prev-relto) #f)" "(define-values(-prev-relto-dir) #f)" "(define-values" "(split-relative-string)" -"(lambda(s_467 coll-mode?_0)" +"(lambda(s_477 coll-mode?_0)" "(begin" "(let-values(((l_19)" -"((letrec-values(((loop_116)" -"(lambda(s_472)" +"((letrec-values(((loop_117)" +"(lambda(s_481)" "(begin" " 'loop" -"(let-values(((len_41)(string-length s_472)))" +"(let-values(((len_41)(string-length s_481)))" "((letrec-values(((iloop_2)" -"(lambda(i_185)" +"(lambda(i_102)" "(begin" " 'iloop" -"(if(= i_185 len_41)" -"(let-values()(list s_472))" -"(if(char=? '#\\/(string-ref s_472 i_185))" +"(if(= i_102 len_41)" +"(let-values()(list s_481))" +"(if(char=? '#\\/(string-ref s_481 i_102))" "(let-values()" "(cons" -"(substring s_472 0 i_185)" -"(loop_116(substring s_472(add1 i_185)))))" -"(let-values()(iloop_2(add1 i_185)))))))))" +"(substring s_481 0 i_102)" +"(loop_117(substring s_481(add1 i_102)))))" +"(let-values()(iloop_2(add1 i_102)))))))))" " iloop_2)" " 0))))))" -" loop_116)" -" s_467)))" +" loop_117)" +" s_477)))" "(if coll-mode?_0" " l_19" -"((letrec-values(((loop_100)" +"((letrec-values(((loop_101)" "(lambda(l_78)" "(begin" " 'loop" "(if(null?(cdr l_78))" "(values null(car l_78))" -"(let-values(((c_116 f_39)(loop_100(cdr l_78))))" +"(let-values(((c_116 f_39)(loop_101(cdr l_78))))" "(values(cons(car l_78) c_116) f_39)))))))" -" loop_100)" +" loop_101)" " l_19))))))" "(define-values" "(format-source-location)" @@ -59450,14 +59740,14 @@ 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_469 from-namespace_1)" +"((s_478 from-namespace_1)" "(begin" " 'standard-module-name-resolver" "(begin" -"(if(1/resolved-module-path? s_469)" +"(if(1/resolved-module-path? s_478)" "(void)" "(let-values()" -" (raise-argument-error 'standard-module-name-resolver \"resolved-module-path?\" s_469)))" +" (raise-argument-error 'standard-module-name-resolver \"resolved-module-path?\" s_478)))" "(if(let-values(((or-part_134)(not from-namespace_1)))" "(if or-part_134 or-part_134(1/namespace? from-namespace_1)))" "(void)" @@ -59466,7 +59756,7 @@ static const char *startup_source = " 'standard-module-name-resolver" " \"(or/c #f namespace?)\"" " from-namespace_1)))" -"(if planet-resolver_0(let-values()(planet-resolver_0 s_469))(void))" +"(if planet-resolver_0(let-values()(planet-resolver_0 s_478))(void))" "(let-values(((hts_1)" "(let-values(((or-part_309)" "(registry-table-ref" @@ -59480,14 +59770,14 @@ static const char *startup_source = " hts_2)" " hts_2))))))" "(begin" -"(hash-set!(car hts_1) s_469 'declared)" +"(hash-set!(car hts_1) s_478 'declared)" "(if from-namespace_1" "(let-values()" "(let-values(((root-name_2)" -"(if(pair?(1/resolved-module-path-name s_469))" +"(if(pair?(1/resolved-module-path-name s_478))" "(1/make-resolved-module-path" -"(car(1/resolved-module-path-name s_469)))" -" s_469))" +"(car(1/resolved-module-path-name s_478)))" +" s_478))" "((from-hts_0)" "(registry-table-ref" "(1/namespace-module-registry from-namespace_1))))" @@ -59499,14 +59789,14 @@ static const char *startup_source = "(void))))" "(void))))" "(void)))))))" -"((s_473 relto_0 stx_17)" +"((s_482 relto_0 stx_17)" "(begin" "(log-message" "(current-logger)" " 'error" " \"default module name resolver called with three arguments (deprecated)\"" " #f)" -"(standard-module-name-resolver_0 s_473 relto_0 stx_17 #t)))" +"(standard-module-name-resolver_0 s_482 relto_0 stx_17 #t)))" "((s_26 relto_1 stx_18 load?_7)" "(let-values((()" "(begin" @@ -59546,7 +59836,7 @@ static const char *startup_source = "(lambda(base_28 orig-l_10)" "(begin" " 'flatten-sub-path" -"((letrec-values(((loop_117)" +"((letrec-values(((loop_118)" "(lambda(a_73 l_33)" "(begin" " 'loop" @@ -59573,12 +59863,12 @@ static const char *startup_source = " 'file)" " base_28)))" " orig-l_10))" -"(loop_117(cdr a_73)(cdr l_33))))" +"(loop_118(cdr a_73)(cdr l_33))))" "(let-values()" -"(loop_117" +"(loop_118" "(cons(car l_33) a_73)" "(cdr l_33)))))))))" -" loop_117)" +" loop_118)" " null" " orig-l_10)))))" "(if(if(pair? s_26)(eq?(car s_26) 'quote) #f)" @@ -59592,14 +59882,14 @@ 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_94) (equal? (cadr s_26) \".\")))" -" (if or-part_94 or-part_94 (equal? (cadr s_26) \"..\")))" +" (if (let-values (((or-part_93) (equal? (cadr s_26) \".\")))" +" (if or-part_93 or-part_93 (equal? (cadr s_26) \"..\")))" "(if relto_1" -"(let-values(((p_75)(1/resolved-module-path-name relto_1)))" -"(let-values(((or-part_375)(symbol? p_75)))" -"(if or-part_375" -" or-part_375" -"(if(pair? p_75)(symbol?(car p_75)) #f))))" +"(let-values(((p_76)(1/resolved-module-path-name relto_1)))" +"(let-values(((or-part_373)(symbol? p_76)))" +"(if or-part_373" +" or-part_373" +"(if(pair? p_76)(symbol?(car p_76)) #f))))" " #f)" " #f)" " #f)" @@ -59609,9 +59899,9 @@ static const char *startup_source = "(1/make-resolved-module-path" "(flatten-sub-path_0" "(if(pair? rp_0)(car rp_0) rp_0)" -"(let-values(((r_47)" +"(let-values(((r_46)" " (if (equal? (cadr s_26) \"..\") (cdr s_26) (cddr s_26))))" -"(if(pair? rp_0)(append(cdr rp_0) r_47) r_47))))))" +"(if(pair? rp_0)(append(cdr rp_0) r_46) r_46))))))" "(if(if(pair? s_26)(eq?(car s_26) 'planet) #f)" "(let-values()" "(begin" @@ -59641,19 +59931,19 @@ static const char *startup_source = "(if relto_1" "(if(eq? relto_1 -prev-relto)" " -prev-relto-dir" -"(let-values(((p_76)" +"(let-values(((p_77)" "(1/resolved-module-path-name" " relto_1)))" -"(let-values(((p_77)" -"(if(pair? p_76)" -"(car p_76)" -" p_76)))" -"(if(path? p_77)" +"(let-values(((p_78)" +"(if(pair? p_77)" +"(car p_77)" +" p_77)))" +"(if(path? p_78)" "(let-values(((base_29" " n_35" " d?_0)" "(split-path" -" p_77)))" +" p_78)))" "(begin" "(set! -prev-relto relto_1)" "(set! -prev-relto-dir" @@ -59679,15 +59969,15 @@ static const char *startup_source = " 'show-collection-err" "(let-values(((msg_2)" "(string-append" -"(let-values(((or-part_174)" +"(let-values(((or-part_374)" "(if stx_18" "(if(error-print-source-location)" "(format-source-location" " stx_18)" " #f)" " #f)))" -"(if or-part_174" -" or-part_174" +"(if or-part_374" +" or-part_374" " \"standard-module-name-resolver\"))" " \": \"" "(regexp-replace" @@ -59708,46 +59998,46 @@ static const char *startup_source = "(current-continuation-marks)" " s_26)))))))" "((ss->rkt_0)" -"(lambda(s_474)" +"(lambda(s_84)" "(begin" " 'ss->rkt" -"(let-values(((len_42)(string-length s_474)))" +"(let-values(((len_42)(string-length s_84)))" "(if(if(>= len_42 3)" "(if(equal?" " '#\\." -"(string-ref s_474(- len_42 3)))" +"(string-ref s_84(- len_42 3)))" "(if(equal?" " '#\\s" -"(string-ref s_474(- len_42 2)))" +"(string-ref s_84(- len_42 2)))" "(equal?" " '#\\s" -"(string-ref s_474(- len_42 1)))" +"(string-ref s_84(- len_42 1)))" " #f)" " #f)" " #f)" "(string-append" -"(substring s_474 0(- len_42 3))" +"(substring s_84 0(- len_42 3))" " \".rkt\")" -" s_474)))))" +" s_84)))))" "((path-ss->rkt_0)" -"(lambda(p_78)" +"(lambda(p_79)" "(begin" " 'path-ss->rkt" -"(let-values(((base_30 name_77 dir?_8)" -"(split-path p_78)))" -" (if (regexp-match '#rx\"[.]ss$\" (path->bytes name_77))" -" (path-replace-extension p_78 #\".rkt\")" -" p_78)))))" +"(let-values(((base_30 name_76 dir?_8)" +"(split-path p_79)))" +" (if (regexp-match '#rx\"[.]ss$\" (path->bytes name_76))" +" (path-replace-extension p_79 #\".rkt\")" +" p_79)))))" "((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_376) (equal? v_38 \".\")))" -" (if or-part_376 or-part_376 (equal? v_38 \"..\")))" +" (if (let-values (((or-part_375) (equal? v_38 \".\")))" +" (if or-part_375 or-part_375 (equal? v_38 \"..\")))" "(if relto_1" -"(let-values(((p_79)" +"(let-values(((p_80)" "(1/resolved-module-path-name" " relto_1)))" -"(if(pair? p_79)(car p_79) p_79))" +"(if(pair? p_80)(car p_80) p_80))" "(error" " 'standard-module-name-resolver" " \"no base path for relative submodule path: ~.s\"" @@ -59756,17 +60046,17 @@ static const char *startup_source = " s_26))" "((subm-path_0)" "(if(if(pair? s_26)(eq? 'submod(car s_26)) #f)" -"(let-values(((p_80)" -"(if(if(let-values(((or-part_209)" +"(let-values(((p_81)" +"(if(if(let-values(((or-part_176)" "(equal?" "(cadr s_26)" " \".\")))" -"(if or-part_209" -" or-part_209" +"(if or-part_176" +" or-part_176" " (equal? (cadr s_26) \"..\")))" " relto_1" " #f)" -"(let-values(((p_81)" +"(let-values(((p_82)" "(1/resolved-module-path-name" " relto_1))" "((r_15)" @@ -59775,26 +60065,26 @@ static const char *startup_source = " \"..\")" "(cdr s_26)" "(cddr s_26))))" -"(if(pair? p_81)" +"(if(pair? p_82)" "(flatten-sub-path_0" -"(car p_81)" -"(append(cdr p_81) r_15))" -"(flatten-sub-path_0 p_81 r_15)))" +"(car p_82)" +"(append(cdr p_82) r_15))" +"(flatten-sub-path_0 p_82 r_15)))" "(flatten-sub-path_0" " \".\"" " (if (equal? (cadr s_26) \"..\")" "(cdr s_26)" "(cddr s_26))))))" -"(if(pair? p_80)(cdr p_80) #f))" +"(if(pair? p_81)(cdr p_81) #f))" " #f)))" "(let-values(((s-parsed_0)" "(if(symbol? s_31)" "(let-values()" -"(let-values(((or-part_361)" +"(let-values(((or-part_179)" "(path-cache-get" "(cons s_31(get-reg_0)))))" -"(if or-part_361" -" or-part_361" +"(if or-part_179" +" or-part_179" "(let-values(((cols_0 file_3)" "(split-relative-string" "(symbol->string s_31)" @@ -59814,11 +60104,11 @@ static const char *startup_source = "(if(string? s_31)" "(let-values()" "(let-values(((dir_4)(get-dir_0)))" -"(let-values(((or-part_377)" +"(let-values(((or-part_376)" "(path-cache-get" "(cons s_31 dir_4))))" -"(if or-part_377" -" or-part_377" +"(if or-part_376" +" or-part_376" "(let-values(((cols_1 file_4)" "(split-relative-string" " s_31" @@ -59830,12 +60120,12 @@ static const char *startup_source = " dir_4" "(append" "(map2" -"(lambda(s_314)" -" (if (string=? s_314 \".\")" +"(lambda(s_319)" +" (if (string=? s_319 \".\")" "(let-values() 'same)" -" (if (string=? s_314 \"..\")" +" (if (string=? s_319 \"..\")" "(let-values() 'up)" -"(let-values() s_314))))" +"(let-values() s_319))))" " cols_1)" "(list(ss->rkt_0 file_4))))))))))" "(if(path? s_31)" @@ -59847,11 +60137,11 @@ static const char *startup_source = "(path->complete-path s_31(get-dir_0))))))" "(if(eq?(car s_31) 'lib)" "(let-values()" -"(let-values(((or-part_86)" +"(let-values(((or-part_84)" "(path-cache-get" "(cons s_31(get-reg_0)))))" -"(if or-part_86" -" or-part_86" +"(if or-part_84" +" or-part_84" "(let-values(((cols_2 file_5)" "(split-relative-string" "(cadr s_31)" @@ -59885,9 +60175,9 @@ static const char *startup_source = "(apply" " append" "(map2" -"(lambda(p_82)" +"(lambda(p_83)" "(split-relative-string" -" p_82" +" p_83" " #t))" "(cddr s_31))))" " cols_2)" @@ -59909,8 +60199,8 @@ static const char *startup_source = "(get-dir_0)))))" "(void))))))))" "(begin" -"(if(let-values(((or-part_378)(path? s-parsed_0)))" -"(if or-part_378 or-part_378(vector? s-parsed_0)))" +"(if(let-values(((or-part_377)(path? s-parsed_0)))" +"(if or-part_377 or-part_377(vector? s-parsed_0)))" "(void)" "(let-values()" "(if stx_18" @@ -59948,11 +60238,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_379)" +"(let-values(((or-part_378)" "(registry-table-ref" "(get-reg_0))))" -"(if or-part_379" -" or-part_379" +"(if or-part_378" +" or-part_378" "(let-values(((hts_4)" "(cons" "(make-hasheq)" @@ -59995,11 +60285,11 @@ static const char *startup_source = "((nsr_0)(get-reg_0)))" "(begin" "(for-each2" -"(lambda(s_431)" +"(lambda(s_438)" "(if(if(equal?" -"(cdr s_431)" +"(cdr s_438)" " normal-filename_0)" -"(eq?(car s_431) nsr_0)" +"(eq?(car s_438) nsr_0)" " #f)" "(let-values()" "(error" @@ -60008,7 +60298,7 @@ static const char *startup_source = " filename_2" "(apply" " string-append" -"((letrec-values(((loop_118)" +"((letrec-values(((loop_119)" "(lambda(l_81)" "(begin" " 'loop" @@ -60020,10 +60310,10 @@ static const char *startup_source = "(path->string" "(cdar" " l_81))" -"(loop_118" +"(loop_119" "(cdr" " l_81))))))))" -" loop_118)" +" loop_119)" "(reverse$1 loading_0)))))" "(void)))" " loading_0)" @@ -60050,10 +60340,10 @@ static const char *startup_source = " root-modname_0" " 1/current-module-path-for-load" "((if stx_18" -"(lambda(p_83)" +"(lambda(p_84)" "(1/datum->syntax" " #f" -" p_83" +" p_84" " stx_18))" " values)" "(if(symbol? s_31)" @@ -60094,10 +60384,10 @@ static const char *startup_source = "(void))" "(if(if(not(vector? s-parsed_0))" "(if load?_7" -"(let-values(((or-part_380)" +"(let-values(((or-part_379)" "(string? s_31)))" -"(if or-part_380" -" or-part_380" +"(if or-part_379" +" or-part_379" "(let-values(((or-part_51)" "(symbol? s_31)))" "(if or-part_51" @@ -60180,9 +60470,9 @@ static const char *startup_source = "(prepare-next-phase-namespace)" "(lambda(ctx_75)" "(begin" -"(let-values(((phase_42)(add1(expand-context-phase ctx_75))))" -"(let-values(((ns_59)(namespace->namespace-at-phase(expand-context-namespace ctx_75) phase_42)))" -"(namespace-visit-available-modules! ns_59 phase_42))))))" +"(let-values(((phase_43)(add1(expand-context-phase ctx_75))))" +"(let-values(((ns_59)(namespace->namespace-at-phase(expand-context-namespace ctx_75) phase_43)))" +"(namespace-visit-available-modules! ns_59 phase_43))))))" "(define-values" "(expand-body7.1)" "(lambda(source1_0 stratified?2_0 stratified?4_0 bodys5_0 ctx6_0)" @@ -60205,18 +60495,18 @@ static const char *startup_source = "(let-values(((inside-sc_0)(new-scope 'intdef)))" "(let-values(((init-bodys_0)" "(reverse$1" -"(let-values(((lst_268) bodys_7))" +"(let-values(((lst_265) bodys_7))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_268)))" +"(let-values()(check-list lst_265)))" "((letrec-values(((for-loop_282)" -"(lambda(fold-var_68 lst_170)" +"(lambda(fold-var_68 lst_102)" "(begin" " 'for-loop" -"(if(pair? lst_170)" -"(let-values(((body_11)(unsafe-car lst_170))" -"((rest_141)(unsafe-cdr lst_170)))" +"(if(pair? lst_102)" +"(let-values(((body_11)(unsafe-car lst_102))" +"((rest_141)(unsafe-cdr lst_102)))" "(let-values(((fold-var_11)" "(let-values(((fold-var_12) fold-var_68))" "(let-values(((fold-var_212)" @@ -60234,7 +60524,7 @@ static const char *startup_source = " fold-var_68)))))" " for-loop_282)" " null" -" lst_268))))))" +" lst_265))))))" "(let-values((()" "(begin" "(let-values(((obs_68)(expand-context-observer ctx_14)))" @@ -60248,13 +60538,13 @@ static const char *startup_source = "(datum->syntax$1 #f bodys_7))))" "(void)))" "(values))))" -"(let-values(((phase_16)(expand-context-phase ctx_14)))" +"(let-values(((phase_17)(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_250) ctx_14))" -"(let-values(((the-struct_89) v_250))" -"(if(expand-context/outer? the-struct_89)" +"(let-values(((the-struct_85) v_250))" +"(if(expand-context/outer? the-struct_85)" "(let-values(((context51_0)(list(make-liberal-define-context)))" "((name52_0) #f)" "((only-immediate?53_0) #t)" @@ -60276,20 +60566,20 @@ static const char *startup_source = " use-site-scopes58_0" " frame-id59_0" " context51_0" -"(expand-context/outer-env the-struct_89)" +"(expand-context/outer-env the-struct_85)" " post-expansion-scope-action56_0" " scopes57_0" " def-ctx-scopes54_0" -"(expand-context/outer-binding-layer the-struct_89)" +"(expand-context/outer-binding-layer the-struct_85)" " reference-records60_0" " only-immediate?53_0" -"(expand-context/outer-need-eventually-defined the-struct_89)" -"(expand-context/outer-current-introduction-scopes the-struct_89)" +"(expand-context/outer-need-eventually-defined the-struct_85)" +"(expand-context/outer-current-introduction-scopes the-struct_85)" " name52_0))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_89))))))" +" the-struct_85))))))" "(let-values(((maybe-increment-binding-layer_0)" "(lambda(ids_28 body-ctx_1)" "(begin" @@ -60299,8 +60589,8 @@ static const char *startup_source = "(expand-context-binding-layer ctx_14))" "(increment-binding-layer ids_28 body-ctx_1 inside-sc_0)" "(expand-context-binding-layer body-ctx_1))))))" -"(let-values(((name_78)(expand-context-name ctx_14)))" -"((letrec-values(((loop_119)" +"(let-values(((name_77)(expand-context-name ctx_14)))" +"((letrec-values(((loop_120)" "(lambda(body-ctx_2" " bodys_8" " done-bodys_0" @@ -60326,7 +60616,7 @@ static const char *startup_source = "((temp70_3)(reverse$1 done-bodys_0))" "((s71_0) s_40)" "((stratified?72_0) stratified?_0)" -"((name73_0) name_78)" +"((name73_0) name_77)" "((temp74_3)(reverse$1 trans-idss_1)))" "(finish-expanding-body27.1" " temp74_3" @@ -60360,54 +60650,54 @@ static const char *startup_source = "(let-values(((exp-body_0)" "(let-values(((temp75_3)(car bodys_8))" "((temp76_3)" -"(if(if name_78" +"(if(if name_77" "(null?" "(cdr bodys_8))" " #f)" -"(let-values(((v_227)" +"(let-values(((v_225)" " body-ctx_2))" -"(let-values(((the-struct_90)" -" v_227))" +"(let-values(((the-struct_86)" +" v_225))" "(if(expand-context/outer?" -" the-struct_90)" +" the-struct_86)" "(let-values(((name77_0)" -" name_78)" +" name_77)" "((inner78_0)" "(root-expand-context/outer-inner" -" v_227)))" +" v_225)))" "(expand-context/outer1.1" " inner78_0" "(root-expand-context/outer-post-expansion-scope" -" the-struct_90)" +" the-struct_86)" "(root-expand-context/outer-use-site-scopes" -" the-struct_90)" +" the-struct_86)" "(root-expand-context/outer-frame-id" -" the-struct_90)" +" the-struct_86)" "(expand-context/outer-context" -" the-struct_90)" +" the-struct_86)" "(expand-context/outer-env" -" the-struct_90)" +" the-struct_86)" "(expand-context/outer-post-expansion-scope-action" -" the-struct_90)" +" the-struct_86)" "(expand-context/outer-scopes" -" the-struct_90)" +" the-struct_86)" "(expand-context/outer-def-ctx-scopes" -" the-struct_90)" +" the-struct_86)" "(expand-context/outer-binding-layer" -" the-struct_90)" +" the-struct_86)" "(expand-context/outer-reference-records" -" the-struct_90)" +" the-struct_86)" "(expand-context/outer-only-immediate?" -" the-struct_90)" +" the-struct_86)" "(expand-context/outer-need-eventually-defined" -" the-struct_90)" +" the-struct_86)" "(expand-context/outer-current-introduction-scopes" -" the-struct_90)" +" the-struct_86)" " name77_0))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_90))))" +" the-struct_86))))" " body-ctx_2)))" "(expand7.1" " #f" @@ -60421,7 +60711,7 @@ static const char *startup_source = "(let-values(((tmp_61)" "(core-form-sym" " disarmed-exp-body_0" -" phase_16)))" +" phase_17)))" "(if(equal? tmp_61 'begin)" "(let-values()" "(let-values((()" @@ -60438,38 +60728,38 @@ static const char *startup_source = "(void)))" "(values))))" "(let-values(((ok?_31 begin79_0 e80_0)" -"(let-values(((s_475)" +"(let-values(((s_483)" " disarmed-exp-body_0))" "(let-values(((orig-s_38)" -" s_475))" +" s_483))" "(let-values(((begin79_1" " e80_1)" -"(let-values(((s_456)" +"(let-values(((s_466)" "(if(syntax?$1" -" s_475)" +" s_483)" "(syntax-e$1" -" s_475)" -" s_475)))" +" s_483)" +" s_483)))" "(if(pair?" -" s_456)" +" s_466)" "(let-values(((begin81_0)" -"(let-values(((s_476)" +"(let-values(((s_484)" "(car" -" s_456)))" -" s_476))" +" s_466)))" +" s_484))" "((e82_0)" -"(let-values(((s_477)" +"(let-values(((s_485)" "(cdr" -" s_456)))" -"(let-values(((s_478)" +" s_466)))" +"(let-values(((s_486)" "(if(syntax?$1" -" s_477)" +" s_485)" "(syntax-e$1" -" s_477)" -" s_477)))" +" s_485)" +" s_485)))" "(let-values(((flat-s_24)" "(to-syntax-list.1" -" s_478)))" +" s_486)))" "(if(not" " flat-s_24)" "(let-values()" @@ -60513,7 +60803,7 @@ static const char *startup_source = " 'splice" " splice-bodys_0)))" "(void)))" -"(loop_119" +"(loop_120" " body-ctx_2" " splice-bodys_0" " done-bodys_0" @@ -60550,45 +60840,45 @@ static const char *startup_source = "(let-values(((define-values83_1" " id84_1" " rhs85_1)" -"(let-values(((s_479)" +"(let-values(((s_487)" "(if(syntax?$1" " s_31)" "(syntax-e$1" " s_31)" " s_31)))" "(if(pair?" -" s_479)" +" s_487)" "(let-values(((define-values86_0)" "(let-values(((s_49)" "(car" -" s_479)))" +" s_487)))" " s_49))" "((id87_1" " rhs88_0)" "(let-values(((s_32)" "(cdr" -" s_479)))" -"(let-values(((s_480)" +" s_487)))" +"(let-values(((s_488)" "(if(syntax?$1" " s_32)" "(syntax-e$1" " s_32)" " s_32)))" "(if(pair?" -" s_480)" +" s_488)" "(let-values(((id89_0)" -"(let-values(((s_309)" +"(let-values(((s_314)" "(car" -" s_480)))" -"(let-values(((s_387)" +" s_488)))" +"(let-values(((s_395)" "(if(syntax?$1" -" s_309)" +" s_314)" "(syntax-e$1" -" s_309)" -" s_309)))" +" s_314)" +" s_314)))" "(let-values(((flat-s_25)" "(to-syntax-list.1" -" s_387)))" +" s_395)))" "(if(not" " flat-s_25)" "(let-values()" @@ -60598,7 +60888,7 @@ static const char *startup_source = " orig-s_39))" "(let-values()" "(let-values(((id_106)" -"(let-values(((lst_194)" +"(let-values(((lst_195)" " flat-s_25))" "(begin" "(if(variable-reference-from-unsafe?" @@ -60606,20 +60896,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_194)))" +" lst_195)))" "((letrec-values(((for-loop_283)" "(lambda(id_81" -" lst_103)" +" lst_316)" "(begin" " 'for-loop" "(if(pair?" -" lst_103)" -"(let-values(((s_312)" +" lst_316)" +"(let-values(((s_317)" "(unsafe-car" -" lst_103))" -"((rest_176)" +" lst_316))" +"((rest_179)" "(unsafe-cdr" -" lst_103)))" +" lst_316)))" "(let-values(((id_70)" "(let-values(((id_107)" " id_81))" @@ -60629,21 +60919,21 @@ static const char *startup_source = "(let-values()" "(if(let-values(((or-part_140)" "(if(syntax?$1" -" s_312)" +" s_317)" "(symbol?" "(syntax-e$1" -" s_312))" +" s_317))" " #f)))" "(if or-part_140" " or-part_140" "(symbol?" -" s_312)))" -" s_312" +" s_317)))" +" s_317" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_39" -" s_312)))))" +" s_317)))))" "(cons" " id92_2" " id_107)))))" @@ -60653,43 +60943,43 @@ static const char *startup_source = " #f)" "(for-loop_283" " id_70" -" rest_176)" +" rest_179)" " id_70)))" " id_81)))))" " for-loop_283)" " null" -" lst_194)))))" +" lst_195)))))" "(reverse$1" " id_106))))))))" "((rhs90_0)" -"(let-values(((s_481)" +"(let-values(((s_489)" "(cdr" -" s_480)))" -"(let-values(((s_482)" +" s_488)))" +"(let-values(((s_490)" "(if(syntax?$1" -" s_481)" +" s_489)" "(syntax-e$1" -" s_481)" -" s_481)))" +" s_489)" +" s_489)))" "(if(pair?" -" s_482)" +" s_490)" "(let-values(((rhs91_0)" "(let-values(((s_54)" "(car" -" s_482)))" +" s_490)))" " s_54))" "(()" -"(let-values(((s_313)" +"(let-values(((s_318)" "(cdr" -" s_482)))" -"(let-values(((s_314)" +" s_490)))" +"(let-values(((s_319)" "(if(syntax?$1" -" s_313)" +" s_318)" "(syntax-e$1" -" s_313)" -" s_313)))" +" s_318)" +" s_318)))" "(if(null?" -" s_314)" +" s_319)" "(values)" "(raise-syntax-error$1" " #f" @@ -60747,7 +61037,7 @@ static const char *startup_source = "(let-values(((ids93_0)" " ids_29)" "((phase94_1)" -" phase_16)" +" phase_17)" "((exp-body95_0)" " exp-body_0)" "((dups96_0)" @@ -60765,7 +61055,7 @@ static const char *startup_source = " ctx_14)))" "(let-values(((keys_5)" "(reverse$1" -"(let-values(((lst_50)" +"(let-values(((lst_51)" " ids_29))" "(begin" "(if(variable-reference-from-unsafe?" @@ -60773,31 +61063,31 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_50)))" +" lst_51)))" "((letrec-values(((for-loop_284)" "(lambda(fold-var_183" -" lst_316)" +" lst_317)" "(begin" " 'for-loop" "(if(pair?" -" lst_316)" +" lst_317)" "(let-values(((id_86)" "(unsafe-car" -" lst_316))" -"((rest_177)" +" lst_317))" +"((rest_180)" "(unsafe-cdr" -" lst_316)))" +" lst_317)))" "(let-values(((fold-var_238)" -"(let-values(((fold-var_281)" +"(let-values(((fold-var_283)" " fold-var_183))" -"(let-values(((fold-var_282)" +"(let-values(((fold-var_284)" "(let-values()" "(cons" "(let-values()" "(let-values(((id97_0)" " id_86)" "((phase98_0)" -" phase_16)" +" phase_17)" "((counter99_0)" " counter_5)" "((frame-id100_0)" @@ -60812,19 +61102,19 @@ static const char *startup_source = " id97_0" " phase98_0" " counter99_0)))" -" fold-var_281))))" +" fold-var_283))))" "(values" -" fold-var_282)))))" +" fold-var_284)))))" "(if(not" " #f)" "(for-loop_284" " fold-var_238" -" rest_177)" +" rest_180)" " fold-var_238)))" " fold-var_183)))))" " for-loop_284)" " null" -" lst_50))))))" +" lst_51))))))" "(let-values(((extended-env_0)" "(let-values(((lst_232)" " keys_5)" @@ -60843,27 +61133,27 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_198)))" -"((letrec-values(((for-loop_262)" +"((letrec-values(((for-loop_261)" "(lambda(env_17" -" lst_317" +" lst_318" " lst_29)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_317)" +" lst_318)" "(pair?" " lst_29)" " #f)" -"(let-values(((key_90)" +"(let-values(((key_91)" "(unsafe-car" -" lst_317))" +" lst_318))" "((rest_149)" "(unsafe-cdr" -" lst_317))" +" lst_318))" "((id_9)" "(unsafe-car" " lst_29))" -"((rest_178)" +"((rest_181)" "(unsafe-cdr" " lst_29)))" "(let-values(((env_18)" @@ -60873,31 +61163,31 @@ static const char *startup_source = "(let-values()" "(env-extend" " env_19" -" key_90" +" key_91" "(local-variable1.1" " id_9)))))" "(values" " env_20)))))" "(if(not" " #f)" -"(for-loop_262" +"(for-loop_261" " env_18" " rest_149" -" rest_178)" +" rest_181)" " env_18)))" " env_17)))))" -" for-loop_262)" +" for-loop_261)" "(expand-context-env" " body-ctx_2)" " lst_232" " lst_198)))))" -"(loop_119" +"(loop_120" "(let-values(((v_251)" " body-ctx_2))" -"(let-values(((the-struct_91)" +"(let-values(((the-struct_87)" " v_251))" "(if(expand-context/outer?" -" the-struct_91)" +" the-struct_87)" "(let-values(((env102_0)" " extended-env_0)" "((binding-layer103_0)" @@ -60910,35 +61200,35 @@ static const char *startup_source = "(expand-context/outer1.1" " inner104_0" "(root-expand-context/outer-post-expansion-scope" -" the-struct_91)" +" the-struct_87)" "(root-expand-context/outer-use-site-scopes" -" the-struct_91)" +" the-struct_87)" "(root-expand-context/outer-frame-id" -" the-struct_91)" +" the-struct_87)" "(expand-context/outer-context" -" the-struct_91)" +" the-struct_87)" " env102_0" "(expand-context/outer-post-expansion-scope-action" -" the-struct_91)" +" the-struct_87)" "(expand-context/outer-scopes" -" the-struct_91)" +" the-struct_87)" "(expand-context/outer-def-ctx-scopes" -" the-struct_91)" +" the-struct_87)" " binding-layer103_0" "(expand-context/outer-reference-records" -" the-struct_91)" +" the-struct_87)" "(expand-context/outer-only-immediate?" -" the-struct_91)" +" the-struct_87)" "(expand-context/outer-need-eventually-defined" -" the-struct_91)" +" the-struct_87)" "(expand-context/outer-current-introduction-scopes" -" the-struct_91)" +" the-struct_87)" "(expand-context/outer-name" -" the-struct_91)))" +" the-struct_87)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_91))))" +" the-struct_87))))" " rest-bodys_0" " null" "(cons" @@ -60955,7 +61245,7 @@ static const char *startup_source = "(check-list" " lst_31)))" "((letrec-values(((for-loop_24)" -"(lambda(fold-var_283" +"(lambda(fold-var_285" " lst_32)" "(begin" " 'for-loop" @@ -60967,24 +61257,24 @@ static const char *startup_source = "((rest_12)" "(unsafe-cdr" " lst_32)))" -"(let-values(((fold-var_284)" -"(let-values(((fold-var_285)" -" fold-var_283))" "(let-values(((fold-var_286)" +"(let-values(((fold-var_287)" +" fold-var_285))" +"(let-values(((fold-var_288)" "(let-values()" "(cons" "(let-values()" " null)" -" fold-var_285))))" +" fold-var_287))))" "(values" -" fold-var_286)))))" +" fold-var_288)))))" "(if(not" " #f)" "(for-loop_24" -" fold-var_284" +" fold-var_286" " rest_12)" -" fold-var_284)))" -" fold-var_283)))))" +" fold-var_286)))" +" fold-var_285)))))" " for-loop_24)" " null" " lst_31))))" @@ -60993,7 +61283,7 @@ static const char *startup_source = " keys_5" "(append" "(reverse$1" -"(let-values(((lst_318)" +"(let-values(((lst_319)" " done-bodys_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -61001,97 +61291,46 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_318)))" +" lst_319)))" "((letrec-values(((for-loop_285)" -"(lambda(fold-var_287" -" lst_319)" +"(lambda(fold-var_289" +" lst_320)" "(begin" " 'for-loop" "(if(pair?" -" lst_319)" +" lst_320)" "(let-values(((done-body_1)" "(unsafe-car" -" lst_319))" -"((rest_179)" +" lst_320))" +"((rest_182)" "(unsafe-cdr" -" lst_319)))" -"(let-values(((fold-var_288)" -"(let-values(((fold-var_289)" -" fold-var_287))" +" lst_320)))" "(let-values(((fold-var_290)" +"(let-values(((fold-var_291)" +" fold-var_289))" +"(let-values(((fold-var_292)" "(let-values()" "(cons" "(let-values()" " null)" -" fold-var_289))))" +" fold-var_291))))" "(values" -" fold-var_290)))))" +" fold-var_292)))))" "(if(not" " #f)" "(for-loop_285" -" fold-var_288" -" rest_179)" -" fold-var_288)))" -" fold-var_287)))))" +" fold-var_290" +" rest_182)" +" fold-var_290)))" +" fold-var_289)))))" " for-loop_285)" " null" -" lst_318))))" +" lst_319))))" " val-keyss_0))" "(cons" " rhs85_0" "(append" "(reverse$1" -"(let-values(((lst_320)" -" done-bodys_0))" -"(begin" -"(if(variable-reference-from-unsafe?" -"(#%variable-reference))" -"(void)" -"(let-values()" -"(check-list" -" lst_320)))" -"((letrec-values(((for-loop_259)" -"(lambda(fold-var_291" -" lst_107)" -"(begin" -" 'for-loop" -"(if(pair?" -" lst_107)" -"(let-values(((done-body_2)" -"(unsafe-car" -" lst_107))" -"((rest_51)" -"(unsafe-cdr" -" lst_107)))" -"(let-values(((fold-var_292)" -"(let-values(((fold-var_134)" -" fold-var_291))" -"(let-values(((fold-var_135)" -"(let-values()" -"(cons" -"(let-values()" -"(no-binds" -" done-body_2" -" s_40" -" phase_16))" -" fold-var_134))))" -"(values" -" fold-var_135)))))" -"(if(not" -" #f)" -"(for-loop_259" -" fold-var_292" -" rest_51)" -" fold-var_292)))" -" fold-var_291)))))" -" for-loop_259)" -" null" -" lst_320))))" -" val-rhss_0))" -"(cons" -" exp-body_0" -"(append" -"(reverse$1" "(let-values(((lst_321)" " done-bodys_0))" "(begin" @@ -61101,40 +61340,91 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_321)))" -"((letrec-values(((for-loop_286)" +"((letrec-values(((for-loop_260)" "(lambda(fold-var_293" -" lst_322)" +" lst_203)" "(begin" " 'for-loop" "(if(pair?" -" lst_322)" +" lst_203)" +"(let-values(((done-body_2)" +"(unsafe-car" +" lst_203))" +"((rest_183)" +"(unsafe-cdr" +" lst_203)))" +"(let-values(((fold-var_294)" +"(let-values(((fold-var_138)" +" fold-var_293))" +"(let-values(((fold-var_295)" +"(let-values()" +"(cons" +"(let-values()" +"(no-binds" +" done-body_2" +" s_40" +" phase_17))" +" fold-var_138))))" +"(values" +" fold-var_295)))))" +"(if(not" +" #f)" +"(for-loop_260" +" fold-var_294" +" rest_183)" +" fold-var_294)))" +" fold-var_293)))))" +" for-loop_260)" +" null" +" lst_321))))" +" val-rhss_0))" +"(cons" +" exp-body_0" +"(append" +"(reverse$1" +"(let-values(((lst_107)" +" done-bodys_0))" +"(begin" +"(if(variable-reference-from-unsafe?" +"(#%variable-reference))" +"(void)" +"(let-values()" +"(check-list" +" lst_107)))" +"((letrec-values(((for-loop_286)" +"(lambda(fold-var_139" +" lst_108)" +"(begin" +" 'for-loop" +"(if(pair?" +" lst_108)" "(let-values(((done-body_3)" "(unsafe-car" -" lst_322))" -"((rest_180)" +" lst_108))" +"((rest_184)" "(unsafe-cdr" -" lst_322)))" -"(let-values(((fold-var_294)" +" lst_108)))" +"(let-values(((fold-var_296)" "(let-values(((fold-var_39)" -" fold-var_293))" -"(let-values(((fold-var_138)" +" fold-var_139))" +"(let-values(((fold-var_297)" "(let-values()" "(cons" "(let-values()" " #f)" " fold-var_39))))" "(values" -" fold-var_138)))))" +" fold-var_297)))))" "(if(not" " #f)" "(for-loop_286" -" fold-var_294" -" rest_180)" -" fold-var_294)))" -" fold-var_293)))))" +" fold-var_296" +" rest_184)" +" fold-var_296)))" +" fold-var_139)))))" " for-loop_286)" " null" -" lst_321))))" +" lst_107))))" " track-stxs_0))" " trans-idss_1" " stx-clauses_0" @@ -61158,44 +61448,44 @@ static const char *startup_source = " define-syntaxes105_0" " id106_0" " rhs107_0)" -"(let-values(((s_483)" +"(let-values(((s_491)" " disarmed-exp-body_0))" "(let-values(((orig-s_40)" -" s_483))" +" s_491))" "(let-values(((define-syntaxes105_1" " id106_1" " rhs107_1)" -"(let-values(((s_411)" +"(let-values(((s_418)" "(if(syntax?$1" -" s_483)" +" s_491)" "(syntax-e$1" -" s_483)" -" s_483)))" +" s_491)" +" s_491)))" "(if(pair?" -" s_411)" +" s_418)" "(let-values(((define-syntaxes108_0)" -"(let-values(((s_484)" +"(let-values(((s_92)" "(car" -" s_411)))" -" s_484))" +" s_418)))" +" s_92))" "((id109_0" " rhs110_0)" -"(let-values(((s_485)" +"(let-values(((s_492)" "(cdr" -" s_411)))" -"(let-values(((s_206)" +" s_418)))" +"(let-values(((s_210)" "(if(syntax?$1" -" s_485)" +" s_492)" "(syntax-e$1" -" s_485)" -" s_485)))" +" s_492)" +" s_492)))" "(if(pair?" -" s_206)" +" s_210)" "(let-values(((id111_0)" "(let-values(((s_65)" "(car" -" s_206)))" -"(let-values(((s_207)" +" s_210)))" +"(let-values(((s_211)" "(if(syntax?$1" " s_65)" "(syntax-e$1" @@ -61203,7 +61493,7 @@ static const char *startup_source = " s_65)))" "(let-values(((flat-s_26)" "(to-syntax-list.1" -" s_207)))" +" s_211)))" "(if(not" " flat-s_26)" "(let-values()" @@ -61213,7 +61503,7 @@ static const char *startup_source = " orig-s_40))" "(let-values()" "(let-values(((id_109)" -"(let-values(((lst_323)" +"(let-values(((lst_322)" " flat-s_26))" "(begin" "(if(variable-reference-from-unsafe?" @@ -61221,7 +61511,7 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_323)))" +" lst_322)))" "((letrec-values(((for-loop_287)" "(lambda(id_110" " lst_35)" @@ -61229,10 +61519,10 @@ static const char *startup_source = " 'for-loop" "(if(pair?" " lst_35)" -"(let-values(((s_486)" +"(let-values(((s_493)" "(unsafe-car" " lst_35))" -"((rest_181)" +"((rest_185)" "(unsafe-cdr" " lst_35)))" "(let-values(((id_111)" @@ -61244,21 +61534,21 @@ static const char *startup_source = "(let-values()" "(if(let-values(((or-part_324)" "(if(syntax?$1" -" s_486)" +" s_493)" "(symbol?" "(syntax-e$1" -" s_486))" +" s_493))" " #f)))" "(if or-part_324" " or-part_324" "(symbol?" -" s_486)))" -" s_486" +" s_493)))" +" s_493" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_40" -" s_486)))))" +" s_493)))))" "(cons" " id114_0" " id_112)))))" @@ -61268,43 +61558,43 @@ static const char *startup_source = " #f)" "(for-loop_287" " id_111" -" rest_181)" +" rest_185)" " id_111)))" " id_110)))))" " for-loop_287)" " null" -" lst_323)))))" +" lst_322)))))" "(reverse$1" " id_109))))))))" "((rhs112_0)" -"(let-values(((s_487)" +"(let-values(((s_95)" "(cdr" -" s_206)))" -"(let-values(((s_488)" +" s_210)))" +"(let-values(((s_494)" "(if(syntax?$1" -" s_487)" +" s_95)" "(syntax-e$1" -" s_487)" -" s_487)))" +" s_95)" +" s_95)))" "(if(pair?" -" s_488)" +" s_494)" "(let-values(((rhs113_0)" -"(let-values(((s_100)" +"(let-values(((s_495)" "(car" -" s_488)))" -" s_100))" +" s_494)))" +" s_495))" "(()" -"(let-values(((s_323)" +"(let-values(((s_96)" "(cdr" -" s_488)))" -"(let-values(((s_489)" +" s_494)))" +"(let-values(((s_97)" "(if(syntax?$1" -" s_323)" +" s_96)" "(syntax-e$1" -" s_323)" -" s_323)))" +" s_96)" +" s_96)))" "(if(null?" -" s_489)" +" s_97)" "(values)" "(raise-syntax-error$1" " #f" @@ -61362,7 +61652,7 @@ static const char *startup_source = "(let-values(((ids115_0)" " ids_30)" "((phase116_0)" -" phase_16)" +" phase_17)" "((exp-body117_0)" " exp-body_0)" "((dups118_0)" @@ -61380,7 +61670,7 @@ static const char *startup_source = " ctx_14)))" "(let-values(((keys_6)" "(reverse$1" -"(let-values(((lst_324)" +"(let-values(((lst_323)" " ids_30))" "(begin" "(if(variable-reference-from-unsafe?" @@ -61388,31 +61678,31 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_324)))" +" lst_323)))" "((letrec-values(((for-loop_288)" -"(lambda(fold-var_295" -" lst_325)" +"(lambda(fold-var_298" +" lst_324)" "(begin" " 'for-loop" "(if(pair?" -" lst_325)" +" lst_324)" "(let-values(((id_114)" "(unsafe-car" -" lst_325))" -"((rest_182)" +" lst_324))" +"((rest_186)" "(unsafe-cdr" -" lst_325)))" -"(let-values(((fold-var_296)" -"(let-values(((fold-var_297)" -" fold-var_295))" -"(let-values(((fold-var_298)" +" lst_324)))" +"(let-values(((fold-var_299)" +"(let-values(((fold-var_300)" +" fold-var_298))" +"(let-values(((fold-var_301)" "(let-values()" "(cons" "(let-values()" "(let-values(((id119_0)" " id_114)" "((phase120_0)" -" phase_16)" +" phase_17)" "((counter121_0)" " counter_6)" "((frame-id122_0)" @@ -61427,19 +61717,19 @@ static const char *startup_source = " id119_0" " phase120_0" " counter121_0)))" -" fold-var_297))))" +" fold-var_300))))" "(values" -" fold-var_298)))))" +" fold-var_301)))))" "(if(not" " #f)" "(for-loop_288" -" fold-var_296" -" rest_182)" -" fold-var_296)))" -" fold-var_295)))))" +" fold-var_299" +" rest_186)" +" fold-var_299)))" +" fold-var_298)))))" " for-loop_288)" " null" -" lst_324))))))" +" lst_323))))))" "(let-values((()" "(begin" "(let-values(((obs_74)" @@ -61477,11 +61767,11 @@ static const char *startup_source = " ids_30" " body-ctx_2)))" "(let-values(((extended-env_1)" -"(let-values(((lst_326)" +"(let-values(((lst_325)" " keys_6)" -"((lst_327)" +"((lst_326)" " vals_8)" -"((lst_328)" +"((lst_327)" " ids_30))" "(begin" "(if(variable-reference-from-unsafe?" @@ -61489,6 +61779,12 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" +" lst_325)))" +"(if(variable-reference-from-unsafe?" +"(#%variable-reference))" +"(void)" +"(let-values()" +"(check-list" " lst_326)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" @@ -61496,43 +61792,37 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_327)))" -"(if(variable-reference-from-unsafe?" -"(#%variable-reference))" -"(void)" -"(let-values()" -"(check-list" -" lst_328)))" "((letrec-values(((for-loop_289)" "(lambda(env_21" +" lst_328" " lst_329" -" lst_46" " lst_330)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_329)" +" lst_328)" "(if(pair?" -" lst_46)" +" lst_329)" "(pair?" " lst_330)" " #f)" " #f)" -"(let-values(((key_91)" +"(let-values(((key_92)" +"(unsafe-car" +" lst_328))" +"((rest_187)" +"(unsafe-cdr" +" lst_328))" +"((val_82)" "(unsafe-car" " lst_329))" -"((rest_183)" +"((rest_188)" "(unsafe-cdr" " lst_329))" -"((val_38)" -"(unsafe-car" -" lst_46))" -"((rest_184)" -"(unsafe-cdr" -" lst_46))" "((id_115)" "(unsafe-car" " lst_330))" -"((rest_185)" +"((rest_189)" "(unsafe-cdr" " lst_330)))" "(let-values(((env_22)" @@ -61542,31 +61832,31 @@ static const char *startup_source = "(let-values()" "(begin" "(maybe-install-free=id-in-context!" -" val_38" +" val_82" " id_115" -" phase_16" +" phase_17" " body-ctx_2)" "(env-extend" " env_23" -" key_91" -" val_38)))))" +" key_92" +" val_82)))))" "(values" " env_24)))))" "(if(not" " #f)" "(for-loop_289" " env_22" -" rest_183" -" rest_184" -" rest_185)" +" rest_187" +" rest_188" +" rest_189)" " env_22)))" " env_21)))))" " for-loop_289)" "(expand-context-env" " body-ctx_2)" +" lst_325" " lst_326" -" lst_327" -" lst_328)))))" +" lst_327)))))" "(begin" "(let-values(((obs_76)" "(expand-context-observer" @@ -61578,13 +61868,13 @@ static const char *startup_source = " obs_76" " 'exit-bind)))" "(void)))" -"(loop_119" +"(loop_120" "(let-values(((v_252)" " body-ctx_2))" -"(let-values(((the-struct_70)" +"(let-values(((the-struct_68)" " v_252))" "(if(expand-context/outer?" -" the-struct_70)" +" the-struct_68)" "(let-values(((env124_0)" " extended-env_1)" "((binding-layer125_0)" @@ -61597,35 +61887,35 @@ static const char *startup_source = "(expand-context/outer1.1" " inner126_0" "(root-expand-context/outer-post-expansion-scope" -" the-struct_70)" +" the-struct_68)" "(root-expand-context/outer-use-site-scopes" -" the-struct_70)" +" the-struct_68)" "(root-expand-context/outer-frame-id" -" the-struct_70)" +" the-struct_68)" "(expand-context/outer-context" -" the-struct_70)" +" the-struct_68)" " env124_0" "(expand-context/outer-post-expansion-scope-action" -" the-struct_70)" +" the-struct_68)" "(expand-context/outer-scopes" -" the-struct_70)" +" the-struct_68)" "(expand-context/outer-def-ctx-scopes" -" the-struct_70)" +" the-struct_68)" " binding-layer125_0" "(expand-context/outer-reference-records" -" the-struct_70)" +" the-struct_68)" "(expand-context/outer-only-immediate?" -" the-struct_70)" +" the-struct_68)" "(expand-context/outer-need-eventually-defined" -" the-struct_70)" +" the-struct_68)" "(expand-context/outer-current-introduction-scopes" -" the-struct_70)" +" the-struct_68)" "(expand-context/outer-name" -" the-struct_70)))" +" the-struct_68)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_70))))" +" the-struct_68))))" " rest-bodys_0" " done-bodys_0" " val-idss_0" @@ -61653,7 +61943,7 @@ static const char *startup_source = "(let-values()" "(error" " \"internal error: accumulated expressions not empty\")))" -"(loop_119" +"(loop_120" " body-ctx_2" " null" "(if(if(null? val-idss_0)" @@ -61669,7 +61959,7 @@ static const char *startup_source = "(cons" "(core-id" " '#%stratified-body" -" phase_16)" +" phase_17)" "(cons" " exp-body_0" " rest-bodys_0)))))" @@ -61681,7 +61971,7 @@ static const char *startup_source = " stx-clauses_0" " dups_0)))" "(let-values()" -"(loop_119" +"(loop_120" " body-ctx_2" " rest-bodys_0" "(cons exp-body_0 done-bodys_0)" @@ -61692,7 +61982,7 @@ static const char *startup_source = " trans-idss_1" " stx-clauses_0" " dups_0))))))))))))))))))" -" loop_119)" +" loop_120)" " body-ctx_0" " init-bodys_0" " null" @@ -61729,9 +62019,9 @@ static const char *startup_source = "(let-values(((track-stxs_1) track-stxs24_0))" "(let-values(((stx-clauses_1) stx-clauses25_0))" "(let-values(((done-bodys_1) done-bodys26_0))" -"(let-values(((s_229) source10_0))" +"(let-values(((s_234) source10_0))" "(let-values(((stratified?_1) stratified?11_0))" -"(let-values(((name_79) name12_0))" +"(let-values(((name_78) name12_0))" "(let-values(((disappeared-transformer-bindings_0) disappeared-transformer-bindings13_0))" "(let-values()" "(let-values((()" @@ -61741,7 +62031,7 @@ static const char *startup_source = "(raise-syntax-error$1" " #f" " \"no expression after a sequence of internal definitions\"" -" s_229))" +" s_234))" "(void))" "(values))))" "(let-values(((finish-ctx_0)" @@ -61749,8 +62039,8 @@ static const char *startup_source = "(accumulate-def-ctx-scopes" " body-ctx_3" " def-ctx-scopes_7)))" -"(let-values(((the-struct_92) v_253))" -"(if(expand-context/outer? the-struct_92)" +"(let-values(((the-struct_88) v_253))" +"(if(expand-context/outer? the-struct_88)" "(let-values(((context127_0) 'expression)" "((use-site-scopes128_0)(box null))" "((scopes129_0)" @@ -61768,24 +62058,24 @@ static const char *startup_source = " inner133_0" " post-expansion-scope132_0" " use-site-scopes128_0" -"(root-expand-context/outer-frame-id the-struct_92)" +"(root-expand-context/outer-frame-id the-struct_88)" " context127_0" -"(expand-context/outer-env the-struct_92)" +"(expand-context/outer-env the-struct_88)" "(expand-context/outer-post-expansion-scope-action" -" the-struct_92)" +" the-struct_88)" " scopes129_0" " def-ctx-scopes131_0" -"(expand-context/outer-binding-layer the-struct_92)" -"(expand-context/outer-reference-records the-struct_92)" +"(expand-context/outer-binding-layer the-struct_88)" +"(expand-context/outer-reference-records the-struct_88)" " only-immediate?130_0" -"(expand-context/outer-need-eventually-defined the-struct_92)" +"(expand-context/outer-need-eventually-defined the-struct_88)" "(expand-context/outer-current-introduction-scopes" -" the-struct_92)" -"(expand-context/outer-name the-struct_92)))" +" the-struct_88)" +"(expand-context/outer-name the-struct_88)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_92))))))" +" the-struct_88))))))" "(let-values(((finish-bodys_0)" "(lambda()" "(begin" @@ -61827,7 +62117,7 @@ static const char *startup_source = "(let-values(((exp-bodys_0)" "(reverse$1" "(let-values(((lst_331) done-bodys_1)" -"((start_65) 0))" +"((start_66) 0))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" @@ -61838,9 +62128,9 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()" -"(check-naturals start_65)))" +"(check-naturals start_66)))" "((letrec-values(((for-loop_290)" -"(lambda(fold-var_258" +"(lambda(fold-var_260" " lst_332" " pos_129)" "(begin" @@ -61852,15 +62142,15 @@ static const char *startup_source = "(let-values(((done-body_4)" "(unsafe-car" " lst_332))" -"((rest_186)" +"((rest_190)" "(unsafe-cdr" " lst_332))" -"((i_186)" +"((i_188)" " pos_129))" -"(let-values(((fold-var_259)" -"(let-values(((fold-var_260)" -" fold-var_258))" "(let-values(((fold-var_261)" +"(let-values(((fold-var_262)" +" fold-var_260))" +"(let-values(((fold-var_263)" "(let-values()" "(cons" "(let-values()" @@ -61878,55 +62168,55 @@ static const char *startup_source = "(let-values(((done-body134_0)" " done-body_4)" "((temp135_2)" -"(if(if name_79" +"(if(if name_78" "(=" -" i_186" +" i_188" " last-i_1)" " #f)" "(let-values(((v_254)" " finish-ctx_0))" -"(let-values(((the-struct_93)" +"(let-values(((the-struct_89)" " v_254))" "(if(expand-context/outer?" -" the-struct_93)" +" the-struct_89)" "(let-values(((name136_0)" -" name_79)" +" name_78)" "((inner137_0)" "(root-expand-context/outer-inner" " v_254)))" "(expand-context/outer1.1" " inner137_0" "(root-expand-context/outer-post-expansion-scope" -" the-struct_93)" +" the-struct_89)" "(root-expand-context/outer-use-site-scopes" -" the-struct_93)" +" the-struct_89)" "(root-expand-context/outer-frame-id" -" the-struct_93)" +" the-struct_89)" "(expand-context/outer-context" -" the-struct_93)" +" the-struct_89)" "(expand-context/outer-env" -" the-struct_93)" +" the-struct_89)" "(expand-context/outer-post-expansion-scope-action" -" the-struct_93)" +" the-struct_89)" "(expand-context/outer-scopes" -" the-struct_93)" +" the-struct_89)" "(expand-context/outer-def-ctx-scopes" -" the-struct_93)" +" the-struct_89)" "(expand-context/outer-binding-layer" -" the-struct_93)" +" the-struct_89)" "(expand-context/outer-reference-records" -" the-struct_93)" +" the-struct_89)" "(expand-context/outer-only-immediate?" -" the-struct_93)" +" the-struct_89)" "(expand-context/outer-need-eventually-defined" -" the-struct_93)" +" the-struct_89)" "(expand-context/outer-current-introduction-scopes" -" the-struct_93)" +" the-struct_89)" " name136_0))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_93))))" +" the-struct_89))))" " finish-ctx_0)))" "(expand7.1" " #f" @@ -61935,23 +62225,23 @@ static const char *startup_source = " #f" " done-body134_0" " temp135_2))))" -" fold-var_260))))" +" fold-var_262))))" "(values" -" fold-var_261)))))" +" fold-var_263)))))" "(if(not" " #f)" "(for-loop_290" -" fold-var_259" -" rest_186" +" fold-var_261" +" rest_190" "(+" " pos_129" " 1))" -" fold-var_259)))" -" fold-var_258)))))" +" fold-var_261)))" +" fold-var_260)))))" " for-loop_290)" " null" " lst_331" -" start_65))))))" +" start_66))))))" "(begin" "(let-values(((obs_80)" "(expand-context-observer body-ctx_3)))" @@ -61975,7 +62265,7 @@ static const char *startup_source = "(call-expand-observe" " obs_81" " 'block->list" -"(datum->syntax$1 s_229 done-bodys_1))))" +"(datum->syntax$1 s_234 done-bodys_1))))" "(void)))" "(finish-bodys_0)))" "(let-values()" @@ -61988,7 +62278,7 @@ static const char *startup_source = "(log-letrec-values$1" " obs_82" " finish-ctx_0" -" s_229" +" s_234" " val-idss_1" " val-rhss_1" " track-stxs_1" @@ -62004,7 +62294,7 @@ static const char *startup_source = "((temp142_0)(not stratified?_1))" "((frame-id143_0) frame-id_13)" "((finish-ctx144_0) finish-ctx_0)" -"((s145_0) s_229)" +"((s145_0) s_234)" "((temp146_2)(pair? stx-clauses_1))" "((finish-bodys147_0) finish-bodys_0)" "((temp148_0) #f))" @@ -62057,13 +62347,13 @@ static const char *startup_source = "(let-values(((split?_0) split?30_0))" "(let-values(((frame-id_14) frame-id31_0))" "(let-values(((ctx_76) ctx32_0))" -"(let-values(((s_490) source33_0))" +"(let-values(((s_496) source33_0))" "(let-values(((had-stxes?_0) had-stxes?34_0))" "(let-values(((get-body_0) get-body35_0))" "(let-values(((track?_1) track?36_0))" "(let-values()" -"(let-values(((phase_139)(expand-context-phase ctx_76)))" -"((letrec-values(((loop_120)" +"(let-values(((phase_140)(expand-context-phase ctx_76)))" +"((letrec-values(((loop_121)" "(lambda(idss_2" " keyss_1" " rhss_2" @@ -62087,12 +62377,12 @@ static const char *startup_source = "(if(expand-context-to-parsed? ctx_76)" "(if(null? accum-idss_0)" "(parsed-let-values17.1" -"(keep-properties-only s_490)" +"(keep-properties-only s_496)" " null" " null" " exp-body_1)" "(parsed-letrec-values18.1" -"(keep-properties-only s_490)" +"(keep-properties-only s_496)" "(reverse$1 accum-idss_0)" "(reverse$1" "(map2" @@ -62101,16 +62391,16 @@ static const char *startup_source = " accum-rhss_0))" " exp-body_1))" "(let-values(((track?149_0) track?_2)" -"((s150_0) s_490)" +"((s150_0) s_496)" "((temp151_2)" "(list*" "(if(null? accum-idss_0)" "(core-id" " 'let-values" -" phase_139)" +" phase_140)" "(core-id" " 'letrec-values" -" phase_139))" +" phase_140))" "(build-clauses" " accum-idss_0" " accum-rhss_0" @@ -62189,7 +62479,7 @@ static const char *startup_source = " \"internal error: accumulated ids not empty\")))" "(values))))" "(let-values(((exp-rest_0)" -"(loop_120" +"(loop_121" "(cdr idss_2)" "(cdr keyss_1)" "(cdr rhss_2)" @@ -62206,7 +62496,7 @@ static const char *startup_source = " ctx_76)" "(parsed-let-values17.1" "(keep-properties-only" -" s_490)" +" s_496)" "(list ids_31)" "(list" "(list" @@ -62216,12 +62506,12 @@ static const char *startup_source = "(let-values(((track?154_0)" " track?_2)" "((s155_0)" -" s_490)" +" s_496)" "((temp156_0)" "(list*" "(core-id" " 'let-values" -" phase_139)" +" phase_140)" "(list" "(build-clause" " ids_31" @@ -62255,14 +62545,14 @@ static const char *startup_source = "(list result-s_10)" " result-s_10))))))" "(if(if(not forward-references?_0)" -"(let-values(((or-part_381) split?_0))" -"(if or-part_381" -" or-part_381" +"(let-values(((or-part_380) split?_0))" +"(if or-part_380" +" or-part_380" "(null?(cdr idss_2))))" " #f)" "(let-values()" "(let-values(((exp-rest_1)" -"(loop_120" +"(loop_121" "(cdr idss_2)" "(cdr keyss_1)" "(cdr rhss_2)" @@ -62279,7 +62569,7 @@ static const char *startup_source = " ctx_76)" "(parsed-letrec-values18.1" "(keep-properties-only" -" s_490)" +" s_496)" "(reverse$1" "(cons" " ids_31" @@ -62297,12 +62587,12 @@ static const char *startup_source = "(let-values(((track?157_0)" " track?_2)" "((s158_0)" -" s_490)" +" s_496)" "((temp159_0)" "(list*" "(core-id" " 'letrec-values" -" phase_139)" +" phase_140)" "(build-clauses" "(cons" " ids_31" @@ -62341,7 +62631,7 @@ static const char *startup_source = "(list result-s_11)" " result-s_11)))))" "(let-values()" -"(loop_120" +"(loop_121" "(cdr idss_2)" "(cdr keyss_1)" "(cdr rhss_2)" @@ -62353,7 +62643,7 @@ static const char *startup_source = " track?_2" " get-list?_0" " can-log?_0)))))))))))))))))" -" loop_120)" +" loop_121)" " idss_1" " keyss_0" " rhss_1" @@ -62377,25 +62667,25 @@ 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_491 phase_140)" +"(lambda(expr_10 s_497 phase_141)" "(begin" -"(let-values(((s-runtime-stx_0)(syntax-shift-phase-level$1 runtime-stx phase_140)))" +"(let-values(((s-runtime-stx_0)(syntax-shift-phase-level$1 runtime-stx phase_141)))" "(datum->syntax$1" -"(core-id '#%app phase_140)" -"(list(core-id 'begin phase_140) expr_10(list(datum->syntax$1 s-runtime-stx_0 'values)))" -" s_491)))))" +"(core-id '#%app phase_141)" +"(list(core-id 'begin phase_141) expr_10(list(datum->syntax$1 s-runtime-stx_0 'values)))" +" s_497)))))" "(define-values" "(log-tag?)" "(lambda(had-stxes?_1 ctx_77)(begin(if had-stxes?_1(not(expand-context-only-immediate? ctx_77)) #f))))" "(define-values" "(log-letrec-values$1)" -"(lambda(obs_88 ctx_40 s_492 val-idss_2 val-rhss_2 track-stxs_4 stx-clauses_2 done-bodys_2)" +"(lambda(obs_88 ctx_40 s_498 val-idss_2 val-rhss_2 track-stxs_4 stx-clauses_2 done-bodys_2)" "(begin" " 'log-letrec-values" -"(let-values(((phase_141)(expand-context-phase ctx_40)))" +"(let-values(((phase_142)(expand-context-phase ctx_40)))" "(let-values(((clauses_0)" "(reverse$1" -"(let-values(((lst_247) val-idss_2)((lst_248) val-rhss_2)((lst_287) track-stxs_4))" +"(let-values(((lst_247) val-idss_2)((lst_248) val-rhss_2)((lst_285) track-stxs_4))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" @@ -62405,21 +62695,21 @@ static const char *startup_source = "(let-values()(check-list lst_248)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_287)))" +"(let-values()(check-list lst_285)))" "((letrec-values(((for-loop_291)" -"(lambda(fold-var_299 lst_123 lst_289 lst_124)" +"(lambda(fold-var_302 lst_333 lst_287 lst_124)" "(begin" " 'for-loop" -"(if(if(pair? lst_123)(if(pair? lst_289)(pair? lst_124) #f) #f)" -"(let-values(((val-ids_0)(unsafe-car lst_123))" -"((rest_60)(unsafe-cdr lst_123))" -"((val-rhs_0)(unsafe-car lst_289))" -"((rest_159)(unsafe-cdr lst_289))" +"(if(if(pair? lst_333)(if(pair? lst_287)(pair? lst_124) #f) #f)" +"(let-values(((val-ids_0)(unsafe-car lst_333))" +"((rest_159)(unsafe-cdr lst_333))" +"((val-rhs_0)(unsafe-car lst_287))" +"((rest_160)(unsafe-cdr lst_287))" "((track-stx_2)(unsafe-car lst_124))" -"((rest_187)(unsafe-cdr lst_124)))" -"(let-values(((fold-var_300)" -"(let-values(((fold-var_301) fold-var_299))" -"(let-values(((fold-var_302)" +"((rest_191)(unsafe-cdr lst_124)))" +"(let-values(((fold-var_303)" +"(let-values(((fold-var_304) fold-var_302))" +"(let-values(((fold-var_305)" "(let-values()" "(cons" "(let-values()" @@ -62427,26 +62717,26 @@ static const char *startup_source = " #f" "(list val-ids_0 val-rhs_0)" " track-stx_2))" -" fold-var_301))))" -"(values fold-var_302)))))" +" fold-var_304))))" +"(values fold-var_305)))))" "(if(not #f)" -"(for-loop_291 fold-var_300 rest_60 rest_159 rest_187)" -" fold-var_300)))" -" fold-var_299)))))" +"(for-loop_291 fold-var_303 rest_159 rest_160 rest_191)" +" fold-var_303)))" +" fold-var_302)))))" " for-loop_291)" " null" " lst_247" " lst_248" -" lst_287))))))" +" lst_285))))))" "(let-values(((had-stxes?_2)(not(null? stx-clauses_2))))" -"(let-values(((lv-id_0)(core-id(if had-stxes?_2 'letrec-syntaxes+values 'letrec-values) phase_141)))" +"(let-values(((lv-id_0)(core-id(if had-stxes?_2 'letrec-syntaxes+values 'letrec-values) phase_142)))" "(let-values(((lv-s_0)" "(datum->syntax$1" " #f" "(if had-stxes?_2" "(list* lv-id_0 stx-clauses_2 clauses_0 done-bodys_2)" "(list* lv-id_0 clauses_0 done-bodys_2))" -" s_492)))" +" s_498)))" "(begin" "(call-expand-observe obs_88 'block->letrec(list lv-s_0))" "(call-expand-observe obs_88 'visit lv-s_0)" @@ -62461,7 +62751,7 @@ static const char *startup_source = " 'letrec-syntaxes-renames" " stx-clauses_2" " clauses_0" -"(datum->syntax$1 #f done-bodys_2 s_492))" +"(datum->syntax$1 #f done-bodys_2 s_498))" "(call-expand-observe obs_88 'prepare-env)" "(call-expand-observe obs_88 'next-group)" "(if(null? val-idss_2)" @@ -62473,7 +62763,7 @@ static const char *startup_source = " obs_88" " 'let-renames" " clauses_0" -"(datum->syntax$1 #f done-bodys_2 s_492)))))))" +"(datum->syntax$1 #f done-bodys_2 s_498)))))))" "(let-values()" "(begin" "(call-expand-observe obs_88 'prim-letrec-values)" @@ -62481,18 +62771,18 @@ static const char *startup_source = " obs_88" " 'let-renames" " clauses_0" -"(datum->syntax$1 #f done-bodys_2 s_492))))))))))))))" +"(datum->syntax$1 #f done-bodys_2 s_498))))))))))))))" "(define-values" "(lambda-clause-expander)" "(lambda(s_67 disarmed-s_5 formals_1 bodys_9 ctx_78 log-renames-tag_0)" "(begin" -"(let-values(((sc_31)(new-scope 'local)))" -"(let-values(((phase_142)(expand-context-phase ctx_78)))" -"(let-values(((ids_33)(parse-and-flatten-formals formals_1 sc_31 disarmed-s_5)))" +"(let-values(((sc_35)(new-scope 'local)))" +"(let-values(((phase_143)(expand-context-phase ctx_78)))" +"(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_142)" +"((phase35_2) phase_143)" "((s36_0) s_67)" " ((temp37_4) \"argument name\"))" "(check-no-duplicate-ids8.1 temp37_4 #t ids34_0 phase35_2 s36_0 #f #f))" @@ -62500,28 +62790,28 @@ static const char *startup_source = "(let-values(((counter_7)(root-expand-context-counter ctx_78)))" "(let-values(((keys_7)" "(reverse$1" -"(let-values(((lst_87) ids_33))" +"(let-values(((lst_88) ids_33))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_87)))" +"(let-values()(check-list lst_88)))" "((letrec-values(((for-loop_292)" -"(lambda(fold-var_303 lst_269)" +"(lambda(fold-var_306 lst_266)" "(begin" " 'for-loop" -"(if(pair? lst_269)" -"(let-values(((id_116)(unsafe-car lst_269))" -"((rest_188)(unsafe-cdr lst_269)))" +"(if(pair? lst_266)" +"(let-values(((id_116)(unsafe-car lst_266))" +"((rest_192)(unsafe-cdr lst_266)))" "(let-values(((fold-var_28)" -"(let-values(((fold-var_29) fold-var_303))" -"(let-values(((fold-var_153)" +"(let-values(((fold-var_29) fold-var_306))" +"(let-values(((fold-var_155)" "(let-values()" "(cons" "(let-values()" "(let-values(((id38_0)" " id_116)" "((phase39_1)" -" phase_142)" +" phase_143)" "((counter40_0)" " counter_7)" "((s41_0)" @@ -62535,51 +62825,51 @@ static const char *startup_source = " phase39_1" " counter40_0)))" " fold-var_29))))" -"(values fold-var_153)))))" +"(values fold-var_155)))))" "(if(not #f)" -"(for-loop_292 fold-var_28 rest_188)" +"(for-loop_292 fold-var_28 rest_192)" " fold-var_28)))" -" fold-var_303)))))" +" fold-var_306)))))" " for-loop_292)" " null" -" lst_87))))))" +" lst_88))))))" "(let-values(((body-env_0)" -"(let-values(((lst_80) keys_7)((lst_90) ids_33))" +"(let-values(((lst_81) keys_7)((lst_91) ids_33))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_80)))" +"(let-values()(check-list lst_81)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_90)))" -"((letrec-values(((for-loop_231)" -"(lambda(env_25 lst_82 lst_275)" +"(let-values()(check-list lst_91)))" +"((letrec-values(((for-loop_232)" +"(lambda(env_25 lst_83 lst_272)" "(begin" " 'for-loop" -"(if(if(pair? lst_82)(pair? lst_275) #f)" -"(let-values(((key_92)(unsafe-car lst_82))" -"((rest_147)(unsafe-cdr lst_82))" -"((id_117)(unsafe-car lst_275))" -"((rest_189)(unsafe-cdr lst_275)))" +"(if(if(pair? lst_83)(pair? lst_272) #f)" +"(let-values(((key_93)(unsafe-car lst_83))" +"((rest_147)(unsafe-cdr lst_83))" +"((id_117)(unsafe-car lst_272))" +"((rest_193)(unsafe-cdr lst_272)))" "(let-values(((env_26)" "(let-values(((env_27) env_25))" "(let-values(((env_28)" "(let-values()" "(env-extend" " env_27" -" key_92" +" key_93" "(local-variable1.1" " id_117)))))" "(values env_28)))))" "(if(not #f)" -"(for-loop_231 env_26 rest_147 rest_189)" +"(for-loop_232 env_26 rest_147 rest_193)" " env_26)))" " env_25)))))" -" for-loop_231)" +" for-loop_232)" "(expand-context-env ctx_78)" -" lst_80" -" lst_90)))))" -"(let-values(((sc-formals_0)(add-scope formals_1 sc_31)))" +" lst_81" +" lst_91)))))" +"(let-values(((sc-formals_0)(add-scope formals_1 sc_35)))" "(let-values(((sc-bodys_0)" "(reverse$1" "(let-values(((lst_17) bodys_9))" @@ -62603,7 +62893,7 @@ static const char *startup_source = "(let-values()" "(add-scope" " body_12" -" sc_31))" +" sc_35))" " fold-var_20))))" "(values fold-var_64)))))" "(if(not #f)" @@ -62628,34 +62918,34 @@ static const char *startup_source = "(values))))" "(let-values(((body-ctx_4)" "(let-values(((v_255) ctx_78))" -"(let-values(((the-struct_94) v_255))" -"(if(expand-context/outer? the-struct_94)" +"(let-values(((the-struct_90) v_255))" +"(if(expand-context/outer? the-struct_90)" "(let-values(((env42_0) body-env_0)" -"((scopes43_1)(cons sc_31(expand-context-scopes ctx_78)))" +"((scopes43_1)(cons sc_35(expand-context-scopes ctx_78)))" "((binding-layer44_0)" -"(increment-binding-layer ids_33 ctx_78 sc_31))" +"(increment-binding-layer ids_33 ctx_78 sc_35))" "((frame-id45_0) #f)" "((inner46_0)(root-expand-context/outer-inner v_255)))" "(expand-context/outer1.1" " inner46_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-post-expansion-scope the-struct_90)" +"(root-expand-context/outer-use-site-scopes the-struct_90)" " frame-id45_0" -"(expand-context/outer-context the-struct_94)" +"(expand-context/outer-context the-struct_90)" " env42_0" -"(expand-context/outer-post-expansion-scope-action the-struct_94)" +"(expand-context/outer-post-expansion-scope-action the-struct_90)" " scopes43_1" -"(expand-context/outer-def-ctx-scopes the-struct_94)" +"(expand-context/outer-def-ctx-scopes the-struct_90)" " binding-layer44_0" -"(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)))" +"(expand-context/outer-reference-records the-struct_90)" +"(expand-context/outer-only-immediate? the-struct_90)" +"(expand-context/outer-need-eventually-defined the-struct_90)" +"(expand-context/outer-current-introduction-scopes the-struct_90)" +"(expand-context/outer-name the-struct_90)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_94))))))" +" the-struct_90))))))" "(let-values(((exp-body_2)" "(let-values(((sc-bodys47_0) sc-bodys_0)" "((body-ctx48_0) body-ctx_4)" @@ -62679,24 +62969,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_426) disarmed-s_6))" -"(let-values(((orig-s_41) s_426))" +"(let-values(((s_433) disarmed-s_6))" +"(let-values(((orig-s_41) s_433))" "(let-values(((lambda53_1 formals54_1 body55_1)" -"(let-values(((s_161)(if(syntax?$1 s_426)(syntax-e$1 s_426) s_426)))" -"(if(pair? s_161)" -"(let-values(((lambda56_0)(let-values(((s_493)(car s_161))) s_493))" +"(let-values(((s_164)(if(syntax?$1 s_433)(syntax-e$1 s_433) s_433)))" +"(if(pair? s_164)" +"(let-values(((lambda56_0)(let-values(((s_499)(car s_164))) s_499))" "((formals57_0 body58_0)" -"(let-values(((s_475)(cdr s_161)))" -"(let-values(((s_469)" -"(if(syntax?$1 s_475)" -"(syntax-e$1 s_475)" -" s_475)))" -"(if(pair? s_469)" +"(let-values(((s_483)(cdr s_164)))" +"(let-values(((s_478)" +"(if(syntax?$1 s_483)" +"(syntax-e$1 s_483)" +" s_483)))" +"(if(pair? s_478)" "(let-values(((formals59_0)" -"(let-values(((s_456)(car s_469)))" -" s_456))" +"(let-values(((s_466)(car s_478)))" +" s_466))" "((body60_0)" -"(let-values(((s_66)(cdr s_469)))" +"(let-values(((s_66)(cdr s_478)))" "(let-values(((s_74)" "(if(syntax?$1 s_66)" "(syntax-e$1 s_66)" @@ -62735,29 +63025,29 @@ static const char *startup_source = "(void" "(add-core-form!*" " 'λ" -"(lambda(s_494)" +"(lambda(s_500)" "(let-values(((ok?_34 lam-id66_0 formals67_0 _68_0)" -"(let-values(((s_495) s_494))" -"(let-values(((orig-s_42) s_495))" +"(let-values(((s_501) s_500))" +"(let-values(((orig-s_42) s_501))" "(let-values(((lam-id66_1 formals67_1 _68_1)" -"(let-values(((s_308)(if(syntax?$1 s_495)(syntax-e$1 s_495) s_495)))" -"(if(pair? s_308)" -"(let-values(((lam-id69_0)(let-values(((s_48)(car s_308))) s_48))" +"(let-values(((s_313)(if(syntax?$1 s_501)(syntax-e$1 s_501) s_501)))" +"(if(pair? s_313)" +"(let-values(((lam-id69_0)(let-values(((s_48)(car s_313))) s_48))" "((formals70_0 _71_1)" -"(let-values(((s_49)(cdr s_308)))" +"(let-values(((s_49)(cdr s_313)))" "(let-values(((s_32)" "(if(syntax?$1 s_49)(syntax-e$1 s_49) s_49)))" "(if(pair? s_32)" "(let-values(((formals72_0)" -"(let-values(((s_496)(car s_32))) s_496))" +"(let-values(((s_502)(car s_32))) s_502))" "((_73_0)" -"(let-values(((s_309)(cdr s_32)))" -"(let-values(((s_387)" -"(if(syntax?$1 s_309)" -"(syntax-e$1 s_309)" -" s_309)))" +"(let-values(((s_314)(cdr s_32)))" +"(let-values(((s_395)" +"(if(syntax?$1 s_314)" +"(syntax-e$1 s_314)" +" s_314)))" "(let-values(((flat-s_25)" -"(to-syntax-list.1 s_387)))" +"(to-syntax-list.1 s_395)))" "(if(not flat-s_25)" "(let-values()" "(raise-syntax-error$1" @@ -62776,23 +63066,23 @@ static const char *startup_source = "(values lam-id69_0 formals70_0 _71_1))" " (raise-syntax-error$1 #f \"bad syntax\" orig-s_42)))))" "(values #t lam-id66_1 formals67_1 _68_1))))))" -"(let-values(((ids_34)(parse-and-flatten-formals formals67_0 #f s_494)))" +"(let-values(((ids_34)(parse-and-flatten-formals formals67_0 #f s_500)))" "(let-values(((ctx_80)(let-values(((temp78_0) #t))(get-current-expand-context17.1 temp78_0 #t #f #f))))" -"(let-values(((phase_143)(if ctx_80(expand-context-phase ctx_80) 0)))" +"(let-values(((phase_144)(if ctx_80(expand-context-phase ctx_80) 0)))" "(begin" -" (let-values (((ids74_0) ids_34) ((phase75_0) phase_143) ((s76_1) s_494) ((temp77_4) \"argument name\"))" +" (let-values (((ids74_0) ids_34) ((phase75_0) phase_144) ((s76_1) s_500) ((temp77_4) \"argument name\"))" "(check-no-duplicate-ids8.1 temp77_4 #t ids74_0 phase75_0 s76_1 #f #f))" "(datum->syntax$1" -" s_494" +" s_500" "(cons" -"(datum->syntax$1(syntax-shift-phase-level$1 core-stx phase_143) 'lambda lam-id66_0 lam-id66_0)" -"(cdr(syntax-e$1 s_494)))" -" s_494" -" s_494)))))))))" +"(datum->syntax$1(syntax-shift-phase-level$1 core-stx phase_144) 'lambda lam-id66_0 lam-id66_0)" +"(cdr(syntax-e$1 s_500)))" +" s_500" +" s_500)))))))))" "(void" "(add-core-form!*" " 'case-lambda" -"(lambda(s_497 ctx_81)" +"(lambda(s_503 ctx_81)" "(let-values((()" "(begin" "(let-values(((obs_89)(expand-context-observer ctx_81)))" @@ -62800,47 +63090,47 @@ static const char *startup_source = "(let-values()(let-values()(call-expand-observe obs_89 'prim-case-lambda)))" "(void)))" "(values))))" -"(let-values(((disarmed-s_7)(syntax-disarm$1 s_497)))" +"(let-values(((disarmed-s_7)(syntax-disarm$1 s_503)))" "(let-values(((ok?_35 case-lambda79_0 formals80_0 body81_0)" -"(let-values(((s_498) disarmed-s_7))" -"(let-values(((orig-s_43) s_498))" +"(let-values(((s_504) disarmed-s_7))" +"(let-values(((orig-s_43) s_504))" "(let-values(((case-lambda79_1 formals80_1 body81_1)" -"(let-values(((s_36)(if(syntax?$1 s_498)(syntax-e$1 s_498) s_498)))" +"(let-values(((s_36)(if(syntax?$1 s_504)(syntax-e$1 s_504) s_504)))" "(if(pair? s_36)" "(let-values(((case-lambda82_0)(let-values(((s_59)(car s_36))) s_59))" "((formals83_0 body84_0)" -"(let-values(((s_409)(cdr s_36)))" -"(let-values(((s_499)" -"(if(syntax?$1 s_409)" -"(syntax-e$1 s_409)" -" s_409)))" -"(let-values(((flat-s_28)(to-syntax-list.1 s_499)))" +"(let-values(((s_416)(cdr s_36)))" +"(let-values(((s_505)" +"(if(syntax?$1 s_416)" +"(syntax-e$1 s_416)" +" s_416)))" +"(let-values(((flat-s_28)(to-syntax-list.1 s_505)))" "(if(not flat-s_28)" "(let-values()" " (raise-syntax-error$1 #f \"bad syntax\" orig-s_43))" "(let-values()" "(let-values(((formals_3 body_14)" -"(let-values(((lst_333) flat-s_28))" +"(let-values(((lst_334) flat-s_28))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" -"(check-list lst_333)))" +"(check-list lst_334)))" "((letrec-values(((for-loop_293)" "(lambda(formals_4" " body_15" -" lst_334)" +" lst_335)" "(begin" " 'for-loop" "(if(pair?" -" lst_334)" +" lst_335)" "(let-values(((s_61)" "(unsafe-car" -" lst_334))" -"((rest_190)" +" lst_335))" +"((rest_194)" "(unsafe-cdr" -" lst_334)))" +" lst_335)))" "(let-values(((formals_5" " body_16)" "(let-values(((formals_6)" @@ -62862,23 +63152,23 @@ static const char *startup_source = "(if(pair?" " s_64)" "(let-values(((formals85_0)" -"(let-values(((s_500)" +"(let-values(((s_85)" "(car" " s_64)))" -" s_500))" +" s_85))" "((body86_0)" -"(let-values(((s_197)" +"(let-values(((s_201)" "(cdr" " s_64)))" -"(let-values(((s_395)" +"(let-values(((s_403)" "(if(syntax?$1" -" s_197)" +" s_201)" "(syntax-e$1" -" s_197)" -" s_197)))" +" s_201)" +" s_201)))" "(let-values(((flat-s_29)" "(to-syntax-list.1" -" s_395)))" +" s_403)))" "(if(not" " flat-s_29)" "(let-values()" @@ -62917,7 +63207,7 @@ static const char *startup_source = "(for-loop_293" " formals_5" " body_16" -" rest_190)" +" rest_194)" "(values" " formals_5" " body_16))))" @@ -62927,7 +63217,7 @@ static const char *startup_source = " for-loop_293)" " null" " null" -" lst_333)))))" +" lst_334)))))" "(values" "(reverse$1 formals_3)" "(reverse$1 body_14))))))))))" @@ -62935,20 +63225,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_198) disarmed-s_7))" -"(let-values(((orig-s_44) s_198))" +"(let-values(((s_202) disarmed-s_7))" +"(let-values(((orig-s_44) s_202))" "(let-values(((case-lambda87_1 clause88_1)" -"(let-values(((s_501)(if(syntax?$1 s_198)(syntax-e$1 s_198) s_198)))" -"(if(pair? s_501)" -"(let-values(((case-lambda89_0)" -"(let-values(((s_502)(car s_501))) s_502))" +"(let-values(((s_506)(if(syntax?$1 s_202)(syntax-e$1 s_202) s_202)))" +"(if(pair? s_506)" +"(let-values(((case-lambda89_0)(let-values(((s_86)(car s_506))) s_86))" "((clause90_0)" -"(let-values(((s_503)(cdr s_501)))" -"(let-values(((s_86)" -"(if(syntax?$1 s_503)" -"(syntax-e$1 s_503)" -" s_503)))" -"(let-values(((flat-s_30)(to-syntax-list.1 s_86)))" +"(let-values(((s_507)(cdr s_506)))" +"(let-values(((s_439)" +"(if(syntax?$1 s_507)" +"(syntax-e$1 s_507)" +" s_507)))" +"(let-values(((flat-s_30)(to-syntax-list.1 s_439)))" "(if(not flat-s_30)" "(let-values()" " (raise-syntax-error$1 #f \"bad syntax\" orig-s_44))" @@ -62957,37 +63246,37 @@ static const char *startup_source = " (raise-syntax-error$1 #f \"bad syntax\" orig-s_44)))))" "(values #t case-lambda87_1 clause88_1))))))" "(let-values(((rebuild-s_5)" -"(let-values(((ctx93_0) ctx_81)((s94_0) s_497)((temp95_4) #t))" +"(let-values(((ctx93_0) ctx_81)((s94_0) s_503)((temp95_4) #t))" "(keep-as-needed74.1 #f #f #f #f temp95_4 #t ctx93_0 s94_0))))" "(let-values(((clauses_1)" "(reverse$1" -"(let-values(((lst_335) formals80_0)((lst_336) body81_0)((lst_155) clause88_0))" +"(let-values(((lst_336) formals80_0)((lst_337) body81_0)((lst_206) clause88_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_335)))" -"(if(variable-reference-from-unsafe?(#%variable-reference))" -"(void)" "(let-values()(check-list lst_336)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_155)))" -"((letrec-values(((for-loop_178)" -"(lambda(fold-var_141 lst_108 lst_337 lst_109)" +"(let-values()(check-list lst_337)))" +"(if(variable-reference-from-unsafe?(#%variable-reference))" +"(void)" +"(let-values()(check-list lst_206)))" +"((letrec-values(((for-loop_122)" +"(lambda(fold-var_307 lst_275 lst_156 lst_338)" "(begin" " 'for-loop" -"(if(if(pair? lst_108)" -"(if(pair? lst_337)(pair? lst_109) #f)" +"(if(if(pair? lst_275)" +"(if(pair? lst_156)(pair? lst_338) #f)" " #f)" -"(let-values(((formals_8)(unsafe-car lst_108))" -"((rest_52)(unsafe-cdr lst_108))" -"((body_19)(unsafe-car lst_337))" -"((rest_191)(unsafe-cdr lst_337))" -"((clause_3)(unsafe-car lst_109))" -"((rest_192)(unsafe-cdr lst_109)))" -"(let-values(((fold-var_304)" -"(let-values(((fold-var_305) fold-var_141))" -"(let-values(((fold-var_95)" +"(let-values(((formals_8)(unsafe-car lst_275))" +"((rest_195)(unsafe-cdr lst_275))" +"((body_19)(unsafe-car lst_156))" +"((rest_79)(unsafe-cdr lst_156))" +"((clause_3)(unsafe-car lst_338))" +"((rest_196)(unsafe-cdr lst_338)))" +"(let-values(((fold-var_146)" +"(let-values(((fold-var_308) fold-var_307))" +"(let-values(((fold-var_309)" "(let-values()" "(cons" "(let-values()" @@ -63021,7 +63310,7 @@ static const char *startup_source = "(let-values(((exp-formals_0" " exp-body_3)" "(lambda-clause-expander" -" s_497" +" s_503" " disarmed-s_7" " formals_8" " body_19" @@ -63043,71 +63332,71 @@ static const char *startup_source = " #f" " rebuild-clause98_0" " temp99_4)))))))" -" fold-var_305))))" -"(values fold-var_95)))))" +" fold-var_308))))" +"(values fold-var_309)))))" "(if(not #f)" -"(for-loop_178 fold-var_304 rest_52 rest_191 rest_192)" -" fold-var_304)))" -" fold-var_141)))))" -" for-loop_178)" +"(for-loop_122 fold-var_146 rest_195 rest_79 rest_196)" +" fold-var_146)))" +" fold-var_307)))))" +" for-loop_122)" " null" -" lst_335" " lst_336" -" lst_155))))))" +" lst_337" +" lst_206))))))" "(if(expand-context-to-parsed? ctx_81)" "(parsed-case-lambda6.1 rebuild-s_5 clauses_1)" "(let-values(((rebuild-s100_0) rebuild-s_5)((temp101_5)(list* case-lambda79_0 clauses_1)))" "(rebuild5.1 #f #f rebuild-s100_0 temp101_5))))))))))))" "(define-values" "(parse-and-flatten-formals)" -"(lambda(all-formals_0 sc_32 s_93)" +"(lambda(all-formals_0 sc_36 s_91)" "(begin" -"((letrec-values(((loop_121)" +"((letrec-values(((loop_122)" "(lambda(formals_9)" "(begin" " 'loop" "(if(identifier? formals_9)" -"(let-values()(list(add-scope formals_9 sc_32)))" +"(let-values()(list(add-scope formals_9 sc_36)))" "(if(syntax?$1 formals_9)" "(let-values()" -"(let-values(((p_84)(syntax-e$1 formals_9)))" -"(if(pair? p_84)" -"(let-values()(loop_121 p_84))" -"(if(null? p_84)" +"(let-values(((p_85)(syntax-e$1 formals_9)))" +"(if(pair? p_85)" +"(let-values()(loop_122 p_85))" +"(if(null? p_85)" "(let-values() null)" -" (let-values () (raise-syntax-error$1 #f \"not an identifier\" s_93 p_84))))))" +" (let-values () (raise-syntax-error$1 #f \"not an identifier\" s_91 p_85))))))" "(if(pair? formals_9)" "(let-values()" "(begin" "(if(identifier?(car formals_9))" "(void)" "(let-values()" -" (raise-syntax-error$1 #f \"not an identifier\" s_93 (car formals_9))))" +" (raise-syntax-error$1 #f \"not an identifier\" s_91 (car formals_9))))" "(cons" -"(if sc_32(add-scope(car formals_9) sc_32)(car formals_9))" -"(loop_121(cdr formals_9)))))" +"(if sc_36(add-scope(car formals_9) sc_36)(car formals_9))" +"(loop_122(cdr formals_9)))))" "(if(null? formals_9)" "(let-values() null)" "(let-values()" -" (raise-syntax-error$1 \"bad argument sequence\" s_93 all-formals_0))))))))))" -" loop_121)" +" (raise-syntax-error$1 \"bad argument sequence\" s_91 all-formals_0))))))))))" +" loop_122)" " all-formals_0))))" "(define-values" "(unflatten-like-formals)" "(lambda(keys_8 formals_10)" "(begin" -"((letrec-values(((loop_122)" +"((letrec-values(((loop_123)" "(lambda(keys_9 formals_11)" "(begin" " 'loop" "(if(null? formals_11)" "(let-values() null)" "(if(pair? formals_11)" -"(let-values()(cons(car keys_9)(loop_122(cdr keys_9)(cdr formals_11))))" +"(let-values()(cons(car keys_9)(loop_123(cdr keys_9)(cdr formals_11))))" "(if(syntax?$1 formals_11)" -"(let-values()(loop_122 keys_9(syntax-e$1 formals_11)))" +"(let-values()(loop_123 keys_9(syntax-e$1 formals_11)))" "(let-values()(car keys_9)))))))))" -" loop_122)" +" loop_123)" " keys_8" " formals_10))))" "(define-values" @@ -63129,7 +63418,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_323 ctx_82)" +"(lambda(s_96 ctx_82)" "(let-values((()" "(begin" "(let-values(((obs_90)(expand-context-observer ctx_82)))" @@ -63137,7 +63426,7 @@ static const char *startup_source = "(let-values()(let-values()(call-expand-observe obs_90 log-tag_0)))" "(void)))" "(values))))" -"(let-values(((disarmed-s_8)(syntax-disarm$1 s_323)))" +"(let-values(((disarmed-s_8)(syntax-disarm$1 s_96)))" "(let-values(((ok?_37" " letrec-syntaxes+values102_0" " id:trans103_0" @@ -63145,47 +63434,47 @@ static const char *startup_source = " id:val105_0" " val-rhs106_0" " body107_0)" -"(let-values(((s_119) disarmed-s_8))" +"(let-values(((s_445) disarmed-s_8))" "(if(if syntaxes?_0 #t #f)" -"(let-values(((orig-s_45) s_119))" +"(let-values(((orig-s_45) s_445))" "(let-values(((letrec-syntaxes+values102_1" " id:trans103_1" " trans-rhs104_1" " id:val105_1" " val-rhs106_1" " body107_1)" -"(let-values(((s_407)" -"(if(syntax?$1 s_119)" -"(syntax-e$1 s_119)" -" s_119)))" -"(if(pair? s_407)" +"(let-values(((s_414)" +"(if(syntax?$1 s_445)" +"(syntax-e$1 s_445)" +" s_445)))" +"(if(pair? s_414)" "(let-values(((letrec-syntaxes+values108_0)" -"(let-values(((s_504)(car s_407))) s_504))" +"(let-values(((s_508)(car s_414))) s_508))" "((id:trans109_0" " trans-rhs110_0" " id:val111_0" " val-rhs112_0" " body113_0)" -"(let-values(((s_221)(cdr s_407)))" -"(let-values(((s_505)" -"(if(syntax?$1 s_221)" -"(syntax-e$1 s_221)" -" s_221)))" -"(if(pair? s_505)" +"(let-values(((s_226)(cdr s_414)))" +"(let-values(((s_120)" +"(if(syntax?$1 s_226)" +"(syntax-e$1 s_226)" +" s_226)))" +"(if(pair? s_120)" "(let-values(((id:trans114_0" " trans-rhs115_0)" -"(let-values(((s_506)" +"(let-values(((s_509)" "(car" -" s_505)))" -"(let-values(((s_507)" +" s_120)))" +"(let-values(((s_121)" "(if(syntax?$1" -" s_506)" +" s_509)" "(syntax-e$1" -" s_506)" -" s_506)))" +" s_509)" +" s_509)))" "(let-values(((flat-s_31)" "(to-syntax-list.1" -" s_507)))" +" s_121)))" "(if(not" " flat-s_31)" "(let-values()" @@ -63196,7 +63485,7 @@ static const char *startup_source = "(let-values()" "(let-values(((id:trans_0" " trans-rhs_0)" -"(let-values(((lst_338)" +"(let-values(((lst_339)" " flat-s_31))" "(begin" "(if(variable-reference-from-unsafe?" @@ -63204,8 +63493,8 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_338)))" -"((letrec-values(((for-loop_130)" +" lst_339)))" +"((letrec-values(((for-loop_294)" "(lambda(id:trans_1" " trans-rhs_1" " lst_2)" @@ -63213,10 +63502,10 @@ static const char *startup_source = " 'for-loop" "(if(pair?" " lst_2)" -"(let-values(((s_228)" +"(let-values(((s_233)" "(unsafe-car" " lst_2))" -"((rest_193)" +"((rest_197)" "(unsafe-cdr" " lst_2)))" "(let-values(((id:trans_2" @@ -63231,27 +63520,27 @@ static const char *startup_source = "(let-values(((id:trans145_0" " trans-rhs146_0)" "(let-values()" -"(let-values(((s_508)" +"(let-values(((s_510)" "(if(syntax?$1" -" s_228)" +" s_233)" "(syntax-e$1" -" s_228)" -" s_228)))" +" s_233)" +" s_233)))" "(if(pair?" -" s_508)" +" s_510)" "(let-values(((id:trans119_0)" -"(let-values(((s_333)" +"(let-values(((s_340)" "(car" -" s_508)))" -"(let-values(((s_334)" +" s_510)))" +"(let-values(((s_341)" "(if(syntax?$1" -" s_333)" +" s_340)" "(syntax-e$1" -" s_333)" -" s_333)))" +" s_340)" +" s_340)))" "(let-values(((flat-s_32)" "(to-syntax-list.1" -" s_334)))" +" s_341)))" "(if(not" " flat-s_32)" "(let-values()" @@ -63261,7 +63550,7 @@ static const char *startup_source = " orig-s_45))" "(let-values()" "(let-values(((id:trans_5)" -"(let-values(((lst_339)" +"(let-values(((lst_340)" " flat-s_32))" "(begin" "(if(variable-reference-from-unsafe?" @@ -63269,18 +63558,18 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_339)))" -"((letrec-values(((for-loop_133)" +" lst_340)))" +"((letrec-values(((for-loop_263)" "(lambda(id:trans_6" " lst_214)" "(begin" " 'for-loop" "(if(pair?" " lst_214)" -"(let-values(((s_509)" +"(let-values(((s_511)" "(unsafe-car" " lst_214))" -"((rest_194)" +"((rest_198)" "(unsafe-cdr" " lst_214)))" "(let-values(((id:trans_7)" @@ -63290,23 +63579,23 @@ static const char *startup_source = "(let-values()" "(let-values(((id:trans147_0)" "(let-values()" -"(if(let-values(((or-part_382)" +"(if(let-values(((or-part_381)" "(if(syntax?$1" -" s_509)" +" s_511)" "(symbol?" "(syntax-e$1" -" s_509))" +" s_511))" " #f)))" -"(if or-part_382" -" or-part_382" +"(if or-part_381" +" or-part_381" "(symbol?" -" s_509)))" -" s_509" +" s_511)))" +" s_511" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_45" -" s_509)))))" +" s_511)))))" "(cons" " id:trans147_0" " id:trans_8)))))" @@ -63314,45 +63603,45 @@ static const char *startup_source = " id:trans_9)))))" "(if(not" " #f)" -"(for-loop_133" +"(for-loop_263" " id:trans_7" -" rest_194)" +" rest_198)" " id:trans_7)))" " id:trans_6)))))" -" for-loop_133)" +" for-loop_263)" " null" -" lst_339)))))" +" lst_340)))))" "(reverse$1" " id:trans_5))))))))" "((trans-rhs120_0)" -"(let-values(((s_510)" +"(let-values(((s_512)" "(cdr" -" s_508)))" -"(let-values(((s_511)" -"(if(syntax?$1" -" s_510)" -"(syntax-e$1" -" s_510)" " s_510)))" -"(if(pair?" -" s_511)" -"(let-values(((trans-rhs121_0)" -"(let-values(((s_234)" -"(car" -" s_511)))" -" s_234))" -"(()" -"(let-values(((s_235)" -"(cdr" -" s_511)))" -"(let-values(((s_236)" +"(let-values(((s_513)" "(if(syntax?$1" -" s_235)" +" s_512)" "(syntax-e$1" -" s_235)" -" s_235)))" +" s_512)" +" s_512)))" +"(if(pair?" +" s_513)" +"(let-values(((trans-rhs121_0)" +"(let-values(((s_239)" +"(car" +" s_513)))" +" s_239))" +"(()" +"(let-values(((s_240)" +"(cdr" +" s_513)))" +"(let-values(((s_241)" +"(if(syntax?$1" +" s_240)" +"(syntax-e$1" +" s_240)" +" s_240)))" "(if(null?" -" s_236)" +" s_241)" "(values)" "(raise-syntax-error$1" " #f" @@ -63383,20 +63672,20 @@ static const char *startup_source = " trans-rhs_4)))))" "(if(not" " #f)" -"(for-loop_130" +"(for-loop_294" " id:trans_2" " trans-rhs_2" -" rest_193)" +" rest_197)" "(values" " id:trans_2" " trans-rhs_2))))" "(values" " id:trans_1" " trans-rhs_1))))))" -" for-loop_130)" +" for-loop_294)" " null" " null" -" lst_338)))))" +" lst_339)))))" "(values" "(reverse$1" " id:trans_0)" @@ -63405,30 +63694,30 @@ static const char *startup_source = "((id:val116_0" " val-rhs117_0" " body118_0)" -"(let-values(((s_341)" +"(let-values(((s_348)" "(cdr" -" s_505)))" -"(let-values(((s_342)" +" s_120)))" +"(let-values(((s_349)" "(if(syntax?$1" -" s_341)" +" s_348)" "(syntax-e$1" -" s_341)" -" s_341)))" -"(if(pair? s_342)" +" s_348)" +" s_348)))" +"(if(pair? s_349)" "(let-values(((id:val122_0" " val-rhs123_0)" -"(let-values(((s_512)" +"(let-values(((s_514)" "(car" -" s_342)))" -"(let-values(((s_343)" +" s_349)))" +"(let-values(((s_350)" "(if(syntax?$1" -" s_512)" +" s_514)" "(syntax-e$1" -" s_512)" -" s_512)))" +" s_514)" +" s_514)))" "(let-values(((flat-s_33)" "(to-syntax-list.1" -" s_343)))" +" s_350)))" "(if(not" " flat-s_33)" "(let-values()" @@ -63439,7 +63728,7 @@ static const char *startup_source = "(let-values()" "(let-values(((id:val_0" " val-rhs_1)" -"(let-values(((lst_142)" +"(let-values(((lst_143)" " flat-s_33))" "(begin" "(if(variable-reference-from-unsafe?" @@ -63447,21 +63736,21 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_142)))" -"((letrec-values(((for-loop_294)" +" lst_143)))" +"((letrec-values(((for-loop_295)" "(lambda(id:val_1" " val-rhs_2" -" lst_340)" +" lst_341)" "(begin" " 'for-loop" "(if(pair?" -" lst_340)" -"(let-values(((s_348)" +" lst_341)" +"(let-values(((s_355)" "(unsafe-car" -" lst_340))" -"((rest_195)" +" lst_341))" +"((rest_199)" "(unsafe-cdr" -" lst_340)))" +" lst_341)))" "(let-values(((id:val_2" " val-rhs_3)" "(let-values(((id:val_3)" @@ -63474,27 +63763,27 @@ static const char *startup_source = "(let-values(((id:val148_0" " val-rhs149_0)" "(let-values()" -"(let-values(((s_513)" +"(let-values(((s_515)" "(if(syntax?$1" -" s_348)" +" s_355)" "(syntax-e$1" -" s_348)" -" s_348)))" +" s_355)" +" s_355)))" "(if(pair?" -" s_513)" +" s_515)" "(let-values(((id:val125_0)" -"(let-values(((s_353)" +"(let-values(((s_360)" "(car" -" s_513)))" -"(let-values(((s_354)" +" s_515)))" +"(let-values(((s_361)" "(if(syntax?$1" -" s_353)" +" s_360)" "(syntax-e$1" -" s_353)" -" s_353)))" +" s_360)" +" s_360)))" "(let-values(((flat-s_34)" "(to-syntax-list.1" -" s_354)))" +" s_361)))" "(if(not" " flat-s_34)" "(let-values()" @@ -63504,7 +63793,7 @@ static const char *startup_source = " orig-s_45))" "(let-values()" "(let-values(((id:val_5)" -"(let-values(((lst_341)" +"(let-values(((lst_342)" " flat-s_34))" "(begin" "(if(variable-reference-from-unsafe?" @@ -63512,20 +63801,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_341)))" -"((letrec-values(((for-loop_295)" +" lst_342)))" +"((letrec-values(((for-loop_296)" "(lambda(id:val_6" -" lst_342)" +" lst_343)" "(begin" " 'for-loop" "(if(pair?" -" lst_342)" -"(let-values(((s_514)" +" lst_343)" +"(let-values(((s_516)" "(unsafe-car" -" lst_342))" -"((rest_196)" +" lst_343))" +"((rest_200)" "(unsafe-cdr" -" lst_342)))" +" lst_343)))" "(let-values(((id:val_7)" "(let-values(((id:val_8)" " id:val_6))" @@ -63533,23 +63822,23 @@ static const char *startup_source = "(let-values()" "(let-values(((id:val150_0)" "(let-values()" -"(if(let-values(((or-part_383)" +"(if(let-values(((or-part_382)" "(if(syntax?$1" -" s_514)" +" s_516)" "(symbol?" "(syntax-e$1" -" s_514))" +" s_516))" " #f)))" -"(if or-part_383" -" or-part_383" +"(if or-part_382" +" or-part_382" "(symbol?" -" s_514)))" -" s_514" +" s_516)))" +" s_516" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_45" -" s_514)))))" +" s_516)))))" "(cons" " id:val150_0" " id:val_8)))))" @@ -63557,45 +63846,45 @@ static const char *startup_source = " id:val_9)))))" "(if(not" " #f)" -"(for-loop_295" +"(for-loop_296" " id:val_7" -" rest_196)" +" rest_200)" " id:val_7)))" " id:val_6)))))" -" for-loop_295)" +" for-loop_296)" " null" -" lst_341)))))" +" lst_342)))))" "(reverse$1" " id:val_5))))))))" "((val-rhs126_0)" -"(let-values(((s_515)" -"(cdr" -" s_513)))" -"(let-values(((s_242)" -"(if(syntax?$1" -" s_515)" -"(syntax-e$1" -" s_515)" -" s_515)))" -"(if(pair?" -" s_242)" -"(let-values(((val-rhs127_0)" -"(let-values(((s_516)" -"(car" -" s_242)))" -" s_516))" -"(()" "(let-values(((s_517)" "(cdr" -" s_242)))" -"(let-values(((s_518)" +" s_515)))" +"(let-values(((s_247)" "(if(syntax?$1" " s_517)" "(syntax-e$1" " s_517)" " s_517)))" +"(if(pair?" +" s_247)" +"(let-values(((val-rhs127_0)" +"(let-values(((s_518)" +"(car" +" s_247)))" +" s_518))" +"(()" +"(let-values(((s_519)" +"(cdr" +" s_247)))" +"(let-values(((s_520)" +"(if(syntax?$1" +" s_519)" +"(syntax-e$1" +" s_519)" +" s_519)))" "(if(null?" -" s_518)" +" s_520)" "(values)" "(raise-syntax-error$1" " #f" @@ -63626,38 +63915,38 @@ static const char *startup_source = " val-rhs_5)))))" "(if(not" " #f)" -"(for-loop_294" +"(for-loop_295" " id:val_2" " val-rhs_3" -" rest_195)" +" rest_199)" "(values" " id:val_2" " val-rhs_3))))" "(values" " id:val_1" " val-rhs_2))))))" -" for-loop_294)" +" for-loop_295)" " null" " null" -" lst_142)))))" +" lst_143)))))" "(values" "(reverse$1" " id:val_0)" "(reverse$1" " val-rhs_1)))))))))" "((body124_0)" -"(let-values(((s_243)" +"(let-values(((s_248)" "(cdr" -" s_342)))" -"(let-values(((s_244)" +" s_349)))" +"(let-values(((s_249)" "(if(syntax?$1" -" s_243)" +" s_248)" "(syntax-e$1" -" s_243)" -" s_243)))" +" s_248)" +" s_248)))" "(let-values(((flat-s_35)" "(to-syntax-list.1" -" s_244)))" +" s_249)))" "(if(not" " flat-s_35)" "(let-values()" @@ -63710,39 +63999,39 @@ static const char *startup_source = " body107_1)))" "(values #f #f #f #f #f #f #f)))))" "(let-values(((ok?_38 let-values128_0 id:val129_0 val-rhs130_0 body131_0)" -"(let-values(((s_519) disarmed-s_8))" +"(let-values(((s_521) disarmed-s_8))" "(if(if(not syntaxes?_0) #t #f)" -"(let-values(((orig-s_46) s_519))" +"(let-values(((orig-s_46) s_521))" "(let-values(((let-values128_1 id:val129_1 val-rhs130_1 body131_1)" -"(let-values(((s_248)" -"(if(syntax?$1 s_519)" -"(syntax-e$1 s_519)" -" s_519)))" -"(if(pair? s_248)" +"(let-values(((s_253)" +"(if(syntax?$1 s_521)" +"(syntax-e$1 s_521)" +" s_521)))" +"(if(pair? s_253)" "(let-values(((let-values132_0)" -"(let-values(((s_251)(car s_248)))" -" s_251))" +"(let-values(((s_256)(car s_253)))" +" s_256))" "((id:val133_0 val-rhs134_0 body135_0)" -"(let-values(((s_520)(cdr s_248)))" -"(let-values(((s_444)" -"(if(syntax?$1 s_520)" -"(syntax-e$1 s_520)" -" s_520)))" -"(if(pair? s_444)" +"(let-values(((s_522)(cdr s_253)))" +"(let-values(((s_453)" +"(if(syntax?$1 s_522)" +"(syntax-e$1 s_522)" +" s_522)))" +"(if(pair? s_453)" "(let-values(((id:val136_0" " val-rhs137_0)" -"(let-values(((s_359)" +"(let-values(((s_366)" "(car" -" s_444)))" -"(let-values(((s_252)" +" s_453)))" +"(let-values(((s_257)" "(if(syntax?$1" -" s_359)" +" s_366)" "(syntax-e$1" -" s_359)" -" s_359)))" +" s_366)" +" s_366)))" "(let-values(((flat-s_36)" "(to-syntax-list.1" -" s_252)))" +" s_257)))" "(if(not" " flat-s_36)" "(let-values()" @@ -63753,7 +64042,7 @@ static const char *startup_source = "(let-values()" "(let-values(((id:val_10" " val-rhs_6)" -"(let-values(((lst_343)" +"(let-values(((lst_344)" " flat-s_36))" "(begin" "(if(variable-reference-from-unsafe?" @@ -63761,21 +64050,21 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_343)))" -"((letrec-values(((for-loop_296)" +" lst_344)))" +"((letrec-values(((for-loop_297)" "(lambda(id:val_11" " val-rhs_7" -" lst_344)" +" lst_345)" "(begin" " 'for-loop" "(if(pair?" -" lst_344)" -"(let-values(((s_368)" +" lst_345)" +"(let-values(((s_375)" "(unsafe-car" -" lst_344))" -"((rest_197)" +" lst_345))" +"((rest_201)" "(unsafe-cdr" -" lst_344)))" +" lst_345)))" "(let-values(((id:val_12" " val-rhs_8)" "(let-values(((id:val_13)" @@ -63788,27 +64077,27 @@ static const char *startup_source = "(let-values(((id:val151_0" " val-rhs152_0)" "(let-values()" -"(let-values(((s_521)" +"(let-values(((s_523)" "(if(syntax?$1" -" s_368)" +" s_375)" "(syntax-e$1" -" s_368)" -" s_368)))" +" s_375)" +" s_375)))" "(if(pair?" -" s_521)" +" s_523)" "(let-values(((id:val139_0)" -"(let-values(((s_372)" +"(let-values(((s_379)" "(car" -" s_521)))" -"(let-values(((s_373)" +" s_523)))" +"(let-values(((s_380)" "(if(syntax?$1" -" s_372)" +" s_379)" "(syntax-e$1" -" s_372)" -" s_372)))" +" s_379)" +" s_379)))" "(let-values(((flat-s_37)" "(to-syntax-list.1" -" s_373)))" +" s_380)))" "(if(not" " flat-s_37)" "(let-values()" @@ -63818,7 +64107,7 @@ static const char *startup_source = " orig-s_46))" "(let-values()" "(let-values(((id:val_15)" -"(let-values(((lst_345)" +"(let-values(((lst_346)" " flat-s_37))" "(begin" "(if(variable-reference-from-unsafe?" @@ -63826,20 +64115,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_345)))" -"((letrec-values(((for-loop_297)" +" lst_346)))" +"((letrec-values(((for-loop_298)" "(lambda(id:val_16" -" lst_346)" +" lst_347)" "(begin" " 'for-loop" "(if(pair?" -" lst_346)" -"(let-values(((s_377)" +" lst_347)" +"(let-values(((s_384)" "(unsafe-car" -" lst_346))" -"((rest_198)" +" lst_347))" +"((rest_202)" "(unsafe-cdr" -" lst_346)))" +" lst_347)))" "(let-values(((id:val_17)" "(let-values(((id:val_18)" " id:val_16))" @@ -63847,23 +64136,23 @@ static const char *startup_source = "(let-values()" "(let-values(((id:val153_0)" "(let-values()" -"(if(let-values(((or-part_353)" +"(if(let-values(((or-part_354)" "(if(syntax?$1" -" s_377)" +" s_384)" "(symbol?" "(syntax-e$1" -" s_377))" +" s_384))" " #f)))" -"(if or-part_353" -" or-part_353" +"(if or-part_354" +" or-part_354" "(symbol?" -" s_377)))" -" s_377" +" s_384)))" +" s_384" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_46" -" s_377)))))" +" s_384)))))" "(cons" " id:val153_0" " id:val_18)))))" @@ -63871,45 +64160,45 @@ static const char *startup_source = " id:val_19)))))" "(if(not" " #f)" -"(for-loop_297" +"(for-loop_298" " id:val_17" -" rest_198)" +" rest_202)" " id:val_17)))" " id:val_16)))))" -" for-loop_297)" +" for-loop_298)" " null" -" lst_345)))))" +" lst_346)))))" "(reverse$1" " id:val_15))))))))" "((val-rhs140_0)" -"(let-values(((s_121)" +"(let-values(((s_387)" "(cdr" -" s_521)))" -"(let-values(((s_255)" +" s_523)))" +"(let-values(((s_260)" "(if(syntax?$1" -" s_121)" +" s_387)" "(syntax-e$1" -" s_121)" -" s_121)))" +" s_387)" +" s_387)))" "(if(pair?" -" s_255)" +" s_260)" "(let-values(((val-rhs141_0)" -"(let-values(((s_257)" +"(let-values(((s_262)" "(car" -" s_255)))" -" s_257))" +" s_260)))" +" s_262))" "(()" -"(let-values(((s_522)" +"(let-values(((s_524)" "(cdr" -" s_255)))" -"(let-values(((s_523)" +" s_260)))" +"(let-values(((s_525)" "(if(syntax?$1" -" s_522)" +" s_524)" "(syntax-e$1" -" s_522)" -" s_522)))" +" s_524)" +" s_524)))" "(if(null?" -" s_523)" +" s_525)" "(values)" "(raise-syntax-error$1" " #f" @@ -63940,38 +64229,38 @@ static const char *startup_source = " val-rhs_10)))))" "(if(not" " #f)" -"(for-loop_296" +"(for-loop_297" " id:val_12" " val-rhs_8" -" rest_197)" +" rest_201)" "(values" " id:val_12" " val-rhs_8))))" "(values" " id:val_11" " val-rhs_7))))))" -" for-loop_296)" +" for-loop_297)" " null" " null" -" lst_343)))))" +" lst_344)))))" "(values" "(reverse$1" " id:val_10)" "(reverse$1" " val-rhs_6)))))))))" "((body138_0)" -"(let-values(((s_524)" +"(let-values(((s_526)" "(cdr" -" s_444)))" -"(let-values(((s_258)" +" s_453)))" +"(let-values(((s_263)" "(if(syntax?$1" -" s_524)" +" s_526)" "(syntax-e$1" -" s_524)" -" s_524)))" +" s_526)" +" s_526)))" "(let-values(((flat-s_38)" "(to-syntax-list.1" -" s_258)))" +" s_263)))" "(if(not" " flat-s_38)" "(let-values()" @@ -64004,55 +64293,25 @@ static const char *startup_source = " (raise-syntax-error$1 #f \"bad syntax\" orig-s_46)))))" "(values #t let-values128_1 id:val129_1 val-rhs130_1 body131_1)))" "(values #f #f #f #f #f)))))" -"(let-values(((sc_33)(new-scope 'local)))" -"(let-values(((phase_144)(expand-context-phase ctx_82)))" +"(let-values(((sc_37)(new-scope 'local)))" +"(let-values(((phase_145)(expand-context-phase ctx_82)))" "(let-values(((frame-id_15)(if syntaxes?_0(make-reference-record) #f)))" "(let-values(((trans-idss_2)" "(reverse$1" -"(let-values(((lst_347)(if syntaxes?_0 id:trans103_0 null)))" +"(let-values(((lst_348)(if syntaxes?_0 id:trans103_0 null)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_347)))" -"((letrec-values(((for-loop_298)" -"(lambda(fold-var_306 lst_348)" -"(begin" -" 'for-loop" -"(if(pair? lst_348)" -"(let-values(((ids_35)" -"(unsafe-car lst_348))" -"((rest_199)" -"(unsafe-cdr lst_348)))" -"(let-values(((fold-var_307)" -"(let-values(((fold-var_308)" -" fold-var_306))" -"(let-values(((fold-var_309)" -"(let-values()" -"(cons" -"(let-values()" -"(reverse$1" -"(let-values(((lst_349)" -" ids_35))" -"(begin" -"(if(variable-reference-from-unsafe?" -"(#%variable-reference))" -"(void)" -"(let-values()" -"(check-list" -" lst_349)))" +"(let-values()(check-list lst_348)))" "((letrec-values(((for-loop_299)" -"(lambda(fold-var_310" -" lst_350)" +"(lambda(fold-var_310 lst_349)" "(begin" " 'for-loop" -"(if(pair?" -" lst_350)" -"(let-values(((id_118)" -"(unsafe-car" -" lst_350))" -"((rest_200)" -"(unsafe-cdr" -" lst_350)))" +"(if(pair? lst_349)" +"(let-values(((ids_35)" +"(unsafe-car lst_349))" +"((rest_203)" +"(unsafe-cdr lst_349)))" "(let-values(((fold-var_311)" "(let-values(((fold-var_312)" " fold-var_310))" @@ -64060,57 +64319,87 @@ static const char *startup_source = "(let-values()" "(cons" "(let-values()" +"(reverse$1" +"(let-values(((lst_350)" +" ids_35))" +"(begin" +"(if(variable-reference-from-unsafe?" +"(#%variable-reference))" +"(void)" +"(let-values()" +"(check-list" +" lst_350)))" +"((letrec-values(((for-loop_300)" +"(lambda(fold-var_314" +" lst_351)" +"(begin" +" 'for-loop" +"(if(pair?" +" lst_351)" +"(let-values(((id_118)" +"(unsafe-car" +" lst_351))" +"((rest_204)" +"(unsafe-cdr" +" lst_351)))" +"(let-values(((fold-var_315)" +"(let-values(((fold-var_316)" +" fold-var_314))" +"(let-values(((fold-var_317)" +"(let-values()" +"(cons" +"(let-values()" "(add-scope" " id_118" -" sc_33))" +" sc_37))" +" fold-var_316))))" +"(values" +" fold-var_317)))))" +"(if(not" +" #f)" +"(for-loop_300" +" fold-var_315" +" rest_204)" +" fold-var_315)))" +" fold-var_314)))))" +" for-loop_300)" +" null" +" lst_350)))))" " fold-var_312))))" "(values" " fold-var_313)))))" -"(if(not" -" #f)" -"(for-loop_299" -" fold-var_311" -" rest_200)" +"(if(not #f)" +"(for-loop_299 fold-var_311 rest_203)" " fold-var_311)))" " fold-var_310)))))" " for-loop_299)" " null" -" lst_349)))))" -" fold-var_308))))" -"(values" -" fold-var_309)))))" -"(if(not #f)" -"(for-loop_298 fold-var_307 rest_199)" -" fold-var_307)))" -" fold-var_306)))))" -" for-loop_298)" -" null" -" lst_347))))))" +" lst_348))))))" "(let-values(((val-idss_3)" "(reverse$1" -"(let-values(((lst_351)(if syntaxes?_0 id:val105_0 id:val129_0)))" +"(let-values(((lst_352)(if syntaxes?_0 id:val105_0 id:val129_0)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_351)))" -"((letrec-values(((for-loop_300)" -"(lambda(fold-var_314 lst_352)" +"(let-values()(check-list lst_352)))" +"((letrec-values(((for-loop_301)" +"(lambda(fold-var_318 lst_353)" "(begin" " 'for-loop" -"(if(pair? lst_352)" +"(if(pair? lst_353)" "(let-values(((ids_36)" -"(unsafe-car lst_352))" -"((rest_201)" -"(unsafe-cdr lst_352)))" -"(let-values(((fold-var_315)" -"(let-values(((fold-var_316)" -" fold-var_314))" -"(let-values(((fold-var_99)" +"(unsafe-car lst_353))" +"((rest_205)" +"(unsafe-cdr lst_353)))" +"(let-values(((fold-var_319)" +"(let-values(((fold-var_320)" +" fold-var_318))" +"(let-values(((fold-var_104)" "(let-values()" "(cons" "(let-values()" "(reverse$1" -"(let-values(((lst_353)" +"(let-values(((lst_354)" " ids_36))" "(begin" "(if(variable-reference-from-unsafe?" @@ -64118,101 +64407,101 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_353)))" -"((letrec-values(((for-loop_153)" -"(lambda(fold-var_100" -" lst_354)" +" lst_354)))" +"((letrec-values(((for-loop_156)" +"(lambda(fold-var_105" +" lst_355)" "(begin" " 'for-loop" "(if(pair?" -" lst_354)" +" lst_355)" "(let-values(((id_119)" "(unsafe-car" -" lst_354))" -"((rest_202)" +" lst_355))" +"((rest_206)" "(unsafe-cdr" -" lst_354)))" -"(let-values(((fold-var_104)" -"(let-values(((fold-var_317)" -" fold-var_100))" -"(let-values(((fold-var_318)" -"(let-values()" -"(cons" -"(let-values()" -"(add-scope" -" id_119" -" sc_33))" -" fold-var_317))))" -"(values" -" fold-var_318)))))" -"(if(not" -" #f)" -"(for-loop_153" -" fold-var_104" -" rest_202)" -" fold-var_104)))" -" fold-var_100)))))" -" for-loop_153)" -" null" -" lst_353)))))" -" fold-var_316))))" -"(values" -" fold-var_99)))))" -"(if(not #f)" -"(for-loop_300" -" fold-var_315" -" rest_201)" -" fold-var_315)))" -" fold-var_314)))))" -" for-loop_300)" -" null" -" lst_351))))))" -"(let-values(((val-rhss_3)" -"(if rec?_1" -"(reverse$1" -"(let-values(((lst_355)" -"(if syntaxes?_0 val-rhs106_0 val-rhs130_0)))" -"(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))" -"(void)" -"(let-values()(check-list lst_355)))" -"((letrec-values(((for-loop_273)" -"(lambda(fold-var_319 lst_356)" -"(begin" -" 'for-loop" -"(if(pair? lst_356)" -"(let-values(((rhs_20)" -"(unsafe-car lst_356))" -"((rest_203)" -"(unsafe-cdr lst_356)))" -"(let-values(((fold-var_320)" +" lst_355)))" +"(let-values(((fold-var_109)" "(let-values(((fold-var_321)" -" fold-var_319))" +" fold-var_105))" "(let-values(((fold-var_322)" "(let-values()" "(cons" "(let-values()" "(add-scope" -" rhs_20" -" sc_33))" +" id_119" +" sc_37))" " fold-var_321))))" "(values" " fold-var_322)))))" +"(if(not" +" #f)" +"(for-loop_156" +" fold-var_109" +" rest_206)" +" fold-var_109)))" +" fold-var_105)))))" +" for-loop_156)" +" null" +" lst_354)))))" +" fold-var_320))))" +"(values" +" fold-var_104)))))" +"(if(not #f)" +"(for-loop_301" +" fold-var_319" +" rest_205)" +" fold-var_319)))" +" fold-var_318)))))" +" for-loop_301)" +" null" +" lst_352))))))" +"(let-values(((val-rhss_3)" +"(if rec?_1" +"(reverse$1" +"(let-values(((lst_356)" +"(if syntaxes?_0 val-rhs106_0 val-rhs130_0)))" +"(begin" +"(if(variable-reference-from-unsafe?(#%variable-reference))" +"(void)" +"(let-values()(check-list lst_356)))" +"((letrec-values(((for-loop_273)" +"(lambda(fold-var_323 lst_357)" +"(begin" +" 'for-loop" +"(if(pair? lst_357)" +"(let-values(((rhs_20)" +"(unsafe-car lst_357))" +"((rest_207)" +"(unsafe-cdr lst_357)))" +"(let-values(((fold-var_324)" +"(let-values(((fold-var_325)" +" fold-var_323))" +"(let-values(((fold-var_326)" +"(let-values()" +"(cons" +"(let-values()" +"(add-scope" +" rhs_20" +" sc_37))" +" fold-var_325))))" +"(values" +" fold-var_326)))))" "(if(not #f)" "(for-loop_273" -" fold-var_320" -" rest_203)" -" fold-var_320)))" -" fold-var_319)))))" +" fold-var_324" +" rest_207)" +" fold-var_324)))" +" fold-var_323)))))" " for-loop_273)" " null" -" lst_355))))" +" lst_356))))" "(if syntaxes?_0 val-rhs106_0 val-rhs130_0))))" "(let-values((()" "(begin" "(let-values(((temp142_1)(list trans-idss_2 val-idss_3))" -"((phase143_0) phase_144)" -"((s144_0) s_323))" +"((phase143_0) phase_145)" +"((s144_0) s_96))" "(check-no-duplicate-ids8.1" " #f" " #f" @@ -64225,53 +64514,23 @@ static const char *startup_source = "(let-values(((counter_8)(root-expand-context-counter ctx_82)))" "(let-values(((trans-keyss_0)" "(reverse$1" -"(let-values(((lst_357) trans-idss_2))" +"(let-values(((lst_358) trans-idss_2))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_357)))" -"((letrec-values(((for-loop_301)" -"(lambda(fold-var_323 lst_358)" +"(let-values()(check-list lst_358)))" +"((letrec-values(((for-loop_302)" +"(lambda(fold-var_327 lst_359)" "(begin" " 'for-loop" -"(if(pair? lst_358)" +"(if(pair? lst_359)" "(let-values(((ids_37)" "(unsafe-car" -" lst_358))" -"((rest_204)" +" lst_359))" +"((rest_208)" "(unsafe-cdr" -" lst_358)))" -"(let-values(((fold-var_324)" -"(let-values(((fold-var_325)" -" fold-var_323))" -"(let-values(((fold-var_326)" -"(let-values()" -"(cons" -"(let-values()" -"(reverse$1" -"(let-values(((lst_359)" -" ids_37))" -"(begin" -"(if(variable-reference-from-unsafe?" -"(#%variable-reference))" -"(void)" -"(let-values()" -"(check-list" " lst_359)))" -"((letrec-values(((for-loop_302)" -"(lambda(fold-var_327" -" lst_360)" -"(begin" -" 'for-loop" -"(if(pair?" -" lst_360)" -"(let-values(((id_120)" -"(unsafe-car" -" lst_360))" -"((rest_205)" -"(unsafe-cdr" -" lst_360)))" "(let-values(((fold-var_328)" "(let-values(((fold-var_329)" " fold-var_327))" @@ -64279,16 +64538,46 @@ static const char *startup_source = "(let-values()" "(cons" "(let-values()" +"(reverse$1" +"(let-values(((lst_360)" +" ids_37))" +"(begin" +"(if(variable-reference-from-unsafe?" +"(#%variable-reference))" +"(void)" +"(let-values()" +"(check-list" +" lst_360)))" +"((letrec-values(((for-loop_303)" +"(lambda(fold-var_331" +" lst_361)" +"(begin" +" 'for-loop" +"(if(pair?" +" lst_361)" +"(let-values(((id_120)" +"(unsafe-car" +" lst_361))" +"((rest_209)" +"(unsafe-cdr" +" lst_361)))" +"(let-values(((fold-var_332)" +"(let-values(((fold-var_333)" +" fold-var_331))" +"(let-values(((fold-var_334)" +"(let-values()" +"(cons" +"(let-values()" "(let-values(((id154_1)" " id_120)" "((phase155_0)" -" phase_144)" +" phase_145)" "((counter156_0)" " counter_8)" "((frame-id157_0)" " frame-id_15)" "((s158_1)" -" s_323))" +" s_96))" "(add-local-binding!37.1" " frame-id157_0" " #t" @@ -64297,80 +64586,50 @@ static const char *startup_source = " id154_1" " phase155_0" " counter156_0)))" +" fold-var_333))))" +"(values" +" fold-var_334)))))" +"(if(not" +" #f)" +"(for-loop_303" +" fold-var_332" +" rest_209)" +" fold-var_332)))" +" fold-var_331)))))" +" for-loop_303)" +" null" +" lst_360)))))" " fold-var_329))))" "(values" " fold-var_330)))))" -"(if(not" -" #f)" +"(if(not #f)" "(for-loop_302" " fold-var_328" -" rest_205)" +" rest_208)" " fold-var_328)))" " fold-var_327)))))" " for-loop_302)" " null" -" lst_359)))))" -" fold-var_325))))" -"(values" -" fold-var_326)))))" -"(if(not #f)" -"(for-loop_301" -" fold-var_324" -" rest_204)" -" fold-var_324)))" -" fold-var_323)))))" -" for-loop_301)" -" null" -" lst_357))))))" +" lst_358))))))" "(let-values(((val-keyss_2)" "(reverse$1" -"(let-values(((lst_361) val-idss_3))" +"(let-values(((lst_362) val-idss_3))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_361)))" -"((letrec-values(((for-loop_303)" -"(lambda(fold-var_331 lst_245)" +"(let-values()(check-list lst_362)))" +"((letrec-values(((for-loop_304)" +"(lambda(fold-var_335 lst_245)" "(begin" " 'for-loop" "(if(pair? lst_245)" "(let-values(((ids_38)" "(unsafe-car" " lst_245))" -"((rest_206)" +"((rest_210)" "(unsafe-cdr" " lst_245)))" -"(let-values(((fold-var_332)" -"(let-values(((fold-var_333)" -" fold-var_331))" -"(let-values(((fold-var_334)" -"(let-values()" -"(cons" -"(let-values()" -"(reverse$1" -"(let-values(((lst_362)" -" ids_38))" -"(begin" -"(if(variable-reference-from-unsafe?" -"(#%variable-reference))" -"(void)" -"(let-values()" -"(check-list" -" lst_362)))" -"((letrec-values(((for-loop_304)" -"(lambda(fold-var_335" -" lst_363)" -"(begin" -" 'for-loop" -"(if(pair?" -" lst_363)" -"(let-values(((id_121)" -"(unsafe-car" -" lst_363))" -"((rest_207)" -"(unsafe-cdr" -" lst_363)))" "(let-values(((fold-var_336)" "(let-values(((fold-var_337)" " fold-var_335))" @@ -64378,16 +64637,46 @@ static const char *startup_source = "(let-values()" "(cons" "(let-values()" +"(reverse$1" +"(let-values(((lst_363)" +" ids_38))" +"(begin" +"(if(variable-reference-from-unsafe?" +"(#%variable-reference))" +"(void)" +"(let-values()" +"(check-list" +" lst_363)))" +"((letrec-values(((for-loop_65)" +"(lambda(fold-var_339" +" lst_364)" +"(begin" +" 'for-loop" +"(if(pair?" +" lst_364)" +"(let-values(((id_121)" +"(unsafe-car" +" lst_364))" +"((rest_211)" +"(unsafe-cdr" +" lst_364)))" +"(let-values(((fold-var_340)" +"(let-values(((fold-var_341)" +" fold-var_339))" +"(let-values(((fold-var_342)" +"(let-values()" +"(cons" +"(let-values()" "(let-values(((id159_0)" " id_121)" "((phase160_1)" -" phase_144)" +" phase_145)" "((counter161_0)" " counter_8)" "((frame-id162_0)" " frame-id_15)" "((s163_0)" -" s_323))" +" s_96))" "(add-local-binding!37.1" " frame-id162_0" " #t" @@ -64396,73 +64685,73 @@ static const char *startup_source = " id159_0" " phase160_1" " counter161_0)))" +" fold-var_341))))" +"(values" +" fold-var_342)))))" +"(if(not" +" #f)" +"(for-loop_65" +" fold-var_340" +" rest_211)" +" fold-var_340)))" +" fold-var_339)))))" +" for-loop_65)" +" null" +" lst_363)))))" " fold-var_337))))" "(values" " fold-var_338)))))" -"(if(not" -" #f)" +"(if(not #f)" "(for-loop_304" " fold-var_336" -" rest_207)" +" rest_210)" " fold-var_336)))" " fold-var_335)))))" " for-loop_304)" " null" -" lst_362)))))" -" fold-var_333))))" -"(values" -" fold-var_334)))))" -"(if(not #f)" -"(for-loop_303" -" fold-var_332" -" rest_206)" -" fold-var_332)))" -" fold-var_331)))))" -" for-loop_303)" -" null" -" lst_361))))))" +" lst_362))))))" "(let-values(((bodys_10)" "(reverse$1" -"(let-values(((lst_145)" +"(let-values(((lst_146)" "(if syntaxes?_0 body107_0 body131_0)))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_145)))" -"((letrec-values(((for-loop_170)" -"(lambda(fold-var_339 lst_146)" +"(let-values()(check-list lst_146)))" +"((letrec-values(((for-loop_172)" +"(lambda(fold-var_343 lst_147)" "(begin" " 'for-loop" -"(if(pair? lst_146)" +"(if(pair? lst_147)" "(let-values(((body_20)" "(unsafe-car" -" lst_146))" -"((rest_72)" +" lst_147))" +"((rest_74)" "(unsafe-cdr" -" lst_146)))" -"(let-values(((fold-var_301)" -"(let-values(((fold-var_302)" -" fold-var_339))" -"(let-values(((fold-var_340)" +" lst_147)))" +"(let-values(((fold-var_304)" +"(let-values(((fold-var_305)" +" fold-var_343))" +"(let-values(((fold-var_344)" "(let-values()" "(cons" "(let-values()" "(add-scope" " body_20" -" sc_33))" -" fold-var_302))))" +" sc_37))" +" fold-var_305))))" "(values" -" fold-var_340)))))" +" fold-var_344)))))" "(if(not #f)" -"(for-loop_170" -" fold-var_301" -" rest_72)" -" fold-var_301)))" -" fold-var_339)))))" -" for-loop_170)" +"(for-loop_172" +" fold-var_304" +" rest_74)" +" fold-var_304)))" +" fold-var_343)))))" +" for-loop_172)" " null" -" lst_145))))))" +" lst_146))))))" "(let-values((()" "(begin" "(let-values(((obs_91)" @@ -64477,7 +64766,7 @@ static const char *startup_source = " bodys_10" " trans-idss_2" "(if syntaxes?_0 trans-rhs104_0 #f)" -" sc_33))" +" sc_37))" "(void)))" "(values))))" "(let-values((()" @@ -64500,43 +64789,43 @@ static const char *startup_source = "(values))))" "(let-values(((trans-valss_0)" "(reverse$1" -"(let-values(((lst_364)" +"(let-values(((lst_365)" "(if syntaxes?_0 trans-rhs104_0 '()))" -"((lst_365) trans-idss_2))" +"((lst_366) trans-idss_2))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_364)))" -"(if(variable-reference-from-unsafe?" -"(#%variable-reference))" -"(void)" "(let-values()(check-list lst_365)))" +"(if(variable-reference-from-unsafe?" +"(#%variable-reference))" +"(void)" +"(let-values()(check-list lst_366)))" "((letrec-values(((for-loop_305)" -"(lambda(fold-var_341" -" lst_366" -" lst_367)" +"(lambda(fold-var_345" +" lst_367" +" lst_368)" "(begin" " 'for-loop" -"(if(if(pair? lst_366)" -"(pair? lst_367)" +"(if(if(pair? lst_367)" +"(pair? lst_368)" " #f)" "(let-values(((rhs_21)" "(unsafe-car" -" lst_366))" -"((rest_208)" +" lst_367))" +"((rest_212)" "(unsafe-cdr" -" lst_366))" +" lst_367))" "((ids_39)" "(unsafe-car" -" lst_367))" -"((rest_209)" +" lst_368))" +"((rest_213)" "(unsafe-cdr" -" lst_367)))" -"(let-values(((fold-var_342)" -"(let-values(((fold-var_343)" -" fold-var_341))" -"(let-values(((fold-var_344)" +" lst_368)))" +"(let-values(((fold-var_346)" +"(let-values(((fold-var_347)" +" fold-var_345))" +"(let-values(((fold-var_348)" "(let-values()" "(cons" "(let-values()" @@ -64561,7 +64850,7 @@ static const char *startup_source = "(eval-for-syntaxes-binding" "(add-scope" " rhs_21" -" sc_33)" +" sc_37)" " ids_39" " ctx_82)))" "(begin" @@ -64576,59 +64865,59 @@ static const char *startup_source = " 'exit-bind)))" "(void)))" " trans-val_1))))" -" fold-var_343))))" +" fold-var_347))))" "(values" -" fold-var_344)))))" +" fold-var_348)))))" "(if(not #f)" "(for-loop_305" -" fold-var_342" -" rest_208" -" rest_209)" -" fold-var_342)))" -" fold-var_341)))))" +" fold-var_346" +" rest_212" +" rest_213)" +" fold-var_346)))" +" fold-var_345)))))" " for-loop_305)" " null" -" lst_364" -" lst_365))))))" +" lst_365" +" lst_366))))))" "(let-values(((rec-val-env_0)" -"(let-values(((lst_368) val-keyss_2)" -"((lst_369) val-idss_3))" +"(let-values(((lst_369) val-keyss_2)" +"((lst_370) val-idss_3))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_368)))" -"(if(variable-reference-from-unsafe?" -"(#%variable-reference))" -"(void)" "(let-values()(check-list lst_369)))" -"((letrec-values(((for-loop_62)" +"(if(variable-reference-from-unsafe?" +"(#%variable-reference))" +"(void)" +"(let-values()(check-list lst_370)))" +"((letrec-values(((for-loop_306)" "(lambda(env_29" -" lst_370" -" lst_371)" +" lst_371" +" lst_372)" "(begin" " 'for-loop" -"(if(if(pair? lst_370)" -"(pair? lst_371)" +"(if(if(pair? lst_371)" +"(pair? lst_372)" " #f)" "(let-values(((keys_10)" "(unsafe-car" -" lst_370))" -"((rest_210)" +" lst_371))" +"((rest_214)" "(unsafe-cdr" -" lst_370))" +" lst_371))" "((ids_40)" "(unsafe-car" -" lst_371))" -"((rest_211)" +" lst_372))" +"((rest_215)" "(unsafe-cdr" -" lst_371)))" +" lst_372)))" "(let-values(((env_30)" "(let-values(((env_31)" " env_29))" -"(let-values(((lst_372)" +"(let-values(((lst_373)" " keys_10)" -"((lst_373)" +"((lst_374)" " ids_40))" "(begin" "(if(variable-reference-from-unsafe?" @@ -64636,36 +64925,36 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_372)))" +" lst_373)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_373)))" -"((letrec-values(((for-loop_63)" +" lst_374)))" +"((letrec-values(((for-loop_307)" "(lambda(env_32" -" lst_125" -" lst_374)" +" lst_375" +" lst_376)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_125)" +" lst_375)" "(pair?" -" lst_374)" +" lst_376)" " #f)" -"(let-values(((key_93)" +"(let-values(((key_94)" "(unsafe-car" -" lst_125))" -"((rest_212)" +" lst_375))" +"((rest_216)" "(unsafe-cdr" -" lst_125))" +" lst_375))" "((id_122)" "(unsafe-car" -" lst_374))" -"((rest_61)" +" lst_376))" +"((rest_217)" "(unsafe-cdr" -" lst_374)))" +" lst_376)))" "(let-values(((env_33)" "(let-values(((env_34)" " env_32))" @@ -64673,92 +64962,92 @@ static const char *startup_source = "(let-values()" "(env-extend" " env_34" -" key_93" +" key_94" "(local-variable1.1" " id_122)))))" "(values" " env_35)))))" "(if(not" " #f)" -"(for-loop_63" +"(for-loop_307" " env_33" -" rest_212" -" rest_61)" +" rest_216" +" rest_217)" " env_33)))" " env_32)))))" -" for-loop_63)" +" for-loop_307)" " env_31" -" lst_372" -" lst_373))))))" +" lst_373" +" lst_374))))))" "(if(not #f)" -"(for-loop_62" +"(for-loop_306" " env_30" -" rest_210" -" rest_211)" +" rest_214" +" rest_215)" " env_30)))" " env_29)))))" -" for-loop_62)" +" for-loop_306)" "(expand-context-env ctx_82)" -" lst_368" -" lst_369)))))" +" lst_369" +" lst_370)))))" "(let-values(((rec-env_0)" -"(let-values(((lst_375) trans-keyss_0)" -"((lst_376) trans-valss_0)" -"((lst_377) trans-idss_2))" +"(let-values(((lst_127) trans-keyss_0)" +"((lst_377) trans-valss_0)" +"((lst_378) trans-idss_2))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_375)))" -"(if(variable-reference-from-unsafe?" -"(#%variable-reference))" -"(void)" -"(let-values()(check-list lst_376)))" +"(let-values()(check-list lst_127)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()(check-list lst_377)))" -"((letrec-values(((for-loop_306)" +"(if(variable-reference-from-unsafe?" +"(#%variable-reference))" +"(void)" +"(let-values()(check-list lst_378)))" +"((letrec-values(((for-loop_308)" "(lambda(env_36" -" lst_378" " lst_379" -" lst_380)" +" lst_380" +" lst_381)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_378)" -"(if(pair?" " lst_379)" -"(pair?" +"(if(pair?" " lst_380)" +"(pair?" +" lst_381)" " #f)" " #f)" "(let-values(((keys_11)" "(unsafe-car" -" lst_378))" -"((rest_213)" +" lst_379))" +"((rest_218)" "(unsafe-cdr" -" lst_378))" +" lst_379))" "((vals_9)" "(unsafe-car" -" lst_379))" -"((rest_214)" +" lst_380))" +"((rest_219)" "(unsafe-cdr" -" lst_379))" +" lst_380))" "((ids_41)" "(unsafe-car" -" lst_380))" -"((rest_215)" +" lst_381))" +"((rest_220)" "(unsafe-cdr" -" lst_380)))" +" lst_381)))" "(let-values(((env_37)" "(let-values(((env_38)" " env_36))" "(let-values(((env_39)" "(let-values()" -"(let-values(((lst_381)" +"(let-values(((lst_382)" " keys_11)" -"((lst_382)" +"((lst_128)" " vals_9)" "((lst_383)" " ids_41))" @@ -64768,50 +65057,50 @@ static const char *startup_source = "(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_128)))" +"(if(variable-reference-from-unsafe?" +"(#%variable-reference))" +"(void)" +"(let-values()" +"(check-list" " lst_383)))" -"((letrec-values(((for-loop_307)" +"((letrec-values(((for-loop_309)" "(lambda(env_40" -" lst_257" +" lst_256" " lst_384" " lst_385)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_257)" +" lst_256)" "(if(pair?" " lst_384)" "(pair?" " lst_385)" " #f)" " #f)" -"(let-values(((key_94)" +"(let-values(((key_95)" "(unsafe-car" -" lst_257))" -"((rest_135)" +" lst_256))" +"((rest_136)" "(unsafe-cdr" -" lst_257))" -"((val_81)" +" lst_256))" +"((val_83)" "(unsafe-car" " lst_384))" -"((rest_216)" +"((rest_221)" "(unsafe-cdr" " lst_384))" "((id_123)" "(unsafe-car" " lst_385))" -"((rest_217)" +"((rest_222)" "(unsafe-cdr" " lst_385)))" "(let-values(((env_41)" @@ -64821,58 +65110,58 @@ static const char *startup_source = "(let-values()" "(begin" "(maybe-install-free=id-in-context!" -" val_81" +" val_83" " id_123" -" phase_144" +" phase_145" " ctx_82)" "(env-extend" " env_42" -" key_94" -" val_81)))))" +" key_95" +" val_83)))))" "(values" " env_43)))))" "(if(not" " #f)" -"(for-loop_307" +"(for-loop_309" " env_41" -" rest_135" -" rest_216" -" rest_217)" +" rest_136" +" rest_221" +" rest_222)" " env_41)))" " env_40)))))" -" for-loop_307)" +" for-loop_309)" " env_38" -" lst_381" " lst_382" +" lst_128" " lst_383))))))" "(values" " env_39)))))" "(if(not #f)" -"(for-loop_306" +"(for-loop_308" " env_37" -" rest_213" -" rest_214" -" rest_215)" +" rest_218" +" rest_219" +" rest_220)" " env_37)))" " env_36)))))" -" for-loop_306)" +" for-loop_308)" " rec-val-env_0" -" lst_375" -" lst_376" -" lst_377)))))" +" lst_127" +" lst_377" +" lst_378)))))" "(let-values(((expr-ctx_0)(as-expression-context ctx_82)))" "(let-values(((orig-rrs_0)" "(expand-context-reference-records" " expr-ctx_0)))" "(let-values(((rec-ctx_0)" "(let-values(((v_256) expr-ctx_0))" -"(let-values(((the-struct_95) v_256))" +"(let-values(((the-struct_91) v_256))" "(if(expand-context/outer?" -" the-struct_95)" +" the-struct_91)" "(let-values(((env164_0) rec-env_0)" "((scopes165_0)" "(cons" -" sc_33" +" sc_37" "(expand-context-scopes" " ctx_82)))" "((reference-records166_0)" @@ -64887,50 +65176,50 @@ static const char *startup_source = " trans-idss_2" " val-idss_3)" " ctx_82" -" sc_33))" +" sc_37))" "((inner168_0)" "(root-expand-context/outer-inner" " v_256)))" "(expand-context/outer1.1" " inner168_0" "(root-expand-context/outer-post-expansion-scope" -" the-struct_95)" +" the-struct_91)" "(root-expand-context/outer-use-site-scopes" -" the-struct_95)" +" the-struct_91)" "(root-expand-context/outer-frame-id" -" the-struct_95)" +" the-struct_91)" "(expand-context/outer-context" -" the-struct_95)" +" the-struct_91)" " env164_0" "(expand-context/outer-post-expansion-scope-action" -" the-struct_95)" +" the-struct_91)" " scopes165_0" "(expand-context/outer-def-ctx-scopes" -" the-struct_95)" +" the-struct_91)" " binding-layer167_0" " reference-records166_0" "(expand-context/outer-only-immediate?" -" the-struct_95)" +" the-struct_91)" "(expand-context/outer-need-eventually-defined" -" the-struct_95)" +" the-struct_91)" "(expand-context/outer-current-introduction-scopes" -" the-struct_95)" +" the-struct_91)" "(expand-context/outer-name" -" the-struct_95)))" +" the-struct_91)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_95))))))" +" the-struct_91))))))" "(let-values(((letrec-values-id_0)" "(if(not" "(expand-context-to-parsed? ctx_82))" "(if syntaxes?_0" -"(core-id 'letrec-values phase_144)" +"(core-id 'letrec-values phase_145)" " let-values128_0)" " #f)))" "(let-values(((rebuild-s_6)" "(let-values(((ctx169_0) ctx_82)" -"((s170_1) s_323)" +"((s170_1) s_96)" "((temp171_1) #t))" "(keep-as-needed74.1" " #f" @@ -64953,8 +65242,8 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list lst_386)))" -"((letrec-values(((for-loop_308)" -"(lambda(fold-var_117" +"((letrec-values(((for-loop_310)" +"(lambda(fold-var_349" " lst_387)" "(begin" " 'for-loop" @@ -64963,13 +65252,13 @@ static const char *startup_source = "(let-values(((val-ids_1)" "(unsafe-car" " lst_387))" -"((rest_218)" +"((rest_223)" "(unsafe-cdr" " lst_387)))" -"(let-values(((fold-var_345)" -"(let-values(((fold-var_346)" -" fold-var_117))" -"(let-values(((fold-var_347)" +"(let-values(((fold-var_350)" +"(let-values(((fold-var_351)" +" fold-var_349))" +"(let-values(((fold-var_122)" "(let-values()" "(cons" "(let-values()" @@ -64983,8 +65272,8 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_388)))" -"((letrec-values(((for-loop_309)" -"(lambda(fold-var_348" +"((letrec-values(((for-loop_164)" +"(lambda(fold-var_123" " lst_389)" "(begin" " 'for-loop" @@ -64993,13 +65282,13 @@ static const char *startup_source = "(let-values(((val-id_0)" "(unsafe-car" " lst_389))" -"((rest_219)" +"((rest_224)" "(unsafe-cdr" " lst_389)))" -"(let-values(((fold-var_349)" -"(let-values(((fold-var_121)" -" fold-var_348))" -"(let-values(((fold-var_122)" +"(let-values(((fold-var_124)" +"(let-values(((fold-var_352)" +" fold-var_123))" +"(let-values(((fold-var_353)" "(let-values()" "(cons" "(let-values()" @@ -65009,30 +65298,30 @@ static const char *startup_source = " val-id_0)" " val-id_0" " val-id_0))" -" fold-var_121))))" +" fold-var_352))))" +"(values" +" fold-var_353)))))" +"(if(not" +" #f)" +"(for-loop_164" +" fold-var_124" +" rest_224)" +" fold-var_124)))" +" fold-var_123)))))" +" for-loop_164)" +" null" +" lst_388)))))" +" fold-var_351))))" "(values" " fold-var_122)))))" "(if(not" " #f)" -"(for-loop_309" -" fold-var_349" -" rest_219)" -" fold-var_349)))" -" fold-var_348)))))" -" for-loop_309)" -" null" -" lst_388)))))" -" fold-var_346))))" -"(values" -" fold-var_347)))))" -"(if(not" -" #f)" -"(for-loop_308" -" fold-var_345" -" rest_218)" -" fold-var_345)))" -" fold-var_117)))))" -" for-loop_308)" +"(for-loop_310" +" fold-var_350" +" rest_223)" +" fold-var_350)))" +" fold-var_349)))))" +" for-loop_310)" " null" " lst_386))))" " val-idss_3)))" @@ -65079,10 +65368,10 @@ static const char *startup_source = "(let-values(((body-ctx_5)" "(let-values(((v_257)" " rec-ctx_0))" -"(let-values(((the-struct_96)" +"(let-values(((the-struct_92)" " v_257))" "(if(expand-context/outer?" -" the-struct_96)" +" the-struct_92)" "(let-values(((reference-records175_0)" " orig-rrs_0)" "((inner176_0)" @@ -65091,36 +65380,36 @@ static const char *startup_source = "(expand-context/outer1.1" " inner176_0" "(root-expand-context/outer-post-expansion-scope" -" the-struct_96)" +" the-struct_92)" "(root-expand-context/outer-use-site-scopes" -" the-struct_96)" +" the-struct_92)" "(root-expand-context/outer-frame-id" -" the-struct_96)" +" the-struct_92)" "(expand-context/outer-context" -" the-struct_96)" +" the-struct_92)" "(expand-context/outer-env" -" the-struct_96)" +" the-struct_92)" "(expand-context/outer-post-expansion-scope-action" -" the-struct_96)" +" the-struct_92)" "(expand-context/outer-scopes" -" the-struct_96)" +" the-struct_92)" "(expand-context/outer-def-ctx-scopes" -" the-struct_96)" +" the-struct_92)" "(expand-context/outer-binding-layer" -" the-struct_96)" +" the-struct_92)" " reference-records175_0" "(expand-context/outer-only-immediate?" -" the-struct_96)" +" the-struct_92)" "(expand-context/outer-need-eventually-defined" -" the-struct_96)" +" the-struct_92)" "(expand-context/outer-current-introduction-scopes" -" the-struct_96)" +" the-struct_92)" "(expand-context/outer-name" -" the-struct_96)))" +" the-struct_92)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_96))))))" +" the-struct_92))))))" "(let-values(((bodys172_0)" " bodys_10)" "((temp173_0)" @@ -65170,17 +65459,17 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_392)))" -"((letrec-values(((for-loop_310)" -"(lambda(fold-var_350" +"((letrec-values(((for-loop_311)" +"(lambda(fold-var_354" " lst_393" -" lst_60" +" lst_61" " lst_394)" "(begin" " 'for-loop" "(if(if(pair?" " lst_393)" "(if(pair?" -" lst_60)" +" lst_61)" "(pair?" " lst_394)" " #f)" @@ -65188,25 +65477,25 @@ static const char *startup_source = "(let-values(((ids_42)" "(unsafe-car" " lst_393))" -"((rest_220)" +"((rest_225)" "(unsafe-cdr" " lst_393))" "((keys_12)" "(unsafe-car" -" lst_60))" -"((rest_221)" +" lst_61))" +"((rest_226)" "(unsafe-cdr" -" lst_60))" +" lst_61))" "((rhs_22)" "(unsafe-car" " lst_394))" -"((rest_222)" +"((rest_227)" "(unsafe-cdr" " lst_394)))" "(let-values(((fold-var_47)" -"(let-values(((fold-var_351)" -" fold-var_350))" -"(let-values(((fold-var_352)" +"(let-values(((fold-var_355)" +" fold-var_354))" +"(let-values(((fold-var_356)" "(let-values()" "(cons" "(let-values()" @@ -65249,19 +65538,19 @@ static const char *startup_source = "(list" " ids_42" " exp-rhs_3)))))" -" fold-var_351))))" +" fold-var_355))))" "(values" -" fold-var_352)))))" +" fold-var_356)))))" "(if(not" " #f)" -"(for-loop_310" +"(for-loop_311" " fold-var_47" -" rest_220" -" rest_221" -" rest_222)" +" rest_225" +" rest_226" +" rest_227)" " fold-var_47)))" -" fold-var_350)))))" -" for-loop_310)" +" fold-var_354)))))" +" for-loop_311)" " null" " lst_390" " lst_391" @@ -65317,8 +65606,8 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_395)))" -"((letrec-values(((for-loop_311)" -"(lambda(fold-var_353" +"((letrec-values(((for-loop_312)" +"(lambda(fold-var_357" " lst_396)" "(begin" " 'for-loop" @@ -65327,28 +65616,28 @@ static const char *startup_source = "(let-values(((rhs_23)" "(unsafe-car" " lst_396))" -"((rest_223)" +"((rest_228)" "(unsafe-cdr" " lst_396)))" -"(let-values(((fold-var_354)" -"(let-values(((fold-var_355)" -" fold-var_353))" -"(let-values(((fold-var_356)" +"(let-values(((fold-var_358)" +"(let-values(((fold-var_359)" +" fold-var_357))" +"(let-values(((fold-var_360)" "(let-values()" "(cons" "(let-values()" " #f)" -" fold-var_355))))" +" fold-var_359))))" "(values" -" fold-var_356)))))" +" fold-var_360)))))" "(if(not" " #f)" -"(for-loop_311" -" fold-var_354" -" rest_223)" -" fold-var_354)))" -" fold-var_353)))))" -" for-loop_311)" +"(for-loop_312" +" fold-var_358" +" rest_228)" +" fold-var_358)))" +" fold-var_357)))))" +" for-loop_312)" " null" " lst_395)))))" "((temp187_2)" @@ -65384,47 +65673,47 @@ static const char *startup_source = " trans-idss_2)))))))))))))))))))))))))))))))))))))))))" "(define-values" "(log-let-renames)" -"(lambda(obs_98 renames-log-tag_1 val-idss_4 val-rhss_4 bodys_11 trans-idss_3 trans-rhss_0 sc_34)" +"(lambda(obs_98 renames-log-tag_1 val-idss_4 val-rhss_4 bodys_11 trans-idss_3 trans-rhss_0 sc_38)" "(begin" "(let-values(((vals+body_0)" "(cons" "(reverse$1" -"(let-values(((lst_397) val-idss_4)((lst_398) val-rhss_4))" +"(let-values(((lst_397) val-idss_4)((lst_138) val-rhss_4))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_397)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_398)))" -"((letrec-values(((for-loop_312)" -"(lambda(fold-var_131 lst_399 lst_400)" +"(let-values()(check-list lst_138)))" +"((letrec-values(((for-loop_167)" +"(lambda(fold-var_133 lst_139 lst_398)" "(begin" " 'for-loop" -"(if(if(pair? lst_399)(pair? lst_400) #f)" -"(let-values(((val-ids_2)(unsafe-car lst_399))" -"((rest_224)(unsafe-cdr lst_399))" -"((val-rhs_11)(unsafe-car lst_400))" -"((rest_225)(unsafe-cdr lst_400)))" -"(let-values(((fold-var_357)" -"(let-values(((fold-var_358) fold-var_131))" -"(let-values(((fold-var_359)" +"(if(if(pair? lst_139)(pair? lst_398) #f)" +"(let-values(((val-ids_2)(unsafe-car lst_139))" +"((rest_229)(unsafe-cdr lst_139))" +"((val-rhs_11)(unsafe-car lst_398))" +"((rest_230)(unsafe-cdr lst_398)))" +"(let-values(((fold-var_137)" +"(let-values(((fold-var_361) fold-var_133))" +"(let-values(((fold-var_362)" "(let-values()" "(cons" "(let-values()" "(datum->syntax$1" " #f" "(list val-ids_2 val-rhs_11)))" -" fold-var_358))))" -"(values fold-var_359)))))" +" fold-var_361))))" +"(values fold-var_362)))))" "(if(not #f)" -"(for-loop_312 fold-var_357 rest_224 rest_225)" -" fold-var_357)))" -" fold-var_131)))))" -" for-loop_312)" +"(for-loop_167 fold-var_137 rest_229 rest_230)" +" fold-var_137)))" +" fold-var_133)))))" +" for-loop_167)" " null" " lst_397" -" lst_398))))" +" lst_138))))" "(datum->syntax$1 #f bodys_11))))" "(call-expand-observe" " obs_98" @@ -65433,26 +65722,26 @@ static const char *startup_source = " vals+body_0" "(cons" "(reverse$1" -"(let-values(((lst_401) trans-idss_3)((lst_402) trans-rhss_0))" +"(let-values(((lst_399) trans-idss_3)((lst_400) trans-rhss_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_401)))" +"(let-values()(check-list lst_399)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_402)))" +"(let-values()(check-list lst_400)))" "((letrec-values(((for-loop_313)" -"(lambda(fold-var_360 lst_68 lst_147)" +"(lambda(fold-var_363 lst_69 lst_148)" "(begin" " 'for-loop" -"(if(if(pair? lst_68)(pair? lst_147) #f)" -"(let-values(((trans-ids_0)(unsafe-car lst_68))" -"((rest_226)(unsafe-cdr lst_68))" -"((trans-rhs_5)(unsafe-car lst_147))" -"((rest_73)(unsafe-cdr lst_147)))" -"(let-values(((fold-var_361)" -"(let-values(((fold-var_362) fold-var_360))" -"(let-values(((fold-var_363)" +"(if(if(pair? lst_69)(pair? lst_148) #f)" +"(let-values(((trans-ids_0)(unsafe-car lst_69))" +"((rest_231)(unsafe-cdr lst_69))" +"((trans-rhs_5)(unsafe-car lst_148))" +"((rest_75)(unsafe-cdr lst_148)))" +"(let-values(((fold-var_364)" +"(let-values(((fold-var_365) fold-var_363))" +"(let-values(((fold-var_366)" "(let-values()" "(cons" "(let-values()" @@ -65460,15 +65749,15 @@ static const char *startup_source = " #f" "(list" " trans-ids_0" -"(add-scope trans-rhs_5 sc_34))))" -" fold-var_362))))" -"(values fold-var_363)))))" -"(if(not #f)(for-loop_313 fold-var_361 rest_226 rest_73) fold-var_361)))" -" fold-var_360)))))" +"(add-scope trans-rhs_5 sc_38))))" +" fold-var_365))))" +"(values fold-var_366)))))" +"(if(not #f)(for-loop_313 fold-var_364 rest_231 rest_75) fold-var_364)))" +" fold-var_363)))))" " for-loop_313)" " null" -" lst_401" -" lst_402))))" +" lst_399" +" lst_400))))" " vals+body_0)))))))" "(define-values" "(log-letrec-values)" @@ -65503,7 +65792,7 @@ static const char *startup_source = "(void" "(add-core-form!*" " '#%stratified-body" -"(lambda(s_525 ctx_83)" +"(lambda(s_527 ctx_83)" "(let-values((()" "(begin" "(let-values(((obs_100)(expand-context-observer ctx_83)))" @@ -65511,22 +65800,22 @@ static const char *startup_source = "(let-values()(let-values()(call-expand-observe obs_100 'prim-#%stratified)))" "(void)))" "(values))))" -"(let-values(((disarmed-s_9)(syntax-disarm$1 s_525)))" +"(let-values(((disarmed-s_9)(syntax-disarm$1 s_527)))" "(let-values(((ok?_39 #%stratified-body202_0 body203_0)" -"(let-values(((s_526) disarmed-s_9))" -"(let-values(((orig-s_47) s_526))" +"(let-values(((s_528) disarmed-s_9))" +"(let-values(((orig-s_47) s_528))" "(let-values(((#%stratified-body202_1 body203_1)" -"(let-values(((s_527)(if(syntax?$1 s_526)(syntax-e$1 s_526) s_526)))" -"(if(pair? s_527)" +"(let-values(((s_529)(if(syntax?$1 s_528)(syntax-e$1 s_528) s_528)))" +"(if(pair? s_529)" "(let-values(((#%stratified-body204_0)" -"(let-values(((s_528)(car s_527))) s_528))" +"(let-values(((s_530)(car s_529))) s_530))" "((body205_0)" -"(let-values(((s_529)(cdr s_527)))" -"(let-values(((s_530)" -"(if(syntax?$1 s_529)" -"(syntax-e$1 s_529)" -" s_529)))" -"(let-values(((flat-s_39)(to-syntax-list.1 s_530)))" +"(let-values(((s_531)(cdr s_529)))" +"(let-values(((s_532)" +"(if(syntax?$1 s_531)" +"(syntax-e$1 s_531)" +" s_531)))" +"(let-values(((flat-s_39)(to-syntax-list.1 s_532)))" "(if(not flat-s_39)" "(let-values()" " (raise-syntax-error$1 #f \"bad syntax\" orig-s_47))" @@ -65538,7 +65827,7 @@ static const char *startup_source = " (raise-syntax-error$1 #f \"bad syntax\" orig-s_47)))))" "(values #t #%stratified-body202_1 body203_1))))))" "(let-values(((rebuild-s_7)" -"(let-values(((ctx206_0) ctx_83)((s207_0) s_525)((temp208_0) #t))" +"(let-values(((ctx206_0) ctx_83)((s207_0) s_527)((temp208_0) #t))" "(keep-as-needed74.1 #f #f temp208_0 #t #f #f ctx206_0 s207_0))))" "(let-values(((exp-body_5)" "(let-values(((temp209_1) body203_0)" @@ -65557,21 +65846,21 @@ static const char *startup_source = "(void" "(add-core-form!*" " '#%datum" -"(lambda(s_531 ctx_84)" +"(lambda(s_533 ctx_84)" "(let-values((()" "(begin" "(let-values(((obs_101)(expand-context-observer ctx_84)))" "(if obs_101(let-values()(let-values()(call-expand-observe obs_101 'prim-#%datum)))(void)))" "(values))))" -"(let-values(((disarmed-s_10)(syntax-disarm$1 s_531)))" +"(let-values(((disarmed-s_10)(syntax-disarm$1 s_533)))" "(let-values(((ok?_40 #%datum215_0 datum216_0)" -"(let-values(((s_532) disarmed-s_10))" -"(let-values(((orig-s_48) s_532))" +"(let-values(((s_534) disarmed-s_10))" +"(let-values(((orig-s_48) s_534))" "(let-values(((#%datum215_1 datum216_1)" -"(let-values(((s_533)(if(syntax?$1 s_532)(syntax-e$1 s_532) s_532)))" -"(if(pair? s_533)" -"(let-values(((#%datum217_0)(let-values(((s_534)(car s_533))) s_534))" -"((datum218_0)(let-values(((s_535)(cdr s_533))) s_535)))" +"(let-values(((s_535)(if(syntax?$1 s_534)(syntax-e$1 s_534) s_534)))" +"(if(pair? s_535)" +"(let-values(((#%datum217_0)(let-values(((s_536)(car s_535))) s_536))" +"((datum218_0)(let-values(((s_537)(cdr s_535))) s_537)))" "(values #%datum217_0 datum218_0))" " (raise-syntax-error$1 #f \"bad syntax\" orig-s_48)))))" "(values #t #%datum215_1 datum216_1))))))" @@ -65583,35 +65872,35 @@ static const char *startup_source = " (raise-syntax-error$1 '#%datum \"keyword misused as an expression\" #f datum_2))" "(void))" "(values))))" -"(let-values(((phase_145)(expand-context-phase ctx_84)))" +"(let-values(((phase_146)(expand-context-phase ctx_84)))" "(if(if(expand-context-to-parsed? ctx_84)(free-id-set-empty?(expand-context-stops ctx_84)) #f)" -"(parsed-quote14.1(keep-properties-only~ s_531)(syntax->datum$1 datum_2))" -"(let-values(((s219_0) s_531)((temp220_0)(list(core-id 'quote phase_145) datum_2)))" +"(parsed-quote14.1(keep-properties-only~ s_533)(syntax->datum$1 datum_2))" +"(let-values(((s219_0) s_533)((temp220_0)(list(core-id 'quote phase_146) datum_2)))" "(rebuild5.1 #f #f s219_0 temp220_0))))))))))))" "(void" "(add-core-form!*" " '#%app" -"(lambda(s_536 ctx_85)" +"(lambda(s_538 ctx_85)" "(let-values((()" "(begin" "(let-values(((obs_102)(expand-context-observer ctx_85)))" "(if obs_102(let-values()(let-values()(call-expand-observe obs_102 'prim-#%app)))(void)))" "(values))))" -"(let-values(((disarmed-s_11)(syntax-disarm$1 s_536)))" +"(let-values(((disarmed-s_11)(syntax-disarm$1 s_538)))" "(let-values(((ok?_41 #%app221_0 e222_0)" -"(let-values(((s_537) disarmed-s_11))" -"(let-values(((orig-s_49) s_537))" +"(let-values(((s_539) disarmed-s_11))" +"(let-values(((orig-s_49) s_539))" "(let-values(((#%app221_1 e222_1)" -"(let-values(((s_538)(if(syntax?$1 s_537)(syntax-e$1 s_537) s_537)))" -"(if(pair? s_538)" -"(let-values(((#%app223_0)(let-values(((s_539)(car s_538))) s_539))" +"(let-values(((s_540)(if(syntax?$1 s_539)(syntax-e$1 s_539) s_539)))" +"(if(pair? s_540)" +"(let-values(((#%app223_0)(let-values(((s_541)(car s_540))) s_541))" "((e224_0)" -"(let-values(((s_540)(cdr s_538)))" -"(let-values(((s_541)" -"(if(syntax?$1 s_540)" -"(syntax-e$1 s_540)" -" s_540)))" -"(let-values(((flat-s_40)(to-syntax-list.1 s_541)))" +"(let-values(((s_542)(cdr s_540)))" +"(let-values(((s_543)" +"(if(syntax?$1 s_542)" +"(syntax-e$1 s_542)" +" s_542)))" +"(let-values(((flat-s_40)(to-syntax-list.1 s_543)))" "(if(not flat-s_40)" "(let-values()" " (raise-syntax-error$1 #f \"bad syntax\" orig-s_49))" @@ -65622,16 +65911,16 @@ static const char *startup_source = "(let-values(((es_3) e222_0))" "(if(null? es_3)" "(let-values()" -"(let-values(((phase_146)(expand-context-phase ctx_85)))" +"(let-values(((phase_147)(expand-context-phase ctx_85)))" "(if(expand-context-to-parsed? ctx_85)" -"(parsed-quote14.1(keep-properties-only~ s_536) null)" -"(let-values(((s225_0) s_536)((temp226_1)(list(core-id 'quote phase_146) null)))" +"(parsed-quote14.1(keep-properties-only~ s_538) null)" +"(let-values(((s225_0) s_538)((temp226_1)(list(core-id 'quote phase_147) null)))" "(rebuild5.1 #f #f s225_0 temp226_1)))))" "(let-values()" "(let-values(((keep-for-parsed?_1)(eq?(system-type 'vm) 'chez-scheme)))" "(let-values(((rebuild-s_8)" "(let-values(((ctx227_0) ctx_85)" -"((s228_0) s_536)" +"((s228_0) s_538)" "((keep-for-parsed?229_0) keep-for-parsed?_1))" "(keep-as-needed74.1 #f #f #f #f keep-for-parsed?229_0 #t ctx227_0 s228_0))))" "(let-values(((prefixless_0)(cdr(syntax-e$1 disarmed-s_11))))" @@ -65661,7 +65950,7 @@ static const char *startup_source = "(call-expand-observe" " obs_103" " 'enter-list" -"(datum->syntax$1 #f es_3 s_536))" +"(datum->syntax$1 #f es_3 s_538))" "(call-expand-observe obs_103 'next))))" "(void)))" "(values))))" @@ -65671,23 +65960,23 @@ static const char *startup_source = "(expand7.1 #f #f #f #f temp233_2 expr-ctx234_0))))" "(let-values(((exp-es_0)" "(reverse$1" -"(let-values(((lst_403) rest-es_0))" +"(let-values(((lst_401) rest-es_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_403)))" +"(let-values()(check-list lst_401)))" "((letrec-values(((for-loop_314)" -"(lambda(fold-var_364 lst_404)" +"(lambda(fold-var_367 lst_402)" "(begin" " 'for-loop" -"(if(pair? lst_404)" -"(let-values(((e_89)(unsafe-car lst_404))" -"((rest_227)" -"(unsafe-cdr lst_404)))" -"(let-values(((fold-var_365)" -"(let-values(((fold-var_366)" -" fold-var_364))" -"(let-values(((fold-var_367)" +"(if(pair? lst_402)" +"(let-values(((e_89)(unsafe-car lst_402))" +"((rest_232)" +"(unsafe-cdr lst_402)))" +"(let-values(((fold-var_368)" +"(let-values(((fold-var_369)" +" fold-var_367))" +"(let-values(((fold-var_370)" "(let-values()" "(cons" "(let-values()" @@ -65713,21 +66002,21 @@ static const char *startup_source = " #f" " e235_0" " expr-ctx236_0))))" -" fold-var_366))))" +" fold-var_369))))" "(values" -" fold-var_367)))))" +" fold-var_370)))))" "(if(not #f)" -"(for-loop_314 fold-var_365 rest_227)" -" fold-var_365)))" -" fold-var_364)))))" +"(for-loop_314 fold-var_368 rest_232)" +" fold-var_368)))" +" fold-var_367)))))" " for-loop_314)" " null" -" lst_403))))))" +" lst_401))))))" "(if(expand-context-to-parsed? ctx_85)" "(let-values()" "(parsed-app7.1" -"(let-values(((or-part_208) rebuild-prefixless_0))" -"(if or-part_208 or-part_208 rebuild-s_8))" +"(let-values(((or-part_210) rebuild-prefixless_0))" +"(if or-part_210 or-part_210 rebuild-s_8))" " exp-rator_0" " exp-es_0))" "(let-values()" @@ -65754,35 +66043,35 @@ static const char *startup_source = "(void" "(add-core-form!*" " 'quote" -"(lambda(s_542 ctx_86)" +"(lambda(s_544 ctx_86)" "(let-values((()" "(begin" "(let-values(((obs_106)(expand-context-observer ctx_86)))" "(if obs_106(let-values()(let-values()(call-expand-observe obs_106 'prim-quote)))(void)))" "(values))))" "(let-values(((ok?_42 quote241_0 datum242_0)" -"(let-values(((s_543)(syntax-disarm$1 s_542)))" -"(let-values(((orig-s_50) s_543))" +"(let-values(((s_545)(syntax-disarm$1 s_544)))" +"(let-values(((orig-s_50) s_545))" "(let-values(((quote241_1 datum242_1)" -"(let-values(((s_544)(if(syntax?$1 s_543)(syntax-e$1 s_543) s_543)))" -"(if(pair? s_544)" -"(let-values(((quote243_0)(let-values(((s_545)(car s_544))) s_545))" +"(let-values(((s_546)(if(syntax?$1 s_545)(syntax-e$1 s_545) s_545)))" +"(if(pair? s_546)" +"(let-values(((quote243_0)(let-values(((s_547)(car s_546))) s_547))" "((datum244_0)" -"(let-values(((s_546)(cdr s_544)))" -"(let-values(((s_547)" -"(if(syntax?$1 s_546)" -"(syntax-e$1 s_546)" -" s_546)))" -"(if(pair? s_547)" +"(let-values(((s_548)(cdr s_546)))" +"(let-values(((s_549)" +"(if(syntax?$1 s_548)" +"(syntax-e$1 s_548)" +" s_548)))" +"(if(pair? s_549)" "(let-values(((datum245_0)" -"(let-values(((s_548)(car s_547))) s_548))" +"(let-values(((s_550)(car s_549))) s_550))" "(()" -"(let-values(((s_549)(cdr s_547)))" -"(let-values(((s_550)" -"(if(syntax?$1 s_549)" -"(syntax-e$1 s_549)" -" s_549)))" -"(if(null? s_550)" +"(let-values(((s_551)(cdr s_549)))" +"(let-values(((s_552)" +"(if(syntax?$1 s_551)" +"(syntax-e$1 s_551)" +" s_551)))" +"(if(null? s_552)" "(values)" "(raise-syntax-error$1" " #f" @@ -65794,12 +66083,12 @@ static const char *startup_source = " (raise-syntax-error$1 #f \"bad syntax\" orig-s_50)))))" "(values #t quote241_1 datum242_1))))))" "(if(expand-context-to-parsed? ctx_86)" -"(parsed-quote14.1(keep-properties-only~ s_542)(syntax->datum$1 datum242_0))" -" s_542))))))" +"(parsed-quote14.1(keep-properties-only~ s_544)(syntax->datum$1 datum242_0))" +" s_544))))))" "(void" "(add-core-form!*" " 'quote-syntax" -"(lambda(s_551 ctx_87)" +"(lambda(s_553 ctx_87)" "(let-values((()" "(begin" "(let-values(((obs_107)(expand-context-observer ctx_87)))" @@ -65807,27 +66096,27 @@ static const char *startup_source = "(let-values()(let-values()(call-expand-observe obs_107 'prim-quote-syntax)))" "(void)))" "(values))))" -"(let-values(((disarmed-s_12)(syntax-disarm$1 s_551)))" +"(let-values(((disarmed-s_12)(syntax-disarm$1 s_553)))" "(let-values(((ok?_43 quote-syntax246_0 datum247_0)" -"(let-values(((s_552) disarmed-s_12))" -"(if(let-values(((s_553)(if(syntax?$1 s_552)(syntax-e$1 s_552) s_552)))" -"(if(pair? s_553)" -"(if(let-values(((s_554)(car s_553))) #t)" -"(let-values(((s_555)(cdr s_553)))" -"(let-values(((s_556)(if(syntax?$1 s_555)(syntax-e$1 s_555) s_555)))" -"(if(pair? s_556)" -"(if(let-values(((s_557)(car s_556))) #t)" -"(let-values(((s_558)(cdr s_556)))" -"(let-values(((s_559)(if(syntax?$1 s_558)(syntax-e$1 s_558) s_558)))" -"(if(pair? s_559)" -"(if(let-values(((s_560)(car s_559)))" -"(let-values(((s_561)" -"(if(syntax?$1 s_560)(syntax-e$1 s_560) s_560)))" -"(eq? '#:local s_561)))" -"(let-values(((s_562)(cdr s_559)))" +"(let-values(((s_554) disarmed-s_12))" +"(if(let-values(((s_555)(if(syntax?$1 s_554)(syntax-e$1 s_554) s_554)))" +"(if(pair? s_555)" +"(if(let-values(((s_556)(car s_555))) #t)" +"(let-values(((s_557)(cdr s_555)))" +"(let-values(((s_558)(if(syntax?$1 s_557)(syntax-e$1 s_557) s_557)))" +"(if(pair? s_558)" +"(if(let-values(((s_559)(car s_558))) #t)" +"(let-values(((s_560)(cdr s_558)))" +"(let-values(((s_561)(if(syntax?$1 s_560)(syntax-e$1 s_560) s_560)))" +"(if(pair? s_561)" +"(if(let-values(((s_562)(car s_561)))" "(let-values(((s_563)" "(if(syntax?$1 s_562)(syntax-e$1 s_562) s_562)))" -"(null? s_563)))" +"(eq? '#:local s_563)))" +"(let-values(((s_564)(cdr s_561)))" +"(let-values(((s_565)" +"(if(syntax?$1 s_564)(syntax-e$1 s_564) s_564)))" +"(null? s_565)))" " #f)" " #f)))" " #f)" @@ -65836,44 +66125,44 @@ static const char *startup_source = " #f))" "(let-values()" "(let-values(((quote-syntax246_1 datum247_1)" -"(let-values(((s_268)(if(syntax?$1 s_552)(syntax-e$1 s_552) s_552)))" +"(let-values(((s_272)(if(syntax?$1 s_554)(syntax-e$1 s_554) s_554)))" "(let-values(((quote-syntax248_0)" -"(let-values(((s_564)(car s_268))) s_564))" +"(let-values(((s_566)(car s_272))) s_566))" "((datum249_0)" -"(let-values(((s_565)(cdr s_268)))" -"(let-values(((s_269)" -"(if(syntax?$1 s_565)" -"(syntax-e$1 s_565)" -" s_565)))" -"(let-values(((datum250_0)" -"(let-values(((s_566)(car s_269))) s_566))" -"(()" -"(let-values(((s_567)(cdr s_269)))" -"(let-values(((s_270)" +"(let-values(((s_567)(cdr s_272)))" +"(let-values(((s_273)" "(if(syntax?$1 s_567)" "(syntax-e$1 s_567)" " s_567)))" +"(let-values(((datum250_0)" +"(let-values(((s_568)(car s_273))) s_568))" +"(()" +"(let-values(((s_569)(cdr s_273)))" +"(let-values(((s_274)" +"(if(syntax?$1 s_569)" +"(syntax-e$1 s_569)" +" s_569)))" "(let-values((()" -"(let-values(((s_271)" +"(let-values(((s_275)" "(car" -" s_270)))" -"(let-values(((s_272)" +" s_274)))" +"(let-values(((s_276)" "(if(syntax?$1" -" s_271)" +" s_275)" "(syntax-e$1" -" s_271)" -" s_271)))" +" s_275)" +" s_275)))" "(values))))" "(()" -"(let-values(((s_568)" +"(let-values(((s_570)" "(cdr" -" s_270)))" -"(let-values(((s_569)" +" s_274)))" +"(let-values(((s_571)" "(if(syntax?$1" -" s_568)" +" s_570)" "(syntax-e$1" -" s_568)" -" s_568)))" +" s_570)" +" s_570)))" "(values)))))" "(values))))))" "(values datum250_0))))))" @@ -65881,31 +66170,31 @@ static const char *startup_source = "(values #t quote-syntax246_1 datum247_1)))" "(values #f #f #f)))))" "(let-values(((ok?_44 quote-syntax251_0 datum252_0)" -"(let-values(((s_273) disarmed-s_12))" +"(let-values(((s_277) disarmed-s_12))" "(if(if(not ok?_43) #t #f)" -"(let-values(((orig-s_51) s_273))" +"(let-values(((orig-s_51) s_277))" "(let-values(((quote-syntax251_1 datum252_1)" -"(let-values(((s_570)(if(syntax?$1 s_273)(syntax-e$1 s_273) s_273)))" -"(if(pair? s_570)" +"(let-values(((s_572)(if(syntax?$1 s_277)(syntax-e$1 s_277) s_277)))" +"(if(pair? s_572)" "(let-values(((quote-syntax253_0)" -"(let-values(((s_571)(car s_570))) s_571))" +"(let-values(((s_573)(car s_572))) s_573))" "((datum254_0)" -"(let-values(((s_572)(cdr s_570)))" -"(let-values(((s_573)" -"(if(syntax?$1 s_572)" -"(syntax-e$1 s_572)" -" s_572)))" -"(if(pair? s_573)" +"(let-values(((s_574)(cdr s_572)))" +"(let-values(((s_575)" +"(if(syntax?$1 s_574)" +"(syntax-e$1 s_574)" +" s_574)))" +"(if(pair? s_575)" "(let-values(((datum255_0)" -"(let-values(((s_574)(car s_573)))" -" s_574))" +"(let-values(((s_576)(car s_575)))" +" s_576))" "(()" -"(let-values(((s_575)(cdr s_573)))" -"(let-values(((s_576)" -"(if(syntax?$1 s_575)" -"(syntax-e$1 s_575)" -" s_575)))" -"(if(null? s_576)" +"(let-values(((s_577)(cdr s_575)))" +"(let-values(((s_578)" +"(if(syntax?$1 s_577)" +"(syntax-e$1 s_577)" +" s_577)))" +"(if(null? s_578)" "(values)" "(raise-syntax-error$1" " #f" @@ -65927,52 +66216,52 @@ static const char *startup_source = "(reference-records-all-used!(expand-context-reference-records ctx_87))" "(values))))" "(let-values(((ok?_45 _256_0 _257_0 kw258_0)" -"(let-values(((s_577) disarmed-s_12))" -"(let-values(((orig-s_52) s_577))" +"(let-values(((s_579) disarmed-s_12))" +"(let-values(((orig-s_52) s_579))" "(let-values(((_256_1 _257_1 kw258_1)" -"(let-values(((s_578)" -"(if(syntax?$1 s_577)(syntax-e$1 s_577) s_577)))" -"(if(pair? s_578)" +"(let-values(((s_580)" +"(if(syntax?$1 s_579)(syntax-e$1 s_579) s_579)))" +"(if(pair? s_580)" "(let-values(((_259_0)" -"(let-values(((s_579)(car s_578))) s_579))" +"(let-values(((s_581)(car s_580))) s_581))" "((_260_0 kw261_0)" -"(let-values(((s_580)(cdr s_578)))" -"(let-values(((s_281)" -"(if(syntax?$1 s_580)" -"(syntax-e$1 s_580)" -" s_580)))" -"(if(pair? s_281)" -"(let-values(((_262_0)" -"(let-values(((s_581)" -"(car s_281)))" -" s_581))" -"((kw263_0)" -"(let-values(((s_282)" -"(cdr s_281)))" -"(let-values(((s_582)" -"(if(syntax?$1" -" s_282)" -"(syntax-e$1" -" s_282)" -" s_282)))" -"(if(pair? s_582)" -"(let-values(((kw264_0)" -"(let-values(((s_283)" -"(car" -" s_582)))" -" s_283))" -"(()" -"(let-values(((s_284)" -"(cdr" -" s_582)))" +"(let-values(((s_582)(cdr s_580)))" "(let-values(((s_285)" +"(if(syntax?$1 s_582)" +"(syntax-e$1 s_582)" +" s_582)))" +"(if(pair? s_285)" +"(let-values(((_262_0)" +"(let-values(((s_583)" +"(car s_285)))" +" s_583))" +"((kw263_0)" +"(let-values(((s_286)" +"(cdr s_285)))" +"(let-values(((s_584)" "(if(syntax?$1" -" s_284)" +" s_286)" "(syntax-e$1" -" s_284)" -" s_284)))" +" s_286)" +" s_286)))" +"(if(pair? s_584)" +"(let-values(((kw264_0)" +"(let-values(((s_287)" +"(car" +" s_584)))" +" s_287))" +"(()" +"(let-values(((s_288)" +"(cdr" +" s_584)))" +"(let-values(((s_289)" +"(if(syntax?$1" +" s_288)" +"(syntax-e$1" +" s_288)" +" s_288)))" "(if(null?" -" s_285)" +" s_289)" "(values)" "(raise-syntax-error$1" " #f" @@ -65992,42 +66281,42 @@ static const char *startup_source = " (raise-syntax-error$1 #f \"bad syntax\" orig-s_52)))))" "(values #t _256_1 _257_1 kw258_1))))))" "(if(expand-context-to-parsed? ctx_87)" -"(parsed-quote-syntax15.1(keep-properties-only~ s_551) datum247_0)" -"(let-values(((s265_0) s_551)((temp266_1)(list quote-syntax246_0 datum247_0 kw258_0)))" +"(parsed-quote-syntax15.1(keep-properties-only~ s_553) datum247_0)" +"(let-values(((s265_0) s_553)((temp266_1)(list quote-syntax246_0 datum247_0 kw258_0)))" "(rebuild5.1 #f #f s265_0 temp266_1))))))" "(let-values()" "(let-values(((datum-s_0)(remove-scopes datum252_0(expand-context-scopes ctx_87))))" "(if(if(expand-context-to-parsed? ctx_87)(free-id-set-empty?(expand-context-stops ctx_87)) #f)" -"(parsed-quote-syntax15.1(keep-properties-only~ s_551) datum-s_0)" -"(let-values(((s267_0) s_551)((temp268_0)(list quote-syntax251_0 datum-s_0)))" +"(parsed-quote-syntax15.1(keep-properties-only~ s_553) datum-s_0)" +"(let-values(((s267_0) s_553)((temp268_0)(list quote-syntax251_0 datum-s_0)))" "(rebuild5.1 #f #f s267_0 temp268_0)))))))))))))" "(void" "(add-core-form!*" " 'if" -"(lambda(s_583 ctx_88)" +"(lambda(s_585 ctx_88)" "(let-values((()" "(begin" "(let-values(((obs_108)(expand-context-observer ctx_88)))" "(if obs_108(let-values()(let-values()(call-expand-observe obs_108 'prim-if)))(void)))" "(values))))" -"(let-values(((disarmed-s_13)(syntax-disarm$1 s_583)))" +"(let-values(((disarmed-s_13)(syntax-disarm$1 s_585)))" "(let-values(((ok?_46 _269_0 _270_0 _271_0)" -"(let-values(((s_293) disarmed-s_13))" -"(if(let-values(((s_294)(if(syntax?$1 s_293)(syntax-e$1 s_293) s_293)))" -"(if(pair? s_294)" -"(if(let-values(((s_295)(car s_294))) #t)" -"(let-values(((s_584)(cdr s_294)))" -"(let-values(((s_585)(if(syntax?$1 s_584)(syntax-e$1 s_584) s_584)))" -"(if(pair? s_585)" -"(if(let-values(((s_296)(car s_585))) #t)" -"(let-values(((s_297)(cdr s_585)))" -"(let-values(((s_298)(if(syntax?$1 s_297)(syntax-e$1 s_297) s_297)))" +"(let-values(((s_297) disarmed-s_13))" +"(if(let-values(((s_298)(if(syntax?$1 s_297)(syntax-e$1 s_297) s_297)))" "(if(pair? s_298)" -"(if(let-values(((s_586)(car s_298))) #t)" -"(let-values(((s_587)(cdr s_298)))" -"(let-values(((s_588)" -"(if(syntax?$1 s_587)(syntax-e$1 s_587) s_587)))" -"(null? s_588)))" +"(if(let-values(((s_299)(car s_298))) #t)" +"(let-values(((s_586)(cdr s_298)))" +"(let-values(((s_587)(if(syntax?$1 s_586)(syntax-e$1 s_586) s_586)))" +"(if(pair? s_587)" +"(if(let-values(((s_300)(car s_587))) #t)" +"(let-values(((s_301)(cdr s_587)))" +"(let-values(((s_302)(if(syntax?$1 s_301)(syntax-e$1 s_301) s_301)))" +"(if(pair? s_302)" +"(if(let-values(((s_588)(car s_302))) #t)" +"(let-values(((s_589)(cdr s_302)))" +"(let-values(((s_590)" +"(if(syntax?$1 s_589)(syntax-e$1 s_589) s_589)))" +"(null? s_590)))" " #f)" " #f)))" " #f)" @@ -66036,37 +66325,37 @@ static const char *startup_source = " #f))" "(let-values()" "(let-values(((_269_1 _270_1 _271_1)" -"(let-values(((s_589)(if(syntax?$1 s_293)(syntax-e$1 s_293) s_293)))" -"(let-values(((_272_0)(let-values(((s_590)(car s_589))) s_590))" +"(let-values(((s_591)(if(syntax?$1 s_297)(syntax-e$1 s_297) s_297)))" +"(let-values(((_272_0)(let-values(((s_592)(car s_591))) s_592))" "((_273_0 _274_0)" -"(let-values(((s_591)(cdr s_589)))" -"(let-values(((s_592)" -"(if(syntax?$1 s_591)" -"(syntax-e$1 s_591)" -" s_591)))" +"(let-values(((s_593)(cdr s_591)))" +"(let-values(((s_594)" +"(if(syntax?$1 s_593)" +"(syntax-e$1 s_593)" +" s_593)))" "(let-values(((_275_0)" -"(let-values(((s_593)(car s_592))) s_593))" +"(let-values(((s_595)(car s_594))) s_595))" "((_276_0)" -"(let-values(((s_594)(cdr s_592)))" -"(let-values(((s_595)" -"(if(syntax?$1 s_594)" -"(syntax-e$1 s_594)" -" s_594)))" -"(let-values(((_277_0)" -"(let-values(((s_596)" -"(car" -" s_595)))" -" s_596))" -"(()" +"(let-values(((s_596)(cdr s_594)))" "(let-values(((s_597)" -"(cdr" -" s_595)))" +"(if(syntax?$1 s_596)" +"(syntax-e$1 s_596)" +" s_596)))" +"(let-values(((_277_0)" "(let-values(((s_598)" -"(if(syntax?$1" -" s_597)" -"(syntax-e$1" -" s_597)" +"(car" " s_597)))" +" s_598))" +"(()" +"(let-values(((s_599)" +"(cdr" +" s_597)))" +"(let-values(((s_600)" +"(if(syntax?$1" +" s_599)" +"(syntax-e$1" +" s_599)" +" s_599)))" "(values)))))" "(values _277_0))))))" "(values _275_0 _276_0))))))" @@ -66076,67 +66365,67 @@ static const char *startup_source = "(let-values((()" "(begin" "(if ok?_46" -" (let-values () (raise-syntax-error$1 #f \"missing an \\\"else\\\" expression\" s_583))" +" (let-values () (raise-syntax-error$1 #f \"missing an \\\"else\\\" expression\" s_585))" "(void))" "(values))))" "(let-values(((ok?_47 if278_0 tst279_0 thn280_0 els281_0)" -"(let-values(((s_599) disarmed-s_13))" -"(let-values(((orig-s_53) s_599))" +"(let-values(((s_601) disarmed-s_13))" +"(let-values(((orig-s_53) s_601))" "(let-values(((if278_1 tst279_1 thn280_1 els281_1)" -"(let-values(((s_600)(if(syntax?$1 s_599)(syntax-e$1 s_599) s_599)))" -"(if(pair? s_600)" -"(let-values(((if282_0)(let-values(((s_601)(car s_600))) s_601))" +"(let-values(((s_602)(if(syntax?$1 s_601)(syntax-e$1 s_601) s_601)))" +"(if(pair? s_602)" +"(let-values(((if282_0)(let-values(((s_603)(car s_602))) s_603))" "((tst283_0 thn284_0 els285_0)" -"(let-values(((s_602)(cdr s_600)))" -"(let-values(((s_603)" -"(if(syntax?$1 s_602)" -"(syntax-e$1 s_602)" -" s_602)))" -"(if(pair? s_603)" +"(let-values(((s_604)(cdr s_602)))" +"(let-values(((s_605)" +"(if(syntax?$1 s_604)" +"(syntax-e$1 s_604)" +" s_604)))" +"(if(pair? s_605)" "(let-values(((tst286_0)" -"(let-values(((s_604)(car s_603)))" -" s_604))" +"(let-values(((s_606)(car s_605)))" +" s_606))" "((thn287_0 els288_0)" -"(let-values(((s_605)(cdr s_603)))" -"(let-values(((s_606)" -"(if(syntax?$1 s_605)" -"(syntax-e$1 s_605)" -" s_605)))" -"(if(pair? s_606)" -"(let-values(((thn289_0)" -"(let-values(((s_607)" -"(car" -" s_606)))" -" s_607))" -"((els290_0)" +"(let-values(((s_607)(cdr s_605)))" "(let-values(((s_608)" -"(cdr" -" s_606)))" +"(if(syntax?$1 s_607)" +"(syntax-e$1 s_607)" +" s_607)))" +"(if(pair? s_608)" +"(let-values(((thn289_0)" "(let-values(((s_609)" -"(if(syntax?$1" -" s_608)" -"(syntax-e$1" -" s_608)" -" s_608)))" -"(if(pair?" -" s_609)" -"(let-values(((els291_0)" -"(let-values(((s_610)" "(car" -" s_609)))" -" s_610))" -"(()" -"(let-values(((s_611)" +" s_608)))" +" s_609))" +"((els290_0)" +"(let-values(((s_610)" "(cdr" -" s_609)))" -"(let-values(((s_612)" +" s_608)))" +"(let-values(((s_611)" "(if(syntax?$1" -" s_611)" +" s_610)" "(syntax-e$1" +" s_610)" +" s_610)))" +"(if(pair?" " s_611)" +"(let-values(((els291_0)" +"(let-values(((s_612)" +"(car" " s_611)))" +" s_612))" +"(()" +"(let-values(((s_613)" +"(cdr" +" s_611)))" +"(let-values(((s_614)" +"(if(syntax?$1" +" s_613)" +"(syntax-e$1" +" s_613)" +" s_613)))" "(if(null?" -" s_612)" +" s_614)" "(values)" "(raise-syntax-error$1" " #f" @@ -66166,7 +66455,7 @@ static const char *startup_source = "(let-values(((expr-ctx292_0) expr-ctx_2)((ctx293_0) ctx_88))" "(as-tail-context23.1 ctx293_0 expr-ctx292_0))))" "(let-values(((rebuild-s_9)" -"(let-values(((ctx294_0) ctx_88)((s295_0) s_583))" +"(let-values(((ctx294_0) ctx_88)((s295_0) s_585))" "(keep-as-needed74.1 #f #f #f #f #f #f ctx294_0 s295_0))))" "(let-values(((exp-tst_0)" "(let-values(((temp296_0) tst279_0)((expr-ctx297_0) expr-ctx_2))" @@ -66199,7 +66488,7 @@ static const char *startup_source = "(void" "(add-core-form!*" " 'with-continuation-mark" -"(lambda(s_613 ctx_89)" +"(lambda(s_615 ctx_89)" "(let-values((()" "(begin" "(let-values(((obs_111)(expand-context-observer ctx_89)))" @@ -66207,65 +66496,65 @@ static const char *startup_source = "(let-values()(let-values()(call-expand-observe obs_111 'prim-with-continuation-mark)))" "(void)))" "(values))))" -"(let-values(((disarmed-s_14)(syntax-disarm$1 s_613)))" +"(let-values(((disarmed-s_14)(syntax-disarm$1 s_615)))" "(let-values(((ok?_48 with-continuation-mark304_0 key305_0 val306_0 body307_0)" -"(let-values(((s_614) disarmed-s_14))" -"(let-values(((orig-s_54) s_614))" +"(let-values(((s_616) disarmed-s_14))" +"(let-values(((orig-s_54) s_616))" "(let-values(((with-continuation-mark304_1 key305_1 val306_1 body307_1)" -"(let-values(((s_615)(if(syntax?$1 s_614)(syntax-e$1 s_614) s_614)))" -"(if(pair? s_615)" +"(let-values(((s_617)(if(syntax?$1 s_616)(syntax-e$1 s_616) s_616)))" +"(if(pair? s_617)" "(let-values(((with-continuation-mark308_0)" -"(let-values(((s_616)(car s_615))) s_616))" +"(let-values(((s_618)(car s_617))) s_618))" "((key309_0 val310_0 body311_0)" -"(let-values(((s_617)(cdr s_615)))" -"(let-values(((s_618)" -"(if(syntax?$1 s_617)" -"(syntax-e$1 s_617)" -" s_617)))" -"(if(pair? s_618)" +"(let-values(((s_619)(cdr s_617)))" +"(let-values(((s_620)" +"(if(syntax?$1 s_619)" +"(syntax-e$1 s_619)" +" s_619)))" +"(if(pair? s_620)" "(let-values(((key312_0)" -"(let-values(((s_619)(car s_618)))" -" s_619))" +"(let-values(((s_621)(car s_620)))" +" s_621))" "((val313_0 body314_0)" -"(let-values(((s_620)(cdr s_618)))" -"(let-values(((s_621)" -"(if(syntax?$1 s_620)" -"(syntax-e$1 s_620)" -" s_620)))" -"(if(pair? s_621)" -"(let-values(((val315_0)" -"(let-values(((s_622)" -"(car" -" s_621)))" -" s_622))" -"((body316_0)" +"(let-values(((s_622)(cdr s_620)))" "(let-values(((s_623)" -"(cdr" -" s_621)))" +"(if(syntax?$1 s_622)" +"(syntax-e$1 s_622)" +" s_622)))" +"(if(pair? s_623)" +"(let-values(((val315_0)" "(let-values(((s_624)" -"(if(syntax?$1" -" s_623)" -"(syntax-e$1" -" s_623)" -" s_623)))" -"(if(pair? s_624)" -"(let-values(((body317_0)" -"(let-values(((s_625)" "(car" -" s_624)))" -" s_625))" -"(()" -"(let-values(((s_626)" +" s_623)))" +" s_624))" +"((body316_0)" +"(let-values(((s_625)" "(cdr" -" s_624)))" -"(let-values(((s_627)" +" s_623)))" +"(let-values(((s_626)" "(if(syntax?$1" -" s_626)" +" s_625)" "(syntax-e$1" -" s_626)" +" s_625)" +" s_625)))" +"(if(pair? s_626)" +"(let-values(((body317_0)" +"(let-values(((s_627)" +"(car" " s_626)))" +" s_627))" +"(()" +"(let-values(((s_628)" +"(cdr" +" s_626)))" +"(let-values(((s_629)" +"(if(syntax?$1" +" s_628)" +"(syntax-e$1" +" s_628)" +" s_628)))" "(if(null?" -" s_627)" +" s_629)" "(values)" "(raise-syntax-error$1" " #f" @@ -66289,7 +66578,7 @@ static const char *startup_source = "(values #t with-continuation-mark304_1 key305_1 val306_1 body307_1))))))" "(let-values(((expr-ctx_3)(as-expression-context ctx_89)))" "(let-values(((rebuild-s_10)" -"(let-values(((ctx318_0) ctx_89)((s319_0) s_613))" +"(let-values(((ctx318_0) ctx_89)((s319_0) s_615))" "(keep-as-needed74.1 #f #f #f #f #f #f ctx318_0 s319_0))))" "(let-values(((exp-key_0)" "(let-values(((temp320_0) key305_0)((expr-ctx321_0) expr-ctx_3))" @@ -66332,7 +66621,7 @@ static const char *startup_source = "(let-values(((list-start-index_0) list-start-index14_0))" "(let-values(((last-is-tail?_0) last-is-tail?15_0))" "(let-values()" -"(lambda(s_628 ctx_90)" +"(lambda(s_630 ctx_90)" "(let-values((()" "(begin" "(let-values(((obs_114)(expand-context-observer ctx_90)))" @@ -66340,24 +66629,24 @@ static const char *startup_source = "(let-values()(let-values()(call-expand-observe obs_114 log-tag_1)))" "(void)))" "(values))))" -"(let-values(((disarmed-s_15)(syntax-disarm$1 s_628)))" +"(let-values(((disarmed-s_15)(syntax-disarm$1 s_630)))" "(let-values(((ok?_49 begin330_0 e331_0)" -"(let-values(((s_629) disarmed-s_15))" -"(let-values(((orig-s_55) s_629))" +"(let-values(((s_631) disarmed-s_15))" +"(let-values(((orig-s_55) s_631))" "(let-values(((begin330_1 e331_1)" -"(let-values(((s_630)" -"(if(syntax?$1 s_629)(syntax-e$1 s_629) s_629)))" -"(if(pair? s_630)" +"(let-values(((s_632)" +"(if(syntax?$1 s_631)(syntax-e$1 s_631) s_631)))" +"(if(pair? s_632)" "(let-values(((begin332_0)" -"(let-values(((s_631)(car s_630))) s_631))" +"(let-values(((s_633)(car s_632))) s_633))" "((e333_0)" -"(let-values(((s_632)(cdr s_630)))" -"(let-values(((s_633)" -"(if(syntax?$1 s_632)" -"(syntax-e$1 s_632)" -" s_632)))" +"(let-values(((s_634)(cdr s_632)))" +"(let-values(((s_635)" +"(if(syntax?$1 s_634)" +"(syntax-e$1 s_634)" +" s_634)))" "(let-values(((flat-s_41)" -"(to-syntax-list.1 s_633)))" +"(to-syntax-list.1 s_635)))" "(if(not flat-s_41)" "(let-values()" "(raise-syntax-error$1" @@ -66379,10 +66668,10 @@ static const char *startup_source = "(as-begin-expression-context ctx_90)" "(as-expression-context ctx_90))))" "(let-values(((rebuild-s_11)" -"(let-values(((ctx334_0) ctx_90)((s335_0) s_628))" +"(let-values(((ctx334_0) ctx_90)((s335_0) s_630))" "(keep-as-needed74.1 #f #f #f #f #f #f ctx334_0 s335_0))))" "(let-values(((exp-es_2)" -"((letrec-values(((loop_123)" +"((letrec-values(((loop_124)" "(lambda(es_5 index_6)" "(begin" " 'loop" @@ -66438,8 +66727,8 @@ static const char *startup_source = " #f" " temp336_0" " temp337_1))" -"(loop_123 rest-es_1(sub1 index_6))))))))))))" -" loop_123)" +"(loop_124 rest-es_1(sub1 index_6))))))))))))" +" loop_124)" " e331_0" " list-start-index_0)))" "(begin" @@ -66465,39 +66754,39 @@ static const char *startup_source = "((temp344_0) 0)" "((temp345_0) #t))" "(make-begin20.1 temp345_0 temp344_0 temp342_0 parsed-begin343_0))))" -"(lambda(s_634 ctx_91)" +"(lambda(s_636 ctx_91)" "(let-values(((context_24)(expand-context-context ctx_91)))" -"(if(let-values(((or-part_384)(eq? context_24 'top-level)))" -"(if or-part_384 or-part_384(eq? context_24 'module)))" +"(if(let-values(((or-part_383)(eq? context_24 'top-level)))" +"(if or-part_383 or-part_383(eq? context_24 'module)))" "(let-values()" -"(let-values(((disarmed-s_16)(syntax-disarm$1 s_634)))" +"(let-values(((disarmed-s_16)(syntax-disarm$1 s_636)))" "(let-values(((ok?_50 begin346_0)" -"(let-values(((s_635) disarmed-s_16))" -"(if(let-values(((s_636)(if(syntax?$1 s_635)(syntax-e$1 s_635) s_635)))" -"(if(pair? s_636)" -"(if(let-values(((s_637)(car s_636))) #t)" -"(let-values(((s_638)(cdr s_636)))" -"(let-values(((s_639)(if(syntax?$1 s_638)(syntax-e$1 s_638) s_638)))" -"(null? s_639)))" +"(let-values(((s_637) disarmed-s_16))" +"(if(let-values(((s_638)(if(syntax?$1 s_637)(syntax-e$1 s_637) s_637)))" +"(if(pair? s_638)" +"(if(let-values(((s_639)(car s_638))) #t)" +"(let-values(((s_640)(cdr s_638)))" +"(let-values(((s_641)(if(syntax?$1 s_640)(syntax-e$1 s_640) s_640)))" +"(null? s_641)))" " #f)" " #f))" "(let-values()" "(let-values(((begin346_1)" -"(let-values(((s_640)(if(syntax?$1 s_635)(syntax-e$1 s_635) s_635)))" +"(let-values(((s_642)(if(syntax?$1 s_637)(syntax-e$1 s_637) s_637)))" "(let-values(((begin347_0)" -"(let-values(((s_641)(car s_640))) s_641))" +"(let-values(((s_643)(car s_642))) s_643))" "(()" -"(let-values(((s_642)(cdr s_640)))" -"(let-values(((s_643)" -"(if(syntax?$1 s_642)" -"(syntax-e$1 s_642)" -" s_642)))" +"(let-values(((s_644)(cdr s_642)))" +"(let-values(((s_645)" +"(if(syntax?$1 s_644)" +"(syntax-e$1 s_644)" +" s_644)))" "(values)))))" "(values begin347_0)))))" "(values #t begin346_1)))" "(values #f #f)))))" -"(if ok?_50 s_634(nonempty-begin_0 s_634 ctx_91)))))" -"(let-values()(nonempty-begin_0 s_634 ctx_91))))))))" +"(if ok?_50 s_636(nonempty-begin_0 s_636 ctx_91)))))" +"(let-values()(nonempty-begin_0 s_636 ctx_91))))))))" "(void" "(add-core-form!*" " 'begin0" @@ -66524,7 +66813,7 @@ static const char *startup_source = "(lambda(s354_0 ctx355_0 implicit-omitted?352_0 implicit-omitted?353_0)" "(begin" " 'core356" -"(let-values(((s_644) s354_0))" +"(let-values(((s_646) s354_0))" "(let-values(((ctx_93) ctx355_0))" "(let-values(((implicit-omitted?_0)(if implicit-omitted?353_0 implicit-omitted?352_0 #f)))" "(let-values()" @@ -66536,46 +66825,46 @@ static const char *startup_source = "(let-values()(call-expand-observe obs_118 'prim-#%top)))" "(void)))" "(values))))" -"(let-values(((disarmed-s_17)(syntax-disarm$1 s_644)))" +"(let-values(((disarmed-s_17)(syntax-disarm$1 s_646)))" "(let-values(((id_125)" "(if implicit-omitted?_0" -"(let-values() s_644)" +"(let-values() s_646)" "(let-values()" "(let-values(((ok?_51 #%top358_0 id359_0)" -"(let-values(((s_645) disarmed-s_17))" -"(let-values(((orig-s_56) s_645))" +"(let-values(((s_647) disarmed-s_17))" +"(let-values(((orig-s_56) s_647))" "(let-values(((#%top358_1 id359_1)" -"(let-values(((s_646)" -"(if(syntax?$1 s_645)" -"(syntax-e$1 s_645)" -" s_645)))" -"(if(pair? s_646)" -"(let-values(((#%top360_0)" -"(let-values(((s_647)" -"(car" -" s_646)))" -" s_647))" -"((id361_0)" "(let-values(((s_648)" +"(if(syntax?$1 s_647)" +"(syntax-e$1 s_647)" +" s_647)))" +"(if(pair? s_648)" +"(let-values(((#%top360_0)" +"(let-values(((s_649)" +"(car" +" s_648)))" +" s_649))" +"((id361_0)" +"(let-values(((s_650)" "(cdr" -" s_646)))" -"(if(let-values(((or-part_385)" +" s_648)))" +"(if(let-values(((or-part_384)" "(if(syntax?$1" -" s_648)" +" s_650)" "(symbol?" "(syntax-e$1" -" s_648))" +" s_650))" " #f)))" -"(if or-part_385" -" or-part_385" +"(if or-part_384" +" or-part_384" "(symbol?" -" s_648)))" -" s_648" +" s_650)))" +" s_650" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_56" -" s_648)))))" +" s_650)))))" "(values #%top360_0 id361_0))" "(raise-syntax-error$1" " #f" @@ -66583,7 +66872,7 @@ static const char *startup_source = " orig-s_56)))))" "(values #t #%top358_1 id359_1))))))" " id359_0)))))" -"(let-values(((b_87)" +"(let-values(((b_86)" "(let-values(((id362_0) id_125)" "((temp363_0)(expand-context-phase ctx_93))" "((temp364_0) 'ambiguous))" @@ -66600,23 +66889,23 @@ static const char *startup_source = " #f" " id362_0" " temp363_0))))" -"(if(eq? b_87 'ambiguous)" +"(if(eq? b_86 'ambiguous)" "(let-values()(raise-ambiguous-error id_125 ctx_93))" -"(if(if b_87" -"(if(module-binding? b_87)" -"(eq?(module-binding-module b_87)(root-expand-context-self-mpi ctx_93))" +"(if(if b_86" +"(if(module-binding? b_86)" +"(eq?(module-binding-module b_86)(root-expand-context-self-mpi ctx_93))" " #f)" " #f)" "(let-values()" "(if(expand-context-to-parsed? ctx_93)" -"(parsed-id2.1 id_125 b_87 #f)" -"(if(top-level-module-path-index?(module-binding-module b_87))" -"(let-values() s_644)" +"(parsed-id2.1 id_125 b_86 #f)" +"(if(top-level-module-path-index?(module-binding-module b_86))" +"(let-values() s_646)" "(let-values() id_125))))" "(if(register-eventual-variable!? id_125 ctx_93)" "(let-values()" "(if(expand-context-to-parsed? ctx_93)" -"(parsed-id2.1 id_125 b_87 #f)" +"(parsed-id2.1 id_125 b_86 #f)" " id_125))" "(let-values()" "(if(not(expand-context-allow-unbound? ctx_93))" @@ -66656,42 +66945,42 @@ static const char *startup_source = "(let-values() id_125)" "(let-values()" "(let-values(((ok?_52 #%top367_0 id368_0)" -"(let-values(((s_649) disarmed-s_17))" -"(let-values(((orig-s_57) s_649))" +"(let-values(((s_651) disarmed-s_17))" +"(let-values(((orig-s_57) s_651))" "(let-values(((#%top367_1 id368_1)" -"(let-values(((s_650)" -"(if(syntax?$1" -" s_649)" -"(syntax-e$1" -" s_649)" -" s_649)))" -"(if(pair? s_650)" -"(let-values(((#%top369_0)" -"(let-values(((s_651)" -"(car" -" s_650)))" -" s_651))" -"((id370_0)" "(let-values(((s_652)" -"(cdr" -" s_650)))" -"(if(let-values(((or-part_386)" "(if(syntax?$1" -" s_652)" +" s_651)" +"(syntax-e$1" +" s_651)" +" s_651)))" +"(if(pair? s_652)" +"(let-values(((#%top369_0)" +"(let-values(((s_653)" +"(car" +" s_652)))" +" s_653))" +"((id370_0)" +"(let-values(((s_654)" +"(cdr" +" s_652)))" +"(if(let-values(((or-part_385)" +"(if(syntax?$1" +" s_654)" "(symbol?" "(syntax-e$1" -" s_652))" +" s_654))" " #f)))" -"(if or-part_386" -" or-part_386" +"(if or-part_385" +" or-part_385" "(symbol?" -" s_652)))" -" s_652" +" s_654)))" +" s_654" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_57" -" s_652)))))" +" s_654)))))" "(values" " #%top369_0" " id370_0))" @@ -66700,80 +66989,80 @@ static const char *startup_source = " \"bad syntax\"" " orig-s_57)))))" "(values #t #%top367_1 id368_1))))))" -"(let-values(((s371_0) s_644)" +"(let-values(((s371_0) s_646)" "((temp372_0)(cons #%top367_0 id_125)))" "(rebuild5.1 #f #f s371_0 temp372_0)))))))" "(let-values()" "(if(expand-context-to-parsed? ctx_93)" -"(parsed-top-id4.1 id_125 b_87 #f)" -" s_644)))))))))))))))))))))))" +"(parsed-top-id4.1 id_125 b_86 #f)" +" s_646)))))))))))))))))))))))" "(case-lambda" -"((s_653 ctx_94)(core356_0 s_653 ctx_94 #f #f))" -"((s_654 ctx_95 implicit-omitted?352_1)(core356_0 s_654 ctx_95 implicit-omitted?352_1 #t))))))" +"((s_655 ctx_94)(core356_0 s_655 ctx_94 #f #f))" +"((s_656 ctx_95 implicit-omitted?352_1)(core356_0 s_656 ctx_95 implicit-omitted?352_1 #t))))))" "(void" "(add-core-form!*" " 'set!" -"(lambda(s_655 ctx_96)" +"(lambda(s_657 ctx_96)" "(let-values((()" "(begin" "(let-values(((obs_119)(expand-context-observer ctx_96)))" "(if obs_119(let-values()(let-values()(call-expand-observe obs_119 'prim-set!)))(void)))" "(values))))" -"(let-values(((disarmed-s_18)(syntax-disarm$1 s_655)))" +"(let-values(((disarmed-s_18)(syntax-disarm$1 s_657)))" "(let-values(((ok?_53 set!373_0 id374_0 rhs375_0)" -"(let-values(((s_656) disarmed-s_18))" -"(let-values(((orig-s_58) s_656))" +"(let-values(((s_658) disarmed-s_18))" +"(let-values(((orig-s_58) s_658))" "(let-values(((set!373_1 id374_1 rhs375_1)" -"(let-values(((s_657)(if(syntax?$1 s_656)(syntax-e$1 s_656) s_656)))" -"(if(pair? s_657)" -"(let-values(((set!376_0)(let-values(((s_658)(car s_657))) s_658))" +"(let-values(((s_659)(if(syntax?$1 s_658)(syntax-e$1 s_658) s_658)))" +"(if(pair? s_659)" +"(let-values(((set!376_0)(let-values(((s_660)(car s_659))) s_660))" "((id377_0 rhs378_0)" -"(let-values(((s_659)(cdr s_657)))" -"(let-values(((s_660)" -"(if(syntax?$1 s_659)" -"(syntax-e$1 s_659)" -" s_659)))" -"(if(pair? s_660)" -"(let-values(((id379_0)" -"(let-values(((s_661)(car s_660)))" -"(if(let-values(((or-part_387)" +"(let-values(((s_661)(cdr s_659)))" +"(let-values(((s_662)" "(if(syntax?$1 s_661)" +"(syntax-e$1 s_661)" +" s_661)))" +"(if(pair? s_662)" +"(let-values(((id379_0)" +"(let-values(((s_663)(car s_662)))" +"(if(let-values(((or-part_386)" +"(if(syntax?$1 s_663)" "(symbol?" "(syntax-e$1" -" s_661))" +" s_663))" " #f)))" -"(if or-part_387" -" or-part_387" -"(symbol? s_661)))" -" s_661" +"(if or-part_386" +" or-part_386" +"(symbol? s_663)))" +" s_663" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_58" -" s_661))))" +" s_663))))" "((rhs380_0)" -"(let-values(((s_662)(cdr s_660)))" -"(let-values(((s_663)" -"(if(syntax?$1 s_662)" -"(syntax-e$1 s_662)" -" s_662)))" -"(if(pair? s_663)" -"(let-values(((rhs381_0)" -"(let-values(((s_664)" -"(car" -" s_663)))" -" s_664))" -"(()" +"(let-values(((s_664)(cdr s_662)))" "(let-values(((s_665)" -"(cdr" -" s_663)))" +"(if(syntax?$1 s_664)" +"(syntax-e$1 s_664)" +" s_664)))" +"(if(pair? s_665)" +"(let-values(((rhs381_0)" "(let-values(((s_666)" -"(if(syntax?$1" -" s_665)" -"(syntax-e$1" -" s_665)" +"(car" " s_665)))" -"(if(null? s_666)" +" s_666))" +"(()" +"(let-values(((s_667)" +"(cdr" +" s_665)))" +"(let-values(((s_668)" +"(if(syntax?$1" +" s_667)" +"(syntax-e$1" +" s_667)" +" s_667)))" +"(if(null? s_668)" "(values)" "(raise-syntax-error$1" " #f" @@ -66794,7 +67083,7 @@ static const char *startup_source = "(lambda(id_127 from-rename?_0)" "(begin" " 'rename-loop" -"(let-values(((binding_31)" +"(let-values(((binding_30)" "(let-values(((id382_0) id_127)" "((temp383_0)(expand-context-phase ctx_96))" "((temp384_0) 'ambiguous)" @@ -66814,15 +67103,15 @@ static const char *startup_source = " temp383_0))))" "(let-values((()" "(begin" -"(if(eq? binding_31 'ambiguous)" +"(if(eq? binding_30 'ambiguous)" "(let-values()(raise-ambiguous-error id_127 ctx_96))" "(void))" "(values))))" "(let-values(((t_57 primitive?_11 insp_24 protected?_12)" -"(if binding_31" -"(let-values(((binding386_0) binding_31)" +"(if binding_30" +"(let-values(((binding386_0) binding_30)" "((ctx387_0) ctx_96)" -"((s388_0) s_655))" +"((s388_0) s_657))" "(lookup17.1 #f #f #f #f binding386_0 ctx387_0 s388_0))" "(values #f #f #f #f))))" "(begin" @@ -66831,30 +67120,30 @@ static const char *startup_source = "(let-values()" "(let-values()(call-expand-observe obs_120 'resolve id_127)))" "(void)))" -"(if(let-values(((or-part_388)(variable? t_57)))" +"(if(let-values(((or-part_387)(variable? t_57)))" +"(if or-part_387" +" or-part_387" +"(if(not binding_30)" +"(let-values(((or-part_388)" +"(register-eventual-variable!? id_127 ctx_96)))" "(if or-part_388" " or-part_388" -"(if(not binding_31)" -"(let-values(((or-part_389)" -"(register-eventual-variable!? id_127 ctx_96)))" -"(if or-part_389" -" or-part_389" "(expand-context-allow-unbound? ctx_96)))" " #f)))" "(let-values()" "(let-values((()" "(begin" -"(if(if(module-binding? binding_31)" +"(if(if(module-binding? binding_30)" "(not" "(eq?" -"(module-binding-module binding_31)" +"(module-binding-module binding_30)" "(root-expand-context-self-mpi ctx_96)))" " #f)" "(let-values()" "(raise-syntax-error$1" " #f" " \"cannot mutate module-required identifier\"" -" s_655" +" s_657" " id_127))" "(void))" "(values))))" @@ -66870,10 +67159,10 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(register-variable-referenced-if-local! binding_31)" +"(register-variable-referenced-if-local! binding_30)" "(values))))" "(let-values(((rebuild-s_12)" -"(let-values(((ctx389_0) ctx_96)((s390_0) s_655))" +"(let-values(((ctx389_0) ctx_96)((s390_0) s_657))" "(keep-as-needed74.1" " #f" " #f" @@ -66891,7 +67180,7 @@ static const char *startup_source = "(if(expand-context-to-parsed? ctx_96)" "(parsed-set!9.1" " rebuild-s_12" -"(parsed-id2.1 id_127 binding_31 #f)" +"(parsed-id2.1 id_127 binding_30 #f)" " exp-rhs_4)" "(let-values(((rebuild-s393_0) rebuild-s_12)" "((temp394_0)" @@ -66909,12 +67198,12 @@ static const char *startup_source = " t396_0))" " exp-rhs_4)))" "(rebuild5.1 #f #f rebuild-s393_0 temp394_0)))))))))" -"(if(not binding_31)" +"(if(not binding_30)" "(let-values()" "(raise-unbound-syntax-error" " #f" " \"unbound identifier\"" -" s_655" +" s_657" " id_127" " null" "(syntax-debug-info-string id_127 ctx_96)))" @@ -66925,7 +67214,7 @@ static const char *startup_source = "(let-values(((temp398_0)" "(avoid-current-expand-context" "(substitute-set!-rename" -" s_655" +" s_657" " disarmed-s_18" " set!373_0" " rhs375_0" @@ -66941,10 +67230,10 @@ static const char *startup_source = "(apply-transformer" " t_57" " insp_24" -" s_655" +" s_657" " id_127" " ctx_96" -" binding_31)))" +" binding_30)))" "(if(expand-context-just-once? ctx_96)" "(let-values() exp-s_14)" "(let-values()" @@ -66958,7 +67247,7 @@ static const char *startup_source = "(let-values(((temp402_0)" "(avoid-current-expand-context" "(substitute-set!-rename" -" s_655" +" s_657" " disarmed-s_18" " set!373_0" " rhs375_0" @@ -66978,7 +67267,7 @@ static const char *startup_source = "(raise-syntax-error$1" " #f" " \"cannot mutate syntax identifier\"" -" s_655" +" s_657" " id_127))))))))))))))" " rename-loop_0)" " id_126" @@ -66989,7 +67278,7 @@ static const char *startup_source = "(lambda(s25_1 disarmed-s26_0 set!-id27_0 id28_0 rhs-s29_0 from-rename?30_0 ctx31_0 t23_0 t24_0)" "(begin" " 'substitute-set!-rename32" -"(let-values(((s_667) s25_1))" +"(let-values(((s_669) s25_1))" "(let-values(((disarmed-s_19) disarmed-s26_0))" "(let-values(((set!-id_0) set!-id27_0))" "(let-values(((id_128) id28_0))" @@ -66998,8 +67287,8 @@ static const char *startup_source = "(let-values(((ctx_97) ctx31_0))" "(let-values(((t_58)(if t24_0 t23_0 #f)))" "(let-values()" -"(if(let-values(((or-part_390) t_58))" -"(if or-part_390 or-part_390 from-rename?_1))" +"(if(let-values(((or-part_389) t_58))" +"(if or-part_389 or-part_389 from-rename?_1))" "(let-values()" "(let-values(((new-id_1)" "(if t_58" @@ -67011,17 +67300,17 @@ static const char *startup_source = "(list set!-id_0 new-id_1 rhs-s_0)" " disarmed-s_19" " disarmed-s_19)" -" s_667)))" -"(let-values() s_667)))))))))))))))" +" s_669)))" +"(let-values() s_669)))))))))))))))" "(case-lambda" -"((s_668 disarmed-s_20 set!-id_1 id_129 rhs-s_1 from-rename?_2 ctx_98)" -"(begin(substitute-set!-rename32_0 s_668 disarmed-s_20 set!-id_1 id_129 rhs-s_1 from-rename?_2 ctx_98 #f #f)))" -"((s_669 disarmed-s_21 set!-id_2 id_130 rhs-s_2 from-rename?_3 ctx_99 t23_1)" -"(substitute-set!-rename32_0 s_669 disarmed-s_21 set!-id_2 id_130 rhs-s_2 from-rename?_3 ctx_99 t23_1 #t)))))" +"((s_670 disarmed-s_20 set!-id_1 id_129 rhs-s_1 from-rename?_2 ctx_98)" +"(begin(substitute-set!-rename32_0 s_670 disarmed-s_20 set!-id_1 id_129 rhs-s_1 from-rename?_2 ctx_98 #f #f)))" +"((s_671 disarmed-s_21 set!-id_2 id_130 rhs-s_2 from-rename?_3 ctx_99 t23_1)" +"(substitute-set!-rename32_0 s_671 disarmed-s_21 set!-id_2 id_130 rhs-s_2 from-rename?_3 ctx_99 t23_1 #t)))))" "(void" "(add-core-form!*" " '#%variable-reference" -"(lambda(s_670 ctx_100)" +"(lambda(s_672 ctx_100)" "(let-values((()" "(begin" "(let-values(((obs_122)(expand-context-observer ctx_100)))" @@ -67029,75 +67318,75 @@ static const char *startup_source = "(let-values()(let-values()(call-expand-observe obs_122 'prim-#%variable-reference)))" "(void)))" "(values))))" -"(let-values(((disarmed-s_22)(syntax-disarm$1 s_670)))" +"(let-values(((disarmed-s_22)(syntax-disarm$1 s_672)))" "(let-values(((ok?_54 #%variable-reference404_0 id405_0)" -"(let-values(((s_671) disarmed-s_22))" -"(if(let-values(((s_672)(if(syntax?$1 s_671)(syntax-e$1 s_671) s_671)))" -"(if(pair? s_672)" -"(if(let-values(((s_673)(car s_672))) #t)" -"(let-values(((s_674)(cdr s_672)))" -"(let-values(((s_675)(if(syntax?$1 s_674)(syntax-e$1 s_674) s_674)))" -"(if(pair? s_675)" -"(if(let-values(((s_676)(car s_675)))" -"(let-values(((or-part_391)" -"(if(syntax?$1 s_676)(symbol?(syntax-e$1 s_676)) #f)))" -"(if or-part_391 or-part_391(symbol? s_676))))" -"(let-values(((s_677)(cdr s_675)))" -"(let-values(((s_678)(if(syntax?$1 s_677)(syntax-e$1 s_677) s_677)))" -"(null? s_678)))" +"(let-values(((s_673) disarmed-s_22))" +"(if(let-values(((s_674)(if(syntax?$1 s_673)(syntax-e$1 s_673) s_673)))" +"(if(pair? s_674)" +"(if(let-values(((s_675)(car s_674))) #t)" +"(let-values(((s_676)(cdr s_674)))" +"(let-values(((s_677)(if(syntax?$1 s_676)(syntax-e$1 s_676) s_676)))" +"(if(pair? s_677)" +"(if(let-values(((s_678)(car s_677)))" +"(let-values(((or-part_390)" +"(if(syntax?$1 s_678)(symbol?(syntax-e$1 s_678)) #f)))" +"(if or-part_390 or-part_390(symbol? s_678))))" +"(let-values(((s_679)(cdr s_677)))" +"(let-values(((s_680)(if(syntax?$1 s_679)(syntax-e$1 s_679) s_679)))" +"(null? s_680)))" " #f)" " #f)))" " #f)" " #f))" "(let-values()" "(let-values(((#%variable-reference404_1 id405_1)" -"(let-values(((s_679)(if(syntax?$1 s_671)(syntax-e$1 s_671) s_671)))" +"(let-values(((s_681)(if(syntax?$1 s_673)(syntax-e$1 s_673) s_673)))" "(let-values(((#%variable-reference406_0)" -"(let-values(((s_680)(car s_679))) s_680))" +"(let-values(((s_682)(car s_681))) s_682))" "((id407_0)" -"(let-values(((s_681)(cdr s_679)))" -"(let-values(((s_682)" -"(if(syntax?$1 s_681)" -"(syntax-e$1 s_681)" -" s_681)))" +"(let-values(((s_683)(cdr s_681)))" +"(let-values(((s_684)" +"(if(syntax?$1 s_683)" +"(syntax-e$1 s_683)" +" s_683)))" "(let-values(((id408_0)" -"(let-values(((s_683)(car s_682))) s_683))" +"(let-values(((s_685)(car s_684))) s_685))" "(()" -"(let-values(((s_684)(cdr s_682)))" -"(let-values(((s_685)" -"(if(syntax?$1 s_684)" -"(syntax-e$1 s_684)" -" s_684)))" +"(let-values(((s_686)(cdr s_684)))" +"(let-values(((s_687)" +"(if(syntax?$1 s_686)" +"(syntax-e$1 s_686)" +" s_686)))" "(values)))))" "(values id408_0))))))" "(values #%variable-reference406_0 id407_0)))))" "(values #t #%variable-reference404_1 id405_1)))" "(values #f #f #f)))))" "(let-values(((ok?_55 #%variable-reference409_0 #%top410_0 id411_0)" -"(let-values(((s_686) disarmed-s_22))" +"(let-values(((s_688) disarmed-s_22))" "(if(if(not ok?_54)" -"(let-values(((s_687)(if(syntax?$1 s_686)(syntax-e$1 s_686) s_686)))" -"(if(pair? s_687)" -"(if(let-values(((s_688)(car s_687))) #t)" -"(let-values(((s_689)(cdr s_687)))" -"(let-values(((s_690)(if(syntax?$1 s_689)(syntax-e$1 s_689) s_689)))" -"(if(pair? s_690)" -"(if(let-values(((s_691)(car s_690)))" -"(let-values(((s_692)" -"(if(syntax?$1 s_691)(syntax-e$1 s_691) s_691)))" +"(let-values(((s_689)(if(syntax?$1 s_688)(syntax-e$1 s_688) s_688)))" +"(if(pair? s_689)" +"(if(let-values(((s_690)(car s_689))) #t)" +"(let-values(((s_691)(cdr s_689)))" +"(let-values(((s_692)(if(syntax?$1 s_691)(syntax-e$1 s_691) s_691)))" "(if(pair? s_692)" -"(if(let-values(((s_693)(car s_692))) #t)" -"(let-values(((s_694)(cdr s_692)))" -"(let-values(((or-part_392)" -"(if(syntax?$1 s_694)" -"(symbol?(syntax-e$1 s_694))" +"(if(let-values(((s_693)(car s_692)))" +"(let-values(((s_694)" +"(if(syntax?$1 s_693)(syntax-e$1 s_693) s_693)))" +"(if(pair? s_694)" +"(if(let-values(((s_695)(car s_694))) #t)" +"(let-values(((s_696)(cdr s_694)))" +"(let-values(((or-part_391)" +"(if(syntax?$1 s_696)" +"(symbol?(syntax-e$1 s_696))" " #f)))" -"(if or-part_392 or-part_392(symbol? s_694))))" +"(if or-part_391 or-part_391(symbol? s_696))))" " #f)" " #f)))" -"(let-values(((s_695)(cdr s_690)))" -"(let-values(((s_696)(if(syntax?$1 s_695)(syntax-e$1 s_695) s_695)))" -"(null? s_696)))" +"(let-values(((s_697)(cdr s_692)))" +"(let-values(((s_698)(if(syntax?$1 s_697)(syntax-e$1 s_697) s_697)))" +"(null? s_698)))" " #f)" " #f)))" " #f)" @@ -67105,61 +67394,61 @@ static const char *startup_source = " #f)" "(let-values()" "(let-values(((#%variable-reference409_1 #%top410_1 id411_1)" -"(let-values(((s_697)(if(syntax?$1 s_686)(syntax-e$1 s_686) s_686)))" +"(let-values(((s_699)(if(syntax?$1 s_688)(syntax-e$1 s_688) s_688)))" "(let-values(((#%variable-reference412_0)" -"(let-values(((s_698)(car s_697))) s_698))" +"(let-values(((s_700)(car s_699))) s_700))" "((#%top413_0 id414_0)" -"(let-values(((s_699)(cdr s_697)))" -"(let-values(((s_700)" -"(if(syntax?$1 s_699)" -"(syntax-e$1 s_699)" -" s_699)))" -"(let-values(((#%top415_0 id416_0)" -"(let-values(((s_701)(car s_700)))" +"(let-values(((s_701)(cdr s_699)))" "(let-values(((s_702)" "(if(syntax?$1 s_701)" "(syntax-e$1 s_701)" " s_701)))" -"(let-values(((#%top417_0)" -"(let-values(((s_703)" -"(car" -" s_702)))" -" s_703))" -"((id418_0)" +"(let-values(((#%top415_0 id416_0)" +"(let-values(((s_703)(car s_702)))" "(let-values(((s_704)" -"(cdr" -" s_702)))" +"(if(syntax?$1 s_703)" +"(syntax-e$1 s_703)" +" s_703)))" +"(let-values(((#%top417_0)" +"(let-values(((s_705)" +"(car" " s_704)))" +" s_705))" +"((id418_0)" +"(let-values(((s_706)" +"(cdr" +" s_704)))" +" s_706)))" "(values #%top417_0 id418_0)))))" "(()" -"(let-values(((s_705)(cdr s_700)))" -"(let-values(((s_706)" -"(if(syntax?$1 s_705)" -"(syntax-e$1 s_705)" -" s_705)))" +"(let-values(((s_707)(cdr s_702)))" +"(let-values(((s_708)" +"(if(syntax?$1 s_707)" +"(syntax-e$1 s_707)" +" s_707)))" "(values)))))" "(values #%top415_0 id416_0))))))" "(values #%variable-reference412_0 #%top413_0 id414_0)))))" "(values #t #%variable-reference409_1 #%top410_1 id411_1)))" "(values #f #f #f #f)))))" "(let-values(((ok?_56 #%variable-reference419_0)" -"(let-values(((s_707) disarmed-s_22))" -"(if(if(not(let-values(((or-part_393) ok?_54))(if or-part_393 or-part_393 ok?_55)))" +"(let-values(((s_709) disarmed-s_22))" +"(if(if(not(let-values(((or-part_392) ok?_54))(if or-part_392 or-part_392 ok?_55)))" " #t" " #f)" -"(let-values(((orig-s_59) s_707))" +"(let-values(((orig-s_59) s_709))" "(let-values(((#%variable-reference419_1)" -"(let-values(((s_708)(if(syntax?$1 s_707)(syntax-e$1 s_707) s_707)))" -"(if(pair? s_708)" +"(let-values(((s_710)(if(syntax?$1 s_709)(syntax-e$1 s_709) s_709)))" +"(if(pair? s_710)" "(let-values(((#%variable-reference420_0)" -"(let-values(((s_709)(car s_708))) s_709))" +"(let-values(((s_711)(car s_710))) s_711))" "(()" -"(let-values(((s_710)(cdr s_708)))" -"(let-values(((s_711)" -"(if(syntax?$1 s_710)" -"(syntax-e$1 s_710)" -" s_710)))" -"(if(null? s_711)" +"(let-values(((s_712)(cdr s_710)))" +"(let-values(((s_713)" +"(if(syntax?$1 s_712)" +"(syntax-e$1 s_712)" +" s_712)))" +"(if(null? s_713)" "(values)" "(raise-syntax-error$1" " #f" @@ -67169,63 +67458,63 @@ static const char *startup_source = " (raise-syntax-error$1 #f \"bad syntax\" orig-s_59)))))" "(values #t #%variable-reference419_1)))" "(values #f #f)))))" -"(if(let-values(((or-part_394) ok?_54))(if or-part_394 or-part_394 ok?_55))" +"(if(let-values(((or-part_393) ok?_54))(if or-part_393 or-part_393 ok?_55))" "(let-values()" "(let-values(((var-id_0)(if ok?_54 id405_0 id411_0)))" -"(let-values(((binding_32)" +"(let-values(((binding_31)" "(let-values(((var-id421_0) var-id_0)" "((temp422_0)(expand-context-phase ctx_100))" "((temp423_0) 'ambiguous))" "(resolve+shift30.1 temp423_0 #t #f #f #f #f #f #f #f #f var-id421_0 temp422_0))))" "(let-values((()" "(begin" -"(if(eq? binding_32 'ambiguous)" +"(if(eq? binding_31 'ambiguous)" "(let-values()(raise-ambiguous-error var-id_0 ctx_100))" "(void))" "(values))))" "(let-values((()" "(begin" -"(if(let-values(((or-part_395) binding_32))" -"(if or-part_395 or-part_395(expand-context-allow-unbound? ctx_100)))" +"(if(let-values(((or-part_394) binding_31))" +"(if or-part_394 or-part_394(expand-context-allow-unbound? ctx_100)))" "(void)" "(let-values()" "(raise-unbound-syntax-error" " #f" " \"unbound identifier\"" -" s_670" +" s_672" " var-id_0" " null" "(syntax-debug-info-string var-id_0 ctx_100))))" "(values))))" "(let-values(((t_59 primitive?_12 insp-of-t_7 protected?_13)" -"(if binding_32" -"(let-values(((binding424_0) binding_32)" +"(if binding_31" +"(let-values(((binding424_0) binding_31)" "((ctx425_0) ctx_100)" "((var-id426_0) var-id_0)" -"((s427_0) s_670)" +"((s427_0) s_672)" "((temp428_0)(expand-context-in-local-expand? ctx_100)))" "(lookup17.1 s427_0 #t temp428_0 #t binding424_0 ctx425_0 var-id426_0))" "(values #f #f #f #f))))" "(begin" "(if(if t_59(not(variable? t_59)) #f)" "(let-values()" -" (raise-syntax-error$1 #f \"identifier does not refer to a variable\" var-id_0 s_670))" +" (raise-syntax-error$1 #f \"identifier does not refer to a variable\" var-id_0 s_672))" "(void))" "(if(expand-context-to-parsed? ctx_100)" "(parsed-#%variable-reference11.1" -"(keep-properties-only~ s_670)" +"(keep-properties-only~ s_672)" "(if ok?_55" -"(let-values()(parsed-top-id4.1 var-id_0 binding_32 #f))" -"(let-values()(parsed-id2.1 var-id_0 binding_32 #f))))" -" s_670))))))))" +"(let-values()(parsed-top-id4.1 var-id_0 binding_31 #f))" +"(let-values()(parsed-id2.1 var-id_0 binding_31 #f))))" +" s_672))))))))" "(let-values()" "(if(expand-context-to-parsed? ctx_100)" -"(parsed-#%variable-reference11.1(keep-properties-only~ s_670) #f)" -" s_670)))))))))))" +"(parsed-#%variable-reference11.1(keep-properties-only~ s_672) #f)" +" s_672)))))))))))" "(void" "(add-core-form!*" " '#%expression" -"(lambda(s_712 ctx_101)" +"(lambda(s_714 ctx_101)" "(let-values((()" "(begin" "(let-values(((obs_123)(expand-context-observer ctx_101)))" @@ -67233,32 +67522,32 @@ static const char *startup_source = "(let-values()(let-values()(call-expand-observe obs_123 'prim-#%expression)))" "(void)))" "(values))))" -"(let-values(((disarmed-s_23)(syntax-disarm$1 s_712)))" +"(let-values(((disarmed-s_23)(syntax-disarm$1 s_714)))" "(let-values(((ok?_57 #%expression429_0 e430_0)" -"(let-values(((s_713) disarmed-s_23))" -"(let-values(((orig-s_60) s_713))" +"(let-values(((s_715) disarmed-s_23))" +"(let-values(((orig-s_60) s_715))" "(let-values(((#%expression429_1 e430_1)" -"(let-values(((s_714)(if(syntax?$1 s_713)(syntax-e$1 s_713) s_713)))" -"(if(pair? s_714)" +"(let-values(((s_716)(if(syntax?$1 s_715)(syntax-e$1 s_715) s_715)))" +"(if(pair? s_716)" "(let-values(((#%expression431_0)" -"(let-values(((s_715)(car s_714))) s_715))" +"(let-values(((s_717)(car s_716))) s_717))" "((e432_0)" -"(let-values(((s_716)(cdr s_714)))" -"(let-values(((s_717)" -"(if(syntax?$1 s_716)" -"(syntax-e$1 s_716)" -" s_716)))" -"(if(pair? s_717)" +"(let-values(((s_718)(cdr s_716)))" +"(let-values(((s_719)" +"(if(syntax?$1 s_718)" +"(syntax-e$1 s_718)" +" s_718)))" +"(if(pair? s_719)" "(let-values(((e433_0)" -"(let-values(((s_718)(car s_717)))" -" s_718))" +"(let-values(((s_720)(car s_719)))" +" s_720))" "(()" -"(let-values(((s_719)(cdr s_717)))" -"(let-values(((s_720)" -"(if(syntax?$1 s_719)" -"(syntax-e$1 s_719)" -" s_719)))" -"(if(null? s_720)" +"(let-values(((s_721)(cdr s_719)))" +"(let-values(((s_722)" +"(if(syntax?$1 s_721)" +"(syntax-e$1 s_721)" +" s_721)))" +"(if(null? s_722)" "(values)" "(raise-syntax-error$1" " #f" @@ -67270,7 +67559,7 @@ static const char *startup_source = " (raise-syntax-error$1 #f \"bad syntax\" orig-s_60)))))" "(values #t #%expression429_1 e430_1))))))" "(let-values(((rebuild-s_13)" -"(let-values(((ctx434_0) ctx_101)((s435_0) s_712)((temp436_0) #t))" +"(let-values(((ctx434_0) ctx_101)((s435_0) s_714)((temp436_0) #t))" "(keep-as-needed74.1 temp436_0 #t #f #f #f #f ctx434_0 s435_0))))" "(let-values(((exp-e_0)" "(let-values(((temp437_0) e430_0)" @@ -67297,8 +67586,8 @@ static const char *startup_source = "(let-values()" "(let-values(((rebuild-s441_0) rebuild-s_13)((temp442_0)(list #%expression429_0 exp-e_0)))" "(rebuild5.1 #f #f rebuild-s441_0 temp442_0))))))))))))))" -" (void (add-core-form!* 'unquote (lambda (s_721 ctx_102) (raise-syntax-error$1 #f \"not in quasiquote\" s_721))))" -" (void (add-core-form!* 'unquote-splicing (lambda (s_722 ctx_103) (raise-syntax-error$1 #f \"not in quasiquote\" s_722))))" +" (void (add-core-form!* 'unquote (lambda (s_723 ctx_102) (raise-syntax-error$1 #f \"not in quasiquote\" s_723))))" +" (void (add-core-form!* 'unquote-splicing (lambda (s_724 ctx_103) (raise-syntax-error$1 #f \"not in quasiquote\" s_724))))" "(define-values" "(binding-for-transformer?)" "(lambda(b_41 id_131 at-phase_12 ns_122)" @@ -67314,7 +67603,7 @@ static const char *startup_source = " #f)))" "(provided-as-transformer? b/p_4))))" "(let-values()" -"(let-values(((val_82 primitive?_13 insp_25 protected?_14)" +"(let-values(((val_84 primitive?_13 insp_25 protected?_14)" "(let-values(((b1_8) b_41)" "((empty-env2_0) empty-env)" "((null3_0) null)" @@ -67322,39 +67611,39 @@ static const char *startup_source = "((at-phase5_0) at-phase_12)" "((id6_0) id_131))" "(binding-lookup50.1 #f #f #f #f b1_8 empty-env2_0 null3_0 ns4_0 at-phase5_0 id6_0))))" -"(not(variable? val_82))))))))" +"(not(variable? val_84))))))))" "(define-values(layers) '(raw phaseless id))" "(define-values(provide-form-name) 'provide)" "(define-values" "(parse-and-expand-provides!)" -"(lambda(specs_0 orig-s_61 rp_1 self_30 phase_43 ctx_104)" +"(lambda(specs_0 orig-s_61 rp_1 self_30 phase_44 ctx_104)" "(begin" "(let-values(((ns_123)(expand-context-namespace ctx_104)))" -"((letrec-values(((loop_113)" +"((letrec-values(((loop_114)" "(lambda(specs_1 at-phase_13 protected?_15 layer_6)" "(begin" " 'loop" "(let-values(((track-stxess_0 exp-specss_0)" "(let-values(((track-stxes_0 exp-specs_0)" -"(let-values(((lst_77) specs_1))" +"(let-values(((lst_78) specs_1))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_77)))" -"((letrec-values(((for-loop_91)" +"(let-values()(check-list lst_78)))" +"((letrec-values(((for-loop_95)" "(lambda(track-stxes_1" " exp-specs_1" -" lst_405)" +" lst_403)" "(begin" " 'for-loop" -"(if(pair? lst_405)" +"(if(pair? lst_403)" "(let-values(((spec_0)" "(unsafe-car" -" lst_405))" -"((rest_228)" +" lst_403))" +"((rest_233)" "(unsafe-cdr" -" lst_405)))" +" lst_403)))" "(let-values(((track-stxes_2" " exp-specs_2)" "(let-values(((track-stxes_3)" @@ -67493,57 +67782,57 @@ static const char *startup_source = " for-meta3_0" " phase-level4_0" " spec5_0)" -"(let-values(((s_303)" +"(let-values(((s_308)" " disarmed-spec_0))" "(let-values(((orig-s_62)" -" s_303))" +" s_308))" "(let-values(((for-meta3_1" " phase-level4_1" " spec5_1)" -"(let-values(((s_304)" +"(let-values(((s_309)" "(if(syntax?$1" -" s_303)" +" s_308)" "(syntax-e$1" -" s_303)" -" s_303)))" +" s_308)" +" s_308)))" "(if(pair?" -" s_304)" +" s_309)" "(let-values(((for-meta6_0)" -"(let-values(((s_175)" +"(let-values(((s_178)" "(car" -" s_304)))" -" s_175))" +" s_309)))" +" s_178))" "((phase-level7_0" " spec8_0)" "(let-values(((s_75)" "(cdr" -" s_304)))" -"(let-values(((s_723)" +" s_309)))" +"(let-values(((s_725)" "(if(syntax?$1" " s_75)" "(syntax-e$1" " s_75)" " s_75)))" "(if(pair?" -" s_723)" +" s_725)" "(let-values(((phase-level9_0)" -"(let-values(((s_177)" +"(let-values(((s_180)" "(car" -" s_723)))" -" s_177))" +" s_725)))" +" s_180))" "((spec10_0)" -"(let-values(((s_459)" +"(let-values(((s_469)" "(cdr" -" s_723)))" -"(let-values(((s_466)" +" s_725)))" +"(let-values(((s_476)" "(if(syntax?$1" -" s_459)" +" s_469)" "(syntax-e$1" -" s_459)" -" s_459)))" +" s_469)" +" s_469)))" "(let-values(((flat-s_42)" "(to-syntax-list.1" -" s_466)))" +" s_476)))" "(if(not" " flat-s_42)" "(let-values()" @@ -67573,13 +67862,13 @@ static const char *startup_source = " for-meta3_1" " phase-level4_1" " spec5_1))))))" -"(let-values(((p_70)" +"(let-values(((p_71)" "(syntax-e$1" " phase-level4_0)))" "(let-values((()" "(begin" "(if(phase?" -" p_70)" +" p_71)" "(void)" "(let-values()" "(raise-syntax-error$1" @@ -67590,10 +67879,10 @@ static const char *startup_source = "(values))))" "(let-values(((track-stxes_5" " exp-specs_5)" -"(loop_113" +"(loop_114" " spec5_0" "(phase+" -" p_70" +" p_71" " at-phase_13)" " protected?_15" " 'phaseless)))" @@ -67641,15 +67930,15 @@ static const char *startup_source = "(if(pair?" " s_23)" "(let-values(((for-syntax15_0)" -"(let-values(((s_425)" +"(let-values(((s_432)" "(car" " s_23)))" -" s_425))" +" s_432))" "((spec16_0)" "(let-values(((s_25)" "(cdr" " s_23)))" -"(let-values(((s_724)" +"(let-values(((s_726)" "(if(syntax?$1" " s_25)" "(syntax-e$1" @@ -67657,7 +67946,7 @@ static const char *startup_source = " s_25)))" "(let-values(((flat-s_43)" "(to-syntax-list.1" -" s_724)))" +" s_726)))" "(if(not" " flat-s_43)" "(let-values()" @@ -67680,7 +67969,7 @@ static const char *startup_source = " spec14_1))))))" "(let-values(((track-stxes_6" " exp-specs_6)" -"(loop_113" +"(loop_114" " spec14_0" "(phase+" " 1" @@ -67721,24 +68010,24 @@ static const char *startup_source = " s_44))" "(let-values(((for-label19_1" " spec20_1)" -"(let-values(((s_476)" +"(let-values(((s_484)" "(if(syntax?$1" " s_44)" "(syntax-e$1" " s_44)" " s_44)))" "(if(pair?" -" s_476)" +" s_484)" "(let-values(((for-label21_0)" -"(let-values(((s_473)" +"(let-values(((s_482)" "(car" -" s_476)))" -" s_473))" +" s_484)))" +" s_482))" "((spec22_0)" "(let-values(((s_45)" "(cdr" -" s_476)))" -"(let-values(((s_305)" +" s_484)))" +"(let-values(((s_310)" "(if(syntax?$1" " s_45)" "(syntax-e$1" @@ -67746,7 +68035,7 @@ static const char *startup_source = " s_45)))" "(let-values(((flat-s_44)" "(to-syntax-list.1" -" s_305)))" +" s_310)))" "(if(not" " flat-s_44)" "(let-values()" @@ -67769,7 +68058,7 @@ static const char *startup_source = " spec20_1))))))" "(let-values(((track-stxes_7" " exp-specs_7)" -"(loop_113" +"(loop_114" " spec20_0" " #f" " protected?_15" @@ -67813,38 +68102,38 @@ static const char *startup_source = "(let-values(((ok?_61" " protect25_0" " p-spec26_0)" -"(let-values(((s_82)" +"(let-values(((s_727)" " disarmed-spec_0))" "(let-values(((orig-s_65)" -" s_82))" +" s_727))" "(let-values(((protect25_1" " p-spec26_1)" "(let-values(((s_31)" "(if(syntax?$1" -" s_82)" +" s_727)" "(syntax-e$1" -" s_82)" -" s_82)))" +" s_727)" +" s_727)))" "(if(pair?" " s_31)" "(let-values(((protect27_0)" -"(let-values(((s_725)" +"(let-values(((s_83)" "(car" " s_31)))" -" s_725))" +" s_83))" "((p-spec28_0)" -"(let-values(((s_308)" +"(let-values(((s_313)" "(cdr" " s_31)))" -"(let-values(((s_479)" +"(let-values(((s_487)" "(if(syntax?$1" -" s_308)" +" s_313)" "(syntax-e$1" -" s_308)" -" s_308)))" +" s_313)" +" s_313)))" "(let-values(((flat-s_45)" "(to-syntax-list.1" -" s_479)))" +" s_487)))" "(if(not" " flat-s_45)" "(let-values()" @@ -67867,7 +68156,7 @@ static const char *startup_source = " p-spec26_1))))))" "(let-values(((track-stxes_8" " exp-specs_8)" -"(loop_113" +"(loop_114" " p-spec26_0" " at-phase_13" " #t" @@ -67898,43 +68187,43 @@ static const char *startup_source = " rename31_0" " id:from32_0" " id:to33_0)" -"(let-values(((s_726)" +"(let-values(((s_728)" " disarmed-spec_0))" "(let-values(((orig-s_66)" -" s_726))" +" s_728))" "(let-values(((rename31_1" " id:from32_1" " id:to33_1)" -"(let-values(((s_482)" +"(let-values(((s_490)" "(if(syntax?$1" -" s_726)" +" s_728)" "(syntax-e$1" -" s_726)" -" s_726)))" +" s_728)" +" s_728)))" "(if(pair?" -" s_482)" +" s_490)" "(let-values(((rename34_0)" -"(let-values(((s_314)" +"(let-values(((s_319)" "(car" -" s_482)))" -" s_314))" +" s_490)))" +" s_319))" "((id:from35_0" " id:to36_0)" -"(let-values(((s_394)" +"(let-values(((s_402)" "(cdr" -" s_482)))" -"(let-values(((s_315)" +" s_490)))" +"(let-values(((s_320)" "(if(syntax?$1" -" s_394)" +" s_402)" "(syntax-e$1" -" s_394)" -" s_394)))" +" s_402)" +" s_402)))" "(if(pair?" -" s_315)" +" s_320)" "(let-values(((id:from37_0)" "(let-values(((s_33)" "(car" -" s_315)))" +" s_320)))" "(if(let-values(((or-part_58)" "(if(syntax?$1" " s_33)" @@ -67953,50 +68242,50 @@ static const char *startup_source = " orig-s_66" " s_33))))" "((id:to38_0)" -"(let-values(((s_727)" -"(cdr" -" s_315)))" -"(let-values(((s_728)" -"(if(syntax?$1" -" s_727)" -"(syntax-e$1" -" s_727)" -" s_727)))" -"(if(pair?" -" s_728)" -"(let-values(((id:to39_0)" -"(let-values(((s_429)" -"(car" -" s_728)))" -"(if(let-values(((or-part_100)" -"(if(syntax?$1" -" s_429)" -"(symbol?" -"(syntax-e$1" -" s_429))" -" #f)))" -"(if or-part_100" -" or-part_100" -"(symbol?" -" s_429)))" -" s_429" -"(raise-syntax-error$1" -" #f" -" \"not an identifier\"" -" orig-s_66" -" s_429))))" -"(()" "(let-values(((s_729)" "(cdr" -" s_728)))" -"(let-values(((s_381)" +" s_320)))" +"(let-values(((s_730)" "(if(syntax?$1" " s_729)" "(syntax-e$1" " s_729)" " s_729)))" +"(if(pair?" +" s_730)" +"(let-values(((id:to39_0)" +"(let-values(((s_436)" +"(car" +" s_730)))" +"(if(let-values(((or-part_395)" +"(if(syntax?$1" +" s_436)" +"(symbol?" +"(syntax-e$1" +" s_436))" +" #f)))" +"(if or-part_395" +" or-part_395" +"(symbol?" +" s_436)))" +" s_436" +"(raise-syntax-error$1" +" #f" +" \"not an identifier\"" +" orig-s_66" +" s_436))))" +"(()" +"(let-values(((s_731)" +"(cdr" +" s_730)))" +"(let-values(((s_389)" +"(if(syntax?$1" +" s_731)" +"(syntax-e$1" +" s_731)" +" s_731)))" "(if(null?" -" s_381)" +" s_389)" "(values)" "(raise-syntax-error$1" " #f" @@ -68065,70 +68354,70 @@ static const char *startup_source = "(let-values(((struct40_1" " id:struct41_1" " id:field42_1)" -"(let-values(((s_409)" +"(let-values(((s_416)" "(if(syntax?$1" " s_36)" "(syntax-e$1" " s_36)" " s_36)))" "(if(pair?" -" s_409)" +" s_416)" "(let-values(((struct43_0)" -"(let-values(((s_196)" +"(let-values(((s_200)" "(car" -" s_409)))" -" s_196))" +" s_416)))" +" s_200))" "((id:struct44_0" " id:field45_0)" -"(let-values(((s_730)" -"(cdr" -" s_409)))" -"(let-values(((s_83)" -"(if(syntax?$1" -" s_730)" -"(syntax-e$1" -" s_730)" -" s_730)))" -"(if(pair?" -" s_83)" -"(let-values(((id:struct46_0)" -"(let-values(((s_731)" -"(car" -" s_83)))" -"(if(let-values(((or-part_362)" -"(if(syntax?$1" -" s_731)" -"(symbol?" -"(syntax-e$1" -" s_731))" -" #f)))" -"(if or-part_362" -" or-part_362" -"(symbol?" -" s_731)))" -" s_731" -"(raise-syntax-error$1" -" #f" -" \"not an identifier\"" -" orig-s_67" -" s_731))))" -"((id:field47_0)" "(let-values(((s_732)" "(cdr" -" s_83)))" -"(let-values(((s_388)" +" s_416)))" +"(let-values(((s_733)" "(if(syntax?$1" " s_732)" "(syntax-e$1" " s_732)" " s_732)))" "(if(pair?" -" s_388)" +" s_733)" +"(let-values(((id:struct46_0)" +"(let-values(((s_734)" +"(car" +" s_733)))" +"(if(let-values(((or-part_362)" +"(if(syntax?$1" +" s_734)" +"(symbol?" +"(syntax-e$1" +" s_734))" +" #f)))" +"(if or-part_362" +" or-part_362" +"(symbol?" +" s_734)))" +" s_734" +"(raise-syntax-error$1" +" #f" +" \"not an identifier\"" +" orig-s_67" +" s_734))))" +"((id:field47_0)" +"(let-values(((s_735)" +"(cdr" +" s_733)))" +"(let-values(((s_396)" +"(if(syntax?$1" +" s_735)" +"(syntax-e$1" +" s_735)" +" s_735)))" +"(if(pair?" +" s_396)" "(let-values(((id:field48_0)" "(let-values(((s_62)" "(car" -" s_388)))" -"(let-values(((s_733)" +" s_396)))" +"(let-values(((s_736)" "(if(syntax?$1" " s_62)" "(syntax-e$1" @@ -68136,7 +68425,7 @@ static const char *startup_source = " s_62)))" "(let-values(((flat-s_46)" "(to-syntax-list.1" -" s_733)))" +" s_736)))" "(if(not" " flat-s_46)" "(let-values()" @@ -68210,17 +68499,17 @@ static const char *startup_source = "(reverse$1" " id:field_0))))))))" "(()" -"(let-values(((s_200)" +"(let-values(((s_204)" "(cdr" -" s_388)))" -"(let-values(((s_734)" +" s_396)))" +"(let-values(((s_737)" "(if(syntax?$1" -" s_200)" +" s_204)" "(syntax-e$1" -" s_200)" -" s_200)))" +" s_204)" +" s_204)))" "(if(null?" -" s_734)" +" s_737)" "(values)" "(raise-syntax-error$1" " #f" @@ -68277,54 +68566,54 @@ static const char *startup_source = "(let-values(((ok?_64" " all-from50_0" " mod-path51_0)" -"(let-values(((s_735)" +"(let-values(((s_738)" " disarmed-spec_0))" "(let-values(((orig-s_68)" -" s_735))" +" s_738))" "(let-values(((all-from50_1" " mod-path51_1)" -"(let-values(((s_736)" +"(let-values(((s_739)" "(if(syntax?$1" -" s_735)" +" s_738)" "(syntax-e$1" -" s_735)" -" s_735)))" +" s_738)" +" s_738)))" "(if(pair?" -" s_736)" +" s_739)" "(let-values(((all-from52_0)" -"(let-values(((s_737)" +"(let-values(((s_740)" "(car" -" s_736)))" -" s_737))" +" s_739)))" +" s_740))" "((mod-path53_0)" -"(let-values(((s_203)" +"(let-values(((s_207)" "(cdr" -" s_736)))" -"(let-values(((s_204)" +" s_739)))" +"(let-values(((s_88)" "(if(syntax?$1" -" s_203)" +" s_207)" "(syntax-e$1" -" s_203)" -" s_203)))" +" s_207)" +" s_207)))" "(if(pair?" -" s_204)" +" s_88)" "(let-values(((mod-path54_0)" -"(let-values(((s_90)" +"(let-values(((s_741)" "(car" -" s_204)))" -" s_90))" +" s_88)))" +" s_741))" "(()" -"(let-values(((s_406)" +"(let-values(((s_413)" "(cdr" -" s_204)))" -"(let-values(((s_320)" +" s_88)))" +"(let-values(((s_326)" "(if(syntax?$1" -" s_406)" +" s_413)" "(syntax-e$1" -" s_406)" -" s_406)))" +" s_413)" +" s_413)))" "(if(null?" -" s_320)" +" s_326)" "(values)" "(raise-syntax-error$1" " #f" @@ -68372,57 +68661,57 @@ static const char *startup_source = " all-from-except55_0" " mod-path56_0" " id57_0)" -"(let-values(((s_206)" +"(let-values(((s_210)" " disarmed-spec_0))" "(let-values(((orig-s_69)" -" s_206))" +" s_210))" "(let-values(((all-from-except55_1" " mod-path56_1" " id57_1)" -"(let-values(((s_95)" +"(let-values(((s_212)" "(if(syntax?$1" -" s_206)" +" s_210)" "(syntax-e$1" -" s_206)" -" s_206)))" +" s_210)" +" s_210)))" "(if(pair?" -" s_95)" +" s_212)" "(let-values(((all-from-except58_0)" -"(let-values(((s_738)" +"(let-values(((s_742)" "(car" -" s_95)))" -" s_738))" +" s_212)))" +" s_742))" "((mod-path59_0" " id60_0)" -"(let-values(((s_99)" +"(let-values(((s_162)" "(cdr" -" s_95)))" -"(let-values(((s_486)" +" s_212)))" +"(let-values(((s_493)" "(if(syntax?$1" -" s_99)" +" s_162)" "(syntax-e$1" -" s_99)" -" s_99)))" +" s_162)" +" s_162)))" "(if(pair?" -" s_486)" +" s_493)" "(let-values(((mod-path61_0)" -"(let-values(((s_397)" +"(let-values(((s_94)" "(car" -" s_486)))" -" s_397))" +" s_493)))" +" s_94))" "((id62_0)" -"(let-values(((s_739)" +"(let-values(((s_743)" "(cdr" -" s_486)))" -"(let-values(((s_740)" +" s_493)))" +"(let-values(((s_744)" "(if(syntax?$1" -" s_739)" +" s_743)" "(syntax-e$1" -" s_739)" -" s_739)))" +" s_743)" +" s_743)))" "(let-values(((flat-s_47)" "(to-syntax-list.1" -" s_740)))" +" s_744)))" "(if(not" " flat-s_47)" "(let-values()" @@ -68432,7 +68721,7 @@ static const char *startup_source = " orig-s_69))" "(let-values()" "(let-values(((id_132)" -"(let-values(((lst_406)" +"(let-values(((lst_44)" " flat-s_47))" "(begin" "(if(variable-reference-from-unsafe?" @@ -68440,20 +68729,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_406)))" +" lst_44)))" "((letrec-values(((for-loop_315)" "(lambda(id_133" -" lst_407)" +" lst_404)" "(begin" " 'for-loop" "(if(pair?" -" lst_407)" -"(let-values(((s_489)" +" lst_404)" +"(let-values(((s_97)" "(unsafe-car" -" lst_407))" -"((rest_229)" +" lst_404))" +"((rest_234)" "(unsafe-cdr" -" lst_407)))" +" lst_404)))" "(let-values(((id_134)" "(let-values(((id_135)" " id_133))" @@ -68463,21 +68752,21 @@ static const char *startup_source = "(let-values()" "(if(let-values(((or-part_397)" "(if(syntax?$1" -" s_489)" +" s_97)" "(symbol?" "(syntax-e$1" -" s_489))" +" s_97))" " #f)))" "(if or-part_397" " or-part_397" "(symbol?" -" s_489)))" -" s_489" +" s_97)))" +" s_97" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_69" -" s_489)))))" +" s_97)))))" "(cons" " id63_0" " id_135)))))" @@ -68487,12 +68776,12 @@ static const char *startup_source = " #f)" "(for-loop_315" " id_134" -" rest_229)" +" rest_234)" " id_134)))" " id_133)))))" " for-loop_315)" " null" -" lst_406)))))" +" lst_44)))))" "(reverse$1" " id_132)))))))))" "(values" @@ -68544,36 +68833,36 @@ static const char *startup_source = "(values))))" "(let-values(((ok?_66" " all-defined64_0)" -"(let-values(((s_210)" +"(let-values(((s_218)" " disarmed-spec_0))" "(let-values(((orig-s_70)" -" s_210))" +" s_218))" "(let-values(((all-defined64_1)" -"(let-values(((s_390)" +"(let-values(((s_398)" "(if(syntax?$1" -" s_210)" +" s_218)" "(syntax-e$1" -" s_210)" -" s_210)))" +" s_218)" +" s_218)))" "(if(pair?" -" s_390)" +" s_398)" "(let-values(((all-defined65_0)" -"(let-values(((s_741)" +"(let-values(((s_745)" "(car" -" s_390)))" -" s_741))" +" s_398)))" +" s_745))" "(()" -"(let-values(((s_742)" +"(let-values(((s_103)" "(cdr" -" s_390)))" -"(let-values(((s_108)" +" s_398)))" +"(let-values(((s_104)" "(if(syntax?$1" -" s_742)" +" s_103)" "(syntax-e$1" -" s_742)" -" s_742)))" +" s_103)" +" s_103)))" "(if(null?" -" s_108)" +" s_104)" "(values)" "(raise-syntax-error$1" " #f" @@ -68612,38 +68901,38 @@ static const char *startup_source = "(let-values(((ok?_67" " all-defined-except66_0" " id67_0)" -"(let-values(((s_413)" +"(let-values(((s_420)" " disarmed-spec_0))" "(let-values(((orig-s_71)" -" s_413))" +" s_420))" "(let-values(((all-defined-except66_1" " id67_1)" -"(let-values(((s_213)" +"(let-values(((s_221)" "(if(syntax?$1" -" s_413)" +" s_420)" "(syntax-e$1" -" s_413)" -" s_413)))" +" s_420)" +" s_420)))" "(if(pair?" -" s_213)" +" s_221)" "(let-values(((all-defined-except68_0)" -"(let-values(((s_743)" +"(let-values(((s_110)" "(car" -" s_213)))" -" s_743))" +" s_221)))" +" s_110))" "((id69_0)" -"(let-values(((s_214)" +"(let-values(((s_222)" "(cdr" -" s_213)))" -"(let-values(((s_215)" +" s_221)))" +"(let-values(((s_223)" "(if(syntax?$1" -" s_214)" +" s_222)" "(syntax-e$1" -" s_214)" -" s_214)))" +" s_222)" +" s_222)))" "(let-values(((flat-s_48)" "(to-syntax-list.1" -" s_215)))" +" s_223)))" "(if(not" " flat-s_48)" "(let-values()" @@ -68653,7 +68942,7 @@ static const char *startup_source = " orig-s_71))" "(let-values()" "(let-values(((id_137)" -"(let-values(((lst_408)" +"(let-values(((lst_405)" " flat-s_48))" "(begin" "(if(variable-reference-from-unsafe?" @@ -68661,20 +68950,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_408)))" +" lst_405)))" "((letrec-values(((for-loop_316)" "(lambda(id_138" -" lst_409)" +" lst_406)" "(begin" " 'for-loop" "(if(pair?" -" lst_409)" -"(let-values(((s_744)" +" lst_406)" +"(let-values(((s_746)" "(unsafe-car" -" lst_409))" -"((rest_230)" +" lst_406))" +"((rest_235)" "(unsafe-cdr" -" lst_409)))" +" lst_406)))" "(let-values(((id_139)" "(let-values(((id_140)" " id_138))" @@ -68682,23 +68971,23 @@ static const char *startup_source = "(let-values()" "(let-values(((id70_0)" "(let-values()" -"(if(let-values(((or-part_398)" +"(if(let-values(((or-part_182)" "(if(syntax?$1" -" s_744)" +" s_746)" "(symbol?" "(syntax-e$1" -" s_744))" +" s_746))" " #f)))" -"(if or-part_398" -" or-part_398" +"(if or-part_182" +" or-part_182" "(symbol?" -" s_744)))" -" s_744" +" s_746)))" +" s_746" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_71" -" s_744)))))" +" s_746)))))" "(cons" " id70_0" " id_140)))))" @@ -68708,12 +68997,12 @@ static const char *startup_source = " #f)" "(for-loop_316" " id_139" -" rest_230)" +" rest_235)" " id_139)))" " id_138)))))" " for-loop_316)" " null" -" lst_408)))))" +" lst_405)))))" "(reverse$1" " id_137)))))))))" "(values" @@ -68754,62 +69043,62 @@ static const char *startup_source = "(let-values(((ok?_68" " prefix-all-defined71_0" " id:prefix72_0)" -"(let-values(((s_745)" +"(let-values(((s_118)" " disarmed-spec_0))" "(let-values(((orig-s_72)" -" s_745))" +" s_118))" "(let-values(((prefix-all-defined71_1" " id:prefix72_1)" -"(let-values(((s_415)" +"(let-values(((s_422)" "(if(syntax?$1" -" s_745)" +" s_118)" "(syntax-e$1" -" s_745)" -" s_745)))" +" s_118)" +" s_118)))" "(if(pair?" -" s_415)" +" s_422)" "(let-values(((prefix-all-defined73_0)" -"(let-values(((s_746)" +"(let-values(((s_119)" "(car" -" s_415)))" -" s_746))" +" s_422)))" +" s_119))" "((id:prefix74_0)" "(let-values(((s_747)" "(cdr" -" s_415)))" -"(let-values(((s_504)" +" s_422)))" +"(let-values(((s_508)" "(if(syntax?$1" " s_747)" "(syntax-e$1" " s_747)" " s_747)))" "(if(pair?" -" s_504)" +" s_508)" "(let-values(((id:prefix75_0)" -"(let-values(((s_505)" +"(let-values(((s_120)" "(car" -" s_504)))" -"(if(let-values(((or-part_399)" +" s_508)))" +"(if(let-values(((or-part_109)" "(if(syntax?$1" -" s_505)" +" s_120)" "(symbol?" "(syntax-e$1" -" s_505))" +" s_120))" " #f)))" -"(if or-part_399" -" or-part_399" +"(if or-part_109" +" or-part_109" "(symbol?" -" s_505)))" -" s_505" +" s_120)))" +" s_120" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_72" -" s_505))))" +" s_120))))" "(()" "(let-values(((s_748)" "(cdr" -" s_504)))" +" s_508)))" "(let-values(((s_749)" "(if(syntax?$1" " s_748)" @@ -68869,73 +69158,73 @@ static const char *startup_source = " prefix-all-defined-except76_0" " id:prefix77_0" " id78_0)" -"(let-values(((s_231)" +"(let-values(((s_236)" " disarmed-spec_0))" "(let-values(((orig-s_73)" -" s_231))" +" s_236))" "(let-values(((prefix-all-defined-except76_1" " id:prefix77_1" " id78_1)" -"(let-values(((s_330)" +"(let-values(((s_337)" "(if(syntax?$1" -" s_231)" +" s_236)" "(syntax-e$1" -" s_231)" -" s_231)))" +" s_236)" +" s_236)))" "(if(pair?" -" s_330)" +" s_337)" "(let-values(((prefix-all-defined-except79_0)" -"(let-values(((s_333)" +"(let-values(((s_340)" "(car" -" s_330)))" -" s_333))" +" s_337)))" +" s_340))" "((id:prefix80_0" " id81_0)" -"(let-values(((s_334)" +"(let-values(((s_341)" "(cdr" -" s_330)))" -"(let-values(((s_335)" +" s_337)))" +"(let-values(((s_342)" "(if(syntax?$1" -" s_334)" +" s_341)" "(syntax-e$1" -" s_334)" -" s_334)))" +" s_341)" +" s_341)))" "(if(pair?" -" s_335)" +" s_342)" "(let-values(((id:prefix82_0)" -"(let-values(((s_338)" +"(let-values(((s_345)" "(car" -" s_335)))" -"(if(let-values(((or-part_400)" +" s_342)))" +"(if(let-values(((or-part_398)" "(if(syntax?$1" -" s_338)" +" s_345)" "(symbol?" "(syntax-e$1" -" s_338))" +" s_345))" " #f)))" -"(if or-part_400" -" or-part_400" +"(if or-part_398" +" or-part_398" "(symbol?" -" s_338)))" -" s_338" +" s_345)))" +" s_345" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_73" -" s_338))))" +" s_345))))" "((id83_1)" -"(let-values(((s_340)" +"(let-values(((s_347)" "(cdr" -" s_335)))" -"(let-values(((s_509)" +" s_342)))" +"(let-values(((s_511)" "(if(syntax?$1" -" s_340)" +" s_347)" "(syntax-e$1" -" s_340)" -" s_340)))" +" s_347)" +" s_347)))" "(let-values(((flat-s_49)" "(to-syntax-list.1" -" s_509)))" +" s_511)))" "(if(not" " flat-s_49)" "(let-values()" @@ -68956,17 +69245,17 @@ static const char *startup_source = " lst_4)))" "((letrec-values(((for-loop_317)" "(lambda(id_142" -" lst_410)" +" lst_407)" "(begin" " 'for-loop" "(if(pair?" -" lst_410)" -"(let-values(((s_510)" +" lst_407)" +"(let-values(((s_512)" "(unsafe-car" -" lst_410))" -"((rest_186)" +" lst_407))" +"((rest_190)" "(unsafe-cdr" -" lst_410)))" +" lst_407)))" "(let-values(((id_143)" "(let-values(((id_144)" " id_142))" @@ -68974,23 +69263,23 @@ static const char *startup_source = "(let-values()" "(let-values(((id84_2)" "(let-values()" -"(if(let-values(((or-part_401)" +"(if(let-values(((or-part_399)" "(if(syntax?$1" -" s_510)" +" s_512)" "(symbol?" "(syntax-e$1" -" s_510))" +" s_512))" " #f)))" -"(if or-part_401" -" or-part_401" +"(if or-part_399" +" or-part_399" "(symbol?" -" s_510)))" -" s_510" +" s_512)))" +" s_512" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_73" -" s_510)))))" +" s_512)))))" "(cons" " id84_2" " id_144)))))" @@ -69000,7 +69289,7 @@ static const char *startup_source = " #f)" "(for-loop_317" " id_143" -" rest_186)" +" rest_190)" " id_143)))" " id_142)))))" " for-loop_317)" @@ -69049,78 +69338,78 @@ static const char *startup_source = " expand85_0" " id86_1" " datum87_0)" -"(let-values(((s_516)" +"(let-values(((s_518)" " disarmed-spec_0))" "(let-values(((orig-s_74)" -" s_516))" +" s_518))" "(let-values(((expand85_1" " id86_2" " datum87_1)" -"(let-values(((s_245)" +"(let-values(((s_250)" "(if(syntax?$1" -" s_516)" +" s_518)" "(syntax-e$1" -" s_516)" -" s_516)))" +" s_518)" +" s_518)))" "(if(pair?" -" s_245)" +" s_250)" "(let-values(((expand88_0)" -"(let-values(((s_246)" +"(let-values(((s_251)" "(car" -" s_245)))" -" s_246))" +" s_250)))" +" s_251))" "((id89_1" " datum90_0)" "(let-values(((s_750)" "(cdr" -" s_245)))" -"(let-values(((s_247)" +" s_250)))" +"(let-values(((s_252)" "(if(syntax?$1" " s_750)" "(syntax-e$1" " s_750)" " s_750)))" "(if(pair?" -" s_247)" +" s_252)" "(let-values(((id91_0" " datum92_0)" "(let-values(((s_751)" "(car" -" s_247)))" -"(let-values(((s_249)" +" s_252)))" +"(let-values(((s_254)" "(if(syntax?$1" " s_751)" "(syntax-e$1" " s_751)" " s_751)))" "(if(pair?" -" s_249)" +" s_254)" "(let-values(((id93_1)" -"(let-values(((s_520)" +"(let-values(((s_522)" "(car" -" s_249)))" -"(if(let-values(((or-part_402)" +" s_254)))" +"(if(let-values(((or-part_400)" "(if(syntax?$1" -" s_520)" +" s_522)" "(symbol?" "(syntax-e$1" -" s_520))" +" s_522))" " #f)))" -"(if or-part_402" -" or-part_402" +"(if or-part_400" +" or-part_400" "(symbol?" -" s_520)))" -" s_520" +" s_522)))" +" s_522" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_74" -" s_520))))" +" s_522))))" "((datum94_0)" -"(let-values(((s_445)" +"(let-values(((s_454)" "(cdr" -" s_249)))" -" s_445)))" +" s_254)))" +" s_454)))" "(values" " id93_1" " datum94_0))" @@ -69129,17 +69418,17 @@ static const char *startup_source = " \"bad syntax\"" " orig-s_74)))))" "(()" -"(let-values(((s_446)" +"(let-values(((s_455)" "(cdr" -" s_247)))" -"(let-values(((s_358)" +" s_252)))" +"(let-values(((s_365)" "(if(syntax?$1" -" s_446)" +" s_455)" "(syntax-e$1" -" s_446)" -" s_446)))" +" s_455)" +" s_455)))" "(if(null?" -" s_358)" +" s_365)" "(values)" "(raise-syntax-error$1" " #f" @@ -69168,52 +69457,52 @@ static const char *startup_source = "(let-values(((ok?_71" " expand95_0" " form96_0)" -"(let-values(((s_359)" +"(let-values(((s_366)" " disarmed-spec_0))" "(let-values(((orig-s_75)" -" s_359))" +" s_366))" "(let-values(((expand95_1" " form96_1)" -"(let-values(((s_362)" -"(if(syntax?$1" -" s_359)" -"(syntax-e$1" -" s_359)" -" s_359)))" -"(if(pair?" -" s_362)" -"(let-values(((expand97_0)" -"(let-values(((s_365)" -"(car" -" s_362)))" -" s_365))" -"((form98_0)" -"(let-values(((s_366)" -"(cdr" -" s_362)))" -"(let-values(((s_367)" +"(let-values(((s_369)" "(if(syntax?$1" " s_366)" "(syntax-e$1" " s_366)" " s_366)))" "(if(pair?" -" s_367)" -"(let-values(((form99_0)" -"(let-values(((s_369)" +" s_369)" +"(let-values(((expand97_0)" +"(let-values(((s_372)" "(car" -" s_367)))" -" s_369))" -"(()" -"(let-values(((s_370)" +" s_369)))" +" s_372))" +"((form98_0)" +"(let-values(((s_373)" "(cdr" -" s_367)))" +" s_369)))" +"(let-values(((s_374)" +"(if(syntax?$1" +" s_373)" +"(syntax-e$1" +" s_373)" +" s_373)))" +"(if(pair?" +" s_374)" +"(let-values(((form99_0)" +"(let-values(((s_376)" +"(car" +" s_374)))" +" s_376))" +"(()" +"(let-values(((s_377)" +"(cdr" +" s_374)))" "(let-values(((s_752)" "(if(syntax?$1" -" s_370)" +" s_377)" "(syntax-e$1" -" s_370)" -" s_370)))" +" s_377)" +" s_377)))" "(if(null?" " s_752)" "(values)" @@ -69244,19 +69533,19 @@ static const char *startup_source = "((temp105_4)" "(let-values(((v_258)" " ctx_104))" -"(let-values(((the-struct_97)" +"(let-values(((the-struct_93)" " v_258))" "(if(expand-context/outer?" -" the-struct_97)" +" the-struct_93)" "(let-values(((def-ctx-scopes106_0)" "(box" " null))" "((inner107_0)" -"(let-values(((the-struct_98)" +"(let-values(((the-struct_24)" "(root-expand-context/outer-inner" " v_258)))" "(if(expand-context/inner?" -" the-struct_98)" +" the-struct_24)" "(let-values(((stops108_0)" "(free-id-set" " at-phase_13" @@ -69266,91 +69555,91 @@ static const char *startup_source = " at-phase_13)))))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi" -" the-struct_98)" +" the-struct_24)" "(root-expand-context/inner-module-scopes" -" the-struct_98)" +" the-struct_24)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_98)" +" the-struct_24)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_98)" +" the-struct_24)" "(root-expand-context/inner-defined-syms" -" the-struct_98)" +" the-struct_24)" "(root-expand-context/inner-counter" -" the-struct_98)" +" the-struct_24)" "(root-expand-context/inner-lift-key" -" the-struct_98)" +" the-struct_24)" "(expand-context/inner-to-parsed?" -" the-struct_98)" +" the-struct_24)" "(expand-context/inner-phase" -" the-struct_98)" +" the-struct_24)" "(expand-context/inner-namespace" -" the-struct_98)" +" the-struct_24)" "(expand-context/inner-just-once?" -" the-struct_98)" +" the-struct_24)" "(expand-context/inner-module-begin-k" -" the-struct_98)" +" the-struct_24)" "(expand-context/inner-allow-unbound?" -" the-struct_98)" +" the-struct_24)" "(expand-context/inner-in-local-expand?" -" the-struct_98)" +" the-struct_24)" " stops108_0" "(expand-context/inner-declared-submodule-names" -" the-struct_98)" +" the-struct_24)" "(expand-context/inner-lifts" -" the-struct_98)" +" the-struct_24)" "(expand-context/inner-lift-envs" -" the-struct_98)" +" the-struct_24)" "(expand-context/inner-module-lifts" -" the-struct_98)" +" the-struct_24)" "(expand-context/inner-require-lifts" -" the-struct_98)" +" the-struct_24)" "(expand-context/inner-to-module-lifts" -" the-struct_98)" +" the-struct_24)" "(expand-context/inner-requires+provides" -" the-struct_98)" +" the-struct_24)" "(expand-context/inner-observer" -" the-struct_98)" +" the-struct_24)" "(expand-context/inner-for-serializable?" -" the-struct_98)" +" the-struct_24)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_98)))" +" the-struct_24)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_98)))))" +" the-struct_24)))))" "(expand-context/outer1.1" " inner107_0" "(root-expand-context/outer-post-expansion-scope" -" the-struct_97)" +" the-struct_93)" "(root-expand-context/outer-use-site-scopes" -" the-struct_97)" +" the-struct_93)" "(root-expand-context/outer-frame-id" -" the-struct_97)" +" the-struct_93)" "(expand-context/outer-context" -" the-struct_97)" +" the-struct_93)" "(expand-context/outer-env" -" the-struct_97)" +" the-struct_93)" "(expand-context/outer-post-expansion-scope-action" -" the-struct_97)" +" the-struct_93)" "(expand-context/outer-scopes" -" the-struct_97)" +" the-struct_93)" " def-ctx-scopes106_0" "(expand-context/outer-binding-layer" -" the-struct_97)" +" the-struct_93)" "(expand-context/outer-reference-records" -" the-struct_97)" +" the-struct_93)" "(expand-context/outer-only-immediate?" -" the-struct_97)" +" the-struct_93)" "(expand-context/outer-need-eventually-defined" -" the-struct_97)" +" the-struct_93)" "(expand-context/outer-current-introduction-scopes" -" the-struct_97)" +" the-struct_93)" "(expand-context/outer-name" -" the-struct_97)))" +" the-struct_93)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_97))))))" +" the-struct_93))))))" "(expand7.1" " #f" " #f" @@ -69400,23 +69689,23 @@ static const char *startup_source = "(if(pair?" " s_754)" "(let-values(((begin102_0)" -"(let-values(((s_375)" +"(let-values(((s_382)" "(car" " s_754)))" -" s_375))" +" s_382))" "((spec103_0)" -"(let-values(((s_376)" +"(let-values(((s_383)" "(cdr" " s_754)))" -"(let-values(((s_377)" +"(let-values(((s_384)" "(if(syntax?$1" -" s_376)" +" s_383)" "(syntax-e$1" -" s_376)" -" s_376)))" +" s_383)" +" s_383)))" "(let-values(((flat-s_50)" "(to-syntax-list.1" -" s_377)))" +" s_384)))" "(if(not" " flat-s_50)" "(let-values()" @@ -69439,7 +69728,7 @@ static const char *startup_source = " spec101_1))))))" "(let-values(((track-stxes_9" " exp-specs_9)" -"(loop_113" +"(loop_114" " spec101_0" " at-phase_13" " protected?_15" @@ -69461,35 +69750,35 @@ static const char *startup_source = " track-stxes_4" " exp-specs_4)))))" "(if(not #f)" -"(for-loop_91" +"(for-loop_95" " track-stxes_2" " exp-specs_2" -" rest_228)" +" rest_233)" "(values" " track-stxes_2" " exp-specs_2))))" "(values" " track-stxes_1" " exp-specs_1))))))" -" for-loop_91)" +" for-loop_95)" " null" " null" -" lst_77)))))" +" lst_78)))))" "(values(reverse$1 track-stxes_0)(reverse$1 exp-specs_0)))))" "(values(apply append track-stxess_0)(apply append exp-specss_0)))))))" -" loop_113)" +" loop_114)" " specs_0" -" phase_43" +" phase_44" " #f" " 'raw)))))" "(define-values" "(parse-identifier!)" "(lambda(spec_1 orig-s_77 sym_101 at-phase_5 ns_124 rp_2 protected?_16)" "(begin" -"(let-values(((b_88)(resolve+shift/extra-inspector spec_1 at-phase_5 ns_124)))" +"(let-values(((b_87)(resolve+shift/extra-inspector spec_1 at-phase_5 ns_124)))" "(let-values((()" "(begin" -"(if b_88" +"(if b_87" "(void)" "(let-values()" "(raise-syntax-error$1" @@ -69498,14 +69787,14 @@ static const char *startup_source = " orig-s_77" " spec_1)))" "(values))))" -"(let-values(((as-transformer?_6)(binding-for-transformer? b_88 spec_1 at-phase_5 ns_124)))" +"(let-values(((as-transformer?_6)(binding-for-transformer? b_87 spec_1 at-phase_5 ns_124)))" "(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_88)" +"((b112_0) b_87)" "((immed-b113_0) immed-b_0)" "((spec114_0) spec_1)" "((orig-s115_0) orig-s_77)" @@ -69540,17 +69829,17 @@ static const char *startup_source = "(format fmt_2(syntax-e$1 id:struct_0)(syntax-e$1 field-id_0)))))" "(datum->syntax$1 id:struct_0 sym_103 id:struct_0))))))" "(begin" -" (let-values (((lst_411) (list \"~a\" \"make-~a\" \"struct:~a\" \"~a?\")))" +" (let-values (((lst_408) (list \"~a\" \"make-~a\" \"struct:~a\" \"~a?\")))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_411)))" +"(let-values()(check-list lst_408)))" "((letrec-values(((for-loop_318)" -"(lambda(lst_412)" +"(lambda(lst_409)" "(begin" " 'for-loop" -"(if(pair? lst_412)" -"(let-values(((fmt_3)(unsafe-car lst_412))((rest_231)(unsafe-cdr lst_412)))" +"(if(pair? lst_409)" +"(let-values(((fmt_3)(unsafe-car lst_409))((rest_236)(unsafe-cdr lst_409)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -69568,22 +69857,22 @@ static const char *startup_source = " protected?_17)))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_318 rest_231)(values))))" +"(if(not #f)(for-loop_318 rest_236)(values))))" "(values))))))" " for-loop_318)" -" lst_411)))" +" lst_408)))" "(void)" -"(let-values(((lst_354) fields_0))" +"(let-values(((lst_355) fields_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_354)))" +"(let-values()(check-list lst_355)))" "((letrec-values(((for-loop_319)" -"(lambda(lst_413)" +"(lambda(lst_410)" "(begin" " 'for-loop" -"(if(pair? lst_413)" -"(let-values(((field_0)(unsafe-car lst_413))((rest_232)(unsafe-cdr lst_413)))" +"(if(pair? lst_410)" +"(let-values(((field_0)(unsafe-car lst_410))((rest_237)(unsafe-cdr lst_410)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -69615,10 +69904,10 @@ static const char *startup_source = " protected?_17)))))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_319 rest_232)(values))))" +"(if(not #f)(for-loop_319 rest_237)(values))))" "(values))))))" " for-loop_319)" -" lst_354)))" +" lst_355)))" "(void)))))))" "(define-values" "(parse-all-from)" @@ -69632,13 +69921,13 @@ static const char *startup_source = "(let-values()" " (raise-syntax-error$1 provide-form-name \"not a module path\" orig-s_79 mod-path-stx_0)))" "(values))))" -"(let-values(((mpi_51)(module-path->mpi/context mod-path_33 ctx_105)))" -"(parse-all-from-module mpi_51 #f orig-s_79 except-ids_0 #f at-phase_15 ns_126 rp_4 protected?_18)))))))" +"(let-values(((mpi_52)(module-path->mpi/context mod-path_33 ctx_105)))" +"(parse-all-from-module mpi_52 #f orig-s_79 except-ids_0 #f at-phase_15 ns_126 rp_4 protected?_18)))))))" "(define-values" "(parse-all-from-module)" -"(lambda(mpi_52 matching-stx_0 orig-s_80 except-ids_1 prefix-sym_0 at-phase_16 ns_127 rp_5 protected?_19)" +"(lambda(mpi_53 matching-stx_0 orig-s_80 except-ids_1 prefix-sym_0 at-phase_16 ns_127 rp_5 protected?_19)" "(begin" -"(let-values(((requireds_2)(extract-module-requires rp_5 mpi_52 at-phase_16)))" +"(let-values(((requireds_2)(extract-module-requires rp_5 mpi_53 at-phase_16)))" "(let-values(((phase-desc_0)" "(lambda()" "(begin" @@ -69672,12 +69961,12 @@ static const char *startup_source = "(void)" "(let-values()(check-list lst_241)))" "((letrec-values(((for-loop_320)" -"(lambda(lst_414)" +"(lambda(lst_411)" "(begin" " 'for-loop" -"(if(pair? lst_414)" -"(let-values(((i_187)(unsafe-car lst_414))" -"((rest_233)(unsafe-cdr lst_414)))" +"(if(pair? lst_411)" +"(let-values(((i_189)(unsafe-car lst_411))" +"((rest_238)(unsafe-cdr lst_411)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -69685,15 +69974,15 @@ static const char *startup_source = "(begin" "(let-values()" "(let-values(((id_147)" -"(required-id i_187)))" -"(let-values(((phase_147)" +"(required-id i_189)))" +"(let-values(((phase_148)" "(required-phase" -" i_187)))" -"(if(let-values(((or-part_403)" +" i_189)))" +"(if(let-values(((or-part_401)" "(if matching-stx_0" "(not" "(if(eqv?" -" phase_147" +" phase_148" " at-phase_16)" "(free-identifier=?$1" " id_147" @@ -69701,13 +69990,13 @@ static const char *startup_source = " matching-stx_0" "(syntax-e$1" " id_147))" -" phase_147" -" phase_147)" +" phase_148" +" phase_148)" " #f))" " #f)))" -"(if or-part_403" -" or-part_403" -"(let-values(((lst_415)" +"(if or-part_401" +" or-part_401" +"(let-values(((lst_412)" " except-ids_1))" "(begin" "(if(variable-reference-from-unsafe?" @@ -69715,20 +70004,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_415)))" +" lst_412)))" "((letrec-values(((for-loop_321)" "(lambda(result_124" -" lst_416)" +" lst_413)" "(begin" " 'for-loop" "(if(pair?" -" lst_416)" +" lst_413)" "(let-values(((except-id_0)" "(unsafe-car" -" lst_416))" -"((rest_234)" +" lst_413))" +"((rest_239)" "(unsafe-cdr" -" lst_416)))" +" lst_413)))" "(let-values(((result_125)" "(let-values()" "(let-values(((result_126)" @@ -69737,8 +70026,8 @@ static const char *startup_source = "(if(free-identifier=?$1" " id_147" " except-id_0" -" phase_147" -" phase_147)" +" phase_148" +" phase_148)" "(hash-set!" " found_0" " except-id_0" @@ -69747,7 +70036,7 @@ static const char *startup_source = "(values" " result_126)))))" "(if(if(not" -"((lambda x_93" +"((lambda x_91" " result_125)" " except-id_0))" "(not" @@ -69755,24 +70044,24 @@ static const char *startup_source = " #f)" "(for-loop_321" " result_125" -" rest_234)" +" rest_239)" " result_125)))" " result_124)))))" " for-loop_321)" " #f" -" lst_415)))))" +" lst_412)))))" "(void)" "(let-values()" -"(let-values(((b_89)" +"(let-values(((b_88)" "(resolve+shift/extra-inspector" " id_147" -" phase_147" +" phase_148" " ns_127)))" "(let-values(((immed-b_1)" "(let-values(((id130_0)" " id_147)" "((phase131_0)" -" phase_147)" +" phase_148)" "((temp132_2)" " #t))" "(resolve+shift30.1" @@ -69795,9 +70084,9 @@ static const char *startup_source = "(syntax-e$1" " id_147)))" "((phase123_0)" -" phase_147)" +" phase_148)" "((b124_0)" -" b_89)" +" b_88)" "((immed-b125_0)" " immed-b_1)" "((id126_0)" @@ -69808,7 +70097,7 @@ static const char *startup_source = " protected?_19)" "((temp129_3)" "(required-as-transformer?" -" i_187)))" +" i_189)))" "(add-provide!109.1" " protected?128_0" " temp129_3" @@ -69821,7 +70110,7 @@ static const char *startup_source = " orig-s127_0)))))))))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_320 rest_233)(values))))" +"(if(not #f)(for-loop_320 rest_238)(values))))" "(values))))))" " for-loop_320)" " lst_241)))" @@ -69830,32 +70119,32 @@ static const char *startup_source = "(void)" "(let-values()" "(begin" -"(let-values(((lst_145) except-ids_1))" +"(let-values(((lst_146) except-ids_1))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_145)))" -"((letrec-values(((for-loop_170)" -"(lambda(lst_417)" +"(let-values()(check-list lst_146)))" +"((letrec-values(((for-loop_172)" +"(lambda(lst_414)" "(begin" " 'for-loop" -"(if(pair? lst_417)" -"(let-values(((except-id_1)(unsafe-car lst_417))" -"((rest_187)(unsafe-cdr lst_417)))" +"(if(pair? lst_414)" +"(let-values(((except-id_1)(unsafe-car lst_414))" +"((rest_191)(unsafe-cdr lst_414)))" "(let-values((()" "(let-values()" "(let-values((()" "(let-values()" "(begin" "(let-values()" -"(if(let-values(((or-part_404)" +"(if(let-values(((or-part_402)" "(hash-ref" " found_0" " except-id_1" " #f)))" -"(if or-part_404" -" or-part_404" -"(let-values(((lst_418)" +"(if or-part_402" +" or-part_402" +"(let-values(((lst_415)" " requireds_2))" "(begin" "(if(variable-reference-from-unsafe?" @@ -69863,20 +70152,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_418)))" -"((letrec-values(((for-loop_322)" +" lst_415)))" +"((letrec-values(((for-loop_142)" "(lambda(result_127" -" lst_419)" +" lst_416)" "(begin" " 'for-loop" "(if(pair?" -" lst_419)" -"(let-values(((i_188)" +" lst_416)" +"(let-values(((i_190)" "(unsafe-car" -" lst_419))" -"((rest_235)" +" lst_416))" +"((rest_240)" "(unsafe-cdr" -" lst_419)))" +" lst_416)))" "(let-values(((result_128)" "(let-values()" "(let-values(((result_129)" @@ -69884,32 +70173,32 @@ static const char *startup_source = "(let-values()" "(let-values(((id_148)" "(required-id" -" i_188)))" -"(let-values(((phase_148)" +" i_190)))" +"(let-values(((phase_149)" "(required-phase" -" i_188)))" +" i_190)))" "(free-identifier=?$1" " id_148" " except-id_1" -" phase_148" -" phase_148)))))))" +" phase_149" +" phase_149)))))))" "(values" " result_129)))))" "(if(if(not" -"((lambda x_94" +"((lambda x_92" " result_128)" -" i_188))" +" i_190))" "(not" " #f)" " #f)" -"(for-loop_322" +"(for-loop_142" " result_128" -" rest_235)" +" rest_240)" " result_128)))" " result_127)))))" -" for-loop_322)" +" for-loop_142)" " #f" -" lst_418)))))" +" lst_415)))))" "(void)" "(let-values()" "(raise-syntax-error$1" @@ -69923,10 +70212,10 @@ static const char *startup_source = " except-id_1))))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_170 rest_187)(values))))" +"(if(not #f)(for-loop_172 rest_191)(values))))" "(values))))))" -" for-loop_170)" -" lst_145)))" +" for-loop_172)" +" lst_146)))" "(void)))))))))))))" "(define-values" "(check-cross-phase-persistent-form)" @@ -69937,63 +70226,63 @@ static const char *startup_source = "(begin" " 'check-body" "(begin" -"(let-values(((lst_420) bodys_14))" +"(let-values(((lst_417) bodys_14))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_420)))" -"((letrec-values(((for-loop_323)" -"(lambda(lst_84)" +"(let-values()(check-list lst_417)))" +"((letrec-values(((for-loop_322)" +"(lambda(lst_85)" "(begin" " 'for-loop" -"(if(pair? lst_84)" -"(let-values(((body_21)(unsafe-car lst_84))" -"((rest_39)(unsafe-cdr lst_84)))" +"(if(pair? lst_85)" +"(let-values(((body_21)(unsafe-car lst_85))" +"((rest_40)(unsafe-cdr lst_85)))" "(let-values((()" "(let-values()" "(let-values((()" "(let-values()" "(begin" "(let-values()" -"(let-values(((p_34)" +"(let-values(((p_35)" "(if(expanded+parsed?" " body_21)" "(expanded+parsed-parsed" " body_21)" " body_21)))" "(if(parsed-define-values?" -" p_34)" +" p_35)" "(let-values()" "(check-expr_0" "(parsed-define-values-rhs" -" p_34)" +" p_35)" "(length" "(parsed-define-values-syms" -" p_34))" -" p_34))" -"(if(let-values(((or-part_219)" +" p_35))" +" p_35))" +"(if(let-values(((or-part_218)" "(parsed-#%declare?" -" p_34)))" -"(if or-part_219" -" or-part_219" +" p_35)))" +"(if or-part_218" +" or-part_218" "(let-values(((or-part_3)" "(parsed-module?" -" p_34)))" +" p_35)))" "(if or-part_3" " or-part_3" "(syntax?$1" -" p_34)))))" +" p_35)))))" "(let-values()" "(void))" "(let-values()" "(disallow" -" p_34))))))" +" p_35))))))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_323 rest_39)(values))))" +"(if(not #f)(for-loop_322 rest_40)(values))))" "(values))))))" -" for-loop_323)" -" lst_420)))" +" for-loop_322)" +" lst_417)))" "(void)))))" "((check-expr_0)" "(lambda(e_90 num-results_0 enclosing_15)" @@ -70014,18 +70303,18 @@ static const char *startup_source = "(let-values()" "(let-values(((rands_1)(parsed-app-rands e_90)))" "(begin" -"(let-values(((lst_78) rands_1))" +"(let-values(((lst_79) rands_1))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_78)))" -"((letrec-values(((for-loop_68)" -"(lambda(lst_85)" +"(let-values()(check-list lst_79)))" +"((letrec-values(((for-loop_72)" +"(lambda(lst_86)" "(begin" " 'for-loop" -"(if(pair? lst_85)" -"(let-values(((rand_0)(unsafe-car lst_85))" -"((rest_236)(unsafe-cdr lst_85)))" +"(if(pair? lst_86)" +"(let-values(((rand_0)(unsafe-car lst_86))" +"((rest_241)(unsafe-cdr lst_86)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -70038,10 +70327,10 @@ static const char *startup_source = " e_90))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_68 rest_236)(values))))" +"(if(not #f)(for-loop_72 rest_241)(values))))" "(values))))))" -" for-loop_68)" -" lst_78)))" +" for-loop_72)" +" lst_79)))" "(void)" "(let-values(((tmp_64)(cross-phase-primitive-name(parsed-app-rator e_90))))" "(if(if(equal? tmp_64 'cons) #t(equal? tmp_64 'list))" @@ -70052,9 +70341,9 @@ static const char *startup_source = "(let-values()(check-count 3 num-results_0 enclosing_15))" "(if(equal? tmp_64 'gensym)" "(let-values()" -"(if(let-values(((or-part_405)(= 0(length rands_1))))" -"(if or-part_405" -" or-part_405" +"(if(let-values(((or-part_403)(= 0(length rands_1))))" +"(if or-part_403" +" or-part_403" "(if(= 1(length rands_1))" "(quoted-string?(car rands_1))" " #f)))" @@ -70076,18 +70365,18 @@ static const char *startup_source = "(if(parsed-case-lambda? e_39)" "(let-values()" "(begin" -"(let-values(((lst_273)(parsed-case-lambda-clauses e_39)))" +"(let-values(((lst_270)(parsed-case-lambda-clauses e_39)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_273)))" -"((letrec-values(((for-loop_239)" -"(lambda(lst_421)" +"(let-values()(check-list lst_270)))" +"((letrec-values(((for-loop_240)" +"(lambda(lst_418)" "(begin" " 'for-loop" -"(if(pair? lst_421)" -"(let-values(((clause_4)(unsafe-car lst_421))" -"((rest_237)(unsafe-cdr lst_421)))" +"(if(pair? lst_418)" +"(let-values(((clause_4)(unsafe-car lst_418))" +"((rest_242)(unsafe-cdr lst_418)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -70098,10 +70387,10 @@ static const char *startup_source = "(cadr clause_4)))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_239 rest_237)(values))))" +"(if(not #f)(for-loop_240 rest_242)(values))))" "(values))))))" -" for-loop_239)" -" lst_273)))" +" for-loop_240)" +" lst_270)))" "(void)))" "(if(parsed-app? e_39)" "(let-values()" @@ -70112,13 +70401,13 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_223)))" -"((letrec-values(((for-loop_102)" -"(lambda(lst_269)" +"((letrec-values(((for-loop_106)" +"(lambda(lst_266)" "(begin" " 'for-loop" -"(if(pair? lst_269)" -"(let-values(((e_91)(unsafe-car lst_269))" -"((rest_188)(unsafe-cdr lst_269)))" +"(if(pair? lst_266)" +"(let-values(((e_91)(unsafe-car lst_266))" +"((rest_192)(unsafe-cdr lst_266)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -70129,9 +70418,9 @@ static const char *startup_source = " e_91))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_102 rest_188)(values))))" +"(if(not #f)(for-loop_106 rest_192)(values))))" "(values))))))" -" for-loop_102)" +" for-loop_106)" " lst_223)))" "(void)))" "(if(parsed-if? e_39)" @@ -70145,12 +70434,12 @@ static const char *startup_source = "(let-values(((id_4)(parsed-set!-id e_39)))" "(let-values(((normal-b_1)(parsed-id-binding id_4)))" "(begin" -"(if(let-values(((or-part_81)(not normal-b_1)))" -"(if or-part_81" -" or-part_81" -"(let-values(((or-part_82)(parsed-top-id? id_4)))" -"(if or-part_82" -" or-part_82" +"(if(let-values(((or-part_79)(not normal-b_1)))" +"(if or-part_79" +" or-part_79" +"(let-values(((or-part_80)(parsed-top-id? id_4)))" +"(if or-part_80" +" or-part_80" "(if(not(symbol? normal-b_1))" "(eq?(module-binding-module normal-b_1) self-mpi_6)" " #f)))))" @@ -70175,15 +70464,15 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_24)))" -"((letrec-values(((for-loop_252)" -"(lambda(lst_89)" +"((letrec-values(((for-loop_253)" +"(lambda(lst_90)" "(begin" " 'for-loop" -"(if(pair? lst_89)" +"(if(pair? lst_90)" "(let-values(((clause_5)" -"(unsafe-car lst_89))" -"((rest_151)" -"(unsafe-cdr lst_89)))" +"(unsafe-car lst_90))" +"((rest_152)" +"(unsafe-cdr lst_90)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -70196,15 +70485,15 @@ static const char *startup_source = "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_252 rest_151)" +"(for-loop_253 rest_152)" "(values))))" "(values))))))" -" for-loop_252)" +" for-loop_253)" " lst_24)))" "(void)" "(check-body-no-disallowed-expr_0(parsed-let_-values-body e_39))))" -"(if(let-values(((or-part_93)(parsed-quote-syntax? e_39)))" -"(if or-part_93 or-part_93(parsed-#%variable-reference? e_39)))" +"(if(let-values(((or-part_92)(parsed-quote-syntax? e_39)))" +"(if or-part_92 or-part_92(parsed-#%variable-reference? e_39)))" "(let-values()(disallow e_39))" "(let-values()(void)))))))))))))))" "((check-body-no-disallowed-expr_0)" @@ -70212,18 +70501,18 @@ static const char *startup_source = "(begin" " 'check-body-no-disallowed-expr" "(begin" -"(let-values(((lst_81) l_48))" +"(let-values(((lst_82) l_48))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_81)))" -"((letrec-values(((for-loop_324)" -"(lambda(lst_275)" +"(let-values()(check-list lst_82)))" +"((letrec-values(((for-loop_323)" +"(lambda(lst_272)" "(begin" " 'for-loop" -"(if(pair? lst_275)" -"(let-values(((e_92)(unsafe-car lst_275))" -"((rest_147)(unsafe-cdr lst_275)))" +"(if(pair? lst_272)" +"(let-values(((e_92)(unsafe-car lst_272))" +"((rest_147)(unsafe-cdr lst_272)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -70234,10 +70523,10 @@ static const char *startup_source = " e_92))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_324 rest_147)(values))))" +"(if(not #f)(for-loop_323 rest_147)(values))))" "(values))))))" -" for-loop_324)" -" lst_81)))" +" for-loop_323)" +" lst_82)))" "(void))))))" "(check-body_0 bodys_13)))))" "(define-values" @@ -70246,21 +70535,21 @@ static const char *startup_source = "(begin(if(= is-num_0 expected-num_0)(void)(let-values()(disallow enclosing_16))))))" "(define-values" "(check-datum)" -"(lambda(d_37 e_93)" +"(lambda(d_38 e_93)" "(begin" -"(if(let-values(((or-part_158)(number? d_37)))" -"(if or-part_158" -" or-part_158" -"(let-values(((or-part_165)(boolean? d_37)))" -"(if or-part_165" -" or-part_165" -"(let-values(((or-part_166)(symbol? d_37)))" -"(if or-part_166" -" or-part_166" -"(let-values(((or-part_167)(string? d_37)))" +"(if(let-values(((or-part_160)(number? d_38)))" +"(if or-part_160" +" or-part_160" +"(let-values(((or-part_167)(boolean? d_38)))" "(if or-part_167" " or-part_167" -"(let-values(((or-part_168)(bytes? d_37)))(if or-part_168 or-part_168(null? d_37)))))))))))" +"(let-values(((or-part_168)(symbol? d_38)))" +"(if or-part_168" +" or-part_168" +"(let-values(((or-part_169)(string? d_38)))" +"(if or-part_169" +" or-part_169" +"(let-values(((or-part_170)(bytes? d_38)))(if or-part_170 or-part_170(null? d_38)))))))))))" "(let-values()(void))" "(let-values()(disallow e_93))))))" "(define-values" @@ -70272,10 +70561,10 @@ static const char *startup_source = "(begin" "(if(parsed-id? id_149)" "(let-values()" -"(let-values(((b_90)(parsed-id-binding id_149)))" -"(if(module-binding? b_90)" -"(if(eq? runtime-module-name(1/module-path-index-resolve(module-binding-module b_90)))" -"(module-binding-sym b_90)" +"(let-values(((b_89)(parsed-id-binding id_149)))" +"(if(module-binding? b_89)" +"(if(eq? runtime-module-name(1/module-path-index-resolve(module-binding-module b_89)))" +"(module-binding-sym b_89)" " #f)" " #f)))" "(let-values() #f)))))" @@ -70290,7 +70579,7 @@ static const char *startup_source = "(void" "(add-core-form!*" " 'module" -"(lambda(s_180 ctx_106)" +"(lambda(s_183 ctx_106)" "(begin" "(if(eq?(expand-context-context ctx_106) 'top-level)" "(void)" @@ -70298,18 +70587,18 @@ static const char *startup_source = "(begin" "(let-values(((obs_125)(expand-context-observer ctx_106)))" "(if obs_125(let-values()(let-values()(call-expand-observe obs_125 'prim-module)))(void)))" -" (raise-syntax-error$1 #f \"allowed only at the top level\" s_180))))" +" (raise-syntax-error$1 #f \"allowed only at the top level\" s_183))))" "(let-values()" -"(let-values(((s223_0) s_180)((ctx224_0) ctx_106)((temp225_1) #f))" +"(let-values(((s223_0) s_183)((ctx224_0) ctx_106)((temp225_1) #f))" "(expand-module18.1 #f #f #f #f #f #f #f #f #f #f #f #f #f #f s223_0 ctx224_0 temp225_1)))))))" "(void" "(add-core-form!*" " 'module*" -"(lambda(s_303 ctx_107)" +"(lambda(s_308 ctx_107)" "(begin" "(let-values(((obs_126)(expand-context-observer ctx_107)))" "(if obs_126(let-values()(let-values()(call-expand-observe obs_126 'prim-module)))(void)))" -" (raise-syntax-error$1 #f \"illegal use (not in a module top-level)\" s_303)))))" +" (raise-syntax-error$1 #f \"illegal use (not in a module top-level)\" s_308)))))" "(void" "(add-core-form!*" " '#%module-begin" @@ -70326,64 +70615,64 @@ static const char *startup_source = "((expand-context-module-begin-k ctx_108)" " s_80" "(let-values(((v_259) ctx_108))" -"(let-values(((the-struct_99) v_259))" -"(if(expand-context/outer? the-struct_99)" +"(let-values(((the-struct_94) v_259))" +"(if(expand-context/outer? the-struct_94)" "(let-values(((inner226_0)" -"(let-values(((the-struct_100)(root-expand-context/outer-inner v_259)))" -"(if(expand-context/inner? the-struct_100)" +"(let-values(((the-struct_95)(root-expand-context/outer-inner v_259)))" +"(if(expand-context/inner? the-struct_95)" "(let-values(((module-begin-k227_0) #f))" "(expand-context/inner2.1" -"(root-expand-context/inner-self-mpi the-struct_100)" -"(root-expand-context/inner-module-scopes the-struct_100)" -"(root-expand-context/inner-top-level-bind-scope the-struct_100)" -"(root-expand-context/inner-all-scopes-stx the-struct_100)" -"(root-expand-context/inner-defined-syms the-struct_100)" -"(root-expand-context/inner-counter the-struct_100)" -"(root-expand-context/inner-lift-key the-struct_100)" -"(expand-context/inner-to-parsed? the-struct_100)" -"(expand-context/inner-phase the-struct_100)" -"(expand-context/inner-namespace the-struct_100)" -"(expand-context/inner-just-once? the-struct_100)" +"(root-expand-context/inner-self-mpi the-struct_95)" +"(root-expand-context/inner-module-scopes the-struct_95)" +"(root-expand-context/inner-top-level-bind-scope the-struct_95)" +"(root-expand-context/inner-all-scopes-stx the-struct_95)" +"(root-expand-context/inner-defined-syms the-struct_95)" +"(root-expand-context/inner-counter the-struct_95)" +"(root-expand-context/inner-lift-key the-struct_95)" +"(expand-context/inner-to-parsed? the-struct_95)" +"(expand-context/inner-phase the-struct_95)" +"(expand-context/inner-namespace the-struct_95)" +"(expand-context/inner-just-once? the-struct_95)" " module-begin-k227_0" -"(expand-context/inner-allow-unbound? the-struct_100)" -"(expand-context/inner-in-local-expand? the-struct_100)" -"(expand-context/inner-stops the-struct_100)" -"(expand-context/inner-declared-submodule-names the-struct_100)" -"(expand-context/inner-lifts the-struct_100)" -"(expand-context/inner-lift-envs the-struct_100)" -"(expand-context/inner-module-lifts the-struct_100)" -"(expand-context/inner-require-lifts the-struct_100)" -"(expand-context/inner-to-module-lifts the-struct_100)" -"(expand-context/inner-requires+provides the-struct_100)" -"(expand-context/inner-observer the-struct_100)" -"(expand-context/inner-for-serializable? the-struct_100)" -"(expand-context/inner-should-not-encounter-macros? the-struct_100)))" -" (raise-argument-error 'struct-copy \"expand-context/inner?\" the-struct_100)))))" +"(expand-context/inner-allow-unbound? the-struct_95)" +"(expand-context/inner-in-local-expand? the-struct_95)" +"(expand-context/inner-stops the-struct_95)" +"(expand-context/inner-declared-submodule-names the-struct_95)" +"(expand-context/inner-lifts the-struct_95)" +"(expand-context/inner-lift-envs the-struct_95)" +"(expand-context/inner-module-lifts the-struct_95)" +"(expand-context/inner-require-lifts the-struct_95)" +"(expand-context/inner-to-module-lifts the-struct_95)" +"(expand-context/inner-requires+provides the-struct_95)" +"(expand-context/inner-observer the-struct_95)" +"(expand-context/inner-for-serializable? the-struct_95)" +"(expand-context/inner-should-not-encounter-macros? the-struct_95)))" +" (raise-argument-error 'struct-copy \"expand-context/inner?\" the-struct_95)))))" "(expand-context/outer1.1" " inner226_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_99)))))))))" +"(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)" +"(expand-context/outer-def-ctx-scopes the-struct_94)" +"(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_94)))))))))" "(void" "(add-core-form!*" " '#%declare" -"(lambda(s_723 ctx_109)" +"(lambda(s_725 ctx_109)" "(begin" "(let-values(((obs_128)(expand-context-observer ctx_109)))" "(if obs_128(let-values()(let-values()(call-expand-observe obs_128 'prim-declare)))(void)))" -" (raise-syntax-error$1 #f \"not allowed outside of a module body\" s_723)))))" +" (raise-syntax-error$1 #f \"not allowed outside of a module body\" s_725)))))" "(define-values" "(expand-module18.1)" "(lambda(always-produce-compiled?1_0" @@ -70434,81 +70723,81 @@ static const char *startup_source = "(values))))" "(let-values(((disarmed-s_24)(syntax-disarm$1 s_16)))" "(let-values(((ok?_73 module228_0 id:module-name229_0 initial-require230_0 body231_0)" -"(let-values(((s_496) disarmed-s_24))" -"(let-values(((orig-s_81) s_496))" +"(let-values(((s_502) disarmed-s_24))" +"(let-values(((orig-s_81) s_502))" "(let-values(((module228_1" " id:module-name229_1" " initial-require230_1" " body231_1)" -"(let-values(((s_311)" -"(if(syntax?$1 s_496)" -"(syntax-e$1 s_496)" -" s_496)))" -"(if(pair? s_311)" +"(let-values(((s_316)" +"(if(syntax?$1 s_502)" +"(syntax-e$1 s_502)" +" s_502)))" +"(if(pair? s_316)" "(let-values(((module232_0)" -"(let-values(((s_497)(car s_311)))" -" s_497))" +"(let-values(((s_503)(car s_316)))" +" s_503))" "((id:module-name233_0" " initial-require234_0" " body235_0)" -"(let-values(((s_726)(cdr s_311)))" +"(let-values(((s_728)(cdr s_316)))" "(let-values(((s_755)" -"(if(syntax?$1 s_726)" -"(syntax-e$1 s_726)" -" s_726)))" +"(if(syntax?$1 s_728)" +"(syntax-e$1 s_728)" +" s_728)))" "(if(pair? s_755)" "(let-values(((id:module-name236_0)" -"(let-values(((s_482)" +"(let-values(((s_490)" "(car" " s_755)))" -"(if(let-values(((or-part_377)" +"(if(let-values(((or-part_376)" "(if(syntax?$1" -" s_482)" +" s_490)" "(symbol?" "(syntax-e$1" -" s_482))" +" s_490))" " #f)))" -"(if or-part_377" -" or-part_377" +"(if or-part_376" +" or-part_376" "(symbol?" -" s_482)))" -" s_482" +" s_490)))" +" s_490" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_81" -" s_482))))" +" s_490))))" "((initial-require237_0" " body238_0)" "(let-values(((s_54)" "(cdr" " s_755)))" -"(let-values(((s_313)" +"(let-values(((s_318)" "(if(syntax?$1" " s_54)" "(syntax-e$1" " s_54)" " s_54)))" "(if(pair?" -" s_313)" +" s_318)" "(let-values(((initial-require239_0)" -"(let-values(((s_315)" +"(let-values(((s_320)" "(car" -" s_313)))" -" s_315))" +" s_318)))" +" s_320))" "((body240_0)" -"(let-values(((s_316)" +"(let-values(((s_321)" "(cdr" -" s_313)))" -"(let-values(((s_317)" +" s_318)))" +"(let-values(((s_322)" "(if(syntax?$1" -" s_316)" +" s_321)" "(syntax-e$1" -" s_316)" -" s_316)))" +" s_321)" +" s_321)))" "(let-values(((flat-s_51)" "(to-syntax-list.1" -" s_317)))" +" s_322)))" "(if(not" " flat-s_51)" "(let-values()" @@ -70562,9 +70851,9 @@ static const char *startup_source = "(let-values(((initial-require_0)(syntax->datum$1 initial-require230_0)))" "(let-values((()" "(begin" -"(if(let-values(((or-part_100) keep-enclosing-scope-at-phase_0))" -"(if or-part_100" -" or-part_100" +"(if(let-values(((or-part_395) keep-enclosing-scope-at-phase_0))" +"(if or-part_395" +" or-part_395" "(1/module-path? initial-require_0)))" "(void)" "(let-values()" @@ -70574,7 +70863,7 @@ static const char *startup_source = " s_16" " initial-require230_0)))" "(values))))" -"(let-values(((phase_149) 0))" +"(let-values(((phase_150) 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)))" @@ -70687,114 +70976,114 @@ static const char *startup_source = " #f" " temp266_2))))" "(let-values(((ctx_110)" -"(let-values(((v_102)" +"(let-values(((v_103)" "(copy-root-expand-context" " init-ctx_0" " root-ctx_6)))" -"(let-values(((the-struct_101)" -" v_102))" +"(let-values(((the-struct_96)" +" v_103))" "(if(expand-context/outer?" -" the-struct_101)" +" the-struct_96)" "(let-values(((post-expansion-scope-action267_0)" " add-scope)" "((inner268_0)" -"(let-values(((the-struct_102)" +"(let-values(((the-struct_97)" "(root-expand-context/outer-inner" -" v_102)))" +" v_103)))" "(if(expand-context/inner?" -" the-struct_102)" +" the-struct_97)" "(let-values(((allow-unbound?269_0)" " #f)" "((namespace270_0)" " m-ns_19)" "((phase271_0)" -" phase_149)" +" phase_150)" "((just-once?272_0)" " #f))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi" -" the-struct_102)" +" the-struct_97)" "(root-expand-context/inner-module-scopes" -" the-struct_102)" +" the-struct_97)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_102)" +" the-struct_97)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_102)" +" the-struct_97)" "(root-expand-context/inner-defined-syms" -" the-struct_102)" +" the-struct_97)" "(root-expand-context/inner-counter" -" the-struct_102)" +" the-struct_97)" "(root-expand-context/inner-lift-key" -" the-struct_102)" +" the-struct_97)" "(expand-context/inner-to-parsed?" -" the-struct_102)" +" the-struct_97)" " phase271_0" " namespace270_0" " just-once?272_0" "(expand-context/inner-module-begin-k" -" the-struct_102)" +" the-struct_97)" " allow-unbound?269_0" "(expand-context/inner-in-local-expand?" -" the-struct_102)" +" the-struct_97)" "(expand-context/inner-stops" -" the-struct_102)" +" the-struct_97)" "(expand-context/inner-declared-submodule-names" -" the-struct_102)" +" the-struct_97)" "(expand-context/inner-lifts" -" the-struct_102)" +" the-struct_97)" "(expand-context/inner-lift-envs" -" the-struct_102)" +" the-struct_97)" "(expand-context/inner-module-lifts" -" the-struct_102)" +" the-struct_97)" "(expand-context/inner-require-lifts" -" the-struct_102)" +" the-struct_97)" "(expand-context/inner-to-module-lifts" -" the-struct_102)" +" the-struct_97)" "(expand-context/inner-requires+provides" -" the-struct_102)" +" the-struct_97)" "(expand-context/inner-observer" -" the-struct_102)" +" the-struct_97)" "(expand-context/inner-for-serializable?" -" the-struct_102)" +" the-struct_97)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_102)))" +" the-struct_97)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_102)))))" +" the-struct_97)))))" "(expand-context/outer1.1" " inner268_0" "(root-expand-context/outer-post-expansion-scope" -" the-struct_101)" +" the-struct_96)" "(root-expand-context/outer-use-site-scopes" -" the-struct_101)" +" the-struct_96)" "(root-expand-context/outer-frame-id" -" the-struct_101)" +" the-struct_96)" "(expand-context/outer-context" -" the-struct_101)" +" the-struct_96)" "(expand-context/outer-env" -" the-struct_101)" +" the-struct_96)" " post-expansion-scope-action267_0" "(expand-context/outer-scopes" -" the-struct_101)" +" the-struct_96)" "(expand-context/outer-def-ctx-scopes" -" the-struct_101)" +" the-struct_96)" "(expand-context/outer-binding-layer" -" the-struct_101)" +" the-struct_96)" "(expand-context/outer-reference-records" -" the-struct_101)" +" the-struct_96)" "(expand-context/outer-only-immediate?" -" the-struct_101)" +" the-struct_96)" "(expand-context/outer-need-eventually-defined" -" the-struct_101)" +" the-struct_96)" "(expand-context/outer-current-introduction-scopes" -" the-struct_101)" +" the-struct_96)" "(expand-context/outer-name" -" the-struct_101)))" +" the-struct_96)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_101))))))" +" the-struct_96))))))" "(let-values(((bodys_15)" "(let-values(((scoped-s_0)" "(apply-module-scopes_0" @@ -70812,69 +71101,69 @@ static const char *startup_source = " _274_2" " _275_2" " body276_1)" -"(let-values(((s_87)" +"(let-values(((s_412)" "(if(syntax?$1" " s_756)" "(syntax-e$1" " s_756)" " s_756)))" "(if(pair?" -" s_87)" +" s_412)" "(let-values(((_277_1)" -"(let-values(((s_736)" +"(let-values(((s_739)" "(car" -" s_87)))" -" s_736))" +" s_412)))" +" s_739))" "((_278_0" " _279_0" " body280_0)" -"(let-values(((s_202)" +"(let-values(((s_206)" "(cdr" -" s_87)))" -"(let-values(((s_389)" +" s_412)))" +"(let-values(((s_397)" "(if(syntax?$1" -" s_202)" +" s_206)" "(syntax-e$1" -" s_202)" -" s_202)))" +" s_206)" +" s_206)))" "(if(pair?" -" s_389)" +" s_397)" "(let-values(((_281_0)" -"(let-values(((s_89)" +"(let-values(((s_208)" "(car" -" s_389)))" -" s_89))" +" s_397)))" +" s_208))" "((_282_0" " body283_0)" -"(let-values(((s_90)" +"(let-values(((s_741)" "(cdr" -" s_389)))" -"(let-values(((s_406)" +" s_397)))" +"(let-values(((s_413)" "(if(syntax?$1" -" s_90)" +" s_741)" "(syntax-e$1" -" s_90)" -" s_90)))" +" s_741)" +" s_741)))" "(if(pair?" -" s_406)" +" s_413)" "(let-values(((_284_0)" "(let-values(((s_39)" "(car" -" s_406)))" +" s_413)))" " s_39))" "((body285_0)" -"(let-values(((s_92)" +"(let-values(((s_89)" "(cdr" -" s_406)))" -"(let-values(((s_321)" +" s_413)))" +"(let-values(((s_327)" "(if(syntax?$1" -" s_92)" +" s_89)" "(syntax-e$1" -" s_92)" -" s_92)))" +" s_89)" +" s_89)))" "(let-values(((flat-s_52)" "(to-syntax-list.1" -" s_321)))" +" s_327)))" "(if(not" " flat-s_52)" "(let-values()" @@ -71050,18 +71339,18 @@ static const char *startup_source = "(let-values(((ctx_111)" "(let-values(((v_260)" " mb-init-ctx_0))" -"(let-values(((the-struct_103)" +"(let-values(((the-struct_98)" " v_260))" "(if(expand-context/outer?" -" the-struct_103)" +" the-struct_98)" "(let-values(((inner306_0)" -"(let-values(((the-struct_104)" +"(let-values(((the-struct_99)" "(root-expand-context/outer-inner" " v_260)))" "(if(expand-context/inner?" -" the-struct_104)" +" the-struct_99)" "(let-values(((module-begin-k307_0)" -"(lambda(s_112" +"(lambda(s_305" " ctx_112)" "(begin" " 'module-begin-k307" @@ -71098,7 +71387,7 @@ static const char *startup_source = " compiled-module-box313_0)))" "(lambda()" "(module-begin-k_1" -" s_112" +" s_305" " ctx_112))" "(lambda()" "(begin" @@ -71110,92 +71399,92 @@ static const char *startup_source = " compiled-module-box310_0))))))))))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi" -" the-struct_104)" +" the-struct_99)" "(root-expand-context/inner-module-scopes" -" the-struct_104)" +" the-struct_99)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_104)" +" the-struct_99)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_104)" +" the-struct_99)" "(root-expand-context/inner-defined-syms" -" the-struct_104)" +" the-struct_99)" "(root-expand-context/inner-counter" -" the-struct_104)" +" the-struct_99)" "(root-expand-context/inner-lift-key" -" the-struct_104)" +" the-struct_99)" "(expand-context/inner-to-parsed?" -" the-struct_104)" +" the-struct_99)" "(expand-context/inner-phase" -" the-struct_104)" +" the-struct_99)" "(expand-context/inner-namespace" -" the-struct_104)" +" the-struct_99)" "(expand-context/inner-just-once?" -" the-struct_104)" +" the-struct_99)" " module-begin-k307_0" "(expand-context/inner-allow-unbound?" -" the-struct_104)" +" the-struct_99)" "(expand-context/inner-in-local-expand?" -" the-struct_104)" +" the-struct_99)" "(expand-context/inner-stops" -" the-struct_104)" +" the-struct_99)" "(expand-context/inner-declared-submodule-names" -" the-struct_104)" +" the-struct_99)" "(expand-context/inner-lifts" -" the-struct_104)" +" the-struct_99)" "(expand-context/inner-lift-envs" -" the-struct_104)" +" the-struct_99)" "(expand-context/inner-module-lifts" -" the-struct_104)" +" the-struct_99)" "(expand-context/inner-require-lifts" -" the-struct_104)" +" the-struct_99)" "(expand-context/inner-to-module-lifts" -" the-struct_104)" +" the-struct_99)" "(expand-context/inner-requires+provides" -" the-struct_104)" +" the-struct_99)" "(expand-context/inner-observer" -" the-struct_104)" +" the-struct_99)" "(expand-context/inner-for-serializable?" -" the-struct_104)" +" the-struct_99)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_104)))" +" the-struct_99)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_104)))))" +" the-struct_99)))))" "(expand-context/outer1.1" " inner306_0" "(root-expand-context/outer-post-expansion-scope" -" the-struct_103)" +" the-struct_98)" "(root-expand-context/outer-use-site-scopes" -" the-struct_103)" +" the-struct_98)" "(root-expand-context/outer-frame-id" -" the-struct_103)" +" the-struct_98)" "(expand-context/outer-context" -" the-struct_103)" +" the-struct_98)" "(expand-context/outer-env" -" the-struct_103)" +" the-struct_98)" "(expand-context/outer-post-expansion-scope-action" -" the-struct_103)" +" the-struct_98)" "(expand-context/outer-scopes" -" the-struct_103)" +" the-struct_98)" "(expand-context/outer-def-ctx-scopes" -" the-struct_103)" +" the-struct_98)" "(expand-context/outer-binding-layer" -" the-struct_103)" +" the-struct_98)" "(expand-context/outer-reference-records" -" the-struct_103)" +" the-struct_98)" "(expand-context/outer-only-immediate?" -" the-struct_103)" +" the-struct_98)" "(expand-context/outer-need-eventually-defined" -" the-struct_103)" +" the-struct_98)" "(expand-context/outer-current-introduction-scopes" -" the-struct_103)" +" the-struct_98)" "(expand-context/outer-name" -" the-struct_103)))" +" the-struct_98)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_103))))))" +" the-struct_98))))))" "(let-values(((added-s_2)" "(add-scope" " mb-s_0" @@ -71220,30 +71509,30 @@ static const char *startup_source = "(let-values(((ok?_75" " #%module-begin301_0" " body302_0)" -"(let-values(((s_215)" +"(let-values(((s_223)" " disarmed-mb-s_0))" "(let-values(((orig-s_83)" -" s_215))" +" s_223))" "(let-values(((#%module-begin301_1" " body302_1)" -"(let-values(((s_217)" +"(let-values(((s_113)" "(if(syntax?$1" -" s_215)" +" s_223)" "(syntax-e$1" -" s_215)" -" s_215)))" +" s_223)" +" s_223)))" "(if(pair?" -" s_217)" +" s_113)" "(let-values(((#%module-begin303_0)" -"(let-values(((s_744)" +"(let-values(((s_746)" "(car" -" s_217)))" -" s_744))" +" s_113)))" +" s_746))" "((body304_0)" "(let-values(((s_757)" "(cdr" -" s_217)))" -"(let-values(((s_116)" +" s_113)))" +"(let-values(((s_758)" "(if(syntax?$1" " s_757)" "(syntax-e$1" @@ -71251,7 +71540,7 @@ static const char *startup_source = " s_757)))" "(let-values(((flat-s_53)" "(to-syntax-list.1" -" s_116)))" +" s_758)))" "(if(not" " flat-s_53)" "(let-values()" @@ -71299,7 +71588,7 @@ static const char *startup_source = "(let-values(((expression-expanded-bodys_0)" "((letrec-values(((pass-1-and-2-loop_0)" "(lambda(bodys_17" -" phase_150)" +" phase_151)" "(begin" " 'pass-1-and-2-loop" "(let-values(((def-ctx-scopes_8)" @@ -71311,10 +71600,10 @@ static const char *startup_source = "(let-values(((partial-body-ctx_0)" "(let-values(((v_261)" " ctx_111))" -"(let-values(((the-struct_105)" +"(let-values(((the-struct_19)" " v_261))" "(if(expand-context/outer?" -" the-struct_105)" +" the-struct_19)" "(let-values(((context326_0)" " 'module)" "((def-ctx-scopes327_0)" @@ -71322,22 +71611,22 @@ static const char *startup_source = "((need-eventually-defined328_0)" " need-eventually-defined_1)" "((inner329_0)" -"(let-values(((the-struct_106)" +"(let-values(((the-struct_100)" "(root-expand-context/outer-inner" " v_261)))" "(if(expand-context/inner?" -" the-struct_106)" +" the-struct_100)" "(let-values(((phase330_0)" -" phase_150)" +" phase_151)" "((namespace331_0)" "(namespace->namespace-at-phase" " m-ns_19" -" phase_150))" +" phase_151))" "((stops332_0)" "(free-id-set" -" phase_150" +" phase_151" "(module-expand-stop-ids" -" phase_150)))" +" phase_151)))" "((declared-submodule-names333_0)" " declared-submodule-names_3)" "((lift-key334_0)" @@ -71357,11 +71646,11 @@ static const char *startup_source = " temp339_1)))" "((module-lifts336_0)" "(make-module-lift-context" -" phase_150" +" phase_151" " #t))" "((require-lifts337_0)" "(make-require-lift-context" -" phase_150" +" phase_151" "(let-values(((m-ns340_0)" " m-ns_19)" "((self341_0)" @@ -71377,7 +71666,7 @@ static const char *startup_source = " requires+provides342_0))))" "((to-module-lifts338_0)" "(let-values(((phase344_0)" -" phase_150)" +" phase_151)" "((module-ends345_0)" " module-ends_0)" "((temp346_0)" @@ -71388,86 +71677,86 @@ static const char *startup_source = " phase344_0))))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi" -" the-struct_106)" +" the-struct_100)" "(root-expand-context/inner-module-scopes" -" the-struct_106)" +" the-struct_100)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_106)" +" the-struct_100)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_106)" +" the-struct_100)" "(root-expand-context/inner-defined-syms" -" the-struct_106)" +" the-struct_100)" "(root-expand-context/inner-counter" -" the-struct_106)" +" the-struct_100)" " lift-key334_0" "(expand-context/inner-to-parsed?" -" the-struct_106)" +" the-struct_100)" " phase330_0" " namespace331_0" "(expand-context/inner-just-once?" -" the-struct_106)" +" the-struct_100)" "(expand-context/inner-module-begin-k" -" the-struct_106)" +" the-struct_100)" "(expand-context/inner-allow-unbound?" -" the-struct_106)" +" the-struct_100)" "(expand-context/inner-in-local-expand?" -" the-struct_106)" +" the-struct_100)" " stops332_0" " declared-submodule-names333_0" " lifts335_0" "(expand-context/inner-lift-envs" -" the-struct_106)" +" the-struct_100)" " module-lifts336_0" " require-lifts337_0" " to-module-lifts338_0" "(expand-context/inner-requires+provides" -" the-struct_106)" +" the-struct_100)" "(expand-context/inner-observer" -" the-struct_106)" +" the-struct_100)" "(expand-context/inner-for-serializable?" -" the-struct_106)" +" the-struct_100)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_106)))" +" the-struct_100)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_106)))))" +" the-struct_100)))))" "(expand-context/outer1.1" " inner329_0" "(root-expand-context/outer-post-expansion-scope" -" the-struct_105)" +" the-struct_19)" "(root-expand-context/outer-use-site-scopes" -" the-struct_105)" +" the-struct_19)" "(root-expand-context/outer-frame-id" -" the-struct_105)" +" the-struct_19)" " context326_0" "(expand-context/outer-env" -" the-struct_105)" +" the-struct_19)" "(expand-context/outer-post-expansion-scope-action" -" the-struct_105)" +" the-struct_19)" "(expand-context/outer-scopes" -" the-struct_105)" +" the-struct_19)" " def-ctx-scopes327_0" "(expand-context/outer-binding-layer" -" the-struct_105)" +" the-struct_19)" "(expand-context/outer-reference-records" -" the-struct_105)" +" the-struct_19)" "(expand-context/outer-only-immediate?" -" the-struct_105)" +" the-struct_19)" " need-eventually-defined328_0" "(expand-context/outer-current-introduction-scopes" -" the-struct_105)" +" the-struct_19)" "(expand-context/outer-name" -" the-struct_105)))" +" the-struct_19)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_105))))))" +" the-struct_19))))))" "(let-values(((partially-expanded-bodys_0)" "(let-values(((bodys347_0)" " bodys_17)" "((phase348_0)" -" phase_150)" +" phase_151)" "((partial-body-ctx349_0)" " partial-body-ctx_0)" "((m-ns350_0)" @@ -71531,25 +71820,25 @@ static const char *startup_source = "(accumulate-def-ctx-scopes" " partial-body-ctx_0" " def-ctx-scopes_8)))" -"(let-values(((the-struct_107)" +"(let-values(((the-struct_101)" " v_262))" "(if(expand-context/outer?" -" the-struct_107)" +" the-struct_101)" "(let-values(((def-ctx-scopes363_0)" " #f)" "((post-expansion-scope364_0)" " #f)" "((inner365_0)" -"(let-values(((the-struct_108)" +"(let-values(((the-struct_102)" "(root-expand-context/outer-inner" " v_262)))" "(if(expand-context/inner?" -" the-struct_108)" +" the-struct_102)" "(let-values(((stops366_0)" " empty-free-id-set)" "((to-module-lifts367_0)" "(let-values(((phase368_0)" -" phase_150)" +" phase_151)" "((module-ends369_0)" " module-ends_0)" "((temp370_0)" @@ -71560,93 +71849,93 @@ static const char *startup_source = " phase368_0))))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi" -" the-struct_108)" +" the-struct_102)" "(root-expand-context/inner-module-scopes" -" the-struct_108)" +" the-struct_102)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_108)" +" the-struct_102)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_108)" +" the-struct_102)" "(root-expand-context/inner-defined-syms" -" the-struct_108)" +" the-struct_102)" "(root-expand-context/inner-counter" -" the-struct_108)" +" the-struct_102)" "(root-expand-context/inner-lift-key" -" the-struct_108)" +" the-struct_102)" "(expand-context/inner-to-parsed?" -" the-struct_108)" +" the-struct_102)" "(expand-context/inner-phase" -" the-struct_108)" +" the-struct_102)" "(expand-context/inner-namespace" -" the-struct_108)" +" the-struct_102)" "(expand-context/inner-just-once?" -" the-struct_108)" +" the-struct_102)" "(expand-context/inner-module-begin-k" -" the-struct_108)" +" the-struct_102)" "(expand-context/inner-allow-unbound?" -" the-struct_108)" +" the-struct_102)" "(expand-context/inner-in-local-expand?" -" the-struct_108)" +" the-struct_102)" " stops366_0" "(expand-context/inner-declared-submodule-names" -" the-struct_108)" +" the-struct_102)" "(expand-context/inner-lifts" -" the-struct_108)" +" the-struct_102)" "(expand-context/inner-lift-envs" -" the-struct_108)" +" the-struct_102)" "(expand-context/inner-module-lifts" -" the-struct_108)" +" the-struct_102)" "(expand-context/inner-require-lifts" -" the-struct_108)" +" the-struct_102)" " to-module-lifts367_0" "(expand-context/inner-requires+provides" -" the-struct_108)" +" the-struct_102)" "(expand-context/inner-observer" -" the-struct_108)" +" the-struct_102)" "(expand-context/inner-for-serializable?" -" the-struct_108)" +" the-struct_102)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_108)))" +" the-struct_102)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_108)))))" +" the-struct_102)))))" "(expand-context/outer1.1" " inner365_0" " post-expansion-scope364_0" "(root-expand-context/outer-use-site-scopes" -" the-struct_107)" +" the-struct_101)" "(root-expand-context/outer-frame-id" -" the-struct_107)" +" the-struct_101)" "(expand-context/outer-context" -" the-struct_107)" +" the-struct_101)" "(expand-context/outer-env" -" the-struct_107)" +" the-struct_101)" "(expand-context/outer-post-expansion-scope-action" -" the-struct_107)" +" the-struct_101)" "(expand-context/outer-scopes" -" the-struct_107)" +" the-struct_101)" " def-ctx-scopes363_0" "(expand-context/outer-binding-layer" -" the-struct_107)" +" the-struct_101)" "(expand-context/outer-reference-records" -" the-struct_107)" +" the-struct_101)" "(expand-context/outer-only-immediate?" -" the-struct_107)" +" the-struct_101)" "(expand-context/outer-need-eventually-defined" -" the-struct_107)" +" the-struct_101)" "(expand-context/outer-current-introduction-scopes" -" the-struct_107)" +" the-struct_101)" "(expand-context/outer-name" -" the-struct_107)))" +" the-struct_101)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_107))))))" +" the-struct_101))))))" "(let-values(((partially-expanded-bodys318_0)" " partially-expanded-bodys_0)" "((phase319_0)" -" phase_150)" +" phase_151)" "((body-ctx320_0)" " body-ctx_6)" "((self321_0)" @@ -71670,7 +71959,7 @@ static const char *startup_source = " partially-expanded-bodys318_0))))))))))))" " pass-1-and-2-loop_0)" " bodys_16" -" phase_149)))" +" phase_150)))" "(let-values((()" "(begin" "(check-defined-by-now" @@ -71701,7 +71990,7 @@ static const char *startup_source = "((m-ns374_0)" " m-ns_19)" "((phase375_0)" -" phase_149)" +" phase_150)" "((self376_0)" " self_32)" "((ctx377_0)" @@ -71765,108 +72054,108 @@ static const char *startup_source = "(let-values(((submod-ctx_0)" "(let-values(((v_263)" " ctx_111))" -"(let-values(((the-struct_109)" +"(let-values(((the-struct_103)" " v_263))" "(if(expand-context/outer?" -" the-struct_109)" +" the-struct_103)" "(let-values(((frame-id380_0)" " #f)" "((post-expansion-scope381_0)" " #f)" "((inner382_0)" -"(let-values(((the-struct_110)" +"(let-values(((the-struct_20)" "(root-expand-context/outer-inner" " v_263)))" "(if(expand-context/inner?" -" the-struct_110)" +" the-struct_20)" "(let-values(((namespace383_0)" " submod-m-ns_0))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi" -" the-struct_110)" +" the-struct_20)" "(root-expand-context/inner-module-scopes" -" the-struct_110)" +" the-struct_20)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_110)" +" the-struct_20)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_110)" +" the-struct_20)" "(root-expand-context/inner-defined-syms" -" the-struct_110)" +" the-struct_20)" "(root-expand-context/inner-counter" -" the-struct_110)" +" the-struct_20)" "(root-expand-context/inner-lift-key" -" the-struct_110)" +" the-struct_20)" "(expand-context/inner-to-parsed?" -" the-struct_110)" +" the-struct_20)" "(expand-context/inner-phase" -" the-struct_110)" +" the-struct_20)" " namespace383_0" "(expand-context/inner-just-once?" -" the-struct_110)" +" the-struct_20)" "(expand-context/inner-module-begin-k" -" the-struct_110)" +" the-struct_20)" "(expand-context/inner-allow-unbound?" -" the-struct_110)" +" the-struct_20)" "(expand-context/inner-in-local-expand?" -" the-struct_110)" +" the-struct_20)" "(expand-context/inner-stops" -" the-struct_110)" +" the-struct_20)" "(expand-context/inner-declared-submodule-names" -" the-struct_110)" +" the-struct_20)" "(expand-context/inner-lifts" -" the-struct_110)" +" the-struct_20)" "(expand-context/inner-lift-envs" -" the-struct_110)" +" the-struct_20)" "(expand-context/inner-module-lifts" -" the-struct_110)" +" the-struct_20)" "(expand-context/inner-require-lifts" -" the-struct_110)" +" the-struct_20)" "(expand-context/inner-to-module-lifts" -" the-struct_110)" +" the-struct_20)" "(expand-context/inner-requires+provides" -" the-struct_110)" +" the-struct_20)" "(expand-context/inner-observer" -" the-struct_110)" +" the-struct_20)" "(expand-context/inner-for-serializable?" -" the-struct_110)" +" the-struct_20)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_110)))" +" the-struct_20)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_110)))))" +" the-struct_20)))))" "(expand-context/outer1.1" " inner382_0" " post-expansion-scope381_0" "(root-expand-context/outer-use-site-scopes" -" the-struct_109)" +" the-struct_103)" " frame-id380_0" "(expand-context/outer-context" -" the-struct_109)" +" the-struct_103)" "(expand-context/outer-env" -" the-struct_109)" +" the-struct_103)" "(expand-context/outer-post-expansion-scope-action" -" the-struct_109)" +" the-struct_103)" "(expand-context/outer-scopes" -" the-struct_109)" +" the-struct_103)" "(expand-context/outer-def-ctx-scopes" -" the-struct_109)" +" the-struct_103)" "(expand-context/outer-binding-layer" -" the-struct_109)" +" the-struct_103)" "(expand-context/outer-reference-records" -" the-struct_109)" +" the-struct_103)" "(expand-context/outer-only-immediate?" -" the-struct_109)" +" the-struct_103)" "(expand-context/outer-need-eventually-defined" -" the-struct_109)" +" the-struct_103)" "(expand-context/outer-current-introduction-scopes" -" the-struct_109)" +" the-struct_103)" "(expand-context/outer-name" -" the-struct_109)))" +" the-struct_103)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_109))))))" +" the-struct_103))))))" "(let-values(((declare-enclosing-module_0)" "(delay" "(lambda()" @@ -71917,7 +72206,7 @@ static const char *startup_source = "((declare-enclosing-module396_0)" " declare-enclosing-module_0)" "((phase397_0)" -" phase_149)" +" phase_150)" "((self398_0)" " self_32)" "((requires+provides399_0)" @@ -71985,108 +72274,108 @@ static const char *startup_source = "(let-values(((mb-ctx_0)" "(let-values(((v_264)" " ctx_110))" -"(let-values(((the-struct_111)" +"(let-values(((the-struct_104)" " v_264))" "(if(expand-context/outer?" -" the-struct_111)" +" the-struct_104)" "(let-values(((context409_0)" " 'module-begin)" "((inner410_0)" -"(let-values(((the-struct_112)" +"(let-values(((the-struct_105)" "(root-expand-context/outer-inner" " v_264)))" "(if(expand-context/inner?" -" the-struct_112)" +" the-struct_105)" "(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_112)" +" the-struct_105)" "(root-expand-context/inner-module-scopes" -" the-struct_112)" +" the-struct_105)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_112)" +" the-struct_105)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_112)" +" the-struct_105)" "(root-expand-context/inner-defined-syms" -" the-struct_112)" +" the-struct_105)" "(root-expand-context/inner-counter" -" the-struct_112)" +" the-struct_105)" "(root-expand-context/inner-lift-key" -" the-struct_112)" +" the-struct_105)" "(expand-context/inner-to-parsed?" -" the-struct_112)" +" the-struct_105)" "(expand-context/inner-phase" -" the-struct_112)" +" the-struct_105)" "(expand-context/inner-namespace" -" the-struct_112)" +" the-struct_105)" "(expand-context/inner-just-once?" -" the-struct_112)" +" the-struct_105)" " module-begin-k411_0" "(expand-context/inner-allow-unbound?" -" the-struct_112)" +" the-struct_105)" " in-local-expand?412_0" "(expand-context/inner-stops" -" the-struct_112)" +" the-struct_105)" "(expand-context/inner-declared-submodule-names" -" the-struct_112)" +" the-struct_105)" "(expand-context/inner-lifts" -" the-struct_112)" +" the-struct_105)" "(expand-context/inner-lift-envs" -" the-struct_112)" +" the-struct_105)" "(expand-context/inner-module-lifts" -" the-struct_112)" +" the-struct_105)" "(expand-context/inner-require-lifts" -" the-struct_112)" +" the-struct_105)" "(expand-context/inner-to-module-lifts" -" the-struct_112)" +" the-struct_105)" "(expand-context/inner-requires+provides" -" the-struct_112)" +" the-struct_105)" "(expand-context/inner-observer" -" the-struct_112)" +" the-struct_105)" "(expand-context/inner-for-serializable?" -" the-struct_112)" +" the-struct_105)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_112)))" +" the-struct_105)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_112)))))" +" the-struct_105)))))" "(expand-context/outer1.1" " inner410_0" "(root-expand-context/outer-post-expansion-scope" -" the-struct_111)" +" the-struct_104)" "(root-expand-context/outer-use-site-scopes" -" the-struct_111)" +" the-struct_104)" "(root-expand-context/outer-frame-id" -" the-struct_111)" +" the-struct_104)" " context409_0" "(expand-context/outer-env" -" the-struct_111)" +" the-struct_104)" "(expand-context/outer-post-expansion-scope-action" -" the-struct_111)" +" the-struct_104)" "(expand-context/outer-scopes" -" the-struct_111)" +" the-struct_104)" "(expand-context/outer-def-ctx-scopes" -" the-struct_111)" +" the-struct_104)" "(expand-context/outer-binding-layer" -" the-struct_111)" +" the-struct_104)" "(expand-context/outer-reference-records" -" the-struct_111)" +" the-struct_104)" "(expand-context/outer-only-immediate?" -" the-struct_111)" +" the-struct_104)" "(expand-context/outer-need-eventually-defined" -" the-struct_111)" +" the-struct_104)" "(expand-context/outer-current-introduction-scopes" -" the-struct_111)" +" the-struct_104)" "(expand-context/outer-name" -" the-struct_111)))" +" the-struct_104)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_111))))))" +" the-struct_104))))))" "(let-values(((mb-scopes-s_0)" "(if keep-enclosing-scope-at-phase_0" " disarmed-s_24" @@ -72108,7 +72397,7 @@ static const char *startup_source = "((mb-def-ctx-scopes418_0)" " mb-def-ctx-scopes_0)" "((phase419_0)" -" phase_149)" +" phase_150)" "((s420_0)" " s_16))" "(ensure-module-begin36.1" @@ -72142,11 +72431,11 @@ static const char *startup_source = " self_32" " self_32)))" "(let-values(((result-form_0)" -"(if(let-values(((or-part_352)" +"(if(let-values(((or-part_353)" "(expand-context-to-parsed?" " init-ctx_0)))" -"(if or-part_352" -" or-part_352" +"(if or-part_353" +" or-part_353" " always-produce-compiled?_0))" "(parsed-module25.1" " rebuild-s_14" @@ -72182,7 +72471,7 @@ static const char *startup_source = "(begin" "(imitate-generic-module-path-index!" " self_32)" -"(let-values(((lst_143)" +"(let-values(((lst_144)" "(unbox" " mpis-to-reset_0)))" "(begin" @@ -72191,19 +72480,19 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_143)))" -"((letrec-values(((for-loop_169)" -"(lambda(lst_422)" +" lst_144)))" +"((letrec-values(((for-loop_140)" +"(lambda(lst_419)" "(begin" " 'for-loop" "(if(pair?" -" lst_422)" -"(let-values(((mpi_53)" +" lst_419)" +"(let-values(((mpi_54)" "(unsafe-car" -" lst_422))" -"((rest_238)" +" lst_419))" +"((rest_243)" "(unsafe-cdr" -" lst_422)))" +" lst_419)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -72211,17 +72500,17 @@ static const char *startup_source = "(begin" "(let-values()" "(imitate-generic-module-path-index!" -" mpi_53))" +" mpi_54))" "(values)))))" "(values)))))" "(if(not" " #f)" -"(for-loop_169" -" rest_238)" +"(for-loop_140" +" rest_243)" "(values))))" "(values))))))" -" for-loop_169)" -" lst_143)))" +" for-loop_140)" +" lst_144)))" "(void)" "(let-values(((result-s_15)" "(let-values(((rebuild-s423_0)" @@ -72303,40 +72592,40 @@ static const char *startup_source = "(let-values()" "(let-values(((ctx_113) ctx24_0))" "(let-values(((def-ctx-scopes_9) def-ctx-scopes25_0))" -"(let-values(((phase_151) phase26_3))" -"(let-values(((s_758) s27_2))" +"(let-values(((phase_152) phase26_3))" +"(let-values(((s_759) s27_2))" "(let-values()" "(let-values(((make-mb-ctx_0)" "(lambda()" "(begin" " 'make-mb-ctx" "(let-values(((v_265) ctx_113))" -"(let-values(((the-struct_113) v_265))" -"(if(expand-context/outer? the-struct_113)" +"(let-values(((the-struct_106) v_265))" +"(if(expand-context/outer? the-struct_106)" "(let-values(((context428_0) 'module-begin)" "((only-immediate?429_0) #t)" "((def-ctx-scopes430_0) def-ctx-scopes_9)" "((inner431_0)(root-expand-context/outer-inner v_265)))" "(expand-context/outer1.1" " inner431_0" -"(root-expand-context/outer-post-expansion-scope the-struct_113)" -"(root-expand-context/outer-use-site-scopes the-struct_113)" -"(root-expand-context/outer-frame-id the-struct_113)" +"(root-expand-context/outer-post-expansion-scope the-struct_106)" +"(root-expand-context/outer-use-site-scopes the-struct_106)" +"(root-expand-context/outer-frame-id the-struct_106)" " context428_0" -"(expand-context/outer-env the-struct_113)" -"(expand-context/outer-post-expansion-scope-action the-struct_113)" -"(expand-context/outer-scopes the-struct_113)" +"(expand-context/outer-env the-struct_106)" +"(expand-context/outer-post-expansion-scope-action the-struct_106)" +"(expand-context/outer-scopes the-struct_106)" " def-ctx-scopes430_0" -"(expand-context/outer-binding-layer the-struct_113)" -"(expand-context/outer-reference-records the-struct_113)" +"(expand-context/outer-binding-layer the-struct_106)" +"(expand-context/outer-reference-records the-struct_106)" " only-immediate?429_0" -"(expand-context/outer-need-eventually-defined the-struct_113)" -"(expand-context/outer-current-introduction-scopes the-struct_113)" -"(expand-context/outer-name the-struct_113)))" +"(expand-context/outer-need-eventually-defined the-struct_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_113))))))))" +" the-struct_106))))))))" "(let-values(((mb_1)" "(if(= 1(length bodys_18))" "(let-values()" @@ -72349,7 +72638,7 @@ static const char *startup_source = "(void)))" "(if(eq?" " '#%module-begin" -"(core-form-sym(syntax-disarm$1(car bodys_18)) phase_151))" +"(core-form-sym(syntax-disarm$1(car bodys_18)) phase_152))" "(let-values()(car bodys_18))" "(let-values()" "(let-values(((partly-expanded-body_0)" @@ -72364,13 +72653,13 @@ static const char *startup_source = " '#%module-begin" "(core-form-sym" "(syntax-disarm$1 partly-expanded-body_0)" -" phase_151))" +" phase_152))" "(let-values() partly-expanded-body_0)" "(let-values()" "(let-values(((temp434_0)(list partly-expanded-body_0))" -"((s435_1) s_758)" +"((s435_1) s_759)" "((scopes-s436_0) scopes-s_0)" -"((phase437_0) phase_151)" +"((phase437_0) phase_152)" "((module-name-sym438_0) module-name-sym_1)" "((temp439_1)(make-mb-ctx_0))" "((temp440_0) #f))" @@ -72385,9 +72674,9 @@ static const char *startup_source = " temp439_1)))))))))" "(let-values()" "(let-values(((bodys441_0) bodys_18)" -"((s442_0) s_758)" +"((s442_0) s_759)" "((scopes-s443_0) scopes-s_0)" -"((phase444_0) phase_151)" +"((phase444_0) phase_152)" "((module-name-sym445_0) module-name-sym_1)" "((temp446_0)(make-mb-ctx_0)))" "(add-module-begin47.1" @@ -72413,9 +72702,9 @@ static const char *startup_source = "(begin" " 'add-module-begin47" "(let-values(((bodys_19) bodys41_0))" -"(let-values(((s_759) s42_0))" +"(let-values(((s_760) s42_0))" "(let-values(((scopes-s_1) scopes-s43_0))" -"(let-values(((phase_152) phase44_1))" +"(let-values(((phase_153) 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)))" @@ -72424,17 +72713,17 @@ 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_152))" +"(if(let-values(((mb-id447_0) mb-id_0)((phase448_0) phase_153))" "(resolve40.1 #f #f #f #f #f #f #f #f mb-id447_0 phase448_0))" "(void)" "(let-values()" "(raise-syntax-error$1" " #f" " \"no #%module-begin binding in the module's language\"" -" s_759)))" +" s_760)))" "(values))))" "(let-values(((mb_2)" -"(datum->syntax$1 disarmed-scopes-s_0(list* mb-id_0 bodys_19) s_759 s_759)))" +"(datum->syntax$1 disarmed-scopes-s_0(list* mb-id_0 bodys_19) s_760 s_760)))" "(let-values((()" "(begin" "(let-values(((obs_135)(expand-context-observer mb-ctx_1)))" @@ -72464,13 +72753,13 @@ static const char *startup_source = "(begin" "(if(eq?" " '#%module-begin" -"(core-form-sym(syntax-disarm$1 partly-expanded-mb_0) phase_152))" +"(core-form-sym(syntax-disarm$1 partly-expanded-mb_0) phase_153))" "(void)" "(let-values()" "(raise-syntax-error$1" " #f" " \"expansion of #%module-begin is not a #%plain-module-begin form\"" -" s_759" +" s_760" " partly-expanded-mb_0)))" " partly-expanded-mb_0)))))))))))))))))))" "(define-values" @@ -72486,13 +72775,13 @@ static const char *startup_source = " enclosing-self_2" " enclosing-mod_2)" "(begin" -"(lambda(s_760)" +"(lambda(s_761)" "(let-values()" "(let-values(((s-without-enclosing_0)" "(if keep-enclosing-scope-at-phase_1" -" s_760" +" s_761" "(remove-use-site-scopes" -"(remove-scopes s_760(root-expand-context-module-scopes init-ctx_1))" +"(remove-scopes s_761(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)))" @@ -72544,7 +72833,7 @@ static const char *startup_source = "(begin" " 'partially-expand-bodys81" "(let-values(((bodys_20) bodys80_0))" -"(let-values(((phase_153) phase50_0))" +"(let-values(((phase_154) phase50_0))" "(let-values(((partial-body-ctx_1) ctx51_0))" "(let-values(((m-ns_20) namespace52_0))" "(let-values(((self_34) self53_0))" @@ -72561,14 +72850,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_20 phase_153)" -"((letrec-values(((loop_124)" +"(namespace-visit-available-modules! m-ns_20 phase_154)" +"((letrec-values(((loop_125)" "(lambda(tail?_52 bodys_21)" "(begin" " 'loop" "(if(null? bodys_21)" "(let-values()" -"(if(if tail?_52(not(zero? phase_153)) #f)" +"(if(if tail?_52(not(zero? phase_154)) #f)" "(let-values()" "(begin" "(let-values(((obs_137)" @@ -72608,7 +72897,7 @@ static const char *startup_source = "(if(null? bodys_22)" "(let-values() null)" "(let-values()" -"(loop_124" +"(loop_125" " #t" "(add-post-expansion-scope" " bodys_22" @@ -72672,49 +72961,49 @@ static const char *startup_source = "(lambda()" "(begin" " 'finish" -"(let-values(((tmp_23)" +"(let-values(((tmp_65)" "(core-form-sym" " disarmed-exp-body_1" -" phase_153)))" +" phase_154)))" "(if(equal?" -" tmp_23" +" tmp_65" " 'begin)" "(let-values()" "(let-values(((ok?_76" " begin460_0" " e461_0)" -"(let-values(((s_761)" +"(let-values(((s_141)" " disarmed-exp-body_1))" "(let-values(((orig-s_84)" -" s_761))" +" s_141))" "(let-values(((begin460_1" " e461_1)" "(let-values(((s_762)" "(if(syntax?$1" -" s_761)" +" s_141)" "(syntax-e$1" -" s_761)" -" s_761)))" +" s_141)" +" s_141)))" "(if(pair?" " s_762)" "(let-values(((begin462_0)" -"(let-values(((s_141)" +"(let-values(((s_763)" "(car" " s_762)))" -" s_141))" +" s_763))" "((e463_0)" -"(let-values(((s_763)" +"(let-values(((s_764)" "(cdr" " s_762)))" -"(let-values(((s_764)" +"(let-values(((s_765)" "(if(syntax?$1" -" s_763)" +" s_764)" "(syntax-e$1" -" s_763)" -" s_763)))" +" s_764)" +" s_764)))" "(let-values(((flat-s_54)" "(to-syntax-list.1" -" s_764)))" +" s_765)))" "(if(not" " flat-s_54)" "(let-values()" @@ -72760,11 +73049,11 @@ static const char *startup_source = " 'splice" " spliced-bodys_0)))" "(void)))" -"(loop_124" +"(loop_125" " tail?_52" " spliced-bodys_0))))))" "(if(equal?" -" tmp_23" +" tmp_65" " 'begin-for-syntax)" "(let-values()" "(let-values((()" @@ -72792,7 +73081,7 @@ static const char *startup_source = "(namespace->namespace-at-phase" " m-ns_20" "(add1" -" phase_153))))" +" phase_154))))" "(let-values((()" "(begin" "(prepare-next-phase-namespace" @@ -72814,38 +73103,38 @@ static const char *startup_source = "(let-values(((ok?_77" " begin-for-syntax464_0" " e465_0)" -"(let-values(((s_765)" +"(let-values(((s_766)" " disarmed-exp-body_1))" "(let-values(((orig-s_85)" -" s_765))" +" s_766))" "(let-values(((begin-for-syntax464_1" " e465_1)" -"(let-values(((s_766)" -"(if(syntax?$1" -" s_765)" -"(syntax-e$1" -" s_765)" -" s_765)))" -"(if(pair?" -" s_766)" -"(let-values(((begin-for-syntax466_0)" "(let-values(((s_767)" -"(car" -" s_766)))" -" s_767))" -"((e467_0)" -"(let-values(((s_768)" -"(cdr" -" s_766)))" -"(let-values(((s_769)" "(if(syntax?$1" -" s_768)" +" s_766)" "(syntax-e$1" -" s_768)" -" s_768)))" +" s_766)" +" s_766)))" +"(if(pair?" +" s_767)" +"(let-values(((begin-for-syntax466_0)" +"(let-values(((s_768)" +"(car" +" s_767)))" +" s_768))" +"((e467_0)" +"(let-values(((s_769)" +"(cdr" +" s_767)))" +"(let-values(((s_770)" +"(if(syntax?$1" +" s_769)" +"(syntax-e$1" +" s_769)" +" s_769)))" "(let-values(((flat-s_55)" "(to-syntax-list.1" -" s_769)))" +" s_770)))" "(if(not" " flat-s_55)" "(let-values()" @@ -72870,7 +73159,7 @@ static const char *startup_source = "(pass-1-and-2-loop_1" " e465_0" "(add1" -" phase_153))))" +" phase_154))))" "(begin" "(let-values(((obs_144)" "(expand-context-observer" @@ -72885,17 +73174,17 @@ static const char *startup_source = "(namespace-run-available-modules!" " m-ns_20" "(add1" -" phase_153))" +" phase_154))" "(eval-nested-bodys" " nested-bodys_1" "(add1" -" phase_153)" +" phase_154)" " ct-m-ns_0" " self_34" " partial-body-ctx_1)" "(namespace-visit-available-modules!" " m-ns_20" -" phase_153)" +" phase_154)" "(let-values(((obs_145)" "(expand-context-observer" " partial-body-ctx_1)))" @@ -72907,7 +73196,7 @@ static const char *startup_source = " 'exit-prim" "(let-values(((s-nested-bodys_0)" "(reverse$1" -"(let-values(((lst_423)" +"(let-values(((lst_420)" " nested-bodys_1))" "(begin" "(if(variable-reference-from-unsafe?" @@ -72915,42 +73204,42 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_423)))" -"((letrec-values(((for-loop_325)" -"(lambda(fold-var_368" -" lst_424)" +" lst_420)))" +"((letrec-values(((for-loop_324)" +"(lambda(fold-var_371" +" lst_421)" "(begin" " 'for-loop" "(if(pair?" -" lst_424)" +" lst_421)" "(let-values(((nested-body_0)" "(unsafe-car" -" lst_424))" -"((rest_239)" +" lst_421))" +"((rest_244)" "(unsafe-cdr" -" lst_424)))" -"(let-values(((fold-var_369)" -"(let-values(((fold-var_125)" -" fold-var_368))" -"(let-values(((fold-var_126)" +" lst_421)))" +"(let-values(((fold-var_372)" +"(let-values(((fold-var_373)" +" fold-var_371))" +"(let-values(((fold-var_374)" "(let-values()" "(cons" "(let-values()" "(extract-syntax" " nested-body_0))" -" fold-var_125))))" +" fold-var_373))))" "(values" -" fold-var_126)))))" +" fold-var_374)))))" "(if(not" " #f)" -"(for-loop_325" -" fold-var_369" -" rest_239)" -" fold-var_369)))" -" fold-var_368)))))" -" for-loop_325)" +"(for-loop_324" +" fold-var_372" +" rest_244)" +" fold-var_372)))" +" fold-var_371)))))" +" for-loop_324)" " null" -" lst_423))))))" +" lst_420))))))" "(datum->syntax$1" " #f" "(cons" @@ -72962,11 +73251,11 @@ static const char *startup_source = "(semi-parsed-begin-for-syntax3.1" " exp-body_7" " nested-bodys_1)" -"(loop_124" +"(loop_125" " tail?_52" " rest-bodys_1))))))))))" "(if(equal?" -" tmp_23" +" tmp_65" " 'define-values)" "(let-values()" "(let-values((()" @@ -72991,37 +73280,37 @@ static const char *startup_source = " define-values468_0" " id469_0" " rhs470_0)" -"(let-values(((s_770)" +"(let-values(((s_771)" " disarmed-exp-body_1))" "(let-values(((orig-s_86)" -" s_770))" +" s_771))" "(let-values(((define-values468_1" " id469_1" " rhs470_1)" -"(let-values(((s_771)" -"(if(syntax?$1" -" s_770)" -"(syntax-e$1" -" s_770)" -" s_770)))" -"(if(pair?" -" s_771)" -"(let-values(((define-values471_0)" "(let-values(((s_772)" -"(car" +"(if(syntax?$1" +" s_771)" +"(syntax-e$1" +" s_771)" " s_771)))" -" s_772))" +"(if(pair?" +" s_772)" +"(let-values(((define-values471_0)" +"(let-values(((s_773)" +"(car" +" s_772)))" +" s_773))" "((id472_0" " rhs473_0)" -"(let-values(((s_773)" +"(let-values(((s_193)" "(cdr" -" s_771)))" +" s_772)))" "(let-values(((s_774)" "(if(syntax?$1" -" s_773)" +" s_193)" "(syntax-e$1" -" s_773)" -" s_773)))" +" s_193)" +" s_193)))" "(if(pair?" " s_774)" "(let-values(((id474_0)" @@ -73046,7 +73335,7 @@ static const char *startup_source = " orig-s_86))" "(let-values()" "(let-values(((id_150)" -"(let-values(((lst_425)" +"(let-values(((lst_422)" " flat-s_56))" "(begin" "(if(variable-reference-from-unsafe?" @@ -73054,20 +73343,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_425)))" -"((letrec-values(((for-loop_165)" +" lst_422)))" +"((letrec-values(((for-loop_325)" "(lambda(id_151" -" lst_426)" +" lst_423)" "(begin" " 'for-loop" "(if(pair?" -" lst_426)" +" lst_423)" "(let-values(((s_777)" "(unsafe-car" -" lst_426))" -"((rest_240)" +" lst_423))" +"((rest_245)" "(unsafe-cdr" -" lst_426)))" +" lst_423)))" "(let-values(((id_152)" "(let-values(((id_153)" " id_151))" @@ -73075,15 +73364,15 @@ static const char *startup_source = "(let-values()" "(let-values(((id484_0)" "(let-values()" -"(if(let-values(((or-part_406)" +"(if(let-values(((or-part_404)" "(if(syntax?$1" " s_777)" "(symbol?" "(syntax-e$1" " s_777))" " #f)))" -"(if or-part_406" -" or-part_406" +"(if or-part_404" +" or-part_404" "(symbol?" " s_777)))" " s_777" @@ -73099,14 +73388,14 @@ static const char *startup_source = " id_154)))))" "(if(not" " #f)" -"(for-loop_165" +"(for-loop_325" " id_152" -" rest_240)" +" rest_245)" " id_152)))" " id_151)))))" -" for-loop_165)" +" for-loop_325)" " null" -" lst_425)))))" +" lst_422)))))" "(reverse$1" " id_150))))))))" "((rhs475_0)" @@ -73178,7 +73467,7 @@ static const char *startup_source = "(let-values(((ids477_0)" " ids_43)" "((phase478_0)" -" phase_153)" +" phase_154)" "((exp-body479_0)" " exp-body_7))" "(check-no-duplicate-ids8.1" @@ -73195,7 +73484,7 @@ static const char *startup_source = "(let-values(((ids480_0)" " ids_43)" "((phase481_0)" -" phase_153)" +" phase_154)" "((requires+provides482_0)" " requires+provides_7)" "((exp-body483_0)" @@ -73214,7 +73503,7 @@ static const char *startup_source = "((self487_0)" " self_34)" "((phase488_0)" -" phase_153)" +" phase_154)" "((all-scopes-stx489_0)" " all-scopes-stx_5)" "((frame-id490_0)" @@ -73242,7 +73531,7 @@ static const char *startup_source = "(add-defined-syms!" " requires+provides_7" " syms_24" -" phase_153)" +" phase_154)" "(let-values(((obs_147)" "(expand-context-observer" " partial-body-ctx_1)))" @@ -73266,11 +73555,11 @@ static const char *startup_source = " syms_24" " ids_43" " rhs470_0)" -"(loop_124" +"(loop_125" " tail?_52" " rest-bodys_1))))))))))" "(if(equal?" -" tmp_23" +" tmp_65" " 'define-syntaxes)" "(let-values()" "(let-values((()" @@ -73341,19 +73630,19 @@ static const char *startup_source = "(let-values(((s_786)" "(cdr" " s_784)))" -"(let-values(((s_532)" +"(let-values(((s_534)" "(if(syntax?$1" " s_786)" "(syntax-e$1" " s_786)" " s_786)))" "(if(pair?" -" s_532)" +" s_534)" "(let-values(((id499_0)" "(let-values(((s_787)" "(car" -" s_532)))" -"(let-values(((s_533)" +" s_534)))" +"(let-values(((s_535)" "(if(syntax?$1" " s_787)" "(syntax-e$1" @@ -73361,7 +73650,7 @@ static const char *startup_source = " s_787)))" "(let-values(((flat-s_57)" "(to-syntax-list.1" -" s_533)))" +" s_535)))" "(if(not" " flat-s_57)" "(let-values()" @@ -73371,7 +73660,7 @@ static const char *startup_source = " orig-s_87))" "(let-values()" "(let-values(((id_155)" -"(let-values(((lst_427)" +"(let-values(((lst_424)" " flat-s_57))" "(begin" "(if(variable-reference-from-unsafe?" @@ -73379,20 +73668,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_427)))" +" lst_424)))" "((letrec-values(((for-loop_326)" "(lambda(id_156" -" lst_428)" +" lst_425)" "(begin" " 'for-loop" "(if(pair?" -" lst_428)" -"(let-values(((s_536)" +" lst_425)" +"(let-values(((s_538)" "(unsafe-car" -" lst_428))" -"((rest_241)" +" lst_425))" +"((rest_246)" "(unsafe-cdr" -" lst_428)))" +" lst_425)))" "(let-values(((id_157)" "(let-values(((id_158)" " id_156))" @@ -73400,23 +73689,23 @@ static const char *startup_source = "(let-values()" "(let-values(((id509_0)" "(let-values()" -"(if(let-values(((or-part_407)" +"(if(let-values(((or-part_405)" "(if(syntax?$1" -" s_536)" +" s_538)" "(symbol?" "(syntax-e$1" -" s_536))" +" s_538))" " #f)))" -"(if or-part_407" -" or-part_407" +"(if or-part_405" +" or-part_405" "(symbol?" -" s_536)))" -" s_536" +" s_538)))" +" s_538" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_87" -" s_536)))))" +" s_538)))))" "(cons" " id509_0" " id_158)))))" @@ -73426,18 +73715,18 @@ static const char *startup_source = " #f)" "(for-loop_326" " id_157" -" rest_241)" +" rest_246)" " id_157)))" " id_156)))))" " for-loop_326)" " null" -" lst_427)))))" +" lst_424)))))" "(reverse$1" " id_155))))))))" "((rhs500_0)" "(let-values(((s_788)" "(cdr" -" s_532)))" +" s_534)))" "(let-values(((s_789)" "(if(syntax?$1" " s_788)" @@ -73503,7 +73792,7 @@ static const char *startup_source = "(let-values(((ids502_0)" " ids_44)" "((phase503_0)" -" phase_153)" +" phase_154)" "((exp-body504_0)" " exp-body_7))" "(check-no-duplicate-ids8.1" @@ -73520,7 +73809,7 @@ static const char *startup_source = "(let-values(((ids505_0)" " ids_44)" "((phase506_0)" -" phase_153)" +" phase_154)" "((requires+provides507_0)" " requires+provides_7)" "((exp-body508_0)" @@ -73539,7 +73828,7 @@ static const char *startup_source = "((self512_0)" " self_34)" "((phase513_0)" -" phase_153)" +" phase_154)" "((all-scopes-stx514_0)" " all-scopes-stx_5)" "((frame-id515_0)" @@ -73570,7 +73859,7 @@ static const char *startup_source = "(add-defined-syms!" " requires+provides_7" " syms_25" -" phase_153)" +" phase_154)" "(values))))" "(let-values(((exp-rhs_5" " parsed-rhs_2" @@ -73582,18 +73871,18 @@ static const char *startup_source = "((temp521_0)" "(let-values(((v_266)" " partial-body-ctx_1))" -"(let-values(((the-struct_114)" +"(let-values(((the-struct_107)" " v_266))" "(if(expand-context/outer?" -" the-struct_114)" +" the-struct_107)" "(let-values(((need-eventually-defined523_0)" " need-eventually-defined_2)" "((inner524_0)" -"(let-values(((the-struct_115)" +"(let-values(((the-struct_108)" "(root-expand-context/outer-inner" " v_266)))" "(if(expand-context/inner?" -" the-struct_115)" +" the-struct_108)" "(let-values(((lifts525_0)" " #f)" "((module-lifts526_0)" @@ -73602,89 +73891,89 @@ static const char *startup_source = " #f))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi" -" the-struct_115)" +" the-struct_108)" "(root-expand-context/inner-module-scopes" -" the-struct_115)" +" the-struct_108)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_115)" +" the-struct_108)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_115)" +" the-struct_108)" "(root-expand-context/inner-defined-syms" -" the-struct_115)" +" the-struct_108)" "(root-expand-context/inner-counter" -" the-struct_115)" +" the-struct_108)" "(root-expand-context/inner-lift-key" -" the-struct_115)" +" the-struct_108)" "(expand-context/inner-to-parsed?" -" the-struct_115)" +" the-struct_108)" "(expand-context/inner-phase" -" the-struct_115)" +" the-struct_108)" "(expand-context/inner-namespace" -" the-struct_115)" +" the-struct_108)" "(expand-context/inner-just-once?" -" the-struct_115)" +" the-struct_108)" "(expand-context/inner-module-begin-k" -" the-struct_115)" +" the-struct_108)" "(expand-context/inner-allow-unbound?" -" the-struct_115)" +" the-struct_108)" "(expand-context/inner-in-local-expand?" -" the-struct_115)" +" the-struct_108)" "(expand-context/inner-stops" -" the-struct_115)" +" the-struct_108)" "(expand-context/inner-declared-submodule-names" -" the-struct_115)" +" the-struct_108)" " lifts525_0" "(expand-context/inner-lift-envs" -" the-struct_115)" +" the-struct_108)" " module-lifts526_0" "(expand-context/inner-require-lifts" -" the-struct_115)" +" the-struct_108)" " to-module-lifts527_0" "(expand-context/inner-requires+provides" -" the-struct_115)" +" the-struct_108)" "(expand-context/inner-observer" -" the-struct_115)" +" the-struct_108)" "(expand-context/inner-for-serializable?" -" the-struct_115)" +" the-struct_108)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_115)))" +" the-struct_108)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_115)))))" +" the-struct_108)))))" "(expand-context/outer1.1" " inner524_0" "(root-expand-context/outer-post-expansion-scope" -" the-struct_114)" +" the-struct_107)" "(root-expand-context/outer-use-site-scopes" -" the-struct_114)" +" the-struct_107)" "(root-expand-context/outer-frame-id" -" the-struct_114)" +" the-struct_107)" "(expand-context/outer-context" -" the-struct_114)" +" the-struct_107)" "(expand-context/outer-env" -" the-struct_114)" +" the-struct_107)" "(expand-context/outer-post-expansion-scope-action" -" the-struct_114)" +" the-struct_107)" "(expand-context/outer-scopes" -" the-struct_114)" +" the-struct_107)" "(expand-context/outer-def-ctx-scopes" -" the-struct_114)" +" the-struct_107)" "(expand-context/outer-binding-layer" -" the-struct_114)" +" the-struct_107)" "(expand-context/outer-reference-records" -" the-struct_114)" +" the-struct_107)" "(expand-context/outer-only-immediate?" -" the-struct_114)" +" the-struct_107)" " need-eventually-defined523_0" "(expand-context/outer-current-introduction-scopes" -" the-struct_114)" +" the-struct_107)" "(expand-context/outer-name" -" the-struct_114)))" +" the-struct_107)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_114)))))" +" the-struct_107)))))" "((temp522_0)" " #f))" "(expand+eval-for-syntaxes-binding63.1" @@ -73695,11 +73984,11 @@ static const char *startup_source = " temp521_0))))" "(let-values((()" "(begin" -"(let-values(((lst_429)" +"(let-values(((lst_426)" " syms_25)" -"((lst_430)" +"((lst_427)" " vals_10)" -"((lst_431)" +"((lst_428)" " ids_44))" "(begin" "(if(variable-reference-from-unsafe?" @@ -73707,51 +73996,51 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_429)))" +" lst_426)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_430)))" +" lst_427)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_431)))" +" lst_428)))" "((letrec-values(((for-loop_327)" -"(lambda(lst_432" -" lst_433" -" lst_434)" +"(lambda(lst_429" +" lst_430" +" lst_431)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_432)" +" lst_429)" "(if(pair?" -" lst_433)" +" lst_430)" "(pair?" -" lst_434)" +" lst_431)" " #f)" " #f)" "(let-values(((sym_105)" "(unsafe-car" -" lst_432))" -"((rest_242)" +" lst_429))" +"((rest_247)" "(unsafe-cdr" -" lst_432))" -"((val_83)" +" lst_429))" +"((val_85)" "(unsafe-car" -" lst_433))" -"((rest_243)" +" lst_430))" +"((rest_248)" "(unsafe-cdr" -" lst_433))" +" lst_430))" "((id_160)" "(unsafe-car" -" lst_434))" -"((rest_227)" +" lst_431))" +"((rest_232)" "(unsafe-cdr" -" lst_434)))" +" lst_431)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -73760,29 +74049,29 @@ static const char *startup_source = "(let-values()" "(begin" "(maybe-install-free=id-in-context!" -" val_83" +" val_85" " id_160" -" phase_153" +" phase_154" " partial-body-ctx_1)" "(namespace-set-transformer!" " m-ns_20" -" phase_153" +" phase_154" " sym_105" -" val_83)))" +" val_85)))" "(values)))))" "(values)))))" "(if(not" " #f)" "(for-loop_327" -" rest_242" -" rest_243" -" rest_227)" +" rest_247" +" rest_248" +" rest_232)" "(values))))" "(values))))))" " for-loop_327)" -" lst_429" -" lst_430" -" lst_431)))" +" lst_426" +" lst_427" +" lst_428)))" "(values))))" "(let-values()" "(let-values((()" @@ -73829,11 +74118,11 @@ static const char *startup_source = " exp-body528_0" " temp529_0))" " parsed-body_0))" -"(loop_124" +"(loop_125" " tail?_52" " rest-bodys_1)))))))))))))))))" "(if(equal?" -" tmp_23" +" tmp_65" " '#%require)" "(let-values()" "(let-values((()" @@ -73923,9 +74212,9 @@ static const char *startup_source = "((m-ns537_0)" " m-ns_20)" "((phase538_0)" -" phase_153)" +" phase_154)" "((phase539_0)" -" phase_153)" +" phase_154)" "((requires+provides540_0)" " requires+provides_7)" "((declared-submodule-names541_0)" @@ -73970,20 +74259,20 @@ static const char *startup_source = "(void)))" "(cons" " exp-body_7" -"(loop_124" +"(loop_125" " tail?_52" " rest-bodys_1)))))))" "(if(equal?" -" tmp_23" +" tmp_65" " '#%provide)" "(let-values()" "(cons" " exp-body_7" -"(loop_124" +"(loop_125" " tail?_52" " rest-bodys_1)))" "(if(equal?" -" tmp_23" +" tmp_65" " 'module)" "(let-values()" "(let-values(((ready-body_1)" @@ -74026,11 +74315,11 @@ static const char *startup_source = " partial-body-ctx545_0))))" "(cons" " submod_2" -"(loop_124" +"(loop_125" " tail?_52" " rest-bodys_1)))))" "(if(equal?" -" tmp_23" +" tmp_65" " 'module*)" "(let-values()" "(begin" @@ -74055,11 +74344,11 @@ static const char *startup_source = "(void)))" "(cons" " exp-body_7" -"(loop_124" +"(loop_125" " tail?_52" " rest-bodys_1))))" "(if(equal?" -" tmp_23" +" tmp_65" " '#%declare)" "(let-values()" "(let-values(((ok?_81" @@ -74085,18 +74374,18 @@ static const char *startup_source = " s_799)))" " s_800))" "((kw554_0)" -"(let-values(((s_552)" +"(let-values(((s_554)" "(cdr" " s_799)))" -"(let-values(((s_553)" +"(let-values(((s_555)" "(if(syntax?$1" -" s_552)" +" s_554)" "(syntax-e$1" -" s_552)" -" s_552)))" +" s_554)" +" s_554)))" "(let-values(((flat-s_59)" "(to-syntax-list.1" -" s_553)))" +" s_555)))" "(if(not" " flat-s_59)" "(let-values()" @@ -74119,7 +74408,7 @@ static const char *startup_source = " kw552_1))))))" "(let-values((()" "(begin" -"(let-values(((lst_435)" +"(let-values(((lst_432)" " kw552_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -74127,19 +74416,19 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_435)))" +" lst_432)))" "((letrec-values(((for-loop_328)" -"(lambda(lst_436)" +"(lambda(lst_433)" "(begin" " 'for-loop" "(if(pair?" -" lst_436)" +" lst_433)" "(let-values(((kw_1)" "(unsafe-car" -" lst_436))" -"((rest_244)" +" lst_433))" +"((rest_249)" "(unsafe-cdr" -" lst_436)))" +" lst_433)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -74191,11 +74480,11 @@ static const char *startup_source = "(if(not" " #f)" "(for-loop_328" -" rest_244)" +" rest_249)" "(values))))" "(values))))))" " for-loop_328)" -" lst_435)))" +" lst_432)))" "(values))))" "(let-values()" "(let-values(((parsed-body_1)" @@ -74208,13 +74497,13 @@ static const char *startup_source = "(expanded+parsed1.1" " exp-body_7" " parsed-body_1))" -"(loop_124" +"(loop_125" " tail?_52" " rest-bodys_1)))))))" "(let-values()" "(cons" " exp-body_7" -"(loop_124" +"(loop_125" " tail?_52" " rest-bodys_1)))))))))))))))))" "(let-values(((l_83)" @@ -74223,7 +74512,7 @@ static const char *startup_source = "(expand-context-require-lifts" " partial-body-ctx_1))" " lifted-defns_0" -"(loop_124" +"(loop_125" " #f" "(add-post-expansion-scope" "(get-and-clear-module-lifts!" @@ -74235,49 +74524,49 @@ static const char *startup_source = "(append" " l_83" "(finish_2)))))))))))))))))" -" loop_124)" +" loop_125)" " #t" " bodys_20))))))))))))))))))))))" "(define-values" "(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_24 phase_154)" +"(lambda(ids_45 rhs_24 phase_155)" "(let-values(((scoped-ids_0)" "(reverse$1" -"(let-values(((lst_437) ids_45))" +"(let-values(((lst_434) ids_45))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_437)))" +"(let-values()(check-list lst_434)))" "((letrec-values(((for-loop_329)" -"(lambda(fold-var_370 lst_438)" +"(lambda(fold-var_375 lst_435)" "(begin" " 'for-loop" -"(if(pair? lst_438)" -"(let-values(((id_161)(unsafe-car lst_438))" -"((rest_245)(unsafe-cdr lst_438)))" -"(let-values(((fold-var_371)" -"(let-values(((fold-var_372) fold-var_370))" -"(let-values(((fold-var_373)" +"(if(pair? lst_435)" +"(let-values(((id_161)(unsafe-car lst_435))" +"((rest_250)(unsafe-cdr lst_435)))" +"(let-values(((fold-var_376)" +"(let-values(((fold-var_377) fold-var_375))" +"(let-values(((fold-var_378)" "(let-values()" "(cons" "(let-values()" "(add-scope" " id_161" " inside-scope_2))" -" fold-var_372))))" -"(values fold-var_373)))))" -"(if(not #f)(for-loop_329 fold-var_371 rest_245) fold-var_371)))" -" fold-var_370)))))" +" fold-var_377))))" +"(values fold-var_378)))))" +"(if(not #f)(for-loop_329 fold-var_376 rest_250) fold-var_376)))" +" fold-var_375)))))" " for-loop_329)" " null" -" lst_437))))))" +" lst_434))))))" "(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_154)" +"((phase558_0) phase_155)" "((all-scopes-stx559_0) all-scopes-stx_6)" "((frame-id560_0) frame-id_18)" "((requires+provides561_0) requires+provides_8))" @@ -74301,7 +74590,7 @@ static const char *startup_source = "(datum->syntax$1" " #f" "(list" -"(datum->syntax$1(syntax-shift-phase-level$1 core-stx phase_154) 'define-values)" +"(datum->syntax$1(syntax-shift-phase-level$1 core-stx phase_155) 'define-values)" " scoped-ids_0" " rhs_24))" " inside-scope_2)))" @@ -74310,31 +74599,31 @@ static const char *startup_source = "(add-post-expansion-scope)" "(lambda(bodys_23 ctx_114)" "(begin" -"(let-values(((sc_35)(root-expand-context-post-expansion-scope ctx_114)))" -"(if sc_35" +"(let-values(((sc_39)(root-expand-context-post-expansion-scope ctx_114)))" +"(if sc_39" "(reverse$1" -"(let-values(((lst_439) bodys_23))" +"(let-values(((lst_436) bodys_23))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_439)))" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_436)))" "((letrec-values(((for-loop_330)" -"(lambda(fold-var_374 lst_440)" +"(lambda(fold-var_379 lst_437)" "(begin" " 'for-loop" -"(if(pair? lst_440)" -"(let-values(((body_23)(unsafe-car lst_440))((rest_246)(unsafe-cdr lst_440)))" -"(let-values(((fold-var_375)" -"(let-values(((fold-var_376) fold-var_374))" -"(let-values(((fold-var_377)" +"(if(pair? lst_437)" +"(let-values(((body_23)(unsafe-car lst_437))((rest_251)(unsafe-cdr lst_437)))" +"(let-values(((fold-var_380)" +"(let-values(((fold-var_381) fold-var_379))" +"(let-values(((fold-var_382)" "(let-values()" "(cons" -"(let-values()(add-scope body_23 sc_35))" -" fold-var_376))))" -"(values fold-var_377)))))" -"(if(not #f)(for-loop_330 fold-var_375 rest_246) fold-var_375)))" -" fold-var_374)))))" +"(let-values()(add-scope body_23 sc_39))" +" fold-var_381))))" +"(values fold-var_382)))))" +"(if(not #f)(for-loop_330 fold-var_380 rest_251) fold-var_380)))" +" fold-var_379)))))" " for-loop_330)" " null" -" lst_439))))" +" lst_436))))" " bodys_23)))))" "(define-values" "(finish-expanding-body-expressons99.1)" @@ -74349,7 +74638,7 @@ static const char *startup_source = "(begin" " 'finish-expanding-body-expressons99" "(let-values(((partially-expanded-bodys_1) partially-expanded-bodys98_0))" -"(let-values(((phase_155) phase84_0))" +"(let-values(((phase_156) 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))" @@ -74357,13 +74646,13 @@ static const char *startup_source = "(let-values(((modules-being-compiled_5) modules-being-compiled89_0))" "(let-values(((mpis-to-reset_2) mpis-to-reset90_0))" "(let-values()" -"((letrec-values(((loop_125)" +"((letrec-values(((loop_126)" "(lambda(tail?_53 bodys_24)" "(begin" " 'loop" "(if(null? bodys_24)" "(let-values()" -"(if(if tail?_53(not(zero? phase_155)) #f)" +"(if(if tail?_53(not(zero? phase_156)) #f)" "(let-values()" "(begin" "(let-values(((obs_154)(expand-context-observer body-ctx_7)))" @@ -74399,7 +74688,7 @@ static const char *startup_source = "(void)))" " null))" "(let-values()" -"(loop_125" +"(loop_126" " #t" "(add-post-expansion-scope bodys_25 body-ctx_7))))))" "(let-values() null))))" @@ -74417,14 +74706,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_408)" +"(if(let-values(((or-part_406)" "(parsed? body_24)))" -"(if or-part_408" -" or-part_408" -"(let-values(((or-part_409)" +"(if or-part_406" +" or-part_406" +"(let-values(((or-part_407)" "(expanded+parsed? body_24)))" -"(if or-part_409" -" or-part_409" +"(if or-part_407" +" or-part_407" "(semi-parsed-begin-for-syntax?" " body_24)))))" "(let-values() body_24)" @@ -74476,26 +74765,26 @@ static const char *startup_source = " s_805))" "((_566_0" " _567_0)" -"(let-values(((s_610)" +"(let-values(((s_612)" "(cdr" " s_804)))" -"(let-values(((s_611)" +"(let-values(((s_613)" "(if(syntax?$1" -" s_610)" +" s_612)" "(syntax-e$1" -" s_610)" -" s_610)))" +" s_612)" +" s_612)))" "(if(pair?" -" s_611)" +" s_613)" "(let-values(((_568_0)" "(let-values(((s_806)" "(car" -" s_611)))" +" s_613)))" " s_806))" "((_569_0)" "(let-values(((s_807)" "(cdr" -" s_611)))" +" s_613)))" "(let-values(((s_808)" "(if(syntax?$1" " s_807)" @@ -74640,15 +74929,15 @@ static const char *startup_source = "(let-values()" "(let-values(((disarmed-body_0)" "(syntax-disarm$1 body_24)))" -"(let-values(((tmp_65)" +"(let-values(((tmp_66)" "(core-form-sym" " disarmed-body_0" -" phase_155)))" -"(if(if(equal? tmp_65 '#%require)" +" phase_156)))" +"(if(if(equal? tmp_66 '#%require)" " #t" -"(if(equal? tmp_65 '#%provide)" +"(if(equal? tmp_66 '#%provide)" " #t" -"(equal? tmp_65 'module*)))" +"(equal? tmp_66 'module*)))" "(let-values() body_24)" "(let-values()" "(let-values()" @@ -74723,7 +75012,7 @@ static const char *startup_source = "(let-values(((exp-lifted-modules_0)" "(let-values(((lifted-modules584_0)" " lifted-modules_0)" -"((phase585_0) phase_155)" +"((phase585_0) phase_156)" "((self586_0) self_36)" "((body-ctx587_0)" " body-ctx_7)" @@ -74745,7 +75034,7 @@ static const char *startup_source = " self586_0" " body-ctx587_0))))" "(let-values(((exp-lifted-defns_0)" -"(loop_125 #f lifted-defns_1)))" +"(loop_126 #f lifted-defns_1)))" "(begin" "(if no-lifts?_0" "(void)" @@ -74766,10 +75055,10 @@ static const char *startup_source = " exp-lifted-modules_0" "(cons" " exp-body_8" -"(loop_125" +"(loop_126" " tail?_53" " rest-bodys_2)))))))))))))))))))))" -" loop_125)" +" loop_126)" " #t" " partially-expanded-bodys_1)))))))))))))" "(define-values" @@ -74777,15 +75066,15 @@ static const char *startup_source = "(lambda(need-eventually-defined_3 self_37 ctx_115)" "(begin" "(begin" -"(let-values(((ht_168) need-eventually-defined_3))" +"(let-values(((ht_170) need-eventually-defined_3))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-in-hash ht_168)))" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-in-hash ht_170)))" "((letrec-values(((for-loop_331)" -"(lambda(i_189)" +"(lambda(i_191)" "(begin" " 'for-loop" -"(if i_189" -"(let-values(((phase_156 l_84)(hash-iterate-key+value ht_168 i_189)))" +"(if i_191" +"(let-values(((phase_157 l_84)(hash-iterate-key+value ht_170 i_191)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -74793,35 +75082,35 @@ static const char *startup_source = "(begin" "(let-values()" "(begin" -"(let-values(((lst_441) l_84))" +"(let-values(((lst_438) l_84))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_441)))" +"(let-values()(check-list lst_438)))" "((letrec-values(((for-loop_332)" -"(lambda(lst_442)" +"(lambda(lst_439)" "(begin" " 'for-loop" "(if(pair?" -" lst_442)" +" lst_439)" "(let-values(((id_162)" "(unsafe-car" -" lst_442))" -"((rest_247)" +" lst_439))" +"((rest_252)" "(unsafe-cdr" -" lst_442)))" +" lst_439)))" "(let-values((()" "(let-values()" "(let-values((()" "(let-values()" "(begin" "(let-values()" -"(let-values(((b_91)" +"(let-values(((b_90)" "(let-values(((id592_0)" " id_162)" "((phase593_0)" -" phase_156))" +" phase_157))" "(resolve+shift30.1" " #f" " #f" @@ -74835,17 +75124,17 @@ static const char *startup_source = " #f" " id592_0" " phase593_0))))" -"(if(if b_91" +"(if(if b_90" "(if(module-binding?" -" b_91)" +" b_90)" "(if(eq?" "(module-binding-sym" -" b_91)" +" b_90)" "(syntax-e$1" " id_162))" "(eq?" "(module-binding-module" -" b_91)" +" b_90)" " self_37)" " #f)" " #f)" @@ -74865,18 +75154,18 @@ static const char *startup_source = "(values)))))" "(if(not #f)" "(for-loop_332" -" rest_247)" +" rest_252)" "(values))))" "(values))))))" " for-loop_332)" -" lst_441)))" +" lst_438)))" "(void)))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_331(hash-iterate-next ht_168 i_189))(values))))" +"(if(not #f)(for-loop_331(hash-iterate-next ht_170 i_191))(values))))" "(values))))))" " for-loop_331)" -"(hash-iterate-first ht_168))))" +"(hash-iterate-first ht_170))))" "(void)))))" "(define-values" "(resolve-provides115.1)" @@ -74893,44 +75182,44 @@ 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_21) namespace104_0))" -"(let-values(((phase_157) phase105_0))" +"(let-values(((phase_158) phase105_0))" "(let-values(((self_38) self106_0))" "(let-values(((ctx_116) ctx107_1))" "(let-values()" "(let-values()" -"((letrec-values(((loop_126)" -"(lambda(bodys_26 phase_158)" +"((letrec-values(((loop_127)" +"(lambda(bodys_26 phase_159)" "(begin" " 'loop" "(if(null? bodys_26)" "(let-values() null)" -"(if(let-values(((or-part_410)(parsed?(car bodys_26))))" -"(if or-part_410 or-part_410(expanded+parsed?(car bodys_26))))" +"(if(let-values(((or-part_408)(parsed?(car bodys_26))))" +"(if or-part_408 or-part_408(expanded+parsed?(car bodys_26))))" "(let-values()" -"(cons(car bodys_26)(loop_126(cdr bodys_26) phase_158)))" +"(cons(car bodys_26)(loop_127(cdr bodys_26) phase_159)))" "(if(semi-parsed-begin-for-syntax?(car bodys_26))" "(let-values()" "(let-values(((nested-bodys_2)" -"(loop_126" +"(loop_127" "(semi-parsed-begin-for-syntax-body(car bodys_26))" -"(add1 phase_158))))" +"(add1 phase_159))))" "(cons" -"(let-values(((the-struct_116)(car bodys_26)))" -"(if(semi-parsed-begin-for-syntax? the-struct_116)" +"(let-values(((the-struct_109)(car bodys_26)))" +"(if(semi-parsed-begin-for-syntax? the-struct_109)" "(let-values(((body594_0) nested-bodys_2))" "(semi-parsed-begin-for-syntax3.1" -"(semi-parsed-begin-for-syntax-s the-struct_116)" +"(semi-parsed-begin-for-syntax-s the-struct_109)" " body594_0))" "(raise-argument-error" " 'struct-copy" " \"semi-parsed-begin-for-syntax?\"" -" the-struct_116)))" -"(loop_126(cdr bodys_26) phase_158))))" +" the-struct_109)))" +"(loop_127(cdr bodys_26) phase_159))))" "(let-values()" "(let-values(((disarmed-body_1)(syntax-disarm$1(car bodys_26))))" -"(let-values(((tmp_66)" -"(core-form-sym disarmed-body_1 phase_158)))" -"(if(equal? tmp_66 '#%provide)" +"(let-values(((tmp_67)" +"(core-form-sym disarmed-body_1 phase_159)))" +"(if(equal? tmp_67 '#%provide)" "(let-values()" "(let-values((()" "(begin" @@ -74951,16 +75240,16 @@ static const char *startup_source = "(void)))" "(values))))" "(let-values(((ok?_83 #%provide595_0 spec596_0)" -"(let-values(((s_632) disarmed-body_1))" -"(let-values(((orig-s_91) s_632))" +"(let-values(((s_634) disarmed-body_1))" +"(let-values(((orig-s_91) s_634))" "(let-values(((#%provide595_1" " spec596_1)" "(let-values(((s_812)" "(if(syntax?$1" -" s_632)" +" s_634)" "(syntax-e$1" -" s_632)" -" s_632)))" +" s_634)" +" s_634)))" "(if(pair? s_812)" "(let-values(((#%provide597_0)" "(let-values(((s_813)" @@ -75006,117 +75295,117 @@ static const char *startup_source = "(car bodys_26)" " requires+provides_9" " self_38" -" phase_158" +" phase_159" "(let-values(((v_267) ctx_116))" -"(let-values(((the-struct_117)" +"(let-values(((the-struct_110)" " v_267))" "(if(expand-context/outer?" -" the-struct_117)" +" the-struct_110)" "(let-values(((context599_0)" " 'top-level)" "((inner600_0)" -"(let-values(((the-struct_118)" +"(let-values(((the-struct_111)" "(root-expand-context/outer-inner" " v_267)))" "(if(expand-context/inner?" -" the-struct_118)" +" the-struct_111)" "(let-values(((phase601_0)" -" phase_158)" +" phase_159)" "((namespace602_0)" "(namespace->namespace-at-phase" " m-ns_21" -" phase_158))" +" phase_159))" "((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_118)" +" the-struct_111)" "(root-expand-context/inner-module-scopes" -" the-struct_118)" +" the-struct_111)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_118)" +" the-struct_111)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_118)" +" the-struct_111)" "(root-expand-context/inner-defined-syms" -" the-struct_118)" +" the-struct_111)" "(root-expand-context/inner-counter" -" the-struct_118)" +" the-struct_111)" "(root-expand-context/inner-lift-key" -" the-struct_118)" +" the-struct_111)" "(expand-context/inner-to-parsed?" -" the-struct_118)" +" the-struct_111)" " phase601_0" " namespace602_0" "(expand-context/inner-just-once?" -" the-struct_118)" +" the-struct_111)" "(expand-context/inner-module-begin-k" -" the-struct_118)" +" the-struct_111)" "(expand-context/inner-allow-unbound?" -" the-struct_118)" +" the-struct_111)" "(expand-context/inner-in-local-expand?" -" the-struct_118)" +" the-struct_111)" "(expand-context/inner-stops" -" the-struct_118)" +" the-struct_111)" " declared-submodule-names604_0" "(expand-context/inner-lifts" -" the-struct_118)" +" the-struct_111)" "(expand-context/inner-lift-envs" -" the-struct_118)" +" the-struct_111)" "(expand-context/inner-module-lifts" -" the-struct_118)" +" the-struct_111)" "(expand-context/inner-require-lifts" -" the-struct_118)" +" the-struct_111)" "(expand-context/inner-to-module-lifts" -" the-struct_118)" +" the-struct_111)" " requires+provides603_0" "(expand-context/inner-observer" -" the-struct_118)" +" the-struct_111)" "(expand-context/inner-for-serializable?" -" the-struct_118)" +" the-struct_111)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_118)))" +" the-struct_111)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_118)))))" +" the-struct_111)))))" "(expand-context/outer1.1" " inner600_0" "(root-expand-context/outer-post-expansion-scope" -" the-struct_117)" +" the-struct_110)" "(root-expand-context/outer-use-site-scopes" -" the-struct_117)" +" the-struct_110)" "(root-expand-context/outer-frame-id" -" the-struct_117)" +" the-struct_110)" " context599_0" "(expand-context/outer-env" -" the-struct_117)" +" the-struct_110)" "(expand-context/outer-post-expansion-scope-action" -" the-struct_117)" +" the-struct_110)" "(expand-context/outer-scopes" -" the-struct_117)" +" the-struct_110)" "(expand-context/outer-def-ctx-scopes" -" the-struct_117)" +" the-struct_110)" "(expand-context/outer-binding-layer" -" the-struct_117)" +" the-struct_110)" "(expand-context/outer-reference-records" -" the-struct_117)" +" the-struct_110)" "(expand-context/outer-only-immediate?" -" the-struct_117)" +" the-struct_110)" "(expand-context/outer-need-eventually-defined" -" the-struct_117)" +" the-struct_110)" "(expand-context/outer-current-introduction-scopes" -" the-struct_117)" +" the-struct_110)" "(expand-context/outer-name" -" the-struct_117)))" +" the-struct_110)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_117)))))))" +" the-struct_110)))))))" "(if(expand-context-to-parsed? ctx_116)" "(let-values()" -"(loop_126(cdr bodys_26) phase_158))" +"(loop_127(cdr bodys_26) phase_159))" "(let-values()" "(let-values(((new-s_10)" "(syntax-track-origin*" @@ -75146,16 +75435,16 @@ static const char *startup_source = "(void)))" "(cons" " new-s_10" -"(loop_126" +"(loop_127" "(cdr bodys_26)" -" phase_158))))))))))" +" phase_159))))))))))" "(let-values()" "(cons" "(car bodys_26)" -"(loop_126(cdr bodys_26) phase_158))))))))))))))" -" loop_126)" +"(loop_127(cdr bodys_26) phase_159))))))))))))))" +" loop_127)" " expression-expanded-bodys_1" -" phase_157)))))))))))))" +" phase_158)))))))))))))" "(define-values" "(declare-module-for-expansion139.1)" "(lambda(ctx125_0" @@ -75200,8 +75489,8 @@ static const char *startup_source = "(hasheq))))" "(let-values(((module-name_2)" "(1/module-path-index-resolve" -"(let-values(((or-part_411) enclosing-self_3))" -"(if or-part_411 or-part_411 self_39)))))" +"(let-values(((or-part_409) enclosing-self_3))" +"(if or-part_409 or-part_409 self_39)))))" "(let-values(((compiled-module_0)" "(let-values(((parsed-mod607_0) parsed-mod_0)" "((temp608_0)" @@ -75267,10 +75556,10 @@ static const char *startup_source = " compiled-module615_0)))))))))))))))))))))))))" "(define-values" "(attach-root-expand-context-properties)" -"(lambda(s_654 root-ctx_8 orig-self_1 new-self_2)" +"(lambda(s_656 root-ctx_8 orig-self_1 new-self_2)" "(begin" "(let-values(((s_816)" -"(syntax-property$1 s_654 'module-body-context(root-expand-context-all-scopes-stx root-ctx_8))))" +"(syntax-property$1 s_656 'module-body-context(root-expand-context-all-scopes-stx root-ctx_8))))" "(let-values(((s_817)" "(syntax-property$1" " s_816" @@ -75295,7 +75584,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_159) phase143_1))" +"(let-values(((phase_160) 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))" @@ -75306,8 +75595,8 @@ static const char *startup_source = "(let-values(((modules-being-compiled_7) modules-being-compiled151_0))" "(let-values(((submod-ctx_1) ctx152_0))" "(let-values()" -"((letrec-values(((loop_127)" -"(lambda(bodys_27 phase_160)" +"((letrec-values(((loop_128)" +"(lambda(bodys_27 phase_161)" "(begin" " 'loop" "(if(null? bodys_27)" @@ -75387,10 +75676,10 @@ static const char *startup_source = " submod-ctx621_0" " body-s622_0))))" "(let-values(((nested-bodys_3)" -"(loop_127" +"(loop_128" "(semi-parsed-begin-for-syntax-body" " body_25)" -"(add1 phase_160))))" +"(add1 phase_161))))" "(let-values(((parsed-bfs_0)" "(parsed-begin-for-syntax21.1" " rebuild-body-s_0" @@ -75413,21 +75702,21 @@ static const char *startup_source = " rebuild-body-s623_0" " temp624_0))" " parsed-bfs_0))" -"(loop_127 rest-bodys_3 phase_160))))))))" -"(if(let-values(((or-part_412)(parsed? body_25)))" -"(if or-part_412" -" or-part_412" +"(loop_128 rest-bodys_3 phase_161))))))))" +"(if(let-values(((or-part_410)(parsed? body_25)))" +"(if or-part_410" +" or-part_410" "(expanded+parsed? body_25)))" "(let-values()" -"(cons body_25(loop_127 rest-bodys_3 phase_160)))" +"(cons body_25(loop_128 rest-bodys_3 phase_161)))" "(let-values()" "(let-values(((disarmed-body_2)" "(syntax-disarm$1 body_25)))" -"(let-values(((tmp_67)" +"(let-values(((tmp_68)" "(core-form-sym" " disarmed-body_2" -" phase_160)))" -"(if(equal? tmp_67 'module*)" +" phase_161)))" +"(if(equal? tmp_68 'module*)" "(let-values()" "(let-values((()" "(begin" @@ -75458,21 +75747,21 @@ static const char *startup_source = "(let-values(((s_826)" "(cdr" " s_824)))" -"(let-values(((s_667)" +"(let-values(((s_669)" "(if(syntax?$1" " s_826)" "(syntax-e$1" " s_826)" " s_826)))" "(if(pair?" -" s_667)" +" s_669)" "(if(let-values(((s_827)" "(car" -" s_667)))" +" s_669)))" " #t)" "(let-values(((s_828)" "(cdr" -" s_667)))" +" s_669)))" "(let-values(((s_829)" "(if(syntax?$1" " s_828)" @@ -75523,7 +75812,7 @@ static const char *startup_source = "(let-values(((s_835)" "(cdr" " s_833)))" -"(let-values(((s_669)" +"(let-values(((s_671)" "(if(syntax?$1" " s_835)" "(syntax-e$1" @@ -75532,12 +75821,12 @@ static const char *startup_source = "(let-values(((name631_0)" "(let-values(((s_836)" "(car" -" s_669)))" +" s_671)))" " s_836))" "((_632_0)" "(let-values(((s_837)" "(cdr" -" s_669)))" +" s_671)))" "(let-values(((s_838)" "(if(syntax?$1" " s_837)" @@ -75548,7 +75837,7 @@ static const char *startup_source = "(let-values(((s_839)" "(car" " s_838)))" -"(let-values(((s_670)" +"(let-values(((s_672)" "(if(syntax?$1" " s_839)" "(syntax-e$1" @@ -75585,7 +75874,7 @@ static const char *startup_source = "(let-values(((neg-phase_0)" "(phase-" " 0" -" phase_160)))" +" phase_161)))" "(let-values(((shifted-s_0)" "(syntax-shift-phase-level$1" " ready-body_2" @@ -75639,27 +75928,27 @@ static const char *startup_source = "(if(expanded+parsed?" " submod_4)" "(let-values()" -"(let-values(((the-struct_119)" +"(let-values(((the-struct_112)" " submod_4))" "(if(expanded+parsed?" -" the-struct_119)" +" the-struct_112)" "(let-values(((s646_0)" "(syntax-shift-phase-level$1" "(expanded+parsed-s" " submod_4)" -" phase_160)))" +" phase_161)))" "(expanded+parsed1.1" " s646_0" "(expanded+parsed-parsed" -" the-struct_119)))" +" the-struct_112)))" "(raise-argument-error" " 'struct-copy" " \"expanded+parsed?\"" -" the-struct_119))))" +" the-struct_112))))" "(let-values()" "(syntax-shift-phase-level$1" " submod_4" -" phase_160))))))))" +" phase_161))))))))" "(let-values()" "(let-values(((ready-body647_0)" " ready-body_2)" @@ -75696,18 +75985,18 @@ static const char *startup_source = " submod-ctx649_0))))))" "(cons" " submod_3" -"(loop_127" +"(loop_128" " rest-bodys_3" -" phase_160)))))))" +" phase_161)))))))" "(let-values()" "(cons" " body_25" -"(loop_127" +"(loop_128" " rest-bodys_3" -" phase_160)))))))))))))))))" -" loop_127)" +" phase_161)))))))))))))))))" +" loop_128)" " fully-expanded-bodys-except-post-submodules_2" -" phase_159)))))))))))))))))" +" phase_160)))))))))))))))))" "(define-values" "(stop-at-module*?)" "(lambda(ctx_118)" @@ -75722,23 +76011,23 @@ static const char *startup_source = "(begin" " 'check-ids-unbound173" "(let-values(((ids_47) ids170_0))" -"(let-values(((phase_161) phase171_1))" +"(let-values(((phase_162) phase171_1))" "(let-values(((requires+provides_12) requires+provides172_0))" -"(let-values(((s_704) in168_0))" +"(let-values(((s_706) in168_0))" "(let-values()" "(begin" -"(let-values(((lst_443) ids_47))" +"(let-values(((lst_440) ids_47))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_443)))" +"(let-values()(check-list lst_440)))" "((letrec-values(((for-loop_333)" -"(lambda(lst_444)" +"(lambda(lst_441)" "(begin" " 'for-loop" -"(if(pair? lst_444)" -"(let-values(((id_163)(unsafe-car lst_444))" -"((rest_248)(unsafe-cdr lst_444)))" +"(if(pair? lst_441)" +"(let-values(((id_163)(unsafe-car lst_441))" +"((rest_253)(unsafe-cdr lst_441)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -75749,8 +76038,8 @@ static const char *startup_source = " requires+provides_12)" "((id656_0) id_163)" "((phase657_0)" -" phase_161)" -"((s658_0) s_704)" +" phase_162)" +"((s658_0) s_706)" "((temp659_0) 'module))" "(check-not-defined95.1" " #f" @@ -75770,103 +76059,103 @@ static const char *startup_source = " phase657_0)))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_333 rest_248)(values))))" +"(if(not #f)(for-loop_333 rest_253)(values))))" "(values))))))" " for-loop_333)" -" lst_443)))" +" lst_440)))" "(void))))))))))" "(define-values" "(eval-nested-bodys)" -"(lambda(bodys_28 phase_162 m-ns_23 self_41 ctx_119)" +"(lambda(bodys_28 phase_163 m-ns_23 self_41 ctx_119)" "(begin" "(begin" -"(let-values(((lst_445) bodys_28))" +"(let-values(((lst_442) bodys_28))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_445)))" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_442)))" "((letrec-values(((for-loop_334)" -"(lambda(lst_446)" +"(lambda(lst_443)" "(begin" " 'for-loop" -"(if(pair? lst_446)" -"(let-values(((body_26)(unsafe-car lst_446))((rest_249)(unsafe-cdr lst_446)))" +"(if(pair? lst_443)" +"(let-values(((body_26)(unsafe-car lst_443))((rest_254)(unsafe-cdr lst_443)))" "(let-values((()" "(let-values()" "(let-values((()" "(let-values()" "(begin" "(let-values()" -"(let-values(((p_85)" +"(let-values(((p_86)" "(if(expanded+parsed? body_26)" "(expanded+parsed-parsed" " body_26)" " body_26)))" -"(if(parsed-define-values? p_85)" +"(if(parsed-define-values? p_86)" "(let-values()" "(let-values(((ids_48)" "(parsed-define-values-ids" -" p_85)))" +" p_86)))" "(let-values(((vals_11)" "(eval-for-bindings" " ids_48" "(parsed-define-values-rhs" -" p_85)" -" phase_162" +" p_86)" +" phase_163" " m-ns_23" " ctx_119)))" "(begin" -"(let-values(((lst_447) ids_48)" -"((lst_448)" +"(let-values(((lst_444) ids_48)" +"((lst_445)" "(parsed-define-values-syms" -" p_85))" -"((lst_449) vals_11))" +" p_86))" +"((lst_446) vals_11))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" -"(check-list lst_447)))" +"(check-list lst_444)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" -"(check-list lst_448)))" +"(check-list lst_445)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" -"(check-list lst_449)))" +"(check-list lst_446)))" "((letrec-values(((for-loop_335)" -"(lambda(lst_450" -" lst_451" -" lst_452)" +"(lambda(lst_447" +" lst_448" +" lst_449)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_450)" +" lst_447)" "(if(pair?" -" lst_451)" +" lst_448)" "(pair?" -" lst_452)" +" lst_449)" " #f)" " #f)" "(let-values(((id_164)" "(unsafe-car" -" lst_450))" -"((rest_250)" +" lst_447))" +"((rest_255)" "(unsafe-cdr" -" lst_450))" +" lst_447))" "((sym_106)" "(unsafe-car" -" lst_451))" -"((rest_251)" +" lst_448))" +"((rest_256)" "(unsafe-cdr" -" lst_451))" -"((val_84)" +" lst_448))" +"((val_86)" "(unsafe-car" -" lst_452))" -"((rest_252)" +" lst_449))" +"((rest_257)" "(unsafe-cdr" -" lst_452)))" +" lst_449)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -75875,38 +76164,38 @@ static const char *startup_source = "(let-values()" "(namespace-set-variable!" " m-ns_23" -" phase_162" +" phase_163" " sym_106" -" val_84))" +" val_86))" "(values)))))" "(values)))))" "(if(not" " #f)" "(for-loop_335" -" rest_250" -" rest_251" -" rest_252)" +" rest_255" +" rest_256" +" rest_257)" "(values))))" "(values))))))" " for-loop_335)" -" lst_447" -" lst_448" -" lst_449)))" +" lst_444" +" lst_445" +" lst_446)))" "(void)))))" -"(if(let-values(((or-part_413)" +"(if(let-values(((or-part_411)" "(parsed-define-syntaxes?" -" p_85)))" -"(if or-part_413" -" or-part_413" +" p_86)))" +"(if or-part_411" +" or-part_411" "(semi-parsed-begin-for-syntax?" -" p_85)))" +" p_86)))" "(let-values()(void))" -"(if(let-values(((or-part_414)" +"(if(let-values(((or-part_412)" "(parsed-#%declare?" -" p_85)))" -"(if or-part_414" -" or-part_414" -"(syntax?$1 p_85)))" +" p_86)))" +"(if or-part_412" +" or-part_412" +"(syntax?$1 p_86)))" "(let-values()(void))" "(let-values()" "(with-continuation-mark" @@ -75922,11 +76211,11 @@ static const char *startup_source = "(let-values()" "(eval-single-top" "(compile-single" -" p_85" +" p_86" "(let-values(((m-ns660_0)" " m-ns_23)" "((phase661_0)" -" phase_162))" +" phase_163))" "(make-compile-context14.1" " #f" " #f" @@ -75943,10 +76232,10 @@ static const char *startup_source = " m-ns_23)))))))))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_334 rest_249)(values))))" +"(if(not #f)(for-loop_334 rest_254)(values))))" "(values))))))" " for-loop_334)" -" lst_445)))" +" lst_442)))" "(void)))))" "(define-values" "(expand-submodule197.1)" @@ -76044,23 +76333,23 @@ static const char *startup_source = " \"bad syntax\"" " orig-s_93)))))" "(values #t module662_1 name663_1 _664_1))))))" -"(let-values(((name_80)(syntax-e$1 name663_0)))" +"(let-values(((name_79)(syntax-e$1 name663_0)))" "(let-values((()" "(begin" -"(if(hash-ref declared-submodule-names_8 name_80 #f)" +"(if(hash-ref declared-submodule-names_8 name_79 #f)" "(let-values()" "(raise-syntax-error$1" " #f" " \"submodule already declared with the same name\"" " s_841" -" name_80))" +" name_79))" "(void))" "(values))))" "(let-values((()" "(begin" "(hash-set!" " declared-submodule-names_8" -" name_80" +" name_79" "(syntax-e$1 module662_0))" "(values))))" "(let-values((()" @@ -76076,105 +76365,105 @@ static const char *startup_source = "(let-values(((s670_0) s_841)" "((temp671_0)" "(let-values(((v_268) ctx_120))" -"(let-values(((the-struct_120) v_268))" -"(if(expand-context/outer? the-struct_120)" +"(let-values(((the-struct_113) v_268))" +"(if(expand-context/outer? the-struct_113)" "(let-values(((context680_0) 'module)" "((post-expansion-scope681_0)" " #f)" "((inner682_0)" -"(let-values(((the-struct_121)" +"(let-values(((the-struct_114)" "(root-expand-context/outer-inner" " v_268)))" "(if(expand-context/inner?" -" the-struct_121)" +" the-struct_114)" "(let-values(((stops683_0)" " empty-free-id-set))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi" -" the-struct_121)" +" the-struct_114)" "(root-expand-context/inner-module-scopes" -" the-struct_121)" +" the-struct_114)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_121)" +" the-struct_114)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_121)" +" the-struct_114)" "(root-expand-context/inner-defined-syms" -" the-struct_121)" +" the-struct_114)" "(root-expand-context/inner-counter" -" the-struct_121)" +" the-struct_114)" "(root-expand-context/inner-lift-key" -" the-struct_121)" +" the-struct_114)" "(expand-context/inner-to-parsed?" -" the-struct_121)" +" the-struct_114)" "(expand-context/inner-phase" -" the-struct_121)" +" the-struct_114)" "(expand-context/inner-namespace" -" the-struct_121)" +" the-struct_114)" "(expand-context/inner-just-once?" -" the-struct_121)" +" the-struct_114)" "(expand-context/inner-module-begin-k" -" the-struct_121)" +" the-struct_114)" "(expand-context/inner-allow-unbound?" -" the-struct_121)" +" the-struct_114)" "(expand-context/inner-in-local-expand?" -" the-struct_121)" +" the-struct_114)" " stops683_0" "(expand-context/inner-declared-submodule-names" -" the-struct_121)" +" the-struct_114)" "(expand-context/inner-lifts" -" the-struct_121)" +" the-struct_114)" "(expand-context/inner-lift-envs" -" the-struct_121)" +" the-struct_114)" "(expand-context/inner-module-lifts" -" the-struct_121)" +" the-struct_114)" "(expand-context/inner-require-lifts" -" the-struct_121)" +" the-struct_114)" "(expand-context/inner-to-module-lifts" -" the-struct_121)" +" the-struct_114)" "(expand-context/inner-requires+provides" -" the-struct_121)" +" the-struct_114)" "(expand-context/inner-observer" -" the-struct_121)" +" the-struct_114)" "(expand-context/inner-for-serializable?" -" the-struct_121)" +" the-struct_114)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_121)))" +" the-struct_114)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_121)))))" +" the-struct_114)))))" "(expand-context/outer1.1" " inner682_0" " post-expansion-scope681_0" "(root-expand-context/outer-use-site-scopes" -" the-struct_120)" +" the-struct_113)" "(root-expand-context/outer-frame-id" -" the-struct_120)" +" the-struct_113)" " context680_0" "(expand-context/outer-env" -" the-struct_120)" +" the-struct_113)" "(expand-context/outer-post-expansion-scope-action" -" the-struct_120)" +" the-struct_113)" "(expand-context/outer-scopes" -" the-struct_120)" +" the-struct_113)" "(expand-context/outer-def-ctx-scopes" -" the-struct_120)" +" the-struct_113)" "(expand-context/outer-binding-layer" -" the-struct_120)" +" the-struct_113)" "(expand-context/outer-reference-records" -" the-struct_120)" +" the-struct_113)" "(expand-context/outer-only-immediate?" -" the-struct_120)" +" the-struct_113)" "(expand-context/outer-need-eventually-defined" -" the-struct_120)" +" the-struct_113)" "(expand-context/outer-current-introduction-scopes" -" the-struct_120)" +" the-struct_113)" "(expand-context/outer-name" -" the-struct_120)))" +" the-struct_113)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_120)))))" +" the-struct_113)))))" "((self672_0) self_42)" "((temp673_0) #t)" "((keep-enclosing-scope-at-phase674_0)" @@ -76269,7 +76558,7 @@ static const char *startup_source = "(begin" "(hash-set!" " compiled-submodules_5" -" name_80" +" name_79" "(cons is-star?_0 compiled-submodule_0))" "(with-continuation-mark" " parameterization-key" @@ -76308,67 +76597,67 @@ static const char *startup_source = "(let-values() submod_5)" "(if(expanded+parsed? submod_5)" "(let-values()" -"(let-values(((the-struct_122) submod_5))" -"(if(expanded+parsed? the-struct_122)" +"(let-values(((the-struct_115) submod_5))" +"(if(expanded+parsed? the-struct_115)" "(let-values(((parsed695_0)" -"(let-values(((the-struct_123)" +"(let-values(((the-struct_116)" "(expanded+parsed-parsed" " submod_5)))" -"(if(parsed-module? the-struct_123)" +"(if(parsed-module? the-struct_116)" "(let-values(((star?696_0) #t))" "(parsed-module25.1" -"(parsed-s the-struct_123)" +"(parsed-s the-struct_116)" " star?696_0" "(parsed-module-name-id" -" the-struct_123)" +" the-struct_116)" "(parsed-module-self" -" the-struct_123)" +" the-struct_116)" "(parsed-module-requires" -" the-struct_123)" +" the-struct_116)" "(parsed-module-provides" -" the-struct_123)" +" the-struct_116)" "(parsed-module-root-ctx-simple?" -" the-struct_123)" +" the-struct_116)" "(parsed-module-encoded-root-ctx" -" the-struct_123)" +" the-struct_116)" "(parsed-module-body" -" the-struct_123)" +" the-struct_116)" "(parsed-module-compiled-module" -" the-struct_123)" +" the-struct_116)" "(parsed-module-compiled-submodules" -" the-struct_123)))" +" the-struct_116)))" "(raise-argument-error" " 'struct-copy" " \"parsed-module?\"" -" the-struct_123)))))" +" the-struct_116)))))" "(expanded+parsed1.1" -"(expanded+parsed-s the-struct_122)" +"(expanded+parsed-s the-struct_115)" " parsed695_0))" "(raise-argument-error" " 'struct-copy" " \"expanded+parsed?\"" -" the-struct_122))))" +" the-struct_115))))" "(let-values()" -"(let-values(((the-struct_124) submod_5))" -"(if(parsed-module? the-struct_124)" +"(let-values(((the-struct_117) submod_5))" +"(if(parsed-module? the-struct_117)" "(let-values(((star?697_0) #t))" "(parsed-module25.1" -"(parsed-s the-struct_124)" +"(parsed-s the-struct_117)" " star?697_0" -"(parsed-module-name-id the-struct_124)" -"(parsed-module-self the-struct_124)" -"(parsed-module-requires the-struct_124)" -"(parsed-module-provides the-struct_124)" -"(parsed-module-root-ctx-simple? the-struct_124)" -"(parsed-module-encoded-root-ctx the-struct_124)" -"(parsed-module-body the-struct_124)" -"(parsed-module-compiled-module the-struct_124)" +"(parsed-module-name-id the-struct_117)" +"(parsed-module-self the-struct_117)" +"(parsed-module-requires the-struct_117)" +"(parsed-module-provides the-struct_117)" +"(parsed-module-root-ctx-simple? the-struct_117)" +"(parsed-module-encoded-root-ctx the-struct_117)" +"(parsed-module-body the-struct_117)" +"(parsed-module-compiled-module the-struct_117)" "(parsed-module-compiled-submodules" -" the-struct_124)))" +" the-struct_117)))" "(raise-argument-error" " 'struct-copy" " \"parsed-module?\"" -" the-struct_124)))))))))))))))))))))))))))))))))))" +" the-struct_117)))))))))))))))))))))))))))))))))))" "(define-values" "(expand-non-module*-submodules212.1)" "(lambda(compiled-submodules202_0" @@ -76382,7 +76671,7 @@ static const char *startup_source = "(begin" " 'expand-non-module*-submodules212" "(let-values(((bodys_29) bodys208_0))" -"(let-values(((phase_163) phase209_0))" +"(let-values(((phase_164) phase209_0))" "(let-values(((self_43) self210_0))" "(let-values(((ctx_121) ctx211_0))" "(let-values(((mpis-to-reset_5) mpis-to-reset200_0))" @@ -76391,30 +76680,30 @@ static const char *startup_source = "(let-values(((modules-being-compiled_9) modules-being-compiled203_0))" "(let-values()" "(reverse$1" -"(let-values(((lst_453) bodys_29))" +"(let-values(((lst_450) bodys_29))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_453)))" +"(let-values()(check-list lst_450)))" "((letrec-values(((for-loop_336)" -"(lambda(fold-var_378 lst_454)" +"(lambda(fold-var_383 lst_451)" "(begin" " 'for-loop" -"(if(pair? lst_454)" -"(let-values(((body_27)(unsafe-car lst_454))" -"((rest_253)(unsafe-cdr lst_454)))" -"(let-values(((fold-var_379)" -"(let-values(((fold-var_380) fold-var_378))" -"(let-values(((fold-var_381)" +"(if(pair? lst_451)" +"(let-values(((body_27)(unsafe-car lst_451))" +"((rest_258)(unsafe-cdr lst_451)))" +"(let-values(((fold-var_384)" +"(let-values(((fold-var_385) fold-var_383))" +"(let-values(((fold-var_386)" "(let-values()" "(cons" "(let-values()" -"(let-values(((tmp_68)" +"(let-values(((tmp_69)" "(core-form-sym" "(syntax-disarm$1" " body_27)" -" phase_163)))" -"(if(equal? tmp_68 'module)" +" phase_164)))" +"(if(equal? tmp_69 'module)" "(let-values()" "(let-values(((body698_0)" " body_27)" @@ -76450,15 +76739,15 @@ static const char *startup_source = " self699_0" " ctx700_0)))" "(let-values() body_27))))" -" fold-var_380))))" -"(values fold-var_381)))))" +" fold-var_385))))" +"(values fold-var_386)))))" "(if(not #f)" -"(for-loop_336 fold-var_379 rest_253)" -" fold-var_379)))" -" fold-var_378)))))" +"(for-loop_336 fold-var_384 rest_258)" +" fold-var_384)))" +" fold-var_383)))))" " for-loop_336)" " null" -" lst_453))))))))))))))))" +" lst_450))))))))))))))))" "(define-values" "(make-parse-lifted-require220.1)" "(lambda(declared-submodule-names215_0 m-ns217_0 self218_0 requires+provides219_0)" @@ -76469,7 +76758,7 @@ 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_849 phase_164)" +"(lambda(s_849 phase_165)" "(let-values(((ok?_87 #%require706_0 req707_0)" "(let-values(((s_850)(syntax-disarm$1 s_849)))" "(let-values(((orig-s_94) s_850))" @@ -76517,8 +76806,8 @@ static const char *startup_source = "((s712_0) s_849)" "((self713_0) self_44)" "((m-ns714_0) m-ns_24)" -"((phase715_0) phase_164)" -"((phase716_0) phase_164)" +"((phase715_0) phase_165)" +"((phase716_0) phase_165)" "((requires+provides717_0) requires+provides_13)" "((declared-submodule-names718_0) declared-submodule-names_10)" "((temp719_0) 'require))" @@ -76560,30 +76849,30 @@ static const char *startup_source = "(lambda(lifted-defns_2)" "(begin" "(reverse$1" -"(let-values(((lst_455) lifted-defns_2))" +"(let-values(((lst_452) lifted-defns_2))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_455)))" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_452)))" "((letrec-values(((for-loop_337)" -"(lambda(fold-var_382 lst_456)" +"(lambda(fold-var_387 lst_453)" "(begin" " 'for-loop" -"(if(pair? lst_456)" -"(let-values(((lifted-defn_0)(unsafe-car lst_456))" -"((rest_254)(unsafe-cdr lst_456)))" -"(let-values(((fold-var_383)" -"(let-values(((fold-var_384) fold-var_382))" -"(let-values(((fold-var_385)" +"(if(pair? lst_453)" +"(let-values(((lifted-defn_0)(unsafe-car lst_453))" +"((rest_259)(unsafe-cdr lst_453)))" +"(let-values(((fold-var_388)" +"(let-values(((fold-var_389) fold-var_387))" +"(let-values(((fold-var_390)" "(let-values()" "(cons" "(let-values()" "(defn-extract-syntax lifted-defn_0))" -" fold-var_384))))" -"(values fold-var_385)))))" -"(if(not #f)(for-loop_337 fold-var_383 rest_254) fold-var_383)))" -" fold-var_382)))))" +" fold-var_389))))" +"(values fold-var_390)))))" +"(if(not #f)(for-loop_337 fold-var_388 rest_259) fold-var_388)))" +" fold-var_387)))))" " for-loop_337)" " null" -" lst_455)))))))" +" lst_452)))))))" "(define-values" "(log-lifted-defns)" "(lambda(partial-body-ctx_2 lifted-defns_3 exp-body_10 rest-bodys_4)" @@ -76599,18 +76888,18 @@ static const char *startup_source = "(let-values((()(begin(call-expand-observe obs_165 'module-lift-loop s-lifted-defns_0)(values))))" "(let-values((()" "(begin" -"(let-values(((lst_457) s-lifted-defns_0))" +"(let-values(((lst_454) s-lifted-defns_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_457)))" +"(let-values()(check-list lst_454)))" "((letrec-values(((for-loop_338)" -"(lambda(lst_458)" +"(lambda(lst_455)" "(begin" " 'for-loop" -"(if(pair? lst_458)" -"(let-values(((s-lifted-defn_0)(unsafe-car lst_458))" -"((rest_255)(unsafe-cdr lst_458)))" +"(if(pair? lst_455)" +"(let-values(((s-lifted-defn_0)(unsafe-car lst_455))" +"((rest_260)(unsafe-cdr lst_455)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -76716,10 +77005,10 @@ static const char *startup_source = " s-lifted-defn_0))))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_338 rest_255)(values))))" +"(if(not #f)(for-loop_338 rest_260)(values))))" "(values))))))" " for-loop_338)" -" lst_457)))" +" lst_454)))" "(values))))" "(let-values()" "(let-values(((ok?_89 form-id720_0 _721_0)" @@ -76800,7 +77089,7 @@ static const char *startup_source = "(void))))))" "(define-values" "(as-expand-time-top-level-bindings)" -"(lambda(ids_49 s_153 ctx_124)" +"(lambda(ids_49 s_154 ctx_124)" "(begin" "(let-values(((top-level-bind-scope_6)(root-expand-context-top-level-bind-scope ctx_124)))" "(let-values(((tl-ids_2)" @@ -76810,16 +77099,16 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_6)))" -"((letrec-values(((for-loop_100)" -"(lambda(fold-var_386 lst_84)" +"((letrec-values(((for-loop_104)" +"(lambda(fold-var_391 lst_85)" "(begin" " 'for-loop" -"(if(pair? lst_84)" -"(let-values(((id_165)(unsafe-car lst_84))" -"((rest_39)(unsafe-cdr lst_84)))" +"(if(pair? lst_85)" +"(let-values(((id_165)(unsafe-car lst_85))" +"((rest_40)(unsafe-cdr lst_85)))" "(let-values(((fold-var_61)" -"(let-values(((fold-var_62) fold-var_386))" -"(let-values(((fold-var_387)" +"(let-values(((fold-var_62) fold-var_391))" +"(let-values(((fold-var_392)" "(let-values()" "(cons" "(let-values()" @@ -76827,31 +77116,31 @@ static const char *startup_source = " id_165" " ctx_124))" " fold-var_62))))" -"(values fold-var_387)))))" -"(if(not #f)(for-loop_100 fold-var_61 rest_39) fold-var_61)))" -" fold-var_386)))))" -" for-loop_100)" +"(values fold-var_392)))))" +"(if(not #f)(for-loop_104 fold-var_61 rest_40) fold-var_61)))" +" fold-var_391)))))" +" for-loop_104)" " null" " lst_6))))))" "(let-values((()" "(begin" -"(let-values(((tl-ids1_0) tl-ids_2)((temp2_8)(expand-context-phase ctx_124))((s3_4) s_153))" +"(let-values(((tl-ids1_0) tl-ids_2)((temp2_8)(expand-context-phase ctx_124))((s3_4) s_154))" "(check-no-duplicate-ids8.1 #f #f tl-ids1_0 temp2_8 s3_4 #f #f))" "(values))))" "(let-values(((tmp-bind-ids_0)" "(reverse$1" -"(let-values(((lst_99) tl-ids_2))" +"(let-values(((lst_100) tl-ids_2))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_99)))" +"(let-values()(check-list lst_100)))" "((letrec-values(((for-loop_339)" -"(lambda(fold-var_218 lst_85)" +"(lambda(fold-var_218 lst_86)" "(begin" " 'for-loop" -"(if(pair? lst_85)" -"(let-values(((id_166)(unsafe-car lst_85))" -"((rest_236)(unsafe-cdr lst_85)))" +"(if(pair? lst_86)" +"(let-values(((id_166)(unsafe-car lst_86))" +"((rest_241)(unsafe-cdr lst_86)))" "(let-values(((fold-var_228)" "(let-values(((fold-var_31) fold-var_218))" "(let-values(((fold-var_32)" @@ -76864,12 +77153,12 @@ static const char *startup_source = " fold-var_31))))" "(values fold-var_32)))))" "(if(not #f)" -"(for-loop_339 fold-var_228 rest_236)" +"(for-loop_339 fold-var_228 rest_241)" " fold-var_228)))" " fold-var_218)))))" " for-loop_339)" " null" -" lst_99))))))" +" lst_100))))))" "(values tl-ids_2(select-defined-syms-and-bind!/ctx tmp-bind-ids_0 ctx_124)))))))))" "(void" "(add-core-form!*" @@ -76890,26 +77179,26 @@ 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_168) s_0))" -"(let-values(((orig-s_98) s_168))" +"(let-values(((s_171) s_0))" +"(let-values(((orig-s_98) s_171))" "(let-values(((define-values1_1 id2_2 rhs3_1)" -"(let-values(((s_40)(if(syntax?$1 s_168)(syntax-e$1 s_168) s_168)))" +"(let-values(((s_40)(if(syntax?$1 s_171)(syntax-e$1 s_171) s_171)))" "(if(pair? s_40)" "(let-values(((define-values4_0)" -"(let-values(((s_178)(car s_40))) s_178))" +"(let-values(((s_181)(car s_40))) s_181))" "((id5_0 rhs6_0)" "(let-values(((s_41)(cdr s_40)))" -"(let-values(((s_170)" +"(let-values(((s_173)" "(if(syntax?$1 s_41)" "(syntax-e$1 s_41)" " s_41)))" -"(if(pair? s_170)" +"(if(pair? s_173)" "(let-values(((id7_0)" -"(let-values(((s_158)(car s_170)))" +"(let-values(((s_160)(car s_173)))" "(let-values(((s_5)" -"(if(syntax?$1 s_158)" -"(syntax-e$1 s_158)" -" s_158)))" +"(if(syntax?$1 s_160)" +"(syntax-e$1 s_160)" +" s_160)))" "(let-values(((flat-s_64)" "(to-syntax-list.1" " s_5)))" @@ -76930,19 +77219,19 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_24)))" -"((letrec-values(((for-loop_252)" +"((letrec-values(((for-loop_253)" "(lambda(id_6" -" lst_79)" +" lst_80)" "(begin" " 'for-loop" "(if(pair?" -" lst_79)" -"(let-values(((s_179)" +" lst_80)" +"(let-values(((s_182)" "(unsafe-car" -" lst_79))" +" lst_80))" "((rest_142)" "(unsafe-cdr" -" lst_79)))" +" lst_80)))" "(let-values(((id_168)" "(let-values(((id_52)" " id_6))" @@ -76952,21 +77241,21 @@ static const char *startup_source = "(let-values()" "(if(let-values(((or-part_53)" "(if(syntax?$1" -" s_179)" +" s_182)" "(symbol?" "(syntax-e$1" -" s_179))" +" s_182))" " #f)))" "(if or-part_53" " or-part_53" "(symbol?" -" s_179)))" -" s_179" +" s_182)))" +" s_182" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_98" -" s_179)))))" +" s_182)))))" "(cons" " id10_1" " id_52)))))" @@ -76974,37 +77263,37 @@ static const char *startup_source = " id_169)))))" "(if(not" " #f)" -"(for-loop_252" +"(for-loop_253" " id_168" " rest_142)" " id_168)))" " id_6)))))" -" for-loop_252)" +" for-loop_253)" " null" " lst_24)))))" "(reverse$1 id_167))))))))" "((rhs8_0)" -"(let-values(((s_79)(cdr s_170)))" -"(let-values(((s_380)" +"(let-values(((s_79)(cdr s_173)))" +"(let-values(((s_388)" "(if(syntax?$1 s_79)" "(syntax-e$1 s_79)" " s_79)))" -"(if(pair? s_380)" +"(if(pair? s_388)" "(let-values(((rhs9_0)" "(let-values(((s_43)" "(car" -" s_380)))" +" s_388)))" " s_43))" "(()" -"(let-values(((s_303)" +"(let-values(((s_308)" "(cdr" -" s_380)))" +" s_388)))" "(let-values(((s_35)" "(if(syntax?$1" -" s_303)" +" s_308)" "(syntax-e$1" -" s_303)" -" s_303)))" +" s_308)" +" s_308)))" "(if(null?" " s_35)" "(values)" @@ -77054,29 +77343,29 @@ static const char *startup_source = "(values))))" "(let-values(((disarmed-s_26)(syntax-disarm$1 s_872)))" "(let-values(((ok?_91 define-syntaxes15_0 id16_2 rhs17_0)" -"(let-values(((s_424) disarmed-s_26))" -"(let-values(((orig-s_99) s_424))" +"(let-values(((s_431) disarmed-s_26))" +"(let-values(((orig-s_99) s_431))" "(let-values(((define-syntaxes15_1 id16_3 rhs17_1)" -"(let-values(((s_20)(if(syntax?$1 s_424)(syntax-e$1 s_424) s_424)))" +"(let-values(((s_20)(if(syntax?$1 s_431)(syntax-e$1 s_431) s_431)))" "(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_460)(cdr s_20)))" +"(let-values(((s_470)(cdr s_20)))" "(let-values(((s_24)" -"(if(syntax?$1 s_460)" -"(syntax-e$1 s_460)" -" s_460)))" +"(if(syntax?$1 s_470)" +"(syntax-e$1 s_470)" +" s_470)))" "(if(pair? s_24)" "(let-values(((id21_0)" -"(let-values(((s_724)(car s_24)))" -"(let-values(((s_467)" -"(if(syntax?$1 s_724)" -"(syntax-e$1 s_724)" -" s_724)))" +"(let-values(((s_726)(car s_24)))" +"(let-values(((s_477)" +"(if(syntax?$1 s_726)" +"(syntax-e$1 s_726)" +" s_726)))" "(let-values(((flat-s_65)" "(to-syntax-list.1" -" s_467)))" +" s_477)))" "(if(not flat-s_65)" "(let-values()" "(raise-syntax-error$1" @@ -77085,7 +77374,7 @@ static const char *startup_source = " orig-s_99))" "(let-values()" "(let-values(((id_77)" -"(let-values(((lst_179)" +"(let-values(((lst_181)" " flat-s_65))" "(begin" "(if(variable-reference-from-unsafe?" @@ -77093,20 +77382,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_179)))" +" lst_181)))" "((letrec-values(((for-loop_340)" "(lambda(id_170" -" lst_459)" +" lst_456)" "(begin" " 'for-loop" "(if(pair?" -" lst_459)" -"(let-values(((s_145)" +" lst_456)" +"(let-values(((s_146)" "(unsafe-car" -" lst_459))" -"((rest_256)" +" lst_456))" +"((rest_261)" "(unsafe-cdr" -" lst_459)))" +" lst_456)))" "(let-values(((id_100)" "(let-values(((id_101)" " id_170))" @@ -77114,23 +77403,23 @@ static const char *startup_source = "(let-values()" "(let-values(((id24_1)" "(let-values()" -"(if(let-values(((or-part_358)" +"(if(let-values(((or-part_359)" "(if(syntax?$1" -" s_145)" +" s_146)" "(symbol?" "(syntax-e$1" -" s_145))" +" s_146))" " #f)))" -"(if or-part_358" -" or-part_358" +"(if or-part_359" +" or-part_359" "(symbol?" -" s_145)))" -" s_145" +" s_146)))" +" s_146" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_99" -" s_145)))))" +" s_146)))))" "(cons" " id24_1" " id_101)))))" @@ -77140,37 +77429,37 @@ static const char *startup_source = " #f)" "(for-loop_340" " id_100" -" rest_256)" +" rest_261)" " id_100)))" " id_170)))))" " for-loop_340)" " null" -" lst_179)))))" +" lst_181)))))" "(reverse$1 id_77))))))))" "((rhs22_0)" -"(let-values(((s_493)(cdr s_24)))" -"(let-values(((s_475)" -"(if(syntax?$1 s_493)" -"(syntax-e$1 s_493)" -" s_493)))" -"(if(pair? s_475)" +"(let-values(((s_499)(cdr s_24)))" +"(let-values(((s_483)" +"(if(syntax?$1 s_499)" +"(syntax-e$1 s_499)" +" s_499)))" +"(if(pair? s_483)" "(let-values(((rhs23_2)" -"(let-values(((s_164)" +"(let-values(((s_167)" "(car" -" s_475)))" -" s_164))" +" s_483)))" +" s_167))" "(()" "(let-values(((s_44)" "(cdr" -" s_475)))" -"(let-values(((s_456)" +" s_483)))" +"(let-values(((s_466)" "(if(syntax?$1" " s_44)" "(syntax-e$1" " s_44)" " s_44)))" "(if(null?" -" s_456)" +" s_466)" "(values)" "(raise-syntax-error$1" " #f" @@ -77200,7 +77489,7 @@ static const char *startup_source = "(void" "(add-core-form!*" " 'begin-for-syntax" -" (lambda (s_478 ctx_10) (raise-syntax-error$1 #f \"not allowed in an expression position\" s_478))))" +" (lambda (s_486 ctx_10) (raise-syntax-error$1 #f \"not allowed in an expression position\" s_486))))" "(void" "(add-core-form!*" " '#%require" @@ -77218,19 +77507,19 @@ static const char *startup_source = "(values))))" "(let-values(((disarmed-s_27)(syntax-disarm$1 s_45)))" "(let-values(((ok?_92 #%require29_0 req30_0)" -"(let-values(((s_393) disarmed-s_27))" -"(let-values(((orig-s_100) s_393))" +"(let-values(((s_401) disarmed-s_27))" +"(let-values(((orig-s_100) s_401))" "(let-values(((#%require29_1 req30_1)" -"(let-values(((s_873)(if(syntax?$1 s_393)(syntax-e$1 s_393) s_393)))" -"(if(pair? s_873)" -"(let-values(((#%require31_0)(let-values(((s_46)(car s_873))) s_46))" +"(let-values(((s_82)(if(syntax?$1 s_401)(syntax-e$1 s_401) s_401)))" +"(if(pair? s_82)" +"(let-values(((#%require31_0)(let-values(((s_46)(car s_82))) s_46))" "((req32_0)" -"(let-values(((s_146)(cdr s_873)))" -"(let-values(((s_725)" -"(if(syntax?$1 s_146)" -"(syntax-e$1 s_146)" -" s_146)))" -"(let-values(((flat-s_66)(to-syntax-list.1 s_725)))" +"(let-values(((s_147)(cdr s_82)))" +"(let-values(((s_83)" +"(if(syntax?$1 s_147)" +"(syntax-e$1 s_147)" +" s_147)))" +"(let-values(((flat-s_66)(to-syntax-list.1 s_83)))" "(if(not flat-s_66)" "(let-values()" "(raise-syntax-error$1" @@ -77241,40 +77530,40 @@ static const char *startup_source = "(values #%require31_0 req32_0))" " (raise-syntax-error$1 #f \"bad syntax\" orig-s_100)))))" "(values #t #%require29_1 req30_1))))))" -"(let-values(((sc_36)(new-scope 'macro)))" +"(let-values(((sc_40)(new-scope 'macro)))" "(begin" "(let-values(((temp33_4)" "(reverse$1" -"(let-values(((lst_460) req30_0))" +"(let-values(((lst_457) req30_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_460)))" +"(let-values()(check-list lst_457)))" "((letrec-values(((for-loop_341)" -"(lambda(fold-var_164 lst_461)" +"(lambda(fold-var_163 lst_458)" "(begin" " 'for-loop" -"(if(pair? lst_461)" -"(let-values(((req_20)(unsafe-car lst_461))" -"((rest_257)(unsafe-cdr lst_461)))" -"(let-values(((fold-var_388)" -"(let-values(((fold-var_179) fold-var_164))" -"(let-values(((fold-var_180)" +"(if(pair? lst_458)" +"(let-values(((req_20)(unsafe-car lst_458))" +"((rest_262)(unsafe-cdr lst_458)))" +"(let-values(((fold-var_95)" +"(let-values(((fold-var_178) fold-var_163))" +"(let-values(((fold-var_179)" "(let-values()" "(cons" "(let-values()" "(add-scope" " req_20" -" sc_36))" -" fold-var_179))))" -"(values fold-var_180)))))" +" sc_40))" +" fold-var_178))))" +"(values fold-var_179)))))" "(if(not #f)" -"(for-loop_341 fold-var_388 rest_257)" -" fold-var_388)))" -" fold-var_164)))))" +"(for-loop_341 fold-var_95 rest_262)" +" fold-var_95)))" +" fold-var_163)))))" " for-loop_341)" " null" -" lst_460)))))" +" lst_457)))))" "((s34_0) s_45)" "((temp35_3) #f)" "((temp36_8)(expand-context-namespace ctx_18))" @@ -77311,11 +77600,11 @@ static const char *startup_source = "(void" "(add-core-form!*" " '#%provide" -"(lambda(s_497 ctx_81)" +"(lambda(s_503 ctx_81)" "(begin" "(let-values(((obs_17)(expand-context-observer ctx_81)))" "(if obs_17(let-values()(let-values()(call-expand-observe obs_17 'prim-provide)))(void)))" -" (raise-syntax-error$1 #f \"not allowed outside of a module body\" s_497)))))" +" (raise-syntax-error$1 #f \"not allowed outside of a module body\" s_503)))))" "(define-values(ns)(make-namespace))" "(void" "(begin" @@ -77346,65 +77635,65 @@ static const char *startup_source = "(let-values(((ns26_3) ns)" "((eval27_0) 1/eval)" "((temp28_7)" -"(let-values(((ht_169) main-primitives))" +"(let-values(((ht_171) main-primitives))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash-keys ht_169)))" +"(let-values()(check-in-hash-keys ht_171)))" "((letrec-values(((for-loop_20)" -"(lambda(table_222 i_3)" +"(lambda(table_231 i_3)" "(begin" " 'for-loop" "(if i_3" -"(let-values(((name_81)(hash-iterate-key ht_169 i_3)))" -"(let-values(((table_209)" -"(let-values(((table_223) table_222))" -"(let-values(((table_179)" +"(let-values(((name_80)(hash-iterate-key ht_171 i_3)))" +"(let-values(((table_218)" +"(let-values(((table_232) table_231))" +"(let-values(((table_186)" "(let-values()" -"(let-values(((key_95 val_85)" +"(let-values(((key_96 val_87)" +"(let-values()" +"(values" +"(let-values() name_80)" +" #t))))" +"(hash-set table_232 key_96 val_87)))))" +"(values table_186)))))" +"(if(not #f)" +"(for-loop_20 table_218(hash-iterate-next ht_171 i_3))" +" table_218)))" +" table_231)))))" +" for-loop_20)" +" '#hash()" +"(hash-iterate-first ht_171)))))" +"((temp29_4)" +"(let-values(((ht_172) read-primitives))" +"(begin" +"(if(variable-reference-from-unsafe?(#%variable-reference))" +"(void)" +"(let-values()(check-in-hash-keys ht_172)))" +"((letrec-values(((for-loop_323)" +"(lambda(table_189 i_185)" +"(begin" +" 'for-loop" +"(if i_185" +"(let-values(((name_81)(hash-iterate-key ht_172 i_185)))" +"(let-values(((table_115)" +"(let-values(((table_108) table_189))" +"(let-values(((table_109)" +"(let-values()" +"(let-values(((key_97 val_88)" "(let-values()" "(values" "(let-values() name_81)" " #t))))" -"(hash-set table_223 key_95 val_85)))))" -"(values table_179)))))" +"(hash-set table_108 key_97 val_88)))))" +"(values table_109)))))" "(if(not #f)" -"(for-loop_20 table_209(hash-iterate-next ht_169 i_3))" -" table_209)))" -" table_222)))))" -" for-loop_20)" +"(for-loop_323 table_115(hash-iterate-next ht_172 i_185))" +" table_115)))" +" table_189)))))" +" for-loop_323)" " '#hash()" -"(hash-iterate-first ht_169)))))" -"((temp29_4)" -"(let-values(((ht_170) read-primitives))" -"(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))" -"(void)" -"(let-values()(check-in-hash-keys ht_170)))" -"((letrec-values(((for-loop_324)" -"(lambda(table_181 i_183)" -"(begin" -" 'for-loop" -"(if i_183" -"(let-values(((name_82)(hash-iterate-key ht_170 i_183)))" -"(let-values(((table_224)" -"(let-values(((table_103) table_181))" -"(let-values(((table_104)" -"(let-values()" -"(let-values(((key_96 val_86)" -"(let-values()" -"(values" -"(let-values() name_82)" -" #t))))" -"(hash-set table_103 key_96 val_86)))))" -"(values table_104)))))" -"(if(not #f)" -"(for-loop_324 table_224(hash-iterate-next ht_170 i_183))" -" table_224)))" -" table_181)))))" -" for-loop_324)" -" '#hash()" -"(hash-iterate-first ht_170))))))" +"(hash-iterate-first ht_172))))))" "(declare-kernel-module!8.1 eval27_0 temp28_7 temp29_4 ns26_3))" "(begin" "(let-values(((lst_17) runtime-instances))" @@ -77415,33 +77704,33 @@ static const char *startup_source = "(begin" " 'for-loop" "(if(pair? lst_20)" -"(let-values(((name_83)(unsafe-car lst_20))((rest_6)(unsafe-cdr lst_20)))" +"(let-values(((name_82)(unsafe-car lst_20))((rest_6)(unsafe-cdr lst_20)))" "(let-values((()" "(let-values()" -"(if(eq? name_83 '#%kernel)" +"(if(eq? name_82 '#%kernel)" "(values)" "(let-values()" "(let-values((()" "(let-values()" "(begin" "(let-values()" -"(let-values(((name30_0) name_83)" +"(let-values(((name30_0) name_82)" "((ns31_5) ns)" "((temp32_6)" -"(let-values(((or-part_293)" +"(let-values(((or-part_291)" "(eq?" -" name_83" +" name_82" " '#%foreign)))" -"(if or-part_293" -" or-part_293" -"(let-values(((or-part_95)" +"(if or-part_291" +" or-part_291" +"(let-values(((or-part_94)" "(eq?" -" name_83" +" name_82" " '#%futures)))" -"(if or-part_95" -" or-part_95" +"(if or-part_94" +" or-part_94" "(eq?" -" name_83" +" name_82" " '#%unsafe)))))))" "(copy-runtime-module!26.1" " #f" @@ -77472,5 +77761,5 @@ static const char *startup_source = "(declare-reexporting-module!50.1 ns35_1 temp36_9 #t temp33_5 temp34_5))" "(1/current-namespace ns)" "(1/dynamic-require ''#%kernel 0)))" -"(define-values(datum->kernel-syntax)(lambda(s_874)(begin(1/datum->syntax core-stx s_874)))))" +"(define-values(datum->kernel-syntax)(lambda(s_873)(begin(1/datum->syntax core-stx s_873)))))" ;