diff --git a/pkgs/racket-test-core/tests/racket/macro.rktl b/pkgs/racket-test-core/tests/racket/macro.rktl index 4978d04d72..4725a92ca4 100644 --- a/pkgs/racket-test-core/tests/racket/macro.rktl +++ b/pkgs/racket-test-core/tests/racket/macro.rktl @@ -2206,6 +2206,34 @@ (#%module-begin (m)))) +(module test-for-scope-specific-binding/nested racket/base + + (module l racket/base + (require (for-syntax racket/base racket/syntax) + syntax/parse/define) + + (provide expand-in-modbeg m + (all-from-out racket/base)) + + (define-syntax-parser expand-in-modbeg + [(_ form ...) + (local-expand #'(#%plain-module-begin form ...) + 'module-begin + '()) + #'(void)]) + + (define-syntax-parser m + [(_) + #:with x (generate-temporary) + #'(begin + (define x #f) + (begin-for-syntax #'x))])) + + (module c (submod ".." l) + (let () + (expand-in-modbeg + (m))))) + ;; ---------------------------------------- (report-errs) diff --git a/racket/src/expander/expand/module.rkt b/racket/src/expander/expand/module.rkt index 6e2ff2ec4e..1c3029bb8c 100644 --- a/racket/src/expander/expand/module.rkt +++ b/racket/src/expander/expand/module.rkt @@ -252,7 +252,12 @@ [compiled-submodules (make-hasheq)] [compiled-module-box (box #f)] [defined-syms (make-hasheq)]) - (module-begin-k s ctx)))])) + (module-begin-k s ctx)))] + ;; Also, force `post-expansion` to be right, in case 'module-begin + ;; module is triggered within some other mode; a correct value + ;; for `post-expansion` is important to getting scopes right. + [post-expansion #:parent root-expand-context + (lambda (s) (add-scope s inside-scope))])) ;; In case `#%module-begin` expansion is forced on syntax that ;; that wasn't already introduced into the mdoule's inside scope, diff --git a/racket/src/expander/expand/root-expand-context.rkt b/racket/src/expander/expand/root-expand-context.rkt index 418d0a1411..16ec25c7bb 100644 --- a/racket/src/expander/expand/root-expand-context.rkt +++ b/racket/src/expander/expand/root-expand-context.rkt @@ -61,7 +61,7 @@ (cond [(not pe) s] [(shifted-multi-scope? pe) (push-scope s pe)] - [(pair? pe) (syntax-add-shifts (add-scope s (car pe)) (cdr pe))] + [(pair? pe) (syntax-add-shifts (push-scope s (car pe)) (cdr pe))] [else (pe s)])) (define (post-expansion-scope pe) diff --git a/racket/src/racket/src/startup.inc b/racket/src/racket/src/startup.inc index 5e8dc652c6..bc4f8782cb 100644 --- a/racket/src/racket/src/startup.inc +++ b/racket/src/racket/src/startup.inc @@ -11966,8 +11966,7 @@ static const char *startup_source = " root-expand-context/outer1.1" " root-expand-context/outer?" " root-expand-context/outer-inner" -" root-expand-context/outer-post-expansion-scope" -" root-expand-context/outer-post-expansion-shifts" +" root-expand-context/outer-post-expansion" " root-expand-context/outer-use-site-scopes" " root-expand-context/outer-frame-id)" "(let-values(((struct:_36 make-_36 ?_36 -ref_36 -set!_36)" @@ -11976,13 +11975,13 @@ static const char *startup_source = "(make-struct-type" " 'root-expand-context" " #f" -" 5" +" 4" " 0" " #f" "(list(cons prop:authentic #t))" "(current-inspector)" " #f" -" '(0 1 2 3 4)" +" '(0 1 2 3)" " #f" " 'root-expand-context/outer)))))" "(values" @@ -11990,10 +11989,9 @@ static const char *startup_source = " make-_36" " ?_36" "(make-struct-field-accessor -ref_36 0 'inner)" -"(make-struct-field-accessor -ref_36 1 'post-expansion-scope)" -"(make-struct-field-accessor -ref_36 2 'post-expansion-shifts)" -"(make-struct-field-accessor -ref_36 3 'use-site-scopes)" -"(make-struct-field-accessor -ref_36 4 'frame-id))))" +"(make-struct-field-accessor -ref_36 1 'post-expansion)" +"(make-struct-field-accessor -ref_36 2 'use-site-scopes)" +"(make-struct-field-accessor -ref_36 3 'frame-id))))" "(define-values" "(struct:root-expand-context/inner" " root-expand-context/inner2.1" @@ -12005,7 +12003,7 @@ static const char *startup_source = " root-expand-context/inner-defined-syms" " root-expand-context/inner-counter" " root-expand-context/inner-lift-key)" -"(let-values(((struct:_37 make-_37 ?_37 -ref_37 -set!_37)" +"(let-values(((struct:_9 make-_9 ?_9 -ref_9 -set!_9)" "(let-values()" "(let-values()" "(make-struct-type" @@ -12021,22 +12019,21 @@ static const char *startup_source = " #f" " 'root-expand-context/inner)))))" "(values" -" struct:_37" -" make-_37" -" ?_37" -"(make-struct-field-accessor -ref_37 0 'self-mpi)" -"(make-struct-field-accessor -ref_37 1 'module-scopes)" -"(make-struct-field-accessor -ref_37 2 'top-level-bind-scope)" -"(make-struct-field-accessor -ref_37 3 'all-scopes-stx)" -"(make-struct-field-accessor -ref_37 4 'defined-syms)" -"(make-struct-field-accessor -ref_37 5 'counter)" -"(make-struct-field-accessor -ref_37 6 'lift-key))))" +" struct:_9" +" make-_9" +" ?_9" +"(make-struct-field-accessor -ref_9 0 'self-mpi)" +"(make-struct-field-accessor -ref_9 1 'module-scopes)" +"(make-struct-field-accessor -ref_9 2 'top-level-bind-scope)" +"(make-struct-field-accessor -ref_9 3 'all-scopes-stx)" +"(make-struct-field-accessor -ref_9 4 'defined-syms)" +"(make-struct-field-accessor -ref_9 5 'counter)" +"(make-struct-field-accessor -ref_9 6 'lift-key))))" "(define-values" "(root-expand-context/make)" "(lambda(self-mpi_0" " module-scopes_0" -" post-expansion-scope_0" -" post-expansion-shifts_0" +" post-expansion_0" " top-level-bind-scope_0" " all-scopes-stx_0" " use-site-scopes_0" @@ -12054,38 +12051,34 @@ static const char *startup_source = " defined-syms_0" " counter_0" " lift-key_0)" -" post-expansion-scope_0" -" post-expansion-shifts_0" +" post-expansion_0" " use-site-scopes_0" " frame-id_4))))" "(define-values" -"(root-expand-context-post-expansion-scope)" -"(lambda(v_49)(begin(root-expand-context/outer-post-expansion-scope v_49))))" -"(define-values" -"(root-expand-context-post-expansion-shifts)" -"(lambda(v_91)(begin(root-expand-context/outer-post-expansion-shifts v_91))))" +"(root-expand-context-post-expansion)" +"(lambda(v_91)(begin(root-expand-context/outer-post-expansion v_91))))" "(define-values" "(root-expand-context-use-site-scopes)" -"(lambda(v_42)(begin(root-expand-context/outer-use-site-scopes v_42))))" -"(define-values(root-expand-context-frame-id)(lambda(v_92)(begin(root-expand-context/outer-frame-id v_92))))" +"(lambda(v_92)(begin(root-expand-context/outer-use-site-scopes v_92))))" +"(define-values(root-expand-context-frame-id)(lambda(v_47)(begin(root-expand-context/outer-frame-id v_47))))" "(define-values" "(root-expand-context-self-mpi)" -"(lambda(v_52)(begin(root-expand-context/inner-self-mpi(root-expand-context/outer-inner v_52)))))" +"(lambda(v_65)(begin(root-expand-context/inner-self-mpi(root-expand-context/outer-inner v_65)))))" "(define-values" "(root-expand-context-module-scopes)" -"(lambda(v_93)(begin(root-expand-context/inner-module-scopes(root-expand-context/outer-inner v_93)))))" +"(lambda(v_48)(begin(root-expand-context/inner-module-scopes(root-expand-context/outer-inner v_48)))))" "(define-values" "(root-expand-context-top-level-bind-scope)" -"(lambda(v_53)(begin(root-expand-context/inner-top-level-bind-scope(root-expand-context/outer-inner v_53)))))" +"(lambda(v_93)(begin(root-expand-context/inner-top-level-bind-scope(root-expand-context/outer-inner v_93)))))" "(define-values" "(root-expand-context-all-scopes-stx)" -"(lambda(v_94)(begin(root-expand-context/inner-all-scopes-stx(root-expand-context/outer-inner v_94)))))" +"(lambda(v_49)(begin(root-expand-context/inner-all-scopes-stx(root-expand-context/outer-inner v_49)))))" "(define-values" "(root-expand-context-defined-syms)" -"(lambda(v_50)(begin(root-expand-context/inner-defined-syms(root-expand-context/outer-inner v_50)))))" +"(lambda(v_94)(begin(root-expand-context/inner-defined-syms(root-expand-context/outer-inner v_94)))))" "(define-values" "(root-expand-context-counter)" -"(lambda(v_54)(begin(root-expand-context/inner-counter(root-expand-context/outer-inner v_54)))))" +"(lambda(v_42)(begin(root-expand-context/inner-counter(root-expand-context/outer-inner v_42)))))" "(define-values" "(root-expand-context-lift-key)" "(lambda(v_95)(begin(root-expand-context/inner-lift-key(root-expand-context/outer-inner v_95)))))" @@ -12098,18 +12091,17 @@ static const char *startup_source = "(let-values(((initial-scopes_0) initial-scopes4_0))" "(let-values(((outside-scope_0)" "(if(eq? outside-scope5_0 unsafe-undefined) top-level-common-scope outside-scope5_0)))" -"(let-values(((post-expansion-scope_1)" +"(let-values(((post-expansion-scope_0)" "(if(eq? post-expansion-scope6_0 unsafe-undefined)" "(new-multi-scope 'top-level)" " post-expansion-scope6_0)))" "(let-values(((all-scopes-stx_1) all-scopes-stx7_0))" "(let-values()" -"(let-values(((module-scopes_1)(list* post-expansion-scope_1 outside-scope_0 initial-scopes_0)))" +"(let-values(((module-scopes_1)(list* post-expansion-scope_0 outside-scope_0 initial-scopes_0)))" "(root-expand-context/make" " self-mpi_1" " module-scopes_1" -" post-expansion-scope_1" -" null" +" post-expansion-scope_0" "(new-scope 'module)" "(let-values(((or-part_136) all-scopes-stx_1))" "(if or-part_136 or-part_136(add-scopes empty-syntax module-scopes_1)))" @@ -12119,6 +12111,28 @@ static const char *startup_source = "(box 0)" "(generate-lift-key))))))))))))" "(define-values" +"(apply-post-expansion)" +"(lambda(pe_0 s_165)" +"(begin" +"(if(not pe_0)" +"(let-values() s_165)" +"(if(shifted-multi-scope? pe_0)" +"(let-values()(push-scope s_165 pe_0))" +"(if(pair? pe_0)" +"(let-values()" +"(let-values(((temp18_2)(push-scope s_165(car pe_0)))((temp19_0)(cdr pe_0)))" +"(syntax-add-shifts44.1 #f temp18_2 temp19_0 #f)))" +"(let-values()(pe_0 s_165))))))))" +"(define-values" +"(post-expansion-scope)" +"(lambda(pe_1)" +"(begin" +"(if(shifted-multi-scope? pe_1)" +"(let-values() pe_1)" +"(if(pair? pe_1)" +"(let-values()(car pe_1))" +" (let-values () (error 'post-expansion-scope \"internal error: cannot extract scope from ~s\" pe_1)))))))" +"(define-values" "(root-expand-context-encode-for-module)" "(lambda(ctx_0 orig-self_0 new-self_0)" "(begin" @@ -12126,9 +12140,7 @@ static const char *startup_source = " #f" "(vector" "(add-scopes empty-syntax(root-expand-context-module-scopes ctx_0))" -"(let-values(((temp18_2)(add-scope empty-syntax(root-expand-context-post-expansion-scope ctx_0)))" -"((temp19_0)(root-expand-context-post-expansion-shifts ctx_0)))" -"(syntax-add-shifts44.1 #f temp18_2 temp19_0 #f))" +"(apply-post-expansion(root-expand-context-post-expansion ctx_0) empty-syntax)" "(let-values(((temp20_0)(root-expand-context-all-scopes-stx ctx_0))" "((orig-self21_0) orig-self_0)" "((new-self22_0) new-self_0))" @@ -12187,8 +12199,7 @@ static const char *startup_source = "(root-expand-context/make" " self_3" "(extract-scope-list(vector-ref vec_29 0))" -"(extract-scope(vector-ref vec_29 1))" -"(extract-shifts(vector-ref vec_29 1))" +"(cons(extract-scope(vector-ref vec_29 1))(extract-shifts(vector-ref vec_29 1)))" "(new-scope 'module)" "(vector-ref vec_29 2)" "(box(extract-scope-list(vector-ref vec_29 3)))" @@ -12203,7 +12214,7 @@ static const char *startup_source = "(let-values(((ht_65) v_96))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-in-hash ht_65)))" -"((letrec-values(((for-loop_8)" +"((letrec-values(((for-loop_79)" "(lambda(result_53 i_84)" "(begin" " 'for-loop" @@ -12222,7 +12233,7 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()(check-in-hash ht_66)))" -"((letrec-values(((for-loop_79)" +"((letrec-values(((for-loop_80)" "(lambda(result_56 i_85)" "(begin" " 'for-loop" @@ -12232,10 +12243,10 @@ static const char *startup_source = "(hash-iterate-key+value" " ht_66" " i_85)))" -"(let-values(((result_10)" -"(let-values()" "(let-values(((result_57)" "(let-values()" +"(let-values(((result_58)" +"(let-values()" "(let-values()" "(if(symbol?" " sym_21)" @@ -12243,33 +12254,33 @@ static const char *startup_source = " id_8)" " #f)))))" "(values" -" result_57)))))" +" result_58)))))" "(if(if(not" -"((lambda x_0" +"((lambda x_38" "(not" -" result_10))" +" result_57))" " sym_21" " id_8))" "(not #f)" " #f)" -"(for-loop_79" -" result_10" +"(for-loop_80" +" result_57" "(hash-iterate-next" " ht_66" " i_85))" -" result_10)))" +" result_57)))" " result_56)))))" -" for-loop_79)" +" for-loop_80)" " #t" "(hash-iterate-first ht_66))))" " #f)" " #f)))))" "(values result_55)))))" -"(if(if(not((lambda x_38(not result_54)) phase_25 ht-s_0))(not #f) #f)" -"(for-loop_8 result_54(hash-iterate-next ht_65 i_84))" +"(if(if(not((lambda x_39(not result_54)) phase_25 ht-s_0))(not #f) #f)" +"(for-loop_79 result_54(hash-iterate-next ht_65 i_84))" " result_54)))" " result_53)))))" -" for-loop_8)" +" for-loop_79)" " #t" "(hash-iterate-first ht_65)))))))" "(define-values" @@ -12280,7 +12291,7 @@ static const char *startup_source = "(lambda(stx_10)(begin(if(syntax?$1 stx_10)(= 1(set-count(syntax-scope-set stx_10 0))) #f))))" "(define-values" "(extract-scope)" -"(lambda(stx_11)(begin(let-values(((s_165)(syntax-scope-set stx_11 0)))(generalize-scope(set-first s_165))))))" +"(lambda(stx_11)(begin(let-values(((s_58)(syntax-scope-set stx_11 0)))(generalize-scope(set-first s_58))))))" "(define-values(extract-shifts)(lambda(stx_12)(begin(syntax-mpi-shifts stx_12))))" "(define-values" "(unpack-defined-syms)" @@ -12290,7 +12301,7 @@ static const char *startup_source = "(let-values(((ht_67)(syntax-e$1 v_97)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-in-hash ht_67)))" -"((letrec-values(((for-loop_80)" +"((letrec-values(((for-loop_81)" "(lambda(table_95 i_86)" "(begin" " 'for-loop" @@ -12314,7 +12325,7 @@ static const char *startup_source = "(void)" "(let-values()" "(check-in-hash ht_68)))" -"((letrec-values(((for-loop_23)" +"((letrec-values(((for-loop_82)" "(lambda(table_99" " i_87)" "(begin" @@ -12344,22 +12355,22 @@ static const char *startup_source = " table_102)))))" "(if(not" " #f)" -"(for-loop_23" +"(for-loop_82" " table_100" "(hash-iterate-next" " ht_68" " i_87))" " table_100)))" " table_99)))))" -" for-loop_23)" +" for-loop_82)" " '#hash()" "(hash-iterate-first" " ht_68)))))))))" "(hash-set table_97 key_38 val_26)))))" "(values table_98)))))" -"(if(not #f)(for-loop_80 table_96(hash-iterate-next ht_67 i_86)) table_96)))" +"(if(not #f)(for-loop_81 table_96(hash-iterate-next ht_67 i_86)) table_96)))" " table_95)))))" -" for-loop_80)" +" for-loop_81)" " '#hasheqv()" "(hash-iterate-first ht_67))))))))" "(define-values(1/primitive-table) primitive-table)" @@ -12526,7 +12537,7 @@ static const char *startup_source = "(make-struct-field-mutator -set!_0 12 'inspector))))" "(define-values" "(struct:definitions definitions2.1 definitions? definitions-variables definitions-transformers)" -"(let-values(((struct:_38 make-_38 ?_38 -ref_38 -set!_38)" +"(let-values(((struct:_37 make-_37 ?_37 -ref_37 -set!_37)" "(let-values()" "(let-values()" "(make-struct-type" @@ -12542,11 +12553,11 @@ static const char *startup_source = " #f" " 'definitions)))))" "(values" -" struct:_38" -" make-_38" -" ?_38" -"(make-struct-field-accessor -ref_38 0 'variables)" -"(make-struct-field-accessor -ref_38 1 'transformers))))" +" struct:_37" +" make-_37" +" ?_37" +"(make-struct-field-accessor -ref_37 0 'variables)" +"(make-struct-field-accessor -ref_37 1 'transformers))))" "(define-values(make-namespace)(lambda()(begin(let-values()(new-namespace8.1 #t unsafe-undefined #f)))))" "(define-values" "(new-namespace8.1)" @@ -12582,8 +12593,8 @@ static const char *startup_source = "(make-bulk-binding-registry))" "(make-small-hasheq)" "(if share-from-ns_0" -"(let-values(((or-part_136)(namespace-root-namespace share-from-ns_0)))" -"(if or-part_136 or-part_136 share-from-ns_0))" +"(let-values(((or-part_137)(namespace-root-namespace share-from-ns_0)))" +"(if or-part_137 or-part_137 share-from-ns_0))" " #f)" " #f" "(make-inspector(current-code-inspector))" @@ -12617,21 +12628,21 @@ static const char *startup_source = "(namespace->module)" "(lambda(ns_5 name_17)" "(begin" -"(let-values(((or-part_137)(small-hash-ref(namespace-submodule-declarations ns_5) name_17 #f)))" -"(if or-part_137" -" or-part_137" +"(let-values(((or-part_138)(small-hash-ref(namespace-submodule-declarations ns_5) name_17 #f)))" +"(if or-part_138" +" or-part_138" "(hash-ref(module-registry-declarations(namespace-module-registry$1 ns_5)) name_17 #f))))))" "(define-values" "(namespace->namespace-at-phase)" -"(lambda(ns_6 phase_28)" +"(lambda(ns_6 phase_24)" "(begin" -"(let-values(((or-part_138)(small-hash-ref(namespace-phase-to-namespace ns_6) phase_28 #f)))" -"(if or-part_138" -" or-part_138" +"(let-values(((or-part_139)(small-hash-ref(namespace-phase-to-namespace ns_6) phase_24 #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(((phase21_0) phase_28))" +"(let-values(((phase21_0) phase_24))" "(namespace1.1" "(namespace-mpi the-struct_34)" "(namespace-source-name the-struct_34)" @@ -12649,7 +12660,7 @@ 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_28 p-ns_0) p-ns_0)))))))" +"(begin(small-hash-set!(namespace-phase-to-namespace ns_6) phase_24 p-ns_0) p-ns_0)))))))" "(define-values" "(namespace->name)" "(lambda(ns_7)" @@ -12668,9 +12679,9 @@ static const char *startup_source = "(lambda(ns_8 phase-level_1)" "(begin" "(let-values(((d_8)(small-hash-ref(namespace-phase-level-to-definitions ns_8) phase-level_1 #f)))" -"(let-values(((or-part_139) d_8))" -"(if or-part_139" -" or-part_139" +"(let-values(((or-part_140) d_8))" +"(if or-part_140" +" or-part_140" "(let-values()" "(let-values(((p-ns_1)" "(namespace->namespace-at-phase ns_8(phase+(namespace-0-phase ns_8) phase-level_1))))" @@ -12848,7 +12859,7 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()(check-in-immutable-hash ht_69)))" -"((letrec-values(((for-loop_81)" +"((letrec-values(((for-loop_83)" "(lambda(new-props_1 i_88)" "(begin" " 'for-loop" @@ -12880,14 +12891,14 @@ static const char *startup_source = "(values" " new-props_4)))))" "(if(not #f)" -"(for-loop_81" +"(for-loop_83" " new-props_2" "(unsafe-immutable-hash-iterate-next" " ht_69" " i_88))" " new-props_2)))" " new-props_1)))))" -" for-loop_81)" +" for-loop_83)" " new-props_0" "(unsafe-immutable-hash-iterate-first ht_69)))))" "(let-values()" @@ -12897,7 +12908,7 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()(check-in-immutable-hash ht_70)))" -"((letrec-values(((for-loop_82)" +"((letrec-values(((for-loop_84)" "(lambda(old-props_1 i_0)" "(begin" " 'for-loop" @@ -12929,14 +12940,14 @@ static const char *startup_source = "(values" " old-props_4)))))" "(if(not #f)" -"(for-loop_82" +"(for-loop_84" " old-props_2" "(unsafe-immutable-hash-iterate-next" " ht_70" " i_0))" " old-props_2)))" " old-props_1)))))" -" for-loop_82)" +" for-loop_84)" " old-props-with-origin_0" "(unsafe-immutable-hash-iterate-first ht_70))))))))" "(let-values(((the-struct_37) new-stx_0))" @@ -12973,7 +12984,7 @@ static const char *startup_source = "(let-values(((lst_58) old-stxes_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_58)))" -"((letrec-values(((for-loop_83)" +"((letrec-values(((for-loop_85)" "(lambda(new-stx_4 lst_24)" "(begin" " 'for-loop" @@ -12985,9 +12996,9 @@ static const char *startup_source = "(let-values()" "(syntax-track-origin$1 new-stx_6 old-stx_3))))" "(values new-stx_7)))))" -"(if(not #f)(for-loop_83 new-stx_5 rest_26) new-stx_5)))" +"(if(not #f)(for-loop_85 new-stx_5 rest_26) new-stx_5)))" " new-stx_4)))))" -" for-loop_83)" +" for-loop_85)" " new-stx_3" " lst_58))))))" "(define-values" @@ -13018,7 +13029,7 @@ static const char *startup_source = "(values struct:_30 make-_30 ?_30(make-struct-field-accessor -ref_30 0 'exprs))))" "(define-values" "(1/struct:exn:fail:syntax:unbound make-exn:fail:syntax:unbound$1 1/exn:fail:syntax:unbound?)" -"(let-values(((struct:_39 make-_39 ?_39 -ref_39 -set!_39)" +"(let-values(((struct:_38 make-_38 ?_38 -ref_38 -set!_38)" "(let-values()" "(let-values()" "(make-struct-type" @@ -13033,7 +13044,7 @@ static const char *startup_source = " '()" " #f" " 'exn:fail:syntax:unbound)))))" -"(values struct:_39 make-_39 ?_39)))" +"(values struct:_38 make-_38 ?_38)))" "(define-values" "(raise-syntax-error$1)" "(let-values(((raise-syntax-error7_0)" @@ -13107,8 +13118,8 @@ static const char *startup_source = "(begin" "(let-values((()" "(begin" -"(if((lambda(x_39)" -"(let-values(((or-part_99)(not x_39)))(if or-part_99 or-part_99(symbol? x_39))))" +"(if((lambda(x_40)" +"(let-values(((or-part_99)(not x_40)))(if or-part_99 or-part_99(symbol? x_40))))" " given-name_12)" "(void)" " (let-values () (raise-argument-error who_8 \"(or/c symbol? #f)\" given-name_12)))" @@ -13134,9 +13145,9 @@ static const char *startup_source = "(let-values(((name_27)" "(format" " \"~a\"" -"(let-values(((or-part_140) given-name_12))" -"(if or-part_140" -" or-part_140" +"(let-values(((or-part_136) given-name_12))" +"(if or-part_136" +" or-part_136" "(let-values(((or-part_141)(extract-form-name expr_8)))" "(if or-part_141 or-part_141 '?)))))))" "(let-values(((at-message_0)" @@ -13172,7 +13183,7 @@ static const char *startup_source = "(cons" "(datum->syntax$1" " #f" -"(let-values(((or-part_136) sub-expr_6))(if or-part_136 or-part_136 expr_8)))" +"(let-values(((or-part_137) sub-expr_6))(if or-part_137 or-part_137 expr_8)))" " extra-sources_4)" " extra-sources_4)))))))))))))))" "(define-values" @@ -13283,7 +13294,7 @@ static const char *startup_source = " module-linklet-info-inspector" " module-linklet-info-extra-inspector" " module-linklet-info-extra-inspectorsss)" -"(let-values(((struct:_40 make-_40 ?_40 -ref_40 -set!_40)" +"(let-values(((struct:_39 make-_39 ?_39 -ref_39 -set!_39)" "(let-values()" "(let-values()" "(make-struct-type" @@ -13299,15 +13310,15 @@ static const char *startup_source = " #f" " 'module-linklet-info)))))" "(values" -" struct:_40" -" make-_40" -" ?_40" -"(make-struct-field-accessor -ref_40 0 'linklet-or-instance)" -"(make-struct-field-accessor -ref_40 1 'module-uses)" -"(make-struct-field-accessor -ref_40 2 'self)" -"(make-struct-field-accessor -ref_40 3 'inspector)" -"(make-struct-field-accessor -ref_40 4 'extra-inspector)" -"(make-struct-field-accessor -ref_40 5 'extra-inspectorsss))))" +" struct:_39" +" make-_39" +" ?_39" +"(make-struct-field-accessor -ref_39 0 'linklet-or-instance)" +"(make-struct-field-accessor -ref_39 1 'module-uses)" +"(make-struct-field-accessor -ref_39 2 'self)" +"(make-struct-field-accessor -ref_39 3 'inspector)" +"(make-struct-field-accessor -ref_39 4 'extra-inspector)" +"(make-struct-field-accessor -ref_39 5 'extra-inspectorsss))))" "(define-values" "(make-module39.1)" "(lambda(cross-phase-persistent?16_0" @@ -13400,7 +13411,7 @@ static const char *startup_source = " set-module-instance-shifted-requires!" " set-module-instance-made-available?!" " set-module-instance-attached?!)" -"(let-values(((struct:_41 make-_41 ?_41 -ref_41 -set!_41)" +"(let-values(((struct:_40 make-_40 ?_40 -ref_40 -set!_40)" "(let-values()" "(let-values()" "(make-struct-type" @@ -13416,19 +13427,19 @@ static const char *startup_source = " #f" " 'module-instance)))))" "(values" -" struct:_41" -" make-_41" -" ?_41" -"(make-struct-field-accessor -ref_41 0 'namespace)" -"(make-struct-field-accessor -ref_41 1 'module)" -"(make-struct-field-accessor -ref_41 2 'shifted-requires)" -"(make-struct-field-accessor -ref_41 3 'phase-level-to-state)" -"(make-struct-field-accessor -ref_41 4 'made-available?)" -"(make-struct-field-accessor -ref_41 5 'attached?)" -"(make-struct-field-accessor -ref_41 6 'data-box)" -"(make-struct-field-mutator -set!_41 2 'shifted-requires)" -"(make-struct-field-mutator -set!_41 4 'made-available?)" -"(make-struct-field-mutator -set!_41 5 'attached?))))" +" struct:_40" +" make-_40" +" ?_40" +"(make-struct-field-accessor -ref_40 0 'namespace)" +"(make-struct-field-accessor -ref_40 1 'module)" +"(make-struct-field-accessor -ref_40 2 'shifted-requires)" +"(make-struct-field-accessor -ref_40 3 'phase-level-to-state)" +"(make-struct-field-accessor -ref_40 4 'made-available?)" +"(make-struct-field-accessor -ref_40 5 'attached?)" +"(make-struct-field-accessor -ref_40 6 'data-box)" +"(make-struct-field-mutator -set!_40 2 'shifted-requires)" +"(make-struct-field-mutator -set!_40 4 'made-available?)" +"(make-struct-field-mutator -set!_40 5 'attached?))))" "(define-values" "(make-module-instance)" "(lambda(m-ns_0 m_1)(begin(module-instance42.1 m-ns_0 m_1 #f(make-small-hasheqv) #f #f(box #f)))))" @@ -13442,7 +13453,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_29) 0))" +"(let-values(((phase_28) 0))" "(let-values(((name_28)(1/module-path-index-resolve name-mpi_0)))" "(let-values(((m-ns_1)" "(let-values(((the-struct_38)" @@ -13453,8 +13464,8 @@ static const char *startup_source = "(if(1/namespace? the-struct_38)" "(let-values(((mpi150_0) name-mpi_0)" "((source-name151_0)(resolved-module-path-root-name name_28))" -"((phase152_0) phase_29)" -"((0-phase153_0) phase_29)" +"((phase152_0) phase_28)" +"((0-phase153_0) phase_28)" "((submodule-declarations154_0)" "(if for-submodule?_0" "(namespace-submodule-declarations ns_20)" @@ -13481,11 +13492,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_29 m-ns_1)" +"(small-hash-set!(namespace-phase-to-namespace m-ns_1) phase_28 m-ns_1)" "(values))))" "(let-values(((at-phase_0)(make-hasheq)))" "(begin" -"(hash-set!(namespace-module-instances m-ns_1) phase_29 at-phase_0)" +"(hash-set!(namespace-module-instances m-ns_1) phase_28 at-phase_0)" "(hash-set! at-phase_0 name_28(make-module-instance m-ns_1 #f))" " m-ns_1))))))))))))))" "(define-values" @@ -13541,17 +13552,17 @@ static const char *startup_source = "(let-values()" "(let-values(((m-ns_2)(module-instance-namespace prior-mi_0)))" "(let-values(((states_0)(module-instance-phase-level-to-state prior-mi_0)))" -"(let-values(((phase_30)(namespace-phase ns_21)))" -"(let-values(((visit?_0)(eq? 'started(small-hash-ref states_0(add1 phase_30) #f))))" -"(let-values(((run?_0)(eq? 'started(small-hash-ref states_0 phase_30 #f))))" -"(let-values(((at-phase_1)(hash-ref(namespace-module-instances ns_21) phase_30)))" +"(let-values(((phase_29)(namespace-phase ns_21)))" +"(let-values(((visit?_0)(eq? 'started(small-hash-ref states_0(add1 phase_29) #f))))" +"(let-values(((run?_0)(eq? 'started(small-hash-ref states_0 phase_29 #f))))" +"(let-values(((at-phase_1)(hash-ref(namespace-module-instances ns_21) phase_29)))" "(begin" "(hash-set! at-phase_1 mod-name_4(make-module-instance m-ns_2 m_2))" "(if visit?_0" "(let-values()" "(let-values(((ns164_0) ns_21)" "((temp165_0)(namespace-mpi m-ns_2))" -"((phase166_0) phase_30))" +"((phase166_0) phase_29))" "(namespace-module-visit!104.1" " unsafe-undefined" " ns164_0" @@ -13562,7 +13573,7 @@ static const char *startup_source = "(let-values()" "(let-values(((ns167_0) ns_21)" "((temp168_0)(namespace-mpi m-ns_2))" -"((phase169_0) phase_30))" +"((phase169_0) phase_29))" "(namespace-module-instantiate!96.1" " #t" " unsafe-undefined" @@ -13826,10 +13837,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_31)" +"(lambda(ns_27 mod-name_7 phase_30)" "(begin" "(let-values(((mi_5)" -"(let-values(((ns194_0) ns_27)((mod-name195_0) mod-name_7)((phase196_0) phase_31))" +"(let-values(((ns194_0) ns_27)((mod-name195_0) mod-name_7)((phase196_0) phase_30))" "(namespace->module-instance70.1 #f #f unsafe-undefined ns194_0 mod-name195_0 phase196_0))))" "(set-module-instance-attached?! mi_5 #t)))))" "(define-values" @@ -14016,7 +14027,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_59)))" -"((letrec-values(((for-loop_84)" +"((letrec-values(((for-loop_86)" "(lambda(fold-var_43 lst_60)" "(begin" " 'for-loop" @@ -14046,7 +14057,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_61)))" -"((letrec-values(((for-loop_85)" +"((letrec-values(((for-loop_87)" "(lambda(fold-var_47" " lst_62)" "(begin" @@ -14076,22 +14087,22 @@ static const char *startup_source = " fold-var_50)))))" "(if(not" " #f)" -"(for-loop_85" +"(for-loop_87" " fold-var_48" " rest_28)" " fold-var_48)))" " fold-var_47)))))" -" for-loop_85)" +" for-loop_87)" " null" " lst_61))))))" " fold-var_45))))" "(values" " fold-var_46)))))" "(if(not #f)" -"(for-loop_84 fold-var_44 rest_27)" +"(for-loop_86 fold-var_44 rest_27)" " fold-var_44)))" " fold-var_43)))))" -" for-loop_84)" +" for-loop_86)" " null" " lst_59)))))))" "(let-values(((lst_63)(module-instance-shifted-requires mi_7)))" @@ -14099,7 +14110,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_63)))" -"((letrec-values(((for-loop_86)" +"((letrec-values(((for-loop_88)" "(lambda(lst_64)" "(begin" " 'for-loop" @@ -14127,7 +14138,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_65)))" -"((letrec-values(((for-loop_87)" +"((letrec-values(((for-loop_89)" "(lambda(lst_66)" "(begin" " 'for-loop" @@ -14176,20 +14187,20 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_87" +"(for-loop_89" " rest_30)" "(values))))" "(values))))))" -" for-loop_87)" +" for-loop_89)" " lst_65)))" "(void))))" "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_86 rest_29)" +"(for-loop_88 rest_29)" "(values))))" "(values))))))" -" for-loop_86)" +" for-loop_88)" " lst_63)))" "(void)" "(if(label-phase? instance-phase_4)" @@ -14203,7 +14214,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_88)" +"((letrec-values(((for-loop_90)" "(lambda(pos_11)" "(begin" " 'for-loop" @@ -14215,14 +14226,14 @@ static const char *startup_source = "(let-values()" "(begin" "(let-values()" -"(let-values(((phase_32)" +"(let-values(((phase_31)" "(phase+" " phase-level_13" " phase-shift_3)))" "(if(if(not" " skip-run?_1)" "(eqv?" -" phase_32" +" phase_31" " run-phase_2)" " #f)" "(let-values()" @@ -14253,7 +14264,7 @@ static const char *startup_source = "(let-values(((p-ns_2)" "(namespace->namespace-at-phase" " m-ns_5" -" phase_32)))" +" phase_31)))" "(let-values(((insp_5)" "(module-inspector" " m_9)))" @@ -14299,7 +14310,7 @@ static const char *startup_source = "(hash-update!" "(namespace-available-module-instances" " ns_33)" -" phase_32" +" phase_31" "(lambda(l_47)" "(cons" " mi_7" @@ -14314,10 +14325,10 @@ static const char *startup_source = "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_88(+ pos_11 inc_3))" +"(for-loop_90(+ pos_11 inc_3))" "(values))))" "(values))))))" -" for-loop_88)" +" for-loop_90)" " start_13)))" "(void))))" "(if otherwise-available?_1" @@ -14382,7 +14393,7 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()(check-list lst_67)))" -"((letrec-values(((for-loop_89)" +"((letrec-values(((for-loop_91)" "(lambda(lst_68)" "(begin" " 'for-loop" @@ -14419,10 +14430,10 @@ static const char *startup_source = "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_89 rest_31)" +"(for-loop_91 rest_31)" "(values))))" "(values))))))" -" for-loop_89)" +" for-loop_91)" " lst_67)))" "(void)" "(loop_79)))))))))" @@ -14491,7 +14502,7 @@ static const char *startup_source = "(let-values(((lst_69) requires_1))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_69)))" -"((letrec-values(((for-loop_90)" +"((letrec-values(((for-loop_92)" "(lambda(fold-var_51 lst_70)" "(begin" " 'for-loop" @@ -14512,7 +14523,7 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()(check-list lst_71)))" -"((letrec-values(((for-loop_91)" +"((letrec-values(((for-loop_93)" "(lambda(fold-var_55" " lst_72)" "(begin" @@ -14537,19 +14548,19 @@ static const char *startup_source = "(values" " fold-var_58)))))" "(if(not #f)" -"(for-loop_91" +"(for-loop_93" " fold-var_56" " rest_33)" " fold-var_56)))" " fold-var_55)))))" -" for-loop_91)" +" for-loop_93)" " null" " lst_71))))))" " fold-var_53))))" "(values fold-var_54)))))" -"(if(not #f)(for-loop_90 fold-var_52 rest_32) fold-var_52)))" +"(if(not #f)(for-loop_92 fold-var_52 rest_32) fold-var_52)))" " fold-var_51)))))" -" for-loop_90)" +" for-loop_92)" " null" " lst_69)))))))" "(define-values" @@ -14562,12 +14573,12 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-hash ht_71)))" -"((letrec-values(((for-loop_92)" +"((letrec-values(((for-loop_94)" "(lambda(table_103 i_89)" "(begin" " 'for-loop" "(if i_89" -"(let-values(((phase_33 at-phase_6)" +"(let-values(((phase_32 at-phase_6)" "(hash-iterate-key+value ht_71 i_89)))" "(let-values(((table_104)" "(let-values(((table_105) table_103))" @@ -14576,7 +14587,7 @@ static const char *startup_source = "(let-values(((key_40 val_33)" "(let-values()" "(values" -" phase_33" +" phase_32" "(let-values(((ht_72)" " at-phase_6))" "(begin" @@ -14586,7 +14597,7 @@ static const char *startup_source = "(let-values()" "(check-in-hash" " ht_72)))" -"((letrec-values(((for-loop_93)" +"((letrec-values(((for-loop_95)" "(lambda(table_107" " i_90)" "(begin" @@ -14621,14 +14632,14 @@ static const char *startup_source = " table_110)))))" "(if(not" " #f)" -"(for-loop_93" +"(for-loop_95" " table_108" "(hash-iterate-next" " ht_72" " i_90))" " table_108)))" " table_107)))))" -" for-loop_93)" +" for-loop_95)" " '#hash()" "(hash-iterate-first" " ht_72))))))))" @@ -14638,18 +14649,18 @@ static const char *startup_source = " val_33)))))" "(values table_106)))))" "(if(not #f)" -"(for-loop_92 table_104(hash-iterate-next ht_71 i_89))" +"(for-loop_94 table_104(hash-iterate-next ht_71 i_89))" " table_104)))" " table_103)))))" -" for-loop_92)" +" for-loop_94)" " '#hasheqv()" "(hash-iterate-first ht_71))))))" "(begin(set-module-access! m_10 access_0) access_0)))))" "(define-values" "(binding->module-instance)" -"(lambda(b_42 ns_42 phase_34 id_11)" +"(lambda(b_42 ns_42 phase_33 id_11)" "(begin" -"(let-values(((at-phase_7)(phase- phase_34(module-binding-phase b_42))))" +"(let-values(((at-phase_7)(phase- phase_33(module-binding-phase b_42))))" "(let-values(((mi_11)" "(let-values(((ns1_0) ns_42)" "((temp2_0)(1/module-path-index-resolve(module-binding-module b_42)))" @@ -14687,7 +14698,7 @@ static const char *startup_source = " \" definition phase: ~a\\n\"" " \" for identifier: ~s\")" "(module-binding-module b_42)" -" phase_34" +" phase_33" "(module-binding-phase b_42)" " id_11)))" " mi_11))))))" @@ -14749,14 +14760,14 @@ static const char *startup_source = "(let-values() #f))))))" "(define-values" "(resolve+shift/extra-inspector)" -"(lambda(id_13 phase_35 ns_43)" +"(lambda(id_13 phase_34 ns_43)" "(begin" "((letrec-values(((loop_80)" "(lambda(id_14 in-s_1)" "(begin" " 'loop" "(let-values(((b_59)" -"(let-values(((id1_2) id_14)((phase2_0) phase_35)((temp3_0) #t))" +"(let-values(((id1_2) id_14)((phase2_0) phase_34)((temp3_0) #t))" "(resolve+shift28.1 #f #f null temp3_0 #f id1_2 phase2_0))))" "(let-values(((c1_24)(binding-free=id b_59)))" "(if c1_24" @@ -14772,7 +14783,7 @@ static const char *startup_source = "(binding->module-instance" " b_59" " ns_43" -" phase_35" +" phase_34" " id_14)))" " (check-access b_59 mi_14 id_14 in-s_1 \"provided binding\")))" "(void))" @@ -14871,7 +14882,7 @@ static const char *startup_source = "(1/make-set!-transformer)" "(let-values()" "(let-values(((struct:set!-transformer_0 set!-transformer1_0 set!-transformer?_0 set!-transformer-proc_0)" -"(let-values(((struct:_42 make-_42 ?_42 -ref_42 -set!_42)" +"(let-values(((struct:_41 make-_41 ?_41 -ref_41 -set!_41)" "(let-values()" "(let-values()" "(make-struct-type" @@ -14886,7 +14897,7 @@ static const char *startup_source = " '(0)" " #f" " 'set!-transformer)))))" -"(values struct:_42 make-_42 ?_42(make-struct-field-accessor -ref_42 0 'proc)))))" +"(values struct:_41 make-_41 ?_41(make-struct-field-accessor -ref_41 0 'proc)))))" "(lambda(proc_3)" "(begin" " 'make-set!-transformer" @@ -14987,13 +14998,13 @@ static const char *startup_source = " 'add-binding!17" "(let-values(((id_15) id14_0))" "(let-values(((binding_8) binding15_0))" -"(let-values(((phase_36) phase16_0))" +"(let-values(((phase_35) phase16_0))" "(let-values(((in-s_2) in10_0))" "(let-values(((just-for-nominal?_2) just-for-nominal?11_0))" "(let-values()" "(begin" "(check-id-taint id_15 in-s_2)" -"(let-values(((temp55_0)(syntax-scope-set id_15 phase_36))" +"(let-values(((temp55_0)(syntax-scope-set id_15 phase_35))" "((temp56_1)(syntax-e$1 id_15))" "((binding57_0) binding_8)" "((just-for-nominal?58_0) just-for-nominal?_2))" @@ -15005,7 +15016,7 @@ static const char *startup_source = " 'add-bulk-binding!27" "(let-values(((s_70) s24_0))" "(let-values(((binding_9) binding25_0))" -"(let-values(((phase_37) phase26_1))" +"(let-values(((phase_36) phase26_1))" "(let-values(((in-s_3) in20_0))" "(let-values(((shadow-except_2) shadow-except21_0))" "(let-values()" @@ -15013,7 +15024,7 @@ static const char *startup_source = "(if(syntax-tainted?$1 s_70)" " (let-values () (raise-syntax-error$1 #f \"cannot bind from tainted syntax\" in-s_3 s_70))" "(void))" -"(let-values(((temp59_1)(syntax-scope-set s_70 phase_37))" +"(let-values(((temp59_1)(syntax-scope-set s_70 phase_36))" "((binding60_0) binding_9)" "((shadow-except61_0) shadow-except_2))" "(add-bulk-binding-in-scopes!27.1 shadow-except61_0 temp59_1 binding60_0))))))))))))" @@ -15023,7 +15034,7 @@ static const char *startup_source = "(begin" " 'add-local-binding!37" "(let-values(((id_16) id34_0))" -"(let-values(((phase_38) phase35_0))" +"(let-values(((phase_37) phase35_0))" "(let-values(((counter_1) counter36_0))" "(let-values(((frame-id_5) frame-id30_0))" "(let-values(((in-s_4) in31_0))" @@ -15033,7 +15044,7 @@ static const char *startup_source = "(let-values(((key_43)" " (string->uninterned-symbol (format \"~a_~a\" (syntax-e$1 id_16) (unbox counter_1)))))" "(begin" -"(let-values(((temp62_1)(syntax-scope-set id_16 phase_38))" +"(let-values(((temp62_1)(syntax-scope-set id_16 phase_37))" "((temp63_1)(syntax-e$1 id_16))" "((temp64_1)" "(let-values(((key65_0) key_43)((frame-id66_0) frame-id_5))" @@ -15056,7 +15067,7 @@ static const char *startup_source = "(let-values(((env_1) env45_0))" "(let-values(((lift-envs_0) lift-envs46_0))" "(let-values(((ns_44) ns47_0))" -"(let-values(((phase_39) phase48_0))" +"(let-values(((phase_38) phase48_0))" "(let-values(((id_18) id49_0))" "(let-values(((in-s_6) in40_0))" "(let-values(((out-of-context-as-variable?_0) out-of-context-as-variable?41_0))" @@ -15066,7 +15077,7 @@ static const char *startup_source = "(let-values(((top-level?_0)(top-level-module-path-index?(module-binding-module b_60))))" "(let-values(((mi_15)" "(if(not top-level?_0)" -"(binding->module-instance b_60 ns_44 phase_39 id_18)" +"(binding->module-instance b_60 ns_44 phase_38 id_18)" " #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)))" @@ -15109,8 +15120,8 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_73)))" -"((letrec-values(((for-loop_94)" -"(lambda(result_58 lst_74)" +"((letrec-values(((for-loop_96)" +"(lambda(result_59 lst_74)" "(begin" " 'for-loop" "(if(pair? lst_74)" @@ -15118,10 +15129,10 @@ static const char *startup_source = "(unsafe-car lst_74))" "((rest_34)" "(unsafe-cdr lst_74)))" -"(let-values(((result_59)" -"(let-values()" "(let-values(((result_60)" "(let-values()" +"(let-values(((result_61)" +"(let-values()" "(let-values()" "(hash-ref" "(unbox" @@ -15130,16 +15141,16 @@ static const char *startup_source = " b_60)" " #f)))))" "(values" -" result_60)))))" +" result_61)))))" "(if(if(not" -"((lambda x_40 result_59)" +"((lambda x_41 result_60)" " lift-env_0))" "(not #f)" " #f)" -"(for-loop_94 result_59 rest_34)" -" result_59)))" -" result_58)))))" -" for-loop_94)" +"(for-loop_96 result_60 rest_34)" +" result_60)))" +" result_59)))))" +" for-loop_96)" " #f" " lst_73)))))" "(if or-part_103" @@ -15162,12 +15173,12 @@ static const char *startup_source = "(define-values(cons-ish)(lambda(a_37 b_61)(begin(if(null? b_61) a_37(cons a_37 b_61)))))" "(define-values" "(free-id-set)" -"(lambda(phase_40 ids_0)" +"(lambda(phase_39 ids_0)" "(begin" "(let-values(((lst_75) ids_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_75)))" -"((letrec-values(((for-loop_95)" +"((letrec-values(((for-loop_97)" "(lambda(ht_73 lst_76)" "(begin" " 'for-loop" @@ -15180,7 +15191,7 @@ static const char *startup_source = "(let-values(((sym_24)" "(identifier-binding-symbol$1" " id_10" -" phase_40)))" +" phase_39)))" "(hash-set" " ht_75" " sym_24" @@ -15188,45 +15199,45 @@ static const char *startup_source = " id_10" "(hash-ref ht_75 sym_24 null)))))))" "(values ht_76)))))" -"(if(not #f)(for-loop_95 ht_74 rest_35) ht_74)))" +"(if(not #f)(for-loop_97 ht_74 rest_35) ht_74)))" " ht_73)))))" -" for-loop_95)" +" for-loop_97)" " '#hasheq()" " lst_75))))))" "(define-values(empty-free-id-set)(free-id-set 0 null))" "(define-values(free-id-set-empty?)(lambda(fs_0)(begin(eq? fs_0 empty-free-id-set))))" "(define-values" "(free-id-set-member?)" -"(lambda(fs_1 phase_41 given-id_0)" +"(lambda(fs_1 phase_40 given-id_0)" "(begin" "(if(free-id-set-empty? fs_1)" " #f" -"(let-values(((lst_77)(hash-ref fs_1(identifier-binding-symbol$1 given-id_0 phase_41) null)))" +"(let-values(((lst_77)(hash-ref fs_1(identifier-binding-symbol$1 given-id_0 phase_40) null)))" "(begin" "(void)" -"((letrec-values(((for-loop_96)" +"((letrec-values(((for-loop_98)" "(lambda(result_3 lst_78)" "(begin" " 'for-loop" "(if(not(null? lst_78))" "(let-values(((id_2)(if(pair? lst_78)(car lst_78) lst_78))" "((rest_36)(if(pair? lst_78)(cdr lst_78) null)))" -"(let-values(((result_61)" -"(let-values()" "(let-values(((result_62)" "(let-values()" +"(let-values(((result_63)" +"(let-values()" "(let-values()" "(free-identifier=?$1" " id_2" " given-id_0" -" phase_41" -" phase_41)))))" -"(values result_62)))))" -"(if(if(not((lambda x_41 result_61) id_2))(not #f) #f)" -"(for-loop_96 result_61 rest_36)" -" result_61)))" +" phase_40" +" phase_40)))))" +"(values result_63)))))" +"(if(if(not((lambda x_42 result_62) id_2))(not #f) #f)" +"(for-loop_98 result_62 rest_36)" +" result_62)))" " result_3)))))" -" for-loop_96)" +" for-loop_98)" " #f" " lst_77)))))))" "(define-values" @@ -15238,7 +15249,6 @@ static const char *startup_source = " expand-context/outer?" " expand-context/outer-context" " expand-context/outer-env" -" expand-context/outer-post-expansion-scope-action" " expand-context/outer-scopes" " expand-context/outer-def-ctx-scopes" " expand-context/outer-binding-layer" @@ -15254,13 +15264,13 @@ static const char *startup_source = "(make-struct-type" " 'expand-context" " struct:root-expand-context/outer" -" 12" +" 11" " 0" " #f" "(list(cons prop:authentic #t))" "(current-inspector)" " #f" -" '(0 1 2 3 4 5 6 7 8 9 10 11)" +" '(0 1 2 3 4 5 6 7 8 9 10)" " #f" " 'expand-context/outer)))))" "(values" @@ -15269,16 +15279,15 @@ static const char *startup_source = " ?_36" "(make-struct-field-accessor -ref_36 0 'context)" "(make-struct-field-accessor -ref_36 1 'env)" -"(make-struct-field-accessor -ref_36 2 'post-expansion-scope-action)" -"(make-struct-field-accessor -ref_36 3 'scopes)" -"(make-struct-field-accessor -ref_36 4 'def-ctx-scopes)" -"(make-struct-field-accessor -ref_36 5 'binding-layer)" -"(make-struct-field-accessor -ref_36 6 'reference-records)" -"(make-struct-field-accessor -ref_36 7 'only-immediate?)" -"(make-struct-field-accessor -ref_36 8 'need-eventually-defined)" -"(make-struct-field-accessor -ref_36 9 'current-introduction-scopes)" -"(make-struct-field-accessor -ref_36 10 'current-use-scopes)" -"(make-struct-field-accessor -ref_36 11 'name))))" +"(make-struct-field-accessor -ref_36 2 'scopes)" +"(make-struct-field-accessor -ref_36 3 'def-ctx-scopes)" +"(make-struct-field-accessor -ref_36 4 'binding-layer)" +"(make-struct-field-accessor -ref_36 5 'reference-records)" +"(make-struct-field-accessor -ref_36 6 'only-immediate?)" +"(make-struct-field-accessor -ref_36 7 'need-eventually-defined)" +"(make-struct-field-accessor -ref_36 8 'current-introduction-scopes)" +"(make-struct-field-accessor -ref_36 9 'current-use-scopes)" +"(make-struct-field-accessor -ref_36 10 'name))))" "(define-values" "(struct:expand-context/inner" " expand-context/inner2.1" @@ -15302,7 +15311,7 @@ static const char *startup_source = " expand-context/inner-observer" " expand-context/inner-for-serializable?" " expand-context/inner-should-not-encounter-macros?)" -"(let-values(((struct:_43 make-_43 ?_43 -ref_43 -set!_43)" +"(let-values(((struct:_42 make-_42 ?_42 -ref_42 -set!_42)" "(let-values()" "(let-values()" "(make-struct-type" @@ -15318,34 +15327,33 @@ static const char *startup_source = " #f" " 'expand-context/inner)))))" "(values" -" struct:_43" -" make-_43" -" ?_43" -"(make-struct-field-accessor -ref_43 0 'to-parsed?)" -"(make-struct-field-accessor -ref_43 1 'phase)" -"(make-struct-field-accessor -ref_43 2 'namespace)" -"(make-struct-field-accessor -ref_43 3 'just-once?)" -"(make-struct-field-accessor -ref_43 4 'module-begin-k)" -"(make-struct-field-accessor -ref_43 5 'allow-unbound?)" -"(make-struct-field-accessor -ref_43 6 'in-local-expand?)" -"(make-struct-field-accessor -ref_43 7 'keep-#%expression?)" -"(make-struct-field-accessor -ref_43 8 'stops)" -"(make-struct-field-accessor -ref_43 9 'declared-submodule-names)" -"(make-struct-field-accessor -ref_43 10 'lifts)" -"(make-struct-field-accessor -ref_43 11 'lift-envs)" -"(make-struct-field-accessor -ref_43 12 'module-lifts)" -"(make-struct-field-accessor -ref_43 13 'require-lifts)" -"(make-struct-field-accessor -ref_43 14 'to-module-lifts)" -"(make-struct-field-accessor -ref_43 15 'requires+provides)" -"(make-struct-field-accessor -ref_43 16 'observer)" -"(make-struct-field-accessor -ref_43 17 'for-serializable?)" -"(make-struct-field-accessor -ref_43 18 'should-not-encounter-macros?))))" +" struct:_42" +" make-_42" +" ?_42" +"(make-struct-field-accessor -ref_42 0 'to-parsed?)" +"(make-struct-field-accessor -ref_42 1 'phase)" +"(make-struct-field-accessor -ref_42 2 'namespace)" +"(make-struct-field-accessor -ref_42 3 'just-once?)" +"(make-struct-field-accessor -ref_42 4 'module-begin-k)" +"(make-struct-field-accessor -ref_42 5 'allow-unbound?)" +"(make-struct-field-accessor -ref_42 6 'in-local-expand?)" +"(make-struct-field-accessor -ref_42 7 'keep-#%expression?)" +"(make-struct-field-accessor -ref_42 8 'stops)" +"(make-struct-field-accessor -ref_42 9 'declared-submodule-names)" +"(make-struct-field-accessor -ref_42 10 'lifts)" +"(make-struct-field-accessor -ref_42 11 'lift-envs)" +"(make-struct-field-accessor -ref_42 12 'module-lifts)" +"(make-struct-field-accessor -ref_42 13 'require-lifts)" +"(make-struct-field-accessor -ref_42 14 'to-module-lifts)" +"(make-struct-field-accessor -ref_42 15 'requires+provides)" +"(make-struct-field-accessor -ref_42 16 'observer)" +"(make-struct-field-accessor -ref_42 17 'for-serializable?)" +"(make-struct-field-accessor -ref_42 18 'should-not-encounter-macros?))))" "(define-values" "(expand-context/make)" "(lambda(self-mpi_2" " module-scopes_2" -" post-expansion-scope_2" -" post-expansion-shifts_1" +" post-expansion_1" " top-level-bind-scope_1" " all-scopes-stx_2" " use-site-scopes_1" @@ -15355,10 +15363,9 @@ static const char *startup_source = " lift-key_1" " to-parsed?_0" " context_0" -" phase_42" +" phase_41" " namespace_0" " env_2" -" post-expansion-scope-action_0" " scopes_18" " def-ctx-scopes_0" " binding-layer_0" @@ -15395,7 +15402,7 @@ static const char *startup_source = " counter_2" " lift-key_1" " to-parsed?_0" -" phase_42" +" phase_41" " namespace_0" " just-once?_0" " module-begin-k_0" @@ -15413,13 +15420,11 @@ static const char *startup_source = " observer_0" " for-serializable?_0" " should-not-encounter-macros?_0)" -" post-expansion-scope_2" -" post-expansion-shifts_1" +" post-expansion_1" " use-site-scopes_1" " frame-id_6" " context_0" " env_2" -" post-expansion-scope-action_0" " scopes_18" " def-ctx-scopes_0" " binding-layer_0" @@ -15431,83 +15436,80 @@ static const char *startup_source = " name_36))))" "(define-values(expand-context-context)(lambda(v_100)(begin(expand-context/outer-context v_100))))" "(define-values(expand-context-env)(lambda(v_101)(begin(expand-context/outer-env v_101))))" -"(define-values" -"(expand-context-post-expansion-scope-action)" -"(lambda(v_102)(begin(expand-context/outer-post-expansion-scope-action v_102))))" -"(define-values(expand-context-scopes)(lambda(v_103)(begin(expand-context/outer-scopes v_103))))" -"(define-values(expand-context-def-ctx-scopes)(lambda(v_104)(begin(expand-context/outer-def-ctx-scopes v_104))))" -"(define-values(expand-context-binding-layer)(lambda(v_105)(begin(expand-context/outer-binding-layer v_105))))" +"(define-values(expand-context-scopes)(lambda(v_102)(begin(expand-context/outer-scopes v_102))))" +"(define-values(expand-context-def-ctx-scopes)(lambda(v_103)(begin(expand-context/outer-def-ctx-scopes v_103))))" +"(define-values(expand-context-binding-layer)(lambda(v_104)(begin(expand-context/outer-binding-layer v_104))))" "(define-values" "(expand-context-reference-records)" -"(lambda(v_106)(begin(expand-context/outer-reference-records v_106))))" -"(define-values(expand-context-only-immediate?)(lambda(v_107)(begin(expand-context/outer-only-immediate? v_107))))" +"(lambda(v_105)(begin(expand-context/outer-reference-records v_105))))" +"(define-values(expand-context-only-immediate?)(lambda(v_106)(begin(expand-context/outer-only-immediate? v_106))))" "(define-values" "(expand-context-need-eventually-defined)" -"(lambda(v_108)(begin(expand-context/outer-need-eventually-defined v_108))))" +"(lambda(v_107)(begin(expand-context/outer-need-eventually-defined v_107))))" "(define-values" "(expand-context-current-introduction-scopes)" -"(lambda(v_109)(begin(expand-context/outer-current-introduction-scopes v_109))))" +"(lambda(v_108)(begin(expand-context/outer-current-introduction-scopes v_108))))" "(define-values" "(expand-context-current-use-scopes)" -"(lambda(v_110)(begin(expand-context/outer-current-use-scopes v_110))))" -"(define-values(expand-context-name)(lambda(v_111)(begin(expand-context/outer-name v_111))))" +"(lambda(v_109)(begin(expand-context/outer-current-use-scopes v_109))))" +"(define-values(expand-context-name)(lambda(v_110)(begin(expand-context/outer-name v_110))))" "(define-values" "(expand-context-to-parsed?)" -"(lambda(v_112)(begin(expand-context/inner-to-parsed?(root-expand-context/outer-inner v_112)))))" +"(lambda(v_111)(begin(expand-context/inner-to-parsed?(root-expand-context/outer-inner v_111)))))" "(define-values" "(expand-context-phase)" -"(lambda(v_113)(begin(expand-context/inner-phase(root-expand-context/outer-inner v_113)))))" +"(lambda(v_112)(begin(expand-context/inner-phase(root-expand-context/outer-inner v_112)))))" "(define-values" "(expand-context-namespace)" -"(lambda(v_114)(begin(expand-context/inner-namespace(root-expand-context/outer-inner v_114)))))" +"(lambda(v_113)(begin(expand-context/inner-namespace(root-expand-context/outer-inner v_113)))))" "(define-values" "(expand-context-just-once?)" -"(lambda(v_115)(begin(expand-context/inner-just-once?(root-expand-context/outer-inner v_115)))))" +"(lambda(v_114)(begin(expand-context/inner-just-once?(root-expand-context/outer-inner v_114)))))" "(define-values" "(expand-context-module-begin-k)" -"(lambda(v_116)(begin(expand-context/inner-module-begin-k(root-expand-context/outer-inner v_116)))))" +"(lambda(v_115)(begin(expand-context/inner-module-begin-k(root-expand-context/outer-inner v_115)))))" "(define-values" "(expand-context-allow-unbound?)" -"(lambda(v_117)(begin(expand-context/inner-allow-unbound?(root-expand-context/outer-inner v_117)))))" +"(lambda(v_116)(begin(expand-context/inner-allow-unbound?(root-expand-context/outer-inner v_116)))))" "(define-values" "(expand-context-in-local-expand?)" -"(lambda(v_118)(begin(expand-context/inner-in-local-expand?(root-expand-context/outer-inner v_118)))))" +"(lambda(v_117)(begin(expand-context/inner-in-local-expand?(root-expand-context/outer-inner v_117)))))" "(define-values" "(expand-context-keep-#%expression?)" -"(lambda(v_119)(begin(expand-context/inner-keep-#%expression?(root-expand-context/outer-inner v_119)))))" +"(lambda(v_118)(begin(expand-context/inner-keep-#%expression?(root-expand-context/outer-inner v_118)))))" "(define-values" "(expand-context-stops)" -"(lambda(v_120)(begin(expand-context/inner-stops(root-expand-context/outer-inner v_120)))))" +"(lambda(v_119)(begin(expand-context/inner-stops(root-expand-context/outer-inner v_119)))))" "(define-values" "(expand-context-declared-submodule-names)" -"(lambda(v_121)(begin(expand-context/inner-declared-submodule-names(root-expand-context/outer-inner v_121)))))" +"(lambda(v_120)(begin(expand-context/inner-declared-submodule-names(root-expand-context/outer-inner v_120)))))" "(define-values" "(expand-context-lifts)" -"(lambda(v_122)(begin(expand-context/inner-lifts(root-expand-context/outer-inner v_122)))))" +"(lambda(v_121)(begin(expand-context/inner-lifts(root-expand-context/outer-inner v_121)))))" "(define-values" "(expand-context-lift-envs)" -"(lambda(v_123)(begin(expand-context/inner-lift-envs(root-expand-context/outer-inner v_123)))))" +"(lambda(v_122)(begin(expand-context/inner-lift-envs(root-expand-context/outer-inner v_122)))))" "(define-values" "(expand-context-module-lifts)" -"(lambda(v_124)(begin(expand-context/inner-module-lifts(root-expand-context/outer-inner v_124)))))" +"(lambda(v_123)(begin(expand-context/inner-module-lifts(root-expand-context/outer-inner v_123)))))" "(define-values" "(expand-context-require-lifts)" -"(lambda(v_125)(begin(expand-context/inner-require-lifts(root-expand-context/outer-inner v_125)))))" +"(lambda(v_124)(begin(expand-context/inner-require-lifts(root-expand-context/outer-inner v_124)))))" "(define-values" "(expand-context-to-module-lifts)" -"(lambda(v_126)(begin(expand-context/inner-to-module-lifts(root-expand-context/outer-inner v_126)))))" +"(lambda(v_125)(begin(expand-context/inner-to-module-lifts(root-expand-context/outer-inner v_125)))))" "(define-values" "(expand-context-requires+provides)" -"(lambda(v_127)(begin(expand-context/inner-requires+provides(root-expand-context/outer-inner v_127)))))" +"(lambda(v_126)(begin(expand-context/inner-requires+provides(root-expand-context/outer-inner v_126)))))" "(define-values" "(expand-context-observer)" -"(lambda(v_128)(begin(expand-context/inner-observer(root-expand-context/outer-inner v_128)))))" +"(lambda(v_127)(begin(expand-context/inner-observer(root-expand-context/outer-inner v_127)))))" "(define-values" "(expand-context-for-serializable?)" -"(lambda(v_129)(begin(expand-context/inner-for-serializable?(root-expand-context/outer-inner v_129)))))" +"(lambda(v_128)(begin(expand-context/inner-for-serializable?(root-expand-context/outer-inner v_128)))))" "(define-values" "(expand-context-should-not-encounter-macros?)" -"(lambda(v_130)(begin(expand-context/inner-should-not-encounter-macros?(root-expand-context/outer-inner v_130)))))" +"(lambda(v_129)(begin(expand-context/inner-should-not-encounter-macros?(root-expand-context/outer-inner v_129)))))" "(define-values" "(make-expand-context10.1)" "(lambda(for-serializable?4_0 observer5_0 to-parsed?3_0 ns9_0)" @@ -15522,8 +15524,7 @@ static const char *startup_source = "(expand-context/make" "(root-expand-context-self-mpi root-ctx_1)" "(root-expand-context-module-scopes root-ctx_1)" -"(root-expand-context-post-expansion-scope root-ctx_1)" -"(root-expand-context-post-expansion-shifts root-ctx_1)" +"(root-expand-context-post-expansion root-ctx_1)" "(root-expand-context-top-level-bind-scope root-ctx_1)" "(root-expand-context-all-scopes-stx root-ctx_1)" "(root-expand-context-use-site-scopes root-ctx_1)" @@ -15536,7 +15537,6 @@ static const char *startup_source = "(namespace-phase ns_45)" " ns_45" " empty-env" -" push-scope" " null" " #f" "(root-expand-context-frame-id root-ctx_1)" @@ -15566,72 +15566,69 @@ static const char *startup_source = "(copy-root-expand-context)" "(lambda(ctx_1 root-ctx_2)" "(begin" -"(let-values(((v_131) ctx_1))" -"(let-values(((the-struct_41) v_131))" -"(if(expand-context/outer? the-struct_41)" -"(let-values(((post-expansion-scope27_0)(root-expand-context-post-expansion-scope root-ctx_2))" -"((post-expansion-shifts28_0)(root-expand-context-post-expansion-shifts 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_131)))" -"(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))" -"((top-level-bind-scope35_0)" +"(let-values(((v_130) ctx_1))" +"(let-values(((the-struct_14) v_130))" +"(if(expand-context/outer? the-struct_14)" +"(let-values(((post-expansion27_0)(root-expand-context-post-expansion root-ctx_2))" +"((use-site-scopes28_0)(root-expand-context-use-site-scopes root-ctx_2))" +"((frame-id29_0)(root-expand-context-frame-id root-ctx_2))" +"((binding-layer30_0)(root-expand-context-frame-id root-ctx_2))" +"((inner31_0)" +"(let-values(((the-struct_41)(root-expand-context/outer-inner v_130)))" +"(if(expand-context/inner? the-struct_41)" +"(let-values(((self-mpi32_0)(root-expand-context-self-mpi root-ctx_2))" +"((module-scopes33_0)(root-expand-context-module-scopes root-ctx_2))" +"((top-level-bind-scope34_0)" "(root-expand-context-top-level-bind-scope root-ctx_2))" -"((all-scopes-stx36_0)(root-expand-context-all-scopes-stx root-ctx_2))" -"((defined-syms37_0)(root-expand-context-defined-syms root-ctx_2))" -"((counter38_0)(root-expand-context-counter root-ctx_2))" -"((lift-key39_0)(root-expand-context-lift-key root-ctx_2)))" +"((all-scopes-stx35_0)(root-expand-context-all-scopes-stx root-ctx_2))" +"((defined-syms36_0)(root-expand-context-defined-syms root-ctx_2))" +"((counter37_0)(root-expand-context-counter root-ctx_2))" +"((lift-key38_0)(root-expand-context-lift-key root-ctx_2)))" "(expand-context/inner2.1" -" self-mpi33_0" -" module-scopes34_0" -" top-level-bind-scope35_0" -" all-scopes-stx36_0" -" defined-syms37_0" -" counter38_0" -" lift-key39_0" -"(expand-context/inner-to-parsed? the-struct_42)" -"(expand-context/inner-phase the-struct_42)" -"(expand-context/inner-namespace the-struct_42)" -"(expand-context/inner-just-once? the-struct_42)" -"(expand-context/inner-module-begin-k the-struct_42)" -"(expand-context/inner-allow-unbound? the-struct_42)" -"(expand-context/inner-in-local-expand? the-struct_42)" -"(expand-context/inner-keep-#%expression? the-struct_42)" -"(expand-context/inner-stops the-struct_42)" -"(expand-context/inner-declared-submodule-names the-struct_42)" -"(expand-context/inner-lifts the-struct_42)" -"(expand-context/inner-lift-envs the-struct_42)" -"(expand-context/inner-module-lifts the-struct_42)" -"(expand-context/inner-require-lifts the-struct_42)" -"(expand-context/inner-to-module-lifts the-struct_42)" -"(expand-context/inner-requires+provides the-struct_42)" -"(expand-context/inner-observer the-struct_42)" -"(expand-context/inner-for-serializable? the-struct_42)" -"(expand-context/inner-should-not-encounter-macros? the-struct_42)))" -" (raise-argument-error 'struct-copy \"expand-context/inner?\" the-struct_42)))))" +" self-mpi32_0" +" module-scopes33_0" +" top-level-bind-scope34_0" +" all-scopes-stx35_0" +" defined-syms36_0" +" counter37_0" +" lift-key38_0" +"(expand-context/inner-to-parsed? the-struct_41)" +"(expand-context/inner-phase the-struct_41)" +"(expand-context/inner-namespace the-struct_41)" +"(expand-context/inner-just-once? the-struct_41)" +"(expand-context/inner-module-begin-k the-struct_41)" +"(expand-context/inner-allow-unbound? the-struct_41)" +"(expand-context/inner-in-local-expand? the-struct_41)" +"(expand-context/inner-keep-#%expression? the-struct_41)" +"(expand-context/inner-stops the-struct_41)" +"(expand-context/inner-declared-submodule-names the-struct_41)" +"(expand-context/inner-lifts the-struct_41)" +"(expand-context/inner-lift-envs the-struct_41)" +"(expand-context/inner-module-lifts the-struct_41)" +"(expand-context/inner-require-lifts the-struct_41)" +"(expand-context/inner-to-module-lifts the-struct_41)" +"(expand-context/inner-requires+provides the-struct_41)" +"(expand-context/inner-observer the-struct_41)" +"(expand-context/inner-for-serializable? the-struct_41)" +"(expand-context/inner-should-not-encounter-macros? the-struct_41)))" +" (raise-argument-error 'struct-copy \"expand-context/inner?\" the-struct_41)))))" "(expand-context/outer1.1" -" inner32_0" -" post-expansion-scope27_0" -" post-expansion-shifts28_0" -" use-site-scopes29_0" -" frame-id30_1" -"(expand-context/outer-context the-struct_41)" -"(expand-context/outer-env the-struct_41)" -"(expand-context/outer-post-expansion-scope-action the-struct_41)" -"(expand-context/outer-scopes the-struct_41)" -"(expand-context/outer-def-ctx-scopes the-struct_41)" -" binding-layer31_0" -"(expand-context/outer-reference-records the-struct_41)" -"(expand-context/outer-only-immediate? the-struct_41)" -"(expand-context/outer-need-eventually-defined the-struct_41)" -"(expand-context/outer-current-introduction-scopes the-struct_41)" -"(expand-context/outer-current-use-scopes the-struct_41)" -"(expand-context/outer-name the-struct_41)))" -" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_41)))))))" +" inner31_0" +" post-expansion27_0" +" use-site-scopes28_0" +" frame-id29_0" +"(expand-context/outer-context the-struct_14)" +"(expand-context/outer-env the-struct_14)" +"(expand-context/outer-scopes the-struct_14)" +"(expand-context/outer-def-ctx-scopes the-struct_14)" +" binding-layer30_0" +"(expand-context/outer-reference-records the-struct_14)" +"(expand-context/outer-only-immediate? the-struct_14)" +"(expand-context/outer-need-eventually-defined the-struct_14)" +"(expand-context/outer-current-introduction-scopes the-struct_14)" +"(expand-context/outer-current-use-scopes the-struct_14)" +"(expand-context/outer-name the-struct_14)))" +" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_14)))))))" "(define-values(current-expand-context)(make-parameter #f))" "(define-values" "(get-current-expand-context16.1)" @@ -15649,14 +15646,14 @@ static const char *startup_source = "(current-expand-observe)" "(make-parameter" " #f" -"(lambda(v_132)" +"(lambda(v_131)" "(begin" -"(if(let-values(((or-part_161)(not v_132)))" -"(if or-part_161 or-part_161(if(procedure? v_132)(procedure-arity-includes? v_132 2) #f)))" +"(if(let-values(((or-part_161)(not v_131)))" +"(if or-part_161 or-part_161(if(procedure? v_131)(procedure-arity-includes? v_131 2) #f)))" "(void)" "(let-values()" -" (raise-argument-error 'current-expand-observe \"(or/c (procedure-arity-includes/c 2) #f)\" v_132)))" -" v_132))))" +" (raise-argument-error 'current-expand-observe \"(or/c (procedure-arity-includes/c 2) #f)\" v_131)))" +" v_131))))" "(define-values" "(as-expression-context)" "(lambda(ctx_2)" @@ -15664,32 +15661,30 @@ 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_133) ctx_2))" -"(let-values(((the-struct_43) v_133))" -"(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_133)))" +"(let-values(((v_132) ctx_2))" +"(let-values(((the-struct_16) v_132))" +"(if(expand-context/outer? the-struct_16)" +"(let-values(((context39_0) 'expression)" +"((name40_0) #f)" +"((post-expansion41_0) #f)" +"((inner42_0)(root-expand-context/outer-inner v_132)))" "(expand-context/outer1.1" -" inner43_0" -" post-expansion-scope42_0" -"(root-expand-context/outer-post-expansion-shifts the-struct_43)" -"(root-expand-context/outer-use-site-scopes the-struct_43)" -"(root-expand-context/outer-frame-id the-struct_43)" -" context40_0" -"(expand-context/outer-env the-struct_43)" -"(expand-context/outer-post-expansion-scope-action the-struct_43)" -"(expand-context/outer-scopes the-struct_43)" -"(expand-context/outer-def-ctx-scopes the-struct_43)" -"(expand-context/outer-binding-layer the-struct_43)" -"(expand-context/outer-reference-records the-struct_43)" -"(expand-context/outer-only-immediate? the-struct_43)" -"(expand-context/outer-need-eventually-defined the-struct_43)" -"(expand-context/outer-current-introduction-scopes the-struct_43)" -"(expand-context/outer-current-use-scopes the-struct_43)" -" name41_0))" -" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_43)))))))))" +" inner42_0" +" post-expansion41_0" +"(root-expand-context/outer-use-site-scopes the-struct_16)" +"(root-expand-context/outer-frame-id the-struct_16)" +" context39_0" +"(expand-context/outer-env the-struct_16)" +"(expand-context/outer-scopes the-struct_16)" +"(expand-context/outer-def-ctx-scopes the-struct_16)" +"(expand-context/outer-binding-layer the-struct_16)" +"(expand-context/outer-reference-records the-struct_16)" +"(expand-context/outer-only-immediate? the-struct_16)" +"(expand-context/outer-need-eventually-defined the-struct_16)" +"(expand-context/outer-current-introduction-scopes the-struct_16)" +"(expand-context/outer-current-use-scopes the-struct_16)" +" name40_0))" +" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_16)))))))))" "(define-values" "(as-begin-expression-context)" "(lambda(ctx_3)" @@ -15697,29 +15692,27 @@ static const char *startup_source = "(if(not(expand-context-name ctx_3))" "(let-values() ctx_3)" "(let-values()" -"(let-values(((v_134) ctx_3))" -"(let-values(((the-struct_44) v_134))" -"(if(expand-context/outer? the-struct_44)" -"(let-values(((name44_0) #f)((inner45_0)(root-expand-context/outer-inner v_134)))" +"(let-values(((v_133) ctx_3))" +"(let-values(((the-struct_42) v_133))" +"(if(expand-context/outer? the-struct_42)" +"(let-values(((name43_0) #f)((inner44_0)(root-expand-context/outer-inner v_133)))" "(expand-context/outer1.1" -" inner45_0" -"(root-expand-context/outer-post-expansion-scope the-struct_44)" -"(root-expand-context/outer-post-expansion-shifts the-struct_44)" -"(root-expand-context/outer-use-site-scopes the-struct_44)" -"(root-expand-context/outer-frame-id the-struct_44)" -"(expand-context/outer-context the-struct_44)" -"(expand-context/outer-env the-struct_44)" -"(expand-context/outer-post-expansion-scope-action the-struct_44)" -"(expand-context/outer-scopes the-struct_44)" -"(expand-context/outer-def-ctx-scopes the-struct_44)" -"(expand-context/outer-binding-layer the-struct_44)" -"(expand-context/outer-reference-records the-struct_44)" -"(expand-context/outer-only-immediate? the-struct_44)" -"(expand-context/outer-need-eventually-defined the-struct_44)" -"(expand-context/outer-current-introduction-scopes the-struct_44)" -"(expand-context/outer-current-use-scopes the-struct_44)" -" name44_0))" -" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_44)))))))))" +" inner44_0" +"(root-expand-context/outer-post-expansion the-struct_42)" +"(root-expand-context/outer-use-site-scopes the-struct_42)" +"(root-expand-context/outer-frame-id the-struct_42)" +"(expand-context/outer-context the-struct_42)" +"(expand-context/outer-env the-struct_42)" +"(expand-context/outer-scopes the-struct_42)" +"(expand-context/outer-def-ctx-scopes the-struct_42)" +"(expand-context/outer-binding-layer the-struct_42)" +"(expand-context/outer-reference-records the-struct_42)" +"(expand-context/outer-only-immediate? the-struct_42)" +"(expand-context/outer-need-eventually-defined the-struct_42)" +"(expand-context/outer-current-introduction-scopes the-struct_42)" +"(expand-context/outer-current-use-scopes the-struct_42)" +" name43_0))" +" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_42)))))))))" "(define-values" "(as-tail-context22.1)" "(lambda(wrt19_0 ctx21_0)" @@ -15730,30 +15723,28 @@ static const char *startup_source = "(let-values()" "(if(expand-context-name wrt-ctx_0)" "(let-values()" -"(let-values(((v_135) ctx_4))" -"(let-values(((the-struct_19) v_135))" -"(if(expand-context/outer? the-struct_19)" -"(let-values(((name46_0)(expand-context-name wrt-ctx_0))" -"((inner47_0)(root-expand-context/outer-inner v_135)))" +"(let-values(((v_134) ctx_4))" +"(let-values(((the-struct_43) v_134))" +"(if(expand-context/outer? the-struct_43)" +"(let-values(((name45_0)(expand-context-name wrt-ctx_0))" +"((inner46_0)(root-expand-context/outer-inner v_134)))" "(expand-context/outer1.1" -" inner47_0" -"(root-expand-context/outer-post-expansion-scope the-struct_19)" -"(root-expand-context/outer-post-expansion-shifts the-struct_19)" -"(root-expand-context/outer-use-site-scopes the-struct_19)" -"(root-expand-context/outer-frame-id the-struct_19)" -"(expand-context/outer-context the-struct_19)" -"(expand-context/outer-env the-struct_19)" -"(expand-context/outer-post-expansion-scope-action the-struct_19)" -"(expand-context/outer-scopes the-struct_19)" -"(expand-context/outer-def-ctx-scopes the-struct_19)" -"(expand-context/outer-binding-layer the-struct_19)" -"(expand-context/outer-reference-records the-struct_19)" -"(expand-context/outer-only-immediate? the-struct_19)" -"(expand-context/outer-need-eventually-defined the-struct_19)" -"(expand-context/outer-current-introduction-scopes the-struct_19)" -"(expand-context/outer-current-use-scopes the-struct_19)" -" name46_0))" -" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_19)))))" +" inner46_0" +"(root-expand-context/outer-post-expansion the-struct_43)" +"(root-expand-context/outer-use-site-scopes the-struct_43)" +"(root-expand-context/outer-frame-id the-struct_43)" +"(expand-context/outer-context the-struct_43)" +"(expand-context/outer-env the-struct_43)" +"(expand-context/outer-scopes the-struct_43)" +"(expand-context/outer-def-ctx-scopes the-struct_43)" +"(expand-context/outer-binding-layer the-struct_43)" +"(expand-context/outer-reference-records the-struct_43)" +"(expand-context/outer-only-immediate? the-struct_43)" +"(expand-context/outer-need-eventually-defined the-struct_43)" +"(expand-context/outer-current-introduction-scopes the-struct_43)" +"(expand-context/outer-current-use-scopes the-struct_43)" +" name45_0))" +" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_43)))))" "(let-values() ctx_4))))))))" "(define-values" "(as-named-context)" @@ -15761,19 +15752,76 @@ static const char *startup_source = "(begin" "(if(if(pair? ids_1)(null?(cdr ids_1)) #f)" "(let-values()" -"(let-values(((v_136) ctx_5))" +"(let-values(((v_135) ctx_5))" +"(let-values(((the-struct_44) v_135))" +"(if(expand-context/outer? the-struct_44)" +"(let-values(((name47_0)(car ids_1))((inner48_0)(root-expand-context/outer-inner v_135)))" +"(expand-context/outer1.1" +" inner48_0" +"(root-expand-context/outer-post-expansion the-struct_44)" +"(root-expand-context/outer-use-site-scopes the-struct_44)" +"(root-expand-context/outer-frame-id the-struct_44)" +"(expand-context/outer-context the-struct_44)" +"(expand-context/outer-env the-struct_44)" +"(expand-context/outer-scopes the-struct_44)" +"(expand-context/outer-def-ctx-scopes the-struct_44)" +"(expand-context/outer-binding-layer the-struct_44)" +"(expand-context/outer-reference-records the-struct_44)" +"(expand-context/outer-only-immediate? the-struct_44)" +"(expand-context/outer-need-eventually-defined the-struct_44)" +"(expand-context/outer-current-introduction-scopes the-struct_44)" +"(expand-context/outer-current-use-scopes the-struct_44)" +" name47_0))" +" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_44)))))" +"(let-values() ctx_5)))))" +"(define-values" +"(as-to-parsed-context)" +"(lambda(ctx_6)" +"(begin" +"(let-values(((v_136) ctx_6))" "(let-values(((the-struct_45) v_136))" "(if(expand-context/outer? the-struct_45)" -"(let-values(((name48_0)(car ids_1))((inner49_0)(root-expand-context/outer-inner v_136)))" +"(let-values(((inner49_0)" +"(let-values(((the-struct_46)(root-expand-context/outer-inner v_136)))" +"(if(expand-context/inner? the-struct_46)" +"(let-values(((to-parsed?50_0) #t)" +"((observer51_0) #f)" +"((should-not-encounter-macros?52_0) #t))" +"(expand-context/inner2.1" +"(root-expand-context/inner-self-mpi the-struct_46)" +"(root-expand-context/inner-module-scopes the-struct_46)" +"(root-expand-context/inner-top-level-bind-scope the-struct_46)" +"(root-expand-context/inner-all-scopes-stx the-struct_46)" +"(root-expand-context/inner-defined-syms the-struct_46)" +"(root-expand-context/inner-counter the-struct_46)" +"(root-expand-context/inner-lift-key the-struct_46)" +" to-parsed?50_0" +"(expand-context/inner-phase the-struct_46)" +"(expand-context/inner-namespace the-struct_46)" +"(expand-context/inner-just-once? the-struct_46)" +"(expand-context/inner-module-begin-k the-struct_46)" +"(expand-context/inner-allow-unbound? the-struct_46)" +"(expand-context/inner-in-local-expand? the-struct_46)" +"(expand-context/inner-keep-#%expression? the-struct_46)" +"(expand-context/inner-stops the-struct_46)" +"(expand-context/inner-declared-submodule-names the-struct_46)" +"(expand-context/inner-lifts the-struct_46)" +"(expand-context/inner-lift-envs the-struct_46)" +"(expand-context/inner-module-lifts the-struct_46)" +"(expand-context/inner-require-lifts the-struct_46)" +"(expand-context/inner-to-module-lifts the-struct_46)" +"(expand-context/inner-requires+provides the-struct_46)" +" observer51_0" +"(expand-context/inner-for-serializable? the-struct_46)" +" should-not-encounter-macros?52_0))" +" (raise-argument-error 'struct-copy \"expand-context/inner?\" the-struct_46)))))" "(expand-context/outer1.1" " inner49_0" -"(root-expand-context/outer-post-expansion-scope the-struct_45)" -"(root-expand-context/outer-post-expansion-shifts the-struct_45)" +"(root-expand-context/outer-post-expansion 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)" @@ -15782,69 +15830,8 @@ static const char *startup_source = "(expand-context/outer-need-eventually-defined the-struct_45)" "(expand-context/outer-current-introduction-scopes the-struct_45)" "(expand-context/outer-current-use-scopes the-struct_45)" -" name48_0))" -" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_45)))))" -"(let-values() ctx_5)))))" -"(define-values" -"(as-to-parsed-context)" -"(lambda(ctx_6)" -"(begin" -"(let-values(((v_137) ctx_6))" -"(let-values(((the-struct_46) v_137))" -"(if(expand-context/outer? the-struct_46)" -"(let-values(((inner50_0)" -"(let-values(((the-struct_47)(root-expand-context/outer-inner v_137)))" -"(if(expand-context/inner? the-struct_47)" -"(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)" -" 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-keep-#%expression? 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)" -" observer52_0" -"(expand-context/inner-for-serializable? the-struct_47)" -" should-not-encounter-macros?53_0))" -" (raise-argument-error 'struct-copy \"expand-context/inner?\" the-struct_47)))))" -"(expand-context/outer1.1" -" inner50_0" -"(root-expand-context/outer-post-expansion-scope the-struct_46)" -"(root-expand-context/outer-post-expansion-shifts 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-current-use-scopes the-struct_46)" -"(expand-context/outer-name the-struct_46)))" -" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_46)))))))" +"(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_169)" @@ -15863,23 +15850,23 @@ static const char *startup_source = "(define-values(id-cache-1)(make-hasheq))" "(define-values" "(core-id)" -"(lambda(sym_12 phase_35)" +"(lambda(sym_12 phase_34)" "(begin" -"(if(eqv? phase_35 0)" +"(if(eqv? phase_34 0)" "(let-values()" "(let-values(((or-part_6)(hash-ref id-cache-0 sym_12 #f)))" "(if or-part_6" " or-part_6" "(let-values(((s_170)(datum->syntax$1 core-stx sym_12)))" "(begin(hash-set! id-cache-0 sym_12 s_170) s_170)))))" -"(if(eq? phase_35 1)" +"(if(eq? phase_34 1)" "(let-values()" "(let-values(((or-part_28)(hash-ref id-cache-1 sym_12 #f)))" "(if or-part_28" " or-part_28" "(let-values(((s_10)(datum->syntax$1(syntax-shift-phase-level$1 core-stx 1) sym_12)))" "(begin(hash-set! id-cache-1 sym_12 s_10) s_10)))))" -"(let-values()(datum->syntax$1(syntax-shift-phase-level$1 core-stx phase_35) sym_12)))))))" +"(let-values()(datum->syntax$1(syntax-shift-phase-level$1 core-stx phase_34) sym_12)))))))" "(define-values(core-forms) '#hasheq())" "(define-values(core-primitives) '#hasheq())" "(define-values" @@ -15933,7 +15920,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_80)))" -"((letrec-values(((for-loop_97)" +"((letrec-values(((for-loop_99)" "(lambda(table_111 lst_81 lst_82)" "(begin" " 'for-loop" @@ -15951,7 +15938,7 @@ static const char *startup_source = "(void)" "(let-values()" "(check-in-hash-keys ht_77)))" -"((letrec-values(((for-loop_98)" +"((letrec-values(((for-loop_100)" "(lambda(table_114" " i_42)" "(begin" @@ -16005,21 +15992,21 @@ static const char *startup_source = " table_117)))))" "(if(not" " #f)" -"(for-loop_98" +"(for-loop_100" " table_115" "(hash-iterate-next" " ht_77" " i_42))" " table_115)))" " table_114)))))" -" for-loop_98)" +" for-loop_100)" " table_113" "(hash-iterate-first ht_77)))))))" "(if(not #f)" -"(for-loop_97 table_112 rest_37 rest_38)" +"(for-loop_99 table_112 rest_37 rest_38)" " table_112)))" " table_111)))))" -" for-loop_97)" +" for-loop_99)" " '#hasheq()" " lst_79" " lst_80)))))" @@ -16044,7 +16031,7 @@ static const char *startup_source = "((temp16_1)" "(lambda(data-box_1" " ns_49" -" phase_43" +" phase_42" " phase-level_15" " self_5" " bulk-binding-registry_4" @@ -16058,7 +16045,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-hash ht_78)))" -"((letrec-values(((for-loop_99)" +"((letrec-values(((for-loop_101)" "(lambda(i_28)" "(begin" " 'for-loop" @@ -16081,11 +16068,11 @@ static const char *startup_source = "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_99" +"(for-loop_101" "(hash-iterate-next ht_78 i_28))" "(values))))" "(values))))))" -" for-loop_99)" +" for-loop_101)" "(hash-iterate-first ht_78))))" "(void)" "(let-values(((ht_79) core-forms))" @@ -16093,7 +16080,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-hash ht_79)))" -"((letrec-values(((for-loop_100)" +"((letrec-values(((for-loop_102)" "(lambda(i_91)" "(begin" " 'for-loop" @@ -16122,11 +16109,11 @@ static const char *startup_source = "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_100" +"(for-loop_102" "(hash-iterate-next ht_79 i_91))" "(values))))" "(values))))))" -" for-loop_100)" +" for-loop_102)" "(hash-iterate-first ht_79))))" "(void)))" "(let-values()(void)))))))" @@ -16153,7 +16140,7 @@ static const char *startup_source = "(declare-module!58.1 #t ns7_0 temp8_0 core-module-name9_0)))))" "(define-values" "(core-form-sym)" -"(lambda(s_19 phase_44)" +"(lambda(s_19 phase_43)" "(begin" "(let-values(((ok?_0 id23_0 _24_0)" "(let-values(((s_171) s_19))" @@ -16175,7 +16162,7 @@ static const char *startup_source = "(values #f #f #f)))))" "(if ok?_0" "(let-values(((b_63)" -"(let-values(((temp27_1) id23_0)((phase28_0) phase_44))" +"(let-values(((temp27_1) id23_0)((phase28_0) phase_43))" "(resolve+shift28.1 #f #f null unsafe-undefined #f temp27_1 phase28_0))))" "(if(module-binding? b_63)" "(if(eq? core-module-name(1/module-path-index-resolve(module-binding-module b_63)))" @@ -16185,7 +16172,7 @@ static const char *startup_source = " #f)))))" "(define-values" "(taint-dispatch)" -"(lambda(s_0 proc_6 phase_34)" +"(lambda(s_0 proc_6 phase_33)" "(begin" "((letrec-values(((loop_81)" "(lambda(s_73 mode_11)" @@ -16420,7 +16407,7 @@ static const char *startup_source = "(let-values()(loop_81 s_73 'transparent)))))" "(let-values()" "(let-values(((c_20)(syntax-e$1 s_73)))" -"(let-values(((tmp_15)(core-form-sym c_20 phase_34)))" +"(let-values(((tmp_15)(core-form-sym c_20 phase_33)))" "(if(if(equal? tmp_15 'begin)" " #t" "(if(equal? tmp_15 'begin-for-syntax)" @@ -16447,7 +16434,7 @@ static const char *startup_source = "(define-values(current-module-code-inspector)(make-parameter #f))" "(define-values" "(syntax-debug-info$1)" -"(lambda(s_0 phase_45 all-bindings?_0)" +"(lambda(s_0 phase_44 all-bindings?_0)" "(begin" " 'syntax-debug-info" "(let-values(((hts_0)" @@ -16457,7 +16444,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_76)))" -"((letrec-values(((for-loop_101)" +"((letrec-values(((for-loop_103)" "(lambda(fold-var_59 lst_83)" "(begin" " 'for-loop" @@ -16481,7 +16468,7 @@ static const char *startup_source = "(scope-set-at-fallback" " s_0" " smss_26" -" phase_45)))" +" phase_44)))" "(let-values(((context_1)" "(scope-set->context" " s-scs_0)))" @@ -16532,7 +16519,7 @@ static const char *startup_source = "(let-values()" "(check-in-immutable-hash-keys" " ht_80)))" -"((letrec-values(((for-loop_102)" +"((letrec-values(((for-loop_104)" "(lambda(bindings_2" " covered-scope-sets_0" " i_92)" @@ -16705,7 +16692,7 @@ static const char *startup_source = " bulk-bindings_3)))))))" "(if(not" " #f)" -"(for-loop_102" +"(for-loop_104" " bindings_3" " covered-scope-sets_1" "(unsafe-immutable-hash-iterate-next" @@ -16717,7 +16704,7 @@ static const char *startup_source = "(values" " bindings_2" " covered-scope-sets_0))))))" -" for-loop_102)" +" for-loop_104)" " null" "(set)" "(unsafe-immutable-hash-iterate-first" @@ -16759,7 +16746,7 @@ static const char *startup_source = " table_63)))))" "(begin" " #t" -"((letrec-values(((for-loop_103)" +"((letrec-values(((for-loop_105)" "(lambda(fold-var_65" " state_25)" "(begin" @@ -16817,7 +16804,7 @@ static const char *startup_source = " fold-var_18)))))))" "(if(not" " #f)" -"(for-loop_103" +"(for-loop_105" " fold-var_17" "(let-values(((ht_22)" "(vector-ref" @@ -16844,7 +16831,7 @@ static const char *startup_source = " 0)))))))" " fold-var_17)))" " fold-var_65)))))" -" for-loop_103)" +" for-loop_105)" " fold-var_63" "((letrec-values(((loop_84)" "(lambda(sym-i_1)" @@ -16884,9 +16871,9 @@ static const char *startup_source = " bindings_0)))))))))))" " fold-var_61))))" "(values fold-var_62)))))" -"(if(not #f)(for-loop_101 fold-var_60 rest_39) fold-var_60)))" +"(if(not #f)(for-loop_103 fold-var_60 rest_39) fold-var_60)))" " fold-var_59)))))" -" for-loop_101)" +" for-loop_103)" " null" " lst_76))))))" "(let-values(((ht_73)(car hts_0)))(if(null?(cdr hts_0)) ht_73(hash-set ht_73 'fallbacks(cdr hts_0))))))))" @@ -16901,7 +16888,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-immutable-hash-keys ht_83)))" -"((letrec-values(((for-loop_104)" +"((letrec-values(((for-loop_106)" "(lambda(fold-var_68 i_28)" "(begin" " 'for-loop" @@ -16935,16 +16922,16 @@ static const char *startup_source = " fold-var_6))))" "(values fold-var_7)))))" "(if(not #f)" -"(for-loop_104" +"(for-loop_106" " fold-var_5" "(unsafe-immutable-hash-iterate-next ht_83 i_28))" " fold-var_5)))" " fold-var_68)))))" -" for-loop_104)" +" for-loop_106)" " null" "(unsafe-immutable-hash-iterate-first ht_83))))))" "((<2_0) <)" -"((temp3_2)(lambda(v_138)(vector-ref v_138 0))))" +"((temp3_2)(lambda(v_137)(vector-ref v_137 0))))" "(sort7.1 #f temp3_2 temp1_1 <2_0)))))" "(define-values" "(raise-ambiguous-error)" @@ -16971,8 +16958,8 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_84)))" -"((letrec-values(((for-loop_105)" -"(lambda(result_63 lst_85)" +"((letrec-values(((for-loop_107)" +"(lambda(result_64 lst_85)" "(begin" " 'for-loop" "(if(pair? lst_85)" @@ -16980,7 +16967,7 @@ static const char *startup_source = "((rest_40)(unsafe-cdr lst_85)))" "(let-values(((result_1)" "(let-values()" -"(let-values(((result_64)" +"(let-values(((result_65)" "(let-values()" "(let-values()" "(pair?" @@ -16988,12 +16975,12 @@ static const char *startup_source = " fb-info_0" " 'bindings" " null))))))" -"(values result_64)))))" +"(values result_65)))))" "(if(if(not((lambda x_28 result_1) fb-info_0))(not #f) #f)" -"(for-loop_105 result_1 rest_40)" +"(for-loop_107 result_1 rest_40)" " result_1)))" -" result_63)))))" -" for-loop_105)" +" result_64)))))" +" for-loop_107)" " #f" " lst_84))))))" " (let-values () \"\")" @@ -17013,7 +17000,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_86)))" -"((letrec-values(((for-loop_106)" +"((letrec-values(((for-loop_108)" "(lambda(fold-var_69 lst_87)" "(begin" " 'for-loop" @@ -17035,10 +17022,10 @@ static const char *startup_source = "(values" " fold-var_28)))))" "(if(not #f)" -"(for-loop_106 fold-var_70 rest_41)" +"(for-loop_108 fold-var_70 rest_41)" " fold-var_70)))" " fold-var_69)))))" -" for-loop_106)" +" for-loop_108)" " null" " lst_86)))))" "(let-values(((fallbacks_0)(hash-ref info_4 'fallbacks null)))" @@ -17051,7 +17038,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-naturals start_14)))" -"((letrec-values(((for-loop_107)" +"((letrec-values(((for-loop_109)" "(lambda(fold-var_71 lst_89 pos_12)" "(begin" " 'for-loop" @@ -17075,13 +17062,13 @@ static const char *startup_source = "(values" " fold-var_73)))))" "(if(not #f)" -"(for-loop_107" +"(for-loop_109" " fold-var_9" " rest_42" "(+ pos_12 1))" " fold-var_9)))" " fold-var_71)))))" -" for-loop_107)" +" for-loop_109)" " null" " lst_88" " start_14))))))))))" @@ -17096,7 +17083,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_90)))" -"((letrec-values(((for-loop_108)" +"((letrec-values(((for-loop_110)" "(lambda(s_182 lst_91)" "(begin" " 'for-loop" @@ -17111,9 +17098,9 @@ static const char *startup_source = " s_43" "(list->set l_48)))))" "(values s_190)))))" -"(if(not #f)(for-loop_108 s_89 rest_43) s_89)))" +"(if(not #f)(for-loop_110 s_89 rest_43) s_89)))" " s_182)))))" -" for-loop_108)" +" for-loop_110)" "(list->set(car relevant-scope-sets_0))" " lst_90))))))" "(string-append" @@ -17143,7 +17130,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_92)))" -"((letrec-values(((for-loop_109)" +"((letrec-values(((for-loop_111)" "(lambda(fold-var_74 lst_93)" "(begin" " 'for-loop" @@ -17189,10 +17176,10 @@ static const char *startup_source = " fold-var_65))))" "(values fold-var_76)))))" "(if(not #f)" -"(for-loop_109 fold-var_75 rest_44)" +"(for-loop_111 fold-var_75 rest_44)" " fold-var_75)))" " fold-var_74)))))" -" for-loop_109)" +" for-loop_111)" " null" " lst_92)))))" "(let-values(((fallbacks_1)(hash-ref info_5 'fallbacks null)))" @@ -17207,7 +17194,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-naturals start_15)))" -"((letrec-values(((for-loop_110)" +"((letrec-values(((for-loop_112)" "(lambda(fold-var_66 lst_95 pos_13)" "(begin" " 'for-loop" @@ -17228,13 +17215,13 @@ static const char *startup_source = " fold-var_78))))" "(values fold-var_79)))))" "(if(not #f)" -"(for-loop_110" +"(for-loop_112" " fold-var_77" " rest_45" "(+ pos_13 1))" " fold-var_77)))" " fold-var_66)))))" -" for-loop_110)" +" for-loop_112)" " null" " lst_94" " start_15)))))))))))" @@ -17252,7 +17239,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_96)))" -"((letrec-values(((for-loop_111)" +"((letrec-values(((for-loop_113)" "(lambda(fold-var_80 lst_97)" "(begin" " 'for-loop" @@ -17270,9 +17257,9 @@ static const char *startup_source = " fold-var_5))))" "(values fold-var_6)))" " fold-var_82))))" -"(if(not #f)(for-loop_111 fold-var_81 rest_46) fold-var_81)))" +"(if(not #f)(for-loop_113 fold-var_81 rest_46) fold-var_81)))" " fold-var_80)))))" -" for-loop_111)" +" for-loop_113)" " null" " lst_96))))" "(set)))))))))))))" @@ -17307,7 +17294,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_98)))" -"((letrec-values(((for-loop_112)" +"((letrec-values(((for-loop_114)" "(lambda(fold-var_83 lst_99)" "(begin" " 'for-loop" @@ -17325,9 +17312,9 @@ static const char *startup_source = " fold-var_86))))" "(values fold-var_87)))" " fold-var_85))))" -"(if(not #f)(for-loop_112 fold-var_84 rest_47) fold-var_84)))" +"(if(not #f)(for-loop_114 fold-var_84 rest_47) fold-var_84)))" " fold-var_83)))))" -" for-loop_112)" +" for-loop_114)" " null" " lst_98))))" " (list \"[common scopes]\"))))))" @@ -17342,7 +17329,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_100)))" -"((letrec-values(((for-loop_113)" +"((letrec-values(((for-loop_115)" "(lambda(fold-var_88 lst_101)" "(begin" " 'for-loop" @@ -17357,9 +17344,9 @@ static const char *startup_source = " (string-append \"\\n \" str_4))" " fold-var_90))))" "(values fold-var_14)))))" -"(if(not #f)(for-loop_113 fold-var_89 rest_48) fold-var_89)))" +"(if(not #f)(for-loop_115 fold-var_89 rest_48) fold-var_89)))" " fold-var_88)))))" -" for-loop_113)" +" for-loop_115)" " null" " lst_100)))))))))))" " (define-values (layer->string) (lambda (layer_4) (begin (if (zero? layer_4) \"\" (format \" at layer ~a\" layer_4)))))" @@ -17367,7 +17354,7 @@ static const char *startup_source = "(raise-syntax-implicit-error)" "(lambda(s_0 sym_31 trigger-id_0 ctx_8)" "(begin" -"(let-values(((phase_46)(expand-context-phase ctx_8)))" +"(let-values(((phase_45)(expand-context-phase ctx_8)))" "(let-values(((what_1)" "(let-values(((tmp_16) sym_31))" "(if(equal? tmp_16 '#%app)" @@ -17383,7 +17370,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_46))" +"(let-values(((trigger-id1_0) trigger-id_0)((phase2_1) phase_45))" "(resolve40.1 #f #f null #f trigger-id1_0 phase2_1)))" " #f)))" "(let-values(((unbound-form_0)" @@ -17395,12 +17382,12 @@ static const char *startup_source = " \"unbound identifier;\\n also, no ~a syntax transformer is bound~a\"" " (string-append what_1 \" is not allowed;\\n no ~a syntax transformer is bound~a\"))" " sym_31" -"(let-values(((tmp_17) phase_46))" +"(let-values(((tmp_17) phase_45))" "(if(equal? tmp_17 0)" " (let-values () \"\")" "(if(equal? tmp_17 1)" " (let-values () \" in the transformer phase\")" -" (let-values () (format \" at phase ~a\" phase_46))))))" +" (let-values () (format \" at phase ~a\" phase_45))))))" "(if unbound?_0(let-values(((or-part_13) unbound-form_0))(if or-part_13 or-part_13 trigger-id_0)) #f)" "(if unbound?_0(if unbound-form_0 trigger-id_0 #f) s_0)" " null" @@ -17412,25 +17399,25 @@ static const char *startup_source = "(begin" " 'check-no-duplicate-ids7" "(let-values(((ids_2) ids4_0))" -"(let-values(((phase_47) phase5_0))" +"(let-values(((phase_46) phase5_0))" "(let-values(((s_3) s6_0))" "(let-values(((ht_74)(if(eq? ht3_0 unsafe-undefined)(make-check-no-duplicate-table) ht3_0)))" " (let-values (((what_2) (if (eq? what1_0 unsafe-undefined) \"binding name\" what1_0)))" "(let-values()" "((letrec-values(((loop_6)" -"(lambda(v_139 ht_84)" +"(lambda(v_138 ht_84)" "(begin" " 'loop" -"(if(identifier? v_139)" +"(if(identifier? v_138)" "(let-values()" -"(let-values(((l_49)(hash-ref ht_84(syntax-e$1 v_139) null)))" +"(let-values(((l_49)(hash-ref ht_84(syntax-e$1 v_138) null)))" "(begin" "(let-values(((lst_102) l_49))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_102)))" -"((letrec-values(((for-loop_114)" +"((letrec-values(((for-loop_116)" "(lambda(lst_77)" "(begin" " 'for-loop" @@ -17446,8 +17433,8 @@ static const char *startup_source = "(let-values()" "(if(bound-identifier=?$1" " id_21" -" v_139" -" phase_47)" +" v_138" +" phase_46)" "(let-values()" "(raise-syntax-error$1" " #f" @@ -17455,20 +17442,20 @@ static const char *startup_source = " \"duplicate \"" " what_2)" " s_3" -" v_139))" +" v_138))" "(void)))" "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_114 rest_49)" +"(for-loop_116 rest_49)" "(values))))" "(values))))))" -" for-loop_114)" +" for-loop_116)" " lst_102)))" "(void)" -"(hash-set ht_84(syntax-e$1 v_139)(cons v_139 l_49)))))" -"(if(pair? v_139)" -"(let-values()(loop_6(cdr v_139)(loop_6(car v_139) ht_84)))" +"(hash-set ht_84(syntax-e$1 v_138)(cons v_138 l_49)))))" +"(if(pair? v_138)" +"(let-values()(loop_6(cdr v_138)(loop_6(car v_138) ht_84)))" "(let-values() ht_84)))))))" " loop_6)" " ids_2" @@ -17487,7 +17474,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_103)))" -"((letrec-values(((for-loop_115)" +"((letrec-values(((for-loop_117)" "(lambda(fold-var_91 lst_84)" "(begin" " 'for-loop" @@ -17502,9 +17489,9 @@ static const char *startup_source = "(remove-scopes id_22(unbox use-sites_0)))" " fold-var_93))))" "(values fold-var_60)))))" -"(if(not #f)(for-loop_115 fold-var_92 rest_50) fold-var_92)))" +"(if(not #f)(for-loop_117 fold-var_92 rest_50) fold-var_92)))" " fold-var_91)))))" -" for-loop_115)" +" for-loop_117)" " null" " lst_103)))))" " s_0)))))" @@ -17551,7 +17538,7 @@ static const char *startup_source = "(begin" " 'make-compile-context14" "(let-values(((namespace_1)(if(eq? namespace2_0 unsafe-undefined)(1/current-namespace) namespace2_0)))" -"(let-values(((phase_48)(if(eq? phase3_1 unsafe-undefined)(namespace-phase namespace_1) phase3_1)))" +"(let-values(((phase_47)(if(eq? phase3_1 unsafe-undefined)(namespace-phase namespace_1) phase3_1)))" "(let-values(((self_6)(if(eq? self4_1 unsafe-undefined)(namespace-self-mpi namespace_1) self4_1)))" "(let-values(((module-self_0) module-self5_0))" "(let-values(((full-module-name_0) full-module-name6_0))" @@ -17566,7 +17553,7 @@ static const char *startup_source = "(void))" "(compile-context1.1" " namespace_1" -" phase_48" +" phase_47" " self_6" " module-self_0" " full-module-name_0" @@ -17623,18 +17610,18 @@ static const char *startup_source = "(let-values(((mpi_21)" "(if(eq? base_15 interned-base_0)" " mpi_20" -"(let-values(((the-struct_48) mpi_20))" -"(if(1/module-path-index? the-struct_48)" +"(let-values(((the-struct_47) mpi_20))" +"(if(1/module-path-index? the-struct_47)" "(let-values(((base3_0) interned-base_0))" "(module-path-index2.1" -"(module-path-index-path the-struct_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_21) mpi_21))))))" "(begin(hash-set!(mpi-intern-table-fast t_45) mpi_20 i-mpi_0) i-mpi_0))))))))))))" "(define-values(built-in-symbols)(make-hasheq))" @@ -17755,17 +17742,17 @@ static const char *startup_source = "(lambda(mpis_2)" "(begin" "(let-values(((unique-list_0)" -"(lambda(v_140)" +"(lambda(v_139)" "(begin" " 'unique-list" -"(if(pair? v_140)" +"(if(pair? v_139)" "(reverse$1" -"(let-values(((lst_104) v_140))" +"(let-values(((lst_104) v_139))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_104)))" -"((letrec-values(((for-loop_116)" +"((letrec-values(((for-loop_118)" "(lambda(fold-var_10 lst_80)" "(begin" " 'for-loop" @@ -17781,13 +17768,13 @@ static const char *startup_source = " fold-var_95))))" "(values fold-var_96)))))" "(if(not #f)" -"(for-loop_116 fold-var_94 rest_51)" +"(for-loop_118 fold-var_94 rest_51)" " fold-var_94)))" " fold-var_10)))))" -" for-loop_116)" +" for-loop_118)" " null" " lst_104))))" -" v_140)))))" +" v_139)))))" "(let-values(((positions_1)(module-path-index-table-positions mpis_2)))" "(let-values(((gen-order_0)(make-hasheqv)))" "(let-values(((rev-positions_0)" @@ -17796,7 +17783,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-hash ht_85)))" -"((letrec-values(((for-loop_117)" +"((letrec-values(((for-loop_119)" "(lambda(table_119 i_95)" "(begin" " 'for-loop" @@ -17817,10 +17804,10 @@ static const char *startup_source = " val_38)))))" "(values table_121)))))" "(if(not #f)" -"(for-loop_117 table_120(hash-iterate-next ht_85 i_95))" +"(for-loop_119 table_120(hash-iterate-next ht_85 i_95))" " table_120)))" " table_119)))))" -" for-loop_117)" +" for-loop_119)" " '#hasheqv()" "(hash-iterate-first ht_85))))))" "(let-values((()" @@ -17830,7 +17817,7 @@ 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_103)" +"((letrec-values(((for-loop_105)" "(lambda(pos_16)" "(begin" " 'for-loop" @@ -17875,9 +17862,9 @@ static const char *startup_source = " mpi_24)))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_103(+ pos_16 inc_4))(values))))" +"(if(not #f)(for-loop_105(+ pos_16 inc_4))(values))))" "(values))))))" -" for-loop_103)" +" for-loop_105)" " start_16)))" "(values))))" "(let-values()" @@ -17887,7 +17874,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-hash ht_86)))" -"((letrec-values(((for-loop_118)" +"((letrec-values(((for-loop_120)" "(lambda(table_122 i_93)" "(begin" " 'for-loop" @@ -17910,10 +17897,10 @@ static const char *startup_source = " val_39)))))" "(values table_9)))))" "(if(not #f)" -"(for-loop_118 table_15(hash-iterate-next ht_86 i_93))" +"(for-loop_120 table_15(hash-iterate-next ht_86 i_93))" " table_15)))" " table_122)))))" -" for-loop_118)" +" for-loop_120)" " '#hasheqv()" "(hash-iterate-first ht_86))))))" "(let-values(((gens_0)" @@ -17923,7 +17910,7 @@ static const char *startup_source = "(void)" "(let-values()" " (raise-argument-error 'for/vector \"exact-nonnegative-integer?\" len_12)))" -"(let-values(((v_141)(make-vector len_12 0)))" +"(let-values(((v_140)(make-vector len_12 0)))" "(begin" "(if(zero? len_12)" "(void)" @@ -17947,7 +17934,7 @@ static const char *startup_source = "(let-values()" "(begin" "(unsafe-vector*-set!" -" v_141" +" v_140" " i_99" "(let-values()" "(let-values(((mpi_26)" @@ -17992,7 +17979,7 @@ static const char *startup_source = " i_99)))))" "(values i_29)))))" "(if(if(not" -"((lambda x_42" +"((lambda x_43" "(unsafe-fx= i_98 len_12))" " i_91))" "(not #f)" @@ -18003,7 +17990,7 @@ static const char *startup_source = " for-loop_28)" " 0" " start_17)))))" -" v_141))))))" +" v_140))))))" "(list" " 'deserialize-module-path-indexes" "(list 'quote gens_0)" @@ -18074,7 +18061,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-naturals start_19)))" -"((letrec-values(((for-loop_119)" +"((letrec-values(((for-loop_121)" "(lambda(pos_19 pos_20)" "(begin" " 'for-loop" @@ -18106,9 +18093,9 @@ static const char *startup_source = " #f)))))))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_119(unsafe-fx+ 1 pos_19)(+ pos_20 1))(values))))" +"(if(not #f)(for-loop_121(unsafe-fx+ 1 pos_19)(+ pos_20 1))(values))))" "(values))))))" -" for-loop_119)" +" for-loop_121)" " 0" " start_19)))" "(void)" @@ -18117,7 +18104,7 @@ static const char *startup_source = "(if(exact-nonnegative-integer? len_14)" "(void)" " (let-values () (raise-argument-error 'for/vector \"exact-nonnegative-integer?\" len_14)))" -"(let-values(((v_142)(make-vector len_14 0)))" +"(let-values(((v_141)(make-vector len_14 0)))" "(begin" "(if(zero? len_14)" "(void)" @@ -18127,7 +18114,7 @@ static const char *startup_source = "(begin(check-vector vec_11)(values vec_11(unsafe-vector-length vec_11))))))" "(begin" " #f" -"((letrec-values(((for-loop_120)" +"((letrec-values(((for-loop_122)" "(lambda(i_105 pos_21)" "(begin" " 'for-loop" @@ -18139,22 +18126,22 @@ static const char *startup_source = "(let-values()" "(begin" "(unsafe-vector*-set!" -" v_142" +" v_141" " i_106" "(let-values()" "(vector*-ref gen_0 p_33)))" "(unsafe-fx+ 1 i_106)))))" "(values i_107)))))" -"(if(if(not((lambda x_43(unsafe-fx= i_48 len_14)) p_33))" +"(if(if(not((lambda x_44(unsafe-fx= i_48 len_14)) p_33))" "(not #f)" " #f)" -"(for-loop_120 i_48(unsafe-fx+ 1 pos_21))" +"(for-loop_122 i_48(unsafe-fx+ 1 pos_21))" " i_48)))" " i_105)))))" -" for-loop_120)" +" for-loop_122)" " 0" " 0)))))" -" v_142)))))))))" +" v_141)))))))))" "(define-values" "(mpis-as-vector)" "(lambda(mpis_3)" @@ -18167,7 +18154,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-hash ht_87)))" -"((letrec-values(((for-loop_121)" +"((letrec-values(((for-loop_123)" "(lambda(i_24)" "(begin" " 'for-loop" @@ -18182,9 +18169,9 @@ static const char *startup_source = "(vector-set! vec_37 pos_22 mpi_27))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_121(hash-iterate-next ht_87 i_24))(values))))" +"(if(not #f)(for-loop_123(hash-iterate-next ht_87 i_24))(values))))" "(values))))))" -" for-loop_121)" +" for-loop_123)" "(hash-iterate-first ht_87))))" "(void)" " vec_37))))))" @@ -18196,7 +18183,7 @@ static const char *startup_source = "(let-values(((lst_105) mus_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_105)))" -"((letrec-values(((for-loop_78)" +"((letrec-values(((for-loop_124)" "(lambda(fold-var_97 lst_11)" "(begin" " 'for-loop" @@ -18216,29 +18203,29 @@ static const char *startup_source = "(module-use-phase mu_1)))" " fold-var_99))))" "(values fold-var_100)))))" -"(if(not #f)(for-loop_78 fold-var_98 rest_52) fold-var_98)))" +"(if(not #f)(for-loop_124 fold-var_98 rest_52) fold-var_98)))" " fold-var_97)))))" -" for-loop_78)" +" for-loop_124)" " null" " lst_105)))))))" "(define-values" "(interned-literal?)" -"(lambda(v_143)" +"(lambda(v_142)" "(begin" -"(let-values(((or-part_168)(null? v_143)))" +"(let-values(((or-part_168)(null? v_142)))" "(if or-part_168" " or-part_168" -"(let-values(((or-part_169)(boolean? v_143)))" +"(let-values(((or-part_169)(boolean? v_142)))" "(if or-part_169" " or-part_169" -"(let-values(((or-part_139)" -"(if(fixnum? v_143)(if(< v_143(sub1(expt 2 30)))(> v_143(-(expt 2 30))) #f) #f)))" -"(if or-part_139" -" or-part_139" -"(let-values(((or-part_170)(symbol? v_143)))" +"(let-values(((or-part_140)" +"(if(fixnum? v_142)(if(< v_142(sub1(expt 2 30)))(> v_142(-(expt 2 30))) #f) #f)))" +"(if or-part_140" +" or-part_140" +"(let-values(((or-part_170)(symbol? v_142)))" "(if or-part_170" " or-part_170" -"(let-values(((or-part_46)(char? v_143)))(if or-part_46 or-part_46(keyword? v_143))))))))))))))" +"(let-values(((or-part_46)(char? v_142)))(if or-part_46 or-part_46(keyword? v_142))))))))))))))" "(define-values" "(serialize-phase-to-link-module-uses)" "(lambda(phase-to-link-module-uses_0 mpis_5)" @@ -18254,7 +18241,7 @@ static const char *startup_source = "(let-values(((lst_106) phases-in-order_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_106)))" -"((letrec-values(((for-loop_122)" +"((letrec-values(((for-loop_80)" "(lambda(fold-var_101 lst_50)" "(begin" " 'for-loop" @@ -18277,9 +18264,9 @@ static const char *startup_source = " mpis_5))))" " fold-var_103))))" "(values fold-var_104)))))" -"(if(not #f)(for-loop_122 fold-var_102 rest_53) fold-var_102)))" +"(if(not #f)(for-loop_80 fold-var_102 rest_53) fold-var_102)))" " fold-var_101)))))" -" for-loop_122)" +" for-loop_80)" " null" " lst_106))))))))))" "(define-values" @@ -18287,11 +18274,11 @@ static const char *startup_source = "(lambda(syntax-support?2_0 v4_0 mpis5_0)" "(begin" " 'generate-deserialize6" -"(let-values(((v_144) v4_0))" +"(let-values(((v_143) v4_0))" "(let-values(((mpis_6) mpis5_0))" "(let-values(((syntax-support?_0) syntax-support?2_0))" "(let-values()" -"(let-values(((reachable-scopes_4)(find-reachable-scopes v_144)))" +"(let-values(((reachable-scopes_4)(find-reachable-scopes v_143)))" "(let-values(((state_26)(make-serialize-state reachable-scopes_4)))" "(let-values(((mutables_0)(make-hasheq)))" "(let-values(((objs_0)(make-hasheq)))" @@ -18300,64 +18287,64 @@ static const char *startup_source = "(let-values(((frontier_0) null))" "(letrec-values(((add-frontier!_0)" "(case-lambda" -"((v_145)(begin 'add-frontier!(set! frontier_0(cons v_145 frontier_0))))" -"((kind_3 v_146)(add-frontier!_0 v_146)))))" +"((v_144)(begin 'add-frontier!(set! frontier_0(cons v_144 frontier_0))))" +"((kind_3 v_100)(add-frontier!_0 v_100)))))" "(let-values((()" "(begin" "((letrec-values(((frontier-loop_0)" -"(lambda(v_147)" +"(lambda(v_102)" "(begin" " 'frontier-loop" "(begin" "((letrec-values(((loop_11)" -"(lambda(v_148)" +"(lambda(v_104)" "(begin" " 'loop" "(if(let-values(((or-part_171)" "(interned-literal?" -" v_148)))" +" v_104)))" "(if or-part_171" " or-part_171" "(1/module-path-index?" -" v_148)))" +" v_104)))" "(let-values()(void))" "(if(hash-ref" " objs_0" -" v_148" +" v_104" " #f)" "(let-values()" "(if(hash-ref" " mutables_0" -" v_148" +" v_104" " #f)" "(void)" "(let-values()" "(hash-set!" " shares_0" -" v_148" +" v_104" " #t))))" "(let-values()" "(begin" "(if(serialize-fill!?" -" v_148)" +" v_104)" "(let-values()" "(begin" "(hash-set!" " mutables_0" -" v_148" +" v_104" "(hash-count" " mutables_0))" "((serialize-fill!-ref" -" v_148)" -" v_148" +" v_104)" +" v_104" " add-frontier!_0" " state_26)))" "(if(serialize?" -" v_148)" +" v_104)" "(let-values()" "((serialize-ref" -" v_148)" -" v_148" +" v_104)" +" v_104" "(case-lambda" "((sub-v_0)" "(loop_11" @@ -18368,31 +18355,31 @@ static const char *startup_source = " sub-v_1)))" " state_26))" "(if(pair?" -" v_148)" +" v_104)" "(let-values()" "(begin" "(loop_11" "(car" -" v_148))" +" v_104))" "(loop_11" "(cdr" -" v_148))))" +" v_104))))" "(if(vector?" -" v_148)" +" v_104)" "(let-values()" "(if(let-values(((or-part_172)" "(immutable?" -" v_148)))" +" v_104)))" "(if or-part_172" " or-part_172" "(zero?" "(vector-length" -" v_148))))" +" v_104))))" "(begin" "(let-values(((vec_38" " len_15)" "(let-values(((vec_39)" -" v_148))" +" v_104))" "(begin" "(check-vector" " vec_39)" @@ -18402,7 +18389,7 @@ static const char *startup_source = " vec_39))))))" "(begin" " #f" -"((letrec-values(((for-loop_94)" +"((letrec-values(((for-loop_96)" "(lambda(pos_23)" "(begin" " 'for-loop" @@ -18425,26 +18412,26 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_94" +"(for-loop_96" "(unsafe-fx+" " 1" " pos_23))" "(values))))" "(values))))))" -" for-loop_94)" +" for-loop_96)" " 0)))" "(void))" "(begin" "(hash-set!" " mutables_0" -" v_148" +" v_104" "(hash-count" " mutables_0))" "(begin" "(let-values(((vec_40" " len_16)" "(let-values(((vec_41)" -" v_148))" +" v_104))" "(begin" "(check-vector" " vec_41)" @@ -18454,7 +18441,7 @@ static const char *startup_source = " vec_41))))))" "(begin" " #f" -"((letrec-values(((for-loop_123)" +"((letrec-values(((for-loop_125)" "(lambda(pos_24)" "(begin" " 'for-loop" @@ -18477,41 +18464,41 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_123" +"(for-loop_125" "(unsafe-fx+" " 1" " pos_24))" "(values))))" "(values))))))" -" for-loop_123)" +" for-loop_125)" " 0)))" "(void)))))" "(if(box?" -" v_148)" +" v_104)" "(let-values()" "(if(immutable?" -" v_148)" +" v_104)" "(loop_11" "(unbox" -" v_148))" +" v_104))" "(begin" "(hash-set!" " mutables_0" -" v_148" +" v_104" "(hash-count" " mutables_0))" "(add-frontier!_0" "(unbox" -" v_148)))))" +" v_104)))))" "(if(hash?" -" v_148)" +" v_104)" "(let-values()" "(if(immutable?" -" v_148)" +" v_104)" "(begin" "(let-values(((lst_107)" "(sorted-hash-keys" -" v_148)))" +" v_104)))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" @@ -18519,7 +18506,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_107)))" -"((letrec-values(((for-loop_124)" +"((letrec-values(((for-loop_126)" "(lambda(lst_108)" "(begin" " 'for-loop" @@ -18542,29 +18529,29 @@ static const char *startup_source = " k_21)" "(loop_11" "(hash-ref" -" v_148" +" v_104" " k_21))))" "(values)))))" "(values)))))" "(if(not" " #f)" -"(for-loop_124" +"(for-loop_126" " rest_54)" "(values))))" "(values))))))" -" for-loop_124)" +" for-loop_126)" " lst_107)))" "(void))" "(begin" "(hash-set!" " mutables_0" -" v_148" +" v_104" "(hash-count" " mutables_0))" "(begin" "(let-values(((lst_109)" "(sorted-hash-keys" -" v_148)))" +" v_104)))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" @@ -18572,7 +18559,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_109)))" -"((letrec-values(((for-loop_125)" +"((letrec-values(((for-loop_127)" "(lambda(lst_110)" "(begin" " 'for-loop" @@ -18595,21 +18582,21 @@ static const char *startup_source = " k_22)" "(add-frontier!_0" "(hash-ref" -" v_148" +" v_104" " k_22))))" "(values)))))" "(values)))))" "(if(not" " #f)" -"(for-loop_125" +"(for-loop_127" " rest_55)" "(values))))" "(values))))))" -" for-loop_125)" +" for-loop_127)" " lst_109)))" "(void)))))" "(if(prefab-struct-key" -" v_148)" +" v_104)" "(let-values()" "(begin" "(let-values(((v*_2" @@ -18619,20 +18606,20 @@ static const char *startup_source = "(normalise-inputs" " 'in-vector" " \"vector\"" -"(lambda(x_44)" -"(vector?" -" x_44))" "(lambda(x_45)" -"(unsafe-vector-length" +"(vector?" " x_45))" +"(lambda(x_46)" +"(unsafe-vector-length" +" x_46))" "(struct->vector" -" v_148)" +" v_104)" " 1" " #f" " 1)))" "(begin" " #t" -"((letrec-values(((for-loop_126)" +"((letrec-values(((for-loop_128)" "(lambda(idx_1)" "(begin" " 'for-loop" @@ -18655,17 +18642,17 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_126" +"(for-loop_128" "(unsafe-fx+" " idx_1" " 1))" "(values))))" "(values))))))" -" for-loop_126)" +" for-loop_128)" " start*_1)))" "(void)))" "(if(srcloc?" -" v_148)" +" v_104)" "(let-values()" "(begin" "(let-values(((v*_3" @@ -18675,20 +18662,20 @@ static const char *startup_source = "(normalise-inputs" " 'in-vector" " \"vector\"" -"(lambda(x_46)" -"(vector?" -" x_46))" "(lambda(x_47)" -"(unsafe-vector-length" +"(vector?" " x_47))" +"(lambda(x_48)" +"(unsafe-vector-length" +" x_48))" "(struct->vector" -" v_148)" +" v_104)" " 1" " #f" " 1)))" "(begin" " #t" -"((letrec-values(((for-loop_127)" +"((letrec-values(((for-loop_129)" "(lambda(idx_2)" "(begin" " 'for-loop" @@ -18711,26 +18698,26 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_127" +"(for-loop_129" "(unsafe-fx+" " idx_2" " 1))" "(values))))" "(values))))))" -" for-loop_127)" +" for-loop_129)" " start*_2)))" "(void)))" "(let-values()" "(void))))))))))" "(hash-set!" " objs_0" -" v_148" +" v_104" " obj-step_0)" "(set! obj-step_0" "(add1" " obj-step_0))))))))))" " loop_11)" -" v_147)" +" v_102)" "(if(null? frontier_0)" "(void)" "(let-values()" @@ -18744,13 +18731,13 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list lst_111)))" -"((letrec-values(((for-loop_128)" +"((letrec-values(((for-loop_130)" "(lambda(lst_112)" "(begin" " 'for-loop" "(if(pair?" " lst_112)" -"(let-values(((v_149)" +"(let-values(((v_145)" "(unsafe-car" " lst_112))" "((rest_56)" @@ -18763,20 +18750,20 @@ static const char *startup_source = "(begin" "(let-values()" "(frontier-loop_0" -" v_149))" +" v_145))" "(values)))))" "(values)))))" "(if(not" " #f)" -"(for-loop_128" +"(for-loop_130" " rest_56)" "(values))))" "(values))))))" -" for-loop_128)" +" for-loop_130)" " lst_111)))" "(void))))))))))" " frontier-loop_0)" -" v_144)" +" v_143)" "(values))))" "(let-values(((num-mutables_0)(hash-count mutables_0)))" "(let-values(((share-step-positions_0)" @@ -18788,7 +18775,7 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()(check-in-hash-keys ht_88)))" -"((letrec-values(((for-loop_129)" +"((letrec-values(((for-loop_131)" "(lambda(fold-var_105 i_108)" "(begin" " 'for-loop" @@ -18811,14 +18798,14 @@ static const char *startup_source = "(values" " fold-var_108)))))" "(if(not #f)" -"(for-loop_129" +"(for-loop_131" " fold-var_106" "(hash-iterate-next" " ht_88" " i_108))" " fold-var_106)))" " fold-var_105)))))" -" for-loop_129)" +" for-loop_131)" " null" "(hash-iterate-first ht_88)))))))" "(let-values(((lst_113)" @@ -18833,7 +18820,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-naturals start_20)))" -"((letrec-values(((for-loop_130)" +"((letrec-values(((for-loop_132)" "(lambda(table_124 lst_114 pos_25)" "(begin" " 'for-loop" @@ -18860,13 +18847,13 @@ static const char *startup_source = " val_40)))))" "(values table_36)))))" "(if(not #f)" -"(for-loop_130" +"(for-loop_132" " table_125" " rest_57" "(+ pos_25 1))" " table_125)))" " table_124)))))" -" for-loop_130)" +" for-loop_132)" " '#hasheqv()" " lst_113" " start_20))))))" @@ -18878,12 +18865,12 @@ static const char *startup_source = "(lambda(pos_27)" "(begin" " 'quoted?" -"(let-values(((v_150)" +"(let-values(((v_146)" "(list-ref" " stream_0" "(- stream-size_0(add1 pos_27)))))" -"(let-values(((or-part_173)(not(keyword? v_150))))" -"(if or-part_173 or-part_173(eq? '#:quote v_150))))))))" +"(let-values(((or-part_173)(not(keyword? v_146))))" +"(if or-part_173 or-part_173(eq? '#:quote v_146))))))))" "(let-values(((ser-reset!_0)" "(lambda(pos_28)" "(begin" @@ -18902,20 +18889,20 @@ static const char *startup_source = "(set! stream-size_0 0))))))" "(letrec-values(((ser-push!_16)" "(case-lambda" -"((v_151)" +"((v_147)" "(begin" " 'ser-push!" -"(if(hash-ref shares_0 v_151 #f)" +"(if(hash-ref shares_0 v_147 #f)" "(let-values()" "(let-values(((n_22)" "(hash-ref" " share-step-positions_0" -"(hash-ref objs_0 v_151))))" +"(hash-ref objs_0 v_147))))" "(begin" "(ser-push!_16 'tag '#:ref)" "(ser-push!_16 'exact n_22))))" "(let-values(((c1_25)" -"(hash-ref mutables_0 v_151 #f)))" +"(hash-ref mutables_0 v_147 #f)))" "(if c1_25" "((lambda(n_23)" "(begin" @@ -18923,49 +18910,49 @@ static const char *startup_source = "(ser-push!_16 'exact n_23)))" " c1_25)" "(let-values()" -"(ser-push-encoded!_0 v_151)))))))" -"((kind_5 v_152)" +"(ser-push-encoded!_0 v_147)))))))" +"((kind_5 v_148)" "(let-values(((tmp_18) kind_5))" "(if(equal? tmp_18 'exact)" "(let-values()" "(begin" -"(set! stream_0(cons v_152 stream_0))" +"(set! stream_0(cons v_148 stream_0))" "(set! stream-size_0(add1 stream-size_0))))" "(if(equal? tmp_18 'tag)" -"(let-values()(ser-push!_16 'exact v_152))" +"(let-values()(ser-push!_16 'exact v_148))" "(if(equal? tmp_18 'reference)" "(let-values()" -"(if(hash-ref shares_0 v_152 #f)" +"(if(hash-ref shares_0 v_148 #f)" "(let-values()" "(let-values(((n_24)" "(hash-ref" " share-step-positions_0" "(hash-ref" " objs_0" -" v_152))))" +" v_148))))" "(ser-push!_16 'exact n_24)))" "(let-values(((c2_1)" "(hash-ref" " mutables_0" -" v_152" +" v_148" " #f)))" "(if c2_1" "((lambda(n_25)" "(ser-push!_16 'exact n_25))" " c2_1)" "(let-values()" -"(ser-push!_16 v_152))))))" -"(let-values()(ser-push!_16 v_152)))))))))" +"(ser-push!_16 v_148))))))" +"(let-values()(ser-push!_16 v_148)))))))))" "((ser-push-encoded!_0)" -"(lambda(v_153)" +"(lambda(v_149)" "(begin" " 'ser-push-encoded!" -"(if(keyword? v_153)" +"(if(keyword? v_149)" "(let-values()" "(begin" "(ser-push!_16 'tag '#:quote)" -"(ser-push!_16 'exact v_153)))" -"(if(1/module-path-index? v_153)" +"(ser-push!_16 'exact v_149)))" +"(if(1/module-path-index? v_149)" "(let-values()" "(begin" "(ser-push!_16 'tag '#:mpi)" @@ -18973,16 +18960,16 @@ static const char *startup_source = " 'exact" "(add-module-path-index!/pos" " mpis_6" -" v_153))))" -"(if(serialize? v_153)" +" v_149))))" +"(if(serialize? v_149)" "(let-values()" -"((serialize-ref v_153)" -" v_153" +"((serialize-ref v_149)" +" v_149" " ser-push!_16" " state_26))" -"(if(if(list? v_153)" -"(if(pair? v_153)" -"(pair?(cdr v_153))" +"(if(if(list? v_149)" +"(if(pair? v_149)" +"(pair?(cdr v_149))" " #f)" " #f)" "(let-values()" @@ -18998,11 +18985,11 @@ static const char *startup_source = "(begin" "(ser-push!_16" " 'exact" -"(length v_153))" +"(length v_149))" "(values))))" "(let-values(((all-quoted?_0)" "(let-values(((lst_115)" -" v_153))" +" v_149))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" @@ -19010,7 +18997,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_115)))" -"((letrec-values(((for-loop_131)" +"((letrec-values(((for-loop_133)" "(lambda(all-quoted?_1" " lst_116)" "(begin" @@ -19041,12 +19028,12 @@ static const char *startup_source = " all-quoted?_4)))))" "(if(not" " #f)" -"(for-loop_131" +"(for-loop_133" " all-quoted?_2" " rest_58)" " all-quoted?_2)))" " all-quoted?_1)))))" -" for-loop_131)" +" for-loop_133)" " #t" " lst_115)))))" "(if all-quoted?_0" @@ -19056,9 +19043,9 @@ static const char *startup_source = "(ser-push-optional-quote!_0)" "(ser-push!_16" " 'exact" -" v_153)))" +" v_149)))" "(void)))))))" -"(if(pair? v_153)" +"(if(pair? v_149)" "(let-values()" "(let-values(((start-pos_1)" "(next-push-position_0)))" @@ -19073,12 +19060,12 @@ static const char *startup_source = "(let-values((()" "(begin" "(ser-push!_16" -"(car v_153))" +"(car v_149))" "(values))))" "(let-values(((d-pos_0)" "(next-push-position_0)))" "(begin" -"(ser-push!_16(cdr v_153))" +"(ser-push!_16(cdr v_149))" "(if(if(quoted?_0 a-pos_0)" "(quoted?_0 d-pos_0)" " #f)" @@ -19089,9 +19076,9 @@ static const char *startup_source = "(ser-push-optional-quote!_0)" "(ser-push!_16" " 'exact" -" v_153)))" +" v_149)))" "(void)))))))))" -"(if(box? v_153)" +"(if(box? v_149)" "(let-values()" "(let-values(((start-pos_2)" "(next-push-position_0)))" @@ -19104,7 +19091,7 @@ static const char *startup_source = "(let-values(((v-pos_0)" "(next-push-position_0)))" "(begin" -"(ser-push!_16(unbox v_153))" +"(ser-push!_16(unbox v_149))" "(if(quoted?_0 v-pos_0)" "(let-values()" "(begin" @@ -19113,9 +19100,9 @@ static const char *startup_source = "(ser-push-optional-quote!_0)" "(ser-push!_16" " 'exact" -" v_153)))" +" v_149)))" "(void)))))))" -"(if(vector? v_153)" +"(if(vector? v_149)" "(let-values()" "(let-values(((start-pos_3)" "(next-push-position_0)))" @@ -19130,13 +19117,13 @@ static const char *startup_source = "(ser-push!_16" " 'exact" "(vector-length" -" v_153))" +" v_149))" "(values))))" "(let-values(((all-quoted?_5)" "(let-values(((vec_42" " len_17)" "(let-values(((vec_43)" -" v_153))" +" v_149))" "(begin" "(check-vector" " vec_43)" @@ -19194,15 +19181,15 @@ static const char *startup_source = "(ser-push-optional-quote!_0)" "(ser-push!_16" " 'exact" -" v_153)))" +" v_149)))" "(void)))))))" -"(if(hash? v_153)" +"(if(hash? v_149)" "(let-values()" "(let-values(((start-pos_4)" "(next-push-position_0)))" "(let-values(((as-set?_0)" "(let-values(((ht_89)" -" v_153))" +" v_149))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" @@ -19210,8 +19197,8 @@ static const char *startup_source = "(let-values()" "(check-in-hash-values" " ht_89)))" -"((letrec-values(((for-loop_132)" -"(lambda(result_65" +"((letrec-values(((for-loop_134)" +"(lambda(result_66" " i_111)" "(begin" " 'for-loop" @@ -19220,32 +19207,32 @@ static const char *startup_source = "(hash-iterate-value" " ht_89" " i_111)))" -"(let-values(((result_66)" -"(let-values()" "(let-values(((result_67)" "(let-values()" +"(let-values(((result_68)" +"(let-values()" "(let-values()" "(eq?" " val_41" " #t)))))" "(values" -" result_67)))))" +" result_68)))))" "(if(if(not" -"((lambda x_48" +"((lambda x_49" "(not" -" result_66))" +" result_67))" " val_41))" "(not" " #f)" " #f)" -"(for-loop_132" -" result_66" +"(for-loop_134" +" result_67" "(hash-iterate-next" " ht_89" " i_111))" -" result_66)))" -" result_65)))))" -" for-loop_132)" +" result_67)))" +" result_66)))))" +" for-loop_134)" " #t" "(hash-iterate-first" " ht_89))))))" @@ -19255,21 +19242,21 @@ static const char *startup_source = " 'tag" "(if as-set?_0" "(if(hash-eq?" -" v_153)" +" v_149)" "(let-values()" " '#:seteq)" "(if(hash-eqv?" -" v_153)" +" v_149)" "(let-values()" " '#:seteqv)" "(let-values()" " '#:set)))" "(if(hash-eq?" -" v_153)" +" v_149)" "(let-values()" " '#:hasheq)" "(if(hash-eqv?" -" v_153)" +" v_149)" "(let-values()" " '#:hasheqv)" "(let-values()" @@ -19280,11 +19267,11 @@ static const char *startup_source = "(ser-push!_16" " 'exact" "(hash-count" -" v_153))" +" v_149))" "(values))))" "(let-values(((ks_0)" "(sorted-hash-keys" -" v_153)))" +" v_149)))" "(let-values(((all-quoted?_10)" "(let-values(((lst_117)" " ks_0))" @@ -19295,7 +19282,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_117)))" -"((letrec-values(((for-loop_133)" +"((letrec-values(((for-loop_135)" "(lambda(all-quoted?_11" " lst_118)" "(begin" @@ -19328,7 +19315,7 @@ static const char *startup_source = "(let-values()" "(ser-push!_16" "(hash-ref" -" v_153" +" v_149" " k_23))))" "(if all-quoted?_13" "(if(quoted?_0" @@ -19345,12 +19332,12 @@ static const char *startup_source = " all-quoted?_14)))))" "(if(not" " #f)" -"(for-loop_133" +"(for-loop_135" " all-quoted?_12" " rest_59)" " all-quoted?_12)))" " all-quoted?_11)))))" -" for-loop_133)" +" for-loop_135)" " #t" " lst_117)))))" "(if all-quoted?_10" @@ -19361,16 +19348,16 @@ static const char *startup_source = "(ser-push-optional-quote!_0)" "(ser-push!_16" " 'exact" -" v_153)))" +" v_149)))" "(void)))))))))" "(let-values(((c3_0)" "(prefab-struct-key" -" v_153)))" +" v_149)))" "(if c3_0" "((lambda(k_24)" "(let-values(((vec_44)" "(struct->vector" -" v_153)))" +" v_149)))" "(let-values(((start-pos_5)" "(next-push-position_0)))" "(let-values((()" @@ -19401,12 +19388,12 @@ static const char *startup_source = "(normalise-inputs" " 'in-vector" " \"vector\"" -"(lambda(x_49)" -"(vector?" -" x_49))" "(lambda(x_50)" -"(unsafe-vector-length" +"(vector?" " x_50))" +"(lambda(x_51)" +"(unsafe-vector-length" +" x_51))" " vec_44" " 1" " #f" @@ -19461,66 +19448,66 @@ static const char *startup_source = "(ser-push-optional-quote!_0)" "(ser-push!_16" " 'exact" -" v_153)))" +" v_149)))" "(void)))))))))" " c3_0)" -"(if(srcloc? v_153)" +"(if(srcloc? v_149)" "(let-values()" "(begin" "(ser-push!_16" " 'tag" " '#:srcloc)" "(ser-push!_16" -"(srcloc-source v_153))" +"(srcloc-source v_149))" "(ser-push!_16" -"(srcloc-line v_153))" +"(srcloc-line v_149))" "(ser-push!_16" -"(srcloc-column v_153))" +"(srcloc-column v_149))" "(ser-push!_16" -"(srcloc-position v_153))" +"(srcloc-position v_149))" "(ser-push!_16" -"(srcloc-span v_153))))" +"(srcloc-span v_149))))" "(let-values()" "(begin" "(ser-push-optional-quote!_0)" "(ser-push!_16" " 'exact" -" v_153)))))))))))))))))" +" v_149)))))))))))))))))" "((ser-push-optional-quote!_0)" "(lambda()(begin 'ser-push-optional-quote!(void)))))" "(let-values(((ser-shell!_0)" -"(lambda(v_154)" +"(lambda(v_150)" "(begin" " 'ser-shell!" -"(if(serialize-fill!? v_154)" +"(if(serialize-fill!? v_150)" "(let-values()" -"((serialize-ref v_154)" -" v_154" +"((serialize-ref v_150)" +" v_150" " ser-push!_16" " state_26))" -"(if(box? v_154)" +"(if(box? v_150)" "(let-values()(ser-push!_16 'tag '#:box))" -"(if(vector? v_154)" +"(if(vector? v_150)" "(let-values()" "(begin" "(ser-push!_16 'tag '#:vector)" "(ser-push!_16" " 'exact" -"(vector-length v_154))))" -"(if(hash? v_154)" +"(vector-length v_150))))" +"(if(hash? v_150)" "(let-values()" "(ser-push!_16" " 'tag" -"(if(hash-eq? v_154)" +"(if(hash-eq? v_150)" "(let-values() '#:hasheq)" -"(if(hash-eqv? v_154)" +"(if(hash-eqv? v_150)" "(let-values() '#:hasheqv)" "(let-values() '#:hash)))))" "(let-values()" "(error" " 'ser-shell" " \"unknown mutable: ~e\"" -" v_154))))))))))" +" v_150))))))))))" "(let-values(((ser-shell-fill!_0)" "(lambda(v_80)" "(begin" @@ -19554,14 +19541,14 @@ static const char *startup_source = " vec_46))))))" "(begin" " #f" -"((letrec-values(((for-loop_134)" +"((letrec-values(((for-loop_136)" "(lambda(pos_30)" "(begin" " 'for-loop" "(if(unsafe-fx<" " pos_30" " len_18)" -"(let-values(((v_155)" +"(let-values(((v_151)" "(unsafe-vector-ref" " vec_45" " pos_30)))" @@ -19572,18 +19559,18 @@ static const char *startup_source = "(begin" "(let-values()" "(ser-push!_16" -" v_155))" +" v_151))" "(values)))))" "(values)))))" "(if(not" " #f)" -"(for-loop_134" +"(for-loop_136" "(unsafe-fx+" " 1" " pos_30))" "(values))))" "(values))))))" -" for-loop_134)" +" for-loop_136)" " 0)))" "(void)))" "(if(hash? v_80)" @@ -19611,7 +19598,7 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list lst_119)))" -"((letrec-values(((for-loop_135)" +"((letrec-values(((for-loop_137)" "(lambda(lst_120)" "(begin" " 'for-loop" @@ -19640,11 +19627,11 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_135" +"(for-loop_137" " rest_60)" "(values))))" "(values))))))" -" for-loop_135)" +" for-loop_137)" " lst_119)))" "(void))))))" "(let-values()" @@ -19659,13 +19646,13 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()(check-in-hash ht_90)))" -"((letrec-values(((for-loop_136)" +"((letrec-values(((for-loop_138)" "(lambda(table_126 i_113)" "(begin" " 'for-loop" "(if i_113" "(let-values(((k_26" -" v_156)" +" v_152)" "(hash-iterate-key+value" " ht_90" " i_113)))" @@ -19678,7 +19665,7 @@ static const char *startup_source = " val_42)" "(let-values()" "(values" -" v_156" +" v_152" " k_26))))" "(hash-set" " table_60" @@ -19687,14 +19674,14 @@ static const char *startup_source = "(values" " table_127)))))" "(if(not #f)" -"(for-loop_136" +"(for-loop_138" " table_59" "(hash-iterate-next" " ht_90" " i_113))" " table_59)))" " table_126)))))" -" for-loop_136)" +" for-loop_138)" " '#hasheqv()" "(hash-iterate-first ht_90))))))" "(let-values(((mutable-shell-bindings_0)" @@ -19710,7 +19697,7 @@ static const char *startup_source = "(void)" "(let-values()" "(check-range start_21 end_13 inc_7)))" -"((letrec-values(((for-loop_137)" +"((letrec-values(((for-loop_139)" "(lambda(pos_31)" "(begin" " 'for-loop" @@ -19732,13 +19719,13 @@ static const char *startup_source = "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_137" +"(for-loop_139" "(+" " pos_31" " inc_7))" "(values))))" "(values))))))" -" for-loop_137)" +" for-loop_139)" " start_21)))" "(void))" "(reap-stream!_0))))" @@ -19750,7 +19737,7 @@ static const char *startup_source = "(void)" "(let-values()" "(check-in-hash-keys ht_91)))" -"((letrec-values(((for-loop_138)" +"((letrec-values(((for-loop_140)" "(lambda(table_128 i_60)" "(begin" " 'for-loop" @@ -19781,14 +19768,14 @@ static const char *startup_source = "(values" " table_131)))))" "(if(not #f)" -"(for-loop_138" +"(for-loop_140" " table_129" "(hash-iterate-next" " ht_91" " i_60))" " table_129)))" " table_128)))))" -" for-loop_138)" +" for-loop_140)" " '#hasheqv()" "(hash-iterate-first ht_91))))))" "(let-values(((shared-bindings_0)" @@ -19809,7 +19796,7 @@ static const char *startup_source = " start_22" " end_14" " inc_8)))" -"((letrec-values(((for-loop_139)" +"((letrec-values(((for-loop_141)" "(lambda(pos_32)" "(begin" " 'for-loop" @@ -19832,13 +19819,13 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_139" +"(for-loop_141" "(+" " pos_32" " inc_8))" "(values))))" "(values))))))" -" for-loop_139)" +" for-loop_141)" " start_22)))" "(void))" "(reap-stream!_0))))" @@ -19858,7 +19845,7 @@ static const char *startup_source = " start_23" " end_15" " inc_9)))" -"((letrec-values(((for-loop_140)" +"((letrec-values(((for-loop_142)" "(lambda(pos_33)" "(begin" " 'for-loop" @@ -19881,13 +19868,13 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_140" +"(for-loop_142" "(+" " pos_33" " inc_9))" "(values))))" "(values))))))" -" for-loop_140)" +" for-loop_142)" " start_23)))" "(void))" "(reap-stream!_0))))" @@ -19904,7 +19891,7 @@ static const char *startup_source = "(list" " 'quote" "(begin" -"(ser-push!_16 v_144)" +"(ser-push!_16 v_143)" "(reap-stream!_0))))))))))))))))))))))))))))))))))))" "(define-values" "(sorted-hash-keys)" @@ -19948,7 +19935,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-range start_24 end_16 inc_10)))" -"((letrec-values(((for-loop_141)" +"((letrec-values(((for-loop_143)" "(lambda(pos_34 pos_35)" "(begin" " 'for-loop" @@ -19973,9 +19960,9 @@ static const char *startup_source = " d_22)" " next-pos_0)))))" "(values pos_38)))))" -"(if(not #f)(for-loop_141 pos_36(+ pos_35 inc_10)) pos_36)))" +"(if(not #f)(for-loop_143 pos_36(+ pos_35 inc_10)) pos_36)))" " pos_34)))))" -" for-loop_141)" +" for-loop_143)" " 0" " start_24)))" "(values))))" @@ -19988,7 +19975,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-range start_25 end_17 inc_11)))" -"((letrec-values(((for-loop_142)" +"((letrec-values(((for-loop_144)" "(lambda(pos_39 pos_40)" "(begin" " 'for-loop" @@ -20013,9 +20000,9 @@ static const char *startup_source = " d_23)" " next-pos_1)))))" "(values pos_43)))))" -"(if(not #f)(for-loop_142 pos_41(+ pos_40 inc_11)) pos_41)))" +"(if(not #f)(for-loop_144 pos_41(+ pos_40 inc_11)) pos_41)))" " pos_39)))))" -" for-loop_142)" +" for-loop_144)" " 0" " start_25)))" "(values))))" @@ -20034,18 +20021,18 @@ static const char *startup_source = "(void)" "(let-values()(check-range start_26 end_18 inc_12)))" " #f" -"((letrec-values(((for-loop_143)" +"((letrec-values(((for-loop_145)" "(lambda(pos_44 pos_45 pos_46)" "(begin" " 'for-loop" "(if(if(< pos_45 end_18)(unsafe-fx< pos_46 len_19) #f)" -"(let-values(((v_157)(unsafe-vector-ref vec_47 pos_46)))" +"(let-values(((v_153)(unsafe-vector-ref vec_47 pos_46)))" "(let-values(((pos_47)" "(let-values(((pos_48) pos_44))" "(let-values(((pos_49)" "(let-values()" "(decode-fill!" -" v_157" +" v_153" " mutable-fill-vec_0" " pos_48" " mpis_7" @@ -20054,20 +20041,20 @@ static const char *startup_source = " shared_0))))" "(values pos_49)))))" "(if(not #f)" -"(for-loop_143" +"(for-loop_145" " pos_47" "(+ pos_45 inc_12)" "(unsafe-fx+ 1 pos_46))" " pos_47)))" " pos_44)))))" -" for-loop_143)" +" for-loop_145)" " 0" " start_26" " 0)))" "(values))))" -"(let-values(((result_68 done-pos_0)" +"(let-values(((result_69 done-pos_0)" "(decode result-vec_0 0 mpis_7 inspector_6 bulk-binding-registry_5 shared_0)))" -" result_68))))))))" +" result_69))))))))" "(define-values" "(decode-shell)" "(lambda(vec_49 pos_50 mpis_8 inspector_7 bulk-binding-registry_6 shared_1)" @@ -20302,7 +20289,7 @@ static const char *startup_source = "(if(unsafe-fx< index_0 10)" "(let-values()(values(vector*-ref mpis_9(vector*-ref vec_50(add1 pos_51)))(+ pos_51 2)))" "(let-values()" -"(let-values(((v_158 next-pos_18)" +"(let-values(((v_154 next-pos_18)" "(decode" " vec_50" "(add1 pos_51)" @@ -20310,7 +20297,7 @@ static const char *startup_source = " inspector_8" " bulk-binding-registry_7" " shared_2)))" -"(values(box-immutable v_158) next-pos_18))))" +"(values(box-immutable v_154) next-pos_18))))" "(if(unsafe-fx< index_0 12)" "(let-values()" "(let-values(((a_39 next-pos_19)" @@ -20340,7 +20327,7 @@ 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_144)" +"((letrec-values(((for-loop_146)" "(lambda(pos_52 pos_53)" "(begin" " 'for-loop" @@ -20350,9 +20337,9 @@ static const char *startup_source = "(let-values(((pos_55) pos_52))" "(let-values(((pos_56)" "(let-values()" -"(let-values(((v_159" +"(let-values(((v_155" " next-pos_22)" -"(let-values(((v_160" +"(let-values(((v_156" " next-pos_23)" "(decode" " vec_50" @@ -20362,20 +20349,20 @@ static const char *startup_source = " bulk-binding-registry_7" " shared_2)))" "(values" -" v_160" +" v_156" " next-pos_23))))" "(begin" "(vector-set!" " r_29" " i_124" -" v_159)" +" v_155)" " next-pos_22)))))" "(values pos_56)))))" "(if(not #f)" -"(for-loop_144 pos_54(+ pos_53 inc_13))" +"(for-loop_146 pos_54(+ pos_53 inc_13))" " pos_54)))" " pos_52)))))" -" for-loop_144)" +" for-loop_146)" "(+ pos_51 2)" " start_27)))))" "(values" @@ -20399,7 +20386,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-range start_28 end_20 inc_14)))" -"((letrec-values(((for-loop_145)" +"((letrec-values(((for-loop_147)" "(lambda(ht_93 pos_57 pos_58)" "(begin" " 'for-loop" @@ -20419,7 +20406,7 @@ static const char *startup_source = " inspector_8" " bulk-binding-registry_7" " shared_2)))" -"(let-values(((v_161" +"(let-values(((v_157" " next-pos_25)" "(decode" " vec_50" @@ -20432,14 +20419,14 @@ static const char *startup_source = "(hash-set" " ht_95" " k_27" -" v_161)" +" v_157)" " next-pos_25))))))" "(values ht_96 pos_61)))))" "(if(not #f)" -"(for-loop_145 ht_94 pos_59(+ pos_58 inc_14))" +"(for-loop_147 ht_94 pos_59(+ pos_58 inc_14))" "(values ht_94 pos_59))))" "(values ht_93 pos_57))))))" -" for-loop_145)" +" for-loop_147)" " ht_55" "(+ pos_51 2)" " start_28)))))))))))" @@ -20462,7 +20449,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-range start_29 end_21 inc_15)))" -"((letrec-values(((for-loop_146)" +"((letrec-values(((for-loop_148)" "(lambda(s_193 pos_62 pos_63)" "(begin" " 'for-loop" @@ -20485,10 +20472,10 @@ static const char *startup_source = " next-pos_26)))))" "(values s_196 pos_66)))))" "(if(not #f)" -"(for-loop_146 s_194 pos_64(+ pos_63 inc_15))" +"(for-loop_148 s_194 pos_64(+ pos_63 inc_15))" "(values s_194 pos_64))))" "(values s_193 pos_62))))))" -" for-loop_146)" +" for-loop_148)" " s_192" "(+ pos_51 2)" " start_29))))))" @@ -20511,7 +20498,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-range start_30 end_22 inc_16)))" -"((letrec-values(((for-loop_147)" +"((letrec-values(((for-loop_149)" "(lambda(r_31 pos_67 pos_68)" "(begin" " 'for-loop" @@ -20522,7 +20509,7 @@ static const char *startup_source = "((pos_70) pos_67))" "(let-values(((r_34 pos_71)" "(let-values()" -"(let-values(((v_162" +"(let-values(((v_158" " next-pos_29)" "(decode" " vec_50" @@ -20533,15 +20520,15 @@ static const char *startup_source = " shared_2)))" "(values" "(cons" -" v_162" +" v_158" " r_33)" " next-pos_29)))))" "(values r_34 pos_71)))))" "(if(not #f)" -"(for-loop_147 r_32 pos_69(+ pos_68 inc_16))" +"(for-loop_149 r_32 pos_69(+ pos_68 inc_16))" "(values r_32 pos_69))))" "(values r_31 pos_67))))))" -" for-loop_147)" +" for-loop_149)" " null" "(add1 next-pos_27)" " start_30)))))" @@ -20583,7 +20570,7 @@ static const char *startup_source = " shared_2)))" "(values(deserialize-multi-scope name_38 scopes_21) next-pos_33))))" "(let-values()" -"(let-values(((phase_49 next-pos_34)" +"(let-values(((phase_48 next-pos_34)" "(decode" " vec_50" "(add1 pos_51)" @@ -20599,7 +20586,7 @@ static const char *startup_source = " inspector_8" " bulk-binding-registry_7" " shared_2)))" -"(values(deserialize-shifted-multi-scope phase_49 multi-scope_2) next-pos_35))))))))" +"(values(deserialize-shifted-multi-scope phase_48 multi-scope_2) next-pos_35))))))))" "(if(unsafe-fx< index_0 24)" "(if(unsafe-fx< index_0 22)" "(let-values()" @@ -20636,7 +20623,7 @@ static const char *startup_source = " inspector_8" " bulk-binding-registry_7" " shared_2)))" -"(let-values(((phase_50 next-pos_41)" +"(let-values(((phase_49 next-pos_41)" "(decode" " vec_50" " next-pos_40" @@ -20644,7 +20631,7 @@ static const char *startup_source = " inspector_8" " bulk-binding-registry_7" " shared_2)))" -"(values(deserialize-representative-scope kind_7 phase_50) next-pos_41))))))" +"(values(deserialize-representative-scope kind_7 phase_49) next-pos_41))))))" "(if(unsafe-fx< index_0 26)" "(if(unsafe-fx< index_0 25)" "(let-values()" @@ -20664,7 +20651,7 @@ static const char *startup_source = " inspector_8" " bulk-binding-registry_7" " shared_2)))" -"(let-values(((phase_51 next-pos_44)" +"(let-values(((phase_50 next-pos_44)" "(decode" " vec_50" " next-pos_43" @@ -20732,7 +20719,7 @@ static const char *startup_source = "(deserialize-full-module-binding" " module_4" " sym_32" -" phase_51" +" phase_50" " nominal-module_4" " nominal-phase_3" " nominal-sym_3" @@ -20758,7 +20745,7 @@ static const char *startup_source = " inspector_8" " bulk-binding-registry_7" " shared_2)))" -"(let-values(((phase_52 next-pos_54)" +"(let-values(((phase_51 next-pos_54)" "(decode" " vec_50" " next-pos_53" @@ -20775,7 +20762,7 @@ static const char *startup_source = " bulk-binding-registry_7" " shared_2)))" "(values" -"(deserialize-simple-module-binding module_5 sym_33 phase_52 nominal-module_5)" +"(deserialize-simple-module-binding module_5 sym_33 phase_51 nominal-module_5)" " next-pos_55)))))))" "(if(unsafe-fx< index_0 27)" "(let-values()" @@ -20885,7 +20872,7 @@ static const char *startup_source = " next-pos_66)))))))))))))))))" "(define-values" "(decode-fill!)" -"(lambda(v_163 vec_51 pos_72 mpis_10 inspector_9 bulk-binding-registry_9 shared_3)" +"(lambda(v_159 vec_51 pos_72 mpis_10 inspector_9 bulk-binding-registry_9 shared_3)" "(begin" "(let-values(((tmp_23)(vector*-ref vec_51 pos_72)))" "(if(equal? tmp_23 #f)" @@ -20894,7 +20881,7 @@ static const char *startup_source = "(let-values()" "(let-values(((c_21 next-pos_67)" "(decode vec_51(add1 pos_72) mpis_10 inspector_9 bulk-binding-registry_9 shared_3)))" -"(begin(set-box! v_163 c_21) next-pos_67)))" +"(begin(set-box! v_159 c_21) next-pos_67)))" "(if(equal? tmp_23 '#:set-vector!)" "(let-values()" "(let-values(((len_24)(vector*-ref vec_51(add1 pos_72))))" @@ -20903,7 +20890,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-range start_31 end_23 inc_17)))" -"((letrec-values(((for-loop_148)" +"((letrec-values(((for-loop_150)" "(lambda(pos_73 pos_74)" "(begin" " 'for-loop" @@ -20922,12 +20909,12 @@ static const char *startup_source = " bulk-binding-registry_9" " shared_3)))" "(begin" -"(vector-set! v_163 i_78 c_22)" +"(vector-set! v_159 i_78 c_22)" " next-pos_68)))))" "(values pos_77)))))" -"(if(not #f)(for-loop_148 pos_75(+ pos_74 inc_17)) pos_75)))" +"(if(not #f)(for-loop_150 pos_75(+ pos_74 inc_17)) pos_75)))" " pos_73)))))" -" for-loop_148)" +" for-loop_150)" "(+ pos_72 2)" " start_31)))))" "(if(equal? tmp_23 '#:set-hash!)" @@ -20938,7 +20925,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-range start_32 end_24 inc_18)))" -"((letrec-values(((for-loop_149)" +"((letrec-values(((for-loop_151)" "(lambda(pos_78 pos_79)" "(begin" " 'for-loop" @@ -20965,30 +20952,30 @@ static const char *startup_source = " bulk-binding-registry_9" " shared_3)))" "(begin" -"(hash-set! v_163 key_52 val_44)" +"(hash-set! v_159 key_52 val_44)" " done-pos_2))))))" "(values pos_82)))))" -"(if(not #f)(for-loop_149 pos_80(+ pos_79 inc_18)) pos_80)))" +"(if(not #f)(for-loop_151 pos_80(+ pos_79 inc_18)) pos_80)))" " pos_78)))))" -" for-loop_149)" +" for-loop_151)" "(+ pos_72 2)" " start_32)))))" "(if(equal? tmp_23 '#:scope-fill!)" "(let-values()" "(let-values(((c_23 next-pos_70)" "(decode vec_51(add1 pos_72) mpis_10 inspector_9 bulk-binding-registry_9 shared_3)))" -"(begin(deserialize-scope-fill! v_163 c_23) next-pos_70)))" +"(begin(deserialize-scope-fill! v_159 c_23) next-pos_70)))" "(if(equal? tmp_23 '#:representative-scope-fill!)" "(let-values()" "(let-values(((a_40 next-pos_71)" "(decode vec_51(add1 pos_72) mpis_10 inspector_9 bulk-binding-registry_9 shared_3)))" "(let-values(((d_25 done-pos_3)" "(decode vec_51 next-pos_71 mpis_10 inspector_9 bulk-binding-registry_9 shared_3)))" -"(begin(deserialize-representative-scope-fill! v_163 a_40 d_25) done-pos_3))))" +"(begin(deserialize-representative-scope-fill! v_159 a_40 d_25) done-pos_3))))" " (let-values () (error 'deserialize \"bad fill encoding: ~v\" (vector*-ref vec_51 pos_72)))))))))))))" "(define-values" "(find-reachable-scopes)" -"(lambda(v_164)" +"(lambda(v_160)" "(begin" "(let-values(((seen_22)(make-hasheq)))" "(let-values(((reachable-scopes_5)(seteq)))" @@ -20996,27 +20983,27 @@ static const char *startup_source = "(let-values(((scope-triggers_0)(make-hasheq)))" "(begin" "((letrec-values(((loop_86)" -"(lambda(v_165)" +"(lambda(v_161)" "(begin" " 'loop" -"(if(interned-literal? v_165)" +"(if(interned-literal? v_161)" "(let-values()(void))" -"(if(hash-ref seen_22 v_165 #f)" +"(if(hash-ref seen_22 v_161 #f)" "(let-values()(void))" "(let-values()" "(begin" -"(hash-set! seen_22 v_165 #t)" -"(if(scope-with-bindings? v_165)" +"(hash-set! seen_22 v_161 #t)" +"(if(scope-with-bindings? v_161)" "(let-values()" "(begin" -"(set! reachable-scopes_5(set-add reachable-scopes_5 v_165))" -"((reach-scopes-ref v_165) v_165 loop_86)" -"(let-values(((lst_68)(hash-ref scope-triggers_0 v_165 null)))" +"(set! reachable-scopes_5(set-add reachable-scopes_5 v_161))" +"((reach-scopes-ref v_161) v_161 loop_86)" +"(let-values(((lst_68)(hash-ref scope-triggers_0 v_161 null)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_68)))" -"((letrec-values(((for-loop_150)" +"((letrec-values(((for-loop_152)" "(lambda(lst_121)" "(begin" " 'for-loop" @@ -21036,15 +21023,15 @@ static const char *startup_source = "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_150 rest_61)" +"(for-loop_152 rest_61)" "(values))))" "(values))))))" -" for-loop_150)" +" for-loop_152)" " lst_68)))" "(void)" -"(hash-remove! scope-triggers_0 v_165)" -"((scope-with-bindings-ref v_165)" -" v_165" +"(hash-remove! scope-triggers_0 v_161)" +"((scope-with-bindings-ref v_161)" +" v_161" " get-reachable-scopes_4" " loop_86" "(lambda(sc-unreachable_0 b_68)" @@ -21053,15 +21040,15 @@ static const char *startup_source = " sc-unreachable_0" "(lambda(l_51)(cons b_68 l_51))" " null)))))" -"(if(reach-scopes? v_165)" -"(let-values()((reach-scopes-ref v_165) v_165 loop_86))" -"(if(pair? v_165)" -"(let-values()(begin(loop_86(car v_165))(loop_86(cdr v_165))))" -"(if(vector? v_165)" +"(if(reach-scopes? v_161)" +"(let-values()((reach-scopes-ref v_161) v_161 loop_86))" +"(if(pair? v_161)" +"(let-values()(begin(loop_86(car v_161))(loop_86(cdr v_161))))" +"(if(vector? v_161)" "(let-values()" "(begin" "(let-values(((vec_52 len_26)" -"(let-values(((vec_53) v_165))" +"(let-values(((vec_53) v_161))" "(begin" "(check-vector vec_53)" "(values" @@ -21069,7 +21056,7 @@ static const char *startup_source = "(unsafe-vector-length vec_53))))))" "(begin" " #f" -"((letrec-values(((for-loop_151)" +"((letrec-values(((for-loop_153)" "(lambda(pos_83)" "(begin" " 'for-loop" @@ -21089,30 +21076,30 @@ static const char *startup_source = "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_151" +"(for-loop_153" "(unsafe-fx+ 1 pos_83))" "(values))))" "(values))))))" -" for-loop_151)" +" for-loop_153)" " 0)))" "(void)))" -"(if(box? v_165)" -"(let-values()(loop_86(unbox v_165)))" -"(if(hash? v_165)" +"(if(box? v_161)" +"(let-values()(loop_86(unbox v_161)))" +"(if(hash? v_161)" "(let-values()" "(begin" -"(let-values(((ht_97) v_165))" +"(let-values(((ht_97) v_161))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()(check-in-hash ht_97)))" -"((letrec-values(((for-loop_152)" +"((letrec-values(((for-loop_154)" "(lambda(i_125)" "(begin" " 'for-loop" "(if i_125" -"(let-values(((k_30 v_166)" +"(let-values(((k_30 v_162)" "(hash-iterate-key+value" " ht_97" " i_125)))" @@ -21126,36 +21113,36 @@ static const char *startup_source = "(loop_86" " k_30)" "(loop_86" -" v_166)))" +" v_162)))" "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_152" +"(for-loop_154" "(hash-iterate-next" " ht_97" " i_125))" "(values))))" "(values))))))" -" for-loop_152)" +" for-loop_154)" "(hash-iterate-first ht_97))))" "(void)))" -"(if(prefab-struct-key v_165)" +"(if(prefab-struct-key v_161)" "(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_165)" +"(lambda(x_52)(vector? x_52))" +"(lambda(x_53)" +"(unsafe-vector-length x_53))" +"(struct->vector v_161)" " 1" " #f" " 1)))" "(begin" " #t" -"((letrec-values(((for-loop_153)" +"((letrec-values(((for-loop_155)" "(lambda(idx_4)" "(begin" " 'for-loop" @@ -21175,18 +21162,18 @@ static const char *startup_source = "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_153" +"(for-loop_155" "(unsafe-fx+ idx_4 1))" "(values))))" "(values))))))" -" for-loop_153)" +" for-loop_155)" " start*_4)))" "(void)))" -"(if(srcloc? v_165)" -"(let-values()(loop_86(srcloc-source v_165)))" +"(if(srcloc? v_161)" +"(let-values()(loop_86(srcloc-source v_161)))" "(let-values()(void))))))))))))))))))" " loop_86)" -" v_164)" +" v_160)" " reachable-scopes_5))))))))" "(define-values" "(deserialize-imports)" @@ -21266,7 +21253,7 @@ static const char *startup_source = "(make-struct-field-accessor -ref_1 1 'inspector))))" "(define-values" "(struct:parsed-primitive-id parsed-primitive-id3.1 parsed-primitive-id?)" -"(let-values(((struct:_37 make-_37 ?_37 -ref_37 -set!_37)" +"(let-values(((struct:_43 make-_43 ?_43 -ref_43 -set!_43)" "(let-values()" "(let-values()" "(make-struct-type" @@ -21281,7 +21268,7 @@ static const char *startup_source = " '()" " #f" " 'parsed-primitive-id)))))" -"(values struct:_37 make-_37 ?_37)))" +"(values struct:_43 make-_43 ?_43)))" "(define-values" "(struct:parsed-top-id parsed-top-id4.1 parsed-top-id?)" "(let-values(((struct:_10 make-_10 ?_10 -ref_10 -set!_10)" @@ -21302,7 +21289,7 @@ static const char *startup_source = "(values struct:_10 make-_10 ?_10)))" "(define-values" "(struct:parsed-lambda parsed-lambda5.1 parsed-lambda? parsed-lambda-keys parsed-lambda-body)" -"(let-values(((struct:_44 make-_44 ?_44 -ref_44 -set!_44)" +"(let-values(((struct:_42 make-_42 ?_42 -ref_42 -set!_42)" "(let-values()" "(let-values()" "(make-struct-type" @@ -21318,14 +21305,14 @@ static const char *startup_source = " #f" " 'parsed-lambda)))))" "(values" -" struct:_44" -" make-_44" -" ?_44" -"(make-struct-field-accessor -ref_44 0 'keys)" -"(make-struct-field-accessor -ref_44 1 'body))))" +" struct:_42" +" make-_42" +" ?_42" +"(make-struct-field-accessor -ref_42 0 'keys)" +"(make-struct-field-accessor -ref_42 1 'body))))" "(define-values" "(struct:parsed-case-lambda parsed-case-lambda6.1 parsed-case-lambda? parsed-case-lambda-clauses)" -"(let-values(((struct:_45 make-_45 ?_45 -ref_45 -set!_45)" +"(let-values(((struct:_44 make-_44 ?_44 -ref_44 -set!_44)" "(let-values()" "(let-values()" "(make-struct-type" @@ -21340,10 +21327,10 @@ static const char *startup_source = " '(0)" " #f" " 'parsed-case-lambda)))))" -"(values struct:_45 make-_45 ?_45(make-struct-field-accessor -ref_45 0 'clauses))))" +"(values struct:_44 make-_44 ?_44(make-struct-field-accessor -ref_44 0 'clauses))))" "(define-values" "(struct:parsed-app parsed-app7.1 parsed-app? parsed-app-rator parsed-app-rands)" -"(let-values(((struct:_46 make-_46 ?_46 -ref_46 -set!_46)" +"(let-values(((struct:_45 make-_45 ?_45 -ref_45 -set!_45)" "(let-values()" "(let-values()" "(make-struct-type" @@ -21359,14 +21346,14 @@ static const char *startup_source = " #f" " 'parsed-app)))))" "(values" -" struct:_46" -" make-_46" -" ?_46" -"(make-struct-field-accessor -ref_46 0 'rator)" -"(make-struct-field-accessor -ref_46 1 'rands))))" +" struct:_45" +" make-_45" +" ?_45" +"(make-struct-field-accessor -ref_45 0 'rator)" +"(make-struct-field-accessor -ref_45 1 'rands))))" "(define-values" "(struct:parsed-if parsed-if8.1 parsed-if? parsed-if-tst parsed-if-thn parsed-if-els)" -"(let-values(((struct:_47 make-_47 ?_47 -ref_47 -set!_47)" +"(let-values(((struct:_46 make-_46 ?_46 -ref_46 -set!_46)" "(let-values()" "(let-values()" "(make-struct-type" @@ -21382,15 +21369,15 @@ static const char *startup_source = " #f" " 'parsed-if)))))" "(values" -" struct:_47" -" make-_47" -" ?_47" -"(make-struct-field-accessor -ref_47 0 'tst)" -"(make-struct-field-accessor -ref_47 1 'thn)" -"(make-struct-field-accessor -ref_47 2 'els))))" +" struct:_46" +" make-_46" +" ?_46" +"(make-struct-field-accessor -ref_46 0 'tst)" +"(make-struct-field-accessor -ref_46 1 'thn)" +"(make-struct-field-accessor -ref_46 2 'els))))" "(define-values" "(struct:parsed-set! parsed-set!9.1 parsed-set!? parsed-set!-id parsed-set!-rhs)" -"(let-values(((struct:_48 make-_48 ?_48 -ref_48 -set!_48)" +"(let-values(((struct:_47 make-_47 ?_47 -ref_47 -set!_47)" "(let-values()" "(let-values()" "(make-struct-type" @@ -21406,11 +21393,11 @@ static const char *startup_source = " #f" " 'parsed-set!)))))" "(values" -" struct:_48" -" make-_48" -" ?_48" -"(make-struct-field-accessor -ref_48 0 'id)" -"(make-struct-field-accessor -ref_48 1 'rhs))))" +" struct:_47" +" make-_47" +" ?_47" +"(make-struct-field-accessor -ref_47 0 'id)" +"(make-struct-field-accessor -ref_47 1 'rhs))))" "(define-values" "(struct:parsed-with-continuation-mark" " parsed-with-continuation-mark10.1" @@ -21418,7 +21405,7 @@ static const char *startup_source = " parsed-with-continuation-mark-key" " parsed-with-continuation-mark-val" " parsed-with-continuation-mark-body)" -"(let-values(((struct:_49 make-_49 ?_49 -ref_49 -set!_49)" +"(let-values(((struct:_48 make-_48 ?_48 -ref_48 -set!_48)" "(let-values()" "(let-values()" "(make-struct-type" @@ -21434,18 +21421,18 @@ static const char *startup_source = " #f" " 'parsed-with-continuation-mark)))))" "(values" -" struct:_49" -" make-_49" -" ?_49" -"(make-struct-field-accessor -ref_49 0 'key)" -"(make-struct-field-accessor -ref_49 1 'val)" -"(make-struct-field-accessor -ref_49 2 'body))))" +" struct:_48" +" make-_48" +" ?_48" +"(make-struct-field-accessor -ref_48 0 'key)" +"(make-struct-field-accessor -ref_48 1 'val)" +"(make-struct-field-accessor -ref_48 2 'body))))" "(define-values" "(struct:parsed-#%variable-reference" " parsed-#%variable-reference11.1" " parsed-#%variable-reference?" " parsed-#%variable-reference-id)" -"(let-values(((struct:_50 make-_50 ?_50 -ref_50 -set!_50)" +"(let-values(((struct:_49 make-_49 ?_49 -ref_49 -set!_49)" "(let-values()" "(let-values()" "(make-struct-type" @@ -21460,10 +21447,10 @@ static const char *startup_source = " '(0)" " #f" " 'parsed-#%variable-reference)))))" -"(values struct:_50 make-_50 ?_50(make-struct-field-accessor -ref_50 0 'id))))" +"(values struct:_49 make-_49 ?_49(make-struct-field-accessor -ref_49 0 'id))))" "(define-values" "(struct:parsed-begin parsed-begin12.1 parsed-begin? parsed-begin-body)" -"(let-values(((struct:_51 make-_51 ?_51 -ref_51 -set!_51)" +"(let-values(((struct:_50 make-_50 ?_50 -ref_50 -set!_50)" "(let-values()" "(let-values()" "(make-struct-type" @@ -21478,10 +21465,10 @@ static const char *startup_source = " '(0)" " #f" " 'parsed-begin)))))" -"(values struct:_51 make-_51 ?_51(make-struct-field-accessor -ref_51 0 'body))))" +"(values struct:_50 make-_50 ?_50(make-struct-field-accessor -ref_50 0 'body))))" "(define-values" "(struct:parsed-begin0 parsed-begin013.1 parsed-begin0? parsed-begin0-body)" -"(let-values(((struct:_52 make-_52 ?_52 -ref_52 -set!_52)" +"(let-values(((struct:_51 make-_51 ?_51 -ref_51 -set!_51)" "(let-values()" "(let-values()" "(make-struct-type" @@ -21496,10 +21483,10 @@ static const char *startup_source = " '(0)" " #f" " 'parsed-begin0)))))" -"(values struct:_52 make-_52 ?_52(make-struct-field-accessor -ref_52 0 'body))))" +"(values struct:_51 make-_51 ?_51(make-struct-field-accessor -ref_51 0 'body))))" "(define-values" "(struct:parsed-quote parsed-quote14.1 parsed-quote? parsed-quote-datum)" -"(let-values(((struct:_53 make-_53 ?_53 -ref_53 -set!_53)" +"(let-values(((struct:_52 make-_52 ?_52 -ref_52 -set!_52)" "(let-values()" "(let-values()" "(make-struct-type" @@ -21514,10 +21501,10 @@ static const char *startup_source = " '(0)" " #f" " 'parsed-quote)))))" -"(values struct:_53 make-_53 ?_53(make-struct-field-accessor -ref_53 0 'datum))))" +"(values struct:_52 make-_52 ?_52(make-struct-field-accessor -ref_52 0 'datum))))" "(define-values" "(struct:parsed-quote-syntax parsed-quote-syntax15.1 parsed-quote-syntax? parsed-quote-syntax-datum)" -"(let-values(((struct:_54 make-_54 ?_54 -ref_54 -set!_54)" +"(let-values(((struct:_53 make-_53 ?_53 -ref_53 -set!_53)" "(let-values()" "(let-values()" "(make-struct-type" @@ -21532,7 +21519,7 @@ static const char *startup_source = " '(0)" " #f" " 'parsed-quote-syntax)))))" -"(values struct:_54 make-_54 ?_54(make-struct-field-accessor -ref_54 0 'datum))))" +"(values struct:_53 make-_53 ?_53(make-struct-field-accessor -ref_53 0 'datum))))" "(define-values" "(struct:parsed-let_-values" " parsed-let_-values16.1" @@ -21540,7 +21527,7 @@ static const char *startup_source = " parsed-let_-values-idss" " parsed-let_-values-clauses" " parsed-let_-values-body)" -"(let-values(((struct:_55 make-_55 ?_55 -ref_55 -set!_55)" +"(let-values(((struct:_54 make-_54 ?_54 -ref_54 -set!_54)" "(let-values()" "(let-values()" "(make-struct-type" @@ -21556,15 +21543,15 @@ static const char *startup_source = " #f" " 'parsed-let_-values)))))" "(values" -" struct:_55" -" make-_55" -" ?_55" -"(make-struct-field-accessor -ref_55 0 'idss)" -"(make-struct-field-accessor -ref_55 1 'clauses)" -"(make-struct-field-accessor -ref_55 2 'body))))" +" struct:_54" +" make-_54" +" ?_54" +"(make-struct-field-accessor -ref_54 0 'idss)" +"(make-struct-field-accessor -ref_54 1 'clauses)" +"(make-struct-field-accessor -ref_54 2 'body))))" "(define-values" "(struct:parsed-let-values parsed-let-values17.1 parsed-let-values?)" -"(let-values(((struct:_56 make-_56 ?_56 -ref_56 -set!_56)" +"(let-values(((struct:_55 make-_55 ?_55 -ref_55 -set!_55)" "(let-values()" "(let-values()" "(make-struct-type" @@ -21579,10 +21566,10 @@ static const char *startup_source = " '()" " #f" " 'parsed-let-values)))))" -"(values struct:_56 make-_56 ?_56)))" +"(values struct:_55 make-_55 ?_55)))" "(define-values" "(struct:parsed-letrec-values parsed-letrec-values18.1 parsed-letrec-values?)" -"(let-values(((struct:_57 make-_57 ?_57 -ref_57 -set!_57)" +"(let-values(((struct:_56 make-_56 ?_56 -ref_56 -set!_56)" "(let-values()" "(let-values()" "(make-struct-type" @@ -21597,7 +21584,7 @@ static const char *startup_source = " '()" " #f" " 'parsed-letrec-values)))))" -"(values struct:_57 make-_57 ?_57)))" +"(values struct:_56 make-_56 ?_56)))" "(define-values" "(struct:parsed-define-values" " parsed-define-values19.1" @@ -21605,7 +21592,7 @@ static const char *startup_source = " parsed-define-values-ids" " parsed-define-values-syms" " parsed-define-values-rhs)" -"(let-values(((struct:_58 make-_58 ?_58 -ref_58 -set!_58)" +"(let-values(((struct:_57 make-_57 ?_57 -ref_57 -set!_57)" "(let-values()" "(let-values()" "(make-struct-type" @@ -21621,12 +21608,12 @@ static const char *startup_source = " #f" " 'parsed-define-values)))))" "(values" -" struct:_58" -" make-_58" -" ?_58" -"(make-struct-field-accessor -ref_58 0 'ids)" -"(make-struct-field-accessor -ref_58 1 'syms)" -"(make-struct-field-accessor -ref_58 2 'rhs))))" +" struct:_57" +" make-_57" +" ?_57" +"(make-struct-field-accessor -ref_57 0 'ids)" +"(make-struct-field-accessor -ref_57 1 'syms)" +"(make-struct-field-accessor -ref_57 2 'rhs))))" "(define-values" "(struct:parsed-define-syntaxes" " parsed-define-syntaxes20.1" @@ -21634,7 +21621,7 @@ static const char *startup_source = " parsed-define-syntaxes-ids" " parsed-define-syntaxes-syms" " parsed-define-syntaxes-rhs)" -"(let-values(((struct:_59 make-_59 ?_59 -ref_59 -set!_59)" +"(let-values(((struct:_58 make-_58 ?_58 -ref_58 -set!_58)" "(let-values()" "(let-values()" "(make-struct-type" @@ -21650,15 +21637,15 @@ static const char *startup_source = " #f" " 'parsed-define-syntaxes)))))" "(values" -" struct:_59" -" make-_59" -" ?_59" -"(make-struct-field-accessor -ref_59 0 'ids)" -"(make-struct-field-accessor -ref_59 1 'syms)" -"(make-struct-field-accessor -ref_59 2 'rhs))))" +" struct:_58" +" make-_58" +" ?_58" +"(make-struct-field-accessor -ref_58 0 'ids)" +"(make-struct-field-accessor -ref_58 1 'syms)" +"(make-struct-field-accessor -ref_58 2 'rhs))))" "(define-values" "(struct:parsed-begin-for-syntax parsed-begin-for-syntax21.1 parsed-begin-for-syntax? parsed-begin-for-syntax-body)" -"(let-values(((struct:_60 make-_60 ?_60 -ref_60 -set!_60)" +"(let-values(((struct:_59 make-_59 ?_59 -ref_59 -set!_59)" "(let-values()" "(let-values()" "(make-struct-type" @@ -21673,10 +21660,10 @@ static const char *startup_source = " '(0)" " #f" " 'parsed-begin-for-syntax)))))" -"(values struct:_60 make-_60 ?_60(make-struct-field-accessor -ref_60 0 'body))))" +"(values struct:_59 make-_59 ?_59(make-struct-field-accessor -ref_59 0 'body))))" "(define-values" "(struct:parsed-#%declare parsed-#%declare22.1 parsed-#%declare?)" -"(let-values(((struct:_61 make-_61 ?_61 -ref_61 -set!_61)" +"(let-values(((struct:_60 make-_60 ?_60 -ref_60 -set!_60)" "(let-values()" "(let-values()" "(make-struct-type" @@ -21691,10 +21678,10 @@ static const char *startup_source = " '()" " #f" " 'parsed-#%declare)))))" -"(values struct:_61 make-_61 ?_61)))" +"(values struct:_60 make-_60 ?_60)))" "(define-values" "(struct:parsed-require parsed-require23.1 parsed-require?)" -"(let-values(((struct:_62 make-_62 ?_62 -ref_62 -set!_62)" +"(let-values(((struct:_61 make-_61 ?_61 -ref_61 -set!_61)" "(let-values()" "(let-values()" "(make-struct-type" @@ -21709,10 +21696,10 @@ static const char *startup_source = " '()" " #f" " 'parsed-require)))))" -"(values struct:_62 make-_62 ?_62)))" +"(values struct:_61 make-_61 ?_61)))" "(define-values" "(struct:parsed-#%module-begin parsed-#%module-begin24.1 parsed-#%module-begin? parsed-#%module-begin-body)" -"(let-values(((struct:_63 make-_63 ?_63 -ref_63 -set!_63)" +"(let-values(((struct:_62 make-_62 ?_62 -ref_62 -set!_62)" "(let-values()" "(let-values()" "(make-struct-type" @@ -21727,7 +21714,7 @@ static const char *startup_source = " '(0)" " #f" " 'parsed-#%module-begin)))))" -"(values struct:_63 make-_63 ?_63(make-struct-field-accessor -ref_63 0 'body))))" +"(values struct:_62 make-_62 ?_62(make-struct-field-accessor -ref_62 0 'body))))" "(define-values" "(struct:parsed-module" " parsed-module25.1" @@ -21742,7 +21729,7 @@ static const char *startup_source = " parsed-module-body" " parsed-module-compiled-module" " parsed-module-compiled-submodules)" -"(let-values(((struct:_64 make-_64 ?_64 -ref_64 -set!_64)" +"(let-values(((struct:_63 make-_63 ?_63 -ref_63 -set!_63)" "(let-values()" "(let-values()" "(make-struct-type" @@ -21758,19 +21745,19 @@ static const char *startup_source = " #f" " 'parsed-module)))))" "(values" -" struct:_64" -" make-_64" -" ?_64" -"(make-struct-field-accessor -ref_64 0 'star?)" -"(make-struct-field-accessor -ref_64 1 'name-id)" -"(make-struct-field-accessor -ref_64 2 'self)" -"(make-struct-field-accessor -ref_64 3 'requires)" -"(make-struct-field-accessor -ref_64 4 'provides)" -"(make-struct-field-accessor -ref_64 5 'root-ctx-simple?)" -"(make-struct-field-accessor -ref_64 6 'encoded-root-ctx)" -"(make-struct-field-accessor -ref_64 7 'body)" -"(make-struct-field-accessor -ref_64 8 'compiled-module)" -"(make-struct-field-accessor -ref_64 9 'compiled-submodules))))" +" struct:_63" +" make-_63" +" ?_63" +"(make-struct-field-accessor -ref_63 0 'star?)" +"(make-struct-field-accessor -ref_63 1 'name-id)" +"(make-struct-field-accessor -ref_63 2 'self)" +"(make-struct-field-accessor -ref_63 3 'requires)" +"(make-struct-field-accessor -ref_63 4 'provides)" +"(make-struct-field-accessor -ref_63 5 'root-ctx-simple?)" +"(make-struct-field-accessor -ref_63 6 'encoded-root-ctx)" +"(make-struct-field-accessor -ref_63 7 'body)" +"(make-struct-field-accessor -ref_63 8 'compiled-module)" +"(make-struct-field-accessor -ref_63 9 'compiled-submodules))))" "(define-values" "(module-path->mpi5.1)" "(lambda(declared-submodule-names1_0 mod-path3_0 self4_2)" @@ -21816,15 +21803,15 @@ static const char *startup_source = "(module-path->mpi5.1 temp10_2 mod-path8_1 temp9_0)))))" "(define-values" "(syntax-mapped-names)" -"(lambda(s_0 phase_45)" +"(lambda(s_0 phase_44)" "(begin" -"(let-values(((s-scs_1)(syntax-scope-set s_0 phase_45)))" +"(let-values(((s-scs_1)(syntax-scope-set s_0 phase_44)))" "(let-values(((ht_98) s-scs_1))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-immutable-hash-keys ht_98)))" -"((letrec-values(((for-loop_115)" +"((letrec-values(((for-loop_117)" "(lambda(syms_14 i_126)" "(begin" " 'for-loop" @@ -21843,10 +21830,10 @@ static const char *startup_source = " null)))))" "(values syms_17)))))" "(if(not #f)" -"(for-loop_115 syms_15(unsafe-immutable-hash-iterate-next ht_98 i_126))" +"(for-loop_117 syms_15(unsafe-immutable-hash-iterate-next ht_98 i_126))" " syms_15)))" " syms_14)))))" -" for-loop_115)" +" for-loop_117)" "(seteq)" "(unsafe-immutable-hash-iterate-first ht_98))))))))" "(define-values" @@ -21864,7 +21851,7 @@ static const char *startup_source = " requires+provides-all-bindings-simple?" " set-requires+provides-can-cross-phase-persistent?!" " set-requires+provides-all-bindings-simple?!)" -"(let-values(((struct:_65 make-_65 ?_65 -ref_65 -set!_65)" +"(let-values(((struct:_64 make-_64 ?_64 -ref_64 -set!_64)" "(let-values()" "(let-values()" "(make-struct-type" @@ -21880,20 +21867,20 @@ static const char *startup_source = " #f" " 'requires+provides)))))" "(values" -" struct:_65" -" make-_65" -" ?_65" -"(make-struct-field-accessor -ref_65 0 'self)" -"(make-struct-field-accessor -ref_65 1 'require-mpis)" -"(make-struct-field-accessor -ref_65 2 'require-mpis-in-order)" -"(make-struct-field-accessor -ref_65 3 'requires)" -"(make-struct-field-accessor -ref_65 4 'provides)" -"(make-struct-field-accessor -ref_65 5 'phase-to-defined-syms)" -"(make-struct-field-accessor -ref_65 6 'also-required)" -"(make-struct-field-accessor -ref_65 7 'can-cross-phase-persistent?)" -"(make-struct-field-accessor -ref_65 8 'all-bindings-simple?)" -"(make-struct-field-mutator -set!_65 7 'can-cross-phase-persistent?)" -"(make-struct-field-mutator -set!_65 8 'all-bindings-simple?))))" +" struct:_64" +" make-_64" +" ?_64" +"(make-struct-field-accessor -ref_64 0 'self)" +"(make-struct-field-accessor -ref_64 1 'require-mpis)" +"(make-struct-field-accessor -ref_64 2 'require-mpis-in-order)" +"(make-struct-field-accessor -ref_64 3 'requires)" +"(make-struct-field-accessor -ref_64 4 'provides)" +"(make-struct-field-accessor -ref_64 5 'phase-to-defined-syms)" +"(make-struct-field-accessor -ref_64 6 'also-required)" +"(make-struct-field-accessor -ref_64 7 'can-cross-phase-persistent?)" +"(make-struct-field-accessor -ref_64 8 'all-bindings-simple?)" +"(make-struct-field-mutator -set!_64 7 'can-cross-phase-persistent?)" +"(make-struct-field-mutator -set!_64 8 'all-bindings-simple?))))" "(define-values" "(struct:required required2.1 required? required-id required-phase required-can-be-shadowed? required-as-transformer?)" "(let-values(((struct:_11 make-_11 ?_11 -ref_11 -set!_11)" @@ -21921,7 +21908,7 @@ static const char *startup_source = "(make-struct-field-accessor -ref_11 3 'as-transformer?))))" "(define-values" "(struct:nominal nominal3.1 nominal? nominal-module nominal-provide-phase nominal-require-phase nominal-sym)" -"(let-values(((struct:_66 make-_66 ?_66 -ref_66 -set!_66)" +"(let-values(((struct:_65 make-_65 ?_65 -ref_65 -set!_65)" "(let-values()" "(let-values()" "(make-struct-type" @@ -21937,13 +21924,13 @@ static const char *startup_source = " #f" " 'nominal)))))" "(values" -" struct:_66" -" make-_66" -" ?_66" -"(make-struct-field-accessor -ref_66 0 'module)" -"(make-struct-field-accessor -ref_66 1 'provide-phase)" -"(make-struct-field-accessor -ref_66 2 'require-phase)" -"(make-struct-field-accessor -ref_66 3 'sym))))" +" struct:_65" +" make-_65" +" ?_65" +"(make-struct-field-accessor -ref_65 0 'module)" +"(make-struct-field-accessor -ref_65 1 'provide-phase)" +"(make-struct-field-accessor -ref_65 2 'require-phase)" +"(make-struct-field-accessor -ref_65 3 'sym))))" "(define-values" "(struct:bulk-required" " bulk-required4.1" @@ -21953,7 +21940,7 @@ static const char *startup_source = " bulk-required-s" " bulk-required-provide-phase-level" " bulk-required-can-be-shadowed?)" -"(let-values(((struct:_67 make-_67 ?_67 -ref_67 -set!_67)" +"(let-values(((struct:_66 make-_66 ?_66 -ref_66 -set!_66)" "(let-values()" "(let-values()" "(make-struct-type" @@ -21969,14 +21956,14 @@ static const char *startup_source = " #f" " 'bulk-required)))))" "(values" -" struct:_67" -" make-_67" -" ?_67" -"(make-struct-field-accessor -ref_67 0 'provides)" -"(make-struct-field-accessor -ref_67 1 'prefix-len)" -"(make-struct-field-accessor -ref_67 2 's)" -"(make-struct-field-accessor -ref_67 3 'provide-phase-level)" -"(make-struct-field-accessor -ref_67 4 'can-be-shadowed?))))" +" struct:_66" +" make-_66" +" ?_66" +"(make-struct-field-accessor -ref_66 0 'provides)" +"(make-struct-field-accessor -ref_66 1 'prefix-len)" +"(make-struct-field-accessor -ref_66 2 's)" +"(make-struct-field-accessor -ref_66 3 'provide-phase-level)" +"(make-struct-field-accessor -ref_66 4 'can-be-shadowed?))))" "(define-values" "(make-requires+provides8.1)" "(lambda(copy-requires5_0 self7_0)" @@ -22037,14 +22024,14 @@ static const char *startup_source = " 'add-defined-or-required-id!19" "(let-values(((r+p_3) r+p15_0))" "(let-values(((id_24) id16_0))" -"(let-values(((phase_53) phase17_0))" +"(let-values(((phase_52) phase17_0))" "(let-values(((binding_11) binding18_0))" "(let-values(((can-be-shadowed?_0) can-be-shadowed?11_0))" "(let-values(((as-transformer?_0) as-transformer?12_0))" "(let-values()" "(begin" "(if(equal?" -" phase_53" +" phase_52" "(phase+" "(module-binding-nominal-phase binding_11)" "(module-binding-nominal-require-phase binding_11)))" @@ -22052,7 +22039,7 @@ static const char *startup_source = " (let-values () (error \"internal error: binding phase does not match nominal info\")))" "(let-values(((r+p124_0) r+p_3)" "((id125_0) id_24)" -"((phase126_0) phase_53)" +"((phase126_0) phase_52)" "((temp127_0)(module-binding-nominal-module binding_11))" "((temp128_0)(module-binding-nominal-require-phase binding_11))" "((can-be-shadowed?129_0) can-be-shadowed?_0)" @@ -22078,7 +22065,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_25) id31_0))" -"(let-values(((phase_54) 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))" @@ -22095,7 +22082,7 @@ static const char *startup_source = " sym-to-reqds_0" " sym_34" "(cons-ish" -"(required2.1 id_25 phase_54 can-be-shadowed?_1 as-transformer?_1)" +"(required2.1 id_25 phase_53 can-be-shadowed?_1 as-transformer?_1)" "(hash-ref sym-to-reqds_0 sym_34 null)))))))))))))))))" "(define-values" "(add-bulk-required-ids!59.1)" @@ -22132,11 +22119,11 @@ static const char *startup_source = "(let-values(((accum-update-nominals_0) accum-update-nominals42_0))" "(let-values(((who_11) who43_0))" "(let-values()" -"(let-values(((phase_55)(phase+ provide-phase-level_3 phase-shift_6)))" +"(let-values(((phase_54)(phase+ provide-phase-level_3 phase-shift_6)))" "(let-values(((shortcut-table_0)" "(if check-and-remove?_0" "(if(>(hash-count provides_4) 64)" -"(syntax-mapped-names s_114 phase_55)" +"(syntax-mapped-names s_114 phase_54)" " #f)" " #f)))" "(let-values(((mpi_13)(intern-mpi r+p_5 nominal-module_7)))" @@ -22163,8 +22150,8 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-hash ht_99)))" -"((letrec-values(((for-loop_154)" -"(lambda(result_69 i_127)" +"((letrec-values(((for-loop_156)" +"(lambda(result_70 i_127)" "(begin" " 'for-loop" "(if i_127" @@ -22172,15 +22159,15 @@ static const char *startup_source = "(hash-iterate-key+value" " ht_99" " i_127)))" -"(let-values(((result_70)" "(let-values(((result_71)" -" result_69))" +"(let-values(((result_72)" +" result_70))" "(if(not" "(symbol-interned?" " out-sym_0))" -" result_71" +" result_72" "(let-values()" -"(let-values(((result_72)" +"(let-values(((result_73)" "(let-values()" "(let-values()" "(begin" @@ -22234,7 +22221,7 @@ static const char *startup_source = " sym_35" " s_114))" "((phase135_0)" -" phase_55)" +" phase_54)" "((orig-s136_0)" " orig-s_0)" "((temp137_0)" @@ -22292,24 +22279,24 @@ static const char *startup_source = " null)))))" " already-defined?_0))))))))))" "(values" -" result_72)))))))" +" result_73)))))))" "(if(if(not" -"((lambda x_53 result_70)" +"((lambda x_54 result_71)" " out-sym_0" " binding/p_2))" "(not #f)" " #f)" -"(for-loop_154" -" result_70" +"(for-loop_156" +" result_71" "(hash-iterate-next ht_99 i_127))" -" result_70)))" -" result_69)))))" -" for-loop_154)" +" result_71)))" +" result_70)))))" +" for-loop_156)" " #f" "(hash-iterate-first ht_99))))))))))))))))))))))))))))))" "(define-values" "(bulk-required->required)" -"(lambda(br_1 nominal-module_8 phase_56 sym_36)" +"(lambda(br_1 nominal-module_8 phase_55 sym_36)" "(begin" "(let-values(((prefix-len_1)(bulk-required-prefix-len br_1)))" "(let-values(((out-sym_1)" @@ -22319,13 +22306,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_36)" -"(phase+ phase_56(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_35 mod-name_9 phase_57 sym_37)" -"(begin(if(bulk-required? r_35)(bulk-required->required r_35 mod-name_9 phase_57 sym_37) r_35))))" +"(lambda(r_35 mod-name_9 phase_56 sym_37)" +"(begin(if(bulk-required? r_35)(bulk-required->required r_35 mod-name_9 phase_56 sym_37) r_35))))" "(define-values" "(add-enclosing-module-defined-and-required!67.1)" "(lambda(enclosing-requires+provides62_0 r+p64_0 enclosing-mod65_0 phase-shift66_0)" @@ -22343,7 +22330,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-hash ht_100)))" -"((letrec-values(((for-loop_155)" +"((letrec-values(((for-loop_157)" "(lambda(i_128)" "(begin" " 'for-loop" @@ -22364,12 +22351,12 @@ static const char *startup_source = "(void)" "(let-values()" "(check-in-hash ht_101)))" -"((letrec-values(((for-loop_156)" +"((letrec-values(((for-loop_158)" "(lambda(i_129)" "(begin" " 'for-loop" "(if i_129" -"(let-values(((phase_58" +"(let-values(((phase_57" " at-phase_8)" "(hash-iterate-key+value" " ht_101" @@ -22384,7 +22371,7 @@ static const char *startup_source = "(let-values()" "(check-in-hash" " ht_102)))" -"((letrec-values(((for-loop_157)" +"((letrec-values(((for-loop_159)" "(lambda(i_117)" "(begin" " 'for-loop" @@ -22399,7 +22386,7 @@ static const char *startup_source = " reqds_0))" "(begin" "(void)" -"((letrec-values(((for-loop_158)" +"((letrec-values(((for-loop_160)" "(lambda(lst_123)" "(begin" " 'for-loop" @@ -22428,7 +22415,7 @@ static const char *startup_source = "(normalize-required" " reqd/maybe-bulk_0" " mod-name_10" -" phase_58" +" phase_57" " sym_38)))" "(let-values(((r+p147_0)" " r+p_6)" @@ -22475,42 +22462,42 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_158" +"(for-loop_160" " rest_62)" "(values))))" "(values))))))" -" for-loop_158)" +" for-loop_160)" " lst_122)))))" "(if(not" " #f)" -"(for-loop_157" +"(for-loop_159" "(hash-iterate-next" " ht_102" " i_117))" "(values))))" "(values))))))" -" for-loop_157)" +" for-loop_159)" "(hash-iterate-first" " ht_102))))))" "(if(not" " #f)" -"(for-loop_156" +"(for-loop_158" "(hash-iterate-next" " ht_101" " i_129))" "(values))))" "(values))))))" -" for-loop_156)" +" for-loop_158)" "(hash-iterate-first" " ht_101))))" "(void)))" "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_155(hash-iterate-next ht_100 i_128))" +"(for-loop_157(hash-iterate-next ht_100 i_128))" "(values))))" "(values))))))" -" for-loop_155)" +" for-loop_157)" "(hash-iterate-first ht_100))))" "(void))))))))))" "(define-values" @@ -22520,11 +22507,11 @@ static const char *startup_source = " 'remove-required-id!75" "(let-values(((r+p_7) r+p72_0))" "(let-values(((id_26) id73_0))" -"(let-values(((phase_59) phase74_0))" +"(let-values(((phase_58) phase74_0))" "(let-values(((binding_12) unless-matches70_0))" "(let-values()" "(let-values(((b_69)" -"(let-values(((id157_0) id_26)((phase158_0) phase_59)((temp159_0) #t))" +"(let-values(((id157_0) id_26)((phase158_0) phase_58)((temp159_0) #t))" "(resolve+shift28.1 #f temp159_0 null unsafe-undefined #f id157_0 phase158_0))))" "(if b_69" "(let-values()" @@ -22550,7 +22537,7 @@ static const char *startup_source = "(remove-non-matching-requireds" " l_53" " id_26" -" phase_59" +" phase_58" " mpi_31" " nominal-phase_4" " sym_39)))))))))" @@ -22559,13 +22546,13 @@ static const char *startup_source = "(void)))))))))))" "(define-values" "(remove-non-matching-requireds)" -"(lambda(reqds_1 id_27 phase_60 mpi_32 nominal-phase_5 sym_40)" +"(lambda(reqds_1 id_27 phase_59 mpi_32 nominal-phase_5 sym_40)" "(begin" "(reverse$1" "(let-values(((lst_124) reqds_1))" "(begin" "(void)" -"((letrec-values(((for-loop_159)" +"((letrec-values(((for-loop_161)" "(lambda(fold-var_109 lst_125)" "(begin" " 'for-loop" @@ -22581,7 +22568,7 @@ static const char *startup_source = " sym_40)))" "(begin" " #t" -"((letrec-values(((for-loop_160)" +"((letrec-values(((for-loop_162)" "(lambda(fold-var_111)" "(begin" " 'for-loop" @@ -22590,14 +22577,14 @@ static const char *startup_source = "(let-values(((fold-var_113)" " fold-var_111))" "(if(if(eqv?" -" phase_60" +" phase_59" "(required-phase" " r_37))" "(free-identifier=?$1" "(required-id r_37)" " id_27" -" phase_60" -" phase_60)" +" phase_59" +" phase_59)" " #f)" " fold-var_113" "(let-values(((fold-var_114)" @@ -22611,11 +22598,11 @@ static const char *startup_source = "(values" " fold-var_115)))))))" " fold-var_112))))))" -" for-loop_160)" +" for-loop_162)" " fold-var_109)))))" -"(if(not #f)(for-loop_159 fold-var_110 rest_63) fold-var_110)))" +"(if(not #f)(for-loop_161 fold-var_110 rest_63) fold-var_110)))" " fold-var_109)))))" -" for-loop_159)" +" for-loop_161)" " null" " lst_124)))))))" "(define-values" @@ -22636,7 +22623,7 @@ static const char *startup_source = "(let-values(((allow-defined?_0) allow-defined?79_0))" "(let-values(((r+p_8) r+p92_0))" "(let-values(((id_28) id93_0))" -"(let-values(((phase_61) phase94_0))" +"(let-values(((phase_60) phase94_0))" "(let-values(((orig-s_1) in80_0))" "(let-values(((ok-binding/delayed_0) unless-matches81_0))" "(let-values(((remove-shadowed!?_0) remove-shadowed!?82_0))" @@ -22644,7 +22631,7 @@ static const char *startup_source = "(let-values(((who_12) who84_0))" "(let-values()" "(let-values(((b_70)" -"(let-values(((id160_0) id_28)((phase161_0) phase_61)((temp162_0) #t))" +"(let-values(((id160_0) id_28)((phase161_0) phase_60)((temp162_0) #t))" "(resolve+shift28.1" " #f" " temp162_0" @@ -22667,7 +22654,7 @@ static const char *startup_source = "(hash-ref" "(hash-ref" "(requires+provides-phase-to-defined-syms r+p_8)" -" phase_61" +" phase_60" " '#hasheq())" "(module-binding-sym b_70)" " #f))" @@ -22695,14 +22682,14 @@ static const char *startup_source = "(string-append" " \"identifier already \"" " (if defined?_1 \"defined\" \"required\")" -"(if(zero-phase? phase_61)" +"(if(zero-phase? phase_60)" " (let-values () \"\")" -"(if(label-phase? phase_61)" +"(if(label-phase? phase_60)" " (let-values () \" for label\")" -"(if(= 1 phase_61)" +"(if(= 1 phase_60)" " (let-values () \" for syntax\")" "(let-values()" -" (format \" for phase ~a\" phase_61))))))" +" (format \" for phase ~a\" phase_60))))))" " orig-s_1" " id_28)))))" "(if(if(not at-mod_4)(not define-shadowing-require?_0) #f)" @@ -22740,7 +22727,7 @@ static const char *startup_source = " unsafe-undefined" " unsafe-undefined" " ok-binding167_0)))" -"((phase166_1) phase_61))" +"((phase166_1) phase_60))" "(add-binding!17.1" " #f" " temp163_1" @@ -22794,7 +22781,7 @@ static const char *startup_source = "(let-values(((lst_126) reqds_2))" "(begin" "(void)" -"((letrec-values(((for-loop_161)" +"((letrec-values(((for-loop_163)" "(lambda(only-can-can-shadow-require?_1" " lst_127)" "(begin" @@ -22841,12 +22828,12 @@ static const char *startup_source = " only-can-can-shadow-require?_4)))))" "(if(not" " #f)" -"(for-loop_161" +"(for-loop_163" " only-can-can-shadow-require?_2" " rest_64)" " only-can-can-shadow-require?_2)))" " only-can-can-shadow-require?_1)))))" -" for-loop_161)" +" for-loop_163)" " #t" " lst_126)))))" "(begin" @@ -22874,7 +22861,7 @@ static const char *startup_source = "(remove-non-matching-requireds" " reqds_2" " id_28" -" phase_61" +" phase_60" " mpi_33" " nominal-phase_6" "(syntax-e$1 id_28))))" @@ -22887,18 +22874,18 @@ static const char *startup_source = " 'add-defined-syms!103" "(let-values(((r+p_9) r+p100_0))" "(let-values(((syms_18) syms101_0))" -"(let-values(((phase_62) phase102_0))" +"(let-values(((phase_61) phase102_0))" "(let-values(((as-transformer?_2) as-transformer?98_0))" "(let-values()" "(let-values(((phase-to-defined-syms_0)(requires+provides-phase-to-defined-syms r+p_9)))" -"(let-values(((defined-syms_2)(hash-ref phase-to-defined-syms_0 phase_62 '#hasheq())))" +"(let-values(((defined-syms_2)(hash-ref phase-to-defined-syms_0 phase_61 '#hasheq())))" "(let-values(((new-defined-syms_0)" "(let-values(((lst_128) syms_18))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_128)))" -"((letrec-values(((for-loop_162)" +"((letrec-values(((for-loop_164)" "(lambda(defined-syms_3 lst_129)" "(begin" " 'for-loop" @@ -22918,34 +22905,34 @@ static const char *startup_source = " 'variable)))))" "(values defined-syms_6)))))" "(if(not #f)" -"(for-loop_162 defined-syms_4 rest_65)" +"(for-loop_164 defined-syms_4 rest_65)" " defined-syms_4)))" " defined-syms_3)))))" -" for-loop_162)" +" for-loop_164)" " defined-syms_2" " lst_128)))))" -"(hash-set! phase-to-defined-syms_0 phase_62 new-defined-syms_0))))))))))))" +"(hash-set! phase-to-defined-syms_0 phase_61 new-defined-syms_0))))))))))))" "(define-values" "(defined-sym-kind)" -"(lambda(r+p_10 sym_42 phase_63)" +"(lambda(r+p_10 sym_42 phase_62)" "(begin" "(let-values(((phase-to-defined-syms_1)(requires+provides-phase-to-defined-syms r+p_10)))" -"(let-values(((defined-syms_7)(hash-ref phase-to-defined-syms_1 phase_63 '#hasheq())))" +"(let-values(((defined-syms_7)(hash-ref phase-to-defined-syms_1 phase_62 '#hasheq())))" "(hash-ref defined-syms_7 sym_42 #f))))))" "(define-values" "(extract-module-requires)" -"(lambda(r+p_11 mod-name_11 phase_64)" +"(lambda(r+p_11 mod-name_11 phase_63)" "(begin" "(let-values(((mpi_34)(intern-mpi r+p_11 mod-name_11)))" "(let-values(((at-mod_5)(hash-ref(requires+provides-requires r+p_11) mpi_34 #f)))" "(if at-mod_5" "(reverse$1" -"(let-values(((ht_103)(hash-ref at-mod_5 phase_64 '#hasheq())))" +"(let-values(((ht_103)(hash-ref at-mod_5 phase_63 '#hasheq())))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-hash ht_103)))" -"((letrec-values(((for-loop_163)" +"((letrec-values(((for-loop_165)" "(lambda(fold-var_116 i_130)" "(begin" " 'for-loop" @@ -22955,7 +22942,7 @@ static const char *startup_source = "(let-values(((lst_130) reqds_3))" "(begin" "(void)" -"((letrec-values(((for-loop_164)" +"((letrec-values(((for-loop_166)" "(lambda(fold-var_118 lst_131)" "(begin" " 'for-loop" @@ -22978,25 +22965,25 @@ static const char *startup_source = "(normalize-required" " reqd_1" " mpi_34" -" phase_64" +" phase_63" " sym_43))" " fold-var_120))))" "(values" " fold-var_121)))))" "(if(not #f)" -"(for-loop_164" +"(for-loop_166" " fold-var_119" " rest_66)" " fold-var_119)))" " fold-var_118)))))" -" for-loop_164)" +" for-loop_166)" " fold-var_116" " lst_130)))))" "(if(not #f)" -"(for-loop_163 fold-var_117(hash-iterate-next ht_103 i_130))" +"(for-loop_165 fold-var_117(hash-iterate-next ht_103 i_130))" " fold-var_117)))" " fold-var_116)))))" -" for-loop_163)" +" for-loop_165)" " null" "(hash-iterate-first ht_103)))))" " #f))))))" @@ -23008,7 +22995,7 @@ static const char *startup_source = "(if or-part_176 or-part_176 null)))))" "(define-values" "(extract-all-module-requires)" -"(lambda(r+p_13 mod-name_12 phase_65)" +"(lambda(r+p_13 mod-name_12 phase_64)" "(begin" "(let-values(((self_9)(requires+provides-self r+p_13)))" "(let-values(((requires_2)(requires+provides-requires r+p_13)))" @@ -23020,7 +23007,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_132)))" -"((letrec-values(((for-loop_165)" +"((letrec-values(((for-loop_167)" "(lambda(fold-var_46 lst_61)" "(begin" " 'for-loop" @@ -23038,7 +23025,7 @@ static const char *startup_source = " '#hasheqv())))" "(begin" " #t" -"((letrec-values(((for-loop_166)" +"((letrec-values(((for-loop_168)" "(lambda(fold-var_49)" "(begin" " 'for-loop" @@ -23046,12 +23033,12 @@ static const char *startup_source = "(let-values(((fold-var_50)" "(let-values(((lst_63)" "(if(eq?" -" phase_65" +" phase_64" " 'all)" "(hash-keys" " phase-to-requireds_0)" "(list" -" phase_65))))" +" phase_64))))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" @@ -23059,14 +23046,14 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_63)))" -"((letrec-values(((for-loop_86)" +"((letrec-values(((for-loop_88)" "(lambda(fold-var_124" " lst_133)" "(begin" " 'for-loop" "(if(pair?" " lst_133)" -"(let-values(((phase_66)" +"(let-values(((phase_65)" "(unsafe-car" " lst_133))" "((rest_68)" @@ -23076,7 +23063,7 @@ static const char *startup_source = "(let-values(((ht_104)" "(hash-ref" " phase-to-requireds_0" -" phase_66" +" phase_65" "(lambda()" "(esc_0" " #f)))))" @@ -23087,7 +23074,7 @@ static const char *startup_source = "(let-values()" "(check-in-hash" " ht_104)))" -"((letrec-values(((for-loop_167)" +"((letrec-values(((for-loop_169)" "(lambda(fold-var_126" " i_131)" "(begin" @@ -23103,7 +23090,7 @@ static const char *startup_source = " reqds_4))" "(begin" "(void)" -"((letrec-values(((for-loop_168)" +"((letrec-values(((for-loop_170)" "(lambda(fold-var_128" " lst_135)" "(begin" @@ -23133,50 +23120,50 @@ static const char *startup_source = "(normalize-required" " reqd_2" " mod-name_13" -" phase_66" +" phase_65" " sym_44))" " fold-var_130))))" "(values" " fold-var_131)))))" "(if(not" " #f)" -"(for-loop_168" +"(for-loop_170" " fold-var_129" " rest_69)" " fold-var_129)))" " fold-var_128)))))" -" for-loop_168)" +" for-loop_170)" " fold-var_126" " lst_134)))))" "(if(not" " #f)" -"(for-loop_167" +"(for-loop_169" " fold-var_127" "(hash-iterate-next" " ht_104" " i_131))" " fold-var_127)))" " fold-var_126)))))" -" for-loop_167)" +" for-loop_169)" " fold-var_124" "(hash-iterate-first" " ht_104))))))" "(if(not" " #f)" -"(for-loop_86" +"(for-loop_88" " fold-var_125" " rest_68)" " fold-var_125)))" " fold-var_124)))))" -" for-loop_86)" +" for-loop_88)" " fold-var_49" " lst_63)))))" " fold-var_50))))))" -" for-loop_166)" +" for-loop_168)" " fold-var_123)))))))" -"(if(not #f)(for-loop_165 fold-var_122 rest_67) fold-var_122)))" +"(if(not #f)(for-loop_167 fold-var_122 rest_67) fold-var_122)))" " fold-var_46)))))" -" for-loop_165)" +" for-loop_167)" " null" " lst_132)))))))))))" "(define-values" @@ -23194,7 +23181,7 @@ static const char *startup_source = " 'add-provide!117" "(let-values(((r+p_14) r+p110_0))" "(let-values(((sym_45) sym111_0))" -"(let-values(((phase_67) phase112_0))" +"(let-values(((phase_66) phase112_0))" "(let-values(((binding_13) binding113_0))" "(let-values(((immed-binding_0) immed-binding114_0))" "(let-values(((id_29) id115_0))" @@ -23211,7 +23198,7 @@ static const char *startup_source = "(void))" "(hash-update!" "(requires+provides-provides r+p_14)" -" phase_67" +" phase_66" "(lambda(at-phase_9)" "(let-values(((b/p_0)(hash-ref at-phase_9 sym_45 #f)))" "(let-values(((b_71)(provided-as-binding b/p_0)))" @@ -23269,12 +23256,12 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_136)))" -"((letrec-values(((for-loop_169)" +"((letrec-values(((for-loop_171)" "(lambda(fold-var_132 lst_137)" "(begin" " 'for-loop" "(if(pair? lst_137)" -"(let-values(((phase_68)(unsafe-car lst_137))" +"(let-values(((phase_67)(unsafe-car lst_137))" "((rest_70)(unsafe-cdr lst_137)))" "(let-values(((fold-var_133)" "(let-values(((fold-var_134) fold-var_132))" @@ -23283,13 +23270,13 @@ static const char *startup_source = "(cons" "(let-values()" "(cons" -" phase_68" +" phase_67" "(reverse$1" "(let-values(((lst_138)" "(reverse$1" "(hash-ref" " phase-to-mpis-in-order_0" -" phase_68))))" +" phase_67))))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" @@ -23297,7 +23284,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_138)))" -"((letrec-values(((for-loop_170)" +"((letrec-values(((for-loop_172)" "(lambda(fold-var_136" " lst_139)" "(begin" @@ -23332,21 +23319,21 @@ static const char *startup_source = " fold-var_140)))))))" "(if(not" " #f)" -"(for-loop_170" +"(for-loop_172" " fold-var_137" " rest_71)" " fold-var_137)))" " fold-var_136)))))" -" for-loop_170)" +" for-loop_172)" " null" " lst_138))))))" " fold-var_134))))" "(values fold-var_135)))))" "(if(not #f)" -"(for-loop_169 fold-var_133 rest_70)" +"(for-loop_171 fold-var_133 rest_70)" " fold-var_133)))" " fold-var_132)))))" -" for-loop_169)" +" for-loop_171)" " null" " lst_136))))))))))" "(let-values(((extract-provides_0)" @@ -23365,12 +23352,12 @@ static const char *startup_source = "(let-values(((ht_105) provides_5))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-in-hash ht_105)))" -"((letrec-values(((for-loop_91)" +"((letrec-values(((for-loop_93)" "(lambda(table_132 i_132)" "(begin" " 'for-loop" "(if i_132" -"(let-values(((phase_69 at-phase_10)(hash-iterate-key+value ht_105 i_132)))" +"(let-values(((phase_68 at-phase_10)(hash-iterate-key+value ht_105 i_132)))" "(let-values(((table_133)" "(let-values(((table_134) table_132))" "(let-values(((table_135)" @@ -23378,7 +23365,7 @@ static const char *startup_source = "(let-values(((key_53 val_45)" "(let-values()" "(values" -" phase_69" +" phase_68" "(let-values(((ht_71) at-phase_10))" "(begin" "(if(variable-reference-from-unsafe?" @@ -23386,7 +23373,7 @@ static const char *startup_source = "(void)" "(let-values()" "(check-in-hash ht_71)))" -"((letrec-values(((for-loop_92)" +"((letrec-values(((for-loop_94)" "(lambda(table_103" " i_89)" "(begin" @@ -23443,22 +23430,22 @@ static const char *startup_source = " table_106)))))" "(if(not" " #f)" -"(for-loop_92" +"(for-loop_94" " table_104" "(hash-iterate-next" " ht_71" " i_89))" " table_104)))" " table_103)))))" -" for-loop_92)" +" for-loop_94)" " '#hasheq()" "(hash-iterate-first" " ht_71))))))))" "(hash-set table_134 key_53 val_45)))))" "(values table_135)))))" -"(if(not #f)(for-loop_91 table_133(hash-iterate-next ht_105 i_132)) table_133)))" +"(if(not #f)(for-loop_93 table_133(hash-iterate-next ht_105 i_132)) table_133)))" " table_132)))))" -" for-loop_91)" +" for-loop_93)" " '#hasheqv()" "(hash-iterate-first ht_105)))))))" "(define-values" @@ -23500,16 +23487,16 @@ static const char *startup_source = "(make-struct-field-accessor -ref_10 1 'syms))))" "(define-values" "(struct:adjust-rename adjust-rename4.1 adjust-rename? adjust-rename-to-id adjust-rename-from-sym)" -"(let-values(((struct:_68 make-_68 ?_68 -ref_68 -set!_68)" +"(let-values(((struct:_67 make-_67 ?_67 -ref_67 -set!_67)" "(let-values()" "(let-values()" "(make-struct-type 'adjust-rename #f 2 0 #f null(current-inspector) #f '(0 1) #f 'adjust-rename)))))" "(values" -" struct:_68" -" make-_68" -" ?_68" -"(make-struct-field-accessor -ref_68 0 'to-id)" -"(make-struct-field-accessor -ref_68 1 'from-sym))))" +" struct:_67" +" make-_67" +" ?_67" +"(make-struct-field-accessor -ref_67 0 'to-id)" +"(make-struct-field-accessor -ref_67 1 'from-sym))))" "(define-values(layers$1) '(raw phaseless path))" "(define-values" "(parse-and-perform-requires!30.1)" @@ -23567,8 +23554,8 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()(check-list lst_140)))" -"((letrec-values(((for-loop_171)" -"(lambda(result_73 lst_141)" +"((letrec-values(((for-loop_173)" +"(lambda(result_74 lst_141)" "(begin" " 'for-loop" "(if(pair? lst_141)" @@ -23578,10 +23565,10 @@ static const char *startup_source = "((rest_72)" "(unsafe-cdr" " lst_141)))" -"(let-values(((result_74)" -"(let-values()" "(let-values(((result_75)" "(let-values()" +"(let-values(((result_76)" +"(let-values()" "(let-values()" "(let-values(((check-nested_0)" "(let-values(((check-nested116_0)" @@ -24200,7 +24187,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_142)))" -"((letrec-values(((for-loop_172)" +"((letrec-values(((for-loop_174)" "(lambda(id_31" " lst_143)" "(begin" @@ -24244,12 +24231,12 @@ static const char *startup_source = " id_34)))))" "(if(not" " #f)" -"(for-loop_172" +"(for-loop_174" " id_32" " rest_73)" " id_32)))" " id_31)))))" -" for-loop_172)" +" for-loop_174)" " null" " lst_142)))))" "(reverse$1" @@ -24515,7 +24502,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_144)))" -"((letrec-values(((for-loop_173)" +"((letrec-values(((for-loop_175)" "(lambda(id_36" " lst_145)" "(begin" @@ -24559,12 +24546,12 @@ static const char *startup_source = " id_39)))))" "(if(not" " #f)" -"(for-loop_173" +"(for-loop_175" " id_37" " rest_74)" " id_37)))" " id_36)))))" -" for-loop_173)" +" for-loop_175)" " null" " lst_144)))))" "(reverse$1" @@ -24725,7 +24712,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_146)))" -"((letrec-values(((for-loop_174)" +"((letrec-values(((for-loop_176)" "(lambda(id_41" " lst_147)" "(begin" @@ -24769,12 +24756,12 @@ static const char *startup_source = " id_44)))))" "(if(not" " #f)" -"(for-loop_174" +"(for-loop_176" " id_42" " rest_75)" " id_42)))" " id_41)))))" -" for-loop_174)" +" for-loop_176)" " null" " lst_146)))))" "(reverse$1" @@ -25134,19 +25121,19 @@ static const char *startup_source = "(set! initial-require?_0" " #f)))))))))))))))))))))))))" "(values" -" result_75)))))" +" result_76)))))" "(if(if(not" -"((lambda x_54" -"(not result_74))" +"((lambda x_55" +"(not result_75))" " req_0))" "(not #f)" " #f)" -"(for-loop_171" -" result_74" +"(for-loop_173" +" result_75" " rest_72)" -" result_74)))" -" result_73)))))" -" for-loop_171)" +" result_75)))" +" result_74)))))" +" for-loop_173)" " #t" " lst_140)))))))" " loop_88)" @@ -25165,7 +25152,7 @@ static const char *startup_source = "(let-values(((lst_148) ids_3))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_148)))" -"((letrec-values(((for-loop_175)" +"((letrec-values(((for-loop_177)" "(lambda(table_136 lst_149)" "(begin" " 'for-loop" @@ -25182,9 +25169,9 @@ static const char *startup_source = " #t))))" "(hash-set table_138 key_54 val_46)))))" "(values table_139)))))" -"(if(not #f)(for-loop_175 table_137 rest_76) table_137)))" +"(if(not #f)(for-loop_177 table_137 rest_76) table_137)))" " table_136)))))" -" for-loop_175)" +" for-loop_177)" " '#hash()" " lst_148))))))" "(define-values" @@ -25728,7 +25715,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_150)))" -"((letrec-values(((for-loop_176)" +"((letrec-values(((for-loop_178)" "(lambda(lst_151)" "(begin" " 'for-loop" @@ -25751,11 +25738,11 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_176" +"(for-loop_178" " rest_77)" "(values))))" "(values))))))" -" for-loop_176)" +" for-loop_178)" " lst_150)))" "(void)))" "(void))" @@ -25795,7 +25782,7 @@ static const char *startup_source = "(let-values()" "(check-in-immutable-hash-keys" " ht_106)))" -"((letrec-values(((for-loop_177)" +"((letrec-values(((for-loop_179)" "(lambda(i_133)" "(begin" " 'for-loop" @@ -25825,13 +25812,13 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_177" +"(for-loop_179" "(unsafe-immutable-hash-iterate-next" " ht_106" " i_133))" "(values))))" "(values))))))" -" for-loop_177)" +" for-loop_179)" "(unsafe-immutable-hash-iterate-first" " ht_106))))" "(void)))" @@ -25880,7 +25867,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-hash ht_107)))" -"((letrec-values(((for-loop_178)" +"((letrec-values(((for-loop_180)" "(lambda(i_134)" "(begin" " 'for-loop" @@ -25905,7 +25892,7 @@ static const char *startup_source = "(let-values()" "(begin" "(let-values()" -"(let-values(((phase_70)" +"(let-values(((phase_69)" "(phase+" " phase-shift_11" " provide-phase-level_5)))" @@ -25935,7 +25922,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_152)))" -"((letrec-values(((for-loop_179)" +"((letrec-values(((for-loop_181)" "(lambda(lst_153)" "(begin" " 'for-loop" @@ -25997,7 +25984,7 @@ static const char *startup_source = "((b300_0)" " b_72)" "((phase301_0)" -" phase_70))" +" phase_69))" "(add-binding!17.1" " #f" " #f" @@ -26010,11 +25997,11 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_179" +"(for-loop_181" " rest_78)" "(values))))" "(values))))))" -" for-loop_179)" +" for-loop_181)" " lst_152)))" "(void)))" "(void))" @@ -26055,7 +26042,7 @@ static const char *startup_source = " phase-shift_11" " bulk-binding-registry_10))" "((phase304_0)" -" phase_70)" +" phase_69)" "((orig-s305_0)" " orig-s_15)" "((temp306_0)" @@ -26074,11 +26061,11 @@ static const char *startup_source = "(values)))" "(values)))))" "(if(not #f)" -"(for-loop_178" +"(for-loop_180" "(hash-iterate-next ht_107 i_134))" "(values))))" "(values))))))" -" for-loop_178)" +" for-loop_180)" "(hash-iterate-first ht_107))))" "(void)))))))))))))))))))))))" "(define-values" @@ -26435,10 +26422,10 @@ static const char *startup_source = " 'constant" " top-level-bind!-id" "(lambda(id_20 mpi_38 orig-phase_0 phase-shift_13 ns_51 sym_51 trans?_0 trans-val_0)" -"(let-values(((phase_71)(phase+ orig-phase_0 phase-shift_13)))" +"(let-values(((phase_70)(phase+ orig-phase_0 phase-shift_13)))" "(let-values(((b_73)" "(let-values(((mpi4_1) mpi_38)" -"((phase5_1) phase_71)" +"((phase5_1) phase_70)" "((sym6_1) sym_51)" "((temp7_0)(root-expand-context-frame-id(namespace-get-root-expand-ctx ns_51))))" "(make-module-binding22.1" @@ -26455,11 +26442,11 @@ static const char *startup_source = " phase5_1" " sym6_1))))" "(begin" -"(let-values(((id1_3) id_20)((b2_4) b_73)((phase3_2) phase_71))" +"(let-values(((id1_3) id_20)((b2_4) b_73)((phase3_2) phase_70))" "(add-binding!17.1 #f #f id1_3 b2_4 phase3_2))" "(if trans?_0" -"(let-values()(if trans-val_0(let-values()(maybe-install-free=id! trans-val_0 id_20 phase_71))(void)))" -"(let-values()(namespace-unset-transformer! ns_51 phase_71 sym_51)))))))" +"(let-values()(if trans-val_0(let-values()(maybe-install-free=id! trans-val_0 id_20 phase_70))(void)))" +"(let-values()(namespace-unset-transformer! ns_51 phase_70 sym_51)))))))" " top-level-require!-id" "(lambda(stx_13 ns_52)" "(let-values(((reqs_2)(cdr(syntax->list$1 stx_13))))" @@ -26570,7 +26557,7 @@ static const char *startup_source = "(lambda(ns_46)" "(begin" "(let-values(((root-ctx_3)(namespace-get-root-expand-ctx ns_46)))" -"(let-values(((post-expansion-sc_0)(root-expand-context-post-expansion-scope root-ctx_3)))" +"(let-values(((post-expansion-sc_0)(post-expansion-scope(root-expand-context-post-expansion root-ctx_3))))" "(values" "(seteq post-expansion-sc_0)" "(set-remove(list->seteq(root-expand-context-module-scopes root-ctx_3)) post-expansion-sc_0)))))))" @@ -26646,35 +26633,35 @@ static const char *startup_source = " header-syntax-literals" " set-header-binding-syms-in-order!" " set-header-require-vars-in-order!)" -"(let-values(((struct:_69 make-_69 ?_69 -ref_69 -set!_69)" +"(let-values(((struct:_68 make-_68 ?_68 -ref_68 -set!_68)" "(let-values()" "(let-values()" "(make-struct-type 'header #f 8 0 #f null(current-inspector) #f '(0 1 3 4 6 7) #f 'header)))))" "(values" -" struct:_69" -" make-_69" -" ?_69" -"(make-struct-field-accessor -ref_69 0 'module-path-indexes)" -"(make-struct-field-accessor -ref_69 1 'binding-sym-to-define-sym)" -"(make-struct-field-accessor -ref_69 2 'binding-syms-in-order)" -"(make-struct-field-accessor -ref_69 3 'require-var-to-import-sym)" -"(make-struct-field-accessor -ref_69 4 'import-sym-to-extra-inspectors)" -"(make-struct-field-accessor -ref_69 5 'require-vars-in-order)" -"(make-struct-field-accessor -ref_69 6 'define-and-import-syms)" -"(make-struct-field-accessor -ref_69 7 'syntax-literals)" -"(make-struct-field-mutator -set!_69 2 'binding-syms-in-order)" -"(make-struct-field-mutator -set!_69 5 'require-vars-in-order))))" +" struct:_68" +" make-_68" +" ?_68" +"(make-struct-field-accessor -ref_68 0 'module-path-indexes)" +"(make-struct-field-accessor -ref_68 1 'binding-sym-to-define-sym)" +"(make-struct-field-accessor -ref_68 2 'binding-syms-in-order)" +"(make-struct-field-accessor -ref_68 3 'require-var-to-import-sym)" +"(make-struct-field-accessor -ref_68 4 'import-sym-to-extra-inspectors)" +"(make-struct-field-accessor -ref_68 5 'require-vars-in-order)" +"(make-struct-field-accessor -ref_68 6 'define-and-import-syms)" +"(make-struct-field-accessor -ref_68 7 'syntax-literals)" +"(make-struct-field-mutator -set!_68 2 'binding-syms-in-order)" +"(make-struct-field-mutator -set!_68 5 'require-vars-in-order))))" "(define-values" "(struct:variable-use variable-use3.1 variable-use? variable-use-module-use variable-use-sym)" -"(let-values(((struct:_43 make-_43 ?_43 -ref_43 -set!_43)" +"(let-values(((struct:_69 make-_69 ?_69 -ref_69 -set!_69)" "(let-values()" "(let-values()(make-struct-type 'variable-use #f 2 0 #f null #f #f '(0 1) #f 'variable-use)))))" "(values" -" struct:_43" -" make-_43" -" ?_43" -"(make-struct-field-accessor -ref_43 0 'module-use)" -"(make-struct-field-accessor -ref_43 1 'sym))))" +" struct:_69" +" make-_69" +" ?_69" +"(make-struct-field-accessor -ref_69 0 'module-use)" +"(make-struct-field-accessor -ref_69 1 'sym))))" "(define-values(make-syntax-literals)(lambda()(begin(syntax-literals1.1 null 0))))" "(define-values" "(make-header)" @@ -26706,7 +26693,7 @@ static const char *startup_source = "(begin(check-vector vec_57)(values vec_57(unsafe-vector-length vec_57))))))" "(begin" " #f" -"((letrec-values(((for-loop_180)" +"((letrec-values(((for-loop_182)" "(lambda(pos_86)" "(begin" " 'for-loop" @@ -26721,9 +26708,9 @@ static const char *startup_source = "(add-syntax-literal! sl_1 e_11))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_180(unsafe-fx+ 1 pos_86))(values))))" +"(if(not #f)(for-loop_182(unsafe-fx+ 1 pos_86))(values))))" "(values))))))" -" for-loop_180)" +" for-loop_182)" " 0)))" "(void)" "(cons pos_85(vector-length vec_55)))))))" @@ -26880,12 +26867,12 @@ static const char *startup_source = " 'register-required-variable-use!19" "(let-values(((header_2) header14_0))" "(let-values(((mpi_39) mpi15_0))" -"(let-values(((phase_72) phase16_1))" +"(let-values(((phase_71) phase16_1))" "(let-values(((sym_54) sym17_0))" "(let-values(((extra-inspector_4) extra-inspector18_0))" "(let-values(((defined?_2) defined?12_0))" "(let-values()" -"(let-values(((key_55)(variable-use3.1(module-use1.1 mpi_39 phase_72) sym_54)))" +"(let-values(((key_55)(variable-use3.1(module-use1.1 mpi_39 phase_71) sym_54)))" "(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_55 #f)))" "(let-values(((var-sym_0)" @@ -26923,7 +26910,7 @@ static const char *startup_source = "(begin(eq? 'required(hash-ref(header-define-and-import-syms header_4) var-sym_1 #f)))))" "(define-values" "(generate-links+imports)" -"(lambda(header_5 phase_39 cctx_0 cross-linklet-inlining?_0)" +"(lambda(header_5 phase_38 cctx_0 cross-linklet-inlining?_0)" "(begin" "(let-values(((mod-use-ht_0 link-mod-uses_0)" "(let-values(((lst_154)(header-require-vars-in-order header_5)))" @@ -26931,7 +26918,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_154)))" -"((letrec-values(((for-loop_181)" +"((letrec-values(((for-loop_183)" "(lambda(ht_108 link-mod-uses_1 lst_155)" "(begin" " 'for-loop" @@ -26970,10 +26957,10 @@ static const char *startup_source = "(cons mu_2 link-mod-uses_3)))))))" "(values ht_111 link-mod-uses_4)))))" "(if(not #f)" -"(for-loop_181 ht_109 link-mod-uses_2 rest_79)" +"(for-loop_183 ht_109 link-mod-uses_2 rest_79)" "(values ht_109 link-mod-uses_2))))" "(values ht_108 link-mod-uses_1))))))" -" for-loop_181)" +" for-loop_183)" " '#hash()" " null" " lst_154)))))" @@ -26983,7 +26970,7 @@ static const char *startup_source = "(let-values(((lst_33) link-mod-uses_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_33)))" -"((letrec-values(((for-loop_182)" +"((letrec-values(((for-loop_184)" "(lambda(fold-var_141 lst_107)" "(begin" " 'for-loop" @@ -27004,7 +26991,7 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()(check-list lst_156)))" -"((letrec-values(((for-loop_183)" +"((letrec-values(((for-loop_185)" "(lambda(fold-var_145" " lst_157)" "(begin" @@ -27050,26 +27037,26 @@ static const char *startup_source = " fold-var_41)))" " fold-var_147))))" "(if(not #f)" -"(for-loop_183" +"(for-loop_185" " fold-var_146" " rest_81)" " fold-var_146)))" " fold-var_145)))))" -" for-loop_183)" +" for-loop_185)" " null" " lst_156)))))" " fold-var_143))))" "(values fold-var_144)))))" -"(if(not #f)(for-loop_182 fold-var_142 rest_80) fold-var_142)))" +"(if(not #f)(for-loop_184 fold-var_142 rest_80) fold-var_142)))" " fold-var_141)))))" -" for-loop_182)" +" for-loop_184)" " null" " lst_33))))" "(reverse$1" "(let-values(((lst_158) link-mod-uses_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_158)))" -"((letrec-values(((for-loop_184)" +"((letrec-values(((for-loop_186)" "(lambda(fold-var_148 lst_159)" "(begin" " 'for-loop" @@ -27091,7 +27078,7 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list lst_160)))" -"((letrec-values(((for-loop_185)" +"((letrec-values(((for-loop_187)" "(lambda(table_140" " lst_112)" "(begin" @@ -27118,7 +27105,7 @@ static const char *startup_source = " vu_2)))" "(begin" " #t" -"((letrec-values(((for-loop_186)" +"((letrec-values(((for-loop_188)" "(lambda(table_31)" "(begin" " 'for-loop" @@ -27132,7 +27119,7 @@ static const char *startup_source = " #f)))" "(begin" " #t" -"((letrec-values(((for-loop_187)" +"((letrec-values(((for-loop_189)" "(lambda(table_143)" "(begin" " 'for-loop" @@ -27163,20 +27150,20 @@ static const char *startup_source = " table_146)))" " table_144))))" " table_33))))))" -" for-loop_187)" +" for-loop_189)" " table_31)))))" " table_32))))))" -" for-loop_186)" +" for-loop_188)" " table_142)))" " table_142))))" "(if(not" " #f)" -"(for-loop_185" +"(for-loop_187" " table_141" " rest_56)" " table_141)))" " table_140)))))" -" for-loop_185)" +" for-loop_187)" " '#hash()" " lst_160)))))" "(if(hash-count extra-inspectorss_0)" @@ -27184,16 +27171,16 @@ static const char *startup_source = " #f)))" " fold-var_150))))" "(values fold-var_151)))))" -"(if(not #f)(for-loop_184 fold-var_149 rest_82) fold-var_149)))" +"(if(not #f)(for-loop_186 fold-var_149 rest_82) fold-var_149)))" " fold-var_148)))))" -" for-loop_184)" +" for-loop_186)" " null" " lst_158))))" "(reverse$1" "(let-values(((lst_161)(header-require-vars-in-order header_5)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_161)))" -"((letrec-values(((for-loop_188)" +"((letrec-values(((for-loop_190)" "(lambda(fold-var_152 lst_162)" "(begin" " 'for-loop" @@ -27227,9 +27214,9 @@ static const char *startup_source = " fold-var_155))))" "(values fold-var_156)))" " fold-var_154))))" -"(if(not #f)(for-loop_188 fold-var_153 rest_83) fold-var_153)))" +"(if(not #f)(for-loop_190 fold-var_153 rest_83) fold-var_153)))" " fold-var_152)))))" -" for-loop_188)" +" for-loop_190)" " null" " lst_161)))))))))" "(define-values" @@ -27375,7 +27362,7 @@ static const char *startup_source = "(correlated-property)" "(case-lambda" "((e_31 k_31)(begin(syntax-property$2 e_31 k_31)))" -"((e_32 k_32 v_167)(syntax-property$2 e_32 k_32 v_167))))" +"((e_32 k_32 v_163)(syntax-property$2 e_32 k_32 v_163))))" "(define-values" "(to-syntax-list.1$1)" "(lambda(s_109)" @@ -27453,7 +27440,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_86)))" -"((letrec-values(((for-loop_106)" +"((letrec-values(((for-loop_108)" "(lambda(fold-var_69 lst_87)" "(begin" " 'for-loop" @@ -27479,10 +27466,10 @@ static const char *startup_source = "(values" " fold-var_28)))))" "(if(not #f)" -"(for-loop_106 fold-var_70 rest_41)" +"(for-loop_108 fold-var_70 rest_41)" " fold-var_70)))" " fold-var_69)))))" -" for-loop_106)" +" for-loop_108)" " null" " lst_86))))))" " name_40" @@ -27501,7 +27488,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_88)))" -"((letrec-values(((for-loop_189)" +"((letrec-values(((for-loop_191)" "(lambda(fold-var_157 lst_163)" "(begin" " 'for-loop" @@ -27524,10 +27511,10 @@ static const char *startup_source = "(values" " fold-var_158)))))" "(if(not #f)" -"(for-loop_189 fold-var_33 rest_84)" +"(for-loop_191 fold-var_33 rest_84)" " fold-var_33)))" " fold-var_157)))))" -" for-loop_189)" +" for-loop_191)" " null" " lst_88))))))))" "(if(parsed-if? p_37)" @@ -27572,7 +27559,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_23)))" -"((letrec-values(((for-loop_190)" +"((letrec-values(((for-loop_192)" "(lambda(fold-var_159 lst_79)" "(begin" " 'for-loop" @@ -27596,12 +27583,12 @@ static const char *startup_source = "(values" " fold-var_95)))))" "(if(not #f)" -"(for-loop_190" +"(for-loop_192" " fold-var_160" " rest_85)" " fold-var_160)))" " fold-var_159)))))" -" for-loop_190)" +" for-loop_192)" " null" " lst_23)))))))" "(if(parsed-begin? p_37)" @@ -27712,7 +27699,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-naturals start_33)))" -"((letrec-values(((for-loop_191)" +"((letrec-values(((for-loop_193)" "(lambda(fold-var_161 lst_165 pos_91)" "(begin" " 'for-loop" @@ -27735,9 +27722,9 @@ static const char *startup_source = "(if used?_0 result-used?_3 #f))))" " fold-var_163))))" "(values fold-var_164)))))" -"(if(not #f)(for-loop_191 fold-var_162 rest_86(+ pos_91 1)) fold-var_162)))" +"(if(not #f)(for-loop_193 fold-var_162 rest_86(+ pos_91 1)) fold-var_162)))" " fold-var_161)))))" -" for-loop_191)" +" for-loop_193)" " null" " lst_164" " start_33)))))))))" @@ -27746,14 +27733,14 @@ static const char *startup_source = "(lambda(s_306 inferred-name_0 orig-s_21)" "(begin" "(letrec-values(((simplify-name_0)" -"(lambda(v_93)" +"(lambda(v_164)" "(begin" " 'simplify-name" -"(if(pair? v_93)" +"(if(pair? v_164)" "(let-values()" -"(let-values(((n1_0)(simplify-name_0(car v_93))))" -"(let-values(((n2_0)(simplify-name_0(cdr v_93))))(if(eq? n1_0 n2_0) n1_0 v_93))))" -"(let-values() v_93))))))" +"(let-values(((n1_0)(simplify-name_0(car v_164))))" +"(let-values(((n2_0)(simplify-name_0(cdr v_164))))(if(eq? n1_0 n2_0) n1_0 v_164))))" +"(let-values() v_164))))))" "(let-values(((name_44)" "(let-values(((or-part_210)" "(let-values(((v_54)" @@ -27803,7 +27790,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_167)))" -"((letrec-values(((for-loop_192)" +"((letrec-values(((for-loop_194)" "(lambda(fold-var_165 lst_168 lst_169)" "(begin" " 'for-loop" @@ -27839,7 +27826,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_171)))" -"((letrec-values(((for-loop_193)" +"((letrec-values(((for-loop_195)" "(lambda(fold-var_169" " lst_172" " lst_173)" @@ -27877,13 +27864,13 @@ static const char *startup_source = " fold-var_97)))))" "(if(not" " #f)" -"(for-loop_193" +"(for-loop_195" " fold-var_2" " rest_89" " rest_90)" " fold-var_2)))" " fold-var_169)))))" -" for-loop_193)" +" for-loop_195)" " null" " lst_170" " lst_171))))" @@ -27897,10 +27884,10 @@ static const char *startup_source = " fold-var_167))))" "(values fold-var_168)))))" "(if(not #f)" -"(for-loop_192 fold-var_166 rest_87 rest_88)" +"(for-loop_194 fold-var_166 rest_87 rest_88)" " fold-var_166)))" " fold-var_165)))))" -" for-loop_192)" +" for-loop_194)" " null" " lst_166" " lst_167))))" @@ -28026,26 +28013,26 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-immutable-hash-keys ht_112)))" -"((letrec-values(((for-loop_95)" -"(lambda(result_76 i_136)" +"((letrec-values(((for-loop_97)" +"(lambda(result_77 i_136)" "(begin" " 'for-loop" "(if i_136" "(let-values(((extra-insp_0)(unsafe-immutable-hash-iterate-key ht_112 i_136)))" -"(let-values(((result_77)" -"(let-values()" "(let-values(((result_78)" "(let-values()" +"(let-values(((result_79)" +"(let-values()" "(let-values()" "(inspector-superior?" " extra-insp_0" " guard-insp_0)))))" -"(values result_78)))))" -"(if(if(not((lambda x_55(not result_77)) extra-insp_0))(not #f) #f)" -"(for-loop_95 result_77(unsafe-immutable-hash-iterate-next ht_112 i_136))" -" result_77)))" -" result_76)))))" -" for-loop_95)" +"(values result_79)))))" +"(if(if(not((lambda x_56(not result_78)) extra-insp_0))(not #f) #f)" +"(for-loop_97 result_78(unsafe-immutable-hash-iterate-next ht_112 i_136))" +" result_78)))" +" result_77)))))" +" for-loop_97)" " #t" "(unsafe-immutable-hash-iterate-first ht_112)))))" "(if(procedure? extra-inspectors_2)" @@ -28111,7 +28098,7 @@ static const char *startup_source = "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_104)))" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_90)))" -"((letrec-values(((for-loop_108)" +"((letrec-values(((for-loop_110)" "(lambda(fold-var_11 lst_91 lst_174)" "(begin" " 'for-loop" @@ -28133,9 +28120,9 @@ static const char *startup_source = " #f))" " fold-var_171))))" "(values fold-var_172)))))" -"(if(not #f)(for-loop_108 fold-var_170 rest_91 rest_37) fold-var_170)))" +"(if(not #f)(for-loop_110 fold-var_170 rest_91 rest_37) fold-var_170)))" " fold-var_11)))))" -" for-loop_108)" +" for-loop_110)" " null" " lst_104" " lst_90)))))" @@ -28144,7 +28131,7 @@ static const char *startup_source = "(let-values(((lst_92) mus_1))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_92)))" -"((letrec-values(((for-loop_194)" +"((letrec-values(((for-loop_196)" "(lambda(fold-var_173 lst_17)" "(begin" " 'for-loop" @@ -28163,9 +28150,9 @@ static const char *startup_source = " #f))" " fold-var_64))))" "(values fold-var_174)))))" -"(if(not #f)(for-loop_194 fold-var_74 rest_92) fold-var_74)))" +"(if(not #f)(for-loop_196 fold-var_74 rest_92) fold-var_74)))" " fold-var_173)))))" -" for-loop_194)" +" for-loop_196)" " null" " lst_92)))))))))" "(define-values" @@ -28176,7 +28163,7 @@ static const char *startup_source = "(let-values(((lst_175) mu*s_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_175)))" -"((letrec-values(((for-loop_195)" +"((letrec-values(((for-loop_197)" "(lambda(fold-var_76 lst_176)" "(begin" " 'for-loop" @@ -28193,9 +28180,9 @@ static const char *startup_source = "(module-use-phase mu*_0)))" " fold-var_66))))" "(values fold-var_67)))))" -"(if(not #f)(for-loop_195 fold-var_17 rest_93) fold-var_17)))" +"(if(not #f)(for-loop_197 fold-var_17 rest_93) fold-var_17)))" " fold-var_76)))))" -" for-loop_195)" +" for-loop_197)" " null" " lst_175)))))))" "(define-values" @@ -28208,7 +28195,7 @@ static const char *startup_source = "(let-values(((lst_177) mu*s_1))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_177)))" -"((letrec-values(((for-loop_196)" +"((letrec-values(((for-loop_198)" "(lambda(fold-var_79 lst_96)" "(begin" " 'for-loop" @@ -28223,9 +28210,9 @@ static const char *startup_source = "(module-use*-extra-inspectorss mu*_1))" " fold-var_4))))" "(values fold-var_68)))))" -"(if(not #f)(for-loop_196 fold-var_175 rest_94) fold-var_175)))" +"(if(not #f)(for-loop_198 fold-var_175 rest_94) fold-var_175)))" " fold-var_79)))))" -" for-loop_196)" +" for-loop_198)" " null" " lst_177)))))" "(let-values()" @@ -28316,7 +28303,7 @@ static const char *startup_source = "(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_73 imports_1 inspector_13 extra-inspector_5 extra-inspectorss_7)" +"(lambda(mpi_41 phase_72 imports_1 inspector_13 extra-inspector_5 extra-inspectorss_7)" "(begin" "(let-values(((now-inspector_0)(current-code-inspector)))" "(let-values(((add-insp?_0)(if inspector_13(inspector-superior? inspector_13 now-inspector_0) #f)))" @@ -28330,7 +28317,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_182)))" -"((letrec-values(((for-loop_197)" +"((letrec-values(((for-loop_199)" "(lambda(table_147 lst_183)" "(begin" " 'for-loop" @@ -28378,9 +28365,9 @@ static const char *startup_source = " key_57" " val_50)))))" "(values table_150)))))" -"(if(not #f)(for-loop_197 table_148 rest_98) table_148)))" +"(if(not #f)(for-loop_199 table_148 rest_98) table_148)))" " table_147)))))" -" for-loop_197)" +" for-loop_199)" " '#hash()" " lst_182))))" "(let-values()" @@ -28389,7 +28376,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_184)))" -"((letrec-values(((for-loop_198)" +"((letrec-values(((for-loop_200)" "(lambda(extra-inspectorss_8 lst_167)" "(begin" " 'for-loop" @@ -28412,13 +28399,13 @@ static const char *startup_source = " #f)))))" "(values extra-inspectorss_11)))))" "(if(not #f)" -"(for-loop_198 extra-inspectorss_9 rest_99)" +"(for-loop_200 extra-inspectorss_9 rest_99)" " extra-inspectorss_9)))" " extra-inspectorss_8)))))" -" for-loop_198)" +" for-loop_200)" "(let-values(((or-part_38) extra-inspectorss_7))(if or-part_38 or-part_38(seteq)))" " lst_184)))))))" -"(module-use*1.1 mpi_41 phase_73 new-extra-inspectorss_0 #f))))))))" +"(module-use*1.1 mpi_41 phase_72 new-extra-inspectorss_0 #f))))))))" "(define-values" "(module-use-merge-extra-inspectorss!)" "(lambda(existing-mu*_0 mu*_4)" @@ -28431,7 +28418,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-hash ht_113)))" -"((letrec-values(((for-loop_199)" +"((letrec-values(((for-loop_201)" "(lambda(new-extra-inspectorss_2 i_137)" "(begin" " 'for-loop" @@ -28454,12 +28441,12 @@ static const char *startup_source = "(seteq)))))))" "(values new-extra-inspectorss_5)))))" "(if(not #f)" -"(for-loop_199" +"(for-loop_201" " new-extra-inspectorss_3" "(hash-iterate-next ht_113 i_137))" " new-extra-inspectorss_3)))" " new-extra-inspectorss_2)))))" -" for-loop_199)" +" for-loop_201)" " existing-extra-inspectorss_0" "(hash-iterate-first ht_113))))))" "(set-module-use*-extra-inspectorss! existing-mu*_0 new-extra-inspectorss_1)))))))" @@ -28530,28 +28517,28 @@ static const char *startup_source = "(let-values(((serializable?_0) serializable?13_0))" "(let-values(((cross-linklet-inlining?_1) cross-linklet-inlining?14_0))" "(let-values()" -"(let-values(((phase_74)(compile-context-phase cctx_11)))" +"(let-values(((phase_73)(compile-context-phase cctx_11)))" "(let-values(((self_17)(compile-context-self cctx_11)))" "(let-values(((syntax-literals_1)(make-syntax-literals)))" "(let-values(((phase-to-body_0)(make-hasheqv)))" "(let-values(((add-body!_0)" -"(lambda(phase_75 body_1)" +"(lambda(phase_74 body_1)" "(begin" " 'add-body!" "(hash-update!" " phase-to-body_0" -" phase_75" +" phase_74" "(lambda(l_21)(cons body_1 l_21))" " null)))))" "(let-values(((phase-to-header_0)(make-hasheqv)))" "(let-values(((find-or-create-header!_0)" -"(lambda(phase_76)" +"(lambda(phase_75)" "(begin" " 'find-or-create-header!" "(let-values(((or-part_220)" "(hash-ref" " phase-to-header_0" -" phase_76" +" phase_75" " #f)))" "(if or-part_220" " or-part_220" @@ -28562,7 +28549,7 @@ static const char *startup_source = "(begin" "(hash-set!" " phase-to-header_0" -" phase_76" +" phase_75" " header_7)" " header_7))))))))" "(let-values((()" @@ -28573,12 +28560,12 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()(check-list lst_100)))" -"((letrec-values(((for-loop_113)" +"((letrec-values(((for-loop_115)" "(lambda(lst_26)" "(begin" " 'for-loop" "(if(pair? lst_26)" -"(let-values(((phase_77)" +"(let-values(((phase_76)" "(unsafe-car" " lst_26))" "((rest_100)" @@ -28592,18 +28579,18 @@ static const char *startup_source = "(let-values()" "(begin" "(find-or-create-header!_0" -" phase_77)" +" phase_76)" "(add-body!_0" -" phase_77" +" phase_76" " '(void))))" "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_113" +"(for-loop_115" " rest_100)" "(values))))" "(values))))))" -" for-loop_113)" +" for-loop_115)" " lst_100)))" "(values))))" "(let-values()" @@ -28628,7 +28615,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_185)))" -"((letrec-values(((for-loop_200)" +"((letrec-values(((for-loop_202)" "(lambda(lst_186)" "(begin" " 'for-loop" @@ -28724,17 +28711,17 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_200" +"(for-loop_202" " rest_101)" "(values))))" "(values))))))" -" for-loop_200)" +" for-loop_202)" " lst_185)))" "(void))))))" " loop!_0)" " bodys_2" -" phase_74" -"(find-or-create-header!_0 phase_74)))" +" phase_73" +"(find-or-create-header!_0 phase_73)))" "(void))" "(values))))" "(let-values(((as-required?_0)" @@ -28750,7 +28737,7 @@ static const char *startup_source = "(begin" "((letrec-values(((loop!_1)" "(lambda(bodys_4" -" phase_78" +" phase_77" " header_10)" "(begin" " 'loop!" @@ -28772,7 +28759,7 @@ static const char *startup_source = "(let-values()" "(check-naturals" " start_34)))" -"((letrec-values(((for-loop_201)" +"((letrec-values(((for-loop_203)" "(lambda(lst_190" " pos_93)" "(begin" @@ -28818,7 +28805,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_191)))" -"((letrec-values(((for-loop_121)" +"((letrec-values(((for-loop_123)" "(lambda(fold-var_179" " lst_192)" "(begin" @@ -28847,12 +28834,12 @@ static const char *startup_source = " fold-var_181)))))" "(if(not" " #f)" -"(for-loop_121" +"(for-loop_123" " fold-var_168" " rest_104)" " fold-var_168)))" " fold-var_179)))))" -" for-loop_121)" +" for-loop_123)" " null" " lst_191)))))" "(let-values()" @@ -28866,7 +28853,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_193)))" -"((letrec-values(((for-loop_202)" +"((letrec-values(((for-loop_204)" "(lambda(fold-var_182" " lst_173)" "(begin" @@ -28892,7 +28879,7 @@ static const char *startup_source = "(compile-context-self" " cctx_11))" "((phase37_0)" -" phase_78)" +" phase_77)" "((binding-sym38_0)" " binding-sym_1)" "((temp39_1)" @@ -28911,43 +28898,43 @@ static const char *startup_source = " fold-var_2)))))" "(if(not" " #f)" -"(for-loop_202" +"(for-loop_204" " fold-var_183" " rest_89)" " fold-var_183)))" " fold-var_182)))))" -" for-loop_202)" +" for-loop_204)" " null" " lst_193))))))))" "(let-values(((rhs_1)" "(compile$2" "(parsed-define-values-rhs" " body_0)" -"(let-values(((the-struct_49)" +"(let-values(((the-struct_48)" " cctx_11))" "(if(compile-context?" -" the-struct_49)" +" the-struct_48)" "(let-values(((phase41_0)" -" phase_78)" +" phase_77)" "((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)" @@ -28961,11 +28948,11 @@ static const char *startup_source = " rhs_1" "(length" " def-syms_0)" -" phase_78" +" phase_77" "(as-required?_0" " header_10))" "(add-body!_0" -" phase_78" +" phase_77" "(propagate-inline-property" "(correlate*" "(parsed-s" @@ -28987,7 +28974,7 @@ static const char *startup_source = "(let-values()" "(begin" "(add-body!_0" -" phase_78" +" phase_77" "(list*" " 'if" " #f" @@ -29003,7 +28990,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_194)))" -"((letrec-values(((for-loop_203)" +"((letrec-values(((for-loop_205)" "(lambda(fold-var_184" " lst_13)" "(begin" @@ -29032,45 +29019,45 @@ static const char *startup_source = " fold-var_187)))))" "(if(not" " #f)" -"(for-loop_203" +"(for-loop_205" " fold-var_185" " rest_105)" " fold-var_185)))" " fold-var_184)))))" -" for-loop_203)" +" for-loop_205)" " null" " lst_194)))))" " '((void))))" "(add-body!_0" -" phase_78" +" phase_77" "(compile-top-level-bind" " ids_5" " binding-syms_0" -"(let-values(((the-struct_50)" +"(let-values(((the-struct_49)" " cctx_11))" "(if(compile-context?" -" the-struct_50)" +" the-struct_49)" "(let-values(((phase43_0)" -" phase_78)" +" phase_77)" "((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_0)" @@ -29084,7 +29071,7 @@ static const char *startup_source = "(let-values(((next-header_0)" "(find-or-create-header!_0" "(add1" -" phase_78))))" +" phase_77))))" "(let-values(((gen-syms_0)" "(reverse$1" "(let-values(((lst_195)" @@ -29096,7 +29083,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_195)))" -"((letrec-values(((for-loop_204)" +"((letrec-values(((for-loop_206)" "(lambda(fold-var_188" " lst_196)" "(begin" @@ -29130,44 +29117,44 @@ static const char *startup_source = " fold-var_191)))))" "(if(not" " #f)" -"(for-loop_204" +"(for-loop_206" " fold-var_189" " rest_106)" " fold-var_189)))" " fold-var_188)))))" -" for-loop_204)" +" for-loop_206)" " null" " lst_195))))))" "(let-values(((rhs_2)" "(compile$2" "(parsed-define-syntaxes-rhs" " body_0)" -"(let-values(((the-struct_51)" +"(let-values(((the-struct_50)" " cctx_11))" "(if(compile-context?" -" the-struct_51)" +" the-struct_50)" "(let-values(((phase45_0)" "(add1" -" phase_78))" +" phase_77))" "((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)" @@ -29179,7 +29166,7 @@ static const char *startup_source = "(length" " gen-syms_0)" "(add1" -" phase_78)" +" phase_77)" "(as-required?_0" " header_10))" "(values))))" @@ -29202,7 +29189,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_198)))" -"((letrec-values(((for-loop_205)" +"((letrec-values(((for-loop_207)" "(lambda(fold-var_192" " lst_199" " lst_200)" @@ -29243,13 +29230,13 @@ static const char *startup_source = " fold-var_195)))))" "(if(not" " #f)" -"(for-loop_205" +"(for-loop_207" " fold-var_193" " rest_107" " rest_108)" " fold-var_193)))" " fold-var_192)))))" -" for-loop_205)" +" for-loop_207)" " null" " lst_197" " lst_198))))))" @@ -29259,7 +29246,7 @@ static const char *startup_source = "(let-values()" "(add-body!_0" "(add1" -" phase_78)" +" phase_77)" "(list" " 'let-values" "(list" @@ -29274,7 +29261,7 @@ static const char *startup_source = "(let-values()" "(add-body!_0" "(add1" -" phase_78)" +" phase_77)" "(generate-top-level-define-syntaxes" " gen-syms_0" " rhs_2" @@ -29282,31 +29269,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_11))" "(if(compile-context?" -" the-struct_52)" +" the-struct_51)" "(let-values(((phase47_0)" -" phase_78)" +" phase_77)" "((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)))))))))))" @@ -29317,10 +29304,10 @@ static const char *startup_source = "(parsed-begin-for-syntax-body" " body_0)" "(add1" -" phase_78)" +" phase_77)" "(find-or-create-header!_0" "(add1" -" phase_78))))" +" phase_77))))" "(if(let-values(((or-part_221)" "(parsed-#%declare?" " body_0)))" @@ -29337,73 +29324,73 @@ static const char *startup_source = "(let-values(((e_34)" "(other-form-callback_0" " body_0" -"(let-values(((the-struct_53)" +"(let-values(((the-struct_52)" " cctx_11))" "(if(compile-context?" -" the-struct_53)" +" the-struct_52)" "(let-values(((phase49_0)" -" phase_78)" +" phase_77)" "((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_78" +" phase_77" "(as-required?_0" " header_10))" "(add-body!_0" -" phase_78" +" phase_77" " e_34)))" "(void))))" "(let-values()" "(let-values(((e_35)" "(compile$2" " body_0" -"(let-values(((the-struct_54)" +"(let-values(((the-struct_53)" " cctx_11))" "(if(compile-context?" -" the-struct_54)" +" the-struct_53)" "(let-values(((phase51_0)" -" phase_78)" +" phase_77)" "((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_107" @@ -29412,31 +29399,31 @@ static const char *startup_source = "(compiled-expression-callback_0" " e_35" " #f" -" phase_78" +" phase_77" "(as-required?_0" " header_10))" "(add-body!_0" -" phase_78" +" phase_77" " e_35)))))))))" "(values)))))" "(values)))))" "(if(not" " #f)" -"(for-loop_201" +"(for-loop_203" " rest_103" "(+" " pos_93" " 1))" "(values))))" "(values))))))" -" for-loop_201)" +" for-loop_203)" " lst_189" " start_34)))" "(void))))))" " loop!_1)" " bodys_2" -" phase_74" -"(find-or-create-header!_0 phase_74))" +" phase_73" +"(find-or-create-header!_0 phase_73))" "(values))))" "(let-values(((encoded-root-expand-pos_0)" "(if encoded-root-expand-ctx-box_0" @@ -29466,13 +29453,13 @@ static const char *startup_source = "(let-values(((min-phase_0)" "(if(pair? phases-in-order_2)" "(car phases-in-order_2)" -" phase_74)))" +" phase_73)))" "(let-values(((max-phase_0)" "(if(pair? phases-in-order_2)" "(car" "(reverse$1" " phases-in-order_2))" -" phase_74)))" +" phase_73)))" "(let-values(((phase-to-link-info_0)" "(let-values(((lst_201)" " phases-in-order_2))" @@ -29482,14 +29469,14 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list lst_201)))" -"((letrec-values(((for-loop_206)" +"((letrec-values(((for-loop_208)" "(lambda(table_151" " lst_202)" "(begin" " 'for-loop" "(if(pair?" " lst_202)" -"(let-values(((phase_79)" +"(let-values(((phase_78)" "(unsafe-car" " lst_202))" "((rest_109)" @@ -29506,7 +29493,7 @@ static const char *startup_source = "(let-values(((header_11)" "(hash-ref" " phase-to-header_0" -" phase_79" +" phase_78" " #f)))" "(let-values(((link-module-uses_0" " imports_2" @@ -29514,11 +29501,11 @@ static const char *startup_source = " def-decls_0)" "(generate-links+imports" " header_11" -" phase_79" +" phase_78" " cctx_11" " cross-linklet-inlining?_1)))" "(values" -" phase_79" +" phase_78" "(link-info1.1" " link-module-uses_0" " imports_2" @@ -29532,12 +29519,12 @@ static const char *startup_source = " table_154)))))" "(if(not" " #f)" -"(for-loop_206" +"(for-loop_208" " table_152" " rest_109)" " table_152)))" " table_151)))))" -" for-loop_206)" +" for-loop_208)" " '#hash()" " lst_201)))))" "(let-values(((body-linklets+module-use*s_0)" @@ -29550,14 +29537,14 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_108)))" -"((letrec-values(((for-loop_207)" +"((letrec-values(((for-loop_209)" "(lambda(table_155" " lst_109)" "(begin" " 'for-loop" "(if(pair?" " lst_109)" -"(let-values(((phase_80)" +"(let-values(((phase_79)" "(unsafe-car" " lst_109))" "((rest_110)" @@ -29574,16 +29561,16 @@ static const char *startup_source = "(let-values(((bodys_5)" "(hash-ref" " phase-to-body_0" -" phase_80)))" +" phase_79)))" "(let-values(((li_0)" "(hash-ref" " phase-to-link-info_0" -" phase_80)))" +" phase_79)))" "(let-values(((binding-sym-to-define-sym_0)" "(header-binding-sym-to-define-sym" "(hash-ref" " phase-to-header_0" -" phase_80))))" +" phase_79))))" "(let-values(((module-use*s_0)" "(module-uses-add-extra-inspectorsss" "(link-info-link-module-uses" @@ -29627,7 +29614,7 @@ static const char *startup_source = "(header-binding-syms-in-order" "(hash-ref" " phase-to-header_0" -" phase_80))))" +" phase_79))))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" @@ -29635,7 +29622,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_203)))" -"((letrec-values(((for-loop_208)" +"((letrec-values(((for-loop_210)" "(lambda(fold-var_196" " lst_204)" "(begin" @@ -29671,12 +29658,12 @@ static const char *startup_source = " fold-var_199)))))" "(if(not" " #f)" -"(for-loop_208" +"(for-loop_210" " fold-var_197" " rest_111)" " fold-var_197)))" " fold-var_196)))))" -" for-loop_208)" +" for-loop_210)" " null" " lst_203)))))" "(qq-append" @@ -29695,7 +29682,7 @@ static const char *startup_source = " get-module-linklet-info_0" " module-use*s_0)))))" "(values" -" phase_80" +" phase_79" "(cons" " linklet_1" "(list-tail" @@ -29711,12 +29698,12 @@ static const char *startup_source = " table_158)))))" "(if(not" " #f)" -"(for-loop_207" +"(for-loop_209" " table_156" " rest_110)" " table_156)))" " table_155)))))" -" for-loop_207)" +" for-loop_209)" " '#hasheq()" " lst_108)))))" "(let-values(((body-linklets_0)" @@ -29729,13 +29716,13 @@ static const char *startup_source = "(let-values()" "(check-in-hash" " ht_114)))" -"((letrec-values(((for-loop_209)" +"((letrec-values(((for-loop_211)" "(lambda(table_32" " i_138)" "(begin" " 'for-loop" "(if i_138" -"(let-values(((phase_81" +"(let-values(((phase_80" " l+mu*s_0)" "(hash-iterate-key+value" " ht_114" @@ -29749,7 +29736,7 @@ static const char *startup_source = " val_53)" "(let-values()" "(values" -" phase_81" +" phase_80" "(car" " l+mu*s_0)))))" "(hash-set" @@ -29760,14 +29747,14 @@ static const char *startup_source = " table_159)))))" "(if(not" " #f)" -"(for-loop_209" +"(for-loop_211" " table_33" "(hash-iterate-next" " ht_114" " i_138))" " table_33)))" " table_32)))))" -" for-loop_209)" +" for-loop_211)" " '#hasheq()" "(hash-iterate-first" " ht_114))))))" @@ -29781,13 +29768,13 @@ static const char *startup_source = "(let-values()" "(check-in-hash" " ht_115)))" -"((letrec-values(((for-loop_210)" +"((letrec-values(((for-loop_212)" "(lambda(table_160" " i_139)" "(begin" " 'for-loop" "(if i_139" -"(let-values(((phase_82" +"(let-values(((phase_81" " l+mu*s_1)" "(hash-iterate-key+value" " ht_115" @@ -29801,7 +29788,7 @@ static const char *startup_source = " val_40)" "(let-values()" "(values" -" phase_82" +" phase_81" "(module-uses-strip-extra-inspectorsss" "(cdr" " l+mu*s_1))))))" @@ -29813,14 +29800,14 @@ static const char *startup_source = " table_36)))))" "(if(not" " #f)" -"(for-loop_210" +"(for-loop_212" " table_125" "(hash-iterate-next" " ht_115" " i_139))" " table_125)))" " table_160)))))" -" for-loop_210)" +" for-loop_212)" " '#hasheq()" "(hash-iterate-first" " ht_115))))))" @@ -29838,13 +29825,13 @@ static const char *startup_source = "(let-values()" "(check-in-hash" " ht_116)))" -"((letrec-values(((for-loop_211)" +"((letrec-values(((for-loop_213)" "(lambda(table_161" " i_140)" "(begin" " 'for-loop" "(if i_140" -"(let-values(((phase_83" +"(let-values(((phase_82" " l+mu*s_2)" "(hash-iterate-key+value" " ht_116" @@ -29861,7 +29848,7 @@ static const char *startup_source = " body-imports_0))))" "(begin" " #t" -"((letrec-values(((for-loop_212)" +"((letrec-values(((for-loop_214)" "(lambda(table_163)" "(begin" " 'for-loop" @@ -29878,7 +29865,7 @@ static const char *startup_source = " val_54)" "(let-values()" "(values" -" phase_83" +" phase_82" " extra-inspectorsss_2))))" "(hash-set" " table_166" @@ -29888,18 +29875,18 @@ static const char *startup_source = " table_39)))" " table_165))))" " table_164))))))" -" for-loop_212)" +" for-loop_214)" " table_161)))))" "(if(not" " #f)" -"(for-loop_211" +"(for-loop_213" " table_162" "(hash-iterate-next" " ht_116" " i_140))" " table_162)))" " table_161)))))" -" for-loop_211)" +" for-loop_213)" " '#hash()" "(hash-iterate-first" " ht_116))))))" @@ -29916,7 +29903,7 @@ static const char *startup_source = "(compile-top-level-bind)" "(lambda(ids_7 binding-syms_2 cctx_12 trans-exprs_0)" "(begin" -"(let-values(((phase_84)(compile-context-phase cctx_12)))" +"(let-values(((phase_83)(compile-context-phase cctx_12)))" "(let-values(((self_18)(compile-context-self cctx_12)))" "(let-values(((header_12)(compile-context-header cctx_12)))" "(let-values(((mpis_16)(header-module-path-indexes header_12)))" @@ -29939,7 +29926,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_207)))" -"((letrec-values(((for-loop_213)" +"((letrec-values(((for-loop_215)" "(lambda(fold-var_200 lst_39)" "(begin" " 'for-loop" @@ -29957,10 +29944,10 @@ static const char *startup_source = " fold-var_202))))" "(values fold-var_203)))))" "(if(not #f)" -"(for-loop_213 fold-var_201 rest_16)" +"(for-loop_215 fold-var_201 rest_16)" " fold-var_201)))" " fold-var_200)))))" -" for-loop_213)" +" for-loop_215)" " null" " lst_207))))))))" "(begin" @@ -29973,7 +29960,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_47)))" -"((letrec-values(((for-loop_135)" +"((letrec-values(((for-loop_137)" "(lambda(fold-var_204 lst_1 lst_208 lst_209)" "(begin" " 'for-loop" @@ -30000,7 +29987,7 @@ static const char *startup_source = " top-level-bind!-id" " id-stx_0" " self-expr_0" -" phase_84" +" phase_83" " phase-shift-id" " ns-id" "(list 'quote binding-sym_5)" @@ -30009,10 +29996,10 @@ static const char *startup_source = " fold-var_206))))" "(values fold-var_207)))))" "(if(not #f)" -"(for-loop_135 fold-var_205 rest_112 rest_113 rest_114)" +"(for-loop_137 fold-var_205 rest_112 rest_113 rest_114)" " fold-var_205)))" " fold-var_204)))))" -" for-loop_135)" +" for-loop_137)" " null" " lst_205" " lst_206" @@ -30042,7 +30029,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_210)))" -"((letrec-values(((for-loop_138)" +"((letrec-values(((for-loop_140)" "(lambda(fold-var_208 lst_211)" "(begin" " 'for-loop" @@ -30054,9 +30041,9 @@ static const char *startup_source = "(let-values()" "(cons(let-values() ''#f) fold-var_210))))" "(values fold-var_211)))))" -"(if(not #f)(for-loop_138 fold-var_209 rest_115) fold-var_209)))" +"(if(not #f)(for-loop_140 fold-var_209 rest_115) fold-var_209)))" " fold-var_208)))))" -" for-loop_138)" +" for-loop_140)" " null" " lst_210)))))))" "(list* 'begin finish_1 '((void)))))" @@ -30065,8 +30052,8 @@ static const char *startup_source = "(propagate-inline-property)" "(lambda(e_36 orig-s_22)" "(begin" -"(let-values(((v_168)(syntax-property$1 orig-s_22 'compiler-hint:cross-module-inline)))" -"(if v_168(correlated-property e_36 'compiler-hint:cross-module-inline v_168) e_36)))))" +"(let-values(((v_165)(syntax-property$1 orig-s_22 'compiler-hint:cross-module-inline)))" +"(if v_165(correlated-property e_36 'compiler-hint:cross-module-inline v_165) 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)" @@ -30092,7 +30079,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_212)))" -"((letrec-values(((for-loop_214)" +"((letrec-values(((for-loop_216)" "(lambda(lst_213)" "(begin" " 'for-loop" @@ -30106,9 +30093,9 @@ static const char *startup_source = "(let-values()(intern-module-use*_0 mu*_6))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_214 rest_116)(values))))" +"(if(not #f)(for-loop_216 rest_116)(values))))" "(values))))))" -" for-loop_214)" +" for-loop_216)" " lst_212)))" "(void)" "(lambda(mu*-or-instance_0)" @@ -30162,7 +30149,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_216)))" -"((letrec-values(((for-loop_215)" +"((letrec-values(((for-loop_217)" "(lambda(fold-var_212 lst_217 lst_218 lst_219)" "(begin" " 'for-loop" @@ -30205,14 +30192,14 @@ static const char *startup_source = " fold-var_214))))" "(values fold-var_215)))))" "(if(not #f)" -"(for-loop_215" +"(for-loop_217" " fold-var_213" " rest_117" " rest_118" " rest_119)" " fold-var_213)))" " fold-var_212)))))" -" for-loop_215)" +" for-loop_217)" " null" " lst_214" " lst_215" @@ -30237,7 +30224,7 @@ static const char *startup_source = "(values vec_60(unsafe-vector-length vec_60))))))" "(begin" " #f" -"((letrec-values(((for-loop_96)" +"((letrec-values(((for-loop_98)" "(lambda(vec_61 i_142 pos_94)" "(begin" " 'for-loop" @@ -30272,13 +30259,13 @@ static const char *startup_source = " 1)))))))" "(values vec_64 i_144)))))" "(if(not #f)" -"(for-loop_96" +"(for-loop_98" " vec_62" " i_143" "(unsafe-fx+ 1 pos_94))" "(values vec_62 i_143))))" "(values vec_61 i_142))))))" -" for-loop_96)" +" for-loop_98)" "(make-vector 16)" " 0" " 0)))))" @@ -30314,7 +30301,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_220)))" -"((letrec-values(((for-loop_107)" +"((letrec-values(((for-loop_109)" "(lambda(fold-var_71 lst_89)" "(begin" " 'for-loop" @@ -30335,10 +30322,10 @@ static const char *startup_source = " fold-var_158))))" "(values fold-var_9)))))" "(if(not #f)" -"(for-loop_107 fold-var_34 rest_120)" +"(for-loop_109 fold-var_34 rest_120)" " fold-var_34)))" " fold-var_71)))))" -" for-loop_107)" +" for-loop_109)" " null" " lst_220)))))))" "(1/compile-linklet" @@ -30378,7 +30365,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_80)))" -"((letrec-values(((for-loop_97)" +"((letrec-values(((for-loop_99)" "(lambda(fold-var_160 lst_81)" "(begin" " 'for-loop" @@ -30402,10 +30389,10 @@ static const char *startup_source = " fold-var_170))))" "(values fold-var_171)))))" "(if(not #f)" -"(for-loop_97 fold-var_216 rest_121)" +"(for-loop_99 fold-var_216 rest_121)" " fold-var_216)))" " fold-var_160)))))" -" for-loop_97)" +" for-loop_99)" " null" " lst_80))))))))" " loop_92)" @@ -30433,7 +30420,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-naturals start_35)))" -"((letrec-values(((for-loop_216)" +"((letrec-values(((for-loop_218)" "(lambda(table_167 lst_222 pos_96)" "(begin" " 'for-loop" @@ -30462,10 +30449,10 @@ static const char *startup_source = " val_35)))))" "(values table_170)))))" "(if(not #f)" -"(for-loop_216 table_168 rest_49(+ pos_96 1))" +"(for-loop_218 table_168 rest_49(+ pos_96 1))" " table_168)))" " table_167)))))" -" for-loop_216)" +" for-loop_218)" " '#hasheq()" " lst_221" " start_35)))))" @@ -30508,7 +30495,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-range start_36 end_25 inc_19)))" -"((letrec-values(((for-loop_194)" +"((letrec-values(((for-loop_196)" "(lambda(fold-var_173 pos_97)" "(begin" " 'for-loop" @@ -30522,7 +30509,7 @@ static const char *startup_source = " #f)))" "(begin" " #t" -"((letrec-values(((for-loop_217)" +"((letrec-values(((for-loop_219)" "(lambda(fold-var_174)" "(begin" " 'for-loop" @@ -30543,11 +30530,11 @@ static const char *startup_source = " fold-var_76)))" " fold-var_75))))" " fold-var_218))))))" -" for-loop_217)" +" for-loop_219)" " fold-var_173)))))" -"(if(not #f)(for-loop_194 fold-var_217(+ pos_97 inc_19)) fold-var_217)))" +"(if(not #f)(for-loop_196 fold-var_217(+ pos_97 inc_19)) fold-var_217)))" " fold-var_173)))))" -" for-loop_194)" +" for-loop_196)" " null" " start_36))))))))" "(define-values" @@ -30578,10 +30565,10 @@ static const char *startup_source = "(values struct:_70 make-_70 ?_70(make-struct-field-accessor -ref_70 0 'thunk))))" "(define-values" "(struct:known-property known-property3.1 known-property?)" -"(let-values(((struct:_65 make-_65 ?_65 -ref_65 -set!_65)" +"(let-values(((struct:_64 make-_64 ?_64 -ref_64 -set!_64)" "(let-values()" "(let-values()(make-struct-type 'known-property #f 0 0 #f null 'prefab #f '() #f 'known-property)))))" -"(values struct:_65 make-_65 ?_65)))" +"(values struct:_64 make-_64 ?_64)))" "(define-values" "(struct:known-function known-function4.1 known-function? known-function-arity known-function-pure?)" "(let-values(((struct:_71 make-_71 ?_71 -ref_71 -set!_71)" @@ -30599,7 +30586,7 @@ static const char *startup_source = " known-function-of-satisfying5.1" " known-function-of-satisfying?" " known-function-of-satisfying-arg-predicate-keys)" -"(let-values(((struct:_44 make-_44 ?_44 -ref_44 -set!_44)" +"(let-values(((struct:_42 make-_42 ?_42 -ref_42 -set!_42)" "(let-values()" "(let-values()" "(make-struct-type" @@ -30614,7 +30601,7 @@ static const char *startup_source = " '(0)" " #f" " 'known-function-of-satisfying)))))" -"(values struct:_44 make-_44 ?_44(make-struct-field-accessor -ref_44 0 'arg-predicate-keys))))" +"(values struct:_42 make-_42 ?_42(make-struct-field-accessor -ref_42 0 'arg-predicate-keys))))" "(define-values" "(struct:known-predicate known-predicate6.1 known-predicate? known-predicate-key)" "(let-values(((struct:_11 make-_11 ?_11 -ref_11 -set!_11)" @@ -30631,16 +30618,16 @@ static const char *startup_source = "(values struct:_72 make-_72 ?_72(make-struct-field-accessor -ref_72 0 'predicate-key))))" "(define-values" "(struct:known-struct-op known-struct-op8.1 known-struct-op? known-struct-op-type known-struct-op-field-count)" -"(let-values(((struct:_40 make-_40 ?_40 -ref_40 -set!_40)" +"(let-values(((struct:_39 make-_39 ?_39 -ref_39 -set!_39)" "(let-values()" "(let-values()" "(make-struct-type 'known-struct-op #f 2 0 #f null 'prefab #f '(0 1) #f 'known-struct-op)))))" "(values" -" struct:_40" -" make-_40" -" ?_40" -"(make-struct-field-accessor -ref_40 0 'type)" -"(make-struct-field-accessor -ref_40 1 'field-count))))" +" struct:_39" +" make-_39" +" ?_39" +"(make-struct-field-accessor -ref_39 0 'type)" +"(make-struct-field-accessor -ref_39 1 'field-count))))" "(define-values" "(lookup-defn)" "(lambda(defns_0 sym_61)" @@ -30842,8 +30829,8 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_223)))" -"((letrec-values(((for-loop_218)" -"(lambda(result_79" +"((letrec-values(((for-loop_220)" +"(lambda(result_80" " lst_224)" "(begin" " 'for-loop" @@ -30855,10 +30842,10 @@ static const char *startup_source = "((rest_122)" "(unsafe-cdr" " lst_224)))" -"(let-values(((result_80)" -"(let-values()" "(let-values(((result_81)" "(let-values()" +"(let-values(((result_82)" +"(let-values()" "(let-values()" "(not" "(effects?_0" @@ -30866,21 +30853,21 @@ static const char *startup_source = " 1" " locals_2))))))" "(values" -" result_81)))))" +" result_82)))))" "(if(if(not" -"((lambda x_56" +"((lambda x_57" "(not" -" result_80))" +" result_81))" " e_42))" "(not" " #f)" " #f)" -"(for-loop_218" -" result_80" +"(for-loop_220" +" result_81" " rest_122)" -" result_80)))" -" result_79)))))" -" for-loop_218)" +" result_81)))" +" result_80)))))" +" for-loop_220)" " #t" " lst_223)))" " #f)))" @@ -30911,8 +30898,8 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_225)))" -"((letrec-values(((for-loop_99)" -"(lambda(result_82" +"((letrec-values(((for-loop_101)" +"(lambda(result_83" " lst_179" " lst_10)" "(begin" @@ -30934,10 +30921,10 @@ static const char *startup_source = "((rest_123)" "(unsafe-cdr" " lst_10)))" -"(let-values(((result_83)" -"(let-values()" "(let-values(((result_84)" "(let-values()" +"(let-values(((result_85)" +"(let-values()" "(let-values()" "(if(not" "(effects?_0" @@ -30951,28 +30938,28 @@ static const char *startup_source = " locals_2)" " #f)))))" "(values" -" result_84)))))" +" result_85)))))" "(if(if(not" -"((lambda x_57" +"((lambda x_58" "(not" -" result_83))" +" result_84))" " e_3))" "(if(not" "((lambda x_9" "(not" -" result_83))" +" result_84))" " key_63))" "(not" " #f)" " #f)" " #f)" -"(for-loop_99" -" result_83" +"(for-loop_101" +" result_84" " rest_1" " rest_123)" -" result_83)))" -" result_82)))))" -" for-loop_99)" +" result_84)))" +" result_83)))))" +" for-loop_101)" " #t" " lst_97" " lst_225)))" @@ -31088,7 +31075,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_193)))" -"((letrec-values(((for-loop_202)" +"((letrec-values(((for-loop_204)" "(lambda(ids_9" " rhs_5" " lst_226)" @@ -31198,7 +31185,7 @@ static const char *startup_source = " rhs_8)))))" "(if(not" " #f)" -"(for-loop_202" +"(for-loop_204" " ids_10" " rhs_6" " rest_124)" @@ -31208,7 +31195,7 @@ static const char *startup_source = "(values" " ids_9" " rhs_5))))))" -" for-loop_202)" +" for-loop_204)" " null" " null" " lst_193)))))" @@ -31308,7 +31295,7 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()(check-list lst_227)))" -"((letrec-values(((for-loop_219)" +"((letrec-values(((for-loop_221)" "(lambda(result_13" " lst_200" " lst_228)" @@ -31331,10 +31318,10 @@ static const char *startup_source = "((rest_126)" "(unsafe-cdr" " lst_228)))" -"(let-values(((result_85)" -"(let-values()" "(let-values(((result_86)" "(let-values()" +"(let-values(((result_87)" +"(let-values()" "(let-values()" "(effects?_0" " rhs_9" @@ -31342,26 +31329,26 @@ static const char *startup_source = " ids_13)" " locals_2)))))" "(values" -" result_86)))))" +" result_87)))))" "(if(if(not" -"((lambda x_58" -" result_85)" +"((lambda x_59" +" result_86)" " ids_13))" "(if(not" -"((lambda x_59" -" result_85)" +"((lambda x_60" +" result_86)" " rhs_9))" "(not" " #f)" " #f)" " #f)" -"(for-loop_219" -" result_85" +"(for-loop_221" +" result_86" " rest_125" " rest_126)" -" result_85)))" +" result_86)))" " result_13)))))" -" for-loop_219)" +" for-loop_221)" " #f" " lst_198" " lst_227))))" @@ -31432,8 +31419,8 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()(check-list lst_229)))" -"((letrec-values(((for-loop_220)" -"(lambda(result_87" +"((letrec-values(((for-loop_222)" +"(lambda(result_88" " lst_230)" "(begin" " 'for-loop" @@ -31445,10 +31432,10 @@ static const char *startup_source = "((rest_127)" "(unsafe-cdr" " lst_230)))" -"(let-values(((result_88)" -"(let-values()" "(let-values(((result_89)" "(let-values()" +"(let-values(((result_90)" +"(let-values()" "(let-values()" "(not" "(effects?_0" @@ -31456,21 +31443,21 @@ static const char *startup_source = " 1" " locals_2))))))" "(values" -" result_89)))))" +" result_90)))))" "(if(if(not" -"((lambda x_60" +"((lambda x_61" "(not" -" result_88))" +" result_89))" " e_53))" "(not" " #f)" " #f)" -"(for-loop_220" -" result_88" +"(for-loop_222" +" result_89" " rest_127)" -" result_88)))" -" result_87)))))" -" for-loop_220)" +" result_89)))" +" result_88)))))" +" for-loop_222)" " #t" " lst_229)))" "(length e39_0)" @@ -31540,8 +31527,8 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list lst_231)))" -"((letrec-values(((for-loop_221)" -"(lambda(result_90" +"((letrec-values(((for-loop_223)" +"(lambda(result_91" " lst_232)" "(begin" " 'for-loop" @@ -31573,12 +31560,12 @@ static const char *startup_source = "(not" " #f)" " #f)" -"(for-loop_221" +"(for-loop_223" " result_29" " rest_128)" " result_29)))" -" result_90)))))" -" for-loop_221)" +" result_91)))))" +" for-loop_223)" " #t" " lst_231)))" " 1" @@ -31759,8 +31746,8 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()(check-list lst_233)))" -"((letrec-values(((for-loop_222)" -"(lambda(result_91" +"((letrec-values(((for-loop_224)" +"(lambda(result_92" " lst_119)" "(begin" " 'for-loop" @@ -31771,10 +31758,10 @@ static const char *startup_source = "((rest_129)" "(unsafe-cdr" " lst_119)))" -"(let-values(((result_92)" -"(let-values()" "(let-values(((result_93)" "(let-values()" +"(let-values(((result_94)" +"(let-values()" "(let-values()" "(not" "(effects?_0" @@ -31782,20 +31769,20 @@ static const char *startup_source = " #f" " locals_2))))))" "(values" -" result_93)))))" +" result_94)))))" "(if(if(not" -"((lambda x_61" +"((lambda x_62" "(not" -" result_92))" +" result_93))" " e_61))" "(not #f)" " #f)" -"(for-loop_222" -" result_92" +"(for-loop_224" +" result_93" " rest_129)" -" result_92)))" -" result_91)))))" -" for-loop_222)" +" result_93)))" +" result_92)))))" +" for-loop_224)" " #t" " lst_233)))" "(loop_82 e051_0 locals_2)" @@ -32565,7 +32552,7 @@ static const char *startup_source = "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_234)))" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_235)))" -"((letrec-values(((for-loop_147)" +"((letrec-values(((for-loop_149)" "(lambda(locals_5 lst_236 lst_237)" "(begin" " 'for-loop" @@ -32620,7 +32607,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_239)))" -"((letrec-values(((for-loop_223)" +"((letrec-values(((for-loop_225)" "(lambda(locals_9" " lst_240" " lst_241)" @@ -32659,13 +32646,13 @@ static const char *startup_source = " locals_12)))))" "(if(not" " #f)" -"(for-loop_223" +"(for-loop_225" " locals_10" " rest_132" " rest_133)" " locals_10)))" " locals_9)))))" -" for-loop_223)" +" for-loop_225)" " locals_7" " lst_238" " lst_239)))))" @@ -32693,7 +32680,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_242)))" -"((letrec-values(((for-loop_224)" +"((letrec-values(((for-loop_226)" "(lambda(locals_13" " lst_243)" "(begin" @@ -32720,20 +32707,20 @@ static const char *startup_source = " locals_16)))))" "(if(not" " #f)" -"(for-loop_224" +"(for-loop_226" " locals_14" " rest_134)" " locals_14)))" " locals_13)))))" -" for-loop_224)" +" for-loop_226)" " locals_7" " lst_242)))))))))))" " loop_93)" " rhs_10))))" "(values locals_8)))))" -"(if(not #f)(for-loop_147 locals_6 rest_130 rest_131) locals_6)))" +"(if(not #f)(for-loop_149 locals_6 rest_130 rest_131) locals_6)))" " locals_5)))))" -" for-loop_147)" +" for-loop_149)" " locals_4" " lst_234" " lst_235))))))" @@ -32746,17 +32733,17 @@ static const char *startup_source = "(let-values(((lst_244)(cdr l_57))" "((lst_245)" "(list" -"(lambda(v_169)(quoted? symbol? v_169))" -"(lambda(v_170)(is-lambda? v_170 2 defns_3))" -"(lambda(v_171)(ok-make-struct-type-property-super? v_171 defns_3))" -"(lambda(v_172)" -"(let-values(((v103_0) v_172)((temp104_1) 1)((defns105_0) defns_3))" +"(lambda(v_166)(quoted? symbol? v_166))" +"(lambda(v_167)(is-lambda? v_167 2 defns_3))" +"(lambda(v_168)(ok-make-struct-type-property-super? v_168 defns_3))" +"(lambda(v_169)" +"(let-values(((v103_0) v_169)((temp104_1) 1)((defns105_0) defns_3))" "(any-side-effects?9.1 defns105_0 unsafe-undefined unsafe-undefined v103_0 temp104_1))))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_244)))" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_245)))" -"((letrec-values(((for-loop_225)" -"(lambda(result_94 lst_246 lst_60)" +"((letrec-values(((for-loop_227)" +"(lambda(result_95 lst_246 lst_60)" "(begin" " 'for-loop" "(if(if(pair? lst_246)(pair? lst_60) #f)" @@ -32764,50 +32751,50 @@ static const char *startup_source = "((rest_27)(unsafe-cdr lst_246))" "((pred_1)(unsafe-car lst_60))" "((rest_135)(unsafe-cdr lst_60)))" -"(let-values(((result_95)" -"(let-values()" "(let-values(((result_96)" +"(let-values()" +"(let-values(((result_97)" "(let-values()(let-values()(pred_1 arg_0)))))" -"(values result_96)))))" -"(if(if(not((lambda x_62(not result_95)) arg_0))" -"(if(not((lambda x_63(not result_95)) pred_1))(not #f) #f)" +"(values result_97)))))" +"(if(if(not((lambda x_63(not result_96)) arg_0))" +"(if(not((lambda x_64(not result_96)) pred_1))(not #f) #f)" " #f)" -"(for-loop_225 result_95 rest_27 rest_135)" -" result_95)))" -" result_94)))))" -" for-loop_225)" +"(for-loop_227 result_96 rest_27 rest_135)" +" result_96)))" +" result_95)))))" +" for-loop_227)" " #t" " lst_244" " lst_245)))" " #f)))))" "(define-values" "(ok-make-struct-type-property-super?)" -"(lambda(v_173 defns_4)" +"(lambda(v_170 defns_4)" "(begin" -"(let-values(((or-part_235)(quoted? null? v_173)))" +"(let-values(((or-part_235)(quoted? null? v_170)))" "(if or-part_235" " or-part_235" -"(let-values(((or-part_236)(eq? 'null(correlated-e v_173))))" +"(let-values(((or-part_236)(eq? 'null(correlated-e v_170))))" "(if or-part_236" " or-part_236" -"(if(pair?(correlated-e v_173))" -"(if(eq?(correlated-e(car(correlated-e v_173))) 'list)" -"(if(let-values(((lst_247)(cdr(correlated->list v_173))))" +"(if(pair?(correlated-e v_170))" +"(if(eq?(correlated-e(car(correlated-e v_170))) 'list)" +"(if(let-values(((lst_247)(cdr(correlated->list v_170))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_247)))" -"((letrec-values(((for-loop_226)" -"(lambda(result_97 lst_64)" +"((letrec-values(((for-loop_228)" +"(lambda(result_98 lst_64)" "(begin" " 'for-loop" "(if(pair? lst_64)" "(let-values(((prop+val_0)(unsafe-car lst_64))" "((rest_29)(unsafe-cdr lst_64)))" -"(let-values(((result_98)" -"(let-values()" "(let-values(((result_99)" "(let-values()" +"(let-values(((result_100)" +"(let-values()" "(let-values()" "(if(=" "(correlated-length" @@ -32856,25 +32843,25 @@ static const char *startup_source = " #f)" " #f))" " #f)))))" -"(values result_99)))))" -"(if(if(not((lambda x_64(not result_98)) prop+val_0))" +"(values result_100)))))" +"(if(if(not((lambda x_65(not result_99)) prop+val_0))" "(not #f)" " #f)" -"(for-loop_226 result_98 rest_29)" -" result_98)))" -" result_97)))))" -" for-loop_226)" +"(for-loop_228 result_99 rest_29)" +" result_99)))" +" result_98)))))" +" for-loop_228)" " #t" " lst_247)))" "(=" -"(sub1(correlated-length v_173))" +"(sub1(correlated-length v_170))" "(set-count" -"(let-values(((lst_248)(cdr(correlated->list v_173))))" +"(let-values(((lst_248)(cdr(correlated->list v_170))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_248)))" -"((letrec-values(((for-loop_227)" +"((letrec-values(((for-loop_229)" "(lambda(table_171 lst_249)" "(begin" " 'for-loop" @@ -32900,9 +32887,9 @@ static const char *startup_source = " key_64" " val_55)))))" "(values table_174)))))" -"(if(not #f)(for-loop_227 table_172 rest_136) table_172)))" +"(if(not #f)(for-loop_229 table_172 rest_136) table_172)))" " table_171)))))" -" for-loop_227)" +" for-loop_229)" " '#hash()" " lst_248)))))" " #f)" @@ -32928,13 +32915,13 @@ static const char *startup_source = "(let-values(((lst_250)(cdr l_58))" "((lst_251)" "(list" -"(lambda(v_174)(quoted? symbol? v_174))" -"(lambda(v_175)(super-ok? v_175 defns_5))" -"(lambda(v_176)(field-count-expr-to-field-count v_176))" -"(lambda(v_177)(field-count-expr-to-field-count v_177))" -"(lambda(v_178)" +"(lambda(v_171)(quoted? symbol? v_171))" +"(lambda(v_172)(super-ok? v_172 defns_5))" +"(lambda(v_173)(field-count-expr-to-field-count v_173))" +"(lambda(v_174)(field-count-expr-to-field-count v_174))" +"(lambda(v_175)" "(not" -"(let-values(((v109_0) v_178)" +"(let-values(((v109_0) v_175)" "((temp110_0) 1)" "((ready-variable?111_0) ready-variable?_1)" "((defns112_0) defns_5))" @@ -32944,11 +32931,11 @@ static const char *startup_source = " ready-variable?111_0" " v109_0" " temp110_0))))" -"(lambda(v_179)" -"(known-good-struct-properties? v_179 immutables-expr_0 super-expr_0 defns_5))" -"(lambda(v_180)(inspector-or-false? v_180))" -"(lambda(v_181)(procedure-spec? v_181 num-fields_0))" -"(lambda(v_182)(immutables-ok? v_182 init-field-count-expr_0)))))" +"(lambda(v_176)" +"(known-good-struct-properties? v_176 immutables-expr_0 super-expr_0 defns_5))" +"(lambda(v_177)(inspector-or-false? v_177))" +"(lambda(v_178)(procedure-spec? v_178 num-fields_0))" +"(lambda(v_179)(immutables-ok? v_179 init-field-count-expr_0)))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" @@ -32956,8 +32943,8 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_251)))" -"((letrec-values(((for-loop_228)" -"(lambda(result_100 lst_252 lst_253)" +"((letrec-values(((for-loop_230)" +"(lambda(result_101 lst_252 lst_253)" "(begin" " 'for-loop" "(if(if(pair? lst_252)(pair? lst_253) #f)" @@ -32965,21 +32952,21 @@ static const char *startup_source = "((rest_137)(unsafe-cdr lst_252))" "((pred_2)(unsafe-car lst_253))" "((rest_138)(unsafe-cdr lst_253)))" -"(let-values(((result_101)" -"(let-values()" "(let-values(((result_102)" "(let-values()" +"(let-values(((result_103)" +"(let-values()" "(let-values()(pred_2 arg_1)))))" -"(values result_102)))))" -"(if(if(not((lambda x_65(not result_101)) arg_1))" -"(if(not((lambda x_66(not result_101)) pred_2))" +"(values result_103)))))" +"(if(if(not((lambda x_66(not result_102)) arg_1))" +"(if(not((lambda x_67(not result_102)) pred_2))" "(not #f)" " #f)" " #f)" -"(for-loop_228 result_101 rest_137 rest_138)" -" result_101)))" -" result_100)))))" -" for-loop_228)" +"(for-loop_230 result_102 rest_137 rest_138)" +" result_102)))" +" result_101)))))" +" for-loop_230)" " #t" " lst_250" " lst_251)))" @@ -33002,64 +32989,64 @@ 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_183)" +"(lambda(val?_0 v_180)" "(begin" "(let-values(((or-part_240)" -"(if(pair?(correlated-e v_183))" -"(if(eq?(correlated-e(car(correlated-e v_183))) 'quote)" -"(val?_0(correlated-e(correlated-cadr v_183)))" +"(if(pair?(correlated-e v_180))" +"(if(eq?(correlated-e(car(correlated-e v_180))) 'quote)" +"(val?_0(correlated-e(correlated-cadr v_180)))" " #f)" " #f)))" -"(if or-part_240 or-part_240(val?_0(correlated-e v_183)))))))" +"(if or-part_240 or-part_240(val?_0(correlated-e v_180)))))))" "(define-values" "(quoted-value)" -"(lambda(v_184)" -"(begin(if(pair?(correlated-e v_184))(correlated-e(correlated-cadr v_184))(correlated-e v_184)))))" -"(define-values(false?)(lambda(v_185)(begin(eq?(correlated-e v_185) #f))))" +"(lambda(v_181)" +"(begin(if(pair?(correlated-e v_181))(correlated-e(correlated-cadr v_181))(correlated-e v_181)))))" +"(define-values(false?)(lambda(v_182)(begin(eq?(correlated-e v_182) #f))))" "(define-values" "(field-count-expr-to-field-count)" -"(lambda(v_186)(begin(if(quoted? exact-nonnegative-integer? v_186)(quoted-value v_186) #f))))" +"(lambda(v_183)(begin(if(quoted? exact-nonnegative-integer? v_183)(quoted-value v_183) #f))))" "(define-values" "(inspector-or-false?)" -"(lambda(v_187)" +"(lambda(v_184)" "(begin" -"(let-values(((or-part_241)(quoted? false? v_187)))" +"(let-values(((or-part_241)(quoted? false? v_184)))" "(if or-part_241" " or-part_241" -"(let-values(((or-part_242)(if(quoted? symbol? v_187)(eq? 'prefab(quoted-value v_187)) #f)))" +"(let-values(((or-part_242)(if(quoted? symbol? v_184)(eq? 'prefab(quoted-value v_184)) #f)))" "(if or-part_242" " or-part_242" -"(if(= 1(correlated-length v_187))" -"(eq? 'current-inspector(correlated-e(car(correlated-e v_187))))" +"(if(= 1(correlated-length v_184))" +"(eq? 'current-inspector(correlated-e(car(correlated-e v_184))))" " #f))))))))" "(define-values" "(known-good-struct-properties?)" -"(lambda(v_188 immutables-expr_1 super-expr_1 defns_7)" +"(lambda(v_185 immutables-expr_1 super-expr_1 defns_7)" "(begin" -"(let-values(((or-part_243)(quoted? null? v_188)))" +"(let-values(((or-part_243)(quoted? null? v_185)))" "(if or-part_243" " or-part_243" -"(let-values(((or-part_244)(eq? 'null(correlated-e v_188))))" +"(let-values(((or-part_244)(eq? 'null(correlated-e v_185))))" "(if or-part_244" " or-part_244" -"(if(pair?(correlated-e v_188))" -"(if(eq?(correlated-e(car(correlated-e v_188))) 'list)" -"(if(let-values(((lst_254)(cdr(correlated->list v_188))))" +"(if(pair?(correlated-e v_185))" +"(if(eq?(correlated-e(car(correlated-e v_185))) 'list)" +"(if(let-values(((lst_254)(cdr(correlated->list v_185))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_254)))" -"((letrec-values(((for-loop_229)" -"(lambda(result_103 lst_255)" +"((letrec-values(((for-loop_231)" +"(lambda(result_104 lst_255)" "(begin" " 'for-loop" "(if(pair? lst_255)" "(let-values(((prop+val_3)(unsafe-car lst_255))" "((rest_139)(unsafe-cdr lst_255)))" -"(let-values(((result_104)" -"(let-values()" "(let-values(((result_105)" "(let-values()" +"(let-values(((result_106)" +"(let-values()" "(let-values()" "(if(=" "(correlated-length" @@ -33080,25 +33067,25 @@ static const char *startup_source = " defns_7)" " #f))" " #f)))))" -"(values result_105)))))" -"(if(if(not((lambda x_67(not result_104)) prop+val_3))" +"(values result_106)))))" +"(if(if(not((lambda x_68(not result_105)) prop+val_3))" "(not #f)" " #f)" -"(for-loop_229 result_104 rest_139)" -" result_104)))" -" result_103)))))" -" for-loop_229)" +"(for-loop_231 result_105 rest_139)" +" result_105)))" +" result_104)))))" +" for-loop_231)" " #t" " lst_254)))" "(=" -"(sub1(correlated-length v_188))" +"(sub1(correlated-length v_185))" "(set-count" -"(let-values(((lst_256)(cdr(correlated->list v_188))))" +"(let-values(((lst_256)(cdr(correlated->list v_185))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_256)))" -"((letrec-values(((for-loop_230)" +"((letrec-values(((for-loop_232)" "(lambda(table_175 lst_136)" "(begin" " 'for-loop" @@ -33124,9 +33111,9 @@ static const char *startup_source = " key_65" " val_56)))))" "(values table_178)))))" -"(if(not #f)(for-loop_230 table_176 rest_140) table_176)))" +"(if(not #f)(for-loop_232 table_176 rest_140) table_176)))" " table_175)))))" -" for-loop_230)" +" for-loop_232)" " '#hash()" " lst_256)))))" " #f)" @@ -33235,23 +33222,23 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_257)))" -"((letrec-values(((for-loop_231)" -"(lambda(result_106 lst_258)" +"((letrec-values(((for-loop_233)" +"(lambda(result_107 lst_258)" "(begin" " 'for-loop" "(if(pair? lst_258)" "(let-values(((a_42)(unsafe-car lst_258))((rest_141)(unsafe-cdr lst_258)))" -"(let-values(((result_107)" -"(let-values()" "(let-values(((result_108)" "(let-values()" +"(let-values(((result_109)" +"(let-values()" "(let-values()(equal? a_42 n_26)))))" -"(values result_108)))))" -"(if(if(not((lambda x_68 result_107) a_42))(not #f) #f)" -"(for-loop_231 result_107 rest_141)" -" result_107)))" -" result_106)))))" -" for-loop_231)" +"(values result_109)))))" +"(if(if(not((lambda x_69 result_108) a_42))(not #f) #f)" +"(for-loop_233 result_108 rest_141)" +" result_108)))" +" result_107)))))" +" for-loop_233)" " #f" " lst_257)))" " #f))))))" @@ -33269,10 +33256,10 @@ static const char *startup_source = "(let-values(((tmp_29)(if(pair?(correlated-e e_67))(correlated-e(car(correlated-e e_67))) #f)))" "(if(equal? tmp_29 'quote)" "(let-values()" -"(let-values(((v_189)(correlated-cadr e_67)))" +"(let-values(((v_186)(correlated-cadr e_67)))" "(let-values(((or-part_252)" -"(if(correlated-length v_189)" -"(let-values(((l_61)(map2 correlated-e(correlated->list v_189))))" +"(if(correlated-length v_186)" +"(let-values(((l_61)(map2 correlated-e(correlated->list v_186))))" "(if(andmap2 exact-nonnegative-integer? l_61)" "(if(=(length l_61)(set-count(list->set l_61))) l_61 #f)" " #f))" @@ -33303,22 +33290,22 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_259)))" -"((letrec-values(((for-loop_93)" -"(lambda(result_109 lst_260)" +"((letrec-values(((for-loop_95)" +"(lambda(result_110 lst_260)" "(begin" " 'for-loop" "(if(pair? lst_260)" "(let-values(((n_27)(unsafe-car lst_260))((rest_142)(unsafe-cdr lst_260)))" -"(let-values(((result_110)" -"(let-values()" "(let-values(((result_111)" +"(let-values()" +"(let-values(((result_112)" "(let-values()(let-values()(< n_27 c_24)))))" -"(values result_111)))))" -"(if(if(not((lambda x_69(not result_110)) n_27))(not #f) #f)" -"(for-loop_93 result_110 rest_142)" -" result_110)))" -" result_109)))))" -" for-loop_93)" +"(values result_112)))))" +"(if(if(not((lambda x_70(not result_111)) n_27))(not #f) #f)" +"(for-loop_95 result_111 rest_142)" +" result_111)))" +" result_110)))))" +" for-loop_95)" " #t" " lst_259)))" " #f))))))" @@ -33341,7 +33328,7 @@ static const char *startup_source = " #f)" " #f)" " #f))))))" -"(define-values(maybe+)(lambda(x_70 y_10)(begin(if x_70(if y_10(+ x_70 y_10) #f) #f))))" +"(define-values(maybe+)(lambda(x_71 y_10)(begin(if x_71(if y_10(+ x_71 y_10) #f) #f))))" "(define-values" "(compile-single)" "(lambda(p_45 cctx_13)" @@ -33360,7 +33347,7 @@ static const char *startup_source = "(let-values(((to-source?_2) to-source?3_0))" "(let-values()" "(let-values()" -"(let-values(((phase_85)(compile-context-phase cctx_14)))" +"(let-values(((phase_84)(compile-context-phase cctx_14)))" "(let-values(((mpis_18)(make-module-path-index-table)))" "(let-values(((purely-functional?_0) #t))" "(let-values(((body-linklets_1" @@ -33432,7 +33419,7 @@ static const char *startup_source = "(lambda(ht_117)" "(begin" " 'add-metadata" -"(let-values(((ht_118)(hash-set ht_117 'original-phase phase_85)))" +"(let-values(((ht_118)(hash-set ht_117 'original-phase phase_84)))" "(let-values(((ht_119)(hash-set ht_118 'max-phase max-phase_1)))" " ht_119))))))" "(let-values(((bundle_0)" @@ -33445,7 +33432,7 @@ static const char *startup_source = "(generate-eager-syntax-literals!" " syntax-literals_3" " mpis_18" -" phase_85" +" phase_84" "(compile-context-self cctx_14)" "(compile-context-namespace cctx_14)))))" "(let-values(((link-linklet_0)" @@ -33478,7 +33465,7 @@ static const char *startup_source = "(list" " 'define-values" "(list deserialized-syntax-vector-id)" -"(list* 'make-vector(add1 phase_85) '(#f)))" +"(list* 'make-vector(add1 phase_84) '(#f)))" "(list" " 'define-values" " '(phase-to-link-modules)" @@ -33510,7 +33497,7 @@ static const char *startup_source = "(compile-top-level-require)" "(lambda(p_47 cctx_16)" "(begin" -"(let-values(((phase_86)(compile-context-phase cctx_16)))" +"(let-values(((phase_85)(compile-context-phase cctx_16)))" "(if(parsed-require? p_47)" "(let-values()" "(let-values(((form-stx_0)(compile-quote-syntax(syntax-disarm$1(parsed-s p_47)) cctx_16)))" @@ -33533,7 +33520,7 @@ static const char *startup_source = "(let-values(((ids_15) ids11_0))" "(let-values(((defined-syms_8) defined-syms12_0))" "(let-values(((self_19) self13_0))" -"(let-values(((phase_87) phase14_0))" +"(let-values(((phase_86) 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) top-level-bind-scope2_0))" @@ -33542,18 +33529,18 @@ static const char *startup_source = "(let-values(((as-transformer?_5) as-transformer?5_0))" "(let-values()" "(let-values(((defined-syms-at-phase_0)" -"(let-values(((or-part_82)(hash-ref defined-syms_8 phase_87 #f)))" +"(let-values(((or-part_82)(hash-ref defined-syms_8 phase_86 #f)))" "(if or-part_82" " or-part_82" "(let-values(((ht_120)(make-hasheq)))" -"(begin(hash-set! defined-syms_8 phase_87 ht_120) ht_120))))))" +"(begin(hash-set! defined-syms_8 phase_86 ht_120) ht_120))))))" "(reverse$1" "(let-values(((lst_261) ids_15))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_261)))" -"((letrec-values(((for-loop_232)" +"((letrec-values(((for-loop_234)" "(lambda(fold-var_73 lst_90)" "(begin" " 'for-loop" @@ -33577,13 +33564,13 @@ static const char *startup_source = " sym_62" " #f)" " id_54" -" phase_87" +" phase_86" " top-level-bind-scope_3))" "(if(no-extra-scopes?" " id_54" " all-scopes-stx_3" " top-level-bind-scope_3" -" phase_87)" +" phase_86)" "(symbol-interned?" " sym_62)" " #f)" @@ -33605,7 +33592,7 @@ static const char *startup_source = " s_183" " #f)" " id_54" -" phase_87" +" phase_86" " top-level-bind-scope_3)" "(loop_83" "(add1" @@ -33624,7 +33611,7 @@ static const char *startup_source = "(let-values(((self23_0)" " self_19)" "((phase24_0)" -" phase_87)" +" phase_86)" "((defined-sym25_0)" " defined-sym_0)" "((frame-id26_0)" @@ -33652,7 +33639,7 @@ static const char *startup_source = "((id29_0)" " id_54)" "((phase30_0)" -" phase_87)" +" phase_86)" "((b31_0)" " b_75))" "(remove-required-id!75.1" @@ -33666,7 +33653,7 @@ static const char *startup_source = "((b20_0)" " b_75)" "((phase21_1)" -" phase_87)" +" phase_86)" "((orig-s22_0)" " orig-s_28))" "(add-binding!17.1" @@ -33682,7 +33669,7 @@ static const char *startup_source = "((id33_0)" " id_54)" "((phase34_0)" -" phase_87)" +" phase_86)" "((b35_0)" " b_75)" "((as-transformer?36_0)" @@ -33699,29 +33686,29 @@ static const char *startup_source = " fold-var_160))))" "(values fold-var_94)))))" "(if(not #f)" -"(for-loop_232 fold-var_12 rest_143)" +"(for-loop_234 fold-var_12 rest_143)" " fold-var_12)))" " fold-var_73)))))" -" for-loop_232)" +" for-loop_234)" " null" " lst_261)))))))))))))))))))" "(define-values" "(no-extra-scopes?)" -"(lambda(id_55 all-scopes-stx_4 top-level-bind-scope_4 phase_73)" +"(lambda(id_55 all-scopes-stx_4 top-level-bind-scope_4 phase_72)" "(begin" "(let-values(((m-id_0)(datum->syntax$1 all-scopes-stx_4(syntax-e$1 id_55))))" -"(let-values(((or-part_210)(bound-identifier=?$1 id_55 m-id_0 phase_73)))" +"(let-values(((or-part_210)(bound-identifier=?$1 id_55 m-id_0 phase_72)))" "(if or-part_210" " or-part_210" "(if top-level-bind-scope_4" -"(bound-identifier=?$1 id_55(add-scope m-id_0 top-level-bind-scope_4) phase_73)" +"(bound-identifier=?$1 id_55(add-scope m-id_0 top-level-bind-scope_4) phase_72)" " #f)))))))" "(define-values" "(defined-as-other?)" -"(lambda(prev-id_0 id_56 phase_88 top-level-bind-scope_5)" +"(lambda(prev-id_0 id_56 phase_87 top-level-bind-scope_5)" "(begin" "(if prev-id_0" -"(if(not(bound-identifier=?$1 prev-id_0 id_56 phase_88))" +"(if(not(bound-identifier=?$1 prev-id_0 id_56 phase_87))" "(let-values(((or-part_258)(not top-level-bind-scope_5)))" "(if or-part_258" " or-part_258" @@ -33729,7 +33716,7 @@ static const char *startup_source = "(bound-identifier=?$1" "(remove-scope prev-id_0 top-level-bind-scope_5)" "(remove-scope id_56 top-level-bind-scope_5)" -" phase_88))))" +" phase_87))))" " #f)" " #f))))" "(define-values" @@ -33756,14 +33743,14 @@ static const char *startup_source = " temp41_0)))))" "(define-values" "(add-defined-sym!)" -"(lambda(defined-syms_9 phase_78 sym_63 id_57)" +"(lambda(defined-syms_9 phase_77 sym_63 id_57)" "(begin" "(let-values(((defined-syms-at-phase_1)" -"(let-values(((or-part_219)(hash-ref defined-syms_9 phase_78 #f)))" +"(let-values(((or-part_219)(hash-ref defined-syms_9 phase_77 #f)))" "(if or-part_219" " or-part_219" "(let-values(((ht_121)(make-hasheq)))" -"(begin(hash-set! defined-syms_9 phase_78 ht_121) ht_121))))))" +"(begin(hash-set! defined-syms_9 phase_77 ht_121) ht_121))))))" "(hash-set! defined-syms-at-phase_1 sym_63 id_57)))))" "(define-values" "(make-create-root-expand-context-from-module)" @@ -33781,7 +33768,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_221)))" -"((letrec-values(((for-loop_233)" +"((letrec-values(((for-loop_235)" "(lambda(lst_16)" "(begin" " 'for-loop" @@ -33794,7 +33781,7 @@ static const char *startup_source = "(let-values()" "(begin" "(let-values()" -"(let-values(((phase_35)" +"(let-values(((phase_34)" "(car" " phase+reqs_0)))" "(begin" @@ -33808,7 +33795,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_262)))" -"((letrec-values(((for-loop_234)" +"((letrec-values(((for-loop_236)" "(lambda(lst_78)" "(begin" " 'for-loop" @@ -33843,7 +33830,7 @@ static const char *startup_source = " ns_59)" "((temp7_1)" "(phase+" -" phase_35" +" phase_34" " phase-shift_13))" "((phase-shift8_0)" " phase-shift_13)" @@ -33873,18 +33860,18 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_234" +"(for-loop_236" " rest_36)" "(values))))" "(values))))))" -" for-loop_234)" +" for-loop_236)" " lst_262)))" "(void))))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_233 rest_4)(values))))" +"(if(not #f)(for-loop_235 rest_4)(values))))" "(values))))))" -" for-loop_233)" +" for-loop_235)" " lst_221)))" "(values))))" "(let-values()" @@ -33895,12 +33882,12 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-hash ht_122)))" -"((letrec-values(((for-loop_107)" +"((letrec-values(((for-loop_109)" "(lambda(i_145)" "(begin" " 'for-loop" "(if i_145" -"(let-values(((phase_89 linklet_3)" +"(let-values(((phase_88 linklet_3)" "(hash-iterate-key+value ht_122 i_145)))" "(let-values((()" "(let-values()" @@ -33918,7 +33905,7 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list lst_263)))" -"((letrec-values(((for-loop_235)" +"((letrec-values(((for-loop_237)" "(lambda(lst_264)" "(begin" " 'for-loop" @@ -33947,7 +33934,7 @@ static const char *startup_source = "(let-values(((self13_1)" " self_20)" "((phase14_1)" -" phase_89)" +" phase_88)" "((sym15_0)" " sym_64))" "(make-module-binding22.1" @@ -33964,7 +33951,7 @@ static const char *startup_source = " phase14_1" " sym15_0)))" "((phase12_0)" -" phase_89))" +" phase_88))" "(add-binding!17.1" " #f" " #f" @@ -33973,27 +33960,27 @@ static const char *startup_source = " phase12_0))" "(add-defined-sym!" " defined-syms_10" -" phase_89" +" phase_88" " sym_64" " id_58))))" "(values)))))" "(values)))))" "(if(not" " #f)" -"(for-loop_235" +"(for-loop_237" " rest_144)" "(values))))" "(values))))))" -" for-loop_235)" +" for-loop_237)" " lst_263)))" "(void)))" "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_107(hash-iterate-next ht_122 i_145))" +"(for-loop_109(hash-iterate-next ht_122 i_145))" "(values))))" "(values))))))" -" for-loop_107)" +" for-loop_109)" "(hash-iterate-first ht_122))))" "(void)" " root-ctx_4))))))))))" @@ -34003,12 +33990,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_190) root-context_0))" -"(let-values(((the-struct_55) v_190))" -"(if(root-expand-context/outer? the-struct_55)" +"(let-values(((v_187) root-context_0))" +"(let-values(((the-struct_54) v_187))" +"(if(root-expand-context/outer? the-struct_54)" "(let-values(((inner16_0)" -"(let-values(((the-struct_56)(root-expand-context/outer-inner v_190)))" -"(if(root-expand-context/inner? the-struct_56)" +"(let-values(((the-struct_55)(root-expand-context/outer-inner v_187)))" +"(if(root-expand-context/inner? the-struct_55)" "(let-values(((self-mpi17_0) inside-mpi_0)" "((all-scopes-stx18_0)" "(let-values(((temp19_2)" @@ -34023,20 +34010,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-post-expansion-shifts 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 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" @@ -34076,7 +34062,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_265)))" -"((letrec-values(((for-loop_235)" +"((letrec-values(((for-loop_237)" "(lambda(lst_264 lst_261 lst_23 lst_104)" "(begin" " 'for-loop" @@ -34122,7 +34108,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_266)))" -"((letrec-values(((for-loop_236)" +"((letrec-values(((for-loop_238)" "(lambda(lst_25)" "(begin" " 'for-loop" @@ -34206,20 +34192,20 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_236" +"(for-loop_238" " rest_9)" "(values))))" "(values))))))" -" for-loop_236)" +" for-loop_238)" " lst_266)))" "(void)))))))" "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_235 rest_145 rest_85 rest_43 rest_121)" +"(for-loop_237 rest_145 rest_85 rest_43 rest_121)" "(values))))" "(values))))))" -" for-loop_235)" +" for-loop_237)" " lst_41" " lst_163" " lst_89" @@ -34227,7 +34213,7 @@ static const char *startup_source = "(void)))))))))))))" "(define-values" "(check-single-require-access)" -"(lambda(mi_17 phase_90 sym_65 insp_11)" +"(lambda(mi_17 phase_89 sym_65 insp_11)" "(begin" "(let-values(((m_16)(module-instance-module mi_17)))" "(if(module-no-protected? m_16)" @@ -34236,7 +34222,7 @@ static const char *startup_source = "(let-values(((access_3)" "(let-values(((or-part_261)(module-access m_16)))" "(if or-part_261 or-part_261(module-compute-access! m_16)))))" -"(let-values(((a_45)(hash-ref(hash-ref access_3 phase_90 '#hasheq()) sym_65 'unexported)))" +"(let-values(((a_45)(hash-ref(hash-ref access_3 phase_89 '#hasheq()) sym_65 'unexported)))" "(if(let-values(((or-part_34)(eq? a_45 'unexported)))" "(if or-part_34 or-part_34(eq? a_45 'protected)))" "(let-values()" @@ -34305,7 +34291,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-range start_37 end_26 inc_20)))" -"((letrec-values(((for-loop_235)" +"((letrec-values(((for-loop_237)" "(lambda(table_179 pos_99)" "(begin" " 'for-loop" @@ -34313,14 +34299,14 @@ static const char *startup_source = "(let-values(((phase-level_17)" " pos_99))" "(let-values(((table_180)" -"(let-values(((v_191)" +"(let-values(((v_188)" "(hash-ref" " h_1" " phase-level_17" " #f)))" "(begin" " #t" -"((letrec-values(((for-loop_108)" +"((letrec-values(((for-loop_110)" "(lambda(table_181)" "(begin" " 'for-loop" @@ -34328,7 +34314,7 @@ static const char *startup_source = "(let-values(((table_182)" "(let-values(((table_111)" " table_181))" -"(if v_191" +"(if v_188" "(let-values(((table_183)" " table_111))" "(let-values(((table_184)" @@ -34339,7 +34325,7 @@ static const char *startup_source = "(values" " phase-level_17" "(1/eval-linklet" -" v_191)))))" +" v_188)))))" "(hash-set" " table_183" " key_68" @@ -34348,15 +34334,15 @@ static const char *startup_source = " table_184)))" " table_111))))" " table_182))))))" -" for-loop_108)" +" for-loop_110)" " table_179)))))" "(if(not #f)" -"(for-loop_235" +"(for-loop_237" " table_180" "(+ pos_99 inc_20))" " table_180)))" " table_179)))))" -" for-loop_235)" +" for-loop_237)" " '#hash()" " start_37)))))" "(let-values(((syntax-literals-linklet_0)" @@ -34446,7 +34432,7 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list lst_268)))" -"((letrec-values(((for-loop_237)" +"((letrec-values(((for-loop_239)" "(lambda(lst_176)" "(begin" " 'for-loop" @@ -34491,11 +34477,11 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_237" +"(for-loop_239" " rest_93)" "(values))))" "(values))))))" -" for-loop_237)" +" for-loop_239)" " lst_268)))" "(void)))))" " void)))" @@ -35058,12 +35044,12 @@ static const char *startup_source = "(let-values(((ht_123) phases-h_1))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-in-hash ht_123)))" -"((letrec-values(((for-loop_238)" +"((letrec-values(((for-loop_240)" "(lambda(table_185 i_146)" "(begin" " 'for-loop" "(if i_146" -"(let-values(((phase_91 linklet_5)(hash-iterate-key+value ht_123 i_146)))" +"(let-values(((phase_90 linklet_5)(hash-iterate-key+value ht_123 i_146)))" "(let-values(((table_186)" "(let-values(((table_187) table_185))" "(let-values(((table_140)" @@ -35071,16 +35057,16 @@ static const char *startup_source = "(let-values(((key_69 val_60)" "(let-values()" "(values" -" phase_91" +" phase_90" "(1/linklet-export-variables" " linklet_5)))))" "(hash-set table_187 key_69 val_60)))))" "(values table_140)))))" "(if(not #f)" -"(for-loop_238 table_186(hash-iterate-next ht_123 i_146))" +"(for-loop_240 table_186(hash-iterate-next ht_123 i_146))" " table_186)))" " table_185)))))" -" for-loop_238)" +" for-loop_240)" " '#hash()" "(hash-iterate-first ht_123)))))))" "(define-values" @@ -35098,12 +35084,12 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-hash ht_124)))" -"((letrec-values(((for-loop_101)" +"((letrec-values(((for-loop_103)" "(lambda(fold-var_59 i_147)" "(begin" " 'for-loop" "(if i_147" -"(let-values(((phase_92 at-phase_11)" +"(let-values(((phase_91 at-phase_11)" "(hash-iterate-key+value ht_124 i_147)))" "(let-values(((fold-var_60)" "(let-values(((l_65)" @@ -35117,7 +35103,7 @@ static const char *startup_source = "(let-values()" "(check-in-hash" " ht_125)))" -"((letrec-values(((for-loop_239)" +"((letrec-values(((for-loop_241)" "(lambda(fold-var_219" " i_148)" "(begin" @@ -35164,7 +35150,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_87)))" -"((letrec-values(((for-loop_240)" +"((letrec-values(((for-loop_242)" "(lambda(fold-var_224" " lst_269)" "(begin" @@ -35187,7 +35173,7 @@ static const char *startup_source = "(if(if(eqv?" "(module-binding-nominal-phase" " b_76)" -" phase_92)" +" phase_91)" "(eq?" "(module-binding-nominal-sym" " b_76)" @@ -35211,12 +35197,12 @@ static const char *startup_source = " fold-var_31)))))" "(if(not" " #f)" -"(for-loop_240" +"(for-loop_242" " fold-var_29" " rest_147)" " fold-var_29)))" " fold-var_224)))))" -" for-loop_240)" +" for-loop_242)" " null" " lst_87)))))))))" " fold-var_222))))" @@ -35225,20 +35211,20 @@ static const char *startup_source = " fold-var_221))))" "(if(not" " #f)" -"(for-loop_239" +"(for-loop_241" " fold-var_220" "(hash-iterate-next" " ht_125" " i_148))" " fold-var_220)))" " fold-var_219)))))" -" for-loop_239)" +" for-loop_241)" " null" "(hash-iterate-first" " ht_125)))))))" "(begin" " #t" -"((letrec-values(((for-loop_107)" +"((letrec-values(((for-loop_109)" "(lambda(fold-var_71)" "(begin" " 'for-loop" @@ -35256,7 +35242,7 @@ static const char *startup_source = "(cons" "(let-values()" "(cons" -" phase_92" +" phase_91" "(let-values(((l4_0)" " l_65)" "((symbolnamespace?_0) #f))" "(let-values(((mpis_19)(make-module-path-index-table)))" "(let-values(((body-cctx_0)" -"(let-values(((the-struct_57) cctx_17))" -"(if(compile-context? the-struct_57)" +"(let-values(((the-struct_56) cctx_17))" +"(if(compile-context? the-struct_56)" "(let-values(((phase47_1) 0)" "((self48_0) self_25)" "((module-self49_0) self_25)" @@ -36114,27 +36100,27 @@ static const char *startup_source = " full-module-name_2)" "((lazy-syntax-literals?51_0) #t))" "(compile-context1.1" -"(compile-context-namespace the-struct_57)" +"(compile-context-namespace the-struct_56)" " phase47_1" " self48_0" " module-self49_0" " full-module-name50_0" " lazy-syntax-literals?51_0" -"(compile-context-header the-struct_57)))" +"(compile-context-header the-struct_56)))" "(raise-argument-error" " 'struct-copy" " \"compile-context?\"" -" the-struct_57)))))" +" the-struct_56)))))" "(let-values(((cross-phase-persistent?_2) #f))" "(let-values(((side-effects_0)(make-hasheqv)))" "(let-values(((check-side-effects!_0)" "(lambda(e_73" " expected-results_3" -" phase_94" +" phase_93" " required-reference?_1)" "(begin" " 'check-side-effects!" -"(if(hash-ref side-effects_0 phase_94 #f)" +"(if(hash-ref side-effects_0 phase_93 #f)" "(void)" "(let-values()" "(if(let-values(((e52_2) e_73)" @@ -36151,7 +36137,7 @@ static const char *startup_source = "(let-values()" "(hash-set!" " side-effects_0" -" phase_94" +" phase_93" " #t))" "(void))))))))" "(let-values((()" @@ -36269,7 +36255,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_198)))" -"((letrec-values(((for-loop_205)" +"((letrec-values(((for-loop_207)" "(lambda(lst_271)" "(begin" " 'for-loop" @@ -36312,17 +36298,17 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_205" +"(for-loop_207" " rest_149)" "(values))))" "(values))))))" -" for-loop_205)" +" for-loop_207)" " lst_198)))" "(void)" " #f)))" "(let-values() #f))))" "((temp66_1)" -"(lambda(mod-name_17 phase_95)" +"(lambda(mod-name_17 phase_94)" "(let-values(((ht_128)" "(if modules-being-compiled_1" "(hash-ref" @@ -36333,7 +36319,7 @@ static const char *startup_source = "(if ht_128" "(hash-ref" " ht_128" -" phase_95" +" phase_94" " #f)" " #f))))" "((to-source?67_0) to-source?_3)" @@ -36363,40 +36349,40 @@ static const char *startup_source = "(hash-set!" " modules-being-compiled_1" "(1/module-path-index-resolve self_25)" -"(let-values(((ht_68)" +"(let-values(((ht_129)" " body-linklets_2))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" -"(check-in-hash ht_68)))" +"(check-in-hash ht_129)))" "((letrec-values(((for-loop_23)" -"(lambda(table_99" -" i_87)" +"(lambda(table_100" +" i_149)" "(begin" " 'for-loop" -"(if i_87" -"(let-values(((phase_96" +"(if i_149" +"(let-values(((phase_95" " linklet_6)" "(hash-iterate-key+value" -" ht_68" -" i_87)))" -"(let-values(((table_100)" -"(let-values(((table_101)" -" table_99))" -"(let-values(((table_102)" +" ht_129" +" i_149)))" +"(let-values(((table_194)" +"(let-values(((table_195)" +" table_100))" +"(let-values(((table_196)" "(let-values()" -"(let-values(((key_39" -" val_27)" +"(let-values(((key_73" +" val_64)" "(let-values()" "(values" -" phase_96" +" phase_95" "(module-linklet-info2.1" " linklet_6" "(hash-ref" " phase-to-link-module-uses_4" -" phase_96" +" phase_95" " #f)" " self_25" " #f" @@ -36404,27 +36390,27 @@ static const char *startup_source = "(if phase-to-link-extra-inspectorsss_2" "(hash-ref" " phase-to-link-extra-inspectorsss_2" -" phase_96" +" phase_95" " #f)" " #f))))))" "(hash-set" -" table_101" -" key_39" -" val_27)))))" +" table_195" +" key_73" +" val_64)))))" "(values" -" table_102)))))" +" table_196)))))" "(if(not" " #f)" "(for-loop_23" -" table_100" +" table_194" "(hash-iterate-next" -" ht_68" -" i_87))" -" table_100)))" -" table_99)))))" +" ht_129" +" i_149))" +" table_194)))" +" table_100)))))" " for-loop_23)" " '#hasheq()" -"(hash-iterate-first ht_68))))))" +"(hash-iterate-first ht_129))))))" "(void))" "(values))))" "(let-values(((declaration-linklet_0)" @@ -36740,8 +36726,8 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_272)))" -"((letrec-values(((for-loop_242)" -"(lambda(ht_129" +"((letrec-values(((for-loop_244)" +"(lambda(ht_130" " lst_273)" "(begin" " 'for-loop" @@ -36753,13 +36739,13 @@ static const char *startup_source = "((rest_150)" "(unsafe-cdr" " lst_273)))" -"(let-values(((ht_130)" "(let-values(((ht_131)" -" ht_129))" +"(let-values(((ht_132)" +" ht_130))" "(let-values(((ht_123)" "(let-values()" "(hash-set" -" ht_131" +" ht_132" "(car" " sm_0)" "((if to-source?_3" @@ -36771,12 +36757,12 @@ static const char *startup_source = " ht_123)))))" "(if(not" " #f)" -"(for-loop_242" -" ht_130" +"(for-loop_244" +" ht_131" " rest_150)" -" ht_130)))" -" ht_129)))))" -" for-loop_242)" +" ht_131)))" +" ht_130)))))" +" for-loop_244)" "(hasheq #f bundle_1)" " lst_272))))))))" "(if to-source?_3" @@ -36813,7 +36799,7 @@ static const char *startup_source = "(let-values(((lst_274) pre-submodules_2))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_274)))" -"((letrec-values(((for-loop_243)" +"((letrec-values(((for-loop_245)" "(lambda(lst_275)" "(begin" " 'for-loop" @@ -36847,7 +36833,7 @@ static const char *startup_source = " modules-being-compiled_2" "(1/module-path-index-resolve" " sm-self_0)" -"(let-values(((ht_132)" +"(let-values(((ht_133)" "(1/linklet-bundle->hash" "(if(1/linklet-directory?" " ld_5)" @@ -36861,37 +36847,37 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()" -"(check-in-hash ht_132)))" -"((letrec-values(((for-loop_244)" -"(lambda(table_194" -" i_149)" +"(check-in-hash ht_133)))" +"((letrec-values(((for-loop_246)" +"(lambda(table_197" +" i_150)" "(begin" " 'for-loop" -"(if i_149" -"(let-values(((phase_97" +"(if i_150" +"(let-values(((phase_96" " linklet_8)" "(hash-iterate-key+value" -" ht_132" -" i_149)))" -"(let-values(((table_195)" -"(let-values(((table_196)" -" table_194))" -"(if(number?" -" phase_97)" -"(let-values(((table_197)" -" table_196))" +" ht_133" +" i_150)))" "(let-values(((table_198)" +"(let-values(((table_199)" +" table_197))" +"(if(number?" +" phase_96)" +"(let-values(((table_200)" +" table_199))" +"(let-values(((table_201)" "(let-values()" -"(let-values(((key_73" -" val_64)" +"(let-values(((key_74" +" val_65)" "(let-values()" "(values" -" phase_97" +" phase_96" "(module-linklet-info2.1" " linklet_8" "(hash-ref" " phase-to-link-module-uses_5" -" phase_97" +" phase_96" " #f)" "(compiled-in-memory-original-self" " cim_10)" @@ -36901,34 +36887,34 @@ static const char *startup_source = "(if phase-to-extra-inspectorsss_0" "(hash-ref" " phase-to-extra-inspectorsss_0" -" phase_97" +" phase_96" " #f)" " #f))))))" "(hash-set" -" table_197" -" key_73" -" val_64)))))" +" table_200" +" key_74" +" val_65)))))" "(values" -" table_198)))" -" table_196))))" +" table_201)))" +" table_199))))" "(if(not" " #f)" -"(for-loop_244" -" table_195" +"(for-loop_246" +" table_198" "(hash-iterate-next" -" ht_132" -" i_149))" -" table_195)))" -" table_194)))))" -" for-loop_244)" +" ht_133" +" i_150))" +" table_198)))" +" table_197)))))" +" for-loop_246)" " '#hasheq()" "(hash-iterate-first" -" ht_132))))))))))))" +" ht_133))))))))))))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_243 rest_151)(values))))" +"(if(not #f)(for-loop_245 rest_151)(values))))" "(values))))))" -" for-loop_243)" +" for-loop_245)" " lst_274)))" "(void)))))" "(define-values" @@ -36952,22 +36938,22 @@ static const char *startup_source = "(if(1/linklet-bundle? c_32)" "(let-values()" "(1/hash->linklet-bundle" -"(let-values(((ht_133)(1/linklet-bundle->hash c_32)))" +"(let-values(((ht_134)(1/linklet-bundle->hash c_32)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_133)))" -"((letrec-values(((for-loop_245)" -"(lambda(table_199 i_150)" +"(let-values()(check-in-hash ht_134)))" +"((letrec-values(((for-loop_247)" +"(lambda(table_202 i_151)" "(begin" " 'for-loop" -"(if i_150" -"(let-values(((k_33 v_73)(hash-iterate-key+value ht_133 i_150)))" -"(let-values(((table_200)" -"(let-values(((table_201) table_199))" -"(let-values(((table_202)" +"(if i_151" +"(let-values(((k_33 v_73)(hash-iterate-key+value ht_134 i_151)))" +"(let-values(((table_203)" +"(let-values(((table_204) table_202))" +"(let-values(((table_205)" "(let-values()" -"(let-values(((key_74 val_65)" +"(let-values(((key_75 val_66)" "(let-values()" "(if(1/linklet? v_73)" "(let-values()" @@ -36977,15 +36963,15 @@ static const char *startup_source = " v_73)))" "(let-values()" "(values k_33 v_73))))))" -"(hash-set table_201 key_74 val_65)))))" -"(values table_202)))))" +"(hash-set table_204 key_75 val_66)))))" +"(values table_205)))))" "(if(not #f)" -"(for-loop_245 table_200(hash-iterate-next ht_133 i_150))" -" table_200)))" -" table_199)))))" -" for-loop_245)" +"(for-loop_247 table_203(hash-iterate-next ht_134 i_151))" +" table_203)))" +" table_202)))))" +" for-loop_247)" " '#hasheq()" -"(hash-iterate-first ht_133))))))" +"(hash-iterate-first ht_134))))))" "(if(1/linklet-directory? c_32)" "(let-values()" "(1/hash->linklet-directory" @@ -36994,17 +36980,17 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-hash ht_84)))" -"((letrec-values(((for-loop_216)" -"(lambda(table_167 i_151)" +"((letrec-values(((for-loop_218)" +"(lambda(table_167 i_152)" "(begin" " 'for-loop" -"(if i_151" -"(let-values(((k_34 v_1)(hash-iterate-key+value ht_84 i_151)))" -"(let-values(((table_203)" -"(let-values(((table_204) table_167))" +"(if i_152" +"(let-values(((k_34 v_1)(hash-iterate-key+value ht_84 i_152)))" +"(let-values(((table_206)" +"(let-values(((table_207) table_167))" "(let-values(((table_168)" "(let-values()" -"(let-values(((key_75 val_66)" +"(let-values(((key_76 val_67)" "(let-values()" "(if(1/compiled-expression?" " v_1)" @@ -37015,13 +37001,13 @@ static const char *startup_source = " v_1)))" "(let-values()" "(values k_34 v_1))))))" -"(hash-set table_204 key_75 val_66)))))" +"(hash-set table_207 key_76 val_67)))))" "(values table_168)))))" "(if(not #f)" -"(for-loop_216 table_203(hash-iterate-next ht_84 i_151))" -" table_203)))" +"(for-loop_218 table_206(hash-iterate-next ht_84 i_152))" +" table_206)))" " table_167)))))" -" for-loop_216)" +" for-loop_218)" " '#hasheq()" "(hash-iterate-first ht_84))))))" "(let-values() c_32)))))))" @@ -37040,7 +37026,7 @@ static const char *startup_source = "((temp4_1)(namespace-bulk-binding-registry ns_59))" "((temp5_3)(current-code-inspector)))" "(make-eager-instance-instance11.1 temp4_1 temp2_3 temp5_3 ns1_1 temp3_3))))))" -"(let-values(((data_0)(lambda(key_76)(begin 'data(1/instance-variable-value data-instance_5 key_76)))))" +"(let-values(((data_0)(lambda(key_77)(begin 'data(1/instance-variable-value data-instance_5 key_77)))))" "(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)))" @@ -37113,7 +37099,7 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()(check-list lst_263)))" -"((letrec-values(((for-loop_235)" +"((letrec-values(((for-loop_237)" "(lambda(fold-var_158" " lst_261" " lst_23" @@ -37172,7 +37158,7 @@ static const char *startup_source = "(values" " fold-var_172)))))" "(if(not #f)" -"(for-loop_235" +"(for-loop_237" " fold-var_170" " rest_143" " rest_51" @@ -37180,7 +37166,7 @@ static const char *startup_source = " rest_37)" " fold-var_170)))" " fold-var_158)))))" -" for-loop_235)" +" for-loop_237)" " null" " lst_163" " lst_89" @@ -37221,8 +37207,8 @@ static const char *startup_source = " vec_66))))))" "(begin" " #f" -"((letrec-values(((for-loop_109)" -"(lambda(i_152 pos_102)" +"((letrec-values(((for-loop_111)" +"(lambda(i_153 pos_102)" "(begin" " 'for-loop" "(if(unsafe-fx<" @@ -37232,10 +37218,10 @@ static const char *startup_source = "(unsafe-vector-ref" " vec_65" " pos_102)))" -"(let-values(((i_153)" -"(let-values(((i_63)" -" i_152))" "(let-values(((i_154)" +"(let-values(((i_63)" +" i_153))" +"(let-values(((i_155)" "(let-values()" "(begin" "(unsafe-vector*-set!" @@ -37249,23 +37235,23 @@ static const char *startup_source = " 1" " i_63)))))" "(values" -" i_154)))))" +" i_155)))))" "(if(if(not" "((lambda x_19" "(unsafe-fx=" -" i_153" +" i_154" " len_29))" " pos_103))" "(not #f)" " #f)" -"(for-loop_109" -" i_153" +"(for-loop_111" +" i_154" "(unsafe-fx+" " 1" " pos_102))" -" i_153)))" -" i_152)))))" -" for-loop_109)" +" i_154)))" +" i_153)))))" +" for-loop_111)" " 0" " 0)))))" " v_69))))" @@ -37293,16 +37279,16 @@ static const char *startup_source = "(void)" "(let-values()" "(check-range start_15 end_28 inc_22)))" -"((letrec-values(((for-loop_246)" -"(lambda(i_155 pos_104)" +"((letrec-values(((for-loop_248)" +"(lambda(i_156 pos_104)" "(begin" " 'for-loop" "(if(< pos_104 end_28)" "(let-values(((i_93)" " pos_104))" -"(let-values(((i_156)" +"(let-values(((i_157)" "(let-values(((i_36)" -" i_155))" +" i_156))" "(let-values(((i_20)" "(let-values()" "(begin" @@ -37324,21 +37310,21 @@ static const char *startup_source = "(values" " i_20)))))" "(if(if(not" -"((lambda x_71" +"((lambda x_72" "(unsafe-fx=" -" i_156" +" i_157" " len_31))" " i_93))" "(not #f)" " #f)" -"(for-loop_246" -" i_156" +"(for-loop_248" +" i_157" "(+" " pos_104" " inc_22))" -" i_156)))" -" i_155)))))" -" for-loop_246)" +" i_157)))" +" i_156)))))" +" for-loop_248)" " 0" " start_15)))))" " v_36))))" @@ -37370,7 +37356,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_178)))" -"((letrec-values(((for-loop_247)" +"((letrec-values(((for-loop_249)" "(lambda(fold-var_5 lst_276)" "(begin" " 'for-loop" @@ -37392,9 +37378,9 @@ static const char *startup_source = " name_59))))" " fold-var_231))))" "(values fold-var_161)))))" -"(if(not #f)(for-loop_247 fold-var_230 rest_152) fold-var_230)))" +"(if(not #f)(for-loop_249 fold-var_230 rest_152) fold-var_230)))" " fold-var_5)))))" -" for-loop_247)" +" for-loop_249)" " null" " lst_178))))))))))))))" "(define-values" @@ -37518,12 +37504,12 @@ 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_195)" +"((letrec-values(((for-loop_197)" "(lambda(prev-thunk_0 pos_101)" "(begin" " 'for-loop" "(if(> pos_101 end_27)" -"(let-values(((phase_98) pos_101))" +"(let-values(((phase_97) pos_101))" "(let-values(((prev-thunk_1)" "(let-values(((prev-thunk_2)" " prev-thunk_0))" @@ -37537,7 +37523,7 @@ static const char *startup_source = "(let-values(((module-uses_1)" "(hash-ref" " phase-to-link-modules_1" -" phase_98" +" phase_97" " null)))" "(let-values(((import-module-instances_2" " import-instances_1)" @@ -37552,7 +37538,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_96)))" -"((letrec-values(((for-loop_111)" +"((letrec-values(((for-loop_113)" "(lambda(mis_7" " is_6" " lst_225)" @@ -37585,7 +37571,7 @@ static const char *startup_source = "((temp30_3)" "(phase-" "(phase+" -" phase_98" +" phase_97" " phase-shift_18)" "(module-use-phase" " mu_9))))" @@ -37607,7 +37593,7 @@ static const char *startup_source = " is_9)))))" "(if(not" " #f)" -"(for-loop_111" +"(for-loop_113" " mis_8" " is_7" " rest_153)" @@ -37617,7 +37603,7 @@ static const char *startup_source = "(values" " mis_7" " is_6))))))" -" for-loop_111)" +" for-loop_113)" " null" " null" " lst_96)))))" @@ -37630,7 +37616,7 @@ static const char *startup_source = "(namespace->namespace-at-phase" " ns_72" "(phase+" -" phase_98" +" phase_97" " phase-shift_18))))" "(let-values(((inst_5)" "(if single-expression?_1" @@ -37650,15 +37636,15 @@ static const char *startup_source = " ns_72))" "((temp36_2)" "(lambda(name_60" -" val_67)" +" val_68)" "(namespace-set-transformer!" " ns_72" "(phase+" "(sub1" -" phase_98)" +" phase_97)" " phase-shift_18)" " name_60" -" val_67))))" +" val_68))))" "(make-instance-instance13.1" " temp35_1" " temp34_3" @@ -37669,7 +37655,7 @@ static const char *startup_source = "(let-values(((linklet_9)" "(hash-ref" " h_11" -" phase_98" +" phase_97" " #f)))" "(if linklet_9" "(let-values()" @@ -37690,7 +37676,7 @@ static const char *startup_source = "((temp43_2)" "(hash-ref" " phase-to-link-extra-inspectorsss_3" -" phase_98" +" phase_97" " #f)))" "(check-require-access9.1" " temp38_2" @@ -37716,14 +37702,14 @@ static const char *startup_source = " ns_72" "(phase-" "(phase+" -" phase_98" +" phase_97" " phase-shift_18)" "(namespace-0-phase" " ns_72)))" "(not" " tail?_49))))))" "(if(zero-phase?" -" phase_98)" +" phase_97)" "(let-values()" " instantiate_0)" "(if single-expression?_1" @@ -37747,7 +37733,7 @@ static const char *startup_source = "(namespace->namespace-at-phase" " phase-ns_0" "(sub1" -" phase_98))))" +" phase_97))))" "(lambda(tail?_51)" "(begin" " 'prev-thunk" @@ -37775,12 +37761,12 @@ static const char *startup_source = "(values" " prev-thunk_3)))))" "(if(not #f)" -"(for-loop_195" +"(for-loop_197" " prev-thunk_1" "(+ pos_101 inc_21))" " prev-thunk_1)))" " prev-thunk_0)))))" -" for-loop_195)" +" for-loop_197)" " void" " start_38)))))" "(thunk_5 as-tail?_2))))))))))))))))))))" @@ -37816,14 +37802,14 @@ static const char *startup_source = "(begin" " #f" "((letrec-values(((for-loop_6)" -"(lambda(i_157 pos_105)" +"(lambda(i_158 pos_105)" "(begin" " 'for-loop" "(if(unsafe-fx< pos_105 len_33)" "(let-values(((s_50)" "(unsafe-vector-ref vec_67 pos_105)))" -"(let-values(((i_158)" -"(let-values(((i_159) i_157))" +"(let-values(((i_83)" +"(let-values(((i_159) i_158))" "(let-values(((i_160)" "(let-values()" "(begin" @@ -37841,14 +37827,13 @@ static const char *startup_source = " i_159)))))" "(values i_160)))))" "(if(if(not" -"((lambda x_72" -"(unsafe-fx= i_158 len_32))" +"((lambda x_73(unsafe-fx= i_83 len_32))" " s_50))" "(not #f)" " #f)" -"(for-loop_6 i_158(unsafe-fx+ 1 pos_105))" -" i_158)))" -" i_157)))))" +"(for-loop_6 i_83(unsafe-fx+ 1 pos_105))" +" i_83)))" +" i_158)))))" " for-loop_6)" " 0" " 0)))))" @@ -37875,24 +37860,24 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_103)))" -"((letrec-values(((for-loop_115)" -"(lambda(result_112 lst_84)" +"((letrec-values(((for-loop_117)" +"(lambda(result_113 lst_84)" "(begin" " 'for-loop" "(if(pair? lst_84)" "(let-values(((r_42)(unsafe-car lst_84))((rest_50)(unsafe-cdr lst_84)))" -"(let-values(((result_78)" +"(let-values(((result_79)" "(let-values()" -"(let-values(((result_113)" +"(let-values(((result_114)" "(let-values()" "(let-values()" "(can-direct-eval? r_42 ns_42 self-mpi_3)))))" -"(values result_113)))))" -"(if(if(not((lambda x_73(not result_78)) r_42))(not #f) #f)" -"(for-loop_115 result_78 rest_50)" -" result_78)))" -" result_112)))))" -" for-loop_115)" +"(values result_114)))))" +"(if(if(not((lambda x_74(not result_79)) r_42))(not #f) #f)" +"(for-loop_117 result_79 rest_50)" +" result_79)))" +" result_113)))))" +" for-loop_117)" " #t" " lst_103)))" " #f))" @@ -37913,7 +37898,7 @@ static const char *startup_source = "(let-values(((lst_77)(parsed-app-rands p_48)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_77)))" -"((letrec-values(((for-loop_96)" +"((letrec-values(((for-loop_98)" "(lambda(fold-var_232 lst_78)" "(begin" " 'for-loop" @@ -37928,9 +37913,9 @@ static const char *startup_source = "(direct-eval r_8 ns_67 self-mpi_4))" " fold-var_69))))" "(values fold-var_26)))))" -"(if(not #f)(for-loop_96 fold-var_223 rest_36) fold-var_223)))" +"(if(not #f)(for-loop_98 fold-var_223 rest_36) fold-var_223)))" " fold-var_232)))))" -" for-loop_96)" +" for-loop_98)" " null" " lst_77))))))" "(if(parsed-id? p_48)" @@ -38074,16 +38059,16 @@ 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_99)" +"(lambda(lifts_1 ids_16 rhs_12 phase_98)" "(begin" -"(let-values(((lifted-ids_0 lifted_0)((lift-context-convert lifts_1) ids_16 rhs_12 phase_99)))" +"(let-values(((lifted-ids_0 lifted_0)((lift-context-convert lifts_1) ids_16 rhs_12 phase_98)))" "(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_100)" +"(lambda(ids_17 rhs_13 phase_99)" "(let-values(((keys_2)" "(reverse$1" "(let-values(((lst_277) ids_17))" @@ -38108,7 +38093,7 @@ static const char *startup_source = "(let-values(((id32_0)" " id_59)" "((phase33_0)" -" phase_100)" +" phase_99)" "((counter34_0)" " counter_3))" "(add-local-binding!37.1" @@ -38139,8 +38124,9 @@ static const char *startup_source = "(begin" "(lambda(ids_18 rhs_14 phase_7)" "(let-values(((post-scope_0)" -"(root-expand-context-post-expansion-scope" -"(namespace-get-root-expand-ctx(expand-context-namespace ctx_11)))))" +"(post-expansion-scope" +"(root-expand-context-post-expansion" +"(namespace-get-root-expand-ctx(expand-context-namespace ctx_11))))))" "(let-values(((tl-ids_1)" "(reverse$1" "(let-values(((lst_186) ids_18))" @@ -38148,7 +38134,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_186)))" -"((letrec-values(((for-loop_248)" +"((letrec-values(((for-loop_250)" "(lambda(fold-var_233 lst_187)" "(begin" " 'for-loop" @@ -38167,17 +38153,17 @@ static const char *startup_source = " fold-var_235))))" "(values fold-var_236)))))" "(if(not #f)" -"(for-loop_248 fold-var_234 rest_155)" +"(for-loop_250 fold-var_234 rest_155)" " fold-var_234)))" " fold-var_233)))))" -" for-loop_248)" +" for-loop_250)" " null" " lst_186))))))" "(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_4 phase_101)" +"(lambda(lifts_3 body_4 phase_100)" "(begin" "(datum->syntax$1" " #f" @@ -38201,7 +38187,7 @@ static const char *startup_source = " (error \"non-bindings in `lift-context`\")))" "(list" "(datum->syntax$1" -"(syntax-shift-phase-level$1 core-stx phase_101)" +"(syntax-shift-phase-level$1 core-stx phase_100)" " 'let-values)" "(list" "(list" @@ -38221,14 +38207,14 @@ static const char *startup_source = " 'wrap-lifts-as-begin16" "(let-values(((lifts_4) lifts13_0))" "(let-values(((body_8) body14_0))" -"(let-values(((phase_102) phase15_0))" +"(let-values(((phase_101) phase15_0))" "(let-values(((adjust-form_0)(if(eq? adjust-form9_0 unsafe-undefined) values adjust-form9_0)))" "(let-values(((adjust-body_0)(if(eq? adjust-body10_0 unsafe-undefined) values adjust-body10_0)))" "(let-values()" "(datum->syntax$1" " #f" "(cons" -"(datum->syntax$1(syntax-shift-phase-level$1 core-stx phase_102) 'begin)" +"(datum->syntax$1(syntax-shift-phase-level$1 core-stx phase_101) 'begin)" "(append" "(reverse$1" "(let-values(((lst_280) lifts_4))" @@ -38236,7 +38222,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_280)))" -"((letrec-values(((for-loop_249)" +"((letrec-values(((for-loop_251)" "(lambda(fold-var_168 lst_170)" "(begin" " 'for-loop" @@ -38258,7 +38244,7 @@ static const char *startup_source = "(datum->syntax$1" "(syntax-shift-phase-level$1" " core-stx" -" phase_102)" +" phase_101)" " 'define-values)" "(lifted-bind-ids lift_1)" "(lifted-bind-rhs" @@ -38266,9 +38252,9 @@ static const char *startup_source = "(let-values() lift_1))))" " fold-var_182))))" "(values fold-var_237)))))" -"(if(not #f)(for-loop_249 fold-var_169 rest_157) fold-var_169)))" +"(if(not #f)(for-loop_251 fold-var_169 rest_157) fold-var_169)))" " fold-var_168)))))" -" for-loop_249)" +" for-loop_251)" " null" " lst_280))))" "(list(adjust-body_0 body_8))))))))))))))" @@ -38340,7 +38326,7 @@ static const char *startup_source = "(lambda(module-lifts_1)(begin(box-clear!(module-lift-context-lifts module-lifts_1)))))" "(define-values" "(add-lifted-module!)" -"(lambda(module-lifts_2 s_409 phase_103)" +"(lambda(module-lifts_2 s_409 phase_102)" "(begin" "(begin" "(if(let-values(((or-part_171)" @@ -38352,7 +38338,7 @@ static const char *startup_source = "(if(lift-context? module-lifts_2)(lift-context-module*-ok? module-lifts_2) #f)))" "(void)" "(let-values()" -"(let-values(((tmp_30)(core-form-sym s_409 phase_103)))" +"(let-values(((tmp_30)(core-form-sym s_409 phase_102)))" "(if(equal? tmp_30 'module)" "(let-values()(void))" "(if(equal? tmp_30 'module*)" @@ -38406,10 +38392,10 @@ 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_410 phase_104)" +"(lambda(require-lifts_2 s_410 phase_103)" "(begin" "(begin" -"((require-lift-context-do-require require-lifts_2) s_410 phase_104)" +"((require-lift-context-do-require require-lifts_2) s_410 phase_103)" "(box-cons!(require-lift-context-requires require-lifts_2) s_410)))))" "(define-values" "(struct:to-module-lift-context" @@ -38447,10 +38433,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_83) phase26_2))" +"(let-values(((phase_82) 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_83(box null) end-as-expressions?_0 ends_0))))))))" +"(let-values()(to-module-lift-context21.1 phase_82(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!)" @@ -38460,7 +38446,7 @@ 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_218 phase_97)" +"(lambda(to-module-lifts_3 s_218 phase_96)" "(begin(box-cons!(to-module-lift-context-provides to-module-lifts_3) s_218))))" "(define-values" "(add-lifted-to-module-end!)" @@ -38521,15 +38507,15 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_75)))" -"((letrec-values(((for-loop_95)" -"(lambda(result_76 lst_76)" +"((letrec-values(((for-loop_97)" +"(lambda(result_77 lst_76)" "(begin" " 'for-loop" "(if(pair? lst_76)" "(let-values(((s_2)(unsafe-car lst_76))((rest_35)(unsafe-cdr lst_76)))" -"(let-values(((result_63)" +"(let-values(((result_64)" "(let-values()" -"(let-values(((result_114)" +"(let-values(((result_115)" "(let-values()" "(let-values()" "(memq" @@ -38539,12 +38525,12 @@ static const char *startup_source = " module" " module-begin" " definition-context))))))" -"(values result_114)))))" -"(if(if(not((lambda x_74(not result_63)) s_2))(not #f) #f)" -"(for-loop_95 result_63 rest_35)" -" result_63)))" -" result_76)))))" -" for-loop_95)" +"(values result_115)))))" +"(if(if(not((lambda x_75(not result_64)) s_2))(not #f) #f)" +"(for-loop_97 result_64 rest_35)" +" result_64)))" +" result_77)))))" +" for-loop_97)" " #t" " lst_75)))" " #f)" @@ -38646,7 +38632,7 @@ static const char *startup_source = "(let-values(((lst_41) rrs_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_41)))" -"((letrec-values(((for-loop_250)" +"((letrec-values(((for-loop_252)" "(lambda(lst_89)" "(begin" " 'for-loop" @@ -38663,9 +38649,9 @@ static const char *startup_source = "(let-values()" "(set-reference-record-all-referenced?! rr_1 #t))" "(values)))))" -"(if(post-guard-var_0)(for-loop_250 rest_120)(values))))))))" +"(if(post-guard-var_0)(for-loop_252 rest_120)(values))))))))" "(values))))))" -" for-loop_250)" +" for-loop_252)" " lst_41)))" "(void)))))" "(define-values" @@ -38678,19 +38664,19 @@ static const char *startup_source = "(let-values(((lst_23) keys_3))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_23)))" -"((letrec-values(((for-loop_190)" +"((letrec-values(((for-loop_192)" "(lambda(ab_3 lst_79)" "(begin" " 'for-loop" "(if(pair? lst_79)" -"(let-values(((key_77)(unsafe-car lst_79))((rest_85)(unsafe-cdr lst_79)))" +"(let-values(((key_78)(unsafe-car lst_79))((rest_85)(unsafe-cdr lst_79)))" "(let-values(((ab_4)" "(let-values(((ab_5) ab_3))" -"(let-values(((ab_6)(let-values()(set-add ab_5 key_77))))" +"(let-values(((ab_6)(let-values()(set-add ab_5 key_78))))" "(values ab_6)))))" -"(if(not #f)(for-loop_190 ab_4 rest_85) ab_4)))" +"(if(not #f)(for-loop_192 ab_4 rest_85) ab_4)))" " ab_3)))))" -" for-loop_190)" +" for-loop_192)" "(reference-record-already-bound rr_2)" " lst_23))))" "(set-reference-record-reference-before-bound!" @@ -38698,19 +38684,19 @@ static const char *startup_source = "(let-values(((lst_58) keys_3))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_58)))" -"((letrec-values(((for-loop_83)" +"((letrec-values(((for-loop_85)" "(lambda(rbb_0 lst_24)" "(begin" " 'for-loop" "(if(pair? lst_24)" -"(let-values(((key_78)(unsafe-car lst_24))((rest_26)(unsafe-cdr lst_24)))" +"(let-values(((key_79)(unsafe-car lst_24))((rest_26)(unsafe-cdr lst_24)))" "(let-values(((rbb_1)" "(let-values(((rbb_2) rbb_0))" -"(let-values(((rbb_3)(let-values()(set-remove rbb_2 key_78))))" +"(let-values(((rbb_3)(let-values()(set-remove rbb_2 key_79))))" "(values rbb_3)))))" -"(if(not #f)(for-loop_83 rbb_1 rest_26) rbb_1)))" +"(if(not #f)(for-loop_85 rbb_1 rest_26) rbb_1)))" " rbb_0)))))" -" for-loop_83)" +" for-loop_85)" "(reference-record-reference-before-bound rr_2)" " lst_58))))))))" "(define-values" @@ -38726,19 +38712,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_79 . args_5)" +"(lambda(obs_0 key_80 . args_5)" "(begin" "(begin" -"(let-values(((c1_28)(hash-ref key->arity key_79 #f)))" +"(let-values(((c1_28)(hash-ref key->arity key_80 #f)))" "(if c1_28" "((lambda(arity_2)" "(if(let-values(((or-part_130)(eq? arity_2 'any)))" "(if or-part_130 or-part_130(eqv?(length args_5) arity_2)))" "(void)" -" (let-values () (error 'call-expand-observe \"wrong arity for ~s: ~e\" key_79 args_5))))" +" (let-values () (error 'call-expand-observe \"wrong arity for ~s: ~e\" key_80 args_5))))" " c1_28)" -" (let-values () (error 'call-expand-observe \"bad key: ~s\" key_79))))" -"(obs_0 key_79(if(null? args_5)(let-values() #f)(let-values()(apply list* args_5))))))))" +" (let-values () (error 'call-expand-observe \"bad key: ~s\" key_80))))" +"(obs_0 key_80(if(null? args_5)(let-values() #f)(let-values()(apply list* args_5))))))))" "(define-values" "(key->arity)" " '#hash((block->letrec . 1)" @@ -38864,7 +38850,7 @@ static const char *startup_source = " semi-parsed-define-values-syms" " semi-parsed-define-values-ids" " semi-parsed-define-values-rhs)" -"(let-values(((struct:_69 make-_69 ?_69 -ref_69 -set!_69)" +"(let-values(((struct:_68 make-_68 ?_68 -ref_68 -set!_68)" "(let-values()" "(let-values()" "(make-struct-type" @@ -38880,13 +38866,13 @@ static const char *startup_source = " #f" " 'semi-parsed-define-values)))))" "(values" -" struct:_69" -" make-_69" -" ?_69" -"(make-struct-field-accessor -ref_69 0 's)" -"(make-struct-field-accessor -ref_69 1 'syms)" -"(make-struct-field-accessor -ref_69 2 'ids)" -"(make-struct-field-accessor -ref_69 3 'rhs))))" +" struct:_68" +" make-_68" +" ?_68" +"(make-struct-field-accessor -ref_68 0 's)" +"(make-struct-field-accessor -ref_68 1 'syms)" +"(make-struct-field-accessor -ref_68 2 'ids)" +"(make-struct-field-accessor -ref_68 3 'rhs))))" "(define-values" "(struct:semi-parsed-begin-for-syntax" " semi-parsed-begin-for-syntax3.1" @@ -38923,7 +38909,7 @@ static const char *startup_source = "(let-values(((lst_178) l_70))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_178)))" -"((letrec-values(((for-loop_247)" +"((letrec-values(((for-loop_249)" "(lambda(fold-var_5 lst_276)" "(begin" " 'for-loop" @@ -38957,9 +38943,9 @@ static const char *startup_source = " fold-var_176))))" "(values fold-var_177)))" " fold-var_231))))" -"(if(not #f)(for-loop_247 fold-var_230 rest_152) fold-var_230)))" +"(if(not #f)(for-loop_249 fold-var_230 rest_152) fold-var_230)))" " fold-var_5)))))" -" for-loop_247)" +" for-loop_249)" " null" " lst_178)))))))" "(define-values" @@ -38970,7 +38956,7 @@ static const char *startup_source = "(let-values(((lst_281) l_19))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_281)))" -"((letrec-values(((for-loop_251)" +"((letrec-values(((for-loop_253)" "(lambda(fold-var_163 lst_282)" "(begin" " 'for-loop" @@ -39072,9 +39058,9 @@ static const char *startup_source = " fold-var_88))))" "(values fold-var_238)))" " fold-var_87))))" -"(if(not #f)(for-loop_251 fold-var_86 rest_158) fold-var_86)))" +"(if(not #f)(for-loop_253 fold-var_86 rest_158) fold-var_86)))" " fold-var_163)))))" -" for-loop_251)" +" for-loop_253)" " null" " lst_281)))))))" "(define-values" @@ -39736,7 +39722,7 @@ static const char *startup_source = " def-ctx-scopes_1" " id_33)))" "(let-values(((result-s_5)(flip-scope transformed-s_0 intro-scope_0)))" -"(let-values(((post-s_0)(maybe-add-post-expansion-scope result-s_5 ctx_25)))" +"(let-values(((post-s_0)(maybe-add-post-expansion result-s_5 ctx_25)))" "(let-values(((tracked-s_0)" "(syntax-track-origin$1" " post-s_0" @@ -39790,35 +39776,33 @@ 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_192) accum-ctx_0))" -"(let-values(((the-struct_58) v_192))" -"(if(expand-context/outer? the-struct_58)" +"(let-values(((v_189) accum-ctx_0))" +"(let-values(((the-struct_57) v_189))" +"(if(expand-context/outer? the-struct_57)" "(let-values(((current-introduction-scopes202_0)(list intro-scope_1))" "((current-use-scopes203_0) use-scopes_1)" "((def-ctx-scopes204_0)" "(if confine-def-ctx-scopes?_0" " def-ctx-scopes_2" "(expand-context-def-ctx-scopes ctx_26)))" -"((inner205_0)(root-expand-context/outer-inner v_192)))" +"((inner205_0)(root-expand-context/outer-inner v_189)))" "(expand-context/outer1.1" " inner205_0" -"(root-expand-context/outer-post-expansion-scope the-struct_58)" -"(root-expand-context/outer-post-expansion-shifts the-struct_58)" -"(root-expand-context/outer-use-site-scopes the-struct_58)" -"(root-expand-context/outer-frame-id the-struct_58)" -"(expand-context/outer-context the-struct_58)" -"(expand-context/outer-env the-struct_58)" -"(expand-context/outer-post-expansion-scope-action the-struct_58)" -"(expand-context/outer-scopes the-struct_58)" +"(root-expand-context/outer-post-expansion the-struct_57)" +"(root-expand-context/outer-use-site-scopes the-struct_57)" +"(root-expand-context/outer-frame-id the-struct_57)" +"(expand-context/outer-context the-struct_57)" +"(expand-context/outer-env the-struct_57)" +"(expand-context/outer-scopes the-struct_57)" " def-ctx-scopes204_0" -"(expand-context/outer-binding-layer the-struct_58)" -"(expand-context/outer-reference-records the-struct_58)" -"(expand-context/outer-only-immediate? the-struct_58)" -"(expand-context/outer-need-eventually-defined the-struct_58)" +"(expand-context/outer-binding-layer the-struct_57)" +"(expand-context/outer-reference-records the-struct_57)" +"(expand-context/outer-only-immediate? the-struct_57)" +"(expand-context/outer-need-eventually-defined the-struct_57)" " current-introduction-scopes202_0" " current-use-scopes203_0" -"(expand-context/outer-name the-struct_58)))" -" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_58))))))" +"(expand-context/outer-name the-struct_57)))" +" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_57))))))" "(let-values(((transformed-s_1)" "(with-continuation-mark" " parameterization-key" @@ -39871,48 +39855,36 @@ static const char *startup_source = "(if or-part_271 or-part_271(eq? current-frame-id_0 'all)))" " #f))))" "(define-values" -"(maybe-add-post-expansion-scope)" -"(lambda(s_241 ctx_28)" -"(begin" -"(if(root-expand-context-post-expansion-scope ctx_28)" -"(let-values()" -"(let-values(((new-s_1)" -"((expand-context-post-expansion-scope-action ctx_28)" -" s_241" -"(root-expand-context-post-expansion-scope ctx_28))))" -"(let-values(((new-s206_0) new-s_1)((temp207_0)(root-expand-context-post-expansion-shifts ctx_28)))" -"(syntax-add-shifts44.1 #f new-s206_0 temp207_0 #f))))" -"(let-values() s_241)))))" +"(maybe-add-post-expansion)" +"(lambda(s_241 ctx_28)(begin(apply-post-expansion(root-expand-context-post-expansion ctx_28) s_241))))" "(define-values" "(accumulate-def-ctx-scopes)" "(lambda(ctx_29 def-ctx-scopes_3)" "(begin" "(if(null?(unbox def-ctx-scopes_3))" " ctx_29" -"(let-values(((v_193) ctx_29))" -"(let-values(((the-struct_59) v_193))" -"(if(expand-context/outer? the-struct_59)" -"(let-values(((scopes208_0)(append(unbox def-ctx-scopes_3)(expand-context-scopes ctx_29)))" -"((inner209_0)(root-expand-context/outer-inner v_193)))" +"(let-values(((v_190) ctx_29))" +"(let-values(((the-struct_58) v_190))" +"(if(expand-context/outer? the-struct_58)" +"(let-values(((scopes206_0)(append(unbox def-ctx-scopes_3)(expand-context-scopes ctx_29)))" +"((inner207_0)(root-expand-context/outer-inner v_190)))" "(expand-context/outer1.1" -" inner209_0" -"(root-expand-context/outer-post-expansion-scope the-struct_59)" -"(root-expand-context/outer-post-expansion-shifts 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)" -" scopes208_0" -"(expand-context/outer-def-ctx-scopes the-struct_59)" -"(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)" -"(expand-context/outer-current-introduction-scopes the-struct_59)" -"(expand-context/outer-current-use-scopes the-struct_59)" -"(expand-context/outer-name the-struct_59)))" -" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_59))))))))" +" inner207_0" +"(root-expand-context/outer-post-expansion the-struct_58)" +"(root-expand-context/outer-use-site-scopes the-struct_58)" +"(root-expand-context/outer-frame-id the-struct_58)" +"(expand-context/outer-context the-struct_58)" +"(expand-context/outer-env the-struct_58)" +" scopes206_0" +"(expand-context/outer-def-ctx-scopes the-struct_58)" +"(expand-context/outer-binding-layer the-struct_58)" +"(expand-context/outer-reference-records the-struct_58)" +"(expand-context/outer-only-immediate? the-struct_58)" +"(expand-context/outer-need-eventually-defined the-struct_58)" +"(expand-context/outer-current-introduction-scopes the-struct_58)" +"(expand-context/outer-current-use-scopes the-struct_58)" +"(expand-context/outer-name the-struct_58)))" +" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_58))))))))" "(define-values" "(lookup62.1)" "(lambda(in55_0 out-of-context-as-variable?56_0 b59_0 ctx60_0 id61_0)" @@ -39920,42 +39892,42 @@ static const char *startup_source = " 'lookup62" "(let-values(((b_82) b59_0))" "(let-values(((ctx_30) ctx60_0))" -"(let-values(((id_68) id61_0))" +"(let-values(((id_37) id61_0))" "(let-values(((in-s_7) in55_0))" "(let-values(((out-of-context-as-variable?_1) out-of-context-as-variable?56_0))" "(let-values()" -"(let-values(((b210_0) b_82)" -"((temp211_0)(expand-context-env ctx_30))" -"((temp212_0)(expand-context-lift-envs ctx_30))" -"((temp213_1)(expand-context-namespace ctx_30))" -"((temp214_1)(expand-context-phase ctx_30))" -"((id215_0) id_68)" -"((in-s216_0) in-s_7)" -"((out-of-context-as-variable?217_0) out-of-context-as-variable?_1))" +"(let-values(((b208_0) b_82)" +"((temp209_1)(expand-context-env ctx_30))" +"((temp210_0)(expand-context-lift-envs ctx_30))" +"((temp211_0)(expand-context-namespace ctx_30))" +"((temp212_0)(expand-context-phase ctx_30))" +"((id213_0) id_37)" +"((in-s214_0) in-s_7)" +"((out-of-context-as-variable?215_0) out-of-context-as-variable?_1))" "(binding-lookup50.1" -" in-s216_0" -" out-of-context-as-variable?217_0" -" b210_0" +" in-s214_0" +" out-of-context-as-variable?215_0" +" b208_0" +" temp209_1" +" temp210_0" " temp211_0" " temp212_0" -" temp213_1" -" temp214_1" -" id215_0)))))))))))" +" id213_0)))))))))))" "(define-values" "(substitute-alternate-id)" -"(lambda(s_249 alternate-id_3)" +"(lambda(s_355 alternate-id_3)" "(begin" "(if(not alternate-id_3)" -"(let-values() s_249)" -"(if(syntax-identifier? s_249)" -"(let-values()(syntax-rearm$1(syntax-track-origin$1 alternate-id_3 s_249) s_249))" +"(let-values() s_355)" +"(if(syntax-identifier? s_355)" +"(let-values()(syntax-rearm$1(syntax-track-origin$1 alternate-id_3 s_355) s_355))" "(let-values()" -"(let-values(((disarmed-s_4)(syntax-disarm$1 s_249)))" +"(let-values(((disarmed-s_4)(syntax-disarm$1 s_355)))" "(syntax-rearm$1" "(syntax-track-origin$1" -"(datum->syntax$1 disarmed-s_4(cons alternate-id_3(cdr(syntax-e$1 disarmed-s_4))) s_249)" -" s_249)" -" s_249))))))))" +"(datum->syntax$1 disarmed-s_4(cons alternate-id_3(cdr(syntax-e$1 disarmed-s_4))) s_355)" +" s_355)" +" s_355))))))))" "(define-values" "(register-variable-referenced-if-local!)" "(lambda(binding_25)" @@ -39968,7 +39940,7 @@ static const char *startup_source = "(lambda(always-wrap?68_0 begin-form?66_0 expand-lifts?65_0 lift-key67_0 s73_0 ctx74_0)" "(begin" " 'expand/capture-lifts75" -"(let-values(((s_361) s73_0))" +"(let-values(((s_360) s73_0))" "(let-values(((ctx_31) ctx74_0))" "(let-values(((expand-lifts?_0) expand-lifts?65_0))" "(let-values(((begin-form?_0) begin-form?66_0))" @@ -39976,7 +39948,7 @@ static const char *startup_source = "(let-values(((always-wrap?_0) always-wrap?68_0))" "(let-values()" "(let-values(((context_6)(expand-context-context ctx_31)))" -"(let-values(((phase_105)(expand-context-phase ctx_31)))" +"(let-values(((phase_104)(expand-context-phase ctx_31)))" "(let-values(((local?_0)(not begin-form?_0)))" "((letrec-values(((loop_95)" "(lambda(s_418 always-wrap?_1 ctx_32)" @@ -39984,32 +39956,32 @@ static const char *startup_source = " 'loop" "(let-values(((lift-env_2)(if local?_0(box empty-env) #f)))" "(let-values(((lift-ctx_0)" -"(let-values(((temp218_0)" +"(let-values(((temp216_0)" "(if local?_0" "(make-local-lift" " lift-env_2" "(root-expand-context-counter ctx_32))" "(make-top-level-lift ctx_32)))" -"((temp219_0)" +"((temp217_1)" "(if(not local?_0)" "(eq? context_6 'module)" " #f)))" -"(make-lift-context6.1 temp219_0 temp218_0))))" +"(make-lift-context6.1 temp217_1 temp216_0))))" "(let-values(((capture-ctx_0)" -"(let-values(((v_194) ctx_32))" -"(let-values(((the-struct_60) v_194))" -"(if(expand-context/outer? the-struct_60)" -"(let-values(((inner220_0)" -"(let-values(((the-struct_61)" +"(let-values(((v_191) ctx_32))" +"(let-values(((the-struct_59) v_191))" +"(if(expand-context/outer? the-struct_59)" +"(let-values(((inner218_0)" +"(let-values(((the-struct_60)" "(root-expand-context/outer-inner" -" v_194)))" +" v_191)))" "(if(expand-context/inner?" -" the-struct_61)" -"(let-values(((lift-key221_0)" +" the-struct_60)" +"(let-values(((lift-key219_0)" " lift-key_2)" -"((lifts222_0)" +"((lifts220_0)" " lift-ctx_0)" -"((lift-envs223_0)" +"((lift-envs221_0)" "(if local?_0" "(cons" " lift-env_2" @@ -40017,7 +39989,7 @@ static const char *startup_source = " ctx_32))" "(expand-context-lift-envs" " ctx_32)))" -"((module-lifts224_0)" +"((module-lifts222_0)" "(if(let-values(((or-part_272)" " local?_0))" "(if or-part_272" @@ -40032,104 +40004,100 @@ static const char *startup_source = " lift-ctx_0)))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi" -" the-struct_61)" +" the-struct_60)" "(root-expand-context/inner-module-scopes" -" the-struct_61)" +" the-struct_60)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_61)" +" the-struct_60)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_61)" +" the-struct_60)" "(root-expand-context/inner-defined-syms" -" the-struct_61)" +" the-struct_60)" "(root-expand-context/inner-counter" -" the-struct_61)" -" lift-key221_0" +" the-struct_60)" +" lift-key219_0" "(expand-context/inner-to-parsed?" -" the-struct_61)" +" the-struct_60)" "(expand-context/inner-phase" -" the-struct_61)" +" the-struct_60)" "(expand-context/inner-namespace" -" the-struct_61)" +" the-struct_60)" "(expand-context/inner-just-once?" -" the-struct_61)" +" the-struct_60)" "(expand-context/inner-module-begin-k" -" the-struct_61)" +" the-struct_60)" "(expand-context/inner-allow-unbound?" -" the-struct_61)" +" the-struct_60)" "(expand-context/inner-in-local-expand?" -" the-struct_61)" +" the-struct_60)" "(expand-context/inner-keep-#%expression?" -" the-struct_61)" +" the-struct_60)" "(expand-context/inner-stops" -" the-struct_61)" +" the-struct_60)" "(expand-context/inner-declared-submodule-names" -" the-struct_61)" -" lifts222_0" -" lift-envs223_0" -" module-lifts224_0" +" the-struct_60)" +" lifts220_0" +" lift-envs221_0" +" module-lifts222_0" "(expand-context/inner-require-lifts" -" the-struct_61)" +" the-struct_60)" "(expand-context/inner-to-module-lifts" -" the-struct_61)" +" the-struct_60)" "(expand-context/inner-requires+provides" -" the-struct_61)" +" the-struct_60)" "(expand-context/inner-observer" -" the-struct_61)" +" the-struct_60)" "(expand-context/inner-for-serializable?" -" the-struct_61)" +" the-struct_60)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_61)))" +" the-struct_60)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_61)))))" +" the-struct_60)))))" "(expand-context/outer1.1" -" inner220_0" -"(root-expand-context/outer-post-expansion-scope" -" the-struct_60)" -"(root-expand-context/outer-post-expansion-shifts" -" the-struct_60)" +" inner218_0" +"(root-expand-context/outer-post-expansion" +" the-struct_59)" "(root-expand-context/outer-use-site-scopes" -" the-struct_60)" +" the-struct_59)" "(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)" +" the-struct_59)" +"(expand-context/outer-context the-struct_59)" +"(expand-context/outer-env the-struct_59)" +"(expand-context/outer-scopes the-struct_59)" "(expand-context/outer-def-ctx-scopes" -" the-struct_60)" +" the-struct_59)" "(expand-context/outer-binding-layer" -" the-struct_60)" +" the-struct_59)" "(expand-context/outer-reference-records" -" the-struct_60)" +" the-struct_59)" "(expand-context/outer-only-immediate?" -" the-struct_60)" +" the-struct_59)" "(expand-context/outer-need-eventually-defined" -" the-struct_60)" +" the-struct_59)" "(expand-context/outer-current-introduction-scopes" -" the-struct_60)" +" the-struct_59)" "(expand-context/outer-current-use-scopes" -" the-struct_60)" -"(expand-context/outer-name the-struct_60)))" +" the-struct_59)" +"(expand-context/outer-name the-struct_59)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_60))))))" +" the-struct_59))))))" "(let-values(((rebuild-s_0)(keep-properties-only s_418)))" "(let-values(((exp-s_2)" -"(let-values(((s225_0) s_418)" -"((capture-ctx226_0) capture-ctx_0))" -"(expand9.1 #f #f #f s225_0 capture-ctx226_0))))" +"(let-values(((s223_0) s_418)" +"((capture-ctx224_0) capture-ctx_0))" +"(expand9.1 #f #f #f s223_0 capture-ctx224_0))))" "(let-values(((lifts_6)" "(get-and-clear-lifts!" "(expand-context-lifts capture-ctx_0))))" "(let-values(((with-lifts-s_0)" -"(if(let-values(((or-part_116)" +"(if(let-values(((or-part_273)" "(pair? lifts_6)))" -"(if or-part_116" -" or-part_116" +"(if or-part_273" +" or-part_273" " always-wrap?_1))" "(let-values()" "(if(expand-context-to-parsed? ctx_32)" @@ -40149,27 +40117,27 @@ static const char *startup_source = "(loop_95 rhs_15 #f rhs-ctx_0)))))" "(let-values()" "(if begin-form?_0" -"(let-values(((lifts227_0) lifts_6)" -"((exp-s228_0) exp-s_2)" -"((phase229_0)" -" phase_105))" +"(let-values(((lifts225_0) lifts_6)" +"((exp-s226_0) exp-s_2)" +"((phase227_0)" +" phase_104))" "(wrap-lifts-as-begin16.1" " unsafe-undefined" " unsafe-undefined" -" lifts227_0" -" exp-s228_0" -" phase229_0))" +" lifts225_0" +" exp-s226_0" +" phase227_0))" "(wrap-lifts-as-let" " lifts_6" " exp-s_2" -" phase_105)))))" +" phase_104)))))" "(let-values() exp-s_2))))" -"(if(let-values(((or-part_273)(not expand-lifts?_0)))" -"(if or-part_273" -" or-part_273" -"(let-values(((or-part_274)(null? lifts_6)))" +"(if(let-values(((or-part_274)(not expand-lifts?_0)))" "(if or-part_274" " or-part_274" +"(let-values(((or-part_275)(null? lifts_6)))" +"(if or-part_275" +" or-part_275" "(expand-context-to-parsed? ctx_32)))))" "(let-values() with-lifts-s_0)" "(let-values()" @@ -40186,7 +40154,7 @@ static const char *startup_source = "(void)))" "(loop_95 with-lifts-s_0 #f ctx_32)))))))))))))))" " loop_95)" -" s_361" +" s_360" " always-wrap?_0" " ctx_31))))))))))))))" "(define-values" @@ -40205,23 +40173,23 @@ static const char *startup_source = "(let-values()" "(let-values()" "(let-values(((trans-ctx_0)" -"(let-values(((ctx236_0) ctx_33)" -"((context237_0) context_7)" -"((keep-stops?238_0) keep-stops?_0))" -"(context->transformer-context99.1 keep-stops?238_0 ctx236_0 context237_0))))" -"(let-values(((s230_0) s_419)" -"((trans-ctx231_0) trans-ctx_0)" -"((expand-lifts?232_0) expand-lifts?_1)" -"((begin-form?233_0) begin-form?_1)" -"((lift-key234_0) lift-key_3)" -"((always-wrap?235_0) always-wrap?_2))" +"(let-values(((ctx234_0) ctx_33)" +"((context235_0) context_7)" +"((keep-stops?236_0) keep-stops?_0))" +"(context->transformer-context99.1 keep-stops?236_0 ctx234_0 context235_0))))" +"(let-values(((s228_0) s_419)" +"((trans-ctx229_0) trans-ctx_0)" +"((expand-lifts?230_0) expand-lifts?_1)" +"((begin-form?231_0) begin-form?_1)" +"((lift-key232_0) lift-key_3)" +"((always-wrap?233_0) always-wrap?_2))" "(expand/capture-lifts75.1" -" always-wrap?235_0" -" begin-form?233_0" -" expand-lifts?232_0" -" lift-key234_0" -" s230_0" -" trans-ctx231_0))))))))))))))))" +" always-wrap?233_0" +" begin-form?231_0" +" expand-lifts?230_0" +" lift-key232_0" +" s228_0" +" trans-ctx229_0))))))))))))))))" "(define-values" "(context->transformer-context99.1)" "(lambda(keep-stops?95_0 ctx98_0 context97_0)" @@ -40231,79 +40199,77 @@ static const char *startup_source = "(let-values(((context_8) context97_0))" "(let-values(((keep-stops?_1) keep-stops?95_0))" "(let-values()" -"(let-values(((phase_106)(add1(expand-context-phase ctx_34))))" -"(let-values(((ns_74)(namespace->namespace-at-phase(expand-context-namespace ctx_34) phase_106)))" +"(let-values(((phase_105)(add1(expand-context-phase ctx_34))))" +"(let-values(((ns_74)(namespace->namespace-at-phase(expand-context-namespace ctx_34) phase_105)))" "(begin" -"(namespace-visit-available-modules! ns_74 phase_106)" -"(let-values(((v_195) ctx_34))" -"(let-values(((the-struct_62) v_195))" -"(if(expand-context/outer? the-struct_62)" -"(let-values(((context239_0) context_8)" -"((scopes240_0) null)" -"((env241_0) empty-env)" -"((only-immediate?242_0)" +"(namespace-visit-available-modules! ns_74 phase_105)" +"(let-values(((v_192) ctx_34))" +"(let-values(((the-struct_61) v_192))" +"(if(expand-context/outer? the-struct_61)" +"(let-values(((context237_0) context_8)" +"((scopes238_0) null)" +"((env239_0) empty-env)" +"((only-immediate?240_0)" "(if keep-stops?_1(expand-context-only-immediate? ctx_34) #f))" -"((def-ctx-scopes243_0) #f)" -"((post-expansion-scope244_0) #f)" -"((inner245_0)" -"(let-values(((the-struct_63)(root-expand-context/outer-inner v_195)))" -"(if(expand-context/inner? the-struct_63)" -"(let-values(((phase246_0) phase_106)" -"((namespace247_0) ns_74)" -"((stops248_0)" +"((def-ctx-scopes241_0) #f)" +"((post-expansion242_0) #f)" +"((inner243_0)" +"(let-values(((the-struct_62)(root-expand-context/outer-inner v_192)))" +"(if(expand-context/inner? the-struct_62)" +"(let-values(((phase244_0) phase_105)" +"((namespace245_0) ns_74)" +"((stops246_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_63)" -"(root-expand-context/inner-module-scopes the-struct_63)" -"(root-expand-context/inner-top-level-bind-scope the-struct_63)" -"(root-expand-context/inner-all-scopes-stx the-struct_63)" -"(root-expand-context/inner-defined-syms the-struct_63)" -"(root-expand-context/inner-counter the-struct_63)" -"(root-expand-context/inner-lift-key the-struct_63)" -"(expand-context/inner-to-parsed? the-struct_63)" -" phase246_0" -" namespace247_0" -"(expand-context/inner-just-once? the-struct_63)" -"(expand-context/inner-module-begin-k the-struct_63)" -"(expand-context/inner-allow-unbound? the-struct_63)" -"(expand-context/inner-in-local-expand? the-struct_63)" -"(expand-context/inner-keep-#%expression? the-struct_63)" -" stops248_0" -"(expand-context/inner-declared-submodule-names the-struct_63)" -"(expand-context/inner-lifts the-struct_63)" -"(expand-context/inner-lift-envs the-struct_63)" -"(expand-context/inner-module-lifts the-struct_63)" -"(expand-context/inner-require-lifts the-struct_63)" -"(expand-context/inner-to-module-lifts the-struct_63)" -"(expand-context/inner-requires+provides the-struct_63)" -"(expand-context/inner-observer the-struct_63)" -"(expand-context/inner-for-serializable? the-struct_63)" -"(expand-context/inner-should-not-encounter-macros? the-struct_63)))" +"(root-expand-context/inner-self-mpi the-struct_62)" +"(root-expand-context/inner-module-scopes the-struct_62)" +"(root-expand-context/inner-top-level-bind-scope the-struct_62)" +"(root-expand-context/inner-all-scopes-stx the-struct_62)" +"(root-expand-context/inner-defined-syms the-struct_62)" +"(root-expand-context/inner-counter the-struct_62)" +"(root-expand-context/inner-lift-key the-struct_62)" +"(expand-context/inner-to-parsed? the-struct_62)" +" phase244_0" +" namespace245_0" +"(expand-context/inner-just-once? the-struct_62)" +"(expand-context/inner-module-begin-k the-struct_62)" +"(expand-context/inner-allow-unbound? the-struct_62)" +"(expand-context/inner-in-local-expand? the-struct_62)" +"(expand-context/inner-keep-#%expression? the-struct_62)" +" stops246_0" +"(expand-context/inner-declared-submodule-names the-struct_62)" +"(expand-context/inner-lifts the-struct_62)" +"(expand-context/inner-lift-envs the-struct_62)" +"(expand-context/inner-module-lifts the-struct_62)" +"(expand-context/inner-require-lifts the-struct_62)" +"(expand-context/inner-to-module-lifts the-struct_62)" +"(expand-context/inner-requires+provides the-struct_62)" +"(expand-context/inner-observer the-struct_62)" +"(expand-context/inner-for-serializable? the-struct_62)" +"(expand-context/inner-should-not-encounter-macros? the-struct_62)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_63)))))" +" the-struct_62)))))" "(expand-context/outer1.1" -" inner245_0" -" post-expansion-scope244_0" -"(root-expand-context/outer-post-expansion-shifts the-struct_62)" -"(root-expand-context/outer-use-site-scopes the-struct_62)" -"(root-expand-context/outer-frame-id the-struct_62)" -" context239_0" -" env241_0" -"(expand-context/outer-post-expansion-scope-action the-struct_62)" -" scopes240_0" -" def-ctx-scopes243_0" -"(expand-context/outer-binding-layer the-struct_62)" -"(expand-context/outer-reference-records the-struct_62)" -" only-immediate?242_0" -"(expand-context/outer-need-eventually-defined the-struct_62)" -"(expand-context/outer-current-introduction-scopes the-struct_62)" -"(expand-context/outer-current-use-scopes the-struct_62)" -"(expand-context/outer-name the-struct_62)))" -" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_62))))))))))))))" +" inner243_0" +" post-expansion242_0" +"(root-expand-context/outer-use-site-scopes the-struct_61)" +"(root-expand-context/outer-frame-id the-struct_61)" +" context237_0" +" env239_0" +" scopes238_0" +" def-ctx-scopes241_0" +"(expand-context/outer-binding-layer the-struct_61)" +"(expand-context/outer-reference-records the-struct_61)" +" only-immediate?240_0" +"(expand-context/outer-need-eventually-defined the-struct_61)" +"(expand-context/outer-current-introduction-scopes the-struct_61)" +"(expand-context/outer-current-use-scopes the-struct_61)" +"(expand-context/outer-name the-struct_61)))" +" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_61))))))))))))))" "(define-values" "(expand+eval-for-syntaxes-binding108.1)" "(lambda(log-next?102_0 who104_0 rhs105_0 ids106_0 ctx107_0)" @@ -40316,7 +40282,7 @@ static const char *startup_source = "(let-values(((log-next?_0) log-next?102_0))" "(let-values()" "(let-values(((exp-rhs_0)" -"(let-values(((rhs249_0) rhs_16)((temp250_1)(as-named-context ctx_35 ids_19)))" +"(let-values(((rhs247_0) rhs_16)((temp248_0)(as-named-context ctx_35 ids_19)))" "(expand-transformer92.1" " #f" " #f" @@ -40324,17 +40290,17 @@ static const char *startup_source = " #t" " #f" " unsafe-undefined" -" rhs249_0" -" temp250_1))))" -"(let-values(((phase_107)(add1(expand-context-phase ctx_35))))" +" rhs247_0" +" temp248_0))))" +"(let-values(((phase_106)(add1(expand-context-phase ctx_35))))" "(let-values(((parsed-rhs_0)" "(if(expand-context-to-parsed? ctx_35)" " exp-rhs_0" -"(let-values(((exp-rhs251_0) exp-rhs_0)" -"((temp252_0)" -"(let-values(((temp253_0)(as-to-parsed-context ctx_35)))" -"(context->transformer-context99.1 #f temp253_0 'expression))))" -"(expand9.1 #f #f #f exp-rhs251_0 temp252_0)))))" +"(let-values(((exp-rhs249_0) exp-rhs_0)" +"((temp250_1)" +"(let-values(((temp251_0)(as-to-parsed-context ctx_35)))" +"(context->transformer-context99.1 #f temp251_0 'expression))))" +"(expand9.1 #f #f #f exp-rhs249_0 temp250_1)))))" "(begin" "(if log-next?_0" "(let-values()" @@ -40348,28 +40314,28 @@ static const char *startup_source = " who_16" " ids_19" " parsed-rhs_0" -" phase_107" -"(namespace->namespace-at-phase(expand-context-namespace ctx_35) phase_107)" +" phase_106" +"(namespace->namespace-at-phase(expand-context-namespace ctx_35) phase_106)" " ctx_35)))))))))))))))" "(define-values" "(eval-for-syntaxes-binding)" "(lambda(who_17 rhs_17 ids_20 ctx_36)" "(begin" "(let-values(((exp-rhs_1 parsed-rhs_1 vals_3)" -"(let-values(((who254_0) who_17)((rhs255_0) rhs_17)((ids256_0) ids_20)((ctx257_0) ctx_36))" -"(expand+eval-for-syntaxes-binding108.1 #t who254_0 rhs255_0 ids256_0 ctx257_0))))" +"(let-values(((who252_0) who_17)((rhs253_0) rhs_17)((ids254_0) ids_20)((ctx255_0) ctx_36))" +"(expand+eval-for-syntaxes-binding108.1 #t who252_0 rhs253_0 ids254_0 ctx255_0))))" " vals_3))))" "(define-values" "(eval-for-bindings)" -"(lambda(who_18 ids_21 p_49 phase_108 ns_75 ctx_37)" +"(lambda(who_18 ids_21 p_49 phase_107 ns_75 ctx_37)" "(begin" "(let-values(((compiled_0)" "(if(can-direct-eval? p_49 ns_75(root-expand-context-self-mpi ctx_37))" " #f" "(compile-single" " p_49" -"(let-values(((ns258_0) ns_75)((phase259_0) phase_108))" -"(make-compile-context14.1 #f unsafe-undefined #f ns258_0 phase259_0 unsafe-undefined))))))" +"(let-values(((ns256_0) ns_75)((phase257_0) phase_107))" +"(make-compile-context14.1 #f unsafe-undefined #f ns256_0 phase257_0 unsafe-undefined))))))" "(let-values(((vals_4)" "(call-with-values" "(lambda()" @@ -40427,8 +40393,8 @@ static const char *startup_source = "(let-values() #f)))))" "(if(expand-context-to-parsed? ctx_38)" "(let-values()" -"(if(let-values(((or-part_275) keep-for-parsed?_0))" -"(if or-part_275 or-part_275 keep-for-error?_0))" +"(if(let-values(((or-part_276) keep-for-parsed?_0))" +"(if or-part_276 or-part_276 keep-for-error?_0))" "(datum->syntax$1 #f keep-e_0 s_422 s_422)" " #f))" "(let-values()" @@ -40437,18 +40403,18 @@ static const char *startup_source = " s_422))))))))))))))" "(define-values" "(attach-disappeared-transformer-bindings)" -"(lambda(s_423 trans-idss_0)" +"(lambda(s_154 trans-idss_0)" "(begin" "(if(null? trans-idss_0)" -"(let-values() s_423)" +"(let-values() s_154)" "(let-values()" "(syntax-property$1" -" s_423" +" s_154" " 'disappeared-binding" "(append" "(apply append trans-idss_0)" -"(let-values(((or-part_276)(syntax-property$1 s_423 'disappeared-binding)))" -"(if or-part_276 or-part_276 null)))))))))" +"(let-values(((or-part_197)(syntax-property$1 s_154 'disappeared-binding)))" +"(if or-part_197 or-part_197 null)))))))))" "(define-values" "(increment-binding-layer)" "(lambda(ids_22 ctx_39 layer-val_0)" @@ -40457,12 +40423,12 @@ static const char *startup_source = "(lambda(ids_23)" "(begin" " 'loop" -"(let-values(((or-part_277)(identifier? ids_23)))" -"(if or-part_277" -" or-part_277" +"(let-values(((or-part_198)(identifier? ids_23)))" +"(if or-part_198" +" or-part_198" "(if(pair? ids_23)" -"(let-values(((or-part_278)(loop_96(car ids_23))))" -"(if or-part_278 or-part_278(loop_96(cdr ids_23))))" +"(let-values(((or-part_199)(loop_96(car ids_23))))" +"(if or-part_199 or-part_199(loop_96(cdr ids_23))))" " #f)))))))" " loop_96)" " ids_22)" @@ -40491,10 +40457,10 @@ static const char *startup_source = "(list" "(lets-loop_0" "(cdr idss+keyss+rhss_1)" -"(let-values(((v_184) rhs-ctx_1))" -"(let-values(((the-struct_64) v_184))" -"(if(expand-context/outer? the-struct_64)" -"(let-values(((env260_0)" +"(let-values(((v_193) rhs-ctx_1))" +"(let-values(((the-struct_63) v_193))" +"(if(expand-context/outer? the-struct_63)" +"(let-values(((env258_0)" "(let-values(((lst_283) ids_24)((lst_284) keys_4))" "(begin" "(if(variable-reference-from-unsafe?" @@ -40505,20 +40471,20 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()(check-list lst_284)))" -"((letrec-values(((for-loop_252)" +"((letrec-values(((for-loop_254)" "(lambda(env_3 lst_285 lst_286)" "(begin" " 'for-loop" "(if(if(pair? lst_285)" "(pair? lst_286)" " #f)" -"(let-values(((id_69)" +"(let-values(((id_68)" "(unsafe-car" " lst_285))" "((rest_159)" "(unsafe-cdr" " lst_285))" -"((key_80)" +"((key_81)" "(unsafe-car" " lst_286))" "((rest_160)" @@ -40531,45 +40497,43 @@ static const char *startup_source = "(let-values()" "(env-extend" " env_5" -" key_80" +" key_81" "(local-variable1.1" -" id_69)))))" +" id_68)))))" "(values" " env_6)))))" "(if(not #f)" -"(for-loop_252" +"(for-loop_254" " env_4" " rest_159" " rest_160)" " env_4)))" " env_3)))))" -" for-loop_252)" +" for-loop_254)" "(expand-context-env rhs-ctx_1)" " lst_283" " lst_284))))" -"((inner261_0)(root-expand-context/outer-inner v_184)))" +"((inner259_0)(root-expand-context/outer-inner v_193)))" "(expand-context/outer1.1" -" inner261_0" -"(root-expand-context/outer-post-expansion-scope the-struct_64)" -"(root-expand-context/outer-post-expansion-shifts the-struct_64)" -"(root-expand-context/outer-use-site-scopes the-struct_64)" -"(root-expand-context/outer-frame-id the-struct_64)" -"(expand-context/outer-context the-struct_64)" -" env260_0" -"(expand-context/outer-post-expansion-scope-action the-struct_64)" -"(expand-context/outer-scopes the-struct_64)" -"(expand-context/outer-def-ctx-scopes the-struct_64)" -"(expand-context/outer-binding-layer the-struct_64)" -"(expand-context/outer-reference-records the-struct_64)" -"(expand-context/outer-only-immediate? the-struct_64)" -"(expand-context/outer-need-eventually-defined the-struct_64)" -"(expand-context/outer-current-introduction-scopes the-struct_64)" -"(expand-context/outer-current-use-scopes the-struct_64)" -"(expand-context/outer-name the-struct_64)))" +" inner259_0" +"(root-expand-context/outer-post-expansion the-struct_63)" +"(root-expand-context/outer-use-site-scopes the-struct_63)" +"(root-expand-context/outer-frame-id the-struct_63)" +"(expand-context/outer-context the-struct_63)" +" env258_0" +"(expand-context/outer-scopes the-struct_63)" +"(expand-context/outer-def-ctx-scopes the-struct_63)" +"(expand-context/outer-binding-layer the-struct_63)" +"(expand-context/outer-reference-records the-struct_63)" +"(expand-context/outer-only-immediate? the-struct_63)" +"(expand-context/outer-need-eventually-defined the-struct_63)" +"(expand-context/outer-current-introduction-scopes the-struct_63)" +"(expand-context/outer-current-use-scopes the-struct_63)" +"(expand-context/outer-name the-struct_63)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_64)))))))))))))))))" +" the-struct_63)))))))))))))))))" " lets-loop_0)" " idss+keyss+rhss_0" " ctx_40)))))" @@ -40583,45 +40547,45 @@ static const char *startup_source = "(let-values()(1/rename-transformer-target t_58))))))" "(define-values" "(maybe-install-free=id-in-context!)" -"(lambda(val_68 id_70 phase_109 ctx_42)" +"(lambda(val_69 id_69 phase_108 ctx_42)" "(begin" -"(if(1/rename-transformer? val_68)" +"(if(1/rename-transformer? val_69)" "(let-values()" "(with-continuation-mark" " parameterization-key" "(extend-parameterization(continuation-mark-set-first #f parameterization-key) current-expand-context ctx_42)" -"(let-values()(maybe-install-free=id! val_68 id_70 phase_109))))" +"(let-values()(maybe-install-free=id! val_69 id_69 phase_108))))" "(void)))))" "(define-values" "(transfer-srcloc)" -"(lambda(new-s_2 old-s_0)" +"(lambda(new-s_1 old-s_0)" "(begin" "(let-values(((srcloc_7)(syntax-srcloc old-s_0)))" "(if srcloc_7" -"(let-values(((the-struct_65) new-s_2))" -"(if(syntax?$1 the-struct_65)" -"(let-values(((srcloc262_0) srcloc_7))" +"(let-values(((the-struct_64) new-s_1))" +"(if(syntax?$1 the-struct_64)" +"(let-values(((srcloc260_0) srcloc_7))" "(syntax1.1" -"(syntax-content the-struct_65)" -"(syntax-scopes the-struct_65)" -"(syntax-shifted-multi-scopes the-struct_65)" -"(syntax-scope-propagations+tamper the-struct_65)" -"(syntax-mpi-shifts the-struct_65)" -" srcloc262_0" -"(syntax-props the-struct_65)" -"(syntax-inspector the-struct_65)))" -" (raise-argument-error 'struct-copy \"syntax?\" the-struct_65)))" -" new-s_2)))))" +"(syntax-content the-struct_64)" +"(syntax-scopes the-struct_64)" +"(syntax-shifted-multi-scopes the-struct_64)" +"(syntax-scope-propagations+tamper the-struct_64)" +"(syntax-mpi-shifts the-struct_64)" +" srcloc260_0" +"(syntax-props the-struct_64)" +"(syntax-inspector the-struct_64)))" +" (raise-argument-error 'struct-copy \"syntax?\" the-struct_64)))" +" new-s_1)))))" "(define-values" "(stop-ids->all-stop-ids)" -"(lambda(stop-ids_0 phase_45)" +"(lambda(stop-ids_0 phase_44)" "(begin" "(if(null? stop-ids_0)" "(let-values() stop-ids_0)" "(let-values()" -"(let-values(((p-core-stx_0)(syntax-shift-phase-level$1 core-stx phase_45)))" +"(let-values(((p-core-stx_0)(syntax-shift-phase-level$1 core-stx phase_44)))" "(if(if(= 1(length stop-ids_0))" -"(free-identifier=?$1(car stop-ids_0)(datum->syntax$1 p-core-stx_0 'module*) phase_45 phase_45)" +"(free-identifier=?$1(car stop-ids_0)(datum->syntax$1 p-core-stx_0 'module*) phase_44 phase_44)" " #f)" "(let-values() stop-ids_0)" "(let-values()" @@ -40633,7 +40597,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_103)))" -"((letrec-values(((for-loop_115)" +"((letrec-values(((for-loop_117)" "(lambda(fold-var_91 lst_84)" "(begin" " 'for-loop" @@ -40651,9 +40615,9 @@ static const char *startup_source = " sym_71))" " fold-var_93))))" "(values fold-var_60)))))" -"(if(not #f)(for-loop_115 fold-var_92 rest_50) fold-var_92)))" +"(if(not #f)(for-loop_117 fold-var_92 rest_50) fold-var_92)))" " fold-var_91)))))" -" for-loop_115)" +" for-loop_117)" " null" " lst_103)))))))))))))" "(define-values" @@ -40675,14 +40639,14 @@ static const char *startup_source = " #%variable-reference))" "(define-values" "(module-expand-stop-ids)" -"(lambda(phase_110)" +"(lambda(phase_109)" "(begin" -"(let-values(((p-core-stx_1)(syntax-shift-phase-level$1 core-stx phase_110)))" +"(let-values(((p-core-stx_1)(syntax-shift-phase-level$1 core-stx phase_109)))" "(reverse$1" "(let-values(((lst_102) module-stop-syms))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_102)))" -"((letrec-values(((for-loop_114)" +"((letrec-values(((for-loop_116)" "(lambda(fold-var_239 lst_262)" "(begin" " 'for-loop" @@ -40697,9 +40661,9 @@ static const char *startup_source = "(datum->syntax$1 p-core-stx_1 sym_18))" " fold-var_222))))" "(values fold-var_223)))))" -"(if(not #f)(for-loop_114 fold-var_221 rest_161) fold-var_221)))" +"(if(not #f)(for-loop_116 fold-var_221 rest_161) fold-var_221)))" " fold-var_239)))))" -" for-loop_114)" +" for-loop_116)" " null" " lst_102))))))))" "(define-values" @@ -40716,7 +40680,7 @@ static const char *startup_source = " internal-definition-context-add-scope?" " internal-definition-context-env-mixins" " internal-definition-context-parent-ctx)" -"(let-values(((struct:_42 make-_42 ?_42 -ref_42 -set!_42)" +"(let-values(((struct:_41 make-_41 ?_41 -ref_41 -set!_41)" "(let-values()" "(let-values()" "(make-struct-type" @@ -40732,14 +40696,14 @@ static const char *startup_source = " #f" " 'internal-definition-context)))))" "(values" -" struct:_42" -" make-_42" -" ?_42" -"(make-struct-field-accessor -ref_42 0 'frame-id)" -"(make-struct-field-accessor -ref_42 1 'scope)" -"(make-struct-field-accessor -ref_42 2 'add-scope?)" -"(make-struct-field-accessor -ref_42 3 'env-mixins)" -"(make-struct-field-accessor -ref_42 4 'parent-ctx))))" +" struct:_41" +" make-_41" +" ?_41" +"(make-struct-field-accessor -ref_41 0 'frame-id)" +"(make-struct-field-accessor -ref_41 1 'scope)" +"(make-struct-field-accessor -ref_41 2 'add-scope?)" +"(make-struct-field-accessor -ref_41 3 'env-mixins)" +"(make-struct-field-accessor -ref_41 4 'parent-ctx))))" "(define-values" "(struct:env-mixin env-mixin2.1 env-mixin? env-mixin-id env-mixin-sym env-mixin-value env-mixin-cache)" "(let-values(((struct:_79 make-_79 ?_79 -ref_79 -set!_79)" @@ -40812,7 +40776,7 @@ static const char *startup_source = "(begin" " 'syntax-local-bind-syntaxes11" "(let-values(((ids_25) ids8_0))" -"(let-values(((s_424) s9_0))" +"(let-values(((s_423) s9_0))" "(let-values(((intdef_0) intdef10_0))" "(let-values(((extra-intdefs_0) extra-intdefs7_0))" "(let-values()" @@ -40828,14 +40792,14 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(if(let-values(((or-part_98)(not s_424)))" -"(if or-part_98 or-part_98(syntax?$1 s_424)))" +"(if(let-values(((or-part_98)(not s_423)))" +"(if or-part_98 or-part_98(syntax?$1 s_423)))" "(void)" "(let-values()" "(raise-argument-error" " 'syntax-local-bind-syntaxes" " \"(or/c syntax? #f)\"" -" s_424)))" +" s_423)))" "(values))))" "(let-values((()" "(begin" @@ -40882,12 +40846,12 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()(check-list lst_188)))" -"((letrec-values(((for-loop_119)" +"((letrec-values(((for-loop_121)" "(lambda(fold-var_235 lst_287)" "(begin" " 'for-loop" "(if(pair? lst_287)" -"(let-values(((id_71)" +"(let-values(((id_70)" "(unsafe-car" " lst_287))" "((rest_162)" @@ -40903,7 +40867,7 @@ static const char *startup_source = "(let-values(((pre-id_0)" "(remove-use-site-scopes" "(flip-introduction-scopes" -" id_71" +" id_70" " ctx_44)" " ctx_44)))" "(let-values(((temp49_1)" @@ -40929,12 +40893,12 @@ static const char *startup_source = "(values" " fold-var_242)))))" "(if(not #f)" -"(for-loop_119" +"(for-loop_121" " fold-var_240" " rest_162)" " fold-var_240)))" " fold-var_235)))))" -" for-loop_119)" +" for-loop_121)" " null" " lst_188))))))" "(let-values((()" @@ -40958,7 +40922,7 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()(check-list lst_167)))" -"((letrec-values(((for-loop_192)" +"((letrec-values(((for-loop_194)" "(lambda(fold-var_165 lst_168)" "(begin" " 'for-loop" @@ -40996,20 +40960,20 @@ static const char *startup_source = "(values" " fold-var_244)))))" "(if(not #f)" -"(for-loop_192" +"(for-loop_194" " fold-var_243" " rest_163)" " fold-var_243)))" " fold-var_165)))))" -" for-loop_192)" +" for-loop_194)" " null" " lst_167))))))" "(let-values(((vals_5)" -"(if s_424" +"(if s_423" "(let-values()" "(let-values(((input-s_0)" "(flip-introduction-scopes" -"(let-values(((s58_0) s_424)" +"(let-values(((s58_0) s_423)" "((all-intdefs59_0)" " all-intdefs_0))" "(add-intdef-scopes24.1" @@ -41026,7 +40990,7 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list lst_288)))" -"((letrec-values(((for-loop_253)" +"((letrec-values(((for-loop_255)" "(lambda(env_7" " lst_105)" "(begin" @@ -41052,12 +41016,12 @@ static const char *startup_source = " env_10)))))" "(if(not" " #f)" -"(for-loop_253" +"(for-loop_255" " env_8" " rest_164)" " env_8)))" " env_7)))))" -" for-loop_253)" +" for-loop_255)" "(expand-context-env ctx_44)" " lst_288)))))" "(let-values((()" @@ -41079,54 +41043,50 @@ static const char *startup_source = " input-s_0" " ids_25" "(let-values(((temp60_2)" -"(let-values(((v_196)" +"(let-values(((v_194)" " ctx_44))" -"(let-values(((the-struct_66)" -" v_196))" +"(let-values(((the-struct_65)" +" v_194))" "(if(expand-context/outer?" -" the-struct_66)" +" the-struct_65)" "(let-values(((env63_0)" " tmp-env_0)" "((inner64_0)" "(root-expand-context/outer-inner" -" v_196)))" +" v_194)))" "(expand-context/outer1.1" " inner64_0" -"(root-expand-context/outer-post-expansion-scope" -" the-struct_66)" -"(root-expand-context/outer-post-expansion-shifts" -" the-struct_66)" +"(root-expand-context/outer-post-expansion" +" the-struct_65)" "(root-expand-context/outer-use-site-scopes" -" the-struct_66)" +" the-struct_65)" "(root-expand-context/outer-frame-id" -" the-struct_66)" +" the-struct_65)" "(expand-context/outer-context" -" the-struct_66)" +" the-struct_65)" " env63_0" -"(expand-context/outer-post-expansion-scope-action" -" the-struct_66)" "(expand-context/outer-scopes" -" the-struct_66)" +" the-struct_65)" "(expand-context/outer-def-ctx-scopes" -" the-struct_66)" +" the-struct_65)" "(expand-context/outer-binding-layer" -" the-struct_66)" +" the-struct_65)" "(expand-context/outer-reference-records" -" the-struct_66)" +" the-struct_65)" "(expand-context/outer-only-immediate?" -" the-struct_66)" +" the-struct_65)" "(expand-context/outer-need-eventually-defined" -" the-struct_66)" +" the-struct_65)" "(expand-context/outer-current-introduction-scopes" -" the-struct_66)" +" the-struct_65)" "(expand-context/outer-current-use-scopes" -" the-struct_66)" +" the-struct_65)" "(expand-context/outer-name" -" the-struct_66)))" +" the-struct_65)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_66)))))" +" the-struct_65)))))" "((temp61_1)" " 'expression)" "((all-intdefs62_0)" @@ -41160,13 +41120,13 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()(check-list lst_289)))" -"((letrec-values(((for-loop_254)" +"((letrec-values(((for-loop_256)" "(lambda(fold-var_185" " lst_290)" "(begin" " 'for-loop" "(if(pair? lst_290)" -"(let-values(((id_72)" +"(let-values(((id_71)" "(unsafe-car" " lst_290))" "((rest_165)" @@ -41184,12 +41144,12 @@ static const char *startup_source = "(values" " fold-var_246)))))" "(if(not #f)" -"(for-loop_254" +"(for-loop_256" " fold-var_101" " rest_165)" " fold-var_101)))" " fold-var_185)))))" -" for-loop_254)" +" for-loop_256)" " null" " lst_289))))))))" "(let-values(((env-mixins_0)" @@ -41215,7 +41175,7 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()(check-list lst_292)))" -"((letrec-values(((for-loop_255)" +"((letrec-values(((for-loop_257)" "(lambda(fold-var_36" " lst_195" " lst_293" @@ -41239,7 +41199,7 @@ static const char *startup_source = "((rest_167)" "(unsafe-cdr" " lst_293))" -"((val_69)" +"((val_70)" "(unsafe-car" " lst_294))" "((rest_168)" @@ -41254,27 +41214,27 @@ static const char *startup_source = "(let-values()" "(begin" "(maybe-install-free=id-in-context!" -" val_69" +" val_70" " intdef-id_1" " phase_7" " ctx_44)" "(env-mixin2.1" " intdef-id_1" " sym_73" -" val_69" +" val_70" "(make-weak-hasheq))))" " fold-var_248))))" "(values" " fold-var_249)))))" "(if(not #f)" -"(for-loop_255" +"(for-loop_257" " fold-var_247" " rest_166" " rest_167" " rest_168)" " fold-var_247)))" " fold-var_36)))))" -" for-loop_255)" +" for-loop_257)" " null" " lst_291" " lst_51" @@ -41307,7 +41267,7 @@ static const char *startup_source = "(let-values(((lst_295)(unbox(internal-definition-context-env-mixins intdef_3))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_295)))" -"((letrec-values(((for-loop_256)" +"((letrec-values(((for-loop_258)" "(lambda(fold-var_193 lst_296)" "(begin" " 'for-loop" @@ -41322,9 +41282,9 @@ static const char *startup_source = "(let-values()(env-mixin-id env-mixin_0))" " fold-var_251))))" "(values fold-var_252)))))" -"(if(not #f)(for-loop_256 fold-var_250 rest_169) fold-var_250)))" +"(if(not #f)(for-loop_258 fold-var_250 rest_169) fold-var_250)))" " fold-var_193)))))" -" for-loop_256)" +" for-loop_258)" " null" " lst_295))))))))" "(define-values" @@ -41334,7 +41294,7 @@ static const char *startup_source = "(begin" " 'internal-definition-context-introduce16" "(let-values(((intdef_4) intdef14_0))" -"(let-values(((s_425) s15_0))" +"(let-values(((s_424) s15_0))" "(let-values(((mode_13) mode13_0))" "(let-values()" "(begin" @@ -41345,11 +41305,11 @@ static const char *startup_source = " 'internal-definition-context-introduce" " \"internal-definition-context?\"" " intdef_4)))" -"(if(syntax?$1 s_425)" +"(if(syntax?$1 s_424)" "(void)" "(let-values()" -" (raise-argument-error 'internal-definition-context-introduce \"syntax?\" s_425)))" -"(let-values(((s65_0) s_425)" +" (raise-argument-error 'internal-definition-context-introduce \"syntax?\" s_424)))" +"(let-values(((s65_0) s_424)" "((intdef66_0) intdef_4)" "((temp67_1) #t)" "((temp68_1)" @@ -41383,13 +41343,13 @@ static const char *startup_source = "(void)))))" "(define-values" "(1/identifier-remove-from-definition-context)" -"(lambda(id_73 intdef_8)" +"(lambda(id_72 intdef_8)" "(begin" " 'identifier-remove-from-definition-context" "(begin" -"(if(identifier? id_73)" +"(if(identifier? id_72)" "(void)" -" (let-values () (raise-argument-error 'identifier-remove-from-definition-context \"identifier?\" id_73)))" +" (let-values () (raise-argument-error 'identifier-remove-from-definition-context \"identifier?\" id_72)))" "(if(let-values(((or-part_207)(1/internal-definition-context? intdef_8)))" "(if or-part_207 or-part_207(if(list? intdef_8)(andmap2 1/internal-definition-context? intdef_8) #f)))" "(void)" @@ -41398,43 +41358,43 @@ static const char *startup_source = " 'identifier-remove-from-definition-context" " \"(or/c internal-definition-context? (listof internal-definition-context?))\"" " intdef_8)))" -"(let-values(((x_75)" +"(let-values(((x_76)" "(let-values(((a_46) intdef_8))" "(if(list? a_46)" "(let-values()(reverse$1 a_46))" "(if(not a_46)(let-values() null)(let-values()(list a_46)))))))" "(begin" " #t" -"((letrec-values(((for-loop_257)" -"(lambda(id_74 a_47)" +"((letrec-values(((for-loop_259)" +"(lambda(id_73 a_47)" "(begin" " 'for-loop" "(if(pair? a_47)" "(let-values(((intdef_9)(car a_47)))" -"(let-values(((id_75)" -"(let-values(((id_76) id_74))" -"(let-values(((id_77)" +"(let-values(((id_74)" +"(let-values(((id_75) id_73))" +"(let-values(((id_76)" "(let-values()" "(1/internal-definition-context-introduce" " intdef_9" -" id_76" +" id_75" " 'remove))))" -"(values id_77)))))" -"(if(not #f)(for-loop_257 id_75(cdr a_47)) id_75)))" -" id_74)))))" -" for-loop_257)" -" id_73" -" x_75)))))))" +"(values id_76)))))" +"(if(not #f)(for-loop_259 id_74(cdr a_47)) id_74)))" +" id_73)))))" +" for-loop_259)" +" id_72" +" x_76)))))))" "(define-values" "(intdefs?)" -"(lambda(x_76)" +"(lambda(x_77)" "(begin" -"(let-values(((or-part_279)(1/internal-definition-context? x_76)))" -"(if or-part_279 or-part_279(if(list? x_76)(andmap2 1/internal-definition-context? x_76) #f))))))" +"(let-values(((or-part_277)(1/internal-definition-context? x_77)))" +"(if or-part_277 or-part_277(if(list? x_77)(andmap2 1/internal-definition-context? x_77) #f))))))" " (define-values (intdefs?-string) \"(or/c internal-definition-context? (listof internal-definition-context?))\")" "(define-values" "(intdefs-or-false?)" -"(lambda(x_77)(begin(let-values(((or-part_280)(not x_77)))(if or-part_280 or-part_280(intdefs? x_77))))))" +"(lambda(x_78)(begin(let-values(((or-part_278)(not x_78)))(if or-part_278 or-part_278(intdefs? x_78))))))" "(define-values" "(intdefs-or-false?-string)" " \"(or/c internal-definition-context? (listof internal-definition-context?) #f)\")" @@ -41442,14 +41402,14 @@ static const char *startup_source = "(add-intdef-bindings)" "(lambda(env_11 intdefs_0)" "(begin" -"(let-values(((x_78)" +"(let-values(((x_79)" "(let-values(((a_48) intdefs_0))" "(if(list? a_48)" "(let-values()(reverse$1 a_48))" "(if(not a_48)(let-values() null)(let-values()(list a_48)))))))" "(begin" " #t" -"((letrec-values(((for-loop_258)" +"((letrec-values(((for-loop_260)" "(lambda(env_12 a_49)" "(begin" " 'for-loop" @@ -41512,11 +41472,11 @@ static const char *startup_source = " parent-env_0" " env-mixins_1)))))))" "(values env_15)))))" -"(if(not #f)(for-loop_258 env_13(cdr a_49)) env_13)))" +"(if(not #f)(for-loop_260 env_13(cdr a_49)) env_13)))" " env_12)))))" -" for-loop_258)" +" for-loop_260)" " env_11" -" x_78))))))" +" x_79))))))" "(define-values" "(add-intdef-scopes24.1)" "(lambda(action19_0 always?18_0 s22_0 intdefs23_0)" @@ -41527,40 +41487,40 @@ static const char *startup_source = "(let-values(((always?_0) always?18_0))" "(let-values(((action_0)(if(eq? action19_0 unsafe-undefined) add-scope action19_0)))" "(let-values()" -"(let-values(((x_79)" +"(let-values(((x_80)" "(let-values(((a_50) intdefs_1))" "(if(list? a_50)" "(let-values()(reverse$1 a_50))" "(if(not a_50)(let-values() null)(let-values()(list a_50)))))))" "(begin" " #t" -"((letrec-values(((for-loop_259)" -"(lambda(s_426 a_51)" +"((letrec-values(((for-loop_261)" +"(lambda(s_425 a_51)" "(begin" " 'for-loop" "(if(pair? a_51)" "(let-values(((intdef_11)(car a_51)))" "(let-values(((s_323)" -"(let-values(((s_71) s_426))" -"(if(let-values(((or-part_281) always?_0))" -"(if or-part_281" -" or-part_281" +"(let-values(((s_71) s_425))" +"(if(let-values(((or-part_279) always?_0))" +"(if or-part_279" +" or-part_279" "(internal-definition-context-add-scope?" " intdef_11)))" -"(let-values(((s_427) s_71))" -"(let-values(((s_428)" +"(let-values(((s_426) s_71))" +"(let-values(((s_427)" "(let-values()" "(action_0" -" s_427" +" s_426" "(internal-definition-context-scope" " intdef_11)))))" -"(values s_428)))" +"(values s_427)))" " s_71))))" -"(if(not #f)(for-loop_259 s_323(cdr a_51)) s_323)))" -" s_426)))))" -" for-loop_259)" +"(if(not #f)(for-loop_261 s_323(cdr a_51)) s_323)))" +" s_425)))))" +" for-loop_261)" " s_39" -" x_79)))))))))))" +" x_80)))))))))))" "(define-values" "(make-local-expand-context42.1)" "(lambda(context27_0" @@ -41575,7 +41535,7 @@ static const char *startup_source = " 'make-local-expand-context42" "(let-values(((ctx_45) ctx41_0))" "(let-values(((context_9) context27_0))" -"(let-values(((phase_111)(if(eq? phase28_1 unsafe-undefined)(expand-context-phase ctx_45) phase28_1)))" +"(let-values(((phase_110)(if(eq? phase28_1 unsafe-undefined)(expand-context-phase ctx_45) phase28_1)))" "(let-values(((intdefs_2) intdefs29_0))" "(let-values(((stop-ids_1) stop-ids30_0))" "(let-values(((to-parsed-ok?_0) to-parsed-ok?31_0))" @@ -41583,36 +41543,33 @@ static const char *startup_source = "(let-values(((keep-#%expression?_1) keep-#%expression?33_0))" "(let-values()" "(let-values(((same-kind?_0)" -"(let-values(((or-part_182)(eq? context_9(expand-context-context ctx_45))))" -"(if or-part_182" -" or-part_182" +"(let-values(((or-part_280)(eq? context_9(expand-context-context ctx_45))))" +"(if or-part_280" +" or-part_280" "(if(list? context_9)(list?(expand-context-context ctx_45)) #f)))))" "(let-values(((all-stop-ids_0)" -"(if stop-ids_1(stop-ids->all-stop-ids stop-ids_1 phase_111) #f)))" +"(if stop-ids_1(stop-ids->all-stop-ids stop-ids_1 phase_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(((placeholder-sc_0)" -"(if intdefs_2(if(not(null? intdefs_2))(new-scope 'macro) #f) #f)))" -"(let-values(((v_197) ctx_45))" -"(let-values(((the-struct_67) v_197))" -"(if(expand-context/outer? the-struct_67)" +"(let-values(((v_195) ctx_45))" +"(let-values(((the-struct_66) v_195))" +"(if(expand-context/outer? the-struct_66)" "(let-values(((context69_0) context_9)" -"((env70_0)" -"(add-intdef-bindings(expand-context-env ctx_45) intdefs_2))" +"((env70_0)(add-intdef-bindings(expand-context-env ctx_45) intdefs_2))" "((use-site-scopes71_0)" -"(if(let-values(((or-part_282)(eq? context_9 'module)))" -"(if or-part_282" -" or-part_282" -"(let-values(((or-part_283)(eq? context_9 'module-begin)))" -"(if or-part_283 or-part_283(list? context_9)))))" -"(let-values(((or-part_133)" +"(if(let-values(((or-part_281)(eq? context_9 'module)))" +"(if or-part_281" +" or-part_281" +"(let-values(((or-part_282)(eq? context_9 'module-begin)))" +"(if or-part_282 or-part_282(list? context_9)))))" +"(let-values(((or-part_283)" "(root-expand-context-use-site-scopes ctx_45)))" -"(if or-part_133 or-part_133(box null)))" +"(if or-part_283 or-part_283(box null)))" " #f))" "((frame-id72_0)" -"(let-values(((x_80)" +"(let-values(((x_81)" "(let-values(((a_52) intdefs_2))" "(if(list? a_52)" "(let-values()(reverse$1 a_52))" @@ -41621,7 +41578,7 @@ static const char *startup_source = "(let-values()(list a_52)))))))" "(begin" " #t" -"((letrec-values(((for-loop_260)" +"((letrec-values(((for-loop_262)" "(lambda(frame-id_9 a_53)" "(begin" " 'for-loop" @@ -41654,133 +41611,123 @@ static const char *startup_source = "(values" " frame-id_12)))))" "(if(not #f)" -"(for-loop_260" +"(for-loop_262" " frame-id_10" "(cdr a_53))" " frame-id_10)))" " frame-id_9)))))" -" for-loop_260)" +" for-loop_262)" "(root-expand-context-frame-id ctx_45)" -" x_80))))" -"((post-expansion-scope73_0)" -"(let-values(((or-part_285)" +" x_81))))" +"((post-expansion73_0)" +"(let-values(((pe_2)" "(if same-kind?_0" -"(if(memq" +"(if(let-values(((or-part_285)(pair? context_9)))" +"(if or-part_285" +" or-part_285" +"(memq" " context_9" -" '(module module-begin top-level))" -"(root-expand-context-post-expansion-scope ctx_45)" +" '(module module-begin top-level))))" +"(root-expand-context-post-expansion ctx_45)" " #f)" " #f)))" -"(if or-part_285 or-part_285 placeholder-sc_0)))" -"((post-expansion-shifts74_0)" -"(if(if same-kind?_0(eq? context_9 'top-level) #f)" -"(root-expand-context-post-expansion-shifts ctx_45)" -" null))" -"((post-expansion-scope-action75_0)" -"(let-values(((act_0)" -"(expand-context-post-expansion-scope-action ctx_45)))" "(if(if intdefs_2(not(null? intdefs_2)) #f)" -"(lambda(s_119 sc_34)" +"(let-values()" +"(lambda(s_116)" "(begin" -" 'post-expansion-scope-action75" -"(let-values(((s2_8)" -"(if(eq? sc_34 placeholder-sc_0)" -" s_119" -"(act_0 s_119 sc_34))))" -"(let-values(((s281_1) s2_8)((intdefs82_0) intdefs_2))" +" 'post-expansion73" +"(let-values(((temp79_0)(apply-post-expansion pe_2 s_116))" +"((intdefs80_0) intdefs_2))" "(add-intdef-scopes24.1" " unsafe-undefined" " #f" -" s281_1" -" intdefs82_0)))))" -" act_0)))" -"((scopes76_0)" -"(append def-ctx-scopes_5(expand-context-scopes ctx_45)))" -"((only-immediate?77_0)(not stop-ids_1))" -"((current-introduction-scopes78_0) null)" -"((need-eventually-defined79_0)" -"(let-values(((ht_134)" +" temp79_0" +" intdefs80_0)))))" +"(let-values() pe_2))))" +"((scopes74_0)(append def-ctx-scopes_5(expand-context-scopes ctx_45)))" +"((only-immediate?75_0)(not stop-ids_1))" +"((current-introduction-scopes76_0) null)" +"((need-eventually-defined77_0)" +"(let-values(((ht_135)" "(expand-context-need-eventually-defined ctx_45)))" "(if track-to-be-defined?_0" -"(let-values() ht_134)" -"(if ht_134(let-values()(make-hasheqv))(let-values() #f)))))" -"((inner80_0)" -"(let-values(((the-struct_2)" -"(root-expand-context/outer-inner v_197)))" -"(if(expand-context/inner? the-struct_2)" -"(let-values(((to-parsed?83_0)" +"(let-values() ht_135)" +"(if ht_135(let-values()(make-hasheqv))(let-values() #f)))))" +"((inner78_0)" +"(let-values(((the-struct_67)" +"(root-expand-context/outer-inner v_195)))" +"(if(expand-context/inner? the-struct_67)" +"(let-values(((to-parsed?81_0)" "(if to-parsed-ok?_0" "(expand-context-to-parsed? ctx_45)" " #f))" -"((just-once?84_0) #f)" -"((in-local-expand?85_0) #t)" -"((keep-#%expression?86_0) keep-#%expression?_1)" -"((stops87_0)" +"((just-once?82_0) #f)" +"((in-local-expand?83_0) #t)" +"((keep-#%expression?84_0) keep-#%expression?_1)" +"((stops85_0)" "(free-id-set" -" phase_111" +" phase_110" "(let-values(((or-part_286) all-stop-ids_0))" "(if or-part_286 or-part_286 null)))))" "(expand-context/inner2.1" -"(root-expand-context/inner-self-mpi the-struct_2)" -"(root-expand-context/inner-module-scopes the-struct_2)" -"(root-expand-context/inner-top-level-bind-scope the-struct_2)" -"(root-expand-context/inner-all-scopes-stx the-struct_2)" -"(root-expand-context/inner-defined-syms the-struct_2)" -"(root-expand-context/inner-counter the-struct_2)" -"(root-expand-context/inner-lift-key the-struct_2)" -" to-parsed?83_0" -"(expand-context/inner-phase the-struct_2)" -"(expand-context/inner-namespace the-struct_2)" -" just-once?84_0" -"(expand-context/inner-module-begin-k the-struct_2)" -"(expand-context/inner-allow-unbound? the-struct_2)" -" in-local-expand?85_0" -" keep-#%expression?86_0" -" stops87_0" -"(expand-context/inner-declared-submodule-names the-struct_2)" -"(expand-context/inner-lifts the-struct_2)" -"(expand-context/inner-lift-envs the-struct_2)" -"(expand-context/inner-module-lifts the-struct_2)" -"(expand-context/inner-require-lifts the-struct_2)" -"(expand-context/inner-to-module-lifts the-struct_2)" -"(expand-context/inner-requires+provides the-struct_2)" -"(expand-context/inner-observer the-struct_2)" -"(expand-context/inner-for-serializable? the-struct_2)" +"(root-expand-context/inner-self-mpi the-struct_67)" +"(root-expand-context/inner-module-scopes the-struct_67)" +"(root-expand-context/inner-top-level-bind-scope the-struct_67)" +"(root-expand-context/inner-all-scopes-stx the-struct_67)" +"(root-expand-context/inner-defined-syms the-struct_67)" +"(root-expand-context/inner-counter the-struct_67)" +"(root-expand-context/inner-lift-key the-struct_67)" +" to-parsed?81_0" +"(expand-context/inner-phase the-struct_67)" +"(expand-context/inner-namespace the-struct_67)" +" just-once?82_0" +"(expand-context/inner-module-begin-k the-struct_67)" +"(expand-context/inner-allow-unbound? the-struct_67)" +" in-local-expand?83_0" +" keep-#%expression?84_0" +" stops85_0" +"(expand-context/inner-declared-submodule-names the-struct_67)" +"(expand-context/inner-lifts the-struct_67)" +"(expand-context/inner-lift-envs the-struct_67)" +"(expand-context/inner-module-lifts the-struct_67)" +"(expand-context/inner-require-lifts the-struct_67)" +"(expand-context/inner-to-module-lifts the-struct_67)" +"(expand-context/inner-requires+provides the-struct_67)" +"(expand-context/inner-observer the-struct_67)" +"(expand-context/inner-for-serializable? the-struct_67)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_2)))" +" the-struct_67)))" "(raise-argument-error" " 'struct-copy" -" \"expand-context/inner?\"" -" the-struct_2)))))" +" \"expand-context/inner?\"" +" the-struct_67)))))" "(expand-context/outer1.1" -" inner80_0" -" post-expansion-scope73_0" -" post-expansion-shifts74_0" +" inner78_0" +" post-expansion73_0" " use-site-scopes71_0" " frame-id72_0" " context69_0" " env70_0" -" post-expansion-scope-action75_0" -" scopes76_0" -"(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?77_0" -" need-eventually-defined79_0" -" current-introduction-scopes78_0" -"(expand-context/outer-current-use-scopes the-struct_67)" -"(expand-context/outer-name the-struct_67)))" +" scopes74_0" +"(expand-context/outer-def-ctx-scopes the-struct_66)" +"(expand-context/outer-binding-layer the-struct_66)" +"(expand-context/outer-reference-records the-struct_66)" +" only-immediate?75_0" +" need-eventually-defined77_0" +" current-introduction-scopes76_0" +"(expand-context/outer-current-use-scopes the-struct_66)" +"(expand-context/outer-name the-struct_66)))" "(raise-argument-error" " 'struct-copy" -" \"expand-context/outer?\"" -" the-struct_67))))))))))))))))))))" +" \"expand-context/outer?\"" +" the-struct_66)))))))))))))))))))" "(define-values" "(flip-introduction-scopes)" -"(lambda(s_429 ctx_46)(begin(flip-scopes s_429(expand-context-current-introduction-scopes ctx_46)))))" +"(lambda(s_428 ctx_46)(begin(flip-scopes s_428(expand-context-current-introduction-scopes ctx_46)))))" "(define-values" "(flip-introduction-and-use-scopes)" -"(lambda(s_130 ctx_47)" -"(begin(flip-scopes(flip-introduction-scopes s_130 ctx_47)(expand-context-current-use-scopes ctx_47)))))" +"(lambda(s_429 ctx_47)" +"(begin(flip-scopes(flip-introduction-scopes s_429 ctx_47)(expand-context-current-use-scopes ctx_47)))))" "(define-values" "(1/syntax-transforming?)" "(lambda()" @@ -41835,22 +41782,22 @@ static const char *startup_source = "(flip-introduction-and-use-scopes s_430 ctx_9))))))))" "(define-values" "(1/syntax-local-identifier-as-binding)" -"(lambda(id_78)" +"(lambda(id_77)" "(begin" " 'syntax-local-identifier-as-binding" "(let-values()" "(let-values()" "(let-values((()" "(begin" -"(if(identifier? id_78)" +"(if(identifier? id_77)" "(void)" "(let-values()" -" (raise-argument-error 'syntax-local-identifier-as-binding \"identifier?\" id_78)))" +" (raise-argument-error 'syntax-local-identifier-as-binding \"identifier?\" id_77)))" "(values))))" "(let-values(((ctx_52)" "(let-values(((temp63_2) 'syntax-local-identifier-as-binding))" "(get-current-expand-context16.1 #f temp63_2))))" -"(remove-use-site-scopes id_78 ctx_52))))))))" +"(remove-use-site-scopes id_77 ctx_52))))))))" "(define-values" "(1/syntax-local-phase-level)" "(lambda()" @@ -41867,8 +41814,8 @@ static const char *startup_source = "(let-values()" "(let-values(((ctx_54)" "(let-values(((who66_0) 'syntax-local-name))(get-current-expand-context16.1 #f who66_0))))" -"(let-values(((id_79)(expand-context-name ctx_54)))" -"(if id_79(datum->syntax$1 #f(syntax-e$1 id_79) id_79) #f))))))))" +"(let-values(((id_78)(expand-context-name ctx_54)))" +"(if id_78(datum->syntax$1 #f(syntax-e$1 id_78) id_78) #f))))))))" "(define-values" "(1/make-syntax-introducer)" "(let-values(((make-syntax-introducer2_0)" @@ -41894,7 +41841,7 @@ static const char *startup_source = "(do-make-syntax-introducer(make-interned-scope sym-key_0))))))))" "(define-values" "(do-make-syntax-introducer)" -"(lambda(sc_35)" +"(lambda(sc_34)" "(begin" "(let-values(((core70_0)" "(lambda(s69_0 mode68_0)" @@ -41909,11 +41856,11 @@ static const char *startup_source = " (let-values () (raise-argument-error 'syntax-introducer \"syntax?\" s_431)))" "(let-values(((tmp_33) mode_14))" "(if(equal? tmp_33 'add)" -"(let-values()(add-scope s_431 sc_35))" +"(let-values()(add-scope s_431 sc_34))" "(if(equal? tmp_33 'remove)" -"(let-values()(remove-scope s_431 sc_35))" +"(let-values()(remove-scope s_431 sc_34))" "(if(equal? tmp_33 'flip)" -"(let-values()(flip-scope s_431 sc_35))" +"(let-values()(flip-scope s_431 sc_34))" "(let-values()" "(raise-argument-error" " 'syntax-introducer" @@ -42044,26 +41991,26 @@ static const char *startup_source = "(begin" " 'do-syntax-local-value15" "(let-values(((who_19) who11_0))" -"(let-values(((id_80) id12_0))" +"(let-values(((id_79) id12_0))" "(let-values(((intdefs_3) intdefs13_0))" "(let-values(((failure-thunk_0) failure-thunk14_0))" "(let-values(((immediate?_1) immediate?9_0))" "(let-values()" "(let-values((()" "(begin" -"(if(identifier? id_80)" +"(if(identifier? id_79)" "(void)" -" (let-values () (raise-argument-error who_19 \"identifier?\" id_80)))" +" (let-values () (raise-argument-error who_19 \"identifier?\" id_79)))" "(values))))" "(let-values((()" "(begin" -"(if((lambda(x_81)" -"(let-values(((or-part_210)(not x_81)))" +"(if((lambda(x_82)" +"(let-values(((or-part_210)(not x_82)))" "(if or-part_210" " or-part_210" "((lambda(p_50)" "(if(procedure? p_50)(procedure-arity-includes? p_50 0) #f))" -" x_81))))" +" x_82))))" " failure-thunk_0)" "(void)" "(let-values()" @@ -42083,23 +42030,21 @@ static const char *startup_source = "(let-values(((who81_0) who_19))(get-current-expand-context16.1 #f who81_0))))" "(let-values(((ctx_11)" "(if intdefs_3" -"(let-values(((v_198) current-ctx_0))" -"(let-values(((the-struct_68) v_198))" +"(let-values(((v_196) current-ctx_0))" +"(let-values(((the-struct_68) v_196))" "(if(expand-context/outer? the-struct_68)" "(let-values(((env82_0)" "(add-intdef-bindings" "(expand-context-env current-ctx_0)" " intdefs_3))" -"((inner83_0)(root-expand-context/outer-inner v_198)))" +"((inner83_0)(root-expand-context/outer-inner v_196)))" "(expand-context/outer1.1" " inner83_0" -"(root-expand-context/outer-post-expansion-scope the-struct_68)" -"(root-expand-context/outer-post-expansion-shifts the-struct_68)" +"(root-expand-context/outer-post-expansion the-struct_68)" "(root-expand-context/outer-use-site-scopes the-struct_68)" "(root-expand-context/outer-frame-id the-struct_68)" "(expand-context/outer-context the-struct_68)" " env82_0" -"(expand-context/outer-post-expansion-scope-action the-struct_68)" "(expand-context/outer-scopes the-struct_68)" "(expand-context/outer-def-ctx-scopes the-struct_68)" "(expand-context/outer-binding-layer the-struct_68)" @@ -42119,10 +42064,10 @@ static const char *startup_source = "(let-values(((obs_34)(expand-context-observer ctx_11)))" "(if obs_34" "(let-values()" -"(let-values()(call-expand-observe obs_34 'local-value id_80)))" +"(let-values()(call-expand-observe obs_34 'local-value id_79)))" "(void)))" "(values))))" -"(let-values(((phase_73)(expand-context-phase ctx_11)))" +"(let-values(((phase_72)(expand-context-phase ctx_11)))" "((letrec-values(((loop_98)" "(lambda(id_62)" "(begin" @@ -42130,7 +42075,7 @@ static const char *startup_source = "(let-values(((b_83)" "(if immediate?_1" "(let-values(((id84_0) id_62)" -"((phase85_0) phase_73)" +"((phase85_0) phase_72)" "((temp86_0) #t))" "(resolve+shift28.1" " #f" @@ -42142,7 +42087,7 @@ static const char *startup_source = " phase85_0))" "(resolve+shift/extra-inspector" " id_62" -" phase_73" +" phase_72" "(expand-context-namespace ctx_11)))))" "(begin" "(let-values(((obs_35)(expand-context-observer ctx_11)))" @@ -42228,40 +42173,40 @@ static const char *startup_source = "(let-values()(values v_39 #f))" "(let-values() v_39)))))))))))))))" " loop_98)" -"(flip-introduction-scopes id_80 ctx_11))))))))))))))))))" +"(flip-introduction-scopes id_79 ctx_11))))))))))))))))))" "(define-values" "(1/syntax-local-value)" "(let-values(((syntax-local-value21_0)" "(lambda(id20_0 failure-thunk18_0 intdef19_0)" "(begin" " 'syntax-local-value21" -"(let-values(((id_81) id20_0))" +"(let-values(((id_80) id20_0))" "(let-values(((failure-thunk_1) failure-thunk18_0))" "(let-values(((intdef_13) intdef19_0))" "(let-values()" "(let-values(((temp91_1) 'syntax-local-value)" "((temp92_1) #f)" -"((id93_1) id_81)" +"((id93_1) id_80)" "((intdef94_0) intdef_13)" "((failure-thunk95_0) failure-thunk_1))" "(do-syntax-local-value15.1 temp92_1 temp91_1 id93_1 intdef94_0 failure-thunk95_0))))))))))" "(case-lambda" -"((id_82)(begin 'syntax-local-value(syntax-local-value21_0 id_82 #f #f)))" +"((id_81)(begin 'syntax-local-value(syntax-local-value21_0 id_81 #f #f)))" "((id_63 failure-thunk_2 intdef19_1)(syntax-local-value21_0 id_63 failure-thunk_2 intdef19_1))" -"((id_83 failure-thunk18_1)(syntax-local-value21_0 id_83 failure-thunk18_1 #f)))))" +"((id_82 failure-thunk18_1)(syntax-local-value21_0 id_82 failure-thunk18_1 #f)))))" "(define-values" "(1/syntax-local-value/immediate)" "(let-values(((syntax-local-value/immediate26_0)" "(lambda(id25_2 failure-thunk23_0 intdef24_0)" "(begin" " 'syntax-local-value/immediate26" -"(let-values(((id_72) id25_2))" +"(let-values(((id_71) id25_2))" "(let-values(((failure-thunk_3) failure-thunk23_0))" "(let-values(((intdef_14) intdef24_0))" "(let-values()" "(let-values(((temp96_1) 'syntax-local-value/immediate)" "((temp97_1) #t)" -"((id98_0) id_72)" +"((id98_0) id_71)" "((intdef99_0) intdef_14)" "((failure-thunk100_0) failure-thunk_3))" "(do-syntax-local-value15.1" @@ -42271,7 +42216,7 @@ static const char *startup_source = " intdef99_0" " failure-thunk100_0))))))))))" "(case-lambda" -"((id_8)(begin 'syntax-local-value/immediate(syntax-local-value/immediate26_0 id_8 #f #f)))" +"((id_83)(begin 'syntax-local-value/immediate(syntax-local-value/immediate26_0 id_83 #f #f)))" "((id_84 failure-thunk_4 intdef24_1)(syntax-local-value/immediate26_0 id_84 failure-thunk_4 intdef24_1))" "((id_85 failure-thunk23_1)(syntax-local-value/immediate26_0 id_85 failure-thunk23_1 #f)))))" "(define-values" @@ -42302,7 +42247,7 @@ 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_219)" +"((letrec-values(((for-loop_221)" "(lambda(fold-var_253 pos_106)" "(begin" " 'for-loop" @@ -42337,10 +42282,10 @@ static const char *startup_source = " fold-var_255))))" "(values fold-var_256)))))" "(if(not #f)" -"(for-loop_219 fold-var_254(+ pos_106 inc_23))" +"(for-loop_221 fold-var_254(+ pos_106 inc_23))" " fold-var_254)))" " fold-var_253)))))" -" for-loop_219)" +" for-loop_221)" " null" " start_39))))))" "(begin" @@ -42394,9 +42339,9 @@ static const char *startup_source = "(let-values(((ctx_57)" "(let-values(((who107_0) 'syntax-local-lift-module))" "(get-current-expand-context16.1 #f who107_0))))" -"(let-values(((phase_103)(expand-context-phase ctx_57)))" +"(let-values(((phase_102)(expand-context-phase ctx_57)))" "(begin" -"(let-values(((tmp_30)(core-form-sym s_64 phase_103)))" +"(let-values(((tmp_30)(core-form-sym s_64 phase_102)))" "(if(if(equal? tmp_30 'module) #t(equal? tmp_30 'module*))" "(let-values()" "(let-values(((lifts_9)(expand-context-module-lifts ctx_57)))" @@ -42409,7 +42354,7 @@ static const char *startup_source = " \"not currently transforming within a module declaration or top level\"" " \"form to lift\"" " s_64)))" -"(add-lifted-module! lifts_9(flip-introduction-scopes s_64 ctx_57) phase_103))))" +"(add-lifted-module! lifts_9(flip-introduction-scopes s_64 ctx_57) phase_102))))" "(let-values()" " (raise-arguments-error 'syntax-local-lift-module \"not a module form\" \"given form\" s_64))))" "(let-values(((obs_40)(expand-context-observer ctx_57)))" @@ -42441,11 +42386,11 @@ static const char *startup_source = "(let-values(((get-wrt-phase_0) get-wrt-phase33_0))" "(let-values(((pre-wrap_0)" "(if(eq? pre-wrap34_0 unsafe-undefined)" -"(lambda(s_433 phase_112 lift-ctx_1)(begin 'pre-wrap s_433))" +"(lambda(s_433 phase_111 lift-ctx_1)(begin 'pre-wrap s_433))" " pre-wrap34_0)))" "(let-values(((shift-wrap_0)" "(if(eq? shift-wrap35_0 unsafe-undefined)" -"(lambda(s_210 phase_113 lift-ctx_2)(begin 'shift-wrap s_210))" +"(lambda(s_210 phase_112 lift-ctx_2)(begin 'shift-wrap s_210))" " shift-wrap35_0)))" "(let-values(((post-wrap_0)" "(if(eq? post-wrap36_0 unsafe-undefined)" @@ -42474,13 +42419,13 @@ static const char *startup_source = " \"form to lift\"" " s_432)))" "(values))))" -"(let-values(((phase_91)(expand-context-phase ctx_58)))" +"(let-values(((phase_90)(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_432 ctx_58) s_432)))" -"(let-values(((pre-s_0)(pre-wrap_0 added-s_0 phase_91 lift-ctx_4)))" +"(let-values(((pre-s_0)(pre-wrap_0 added-s_0 phase_90 lift-ctx_4)))" "(let-values(((shift-s_0)" -"(let-values(((start_40) phase_91)" +"(let-values(((start_40) phase_90)" "((end_30) wrt-phase_1)" "((inc_24) -1))" "(begin" @@ -42489,32 +42434,32 @@ static const char *startup_source = "(void)" "(let-values()" "(check-range start_40 end_30 inc_24)))" -"((letrec-values(((for-loop_129)" +"((letrec-values(((for-loop_131)" "(lambda(s_434 pos_107)" "(begin" " 'for-loop" "(if(> pos_107 end_30)" -"(let-values(((phase_114)" +"(let-values(((phase_113)" " pos_107))" "(let-values(((s_321)" -"(let-values(((s_426)" +"(let-values(((s_425)" " s_434))" "(let-values(((s_435)" "(let-values()" "(shift-wrap_0" -" s_426" +" s_425" "(sub1" -" phase_114)" +" phase_113)" " lift-ctx_4))))" "(values" " s_435)))))" "(if(not #f)" -"(for-loop_129" +"(for-loop_131" " s_321" "(+ pos_107 inc_24))" " s_321)))" " s_434)))))" -" for-loop_129)" +" for-loop_131)" " pre-s_0" " start_40)))))" "(let-values(((post-s_1)" @@ -42529,7 +42474,7 @@ static const char *startup_source = " 'syntax-local-lift-require" "(let-values()" "(let-values()" -"(let-values(((sc_36)(new-scope 'lifted-require)))" +"(let-values(((sc_35)(new-scope 'lifted-require)))" "(let-values(((ctx_59 added-s_1)" "(let-values(((who110_0) 'syntax-local-lift-require)" "((temp111_0)(datum->syntax$1 #f s_218))" @@ -42545,11 +42490,11 @@ static const char *startup_source = "((require-lift-context-wrt-phase116_0) require-lift-context-wrt-phase)" "((add-lifted-require!117_0) add-lifted-require!)" "((temp118_0)" -"(lambda(s_110 phase_115 require-lift-ctx_0)" +"(lambda(s_110 phase_114 require-lift-ctx_0)" "(require-spec-shift-for-syntax s_110)))" "((temp119_0)" -"(lambda(s_436 phase_116 require-lift-ctx_1)" -"(wrap-form '#%require(add-scope s_436 sc_36) phase_116))))" +"(lambda(s_436 phase_115 require-lift-ctx_1)" +"(wrap-form '#%require(add-scope s_436 sc_35) phase_115))))" "(do-local-lift-to-module48.1" " add-lifted-require!117_0" " expand-context-require-lifts115_0" @@ -42568,7 +42513,7 @@ static const char *startup_source = "(expand-context-namespace ctx_59)" "(expand-context-phase ctx_59))" "(values))))" -"(let-values(((result-s_6)(add-scope use-s_1 sc_36)))" +"(let-values(((result-s_6)(add-scope use-s_1 sc_35)))" "(begin" "(let-values(((obs_41)(expand-context-observer ctx_59)))" "(if obs_41" @@ -42583,7 +42528,7 @@ static const char *startup_source = " 'syntax-local-lift-provide" "(let-values()" "(let-values()" -"(let-values(((ctx_4 result-s_7)" +"(let-values(((ctx_60 result-s_7)" "(let-values(((who121_0) 'syntax-local-lift-provide)" "((s122_1) s_161)" " ((temp123_0) \"not expanding in a module run-time body\")" @@ -42591,10 +42536,10 @@ static const char *startup_source = "((to-module-lift-context-wrt-phase125_0) to-module-lift-context-wrt-phase)" "((add-lifted-to-module-provide!126_0) add-lifted-to-module-provide!)" "((temp127_2)" -"(lambda(s_437 phase_117 to-module-lift-ctx_0)(wrap-form 'for-syntax s_437 #f)))" +"(lambda(s_437 phase_116 to-module-lift-ctx_0)(wrap-form 'for-syntax s_437 #f)))" "((temp128_2)" -"(lambda(s_116 phase_118 to-module-lift-ctx_1)" -"(wrap-form '#%provide s_116 phase_118))))" +"(lambda(s_116 phase_117 to-module-lift-ctx_1)" +"(wrap-form '#%provide s_116 phase_117))))" "(do-local-lift-to-module48.1" " add-lifted-to-module-provide!126_0" " expand-context-to-module-lifts124_0" @@ -42607,7 +42552,7 @@ static const char *startup_source = " temp127_2" " who121_0" " s122_1))))" -"(let-values(((obs_42)(expand-context-observer ctx_4)))" +"(let-values(((obs_42)(expand-context-observer ctx_60)))" "(if obs_42" "(let-values()(let-values()(call-expand-observe obs_42 'lift-provide result-s_7)))" "(void)))))))))" @@ -42618,7 +42563,7 @@ static const char *startup_source = " 'syntax-local-lift-module-end-declaration" "(let-values()" "(let-values()" -"(let-values(((ctx_60 also-s_0)" +"(let-values(((ctx_61 also-s_0)" "(let-values(((who130_0) 'syntax-local-lift-module-end-declaration)" "((s131_0) s_225)" "((temp132_1)" @@ -42627,13 +42572,13 @@ static const char *startup_source = "((temp134_1)(lambda(lift-ctx_5) 0))" "((add-lifted-to-module-end!135_0) add-lifted-to-module-end!)" "((temp136_0)" -"(lambda(orig-s_32 phase_119 to-module-lift-ctx_2)" +"(lambda(orig-s_32 phase_118 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_119)" +"(wrap-form '#%expression orig-s_32 phase_118)" " orig-s_32)))" "((temp137_1)" -"(lambda(s_438 phase_120 to-module-lift-ctx_3)" -"(wrap-form 'begin-for-syntax s_438 phase_120))))" +"(lambda(s_438 phase_119 to-module-lift-ctx_3)" +"(wrap-form 'begin-for-syntax s_438 phase_119))))" "(do-local-lift-to-module48.1" " add-lifted-to-module-end!135_0" " expand-context-to-module-lifts133_0" @@ -42646,17 +42591,17 @@ static const char *startup_source = " temp137_1" " who130_0" " s131_0))))" -"(let-values(((obs_43)(expand-context-observer ctx_60)))" +"(let-values(((obs_43)(expand-context-observer ctx_61)))" "(if obs_43" "(let-values()(let-values()(call-expand-observe obs_43 'lift-statement s_225)))" "(void)))))))))" "(define-values" "(wrap-form)" -"(lambda(sym_74 s_124 phase_121)" +"(lambda(sym_74 s_124 phase_120)" "(begin" "(datum->syntax$1" " #f" -"(list(datum->syntax$1(if phase_121(syntax-shift-phase-level$1 core-stx phase_121) #f) sym_74) s_124)))))" +"(list(datum->syntax$1(if phase_120(syntax-shift-phase-level$1 core-stx phase_120) #f) sym_74) s_124)))))" "(define-values" "(1/syntax-local-module-defined-identifiers)" "(lambda()" @@ -42673,10 +42618,10 @@ static const char *startup_source = " 'syntax-local-module-defined-identifiers" " \"not currently transforming module provides\")))" "(values))))" -"(let-values(((ctx_61)" +"(let-values(((ctx_62)" "(let-values(((temp139_0) 'syntax-local-module-defined-identifiers))" "(get-current-expand-context16.1 #f temp139_0))))" -"(requireds->phase-ht(extract-module-definitions(expand-context-requires+provides ctx_61))))))))))" +"(requireds->phase-ht(extract-module-definitions(expand-context-requires+provides ctx_62))))))))))" "(define-values" "(1/syntax-local-module-required-identifiers)" "(lambda(mod-path_8 phase-level_21)" @@ -42715,11 +42660,11 @@ static const char *startup_source = " 'syntax-local-module-required-identifiers" " \"not currently transforming module provides\")))" "(values))))" -"(let-values(((ctx_62)" +"(let-values(((ctx_63)" "(let-values(((temp141_1) 'syntax-local-module-required-identifiers))" "(get-current-expand-context16.1 #f temp141_1))))" -"(let-values(((requires+provides_5)(expand-context-requires+provides ctx_62)))" -"(let-values(((mpi_44)(if mod-path_8(module-path->mpi/context mod-path_8 ctx_62) #f)))" +"(let-values(((requires+provides_5)(expand-context-requires+provides ctx_63)))" +"(let-values(((mpi_44)(if mod-path_8(module-path->mpi/context mod-path_8 ctx_63) #f)))" "(let-values(((requireds_0)" "(extract-all-module-requires" " requires+provides_5" @@ -42727,36 +42672,36 @@ static const char *startup_source = "(if(eq? phase-level_21 #t) 'all phase-level_21))))" "(if requireds_0" "(reverse$1" -"(let-values(((ht_135)(requireds->phase-ht requireds_0)))" +"(let-values(((ht_136)(requireds->phase-ht requireds_0)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_135)))" -"((letrec-values(((for-loop_261)" +"(let-values()(check-in-hash ht_136)))" +"((letrec-values(((for-loop_263)" "(lambda(fold-var_257 i_161)" "(begin" " 'for-loop" "(if i_161" -"(let-values(((phase_122 ids_29)" -"(hash-iterate-key+value ht_135 i_161)))" +"(let-values(((phase_121 ids_29)" +"(hash-iterate-key+value ht_136 i_161)))" "(let-values(((fold-var_207)" "(let-values(((fold-var_258) fold-var_257))" "(let-values(((fold-var_259)" "(let-values()" "(cons" "(let-values()" -"(cons phase_122 ids_29))" +"(cons phase_121 ids_29))" " fold-var_258))))" "(values fold-var_259)))))" "(if(not #f)" -"(for-loop_261" +"(for-loop_263" " fold-var_207" -"(hash-iterate-next ht_135 i_161))" +"(hash-iterate-next ht_136 i_161))" " fold-var_207)))" " fold-var_257)))))" -" for-loop_261)" +" for-loop_263)" " null" -"(hash-iterate-first ht_135)))))" +"(hash-iterate-first ht_136)))))" " #f)))))))))))))" "(define-values" "(requireds->phase-ht)" @@ -42765,25 +42710,25 @@ static const char *startup_source = "(let-values(((lst_297) requireds_1))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_297)))" -"((letrec-values(((for-loop_137)" -"(lambda(ht_136 lst_298)" +"((letrec-values(((for-loop_139)" +"(lambda(ht_137 lst_298)" "(begin" " 'for-loop" "(if(pair? lst_298)" "(let-values(((r_43)(unsafe-car lst_298))((rest_170)(unsafe-cdr lst_298)))" -"(let-values(((ht_137)" -"(let-values(((ht_138) ht_136))" -"(let-values(((ht_139)" +"(let-values(((ht_138)" +"(let-values(((ht_139) ht_137))" +"(let-values(((ht_140)" "(let-values()" "(hash-update" -" ht_138" +" ht_139" "(required-phase r_43)" "(lambda(l_71)(cons(required-id r_43) l_71))" " null))))" -"(values ht_139)))))" -"(if(not #f)(for-loop_137 ht_137 rest_170) ht_137)))" -" ht_136)))))" -" for-loop_137)" +"(values ht_140)))))" +"(if(not #f)(for-loop_139 ht_138 rest_170) ht_138)))" +" ht_137)))))" +" for-loop_139)" "(hasheqv)" " lst_297))))))" "(define-values" @@ -42810,15 +42755,15 @@ static const char *startup_source = " \" (module-path? (syntax->datum stx)))))\")" " mod-path_9)))" "(values))))" -"(let-values(((ctx_63)" +"(let-values(((ctx_64)" "(let-values(((temp143_0) 'syntax-local-module-exports))" "(get-current-expand-context16.1 #f temp143_0))))" -"(let-values(((ns_76)(expand-context-namespace ctx_63)))" +"(let-values(((ns_76)(expand-context-namespace ctx_64)))" "(let-values(((mod-name_18)" "(1/module-path-index-resolve" "(module-path->mpi/context" "(if(syntax?$1 mod-path_9)(syntax->datum$1 mod-path_9) mod-path_9)" -" ctx_63)" +" ctx_64)" " #t)))" "(let-values(((m_19)(namespace->module ns_76 mod-name_18)))" "(begin" @@ -42826,18 +42771,18 @@ static const char *startup_source = "(void)" "(let-values()(raise-unknown-module-error 'syntax-local-module-exports mod-name_18)))" "(reverse$1" -"(let-values(((ht_140)(module-provides m_19)))" +"(let-values(((ht_141)(module-provides m_19)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_140)))" -"((letrec-values(((for-loop_262)" +"(let-values()(check-in-hash ht_141)))" +"((letrec-values(((for-loop_264)" "(lambda(fold-var_260 i_162)" "(begin" " 'for-loop" "(if i_162" -"(let-values(((phase_123 syms_21)" -"(hash-iterate-key+value ht_140 i_162)))" +"(let-values(((phase_122 syms_21)" +"(hash-iterate-key+value ht_141 i_162)))" "(let-values(((fold-var_261)" "(let-values(((fold-var_262) fold-var_260))" "(let-values(((fold-var_263)" @@ -42845,9 +42790,9 @@ static const char *startup_source = "(cons" "(let-values()" "(cons" -" phase_123" +" phase_122" "(reverse$1" -"(let-values(((ht_141)" +"(let-values(((ht_142)" " syms_21))" "(begin" "(if(variable-reference-from-unsafe?" @@ -42855,8 +42800,8 @@ static const char *startup_source = "(void)" "(let-values()" "(check-in-hash-keys" -" ht_141)))" -"((letrec-values(((for-loop_263)" +" ht_142)))" +"((letrec-values(((for-loop_265)" "(lambda(fold-var_264" " i_12)" "(begin" @@ -42864,7 +42809,7 @@ static const char *startup_source = "(if i_12" "(let-values(((sym_75)" "(hash-iterate-key" -" ht_141" +" ht_142" " i_12)))" "(let-values(((fold-var_265)" "(let-values(((fold-var_266)" @@ -42879,26 +42824,26 @@ static const char *startup_source = " fold-var_267)))))" "(if(not" " #f)" -"(for-loop_263" +"(for-loop_265" " fold-var_265" "(hash-iterate-next" -" ht_141" +" ht_142" " i_12))" " fold-var_265)))" " fold-var_264)))))" -" for-loop_263)" +" for-loop_265)" " null" "(hash-iterate-first" -" ht_141)))))))" +" ht_142)))))))" " fold-var_262))))" "(values fold-var_263)))))" "(if(not #f)" -"(for-loop_262 fold-var_261(hash-iterate-next ht_140 i_162))" +"(for-loop_264 fold-var_261(hash-iterate-next ht_141 i_162))" " fold-var_261)))" " fold-var_260)))))" -" for-loop_262)" +" for-loop_264)" " null" -"(hash-iterate-first ht_140))))))))))))))))" +"(hash-iterate-first ht_141))))))))))))))))" "(define-values" "(1/syntax-local-submodules)" "(lambda()" @@ -42906,22 +42851,22 @@ static const char *startup_source = " 'syntax-local-submodules" "(let-values()" "(let-values()" -"(let-values(((ctx_64)" +"(let-values(((ctx_65)" "(let-values(((who145_0) 'syntax-local-submodules))" "(get-current-expand-context16.1 #f who145_0))))" -"(let-values(((submods_3)(expand-context-declared-submodule-names ctx_64)))" +"(let-values(((submods_3)(expand-context-declared-submodule-names ctx_65)))" "(reverse$1" -"(let-values(((ht_142) submods_3))" +"(let-values(((ht_143) submods_3))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_142)))" -"((letrec-values(((for-loop_264)" +"(let-values()(check-in-hash ht_143)))" +"((letrec-values(((for-loop_266)" "(lambda(fold-var_268 i_163)" "(begin" " 'for-loop" "(if i_163" -"(let-values(((name_62 kind_8)(hash-iterate-key+value ht_142 i_163)))" +"(let-values(((name_62 kind_8)(hash-iterate-key+value ht_143 i_163)))" "(let-values(((fold-var_269)" "(let-values(((fold-var_270) fold-var_268))" "(if(eq? kind_8 'module)" @@ -42934,12 +42879,12 @@ static const char *startup_source = "(values fold-var_272)))" " fold-var_270))))" "(if(not #f)" -"(for-loop_264 fold-var_269(hash-iterate-next ht_142 i_163))" +"(for-loop_266 fold-var_269(hash-iterate-next ht_143 i_163))" " fold-var_269)))" " fold-var_268)))))" -" for-loop_264)" +" for-loop_266)" " null" -"(hash-iterate-first ht_142))))))))))))" +"(hash-iterate-first ht_143))))))))))))" "(define-values" "(1/syntax-local-get-shadower)" "(let-values(((syntax-local-get-shadower53_0)" @@ -42961,10 +42906,10 @@ static const char *startup_source = " \"identifier?\"" " id_87)))" "(values))))" -"(let-values(((ctx_65)" +"(let-values(((ctx_66)" "(let-values(((who147_0) 'syntax-local-get-shadower))" "(get-current-expand-context16.1 #f who147_0))))" -"(let-values(((new-id_0)(add-scopes id_87(expand-context-scopes ctx_65))))" +"(let-values(((new-id_0)(add-scopes id_87(expand-context-scopes ctx_66))))" "(if(syntax-clean? id_87) new-id_0(syntax-taint$1 new-id_0))))))))))))))" "(case-lambda" "((id_88)(begin 'syntax-local-get-shadower(syntax-local-get-shadower53_0 id_88 #f)))" @@ -43007,13 +42952,13 @@ static const char *startup_source = " #f))))" "(define-values" "(to-srcloc-stx)" -"(lambda(v_139)" +"(lambda(v_138)" "(begin" -"(if(srcloc? v_139)" +"(if(srcloc? v_138)" "(let-values()" "(let-values(((the-struct_35) empty-syntax))" "(if(syntax?$1 the-struct_35)" -"(let-values(((srcloc1_2) v_139))" +"(let-values(((srcloc1_2) v_138))" "(syntax1.1" "(syntax-content the-struct_35)" "(syntax-scopes the-struct_35)" @@ -43024,19 +42969,19 @@ static const char *startup_source = "(syntax-props the-struct_35)" "(syntax-inspector the-struct_35)))" " (raise-argument-error 'struct-copy \"syntax?\" the-struct_35))))" -"(if(pair? v_139)" -"(let-values()(to-srcloc-stx(list->vector v_139)))" -"(if(vector? v_139)" +"(if(pair? v_138)" +"(let-values()(to-srcloc-stx(list->vector v_138)))" +"(if(vector? v_138)" "(let-values()" "(let-values(((the-struct_36) empty-syntax))" "(if(syntax?$1 the-struct_36)" "(let-values(((srcloc2_0)" "(srcloc" -"(vector-ref v_139 0)" -"(vector-ref v_139 1)" -"(vector-ref v_139 2)" -"(vector-ref v_139 3)" -"(vector-ref v_139 4))))" +"(vector-ref v_138 0)" +"(vector-ref v_138 1)" +"(vector-ref v_138 2)" +"(vector-ref v_138 3)" +"(vector-ref v_138 4))))" "(syntax1.1" "(syntax-content the-struct_36)" "(syntax-scopes the-struct_36)" @@ -43047,7 +42992,7 @@ static const char *startup_source = "(syntax-props the-struct_36)" "(syntax-inspector the-struct_36)))" " (raise-argument-error 'struct-copy \"syntax?\" the-struct_36))))" -"(let-values() v_139)))))))" +"(let-values() v_138)))))))" "(define-values" "(1/syntax-e)" "(lambda(s_0)" @@ -43148,7 +43093,7 @@ static const char *startup_source = " 'bound-identifier=?11" "(let-values(((a_54) a9_0))" "(let-values(((b_65) b10_0))" -"(let-values(((phase_124)" +"(let-values(((phase_123)" "(if(eq? phase8_0 unsafe-undefined)(1/syntax-local-phase-level) phase8_0)))" "(let-values()" "(let-values()" @@ -43160,10 +43105,10 @@ static const char *startup_source = "(if(identifier? b_65)" "(void)" " (let-values () (raise-argument-error 'bound-identifier=? \"identifier?\" b_65)))" -"(if(phase? phase_124)" +"(if(phase? phase_123)" "(void)" -"(let-values()(raise-argument-error 'bound-identifier=? phase?-string phase_124)))" -"(bound-identifier=?$1 a_54 b_65 phase_124))))))))))))" +"(let-values()(raise-argument-error 'bound-identifier=? phase?-string phase_123)))" +"(bound-identifier=?$1 a_54 b_65 phase_123))))))))))))" "(case-lambda" "((a_55 b_84)(begin 'bound-identifier=?(bound-identifier=?11_0 a_55 b_84 unsafe-undefined)))" "((a_56 b_85 phase8_1)(bound-identifier=?11_0 a_56 b_85 phase8_1)))))" @@ -43218,8 +43163,8 @@ static const char *startup_source = "(void)" " (let-values () (raise-argument-error 'free-transformer-identifier=? \"identifier?\" b_89)))" "(values))))" -"(let-values(((phase_125)(add1(1/syntax-local-phase-level))))" -"(free-identifier=?$1 a_61 b_89 phase_125 phase_125)))))))))" +"(let-values(((phase_124)(add1(1/syntax-local-phase-level))))" +"(free-identifier=?$1 a_61 b_89 phase_124 phase_124)))))))))" "(define-values" "(1/free-template-identifier=?)" "(lambda(a_62 b_90)" @@ -43239,8 +43184,8 @@ static const char *startup_source = "(void)" " (let-values () (raise-argument-error 'free-template-identifier=? \"identifier?\" b_90)))" "(values))))" -"(let-values(((phase_126)(sub1(1/syntax-local-phase-level))))" -"(free-identifier=?$1 a_62 b_90 phase_126 phase_126)))))))))" +"(let-values(((phase_125)(sub1(1/syntax-local-phase-level))))" +"(free-identifier=?$1 a_62 b_90 phase_125 phase_125)))))))))" "(define-values" "(1/free-label-identifier=?)" "(lambda(a_63 b_91)" @@ -43263,7 +43208,7 @@ static const char *startup_source = "(begin" " 'identifier-binding22" "(let-values(((id_90) id21_0))" -"(let-values(((phase_127)" +"(let-values(((phase_126)" "(if(eq? phase19_0 unsafe-undefined)(1/syntax-local-phase-level) phase19_0)))" "(let-values(((top-level-symbol?_1) top-level-symbol?20_0))" "(let-values()" @@ -43273,13 +43218,13 @@ static const char *startup_source = "(if(identifier? id_90)" "(void)" " (let-values () (raise-argument-error 'identifier-binding \"identifier?\" id_90)))" -"(if(phase? phase_127)" +"(if(phase? phase_126)" "(void)" -"(let-values()(raise-argument-error 'identifier-binding phase?-string phase_127)))" -"(identifier-binding$1 id_90 phase_127 top-level-symbol?_1))))))))))))" +"(let-values()(raise-argument-error 'identifier-binding phase?-string phase_126)))" +"(identifier-binding$1 id_90 phase_126 top-level-symbol?_1))))))))))))" "(case-lambda" "((id_91)(begin 'identifier-binding(identifier-binding22_0 id_91 unsafe-undefined #f)))" -"((id_15 phase_86 top-level-symbol?20_1)(identifier-binding22_0 id_15 phase_86 top-level-symbol?20_1))" +"((id_15 phase_85 top-level-symbol?20_1)(identifier-binding22_0 id_15 phase_85 top-level-symbol?20_1))" "((id_92 phase19_1)(identifier-binding22_0 id_92 phase19_1 #f)))))" "(define-values" "(1/identifier-transformer-binding)" @@ -43288,7 +43233,7 @@ static const char *startup_source = "(begin" " 'identifier-transformer-binding26" "(let-values(((id_93) id25_3))" -"(let-values(((phase_128)" +"(let-values(((phase_127)" "(if(eq? phase24_1 unsafe-undefined)(1/syntax-local-phase-level) phase24_1)))" "(let-values()" "(let-values()" @@ -43298,7 +43243,7 @@ static const char *startup_source = "(void)" "(let-values()" " (raise-argument-error 'identifier-transformer-binding \"identifier?\" id_93)))" -"(identifier-binding$1 id_93(if phase_128(add1 phase_128) #f))))))))))))" +"(identifier-binding$1 id_93(if phase_127(add1 phase_127) #f))))))))))))" "(case-lambda" "((id_94)(begin 'identifier-transformer-binding(identifier-transformer-binding26_0 id_94 unsafe-undefined)))" "((id_59 phase24_2)(identifier-transformer-binding26_0 id_59 phase24_2)))))" @@ -43316,16 +43261,16 @@ static const char *startup_source = "(identifier-binding$1 id_95(sub1(1/syntax-local-phase-level)))))))))" "(define-values" "(1/identifier-label-binding)" -"(lambda(id_80)" +"(lambda(id_79)" "(begin" " 'identifier-label-binding" "(let-values()" "(let-values()" "(begin" -"(if(identifier? id_80)" +"(if(identifier? id_79)" "(void)" -" (let-values () (raise-argument-error 'identifier-label-binding \"identifier?\" id_80)))" -"(identifier-binding$1 id_80 #f)))))))" +" (let-values () (raise-argument-error 'identifier-label-binding \"identifier?\" id_79)))" +"(identifier-binding$1 id_79 #f)))))))" "(define-values" "(1/identifier-binding-symbol)" "(let-values(((identifier-binding-symbol30_0)" @@ -43333,7 +43278,7 @@ static const char *startup_source = "(begin" " 'identifier-binding-symbol30" "(let-values(((id_96) id29_1))" -"(let-values(((phase_73)" +"(let-values(((phase_72)" "(if(eq? phase28_2 unsafe-undefined)(1/syntax-local-phase-level) phase28_2)))" "(let-values()" "(let-values()" @@ -43342,11 +43287,11 @@ static const char *startup_source = "(if(identifier? id_96)" "(void)" " (let-values () (raise-argument-error 'identifier-binding-symbol \"identifier?\" id_96)))" -"(if(phase? phase_73)" +"(if(phase? phase_72)" "(void)" "(let-values()" -"(raise-argument-error 'identifier-binding-symbol phase?-string phase_73)))" -"(identifier-binding-symbol$1 id_96 phase_73)))))))))))" +"(raise-argument-error 'identifier-binding-symbol phase?-string phase_72)))" +"(identifier-binding-symbol$1 id_96 phase_72)))))))))))" "(case-lambda" "((id_97)(begin 'identifier-binding-symbol(identifier-binding-symbol30_0 id_97 unsafe-undefined)))" "((id_98 phase28_3)(identifier-binding-symbol30_0 id_98 phase28_3)))))" @@ -43384,7 +43329,7 @@ static const char *startup_source = "(begin" " 'syntax-debug-info39" "(let-values(((s_412) s38_1))" -"(let-values(((phase_78)" +"(let-values(((phase_77)" "(if(eq? phase36_0 unsafe-undefined)(1/syntax-local-phase-level) phase36_0)))" "(let-values(((all-bindings?_1) all-bindings?37_0))" "(let-values()" @@ -43394,17 +43339,17 @@ static const char *startup_source = "(if(syntax?$1 s_412)" "(void)" " (let-values () (raise-argument-error 'syntax-debug-info \"syntax?\" s_412)))" -"(if(phase? phase_78)" +"(if(phase? phase_77)" "(void)" -"(let-values()(raise-argument-error 'syntax-debug-info phase?-string phase_78)))" -"(syntax-debug-info$1 s_412 phase_78 all-bindings?_1))))))))))))" +"(let-values()(raise-argument-error 'syntax-debug-info phase?-string phase_77)))" +"(syntax-debug-info$1 s_412 phase_77 all-bindings?_1))))))))))))" "(case-lambda" "((s_86)(begin 'syntax-debug-info(syntax-debug-info39_0 s_86 unsafe-undefined #f)))" -"((s_442 phase_129 all-bindings?37_1)(syntax-debug-info39_0 s_442 phase_129 all-bindings?37_1))" +"((s_442 phase_128 all-bindings?37_1)(syntax-debug-info39_0 s_442 phase_128 all-bindings?37_1))" "((s_29 phase36_1)(syntax-debug-info39_0 s_29 phase36_1 #f)))))" "(define-values" "(1/syntax-shift-phase-level)" -"(lambda(s_443 phase_130)" +"(lambda(s_443 phase_129)" "(begin" " 'syntax-shift-phase-level" "(let-values()" @@ -43413,10 +43358,10 @@ static const char *startup_source = "(if(syntax?$1 s_443)" "(void)" " (let-values () (raise-argument-error 'syntax-shift-phase-level \"syntax?\" s_443)))" -"(if(phase? phase_130)" +"(if(phase? phase_129)" "(void)" -"(let-values()(raise-argument-error 'syntax-shift-phase-level phase?-string phase_130)))" -"(syntax-shift-phase-level$1 s_443 phase_130)))))))" +"(let-values()(raise-argument-error 'syntax-shift-phase-level phase?-string phase_129)))" +"(syntax-shift-phase-level$1 s_443 phase_129)))))))" "(define-values" "(1/syntax-track-origin)" "(lambda(new-stx_8 old-stx_4 id_101)" @@ -43443,12 +43388,12 @@ static const char *startup_source = " (let-values () (raise-argument-error 'syntax-track-origin \"identifier?\" id_101)))" "(values))))" "(let-values(((s_444)(syntax-track-origin$1 new-stx_8 old-stx_4 id_101)))" -"(let-values(((ctx_66)" +"(let-values(((ctx_67)" "(let-values(((temp60_3) #t))(get-current-expand-context16.1 temp60_3 'unexpected))))" "(begin" -"(if ctx_66" +"(if ctx_67" "(let-values()" -"(let-values(((obs_44)(expand-context-observer ctx_66)))" +"(let-values(((obs_44)(expand-context-observer ctx_67)))" "(if obs_44" "(let-values()(let-values()(call-expand-observe obs_44 'track-origin new-stx_8 s_444)))" "(void))))" @@ -43548,17 +43493,17 @@ static const char *startup_source = "(void)" " (let-values () (raise-argument-error who_22 \"namespace?\" dest-namespace_2)))" "(values))))" -"(let-values(((phase_131)(namespace-phase src-namespace_6)))" +"(let-values(((phase_130)(namespace-phase src-namespace_6)))" "(let-values((()" "(begin" -"(if(eqv? phase_131(namespace-phase dest-namespace_2))" +"(if(eqv? phase_130(namespace-phase dest-namespace_2))" "(void)" "(let-values()" "(raise-arguments-error" " who_22" " \"source and destination namespace phases do not match\"" " \"source phase\"" -" phase_131" +" phase_130" " \"destination phase\"" "(namespace-phase dest-namespace_2))))" "(values))))" @@ -43568,7 +43513,7 @@ static const char *startup_source = "(begin" "((letrec-values(((loop_99)" "(lambda(mpi_45" -" phase_132" +" phase_131" " attach-instances?_1" " attach-phase_0)" "(begin" @@ -43587,7 +43532,7 @@ static const char *startup_source = " mpi_45)))))" "(let-values(((attach-this-instance?_0)" "(if attach-instances?_1" -"(eqv? phase_132 attach-phase_0)" +"(eqv? phase_131 attach-phase_0)" " #f)))" "(let-values(((m-ns_12)" "(hash-ref" @@ -43595,7 +43540,7 @@ static const char *startup_source = " todo_0" " mod-name_19" " '#hasheqv())" -" phase_132" +" phase_131" " missing_0)))" "(if(let-values(((or-part_164)" "(eq? missing_0 m-ns_12)))" @@ -43621,9 +43566,9 @@ static const char *startup_source = "(if(if(module-cross-phase-persistent?" " m_20)" "(if(not" -"(label-phase? phase_132))" +"(label-phase? phase_131))" "(not" -"(zero-phase? phase_132))" +"(zero-phase? phase_131))" " #f)" " #f)" "(let-values()" @@ -43668,7 +43613,7 @@ static const char *startup_source = "((mod-name31_0)" " mod-name_19)" "((phase32_1)" -" phase_132))" +" phase_131))" "(namespace->module-namespace82.1" " #f" " #f" @@ -43694,7 +43639,7 @@ static const char *startup_source = "((mod-name34_0)" " mod-name_19)" "((phase35_1)" -" phase_132))" +" phase_131))" "(namespace->module-namespace82.1" " #f" " #f" @@ -43730,14 +43675,14 @@ static const char *startup_source = "(let-values()" "(begin" "(if(if(label-phase?" -" phase_132)" +" phase_131)" "(not" "(let-values(((src-namespace36_0)" " src-namespace_6)" "((mod-name37_0)" " mod-name_19)" "((phase38_0)" -" phase_132))" +" phase_131))" "(namespace->module-namespace82.1" " #f" " #f" @@ -43761,7 +43706,7 @@ static const char *startup_source = "((mpi40_0)" " mpi_45)" "((phase41_1)" -" phase_132))" +" phase_131))" "(namespace-module-instantiate!96.1" " #t" " unsafe-undefined" @@ -43780,10 +43725,10 @@ static const char *startup_source = "(hash-update!" " todo_0" " mod-name_19" -"(lambda(ht_143)" +"(lambda(ht_144)" "(hash-set" -" ht_143" -" phase_132" +" ht_144" +" phase_131" " m-ns_13))" " '#hasheqv())" "(if already?_0" @@ -43800,7 +43745,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_299)))" -"((letrec-values(((for-loop_265)" +"((letrec-values(((for-loop_267)" "(lambda(lst_300)" "(begin" " 'for-loop" @@ -43823,7 +43768,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_225)))" -"((letrec-values(((for-loop_99)" +"((letrec-values(((for-loop_101)" "(lambda(lst_178)" "(begin" " 'for-loop" @@ -43848,7 +43793,7 @@ static const char *startup_source = " m_20)" " mpi_45)" "(phase+" -" phase_132" +" phase_131" "(car" " phase+reqs_1))" " attach-instances?_1" @@ -43857,19 +43802,19 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_99" +"(for-loop_101" " rest_172)" "(values))))" "(values))))))" -" for-loop_99)" +" for-loop_101)" " lst_225)))))" "(if(not" " #f)" -"(for-loop_265" +"(for-loop_267" " rest_171)" "(values))))" "(values))))))" -" for-loop_265)" +" for-loop_267)" " lst_299)))" "(void)" "(let-values(((lst_276)" @@ -43882,7 +43827,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_276)))" -"((letrec-values(((for-loop_100)" +"((letrec-values(((for-loop_102)" "(lambda(lst_164)" "(begin" " 'for-loop" @@ -43914,11 +43859,11 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_100" +"(for-loop_102" " rest_95)" "(values))))" "(values))))))" -" for-loop_100)" +" for-loop_102)" " lst_276)))" "(void)" "(if(module-supermodule-name" @@ -43940,28 +43885,28 @@ static const char *startup_source = "(resolved-module-path->module-path mod-path_16)" " mod-path_16)" " #f)" -" phase_131" +" phase_130" " attach-instances?_0" -" phase_131)" +" phase_130)" "(values))))" "(let-values((()" "(begin" -"(let-values(((ht_144) todo_0))" +"(let-values(((ht_145) todo_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_144)))" -"((letrec-values(((for-loop_266)" +"(let-values()(check-in-hash ht_145)))" +"((letrec-values(((for-loop_268)" "(lambda(i_164)" "(begin" " 'for-loop" "(if i_164" "(let-values(((mod-name_20 phases_0)" "(hash-iterate-key+value" -" ht_144" +" ht_145" " i_164)))" "(let-values((()" -"(let-values(((ht_145)" +"(let-values(((ht_146)" " phases_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -43969,16 +43914,16 @@ static const char *startup_source = "(void)" "(let-values()" "(check-in-hash" -" ht_145)))" -"((letrec-values(((for-loop_251)" +" ht_146)))" +"((letrec-values(((for-loop_253)" "(lambda(i_46)" "(begin" " 'for-loop" "(if i_46" -"(let-values(((phase_133" +"(let-values(((phase_132" " m-ns_15)" "(hash-iterate-key+value" -" ht_145" +" ht_146" " i_46)))" "(let-values((()" "(let-values()" @@ -44020,14 +43965,14 @@ static const char *startup_source = "(namespace-record-module-instance-attached!" " src-namespace_6" " mod-name_20" -" phase_133)" +" phase_132)" "(let-values(((or-part_25)" "(let-values(((dest-namespace45_0)" " dest-namespace_2)" "((mod-name46_0)" " mod-name_20)" "((phase47_2)" -" phase_133))" +" phase_132))" "(namespace->module-namespace82.1" " #f" " #f" @@ -44040,7 +43985,7 @@ static const char *startup_source = "(namespace-install-module-namespace!" " dest-namespace_2" " mod-name_20" -" phase_133" +" phase_132" " m_21" " m-ns_15)))))" "(void)))))" @@ -44048,22 +43993,22 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_251" +"(for-loop_253" "(hash-iterate-next" -" ht_145" +" ht_146" " i_46))" "(values))))" "(values))))))" -" for-loop_251)" +" for-loop_253)" "(hash-iterate-first" -" ht_145))))))" +" ht_146))))))" "(if(not #f)" -"(for-loop_266" -"(hash-iterate-next ht_144 i_164))" +"(for-loop_268" +"(hash-iterate-next ht_145 i_164))" "(values))))" "(values))))))" -" for-loop_266)" -"(hash-iterate-first ht_144))))" +" for-loop_268)" +"(hash-iterate-first ht_145))))" "(values))))" "(let-values()" "(let-values(((mnr_0)(1/current-module-name-resolver)))" @@ -44075,18 +44020,18 @@ static const char *startup_source = " dest-namespace_2)" "(let-values()" "(begin" -"(let-values(((ht_146) todo_0))" +"(let-values(((ht_147) todo_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash-keys ht_146)))" -"((letrec-values(((for-loop_267)" +"(let-values()(check-in-hash-keys ht_147)))" +"((letrec-values(((for-loop_269)" "(lambda(i_21)" "(begin" " 'for-loop" "(if i_21" "(let-values(((mod-name_21)" -"(hash-iterate-key ht_146 i_21)))" +"(hash-iterate-key ht_147 i_21)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -44099,12 +44044,12 @@ static const char *startup_source = "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_267" -"(hash-iterate-next ht_146 i_21))" +"(for-loop_269" +"(hash-iterate-next ht_147 i_21))" "(values))))" "(values))))))" -" for-loop_267)" -"(hash-iterate-first ht_146))))" +" for-loop_269)" +"(hash-iterate-first ht_147))))" "(void))))))))))))))))))))))))" "(define-values" "(1/make-empty-namespace)" @@ -44112,8 +44057,8 @@ static const char *startup_source = "(begin" " 'make-empty-namespace" "(let-values(((current-ns_0)(1/current-namespace)))" -"(let-values(((phase_45)(namespace-phase current-ns_0)))" -"(let-values(((ns_59)(namespace->namespace-at-phase(make-namespace) phase_45)))" +"(let-values(((phase_44)(namespace-phase current-ns_0)))" +"(let-values(((ns_59)(namespace->namespace-at-phase(make-namespace) phase_44)))" "(begin" "(1/namespace-attach-module current-ns_0 ''#%kernel ns_59)" "(namespace-primitive-module-visit! ns_59 '#%kernel)" @@ -44121,10 +44066,10 @@ static const char *startup_source = "(define-values" "(1/namespace-syntax-introduce)" "(let-values(((namespace-syntax-introduce3_0)" -"(lambda(s2_9 ns1_3)" +"(lambda(s2_8 ns1_3)" "(begin" " 'namespace-syntax-introduce3" -"(let-values(((s_2) s2_9))" +"(let-values(((s_2) s2_8))" "(let-values(((ns_58)(if(eq? ns1_3 unsafe-undefined)(1/current-namespace) ns1_3)))" "(let-values()" "(let-values()" @@ -44147,31 +44092,33 @@ static const char *startup_source = " ns_58)))" "(values))))" "(let-values(((root-ctx_5)(namespace-get-root-expand-ctx ns_58)))" -"(let-values(((post-scope_1)(root-expand-context-post-expansion-scope root-ctx_5)))" +"(let-values(((post-scope_1)" +"(post-expansion-scope" +"(root-expand-context-post-expansion root-ctx_5))))" "(let-values(((other-namespace-scopes_0)" "(reverse$1" -"(let-values(((ht_147)" +"(let-values(((ht_148)" "(syntax-scope-set" "(root-expand-context-all-scopes-stx root-ctx_5)" " 0)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-immutable-hash-keys ht_147)))" -"((letrec-values(((for-loop_114)" +"(let-values()(check-in-immutable-hash-keys ht_148)))" +"((letrec-values(((for-loop_116)" "(lambda(fold-var_239 i_165)" "(begin" " 'for-loop" "(if i_165" -"(let-values(((sc_37)" +"(let-values(((sc_36)" "(unsafe-immutable-hash-iterate-key" -" ht_147" +" ht_148" " i_165)))" "(let-values(((fold-var_220)" "(let-values(((fold-var_221)" " fold-var_239))" "(if(equal?" -" sc_37" +" sc_36" " post-scope_1)" " fold-var_221" "(let-values(((fold-var_222)" @@ -44180,21 +44127,21 @@ static const char *startup_source = "(let-values()" "(cons" "(let-values()" -" sc_37)" +" sc_36)" " fold-var_222))))" "(values" " fold-var_223)))))))" "(if(not #f)" -"(for-loop_114" +"(for-loop_116" " fold-var_220" "(unsafe-immutable-hash-iterate-next" -" ht_147" +" ht_148" " i_165))" " fold-var_220)))" " fold-var_239)))))" -" for-loop_114)" +" for-loop_116)" " null" -"(unsafe-immutable-hash-iterate-first ht_147)))))))" +"(unsafe-immutable-hash-iterate-first ht_148)))))))" "(let-values(((add-ns-scopes_0)" "(lambda(s_430)" "(begin" @@ -44485,7 +44432,7 @@ static const char *startup_source = "(lambda(sym43_0 use-mapping?40_0 failure-thunk41_0 ns42_0)" "(begin" " 'namespace-variable-value44" -"(let-values(((sym_21) sym43_0))" +"(let-values(((sym_76) sym43_0))" "(let-values(((use-mapping?_0) use-mapping?40_0))" "(let-values(((failure-thunk_5) failure-thunk41_0))" "(let-values(((ns_11)(if(eq? ns42_0 unsafe-undefined)(1/current-namespace) ns42_0)))" @@ -44493,9 +44440,9 @@ static const char *startup_source = "(let-values()" "(let-values()" "(begin" -"(if(symbol? sym_21)" +"(if(symbol? sym_76)" "(void)" -" (let-values () (raise-argument-error 'namespace-variable-value \"symbol?\" sym_21)))" +" (let-values () (raise-argument-error 'namespace-variable-value \"symbol?\" sym_76)))" "(if(let-values(((or-part_132)(not failure-thunk_5)))" "(if or-part_132" " or-part_132" @@ -44517,7 +44464,7 @@ static const char *startup_source = "(let-values(((var-ns_0 var-phase-level_0 var-sym_6)" "(if use-mapping?_0" "(let-values()" -"(let-values(((id_102)(1/datum->syntax #f sym_21)))" +"(let-values(((id_102)(1/datum->syntax #f sym_76)))" "(let-values(((b_14)" "(resolve+shift/extra-inspector" "(1/namespace-syntax-introduce id_102 ns_11)" @@ -44531,7 +44478,7 @@ static const char *startup_source = " ns_11))" "(void))" "(values))))" -"(let-values(((v_199" +"(let-values(((v_197" " primitive?_8" " extra-inspector_9" " protected?_9)" @@ -44555,7 +44502,7 @@ static const char *startup_source = " id121_0))" "(values variable #f #f #f))))" "(begin" -"(if(variable? v_199)" +"(if(variable? v_197)" "(void)" "(let-values()" "(escape_0" @@ -44569,7 +44516,7 @@ static const char *startup_source = "(string-append" " \"namespace-variable-value: bound to syntax\\n\"" " \" in: ~s\")" -" sym_21)" +" sym_76)" "(current-continuation-marks)" " null))))))))" "(if(module-binding? b_14)" @@ -44588,9 +44535,9 @@ static const char *startup_source = "(values" " ns_11" "(namespace-phase ns_11)" -" sym_21))))))))" -"(let-values()(values ns_11(namespace-phase ns_11) sym_21)))))" -"(let-values(((val_70)" +" sym_76))))))))" +"(let-values()(values ns_11(namespace-phase ns_11) sym_76)))))" +"(let-values(((val_71)" "(namespace-get-variable" " var-ns_0" " var-phase-level_0" @@ -44606,25 +44553,25 @@ static const char *startup_source = "(string-append" " \"namespace-variable-value: given name is not defined\\n\"" " \" name: ~s\")" -" sym_21)" +" sym_76)" "(current-continuation-marks)" -" sym_21)))))))))" -"(lambda() val_70))))))))))))))))))" +" sym_76)))))))))" +"(lambda() val_71))))))))))))))))))" "(case-lambda" -"((sym_76)(begin 'namespace-variable-value(namespace-variable-value44_0 sym_76 #t #f unsafe-undefined)))" -"((sym_77 use-mapping?_1 failure-thunk_6 ns42_1)" -"(namespace-variable-value44_0 sym_77 use-mapping?_1 failure-thunk_6 ns42_1))" -"((sym_78 use-mapping?_2 failure-thunk41_1)" -"(namespace-variable-value44_0 sym_78 use-mapping?_2 failure-thunk41_1 unsafe-undefined))" -"((sym_79 use-mapping?40_1)(namespace-variable-value44_0 sym_79 use-mapping?40_1 #f unsafe-undefined)))))" +"((sym_77)(begin 'namespace-variable-value(namespace-variable-value44_0 sym_77 #t #f unsafe-undefined)))" +"((sym_78 use-mapping?_1 failure-thunk_6 ns42_1)" +"(namespace-variable-value44_0 sym_78 use-mapping?_1 failure-thunk_6 ns42_1))" +"((sym_79 use-mapping?_2 failure-thunk41_1)" +"(namespace-variable-value44_0 sym_79 use-mapping?_2 failure-thunk41_1 unsafe-undefined))" +"((sym_80 use-mapping?40_1)(namespace-variable-value44_0 sym_80 use-mapping?40_1 #f unsafe-undefined)))))" "(define-values" "(1/namespace-set-variable-value!)" "(let-values(((namespace-set-variable-value!51_0)" "(lambda(sym49_0 val50_0 map?46_0 ns47_2 as-constant?48_0)" "(begin" " 'namespace-set-variable-value!51" -"(let-values(((sym_80) sym49_0))" -"(let-values(((val_71) val50_0))" +"(let-values(((sym_81) sym49_0))" +"(let-values(((val_72) val50_0))" "(let-values(((map?_0) map?46_0))" "(let-values(((ns_82)(if(eq? ns47_2 unsafe-undefined)(1/current-namespace) ns47_2)))" "(let-values(((as-constant?_2) as-constant?48_0))" @@ -44632,10 +44579,10 @@ static const char *startup_source = "(let-values()" "(let-values()" "(begin" -"(if(symbol? sym_80)" +"(if(symbol? sym_81)" "(void)" "(let-values()" -" (raise-argument-error 'namespace-set-variable-value! \"symbol?\" sym_80)))" +" (raise-argument-error 'namespace-set-variable-value! \"symbol?\" sym_81)))" "(if(1/namespace? ns_82)" "(void)" "(let-values()" @@ -44643,8 +44590,8 @@ static const char *startup_source = "(namespace-set-variable!" " ns_82" "(namespace-phase ns_82)" -" sym_80" -" val_71" +" sym_81" +" val_72" " as-constant?_2)" "(if map?_0" "(let-values()" @@ -44653,14 +44600,14 @@ static const char *startup_source = "(namespace-unset-transformer!" " ns_82" "(namespace-phase ns_82)" -" sym_80)" +" sym_81)" "(values))))" -"(let-values(((id_103)(1/datum->syntax #f sym_80)))" +"(let-values(((id_103)(1/datum->syntax #f sym_81)))" "(let-values(((temp123_1)(1/namespace-syntax-introduce id_103 ns_82))" "((temp124_0)" "(let-values(((temp126_0)(namespace-mpi ns_82))" "((temp127_3)(namespace-phase ns_82))" -"((sym128_0) sym_80))" +"((sym128_0) sym_81))" "(make-module-binding22.1" " #f" " null" @@ -44678,34 +44625,34 @@ static const char *startup_source = "(add-binding!17.1 #f #f temp123_1 temp124_0 temp125_0)))))" "(void)))))))))))))))" "(case-lambda" -"((sym_81 val_72)" -"(begin 'namespace-set-variable-value!(namespace-set-variable-value!51_0 sym_81 val_72 #f unsafe-undefined #f)))" -"((sym_82 val_73 map?_1 ns_83 as-constant?48_1)" -"(namespace-set-variable-value!51_0 sym_82 val_73 map?_1 ns_83 as-constant?48_1))" -"((sym_83 val_74 map?_2 ns47_3)(namespace-set-variable-value!51_0 sym_83 val_74 map?_2 ns47_3 #f))" -"((sym_84 val_75 map?46_1)(namespace-set-variable-value!51_0 sym_84 val_75 map?46_1 unsafe-undefined #f)))))" +"((sym_82 val_73)" +"(begin 'namespace-set-variable-value!(namespace-set-variable-value!51_0 sym_82 val_73 #f unsafe-undefined #f)))" +"((sym_83 val_74 map?_1 ns_83 as-constant?48_1)" +"(namespace-set-variable-value!51_0 sym_83 val_74 map?_1 ns_83 as-constant?48_1))" +"((sym_84 val_75 map?_2 ns47_3)(namespace-set-variable-value!51_0 sym_84 val_75 map?_2 ns47_3 #f))" +"((sym_85 val_76 map?46_1)(namespace-set-variable-value!51_0 sym_85 val_76 map?46_1 unsafe-undefined #f)))))" "(define-values" "(1/namespace-undefine-variable!)" "(let-values(((namespace-undefine-variable!55_0)" "(lambda(sym54_0 ns53_0)" "(begin" " 'namespace-undefine-variable!55" -"(let-values(((sym_85) sym54_0))" +"(let-values(((sym_86) sym54_0))" "(let-values(((ns_84)(if(eq? ns53_0 unsafe-undefined)(1/current-namespace) ns53_0)))" "(let-values()" "(let-values()" "(let-values()" "(begin" -"(if(symbol? sym_85)" +"(if(symbol? sym_86)" "(void)" -" (let-values () (raise-argument-error 'namespace-undefine-variable! \"symbol?\" sym_85)))" +" (let-values () (raise-argument-error 'namespace-undefine-variable! \"symbol?\" sym_86)))" "(if(1/namespace? ns_84)" "(void)" "(let-values()" " (raise-argument-error 'namespace-undefine-variable! \"namespace?\" ns_84)))" -"(namespace-unset-variable! ns_84(namespace-phase ns_84) sym_85)))))))))))" +"(namespace-unset-variable! ns_84(namespace-phase ns_84) sym_86)))))))))))" "(case-lambda" -"((sym_86)(begin 'namespace-undefine-variable!(namespace-undefine-variable!55_0 sym_86 unsafe-undefined)))" +"((sym_87)(begin 'namespace-undefine-variable!(namespace-undefine-variable!55_0 sym_87 unsafe-undefined)))" "((sym_7 ns53_1)(namespace-undefine-variable!55_0 sym_7 ns53_1)))))" "(define-values" "(1/namespace-mapped-symbols)" @@ -45051,13 +44998,13 @@ static const char *startup_source = "(lambda(s_58 ns_102 observer_3 to-parsed?_4 serializable?_9)" "(begin" "(let-values(((rebuild-s_2)(keep-properties-only s_58)))" -"(let-values(((ctx_67)" +"(let-values(((ctx_68)" "(let-values(((ns100_0) ns_102)" "((to-parsed?101_0) to-parsed?_4)" "((serializable?102_0) serializable?_9)" "((observer103_0) observer_3))" "(make-expand-context10.1 serializable?102_0 observer103_0 to-parsed?101_0 ns100_0))))" -"(let-values(((require-lifts_3 lifts_10 exp-s_0)(expand-capturing-lifts s_58 ctx_67)))" +"(let-values(((require-lifts_3 lifts_10 exp-s_0)(expand-capturing-lifts s_58 ctx_68)))" "(if(if(null? require-lifts_3)(null? lifts_10) #f)" "(let-values() exp-s_0)" "(if to-parsed?_4" @@ -45078,14 +45025,14 @@ static const char *startup_source = "(let-values()" "(let-values((()" "(begin" -"(log-top-lift-begin-before ctx_67 require-lifts_3 lifts_10 exp-s_0 ns_102)" +"(log-top-lift-begin-before ctx_68 require-lifts_3 lifts_10 exp-s_0 ns_102)" "(values))))" -"(let-values(((new-s_3)" +"(let-values(((new-s_2)" "(let-values(((temp109_0)(append require-lifts_3 lifts_10))" "((temp110_1)" "(lambda(form_1)" "(begin" -"(let-values(((obs_45)(expand-context-observer ctx_67)))" +"(let-values(((obs_45)(expand-context-observer ctx_68)))" "(if obs_45" "(let-values()" "(let-values()(call-expand-observe obs_45 'next)))" @@ -45102,7 +45049,7 @@ static const char *startup_source = "(let-values() form_2)" "(let-values()" "(begin" -"(let-values(((obs_46)(expand-context-observer ctx_67)))" +"(let-values(((obs_46)(expand-context-observer ctx_68)))" "(if obs_46" "(let-values()" "(let-values()(call-expand-observe obs_46 'next)))" @@ -45116,7 +45063,7 @@ static const char *startup_source = "((exp-s112_0) exp-s_0)" "((temp113_2)(namespace-phase ns_102)))" "(wrap-lifts-as-begin16.1 temp111_1 temp110_1 temp109_0 exp-s112_0 temp113_2))))" -"(begin(log-top-begin-after ctx_67 new-s_3) new-s_3))))))))))))" +"(begin(log-top-begin-after ctx_68 new-s_2) new-s_2))))))))))))" "(define-values" "(expand-once$1)" "(let-values(((expand-once32_0)" @@ -45154,11 +45101,11 @@ static const char *startup_source = "(let-values(((require-lifts_4 lifts_11 exp-s_6)" "(expand-capturing-lifts" " s_457" -"(let-values(((v_121)(let-values(((ns121_0) ns_83))(make-expand-context10.1 #f #f #f ns121_0))))" -"(let-values(((the-struct_69) v_121))" +"(let-values(((v_128)(let-values(((ns121_0) ns_83))(make-expand-context10.1 #f #f #f ns121_0))))" +"(let-values(((the-struct_69) v_128))" "(if(expand-context/outer? the-struct_69)" "(let-values(((inner122_0)" -"(let-values(((the-struct_70)(root-expand-context/outer-inner v_121)))" +"(let-values(((the-struct_70)(root-expand-context/outer-inner v_128)))" "(if(expand-context/inner? the-struct_70)" "(let-values(((just-once?123_0) #t))" "(expand-context/inner2.1" @@ -45194,13 +45141,11 @@ static const char *startup_source = " the-struct_70)))))" "(expand-context/outer1.1" " inner122_0" -"(root-expand-context/outer-post-expansion-scope the-struct_69)" -"(root-expand-context/outer-post-expansion-shifts the-struct_69)" +"(root-expand-context/outer-post-expansion 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)" "(expand-context/outer-env the-struct_69)" -"(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)" @@ -45279,26 +45224,26 @@ static const char *startup_source = "(let-values(((observer_5) observer44_0))" "(let-values()" "(let-values(((s_216)(maybe-intro given-s_0 ns_106)))" -"(let-values(((ctx_68)" +"(let-values(((ctx_69)" "(let-values(((ns132_0) ns_106)((observer133_0) observer_5))" "(make-expand-context10.1 #f observer133_0 #f ns132_0))))" -"(let-values(((phase_134)(namespace-phase ns_106)))" +"(let-values(((phase_133)(namespace-phase ns_106)))" "((letrec-values(((loop_101)" -"(lambda(s_461 phase_135 ns_107 as-tail?_7)" +"(lambda(s_461 phase_134 ns_107 as-tail?_7)" "(begin" " 'loop" "(let-values(((tl-ctx_0)" -"(let-values(((v_200) ctx_68))" -"(let-values(((the-struct_71) v_200))" +"(let-values(((v_198) ctx_69))" +"(let-values(((the-struct_71) v_198))" "(if(expand-context/outer? the-struct_71)" "(let-values(((inner134_0)" "(let-values(((the-struct_72)" "(root-expand-context/outer-inner" -" v_200)))" +" v_198)))" "(if(expand-context/inner?" " the-struct_72)" "(let-values(((phase135_1)" -" phase_135)" +" phase_134)" "((namespace136_0)" " ns_107)" "((just-once?137_0)" @@ -45360,9 +45305,7 @@ static const char *startup_source = " the-struct_72)))))" "(expand-context/outer1.1" " inner134_0" -"(root-expand-context/outer-post-expansion-scope" -" the-struct_71)" -"(root-expand-context/outer-post-expansion-shifts" +"(root-expand-context/outer-post-expansion" " the-struct_71)" "(root-expand-context/outer-use-site-scopes" " the-struct_71)" @@ -45371,8 +45314,6 @@ static const char *startup_source = "(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)" @@ -45411,19 +45352,19 @@ static const char *startup_source = "(let-values(((require-lifts_5 lifts_12 exp-s_7)" "(expand-capturing-lifts" " s_461" -"(let-values(((v_201) tl-ctx_0))" -"(let-values(((the-struct_73) v_201))" +"(let-values(((v_199) tl-ctx_0))" +"(let-values(((the-struct_73) v_199))" "(if(expand-context/outer? the-struct_73)" "(let-values(((only-immediate?139_0)" " #t)" "((inner140_0)" "(let-values(((the-struct_74)" "(root-expand-context/outer-inner" -" v_201)))" +" v_199)))" "(if(expand-context/inner?" " the-struct_74)" "(let-values(((phase141_0)" -" phase_135)" +" phase_134)" "((namespace142_0)" " ns_107))" "(expand-context/inner2.1" @@ -45483,9 +45424,7 @@ static const char *startup_source = " the-struct_74)))))" "(expand-context/outer1.1" " inner140_0" -"(root-expand-context/outer-post-expansion-scope" -" the-struct_73)" -"(root-expand-context/outer-post-expansion-shifts" +"(root-expand-context/outer-post-expansion" " the-struct_73)" "(root-expand-context/outer-use-site-scopes" " the-struct_73)" @@ -45495,8 +45434,6 @@ static const char *startup_source = " 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" @@ -45524,13 +45461,13 @@ static const char *startup_source = "(pair? require-lifts_5)))" "(if or-part_299 or-part_299(pair? lifts_12)))" "(let-values()" -"(let-values(((new-s_4)" +"(let-values(((new-s_3)" "(let-values(((temp143_1)" "(append" " require-lifts_5" " lifts_12))" "((exp-s144_0) exp-s_7)" -"((phase145_0) phase_135))" +"((phase145_0) phase_134))" "(wrap-lifts-as-begin16.1" " unsafe-undefined" " unsafe-undefined" @@ -45547,13 +45484,13 @@ static const char *startup_source = "(call-expand-observe" " obs_48" " 'lift-loop" -" new-s_4)))" +" new-s_3)))" "(void)))" "(if just-once?_1" -" new-s_4" +" new-s_3" "(loop_101" -" new-s_4" -" phase_135" +" new-s_3" +" phase_134" " ns_107" " as-tail?_7)))))" "(if(not single_0)" @@ -45577,14 +45514,14 @@ static const char *startup_source = "(let-values(((tmp_35)" "(core-form-sym" " disarmed-exp-s_0" -" phase_135)))" +" phase_134)))" "(if(equal? tmp_35 'begin)" "(let-values()" "(let-values((()" "(begin" "(let-values(((obs_50)" "(expand-context-observer" -" ctx_68)))" +" ctx_69)))" "(if obs_50" "(let-values()" "(let-values()" @@ -45664,7 +45601,7 @@ static const char *startup_source = "(let-values()" "(loop_101" "(car es_2)" -" phase_135" +" phase_134" " ns_107" " as-tail?_7))" "(let-values()" @@ -45686,14 +45623,14 @@ static const char *startup_source = "(loop_101" "(car" " es_2)" -" phase_135" +" phase_134" " ns_107" " #f)" "(begin" "(loop_101" "(car" " es_2)" -" phase_135" +" phase_134" " ns_107" " #f)" "(void)))))" @@ -45708,7 +45645,7 @@ static const char *startup_source = " es_2))))))))))))" "(if wrap_2" "(let-values()" -"(let-values(((new-s_5)" +"(let-values(((new-s_4)" "(wrap_2" " begin146_0" " exp-s_7" @@ -45724,9 +45661,9 @@ static const char *startup_source = "(call-expand-observe" " obs_52" " 'return" -" new-s_5)))" +" new-s_4)))" "(void)))" -" new-s_5)))" +" new-s_4)))" "(let-values()" "(begin-loop_0 e147_0)))))))" "(if(equal? tmp_35 'begin-for-syntax)" @@ -45800,7 +45737,7 @@ static const char *startup_source = " begin-for-syntax150_1" " e151_1))))))" "(let-values(((next-phase_0)" -"(add1 phase_135)))" +"(add1 phase_134)))" "(let-values(((next-ns_0)" "(namespace->namespace-at-phase" " ns_107" @@ -45842,7 +45779,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_208)))" -"((letrec-values(((for-loop_268)" +"((letrec-values(((for-loop_270)" "(lambda(fold-var_274" " lst_302)" "(begin" @@ -45883,17 +45820,17 @@ static const char *startup_source = " fold-var_205)))))" "(if(not" " #f)" -"(for-loop_268" +"(for-loop_270" " fold-var_257" " rest_113)" " fold-var_257)))" " fold-var_274)))))" -" for-loop_268)" +" for-loop_270)" " null" " lst_208))))))" "(if wrap_2" "(let-values()" -"(let-values(((new-s_6)" +"(let-values(((new-s_5)" "(wrap_2" " begin-for-syntax150_0" " exp-s_7" @@ -45908,9 +45845,9 @@ static const char *startup_source = "(call-expand-observe" " obs_55" " 'return" -" new-s_6)))" +" new-s_5)))" "(void)))" -" new-s_6)))" +" new-s_5)))" "(if combine_0" "(let-values()" "(apply" @@ -45925,7 +45862,7 @@ static const char *startup_source = " as-tail?_7))))))))))))))))))" " loop_101)" " s_216" -" phase_134" +" phase_133" " ns_106" " #t)))))))))))))))))" "(define-values" @@ -45938,13 +45875,13 @@ static const char *startup_source = "(begin(syntax-rearm$1(1/datum->syntax(syntax-disarm$1 s_468)(cons form-id_0 r_44) s_468 s_468) s_468))))" "(define-values" "(expand-capturing-lifts)" -"(lambda(s_343 ctx_69)" +"(lambda(s_343 ctx_70)" "(begin" "(let-values()" -"(let-values(((ns_109)(expand-context-namespace ctx_69)))" +"(let-values(((ns_109)(expand-context-namespace ctx_70)))" "(let-values((()(begin(namespace-visit-available-modules! ns_109)(values))))" "(let-values(((lift-ctx_6)" -"(let-values(((temp154_1)(make-top-level-lift ctx_69)))" +"(let-values(((temp154_1)(make-top-level-lift ctx_70)))" "(make-lift-context6.1 #f temp154_1))))" "(let-values(((require-lift-ctx_2)" "(make-require-lift-context" @@ -45953,12 +45890,12 @@ static const char *startup_source = "(let-values(((exp-s_8)" "(let-values(((s155_0) s_343)" "((temp156_0)" -"(let-values(((v_202) ctx_69))" -"(let-values(((the-struct_75) v_202))" +"(let-values(((v_200) ctx_70))" +"(let-values(((the-struct_75) v_200))" "(if(expand-context/outer? the-struct_75)" "(let-values(((inner157_0)" "(let-values(((the-struct_76)" -"(root-expand-context/outer-inner v_202)))" +"(root-expand-context/outer-inner v_200)))" "(if(expand-context/inner? the-struct_76)" "(let-values(((lifts158_0) lift-ctx_6)" "((module-lifts159_0) lift-ctx_6)" @@ -46012,13 +45949,11 @@ static const char *startup_source = " the-struct_76)))))" "(expand-context/outer1.1" " inner157_0" -"(root-expand-context/outer-post-expansion-scope the-struct_75)" -"(root-expand-context/outer-post-expansion-shifts the-struct_75)" +"(root-expand-context/outer-post-expansion the-struct_75)" "(root-expand-context/outer-use-site-scopes the-struct_75)" "(root-expand-context/outer-frame-id the-struct_75)" "(expand-context/outer-context the-struct_75)" "(expand-context/outer-env the-struct_75)" -"(expand-context/outer-post-expansion-scope-action the-struct_75)" "(expand-context/outer-scopes the-struct_75)" "(expand-context/outer-def-ctx-scopes the-struct_75)" "(expand-context/outer-binding-layer the-struct_75)" @@ -46041,7 +45976,7 @@ static const char *startup_source = "(make-parse-top-lifted-require)" "(lambda(ns_110)" "(begin" -"(lambda(s_347 phase_136)" +"(lambda(s_347 phase_135)" "(let-values(((ok?_31 #%require161_0 req162_0)" "(let-values(((s_469)(syntax-disarm$1 s_347)))" "(let-values(((orig-s_35) s_469))" @@ -46079,8 +46014,8 @@ static const char *startup_source = "(let-values(((temp166_0)(list req162_0))" "((s167_0) s_347)" "((ns168_0) ns_110)" -"((phase169_1) phase_136)" -"((phase170_0) phase_136)" +"((phase169_1) phase_135)" +"((phase170_0) phase_135)" "((temp171_1)(let-values(((temp173_0) #f))(make-requires+provides8.1 #f temp173_0)))" "((temp172_0) 'require))" "(parse-and-perform-requires!30.1" @@ -46118,7 +46053,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_303)))" -"((letrec-values(((for-loop_269)" +"((letrec-values(((for-loop_271)" "(lambda(fold-var_276 lst_304)" "(begin" " 'for-loop" @@ -46134,9 +46069,9 @@ static const char *startup_source = "(parsed-require23.1 req_19))" " fold-var_278))))" "(values fold-var_279)))))" -"(if(not #f)(for-loop_269 fold-var_277 rest_173) fold-var_277)))" +"(if(not #f)(for-loop_271 fold-var_277 rest_173) fold-var_277)))" " fold-var_276)))))" -" for-loop_269)" +" for-loop_271)" " null" " lst_303))))" "(reverse$1" @@ -46145,7 +46080,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_305)))" -"((letrec-values(((for-loop_270)" +"((letrec-values(((for-loop_272)" "(lambda(fold-var_280 lst_306)" "(begin" " 'for-loop" @@ -46178,37 +46113,37 @@ static const char *startup_source = " just-rhs_0)))" "(if(lifted-parsed-begin?" " exp-rhs_3)" -"(let-values(((the-struct_60)" +"(let-values(((the-struct_77)" " exp-rhs_3))" "(if(lifted-parsed-begin?" -" the-struct_60)" +" the-struct_77)" "(let-values(((last174_0)" " dv_0))" "(lifted-parsed-begin22.1" "(lifted-parsed-begin-seq" -" the-struct_60)" +" the-struct_77)" " last174_0))" "(raise-argument-error" " 'struct-copy" " \"lifted-parsed-begin?\"" -" the-struct_60)))" +" the-struct_77)))" " dv_0)))))" " fold-var_282))))" "(values fold-var_283)))))" -"(if(not #f)(for-loop_270 fold-var_281 rest_174) fold-var_281)))" +"(if(not #f)(for-loop_272 fold-var_281 rest_174) fold-var_281)))" " fold-var_280)))))" -" for-loop_270)" +" for-loop_272)" " null" " lst_305)))))" " exp-s_9))))))))))" "(define-values" "(log-top-lift-begin-before)" -"(lambda(ctx_70 require-lifts_7 lifts_14 exp-s_10 ns_111)" +"(lambda(ctx_71 require-lifts_7 lifts_14 exp-s_10 ns_111)" "(begin" -"(let-values(((obs_56)(expand-context-observer ctx_70)))" +"(let-values(((obs_56)(expand-context-observer ctx_71)))" "(if obs_56" "(let-values()" -"(let-values(((new-s_7)" +"(let-values(((new-s_6)" "(let-values(((temp175_0)(append require-lifts_7 lifts_14))" "((exp-s176_0) exp-s_10)" "((temp177_0)(namespace-phase ns_111)))" @@ -46218,17 +46153,17 @@ static const char *startup_source = " temp175_0" " exp-s176_0" " temp177_0))))" -"(begin(call-expand-observe obs_56 'lift-loop new-s_7)(log-top-begin-before ctx_70 new-s_7))))" +"(begin(call-expand-observe obs_56 'lift-loop new-s_6)(log-top-begin-before ctx_71 new-s_6))))" "(void))))))" "(define-values" "(log-top-begin-before)" -"(lambda(ctx_71 new-s_8)" +"(lambda(ctx_72 new-s_7)" "(begin" -"(let-values(((obs_57)(expand-context-observer ctx_71)))" +"(let-values(((obs_57)(expand-context-observer ctx_72)))" "(if obs_57" "(let-values()" "(let-values(((ok?_32 begin178_0 e179_0)" -"(let-values(((s_477) new-s_8))" +"(let-values(((s_477) new-s_7))" "(let-values(((orig-s_36) s_477))" "(let-values(((begin178_1 e179_1)" "(let-values(((s_478)(if(syntax?$1 s_477)(syntax-e$1 s_477) s_477)))" @@ -46252,21 +46187,21 @@ static const char *startup_source = " (raise-syntax-error$1 #f \"bad syntax\" orig-s_36)))))" "(values #t begin178_1 e179_1))))))" "(begin" -"(call-expand-observe obs_57 'visit new-s_8)" +"(call-expand-observe obs_57 'visit new-s_7)" "(call-expand-observe obs_57 'resolve begin178_0)" -"(call-expand-observe obs_57 'enter-prim new-s_8)" +"(call-expand-observe obs_57 'enter-prim new-s_7)" "(call-expand-observe obs_57 'prim-begin)" -"(call-expand-observe obs_57 'enter-list(1/datum->syntax #f e179_0 new-s_8)))))" +"(call-expand-observe obs_57 'enter-list(1/datum->syntax #f e179_0 new-s_7)))))" "(void))))))" "(define-values" "(log-top-begin-after)" -"(lambda(ctx_72 new-s_9)" +"(lambda(ctx_73 new-s_8)" "(begin" -"(let-values(((obs_58)(expand-context-observer ctx_72)))" +"(let-values(((obs_58)(expand-context-observer ctx_73)))" "(if obs_58" "(let-values()" "(let-values(((ok?_33 begin182_0 e183_0)" -"(let-values(((s_392) new-s_9))" +"(let-values(((s_392) new-s_8))" "(let-values(((orig-s_37) s_392))" "(let-values(((begin182_1 e183_1)" "(let-values(((s_482)(if(syntax?$1 s_392)(syntax-e$1 s_392) s_392)))" @@ -46289,14 +46224,14 @@ static const char *startup_source = "(values begin184_0 e185_0))" " (raise-syntax-error$1 #f \"bad syntax\" orig-s_37)))))" "(values #t begin182_1 e183_1))))))" -"(let-values(((obs_59)(expand-context-observer ctx_72)))" +"(let-values(((obs_59)(expand-context-observer ctx_73)))" "(if obs_59" "(let-values()" "(let-values()" "(begin" -"(call-expand-observe obs_59 'exit-list(1/datum->syntax #f e183_0 new-s_9))" -"(call-expand-observe obs_59 'exit-prim new-s_9)" -"(call-expand-observe obs_59 'return new-s_9))))" +"(call-expand-observe obs_59 'exit-list(1/datum->syntax #f e183_0 new-s_8))" +"(call-expand-observe obs_59 'exit-prim new-s_8)" +"(call-expand-observe obs_59 'return new-s_8))))" "(void)))))" "(void))))))" " (define-values (replace-me) (lambda (who_0) (begin (lambda args_6 (error who_0 \"this stub must be replaced\")))))" @@ -46383,22 +46318,22 @@ static const char *startup_source = "(if or-part_298" " or-part_298" "(if(hash? p_55)" -"(let-values(((ht_148) p_55))" +"(let-values(((ht_149) p_55))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_148)))" -"((letrec-values(((for-loop_271)" -"(lambda(result_115 i_166)" +"(let-values()(check-in-hash ht_149)))" +"((letrec-values(((for-loop_273)" +"(lambda(result_116 i_166)" "(begin" " 'for-loop" "(if i_166" "(let-values(((k_35 v_3)" -"(hash-iterate-key+value ht_148 i_166)))" -"(let-values(((result_116)" -"(let-values()" +"(hash-iterate-key+value ht_149 i_166)))" "(let-values(((result_117)" "(let-values()" +"(let-values(((result_118)" +"(let-values()" "(let-values()" "(if(let-values(((or-part_77)" "(not" @@ -46416,18 +46351,18 @@ static const char *startup_source = " v_3)" " #f)" " #f)))))" -"(values result_117)))))" -"(if(if(not((lambda x_82(not result_116)) k_35 v_3))" +"(values result_118)))))" +"(if(if(not((lambda x_83(not result_117)) k_35 v_3))" "(not #f)" " #f)" -"(for-loop_271" -" result_116" -"(hash-iterate-next ht_148 i_166))" -" result_116)))" -" result_115)))))" -" for-loop_271)" +"(for-loop_273" +" result_117" +"(hash-iterate-next ht_149 i_166))" +" result_117)))" +" result_116)))))" +" for-loop_273)" " #t" -"(hash-iterate-first ht_148))))" +"(hash-iterate-first ht_149))))" " #f))))))" " l_75)" " #f))" @@ -46451,38 +46386,38 @@ static const char *startup_source = "(if(string? p_4)" "(let-values()(string->path p_4))" "(let-values()" -"(let-values(((ht_149) p_4))" +"(let-values(((ht_150) p_4))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_149)))" -"((letrec-values(((for-loop_272)" -"(lambda(table_205 i_167)" +"(let-values()(check-in-hash ht_150)))" +"((letrec-values(((for-loop_274)" +"(lambda(table_208 i_167)" "(begin" " 'for-loop" "(if i_167" -"(let-values(((k_36 v_203)(hash-iterate-key+value ht_149 i_167)))" -"(let-values(((table_206)" -"(let-values(((table_180) table_205))" -"(let-values(((table_207)" +"(let-values(((k_36 v_201)(hash-iterate-key+value ht_150 i_167)))" +"(let-values(((table_209)" +"(let-values(((table_180) table_208))" +"(let-values(((table_210)" "(let-values()" -"(let-values(((key_81 val_76)" +"(let-values(((key_82 val_77)" "(let-values()" "(values" " k_36" -"(to-path v_203)))))" +"(to-path v_201)))))" "(hash-set" " table_180" -" key_81" -" val_76)))))" -"(values table_207)))))" +" key_82" +" val_77)))))" +"(values table_210)))))" "(if(not #f)" -"(for-loop_272 table_206(hash-iterate-next ht_149 i_167))" -" table_206)))" -" table_205)))))" -" for-loop_272)" +"(for-loop_274 table_209(hash-iterate-next ht_150 i_167))" +" table_209)))" +" table_208)))))" +" for-loop_274)" " '#hash()" -"(hash-iterate-first ht_149)))))))))" +"(hash-iterate-first ht_150)))))))))" " l_8)))))))" "(define-values" "(1/use-compiled-file-paths)" @@ -46523,17 +46458,17 @@ static const char *startup_source = "(let-values()" "(make-parameter" " 'modify-seconds" -"(lambda(v_204)" +"(lambda(v_202)" "(begin" "(if((lambda(v_69)" "(let-values(((or-part_32)(eq? v_69 'modify-seconds)))" "(if or-part_32 or-part_32(eq? v_69 'exists))))" -" v_204)" +" v_202)" "(void)" -" (let-values () (raise-argument-error 'use-compiled-file-check \"(or/c 'modify-seconds 'exists)\" v_204)))" -" v_204))))))" +" (let-values () (raise-argument-error 'use-compiled-file-check \"(or/c 'modify-seconds 'exists)\" v_202)))" +" v_202))))))" "(define-values(1/use-collection-link-paths)(make-parameter #t(lambda(v_82)(if v_82 #t #f))))" -"(define-values(1/use-user-specific-search-paths)(make-parameter #t(lambda(v_205)(if v_205 #t #f))))" +"(define-values(1/use-user-specific-search-paths)(make-parameter #t(lambda(v_203)(if v_203 #t #f))))" "(define-values(complete-path-string?)(lambda(p_57)(begin(if(path-string? p_57)(complete-path? p_57) #f))))" "(define-values" "(relative-path-string?$1)" @@ -46692,13 +46627,13 @@ static const char *startup_source = "(resolved-module-path->module-path mod-path_5)" " #f))))))" "(let-values(((mod-name_22)(1/module-path-index-resolve mpi_46 #t)))" -"(let-values(((phase_110)(namespace-phase ns_114)))" +"(let-values(((phase_109)(namespace-phase ns_114)))" "(if(not sym_71)" "(let-values()" "(let-values(((ns17_0) ns_114)" "((mpi18_0) mpi_46)" -"((phase19_2) phase_110)" -"((phase20_1) phase_110)" +"((phase19_2) phase_109)" +"((phase20_1) phase_109)" "((temp21_1) #f))" "(namespace-module-instantiate!96.1" " temp21_1" @@ -46712,8 +46647,8 @@ static const char *startup_source = "(let-values()" "(let-values(((ns22_0) ns_114)" "((mpi23_0) mpi_46)" -"((phase24_3) phase_110)" -"((phase25_0) phase_110))" +"((phase24_3) phase_109)" +"((phase25_0) phase_109))" "(namespace-module-instantiate!96.1" " #t" " phase25_0" @@ -46726,8 +46661,8 @@ static const char *startup_source = "(let-values()" "(let-values(((ns26_0) ns_114)" "((mpi27_0) mpi_46)" -"((phase28_4) phase_110)" -"((phase29_0) phase_110))" +"((phase28_4) phase_109)" +"((phase29_0) phase_109))" "(namespace-module-visit!104.1" " phase29_0" " ns26_0" @@ -46771,8 +46706,8 @@ static const char *startup_source = "(begin" "(let-values(((ns30_2) ns_114)" "((mpi31_0) mpi_46)" -"((phase32_2) phase_110)" -"((phase33_1) phase_110)" +"((phase32_2) phase_109)" +"((phase33_1) phase_109)" "((temp34_4) #f))" "(namespace-module-instantiate!96.1" " temp34_4" @@ -46795,7 +46730,7 @@ static const char *startup_source = " ex-mod-name_0)" "((temp37_1)" "(phase-" -" phase_110" +" phase_109" " ex-phase_0))" "((temp38_3) #t))" "(namespace->module-namespace82.1" @@ -46889,9 +46824,9 @@ static const char *startup_source = "((mpi40_1)" " mpi_46)" "((phase41_2)" -" phase_110)" +" phase_109)" "((phase42_0)" -" phase_110))" +" phase_109))" "(namespace-module-visit!104.1" " phase42_0" " ns39_0" @@ -46934,8 +46869,8 @@ static const char *startup_source = " sym_71" " tmp-ns_0))))))))))))))))))))))))))))))))))))))))))))))))" "(case-lambda" -"((who_25 mod-path_18 sym_87)(begin(do-dynamic-require5_0 who_25 mod-path_18 sym_87 unsafe-undefined)))" -"((who_26 mod-path_19 sym_88 fail-k1_1)(do-dynamic-require5_0 who_26 mod-path_19 sym_88 fail-k1_1)))))" +"((who_25 mod-path_18 sym_88)(begin(do-dynamic-require5_0 who_25 mod-path_18 sym_88 unsafe-undefined)))" +"((who_26 mod-path_19 sym_89 fail-k1_1)(do-dynamic-require5_0 who_26 mod-path_19 sym_89 fail-k1_1)))))" " (define-values (default-dynamic-require-fail-thunk) (lambda () (begin (error \"failed\"))))" "(define-values" "(1/dynamic-require)" @@ -46944,17 +46879,17 @@ static const char *startup_source = "(begin" " 'dynamic-require10" "(let-values(((mod-path_20) mod-path8_3))" -"(let-values(((sym_89) sym9_0))" +"(let-values(((sym_90) sym9_0))" "(let-values(((fail-k_3)" "(if(eq? fail-k7_0 unsafe-undefined)" " default-dynamic-require-fail-thunk" " fail-k7_0)))" "(let-values()" "(let-values()" -"(let-values()(do-dynamic-require 'dynamic-require mod-path_20 sym_89 fail-k_3)))))))))))" +"(let-values()(do-dynamic-require 'dynamic-require mod-path_20 sym_90 fail-k_3)))))))))))" "(case-lambda" -"((mod-path_21 sym_90)(begin 'dynamic-require(dynamic-require10_0 mod-path_21 sym_90 unsafe-undefined)))" -"((mod-path_22 sym_91 fail-k7_1)(dynamic-require10_0 mod-path_22 sym_91 fail-k7_1)))))" +"((mod-path_21 sym_91)(begin 'dynamic-require(dynamic-require10_0 mod-path_21 sym_91 unsafe-undefined)))" +"((mod-path_22 sym_92 fail-k7_1)(dynamic-require10_0 mod-path_22 sym_92 fail-k7_1)))))" "(define-values" "(1/dynamic-require-for-syntax)" "(let-values(((dynamic-require-for-syntax15_0)" @@ -46962,7 +46897,7 @@ static const char *startup_source = "(begin" " 'dynamic-require-for-syntax15" "(let-values(((mod-path_23) mod-path13_0))" -"(let-values(((sym_92) sym14_0))" +"(let-values(((sym_93) sym14_0))" "(let-values(((fail-k_4)" "(if(eq? fail-k12_0 unsafe-undefined)" " default-dynamic-require-fail-thunk" @@ -46981,12 +46916,12 @@ static const char *startup_source = "(do-dynamic-require" " 'dynamic-require-for-syntax" " mod-path_23" -" sym_92" +" sym_93" " fail-k_4)))))))))))))" "(case-lambda" -"((mod-path_24 sym_93)" -"(begin 'dynamic-require-for-syntax(dynamic-require-for-syntax15_0 mod-path_24 sym_93 unsafe-undefined)))" -"((mod-path_25 sym_94 fail-k12_1)(dynamic-require-for-syntax15_0 mod-path_25 sym_94 fail-k12_1)))))" +"((mod-path_24 sym_94)" +"(begin 'dynamic-require-for-syntax(dynamic-require-for-syntax15_0 mod-path_24 sym_94 unsafe-undefined)))" +"((mod-path_25 sym_95 fail-k12_1)(dynamic-require-for-syntax15_0 mod-path_25 sym_95 fail-k12_1)))))" "(define-values" "(1/load)" "(lambda(s_0)" @@ -47211,9 +47146,9 @@ static const char *startup_source = "(let-values(((or-part_72)(find-main-collects)))(if or-part_72 or-part_72(current-directory)))))))))" "(define-values" "(add-config-search)" -"(lambda(ht_70 key_82 orig-l_9)" +"(lambda(ht_70 key_83 orig-l_9)" "(begin" -"(let-values(((l_79)(hash-ref ht_70 key_82 #f)))" +"(let-values(((l_79)(hash-ref ht_70 key_83 #f)))" "(if l_79" "((letrec-values(((loop_102)" "(lambda(l_64)" @@ -47362,7 +47297,7 @@ static const char *startup_source = "(lambda()" "(call-with-default-reading-parameterization" "(lambda()" -"(let-values(((v_206)" +"(let-values(((v_204)" "(if(no-file-stamp? ts_1)" " null" "(let-values(((links-path11_0) links-path_0)" @@ -47379,7 +47314,7 @@ static const char *startup_source = "(call-with-input-file*61.1 'binary links-path11_0 temp12_3)))))" "(let-values((()" "(begin" -"(if(if(list? v_206)" +"(if(if(list? v_204)" "(andmap2" "(lambda(p_66)" "(if(list? p_66)" @@ -47400,12 +47335,12 @@ static const char *startup_source = " #f)" " #f)" " #f))" -" v_206)" +" v_204)" " #f)" "(void)" " (let-values () (error \"ill-formed content\")))" "(values))))" -"(let-values(((ht_150)(make-hasheq)))" +"(let-values(((ht_151)(make-hasheq)))" "(let-values(((dir_0)" "(let-values(((base_21 name_66 dir?_5)(split-path links-path_0)))" " base_21)))" @@ -47425,34 +47360,34 @@ static const char *startup_source = "(let-values()" "(let-values(((k_37)(string->symbol(path->string sub_1))))" "(hash-set!" -" ht_150" +" ht_151" " k_37" -"(cons dir_1(hash-ref ht_150 k_37 null)))))" +"(cons dir_1(hash-ref ht_151 k_37 null)))))" "(void)))" "(directory-list dir_1)))" "(if(eq?(car p_67) 'root)" "(let-values()" "(begin" -"(if(hash-ref ht_150 #f #f)" +"(if(hash-ref ht_151 #f #f)" "(void)" -"(let-values()(hash-set! ht_150 #f null)))" +"(let-values()(hash-set! ht_151 #f null)))" "(hash-for-each" -" ht_150" -"(lambda(k_38 v_207)" -"(hash-set! ht_150 k_38(cons dir_1 v_207))))))" +" ht_151" +"(lambda(k_38 v_205)" +"(hash-set! ht_151 k_38(cons dir_1 v_205))))))" "(let-values()" "(let-values(((s_485)(string->symbol(car p_67))))" "(hash-set!" -" ht_150" +" ht_151" " s_485" -"(cons(box dir_1)(hash-ref ht_150 s_485 null)))))))))" +"(cons(box dir_1)(hash-ref ht_151 s_485 null)))))))))" "(void)))" -" v_206)" +" v_204)" "(hash-for-each" -" ht_150" -"(lambda(k_39 v_208)(hash-set! ht_150 k_39(reverse$1 v_208))))" -"(hash-set! links-cache links-path_0(cons ts_1 ht_150))" -" ht_150))))))))))))))))))))))" +" ht_151" +"(lambda(k_39 v_206)(hash-set! ht_151 k_39(reverse$1 v_206))))" +"(hash-set! links-cache links-path_0(cons ts_1 ht_151))" +" ht_151))))))))))))))))))))))" "(define-values" "(normalize-collection-reference)" "(lambda(collection_2 collection-path_2)" @@ -47480,7 +47415,7 @@ static const char *startup_source = "(let-values(((collection_3 collection-path_3)" "(normalize-collection-reference collection-in_0 collection-path-in_0)))" "(let-values(((all-paths_0)" -"(let-values(((sym_95)" +"(let-values(((sym_96)" "(string->symbol" "(if(path? collection_3)(path->string collection_3) collection_3))))" "((letrec-values(((loop_47)" @@ -47495,14 +47430,14 @@ static const char *startup_source = "(if(hash?(car l_81))" "(let-values()" "(append" -"(map2 box(hash-ref(car l_81) sym_95 null))" +"(map2 box(hash-ref(car l_81) sym_96 null))" "(hash-ref(car l_81) #f null)" "(loop_47(cdr l_81))))" "(let-values()" -"(let-values(((ht_151)(get-linked-collections(car l_81))))" +"(let-values(((ht_152)(get-linked-collections(car l_81))))" "(append" -"(hash-ref ht_151 sym_95 null)" -"(hash-ref ht_151 #f null)" +"(hash-ref ht_152 sym_96 null)" +"(hash-ref ht_152 #f null)" "(loop_47(cdr l_81))))))))))))" " loop_47)" "(1/current-library-collection-links)))))" @@ -47692,13 +47627,13 @@ static const char *startup_source = "(if(null? l_83)" " null" "(let-values(((collects-path_1)(car l_83)))" -"(let-values(((v_209)" +"(let-values(((v_207)" "(exe-relative-path->complete-path" " collects-path_1)))" -"(if v_209" +"(if v_207" "(cons" "(simplify-path" -"(path->complete-path v_209(current-directory)))" +"(path->complete-path v_207(current-directory)))" "(loop_105(cdr l_83)))" "(loop_105(cdr l_83))))))))))" " loop_105)" @@ -47718,14 +47653,14 @@ static const char *startup_source = "(let-values()" "(make-parameter" " #f" -"(lambda(v_210)" +"(lambda(v_208)" "(begin" -"(if((lambda(x_83)" -"(let-values(((or-part_11)(not x_83)))(if or-part_11 or-part_11(prop:readtable? x_83))))" -" v_210)" +"(if((lambda(x_84)" +"(let-values(((or-part_11)(not x_84)))(if or-part_11 or-part_11(prop:readtable? x_84))))" +" v_208)" "(void)" -" (let-values () (raise-argument-error 'current-readtable \"(or/c prop:readtable? #f)\" v_210)))" -" v_210))))))" +" (let-values () (raise-argument-error 'current-readtable \"(or/c prop:readtable? #f)\" v_208)))" +" v_208))))))" "(define-values" "(struct:read-config/outer" " read-config/outer1.1" @@ -47852,43 +47787,43 @@ static const char *startup_source = " indentations_0" " keep-comment?_0))))" "(define-values(read-config-wrap)(lambda(v_27)(begin(read-config/outer-wrap v_27))))" -"(define-values(read-config-line)(lambda(v_211)(begin(read-config/outer-line v_211))))" -"(define-values(read-config-col)(lambda(v_212)(begin(read-config/outer-col v_212))))" -"(define-values(read-config-pos)(lambda(v_213)(begin(read-config/outer-pos v_213))))" -"(define-values(read-config-indentations)(lambda(v_214)(begin(read-config/outer-indentations v_214))))" +"(define-values(read-config-line)(lambda(v_209)(begin(read-config/outer-line v_209))))" +"(define-values(read-config-col)(lambda(v_210)(begin(read-config/outer-col v_210))))" +"(define-values(read-config-pos)(lambda(v_211)(begin(read-config/outer-pos v_211))))" +"(define-values(read-config-indentations)(lambda(v_212)(begin(read-config/outer-indentations v_212))))" "(define-values(read-config-keep-comment?)(lambda(v_98)(begin(read-config/outer-keep-comment? v_98))))" "(define-values" "(read-config-readtable)" -"(lambda(v_215)(begin(read-config/inner-readtable(read-config/outer-inner v_215)))))" +"(lambda(v_213)(begin(read-config/inner-readtable(read-config/outer-inner v_213)))))" "(define-values" "(read-config-next-readtable)" -"(lambda(v_216)(begin(read-config/inner-next-readtable(read-config/outer-inner v_216)))))" +"(lambda(v_214)(begin(read-config/inner-next-readtable(read-config/outer-inner v_214)))))" "(define-values" "(read-config-for-syntax?)" -"(lambda(v_217)(begin(read-config/inner-for-syntax?(read-config/outer-inner v_217)))))" +"(lambda(v_215)(begin(read-config/inner-for-syntax?(read-config/outer-inner v_215)))))" "(define-values(read-config-source)(lambda(v_76)(begin(read-config/inner-source(read-config/outer-inner v_76)))))" "(define-values" "(read-config-read-compiled)" -"(lambda(v_218)(begin(read-config/inner-read-compiled(read-config/outer-inner v_218)))))" +"(lambda(v_216)(begin(read-config/inner-read-compiled(read-config/outer-inner v_216)))))" "(define-values" "(read-config-dynamic-require)" -"(lambda(v_219)(begin(read-config/inner-dynamic-require(read-config/outer-inner v_219)))))" +"(lambda(v_217)(begin(read-config/inner-dynamic-require(read-config/outer-inner v_217)))))" "(define-values" "(read-config-module-declared?)" -"(lambda(v_220)(begin(read-config/inner-module-declared?(read-config/outer-inner v_220)))))" +"(lambda(v_218)(begin(read-config/inner-module-declared?(read-config/outer-inner v_218)))))" "(define-values" "(read-config-coerce)" -"(lambda(v_209)(begin(read-config/inner-coerce(read-config/outer-inner v_209)))))" +"(lambda(v_207)(begin(read-config/inner-coerce(read-config/outer-inner v_207)))))" "(define-values" "(read-config-coerce-key)" -"(lambda(v_221)(begin(read-config/inner-coerce-key(read-config/outer-inner v_221)))))" +"(lambda(v_219)(begin(read-config/inner-coerce-key(read-config/outer-inner v_219)))))" "(define-values" "(read-config-parameter-override)" -"(lambda(v_222)(begin(read-config/inner-parameter-override(read-config/outer-inner v_222)))))" +"(lambda(v_220)(begin(read-config/inner-parameter-override(read-config/outer-inner v_220)))))" "(define-values" "(read-config-parameter-cache)" "(lambda(v_40)(begin(read-config/inner-parameter-cache(read-config/outer-inner v_40)))))" -"(define-values(read-config-st)(lambda(v_223)(begin(read-config/inner-st(read-config/outer-inner v_223)))))" +"(define-values(read-config-st)(lambda(v_221)(begin(read-config/inner-st(read-config/outer-inner v_221)))))" "(define-values" "(struct:read-config-state" " read-config-state3.1" @@ -47960,16 +47895,16 @@ static const char *startup_source = "(let-values(((or-part_304) dynamic-require_1))" "(if or-part_304" " or-part_304" -"(lambda(mod-path_26 sym_96 failure-k_0)" +"(lambda(mod-path_26 sym_97 failure-k_0)" " (error 'read \"no `dynamic-require` provided\"))))" "(let-values(((or-part_178) module-declared?_1))" "(if or-part_178" " or-part_178" " (lambda (mod-path_27) (error 'read \"no `module-declare?` provided\"))))" "(let-values(((or-part_221) coerce_1))" -"(if or-part_221 or-part_221(lambda(for-syntax?_2 v_145 srcloc_9) v_145)))" +"(if or-part_221 or-part_221(lambda(for-syntax?_2 v_144 srcloc_9) v_144)))" "(let-values(((or-part_305) coerce-key_1))" -"(if or-part_305 or-part_305(lambda(for-syntax?_3 v_147) v_147)))" +"(if or-part_305 or-part_305(lambda(for-syntax?_3 v_102) v_102)))" " #f" " #f" " #f" @@ -47994,14 +47929,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_224) config_0))" -"(let-values(((the-struct_77) v_224))" -"(if(read-config/outer? the-struct_77)" +"(let-values(((v_222) config_0))" +"(let-values(((the-struct_78) v_222))" +"(if(read-config/outer? the-struct_78)" "(let-values(((wrap55_0) wrap_5)" "((keep-comment?56_0) keep-comment?_2)" "((inner57_0)" -"(let-values(((the-struct_78)(read-config/outer-inner v_224)))" -"(if(read-config/inner? the-struct_78)" +"(let-values(((the-struct_79)(read-config/outer-inner v_222)))" +"(if(read-config/inner? the-struct_79)" "(let-values(((for-syntax?58_0) for-syntax?_4)" "((readtable59_0) readtable_2)" "((next-readtable60_0) next-readtable_2)" @@ -48013,25 +47948,25 @@ static const char *startup_source = " readtable59_0" " next-readtable60_0" " for-syntax?58_0" -"(read-config/inner-source the-struct_78)" -"(read-config/inner-read-compiled the-struct_78)" -"(read-config/inner-dynamic-require the-struct_78)" -"(read-config/inner-module-declared? the-struct_78)" -"(read-config/inner-coerce the-struct_78)" -"(read-config/inner-coerce-key the-struct_78)" -"(read-config/inner-parameter-override the-struct_78)" -"(read-config/inner-parameter-cache the-struct_78)" +"(read-config/inner-source the-struct_79)" +"(read-config/inner-read-compiled the-struct_79)" +"(read-config/inner-dynamic-require the-struct_79)" +"(read-config/inner-module-declared? the-struct_79)" +"(read-config/inner-coerce the-struct_79)" +"(read-config/inner-coerce-key the-struct_79)" +"(read-config/inner-parameter-override the-struct_79)" +"(read-config/inner-parameter-cache the-struct_79)" " st61_0))" -" (raise-argument-error 'struct-copy \"read-config/inner?\" the-struct_78)))))" +" (raise-argument-error 'struct-copy \"read-config/inner?\" the-struct_79)))))" "(read-config/outer1.1" " inner57_0" " wrap55_0" -"(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-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?56_0))" -" (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_77)))))))))))))))" +" (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_78)))))))))))))))" "(define-values" "(port+config->srcloc49.1)" "(lambda(end-pos45_0 in47_0 config48_0)" @@ -48042,16 +47977,16 @@ static const char *startup_source = "(let-values(((given-end-pos_0) end-pos45_0))" "(let-values()" "(let-values(((end-pos_0)" -"(let-values(((or-part_283) given-end-pos_0))" -"(if or-part_283" -" or-part_283" +"(let-values(((or-part_306) given-end-pos_0))" +"(if or-part_306" +" or-part_306" "(let-values(((end-line_0 end-col_0 end-pos_1)(port-next-location in_1)))" " end-pos_1)))))" "(srcloc" -"(let-values(((or-part_306)(read-config-source config_1)))" -"(if or-part_306" -" or-part_306" -" (let-values (((or-part_307) (object-name in_1))) (if or-part_307 or-part_307 \"UNKNOWN\"))))" +"(let-values(((or-part_307)(read-config-source config_1)))" +"(if or-part_307" +" or-part_307" +" (let-values (((or-part_308) (object-name in_1))) (if or-part_308 or-part_308 \"UNKNOWN\"))))" "(read-config-line config_1)" "(read-config-col config_1)" "(read-config-pos config_1)" @@ -48062,57 +47997,57 @@ static const char *startup_source = "(reading-at)" "(lambda(config_2 line_2 col_1 pos_109)" "(begin" -"(let-values(((v_225) config_2))" -"(let-values(((the-struct_79) v_225))" -"(if(read-config/outer? the-struct_79)" +"(let-values(((v_223) config_2))" +"(let-values(((the-struct_80) v_223))" +"(if(read-config/outer? the-struct_80)" "(let-values(((line62_0) line_2)" "((col63_0) col_1)" "((pos64_0) pos_109)" -"((inner65_0)(read-config/outer-inner v_225)))" +"((inner65_0)(read-config/outer-inner v_223)))" "(read-config/outer1.1" " inner65_0" -"(read-config/outer-wrap the-struct_79)" +"(read-config/outer-wrap the-struct_80)" " line62_0" " col63_0" " pos64_0" -"(read-config/outer-indentations the-struct_79)" -"(read-config/outer-keep-comment? the-struct_79)))" -" (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_79)))))))" -"(define-values" -"(disable-wrapping)" -"(lambda(config_3)" -"(begin" -"(let-values(((v_226) config_3))" -"(let-values(((the-struct_80) v_226))" -"(if(read-config/outer? the-struct_80)" -"(let-values(((wrap66_0) #f)((inner67_0)(read-config/outer-inner v_226)))" -"(read-config/outer1.1" -" inner67_0" -" wrap66_0" -"(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" -"(keep-comment)" -"(lambda(config_4)" +"(disable-wrapping)" +"(lambda(config_3)" "(begin" -"(let-values(((v_227) config_4))" -"(let-values(((the-struct_81) v_227))" +"(let-values(((v_224) config_3))" +"(let-values(((the-struct_81) v_224))" "(if(read-config/outer? the-struct_81)" -"(let-values(((keep-comment?68_0) #t)((inner69_0)(read-config/outer-inner v_227)))" +"(let-values(((wrap66_0) #f)((inner67_0)(read-config/outer-inner v_224)))" "(read-config/outer1.1" -" inner69_0" -"(read-config/outer-wrap the-struct_81)" +" inner67_0" +" wrap66_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)" -" keep-comment?68_0))" +"(read-config/outer-keep-comment? the-struct_81)))" " (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_81)))))))" "(define-values" +"(keep-comment)" +"(lambda(config_4)" +"(begin" +"(let-values(((v_225) config_4))" +"(let-values(((the-struct_82) v_225))" +"(if(read-config/outer? the-struct_82)" +"(let-values(((keep-comment?68_0) #t)((inner69_0)(read-config/outer-inner v_225)))" +"(read-config/outer1.1" +" inner69_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)" +" keep-comment?68_0))" +" (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_82)))))))" +"(define-values" "(discard-comment)" "(lambda(config_5)" "(begin" @@ -48120,18 +48055,18 @@ static const char *startup_source = "(let-values() config_5)" "(let-values()" "(let-values(((v_81) config_5))" -"(let-values(((the-struct_82) v_81))" -"(if(read-config/outer? the-struct_82)" +"(let-values(((the-struct_83) v_81))" +"(if(read-config/outer? the-struct_83)" "(let-values(((keep-comment?70_0) #f)((inner71_0)(read-config/outer-inner v_81)))" "(read-config/outer1.1" " inner71_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_83)" +"(read-config/outer-line the-struct_83)" +"(read-config/outer-col the-struct_83)" +"(read-config/outer-pos the-struct_83)" +"(read-config/outer-indentations the-struct_83)" " keep-comment?70_0))" -" (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_82)))))))))" +" (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_83)))))))))" "(define-values" "(next-readtable)" "(lambda(config_6)" @@ -48139,67 +48074,67 @@ 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_228) config_6))" -"(let-values(((the-struct_83) v_228))" -"(if(read-config/outer? the-struct_83)" +"(let-values(((v_226) config_6))" +"(let-values(((the-struct_84) v_226))" +"(if(read-config/outer? the-struct_84)" "(let-values(((inner72_0)" -"(let-values(((the-struct_84)(read-config/outer-inner v_228)))" -"(if(read-config/inner? the-struct_84)" +"(let-values(((the-struct_85)(read-config/outer-inner v_226)))" +"(if(read-config/inner? the-struct_85)" "(let-values(((readtable73_0)(read-config-next-readtable config_6)))" "(read-config/inner2.1" " readtable73_0" -"(read-config/inner-next-readtable the-struct_84)" -"(read-config/inner-for-syntax? the-struct_84)" -"(read-config/inner-source the-struct_84)" -"(read-config/inner-read-compiled the-struct_84)" -"(read-config/inner-dynamic-require the-struct_84)" -"(read-config/inner-module-declared? the-struct_84)" -"(read-config/inner-coerce the-struct_84)" -"(read-config/inner-coerce-key the-struct_84)" -"(read-config/inner-parameter-override the-struct_84)" -"(read-config/inner-parameter-cache the-struct_84)" -"(read-config/inner-st the-struct_84)))" -" (raise-argument-error 'struct-copy \"read-config/inner?\" the-struct_84)))))" +"(read-config/inner-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/outer1.1" " inner72_0" -"(read-config/outer-wrap the-struct_83)" -"(read-config/outer-line the-struct_83)" -"(read-config/outer-col the-struct_83)" -"(read-config/outer-pos the-struct_83)" -"(read-config/outer-indentations the-struct_83)" -"(read-config/outer-keep-comment? the-struct_83)))" -" (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_83)))))))))" +"(read-config/outer-wrap the-struct_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)))))))))" "(define-values" "(coerce)" -"(lambda(val_77 in_2 config_7)" +"(lambda(val_78 in_2 config_7)" "(begin" "(let-values(((for-syntax?_5)(read-config-for-syntax? config_7)))" "((read-config-coerce config_7)" " for-syntax?_5" -" val_77" +" val_78" "(if for-syntax?_5" "(let-values(((in1_0) in_2)((config2_0) config_7))(port+config->srcloc49.1 #f in1_0 config2_0))" " #f))))))" -"(define-values(default-reader-guard$1)(lambda(v_229)(begin 'default-reader-guard v_229)))" +"(define-values(default-reader-guard$1)(lambda(v_227)(begin 'default-reader-guard v_227)))" "(define-values" "(1/current-reader-guard)" "(make-parameter" " default-reader-guard$1" -"(lambda(v_230)" +"(lambda(v_228)" "(begin" -"(if(if(procedure? v_230)(procedure-arity-includes? v_230 1) #f)" +"(if(if(procedure? v_228)(procedure-arity-includes? v_228 1) #f)" "(void)" -" (let-values () (raise-argument-error 'current-reader-guard \"(procedure-arity-includes/c 1)\" v_230)))" -" v_230))))" +" (let-values () (raise-argument-error 'current-reader-guard \"(procedure-arity-includes/c 1)\" v_228)))" +" v_228))))" "(define-values(1/read-square-bracket-as-paren)(make-parameter #t(lambda(v_1)(if v_1 #t #f))))" -"(define-values(1/read-curly-brace-as-paren)(make-parameter #t(lambda(v_231)(if v_231 #t #f))))" -"(define-values(1/read-square-bracket-with-tag)(make-parameter #f(lambda(v_232)(if v_232 #t #f))))" +"(define-values(1/read-curly-brace-as-paren)(make-parameter #t(lambda(v_229)(if v_229 #t #f))))" +"(define-values(1/read-square-bracket-with-tag)(make-parameter #f(lambda(v_230)(if v_230 #t #f))))" "(define-values(1/read-curly-brace-with-tag)(make-parameter #f(lambda(v_66)(if v_66 #t #f))))" "(define-values(1/read-cdot)(make-parameter #f(lambda(v_31)(if v_31 #t #f))))" "(define-values(1/read-accept-graph)(make-parameter #t(lambda(v_67)(if v_67 #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_233)(if v_233 #t #f))))" -"(define-values(1/read-decimal-as-inexact)(make-parameter #t(lambda(v_234)(if v_234 #t #f))))" +"(define-values(1/read-accept-box)(make-parameter #t(lambda(v_231)(if v_231 #t #f))))" +"(define-values(1/read-decimal-as-inexact)(make-parameter #t(lambda(v_232)(if v_232 #t #f))))" "(define-values(1/read-accept-dot)(make-parameter #t(lambda(v_68)(if v_68 #t #f))))" "(define-values(1/read-accept-infix-dot)(make-parameter #t(lambda(v_32)(if v_32 #t #f))))" "(define-values(1/read-accept-quasiquote)(make-parameter #t(lambda(v_3)(if v_3 #t #f))))" @@ -48220,37 +48155,37 @@ static const char *startup_source = "(override-parameter)" "(lambda(param_1 config_9 v_30)" "(begin" -"(let-values(((v_235) config_9))" -"(let-values(((the-struct_85) v_235))" -"(if(read-config/outer? the-struct_85)" +"(let-values(((v_233) config_9))" +"(let-values(((the-struct_86) v_233))" +"(if(read-config/outer? the-struct_86)" "(let-values(((inner1_0)" -"(let-values(((the-struct_86)(read-config/outer-inner v_235)))" -"(if(read-config/inner? the-struct_86)" +"(let-values(((the-struct_87)(read-config/outer-inner v_233)))" +"(if(read-config/inner? the-struct_87)" "(let-values(((parameter-override2_0)" "(hash-set(read-config-parameter-override config_9) param_1 v_30)))" "(read-config/inner2.1" -"(read-config/inner-readtable the-struct_86)" -"(read-config/inner-next-readtable the-struct_86)" -"(read-config/inner-for-syntax? the-struct_86)" -"(read-config/inner-source the-struct_86)" -"(read-config/inner-read-compiled the-struct_86)" -"(read-config/inner-dynamic-require the-struct_86)" -"(read-config/inner-module-declared? the-struct_86)" -"(read-config/inner-coerce the-struct_86)" -"(read-config/inner-coerce-key the-struct_86)" +"(read-config/inner-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)" " parameter-override2_0" -"(read-config/inner-parameter-cache the-struct_86)" -"(read-config/inner-st the-struct_86)))" -" (raise-argument-error 'struct-copy \"read-config/inner?\" the-struct_86)))))" +"(read-config/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/outer1.1" " inner1_0" -"(read-config/outer-wrap the-struct_85)" -"(read-config/outer-line the-struct_85)" -"(read-config/outer-col the-struct_85)" -"(read-config/outer-pos the-struct_85)" -"(read-config/outer-indentations the-struct_85)" -"(read-config/outer-keep-comment? the-struct_85)))" -" (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_85)))))))" +"(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)))))))" "(define-values" "(force-parameters!)" "(lambda(config_10)" @@ -48342,23 +48277,23 @@ static const char *startup_source = "(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_83)(car args_8)))" +"(let-values(((key_84)(car args_8)))" "(let-values((()" "(begin" -"(if(let-values(((or-part_165)(not key_83)))" -"(if or-part_165 or-part_165(char? key_83)))" +"(if(let-values(((or-part_165)(not key_84)))" +"(if or-part_165 or-part_165(char? key_84)))" "(void)" "(let-values()" "(raise-argument-error" " 'make-readtable" " \"(or/c char? #f)\"" -" key_83)))" +" key_84)))" "(values))))" "(let-values((()" "(begin" "(if(null? args_8)" "(let-values()" -"(if key_83" +"(if key_84" "(let-values()" "(raise-arguments-error" " 'make-readtable" @@ -48366,7 +48301,7 @@ static const char *startup_source = " \"expected 'terminating-macro, 'non-terminating-macro, 'dispatch-macro,\"" " \" or character argument after character argument\")" " \"character\"" -" key_83))" +" key_84))" "(let-values()" "(raise-arguments-error" " 'make-readtable" @@ -48376,7 +48311,7 @@ static const char *startup_source = "(let-values(((mode_17)(cadr args_8)))" "(let-values((()" "(begin" -"(if key_83" +"(if key_84" "(let-values()" "(if(let-values(((or-part_259)" "(eq? mode_17 'terminating-macro)))" @@ -48413,7 +48348,7 @@ static const char *startup_source = "(let-values()" "(raise-arguments-error" " 'make-readtable" -"(if key_83" +"(if key_84" " \"expected readtable or #f argument after character argument\"" " \"expected procedure argument after symbol argument\")" " \"given\"" @@ -48422,7 +48357,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_83)" +"(if(not key_84)" "(let-values()" "(begin" "(if(if(procedure? target_0)" @@ -48456,7 +48391,7 @@ static const char *startup_source = " rest-args_0" " symbol-parser_0" " char-ht_0" -"(hash-set dispatch-ht_0 key_83 target_0)" +"(hash-set dispatch-ht_0 key_84 target_0)" " delimiter-ht_0)))" "(if(char? mode_17)" "(let-values()" @@ -48487,13 +48422,13 @@ static const char *startup_source = "(if actual-target_0" "(hash-set" " char-ht_0" -" key_83" +" key_84" " actual-target_0)" -"(hash-remove char-ht_0 key_83))))" +"(hash-remove char-ht_0 key_84))))" "(let-values(((new-delimiter-ht_0)" "(hash-set" " delimiter-ht_0" -" key_83" +" key_84" "(if target_0" "(hash-ref" "(readtable-delimiter-ht target_0)" @@ -48520,11 +48455,11 @@ static const char *startup_source = " target_0)))" "(values))))" "(let-values(((new-char-ht_1)" -"(hash-set char-ht_0 key_83 target_0)))" +"(hash-set char-ht_0 key_84 target_0)))" "(let-values(((new-delimiter-ht_1)" "(hash-set" " delimiter-ht_0" -" key_83" +" key_84" "(if(eq? mode_17 'terminating-macro)" " 'delimit" " 'no-delimit))))" @@ -48551,7 +48486,7 @@ static const char *startup_source = "(lambda(c_58 config_11)" "(begin" "(let-values(((rt_2)(read-config-readtable config_11))((c_59) c_58))" -"(if(let-values(((or-part_308)(not rt_2)))(if or-part_308 or-part_308(not(char? c_59))))" +"(if(let-values(((or-part_309)(not rt_2)))(if or-part_309 or-part_309(not(char? c_59))))" "(let-values() c_59)" "(let-values()(*readtable-effective-char rt_2 c_59)))))))" "(define-values" @@ -48575,7 +48510,7 @@ static const char *startup_source = "(lambda(handler_0 c_62 in_3 config_14 line_3 col_2 pos_110)" "(begin" "(let-values(((for-syntax?_6)(read-config-for-syntax? config_14)))" -"(let-values(((v_236)" +"(let-values(((v_234)" "(if(not for-syntax?_6)" "(let-values()" "(with-continuation-mark" @@ -48597,7 +48532,7 @@ static const char *startup_source = " config_14)" "(let-values()" "(handler_0 c_62 in_3(read-config-source config_14) line_3 col_2 pos_110)))))))" -"(if(1/special-comment? v_236) v_236(coerce v_236 in_3 config_14)))))))" +"(if(1/special-comment? v_234) v_234(coerce v_234 in_3 config_14)))))))" "(define-values" "(1/readtable-mapping)" "(lambda(rt_5 c_63)" @@ -48630,24 +48565,24 @@ static const char *startup_source = "(readtable-equivalent-chars)" "(lambda(rt_6 c_64)" "(begin" -"(let-values(((ht_152)(readtable-char-ht rt_6)))" +"(let-values(((ht_153)(readtable-char-ht rt_6)))" "(append" -"(if(hash-ref ht_152 c_64 #f) null(list c_64))" +"(if(hash-ref ht_153 c_64 #f) null(list c_64))" "(reverse$1" -"(let-values(((ht_153) ht_152))" +"(let-values(((ht_154) ht_153))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_153)))" -"((letrec-values(((for-loop_273)" +"(let-values()(check-in-hash ht_154)))" +"((letrec-values(((for-loop_275)" "(lambda(fold-var_85 i_168)" "(begin" " 'for-loop" "(if i_168" -"(let-values(((k_40 v_91)(hash-iterate-key+value ht_153 i_168)))" +"(let-values(((k_40 v_94)(hash-iterate-key+value ht_154 i_168)))" "(let-values(((fold-var_284)" "(let-values(((fold-var_88) fold-var_85))" -"(if(eqv? v_91 c_64)" +"(if(eqv? v_94 c_64)" "(let-values(((fold-var_238) fold-var_88))" "(let-values(((fold-var_13)" "(let-values()" @@ -48655,12 +48590,12 @@ static const char *startup_source = "(values fold-var_13)))" " fold-var_88))))" "(if(not #f)" -"(for-loop_273 fold-var_284(hash-iterate-next ht_153 i_168))" +"(for-loop_275 fold-var_284(hash-iterate-next ht_154 i_168))" " fold-var_284)))" " fold-var_85)))))" -" for-loop_273)" +" for-loop_275)" " null" -"(hash-iterate-first ht_153))))))))))" +"(hash-iterate-first ht_154))))))))))" "(define-values" "(struct:special special1.1 special? special-value)" "(let-values(((struct:_83 make-_83 ?_83 -ref_83 -set!_83)" @@ -48833,10 +48768,10 @@ static const char *startup_source = " in_10" " special1.1" " source_5))))" -"(if(let-values(((or-part_309)" +"(if(let-values(((or-part_310)" "(eof-object? c_66)))" -"(if or-part_309" -" or-part_309" +"(if or-part_310" +" or-part_310" "(eqv?" " '#\\newline" "(effective-char c_66 config_15))))" @@ -48890,8 +48825,8 @@ static const char *startup_source = "(if(eq? c_69 'special)" "(special1.1 'special)" " c_69)))))" -"(let-values(((or-part_310)(eqv? '#\\space c3_2)))" -"(if or-part_310 or-part_310(eqv? '#\\/ c3_2))))" +"(let-values(((or-part_311)(eqv? '#\\space c3_2)))" +"(if or-part_311 or-part_311(eqv? '#\\/ c3_2))))" " #f)" " #f)" "(let-values()" @@ -48916,13 +48851,13 @@ static const char *startup_source = " #f)" "(let-values()" "(let-values((()(begin(consume-char in_5 '#\\;)(values))))" -"(let-values(((v_237)(read-one_0 #f in_5 config_15)))" +"(let-values(((v_235)(read-one_0 #f in_5 config_15)))" "(begin" -"(if(eof-object? v_237)" +"(if(eof-object? v_235)" "(let-values()" "(let-values(((in1_2) in_5)" "((config2_2) config_15)" -"((v3_0) v_237)" +"((v3_0) v_235)" "((temp4_2)" " \"expected a commented-out element for `~a;`, but found end-of-file\")" "((ec5_0) ec_0))" @@ -49023,9 +48958,9 @@ static const char *startup_source = "(let-values(((or-part_26)(char-whitespace? dc_0)))" "(if or-part_26" " or-part_26" -"(let-values(((or-part_311)(char=? dc_0 '#\\()))" -"(if or-part_311" -" or-part_311" +"(let-values(((or-part_312)(char=? dc_0 '#\\()))" +"(if or-part_312" +" or-part_312" "(let-values(((or-part_292)(char=? dc_0 '#\\))))" "(if or-part_292" " or-part_292" @@ -49126,7 +49061,7 @@ static const char *startup_source = " (let-values () (format \"~a, ~a, or ~a\" p_63 s_10 c_72))" "(if(let-values(((or-part_298) s_10))(if or-part_298 or-part_298 c_72))" "(let-values()" -" (format \"~a or ~a\" p_63 (let-values (((or-part_309) s_10)) (if or-part_309 or-part_309 c_72))))" +" (format \"~a or ~a\" p_63 (let-values (((or-part_310) s_10)) (if or-part_310 or-part_310 c_72))))" "(let-values() p_63)))))))))" "(define-values" "(struct:accum-string" @@ -49315,15 +49250,15 @@ static const char *startup_source = "(void)" "(let-values()(check-list lst_7)))" "((letrec-values(((for-loop_0)" -"(lambda(result_118 lst_8)" +"(lambda(result_119 lst_8)" "(begin" " 'for-loop" "(if(pair? lst_8)" "(let-values(((indt_3)(unsafe-car lst_8))" "((rest_0)(unsafe-cdr lst_8)))" -"(let-values(((result_81)" +"(let-values(((result_82)" "(let-values()" -"(let-values(((result_119)" +"(let-values(((result_120)" "(let-values()" "(let-values()" "(if(char=?" @@ -49332,15 +49267,15 @@ static const char *startup_source = " indt_3))" " \"missing\"" " #f)))))" -"(values result_119)))))" +"(values result_120)))))" "(if(if(not" -"((lambda x_84 result_81)" +"((lambda x_85 result_82)" " indt_3))" "(not #f)" " #f)" -"(for-loop_0 result_81 rest_0)" -" result_81)))" -" result_118)))))" +"(for-loop_0 result_82 rest_0)" +" result_82)))" +" result_119)))))" " for-loop_0)" " #f" " lst_7)))))" @@ -49392,26 +49327,26 @@ static const char *startup_source = "(let-values(((head_0) #f))" "(let-values(((indentation_0)(make-indentation closer_1 in_20 seq-config_0)))" "(let-values(((config_34)" -"(let-values(((v_238) elem-config_0))" -"(let-values(((the-struct_87) v_238))" -"(if(read-config/outer? the-struct_87)" +"(let-values(((v_236) elem-config_0))" +"(let-values(((the-struct_88) v_236))" +"(if(read-config/outer? the-struct_88)" "(let-values(((indentations20_0)" "(cons" " indentation_0" "(read-config-indentations seq-config_0)))" -"((inner21_0)(read-config/outer-inner v_238)))" +"((inner21_0)(read-config/outer-inner v_236)))" "(read-config/outer1.1" " inner21_0" -"(read-config/outer-wrap the-struct_87)" -"(read-config/outer-line the-struct_87)" -"(read-config/outer-col the-struct_87)" -"(read-config/outer-pos the-struct_87)" +"(read-config/outer-wrap the-struct_88)" +"(read-config/outer-line the-struct_88)" +"(read-config/outer-col the-struct_88)" +"(read-config/outer-pos the-struct_88)" " indentations20_0" -"(read-config/outer-keep-comment? the-struct_87)))" +"(read-config/outer-keep-comment? the-struct_88)))" "(raise-argument-error" " 'struct-copy" " \"read-config/outer?\"" -" the-struct_87))))))" +" the-struct_88))))))" "(let-values(((open-end-line_0 open-end-col_0 open-end-pos_0)" "(port-next-location in_20)))" "(let-values(((config/keep-comment_0)(keep-comment config_34)))" @@ -49540,7 +49475,7 @@ static const char *startup_source = " temp32_1" "(list)))))" "(values))))" -"(let-values(((v_239)" +"(let-values(((v_237)" "(read-one/not-eof_0" " #f" " first-read-one_1" @@ -49561,11 +49496,11 @@ static const char *startup_source = "(let-values()" "(if(null?" " accum_0)" -" v_239" +" v_237" "(append" "(reverse$1" " accum_0)" -" v_239)))" +" v_237)))" "(if(if(eqv?" " rest-ec_0" " '#\\.)" @@ -49604,7 +49539,7 @@ static const char *startup_source = "(begin" "(set! head_0" "(box" -" v_239))" +" v_237))" "(values))))" "(let-values(((dot2-line_0" " dot2-col_0" @@ -49689,12 +49624,12 @@ static const char *startup_source = " temp40_2" "(list)))))))))))))" "(let-values()" -"(let-values(((v_138)" +"(let-values(((v_137)" "(read-one/not-eof_0" " c_74" " first-read-one_1" " config/keep-comment_0)))" -"(if(1/special-comment? v_138)" +"(if(1/special-comment? v_137)" "(let-values()" "(loop_109" " depth_11" @@ -49706,13 +49641,13 @@ static const char *startup_source = "(let-values()" "(loop_109" " depth_11" -"(cons v_138 accum_0)" +"(cons v_137 accum_0)" " #f" " #f" " read-one_1))" "(let-values()" "(cons" -" v_138" +" v_137" "(loop_109" "(add1 depth_11)" " null" @@ -49768,11 +49703,11 @@ static const char *startup_source = "(consume-char in_6 c_68)" "(if accum-str_0(let-values()(accum-string-add! accum-str_0 c_68))(void))" "((letrec-values(((loop_110)" -"(lambda(v_203 max-count_1)" +"(lambda(v_201 max-count_1)" "(begin" " 'loop" "(if(zero? max-count_1)" -"(let-values() v_203)" +"(let-values() v_201)" "(let-values()" "(let-values(((c_76)" "(let-values(((in_25) in_6)" @@ -49796,9 +49731,9 @@ static const char *startup_source = "(let-values()(accum-string-add! accum-str_0 c_76))" "(void))" "(loop_110" -"(+(digit->number c_76)(* v_203 base_15))" +"(+(digit->number c_76)(* v_201 base_15))" "(sub1 max-count_1))))" -"(let-values() v_203)))))))))" +"(let-values() v_201)))))))))" " loop_110)" "(+(digit->number c_68)(* init-v_0 base_15))" "(sub1 max-count_0))))" @@ -49824,8 +49759,8 @@ static const char *startup_source = "(let-values(((or-part_266)(if(char>=? c_77 '#\\0)(char<=? c_77 '#\\9) #f)))" "(if or-part_266" " or-part_266" -"(let-values(((or-part_312)(if(char>=? c_77 '#\\A)(char<=? c_77 '#\\F) #f)))" -"(if or-part_312 or-part_312(if(char>=? c_77 '#\\a)(char<=? c_77 '#\\f) #f))))))))" +"(let-values(((or-part_313)(if(char>=? c_77 '#\\A)(char<=? c_77 '#\\F) #f)))" +"(if or-part_313 or-part_313(if(char>=? c_77 '#\\a)(char<=? c_77 '#\\f) #f))))))))" "(define-values" "(digit->number)" "(lambda(c_78)" @@ -50034,7 +49969,7 @@ static const char *startup_source = "(char=? i_169 '#\\E)))" " 'exact" " 'inexact))" -"((temp79_0)" +"((temp79_1)" "(if(eq? convert-mode_2 'read)" " 'must-read" " convert-mode_2)))" @@ -50046,7 +49981,7 @@ static const char *startup_source = " end75_0" " radix76_0" " temp78_2" -" temp79_0)))))" +" temp79_1)))))" "(let-values()" "(if(let-values(((or-part_212) radix-set?_0))" "(if or-part_212 or-part_212 in-complex_0))" @@ -50097,13 +50032,13 @@ static const char *startup_source = "(read-special-number s_17 start_43 end_33 convert-mode_2)" " #f)))" "(if c1_29" -"((lambda(v_240)" +"((lambda(v_238)" "(if(eq? exactness_0 'exact)" "(let-values()" "(if(eq? convert-mode_2 'must-read)" -" (let-values () (format \"no exact representation for `~a`\" v_240))" +" (let-values () (format \"no exact representation for `~a`\" v_238))" "(let-values() #f)))" -"(let-values() v_240)))" +"(let-values() v_238)))" " c1_29)" "(let-values(((c2_3)" "(if(char-sign? c_64)" @@ -50132,8 +50067,8 @@ static const char *startup_source = "((temp93_1) 'i)" "((v94_0) v_39)" "((temp95_0)" -"(lambda(v_241 v2_0)" -"(begin 'temp95(make-rectangular v_241 v2_0)))))" +"(lambda(v_239 v2_0)" +"(begin 'temp95(make-rectangular v_239 v2_0)))))" "(read-for-special-compound62.1" " temp93_1" " #f" @@ -50175,8 +50110,8 @@ static const char *startup_source = "((temp103_0) #t)" "((v2104_0) v2_1)" "((temp105_1)" -"(lambda(v2_2 v_218)" -"(begin 'temp105(make-rectangular v_218 v2_2)))))" +"(lambda(v2_2 v_216)" +"(begin 'temp105(make-rectangular v_216 v2_2)))))" "(read-for-special-compound62.1" " temp102_0" " temp103_0" @@ -50204,7 +50139,7 @@ static const char *startup_source = " #f)" " #f)))" "(if c4_0" -"((lambda(v_220)" +"((lambda(v_218)" "(let-values(((s106_0) s_17)" "((temp107_2)(+ start_43 7))" "((end108_0) end_33)" @@ -50212,10 +50147,10 @@ static const char *startup_source = "((exactness110_0) exactness_0)" "((convert-mode111_0) convert-mode_2)" "((temp112_1) '@)" -"((v113_0) v_220)" +"((v113_0) v_218)" "((temp114_3)" -"(lambda(v_143 v2_3)" -"(begin 'temp114(make-polar v_143 v2_3)))))" +"(lambda(v_142 v2_3)" +"(begin 'temp114(make-polar v_142 v2_3)))))" "(read-for-special-compound62.1" " temp112_1" " #f" @@ -50330,10 +50265,10 @@ static const char *startup_source = "(substring s_456 start_44 end_34)))" "(let-values() #f)))" "(if(if sign-pos_0" -"(let-values(((or-part_313)" +"(let-values(((or-part_314)" "(if dot-pos_1(< dot-pos_1 sign-pos_0) #f)))" -"(if or-part_313" -" or-part_313" +"(if or-part_314" +" or-part_314" "(if slash-pos_0(< slash-pos_0 sign-pos_0) #f)))" " #f)" "(let-values()" @@ -50459,23 +50394,23 @@ static const char *startup_source = " slash-pos_0" " #f" "(if(> i_170 start_44)" -"(let-values(((or-part_314)(not @-pos_0)))" -"(if or-part_314" -" or-part_314" +"(let-values(((or-part_315)(not @-pos_0)))" +"(if or-part_315" +" or-part_315" "(> i_170(add1 @-pos_0))))" " #f)))))" "(if(char=? c_79 '#\\.)" "(let-values()" -"(if(let-values(((or-part_315)" +"(if(let-values(((or-part_316)" "(if exp-pos_0" -"(let-values(((or-part_316)" +"(let-values(((or-part_317)" "(not sign-pos_0)))" -"(if or-part_316" -" or-part_316" +"(if or-part_317" +" or-part_317" "(> exp-pos_0 sign-pos_0)))" " #f)))" -"(if or-part_315" -" or-part_315" +"(if or-part_316" +" or-part_316" "(if dot-pos_1" "(let-values(((or-part_208)(not sign-pos_0)))" "(if or-part_208" @@ -50490,9 +50425,9 @@ static const char *startup_source = "(substring s_456 start_44 end_34)))" "(let-values() #f)))" "(if(if slash-pos_0" -"(let-values(((or-part_281)(not sign-pos_0)))" -"(if or-part_281" -" or-part_281" +"(let-values(((or-part_279)(not sign-pos_0)))" +"(if or-part_279" +" or-part_279" "(> slash-pos_0 sign-pos_0)))" " #f)" "(let-values()" @@ -50517,9 +50452,9 @@ static const char *startup_source = "(if(char=? c_79 '#\\/)" "(let-values()" "(if(if dot-pos_1" -"(let-values(((or-part_317)(not sign-pos_0)))" -"(if or-part_317" -" or-part_317" +"(let-values(((or-part_318)(not sign-pos_0)))" +"(if or-part_318" +" or-part_318" "(> dot-pos_1 sign-pos_0)))" " #f)" "(let-values()" @@ -50529,21 +50464,21 @@ static const char *startup_source = " \"decimal points and fractions annot be mixed `~.a`\"" "(substring s_456 start_44 end_34)))" "(let-values() #f)))" -"(if(let-values(((or-part_318)" +"(if(let-values(((or-part_319)" "(if exp-pos_0" -"(let-values(((or-part_319)" -"(not sign-pos_0)))" -"(if or-part_319" -" or-part_319" -"(> exp-pos_0 sign-pos_0)))" -" #f)))" -"(if or-part_318" -" or-part_318" -"(if slash-pos_0" "(let-values(((or-part_320)" "(not sign-pos_0)))" "(if or-part_320" " or-part_320" +"(> exp-pos_0 sign-pos_0)))" +" #f)))" +"(if or-part_319" +" or-part_319" +"(if slash-pos_0" +"(let-values(((or-part_321)" +"(not sign-pos_0)))" +"(if or-part_321" +" or-part_321" "(> slash-pos_0 sign-pos_0)))" " #f)))" "(let-values()" @@ -50565,52 +50500,52 @@ static const char *startup_source = " i_170" " #f" " must-i?_0)))))" -"(if(let-values(((or-part_321)(char=? c_79 '#\\e)))" -"(if or-part_321" -" or-part_321" -"(let-values(((or-part_322)(char=? c_79 '#\\E)))" +"(if(let-values(((or-part_322)(char=? c_79 '#\\e)))" "(if or-part_322" " or-part_322" -"(let-values(((or-part_323)" -"(char=? c_79 '#\\f)))" +"(let-values(((or-part_323)(char=? c_79 '#\\E)))" "(if or-part_323" " or-part_323" "(let-values(((or-part_324)" -"(char=? c_79 '#\\F)))" +"(char=? c_79 '#\\f)))" "(if or-part_324" " or-part_324" "(let-values(((or-part_325)" -"(char=? c_79 '#\\d)))" +"(char=? c_79 '#\\F)))" "(if or-part_325" " or-part_325" +"(let-values(((or-part_326)" +"(char=? c_79 '#\\d)))" +"(if or-part_326" +" or-part_326" "(let-values(((or-part_181)" "(char=? c_79 '#\\D)))" "(if or-part_181" " or-part_181" -"(let-values(((or-part_326)" -"(char=?" -" c_79" -" '#\\s)))" -"(if or-part_326" -" or-part_326" "(let-values(((or-part_327)" "(char=?" " c_79" -" '#\\S)))" +" '#\\s)))" "(if or-part_327" " or-part_327" +"(let-values(((or-part_328)" +"(char=?" +" c_79" +" '#\\S)))" +"(if or-part_328" +" or-part_328" "(let-values(((or-part_209)" "(char=?" " c_79" " '#\\l)))" "(if or-part_209" " or-part_209" -"(let-values(((or-part_328)" +"(let-values(((or-part_329)" "(char=?" " c_79" " '#\\L)))" -"(if or-part_328" -" or-part_328" +"(if or-part_329" +" or-part_329" "(let-values(((or-part_173)" "(char=?" " c_79" @@ -50643,8 +50578,8 @@ static const char *startup_source = " sign-pos_0" " dot-pos_1" " slash-pos_0" -"(let-values(((or-part_329) exp-pos_0))" -"(if or-part_329 or-part_329 i_170))" +"(let-values(((or-part_330) exp-pos_0))" +"(if or-part_330 or-part_330 i_170))" " must-i?_0))" "(let-values()" "(loop_111" @@ -50656,8 +50591,8 @@ static const char *startup_source = " sign-pos_0" " dot-pos_1" " slash-pos_0" -"(let-values(((or-part_330) exp-pos_0))" -"(if or-part_330 or-part_330 i_170))" +"(let-values(((or-part_331) exp-pos_0))" +"(if or-part_331 or-part_331 i_170))" " must-i?_0)))))" "(if(char=? c_79 '#\\@)" "(let-values()" @@ -50669,9 +50604,9 @@ static const char *startup_source = " \"cannot mix `@` and `i` in `~.a`\"" "(substring s_456 start_44 end_34)))" "(let-values() #f)))" -"(if(let-values(((or-part_331) @-pos_0))" -"(if or-part_331" -" or-part_331" +"(if(let-values(((or-part_160) @-pos_0))" +"(if or-part_160" +" or-part_160" "(eq? in-complex_1 '@)))" "(let-values()" "(if(eq? convert-mode_3 'must-read)" @@ -51250,10 +51185,10 @@ static const char *startup_source = " #f))))" "(define-values" "(fail-extflonum)" -"(lambda(convert-mode_9 v_242)" +"(lambda(convert-mode_9 v_240)" "(begin" "(if(eq? convert-mode_9 'must-read)" -" (let-values () (format \"cannot combine extflonum `~a` into complex number\" v_242))" +" (let-values () (format \"cannot combine extflonum `~a` into complex number\" v_240))" "(let-values() #f)))))" "(define-values" "(read-for-special-compound62.1)" @@ -51277,19 +51212,19 @@ static const char *startup_source = "(let-values(((convert-mode_10) convert-mode59_0))" "(let-values(((in-complex_3) in-complex50_0))" "(let-values(((reading-first?_0) reading-first?51_0))" -"(let-values(((v_243) v60_0))" +"(let-values(((v_241) v60_0))" "(let-values(((combine_1) combine61_0))" "(let-values()" "(if(eq? exactness_5 'exact)" "(let-values()" "(if(eq? convert-mode_10 'must-read)" -" (let-values () (format \"no exact representation for `~a`\" v_243))" +" (let-values () (format \"no exact representation for `~a`\" v_241))" "(let-values() #f)))" -"(if(if(extflonum? v_243)" +"(if(if(extflonum? v_241)" "(let-values(((or-part_190)(not reading-first?_0)))" "(if or-part_190 or-part_190(not(eq? convert-mode_10 'must-read))))" " #f)" -"(let-values()(fail-extflonum convert-mode_10 v_243))" +"(let-values()(fail-extflonum convert-mode_10 v_241))" "(let-values()" "(let-values(((v2_7)" "(let-values(((s173_0) s_491)" @@ -51313,9 +51248,9 @@ static const char *startup_source = "(let-values() v2_7)" "(if(not v2_7)" "(let-values() v2_7)" -"(if(extflonum? v_243)" -"(let-values()(fail-extflonum convert-mode_10 v_243))" -"(let-values()(combine_1 v_243 v2_7)))))))))))))))))))))))" +"(if(extflonum? v_241)" +"(let-values()(fail-extflonum convert-mode_10 v_241))" +"(let-values()(combine_1 v_241 v2_7)))))))))))))))))))))))" "(define-values" "(hashes?)" "(lambda(s_263 start_50 end_40)" @@ -51324,44 +51259,44 @@ static const char *startup_source = "(normalise-inputs" " 'in-string" " \"string\"" -"(lambda(x_85)(string? x_85))" -"(lambda(x_86)(unsafe-string-length x_86))" +"(lambda(x_86)(string? x_86))" +"(lambda(x_87)(unsafe-string-length x_87))" " s_263" " start_50" " end_40" " 1)))" "(begin" " #t" -"((letrec-values(((for-loop_274)" -"(lambda(result_120 idx_5)" +"((letrec-values(((for-loop_276)" +"(lambda(result_121 idx_5)" "(begin" " 'for-loop" "(if(unsafe-fx< idx_5 stop*_6)" "(let-values(((c_81)(string-ref v*_6 idx_5)))" -"(let-values(((result_121)" -"(let-values()" "(let-values(((result_122)" +"(let-values()" +"(let-values(((result_123)" "(let-values()(let-values()(char=? c_81 '#\\#)))))" -"(values result_122)))))" -"(if(if(not((lambda x_87 result_121) c_81))(not #f) #f)" -"(for-loop_274 result_121(unsafe-fx+ idx_5 1))" -" result_121)))" -" result_120)))))" -" for-loop_274)" +"(values result_123)))))" +"(if(if(not((lambda x_88 result_122) c_81))(not #f) #f)" +"(for-loop_276 result_122(unsafe-fx+ idx_5 1))" +" result_122)))" +" result_121)))))" +" for-loop_276)" " #f" " start*_5))))))" "(define-values" "(replace-hashes)" "(lambda(s_271 start_51 end_41)" "(begin" -"(let-values(((new-s_10)(make-string(- end_41 start_51))))" +"(let-values(((new-s_9)(make-string(- end_41 start_51))))" "(begin" "(let-values(((v*_7 start*_6 stop*_7 step*_6)" "(normalise-inputs" " 'in-string" " \"string\"" -"(lambda(x_88)(string? x_88))" -"(lambda(x_89)(unsafe-string-length x_89))" +"(lambda(x_89)(string? x_89))" +"(lambda(x_90)(unsafe-string-length x_90))" " s_271" " start_51" " end_41" @@ -51372,7 +51307,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-naturals start_52)))" -"((letrec-values(((for-loop_275)" +"((letrec-values(((for-loop_277)" "(lambda(idx_6 pos_115)" "(begin" " 'for-loop" @@ -51385,17 +51320,17 @@ static const char *startup_source = "(begin" "(let-values()" "(if(char=? c_82 '#\\#)" -"(string-set! new-s_10 i_121 '#\\0)" -"(string-set! new-s_10 i_121 c_82)))" +"(string-set! new-s_9 i_121 '#\\0)" +"(string-set! new-s_9 i_121 c_82)))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_275(unsafe-fx+ idx_6 1)(+ pos_115 1))(values))))" +"(if(not #f)(for-loop_277(unsafe-fx+ idx_6 1)(+ pos_115 1))(values))))" "(values))))))" -" for-loop_275)" +" for-loop_277)" " start*_6" " start_52)))" "(void)" -" new-s_10)))))" +" new-s_9)))))" "(define-values" "(maybe-substring)" "(lambda(s_381 start_3 end_3)" @@ -51413,17 +51348,17 @@ static const char *startup_source = "(digit?)" "(lambda(c_84 radix_11)" "(begin" -"(let-values(((v_244)(char->integer c_84)))" +"(let-values(((v_242)(char->integer c_84)))" "(let-values(((or-part_356)" -"(if(>= v_244(char->integer '#\\0))(<(- v_244(char->integer '#\\0)) radix_11) #f)))" +"(if(>= v_242(char->integer '#\\0))(<(- v_242(char->integer '#\\0)) radix_11) #f)))" "(if or-part_356" " or-part_356" "(if(> radix_11 10)" "(let-values(((or-part_357)" -"(if(>= v_244(char->integer '#\\a))(<(- v_244(-(char->integer '#\\a) 10)) radix_11) #f)))" +"(if(>= v_242(char->integer '#\\a))(<(- v_242(-(char->integer '#\\a) 10)) radix_11) #f)))" "(if or-part_357" " or-part_357" -"(if(>= v_244(char->integer '#\\A))(<(- v_244(-(char->integer '#\\A) 10)) radix_11) #f)))" +"(if(>= v_242(char->integer '#\\A))(<(- v_242(-(char->integer '#\\A) 10)) radix_11) #f)))" " #f)))))))" "(define-values" "(fail-bad-number)" @@ -51786,16 +51721,16 @@ static const char *startup_source = "(begin" "(let-values(((c_25)(read-char/skip-whitespace-and-comments init-c_0 read-one_3 in_5 config_15)))" "(let-values(((line_8 col_7 pos_116)(port-next-location* in_5 c_25)))" -" (let-values (((v_235) (read-number-literal c_25 in_5 config_15 \"#e\")))" -"(if(fixnum? v_235)" -"(let-values() v_235)" -"(if(eof-object? v_235)" -"(let-values() v_235)" +" (let-values (((v_233) (read-number-literal c_25 in_5 config_15 \"#e\")))" +"(if(fixnum? v_233)" +"(let-values() v_233)" +"(if(eof-object? v_233)" +"(let-values() v_233)" "(let-values()" "(let-values(((in1_3) in_5)" "((temp2_5)(reading-at config_15 line_8 col_7 pos_116))" " ((temp3_6) \"expected a fixnum, found ~a\")" -"((v4_1) v_235))" +"((v4_1) v_233))" "(reader-error12.1" " unsafe-undefined" " '#\\x" @@ -51920,7 +51855,7 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()(check-list lst_264)))" -"((letrec-values(((for-loop_276)" +"((letrec-values(((for-loop_278)" "(lambda(i_3 lst_104)" "(begin" " 'for-loop" @@ -51955,19 +51890,19 @@ static const char *startup_source = "(values" " i_173)))))" "(if(if(not" -"((lambda x_90" +"((lambda x_91" "(unsafe-fx=" " i_172" " len_37))" " e_78))" "(not #f)" " #f)" -"(for-loop_276" +"(for-loop_278" " i_172" " rest_145)" " i_172)))" " i_3)))))" -" for-loop_276)" +" for-loop_278)" " 0" " lst_264)))))" " v_35))))))" @@ -51983,7 +51918,7 @@ static const char *startup_source = " \"exact-nonnegative-integer?\"" " len_38)))" "(let-values(((fill_1) 0.0))" -"(let-values(((v_190)(make-flvector len_38 fill_1)))" +"(let-values(((v_187)(make-flvector len_38 fill_1)))" "(begin" "(if(zero? len_38)" "(void)" @@ -52008,7 +51943,7 @@ static const char *startup_source = "(let-values(((i_42)" "(let-values(((i_43)" " i_40))" -"(let-values(((i_152)" +"(let-values(((i_153)" "(let-values()" "(begin" "(let-values(((elem_1)" @@ -52017,7 +51952,7 @@ static const char *startup_source = "(if(flonum?" " elem_1)" "(unsafe-flvector-set!" -" v_190" +" v_187" " i_43" " elem_1)" "(not-an-fX.1$1" @@ -52027,9 +51962,9 @@ static const char *startup_source = " 1" " i_43)))))" "(values" -" i_152)))))" +" i_153)))))" "(if(if(not" -"((lambda x_91" +"((lambda x_92" "(unsafe-fx=" " i_42" " len_38))" @@ -52044,7 +51979,7 @@ static const char *startup_source = " for-loop_21)" " 0" " lst_24)))))" -" v_190))))))" +" v_187))))))" "(let-values()(void)))))))" "(let-values()" "(let-values(((len_39)(length seq_2)))" @@ -52078,11 +52013,11 @@ static const char *startup_source = "(list temp25_7 expected-len26_0 len27_0))))" "(let-values()" "(let-values(((last-or_0)" -"(lambda(v_245)" +"(lambda(v_243)" "(begin" " 'last-or" "(if(null? seq_2)" -"(wrap v_245 in_30 config_10 #f)" +"(wrap v_243 in_30 config_10 #f)" "((letrec-values(((loop_114)" "(lambda(seq_3)" "(begin" @@ -52136,7 +52071,7 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()(check-naturals start_54)))" -"((letrec-values(((for-loop_265)" +"((letrec-values(((for-loop_267)" "(lambda(lst_300 pos_117)" "(begin" " 'for-loop" @@ -52164,12 +52099,12 @@ static const char *startup_source = "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_265" +"(for-loop_267" " rest_175" "(+ pos_117 1))" "(values))))" "(values))))))" -" for-loop_265)" +" for-loop_267)" " lst_8" " start_54)))" "(void)))" @@ -52238,7 +52173,7 @@ static const char *startup_source = "(void)" "(let-values()" "(check-naturals start_56)))" -"((letrec-values(((for-loop_277)" +"((letrec-values(((for-loop_279)" "(lambda(lst_98 pos_118)" "(begin" " 'for-loop" @@ -52267,14 +52202,14 @@ static const char *startup_source = "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_277" +"(for-loop_279" " rest_176" "(+" " pos_118" " 1))" "(values))))" "(values))))))" -" for-loop_277)" +" for-loop_279)" " lst_307" " start_56)))" "(void)))" @@ -52409,7 +52344,7 @@ static const char *startup_source = "(let-values(((accum-str_2)(accum-string-init! config_41)))" "(let-values((()(begin(accum-string-add! accum-str_2 init-c_11)(values))))" "(let-values(((init-v_1)(digit->number init-c_11)))" -"(let-values(((v_246)" +"(let-values(((v_244)" "(let-values(((in69_0) in_34)" "((config70_0) config_41)" "((accum-str71_0) accum-str_2)" @@ -52419,7 +52354,7 @@ static const char *startup_source = "((init-v75_0) init-v_1))" "(read-digits12.1 temp72_1 init-v74_0 temp73_0 init-v75_0 in69_0 config70_0 accum-str71_0))))" "(values" -" v_246" +" v_244" "(let-values(((accum-str76_0) accum-str_2)((config77_0) config_41))" "(accum-string-get!6.1 0 accum-str76_0 config77_0))" "(let-values(((in_35) in_34)((source_21)(read-config-source config_41)))" @@ -52687,9 +52622,9 @@ static const char *startup_source = "(if(if(equal? tmp_45 '#\\=) #t(equal? tmp_45 '#\\#))" "(let-values()" "(begin" -"(if(let-values(((or-part_308)(read-config-for-syntax? config_43)))" -"(if or-part_308" -" or-part_308" +"(if(let-values(((or-part_309)(read-config-for-syntax? config_43)))" +"(if or-part_309" +" or-part_309" "(not(check-parameter 1/read-accept-graph config_43))))" "(let-values()" "(let-values(((in37_1) in_37)" @@ -52735,10 +52670,10 @@ static const char *startup_source = "(if(equal? tmp_49 '#\\=)" "(let-values()" "(let-values(((ph_1)(make-placeholder 'placeholder)))" -"(let-values(((ht_144)(get-graph-hash config_43)))" +"(let-values(((ht_145)(get-graph-hash config_43)))" "(let-values((()" "(begin" -"(if(hash-ref ht_144 v_30 #f)" +"(if(hash-ref ht_145 v_30 #f)" "(let-values()" "(let-values(((in50_0) in_37)" "((config51_0) config_43)" @@ -52765,7 +52700,7 @@ static const char *startup_source = "(list dispatch-c53_0 temp54_1 c55_0))))" "(void))" "(values))))" -"(let-values((()(begin(hash-set! ht_144 v_30 ph_1)(values))))" +"(let-values((()(begin(hash-set! ht_145 v_30 ph_1)(values))))" "(let-values(((result-v_0)" "(read-one_3 #f in_37(next-readtable config_43))))" "(begin" @@ -52852,13 +52787,13 @@ static const char *startup_source = "(let-values(((or-part_360)(read-config-state-graph st_3)))" "(if or-part_360" " or-part_360" -"(let-values(((ht_154)(make-hasheqv)))(begin(set-read-config-state-graph! st_3 ht_154) ht_154))))))))" +"(let-values(((ht_155)(make-hasheqv)))(begin(set-read-config-state-graph! st_3 ht_155) ht_155))))))))" "(define-values" "(coerce-key)" -"(lambda(key_84 config_8)" +"(lambda(key_85 config_8)" "(begin" "(let-values(((for-syntax?_7)(read-config-for-syntax? config_8)))" -"((read-config-coerce-key config_8) for-syntax?_7 key_84)))))" +"((read-config-coerce-key config_8) for-syntax?_7 key_85)))))" "(define-values" "(read-hash)" "(lambda(read-one_3 dispatch-c_1 init-c_13 in_37 config_43)" @@ -53201,8 +53136,8 @@ static const char *startup_source = " temp63_4" "(list temp64_4))))" "(let-values()" -"(let-values(((v_247)(read-one_8 c_89 in_41(keep-comment elem-config_1))))" -"(if(1/special-comment? v_247)" +"(let-values(((v_245)(read-one_8 c_89 in_41(keep-comment elem-config_1))))" +"(if(1/special-comment? v_245)" "(let-values()" "((make-read-one-key+value" " read-one_8" @@ -53265,7 +53200,7 @@ static const char *startup_source = " temp72_2" "(list temp73_2)))))" "(values))))" -"(let-values(((v_248)(read-one_8 #f in_41 elem-config_1)))" +"(let-values(((v_246)(read-one_8 #f in_41 elem-config_1)))" "(let-values(((closer-c_0)" "(read-char/skip-whitespace-and-comments #f read-one_8 in_41 config_45)))" "(let-values(((closer-line_0 closer-col_0 closer-pos_0)" @@ -53294,7 +53229,7 @@ static const char *startup_source = " temp75_2" " temp77_1" "(list temp78_3)))))" -"(cons(coerce-key k_41 elem-config_1) v_248))))))))))))))))))))))" +"(cons(coerce-key k_41 elem-config_1) v_246))))))))))))))))))))))" "(define-values" "(read-string5.1)" "(lambda(mode1_1 in3_0 config4_0)" @@ -53631,7 +53566,7 @@ static const char *startup_source = "(let-values(((init-v_3)" "(digit->number" " escaped-c_0)))" -"(let-values(((v_204)" +"(let-values(((v_202)" "(let-values(((in24_1)" " in_37)" "((config25_1)" @@ -53655,7 +53590,7 @@ static const char *startup_source = " config25_1" " accum-str26_0))))" "(begin" -"(if(<= v_204 255)" +"(if(<= v_202 255)" "(void)" "(let-values()" "(let-values(((in31_2)" @@ -53697,13 +53632,13 @@ static const char *startup_source = "(accum-string-add!" " accum-str_4" "(integer->char" -" v_204)))))))))" +" v_202)))))))))" "(if(unsafe-fx< index_3 14)" "(let-values()" "(let-values(((pos_13)" "(accum-string-count" " accum-str_4)))" -"(let-values(((v_249)" +"(let-values(((v_247)" "(let-values(((in40_1)" " in_37)" "((config41_1)" @@ -53723,13 +53658,13 @@ static const char *startup_source = " config41_1" " accum-str42_0))))" "(begin" -"(if(integer? v_249)" +"(if(integer? v_247)" "(void)" "(let-values()" "(no-hex-digits" " in_37" " config_43" -" v_249" +" v_247" " escaping-c_0" " escaped-c_0)))" "(set-accum-string-count!" @@ -53738,7 +53673,7 @@ static const char *startup_source = "(accum-string-add!" " accum-str_4" "(integer->char" -" v_249))))))" +" v_247))))))" "(if(unsafe-fx< index_3 15)" "(let-values()" "(let-values((()" @@ -53753,7 +53688,7 @@ static const char *startup_source = "(let-values(((pos_119)" "(accum-string-count" " accum-str_4)))" -"(let-values(((v_250)" +"(let-values(((v_248)" "(let-values(((in45_0)" " in_37)" "((config46_1)" @@ -53774,23 +53709,23 @@ static const char *startup_source = " accum-str47_0))))" "(begin" "(if(integer?" -" v_250)" +" v_248)" "(void)" "(let-values()" "(no-hex-digits" " in_37" " config_43" -" v_250" +" v_248" " escaping-c_0" " escaped-c_0)))" "(if(let-values(((or-part_63)" "(<" -" v_250" +" v_248" " 55296)))" "(if or-part_63" " or-part_63" "(>" -" v_250" +" v_248" " 57343)))" "(let-values()" "(begin" @@ -53800,7 +53735,7 @@ static const char *startup_source = "(accum-string-add!" " accum-str_4" "(integer->char" -" v_250))))" +" v_248))))" "(let-values()" "(let-values(((next!_0)" "(lambda()" @@ -53881,7 +53816,7 @@ static const char *startup_source = "(+" "(arithmetic-shift" "(-" -" v_250" +" v_248" " 55296)" " 10)" "(-" @@ -53977,7 +53912,7 @@ static const char *startup_source = "(let-values(((pos_20)" "(accum-string-count" " accum-str_4)))" -"(let-values(((v_251)" +"(let-values(((v_249)" "(let-values(((in72_0)" " in_37)" "((config73_0)" @@ -53998,26 +53933,26 @@ static const char *startup_source = " accum-str74_0))))" "(begin" "(if(integer?" -" v_251)" +" v_249)" "(void)" "(let-values()" "(no-hex-digits" " in_37" " config_43" -" v_251" +" v_249" " escaping-c_0" " escaped-c_0)))" "(if(if(let-values(((or-part_55)" "(<" -" v_251" +" v_249" " 55296)))" "(if or-part_55" " or-part_55" "(>" -" v_251" +" v_249" " 57343)))" "(<=" -" v_251" +" v_249" " 1114111)" " #f)" "(let-values()" @@ -54028,13 +53963,13 @@ static const char *startup_source = "(accum-string-add!" " accum-str_4" "(integer->char" -" v_251))))" +" v_249))))" "(let-values()" "(let-values(((in77_1)" " in_37)" "((config78_1)" " config_43)" -"((temp79_1)" +"((temp79_2)" " \"escape sequence `~aU~a` is out of range in string\")" "((escaping-c80_0)" " escaping-c_0)" @@ -54056,7 +53991,7 @@ static const char *startup_source = " unsafe-undefined" " in77_1" " config78_1" -" temp79_1" +" temp79_2" "(list" " escaping-c80_0" " temp81_2)))))))))))))))))" @@ -54218,7 +54153,7 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()(check-list lst_308)))" -"((letrec-values(((for-loop_278)" +"((letrec-values(((for-loop_280)" "(lambda(lst_28)" "(begin" " 'for-loop" @@ -54241,11 +54176,11 @@ static const char *startup_source = "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_278" +"(for-loop_280" " rest_177)" "(values))))" "(values))))))" -" for-loop_278)" +" for-loop_280)" " lst_308)))" "(void))))" "(if(char=? c_93 '#\\newline)" @@ -54342,7 +54277,7 @@ static const char *startup_source = "(let-values(((in_52) in_4)" "((source_6)(read-config-source config_8)))" "(read-char-or-special in_52 special1.1 source_6))))" -"(let-values(((v_233)" +"(let-values(((v_231)" "(if(if(char? c3_6)(octal-digit? c3_6) #f)" "(let-values()" "(+" @@ -54351,7 +54286,7 @@ static const char *startup_source = "(digit->number c3_6)))" "(let-values() #f))))" "(begin" -"(if(if v_233(<= v_233 255) #f)" +"(if(if v_231(<= v_231 255) #f)" "(void)" "(let-values()" "(let-values(((in9_2) in_4)" @@ -54370,7 +54305,7 @@ static const char *startup_source = " config10_2" " temp12_7" "(list c13_1 c214_0 temp15_6)))))" -"(integer->char v_233))))))" +"(integer->char v_231))))))" "(let-values() c_96))))" "(if(let-values(((or-part_80)(char=? c_96 '#\\u)))" "(if or-part_80 or-part_80(char=? c_96 '#\\U)))" @@ -54550,7 +54485,7 @@ static const char *startup_source = "(wrap(list wrapped-sym_0 e_83) in_50 config_22 #f))))))))" "(define-values" "(read-delimited-constant)" -"(lambda(init-c_1 can-match?_0 chars_0 val_78 in_50 config_22)" +"(lambda(init-c_1 can-match?_0 chars_0 val_79 in_50 config_22)" "(begin" "(let-values(((accum-str_8)(accum-string-init! config_22)))" "(begin" @@ -54641,7 +54576,7 @@ static const char *startup_source = " loop_117)" " chars_0)" "(wrap" -" val_78" +" val_79" " in_50" " config_22" "(let-values(((accum-str20_0) accum-str_8)((config21_1) config_22))" @@ -55145,7 +55080,7 @@ static const char *startup_source = "(let-values(((lst_201) already_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_201)))" -"((letrec-values(((for-loop_206)" +"((letrec-values(((for-loop_208)" "(lambda(lst_309)" "(begin" " 'for-loop" @@ -55160,9 +55095,9 @@ static const char *startup_source = "(accum-string-add! accum-str_11 c_102))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_206 rest_178)(values))))" +"(if(not #f)(for-loop_208 rest_178)(values))))" "(values))))))" -" for-loop_206)" +" for-loop_208)" " lst_201)))" "(void)" "((letrec-values(((loop_12)" @@ -55555,12 +55490,12 @@ static const char *startup_source = "(if(check-parameter 1/read-cdot config_51)" "(let-values()" "(let-values(((line_11 col_10 pos_92)(port-next-location in_63)))" -"(let-values(((v_103)(read-undotted init-c_17 in_63 config_51)))" -"(if(1/special-comment? v_103)" -"(let-values() v_103)" +"(let-values(((v_110)(read-undotted init-c_17 in_63 config_51)))" +"(if(1/special-comment? v_110)" +"(let-values() v_110)" "(let-values()" "((letrec-values(((loop_119)" -"(lambda(v_105)" +"(lambda(v_112)" "(begin" " 'loop" "(let-values(((c_104)" @@ -55576,9 +55511,9 @@ static const char *startup_source = "(if(eq? c_105 'special)(special1.1 'special) c_105)))))" "(let-values(((ec_9)(effective-char c_104 config_51)))" "(if(not(char? ec_9))" -"(let-values() v_105)" +"(let-values() v_112)" "(if(char-whitespace? ec_9)" -"(let-values()(begin(consume-char in_63 c_104)(loop_119 v_105)))" +"(let-values()(begin(consume-char in_63 c_104)(loop_119 v_112)))" "(if(char=? ec_9 '#\\.)" "(let-values()" "(let-values(((dot-line_2 dot-col_2 dot-pos_5)" @@ -55598,13 +55533,13 @@ static const char *startup_source = "(read-undotted #f in_63 config_51)))" "(loop_119" "(wrap" -"(list cdot_0 v_105 post-v_0)" +"(list cdot_0 v_112 post-v_0)" " in_63" "(reading-at config_51 line_11 col_10 pos_92)" " '#\\.)))))))" -"(let-values() v_105))))))))))" +"(let-values() v_112))))))))))" " loop_119)" -" v_103))))))" +" v_110))))))" "(void))))))" "(define-values" "(read-undotted)" @@ -55616,15 +55551,15 @@ static const char *startup_source = "(let-values() eof)" "(if(not(char? c_106))" "(let-values()" -"(let-values(((v_125)(special-value c_106)))" -"(if(1/special-comment? v_125)" -"(let-values()(if(read-config-keep-comment? config_57) v_125(read-undotted #f in_68 config_57)))" -"(let-values()(coerce v_125 in_68(reading-at config_57 line_12 col_11 pos_121))))))" +"(let-values(((v_250)(special-value c_106)))" +"(if(1/special-comment? v_250)" +"(let-values()(if(read-config-keep-comment? config_57) v_250(read-undotted #f in_68 config_57)))" +"(let-values()(coerce v_250 in_68(reading-at config_57 line_12 col_11 pos_121))))))" "(let-values(((c2_8)(readtable-handler config_57 c_106)))" "(if c2_8" "((lambda(handler_3)" -"(let-values(((v_128)(readtable-apply handler_3 c_106 in_68 config_57 line_12 col_11 pos_121)))" -"(retry-special-comment v_128 in_68 config_57)))" +"(let-values(((v_251)(readtable-apply handler_3 c_106 in_68 config_57 line_12 col_11 pos_121)))" +"(retry-special-comment v_251 in_68 config_57)))" " c2_8)" "(let-values()" "(let-values(((ec_10)(effective-char c_106 config_57)))" @@ -55698,9 +55633,9 @@ static const char *startup_source = "((in80_1) in_68)" "((r-config81_0) r-config_0)" "((temp82_2)" -"(if(let-values(((or-part_316)(eq? c_106 ec_10)))" -"(if or-part_316" -" or-part_316" +"(if(let-values(((or-part_317)(eq? c_106 ec_10)))" +"(if or-part_317" +" or-part_317" "(if(<(char->integer ec_10) 128)" "(char-numeric? ec_10)" " #f)))" @@ -56406,29 +56341,29 @@ static const char *startup_source = "(let-values(((temp206_0) #f)" "((in207_0) in_70)" "((config208_0) config_58)" -" ((temp209_1) \"#E\"))" -"(read-symbol-or-number8.1 #f temp209_1 temp206_0 in207_0 config208_0)))" +" ((temp209_2) \"#E\"))" +"(read-symbol-or-number8.1 #f temp209_2 temp206_0 in207_0 config208_0)))" "(if(unsafe-fx< index_5 20)" "(let-values()" -"(let-values(((temp210_0) #f)" +"(let-values(((temp210_1) #f)" "((in211_0) in_70)" "((config212_0) config_58)" -" ((temp213_2) \"#i\"))" -"(read-symbol-or-number8.1 #f temp213_2 temp210_0 in211_0 config212_0)))" +" ((temp213_1) \"#i\"))" +"(read-symbol-or-number8.1 #f temp213_1 temp210_1 in211_0 config212_0)))" "(let-values()" -"(let-values(((temp214_2) #f)" +"(let-values(((temp214_1) #f)" "((in215_0) in_70)" "((config216_0) config_58)" -" ((temp217_1) \"#I\"))" -"(read-symbol-or-number8.1 #f temp217_1 temp214_2 in215_0 config216_0))))))" +" ((temp217_2) \"#I\"))" +"(read-symbol-or-number8.1 #f temp217_2 temp214_1 in215_0 config216_0))))))" "(if(unsafe-fx< index_5 23)" "(if(unsafe-fx< index_5 22)" "(let-values()" -"(let-values(((temp218_1) #f)" +"(let-values(((temp218_0) #f)" "((in219_0) in_70)" "((config220_0) config_58)" " ((temp221_2) \"#d\"))" -"(read-symbol-or-number8.1 #f temp221_2 temp218_1 in219_0 config220_0)))" +"(read-symbol-or-number8.1 #f temp221_2 temp218_0 in219_0 config220_0)))" "(let-values()" "(let-values(((temp222_1) #f)" "((in223_0) in_70)" @@ -56496,7 +56431,7 @@ static const char *startup_source = "(let-values(((in250_0) in_70)" "((config251_0) config_58)" "((c2252_0) c2_14)" -" ((temp253_1) \"expected `s', `S`, `i`, or `I` after `~a~a`\")" +" ((temp253_0) \"expected `s', `S`, `i`, or `I` after `~a~a`\")" "((dispatch-c254_0) dispatch-c_5)" "((c255_0) c_108))" "(reader-error12.1" @@ -56506,7 +56441,7 @@ static const char *startup_source = " unsafe-undefined" " in250_0" " config251_0" -" temp253_1" +" temp253_0" "(list dispatch-c254_0 c255_0))))))))))))" "(if(unsafe-fx< index_5 32)" "(if(unsafe-fx< index_5 31)" @@ -56745,12 +56680,12 @@ static const char *startup_source = " mod_16))))" "(define-values" "(1/module-provide-protected?)" -"(lambda(mod_17 sym_97)" +"(lambda(mod_17 sym_98)" "(begin" " 'module-provide-protected?" "(module->" "(lambda(m_28)" -"(let-values(((b/p_3)(hash-ref(module-provides m_28) sym_97 #f)))" +"(let-values(((b/p_3)(hash-ref(module-provides m_28) sym_98 #f)))" "(let-values(((or-part_287)(not b/p_3)))(if or-part_287 or-part_287(provided-as-protected? b/p_3)))))" " 'module-provide-protected?" " mod_17))))" @@ -56785,17 +56720,17 @@ static const char *startup_source = "(let-values(((name_41)" "(let-values(((mod44_0) mod_18)((temp45_1) #t))" "(reference->resolved-module-path27.1 temp45_1 mod44_0))))" -"(let-values(((phase_137)(namespace-phase ns_48)))" +"(let-values(((phase_136)(namespace-phase ns_48)))" "(let-values(((m-ns_17)" "(let-values(((ns46_0) ns_48)" -"((name47_0) name_41)" -"((phase48_1) phase_137))" +"((name47_1) name_41)" +"((phase48_1) phase_136))" "(namespace->module-namespace82.1" " #f" " #f" " unsafe-undefined" " ns46_0" -" name47_0" +" name47_1" " phase48_1))))" "(begin" "(if m-ns_17" @@ -56832,7 +56767,7 @@ static const char *startup_source = " temp49_3)))))" "(let-values(((ns41_0) ns_48)" "((temp42_3)(namespace-mpi m-ns_17))" -"((phase43_1) phase_137))" +"((phase43_1) phase_136))" "(namespace-module-make-available!112.1" " unsafe-undefined" " ns41_0" @@ -57069,8 +57004,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_89) empty-syntax))" +"(if(syntax?$1 the-struct_89)" "(let-values(((content62_0)(datum-intern-literal s-exp_4))" "((srcloc63_0) srcloc_11)" "((props64_0)" @@ -57082,14 +57017,14 @@ static const char *startup_source = "(let-values() original-props))))))" "(syntax1.1" " content62_0" -"(syntax-scopes the-struct_88)" -"(syntax-shifted-multi-scopes the-struct_88)" -"(syntax-scope-propagations+tamper the-struct_88)" -"(syntax-mpi-shifts the-struct_88)" +"(syntax-scopes the-struct_89)" +"(syntax-shifted-multi-scopes the-struct_89)" +"(syntax-scope-propagations+tamper the-struct_89)" +"(syntax-mpi-shifts the-struct_89)" " srcloc63_0" " props64_0" -"(syntax-inspector the-struct_88)))" -" (raise-argument-error 'struct-copy \"syntax?\" the-struct_88))))))" +"(syntax-inspector the-struct_89)))" +" (raise-argument-error 'struct-copy \"syntax?\" the-struct_89))))))" "(define-values(original-props)(syntax-props(syntax-property$1 empty-syntax original-property-sym #t)))" "(define-values" "(original-square-props)" @@ -57115,7 +57050,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_188)))" -"((letrec-values(((for-loop_119)" +"((letrec-values(((for-loop_121)" "(lambda(fold-var_235 lst_287)" "(begin" " 'for-loop" @@ -57131,9 +57066,9 @@ static const char *startup_source = "(read-coerce #t e_85 srcloc_12))" " fold-var_241))))" "(values fold-var_242)))))" -"(if(not #f)(for-loop_119 fold-var_240 rest_162) fold-var_240)))" +"(if(not #f)(for-loop_121 fold-var_240 rest_162) fold-var_240)))" " fold-var_235)))))" -" for-loop_119)" +" for-loop_121)" " null" " lst_188))))" " srcloc_12" @@ -57174,7 +57109,7 @@ static const char *startup_source = "(begin" " 'dynamic-require-reader20" "(let-values(((mod-path_31) mod-path18_0))" -"(let-values(((sym_98) sym19_1))" +"(let-values(((sym_99) sym19_1))" "(let-values(((fail-thunk_1)" "(if(eq? fail-thunk17_0 unsafe-undefined)" " default-dynamic-require-fail-thunk" @@ -57188,11 +57123,11 @@ static const char *startup_source = "(continuation-mark-set-first #f parameterization-key)" " 1/current-namespace" " root-ns_0)" -"(let-values()(1/dynamic-require mod-path_31 sym_98 fail-thunk_1)))" -"(1/dynamic-require mod-path_31 sym_98 fail-thunk_1)))))))))))" +"(let-values()(1/dynamic-require mod-path_31 sym_99 fail-thunk_1)))" +"(1/dynamic-require mod-path_31 sym_99 fail-thunk_1)))))))))))" "(case-lambda" -"((mod-path_32 sym_99)(begin(dynamic-require-reader20_0 mod-path_32 sym_99 unsafe-undefined)))" -"((mod-path_0 sym_100 fail-thunk17_1)(dynamic-require-reader20_0 mod-path_0 sym_100 fail-thunk17_1)))))" +"((mod-path_32 sym_100)(begin(dynamic-require-reader20_0 mod-path_32 sym_100 unsafe-undefined)))" +"((mod-path_0 sym_101 fail-thunk17_1)(dynamic-require-reader20_0 mod-path_0 sym_101 fail-thunk17_1)))))" "(define-values" "(1/read-syntax)" "(let-values(((read-syntax3_0)" @@ -57233,16 +57168,16 @@ static const char *startup_source = "(void)" "(let-values()" " (raise-argument-error 'read-syntax/recursive \"input-port?\" in_84)))" -"(if((lambda(x_92)" -"(let-values(((or-part_298)(not x_92)))" -"(if or-part_298 or-part_298(char? x_92))))" +"(if((lambda(x_93)" +"(let-values(((or-part_298)(not x_93)))" +"(if or-part_298 or-part_298(char? x_93))))" " start_59)" "(void)" "(let-values()" " (raise-argument-error 'read-syntax/recursive \"(or/c char? #f)\" start_59)))" -"(if((lambda(x_93)" -"(let-values(((or-part_90)(not x_93)))" -"(if or-part_90 or-part_90(1/readtable? x_93))))" +"(if((lambda(x_94)" +"(let-values(((or-part_90)(not x_94)))" +"(if or-part_90 or-part_90(1/readtable? x_94))))" " readtable_7)" "(void)" "(let-values()" @@ -57295,15 +57230,15 @@ static const char *startup_source = "(if(input-port? in_80)" "(void)" " (let-values () (raise-argument-error 'read/recursive \"input-port?\" in_80)))" -"(if((lambda(x_94)" -"(let-values(((or-part_31)(not x_94)))" -"(if or-part_31 or-part_31(char? x_94))))" +"(if((lambda(x_95)" +"(let-values(((or-part_31)(not x_95)))" +"(if or-part_31 or-part_31(char? x_95))))" " start_61)" "(void)" " (let-values () (raise-argument-error 'read/recursive \"(or/c char? #f)\" start_61)))" -"(if((lambda(x_95)" -"(let-values(((or-part_159)(not x_95)))" -"(if or-part_159 or-part_159(1/readtable? x_95))))" +"(if((lambda(x_96)" +"(let-values(((or-part_159)(not x_96)))" +"(if or-part_159 or-part_159(1/readtable? x_96))))" " readtable_9)" "(void)" "(let-values()" @@ -57366,19 +57301,19 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_77)))" -"((letrec-values(((for-loop_96)" -"(lambda(table_203 lst_78)" +"((letrec-values(((for-loop_98)" +"(lambda(table_206 lst_78)" "(begin" " 'for-loop" "(if(pair? lst_78)" "(let-values(((sym_68)(unsafe-car lst_78))" "((rest_36)(unsafe-cdr lst_78)))" "(let-values(((table_170)" -"(let-values(((table_208) table_203))" -"(let-values(((table_209)" +"(let-values(((table_211) table_206))" +"(let-values(((table_212)" "(let-values()" "(let-values(((key_33" -" val_79)" +" val_80)" "(let-values()" "(let-values(((binding_26)" "(let-values(((mpi10_0)" @@ -57412,15 +57347,15 @@ static const char *startup_source = " #f)" " binding_26))))))" "(hash-set" -" table_208" +" table_211" " key_33" -" val_79)))))" -"(values table_209)))))" +" val_80)))))" +"(values table_212)))))" "(if(not #f)" -"(for-loop_96 table_170 rest_36)" +"(for-loop_98 table_170 rest_36)" " table_170)))" -" table_203)))))" -" for-loop_96)" +" table_206)))))" +" for-loop_98)" " '#hash()" " lst_77)))))" "((temp9_7)" @@ -57444,7 +57379,7 @@ static const char *startup_source = "(begin" " 'for-loop" "(if(pair? lst_261)" -"(let-values(((sym_101)(unsafe-car lst_261))" +"(let-values(((sym_102)(unsafe-car lst_261))" "((rest_179)(unsafe-cdr lst_261)))" "(let-values((()" "(let-values()" @@ -57452,15 +57387,15 @@ static const char *startup_source = "(let-values()" "(begin" "(let-values()" -"(let-values(((val_80)" +"(let-values(((val_81)" "(1/instance-variable-value" " inst_6" -" sym_101)))" +" sym_102)))" "(namespace-set-variable!" " ns_46" " 0" -" sym_101" -" val_80)))" +" sym_102" +" val_81)))" "(values)))))" "(values)))))" "(if(not #f)" @@ -57530,7 +57465,7 @@ static const char *startup_source = " 1/make-exn:fail:syntax:missing-module" " 1/exn:fail:syntax:missing-module?" " 1/exn:fail:syntax:missing-module-path)" -"(let-values(((struct:_69 make-_69 ?_69 -ref_69 -set!_69)" +"(let-values(((struct:_68 make-_68 ?_68 -ref_68 -set!_68)" "(let-values()" "(let-values()" "(make-struct-type" @@ -57546,18 +57481,18 @@ static const char *startup_source = " '(0)" " #f" " 'exn:fail:syntax:missing-module)))))" -"(values struct:_69 make-_69 ?_69(make-struct-field-accessor -ref_69 0 'path))))" +"(values struct:_68 make-_68 ?_68(make-struct-field-accessor -ref_68 0 'path))))" "(define-values" "(1/current-module-path-for-load)" "(make-parameter" " #f" -"(lambda(v_237)" +"(lambda(v_235)" "(begin" -"(if(let-values(((or-part_67)(not v_237)))" +"(if(let-values(((or-part_67)(not v_235)))" "(if or-part_67" " or-part_67" -"(let-values(((or-part_68)(1/module-path? v_237)))" -"(if or-part_68 or-part_68(if(syntax?$1 v_237)(1/module-path?(syntax->datum$1 v_237)) #f)))))" +"(let-values(((or-part_68)(1/module-path? v_235)))" +"(if or-part_68 or-part_68(if(syntax?$1 v_235)(1/module-path?(syntax->datum$1 v_235)) #f)))))" "(void)" "(let-values()" "(raise-argument-error" @@ -57566,8 +57501,8 @@ static const char *startup_source = " \"(or/c module-path?\"" " \" (and/c syntax? (lambda (stx) (module-path? (syntax->datum stx))))\"" " \" #f)\")" -" v_237)))" -" v_237))))" +" v_235)))" +" v_235))))" "(define-values" "(maybe-raise-missing-module)" "(lambda(name_73 filename_0 pre_0 rel_0 post_0 errstr_0)" @@ -57618,10 +57553,10 @@ static const char *startup_source = "(define-values" "(1/local-expand)" "(let-values(((local-expand5_0)" -"(lambda(s2_10 context3_0 stop-ids4_0 intdefs1_0)" +"(lambda(s2_9 context3_0 stop-ids4_0 intdefs1_0)" "(begin" " 'local-expand5" -"(let-values(((s_8) s2_10))" +"(let-values(((s_8) s2_9))" "(let-values(((context_10) context3_0))" "(let-values(((stop-ids_2) stop-ids4_0))" "(let-values(((intdefs_4) intdefs1_0))" @@ -57777,7 +57712,7 @@ static const char *startup_source = "(let-values(((opaque-only?_0) opaque-only?27_0))" "(let-values()" "(let-values(((exp-s_11)" -"(let-values(((temp79_0) 'syntax-local-expand-expression)" +"(let-values(((temp79_1) 'syntax-local-expand-expression)" "((s80_1) s_495)" "((temp81_3) 'expression)" "((null82_0) null)" @@ -57794,12 +57729,12 @@ static const char *startup_source = " temp85_3" " opaque-only?84_0" " temp86_3" -" temp79_0" +" temp79_1" " s80_1" " temp81_3" " null82_0" " temp83_2))))" -"(let-values(((ctx_73)(let-values()(get-current-expand-context16.1 #f 'unexpected))))" +"(let-values(((ctx_74)(let-values()(get-current-expand-context16.1 #f 'unexpected))))" "(let-values(((ae_1)" "(flip-introduction-scopes" "(datum->syntax$1" @@ -57807,15 +57742,15 @@ static const char *startup_source = "(already-expanded1.1" "(if(parsed? exp-s_11)" " exp-s_11" -"(flip-introduction-scopes exp-s_11 ctx_73))" -"(expand-context-binding-layer ctx_73)))" -" ctx_73)))" +"(flip-introduction-scopes exp-s_11 ctx_74))" +"(expand-context-binding-layer ctx_74)))" +" ctx_74)))" "(begin" -"(let-values(((obs_60)(expand-context-observer ctx_73)))" +"(let-values(((obs_60)(expand-context-observer ctx_74)))" "(if obs_60" "(let-values()(let-values()(call-expand-observe obs_60 'opaque-expr ae_1)))" "(void)))" -"(let-values(((obs_4)(expand-context-observer ctx_73)))" +"(let-values(((obs_4)(expand-context-observer ctx_74)))" "(if obs_4" "(let-values()(let-values()(call-expand-observe obs_4 'exit-local exp-s_11)))" "(void)))" @@ -57904,17 +57839,17 @@ static const char *startup_source = " intdefs-or-false?-string" " intdefs_10)))" "(values))))" -"(let-values(((ctx_74)" +"(let-values(((ctx_75)" "(let-values(((who88_0) who_34))" "(get-current-expand-context16.1 #f who88_0))))" -"(let-values(((phase_94)" +"(let-values(((phase_93)" "(if as-transformer?_6" -"(add1(expand-context-phase ctx_74))" -"(expand-context-phase ctx_74))))" +"(add1(expand-context-phase ctx_75))" +"(expand-context-phase ctx_75))))" "(let-values(((local-ctx_0)" -"(let-values(((ctx89_0) ctx_74)" +"(let-values(((ctx89_0) ctx_75)" "((context90_0) context_24)" -"((phase91_0) phase_94)" +"((phase91_0) phase_93)" "((intdefs92_0) intdefs_10)" "((stop-ids93_0) stop-ids_16)" "((to-parsed-ok?94_0) to-parsed-ok?_1)" @@ -57924,9 +57859,9 @@ static const char *startup_source = "(if or-part_169" " or-part_169" "(if(expand-context-in-local-expand?" -" ctx_74)" +" ctx_75)" "(expand-context-keep-#%expression?" -" ctx_74)" +" ctx_75)" " #f))))" "((track-to-be-defined?96_0)" " track-to-be-defined?_1))" @@ -57942,8 +57877,8 @@ static const char *startup_source = "(let-values((()" "(begin" "(namespace-visit-available-modules!" -"(expand-context-namespace ctx_74)" -" phase_94)" +"(expand-context-namespace ctx_75)" +" phase_93)" "(values))))" "(let-values((()" "(begin" @@ -57960,7 +57895,7 @@ static const char *startup_source = "(values))))" "(let-values(((input-s_1)" "(let-values(((temp97_3)" -"(flip-introduction-scopes s_496 ctx_74))" +"(flip-introduction-scopes s_496 ctx_75))" "((intdefs98_0) intdefs_10))" "(add-intdef-scopes24.1" " unsafe-undefined" @@ -58104,7 +58039,7 @@ static const char *startup_source = " output-s_0" "(flip-introduction-scopes" " output-s_0" -" ctx_74))))" +" ctx_75))))" "(begin" "(if skip-log-exit?_0" "(void)" @@ -58187,8 +58122,8 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(if(let-values(((or-part_309)(not maybe-insp_2)))" -"(if or-part_309 or-part_309(inspector? maybe-insp_2)))" +"(if(let-values(((or-part_310)(not maybe-insp_2)))" +"(if or-part_310 or-part_310(inspector? maybe-insp_2)))" "(void)" " (let-values () (raise-argument-error 'syntax-disarm \"(or/c inspector? #f)\" maybe-insp_2)))" "(values))))" @@ -58717,18 +58652,18 @@ static const char *startup_source = "(let-values(((prims_0)(1/primitive-table name_74)))" "(let-values((()" "(begin" -"(let-values(((ht_155) prims_0))" +"(let-values(((ht_156) prims_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash-keys ht_155)))" +"(let-values()(check-in-hash-keys ht_156)))" "((letrec-values(((for-loop_17)" "(lambda(i_175)" "(begin" " 'for-loop" "(if i_175" "(let-values(((sym_65)" -"(hash-iterate-key ht_155 i_175)))" +"(hash-iterate-key ht_156 i_175)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -58741,34 +58676,34 @@ static const char *startup_source = "(values)))))" "(if(not #f)" "(for-loop_17" -"(hash-iterate-next ht_155 i_175))" +"(hash-iterate-next ht_156 i_175))" "(values))))" "(values))))))" " for-loop_17)" -"(hash-iterate-first ht_155))))" +"(hash-iterate-first ht_156))))" "(values))))" "(let-values()" -"(let-values(((ht_156)" -"(let-values(((ht_157) prims_0))" +"(let-values(((ht_157)" +"(let-values(((ht_158) prims_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_157)))" -"((letrec-values(((for-loop_247)" -"(lambda(table_210 i_97)" +"(let-values()(check-in-hash ht_158)))" +"((letrec-values(((for-loop_249)" +"(lambda(table_213 i_97)" "(begin" " 'for-loop" "(if i_97" -"(let-values(((sym_92 val_81)" +"(let-values(((sym_93 val_82)" "(hash-iterate-key+value" -" ht_157" +" ht_158" " i_97)))" -"(let-values(((table_211)" +"(let-values(((table_214)" "(let-values(((table_10)" -" table_210))" +" table_213))" "(if(set-member?" " skip-syms_0" -" sym_92)" +" sym_93)" " table_10" "(let-values(((table_11)" " table_10))" @@ -58778,63 +58713,63 @@ static const char *startup_source = " val_5)" "(let-values()" "(values" -" sym_92" +" sym_93" "(let-values(((or-part_167)" "(hash-ref" " alts_0" -" sym_92" +" sym_93" " #f)))" "(if or-part_167" " or-part_167" -" val_81))))))" +" val_82))))))" "(hash-set" " table_11" " key_14" " val_5)))))" "(values table_12)))))))" "(if(not #f)" -"(for-loop_247" -" table_211" -"(hash-iterate-next ht_157 i_97))" -" table_211)))" -" table_210)))))" -" for-loop_247)" +"(for-loop_249" +" table_214" +"(hash-iterate-next ht_158 i_97))" +" table_214)))" +" table_213)))))" +" for-loop_249)" " '#hasheq()" -"(hash-iterate-first ht_157))))))" +"(hash-iterate-first ht_158))))))" "(let-values(((ht+extras_0)" -"(let-values(((ht_145) extras_0))" +"(let-values(((ht_146) extras_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_145)))" -"((letrec-values(((for-loop_251)" -"(lambda(ht_152 i_169)" +"(let-values()(check-in-hash ht_146)))" +"((letrec-values(((for-loop_253)" +"(lambda(ht_153 i_169)" "(begin" " 'for-loop" "(if i_169" "(let-values(((k_43 v_48)" "(hash-iterate-key+value" -" ht_145" +" ht_146" " i_169)))" -"(let-values(((ht_158)" "(let-values(((ht_159)" -" ht_152))" "(let-values(((ht_160)" +" ht_153))" +"(let-values(((ht_161)" "(let-values()" "(hash-set" -" ht_159" +" ht_160" " k_43" " v_48))))" -"(values ht_160)))))" +"(values ht_161)))))" "(if(not #f)" -"(for-loop_251" -" ht_158" -"(hash-iterate-next ht_145 i_169))" -" ht_158)))" -" ht_152)))))" -" for-loop_251)" -" ht_156" -"(hash-iterate-first ht_145))))))" +"(for-loop_253" +" ht_159" +"(hash-iterate-next ht_146 i_169))" +" ht_159)))" +" ht_153)))))" +" for-loop_253)" +" ht_157" +"(hash-iterate-first ht_146))))))" "(let-values(((to-name61_0) to-name_0)" "((ht+extras62_0) ht+extras_0)" "((ns63_0) ns_121)" @@ -58854,7 +58789,7 @@ static const char *startup_source = "(begin" " 'declare-hash-based-module!41" "(let-values(((name_75) name39_0))" -"(let-values(((ht_161) ht40_0))" +"(let-values(((ht_162) ht40_0))" "(let-values(((ns_122) namespace29_0))" "(let-values(((primitive?_10) primitive?30_0))" "(let-values(((protected?_11) protected?31_0))" @@ -58872,34 +58807,34 @@ static const char *startup_source = "((temp74_2)" "(hasheqv" " 0" -"(let-values(((ht_162) ht_161))" +"(let-values(((ht_163) ht_162))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash-keys ht_162)))" -"((letrec-values(((for-loop_279)" -"(lambda(table_212 i_176)" +"(let-values()(check-in-hash-keys ht_163)))" +"((letrec-values(((for-loop_281)" +"(lambda(table_215 i_176)" "(begin" " 'for-loop" "(if i_176" -"(let-values(((sym_102)" +"(let-values(((sym_103)" "(hash-iterate-key" -" ht_162" +" ht_163" " i_176)))" "(let-values(((table_6)" "(let-values(((table_7)" -" table_212))" -"(let-values(((table_213)" +" table_215))" +"(let-values(((table_216)" "(let-values()" -"(let-values(((key_85" -" val_82)" +"(let-values(((key_86" +" val_83)" "(let-values()" "(let-values((()" "(begin" "(if register-builtin?_0" "(let-values()" "(register-built-in-symbol!" -" sym_102))" +" sym_103))" "(void))" "(values))))" "(let-values(((binding_27)" @@ -58908,7 +58843,7 @@ static const char *startup_source = "((temp77_3)" " 0)" "((sym78_0)" -" sym_102))" +" sym_103))" "(make-module-binding22.1" " #f" " null" @@ -58923,13 +58858,13 @@ static const char *startup_source = " temp77_3" " sym78_0))))" "(values" -" sym_102" +" sym_103" "(if(let-values(((or-part_56)" " protected?_11))" "(if or-part_56" " or-part_56" "(member" -" sym_102" +" sym_103" " protected-syms_0)))" "(provided1.1" " binding_27" @@ -58938,21 +58873,21 @@ static const char *startup_source = " binding_27)))))))" "(hash-set" " table_7" -" key_85" -" val_82)))))" +" key_86" +" val_83)))))" "(values" -" table_213)))))" +" table_216)))))" "(if(not #f)" -"(for-loop_279" +"(for-loop_281" " table_6" "(hash-iterate-next" -" ht_162" +" ht_163" " i_176))" " table_6)))" -" table_212)))))" -" for-loop_279)" +" table_215)))))" +" for-loop_281)" " '#hash()" -"(hash-iterate-first ht_162))))))" +"(hash-iterate-first ht_163))))))" "((temp75_4)" "(lambda(data-box_6" " ns_123" @@ -58964,20 +58899,20 @@ static const char *startup_source = "(if(= 0 phase-level_23)" "(let-values()" "(begin" -"(let-values(((ht_163) ht_161))" +"(let-values(((ht_164) ht_162))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_163)))" -"((letrec-values(((for-loop_280)" +"(let-values()(check-in-hash ht_164)))" +"((letrec-values(((for-loop_282)" "(lambda(i_177)" "(begin" " 'for-loop" "(if i_177" -"(let-values(((sym_103 val_83)" +"(let-values(((sym_104 val_84)" "(hash-iterate-key+value" -" ht_163" +" ht_164" " i_177)))" "(let-values((()" "(let-values()" @@ -58988,19 +58923,19 @@ static const char *startup_source = "(namespace-set-variable!" " ns_123" " 0" -" sym_103" -" val_83))" +" sym_104" +" val_84))" "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_280" +"(for-loop_282" "(hash-iterate-next" -" ht_163" +" ht_164" " i_177))" "(values))))" "(values))))))" -" for-loop_280)" -"(hash-iterate-first ht_163))))" +" for-loop_282)" +"(hash-iterate-first ht_164))))" "(void)))" "(void)))))" "(make-module39.1" @@ -59026,10 +58961,10 @@ static const char *startup_source = "(declare-module!58.1 #t ns66_0 temp67_5 temp68_6))))))))))))))" "(define-values" "(declare-reexporting-module!50.1)" -"(lambda(namespace45_0 reexport?44_0 name48_1 require-names49_0)" +"(lambda(namespace45_0 reexport?44_0 name48_0 require-names49_0)" "(begin" " 'declare-reexporting-module!50" -"(let-values(((name_76) name48_1))" +"(let-values(((name_76) name48_0))" "(let-values(((require-names_0) require-names49_0))" "(let-values(((reexport?_0) reexport?44_0))" "(let-values(((ns_124) namespace45_0))" @@ -59042,7 +58977,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_108)))" -"((letrec-values(((for-loop_207)" +"((letrec-values(((for-loop_209)" "(lambda(fold-var_143 lst_109)" "(begin" " 'for-loop" @@ -59063,10 +58998,10 @@ static const char *startup_source = " fold-var_285))))" "(values fold-var_39)))))" "(if(not #f)" -"(for-loop_207 fold-var_145 rest_110)" +"(for-loop_209 fold-var_145 rest_110)" " fold-var_145)))" " fold-var_143)))))" -" for-loop_207)" +" for-loop_209)" " null" " lst_108))))))" "(let-values(((ns79_1) ns_124)" @@ -59084,8 +59019,8 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_159)))" -"((letrec-values(((for-loop_281)" -"(lambda(table_214 lst_310)" +"((letrec-values(((for-loop_283)" +"(lambda(table_217 lst_310)" "(begin" " 'for-loop" "(if(pair? lst_310)" @@ -59093,7 +59028,7 @@ static const char *startup_source = "(unsafe-car lst_310))" "((rest_180)" "(unsafe-cdr lst_310)))" -"(let-values(((table_215)" +"(let-values(((table_218)" "(let-values(((m_29)" "(namespace->module" " ns_124" @@ -59101,13 +59036,13 @@ static const char *startup_source = " require-mpi_0))))" "(begin" " #t" -"((letrec-values(((for-loop_185)" +"((letrec-values(((for-loop_187)" "(lambda(table_140)" "(begin" " 'for-loop" "(let-values()" -"(let-values(((table_216)" -"(let-values(((ht_164)" +"(let-values(((table_219)" +"(let-values(((ht_165)" "(hash-ref" "(shift-provides-module-path-index" "(module-provides" @@ -59122,56 +59057,56 @@ static const char *startup_source = "(void)" "(let-values()" "(check-in-hash" -" ht_164)))" -"((letrec-values(((for-loop_282)" +" ht_165)))" +"((letrec-values(((for-loop_284)" "(lambda(table_141" " i_178)" "(begin" " 'for-loop" "(if i_178" -"(let-values(((sym_104" +"(let-values(((sym_105" " binding_28)" "(hash-iterate-key+value" -" ht_164" +" ht_165" " i_178)))" "(let-values(((table_31)" "(let-values(((table_32)" " table_141))" -"(let-values(((table_217)" +"(let-values(((table_220)" "(let-values()" -"(let-values(((key_86" -" val_84)" +"(let-values(((key_87" +" val_85)" "(let-values()" "(values" -" sym_104" +" sym_105" " binding_28))))" "(hash-set" " table_32" -" key_86" -" val_84)))))" +" key_87" +" val_85)))))" "(values" -" table_217)))))" +" table_220)))))" "(if(not" " #f)" -"(for-loop_282" +"(for-loop_284" " table_31" "(hash-iterate-next" -" ht_164" +" ht_165" " i_178))" " table_31)))" " table_141)))))" -" for-loop_282)" +" for-loop_284)" " table_140" "(hash-iterate-first" -" ht_164))))))" -" table_216))))))" -" for-loop_185)" -" table_214)))))" +" ht_165))))))" +" table_219))))))" +" for-loop_187)" +" table_217)))))" "(if(not #f)" -"(for-loop_281 table_215 rest_180)" -" table_215)))" -" table_214)))))" -" for-loop_281)" +"(for-loop_283 table_218 rest_180)" +" table_218)))" +" table_217)))))" +" for-loop_283)" " '#hash()" " lst_159))))" " '#hasheqv()))" @@ -59419,10 +59354,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_96)(TH-place-channel-ref x_96 0))))))" +"(make-struct-type 'TH-place-channel #f 2 0 #f(list(cons prop:evt(lambda(x_97)(TH-place-channel-ref x_97 0))))))" "(define-values" "(TH-place-channel-in TH-place-channel-out)" -"(values(lambda(x_97)(TH-place-channel-ref x_97 0))(lambda(x_83)(TH-place-channel-ref x_83 1))))" +"(values(lambda(x_98)(TH-place-channel-ref x_98 0))(lambda(x_84)(TH-place-channel-ref x_84 1))))" "(define-values" "(place-struct-primitives)" "(hasheq" @@ -59546,8 +59481,8 @@ static const char *startup_source = "(check-module-form)" "(lambda(exp_0 filename_1)" "(begin" -"(if(let-values(((or-part_311)(eof-object? exp_0)))" -"(if or-part_311 or-part_311(eof-object?(1/syntax-e exp_0))))" +"(if(let-values(((or-part_312)(eof-object? exp_0)))" +"(if or-part_312 or-part_312(eof-object?(1/syntax-e exp_0))))" "(let-values()" "(if filename_1" "(error" @@ -59677,9 +59612,9 @@ static const char *startup_source = "(void))" "(values))))" "(let-values(((m-s_0)(check-module-form s_178 path_12)))" -"(let-values(((s2_11)(1/read-syntax(object-name i_179) i_179)))" +"(let-values(((s2_10)(1/read-syntax(object-name i_179) i_179)))" "(begin" -"(if(eof-object? s2_11)" +"(if(eof-object? s2_10)" "(void)" "(let-values()" "(error" @@ -59690,7 +59625,7 @@ static const char *startup_source = " \" in: ~e\\n\"" " \" found: ~.s\")" "(object-name i_179)" -" s2_11)))" +" s2_10)))" "(lambda()((1/current-eval) m-s_0))))))))))))))))))))" "(let-values()" "(let-values(((add-top-interaction_0)" @@ -59789,23 +59724,23 @@ static const char *startup_source = "(begin(check-bytes vec_71)(values vec_71(unsafe-bytes-length vec_71))))))" "(begin" " #f" -"((letrec-values(((for-loop_235)" -"(lambda(result_123 pos_99)" +"((letrec-values(((for-loop_237)" +"(lambda(result_124 pos_99)" "(begin" " 'for-loop" "(if(unsafe-fx< pos_99 len_37)" "(let-values(((c_52)(unsafe-bytes-ref vec_70 pos_99)))" -"(let-values(((result_124)" -"(let-values()" "(let-values(((result_125)" "(let-values()" +"(let-values(((result_126)" +"(let-values()" "(let-values()(not(eq? c_52 0))))))" -"(values result_125)))))" -"(if(if(not((lambda x_98 result_124) c_52))(not #f) #f)" -"(for-loop_235 result_124(unsafe-fx+ 1 pos_99))" -" result_124)))" -" result_123)))))" -" for-loop_235)" +"(values result_126)))))" +"(if(if(not((lambda x_99 result_125) c_52))(not #f) #f)" +"(for-loop_237 result_125(unsafe-fx+ 1 pos_99))" +" result_125)))" +" result_124)))))" +" for-loop_237)" " #f" " 0)))" " hash-code_5" @@ -59828,7 +59763,7 @@ static const char *startup_source = "(lambda(i_182)" "(begin" " 'read-byte/not-eof" -"(let-values(((v_190)(read-byte i_182)))(if(eof-object? v_190) 0 v_190))))))" +"(let-values(((v_187)(read-byte i_182)))(if(eof-object? v_187) 0 v_187))))))" "(bitwise-ior" "(read-byte/not-eof_0 i_62)" "(arithmetic-shift(read-byte/not-eof_0 i_62) 8)" @@ -59889,7 +59824,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_267)))" -"((letrec-values(((for-loop_109)" +"((letrec-values(((for-loop_111)" "(lambda(fold-var_74 lst_93)" "(begin" " 'for-loop" @@ -59922,9 +59857,9 @@ static const char *startup_source = " bstr_6))))))" " fold-var_65))))" "(values fold-var_76)))))" -"(if(not #f)(for-loop_109 fold-var_75 rest_44) fold-var_75)))" +"(if(not #f)(for-loop_111 fold-var_75 rest_44) fold-var_75)))" " fold-var_74)))))" -" for-loop_109)" +" for-loop_111)" " null" " lst_267))))))))))" "(define-values" @@ -59944,12 +59879,12 @@ static const char *startup_source = "(call-with-input-module-file)" "(lambda(path_14 proc_10)" "(begin" -"(let-values(((i_155) #f))" +"(let-values(((i_156) #f))" "(dynamic-wind" "(lambda()" -"(set! i_155(let-values(((path3_0) path_14)((temp4_7) #t))(open-input-file6.1 temp4_7 'binary path3_0))))" -"(lambda()(proc_10 i_155))" -"(lambda()(close-input-port i_155)))))))" +"(set! i_156(let-values(((path3_0) path_14)((temp4_7) #t))(open-input-file6.1 temp4_7 'binary path3_0))))" +"(lambda()(proc_10 i_156))" +"(lambda()(close-input-port i_156)))))))" "(define-values(dll-suffix)(system-type 'so-suffix))" "(define-values" "(default-load/use-compiled)" @@ -60305,7 +60240,7 @@ static const char *startup_source = "(begin(let-values(((e_87)(hash-ref -module-hash-table-table reg_0 #f)))(if e_87(ephemeron-value e_87) #f)))))" "(define-values" "(registry-table-set!)" -"(lambda(reg_1 v_208)(begin(hash-set! -module-hash-table-table reg_1(make-ephemeron reg_1 v_208)))))" +"(lambda(reg_1 v_206)(begin(hash-set! -module-hash-table-table reg_1(make-ephemeron reg_1 v_206)))))" "(define-values(CACHE-N) 512)" "(define-values(-path-cache)(make-vector CACHE-N #f))" "(define-values" @@ -61027,7 +60962,7 @@ static const char *startup_source = "(let-values()" "((1/current-load/use-compiled)" " filename_2" -"(let-values(((sym_76)" +"(let-values(((sym_77)" "(string->symbol" "(path->string" " no-sfx_0))))" @@ -61038,9 +60973,9 @@ static const char *startup_source = " #f)" "(cons #f subm-path_0)" "(cons" -" sym_76" +" sym_77" " subm-path_0))" -" sym_76))))))))))))))" +" sym_77))))))))))))))" "(void))" "(if(if(not(vector? s-parsed_0))" "(if load?_7" @@ -61128,24 +61063,24 @@ static const char *startup_source = "(hash 'boot boot 'seal seal 'get-original-parameterization get-original-parameterization))" "(define-values" "(prepare-next-phase-namespace)" -"(lambda(ctx_75)" +"(lambda(ctx_76)" "(begin" -"(let-values(((phase_45)(add1(expand-context-phase ctx_75))))" -"(let-values(((ns_59)(namespace->namespace-at-phase(expand-context-namespace ctx_75) phase_45)))" -"(namespace-visit-available-modules! ns_59 phase_45))))))" +"(let-values(((phase_44)(add1(expand-context-phase ctx_76))))" +"(let-values(((ns_59)(namespace->namespace-at-phase(expand-context-namespace ctx_76) phase_44)))" +"(namespace-visit-available-modules! ns_59 phase_44))))))" "(define-values" "(expand-body7.1)" "(lambda(source1_0 stratified?2_0 bodys5_0 ctx6_0)" "(begin" " 'expand-body7" "(let-values(((bodys_7) bodys5_0))" -"(let-values(((ctx_76) ctx6_0))" +"(let-values(((ctx_77) ctx6_0))" "(let-values(((s_492) source1_0))" "(let-values(((stratified?_0) stratified?2_0))" "(let-values()" "(let-values((()" "(begin" -"(let-values(((obs_65)(expand-context-observer ctx_76)))" +"(let-values(((obs_65)(expand-context-observer ctx_77)))" "(if obs_65" "(let-values()" "(let-values()" @@ -61187,7 +61122,7 @@ static const char *startup_source = " lst_22))))))" "(let-values((()" "(begin" -"(let-values(((obs_66)(expand-context-observer ctx_76)))" +"(let-values(((obs_66)(expand-context-observer ctx_77)))" "(if obs_66" "(let-values()" "(let-values()" @@ -61198,60 +61133,61 @@ static const char *startup_source = "(datum->syntax$1 #f bodys_7))))" "(void)))" "(values))))" -"(let-values(((phase_138)(expand-context-phase ctx_76)))" +"(let-values(((phase_137)(expand-context-phase ctx_77)))" "(let-values(((frame-id_7)(make-reference-record)))" "(let-values(((def-ctx-scopes_6)(box null)))" "(let-values(((body-ctx_0)" -"(let-values(((v_259) ctx_76))" -"(let-values(((the-struct_89) v_259))" -"(if(expand-context/outer? the-struct_89)" +"(let-values(((v_259) ctx_77))" +"(let-values(((the-struct_90) v_259))" +"(if(expand-context/outer? the-struct_90)" "(let-values(((context51_0)(list(make-liberal-define-context)))" "((name52_0) #f)" "((only-immediate?53_0) #t)" "((def-ctx-scopes54_0) def-ctx-scopes_6)" -"((post-expansion-scope55_0) inside-sc_0)" -"((post-expansion-scope-action56_0) add-scope)" -"((scopes57_1)" -"(cons inside-sc_0(expand-context-scopes ctx_76)))" -"((use-site-scopes58_0)(box null))" -"((frame-id59_0) frame-id_7)" -"((reference-records60_0)" +"((post-expansion55_0)" +"(lambda(s_168)" +"(begin" +" 'post-expansion55" +"(add-scope s_168 inside-sc_0))))" +"((scopes56_0)" +"(cons inside-sc_0(expand-context-scopes ctx_77)))" +"((use-site-scopes57_0)(box null))" +"((frame-id58_0) frame-id_7)" +"((reference-records59_0)" "(cons" " frame-id_7" -"(expand-context-reference-records ctx_76)))" -"((inner61_0)(root-expand-context/outer-inner v_259)))" +"(expand-context-reference-records ctx_77)))" +"((inner60_0)(root-expand-context/outer-inner v_259)))" "(expand-context/outer1.1" -" inner61_0" -" post-expansion-scope55_0" -"(root-expand-context/outer-post-expansion-shifts the-struct_89)" -" use-site-scopes58_0" -" frame-id59_0" +" inner60_0" +" post-expansion55_0" +" use-site-scopes57_0" +" frame-id58_0" " context51_0" -"(expand-context/outer-env the-struct_89)" -" post-expansion-scope-action56_0" -" scopes57_1" +"(expand-context/outer-env the-struct_90)" +" scopes56_0" " def-ctx-scopes54_0" -"(expand-context/outer-binding-layer the-struct_89)" -" reference-records60_0" +"(expand-context/outer-binding-layer the-struct_90)" +" reference-records59_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-current-use-scopes the-struct_89)" +"(expand-context/outer-need-eventually-defined the-struct_90)" +"(expand-context/outer-current-introduction-scopes the-struct_90)" +"(expand-context/outer-current-use-scopes the-struct_90)" " name52_0))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_89))))))" +" the-struct_90))))))" "(let-values(((maybe-increment-binding-layer_0)" "(lambda(ids_30 body-ctx_1)" "(begin" " 'maybe-increment-binding-layer" "(if(eq?" "(expand-context-binding-layer body-ctx_1)" -"(expand-context-binding-layer ctx_76))" +"(expand-context-binding-layer ctx_77))" "(increment-binding-layer ids_30 body-ctx_1 inside-sc_0)" "(expand-context-binding-layer body-ctx_1))))))" -"(let-values(((name_80)(expand-context-name ctx_76)))" +"(let-values(((name_80)(expand-context-name ctx_77)))" "((letrec-values(((loop_121)" "(lambda(body-ctx_2" " bodys_8" @@ -61267,33 +61203,33 @@ static const char *startup_source = " 'loop" "(if(null? bodys_8)" "(let-values()" -"(let-values(((body-ctx62_0) body-ctx_2)" -"((frame-id63_0) frame-id_7)" -"((def-ctx-scopes64_0) def-ctx-scopes_6)" -"((temp65_5)(reverse$1 val-idss_0))" -"((temp66_5)(reverse$1 val-keyss_0))" -"((temp67_6)(reverse$1 val-rhss_0))" -"((temp68_7)(reverse$1 track-stxs_0))" -"((temp69_4)(reverse$1 stx-clauses_0))" -"((temp70_5)(reverse$1 done-bodys_0))" -"((s71_0) s_492)" -"((stratified?72_0) stratified?_0)" -"((name73_0) name_80)" -"((temp74_3)(reverse$1 trans-idss_1)))" +"(let-values(((body-ctx61_0) body-ctx_2)" +"((frame-id62_0) frame-id_7)" +"((def-ctx-scopes63_0) def-ctx-scopes_6)" +"((temp64_5)(reverse$1 val-idss_0))" +"((temp65_5)(reverse$1 val-keyss_0))" +"((temp66_5)(reverse$1 val-rhss_0))" +"((temp67_6)(reverse$1 track-stxs_0))" +"((temp68_7)(reverse$1 stx-clauses_0))" +"((temp69_4)(reverse$1 done-bodys_0))" +"((s70_0) s_492)" +"((stratified?71_0) stratified?_0)" +"((name72_0) name_80)" +"((temp73_3)(reverse$1 trans-idss_1)))" "(finish-expanding-body27.1" -" temp74_3" -" name73_0" -" s71_0" -" stratified?72_0" -" body-ctx62_0" -" frame-id63_0" -" def-ctx-scopes64_0" +" temp73_3" +" name72_0" +" s70_0" +" stratified?71_0" +" body-ctx61_0" +" frame-id62_0" +" def-ctx-scopes63_0" +" temp64_5" " temp65_5" " temp66_5" " temp67_6" " temp68_7" -" temp69_4" -" temp70_5)))" +" temp69_4)))" "(let-values()" "(let-values(((rest-bodys_0)(cdr bodys_8)))" "(let-values((()" @@ -61310,73 +61246,69 @@ static const char *startup_source = "(void)))" "(values))))" "(let-values(((exp-body_0)" -"(let-values(((temp75_5)(car bodys_8))" -"((temp76_4)" +"(let-values(((temp74_3)(car bodys_8))" +"((temp75_5)" "(if(if name_80" "(null?" "(cdr bodys_8))" " #f)" "(let-values(((v_260)" " body-ctx_2))" -"(let-values(((the-struct_90)" +"(let-values(((the-struct_91)" " v_260))" "(if(expand-context/outer?" -" the-struct_90)" -"(let-values(((name77_0)" +" the-struct_91)" +"(let-values(((name76_0)" " name_80)" -"((inner78_0)" +"((inner77_0)" "(root-expand-context/outer-inner" " v_260)))" "(expand-context/outer1.1" -" inner78_0" -"(root-expand-context/outer-post-expansion-scope" -" the-struct_90)" -"(root-expand-context/outer-post-expansion-shifts" -" the-struct_90)" +" inner77_0" +"(root-expand-context/outer-post-expansion" +" the-struct_91)" "(root-expand-context/outer-use-site-scopes" -" the-struct_90)" +" the-struct_91)" "(root-expand-context/outer-frame-id" -" the-struct_90)" +" the-struct_91)" "(expand-context/outer-context" -" the-struct_90)" +" the-struct_91)" "(expand-context/outer-env" -" the-struct_90)" -"(expand-context/outer-post-expansion-scope-action" -" the-struct_90)" +" the-struct_91)" "(expand-context/outer-scopes" -" the-struct_90)" +" the-struct_91)" "(expand-context/outer-def-ctx-scopes" -" the-struct_90)" +" the-struct_91)" "(expand-context/outer-binding-layer" -" the-struct_90)" +" the-struct_91)" "(expand-context/outer-reference-records" -" the-struct_90)" +" the-struct_91)" "(expand-context/outer-only-immediate?" -" the-struct_90)" +" the-struct_91)" "(expand-context/outer-need-eventually-defined" -" the-struct_90)" +" the-struct_91)" "(expand-context/outer-current-introduction-scopes" -" the-struct_90)" +" the-struct_91)" "(expand-context/outer-current-use-scopes" -" the-struct_90)" -" name77_0))" +" the-struct_91)" +" name76_0))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_90))))" +" the-struct_91))))" " body-ctx_2)))" "(expand9.1" " #f" " #f" " #f" -" temp75_5" -" temp76_4))))" +" temp74_3" +" temp75_5))))" "(let-values(((disarmed-exp-body_0)" "(syntax-disarm$1 exp-body_0)))" "(let-values(((tmp_63)" "(core-form-sym" " disarmed-exp-body_0" -" phase_138)))" +" phase_137)))" "(if(equal? tmp_63 'begin)" "(let-values()" "(let-values((()" @@ -61392,13 +61324,13 @@ static const char *startup_source = " 'prim-begin)))" "(void)))" "(values))))" -"(let-values(((ok?_34 begin79_0 e80_0)" +"(let-values(((ok?_34 begin78_0 e79_0)" "(let-values(((s_504)" " disarmed-exp-body_0))" "(let-values(((orig-s_38)" " s_504))" -"(let-values(((begin79_1" -" e80_1)" +"(let-values(((begin78_1" +" e79_1)" "(let-values(((s_505)" "(if(syntax?$1" " s_504)" @@ -61407,12 +61339,12 @@ static const char *startup_source = " s_504)))" "(if(pair?" " s_505)" -"(let-values(((begin81_0)" +"(let-values(((begin80_0)" "(let-values(((s_176)" "(car" " s_505)))" " s_176))" -"((e82_0)" +"((e81_0)" "(let-values(((s_450)" "(cdr" " s_505)))" @@ -61435,16 +61367,16 @@ static const char *startup_source = "(let-values()" " flat-s_25)))))))" "(values" -" begin81_0" -" e82_0))" +" begin80_0" +" e81_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" " orig-s_38)))))" "(values" " #t" -" begin79_1" -" e80_1))))))" +" begin78_1" +" e79_1))))))" "(let-values(((track_0)" "(lambda(e_89)" "(begin" @@ -61454,7 +61386,7 @@ static const char *startup_source = " exp-body_0)))))" "(let-values(((splice-bodys_0)" "(append" -"(map2 track_0 e80_0)" +"(map2 track_0 e79_0)" " rest-bodys_0)))" "(begin" "(let-values(((obs_35)" @@ -61495,16 +61427,16 @@ static const char *startup_source = "(void)))" "(values))))" "(let-values(((ok?_35" -" define-values83_0" -" id84_1" -" rhs85_0)" +" define-values82_0" +" id83_0" +" rhs84_0)" "(let-values(((s_32)" " disarmed-exp-body_0))" "(let-values(((orig-s_39)" " s_32))" -"(let-values(((define-values83_1" -" id84_2" -" rhs85_1)" +"(let-values(((define-values82_1" +" id83_1" +" rhs84_1)" "(let-values(((s_51)" "(if(syntax?$1" " s_32)" @@ -61513,13 +61445,13 @@ static const char *startup_source = " s_32)))" "(if(pair?" " s_51)" -"(let-values(((define-values86_0)" +"(let-values(((define-values85_0)" "(let-values(((s_451)" "(car" " s_51)))" " s_451))" -"((id87_0" -" rhs88_0)" +"((id86_0" +" rhs87_0)" "(let-values(((s_506)" "(cdr" " s_51)))" @@ -61531,7 +61463,7 @@ static const char *startup_source = " s_506)))" "(if(pair?" " s_507)" -"(let-values(((id89_1)" +"(let-values(((id88_0)" "(let-values(((s_508)" "(car" " s_507)))" @@ -61562,8 +61494,8 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_194)))" -"((letrec-values(((for-loop_203)" -"(lambda(id_83" +"((letrec-values(((for-loop_205)" +"(lambda(id_82" " lst_13)" "(begin" " 'for-loop" @@ -61577,10 +61509,10 @@ static const char *startup_source = " lst_13)))" "(let-values(((id_104)" "(let-values(((id_105)" -" id_83))" -"(let-values(((id_72)" +" id_82))" +"(let-values(((id_71)" "(let-values()" -"(let-values(((id92_0)" +"(let-values(((id91_0)" "(let-values()" "(if(let-values(((or-part_213)" "(if(syntax?$1" @@ -61600,23 +61532,23 @@ static const char *startup_source = " orig-s_39" " s_314)))))" "(cons" -" id92_0" +" id91_0" " id_105)))))" "(values" -" id_72)))))" +" id_71)))))" "(if(not" " #f)" -"(for-loop_203" +"(for-loop_205" " id_104" " rest_105)" " id_104)))" -" id_83)))))" -" for-loop_203)" +" id_82)))))" +" for-loop_205)" " null" " lst_194)))))" "(reverse$1" " id_63))))))))" -"((rhs90_0)" +"((rhs89_0)" "(let-values(((s_33)" "(cdr" " s_507)))" @@ -61628,7 +61560,7 @@ static const char *startup_source = " s_33)))" "(if(pair?" " s_509)" -"(let-values(((rhs91_0)" +"(let-values(((rhs90_0)" "(let-values(((s_96)" "(car" " s_509)))" @@ -61651,34 +61583,34 @@ static const char *startup_source = " \"bad syntax\"" " orig-s_39))))))" "(values" -" rhs91_0))" +" rhs90_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" " orig-s_39))))))" "(values" -" id89_1" -" rhs90_0))" +" id88_0" +" rhs89_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" " orig-s_39))))))" "(values" -" define-values86_0" -" id87_0" -" rhs88_0))" +" define-values85_0" +" id86_0" +" rhs87_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" " orig-s_39)))))" "(values" " #t" -" define-values83_1" -" id84_2" -" rhs85_1))))))" +" define-values82_1" +" id83_1" +" rhs84_1))))))" "(let-values(((ids_31)" "(remove-use-site-scopes" -" id84_1" +" id83_0" " body-ctx_2)))" "(let-values((()" "(begin" @@ -61695,27 +61627,27 @@ static const char *startup_source = " #f" "(list" " ids_31" -" rhs85_0)))))" +" rhs84_0)))))" "(void)))" "(values))))" "(let-values(((new-dups_0)" -"(let-values(((ids93_0)" +"(let-values(((ids92_0)" " ids_31)" -"((phase94_1)" -" phase_138)" -"((exp-body95_0)" +"((phase93_0)" +" phase_137)" +"((exp-body94_0)" " exp-body_0)" -"((dups96_0)" +"((dups95_0)" " dups_0))" "(check-no-duplicate-ids7.1" " unsafe-undefined" -" ids93_0" -" phase94_1" -" exp-body95_0" -" dups96_0))))" +" ids92_0" +" phase93_0" +" exp-body94_0" +" dups95_0))))" "(let-values(((counter_5)" "(root-expand-context-counter" -" ctx_76)))" +" ctx_77)))" "(let-values(((keys_5)" "(reverse$1" "(let-values(((lst_311)" @@ -61727,7 +61659,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_311)))" -"((letrec-values(((for-loop_283)" +"((letrec-values(((for-loop_285)" "(lambda(fold-var_189" " lst_312)" "(begin" @@ -61747,33 +61679,33 @@ static const char *startup_source = "(let-values()" "(cons" "(let-values()" -"(let-values(((id97_0)" +"(let-values(((id96_0)" " id_106)" -"((phase98_0)" -" phase_138)" -"((counter99_0)" +"((phase97_0)" +" phase_137)" +"((counter98_0)" " counter_5)" -"((frame-id100_0)" +"((frame-id99_0)" " frame-id_7)" -"((exp-body101_0)" +"((exp-body100_0)" " exp-body_0))" "(add-local-binding!37.1" -" frame-id100_0" -" exp-body101_0" -" id97_0" -" phase98_0" -" counter99_0)))" +" frame-id99_0" +" exp-body100_0" +" id96_0" +" phase97_0" +" counter98_0)))" " fold-var_249))))" "(values" " fold-var_286)))))" "(if(not" " #f)" -"(for-loop_283" +"(for-loop_285" " fold-var_248" " rest_181)" " fold-var_248)))" " fold-var_189)))))" -" for-loop_283)" +" for-loop_285)" " null" " lst_311))))))" "(let-values(((extended-env_0)" @@ -61794,7 +61726,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_308)))" -"((letrec-values(((for-loop_278)" +"((letrec-values(((for-loop_280)" "(lambda(env_17" " lst_313" " lst_296)" @@ -61805,13 +61737,13 @@ static const char *startup_source = "(pair?" " lst_296)" " #f)" -"(let-values(((key_87)" +"(let-values(((key_88)" "(unsafe-car" " lst_313))" "((rest_169)" "(unsafe-cdr" " lst_313))" -"((id_9)" +"((id_107)" "(unsafe-car" " lst_296))" "((rest_182)" @@ -61824,20 +61756,20 @@ static const char *startup_source = "(let-values()" "(env-extend" " env_19" -" key_87" +" key_88" "(local-variable1.1" -" id_9)))))" +" id_107)))))" "(values" " env_20)))))" "(if(not" " #f)" -"(for-loop_278" +"(for-loop_280" " env_18" " rest_169" " rest_182)" " env_18)))" " env_17)))))" -" for-loop_278)" +" for-loop_280)" "(expand-context-env" " body-ctx_2)" " lst_228" @@ -61845,55 +61777,51 @@ static const char *startup_source = "(loop_121" "(let-values(((v_261)" " body-ctx_2))" -"(let-values(((the-struct_91)" +"(let-values(((the-struct_92)" " v_261))" "(if(expand-context/outer?" -" the-struct_91)" -"(let-values(((env102_0)" +" the-struct_92)" +"(let-values(((env101_0)" " extended-env_0)" -"((binding-layer103_0)" +"((binding-layer102_0)" "(maybe-increment-binding-layer_0" " ids_31" " body-ctx_2))" -"((inner104_0)" +"((inner103_0)" "(root-expand-context/outer-inner" " v_261)))" "(expand-context/outer1.1" -" inner104_0" -"(root-expand-context/outer-post-expansion-scope" -" the-struct_91)" -"(root-expand-context/outer-post-expansion-shifts" -" the-struct_91)" +" inner103_0" +"(root-expand-context/outer-post-expansion" +" the-struct_92)" "(root-expand-context/outer-use-site-scopes" -" the-struct_91)" +" the-struct_92)" "(root-expand-context/outer-frame-id" -" the-struct_91)" +" the-struct_92)" "(expand-context/outer-context" -" the-struct_91)" -" env102_0" -"(expand-context/outer-post-expansion-scope-action" -" the-struct_91)" +" the-struct_92)" +" env101_0" "(expand-context/outer-scopes" -" the-struct_91)" +" the-struct_92)" "(expand-context/outer-def-ctx-scopes" -" the-struct_91)" -" binding-layer103_0" +" the-struct_92)" +" binding-layer102_0" "(expand-context/outer-reference-records" -" the-struct_91)" +" the-struct_92)" "(expand-context/outer-only-immediate?" -" the-struct_91)" +" the-struct_92)" "(expand-context/outer-need-eventually-defined" -" the-struct_91)" +" the-struct_92)" "(expand-context/outer-current-introduction-scopes" -" the-struct_91)" +" the-struct_92)" "(expand-context/outer-current-use-scopes" -" the-struct_91)" +" the-struct_92)" "(expand-context/outer-name" -" the-struct_91)))" +" the-struct_92)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_91))))" +" the-struct_92))))" " rest-bodys_0" " null" "(cons" @@ -61909,7 +61837,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_314)))" -"((letrec-values(((for-loop_284)" +"((letrec-values(((for-loop_286)" "(lambda(fold-var_287" " lst_155)" "(begin" @@ -61935,12 +61863,12 @@ static const char *startup_source = " fold-var_290)))))" "(if(not" " #f)" -"(for-loop_284" +"(for-loop_286" " fold-var_288" " rest_79)" " fold-var_288)))" " fold-var_287)))))" -" for-loop_284)" +" for-loop_286)" " null" " lst_314))))" " val-idss_0))" @@ -61957,7 +61885,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_315)))" -"((letrec-values(((for-loop_285)" +"((letrec-values(((for-loop_287)" "(lambda(fold-var_291" " lst_32)" "(begin" @@ -61983,17 +61911,17 @@ static const char *startup_source = " fold-var_141)))))" "(if(not" " #f)" -"(for-loop_285" +"(for-loop_287" " fold-var_292" " rest_183)" " fold-var_292)))" " fold-var_291)))))" -" for-loop_285)" +" for-loop_287)" " null" " lst_315))))" " val-keyss_0))" "(cons" -" rhs85_0" +" rhs84_0" "(append" "(reverse$1" "(let-values(((lst_107)" @@ -62005,7 +61933,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_107)))" -"((letrec-values(((for-loop_124)" +"((letrec-values(((for-loop_126)" "(lambda(fold-var_294" " lst_316)" "(begin" @@ -62028,18 +61956,18 @@ static const char *startup_source = "(no-binds" " done-body_2" " s_492" -" phase_138))" +" phase_137))" " fold-var_296))))" "(values" " fold-var_145)))))" "(if(not" " #f)" -"(for-loop_124" +"(for-loop_126" " fold-var_295" " rest_184)" " fold-var_295)))" " fold-var_294)))))" -" for-loop_124)" +" for-loop_126)" " null" " lst_107))))" " val-rhss_0))" @@ -62056,7 +61984,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_157)))" -"((letrec-values(((for-loop_286)" +"((letrec-values(((for-loop_288)" "(lambda(fold-var_297" " lst_317)" "(begin" @@ -62082,12 +62010,12 @@ static const char *startup_source = " fold-var_298)))))" "(if(not" " #f)" -"(for-loop_286" +"(for-loop_288" " fold-var_41" " rest_185)" " fold-var_41)))" " fold-var_297)))))" -" for-loop_286)" +" for-loop_288)" " null" " lst_157))))" " track-stxs_0))" @@ -62110,16 +62038,16 @@ static const char *startup_source = "(void)))" "(values))))" "(let-values(((ok?_36" -" define-syntaxes105_0" -" id106_0" -" rhs107_0)" +" define-syntaxes104_0" +" id105_0" +" rhs106_0)" "(let-values(((s_71)" " disarmed-exp-body_0))" "(let-values(((orig-s_7)" " s_71))" -"(let-values(((define-syntaxes105_1" -" id106_1" -" rhs107_1)" +"(let-values(((define-syntaxes104_1" +" id105_1" +" rhs106_1)" "(let-values(((s_511)" "(if(syntax?$1" " s_71)" @@ -62128,13 +62056,13 @@ static const char *startup_source = " s_71)))" "(if(pair?" " s_511)" -"(let-values(((define-syntaxes108_0)" +"(let-values(((define-syntaxes107_0)" "(let-values(((s_216)" "(car" " s_511)))" " s_216))" -"((id109_0" -" rhs110_0)" +"((id108_0" +" rhs109_0)" "(let-values(((s_512)" "(cdr" " s_511)))" @@ -62146,7 +62074,7 @@ static const char *startup_source = " s_512)))" "(if(pair?" " s_513)" -"(let-values(((id111_0)" +"(let-values(((id110_0)" "(let-values(((s_514)" "(car" " s_513)))" @@ -62167,7 +62095,7 @@ static const char *startup_source = " \"bad syntax\"" " orig-s_7))" "(let-values()" -"(let-values(((id_107)" +"(let-values(((id_108)" "(let-values(((lst_318)" " flat-s_27))" "(begin" @@ -62177,8 +62105,8 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_318)))" -"((letrec-values(((for-loop_287)" -"(lambda(id_108" +"((letrec-values(((for-loop_289)" +"(lambda(id_109" " lst_319)" "(begin" " 'for-loop" @@ -62191,21 +62119,21 @@ static const char *startup_source = "(unsafe-cdr" " lst_319)))" "(let-values(((id_65)" -"(let-values(((id_109)" -" id_108))" "(let-values(((id_110)" +" id_109))" +"(let-values(((id_111)" "(let-values()" -"(let-values(((id114_0)" +"(let-values(((id113_0)" "(let-values()" -"(if(let-values(((or-part_160)" +"(if(let-values(((or-part_379)" "(if(syntax?$1" " s_159)" "(symbol?" "(syntax-e$1" " s_159))" " #f)))" -"(if or-part_160" -" or-part_160" +"(if or-part_379" +" or-part_379" "(symbol?" " s_159)))" " s_159" @@ -62215,23 +62143,23 @@ static const char *startup_source = " orig-s_7" " s_159)))))" "(cons" -" id114_0" -" id_109)))))" -"(values" +" id113_0" " id_110)))))" +"(values" +" id_111)))))" "(if(not" " #f)" -"(for-loop_287" +"(for-loop_289" " id_65" " rest_186)" " id_65)))" -" id_108)))))" -" for-loop_287)" +" id_109)))))" +" for-loop_289)" " null" " lst_318)))))" "(reverse$1" -" id_107))))))))" -"((rhs112_0)" +" id_108))))))))" +"((rhs111_0)" "(let-values(((s_103)" "(cdr" " s_513)))" @@ -62243,7 +62171,7 @@ static const char *startup_source = " s_103)))" "(if(pair?" " s_104)" -"(let-values(((rhs113_0)" +"(let-values(((rhs112_0)" "(let-values(((s_516)" "(car" " s_104)))" @@ -62266,34 +62194,34 @@ static const char *startup_source = " \"bad syntax\"" " orig-s_7))))))" "(values" -" rhs113_0))" +" rhs112_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" " orig-s_7))))))" "(values" -" id111_0" -" rhs112_0))" +" id110_0" +" rhs111_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" " orig-s_7))))))" "(values" -" define-syntaxes108_0" -" id109_0" -" rhs110_0))" +" define-syntaxes107_0" +" id108_0" +" rhs109_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" " orig-s_7)))))" "(values" " #t" -" define-syntaxes105_1" -" id106_1" -" rhs107_1))))))" +" define-syntaxes104_1" +" id105_1" +" rhs106_1))))))" "(let-values(((ids_32)" "(remove-use-site-scopes" -" id106_0" +" id105_0" " body-ctx_2)))" "(let-values((()" "(begin" @@ -62310,27 +62238,27 @@ static const char *startup_source = " #f" "(list" " ids_32" -" rhs107_0)))))" +" rhs106_0)))))" "(void)))" "(values))))" "(let-values(((new-dups_1)" -"(let-values(((ids115_0)" +"(let-values(((ids114_0)" " ids_32)" -"((phase116_0)" -" phase_138)" -"((exp-body117_0)" +"((phase115_0)" +" phase_137)" +"((exp-body116_0)" " exp-body_0)" -"((dups118_0)" +"((dups117_0)" " dups_0))" "(check-no-duplicate-ids7.1" " unsafe-undefined" -" ids115_0" -" phase116_0" -" exp-body117_0" -" dups118_0))))" +" ids114_0" +" phase115_0" +" exp-body116_0" +" dups117_0))))" "(let-values(((counter_6)" "(root-expand-context-counter" -" ctx_76)))" +" ctx_77)))" "(let-values(((keys_6)" "(reverse$1" "(let-values(((lst_320)" @@ -62342,14 +62270,14 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_320)))" -"((letrec-values(((for-loop_288)" +"((letrec-values(((for-loop_290)" "(lambda(fold-var_299" " lst_321)" "(begin" " 'for-loop" "(if(pair?" " lst_321)" -"(let-values(((id_111)" +"(let-values(((id_112)" "(unsafe-car" " lst_321))" "((rest_187)" @@ -62362,33 +62290,33 @@ static const char *startup_source = "(let-values()" "(cons" "(let-values()" -"(let-values(((id119_0)" -" id_111)" -"((phase120_0)" -" phase_138)" -"((counter121_0)" +"(let-values(((id118_0)" +" id_112)" +"((phase119_0)" +" phase_137)" +"((counter120_0)" " counter_6)" -"((frame-id122_0)" +"((frame-id121_0)" " frame-id_7)" -"((exp-body123_0)" +"((exp-body122_0)" " exp-body_0))" "(add-local-binding!37.1" -" frame-id122_0" -" exp-body123_0" -" id119_0" -" phase120_0" -" counter121_0)))" +" frame-id121_0" +" exp-body122_0" +" id118_0" +" phase119_0" +" counter120_0)))" " fold-var_301))))" "(values" " fold-var_302)))))" "(if(not" " #f)" -"(for-loop_288" +"(for-loop_290" " fold-var_300" " rest_187)" " fold-var_300)))" " fold-var_299)))))" -" for-loop_288)" +" for-loop_290)" " null" " lst_320))))))" "(let-values((()" @@ -62407,7 +62335,7 @@ static const char *startup_source = "(let-values((()" "(begin" "(prepare-next-phase-namespace" -" ctx_76)" +" ctx_77)" "(values))))" "(let-values((()" "(begin" @@ -62425,7 +62353,7 @@ static const char *startup_source = "(let-values(((vals_8)" "(eval-for-syntaxes-binding" " 'define-syntaxes" -" rhs107_0" +" rhs106_0" " ids_32" " body-ctx_2)))" "(let-values(((extended-env_1)" @@ -62454,7 +62382,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_324)))" -"((letrec-values(((for-loop_289)" +"((letrec-values(((for-loop_291)" "(lambda(env_21" " lst_325" " lst_326" @@ -62469,7 +62397,7 @@ static const char *startup_source = " lst_327)" " #f)" " #f)" -"(let-values(((key_88)" +"(let-values(((key_89)" "(unsafe-car" " lst_325))" "((rest_188)" @@ -62481,7 +62409,7 @@ static const char *startup_source = "((rest_189)" "(unsafe-cdr" " lst_326))" -"((id_112)" +"((id_113)" "(unsafe-car" " lst_327))" "((rest_190)" @@ -62495,25 +62423,25 @@ static const char *startup_source = "(begin" "(maybe-install-free=id-in-context!" " val_41" -" id_112" -" phase_138" +" id_113" +" phase_137" " body-ctx_2)" "(env-extend" " env_23" -" key_88" +" key_89" " val_41)))))" "(values" " env_24)))))" "(if(not" " #f)" -"(for-loop_289" +"(for-loop_291" " env_22" " rest_188" " rest_189" " rest_190)" " env_22)))" " env_21)))))" -" for-loop_289)" +" for-loop_291)" "(expand-context-env" " body-ctx_2)" " lst_322" @@ -62533,55 +62461,51 @@ static const char *startup_source = "(loop_121" "(let-values(((v_262)" " body-ctx_2))" -"(let-values(((the-struct_92)" +"(let-values(((the-struct_93)" " v_262))" "(if(expand-context/outer?" -" the-struct_92)" -"(let-values(((env124_0)" +" the-struct_93)" +"(let-values(((env123_0)" " extended-env_1)" -"((binding-layer125_0)" +"((binding-layer124_0)" "(maybe-increment-binding-layer_0" " ids_32" " body-ctx_2))" -"((inner126_0)" +"((inner125_0)" "(root-expand-context/outer-inner" " v_262)))" "(expand-context/outer1.1" -" inner126_0" -"(root-expand-context/outer-post-expansion-scope" -" the-struct_92)" -"(root-expand-context/outer-post-expansion-shifts" -" the-struct_92)" +" inner125_0" +"(root-expand-context/outer-post-expansion" +" the-struct_93)" "(root-expand-context/outer-use-site-scopes" -" the-struct_92)" +" the-struct_93)" "(root-expand-context/outer-frame-id" -" the-struct_92)" +" the-struct_93)" "(expand-context/outer-context" -" the-struct_92)" -" env124_0" -"(expand-context/outer-post-expansion-scope-action" -" the-struct_92)" +" the-struct_93)" +" env123_0" "(expand-context/outer-scopes" -" the-struct_92)" +" the-struct_93)" "(expand-context/outer-def-ctx-scopes" -" the-struct_92)" -" binding-layer125_0" +" the-struct_93)" +" binding-layer124_0" "(expand-context/outer-reference-records" -" the-struct_92)" +" the-struct_93)" "(expand-context/outer-only-immediate?" -" the-struct_92)" +" the-struct_93)" "(expand-context/outer-need-eventually-defined" -" the-struct_92)" +" the-struct_93)" "(expand-context/outer-current-introduction-scopes" -" the-struct_92)" +" the-struct_93)" "(expand-context/outer-current-use-scopes" -" the-struct_92)" +" the-struct_93)" "(expand-context/outer-name" -" the-struct_92)))" +" the-struct_93)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_92))))" +" the-struct_93))))" " rest-bodys_0" " done-bodys_0" " val-idss_0" @@ -62596,7 +62520,7 @@ static const char *startup_source = " #f" "(list" " ids_32" -" rhs107_0)" +" rhs106_0)" " exp-body_0)" " stx-clauses_0)" " new-dups_1)))))))))))))))" @@ -62625,7 +62549,7 @@ static const char *startup_source = "(cons" "(core-id" " '#%stratified-body" -" phase_138)" +" phase_137)" "(cons" " exp-body_0" " rest-bodys_0)))))" @@ -62705,46 +62629,42 @@ static const char *startup_source = "(accumulate-def-ctx-scopes" " body-ctx_3" " def-ctx-scopes_7)))" -"(let-values(((the-struct_93) v_263))" -"(if(expand-context/outer? the-struct_93)" -"(let-values(((context127_0) 'expression)" -"((use-site-scopes128_0)(box null))" -"((scopes129_0)" +"(let-values(((the-struct_94) v_263))" +"(if(expand-context/outer? the-struct_94)" +"(let-values(((context126_0) 'expression)" +"((use-site-scopes127_0)(box null))" +"((scopes128_0)" "(append" "(unbox" "(root-expand-context-use-site-scopes" " body-ctx_3))" "(expand-context-scopes body-ctx_3)))" -"((only-immediate?130_0) #f)" -"((def-ctx-scopes131_0) #f)" -"((post-expansion-scope132_0) #f)" -"((inner133_0)" +"((only-immediate?129_0) #f)" +"((def-ctx-scopes130_0) #f)" +"((post-expansion131_0) #f)" +"((inner132_0)" "(root-expand-context/outer-inner v_263)))" "(expand-context/outer1.1" -" inner133_0" -" post-expansion-scope132_0" -"(root-expand-context/outer-post-expansion-shifts" -" the-struct_93)" -" use-site-scopes128_0" -"(root-expand-context/outer-frame-id the-struct_93)" -" context127_0" -"(expand-context/outer-env the-struct_93)" -"(expand-context/outer-post-expansion-scope-action" -" the-struct_93)" -" scopes129_0" -" def-ctx-scopes131_0" -"(expand-context/outer-binding-layer the-struct_93)" -"(expand-context/outer-reference-records the-struct_93)" -" only-immediate?130_0" -"(expand-context/outer-need-eventually-defined the-struct_93)" +" inner132_0" +" post-expansion131_0" +" use-site-scopes127_0" +"(root-expand-context/outer-frame-id the-struct_94)" +" context126_0" +"(expand-context/outer-env the-struct_94)" +" scopes128_0" +" def-ctx-scopes130_0" +"(expand-context/outer-binding-layer the-struct_94)" +"(expand-context/outer-reference-records the-struct_94)" +" only-immediate?129_0" +"(expand-context/outer-need-eventually-defined the-struct_94)" "(expand-context/outer-current-introduction-scopes" -" the-struct_93)" -"(expand-context/outer-current-use-scopes the-struct_93)" -"(expand-context/outer-name the-struct_93)))" +" the-struct_94)" +"(expand-context/outer-current-use-scopes the-struct_94)" +"(expand-context/outer-name the-struct_94)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_93))))))" +" the-struct_94))))))" "(let-values(((finish-bodys_0)" "(lambda()" "(begin" @@ -62798,7 +62718,7 @@ static const char *startup_source = "(void)" "(let-values()" "(check-naturals start_64)))" -"((letrec-values(((for-loop_290)" +"((letrec-values(((for-loop_292)" "(lambda(fold-var_303" " lst_5" " pos_125)" @@ -62834,9 +62754,9 @@ static const char *startup_source = " obs_76" " 'next)))" "(void)))" -"(let-values(((done-body134_0)" +"(let-values(((done-body133_0)" " done-body_4)" -"((temp135_1)" +"((temp134_3)" "(if(if name_81" "(=" " i_14" @@ -62844,65 +62764,61 @@ static const char *startup_source = " #f)" "(let-values(((v_264)" " finish-ctx_0))" -"(let-values(((the-struct_94)" +"(let-values(((the-struct_95)" " v_264))" "(if(expand-context/outer?" -" the-struct_94)" -"(let-values(((name136_0)" +" the-struct_95)" +"(let-values(((name135_0)" " name_81)" -"((inner137_0)" +"((inner136_0)" "(root-expand-context/outer-inner" " v_264)))" "(expand-context/outer1.1" -" inner137_0" -"(root-expand-context/outer-post-expansion-scope" -" the-struct_94)" -"(root-expand-context/outer-post-expansion-shifts" -" the-struct_94)" +" inner136_0" +"(root-expand-context/outer-post-expansion" +" the-struct_95)" "(root-expand-context/outer-use-site-scopes" -" the-struct_94)" +" the-struct_95)" "(root-expand-context/outer-frame-id" -" the-struct_94)" +" the-struct_95)" "(expand-context/outer-context" -" the-struct_94)" +" the-struct_95)" "(expand-context/outer-env" -" the-struct_94)" -"(expand-context/outer-post-expansion-scope-action" -" the-struct_94)" +" the-struct_95)" "(expand-context/outer-scopes" -" the-struct_94)" +" the-struct_95)" "(expand-context/outer-def-ctx-scopes" -" the-struct_94)" +" the-struct_95)" "(expand-context/outer-binding-layer" -" the-struct_94)" +" the-struct_95)" "(expand-context/outer-reference-records" -" the-struct_94)" +" the-struct_95)" "(expand-context/outer-only-immediate?" -" the-struct_94)" +" the-struct_95)" "(expand-context/outer-need-eventually-defined" -" the-struct_94)" +" the-struct_95)" "(expand-context/outer-current-introduction-scopes" -" the-struct_94)" +" the-struct_95)" "(expand-context/outer-current-use-scopes" -" the-struct_94)" -" name136_0))" +" the-struct_95)" +" name135_0))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_94))))" +" the-struct_95))))" " finish-ctx_0)))" "(expand9.1" " #f" " #f" " #f" -" done-body134_0" -" temp135_1))))" +" done-body133_0" +" temp134_3))))" " fold-var_305))))" "(values" " fold-var_306)))))" "(if(not" " #f)" -"(for-loop_290" +"(for-loop_292" " fold-var_304" " rest_191" "(+" @@ -62910,7 +62826,7 @@ static const char *startup_source = " 1))" " fold-var_304)))" " fold-var_303)))))" -" for-loop_290)" +" for-loop_292)" " null" " lst_213" " start_64))))))" @@ -62959,29 +62875,29 @@ static const char *startup_source = "(void)))" "(values))))" "(let-values(((exp-s_12)" -"(let-values(((val-idss138_0) val-idss_1)" -"((val-keyss139_0) val-keyss_1)" -"((val-rhss140_0) val-rhss_1)" -"((track-stxs141_0) track-stxs_1)" -"((temp142_1)(not stratified?_1))" -"((frame-id143_0) frame-id_13)" -"((finish-ctx144_0) finish-ctx_0)" -"((s145_1) s_233)" -"((temp146_1)(pair? stx-clauses_1))" -"((finish-bodys147_0) finish-bodys_0)" -"((temp148_2) #f))" +"(let-values(((val-idss137_0) val-idss_1)" +"((val-keyss138_0) val-keyss_1)" +"((val-rhss139_0) val-rhss_1)" +"((track-stxs140_0) track-stxs_1)" +"((temp141_2)(not stratified?_1))" +"((frame-id142_0) frame-id_13)" +"((finish-ctx143_0) finish-ctx_0)" +"((s144_0) s_233)" +"((temp145_2)(pair? stx-clauses_1))" +"((finish-bodys146_0) finish-bodys_0)" +"((temp147_0) #f))" "(expand-and-split-bindings-by-reference48.1" -" finish-ctx144_0" -" frame-id143_0" -" finish-bodys147_0" -" temp146_1" -" s145_1" -" temp142_1" -" temp148_2" -" val-idss138_0" -" val-keyss139_0" -" val-rhss140_0" -" track-stxs141_0))))" +" finish-ctx143_0" +" frame-id142_0" +" finish-bodys146_0" +" temp145_2" +" s144_0" +" temp141_2" +" temp147_0" +" val-idss137_0" +" val-keyss138_0" +" val-rhss139_0" +" track-stxs140_0))))" "(begin" "(let-values(((obs_80)(expand-context-observer body-ctx_3)))" "(if obs_80" @@ -63018,13 +62934,13 @@ static const char *startup_source = "(let-values(((track-stxs_2) track-stxs47_0))" "(let-values(((split?_0) split?30_0))" "(let-values(((frame-id_14) frame-id31_0))" -"(let-values(((ctx_77) ctx32_0))" +"(let-values(((ctx_78) ctx32_0))" "(let-values(((s_366) source33_0))" "(let-values(((had-stxes?_0) had-stxes?34_0))" "(let-values(((get-body_0) get-body35_0))" "(let-values(((track?_1) track?36_0))" "(let-values()" -"(let-values(((phase_139)(expand-context-phase ctx_77)))" +"(let-values(((phase_138)(expand-context-phase ctx_78)))" "((letrec-values(((loop_27)" "(lambda(idss_2" " keyss_1" @@ -63046,7 +62962,7 @@ static const char *startup_source = "(let-values()" "(let-values(((exp-body_1)(get-body_0)))" "(let-values(((result-s_9)" -"(if(expand-context-to-parsed? ctx_77)" +"(if(expand-context-to-parsed? ctx_78)" "(if(null? accum-idss_0)" "(parsed-let-values17.1" "(keep-properties-only s_366)" @@ -63062,33 +62978,33 @@ static const char *startup_source = " accum-keyss_0" " accum-rhss_0))" " exp-body_1))" -"(let-values(((track?149_0) track?_2)" -"((s150_0) s_366)" -"((temp151_1)" +"(let-values(((track?148_0) track?_2)" +"((s149_0) s_366)" +"((temp150_1)" "(list*" "(if(null? accum-idss_0)" "(core-id" " 'let-values" -" phase_139)" +" phase_138)" "(core-id" " 'letrec-values" -" phase_139))" +" phase_138))" "(build-clauses" " accum-idss_0" " accum-rhss_0" " accum-track-stxs_0)" " exp-body_1)))" "(rebuild5.1" -" track?149_0" -" s150_0" -" temp151_1)))))" +" track?148_0" +" s149_0" +" temp150_1)))))" "(begin" "(let-values(((obs_81)" -"(expand-context-observer ctx_77)))" +"(expand-context-observer ctx_78)))" "(if obs_81" "(let-values()" "(if(if can-log?_0" -"(log-tag? had-stxes?_0 ctx_77)" +"(log-tag? had-stxes?_0 ctx_78)" " #f)" "(let-values()" "(call-expand-observe" @@ -63103,7 +63019,7 @@ static const char *startup_source = "(begin" "(let-values(((obs_82)" "(expand-context-observer" -" ctx_77)))" +" ctx_78)))" "(if obs_82" "(let-values()" "(let-values()" @@ -63112,17 +63028,17 @@ static const char *startup_source = "(values))))" "(let-values(((ids_33)(car idss_2)))" "(let-values(((expanded-rhs_0)" -"(let-values(((temp152_1)(car rhss_2))" -"((temp153_1)" +"(let-values(((temp151_1)(car rhss_2))" +"((temp152_1)" "(as-named-context" -" ctx_77" +" ctx_78" " ids_33)))" "(expand9.1" " #f" " #f" " #f" -" temp152_1" -" temp153_1))))" +" temp151_1" +" temp152_1))))" "(let-values(((track-stx_0)(car track-stxs_3)))" "(let-values(((local-or-forward-references?_0)" "(reference-record-forward-references?" @@ -63163,7 +63079,7 @@ static const char *startup_source = " #f)))" "(let-values(((result-s_10)" "(if(expand-context-to-parsed?" -" ctx_77)" +" ctx_78)" "(parsed-let-values17.1" "(keep-properties-only" " s_366)" @@ -63173,15 +63089,15 @@ static const char *startup_source = "(car keyss_1)" " expanded-rhs_0))" " exp-rest_0)" -"(let-values(((track?154_0)" +"(let-values(((track?153_0)" " track?_2)" -"((s155_1)" +"((s154_1)" " s_366)" -"((temp156_1)" +"((temp155_2)" "(list*" "(core-id" " 'let-values" -" phase_139)" +" phase_138)" "(list" "(build-clause" " ids_33" @@ -63189,19 +63105,19 @@ static const char *startup_source = " track-stx_0))" " exp-rest_0)))" "(rebuild5.1" -" track?154_0" -" s155_1" -" temp156_1)))))" +" track?153_0" +" s154_1" +" temp155_2)))))" "(begin" "(let-values(((obs_83)" "(expand-context-observer" -" ctx_77)))" +" ctx_78)))" "(if obs_83" "(let-values()" "(if(if can-log?_0" "(log-tag?" " had-stxes?_0" -" ctx_77)" +" ctx_78)" " #f)" "(let-values()" "(call-expand-observe" @@ -63214,9 +63130,9 @@ static const char *startup_source = "(list result-s_10)" " result-s_10))))))" "(if(if(not forward-references?_0)" -"(let-values(((or-part_379) split?_0))" -"(if or-part_379" -" or-part_379" +"(let-values(((or-part_380) split?_0))" +"(if or-part_380" +" or-part_380" "(null?(cdr idss_2))))" " #f)" "(let-values()" @@ -63235,7 +63151,7 @@ static const char *startup_source = " #f)))" "(let-values(((result-s_11)" "(if(expand-context-to-parsed?" -" ctx_77)" +" ctx_78)" "(parsed-letrec-values18.1" "(keep-properties-only" " s_366)" @@ -63253,15 +63169,15 @@ static const char *startup_source = " accum-keyss_0" " accum-rhss_0)))" " exp-rest_1)" -"(let-values(((track?157_0)" +"(let-values(((track?156_0)" " track?_2)" -"((s158_0)" +"((s157_1)" " s_366)" -"((temp159_1)" +"((temp158_1)" "(list*" "(core-id" " 'letrec-values" -" phase_139)" +" phase_138)" "(build-clauses" "(cons" " ids_33" @@ -63274,19 +63190,19 @@ static const char *startup_source = " accum-track-stxs_0))" " exp-rest_1)))" "(rebuild5.1" -" track?157_0" -" s158_0" -" temp159_1)))))" +" track?156_0" +" s157_1" +" temp158_1)))))" "(begin" "(let-values(((obs_84)" "(expand-context-observer" -" ctx_77)))" +" ctx_78)))" "(if obs_84" "(let-values()" "(if(if can-log?_0" "(log-tag?" " had-stxes?_0" -" ctx_77)" +" ctx_78)" " #f)" "(let-values()" "(call-expand-observe" @@ -63335,22 +63251,22 @@ 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_517 phase_140)" +"(lambda(expr_10 s_517 phase_139)" "(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_139)))" "(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)))" +"(core-id '#%app phase_139)" +"(list(core-id 'begin phase_139) expr_10(list(datum->syntax$1 s-runtime-stx_0 'values)))" " s_517)))))" "(define-values" "(log-tag?)" -"(lambda(had-stxes?_1 ctx_78)(begin(if had-stxes?_1(not(expand-context-only-immediate? ctx_78)) #f))))" +"(lambda(had-stxes?_1 ctx_79)(begin(if had-stxes?_1(not(expand-context-only-immediate? ctx_79)) #f))))" "(define-values" "(log-letrec-values$1)" -"(lambda(obs_85 ctx_79 s_396 val-idss_2 val-rhss_2 track-stxs_4 stx-clauses_2 done-bodys_2)" +"(lambda(obs_85 ctx_80 s_396 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_79)))" +"(let-values(((phase_140)(expand-context-phase ctx_80)))" "(let-values(((clauses_0)" "(reverse$1" "(let-values(((lst_328) val-idss_2)((lst_329) val-rhss_2)((lst_330) track-stxs_4))" @@ -63364,7 +63280,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_330)))" -"((letrec-values(((for-loop_291)" +"((letrec-values(((for-loop_293)" "(lambda(fold-var_307 lst_331 lst_332 lst_333)" "(begin" " 'for-loop" @@ -63388,16 +63304,16 @@ static const char *startup_source = " fold-var_309))))" "(values fold-var_310)))))" "(if(not #f)" -"(for-loop_291 fold-var_308 rest_192 rest_193 rest_194)" +"(for-loop_293 fold-var_308 rest_192 rest_193 rest_194)" " fold-var_308)))" " fold-var_307)))))" -" for-loop_291)" +" for-loop_293)" " null" " lst_328" " lst_329" " lst_330))))))" "(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_140)))" "(let-values(((lv-s_0)" "(datum->syntax$1" " #f" @@ -63442,20 +63358,20 @@ static const char *startup_source = "(datum->syntax$1 #f done-bodys_2 s_396))))))))))))))" "(define-values" "(lambda-clause-expander)" -"(lambda(s_74 disarmed-s_5 formals_1 bodys_9 ctx_80 log-renames-tag_0)" +"(lambda(s_74 disarmed-s_5 formals_1 bodys_9 ctx_81 log-renames-tag_0)" "(begin" -"(let-values(((sc_38)(new-scope 'local)))" -"(let-values(((phase_85)(expand-context-phase ctx_80)))" -"(let-values(((ids_35)(parse-and-flatten-formals formals_1 sc_38 disarmed-s_5)))" +"(let-values(((sc_37)(new-scope 'local)))" +"(let-values(((phase_84)(expand-context-phase ctx_81)))" +"(let-values(((ids_35)(parse-and-flatten-formals formals_1 sc_37 disarmed-s_5)))" "(let-values((()" "(begin" "(let-values(((ids33_0) ids_35)" -"((phase34_1) phase_85)" +"((phase34_1) phase_84)" "((s35_1) s_74)" " ((temp36_8) \"argument name\"))" "(check-no-duplicate-ids7.1 temp36_8 ids33_0 phase34_1 s35_1 unsafe-undefined))" "(values))))" -"(let-values(((counter_7)(root-expand-context-counter ctx_80)))" +"(let-values(((counter_7)(root-expand-context-counter ctx_81)))" "(let-values(((keys_7)" "(reverse$1" "(let-values(((lst_88) ids_35))" @@ -63463,12 +63379,12 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_88)))" -"((letrec-values(((for-loop_189)" +"((letrec-values(((for-loop_191)" "(lambda(fold-var_157 lst_163)" "(begin" " 'for-loop" "(if(pair? lst_163)" -"(let-values(((id_113)(unsafe-car lst_163))" +"(let-values(((id_114)(unsafe-car lst_163))" "((rest_84)(unsafe-cdr lst_163)))" "(let-values(((fold-var_33)" "(let-values(((fold-var_34) fold-var_157))" @@ -63477,9 +63393,9 @@ static const char *startup_source = "(cons" "(let-values()" "(let-values(((id37_0)" -" id_113)" +" id_114)" "((phase38_1)" -" phase_85)" +" phase_84)" "((counter39_0)" " counter_7)" "((s40_0)" @@ -63493,10 +63409,10 @@ static const char *startup_source = " fold-var_34))))" "(values fold-var_158)))))" "(if(not #f)" -"(for-loop_189 fold-var_33 rest_84)" +"(for-loop_191 fold-var_33 rest_84)" " fold-var_33)))" " fold-var_157)))))" -" for-loop_189)" +" for-loop_191)" " null" " lst_88))))))" "(let-values(((body-env_0)" @@ -63513,9 +63429,9 @@ static const char *startup_source = "(begin" " 'for-loop" "(if(if(pair? lst_82)(pair? lst_58) #f)" -"(let-values(((key_89)(unsafe-car lst_82))" +"(let-values(((key_90)(unsafe-car lst_82))" "((rest_195)(unsafe-cdr lst_82))" -"((id_114)(unsafe-car lst_58))" +"((id_115)(unsafe-car lst_58))" "((rest_196)(unsafe-cdr lst_58)))" "(let-values(((env_26)" "(let-values(((env_27) env_25))" @@ -63523,19 +63439,19 @@ static const char *startup_source = "(let-values()" "(env-extend" " env_27" -" key_89" +" key_90" "(local-variable1.1" -" id_114)))))" +" id_115)))))" "(values env_28)))))" "(if(not #f)" "(for-loop_49 env_26 rest_195 rest_196)" " env_26)))" " env_25)))))" " for-loop_49)" -"(expand-context-env ctx_80)" +"(expand-context-env ctx_81)" " lst_80" " lst_91)))))" -"(let-values(((sc-formals_0)(add-scope formals_1 sc_38)))" +"(let-values(((sc-formals_0)(add-scope formals_1 sc_37)))" "(let-values(((sc-bodys_0)" "(reverse$1" "(let-values(((lst_17) bodys_9))" @@ -63559,7 +63475,7 @@ static const char *startup_source = "(let-values()" "(add-scope" " body_10" -" sc_38))" +" sc_37))" " fold-var_75))))" "(values fold-var_65)))))" "(if(not #f)" @@ -63571,7 +63487,7 @@ static const char *startup_source = " lst_17))))))" "(let-values((()" "(begin" -"(let-values(((obs_86)(expand-context-observer ctx_80)))" +"(let-values(((obs_86)(expand-context-observer ctx_81)))" "(if obs_86" "(let-values()" "(let-values()" @@ -63583,56 +63499,54 @@ static const char *startup_source = "(void)))" "(values))))" "(let-values(((body-ctx_4)" -"(let-values(((v_265) ctx_80))" -"(let-values(((the-struct_95) v_265))" -"(if(expand-context/outer? the-struct_95)" +"(let-values(((v_265) ctx_81))" +"(let-values(((the-struct_96) v_265))" +"(if(expand-context/outer? the-struct_96)" "(let-values(((env41_0) body-env_0)" -"((scopes42_0)(cons sc_38(expand-context-scopes ctx_80)))" +"((scopes42_0)(cons sc_37(expand-context-scopes ctx_81)))" "((binding-layer43_0)" -"(increment-binding-layer ids_35 ctx_80 sc_38))" +"(increment-binding-layer ids_35 ctx_81 sc_37))" "((frame-id44_0) #f)" -"((inner45_1)(root-expand-context/outer-inner v_265)))" +"((inner45_0)(root-expand-context/outer-inner v_265)))" "(expand-context/outer1.1" -" inner45_1" -"(root-expand-context/outer-post-expansion-scope the-struct_95)" -"(root-expand-context/outer-post-expansion-shifts the-struct_95)" -"(root-expand-context/outer-use-site-scopes the-struct_95)" +" inner45_0" +"(root-expand-context/outer-post-expansion the-struct_96)" +"(root-expand-context/outer-use-site-scopes the-struct_96)" " frame-id44_0" -"(expand-context/outer-context the-struct_95)" +"(expand-context/outer-context the-struct_96)" " env41_0" -"(expand-context/outer-post-expansion-scope-action the-struct_95)" " scopes42_0" -"(expand-context/outer-def-ctx-scopes the-struct_95)" +"(expand-context/outer-def-ctx-scopes the-struct_96)" " binding-layer43_0" -"(expand-context/outer-reference-records the-struct_95)" -"(expand-context/outer-only-immediate? the-struct_95)" -"(expand-context/outer-need-eventually-defined the-struct_95)" -"(expand-context/outer-current-introduction-scopes the-struct_95)" -"(expand-context/outer-current-use-scopes the-struct_95)" -"(expand-context/outer-name the-struct_95)))" +"(expand-context/outer-reference-records the-struct_96)" +"(expand-context/outer-only-immediate? the-struct_96)" +"(expand-context/outer-need-eventually-defined the-struct_96)" +"(expand-context/outer-current-introduction-scopes the-struct_96)" +"(expand-context/outer-current-use-scopes the-struct_96)" +"(expand-context/outer-name the-struct_96)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_95))))))" +" the-struct_96))))))" "(let-values(((exp-body_2)" "(let-values(((sc-bodys46_0) sc-bodys_0)" "((body-ctx47_0) body-ctx_4)" "((temp48_3)" -"(let-values(((ctx49_0) ctx_80)((s50_0) s_74)((temp51_2) #t))" +"(let-values(((ctx49_0) ctx_81)((s50_0) s_74)((temp51_2) #t))" "(keep-as-needed119.1 #f temp51_2 #f ctx49_0 s50_0))))" "(expand-body7.1 temp48_3 #f sc-bodys46_0 body-ctx47_0))))" "(values" -"(if(expand-context-to-parsed? ctx_80)" +"(if(expand-context-to-parsed? ctx_81)" "(unflatten-like-formals keys_7 formals_1)" " sc-formals_0)" " exp-body_2))))))))))))))))" "(void" "(add-core-form!*" " 'lambda" -"(lambda(s_13 ctx_81)" +"(lambda(s_13 ctx_82)" "(let-values((()" "(begin" -"(let-values(((obs_87)(expand-context-observer ctx_81)))" +"(let-values(((obs_87)(expand-context-observer ctx_82)))" "(if obs_87(let-values()(let-values()(call-expand-observe obs_87 'prim-lambda)))(void)))" "(values))))" "(let-values(((disarmed-s_6)(syntax-disarm$1 s_13)))" @@ -63682,14 +63596,14 @@ static const char *startup_source = " (raise-syntax-error$1 #f \"bad syntax\" orig-s_40)))))" "(values #t lambda52_1 formals53_1 body54_1))))))" "(let-values(((rebuild-s_4)" -"(let-values(((ctx60_1) ctx_81)((s61_0) s_13)((temp62_3) #t))" +"(let-values(((ctx60_1) ctx_82)((s61_0) s_13)((temp62_3) #t))" "(keep-as-needed119.1 #f #f temp62_3 ctx60_1 s61_0))))" "(let-values(((formals_2 body_11)" -"(lambda-clause-expander s_13 disarmed-s_6 formals53_0 body54_0 ctx_81 'lambda-renames)))" -"(if(expand-context-to-parsed? ctx_81)" +"(lambda-clause-expander s_13 disarmed-s_6 formals53_0 body54_0 ctx_82 'lambda-renames)))" +"(if(expand-context-to-parsed? ctx_82)" "(parsed-lambda5.1 rebuild-s_4 formals_2 body_11)" -"(let-values(((rebuild-s63_0) rebuild-s_4)((temp64_5)(list* lambda52_0 formals_2 body_11)))" -"(rebuild5.1 #t rebuild-s63_0 temp64_5)))))))))))" +"(let-values(((rebuild-s63_0) rebuild-s_4)((temp64_6)(list* lambda52_0 formals_2 body_11)))" +"(rebuild5.1 #t rebuild-s63_0 temp64_6)))))))))))" "(void" "(add-core-form!*" " 'λ" @@ -63735,25 +63649,25 @@ static const char *startup_source = " (raise-syntax-error$1 #f \"bad syntax\" orig-s_41)))))" "(values #t lam-id65_1 formals66_1 _67_1))))))" "(let-values(((ids_36)(parse-and-flatten-formals formals66_0 #f s_26)))" -"(let-values(((ctx_74)(let-values(((temp77_4) #t))(get-current-expand-context16.1 temp77_4 'unexpected))))" -"(let-values(((phase_94)(if ctx_74(expand-context-phase ctx_74) 0)))" +"(let-values(((ctx_75)(let-values(((temp77_4) #t))(get-current-expand-context16.1 temp77_4 'unexpected))))" +"(let-values(((phase_93)(if ctx_75(expand-context-phase ctx_75) 0)))" "(begin" -" (let-values (((ids73_0) ids_36) ((phase74_2) phase_94) ((s75_0) s_26) ((temp76_5) \"argument name\"))" -"(check-no-duplicate-ids7.1 temp76_5 ids73_0 phase74_2 s75_0 unsafe-undefined))" +" (let-values (((ids73_0) ids_36) ((phase74_2) phase_93) ((s75_0) s_26) ((temp76_4) \"argument name\"))" +"(check-no-duplicate-ids7.1 temp76_4 ids73_0 phase74_2 s75_0 unsafe-undefined))" "(datum->syntax$1" " s_26" "(cons" -"(datum->syntax$1(syntax-shift-phase-level$1 core-stx phase_94) 'lambda lam-id65_0 lam-id65_0)" +"(datum->syntax$1(syntax-shift-phase-level$1 core-stx phase_93) 'lambda lam-id65_0 lam-id65_0)" "(cdr(syntax-e$1 s_26)))" " s_26" " s_26)))))))))" "(void" "(add-core-form!*" " 'case-lambda" -"(lambda(s_453 ctx_82)" +"(lambda(s_453 ctx_83)" "(let-values((()" "(begin" -"(let-values(((obs_88)(expand-context-observer ctx_82)))" +"(let-values(((obs_88)(expand-context-observer ctx_83)))" "(if obs_88" "(let-values()(let-values()(call-expand-observe obs_88 'prim-case-lambda)))" "(void)))" @@ -63785,7 +63699,7 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list lst_334)))" -"((letrec-values(((for-loop_292)" +"((letrec-values(((for-loop_294)" "(lambda(formals_4" " body_13" " lst_335)" @@ -63872,7 +63786,7 @@ static const char *startup_source = " body_16)))))" "(if(not" " #f)" -"(for-loop_292" +"(for-loop_294" " formals_5" " body_14" " rest_197)" @@ -63882,7 +63796,7 @@ static const char *startup_source = "(values" " formals_4" " body_13))))))" -" for-loop_292)" +" for-loop_294)" " null" " null" " lst_334)))))" @@ -63915,7 +63829,7 @@ static const char *startup_source = " (raise-syntax-error$1 #f \"bad syntax\" orig-s_43)))))" "(values #t case-lambda86_1 clause87_1))))))" "(let-values(((rebuild-s_5)" -"(let-values(((ctx92_0) ctx_82)((s93_0) s_453)((temp94_1) #t))" +"(let-values(((ctx92_0) ctx_83)((s93_0) s_453)((temp94_1) #t))" "(keep-as-needed119.1 #f #f temp94_1 ctx92_0 s93_0))))" "(let-values(((clauses_1)" "(reverse$1" @@ -63953,7 +63867,7 @@ static const char *startup_source = "(begin" "(let-values(((obs_89)" "(expand-context-observer" -" ctx_82)))" +" ctx_83)))" "(if obs_89" "(let-values()" "(let-values()" @@ -63964,7 +63878,7 @@ static const char *startup_source = "(values))))" "(let-values(((rebuild-clause_0)" "(let-values(((ctx95_0)" -" ctx_82)" +" ctx_83)" "((clause96_0)" " clause_3))" "(keep-as-needed119.1" @@ -63980,10 +63894,10 @@ static const char *startup_source = " disarmed-s_7" " formals_8" " body_17" -" ctx_82" +" ctx_83" " 'lambda-renames)))" "(if(expand-context-to-parsed?" -" ctx_82)" +" ctx_83)" "(list" " exp-formals_0" " exp-body_3)" @@ -64008,20 +63922,20 @@ static const char *startup_source = " lst_111" " lst_204" " lst_112))))))" -"(if(expand-context-to-parsed? ctx_82)" +"(if(expand-context-to-parsed? ctx_83)" "(parsed-case-lambda6.1 rebuild-s_5 clauses_1)" "(let-values(((rebuild-s99_0) rebuild-s_5)((temp100_3)(list* case-lambda78_0 clauses_1)))" "(rebuild5.1 #t rebuild-s99_0 temp100_3))))))))))))" "(define-values" "(parse-and-flatten-formals)" -"(lambda(all-formals_0 sc_39 s_529)" +"(lambda(all-formals_0 sc_38 s_529)" "(begin" "((letrec-values(((loop_122)" "(lambda(formals_9)" "(begin" " 'loop" "(if(identifier? formals_9)" -"(let-values()(list(add-scope formals_9 sc_39)))" +"(let-values()(list(add-scope formals_9 sc_38)))" "(if(syntax?$1 formals_9)" "(let-values()" "(let-values(((p_86)(syntax-e$1 formals_9)))" @@ -64038,7 +63952,7 @@ static const char *startup_source = "(let-values()" " (raise-syntax-error$1 #f \"not an identifier\" s_529 (car formals_9))))" "(cons" -"(if sc_39(add-scope(car formals_9) sc_39)(car formals_9))" +"(if sc_38(add-scope(car formals_9) sc_38)(car formals_9))" "(loop_122(cdr formals_9)))))" "(if(null? formals_9)" "(let-values() null)" @@ -64075,10 +63989,10 @@ static const char *startup_source = "(let-values(((split-by-reference?_0) split-by-reference?4_0))" "(let-values(((renames-log-tag_0) renames-log-tag5_0))" "(let-values()" -"(lambda(s_105 ctx_83)" +"(lambda(s_105 ctx_84)" "(let-values((()" "(begin" -"(let-values(((obs_53)(expand-context-observer ctx_83)))" +"(let-values(((obs_53)(expand-context-observer ctx_84)))" "(if obs_53" "(let-values()(let-values()(call-expand-observe obs_53 log-tag_0)))" "(void)))" @@ -64100,19 +64014,19 @@ static const char *startup_source = " id:val104_1" " val-rhs105_1" " body106_1)" -"(let-values(((s_530)" +"(let-values(((s_429)" "(if(syntax?$1 s_128)" "(syntax-e$1 s_128)" " s_128)))" -"(if(pair? s_530)" +"(if(pair? s_429)" "(let-values(((letrec-syntaxes+values107_0)" -"(let-values(((s_531)(car s_530))) s_531))" +"(let-values(((s_530)(car s_429))) s_530))" "((id:trans108_0" " trans-rhs109_0" " id:val110_0" " val-rhs111_0" " body112_0)" -"(let-values(((s_230)(cdr s_530)))" +"(let-values(((s_230)(cdr s_429)))" "(let-values(((s_231)" "(if(syntax?$1 s_230)" "(syntax-e$1 s_230)" @@ -64151,7 +64065,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_339)))" -"((letrec-values(((for-loop_293)" +"((letrec-values(((for-loop_295)" "(lambda(id:trans_1" " trans-rhs_1" " lst_340)" @@ -64177,18 +64091,18 @@ static const char *startup_source = "(let-values(((id:trans144_0" " trans-rhs145_0)" "(let-values()" -"(let-values(((s_532)" +"(let-values(((s_531)" "(if(syntax?$1" " s_334)" "(syntax-e$1" " s_334)" " s_334)))" "(if(pair?" -" s_532)" +" s_531)" "(let-values(((id:trans118_0)" "(let-values(((s_340)" "(car" -" s_532)))" +" s_531)))" "(let-values(((s_341)" "(if(syntax?$1" " s_340)" @@ -64216,14 +64130,14 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_341)))" -"((letrec-values(((for-loop_294)" +"((letrec-values(((for-loop_296)" "(lambda(id:trans_6" " lst_216)" "(begin" " 'for-loop" "(if(pair?" " lst_216)" -"(let-values(((s_533)" +"(let-values(((s_532)" "(unsafe-car" " lst_216))" "((rest_202)" @@ -64238,21 +64152,21 @@ static const char *startup_source = "(let-values()" "(if(let-values(((or-part_342)" "(if(syntax?$1" -" s_533)" +" s_532)" "(symbol?" "(syntax-e$1" -" s_533))" +" s_532))" " #f)))" "(if or-part_342" " or-part_342" "(symbol?" -" s_533)))" -" s_533" +" s_532)))" +" s_532" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_44" -" s_533)))))" +" s_532)))))" "(cons" " id:trans146_0" " id:trans_8)))))" @@ -64260,12 +64174,12 @@ static const char *startup_source = " id:trans_9)))))" "(if(not" " #f)" -"(for-loop_294" +"(for-loop_296" " id:trans_7" " rest_202)" " id:trans_7)))" " id:trans_6)))))" -" for-loop_294)" +" for-loop_296)" " null" " lst_341)))))" "(reverse$1" @@ -64273,24 +64187,24 @@ static const char *startup_source = "((trans-rhs119_0)" "(let-values(((s_242)" "(cdr" -" s_532)))" -"(let-values(((s_534)" +" s_531)))" +"(let-values(((s_533)" "(if(syntax?$1" " s_242)" "(syntax-e$1" " s_242)" " s_242)))" "(if(pair?" -" s_534)" +" s_533)" "(let-values(((trans-rhs120_0)" "(let-values(((s_243)" "(car" -" s_534)))" +" s_533)))" " s_243))" "(()" "(let-values(((s_244)" "(cdr" -" s_534)))" +" s_533)))" "(let-values(((s_245)" "(if(syntax?$1" " s_244)" @@ -64329,7 +64243,7 @@ static const char *startup_source = " trans-rhs_4)))))" "(if(not" " #f)" -"(for-loop_293" +"(for-loop_295" " id:trans_2" " trans-rhs_2" " rest_201)" @@ -64339,7 +64253,7 @@ static const char *startup_source = "(values" " id:trans_1" " trans-rhs_1))))))" -" for-loop_293)" +" for-loop_295)" " null" " null" " lst_339)))))" @@ -64351,27 +64265,27 @@ static const char *startup_source = "((id:val115_0" " val-rhs116_0" " body117_0)" -"(let-values(((s_535)" +"(let-values(((s_534)" "(cdr" " s_231)))" "(let-values(((s_347)" "(if(syntax?$1" +" s_534)" +"(syntax-e$1" +" s_534)" +" s_534)))" +"(if(pair? s_347)" +"(let-values(((id:val121_0" +" val-rhs122_0)" +"(let-values(((s_535)" +"(car" +" s_347)))" +"(let-values(((s_246)" +"(if(syntax?$1" " s_535)" "(syntax-e$1" " s_535)" " s_535)))" -"(if(pair? s_347)" -"(let-values(((id:val121_0" -" val-rhs122_0)" -"(let-values(((s_536)" -"(car" -" s_347)))" -"(let-values(((s_246)" -"(if(syntax?$1" -" s_536)" -"(syntax-e$1" -" s_536)" -" s_536)))" "(let-values(((flat-s_35)" "(to-syntax-list.1" " s_246)))" @@ -64394,7 +64308,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_342)))" -"((letrec-values(((for-loop_295)" +"((letrec-values(((for-loop_297)" "(lambda(id:val_1" " val-rhs_2" " lst_343)" @@ -64402,7 +64316,7 @@ static const char *startup_source = " 'for-loop" "(if(pair?" " lst_343)" -"(let-values(((s_537)" +"(let-values(((s_536)" "(unsafe-car" " lst_343))" "((rest_203)" @@ -64420,19 +64334,19 @@ static const char *startup_source = "(let-values(((id:val147_0" " val-rhs148_0)" "(let-values()" -"(let-values(((s_538)" +"(let-values(((s_537)" "(if(syntax?$1" -" s_537)" +" s_536)" "(syntax-e$1" -" s_537)" -" s_537)))" +" s_536)" +" s_536)))" "(if(pair?" -" s_538)" +" s_537)" "(let-values(((id:val124_0)" "(let-values(((s_473)" "(car" -" s_538)))" -"(let-values(((s_539)" +" s_537)))" +"(let-values(((s_538)" "(if(syntax?$1" " s_473)" "(syntax-e$1" @@ -64440,7 +64354,7 @@ static const char *startup_source = " s_473)))" "(let-values(((flat-s_36)" "(to-syntax-list.1" -" s_539)))" +" s_538)))" "(if(not" " flat-s_36)" "(let-values()" @@ -64459,14 +64373,14 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_344)))" -"((letrec-values(((for-loop_296)" +"((letrec-values(((for-loop_298)" "(lambda(id:val_6" " lst_123)" "(begin" " 'for-loop" "(if(pair?" " lst_123)" -"(let-values(((s_540)" +"(let-values(((s_539)" "(unsafe-car" " lst_123))" "((rest_62)" @@ -64479,23 +64393,23 @@ static const char *startup_source = "(let-values()" "(let-values(((id:val149_0)" "(let-values()" -"(if(let-values(((or-part_380)" +"(if(let-values(((or-part_381)" "(if(syntax?$1" -" s_540)" +" s_539)" "(symbol?" "(syntax-e$1" -" s_540))" +" s_539))" " #f)))" -"(if or-part_380" -" or-part_380" +"(if or-part_381" +" or-part_381" "(symbol?" -" s_540)))" -" s_540" +" s_539)))" +" s_539" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_44" -" s_540)))))" +" s_539)))))" "(cons" " id:val149_0" " id:val_8)))))" @@ -64503,12 +64417,12 @@ static const char *startup_source = " id:val_9)))))" "(if(not" " #f)" -"(for-loop_296" +"(for-loop_298" " id:val_7" " rest_62)" " id:val_7)))" " id:val_6)))))" -" for-loop_296)" +" for-loop_298)" " null" " lst_344)))))" "(reverse$1" @@ -64516,7 +64430,7 @@ static const char *startup_source = "((val-rhs125_0)" "(let-values(((s_353)" "(cdr" -" s_538)))" +" s_537)))" "(let-values(((s_248)" "(if(syntax?$1" " s_353)" @@ -64531,15 +64445,15 @@ static const char *startup_source = " s_248)))" " s_355))" "(()" -"(let-values(((s_541)" +"(let-values(((s_540)" "(cdr" " s_248)))" "(let-values(((s_356)" "(if(syntax?$1" -" s_541)" +" s_540)" "(syntax-e$1" -" s_541)" -" s_541)))" +" s_540)" +" s_540)))" "(if(null?" " s_356)" "(values)" @@ -64572,7 +64486,7 @@ static const char *startup_source = " val-rhs_5)))))" "(if(not" " #f)" -"(for-loop_295" +"(for-loop_297" " id:val_2" " val-rhs_3" " rest_203)" @@ -64582,7 +64496,7 @@ static const char *startup_source = "(values" " id:val_1" " val-rhs_2))))))" -" for-loop_295)" +" for-loop_297)" " null" " null" " lst_342)))))" @@ -64669,23 +64583,23 @@ static const char *startup_source = "(let-values(((s_257)(car s_254)))" " s_257))" "((id:val132_0 val-rhs133_0 body134_0)" -"(let-values(((s_542)(cdr s_254)))" -"(let-values(((s_543)" -"(if(syntax?$1 s_542)" -"(syntax-e$1 s_542)" -" s_542)))" -"(if(pair? s_543)" +"(let-values(((s_541)(cdr s_254)))" +"(let-values(((s_542)" +"(if(syntax?$1 s_541)" +"(syntax-e$1 s_541)" +" s_541)))" +"(if(pair? s_542)" "(let-values(((id:val135_0" " val-rhs136_0)" -"(let-values(((s_418)" +"(let-values(((s_543)" "(car" -" s_543)))" +" s_542)))" "(let-values(((s_258)" "(if(syntax?$1" -" s_418)" +" s_543)" "(syntax-e$1" -" s_418)" -" s_418)))" +" s_543)" +" s_543)))" "(let-values(((flat-s_38)" "(to-syntax-list.1" " s_258)))" @@ -64708,7 +64622,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_306)))" -"((letrec-values(((for-loop_297)" +"((letrec-values(((for-loop_299)" "(lambda(id:val_11" " val-rhs_7" " lst_345)" @@ -64773,7 +64687,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_346)))" -"((letrec-values(((for-loop_298)" +"((letrec-values(((for-loop_300)" "(lambda(id:val_16" " lst_347)" "(begin" @@ -64793,15 +64707,15 @@ static const char *startup_source = "(let-values()" "(let-values(((id:val152_0)" "(let-values()" -"(if(let-values(((or-part_381)" +"(if(let-values(((or-part_382)" "(if(syntax?$1" " s_547)" "(symbol?" "(syntax-e$1" " s_547))" " #f)))" -"(if or-part_381" -" or-part_381" +"(if or-part_382" +" or-part_382" "(symbol?" " s_547)))" " s_547" @@ -64817,12 +64731,12 @@ static const char *startup_source = " id:val_19)))))" "(if(not" " #f)" -"(for-loop_298" +"(for-loop_300" " id:val_17" " rest_205)" " id:val_17)))" " id:val_16)))))" -" for-loop_298)" +" for-loop_300)" " null" " lst_346)))))" "(reverse$1" @@ -64886,7 +64800,7 @@ static const char *startup_source = " val-rhs_10)))))" "(if(not" " #f)" -"(for-loop_297" +"(for-loop_299" " id:val_12" " val-rhs_8" " rest_204)" @@ -64896,7 +64810,7 @@ static const char *startup_source = "(values" " id:val_11" " val-rhs_7))))))" -" for-loop_297)" +" for-loop_299)" " null" " null" " lst_306)))))" @@ -64908,7 +64822,7 @@ static const char *startup_source = "((body137_0)" "(let-values(((s_261)" "(cdr" -" s_543)))" +" s_542)))" "(let-values(((s_262)" "(if(syntax?$1" " s_261)" @@ -64950,8 +64864,8 @@ static const char *startup_source = " (raise-syntax-error$1 #f \"bad syntax\" orig-s_45)))))" "(values #t let-values127_1 id:val128_1 val-rhs129_1 body130_1)))" "(values #f #f #f #f #f)))))" -"(let-values(((sc_40)(new-scope 'local)))" -"(let-values(((phase_84)(expand-context-phase ctx_83)))" +"(let-values(((sc_39)(new-scope 'local)))" +"(let-values(((phase_83)(expand-context-phase ctx_84)))" "(let-values(((frame-id_15)(if syntaxes?_0(make-reference-record) #f)))" "(let-values(((trans-idss_2)" "(reverse$1" @@ -64960,7 +64874,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_348)))" -"((letrec-values(((for-loop_299)" +"((letrec-values(((for-loop_301)" "(lambda(fold-var_314 lst_349)" "(begin" " 'for-loop" @@ -64986,14 +64900,14 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_350)))" -"((letrec-values(((for-loop_300)" +"((letrec-values(((for-loop_302)" "(lambda(fold-var_315" " lst_351)" "(begin" " 'for-loop" "(if(pair?" " lst_351)" -"(let-values(((id_115)" +"(let-values(((id_116)" "(unsafe-car" " lst_351))" "((rest_207)" @@ -65007,29 +64921,29 @@ static const char *startup_source = "(cons" "(let-values()" "(add-scope" -" id_115" -" sc_40))" +" id_116" +" sc_39))" " fold-var_317))))" "(values" " fold-var_318)))))" "(if(not" " #f)" -"(for-loop_300" +"(for-loop_302" " fold-var_316" " rest_207)" " fold-var_316)))" " fold-var_315)))))" -" for-loop_300)" +" for-loop_302)" " null" " lst_350)))))" " fold-var_114))))" "(values" " fold-var_115)))))" "(if(not #f)" -"(for-loop_299 fold-var_113 rest_206)" +"(for-loop_301 fold-var_113 rest_206)" " fold-var_113)))" " fold-var_314)))))" -" for-loop_299)" +" for-loop_301)" " null" " lst_348))))))" "(let-values(((val-idss_3)" @@ -65039,7 +64953,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_352)))" -"((letrec-values(((for-loop_301)" +"((letrec-values(((for-loop_303)" "(lambda(fold-var_319 lst_353)" "(begin" " 'for-loop" @@ -65065,14 +64979,14 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_354)))" -"((letrec-values(((for-loop_302)" +"((letrec-values(((for-loop_304)" "(lambda(fold-var_323" " lst_355)" "(begin" " 'for-loop" "(if(pair?" " lst_355)" -"(let-values(((id_116)" +"(let-values(((id_117)" "(unsafe-car" " lst_355))" "((rest_209)" @@ -65086,31 +65000,31 @@ static const char *startup_source = "(cons" "(let-values()" "(add-scope" -" id_116" -" sc_40))" +" id_117" +" sc_39))" " fold-var_325))))" "(values" " fold-var_326)))))" "(if(not" " #f)" -"(for-loop_302" +"(for-loop_304" " fold-var_324" " rest_209)" " fold-var_324)))" " fold-var_323)))))" -" for-loop_302)" +" for-loop_304)" " null" " lst_354)))))" " fold-var_321))))" "(values" " fold-var_322)))))" "(if(not #f)" -"(for-loop_301" +"(for-loop_303" " fold-var_320" " rest_208)" " fold-var_320)))" " fold-var_319)))))" -" for-loop_301)" +" for-loop_303)" " null" " lst_352))))))" "(let-values(((val-rhss_3)" @@ -65122,7 +65036,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_356)))" -"((letrec-values(((for-loop_303)" +"((letrec-values(((for-loop_305)" "(lambda(fold-var_327 lst_357)" "(begin" " 'for-loop" @@ -65140,17 +65054,17 @@ static const char *startup_source = "(let-values()" "(add-scope" " rhs_20" -" sc_40))" +" sc_39))" " fold-var_329))))" "(values" " fold-var_330)))))" "(if(not #f)" -"(for-loop_303" +"(for-loop_305" " fold-var_328" " rest_210)" " fold-var_328)))" " fold-var_327)))))" -" for-loop_303)" +" for-loop_305)" " null" " lst_356))))" "(if syntaxes?_0 val-rhs105_0 val-rhs129_0))))" @@ -65342,17 +65256,17 @@ static const char *startup_source = " clause167_0)))))" "(let-values((()" "(begin" -"(let-values(((temp141_2)(list trans-idss_2 val-idss_3))" -"((phase142_0) phase_84)" +"(let-values(((temp141_3)(list trans-idss_2 val-idss_3))" +"((phase142_0) phase_83)" "((s143_0) s_105))" "(check-no-duplicate-ids7.1" " unsafe-undefined" -" temp141_2" +" temp141_3" " phase142_0" " s143_0" " unsafe-undefined))" "(values))))" -"(let-values(((counter_8)(root-expand-context-counter ctx_83)))" +"(let-values(((counter_8)(root-expand-context-counter ctx_84)))" "(let-values(((trans-keyss_0)" "(reverse$1" "(let-values(((lst_358) trans-idss_2))" @@ -65361,7 +65275,7 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()(check-list lst_358)))" -"((letrec-values(((for-loop_304)" +"((letrec-values(((for-loop_306)" "(lambda(fold-var_331 lst_359)" "(begin" " 'for-loop" @@ -65389,14 +65303,14 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_360)))" -"((letrec-values(((for-loop_305)" +"((letrec-values(((for-loop_307)" "(lambda(fold-var_335" " lst_361)" "(begin" " 'for-loop" "(if(pair?" " lst_361)" -"(let-values(((id_117)" +"(let-values(((id_118)" "(unsafe-car" " lst_361))" "((rest_212)" @@ -65410,9 +65324,9 @@ static const char *startup_source = "(cons" "(let-values()" "(let-values(((id174_0)" -" id_117)" +" id_118)" "((phase175_0)" -" phase_84)" +" phase_83)" "((counter176_0)" " counter_8)" "((frame-id177_0)" @@ -65430,24 +65344,24 @@ static const char *startup_source = " fold-var_338)))))" "(if(not" " #f)" -"(for-loop_305" +"(for-loop_307" " fold-var_336" " rest_212)" " fold-var_336)))" " fold-var_335)))))" -" for-loop_305)" +" for-loop_307)" " null" " lst_360)))))" " fold-var_333))))" "(values" " fold-var_334)))))" "(if(not #f)" -"(for-loop_304" +"(for-loop_306" " fold-var_332" " rest_211)" " fold-var_332)))" " fold-var_331)))))" -" for-loop_304)" +" for-loop_306)" " null" " lst_358))))))" "(let-values(((val-keyss_2)" @@ -65458,7 +65372,7 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()(check-list lst_362)))" -"((letrec-values(((for-loop_306)" +"((letrec-values(((for-loop_308)" "(lambda(fold-var_339 lst_363)" "(begin" " 'for-loop" @@ -65486,14 +65400,14 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_131)))" -"((letrec-values(((for-loop_307)" +"((letrec-values(((for-loop_309)" "(lambda(fold-var_342" " lst_364)" "(begin" " 'for-loop" "(if(pair?" " lst_364)" -"(let-values(((id_118)" +"(let-values(((id_119)" "(unsafe-car" " lst_364))" "((rest_214)" @@ -65507,9 +65421,9 @@ static const char *startup_source = "(cons" "(let-values()" "(let-values(((id179_0)" -" id_118)" +" id_119)" "((phase180_0)" -" phase_84)" +" phase_83)" "((counter181_0)" " counter_8)" "((frame-id182_0)" @@ -65527,24 +65441,24 @@ static const char *startup_source = " fold-var_345)))))" "(if(not" " #f)" -"(for-loop_307" +"(for-loop_309" " fold-var_343" " rest_214)" " fold-var_343)))" " fold-var_342)))))" -" for-loop_307)" +" for-loop_309)" " null" " lst_131)))))" " fold-var_341))))" "(values" " fold-var_118)))))" "(if(not #f)" -"(for-loop_306" +"(for-loop_308" " fold-var_340" " rest_213)" " fold-var_340)))" " fold-var_339)))))" -" for-loop_306)" +" for-loop_308)" " null" " lst_362))))))" "(let-values(((bodys_10)" @@ -65556,7 +65470,7 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()(check-list lst_365)))" -"((letrec-values(((for-loop_308)" +"((letrec-values(((for-loop_310)" "(lambda(fold-var_346 lst_366)" "(begin" " 'for-loop" @@ -65576,23 +65490,23 @@ static const char *startup_source = "(let-values()" "(add-scope" " body_18" -" sc_40))" +" sc_39))" " fold-var_347))))" "(values" " fold-var_48)))))" "(if(not #f)" -"(for-loop_308" +"(for-loop_310" " fold-var_123" " rest_215)" " fold-var_123)))" " fold-var_346)))))" -" for-loop_308)" +" for-loop_310)" " null" " lst_365))))))" "(let-values((()" "(begin" "(let-values(((obs_90)" -"(expand-context-observer ctx_83)))" +"(expand-context-observer ctx_84)))" "(if obs_90" "(let-values()" "(log-let-renames" @@ -65603,7 +65517,7 @@ static const char *startup_source = " bodys_10" " trans-idss_2" "(if syntaxes?_0 trans-rhs103_0 #f)" -" sc_40))" +" sc_39))" "(void)))" "(values))))" "(let-values((()" @@ -65613,7 +65527,7 @@ static const char *startup_source = "(begin" "(let-values(((obs_91)" "(expand-context-observer" -" ctx_83)))" +" ctx_84)))" "(if obs_91" "(let-values()" "(let-values()" @@ -65621,7 +65535,7 @@ static const char *startup_source = " obs_91" " 'prepare-env)))" "(void)))" -"(prepare-next-phase-namespace ctx_83)))" +"(prepare-next-phase-namespace ctx_84)))" "(void))" "(values))))" "(let-values(((trans-valss_0)" @@ -65640,7 +65554,7 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()(check-list lst_367)))" -"((letrec-values(((for-loop_309)" +"((letrec-values(((for-loop_311)" "(lambda(fold-var_348" " lst_368" " lst_369)" @@ -65672,7 +65586,7 @@ static const char *startup_source = "(begin" "(let-values(((obs_92)" "(expand-context-observer" -" ctx_83)))" +" ctx_84)))" "(if obs_92" "(let-values()" "(let-values()" @@ -65690,13 +65604,13 @@ static const char *startup_source = " 'letrec-syntaxes+values" "(add-scope" " rhs_21" -" sc_40)" +" sc_39)" " ids_41" -" ctx_83)))" +" ctx_84)))" "(begin" "(let-values(((obs_93)" "(expand-context-observer" -" ctx_83)))" +" ctx_84)))" "(if obs_93" "(let-values()" "(let-values()" @@ -65709,13 +65623,13 @@ static const char *startup_source = "(values" " fold-var_351)))))" "(if(not #f)" -"(for-loop_309" +"(for-loop_311" " fold-var_349" " rest_216" " rest_217)" " fold-var_349)))" " fold-var_348)))))" -" for-loop_309)" +" for-loop_311)" " null" " lst_63" " lst_367))))))" @@ -65731,7 +65645,7 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()(check-list lst_135)))" -"((letrec-values(((for-loop_310)" +"((letrec-values(((for-loop_312)" "(lambda(env_29" " lst_371" " lst_372)" @@ -65773,7 +65687,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_374)))" -"((letrec-values(((for-loop_311)" +"((letrec-values(((for-loop_313)" "(lambda(env_32" " lst_375" " lst_376)" @@ -65784,13 +65698,13 @@ static const char *startup_source = "(pair?" " lst_376)" " #f)" -"(let-values(((key_90)" +"(let-values(((key_91)" "(unsafe-car" " lst_375))" "((rest_220)" "(unsafe-cdr" " lst_375))" -"((id_119)" +"((id_120)" "(unsafe-car" " lst_376))" "((rest_221)" @@ -65803,32 +65717,32 @@ static const char *startup_source = "(let-values()" "(env-extend" " env_34" -" key_90" +" key_91" "(local-variable1.1" -" id_119)))))" +" id_120)))))" "(values" " env_35)))))" "(if(not" " #f)" -"(for-loop_311" +"(for-loop_313" " env_33" " rest_220" " rest_221)" " env_33)))" " env_32)))))" -" for-loop_311)" +" for-loop_313)" " env_31" " lst_373" " lst_374))))))" "(if(not #f)" -"(for-loop_310" +"(for-loop_312" " env_30" " rest_218" " rest_219)" " env_30)))" " env_29)))))" -" for-loop_310)" -"(expand-context-env ctx_83)" +" for-loop_312)" +"(expand-context-env ctx_84)" " lst_370" " lst_135)))))" "(let-values(((rec-env_0)" @@ -65848,7 +65762,7 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()(check-list lst_379)))" -"((letrec-values(((for-loop_312)" +"((letrec-values(((for-loop_314)" "(lambda(env_36" " lst_380" " lst_381" @@ -65911,7 +65825,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_385)))" -"((letrec-values(((for-loop_313)" +"((letrec-values(((for-loop_315)" "(lambda(env_40" " lst_386" " lst_387" @@ -65926,19 +65840,19 @@ static const char *startup_source = " lst_388)" " #f)" " #f)" -"(let-values(((key_91)" +"(let-values(((key_92)" "(unsafe-car" " lst_386))" "((rest_225)" "(unsafe-cdr" " lst_386))" -"((val_85)" +"((val_86)" "(unsafe-car" " lst_387))" "((rest_226)" "(unsafe-cdr" " lst_387))" -"((id_120)" +"((id_121)" "(unsafe-car" " lst_388))" "((rest_227)" @@ -65951,26 +65865,26 @@ static const char *startup_source = "(let-values()" "(begin" "(maybe-install-free=id-in-context!" -" val_85" -" id_120" -" phase_84" -" ctx_83)" +" val_86" +" id_121" +" phase_83" +" ctx_84)" "(env-extend" " env_42" -" key_91" -" val_85)))))" +" key_92" +" val_86)))))" "(values" " env_43)))))" "(if(not" " #f)" -"(for-loop_313" +"(for-loop_315" " env_41" " rest_225" " rest_226" " rest_227)" " env_41)))" " env_40)))))" -" for-loop_313)" +" for-loop_315)" " env_38" " lst_383" " lst_384" @@ -65978,35 +65892,35 @@ static const char *startup_source = "(values" " env_39)))))" "(if(not #f)" -"(for-loop_312" +"(for-loop_314" " env_37" " rest_222" " rest_223" " rest_224)" " env_37)))" " env_36)))))" -" for-loop_312)" +" for-loop_314)" " rec-val-env_0" " lst_377" " lst_378" " lst_379)))))" "(let-values(((expr-ctx_0)" -"(as-expression-context ctx_83)))" +"(as-expression-context ctx_84)))" "(let-values(((orig-rrs_0)" "(expand-context-reference-records" " expr-ctx_0)))" "(let-values(((rec-ctx_0)" -"(let-values(((v_185) expr-ctx_0))" -"(let-values(((the-struct_96) v_185))" +"(let-values(((v_182) expr-ctx_0))" +"(let-values(((the-struct_97) v_182))" "(if(expand-context/outer?" -" the-struct_96)" +" the-struct_97)" "(let-values(((env184_0)" " rec-env_0)" "((scopes185_0)" "(cons" -" sc_40" +" sc_39" "(expand-context-scopes" -" ctx_83)))" +" ctx_84)))" "((reference-records186_0)" "(if split-by-reference?_0" "(cons" @@ -66018,55 +65932,51 @@ static const char *startup_source = "(cons" " trans-idss_2" " val-idss_3)" -" ctx_83" -" sc_40))" +" ctx_84" +" sc_39))" "((inner188_0)" "(root-expand-context/outer-inner" -" v_185)))" +" v_182)))" "(expand-context/outer1.1" " inner188_0" -"(root-expand-context/outer-post-expansion-scope" -" the-struct_96)" -"(root-expand-context/outer-post-expansion-shifts" -" the-struct_96)" +"(root-expand-context/outer-post-expansion" +" the-struct_97)" "(root-expand-context/outer-use-site-scopes" -" the-struct_96)" +" the-struct_97)" "(root-expand-context/outer-frame-id" -" the-struct_96)" +" the-struct_97)" "(expand-context/outer-context" -" the-struct_96)" +" the-struct_97)" " env184_0" -"(expand-context/outer-post-expansion-scope-action" -" the-struct_96)" " scopes185_0" "(expand-context/outer-def-ctx-scopes" -" the-struct_96)" +" the-struct_97)" " binding-layer187_0" " reference-records186_0" "(expand-context/outer-only-immediate?" -" the-struct_96)" +" the-struct_97)" "(expand-context/outer-need-eventually-defined" -" the-struct_96)" +" the-struct_97)" "(expand-context/outer-current-introduction-scopes" -" the-struct_96)" +" the-struct_97)" "(expand-context/outer-current-use-scopes" -" the-struct_96)" +" the-struct_97)" "(expand-context/outer-name" -" the-struct_96)))" +" the-struct_97)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_96))))))" +" the-struct_97))))))" "(let-values(((letrec-values-id_0)" "(if(not" "(expand-context-to-parsed?" -" ctx_83))" +" ctx_84))" "(if syntaxes?_0" -"(core-id 'letrec-values phase_84)" +"(core-id 'letrec-values phase_83)" " let-values127_0)" " #f)))" "(let-values(((rebuild-s_6)" -"(let-values(((ctx189_0) ctx_83)" +"(let-values(((ctx189_0) ctx_84)" "((s190_1) s_105)" "((temp191_1) #t))" "(keep-as-needed119.1" @@ -66077,7 +65987,7 @@ static const char *startup_source = " s190_1))))" "(let-values(((val-name-idss_0)" "(if(expand-context-to-parsed?" -" ctx_83)" +" ctx_84)" "(reverse$1" "(let-values(((lst_254)" " val-idss_3))" @@ -66087,7 +65997,7 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list lst_254)))" -"((letrec-values(((for-loop_229)" +"((letrec-values(((for-loop_231)" "(lambda(fold-var_352" " lst_255)" "(begin" @@ -66117,7 +66027,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_389)))" -"((letrec-values(((for-loop_314)" +"((letrec-values(((for-loop_316)" "(lambda(fold-var_356" " lst_390)" "(begin" @@ -66148,12 +66058,12 @@ static const char *startup_source = " fold-var_358)))))" "(if(not" " #f)" -"(for-loop_314" +"(for-loop_316" " fold-var_357" " rest_228)" " fold-var_357)))" " fold-var_356)))))" -" for-loop_314)" +" for-loop_316)" " null" " lst_389)))))" " fold-var_354))))" @@ -66161,12 +66071,12 @@ static const char *startup_source = " fold-var_355)))))" "(if(not" " #f)" -"(for-loop_229" +"(for-loop_231" " fold-var_353" " rest_139)" " fold-var_353)))" " fold-var_352)))))" -" for-loop_229)" +" for-loop_231)" " null" " lst_254))))" " val-idss_3)))" @@ -66176,7 +66086,7 @@ static const char *startup_source = "(let-values()" "(let-values(((obs_94)" "(expand-context-observer" -" ctx_83)))" +" ctx_84)))" "(if obs_94" "(let-values()" "(log-letrec-values" @@ -66195,7 +66105,7 @@ static const char *startup_source = "(begin" "(let-values(((obs_95)" "(expand-context-observer" -" ctx_83)))" +" ctx_84)))" "(if obs_95" "(let-values()" "(if(not" @@ -66213,10 +66123,10 @@ static const char *startup_source = "(let-values(((body-ctx_5)" "(let-values(((v_266)" " rec-ctx_0))" -"(let-values(((the-struct_97)" +"(let-values(((the-struct_98)" " v_266))" "(if(expand-context/outer?" -" the-struct_97)" +" the-struct_98)" "(let-values(((reference-records195_0)" " orig-rrs_0)" "((inner196_0)" @@ -66224,48 +66134,44 @@ static const char *startup_source = " v_266)))" "(expand-context/outer1.1" " inner196_0" -"(root-expand-context/outer-post-expansion-scope" -" the-struct_97)" -"(root-expand-context/outer-post-expansion-shifts" -" the-struct_97)" +"(root-expand-context/outer-post-expansion" +" the-struct_98)" "(root-expand-context/outer-use-site-scopes" -" the-struct_97)" +" the-struct_98)" "(root-expand-context/outer-frame-id" -" the-struct_97)" +" the-struct_98)" "(expand-context/outer-context" -" the-struct_97)" +" the-struct_98)" "(expand-context/outer-env" -" the-struct_97)" -"(expand-context/outer-post-expansion-scope-action" -" the-struct_97)" +" the-struct_98)" "(expand-context/outer-scopes" -" the-struct_97)" +" the-struct_98)" "(expand-context/outer-def-ctx-scopes" -" the-struct_97)" +" the-struct_98)" "(expand-context/outer-binding-layer" -" the-struct_97)" +" the-struct_98)" " reference-records195_0" "(expand-context/outer-only-immediate?" -" the-struct_97)" +" the-struct_98)" "(expand-context/outer-need-eventually-defined" -" the-struct_97)" +" the-struct_98)" "(expand-context/outer-current-introduction-scopes" -" the-struct_97)" +" the-struct_98)" "(expand-context/outer-current-use-scopes" -" the-struct_97)" +" the-struct_98)" "(expand-context/outer-name" -" the-struct_97)))" +" the-struct_98)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_97))))))" +" the-struct_98))))))" "(let-values(((bodys192_0)" " bodys_10)" "((temp193_0)" "(let-values(((body-ctx197_0)" " body-ctx_5)" "((ctx198_0)" -" ctx_83))" +" ctx_84))" "(as-tail-context22.1" " ctx198_0" " body-ctx197_0)))" @@ -66315,7 +66221,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_392)))" -"((letrec-values(((for-loop_315)" +"((letrec-values(((for-loop_317)" "(lambda(fold-var_359" " lst_393" " lst_394" @@ -66369,7 +66275,7 @@ static const char *startup_source = "(begin" "(let-values(((obs_96)" "(expand-context-observer" -" ctx_83)))" +" ctx_84)))" "(if obs_96" "(let-values()" "(let-values()" @@ -66396,7 +66302,7 @@ static const char *startup_source = " rhs199_0" " temp200_0))))" "(if(expand-context-to-parsed?" -" ctx_83)" +" ctx_84)" "(list" " keys_12" " exp-rhs_4)" @@ -66412,7 +66318,7 @@ static const char *startup_source = " fold-var_361)))))" "(if(not" " #f)" -"(for-loop_315" +"(for-loop_317" " fold-var_51" " rest_229" " rest_230" @@ -66420,7 +66326,7 @@ static const char *startup_source = " rest_232)" " fold-var_51)))" " fold-var_359)))))" -" for-loop_315)" +" for-loop_317)" " null" " lst_150" " lst_391" @@ -66435,7 +66341,7 @@ static const char *startup_source = " frame-id_15))" "(void))" "(if(expand-context-to-parsed?" -" ctx_83)" +" ctx_84)" "(if rec?_1" "(parsed-letrec-values18.1" " rebuild-s_6" @@ -66467,7 +66373,7 @@ static const char *startup_source = " val-rhss_3)" "((val-clauses206_0)" " val-clauses_0)" -"((temp207_1)" +"((temp207_0)" " #t)" "((frame-id208_0)" " frame-id_15)" @@ -66479,7 +66385,7 @@ static const char *startup_source = " syntaxes?_0)" "((get-body212_0)" " get-body_1)" -"((temp213_3)" +"((temp213_2)" " #t))" "(expand-and-split-bindings-by-reference48.1" " rec-ctx209_0" @@ -66487,20 +66393,20 @@ static const char *startup_source = " get-body212_0" " syntaxes?211_0" " rebuild-s210_0" -" temp207_1" -" temp213_3" +" temp207_0" +" temp213_2" " val-idss203_0" " val-keyss204_0" " val-rhss205_0" " val-clauses206_0))))))" -"(if(expand-context-to-parsed? ctx_83)" +"(if(expand-context-to-parsed? ctx_84)" " result-s_12" "(attach-disappeared-transformer-bindings" " result-s_12" " trans-idss_2))))))))))))))))))))))))))))))))))))))))))" "(define-values" "(log-let-renames)" -"(lambda(obs_97 renames-log-tag_1 val-idss_4 val-rhss_4 bodys_11 trans-idss_3 trans-rhss_0 sc_41)" +"(lambda(obs_97 renames-log-tag_1 val-idss_4 val-rhss_4 bodys_11 trans-idss_3 trans-rhss_0 sc_40)" "(begin" "(let-values(((vals+body_0)" "(cons" @@ -66513,7 +66419,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_398)))" -"((letrec-values(((for-loop_316)" +"((letrec-values(((for-loop_318)" "(lambda(fold-var_362 lst_399 lst_400)" "(begin" " 'for-loop" @@ -66534,10 +66440,10 @@ static const char *startup_source = " fold-var_364))))" "(values fold-var_365)))))" "(if(not #f)" -"(for-loop_316 fold-var_363 rest_233 rest_234)" +"(for-loop_318 fold-var_363 rest_233 rest_234)" " fold-var_363)))" " fold-var_362)))))" -" for-loop_316)" +" for-loop_318)" " null" " lst_397" " lst_398))))" @@ -66557,7 +66463,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_402)))" -"((letrec-values(((for-loop_317)" +"((letrec-values(((for-loop_319)" "(lambda(fold-var_366 lst_403 lst_404)" "(begin" " 'for-loop" @@ -66576,12 +66482,12 @@ static const char *startup_source = " #f" "(list" " trans-ids_0" -"(add-scope trans-rhs_5 sc_41))))" +"(add-scope trans-rhs_5 sc_40))))" " fold-var_368))))" "(values fold-var_369)))))" -"(if(not #f)(for-loop_317 fold-var_367 rest_235 rest_236) fold-var_367)))" +"(if(not #f)(for-loop_319 fold-var_367 rest_235 rest_236) fold-var_367)))" " fold-var_366)))))" -" for-loop_317)" +" for-loop_319)" " null" " lst_401" " lst_402))))" @@ -66601,28 +66507,28 @@ static const char *startup_source = "(void" "(add-core-form!*" " 'let-values" -"(let-values(((temp214_3) 'prim-let-values))(make-let-values-form11.1 temp214_3 #f 'let-renames #f #f))))" +"(let-values(((temp214_2) 'prim-let-values))(make-let-values-form11.1 temp214_2 #f 'let-renames #f #f))))" "(void" "(add-core-form!*" " 'letrec-values" -"(let-values(((temp215_0) #t)((temp216_0) 'prim-letrec-values))" -"(make-let-values-form11.1 temp216_0 temp215_0 'let-renames #f #f))))" +"(let-values(((temp215_0) #t)((temp216_1) 'prim-letrec-values))" +"(make-let-values-form11.1 temp216_1 temp215_0 'let-renames #f #f))))" "(void" "(add-core-form!*" " 'letrec-syntaxes+values" -"(let-values(((temp217_2) #t)" -"((temp218_2) #t)" -"((temp219_1) #t)" +"(let-values(((temp217_3) #t)" +"((temp218_1) #t)" +"((temp219_0) #t)" "((temp220_0) 'prim-letrec-syntaxes+values)" "((temp221_3) 'letrec-syntaxes-renames))" -"(make-let-values-form11.1 temp220_0 temp218_2 temp221_3 temp219_1 temp217_2))))" +"(make-let-values-form11.1 temp220_0 temp218_1 temp221_3 temp219_0 temp217_3))))" "(void" "(add-core-form!*" " '#%stratified-body" -"(lambda(s_568 ctx_84)" +"(lambda(s_568 ctx_85)" "(let-values((()" "(begin" -"(let-values(((obs_99)(expand-context-observer ctx_84)))" +"(let-values(((obs_99)(expand-context-observer ctx_85)))" "(if obs_99" "(let-values()(let-values()(call-expand-observe obs_99 'prim-#%stratified)))" "(void)))" @@ -66654,29 +66560,29 @@ static const char *startup_source = " (raise-syntax-error$1 #f \"bad syntax\" orig-s_48)))))" "(values #t #%stratified-body222_1 body223_1))))))" "(let-values(((rebuild-s_7)" -"(let-values(((ctx226_0) ctx_84)((s227_0) s_568)((temp228_0) #t))" +"(let-values(((ctx226_0) ctx_85)((s227_0) s_568)((temp228_0) #t))" "(keep-as-needed119.1 #f temp228_0 #f ctx226_0 s227_0))))" "(let-values(((exp-body_5)" "(let-values(((temp229_3) body223_0)" -"((ctx230_0) ctx_84)" +"((ctx230_0) ctx_85)" "((temp231_1) #t)" "((rebuild-s232_0) rebuild-s_7))" "(expand-body7.1 rebuild-s232_0 temp231_1 temp229_3 ctx230_0))))" -"(if(expand-context-to-parsed? ctx_84)" +"(if(expand-context-to-parsed? ctx_85)" "(parsed-begin12.1 rebuild-s_7 exp-body_5)" "(let-values(((rebuild-s233_0) rebuild-s_7)" "((temp234_1)" "(if(null?(cdr exp-body_5))" "(car exp-body_5)" -"(list*(core-id 'begin(expand-context-phase ctx_84)) exp-body_5))))" +"(list*(core-id 'begin(expand-context-phase ctx_85)) exp-body_5))))" "(rebuild5.1 #t rebuild-s233_0 temp234_1)))))))))))" "(void" "(add-core-form!*" " '#%datum" -"(lambda(s_574 ctx_85)" +"(lambda(s_574 ctx_86)" "(let-values((()" "(begin" -"(let-values(((obs_100)(expand-context-observer ctx_85)))" +"(let-values(((obs_100)(expand-context-observer ctx_86)))" "(if obs_100(let-values()(let-values()(call-expand-observe obs_100 'prim-#%datum)))(void)))" "(values))))" "(let-values(((disarmed-s_10)(syntax-disarm$1 s_574)))" @@ -66699,18 +66605,18 @@ static const char *startup_source = " (raise-syntax-error$1 '#%datum \"keyword misused as an expression\" #f datum_2))" "(void))" "(values))))" -"(let-values(((phase_142)(expand-context-phase ctx_85)))" -"(if(if(expand-context-to-parsed? ctx_85)(free-id-set-empty?(expand-context-stops ctx_85)) #f)" +"(let-values(((phase_141)(expand-context-phase ctx_86)))" +"(if(if(expand-context-to-parsed? ctx_86)(free-id-set-empty?(expand-context-stops ctx_86)) #f)" "(parsed-quote14.1(keep-properties-only~ s_574)(syntax->datum$1 datum_2))" -"(let-values(((s239_0) s_574)((temp240_0)(list(core-id 'quote phase_142) datum_2)))" +"(let-values(((s239_0) s_574)((temp240_0)(list(core-id 'quote phase_141) datum_2)))" "(rebuild5.1 #t s239_0 temp240_0))))))))))))" "(void" "(add-core-form!*" " '#%app" -"(lambda(s_579 ctx_86)" +"(lambda(s_579 ctx_87)" "(let-values((()" "(begin" -"(let-values(((obs_101)(expand-context-observer ctx_86)))" +"(let-values(((obs_101)(expand-context-observer ctx_87)))" "(if obs_101(let-values()(let-values()(call-expand-observe obs_101 'prim-#%app)))(void)))" "(values))))" "(let-values(((disarmed-s_11)(syntax-disarm$1 s_579)))" @@ -66738,27 +66644,27 @@ static const char *startup_source = "(let-values(((es_3) e242_0))" "(if(null? es_3)" "(let-values()" -"(let-values(((phase_143)(expand-context-phase ctx_86)))" -"(if(expand-context-to-parsed? ctx_86)" +"(let-values(((phase_142)(expand-context-phase ctx_87)))" +"(if(expand-context-to-parsed? ctx_87)" "(parsed-quote14.1(keep-properties-only~ s_579) null)" -"(let-values(((s245_0) s_579)((temp246_1)(list(core-id 'quote phase_143) null)))" +"(let-values(((s245_0) s_579)((temp246_1)(list(core-id 'quote phase_142) null)))" "(rebuild5.1 #t s245_0 temp246_1)))))" "(let-values()" "(let-values(((keep-for-parsed?_1)(eq?(system-type 'vm) 'chez-scheme)))" "(let-values(((rebuild-s_8)" -"(let-values(((ctx247_0) ctx_86)" +"(let-values(((ctx247_0) ctx_87)" "((s248_0) s_579)" "((keep-for-parsed?249_0) keep-for-parsed?_1))" "(keep-as-needed119.1 #f #f keep-for-parsed?249_0 ctx247_0 s248_0))))" "(let-values(((prefixless_0)(cdr(syntax-e$1 disarmed-s_11))))" "(let-values(((rebuild-prefixless_0)" "(if(syntax?$1 prefixless_0)" -"(let-values(((ctx250_0) ctx_86)" +"(let-values(((ctx250_0) ctx_87)" "((prefixless251_0) prefixless_0)" "((keep-for-parsed?252_0) keep-for-parsed?_1))" "(keep-as-needed119.1 #f #f keep-for-parsed?252_0 ctx250_0 prefixless251_0))" " #f)))" -"(let-values(((expr-ctx_1)(as-expression-context ctx_86)))" +"(let-values(((expr-ctx_1)(as-expression-context ctx_87)))" "(let-values((()" "(begin" "(let-values(((obs_102)(expand-context-observer expr-ctx_1)))" @@ -66775,8 +66681,8 @@ static const char *startup_source = "(values))))" "(let-values(((rest-es_0)(cdr es_3)))" "(let-values(((exp-rator_0)" -"(let-values(((temp253_2)(car es_3))((expr-ctx254_0) expr-ctx_1))" -"(expand9.1 #f #f #f temp253_2 expr-ctx254_0))))" +"(let-values(((temp253_1)(car es_3))((expr-ctx254_0) expr-ctx_1))" +"(expand9.1 #f #f #f temp253_1 expr-ctx254_0))))" "(let-values(((exp-es_0)" "(reverse$1" "(let-values(((lst_405) rest-es_0))" @@ -66784,7 +66690,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_405)))" -"((letrec-values(((for-loop_318)" +"((letrec-values(((for-loop_320)" "(lambda(fold-var_370 lst_406)" "(begin" " 'for-loop" @@ -66824,17 +66730,17 @@ static const char *startup_source = "(values" " fold-var_373)))))" "(if(not #f)" -"(for-loop_318 fold-var_371 rest_237)" +"(for-loop_320 fold-var_371 rest_237)" " fold-var_371)))" " fold-var_370)))))" -" for-loop_318)" +" for-loop_320)" " null" " lst_405))))))" -"(if(expand-context-to-parsed? ctx_86)" +"(if(expand-context-to-parsed? ctx_87)" "(let-values()" "(parsed-app7.1" -"(let-values(((or-part_382) rebuild-prefixless_0))" -"(if or-part_382 or-part_382 rebuild-s_8))" +"(let-values(((or-part_383) rebuild-prefixless_0))" +"(if or-part_383 or-part_383 rebuild-s_8))" " exp-rator_0" " exp-es_0))" "(let-values()" @@ -66861,10 +66767,10 @@ static const char *startup_source = "(void" "(add-core-form!*" " 'quote" -"(lambda(s_585 ctx_87)" +"(lambda(s_585 ctx_88)" "(let-values((()" "(begin" -"(let-values(((obs_105)(expand-context-observer ctx_87)))" +"(let-values(((obs_105)(expand-context-observer ctx_88)))" "(if obs_105(let-values()(let-values()(call-expand-observe obs_105 'prim-quote)))(void)))" "(values))))" "(let-values(((ok?_48 quote261_0 datum262_0)" @@ -66900,16 +66806,16 @@ static const char *startup_source = "(values quote263_0 datum264_0))" " (raise-syntax-error$1 #f \"bad syntax\" orig-s_51)))))" "(values #t quote261_1 datum262_1))))))" -"(if(expand-context-to-parsed? ctx_87)" +"(if(expand-context-to-parsed? ctx_88)" "(parsed-quote14.1(keep-properties-only~ s_585)(syntax->datum$1 datum262_0))" " s_585))))))" "(void" "(add-core-form!*" " 'quote-syntax" -"(lambda(s_592 ctx_88)" +"(lambda(s_592 ctx_89)" "(let-values((()" "(begin" -"(let-values(((obs_106)(expand-context-observer ctx_88)))" +"(let-values(((obs_106)(expand-context-observer ctx_89)))" "(if obs_106" "(let-values()(let-values()(call-expand-observe obs_106 'prim-quote-syntax)))" "(void)))" @@ -67031,7 +66937,7 @@ static const char *startup_source = "(let-values()" "(let-values((()" "(begin" -"(reference-records-all-used!(expand-context-reference-records ctx_88))" +"(reference-records-all-used!(expand-context-reference-records ctx_89))" "(values))))" "(let-values(((ok?_51 _276_0 _277_0 kw278_0)" "(let-values(((s_615) disarmed-s_12))" @@ -67098,27 +67004,27 @@ static const char *startup_source = "(values _279_0 _280_0 kw281_0))" " (raise-syntax-error$1 #f \"bad syntax\" orig-s_53)))))" "(values #t _276_1 _277_1 kw278_1))))))" -"(if(expand-context-to-parsed? ctx_88)" +"(if(expand-context-to-parsed? ctx_89)" "(parsed-quote-syntax15.1(keep-properties-only~ s_592) datum267_0)" "(let-values(((s285_0) s_592)((temp286_0)(list quote-syntax266_0 datum267_0 kw278_0)))" "(rebuild5.1 #t s285_0 temp286_0))))))" "(let-values()" -"(let-values(((use-site-scopes_2)(root-expand-context-use-site-scopes ctx_88)))" +"(let-values(((use-site-scopes_2)(root-expand-context-use-site-scopes ctx_89)))" "(let-values(((datum-s_0)" "(remove-scopes" -"(remove-scopes datum272_0(expand-context-scopes ctx_88))" +"(remove-scopes datum272_0(expand-context-scopes ctx_89))" "(if use-site-scopes_2(unbox use-site-scopes_2) '()))))" -"(if(if(expand-context-to-parsed? ctx_88)(free-id-set-empty?(expand-context-stops ctx_88)) #f)" +"(if(if(expand-context-to-parsed? ctx_89)(free-id-set-empty?(expand-context-stops ctx_89)) #f)" "(parsed-quote-syntax15.1(keep-properties-only~ s_592) datum-s_0)" "(let-values(((s287_0) s_592)((temp288_0)(list quote-syntax271_0 datum-s_0)))" "(rebuild5.1 #t s287_0 temp288_0))))))))))))))" "(void" "(add-core-form!*" " 'if" -"(lambda(s_626 ctx_89)" +"(lambda(s_626 ctx_90)" "(let-values((()" "(begin" -"(let-values(((obs_107)(expand-context-observer ctx_89)))" +"(let-values(((obs_107)(expand-context-observer ctx_90)))" "(if obs_107(let-values()(let-values()(call-expand-observe obs_107 'prim-if)))(void)))" "(values))))" "(let-values(((disarmed-s_13)(syntax-disarm$1 s_626)))" @@ -67272,19 +67178,19 @@ static const char *startup_source = "(values if302_0 tst303_0 thn304_0 els305_0))" " (raise-syntax-error$1 #f \"bad syntax\" orig-s_54)))))" "(values #t if298_1 tst299_1 thn300_1 els301_1))))))" -"(let-values(((expr-ctx_2)(as-expression-context ctx_89)))" +"(let-values(((expr-ctx_2)(as-expression-context ctx_90)))" "(let-values(((tail-ctx_0)" -"(let-values(((expr-ctx312_0) expr-ctx_2)((ctx313_0) ctx_89))" +"(let-values(((expr-ctx312_0) expr-ctx_2)((ctx313_0) ctx_90))" "(as-tail-context22.1 ctx313_0 expr-ctx312_0))))" "(let-values(((rebuild-s_9)" -"(let-values(((ctx314_0) ctx_89)((s315_0) s_626))" +"(let-values(((ctx314_0) ctx_90)((s315_0) s_626))" "(keep-as-needed119.1 #f #f #f ctx314_0 s315_0))))" "(let-values(((exp-tst_0)" "(let-values(((temp316_0) tst299_0)((expr-ctx317_0) expr-ctx_2))" "(expand9.1 #f #f #f temp316_0 expr-ctx317_0))))" "(let-values((()" "(begin" -"(let-values(((obs_108)(expand-context-observer ctx_89)))" +"(let-values(((obs_108)(expand-context-observer ctx_90)))" "(if obs_108" "(let-values()(let-values()(call-expand-observe obs_108 'next)))" "(void)))" @@ -67294,7 +67200,7 @@ static const char *startup_source = "(expand9.1 #f #f #f temp318_0 tail-ctx319_0))))" "(let-values((()" "(begin" -"(let-values(((obs_109)(expand-context-observer ctx_89)))" +"(let-values(((obs_109)(expand-context-observer ctx_90)))" "(if obs_109" "(let-values()(let-values()(call-expand-observe obs_109 'next)))" "(void)))" @@ -67302,7 +67208,7 @@ static const char *startup_source = "(let-values(((exp-els_0)" "(let-values(((temp320_0) els301_0)((tail-ctx321_0) tail-ctx_0))" "(expand9.1 #f #f #f temp320_0 tail-ctx321_0))))" -"(if(expand-context-to-parsed? ctx_89)" +"(if(expand-context-to-parsed? ctx_90)" "(parsed-if8.1 rebuild-s_9 exp-tst_0 exp-thn_0 exp-els_0)" "(let-values(((rebuild-s322_0) rebuild-s_9)" "((temp323_0)(list if298_0 exp-tst_0 exp-thn_0 exp-els_0)))" @@ -67310,10 +67216,10 @@ static const char *startup_source = "(void" "(add-core-form!*" " 'with-continuation-mark" -"(lambda(s_662 ctx_90)" +"(lambda(s_662 ctx_91)" "(let-values((()" "(begin" -"(let-values(((obs_110)(expand-context-observer ctx_90)))" +"(let-values(((obs_110)(expand-context-observer ctx_91)))" "(if obs_110" "(let-values()(let-values()(call-expand-observe obs_110 'prim-with-continuation-mark)))" "(void)))" @@ -67398,16 +67304,16 @@ static const char *startup_source = "(values with-continuation-mark328_0 key329_0 val330_0 body331_0))" " (raise-syntax-error$1 #f \"bad syntax\" orig-s_55)))))" "(values #t with-continuation-mark324_1 key325_1 val326_1 body327_1))))))" -"(let-values(((expr-ctx_3)(as-expression-context ctx_90)))" +"(let-values(((expr-ctx_3)(as-expression-context ctx_91)))" "(let-values(((rebuild-s_10)" -"(let-values(((ctx338_0) ctx_90)((s339_0) s_662))" +"(let-values(((ctx338_0) ctx_91)((s339_0) s_662))" "(keep-as-needed119.1 #f #f #f ctx338_0 s339_0))))" "(let-values(((exp-key_0)" "(let-values(((temp340_0) key325_0)((expr-ctx341_0) expr-ctx_3))" "(expand9.1 #f #f #f temp340_0 expr-ctx341_0))))" "(let-values((()" "(begin" -"(let-values(((obs_111)(expand-context-observer ctx_90)))" +"(let-values(((obs_111)(expand-context-observer ctx_91)))" "(if obs_111" "(let-values()(let-values()(call-expand-observe obs_111 'next)))" "(void)))" @@ -67417,7 +67323,7 @@ static const char *startup_source = "(expand9.1 #f #f #f temp342_0 expr-ctx343_0))))" "(let-values((()" "(begin" -"(let-values(((obs_112)(expand-context-observer ctx_90)))" +"(let-values(((obs_112)(expand-context-observer ctx_91)))" "(if obs_112" "(let-values()(let-values()(call-expand-observe obs_112 'next)))" "(void)))" @@ -67425,10 +67331,10 @@ static const char *startup_source = "(let-values(((exp-body_6)" "(let-values(((temp344_0) body327_0)" "((temp345_0)" -"(let-values(((expr-ctx346_0) expr-ctx_3)((ctx347_0) ctx_90))" +"(let-values(((expr-ctx346_0) expr-ctx_3)((ctx347_0) ctx_91))" "(as-tail-context22.1 ctx347_0 expr-ctx346_0))))" "(expand9.1 #f #f #f temp344_0 temp345_0))))" -"(if(expand-context-to-parsed? ctx_90)" +"(if(expand-context-to-parsed? ctx_91)" "(parsed-with-continuation-mark10.1 rebuild-s_10 exp-key_0 exp-val_0 exp-body_6)" "(let-values(((rebuild-s348_0) rebuild-s_10)" "((temp349_0)(list with-continuation-mark324_0 exp-key_0 exp-val_0 exp-body_6)))" @@ -67443,10 +67349,10 @@ 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_677 ctx_91)" +"(lambda(s_677 ctx_92)" "(let-values((()" "(begin" -"(let-values(((obs_113)(expand-context-observer ctx_91)))" +"(let-values(((obs_113)(expand-context-observer ctx_92)))" "(if obs_113" "(let-values()(let-values()(call-expand-observe obs_113 log-tag_1)))" "(void)))" @@ -67487,10 +67393,10 @@ static const char *startup_source = "(values #t begin350_1 e351_1))))))" "(let-values(((expr-ctx_4)" "(if last-is-tail?_0" -"(as-begin-expression-context ctx_91)" -"(as-expression-context ctx_91))))" +"(as-begin-expression-context ctx_92)" +"(as-expression-context ctx_92))))" "(let-values(((rebuild-s_11)" -"(let-values(((ctx354_0) ctx_91)((s355_0) s_677))" +"(let-values(((ctx354_0) ctx_92)((s355_0) s_677))" "(keep-as-needed119.1 #f #f #f ctx354_0 s355_0))))" "(let-values(((exp-es_2)" "((letrec-values(((loop_124)" @@ -67501,7 +67407,7 @@ static const char *startup_source = "(if(zero? index_6)" "(let-values()" "(let-values(((obs_114)" -"(expand-context-observer ctx_91)))" +"(expand-context-observer ctx_92)))" "(if obs_114" "(let-values()" "(begin" @@ -67522,7 +67428,7 @@ static const char *startup_source = "(begin" "(let-values(((obs_115)" "(expand-context-observer" -" ctx_91)))" +" ctx_92)))" "(if obs_115" "(let-values()" "(let-values()" @@ -67537,7 +67443,7 @@ static const char *startup_source = "(let-values(((expr-ctx358_0)" " expr-ctx_4)" "((ctx359_0)" -" ctx_91))" +" ctx_92))" "(as-tail-context22.1" " ctx359_0" " expr-ctx358_0))" @@ -67548,7 +67454,7 @@ static const char *startup_source = " e351_0" " list-start-index_0)))" "(begin" -"(let-values(((obs_116)(expand-context-observer ctx_91)))" +"(let-values(((obs_116)(expand-context-observer ctx_92)))" "(if obs_116" "(let-values()" "(let-values()" @@ -67557,7 +67463,7 @@ static const char *startup_source = " 'exit-list" "(datum->syntax$1 #f(list-tail exp-es_2 list-start-index_0) rebuild-s_11))))" "(void)))" -"(if(expand-context-to-parsed? ctx_91)" +"(if(expand-context-to-parsed? ctx_92)" "(parsed-begin_0 rebuild-s_11 exp-es_2)" "(let-values(((rebuild-s360_0) rebuild-s_11)((temp361_0)(cons begin350_0 exp-es_2)))" "(rebuild5.1 #t rebuild-s360_0 temp361_0)))))))))))))))))))" @@ -67570,10 +67476,10 @@ static const char *startup_source = "((temp364_0) 0)" "((temp365_0) #t))" "(make-begin20.1 temp365_0 temp364_0 temp362_0 parsed-begin363_0))))" -"(lambda(s_683 ctx_92)" -"(let-values(((context_25)(expand-context-context ctx_92)))" -"(if(let-values(((or-part_383)(eq? context_25 'top-level)))" -"(if or-part_383 or-part_383(eq? context_25 'module)))" +"(lambda(s_683 ctx_93)" +"(let-values(((context_25)(expand-context-context ctx_93)))" +"(if(let-values(((or-part_384)(eq? context_25 'top-level)))" +"(if or-part_384 or-part_384(eq? context_25 'module)))" "(let-values()" "(let-values(((disarmed-s_16)(syntax-disarm$1 s_683)))" "(let-values(((ok?_56 begin366_0)" @@ -67601,8 +67507,8 @@ static const char *startup_source = "(values begin367_0)))))" "(values #t begin366_1)))" "(values #f #f)))))" -"(if ok?_56 s_683(nonempty-begin_0 s_683 ctx_92)))))" -"(let-values()(nonempty-begin_0 s_683 ctx_92))))))))" +"(if ok?_56 s_683(nonempty-begin_0 s_683 ctx_93)))))" +"(let-values()(nonempty-begin_0 s_683 ctx_93))))))))" "(void" "(add-core-form!*" " 'begin0" @@ -67610,15 +67516,15 @@ static const char *startup_source = "(make-begin20.1 temp371_0 temp370_0 temp368_0 parsed-begin0369_0))))" "(define-values" "(register-eventual-variable!?)" -"(lambda(id_121 ctx_93)" +"(lambda(id_122 ctx_94)" "(begin" -"(if(if(expand-context-need-eventually-defined ctx_93)(>=(expand-context-phase ctx_93) 1) #f)" +"(if(if(expand-context-need-eventually-defined ctx_94)(>=(expand-context-phase ctx_94) 1) #f)" "(let-values()" "(begin" "(hash-update!" -"(expand-context-need-eventually-defined ctx_93)" -"(expand-context-phase ctx_93)" -"(lambda(l_87)(cons id_121 l_87))" +"(expand-context-need-eventually-defined ctx_94)" +"(expand-context-phase ctx_94)" +"(lambda(l_87)(cons id_122 l_87))" " null)" " #t))" "(let-values() #f)))))" @@ -67630,19 +67536,19 @@ static const char *startup_source = "(begin" " 'core375" "(let-values(((s_693) s373_0))" -"(let-values(((ctx_94) ctx374_0))" +"(let-values(((ctx_95) ctx374_0))" "(let-values(((implicit-omitted?_0) implicit-omitted?372_0))" "(let-values()" "(let-values((()" "(begin" -"(let-values(((obs_117)(expand-context-observer ctx_94)))" +"(let-values(((obs_117)(expand-context-observer ctx_95)))" "(if obs_117" "(let-values()" "(let-values()(call-expand-observe obs_117 'prim-#%top)))" "(void)))" "(values))))" "(let-values(((disarmed-s_17)(syntax-disarm$1 s_693)))" -"(let-values(((id_122)" +"(let-values(((id_123)" "(if implicit-omitted?_0" "(let-values() s_693)" "(let-values()" @@ -67664,15 +67570,15 @@ static const char *startup_source = "(let-values(((s_697)" "(cdr" " s_695)))" -"(if(let-values(((or-part_384)" +"(if(let-values(((or-part_385)" "(if(syntax?$1" " s_697)" "(symbol?" "(syntax-e$1" " s_697))" " #f)))" -"(if or-part_384" -" or-part_384" +"(if or-part_385" +" or-part_385" "(symbol?" " s_697)))" " s_697" @@ -67689,8 +67595,8 @@ static const char *startup_source = "(values #t #%top377_1 id378_1))))))" " id378_0)))))" "(let-values(((b_93)" -"(let-values(((id381_0) id_122)" -"((temp382_0)(expand-context-phase ctx_94))" +"(let-values(((id381_0) id_123)" +"((temp382_0)(expand-context-phase ctx_95))" "((temp383_0) 'ambiguous))" "(resolve+shift28.1" " temp383_0" @@ -67701,49 +67607,49 @@ static const char *startup_source = " id381_0" " temp382_0))))" "(if(eq? b_93 'ambiguous)" -"(let-values()(raise-ambiguous-error id_122 ctx_94))" +"(let-values()(raise-ambiguous-error id_123 ctx_95))" "(if(if b_93" "(if(module-binding? b_93)" -"(eq?(module-binding-module b_93)(root-expand-context-self-mpi ctx_94))" +"(eq?(module-binding-module b_93)(root-expand-context-self-mpi ctx_95))" " #f)" " #f)" "(let-values()" -"(if(expand-context-to-parsed? ctx_94)" -"(parsed-id2.1 id_122 b_93 #f)" +"(if(expand-context-to-parsed? ctx_95)" +"(parsed-id2.1 id_123 b_93 #f)" "(if(top-level-module-path-index?(module-binding-module b_93))" "(let-values() s_693)" -"(let-values() id_122))))" -"(if(register-eventual-variable!? id_122 ctx_94)" +"(let-values() id_123))))" +"(if(register-eventual-variable!? id_123 ctx_95)" "(let-values()" -"(if(expand-context-to-parsed? ctx_94)" -"(parsed-id2.1 id_122 b_93 #f)" -" id_122))" +"(if(expand-context-to-parsed? ctx_95)" +"(parsed-id2.1 id_123 b_93 #f)" +" id_123))" "(let-values()" -"(if(not(expand-context-allow-unbound? ctx_94))" +"(if(not(expand-context-allow-unbound? ctx_95))" "(let-values()" "(raise-unbound-syntax-error" " #f" " \"unbound identifier\"" -" id_122" +" id_123" " #f" " null" -"(syntax-debug-info-string id_122 ctx_94)))" +"(syntax-debug-info-string id_123 ctx_95)))" "(let-values()" "(let-values(((tl-id_1)" "(add-scope" -" id_122" -"(root-expand-context-top-level-bind-scope ctx_94))))" +" id_123" +"(root-expand-context-top-level-bind-scope ctx_95))))" "(let-values(((tl-b_1)" "(let-values(((tl-id384_0) tl-id_1)" "((temp385_0)" -"(expand-context-phase ctx_94)))" +"(expand-context-phase ctx_95)))" "(resolve40.1 #f #f null #f tl-id384_0 temp385_0))))" "(if tl-b_1" "(let-values()" -"(if(expand-context-to-parsed? ctx_94)" +"(if(expand-context-to-parsed? ctx_95)" "(parsed-top-id4.1 tl-id_1 tl-b_1 #f)" "(if implicit-omitted?_0" -"(let-values() id_122)" +"(let-values() id_123)" "(let-values()" "(let-values(((ok?_58 #%top386_0 id387_0)" "(let-values(((s_698) disarmed-s_17))" @@ -67765,15 +67671,15 @@ static const char *startup_source = "(let-values(((s_701)" "(cdr" " s_699)))" -"(if(let-values(((or-part_385)" +"(if(let-values(((or-part_386)" "(if(syntax?$1" " s_701)" "(symbol?" "(syntax-e$1" " s_701))" " #f)))" -"(if or-part_385" -" or-part_385" +"(if or-part_386" +" or-part_386" "(symbol?" " s_701)))" " s_701" @@ -67791,22 +67697,22 @@ static const char *startup_source = " orig-s_58)))))" "(values #t #%top386_1 id387_1))))))" "(let-values(((s390_0) s_693)" -"((temp391_0)(cons #%top386_0 id_122)))" +"((temp391_0)(cons #%top386_0 id_123)))" "(rebuild5.1 #t s390_0 temp391_0)))))))" "(let-values()" -"(if(expand-context-to-parsed? ctx_94)" -"(parsed-top-id4.1 id_122 b_93 #f)" +"(if(expand-context-to-parsed? ctx_95)" +"(parsed-top-id4.1 id_123 b_93 #f)" " s_693)))))))))))))))))))))))" "(case-lambda" -"((s_702 ctx_95)(core375_0 s_702 ctx_95 #f))" -"((s_703 ctx_96 implicit-omitted?372_1)(core375_0 s_703 ctx_96 implicit-omitted?372_1))))))" +"((s_702 ctx_96)(core375_0 s_702 ctx_96 #f))" +"((s_703 ctx_97 implicit-omitted?372_1)(core375_0 s_703 ctx_97 implicit-omitted?372_1))))))" "(void" "(add-core-form!*" " 'set!" -"(lambda(s_704 ctx_97)" +"(lambda(s_704 ctx_98)" "(let-values((()" "(begin" -"(let-values(((obs_118)(expand-context-observer ctx_97)))" +"(let-values(((obs_118)(expand-context-observer ctx_98)))" "(if obs_118(let-values()(let-values()(call-expand-observe obs_118 'prim-set!)))(void)))" "(values))))" "(let-values(((disarmed-s_18)(syntax-disarm$1 s_704)))" @@ -67826,14 +67732,14 @@ static const char *startup_source = "(if(pair? s_709)" "(let-values(((id398_0)" "(let-values(((s_710)(car s_709)))" -"(if(let-values(((or-part_386)" +"(if(let-values(((or-part_387)" "(if(syntax?$1 s_710)" "(symbol?" "(syntax-e$1" " s_710))" " #f)))" -"(if or-part_386" -" or-part_386" +"(if or-part_387" +" or-part_387" "(symbol? s_710)))" " s_710" "(raise-syntax-error$1" @@ -67881,12 +67787,12 @@ static const char *startup_source = "(values #t set!392_1 id393_1 rhs394_1))))))" "(let-values(((orig-id_1) id393_0))" "((letrec-values(((rename-loop_0)" -"(lambda(id_123 from-rename?_0)" +"(lambda(id_124 from-rename?_0)" "(begin" " 'rename-loop" "(let-values(((binding_29)" -"(let-values(((id401_0) id_123)" -"((temp402_0)(expand-context-phase ctx_97))" +"(let-values(((id401_0) id_124)" +"((temp402_0)(expand-context-phase ctx_98))" "((temp403_0) 'ambiguous)" "((temp404_0) #t))" "(resolve+shift28.1" @@ -67900,31 +67806,31 @@ static const char *startup_source = "(let-values((()" "(begin" "(if(eq? binding_29 'ambiguous)" -"(let-values()(raise-ambiguous-error id_123 ctx_97))" +"(let-values()(raise-ambiguous-error id_124 ctx_98))" "(void))" "(values))))" "(let-values(((t_62 primitive?_11 insp_24 protected?_12)" "(if binding_29" "(let-values(((binding405_0) binding_29)" -"((ctx406_0) ctx_97)" +"((ctx406_0) ctx_98)" "((s407_0) s_704))" "(lookup62.1 #f #f binding405_0 ctx406_0 s407_0))" "(values #f #f #f #f))))" "(begin" -"(let-values(((obs_119)(expand-context-observer ctx_97)))" +"(let-values(((obs_119)(expand-context-observer ctx_98)))" "(if obs_119" "(let-values()" -"(let-values()(call-expand-observe obs_119 'resolve id_123)))" +"(let-values()(call-expand-observe obs_119 'resolve id_124)))" "(void)))" -"(if(let-values(((or-part_387)(variable? t_62)))" -"(if or-part_387" -" or-part_387" -"(if(not binding_29)" -"(let-values(((or-part_388)" -"(register-eventual-variable!? id_123 ctx_97)))" +"(if(let-values(((or-part_388)(variable? t_62)))" "(if or-part_388" " or-part_388" -"(expand-context-allow-unbound? ctx_97)))" +"(if(not binding_29)" +"(let-values(((or-part_389)" +"(register-eventual-variable!? id_124 ctx_98)))" +"(if or-part_389" +" or-part_389" +"(expand-context-allow-unbound? ctx_98)))" " #f)))" "(let-values()" "(let-values((()" @@ -67933,20 +67839,20 @@ static const char *startup_source = "(not" "(eq?" "(module-binding-module binding_29)" -"(root-expand-context-self-mpi ctx_97)))" +"(root-expand-context-self-mpi ctx_98)))" " #f)" "(let-values()" "(raise-syntax-error$1" " #f" " \"cannot mutate module-required identifier\"" " s_704" -" id_123))" +" id_124))" "(void))" "(values))))" "(let-values((()" "(begin" "(let-values(((obs_120)" -"(expand-context-observer ctx_97)))" +"(expand-context-observer ctx_98)))" "(if obs_120" "(let-values()" "(let-values()" @@ -67958,28 +67864,28 @@ static const char *startup_source = "(register-variable-referenced-if-local! binding_29)" "(values))))" "(let-values(((rebuild-s_12)" -"(let-values(((ctx408_0) ctx_97)((s409_0) s_704))" +"(let-values(((ctx408_0) ctx_98)((s409_0) s_704))" "(keep-as-needed119.1 #f #f #f ctx408_0 s409_0))))" "(let-values(((exp-rhs_5)" "(let-values(((temp410_0) rhs394_0)" "((temp411_0)" -"(as-expression-context ctx_97)))" +"(as-expression-context ctx_98)))" "(expand9.1 #f #f #f temp410_0 temp411_0))))" -"(if(expand-context-to-parsed? ctx_97)" +"(if(expand-context-to-parsed? ctx_98)" "(parsed-set!9.1" " rebuild-s_12" -"(parsed-id2.1 id_123 binding_29 #f)" +"(parsed-id2.1 id_124 binding_29 #f)" " exp-rhs_5)" "(let-values(((rebuild-s412_0) rebuild-s_12)" "((temp413_0)" "(list" " set!392_0" -"(let-values(((id414_0) id_123)" +"(let-values(((id414_0) id_124)" "((t415_0) t_62)" "((temp416_0)" "(free-id-set-empty-or-just-module*?" "(expand-context-stops" -" ctx_97))))" +" ctx_98))))" "(substitute-variable6.1" " temp416_0" " id414_0" @@ -67992,12 +67898,12 @@ static const char *startup_source = " #f" " \"unbound identifier\"" " s_704" -" id_123" +" id_124" " null" -"(syntax-debug-info-string id_123 ctx_97)))" +"(syntax-debug-info-string id_124 ctx_98)))" "(if(1/set!-transformer? t_62)" "(let-values()" -"(if(not-in-this-expand-context? t_62 ctx_97)" +"(if(not-in-this-expand-context? t_62 ctx_98)" "(let-values()" "(let-values(((temp417_0)" "(avoid-current-expand-context" @@ -68006,12 +67912,12 @@ static const char *startup_source = " disarmed-s_18" " set!392_0" " rhs394_0" -" id_123" +" id_124" " from-rename?_0" -" ctx_97)" +" ctx_98)" " t_62" -" ctx_97))" -"((ctx418_0) ctx_97))" +" ctx_98))" +"((ctx418_0) ctx_98))" "(expand9.1 #f #f #f temp417_0 ctx418_0)))" "(let-values()" "(let-values(((exp-s_13 re-ctx_1)" @@ -68019,7 +67925,7 @@ static const char *startup_source = "((insp420_0) insp_24)" "((s421_0) s_704)" "((orig-id422_0) orig-id_1)" -"((ctx423_0) ctx_97)" +"((ctx423_0) ctx_98)" "((binding424_0) binding_29)" "((orig-id425_0) orig-id_1))" "(apply-transformer52.1" @@ -68030,7 +67936,7 @@ static const char *startup_source = " orig-id422_0" " ctx423_0" " binding424_0))))" -"(if(expand-context-just-once? ctx_97)" +"(if(expand-context-just-once? ctx_98)" "(let-values() exp-s_13)" "(let-values()" "(let-values(((exp-s426_0) exp-s_13)" @@ -68038,7 +67944,7 @@ static const char *startup_source = "(expand9.1 #f #f #f exp-s426_0 re-ctx427_0))))))))" "(if(1/rename-transformer? t_62)" "(let-values()" -"(if(not-in-this-expand-context? t_62 ctx_97)" +"(if(not-in-this-expand-context? t_62 ctx_98)" "(let-values()" "(let-values(((temp428_0)" "(avoid-current-expand-context" @@ -68047,27 +67953,27 @@ static const char *startup_source = " disarmed-s_18" " set!392_0" " rhs394_0" -" id_123" +" id_124" " from-rename?_0" -" ctx_97" +" ctx_98" " t_62)" " t_62" -" ctx_97))" -"((ctx429_0) ctx_97))" +" ctx_98))" +"((ctx429_0) ctx_98))" "(expand9.1 #f #f #f temp428_0 ctx429_0)))" "(let-values()" "(rename-loop_0" "(syntax-track-origin$1" -"(rename-transformer-target-in-context t_62 ctx_97)" -" id_123" -" id_123)" +"(rename-transformer-target-in-context t_62 ctx_98)" +" id_124" +" id_124)" " #t))))" "(let-values()" "(raise-syntax-error$1" " #f" " \"cannot mutate syntax identifier\"" " s_704" -" id_123))))))))))))))" +" id_124))))))))))))))" " rename-loop_0)" " orig-id_1" " #f))))))))" @@ -68080,19 +67986,19 @@ static const char *startup_source = "(let-values(((s_716) s24_3))" "(let-values(((disarmed-s_19) disarmed-s25_0))" "(let-values(((set!-id_0) set!-id26_0))" -"(let-values(((id_124) id27_0))" +"(let-values(((id_125) id27_0))" "(let-values(((rhs-s_0) rhs-s28_0))" "(let-values(((from-rename?_1) from-rename?29_0))" -"(let-values(((ctx_98) ctx30_0))" +"(let-values(((ctx_99) ctx30_0))" "(let-values(((t_63) t23_0))" "(let-values()" -"(if(let-values(((or-part_389) t_63))" -"(if or-part_389 or-part_389 from-rename?_1))" +"(if(let-values(((or-part_390) t_63))" +"(if or-part_390 or-part_390 from-rename?_1))" "(let-values()" "(let-values(((new-id_1)" "(if t_63" -"(rename-transformer-target-in-context t_63 ctx_98)" -" id_124)))" +"(rename-transformer-target-in-context t_63 ctx_99)" +" id_125)))" "(syntax-rearm$1" "(datum->syntax$1" " disarmed-s_19" @@ -68102,17 +68008,17 @@ static const char *startup_source = " s_716)))" "(let-values() s_716)))))))))))))))" "(case-lambda" -"((s_717 disarmed-s_20 set!-id_1 id_125 rhs-s_1 from-rename?_2 ctx_99)" -"(begin(substitute-set!-rename31_0 s_717 disarmed-s_20 set!-id_1 id_125 rhs-s_1 from-rename?_2 ctx_99 #f)))" -"((s_718 disarmed-s_21 set!-id_2 id_126 rhs-s_2 from-rename?_3 ctx_100 t23_1)" -"(substitute-set!-rename31_0 s_718 disarmed-s_21 set!-id_2 id_126 rhs-s_2 from-rename?_3 ctx_100 t23_1)))))" +"((s_717 disarmed-s_20 set!-id_1 id_126 rhs-s_1 from-rename?_2 ctx_100)" +"(begin(substitute-set!-rename31_0 s_717 disarmed-s_20 set!-id_1 id_126 rhs-s_1 from-rename?_2 ctx_100 #f)))" +"((s_718 disarmed-s_21 set!-id_2 id_127 rhs-s_2 from-rename?_3 ctx_101 t23_1)" +"(substitute-set!-rename31_0 s_718 disarmed-s_21 set!-id_2 id_127 rhs-s_2 from-rename?_3 ctx_101 t23_1)))))" "(void" "(add-core-form!*" " '#%variable-reference" -"(lambda(s_719 ctx_101)" +"(lambda(s_719 ctx_102)" "(let-values((()" "(begin" -"(let-values(((obs_121)(expand-context-observer ctx_101)))" +"(let-values(((obs_121)(expand-context-observer ctx_102)))" "(if obs_121" "(let-values()(let-values()(call-expand-observe obs_121 'prim-#%variable-reference)))" "(void)))" @@ -68127,9 +68033,9 @@ static const char *startup_source = "(let-values(((s_724)(if(syntax?$1 s_723)(syntax-e$1 s_723) s_723)))" "(if(pair? s_724)" "(if(let-values(((s_725)(car s_724)))" -"(let-values(((or-part_390)" +"(let-values(((or-part_391)" "(if(syntax?$1 s_725)(symbol?(syntax-e$1 s_725)) #f)))" -"(if or-part_390 or-part_390(symbol? s_725))))" +"(if or-part_391 or-part_391(symbol? s_725))))" "(let-values(((s_726)(cdr s_724)))" "(let-values(((s_727)(if(syntax?$1 s_726)(syntax-e$1 s_726) s_726)))" "(null? s_727)))" @@ -68176,11 +68082,11 @@ static const char *startup_source = "(if(pair? s_741)" "(if(let-values(((s_742)(car s_741))) #t)" "(let-values(((s_743)(cdr s_741)))" -"(let-values(((or-part_391)" +"(let-values(((or-part_392)" "(if(syntax?$1 s_743)" "(symbol?(syntax-e$1 s_743))" " #f)))" -"(if or-part_391 or-part_391(symbol? s_743))))" +"(if or-part_392 or-part_392(symbol? s_743))))" " #f)" " #f)))" "(let-values(((s_744)(cdr s_739)))" @@ -68232,7 +68138,7 @@ static const char *startup_source = "(values #f #f #f #f)))))" "(let-values(((ok?_62 #%variable-reference445_0)" "(let-values(((s_756) disarmed-s_22))" -"(if(if(not(let-values(((or-part_392) ok?_60))(if or-part_392 or-part_392 ok?_61)))" +"(if(if(not(let-values(((or-part_393) ok?_60))(if or-part_393 or-part_393 ok?_61)))" " #t" " #f)" "(let-values(((orig-s_60) s_756))" @@ -68257,24 +68163,24 @@ static const char *startup_source = " (raise-syntax-error$1 #f \"bad syntax\" orig-s_60)))))" "(values #t #%variable-reference445_1)))" "(values #f #f)))))" -"(if(let-values(((or-part_393) ok?_60))(if or-part_393 or-part_393 ok?_61))" +"(if(let-values(((or-part_394) ok?_60))(if or-part_394 or-part_394 ok?_61))" "(let-values()" "(let-values(((var-id_0)(if ok?_60 id431_0 id437_0)))" "(let-values(((binding_30)" "(let-values(((var-id447_0) var-id_0)" -"((temp448_0)(expand-context-phase ctx_101))" +"((temp448_0)(expand-context-phase ctx_102))" "((temp449_0) 'ambiguous))" "(resolve+shift28.1 temp449_0 #f null unsafe-undefined #f var-id447_0 temp448_0))))" "(let-values((()" "(begin" "(if(eq? binding_30 'ambiguous)" -"(let-values()(raise-ambiguous-error var-id_0 ctx_101))" +"(let-values()(raise-ambiguous-error var-id_0 ctx_102))" "(void))" "(values))))" "(let-values((()" "(begin" -"(if(let-values(((or-part_394) binding_30))" -"(if or-part_394 or-part_394(expand-context-allow-unbound? ctx_101)))" +"(if(let-values(((or-part_395) binding_30))" +"(if or-part_395 or-part_395(expand-context-allow-unbound? ctx_102)))" "(void)" "(let-values()" "(raise-unbound-syntax-error" @@ -68283,15 +68189,15 @@ static const char *startup_source = " s_719" " var-id_0" " null" -"(syntax-debug-info-string var-id_0 ctx_101))))" +"(syntax-debug-info-string var-id_0 ctx_102))))" "(values))))" "(let-values(((t_64 primitive?_12 insp-of-t_7 protected?_13)" "(if binding_30" "(let-values(((binding450_0) binding_30)" -"((ctx451_0) ctx_101)" +"((ctx451_0) ctx_102)" "((var-id452_0) var-id_0)" "((s453_0) s_719)" -"((temp454_0)(expand-context-in-local-expand? ctx_101)))" +"((temp454_0)(expand-context-in-local-expand? ctx_102)))" "(lookup62.1 s453_0 temp454_0 binding450_0 ctx451_0 var-id452_0))" "(values #f #f #f #f))))" "(begin" @@ -68299,7 +68205,7 @@ static const char *startup_source = "(let-values()" " (raise-syntax-error$1 #f \"identifier does not refer to a variable\" var-id_0 s_719))" "(void))" -"(if(expand-context-to-parsed? ctx_101)" +"(if(expand-context-to-parsed? ctx_102)" "(parsed-#%variable-reference11.1" "(keep-properties-only~ s_719)" "(if ok?_61" @@ -68307,16 +68213,16 @@ static const char *startup_source = "(let-values()(parsed-id2.1 var-id_0 binding_30 #f))))" " s_719))))))))" "(let-values()" -"(if(expand-context-to-parsed? ctx_101)" +"(if(expand-context-to-parsed? ctx_102)" "(parsed-#%variable-reference11.1(keep-properties-only~ s_719) #f)" " s_719)))))))))))" "(void" "(add-core-form!*" " '#%expression" -"(lambda(s_761 ctx_102)" +"(lambda(s_761 ctx_103)" "(let-values((()" "(begin" -"(let-values(((obs_122)(expand-context-observer ctx_102)))" +"(let-values(((obs_122)(expand-context-observer ctx_103)))" "(if obs_122" "(let-values()(let-values()(call-expand-observe obs_122 'prim-#%expression)))" "(void)))" @@ -68358,38 +68264,38 @@ static const char *startup_source = " (raise-syntax-error$1 #f \"bad syntax\" orig-s_61)))))" "(values #t #%expression455_1 e456_1))))))" "(let-values(((rebuild-s_13)" -"(let-values(((ctx460_0) ctx_102)((s461_0) s_761)((temp462_0) #t))" +"(let-values(((ctx460_0) ctx_103)((s461_0) s_761)((temp462_0) #t))" "(keep-as-needed119.1 temp462_0 #f #f ctx460_0 s461_0))))" "(let-values(((exp-e_0)" "(let-values(((temp463_0) e456_0)" "((temp464_0)" -"(let-values(((temp465_0)(as-expression-context ctx_102))" -"((ctx466_0) ctx_102))" +"(let-values(((temp465_0)(as-expression-context ctx_103))" +"((ctx466_0) ctx_103))" "(as-tail-context22.1 ctx466_0 temp465_0))))" "(expand9.1 #f #f #f temp463_0 temp464_0))))" -"(if(expand-context-to-parsed? ctx_102)" +"(if(expand-context-to-parsed? ctx_103)" " exp-e_0" -"(if(let-values(((or-part_395)" -"(if(expand-context-in-local-expand? ctx_102)" -"(expand-context-keep-#%expression? ctx_102)" +"(if(let-values(((or-part_396)" +"(if(expand-context-in-local-expand? ctx_103)" +"(expand-context-keep-#%expression? ctx_103)" " #f)))" -"(if or-part_395 or-part_395(eq? 'top-level(expand-context-context ctx_102))))" +"(if or-part_396 or-part_396(eq? 'top-level(expand-context-context ctx_103))))" "(let-values()" "(let-values(((rebuild-s467_0) rebuild-s_13)((temp468_0)(list #%expression455_0 exp-e_0)))" "(rebuild5.1 #t rebuild-s467_0 temp468_0)))" "(let-values()" "(let-values(((result-s_13)(syntax-track-origin$1 exp-e_0 rebuild-s_13)))" "(begin" -"(let-values(((obs_123)(expand-context-observer ctx_102)))" +"(let-values(((obs_123)(expand-context-observer ctx_103)))" "(if obs_123" "(let-values()(let-values()(call-expand-observe obs_123 'tag result-s_13)))" "(void)))" " result-s_13)))))))))))))" -" (void (add-core-form!* 'unquote (lambda (s_770 ctx_103) (raise-syntax-error$1 #f \"not in quasiquote\" s_770))))" -" (void (add-core-form!* 'unquote-splicing (lambda (s_771 ctx_104) (raise-syntax-error$1 #f \"not in quasiquote\" s_771))))" +" (void (add-core-form!* 'unquote (lambda (s_770 ctx_104) (raise-syntax-error$1 #f \"not in quasiquote\" s_770))))" +" (void (add-core-form!* 'unquote-splicing (lambda (s_771 ctx_105) (raise-syntax-error$1 #f \"not in quasiquote\" s_771))))" "(define-values" "(binding-for-transformer?)" -"(lambda(b_42 id_127 at-phase_12 ns_112)" +"(lambda(b_42 id_128 at-phase_12 ns_112)" "(begin" "(if(not at-phase_12)" "(let-values()" @@ -68408,16 +68314,16 @@ static const char *startup_source = "((null3_0) null)" "((ns4_2) ns_112)" "((at-phase5_0) at-phase_12)" -"((id6_0) id_127))" +"((id6_0) id_128))" "(binding-lookup50.1 #f #f b1_8 empty-env2_0 null3_0 ns4_2 at-phase5_0 id6_0))))" "(not(variable? val_14))))))))" "(define-values(layers) '(raw phaseless id))" "(define-values(provide-form-name) 'provide)" "(define-values" "(parse-and-expand-provides!)" -"(lambda(specs_0 orig-s_62 rp_1 self_30 phase_46 ctx_105)" +"(lambda(specs_0 orig-s_62 rp_1 self_30 phase_45 ctx_106)" "(begin" -"(let-values(((ns_125)(expand-context-namespace ctx_105)))" +"(let-values(((ns_125)(expand-context-namespace ctx_106)))" "((letrec-values(((loop_117)" "(lambda(specs_1 at-phase_13 protected?_15 layer_6)" "(begin" @@ -68430,7 +68336,7 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()(check-list lst_77)))" -"((letrec-values(((for-loop_96)" +"((letrec-values(((for-loop_98)" "(lambda(track-stxes_1" " exp-specs_1" " lst_407)" @@ -69052,15 +68958,15 @@ static const char *startup_source = "(let-values(((s_203)" "(car" " s_61)))" -"(if(let-values(((or-part_396)" +"(if(let-values(((or-part_397)" "(if(syntax?$1" " s_203)" "(symbol?" "(syntax-e$1" " s_203))" " #f)))" -"(if or-part_396" -" or-part_396" +"(if or-part_397" +" or-part_397" "(symbol?" " s_203)))" " s_203" @@ -69179,15 +69085,15 @@ static const char *startup_source = "(let-values(((s_779)" "(car" " s_319)))" -"(if(let-values(((or-part_397)" +"(if(let-values(((or-part_398)" "(if(syntax?$1" " s_779)" "(symbol?" "(syntax-e$1" " s_779))" " #f)))" -"(if or-part_397" -" or-part_397" +"(if or-part_398" +" or-part_398" "(symbol?" " s_779)))" " s_779" @@ -69239,7 +69145,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_53)))" -"((letrec-values(((for-loop_319)" +"((letrec-values(((for-loop_321)" "(lambda(id:field_1" " lst_272)" "(begin" @@ -69259,15 +69165,15 @@ static const char *startup_source = "(let-values()" "(let-values(((id:field49_0)" "(let-values()" -"(if(let-values(((or-part_398)" +"(if(let-values(((or-part_399)" "(if(syntax?$1" " s_782)" "(symbol?" "(syntax-e$1" " s_782))" " #f)))" -"(if or-part_398" -" or-part_398" +"(if or-part_399" +" or-part_399" "(symbol?" " s_782)))" " s_782" @@ -69283,12 +69189,12 @@ static const char *startup_source = " id:field_4)))))" "(if(not" " #f)" -"(for-loop_319" +"(for-loop_321" " id:field_2" " rest_239)" " id:field_2)))" " id:field_1)))))" -" for-loop_319)" +" for-loop_321)" " null" " lst_53)))))" "(reverse$1" @@ -69376,20 +69282,20 @@ static const char *startup_source = "(if(pair?" " s_323)" "(let-values(((all-from52_0)" -"(let-values(((s_427)" +"(let-values(((s_426)" "(car" " s_323)))" -" s_427))" +" s_426))" "((mod-path53_0)" -"(let-values(((s_428)" +"(let-values(((s_427)" "(cdr" " s_323)))" "(let-values(((s_214)" "(if(syntax?$1" -" s_428)" +" s_427)" "(syntax-e$1" -" s_428)" -" s_428)))" +" s_427)" +" s_427)))" "(if(pair?" " s_214)" "(let-values(((mod-path54_0)" @@ -69441,7 +69347,7 @@ static const char *startup_source = " ns_125" " rp_1" " protected?_15" -" ctx_105)" +" ctx_106)" "(values" " null" "(list" @@ -69515,7 +69421,7 @@ static const char *startup_source = " \"bad syntax\"" " orig-s_70))" "(let-values()" -"(let-values(((id_128)" +"(let-values(((id_129)" "(let-values(((lst_408)" " flat-s_51))" "(begin" @@ -69525,8 +69431,8 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_408)))" -"((letrec-values(((for-loop_320)" -"(lambda(id_129" +"((letrec-values(((for-loop_322)" +"(lambda(id_130" " lst_409)" "(begin" " 'for-loop" @@ -69538,22 +69444,22 @@ static const char *startup_source = "((rest_240)" "(unsafe-cdr" " lst_409)))" -"(let-values(((id_130)" "(let-values(((id_131)" -" id_129))" "(let-values(((id_132)" +" id_130))" +"(let-values(((id_133)" "(let-values()" "(let-values(((id63_0)" "(let-values()" -"(if(let-values(((or-part_399)" +"(if(let-values(((or-part_400)" "(if(syntax?$1" " s_786)" "(symbol?" "(syntax-e$1" " s_786))" " #f)))" -"(if or-part_399" -" or-part_399" +"(if or-part_400" +" or-part_400" "(symbol?" " s_786)))" " s_786" @@ -69564,21 +69470,21 @@ static const char *startup_source = " s_786)))))" "(cons" " id63_0" -" id_131)))))" -"(values" " id_132)))))" +"(values" +" id_133)))))" "(if(not" " #f)" -"(for-loop_320" -" id_130" +"(for-loop_322" +" id_131" " rest_240)" -" id_130)))" -" id_129)))))" -" for-loop_320)" +" id_131)))" +" id_130)))))" +" for-loop_322)" " null" " lst_408)))))" "(reverse$1" -" id_128)))))))))" +" id_129)))))))))" "(values" " mod-path61_0" " id62_0))" @@ -69609,7 +69515,7 @@ static const char *startup_source = " ns_125" " rp_1" " protected?_15" -" ctx_105)" +" ctx_106)" "(values" " null" "(list" @@ -69736,7 +69642,7 @@ static const char *startup_source = " \"bad syntax\"" " orig-s_72))" "(let-values()" -"(let-values(((id_133)" +"(let-values(((id_134)" "(let-values(((lst_39)" " flat-s_52))" "(begin" @@ -69746,8 +69652,8 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_39)))" -"((letrec-values(((for-loop_134)" -"(lambda(id_134" +"((letrec-values(((for-loop_136)" +"(lambda(id_135" " lst_410)" "(begin" " 'for-loop" @@ -69759,10 +69665,10 @@ static const char *startup_source = "((rest_241)" "(unsafe-cdr" " lst_410)))" -"(let-values(((id_135)" "(let-values(((id_136)" -" id_134))" "(let-values(((id_137)" +" id_135))" +"(let-values(((id_138)" "(let-values()" "(let-values(((id70_0)" "(let-values()" @@ -69785,21 +69691,21 @@ static const char *startup_source = " s_464)))))" "(cons" " id70_0" -" id_136)))))" -"(values" " id_137)))))" +"(values" +" id_138)))))" "(if(not" " #f)" -"(for-loop_134" -" id_135" +"(for-loop_136" +" id_136" " rest_241)" -" id_135)))" -" id_134)))))" -" for-loop_134)" +" id_136)))" +" id_135)))))" +" for-loop_136)" " null" " lst_39)))))" "(reverse$1" -" id_133)))))))))" +" id_134)))))))))" "(values" " all-defined-except68_0" " id69_0))" @@ -69969,10 +69875,10 @@ static const char *startup_source = "(if(pair?" " s_793)" "(let-values(((prefix-all-defined-except79_0)" -"(let-values(((s_534)" +"(let-values(((s_533)" "(car" " s_793)))" -" s_534))" +" s_533))" "((id:prefix80_0" " id81_0)" "(let-values(((s_794)" @@ -69987,27 +69893,27 @@ static const char *startup_source = "(if(pair?" " s_243)" "(let-values(((id:prefix82_0)" -"(let-values(((s_535)" +"(let-values(((s_534)" "(car" " s_243)))" "(if(let-values(((or-part_345)" "(if(syntax?$1" -" s_535)" +" s_534)" "(symbol?" "(syntax-e$1" -" s_535))" +" s_534))" " #f)))" "(if or-part_345" " or-part_345" "(symbol?" -" s_535)))" -" s_535" +" s_534)))" +" s_534" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_74" -" s_535))))" -"((id83_0)" +" s_534))))" +"((id83_2)" "(let-values(((s_348)" "(cdr" " s_243)))" @@ -70038,7 +69944,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_411)))" -"((letrec-values(((for-loop_321)" +"((letrec-values(((for-loop_323)" "(lambda(id_37" " lst_412)" "(begin" @@ -70051,22 +69957,22 @@ static const char *startup_source = "((rest_242)" "(unsafe-cdr" " lst_412)))" -"(let-values(((id_138)" "(let-values(((id_139)" -" id_37))" "(let-values(((id_140)" +" id_37))" +"(let-values(((id_141)" "(let-values()" -"(let-values(((id84_3)" +"(let-values(((id84_1)" "(let-values()" -"(if(let-values(((or-part_400)" +"(if(let-values(((or-part_401)" "(if(syntax?$1" " s_796)" "(symbol?" "(syntax-e$1" " s_796))" " #f)))" -"(if or-part_400" -" or-part_400" +"(if or-part_401" +" or-part_401" "(symbol?" " s_796)))" " s_796" @@ -70076,25 +69982,25 @@ static const char *startup_source = " orig-s_74" " s_796)))))" "(cons" -" id84_3" -" id_139)))))" -"(values" +" id84_1" " id_140)))))" +"(values" +" id_141)))))" "(if(not" " #f)" -"(for-loop_321" -" id_138" +"(for-loop_323" +" id_139" " rest_242)" -" id_138)))" +" id_139)))" " id_37)))))" -" for-loop_321)" +" for-loop_323)" " null" " lst_411)))))" "(reverse$1" " id_88)))))))))" "(values" " id:prefix82_0" -" id83_0))" +" id83_2))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" @@ -70131,14 +70037,14 @@ static const char *startup_source = "(let-values()" "(let-values(((ok?_75" " expand85_0" -" id86_0" +" id86_1" " datum87_0)" "(let-values(((s_797)" " disarmed-spec_0))" "(let-values(((orig-s_75)" " s_797))" "(let-values(((expand85_1" -" id86_1" +" id86_2" " datum87_1)" "(let-values(((s_798)" "(if(syntax?$1" @@ -70153,7 +70059,7 @@ static const char *startup_source = "(car" " s_798)))" " s_367))" -"((id89_2" +"((id89_1" " datum90_0)" "(let-values(((s_368)" "(cdr" @@ -70166,7 +70072,7 @@ static const char *startup_source = " s_368)))" "(if(pair?" " s_799)" -"(let-values(((id91_0" +"(let-values(((id91_1" " datum92_0)" "(let-values(((s_370)" "(car" @@ -70183,15 +70089,15 @@ static const char *startup_source = "(let-values(((s_373)" "(car" " s_371)))" -"(if(let-values(((or-part_401)" +"(if(let-values(((or-part_402)" "(if(syntax?$1" " s_373)" "(symbol?" "(syntax-e$1" " s_373))" " #f)))" -"(if or-part_401" -" or-part_401" +"(if or-part_402" +" or-part_402" "(symbol?" " s_373)))" " s_373" @@ -70230,7 +70136,7 @@ static const char *startup_source = " \"bad syntax\"" " orig-s_75))))))" "(values" -" id91_0" +" id91_1" " datum92_0))" "(raise-syntax-error$1" " #f" @@ -70238,7 +70144,7 @@ static const char *startup_source = " orig-s_75))))))" "(values" " expand88_0" -" id89_2" +" id89_1" " datum90_0))" "(raise-syntax-error$1" " #f" @@ -70247,7 +70153,7 @@ static const char *startup_source = "(values" " #t" " expand85_1" -" id86_1" +" id86_2" " datum87_1))))))" "(let-values(((ok?_76" " expand95_0" @@ -70327,19 +70233,19 @@ static const char *startup_source = " form96_0)" "((temp105_5)" "(let-values(((v_267)" -" ctx_105))" -"(let-values(((the-struct_98)" +" ctx_106))" +"(let-values(((the-struct_99)" " v_267))" "(if(expand-context/outer?" -" the-struct_98)" +" the-struct_99)" "(let-values(((def-ctx-scopes106_0)" " #f)" "((inner107_0)" -"(let-values(((the-struct_99)" +"(let-values(((the-struct_100)" "(root-expand-context/outer-inner" " v_267)))" "(if(expand-context/inner?" -" the-struct_99)" +" the-struct_100)" "(let-values(((stops108_0)" "(free-id-set" " at-phase_13" @@ -70349,97 +70255,93 @@ static const char *startup_source = " at-phase_13)))))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi" -" the-struct_99)" +" the-struct_100)" "(root-expand-context/inner-module-scopes" -" the-struct_99)" +" the-struct_100)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_99)" +" the-struct_100)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_99)" +" the-struct_100)" "(root-expand-context/inner-defined-syms" -" the-struct_99)" +" the-struct_100)" "(root-expand-context/inner-counter" -" the-struct_99)" +" the-struct_100)" "(root-expand-context/inner-lift-key" -" the-struct_99)" +" the-struct_100)" "(expand-context/inner-to-parsed?" -" the-struct_99)" +" the-struct_100)" "(expand-context/inner-phase" -" the-struct_99)" +" the-struct_100)" "(expand-context/inner-namespace" -" the-struct_99)" +" the-struct_100)" "(expand-context/inner-just-once?" -" the-struct_99)" +" the-struct_100)" "(expand-context/inner-module-begin-k" -" the-struct_99)" +" the-struct_100)" "(expand-context/inner-allow-unbound?" -" the-struct_99)" +" the-struct_100)" "(expand-context/inner-in-local-expand?" -" the-struct_99)" +" the-struct_100)" "(expand-context/inner-keep-#%expression?" -" the-struct_99)" +" the-struct_100)" " stops108_0" "(expand-context/inner-declared-submodule-names" -" the-struct_99)" +" the-struct_100)" "(expand-context/inner-lifts" -" the-struct_99)" +" the-struct_100)" "(expand-context/inner-lift-envs" -" the-struct_99)" +" the-struct_100)" "(expand-context/inner-module-lifts" -" the-struct_99)" +" the-struct_100)" "(expand-context/inner-require-lifts" -" the-struct_99)" +" the-struct_100)" "(expand-context/inner-to-module-lifts" -" the-struct_99)" +" the-struct_100)" "(expand-context/inner-requires+provides" -" the-struct_99)" +" the-struct_100)" "(expand-context/inner-observer" -" the-struct_99)" +" the-struct_100)" "(expand-context/inner-for-serializable?" -" the-struct_99)" +" the-struct_100)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_99)))" +" the-struct_100)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_99)))))" +" the-struct_100)))))" "(expand-context/outer1.1" " inner107_0" -"(root-expand-context/outer-post-expansion-scope" -" the-struct_98)" -"(root-expand-context/outer-post-expansion-shifts" -" the-struct_98)" +"(root-expand-context/outer-post-expansion" +" the-struct_99)" "(root-expand-context/outer-use-site-scopes" -" the-struct_98)" +" the-struct_99)" "(root-expand-context/outer-frame-id" -" the-struct_98)" +" the-struct_99)" "(expand-context/outer-context" -" the-struct_98)" +" the-struct_99)" "(expand-context/outer-env" -" the-struct_98)" -"(expand-context/outer-post-expansion-scope-action" -" the-struct_98)" +" the-struct_99)" "(expand-context/outer-scopes" -" the-struct_98)" +" the-struct_99)" " def-ctx-scopes106_0" "(expand-context/outer-binding-layer" -" the-struct_98)" +" the-struct_99)" "(expand-context/outer-reference-records" -" the-struct_98)" +" the-struct_99)" "(expand-context/outer-only-immediate?" -" the-struct_98)" +" the-struct_99)" "(expand-context/outer-need-eventually-defined" -" the-struct_98)" +" the-struct_99)" "(expand-context/outer-current-introduction-scopes" -" the-struct_98)" +" the-struct_99)" "(expand-context/outer-current-use-scopes" -" the-struct_98)" +" the-struct_99)" "(expand-context/outer-name" -" the-struct_98)))" +" the-struct_99)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_98))))))" +" the-struct_99))))))" "(expand9.1" " #f" " #f" @@ -70549,7 +70451,7 @@ static const char *startup_source = " track-stxes_4" " exp-specs_4)))))" "(if(not #f)" -"(for-loop_96" +"(for-loop_98" " track-stxes_2" " exp-specs_2" " rest_238)" @@ -70559,7 +70461,7 @@ static const char *startup_source = "(values" " track-stxes_1" " exp-specs_1))))))" -" for-loop_96)" +" for-loop_98)" " null" " null" " lst_77)))))" @@ -70567,12 +70469,12 @@ static const char *startup_source = "(values(apply append track-stxess_0)(apply append exp-specss_0)))))))" " loop_117)" " specs_0" -" phase_46" +" phase_45" " #f" " 'raw)))))" "(define-values" "(parse-identifier!)" -"(lambda(spec_1 orig-s_78 sym_105 at-phase_14 ns_126 rp_2 protected?_16)" +"(lambda(spec_1 orig-s_78 sym_106 at-phase_14 ns_126 rp_2 protected?_16)" "(begin" "(let-values(((b_94)(resolve+shift/extra-inspector spec_1 at-phase_14 ns_126)))" "(let-values((()" @@ -70591,7 +70493,7 @@ static const char *startup_source = "(let-values(((spec118_0) spec_1)((at-phase119_0) at-phase_14)((temp120_3) #t))" "(resolve+shift28.1 #f #f null temp120_3 #f spec118_0 at-phase119_0))))" "(let-values(((rp109_0) rp_2)" -"((sym110_0) sym_105)" +"((sym110_0) sym_106)" "((at-phase111_0) at-phase_14)" "((b112_0) b_94)" "((immed-b113_0) immed-b_0)" @@ -70617,23 +70519,23 @@ static const char *startup_source = "(lambda(fmt_1)" "(begin" " 'mk" -"(let-values(((sym_106)(string->symbol(format fmt_1(syntax-e$1 id:struct_0)))))" -"(datum->syntax$1 id:struct_0 sym_106 id:struct_0))))))" +"(let-values(((sym_107)(string->symbol(format fmt_1(syntax-e$1 id:struct_0)))))" +"(datum->syntax$1 id:struct_0 sym_107 id:struct_0))))))" "(let-values(((mk2_0)" "(lambda(fmt_2 field-id_0)" "(begin" " 'mk2" -"(let-values(((sym_107)" +"(let-values(((sym_108)" "(string->symbol" "(format fmt_2(syntax-e$1 id:struct_0)(syntax-e$1 field-id_0)))))" -"(datum->syntax$1 id:struct_0 sym_107 id:struct_0))))))" +"(datum->syntax$1 id:struct_0 sym_108 id:struct_0))))))" "(begin" " (let-values (((lst_413) (list \"~a\" \"make-~a\" \"struct:~a\" \"~a?\")))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_413)))" -"((letrec-values(((for-loop_322)" +"((letrec-values(((for-loop_324)" "(lambda(lst_414)" "(begin" " 'for-loop" @@ -70645,20 +70547,20 @@ static const char *startup_source = "(let-values()" "(begin" "(let-values()" -"(let-values(((id_141)(mk_0 fmt_3)))" +"(let-values(((id_142)(mk_0 fmt_3)))" "(parse-identifier!" -" id_141" +" id_142" " orig-s_79" -"(syntax-e$1 id_141)" +"(syntax-e$1 id_142)" " at-phase_15" " ns_127" " rp_3" " protected?_17)))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_322 rest_243)(values))))" +"(if(not #f)(for-loop_324 rest_243)(values))))" "(values))))))" -" for-loop_322)" +" for-loop_324)" " lst_413)))" "(void)" "(let-values(((lst_415) fields_0))" @@ -70666,7 +70568,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_415)))" -"((letrec-values(((for-loop_323)" +"((letrec-values(((for-loop_325)" "(lambda(lst_416)" "(begin" " 'for-loop" @@ -70703,14 +70605,14 @@ static const char *startup_source = " protected?_17)))))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_323 rest_244)(values))))" +"(if(not #f)(for-loop_325 rest_244)(values))))" "(values))))))" -" for-loop_323)" +" for-loop_325)" " lst_415)))" "(void)))))))" "(define-values" "(parse-all-from)" -"(lambda(mod-path-stx_0 orig-s_80 self_31 except-ids_0 at-phase_16 ns_128 rp_4 protected?_18 ctx_106)" +"(lambda(mod-path-stx_0 orig-s_80 self_31 except-ids_0 at-phase_16 ns_128 rp_4 protected?_18 ctx_107)" "(begin" "(let-values(((mod-path_33)(syntax->datum$1 mod-path-stx_0)))" "(let-values((()" @@ -70720,7 +70622,7 @@ static const char *startup_source = "(let-values()" " (raise-syntax-error$1 provide-form-name \"not a module path\" orig-s_80 mod-path-stx_0)))" "(values))))" -"(let-values(((mpi_53)(module-path->mpi/context mod-path_33 ctx_106)))" +"(let-values(((mpi_53)(module-path->mpi/context mod-path_33 ctx_107)))" "(parse-all-from-module mpi_53 #f orig-s_80 except-ids_0 #f at-phase_16 ns_128 rp_4 protected?_18)))))))" "(define-values" "(parse-all-from-module)" @@ -70748,10 +70650,10 @@ static const char *startup_source = " matching-stx_0)))" "(values))))" "(let-values(((add-prefix_1)" -"(lambda(sym_108)" +"(lambda(sym_109)" "(begin" " 'add-prefix" -" (if prefix-sym_0 (string->symbol (format \"~a~a\" prefix-sym_0 sym_108)) sym_108)))))" +" (if prefix-sym_0 (string->symbol (format \"~a~a\" prefix-sym_0 sym_109)) sym_109)))))" "(let-values(((found_0)(make-hasheq)))" "(begin" "(let-values(((lst_417) requireds_2))" @@ -70759,7 +70661,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_417)))" -"((letrec-values(((for-loop_324)" +"((letrec-values(((for-loop_326)" "(lambda(lst_418)" "(begin" " 'for-loop" @@ -70772,29 +70674,29 @@ static const char *startup_source = "(let-values()" "(begin" "(let-values()" -"(let-values(((id_142)" +"(let-values(((id_143)" "(required-id i_184)))" -"(let-values(((phase_144)" +"(let-values(((phase_143)" "(required-phase" " i_184)))" -"(if(let-values(((or-part_402)" +"(if(let-values(((or-part_403)" "(if matching-stx_0" "(not" "(if(eqv?" -" phase_144" +" phase_143" " at-phase_17)" "(free-identifier=?$1" -" id_142" +" id_143" "(datum->syntax$1" " matching-stx_0" "(syntax-e$1" -" id_142))" -" phase_144" -" phase_144)" +" id_143))" +" phase_143" +" phase_143)" " #f))" " #f)))" -"(if or-part_402" -" or-part_402" +"(if or-part_403" +" or-part_403" "(let-values(((lst_419)" " except-ids_1))" "(begin" @@ -70804,8 +70706,8 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_419)))" -"((letrec-values(((for-loop_325)" -"(lambda(result_126" +"((letrec-values(((for-loop_327)" +"(lambda(result_127" " lst_420)" "(begin" " 'for-loop" @@ -70817,50 +70719,50 @@ static const char *startup_source = "((rest_246)" "(unsafe-cdr" " lst_420)))" -"(let-values(((result_127)" -"(let-values()" "(let-values(((result_128)" "(let-values()" +"(let-values(((result_129)" +"(let-values()" "(let-values()" "(if(free-identifier=?$1" -" id_142" +" id_143" " except-id_0" -" phase_144" -" phase_144)" +" phase_143" +" phase_143)" "(hash-set!" " found_0" " except-id_0" " #t)" " #f)))))" "(values" -" result_128)))))" +" result_129)))))" "(if(if(not" -"((lambda x_99" -" result_127)" +"((lambda x_100" +" result_128)" " except-id_0))" "(not" " #f)" " #f)" -"(for-loop_325" -" result_127" +"(for-loop_327" +" result_128" " rest_246)" -" result_127)))" -" result_126)))))" -" for-loop_325)" +" result_128)))" +" result_127)))))" +" for-loop_327)" " #f" " lst_419)))))" "(void)" "(let-values()" "(let-values(((b_95)" "(resolve+shift/extra-inspector" -" id_142" -" phase_144" +" id_143" +" phase_143" " ns_129)))" "(let-values(((immed-b_1)" "(let-values(((id130_0)" -" id_142)" +" id_143)" "((phase131_0)" -" phase_144)" +" phase_143)" "((temp132_2)" " #t))" "(resolve+shift28.1" @@ -70876,15 +70778,15 @@ static const char *startup_source = "((temp122_1)" "(add-prefix_1" "(syntax-e$1" -" id_142)))" +" id_143)))" "((phase123_0)" -" phase_144)" +" phase_143)" "((b124_0)" " b_95)" "((immed-b125_0)" " immed-b_1)" "((id126_1)" -" id_142)" +" id_143)" "((orig-s127_0)" " orig-s_81)" "((protected?128_0)" @@ -70904,9 +70806,9 @@ static const char *startup_source = " orig-s127_0)))))))))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_324 rest_245)(values))))" +"(if(not #f)(for-loop_326 rest_245)(values))))" "(values))))))" -" for-loop_324)" +" for-loop_326)" " lst_417)))" "(void)" "(if(=(hash-count found_0)(length except-ids_1))" @@ -70918,7 +70820,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_421)))" -"((letrec-values(((for-loop_326)" +"((letrec-values(((for-loop_328)" "(lambda(lst_422)" "(begin" " 'for-loop" @@ -70931,13 +70833,13 @@ static const char *startup_source = "(let-values()" "(begin" "(let-values()" -"(if(let-values(((or-part_403)" +"(if(let-values(((or-part_404)" "(hash-ref" " found_0" " except-id_1" " #f)))" -"(if or-part_403" -" or-part_403" +"(if or-part_404" +" or-part_404" "(let-values(((lst_423)" " requireds_2))" "(begin" @@ -70947,8 +70849,8 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_423)))" -"((letrec-values(((for-loop_327)" -"(lambda(result_129" +"((letrec-values(((for-loop_329)" +"(lambda(result_130" " lst_424)" "(begin" " 'for-loop" @@ -70960,37 +70862,37 @@ static const char *startup_source = "((rest_248)" "(unsafe-cdr" " lst_424)))" -"(let-values(((result_130)" -"(let-values()" "(let-values(((result_131)" "(let-values()" +"(let-values(((result_132)" "(let-values()" -"(let-values(((id_143)" +"(let-values()" +"(let-values(((id_144)" "(required-id" " i_185)))" -"(let-values(((phase_145)" +"(let-values(((phase_144)" "(required-phase" " i_185)))" "(free-identifier=?$1" -" id_143" +" id_144" " except-id_1" -" phase_145" -" phase_145)))))))" +" phase_144" +" phase_144)))))))" "(values" -" result_131)))))" +" result_132)))))" "(if(if(not" -"((lambda x_100" -" result_130)" +"((lambda x_101" +" result_131)" " i_185))" "(not" " #f)" " #f)" -"(for-loop_327" -" result_130" +"(for-loop_329" +" result_131" " rest_248)" -" result_130)))" -" result_129)))))" -" for-loop_327)" +" result_131)))" +" result_130)))))" +" for-loop_329)" " #f" " lst_423)))))" "(void)" @@ -71006,9 +70908,9 @@ static const char *startup_source = " except-id_1))))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_326 rest_247)(values))))" +"(if(not #f)(for-loop_328 rest_247)(values))))" "(values))))))" -" for-loop_326)" +" for-loop_328)" " lst_421)))" "(void)))))))))))))" "(define-values" @@ -71025,7 +70927,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_425)))" -"((letrec-values(((for-loop_328)" +"((letrec-values(((for-loop_330)" "(lambda(lst_85)" "(begin" " 'for-loop" @@ -71073,9 +70975,9 @@ static const char *startup_source = " p_46))))))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_328 rest_40)(values))))" +"(if(not #f)(for-loop_330 rest_40)(values))))" "(values))))))" -" for-loop_328)" +" for-loop_330)" " lst_425)))" "(void)))))" "((check-expr_0)" @@ -71102,7 +71004,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_78)))" -"((letrec-values(((for-loop_329)" +"((letrec-values(((for-loop_331)" "(lambda(lst_86)" "(begin" " 'for-loop" @@ -71122,10 +71024,10 @@ static const char *startup_source = "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_329 rest_249)" +"(for-loop_331 rest_249)" "(values))))" "(values))))))" -" for-loop_329)" +" for-loop_331)" " lst_78)))" "(void)" "(let-values(((tmp_64)(cross-phase-primitive-name(parsed-app-rator e_91))))" @@ -71166,7 +71068,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_269)))" -"((letrec-values(((for-loop_241)" +"((letrec-values(((for-loop_243)" "(lambda(lst_426)" "(begin" " 'for-loop" @@ -71183,9 +71085,9 @@ static const char *startup_source = "(cadr clause_5)))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_241 rest_250)(values))))" +"(if(not #f)(for-loop_243 rest_250)(values))))" "(values))))))" -" for-loop_241)" +" for-loop_243)" " lst_269)))" "(void)))" "(if(parsed-app? e_92)" @@ -71197,7 +71099,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_220)))" -"((letrec-values(((for-loop_107)" +"((letrec-values(((for-loop_109)" "(lambda(lst_163)" "(begin" " 'for-loop" @@ -71214,9 +71116,9 @@ static const char *startup_source = " e_93))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_107 rest_84)(values))))" +"(if(not #f)(for-loop_109 rest_84)(values))))" "(values))))))" -" for-loop_107)" +" for-loop_109)" " lst_220)))" "(void)))" "(if(parsed-if? e_92)" @@ -71233,9 +71135,9 @@ static const char *startup_source = "(if(let-values(((or-part_83)(not normal-b_1)))" "(if or-part_83" " or-part_83" -"(let-values(((or-part_310)(parsed-top-id? id_4)))" -"(if or-part_310" -" or-part_310" +"(let-values(((or-part_311)(parsed-top-id? id_4)))" +"(if or-part_311" +" or-part_311" "(if(not(symbol? normal-b_1))" "(eq?(module-binding-module normal-b_1) self-mpi_6)" " #f)))))" @@ -71260,7 +71162,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_23)))" -"((letrec-values(((for-loop_190)" +"((letrec-values(((for-loop_192)" "(lambda(lst_90)" "(begin" " 'for-loop" @@ -71281,15 +71183,15 @@ static const char *startup_source = "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_190 rest_143)" +"(for-loop_192 rest_143)" "(values))))" "(values))))))" -" for-loop_190)" +" for-loop_192)" " lst_23)))" "(void)" "(check-body-no-disallowed-expr_0(parsed-let_-values-body e_92))))" -"(if(let-values(((or-part_404)(parsed-quote-syntax? e_92)))" -"(if or-part_404 or-part_404(parsed-#%variable-reference? e_92)))" +"(if(let-values(((or-part_405)(parsed-quote-syntax? e_92)))" +"(if or-part_405 or-part_405(parsed-#%variable-reference? e_92)))" "(let-values()(disallow e_92))" "(let-values()(void)))))))))))))))" "((check-body-no-disallowed-expr_0)" @@ -71302,7 +71204,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_81)))" -"((letrec-values(((for-loop_330)" +"((letrec-values(((for-loop_332)" "(lambda(lst_58)" "(begin" " 'for-loop" @@ -71319,9 +71221,9 @@ static const char *startup_source = " e_82))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_330 rest_195)(values))))" +"(if(not #f)(for-loop_332 rest_195)(values))))" "(values))))))" -" for-loop_330)" +" for-loop_332)" " lst_81)))" "(void))))))" "(check-body_0 bodys_13)))))" @@ -71353,11 +71255,11 @@ static const char *startup_source = "(lambda(e_94)(begin(if(parsed-quote? e_94)(string?(parsed-quote-datum e_94)) #f))))" "(define-values" "(cross-phase-primitive-name)" -"(lambda(id_144)" +"(lambda(id_145)" "(begin" -"(if(parsed-id? id_144)" +"(if(parsed-id? id_145)" "(let-values()" -"(let-values(((b_87)(parsed-id-binding id_144)))" +"(let-values(((b_87)(parsed-id-binding id_145)))" "(if(module-binding? b_87)" "(if(eq? runtime-module-name(1/module-path-index-resolve(module-binding-module b_87)))" "(module-binding-sym b_87)" @@ -71375,101 +71277,99 @@ static const char *startup_source = "(void" "(add-core-form!*" " 'module" -"(lambda(s_43 ctx_107)" +"(lambda(s_43 ctx_108)" "(begin" -"(if(eq?(expand-context-context ctx_107) 'top-level)" +"(if(eq?(expand-context-context ctx_108) 'top-level)" "(void)" "(let-values()" "(begin" -"(let-values(((obs_124)(expand-context-observer ctx_107)))" +"(let-values(((obs_124)(expand-context-observer ctx_108)))" "(if obs_124(let-values()(let-values()(call-expand-observe obs_124 'prim-module)))(void)))" " (raise-syntax-error$1 #f \"allowed only at the top level\" s_43))))" "(let-values()" -"(let-values(((s223_0) s_43)((ctx224_0) ctx_107)((temp225_2) #f))" -"(expand-module18.1 #f #f #f #f #f unsafe-undefined #f s223_0 ctx224_0 temp225_2)))))))" +"(let-values(((s223_1) s_43)((ctx224_0) ctx_108)((temp225_2) #f))" +"(expand-module18.1 #f #f #f #f #f unsafe-undefined #f s223_1 ctx224_0 temp225_2)))))))" "(void" "(add-core-form!*" " 'module*" -"(lambda(s_307 ctx_108)" +"(lambda(s_307 ctx_109)" "(begin" -"(let-values(((obs_125)(expand-context-observer ctx_108)))" +"(let-values(((obs_125)(expand-context-observer ctx_109)))" "(if obs_125(let-values()(let-values()(call-expand-observe obs_125 'prim-module)))(void)))" " (raise-syntax-error$1 #f \"illegal use (not in a module top-level)\" s_307)))))" "(void" "(add-core-form!*" " '#%module-begin" -"(lambda(s_91 ctx_109)" +"(lambda(s_91 ctx_110)" "(begin" -"(let-values(((obs_126)(expand-context-observer ctx_109)))" +"(let-values(((obs_126)(expand-context-observer ctx_110)))" "(if obs_126(let-values()(let-values()(call-expand-observe obs_126 'prim-module-begin)))(void)))" -"(if(eq?(expand-context-context ctx_109) 'module-begin)" +"(if(eq?(expand-context-context ctx_110) 'module-begin)" "(void)" " (let-values () (raise-syntax-error$1 #f \"not in a module-definition context\" s_91)))" -"(if(expand-context-module-begin-k ctx_109)" +"(if(expand-context-module-begin-k ctx_110)" "(void)" " (let-values () (raise-syntax-error$1 #f \"not currently transforming a module\" s_91)))" -"((expand-context-module-begin-k ctx_109)" +"((expand-context-module-begin-k ctx_110)" " s_91" -"(let-values(((v_268) ctx_109))" -"(let-values(((the-struct_100) v_268))" -"(if(expand-context/outer? the-struct_100)" +"(let-values(((v_268) ctx_110))" +"(let-values(((the-struct_101) v_268))" +"(if(expand-context/outer? the-struct_101)" "(let-values(((inner226_0)" -"(let-values(((the-struct_101)(root-expand-context/outer-inner v_268)))" -"(if(expand-context/inner? the-struct_101)" +"(let-values(((the-struct_102)(root-expand-context/outer-inner v_268)))" +"(if(expand-context/inner? the-struct_102)" "(let-values(((module-begin-k227_0) #f))" "(expand-context/inner2.1" -"(root-expand-context/inner-self-mpi the-struct_101)" -"(root-expand-context/inner-module-scopes the-struct_101)" -"(root-expand-context/inner-top-level-bind-scope the-struct_101)" -"(root-expand-context/inner-all-scopes-stx the-struct_101)" -"(root-expand-context/inner-defined-syms the-struct_101)" -"(root-expand-context/inner-counter the-struct_101)" -"(root-expand-context/inner-lift-key the-struct_101)" -"(expand-context/inner-to-parsed? the-struct_101)" -"(expand-context/inner-phase the-struct_101)" -"(expand-context/inner-namespace the-struct_101)" -"(expand-context/inner-just-once? the-struct_101)" +"(root-expand-context/inner-self-mpi the-struct_102)" +"(root-expand-context/inner-module-scopes the-struct_102)" +"(root-expand-context/inner-top-level-bind-scope the-struct_102)" +"(root-expand-context/inner-all-scopes-stx the-struct_102)" +"(root-expand-context/inner-defined-syms the-struct_102)" +"(root-expand-context/inner-counter the-struct_102)" +"(root-expand-context/inner-lift-key the-struct_102)" +"(expand-context/inner-to-parsed? the-struct_102)" +"(expand-context/inner-phase the-struct_102)" +"(expand-context/inner-namespace the-struct_102)" +"(expand-context/inner-just-once? the-struct_102)" " module-begin-k227_0" -"(expand-context/inner-allow-unbound? the-struct_101)" -"(expand-context/inner-in-local-expand? the-struct_101)" -"(expand-context/inner-keep-#%expression? the-struct_101)" -"(expand-context/inner-stops the-struct_101)" -"(expand-context/inner-declared-submodule-names the-struct_101)" -"(expand-context/inner-lifts the-struct_101)" -"(expand-context/inner-lift-envs the-struct_101)" -"(expand-context/inner-module-lifts the-struct_101)" -"(expand-context/inner-require-lifts the-struct_101)" -"(expand-context/inner-to-module-lifts the-struct_101)" -"(expand-context/inner-requires+provides the-struct_101)" -"(expand-context/inner-observer the-struct_101)" -"(expand-context/inner-for-serializable? the-struct_101)" -"(expand-context/inner-should-not-encounter-macros? the-struct_101)))" -" (raise-argument-error 'struct-copy \"expand-context/inner?\" the-struct_101)))))" +"(expand-context/inner-allow-unbound? the-struct_102)" +"(expand-context/inner-in-local-expand? the-struct_102)" +"(expand-context/inner-keep-#%expression? the-struct_102)" +"(expand-context/inner-stops the-struct_102)" +"(expand-context/inner-declared-submodule-names the-struct_102)" +"(expand-context/inner-lifts the-struct_102)" +"(expand-context/inner-lift-envs the-struct_102)" +"(expand-context/inner-module-lifts the-struct_102)" +"(expand-context/inner-require-lifts the-struct_102)" +"(expand-context/inner-to-module-lifts the-struct_102)" +"(expand-context/inner-requires+provides the-struct_102)" +"(expand-context/inner-observer the-struct_102)" +"(expand-context/inner-for-serializable? the-struct_102)" +"(expand-context/inner-should-not-encounter-macros? the-struct_102)))" +" (raise-argument-error 'struct-copy \"expand-context/inner?\" the-struct_102)))))" "(expand-context/outer1.1" " inner226_0" -"(root-expand-context/outer-post-expansion-scope the-struct_100)" -"(root-expand-context/outer-post-expansion-shifts the-struct_100)" -"(root-expand-context/outer-use-site-scopes the-struct_100)" -"(root-expand-context/outer-frame-id the-struct_100)" -"(expand-context/outer-context the-struct_100)" -"(expand-context/outer-env the-struct_100)" -"(expand-context/outer-post-expansion-scope-action the-struct_100)" -"(expand-context/outer-scopes the-struct_100)" -"(expand-context/outer-def-ctx-scopes the-struct_100)" -"(expand-context/outer-binding-layer the-struct_100)" -"(expand-context/outer-reference-records the-struct_100)" -"(expand-context/outer-only-immediate? the-struct_100)" -"(expand-context/outer-need-eventually-defined the-struct_100)" -"(expand-context/outer-current-introduction-scopes the-struct_100)" -"(expand-context/outer-current-use-scopes the-struct_100)" -"(expand-context/outer-name the-struct_100)))" -" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_100)))))))))" +"(root-expand-context/outer-post-expansion the-struct_101)" +"(root-expand-context/outer-use-site-scopes the-struct_101)" +"(root-expand-context/outer-frame-id the-struct_101)" +"(expand-context/outer-context the-struct_101)" +"(expand-context/outer-env the-struct_101)" +"(expand-context/outer-scopes the-struct_101)" +"(expand-context/outer-def-ctx-scopes the-struct_101)" +"(expand-context/outer-binding-layer the-struct_101)" +"(expand-context/outer-reference-records the-struct_101)" +"(expand-context/outer-only-immediate? the-struct_101)" +"(expand-context/outer-need-eventually-defined the-struct_101)" +"(expand-context/outer-current-introduction-scopes the-struct_101)" +"(expand-context/outer-current-use-scopes the-struct_101)" +"(expand-context/outer-name the-struct_101)))" +" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_101)))))))))" "(void" "(add-core-form!*" " '#%declare" -"(lambda(s_804 ctx_110)" +"(lambda(s_804 ctx_111)" "(begin" -"(let-values(((obs_127)(expand-context-observer ctx_110)))" +"(let-values(((obs_127)(expand-context-observer ctx_111)))" "(if obs_127(let-values()(let-values()(call-expand-observe obs_127 'prim-declare)))(void)))" " (raise-syntax-error$1 #f \"not allowed outside of a module body\" s_804)))))" "(define-values" @@ -71642,7 +71542,7 @@ static const char *startup_source = " s_805" " initial-require230_0)))" "(values))))" -"(let-values(((phase_146) 0))" +"(let-values(((phase_145) 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)))" @@ -71749,121 +71649,122 @@ static const char *startup_source = "(make-m-ns244_0" " unsafe-undefined" " temp266_0))))" -"(let-values(((ctx_111)" +"(let-values(((ctx_112)" "(let-values(((v_261)" "(copy-root-expand-context" " init-ctx_0" " root-ctx_6)))" -"(let-values(((the-struct_91)" +"(let-values(((the-struct_92)" " v_261))" "(if(expand-context/outer?" -" the-struct_91)" -"(let-values(((post-expansion-scope-action267_0)" -" add-scope)" +" the-struct_92)" +"(let-values(((post-expansion267_0)" +"(lambda(s_409)" +"(begin" +" 'post-expansion267" +"(add-scope" +" s_409" +" inside-scope_0))))" "((inner268_0)" -"(let-values(((the-struct_54)" +"(let-values(((the-struct_103)" "(root-expand-context/outer-inner" " v_261)))" "(if(expand-context/inner?" -" the-struct_54)" +" the-struct_103)" "(let-values(((allow-unbound?269_0)" " #f)" "((namespace270_0)" " m-ns_19)" "((phase271_0)" -" phase_146)" +" phase_145)" "((just-once?272_0)" " #f))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi" -" the-struct_54)" +" the-struct_103)" "(root-expand-context/inner-module-scopes" -" the-struct_54)" +" the-struct_103)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_54)" +" the-struct_103)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_54)" +" the-struct_103)" "(root-expand-context/inner-defined-syms" -" the-struct_54)" +" the-struct_103)" "(root-expand-context/inner-counter" -" the-struct_54)" +" the-struct_103)" "(root-expand-context/inner-lift-key" -" the-struct_54)" +" the-struct_103)" "(expand-context/inner-to-parsed?" -" the-struct_54)" +" the-struct_103)" " phase271_0" " namespace270_0" " just-once?272_0" "(expand-context/inner-module-begin-k" -" the-struct_54)" +" the-struct_103)" " allow-unbound?269_0" "(expand-context/inner-in-local-expand?" -" the-struct_54)" +" the-struct_103)" "(expand-context/inner-keep-#%expression?" -" the-struct_54)" +" the-struct_103)" "(expand-context/inner-stops" -" the-struct_54)" +" the-struct_103)" "(expand-context/inner-declared-submodule-names" -" the-struct_54)" +" the-struct_103)" "(expand-context/inner-lifts" -" the-struct_54)" +" the-struct_103)" "(expand-context/inner-lift-envs" -" the-struct_54)" +" the-struct_103)" "(expand-context/inner-module-lifts" -" the-struct_54)" +" the-struct_103)" "(expand-context/inner-require-lifts" -" the-struct_54)" +" the-struct_103)" "(expand-context/inner-to-module-lifts" -" the-struct_54)" +" the-struct_103)" "(expand-context/inner-requires+provides" -" the-struct_54)" +" the-struct_103)" "(expand-context/inner-observer" -" the-struct_54)" +" the-struct_103)" "(expand-context/inner-for-serializable?" -" the-struct_54)" +" the-struct_103)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_54)))" +" the-struct_103)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_54)))))" +" the-struct_103)))))" "(expand-context/outer1.1" " inner268_0" -"(root-expand-context/outer-post-expansion-scope" -" the-struct_91)" -"(root-expand-context/outer-post-expansion-shifts" -" the-struct_91)" +" post-expansion267_0" "(root-expand-context/outer-use-site-scopes" -" the-struct_91)" +" the-struct_92)" "(root-expand-context/outer-frame-id" -" the-struct_91)" +" the-struct_92)" "(expand-context/outer-context" -" the-struct_91)" +" the-struct_92)" "(expand-context/outer-env" -" the-struct_91)" -" post-expansion-scope-action267_0" +" the-struct_92)" "(expand-context/outer-scopes" -" the-struct_91)" +" the-struct_92)" "(expand-context/outer-def-ctx-scopes" -" the-struct_91)" +" the-struct_92)" "(expand-context/outer-binding-layer" -" the-struct_91)" +" the-struct_92)" "(expand-context/outer-reference-records" -" the-struct_91)" +" the-struct_92)" "(expand-context/outer-only-immediate?" -" the-struct_91)" +" the-struct_92)" "(expand-context/outer-need-eventually-defined" -" the-struct_91)" +" the-struct_92)" "(expand-context/outer-current-introduction-scopes" -" the-struct_91)" +" the-struct_92)" "(expand-context/outer-current-use-scopes" -" the-struct_91)" +" the-struct_92)" "(expand-context/outer-name" -" the-struct_91)))" +" the-struct_92)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_91))))))" +" the-struct_92))))))" "(let-values(((bodys_15)" "(let-values(((scoped-s_0)" "(apply-module-scopes_0" @@ -71873,77 +71774,77 @@ static const char *startup_source = " _274_0" " _275_0" " body276_0)" -"(let-values(((s_524)" +"(let-values(((s_525)" " scoped-s_0))" "(let-values(((orig-s_83)" -" s_524))" +" s_525))" "(let-values(((_273_1" " _274_1" " _275_1" " body276_1)" -"(let-values(((s_210)" +"(let-values(((s_458)" "(if(syntax?$1" -" s_524)" +" s_525)" "(syntax-e$1" -" s_524)" -" s_524)))" +" s_525)" +" s_525)))" "(if(pair?" -" s_210)" +" s_458)" "(let-values(((_277_2)" -"(let-values(((s_527)" +"(let-values(((s_528)" "(car" -" s_210)))" -" s_527))" +" s_458)))" +" s_528))" "((_278_0" " _279_1" " body280_0)" -"(let-values(((s_528)" -"(cdr" -" s_210)))" "(let-values(((s_97)" +"(cdr" +" s_458)))" +"(let-values(((s_212)" "(if(syntax?$1" -" s_528)" -"(syntax-e$1" -" s_528)" -" s_528)))" -"(if(pair?" " s_97)" -"(let-values(((_281_0)" -"(let-values(((s_460)" -"(car" +"(syntax-e$1" +" s_97)" " s_97)))" -" s_460))" +"(if(pair?" +" s_212)" +"(let-values(((_281_0)" +"(let-values(((s_806)" +"(car" +" s_212)))" +" s_806))" "((_282_1" " body283_0)" -"(let-values(((s_806)" -"(cdr" -" s_97)))" "(let-values(((s_807)" -"(if(syntax?$1" -" s_806)" -"(syntax-e$1" -" s_806)" -" s_806)))" -"(if(pair?" -" s_807)" -"(let-values(((_284_0)" -"(let-values(((s_416)" -"(car" -" s_807)))" -" s_416))" -"((body285_0)" -"(let-values(((s_39)" "(cdr" -" s_807)))" -"(let-values(((s_98)" +" s_212)))" +"(let-values(((s_808)" "(if(syntax?$1" -" s_39)" +" s_807)" "(syntax-e$1" -" s_39)" -" s_39)))" +" s_807)" +" s_807)))" +"(if(pair?" +" s_808)" +"(let-values(((_284_0)" +"(let-values(((s_39)" +"(car" +" s_808)))" +" s_39))" +"((body285_0)" +"(let-values(((s_98)" +"(cdr" +" s_808)))" +"(let-values(((s_320)" +"(if(syntax?$1" +" s_98)" +"(syntax-e$1" +" s_98)" +" s_98)))" "(let-values(((flat-s_56)" "(to-syntax-list.1" -" s_98)))" +" s_320)))" "(if(not" " flat-s_56)" "(let-values()" @@ -72079,10 +71980,10 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(let-values(((temp252_1)" +"(let-values(((temp252_0)" " #t))" "(initial-require!249_0" -" temp252_1))" +" temp252_0))" "(values))))" "(let-values(((again?_0)" " #f))" @@ -72114,182 +72015,184 @@ static const char *startup_source = "(set! again?_0" " #t)" "(values))))" -"(let-values(((ctx_112)" +"(let-values(((ctx_23)" "(let-values(((v_269)" " mb-init-ctx_0))" -"(let-values(((the-struct_102)" +"(let-values(((the-struct_104)" " v_269))" "(if(expand-context/outer?" -" the-struct_102)" -"(let-values(((inner306_0)" -"(let-values(((the-struct_103)" +" the-struct_104)" +"(let-values(((post-expansion306_0)" +"(lambda(s_161)" +"(begin" +" 'post-expansion306" +"(add-scope" +" s_161" +" inside-scope_0))))" +"((inner307_0)" +"(let-values(((the-struct_18)" "(root-expand-context/outer-inner" " v_269)))" "(if(expand-context/inner?" -" the-struct_103)" -"(let-values(((module-begin-k307_0)" -"(lambda(s_161" +" the-struct_18)" +"(let-values(((module-begin-k308_0)" +"(lambda(s_809" " ctx_113)" "(begin" -" 'module-begin-k307" +" 'module-begin-k308" "(let-values(((new-requires+provides_0)" -"(let-values(((self316_0)" +"(let-values(((self317_0)" " self_32)" -"((requires+provides317_0)" +"((requires+provides318_0)" " requires+provides_6))" "(make-requires+provides8.1" -" requires+provides317_0" -" self316_0))))" -"(let-values(((requires+provides308_0)" +" requires+provides318_0" +" self317_0))))" +"(let-values(((requires+provides309_0)" " requires+provides_6)" -"((compiled-submodules309_0)" +"((compiled-submodules310_0)" " compiled-submodules_1)" -"((compiled-module-box310_0)" +"((compiled-module-box311_0)" " compiled-module-box_0)" -"((defined-syms311_0)" +"((defined-syms312_0)" " defined-syms_11)" -"((requires+provides312_0)" +"((requires+provides313_0)" " new-requires+provides_0)" -"((compiled-submodules313_0)" +"((compiled-submodules314_0)" "(make-hasheq))" -"((compiled-module-box314_0)" +"((compiled-module-box315_0)" "(box" " #f))" -"((defined-syms315_0)" +"((defined-syms316_0)" "(make-hasheq)))" "(dynamic-wind" "(lambda()" "(begin" "(set! requires+provides_6" -" requires+provides312_0)" +" requires+provides313_0)" "(set! compiled-submodules_1" -" compiled-submodules313_0)" +" compiled-submodules314_0)" "(set! compiled-module-box_0" -" compiled-module-box314_0)" +" compiled-module-box315_0)" "(set! defined-syms_11" -" defined-syms315_0)))" +" defined-syms316_0)))" "(lambda()" "(module-begin-k_1" -" s_161" +" s_809" " ctx_113))" "(lambda()" "(begin" "(set! requires+provides_6" -" requires+provides308_0)" +" requires+provides309_0)" "(set! compiled-submodules_1" -" compiled-submodules309_0)" +" compiled-submodules310_0)" "(set! compiled-module-box_0" -" compiled-module-box310_0)" +" compiled-module-box311_0)" "(set! defined-syms_11" -" defined-syms311_0))))))))))" +" defined-syms312_0))))))))))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi" -" the-struct_103)" +" the-struct_18)" "(root-expand-context/inner-module-scopes" -" the-struct_103)" +" the-struct_18)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_103)" +" the-struct_18)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_103)" +" the-struct_18)" "(root-expand-context/inner-defined-syms" -" the-struct_103)" +" the-struct_18)" "(root-expand-context/inner-counter" -" the-struct_103)" +" the-struct_18)" "(root-expand-context/inner-lift-key" -" the-struct_103)" +" the-struct_18)" "(expand-context/inner-to-parsed?" -" the-struct_103)" +" the-struct_18)" "(expand-context/inner-phase" -" the-struct_103)" +" the-struct_18)" "(expand-context/inner-namespace" -" the-struct_103)" +" the-struct_18)" "(expand-context/inner-just-once?" -" the-struct_103)" -" module-begin-k307_0" +" the-struct_18)" +" module-begin-k308_0" "(expand-context/inner-allow-unbound?" -" the-struct_103)" +" the-struct_18)" "(expand-context/inner-in-local-expand?" -" the-struct_103)" +" the-struct_18)" "(expand-context/inner-keep-#%expression?" -" the-struct_103)" +" the-struct_18)" "(expand-context/inner-stops" -" the-struct_103)" +" the-struct_18)" "(expand-context/inner-declared-submodule-names" -" the-struct_103)" +" the-struct_18)" "(expand-context/inner-lifts" -" the-struct_103)" +" the-struct_18)" "(expand-context/inner-lift-envs" -" the-struct_103)" +" the-struct_18)" "(expand-context/inner-module-lifts" -" the-struct_103)" +" the-struct_18)" "(expand-context/inner-require-lifts" -" the-struct_103)" +" the-struct_18)" "(expand-context/inner-to-module-lifts" -" the-struct_103)" +" the-struct_18)" "(expand-context/inner-requires+provides" -" the-struct_103)" +" the-struct_18)" "(expand-context/inner-observer" -" the-struct_103)" +" the-struct_18)" "(expand-context/inner-for-serializable?" -" the-struct_103)" +" the-struct_18)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_103)))" +" the-struct_18)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_103)))))" +" the-struct_18)))))" "(expand-context/outer1.1" -" inner306_0" -"(root-expand-context/outer-post-expansion-scope" -" the-struct_102)" -"(root-expand-context/outer-post-expansion-shifts" -" the-struct_102)" +" inner307_0" +" post-expansion306_0" "(root-expand-context/outer-use-site-scopes" -" the-struct_102)" +" the-struct_104)" "(root-expand-context/outer-frame-id" -" the-struct_102)" +" the-struct_104)" "(expand-context/outer-context" -" the-struct_102)" +" the-struct_104)" "(expand-context/outer-env" -" the-struct_102)" -"(expand-context/outer-post-expansion-scope-action" -" the-struct_102)" +" the-struct_104)" "(expand-context/outer-scopes" -" the-struct_102)" +" the-struct_104)" "(expand-context/outer-def-ctx-scopes" -" the-struct_102)" +" the-struct_104)" "(expand-context/outer-binding-layer" -" the-struct_102)" +" the-struct_104)" "(expand-context/outer-reference-records" -" the-struct_102)" +" the-struct_104)" "(expand-context/outer-only-immediate?" -" the-struct_102)" +" the-struct_104)" "(expand-context/outer-need-eventually-defined" -" the-struct_102)" +" the-struct_104)" "(expand-context/outer-current-introduction-scopes" -" the-struct_102)" +" the-struct_104)" "(expand-context/outer-current-use-scopes" -" the-struct_102)" +" the-struct_104)" "(expand-context/outer-name" -" the-struct_102)))" +" the-struct_104)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_102))))))" +" the-struct_104))))))" "(let-values(((added-s_2)" "(add-scope" " mb-s_0" " inside-scope_0)))" "(let-values((()" "(begin" -"(let-values(((obs_20)" +"(let-values(((obs_130)" "(expand-context-observer" -" ctx_112)))" -"(if obs_20" +" ctx_23)))" +"(if obs_130" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_20" +" obs_130" " 'rename-one" " added-s_2)))" "(void)))" @@ -72300,38 +72203,38 @@ static const char *startup_source = "(let-values(((ok?_80" " #%module-begin301_0" " body302_0)" -"(let-values(((s_788)" +"(let-values(((s_118)" " disarmed-mb-s_0))" "(let-values(((orig-s_84)" -" s_788))" +" s_118))" "(let-values(((#%module-begin301_1" " body302_1)" -"(let-values(((s_119)" +"(let-values(((s_810)" "(if(syntax?$1" -" s_788)" +" s_118)" "(syntax-e$1" -" s_788)" -" s_788)))" +" s_118)" +" s_118)))" "(if(pair?" -" s_119)" +" s_810)" "(let-values(((#%module-begin303_0)" -"(let-values(((s_808)" +"(let-values(((s_227)" "(car" -" s_119)))" -" s_808))" +" s_810)))" +" s_227))" "((body304_0)" -"(let-values(((s_121)" +"(let-values(((s_163)" "(cdr" -" s_119)))" -"(let-values(((s_226)" +" s_810)))" +"(let-values(((s_164)" "(if(syntax?$1" -" s_121)" +" s_163)" "(syntax-e$1" -" s_121)" -" s_121)))" +" s_163)" +" s_163)))" "(let-values(((flat-s_57)" "(to-syntax-list.1" -" s_226)))" +" s_164)))" "(if(not" " flat-s_57)" "(let-values()" @@ -72355,16 +72258,16 @@ static const char *startup_source = "(let-values(((bodys_16)" " body302_0))" "(let-values(((rebuild-mb-s_0)" -"(let-values(((ctx318_0)" -" ctx_112)" -"((mb-s319_0)" +"(let-values(((ctx319_0)" +" ctx_23)" +"((mb-s320_0)" " mb-s_0))" "(keep-as-needed119.1" " #f" " #f" " #f" -" ctx318_0" -" mb-s319_0))))" +" ctx319_0" +" mb-s320_0))))" "(let-values(((need-eventually-defined_1)" "(make-hasheqv)))" "(let-values(((module-ends_0)" @@ -72376,7 +72279,7 @@ static const char *startup_source = "(let-values(((expression-expanded-bodys_0)" "((letrec-values(((pass-1-and-2-loop_0)" "(lambda(bodys_17" -" phase_147)" +" phase_146)" "(begin" " 'pass-1-and-2-loop" "(let-values(((def-ctx-scopes_8)" @@ -72384,43 +72287,43 @@ static const char *startup_source = " null)))" "(let-values(((to-parsed?_5)" "(expand-context-to-parsed?" -" ctx_112)))" +" ctx_23)))" "(let-values(((partial-body-ctx_0)" -"(let-values(((v_270)" -" ctx_112))" -"(let-values(((the-struct_104)" -" v_270))" -"(if(expand-context/outer?" -" the-struct_104)" -"(let-values(((context328_0)" -" 'module)" -"((def-ctx-scopes329_0)" -" def-ctx-scopes_8)" -"((need-eventually-defined330_0)" -" need-eventually-defined_1)" -"((inner331_0)" +"(let-values(((v_253)" +" ctx_23))" "(let-values(((the-struct_105)" -"(root-expand-context/outer-inner" -" v_270)))" -"(if(expand-context/inner?" +" v_253))" +"(if(expand-context/outer?" " the-struct_105)" -"(let-values(((phase332_0)" -" phase_147)" -"((namespace333_0)" +"(let-values(((context329_0)" +" 'module)" +"((def-ctx-scopes330_0)" +" def-ctx-scopes_8)" +"((need-eventually-defined331_0)" +" need-eventually-defined_1)" +"((inner332_0)" +"(let-values(((the-struct_106)" +"(root-expand-context/outer-inner" +" v_253)))" +"(if(expand-context/inner?" +" the-struct_106)" +"(let-values(((phase333_0)" +" phase_146)" +"((namespace334_0)" "(namespace->namespace-at-phase" " m-ns_19" -" phase_147))" -"((stops334_0)" +" phase_146))" +"((stops335_0)" "(free-id-set" -" phase_147" +" phase_146" "(module-expand-stop-ids" -" phase_147)))" -"((declared-submodule-names335_0)" +" phase_146)))" +"((declared-submodule-names336_0)" " declared-submodule-names_3)" -"((lift-key336_0)" +"((lift-key337_0)" "(generate-lift-key))" -"((lifts337_0)" -"(let-values(((temp341_0)" +"((lifts338_0)" +"(let-values(((temp342_1)" "(make-wrap-as-definition" " self_32" " frame-id_16" @@ -72430,216 +72333,38 @@ static const char *startup_source = " requires+provides_6)))" "(make-lift-context6.1" " #f" -" temp341_0)))" -"((module-lifts338_0)" +" temp342_1)))" +"((module-lifts339_0)" "(make-module-lift-context" -" phase_147" +" phase_146" " #t))" -"((require-lifts339_0)" +"((require-lifts340_0)" "(make-require-lift-context" -" phase_147" -"(let-values(((m-ns342_0)" +" phase_146" +"(let-values(((m-ns343_0)" " m-ns_19)" -"((self343_0)" +"((self344_0)" " self_32)" -"((requires+provides344_0)" +"((requires+provides345_0)" " requires+provides_6)" -"((declared-submodule-names345_0)" +"((declared-submodule-names346_0)" " declared-submodule-names_3))" "(make-parse-lifted-require220.1" -" declared-submodule-names345_0" -" m-ns342_0" -" self343_0" -" requires+provides344_0))))" -"((to-module-lifts340_0)" -"(let-values(((phase346_0)" -" phase_147)" -"((module-ends347_0)" +" declared-submodule-names346_0" +" m-ns343_0" +" self344_0" +" requires+provides345_0))))" +"((to-module-lifts341_0)" +"(let-values(((phase347_0)" +" phase_146)" +"((module-ends348_0)" " module-ends_0)" -"((temp348_0)" +"((temp349_1)" " #f))" "(make-to-module-lift-context27.1" -" temp348_0" -" module-ends347_0" -" phase346_0))))" -"(expand-context/inner2.1" -"(root-expand-context/inner-self-mpi" -" the-struct_105)" -"(root-expand-context/inner-module-scopes" -" the-struct_105)" -"(root-expand-context/inner-top-level-bind-scope" -" the-struct_105)" -"(root-expand-context/inner-all-scopes-stx" -" the-struct_105)" -"(root-expand-context/inner-defined-syms" -" the-struct_105)" -"(root-expand-context/inner-counter" -" the-struct_105)" -" lift-key336_0" -"(expand-context/inner-to-parsed?" -" the-struct_105)" -" phase332_0" -" namespace333_0" -"(expand-context/inner-just-once?" -" the-struct_105)" -"(expand-context/inner-module-begin-k" -" the-struct_105)" -"(expand-context/inner-allow-unbound?" -" the-struct_105)" -"(expand-context/inner-in-local-expand?" -" the-struct_105)" -"(expand-context/inner-keep-#%expression?" -" the-struct_105)" -" stops334_0" -" declared-submodule-names335_0" -" lifts337_0" -"(expand-context/inner-lift-envs" -" the-struct_105)" -" module-lifts338_0" -" require-lifts339_0" -" to-module-lifts340_0" -"(expand-context/inner-requires+provides" -" the-struct_105)" -"(expand-context/inner-observer" -" the-struct_105)" -"(expand-context/inner-for-serializable?" -" the-struct_105)" -"(expand-context/inner-should-not-encounter-macros?" -" the-struct_105)))" -"(raise-argument-error" -" 'struct-copy" -" \"expand-context/inner?\"" -" the-struct_105)))))" -"(expand-context/outer1.1" -" inner331_0" -"(root-expand-context/outer-post-expansion-scope" -" the-struct_104)" -"(root-expand-context/outer-post-expansion-shifts" -" the-struct_104)" -"(root-expand-context/outer-use-site-scopes" -" the-struct_104)" -"(root-expand-context/outer-frame-id" -" the-struct_104)" -" context328_0" -"(expand-context/outer-env" -" the-struct_104)" -"(expand-context/outer-post-expansion-scope-action" -" the-struct_104)" -"(expand-context/outer-scopes" -" the-struct_104)" -" def-ctx-scopes329_0" -"(expand-context/outer-binding-layer" -" the-struct_104)" -"(expand-context/outer-reference-records" -" the-struct_104)" -"(expand-context/outer-only-immediate?" -" the-struct_104)" -" need-eventually-defined330_0" -"(expand-context/outer-current-introduction-scopes" -" the-struct_104)" -"(expand-context/outer-current-use-scopes" -" the-struct_104)" -"(expand-context/outer-name" -" the-struct_104)))" -"(raise-argument-error" -" 'struct-copy" -" \"expand-context/outer?\"" -" the-struct_104))))))" -"(let-values(((partially-expanded-bodys_0)" -"(let-values(((bodys349_0)" -" bodys_17)" -"((phase350_0)" -" phase_147)" -"((partial-body-ctx351_0)" -" partial-body-ctx_0)" -"((m-ns352_0)" -" m-ns_19)" -"((self353_0)" -" self_32)" -"((frame-id354_0)" -" frame-id_16)" -"((requires+provides355_0)" -" requires+provides_6)" -"((need-eventually-defined356_0)" -" need-eventually-defined_1)" -"((all-scopes-s357_0)" -" all-scopes-s_0)" -"((defined-syms358_0)" -" defined-syms_11)" -"((declared-keywords359_0)" -" declared-keywords_0)" -"((declared-submodule-names360_0)" -" declared-submodule-names_3)" -"((compiled-submodules361_0)" -" compiled-submodules_1)" -"((modules-being-compiled362_0)" -" modules-being-compiled_3)" -"((mpis-to-reset363_0)" -" mpis-to-reset_0)" -"((pass-1-and-2-loop364_0)" -" pass-1-and-2-loop_0))" -"(partially-expand-bodys81.1" -" all-scopes-s357_0" -" compiled-submodules361_0" -" partial-body-ctx351_0" -" declared-keywords359_0" -" declared-submodule-names360_0" -" defined-syms358_0" -" frame-id354_0" -" pass-1-and-2-loop364_0" -" modules-being-compiled362_0" -" mpis-to-reset363_0" -" m-ns352_0" -" need-eventually-defined356_0" -" phase350_0" -" requires+provides355_0" -" self353_0" -" bodys349_0))))" -"(let-values((()" -"(begin" -"(let-values(((obs_130)" -"(expand-context-observer" -" partial-body-ctx_0)))" -"(if obs_130" -"(let-values()" -"(let-values()" -"(call-expand-observe" -" obs_130" -" 'next-group)))" -"(void)))" -"(values))))" -"(let-values(((body-ctx_6)" -"(let-values(((v_263)" -"(accumulate-def-ctx-scopes" -" partial-body-ctx_0" -" def-ctx-scopes_8)))" -"(let-values(((the-struct_93)" -" v_263))" -"(if(expand-context/outer?" -" the-struct_93)" -"(let-values(((def-ctx-scopes365_0)" -" #f)" -"((post-expansion-scope366_0)" -" #f)" -"((inner367_0)" -"(let-values(((the-struct_106)" -"(root-expand-context/outer-inner" -" v_263)))" -"(if(expand-context/inner?" -" the-struct_106)" -"(let-values(((stops368_0)" -" empty-free-id-set)" -"((to-module-lifts369_0)" -"(let-values(((phase370_0)" -" phase_147)" -"((module-ends371_0)" -" module-ends_0)" -"((temp372_0)" -" #t))" -"(make-to-module-lift-context27.1" -" temp372_0" -" module-ends371_0" -" phase370_0))))" +" temp349_1" +" module-ends348_0" +" phase347_0))))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi" " the-struct_106)" @@ -72653,14 +72378,11 @@ static const char *startup_source = " the-struct_106)" "(root-expand-context/inner-counter" " the-struct_106)" -"(root-expand-context/inner-lift-key" -" the-struct_106)" +" lift-key337_0" "(expand-context/inner-to-parsed?" " the-struct_106)" -"(expand-context/inner-phase" -" the-struct_106)" -"(expand-context/inner-namespace" -" the-struct_106)" +" phase333_0" +" namespace334_0" "(expand-context/inner-just-once?" " the-struct_106)" "(expand-context/inner-module-begin-k" @@ -72671,18 +72393,14 @@ static const char *startup_source = " the-struct_106)" "(expand-context/inner-keep-#%expression?" " the-struct_106)" -" stops368_0" -"(expand-context/inner-declared-submodule-names" -" the-struct_106)" -"(expand-context/inner-lifts" -" the-struct_106)" +" stops335_0" +" declared-submodule-names336_0" +" lifts338_0" "(expand-context/inner-lift-envs" " the-struct_106)" -"(expand-context/inner-module-lifts" -" the-struct_106)" -"(expand-context/inner-require-lifts" -" the-struct_106)" -" to-module-lifts369_0" +" module-lifts339_0" +" require-lifts340_0" +" to-module-lifts341_0" "(expand-context/inner-requires+provides" " the-struct_106)" "(expand-context/inner-observer" @@ -72693,85 +72411,94 @@ static const char *startup_source = " the-struct_106)))" "(raise-argument-error" " 'struct-copy" -" \"expand-context/inner?\"" +" \"expand-context/inner?\"" " the-struct_106)))))" "(expand-context/outer1.1" -" inner367_0" -" post-expansion-scope366_0" -"(root-expand-context/outer-post-expansion-shifts" -" the-struct_93)" +" inner332_0" +"(root-expand-context/outer-post-expansion" +" the-struct_105)" "(root-expand-context/outer-use-site-scopes" -" the-struct_93)" +" the-struct_105)" "(root-expand-context/outer-frame-id" -" the-struct_93)" -"(expand-context/outer-context" -" the-struct_93)" +" the-struct_105)" +" context329_0" "(expand-context/outer-env" -" the-struct_93)" -"(expand-context/outer-post-expansion-scope-action" -" the-struct_93)" +" the-struct_105)" "(expand-context/outer-scopes" -" the-struct_93)" -" def-ctx-scopes365_0" +" the-struct_105)" +" def-ctx-scopes330_0" "(expand-context/outer-binding-layer" -" the-struct_93)" +" the-struct_105)" "(expand-context/outer-reference-records" -" the-struct_93)" +" the-struct_105)" "(expand-context/outer-only-immediate?" -" the-struct_93)" -"(expand-context/outer-need-eventually-defined" -" the-struct_93)" +" the-struct_105)" +" need-eventually-defined331_0" "(expand-context/outer-current-introduction-scopes" -" the-struct_93)" +" the-struct_105)" "(expand-context/outer-current-use-scopes" -" the-struct_93)" +" the-struct_105)" "(expand-context/outer-name" -" the-struct_93)))" +" the-struct_105)))" "(raise-argument-error" " 'struct-copy" -" \"expand-context/outer?\"" -" the-struct_93))))))" -"(let-values(((partially-expanded-bodys320_0)" -" partially-expanded-bodys_0)" -"((phase321_0)" -" phase_147)" -"((body-ctx322_0)" -" body-ctx_6)" -"((self323_0)" +" \"expand-context/outer?\"" +" the-struct_105))))))" +"(let-values(((partially-expanded-bodys_0)" +"(let-values(((bodys350_0)" +" bodys_17)" +"((phase351_0)" +" phase_146)" +"((partial-body-ctx352_0)" +" partial-body-ctx_0)" +"((m-ns353_0)" +" m-ns_19)" +"((self354_0)" " self_32)" -"((declared-submodule-names324_0)" -" declared-submodule-names_3)" -"((compiled-submodules325_0)" -" compiled-submodules_1)" -"((modules-being-compiled326_0)" -" modules-being-compiled_3)" -"((mpis-to-reset327_0)" -" mpis-to-reset_0))" -"(finish-expanding-body-expressons99.1" -" compiled-submodules325_0" -" body-ctx322_0" -" declared-submodule-names324_0" -" modules-being-compiled326_0" -" mpis-to-reset327_0" -" phase321_0" -" self323_0" -" partially-expanded-bodys320_0))))))))))))" -" pass-1-and-2-loop_0)" -" bodys_16" -" phase_146)))" -"(let-values((()" -"(begin" -"(check-defined-by-now" -" need-eventually-defined_1" -" self_32" -" ctx_112" +"((frame-id355_0)" +" frame-id_16)" +"((requires+provides356_0)" " requires+provides_6)" -"(values))))" +"((need-eventually-defined357_0)" +" need-eventually-defined_1)" +"((all-scopes-s358_0)" +" all-scopes-s_0)" +"((defined-syms359_0)" +" defined-syms_11)" +"((declared-keywords360_0)" +" declared-keywords_0)" +"((declared-submodule-names361_0)" +" declared-submodule-names_3)" +"((compiled-submodules362_0)" +" compiled-submodules_1)" +"((modules-being-compiled363_0)" +" modules-being-compiled_3)" +"((mpis-to-reset364_0)" +" mpis-to-reset_0)" +"((pass-1-and-2-loop365_0)" +" pass-1-and-2-loop_0))" +"(partially-expand-bodys81.1" +" all-scopes-s358_0" +" compiled-submodules362_0" +" partial-body-ctx352_0" +" declared-keywords360_0" +" declared-submodule-names361_0" +" defined-syms359_0" +" frame-id355_0" +" pass-1-and-2-loop365_0" +" modules-being-compiled363_0" +" mpis-to-reset364_0" +" m-ns353_0" +" need-eventually-defined357_0" +" phase351_0" +" requires+provides356_0" +" self354_0" +" bodys350_0))))" "(let-values((()" "(begin" "(let-values(((obs_131)" "(expand-context-observer" -" ctx_112)))" +" partial-body-ctx_0)))" "(if obs_131" "(let-values()" "(let-values()" @@ -72780,29 +72507,197 @@ static const char *startup_source = " 'next-group)))" "(void)))" "(values))))" -"(let-values(((fully-expanded-bodys-except-post-submodules_0)" -"(let-values(((expression-expanded-bodys373_0)" -" expression-expanded-bodys_0)" -"((requires+provides374_0)" -" requires+provides_6)" -"((declared-submodule-names375_0)" -" declared-submodule-names_3)" -"((m-ns376_0)" -" m-ns_19)" -"((phase377_0)" +"(let-values(((body-ctx_6)" +"(let-values(((v_270)" +"(accumulate-def-ctx-scopes" +" partial-body-ctx_0" +" def-ctx-scopes_8)))" +"(let-values(((the-struct_107)" +" v_270))" +"(if(expand-context/outer?" +" the-struct_107)" +"(let-values(((def-ctx-scopes366_0)" +" #f)" +"((post-expansion367_0)" +" #f)" +"((inner368_0)" +"(let-values(((the-struct_108)" +"(root-expand-context/outer-inner" +" v_270)))" +"(if(expand-context/inner?" +" the-struct_108)" +"(let-values(((stops369_0)" +" empty-free-id-set)" +"((to-module-lifts370_0)" +"(let-values(((phase371_0)" " phase_146)" -"((self378_0)" +"((module-ends372_0)" +" module-ends_0)" +"((temp373_0)" +" #t))" +"(make-to-module-lift-context27.1" +" temp373_0" +" module-ends372_0" +" phase371_0))))" +"(expand-context/inner2.1" +"(root-expand-context/inner-self-mpi" +" the-struct_108)" +"(root-expand-context/inner-module-scopes" +" the-struct_108)" +"(root-expand-context/inner-top-level-bind-scope" +" the-struct_108)" +"(root-expand-context/inner-all-scopes-stx" +" the-struct_108)" +"(root-expand-context/inner-defined-syms" +" the-struct_108)" +"(root-expand-context/inner-counter" +" the-struct_108)" +"(root-expand-context/inner-lift-key" +" the-struct_108)" +"(expand-context/inner-to-parsed?" +" the-struct_108)" +"(expand-context/inner-phase" +" the-struct_108)" +"(expand-context/inner-namespace" +" the-struct_108)" +"(expand-context/inner-just-once?" +" the-struct_108)" +"(expand-context/inner-module-begin-k" +" the-struct_108)" +"(expand-context/inner-allow-unbound?" +" the-struct_108)" +"(expand-context/inner-in-local-expand?" +" the-struct_108)" +"(expand-context/inner-keep-#%expression?" +" the-struct_108)" +" stops369_0" +"(expand-context/inner-declared-submodule-names" +" the-struct_108)" +"(expand-context/inner-lifts" +" the-struct_108)" +"(expand-context/inner-lift-envs" +" the-struct_108)" +"(expand-context/inner-module-lifts" +" the-struct_108)" +"(expand-context/inner-require-lifts" +" the-struct_108)" +" to-module-lifts370_0" +"(expand-context/inner-requires+provides" +" the-struct_108)" +"(expand-context/inner-observer" +" the-struct_108)" +"(expand-context/inner-for-serializable?" +" the-struct_108)" +"(expand-context/inner-should-not-encounter-macros?" +" the-struct_108)))" +"(raise-argument-error" +" 'struct-copy" +" \"expand-context/inner?\"" +" the-struct_108)))))" +"(expand-context/outer1.1" +" inner368_0" +" post-expansion367_0" +"(root-expand-context/outer-use-site-scopes" +" the-struct_107)" +"(root-expand-context/outer-frame-id" +" the-struct_107)" +"(expand-context/outer-context" +" the-struct_107)" +"(expand-context/outer-env" +" the-struct_107)" +"(expand-context/outer-scopes" +" the-struct_107)" +" def-ctx-scopes366_0" +"(expand-context/outer-binding-layer" +" the-struct_107)" +"(expand-context/outer-reference-records" +" the-struct_107)" +"(expand-context/outer-only-immediate?" +" the-struct_107)" +"(expand-context/outer-need-eventually-defined" +" the-struct_107)" +"(expand-context/outer-current-introduction-scopes" +" the-struct_107)" +"(expand-context/outer-current-use-scopes" +" the-struct_107)" +"(expand-context/outer-name" +" the-struct_107)))" +"(raise-argument-error" +" 'struct-copy" +" \"expand-context/outer?\"" +" the-struct_107))))))" +"(let-values(((partially-expanded-bodys321_0)" +" partially-expanded-bodys_0)" +"((phase322_0)" +" phase_146)" +"((body-ctx323_0)" +" body-ctx_6)" +"((self324_0)" " self_32)" -"((ctx379_0)" -" ctx_112))" +"((declared-submodule-names325_0)" +" declared-submodule-names_3)" +"((compiled-submodules326_0)" +" compiled-submodules_1)" +"((modules-being-compiled327_0)" +" modules-being-compiled_3)" +"((mpis-to-reset328_0)" +" mpis-to-reset_0))" +"(finish-expanding-body-expressons99.1" +" compiled-submodules326_0" +" body-ctx323_0" +" declared-submodule-names325_0" +" modules-being-compiled327_0" +" mpis-to-reset328_0" +" phase322_0" +" self324_0" +" partially-expanded-bodys321_0))))))))))))" +" pass-1-and-2-loop_0)" +" bodys_16" +" phase_145)))" +"(let-values((()" +"(begin" +"(check-defined-by-now" +" need-eventually-defined_1" +" self_32" +" ctx_23" +" requires+provides_6)" +"(values))))" +"(let-values((()" +"(begin" +"(let-values(((obs_26)" +"(expand-context-observer" +" ctx_23)))" +"(if obs_26" +"(let-values()" +"(let-values()" +"(call-expand-observe" +" obs_26" +" 'next-group)))" +"(void)))" +"(values))))" +"(let-values(((fully-expanded-bodys-except-post-submodules_0)" +"(let-values(((expression-expanded-bodys374_0)" +" expression-expanded-bodys_0)" +"((requires+provides375_0)" +" requires+provides_6)" +"((declared-submodule-names376_0)" +" declared-submodule-names_3)" +"((m-ns377_0)" +" m-ns_19)" +"((phase378_0)" +" phase_145)" +"((self379_0)" +" self_32)" +"((ctx380_0)" +" ctx_23))" "(resolve-provides115.1" -" ctx379_0" -" declared-submodule-names375_0" -" m-ns376_0" -" phase377_0" -" requires+provides374_0" -" self378_0" -" expression-expanded-bodys373_0))))" +" ctx380_0" +" declared-submodule-names376_0" +" m-ns377_0" +" phase378_0" +" requires+provides375_0" +" self379_0" +" expression-expanded-bodys374_0))))" "(let-values(((is-cross-phase-persistent?_1)" "(hash-ref" " declared-keywords_0" @@ -72831,218 +72726,214 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(let-values(((obs_132)" +"(let-values(((obs_77)" "(expand-context-observer" -" ctx_112)))" -"(if obs_132" +" ctx_23)))" +"(if obs_77" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_132" +" obs_77" " 'next)))" "(void)))" "(values))))" "(let-values(((submod-m-ns_0)" -"(let-values(((m-ns380_0)" +"(let-values(((m-ns381_0)" " m-ns_19)" -"((temp381_0)" +"((temp382_1)" " #t))" "(make-m-ns244_0" -" temp381_0" -" m-ns380_0))))" +" temp382_1" +" m-ns381_0))))" "(let-values(((submod-ctx_0)" -"(let-values(((v_271)" -" ctx_112))" -"(let-values(((the-struct_107)" -" v_271))" +"(let-values(((v_190)" +" ctx_23))" +"(let-values(((the-struct_58)" +" v_190))" "(if(expand-context/outer?" -" the-struct_107)" -"(let-values(((frame-id382_0)" +" the-struct_58)" +"(let-values(((frame-id383_0)" " #f)" -"((post-expansion-scope383_0)" +"((post-expansion384_0)" " #f)" -"((inner384_0)" -"(let-values(((the-struct_108)" +"((inner385_0)" +"(let-values(((the-struct_109)" "(root-expand-context/outer-inner" -" v_271)))" +" v_190)))" "(if(expand-context/inner?" -" the-struct_108)" -"(let-values(((namespace385_0)" +" the-struct_109)" +"(let-values(((namespace386_0)" " submod-m-ns_0))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi" -" the-struct_108)" +" the-struct_109)" "(root-expand-context/inner-module-scopes" -" the-struct_108)" +" the-struct_109)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_108)" +" the-struct_109)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_108)" +" the-struct_109)" "(root-expand-context/inner-defined-syms" -" the-struct_108)" +" the-struct_109)" "(root-expand-context/inner-counter" -" the-struct_108)" +" the-struct_109)" "(root-expand-context/inner-lift-key" -" the-struct_108)" +" the-struct_109)" "(expand-context/inner-to-parsed?" -" the-struct_108)" +" the-struct_109)" "(expand-context/inner-phase" -" the-struct_108)" -" namespace385_0" +" the-struct_109)" +" namespace386_0" "(expand-context/inner-just-once?" -" the-struct_108)" +" the-struct_109)" "(expand-context/inner-module-begin-k" -" the-struct_108)" +" the-struct_109)" "(expand-context/inner-allow-unbound?" -" the-struct_108)" +" the-struct_109)" "(expand-context/inner-in-local-expand?" -" the-struct_108)" +" the-struct_109)" "(expand-context/inner-keep-#%expression?" -" the-struct_108)" +" the-struct_109)" "(expand-context/inner-stops" -" the-struct_108)" +" the-struct_109)" "(expand-context/inner-declared-submodule-names" -" the-struct_108)" +" the-struct_109)" "(expand-context/inner-lifts" -" the-struct_108)" +" the-struct_109)" "(expand-context/inner-lift-envs" -" the-struct_108)" +" the-struct_109)" "(expand-context/inner-module-lifts" -" the-struct_108)" +" the-struct_109)" "(expand-context/inner-require-lifts" -" the-struct_108)" +" the-struct_109)" "(expand-context/inner-to-module-lifts" -" the-struct_108)" +" the-struct_109)" "(expand-context/inner-requires+provides" -" the-struct_108)" +" the-struct_109)" "(expand-context/inner-observer" -" the-struct_108)" +" the-struct_109)" "(expand-context/inner-for-serializable?" -" the-struct_108)" +" the-struct_109)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_108)))" +" the-struct_109)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_108)))))" +" the-struct_109)))))" "(expand-context/outer1.1" -" inner384_0" -" post-expansion-scope383_0" -"(root-expand-context/outer-post-expansion-shifts" -" the-struct_107)" +" inner385_0" +" post-expansion384_0" "(root-expand-context/outer-use-site-scopes" -" the-struct_107)" -" frame-id382_0" +" the-struct_58)" +" frame-id383_0" "(expand-context/outer-context" -" the-struct_107)" +" the-struct_58)" "(expand-context/outer-env" -" the-struct_107)" -"(expand-context/outer-post-expansion-scope-action" -" the-struct_107)" +" the-struct_58)" "(expand-context/outer-scopes" -" the-struct_107)" +" the-struct_58)" "(expand-context/outer-def-ctx-scopes" -" the-struct_107)" +" the-struct_58)" "(expand-context/outer-binding-layer" -" the-struct_107)" +" the-struct_58)" "(expand-context/outer-reference-records" -" the-struct_107)" +" the-struct_58)" "(expand-context/outer-only-immediate?" -" the-struct_107)" +" the-struct_58)" "(expand-context/outer-need-eventually-defined" -" the-struct_107)" +" the-struct_58)" "(expand-context/outer-current-introduction-scopes" -" the-struct_107)" +" the-struct_58)" "(expand-context/outer-current-use-scopes" -" the-struct_107)" +" the-struct_58)" "(expand-context/outer-name" -" the-struct_107)))" +" the-struct_58)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_107))))))" +" the-struct_58))))))" "(let-values(((declare-enclosing-module_0)" "(delay" "(lambda()" "(begin" " 'declare-enclosing-module" -"(let-values(((fully-expanded-bodys-except-post-submodules386_0)" +"(let-values(((fully-expanded-bodys-except-post-submodules387_0)" " fully-expanded-bodys-except-post-submodules_0)" -"((temp387_0)" +"((temp388_0)" " id:module-name229_0)" -"((rebuild-s388_0)" +"((rebuild-s389_0)" " rebuild-s_14)" -"((requires+provides389_0)" +"((requires+provides390_0)" " requires+provides_6)" -"((submod-m-ns390_0)" +"((submod-m-ns391_0)" " submod-m-ns_0)" -"((self391_0)" +"((self392_0)" " self_32)" -"((enclosing-self392_0)" +"((enclosing-self393_0)" " enclosing-self_1)" -"((root-ctx393_0)" +"((root-ctx394_0)" " root-ctx_6)" -"((submod-ctx394_0)" +"((submod-ctx395_0)" " submod-ctx_0)" -"((modules-being-compiled395_0)" +"((modules-being-compiled396_0)" " modules-being-compiled_3)" -"((compiled-module-box396_0)" +"((compiled-module-box397_0)" " compiled-module-box_0))" "(declare-module-for-expansion139.1" -" submod-ctx394_0" -" enclosing-self392_0" -" compiled-module-box396_0" -" temp387_0" -" modules-being-compiled395_0" -" submod-m-ns390_0" -" rebuild-s388_0" -" requires+provides389_0" -" root-ctx393_0" -" self391_0" -" fully-expanded-bodys-except-post-submodules386_0)))))))" +" submod-ctx395_0" +" enclosing-self393_0" +" compiled-module-box397_0" +" temp388_0" +" modules-being-compiled396_0" +" submod-m-ns391_0" +" rebuild-s389_0" +" requires+provides390_0" +" root-ctx394_0" +" self392_0" +" fully-expanded-bodys-except-post-submodules387_0)))))))" "(let-values(((fully-expanded-bodys_0)" "(if(stop-at-module*?" " submod-ctx_0)" "(let-values()" " fully-expanded-bodys-except-post-submodules_0)" "(let-values()" -"(let-values(((fully-expanded-bodys-except-post-submodules397_0)" +"(let-values(((fully-expanded-bodys-except-post-submodules398_0)" " fully-expanded-bodys-except-post-submodules_0)" -"((declare-enclosing-module398_0)" +"((declare-enclosing-module399_0)" " declare-enclosing-module_0)" -"((phase399_0)" -" phase_146)" -"((self400_0)" +"((phase400_0)" +" phase_145)" +"((self401_0)" " self_32)" -"((requires+provides401_0)" +"((requires+provides402_0)" " requires+provides_6)" -"((is-cross-phase-persistent?402_0)" +"((is-cross-phase-persistent?403_0)" " is-cross-phase-persistent?_1)" -"((all-scopes-s403_0)" +"((all-scopes-s404_0)" " all-scopes-s_0)" -"((mpis-to-reset404_0)" +"((mpis-to-reset405_0)" " mpis-to-reset_0)" -"((declared-submodule-names405_0)" +"((declared-submodule-names406_0)" " declared-submodule-names_3)" -"((compiled-submodules406_0)" +"((compiled-submodules407_0)" " compiled-submodules_1)" -"((modules-being-compiled407_0)" +"((modules-being-compiled408_0)" " modules-being-compiled_3)" -"((submod-ctx408_0)" +"((submod-ctx409_0)" " submod-ctx_0))" "(expand-post-submodules165.1" -" all-scopes-s403_0" -" compiled-submodules406_0" -" submod-ctx408_0" -" declare-enclosing-module398_0" -" declared-submodule-names405_0" -" is-cross-phase-persistent?402_0" -" modules-being-compiled407_0" -" mpis-to-reset404_0" -" phase399_0" -" requires+provides401_0" -" self400_0" -" fully-expanded-bodys-except-post-submodules397_0))))))" +" all-scopes-s404_0" +" compiled-submodules407_0" +" submod-ctx409_0" +" declare-enclosing-module399_0" +" declared-submodule-names406_0" +" is-cross-phase-persistent?403_0" +" modules-being-compiled408_0" +" mpis-to-reset405_0" +" phase400_0" +" requires+provides402_0" +" self401_0" +" fully-expanded-bodys-except-post-submodules398_0))))))" "(if(expand-context-to-parsed?" " submod-ctx_0)" "(let-values()" @@ -73052,17 +72943,17 @@ static const char *startup_source = " fully-expanded-bodys_0)))" "(let-values()" "(let-values(((mb-result-s_0)" -"(let-values(((rebuild-mb-s409_0)" +"(let-values(((rebuild-mb-s410_0)" " rebuild-mb-s_0)" -"((temp410_1)" +"((temp411_1)" "(list*" " #%module-begin301_0" "(syntax-only" " fully-expanded-bodys_0))))" "(rebuild5.1" " #t" -" rebuild-mb-s409_0" -" temp410_1))))" +" rebuild-mb-s410_0" +" temp411_1))))" "(if(not" "(expand-context-in-local-expand?" " submod-ctx_0))" @@ -73076,191 +72967,98 @@ static const char *startup_source = "(let-values()" " mb-result-s_0)))))))))))))))))))))))))))))))))" "(let-values(((mb-ctx_0)" -"(let-values(((v_272)" -" ctx_111))" -"(let-values(((the-struct_24)" -" v_272))" +"(let-values(((v_271)" +" ctx_112))" +"(let-values(((the-struct_110)" +" v_271))" "(if(expand-context/outer?" -" the-struct_24)" -"(let-values(((context411_0)" +" the-struct_110)" +"(let-values(((context412_0)" " 'module-begin)" -"((inner412_0)" -"(let-values(((the-struct_109)" +"((inner413_0)" +"(let-values(((the-struct_111)" "(root-expand-context/outer-inner" -" v_272)))" +" v_271)))" "(if(expand-context/inner?" -" the-struct_109)" -"(let-values(((module-begin-k413_0)" +" the-struct_111)" +"(let-values(((module-begin-k414_0)" " module-begin-k_1)" -"((in-local-expand?414_0)" +"((in-local-expand?415_0)" " #f)" -"((lifts415_0)" +"((lifts416_0)" " #f)" -"((module-lifts416_0)" +"((module-lifts417_0)" " #f)" -"((to-module-lifts417_0)" +"((to-module-lifts418_0)" " #f)" -"((require-lifts418_0)" +"((require-lifts419_0)" " #f))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi" -" the-struct_109)" +" the-struct_111)" "(root-expand-context/inner-module-scopes" -" the-struct_109)" +" the-struct_111)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_109)" +" the-struct_111)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_109)" +" the-struct_111)" "(root-expand-context/inner-defined-syms" -" the-struct_109)" +" the-struct_111)" "(root-expand-context/inner-counter" -" the-struct_109)" +" the-struct_111)" "(root-expand-context/inner-lift-key" -" the-struct_109)" +" the-struct_111)" "(expand-context/inner-to-parsed?" -" the-struct_109)" +" the-struct_111)" "(expand-context/inner-phase" -" the-struct_109)" +" the-struct_111)" "(expand-context/inner-namespace" -" the-struct_109)" +" the-struct_111)" "(expand-context/inner-just-once?" -" the-struct_109)" -" module-begin-k413_0" +" the-struct_111)" +" module-begin-k414_0" "(expand-context/inner-allow-unbound?" -" the-struct_109)" -" in-local-expand?414_0" +" the-struct_111)" +" in-local-expand?415_0" "(expand-context/inner-keep-#%expression?" -" the-struct_109)" +" the-struct_111)" "(expand-context/inner-stops" -" the-struct_109)" +" the-struct_111)" "(expand-context/inner-declared-submodule-names" -" the-struct_109)" -" lifts415_0" +" the-struct_111)" +" lifts416_0" "(expand-context/inner-lift-envs" -" the-struct_109)" -" module-lifts416_0" -" require-lifts418_0" -" to-module-lifts417_0" +" the-struct_111)" +" module-lifts417_0" +" require-lifts419_0" +" to-module-lifts418_0" "(expand-context/inner-requires+provides" -" the-struct_109)" +" the-struct_111)" "(expand-context/inner-observer" -" the-struct_109)" +" the-struct_111)" "(expand-context/inner-for-serializable?" -" the-struct_109)" +" the-struct_111)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_109)))" +" the-struct_111)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_109)))))" +" the-struct_111)))))" "(expand-context/outer1.1" -" inner412_0" -"(root-expand-context/outer-post-expansion-scope" -" the-struct_24)" -"(root-expand-context/outer-post-expansion-shifts" -" the-struct_24)" +" inner413_0" +"(root-expand-context/outer-post-expansion" +" the-struct_110)" "(root-expand-context/outer-use-site-scopes" -" the-struct_24)" +" the-struct_110)" "(root-expand-context/outer-frame-id" -" the-struct_24)" -" context411_0" +" the-struct_110)" +" context412_0" "(expand-context/outer-env" -" the-struct_24)" -"(expand-context/outer-post-expansion-scope-action" -" the-struct_24)" +" the-struct_110)" "(expand-context/outer-scopes" -" the-struct_24)" +" the-struct_110)" "(expand-context/outer-def-ctx-scopes" -" the-struct_24)" -"(expand-context/outer-binding-layer" -" the-struct_24)" -"(expand-context/outer-reference-records" -" the-struct_24)" -"(expand-context/outer-only-immediate?" -" the-struct_24)" -"(expand-context/outer-need-eventually-defined" -" the-struct_24)" -"(expand-context/outer-current-introduction-scopes" -" the-struct_24)" -"(expand-context/outer-current-use-scopes" -" the-struct_24)" -"(expand-context/outer-name" -" the-struct_24)))" -"(raise-argument-error" -" 'struct-copy" -" \"expand-context/outer?\"" -" the-struct_24))))))" -"(let-values(((mb-scopes-s_0)" -"(if keep-enclosing-scope-at-phase_0" -"(apply-module-scopes_0" -" disarmed-s_24)" -" all-scopes-s_0)))" -"(let-values(((mb-def-ctx-scopes_0)" -"(box" -" null)))" -"(let-values(((mb_0)" -"(let-values(((bodys419_0)" -" bodys_15)" -"((module-name-sym420_0)" -" module-name-sym_0)" -"((mb-scopes-s421_0)" -" mb-scopes-s_0)" -"((m-ns422_0)" -" m-ns_19)" -"((mb-ctx423_0)" -" mb-ctx_0)" -"((mb-def-ctx-scopes424_0)" -" mb-def-ctx-scopes_0)" -"((phase425_0)" -" phase_146)" -"((s426_0)" -" s_805))" -"(ensure-module-begin36.1" -" mb-ctx423_0" -" mb-def-ctx-scopes424_0" -" m-ns422_0" -" module-name-sym420_0" -" phase425_0" -" s426_0" -" mb-scopes-s421_0" -" bodys419_0))))" -"(let-values(((expanded-mb_0)" -"(let-values()" -"(let-values(((mb427_0)" -" mb_0)" -"((temp428_1)" -"(let-values(((v_273)" -"(accumulate-def-ctx-scopes" -" mb-ctx_0" -" mb-def-ctx-scopes_0)))" -"(let-values(((the-struct_110)" -" v_273))" -"(if(expand-context/outer?" " the-struct_110)" -"(let-values(((def-ctx-scopes429_0)" -" #f)" -"((inner430_0)" -"(root-expand-context/outer-inner" -" v_273)))" -"(expand-context/outer1.1" -" inner430_0" -"(root-expand-context/outer-post-expansion-scope" -" the-struct_110)" -"(root-expand-context/outer-post-expansion-shifts" -" the-struct_110)" -"(root-expand-context/outer-use-site-scopes" -" the-struct_110)" -"(root-expand-context/outer-frame-id" -" the-struct_110)" -"(expand-context/outer-context" -" the-struct_110)" -"(expand-context/outer-env" -" the-struct_110)" -"(expand-context/outer-post-expansion-scope-action" -" the-struct_110)" -"(expand-context/outer-scopes" -" the-struct_110)" -" def-ctx-scopes429_0" "(expand-context/outer-binding-layer" " the-struct_110)" "(expand-context/outer-reference-records" @@ -73277,14 +73075,99 @@ static const char *startup_source = " the-struct_110)))" "(raise-argument-error" " 'struct-copy" -" \"expand-context/outer?\"" +" \"expand-context/outer?\"" " the-struct_110))))))" +"(let-values(((mb-scopes-s_0)" +"(if keep-enclosing-scope-at-phase_0" +"(apply-module-scopes_0" +" disarmed-s_24)" +" all-scopes-s_0)))" +"(let-values(((mb-def-ctx-scopes_0)" +"(box" +" null)))" +"(let-values(((mb_0)" +"(let-values(((bodys420_0)" +" bodys_15)" +"((module-name-sym421_0)" +" module-name-sym_0)" +"((mb-scopes-s422_0)" +" mb-scopes-s_0)" +"((m-ns423_0)" +" m-ns_19)" +"((mb-ctx424_0)" +" mb-ctx_0)" +"((mb-def-ctx-scopes425_0)" +" mb-def-ctx-scopes_0)" +"((phase426_0)" +" phase_145)" +"((s427_0)" +" s_805))" +"(ensure-module-begin36.1" +" mb-ctx424_0" +" mb-def-ctx-scopes425_0" +" m-ns423_0" +" module-name-sym421_0" +" phase426_0" +" s427_0" +" mb-scopes-s422_0" +" bodys420_0))))" +"(let-values(((expanded-mb_0)" +"(let-values()" +"(let-values(((mb428_0)" +" mb_0)" +"((temp429_0)" +"(let-values(((v_272)" +"(accumulate-def-ctx-scopes" +" mb-ctx_0" +" mb-def-ctx-scopes_0)))" +"(let-values(((the-struct_112)" +" v_272))" +"(if(expand-context/outer?" +" the-struct_112)" +"(let-values(((def-ctx-scopes430_0)" +" #f)" +"((inner431_0)" +"(root-expand-context/outer-inner" +" v_272)))" +"(expand-context/outer1.1" +" inner431_0" +"(root-expand-context/outer-post-expansion" +" the-struct_112)" +"(root-expand-context/outer-use-site-scopes" +" the-struct_112)" +"(root-expand-context/outer-frame-id" +" the-struct_112)" +"(expand-context/outer-context" +" the-struct_112)" +"(expand-context/outer-env" +" the-struct_112)" +"(expand-context/outer-scopes" +" the-struct_112)" +" def-ctx-scopes430_0" +"(expand-context/outer-binding-layer" +" the-struct_112)" +"(expand-context/outer-reference-records" +" the-struct_112)" +"(expand-context/outer-only-immediate?" +" the-struct_112)" +"(expand-context/outer-need-eventually-defined" +" the-struct_112)" +"(expand-context/outer-current-introduction-scopes" +" the-struct_112)" +"(expand-context/outer-current-use-scopes" +" the-struct_112)" +"(expand-context/outer-name" +" the-struct_112)))" +"(raise-argument-error" +" 'struct-copy" +" \"expand-context/outer?\"" +" the-struct_112))))))" "(expand9.1" " #f" " #f" " #f" -" mb427_0" -" temp428_1)))))" +" mb428_0" +" temp429_0)))))" "(let-values(((requires_6" " provides_13)" "(extract-requires-and-provides" @@ -73292,11 +73175,11 @@ static const char *startup_source = " self_32" " self_32)))" "(let-values(((result-form_0)" -"(if(let-values(((or-part_405)" +"(if(let-values(((or-part_406)" "(expand-context-to-parsed?" " init-ctx_0)))" -"(if or-part_405" -" or-part_405" +"(if or-part_406" +" or-part_406" " always-produce-compiled?_0))" "(parsed-module25.1" " rebuild-s_14" @@ -73342,18 +73225,18 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_427)))" -"((letrec-values(((for-loop_331)" -"(lambda(lst_428)" +"((letrec-values(((for-loop_333)" +"(lambda(lst_303)" "(begin" " 'for-loop" "(if(pair?" -" lst_428)" +" lst_303)" "(let-values(((mpi_55)" "(unsafe-car" -" lst_428))" +" lst_303))" "((rest_251)" "(unsafe-cdr" -" lst_428)))" +" lst_303)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -73366,17 +73249,17 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_331" +"(for-loop_333" " rest_251)" "(values))))" "(values))))))" -" for-loop_331)" +" for-loop_333)" " lst_427)))" "(void)" "(let-values(((result-s_15)" -"(let-values(((rebuild-s431_0)" +"(let-values(((rebuild-s432_0)" " rebuild-s_14)" -"((temp432_0)" +"((temp433_0)" "(list" " module228_0" " id:module-name229_0" @@ -73385,20 +73268,20 @@ static const char *startup_source = " expanded-mb_0))))" "(rebuild5.1" " #t" -" rebuild-s431_0" -" temp432_0))))" +" rebuild-s432_0" +" temp433_0))))" "(let-values(((result-s_16)" -"(let-values(((result-s433_0)" +"(let-values(((result-s434_0)" " result-s_15)" -"((self434_0)" +"((self435_0)" " self_32)" -"((generic-self435_0)" +"((generic-self436_0)" " generic-self_0))" "(syntax-module-path-index-shift13.1" " #f" -" result-s433_0" -" self434_0" -" generic-self435_0" +" result-s434_0" +" self435_0" +" generic-self436_0" " #f))))" "(let-values(((result-s_17)" "(attach-root-expand-context-properties" @@ -73415,14 +73298,14 @@ static const char *startup_source = " #t)" " result-s_17)))" "(begin" -"(let-values(((obs_133)" +"(let-values(((obs_132)" "(expand-context-observer" " init-ctx_0)))" -"(if obs_133" +"(if obs_132" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_133" +" obs_132" " 'rename-one" " result-s_18)))" "(void)))" @@ -73448,104 +73331,102 @@ static const char *startup_source = "(let-values(((module-name-sym_1) module-name-sym21_0))" "(let-values(((scopes-s_0) scopes-s22_0))" "(let-values()" -"(let-values(((ctx_33) ctx24_0))" +"(let-values(((ctx_114) ctx24_0))" "(let-values(((def-ctx-scopes_9) def-ctx-scopes25_0))" -"(let-values(((phase_148) phase26_3))" -"(let-values(((s_382) s27_2))" +"(let-values(((phase_147) phase26_3))" +"(let-values(((s_385) s27_2))" "(let-values()" "(let-values(((make-mb-ctx_0)" "(lambda()" "(begin" " 'make-mb-ctx" -"(let-values(((v_274) ctx_33))" -"(let-values(((the-struct_111) v_274))" -"(if(expand-context/outer? the-struct_111)" -"(let-values(((context436_0) 'module-begin)" -"((only-immediate?437_0) #t)" -"((def-ctx-scopes438_0) def-ctx-scopes_9)" -"((inner439_0)(root-expand-context/outer-inner v_274)))" +"(let-values(((v_273) ctx_114))" +"(let-values(((the-struct_113) v_273))" +"(if(expand-context/outer? the-struct_113)" +"(let-values(((context437_0) 'module-begin)" +"((only-immediate?438_0) #t)" +"((def-ctx-scopes439_0) def-ctx-scopes_9)" +"((inner440_0)(root-expand-context/outer-inner v_273)))" "(expand-context/outer1.1" -" inner439_0" -"(root-expand-context/outer-post-expansion-scope the-struct_111)" -"(root-expand-context/outer-post-expansion-shifts the-struct_111)" -"(root-expand-context/outer-use-site-scopes the-struct_111)" -"(root-expand-context/outer-frame-id the-struct_111)" -" context436_0" -"(expand-context/outer-env the-struct_111)" -"(expand-context/outer-post-expansion-scope-action the-struct_111)" -"(expand-context/outer-scopes the-struct_111)" -" def-ctx-scopes438_0" -"(expand-context/outer-binding-layer the-struct_111)" -"(expand-context/outer-reference-records the-struct_111)" -" only-immediate?437_0" -"(expand-context/outer-need-eventually-defined the-struct_111)" -"(expand-context/outer-current-introduction-scopes the-struct_111)" -"(expand-context/outer-current-use-scopes the-struct_111)" -"(expand-context/outer-name the-struct_111)))" +" inner440_0" +"(root-expand-context/outer-post-expansion the-struct_113)" +"(root-expand-context/outer-use-site-scopes the-struct_113)" +"(root-expand-context/outer-frame-id the-struct_113)" +" context437_0" +"(expand-context/outer-env the-struct_113)" +"(expand-context/outer-scopes the-struct_113)" +" def-ctx-scopes439_0" +"(expand-context/outer-binding-layer the-struct_113)" +"(expand-context/outer-reference-records the-struct_113)" +" only-immediate?438_0" +"(expand-context/outer-need-eventually-defined the-struct_113)" +"(expand-context/outer-current-introduction-scopes the-struct_113)" +"(expand-context/outer-current-use-scopes the-struct_113)" +"(expand-context/outer-name the-struct_113)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_111))))))))" +" the-struct_113))))))))" "(let-values(((mb_1)" "(if(= 1(length bodys_18))" "(let-values()" "(begin" -"(let-values(((obs_134)(expand-context-observer ctx_33)))" -"(if obs_134" +"(let-values(((obs_133)(expand-context-observer ctx_114)))" +"(if obs_133" "(let-values()" "(let-values()" -"(call-expand-observe obs_134 'rename-one(car bodys_18))))" +"(call-expand-observe obs_133 'rename-one(car bodys_18))))" "(void)))" "(if(eq?" " '#%module-begin" -"(core-form-sym(syntax-disarm$1(car bodys_18)) phase_148))" +"(core-form-sym(syntax-disarm$1(car bodys_18)) phase_147))" "(let-values()(car bodys_18))" "(let-values()" "(let-values(((partly-expanded-body_0)" "(let-values()" -"(let-values(((temp440_0)" +"(let-values(((temp441_0)" "(add-enclosing-name-property" "(car bodys_18)" " module-name-sym_1))" -"((temp441_0)(make-mb-ctx_0)))" -"(expand9.1 #f #f #f temp440_0 temp441_0)))))" +"((temp442_0)(make-mb-ctx_0)))" +"(expand9.1 #f #f #f temp441_0 temp442_0)))))" "(if(eq?" " '#%module-begin" "(core-form-sym" "(syntax-disarm$1 partly-expanded-body_0)" -" phase_148))" +" phase_147))" "(let-values() partly-expanded-body_0)" "(let-values()" -"(let-values(((temp442_0)(list partly-expanded-body_0))" -"((s443_0) s_382)" -"((scopes-s444_0) scopes-s_0)" -"((phase445_0) phase_148)" -"((module-name-sym446_0) module-name-sym_1)" -"((temp447_0)(make-mb-ctx_0))" -"((temp448_1) #f))" +"(let-values(((temp443_0)(list partly-expanded-body_0))" +"((s444_0) s_385)" +"((scopes-s445_0) scopes-s_0)" +"((phase446_0) phase_147)" +"((module-name-sym447_0) module-name-sym_1)" +"((temp448_1)(make-mb-ctx_0))" +"((temp449_1) #f))" "(add-module-begin47.1" -" temp448_1" -" temp442_0" -" s443_0" -" scopes-s444_0" -" phase445_0" -" module-name-sym446_0" -" temp447_0)))))))))" +" temp449_1" +" temp443_0" +" s444_0" +" scopes-s445_0" +" phase446_0" +" module-name-sym447_0" +" temp448_1)))))))))" "(let-values()" -"(let-values(((bodys449_0) bodys_18)" -"((s450_0) s_382)" -"((scopes-s451_0) scopes-s_0)" -"((phase452_0) phase_148)" -"((module-name-sym453_0) module-name-sym_1)" -"((temp454_1)(make-mb-ctx_0)))" +"(let-values(((bodys450_0) bodys_18)" +"((s451_0) s_385)" +"((scopes-s452_0) scopes-s_0)" +"((phase453_0) phase_147)" +"((module-name-sym454_0) module-name-sym_1)" +"((temp455_0)(make-mb-ctx_0)))" "(add-module-begin47.1" " #t" -" bodys449_0" -" s450_0" -" scopes-s451_0" -" phase452_0" -" module-name-sym453_0" -" temp454_1))))))" +" bodys450_0" +" s451_0" +" scopes-s452_0" +" phase453_0" +" module-name-sym454_0" +" temp455_0))))))" "(add-enclosing-name-property mb_1 module-name-sym_1)))))))))))))))" "(define-values" "(add-module-begin47.1)" @@ -73553,9 +73434,9 @@ static const char *startup_source = "(begin" " 'add-module-begin47" "(let-values(((bodys_19) bodys41_0))" -"(let-values(((s_809) s42_0))" +"(let-values(((s_193) s42_0))" "(let-values(((scopes-s_1) scopes-s43_0))" -"(let-values(((phase_149) phase44_0))" +"(let-values(((phase_148) phase44_0))" "(let-values(((module-name-sym_2) module-name-sym45_0))" "(let-values(((mb-ctx_1) mb-ctx46_0))" "(let-values(((log-rename-one?_0) log-rename-one?39_0))" @@ -73564,53 +73445,53 @@ 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-id455_0) mb-id_0)((phase456_0) phase_149))" -"(resolve40.1 #f #f null #f mb-id455_0 phase456_0))" +"(if(let-values(((mb-id456_0) mb-id_0)((phase457_0) phase_148))" +"(resolve40.1 #f #f null #f mb-id456_0 phase457_0))" "(void)" "(let-values()" "(raise-syntax-error$1" " #f" " \"no #%module-begin binding in the module's language\"" -" s_809)))" +" s_193)))" "(values))))" "(let-values(((mb_2)" -"(datum->syntax$1 disarmed-scopes-s_0(list* mb-id_0 bodys_19) s_809 s_809)))" +"(datum->syntax$1 disarmed-scopes-s_0(list* mb-id_0 bodys_19) s_193 s_193)))" "(let-values((()" "(begin" -"(let-values(((obs_135)(expand-context-observer mb-ctx_1)))" -"(if obs_135" +"(let-values(((obs_134)(expand-context-observer mb-ctx_1)))" +"(if obs_134" "(let-values()" -"(let-values()(call-expand-observe obs_135 'tag mb_2)))" +"(let-values()(call-expand-observe obs_134 'tag mb_2)))" "(void)))" "(values))))" "(let-values((()" "(begin" "(if log-rename-one?_0" "(let-values()" -"(let-values(((obs_136)(expand-context-observer mb-ctx_1)))" -"(if obs_136" +"(let-values(((obs_135)(expand-context-observer mb-ctx_1)))" +"(if obs_135" "(let-values()" "(let-values()" -"(call-expand-observe obs_136 'rename-one mb_2)))" +"(call-expand-observe obs_135 'rename-one mb_2)))" "(void))))" "(void))" "(values))))" "(let-values(((partly-expanded-mb_0)" "(let-values()" -"(let-values(((temp457_0)" +"(let-values(((temp458_0)" "(add-enclosing-name-property mb_2 module-name-sym_2))" -"((mb-ctx458_0) mb-ctx_1))" -"(expand9.1 #f #f #f temp457_0 mb-ctx458_0)))))" +"((mb-ctx459_0) mb-ctx_1))" +"(expand9.1 #f #f #f temp458_0 mb-ctx459_0)))))" "(begin" "(if(eq?" " '#%module-begin" -"(core-form-sym(syntax-disarm$1 partly-expanded-mb_0) phase_149))" +"(core-form-sym(syntax-disarm$1 partly-expanded-mb_0) phase_148))" "(void)" "(let-values()" "(raise-syntax-error$1" " #f" " \"expansion of #%module-begin is not a #%plain-module-begin form\"" -" s_809" +" s_193" " partly-expanded-mb_0)))" " partly-expanded-mb_0)))))))))))))))))))" "(define-values" @@ -73626,39 +73507,39 @@ static const char *startup_source = " enclosing-self_2" " enclosing-mod_2)" "(begin" -"(lambda(s_810)" +"(lambda(s_811)" "(let-values()" "(let-values(((s-without-enclosing_0)" "(if keep-enclosing-scope-at-phase_1" -" s_810" +" s_811" "(remove-use-site-scopes" -"(remove-scopes s_810(root-expand-context-module-scopes init-ctx_1))" +"(remove-scopes s_811(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)))" "(let-values(((s-with-suitable-enclosing_0)" "(if keep-enclosing-scope-at-phase_1" "(let-values()" -"(let-values(((s-with-edges463_0) s-with-edges_0)" -"((enclosing-self464_0) enclosing-self_2)" -"((enclosing-mod465_0) enclosing-mod_2))" +"(let-values(((s-with-edges464_0) s-with-edges_0)" +"((enclosing-self465_0) enclosing-self_2)" +"((enclosing-mod466_0) enclosing-mod_2))" "(syntax-module-path-index-shift13.1" " #f" -" s-with-edges463_0" -" enclosing-self464_0" -" enclosing-mod465_0" +" s-with-edges464_0" +" enclosing-self465_0" +" enclosing-mod466_0" " #f)))" "(let-values() s-with-edges_0))))" -"(let-values(((s-with-suitable-enclosing459_0) s-with-suitable-enclosing_0)" -"((temp460_0)(make-generic-self-module-path-index self_33))" -"((self461_0) self_33)" -"((temp462_1)(current-code-inspector)))" +"(let-values(((s-with-suitable-enclosing460_0) s-with-suitable-enclosing_0)" +"((temp461_0)(make-generic-self-module-path-index self_33))" +"((self462_0) self_33)" +"((temp463_1)(current-code-inspector)))" "(syntax-module-path-index-shift13.1" " #f" -" s-with-suitable-enclosing459_0" -" temp460_0" -" self461_0" -" temp462_1))))))))))" +" s-with-suitable-enclosing460_0" +" temp461_0" +" self462_0" +" temp463_1))))))))))" "(define-values" "(partially-expand-bodys81.1)" "(lambda(all-scopes-stx57_0" @@ -73680,7 +73561,7 @@ static const char *startup_source = "(begin" " 'partially-expand-bodys81" "(let-values(((bodys_20) bodys80_0))" -"(let-values(((phase_52) phase50_0))" +"(let-values(((phase_107) phase50_0))" "(let-values(((partial-body-ctx_1) ctx51_0))" "(let-values(((m-ns_20) namespace52_0))" "(let-values(((self_34) self53_0))" @@ -73697,24 +73578,24 @@ 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_52)" +"(namespace-visit-available-modules! m-ns_20 phase_107)" "((letrec-values(((loop_125)" "(lambda(tail?_53 bodys_21)" "(begin" " 'loop" "(if(null? bodys_21)" "(let-values()" -"(if(if tail?_53(not(zero? phase_52)) #f)" +"(if(if tail?_53(not(zero? phase_107)) #f)" "(let-values()" "(begin" -"(let-values(((obs_137)" +"(let-values(((obs_92)" "(expand-context-observer" " partial-body-ctx_1)))" -"(if obs_137" +"(if obs_92" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_137" +" obs_92" " 'module-lift-end-loop" " '())))" "(void)))" @@ -73730,14 +73611,14 @@ static const char *startup_source = "(expand-context-to-module-lifts" " partial-body-ctx_1)))))" "(begin" -"(let-values(((obs_138)" +"(let-values(((obs_136)" "(expand-context-observer" " partial-body-ctx_1)))" -"(if obs_138" +"(if obs_136" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_138" +" obs_136" " 'module-lift-end-loop" " bodys_22)))" "(void)))" @@ -73754,29 +73635,29 @@ static const char *startup_source = "(let-values(((rest-bodys_1)(cdr bodys_21)))" "(let-values((()" "(begin" -"(let-values(((obs_139)" +"(let-values(((obs_137)" "(expand-context-observer" " partial-body-ctx_1)))" -"(if obs_139" +"(if obs_137" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_139" +" obs_137" " 'next)))" "(void)))" "(values))))" "(let-values(((exp-body_7)" "(let-values()" -"(let-values(((temp466_0)" +"(let-values(((temp467_0)" "(car bodys_21))" -"((partial-body-ctx467_0)" +"((partial-body-ctx468_0)" " partial-body-ctx_1))" "(expand9.1" " #f" " #f" " #f" -" temp466_0" -" partial-body-ctx467_0)))))" +" temp467_0" +" partial-body-ctx468_0)))))" "(let-values(((disarmed-exp-body_1)" "(syntax-disarm$1 exp-body_7)))" "(let-values(((lifted-defns_0)" @@ -73792,14 +73673,14 @@ static const char *startup_source = " exp-body_7" " rest-bodys_1))" "(void))" -"(let-values(((obs_140)" +"(let-values(((obs_138)" "(expand-context-observer" " partial-body-ctx_1)))" -"(if obs_140" +"(if obs_138" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_140" +" obs_138" " 'rename-one" " exp-body_7)))" "(void)))" @@ -73807,49 +73688,49 @@ static const char *startup_source = "(lambda()" "(begin" " 'finish" -"(let-values(((tmp_65)" +"(let-values(((tmp_23)" "(core-form-sym" " disarmed-exp-body_1" -" phase_52)))" +" phase_107)))" "(if(equal?" -" tmp_65" +" tmp_23" " 'begin)" "(let-values()" "(let-values(((ok?_81" -" begin468_0" -" e469_0)" -"(let-values(((s_811)" +" begin469_0" +" e470_0)" +"(let-values(((s_812)" " disarmed-exp-body_1))" "(let-values(((orig-s_85)" -" s_811))" -"(let-values(((begin468_1" -" e469_1)" -"(let-values(((s_812)" -"(if(syntax?$1" -" s_811)" -"(syntax-e$1" -" s_811)" -" s_811)))" -"(if(pair?" -" s_812)" -"(let-values(((begin470_0)" +" s_812))" +"(let-values(((begin469_1" +" e470_1)" "(let-values(((s_813)" -"(car" -" s_812)))" -" s_813))" -"((e471_0)" -"(let-values(((s_814)" -"(cdr" -" s_812)))" -"(let-values(((s_423)" "(if(syntax?$1" -" s_814)" +" s_812)" "(syntax-e$1" -" s_814)" -" s_814)))" +" s_812)" +" s_812)))" +"(if(pair?" +" s_813)" +"(let-values(((begin471_0)" +"(let-values(((s_814)" +"(car" +" s_813)))" +" s_814))" +"((e472_0)" +"(let-values(((s_815)" +"(cdr" +" s_813)))" +"(let-values(((s_816)" +"(if(syntax?$1" +" s_815)" +"(syntax-e$1" +" s_815)" +" s_815)))" "(let-values(((flat-s_58)" "(to-syntax-list.1" -" s_423)))" +" s_816)))" "(if(not" " flat-s_58)" "(let-values()" @@ -73860,16 +73741,16 @@ static const char *startup_source = "(let-values()" " flat-s_58)))))))" "(values" -" begin470_0" -" e471_0))" +" begin471_0" +" e472_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" " orig-s_85)))))" "(values" " #t" -" begin468_1" -" e469_1))))))" +" begin469_1" +" e470_1))))))" "(let-values(((track_1)" "(lambda(e_95)" "(begin" @@ -73881,9 +73762,60 @@ static const char *startup_source = "(append" "(map2" " track_1" -" e469_0)" +" e470_0)" " rest-bodys_1)))" "(begin" +"(let-values(((obs_139)" +"(expand-context-observer" +" partial-body-ctx_1)))" +"(if obs_139" +"(let-values()" +"(let-values()" +"(call-expand-observe" +" obs_139" +" 'splice" +" spliced-bodys_0)))" +"(void)))" +"(loop_125" +" tail?_53" +" spliced-bodys_0))))))" +"(if(equal?" +" tmp_23" +" 'begin-for-syntax)" +"(let-values()" +"(let-values((()" +"(begin" +"(let-values(((obs_140)" +"(expand-context-observer" +" partial-body-ctx_1)))" +"(if obs_140" +"(let-values()" +"(let-values()" +"(begin" +"(call-expand-observe" +" obs_140" +" 'enter-prim" +" exp-body_7)" +"(call-expand-observe" +" obs_140" +" 'prim-begin-for-syntax)" +"(call-expand-observe" +" obs_140" +" 'prepare-env))))" +"(void)))" +"(values))))" +"(let-values(((ct-m-ns_0)" +"(namespace->namespace-at-phase" +" m-ns_20" +"(add1" +" phase_107))))" +"(let-values((()" +"(begin" +"(prepare-next-phase-namespace" +" partial-body-ctx_1)" +"(values))))" +"(let-values((()" +"(begin" "(let-values(((obs_141)" "(expand-context-observer" " partial-body-ctx_1)))" @@ -73892,95 +73824,44 @@ static const char *startup_source = "(let-values()" "(call-expand-observe" " obs_141" -" 'splice" -" spliced-bodys_0)))" -"(void)))" -"(loop_125" -" tail?_53" -" spliced-bodys_0))))))" -"(if(equal?" -" tmp_65" -" 'begin-for-syntax)" -"(let-values()" -"(let-values((()" -"(begin" -"(let-values(((obs_142)" -"(expand-context-observer" -" partial-body-ctx_1)))" -"(if obs_142" -"(let-values()" -"(let-values()" -"(begin" -"(call-expand-observe" -" obs_142" -" 'enter-prim" -" exp-body_7)" -"(call-expand-observe" -" obs_142" -" 'prim-begin-for-syntax)" -"(call-expand-observe" -" obs_142" -" 'prepare-env))))" -"(void)))" -"(values))))" -"(let-values(((ct-m-ns_0)" -"(namespace->namespace-at-phase" -" m-ns_20" -"(add1" -" phase_52))))" -"(let-values((()" -"(begin" -"(prepare-next-phase-namespace" -" partial-body-ctx_1)" -"(values))))" -"(let-values((()" -"(begin" -"(let-values(((obs_143)" -"(expand-context-observer" -" partial-body-ctx_1)))" -"(if obs_143" -"(let-values()" -"(let-values()" -"(call-expand-observe" -" obs_143" " 'phase-up)))" "(void)))" "(values))))" "(let-values(((ok?_82" -" begin-for-syntax472_0" -" e473_0)" -"(let-values(((s_815)" +" begin-for-syntax473_0" +" e474_0)" +"(let-values(((s_817)" " disarmed-exp-body_1))" "(let-values(((orig-s_86)" -" s_815))" -"(let-values(((begin-for-syntax472_1" -" e473_1)" -"(let-values(((s_816)" -"(if(syntax?$1" -" s_815)" -"(syntax-e$1" -" s_815)" -" s_815)))" -"(if(pair?" -" s_816)" -"(let-values(((begin-for-syntax474_0)" -"(let-values(((s_817)" -"(car" -" s_816)))" " s_817))" -"((e475_0)" +"(let-values(((begin-for-syntax473_1" +" e474_1)" "(let-values(((s_818)" -"(cdr" -" s_816)))" -"(let-values(((s_819)" "(if(syntax?$1" -" s_818)" +" s_817)" "(syntax-e$1" +" s_817)" +" s_817)))" +"(if(pair?" " s_818)" +"(let-values(((begin-for-syntax475_0)" +"(let-values(((s_819)" +"(car" " s_818)))" +" s_819))" +"((e476_0)" +"(let-values(((s_820)" +"(cdr" +" s_818)))" +"(let-values(((s_821)" +"(if(syntax?$1" +" s_820)" +"(syntax-e$1" +" s_820)" +" s_820)))" "(let-values(((flat-s_59)" "(to-syntax-list.1" -" s_819)))" +" s_821)))" "(if(not" " flat-s_59)" "(let-values()" @@ -73991,58 +73872,58 @@ static const char *startup_source = "(let-values()" " flat-s_59)))))))" "(values" -" begin-for-syntax474_0" -" e475_0))" +" begin-for-syntax475_0" +" e476_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" " orig-s_86)))))" "(values" " #t" -" begin-for-syntax472_1" -" e473_1))))))" +" begin-for-syntax473_1" +" e474_1))))))" "(let-values(((nested-bodys_1)" "(pass-1-and-2-loop_1" -" e473_0" +" e474_0" "(add1" -" phase_52))))" +" phase_107))))" "(begin" -"(let-values(((obs_144)" +"(let-values(((obs_142)" "(expand-context-observer" " partial-body-ctx_1)))" -"(if obs_144" +"(if obs_142" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_144" +" obs_142" " 'next-group)))" "(void)))" "(namespace-run-available-modules!" " m-ns_20" "(add1" -" phase_52))" +" phase_107))" "(eval-nested-bodys" " nested-bodys_1" "(add1" -" phase_52)" +" phase_107)" " ct-m-ns_0" " self_34" " partial-body-ctx_1)" "(namespace-visit-available-modules!" " m-ns_20" -" phase_52)" -"(let-values(((obs_145)" +" phase_107)" +"(let-values(((obs_143)" "(expand-context-observer" " partial-body-ctx_1)))" -"(if obs_145" +"(if obs_143" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_145" +" obs_143" " 'exit-prim" "(let-values(((s-nested-bodys_0)" "(reverse$1" -"(let-values(((lst_255)" +"(let-values(((lst_428)" " nested-bodys_1))" "(begin" "(if(variable-reference-from-unsafe?" @@ -74050,46 +73931,46 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_255)))" -"((letrec-values(((for-loop_332)" -"(lambda(fold-var_374" -" lst_429)" +" lst_428)))" +"((letrec-values(((for-loop_334)" +"(lambda(fold-var_355" +" lst_389)" "(begin" " 'for-loop" "(if(pair?" -" lst_429)" +" lst_389)" "(let-values(((nested-body_0)" "(unsafe-car" -" lst_429))" +" lst_389))" "((rest_252)" "(unsafe-cdr" -" lst_429)))" +" lst_389)))" +"(let-values(((fold-var_374)" "(let-values(((fold-var_375)" +" fold-var_355))" "(let-values(((fold-var_376)" -" fold-var_374))" -"(let-values(((fold-var_356)" "(let-values()" "(cons" "(let-values()" "(extract-syntax" " nested-body_0))" -" fold-var_376))))" +" fold-var_375))))" "(values" -" fold-var_356)))))" +" fold-var_376)))))" "(if(not" " #f)" -"(for-loop_332" -" fold-var_375" +"(for-loop_334" +" fold-var_374" " rest_252)" -" fold-var_375)))" -" fold-var_374)))))" -" for-loop_332)" +" fold-var_374)))" +" fold-var_355)))))" +" for-loop_334)" " null" -" lst_255))))))" +" lst_428))))))" "(datum->syntax$1" " #f" "(cons" -" begin-for-syntax472_0" +" begin-for-syntax473_0" " s-nested-bodys_0)" " exp-body_7)))))" "(void)))" @@ -74101,11 +73982,358 @@ static const char *startup_source = " tail?_53" " rest-bodys_1))))))))))" "(if(equal?" -" tmp_65" +" tmp_23" " 'define-values)" "(let-values()" "(let-values((()" "(begin" +"(let-values(((obs_144)" +"(expand-context-observer" +" partial-body-ctx_1)))" +"(if obs_144" +"(let-values()" +"(let-values()" +"(begin" +"(call-expand-observe" +" obs_144" +" 'enter-prim" +" exp-body_7)" +"(call-expand-observe" +" obs_144" +" 'prim-define-values))))" +"(void)))" +"(values))))" +"(let-values(((ok?_83" +" define-values477_0" +" id478_0" +" rhs479_0)" +"(let-values(((s_822)" +" disarmed-exp-body_1))" +"(let-values(((orig-s_87)" +" s_822))" +"(let-values(((define-values477_1" +" id478_1" +" rhs479_1)" +"(let-values(((s_823)" +"(if(syntax?$1" +" s_822)" +"(syntax-e$1" +" s_822)" +" s_822)))" +"(if(pair?" +" s_823)" +"(let-values(((define-values480_0)" +"(let-values(((s_824)" +"(car" +" s_823)))" +" s_824))" +"((id481_0" +" rhs482_0)" +"(let-values(((s_825)" +"(cdr" +" s_823)))" +"(let-values(((s_826)" +"(if(syntax?$1" +" s_825)" +"(syntax-e$1" +" s_825)" +" s_825)))" +"(if(pair?" +" s_826)" +"(let-values(((id483_0)" +"(let-values(((s_827)" +"(car" +" s_826)))" +"(let-values(((s_828)" +"(if(syntax?$1" +" s_827)" +"(syntax-e$1" +" s_827)" +" s_827)))" +"(let-values(((flat-s_60)" +"(to-syntax-list.1" +" s_828)))" +"(if(not" +" flat-s_60)" +"(let-values()" +"(raise-syntax-error$1" +" #f" +" \"bad syntax\"" +" orig-s_87))" +"(let-values()" +"(let-values(((id_146)" +"(let-values(((lst_429)" +" flat-s_60))" +"(begin" +"(if(variable-reference-from-unsafe?" +"(#%variable-reference))" +"(void)" +"(let-values()" +"(check-list" +" lst_429)))" +"((letrec-values(((for-loop_335)" +"(lambda(id_147" +" lst_71)" +"(begin" +" 'for-loop" +"(if(pair?" +" lst_71)" +"(let-values(((s_829)" +"(unsafe-car" +" lst_71))" +"((rest_253)" +"(unsafe-cdr" +" lst_71)))" +"(let-values(((id_148)" +"(let-values(((id_149)" +" id_147))" +"(let-values(((id_150)" +"(let-values()" +"(let-values(((id496_0)" +"(let-values()" +"(if(let-values(((or-part_407)" +"(if(syntax?$1" +" s_829)" +"(symbol?" +"(syntax-e$1" +" s_829))" +" #f)))" +"(if or-part_407" +" or-part_407" +"(symbol?" +" s_829)))" +" s_829" +"(raise-syntax-error$1" +" #f" +" \"not an identifier\"" +" orig-s_87" +" s_829)))))" +"(cons" +" id496_0" +" id_149)))))" +"(values" +" id_150)))))" +"(if(not" +" #f)" +"(for-loop_335" +" id_148" +" rest_253)" +" id_148)))" +" id_147)))))" +" for-loop_335)" +" null" +" lst_429)))))" +"(reverse$1" +" id_146))))))))" +"((rhs484_0)" +"(let-values(((s_830)" +"(cdr" +" s_826)))" +"(let-values(((s_831)" +"(if(syntax?$1" +" s_830)" +"(syntax-e$1" +" s_830)" +" s_830)))" +"(if(pair?" +" s_831)" +"(let-values(((rhs485_0)" +"(let-values(((s_832)" +"(car" +" s_831)))" +" s_832))" +"(()" +"(let-values(((s_833)" +"(cdr" +" s_831)))" +"(let-values(((s_834)" +"(if(syntax?$1" +" s_833)" +"(syntax-e$1" +" s_833)" +" s_833)))" +"(if(null?" +" s_834)" +"(values)" +"(raise-syntax-error$1" +" #f" +" \"bad syntax\"" +" orig-s_87))))))" +"(values" +" rhs485_0))" +"(raise-syntax-error$1" +" #f" +" \"bad syntax\"" +" orig-s_87))))))" +"(values" +" id483_0" +" rhs484_0))" +"(raise-syntax-error$1" +" #f" +" \"bad syntax\"" +" orig-s_87))))))" +"(values" +" define-values480_0" +" id481_0" +" rhs482_0))" +"(raise-syntax-error$1" +" #f" +" \"bad syntax\"" +" orig-s_87)))))" +"(values" +" #t" +" define-values477_1" +" id478_1" +" rhs479_1))))))" +"(let-values(((ids_45)" +"(remove-use-site-scopes" +" id478_0" +" partial-body-ctx_1)))" +"(let-values((()" +"(begin" +"(let-values(((ids486_0)" +" ids_45)" +"((phase487_0)" +" phase_107)" +"((exp-body488_0)" +" exp-body_7))" +"(check-no-duplicate-ids7.1" +" unsafe-undefined" +" ids486_0" +" phase487_0" +" exp-body488_0" +" unsafe-undefined))" +"(values))))" +"(let-values((()" +"(begin" +"(let-values(((ids489_0)" +" ids_45)" +"((phase490_0)" +" phase_107)" +"((requires+provides491_0)" +" requires+provides_7)" +"((exp-body492_0)" +" exp-body_7))" +"(check-ids-unbound173.1" +" exp-body492_0" +" ids489_0" +" phase490_0" +" requires+provides491_0))" +"(values))))" +"(let-values(((syms_23)" +"(let-values(((ids497_0)" +" ids_45)" +"((defined-syms498_0)" +" defined-syms_12)" +"((self499_0)" +" self_34)" +"((phase500_0)" +" phase_107)" +"((all-scopes-stx501_0)" +" all-scopes-stx_5)" +"((frame-id502_0)" +" frame-id_17)" +"((requires+provides503_0)" +" requires+provides_7)" +"((exp-body504_0)" +" exp-body_7))" +"(select-defined-syms-and-bind!16.1" +" #f" +" frame-id502_0" +" exp-body504_0" +" requires+provides503_0" +" #f" +" ids497_0" +" defined-syms498_0" +" self499_0" +" phase500_0" +" all-scopes-stx501_0))))" +"(begin" +"(let-values(((lst_430)" +" syms_23))" +"(begin" +"(if(variable-reference-from-unsafe?" +"(#%variable-reference))" +"(void)" +"(let-values()" +"(check-list" +" lst_430)))" +"((letrec-values(((for-loop_336)" +"(lambda(lst_431)" +"(begin" +" 'for-loop" +"(if(pair?" +" lst_431)" +"(let-values(((sym_110)" +"(unsafe-car" +" lst_431))" +"((rest_254)" +"(unsafe-cdr" +" lst_431)))" +"(let-values((()" +"(let-values()" +"(let-values((()" +"(let-values()" +"(begin" +"(let-values()" +"(namespace-unset-transformer!" +" m-ns_20" +" phase_107" +" sym_110))" +"(values)))))" +"(values)))))" +"(if(not" +" #f)" +"(for-loop_336" +" rest_254)" +"(values))))" +"(values))))))" +" for-loop_336)" +" lst_430)))" +"(void)" +"(let-values(((requires+provides493_0)" +" requires+provides_7)" +"((syms494_0)" +" syms_23)" +"((phase495_0)" +" phase_107))" +"(add-defined-syms!103.1" +" #f" +" requires+provides493_0" +" syms494_0" +" phase495_0))" +"(let-values(((obs_145)" +"(expand-context-observer" +" partial-body-ctx_1)))" +"(if obs_145" +"(let-values()" +"(let-values()" +"(call-expand-observe" +" obs_145" +" 'exit-prim" +"(datum->syntax$1" +" #f" +"(list" +" define-values477_0" +" ids_45" +" rhs479_0)" +" exp-body_7))))" +"(void)))" +"(cons" +"(semi-parsed-define-values2.1" +" exp-body_7" +" syms_23" +" ids_45" +" rhs479_0)" +"(loop_125" +" tail?_53" +" rest-bodys_1))))))))))" +"(if(equal?" +" tmp_23" +" 'define-syntaxes)" +"(let-values()" +"(let-values((()" +"(begin" "(let-values(((obs_146)" "(expand-context-observer" " partial-body-ctx_1)))" @@ -74119,356 +74347,9 @@ static const char *startup_source = " exp-body_7)" "(call-expand-observe" " obs_146" -" 'prim-define-values))))" -"(void)))" -"(values))))" -"(let-values(((ok?_83" -" define-values476_0" -" id477_0" -" rhs478_0)" -"(let-values(((s_820)" -" disarmed-exp-body_1))" -"(let-values(((orig-s_87)" -" s_820))" -"(let-values(((define-values476_1" -" id477_1" -" rhs478_1)" -"(let-values(((s_821)" -"(if(syntax?$1" -" s_820)" -"(syntax-e$1" -" s_820)" -" s_820)))" -"(if(pair?" -" s_821)" -"(let-values(((define-values479_0)" -"(let-values(((s_822)" -"(car" -" s_821)))" -" s_822))" -"((id480_0" -" rhs481_0)" -"(let-values(((s_823)" -"(cdr" -" s_821)))" -"(let-values(((s_824)" -"(if(syntax?$1" -" s_823)" -"(syntax-e$1" -" s_823)" -" s_823)))" -"(if(pair?" -" s_824)" -"(let-values(((id482_0)" -"(let-values(((s_825)" -"(car" -" s_824)))" -"(let-values(((s_826)" -"(if(syntax?$1" -" s_825)" -"(syntax-e$1" -" s_825)" -" s_825)))" -"(let-values(((flat-s_60)" -"(to-syntax-list.1" -" s_826)))" -"(if(not" -" flat-s_60)" -"(let-values()" -"(raise-syntax-error$1" -" #f" -" \"bad syntax\"" -" orig-s_87))" -"(let-values()" -"(let-values(((id_145)" -"(let-values(((lst_70)" -" flat-s_60))" -"(begin" -"(if(variable-reference-from-unsafe?" -"(#%variable-reference))" -"(void)" -"(let-values()" -"(check-list" -" lst_70)))" -"((letrec-values(((for-loop_333)" -"(lambda(id_146" -" lst_430)" -"(begin" -" 'for-loop" -"(if(pair?" -" lst_430)" -"(let-values(((s_827)" -"(unsafe-car" -" lst_430))" -"((rest_253)" -"(unsafe-cdr" -" lst_430)))" -"(let-values(((id_147)" -"(let-values(((id_148)" -" id_146))" -"(let-values(((id_149)" -"(let-values()" -"(let-values(((id495_0)" -"(let-values()" -"(if(let-values(((or-part_406)" -"(if(syntax?$1" -" s_827)" -"(symbol?" -"(syntax-e$1" -" s_827))" -" #f)))" -"(if or-part_406" -" or-part_406" -"(symbol?" -" s_827)))" -" s_827" -"(raise-syntax-error$1" -" #f" -" \"not an identifier\"" -" orig-s_87" -" s_827)))))" -"(cons" -" id495_0" -" id_148)))))" -"(values" -" id_149)))))" -"(if(not" -" #f)" -"(for-loop_333" -" id_147" -" rest_253)" -" id_147)))" -" id_146)))))" -" for-loop_333)" -" null" -" lst_70)))))" -"(reverse$1" -" id_145))))))))" -"((rhs483_0)" -"(let-values(((s_828)" -"(cdr" -" s_824)))" -"(let-values(((s_829)" -"(if(syntax?$1" -" s_828)" -"(syntax-e$1" -" s_828)" -" s_828)))" -"(if(pair?" -" s_829)" -"(let-values(((rhs484_0)" -"(let-values(((s_830)" -"(car" -" s_829)))" -" s_830))" -"(()" -"(let-values(((s_831)" -"(cdr" -" s_829)))" -"(let-values(((s_832)" -"(if(syntax?$1" -" s_831)" -"(syntax-e$1" -" s_831)" -" s_831)))" -"(if(null?" -" s_832)" -"(values)" -"(raise-syntax-error$1" -" #f" -" \"bad syntax\"" -" orig-s_87))))))" -"(values" -" rhs484_0))" -"(raise-syntax-error$1" -" #f" -" \"bad syntax\"" -" orig-s_87))))))" -"(values" -" id482_0" -" rhs483_0))" -"(raise-syntax-error$1" -" #f" -" \"bad syntax\"" -" orig-s_87))))))" -"(values" -" define-values479_0" -" id480_0" -" rhs481_0))" -"(raise-syntax-error$1" -" #f" -" \"bad syntax\"" -" orig-s_87)))))" -"(values" -" #t" -" define-values476_1" -" id477_1" -" rhs478_1))))))" -"(let-values(((ids_45)" -"(remove-use-site-scopes" -" id477_0" -" partial-body-ctx_1)))" -"(let-values((()" -"(begin" -"(let-values(((ids485_0)" -" ids_45)" -"((phase486_0)" -" phase_52)" -"((exp-body487_0)" -" exp-body_7))" -"(check-no-duplicate-ids7.1" -" unsafe-undefined" -" ids485_0" -" phase486_0" -" exp-body487_0" -" unsafe-undefined))" -"(values))))" -"(let-values((()" -"(begin" -"(let-values(((ids488_0)" -" ids_45)" -"((phase489_0)" -" phase_52)" -"((requires+provides490_0)" -" requires+provides_7)" -"((exp-body491_0)" -" exp-body_7))" -"(check-ids-unbound173.1" -" exp-body491_0" -" ids488_0" -" phase489_0" -" requires+provides490_0))" -"(values))))" -"(let-values(((syms_23)" -"(let-values(((ids496_0)" -" ids_45)" -"((defined-syms497_0)" -" defined-syms_12)" -"((self498_0)" -" self_34)" -"((phase499_0)" -" phase_52)" -"((all-scopes-stx500_0)" -" all-scopes-stx_5)" -"((frame-id501_0)" -" frame-id_17)" -"((requires+provides502_0)" -" requires+provides_7)" -"((exp-body503_0)" -" exp-body_7))" -"(select-defined-syms-and-bind!16.1" -" #f" -" frame-id501_0" -" exp-body503_0" -" requires+provides502_0" -" #f" -" ids496_0" -" defined-syms497_0" -" self498_0" -" phase499_0" -" all-scopes-stx500_0))))" -"(begin" -"(let-values(((lst_431)" -" syms_23))" -"(begin" -"(if(variable-reference-from-unsafe?" -"(#%variable-reference))" -"(void)" -"(let-values()" -"(check-list" -" lst_431)))" -"((letrec-values(((for-loop_334)" -"(lambda(lst_432)" -"(begin" -" 'for-loop" -"(if(pair?" -" lst_432)" -"(let-values(((sym_109)" -"(unsafe-car" -" lst_432))" -"((rest_254)" -"(unsafe-cdr" -" lst_432)))" -"(let-values((()" -"(let-values()" -"(let-values((()" -"(let-values()" -"(begin" -"(let-values()" -"(namespace-unset-transformer!" -" m-ns_20" -" phase_52" -" sym_109))" -"(values)))))" -"(values)))))" -"(if(not" -" #f)" -"(for-loop_334" -" rest_254)" -"(values))))" -"(values))))))" -" for-loop_334)" -" lst_431)))" -"(void)" -"(let-values(((requires+provides492_0)" -" requires+provides_7)" -"((syms493_0)" -" syms_23)" -"((phase494_0)" -" phase_52))" -"(add-defined-syms!103.1" -" #f" -" requires+provides492_0" -" syms493_0" -" phase494_0))" -"(let-values(((obs_147)" -"(expand-context-observer" -" partial-body-ctx_1)))" -"(if obs_147" -"(let-values()" -"(let-values()" -"(call-expand-observe" -" obs_147" -" 'exit-prim" -"(datum->syntax$1" -" #f" -"(list" -" define-values476_0" -" ids_45" -" rhs478_0)" -" exp-body_7))))" -"(void)))" -"(cons" -"(semi-parsed-define-values2.1" -" exp-body_7" -" syms_23" -" ids_45" -" rhs478_0)" -"(loop_125" -" tail?_53" -" rest-bodys_1))))))))))" -"(if(equal?" -" tmp_65" -" 'define-syntaxes)" -"(let-values()" -"(let-values((()" -"(begin" -"(let-values(((obs_148)" -"(expand-context-observer" -" partial-body-ctx_1)))" -"(if obs_148" -"(let-values()" -"(let-values()" -"(begin" -"(call-expand-observe" -" obs_148" -" 'enter-prim" -" exp-body_7)" -"(call-expand-observe" -" obs_148" " 'prim-define-syntaxes)" "(call-expand-observe" -" obs_148" +" obs_146" " 'prepare-env))))" "(void)))" "(values))))" @@ -74479,67 +74360,67 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(let-values(((obs_149)" +"(let-values(((obs_147)" "(expand-context-observer" " partial-body-ctx_1)))" -"(if obs_149" +"(if obs_147" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_149" +" obs_147" " 'phase-up)))" "(void)))" "(values))))" "(let-values(((ok?_84" -" define-syntaxes504_0" -" id505_0" -" rhs506_0)" -"(let-values(((s_833)" +" define-syntaxes505_0" +" id506_0" +" rhs507_0)" +"(let-values(((s_835)" " disarmed-exp-body_1))" "(let-values(((orig-s_88)" -" s_833))" -"(let-values(((define-syntaxes504_1" -" id505_1" -" rhs506_1)" -"(let-values(((s_834)" -"(if(syntax?$1" -" s_833)" -"(syntax-e$1" -" s_833)" -" s_833)))" -"(if(pair?" -" s_834)" -"(let-values(((define-syntaxes507_0)" -"(let-values(((s_835)" -"(car" -" s_834)))" " s_835))" -"((id508_0" -" rhs509_0)" +"(let-values(((define-syntaxes505_1" +" id506_1" +" rhs507_1)" "(let-values(((s_836)" -"(cdr" -" s_834)))" -"(let-values(((s_837)" "(if(syntax?$1" -" s_836)" +" s_835)" "(syntax-e$1" -" s_836)" -" s_836)))" +" s_835)" +" s_835)))" "(if(pair?" -" s_837)" -"(let-values(((id510_0)" -"(let-values(((s_838)" +" s_836)" +"(let-values(((define-syntaxes508_0)" +"(let-values(((s_837)" "(car" -" s_837)))" +" s_836)))" +" s_837))" +"((id509_0" +" rhs510_0)" +"(let-values(((s_838)" +"(cdr" +" s_836)))" "(let-values(((s_839)" "(if(syntax?$1" " s_838)" "(syntax-e$1" " s_838)" " s_838)))" +"(if(pair?" +" s_839)" +"(let-values(((id511_0)" +"(let-values(((s_840)" +"(car" +" s_839)))" +"(let-values(((s_841)" +"(if(syntax?$1" +" s_840)" +"(syntax-e$1" +" s_840)" +" s_840)))" "(let-values(((flat-s_61)" "(to-syntax-list.1" -" s_839)))" +" s_841)))" "(if(not" " flat-s_61)" "(let-values()" @@ -74548,8 +74429,8 @@ static const char *startup_source = " \"bad syntax\"" " orig-s_88))" "(let-values()" -"(let-values(((id_150)" -"(let-values(((lst_433)" +"(let-values(((id_151)" +"(let-values(((lst_432)" " flat-s_61))" "(begin" "(if(variable-reference-from-unsafe?" @@ -74557,338 +74438,334 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_433)))" -"((letrec-values(((for-loop_335)" -"(lambda(id_151" -" lst_434)" +" lst_432)))" +"((letrec-values(((for-loop_337)" +"(lambda(id_152" +" lst_433)" "(begin" " 'for-loop" "(if(pair?" -" lst_434)" -"(let-values(((s_568)" +" lst_433)" +"(let-values(((s_842)" "(unsafe-car" -" lst_434))" +" lst_433))" "((rest_255)" "(unsafe-cdr" -" lst_434)))" -"(let-values(((id_152)" +" lst_433)))" "(let-values(((id_153)" -" id_151))" "(let-values(((id_154)" +" id_152))" +"(let-values(((id_155)" "(let-values()" -"(let-values(((id524_0)" +"(let-values(((id525_0)" "(let-values()" -"(if(let-values(((or-part_407)" +"(if(let-values(((or-part_408)" "(if(syntax?$1" -" s_568)" +" s_842)" "(symbol?" "(syntax-e$1" -" s_568))" +" s_842))" " #f)))" -"(if or-part_407" -" or-part_407" +"(if or-part_408" +" or-part_408" "(symbol?" -" s_568)))" -" s_568" +" s_842)))" +" s_842" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_88" -" s_568)))))" +" s_842)))))" "(cons" -" id524_0" -" id_153)))))" -"(values" +" id525_0" " id_154)))))" +"(values" +" id_155)))))" "(if(not" " #f)" -"(for-loop_335" -" id_152" +"(for-loop_337" +" id_153" " rest_255)" -" id_152)))" -" id_151)))))" -" for-loop_335)" +" id_153)))" +" id_152)))))" +" for-loop_337)" " null" -" lst_433)))))" +" lst_432)))))" "(reverse$1" -" id_150))))))))" -"((rhs511_0)" -"(let-values(((s_840)" -"(cdr" -" s_837)))" -"(let-values(((s_841)" -"(if(syntax?$1" -" s_840)" -"(syntax-e$1" -" s_840)" -" s_840)))" -"(if(pair?" -" s_841)" -"(let-values(((rhs512_0)" -"(let-values(((s_842)" -"(car" -" s_841)))" -" s_842))" -"(()" +" id_151))))))))" +"((rhs512_0)" "(let-values(((s_843)" "(cdr" -" s_841)))" +" s_839)))" "(let-values(((s_844)" "(if(syntax?$1" " s_843)" "(syntax-e$1" " s_843)" " s_843)))" -"(if(null?" +"(if(pair?" " s_844)" +"(let-values(((rhs513_0)" +"(let-values(((s_845)" +"(car" +" s_844)))" +" s_845))" +"(()" +"(let-values(((s_846)" +"(cdr" +" s_844)))" +"(let-values(((s_847)" +"(if(syntax?$1" +" s_846)" +"(syntax-e$1" +" s_846)" +" s_846)))" +"(if(null?" +" s_847)" "(values)" "(raise-syntax-error$1" " #f" " \"bad syntax\"" " orig-s_88))))))" "(values" -" rhs512_0))" +" rhs513_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" " orig-s_88))))))" "(values" -" id510_0" -" rhs511_0))" +" id511_0" +" rhs512_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" " orig-s_88))))))" "(values" -" define-syntaxes507_0" -" id508_0" -" rhs509_0))" +" define-syntaxes508_0" +" id509_0" +" rhs510_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" " orig-s_88)))))" "(values" " #t" -" define-syntaxes504_1" -" id505_1" -" rhs506_1))))))" +" define-syntaxes505_1" +" id506_1" +" rhs507_1))))))" "(let-values(((ids_46)" "(remove-use-site-scopes" -" id505_0" +" id506_0" " partial-body-ctx_1)))" "(let-values((()" "(begin" -"(let-values(((ids513_0)" +"(let-values(((ids514_0)" " ids_46)" -"((phase514_0)" -" phase_52)" -"((exp-body515_0)" +"((phase515_0)" +" phase_107)" +"((exp-body516_0)" " exp-body_7))" "(check-no-duplicate-ids7.1" " unsafe-undefined" -" ids513_0" -" phase514_0" -" exp-body515_0" +" ids514_0" +" phase515_0" +" exp-body516_0" " unsafe-undefined))" "(values))))" "(let-values((()" "(begin" -"(let-values(((ids516_0)" +"(let-values(((ids517_0)" " ids_46)" -"((phase517_0)" -" phase_52)" -"((requires+provides518_0)" +"((phase518_0)" +" phase_107)" +"((requires+provides519_0)" " requires+provides_7)" -"((exp-body519_0)" +"((exp-body520_0)" " exp-body_7))" "(check-ids-unbound173.1" -" exp-body519_0" -" ids516_0" -" phase517_0" -" requires+provides518_0))" +" exp-body520_0" +" ids517_0" +" phase518_0" +" requires+provides519_0))" "(values))))" "(let-values(((syms_24)" -"(let-values(((ids525_0)" +"(let-values(((ids526_0)" " ids_46)" -"((defined-syms526_0)" +"((defined-syms527_0)" " defined-syms_12)" -"((self527_0)" +"((self528_0)" " self_34)" -"((phase528_0)" -" phase_52)" -"((all-scopes-stx529_0)" +"((phase529_0)" +" phase_107)" +"((all-scopes-stx530_0)" " all-scopes-stx_5)" -"((frame-id530_0)" +"((frame-id531_0)" " frame-id_17)" -"((requires+provides531_0)" +"((requires+provides532_0)" " requires+provides_7)" -"((exp-body532_0)" +"((exp-body533_0)" " exp-body_7)" -"((temp533_0)" +"((temp534_0)" " #t))" "(select-defined-syms-and-bind!16.1" -" temp533_0" -" frame-id530_0" -" exp-body532_0" -" requires+provides531_0" +" temp534_0" +" frame-id531_0" +" exp-body533_0" +" requires+provides532_0" " #f" -" ids525_0" -" defined-syms526_0" -" self527_0" -" phase528_0" -" all-scopes-stx529_0))))" +" ids526_0" +" defined-syms527_0" +" self528_0" +" phase529_0" +" all-scopes-stx530_0))))" "(let-values((()" "(begin" -"(let-values(((requires+provides520_0)" +"(let-values(((requires+provides521_0)" " requires+provides_7)" -"((syms521_0)" +"((syms522_0)" " syms_24)" -"((phase522_0)" -" phase_52)" -"((temp523_0)" +"((phase523_0)" +" phase_107)" +"((temp524_0)" " #t))" "(add-defined-syms!103.1" -" temp523_0" -" requires+provides520_0" -" syms521_0" -" phase522_0))" +" temp524_0" +" requires+provides521_0" +" syms522_0" +" phase523_0))" "(values))))" "(let-values(((exp-rhs_6" " parsed-rhs_2" " vals_10)" -"(let-values(((temp534_0)" +"(let-values(((temp535_0)" " 'define-syntaxes)" -"((temp535_0)" -" rhs506_0)" -"((ids536_0)" +"((temp536_0)" +" rhs507_0)" +"((ids537_0)" " ids_46)" -"((temp537_0)" -"(let-values(((v_275)" +"((temp538_0)" +"(let-values(((v_274)" " partial-body-ctx_1))" -"(let-values(((the-struct_112)" -" v_275))" +"(let-values(((the-struct_114)" +" v_274))" "(if(expand-context/outer?" -" the-struct_112)" -"(let-values(((need-eventually-defined539_0)" +" the-struct_114)" +"(let-values(((need-eventually-defined540_0)" " need-eventually-defined_2)" -"((inner540_0)" -"(let-values(((the-struct_113)" +"((inner541_0)" +"(let-values(((the-struct_115)" "(root-expand-context/outer-inner" -" v_275)))" +" v_274)))" "(if(expand-context/inner?" -" the-struct_113)" -"(let-values(((lifts541_0)" +" the-struct_115)" +"(let-values(((lifts542_0)" " #f)" -"((module-lifts542_0)" +"((module-lifts543_0)" " #f)" -"((to-module-lifts543_0)" +"((to-module-lifts544_0)" " #f))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi" -" the-struct_113)" +" the-struct_115)" "(root-expand-context/inner-module-scopes" -" the-struct_113)" +" the-struct_115)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_113)" +" the-struct_115)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_113)" +" the-struct_115)" "(root-expand-context/inner-defined-syms" -" the-struct_113)" +" the-struct_115)" "(root-expand-context/inner-counter" -" the-struct_113)" +" the-struct_115)" "(root-expand-context/inner-lift-key" -" the-struct_113)" +" the-struct_115)" "(expand-context/inner-to-parsed?" -" the-struct_113)" +" the-struct_115)" "(expand-context/inner-phase" -" the-struct_113)" +" the-struct_115)" "(expand-context/inner-namespace" -" the-struct_113)" +" the-struct_115)" "(expand-context/inner-just-once?" -" the-struct_113)" +" the-struct_115)" "(expand-context/inner-module-begin-k" -" the-struct_113)" +" the-struct_115)" "(expand-context/inner-allow-unbound?" -" the-struct_113)" +" the-struct_115)" "(expand-context/inner-in-local-expand?" -" the-struct_113)" +" the-struct_115)" "(expand-context/inner-keep-#%expression?" -" the-struct_113)" +" the-struct_115)" "(expand-context/inner-stops" -" the-struct_113)" +" the-struct_115)" "(expand-context/inner-declared-submodule-names" -" the-struct_113)" -" lifts541_0" +" the-struct_115)" +" lifts542_0" "(expand-context/inner-lift-envs" -" the-struct_113)" -" module-lifts542_0" +" the-struct_115)" +" module-lifts543_0" "(expand-context/inner-require-lifts" -" the-struct_113)" -" to-module-lifts543_0" +" the-struct_115)" +" to-module-lifts544_0" "(expand-context/inner-requires+provides" -" the-struct_113)" +" the-struct_115)" "(expand-context/inner-observer" -" the-struct_113)" +" the-struct_115)" "(expand-context/inner-for-serializable?" -" the-struct_113)" +" the-struct_115)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_113)))" +" the-struct_115)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_113)))))" +" the-struct_115)))))" "(expand-context/outer1.1" -" inner540_0" -"(root-expand-context/outer-post-expansion-scope" -" the-struct_112)" -"(root-expand-context/outer-post-expansion-shifts" -" the-struct_112)" +" inner541_0" +"(root-expand-context/outer-post-expansion" +" the-struct_114)" "(root-expand-context/outer-use-site-scopes" -" the-struct_112)" +" the-struct_114)" "(root-expand-context/outer-frame-id" -" the-struct_112)" +" the-struct_114)" "(expand-context/outer-context" -" the-struct_112)" +" the-struct_114)" "(expand-context/outer-env" -" the-struct_112)" -"(expand-context/outer-post-expansion-scope-action" -" the-struct_112)" +" the-struct_114)" "(expand-context/outer-scopes" -" the-struct_112)" +" the-struct_114)" "(expand-context/outer-def-ctx-scopes" -" the-struct_112)" +" the-struct_114)" "(expand-context/outer-binding-layer" -" the-struct_112)" +" the-struct_114)" "(expand-context/outer-reference-records" -" the-struct_112)" +" the-struct_114)" "(expand-context/outer-only-immediate?" -" the-struct_112)" -" need-eventually-defined539_0" +" the-struct_114)" +" need-eventually-defined540_0" "(expand-context/outer-current-introduction-scopes" -" the-struct_112)" +" the-struct_114)" "(expand-context/outer-current-use-scopes" -" the-struct_112)" +" the-struct_114)" "(expand-context/outer-name" -" the-struct_112)))" +" the-struct_114)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_112)))))" -"((temp538_0)" +" the-struct_114)))))" +"((temp539_0)" " #f))" "(expand+eval-for-syntaxes-binding108.1" -" temp538_0" -" temp534_0" +" temp539_0" " temp535_0" -" ids536_0" -" temp537_0))))" +" temp536_0" +" ids537_0" +" temp538_0))))" "(let-values((()" "(begin" -"(let-values(((lst_435)" +"(let-values(((lst_434)" " syms_24)" -"((lst_436)" +"((lst_435)" " vals_10)" -"((lst_437)" +"((lst_436)" " ids_46))" "(begin" "(if(variable-reference-from-unsafe?" @@ -74896,6 +74773,12 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" +" lst_434)))" +"(if(variable-reference-from-unsafe?" +"(#%variable-reference))" +"(void)" +"(let-values()" +"(check-list" " lst_435)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" @@ -74903,44 +74786,38 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_436)))" -"(if(variable-reference-from-unsafe?" -"(#%variable-reference))" -"(void)" -"(let-values()" -"(check-list" -" lst_437)))" -"((letrec-values(((for-loop_336)" -"(lambda(lst_438" -" lst_439" -" lst_440)" +"((letrec-values(((for-loop_338)" +"(lambda(lst_437" +" lst_438" +" lst_439)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_438)" +" lst_437)" "(if(pair?" -" lst_439)" +" lst_438)" "(pair?" -" lst_440)" +" lst_439)" " #f)" " #f)" -"(let-values(((sym_110)" +"(let-values(((sym_111)" "(unsafe-car" -" lst_438))" +" lst_437))" "((rest_256)" "(unsafe-cdr" -" lst_438))" -"((val_86)" +" lst_437))" +"((val_87)" "(unsafe-car" -" lst_439))" +" lst_438))" "((rest_257)" "(unsafe-cdr" -" lst_439))" -"((id_155)" +" lst_438))" +"((id_156)" "(unsafe-car" -" lst_440))" +" lst_439))" "((rest_258)" "(unsafe-cdr" -" lst_440)))" +" lst_439)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -74949,46 +74826,46 @@ static const char *startup_source = "(let-values()" "(begin" "(maybe-install-free=id-in-context!" -" val_86" -" id_155" -" phase_52" +" val_87" +" id_156" +" phase_107" " partial-body-ctx_1)" "(namespace-set-transformer!" " m-ns_20" -" phase_52" -" sym_110" -" val_86)))" +" phase_107" +" sym_111" +" val_87)))" "(values)))))" "(values)))))" "(if(not" " #f)" -"(for-loop_336" +"(for-loop_338" " rest_256" " rest_257" " rest_258)" "(values))))" "(values))))))" -" for-loop_336)" +" for-loop_338)" +" lst_434" " lst_435" -" lst_436" -" lst_437)))" +" lst_436)))" "(values))))" "(let-values()" "(let-values((()" "(begin" -"(let-values(((obs_150)" +"(let-values(((obs_148)" "(expand-context-observer" " partial-body-ctx_1)))" -"(if obs_150" +"(if obs_148" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_150" +" obs_148" " 'exit-prim" "(datum->syntax$1" " #f" "(list" -" define-syntaxes504_0" +" define-syntaxes505_0" " ids_46" " exp-rhs_6)))))" "(void)))" @@ -75005,27 +74882,210 @@ static const char *startup_source = " partial-body-ctx_1)" " parsed-body_0" "(expanded+parsed1.1" -"(let-values(((exp-body544_0)" +"(let-values(((exp-body545_0)" " exp-body_7)" -"((temp545_0)" +"((temp546_0)" "(list" -" define-syntaxes504_0" +" define-syntaxes505_0" " ids_46" " exp-rhs_6)))" "(rebuild5.1" " #t" -" exp-body544_0" -" temp545_0))" +" exp-body545_0" +" temp546_0))" " parsed-body_0))" "(loop_125" " tail?_53" " rest-bodys_1)))))))))))))))))" "(if(equal?" -" tmp_65" +" tmp_23" " '#%require)" "(let-values()" "(let-values((()" "(begin" +"(let-values(((obs_149)" +"(expand-context-observer" +" partial-body-ctx_1)))" +"(if obs_149" +"(let-values()" +"(let-values()" +"(begin" +"(call-expand-observe" +" obs_149" +" 'enter-prim" +" exp-body_7)" +"(call-expand-observe" +" obs_149" +" 'prim-require))))" +"(void)))" +"(values))))" +"(let-values(((ready-body_0)" +"(remove-use-site-scopes" +" disarmed-exp-body_1" +" partial-body-ctx_1)))" +"(let-values(((ok?_85" +" #%require547_0" +" req548_0)" +"(let-values(((s_848)" +" ready-body_0))" +"(let-values(((orig-s_89)" +" s_848))" +"(let-values(((#%require547_1" +" req548_1)" +"(let-values(((s_849)" +"(if(syntax?$1" +" s_848)" +"(syntax-e$1" +" s_848)" +" s_848)))" +"(if(pair?" +" s_849)" +"(let-values(((#%require549_0)" +"(let-values(((s_850)" +"(car" +" s_849)))" +" s_850))" +"((req550_0)" +"(let-values(((s_851)" +"(cdr" +" s_849)))" +"(let-values(((s_852)" +"(if(syntax?$1" +" s_851)" +"(syntax-e$1" +" s_851)" +" s_851)))" +"(let-values(((flat-s_62)" +"(to-syntax-list.1" +" s_852)))" +"(if(not" +" flat-s_62)" +"(let-values()" +"(raise-syntax-error$1" +" #f" +" \"bad syntax\"" +" orig-s_89))" +"(let-values()" +" flat-s_62)))))))" +"(values" +" #%require549_0" +" req550_0))" +"(raise-syntax-error$1" +" #f" +" \"bad syntax\"" +" orig-s_89)))))" +"(values" +" #t" +" #%require547_1" +" req548_1))))))" +"(begin" +"(let-values(((temp551_0)" +" req548_0)" +"((exp-body552_0)" +" exp-body_7)" +"((self553_0)" +" self_34)" +"((m-ns554_0)" +" m-ns_20)" +"((phase555_0)" +" phase_107)" +"((phase556_0)" +" phase_107)" +"((requires+provides557_0)" +" requires+provides_7)" +"((declared-submodule-names558_0)" +" declared-submodule-names_4)" +"((temp559_0)" +" 'module))" +"(parse-and-perform-requires!30.1" +" #f" +" #f" +" declared-submodule-names558_0" +" #f" +" phase556_0" +" #f" +" self553_0" +" #f" +" #t" +" temp559_0" +" temp551_0" +" exp-body552_0" +" m-ns554_0" +" phase555_0" +" requires+provides557_0))" +"(let-values(((obs_150)" +"(expand-context-observer" +" partial-body-ctx_1)))" +"(if obs_150" +"(let-values()" +"(let-values()" +"(call-expand-observe" +" obs_150" +" 'exit-prim" +" ready-body_0)))" +"(void)))" +"(cons" +" exp-body_7" +"(loop_125" +" tail?_53" +" rest-bodys_1)))))))" +"(if(equal?" +" tmp_23" +" '#%provide)" +"(let-values()" +"(cons" +" exp-body_7" +"(loop_125" +" tail?_53" +" rest-bodys_1)))" +"(if(equal?" +" tmp_23" +" 'module)" +"(let-values()" +"(let-values(((ready-body_1)" +"(remove-use-site-scopes" +" exp-body_7" +" partial-body-ctx_1)))" +"(let-values(((submod_2)" +"(let-values(((ready-body560_0)" +" ready-body_1)" +"((self561_0)" +" self_34)" +"((partial-body-ctx562_0)" +" partial-body-ctx_1)" +"((temp563_0)" +" #f)" +"((declared-submodule-names564_0)" +" declared-submodule-names_4)" +"((mpis-to-reset565_0)" +" mpis-to-reset_1)" +"((compiled-submodules566_0)" +" compiled-submodules_2)" +"((modules-being-compiled567_0)" +" modules-being-compiled_4))" +"(expand-submodule197.1" +" compiled-submodules566_0" +" declared-submodule-names564_0" +" #f" +" #f" +" #f" +" temp563_0" +" #f" +" modules-being-compiled567_0" +" mpis-to-reset565_0" +" ready-body560_0" +" self561_0" +" partial-body-ctx562_0))))" +"(cons" +" submod_2" +"(loop_125" +" tail?_53" +" rest-bodys_1)))))" +"(if(equal?" +" tmp_23" +" 'module*)" +"(let-values()" +"(begin" "(let-values(((obs_151)" "(expand-context-observer" " partial-body-ctx_1)))" @@ -75039,192 +75099,9 @@ static const char *startup_source = " exp-body_7)" "(call-expand-observe" " obs_151" -" 'prim-require))))" -"(void)))" -"(values))))" -"(let-values(((ready-body_0)" -"(remove-use-site-scopes" -" disarmed-exp-body_1" -" partial-body-ctx_1)))" -"(let-values(((ok?_85" -" #%require546_0" -" req547_0)" -"(let-values(((s_845)" -" ready-body_0))" -"(let-values(((orig-s_89)" -" s_845))" -"(let-values(((#%require546_1" -" req547_1)" -"(let-values(((s_846)" -"(if(syntax?$1" -" s_845)" -"(syntax-e$1" -" s_845)" -" s_845)))" -"(if(pair?" -" s_846)" -"(let-values(((#%require548_0)" -"(let-values(((s_847)" -"(car" -" s_846)))" -" s_847))" -"((req549_0)" -"(let-values(((s_848)" -"(cdr" -" s_846)))" -"(let-values(((s_849)" -"(if(syntax?$1" -" s_848)" -"(syntax-e$1" -" s_848)" -" s_848)))" -"(let-values(((flat-s_62)" -"(to-syntax-list.1" -" s_849)))" -"(if(not" -" flat-s_62)" -"(let-values()" -"(raise-syntax-error$1" -" #f" -" \"bad syntax\"" -" orig-s_89))" -"(let-values()" -" flat-s_62)))))))" -"(values" -" #%require548_0" -" req549_0))" -"(raise-syntax-error$1" -" #f" -" \"bad syntax\"" -" orig-s_89)))))" -"(values" -" #t" -" #%require546_1" -" req547_1))))))" -"(begin" -"(let-values(((temp550_0)" -" req547_0)" -"((exp-body551_0)" -" exp-body_7)" -"((self552_0)" -" self_34)" -"((m-ns553_0)" -" m-ns_20)" -"((phase554_0)" -" phase_52)" -"((phase555_0)" -" phase_52)" -"((requires+provides556_0)" -" requires+provides_7)" -"((declared-submodule-names557_0)" -" declared-submodule-names_4)" -"((temp558_0)" -" 'module))" -"(parse-and-perform-requires!30.1" -" #f" -" #f" -" declared-submodule-names557_0" -" #f" -" phase555_0" -" #f" -" self552_0" -" #f" -" #t" -" temp558_0" -" temp550_0" -" exp-body551_0" -" m-ns553_0" -" phase554_0" -" requires+provides556_0))" -"(let-values(((obs_152)" -"(expand-context-observer" -" partial-body-ctx_1)))" -"(if obs_152" -"(let-values()" -"(let-values()" -"(call-expand-observe" -" obs_152" -" 'exit-prim" -" ready-body_0)))" -"(void)))" -"(cons" -" exp-body_7" -"(loop_125" -" tail?_53" -" rest-bodys_1)))))))" -"(if(equal?" -" tmp_65" -" '#%provide)" -"(let-values()" -"(cons" -" exp-body_7" -"(loop_125" -" tail?_53" -" rest-bodys_1)))" -"(if(equal?" -" tmp_65" -" 'module)" -"(let-values()" -"(let-values(((ready-body_1)" -"(remove-use-site-scopes" -" exp-body_7" -" partial-body-ctx_1)))" -"(let-values(((submod_2)" -"(let-values(((ready-body559_0)" -" ready-body_1)" -"((self560_0)" -" self_34)" -"((partial-body-ctx561_0)" -" partial-body-ctx_1)" -"((temp562_0)" -" #f)" -"((declared-submodule-names563_0)" -" declared-submodule-names_4)" -"((mpis-to-reset564_0)" -" mpis-to-reset_1)" -"((compiled-submodules565_0)" -" compiled-submodules_2)" -"((modules-being-compiled566_0)" -" modules-being-compiled_4))" -"(expand-submodule197.1" -" compiled-submodules565_0" -" declared-submodule-names563_0" -" #f" -" #f" -" #f" -" temp562_0" -" #f" -" modules-being-compiled566_0" -" mpis-to-reset564_0" -" ready-body559_0" -" self560_0" -" partial-body-ctx561_0))))" -"(cons" -" submod_2" -"(loop_125" -" tail?_53" -" rest-bodys_1)))))" -"(if(equal?" -" tmp_65" -" 'module*)" -"(let-values()" -"(begin" -"(let-values(((obs_153)" -"(expand-context-observer" -" partial-body-ctx_1)))" -"(if obs_153" -"(let-values()" -"(let-values()" -"(begin" -"(call-expand-observe" -" obs_153" -" 'enter-prim" -" exp-body_7)" -"(call-expand-observe" -" obs_153" " 'prim-submodule*)" "(call-expand-observe" -" obs_153" +" obs_151" " 'exit-prim" " exp-body_7))))" "(void)))" @@ -75234,44 +75111,44 @@ static const char *startup_source = " tail?_53" " rest-bodys_1))))" "(if(equal?" -" tmp_65" +" tmp_23" " '#%declare)" "(let-values()" "(let-values(((ok?_86" -" #%declare567_0" -" kw568_0)" -"(let-values(((s_850)" +" #%declare568_0" +" kw569_0)" +"(let-values(((s_853)" " disarmed-exp-body_1))" "(let-values(((orig-s_90)" -" s_850))" -"(let-values(((#%declare567_1" -" kw568_1)" -"(let-values(((s_851)" -"(if(syntax?$1" -" s_850)" -"(syntax-e$1" -" s_850)" -" s_850)))" -"(if(pair?" -" s_851)" -"(let-values(((#%declare569_0)" +" s_853))" +"(let-values(((#%declare568_1" +" kw569_1)" "(let-values(((s_276)" -"(car" -" s_851)))" -" s_276))" -"((kw570_0)" -"(let-values(((s_277)" -"(cdr" -" s_851)))" -"(let-values(((s_852)" "(if(syntax?$1" -" s_277)" +" s_853)" "(syntax-e$1" -" s_277)" -" s_277)))" +" s_853)" +" s_853)))" +"(if(pair?" +" s_276)" +"(let-values(((#%declare570_0)" +"(let-values(((s_854)" +"(car" +" s_276)))" +" s_854))" +"((kw571_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_63)" "(to-syntax-list.1" -" s_852)))" +" s_279)))" "(if(not" " flat-s_63)" "(let-values()" @@ -75282,39 +75159,39 @@ static const char *startup_source = "(let-values()" " flat-s_63)))))))" "(values" -" #%declare569_0" -" kw570_0))" +" #%declare570_0" +" kw571_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" " orig-s_90)))))" "(values" " #t" -" #%declare567_1" -" kw568_1))))))" +" #%declare568_1" +" kw569_1))))))" "(let-values((()" "(begin" -"(let-values(((lst_441)" -" kw568_0))" +"(let-values(((lst_440)" +" kw569_0))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_441)))" -"((letrec-values(((for-loop_337)" -"(lambda(lst_442)" +" lst_440)))" +"((letrec-values(((for-loop_339)" +"(lambda(lst_441)" "(begin" " 'for-loop" "(if(pair?" -" lst_442)" +" lst_441)" "(let-values(((kw_1)" "(unsafe-car" -" lst_442))" +" lst_441))" "((rest_259)" "(unsafe-cdr" -" lst_442)))" +" lst_441)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -75365,12 +75242,12 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_337" +"(for-loop_339" " rest_259)" "(values))))" "(values))))))" -" for-loop_337)" -" lst_441)))" +" for-loop_339)" +" lst_440)))" "(values))))" "(let-values()" "(let-values(((parsed-body_1)" @@ -75417,21 +75294,21 @@ static const char *startup_source = "(make-wrap-as-definition)" "(lambda(self_35 frame-id_18 inside-scope_2 all-scopes-stx_6 defined-syms_13 requires+provides_8)" "(begin" -"(lambda(ids_47 rhs_23 phase_150)" +"(lambda(ids_47 rhs_23 phase_149)" "(let-values(((scoped-ids_0)" "(reverse$1" -"(let-values(((lst_443) ids_47))" +"(let-values(((lst_442) ids_47))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_443)))" -"((letrec-values(((for-loop_338)" -"(lambda(fold-var_377 lst_444)" +"(let-values()(check-list lst_442)))" +"((letrec-values(((for-loop_340)" +"(lambda(fold-var_377 lst_443)" "(begin" " 'for-loop" -"(if(pair? lst_444)" -"(let-values(((id_156)(unsafe-car lst_444))" -"((rest_260)(unsafe-cdr lst_444)))" +"(if(pair? lst_443)" +"(let-values(((id_157)(unsafe-car lst_443))" +"((rest_260)(unsafe-cdr lst_443)))" "(let-values(((fold-var_378)" "(let-values(((fold-var_379) fold-var_377))" "(let-values(((fold-var_380)" @@ -75439,73 +75316,74 @@ static const char *startup_source = "(cons" "(let-values()" "(add-scope" -" id_156" +" id_157" " inside-scope_2))" " fold-var_379))))" "(values fold-var_380)))))" -"(if(not #f)(for-loop_338 fold-var_378 rest_260) fold-var_378)))" +"(if(not #f)(for-loop_340 fold-var_378 rest_260) fold-var_378)))" " fold-var_377)))))" -" for-loop_338)" +" for-loop_340)" " null" -" lst_443))))))" +" lst_442))))))" "(let-values(((syms_25)" -"(let-values(((scoped-ids571_0) scoped-ids_0)" -"((defined-syms572_0) defined-syms_13)" -"((self573_0) self_35)" -"((phase574_0) phase_150)" -"((all-scopes-stx575_0) all-scopes-stx_6)" -"((frame-id576_0) frame-id_18)" -"((requires+provides577_0) requires+provides_8))" +"(let-values(((scoped-ids572_0) scoped-ids_0)" +"((defined-syms573_0) defined-syms_13)" +"((self574_0) self_35)" +"((phase575_0) phase_149)" +"((all-scopes-stx576_0) all-scopes-stx_6)" +"((frame-id577_0) frame-id_18)" +"((requires+provides578_0) requires+provides_8))" "(select-defined-syms-and-bind!16.1" " #f" -" frame-id576_0" +" frame-id577_0" " #f" -" requires+provides577_0" +" requires+provides578_0" " #f" -" scoped-ids571_0" -" defined-syms572_0" -" self573_0" -" phase574_0" -" all-scopes-stx575_0))))" -"(let-values(((s_295)" +" scoped-ids572_0" +" defined-syms573_0" +" self574_0" +" phase575_0" +" all-scopes-stx576_0))))" +"(let-values(((s_855)" "(add-scope" "(datum->syntax$1" " #f" "(list" -"(datum->syntax$1(syntax-shift-phase-level$1 core-stx phase_150) 'define-values)" +"(datum->syntax$1(syntax-shift-phase-level$1 core-stx phase_149) 'define-values)" " scoped-ids_0" " rhs_23))" " inside-scope_2)))" -"(values scoped-ids_0(semi-parsed-define-values2.1 s_295 syms_25 scoped-ids_0 rhs_23)))))))))" +"(values scoped-ids_0(semi-parsed-define-values2.1 s_855 syms_25 scoped-ids_0 rhs_23)))))))))" "(define-values" "(add-post-expansion-scope)" -"(lambda(bodys_23 ctx_114)" +"(lambda(bodys_23 ctx_115)" "(begin" -"(let-values(((sc_42)(root-expand-context-post-expansion-scope ctx_114)))" -"(if sc_42" +"(let-values(((pe_3)(root-expand-context-post-expansion ctx_115)))" +"(if pe_3" "(reverse$1" -"(let-values(((lst_445) bodys_23))" +"(let-values(((lst_444) bodys_23))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_445)))" -"((letrec-values(((for-loop_339)" -"(lambda(fold-var_381 lst_446)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_444)))" +"((letrec-values(((for-loop_341)" +"(lambda(fold-var_381 lst_445)" "(begin" " 'for-loop" -"(if(pair? lst_446)" -"(let-values(((body_21)(unsafe-car lst_446))((rest_261)(unsafe-cdr lst_446)))" +"(if(pair? lst_445)" +"(let-values(((body_21)(unsafe-car lst_445))((rest_261)(unsafe-cdr lst_445)))" "(let-values(((fold-var_382)" "(let-values(((fold-var_383) fold-var_381))" "(let-values(((fold-var_384)" "(let-values()" "(cons" -"(let-values()(add-scope body_21 sc_42))" +"(let-values()" +"(apply-post-expansion pe_3 body_21))" " fold-var_383))))" "(values fold-var_384)))))" -"(if(not #f)(for-loop_339 fold-var_382 rest_261) fold-var_382)))" +"(if(not #f)(for-loop_341 fold-var_382 rest_261) fold-var_382)))" " fold-var_381)))))" -" for-loop_339)" +" for-loop_341)" " null" -" lst_445))))" +" lst_444))))" " bodys_23)))))" "(define-values" "(finish-expanding-body-expressons99.1)" @@ -75520,7 +75398,7 @@ static const char *startup_source = "(begin" " 'finish-expanding-body-expressons99" "(let-values(((partially-expanded-bodys_1) partially-expanded-bodys98_0))" -"(let-values(((phase_151) phase84_0))" +"(let-values(((phase_150) 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))" @@ -75534,15 +75412,15 @@ static const char *startup_source = " 'loop" "(if(null? bodys_24)" "(let-values()" -"(if(if tail?_54(not(zero? phase_151)) #f)" +"(if(if tail?_54(not(zero? phase_150)) #f)" "(let-values()" "(begin" -"(let-values(((obs_154)(expand-context-observer body-ctx_7)))" -"(if obs_154" +"(let-values(((obs_152)(expand-context-observer body-ctx_7)))" +"(if obs_152" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_154" +" obs_152" " 'module-lift-end-loop" " '())))" "(void)))" @@ -75558,13 +75436,13 @@ static const char *startup_source = "(if(null? bodys_25)" "(let-values()" "(begin" -"(let-values(((obs_155)" +"(let-values(((obs_153)" "(expand-context-observer body-ctx_7)))" -"(if obs_155" +"(if obs_153" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_155" +" obs_153" " 'module-lift-end-loop" " '())))" "(void)))" @@ -75577,25 +75455,25 @@ static const char *startup_source = "(let-values()" "(let-values((()" "(begin" -"(let-values(((obs_156)" +"(let-values(((obs_154)" "(expand-context-observer body-ctx_7)))" -"(if obs_156" +"(if obs_154" "(let-values()" "(let-values()" -"(call-expand-observe obs_156 'next)))" +"(call-expand-observe obs_154 'next)))" "(void)))" "(values))))" "(let-values(((body_22)(car bodys_24)))" "(let-values(((rest-bodys_2)(cdr bodys_24)))" "(let-values(((exp-body_8)" -"(if(let-values(((or-part_408)" +"(if(let-values(((or-part_409)" "(parsed? body_22)))" -"(if or-part_408" -" or-part_408" -"(let-values(((or-part_409)" -"(expanded+parsed? body_22)))" "(if or-part_409" " or-part_409" +"(let-values(((or-part_410)" +"(expanded+parsed? body_22)))" +"(if or-part_410" +" or-part_410" "(semi-parsed-begin-for-syntax?" " body_22)))))" "(let-values() body_22)" @@ -75612,135 +75490,135 @@ static const char *startup_source = "(let-values(((syms_26)" "(semi-parsed-define-values-syms" " body_22)))" -"(let-values(((s_853)" +"(let-values(((s_625)" "(semi-parsed-define-values-s" " body_22)))" "(let-values(((ok?_87" -" define-values578_0" -" _579_0" -" _580_0)" -"(let-values(((s_854)" +" define-values579_0" +" _580_0" +" _581_0)" +"(let-values(((s_856)" "(syntax-disarm$1" -" s_853)))" +" s_625)))" "(if(if(not" "(expand-context-to-parsed?" " rhs-ctx_2))" " #t" " #f)" "(let-values(((orig-s_91)" -" s_854))" -"(let-values(((define-values578_1" -" _579_1" -" _580_1)" -"(let-values(((s_855)" -"(if(syntax?$1" -" s_854)" -"(syntax-e$1" -" s_854)" -" s_854)))" -"(if(pair?" -" s_855)" -"(let-values(((define-values581_0)" -"(let-values(((s_856)" -"(car" -" s_855)))" " s_856))" -"((_582_0" -" _583_0)" +"(let-values(((define-values579_1" +" _580_1" +" _581_1)" "(let-values(((s_857)" -"(cdr" -" s_855)))" +"(if(syntax?$1" +" s_856)" +"(syntax-e$1" +" s_856)" +" s_856)))" +"(if(pair?" +" s_857)" +"(let-values(((define-values582_0)" "(let-values(((s_858)" -"(if(syntax?$1" -" s_857)" -"(syntax-e$1" -" s_857)" +"(car" " s_857)))" -"(if(pair?" -" s_858)" -"(let-values(((_584_0)" +" s_858))" +"((_583_0" +" _584_0)" "(let-values(((s_859)" -"(car" -" s_858)))" -" s_859))" -"((_585_0)" +"(cdr" +" s_857)))" "(let-values(((s_860)" -"(cdr" -" s_858)))" -"(let-values(((s_861)" "(if(syntax?$1" -" s_860)" +" s_859)" "(syntax-e$1" -" s_860)" -" s_860)))" +" s_859)" +" s_859)))" "(if(pair?" -" s_861)" -"(let-values(((_586_0)" -"(let-values(((s_862)" +" s_860)" +"(let-values(((_585_0)" +"(let-values(((s_861)" "(car" -" s_861)))" -" s_862))" -"(()" -"(let-values(((s_863)" +" s_860)))" +" s_861))" +"((_586_0)" +"(let-values(((s_862)" "(cdr" -" s_861)))" -"(let-values(((s_864)" +" s_860)))" +"(let-values(((s_863)" "(if(syntax?$1" -" s_863)" +" s_862)" "(syntax-e$1" +" s_862)" +" s_862)))" +"(if(pair?" " s_863)" +"(let-values(((_587_0)" +"(let-values(((s_864)" +"(car" " s_863)))" +" s_864))" +"(()" +"(let-values(((s_865)" +"(cdr" +" s_863)))" +"(let-values(((s_866)" +"(if(syntax?$1" +" s_865)" +"(syntax-e$1" +" s_865)" +" s_865)))" "(if(null?" -" s_864)" +" s_866)" "(values)" "(raise-syntax-error$1" " #f" " \"bad syntax\"" " orig-s_91))))))" "(values" -" _586_0))" +" _587_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" " orig-s_91))))))" "(values" -" _584_0" -" _585_0))" +" _585_0" +" _586_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" " orig-s_91))))))" "(values" -" define-values581_0" -" _582_0" -" _583_0))" +" define-values582_0" +" _583_0" +" _584_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" " orig-s_91)))))" "(values" " #t" -" define-values578_1" -" _579_1" -" _580_1)))" +" define-values579_1" +" _580_1" +" _581_1)))" "(values" " #f" " #f" " #f" " #f)))))" "(let-values(((rebuild-s_15)" -"(let-values(((rhs-ctx587_0)" +"(let-values(((rhs-ctx588_0)" " rhs-ctx_2)" -"((s588_0)" -" s_853)" -"((temp589_0)" +"((s589_0)" +" s_625)" +"((temp590_0)" " #t))" "(keep-as-needed119.1" " #f" " #f" -" temp589_0" -" rhs-ctx587_0" -" s588_0))))" +" temp590_0" +" rhs-ctx588_0" +" s589_0))))" "(let-values((()" "(begin" "(log-defn-enter" @@ -75749,17 +75627,17 @@ static const char *startup_source = "(values))))" "(let-values(((exp-rhs_7)" "(let-values()" -"(let-values(((temp590_0)" +"(let-values(((temp591_0)" "(semi-parsed-define-values-rhs" " body_22))" -"((rhs-ctx591_0)" +"((rhs-ctx592_0)" " rhs-ctx_2))" "(expand9.1" " #f" " #f" " #f" -" temp590_0" -" rhs-ctx591_0)))))" +" temp591_0" +" rhs-ctx592_0)))))" "(let-values((()" "(begin" "(log-defn-exit" @@ -75775,76 +75653,76 @@ static const char *startup_source = "(if(expand-context-to-parsed?" " rhs-ctx_2)" " exp-rhs_7" -"(let-values(((exp-rhs592_0)" +"(let-values(((exp-rhs593_0)" " exp-rhs_7)" -"((temp593_0)" +"((temp594_0)" "(as-to-parsed-context" " rhs-ctx_2)))" "(expand9.1" " #f" " #f" " #f" -" exp-rhs592_0" -" temp593_0))))))" +" exp-rhs593_0" +" temp594_0))))))" "(if(expand-context-to-parsed?" " rhs-ctx_2)" " comp-form_0" "(expanded+parsed1.1" -"(let-values(((rebuild-s594_0)" +"(let-values(((rebuild-s595_0)" " rebuild-s_15)" -"((temp595_0)" +"((temp596_0)" "(list" -" define-values578_0" +" define-values579_0" " ids_48" " exp-rhs_7)))" "(rebuild5.1" " #t" -" rebuild-s594_0" -" temp595_0))" +" rebuild-s595_0" +" temp596_0))" " comp-form_0)))))))))))))" "(let-values()" "(let-values(((disarmed-body_0)" "(syntax-disarm$1 body_22)))" -"(let-values(((tmp_66)" +"(let-values(((tmp_65)" "(core-form-sym" " disarmed-body_0" -" phase_151)))" -"(if(if(equal? tmp_66 '#%require)" +" phase_150)))" +"(if(if(equal? tmp_65 '#%require)" " #t" -"(if(equal? tmp_66 '#%provide)" +"(if(equal? tmp_65 '#%provide)" " #t" -"(equal? tmp_66 'module*)))" +"(equal? tmp_65 'module*)))" "(let-values() body_22)" "(let-values()" "(let-values()" "(let-values(((exp-body_9)" -"(let-values(((body596_0)" +"(let-values(((body597_0)" " body_22)" -"((temp597_0)" +"((temp598_0)" "(as-expression-context" " body-ctx_7)))" "(expand9.1" " #f" " #f" " #f" -" body596_0" -" temp597_0))))" +" body597_0" +" temp598_0))))" "(if(expand-context-to-parsed?" " body-ctx_7)" " exp-body_9" "(expanded+parsed1.1" " exp-body_9" -"(let-values(((exp-body598_0)" +"(let-values(((exp-body599_0)" " exp-body_9)" -"((temp599_0)" +"((temp600_0)" "(as-to-parsed-context" " body-ctx_7)))" "(expand9.1" " #f" " #f" " #f" -" exp-body598_0" -" temp599_0)))))))))))))))" +" exp-body599_0" +" temp600_0)))))))))))))))" "(let-values(((lifted-defns_1)" "(get-and-clear-lifts!" "(expand-context-lifts body-ctx_7))))" @@ -75865,14 +75743,14 @@ static const char *startup_source = "(if no-lifts?_0" "(void)" "(let-values()" -"(let-values(((obs_157)" +"(let-values(((obs_155)" "(expand-context-observer" " body-ctx_7)))" -"(if obs_157" +"(if obs_155" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_157" +" obs_155" " 'module-lift-loop" "(append" " lifted-requires_0" @@ -75884,43 +75762,43 @@ static const char *startup_source = "(void)))))" "(values))))" "(let-values(((exp-lifted-modules_0)" -"(let-values(((lifted-modules600_0)" +"(let-values(((lifted-modules601_0)" " lifted-modules_0)" -"((phase601_0) phase_151)" -"((self602_0) self_36)" -"((body-ctx603_0)" +"((phase602_0) phase_150)" +"((self603_0) self_36)" +"((body-ctx604_0)" " body-ctx_7)" -"((mpis-to-reset604_0)" +"((mpis-to-reset605_0)" " mpis-to-reset_2)" -"((declared-submodule-names605_0)" +"((declared-submodule-names606_0)" " declared-submodule-names_5)" -"((compiled-submodules606_0)" +"((compiled-submodules607_0)" " compiled-submodules_3)" -"((modules-being-compiled607_0)" +"((modules-being-compiled608_0)" " modules-being-compiled_5))" "(expand-non-module*-submodules212.1" -" compiled-submodules606_0" -" declared-submodule-names605_0" -" modules-being-compiled607_0" -" mpis-to-reset604_0" -" lifted-modules600_0" -" phase601_0" -" self602_0" -" body-ctx603_0))))" +" compiled-submodules607_0" +" declared-submodule-names606_0" +" modules-being-compiled608_0" +" mpis-to-reset605_0" +" lifted-modules601_0" +" phase602_0" +" self603_0" +" body-ctx604_0))))" "(let-values(((exp-lifted-defns_0)" "(loop_126 #f lifted-defns_1)))" "(begin" "(if no-lifts?_0" "(void)" "(let-values()" -"(let-values(((obs_158)" +"(let-values(((obs_156)" "(expand-context-observer" " body-ctx_7)))" -"(if obs_158" +"(if obs_156" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_158" +" obs_156" " 'next)))" "(void)))))" "(append" @@ -75937,18 +75815,18 @@ static const char *startup_source = " partially-expanded-bodys_1)))))))))))))" "(define-values" "(check-defined-by-now)" -"(lambda(need-eventually-defined_3 self_37 ctx_115 requires+provides_9)" +"(lambda(need-eventually-defined_3 self_37 ctx_116 requires+provides_9)" "(begin" "(begin" -"(let-values(((ht_165) need-eventually-defined_3))" +"(let-values(((ht_166) need-eventually-defined_3))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-in-hash ht_165)))" -"((letrec-values(((for-loop_340)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-in-hash ht_166)))" +"((letrec-values(((for-loop_342)" "(lambda(i_186)" "(begin" " 'for-loop" "(if i_186" -"(let-values(((phase_152 l_89)(hash-iterate-key+value ht_165 i_186)))" +"(let-values(((phase_151 l_89)(hash-iterate-key+value ht_166 i_186)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -75956,24 +75834,24 @@ static const char *startup_source = "(begin" "(let-values()" "(begin" -"(let-values(((lst_447) l_89))" +"(let-values(((lst_446) l_89))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_447)))" -"((letrec-values(((for-loop_341)" -"(lambda(lst_448)" +"(let-values()(check-list lst_446)))" +"((letrec-values(((for-loop_343)" +"(lambda(lst_447)" "(begin" " 'for-loop" "(if(pair?" -" lst_448)" -"(let-values(((id_157)" +" lst_447)" +"(let-values(((id_158)" "(unsafe-car" -" lst_448))" +" lst_447))" "((rest_262)" "(unsafe-cdr" -" lst_448)))" +" lst_447)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -75981,18 +75859,18 @@ static const char *startup_source = "(begin" "(let-values()" "(let-values(((b_96)" -"(let-values(((id608_0)" -" id_157)" -"((phase609_0)" -" phase_152))" +"(let-values(((id609_0)" +" id_158)" +"((phase610_0)" +" phase_151))" "(resolve+shift28.1" " #f" " #f" " null" " unsafe-undefined" " #f" -" id608_0" -" phase609_0))))" +" id609_0" +" phase610_0))))" "(let-values(((bound-here?_0)" "(if b_96" "(if(module-binding?" @@ -76001,7 +75879,7 @@ static const char *startup_source = "(module-binding-sym" " b_96)" "(syntax-e$1" -" id_157))" +" id_158))" "(eq?" "(module-binding-module" " b_96)" @@ -76015,7 +75893,7 @@ static const char *startup_source = " requires+provides_9" "(module-binding-sym" " b_96)" -" phase_152)" +" phase_151)" " #f)))" "(if(eq?" " bound-kind_0" @@ -76038,37 +75916,37 @@ static const char *startup_source = " \"identifier treated as a variable, but later bound differently\")))" "(format" " \"\\n at phase: ~a\"" -"(let-values(((tmp_67)" -" phase_152))" +"(let-values(((tmp_66)" +" phase_151))" "(if(equal?" -" tmp_67" +" tmp_66" " 1)" "(let-values()" " \"1; the transformer environment\")" "(let-values()" -" phase_152)))))" -" id_157" +" phase_151)))))" +" id_158" " #f" " null" "(syntax-debug-info-string" -" id_157" -" ctx_115))))))))" +" id_158" +" ctx_116))))))))" "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_341" +"(for-loop_343" " rest_262)" "(values))))" "(values))))))" -" for-loop_341)" -" lst_447)))" +" for-loop_343)" +" lst_446)))" "(void)))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_340(hash-iterate-next ht_165 i_186))(values))))" +"(if(not #f)(for-loop_342(hash-iterate-next ht_166 i_186))(values))))" "(values))))))" -" for-loop_340)" -"(hash-iterate-first ht_165))))" +" for-loop_342)" +"(hash-iterate-first ht_166))))" "(void)))))" "(define-values" "(resolve-provides115.1)" @@ -76085,93 +75963,93 @@ static const char *startup_source = "(let-values(((requires+provides_10) requires-and-provides102_0))" "(let-values(((declared-submodule-names_6) declared-submodule-names103_0))" "(let-values(((m-ns_21) namespace104_0))" -"(let-values(((phase_153) phase105_0))" +"(let-values(((phase_152) phase105_0))" "(let-values(((self_38) self106_0))" -"(let-values(((ctx_116) ctx107_1))" +"(let-values(((ctx_117) ctx107_1))" "(let-values()" "(let-values()" "((letrec-values(((loop_127)" -"(lambda(bodys_26 phase_154)" +"(lambda(bodys_26 phase_153)" "(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_411)(parsed?(car bodys_26))))" +"(if or-part_411 or-part_411(expanded+parsed?(car bodys_26))))" "(let-values()" -"(cons(car bodys_26)(loop_127(cdr bodys_26) phase_154)))" +"(cons(car bodys_26)(loop_127(cdr bodys_26) phase_153)))" "(if(semi-parsed-begin-for-syntax?(car bodys_26))" "(let-values()" "(let-values(((nested-bodys_2)" "(loop_127" "(semi-parsed-begin-for-syntax-body(car bodys_26))" -"(add1 phase_154))))" +"(add1 phase_153))))" "(cons" -"(let-values(((the-struct_114)(car bodys_26)))" -"(if(semi-parsed-begin-for-syntax? the-struct_114)" -"(let-values(((body610_0) nested-bodys_2))" +"(let-values(((the-struct_116)(car bodys_26)))" +"(if(semi-parsed-begin-for-syntax? the-struct_116)" +"(let-values(((body611_0) nested-bodys_2))" "(semi-parsed-begin-for-syntax3.1" -"(semi-parsed-begin-for-syntax-s the-struct_114)" -" body610_0))" +"(semi-parsed-begin-for-syntax-s the-struct_116)" +" body611_0))" "(raise-argument-error" " 'struct-copy" " \"semi-parsed-begin-for-syntax?\"" -" the-struct_114)))" -"(loop_127(cdr bodys_26) phase_154))))" +" the-struct_116)))" +"(loop_127(cdr bodys_26) phase_153))))" "(let-values()" "(let-values(((disarmed-body_1)(syntax-disarm$1(car bodys_26))))" -"(let-values(((tmp_68)" -"(core-form-sym disarmed-body_1 phase_154)))" -"(if(equal? tmp_68 '#%provide)" +"(let-values(((tmp_67)" +"(core-form-sym disarmed-body_1 phase_153)))" +"(if(equal? tmp_67 '#%provide)" "(let-values()" "(let-values((()" "(begin" -"(let-values(((obs_159)" +"(let-values(((obs_157)" "(expand-context-observer" -" ctx_116)))" -"(if obs_159" +" ctx_117)))" +"(if obs_157" "(let-values()" "(let-values()" "(begin" "(call-expand-observe" -" obs_159" +" obs_157" " 'enter-prim" "(car bodys_26))" "(call-expand-observe" -" obs_159" +" obs_157" " 'prim-provide))))" "(void)))" "(values))))" -"(let-values(((ok?_88 #%provide611_0 spec612_0)" -"(let-values(((s_865) disarmed-body_1))" -"(let-values(((orig-s_92) s_865))" -"(let-values(((#%provide611_1" -" spec612_1)" -"(let-values(((s_866)" -"(if(syntax?$1" -" s_865)" -"(syntax-e$1" -" s_865)" -" s_865)))" -"(if(pair? s_866)" -"(let-values(((#%provide613_0)" -"(let-values(((s_867)" -"(car" -" s_866)))" -" s_867))" -"((spec614_0)" +"(let-values(((ok?_88 #%provide612_0 spec613_0)" +"(let-values(((s_867) disarmed-body_1))" +"(let-values(((orig-s_92) s_867))" +"(let-values(((#%provide612_1" +" spec613_1)" "(let-values(((s_868)" -"(cdr" -" s_866)))" -"(let-values(((s_869)" "(if(syntax?$1" -" s_868)" +" s_867)" "(syntax-e$1" -" s_868)" +" s_867)" +" s_867)))" +"(if(pair? s_868)" +"(let-values(((#%provide614_0)" +"(let-values(((s_665)" +"(car" " s_868)))" +" s_665))" +"((spec615_0)" +"(let-values(((s_666)" +"(cdr" +" s_868)))" +"(let-values(((s_667)" +"(if(syntax?$1" +" s_666)" +"(syntax-e$1" +" s_666)" +" s_666)))" "(let-values(((flat-s_64)" "(to-syntax-list.1" -" s_869)))" +" s_667)))" "(if(not" " flat-s_64)" "(let-values()" @@ -76182,177 +76060,173 @@ static const char *startup_source = "(let-values()" " flat-s_64)))))))" "(values" -" #%provide613_0" -" spec614_0))" +" #%provide614_0" +" spec615_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" " orig-s_92)))))" "(values" " #t" -" #%provide611_1" -" spec612_1))))))" +" #%provide612_1" +" spec613_1))))))" "(let-values(((track-stxes_10 specs_2)" "(parse-and-expand-provides!" -" spec612_0" +" spec613_0" "(car bodys_26)" " requires+provides_10" " self_38" -" phase_154" -"(let-values(((v_276) ctx_116))" -"(let-values(((the-struct_115)" -" v_276))" +" phase_153" +"(let-values(((v_275) ctx_117))" +"(let-values(((the-struct_117)" +" v_275))" "(if(expand-context/outer?" -" the-struct_115)" -"(let-values(((context615_0)" +" the-struct_117)" +"(let-values(((context616_0)" " 'top-level)" -"((inner616_0)" -"(let-values(((the-struct_116)" +"((inner617_0)" +"(let-values(((the-struct_118)" "(root-expand-context/outer-inner" -" v_276)))" +" v_275)))" "(if(expand-context/inner?" -" the-struct_116)" -"(let-values(((phase617_0)" -" phase_154)" -"((namespace618_0)" +" the-struct_118)" +"(let-values(((phase618_0)" +" phase_153)" +"((namespace619_0)" "(namespace->namespace-at-phase" " m-ns_21" -" phase_154))" -"((requires+provides619_0)" +" phase_153))" +"((requires+provides620_0)" " requires+provides_10)" -"((declared-submodule-names620_0)" +"((declared-submodule-names621_0)" " declared-submodule-names_6))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi" -" the-struct_116)" +" the-struct_118)" "(root-expand-context/inner-module-scopes" -" the-struct_116)" +" the-struct_118)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_116)" +" the-struct_118)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_116)" +" the-struct_118)" "(root-expand-context/inner-defined-syms" -" the-struct_116)" +" the-struct_118)" "(root-expand-context/inner-counter" -" the-struct_116)" +" the-struct_118)" "(root-expand-context/inner-lift-key" -" the-struct_116)" +" the-struct_118)" "(expand-context/inner-to-parsed?" -" the-struct_116)" -" phase617_0" -" namespace618_0" +" the-struct_118)" +" phase618_0" +" namespace619_0" "(expand-context/inner-just-once?" -" the-struct_116)" +" the-struct_118)" "(expand-context/inner-module-begin-k" -" the-struct_116)" +" the-struct_118)" "(expand-context/inner-allow-unbound?" -" the-struct_116)" +" the-struct_118)" "(expand-context/inner-in-local-expand?" -" the-struct_116)" +" the-struct_118)" "(expand-context/inner-keep-#%expression?" -" the-struct_116)" +" the-struct_118)" "(expand-context/inner-stops" -" the-struct_116)" -" declared-submodule-names620_0" +" the-struct_118)" +" declared-submodule-names621_0" "(expand-context/inner-lifts" -" the-struct_116)" +" the-struct_118)" "(expand-context/inner-lift-envs" -" the-struct_116)" +" the-struct_118)" "(expand-context/inner-module-lifts" -" the-struct_116)" +" the-struct_118)" "(expand-context/inner-require-lifts" -" the-struct_116)" +" the-struct_118)" "(expand-context/inner-to-module-lifts" -" the-struct_116)" -" requires+provides619_0" +" the-struct_118)" +" requires+provides620_0" "(expand-context/inner-observer" -" the-struct_116)" +" the-struct_118)" "(expand-context/inner-for-serializable?" -" the-struct_116)" +" the-struct_118)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_116)))" +" the-struct_118)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_116)))))" +" the-struct_118)))))" "(expand-context/outer1.1" -" inner616_0" -"(root-expand-context/outer-post-expansion-scope" -" the-struct_115)" -"(root-expand-context/outer-post-expansion-shifts" -" the-struct_115)" +" inner617_0" +"(root-expand-context/outer-post-expansion" +" the-struct_117)" "(root-expand-context/outer-use-site-scopes" -" the-struct_115)" +" the-struct_117)" "(root-expand-context/outer-frame-id" -" the-struct_115)" -" context615_0" +" the-struct_117)" +" context616_0" "(expand-context/outer-env" -" the-struct_115)" -"(expand-context/outer-post-expansion-scope-action" -" the-struct_115)" +" the-struct_117)" "(expand-context/outer-scopes" -" the-struct_115)" +" the-struct_117)" "(expand-context/outer-def-ctx-scopes" -" the-struct_115)" +" the-struct_117)" "(expand-context/outer-binding-layer" -" the-struct_115)" +" the-struct_117)" "(expand-context/outer-reference-records" -" the-struct_115)" +" the-struct_117)" "(expand-context/outer-only-immediate?" -" the-struct_115)" +" the-struct_117)" "(expand-context/outer-need-eventually-defined" -" the-struct_115)" +" the-struct_117)" "(expand-context/outer-current-introduction-scopes" -" the-struct_115)" +" the-struct_117)" "(expand-context/outer-current-use-scopes" -" the-struct_115)" +" the-struct_117)" "(expand-context/outer-name" -" the-struct_115)))" +" the-struct_117)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_115)))))))" -"(if(expand-context-to-parsed? ctx_116)" +" the-struct_117)))))))" +"(if(expand-context-to-parsed? ctx_117)" "(let-values()" -"(loop_127(cdr bodys_26) phase_154))" +"(loop_127(cdr bodys_26) phase_153))" "(let-values()" -"(let-values(((new-s_11)" +"(let-values(((new-s_10)" "(syntax-track-origin*" " track-stxes_10" -"(let-values(((temp621_0)" +"(let-values(((temp622_0)" "(car bodys_26))" -"((temp622_0)" +"((temp623_0)" "(list*" -" #%provide611_0" +" #%provide612_0" " specs_2)))" "(rebuild5.1" " #t" -" temp621_0" -" temp622_0)))))" +" temp622_0" +" temp623_0)))))" "(begin" -"(let-values(((obs_160)" +"(let-values(((obs_158)" "(expand-context-observer" -" ctx_116)))" -"(if obs_160" +" ctx_117)))" +"(if obs_158" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_160" +" obs_158" " 'exit-prim" -" new-s_11)))" +" new-s_10)))" "(void)))" "(cons" -" new-s_11" +" new-s_10" "(loop_127" "(cdr bodys_26)" -" phase_154))))))))))" +" phase_153))))))))))" "(let-values()" "(cons" "(car bodys_26)" -"(loop_127(cdr bodys_26) phase_154))))))))))))))" +"(loop_127(cdr bodys_26) phase_153))))))))))))))" " loop_127)" " expression-expanded-bodys_1" -" phase_153)))))))))))))" +" phase_152)))))))))))))" "(define-values" "(declare-module-for-expansion139.1)" "(lambda(ctx125_0" @@ -76376,7 +76250,7 @@ static const char *startup_source = "(let-values(((self_39) self122_0))" "(let-values(((enclosing-self_3) enclosing123_0))" "(let-values(((root-ctx_7) root-ctx124_0))" -"(let-values(((ctx_117) ctx125_0))" +"(let-values(((ctx_118) ctx125_0))" "(let-values(((modules-being-compiled_6) modules-being-compiled126_0))" "(let-values(((compiled-module-box_1) fill127_0))" "(let-values()" @@ -76397,36 +76271,36 @@ 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_412) enclosing-self_3))" +"(if or-part_412 or-part_412 self_39)))))" "(let-values(((compiled-module_0)" -"(let-values(((parsed-mod623_0) parsed-mod_0)" -"((temp624_0)" -"(let-values(((m-ns628_0) m-ns_22)" -"((enclosing-self629_0) enclosing-self_3)" -"((temp630_0)" +"(let-values(((parsed-mod624_0) parsed-mod_0)" +"((temp625_0)" +"(let-values(((m-ns629_0) m-ns_22)" +"((enclosing-self630_0) enclosing-self_3)" +"((temp631_0)" "(if enclosing-self_3" "(1/resolved-module-path-name" " module-name_2)" " #f)))" "(make-compile-context14.1" -" temp630_0" +" temp631_0" " unsafe-undefined" -" enclosing-self629_0" -" m-ns628_0" +" enclosing-self630_0" +" m-ns629_0" " unsafe-undefined" " unsafe-undefined)))" -"((temp625_0)(expand-context-for-serializable? ctx_117))" -"((modules-being-compiled626_0) modules-being-compiled_6)" -"((temp627_0) #f))" +"((temp626_0)(expand-context-for-serializable? ctx_118))" +"((modules-being-compiled627_0) modules-being-compiled_6)" +"((temp628_0) #f))" "(compile-module13.1" " #f" -" modules-being-compiled626_0" -" temp627_0" -" temp625_0" +" modules-being-compiled627_0" +" temp628_0" +" temp626_0" " #f" -" parsed-mod623_0" -" temp624_0))))" +" parsed-mod624_0" +" temp625_0))))" "(let-values((()" "(begin" "(set-box! compiled-module-box_1 compiled-module_0)" @@ -76442,24 +76316,24 @@ static const char *startup_source = " 1/current-module-declare-name" "(1/make-resolved-module-path root-module-name_0))" "(let-values()" -"(let-values(((compiled-module631_0) compiled-module_0)((temp632_0) #f))" +"(let-values(((compiled-module632_0) compiled-module_0)((temp633_0) #f))" "(eval-module8.1" " unsafe-undefined" " #f" -" temp632_0" -" compiled-module631_0)))))))))))))))))))))))))" +" temp633_0" +" compiled-module632_0)))))))))))))))))))))))))" "(define-values" "(attach-root-expand-context-properties)" -"(lambda(s_684 root-ctx_8 orig-self_1 new-self_2)" +"(lambda(s_687 root-ctx_8 orig-self_1 new-self_2)" "(begin" -"(let-values(((s_688)" -"(syntax-property$1 s_684 'module-body-context(root-expand-context-all-scopes-stx root-ctx_8))))" -"(let-values(((s_870)" +"(let-values(((s_689)" +"(syntax-property$1 s_687 'module-body-context(root-expand-context-all-scopes-stx root-ctx_8))))" +"(let-values(((s_869)" "(syntax-property$1" -" s_688" +" s_689" " 'module-body-inside-context" -"(add-scope empty-syntax(root-expand-context-post-expansion-scope root-ctx_8)))))" -" s_870)))))" +"(apply-post-expansion(root-expand-context-post-expansion root-ctx_8) empty-syntax))))" +" s_869)))))" "(define-values" "(expand-post-submodules165.1)" "(lambda(all-scopes-s147_0" @@ -76478,7 +76352,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_155) phase143_0))" +"(let-values(((phase_154) phase143_0))" "(let-values(((self_40) self144_0))" "(let-values(((requires+provides_12) requires-and-provides145_0))" "(let-values(((enclosing-is-cross-phase-persistent?_1) enclosing-is-cross-phase-persistent?146_0))" @@ -76490,7 +76364,7 @@ static const char *startup_source = "(let-values(((submod-ctx_1) ctx152_0))" "(let-values()" "((letrec-values(((loop_128)" -"(lambda(bodys_27 phase_156)" +"(lambda(bodys_27 phase_155)" "(begin" " 'loop" "(if(null? bodys_27)" @@ -76503,38 +76377,38 @@ static const char *startup_source = "(let-values(((body-s_0)" "(semi-parsed-begin-for-syntax-s" " body_23)))" -"(let-values(((ok?_89 begin-for-syntax633_0 _634_0)" -"(let-values(((s_871)" +"(let-values(((ok?_89 begin-for-syntax634_0 _635_0)" +"(let-values(((s_870)" "(syntax-disarm$1" " body-s_0)))" -"(let-values(((orig-s_93) s_871))" -"(let-values(((begin-for-syntax633_1" -" _634_1)" +"(let-values(((orig-s_93) s_870))" +"(let-values(((begin-for-syntax634_1" +" _635_1)" +"(let-values(((s_871)" +"(if(syntax?$1" +" s_870)" +"(syntax-e$1" +" s_870)" +" s_870)))" +"(if(pair? s_871)" +"(let-values(((begin-for-syntax636_0)" "(let-values(((s_872)" -"(if(syntax?$1" -" s_871)" -"(syntax-e$1" -" s_871)" -" s_871)))" -"(if(pair? s_872)" -"(let-values(((begin-for-syntax635_0)" -"(let-values(((s_873)" "(car" -" s_872)))" -" s_873))" -"((_636_0)" -"(let-values(((s_874)" +" s_871)))" +" s_872))" +"((_637_0)" +"(let-values(((s_873)" "(cdr" -" s_872)))" -"(let-values(((s_875)" +" s_871)))" +"(let-values(((s_874)" "(if(syntax?$1" -" s_874)" +" s_873)" "(syntax-e$1" -" s_874)" -" s_874)))" +" s_873)" +" s_873)))" "(let-values(((flat-s_65)" "(to-syntax-list.1" -" s_875)))" +" s_874)))" "(if(not" " flat-s_65)" "(let-values()" @@ -76545,32 +76419,32 @@ static const char *startup_source = "(let-values()" " flat-s_65)))))))" "(values" -" begin-for-syntax635_0" -" _636_0))" +" begin-for-syntax636_0" +" _637_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" " orig-s_93)))))" "(values" " #t" -" begin-for-syntax633_1" -" _634_1))))))" +" begin-for-syntax634_1" +" _635_1))))))" "(let-values(((rebuild-body-s_0)" -"(let-values(((submod-ctx637_0)" +"(let-values(((submod-ctx638_0)" " submod-ctx_1)" -"((body-s638_0)" +"((body-s639_0)" " body-s_0))" "(keep-as-needed119.1" " #f" " #f" " #f" -" submod-ctx637_0" -" body-s638_0))))" +" submod-ctx638_0" +" body-s639_0))))" "(let-values(((nested-bodys_3)" "(loop_128" "(semi-parsed-begin-for-syntax-body" " body_23)" -"(add1 phase_156))))" +"(add1 phase_155))))" "(let-values(((parsed-bfs_0)" "(parsed-begin-for-syntax21.1" " rebuild-body-s_0" @@ -76580,33 +76454,33 @@ static const char *startup_source = " submod-ctx_1)" " parsed-bfs_0" "(expanded+parsed1.1" -"(let-values(((rebuild-body-s639_0)" +"(let-values(((rebuild-body-s640_0)" " rebuild-body-s_0)" -"((temp640_0)" +"((temp641_0)" "(list*" -" begin-for-syntax633_0" +" begin-for-syntax634_0" "(syntax-only" " nested-bodys_3))))" "(rebuild5.1" " #t" -" rebuild-body-s639_0" -" temp640_0))" +" rebuild-body-s640_0" +" temp641_0))" " parsed-bfs_0))" -"(loop_128 rest-bodys_3 phase_156))))))))" -"(if(let-values(((or-part_412)(parsed? body_23)))" -"(if or-part_412" -" or-part_412" +"(loop_128 rest-bodys_3 phase_155))))))))" +"(if(let-values(((or-part_413)(parsed? body_23)))" +"(if or-part_413" +" or-part_413" "(expanded+parsed? body_23)))" "(let-values()" -"(cons body_23(loop_128 rest-bodys_3 phase_156)))" +"(cons body_23(loop_128 rest-bodys_3 phase_155)))" "(let-values()" "(let-values(((disarmed-body_2)" "(syntax-disarm$1 body_23)))" -"(let-values(((tmp_69)" +"(let-values(((tmp_68)" "(core-form-sym" " disarmed-body_2" -" phase_156)))" -"(if(equal? tmp_69 'module*)" +" phase_155)))" +"(if(equal? tmp_68 'module*)" "(let-values()" "(let-values((()" "(begin" @@ -76618,63 +76492,63 @@ static const char *startup_source = " body_23" " submod-ctx_1)))" "(let-values(((ok?_90" -" module*641_0" -" name642_0" -" _643_0)" -"(let-values(((s_876)" +" module*642_0" +" name643_0" +" _644_0)" +"(let-values(((s_875)" " disarmed-body_2))" +"(if(let-values(((s_876)" +"(if(syntax?$1" +" s_875)" +"(syntax-e$1" +" s_875)" +" s_875)))" +"(if(pair? s_876)" "(if(let-values(((s_877)" -"(if(syntax?$1" -" s_876)" -"(syntax-e$1" -" s_876)" +"(car" " s_876)))" -"(if(pair? s_877)" -"(if(let-values(((s_878)" -"(car" -" s_877)))" " #t)" +"(let-values(((s_878)" +"(cdr" +" s_876)))" "(let-values(((s_879)" -"(cdr" -" s_877)))" -"(let-values(((s_880)" "(if(syntax?$1" -" s_879)" +" s_878)" "(syntax-e$1" +" s_878)" +" s_878)))" +"(if(pair?" " s_879)" +"(if(let-values(((s_880)" +"(car" " s_879)))" -"(if(pair?" -" s_880)" -"(if(let-values(((s_881)" -"(car" -" s_880)))" " #t)" -"(let-values(((s_882)" +"(let-values(((s_881)" "(cdr" -" s_880)))" -"(let-values(((s_883)" +" s_879)))" +"(let-values(((s_882)" "(if(syntax?$1" -" s_882)" +" s_881)" "(syntax-e$1" -" s_882)" -" s_882)))" +" s_881)" +" s_881)))" "(if(pair?" -" s_883)" -"(if(let-values(((s_884)" +" s_882)" +"(if(let-values(((s_883)" "(car" -" s_883)))" -"(let-values(((s_885)" +" s_882)))" +"(let-values(((s_884)" "(if(syntax?$1" -" s_884)" +" s_883)" "(syntax-e$1" -" s_884)" -" s_884)))" +" s_883)" +" s_883)))" "(eq?" " #f" -" s_885)))" -"(let-values(((s_886)" +" s_884)))" +"(let-values(((s_885)" "(cdr" -" s_883)))" +" s_882)))" " #t)" " #f)" " #f)))" @@ -76683,76 +76557,76 @@ static const char *startup_source = " #f)" " #f))" "(let-values()" -"(let-values(((module*641_1" -" name642_1" -" _643_1)" +"(let-values(((module*642_1" +" name643_1" +" _644_1)" +"(let-values(((s_886)" +"(if(syntax?$1" +" s_875)" +"(syntax-e$1" +" s_875)" +" s_875)))" +"(let-values(((module*645_0)" "(let-values(((s_887)" -"(if(syntax?$1" -" s_876)" -"(syntax-e$1" -" s_876)" -" s_876)))" -"(let-values(((module*644_0)" +"(car" +" s_886)))" +" s_887))" +"((name646_0" +" _647_0)" "(let-values(((s_888)" -"(car" -" s_887)))" -" s_888))" -"((name645_0" -" _646_0)" -"(let-values(((s_889)" "(cdr" -" s_887)))" -"(let-values(((s_890)" -"(if(syntax?$1" -" s_889)" -"(syntax-e$1" -" s_889)" -" s_889)))" -"(let-values(((name647_0)" +" s_886)))" "(let-values(((s_705)" +"(if(syntax?$1" +" s_888)" +"(syntax-e$1" +" s_888)" +" s_888)))" +"(let-values(((name648_0)" +"(let-values(((s_889)" "(car" -" s_890)))" -" s_705))" -"((_648_0)" -"(let-values(((s_891)" +" s_705)))" +" s_889))" +"((_649_0)" +"(let-values(((s_890)" "(cdr" +" s_705)))" +"(let-values(((s_706)" +"(if(syntax?$1" +" s_890)" +"(syntax-e$1" +" s_890)" " s_890)))" +"(let-values((()" +"(let-values(((s_891)" +"(car" +" s_706)))" "(let-values(((s_892)" "(if(syntax?$1" " s_891)" "(syntax-e$1" " s_891)" " s_891)))" -"(let-values((()" -"(let-values(((s_893)" -"(car" -" s_892)))" -"(let-values(((s_706)" -"(if(syntax?$1" -" s_893)" -"(syntax-e$1" -" s_893)" -" s_893)))" "(values))))" -"((_649_0)" -"(let-values(((s_894)" +"((_650_0)" +"(let-values(((s_707)" "(cdr" -" s_892)))" -" s_894)))" +" s_706)))" +" s_707)))" "(values" +" _650_0))))))" +"(values" +" name648_0" " _649_0))))))" "(values" -" name647_0" -" _648_0))))))" -"(values" -" module*644_0" -" name645_0" -" _646_0)))))" +" module*645_0" +" name646_0" +" _647_0)))))" "(values" " #t" -" module*641_1" -" name642_1" -" _643_1)))" +" module*642_1" +" name643_1" +" _644_1)))" "(values" " #f" " #f" @@ -76764,49 +76638,49 @@ static const char *startup_source = "(let-values(((neg-phase_0)" "(phase-" " 0" -" phase_156)))" +" phase_155)))" "(let-values(((shifted-s_0)" "(syntax-shift-phase-level$1" " ready-body_2" " neg-phase_0)))" "(let-values(((submod_4)" -"(let-values(((shifted-s650_0)" +"(let-values(((shifted-s651_0)" " shifted-s_0)" -"((self651_0)" +"((self652_0)" " self_40)" -"((submod-ctx652_0)" +"((submod-ctx653_0)" " submod-ctx_1)" -"((temp653_0)" +"((temp654_0)" " #t)" -"((neg-phase654_0)" +"((neg-phase655_0)" " neg-phase_0)" -"((all-scopes-s655_0)" +"((all-scopes-s656_0)" " all-scopes-s_1)" -"((requires+provides656_0)" +"((requires+provides657_0)" " requires+provides_12)" -"((enclosing-is-cross-phase-persistent?657_0)" +"((enclosing-is-cross-phase-persistent?658_0)" " enclosing-is-cross-phase-persistent?_1)" -"((mpis-to-reset658_0)" +"((mpis-to-reset659_0)" " mpis-to-reset_3)" -"((declared-submodule-names659_0)" +"((declared-submodule-names660_0)" " declared-submodule-names_7)" -"((compiled-submodules660_0)" +"((compiled-submodules661_0)" " compiled-submodules_4)" -"((modules-being-compiled661_0)" +"((modules-being-compiled662_0)" " modules-being-compiled_7))" "(expand-submodule197.1" -" compiled-submodules660_0" -" declared-submodule-names659_0" -" all-scopes-s655_0" -" enclosing-is-cross-phase-persistent?657_0" -" requires+provides656_0" -" temp653_0" -" neg-phase654_0" -" modules-being-compiled661_0" -" mpis-to-reset658_0" -" shifted-s650_0" -" self651_0" -" submod-ctx652_0))))" +" compiled-submodules661_0" +" declared-submodule-names660_0" +" all-scopes-s656_0" +" enclosing-is-cross-phase-persistent?658_0" +" requires+provides657_0" +" temp654_0" +" neg-phase655_0" +" modules-being-compiled662_0" +" mpis-to-reset659_0" +" shifted-s651_0" +" self652_0" +" submod-ctx653_0))))" "(if(parsed?" " submod_4)" "(let-values()" @@ -76814,147 +76688,147 @@ static const char *startup_source = "(if(expanded+parsed?" " submod_4)" "(let-values()" -"(let-values(((the-struct_117)" +"(let-values(((the-struct_119)" " submod_4))" "(if(expanded+parsed?" -" the-struct_117)" -"(let-values(((s662_0)" +" the-struct_119)" +"(let-values(((s663_0)" "(syntax-shift-phase-level$1" "(expanded+parsed-s" " submod_4)" -" phase_156)))" +" phase_155)))" "(expanded+parsed1.1" -" s662_0" +" s663_0" "(expanded+parsed-parsed" -" the-struct_117)))" +" the-struct_119)))" "(raise-argument-error" " 'struct-copy" " \"expanded+parsed?\"" -" the-struct_117))))" +" the-struct_119))))" "(let-values()" "(syntax-shift-phase-level$1" " submod_4" -" phase_156))))))))" +" phase_155))))))))" "(let-values()" -"(let-values(((ready-body663_0)" +"(let-values(((ready-body664_0)" " ready-body_2)" -"((self664_0)" +"((self665_0)" " self_40)" -"((submod-ctx665_0)" +"((submod-ctx666_0)" " submod-ctx_1)" -"((temp666_0)" +"((temp667_0)" " #t)" -"((mpis-to-reset667_0)" +"((mpis-to-reset668_0)" " mpis-to-reset_3)" -"((declared-submodule-names668_0)" +"((declared-submodule-names669_0)" " declared-submodule-names_7)" -"((compiled-submodules669_0)" +"((compiled-submodules670_0)" " compiled-submodules_4)" -"((modules-being-compiled670_0)" +"((modules-being-compiled671_0)" " modules-being-compiled_7))" "(expand-submodule197.1" -" compiled-submodules669_0" -" declared-submodule-names668_0" +" compiled-submodules670_0" +" declared-submodule-names669_0" " #f" " #f" " #f" -" temp666_0" +" temp667_0" " #f" -" modules-being-compiled670_0" -" mpis-to-reset667_0" -" ready-body663_0" -" self664_0" -" submod-ctx665_0))))))" +" modules-being-compiled671_0" +" mpis-to-reset668_0" +" ready-body664_0" +" self665_0" +" submod-ctx666_0))))))" "(cons" " submod_3" "(loop_128" " rest-bodys_3" -" phase_156)))))))" +" phase_155)))))))" "(let-values()" "(cons" " body_23" "(loop_128" " rest-bodys_3" -" phase_156)))))))))))))))))" +" phase_155)))))))))))))))))" " loop_128)" " fully-expanded-bodys-except-post-submodules_2" -" phase_155)))))))))))))))))" +" phase_154)))))))))))))))))" "(define-values" "(stop-at-module*?)" -"(lambda(ctx_118)" +"(lambda(ctx_119)" "(begin" "(free-id-set-member?" -"(expand-context-stops ctx_118)" -"(expand-context-phase ctx_118)" -"(syntax-shift-phase-level$1(datum->syntax$1 core-stx 'module*)(expand-context-phase ctx_118))))))" +"(expand-context-stops ctx_119)" +"(expand-context-phase ctx_119)" +"(syntax-shift-phase-level$1(datum->syntax$1 core-stx 'module*)(expand-context-phase ctx_119))))))" "(define-values" "(check-ids-unbound173.1)" "(lambda(in168_0 ids170_0 phase171_0 requires+provides172_0)" "(begin" " 'check-ids-unbound173" "(let-values(((ids_49) ids170_0))" -"(let-values(((phase_157) phase171_0))" +"(let-values(((phase_156) phase171_0))" "(let-values(((requires+provides_13) requires+provides172_0))" -"(let-values(((s_895) in168_0))" +"(let-values(((s_893) in168_0))" "(let-values()" "(begin" -"(let-values(((lst_449) ids_49))" +"(let-values(((lst_448) ids_49))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_449)))" -"((letrec-values(((for-loop_342)" -"(lambda(lst_450)" +"(let-values()(check-list lst_448)))" +"((letrec-values(((for-loop_344)" +"(lambda(lst_449)" "(begin" " 'for-loop" -"(if(pair? lst_450)" -"(let-values(((id_158)(unsafe-car lst_450))" -"((rest_263)(unsafe-cdr lst_450)))" +"(if(pair? lst_449)" +"(let-values(((id_159)(unsafe-car lst_449))" +"((rest_263)(unsafe-cdr lst_449)))" "(let-values((()" "(let-values()" "(let-values((()" "(let-values()" "(begin" "(let-values()" -"(let-values(((requires+provides671_0)" +"(let-values(((requires+provides672_0)" " requires+provides_13)" -"((id672_0) id_158)" -"((phase673_0)" -" phase_157)" -"((s674_0) s_895)" -"((temp675_0) 'module))" +"((id673_0) id_159)" +"((phase674_0)" +" phase_156)" +"((s675_0) s_893)" +"((temp676_0) 'module))" "(check-not-defined95.1" " #f" " #f" " #f" -" s674_0" +" s675_0" " #f" " #f" -" temp675_0" -" requires+provides671_0" -" id672_0" -" phase673_0)))" +" temp676_0" +" requires+provides672_0" +" id673_0" +" phase674_0)))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_342 rest_263)(values))))" +"(if(not #f)(for-loop_344 rest_263)(values))))" "(values))))))" -" for-loop_342)" -" lst_449)))" +" for-loop_344)" +" lst_448)))" "(void))))))))))" "(define-values" "(eval-nested-bodys)" -"(lambda(bodys_28 phase_158 m-ns_23 self_41 ctx_119)" +"(lambda(bodys_28 phase_157 m-ns_23 self_41 ctx_120)" "(begin" "(begin" -"(let-values(((lst_451) bodys_28))" +"(let-values(((lst_450) bodys_28))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_451)))" -"((letrec-values(((for-loop_343)" -"(lambda(lst_452)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_450)))" +"((letrec-values(((for-loop_345)" +"(lambda(lst_451)" "(begin" " 'for-loop" -"(if(pair? lst_452)" -"(let-values(((body_24)(unsafe-car lst_452))((rest_264)(unsafe-cdr lst_452)))" +"(if(pair? lst_451)" +"(let-values(((body_24)(unsafe-car lst_451))((rest_264)(unsafe-cdr lst_451)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -76977,63 +76851,63 @@ static const char *startup_source = " ids_50" "(parsed-define-values-rhs" " p_88)" -" phase_158" +" phase_157" " m-ns_23" -" ctx_119)))" +" ctx_120)))" "(begin" -"(let-values(((lst_453) ids_50)" -"((lst_454)" +"(let-values(((lst_452) ids_50)" +"((lst_453)" "(parsed-define-values-syms" " p_88))" -"((lst_455) vals_11))" +"((lst_454) vals_11))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" +"(check-list lst_452)))" +"(if(variable-reference-from-unsafe?" +"(#%variable-reference))" +"(void)" +"(let-values()" "(check-list lst_453)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list lst_454)))" -"(if(variable-reference-from-unsafe?" -"(#%variable-reference))" -"(void)" -"(let-values()" -"(check-list lst_455)))" -"((letrec-values(((for-loop_344)" -"(lambda(lst_456" -" lst_457" -" lst_458)" +"((letrec-values(((for-loop_346)" +"(lambda(lst_455" +" lst_456" +" lst_457)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_456)" +" lst_455)" "(if(pair?" -" lst_457)" +" lst_456)" "(pair?" -" lst_458)" +" lst_457)" " #f)" " #f)" -"(let-values(((id_159)" +"(let-values(((id_160)" "(unsafe-car" -" lst_456))" +" lst_455))" "((rest_265)" "(unsafe-cdr" -" lst_456))" -"((sym_111)" +" lst_455))" +"((sym_112)" "(unsafe-car" -" lst_457))" +" lst_456))" "((rest_266)" "(unsafe-cdr" -" lst_457))" -"((val_87)" +" lst_456))" +"((val_88)" "(unsafe-car" -" lst_458))" +" lst_457))" "((rest_267)" "(unsafe-cdr" -" lst_458)))" +" lst_457)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -77042,37 +76916,37 @@ static const char *startup_source = "(let-values()" "(namespace-set-variable!" " m-ns_23" -" phase_158" -" sym_111" -" val_87))" +" phase_157" +" sym_112" +" val_88))" "(values)))))" "(values)))))" "(if(not" " #f)" -"(for-loop_344" +"(for-loop_346" " rest_265" " rest_266" " rest_267)" "(values))))" "(values))))))" -" for-loop_344)" +" for-loop_346)" +" lst_452" " lst_453" -" lst_454" -" lst_455)))" +" lst_454)))" "(void)))))" -"(if(let-values(((or-part_413)" -"(parsed-define-syntaxes?" -" p_88)))" -"(if or-part_413" -" or-part_413" -"(semi-parsed-begin-for-syntax?" -" p_88)))" -"(let-values()(void))" "(if(let-values(((or-part_414)" -"(parsed-#%declare?" +"(parsed-define-syntaxes?" " p_88)))" "(if or-part_414" " or-part_414" +"(semi-parsed-begin-for-syntax?" +" p_88)))" +"(let-values()(void))" +"(if(let-values(((or-part_415)" +"(parsed-#%declare?" +" p_88)))" +"(if or-part_415" +" or-part_415" "(syntax?$1 p_88)))" "(let-values()(void))" "(let-values()" @@ -77083,31 +76957,31 @@ static const char *startup_source = " #f" " parameterization-key)" " current-expand-context" -" ctx_119" +" ctx_120" " 1/current-namespace" " m-ns_23)" "(let-values()" "(eval-single-top" "(compile-single" " p_88" -"(let-values(((m-ns676_0)" +"(let-values(((m-ns677_0)" " m-ns_23)" -"((phase677_0)" -" phase_158))" +"((phase678_0)" +" phase_157))" "(make-compile-context14.1" " #f" " unsafe-undefined" " #f" -" m-ns676_0" -" phase677_0" +" m-ns677_0" +" phase678_0" " unsafe-undefined)))" " m-ns_23)))))))))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_343 rest_264)(values))))" +"(if(not #f)(for-loop_345 rest_264)(values))))" "(values))))))" -" for-loop_343)" -" lst_451)))" +" for-loop_345)" +" lst_450)))" "(void)))))" "(define-values" "(expand-submodule197.1)" @@ -77125,9 +76999,9 @@ static const char *startup_source = " ctx196_0)" "(begin" " 'expand-submodule197" -"(let-values(((s_734) s194_0))" +"(let-values(((s_737) s194_0))" "(let-values(((self_42) self195_0))" -"(let-values(((ctx_120) ctx196_0))" +"(let-values(((ctx_121) ctx196_0))" "(let-values(((is-star?_0) is-star?176_0))" "(let-values(((keep-enclosing-scope-at-phase_2) keep-enclosing-scope-at-phase177_0))" "(let-values(((enclosing-r+p_2) enclosing-requires+provides178_0))" @@ -77143,59 +77017,59 @@ static const char *startup_source = "(if is-star?_0" "(void)" "(let-values()" -"(let-values(((obs_161)(expand-context-observer ctx_120)))" -"(if obs_161" +"(let-values(((obs_159)(expand-context-observer ctx_121)))" +"(if obs_159" "(let-values()" "(let-values()" "(begin" -"(call-expand-observe obs_161 'enter-prim s_734)" +"(call-expand-observe obs_159 'enter-prim s_737)" "(call-expand-observe" -" obs_161" +" obs_159" "(if is-star?_0 'prim-submodule* 'prim-submodule)))))" "(void)))))" "(values))))" -"(let-values(((ok?_91 module678_0 name679_0 _680_0)" -"(let-values(((s_896) s_734))" -"(let-values(((orig-s_94) s_896))" -"(let-values(((module678_1 name679_1 _680_1)" +"(let-values(((ok?_91 module679_0 name680_0 _681_0)" +"(let-values(((s_760) s_737))" +"(let-values(((orig-s_94) s_760))" +"(let-values(((module679_1 name680_1 _681_1)" +"(let-values(((s_894)" +"(if(syntax?$1 s_760)" +"(syntax-e$1 s_760)" +" s_760)))" +"(if(pair? s_894)" +"(let-values(((module682_0)" +"(let-values(((s_895)(car s_894)))" +" s_895))" +"((name683_0 _684_0)" +"(let-values(((s_896)(cdr s_894)))" "(let-values(((s_897)" -"(if(syntax?$1 s_896)" +"(if(syntax?$1" +" s_896)" "(syntax-e$1 s_896)" " s_896)))" "(if(pair? s_897)" -"(let-values(((module681_0)" -"(let-values(((s_898)(car s_897)))" -" s_898))" -"((name682_0 _683_0)" -"(let-values(((s_899)(cdr s_897)))" -"(let-values(((s_900)" -"(if(syntax?$1" -" s_899)" -"(syntax-e$1 s_899)" -" s_899)))" -"(if(pair? s_900)" -"(let-values(((name684_0)" -"(let-values(((s_901)" +"(let-values(((name685_0)" +"(let-values(((s_898)" "(car" -" s_900)))" -" s_901))" -"((_685_0)" -"(let-values(((s_902)" +" s_897)))" +" s_898))" +"((_686_0)" +"(let-values(((s_899)" "(cdr" -" s_900)))" -" s_902)))" -"(values name684_0 _685_0))" +" s_897)))" +" s_899)))" +"(values name685_0 _686_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" " orig-s_94))))))" -"(values module681_0 name682_0 _683_0))" +"(values module682_0 name683_0 _684_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" " orig-s_94)))))" -"(values #t module678_1 name679_1 _680_1))))))" -"(let-values(((name_82)(syntax-e$1 name679_0)))" +"(values #t module679_1 name680_1 _681_1))))))" +"(let-values(((name_82)(syntax-e$1 name680_0)))" "(let-values((()" "(begin" "(if(hash-ref declared-submodule-names_8 name_82 #f)" @@ -77203,7 +77077,7 @@ static const char *startup_source = "(raise-syntax-error$1" " #f" " \"submodule already declared with the same name\"" -" s_734" +" s_737" " name_82))" "(void))" "(values))))" @@ -77212,199 +77086,194 @@ static const char *startup_source = "(hash-set!" " declared-submodule-names_8" " name_82" -"(syntax-e$1 module678_0))" +"(syntax-e$1 module679_0))" "(values))))" "(let-values((()" "(begin" -"(let-values(((obs_162)(expand-context-observer ctx_120)))" -"(if obs_162" +"(let-values(((obs_160)(expand-context-observer ctx_121)))" +"(if obs_160" "(let-values()" "(let-values()" -"(call-expand-observe obs_162 'enter-prim s_734)))" +"(call-expand-observe obs_160 'enter-prim s_737)))" "(void)))" "(values))))" "(let-values(((submod_5)" -"(let-values(((s686_0) s_734)" -"((temp687_0)" -"(let-values(((v_277) ctx_120))" -"(let-values(((the-struct_118) v_277))" -"(if(expand-context/outer? the-struct_118)" -"(let-values(((context696_0) 'module)" -"((post-expansion-scope697_0)" -" #f)" -"((inner698_0)" -"(let-values(((the-struct_119)" +"(let-values(((s687_0) s_737)" +"((temp688_0)" +"(let-values(((v_276) ctx_121))" +"(let-values(((the-struct_120) v_276))" +"(if(expand-context/outer? the-struct_120)" +"(let-values(((context697_0) 'module)" +"((post-expansion698_0) #f)" +"((inner699_0)" +"(let-values(((the-struct_121)" "(root-expand-context/outer-inner" -" v_277)))" +" v_276)))" "(if(expand-context/inner?" -" the-struct_119)" -"(let-values(((stops699_0)" +" the-struct_121)" +"(let-values(((stops700_0)" " empty-free-id-set))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi" -" the-struct_119)" +" the-struct_121)" "(root-expand-context/inner-module-scopes" -" the-struct_119)" +" the-struct_121)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_119)" +" the-struct_121)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_119)" +" the-struct_121)" "(root-expand-context/inner-defined-syms" -" the-struct_119)" +" the-struct_121)" "(root-expand-context/inner-counter" -" the-struct_119)" +" the-struct_121)" "(root-expand-context/inner-lift-key" -" the-struct_119)" +" the-struct_121)" "(expand-context/inner-to-parsed?" -" the-struct_119)" +" the-struct_121)" "(expand-context/inner-phase" -" the-struct_119)" +" the-struct_121)" "(expand-context/inner-namespace" -" the-struct_119)" +" the-struct_121)" "(expand-context/inner-just-once?" -" the-struct_119)" +" the-struct_121)" "(expand-context/inner-module-begin-k" -" the-struct_119)" +" the-struct_121)" "(expand-context/inner-allow-unbound?" -" the-struct_119)" +" the-struct_121)" "(expand-context/inner-in-local-expand?" -" the-struct_119)" +" the-struct_121)" "(expand-context/inner-keep-#%expression?" -" the-struct_119)" -" stops699_0" +" the-struct_121)" +" stops700_0" "(expand-context/inner-declared-submodule-names" -" the-struct_119)" +" the-struct_121)" "(expand-context/inner-lifts" -" the-struct_119)" +" the-struct_121)" "(expand-context/inner-lift-envs" -" the-struct_119)" +" the-struct_121)" "(expand-context/inner-module-lifts" -" the-struct_119)" +" the-struct_121)" "(expand-context/inner-require-lifts" -" the-struct_119)" +" the-struct_121)" "(expand-context/inner-to-module-lifts" -" the-struct_119)" +" the-struct_121)" "(expand-context/inner-requires+provides" -" the-struct_119)" +" the-struct_121)" "(expand-context/inner-observer" -" the-struct_119)" +" the-struct_121)" "(expand-context/inner-for-serializable?" -" the-struct_119)" +" the-struct_121)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_119)))" +" the-struct_121)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_119)))))" +" the-struct_121)))))" "(expand-context/outer1.1" -" inner698_0" -" post-expansion-scope697_0" -"(root-expand-context/outer-post-expansion-shifts" -" the-struct_118)" +" inner699_0" +" post-expansion698_0" "(root-expand-context/outer-use-site-scopes" -" the-struct_118)" +" the-struct_120)" "(root-expand-context/outer-frame-id" -" the-struct_118)" -" context696_0" +" the-struct_120)" +" context697_0" "(expand-context/outer-env" -" the-struct_118)" -"(expand-context/outer-post-expansion-scope-action" -" the-struct_118)" +" the-struct_120)" "(expand-context/outer-scopes" -" the-struct_118)" +" the-struct_120)" "(expand-context/outer-def-ctx-scopes" -" the-struct_118)" +" the-struct_120)" "(expand-context/outer-binding-layer" -" the-struct_118)" +" the-struct_120)" "(expand-context/outer-reference-records" -" the-struct_118)" +" the-struct_120)" "(expand-context/outer-only-immediate?" -" the-struct_118)" +" the-struct_120)" "(expand-context/outer-need-eventually-defined" -" the-struct_118)" +" the-struct_120)" "(expand-context/outer-current-introduction-scopes" -" the-struct_118)" +" the-struct_120)" "(expand-context/outer-current-use-scopes" -" the-struct_118)" +" the-struct_120)" "(expand-context/outer-name" -" the-struct_118)))" +" the-struct_120)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_118)))))" -"((self688_0) self_42)" -"((temp689_0) #t)" -"((keep-enclosing-scope-at-phase690_0)" +" the-struct_120)))))" +"((self689_0) self_42)" +"((temp690_0) #t)" +"((keep-enclosing-scope-at-phase691_0)" " keep-enclosing-scope-at-phase_2)" -"((enclosing-all-scopes-stx691_0)" +"((enclosing-all-scopes-stx692_0)" " enclosing-all-scopes-stx_1)" -"((enclosing-r+p692_0) enclosing-r+p_2)" -"((enclosing-is-cross-phase-persistent?693_0)" +"((enclosing-r+p693_0) enclosing-r+p_2)" +"((enclosing-is-cross-phase-persistent?694_0)" " enclosing-is-cross-phase-persistent?_2)" -"((mpis-to-reset694_0) mpis-to-reset_4)" -"((modules-being-compiled695_0)" +"((mpis-to-reset695_0) mpis-to-reset_4)" +"((modules-being-compiled696_0)" " modules-being-compiled_8))" "(expand-module18.1" -" temp689_0" -" enclosing-all-scopes-stx691_0" -" enclosing-is-cross-phase-persistent?693_0" -" enclosing-r+p692_0" -" keep-enclosing-scope-at-phase690_0" -" modules-being-compiled695_0" -" mpis-to-reset694_0" -" s686_0" -" temp687_0" -" self688_0))))" +" temp690_0" +" enclosing-all-scopes-stx692_0" +" enclosing-is-cross-phase-persistent?694_0" +" enclosing-r+p693_0" +" keep-enclosing-scope-at-phase691_0" +" modules-being-compiled696_0" +" mpis-to-reset695_0" +" s687_0" +" temp688_0" +" self689_0))))" "(let-values((()" "(begin" -"(let-values(((obs_163)" -"(expand-context-observer ctx_120)))" -"(if obs_163" +"(let-values(((obs_161)" +"(expand-context-observer ctx_121)))" +"(if obs_161" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_163" +" obs_161" " 'exit-prim" "(extract-syntax submod_5))))" "(void)))" "(values))))" -"(let-values(((ns_131)(expand-context-namespace ctx_120)))" +"(let-values(((ns_131)(expand-context-namespace ctx_121)))" "(let-values(((module-name_3)(1/module-path-index-resolve self_42)))" "(let-values(((root-module-name_1)" "(resolved-module-path-root-name module-name_3)))" "(let-values(((compiled-submodule_0)" -"(let-values(((temp700_0)" +"(let-values(((temp701_0)" "(if(expanded+parsed? submod_5)" "(expanded+parsed-parsed submod_5)" " submod_5))" -"((temp701_0)" -"(let-values(((ns706_0) ns_131)" -"((self707_0) self_42)" -"((temp708_0)" +"((temp702_0)" +"(let-values(((ns707_0) ns_131)" +"((self708_0) self_42)" +"((temp709_0)" "(1/resolved-module-path-name" " module-name_3)))" "(make-compile-context14.1" -" temp708_0" +" temp709_0" " unsafe-undefined" -" self707_0" -" ns706_0" +" self708_0" +" ns707_0" " unsafe-undefined" " unsafe-undefined)))" -"((temp702_0) #t)" -"((temp703_0)" +"((temp703_0) #t)" +"((temp704_0)" "(expand-context-for-serializable?" -" ctx_120))" -"((modules-being-compiled704_0)" +" ctx_121))" +"((modules-being-compiled705_0)" " modules-being-compiled_8)" -"((temp705_0) #f))" +"((temp706_0) #f))" "(compile-module13.1" -" temp702_0" -" modules-being-compiled704_0" -" temp705_0" " temp703_0" +" modules-being-compiled705_0" +" temp706_0" +" temp704_0" " #f" -" temp700_0" -" temp701_0))))" +" temp701_0" +" temp702_0))))" "(begin" "(hash-set!" " compiled-submodules_5" @@ -77419,24 +77288,24 @@ static const char *startup_source = " 1/current-module-declare-name" "(1/make-resolved-module-path root-module-name_1))" "(let-values()" -"(let-values(((compiled-submodule709_0)" +"(let-values(((compiled-submodule710_0)" " compiled-submodule_0)" -"((temp710_0) #f))" +"((temp711_0) #f))" "(eval-module8.1" " unsafe-undefined" " #f" -" temp710_0" -" compiled-submodule709_0))))" +" temp711_0" +" compiled-submodule710_0))))" "(if is-star?_0" "(void)" "(let-values()" -"(let-values(((obs_164)" -"(expand-context-observer ctx_120)))" -"(if obs_164" +"(let-values(((obs_162)" +"(expand-context-observer ctx_121)))" +"(if obs_162" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_164" +" obs_162" " 'exit-prim" "(extract-syntax submod_5))))" "(void)))))" @@ -77444,67 +77313,67 @@ static const char *startup_source = "(let-values() submod_5)" "(if(expanded+parsed? submod_5)" "(let-values()" -"(let-values(((the-struct_120) submod_5))" -"(if(expanded+parsed? the-struct_120)" -"(let-values(((parsed711_0)" -"(let-values(((the-struct_121)" +"(let-values(((the-struct_122) submod_5))" +"(if(expanded+parsed? the-struct_122)" +"(let-values(((parsed712_0)" +"(let-values(((the-struct_123)" "(expanded+parsed-parsed" " submod_5)))" -"(if(parsed-module? the-struct_121)" -"(let-values(((star?712_0) #t))" +"(if(parsed-module? the-struct_123)" +"(let-values(((star?713_0) #t))" "(parsed-module25.1" -"(parsed-s the-struct_121)" -" star?712_0" +"(parsed-s the-struct_123)" +" star?713_0" "(parsed-module-name-id" -" the-struct_121)" +" the-struct_123)" "(parsed-module-self" -" the-struct_121)" +" the-struct_123)" "(parsed-module-requires" -" the-struct_121)" +" the-struct_123)" "(parsed-module-provides" -" the-struct_121)" +" the-struct_123)" "(parsed-module-root-ctx-simple?" -" the-struct_121)" +" the-struct_123)" "(parsed-module-encoded-root-ctx" -" the-struct_121)" +" the-struct_123)" "(parsed-module-body" -" the-struct_121)" +" the-struct_123)" "(parsed-module-compiled-module" -" the-struct_121)" +" the-struct_123)" "(parsed-module-compiled-submodules" -" the-struct_121)))" +" the-struct_123)))" "(raise-argument-error" " 'struct-copy" " \"parsed-module?\"" -" the-struct_121)))))" +" the-struct_123)))))" "(expanded+parsed1.1" -"(expanded+parsed-s the-struct_120)" -" parsed711_0))" +"(expanded+parsed-s the-struct_122)" +" parsed712_0))" "(raise-argument-error" " 'struct-copy" " \"expanded+parsed?\"" -" the-struct_120))))" +" the-struct_122))))" "(let-values()" -"(let-values(((the-struct_122) submod_5))" -"(if(parsed-module? the-struct_122)" -"(let-values(((star?713_0) #t))" +"(let-values(((the-struct_124) submod_5))" +"(if(parsed-module? the-struct_124)" +"(let-values(((star?714_0) #t))" "(parsed-module25.1" -"(parsed-s the-struct_122)" -" star?713_0" -"(parsed-module-name-id the-struct_122)" -"(parsed-module-self the-struct_122)" -"(parsed-module-requires the-struct_122)" -"(parsed-module-provides the-struct_122)" -"(parsed-module-root-ctx-simple? the-struct_122)" -"(parsed-module-encoded-root-ctx the-struct_122)" -"(parsed-module-body the-struct_122)" -"(parsed-module-compiled-module the-struct_122)" +"(parsed-s the-struct_124)" +" star?714_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-compiled-submodules" -" the-struct_122)))" +" the-struct_124)))" "(raise-argument-error" " 'struct-copy" " \"parsed-module?\"" -" the-struct_122)))))))))))))))))))))))))))))))))))" +" the-struct_124)))))))))))))))))))))))))))))))))))" "(define-values" "(expand-non-module*-submodules212.1)" "(lambda(compiled-submodules202_0" @@ -77518,79 +77387,79 @@ static const char *startup_source = "(begin" " 'expand-non-module*-submodules212" "(let-values(((bodys_29) bodys208_0))" -"(let-values(((phase_159) phase209_0))" +"(let-values(((phase_158) phase209_0))" "(let-values(((self_43) self210_0))" -"(let-values(((ctx_121) ctx211_0))" +"(let-values(((ctx_122) ctx211_0))" "(let-values(((mpis-to-reset_5) mpis-to-reset200_0))" "(let-values(((declared-submodule-names_9) declared-submodule-names201_0))" "(let-values(((compiled-submodules_6) compiled-submodules202_0))" "(let-values(((modules-being-compiled_9) modules-being-compiled203_0))" "(let-values()" "(reverse$1" -"(let-values(((lst_459) bodys_29))" +"(let-values(((lst_458) bodys_29))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_459)))" -"((letrec-values(((for-loop_345)" -"(lambda(fold-var_385 lst_460)" +"(let-values()(check-list lst_458)))" +"((letrec-values(((for-loop_347)" +"(lambda(fold-var_385 lst_459)" "(begin" " 'for-loop" -"(if(pair? lst_460)" -"(let-values(((body_25)(unsafe-car lst_460))" -"((rest_268)(unsafe-cdr lst_460)))" +"(if(pair? lst_459)" +"(let-values(((body_25)(unsafe-car lst_459))" +"((rest_268)(unsafe-cdr lst_459)))" "(let-values(((fold-var_386)" "(let-values(((fold-var_387) fold-var_385))" "(let-values(((fold-var_388)" "(let-values()" "(cons" "(let-values()" -"(let-values(((tmp_70)" +"(let-values(((tmp_69)" "(core-form-sym" "(syntax-disarm$1" " body_25)" -" phase_159)))" -"(if(equal? tmp_70 'module)" +" phase_158)))" +"(if(equal? tmp_69 'module)" "(let-values()" -"(let-values(((body714_0)" +"(let-values(((body715_0)" " body_25)" -"((self715_0)" +"((self716_0)" " self_43)" -"((ctx716_0)" -" ctx_121)" -"((temp717_0)" +"((ctx717_0)" +" ctx_122)" +"((temp718_0)" " #f)" -"((mpis-to-reset718_0)" +"((mpis-to-reset719_0)" " mpis-to-reset_5)" -"((declared-submodule-names719_0)" +"((declared-submodule-names720_0)" " declared-submodule-names_9)" -"((compiled-submodules720_0)" +"((compiled-submodules721_0)" " compiled-submodules_6)" -"((modules-being-compiled721_0)" +"((modules-being-compiled722_0)" " modules-being-compiled_9))" "(expand-submodule197.1" -" compiled-submodules720_0" -" declared-submodule-names719_0" +" compiled-submodules721_0" +" declared-submodule-names720_0" " #f" " #f" " #f" -" temp717_0" +" temp718_0" " #f" -" modules-being-compiled721_0" -" mpis-to-reset718_0" -" body714_0" -" self715_0" -" ctx716_0)))" +" modules-being-compiled722_0" +" mpis-to-reset719_0" +" body715_0" +" self716_0" +" ctx717_0)))" "(let-values() body_25))))" " fold-var_387))))" "(values fold-var_388)))))" "(if(not #f)" -"(for-loop_345 fold-var_386 rest_268)" +"(for-loop_347 fold-var_386 rest_268)" " fold-var_386)))" " fold-var_385)))))" -" for-loop_345)" +" for-loop_347)" " null" -" lst_459))))))))))))))))" +" lst_458))))))))))))))))" "(define-values" "(make-parse-lifted-require220.1)" "(lambda(declared-submodule-names215_0 m-ns217_0 self218_0 requires+provides219_0)" @@ -77601,75 +77470,75 @@ static const char *startup_source = "(let-values(((requires+provides_14) requires+provides219_0))" "(let-values(((declared-submodule-names_10) declared-submodule-names215_0))" "(let-values()" -"(lambda(s_903 phase_160)" -"(let-values(((ok?_92 #%require722_0 req723_0)" -"(let-values(((s_904)(syntax-disarm$1 s_903)))" -"(let-values(((orig-s_95) s_904))" -"(let-values(((#%require722_1 req723_1)" +"(lambda(s_900 phase_159)" +"(let-values(((ok?_92 #%require723_0 req724_0)" +"(let-values(((s_901)(syntax-disarm$1 s_900)))" +"(let-values(((orig-s_95) s_901))" +"(let-values(((#%require723_1 req724_1)" +"(let-values(((s_902)" +"(if(syntax?$1 s_901)(syntax-e$1 s_901) s_901)))" +"(if(pair? s_902)" +"(let-values(((#%require725_0)" +"(let-values(((s_903)(car s_902))) s_903))" +"((req726_0)" +"(let-values(((s_904)(cdr s_902)))" "(let-values(((s_905)" -"(if(syntax?$1 s_904)(syntax-e$1 s_904) s_904)))" +"(if(syntax?$1 s_904)" +"(syntax-e$1 s_904)" +" s_904)))" "(if(pair? s_905)" -"(let-values(((#%require724_0)" -"(let-values(((s_906)(car s_905))) s_906))" -"((req725_0)" -"(let-values(((s_907)(cdr s_905)))" -"(let-values(((s_908)" -"(if(syntax?$1 s_907)" -"(syntax-e$1 s_907)" -" s_907)))" -"(if(pair? s_908)" -"(let-values(((req726_0)" -"(let-values(((s_909)" -"(car s_908)))" -" s_909))" +"(let-values(((req727_0)" +"(let-values(((s_906)" +"(car s_905)))" +" s_906))" "(()" -"(let-values(((s_910)" -"(cdr s_908)))" -"(let-values(((s_911)" +"(let-values(((s_907)" +"(cdr s_905)))" +"(let-values(((s_908)" "(if(syntax?$1" -" s_910)" +" s_907)" "(syntax-e$1" -" s_910)" -" s_910)))" -"(if(null? s_911)" +" s_907)" +" s_907)))" +"(if(null? s_908)" "(values)" "(raise-syntax-error$1" " #f" " \"bad syntax\"" " orig-s_95))))))" -"(values req726_0))" +"(values req727_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" " orig-s_95))))))" -"(values #%require724_0 req725_0))" +"(values #%require725_0 req726_0))" " (raise-syntax-error$1 #f \"bad syntax\" orig-s_95)))))" -"(values #t #%require722_1 req723_1))))))" -"(let-values(((temp727_0)(list req723_0))" -"((s728_0) s_903)" -"((self729_0) self_44)" -"((m-ns730_0) m-ns_24)" -"((phase731_0) phase_160)" -"((phase732_0) phase_160)" -"((requires+provides733_0) requires+provides_14)" -"((declared-submodule-names734_0) declared-submodule-names_10)" -"((temp735_0) 'require))" +"(values #t #%require723_1 req724_1))))))" +"(let-values(((temp728_0)(list req724_0))" +"((s729_0) s_900)" +"((self730_0) self_44)" +"((m-ns731_0) m-ns_24)" +"((phase732_0) phase_159)" +"((phase733_0) phase_159)" +"((requires+provides734_0) requires+provides_14)" +"((declared-submodule-names735_0) declared-submodule-names_10)" +"((temp736_0) 'require))" "(parse-and-perform-requires!30.1" " #f" " #f" -" declared-submodule-names734_0" +" declared-submodule-names735_0" " #f" -" phase732_0" +" phase733_0" " #f" -" self729_0" +" self730_0" " #f" " #t" -" temp735_0" -" temp727_0" -" s728_0" -" m-ns730_0" -" phase731_0" -" requires+provides733_0))))))))))))" +" temp736_0" +" temp728_0" +" s729_0" +" m-ns731_0" +" phase732_0" +" requires+provides734_0))))))))))))" "(define-values" "(defn-extract-syntax)" "(lambda(defn_0)" @@ -77683,16 +77552,16 @@ static const char *startup_source = "(lambda(lifted-defns_2)" "(begin" "(reverse$1" -"(let-values(((lst_461) lifted-defns_2))" +"(let-values(((lst_460) lifted-defns_2))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_461)))" -"((letrec-values(((for-loop_346)" -"(lambda(fold-var_389 lst_462)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_460)))" +"((letrec-values(((for-loop_348)" +"(lambda(fold-var_389 lst_461)" "(begin" " 'for-loop" -"(if(pair? lst_462)" -"(let-values(((lifted-defn_0)(unsafe-car lst_462))" -"((rest_269)(unsafe-cdr lst_462)))" +"(if(pair? lst_461)" +"(let-values(((lifted-defn_0)(unsafe-car lst_461))" +"((rest_269)(unsafe-cdr lst_461)))" "(let-values(((fold-var_390)" "(let-values(((fold-var_391) fold-var_389))" "(let-values(((fold-var_392)" @@ -77702,38 +77571,38 @@ static const char *startup_source = "(defn-extract-syntax lifted-defn_0))" " fold-var_391))))" "(values fold-var_392)))))" -"(if(not #f)(for-loop_346 fold-var_390 rest_269) fold-var_390)))" +"(if(not #f)(for-loop_348 fold-var_390 rest_269) fold-var_390)))" " fold-var_389)))))" -" for-loop_346)" +" for-loop_348)" " null" -" lst_461)))))))" +" lst_460)))))))" "(define-values" "(log-lifted-defns)" "(lambda(partial-body-ctx_2 lifted-defns_3 exp-body_10 rest-bodys_4)" "(begin" -"(let-values(((obs_165)(expand-context-observer partial-body-ctx_2)))" -"(if obs_165" +"(let-values(((obs_163)(expand-context-observer partial-body-ctx_2)))" +"(if obs_163" "(let-values()" "(let-values(((s-lifted-defns_0)(lifted-defns-extract-syntax lifted-defns_3)))" "(let-values((()" "(begin" -"(call-expand-observe obs_165 'rename-list(cons exp-body_10 rest-bodys_4))" +"(call-expand-observe obs_163 'rename-list(cons exp-body_10 rest-bodys_4))" "(values))))" -"(let-values((()(begin(call-expand-observe obs_165 'module-lift-loop s-lifted-defns_0)(values))))" +"(let-values((()(begin(call-expand-observe obs_163 'module-lift-loop s-lifted-defns_0)(values))))" "(let-values((()" "(begin" -"(let-values(((lst_463) s-lifted-defns_0))" +"(let-values(((lst_462) s-lifted-defns_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_463)))" -"((letrec-values(((for-loop_347)" -"(lambda(lst_464)" +"(let-values()(check-list lst_462)))" +"((letrec-values(((for-loop_349)" +"(lambda(lst_463)" "(begin" " 'for-loop" -"(if(pair? lst_464)" -"(let-values(((s-lifted-defn_0)(unsafe-car lst_464))" -"((rest_270)(unsafe-cdr lst_464)))" +"(if(pair? lst_463)" +"(let-values(((s-lifted-defn_0)(unsafe-car lst_463))" +"((rest_270)(unsafe-cdr lst_463)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -77741,40 +77610,40 @@ static const char *startup_source = "(begin" "(let-values()" "(let-values(((ok?_93" -" define-values740_0" -" _741_0)" -"(let-values(((s_912)" +" define-values741_0" +" _742_0)" +"(let-values(((s_909)" " s-lifted-defn_0))" "(let-values(((orig-s_96)" -" s_912))" -"(let-values(((define-values740_1" -" _741_1)" +" s_909))" +"(let-values(((define-values741_1" +" _742_1)" +"(let-values(((s_910)" +"(if(syntax?$1" +" s_909)" +"(syntax-e$1" +" s_909)" +" s_909)))" +"(if(pair?" +" s_910)" +"(let-values(((define-values743_0)" +"(let-values(((s_911)" +"(car" +" s_910)))" +" s_911))" +"((_744_0)" +"(let-values(((s_912)" +"(cdr" +" s_910)))" "(let-values(((s_913)" "(if(syntax?$1" " s_912)" "(syntax-e$1" " s_912)" " s_912)))" -"(if(pair?" -" s_913)" -"(let-values(((define-values742_0)" -"(let-values(((s_914)" -"(car" -" s_913)))" -" s_914))" -"((_743_0)" -"(let-values(((s_915)" -"(cdr" -" s_913)))" -"(let-values(((s_916)" -"(if(syntax?$1" -" s_915)" -"(syntax-e$1" -" s_915)" -" s_915)))" "(let-values(((flat-s_66)" "(to-syntax-list.1" -" s_916)))" +" s_913)))" "(if(not" " flat-s_66)" "(let-values()" @@ -77785,112 +77654,112 @@ static const char *startup_source = "(let-values()" " flat-s_66)))))))" "(values" -" define-values742_0" -" _743_0))" +" define-values743_0" +" _744_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" " orig-s_96)))))" "(values" " #t" -" define-values740_1" -" _741_1))))))" +" define-values741_1" +" _742_1))))))" "(begin" "(call-expand-observe" -" obs_165" +" obs_163" " 'next)" "(call-expand-observe" -" obs_165" +" obs_163" " 'visit" " s-lifted-defn_0)" "(call-expand-observe" -" obs_165" +" obs_163" " 'resolve" -" define-values740_0)" +" define-values741_0)" "(call-expand-observe" -" obs_165" +" obs_163" " 'enter-prim" " s-lifted-defn_0)" "(call-expand-observe" -" obs_165" +" obs_163" " 'prim-stop)" "(call-expand-observe" -" obs_165" +" obs_163" " 'exit-prim" " s-lifted-defn_0)" "(call-expand-observe" -" obs_165" +" obs_163" " 'return" " s-lifted-defn_0)" "(call-expand-observe" -" obs_165" +" obs_163" " 'rename-one" " s-lifted-defn_0)" "(call-expand-observe" -" obs_165" +" obs_163" " 'enter-prim" " s-lifted-defn_0)" "(call-expand-observe" -" obs_165" +" obs_163" " 'prim-define-values)" "(call-expand-observe" -" obs_165" +" obs_163" " 'exit-prim" " s-lifted-defn_0))))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_347 rest_270)(values))))" +"(if(not #f)(for-loop_349 rest_270)(values))))" "(values))))))" -" for-loop_347)" -" lst_463)))" +" for-loop_349)" +" lst_462)))" "(values))))" "(let-values()" -"(let-values(((ok?_94 form-id736_0 _737_0)" -"(let-values(((s_917) exp-body_10))" -"(let-values(((orig-s_97) s_917))" -"(let-values(((form-id736_1 _737_1)" -"(let-values(((s_918)" -"(if(syntax?$1 s_917)(syntax-e$1 s_917) s_917)))" -"(if(pair? s_918)" -"(let-values(((form-id738_0)" -"(let-values(((s_919)(car s_918))) s_919))" -"((_739_0)" -"(let-values(((s_920)(cdr s_918))) s_920)))" -"(values form-id738_0 _739_0))" +"(let-values(((ok?_94 form-id737_0 _738_0)" +"(let-values(((s_914) exp-body_10))" +"(let-values(((orig-s_97) s_914))" +"(let-values(((form-id737_1 _738_1)" +"(let-values(((s_915)" +"(if(syntax?$1 s_914)(syntax-e$1 s_914) s_914)))" +"(if(pair? s_915)" +"(let-values(((form-id739_0)" +"(let-values(((s_916)(car s_915))) s_916))" +"((_740_0)" +"(let-values(((s_917)(cdr s_915))) s_917)))" +"(values form-id739_0 _740_0))" " (raise-syntax-error$1 #f \"bad syntax\" orig-s_97)))))" -"(values #t form-id736_1 _737_1))))))" +"(values #t form-id737_1 _738_1))))))" "(begin" -"(call-expand-observe obs_165 'next)" -"(call-expand-observe obs_165 'visit exp-body_10)" -"(call-expand-observe obs_165 'resolve form-id736_0)" -"(call-expand-observe obs_165 'enter-prim exp-body_10)" -"(call-expand-observe obs_165 'prim-stop)" -"(call-expand-observe obs_165 'exit-prim exp-body_10)" -"(call-expand-observe obs_165 'return exp-body_10)))))))))" +"(call-expand-observe obs_163 'next)" +"(call-expand-observe obs_163 'visit exp-body_10)" +"(call-expand-observe obs_163 'resolve form-id737_0)" +"(call-expand-observe obs_163 'enter-prim exp-body_10)" +"(call-expand-observe obs_163 'prim-stop)" +"(call-expand-observe obs_163 'exit-prim exp-body_10)" +"(call-expand-observe obs_163 'return exp-body_10)))))))))" "(void))))))" "(define-values" "(log-defn-enter)" -"(lambda(ctx_122 defn_1)" +"(lambda(ctx_123 defn_1)" "(begin" -"(let-values(((obs_166)(expand-context-observer ctx_122)))" -"(if obs_166" +"(let-values(((obs_164)(expand-context-observer ctx_123)))" +"(if obs_164" "(let-values()" "(let-values(((s-defn_0)(defn-extract-syntax defn_1)))" -"(let-values(((ok?_95 define-values744_0 _745_0)" -"(let-values(((s_921) s-defn_0))" -"(let-values(((orig-s_98) s_921))" -"(let-values(((define-values744_1 _745_1)" -"(let-values(((s_922)(if(syntax?$1 s_921)(syntax-e$1 s_921) s_921)))" -"(if(pair? s_922)" -"(let-values(((define-values746_0)" -"(let-values(((s_923)(car s_922))) s_923))" -"((_747_0)" -"(let-values(((s_924)(cdr s_922)))" -"(let-values(((s_925)" -"(if(syntax?$1 s_924)" -"(syntax-e$1 s_924)" -" s_924)))" -"(let-values(((flat-s_67)(to-syntax-list.1 s_925)))" +"(let-values(((ok?_95 define-values745_0 _746_0)" +"(let-values(((s_918) s-defn_0))" +"(let-values(((orig-s_98) s_918))" +"(let-values(((define-values745_1 _746_1)" +"(let-values(((s_919)(if(syntax?$1 s_918)(syntax-e$1 s_918) s_918)))" +"(if(pair? s_919)" +"(let-values(((define-values747_0)" +"(let-values(((s_920)(car s_919))) s_920))" +"((_748_0)" +"(let-values(((s_921)(cdr s_919)))" +"(let-values(((s_922)" +"(if(syntax?$1 s_921)" +"(syntax-e$1 s_921)" +" s_921)))" +"(let-values(((flat-s_67)(to-syntax-list.1 s_922)))" "(if(not flat-s_67)" "(let-values()" "(raise-syntax-error$1" @@ -77898,34 +77767,34 @@ static const char *startup_source = " \"bad syntax\"" " orig-s_98))" "(let-values() flat-s_67)))))))" -"(values define-values746_0 _747_0))" +"(values define-values747_0 _748_0))" " (raise-syntax-error$1 #f \"bad syntax\" orig-s_98)))))" -"(values #t define-values744_1 _745_1))))))" +"(values #t define-values745_1 _746_1))))))" "(begin" -"(call-expand-observe obs_166 'visit s-defn_0)" -"(call-expand-observe obs_166 'resolve define-values744_0)" -"(call-expand-observe obs_166 'enter-prim s-defn_0)" -"(call-expand-observe obs_166 'prim-define-values)))))" +"(call-expand-observe obs_164 'visit s-defn_0)" +"(call-expand-observe obs_164 'resolve define-values745_0)" +"(call-expand-observe obs_164 'enter-prim s-defn_0)" +"(call-expand-observe obs_164 'prim-define-values)))))" "(void))))))" "(define-values" "(log-defn-exit)" -"(lambda(ctx_123 defn_2 exp-rhs_8)" +"(lambda(ctx_124 defn_2 exp-rhs_8)" "(begin" -"(let-values(((obs_167)(expand-context-observer ctx_123)))" -"(if obs_167" +"(let-values(((obs_165)(expand-context-observer ctx_124)))" +"(if obs_165" "(let-values()" "(let-values(((s-defn_1)" "(datum->syntax$1" " #f" "(list 'define-values(semi-parsed-define-values-ids defn_2) exp-rhs_8)" "(semi-parsed-define-values-s defn_2))))" -"(begin(call-expand-observe obs_167 'exit-prim s-defn_1)(call-expand-observe obs_167 'return s-defn_1))))" +"(begin(call-expand-observe obs_165 'exit-prim s-defn_1)(call-expand-observe obs_165 'return s-defn_1))))" "(void))))))" "(define-values" "(as-expand-time-top-level-bindings)" -"(lambda(ids_51 s_72 ctx_124)" +"(lambda(ids_51 s_72 ctx_125)" "(begin" -"(let-values(((top-level-bind-scope_6)(root-expand-context-top-level-bind-scope ctx_124)))" +"(let-values(((top-level-bind-scope_6)(root-expand-context-top-level-bind-scope ctx_125)))" "(let-values(((tl-ids_2)" "(reverse$1" "(let-values(((lst_84) ids_51))" @@ -77933,7 +77802,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_84)))" -"((letrec-values(((for-loop_105)" +"((letrec-values(((for-loop_107)" "(lambda(fold-var_393 lst_85)" "(begin" " 'for-loop" @@ -77948,32 +77817,32 @@ static const char *startup_source = "(let-values()" "(remove-use-site-scopes" " id_51" -" ctx_124))" +" ctx_125))" " fold-var_62))))" "(values fold-var_394)))))" -"(if(not #f)(for-loop_105 fold-var_61 rest_40) fold-var_61)))" +"(if(not #f)(for-loop_107 fold-var_61 rest_40) fold-var_61)))" " fold-var_393)))))" -" for-loop_105)" +" for-loop_107)" " null" " lst_84))))))" "(let-values((()" "(begin" -"(let-values(((tl-ids1_0) tl-ids_2)((temp2_9)(expand-context-phase ctx_124))((s3_3) s_72))" +"(let-values(((tl-ids1_0) tl-ids_2)((temp2_9)(expand-context-phase ctx_125))((s3_3) s_72))" "(check-no-duplicate-ids7.1 unsafe-undefined tl-ids1_0 temp2_9 s3_3 unsafe-undefined))" "(values))))" "(let-values(((tmp-bind-ids_0)" "(reverse$1" -"(let-values(((lst_465) tl-ids_2))" +"(let-values(((lst_464) tl-ids_2))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_465)))" -"((letrec-values(((for-loop_81)" +"(let-values()(check-list lst_464)))" +"((letrec-values(((for-loop_83)" "(lambda(fold-var_221 lst_86)" "(begin" " 'for-loop" "(if(pair? lst_86)" -"(let-values(((id_160)(unsafe-car lst_86))" +"(let-values(((id_161)(unsafe-car lst_86))" "((rest_249)(unsafe-cdr lst_86)))" "(let-values(((fold-var_26)" "(let-values(((fold-var_395) fold-var_221))" @@ -77982,27 +77851,27 @@ static const char *startup_source = "(cons" "(let-values()" "(add-scope" -" id_160" +" id_161" " top-level-bind-scope_6))" " fold-var_395))))" "(values fold-var_224)))))" "(if(not #f)" -"(for-loop_81 fold-var_26 rest_249)" +"(for-loop_83 fold-var_26 rest_249)" " fold-var_26)))" " fold-var_221)))))" -" for-loop_81)" +" for-loop_83)" " null" -" lst_465))))))" -"(values tl-ids_2(select-defined-syms-and-bind!/ctx tmp-bind-ids_0 ctx_124)))))))))" +" lst_464))))))" +"(values tl-ids_2(select-defined-syms-and-bind!/ctx tmp-bind-ids_0 ctx_125)))))))))" "(void" "(add-core-form!*" " 'define-values" "(lambda(s_0 ctx_7)" "(let-values((()" "(begin" -"(let-values(((obs_168)(expand-context-observer ctx_7)))" -"(if obs_168" -"(let-values()(let-values()(call-expand-observe obs_168 'prim-define-values)))" +"(let-values(((obs_166)(expand-context-observer ctx_7)))" +"(if obs_166" +"(let-values()(let-values()(call-expand-observe obs_166 'prim-define-values)))" "(void)))" "(values))))" "(let-values((()" @@ -78053,8 +77922,8 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_80)))" -"((letrec-values(((for-loop_97)" -"(lambda(id_161" +"((letrec-values(((for-loop_99)" +"(lambda(id_162" " lst_81)" "(begin" " 'for-loop" @@ -78066,10 +77935,10 @@ static const char *startup_source = "((rest_121)" "(unsafe-cdr" " lst_81)))" -"(let-values(((id_162)" "(let-values(((id_163)" -" id_161))" -"(let-values(((id_114)" +"(let-values(((id_164)" +" id_162))" +"(let-values(((id_115)" "(let-values()" "(let-values(((id10_1)" "(let-values()" @@ -78092,17 +77961,17 @@ static const char *startup_source = " s_89)))))" "(cons" " id10_1" -" id_163)))))" +" id_164)))))" "(values" -" id_114)))))" +" id_115)))))" "(if(not" " #f)" -"(for-loop_97" -" id_162" +"(for-loop_99" +" id_163" " rest_121)" -" id_162)))" -" id_161)))))" -" for-loop_97)" +" id_163)))" +" id_162)))))" +" for-loop_99)" " null" " lst_80)))))" "(reverse$1 id_54))))))))" @@ -78157,22 +78026,22 @@ static const char *startup_source = "(void" "(add-core-form!*" " 'define-syntaxes" -"(lambda(s_186 ctx_125)" +"(lambda(s_186 ctx_126)" "(let-values((()" "(begin" -"(let-values(((obs_169)(expand-context-observer ctx_125)))" -"(if obs_169" -"(let-values()(let-values()(call-expand-observe obs_169 'prim-define-syntaxes)))" +"(let-values(((obs_167)(expand-context-observer ctx_126)))" +"(if obs_167" +"(let-values()(let-values()(call-expand-observe obs_167 'prim-define-syntaxes)))" "(void)))" "(values))))" "(let-values((()" "(begin" -"(let-values(((obs_170)(expand-context-observer ctx_125)))" -"(if obs_170(let-values()(let-values()(call-expand-observe obs_170 'prepare-env)))(void)))" +"(let-values(((obs_168)(expand-context-observer ctx_126)))" +"(if obs_168(let-values()(let-values()(call-expand-observe obs_168 'prepare-env)))(void)))" "(values))))" "(let-values((()" "(begin" -"(if(eq?(expand-context-context ctx_125) 'top-level)" +"(if(eq?(expand-context-context ctx_126) 'top-level)" "(void)" " (let-values () (raise-syntax-error$1 #f \"not in a definition context\" s_186)))" "(values))))" @@ -78193,14 +78062,14 @@ static const char *startup_source = " s_25)))" "(if(pair? s_306)" "(let-values(((id21_1)" -"(let-values(((s_926)(car s_306)))" -"(let-values(((s_927)" -"(if(syntax?$1 s_926)" -"(syntax-e$1 s_926)" -" s_926)))" +"(let-values(((s_923)(car s_306)))" +"(let-values(((s_924)" +"(if(syntax?$1 s_923)" +"(syntax-e$1 s_923)" +" s_923)))" "(let-values(((flat-s_69)" "(to-syntax-list.1" -" s_927)))" +" s_924)))" "(if(not flat-s_69)" "(let-values()" "(raise-syntax-error$1" @@ -78208,8 +78077,8 @@ static const char *startup_source = " \"bad syntax\"" " orig-s_100))" "(let-values()" -"(let-values(((id_164)" -"(let-values(((lst_466)" +"(let-values(((id_165)" +"(let-values(((lst_465)" " flat-s_69))" "(begin" "(if(variable-reference-from-unsafe?" @@ -78217,66 +78086,66 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_466)))" +" lst_465)))" "((letrec-values(((for-loop_2)" -"(lambda(id_165" -" lst_467)" +"(lambda(id_166" +" lst_466)" "(begin" " 'for-loop" "(if(pair?" -" lst_467)" -"(let-values(((s_928)" +" lst_466)" +"(let-values(((s_925)" "(unsafe-car" -" lst_467))" +" lst_466))" "((rest_271)" "(unsafe-cdr" -" lst_467)))" -"(let-values(((id_166)" +" lst_466)))" "(let-values(((id_167)" -" id_165))" "(let-values(((id_168)" +" id_166))" +"(let-values(((id_169)" "(let-values()" "(let-values(((id24_0)" "(let-values()" "(if(let-values(((or-part_218)" "(if(syntax?$1" -" s_928)" +" s_925)" "(symbol?" "(syntax-e$1" -" s_928))" +" s_925))" " #f)))" "(if or-part_218" " or-part_218" "(symbol?" -" s_928)))" -" s_928" +" s_925)))" +" s_925" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_100" -" s_928)))))" +" s_925)))))" "(cons" " id24_0" -" id_167)))))" -"(values" " id_168)))))" +"(values" +" id_169)))))" "(if(not" " #f)" "(for-loop_2" -" id_166" +" id_167" " rest_271)" -" id_166)))" -" id_165)))))" +" id_167)))" +" id_166)))))" " for-loop_2)" " null" -" lst_466)))))" -"(reverse$1 id_164))))))))" +" lst_465)))))" +"(reverse$1 id_165))))))))" "((rhs22_0)" -"(let-values(((s_929)(cdr s_306)))" +"(let-values(((s_926)(cdr s_306)))" "(let-values(((s_175)" -"(if(syntax?$1 s_929)" -"(syntax-e$1 s_929)" -" s_929)))" +"(if(syntax?$1 s_926)" +"(syntax-e$1 s_926)" +" s_926)))" "(if(pair? s_175)" "(let-values(((rhs23_2)" "(let-values(((s_450)" @@ -78313,21 +78182,21 @@ static const char *startup_source = "(values define-syntaxes18_0 id19_1 rhs20_0))" " (raise-syntax-error$1 #f \"bad syntax\" orig-s_100)))))" "(values #t define-syntaxes15_1 id16_2 rhs17_1))))))" -"(let-values(((ids_53 syms_28)(as-expand-time-top-level-bindings id16_1 s_186 ctx_125)))" +"(let-values(((ids_53 syms_28)(as-expand-time-top-level-bindings id16_1 s_186 ctx_126)))" "(let-values(((exp-rhs_10)" -"(let-values(((temp25_8) rhs17_0)((temp26_6)(as-named-context ctx_125 ids_53)))" +"(let-values(((temp25_8) rhs17_0)((temp26_6)(as-named-context ctx_126 ids_53)))" "(expand-transformer92.1 #f #f 'expression #t #f unsafe-undefined temp25_8 temp26_6))))" -"(if(expand-context-to-parsed? ctx_125)" +"(if(expand-context-to-parsed? ctx_126)" "(parsed-define-syntaxes20.1 s_186 ids_53 syms_28 exp-rhs_10)" "(let-values(((s27_3) s_186)((temp28_4)(list define-syntaxes15_0 ids_53 exp-rhs_10)))" "(rebuild5.1 #t s27_3 temp28_4)))))))))))))" "(void" "(add-core-form!*" " 'begin-for-syntax" -"(lambda(s_309 ctx_111)" +"(lambda(s_309 ctx_112)" "(let-values((()" "(begin" -"(if(eq?(expand-context-context ctx_111) 'top-level)" +"(if(eq?(expand-context-context ctx_112) 'top-level)" "(void)" " (let-values () (raise-syntax-error$1 #f \"not in a definition context\" s_309)))" "(values))))" @@ -78354,86 +78223,84 @@ static const char *startup_source = "(values #t begin-for-syntax29_1 form30_1))))))" "(let-values((()" "(begin" -"(let-values(((obs_171)(expand-context-observer ctx_111)))" -"(if obs_171" -"(let-values()(let-values()(call-expand-observe obs_171 'prim-begin-for-syntax)))" +"(let-values(((obs_169)(expand-context-observer ctx_112)))" +"(if obs_169" +"(let-values()(let-values()(call-expand-observe obs_169 'prim-begin-for-syntax)))" "(void)))" "(values))))" "(let-values((()" "(begin" -"(let-values(((obs_172)(expand-context-observer ctx_111)))" -"(if obs_172" -"(let-values()(let-values()(call-expand-observe obs_172 'prepare-env)))" +"(let-values(((obs_170)(expand-context-observer ctx_112)))" +"(if obs_170" +"(let-values()(let-values()(call-expand-observe obs_170 'prepare-env)))" "(void)))" "(values))))" "(let-values(((trans-ctx_1)" -"(let-values(((ctx33_0) ctx_111)((temp34_7) 'top-level)((temp35_7) #t))" +"(let-values(((ctx33_0) ctx_112)((temp34_7) 'top-level)((temp35_7) #t))" "(context->transformer-context99.1 temp35_7 ctx33_0 temp34_7))))" "(let-values(((lift-ctx_7)" "(let-values(((temp36_9)(make-top-level-lift trans-ctx_1)))" "(make-lift-context6.1 #f temp36_9))))" "(let-values(((capture-ctx_1)" -"(let-values(((v_278) trans-ctx_1))" -"(let-values(((the-struct_123) v_278))" -"(if(expand-context/outer? the-struct_123)" +"(let-values(((v_96) trans-ctx_1))" +"(let-values(((the-struct_125) v_96))" +"(if(expand-context/outer? the-struct_125)" "(let-values(((inner37_0)" -"(let-values(((the-struct_124)" -"(root-expand-context/outer-inner v_278)))" -"(if(expand-context/inner? the-struct_124)" -"(let-values(((lift-key38_0)(generate-lift-key))" +"(let-values(((the-struct_126)" +"(root-expand-context/outer-inner v_96)))" +"(if(expand-context/inner? the-struct_126)" +"(let-values(((lift-key38_1)(generate-lift-key))" "((lifts39_0) lift-ctx_7))" "(expand-context/inner2.1" -"(root-expand-context/inner-self-mpi the-struct_124)" -"(root-expand-context/inner-module-scopes the-struct_124)" +"(root-expand-context/inner-self-mpi the-struct_126)" +"(root-expand-context/inner-module-scopes the-struct_126)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_124)" -"(root-expand-context/inner-all-scopes-stx the-struct_124)" -"(root-expand-context/inner-defined-syms the-struct_124)" -"(root-expand-context/inner-counter the-struct_124)" -" lift-key38_0" -"(expand-context/inner-to-parsed? the-struct_124)" -"(expand-context/inner-phase the-struct_124)" -"(expand-context/inner-namespace the-struct_124)" -"(expand-context/inner-just-once? the-struct_124)" -"(expand-context/inner-module-begin-k the-struct_124)" -"(expand-context/inner-allow-unbound? the-struct_124)" -"(expand-context/inner-in-local-expand? the-struct_124)" -"(expand-context/inner-keep-#%expression? the-struct_124)" -"(expand-context/inner-stops the-struct_124)" -"(expand-context/inner-declared-submodule-names the-struct_124)" +" the-struct_126)" +"(root-expand-context/inner-all-scopes-stx the-struct_126)" +"(root-expand-context/inner-defined-syms the-struct_126)" +"(root-expand-context/inner-counter the-struct_126)" +" lift-key38_1" +"(expand-context/inner-to-parsed? the-struct_126)" +"(expand-context/inner-phase the-struct_126)" +"(expand-context/inner-namespace the-struct_126)" +"(expand-context/inner-just-once? the-struct_126)" +"(expand-context/inner-module-begin-k the-struct_126)" +"(expand-context/inner-allow-unbound? the-struct_126)" +"(expand-context/inner-in-local-expand? the-struct_126)" +"(expand-context/inner-keep-#%expression? the-struct_126)" +"(expand-context/inner-stops the-struct_126)" +"(expand-context/inner-declared-submodule-names the-struct_126)" " lifts39_0" -"(expand-context/inner-lift-envs the-struct_124)" -"(expand-context/inner-module-lifts the-struct_124)" -"(expand-context/inner-require-lifts the-struct_124)" -"(expand-context/inner-to-module-lifts the-struct_124)" -"(expand-context/inner-requires+provides the-struct_124)" -"(expand-context/inner-observer the-struct_124)" -"(expand-context/inner-for-serializable? the-struct_124)" +"(expand-context/inner-lift-envs the-struct_126)" +"(expand-context/inner-module-lifts the-struct_126)" +"(expand-context/inner-require-lifts the-struct_126)" +"(expand-context/inner-to-module-lifts the-struct_126)" +"(expand-context/inner-requires+provides the-struct_126)" +"(expand-context/inner-observer the-struct_126)" +"(expand-context/inner-for-serializable? the-struct_126)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_124)))" +" the-struct_126)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_124)))))" +" the-struct_126)))))" "(expand-context/outer1.1" " inner37_0" -"(root-expand-context/outer-post-expansion-scope the-struct_123)" -"(root-expand-context/outer-post-expansion-shifts the-struct_123)" -"(root-expand-context/outer-use-site-scopes the-struct_123)" -"(root-expand-context/outer-frame-id the-struct_123)" -"(expand-context/outer-context the-struct_123)" -"(expand-context/outer-env the-struct_123)" -"(expand-context/outer-post-expansion-scope-action the-struct_123)" -"(expand-context/outer-scopes the-struct_123)" -"(expand-context/outer-def-ctx-scopes the-struct_123)" -"(expand-context/outer-binding-layer the-struct_123)" -"(expand-context/outer-reference-records the-struct_123)" -"(expand-context/outer-only-immediate? the-struct_123)" -"(expand-context/outer-need-eventually-defined the-struct_123)" -"(expand-context/outer-current-introduction-scopes the-struct_123)" -"(expand-context/outer-current-use-scopes the-struct_123)" -"(expand-context/outer-name the-struct_123)))" -" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_123))))))" +"(root-expand-context/outer-post-expansion the-struct_125)" +"(root-expand-context/outer-use-site-scopes the-struct_125)" +"(root-expand-context/outer-frame-id the-struct_125)" +"(expand-context/outer-context the-struct_125)" +"(expand-context/outer-env the-struct_125)" +"(expand-context/outer-scopes the-struct_125)" +"(expand-context/outer-def-ctx-scopes the-struct_125)" +"(expand-context/outer-binding-layer the-struct_125)" +"(expand-context/outer-reference-records the-struct_125)" +"(expand-context/outer-only-immediate? the-struct_125)" +"(expand-context/outer-need-eventually-defined the-struct_125)" +"(expand-context/outer-current-introduction-scopes the-struct_125)" +"(expand-context/outer-current-use-scopes the-struct_125)" +"(expand-context/outer-name the-struct_125)))" +" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_125))))))" "(let-values(((all-exp-forms_0)" "((letrec-values(((loop_67)" "(lambda(forms_0)" @@ -78441,13 +78308,13 @@ static const char *startup_source = " 'loop" "(let-values((()" "(begin" -"(let-values(((obs_173)" -"(expand-context-observer ctx_111)))" -"(if obs_173" +"(let-values(((obs_171)" +"(expand-context-observer ctx_112)))" +"(if obs_171" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_173" +" obs_171" " 'enter-list" "(datum->syntax$1 #f form30_0 s_309))))" "(void)))" @@ -78463,14 +78330,14 @@ static const char *startup_source = "(reverse$1" " accum_1)))" "(begin" -"(let-values(((obs_174)" +"(let-values(((obs_172)" "(expand-context-observer" -" ctx_111)))" -"(if obs_174" +" ctx_112)))" +"(if obs_172" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_174" +" obs_172" " 'exit-list" "(datum->syntax$1" " #f" @@ -78481,14 +78348,14 @@ static const char *startup_source = "(let-values()" "(let-values((()" "(begin" -"(let-values(((obs_175)" +"(let-values(((obs_173)" "(expand-context-observer" -" ctx_111)))" -"(if obs_175" +" ctx_112)))" +"(if obs_173" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_175" +" obs_173" " 'next)))" "(void)))" "(values))))" @@ -78518,14 +78385,14 @@ static const char *startup_source = "(let-values()" "(let-values((()" "(begin" -"(let-values(((obs_176)" +"(let-values(((obs_174)" "(expand-context-observer" -" ctx_111)))" -"(if obs_176" +" ctx_112)))" +"(if obs_174" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_176" +" obs_174" " 'module-lift-loop" " lifts_15)))" "(void)))" @@ -78552,26 +78419,26 @@ static const char *startup_source = " exp-forms_0)))))))))))))" " loop_67)" " form30_0)))" -"(if(expand-context-to-parsed? ctx_111)" +"(if(expand-context-to-parsed? ctx_112)" "(parsed-begin-for-syntax21.1 s_309 all-exp-forms_0)" "(let-values(((s45_0) s_309)((temp46_2)(cons begin-for-syntax29_0 all-exp-forms_0)))" "(rebuild5.1 #t s45_0 temp46_2))))))))))))))" "(void" "(add-core-form!*" " '#%require" -"(lambda(s_165 ctx_126)" +"(lambda(s_927 ctx_127)" "(let-values((()" "(begin" -"(let-values(((obs_177)(expand-context-observer ctx_126)))" -"(if obs_177(let-values()(let-values()(call-expand-observe obs_177 'prim-require)))(void)))" +"(let-values(((obs_175)(expand-context-observer ctx_127)))" +"(if obs_175(let-values()(let-values()(call-expand-observe obs_175 'prim-require)))(void)))" "(values))))" "(let-values((()" "(begin" -"(if(eq?(expand-context-context ctx_126) 'top-level)" +"(if(eq?(expand-context-context ctx_127) 'top-level)" "(void)" -" (let-values () (raise-syntax-error$1 #f \"allowed only in a module or the top level\" s_165)))" +" (let-values () (raise-syntax-error$1 #f \"allowed only in a module or the top level\" s_927)))" "(values))))" -"(let-values(((disarmed-s_27)(syntax-disarm$1 s_165)))" +"(let-values(((disarmed-s_27)(syntax-disarm$1 s_927)))" "(let-values(((ok?_97 #%require47_0 req48_0)" "(let-values(((s_63) disarmed-s_27))" "(let-values(((orig-s_102) s_63))" @@ -78596,7 +78463,7 @@ static const char *startup_source = "(values #%require49_0 req50_0))" " (raise-syntax-error$1 #f \"bad syntax\" orig-s_102)))))" "(values #t #%require47_1 req48_1))))))" -"(let-values(((sc_43)(new-scope 'macro)))" +"(let-values(((sc_41)(new-scope 'macro)))" "(begin" "(let-values(((temp51_3)" "(reverse$1" @@ -78620,7 +78487,7 @@ static const char *startup_source = "(let-values()" "(add-scope" " req_20" -" sc_43))" +" sc_41))" " fold-var_398))))" "(values fold-var_294)))))" "(if(not #f)" @@ -78630,10 +78497,10 @@ static const char *startup_source = " for-loop_25)" " null" " lst_32)))))" -"((s52_0) s_165)" +"((s52_0) s_927)" "((temp53_6) #f)" -"((temp54_5)(expand-context-namespace ctx_126))" -"((temp55_4)(expand-context-phase ctx_126))" +"((temp54_5)(expand-context-namespace ctx_127))" +"((temp55_4)(expand-context-phase ctx_127))" "((temp56_5)(let-values(((temp59_8) #f))(make-requires+provides8.1 #f temp59_8)))" "((temp57_3) 'require)" "((temp58_5) #t))" @@ -78653,14 +78520,14 @@ static const char *startup_source = " temp54_5" " temp55_4" " temp56_5))" -"(if(expand-context-to-parsed? ctx_126)(parsed-require23.1 s_165) s_165))))))))))" +"(if(expand-context-to-parsed? ctx_127)(parsed-require23.1 s_927) s_927))))))))))" "(void" "(add-core-form!*" " '#%provide" -"(lambda(s_780 ctx_127)" +"(lambda(s_780 ctx_128)" "(begin" -"(let-values(((obs_178)(expand-context-observer ctx_127)))" -"(if obs_178(let-values()(let-values()(call-expand-observe obs_178 'prim-provide)))(void)))" +"(let-values(((obs_176)(expand-context-observer ctx_128)))" +"(if obs_176(let-values()(let-values()(call-expand-observe obs_176 'prim-provide)))(void)))" " (raise-syntax-error$1 #f \"not allowed outside of a module body\" s_780)))))" "(define-values(ns)(make-namespace))" "(void" @@ -78692,63 +78559,63 @@ static const char *startup_source = "(let-values(((ns26_1) ns)" "((eval27_0) 1/eval)" "((temp28_5)" -"(let-values(((ht_166) main-primitives))" +"(let-values(((ht_167) main-primitives))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash-keys ht_166)))" +"(let-values()(check-in-hash-keys ht_167)))" "((letrec-values(((for-loop_20)" -"(lambda(table_218 i_3)" +"(lambda(table_221 i_3)" "(begin" " 'for-loop" "(if i_3" -"(let-values(((name_83)(hash-iterate-key ht_166 i_3)))" -"(let-values(((table_207)" -"(let-values(((table_219) table_218))" +"(let-values(((name_83)(hash-iterate-key ht_167 i_3)))" +"(let-values(((table_210)" +"(let-values(((table_222) table_221))" "(let-values(((table_181)" "(let-values()" -"(let-values(((key_92 val_88)" +"(let-values(((key_93 val_89)" "(let-values()" "(values" "(let-values() name_83)" " #t))))" -"(hash-set table_219 key_92 val_88)))))" +"(hash-set table_222 key_93 val_89)))))" "(values table_181)))))" "(if(not #f)" -"(for-loop_20 table_207(hash-iterate-next ht_166 i_3))" -" table_207)))" -" table_218)))))" +"(for-loop_20 table_210(hash-iterate-next ht_167 i_3))" +" table_210)))" +" table_221)))))" " for-loop_20)" " '#hash()" -"(hash-iterate-first ht_166)))))" +"(hash-iterate-first ht_167)))))" "((temp29_7)" "(let-values(((ht_127) read-primitives))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-hash-keys ht_127)))" -"((letrec-values(((for-loop_330)" -"(lambda(table_220 i_182)" +"((letrec-values(((for-loop_332)" +"(lambda(table_223 i_182)" "(begin" " 'for-loop" "(if i_182" "(let-values(((name_84)(hash-iterate-key ht_127 i_182)))" "(let-values(((table_119)" -"(let-values(((table_112) table_220))" +"(let-values(((table_112) table_223))" "(let-values(((table_113)" "(let-values()" -"(let-values(((key_93 val_89)" +"(let-values(((key_94 val_90)" "(let-values()" "(values" "(let-values() name_84)" " #t))))" -"(hash-set table_112 key_93 val_89)))))" +"(hash-set table_112 key_94 val_90)))))" "(values table_113)))))" "(if(not #f)" -"(for-loop_330 table_119(hash-iterate-next ht_127 i_182))" +"(for-loop_332 table_119(hash-iterate-next ht_127 i_182))" " table_119)))" -" table_220)))))" -" for-loop_330)" +" table_223)))))" +" for-loop_332)" " '#hash()" "(hash-iterate-first ht_127))))))" "(declare-kernel-module!8.1 eval27_0 temp28_5 temp29_7 ns26_1))"