diff --git a/racket/src/expander/expand/context.rkt b/racket/src/expander/expand/context.rkt index 53f9faa525..a98e948ce1 100644 --- a/racket/src/expander/expand/context.rkt +++ b/racket/src/expander/expand/context.rkt @@ -76,6 +76,7 @@ (expand-context (root-expand-context-self-mpi root-ctx) (root-expand-context-module-scopes root-ctx) (root-expand-context-post-expansion-scope root-ctx) + (root-expand-context-post-expansion-shifts root-ctx) (root-expand-context-top-level-bind-scope root-ctx) (root-expand-context-all-scopes-stx root-ctx) (root-expand-context-use-site-scopes root-ctx) diff --git a/racket/src/expander/expand/definition-context.rkt b/racket/src/expander/expand/definition-context.rkt index ac1d86fa5c..c818bc8cee 100644 --- a/racket/src/expander/expand/definition-context.rkt +++ b/racket/src/expander/expand/definition-context.rkt @@ -260,6 +260,12 @@ (and same-kind? (memq context '(module module-begin top-level)) (root-expand-context-post-expansion-scope ctx)))] + [post-expansion-shifts + #:parent root-expand-context + (if (and same-kind? + (eq? context 'top-level)) + (root-expand-context-post-expansion-shifts ctx) + null)] [post-expansion-scope-action (if (and intdefs (not (null? intdefs))) (lambda (s placeholder-sc) diff --git a/racket/src/expander/expand/main.rkt b/racket/src/expander/expand/main.rkt index 0564d02e4f..88c3752f3a 100644 --- a/racket/src/expander/expand/main.rkt +++ b/racket/src/expander/expand/main.rkt @@ -463,9 +463,11 @@ ;; if the macro expands to a definition form, the binding will be ;; in the definition context's scope. The sepcific action depends ;; on the expansion context. - ((expand-context-post-expansion-scope-action ctx) - s - (root-expand-context-post-expansion-scope ctx))] + (define new-s + ((expand-context-post-expansion-scope-action ctx) + s + (root-expand-context-post-expansion-scope ctx))) + (syntax-add-shifts new-s (root-expand-context-post-expansion-shifts ctx))] [else s])) (define (accumulate-def-ctx-scopes ctx def-ctx-scopes) diff --git a/racket/src/expander/expand/root-expand-context.rkt b/racket/src/expander/expand/root-expand-context.rkt index e475724e2f..d6697252c9 100644 --- a/racket/src/expander/expand/root-expand-context.rkt +++ b/racket/src/expander/expand/root-expand-context.rkt @@ -21,6 +21,7 @@ (self-mpi ; MPI for the enclosing module during compilation module-scopes ; list of scopes for enclosing module or top level; includes next two fields * post-expansion-scope ; #f or scope to add to every expansion; often module's inside edge + * post-expansion-shifts ; a list of MPIshifts to go with `post-expansion-scope` top-level-bind-scope ; #f or a scope to constrain expansion bindings; see "expand-bind-top.rkt" all-scopes-stx ; scopes like the initial import, which correspond to original forms * use-site-scopes ; #f or boxed list: scopes that should be pruned from binders @@ -41,6 +42,7 @@ (root-expand-context self-mpi module-scopes post-expansion-scope + null ; post-expansion-shifts (new-scope 'module) ; top-level-bind-scope (or all-scopes-stx (add-scopes empty-syntax module-scopes)) @@ -57,7 +59,8 @@ (datum->syntax #f (vector (add-scopes empty-syntax (root-expand-context-module-scopes ctx)) - (add-scope empty-syntax (root-expand-context-post-expansion-scope ctx)) + (syntax-add-shifts (add-scope empty-syntax (root-expand-context-post-expansion-scope ctx)) + (root-expand-context-post-expansion-shifts ctx)) (syntax-module-path-index-shift (root-expand-context-all-scopes-stx ctx) orig-self new-self) (add-scopes empty-syntax (unbox (root-expand-context-use-site-scopes ctx))) (for/hasheqv ([(phase ht) (in-hash (root-expand-context-defined-syms ctx))]) ; make immutable @@ -83,6 +86,7 @@ (root-expand-context self (extract-scope-list (vector-ref vec 0)) ; module-scopes (extract-scope (vector-ref vec 1)) ; post-expansion-scope + (extract-shifts (vector-ref vec 1)) ; post-expansion-scope-shifts (new-scope 'module) ; top-level-bind-scope (vector-ref vec 2) ; all-scopes-stx (box (extract-scope-list (vector-ref vec 3))) ; use-site-scopes @@ -110,6 +114,9 @@ (define s (syntax-scope-set stx 0)) (generalize-scope (set-first s))) +(define (extract-shifts stx) + (syntax-mpi-shifts stx)) + (define (unpack-defined-syms v) (hash-copy ; make mutable (for/hasheqv ([(phase ht-s) (in-hash (syntax-e v))]) diff --git a/racket/src/expander/syntax/binding.rkt b/racket/src/expander/syntax/binding.rkt index 1a1e21e4bd..135d88524a 100644 --- a/racket/src/expander/syntax/binding.rkt +++ b/racket/src/expander/syntax/binding.rkt @@ -37,6 +37,7 @@ syntax-apply-shifts binding-module-path-index-shift syntax-transfer-shifts + syntax-add-shifts syntax-source-module identifier-prune-to-source-module) @@ -280,7 +281,9 @@ [else b])) (define (syntax-transfer-shifts to-s from-s [inspector #f] #:non-source? [non-source? #f]) - (define shifts (syntax-mpi-shifts from-s)) + (syntax-add-shifts to-s (syntax-mpi-shifts from-s) inspector #:non-source? non-source?)) + +(define (syntax-add-shifts to-s shifts [inspector #f] #:non-source? [non-source? #f]) (cond [(and (null? shifts) inspector) (syntax-set-inspector to-s inspector)] diff --git a/racket/src/racket/src/startup.inc b/racket/src/racket/src/startup.inc index 274e0fd90e..920d0d437b 100644 --- a/racket/src/racket/src/startup.inc +++ b/racket/src/racket/src/startup.inc @@ -11033,12 +11033,12 @@ static const char *startup_source = " 'free-identifier=?" "(let-values(((ab_0)" "(toplevel-as-symbol" -"(let-values(((a43_0) a_34)((a-phase44_0) a-phase_0)((temp45_0) #t))" -"(resolve+shift28.1 #f #f null unsafe-undefined temp45_0 a43_0 a-phase44_0)))))" +"(let-values(((a51_0) a_34)((a-phase52_0) a-phase_0)((temp53_0) #t))" +"(resolve+shift28.1 #f #f null unsafe-undefined temp53_0 a51_0 a-phase52_0)))))" "(let-values(((bb_0)" "(toplevel-as-symbol" -"(let-values(((b46_0) b_46)((b-phase47_0) b-phase_0)((temp48_0) #t))" -"(resolve+shift28.1 #f #f null unsafe-undefined temp48_0 b46_0 b-phase47_0)))))" +"(let-values(((b54_0) b_46)((b-phase55_0) b-phase_0)((temp56_0) #t))" +"(resolve+shift28.1 #f #f null unsafe-undefined temp56_0 b54_0 b-phase55_0)))))" "(if(let-values(((or-part_3)(symbol? ab_0)))(if or-part_3 or-part_3(symbol? bb_0)))" "(let-values()(eq? ab_0 bb_0))" "(let-values()(same-binding? ab_0 bb_0))))))))" @@ -11084,8 +11084,8 @@ static const char *startup_source = "(begin" " 'identifier-binding-symbol" "(let-values(((b_43)" -"(let-values(((id49_0) id_2)((phase50_0) phase_18)((temp51_0) #t))" -"(resolve+shift28.1 #f #f null unsafe-undefined temp51_0 id49_0 phase50_0))))" +"(let-values(((id57_0) id_2)((phase58_0) phase_18)((temp59_0) #t))" +"(resolve+shift28.1 #f #f null unsafe-undefined temp59_0 id57_0 phase58_0))))" "(if(symbol? b_43)" "(let-values() b_43)" "(if(module-binding? b_43)" @@ -11102,8 +11102,8 @@ static const char *startup_source = "(let-values(((top-level-symbol?_0) top-level-symbol?1_0))" "(let-values()" "(let-values(((b_48)" -"(let-values(((id52_0) id_3)((phase53_0) phase_19))" -"(resolve+shift28.1 #f #f null unsafe-undefined #f id52_0 phase53_0))))" +"(let-values(((id60_0) id_3)((phase61_0) phase_19))" +"(resolve+shift28.1 #f #f null unsafe-undefined #f id60_0 phase61_0))))" "(if(module-binding? b_48)" "(let-values()" "(if(top-level-module-path-index?(module-binding-module b_48))" @@ -11131,12 +11131,12 @@ static const char *startup_source = "(void)" "(let-values()" "(let-values(((b_49)" -"(let-values(((id57_0) id_6)((phase58_0) phase_22)((temp59_0) #t)((temp60_0) #t))" -"(resolve+shift28.1 #f temp59_0 null temp60_0 #f id57_0 phase58_0))))" -"(let-values(((temp54_0)(syntax-scope-set id_6 phase_22))" -"((temp55_0)(syntax-e$1 id_6))" -"((temp56_0)(binding-set-free=id b_49 free=id_6)))" -"(add-binding-in-scopes!20.1 #f temp54_0 temp55_0 temp56_0)))))))" +"(let-values(((id65_0) id_6)((phase66_0) phase_22)((temp67_0) #t)((temp68_0) #t))" +"(resolve+shift28.1 #f temp67_0 null temp68_0 #f id65_0 phase66_0))))" +"(let-values(((temp62_0)(syntax-scope-set id_6 phase_22))" +"((temp63_0)(syntax-e$1 id_6))" +"((temp64_0)(binding-set-free=id b_49 free=id_6)))" +"(add-binding-in-scopes!20.1 #f temp62_0 temp63_0 temp64_0)))))))" "(void)))))" "(define-values" "(binding-set-free=id)" @@ -11144,12 +11144,12 @@ static const char *startup_source = "(begin" "(if(module-binding? b_50)" "(let-values()" -"(let-values(((b61_0) b_50)((free=id62_0) free=id_7))" +"(let-values(((b69_0) b_50)((free=id70_0) free=id_7))" "(module-binding-update48.1" " unsafe-undefined" " unsafe-undefined" " unsafe-undefined" -" free=id62_0" +" free=id70_0" " unsafe-undefined" " unsafe-undefined" " unsafe-undefined" @@ -11157,11 +11157,11 @@ static const char *startup_source = " unsafe-undefined" " unsafe-undefined" " unsafe-undefined" -" b61_0)))" +" b69_0)))" "(if(local-binding? b_50)" "(let-values()" -"(let-values(((b63_0) b_50)((free=id64_0) free=id_7))" -"(local-binding-update17.1 unsafe-undefined free=id64_0 unsafe-undefined b63_0)))" +"(let-values(((b71_0) b_50)((free=id72_0) free=id_7))" +"(local-binding-update17.1 unsafe-undefined free=id72_0 unsafe-undefined b71_0)))" " (let-values () (error \"bad binding for free=id:\" b_50)))))))" "(define-values" "(struct:non-source-shift non-source-shift6.1 non-source-shift? non-source-shift-from non-source-shift-to)" @@ -11197,11 +11197,11 @@ static const char *startup_source = "(cons from-mpi_1 to-mpi_1))))" "(let-values(((the-struct_31) s_19))" "(if(syntax?$1 the-struct_31)" -"(let-values(((mpi-shifts66_0)(cons shift_0(syntax-mpi-shifts s_19)))" -"((inspector67_0)" +"(let-values(((mpi-shifts74_0)(cons shift_0(syntax-mpi-shifts s_19)))" +"((inspector75_1)" "(let-values(((or-part_130)(syntax-inspector s_19)))" "(if or-part_130 or-part_130 inspector_3)))" -"((scope-propagations+tamper68_0)" +"((scope-propagations+tamper76_0)" "(if(datum-has-elements?(syntax-content s_19))" "(propagation-mpi-shift" "(syntax-scope-propagations+tamper s_19)" @@ -11215,11 +11215,11 @@ static const char *startup_source = "(syntax-content the-struct_31)" "(syntax-scopes the-struct_31)" "(syntax-shifted-multi-scopes the-struct_31)" -" scope-propagations+tamper68_0" -" mpi-shifts66_0" +" scope-propagations+tamper76_0" +" mpi-shifts74_0" "(syntax-srcloc the-struct_31)" "(syntax-props the-struct_31)" -" inspector67_0))" +" inspector75_1))" " (raise-argument-error 'struct-copy \"syntax?\" the-struct_31)))))))))))))))" "(define-values" "(resolve+shift28.1)" @@ -11242,37 +11242,37 @@ static const char *startup_source = " c1_23)" "(let-values()" "(let-values(((immediate-b_0)" -"(let-values(((s69_0) s_158)" -"((phase70_0) phase_8)" -"((ambiguous-value71_0) ambiguous-value_1)" -"((exactly?72_0) exactly?_1)" -"((extra-shifts73_0) extra-shifts_4))" +"(let-values(((s77_0) s_158)" +"((phase78_0) phase_8)" +"((ambiguous-value79_0) ambiguous-value_1)" +"((exactly?80_0) exactly?_1)" +"((extra-shifts81_0) extra-shifts_4))" "(resolve40.1" -" ambiguous-value71_0" -" exactly?72_0" -" extra-shifts73_0" +" ambiguous-value79_0" +" exactly?80_0" +" extra-shifts81_0" " #f" -" s69_0" -" phase70_0))))" +" s77_0" +" phase78_0))))" "(let-values(((b_52)" "(if(if immediate-b_0" "(if(not immediate?_0)(binding-free=id immediate-b_0) #f)" " #f)" -"(let-values(((temp74_0)(binding-free=id immediate-b_0))" -"((phase75_0) phase_8)" -"((temp76_0)" +"(let-values(((temp82_0)(binding-free=id immediate-b_0))" +"((phase83_0) phase_8)" +"((temp84_0)" "(append extra-shifts_4(syntax-mpi-shifts s_158)))" -"((ambiguous-value77_0) ambiguous-value_1)" -"((exactly?78_0) exactly?_1)" -"((unbound-sym?79_0) unbound-sym?_0))" +"((ambiguous-value85_0) ambiguous-value_1)" +"((exactly?86_0) exactly?_1)" +"((unbound-sym?87_0) unbound-sym?_0))" "(resolve+shift28.1" -" ambiguous-value77_0" -" exactly?78_0" -" temp76_0" +" ambiguous-value85_0" +" exactly?86_0" +" temp84_0" " unsafe-undefined" -" unbound-sym?79_0" -" temp74_0" -" phase75_0))" +" unbound-sym?87_0" +" temp82_0" +" phase83_0))" " immediate-b_0)))" "(if(module-binding? b_52)" "(let-values()" @@ -11298,23 +11298,23 @@ static const char *startup_source = " #f)" " #f)" " b_52" -"(let-values(((b80_0) b_52)" -"((shifted-mod81_0) shifted-mod_0)" -"((shifted-nominal-mod82_0)" +"(let-values(((b88_0) b_52)" +"((shifted-mod89_0) shifted-mod_0)" +"((shifted-nominal-mod90_0)" " shifted-nominal-mod_0)" -"((temp83_0)" +"((temp91_0)" "(if(binding-free=id b_52)" -"(let-values(((temp85_0)" +"(let-values(((temp93_0)" "(binding-free=id" " b_52))" -"((s86_0) s_158))" +"((s94_0) s_158))" "(syntax-transfer-shifts36.1" " #f" -" temp85_0" -" s86_0" +" temp93_0" +" s94_0" " #f))" " #f))" -"((temp84_0)" +"((temp92_0)" "(reverse$1" "(let-values(((lst_50)" "(module-binding-extra-nominal-bindings" @@ -11363,17 +11363,17 @@ static const char *startup_source = " lst_50))))))" "(module-binding-update48.1" " unsafe-undefined" -" temp84_0" +" temp92_0" " unsafe-undefined" -" temp83_0" -" shifted-mod81_0" -" shifted-nominal-mod82_0" +" temp91_0" +" shifted-mod89_0" +" shifted-nominal-mod90_0" " unsafe-undefined" " unsafe-undefined" " unsafe-undefined" " unsafe-undefined" " unsafe-undefined" -" b80_0)))))" +" b88_0)))))" "(begin" "(if can-cache?_0" "(let-values()" @@ -11419,10 +11419,10 @@ static const char *startup_source = "(begin" "(if(module-binding? b_55)" "(let-values()" -"(let-values(((b87_0) b_55)" -"((temp88_0)(module-path-index-shift(module-binding-module b_55) from-mpi_2 to-mpi_2))" -"((temp89_1)(module-path-index-shift(module-binding-nominal-module b_55) from-mpi_2 to-mpi_2))" -"((temp90_0)" +"(let-values(((b95_0) b_55)" +"((temp96_0)(module-path-index-shift(module-binding-module b_55) from-mpi_2 to-mpi_2))" +"((temp97_0)(module-path-index-shift(module-binding-nominal-module b_55) from-mpi_2 to-mpi_2))" +"((temp98_0)" "(reverse$1" "(let-values(((lst_52)(module-binding-extra-nominal-bindings b_55)))" "(begin" @@ -11455,17 +11455,17 @@ static const char *startup_source = " lst_52))))))" "(module-binding-update48.1" " unsafe-undefined" -" temp90_0" +" temp98_0" " unsafe-undefined" " unsafe-undefined" -" temp88_0" -" temp89_1" +" temp96_0" +" temp97_0" " unsafe-undefined" " unsafe-undefined" " unsafe-undefined" " unsafe-undefined" " unsafe-undefined" -" b87_0)))" +" b95_0)))" "(let-values() b_55)))))" "(define-values" "(syntax-transfer-shifts36.1)" @@ -11477,9 +11477,23 @@ static const char *startup_source = "(let-values(((inspector_4) inspector33_0))" "(let-values(((non-source?_1) non-source?31_0))" "(let-values()" -"(let-values(((shifts_2)(syntax-mpi-shifts from-s_1)))" -"(if(if(null? shifts_2) inspector_4 #f)" -"(let-values()(syntax-set-inspector to-s_0 inspector_4))" +"(let-values(((to-s99_0) to-s_0)" +"((temp100_0)(syntax-mpi-shifts from-s_1))" +"((inspector101_0) inspector_4)" +"((non-source?102_0) non-source?_1))" +"(syntax-add-shifts44.1 non-source?102_0 to-s99_0 temp100_0 inspector101_0))))))))))" +"(define-values" +"(syntax-add-shifts44.1)" +"(lambda(non-source?39_0 to-s42_0 shifts43_0 inspector41_0)" +"(begin" +" 'syntax-add-shifts44" +"(let-values(((to-s_1) to-s42_0))" +"(let-values(((shifts_2) shifts43_0))" +"(let-values(((inspector_5) inspector41_0))" +"(let-values(((non-source?_2) non-source?39_0))" +"(let-values()" +"(if(if(null? shifts_2) inspector_5 #f)" +"(let-values()(syntax-set-inspector to-s_1 inspector_5))" "(let-values()" "(let-values(((lst_54)(reverse$1 shifts_2))((start_12) 0))" "(begin" @@ -11490,83 +11504,83 @@ static const char *startup_source = "(void)" "(let-values()(check-naturals start_12)))" "((letrec-values(((for-loop_75)" -"(lambda(s_159 lst_55 pos_10)" +"(lambda(s_101 lst_55 pos_10)" "(begin" " 'for-loop" "(if(if(pair? lst_55) #t #f)" "(let-values(((shift_3)(unsafe-car lst_55))" "((rest_24)(unsafe-cdr lst_55))" "((i_81) pos_10))" -"(let-values(((s_160)" -"(let-values(((s_39) s_159))" -"(let-values(((s_98)" +"(let-values(((s_159)" +"(let-values(((s_160) s_101))" +"(let-values(((s_161)" "(let-values()" -"(let-values(((s91_0) s_39)" -"((temp92_0)" +"(let-values(((s103_0) s_160)" +"((temp104_0)" "(shift-from shift_3))" -"((temp93_0)" +"((temp105_0)" "(shift-to shift_3))" -"((temp94_0)" +"((temp106_0)" "(if(zero? i_81)" -" inspector_4" +" inspector_5" " #f))" -"((non-source?95_0)" -" non-source?_1))" +"((non-source?107_0)" +" non-source?_2))" "(syntax-module-path-index-shift13.1" -" non-source?95_0" -" s91_0" -" temp92_0" -" temp93_0" -" temp94_0)))))" -"(values s_98)))))" -"(if(not #f)(for-loop_75 s_160 rest_24(+ pos_10 1)) s_160)))" -" s_159)))))" +" non-source?107_0" +" s103_0" +" temp104_0" +" temp105_0" +" temp106_0)))))" +"(values s_161)))))" +"(if(not #f)(for-loop_75 s_159 rest_24(+ pos_10 1)) s_159)))" +" s_101)))))" " for-loop_75)" -" to-s_0" +" to-s_1" " lst_54" -" start_12))))))))))))))" +" start_12)))))))))))))" "(define-values" "(syntax-set-inspector)" -"(lambda(s_161 insp_3)" +"(lambda(s_162 insp_3)" "(begin" -"(let-values(((the-struct_32) s_161))" +"(let-values(((the-struct_32) s_162))" "(if(syntax?$1 the-struct_32)" -"(let-values(((inspector96_0)" -"(let-values(((or-part_132)(syntax-inspector s_161)))(if or-part_132 or-part_132 insp_3)))" -"((scope-propagations+tamper97_0)" -"(if(datum-has-elements?(syntax-content s_161))" +"(let-values(((inspector108_0)" +"(let-values(((or-part_132)(syntax-inspector s_162)))(if or-part_132 or-part_132 insp_3)))" +"((scope-propagations+tamper109_0)" +"(if(datum-has-elements?(syntax-content s_162))" "(propagation-mpi-shift" -"(syntax-scope-propagations+tamper s_161)" +"(syntax-scope-propagations+tamper s_162)" " #f" " insp_3" -"(syntax-scopes s_161)" -"(syntax-shifted-multi-scopes s_161)" -"(syntax-mpi-shifts s_161))" -"(syntax-scope-propagations+tamper s_161))))" +"(syntax-scopes s_162)" +"(syntax-shifted-multi-scopes s_162)" +"(syntax-mpi-shifts s_162))" +"(syntax-scope-propagations+tamper s_162))))" "(syntax1.1" "(syntax-content the-struct_32)" "(syntax-scopes the-struct_32)" "(syntax-shifted-multi-scopes the-struct_32)" -" scope-propagations+tamper97_0" +" scope-propagations+tamper109_0" "(syntax-mpi-shifts the-struct_32)" "(syntax-srcloc the-struct_32)" "(syntax-props the-struct_32)" -" inspector96_0))" +" inspector108_0))" " (raise-argument-error 'struct-copy \"syntax?\" the-struct_32))))))" "(define-values" "(1/syntax-source-module)" -"(let-values(((syntax-source-module41_0)" -"(lambda(s40_0 source?39_0)" +"(let-values(((syntax-source-module49_0)" +"(lambda(s48_0 source?47_0)" "(begin" -" 'syntax-source-module41" -"(let-values(((s_162) s40_0))" -"(let-values(((source?_0) source?39_0))" +" 'syntax-source-module49" +"(let-values(((s_163) s48_0))" +"(let-values(((source?_0) source?47_0))" "(let-values()" "(begin" -"(if(syntax?$1 s_162)" +"(if(syntax?$1 s_163)" "(void)" -" (let-values () (raise-argument-error 'syntax-track-origin \"syntax?\" s_162)))" -"(let-values(((lst_56)(reverse$1(syntax-mpi-shifts s_162))))" +" (let-values () (raise-argument-error 'syntax-track-origin \"syntax?\" s_163)))" +"(let-values(((lst_56)(reverse$1(syntax-mpi-shifts s_163))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" @@ -11600,7 +11614,7 @@ static const char *startup_source = "(apply-syntax-shifts" " from-mpi_3" "(syntax-mpi-shifts" -" s_162))))" +" s_163))))" "(if source?_0" "(1/resolved-module-path-name" "(1/module-path-index-resolve" @@ -11618,8 +11632,8 @@ static const char *startup_source = " #f" " lst_56)))))))))))" "(case-lambda" -"((s_163)(begin 'syntax-source-module(syntax-source-module41_0 s_163 #f)))" -"((s_164 source?39_1)(syntax-source-module41_0 s_164 source?39_1)))))" +"((s_164)(begin 'syntax-source-module(syntax-source-module49_0 s_164 #f)))" +"((s_165 source?47_1)(syntax-source-module49_0 s_165 source?47_1)))))" "(define-values" "(1/identifier-prune-to-source-module)" "(lambda(id_7)" @@ -11631,13 +11645,13 @@ static const char *startup_source = " (let-values () (raise-argument-error 'identifier-prune-to-source-module \"identifier?\" id_7)))" "(let-values(((the-struct_33)(datum->syntax$1 #f(syntax-e$1 id_7) id_7 id_7)))" "(if(syntax?$1 the-struct_33)" -"(let-values(((mpi-shifts98_0)(syntax-mpi-shifts id_7)))" +"(let-values(((mpi-shifts110_0)(syntax-mpi-shifts id_7)))" "(syntax1.1" "(syntax-content the-struct_33)" "(syntax-scopes the-struct_33)" "(syntax-shifted-multi-scopes the-struct_33)" "(syntax-scope-propagations+tamper the-struct_33)" -" mpi-shifts98_0" +" mpi-shifts110_0" "(syntax-srcloc the-struct_33)" "(syntax-props the-struct_33)" "(syntax-inspector the-struct_33)))" @@ -11946,6 +11960,7 @@ static const char *startup_source = " 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-use-site-scopes" " root-expand-context/outer-frame-id)" "(let-values(((struct:_36 make-_36 ?_36 -ref_36 -set!_36)" @@ -11954,13 +11969,13 @@ static const char *startup_source = "(make-struct-type" " 'root-expand-context" " #f" -" 4" +" 5" " 0" " #f" "(list(cons prop:authentic #t))" "(current-inspector)" " #f" -" '(0 1 2 3)" +" '(0 1 2 3 4)" " #f" " 'root-expand-context/outer)))))" "(values" @@ -11969,8 +11984,9 @@ static const char *startup_source = " ?_36" "(make-struct-field-accessor -ref_36 0 'inner)" "(make-struct-field-accessor -ref_36 1 'post-expansion-scope)" -"(make-struct-field-accessor -ref_36 2 'use-site-scopes)" -"(make-struct-field-accessor -ref_36 3 'frame-id))))" +"(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))))" "(define-values" "(struct:root-expand-context/inner" " root-expand-context/inner2.1" @@ -11982,7 +11998,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:_9 make-_9 ?_9 -ref_9 -set!_9)" +"(let-values(((struct:_37 make-_37 ?_37 -ref_37 -set!_37)" "(let-values()" "(let-values()" "(make-struct-type" @@ -11998,21 +12014,22 @@ static const char *startup_source = " #f" " 'root-expand-context/inner)))))" "(values" -" 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))))" +" 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))))" "(define-values" "(root-expand-context/make)" "(lambda(self-mpi_0" " module-scopes_0" " post-expansion-scope_0" +" post-expansion-shifts_0" " top-level-bind-scope_0" " all-scopes-stx_0" " use-site-scopes_0" @@ -12031,33 +12048,37 @@ static const char *startup_source = " counter_0" " lift-key_0)" " post-expansion-scope_0" +" post-expansion-shifts_0" " use-site-scopes_0" " frame-id_4))))" "(define-values" "(root-expand-context-post-expansion-scope)" -"(lambda(v_91)(begin(root-expand-context/outer-post-expansion-scope v_91))))" +"(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))))" "(define-values" "(root-expand-context-use-site-scopes)" -"(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))))" +"(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))))" "(define-values" "(root-expand-context-self-mpi)" -"(lambda(v_65)(begin(root-expand-context/inner-self-mpi(root-expand-context/outer-inner v_65)))))" +"(lambda(v_52)(begin(root-expand-context/inner-self-mpi(root-expand-context/outer-inner v_52)))))" "(define-values" "(root-expand-context-module-scopes)" -"(lambda(v_48)(begin(root-expand-context/inner-module-scopes(root-expand-context/outer-inner v_48)))))" +"(lambda(v_93)(begin(root-expand-context/inner-module-scopes(root-expand-context/outer-inner v_93)))))" "(define-values" "(root-expand-context-top-level-bind-scope)" -"(lambda(v_93)(begin(root-expand-context/inner-top-level-bind-scope(root-expand-context/outer-inner v_93)))))" +"(lambda(v_53)(begin(root-expand-context/inner-top-level-bind-scope(root-expand-context/outer-inner v_53)))))" "(define-values" "(root-expand-context-all-scopes-stx)" -"(lambda(v_49)(begin(root-expand-context/inner-all-scopes-stx(root-expand-context/outer-inner v_49)))))" +"(lambda(v_94)(begin(root-expand-context/inner-all-scopes-stx(root-expand-context/outer-inner v_94)))))" "(define-values" "(root-expand-context-defined-syms)" -"(lambda(v_94)(begin(root-expand-context/inner-defined-syms(root-expand-context/outer-inner v_94)))))" +"(lambda(v_50)(begin(root-expand-context/inner-defined-syms(root-expand-context/outer-inner v_50)))))" "(define-values" "(root-expand-context-counter)" -"(lambda(v_42)(begin(root-expand-context/inner-counter(root-expand-context/outer-inner v_42)))))" +"(lambda(v_54)(begin(root-expand-context/inner-counter(root-expand-context/outer-inner v_54)))))" "(define-values" "(root-expand-context-lift-key)" "(lambda(v_95)(begin(root-expand-context/inner-lift-key(root-expand-context/outer-inner v_95)))))" @@ -12081,6 +12102,7 @@ static const char *startup_source = " self-mpi_1" " module-scopes_1" " post-expansion-scope_1" +" null" "(new-scope 'module)" "(let-values(((or-part_135) all-scopes-stx_1))" "(if or-part_135 or-part_135(add-scopes empty-syntax module-scopes_1)))" @@ -12097,32 +12119,34 @@ static const char *startup_source = " #f" "(vector" "(add-scopes empty-syntax(root-expand-context-module-scopes ctx_0))" -"(add-scope empty-syntax(root-expand-context-post-expansion-scope ctx_0))" -"(let-values(((temp18_2)(root-expand-context-all-scopes-stx ctx_0))" -"((orig-self19_0) orig-self_0)" -"((new-self20_0) new-self_0))" -"(syntax-module-path-index-shift13.1 #f temp18_2 orig-self19_0 new-self20_0 #f))" +"(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))" +"(let-values(((temp20_0)(root-expand-context-all-scopes-stx ctx_0))" +"((orig-self21_0) orig-self_0)" +"((new-self22_0) new-self_0))" +"(syntax-module-path-index-shift13.1 #f temp20_0 orig-self21_0 new-self22_0 #f))" "(add-scopes empty-syntax(unbox(root-expand-context-use-site-scopes ctx_0)))" "(let-values(((ht_63)(root-expand-context-defined-syms ctx_0)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-in-hash ht_63)))" "((letrec-values(((for-loop_78)" -"(lambda(table_89 i_83)" +"(lambda(table_91 i_83)" "(begin" " 'for-loop" "(if i_83" "(let-values(((phase_23 ht_64)(hash-iterate-key+value ht_63 i_83)))" -"(let-values(((table_91)" -"(let-values(((table_92) table_89))" -"(let-values(((table_93)" +"(let-values(((table_92)" +"(let-values(((table_93) table_91))" +"(let-values(((table_94)" "(let-values()" "(let-values(((key_37 val_25)" "(let-values()" "(values phase_23 ht_64))))" -"(hash-set table_92 key_37 val_25)))))" -"(values table_93)))))" -"(if(not #f)(for-loop_78 table_91(hash-iterate-next ht_63 i_83)) table_91)))" -" table_89)))))" +"(hash-set table_93 key_37 val_25)))))" +"(values table_94)))))" +"(if(not #f)(for-loop_78 table_92(hash-iterate-next ht_63 i_83)) table_92)))" +" table_91)))))" " for-loop_78)" " '#hasheqv()" "(hash-iterate-first ht_63))))" @@ -12157,6 +12181,7 @@ static const char *startup_source = " self_3" "(extract-scope-list(vector-ref vec_29 0))" "(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)))" @@ -12171,7 +12196,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_79)" +"((letrec-values(((for-loop_8)" "(lambda(result_53 i_84)" "(begin" " 'for-loop" @@ -12190,7 +12215,7 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()(check-in-hash ht_66)))" -"((letrec-values(((for-loop_8)" +"((letrec-values(((for-loop_79)" "(lambda(result_56 i_85)" "(begin" " 'for-loop" @@ -12200,9 +12225,9 @@ static const char *startup_source = "(hash-iterate-key+value" " ht_66" " i_85)))" -"(let-values(((result_57)" +"(let-values(((result_10)" "(let-values()" -"(let-values(((result_58)" +"(let-values(((result_57)" "(let-values()" "(let-values()" "(if(symbol?" @@ -12211,33 +12236,33 @@ static const char *startup_source = " id_8)" " #f)))))" "(values" -" result_58)))))" +" result_57)))))" "(if(if(not" -"((lambda x_38" +"((lambda x_0" "(not" -" result_57))" +" result_10))" " sym_21" " id_8))" "(not #f)" " #f)" -"(for-loop_8" -" result_57" +"(for-loop_79" +" result_10" "(hash-iterate-next" " ht_66" " i_85))" -" result_57)))" +" result_10)))" " result_56)))))" -" for-loop_8)" +" for-loop_79)" " #t" "(hash-iterate-first ht_66))))" " #f)" " #f)))))" "(values result_55)))))" -"(if(if(not((lambda x_39(not result_54)) phase_24 ht-s_0))(not #f) #f)" -"(for-loop_79 result_54(hash-iterate-next ht_65 i_84))" +"(if(if(not((lambda x_38(not result_54)) phase_24 ht-s_0))(not #f) #f)" +"(for-loop_8 result_54(hash-iterate-next ht_65 i_84))" " result_54)))" " result_53)))))" -" for-loop_79)" +" for-loop_8)" " #t" "(hash-iterate-first ht_65)))))))" "(define-values" @@ -12248,7 +12273,8 @@ 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_166)(syntax-scope-set stx_11 0)))(generalize-scope(set-first s_166))))))" +"(define-values(extract-shifts)(lambda(stx_12)(begin(syntax-mpi-shifts stx_12))))" "(define-values" "(unpack-defined-syms)" "(lambda(v_97)" @@ -12258,14 +12284,14 @@ static const char *startup_source = "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-in-hash ht_67)))" "((letrec-values(((for-loop_80)" -"(lambda(table_94 i_86)" +"(lambda(table_95 i_86)" "(begin" " 'for-loop" "(if i_86" "(let-values(((phase_25 ht-s_1)(hash-iterate-key+value ht_67 i_86)))" -"(let-values(((table_95)" -"(let-values(((table_96) table_94))" -"(let-values(((table_97)" +"(let-values(((table_96)" +"(let-values(((table_97) table_95))" +"(let-values(((table_98)" "(let-values()" "(let-values(((key_38 val_26)" "(let-values()" @@ -12281,8 +12307,8 @@ static const char *startup_source = "(void)" "(let-values()" "(check-in-hash ht_68)))" -"((letrec-values(((for-loop_13)" -"(lambda(table_98" +"((letrec-values(((for-loop_23)" +"(lambda(table_99" " i_87)" "(begin" " 'for-loop" @@ -12292,10 +12318,10 @@ static const char *startup_source = "(hash-iterate-key+value" " ht_68" " i_87)))" -"(let-values(((table_99)" "(let-values(((table_100)" -" table_98))" "(let-values(((table_101)" +" table_99))" +"(let-values(((table_102)" "(let-values()" "(let-values(((key_39" " val_27)" @@ -12304,28 +12330,28 @@ static const char *startup_source = " sym_22" " id_9))))" "(hash-set" -" table_100" +" table_101" " key_39" " val_27)))))" "(values" -" table_101)))))" +" table_102)))))" "(if(not" " #f)" -"(for-loop_13" -" table_99" +"(for-loop_23" +" table_100" "(hash-iterate-next" " ht_68" " i_87))" -" table_99)))" -" table_98)))))" -" for-loop_13)" +" table_100)))" +" table_99)))))" +" for-loop_23)" " '#hash()" "(hash-iterate-first" " ht_68)))))))))" -"(hash-set table_96 key_38 val_26)))))" -"(values table_97)))))" -"(if(not #f)(for-loop_80 table_95(hash-iterate-next ht_67 i_86)) table_95)))" -" table_94)))))" +"(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)))" +" table_95)))))" " for-loop_80)" " '#hasheqv()" "(hash-iterate-first ht_67))))))))" @@ -12493,7 +12519,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:_37 make-_37 ?_37 -ref_37 -set!_37)" +"(let-values(((struct:_38 make-_38 ?_38 -ref_38 -set!_38)" "(let-values()" "(let-values()" "(make-struct-type" @@ -12509,11 +12535,11 @@ static const char *startup_source = " #f" " 'definitions)))))" "(values" -" struct:_37" -" make-_37" -" ?_37" -"(make-struct-field-accessor -ref_37 0 'variables)" -"(make-struct-field-accessor -ref_37 1 'transformers))))" +" struct:_38" +" make-_38" +" ?_38" +"(make-struct-field-accessor -ref_38 0 'variables)" +"(make-struct-field-accessor -ref_38 1 'transformers))))" "(define-values(make-namespace)(lambda()(begin(let-values()(new-namespace8.1 #t unsafe-undefined #f)))))" "(define-values" "(new-namespace8.1)" @@ -12549,8 +12575,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_135)(namespace-root-namespace share-from-ns_0)))" +"(if or-part_135 or-part_135 share-from-ns_0))" " #f)" " #f" "(make-inspector(current-code-inspector))" @@ -12584,17 +12610,17 @@ 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_136)(small-hash-ref(namespace-submodule-declarations ns_5) name_17 #f)))" +"(if or-part_136" +" or-part_136" "(hash-ref(module-registry-declarations(namespace-module-registry$1 ns_5)) name_17 #f))))))" "(define-values" "(namespace->namespace-at-phase)" "(lambda(ns_6 phase_27)" "(begin" -"(let-values(((or-part_138)(small-hash-ref(namespace-phase-to-namespace ns_6) phase_27 #f)))" -"(if or-part_138" -" or-part_138" +"(let-values(((or-part_137)(small-hash-ref(namespace-phase-to-namespace ns_6) phase_27 #f)))" +"(if or-part_137" +" or-part_137" "(let-values(((p-ns_0)" "(let-values(((the-struct_34) ns_6))" "(if(1/namespace? the-struct_34)" @@ -12622,22 +12648,22 @@ static const char *startup_source = "(lambda(ns_7)" "(begin" "(let-values(((n_21)(namespace-source-name ns_7)))" -"(let-values(((s_166)" +"(let-values(((s_167)" "(if(not n_21)" "(let-values() 'top-level)" "(if(symbol? n_21)" " (let-values () (format \"'~s\" n_21))" " (let-values () (string-append \"\\\"\" (path->string n_21) \"\\\"\"))))))" "(let-values(((r_27)(1/resolved-module-path-name(1/module-path-index-resolve(namespace-mpi ns_7)))))" -" (if (pair? r_27) (string-append \"(submod \" s_166 \" \" (substring (format \"~s\" (cdr r_27)) 1)) s_166)))))))" +" (if (pair? r_27) (string-append \"(submod \" s_167 \" \" (substring (format \"~s\" (cdr r_27)) 1)) s_167)))))))" "(define-values" "(namespace->definitions)" "(lambda(ns_8 phase-level_1)" "(begin" "(let-values(((d_8)(small-hash-ref(namespace-phase-level-to-definitions ns_8) phase-level_1 #f)))" -"(let-values(((or-part_139) d_8))" -"(if or-part_139" -" or-part_139" +"(let-values(((or-part_138) d_8))" +"(if or-part_138" +" or-part_138" "(let-values()" "(let-values(((p-ns_1)" "(namespace->namespace-at-phase ns_8(phase+(namespace-0-phase ns_8) phase-level_1))))" @@ -12985,7 +13011,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:_38 make-_38 ?_38 -ref_38 -set!_38)" +"(let-values(((struct:_39 make-_39 ?_39 -ref_39 -set!_39)" "(let-values()" "(let-values()" "(make-struct-type" @@ -13000,7 +13026,7 @@ static const char *startup_source = " '()" " #f" " 'exn:fail:syntax:unbound)))))" -"(values struct:_38 make-_38 ?_38)))" +"(values struct:_39 make-_39 ?_39)))" "(define-values" "(raise-syntax-error$1)" "(let-values(((raise-syntax-error7_0)" @@ -13074,8 +13100,8 @@ static const char *startup_source = "(begin" "(let-values((()" "(begin" -"(if((lambda(x_40)" -"(let-values(((or-part_99)(not x_40)))(if or-part_99 or-part_99(symbol? x_40))))" +"(if((lambda(x_39)" +"(let-values(((or-part_99)(not x_39)))(if or-part_99 or-part_99(symbol? x_39))))" " given-name_12)" "(void)" " (let-values () (raise-argument-error who_8 \"(or/c symbol? #f)\" given-name_12)))" @@ -13101,9 +13127,9 @@ static const char *startup_source = "(let-values(((name_27)" "(format" " \"~a\"" -"(let-values(((or-part_135) given-name_12))" -"(if or-part_135" -" or-part_135" +"(let-values(((or-part_139) given-name_12))" +"(if or-part_139" +" or-part_139" "(let-values(((or-part_140)(extract-form-name expr_8)))" "(if or-part_140 or-part_140 '?)))))))" "(let-values(((at-message_0)" @@ -13139,7 +13165,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_135) sub-expr_6))(if or-part_135 or-part_135 expr_8)))" " extra-sources_4)" " extra-sources_4)))))))))))))))" "(define-values" @@ -13250,7 +13276,7 @@ static const char *startup_source = " module-linklet-info-inspector" " module-linklet-info-extra-inspector" " module-linklet-info-extra-inspectorsss)" -"(let-values(((struct:_39 make-_39 ?_39 -ref_39 -set!_39)" +"(let-values(((struct:_40 make-_40 ?_40 -ref_40 -set!_40)" "(let-values()" "(let-values()" "(make-struct-type" @@ -13266,15 +13292,15 @@ static const char *startup_source = " #f" " 'module-linklet-info)))))" "(values" -" 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))))" +" 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))))" "(define-values" "(make-module39.1)" "(lambda(cross-phase-persistent?16_0" @@ -13367,7 +13393,7 @@ static const char *startup_source = " set-module-instance-shifted-requires!" " set-module-instance-made-available?!" " set-module-instance-attached?!)" -"(let-values(((struct:_40 make-_40 ?_40 -ref_40 -set!_40)" +"(let-values(((struct:_41 make-_41 ?_41 -ref_41 -set!_41)" "(let-values()" "(let-values()" "(make-struct-type" @@ -13383,19 +13409,19 @@ static const char *startup_source = " #f" " 'module-instance)))))" "(values" -" 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?))))" +" 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?))))" "(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)))))" @@ -14530,15 +14556,15 @@ static const char *startup_source = "(void)" "(let-values()(check-in-hash ht_71)))" "((letrec-values(((for-loop_92)" -"(lambda(table_102 i_89)" +"(lambda(table_103 i_89)" "(begin" " 'for-loop" "(if i_89" "(let-values(((phase_32 at-phase_6)" "(hash-iterate-key+value ht_71 i_89)))" -"(let-values(((table_103)" -"(let-values(((table_104) table_102))" -"(let-values(((table_105)" +"(let-values(((table_104)" +"(let-values(((table_105) table_103))" +"(let-values(((table_106)" "(let-values()" "(let-values(((key_40 val_33)" "(let-values()" @@ -14554,7 +14580,7 @@ static const char *startup_source = "(check-in-hash" " ht_72)))" "((letrec-values(((for-loop_93)" -"(lambda(table_106" +"(lambda(table_107" " i_90)" "(begin" " 'for-loop" @@ -14564,10 +14590,10 @@ static const char *startup_source = "(hash-iterate-key+value" " ht_72" " i_90)))" -"(let-values(((table_107)" "(let-values(((table_108)" -" table_106))" "(let-values(((table_109)" +" table_107))" +"(let-values(((table_110)" "(let-values()" "(let-values(((key_41" " val_34)" @@ -14581,33 +14607,33 @@ static const char *startup_source = " 'protected" " 'provided)))))" "(hash-set" -" table_108" +" table_109" " key_41" " val_34)))))" "(values" -" table_109)))))" +" table_110)))))" "(if(not" " #f)" "(for-loop_93" -" table_107" +" table_108" "(hash-iterate-next" " ht_72" " i_90))" -" table_107)))" -" table_106)))))" +" table_108)))" +" table_107)))))" " for-loop_93)" " '#hash()" "(hash-iterate-first" " ht_72))))))))" "(hash-set" -" table_104" +" table_105" " key_40" " val_33)))))" -"(values table_105)))))" +"(values table_106)))))" "(if(not #f)" -"(for-loop_92 table_103(hash-iterate-next ht_71 i_89))" -" table_103)))" -" table_102)))))" +"(for-loop_92 table_104(hash-iterate-next ht_71 i_89))" +" table_104)))" +" table_103)))))" " for-loop_92)" " '#hasheqv()" "(hash-iterate-first ht_71))))))" @@ -14838,7 +14864,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:_41 make-_41 ?_41 -ref_41 -set!_41)" +"(let-values(((struct:_42 make-_42 ?_42 -ref_42 -set!_42)" "(let-values()" "(let-values()" "(make-struct-type" @@ -14853,7 +14879,7 @@ static const char *startup_source = " '(0)" " #f" " 'set!-transformer)))))" -"(values struct:_41 make-_41 ?_41(make-struct-field-accessor -ref_41 0 'proc)))))" +"(values struct:_42 make-_42 ?_42(make-struct-field-accessor -ref_42 0 'proc)))))" "(lambda(proc_3)" "(begin" " 'make-set!-transformer" @@ -14868,7 +14894,7 @@ static const char *startup_source = "(begin" " 'set!-transformer-procedure" "(let-values(((v_99)((set!-transformer-value t_39) t_39)))" -"(if(procedure-arity-includes? v_99 1) v_99(lambda(s_167)(v_99 t_39 s_167)))))))" +"(if(procedure-arity-includes? v_99 1) v_99(lambda(s_168)(v_99 t_39 s_168)))))))" "(define-values(empty-env) '#hasheq())" "(define-values(env-extend)(lambda(env_0 key_42 val_21)(begin(hash-set env_0 key_42 val_21))))" "(define-values(variable)(gensym 'variable))" @@ -14923,7 +14949,7 @@ static const char *startup_source = "(begin" "(if(1/set!-transformer? t_42)" "(let-values()(1/set!-transformer-procedure t_42))" -"(if(1/rename-transformer? t_42)(let-values()(lambda(s_168) s_168))(let-values() t_42))))))" +"(if(1/rename-transformer? t_42)(let-values()(lambda(s_169) s_169))(let-values() t_42))))))" "(define-values" "(struct:core-form core-form9.1 core-form? core-form-expander core-form-name)" "(let-values(((struct:_24 make-_24 ?_24 -ref_24 -set!_24)" @@ -14960,11 +14986,11 @@ static const char *startup_source = "(let-values()" "(begin" "(check-id-taint id_15 in-s_2)" -"(let-values(((temp55_1)(syntax-scope-set id_15 phase_35))" +"(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))" -"(add-binding-in-scopes!20.1 just-for-nominal?58_0 temp55_1 temp56_1 binding57_0))))))))))))" +"(add-binding-in-scopes!20.1 just-for-nominal?58_0 temp55_0 temp56_1 binding57_0))))))))))))" "(define-values" "(add-bulk-binding!27.1)" "(lambda(in20_0 shadow-except21_0 s24_0 binding25_0 phase26_1)" @@ -14990,7 +15016,7 @@ static const char *startup_source = "(begin" " 'add-local-binding!37" "(let-values(((id_16) id34_0))" -"(let-values(((phase_24) 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))" @@ -15000,31 +15026,31 @@ 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_0)(syntax-scope-set id_16 phase_24))" -"((temp63_0)(syntax-e$1 id_16))" -"((temp64_0)" +"(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))" "(make-local-binding7.1 frame-id66_0 #f key65_0))))" -"(add-binding-in-scopes!20.1 #f temp62_0 temp63_0 temp64_0))" +"(add-binding-in-scopes!20.1 #f temp62_1 temp63_1 temp64_1))" " key_43)))))))))))))" "(define-values" "(check-id-taint)" -"(lambda(id_9 in-s_5)" +"(lambda(id_17 in-s_5)" "(begin" -"(if(syntax-tainted?$1 id_9)" -" (let-values () (raise-syntax-error$1 #f \"cannot bind tainted identifier\" in-s_5 id_9))" +"(if(syntax-tainted?$1 id_17)" +" (let-values () (raise-syntax-error$1 #f \"cannot bind tainted identifier\" in-s_5 id_17))" "(void)))))" "(define-values" "(binding-lookup50.1)" -"(lambda(in40_0 out-of-context-as-variable?41_0 b44_0 env45_0 lift-envs46_0 ns47_0 phase48_0 id49_1)" +"(lambda(in40_0 out-of-context-as-variable?41_0 b44_0 env45_0 lift-envs46_0 ns47_0 phase48_0 id49_0)" "(begin" " 'binding-lookup50" "(let-values(((b_60) b44_0))" "(let-values(((env_1) env45_0))" "(let-values(((lift-envs_0) lift-envs46_0))" "(let-values(((ns_44) ns47_0))" -"(let-values(((phase_37) phase48_0))" -"(let-values(((id_17) id49_1))" +"(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))" "(let-values()" @@ -15033,7 +15059,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_37 id_17)" +"(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)))" @@ -15041,7 +15067,7 @@ static const char *startup_source = "(if top-level?_0" " ns_44" "(if mi_15(module-instance-namespace mi_15) #f))))" -"(let-values((()(begin(check-taint id_17)(values))))" +"(let-values((()(begin(check-taint id_18)(values))))" "(let-values(((t_43)" "(namespace-get-transformer" " m-ns_7" @@ -15053,7 +15079,7 @@ static const char *startup_source = "(check-access" " b_60" " mi_15" -" id_17" +" id_18" " in-s_6" " (if (variable? t_43) \"variable\" \"transformer\"))" " #f)))" @@ -15077,7 +15103,7 @@ static const char *startup_source = "(void)" "(let-values()(check-list lst_73)))" "((letrec-values(((for-loop_94)" -"(lambda(result_59 lst_74)" +"(lambda(result_58 lst_74)" "(begin" " 'for-loop" "(if(pair? lst_74)" @@ -15085,9 +15111,9 @@ static const char *startup_source = "(unsafe-car lst_74))" "((rest_34)" "(unsafe-cdr lst_74)))" -"(let-values(((result_60)" +"(let-values(((result_59)" "(let-values()" -"(let-values(((result_61)" +"(let-values(((result_60)" "(let-values()" "(let-values()" "(hash-ref" @@ -15097,15 +15123,15 @@ static const char *startup_source = " b_60)" " #f)))))" "(values" -" result_61)))))" +" result_60)))))" "(if(if(not" -"((lambda x_41 result_60)" +"((lambda x_40 result_59)" " lift-env_0))" "(not #f)" " #f)" -"(for-loop_94 result_60 rest_34)" -" result_60)))" -" result_59)))))" +"(for-loop_94 result_59 rest_34)" +" result_59)))" +" result_58)))))" " for-loop_94)" " #f" " lst_73)))))" @@ -15113,23 +15139,23 @@ static const char *startup_source = " or-part_103" "(if out-of-context-as-variable?_0" " variable" -" (error \"identifier used out of context:\" id_17))))" +" (error \"identifier used out of context:\" id_18))))" " #f" " #f" " #f))" -"(let-values()(begin(check-taint id_17)(values t_44 #f #f #f))))))" +"(let-values()(begin(check-taint id_18)(values t_44 #f #f #f))))))" " (let-values () (error \"internal error: unknown binding for lookup:\" b_60))))))))))))))))" "(define-values" "(check-taint)" -"(lambda(id_18)" +"(lambda(id_19)" "(begin" -"(if(syntax-tainted?$1 id_18)" -" (let-values () (raise-syntax-error$1 #f \"cannot use identifier tainted by macro transformation\" id_18))" +"(if(syntax-tainted?$1 id_19)" +" (let-values () (raise-syntax-error$1 #f \"cannot use identifier tainted by macro transformation\" id_19))" "(void)))))" "(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_38 ids_0)" +"(lambda(phase_39 ids_0)" "(begin" "(let-values(((lst_75) ids_0))" "(begin" @@ -15147,7 +15173,7 @@ static const char *startup_source = "(let-values(((sym_24)" "(identifier-binding-symbol$1" " id_10" -" phase_38)))" +" phase_39)))" "(hash-set" " ht_75" " sym_24" @@ -15164,11 +15190,11 @@ static const char *startup_source = "(define-values(free-id-set-empty?)(lambda(fs_0)(begin(eq? fs_0 empty-free-id-set))))" "(define-values" "(free-id-set-member?)" -"(lambda(fs_1 phase_39 given-id_0)" +"(lambda(fs_1 phase_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_39) 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)" @@ -15178,20 +15204,20 @@ static const char *startup_source = "(if(not(null? lst_78))" "(let-values(((id_2)(if(pair? lst_78)(car lst_78) lst_78))" "((rest_36)(if(pair? lst_78)(cdr lst_78) null)))" -"(let-values(((result_62)" +"(let-values(((result_61)" "(let-values()" -"(let-values(((result_63)" +"(let-values(((result_62)" "(let-values()" "(let-values()" "(free-identifier=?$1" " id_2" " given-id_0" -" phase_39" -" phase_39)))))" -"(values result_63)))))" -"(if(if(not((lambda x_42 result_62) id_2))(not #f) #f)" -"(for-loop_96 result_62 rest_36)" -" result_62)))" +" phase_40" +" phase_40)))))" +"(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)))" " result_3)))))" " for-loop_96)" " #f" @@ -15267,7 +15293,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:_42 make-_42 ?_42 -ref_42 -set!_42)" +"(let-values(((struct:_43 make-_43 ?_43 -ref_43 -set!_43)" "(let-values()" "(let-values()" "(make-struct-type" @@ -15283,33 +15309,34 @@ static const char *startup_source = " #f" " 'expand-context/inner)))))" "(values" -" 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?))))" +" 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?))))" "(define-values" "(expand-context/make)" "(lambda(self-mpi_2" " module-scopes_2" " post-expansion-scope_2" +" post-expansion-shifts_1" " top-level-bind-scope_1" " all-scopes-stx_2" " use-site-scopes_1" @@ -15319,11 +15346,11 @@ static const char *startup_source = " lift-key_1" " to-parsed?_0" " context_0" -" phase_25" +" phase_41" " namespace_0" " env_2" " post-expansion-scope-action_0" -" scopes_3" +" scopes_18" " def-ctx-scopes_0" " binding-layer_0" " reference-records_0" @@ -15358,7 +15385,7 @@ static const char *startup_source = " counter_2" " lift-key_1" " to-parsed?_0" -" phase_25" +" phase_41" " namespace_0" " just-once?_0" " module-begin-k_0" @@ -15377,12 +15404,13 @@ static const char *startup_source = " for-serializable?_0" " should-not-encounter-macros?_0)" " post-expansion-scope_2" +" post-expansion-shifts_1" " use-site-scopes_1" " frame-id_6" " context_0" " env_2" " post-expansion-scope-action_0" -" scopes_3" +" scopes_18" " def-ctx-scopes_0" " binding-layer_0" " reference-records_0" @@ -15481,6 +15509,7 @@ static const char *startup_source = "(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-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)" @@ -15523,15 +15552,15 @@ static const char *startup_source = "(lambda(ctx_1 root-ctx_2)" "(begin" "(let-values(((v_130) ctx_1))" -"(let-values(((the-struct_14) v_130))" -"(if(expand-context/outer? the-struct_14)" +"(let-values(((the-struct_41) v_130))" +"(if(expand-context/outer? the-struct_41)" "(let-values(((post-expansion-scope27_0)(root-expand-context-post-expansion-scope root-ctx_2))" "((use-site-scopes28_0)(root-expand-context-use-site-scopes root-ctx_2))" "((frame-id29_0)(root-expand-context-frame-id root-ctx_2))" "((binding-layer30_0)(root-expand-context-frame-id root-ctx_2))" "((inner31_0)" -"(let-values(((the-struct_41)(root-expand-context/outer-inner v_130)))" -"(if(expand-context/inner? the-struct_41)" +"(let-values(((the-struct_15)(root-expand-context/outer-inner v_130)))" +"(if(expand-context/inner? the-struct_15)" "(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)" @@ -15548,43 +15577,44 @@ static const char *startup_source = " 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/inner-to-parsed? the-struct_15)" +"(expand-context/inner-phase the-struct_15)" +"(expand-context/inner-namespace the-struct_15)" +"(expand-context/inner-just-once? the-struct_15)" +"(expand-context/inner-module-begin-k the-struct_15)" +"(expand-context/inner-allow-unbound? the-struct_15)" +"(expand-context/inner-in-local-expand? the-struct_15)" +"(expand-context/inner-keep-#%expression? the-struct_15)" +"(expand-context/inner-stops the-struct_15)" +"(expand-context/inner-declared-submodule-names the-struct_15)" +"(expand-context/inner-lifts the-struct_15)" +"(expand-context/inner-lift-envs the-struct_15)" +"(expand-context/inner-module-lifts the-struct_15)" +"(expand-context/inner-require-lifts the-struct_15)" +"(expand-context/inner-to-module-lifts the-struct_15)" +"(expand-context/inner-requires+provides the-struct_15)" +"(expand-context/inner-observer the-struct_15)" +"(expand-context/inner-for-serializable? the-struct_15)" +"(expand-context/inner-should-not-encounter-macros? the-struct_15)))" +" (raise-argument-error 'struct-copy \"expand-context/inner?\" the-struct_15)))))" "(expand-context/outer1.1" " inner31_0" " post-expansion-scope27_0" +"(root-expand-context/outer-post-expansion-shifts the-struct_41)" " use-site-scopes28_0" " frame-id29_0" -"(expand-context/outer-context the-struct_14)" -"(expand-context/outer-env the-struct_14)" -"(expand-context/outer-post-expansion-scope-action the-struct_14)" -"(expand-context/outer-scopes the-struct_14)" -"(expand-context/outer-def-ctx-scopes the-struct_14)" +"(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-layer30_0" -"(expand-context/outer-reference-records the-struct_14)" -"(expand-context/outer-only-immediate? the-struct_14)" -"(expand-context/outer-need-eventually-defined the-struct_14)" -"(expand-context/outer-current-introduction-scopes the-struct_14)" -"(expand-context/outer-name the-struct_14)))" -" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_14)))))))" +"(expand-context/outer-reference-records the-struct_41)" +"(expand-context/outer-only-immediate? the-struct_41)" +"(expand-context/outer-need-eventually-defined the-struct_41)" +"(expand-context/outer-current-introduction-scopes the-struct_41)" +"(expand-context/outer-name the-struct_41)))" +" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_41)))))))" "(define-values(current-expand-context)(make-parameter #f))" "(define-values" "(get-current-expand-context16.1)" @@ -15618,8 +15648,8 @@ static const char *startup_source = "(let-values() ctx_2)" "(let-values()" "(let-values(((v_132) ctx_2))" -"(let-values(((the-struct_16) v_132))" -"(if(expand-context/outer? the-struct_16)" +"(let-values(((the-struct_42) v_132))" +"(if(expand-context/outer? the-struct_42)" "(let-values(((context39_0) 'expression)" "((name40_0) #f)" "((post-expansion-scope41_0) #f)" @@ -15627,37 +15657,10 @@ static const char *startup_source = "(expand-context/outer1.1" " inner42_0" " post-expansion-scope41_0" -"(root-expand-context/outer-use-site-scopes the-struct_16)" -"(root-expand-context/outer-frame-id the-struct_16)" -" context39_0" -"(expand-context/outer-env the-struct_16)" -"(expand-context/outer-post-expansion-scope-action the-struct_16)" -"(expand-context/outer-scopes the-struct_16)" -"(expand-context/outer-def-ctx-scopes the-struct_16)" -"(expand-context/outer-binding-layer the-struct_16)" -"(expand-context/outer-reference-records the-struct_16)" -"(expand-context/outer-only-immediate? the-struct_16)" -"(expand-context/outer-need-eventually-defined the-struct_16)" -"(expand-context/outer-current-introduction-scopes the-struct_16)" -" name40_0))" -" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_16)))))))))" -"(define-values" -"(as-begin-expression-context)" -"(lambda(ctx_3)" -"(begin" -"(if(not(expand-context-name ctx_3))" -"(let-values() ctx_3)" -"(let-values()" -"(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" -" inner44_0" -"(root-expand-context/outer-post-expansion-scope the-struct_42)" +"(root-expand-context/outer-post-expansion-shifts 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)" +" context39_0" "(expand-context/outer-env the-struct_42)" "(expand-context/outer-post-expansion-scope-action the-struct_42)" "(expand-context/outer-scopes the-struct_42)" @@ -15667,26 +15670,23 @@ static const char *startup_source = "(expand-context/outer-only-immediate? the-struct_42)" "(expand-context/outer-need-eventually-defined the-struct_42)" "(expand-context/outer-current-introduction-scopes the-struct_42)" -" name43_0))" +" name40_0))" " (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_42)))))))))" "(define-values" -"(as-tail-context22.1)" -"(lambda(wrt19_0 ctx21_0)" +"(as-begin-expression-context)" +"(lambda(ctx_3)" "(begin" -" 'as-tail-context22" -"(let-values(((ctx_4) ctx21_0))" -"(let-values(((wrt-ctx_0) wrt19_0))" +"(if(not(expand-context-name ctx_3))" +"(let-values() ctx_3)" "(let-values()" -"(if(expand-context-name wrt-ctx_0)" -"(let-values()" -"(let-values(((v_134) ctx_4))" -"(let-values(((the-struct_43) v_134))" +"(let-values(((v_133) ctx_3))" +"(let-values(((the-struct_43) v_133))" "(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)))" +"(let-values(((name43_0) #f)((inner44_0)(root-expand-context/outer-inner v_133)))" "(expand-context/outer1.1" -" inner46_0" +" inner44_0" "(root-expand-context/outer-post-expansion-scope the-struct_43)" +"(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)" "(expand-context/outer-context the-struct_43)" @@ -15699,22 +15699,27 @@ static const char *startup_source = "(expand-context/outer-only-immediate? the-struct_43)" "(expand-context/outer-need-eventually-defined the-struct_43)" "(expand-context/outer-current-introduction-scopes the-struct_43)" -" name45_0))" -" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_43)))))" -"(let-values() ctx_4))))))))" +" name43_0))" +" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_43)))))))))" "(define-values" -"(as-named-context)" -"(lambda(ctx_5 ids_1)" +"(as-tail-context22.1)" +"(lambda(wrt19_0 ctx21_0)" "(begin" -"(if(if(pair? ids_1)(null?(cdr ids_1)) #f)" +" 'as-tail-context22" +"(let-values(((ctx_4) ctx21_0))" +"(let-values(((wrt-ctx_0) wrt19_0))" "(let-values()" -"(let-values(((v_135) ctx_5))" -"(let-values(((the-struct_44) v_135))" +"(if(expand-context-name wrt-ctx_0)" +"(let-values()" +"(let-values(((v_134) ctx_4))" +"(let-values(((the-struct_44) v_134))" "(if(expand-context/outer? the-struct_44)" -"(let-values(((name47_0)(car ids_1))((inner48_0)(root-expand-context/outer-inner v_135)))" +"(let-values(((name45_0)(expand-context-name wrt-ctx_0))" +"((inner46_0)(root-expand-context/outer-inner v_134)))" "(expand-context/outer1.1" -" inner48_0" +" inner46_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)" @@ -15727,53 +15732,23 @@ static const char *startup_source = "(expand-context/outer-only-immediate? the-struct_44)" "(expand-context/outer-need-eventually-defined the-struct_44)" "(expand-context/outer-current-introduction-scopes the-struct_44)" -" name47_0))" -" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_44)))))" -"(let-values() ctx_5)))))" +" name45_0))" +" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_44)))))" +"(let-values() ctx_4))))))))" "(define-values" -"(as-to-parsed-context)" -"(lambda(ctx_6)" +"(as-named-context)" +"(lambda(ctx_5 ids_1)" "(begin" -"(let-values(((v_136) ctx_6))" -"(let-values(((the-struct_45) v_136))" +"(if(if(pair? ids_1)(null?(cdr ids_1)) #f)" +"(let-values()" +"(let-values(((v_135) ctx_5))" +"(let-values(((the-struct_45) v_135))" "(if(expand-context/outer? the-struct_45)" -"(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)))))" +"(let-values(((name47_0)(car ids_1))((inner48_0)(root-expand-context/outer-inner v_135)))" "(expand-context/outer1.1" -" inner49_0" +" inner48_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-use-site-scopes the-struct_45)" "(root-expand-context/outer-frame-id the-struct_45)" "(expand-context/outer-context the-struct_45)" @@ -15786,18 +15761,78 @@ static const char *startup_source = "(expand-context/outer-only-immediate? the-struct_45)" "(expand-context/outer-need-eventually-defined the-struct_45)" "(expand-context/outer-current-introduction-scopes the-struct_45)" -"(expand-context/outer-name the-struct_45)))" -" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_45)))))))" +" name47_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_136) ctx_6))" +"(let-values(((the-struct_46) v_136))" +"(if(expand-context/outer? the-struct_46)" +"(let-values(((inner49_0)" +"(let-values(((the-struct_47)(root-expand-context/outer-inner v_136)))" +"(if(expand-context/inner? the-struct_47)" +"(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_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?50_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)" +" observer51_0" +"(expand-context/inner-for-serializable? the-struct_47)" +" should-not-encounter-macros?52_0))" +" (raise-argument-error 'struct-copy \"expand-context/inner?\" the-struct_47)))))" +"(expand-context/outer1.1" +" inner49_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-name the-struct_46)))" +" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_46)))))))" "(define-values" "(to-syntax-list.1)" -"(lambda(s_169)" +"(lambda(s_170)" "(begin" " 'to-syntax-list" -"(if(list? s_169)" -"(let-values() s_169)" -"(if(pair? s_169)" -"(let-values()(let-values(((r_28)(to-syntax-list.1(cdr s_169))))(if r_28(cons(car s_169) r_28) #f)))" -"(if(syntax?$1 s_169)(let-values()(to-syntax-list.1(syntax-e$1 s_169)))(let-values() #f)))))))" +"(if(list? s_170)" +"(let-values() s_170)" +"(if(pair? s_170)" +"(let-values()(let-values(((r_28)(to-syntax-list.1(cdr s_170))))(if r_28(cons(car s_170) r_28) #f)))" +"(if(syntax?$1 s_170)(let-values()(to-syntax-list.1(syntax-e$1 s_170)))(let-values() #f)))))))" "(define-values(core-scope)(new-multi-scope))" "(define-values(core-stx)(add-scope empty-syntax core-scope))" "(define-values(core-module-name)(1/make-resolved-module-path '#%core))" @@ -15813,8 +15848,8 @@ static const char *startup_source = "(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)))))" +"(let-values(((s_171)(datum->syntax$1 core-stx sym_12)))" +"(begin(hash-set! id-cache-0 sym_12 s_171) s_171)))))" "(if(eq? phase_34 1)" "(let-values()" "(let-values(((or-part_28)(hash-ref id-cache-1 sym_12 #f)))" @@ -15877,7 +15912,7 @@ static const char *startup_source = "(void)" "(let-values()(check-list lst_80)))" "((letrec-values(((for-loop_97)" -"(lambda(table_110 lst_81 lst_82)" +"(lambda(table_111 lst_81 lst_82)" "(begin" " 'for-loop" "(if(if(pair? lst_81)(pair? lst_82) #f)" @@ -15885,8 +15920,8 @@ static const char *startup_source = "((rest_37)(unsafe-cdr lst_81))" "((syntax?_2)(unsafe-car lst_82))" "((rest_38)(unsafe-cdr lst_82)))" -"(let-values(((table_111)" -"(let-values(((table_112) table_110))" +"(let-values(((table_112)" +"(let-values(((table_113) table_111))" "(let-values(((ht_77) syms_12))" "(begin" "(if(variable-reference-from-unsafe?" @@ -15895,7 +15930,7 @@ static const char *startup_source = "(let-values()" "(check-in-hash-keys ht_77)))" "((letrec-values(((for-loop_98)" -"(lambda(table_113" +"(lambda(table_114" " i_42)" "(begin" " 'for-loop" @@ -15904,10 +15939,10 @@ static const char *startup_source = "(hash-iterate-key" " ht_77" " i_42)))" -"(let-values(((table_114)" "(let-values(((table_115)" -" table_113))" "(let-values(((table_116)" +" table_114))" +"(let-values(((table_117)" "(let-values()" "(let-values(((key_44" " val_36)" @@ -15941,27 +15976,27 @@ static const char *startup_source = " #t)" " b_62))))))" "(hash-set" -" table_115" +" table_116" " key_44" " val_36)))))" "(values" -" table_116)))))" +" table_117)))))" "(if(not" " #f)" "(for-loop_98" -" table_114" +" table_115" "(hash-iterate-next" " ht_77" " i_42))" -" table_114)))" -" table_113)))))" +" table_115)))" +" table_114)))))" " for-loop_98)" -" table_112" +" table_113" "(hash-iterate-first ht_77)))))))" "(if(not #f)" -"(for-loop_97 table_111 rest_37 rest_38)" -" table_111)))" -" table_110)))))" +"(for-loop_97 table_112 rest_37 rest_38)" +" table_112)))" +" table_111)))))" " for-loop_97)" " '#hasheq()" " lst_79" @@ -15987,7 +16022,7 @@ static const char *startup_source = "((temp16_1)" "(lambda(data-box_1" " ns_49" -" phase_40" +" phase_42" " phase-level_15" " self_5" " bulk-binding-registry_4" @@ -16096,29 +16131,29 @@ 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_41)" +"(lambda(s_19 phase_43)" "(begin" "(let-values(((ok?_0 id23_0 _24_0)" -"(let-values(((s_171) s_19))" -"(if(let-values(((s_85)(if(syntax?$1 s_171)(syntax-e$1 s_171) s_171)))" +"(let-values(((s_172) s_19))" +"(if(let-values(((s_85)(if(syntax?$1 s_172)(syntax-e$1 s_172) s_172)))" "(if(pair? s_85)" -"(if(let-values(((s_172)(car s_85)))" -"(let-values(((or-part_161)(if(syntax?$1 s_172)(symbol?(syntax-e$1 s_172)) #f)))" -"(if or-part_161 or-part_161(symbol? s_172))))" -"(let-values(((s_173)(cdr s_85))) #t)" +"(if(let-values(((s_173)(car s_85)))" +"(let-values(((or-part_161)(if(syntax?$1 s_173)(symbol?(syntax-e$1 s_173)) #f)))" +"(if or-part_161 or-part_161(symbol? s_173))))" +"(let-values(((s_174)(cdr s_85))) #t)" " #f)" " #f))" "(let-values()" "(let-values(((id23_1 _24_1)" -"(let-values(((s_174)(if(syntax?$1 s_171)(syntax-e$1 s_171) s_171)))" -"(let-values(((id25_0)(let-values(((s_175)(car s_174))) s_175))" -"((_26_0)(let-values(((s_176)(cdr s_174))) s_176)))" +"(let-values(((s_175)(if(syntax?$1 s_172)(syntax-e$1 s_172) s_172)))" +"(let-values(((id25_0)(let-values(((s_176)(car s_175))) s_176))" +"((_26_0)(let-values(((s_177)(cdr s_175))) s_177)))" "(values id25_0 _26_0)))))" "(values #t id23_1 _24_1)))" "(values #f #f #f)))))" "(if ok?_0" "(let-values(((b_63)" -"(let-values(((temp27_1) id23_0)((phase28_0) phase_41))" +"(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)))" @@ -16142,19 +16177,19 @@ static const char *startup_source = "(if(equal? tmp_4 'transparent)" "(let-values()" "(let-values(((c_18)" -"(let-values(((s_177)" +"(let-values(((s_178)" "(let-values(((or-part_13)(syntax->list$1 s_73)))" "(if or-part_13 or-part_13(syntax-e$1 s_73))))" "((f_1)(lambda(tail?_40 d_18)(begin 'f d_18)))" "((s->_3)" -"(lambda(s_178)" +"(lambda(s_179)" "(begin" " 's->" "(loop_81" -" s_178" -"(syntax-taint-mode-property s_178)))))" +" s_179" +"(syntax-taint-mode-property s_179)))))" "((seen_19) #f))" -"(let-values(((s_179) s_177)" +"(let-values(((s_180) s_178)" "((f_2) f_1)" "((gf_8)" "(lambda(tail?_41 v_31)" @@ -16175,8 +16210,8 @@ static const char *startup_source = "(datum-map-slow" " tail?_42" " s_4" -"(lambda(tail?_43 s_180)" -"(gf_8 tail?_43 s_180))" +"(lambda(tail?_43 s_181)" +"(gf_8 tail?_43 s_181))" " seen_20))" "(if(null? s_4)" "(let-values()(f_2 tail?_42 s_4))" @@ -16218,10 +16253,10 @@ static const char *startup_source = " tail?_42" " s_4" "(lambda(tail?_44" -" s_181)" +" s_182)" "(gf_8" " tail?_44" -" s_181))" +" s_182))" " seen_20))" "(let-values()" "(gf_8" @@ -16229,7 +16264,7 @@ static const char *startup_source = " s_4))))))))))))))" " loop_82)" " #f" -" s_179" +" s_180" " 0)))))" "(datum->syntax$1" " #f" @@ -16262,12 +16297,12 @@ static const char *startup_source = "(if or-part_162 or-part_162(cdr d_19))))" "((f_38)(lambda(tail?_1 d_20)(begin 'f d_20)))" "((s->_4)" -"(lambda(s_182)" +"(lambda(s_183)" "(begin" " 's->" "(loop_81" -" s_182" -"(syntax-taint-mode-property s_182)))))" +" s_183" +"(syntax-taint-mode-property s_183)))))" "((seen_0) #f))" "(let-values(((s_42) s_5)" "((f_39) f_38)" @@ -16280,7 +16315,7 @@ static const char *startup_source = "(let-values()(f_38 tail?_45 v_41))))))" "((seen_21) seen_0))" "((letrec-values(((loop_83)" -"(lambda(tail?_46 s_183 prev-depth_9)" +"(lambda(tail?_46 s_184 prev-depth_9)" "(begin" " 'loop" "(let-values(((depth_9)" @@ -16291,66 +16326,66 @@ static const char *startup_source = "(let-values()" "(datum-map-slow" " tail?_46" -" s_183" -"(lambda(tail?_47 s_184)" -"(gf_9 tail?_47 s_184))" +" s_184" +"(lambda(tail?_47 s_185)" +"(gf_9 tail?_47 s_185))" " seen_21))" -"(if(null? s_183)" +"(if(null? s_184)" "(let-values()" -"(f_39 tail?_46 s_183))" -"(if(pair? s_183)" +"(f_39 tail?_46 s_184))" +"(if(pair? s_184)" "(let-values()" "(f_39" " tail?_46" "(cons" "(loop_83" " #f" -"(car s_183)" +"(car s_184)" " depth_9)" "(loop_83" " #t" -"(cdr s_183)" +"(cdr s_184)" " depth_9))))" -"(if(symbol? s_183)" +"(if(symbol? s_184)" "(let-values()" -"(f_39 #f s_183))" -"(if(boolean? s_183)" +"(f_39 #f s_184))" +"(if(boolean? s_184)" "(let-values()" -"(f_39 #f s_183))" -"(if(number? s_183)" +"(f_39 #f s_184))" +"(if(number? s_184)" "(let-values()" -"(f_39 #f s_183))" +"(f_39 #f s_184))" "(if(let-values(((or-part_163)" "(vector?" -" s_183)))" +" s_184)))" "(if or-part_163" " or-part_163" "(let-values(((or-part_21)" "(box?" -" s_183)))" +" s_184)))" "(if or-part_21" " or-part_21" "(let-values(((or-part_164)" "(prefab-struct-key" -" s_183)))" +" s_184)))" "(if or-part_164" " or-part_164" "(hash?" -" s_183)))))))" +" s_184)))))))" "(let-values()" "(datum-map-slow" " tail?_46" -" s_183" +" s_184" "(lambda(tail?_48" -" s_185)" +" s_186)" "(gf_9" " tail?_48" -" s_185))" +" s_186))" " seen_21))" "(let-values()" "(gf_9" " #f" -" s_183))))))))))))))" +" s_184))))))))))))))" " loop_83)" " #f" " s_42" @@ -16380,17 +16415,17 @@ static const char *startup_source = "(syntax-taint-mode-property s_0)))))" "(define-values" "(syntax-taint-mode-property)" -"(lambda(s_186)" +"(lambda(s_187)" "(begin" -"(let-values(((or-part_165)(syntax-property$1 s_186 'taint-mode)))" -"(if or-part_165 or-part_165(syntax-property$1 s_186 'certify-mode))))))" +"(let-values(((or-part_165)(syntax-property$1 s_187 'taint-mode)))" +"(if or-part_165 or-part_165(syntax-property$1 s_187 'certify-mode))))))" "(define-values" "(syntax-remove-taint-dispatch-properties)" -"(lambda(s_187)(begin(1/syntax-property-remove(1/syntax-property-remove s_187 'taint-mode) 'certify-mode))))" +"(lambda(s_188)(begin(1/syntax-property-remove(1/syntax-property-remove s_188 'taint-mode) 'certify-mode))))" "(define-values(current-module-code-inspector)(make-parameter #f))" "(define-values" "(syntax-debug-info$1)" -"(lambda(s_0 phase_42 all-bindings?_0)" +"(lambda(s_0 phase_44 all-bindings?_0)" "(begin" " 'syntax-debug-info" "(let-values(((hts_0)" @@ -16424,7 +16459,7 @@ static const char *startup_source = "(scope-set-at-fallback" " s_0" " smss_26" -" phase_42)))" +" phase_44)))" "(let-values(((context_1)" "(scope-set->context" " s-scs_0)))" @@ -16490,26 +16525,26 @@ static const char *startup_source = " covered-scope-sets_1)" "(let-values(((ht_81" " bulk-bindings_3)" -"(let-values(((table_117)" +"(let-values(((table_118)" "(scope-binding-table" " sc_28)))" "(if(hash?" -" table_117)" +" table_118)" "(values" "(hash-ref" -" table_117" +" table_118" " sym_18" " '#hash())" " null)" "(values" "(hash-ref" "(table-with-bulk-bindings-syms" -" table_117)" +" table_118)" " sym_18" " '#hash())" "(table-with-bulk-bindings-bulk-bindings" -" table_117)))))" -"((s_188)" +" table_118)))))" +"((s_189)" " s_0)" "((extra-shifts_5)" " null))" @@ -16549,7 +16584,7 @@ static const char *startup_source = "(hash-ref" "(bulk-binding-symbols" " bulk_4" -" s_188" +" s_189" " extra-shifts_5)" " sym_18" " #f)" @@ -16891,20 +16926,20 @@ static const char *startup_source = "(sort7.1 #f temp3_2 temp1_1 <2_0)))))" "(define-values" "(raise-ambiguous-error)" -"(lambda(id_19 ctx_7)" +"(lambda(id_20 ctx_7)" "(begin" "(raise-syntax-error$1" " #f" " \"identifier's binding is ambiguous\"" -" id_19" +" id_20" " #f" " null" -"(syntax-debug-info-string id_19 ctx_7)))))" +"(syntax-debug-info-string id_20 ctx_7)))))" "(define-values" "(syntax-debug-info-string)" -"(lambda(s_189 ctx_8)" +"(lambda(s_190 ctx_8)" "(begin" -"(let-values(((info_3)(syntax-debug-info$1 s_189(expand-context-phase ctx_8) #f)))" +"(let-values(((info_3)(syntax-debug-info$1 s_190(expand-context-phase ctx_8) #f)))" "(if(not" "(let-values(((or-part_26)(pair?(hash-ref info_3 'bindings null))))" "(if or-part_26" @@ -16915,7 +16950,7 @@ static const char *startup_source = "(void)" "(let-values()(check-list lst_84)))" "((letrec-values(((for-loop_105)" -"(lambda(result_64 lst_85)" +"(lambda(result_63 lst_85)" "(begin" " 'for-loop" "(if(pair? lst_85)" @@ -16923,7 +16958,7 @@ static const char *startup_source = "((rest_40)(unsafe-cdr lst_85)))" "(let-values(((result_1)" "(let-values()" -"(let-values(((result_65)" +"(let-values(((result_64)" "(let-values()" "(let-values()" "(pair?" @@ -16931,11 +16966,11 @@ static const char *startup_source = " fb-info_0" " 'bindings" " null))))))" -"(values result_65)))))" +"(values result_64)))))" "(if(if(not((lambda x_28 result_1) fb-info_0))(not #f) #f)" "(for-loop_105 result_1 rest_40)" " result_1)))" -" result_64)))))" +" result_63)))))" " for-loop_105)" " #f" " lst_84))))))" @@ -17040,22 +17075,22 @@ static const char *startup_source = "(void)" "(let-values()(check-list lst_90)))" "((letrec-values(((for-loop_108)" -"(lambda(s_182 lst_91)" +"(lambda(s_183 lst_91)" "(begin" " 'for-loop" "(if(pair? lst_91)" "(let-values(((l_48)(unsafe-car lst_91))" "((rest_43)(unsafe-cdr lst_91)))" "(let-values(((s_89)" -"(let-values(((s_43) s_182))" -"(let-values(((s_190)" +"(let-values(((s_43) s_183))" +"(let-values(((s_191)" "(let-values()" "(set-intersect" " s_43" "(list->set l_48)))))" -"(values s_190)))))" +"(values s_191)))))" "(if(not #f)(for-loop_108 s_89 rest_43) s_89)))" -" s_182)))))" +" s_183)))))" " for-loop_108)" "(list->set(car relevant-scope-sets_0))" " lst_90))))))" @@ -17200,16 +17235,16 @@ static const char *startup_source = "(begin" " 'for-loop" "(if(pair? lst_97)" -"(let-values(((s_191)(unsafe-car lst_97))" +"(let-values(((s_192)(unsafe-car lst_97))" "((rest_46)(unsafe-cdr lst_97)))" "(let-values(((fold-var_81)" "(let-values(((fold-var_82) fold-var_80))" -"(if(set-member? common-scopes_0 s_191)" +"(if(set-member? common-scopes_0 s_192)" "(let-values(((fold-var_5) fold-var_82))" "(let-values(((fold-var_6)" "(let-values()" "(cons" -"(let-values() s_191)" +"(let-values() s_192)" " fold-var_5))))" "(values fold-var_6)))" " fold-var_82))))" @@ -17221,31 +17256,31 @@ static const char *startup_source = "(set)))))))))))))" "(define-values" "(describe-context)" -"(lambda(scopes_18 common-scopes_1)" +"(lambda(scopes_19 common-scopes_1)" "(begin" "(let-values(((strs_0)" "((letrec-values(((loop_44)" -"(lambda(strs_1 scopes_19)" +"(lambda(strs_1 scopes_20)" "(begin" " 'loop" -"(if(null? scopes_19)" +"(if(null? scopes_20)" "(let-values()(reverse$1 strs_1))" "(let-values()" -" (let-values (((str_3) (format \" ~a\" (car scopes_19))))" +" (let-values (((str_3) (format \" ~a\" (car scopes_20))))" "(if(if(pair? strs_1)" "(<(+(string-length str_3)(string-length(car strs_1))) 72)" " #f)" "(loop_44" "(cons(string-append(car strs_1) str_3)(cdr strs_1))" -"(cdr scopes_19))" -"(loop_44(cons str_3 strs_1)(cdr scopes_19))))))))))" +"(cdr scopes_20))" +"(loop_44(cons str_3 strs_1)(cdr scopes_20))))))))))" " loop_44)" " null" "(if(set-empty? common-scopes_1)" -" scopes_18" +" scopes_19" "(append" "(reverse$1" -"(let-values(((lst_98) scopes_18))" +"(let-values(((lst_98) scopes_19))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" @@ -17310,7 +17345,7 @@ static const char *startup_source = "(raise-syntax-implicit-error)" "(lambda(s_0 sym_31 trigger-id_0 ctx_8)" "(begin" -"(let-values(((phase_43)(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)" @@ -17326,7 +17361,7 @@ static const char *startup_source = "(let-values(((unbound?_0)" "(if trigger-id_0" "(not" -"(let-values(((trigger-id1_0) trigger-id_0)((phase2_1) phase_43))" +"(let-values(((trigger-id1_0) trigger-id_0)((phase2_1) phase_45))" "(resolve40.1 #f #f null #f trigger-id1_0 phase2_1)))" " #f)))" "(let-values(((unbound-form_0)" @@ -17338,12 +17373,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_43))" +"(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_43))))))" +" (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" @@ -17355,7 +17390,7 @@ static const char *startup_source = "(begin" " 'check-no-duplicate-ids7" "(let-values(((ids_2) ids4_0))" -"(let-values(((phase_44) 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)))" @@ -17378,7 +17413,7 @@ static const char *startup_source = "(begin" " 'for-loop" "(if(pair? lst_77)" -"(let-values(((id_20)(unsafe-car lst_77))" +"(let-values(((id_21)(unsafe-car lst_77))" "((rest_49)" "(unsafe-cdr lst_77)))" "(let-values((()" @@ -17388,9 +17423,9 @@ static const char *startup_source = "(begin" "(let-values()" "(if(bound-identifier=?$1" -" id_20" +" id_21" " v_138" -" phase_44)" +" phase_46)" "(let-values()" "(raise-syntax-error$1" " #f" @@ -17435,14 +17470,14 @@ static const char *startup_source = "(begin" " 'for-loop" "(if(pair? lst_84)" -"(let-values(((id_21)(unsafe-car lst_84))((rest_50)(unsafe-cdr lst_84)))" +"(let-values(((id_22)(unsafe-car lst_84))((rest_50)(unsafe-cdr lst_84)))" "(let-values(((fold-var_92)" "(let-values(((fold-var_93) fold-var_91))" "(let-values(((fold-var_60)" "(let-values()" "(cons" "(let-values()" -"(remove-scopes id_21(unbox use-sites_0)))" +"(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)))" @@ -17494,7 +17529,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_45)(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))" @@ -17509,7 +17544,7 @@ static const char *startup_source = "(void))" "(compile-context1.1" " namespace_1" -" phase_45" +" phase_47" " self_6" " module-self_0" " full-module-name_0" @@ -17566,18 +17601,18 @@ static const char *startup_source = "(let-values(((mpi_21)" "(if(eq? base_15 interned-base_0)" " mpi_20" -"(let-values(((the-struct_47) mpi_20))" -"(if(1/module-path-index? the-struct_47)" +"(let-values(((the-struct_48) mpi_20))" +"(if(1/module-path-index? the-struct_48)" "(let-values(((base3_0) interned-base_0))" "(module-path-index2.1" -"(module-path-index-path the-struct_47)" +"(module-path-index-path the-struct_48)" " base3_0" -"(module-path-index-resolved the-struct_47)" -"(module-path-index-shift-cache the-struct_47)))" +"(module-path-index-resolved the-struct_48)" +"(module-path-index-shift-cache the-struct_48)))" "(raise-argument-error" " 'struct-copy" " \"module-path-index?\"" -" the-struct_47))))))" +" the-struct_48))))))" "(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))" @@ -17585,9 +17620,9 @@ static const char *startup_source = "(define-values(built-in-symbol?)(lambda(s_72)(begin(hash-ref built-in-symbols s_72 #f))))" "(define-values" "(make-built-in-symbol!)" -"(lambda(s_189)" +"(lambda(s_190)" "(begin" -" (let-values (((built-in-s_0) (string->symbol (format \".~s\" s_189))))" +" (let-values (((built-in-s_0) (string->symbol (format \".~s\" s_190))))" "(begin(register-built-in-symbol! built-in-s_0) built-in-s_0)))))" "(void" "(begin" @@ -17740,14 +17775,14 @@ static const char *startup_source = "(void)" "(let-values()(check-in-hash ht_85)))" "((letrec-values(((for-loop_117)" -"(lambda(table_118 i_95)" +"(lambda(table_119 i_95)" "(begin" " 'for-loop" "(if i_95" "(let-values(((k_19 v_69)(hash-iterate-key+value ht_85 i_95)))" -"(let-values(((table_119)" -"(let-values(((table_113) table_118))" "(let-values(((table_120)" +"(let-values(((table_114) table_119))" +"(let-values(((table_121)" "(let-values()" "(let-values(((key_45 val_38)" "(let-values()" @@ -17755,14 +17790,14 @@ static const char *startup_source = " v_69" " k_19))))" "(hash-set" -" table_113" +" table_114" " key_45" " val_38)))))" -"(values table_120)))))" +"(values table_121)))))" "(if(not #f)" -"(for-loop_117 table_119(hash-iterate-next ht_85 i_95))" -" table_119)))" -" table_118)))))" +"(for-loop_117 table_120(hash-iterate-next ht_85 i_95))" +" table_120)))" +" table_119)))))" " for-loop_117)" " '#hasheqv()" "(hash-iterate-first ht_85))))))" @@ -17831,14 +17866,14 @@ static const char *startup_source = "(void)" "(let-values()(check-in-hash ht_86)))" "((letrec-values(((for-loop_118)" -"(lambda(table_121 i_93)" +"(lambda(table_122 i_93)" "(begin" " 'for-loop" "(if i_93" "(let-values(((k_20 v_38)" "(hash-iterate-key+value ht_86 i_93)))" "(let-values(((table_15)" -"(let-values(((table_122) table_121))" +"(let-values(((table_123) table_122))" "(let-values(((table_9)" "(let-values()" "(let-values(((key_46" @@ -17848,14 +17883,14 @@ static const char *startup_source = " v_38" " k_20))))" "(hash-set" -" table_122" +" table_123" " key_46" " val_39)))))" "(values table_9)))))" "(if(not #f)" "(for-loop_118 table_15(hash-iterate-next ht_86 i_93))" " table_15)))" -" table_121)))))" +" table_122)))))" " for-loop_118)" " '#hasheqv()" "(hash-iterate-first ht_86))))))" @@ -17935,7 +17970,7 @@ static const char *startup_source = " i_99)))))" "(values i_29)))))" "(if(if(not" -"((lambda x_43" +"((lambda x_42" "(unsafe-fx= i_98 len_12))" " i_91))" "(not #f)" @@ -18088,7 +18123,7 @@ static const char *startup_source = "(vector*-ref gen_0 p_33)))" "(unsafe-fx+ 1 i_106)))))" "(values i_107)))))" -"(if(if(not((lambda x_44(unsafe-fx= i_48 len_14)) p_33))" +"(if(if(not((lambda x_43(unsafe-fx= i_48 len_14)) p_33))" "(not #f)" " #f)" "(for-loop_120 i_48(unsafe-fx+ 1 pos_21))" @@ -18139,7 +18174,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_122)" +"((letrec-values(((for-loop_78)" "(lambda(fold-var_97 lst_11)" "(begin" " 'for-loop" @@ -18159,9 +18194,9 @@ static const char *startup_source = "(module-use-phase mu_1)))" " fold-var_99))))" "(values fold-var_100)))))" -"(if(not #f)(for-loop_122 fold-var_98 rest_52) fold-var_98)))" +"(if(not #f)(for-loop_78 fold-var_98 rest_52) fold-var_98)))" " fold-var_97)))))" -" for-loop_122)" +" for-loop_78)" " null" " lst_105)))))))" "(define-values" @@ -18174,10 +18209,10 @@ static const char *startup_source = "(let-values(((or-part_168)(boolean? v_142)))" "(if or-part_168" " or-part_168" -"(let-values(((or-part_139)" +"(let-values(((or-part_138)" "(if(fixnum? v_142)(if(< v_142(sub1(expt 2 30)))(> v_142(-(expt 2 30))) #f) #f)))" -"(if or-part_139" -" or-part_139" +"(if or-part_138" +" or-part_138" "(let-values(((or-part_169)(symbol? v_142)))" "(if or-part_169" " or-part_169" @@ -18197,7 +18232,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_123)" +"((letrec-values(((for-loop_122)" "(lambda(fold-var_101 lst_107)" "(begin" " 'for-loop" @@ -18220,9 +18255,9 @@ static const char *startup_source = " mpis_5))))" " fold-var_36))))" "(values fold-var_37)))))" -"(if(not #f)(for-loop_123 fold-var_102 rest_53) fold-var_102)))" +"(if(not #f)(for-loop_122 fold-var_102 rest_53) fold-var_102)))" " fold-var_101)))))" -" for-loop_123)" +" for-loop_122)" " null" " lst_106))))))))))" "(define-values" @@ -18244,63 +18279,63 @@ static const char *startup_source = "(letrec-values(((add-frontier!_0)" "(case-lambda" "((v_144)(begin 'add-frontier!(set! frontier_0(cons v_144 frontier_0))))" -"((kind_3 v_100)(add-frontier!_0 v_100)))))" +"((kind_3 v_145)(add-frontier!_0 v_145)))))" "(let-values((()" "(begin" "((letrec-values(((frontier-loop_0)" -"(lambda(v_102)" +"(lambda(v_101)" "(begin" " 'frontier-loop" "(begin" "((letrec-values(((loop_11)" -"(lambda(v_104)" +"(lambda(v_103)" "(begin" " 'loop" "(if(let-values(((or-part_170)" "(interned-literal?" -" v_104)))" +" v_103)))" "(if or-part_170" " or-part_170" "(1/module-path-index?" -" v_104)))" +" v_103)))" "(let-values()(void))" "(if(hash-ref" " objs_0" -" v_104" +" v_103" " #f)" "(let-values()" "(if(hash-ref" " mutables_0" -" v_104" +" v_103" " #f)" "(void)" "(let-values()" "(hash-set!" " shares_0" -" v_104" +" v_103" " #t))))" "(let-values()" "(begin" "(if(serialize-fill!?" -" v_104)" +" v_103)" "(let-values()" "(begin" "(hash-set!" " mutables_0" -" v_104" +" v_103" "(hash-count" " mutables_0))" "((serialize-fill!-ref" -" v_104)" -" v_104" +" v_103)" +" v_103" " add-frontier!_0" " state_26)))" "(if(serialize?" -" v_104)" +" v_103)" "(let-values()" "((serialize-ref" -" v_104)" -" v_104" +" v_103)" +" v_103" "(case-lambda" "((sub-v_0)" "(loop_11" @@ -18311,31 +18346,31 @@ static const char *startup_source = " sub-v_1)))" " state_26))" "(if(pair?" -" v_104)" +" v_103)" "(let-values()" "(begin" "(loop_11" "(car" -" v_104))" +" v_103))" "(loop_11" "(cdr" -" v_104))))" +" v_103))))" "(if(vector?" -" v_104)" +" v_103)" "(let-values()" "(if(let-values(((or-part_171)" "(immutable?" -" v_104)))" +" v_103)))" "(if or-part_171" " or-part_171" "(zero?" "(vector-length" -" v_104))))" +" v_103))))" "(begin" "(let-values(((vec_38" " len_15)" "(let-values(((vec_39)" -" v_104))" +" v_103))" "(begin" "(check-vector" " vec_39)" @@ -18380,14 +18415,14 @@ static const char *startup_source = "(begin" "(hash-set!" " mutables_0" -" v_104" +" v_103" "(hash-count" " mutables_0))" "(begin" "(let-values(((vec_40" " len_16)" "(let-values(((vec_41)" -" v_104))" +" v_103))" "(begin" "(check-vector" " vec_41)" @@ -18397,7 +18432,7 @@ static const char *startup_source = " vec_41))))))" "(begin" " #f" -"((letrec-values(((for-loop_124)" +"((letrec-values(((for-loop_123)" "(lambda(pos_24)" "(begin" " 'for-loop" @@ -18420,41 +18455,41 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_124" +"(for-loop_123" "(unsafe-fx+" " 1" " pos_24))" "(values))))" "(values))))))" -" for-loop_124)" +" for-loop_123)" " 0)))" "(void)))))" "(if(box?" -" v_104)" +" v_103)" "(let-values()" "(if(immutable?" -" v_104)" +" v_103)" "(loop_11" "(unbox" -" v_104))" +" v_103))" "(begin" "(hash-set!" " mutables_0" -" v_104" +" v_103" "(hash-count" " mutables_0))" "(add-frontier!_0" "(unbox" -" v_104)))))" +" v_103)))))" "(if(hash?" -" v_104)" +" v_103)" "(let-values()" "(if(immutable?" -" v_104)" +" v_103)" "(begin" "(let-values(((lst_108)" "(sorted-hash-keys" -" v_104)))" +" v_103)))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" @@ -18462,7 +18497,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_108)))" -"((letrec-values(((for-loop_125)" +"((letrec-values(((for-loop_124)" "(lambda(lst_109)" "(begin" " 'for-loop" @@ -18485,29 +18520,29 @@ static const char *startup_source = " k_21)" "(loop_11" "(hash-ref" -" v_104" +" v_103" " k_21))))" "(values)))))" "(values)))))" "(if(not" " #f)" -"(for-loop_125" +"(for-loop_124" " rest_54)" "(values))))" "(values))))))" -" for-loop_125)" +" for-loop_124)" " lst_108)))" "(void))" "(begin" "(hash-set!" " mutables_0" -" v_104" +" v_103" "(hash-count" " mutables_0))" "(begin" "(let-values(((lst_110)" "(sorted-hash-keys" -" v_104)))" +" v_103)))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" @@ -18515,7 +18550,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_110)))" -"((letrec-values(((for-loop_126)" +"((letrec-values(((for-loop_125)" "(lambda(lst_111)" "(begin" " 'for-loop" @@ -18538,21 +18573,21 @@ static const char *startup_source = " k_22)" "(add-frontier!_0" "(hash-ref" -" v_104" +" v_103" " k_22))))" "(values)))))" "(values)))))" "(if(not" " #f)" -"(for-loop_126" +"(for-loop_125" " rest_55)" "(values))))" "(values))))))" -" for-loop_126)" +" for-loop_125)" " lst_110)))" "(void)))))" "(if(prefab-struct-key" -" v_104)" +" v_103)" "(let-values()" "(begin" "(let-values(((v*_2" @@ -18562,20 +18597,20 @@ static const char *startup_source = "(normalise-inputs" " 'in-vector" " \"vector\"" -"(lambda(x_45)" +"(lambda(x_44)" "(vector?" -" x_45))" -"(lambda(x_46)" +" x_44))" +"(lambda(x_45)" "(unsafe-vector-length" -" x_46))" +" x_45))" "(struct->vector" -" v_104)" +" v_103)" " 1" " #f" " 1)))" "(begin" " #t" -"((letrec-values(((for-loop_127)" +"((letrec-values(((for-loop_126)" "(lambda(idx_1)" "(begin" " 'for-loop" @@ -18598,17 +18633,17 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_127" +"(for-loop_126" "(unsafe-fx+" " idx_1" " 1))" "(values))))" "(values))))))" -" for-loop_127)" +" for-loop_126)" " start*_1)))" "(void)))" "(if(srcloc?" -" v_104)" +" v_103)" "(let-values()" "(begin" "(let-values(((v*_3" @@ -18618,20 +18653,20 @@ static const char *startup_source = "(normalise-inputs" " 'in-vector" " \"vector\"" -"(lambda(x_47)" +"(lambda(x_46)" "(vector?" -" x_47))" -"(lambda(x_48)" +" x_46))" +"(lambda(x_47)" "(unsafe-vector-length" -" x_48))" +" x_47))" "(struct->vector" -" v_104)" +" v_103)" " 1" " #f" " 1)))" "(begin" " #t" -"((letrec-values(((for-loop_128)" +"((letrec-values(((for-loop_127)" "(lambda(idx_2)" "(begin" " 'for-loop" @@ -18654,26 +18689,26 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_128" +"(for-loop_127" "(unsafe-fx+" " idx_2" " 1))" "(values))))" "(values))))))" -" for-loop_128)" +" for-loop_127)" " start*_2)))" "(void)))" "(let-values()" "(void))))))))))" "(hash-set!" " objs_0" -" v_104" +" v_103" " obj-step_0)" "(set! obj-step_0" "(add1" " obj-step_0))))))))))" " loop_11)" -" v_102)" +" v_101)" "(if(null? frontier_0)" "(void)" "(let-values()" @@ -18687,13 +18722,13 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list lst_112)))" -"((letrec-values(((for-loop_129)" +"((letrec-values(((for-loop_128)" "(lambda(lst_113)" "(begin" " 'for-loop" "(if(pair?" " lst_113)" -"(let-values(((v_145)" +"(let-values(((v_146)" "(unsafe-car" " lst_113))" "((rest_56)" @@ -18706,16 +18741,16 @@ static const char *startup_source = "(begin" "(let-values()" "(frontier-loop_0" -" v_145))" +" v_146))" "(values)))))" "(values)))))" "(if(not" " #f)" -"(for-loop_129" +"(for-loop_128" " rest_56)" "(values))))" "(values))))))" -" for-loop_129)" +" for-loop_128)" " lst_112)))" "(void))))))))))" " frontier-loop_0)" @@ -18731,7 +18766,7 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()(check-in-hash-keys ht_88)))" -"((letrec-values(((for-loop_130)" +"((letrec-values(((for-loop_129)" "(lambda(fold-var_103 i_108)" "(begin" " 'for-loop" @@ -18754,14 +18789,14 @@ static const char *startup_source = "(values" " fold-var_106)))))" "(if(not #f)" -"(for-loop_130" +"(for-loop_129" " fold-var_104" "(hash-iterate-next" " ht_88" " i_108))" " fold-var_104)))" " fold-var_103)))))" -" for-loop_130)" +" for-loop_129)" " null" "(hash-iterate-first ht_88)))))))" "(let-values(((lst_114)" @@ -18776,8 +18811,8 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-naturals start_20)))" -"((letrec-values(((for-loop_131)" -"(lambda(table_123 lst_115 pos_25)" +"((letrec-values(((for-loop_130)" +"(lambda(table_124 lst_115 pos_25)" "(begin" " 'for-loop" "(if(if(pair? lst_115) #t #f)" @@ -18786,9 +18821,9 @@ static const char *startup_source = "((rest_57)" "(unsafe-cdr lst_115))" "((pos_26) pos_25))" -"(let-values(((table_124)" +"(let-values(((table_125)" "(let-values(((table_35)" -" table_123))" +" table_124))" "(let-values(((table_36)" "(let-values()" "(let-values(((key_47" @@ -18803,13 +18838,13 @@ static const char *startup_source = " val_40)))))" "(values table_36)))))" "(if(not #f)" -"(for-loop_131" -" table_124" +"(for-loop_130" +" table_125" " rest_57" "(+ pos_25 1))" -" table_124)))" -" table_123)))))" -" for-loop_131)" +" table_125)))" +" table_124)))))" +" for-loop_130)" " '#hasheqv()" " lst_114" " start_20))))))" @@ -18821,12 +18856,12 @@ static const char *startup_source = "(lambda(pos_27)" "(begin" " 'quoted?" -"(let-values(((v_146)" +"(let-values(((v_147)" "(list-ref" " stream_0" "(- stream-size_0(add1 pos_27)))))" -"(let-values(((or-part_172)(not(keyword? v_146))))" -"(if or-part_172 or-part_172(eq? '#:quote v_146))))))))" +"(let-values(((or-part_172)(not(keyword? v_147))))" +"(if or-part_172 or-part_172(eq? '#:quote v_147))))))))" "(let-values(((ser-reset!_0)" "(lambda(pos_28)" "(begin" @@ -18845,20 +18880,20 @@ static const char *startup_source = "(set! stream-size_0 0))))))" "(letrec-values(((ser-push!_16)" "(case-lambda" -"((v_147)" +"((v_148)" "(begin" " 'ser-push!" -"(if(hash-ref shares_0 v_147 #f)" +"(if(hash-ref shares_0 v_148 #f)" "(let-values()" "(let-values(((n_22)" "(hash-ref" " share-step-positions_0" -"(hash-ref objs_0 v_147))))" +"(hash-ref objs_0 v_148))))" "(begin" "(ser-push!_16 'tag '#:ref)" "(ser-push!_16 'exact n_22))))" "(let-values(((c1_25)" -"(hash-ref mutables_0 v_147 #f)))" +"(hash-ref mutables_0 v_148 #f)))" "(if c1_25" "((lambda(n_23)" "(begin" @@ -18866,49 +18901,49 @@ static const char *startup_source = "(ser-push!_16 'exact n_23)))" " c1_25)" "(let-values()" -"(ser-push-encoded!_0 v_147)))))))" -"((kind_5 v_148)" +"(ser-push-encoded!_0 v_148)))))))" +"((kind_5 v_149)" "(let-values(((tmp_18) kind_5))" "(if(equal? tmp_18 'exact)" "(let-values()" "(begin" -"(set! stream_0(cons v_148 stream_0))" +"(set! stream_0(cons v_149 stream_0))" "(set! stream-size_0(add1 stream-size_0))))" "(if(equal? tmp_18 'tag)" -"(let-values()(ser-push!_16 'exact v_148))" +"(let-values()(ser-push!_16 'exact v_149))" "(if(equal? tmp_18 'reference)" "(let-values()" -"(if(hash-ref shares_0 v_148 #f)" +"(if(hash-ref shares_0 v_149 #f)" "(let-values()" "(let-values(((n_24)" "(hash-ref" " share-step-positions_0" "(hash-ref" " objs_0" -" v_148))))" +" v_149))))" "(ser-push!_16 'exact n_24)))" "(let-values(((c2_1)" "(hash-ref" " mutables_0" -" v_148" +" v_149" " #f)))" "(if c2_1" "((lambda(n_25)" "(ser-push!_16 'exact n_25))" " c2_1)" "(let-values()" -"(ser-push!_16 v_148))))))" -"(let-values()(ser-push!_16 v_148)))))))))" +"(ser-push!_16 v_149))))))" +"(let-values()(ser-push!_16 v_149)))))))))" "((ser-push-encoded!_0)" -"(lambda(v_149)" +"(lambda(v_150)" "(begin" " 'ser-push-encoded!" -"(if(keyword? v_149)" +"(if(keyword? v_150)" "(let-values()" "(begin" "(ser-push!_16 'tag '#:quote)" -"(ser-push!_16 'exact v_149)))" -"(if(1/module-path-index? v_149)" +"(ser-push!_16 'exact v_150)))" +"(if(1/module-path-index? v_150)" "(let-values()" "(begin" "(ser-push!_16 'tag '#:mpi)" @@ -18916,16 +18951,16 @@ static const char *startup_source = " 'exact" "(add-module-path-index!/pos" " mpis_6" -" v_149))))" -"(if(serialize? v_149)" +" v_150))))" +"(if(serialize? v_150)" "(let-values()" -"((serialize-ref v_149)" -" v_149" +"((serialize-ref v_150)" +" v_150" " ser-push!_16" " state_26))" -"(if(if(list? v_149)" -"(if(pair? v_149)" -"(pair?(cdr v_149))" +"(if(if(list? v_150)" +"(if(pair? v_150)" +"(pair?(cdr v_150))" " #f)" " #f)" "(let-values()" @@ -18941,11 +18976,11 @@ static const char *startup_source = "(begin" "(ser-push!_16" " 'exact" -"(length v_149))" +"(length v_150))" "(values))))" "(let-values(((all-quoted?_0)" "(let-values(((lst_116)" -" v_149))" +" v_150))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" @@ -18953,19 +18988,19 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_116)))" -"((letrec-values(((for-loop_132)" +"((letrec-values(((for-loop_131)" "(lambda(all-quoted?_1" -" lst_56)" +" lst_117)" "(begin" " 'for-loop" "(if(pair?" -" lst_56)" +" lst_117)" "(let-values(((i_109)" "(unsafe-car" -" lst_56))" +" lst_117))" "((rest_58)" "(unsafe-cdr" -" lst_56)))" +" lst_117)))" "(let-values(((all-quoted?_2)" "(let-values(((all-quoted?_3)" " all-quoted?_1))" @@ -18984,12 +19019,12 @@ static const char *startup_source = " all-quoted?_4)))))" "(if(not" " #f)" -"(for-loop_132" +"(for-loop_131" " all-quoted?_2" " rest_58)" " all-quoted?_2)))" " all-quoted?_1)))))" -" for-loop_132)" +" for-loop_131)" " #t" " lst_116)))))" "(if all-quoted?_0" @@ -18999,9 +19034,9 @@ static const char *startup_source = "(ser-push-optional-quote!_0)" "(ser-push!_16" " 'exact" -" v_149)))" +" v_150)))" "(void)))))))" -"(if(pair? v_149)" +"(if(pair? v_150)" "(let-values()" "(let-values(((start-pos_1)" "(next-push-position_0)))" @@ -19016,12 +19051,12 @@ static const char *startup_source = "(let-values((()" "(begin" "(ser-push!_16" -"(car v_149))" +"(car v_150))" "(values))))" "(let-values(((d-pos_0)" "(next-push-position_0)))" "(begin" -"(ser-push!_16(cdr v_149))" +"(ser-push!_16(cdr v_150))" "(if(if(quoted?_0 a-pos_0)" "(quoted?_0 d-pos_0)" " #f)" @@ -19032,9 +19067,9 @@ static const char *startup_source = "(ser-push-optional-quote!_0)" "(ser-push!_16" " 'exact" -" v_149)))" +" v_150)))" "(void)))))))))" -"(if(box? v_149)" +"(if(box? v_150)" "(let-values()" "(let-values(((start-pos_2)" "(next-push-position_0)))" @@ -19047,7 +19082,7 @@ static const char *startup_source = "(let-values(((v-pos_0)" "(next-push-position_0)))" "(begin" -"(ser-push!_16(unbox v_149))" +"(ser-push!_16(unbox v_150))" "(if(quoted?_0 v-pos_0)" "(let-values()" "(begin" @@ -19056,9 +19091,9 @@ static const char *startup_source = "(ser-push-optional-quote!_0)" "(ser-push!_16" " 'exact" -" v_149)))" +" v_150)))" "(void)))))))" -"(if(vector? v_149)" +"(if(vector? v_150)" "(let-values()" "(let-values(((start-pos_3)" "(next-push-position_0)))" @@ -19073,13 +19108,13 @@ static const char *startup_source = "(ser-push!_16" " 'exact" "(vector-length" -" v_149))" +" v_150))" "(values))))" "(let-values(((all-quoted?_5)" "(let-values(((vec_42" " len_17)" "(let-values(((vec_43)" -" v_149))" +" v_150))" "(begin" "(check-vector" " vec_43)" @@ -19137,15 +19172,15 @@ static const char *startup_source = "(ser-push-optional-quote!_0)" "(ser-push!_16" " 'exact" -" v_149)))" +" v_150)))" "(void)))))))" -"(if(hash? v_149)" +"(if(hash? v_150)" "(let-values()" "(let-values(((start-pos_4)" "(next-push-position_0)))" "(let-values(((as-set?_0)" "(let-values(((ht_89)" -" v_149))" +" v_150))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" @@ -19153,8 +19188,8 @@ static const char *startup_source = "(let-values()" "(check-in-hash-values" " ht_89)))" -"((letrec-values(((for-loop_133)" -"(lambda(result_66" +"((letrec-values(((for-loop_132)" +"(lambda(result_65" " i_111)" "(begin" " 'for-loop" @@ -19163,32 +19198,32 @@ static const char *startup_source = "(hash-iterate-value" " ht_89" " i_111)))" -"(let-values(((result_67)" +"(let-values(((result_66)" "(let-values()" -"(let-values(((result_68)" +"(let-values(((result_67)" "(let-values()" "(let-values()" "(eq?" " val_41" " #t)))))" "(values" -" result_68)))))" +" result_67)))))" "(if(if(not" -"((lambda x_49" +"((lambda x_48" "(not" -" result_67))" +" result_66))" " val_41))" "(not" " #f)" " #f)" -"(for-loop_133" -" result_67" +"(for-loop_132" +" result_66" "(hash-iterate-next" " ht_89" " i_111))" -" result_67)))" -" result_66)))))" -" for-loop_133)" +" result_66)))" +" result_65)))))" +" for-loop_132)" " #t" "(hash-iterate-first" " ht_89))))))" @@ -19198,21 +19233,21 @@ static const char *startup_source = " 'tag" "(if as-set?_0" "(if(hash-eq?" -" v_149)" +" v_150)" "(let-values()" " '#:seteq)" "(if(hash-eqv?" -" v_149)" +" v_150)" "(let-values()" " '#:seteqv)" "(let-values()" " '#:set)))" "(if(hash-eq?" -" v_149)" +" v_150)" "(let-values()" " '#:hasheq)" "(if(hash-eqv?" -" v_149)" +" v_150)" "(let-values()" " '#:hasheqv)" "(let-values()" @@ -19223,13 +19258,13 @@ static const char *startup_source = "(ser-push!_16" " 'exact" "(hash-count" -" v_149))" +" v_150))" "(values))))" "(let-values(((ks_0)" "(sorted-hash-keys" -" v_149)))" +" v_150)))" "(let-values(((all-quoted?_10)" -"(let-values(((lst_117)" +"(let-values(((lst_56)" " ks_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -19237,20 +19272,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_117)))" -"((letrec-values(((for-loop_134)" +" lst_56)))" +"((letrec-values(((for-loop_76)" "(lambda(all-quoted?_11" -" lst_118)" +" lst_57)" "(begin" " 'for-loop" "(if(pair?" -" lst_118)" +" lst_57)" "(let-values(((k_23)" "(unsafe-car" -" lst_118))" -"((rest_59)" +" lst_57))" +"((rest_25)" "(unsafe-cdr" -" lst_118)))" +" lst_57)))" "(let-values(((all-quoted?_12)" "(let-values(((all-quoted?_13)" " all-quoted?_11))" @@ -19271,7 +19306,7 @@ static const char *startup_source = "(let-values()" "(ser-push!_16" "(hash-ref" -" v_149" +" v_150" " k_23))))" "(if all-quoted?_13" "(if(quoted?_0" @@ -19288,14 +19323,14 @@ static const char *startup_source = " all-quoted?_14)))))" "(if(not" " #f)" -"(for-loop_134" +"(for-loop_76" " all-quoted?_12" -" rest_59)" +" rest_25)" " all-quoted?_12)))" " all-quoted?_11)))))" -" for-loop_134)" +" for-loop_76)" " #t" -" lst_117)))))" +" lst_56)))))" "(if all-quoted?_10" "(let-values()" "(begin" @@ -19304,16 +19339,16 @@ static const char *startup_source = "(ser-push-optional-quote!_0)" "(ser-push!_16" " 'exact" -" v_149)))" +" v_150)))" "(void)))))))))" "(let-values(((c3_0)" "(prefab-struct-key" -" v_149)))" +" v_150)))" "(if c3_0" "((lambda(k_24)" "(let-values(((vec_44)" "(struct->vector" -" v_149)))" +" v_150)))" "(let-values(((start-pos_5)" "(next-push-position_0)))" "(let-values((()" @@ -19344,12 +19379,12 @@ static const char *startup_source = "(normalise-inputs" " 'in-vector" " \"vector\"" -"(lambda(x_50)" +"(lambda(x_49)" "(vector?" -" x_50))" -"(lambda(x_51)" +" x_49))" +"(lambda(x_50)" "(unsafe-vector-length" -" x_51))" +" x_50))" " vec_44" " 1" " #f" @@ -19404,66 +19439,66 @@ static const char *startup_source = "(ser-push-optional-quote!_0)" "(ser-push!_16" " 'exact" -" v_149)))" +" v_150)))" "(void)))))))))" " c3_0)" -"(if(srcloc? v_149)" +"(if(srcloc? v_150)" "(let-values()" "(begin" "(ser-push!_16" " 'tag" " '#:srcloc)" "(ser-push!_16" -"(srcloc-source v_149))" +"(srcloc-source v_150))" "(ser-push!_16" -"(srcloc-line v_149))" +"(srcloc-line v_150))" "(ser-push!_16" -"(srcloc-column v_149))" +"(srcloc-column v_150))" "(ser-push!_16" -"(srcloc-position v_149))" +"(srcloc-position v_150))" "(ser-push!_16" -"(srcloc-span v_149))))" +"(srcloc-span v_150))))" "(let-values()" "(begin" "(ser-push-optional-quote!_0)" "(ser-push!_16" " 'exact" -" v_149)))))))))))))))))" +" v_150)))))))))))))))))" "((ser-push-optional-quote!_0)" "(lambda()(begin 'ser-push-optional-quote!(void)))))" "(let-values(((ser-shell!_0)" -"(lambda(v_150)" +"(lambda(v_151)" "(begin" " 'ser-shell!" -"(if(serialize-fill!? v_150)" +"(if(serialize-fill!? v_151)" "(let-values()" -"((serialize-ref v_150)" -" v_150" +"((serialize-ref v_151)" +" v_151" " ser-push!_16" " state_26))" -"(if(box? v_150)" +"(if(box? v_151)" "(let-values()(ser-push!_16 'tag '#:box))" -"(if(vector? v_150)" +"(if(vector? v_151)" "(let-values()" "(begin" "(ser-push!_16 'tag '#:vector)" "(ser-push!_16" " 'exact" -"(vector-length v_150))))" -"(if(hash? v_150)" +"(vector-length v_151))))" +"(if(hash? v_151)" "(let-values()" "(ser-push!_16" " 'tag" -"(if(hash-eq? v_150)" +"(if(hash-eq? v_151)" "(let-values() '#:hasheq)" -"(if(hash-eqv? v_150)" +"(if(hash-eqv? v_151)" "(let-values() '#:hasheqv)" "(let-values() '#:hash)))))" "(let-values()" "(error" " 'ser-shell" " \"unknown mutable: ~e\"" -" v_150))))))))))" +" v_151))))))))))" "(let-values(((ser-shell-fill!_0)" "(lambda(v_80)" "(begin" @@ -19497,14 +19532,14 @@ static const char *startup_source = " vec_46))))))" "(begin" " #f" -"((letrec-values(((for-loop_135)" +"((letrec-values(((for-loop_133)" "(lambda(pos_30)" "(begin" " 'for-loop" "(if(unsafe-fx<" " pos_30" " len_18)" -"(let-values(((v_151)" +"(let-values(((v_152)" "(unsafe-vector-ref" " vec_45" " pos_30)))" @@ -19515,18 +19550,18 @@ static const char *startup_source = "(begin" "(let-values()" "(ser-push!_16" -" v_151))" +" v_152))" "(values)))))" "(values)))))" "(if(not" " #f)" -"(for-loop_135" +"(for-loop_133" "(unsafe-fx+" " 1" " pos_30))" "(values))))" "(values))))))" -" for-loop_135)" +" for-loop_133)" " 0)))" "(void)))" "(if(hash? v_80)" @@ -19547,25 +19582,25 @@ static const char *startup_source = "(sorted-hash-keys" " v_80)))" "(begin" -"(let-values(((lst_119) ks_1))" +"(let-values(((lst_118) ks_1))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" -"(check-list lst_119)))" -"((letrec-values(((for-loop_136)" -"(lambda(lst_120)" +"(check-list lst_118)))" +"((letrec-values(((for-loop_134)" +"(lambda(lst_119)" "(begin" " 'for-loop" "(if(pair?" -" lst_120)" +" lst_119)" "(let-values(((k_25)" "(unsafe-car" -" lst_120))" -"((rest_60)" +" lst_119))" +"((rest_59)" "(unsafe-cdr" -" lst_120)))" +" lst_119)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -19583,12 +19618,12 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_136" -" rest_60)" +"(for-loop_134" +" rest_59)" "(values))))" "(values))))))" -" for-loop_136)" -" lst_119)))" +" for-loop_134)" +" lst_118)))" "(void))))))" "(let-values()" "(error" @@ -19602,42 +19637,42 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()(check-in-hash ht_90)))" -"((letrec-values(((for-loop_137)" -"(lambda(table_125 i_113)" +"((letrec-values(((for-loop_135)" +"(lambda(table_126 i_113)" "(begin" " 'for-loop" "(if i_113" "(let-values(((k_26" -" v_152)" +" v_153)" "(hash-iterate-key+value" " ht_90" " i_113)))" "(let-values(((table_59)" "(let-values(((table_60)" -" table_125))" -"(let-values(((table_126)" +" table_126))" +"(let-values(((table_127)" "(let-values()" "(let-values(((key_48" " val_42)" "(let-values()" "(values" -" v_152" +" v_153" " k_26))))" "(hash-set" " table_60" " key_48" " val_42)))))" "(values" -" table_126)))))" +" table_127)))))" "(if(not #f)" -"(for-loop_137" +"(for-loop_135" " table_59" "(hash-iterate-next" " ht_90" " i_113))" " table_59)))" -" table_125)))))" -" for-loop_137)" +" table_126)))))" +" for-loop_135)" " '#hasheqv()" "(hash-iterate-first ht_90))))))" "(let-values(((mutable-shell-bindings_0)" @@ -19653,7 +19688,7 @@ static const char *startup_source = "(void)" "(let-values()" "(check-range start_21 end_13 inc_7)))" -"((letrec-values(((for-loop_138)" +"((letrec-values(((for-loop_136)" "(lambda(pos_31)" "(begin" " 'for-loop" @@ -19675,13 +19710,13 @@ static const char *startup_source = "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_138" +"(for-loop_136" "(+" " pos_31" " inc_7))" "(values))))" "(values))))))" -" for-loop_138)" +" for-loop_136)" " start_21)))" "(void))" "(reap-stream!_0))))" @@ -19693,8 +19728,8 @@ static const char *startup_source = "(void)" "(let-values()" "(check-in-hash-keys ht_91)))" -"((letrec-values(((for-loop_139)" -"(lambda(table_127 i_60)" +"((letrec-values(((for-loop_137)" +"(lambda(table_128 i_60)" "(begin" " 'for-loop" "(if i_60" @@ -19702,10 +19737,10 @@ static const char *startup_source = "(hash-iterate-key" " ht_91" " i_60)))" -"(let-values(((table_128)" "(let-values(((table_129)" -" table_127))" "(let-values(((table_130)" +" table_128))" +"(let-values(((table_131)" "(let-values()" "(let-values(((key_49" " val_43)" @@ -19718,20 +19753,20 @@ static const char *startup_source = " obj_1))" " obj_1))))" "(hash-set" -" table_129" +" table_130" " key_49" " val_43)))))" "(values" -" table_130)))))" +" table_131)))))" "(if(not #f)" -"(for-loop_139" -" table_128" +"(for-loop_137" +" table_129" "(hash-iterate-next" " ht_91" " i_60))" -" table_128)))" -" table_127)))))" -" for-loop_139)" +" table_129)))" +" table_128)))))" +" for-loop_137)" " '#hasheqv()" "(hash-iterate-first ht_91))))))" "(let-values(((shared-bindings_0)" @@ -19752,7 +19787,7 @@ static const char *startup_source = " start_22" " end_14" " inc_8)))" -"((letrec-values(((for-loop_140)" +"((letrec-values(((for-loop_138)" "(lambda(pos_32)" "(begin" " 'for-loop" @@ -19775,13 +19810,13 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_140" +"(for-loop_138" "(+" " pos_32" " inc_8))" "(values))))" "(values))))))" -" for-loop_140)" +" for-loop_138)" " start_22)))" "(void))" "(reap-stream!_0))))" @@ -19801,7 +19836,7 @@ static const char *startup_source = " start_23" " end_15" " inc_9)))" -"((letrec-values(((for-loop_141)" +"((letrec-values(((for-loop_139)" "(lambda(pos_33)" "(begin" " 'for-loop" @@ -19824,13 +19859,13 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_141" +"(for-loop_139" "(+" " pos_33" " inc_9))" "(values))))" "(values))))))" -" for-loop_141)" +" for-loop_139)" " start_23)))" "(void))" "(reap-stream!_0))))" @@ -19874,7 +19909,7 @@ static const char *startup_source = "(define-values" "(deserialize)" "(lambda(mpis_7" -" inspector_5" +" inspector_6" " bulk-binding-registry_5" " num-mutables_1" " mutable-vec_0" @@ -19891,7 +19926,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_142)" +"((letrec-values(((for-loop_140)" "(lambda(pos_34 pos_35)" "(begin" " 'for-loop" @@ -19906,7 +19941,7 @@ static const char *startup_source = " mutable-vec_0" " pos_37" " mpis_7" -" inspector_5" +" inspector_6" " bulk-binding-registry_5" " shared_0)))" "(begin" @@ -19916,9 +19951,9 @@ static const char *startup_source = " d_22)" " next-pos_0)))))" "(values pos_38)))))" -"(if(not #f)(for-loop_142 pos_36(+ pos_35 inc_10)) pos_36)))" +"(if(not #f)(for-loop_140 pos_36(+ pos_35 inc_10)) pos_36)))" " pos_34)))))" -" for-loop_142)" +" for-loop_140)" " 0" " start_24)))" "(values))))" @@ -19931,7 +19966,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_143)" +"((letrec-values(((for-loop_141)" "(lambda(pos_39 pos_40)" "(begin" " 'for-loop" @@ -19946,7 +19981,7 @@ static const char *startup_source = " shared-vec_0" " pos_42" " mpis_7" -" inspector_5" +" inspector_6" " bulk-binding-registry_5" " shared_0)))" "(begin" @@ -19956,9 +19991,9 @@ static const char *startup_source = " d_23)" " next-pos_1)))))" "(values pos_43)))))" -"(if(not #f)(for-loop_143 pos_41(+ pos_40 inc_11)) pos_41)))" +"(if(not #f)(for-loop_141 pos_41(+ pos_40 inc_11)) pos_41)))" " pos_39)))))" -" for-loop_143)" +" for-loop_141)" " 0" " start_25)))" "(values))))" @@ -19977,43 +20012,43 @@ static const char *startup_source = "(void)" "(let-values()(check-range start_26 end_18 inc_12)))" " #f" -"((letrec-values(((for-loop_144)" +"((letrec-values(((for-loop_142)" "(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_153)(unsafe-vector-ref vec_47 pos_46)))" +"(let-values(((v_154)(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_153" +" v_154" " mutable-fill-vec_0" " pos_48" " mpis_7" -" inspector_5" +" inspector_6" " bulk-binding-registry_5" " shared_0))))" "(values pos_49)))))" "(if(not #f)" -"(for-loop_144" +"(for-loop_142" " pos_47" "(+ pos_45 inc_12)" "(unsafe-fx+ 1 pos_46))" " pos_47)))" " pos_44)))))" -" for-loop_144)" +" for-loop_142)" " 0" " start_26" " 0)))" "(values))))" -"(let-values(((result_69 done-pos_0)" -"(decode result-vec_0 0 mpis_7 inspector_5 bulk-binding-registry_5 shared_0)))" -" result_69))))))))" +"(let-values(((result_68 done-pos_0)" +"(decode result-vec_0 0 mpis_7 inspector_6 bulk-binding-registry_5 shared_0)))" +" result_68))))))))" "(define-values" "(decode-shell)" -"(lambda(vec_49 pos_50 mpis_8 inspector_6 bulk-binding-registry_6 shared_1)" +"(lambda(vec_49 pos_50 mpis_8 inspector_7 bulk-binding-registry_6 shared_1)" "(begin" "(let-values(((tmp_19)(vector*-ref vec_49 pos_50)))" "(if(equal? tmp_19 '#:box)" @@ -20026,10 +20061,10 @@ static const char *startup_source = "(let-values()(values(make-hasheq)(add1 pos_50)))" "(if(equal? tmp_19 '#:hasheqv)" "(let-values()(values(make-hasheqv)(add1 pos_50)))" -"(let-values()(decode vec_49 pos_50 mpis_8 inspector_6 bulk-binding-registry_6 shared_1)))))))))))" +"(let-values()(decode vec_49 pos_50 mpis_8 inspector_7 bulk-binding-registry_6 shared_1)))))))))))" "(define-values" "(decode)" -"(lambda(vec_50 pos_51 mpis_9 inspector_7 bulk-binding-registry_7 shared_2)" +"(lambda(vec_50 pos_51 mpis_9 inspector_8 bulk-binding-registry_7 shared_2)" "(begin" "(let-values()" "(let-values(((tmp_20)(vector*-ref vec_50 pos_51)))" @@ -20079,7 +20114,7 @@ static const char *startup_source = "(let-values()(values(vector*-ref vec_50 pos_51)(add1 pos_51)))" "(let-values()(values(vector*-ref shared_2(vector*-ref vec_50(add1 pos_51)))(+ pos_51 2))))" "(if(unsafe-fx< index_0 3)" -"(let-values()(values inspector_7(add1 pos_51)))" +"(let-values()(values inspector_8(add1 pos_51)))" "(if(unsafe-fx< index_0 4)" "(let-values()(values bulk-binding-registry_7(add1 pos_51)))" "(if(unsafe-fx< index_0 5)" @@ -20089,7 +20124,7 @@ static const char *startup_source = " vec_50" "(add1 pos_51)" " mpis_9" -" inspector_7" +" inspector_8" " bulk-binding-registry_7" " shared_2)))" "(let-values(((context_2 next-pos_3)" @@ -20100,7 +20135,7 @@ static const char *startup_source = " vec_50" " next-pos_2" " mpis_9" -" inspector_7" +" inspector_8" " bulk-binding-registry_7" " shared_2)))))" "(let-values(((srcloc_3 next-pos_4)" @@ -20111,11 +20146,11 @@ static const char *startup_source = " vec_50" " next-pos_3" " mpis_9" -" inspector_7" +" inspector_8" " bulk-binding-registry_7" " shared_2)))))" "(values" -"(deserialize-syntax content_8 context_2 srcloc_3 #f #f inspector_7)" +"(deserialize-syntax content_8 context_2 srcloc_3 #f #f inspector_8)" " next-pos_4)))))" "(let-values()" "(let-values(((content_9 next-pos_5)" @@ -20123,7 +20158,7 @@ static const char *startup_source = " vec_50" "(add1 pos_51)" " mpis_9" -" inspector_7" +" inspector_8" " bulk-binding-registry_7" " shared_2)))" "(let-values(((context_3 next-pos_6)" @@ -20134,7 +20169,7 @@ static const char *startup_source = " vec_50" " next-pos_5" " mpis_9" -" inspector_7" +" inspector_8" " bulk-binding-registry_7" " shared_2)))))" "(let-values(((srcloc_4 next-pos_7)" @@ -20145,17 +20180,17 @@ static const char *startup_source = " vec_50" " next-pos_6" " mpis_9" -" inspector_7" +" inspector_8" " bulk-binding-registry_7" " shared_2)))))" "(values" -"(deserialize-datum->syntax content_9 context_3 srcloc_4 inspector_7)" +"(deserialize-datum->syntax content_9 context_3 srcloc_4 inspector_8)" " next-pos_7)))))))))" "(if(unsafe-fx< index_0 9)" "(if(unsafe-fx< index_0 7)" "(let-values()" "(let-values(((content_10 next-pos_8)" -"(decode vec_50(add1 pos_51) mpis_9 inspector_7 bulk-binding-registry_7 shared_2)))" +"(decode vec_50(add1 pos_51) mpis_9 inspector_8 bulk-binding-registry_7 shared_2)))" "(let-values(((context_4 next-pos_9)" "(let-values(((i_122)(vector*-ref vec_50 next-pos_8)))" "(if(exact-integer? i_122)" @@ -20164,7 +20199,7 @@ static const char *startup_source = " vec_50" " next-pos_8" " mpis_9" -" inspector_7" +" inspector_8" " bulk-binding-registry_7" " shared_2)))))" "(let-values(((srcloc_5 next-pos_10)" @@ -20175,7 +20210,7 @@ static const char *startup_source = " vec_50" " next-pos_9" " mpis_9" -" inspector_7" +" inspector_8" " bulk-binding-registry_7" " shared_2)))))" "(let-values(((props_1 next-pos_11)" @@ -20183,7 +20218,7 @@ static const char *startup_source = " vec_50" " next-pos_10" " mpis_9" -" inspector_7" +" inspector_8" " bulk-binding-registry_7" " shared_2)))" "(let-values(((tamper_2 next-pos_12)" @@ -20191,11 +20226,11 @@ static const char *startup_source = " vec_50" " next-pos_11" " mpis_9" -" inspector_7" +" inspector_8" " bulk-binding-registry_7" " shared_2)))" "(values" -"(deserialize-syntax content_10 context_4 srcloc_5 props_1 tamper_2 inspector_7)" +"(deserialize-syntax content_10 context_4 srcloc_5 props_1 tamper_2 inspector_8)" " next-pos_12)))))))" "(if(unsafe-fx< index_0 8)" "(let-values()" @@ -20204,7 +20239,7 @@ static const char *startup_source = " vec_50" "(add1 pos_51)" " mpis_9" -" inspector_7" +" inspector_8" " bulk-binding-registry_7" " shared_2)))" "(let-values(((line_0 next-pos_14)" @@ -20212,7 +20247,7 @@ static const char *startup_source = " vec_50" " next-pos_13" " mpis_9" -" inspector_7" +" inspector_8" " bulk-binding-registry_7" " shared_2)))" "(let-values(((column_0 next-pos_15)" @@ -20220,7 +20255,7 @@ static const char *startup_source = " vec_50" " next-pos_14" " mpis_9" -" inspector_7" +" inspector_8" " bulk-binding-registry_7" " shared_2)))" "(let-values(((position_0 next-pos_16)" @@ -20228,7 +20263,7 @@ static const char *startup_source = " vec_50" " next-pos_15" " mpis_9" -" inspector_7" +" inspector_8" " bulk-binding-registry_7" " shared_2)))" "(let-values(((span_0 next-pos_17)" @@ -20236,7 +20271,7 @@ static const char *startup_source = " vec_50" " next-pos_16" " mpis_9" -" inspector_7" +" inspector_8" " bulk-binding-registry_7" " shared_2)))" "(values(srcloc source_0 line_0 column_0 position_0 span_0) next-pos_17)))))))" @@ -20245,15 +20280,15 @@ 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_154 next-pos_18)" +"(let-values(((v_155 next-pos_18)" "(decode" " vec_50" "(add1 pos_51)" " mpis_9" -" inspector_7" +" inspector_8" " bulk-binding-registry_7" " shared_2)))" -"(values(box-immutable v_154) next-pos_18))))" +"(values(box-immutable v_155) next-pos_18))))" "(if(unsafe-fx< index_0 12)" "(let-values()" "(let-values(((a_39 next-pos_19)" @@ -20261,7 +20296,7 @@ static const char *startup_source = " vec_50" "(add1 pos_51)" " mpis_9" -" inspector_7" +" inspector_8" " bulk-binding-registry_7" " shared_2)))" "(let-values(((d_24 next-pos_20)" @@ -20269,7 +20304,7 @@ static const char *startup_source = " vec_50" " next-pos_19" " mpis_9" -" inspector_7" +" inspector_8" " bulk-binding-registry_7" " shared_2)))" "(values(cons a_39 d_24) next-pos_20))))" @@ -20283,7 +20318,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_145)" +"((letrec-values(((for-loop_143)" "(lambda(pos_52 pos_53)" "(begin" " 'for-loop" @@ -20293,32 +20328,32 @@ static const char *startup_source = "(let-values(((pos_55) pos_52))" "(let-values(((pos_56)" "(let-values()" -"(let-values(((v_155" -" next-pos_22)" "(let-values(((v_156" +" next-pos_22)" +"(let-values(((v_157" " next-pos_23)" "(decode" " vec_50" " pos_55" " mpis_9" -" inspector_7" +" inspector_8" " bulk-binding-registry_7" " shared_2)))" "(values" -" v_156" +" v_157" " next-pos_23))))" "(begin" "(vector-set!" " r_29" " i_124" -" v_155)" +" v_156)" " next-pos_22)))))" "(values pos_56)))))" "(if(not #f)" -"(for-loop_145 pos_54(+ pos_53 inc_13))" +"(for-loop_143 pos_54(+ pos_53 inc_13))" " pos_54)))" " pos_52)))))" -" for-loop_145)" +" for-loop_143)" "(+ pos_51 2)" " start_27)))))" "(values" @@ -20342,7 +20377,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_146)" +"((letrec-values(((for-loop_144)" "(lambda(ht_93 pos_57 pos_58)" "(begin" " 'for-loop" @@ -20359,30 +20394,30 @@ static const char *startup_source = " vec_50" " pos_60" " mpis_9" -" inspector_7" +" inspector_8" " bulk-binding-registry_7" " shared_2)))" -"(let-values(((v_157" +"(let-values(((v_158" " next-pos_25)" "(decode" " vec_50" " next-pos_24" " mpis_9" -" inspector_7" +" inspector_8" " bulk-binding-registry_7" " shared_2)))" "(values" "(hash-set" " ht_95" " k_27" -" v_157)" +" v_158)" " next-pos_25))))))" "(values ht_96 pos_61)))))" "(if(not #f)" -"(for-loop_146 ht_94 pos_59(+ pos_58 inc_14))" +"(for-loop_144 ht_94 pos_59(+ pos_58 inc_14))" "(values ht_94 pos_59))))" "(values ht_93 pos_57))))))" -" for-loop_146)" +" for-loop_144)" " ht_55" "(+ pos_51 2)" " start_28)))))))))))" @@ -20390,7 +20425,7 @@ static const char *startup_source = "(if(unsafe-fx< index_0 17)" "(if(unsafe-fx< index_0 15)" "(let-values()" -"(let-values(((s_192)" +"(let-values(((s_193)" "(let-values(((tmp_22)(vector*-ref vec_50 pos_51)))" "(if(equal? tmp_22 '#:set)" "(let-values()(set))" @@ -20405,34 +20440,34 @@ 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_147)" -"(lambda(s_193 pos_62 pos_63)" +"((letrec-values(((for-loop_145)" +"(lambda(s_194 pos_62 pos_63)" "(begin" " 'for-loop" "(if(< pos_63 end_21)" "(let-values()" -"(let-values(((s_194 pos_64)" -"(let-values(((s_195) s_193)((pos_65) pos_62))" -"(let-values(((s_196 pos_66)" +"(let-values(((s_195 pos_64)" +"(let-values(((s_196) s_194)((pos_65) pos_62))" +"(let-values(((s_197 pos_66)" "(let-values()" "(let-values(((k_28 next-pos_26)" "(decode" " vec_50" " pos_65" " mpis_9" -" inspector_7" +" inspector_8" " bulk-binding-registry_7" " shared_2)))" "(values" -"(set-add s_195 k_28)" +"(set-add s_196 k_28)" " next-pos_26)))))" -"(values s_196 pos_66)))))" +"(values s_197 pos_66)))))" "(if(not #f)" -"(for-loop_147 s_194 pos_64(+ pos_63 inc_15))" -"(values s_194 pos_64))))" -"(values s_193 pos_62))))))" -" for-loop_147)" -" s_192" +"(for-loop_145 s_195 pos_64(+ pos_63 inc_15))" +"(values s_195 pos_64))))" +"(values s_194 pos_62))))))" +" for-loop_145)" +" s_193" "(+ pos_51 2)" " start_29))))))" "(if(unsafe-fx< index_0 16)" @@ -20443,7 +20478,7 @@ static const char *startup_source = " vec_50" "(add1 pos_51)" " mpis_9" -" inspector_7" +" inspector_8" " bulk-binding-registry_7" " shared_2)))" "(values k_29 next-pos_28))))" @@ -20454,7 +20489,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_148)" +"((letrec-values(((for-loop_146)" "(lambda(r_31 pos_67 pos_68)" "(begin" " 'for-loop" @@ -20465,26 +20500,26 @@ static const char *startup_source = "((pos_70) pos_67))" "(let-values(((r_34 pos_71)" "(let-values()" -"(let-values(((v_158" +"(let-values(((v_159" " next-pos_29)" "(decode" " vec_50" " pos_70" " mpis_9" -" inspector_7" +" inspector_8" " bulk-binding-registry_7" " shared_2)))" "(values" "(cons" -" v_158" +" v_159" " r_33)" " next-pos_29)))))" "(values r_34 pos_71)))))" "(if(not #f)" -"(for-loop_148 r_32 pos_69(+ pos_68 inc_16))" +"(for-loop_146 r_32 pos_69(+ pos_68 inc_16))" "(values r_32 pos_69))))" "(values r_31 pos_67))))))" -" for-loop_148)" +" for-loop_146)" " null" "(add1 next-pos_27)" " start_30)))))" @@ -20493,19 +20528,19 @@ static const char *startup_source = "(if(unsafe-fx< index_0 18)" "(let-values()" "(let-values(((kind_6 next-pos_30)" -"(decode vec_50(add1 pos_51) mpis_9 inspector_7 bulk-binding-registry_7 shared_2)))" +"(decode vec_50(add1 pos_51) mpis_9 inspector_8 bulk-binding-registry_7 shared_2)))" "(values(deserialize-scope kind_6) next-pos_30)))" "(if(unsafe-fx< index_0 19)" "(let-values()" -"(let-values(((id_22 next-pos_31)" +"(let-values(((id_23 next-pos_31)" "(decode" " vec_50" "(add1 pos_51)" " mpis_9" -" inspector_7" +" inspector_8" " bulk-binding-registry_7" " shared_2)))" -"(values(make-interned-scope id_22) next-pos_31)))" +"(values(make-interned-scope id_23) next-pos_31)))" "(if(unsafe-fx< index_0 20)" "(let-values()" "(let-values(((name_38 next-pos_32)" @@ -20513,25 +20548,25 @@ static const char *startup_source = " vec_50" "(add1 pos_51)" " mpis_9" -" inspector_7" +" inspector_8" " bulk-binding-registry_7" " shared_2)))" -"(let-values(((scopes_20 next-pos_33)" +"(let-values(((scopes_21 next-pos_33)" "(decode" " vec_50" " next-pos_32" " mpis_9" -" inspector_7" +" inspector_8" " bulk-binding-registry_7" " shared_2)))" -"(values(deserialize-multi-scope name_38 scopes_20) next-pos_33))))" +"(values(deserialize-multi-scope name_38 scopes_21) next-pos_33))))" "(let-values()" -"(let-values(((phase_46 next-pos_34)" +"(let-values(((phase_48 next-pos_34)" "(decode" " vec_50" "(add1 pos_51)" " mpis_9" -" inspector_7" +" inspector_8" " bulk-binding-registry_7" " shared_2)))" "(let-values(((multi-scope_2 next-pos_35)" @@ -20539,26 +20574,26 @@ static const char *startup_source = " vec_50" " next-pos_34" " mpis_9" -" inspector_7" +" inspector_8" " bulk-binding-registry_7" " shared_2)))" -"(values(deserialize-shifted-multi-scope phase_46 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()" "(let-values(((syms_13 next-pos_36)" -"(decode vec_50(add1 pos_51) mpis_9 inspector_7 bulk-binding-registry_7 shared_2)))" +"(decode vec_50(add1 pos_51) mpis_9 inspector_8 bulk-binding-registry_7 shared_2)))" "(let-values(((bulk-bindings_4 next-pos_37)" -"(decode vec_50 next-pos_36 mpis_9 inspector_7 bulk-binding-registry_7 shared_2)))" +"(decode vec_50 next-pos_36 mpis_9 inspector_8 bulk-binding-registry_7 shared_2)))" "(values(deserialize-table-with-bulk-bindings syms_13 bulk-bindings_4) next-pos_37))))" "(if(unsafe-fx< index_0 23)" "(let-values()" -"(let-values(((scopes_21 next-pos_38)" +"(let-values(((scopes_22 next-pos_38)" "(decode" " vec_50" "(add1 pos_51)" " mpis_9" -" inspector_7" +" inspector_8" " bulk-binding-registry_7" " shared_2)))" "(let-values(((bulk_5 next-pos_39)" @@ -20566,28 +20601,28 @@ static const char *startup_source = " vec_50" " next-pos_38" " mpis_9" -" inspector_7" +" inspector_8" " bulk-binding-registry_7" " shared_2)))" -"(values(deserialize-bulk-binding-at scopes_21 bulk_5) next-pos_39))))" +"(values(deserialize-bulk-binding-at scopes_22 bulk_5) next-pos_39))))" "(let-values()" "(let-values(((kind_7 next-pos_40)" "(decode" " vec_50" "(add1 pos_51)" " mpis_9" -" inspector_7" +" inspector_8" " bulk-binding-registry_7" " shared_2)))" -"(let-values(((phase_47 next-pos_41)" +"(let-values(((phase_49 next-pos_41)" "(decode" " vec_50" " next-pos_40" " mpis_9" -" inspector_7" +" inspector_8" " bulk-binding-registry_7" " shared_2)))" -"(values(deserialize-representative-scope kind_7 phase_47) 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()" @@ -20596,7 +20631,7 @@ static const char *startup_source = " vec_50" "(add1 pos_51)" " mpis_9" -" inspector_7" +" inspector_8" " bulk-binding-registry_7" " shared_2)))" "(let-values(((sym_32 next-pos_43)" @@ -20604,15 +20639,15 @@ static const char *startup_source = " vec_50" " next-pos_42" " mpis_9" -" inspector_7" +" inspector_8" " bulk-binding-registry_7" " shared_2)))" -"(let-values(((phase_48 next-pos_44)" +"(let-values(((phase_50 next-pos_44)" "(decode" " vec_50" " next-pos_43" " mpis_9" -" inspector_7" +" inspector_8" " bulk-binding-registry_7" " shared_2)))" "(let-values(((nominal-module_4 next-pos_45)" @@ -20620,7 +20655,7 @@ static const char *startup_source = " vec_50" " next-pos_44" " mpis_9" -" inspector_7" +" inspector_8" " bulk-binding-registry_7" " shared_2)))" "(let-values(((nominal-phase_3 next-pos_46)" @@ -20628,7 +20663,7 @@ static const char *startup_source = " vec_50" " next-pos_45" " mpis_9" -" inspector_7" +" inspector_8" " bulk-binding-registry_7" " shared_2)))" "(let-values(((nominal-sym_3 next-pos_47)" @@ -20636,7 +20671,7 @@ static const char *startup_source = " vec_50" " next-pos_46" " mpis_9" -" inspector_7" +" inspector_8" " bulk-binding-registry_7" " shared_2)))" "(let-values(((nominal-require-phase_3 next-pos_48)" @@ -20644,7 +20679,7 @@ static const char *startup_source = " vec_50" " next-pos_47" " mpis_9" -" inspector_7" +" inspector_8" " bulk-binding-registry_7" " shared_2)))" "(let-values(((free=id_8 next-pos_49)" @@ -20652,7 +20687,7 @@ static const char *startup_source = " vec_50" " next-pos_48" " mpis_9" -" inspector_7" +" inspector_8" " bulk-binding-registry_7" " shared_2)))" "(let-values(((extra-inspector_3 next-pos_50)" @@ -20660,7 +20695,7 @@ static const char *startup_source = " vec_50" " next-pos_49" " mpis_9" -" inspector_7" +" inspector_8" " bulk-binding-registry_7" " shared_2)))" "(let-values(((extra-nominal-bindings_3 next-pos_51)" @@ -20668,14 +20703,14 @@ static const char *startup_source = " vec_50" " next-pos_50" " mpis_9" -" inspector_7" +" inspector_8" " bulk-binding-registry_7" " shared_2)))" "(values" "(deserialize-full-module-binding" " module_4" " sym_32" -" phase_48" +" phase_50" " nominal-module_4" " nominal-phase_3" " nominal-sym_3" @@ -20690,7 +20725,7 @@ static const char *startup_source = " vec_50" "(add1 pos_51)" " mpis_9" -" inspector_7" +" inspector_8" " bulk-binding-registry_7" " shared_2)))" "(let-values(((sym_33 next-pos_53)" @@ -20698,15 +20733,15 @@ static const char *startup_source = " vec_50" " next-pos_52" " mpis_9" -" inspector_7" +" inspector_8" " bulk-binding-registry_7" " shared_2)))" -"(let-values(((phase_49 next-pos_54)" +"(let-values(((phase_51 next-pos_54)" "(decode" " vec_50" " next-pos_53" " mpis_9" -" inspector_7" +" inspector_8" " bulk-binding-registry_7" " shared_2)))" "(let-values(((nominal-module_5 next-pos_55)" @@ -20714,11 +20749,11 @@ static const char *startup_source = " vec_50" " next-pos_54" " mpis_9" -" inspector_7" +" inspector_8" " bulk-binding-registry_7" " shared_2)))" "(values" -"(deserialize-simple-module-binding module_5 sym_33 phase_49 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()" @@ -20727,7 +20762,7 @@ static const char *startup_source = " vec_50" "(add1 pos_51)" " mpis_9" -" inspector_7" +" inspector_8" " bulk-binding-registry_7" " shared_2)))" "(let-values(((free=id_9 next-pos_57)" @@ -20735,7 +20770,7 @@ static const char *startup_source = " vec_50" " next-pos_56" " mpis_9" -" inspector_7" +" inspector_8" " bulk-binding-registry_7" " shared_2)))" "(values(deserialize-full-local-binding key_51 free=id_9) next-pos_57))))" @@ -20746,7 +20781,7 @@ static const char *startup_source = " vec_50" "(add1 pos_51)" " mpis_9" -" inspector_7" +" inspector_8" " bulk-binding-registry_7" " shared_2)))" "(let-values(((excepts_3 next-pos_59)" @@ -20754,7 +20789,7 @@ static const char *startup_source = " vec_50" " next-pos_58" " mpis_9" -" inspector_7" +" inspector_8" " bulk-binding-registry_7" " shared_2)))" "(let-values(((mpi_28 next-pos_60)" @@ -20762,7 +20797,7 @@ static const char *startup_source = " vec_50" " next-pos_59" " mpis_9" -" inspector_7" +" inspector_8" " bulk-binding-registry_7" " shared_2)))" "(let-values(((provide-phase-level_2 next-pos_61)" @@ -20770,7 +20805,7 @@ static const char *startup_source = " vec_50" " next-pos_60" " mpis_9" -" inspector_7" +" inspector_8" " bulk-binding-registry_7" " shared_2)))" "(let-values(((phase-shift_5 next-pos_62)" @@ -20778,7 +20813,7 @@ static const char *startup_source = " vec_50" " next-pos_61" " mpis_9" -" inspector_7" +" inspector_8" " bulk-binding-registry_7" " shared_2)))" "(let-values(((bulk-binding-registry_8 next-pos_63)" @@ -20786,7 +20821,7 @@ static const char *startup_source = " vec_50" " next-pos_62" " mpis_9" -" inspector_7" +" inspector_8" " bulk-binding-registry_7" " shared_2)))" "(values" @@ -20804,7 +20839,7 @@ static const char *startup_source = " vec_50" "(add1 pos_51)" " mpis_9" -" inspector_7" +" inspector_8" " bulk-binding-registry_7" " shared_2)))" "(let-values(((protected?_2 next-pos_65)" @@ -20812,7 +20847,7 @@ static const char *startup_source = " vec_50" " next-pos_64" " mpis_9" -" inspector_7" +" inspector_8" " bulk-binding-registry_7" " shared_2)))" "(let-values(((syntax?_3 next-pos_66)" @@ -20820,7 +20855,7 @@ static const char *startup_source = " vec_50" " next-pos_65" " mpis_9" -" inspector_7" +" inspector_8" " bulk-binding-registry_7" " shared_2)))" "(values" @@ -20828,7 +20863,7 @@ static const char *startup_source = " next-pos_66)))))))))))))))))" "(define-values" "(decode-fill!)" -"(lambda(v_159 vec_51 pos_72 mpis_10 inspector_8 bulk-binding-registry_9 shared_3)" +"(lambda(v_160 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)" @@ -20836,8 +20871,8 @@ static const char *startup_source = "(if(equal? tmp_23 '#:set-box!)" "(let-values()" "(let-values(((c_21 next-pos_67)" -"(decode vec_51(add1 pos_72) mpis_10 inspector_8 bulk-binding-registry_9 shared_3)))" -"(begin(set-box! v_159 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_160 c_21) next-pos_67)))" "(if(equal? tmp_23 '#:set-vector!)" "(let-values()" "(let-values(((len_24)(vector*-ref vec_51(add1 pos_72))))" @@ -20846,7 +20881,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_149)" +"((letrec-values(((for-loop_147)" "(lambda(pos_73 pos_74)" "(begin" " 'for-loop" @@ -20861,16 +20896,16 @@ static const char *startup_source = " vec_51" " pos_76" " mpis_10" -" inspector_8" +" inspector_9" " bulk-binding-registry_9" " shared_3)))" "(begin" -"(vector-set! v_159 i_78 c_22)" +"(vector-set! v_160 i_78 c_22)" " next-pos_68)))))" "(values pos_77)))))" -"(if(not #f)(for-loop_149 pos_75(+ pos_74 inc_17)) pos_75)))" +"(if(not #f)(for-loop_147 pos_75(+ pos_74 inc_17)) pos_75)))" " pos_73)))))" -" for-loop_149)" +" for-loop_147)" "(+ pos_72 2)" " start_31)))))" "(if(equal? tmp_23 '#:set-hash!)" @@ -20881,7 +20916,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_150)" +"((letrec-values(((for-loop_148)" "(lambda(pos_78 pos_79)" "(begin" " 'for-loop" @@ -20896,7 +20931,7 @@ static const char *startup_source = " vec_51" " pos_81" " mpis_10" -" inspector_8" +" inspector_9" " bulk-binding-registry_9" " shared_3)))" "(let-values(((val_44 done-pos_2)" @@ -20904,34 +20939,34 @@ static const char *startup_source = " vec_51" " next-pos_69" " mpis_10" -" inspector_8" +" inspector_9" " bulk-binding-registry_9" " shared_3)))" "(begin" -"(hash-set! v_159 key_52 val_44)" +"(hash-set! v_160 key_52 val_44)" " done-pos_2))))))" "(values pos_82)))))" -"(if(not #f)(for-loop_150 pos_80(+ pos_79 inc_18)) pos_80)))" +"(if(not #f)(for-loop_148 pos_80(+ pos_79 inc_18)) pos_80)))" " pos_78)))))" -" for-loop_150)" +" for-loop_148)" "(+ 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_8 bulk-binding-registry_9 shared_3)))" -"(begin(deserialize-scope-fill! v_159 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_160 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_8 bulk-binding-registry_9 shared_3)))" +"(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_8 bulk-binding-registry_9 shared_3)))" -"(begin(deserialize-representative-scope-fill! v_159 a_40 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_160 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_160)" +"(lambda(v_161)" "(begin" "(let-values(((seen_22)(make-hasheq)))" "(let-values(((reachable-scopes_5)(seteq)))" @@ -20939,35 +20974,35 @@ static const char *startup_source = "(let-values(((scope-triggers_0)(make-hasheq)))" "(begin" "((letrec-values(((loop_86)" -"(lambda(v_161)" +"(lambda(v_162)" "(begin" " 'loop" -"(if(interned-literal? v_161)" +"(if(interned-literal? v_162)" "(let-values()(void))" -"(if(hash-ref seen_22 v_161 #f)" +"(if(hash-ref seen_22 v_162 #f)" "(let-values()(void))" "(let-values()" "(begin" -"(hash-set! seen_22 v_161 #t)" -"(if(scope-with-bindings? v_161)" +"(hash-set! seen_22 v_162 #t)" +"(if(scope-with-bindings? v_162)" "(let-values()" "(begin" -"(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)))" +"(set! reachable-scopes_5(set-add reachable-scopes_5 v_162))" +"((reach-scopes-ref v_162) v_162 loop_86)" +"(let-values(((lst_68)(hash-ref scope-triggers_0 v_162 null)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_68)))" -"((letrec-values(((for-loop_151)" -"(lambda(lst_121)" +"((letrec-values(((for-loop_149)" +"(lambda(lst_120)" "(begin" " 'for-loop" -"(if(pair? lst_121)" +"(if(pair? lst_120)" "(let-values(((proc_7)" -"(unsafe-car lst_121))" -"((rest_61)" -"(unsafe-cdr lst_121)))" +"(unsafe-car lst_120))" +"((rest_60)" +"(unsafe-cdr lst_120)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -20979,15 +21014,15 @@ static const char *startup_source = "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_151 rest_61)" +"(for-loop_149 rest_60)" "(values))))" "(values))))))" -" for-loop_151)" +" for-loop_149)" " lst_68)))" "(void)" -"(hash-remove! scope-triggers_0 v_161)" -"((scope-with-bindings-ref v_161)" -" v_161" +"(hash-remove! scope-triggers_0 v_162)" +"((scope-with-bindings-ref v_162)" +" v_162" " get-reachable-scopes_4" " loop_86" "(lambda(sc-unreachable_0 b_68)" @@ -20996,15 +21031,15 @@ static const char *startup_source = " sc-unreachable_0" "(lambda(l_51)(cons b_68 l_51))" " null)))))" -"(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)" +"(if(reach-scopes? v_162)" +"(let-values()((reach-scopes-ref v_162) v_162 loop_86))" +"(if(pair? v_162)" +"(let-values()(begin(loop_86(car v_162))(loop_86(cdr v_162))))" +"(if(vector? v_162)" "(let-values()" "(begin" "(let-values(((vec_52 len_26)" -"(let-values(((vec_53) v_161))" +"(let-values(((vec_53) v_162))" "(begin" "(check-vector vec_53)" "(values" @@ -21012,7 +21047,7 @@ static const char *startup_source = "(unsafe-vector-length vec_53))))))" "(begin" " #f" -"((letrec-values(((for-loop_152)" +"((letrec-values(((for-loop_150)" "(lambda(pos_83)" "(begin" " 'for-loop" @@ -21032,30 +21067,30 @@ static const char *startup_source = "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_152" +"(for-loop_150" "(unsafe-fx+ 1 pos_83))" "(values))))" "(values))))))" -" for-loop_152)" +" for-loop_150)" " 0)))" "(void)))" -"(if(box? v_161)" -"(let-values()(loop_86(unbox v_161)))" -"(if(hash? v_161)" +"(if(box? v_162)" +"(let-values()(loop_86(unbox v_162)))" +"(if(hash? v_162)" "(let-values()" "(begin" -"(let-values(((ht_97) v_161))" +"(let-values(((ht_97) v_162))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()(check-in-hash ht_97)))" -"((letrec-values(((for-loop_153)" +"((letrec-values(((for-loop_151)" "(lambda(i_125)" "(begin" " 'for-loop" "(if i_125" -"(let-values(((k_30 v_162)" +"(let-values(((k_30 v_163)" "(hash-iterate-key+value" " ht_97" " i_125)))" @@ -21069,36 +21104,36 @@ static const char *startup_source = "(loop_86" " k_30)" "(loop_86" -" v_162)))" +" v_163)))" "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_153" +"(for-loop_151" "(hash-iterate-next" " ht_97" " i_125))" "(values))))" "(values))))))" -" for-loop_153)" +" for-loop_151)" "(hash-iterate-first ht_97))))" "(void)))" -"(if(prefab-struct-key v_161)" +"(if(prefab-struct-key v_162)" "(let-values()" "(begin" "(let-values(((v*_5 start*_4 stop*_5 step*_4)" "(normalise-inputs" " 'in-vector" " \"vector\"" -"(lambda(x_52)(vector? x_52))" -"(lambda(x_53)" -"(unsafe-vector-length x_53))" -"(struct->vector v_161)" +"(lambda(x_51)(vector? x_51))" +"(lambda(x_52)" +"(unsafe-vector-length x_52))" +"(struct->vector v_162)" " 1" " #f" " 1)))" "(begin" " #t" -"((letrec-values(((for-loop_154)" +"((letrec-values(((for-loop_152)" "(lambda(idx_4)" "(begin" " 'for-loop" @@ -21118,18 +21153,18 @@ static const char *startup_source = "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_154" +"(for-loop_152" "(unsafe-fx+ idx_4 1))" "(values))))" "(values))))))" -" for-loop_154)" +" for-loop_152)" " start*_4)))" "(void)))" -"(if(srcloc? v_161)" -"(let-values()(loop_86(srcloc-source v_161)))" +"(if(srcloc? v_162)" +"(let-values()(loop_86(srcloc-source v_162)))" "(let-values()(void))))))))))))))))))" " loop_86)" -" v_160)" +" v_161)" " reachable-scopes_5))))))))" "(define-values" "(deserialize-imports)" @@ -21141,15 +21176,15 @@ static const char *startup_source = "(lambda(s23_0 from-mpi24_0 to-mpi25_0 inspector22_0)" "(begin" " 'core26" -"(let-values(((s_197) s23_0))" +"(let-values(((s_198) s23_0))" "(let-values(((from-mpi_4) from-mpi24_0))" "(let-values(((to-mpi_3) to-mpi25_0))" -"(let-values(((inspector_9) inspector22_0))" +"(let-values(((inspector_10) inspector22_0))" "(let-values()" -"(let-values(((s28_0) s_197)" +"(let-values(((s28_0) s_198)" "((from-mpi29_0) from-mpi_4)" "((to-mpi30_0) to-mpi_3)" -"((inspector31_0) inspector_9))" +"((inspector31_0) inspector_10))" "(syntax-module-path-index-shift13.1" " #f" " s28_0" @@ -21157,9 +21192,9 @@ static const char *startup_source = " to-mpi30_0" " inspector31_0)))))))))))" "(case-lambda" -"((s_198 from-mpi_5 to-mpi_4)" -"(begin 'syntax-module-path-index-shift(core26_0 s_198 from-mpi_5 to-mpi_4 #f)))" -"((s_199 from-mpi_6 to-mpi_5 inspector22_1)(core26_0 s_199 from-mpi_6 to-mpi_5 inspector22_1))))))" +"((s_199 from-mpi_5 to-mpi_4)" +"(begin 'syntax-module-path-index-shift(core26_0 s_199 from-mpi_5 to-mpi_4 #f)))" +"((s_200 from-mpi_6 to-mpi_5 inspector22_1)(core26_0 s_200 from-mpi_6 to-mpi_5 inspector22_1))))))" " syntax-module-path-index-shift_0))" "(define-values" "(deserialize-instance)" @@ -21209,7 +21244,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:_43 make-_43 ?_43 -ref_43 -set!_43)" +"(let-values(((struct:_37 make-_37 ?_37 -ref_37 -set!_37)" "(let-values()" "(let-values()" "(make-struct-type" @@ -21224,7 +21259,7 @@ static const char *startup_source = " '()" " #f" " 'parsed-primitive-id)))))" -"(values struct:_43 make-_43 ?_43)))" +"(values struct:_37 make-_37 ?_37)))" "(define-values" "(struct:parsed-top-id parsed-top-id4.1 parsed-top-id?)" "(let-values(((struct:_10 make-_10 ?_10 -ref_10 -set!_10)" @@ -21245,7 +21280,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:_42 make-_42 ?_42 -ref_42 -set!_42)" +"(let-values(((struct:_43 make-_43 ?_43 -ref_43 -set!_43)" "(let-values()" "(let-values()" "(make-struct-type" @@ -21261,11 +21296,11 @@ static const char *startup_source = " #f" " 'parsed-lambda)))))" "(values" -" struct:_42" -" make-_42" -" ?_42" -"(make-struct-field-accessor -ref_42 0 'keys)" -"(make-struct-field-accessor -ref_42 1 'body))))" +" struct:_43" +" make-_43" +" ?_43" +"(make-struct-field-accessor -ref_43 0 'keys)" +"(make-struct-field-accessor -ref_43 1 'body))))" "(define-values" "(struct:parsed-case-lambda parsed-case-lambda6.1 parsed-case-lambda? parsed-case-lambda-clauses)" "(let-values(((struct:_44 make-_44 ?_44 -ref_44 -set!_44)" @@ -21759,9 +21794,9 @@ 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_42)" +"(lambda(s_0 phase_44)" "(begin" -"(let-values(((s-scs_1)(syntax-scope-set s_0 phase_42)))" +"(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))" @@ -21979,23 +22014,23 @@ static const char *startup_source = "(begin" " 'add-defined-or-required-id!19" "(let-values(((r+p_3) r+p15_0))" -"(let-values(((id_23) id16_0))" -"(let-values(((phase_50) phase17_0))" +"(let-values(((id_24) id16_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_50" +" phase_52" "(phase+" "(module-binding-nominal-phase binding_11)" "(module-binding-nominal-require-phase binding_11)))" "(void)" " (let-values () (error \"internal error: binding phase does not match nominal info\")))" "(let-values(((r+p124_0) r+p_3)" -"((id125_0) id_23)" -"((phase126_0) phase_50)" +"((id125_0) id_24)" +"((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)" @@ -22020,8 +22055,8 @@ static const char *startup_source = "(begin" " 'add-defined-or-required-id-at-nominal!33" "(let-values(((r+p_4) r+p30_0))" -"(let-values(((id_24) id31_0))" -"(let-values(((phase_51) phase32_0))" +"(let-values(((id_25) id31_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))" @@ -22033,12 +22068,12 @@ static const char *startup_source = "(intern-mpi r+p_4 nominal-module_6)" " make-hasheqv)))" "(let-values(((sym-to-reqds_0)(hash-ref! at-mod_0 nominal-require-phase_4 make-hasheq)))" -"(let-values(((sym_34)(syntax-e$1 id_24)))" +"(let-values(((sym_34)(syntax-e$1 id_25)))" "(hash-set!" " sym-to-reqds_0" " sym_34" "(cons-ish" -"(required2.1 id_24 phase_51 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)" @@ -22075,11 +22110,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_52)(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_52)" +"(syntax-mapped-names s_114 phase_54)" " #f)" " #f)))" "(let-values(((mpi_31)(intern-mpi r+p_5 nominal-module_7)))" @@ -22106,8 +22141,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_155)" -"(lambda(result_70 i_127)" +"((letrec-values(((for-loop_153)" +"(lambda(result_69 i_127)" "(begin" " 'for-loop" "(if i_127" @@ -22115,15 +22150,15 @@ static const char *startup_source = "(hash-iterate-key+value" " ht_99" " i_127)))" +"(let-values(((result_70)" "(let-values(((result_71)" -"(let-values(((result_72)" -" result_70))" +" result_69))" "(if(not" "(symbol-interned?" " out-sym_0))" -" result_72" +" result_71" "(let-values()" -"(let-values(((result_73)" +"(let-values(((result_72)" "(let-values()" "(let-values()" "(begin" @@ -22177,7 +22212,7 @@ static const char *startup_source = " sym_35" " s_114))" "((phase135_0)" -" phase_52)" +" phase_54)" "((orig-s136_0)" " orig-s_0)" "((temp137_0)" @@ -22235,24 +22270,24 @@ static const char *startup_source = " null)))))" " already-defined?_0))))))))))" "(values" -" result_73)))))))" +" result_72)))))))" "(if(if(not" -"((lambda x_54 result_71)" +"((lambda x_53 result_70)" " out-sym_0" " binding/p_2))" "(not #f)" " #f)" -"(for-loop_155" -" result_71" +"(for-loop_153" +" result_70" "(hash-iterate-next ht_99 i_127))" -" result_71)))" -" result_70)))))" -" for-loop_155)" +" result_70)))" +" result_69)))))" +" for-loop_153)" " #f" "(hash-iterate-first ht_99))))))))))))))))))))))))))))))" "(define-values" "(bulk-required->required)" -"(lambda(br_1 nominal-module_8 phase_53 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)" @@ -22262,13 +22297,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_53(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_54 sym_37)" -"(begin(if(bulk-required? r_35)(bulk-required->required r_35 mod-name_9 phase_54 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)" @@ -22286,7 +22321,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_156)" +"((letrec-values(((for-loop_154)" "(lambda(i_128)" "(begin" " 'for-loop" @@ -22307,12 +22342,12 @@ static const char *startup_source = "(void)" "(let-values()" "(check-in-hash ht_101)))" -"((letrec-values(((for-loop_157)" +"((letrec-values(((for-loop_155)" "(lambda(i_129)" "(begin" " 'for-loop" "(if i_129" -"(let-values(((phase_55" +"(let-values(((phase_57" " at-phase_8)" "(hash-iterate-key+value" " ht_101" @@ -22327,7 +22362,7 @@ static const char *startup_source = "(let-values()" "(check-in-hash" " ht_102)))" -"((letrec-values(((for-loop_158)" +"((letrec-values(((for-loop_156)" "(lambda(i_117)" "(begin" " 'for-loop" @@ -22338,28 +22373,28 @@ static const char *startup_source = " ht_102" " i_117)))" "(let-values((()" -"(let-values(((lst_122)" +"(let-values(((lst_121)" " reqds_0))" "(begin" "(void)" -"((letrec-values(((for-loop_159)" -"(lambda(lst_123)" +"((letrec-values(((for-loop_157)" +"(lambda(lst_122)" "(begin" " 'for-loop" "(if(not" "(null?" -" lst_123))" +" lst_122))" "(let-values(((reqd/maybe-bulk_0)" "(if(pair?" -" lst_123)" +" lst_122)" "(car" -" lst_123)" -" lst_123))" -"((rest_62)" +" lst_122)" +" lst_122))" +"((rest_61)" "(if(pair?" -" lst_123)" +" lst_122)" "(cdr" -" lst_123)" +" lst_122)" " null)))" "(let-values((()" "(let-values()" @@ -22371,7 +22406,7 @@ static const char *startup_source = "(normalize-required" " reqd/maybe-bulk_0" " mod-name_10" -" phase_55" +" phase_57" " sym_38)))" "(let-values(((r+p147_0)" " r+p_6)" @@ -22418,42 +22453,42 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_159" -" rest_62)" +"(for-loop_157" +" rest_61)" "(values))))" "(values))))))" -" for-loop_159)" -" lst_122)))))" +" for-loop_157)" +" lst_121)))))" "(if(not" " #f)" -"(for-loop_158" +"(for-loop_156" "(hash-iterate-next" " ht_102" " i_117))" "(values))))" "(values))))))" -" for-loop_158)" +" for-loop_156)" "(hash-iterate-first" " ht_102))))))" "(if(not" " #f)" -"(for-loop_157" +"(for-loop_155" "(hash-iterate-next" " ht_101" " i_129))" "(values))))" "(values))))))" -" for-loop_157)" +" for-loop_155)" "(hash-iterate-first" " ht_101))))" "(void)))" "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_156(hash-iterate-next ht_100 i_128))" +"(for-loop_154(hash-iterate-next ht_100 i_128))" "(values))))" "(values))))))" -" for-loop_156)" +" for-loop_154)" "(hash-iterate-first ht_100))))" "(void))))))))))" "(define-values" @@ -22462,12 +22497,12 @@ static const char *startup_source = "(begin" " 'remove-required-id!75" "(let-values(((r+p_7) r+p72_0))" -"(let-values(((id_25) id73_0))" -"(let-values(((phase_56) phase74_0))" +"(let-values(((id_26) id73_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_25)((phase158_0) phase_56)((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()" @@ -22479,7 +22514,7 @@ static const char *startup_source = "(let-values(((sym-to-reqds_2)(hash-ref at-mod_3 nominal-phase_4 #f)))" "(if sym-to-reqds_2" "(let-values()" -"(let-values(((sym_39)(syntax-e$1 id_25)))" +"(let-values(((sym_39)(syntax-e$1 id_26)))" "(let-values(((l_53)(hash-ref sym-to-reqds_2 sym_39 null)))" "(if(null? l_53)" "(void)" @@ -22492,8 +22527,8 @@ static const char *startup_source = " sym_39" "(remove-non-matching-requireds" " l_53" -" id_25" -" phase_56" +" id_26" +" phase_58" " mpi_32" " nominal-phase_4" " sym_39)))))))))" @@ -22502,19 +22537,19 @@ static const char *startup_source = "(void)))))))))))" "(define-values" "(remove-non-matching-requireds)" -"(lambda(reqds_1 id_26 phase_57 mpi_33 nominal-phase_5 sym_40)" +"(lambda(reqds_1 id_27 phase_59 mpi_33 nominal-phase_5 sym_40)" "(begin" "(reverse$1" -"(let-values(((lst_124) reqds_1))" +"(let-values(((lst_123) reqds_1))" "(begin" "(void)" -"((letrec-values(((for-loop_160)" -"(lambda(fold-var_107 lst_125)" +"((letrec-values(((for-loop_158)" +"(lambda(fold-var_107 lst_124)" "(begin" " 'for-loop" -"(if(not(null? lst_125))" -"(let-values(((r_36)(if(pair? lst_125)(car lst_125) lst_125))" -"((rest_63)(if(pair? lst_125)(cdr lst_125) null)))" +"(if(not(null? lst_124))" +"(let-values(((r_36)(if(pair? lst_124)(car lst_124) lst_124))" +"((rest_62)(if(pair? lst_124)(cdr lst_124) null)))" "(let-values(((fold-var_108)" "(let-values(((r_37)" "(normalize-required" @@ -22524,7 +22559,7 @@ static const char *startup_source = " sym_40)))" "(begin" " #t" -"((letrec-values(((for-loop_161)" +"((letrec-values(((for-loop_159)" "(lambda(fold-var_109)" "(begin" " 'for-loop" @@ -22533,14 +22568,14 @@ static const char *startup_source = "(let-values(((fold-var_111)" " fold-var_109))" "(if(if(eqv?" -" phase_57" +" phase_59" "(required-phase" " r_37))" "(free-identifier=?$1" "(required-id r_37)" -" id_26" -" phase_57" -" phase_57)" +" id_27" +" phase_59" +" phase_59)" " #f)" " fold-var_111" "(let-values(((fold-var_112)" @@ -22554,13 +22589,13 @@ static const char *startup_source = "(values" " fold-var_113)))))))" " fold-var_110))))))" -" for-loop_161)" +" for-loop_159)" " fold-var_107)))))" -"(if(not #f)(for-loop_160 fold-var_108 rest_63) fold-var_108)))" +"(if(not #f)(for-loop_158 fold-var_108 rest_62) fold-var_108)))" " fold-var_107)))))" -" for-loop_160)" +" for-loop_158)" " null" -" lst_124)))))))" +" lst_123)))))))" "(define-values" "(check-not-defined95.1)" "(lambda(accum-update-nominals83_0" @@ -22578,8 +22613,8 @@ static const char *startup_source = "(let-values(((check-not-required?_0) check-not-required?78_0))" "(let-values(((allow-defined?_0) allow-defined?79_0))" "(let-values(((r+p_8) r+p92_0))" -"(let-values(((id_27) id93_0))" -"(let-values(((phase_58) phase94_0))" +"(let-values(((id_28) id93_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))" @@ -22587,7 +22622,7 @@ static const char *startup_source = "(let-values(((who_12) who84_0))" "(let-values()" "(let-values(((b_70)" -"(let-values(((id160_0) id_27)((phase161_0) phase_58)((temp162_0) #t))" +"(let-values(((id160_0) id_28)((phase161_0) phase_60)((temp162_0) #t))" "(resolve+shift28.1" " #f" " temp162_0" @@ -22599,7 +22634,7 @@ static const char *startup_source = "(if(not b_70)" "(let-values() #f)" "(if(not(module-binding? b_70))" -" (let-values () (raise-syntax-error$1 #f \"identifier out of context\" id_27))" +" (let-values () (raise-syntax-error$1 #f \"identifier out of context\" id_28))" "(let-values()" "(let-values(((defined?_0)" "(if b_70" @@ -22610,7 +22645,7 @@ static const char *startup_source = "(hash-ref" "(hash-ref" "(requires+provides-phase-to-defined-syms r+p_8)" -" phase_58" +" phase_60" " '#hasheq())" "(module-binding-sym b_70)" " #f))" @@ -22638,16 +22673,16 @@ static const char *startup_source = "(string-append" " \"identifier already \"" " (if defined?_1 \"defined\" \"required\")" -"(if(zero-phase? phase_58)" +"(if(zero-phase? phase_60)" " (let-values () \"\")" -"(if(label-phase? phase_58)" +"(if(label-phase? phase_60)" " (let-values () \" for label\")" -"(if(= 1 phase_58)" +"(if(= 1 phase_60)" " (let-values () \" for syntax\")" "(let-values()" -" (format \" for phase ~a\" phase_58))))))" +" (format \" for phase ~a\" phase_60))))))" " orig-s_1" -" id_27)))))" +" id_28)))))" "(if(if(not at-mod_4)(not define-shadowing-require?_0) #f)" "(let-values() #f)" "(if(if ok-binding_0(same-binding? b_70 ok-binding_0) #f)" @@ -22661,7 +22696,7 @@ static const char *startup_source = "(begin" " 'update!" "(let-values(((temp163_1) #t)" -"((id164_0) id_27)" +"((id164_0) id_28)" "((temp165_1)" "(let-values(((ok-binding167_0)" " ok-binding_0)" @@ -22683,7 +22718,7 @@ static const char *startup_source = " unsafe-undefined" " unsafe-undefined" " ok-binding167_0)))" -"((phase166_1) phase_58))" +"((phase166_1) phase_60))" "(add-binding!17.1" " #f" " temp163_1" @@ -22731,31 +22766,31 @@ static const char *startup_source = "(let-values(((reqds_2)" "(hash-ref" " sym-to-reqds_3" -"(syntax-e$1 id_27)" +"(syntax-e$1 id_28)" " null)))" "(let-values(((only-can-can-shadow-require?_0)" -"(let-values(((lst_126) reqds_2))" +"(let-values(((lst_125) reqds_2))" "(begin" "(void)" -"((letrec-values(((for-loop_162)" +"((letrec-values(((for-loop_160)" "(lambda(only-can-can-shadow-require?_1" -" lst_127)" +" lst_126)" "(begin" " 'for-loop" "(if(not" "(null?" -" lst_127))" +" lst_126))" "(let-values(((r_38)" "(if(pair?" -" lst_127)" +" lst_126)" "(car" -" lst_127)" -" lst_127))" -"((rest_64)" +" lst_126)" +" lst_126))" +"((rest_63)" "(if(pair?" -" lst_127)" +" lst_126)" "(cdr" -" lst_127)" +" lst_126)" " null)))" "(let-values(((only-can-can-shadow-require?_2)" "(let-values(((only-can-can-shadow-require?_3)" @@ -22784,14 +22819,14 @@ static const char *startup_source = " only-can-can-shadow-require?_4)))))" "(if(not" " #f)" -"(for-loop_162" +"(for-loop_160" " only-can-can-shadow-require?_2" -" rest_64)" +" rest_63)" " only-can-can-shadow-require?_2)))" " only-can-can-shadow-require?_1)))))" -" for-loop_162)" +" for-loop_160)" " #t" -" lst_126)))))" +" lst_125)))))" "(begin" "(if define-shadowing-require?_0" "(let-values()" @@ -22813,14 +22848,14 @@ static const char *startup_source = "(let-values()" "(hash-set!" " sym-to-reqds_3" -"(syntax-e$1 id_27)" +"(syntax-e$1 id_28)" "(remove-non-matching-requireds" " reqds_2" -" id_27" -" phase_58" +" id_28" +" phase_60" " mpi_34" " nominal-phase_6" -"(syntax-e$1 id_27))))" +"(syntax-e$1 id_28))))" "(void))))" " #f)))))))))))))))))))))))))))))))))))" "(define-values" @@ -22830,24 +22865,24 @@ 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_59) 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_59 '#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))" +"(let-values(((lst_127) syms_18))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_128)))" -"((letrec-values(((for-loop_163)" -"(lambda(defined-syms_3 lst_129)" +"(let-values()(check-list lst_127)))" +"((letrec-values(((for-loop_161)" +"(lambda(defined-syms_3 lst_128)" "(begin" " 'for-loop" -"(if(pair? lst_129)" -"(let-values(((sym_41)(unsafe-car lst_129))" -"((rest_65)(unsafe-cdr lst_129)))" +"(if(pair? lst_128)" +"(let-values(((sym_41)(unsafe-car lst_128))" +"((rest_64)(unsafe-cdr lst_128)))" "(let-values(((defined-syms_4)" "(let-values(((defined-syms_5)" " defined-syms_3))" @@ -22861,55 +22896,55 @@ static const char *startup_source = " 'variable)))))" "(values defined-syms_6)))))" "(if(not #f)" -"(for-loop_163 defined-syms_4 rest_65)" +"(for-loop_161 defined-syms_4 rest_64)" " defined-syms_4)))" " defined-syms_3)))))" -" for-loop_163)" +" for-loop_161)" " defined-syms_2" -" lst_128)))))" -"(hash-set! phase-to-defined-syms_0 phase_59 new-defined-syms_0))))))))))))" +" lst_127)))))" +"(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_60)" +"(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_60 '#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_61)" +"(lambda(r+p_11 mod-name_11 phase_63)" "(begin" "(let-values(((mpi_35)(intern-mpi r+p_11 mod-name_11)))" "(let-values(((at-mod_5)(hash-ref(requires+provides-requires r+p_11) mpi_35 #f)))" "(if at-mod_5" "(reverse$1" -"(let-values(((ht_103)(hash-ref at-mod_5 phase_61 '#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_164)" +"((letrec-values(((for-loop_162)" "(lambda(fold-var_114 i_130)" "(begin" " 'for-loop" "(if i_130" "(let-values(((sym_43 reqds_3)(hash-iterate-key+value ht_103 i_130)))" "(let-values(((fold-var_115)" -"(let-values(((lst_130) reqds_3))" +"(let-values(((lst_129) reqds_3))" "(begin" "(void)" -"((letrec-values(((for-loop_165)" -"(lambda(fold-var_116 lst_131)" +"((letrec-values(((for-loop_163)" +"(lambda(fold-var_116 lst_130)" "(begin" " 'for-loop" -"(if(not(null? lst_131))" +"(if(not(null? lst_130))" "(let-values(((reqd_1)" -"(if(pair? lst_131)" -"(car lst_131)" -" lst_131))" -"((rest_66)" -"(if(pair? lst_131)" -"(cdr lst_131)" +"(if(pair? lst_130)" +"(car lst_130)" +" lst_130))" +"((rest_65)" +"(if(pair? lst_130)" +"(cdr lst_130)" " null)))" "(let-values(((fold-var_117)" "(let-values(((fold-var_118)" @@ -22921,25 +22956,25 @@ static const char *startup_source = "(normalize-required" " reqd_1" " mpi_35" -" phase_61" +" phase_63" " sym_43))" " fold-var_118))))" "(values" " fold-var_119)))))" "(if(not #f)" -"(for-loop_165" +"(for-loop_163" " fold-var_117" -" rest_66)" +" rest_65)" " fold-var_117)))" " fold-var_116)))))" -" for-loop_165)" +" for-loop_163)" " fold-var_114" -" lst_130)))))" +" lst_129)))))" "(if(not #f)" -"(for-loop_164 fold-var_115(hash-iterate-next ht_103 i_130))" +"(for-loop_162 fold-var_115(hash-iterate-next ht_103 i_130))" " fold-var_115)))" " fold-var_114)))))" -" for-loop_164)" +" for-loop_162)" " null" "(hash-iterate-first ht_103)))))" " #f))))))" @@ -22951,25 +22986,25 @@ static const char *startup_source = "(if or-part_175 or-part_175 null)))))" "(define-values" "(extract-all-module-requires)" -"(lambda(r+p_13 mod-name_12 phase_62)" +"(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)))" "(call/ec" "(lambda(esc_0)" "(reverse$1" -"(let-values(((lst_132)(if mod-name_12(list(intern-mpi r+p_13 mod-name_12))(hash-keys requires_2))))" +"(let-values(((lst_131)(if mod-name_12(list(intern-mpi r+p_13 mod-name_12))(hash-keys requires_2))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_132)))" -"((letrec-values(((for-loop_166)" +"(let-values()(check-list lst_131)))" +"((letrec-values(((for-loop_164)" "(lambda(fold-var_46 lst_61)" "(begin" " 'for-loop" "(if(pair? lst_61)" "(let-values(((mod-name_13)(unsafe-car lst_61))" -"((rest_67)(unsafe-cdr lst_61)))" +"((rest_66)(unsafe-cdr lst_61)))" "(let-values(((fold-var_120)" "(let-values(((fold-var_121) fold-var_46))" "(if(eq? mod-name_13 self_9)" @@ -22981,7 +23016,7 @@ static const char *startup_source = " '#hasheqv())))" "(begin" " #t" -"((letrec-values(((for-loop_167)" +"((letrec-values(((for-loop_165)" "(lambda(fold-var_49)" "(begin" " 'for-loop" @@ -22989,12 +23024,12 @@ static const char *startup_source = "(let-values(((fold-var_50)" "(let-values(((lst_63)" "(if(eq?" -" phase_62" +" phase_64" " 'all)" "(hash-keys" " phase-to-requireds_0)" "(list" -" phase_62))))" +" phase_64))))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" @@ -23004,22 +23039,22 @@ static const char *startup_source = " lst_63)))" "((letrec-values(((for-loop_86)" "(lambda(fold-var_122" -" lst_133)" +" lst_132)" "(begin" " 'for-loop" "(if(pair?" -" lst_133)" -"(let-values(((phase_63)" +" lst_132)" +"(let-values(((phase_65)" "(unsafe-car" -" lst_133))" -"((rest_68)" +" lst_132))" +"((rest_67)" "(unsafe-cdr" -" lst_133)))" +" lst_132)))" "(let-values(((fold-var_123)" "(let-values(((ht_104)" "(hash-ref" " phase-to-requireds_0" -" phase_63" +" phase_65" "(lambda()" "(esc_0" " #f)))))" @@ -23030,7 +23065,7 @@ static const char *startup_source = "(let-values()" "(check-in-hash" " ht_104)))" -"((letrec-values(((for-loop_168)" +"((letrec-values(((for-loop_166)" "(lambda(fold-var_124" " i_131)" "(begin" @@ -23042,29 +23077,29 @@ static const char *startup_source = " ht_104" " i_131)))" "(let-values(((fold-var_125)" -"(let-values(((lst_134)" +"(let-values(((lst_133)" " reqds_4))" "(begin" "(void)" -"((letrec-values(((for-loop_169)" +"((letrec-values(((for-loop_167)" "(lambda(fold-var_126" -" lst_135)" +" lst_134)" "(begin" " 'for-loop" "(if(not" "(null?" -" lst_135))" +" lst_134))" "(let-values(((reqd_2)" "(if(pair?" -" lst_135)" +" lst_134)" "(car" -" lst_135)" -" lst_135))" -"((rest_69)" +" lst_134)" +" lst_134))" +"((rest_68)" "(if(pair?" -" lst_135)" +" lst_134)" "(cdr" -" lst_135)" +" lst_134)" " null)))" "(let-values(((fold-var_127)" "(let-values(((fold-var_128)" @@ -23076,31 +23111,31 @@ static const char *startup_source = "(normalize-required" " reqd_2" " mod-name_13" -" phase_63" +" phase_65" " sym_44))" " fold-var_128))))" "(values" " fold-var_129)))))" "(if(not" " #f)" -"(for-loop_169" +"(for-loop_167" " fold-var_127" -" rest_69)" +" rest_68)" " fold-var_127)))" " fold-var_126)))))" -" for-loop_169)" +" for-loop_167)" " fold-var_124" -" lst_134)))))" +" lst_133)))))" "(if(not" " #f)" -"(for-loop_168" +"(for-loop_166" " fold-var_125" "(hash-iterate-next" " ht_104" " i_131))" " fold-var_125)))" " fold-var_124)))))" -" for-loop_168)" +" for-loop_166)" " fold-var_122" "(hash-iterate-first" " ht_104))))))" @@ -23108,20 +23143,20 @@ static const char *startup_source = " #f)" "(for-loop_86" " fold-var_123" -" rest_68)" +" rest_67)" " fold-var_123)))" " fold-var_122)))))" " for-loop_86)" " fold-var_49" " lst_63)))))" " fold-var_50))))))" -" for-loop_167)" +" for-loop_165)" " fold-var_121)))))))" -"(if(not #f)(for-loop_166 fold-var_120 rest_67) fold-var_120)))" +"(if(not #f)(for-loop_164 fold-var_120 rest_66) fold-var_120)))" " fold-var_46)))))" -" for-loop_166)" +" for-loop_164)" " null" -" lst_132)))))))))))" +" lst_131)))))))))))" "(define-values" "(add-provide!117.1)" "(lambda(as-protected?106_0" @@ -23137,10 +23172,10 @@ 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_64) 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_28) id115_0))" +"(let-values(((id_29) id115_0))" "(let-values(((orig-s_2) orig-s116_0))" "(let-values(((as-protected?_0) as-protected?106_0))" "(let-values(((as-transformer?_3) as-transformer?107_0))" @@ -23154,7 +23189,7 @@ static const char *startup_source = "(void))" "(hash-update!" "(requires+provides-provides r+p_14)" -" phase_64" +" 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)))" @@ -23191,7 +23226,7 @@ static const char *startup_source = " #f" " \"identifier already provided (as a different binding)\"" " orig-s_2" -" id_28)))))))" +" id_29)))))))" " '#hasheq())))))))))))))))" "(define-values" "(extract-requires-and-provides)" @@ -23207,18 +23242,18 @@ static const char *startup_source = "((phasesym-set)" "(lambda(ids_3)" "(begin" -"(let-values(((lst_148) ids_3))" +"(let-values(((lst_147) ids_3))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_148)))" -"((letrec-values(((for-loop_176)" -"(lambda(table_135 lst_149)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_147)))" +"((letrec-values(((for-loop_174)" +"(lambda(table_136 lst_148)" "(begin" " 'for-loop" -"(if(pair? lst_149)" -"(let-values(((id_44)(unsafe-car lst_149))((rest_76)(unsafe-cdr lst_149)))" -"(let-values(((table_136)" -"(let-values(((table_137) table_135))" -"(let-values(((table_138)" +"(if(pair? lst_148)" +"(let-values(((id_44)(unsafe-car lst_148))((rest_75)(unsafe-cdr lst_148)))" +"(let-values(((table_137)" +"(let-values(((table_138) table_136))" +"(let-values(((table_139)" "(let-values()" "(let-values(((key_54 val_46)" "(let-values()" "(values" "(let-values()(syntax-e$1 id_44))" " #t))))" -"(hash-set table_137 key_54 val_46)))))" -"(values table_138)))))" -"(if(not #f)(for-loop_176 table_136 rest_76) table_136)))" -" table_135)))))" -" for-loop_176)" +"(hash-set table_138 key_54 val_46)))))" +"(values table_139)))))" +"(if(not #f)(for-loop_174 table_137 rest_75) table_137)))" +" table_136)))))" +" for-loop_174)" " '#hash()" -" lst_148))))))" +" lst_147))))))" "(define-values" "(perform-initial-require!42.1)" "(lambda(bind?33_0 who34_0 mod-path37_0 self38_0 in-stx39_0 m-ns40_0 requires+provides41_0)" @@ -25661,7 +25696,7 @@ static const char *startup_source = "(if update-nominals-box_0" "(let-values()" "(begin" -"(let-values(((lst_150)" +"(let-values(((lst_149)" "(unbox" " update-nominals-box_0)))" "(begin" @@ -25670,19 +25705,19 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_150)))" -"((letrec-values(((for-loop_177)" -"(lambda(lst_151)" +" lst_149)))" +"((letrec-values(((for-loop_175)" +"(lambda(lst_150)" "(begin" " 'for-loop" "(if(pair?" -" lst_151)" +" lst_150)" "(let-values(((update!_1)" "(unsafe-car" -" lst_151))" -"((rest_77)" +" lst_150))" +"((rest_76)" "(unsafe-cdr" -" lst_151)))" +" lst_150)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -25694,12 +25729,12 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_177" -" rest_77)" +"(for-loop_175" +" rest_76)" "(values))))" "(values))))))" -" for-loop_177)" -" lst_150)))" +" for-loop_175)" +" lst_149)))" "(void)))" "(void))" "(values))))" @@ -25738,7 +25773,7 @@ static const char *startup_source = "(let-values()" "(check-in-immutable-hash-keys" " ht_106)))" -"((letrec-values(((for-loop_178)" +"((letrec-values(((for-loop_176)" "(lambda(i_133)" "(begin" " 'for-loop" @@ -25768,13 +25803,13 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_178" +"(for-loop_176" "(unsafe-immutable-hash-iterate-next" " ht_106" " i_133))" "(values))))" "(values))))))" -" for-loop_178)" +" for-loop_176)" "(unsafe-immutable-hash-iterate-first" " ht_106))))" "(void)))" @@ -25823,7 +25858,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_179)" +"((letrec-values(((for-loop_177)" "(lambda(i_134)" "(begin" " 'for-loop" @@ -25848,7 +25883,7 @@ static const char *startup_source = "(let-values()" "(begin" "(let-values()" -"(let-values(((phase_67)" +"(let-values(((phase_69)" "(phase+" " phase-shift_11" " provide-phase-level_5)))" @@ -25864,7 +25899,7 @@ static const char *startup_source = "(if filter_0" "(let-values()" "(begin" -"(let-values(((lst_152)" +"(let-values(((lst_151)" "(let-values(((or-part_201)" " only-syms_0))" "(if or-part_201" @@ -25877,19 +25912,19 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_152)))" -"((letrec-values(((for-loop_180)" -"(lambda(lst_153)" +" lst_151)))" +"((letrec-values(((for-loop_178)" +"(lambda(lst_152)" "(begin" " 'for-loop" "(if(pair?" -" lst_153)" +" lst_152)" "(let-values(((sym_49)" "(unsafe-car" -" lst_153))" -"((rest_78)" +" lst_152))" +"((rest_77)" "(unsafe-cdr" -" lst_153)))" +" lst_152)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -25940,7 +25975,7 @@ static const char *startup_source = "((b300_0)" " b_72)" "((phase301_0)" -" phase_67))" +" phase_69))" "(add-binding!17.1" " #f" " #f" @@ -25953,12 +25988,12 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_180" -" rest_78)" +"(for-loop_178" +" rest_77)" "(values))))" "(values))))))" -" for-loop_180)" -" lst_152)))" +" for-loop_178)" +" lst_151)))" "(void)))" "(void))" "(if can-bulk?_0" @@ -25998,7 +26033,7 @@ static const char *startup_source = " phase-shift_11" " bulk-binding-registry_10))" "((phase304_0)" -" phase_67)" +" phase_69)" "((orig-s305_0)" " orig-s_15)" "((temp306_0)" @@ -26017,11 +26052,11 @@ static const char *startup_source = "(values)))" "(values)))))" "(if(not #f)" -"(for-loop_179" +"(for-loop_177" "(hash-iterate-next ht_107 i_134))" "(values))))" "(values))))))" -" for-loop_179)" +" for-loop_177)" "(hash-iterate-first ht_107))))" "(void)))))))))))))))))))))))" "(define-values" @@ -26377,11 +26412,11 @@ static const char *startup_source = " #f" " 'constant" " top-level-bind!-id" -"(lambda(id_19 mpi_39 orig-phase_0 phase-shift_13 ns_51 sym_51 trans?_0 trans-val_0)" -"(let-values(((phase_68)(phase+ orig-phase_0 phase-shift_13)))" +"(lambda(id_20 mpi_39 orig-phase_0 phase-shift_13 ns_51 sym_51 trans?_0 trans-val_0)" +"(let-values(((phase_70)(phase+ orig-phase_0 phase-shift_13)))" "(let-values(((b_73)" "(let-values(((mpi4_1) mpi_39)" -"((phase5_1) phase_68)" +"((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" @@ -26398,14 +26433,14 @@ static const char *startup_source = " phase5_1" " sym6_1))))" "(begin" -"(let-values(((id1_3) id_19)((b2_4) b_73)((phase3_2) phase_68))" +"(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_19 phase_68))(void)))" -"(let-values()(namespace-unset-transformer! ns_51 phase_68 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_12 ns_52)" -"(let-values(((reqs_2)(cdr(syntax->list$1 stx_12))))" +"(lambda(stx_13 ns_52)" +"(let-values(((reqs_2)(cdr(syntax->list$1 stx_13))))" "(let-values(((temp8_1) #t)" "((temp9_1) #f)" "((reqs10_0) reqs_2)" @@ -26533,9 +26568,9 @@ static const char *startup_source = "(datum->syntax$1 #f(vector post-expansion-s_0 other-s_0))))))))" "(define-values" "(decode-namespace-scopes)" -"(lambda(stx_13)" +"(lambda(stx_14)" "(begin" -"(let-values(((vec_54)(syntax-e$1 stx_13)))" +"(let-values(((vec_54)(syntax-e$1 stx_14)))" "(values(syntax-scope-set(vector-ref vec_54 0) 0)(syntax-scope-set(vector-ref vec_54 1) 0))))))" "(define-values" "(namespace-scopes=?)" @@ -26649,7 +26684,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_181)" +"((letrec-values(((for-loop_179)" "(lambda(pos_86)" "(begin" " 'for-loop" @@ -26664,9 +26699,9 @@ static const char *startup_source = "(add-syntax-literal! sl_1 e_11))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_181(unsafe-fx+ 1 pos_86))(values))))" +"(if(not #f)(for-loop_179(unsafe-fx+ 1 pos_86))(values))))" "(values))))))" -" for-loop_181)" +" for-loop_179)" " 0)))" "(void)" "(cons pos_85(vector-length vec_55)))))))" @@ -26823,29 +26858,29 @@ static const char *startup_source = " 'register-required-variable-use!19" "(let-values(((header_2) header14_0))" "(let-values(((mpi_40) mpi15_0))" -"(let-values(((phase_69) phase16_1))" -"(let-values(((sym_21) sym17_0))" +"(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_40 phase_69) sym_21)))" +"(let-values(((key_55)(variable-use3.1(module-use1.1 mpi_40 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)" "(let-values(((or-part_204) prev-var-sym_0))" "(if or-part_204" " or-part_204" -"(let-values(((sym_54)(select-fresh(variable-use-sym key_55) header_2)))" +"(let-values(((sym_55)(select-fresh(variable-use-sym key_55) header_2)))" "(begin" -"(hash-set! variable-uses_0 key_55 sym_54)" +"(hash-set! variable-uses_0 key_55 sym_55)" "(set-header-require-vars-in-order!" " header_2" "(cons key_55(header-require-vars-in-order header_2)))" "(hash-set!" "(header-define-and-import-syms header_2)" -" sym_54" +" sym_55" "(if defined?_2 'defined 'required))" -" sym_54))))))" +" sym_55))))))" "(begin" "(if(if extra-inspector_4(not prev-var-sym_0) #f)" "(let-values()" @@ -26853,7 +26888,7 @@ static const char *startup_source = "(hash-update!" " extra-inspectors_0" " var-sym_0" -"(lambda(s_165)(set-add s_165 extra-inspector_4))" +"(lambda(s_305)(set-add s_305 extra-inspector_4))" " '#hasheq())))" "(void))" " var-sym_0)))))))))))))))" @@ -26866,21 +26901,21 @@ 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_37 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)))" +"(let-values(((lst_153)(header-require-vars-in-order header_5)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_154)))" -"((letrec-values(((for-loop_182)" -"(lambda(ht_108 link-mod-uses_1 lst_155)" +"(let-values()(check-list lst_153)))" +"((letrec-values(((for-loop_180)" +"(lambda(ht_108 link-mod-uses_1 lst_154)" "(begin" " 'for-loop" -"(if(pair? lst_155)" -"(let-values(((vu_0)(unsafe-car lst_155))" -"((rest_79)(unsafe-cdr lst_155)))" +"(if(pair? lst_154)" +"(let-values(((vu_0)(unsafe-car lst_154))" +"((rest_78)(unsafe-cdr lst_154)))" "(let-values(((ht_109 link-mod-uses_2)" "(let-values(((ht_110) ht_108)" "((link-mod-uses_3) link-mod-uses_1))" @@ -26913,25 +26948,25 @@ static const char *startup_source = "(cons mu_2 link-mod-uses_3)))))))" "(values ht_111 link-mod-uses_4)))))" "(if(not #f)" -"(for-loop_182 ht_109 link-mod-uses_2 rest_79)" +"(for-loop_180 ht_109 link-mod-uses_2 rest_78)" "(values ht_109 link-mod-uses_2))))" "(values ht_108 link-mod-uses_1))))))" -" for-loop_182)" +" for-loop_180)" " '#hash()" " null" -" lst_154)))))" +" lst_153)))))" "(values" " link-mod-uses_0" "(reverse$1" "(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_183)" +"((letrec-values(((for-loop_181)" "(lambda(fold-var_139 lst_108)" "(begin" " 'for-loop" "(if(pair? lst_108)" -"(let-values(((mu_3)(unsafe-car lst_108))((rest_80)(unsafe-cdr lst_108)))" +"(let-values(((mu_3)(unsafe-car lst_108))((rest_79)(unsafe-cdr lst_108)))" "(let-values(((fold-var_140)" "(let-values(((fold-var_141) fold-var_139))" "(let-values(((fold-var_142)" @@ -27002,21 +27037,21 @@ static const char *startup_source = " lst_52)))))" " fold-var_141))))" "(values fold-var_142)))))" -"(if(not #f)(for-loop_183 fold-var_140 rest_80) fold-var_140)))" +"(if(not #f)(for-loop_181 fold-var_140 rest_79) fold-var_140)))" " fold-var_139)))))" -" for-loop_183)" +" for-loop_181)" " null" " lst_33))))" "(reverse$1" -"(let-values(((lst_156) link-mod-uses_0))" +"(let-values(((lst_155) link-mod-uses_0))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_156)))" -"((letrec-values(((for-loop_184)" -"(lambda(fold-var_144 lst_157)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_155)))" +"((letrec-values(((for-loop_182)" +"(lambda(fold-var_144 lst_156)" "(begin" " 'for-loop" -"(if(pair? lst_157)" -"(let-values(((mu_4)(unsafe-car lst_157))((rest_81)(unsafe-cdr lst_157)))" +"(if(pair? lst_156)" +"(let-values(((mu_4)(unsafe-car lst_156))((rest_80)(unsafe-cdr lst_156)))" "(let-values(((fold-var_145)" "(let-values(((fold-var_146) fold-var_144))" "(let-values(((fold-var_147)" @@ -27024,7 +27059,7 @@ static const char *startup_source = "(cons" "(let-values()" "(let-values(((extra-inspectorss_0)" -"(let-values(((lst_55)" +"(let-values(((lst_157)" "(header-require-vars-in-order" " header_5)))" "(begin" @@ -27032,9 +27067,9 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()" -"(check-list lst_55)))" -"((letrec-values(((for-loop_185)" -"(lambda(table_139" +"(check-list lst_157)))" +"((letrec-values(((for-loop_183)" +"(lambda(table_140" " lst_113)" "(begin" " 'for-loop" @@ -27046,9 +27081,9 @@ static const char *startup_source = "((rest_56)" "(unsafe-cdr" " lst_113)))" -"(let-values(((table_140)" "(let-values(((table_141)" -" table_139))" +"(let-values(((table_142)" +" table_140))" "(if(equal?" " mu_4" "(variable-use-module-use" @@ -27060,7 +27095,7 @@ static const char *startup_source = " vu_2)))" "(begin" " #t" -"((letrec-values(((for-loop_186)" +"((letrec-values(((for-loop_184)" "(lambda(table_31)" "(begin" " 'for-loop" @@ -27074,22 +27109,22 @@ static const char *startup_source = " #f)))" "(begin" " #t" -"((letrec-values(((for-loop_187)" -"(lambda(table_142)" +"((letrec-values(((for-loop_185)" +"(lambda(table_143)" "(begin" " 'for-loop" "(let-values()" "(let-values(((table_33)" -"(let-values(((table_143)" -" table_142))" +"(let-values(((table_144)" +" table_143))" "(if(let-values(((or-part_207)" " extra-inspectors_1))" "(if or-part_207" " or-part_207" " cross-linklet-inlining?_0))" -"(let-values(((table_144)" -" table_143))" "(let-values(((table_145)" +" table_144))" +"(let-values(((table_146)" "(let-values()" "(let-values(((key_56" " val_48)" @@ -27098,49 +27133,49 @@ static const char *startup_source = " var-sym_3" " extra-inspectors_1))))" "(hash-set" -" table_144" +" table_145" " key_56" " val_48)))))" "(values" -" table_145)))" -" table_143))))" +" table_146)))" +" table_144))))" " table_33))))))" -" for-loop_187)" +" for-loop_185)" " table_31)))))" " table_32))))))" -" for-loop_186)" -" table_141)))" -" table_141))))" +" for-loop_184)" +" table_142)))" +" table_142))))" "(if(not" " #f)" -"(for-loop_185" -" table_140" +"(for-loop_183" +" table_141" " rest_56)" -" table_140)))" -" table_139)))))" -" for-loop_185)" +" table_141)))" +" table_140)))))" +" for-loop_183)" " '#hash()" -" lst_55)))))" +" lst_157)))))" "(if(hash-count extra-inspectorss_0)" " extra-inspectorss_0" " #f)))" " fold-var_146))))" "(values fold-var_147)))))" -"(if(not #f)(for-loop_184 fold-var_145 rest_81) fold-var_145)))" +"(if(not #f)(for-loop_182 fold-var_145 rest_80) fold-var_145)))" " fold-var_144)))))" -" for-loop_184)" +" for-loop_182)" " null" -" lst_156))))" +" lst_155))))" "(reverse$1" "(let-values(((lst_158)(header-require-vars-in-order header_5)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_158)))" -"((letrec-values(((for-loop_188)" +"((letrec-values(((for-loop_186)" "(lambda(fold-var_148 lst_159)" "(begin" " 'for-loop" "(if(pair? lst_159)" -"(let-values(((vu_3)(unsafe-car lst_159))((rest_82)(unsafe-cdr lst_159)))" +"(let-values(((vu_3)(unsafe-car lst_159))((rest_81)(unsafe-cdr lst_159)))" "(let-values(((fold-var_149)" "(let-values(((fold-var_150) fold-var_148))" "(if(let-values(((mod_2)" @@ -27169,9 +27204,9 @@ static const char *startup_source = " fold-var_151))))" "(values fold-var_152)))" " fold-var_150))))" -"(if(not #f)(for-loop_188 fold-var_149 rest_82) fold-var_149)))" +"(if(not #f)(for-loop_186 fold-var_149 rest_81) fold-var_149)))" " fold-var_148)))))" -" for-loop_188)" +" for-loop_186)" " null" " lst_158)))))))))" "(define-values" @@ -27185,7 +27220,7 @@ static const char *startup_source = "(let-values(((ns_55) namespace1_0))" "(let-values(((phase-shift_14) phase-shift2_0))" "(let-values(((self_15) self3_0))" -"(let-values(((inspector_10) inspector4_0))" +"(let-values(((inspector_11) inspector4_0))" "(let-values(((bulk-binding-registry_11) bulk-binding-registry5_0))" "(let-values(((set-transformer!_0) set-transformer!6_0))" "(let-values()" @@ -27200,7 +27235,7 @@ static const char *startup_source = " self-id" " self_15" " inspector-id" -" inspector_10" +" inspector_11" " bulk-binding-registry-id" " bulk-binding-registry_11" " set-transformer!-id" @@ -27240,7 +27275,7 @@ static const char *startup_source = "(let-values(((dest-phase_0) dest-phase2_0))" "(let-values(((self_16) self3_1))" "(let-values(((bulk-binding-registry_12) bulk-binding-registry4_0))" -"(let-values(((inspector_11) inspector5_0))" +"(let-values(((inspector_12) inspector5_0))" "(let-values()" "(1/make-instance" " 'instance" @@ -27255,7 +27290,7 @@ static const char *startup_source = " bulk-binding-registry-id" " bulk-binding-registry_12" " inspector-id" -" inspector_11" +" inspector_12" " 'swap-top-level-scopes" " swap-top-level-scopes))))))))))" "(define-values" @@ -27317,7 +27352,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_163)(syntax-property$2 e_32 k_32 v_163))))" +"((e_32 k_32 v_164)(syntax-property$2 e_32 k_32 v_164))))" "(define-values" "(to-syntax-list.1$1)" "(lambda(s_109)" @@ -27337,13 +27372,13 @@ static const char *startup_source = " #f))))" "(define-values" "(correlate*)" -"(lambda(stx_14 s-exp_0)" -"(begin(if(syntax-srcloc stx_14)(datum->correlated s-exp_0(srcloc->vector(syntax-srcloc stx_14))) s-exp_0))))" -"(define-values(correlate~)(lambda(stx_15 s-exp_1)(begin s-exp_1)))" +"(lambda(stx_15 s-exp_0)" +"(begin(if(syntax-srcloc stx_15)(datum->correlated s-exp_0(srcloc->vector(syntax-srcloc stx_15))) s-exp_0))))" +"(define-values(correlate~)(lambda(stx_16 s-exp_1)(begin s-exp_1)))" "(define-values" "(correlate/app)" -"(lambda(stx_16 s-exp_2)" -"(begin(if(eq?(system-type 'vm) 'chez-scheme)(correlate* stx_16 s-exp_2)(correlate~ stx_16 s-exp_2)))))" +"(lambda(stx_17 s-exp_2)" +"(begin(if(eq?(system-type 'vm) 'chez-scheme)(correlate* stx_17 s-exp_2)(correlate~ stx_17 s-exp_2)))))" "(define-values(->correlated)(lambda(s_2)(begin(datum->correlated s_2 #f))))" "(define-values" "(compile$2)" @@ -27359,7 +27394,7 @@ static const char *startup_source = "(let-values(((compile_0)" "(lambda(p_38 name_4 result-used?_1)" "(begin 'compile(compile$2 p_38 cctx_1 name_4 result-used?_1)))))" -"(let-values(((s_170)(parsed-s p_37)))" +"(let-values(((s_171)(parsed-s p_37)))" "(if(parsed-id? p_37)" "(let-values()" "(let-values(((p25_0) p_37)((cctx26_0) cctx_1))" @@ -27370,7 +27405,7 @@ static const char *startup_source = "(let-values()" "(add-lambda-properties" "(correlate*" -" s_170" +" s_171" "(list*" " 'lambda" "(compile-lambda" @@ -27378,15 +27413,15 @@ static const char *startup_source = "(parsed-lambda-body p_37)" " cctx_1)))" " name_40" -" s_170))" -"(let-values()(correlate~ s_170 ''unused-lambda))))" +" s_171))" +"(let-values()(correlate~ s_171 ''unused-lambda))))" "(if(parsed-case-lambda? p_37)" "(let-values()" "(if result-used?_0" "(let-values()" "(add-lambda-properties" "(correlate*" -" s_170" +" s_171" "(list*" " 'case-lambda" "(reverse$1" @@ -27428,13 +27463,13 @@ static const char *startup_source = " null" " lst_86))))))" " name_40" -" s_170))" -"(let-values()(correlate~ s_170 ''unused-case-lambda))))" +" s_171))" +"(let-values()(correlate~ s_171 ''unused-case-lambda))))" "(if(parsed-app? p_37)" "(let-values()" "(let-values(((rands_0)(parsed-app-rands p_37)))" "(correlate/app" -" s_170" +" s_171" "(cons" "(compile_0(parsed-app-rator p_37) #f #t)" "(reverse$1" @@ -27443,13 +27478,13 @@ 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_187)" "(lambda(fold-var_153 lst_160)" "(begin" " 'for-loop" "(if(pair? lst_160)" "(let-values(((r_40)(unsafe-car lst_160))" -"((rest_83)" +"((rest_82)" "(unsafe-cdr lst_160)))" "(let-values(((fold-var_33)" "(let-values(((fold-var_34)" @@ -27466,10 +27501,10 @@ static const char *startup_source = "(values" " fold-var_154)))))" "(if(not #f)" -"(for-loop_189 fold-var_33 rest_83)" +"(for-loop_187 fold-var_33 rest_82)" " fold-var_33)))" " fold-var_153)))))" -" for-loop_189)" +" for-loop_187)" " null" " lst_88))))))))" "(if(parsed-if? p_37)" @@ -27483,7 +27518,7 @@ static const char *startup_source = "(compile_0(parsed-if-els p_37) name_40 result-used?_0))" "(let-values()" "(correlate~" -" s_170" +" s_171" "(list" " 'if" " tst-e_0" @@ -27492,7 +27527,7 @@ static const char *startup_source = "(if(parsed-with-continuation-mark? p_37)" "(let-values()" "(correlate~" -" s_170" +" s_171" "(list" " 'with-continuation-mark" "(compile_0(parsed-with-continuation-mark-key p_37) #f #t)" @@ -27504,7 +27539,7 @@ static const char *startup_source = "(if(parsed-begin0? p_37)" "(let-values()" "(correlate~" -" s_170" +" s_171" "(list*" " 'begin0" "(compile_0(car(parsed-begin0-body p_37)) name_40 result-used?_0)" @@ -27514,14 +27549,14 @@ 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_188)" "(lambda(fold-var_155 lst_79)" "(begin" " 'for-loop" "(if(pair? lst_79)" "(let-values(((e_33)" "(unsafe-car lst_79))" -"((rest_84)" +"((rest_83)" "(unsafe-cdr lst_79)))" "(let-values(((fold-var_156)" "(let-values(((fold-var_94)" @@ -27538,18 +27573,18 @@ static const char *startup_source = "(values" " fold-var_95)))))" "(if(not #f)" -"(for-loop_190" +"(for-loop_188" " fold-var_156" -" rest_84)" +" rest_83)" " fold-var_156)))" " fold-var_155)))))" -" for-loop_190)" +" for-loop_188)" " null" " lst_23)))))))" "(if(parsed-begin? p_37)" "(let-values()" "(correlate~" -" s_170" +" s_171" "(compile-begin" "(parsed-begin-body p_37)" " cctx_1" @@ -27558,7 +27593,7 @@ static const char *startup_source = "(if(parsed-set!? p_37)" "(let-values()" "(correlate~" -" s_170" +" s_171" "(let-values(((temp27_4)(parsed-set!-id p_37))" "((cctx28_0) cctx_1)" "((temp29_1) #t)" @@ -27598,9 +27633,9 @@ static const char *startup_source = "(let-values()" "(let-values(((datum_1)(parsed-quote-datum p_37)))" "(if(self-quoting-in-linklet? datum_1)" -"(let-values()(correlate~ s_170 datum_1))" +"(let-values()(correlate~ s_171 datum_1))" "(let-values()" -"(correlate~ s_170(list 'quote datum_1))))))" +"(correlate~ s_171(list 'quote datum_1))))))" "(if(parsed-quote-syntax? p_37)" "(let-values()" "(if result-used?_0" @@ -27608,14 +27643,14 @@ static const char *startup_source = "(parsed-quote-syntax-datum p_37)" " cctx_1)" "(correlate~" -" s_170" -"(list 'quote(syntax->datum$1 s_170)))))" +" s_171" +"(list 'quote(syntax->datum$1 s_171)))))" "(if(parsed-#%variable-reference? p_37)" "(let-values()" "(let-values(((id_45)" "(parsed-#%variable-reference-id p_37)))" "(correlate~" -" s_170" +" s_171" "(if id_45" "(list" " '#%variable-reference" @@ -27654,13 +27689,13 @@ 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_189)" "(lambda(fold-var_157 lst_162 pos_91)" "(begin" " 'for-loop" "(if(if(pair? lst_162) #t #f)" "(let-values(((e_4)(unsafe-car lst_162))" -"((rest_85)(unsafe-cdr lst_162))" +"((rest_84)(unsafe-cdr lst_162))" "((i_135) pos_91))" "(let-values(((fold-var_158)" "(let-values(((fold-var_159) fold-var_157))" @@ -27677,25 +27712,25 @@ static const char *startup_source = "(if used?_0 result-used?_3 #f))))" " fold-var_159))))" "(values fold-var_160)))))" -"(if(not #f)(for-loop_191 fold-var_158 rest_85(+ pos_91 1)) fold-var_158)))" +"(if(not #f)(for-loop_189 fold-var_158 rest_84(+ pos_91 1)) fold-var_158)))" " fold-var_157)))))" -" for-loop_191)" +" for-loop_189)" " null" " lst_161" " start_33)))))))))" "(define-values" "(add-lambda-properties)" -"(lambda(s_305 inferred-name_0 orig-s_21)" +"(lambda(s_306 inferred-name_0 orig-s_21)" "(begin" "(letrec-values(((simplify-name_0)" -"(lambda(v_164)" +"(lambda(v_93)" "(begin" " 'simplify-name" -"(if(pair? v_164)" +"(if(pair? v_93)" "(let-values()" -"(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(((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(((name_44)" "(let-values(((or-part_209)" "(let-values(((v_54)" @@ -27711,10 +27746,10 @@ static const char *startup_source = "(let-values(((named-s_0)" "(if name_44" "(correlated-property" -"(->correlated s_305)" +"(->correlated s_306)" " 'inferred-name" "(if(syntax?$1 name_44)(syntax-e$1 name_44) name_44))" -" s_305)))" +" s_306)))" "(let-values(((as-method_0)(syntax-property$1 orig-s_21 'method-arity-error)))" "(if as-method_0" "(correlated-property(->correlated named-s_0) 'method-arity-error as-method_0)" @@ -27745,15 +27780,15 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_164)))" -"((letrec-values(((for-loop_192)" +"((letrec-values(((for-loop_190)" "(lambda(fold-var_161 lst_165 lst_166)" "(begin" " 'for-loop" "(if(if(pair? lst_165)(pair? lst_166) #f)" "(let-values(((clause_1)(unsafe-car lst_165))" -"((rest_86)(unsafe-cdr lst_165))" +"((rest_85)(unsafe-cdr lst_165))" "((ids_4)(unsafe-car lst_166))" -"((rest_87)(unsafe-cdr lst_166)))" +"((rest_86)(unsafe-cdr lst_166)))" "(let-values(((fold-var_162)" "(let-values(((fold-var_163) fold-var_161))" "(let-values(((fold-var_164)" @@ -27781,7 +27816,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_168)))" -"((letrec-values(((for-loop_78)" +"((letrec-values(((for-loop_191)" "(lambda(fold-var_165" " lst_169" " lst_170)" @@ -27792,16 +27827,16 @@ static const char *startup_source = "(pair?" " lst_170)" " #f)" -"(let-values(((sym_55)" +"(let-values(((sym_56)" "(unsafe-car" " lst_169))" -"((rest_88)" +"((rest_87)" "(unsafe-cdr" " lst_169))" "((id_46)" "(unsafe-car" " lst_170))" -"((rest_89)" +"((rest_88)" "(unsafe-cdr" " lst_170)))" "(let-values(((fold-var_2)" @@ -27812,20 +27847,20 @@ static const char *startup_source = "(cons" "(let-values()" "(add-undefined-error-name-property" -" sym_55" +" sym_56" " id_46))" " fold-var_3))))" "(values" " fold-var_97)))))" "(if(not" " #f)" -"(for-loop_78" +"(for-loop_191" " fold-var_2" -" rest_88" -" rest_89)" +" rest_87" +" rest_88)" " fold-var_2)))" " fold-var_165)))))" -" for-loop_78)" +" for-loop_191)" " null" " lst_167" " lst_168))))" @@ -27839,19 +27874,19 @@ static const char *startup_source = " fold-var_163))))" "(values fold-var_164)))))" "(if(not #f)" -"(for-loop_192 fold-var_162 rest_86 rest_87)" +"(for-loop_190 fold-var_162 rest_85 rest_86)" " fold-var_162)))" " fold-var_161)))))" -" for-loop_192)" +" for-loop_190)" " null" " lst_163" " lst_164))))" "(compile-sequence body_0 cctx_8 name_45 result-used?_4)))))))))))))" "(define-values" "(add-undefined-error-name-property)" -"(lambda(sym_21 orig-id_0)" +"(lambda(sym_54 orig-id_0)" "(begin" -"(let-values(((id_47)(correlate~ orig-id_0 sym_21)))" +"(let-values(((id_47)(correlate~ orig-id_0 sym_54)))" "(correlated-property" "(->correlated id_47)" " 'undefined-error-name" @@ -27874,7 +27909,7 @@ static const char *startup_source = " or-part_213" "(let-values(((temp43_0)(compile-context-self cctx_9))" "((temp44_0)(compile-context-phase cctx_9))" -"((temp45_1)(syntax-e$1(parsed-s p_43))))" +"((temp45_0)(syntax-e$1(parsed-s p_43))))" "(make-module-binding22.1" " #f" " null" @@ -27887,8 +27922,8 @@ static const char *startup_source = " unsafe-undefined" " temp43_0" " temp44_0" -" temp45_1))))))" -"(let-values(((sym_56)" +" temp45_0))))))" +"(let-values(((sym_57)" "(if(local-binding? b_74)" "(let-values()(local-binding-key b_74))" "(if(module-binding? b_74)" @@ -27920,7 +27955,7 @@ static const char *startup_source = "(let-values()" "(let-values(((temp46_0)(compile-context-header cctx_9))" "((mpi47_0) mpi_41)" -"((temp48_1)(module-binding-phase b_74))" +"((temp48_0)(module-binding-phase b_74))" "((temp49_0)(module-binding-sym b_74))" "((temp50_0)" "(let-values(((or-part_214)" @@ -27938,7 +27973,7 @@ static const char *startup_source = " #f" " temp46_0" " mpi47_0" -" temp48_1" +" temp48_0" " temp49_0" " temp50_0)))))))" "(let-values()" @@ -27946,7 +27981,7 @@ static const char *startup_source = " \"not a reference to a module or local binding:\"" " b_74" "(parsed-s p_43)))))))" -"(correlate~(parsed-s p_43)(if set-to?_0(list 'set! sym_56 rhs_0) sym_56)))))))))))))" +"(correlate~(parsed-s p_43)(if set-to?_0(list 'set! sym_57 rhs_0) sym_57)))))))))))))" "(define-values" "(compile-quote-syntax)" "(lambda(q_1 cctx_10)" @@ -27969,24 +28004,24 @@ static const char *startup_source = "(void)" "(let-values()(check-in-immutable-hash-keys ht_112)))" "((letrec-values(((for-loop_95)" -"(lambda(result_77 i_136)" +"(lambda(result_76 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_78)" +"(let-values(((result_77)" "(let-values()" -"(let-values(((result_79)" +"(let-values(((result_78)" "(let-values()" "(let-values()" "(inspector-superior?" " extra-insp_0" " guard-insp_0)))))" -"(values result_79)))))" -"(if(if(not((lambda x_56(not result_78)) extra-insp_0))(not #f) #f)" -"(for-loop_95 result_78(unsafe-immutable-hash-iterate-next ht_112 i_136))" -" result_78)))" -" result_77)))))" +"(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)" " #t" "(unsafe-immutable-hash-iterate-first ht_112)))))" @@ -28059,7 +28094,7 @@ static const char *startup_source = " 'for-loop" "(if(if(pair? lst_91)(pair? lst_171) #f)" "(let-values(((mu_5)(unsafe-car lst_91))" -"((rest_90)(unsafe-cdr lst_91))" +"((rest_89)(unsafe-cdr lst_91))" "((extra-inspectorss_1)(unsafe-car lst_171))" "((rest_37)(unsafe-cdr lst_171)))" "(let-values(((fold-var_166)" @@ -28075,7 +28110,7 @@ static const char *startup_source = " #f))" " fold-var_167))))" "(values fold-var_168)))))" -"(if(not #f)(for-loop_108 fold-var_166 rest_90 rest_37) fold-var_166)))" +"(if(not #f)(for-loop_108 fold-var_166 rest_89 rest_37) fold-var_166)))" " fold-var_11)))))" " for-loop_108)" " null" @@ -28086,12 +28121,12 @@ 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_193)" +"((letrec-values(((for-loop_192)" "(lambda(fold-var_169 lst_17)" "(begin" " 'for-loop" "(if(pair? lst_17)" -"(let-values(((mu_6)(unsafe-car lst_17))((rest_91)(unsafe-cdr lst_17)))" +"(let-values(((mu_6)(unsafe-car lst_17))((rest_90)(unsafe-cdr lst_17)))" "(let-values(((fold-var_74)" "(let-values(((fold-var_64) fold-var_169))" "(let-values(((fold-var_170)" @@ -28105,9 +28140,9 @@ static const char *startup_source = " #f))" " fold-var_64))))" "(values fold-var_170)))))" -"(if(not #f)(for-loop_193 fold-var_74 rest_91) fold-var_74)))" +"(if(not #f)(for-loop_192 fold-var_74 rest_90) fold-var_74)))" " fold-var_169)))))" -" for-loop_193)" +" for-loop_192)" " null" " lst_92)))))))))" "(define-values" @@ -28118,12 +28153,12 @@ static const char *startup_source = "(let-values(((lst_172) mu*s_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_172)))" -"((letrec-values(((for-loop_194)" +"((letrec-values(((for-loop_193)" "(lambda(fold-var_76 lst_173)" "(begin" " 'for-loop" "(if(pair? lst_173)" -"(let-values(((mu*_0)(unsafe-car lst_173))((rest_92)(unsafe-cdr lst_173)))" +"(let-values(((mu*_0)(unsafe-car lst_173))((rest_91)(unsafe-cdr lst_173)))" "(let-values(((fold-var_17)" "(let-values(((fold-var_66) fold-var_76))" "(let-values(((fold-var_67)" @@ -28135,9 +28170,9 @@ static const char *startup_source = "(module-use-phase mu*_0)))" " fold-var_66))))" "(values fold-var_67)))))" -"(if(not #f)(for-loop_194 fold-var_17 rest_92) fold-var_17)))" +"(if(not #f)(for-loop_193 fold-var_17 rest_91) fold-var_17)))" " fold-var_76)))))" -" for-loop_194)" +" for-loop_193)" " null" " lst_172)))))))" "(define-values" @@ -28150,12 +28185,12 @@ static const char *startup_source = "(let-values(((lst_174) mu*s_1))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_174)))" -"((letrec-values(((for-loop_195)" +"((letrec-values(((for-loop_194)" "(lambda(fold-var_79 lst_96)" "(begin" " 'for-loop" "(if(pair? lst_96)" -"(let-values(((mu*_1)(unsafe-car lst_96))((rest_93)(unsafe-cdr lst_96)))" +"(let-values(((mu*_1)(unsafe-car lst_96))((rest_92)(unsafe-cdr lst_96)))" "(let-values(((fold-var_171)" "(let-values(((fold-var_4) fold-var_79))" "(let-values(((fold-var_68)" @@ -28165,9 +28200,9 @@ static const char *startup_source = "(module-use*-extra-inspectorss mu*_1))" " fold-var_4))))" "(values fold-var_68)))))" -"(if(not #f)(for-loop_195 fold-var_171 rest_93) fold-var_171)))" +"(if(not #f)(for-loop_194 fold-var_171 rest_92) fold-var_171)))" " fold-var_79)))))" -" for-loop_195)" +" for-loop_194)" " null" " lst_174)))))" "(let-values()" @@ -28182,9 +28217,9 @@ static const char *startup_source = " 'for-loop" "(if(if(pair? lst_177)(pair? lst_161) #f)" "(let-values(((mu*_2)(unsafe-car lst_177))" -"((rest_94)(unsafe-cdr lst_177))" +"((rest_93)(unsafe-cdr lst_177))" "((imports_0)(unsafe-car lst_161))" -"((rest_95)(unsafe-cdr lst_161)))" +"((rest_94)(unsafe-cdr lst_161)))" "(let-values(((fold-var_172)" "(let-values(((fold-var_173) fold-var_6))" "(let-values(((fold-var_174)" @@ -28210,7 +28245,7 @@ static const char *startup_source = "(let-values(((import_0)" "(unsafe-car" " lst_178))" -"((rest_96)" +"((rest_95)" "(unsafe-cdr" " lst_178)))" "(let-values(((extra-inspectorss_4)" @@ -28239,7 +28274,7 @@ static const char *startup_source = " #f)" "(for-loop_19" " extra-inspectorss_4" -" rest_96)" +" rest_95)" " extra-inspectorss_4)))" " extra-inspectorss_3)))))" " for-loop_19)" @@ -28247,7 +28282,7 @@ static const char *startup_source = " lst_99)))))" " fold-var_173))))" "(values fold-var_174)))))" -"(if(not #f)(for-loop_28 fold-var_172 rest_94 rest_95) fold-var_172)))" +"(if(not #f)(for-loop_28 fold-var_172 rest_93 rest_94) fold-var_172)))" " fold-var_6)))))" " for-loop_28)" " null" @@ -28258,10 +28293,10 @@ 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_42 phase_70 imports_1 inspector_12 extra-inspector_5 extra-inspectorss_7)" +"(lambda(mpi_42 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_12(inspector-superior? inspector_12 now-inspector_0) #f)))" +"(let-values(((add-insp?_0)(if inspector_13(inspector-superior? inspector_13 now-inspector_0) #f)))" "(let-values(((add-extra-insp?_0)" "(if extra-inspector_5(inspector-superior? extra-inspector_5 now-inspector_0) #f)))" "(let-values(((new-extra-inspectorss_0)" @@ -28272,16 +28307,16 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_179)))" -"((letrec-values(((for-loop_196)" -"(lambda(table_146 lst_180)" +"((letrec-values(((for-loop_195)" +"(lambda(table_147 lst_180)" "(begin" " 'for-loop" "(if(pair? lst_180)" "(let-values(((import_1)(unsafe-car lst_180))" -"((rest_97)(unsafe-cdr lst_180)))" -"(let-values(((table_147)" -"(let-values(((table_148) table_146))" -"(let-values(((table_149)" +"((rest_96)(unsafe-cdr lst_180)))" +"(let-values(((table_148)" +"(let-values(((table_149) table_147))" +"(let-values(((table_150)" "(let-values()" "(let-values(((key_57" " val_50)" @@ -28299,7 +28334,7 @@ static const char *startup_source = "(let-values(((or-part_218)" "(if add-insp?_0" "(inspector-superior?" -" inspector_12" +" inspector_13" " guard-insp_2)" " #f)))" "(if or-part_218" @@ -28316,13 +28351,13 @@ static const char *startup_source = " extra-inspectors_3" " guard-insp_2)))))))))))" "(hash-set" -" table_148" +" table_149" " key_57" " val_50)))))" -"(values table_149)))))" -"(if(not #f)(for-loop_196 table_147 rest_97) table_147)))" -" table_146)))))" -" for-loop_196)" +"(values table_150)))))" +"(if(not #f)(for-loop_195 table_148 rest_96) table_148)))" +" table_147)))))" +" for-loop_195)" " '#hash()" " lst_179))))" "(let-values()" @@ -28331,13 +28366,13 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_181)))" -"((letrec-values(((for-loop_197)" +"((letrec-values(((for-loop_196)" "(lambda(extra-inspectorss_8 lst_164)" "(begin" " 'for-loop" "(if(pair? lst_164)" "(let-values(((import_2)(unsafe-car lst_164))" -"((rest_98)(unsafe-cdr lst_164)))" +"((rest_97)(unsafe-cdr lst_164)))" "(let-values(((extra-inspectorss_9)" "(let-values(((extra-inspectorss_10)" " extra-inspectorss_8))" @@ -28354,13 +28389,13 @@ static const char *startup_source = " #f)))))" "(values extra-inspectorss_11)))))" "(if(not #f)" -"(for-loop_197 extra-inspectorss_9 rest_98)" +"(for-loop_196 extra-inspectorss_9 rest_97)" " extra-inspectorss_9)))" " extra-inspectorss_8)))))" -" for-loop_197)" +" for-loop_196)" "(let-values(((or-part_38) extra-inspectorss_7))(if or-part_38 or-part_38(seteq)))" " lst_181)))))))" -"(module-use*1.1 mpi_42 phase_70 new-extra-inspectorss_0 #f))))))))" +"(module-use*1.1 mpi_42 phase_72 new-extra-inspectorss_0 #f))))))))" "(define-values" "(module-use-merge-extra-inspectorss!)" "(lambda(existing-mu*_0 mu*_4)" @@ -28373,12 +28408,12 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-hash ht_113)))" -"((letrec-values(((for-loop_198)" +"((letrec-values(((for-loop_197)" "(lambda(new-extra-inspectorss_2 i_137)" "(begin" " 'for-loop" "(if i_137" -"(let-values(((sym_57 extra-inspectors_4)" +"(let-values(((sym_58 extra-inspectors_4)" "(hash-iterate-key+value ht_113 i_137)))" "(let-values(((new-extra-inspectorss_3)" "(let-values(((new-extra-inspectorss_4)" @@ -28387,21 +28422,21 @@ static const char *startup_source = "(let-values()" "(hash-set" " new-extra-inspectorss_4" -" sym_57" +" sym_58" "(extra-inspectors-merge" " extra-inspectors_4" "(hash-ref" " new-extra-inspectorss_4" -" sym_57" +" sym_58" "(seteq)))))))" "(values new-extra-inspectorss_5)))))" "(if(not #f)" -"(for-loop_198" +"(for-loop_197" " new-extra-inspectorss_3" "(hash-iterate-next ht_113 i_137))" " new-extra-inspectorss_3)))" " new-extra-inspectorss_2)))))" -" for-loop_198)" +" for-loop_197)" " existing-extra-inspectorss_0" "(hash-iterate-first ht_113))))))" "(set-module-use*-extra-inspectorss! existing-mu*_0 new-extra-inspectorss_1)))))))" @@ -28472,28 +28507,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_71)(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_72 body_1)" +"(lambda(phase_74 body_1)" "(begin" " 'add-body!" "(hash-update!" " phase-to-body_0" -" phase_72" +" 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_73)" +"(lambda(phase_75)" "(begin" " 'find-or-create-header!" "(let-values(((or-part_219)" "(hash-ref" " phase-to-header_0" -" phase_73" +" phase_75" " #f)))" "(if or-part_219" " or-part_219" @@ -28504,7 +28539,7 @@ static const char *startup_source = "(begin" "(hash-set!" " phase-to-header_0" -" phase_73" +" phase_75" " header_7)" " header_7))))))))" "(let-values((()" @@ -28520,10 +28555,10 @@ static const char *startup_source = "(begin" " 'for-loop" "(if(pair? lst_26)" -"(let-values(((phase_74)" +"(let-values(((phase_76)" "(unsafe-car" " lst_26))" -"((rest_99)" +"((rest_98)" "(unsafe-cdr" " lst_26)))" "(let-values((()" @@ -28534,15 +28569,15 @@ static const char *startup_source = "(let-values()" "(begin" "(find-or-create-header!_0" -" phase_74)" +" phase_76)" "(add-body!_0" -" phase_74" +" phase_76" " '(void))))" "(values)))))" "(values)))))" "(if(not #f)" "(for-loop_113" -" rest_99)" +" rest_98)" "(values))))" "(values))))))" " for-loop_113)" @@ -28570,7 +28605,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_182)))" -"((letrec-values(((for-loop_199)" +"((letrec-values(((for-loop_198)" "(lambda(lst_183)" "(begin" " 'for-loop" @@ -28579,7 +28614,7 @@ static const char *startup_source = "(let-values(((body_2)" "(unsafe-car" " lst_183))" -"((rest_100)" +"((rest_99)" "(unsafe-cdr" " lst_183)))" "(let-values((()" @@ -28608,10 +28643,10 @@ static const char *startup_source = " 'for-loop" "(if(pair?" " lst_185)" -"(let-values(((sym_58)" +"(let-values(((sym_59)" "(unsafe-car" " lst_185))" -"((rest_101)" +"((rest_100)" "(unsafe-cdr" " lst_185)))" "(let-values((()" @@ -28622,18 +28657,18 @@ static const char *startup_source = "(let-values()" "(let-values(((def-sym_1)" "(select-fresh" -" sym_58" +" sym_59" " header_8)))" "(begin" "(hash-set!" "(header-binding-sym-to-define-sym" " header_8)" -" sym_58" +" sym_59" " def-sym_1)" "(set-header-binding-syms-in-order!" " header_8" "(cons" -" sym_58" +" sym_59" "(header-binding-syms-in-order" " header_8)))" "(register-as-defined!" @@ -28644,7 +28679,7 @@ static const char *startup_source = "(if(not" " #f)" "(for-loop_3" -" rest_101)" +" rest_100)" "(values))))" "(values))))))" " for-loop_3)" @@ -28666,33 +28701,33 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_199" -" rest_100)" +"(for-loop_198" +" rest_99)" "(values))))" "(values))))))" -" for-loop_199)" +" for-loop_198)" " lst_182)))" "(void))))))" " loop!_0)" " bodys_2" -" phase_71" -"(find-or-create-header!_0 phase_71)))" +" phase_73" +"(find-or-create-header!_0 phase_73)))" "(void))" "(values))))" "(let-values(((as-required?_0)" "(lambda(header_9)" "(begin" " 'as-required?" -"(lambda(sym_59)" +"(lambda(sym_60)" "(registered-as-required?" " header_9" -" sym_59))))))" +" sym_60))))))" "(let-values(((last-i_0)(sub1(length bodys_2))))" "(let-values((()" "(begin" "((letrec-values(((loop!_1)" "(lambda(bodys_4" -" phase_75" +" phase_77" " header_10)" "(begin" " 'loop!" @@ -28714,7 +28749,7 @@ static const char *startup_source = "(let-values()" "(check-naturals" " start_34)))" -"((letrec-values(((for-loop_200)" +"((letrec-values(((for-loop_199)" "(lambda(lst_187" " pos_93)" "(begin" @@ -28726,7 +28761,7 @@ static const char *startup_source = "(let-values(((body_0)" "(unsafe-car" " lst_187))" -"((rest_102)" +"((rest_101)" "(unsafe-cdr" " lst_187))" "((i_107)" @@ -28770,7 +28805,7 @@ static const char *startup_source = "(let-values(((binding-sym_0)" "(unsafe-car" " lst_189))" -"((rest_103)" +"((rest_102)" "(unsafe-cdr" " lst_189)))" "(let-values(((fold-var_164)" @@ -28791,7 +28826,7 @@ static const char *startup_source = " #f)" "(for-loop_121" " fold-var_164" -" rest_103)" +" rest_102)" " fold-var_164)))" " fold-var_175)))))" " for-loop_121)" @@ -28808,7 +28843,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_190)))" -"((letrec-values(((for-loop_201)" +"((letrec-values(((for-loop_200)" "(lambda(fold-var_178" " lst_170)" "(begin" @@ -28818,7 +28853,7 @@ static const char *startup_source = "(let-values(((binding-sym_1)" "(unsafe-car" " lst_170))" -"((rest_88)" +"((rest_87)" "(unsafe-cdr" " lst_170)))" "(let-values(((fold-var_179)" @@ -28834,7 +28869,7 @@ static const char *startup_source = "(compile-context-self" " cctx_11))" "((phase37_0)" -" phase_75)" +" phase_77)" "((binding-sym38_0)" " binding-sym_1)" "((temp39_1)" @@ -28853,43 +28888,43 @@ static const char *startup_source = " fold-var_2)))))" "(if(not" " #f)" -"(for-loop_201" +"(for-loop_200" " fold-var_179" -" rest_88)" +" rest_87)" " fold-var_179)))" " fold-var_178)))))" -" for-loop_201)" +" for-loop_200)" " null" " lst_190))))))))" "(let-values(((rhs_1)" "(compile$2" "(parsed-define-values-rhs" " body_0)" -"(let-values(((the-struct_48)" +"(let-values(((the-struct_49)" " cctx_11))" "(if(compile-context?" -" the-struct_48)" +" the-struct_49)" "(let-values(((phase41_0)" -" phase_75)" +" phase_77)" "((header42_0)" " header_10))" "(compile-context1.1" "(compile-context-namespace" -" the-struct_48)" +" the-struct_49)" " phase41_0" "(compile-context-self" -" the-struct_48)" +" the-struct_49)" "(compile-context-module-self" -" the-struct_48)" +" the-struct_49)" "(compile-context-full-module-name" -" the-struct_48)" +" the-struct_49)" "(compile-context-lazy-syntax-literals?" -" the-struct_48)" +" the-struct_49)" " header42_0))" "(raise-argument-error" " 'struct-copy" " \"compile-context?\"" -" the-struct_48)))" +" the-struct_49)))" "(if(=" "(length" " ids_5)" @@ -28903,11 +28938,11 @@ static const char *startup_source = " rhs_1" "(length" " def-syms_0)" -" phase_75" +" phase_77" "(as-required?_0" " header_10))" "(add-body!_0" -" phase_75" +" phase_77" "(propagate-inline-property" "(correlate*" "(parsed-s" @@ -28929,7 +28964,7 @@ static const char *startup_source = "(let-values()" "(begin" "(add-body!_0" -" phase_75" +" phase_77" "(list*" " 'if" " #f" @@ -28945,7 +28980,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_191)))" -"((letrec-values(((for-loop_202)" +"((letrec-values(((for-loop_201)" "(lambda(fold-var_180" " lst_13)" "(begin" @@ -28955,7 +28990,7 @@ static const char *startup_source = "(let-values(((def-sym_2)" "(unsafe-car" " lst_13))" -"((rest_104)" +"((rest_103)" "(unsafe-cdr" " lst_13)))" "(let-values(((fold-var_181)" @@ -28974,45 +29009,45 @@ static const char *startup_source = " fold-var_183)))))" "(if(not" " #f)" -"(for-loop_202" +"(for-loop_201" " fold-var_181" -" rest_104)" +" rest_103)" " fold-var_181)))" " fold-var_180)))))" -" for-loop_202)" +" for-loop_201)" " null" " lst_191)))))" " '((void))))" "(add-body!_0" -" phase_75" +" phase_77" "(compile-top-level-bind" " ids_5" " binding-syms_0" -"(let-values(((the-struct_49)" +"(let-values(((the-struct_50)" " cctx_11))" "(if(compile-context?" -" the-struct_49)" +" the-struct_50)" "(let-values(((phase43_0)" -" phase_75)" +" phase_77)" "((header44_0)" " header_10))" "(compile-context1.1" "(compile-context-namespace" -" the-struct_49)" +" the-struct_50)" " phase43_0" "(compile-context-self" -" the-struct_49)" +" the-struct_50)" "(compile-context-module-self" -" the-struct_49)" +" the-struct_50)" "(compile-context-full-module-name" -" the-struct_49)" +" the-struct_50)" "(compile-context-lazy-syntax-literals?" -" the-struct_49)" +" the-struct_50)" " header44_0))" "(raise-argument-error" " 'struct-copy" " \"compile-context?\"" -" the-struct_49)))" +" the-struct_50)))" " #f)))))))))))" "(if(parsed-define-syntaxes?" " body_0)" @@ -29026,7 +29061,7 @@ static const char *startup_source = "(let-values(((next-header_0)" "(find-or-create-header!_0" "(add1" -" phase_75))))" +" phase_77))))" "(let-values(((gen-syms_0)" "(reverse$1" "(let-values(((lst_192)" @@ -29038,7 +29073,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_192)))" -"((letrec-values(((for-loop_203)" +"((letrec-values(((for-loop_202)" "(lambda(fold-var_184" " lst_193)" "(begin" @@ -29048,7 +29083,7 @@ static const char *startup_source = "(let-values(((binding-sym_2)" "(unsafe-car" " lst_193))" -"((rest_105)" +"((rest_104)" "(unsafe-cdr" " lst_193)))" "(let-values(((fold-var_185)" @@ -29072,44 +29107,44 @@ static const char *startup_source = " fold-var_187)))))" "(if(not" " #f)" -"(for-loop_203" +"(for-loop_202" " fold-var_185" -" rest_105)" +" rest_104)" " fold-var_185)))" " fold-var_184)))))" -" for-loop_203)" +" for-loop_202)" " null" " lst_192))))))" "(let-values(((rhs_2)" "(compile$2" "(parsed-define-syntaxes-rhs" " body_0)" -"(let-values(((the-struct_50)" +"(let-values(((the-struct_51)" " cctx_11))" "(if(compile-context?" -" the-struct_50)" +" the-struct_51)" "(let-values(((phase45_0)" "(add1" -" phase_75))" +" phase_77))" "((header46_0)" " next-header_0))" "(compile-context1.1" "(compile-context-namespace" -" the-struct_50)" +" the-struct_51)" " phase45_0" "(compile-context-self" -" the-struct_50)" +" the-struct_51)" "(compile-context-module-self" -" the-struct_50)" +" the-struct_51)" "(compile-context-full-module-name" -" the-struct_50)" +" the-struct_51)" "(compile-context-lazy-syntax-literals?" -" the-struct_50)" +" the-struct_51)" " header46_0))" "(raise-argument-error" " 'struct-copy" " \"compile-context?\"" -" the-struct_50))))))" +" the-struct_51))))))" "(let-values((()" "(begin" "(definition-callback_0)" @@ -29121,7 +29156,7 @@ static const char *startup_source = "(length" " gen-syms_0)" "(add1" -" phase_75)" +" phase_77)" "(as-required?_0" " header_10))" "(values))))" @@ -29144,7 +29179,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_195)))" -"((letrec-values(((for-loop_204)" +"((letrec-values(((for-loop_203)" "(lambda(fold-var_188" " lst_196" " lst_197)" @@ -29158,13 +29193,13 @@ static const char *startup_source = "(let-values(((binding-sym_3)" "(unsafe-car" " lst_196))" -"((rest_106)" +"((rest_105)" "(unsafe-cdr" " lst_196))" "((gen-sym_1)" "(unsafe-car" " lst_197))" -"((rest_107)" +"((rest_106)" "(unsafe-cdr" " lst_197)))" "(let-values(((fold-var_189)" @@ -29185,13 +29220,13 @@ static const char *startup_source = " fold-var_191)))))" "(if(not" " #f)" -"(for-loop_204" +"(for-loop_203" " fold-var_189" -" rest_106" -" rest_107)" +" rest_105" +" rest_106)" " fold-var_189)))" " fold-var_188)))))" -" for-loop_204)" +" for-loop_203)" " null" " lst_194" " lst_195))))))" @@ -29201,7 +29236,7 @@ static const char *startup_source = "(let-values()" "(add-body!_0" "(add1" -" phase_75)" +" phase_77)" "(list" " 'let-values" "(list" @@ -29216,7 +29251,7 @@ static const char *startup_source = "(let-values()" "(add-body!_0" "(add1" -" phase_75)" +" phase_77)" "(generate-top-level-define-syntaxes" " gen-syms_0" " rhs_2" @@ -29224,31 +29259,31 @@ static const char *startup_source = "(compile-top-level-bind" " ids_6" " binding-syms_1" -"(let-values(((the-struct_51)" +"(let-values(((the-struct_52)" " cctx_11))" "(if(compile-context?" -" the-struct_51)" +" the-struct_52)" "(let-values(((phase47_0)" -" phase_75)" +" phase_77)" "((header48_0)" " header_10))" "(compile-context1.1" "(compile-context-namespace" -" the-struct_51)" +" the-struct_52)" " phase47_0" "(compile-context-self" -" the-struct_51)" +" the-struct_52)" "(compile-context-module-self" -" the-struct_51)" +" the-struct_52)" "(compile-context-full-module-name" -" the-struct_51)" +" the-struct_52)" "(compile-context-lazy-syntax-literals?" -" the-struct_51)" +" the-struct_52)" " header48_0))" "(raise-argument-error" " 'struct-copy" " \"compile-context?\"" -" the-struct_51)))" +" the-struct_52)))" " gen-syms_0)))))" "(set! saw-define-syntaxes?_0" " #t)))))))))))" @@ -29259,10 +29294,10 @@ static const char *startup_source = "(parsed-begin-for-syntax-body" " body_0)" "(add1" -" phase_75)" +" phase_77)" "(find-or-create-header!_0" "(add1" -" phase_75))))" +" phase_77))))" "(if(let-values(((or-part_220)" "(parsed-#%declare?" " body_0)))" @@ -29279,73 +29314,73 @@ static const char *startup_source = "(let-values(((e_34)" "(other-form-callback_0" " body_0" -"(let-values(((the-struct_52)" +"(let-values(((the-struct_53)" " cctx_11))" "(if(compile-context?" -" the-struct_52)" +" the-struct_53)" "(let-values(((phase49_0)" -" phase_75)" +" phase_77)" "((header50_0)" " header_10))" "(compile-context1.1" "(compile-context-namespace" -" the-struct_52)" +" the-struct_53)" " phase49_0" "(compile-context-self" -" the-struct_52)" +" the-struct_53)" "(compile-context-module-self" -" the-struct_52)" +" the-struct_53)" "(compile-context-full-module-name" -" the-struct_52)" +" the-struct_53)" "(compile-context-lazy-syntax-literals?" -" the-struct_52)" +" the-struct_53)" " header50_0))" "(raise-argument-error" " 'struct-copy" " \"compile-context?\"" -" the-struct_52))))))" +" the-struct_53))))))" "(if e_34" "(let-values()" "(begin" "(compiled-expression-callback_0" " e_34" " #f" -" phase_75" +" phase_77" "(as-required?_0" " header_10))" "(add-body!_0" -" phase_75" +" phase_77" " e_34)))" "(void))))" "(let-values()" "(let-values(((e_35)" "(compile$2" " body_0" -"(let-values(((the-struct_53)" +"(let-values(((the-struct_54)" " cctx_11))" "(if(compile-context?" -" the-struct_53)" +" the-struct_54)" "(let-values(((phase51_0)" -" phase_75)" +" phase_77)" "((header52_0)" " header_10))" "(compile-context1.1" "(compile-context-namespace" -" the-struct_53)" +" the-struct_54)" " phase51_0" "(compile-context-self" -" the-struct_53)" +" the-struct_54)" "(compile-context-module-self" -" the-struct_53)" +" the-struct_54)" "(compile-context-full-module-name" -" the-struct_53)" +" the-struct_54)" "(compile-context-lazy-syntax-literals?" -" the-struct_53)" +" the-struct_54)" " header52_0))" "(raise-argument-error" " 'struct-copy" " \"compile-context?\"" -" the-struct_53)))" +" the-struct_54)))" " #f" "(=" " i_107" @@ -29354,31 +29389,31 @@ static const char *startup_source = "(compiled-expression-callback_0" " e_35" " #f" -" phase_75" +" phase_77" "(as-required?_0" " header_10))" "(add-body!_0" -" phase_75" +" phase_77" " e_35)))))))))" "(values)))))" "(values)))))" "(if(not" " #f)" -"(for-loop_200" -" rest_102" +"(for-loop_199" +" rest_101" "(+" " pos_93" " 1))" "(values))))" "(values))))))" -" for-loop_200)" +" for-loop_199)" " lst_186" " start_34)))" "(void))))))" " loop!_1)" " bodys_2" -" phase_71" -"(find-or-create-header!_0 phase_71))" +" phase_73" +"(find-or-create-header!_0 phase_73))" "(values))))" "(let-values(((encoded-root-expand-pos_0)" "(if encoded-root-expand-ctx-box_0" @@ -29400,21 +29435,21 @@ static const char *startup_source = " #f)" " #f)))" "(let-values(((phases-in-order_2)" -"(let-values(((temp53_0)" +"(let-values(((temp53_1)" "(hash-keys" " phase-to-body_0))" "((<54_0) <))" -"(sort7.1 #f #f temp53_0 <54_0))))" +"(sort7.1 #f #f temp53_1 <54_0))))" "(let-values(((min-phase_0)" "(if(pair? phases-in-order_2)" "(car phases-in-order_2)" -" phase_71)))" +" phase_73)))" "(let-values(((max-phase_0)" "(if(pair? phases-in-order_2)" "(car" "(reverse$1" " phases-in-order_2))" -" phase_71)))" +" phase_73)))" "(let-values(((phase-to-link-info_0)" "(let-values(((lst_198)" " phases-in-order_2))" @@ -29424,23 +29459,23 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list lst_198)))" -"((letrec-values(((for-loop_205)" -"(lambda(table_150" +"((letrec-values(((for-loop_204)" +"(lambda(table_151" " lst_199)" "(begin" " 'for-loop" "(if(pair?" " lst_199)" -"(let-values(((phase_76)" +"(let-values(((phase_78)" "(unsafe-car" " lst_199))" -"((rest_108)" +"((rest_107)" "(unsafe-cdr" " lst_199)))" -"(let-values(((table_151)" "(let-values(((table_152)" -" table_150))" "(let-values(((table_153)" +" table_151))" +"(let-values(((table_154)" "(let-values()" "(let-values(((key_58" " val_51)" @@ -29448,7 +29483,7 @@ static const char *startup_source = "(let-values(((header_11)" "(hash-ref" " phase-to-header_0" -" phase_76" +" phase_78" " #f)))" "(let-values(((link-module-uses_0" " imports_2" @@ -29456,30 +29491,30 @@ static const char *startup_source = " def-decls_0)" "(generate-links+imports" " header_11" -" phase_76" +" phase_78" " cctx_11" " cross-linklet-inlining?_1)))" "(values" -" phase_76" +" phase_78" "(link-info1.1" " link-module-uses_0" " imports_2" " extra-inspectorsss_1" " def-decls_0)))))))" "(hash-set" -" table_152" +" table_153" " key_58" " val_51)))))" "(values" -" table_153)))))" +" table_154)))))" "(if(not" " #f)" -"(for-loop_205" -" table_151" -" rest_108)" -" table_151)))" -" table_150)))))" -" for-loop_205)" +"(for-loop_204" +" table_152" +" rest_107)" +" table_152)))" +" table_151)))))" +" for-loop_204)" " '#hash()" " lst_198)))))" "(let-values(((body-linklets+module-use*s_0)" @@ -29492,23 +29527,23 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_109)))" -"((letrec-values(((for-loop_206)" -"(lambda(table_154" +"((letrec-values(((for-loop_205)" +"(lambda(table_155" " lst_110)" "(begin" " 'for-loop" "(if(pair?" " lst_110)" -"(let-values(((phase_77)" +"(let-values(((phase_79)" "(unsafe-car" " lst_110))" -"((rest_109)" +"((rest_108)" "(unsafe-cdr" " lst_110)))" -"(let-values(((table_155)" "(let-values(((table_156)" -" table_154))" "(let-values(((table_157)" +" table_155))" +"(let-values(((table_158)" "(let-values()" "(let-values(((key_59" " val_52)" @@ -29516,16 +29551,16 @@ static const char *startup_source = "(let-values(((bodys_5)" "(hash-ref" " phase-to-body_0" -" phase_77)))" +" phase_79)))" "(let-values(((li_0)" "(hash-ref" " phase-to-link-info_0" -" phase_77)))" +" phase_79)))" "(let-values(((binding-sym-to-define-sym_0)" "(header-binding-sym-to-define-sym" "(hash-ref" " phase-to-header_0" -" phase_77))))" +" phase_79))))" "(let-values(((module-use*s_0)" "(module-uses-add-extra-inspectorsss" "(link-info-link-module-uses" @@ -29569,7 +29604,7 @@ static const char *startup_source = "(header-binding-syms-in-order" "(hash-ref" " phase-to-header_0" -" phase_77))))" +" phase_79))))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" @@ -29577,7 +29612,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_200)))" -"((letrec-values(((for-loop_207)" +"((letrec-values(((for-loop_206)" "(lambda(fold-var_192" " lst_201)" "(begin" @@ -29587,7 +29622,7 @@ static const char *startup_source = "(let-values(((binding-sym_4)" "(unsafe-car" " lst_201))" -"((rest_110)" +"((rest_109)" "(unsafe-cdr" " lst_201)))" "(let-values(((fold-var_193)" @@ -29613,12 +29648,12 @@ static const char *startup_source = " fold-var_195)))))" "(if(not" " #f)" -"(for-loop_207" +"(for-loop_206" " fold-var_193" -" rest_110)" +" rest_109)" " fold-var_193)))" " fold-var_192)))))" -" for-loop_207)" +" for-loop_206)" " null" " lst_200)))))" "(qq-append" @@ -29637,7 +29672,7 @@ static const char *startup_source = " get-module-linklet-info_0" " module-use*s_0)))))" "(values" -" phase_77" +" phase_79" "(cons" " linklet_1" "(list-tail" @@ -29646,19 +29681,19 @@ static const char *startup_source = "(length" " body-imports_0))))))))))))" "(hash-set" -" table_156" +" table_157" " key_59" " val_52)))))" "(values" -" table_157)))))" +" table_158)))))" "(if(not" " #f)" -"(for-loop_206" -" table_155" -" rest_109)" -" table_155)))" -" table_154)))))" -" for-loop_206)" +"(for-loop_205" +" table_156" +" rest_108)" +" table_156)))" +" table_155)))))" +" for-loop_205)" " '#hasheq()" " lst_109)))))" "(let-values(((body-linklets_0)" @@ -29671,45 +29706,45 @@ static const char *startup_source = "(let-values()" "(check-in-hash" " ht_114)))" -"((letrec-values(((for-loop_208)" +"((letrec-values(((for-loop_207)" "(lambda(table_32" " i_138)" "(begin" " 'for-loop" "(if i_138" -"(let-values(((phase_78" +"(let-values(((phase_80" " l+mu*s_0)" "(hash-iterate-key+value" " ht_114" " i_138)))" "(let-values(((table_33)" -"(let-values(((table_143)" +"(let-values(((table_144)" " table_32))" -"(let-values(((table_158)" +"(let-values(((table_159)" "(let-values()" "(let-values(((key_60" " val_53)" "(let-values()" "(values" -" phase_78" +" phase_80" "(car" " l+mu*s_0)))))" "(hash-set" -" table_143" +" table_144" " key_60" " val_53)))))" "(values" -" table_158)))))" +" table_159)))))" "(if(not" " #f)" -"(for-loop_208" +"(for-loop_207" " table_33" "(hash-iterate-next" " ht_114" " i_138))" " table_33)))" " table_32)))))" -" for-loop_208)" +" for-loop_207)" " '#hasheq()" "(hash-iterate-first" " ht_114))))))" @@ -29723,27 +29758,27 @@ static const char *startup_source = "(let-values()" "(check-in-hash" " ht_115)))" -"((letrec-values(((for-loop_209)" -"(lambda(table_159" +"((letrec-values(((for-loop_208)" +"(lambda(table_160" " i_139)" "(begin" " 'for-loop" "(if i_139" -"(let-values(((phase_79" +"(let-values(((phase_81" " l+mu*s_1)" "(hash-iterate-key+value" " ht_115" " i_139)))" -"(let-values(((table_124)" +"(let-values(((table_125)" "(let-values(((table_35)" -" table_159))" +" table_160))" "(let-values(((table_36)" "(let-values()" "(let-values(((key_47" " val_40)" "(let-values()" "(values" -" phase_79" +" phase_81" "(module-uses-strip-extra-inspectorsss" "(cdr" " l+mu*s_1))))))" @@ -29755,14 +29790,14 @@ static const char *startup_source = " table_36)))))" "(if(not" " #f)" -"(for-loop_209" -" table_124" +"(for-loop_208" +" table_125" "(hash-iterate-next" " ht_115" " i_139))" -" table_124)))" -" table_159)))))" -" for-loop_209)" +" table_125)))" +" table_160)))))" +" for-loop_208)" " '#hasheq()" "(hash-iterate-first" " ht_115))))))" @@ -29780,18 +29815,18 @@ static const char *startup_source = "(let-values()" "(check-in-hash" " ht_116)))" -"((letrec-values(((for-loop_210)" -"(lambda(table_160" +"((letrec-values(((for-loop_209)" +"(lambda(table_161" " i_140)" "(begin" " 'for-loop" "(if i_140" -"(let-values(((phase_80" +"(let-values(((phase_82" " l+mu*s_2)" "(hash-iterate-key+value" " ht_116" " i_140)))" -"(let-values(((table_161)" +"(let-values(((table_162)" "(let-values(((extra-inspectorsss_2)" "(module-uses-extract-extra-inspectorsss" "(cdr" @@ -29803,45 +29838,45 @@ static const char *startup_source = " body-imports_0))))" "(begin" " #t" -"((letrec-values(((for-loop_211)" -"(lambda(table_162)" +"((letrec-values(((for-loop_210)" +"(lambda(table_163)" "(begin" " 'for-loop" "(let-values()" -"(let-values(((table_163)" "(let-values(((table_164)" -" table_162))" -"(if extra-inspectorsss_2" "(let-values(((table_165)" -" table_164))" +" table_163))" +"(if extra-inspectorsss_2" +"(let-values(((table_166)" +" table_165))" "(let-values(((table_39)" "(let-values()" "(let-values(((key_61" " val_54)" "(let-values()" "(values" -" phase_80" +" phase_82" " extra-inspectorsss_2))))" "(hash-set" -" table_165" +" table_166" " key_61" " val_54)))))" "(values" " table_39)))" -" table_164))))" -" table_163))))))" -" for-loop_211)" -" table_160)))))" +" table_165))))" +" table_164))))))" +" for-loop_210)" +" table_161)))))" "(if(not" " #f)" -"(for-loop_210" -" table_161" +"(for-loop_209" +" table_162" "(hash-iterate-next" " ht_116" " i_140))" -" table_161)))" -" table_160)))))" -" for-loop_210)" +" table_162)))" +" table_161)))))" +" for-loop_209)" " '#hash()" "(hash-iterate-first" " ht_116))))))" @@ -29858,7 +29893,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_81)(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)))" @@ -29881,7 +29916,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_204)))" -"((letrec-values(((for-loop_212)" +"((letrec-values(((for-loop_211)" "(lambda(fold-var_196 lst_39)" "(begin" " 'for-loop" @@ -29899,10 +29934,10 @@ static const char *startup_source = " fold-var_198))))" "(values fold-var_199)))))" "(if(not #f)" -"(for-loop_212 fold-var_197 rest_16)" +"(for-loop_211 fold-var_197 rest_16)" " fold-var_197)))" " fold-var_196)))))" -" for-loop_212)" +" for-loop_211)" " null" " lst_204))))))))" "(begin" @@ -29915,17 +29950,17 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_47)))" -"((letrec-values(((for-loop_136)" +"((letrec-values(((for-loop_134)" "(lambda(fold-var_200 lst_1 lst_205 lst_206)" "(begin" " 'for-loop" "(if(if(pair? lst_1)(if(pair? lst_205)(pair? lst_206) #f) #f)" "(let-values(((id_49)(unsafe-car lst_1))" -"((rest_111)(unsafe-cdr lst_1))" +"((rest_110)(unsafe-cdr lst_1))" "((binding-sym_5)(unsafe-car lst_205))" -"((rest_112)(unsafe-cdr lst_205))" +"((rest_111)(unsafe-cdr lst_205))" "((trans-expr_0)(unsafe-car lst_206))" -"((rest_113)(unsafe-cdr lst_206)))" +"((rest_112)(unsafe-cdr lst_206)))" "(let-values(((fold-var_201)" "(let-values(((fold-var_202) fold-var_200))" "(let-values(((fold-var_203)" @@ -29942,7 +29977,7 @@ static const char *startup_source = " top-level-bind!-id" " id-stx_0" " self-expr_0" -" phase_81" +" phase_83" " phase-shift-id" " ns-id" "(list 'quote binding-sym_5)" @@ -29951,10 +29986,10 @@ static const char *startup_source = " fold-var_202))))" "(values fold-var_203)))))" "(if(not #f)" -"(for-loop_136 fold-var_201 rest_111 rest_112 rest_113)" +"(for-loop_134 fold-var_201 rest_110 rest_111 rest_112)" " fold-var_201)))" " fold-var_200)))))" -" for-loop_136)" +" for-loop_134)" " null" " lst_202" " lst_203" @@ -29984,21 +30019,21 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_207)))" -"((letrec-values(((for-loop_139)" +"((letrec-values(((for-loop_137)" "(lambda(fold-var_204 lst_208)" "(begin" " 'for-loop" "(if(pair? lst_208)" -"(let-values(((s_132)(unsafe-car lst_208))((rest_114)(unsafe-cdr lst_208)))" +"(let-values(((s_132)(unsafe-car lst_208))((rest_113)(unsafe-cdr lst_208)))" "(let-values(((fold-var_205)" "(let-values(((fold-var_206) fold-var_204))" "(let-values(((fold-var_207)" "(let-values()" "(cons(let-values() ''#f) fold-var_206))))" "(values fold-var_207)))))" -"(if(not #f)(for-loop_139 fold-var_205 rest_114) fold-var_205)))" +"(if(not #f)(for-loop_137 fold-var_205 rest_113) fold-var_205)))" " fold-var_204)))))" -" for-loop_139)" +" for-loop_137)" " null" " lst_207)))))))" "(list* 'begin finish_1 '((void)))))" @@ -30034,12 +30069,12 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_209)))" -"((letrec-values(((for-loop_213)" +"((letrec-values(((for-loop_212)" "(lambda(lst_210)" "(begin" " 'for-loop" "(if(pair? lst_210)" -"(let-values(((mu*_6)(unsafe-car lst_210))((rest_115)(unsafe-cdr lst_210)))" +"(let-values(((mu*_6)(unsafe-car lst_210))((rest_114)(unsafe-cdr lst_210)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -30048,9 +30083,9 @@ static const char *startup_source = "(let-values()(intern-module-use*_0 mu*_6))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_213 rest_115)(values))))" +"(if(not #f)(for-loop_212 rest_114)(values))))" "(values))))))" -" for-loop_213)" +" for-loop_212)" " lst_209)))" "(void)" "(lambda(mu*-or-instance_0)" @@ -30104,7 +30139,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_213)))" -"((letrec-values(((for-loop_214)" +"((letrec-values(((for-loop_213)" "(lambda(fold-var_208 lst_214 lst_215 lst_216)" "(begin" " 'for-loop" @@ -30112,12 +30147,12 @@ static const char *startup_source = "(if(pair? lst_215)(pair? lst_216) #f)" " #f)" "(let-values(((sub-mu_0)(unsafe-car lst_214))" -"((rest_116)(unsafe-cdr lst_214))" +"((rest_115)(unsafe-cdr lst_214))" "((imports_3)(unsafe-car lst_215))" -"((rest_117)(unsafe-cdr lst_215))" +"((rest_116)(unsafe-cdr lst_215))" "((extra-inspectorss_13)" "(unsafe-car lst_216))" -"((rest_118)(unsafe-cdr lst_216)))" +"((rest_117)(unsafe-cdr lst_216)))" "(let-values(((fold-var_209)" "(let-values(((fold-var_210)" " fold-var_208))" @@ -30147,14 +30182,14 @@ static const char *startup_source = " fold-var_210))))" "(values fold-var_211)))))" "(if(not #f)" -"(for-loop_214" +"(for-loop_213" " fold-var_209" +" rest_115" " rest_116" -" rest_117" -" rest_118)" +" rest_117)" " fold-var_209)))" " fold-var_208)))))" -" for-loop_214)" +" for-loop_213)" " null" " lst_211" " lst_212" @@ -30263,7 +30298,7 @@ static const char *startup_source = "(if(pair? lst_89)" "(let-values(((phase-to-link-module-uses_2)" "(unsafe-car lst_89))" -"((rest_119)(unsafe-cdr lst_89)))" +"((rest_118)(unsafe-cdr lst_89)))" "(let-values(((fold-var_34)" "(let-values(((fold-var_154)" " fold-var_71))" @@ -30277,7 +30312,7 @@ static const char *startup_source = " fold-var_154))))" "(values fold-var_9)))))" "(if(not #f)" -"(for-loop_107 fold-var_34 rest_119)" +"(for-loop_107 fold-var_34 rest_118)" " fold-var_34)))" " fold-var_71)))))" " for-loop_107)" @@ -30326,7 +30361,7 @@ static const char *startup_source = " 'for-loop" "(if(pair? lst_81)" "(let-values(((cim_4)(unsafe-car lst_81))" -"((rest_120)(unsafe-cdr lst_81)))" +"((rest_119)(unsafe-cdr lst_81)))" "(let-values(((fold-var_212)" "(let-values(((fold-var_166) fold-var_156))" "(let-values(((fold-var_167)" @@ -30344,7 +30379,7 @@ static const char *startup_source = " fold-var_166))))" "(values fold-var_167)))))" "(if(not #f)" -"(for-loop_97 fold-var_212 rest_120)" +"(for-loop_97 fold-var_212 rest_119)" " fold-var_212)))" " fold-var_156)))))" " for-loop_97)" @@ -30375,17 +30410,17 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-naturals start_35)))" -"((letrec-values(((for-loop_215)" -"(lambda(table_166 lst_219 pos_96)" +"((letrec-values(((for-loop_214)" +"(lambda(table_167 lst_219 pos_96)" "(begin" " 'for-loop" "(if(if(pair? lst_219) #t #f)" "(let-values(((cim_5)(unsafe-car lst_219))" "((rest_49)(unsafe-cdr lst_219))" "((i_142) pos_96))" -"(let-values(((table_167)" -"(let-values(((table_168) table_166))" -"(let-values(((table_169)" +"(let-values(((table_168)" +"(let-values(((table_169) table_167))" +"(let-values(((table_170)" "(let-values()" "(let-values(((key_62" " val_35)" @@ -30399,15 +30434,15 @@ static const char *startup_source = " compiled-in-memory-linklet-directory)" " cim_5)))))" "(hash-set" -" table_168" +" table_169" " key_62" " val_35)))))" -"(values table_169)))))" +"(values table_170)))))" "(if(not #f)" -"(for-loop_215 table_167 rest_49(+ pos_96 1))" -" table_167)))" -" table_166)))))" -" for-loop_215)" +"(for-loop_214 table_168 rest_49(+ pos_96 1))" +" table_168)))" +" table_167)))))" +" for-loop_214)" " '#hasheq()" " lst_218" " start_35)))))" @@ -30450,7 +30485,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_193)" +"((letrec-values(((for-loop_192)" "(lambda(fold-var_169 pos_97)" "(begin" " 'for-loop" @@ -30464,7 +30499,7 @@ static const char *startup_source = " #f)))" "(begin" " #t" -"((letrec-values(((for-loop_216)" +"((letrec-values(((for-loop_215)" "(lambda(fold-var_170)" "(begin" " 'for-loop" @@ -30485,11 +30520,11 @@ static const char *startup_source = " fold-var_76)))" " fold-var_75))))" " fold-var_214))))))" -" for-loop_216)" +" for-loop_215)" " fold-var_169)))))" -"(if(not #f)(for-loop_193 fold-var_213(+ pos_97 inc_19)) fold-var_213)))" +"(if(not #f)(for-loop_192 fold-var_213(+ pos_97 inc_19)) fold-var_213)))" " fold-var_169)))))" -" for-loop_193)" +" for-loop_192)" " null" " start_36))))))))" "(define-values" @@ -30541,7 +30576,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:_42 make-_42 ?_42 -ref_42 -set!_42)" +"(let-values(((struct:_43 make-_43 ?_43 -ref_43 -set!_43)" "(let-values()" "(let-values()" "(make-struct-type" @@ -30556,7 +30591,7 @@ static const char *startup_source = " '(0)" " #f" " 'known-function-of-satisfying)))))" -"(values struct:_42 make-_42 ?_42(make-struct-field-accessor -ref_42 0 'arg-predicate-keys))))" +"(values struct:_43 make-_43 ?_43(make-struct-field-accessor -ref_43 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)" @@ -30573,23 +30608,23 @@ 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:_39 make-_39 ?_39 -ref_39 -set!_39)" +"(let-values(((struct:_40 make-_40 ?_40 -ref_40 -set!_40)" "(let-values()" "(let-values()" "(make-struct-type 'known-struct-op #f 2 0 #f null 'prefab #f '(0 1) #f 'known-struct-op)))))" "(values" -" struct:_39" -" make-_39" -" ?_39" -"(make-struct-field-accessor -ref_39 0 'type)" -"(make-struct-field-accessor -ref_39 1 'field-count))))" +" struct:_40" +" make-_40" +" ?_40" +"(make-struct-field-accessor -ref_40 0 'type)" +"(make-struct-field-accessor -ref_40 1 'field-count))))" "(define-values" "(lookup-defn)" -"(lambda(defns_0 sym_60)" +"(lambda(defns_0 sym_61)" "(begin" -"(let-values(((d_29)(hash-ref defns_0 sym_60 #f)))" +"(let-values(((d_29)(hash-ref defns_0 sym_61 #f)))" "(if(known-defined/delay? d_29)" -"(let-values()(begin((known-defined/delay-thunk d_29))(lookup-defn defns_0 sym_60)))" +"(let-values()(begin((known-defined/delay-thunk d_29))(lookup-defn defns_0 sym_61)))" "(let-values() d_29))))))" "(define-values" "(any-side-effects?9.1)" @@ -30693,32 +30728,32 @@ static const char *startup_source = " s_90))" "(let-values(((_17_1" " e18_1)" -"(let-values(((s_306)" +"(let-values(((s_307)" "(if(1/syntax?" " s_90)" "(syntax-e$2" " s_90)" " s_90)))" "(if(pair?" -" s_306)" +" s_307)" "(let-values(((_19_0)" "(let-values(((s_91)" "(car" -" s_306)))" +" s_307)))" " s_91))" "((e20_0)" -"(let-values(((s_168)" +"(let-values(((s_169)" "(cdr" -" s_306)))" -"(let-values(((s_307)" +" s_307)))" +"(let-values(((s_308)" "(if(1/syntax?" -" s_168)" +" s_169)" "(syntax-e$2" -" s_168)" -" s_168)))" +" s_169)" +" s_169)))" "(let-values(((flat-s_13)" "(to-syntax-list.1$1" -" s_307)))" +" s_308)))" "(if(not" " flat-s_13)" "(let-values()" @@ -30784,8 +30819,8 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_220)))" -"((letrec-values(((for-loop_217)" -"(lambda(result_80" +"((letrec-values(((for-loop_216)" +"(lambda(result_79" " lst_221)" "(begin" " 'for-loop" @@ -30794,12 +30829,12 @@ static const char *startup_source = "(let-values(((e_42)" "(unsafe-car" " lst_221))" -"((rest_121)" +"((rest_120)" "(unsafe-cdr" " lst_221)))" -"(let-values(((result_81)" +"(let-values(((result_80)" "(let-values()" -"(let-values(((result_82)" +"(let-values(((result_81)" "(let-values()" "(let-values()" "(not" @@ -30808,21 +30843,21 @@ static const char *startup_source = " 1" " locals_2))))))" "(values" -" result_82)))))" +" result_81)))))" "(if(if(not" -"((lambda x_57" +"((lambda x_56" "(not" -" result_81))" +" result_80))" " e_42))" "(not" " #f)" " #f)" -"(for-loop_217" -" result_81" -" rest_121)" -" result_81)))" -" result_80)))))" -" for-loop_217)" +"(for-loop_216" +" result_80" +" rest_120)" +" result_80)))" +" result_79)))))" +" for-loop_216)" " #t" " lst_220)))" " #f)))" @@ -30854,7 +30889,7 @@ static const char *startup_source = "(check-list" " lst_222)))" "((letrec-values(((for-loop_99)" -"(lambda(result_83" +"(lambda(result_82" " lst_176" " lst_10)" "(begin" @@ -30873,12 +30908,12 @@ static const char *startup_source = "((key_63)" "(unsafe-car" " lst_10))" -"((rest_122)" +"((rest_121)" "(unsafe-cdr" " lst_10)))" -"(let-values(((result_84)" +"(let-values(((result_83)" "(let-values()" -"(let-values(((result_85)" +"(let-values(((result_84)" "(let-values()" "(let-values()" "(if(not" @@ -30893,27 +30928,27 @@ static const char *startup_source = " locals_2)" " #f)))))" "(values" -" result_85)))))" +" result_84)))))" "(if(if(not" -"((lambda x_58" +"((lambda x_57" "(not" -" result_84))" +" result_83))" " e_3))" "(if(not" "((lambda x_9" "(not" -" result_84))" +" result_83))" " key_63))" "(not" " #f)" " #f)" " #f)" "(for-loop_99" -" result_84" +" result_83" " rest_1" -" rest_122)" -" result_84)))" -" result_83)))))" +" rest_121)" +" result_83)))" +" result_82)))))" " for-loop_99)" " #t" " lst_97" @@ -30967,24 +31002,24 @@ static const char *startup_source = " ids22_1" " rhs23_1" " body24_1)" -"(let-values(((s_308)" +"(let-values(((s_309)" "(if(1/syntax?" " s_46)" "(syntax-e$2" " s_46)" " s_46)))" -"(if(pair? s_308)" +"(if(pair? s_309)" "(let-values(((_25_0)" "(let-values(((s_28)" "(car" -" s_308)))" +" s_309)))" " s_28))" "((ids26_0" " rhs27_0" " body28_0)" "(let-values(((s_29)" "(cdr" -" s_308)))" +" s_309)))" "(let-values(((s_30)" "(if(1/syntax?" " s_29)" @@ -30995,15 +31030,15 @@ static const char *startup_source = " s_30)" "(let-values(((ids29_0" " rhs30_0)" -"(let-values(((s_309)" +"(let-values(((s_310)" "(car" " s_30)))" "(let-values(((s_158)" "(if(1/syntax?" -" s_309)" +" s_310)" "(syntax-e$2" -" s_309)" -" s_309)))" +" s_310)" +" s_310)))" "(let-values(((flat-s_14)" "(to-syntax-list.1$1" " s_158)))" @@ -31030,7 +31065,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_190)))" -"((letrec-values(((for-loop_201)" +"((letrec-values(((for-loop_200)" "(lambda(ids_9" " rhs_5" " lst_223)" @@ -31041,7 +31076,7 @@ static const char *startup_source = "(let-values(((s_49)" "(unsafe-car" " lst_223))" -"((rest_123)" +"((rest_122)" "(unsafe-cdr" " lst_223)))" "(let-values(((ids_10" @@ -31056,29 +31091,29 @@ static const char *startup_source = "(let-values(((ids36_0" " rhs37_0)" "(let-values()" -"(let-values(((s_166)" +"(let-values(((s_167)" "(if(1/syntax?" " s_49)" "(syntax-e$2" " s_49)" " s_49)))" "(if(pair?" -" s_166)" +" s_167)" "(let-values(((ids32_0)" "(let-values(((s_54)" "(car" -" s_166)))" +" s_167)))" " s_54))" "((rhs33_0)" -"(let-values(((s_310)" +"(let-values(((s_311)" "(cdr" -" s_166)))" +" s_167)))" "(let-values(((s_93)" "(if(1/syntax?" -" s_310)" +" s_311)" "(syntax-e$2" -" s_310)" -" s_310)))" +" s_311)" +" s_311)))" "(if(pair?" " s_93)" "(let-values(((rhs34_0)" @@ -31087,17 +31122,17 @@ static const char *startup_source = " s_93)))" " s_94))" "(()" -"(let-values(((s_311)" +"(let-values(((s_312)" "(cdr" " s_93)))" -"(let-values(((s_312)" +"(let-values(((s_313)" "(if(1/syntax?" -" s_311)" -"(syntax-e$2" -" s_311)" -" s_311)))" -"(if(null?" " s_312)" +"(syntax-e$2" +" s_312)" +" s_312)))" +"(if(null?" +" s_313)" "(values)" "((lambda(false_3" " str_8" @@ -31140,17 +31175,17 @@ static const char *startup_source = " rhs_8)))))" "(if(not" " #f)" -"(for-loop_201" +"(for-loop_200" " ids_10" " rhs_6" -" rest_123)" +" rest_122)" "(values" " ids_10" " rhs_6))))" "(values" " ids_9" " rhs_5))))))" -" for-loop_201)" +" for-loop_200)" " null" " null" " lst_190)))))" @@ -31172,22 +31207,22 @@ static const char *startup_source = "(if(pair?" " s_57)" "(let-values(((body35_0)" -"(let-values(((s_165)" +"(let-values(((s_305)" "(car" " s_57)))" -" s_165))" +" s_305))" "(()" -"(let-values(((s_313)" +"(let-values(((s_314)" "(cdr" " s_57)))" -"(let-values(((s_314)" +"(let-values(((s_315)" "(if(1/syntax?" -" s_313)" -"(syntax-e$2" -" s_313)" -" s_313)))" -"(if(null?" " s_314)" +"(syntax-e$2" +" s_314)" +" s_314)))" +"(if(null?" +" s_315)" "(values)" "((lambda(false_6" " str_11" @@ -31250,7 +31285,7 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()(check-list lst_224)))" -"((letrec-values(((for-loop_218)" +"((letrec-values(((for-loop_217)" "(lambda(result_13" " lst_197" " lst_225)" @@ -31264,18 +31299,18 @@ static const char *startup_source = "(let-values(((ids_13)" "(unsafe-car" " lst_197))" -"((rest_124)" +"((rest_123)" "(unsafe-cdr" " lst_197))" "((rhs_9)" "(unsafe-car" " lst_225))" -"((rest_125)" +"((rest_124)" "(unsafe-cdr" " lst_225)))" -"(let-values(((result_86)" +"(let-values(((result_85)" "(let-values()" -"(let-values(((result_87)" +"(let-values(((result_86)" "(let-values()" "(let-values()" "(effects?_0" @@ -31284,26 +31319,26 @@ static const char *startup_source = " ids_13)" " locals_2)))))" "(values" -" result_87)))))" +" result_86)))))" "(if(if(not" -"((lambda x_59" -" result_86)" +"((lambda x_58" +" result_85)" " ids_13))" "(if(not" -"((lambda x_60" -" result_86)" +"((lambda x_59" +" result_85)" " rhs_9))" "(not" " #f)" " #f)" " #f)" -"(for-loop_218" -" result_86" -" rest_124" -" rest_125)" -" result_86)))" +"(for-loop_217" +" result_85" +" rest_123" +" rest_124)" +" result_85)))" " result_13)))))" -" for-loop_218)" +" for-loop_217)" " #f" " lst_195" " lst_224))))" @@ -31314,27 +31349,27 @@ static const char *startup_source = "(if(unsafe-fx< index_1 4)" "(let-values()" "(let-values(((ok?_19 _38_0 e39_0)" -"(let-values(((s_315) e_39))" -"(let-values(((orig-s_25) s_315))" +"(let-values(((s_316) e_39))" +"(let-values(((orig-s_25) s_316))" "(let-values(((_38_1 e39_1)" -"(let-values(((s_316)" +"(let-values(((s_317)" "(if(1/syntax?" -" s_315)" -"(syntax-e$2" -" s_315)" -" s_315)))" -"(if(pair?" " s_316)" -"(let-values(((_40_0)" -"(let-values(((s_209)" -"(car" +"(syntax-e$2" +" s_316)" " s_316)))" -" s_209))" +"(if(pair?" +" s_317)" +"(let-values(((_40_0)" +"(let-values(((s_210)" +"(car" +" s_317)))" +" s_210))" "((e41_0)" "(let-values(((s_38)" "(cdr" -" s_316)))" -"(let-values(((s_317)" +" s_317)))" +"(let-values(((s_318)" "(if(1/syntax?" " s_38)" "(syntax-e$2" @@ -31342,7 +31377,7 @@ static const char *startup_source = " s_38)))" "(let-values(((flat-s_15)" "(to-syntax-list.1$1" -" s_317)))" +" s_318)))" "(if(not" " flat-s_15)" "(let-values()" @@ -31374,8 +31409,8 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()(check-list lst_226)))" -"((letrec-values(((for-loop_219)" -"(lambda(result_88" +"((letrec-values(((for-loop_218)" +"(lambda(result_87" " lst_227)" "(begin" " 'for-loop" @@ -31384,12 +31419,12 @@ static const char *startup_source = "(let-values(((e_53)" "(unsafe-car" " lst_227))" -"((rest_126)" +"((rest_125)" "(unsafe-cdr" " lst_227)))" -"(let-values(((result_89)" +"(let-values(((result_88)" "(let-values()" -"(let-values(((result_90)" +"(let-values(((result_89)" "(let-values()" "(let-values()" "(not" @@ -31398,21 +31433,21 @@ static const char *startup_source = " 1" " locals_2))))))" "(values" -" result_90)))))" +" result_89)))))" "(if(if(not" -"((lambda x_61" +"((lambda x_60" "(not" -" result_89))" +" result_88))" " e_53))" "(not" " #f)" " #f)" -"(for-loop_219" -" result_89" -" rest_126)" -" result_89)))" -" result_88)))))" -" for-loop_219)" +"(for-loop_218" +" result_88" +" rest_125)" +" result_88)))" +" result_87)))))" +" for-loop_218)" " #t" " lst_226)))" "(length e39_0)" @@ -31420,33 +31455,33 @@ static const char *startup_source = "(if(unsafe-fx< index_1 5)" "(let-values()" "(let-values(((ok?_20 _42_0 e43_0)" -"(let-values(((s_318) e_39))" +"(let-values(((s_319) e_39))" "(let-values(((orig-s_26)" -" s_318))" +" s_319))" "(let-values(((_42_1 e43_1)" -"(let-values(((s_319)" -"(if(1/syntax?" -" s_318)" -"(syntax-e$2" -" s_318)" -" s_318)))" -"(if(pair?" -" s_319)" -"(let-values(((_44_0)" "(let-values(((s_320)" -"(car" +"(if(1/syntax?" +" s_319)" +"(syntax-e$2" +" s_319)" " s_319)))" -" s_320))" -"((e45_0)" +"(if(pair?" +" s_320)" +"(let-values(((_44_0)" "(let-values(((s_321)" +"(car" +" s_320)))" +" s_321))" +"((e45_0)" +"(let-values(((s_322)" "(cdr" -" s_319)))" +" s_320)))" "(let-values(((s_71)" "(if(1/syntax?" -" s_321)" +" s_322)" "(syntax-e$2" -" s_321)" -" s_321)))" +" s_322)" +" s_322)))" "(let-values(((flat-s_16)" "(to-syntax-list.1$1" " s_71)))" @@ -31482,8 +31517,8 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list lst_228)))" -"((letrec-values(((for-loop_220)" -"(lambda(result_91" +"((letrec-values(((for-loop_219)" +"(lambda(result_90" " lst_229)" "(begin" " 'for-loop" @@ -31492,7 +31527,7 @@ static const char *startup_source = "(let-values(((e_56)" "(unsafe-car" " lst_229))" -"((rest_127)" +"((rest_126)" "(unsafe-cdr" " lst_229)))" "(let-values(((result_29)" @@ -31515,48 +31550,48 @@ static const char *startup_source = "(not" " #f)" " #f)" -"(for-loop_220" +"(for-loop_219" " result_29" -" rest_127)" +" rest_126)" " result_29)))" -" result_91)))))" -" for-loop_220)" +" result_90)))))" +" for-loop_219)" " #t" " lst_228)))" " 1" " #f)))" "(let-values()" "(let-values(((ok?_21 _46_0 e47_0)" -"(let-values(((s_322) e_39))" +"(let-values(((s_323) e_39))" "(let-values(((orig-s_27)" -" s_322))" +" s_323))" "(let-values(((_46_1 e47_1)" -"(let-values(((s_323)" -"(if(1/syntax?" -" s_322)" -"(syntax-e$2" -" s_322)" -" s_322)))" -"(if(pair?" -" s_323)" -"(let-values(((_48_0)" -"(let-values(((s_221)" -"(car" -" s_323)))" -" s_221))" -"((e49_0)" "(let-values(((s_324)" -"(cdr" -" s_323)))" -"(let-values(((s_325)" "(if(1/syntax?" -" s_324)" +" s_323)" "(syntax-e$2" +" s_323)" +" s_323)))" +"(if(pair?" " s_324)" +"(let-values(((_48_0)" +"(let-values(((s_222)" +"(car" " s_324)))" +" s_222))" +"((e49_0)" +"(let-values(((s_325)" +"(cdr" +" s_324)))" +"(let-values(((s_326)" +"(if(1/syntax?" +" s_325)" +"(syntax-e$2" +" s_325)" +" s_325)))" "(let-values(((flat-s_17)" "(to-syntax-list.1$1" -" s_325)))" +" s_326)))" "(if(not" " flat-s_17)" "(let-values()" @@ -31619,38 +31654,38 @@ static const char *startup_source = " s_116)))" "(if(pair? s_120)" "(let-values(((_53_0)" -"(let-values(((s_227)" +"(let-values(((s_165)" "(car" " s_120)))" -" s_227))" +" s_165))" "((e054_0" " e55_0)" -"(let-values(((s_326)" +"(let-values(((s_327)" "(cdr" " s_120)))" -"(let-values(((s_327)" -"(if(1/syntax?" -" s_326)" -"(syntax-e$2" -" s_326)" -" s_326)))" -"(if(pair?" -" s_327)" -"(let-values(((e056_0)" "(let-values(((s_328)" -"(car" +"(if(1/syntax?" +" s_327)" +"(syntax-e$2" +" s_327)" " s_327)))" -" s_328))" -"((e57_0)" +"(if(pair?" +" s_328)" +"(let-values(((e056_0)" "(let-values(((s_329)" +"(car" +" s_328)))" +" s_329))" +"((e57_0)" +"(let-values(((s_330)" "(cdr" -" s_327)))" +" s_328)))" "(let-values(((s_228)" "(if(1/syntax?" -" s_329)" +" s_330)" "(syntax-e$2" -" s_329)" -" s_329)))" +" s_330)" +" s_330)))" "(let-values(((flat-s_18)" "(to-syntax-list.1$1" " s_228)))" @@ -31701,21 +31736,21 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()(check-list lst_230)))" -"((letrec-values(((for-loop_221)" -"(lambda(result_92" -" lst_119)" +"((letrec-values(((for-loop_220)" +"(lambda(result_91" +" lst_118)" "(begin" " 'for-loop" -"(if(pair? lst_119)" +"(if(pair? lst_118)" "(let-values(((e_61)" "(unsafe-car" -" lst_119))" -"((rest_128)" +" lst_118))" +"((rest_127)" "(unsafe-cdr" -" lst_119)))" -"(let-values(((result_93)" +" lst_118)))" +"(let-values(((result_92)" "(let-values()" -"(let-values(((result_94)" +"(let-values(((result_93)" "(let-values()" "(let-values()" "(not" @@ -31724,20 +31759,20 @@ static const char *startup_source = " #f" " locals_2))))))" "(values" -" result_94)))))" +" result_93)))))" "(if(if(not" -"((lambda x_62" +"((lambda x_61" "(not" -" result_93))" +" result_92))" " e_61))" "(not #f)" " #f)" -"(for-loop_221" -" result_93" -" rest_128)" -" result_93)))" -" result_92)))))" -" for-loop_221)" +"(for-loop_220" +" result_92" +" rest_127)" +" result_92)))" +" result_91)))))" +" for-loop_220)" " #t" " lst_230)))" "(loop_82 e051_0 locals_2)" @@ -31783,7 +31818,7 @@ static const char *startup_source = " s_234)" " s_234)))" "(if(pair? s_235)" -"(if(let-values(((s_330)" +"(if(let-values(((s_331)" "(car" " s_235)))" " #t)" @@ -31800,59 +31835,59 @@ static const char *startup_source = "(if(let-values(((s_237)" "(car" " s_236)))" -"(let-values(((s_331)" +"(let-values(((s_332)" "(if(1/syntax?" " s_237)" "(syntax-e$2" " s_237)" " s_237)))" "(if(pair?" -" s_331)" -"(if(let-values(((s_332)" +" s_332)" +"(if(let-values(((s_333)" "(car" -" s_331)))" +" s_332)))" " #t)" "(let-values(((s_134)" "(cdr" -" s_331)))" -"(let-values(((s_333)" +" s_332)))" +"(let-values(((s_334)" "(if(1/syntax?" " s_134)" "(syntax-e$2" " s_134)" " s_134)))" "(if(pair?" -" s_333)" -"(if(let-values(((s_334)" +" s_334)" +"(if(let-values(((s_335)" "(car" -" s_333)))" +" s_334)))" " #t)" -"(let-values(((s_335)" -"(cdr" -" s_333)))" "(let-values(((s_336)" -"(if(1/syntax?" -" s_335)" -"(syntax-e$2" -" s_335)" -" s_335)))" -"(null?" -" s_336)))" -" #f)" -" #f)))" -" #f)" -" #f)))" +"(cdr" +" s_334)))" "(let-values(((s_337)" +"(if(1/syntax?" +" s_336)" +"(syntax-e$2" +" s_336)" +" s_336)))" +"(null?" +" s_337)))" +" #f)" +" #f)))" +" #f)" +" #f)))" +"(let-values(((s_338)" "(cdr" " s_236)))" -"(let-values(((s_338)" +"(let-values(((s_339)" "(if(1/syntax?" -" s_337)" +" s_338)" "(syntax-e$2" -" s_337)" -" s_337)))" -"(null?" +" s_338)" " s_338)))" +"(null?" +" s_339)))" " #f)" " #f)))" " #f)" @@ -31861,63 +31896,63 @@ static const char *startup_source = "(let-values(((gs58_1" " quot59_1" " datum60_1)" -"(let-values(((s_339)" +"(let-values(((s_340)" "(if(1/syntax?" " s_234)" "(syntax-e$2" " s_234)" " s_234)))" "(let-values(((gs61_0)" -"(let-values(((s_340)" +"(let-values(((s_341)" "(car" -" s_339)))" -" s_340))" +" s_340)))" +" s_341))" "((quot62_0" " datum63_0)" -"(let-values(((s_341)" -"(cdr" -" s_339)))" "(let-values(((s_342)" +"(cdr" +" s_340)))" +"(let-values(((s_343)" "(if(1/syntax?" -" s_341)" +" s_342)" "(syntax-e$2" -" s_341)" -" s_341)))" +" s_342)" +" s_342)))" "(let-values(((quot64_0" " datum65_0)" -"(let-values(((s_343)" -"(car" -" s_342)))" "(let-values(((s_344)" -"(if(1/syntax?" -" s_343)" -"(syntax-e$2" -" s_343)" +"(car" " s_343)))" +"(let-values(((s_345)" +"(if(1/syntax?" +" s_344)" +"(syntax-e$2" +" s_344)" +" s_344)))" "(let-values(((quot66_0)" "(let-values(((s_239)" "(car" -" s_344)))" +" s_345)))" " s_239))" "((datum67_0)" -"(let-values(((s_345)" -"(cdr" -" s_344)))" "(let-values(((s_346)" -"(if(1/syntax?" -" s_345)" -"(syntax-e$2" -" s_345)" +"(cdr" " s_345)))" +"(let-values(((s_347)" +"(if(1/syntax?" +" s_346)" +"(syntax-e$2" +" s_346)" +" s_346)))" "(let-values(((datum68_0)" "(let-values(((s_240)" "(car" -" s_346)))" +" s_347)))" " s_240))" "(()" "(let-values(((s_241)" "(cdr" -" s_346)))" +" s_347)))" "(let-values(((s_242)" "(if(1/syntax?" " s_241)" @@ -31931,15 +31966,15 @@ static const char *startup_source = " quot66_0" " datum67_0)))))" "(()" -"(let-values(((s_347)" -"(cdr" -" s_342)))" "(let-values(((s_348)" +"(cdr" +" s_343)))" +"(let-values(((s_349)" "(if(1/syntax?" -" s_347)" +" s_348)" "(syntax-e$2" -" s_347)" -" s_347)))" +" s_348)" +" s_348)))" "(values)))))" "(values" " quot64_0" @@ -31978,62 +32013,62 @@ static const char *startup_source = " id:arg71_0" " thn72_0" " els73_0)" -"(let-values(((s_349) e_39))" -"(if(let-values(((s_350)" -"(if(1/syntax?" -" s_349)" -"(syntax-e$2" -" s_349)" -" s_349)))" -"(if(pair? s_350)" +"(let-values(((s_350) e_39))" "(if(let-values(((s_351)" -"(car" -" s_350)))" -" #t)" -"(let-values(((s_352)" -"(cdr" -" s_350)))" -"(let-values(((s_353)" "(if(1/syntax?" -" s_352)" +" s_350)" "(syntax-e$2" -" s_352)" -" s_352)))" -"(if(pair? s_353)" +" s_350)" +" s_350)))" +"(if(pair? s_351)" +"(if(let-values(((s_352)" +"(car" +" s_351)))" +" #t)" +"(let-values(((s_353)" +"(cdr" +" s_351)))" +"(let-values(((s_354)" +"(if(1/syntax?" +" s_353)" +"(syntax-e$2" +" s_353)" +" s_353)))" +"(if(pair? s_354)" "(if(let-values(((s_248)" "(car" -" s_353)))" -"(let-values(((s_354)" +" s_354)))" +"(let-values(((s_355)" "(if(1/syntax?" " s_248)" "(syntax-e$2" " s_248)" " s_248)))" "(if(pair?" -" s_354)" -"(if(let-values(((s_355)" +" s_355)" +"(if(let-values(((s_356)" "(car" -" s_354)))" +" s_355)))" "(let-values(((or-part_229)" "(if(1/syntax?" -" s_355)" +" s_356)" "(symbol?" "(syntax-e$2" -" s_355))" +" s_356))" " #f)))" "(if or-part_229" " or-part_229" "(symbol?" -" s_355))))" -"(let-values(((s_356)" +" s_356))))" +"(let-values(((s_357)" "(cdr" -" s_354)))" +" s_355)))" "(let-values(((s_249)" "(if(1/syntax?" -" s_356)" +" s_357)" "(syntax-e$2" -" s_356)" -" s_356)))" +" s_357)" +" s_357)))" "(if(pair?" " s_249)" "(if(let-values(((s_250)" @@ -32050,33 +32085,33 @@ static const char *startup_source = " or-part_230" "(symbol?" " s_250))))" -"(let-values(((s_357)" +"(let-values(((s_358)" "(cdr" " s_249)))" -"(let-values(((s_358)" -"(if(1/syntax?" -" s_357)" -"(syntax-e$2" -" s_357)" -" s_357)))" -"(null?" -" s_358)))" -" #f)" -" #f)))" -" #f)" -" #f)))" "(let-values(((s_359)" +"(if(1/syntax?" +" s_358)" +"(syntax-e$2" +" s_358)" +" s_358)))" +"(null?" +" s_359)))" +" #f)" +" #f)))" +" #f)" +" #f)))" +"(let-values(((s_360)" "(cdr" -" s_353)))" +" s_354)))" "(let-values(((s_252)" "(if(1/syntax?" -" s_359)" +" s_360)" "(syntax-e$2" -" s_359)" -" s_359)))" +" s_360)" +" s_360)))" "(if(pair?" " s_252)" -"(if(let-values(((s_360)" +"(if(let-values(((s_361)" "(car" " s_252)))" " #t)" @@ -32091,19 +32126,19 @@ static const char *startup_source = " s_253)))" "(if(pair?" " s_254)" -"(if(let-values(((s_361)" +"(if(let-values(((s_362)" "(car" " s_254)))" " #t)" -"(let-values(((s_362)" +"(let-values(((s_363)" "(cdr" " s_254)))" "(let-values(((s_255)" "(if(1/syntax?" -" s_362)" +" s_363)" "(syntax-e$2" -" s_362)" -" s_362)))" +" s_363)" +" s_363)))" "(null?" " s_255)))" " #f)" @@ -32120,71 +32155,71 @@ static const char *startup_source = " id:arg71_1" " thn72_1" " els73_1)" -"(let-values(((s_363)" -"(if(1/syntax?" -" s_349)" -"(syntax-e$2" -" s_349)" -" s_349)))" -"(let-values(((_74_0)" "(let-values(((s_364)" +"(if(1/syntax?" +" s_350)" +"(syntax-e$2" +" s_350)" +" s_350)))" +"(let-values(((_74_0)" +"(let-values(((s_365)" "(car" -" s_363)))" -" s_364))" +" s_364)))" +" s_365))" "((id:rator75_0" " id:arg76_0" " thn77_0" " els78_0)" -"(let-values(((s_365)" -"(cdr" -" s_363)))" "(let-values(((s_366)" +"(cdr" +" s_364)))" +"(let-values(((s_367)" "(if(1/syntax?" -" s_365)" +" s_366)" "(syntax-e$2" -" s_365)" -" s_365)))" +" s_366)" +" s_366)))" "(let-values(((id:rator79_0" " id:arg80_0)" -"(let-values(((s_367)" -"(car" -" s_366)))" "(let-values(((s_368)" -"(if(1/syntax?" -" s_367)" -"(syntax-e$2" -" s_367)" +"(car" " s_367)))" -"(let-values(((id:rator83_0)" "(let-values(((s_369)" -"(car" +"(if(1/syntax?" +" s_368)" +"(syntax-e$2" +" s_368)" " s_368)))" -" s_369))" -"((id:arg84_0)" +"(let-values(((id:rator83_0)" "(let-values(((s_370)" -"(cdr" -" s_368)))" -"(let-values(((s_371)" -"(if(1/syntax?" -" s_370)" -"(syntax-e$2" -" s_370)" -" s_370)))" -"(let-values(((id:arg85_0)" -"(let-values(((s_372)" "(car" -" s_371)))" -" s_372))" -"(()" -"(let-values(((s_373)" +" s_369)))" +" s_370))" +"((id:arg84_0)" +"(let-values(((s_371)" "(cdr" -" s_371)))" -"(let-values(((s_374)" +" s_369)))" +"(let-values(((s_372)" "(if(1/syntax?" -" s_373)" +" s_371)" "(syntax-e$2" -" s_373)" -" s_373)))" +" s_371)" +" s_371)))" +"(let-values(((id:arg85_0)" +"(let-values(((s_373)" +"(car" +" s_372)))" +" s_373))" +"(()" +"(let-values(((s_374)" +"(cdr" +" s_372)))" +"(let-values(((s_375)" +"(if(1/syntax?" +" s_374)" +"(syntax-e$2" +" s_374)" +" s_374)))" "(values)))))" "(values" " id:arg85_0))))))" @@ -32193,45 +32228,45 @@ static const char *startup_source = " id:arg84_0)))))" "((thn81_0" " els82_0)" -"(let-values(((s_375)" -"(cdr" -" s_366)))" "(let-values(((s_376)" +"(cdr" +" s_367)))" +"(let-values(((s_377)" "(if(1/syntax?" -" s_375)" +" s_376)" "(syntax-e$2" -" s_375)" -" s_375)))" +" s_376)" +" s_376)))" "(let-values(((thn86_0)" "(let-values(((s_259)" "(car" -" s_376)))" +" s_377)))" " s_259))" "((els87_0)" -"(let-values(((s_377)" -"(cdr" -" s_376)))" "(let-values(((s_378)" -"(if(1/syntax?" -" s_377)" -"(syntax-e$2" -" s_377)" -" s_377)))" -"(let-values(((els88_0)" -"(let-values(((s_379)" -"(car" -" s_378)))" -" s_379))" -"(()" -"(let-values(((s_380)" "(cdr" +" s_377)))" +"(let-values(((s_379)" +"(if(1/syntax?" +" s_378)" +"(syntax-e$2" +" s_378)" " s_378)))" +"(let-values(((els88_0)" +"(let-values(((s_380)" +"(car" +" s_379)))" +" s_380))" +"(()" +"(let-values(((s_381)" +"(cdr" +" s_379)))" "(let-values(((s_260)" "(if(1/syntax?" -" s_380)" +" s_381)" "(syntax-e$2" -" s_380)" -" s_380)))" +" s_381)" +" s_381)))" "(values)))))" "(values" " els88_0))))))" @@ -32294,72 +32329,72 @@ static const char *startup_source = " tst90_0" " thn91_0" " els92_0)" -"(let-values(((s_381) e_39))" -"(if(let-values(((s_382)" -"(if(1/syntax?" -" s_381)" -"(syntax-e$2" -" s_381)" -" s_381)))" -"(if(pair? s_382)" +"(let-values(((s_382) e_39))" "(if(let-values(((s_383)" -"(car" -" s_382)))" -" #t)" -"(let-values(((s_384)" -"(cdr" -" s_382)))" -"(let-values(((s_385)" "(if(1/syntax?" -" s_384)" +" s_382)" "(syntax-e$2" -" s_384)" -" s_384)))" -"(if(pair?" -" s_385)" -"(if(let-values(((s_386)" +" s_382)" +" s_382)))" +"(if(pair? s_383)" +"(if(let-values(((s_384)" "(car" +" s_383)))" +" #t)" +"(let-values(((s_385)" +"(cdr" +" s_383)))" +"(let-values(((s_386)" +"(if(1/syntax?" +" s_385)" +"(syntax-e$2" +" s_385)" " s_385)))" +"(if(pair?" +" s_386)" +"(if(let-values(((s_387)" +"(car" +" s_386)))" " #t)" "(let-values(((s_136)" "(cdr" -" s_385)))" -"(let-values(((s_387)" +" s_386)))" +"(let-values(((s_388)" "(if(1/syntax?" " s_136)" "(syntax-e$2" " s_136)" " s_136)))" "(if(pair?" -" s_387)" -"(if(let-values(((s_388)" +" s_388)" +"(if(let-values(((s_389)" "(car" -" s_387)))" +" s_388)))" " #t)" -"(let-values(((s_389)" -"(cdr" -" s_387)))" "(let-values(((s_390)" -"(if(1/syntax?" -" s_389)" -"(syntax-e$2" -" s_389)" -" s_389)))" -"(if(pair?" -" s_390)" -"(if(let-values(((s_391)" -"(car" -" s_390)))" -" #t)" -"(let-values(((s_392)" "(cdr" +" s_388)))" +"(let-values(((s_391)" +"(if(1/syntax?" +" s_390)" +"(syntax-e$2" +" s_390)" " s_390)))" +"(if(pair?" +" s_391)" +"(if(let-values(((s_392)" +"(car" +" s_391)))" +" #t)" +"(let-values(((s_393)" +"(cdr" +" s_391)))" "(let-values(((s_137)" "(if(1/syntax?" -" s_392)" +" s_393)" "(syntax-e$2" -" s_392)" -" s_392)))" +" s_393)" +" s_393)))" "(null?" " s_137)))" " #f)" @@ -32377,73 +32412,73 @@ static const char *startup_source = " els92_1)" "(let-values(((s_138)" "(if(1/syntax?" -" s_381)" +" s_382)" "(syntax-e$2" -" s_381)" -" s_381)))" +" s_382)" +" s_382)))" "(let-values(((_93_0)" -"(let-values(((s_393)" +"(let-values(((s_394)" "(car" " s_138)))" -" s_393))" +" s_394))" "((tst94_0" " thn95_0" " els96_0)" -"(let-values(((s_394)" +"(let-values(((s_395)" "(cdr" " s_138)))" -"(let-values(((s_395)" -"(if(1/syntax?" -" s_394)" -"(syntax-e$2" -" s_394)" -" s_394)))" -"(let-values(((tst97_0)" "(let-values(((s_396)" -"(car" +"(if(1/syntax?" +" s_395)" +"(syntax-e$2" +" s_395)" " s_395)))" -" s_396))" +"(let-values(((tst97_0)" +"(let-values(((s_397)" +"(car" +" s_396)))" +" s_397))" "((thn98_0" " els99_0)" -"(let-values(((s_397)" +"(let-values(((s_398)" "(cdr" -" s_395)))" +" s_396)))" "(let-values(((s_141)" "(if(1/syntax?" -" s_397)" +" s_398)" "(syntax-e$2" -" s_397)" -" s_397)))" +" s_398)" +" s_398)))" "(let-values(((thn100_0)" -"(let-values(((s_398)" +"(let-values(((s_399)" "(car" " s_141)))" -" s_398))" +" s_399))" "((els101_0)" -"(let-values(((s_399)" +"(let-values(((s_400)" "(cdr" " s_141)))" "(let-values(((s_142)" "(if(1/syntax?" -" s_399)" +" s_400)" "(syntax-e$2" -" s_399)" -" s_399)))" +" s_400)" +" s_400)))" "(let-values(((els102_0)" -"(let-values(((s_400)" +"(let-values(((s_401)" "(car" " s_142)))" -" s_400))" +" s_401))" "(()" -"(let-values(((s_401)" +"(let-values(((s_402)" "(cdr" " s_142)))" -"(let-values(((s_402)" +"(let-values(((s_403)" "(if(1/syntax?" -" s_401)" +" s_402)" "(syntax-e$2" -" s_401)" -" s_401)))" +" s_402)" +" s_402)))" "(values)))))" "(values" " els102_0))))))" @@ -32507,15 +32542,15 @@ static const char *startup_source = "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_231)))" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_232)))" -"((letrec-values(((for-loop_148)" +"((letrec-values(((for-loop_146)" "(lambda(locals_5 lst_233 lst_234)" "(begin" " 'for-loop" "(if(if(pair? lst_233)(pair? lst_234) #f)" "(let-values(((ids_14)(unsafe-car lst_233))" -"((rest_129)(unsafe-cdr lst_233))" +"((rest_128)(unsafe-cdr lst_233))" "((rhs_10)(unsafe-car lst_234))" -"((rest_130)(unsafe-cdr lst_234)))" +"((rest_129)(unsafe-cdr lst_234)))" "(let-values(((locals_6)" "(let-values(((locals_7) locals_5))" "(let-values(((locals_8)" @@ -32562,7 +32597,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_236)))" -"((letrec-values(((for-loop_222)" +"((letrec-values(((for-loop_221)" "(lambda(locals_9" " lst_237" " lst_238)" @@ -32576,13 +32611,13 @@ static const char *startup_source = "(let-values(((id_51)" "(unsafe-car" " lst_237))" -"((rest_131)" +"((rest_130)" "(unsafe-cdr" " lst_237))" "((type_0)" "(unsafe-car" " lst_238))" -"((rest_132)" +"((rest_131)" "(unsafe-cdr" " lst_238)))" "(let-values(((locals_10)" @@ -32601,13 +32636,13 @@ static const char *startup_source = " locals_12)))))" "(if(not" " #f)" -"(for-loop_222" +"(for-loop_221" " locals_10" -" rest_131" -" rest_132)" +" rest_130" +" rest_131)" " locals_10)))" " locals_9)))))" -" for-loop_222)" +" for-loop_221)" " locals_7" " lst_235" " lst_236)))))" @@ -32635,7 +32670,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_239)))" -"((letrec-values(((for-loop_223)" +"((letrec-values(((for-loop_222)" "(lambda(locals_13" " lst_240)" "(begin" @@ -32645,7 +32680,7 @@ static const char *startup_source = "(let-values(((id_52)" "(unsafe-car" " lst_240))" -"((rest_133)" +"((rest_132)" "(unsafe-cdr" " lst_240)))" "(let-values(((locals_14)" @@ -32662,20 +32697,20 @@ static const char *startup_source = " locals_16)))))" "(if(not" " #f)" -"(for-loop_223" +"(for-loop_222" " locals_14" -" rest_133)" +" rest_132)" " locals_14)))" " locals_13)))))" -" for-loop_223)" +" for-loop_222)" " locals_7" " lst_239)))))))))))" " loop_93)" " rhs_10))))" "(values locals_8)))))" -"(if(not #f)(for-loop_148 locals_6 rest_129 rest_130) locals_6)))" +"(if(not #f)(for-loop_146 locals_6 rest_128 rest_129) locals_6)))" " locals_5)))))" -" for-loop_148)" +" for-loop_146)" " locals_4" " lst_231" " lst_232))))))" @@ -32692,32 +32727,32 @@ static const char *startup_source = "(lambda(v_167)(is-lambda? v_167 2 defns_3))" "(lambda(v_168)(ok-make-struct-type-property-super? v_168 defns_3))" "(lambda(v_169)" -"(let-values(((v103_0) v_169)((temp104_0) 1)((defns105_0) defns_3))" -"(any-side-effects?9.1 defns105_0 unsafe-undefined unsafe-undefined v103_0 temp104_0))))))" +"(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_241)))" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_242)))" -"((letrec-values(((for-loop_224)" -"(lambda(result_95 lst_243 lst_60)" +"((letrec-values(((for-loop_223)" +"(lambda(result_94 lst_243 lst_60)" "(begin" " 'for-loop" "(if(if(pair? lst_243)(pair? lst_60) #f)" "(let-values(((arg_0)(unsafe-car lst_243))" "((rest_27)(unsafe-cdr lst_243))" "((pred_1)(unsafe-car lst_60))" -"((rest_134)(unsafe-cdr lst_60)))" -"(let-values(((result_96)" +"((rest_133)(unsafe-cdr lst_60)))" +"(let-values(((result_95)" "(let-values()" -"(let-values(((result_97)" +"(let-values(((result_96)" "(let-values()(let-values()(pred_1 arg_0)))))" -"(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)" +"(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)" " #f)" -"(for-loop_224 result_96 rest_27 rest_134)" -" result_96)))" -" result_95)))))" -" for-loop_224)" +"(for-loop_223 result_95 rest_27 rest_133)" +" result_95)))" +" result_94)))))" +" for-loop_223)" " #t" " lst_241" " lst_242)))" @@ -32739,16 +32774,16 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_244)))" -"((letrec-values(((for-loop_225)" -"(lambda(result_98 lst_64)" +"((letrec-values(((for-loop_224)" +"(lambda(result_97 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_99)" +"(let-values(((result_98)" "(let-values()" -"(let-values(((result_100)" +"(let-values(((result_99)" "(let-values()" "(let-values()" "(if(=" @@ -32781,7 +32816,7 @@ static const char *startup_source = " prop+val_1" " 1))))))" "(not" -"(let-values(((temp106_0)" +"(let-values(((temp106_1)" "(list-ref" " prop+val_1" " 2))" @@ -32793,19 +32828,19 @@ static const char *startup_source = " defns108_0" " unsafe-undefined" " unsafe-undefined" -" temp106_0" +" temp106_1" " temp107_0)))" " #f)" " #f))" " #f)))))" -"(values result_100)))))" -"(if(if(not((lambda x_65(not result_99)) prop+val_0))" +"(values result_99)))))" +"(if(if(not((lambda x_64(not result_98)) prop+val_0))" "(not #f)" " #f)" -"(for-loop_225 result_99 rest_29)" -" result_99)))" -" result_98)))))" -" for-loop_225)" +"(for-loop_224 result_98 rest_29)" +" result_98)))" +" result_97)))))" +" for-loop_224)" " #t" " lst_244)))" "(=" @@ -32816,16 +32851,16 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_245)))" -"((letrec-values(((for-loop_226)" -"(lambda(table_170 lst_246)" +"((letrec-values(((for-loop_225)" +"(lambda(table_171 lst_246)" "(begin" " 'for-loop" "(if(pair? lst_246)" "(let-values(((prop+val_2)(unsafe-car lst_246))" -"((rest_135)(unsafe-cdr lst_246)))" -"(let-values(((table_171)" -"(let-values(((table_172) table_170))" -"(let-values(((table_173)" +"((rest_134)(unsafe-cdr lst_246)))" +"(let-values(((table_172)" +"(let-values(((table_173) table_171))" +"(let-values(((table_174)" "(let-values()" "(let-values(((key_64 val_55)" "(let-values()" @@ -32838,13 +32873,13 @@ static const char *startup_source = " 1)))" " #t))))" "(hash-set" -" table_172" +" table_173" " key_64" " val_55)))))" -"(values table_173)))))" -"(if(not #f)(for-loop_226 table_171 rest_135) table_171)))" -" table_170)))))" -" for-loop_226)" +"(values table_174)))))" +"(if(not #f)(for-loop_225 table_172 rest_134) table_172)))" +" table_171)))))" +" for-loop_225)" " '#hash()" " lst_245)))))" " #f)" @@ -32898,30 +32933,30 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_248)))" -"((letrec-values(((for-loop_227)" -"(lambda(result_101 lst_249 lst_250)" +"((letrec-values(((for-loop_226)" +"(lambda(result_100 lst_249 lst_250)" "(begin" " 'for-loop" "(if(if(pair? lst_249)(pair? lst_250) #f)" "(let-values(((arg_1)(unsafe-car lst_249))" -"((rest_136)(unsafe-cdr lst_249))" +"((rest_135)(unsafe-cdr lst_249))" "((pred_2)(unsafe-car lst_250))" -"((rest_137)(unsafe-cdr lst_250)))" +"((rest_136)(unsafe-cdr lst_250)))" +"(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_103)))))" -"(if(if(not((lambda x_66(not result_102)) arg_1))" -"(if(not((lambda x_67(not result_102)) pred_2))" +"(values result_102)))))" +"(if(if(not((lambda x_65(not result_101)) arg_1))" +"(if(not((lambda x_66(not result_101)) pred_2))" "(not #f)" " #f)" " #f)" -"(for-loop_227 result_102 rest_136 rest_137)" -" result_102)))" -" result_101)))))" -" for-loop_227)" +"(for-loop_226 result_101 rest_135 rest_136)" +" result_101)))" +" result_100)))))" +" for-loop_226)" " #t" " lst_247" " lst_248)))" @@ -32991,16 +33026,16 @@ 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_104 lst_252)" +"((letrec-values(((for-loop_227)" +"(lambda(result_103 lst_252)" "(begin" " 'for-loop" "(if(pair? lst_252)" "(let-values(((prop+val_3)(unsafe-car lst_252))" -"((rest_138)(unsafe-cdr lst_252)))" -"(let-values(((result_105)" +"((rest_137)(unsafe-cdr lst_252)))" +"(let-values(((result_104)" "(let-values()" -"(let-values(((result_106)" +"(let-values(((result_105)" "(let-values()" "(let-values()" "(if(=" @@ -33022,14 +33057,14 @@ static const char *startup_source = " defns_7)" " #f))" " #f)))))" -"(values result_106)))))" -"(if(if(not((lambda x_68(not result_105)) prop+val_3))" +"(values result_105)))))" +"(if(if(not((lambda x_67(not result_104)) prop+val_3))" "(not #f)" " #f)" -"(for-loop_228 result_105 rest_138)" -" result_105)))" -" result_104)))))" -" for-loop_228)" +"(for-loop_227 result_104 rest_137)" +" result_104)))" +" result_103)))))" +" for-loop_227)" " #t" " lst_251)))" "(=" @@ -33040,16 +33075,16 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_253)))" -"((letrec-values(((for-loop_229)" -"(lambda(table_174 lst_136)" +"((letrec-values(((for-loop_228)" +"(lambda(table_175 lst_135)" "(begin" " 'for-loop" -"(if(pair? lst_136)" -"(let-values(((prop+val_5)(unsafe-car lst_136))" -"((rest_139)(unsafe-cdr lst_136)))" -"(let-values(((table_175)" -"(let-values(((table_176) table_174))" -"(let-values(((table_177)" +"(if(pair? lst_135)" +"(let-values(((prop+val_5)(unsafe-car lst_135))" +"((rest_138)(unsafe-cdr lst_135)))" +"(let-values(((table_176)" +"(let-values(((table_177) table_175))" +"(let-values(((table_178)" "(let-values()" "(let-values(((key_65 val_56)" "(let-values()" @@ -33062,13 +33097,13 @@ static const char *startup_source = " 1)))" " #t))))" "(hash-set" -" table_176" +" table_177" " key_65" " val_56)))))" -"(values table_177)))))" -"(if(not #f)(for-loop_229 table_175 rest_139) table_175)))" -" table_174)))))" -" for-loop_229)" +"(values table_178)))))" +"(if(not #f)(for-loop_228 table_176 rest_138) table_176)))" +" table_175)))))" +" for-loop_228)" " '#hash()" " lst_253)))))" " #f)" @@ -33177,23 +33212,23 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_254)))" -"((letrec-values(((for-loop_230)" -"(lambda(result_107 lst_255)" +"((letrec-values(((for-loop_229)" +"(lambda(result_106 lst_255)" "(begin" " 'for-loop" "(if(pair? lst_255)" -"(let-values(((a_42)(unsafe-car lst_255))((rest_140)(unsafe-cdr lst_255)))" +"(let-values(((a_42)(unsafe-car lst_255))((rest_139)(unsafe-cdr lst_255)))" +"(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_109)))))" -"(if(if(not((lambda x_69 result_108) a_42))(not #f) #f)" -"(for-loop_230 result_108 rest_140)" -" result_108)))" -" result_107)))))" -" for-loop_230)" +"(values result_108)))))" +"(if(if(not((lambda x_68 result_107) a_42))(not #f) #f)" +"(for-loop_229 result_107 rest_139)" +" result_107)))" +" result_106)))))" +" for-loop_229)" " #f" " lst_254)))" " #f))))))" @@ -33246,20 +33281,20 @@ static const char *startup_source = "(void)" "(let-values()(check-list lst_256)))" "((letrec-values(((for-loop_93)" -"(lambda(result_110 lst_257)" +"(lambda(result_109 lst_257)" "(begin" " 'for-loop" "(if(pair? lst_257)" -"(let-values(((n_27)(unsafe-car lst_257))((rest_141)(unsafe-cdr lst_257)))" -"(let-values(((result_111)" +"(let-values(((n_27)(unsafe-car lst_257))((rest_140)(unsafe-cdr lst_257)))" +"(let-values(((result_110)" "(let-values()" -"(let-values(((result_112)" +"(let-values(((result_111)" "(let-values()(let-values()(< n_27 c_24)))))" -"(values result_112)))))" -"(if(if(not((lambda x_70(not result_111)) n_27))(not #f) #f)" -"(for-loop_93 result_111 rest_141)" -" result_111)))" -" result_110)))))" +"(values result_111)))))" +"(if(if(not((lambda x_69(not result_110)) n_27))(not #f) #f)" +"(for-loop_93 result_110 rest_140)" +" result_110)))" +" result_109)))))" " for-loop_93)" " #t" " lst_256)))" @@ -33283,7 +33318,7 @@ static const char *startup_source = " #f)" " #f)" " #f))))))" -"(define-values(maybe+)(lambda(x_71 y_10)(begin(if x_71(if y_10(+ x_71 y_10) #f) #f))))" +"(define-values(maybe+)(lambda(x_70 y_10)(begin(if x_70(if y_10(+ x_70 y_10) #f) #f))))" "(define-values" "(compile-single)" "(lambda(p_45 cctx_13)" @@ -33302,7 +33337,7 @@ static const char *startup_source = "(let-values(((to-source?_2) to-source?3_0))" "(let-values()" "(let-values()" -"(let-values(((phase_82)(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" @@ -33316,14 +33351,14 @@ static const char *startup_source = "(let-values(((temp16_4)(list p_46))" "((cctx17_0) cctx_14)" "((mpis18_0) mpis_18)" -"((temp19_0)" +"((temp19_1)" "(if single-expression?_0" "(list* '()(list syntax-literals-id) '(()))" "(list" "(list top-level-bind!-id top-level-require!-id)" "(list mpi-vector-id syntax-literals-id)" " instance-imports)))" -"((temp20_0)" +"((temp20_1)" "(list" " top-level-instance" " empty-top-syntax-literal-instance" @@ -33354,8 +33389,8 @@ static const char *startup_source = "(compile-top-level-require s_43 cctx_15))))" "((temp26_2)(not single-expression?_0)))" "(compile-forms31.1" -" temp20_0" -" temp19_0" +" temp20_1" +" temp19_1" " null" " temp24_3" " temp26_2" @@ -33374,7 +33409,7 @@ static const char *startup_source = "(lambda(ht_117)" "(begin" " 'add-metadata" -"(let-values(((ht_118)(hash-set ht_117 'original-phase phase_82)))" +"(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)" @@ -33387,7 +33422,7 @@ static const char *startup_source = "(generate-eager-syntax-literals!" " syntax-literals_3" " mpis_18" -" phase_82" +" phase_84" "(compile-context-self cctx_14)" "(compile-context-namespace cctx_14)))))" "(let-values(((link-linklet_0)" @@ -33420,7 +33455,7 @@ static const char *startup_source = "(list" " 'define-values" "(list deserialized-syntax-vector-id)" -"(list* 'make-vector(add1 phase_82) '(#f)))" +"(list* 'make-vector(add1 phase_84) '(#f)))" "(list" " 'define-values" " '(phase-to-link-modules)" @@ -33452,7 +33487,7 @@ static const char *startup_source = "(compile-top-level-require)" "(lambda(p_47 cctx_16)" "(begin" -"(let-values(((phase_83)(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)))" @@ -33475,7 +33510,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_84) 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))" @@ -33484,31 +33519,31 @@ 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_84 #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_84 ht_120) ht_120))))))" +"(begin(hash-set! defined-syms_8 phase_86 ht_120) ht_120))))))" "(reverse$1" "(let-values(((lst_258) ids_15))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_258)))" -"((letrec-values(((for-loop_231)" +"((letrec-values(((for-loop_230)" "(lambda(fold-var_73 lst_90)" "(begin" " 'for-loop" "(if(pair? lst_90)" "(let-values(((id_53)(unsafe-car lst_90))" -"((rest_142)(unsafe-cdr lst_90)))" +"((rest_141)(unsafe-cdr lst_90)))" "(let-values(((fold-var_12)" "(let-values(((fold-var_156) fold-var_73))" "(let-values(((fold-var_94)" "(let-values()" "(cons" "(let-values()" -"(let-values(((sym_61)" +"(let-values(((sym_62)" "(syntax-e$1" " id_53)))" "(let-values(((defined-sym_0)" @@ -33516,43 +33551,43 @@ static const char *startup_source = "(defined-as-other?" "(hash-ref" " defined-syms-at-phase_0" -" sym_61" +" sym_62" " #f)" " id_53" -" phase_84" +" phase_86" " top-level-bind-scope_3))" "(if(no-extra-scopes?" " id_53" " all-scopes-stx_3" " top-level-bind-scope_3" -" phase_84)" +" phase_86)" "(symbol-interned?" -" sym_61)" +" sym_62)" " #f)" " #f)" -" sym_61" +" sym_62" "((letrec-values(((loop_83)" "(lambda(pos_98)" "(begin" " 'loop" -"(let-values(((s_183)" +"(let-values(((s_184)" "(string->unreadable-symbol" "(format" " \"~a.~a\"" -" sym_61" +" sym_62" " pos_98))))" "(if(defined-as-other?" "(hash-ref" " defined-syms-at-phase_0" -" s_183" +" s_184" " #f)" " id_53" -" phase_84" +" phase_86" " top-level-bind-scope_3)" "(loop_83" "(add1" " pos_98))" -" s_183))))))" +" s_184))))))" " loop_83)" " 1))))" "(let-values((()" @@ -33566,13 +33601,13 @@ static const char *startup_source = "(let-values(((self23_0)" " self_19)" "((phase24_0)" -" phase_84)" +" phase_86)" "((defined-sym25_0)" " defined-sym_0)" "((frame-id26_0)" " frame-id_7)" "((sym27_1)" -" sym_61))" +" sym_62))" "(make-module-binding22.1" " #f" " null" @@ -33594,7 +33629,7 @@ static const char *startup_source = "((id29_0)" " id_53)" "((phase30_0)" -" phase_84)" +" phase_86)" "((b31_0)" " b_75))" "(remove-required-id!75.1" @@ -33608,7 +33643,7 @@ static const char *startup_source = "((b20_0)" " b_75)" "((phase21_1)" -" phase_84)" +" phase_86)" "((orig-s22_0)" " orig-s_28))" "(add-binding!17.1" @@ -33624,7 +33659,7 @@ static const char *startup_source = "((id33_0)" " id_53)" "((phase34_0)" -" phase_84)" +" phase_86)" "((b35_0)" " b_75)" "((as-transformer?36_0)" @@ -33641,29 +33676,29 @@ static const char *startup_source = " fold-var_156))))" "(values fold-var_94)))))" "(if(not #f)" -"(for-loop_231 fold-var_12 rest_142)" +"(for-loop_230 fold-var_12 rest_141)" " fold-var_12)))" " fold-var_73)))))" -" for-loop_231)" +" for-loop_230)" " null" " lst_258)))))))))))))))))))" "(define-values" "(no-extra-scopes?)" -"(lambda(id_54 all-scopes-stx_4 top-level-bind-scope_4 phase_70)" +"(lambda(id_54 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_54))))" -"(let-values(((or-part_209)(bound-identifier=?$1 id_54 m-id_0 phase_70)))" +"(let-values(((or-part_209)(bound-identifier=?$1 id_54 m-id_0 phase_72)))" "(if or-part_209" " or-part_209" "(if top-level-bind-scope_4" -"(bound-identifier=?$1 id_54(add-scope m-id_0 top-level-bind-scope_4) phase_70)" +"(bound-identifier=?$1 id_54(add-scope m-id_0 top-level-bind-scope_4) phase_72)" " #f)))))))" "(define-values" "(defined-as-other?)" -"(lambda(prev-id_0 id_55 phase_85 top-level-bind-scope_5)" +"(lambda(prev-id_0 id_55 phase_87 top-level-bind-scope_5)" "(begin" "(if prev-id_0" -"(if(not(bound-identifier=?$1 prev-id_0 id_55 phase_85))" +"(if(not(bound-identifier=?$1 prev-id_0 id_55 phase_87))" "(let-values(((or-part_257)(not top-level-bind-scope_5)))" "(if or-part_257" " or-part_257" @@ -33671,7 +33706,7 @@ static const char *startup_source = "(bound-identifier=?$1" "(remove-scope prev-id_0 top-level-bind-scope_5)" "(remove-scope id_55 top-level-bind-scope_5)" -" phase_85))))" +" phase_87))))" " #f)" " #f))))" "(define-values" @@ -33698,15 +33733,15 @@ static const char *startup_source = " temp41_0)))))" "(define-values" "(add-defined-sym!)" -"(lambda(defined-syms_9 phase_75 sym_62 id_56)" +"(lambda(defined-syms_9 phase_77 sym_63 id_56)" "(begin" "(let-values(((defined-syms-at-phase_1)" -"(let-values(((or-part_218)(hash-ref defined-syms_9 phase_75 #f)))" +"(let-values(((or-part_218)(hash-ref defined-syms_9 phase_77 #f)))" "(if or-part_218" " or-part_218" "(let-values(((ht_121)(make-hasheq)))" -"(begin(hash-set! defined-syms_9 phase_75 ht_121) ht_121))))))" -"(hash-set! defined-syms-at-phase_1 sym_62 id_56)))))" +"(begin(hash-set! defined-syms_9 phase_77 ht_121) ht_121))))))" +"(hash-set! defined-syms-at-phase_1 sym_63 id_56)))))" "(define-values" "(make-create-root-expand-context-from-module)" "(lambda(requires_3 evaled-ld-h_0)" @@ -33723,7 +33758,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_218)))" -"((letrec-values(((for-loop_232)" +"((letrec-values(((for-loop_231)" "(lambda(lst_16)" "(begin" " 'for-loop" @@ -33750,7 +33785,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_259)))" -"((letrec-values(((for-loop_233)" +"((letrec-values(((for-loop_232)" "(lambda(lst_78)" "(begin" " 'for-loop" @@ -33815,18 +33850,18 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_233" +"(for-loop_232" " rest_36)" "(values))))" "(values))))))" -" for-loop_233)" +" for-loop_232)" " lst_259)))" "(void))))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_232 rest_4)(values))))" +"(if(not #f)(for-loop_231 rest_4)(values))))" "(values))))))" -" for-loop_232)" +" for-loop_231)" " lst_218)))" "(values))))" "(let-values()" @@ -33842,7 +33877,7 @@ static const char *startup_source = "(begin" " 'for-loop" "(if i_145" -"(let-values(((phase_86 linklet_3)" +"(let-values(((phase_88 linklet_3)" "(hash-iterate-key+value ht_122 i_145)))" "(let-values((()" "(let-values()" @@ -33860,16 +33895,16 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list lst_260)))" -"((letrec-values(((for-loop_234)" +"((letrec-values(((for-loop_233)" "(lambda(lst_261)" "(begin" " 'for-loop" "(if(pair?" " lst_261)" -"(let-values(((sym_63)" +"(let-values(((sym_64)" "(unsafe-car" " lst_261))" -"((rest_143)" +"((rest_142)" "(unsafe-cdr" " lst_261)))" "(let-values((()" @@ -33881,7 +33916,7 @@ static const char *startup_source = "(let-values(((id_57)" "(datum->syntax$1" " s_3" -" sym_63)))" +" sym_64)))" "(begin" "(let-values(((id10_0)" " id_57)" @@ -33889,9 +33924,9 @@ static const char *startup_source = "(let-values(((self13_1)" " self_20)" "((phase14_1)" -" phase_86)" +" phase_88)" "((sym15_0)" -" sym_63))" +" sym_64))" "(make-module-binding22.1" " #f" " null" @@ -33906,7 +33941,7 @@ static const char *startup_source = " phase14_1" " sym15_0)))" "((phase12_0)" -" phase_86))" +" phase_88))" "(add-binding!17.1" " #f" " #f" @@ -33915,18 +33950,18 @@ static const char *startup_source = " phase12_0))" "(add-defined-sym!" " defined-syms_10" -" phase_86" -" sym_63" +" phase_88" +" sym_64" " id_57))))" "(values)))))" "(values)))))" "(if(not" " #f)" -"(for-loop_234" -" rest_143)" +"(for-loop_233" +" rest_142)" "(values))))" "(values))))))" -" for-loop_234)" +" for-loop_233)" " lst_260)))" "(void)))" "(values)))))" @@ -33946,38 +33981,39 @@ static const char *startup_source = "(let-values(((outside-mpi_0)(root-expand-context-self-mpi root-context_0)))" "(let-values(((inside-mpi_0)(make-self-module-path-index(module-path-index-resolved outside-mpi_0))))" "(let-values(((v_187) root-context_0))" -"(let-values(((the-struct_54) v_187))" -"(if(root-expand-context/outer? the-struct_54)" +"(let-values(((the-struct_55) v_187))" +"(if(root-expand-context/outer? the-struct_55)" "(let-values(((inner16_0)" -"(let-values(((the-struct_55)(root-expand-context/outer-inner v_187)))" -"(if(root-expand-context/inner? the-struct_55)" +"(let-values(((the-struct_56)(root-expand-context/outer-inner v_187)))" +"(if(root-expand-context/inner? the-struct_56)" "(let-values(((self-mpi17_0) inside-mpi_0)" "((all-scopes-stx18_0)" -"(let-values(((temp19_1)" +"(let-values(((temp19_2)" "(root-expand-context-all-scopes-stx root-context_0))" "((outside-mpi20_0) outside-mpi_0)" "((inside-mpi21_0) inside-mpi_0))" "(syntax-module-path-index-shift13.1" " #f" -" temp19_1" +" temp19_2" " outside-mpi20_0" " inside-mpi21_0" " #f))))" "(root-expand-context/inner2.1" " self-mpi17_0" -"(root-expand-context/inner-module-scopes the-struct_55)" -"(root-expand-context/inner-top-level-bind-scope the-struct_55)" +"(root-expand-context/inner-module-scopes the-struct_56)" +"(root-expand-context/inner-top-level-bind-scope the-struct_56)" " all-scopes-stx18_0" -"(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/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/outer1.1" " inner16_0" -"(root-expand-context/outer-post-expansion-scope the-struct_54)" -"(root-expand-context/outer-use-site-scopes the-struct_54)" -"(root-expand-context/outer-frame-id the-struct_54)))" -" (raise-argument-error 'struct-copy \"root-expand-context/outer?\" the-struct_54)))))))))" +"(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)))))))))" "(define-values" "(check-require-access9.1)" "(lambda(skip-imports1_0" @@ -34017,7 +34053,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_262)))" -"((letrec-values(((for-loop_234)" +"((letrec-values(((for-loop_233)" "(lambda(lst_261 lst_258 lst_23 lst_104)" "(begin" " 'for-loop" @@ -34025,13 +34061,13 @@ static const char *startup_source = "(if(pair? lst_258)(if(pair? lst_23)(pair? lst_104) #f) #f)" " #f)" "(let-values(((import-syms_0)(unsafe-car lst_261))" -"((rest_144)(unsafe-cdr lst_261))" +"((rest_143)(unsafe-cdr lst_261))" "((mu_7)(unsafe-car lst_258))" -"((rest_84)(unsafe-cdr lst_258))" +"((rest_83)(unsafe-cdr lst_258))" "((mi_16)(unsafe-car lst_23))" "((rest_43)(unsafe-cdr lst_23))" "((extra-inspectorss_14)(unsafe-car lst_104))" -"((rest_120)(unsafe-cdr lst_104)))" +"((rest_119)(unsafe-cdr lst_104)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -34063,7 +34099,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_263)))" -"((letrec-values(((for-loop_235)" +"((letrec-values(((for-loop_234)" "(lambda(lst_25)" "(begin" " 'for-loop" @@ -34147,20 +34183,20 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_235" +"(for-loop_234" " rest_9)" "(values))))" "(values))))))" -" for-loop_235)" +" for-loop_234)" " lst_263)))" "(void)))))))" "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_234 rest_144 rest_84 rest_43 rest_120)" +"(for-loop_233 rest_143 rest_83 rest_43 rest_119)" "(values))))" "(values))))))" -" for-loop_234)" +" for-loop_233)" " lst_41" " lst_160" " lst_89" @@ -34168,7 +34204,7 @@ static const char *startup_source = "(void)))))))))))))" "(define-values" "(check-single-require-access)" -"(lambda(mi_17 phase_87 sym_64 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)" @@ -34177,7 +34213,7 @@ static const char *startup_source = "(let-values(((access_3)" "(let-values(((or-part_260)(module-access m_16)))" "(if or-part_260 or-part_260(module-compute-access! m_16)))))" -"(let-values(((a_45)(hash-ref(hash-ref access_3 phase_87 '#hasheq()) sym_64 '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()" @@ -34246,14 +34282,14 @@ 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_234)" -"(lambda(table_178 pos_99)" +"((letrec-values(((for-loop_233)" +"(lambda(table_179 pos_99)" "(begin" " 'for-loop" "(if(< pos_99 end_26)" "(let-values(((phase-level_17)" " pos_99))" -"(let-values(((table_179)" +"(let-values(((table_180)" "(let-values(((v_188)" "(hash-ref" " h_1" @@ -34262,17 +34298,17 @@ static const char *startup_source = "(begin" " #t" "((letrec-values(((for-loop_108)" -"(lambda(table_180)" +"(lambda(table_181)" "(begin" " 'for-loop" "(let-values()" -"(let-values(((table_181)" -"(let-values(((table_110)" -" table_180))" -"(if v_188" "(let-values(((table_182)" -" table_110))" +"(let-values(((table_111)" +" table_181))" +"(if v_188" "(let-values(((table_183)" +" table_111))" +"(let-values(((table_184)" "(let-values()" "(let-values(((key_68" " val_57)" @@ -34282,22 +34318,22 @@ static const char *startup_source = "(1/eval-linklet" " v_188)))))" "(hash-set" -" table_182" +" table_183" " key_68" " val_57)))))" "(values" -" table_183)))" -" table_110))))" -" table_181))))))" +" table_184)))" +" table_111))))" +" table_182))))))" " for-loop_108)" -" table_178)))))" +" table_179)))))" "(if(not #f)" -"(for-loop_234" -" table_179" +"(for-loop_233" +" table_180" "(+ pos_99 inc_20))" -" table_179)))" -" table_178)))))" -" for-loop_234)" +" table_180)))" +" table_179)))))" +" for-loop_233)" " '#hash()" " start_37)))))" "(let-values(((syntax-literals-linklet_0)" @@ -34348,7 +34384,7 @@ static const char *startup_source = "(let-values(((c_26)" "(unsafe-car" " lst_264))" -"((rest_145)" +"((rest_144)" "(unsafe-cdr" " lst_264)))" "(let-values((()" @@ -34373,7 +34409,7 @@ static const char *startup_source = "(if(not" " #f)" "(for-loop_15" -" rest_145)" +" rest_144)" "(values))))" "(values))))))" " for-loop_15)" @@ -34387,7 +34423,7 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list lst_265)))" -"((letrec-values(((for-loop_236)" +"((letrec-values(((for-loop_235)" "(lambda(lst_173)" "(begin" " 'for-loop" @@ -34396,7 +34432,7 @@ static const char *startup_source = "(let-values(((name_48)" "(unsafe-car" " lst_173))" -"((rest_92)" +"((rest_91)" "(unsafe-cdr" " lst_173)))" "(let-values((()" @@ -34432,11 +34468,11 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_236" -" rest_92)" +"(for-loop_235" +" rest_91)" "(values))))" "(values))))))" -" for-loop_236)" +" for-loop_235)" " lst_265)))" "(void)))))" " void)))" @@ -34570,7 +34606,7 @@ static const char *startup_source = "(let-values(((mu_8)" "(unsafe-car" " lst_180))" -"((rest_97)" +"((rest_96)" "(unsafe-cdr" " lst_180)))" "(let-values(((mis_3" @@ -34593,7 +34629,7 @@ static const char *startup_source = " original-self_1)" "((self50_0)" " self_22)" -"((temp51_1)" +"((temp51_0)" "(phase+" "(phase-" " phase-level_19" @@ -34601,7 +34637,7 @@ static const char *startup_source = " mu_8))" " phase-shift_16)))" "(namespace-module-use->module+linklet-instances144.1" -" temp51_1" +" temp51_0" " original-self49_0" " self50_0" " ns47_1" @@ -34621,7 +34657,7 @@ static const char *startup_source = "(for-loop_3" " mis_3" " is_2" -" rest_97)" +" rest_96)" "(values" " mis_3" " is_2))))" @@ -34840,7 +34876,7 @@ static const char *startup_source = "((self57_0) self_23)" "((insp58_0) insp_15)" "((bulk-binding-registry59_0) bulk-binding-registry_16)" -"((temp60_1)" +"((temp60_0)" " (lambda (name_50 val_59) (error \"shouldn't get here for the root-ctx linklet\"))))" "(make-instance-instance13.1" " bulk-binding-registry59_0" @@ -34848,7 +34884,7 @@ static const char *startup_source = " ns55_1" " phase-shift56_1" " self57_0" -" temp60_1))))" +" temp60_0))))" "(let-values(((syntax-literals-instance_1)" "(if syntax-literals-linklet_1" "(1/instantiate-linklet" @@ -34999,29 +35035,29 @@ 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_237)" -"(lambda(table_184 i_146)" +"((letrec-values(((for-loop_236)" +"(lambda(table_185 i_146)" "(begin" " 'for-loop" "(if i_146" -"(let-values(((phase_88 linklet_5)(hash-iterate-key+value ht_123 i_146)))" -"(let-values(((table_185)" -"(let-values(((table_186) table_184))" -"(let-values(((table_139)" +"(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)" "(let-values()" "(let-values(((key_69 val_60)" "(let-values()" "(values" -" phase_88" +" phase_90" "(1/linklet-export-variables" " linklet_5)))))" -"(hash-set table_186 key_69 val_60)))))" -"(values table_139)))))" +"(hash-set table_187 key_69 val_60)))))" +"(values table_140)))))" "(if(not #f)" -"(for-loop_237 table_185(hash-iterate-next ht_123 i_146))" -" table_185)))" -" table_184)))))" -" for-loop_237)" +"(for-loop_236 table_186(hash-iterate-next ht_123 i_146))" +" table_186)))" +" table_185)))))" +" for-loop_236)" " '#hash()" "(hash-iterate-first ht_123)))))))" "(define-values" @@ -35044,7 +35080,7 @@ static const char *startup_source = "(begin" " 'for-loop" "(if i_147" -"(let-values(((phase_89 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)" @@ -35058,13 +35094,13 @@ static const char *startup_source = "(let-values()" "(check-in-hash" " ht_125)))" -"((letrec-values(((for-loop_238)" +"((letrec-values(((for-loop_237)" "(lambda(fold-var_215" " i_148)" "(begin" " 'for-loop" "(if i_148" -"(let-values(((sym_65" +"(let-values(((sym_66" " b/p_1)" "(hash-iterate-key+value" " ht_125" @@ -35084,7 +35120,7 @@ static const char *startup_source = "(provided-as-binding" " b/p_1)))" "(list" -" sym_65" +" sym_66" "(if(eq?" " self_24" "(module-binding-module" @@ -35105,7 +35141,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_87)))" -"((letrec-values(((for-loop_239)" +"((letrec-values(((for-loop_238)" "(lambda(fold-var_220" " lst_266)" "(begin" @@ -35115,7 +35151,7 @@ static const char *startup_source = "(let-values(((b_76)" "(unsafe-car" " lst_266))" -"((rest_146)" +"((rest_145)" "(unsafe-cdr" " lst_266)))" "(let-values(((fold-var_29)" @@ -35128,11 +35164,11 @@ static const char *startup_source = "(if(if(eqv?" "(module-binding-nominal-phase" " b_76)" -" phase_89)" +" phase_91)" "(eq?" "(module-binding-nominal-sym" " b_76)" -" sym_65)" +" sym_66)" " #f)" "(let-values()" "(module-binding-nominal-module" @@ -35152,12 +35188,12 @@ static const char *startup_source = " fold-var_31)))))" "(if(not" " #f)" -"(for-loop_239" +"(for-loop_238" " fold-var_29" -" rest_146)" +" rest_145)" " fold-var_29)))" " fold-var_220)))))" -" for-loop_239)" +" for-loop_238)" " null" " lst_87)))))))))" " fold-var_218))))" @@ -35166,14 +35202,14 @@ static const char *startup_source = " fold-var_217))))" "(if(not" " #f)" -"(for-loop_238" +"(for-loop_237" " fold-var_216" "(hash-iterate-next" " ht_125" " i_148))" " fold-var_216)))" " fold-var_215)))))" -" for-loop_238)" +" for-loop_237)" " null" "(hash-iterate-first" " ht_125)))))))" @@ -35197,7 +35233,7 @@ static const char *startup_source = "(cons" "(let-values()" "(cons" -" phase_89" +" 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_56) cctx_17))" -"(if(compile-context? the-struct_56)" +"(let-values(((the-struct_57) cctx_17))" +"(if(compile-context? the-struct_57)" "(let-values(((phase47_1) 0)" "((self48_0) self_25)" "((module-self49_0) self_25)" @@ -36055,27 +36091,27 @@ static const char *startup_source = " full-module-name_2)" "((lazy-syntax-literals?51_0) #t))" "(compile-context1.1" -"(compile-context-namespace the-struct_56)" +"(compile-context-namespace the-struct_57)" " phase47_1" " self48_0" " module-self49_0" " full-module-name50_0" " lazy-syntax-literals?51_0" -"(compile-context-header the-struct_56)))" +"(compile-context-header the-struct_57)))" "(raise-argument-error" " 'struct-copy" " \"compile-context?\"" -" the-struct_56)))))" +" the-struct_57)))))" "(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_91" +" phase_93" " required-reference?_1)" "(begin" " 'check-side-effects!" -"(if(hash-ref side-effects_0 phase_91 #f)" +"(if(hash-ref side-effects_0 phase_93 #f)" "(void)" "(let-values()" "(if(let-values(((e52_2) e_73)" @@ -36092,7 +36128,7 @@ static const char *startup_source = "(let-values()" "(hash-set!" " side-effects_0" -" phase_91" +" phase_93" " #t))" "(void))))))))" "(let-values((()" @@ -36132,7 +36168,7 @@ static const char *startup_source = "(list" " empty-syntax-literals-instance" " empty-module-body-instance))" -"((temp60_2) '((void)))" +"((temp60_1) '((void)))" "((temp61_0) '(0))" "((encoded-root-expand-ctx-box62_0)" " encoded-root-expand-ctx-box_1)" @@ -36147,19 +36183,19 @@ static const char *startup_source = "(let-values(((ok?_27" " _69_2" " kw70_0)" -"(let-values(((s_403)" +"(let-values(((s_404)" "(parsed-s" " body_3)))" "(let-values(((orig-s_29)" -" s_403))" +" s_404))" "(let-values(((_69_3" " kw70_1)" "(let-values(((s_34)" "(if(syntax?$1" -" s_403)" +" s_404)" "(syntax-e$1" -" s_403)" -" s_403)))" +" s_404)" +" s_404)))" "(if(pair?" " s_34)" "(let-values(((_71_0)" @@ -36168,18 +36204,18 @@ static const char *startup_source = " s_34)))" " s_59))" "((kw72_0)" -"(let-values(((s_404)" +"(let-values(((s_405)" "(cdr" " s_34)))" -"(let-values(((s_405)" +"(let-values(((s_406)" "(if(syntax?$1" -" s_404)" +" s_405)" "(syntax-e$1" -" s_404)" -" s_404)))" +" s_405)" +" s_405)))" "(let-values(((flat-s_19)" "(to-syntax-list.1" -" s_405)))" +" s_406)))" "(if(not" " flat-s_19)" "(let-values()" @@ -36210,7 +36246,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_195)))" -"((letrec-values(((for-loop_204)" +"((letrec-values(((for-loop_203)" "(lambda(lst_268)" "(begin" " 'for-loop" @@ -36219,7 +36255,7 @@ static const char *startup_source = "(let-values(((kw_0)" "(unsafe-car" " lst_268))" -"((rest_148)" +"((rest_147)" "(unsafe-cdr" " lst_268)))" "(let-values((()" @@ -36253,17 +36289,17 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_204" -" rest_148)" +"(for-loop_203" +" rest_147)" "(values))))" "(values))))))" -" for-loop_204)" +" for-loop_203)" " lst_195)))" "(void)" " #f)))" "(let-values() #f))))" "((temp66_1)" -"(lambda(mod-name_17 phase_92)" +"(lambda(mod-name_17 phase_94)" "(let-values(((ht_128)" "(if modules-being-compiled_1" "(hash-ref" @@ -36274,7 +36310,7 @@ static const char *startup_source = "(if ht_128" "(hash-ref" " ht_128" -" phase_92" +" phase_94" " #f)" " #f))))" "((to-source?67_0) to-source?_3)" @@ -36283,7 +36319,7 @@ static const char *startup_source = "(compile-forms31.1" " temp59_2" " temp58_0" -" temp60_2" +" temp60_1" " check-side-effects!64_0" " #t" " unsafe-undefined" @@ -36304,40 +36340,40 @@ static const char *startup_source = "(hash-set!" " modules-being-compiled_1" "(1/module-path-index-resolve self_25)" -"(let-values(((ht_129)" +"(let-values(((ht_68)" " body-linklets_2))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" -"(check-in-hash ht_129)))" +"(check-in-hash ht_68)))" "((letrec-values(((for-loop_23)" -"(lambda(table_193" -" i_149)" +"(lambda(table_99" +" i_87)" "(begin" " 'for-loop" -"(if i_149" -"(let-values(((phase_93" +"(if i_87" +"(let-values(((phase_95" " linklet_6)" "(hash-iterate-key+value" -" ht_129" -" i_149)))" -"(let-values(((table_194)" -"(let-values(((table_195)" -" table_193))" -"(let-values(((table_196)" +" ht_68" +" i_87)))" +"(let-values(((table_100)" +"(let-values(((table_101)" +" table_99))" +"(let-values(((table_102)" "(let-values()" -"(let-values(((key_73" -" val_64)" +"(let-values(((key_39" +" val_27)" "(let-values()" "(values" -" phase_93" +" phase_95" "(module-linklet-info2.1" " linklet_6" "(hash-ref" " phase-to-link-module-uses_4" -" phase_93" +" phase_95" " #f)" " self_25" " #f" @@ -36345,37 +36381,37 @@ static const char *startup_source = "(if phase-to-link-extra-inspectorsss_2" "(hash-ref" " phase-to-link-extra-inspectorsss_2" -" phase_93" +" phase_95" " #f)" " #f))))))" "(hash-set" -" table_195" -" key_73" -" val_64)))))" +" table_101" +" key_39" +" val_27)))))" "(values" -" table_196)))))" +" table_102)))))" "(if(not" " #f)" "(for-loop_23" -" table_194" +" table_100" "(hash-iterate-next" -" ht_129" -" i_149))" -" table_194)))" -" table_193)))))" +" ht_68" +" i_87))" +" table_100)))" +" table_99)))))" " for-loop_23)" " '#hasheq()" -"(hash-iterate-first ht_129))))))" +"(hash-iterate-first ht_68))))))" "(void))" "(values))))" "(let-values(((declaration-linklet_0)" "(if serializable?_3" "((if to-source?_3" " values" -"(lambda(s_406)" +"(lambda(s_407)" "(let-values()" "(1/compile-linklet" -" s_406" +" s_407" " 'decl))))" "(list" " 'linklet" @@ -36425,12 +36461,12 @@ static const char *startup_source = " syntax-literals_4))" "((if to-source?_3" " values" -"(lambda(s_407)" +"(lambda(s_408)" "(let-values()" "(let-values(((linklet_7" " new-keys_1)" "(1/compile-linklet" -" s_407" +" s_408" " 'syntax-literals" "(vector" " deserialize-instance" @@ -36464,11 +36500,11 @@ static const char *startup_source = " syntax-literals_4)" "((mpis80_0) mpis_19)" "((self81_0) self_25)" -"((temp82_0)" +"((temp82_1)" "(not" " serializable?_3)))" "(generate-lazy-syntax-literals!9.1" -" temp82_0" +" temp82_1" " syntax-literals79_0" " mpis80_0" " self81_0))" @@ -36494,10 +36530,10 @@ static const char *startup_source = " syntax-literals_4))" "((if to-source?_3" " values" -"(lambda(s_208)" +"(lambda(s_209)" "(let-values()" "(1/compile-linklet" -" s_208" +" s_209" " 'syntax-literals-data))))" "(list*" " 'linklet" @@ -36526,10 +36562,10 @@ static const char *startup_source = "(if serializable?_3" "((if to-source?_3" " values" -"(lambda(s_209)" +"(lambda(s_210)" "(let-values()" "(1/compile-linklet" -" s_209" +" s_210" " 'data))))" "(list" " 'linklet" @@ -36637,7 +36673,7 @@ static const char *startup_source = "(hash-set" " bundle_12" " 'side-effects" -"(let-values(((temp83_1)" +"(let-values(((temp83_0)" "(hash-keys" " side-effects_0))" "((<84_0)" @@ -36645,7 +36681,7 @@ static const char *startup_source = "(sort7.1" " #f" " #f" -" temp83_1" +" temp83_0" " <84_0)))" " bundle_12)))" "(let-values(((bundle_14)" @@ -36681,8 +36717,8 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_269)))" -"((letrec-values(((for-loop_241)" -"(lambda(ht_130" +"((letrec-values(((for-loop_240)" +"(lambda(ht_129" " lst_270)" "(begin" " 'for-loop" @@ -36691,16 +36727,16 @@ static const char *startup_source = "(let-values(((sm_0)" "(unsafe-car" " lst_270))" -"((rest_149)" +"((rest_148)" "(unsafe-cdr" " lst_270)))" +"(let-values(((ht_130)" "(let-values(((ht_131)" -"(let-values(((ht_132)" -" ht_130))" +" ht_129))" "(let-values(((ht_123)" "(let-values()" "(hash-set" -" ht_132" +" ht_131" "(car" " sm_0)" "((if to-source?_3" @@ -36712,12 +36748,12 @@ static const char *startup_source = " ht_123)))))" "(if(not" " #f)" -"(for-loop_241" -" ht_131" -" rest_149)" -" ht_131)))" -" ht_130)))))" -" for-loop_241)" +"(for-loop_240" +" ht_130" +" rest_148)" +" ht_130)))" +" ht_129)))))" +" for-loop_240)" "(hasheq #f bundle_1)" " lst_269))))))))" "(if to-source?_3" @@ -36754,20 +36790,20 @@ static const char *startup_source = "(let-values(((lst_271) pre-submodules_2))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_271)))" -"((letrec-values(((for-loop_242)" +"((letrec-values(((for-loop_241)" "(lambda(lst_272)" "(begin" " 'for-loop" "(if(pair? lst_272)" -"(let-values(((s_408)(unsafe-car lst_272))((rest_150)(unsafe-cdr lst_272)))" +"(let-values(((s_160)(unsafe-car lst_272))((rest_149)(unsafe-cdr lst_272)))" "(let-values((()" "(let-values()" "(let-values((()" "(let-values()" "(begin" "(let-values()" -"(let-values(((name_58)(car s_408)))" -"(let-values(((cim_10)(cdr s_408)))" +"(let-values(((name_58)(car s_160)))" +"(let-values(((cim_10)(cdr s_160)))" "(let-values(((phase-to-link-module-uses_5)" "(compiled-in-memory-phase-to-link-module-uses" " cim_10)))" @@ -36788,7 +36824,7 @@ static const char *startup_source = " modules-being-compiled_2" "(1/module-path-index-resolve" " sm-self_0)" -"(let-values(((ht_133)" +"(let-values(((ht_132)" "(1/linklet-bundle->hash" "(if(1/linklet-directory?" " ld_5)" @@ -36802,37 +36838,37 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()" -"(check-in-hash ht_133)))" -"((letrec-values(((for-loop_243)" -"(lambda(table_197" -" i_150)" +"(check-in-hash ht_132)))" +"((letrec-values(((for-loop_242)" +"(lambda(table_194" +" i_149)" "(begin" " 'for-loop" -"(if i_150" -"(let-values(((phase_94" +"(if i_149" +"(let-values(((phase_96" " linklet_8)" "(hash-iterate-key+value" -" ht_133" -" i_150)))" -"(let-values(((table_198)" -"(let-values(((table_199)" -" table_197))" +" ht_132" +" i_149)))" +"(let-values(((table_195)" +"(let-values(((table_196)" +" table_194))" "(if(number?" -" phase_94)" -"(let-values(((table_200)" -" table_199))" -"(let-values(((table_201)" +" phase_96)" +"(let-values(((table_197)" +" table_196))" +"(let-values(((table_198)" "(let-values()" -"(let-values(((key_74" -" val_65)" +"(let-values(((key_73" +" val_64)" "(let-values()" "(values" -" phase_94" +" phase_96" "(module-linklet-info2.1" " linklet_8" "(hash-ref" " phase-to-link-module-uses_5" -" phase_94" +" phase_96" " #f)" "(compiled-in-memory-original-self" " cim_10)" @@ -36842,34 +36878,34 @@ static const char *startup_source = "(if phase-to-extra-inspectorsss_0" "(hash-ref" " phase-to-extra-inspectorsss_0" -" phase_94" +" phase_96" " #f)" " #f))))))" "(hash-set" -" table_200" -" key_74" -" val_65)))))" +" table_197" +" key_73" +" val_64)))))" "(values" -" table_201)))" -" table_199))))" +" table_198)))" +" table_196))))" "(if(not" " #f)" -"(for-loop_243" -" table_198" +"(for-loop_242" +" table_195" "(hash-iterate-next" -" ht_133" -" i_150))" -" table_198)))" -" table_197)))))" -" for-loop_243)" +" ht_132" +" i_149))" +" table_195)))" +" table_194)))))" +" for-loop_242)" " '#hasheq()" "(hash-iterate-first" -" ht_133))))))))))))" +" ht_132))))))))))))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_242 rest_150)(values))))" +"(if(not #f)(for-loop_241 rest_149)(values))))" "(values))))))" -" for-loop_242)" +" for-loop_241)" " lst_271)))" "(void)))))" "(define-values" @@ -36893,22 +36929,22 @@ static const char *startup_source = "(if(1/linklet-bundle? c_32)" "(let-values()" "(1/hash->linklet-bundle" -"(let-values(((ht_134)(1/linklet-bundle->hash c_32)))" +"(let-values(((ht_133)(1/linklet-bundle->hash c_32)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_134)))" -"((letrec-values(((for-loop_244)" -"(lambda(table_202 i_151)" +"(let-values()(check-in-hash ht_133)))" +"((letrec-values(((for-loop_243)" +"(lambda(table_199 i_150)" "(begin" " 'for-loop" -"(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)" +"(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)" "(let-values()" -"(let-values(((key_75 val_66)" +"(let-values(((key_74 val_65)" "(let-values()" "(if(1/linklet? v_73)" "(let-values()" @@ -36918,15 +36954,15 @@ static const char *startup_source = " v_73)))" "(let-values()" "(values k_33 v_73))))))" -"(hash-set table_204 key_75 val_66)))))" -"(values table_205)))))" +"(hash-set table_201 key_74 val_65)))))" +"(values table_202)))))" "(if(not #f)" -"(for-loop_244 table_203(hash-iterate-next ht_134 i_151))" -" table_203)))" -" table_202)))))" -" for-loop_244)" +"(for-loop_243 table_200(hash-iterate-next ht_133 i_150))" +" table_200)))" +" table_199)))))" +" for-loop_243)" " '#hasheq()" -"(hash-iterate-first ht_134))))))" +"(hash-iterate-first ht_133))))))" "(if(1/linklet-directory? c_32)" "(let-values()" "(1/hash->linklet-directory" @@ -36935,17 +36971,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_215)" -"(lambda(table_166 i_152)" +"((letrec-values(((for-loop_214)" +"(lambda(table_167 i_151)" "(begin" " 'for-loop" -"(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_166))" -"(let-values(((table_167)" +"(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))" +"(let-values(((table_168)" "(let-values()" -"(let-values(((key_76 val_67)" +"(let-values(((key_75 val_66)" "(let-values()" "(if(1/compiled-expression?" " v_1)" @@ -36956,13 +36992,13 @@ static const char *startup_source = " v_1)))" "(let-values()" "(values k_34 v_1))))))" -"(hash-set table_207 key_76 val_67)))))" -"(values table_167)))))" +"(hash-set table_204 key_75 val_66)))))" +"(values table_168)))))" "(if(not #f)" -"(for-loop_215 table_206(hash-iterate-next ht_84 i_152))" -" table_206)))" -" table_166)))))" -" for-loop_215)" +"(for-loop_214 table_203(hash-iterate-next ht_84 i_151))" +" table_203)))" +" table_167)))))" +" for-loop_214)" " '#hasheq()" "(hash-iterate-first ht_84))))))" "(let-values() c_32)))))))" @@ -36981,7 +37017,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_77)(begin 'data(1/instance-variable-value data-instance_5 key_77)))))" +"(let-values(((data_0)(lambda(key_76)(begin 'data(1/instance-variable-value data-instance_5 key_76)))))" "(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)))" @@ -37054,7 +37090,7 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()(check-list lst_260)))" -"((letrec-values(((for-loop_234)" +"((letrec-values(((for-loop_233)" "(lambda(fold-var_154" " lst_258" " lst_23" @@ -37076,7 +37112,7 @@ static const char *startup_source = "(let-values(((sub-ld_0)" "(unsafe-car" " lst_258))" -"((rest_142)" +"((rest_141)" "(unsafe-cdr" " lst_258))" "((mpi-vector-tree_1)" @@ -37088,7 +37124,7 @@ static const char *startup_source = "((phase-to-link-modules-tree_1)" "(unsafe-car" " lst_104))" -"((rest_90)" +"((rest_89)" "(unsafe-cdr" " lst_104))" "((syntax-literals-tree_1)" @@ -37113,15 +37149,15 @@ static const char *startup_source = "(values" " fold-var_168)))))" "(if(not #f)" -"(for-loop_234" +"(for-loop_233" " fold-var_166" -" rest_142" +" rest_141" " rest_51" -" rest_90" +" rest_89" " rest_37)" " fold-var_166)))" " fold-var_154)))))" -" for-loop_234)" +" for-loop_233)" " null" " lst_160" " lst_89" @@ -37163,7 +37199,7 @@ static const char *startup_source = "(begin" " #f" "((letrec-values(((for-loop_109)" -"(lambda(i_153 pos_102)" +"(lambda(i_152 pos_102)" "(begin" " 'for-loop" "(if(unsafe-fx<" @@ -37173,10 +37209,10 @@ static const char *startup_source = "(unsafe-vector-ref" " vec_65" " pos_102)))" -"(let-values(((i_154)" +"(let-values(((i_153)" "(let-values(((i_63)" -" i_153))" -"(let-values(((i_155)" +" i_152))" +"(let-values(((i_154)" "(let-values()" "(begin" "(unsafe-vector*-set!" @@ -37190,22 +37226,22 @@ static const char *startup_source = " 1" " i_63)))))" "(values" -" i_155)))))" +" i_154)))))" "(if(if(not" "((lambda x_19" "(unsafe-fx=" -" i_154" +" i_153" " len_29))" " pos_103))" "(not #f)" " #f)" "(for-loop_109" -" i_154" +" i_153" "(unsafe-fx+" " 1" " pos_102))" -" i_154)))" -" i_153)))))" +" i_153)))" +" i_152)))))" " for-loop_109)" " 0" " 0)))))" @@ -37234,16 +37270,16 @@ static const char *startup_source = "(void)" "(let-values()" "(check-range start_15 end_28 inc_22)))" -"((letrec-values(((for-loop_245)" -"(lambda(i_156 pos_104)" +"((letrec-values(((for-loop_244)" +"(lambda(i_155 pos_104)" "(begin" " 'for-loop" "(if(< pos_104 end_28)" "(let-values(((i_93)" " pos_104))" -"(let-values(((i_157)" +"(let-values(((i_156)" "(let-values(((i_36)" -" i_156))" +" i_155))" "(let-values(((i_20)" "(let-values()" "(begin" @@ -37265,21 +37301,21 @@ static const char *startup_source = "(values" " i_20)))))" "(if(if(not" -"((lambda x_72" +"((lambda x_71" "(unsafe-fx=" -" i_157" +" i_156" " len_31))" " i_93))" "(not #f)" " #f)" -"(for-loop_245" -" i_157" +"(for-loop_244" +" i_156" "(+" " pos_104" " inc_22))" -" i_157)))" -" i_156)))))" -" for-loop_245)" +" i_156)))" +" i_155)))))" +" for-loop_244)" " 0" " start_15)))))" " v_36))))" @@ -37311,13 +37347,13 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_175)))" -"((letrec-values(((for-loop_246)" +"((letrec-values(((for-loop_245)" "(lambda(fold-var_5 lst_273)" "(begin" " 'for-loop" "(if(pair? lst_273)" "(let-values(((name_59)(unsafe-car lst_273))" -"((rest_151)(unsafe-cdr lst_273)))" +"((rest_150)(unsafe-cdr lst_273)))" "(let-values(((fold-var_226)" "(let-values(((fold-var_227) fold-var_5))" "(let-values(((fold-var_157)" @@ -37333,9 +37369,9 @@ static const char *startup_source = " name_59))))" " fold-var_227))))" "(values fold-var_157)))))" -"(if(not #f)(for-loop_246 fold-var_226 rest_151) fold-var_226)))" +"(if(not #f)(for-loop_245 fold-var_226 rest_150) fold-var_226)))" " fold-var_5)))))" -" for-loop_246)" +" for-loop_245)" " null" " lst_175))))))))))))))" "(define-values" @@ -37459,12 +37495,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_194)" +"((letrec-values(((for-loop_193)" "(lambda(prev-thunk_0 pos_101)" "(begin" " 'for-loop" "(if(> pos_101 end_27)" -"(let-values(((phase_95) pos_101))" +"(let-values(((phase_97) pos_101))" "(let-values(((prev-thunk_1)" "(let-values(((prev-thunk_2)" " prev-thunk_0))" @@ -37478,7 +37514,7 @@ static const char *startup_source = "(let-values(((module-uses_1)" "(hash-ref" " phase-to-link-modules_1" -" phase_95" +" phase_97" " null)))" "(let-values(((import-module-instances_2" " import-instances_1)" @@ -37504,7 +37540,7 @@ static const char *startup_source = "(let-values(((mu_9)" "(unsafe-car" " lst_222))" -"((rest_152)" +"((rest_151)" "(unsafe-cdr" " lst_222)))" "(let-values(((mis_8" @@ -37526,7 +37562,7 @@ static const char *startup_source = "((temp30_3)" "(phase-" "(phase+" -" phase_95" +" phase_97" " phase-shift_18)" "(module-use-phase" " mu_9))))" @@ -37551,7 +37587,7 @@ static const char *startup_source = "(for-loop_111" " mis_8" " is_7" -" rest_152)" +" rest_151)" "(values" " mis_8" " is_7))))" @@ -37571,7 +37607,7 @@ static const char *startup_source = "(namespace->namespace-at-phase" " ns_72" "(phase+" -" phase_95" +" phase_97" " phase-shift_18))))" "(let-values(((inst_5)" "(if single-expression?_1" @@ -37591,15 +37627,15 @@ static const char *startup_source = " ns_72))" "((temp36_2)" "(lambda(name_60" -" val_68)" +" val_67)" "(namespace-set-transformer!" " ns_72" "(phase+" "(sub1" -" phase_95)" +" phase_97)" " phase-shift_18)" " name_60" -" val_68))))" +" val_67))))" "(make-instance-instance13.1" " temp35_1" " temp34_3" @@ -37610,7 +37646,7 @@ static const char *startup_source = "(let-values(((linklet_9)" "(hash-ref" " h_11" -" phase_95" +" phase_97" " #f)))" "(if linklet_9" "(let-values()" @@ -37631,7 +37667,7 @@ static const char *startup_source = "((temp43_2)" "(hash-ref" " phase-to-link-extra-inspectorsss_3" -" phase_95" +" phase_97" " #f)))" "(check-require-access9.1" " temp38_2" @@ -37657,14 +37693,14 @@ static const char *startup_source = " ns_72" "(phase-" "(phase+" -" phase_95" +" phase_97" " phase-shift_18)" "(namespace-0-phase" " ns_72)))" "(not" " tail?_49))))))" "(if(zero-phase?" -" phase_95)" +" phase_97)" "(let-values()" " instantiate_0)" "(if single-expression?_1" @@ -37688,7 +37724,7 @@ static const char *startup_source = "(namespace->namespace-at-phase" " phase-ns_0" "(sub1" -" phase_95))))" +" phase_97))))" "(lambda(tail?_51)" "(begin" " 'prev-thunk" @@ -37716,12 +37752,12 @@ static const char *startup_source = "(values" " prev-thunk_3)))))" "(if(not #f)" -"(for-loop_194" +"(for-loop_193" " prev-thunk_1" "(+ pos_101 inc_21))" " prev-thunk_1)))" " prev-thunk_0)))))" -" for-loop_194)" +" for-loop_193)" " void" " start_38)))))" "(thunk_5 as-tail?_2))))))))))))))))))))" @@ -37757,20 +37793,20 @@ static const char *startup_source = "(begin" " #f" "((letrec-values(((for-loop_6)" -"(lambda(i_158 pos_105)" +"(lambda(i_157 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_159)" -"(let-values(((i_160) i_158))" -"(let-values(((i_161)" +"(let-values(((i_158)" +"(let-values(((i_159) i_157))" +"(let-values(((i_160)" "(let-values()" "(begin" "(unsafe-vector*-set!" " v_98" -" i_160" +" i_159" "(let-values()" "(swap-top-level-scopes" " s_50" @@ -37779,17 +37815,17 @@ static const char *startup_source = " to-ns_0)))" "(unsafe-fx+" " 1" -" i_160)))))" -"(values i_161)))))" +" i_159)))))" +"(values i_160)))))" "(if(if(not" -"((lambda x_73" -"(unsafe-fx= i_159 len_32))" +"((lambda x_72" +"(unsafe-fx= i_158 len_32))" " s_50))" "(not #f)" " #f)" -"(for-loop_6 i_159(unsafe-fx+ 1 pos_105))" -" i_159)))" -" i_158)))))" +"(for-loop_6 i_158(unsafe-fx+ 1 pos_105))" +" i_158)))" +" i_157)))))" " for-loop_6)" " 0" " 0)))))" @@ -37817,22 +37853,22 @@ static const char *startup_source = "(void)" "(let-values()(check-list lst_103)))" "((letrec-values(((for-loop_115)" -"(lambda(result_113 lst_84)" +"(lambda(result_112 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_79)" +"(let-values(((result_78)" "(let-values()" -"(let-values(((result_114)" +"(let-values(((result_113)" "(let-values()" "(let-values()" "(can-direct-eval? r_42 ns_42 self-mpi_3)))))" -"(values result_114)))))" -"(if(if(not((lambda x_74(not result_79)) r_42))(not #f) #f)" -"(for-loop_115 result_79 rest_50)" -" result_79)))" -" result_113)))))" +"(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)" " #t" " lst_103)))" @@ -37923,12 +37959,12 @@ static const char *startup_source = "(define-values(runtime-mpi)(1/module-path-index-join ''#%runtime #f))" "(define-values" "(add-runtime-primitive!)" -"(lambda(sym_66)" +"(lambda(sym_67)" "(begin" "(let-values(((temp1_4)(syntax-scope-set runtime-stx 0))" -"((sym2_0) sym_66)" +"((sym2_0) sym_67)" "((temp3_5)" -"(let-values(((runtime-mpi4_0) runtime-mpi)((temp5_4) 0)((sym6_2) sym_66))" +"(let-values(((runtime-mpi4_0) runtime-mpi)((temp5_4) 0)((sym6_2) sym_67))" "(make-module-binding22.1" " #f" " null" @@ -38015,16 +38051,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_96)" +"(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_96)))" +"(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_97)" +"(lambda(ids_17 rhs_13 phase_99)" "(let-values(((keys_2)" "(reverse$1" "(let-values(((lst_274) ids_17))" @@ -38038,7 +38074,7 @@ static const char *startup_source = " 'for-loop" "(if(pair? lst_275)" "(let-values(((id_58)(unsafe-car lst_275))" -"((rest_153)(unsafe-cdr lst_275)))" +"((rest_152)(unsafe-cdr lst_275)))" "(let-values(((fold-var_85)" "(let-values(((fold-var_86) fold-var_158))" "(let-values(((fold-var_87)" @@ -38049,7 +38085,7 @@ static const char *startup_source = "(let-values(((id32_0)" " id_58)" "((phase33_0)" -" phase_97)" +" phase_99)" "((counter34_0)" " counter_3))" "(add-local-binding!37.1" @@ -38068,7 +38104,7 @@ static const char *startup_source = " key_15)))" " fold-var_86))))" "(values fold-var_87)))))" -"(if(not #f)(for-loop_29 fold-var_85 rest_153) fold-var_85)))" +"(if(not #f)(for-loop_29 fold-var_85 rest_152) fold-var_85)))" " fold-var_158)))))" " for-loop_29)" " null" @@ -38089,13 +38125,13 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_183)))" -"((letrec-values(((for-loop_247)" +"((letrec-values(((for-loop_246)" "(lambda(fold-var_229 lst_184)" "(begin" " 'for-loop" "(if(pair? lst_184)" "(let-values(((id_59)(unsafe-car lst_184))" -"((rest_154)(unsafe-cdr lst_184)))" +"((rest_153)(unsafe-cdr lst_184)))" "(let-values(((fold-var_230)" "(let-values(((fold-var_231) fold-var_229))" "(let-values(((fold-var_232)" @@ -38108,17 +38144,17 @@ static const char *startup_source = " fold-var_231))))" "(values fold-var_232)))))" "(if(not #f)" -"(for-loop_247 fold-var_230 rest_154)" +"(for-loop_246 fold-var_230 rest_153)" " fold-var_230)))" " fold-var_229)))))" -" for-loop_247)" +" for-loop_246)" " null" " lst_183))))))" "(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_98)" +"(lambda(lifts_3 body_4 phase_100)" "(begin" "(datum->syntax$1" " #f" @@ -38130,7 +38166,7 @@ static const char *startup_source = "(begin" " 'for-loop" "(if(pair? lst_186)" -"(let-values(((lift_0)(unsafe-car lst_186))((rest_155)(unsafe-cdr lst_186)))" +"(let-values(((lift_0)(unsafe-car lst_186))((rest_154)(unsafe-cdr lst_186)))" "(let-values(((body_6)" "(let-values(((body_7) body_5))" "(let-values(((body_0)" @@ -38142,7 +38178,7 @@ static const char *startup_source = " (error \"non-bindings in `lift-context`\")))" "(list" "(datum->syntax$1" -"(syntax-shift-phase-level$1 core-stx phase_98)" +"(syntax-shift-phase-level$1 core-stx phase_100)" " 'let-values)" "(list" "(list" @@ -38150,7 +38186,7 @@ static const char *startup_source = "(lifted-bind-rhs lift_0)))" " body_7)))))" "(values body_0)))))" -"(if(not #f)(for-loop_56 body_6 rest_155) body_6)))" +"(if(not #f)(for-loop_56 body_6 rest_154) body_6)))" " body_5)))))" " for-loop_56)" " body_4" @@ -38162,14 +38198,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_99) 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_99) 'begin)" +"(datum->syntax$1(syntax-shift-phase-level$1 core-stx phase_101) 'begin)" "(append" "(reverse$1" "(let-values(((lst_277) lifts_4))" @@ -38177,13 +38213,13 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_277)))" -"((letrec-values(((for-loop_248)" +"((letrec-values(((for-loop_247)" "(lambda(fold-var_164 lst_167)" "(begin" " 'for-loop" "(if(pair? lst_167)" "(let-values(((lift_1)(unsafe-car lst_167))" -"((rest_156)(unsafe-cdr lst_167)))" +"((rest_155)(unsafe-cdr lst_167)))" "(let-values(((fold-var_165)" "(let-values(((fold-var_178) fold-var_164))" "(let-values(((fold-var_233)" @@ -38199,7 +38235,7 @@ static const char *startup_source = "(datum->syntax$1" "(syntax-shift-phase-level$1" " core-stx" -" phase_99)" +" phase_101)" " 'define-values)" "(lifted-bind-ids lift_1)" "(lifted-bind-rhs" @@ -38207,9 +38243,9 @@ static const char *startup_source = "(let-values() lift_1))))" " fold-var_178))))" "(values fold-var_233)))))" -"(if(not #f)(for-loop_248 fold-var_165 rest_156) fold-var_165)))" +"(if(not #f)(for-loop_247 fold-var_165 rest_155) fold-var_165)))" " fold-var_164)))))" -" for-loop_248)" +" for-loop_247)" " null" " lst_277))))" "(list(adjust-body_0 body_8))))))))))))))" @@ -38221,12 +38257,12 @@ static const char *startup_source = "(let-values(((lst_107) lifts_5))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_107)))" -"((letrec-values(((for-loop_249)" +"((letrec-values(((for-loop_248)" "(lambda(fold-var_234 lst_278)" "(begin" " 'for-loop" "(if(pair? lst_278)" -"(let-values(((lift_2)(unsafe-car lst_278))((rest_157)(unsafe-cdr lst_278)))" +"(let-values(((lift_2)(unsafe-car lst_278))((rest_156)(unsafe-cdr lst_278)))" "(let-values(((fold-var_38)" "(let-values(((fold-var_235) fold-var_234))" "(let-values(((fold-var_236)" @@ -38239,9 +38275,9 @@ static const char *startup_source = "(lifted-bind-rhs lift_2)))" " fold-var_235))))" "(values fold-var_236)))))" -"(if(not #f)(for-loop_249 fold-var_38 rest_157) fold-var_38)))" +"(if(not #f)(for-loop_248 fold-var_38 rest_156) fold-var_38)))" " fold-var_234)))))" -" for-loop_249)" +" for-loop_248)" " null" " lst_107)))))))" "(define-values" @@ -38281,7 +38317,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_100)" +"(lambda(module-lifts_2 s_409 phase_102)" "(begin" "(begin" "(if(let-values(((or-part_170)" @@ -38293,7 +38329,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_100)))" +"(let-values(((tmp_30)(core-form-sym s_409 phase_102)))" "(if(equal? tmp_30 'module)" "(let-values()(void))" "(if(equal? tmp_30 'module*)" @@ -38347,10 +38383,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_101)" +"(lambda(require-lifts_2 s_410 phase_103)" "(begin" "(begin" -"((require-lift-context-do-require require-lifts_2) s_410 phase_101)" +"((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" @@ -38388,10 +38424,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_80) 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_80(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!)" @@ -38401,11 +38437,11 @@ static const char *startup_source = "(lambda(to-module-lifts_2)(begin(box-clear!(to-module-lift-context-provides to-module-lifts_2)))))" "(define-values" "(add-lifted-to-module-provide!)" -"(lambda(to-module-lifts_3 s_218 phase_94)" -"(begin(box-cons!(to-module-lift-context-provides to-module-lifts_3) s_218))))" +"(lambda(to-module-lifts_3 s_219 phase_96)" +"(begin(box-cons!(to-module-lift-context-provides to-module-lifts_3) s_219))))" "(define-values" "(add-lifted-to-module-end!)" -"(lambda(to-module-lifts_4 s_323 phase_3)(begin(box-cons!(to-module-lift-context-ends to-module-lifts_4) s_323))))" +"(lambda(to-module-lifts_4 s_324 phase_3)(begin(box-cons!(to-module-lift-context-ends to-module-lifts_4) s_324))))" "(define-values" "(struct:already-expanded already-expanded1.1 already-expanded? already-expanded-s already-expanded-binding-layer)" "(let-values(((struct:_0 make-_0 ?_0 -ref_0 -set!_0)" @@ -38463,14 +38499,14 @@ static const char *startup_source = "(void)" "(let-values()(check-list lst_75)))" "((letrec-values(((for-loop_95)" -"(lambda(result_77 lst_76)" +"(lambda(result_76 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_64)" +"(let-values(((result_63)" "(let-values()" -"(let-values(((result_115)" +"(let-values(((result_114)" "(let-values()" "(let-values()" "(memq" @@ -38480,11 +38516,11 @@ static const char *startup_source = " module" " module-begin" " definition-context))))))" -"(values result_115)))))" -"(if(if(not((lambda x_75(not result_64)) s_2))(not #f) #f)" -"(for-loop_95 result_64 rest_35)" -" result_64)))" -" result_77)))))" +"(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)" " #t" " lst_75)))" @@ -38506,17 +38542,17 @@ static const char *startup_source = "(define-values(context->symbol)(lambda(context_5)(begin(if(symbol? context_5) context_5 'definition-context))))" "(define-values" "(avoid-current-expand-context)" -"(lambda(s_178 t_47 ctx_13)" +"(lambda(s_179 t_47 ctx_13)" "(begin" "(let-values(((wrap_1)" -"(lambda(sym_67)" +"(lambda(sym_68)" "(begin" " 'wrap" "(datum->syntax$1" " #f" "(list" -"(syntax-shift-phase-level$1(datum->syntax$1 core-stx sym_67)(expand-context-phase ctx_13))" -" s_178))))))" +"(syntax-shift-phase-level$1(datum->syntax$1 core-stx sym_68)(expand-context-phase ctx_13))" +" s_179))))))" "(let-values(((fail_0)" "(lambda()" "(begin" @@ -38526,7 +38562,7 @@ static const char *startup_source = "(format" " \"not allowed in context\\n expansion context: ~a\"" "(context->symbol(expand-context-context ctx_13)))" -" s_178)))))" +" s_179)))))" "(let-values(((tmp_31)(context->symbol(expand-context-context ctx_13))))" "(if(equal? tmp_31 'module-begin)" "(let-values()(wrap_1 'begin))" @@ -38587,12 +38623,12 @@ static const char *startup_source = "(let-values(((lst_41) rrs_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_41)))" -"((letrec-values(((for-loop_250)" +"((letrec-values(((for-loop_249)" "(lambda(lst_89)" "(begin" " 'for-loop" "(if(pair? lst_89)" -"(let-values(((rr_1)(unsafe-car lst_89))((rest_119)(unsafe-cdr lst_89)))" +"(let-values(((rr_1)(unsafe-car lst_89))((rest_118)(unsafe-cdr lst_89)))" "(let-values(((post-guard-var_0)(lambda()(begin 'post-guard-var #t))))" "(let-values()" "(if(reference-record-all-referenced? rr_1)" @@ -38604,9 +38640,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_119)(values))))))))" +"(if(post-guard-var_0)(for-loop_249 rest_118)(values))))))))" "(values))))))" -" for-loop_250)" +" for-loop_249)" " lst_41)))" "(void)))))" "(define-values" @@ -38619,19 +38655,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_188)" "(lambda(ab_3 lst_79)" "(begin" " 'for-loop" "(if(pair? lst_79)" -"(let-values(((key_78)(unsafe-car lst_79))((rest_84)(unsafe-cdr lst_79)))" +"(let-values(((key_77)(unsafe-car lst_79))((rest_83)(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_78))))" +"(let-values(((ab_6)(let-values()(set-add ab_5 key_77))))" "(values ab_6)))))" -"(if(not #f)(for-loop_190 ab_4 rest_84) ab_4)))" +"(if(not #f)(for-loop_188 ab_4 rest_83) ab_4)))" " ab_3)))))" -" for-loop_190)" +" for-loop_188)" "(reference-record-already-bound rr_2)" " lst_23))))" "(set-reference-record-reference-before-bound!" @@ -38644,10 +38680,10 @@ static const char *startup_source = "(begin" " 'for-loop" "(if(pair? lst_24)" -"(let-values(((key_79)(unsafe-car lst_24))((rest_26)(unsafe-cdr lst_24)))" +"(let-values(((key_78)(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_79))))" +"(let-values(((rbb_3)(let-values()(set-remove rbb_2 key_78))))" "(values rbb_3)))))" "(if(not #f)(for-loop_83 rbb_1 rest_26) rbb_1)))" " rbb_0)))))" @@ -38667,19 +38703,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_80 . args_5)" +"(lambda(obs_0 key_79 . args_5)" "(begin" "(begin" -"(let-values(((c1_28)(hash-ref key->arity key_80 #f)))" +"(let-values(((c1_28)(hash-ref key->arity key_79 #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_80 args_5))))" +" (let-values () (error 'call-expand-observe \"wrong arity for ~s: ~e\" key_79 args_5))))" " c1_28)" -" (let-values () (error 'call-expand-observe \"bad key: ~s\" key_80))))" -"(obs_0 key_80(if(null? args_5)(let-values() #f)(let-values()(apply list* args_5))))))))" +" (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))))))))" "(define-values" "(key->arity)" " '#hash((block->letrec . 1)" @@ -38855,7 +38891,7 @@ static const char *startup_source = " ?_10" "(make-struct-field-accessor -ref_10 0 's)" "(make-struct-field-accessor -ref_10 1 'body))))" -"(define-values(extract-syntax)(lambda(s_191)(begin(if(expanded+parsed? s_191)(expanded+parsed-s s_191) s_191))))" +"(define-values(extract-syntax)(lambda(s_192)(begin(if(expanded+parsed? s_192)(expanded+parsed-s s_192) s_192))))" "(define-values" "(parsed-only)" "(lambda(l_70)" @@ -38864,12 +38900,12 @@ static const char *startup_source = "(let-values(((lst_175) l_70))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_175)))" -"((letrec-values(((for-loop_246)" +"((letrec-values(((for-loop_245)" "(lambda(fold-var_5 lst_273)" "(begin" " 'for-loop" "(if(pair? lst_273)" -"(let-values(((i_45)(unsafe-car lst_273))((rest_151)(unsafe-cdr lst_273)))" +"(let-values(((i_45)(unsafe-car lst_273))((rest_150)(unsafe-cdr lst_273)))" "(let-values(((fold-var_226)" "(let-values(((fold-var_227) fold-var_5))" "(if(let-values(((or-part_263)(parsed? i_45)))" @@ -38898,9 +38934,9 @@ static const char *startup_source = " fold-var_172))))" "(values fold-var_173)))" " fold-var_227))))" -"(if(not #f)(for-loop_246 fold-var_226 rest_151) fold-var_226)))" +"(if(not #f)(for-loop_245 fold-var_226 rest_150) fold-var_226)))" " fold-var_5)))))" -" for-loop_246)" +" for-loop_245)" " null" " lst_175)))))))" "(define-values" @@ -38911,12 +38947,12 @@ static const char *startup_source = "(let-values(((lst_279) l_19))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_279)))" -"((letrec-values(((for-loop_251)" +"((letrec-values(((for-loop_250)" "(lambda(fold-var_159 lst_280)" "(begin" " 'for-loop" "(if(pair? lst_280)" -"(let-values(((i_37)(unsafe-car lst_280))((rest_158)(unsafe-cdr lst_280)))" +"(let-values(((i_37)(unsafe-car lst_280))((rest_157)(unsafe-cdr lst_280)))" "(let-values(((fold-var_86)" "(let-values(((fold-var_87) fold-var_159))" "(if(let-values(((or-part_264)(syntax?$1 i_37)))" @@ -39013,9 +39049,9 @@ static const char *startup_source = " fold-var_88))))" "(values fold-var_237)))" " fold-var_87))))" -"(if(not #f)(for-loop_251 fold-var_86 rest_158) fold-var_86)))" +"(if(not #f)(for-loop_250 fold-var_86 rest_157) fold-var_86)))" " fold-var_159)))))" -" for-loop_251)" +" for-loop_250)" " null" " lst_279)))))))" "(define-values" @@ -39023,7 +39059,7 @@ static const char *startup_source = "(lambda(alternate-id1_0 fail-non-transformer3_0 skip-log?2_0 s7_0 ctx8_0)" "(begin" " 'expand9" -"(let-values(((s_188) s7_0))" +"(let-values(((s_189) s7_0))" "(let-values(((ctx_14) ctx8_0))" "(let-values(((alternate-id_0) alternate-id1_0))" "(let-values(((skip-log?_0) skip-log?2_0))" @@ -39038,14 +39074,14 @@ static const char *startup_source = "(call-expand-observe" " obs_1" "(if(expand-context-only-immediate? ctx_14) 'enter-check 'visit)" -" s_188))" +" s_189))" "(void)))" "(void)))" -"(if(syntax-identifier? s_188)" -"(let-values()(expand-identifier s_188 ctx_14 alternate-id_0))" -"(if(if(pair?(syntax-content s_188))(syntax-identifier?(car(syntax-content s_188))) #f)" +"(if(syntax-identifier? s_189)" +"(let-values()(expand-identifier s_189 ctx_14 alternate-id_0))" +"(if(if(pair?(syntax-content s_189))(syntax-identifier?(car(syntax-content s_189))) #f)" "(let-values()" -"(let-values(((s122_0) s_188)" +"(let-values(((s122_0) s_189)" "((ctx123_0) ctx_14)" "((alternate-id124_0) alternate-id_0)" "((fail-non-transformer125_0) fail-non-transformer_0))" @@ -39054,12 +39090,12 @@ static const char *startup_source = " s122_0" " ctx123_0" " alternate-id124_0)))" -"(if(let-values(((or-part_67)(pair?(syntax-content s_188))))" -"(if or-part_67 or-part_67(null?(syntax-content s_188))))" -"(let-values()(expand-implicit '#%app s_188 ctx_14 #f))" -"(if(already-expanded?(syntax-content s_188))" -"(let-values()(expand-already-expanded s_188 ctx_14))" -"(let-values()(expand-implicit '#%datum s_188 ctx_14 #f))))))))))))))))" +"(if(let-values(((or-part_67)(pair?(syntax-content s_189))))" +"(if or-part_67 or-part_67(null?(syntax-content s_189))))" +"(let-values()(expand-implicit '#%app s_189 ctx_14 #f))" +"(if(already-expanded?(syntax-content s_189))" +"(let-values()(expand-already-expanded s_189 ctx_14))" +"(let-values()(expand-implicit '#%datum s_189 ctx_14 #f))))))))))))))))" "(define-values" "(expand-identifier)" "(lambda(s_413 ctx_15 alternate-id_1)" @@ -39226,7 +39262,7 @@ static const char *startup_source = " protected?159_0)))))))))))))))))))))" "(define-values" "(expand-implicit)" -"(lambda(sym_68 s_52 ctx_17 trigger-id_1)" +"(lambda(sym_69 s_52 ctx_17 trigger-id_1)" "(begin" "(if(expand-context-only-immediate? ctx_17)" "(let-values()" @@ -39236,7 +39272,7 @@ static const char *startup_source = " s_52))" "(let-values()" "(let-values(((disarmed-s_1)(syntax-disarm$1 s_52)))" -"(let-values(((id_62)(datum->syntax$1 disarmed-s_1 sym_68)))" +"(let-values(((id_62)(datum->syntax$1 disarmed-s_1 sym_69)))" "(if(if(not(free-id-set-empty?(expand-context-stops ctx_17)))" "(free-id-set-member?(expand-context-stops ctx_17)(expand-context-phase ctx_17) id_62)" " #f)" @@ -39285,11 +39321,11 @@ static const char *startup_source = "(lambda()" "(begin" " 'fail-non-transformer" -"(raise-syntax-implicit-error s_52 sym_68 trigger-id_1 ctx_17)))" +"(raise-syntax-implicit-error s_52 sym_69 trigger-id_1 ctx_17)))" " #f)))" "(let-values(((t168_0) t_50)" "((insp-of-t169_0) insp-of-t_2)" -"((temp170_1)(make-explicit ctx_17 sym_68 s_52 disarmed-s_1))" +"((temp170_1)(make-explicit ctx_17 sym_69 s_52 disarmed-s_1))" "((id171_1) id_62)" "((ctx172_0) ctx_17)" "((b173_0) b_80)" @@ -39304,7 +39340,7 @@ static const char *startup_source = " b173_0))))" "(if(core-form? t_50)" "(let-values()" -"(if(if(eq? sym_68 '#%top)" +"(if(if(eq? sym_69 '#%top)" "(if(eq?(core-form-name t_50) '#%top)" "(expand-context-in-local-expand? ctx_17)" " #f)" @@ -39313,11 +39349,11 @@ static const char *startup_source = "(let-values()" "(dispatch-core-form" " t_50" -"(make-explicit ctx_17 sym_68 s_52 disarmed-s_1)" +"(make-explicit ctx_17 sym_69 s_52 disarmed-s_1)" " ctx_17))))" "(let-values()" "(let-values(((tl-id_0)" -"(if(eq? sym_68 '#%top)" +"(if(eq? sym_69 '#%top)" "(if(root-expand-context-top-level-bind-scope ctx_17)" "(add-scope s_52(root-expand-context-top-level-bind-scope ctx_17))" " #f)" @@ -39338,7 +39374,7 @@ static const char *startup_source = "(let-values()" "(raise-syntax-implicit-error" " s_52" -" sym_68" +" sym_69" " trigger-id_1" " ctx_17))))))))))))))))))))))" "(define-values" @@ -39387,10 +39423,10 @@ static const char *startup_source = " result-s_1))))))))))))" "(define-values" "(make-explicit)" -"(lambda(ctx_19 sym_69 s_414 disarmed-s_2)" +"(lambda(ctx_19 sym_70 s_414 disarmed-s_2)" "(begin" "(let-values(((new-s_0)" -"(syntax-rearm$1(datum->syntax$1 disarmed-s_2(cons sym_69 disarmed-s_2) s_414 s_414) s_414)))" +"(syntax-rearm$1(datum->syntax$1 disarmed-s_2(cons sym_70 disarmed-s_2) s_414 s_414) s_414)))" "(begin" "(let-values(((obs_10)(expand-context-observer ctx_19)))" "(if obs_10(let-values()(let-values()(call-expand-observe obs_10 'tag new-s_0)))(void)))" @@ -39435,24 +39471,24 @@ static const char *startup_source = " (let-values () (raise-syntax-error$1 #f \"illegal use of syntax\" s_415))))))))))))))))))" "(define-values" "(dispatch-core-form)" -"(lambda(t_52 s_160 ctx_21)" +"(lambda(t_52 s_416 ctx_21)" "(begin" "(if(expand-context-only-immediate? ctx_21)" "(let-values()" "(begin" "(let-values(((obs_11)(expand-context-observer ctx_21)))" -"(if obs_11(let-values()(let-values()(call-expand-observe obs_11 'exit-check s_160)))(void)))" -" s_160))" +"(if obs_11(let-values()(let-values()(call-expand-observe obs_11 'exit-check s_416)))(void)))" +" s_416))" "(if(expand-context-observer ctx_21)" "(let-values()" "(let-values((()" "(begin" "(let-values(((obs_12)(expand-context-observer ctx_21)))" "(if obs_12" -"(let-values()(let-values()(call-expand-observe obs_12 'enter-prim s_160)))" +"(let-values()(let-values()(call-expand-observe obs_12 'enter-prim s_416)))" "(void)))" "(values))))" -"(let-values(((result-s_2)((core-form-expander t_52) s_160 ctx_21)))" +"(let-values(((result-s_2)((core-form-expander t_52) s_416 ctx_21)))" "(begin" "(let-values(((obs_13)(expand-context-observer ctx_21)))" "(if obs_13" @@ -39463,19 +39499,19 @@ static const char *startup_source = "(call-expand-observe obs_13 'return(extract-syntax result-s_2)))))" "(void)))" " result-s_2))))" -"(let-values()((core-form-expander t_52) s_160 ctx_21)))))))" +"(let-values()((core-form-expander t_52) s_416 ctx_21)))))))" "(define-values" "(dispatch-implicit-#%top-core-form)" -"(lambda(t_53 s_319 ctx_22)" +"(lambda(t_53 s_320 ctx_22)" "(begin" "(let-values((()" "(begin" "(let-values(((obs_14)(expand-context-observer ctx_22)))" "(if obs_14" -"(let-values()(let-values()(call-expand-observe obs_14 'enter-prim s_319)))" +"(let-values()(let-values()(call-expand-observe obs_14 'enter-prim s_320)))" "(void)))" "(values))))" -"(let-values(((result-s_3)((core-form-expander t_53) s_319 ctx_22 #t)))" +"(let-values(((result-s_3)((core-form-expander t_53) s_320 ctx_22 #t)))" "(begin" "(let-values(((obs_15)(expand-context-observer ctx_22)))" "(if obs_15" @@ -39493,7 +39529,7 @@ static const char *startup_source = " 'dispatch-transformer41" "(let-values(((t_54) t35_0))" "(let-values(((insp-of-t_4) insp-of-t36_0))" -"(let-values(((s_161) s37_0))" +"(let-values(((s_417) s37_0))" "(let-values(((id_64) id38_0))" "(let-values(((ctx_23) ctx39_0))" "(let-values(((binding_21) binding40_0))" @@ -39506,18 +39542,18 @@ static const char *startup_source = "(let-values(((obs_16)(expand-context-observer ctx_23)))" "(if obs_16" "(let-values()" -"(let-values()(call-expand-observe obs_16 'enter-macro s_161)))" +"(let-values()(call-expand-observe obs_16 'enter-macro s_417)))" "(void)))" "(values))))" "(let-values(((adj-s_0)" "(avoid-current-expand-context" -"(substitute-alternate-id s_161 id_64)" +"(substitute-alternate-id s_417 id_64)" " t_54" " ctx_23)))" "(begin" "(let-values(((obs_17)(expand-context-observer ctx_23)))" "(if obs_17" -"(let-values()(let-values()(call-expand-observe obs_17 'exit-macro s_161)))" +"(let-values()(let-values()(call-expand-observe obs_17 'exit-macro s_417)))" "(void)))" "(let-values(((adj-s186_0) adj-s_0)((ctx187_0) ctx_23))" "(expand9.1 #f #f #f adj-s186_0 ctx187_0))))))" @@ -39526,7 +39562,7 @@ static const char *startup_source = "(raise-syntax-error$1" " #f" " \"encountered a macro binding in form that should be fully expanded\"" -" s_161))" +" s_417))" "(let-values()" "(let-values((()" "(begin" @@ -39538,17 +39574,17 @@ static const char *startup_source = " #f)" "(let-values()" "(begin" -"(call-expand-observe obs_18 'visit s_161)" +"(call-expand-observe obs_18 'visit s_417)" "(call-expand-observe obs_18 'resolve id_64)))" "(void)))" "(void)))" "(values))))" "(let-values(((exp-s_1 re-ctx_0)" "(if(1/rename-transformer? t_54)" -"(values s_161 ctx_23)" +"(values s_417 ctx_23)" "(let-values(((t188_0) t_54)" "((insp-of-t189_0) insp-of-t_4)" -"((s190_0) s_161)" +"((s190_0) s_417)" "((id191_0) id_64)" "((ctx192_0) ctx_23)" "((binding193_0) binding_21))" @@ -39598,18 +39634,18 @@ static const char *startup_source = " re-ctx195_0)))))))))))))))))))))" "(define-values" "(dispatch-variable)" -"(lambda(t_55 s_114 id_65 ctx_24 binding_22 primitive?_6 protected?_7)" +"(lambda(t_55 s_114 id_65 ctx_5 binding_22 primitive?_6 protected?_7)" "(begin" -"(if(expand-context-only-immediate? ctx_24)" +"(if(expand-context-only-immediate? ctx_5)" "(let-values()" "(begin" -"(let-values(((obs_20)(expand-context-observer ctx_24)))" +"(let-values(((obs_20)(expand-context-observer ctx_5)))" "(if obs_20(let-values()(let-values()(call-expand-observe obs_20 'exit-check s_114)))(void)))" " id_65))" "(let-values()" "(let-values((()" "(begin" -"(let-values(((obs_21)(expand-context-observer ctx_24)))" +"(let-values(((obs_21)(expand-context-observer ctx_5)))" "(if obs_21" "(let-values()(let-values()(call-expand-observe obs_21 'variable s_114 id_65)))" "(void)))" @@ -39619,9 +39655,9 @@ static const char *startup_source = "(let-values(((id199_0) id_65)" "((t200_0) t_55)" "((temp201_0)" -"(free-id-set-empty-or-just-module*?(expand-context-stops ctx_24))))" +"(free-id-set-empty-or-just-module*?(expand-context-stops ctx_5))))" "(substitute-variable6.1 temp201_0 id199_0 t200_0))))" -"(if(if(expand-context-to-parsed? ctx_24)(free-id-set-empty?(expand-context-stops ctx_24)) #f)" +"(if(if(expand-context-to-parsed? ctx_5)(free-id-set-empty?(expand-context-stops ctx_5)) #f)" "(let-values()" "(let-values(((prop-s_0)(keep-properties-only~ result-s_4)))" "(let-values(((insp_16)(syntax-inspector result-s_4)))" @@ -39632,28 +39668,28 @@ static const char *startup_source = "(let-values(((protected-result-s_0)" "(if protected?_7(syntax-property$1 result-s_4 'protected #t) result-s_4)))" "(begin" -"(let-values(((obs_22)(expand-context-observer ctx_24)))" +"(let-values(((obs_22)(expand-context-observer ctx_5)))" "(if obs_22" "(let-values()(let-values()(call-expand-observe obs_22 'return protected-result-s_0)))" "(void)))" " protected-result-s_0))))))))))))" "(define-values" "(apply-transformer52.1)" -"(lambda(origin-id44_0 t46_0 insp-of-t47_0 s48_0 id49_2 ctx50_0 binding51_0)" +"(lambda(origin-id44_0 t46_0 insp-of-t47_0 s48_1 id49_1 ctx50_0 binding51_0)" "(begin" " 'apply-transformer52" "(let-values(((t_56) t46_0))" "(let-values(((insp-of-t_5) insp-of-t47_0))" -"(let-values(((s_122) s48_0))" -"(let-values(((id_32) id49_2))" -"(let-values(((ctx_25) ctx50_0))" +"(let-values(((s_122) s48_1))" +"(let-values(((id_32) id49_1))" +"(let-values(((ctx_24) ctx50_0))" "(let-values(((binding_23) binding51_0))" "(let-values(((origin-id_0) origin-id44_0))" "(let-values()" "(let-values()" "(let-values((()" "(begin" -"(let-values(((obs_23)(expand-context-observer ctx_25)))" +"(let-values(((obs_23)(expand-context-observer ctx_24)))" "(if obs_23" "(let-values()" "(let-values()(call-expand-observe obs_23 'enter-macro s_122)))" @@ -39663,21 +39699,21 @@ static const char *startup_source = "(let-values(((intro-scope_0)(new-scope 'macro)))" "(let-values(((intro-s_0)(flip-scope disarmed-s_3 intro-scope_0)))" "(let-values(((use-s_0 use-scopes_0)" -"(maybe-add-use-site-scope intro-s_0 ctx_25 binding_23)))" +"(maybe-add-use-site-scope intro-s_0 ctx_24 binding_23)))" "(let-values(((cleaned-s_0)(syntax-remove-taint-dispatch-properties use-s_0)))" "(let-values(((def-ctx-scopes_1)(box null)))" "(let-values(((transformed-s_0)" "(apply-transformer-in-context" " t_56" " cleaned-s_0" -" ctx_25" +" ctx_24" " insp-of-t_5" " intro-scope_0" " use-scopes_0" " def-ctx-scopes_1" " id_32)))" "(let-values(((result-s_5)(flip-scope transformed-s_0 intro-scope_0)))" -"(let-values(((post-s_0)(maybe-add-post-expansion-scope result-s_5 ctx_25)))" +"(let-values(((post-s_0)(maybe-add-post-expansion-scope result-s_5 ctx_24)))" "(let-values(((tracked-s_0)" "(syntax-track-origin$1" " post-s_0" @@ -39692,9 +39728,9 @@ static const char *startup_source = "(taint-dispatch" " tracked-s_0" "(lambda(t-s_0)(syntax-rearm$1 t-s_0 s_122))" -"(expand-context-phase ctx_25))))" +"(expand-context-phase ctx_24))))" "(begin" -"(let-values(((obs_24)(expand-context-observer ctx_25)))" +"(let-values(((obs_24)(expand-context-observer ctx_24)))" "(if obs_24" "(let-values()" "(let-values()" @@ -39703,60 +39739,61 @@ static const char *startup_source = "(values" " rearmed-s_0" "(accumulate-def-ctx-scopes" -" ctx_25" +" ctx_24" " def-ctx-scopes_1)))))))))))))))))))))))))))" "(define-values" "(apply-transformer-in-context)" -"(lambda(t_57 cleaned-s_1 ctx_26 insp-of-t_6 intro-scope_1 use-scopes_1 def-ctx-scopes_2 id_66)" +"(lambda(t_57 cleaned-s_1 ctx_25 insp-of-t_6 intro-scope_1 use-scopes_1 def-ctx-scopes_2 id_66)" "(begin" "(let-values((()" "(begin" -"(let-values(((obs_25)(expand-context-observer ctx_26)))" +"(let-values(((obs_25)(expand-context-observer ctx_25)))" "(if obs_25" "(let-values()(let-values()(call-expand-observe obs_25 'macro-pre-x cleaned-s_1)))" "(void)))" "(values))))" "(let-values(((confine-def-ctx-scopes?_0)" "(not" -"(let-values(((or-part_269)(expand-context-only-immediate? ctx_26)))" +"(let-values(((or-part_269)(expand-context-only-immediate? ctx_25)))" "(if or-part_269" " or-part_269" -"(not(free-id-set-empty-or-just-module*?(expand-context-stops ctx_26))))))))" +"(not(free-id-set-empty-or-just-module*?(expand-context-stops ctx_25))))))))" "(let-values(((accum-ctx_0)" "(if(if confine-def-ctx-scopes?_0" -"(if(expand-context-def-ctx-scopes ctx_26)" -"(not(null?(unbox(expand-context-def-ctx-scopes ctx_26))))" +"(if(expand-context-def-ctx-scopes ctx_25)" +"(not(null?(unbox(expand-context-def-ctx-scopes ctx_25))))" " #f)" " #f)" -"(accumulate-def-ctx-scopes ctx_26(expand-context-def-ctx-scopes ctx_26))" -" ctx_26)))" +"(accumulate-def-ctx-scopes ctx_25(expand-context-def-ctx-scopes ctx_25))" +" ctx_25)))" "(let-values(((m-ctx_0)" "(let-values(((v_189) accum-ctx_0))" -"(let-values(((the-struct_57) v_189))" -"(if(expand-context/outer? the-struct_57)" +"(let-values(((the-struct_58) v_189))" +"(if(expand-context/outer? the-struct_58)" "(let-values(((current-introduction-scopes202_0)(cons intro-scope_1 use-scopes_1))" "((def-ctx-scopes203_0)" "(if confine-def-ctx-scopes?_0" " def-ctx-scopes_2" -"(expand-context-def-ctx-scopes ctx_26)))" +"(expand-context-def-ctx-scopes ctx_25)))" "((inner204_0)(root-expand-context/outer-inner v_189)))" "(expand-context/outer1.1" " inner204_0" -"(root-expand-context/outer-post-expansion-scope the-struct_57)" -"(root-expand-context/outer-use-site-scopes the-struct_57)" -"(root-expand-context/outer-frame-id the-struct_57)" -"(expand-context/outer-context the-struct_57)" -"(expand-context/outer-env the-struct_57)" -"(expand-context/outer-post-expansion-scope-action the-struct_57)" -"(expand-context/outer-scopes the-struct_57)" +"(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)" " def-ctx-scopes203_0" -"(expand-context/outer-binding-layer the-struct_57)" -"(expand-context/outer-reference-records the-struct_57)" -"(expand-context/outer-only-immediate? the-struct_57)" -"(expand-context/outer-need-eventually-defined the-struct_57)" +"(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)" " current-introduction-scopes202_0" -"(expand-context/outer-name the-struct_57)))" -" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_57))))))" +"(expand-context/outer-name the-struct_58)))" +" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_58))))))" "(let-values(((transformed-s_1)" "(with-continuation-mark" " parameterization-key" @@ -39766,15 +39803,15 @@ static const char *startup_source = " m-ctx_0" " 1/current-namespace" "(namespace->namespace-at-phase" -"(expand-context-namespace ctx_26)" -"(add1(expand-context-phase ctx_26)))" +"(expand-context-namespace ctx_25)" +"(add1(expand-context-phase ctx_25)))" " current-module-code-inspector" " insp-of-t_6)" "(let-values()" "(call-with-continuation-barrier" "(lambda()((transformer->procedure t_57) cleaned-s_1)))))))" "(begin" -"(let-values(((obs_26)(expand-context-observer ctx_26)))" +"(let-values(((obs_26)(expand-context-observer ctx_25)))" "(if obs_26" "(let-values()" "(let-values()(call-expand-observe obs_26 'macro-post-x transformed-s_1 cleaned-s_1)))" @@ -39790,16 +39827,16 @@ static const char *startup_source = " transformed-s_1)))))))))" "(define-values" "(maybe-add-use-site-scope)" -"(lambda(s_343 ctx_27 binding_24)" +"(lambda(s_344 ctx_26 binding_24)" "(begin" -"(if(if(root-expand-context-use-site-scopes ctx_27)" -"(matching-frame?(root-expand-context-frame-id ctx_27)(binding-frame-id binding_24))" +"(if(if(root-expand-context-use-site-scopes ctx_26)" +"(matching-frame?(root-expand-context-frame-id ctx_26)(binding-frame-id binding_24))" " #f)" "(let-values()" "(let-values(((sc_32)(new-scope 'use-site)))" -"(let-values(((b_81)(root-expand-context-use-site-scopes ctx_27)))" -"(begin(set-box! b_81(cons sc_32(unbox b_81)))(values(add-scope s_343 sc_32)(list sc_32))))))" -"(let-values()(values s_343 null))))))" +"(let-values(((b_81)(root-expand-context-use-site-scopes ctx_26)))" +"(begin(set-box! b_81(cons sc_32(unbox b_81)))(values(add-scope s_344 sc_32)(list sc_32))))))" +"(let-values()(values s_344 null))))))" "(define-values" "(matching-frame?)" "(lambda(current-frame-id_0 bind-frame-id_0)" @@ -39810,83 +39847,89 @@ static const char *startup_source = " #f))))" "(define-values" "(maybe-add-post-expansion-scope)" -"(lambda(s_240 ctx_28)" +"(lambda(s_240 ctx_27)" "(begin" -"(if(root-expand-context-post-expansion-scope ctx_28)" +"(if(root-expand-context-post-expansion-scope ctx_27)" "(let-values()" -"((expand-context-post-expansion-scope-action ctx_28) s_240(root-expand-context-post-expansion-scope ctx_28)))" +"(let-values(((new-s_1)" +"((expand-context-post-expansion-scope-action ctx_27)" +" s_240" +"(root-expand-context-post-expansion-scope ctx_27))))" +"(let-values(((new-s205_0) new-s_1)((temp206_0)(root-expand-context-post-expansion-shifts ctx_27)))" +"(syntax-add-shifts44.1 #f new-s205_0 temp206_0 #f))))" "(let-values() s_240)))))" "(define-values" "(accumulate-def-ctx-scopes)" -"(lambda(ctx_29 def-ctx-scopes_3)" +"(lambda(ctx_28 def-ctx-scopes_3)" "(begin" "(if(null?(unbox def-ctx-scopes_3))" -" ctx_29" -"(let-values(((v_190) ctx_29))" -"(let-values(((the-struct_58) v_190))" -"(if(expand-context/outer? the-struct_58)" -"(let-values(((scopes205_0)(append(unbox def-ctx-scopes_3)(expand-context-scopes ctx_29)))" -"((inner206_0)(root-expand-context/outer-inner v_190)))" +" ctx_28" +"(let-values(((v_190) ctx_28))" +"(let-values(((the-struct_59) v_190))" +"(if(expand-context/outer? the-struct_59)" +"(let-values(((scopes207_0)(append(unbox def-ctx-scopes_3)(expand-context-scopes ctx_28)))" +"((inner208_0)(root-expand-context/outer-inner v_190)))" "(expand-context/outer1.1" -" inner206_0" -"(root-expand-context/outer-post-expansion-scope the-struct_58)" -"(root-expand-context/outer-use-site-scopes the-struct_58)" -"(root-expand-context/outer-frame-id the-struct_58)" -"(expand-context/outer-context the-struct_58)" -"(expand-context/outer-env the-struct_58)" -"(expand-context/outer-post-expansion-scope-action the-struct_58)" -" scopes205_0" -"(expand-context/outer-def-ctx-scopes the-struct_58)" -"(expand-context/outer-binding-layer the-struct_58)" -"(expand-context/outer-reference-records the-struct_58)" -"(expand-context/outer-only-immediate? the-struct_58)" -"(expand-context/outer-need-eventually-defined the-struct_58)" -"(expand-context/outer-current-introduction-scopes the-struct_58)" -"(expand-context/outer-name the-struct_58)))" -" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_58))))))))" +" inner208_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)" +" scopes207_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-name the-struct_59)))" +" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_59))))))))" "(define-values" "(lookup62.1)" "(lambda(in55_0 out-of-context-as-variable?56_0 b59_0 ctx60_0 id61_0)" "(begin" " 'lookup62" "(let-values(((b_82) b59_0))" -"(let-values(((ctx_30) ctx60_0))" -"(let-values(((id_67) id61_0))" +"(let-values(((ctx_29) ctx60_0))" +"(let-values(((id_38) 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(((b207_0) b_82)" -"((temp208_0)(expand-context-env ctx_30))" -"((temp209_1)(expand-context-lift-envs ctx_30))" -"((temp210_0)(expand-context-namespace ctx_30))" -"((temp211_0)(expand-context-phase ctx_30))" -"((id212_0) id_67)" -"((in-s213_0) in-s_7)" -"((out-of-context-as-variable?214_0) out-of-context-as-variable?_1))" +"(let-values(((b209_0) b_82)" +"((temp210_0)(expand-context-env ctx_29))" +"((temp211_0)(expand-context-lift-envs ctx_29))" +"((temp212_0)(expand-context-namespace ctx_29))" +"((temp213_1)(expand-context-phase ctx_29))" +"((id214_0) id_38)" +"((in-s215_0) in-s_7)" +"((out-of-context-as-variable?216_0) out-of-context-as-variable?_1))" "(binding-lookup50.1" -" in-s213_0" -" out-of-context-as-variable?214_0" -" b207_0" -" temp208_0" -" temp209_1" +" in-s215_0" +" out-of-context-as-variable?216_0" +" b209_0" " temp210_0" " temp211_0" -" id212_0)))))))))))" +" temp212_0" +" temp213_1" +" id214_0)))))))))))" "(define-values" "(substitute-alternate-id)" -"(lambda(s_354 alternate-id_3)" +"(lambda(s_357 alternate-id_3)" "(begin" "(if(not alternate-id_3)" -"(let-values() s_354)" -"(if(syntax-identifier? s_354)" -"(let-values()(syntax-rearm$1(syntax-track-origin$1 alternate-id_3 s_354) s_354))" +"(let-values() s_357)" +"(if(syntax-identifier? s_357)" +"(let-values()(syntax-rearm$1(syntax-track-origin$1 alternate-id_3 s_357) s_357))" "(let-values()" -"(let-values(((disarmed-s_4)(syntax-disarm$1 s_354)))" +"(let-values(((disarmed-s_4)(syntax-disarm$1 s_357)))" "(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_354)" -" s_354)" -" s_354))))))))" +"(datum->syntax$1 disarmed-s_4(cons alternate-id_3(cdr(syntax-e$1 disarmed-s_4))) s_357)" +" s_357)" +" s_357))))))))" "(define-values" "(register-variable-referenced-if-local!)" "(lambda(binding_25)" @@ -39899,167 +39942,169 @@ 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_252) s73_0))" -"(let-values(((ctx_31) ctx74_0))" +"(let-values(((s_254) s73_0))" +"(let-values(((ctx_30) ctx74_0))" "(let-values(((expand-lifts?_0) expand-lifts?65_0))" "(let-values(((begin-form?_0) begin-form?66_0))" "(let-values(((lift-key_2)(if(eq? lift-key67_0 unsafe-undefined)(generate-lift-key) lift-key67_0)))" "(let-values(((always-wrap?_0) always-wrap?68_0))" "(let-values()" -"(let-values(((context_6)(expand-context-context ctx_31)))" -"(let-values(((phase_102)(expand-context-phase ctx_31)))" +"(let-values(((context_6)(expand-context-context ctx_30)))" +"(let-values(((phase_104)(expand-context-phase ctx_30)))" "(let-values(((local?_0)(not begin-form?_0)))" "((letrec-values(((loop_95)" -"(lambda(s_416 always-wrap?_1 ctx_32)" +"(lambda(s_364 always-wrap?_1 ctx_31)" "(begin" " 'loop" "(let-values(((lift-env_2)(if local?_0(box empty-env) #f)))" "(let-values(((lift-ctx_0)" -"(let-values(((temp215_0)" +"(let-values(((temp217_1)" "(if local?_0" "(make-local-lift" " lift-env_2" -"(root-expand-context-counter ctx_32))" -"(make-top-level-lift ctx_32)))" -"((temp216_0)" +"(root-expand-context-counter ctx_31))" +"(make-top-level-lift ctx_31)))" +"((temp218_0)" "(if(not local?_0)" "(eq? context_6 'module)" " #f)))" -"(make-lift-context6.1 temp216_0 temp215_0))))" +"(make-lift-context6.1 temp218_0 temp217_1))))" "(let-values(((capture-ctx_0)" -"(let-values(((v_191) ctx_32))" -"(let-values(((the-struct_59) v_191))" -"(if(expand-context/outer? the-struct_59)" -"(let-values(((inner217_0)" -"(let-values(((the-struct_60)" +"(let-values(((v_191) ctx_31))" +"(let-values(((the-struct_60) v_191))" +"(if(expand-context/outer? the-struct_60)" +"(let-values(((inner219_0)" +"(let-values(((the-struct_61)" "(root-expand-context/outer-inner" " v_191)))" "(if(expand-context/inner?" -" the-struct_60)" -"(let-values(((lift-key218_0)" +" the-struct_61)" +"(let-values(((lift-key220_0)" " lift-key_2)" -"((lifts219_0)" +"((lifts221_0)" " lift-ctx_0)" -"((lift-envs220_0)" +"((lift-envs222_0)" "(if local?_0" "(cons" " lift-env_2" "(expand-context-lift-envs" -" ctx_32))" +" ctx_31))" "(expand-context-lift-envs" -" ctx_32)))" -"((module-lifts221_0)" -"(if(let-values(((or-part_17)" +" ctx_31)))" +"((module-lifts223_0)" +"(if(let-values(((or-part_271)" " local?_0))" -"(if or-part_17" -" or-part_17" +"(if or-part_271" +" or-part_271" "(not" "(memq" " context_6" " '(top-level" " module)))))" "(expand-context-module-lifts" -" ctx_32)" +" ctx_31)" " lift-ctx_0)))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi" -" the-struct_60)" +" the-struct_61)" "(root-expand-context/inner-module-scopes" -" the-struct_60)" +" the-struct_61)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_60)" +" the-struct_61)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_60)" +" the-struct_61)" "(root-expand-context/inner-defined-syms" -" the-struct_60)" +" the-struct_61)" "(root-expand-context/inner-counter" -" the-struct_60)" -" lift-key218_0" +" the-struct_61)" +" lift-key220_0" "(expand-context/inner-to-parsed?" -" the-struct_60)" +" the-struct_61)" "(expand-context/inner-phase" -" the-struct_60)" +" the-struct_61)" "(expand-context/inner-namespace" -" the-struct_60)" +" the-struct_61)" "(expand-context/inner-just-once?" -" the-struct_60)" +" the-struct_61)" "(expand-context/inner-module-begin-k" -" the-struct_60)" +" the-struct_61)" "(expand-context/inner-allow-unbound?" -" the-struct_60)" +" the-struct_61)" "(expand-context/inner-in-local-expand?" -" the-struct_60)" +" the-struct_61)" "(expand-context/inner-keep-#%expression?" -" the-struct_60)" +" the-struct_61)" "(expand-context/inner-stops" -" the-struct_60)" +" the-struct_61)" "(expand-context/inner-declared-submodule-names" -" the-struct_60)" -" lifts219_0" -" lift-envs220_0" -" module-lifts221_0" +" the-struct_61)" +" lifts221_0" +" lift-envs222_0" +" module-lifts223_0" "(expand-context/inner-require-lifts" -" the-struct_60)" +" the-struct_61)" "(expand-context/inner-to-module-lifts" -" the-struct_60)" +" the-struct_61)" "(expand-context/inner-requires+provides" -" the-struct_60)" +" the-struct_61)" "(expand-context/inner-observer" -" the-struct_60)" +" the-struct_61)" "(expand-context/inner-for-serializable?" -" the-struct_60)" +" the-struct_61)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_60)))" +" the-struct_61)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_60)))))" +" the-struct_61)))))" "(expand-context/outer1.1" -" inner217_0" +" inner219_0" "(root-expand-context/outer-post-expansion-scope" -" the-struct_59)" +" the-struct_60)" +"(root-expand-context/outer-post-expansion-shifts" +" the-struct_60)" "(root-expand-context/outer-use-site-scopes" -" the-struct_59)" +" the-struct_60)" "(root-expand-context/outer-frame-id" -" the-struct_59)" -"(expand-context/outer-context the-struct_59)" -"(expand-context/outer-env the-struct_59)" +" 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_59)" -"(expand-context/outer-scopes the-struct_59)" +" the-struct_60)" +"(expand-context/outer-scopes the-struct_60)" "(expand-context/outer-def-ctx-scopes" -" the-struct_59)" +" the-struct_60)" "(expand-context/outer-binding-layer" -" the-struct_59)" +" the-struct_60)" "(expand-context/outer-reference-records" -" the-struct_59)" +" the-struct_60)" "(expand-context/outer-only-immediate?" -" the-struct_59)" +" the-struct_60)" "(expand-context/outer-need-eventually-defined" -" the-struct_59)" +" the-struct_60)" "(expand-context/outer-current-introduction-scopes" -" the-struct_59)" -"(expand-context/outer-name the-struct_59)))" +" the-struct_60)" +"(expand-context/outer-name the-struct_60)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_59))))))" -"(let-values(((rebuild-s_0)(keep-properties-only s_416)))" +" the-struct_60))))))" +"(let-values(((rebuild-s_0)(keep-properties-only s_364)))" "(let-values(((exp-s_2)" -"(let-values(((s222_0) s_416)" -"((capture-ctx223_0) capture-ctx_0))" -"(expand9.1 #f #f #f s222_0 capture-ctx223_0))))" +"(let-values(((s224_0) s_364)" +"((capture-ctx225_0) capture-ctx_0))" +"(expand9.1 #f #f #f s224_0 capture-ctx225_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_271)" +"(if(let-values(((or-part_272)" "(pair? lifts_6)))" -"(if or-part_271" -" or-part_271" +"(if or-part_272" +" or-part_272" " always-wrap?_1))" "(let-values()" -"(if(expand-context-to-parsed? ctx_32)" +"(if(expand-context-to-parsed? ctx_31)" "(let-values()" "(begin" "(if expand-lifts?_0" @@ -40071,38 +40116,38 @@ static const char *startup_source = " lifts_6" " exp-s_2" " rebuild-s_0" -" ctx_32" +" ctx_31" "(lambda(rhs_15 rhs-ctx_0)" "(loop_95 rhs_15 #f rhs-ctx_0)))))" "(let-values()" "(if begin-form?_0" -"(let-values(((lifts224_0) lifts_6)" -"((exp-s225_0) exp-s_2)" -"((phase226_0)" -" phase_102))" +"(let-values(((lifts226_0) lifts_6)" +"((exp-s227_0) exp-s_2)" +"((phase228_0)" +" phase_104))" "(wrap-lifts-as-begin16.1" " unsafe-undefined" " unsafe-undefined" -" lifts224_0" -" exp-s225_0" -" phase226_0))" +" lifts226_0" +" exp-s227_0" +" phase228_0))" "(wrap-lifts-as-let" " lifts_6" " exp-s_2" -" phase_102)))))" +" phase_104)))))" "(let-values() exp-s_2))))" -"(if(let-values(((or-part_272)(not expand-lifts?_0)))" -"(if or-part_272" -" or-part_272" -"(let-values(((or-part_273)(null? lifts_6)))" +"(if(let-values(((or-part_273)(not expand-lifts?_0)))" "(if or-part_273" " or-part_273" -"(expand-context-to-parsed? ctx_32)))))" +"(let-values(((or-part_274)(null? lifts_6)))" +"(if or-part_274" +" or-part_274" +"(expand-context-to-parsed? ctx_31)))))" "(let-values() with-lifts-s_0)" "(let-values()" "(begin" "(let-values(((obs_27)" -"(expand-context-observer ctx_32)))" +"(expand-context-observer ctx_31)))" "(if obs_27" "(let-values()" "(let-values()" @@ -40111,18 +40156,18 @@ static const char *startup_source = " 'letlift-loop" " with-lifts-s_0)))" "(void)))" -"(loop_95 with-lifts-s_0 #f ctx_32)))))))))))))))" +"(loop_95 with-lifts-s_0 #f ctx_31)))))))))))))))" " loop_95)" -" s_252" +" s_254" " always-wrap?_0" -" ctx_31))))))))))))))" +" ctx_30))))))))))))))" "(define-values" "(expand-transformer92.1)" "(lambda(always-wrap?82_0 begin-form?79_0 context78_0 expand-lifts?80_0 keep-stops?83_0 lift-key81_0 s90_0 ctx91_0)" "(begin" " 'expand-transformer92" -"(let-values(((s_417) s90_0))" -"(let-values(((ctx_33) ctx91_0))" +"(let-values(((s_418) s90_0))" +"(let-values(((ctx_32) ctx91_0))" "(let-values(((context_7) context78_0))" "(let-values(((begin-form?_1) begin-form?79_0))" "(let-values(((expand-lifts?_1) expand-lifts?80_0))" @@ -40132,103 +40177,104 @@ static const char *startup_source = "(let-values()" "(let-values()" "(let-values(((trans-ctx_0)" -"(let-values(((ctx233_0) ctx_33)" -"((context234_0) context_7)" -"((keep-stops?235_0) keep-stops?_0))" -"(context->transformer-context99.1 keep-stops?235_0 ctx233_0 context234_0))))" -"(let-values(((s227_0) s_417)" -"((trans-ctx228_0) trans-ctx_0)" -"((expand-lifts?229_0) expand-lifts?_1)" -"((begin-form?230_0) begin-form?_1)" -"((lift-key231_0) lift-key_3)" -"((always-wrap?232_0) always-wrap?_2))" +"(let-values(((ctx235_0) ctx_32)" +"((context236_0) context_7)" +"((keep-stops?237_0) keep-stops?_0))" +"(context->transformer-context99.1 keep-stops?237_0 ctx235_0 context236_0))))" +"(let-values(((s229_0) s_418)" +"((trans-ctx230_0) trans-ctx_0)" +"((expand-lifts?231_0) expand-lifts?_1)" +"((begin-form?232_0) begin-form?_1)" +"((lift-key233_0) lift-key_3)" +"((always-wrap?234_0) always-wrap?_2))" "(expand/capture-lifts75.1" -" always-wrap?232_0" -" begin-form?230_0" -" expand-lifts?229_0" -" lift-key231_0" -" s227_0" -" trans-ctx228_0))))))))))))))))" +" always-wrap?234_0" +" begin-form?232_0" +" expand-lifts?231_0" +" lift-key233_0" +" s229_0" +" trans-ctx230_0))))))))))))))))" "(define-values" "(context->transformer-context99.1)" "(lambda(keep-stops?95_0 ctx98_0 context97_0)" "(begin" " 'context->transformer-context99" -"(let-values(((ctx_34) ctx98_0))" +"(let-values(((ctx_33) ctx98_0))" "(let-values(((context_8) context97_0))" "(let-values(((keep-stops?_1) keep-stops?95_0))" "(let-values()" -"(let-values(((phase_103)(add1(expand-context-phase ctx_34))))" -"(let-values(((ns_74)(namespace->namespace-at-phase(expand-context-namespace ctx_34) phase_103)))" +"(let-values(((phase_105)(add1(expand-context-phase ctx_33))))" +"(let-values(((ns_74)(namespace->namespace-at-phase(expand-context-namespace ctx_33) phase_105)))" "(begin" -"(namespace-visit-available-modules! ns_74 phase_103)" -"(let-values(((v_192) ctx_34))" -"(let-values(((the-struct_61) v_192))" -"(if(expand-context/outer? the-struct_61)" -"(let-values(((context236_0) context_8)" -"((scopes237_0) null)" -"((env238_0) empty-env)" -"((only-immediate?239_0)" -"(if keep-stops?_1(expand-context-only-immediate? ctx_34) #f))" -"((def-ctx-scopes240_0) #f)" -"((post-expansion-scope241_0) #f)" -"((inner242_0)" -"(let-values(((the-struct_62)(root-expand-context/outer-inner v_192)))" -"(if(expand-context/inner? the-struct_62)" -"(let-values(((phase243_0) phase_103)" -"((namespace244_0) ns_74)" -"((stops245_0)" +"(namespace-visit-available-modules! ns_74 phase_105)" +"(let-values(((v_192) ctx_33))" +"(let-values(((the-struct_62) v_192))" +"(if(expand-context/outer? the-struct_62)" +"(let-values(((context238_0) context_8)" +"((scopes239_0) null)" +"((env240_0) empty-env)" +"((only-immediate?241_0)" +"(if keep-stops?_1(expand-context-only-immediate? ctx_33) #f))" +"((def-ctx-scopes242_0) #f)" +"((post-expansion-scope243_0) #f)" +"((inner244_0)" +"(let-values(((the-struct_63)(root-expand-context/outer-inner v_192)))" +"(if(expand-context/inner? the-struct_63)" +"(let-values(((phase245_0) phase_105)" +"((namespace246_0) ns_74)" +"((stops247_0)" "(if keep-stops?_1" -"(expand-context-stops ctx_34)" +"(expand-context-stops ctx_33)" " empty-free-id-set)))" "(expand-context/inner2.1" -"(root-expand-context/inner-self-mpi the-struct_62)" -"(root-expand-context/inner-module-scopes the-struct_62)" -"(root-expand-context/inner-top-level-bind-scope the-struct_62)" -"(root-expand-context/inner-all-scopes-stx the-struct_62)" -"(root-expand-context/inner-defined-syms the-struct_62)" -"(root-expand-context/inner-counter the-struct_62)" -"(root-expand-context/inner-lift-key the-struct_62)" -"(expand-context/inner-to-parsed? the-struct_62)" -" phase243_0" -" namespace244_0" -"(expand-context/inner-just-once? the-struct_62)" -"(expand-context/inner-module-begin-k the-struct_62)" -"(expand-context/inner-allow-unbound? the-struct_62)" -"(expand-context/inner-in-local-expand? the-struct_62)" -"(expand-context/inner-keep-#%expression? the-struct_62)" -" stops245_0" -"(expand-context/inner-declared-submodule-names the-struct_62)" -"(expand-context/inner-lifts the-struct_62)" -"(expand-context/inner-lift-envs the-struct_62)" -"(expand-context/inner-module-lifts the-struct_62)" -"(expand-context/inner-require-lifts the-struct_62)" -"(expand-context/inner-to-module-lifts the-struct_62)" -"(expand-context/inner-requires+provides the-struct_62)" -"(expand-context/inner-observer the-struct_62)" -"(expand-context/inner-for-serializable? the-struct_62)" -"(expand-context/inner-should-not-encounter-macros? the-struct_62)))" +"(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)" +" phase245_0" +" namespace246_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)" +" stops247_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)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_62)))))" +" the-struct_63)))))" "(expand-context/outer1.1" -" inner242_0" -" post-expansion-scope241_0" -"(root-expand-context/outer-use-site-scopes the-struct_61)" -"(root-expand-context/outer-frame-id the-struct_61)" -" context236_0" -" env238_0" -"(expand-context/outer-post-expansion-scope-action the-struct_61)" -" scopes237_0" -" def-ctx-scopes240_0" -"(expand-context/outer-binding-layer the-struct_61)" -"(expand-context/outer-reference-records the-struct_61)" -" only-immediate?239_0" -"(expand-context/outer-need-eventually-defined the-struct_61)" -"(expand-context/outer-current-introduction-scopes the-struct_61)" -"(expand-context/outer-name the-struct_61)))" -" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_61))))))))))))))" +" inner244_0" +" post-expansion-scope243_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)" +" context238_0" +" env240_0" +"(expand-context/outer-post-expansion-scope-action the-struct_62)" +" scopes239_0" +" def-ctx-scopes242_0" +"(expand-context/outer-binding-layer the-struct_62)" +"(expand-context/outer-reference-records the-struct_62)" +" only-immediate?241_0" +"(expand-context/outer-need-eventually-defined the-struct_62)" +"(expand-context/outer-current-introduction-scopes the-struct_62)" +"(expand-context/outer-name the-struct_62)))" +" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_62))))))))))))))" "(define-values" "(expand+eval-for-syntaxes-binding108.1)" "(lambda(log-next?102_0 who104_0 rhs105_0 ids106_0 ctx107_0)" @@ -40237,11 +40283,11 @@ static const char *startup_source = "(let-values(((who_16) who104_0))" "(let-values(((rhs_16) rhs105_0))" "(let-values(((ids_19) ids106_0))" -"(let-values(((ctx_35) ctx107_0))" +"(let-values(((ctx_34) ctx107_0))" "(let-values(((log-next?_0) log-next?102_0))" "(let-values()" "(let-values(((exp-rhs_0)" -"(let-values(((rhs246_0) rhs_16)((temp247_0)(as-named-context ctx_35 ids_19)))" +"(let-values(((rhs248_0) rhs_16)((temp249_1)(as-named-context ctx_34 ids_19)))" "(expand-transformer92.1" " #f" " #f" @@ -40249,21 +40295,21 @@ static const char *startup_source = " #t" " #f" " unsafe-undefined" -" rhs246_0" -" temp247_0))))" -"(let-values(((phase_15)(add1(expand-context-phase ctx_35))))" +" rhs248_0" +" temp249_1))))" +"(let-values(((phase_48)(add1(expand-context-phase ctx_34))))" "(let-values(((parsed-rhs_0)" -"(if(expand-context-to-parsed? ctx_35)" +"(if(expand-context-to-parsed? ctx_34)" " exp-rhs_0" -"(let-values(((exp-rhs248_0) exp-rhs_0)" -"((temp249_1)" -"(let-values(((temp250_1)(as-to-parsed-context ctx_35)))" -"(context->transformer-context99.1 #f temp250_1 'expression))))" -"(expand9.1 #f #f #f exp-rhs248_0 temp249_1)))))" +"(let-values(((exp-rhs250_0) exp-rhs_0)" +"((temp251_0)" +"(let-values(((temp252_0)(as-to-parsed-context ctx_34)))" +"(context->transformer-context99.1 #f temp252_0 'expression))))" +"(expand9.1 #f #f #f exp-rhs250_0 temp251_0)))))" "(begin" "(if log-next?_0" "(let-values()" -"(let-values(((obs_28)(expand-context-observer ctx_35)))" +"(let-values(((obs_28)(expand-context-observer ctx_34)))" "(if obs_28(let-values()(let-values()(call-expand-observe obs_28 'next)))(void))))" "(void))" "(values" @@ -40273,28 +40319,28 @@ static const char *startup_source = " who_16" " ids_19" " parsed-rhs_0" -" phase_15" -"(namespace->namespace-at-phase(expand-context-namespace ctx_35) phase_15)" -" ctx_35)))))))))))))))" +" phase_48" +"(namespace->namespace-at-phase(expand-context-namespace ctx_34) phase_48)" +" ctx_34)))))))))))))))" "(define-values" "(eval-for-syntaxes-binding)" -"(lambda(who_17 rhs_17 ids_20 ctx_36)" +"(lambda(who_17 rhs_17 ids_20 ctx_35)" "(begin" "(let-values(((exp-rhs_1 parsed-rhs_1 vals_3)" -"(let-values(((who251_0) who_17)((rhs252_0) rhs_17)((ids253_0) ids_20)((ctx254_0) ctx_36))" -"(expand+eval-for-syntaxes-binding108.1 #t who251_0 rhs252_0 ids253_0 ctx254_0))))" +"(let-values(((who253_0) who_17)((rhs254_0) rhs_17)((ids255_0) ids_20)((ctx256_0) ctx_35))" +"(expand+eval-for-syntaxes-binding108.1 #t who253_0 rhs254_0 ids255_0 ctx256_0))))" " vals_3))))" "(define-values" "(eval-for-bindings)" -"(lambda(who_18 ids_21 p_49 phase_104 ns_75 ctx_37)" +"(lambda(who_18 ids_21 p_49 phase_106 ns_75 ctx_36)" "(begin" "(let-values(((compiled_0)" -"(if(can-direct-eval? p_49 ns_75(root-expand-context-self-mpi ctx_37))" +"(if(can-direct-eval? p_49 ns_75(root-expand-context-self-mpi ctx_36))" " #f" "(compile-single" " p_49" -"(let-values(((ns255_0) ns_75)((phase256_0) phase_104))" -"(make-compile-context14.1 #f unsafe-undefined #f ns255_0 phase256_0 unsafe-undefined))))))" +"(let-values(((ns257_0) ns_75)((phase258_0) phase_106))" +"(make-compile-context14.1 #f unsafe-undefined #f ns257_0 phase258_0 unsafe-undefined))))))" "(let-values(((vals_4)" "(call-with-values" "(lambda()" @@ -40303,7 +40349,7 @@ static const char *startup_source = "(extend-parameterization" "(continuation-mark-set-first #f parameterization-key)" " current-expand-context" -" ctx_37" +" ctx_36" " 1/current-namespace" " ns_75" " eval-jit-enabled" @@ -40311,7 +40357,7 @@ static const char *startup_source = "(let-values()" "(if compiled_0" "(eval-single-top compiled_0 ns_75)" -"(direct-eval p_49 ns_75(root-expand-context-self-mpi ctx_37))))))" +"(direct-eval p_49 ns_75(root-expand-context-self-mpi ctx_36))))))" " list)))" "(begin" "(if(=(length vals_4)(length ids_21))" @@ -40330,72 +40376,72 @@ static const char *startup_source = " (if (pair? (cdr ids_21)) \" ...\" \"\"))))" " vals_4)))" " vals_4))))))" -"(define-values(keep-properties-only)(lambda(s_418)(begin(datum->syntax$1 #f 'props s_418 s_418))))" -"(define-values(keep-properties-only~)(lambda(s_419)(begin #f)))" +"(define-values(keep-properties-only)(lambda(s_419)(begin(datum->syntax$1 #f 'props s_419 s_419))))" +"(define-values(keep-properties-only~)(lambda(s_420)(begin #f)))" "(define-values" "(keep-as-needed119.1)" "(lambda(for-track?111_0 keep-for-error?113_0 keep-for-parsed?112_0 ctx117_0 s118_0)" "(begin" " 'keep-as-needed119" -"(let-values(((ctx_38) ctx117_0))" -"(let-values(((s_420) s118_0))" +"(let-values(((ctx_37) ctx117_0))" +"(let-values(((s_421) s118_0))" "(let-values()" "(let-values(((keep-for-parsed?_0) keep-for-parsed?112_0))" "(let-values(((keep-for-error?_0) keep-for-error?113_0))" "(let-values()" -"(let-values(((d_33)(syntax-e$1 s_420)))" +"(let-values(((d_33)(syntax-e$1 s_421)))" "(let-values(((keep-e_0)" "(if(symbol? d_33)" "(let-values() d_33)" "(if(if(pair? d_33)(syntax-identifier?(car d_33)) #f)" "(let-values()(syntax-e$1(car d_33)))" "(let-values() #f)))))" -"(if(expand-context-to-parsed? ctx_38)" +"(if(expand-context-to-parsed? ctx_37)" "(let-values()" -"(if(let-values(((or-part_274) keep-for-parsed?_0))" -"(if or-part_274 or-part_274 keep-for-error?_0))" -"(datum->syntax$1 #f keep-e_0 s_420 s_420)" +"(if(let-values(((or-part_275) keep-for-parsed?_0))" +"(if or-part_275 or-part_275 keep-for-error?_0))" +"(datum->syntax$1 #f keep-e_0 s_421 s_421)" " #f))" "(let-values()" "(syntax-rearm$1" -"(datum->syntax$1(syntax-disarm$1 s_420) keep-e_0 s_420 s_420)" -" s_420))))))))))))))" +"(datum->syntax$1(syntax-disarm$1 s_421) keep-e_0 s_421 s_421)" +" s_421))))))))))))))" "(define-values" "(attach-disappeared-transformer-bindings)" -"(lambda(s_421 trans-idss_0)" +"(lambda(s_422 trans-idss_0)" "(begin" "(if(null? trans-idss_0)" -"(let-values() s_421)" +"(let-values() s_422)" "(let-values()" "(syntax-property$1" -" s_421" +" s_422" " 'disappeared-binding" "(append" "(apply append trans-idss_0)" -"(let-values(((or-part_275)(syntax-property$1 s_421 'disappeared-binding)))" -"(if or-part_275 or-part_275 null)))))))))" +"(let-values(((or-part_276)(syntax-property$1 s_422 'disappeared-binding)))" +"(if or-part_276 or-part_276 null)))))))))" "(define-values" "(increment-binding-layer)" -"(lambda(ids_22 ctx_39 layer-val_0)" +"(lambda(ids_22 ctx_38 layer-val_0)" "(begin" "(if((letrec-values(((loop_96)" "(lambda(ids_23)" "(begin" " 'loop" -"(let-values(((or-part_276)(identifier? ids_23)))" -"(if or-part_276" -" or-part_276" +"(let-values(((or-part_277)(identifier? ids_23)))" +"(if or-part_277" +" or-part_277" "(if(pair? ids_23)" -"(let-values(((or-part_197)(loop_96(car ids_23))))" -"(if or-part_197 or-part_197(loop_96(cdr ids_23))))" +"(let-values(((or-part_278)(loop_96(car ids_23))))" +"(if or-part_278 or-part_278(loop_96(cdr ids_23))))" " #f)))))))" " loop_96)" " ids_22)" " layer-val_0" -"(expand-context-binding-layer ctx_39)))))" +"(expand-context-binding-layer ctx_38)))))" "(define-values" "(wrap-lifts-as-parsed-let)" -"(lambda(lifts_7 exp-s_3 rebuild-s_1 ctx_40 parse-rhs_0)" +"(lambda(lifts_7 exp-s_3 rebuild-s_1 ctx_39 parse-rhs_0)" "(begin" "(let-values(((idss+keyss+rhss_0)(get-lifts-as-lists lifts_7)))" "((letrec-values(((lets-loop_0)" @@ -40417,9 +40463,9 @@ static const char *startup_source = "(lets-loop_0" "(cdr idss+keyss+rhss_1)" "(let-values(((v_193) rhs-ctx_1))" -"(let-values(((the-struct_63) v_193))" -"(if(expand-context/outer? the-struct_63)" -"(let-values(((env257_0)" +"(let-values(((the-struct_64) v_193))" +"(if(expand-context/outer? the-struct_64)" +"(let-values(((env259_0)" "(let-values(((lst_281) ids_24)((lst_282) keys_4))" "(begin" "(if(variable-reference-from-unsafe?" @@ -40430,23 +40476,23 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()(check-list lst_282)))" -"((letrec-values(((for-loop_252)" +"((letrec-values(((for-loop_251)" "(lambda(env_3 lst_283 lst_284)" "(begin" " 'for-loop" "(if(if(pair? lst_283)" "(pair? lst_284)" " #f)" -"(let-values(((id_68)" +"(let-values(((id_67)" "(unsafe-car" " lst_283))" -"((rest_159)" +"((rest_158)" "(unsafe-cdr" " lst_283))" -"((key_81)" +"((key_80)" "(unsafe-car" " lst_284))" -"((rest_160)" +"((rest_159)" "(unsafe-cdr" " lst_284)))" "(let-values(((env_4)" @@ -40456,95 +40502,96 @@ static const char *startup_source = "(let-values()" "(env-extend" " env_5" -" key_81" +" key_80" "(local-variable1.1" -" id_68)))))" +" id_67)))))" "(values" " env_6)))))" "(if(not #f)" -"(for-loop_252" +"(for-loop_251" " env_4" -" rest_159" -" rest_160)" +" rest_158" +" rest_159)" " env_4)))" " env_3)))))" -" for-loop_252)" +" for-loop_251)" "(expand-context-env rhs-ctx_1)" " lst_281" " lst_282))))" -"((inner258_0)(root-expand-context/outer-inner v_193)))" +"((inner260_0)(root-expand-context/outer-inner v_193)))" "(expand-context/outer1.1" -" inner258_0" -"(root-expand-context/outer-post-expansion-scope the-struct_63)" -"(root-expand-context/outer-use-site-scopes the-struct_63)" -"(root-expand-context/outer-frame-id the-struct_63)" -"(expand-context/outer-context the-struct_63)" -" env257_0" -"(expand-context/outer-post-expansion-scope-action the-struct_63)" -"(expand-context/outer-scopes the-struct_63)" -"(expand-context/outer-def-ctx-scopes the-struct_63)" -"(expand-context/outer-binding-layer the-struct_63)" -"(expand-context/outer-reference-records the-struct_63)" -"(expand-context/outer-only-immediate? the-struct_63)" -"(expand-context/outer-need-eventually-defined the-struct_63)" -"(expand-context/outer-current-introduction-scopes the-struct_63)" -"(expand-context/outer-name the-struct_63)))" +" inner260_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)" +" env259_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-name the-struct_64)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_63)))))))))))))))))" +" the-struct_64)))))))))))))))))" " lets-loop_0)" " idss+keyss+rhss_0" -" ctx_40)))))" +" ctx_39)))))" "(define-values" "(rename-transformer-target-in-context)" -"(lambda(t_58 ctx_41)" +"(lambda(t_58 ctx_40)" "(begin" "(with-continuation-mark" " parameterization-key" -"(extend-parameterization(continuation-mark-set-first #f parameterization-key) current-expand-context ctx_41)" +"(extend-parameterization(continuation-mark-set-first #f parameterization-key) current-expand-context ctx_40)" "(let-values()(1/rename-transformer-target t_58))))))" "(define-values" "(maybe-install-free=id-in-context!)" -"(lambda(val_69 id_69 phase_105 ctx_42)" +"(lambda(val_68 id_68 phase_107 ctx_41)" "(begin" -"(if(1/rename-transformer? val_69)" +"(if(1/rename-transformer? val_68)" "(let-values()" "(with-continuation-mark" " parameterization-key" -"(extend-parameterization(continuation-mark-set-first #f parameterization-key) current-expand-context ctx_42)" -"(let-values()(maybe-install-free=id! val_69 id_69 phase_105))))" +"(extend-parameterization(continuation-mark-set-first #f parameterization-key) current-expand-context ctx_41)" +"(let-values()(maybe-install-free=id! val_68 id_68 phase_107))))" "(void)))))" "(define-values" "(transfer-srcloc)" -"(lambda(new-s_1 old-s_0)" +"(lambda(new-s_2 old-s_0)" "(begin" "(let-values(((srcloc_7)(syntax-srcloc old-s_0)))" "(if srcloc_7" -"(let-values(((the-struct_64) new-s_1))" -"(if(syntax?$1 the-struct_64)" -"(let-values(((srcloc259_0) srcloc_7))" +"(let-values(((the-struct_65) new-s_2))" +"(if(syntax?$1 the-struct_65)" +"(let-values(((srcloc261_0) srcloc_7))" "(syntax1.1" -"(syntax-content the-struct_64)" -"(syntax-scopes the-struct_64)" -"(syntax-shifted-multi-scopes the-struct_64)" -"(syntax-scope-propagations+tamper the-struct_64)" -"(syntax-mpi-shifts the-struct_64)" -" srcloc259_0" -"(syntax-props the-struct_64)" -"(syntax-inspector the-struct_64)))" -" (raise-argument-error 'struct-copy \"syntax?\" the-struct_64)))" -" new-s_1)))))" +"(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)" +" srcloc261_0" +"(syntax-props the-struct_65)" +"(syntax-inspector the-struct_65)))" +" (raise-argument-error 'struct-copy \"syntax?\" the-struct_65)))" +" new-s_2)))))" "(define-values" "(stop-ids->all-stop-ids)" -"(lambda(stop-ids_0 phase_42)" +"(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_42)))" +"(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_42 phase_42)" +"(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()" @@ -40561,7 +40608,7 @@ static const char *startup_source = "(begin" " 'for-loop" "(if(pair? lst_84)" -"(let-values(((sym_70)(unsafe-car lst_84))" +"(let-values(((sym_71)(unsafe-car lst_84))" "((rest_50)(unsafe-cdr lst_84)))" "(let-values(((fold-var_92)" "(let-values(((fold-var_93) fold-var_91))" @@ -40571,7 +40618,7 @@ static const char *startup_source = "(let-values()" "(datum->syntax$1" " p-core-stx_0" -" sym_70))" +" sym_71))" " fold-var_93))))" "(values fold-var_60)))))" "(if(not #f)(for-loop_115 fold-var_92 rest_50) fold-var_92)))" @@ -40598,9 +40645,9 @@ static const char *startup_source = " #%variable-reference))" "(define-values" "(module-expand-stop-ids)" -"(lambda(phase_106)" +"(lambda(phase_108)" "(begin" -"(let-values(((p-core-stx_1)(syntax-shift-phase-level$1 core-stx phase_106)))" +"(let-values(((p-core-stx_1)(syntax-shift-phase-level$1 core-stx phase_108)))" "(reverse$1" "(let-values(((lst_102) module-stop-syms))" "(begin" @@ -40610,7 +40657,7 @@ static const char *startup_source = "(begin" " 'for-loop" "(if(pair? lst_259)" -"(let-values(((sym_18)(unsafe-car lst_259))((rest_161)(unsafe-cdr lst_259)))" +"(let-values(((sym_18)(unsafe-car lst_259))((rest_160)(unsafe-cdr lst_259)))" "(let-values(((fold-var_217)" "(let-values(((fold-var_218) fold-var_238))" "(let-values(((fold-var_219)" @@ -40620,7 +40667,7 @@ static const char *startup_source = "(datum->syntax$1 p-core-stx_1 sym_18))" " fold-var_218))))" "(values fold-var_219)))))" -"(if(not #f)(for-loop_114 fold-var_217 rest_161) fold-var_217)))" +"(if(not #f)(for-loop_114 fold-var_217 rest_160) fold-var_217)))" " fold-var_238)))))" " for-loop_114)" " null" @@ -40639,7 +40686,7 @@ static const char *startup_source = " internal-definition-context-add-scope?" " internal-definition-context-env-mixins" " internal-definition-context-parent-ctx)" -"(let-values(((struct:_41 make-_41 ?_41 -ref_41 -set!_41)" +"(let-values(((struct:_42 make-_42 ?_42 -ref_42 -set!_42)" "(let-values()" "(let-values()" "(make-struct-type" @@ -40655,14 +40702,14 @@ static const char *startup_source = " #f" " 'internal-definition-context)))))" "(values" -" 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))))" +" 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))))" "(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)" @@ -40699,11 +40746,11 @@ static const char *startup_source = " \"(or/c #f internal-definition-context?)\"" " parent-ctx_0)))" "(values))))" -"(let-values(((ctx_43)" +"(let-values(((ctx_42)" "(let-values(((temp47_0) 'syntax-local-make-definition-context))" "(get-current-expand-context16.1 #f temp47_0))))" "(let-values(((frame-id_8)" -"(let-values(((or-part_65)(root-expand-context-frame-id ctx_43)))" +"(let-values(((or-part_65)(root-expand-context-frame-id ctx_42)))" "(if or-part_65" " or-part_65" "(let-values(((or-part_226)" @@ -40712,7 +40759,7 @@ static const char *startup_source = " #f)))" "(if or-part_226 or-part_226(gensym)))))))" "(let-values(((sc_33)(new-scope 'intdef)))" -"(let-values(((def-ctx-scopes_4)(expand-context-def-ctx-scopes ctx_43)))" +"(let-values(((def-ctx-scopes_4)(expand-context-def-ctx-scopes ctx_42)))" "(begin" "(if def-ctx-scopes_4" "(let-values()" @@ -40735,7 +40782,7 @@ static const char *startup_source = "(begin" " 'syntax-local-bind-syntaxes11" "(let-values(((ids_25) ids8_0))" -"(let-values(((s_422) s9_0))" +"(let-values(((s_423) s9_0))" "(let-values(((intdef_0) intdef10_0))" "(let-values(((extra-intdefs_0) extra-intdefs7_0))" "(let-values()" @@ -40751,14 +40798,14 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(if(let-values(((or-part_98)(not s_422)))" -"(if or-part_98 or-part_98(syntax?$1 s_422)))" +"(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_422)))" +" s_423)))" "(values))))" "(let-values((()" "(begin" @@ -40780,19 +40827,19 @@ static const char *startup_source = " intdefs?-string" " extra-intdefs_0)))" "(values))))" -"(let-values(((ctx_44)" -"(let-values(((temp48_2) 'local-expand))" -"(get-current-expand-context16.1 #f temp48_2))))" +"(let-values(((ctx_43)" +"(let-values(((temp48_1) 'local-expand))" +"(get-current-expand-context16.1 #f temp48_1))))" "(let-values((()" "(begin" -"(let-values(((obs_29)(expand-context-observer ctx_44)))" +"(let-values(((obs_29)(expand-context-observer ctx_43)))" "(if obs_29" "(let-values()" "(let-values()" "(call-expand-observe obs_29 'local-bind ids_25)))" "(void)))" "(values))))" -"(let-values(((phase_7)(expand-context-phase ctx_44)))" +"(let-values(((phase_7)(expand-context-phase ctx_43)))" "(let-values(((all-intdefs_0)" "(if(list? extra-intdefs_0)" "(cons intdef_0 extra-intdefs_0)" @@ -40810,10 +40857,10 @@ static const char *startup_source = "(begin" " 'for-loop" "(if(pair? lst_285)" -"(let-values(((id_70)" +"(let-values(((id_69)" "(unsafe-car" " lst_285))" -"((rest_162)" +"((rest_161)" "(unsafe-cdr" " lst_285)))" "(let-values(((fold-var_239)" @@ -40826,19 +40873,19 @@ static const char *startup_source = "(let-values(((pre-id_0)" "(remove-use-site-scopes" "(flip-introduction-scopes" -" id_70" -" ctx_44)" -" ctx_44)))" +" id_69" +" ctx_43)" +" ctx_43)))" "(let-values(((temp49_1)" "(let-values(((pre-id51_0)" " pre-id_0)" "((intdef52_0)" " intdef_0)" -"((temp53_1)" +"((temp53_2)" " #t))" "(add-intdef-scopes24.1" " unsafe-undefined" -" temp53_1" +" temp53_2" " pre-id51_0" " intdef52_0)))" "((extra-intdefs50_0)" @@ -40854,7 +40901,7 @@ static const char *startup_source = "(if(not #f)" "(for-loop_119" " fold-var_239" -" rest_162)" +" rest_161)" " fold-var_239)))" " fold-var_231)))))" " for-loop_119)" @@ -40863,7 +40910,7 @@ static const char *startup_source = "(let-values((()" "(begin" "(let-values(((obs_30)" -"(expand-context-observer ctx_44)))" +"(expand-context-observer ctx_43)))" "(if obs_30" "(let-values()" "(let-values()" @@ -40881,7 +40928,7 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()(check-list lst_164)))" -"((letrec-values(((for-loop_192)" +"((letrec-values(((for-loop_190)" "(lambda(fold-var_161 lst_165)" "(begin" " 'for-loop" @@ -40889,7 +40936,7 @@ static const char *startup_source = "(let-values(((intdef-id_0)" "(unsafe-car" " lst_165))" -"((rest_163)" +"((rest_162)" "(unsafe-cdr" " lst_165)))" "(let-values(((fold-var_242)" @@ -40905,7 +40952,7 @@ static const char *startup_source = " phase_7)" "((temp56_2)" "(root-expand-context-counter" -" ctx_44))" +" ctx_43))" "((temp57_0)" "(internal-definition-context-frame-id" " intdef_0)))" @@ -40919,20 +40966,20 @@ static const char *startup_source = "(values" " fold-var_243)))))" "(if(not #f)" -"(for-loop_192" +"(for-loop_190" " fold-var_242" -" rest_163)" +" rest_162)" " fold-var_242)))" " fold-var_161)))))" -" for-loop_192)" +" for-loop_190)" " null" " lst_164))))))" "(let-values(((vals_5)" -"(if s_422" +"(if s_423" "(let-values()" "(let-values(((input-s_0)" "(flip-introduction-scopes" -"(let-values(((s58_0) s_422)" +"(let-values(((s58_0) s_423)" "((all-intdefs59_0)" " all-intdefs_0))" "(add-intdef-scopes24.1" @@ -40940,7 +40987,7 @@ static const char *startup_source = " #f" " s58_0" " all-intdefs59_0))" -" ctx_44)))" +" ctx_43)))" "(let-values(((tmp-env_0)" "(let-values(((lst_286) syms_20))" "(begin" @@ -40949,17 +40996,17 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list lst_286)))" -"((letrec-values(((for-loop_253)" +"((letrec-values(((for-loop_252)" "(lambda(env_7" " lst_105)" "(begin" " 'for-loop" "(if(pair?" " lst_105)" -"(let-values(((sym_71)" +"(let-values(((sym_72)" "(unsafe-car" " lst_105))" -"((rest_164)" +"((rest_163)" "(unsafe-cdr" " lst_105)))" "(let-values(((env_8)" @@ -40969,25 +41016,25 @@ static const char *startup_source = "(let-values()" "(hash-set" " env_9" -" sym_71" +" sym_72" " variable))))" "(values" " env_10)))))" "(if(not" " #f)" -"(for-loop_253" +"(for-loop_252" " env_8" -" rest_164)" +" rest_163)" " env_8)))" " env_7)))))" -" for-loop_253)" -"(expand-context-env ctx_44)" +" for-loop_252)" +"(expand-context-env ctx_43)" " lst_286)))))" "(let-values((()" "(begin" "(let-values(((obs_31)" "(expand-context-observer" -" ctx_44)))" +" ctx_43)))" "(if obs_31" "(let-values()" "(let-values()" @@ -41001,13 +41048,13 @@ static const char *startup_source = " 'syntax-local-bind-syntaxes" " input-s_0" " ids_25" -"(let-values(((temp60_3)" +"(let-values(((temp60_2)" "(let-values(((v_194)" -" ctx_44))" -"(let-values(((the-struct_65)" +" ctx_43))" +"(let-values(((the-struct_66)" " v_194))" "(if(expand-context/outer?" -" the-struct_65)" +" the-struct_66)" "(let-values(((env63_0)" " tmp-env_0)" "((inner64_0)" @@ -41016,36 +41063,38 @@ static const char *startup_source = "(expand-context/outer1.1" " inner64_0" "(root-expand-context/outer-post-expansion-scope" -" the-struct_65)" +" the-struct_66)" +"(root-expand-context/outer-post-expansion-shifts" +" the-struct_66)" "(root-expand-context/outer-use-site-scopes" -" the-struct_65)" +" the-struct_66)" "(root-expand-context/outer-frame-id" -" the-struct_65)" +" the-struct_66)" "(expand-context/outer-context" -" the-struct_65)" +" the-struct_66)" " env63_0" "(expand-context/outer-post-expansion-scope-action" -" the-struct_65)" +" the-struct_66)" "(expand-context/outer-scopes" -" the-struct_65)" +" the-struct_66)" "(expand-context/outer-def-ctx-scopes" -" the-struct_65)" +" the-struct_66)" "(expand-context/outer-binding-layer" -" the-struct_65)" +" the-struct_66)" "(expand-context/outer-reference-records" -" the-struct_65)" +" the-struct_66)" "(expand-context/outer-only-immediate?" -" the-struct_65)" +" the-struct_66)" "(expand-context/outer-need-eventually-defined" -" the-struct_65)" +" the-struct_66)" "(expand-context/outer-current-introduction-scopes" -" the-struct_65)" +" the-struct_66)" "(expand-context/outer-name" -" the-struct_65)))" +" the-struct_66)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_65)))))" +" the-struct_66)))))" "((temp61_1)" " 'expression)" "((all-intdefs62_0)" @@ -41058,11 +41107,11 @@ static const char *startup_source = " #f" " #f" " #f" -" temp60_3)))))" +" temp60_2)))))" "(begin" "(let-values(((obs_32)" "(expand-context-observer" -" ctx_44)))" +" ctx_43)))" "(if obs_32" "(let-values()" "(let-values()" @@ -41079,16 +41128,16 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()(check-list lst_287)))" -"((letrec-values(((for-loop_254)" +"((letrec-values(((for-loop_253)" "(lambda(fold-var_181" " lst_288)" "(begin" " 'for-loop" "(if(pair? lst_288)" -"(let-values(((id_8)" +"(let-values(((id_70)" "(unsafe-car" " lst_288))" -"((rest_165)" +"((rest_164)" "(unsafe-cdr" " lst_288)))" "(let-values(((fold-var_101)" @@ -41103,12 +41152,12 @@ static const char *startup_source = "(values" " fold-var_244)))))" "(if(not #f)" -"(for-loop_254" +"(for-loop_253" " fold-var_101" -" rest_165)" +" rest_164)" " fold-var_101)))" " fold-var_181)))))" -" for-loop_254)" +" for-loop_253)" " null" " lst_287))))))))" "(let-values(((env-mixins_0)" @@ -41134,7 +41183,7 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()(check-list lst_290)))" -"((letrec-values(((for-loop_255)" +"((letrec-values(((for-loop_254)" "(lambda(fold-var_38" " lst_192" " lst_291" @@ -41149,19 +41198,19 @@ static const char *startup_source = "(let-values(((intdef-id_1)" "(unsafe-car" " lst_192))" -"((rest_166)" +"((rest_165)" "(unsafe-cdr" " lst_192))" -"((sym_72)" +"((sym_73)" "(unsafe-car" " lst_291))" -"((rest_167)" +"((rest_166)" "(unsafe-cdr" " lst_291))" -"((val_70)" +"((val_69)" "(unsafe-car" " lst_292))" -"((rest_168)" +"((rest_167)" "(unsafe-cdr" " lst_292)))" "(let-values(((fold-var_245)" @@ -41173,41 +41222,41 @@ static const char *startup_source = "(let-values()" "(begin" "(maybe-install-free=id-in-context!" -" val_70" +" val_69" " intdef-id_1" " phase_7" -" ctx_44)" +" ctx_43)" "(env-mixin2.1" " intdef-id_1" -" sym_72" -" val_70" +" sym_73" +" val_69" "(make-weak-hasheq))))" " fold-var_246))))" "(values" " fold-var_247)))))" "(if(not #f)" -"(for-loop_255" +"(for-loop_254" " fold-var_245" +" rest_165" " rest_166" -" rest_167" -" rest_168)" +" rest_167)" " fold-var_245)))" " fold-var_38)))))" -" for-loop_255)" +" for-loop_254)" " null" " lst_289" " lst_278" " lst_290))))" "(unbox env-mixins_0)))" -"(let-values(((obs_33)(expand-context-observer ctx_44)))" +"(let-values(((obs_33)(expand-context-observer ctx_43)))" "(if obs_33" "(let-values()" "(let-values()" "(call-expand-observe obs_33 'exit-local-bind)))" "(void))))))))))))))))))))))))))" "(case-lambda" -"((ids_26 s_201 intdef_1)" -"(begin 'syntax-local-bind-syntaxes(syntax-local-bind-syntaxes11_0 ids_26 s_201 intdef_1 '())))" +"((ids_26 s_202 intdef_1)" +"(begin 'syntax-local-bind-syntaxes(syntax-local-bind-syntaxes11_0 ids_26 s_202 intdef_1 '())))" "((ids_27 s_61 intdef_2 extra-intdefs7_1)(syntax-local-bind-syntaxes11_0 ids_27 s_61 intdef_2 extra-intdefs7_1)))))" "(define-values" "(1/internal-definition-context-binding-identifiers)" @@ -41226,13 +41275,13 @@ static const char *startup_source = "(let-values(((lst_293)(unbox(internal-definition-context-env-mixins intdef_3))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_293)))" -"((letrec-values(((for-loop_256)" +"((letrec-values(((for-loop_255)" "(lambda(fold-var_189 lst_294)" "(begin" " 'for-loop" "(if(pair? lst_294)" "(let-values(((env-mixin_0)(unsafe-car lst_294))" -"((rest_169)(unsafe-cdr lst_294)))" +"((rest_168)(unsafe-cdr lst_294)))" "(let-values(((fold-var_248)" "(let-values(((fold-var_249) fold-var_189))" "(let-values(((fold-var_250)" @@ -41241,9 +41290,9 @@ static const char *startup_source = "(let-values()(env-mixin-id env-mixin_0))" " fold-var_249))))" "(values fold-var_250)))))" -"(if(not #f)(for-loop_256 fold-var_248 rest_169) fold-var_248)))" +"(if(not #f)(for-loop_255 fold-var_248 rest_168) fold-var_248)))" " fold-var_189)))))" -" for-loop_256)" +" for-loop_255)" " null" " lst_293))))))))" "(define-values" @@ -41253,7 +41302,7 @@ static const char *startup_source = "(begin" " 'internal-definition-context-introduce16" "(let-values(((intdef_4) intdef14_0))" -"(let-values(((s_423) s15_0))" +"(let-values(((s_424) s15_0))" "(let-values(((mode_13) mode13_0))" "(let-values()" "(begin" @@ -41264,14 +41313,14 @@ static const char *startup_source = " 'internal-definition-context-introduce" " \"internal-definition-context?\"" " intdef_4)))" -"(if(syntax?$1 s_423)" +"(if(syntax?$1 s_424)" "(void)" "(let-values()" -" (raise-argument-error 'internal-definition-context-introduce \"syntax?\" s_423)))" -"(let-values(((s65_0) s_423)" +" (raise-argument-error 'internal-definition-context-introduce \"syntax?\" s_424)))" +"(let-values(((s65_0) s_424)" "((intdef66_0) intdef_4)" -"((temp67_0) #t)" -"((temp68_0)" +"((temp67_1) #t)" +"((temp68_1)" "(let-values(((tmp_32) mode_13))" "(if(equal? tmp_32 'add)" "(let-values() add-scope)" @@ -41284,7 +41333,7 @@ static const char *startup_source = " 'internal-definition-context-introduce" " \"(or/c 'add 'remove 'flip)\"" " mode_13))))))))" -"(add-intdef-scopes24.1 temp68_0 temp67_0 s65_0 intdef66_0)))))))))))" +"(add-intdef-scopes24.1 temp68_1 temp67_1 s65_0 intdef66_0)))))))))))" "(case-lambda" "((intdef_5 s_67)" "(begin 'internal-definition-context-introduce(internal-definition-context-introduce16_0 intdef_5 s_67 'flip)))" @@ -41317,14 +41366,14 @@ static const char *startup_source = " 'identifier-remove-from-definition-context" " \"(or/c internal-definition-context? (listof internal-definition-context?))\"" " intdef_8)))" -"(let-values(((x_76)" +"(let-values(((x_75)" "(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)" +"((letrec-values(((for-loop_256)" "(lambda(id_72 a_47)" "(begin" " 'for-loop" @@ -41339,21 +41388,21 @@ static const char *startup_source = " id_74" " 'remove))))" "(values id_75)))))" -"(if(not #f)(for-loop_257 id_73(cdr a_47)) id_73)))" +"(if(not #f)(for-loop_256 id_73(cdr a_47)) id_73)))" " id_72)))))" -" for-loop_257)" +" for-loop_256)" " id_71" -" x_76)))))))" +" x_75)))))))" "(define-values" "(intdefs?)" -"(lambda(x_77)" +"(lambda(x_76)" "(begin" -"(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))))))" +"(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))))))" " (define-values (intdefs?-string) \"(or/c internal-definition-context? (listof internal-definition-context?))\")" "(define-values" "(intdefs-or-false?)" -"(lambda(x_78)(begin(let-values(((or-part_278)(not x_78)))(if or-part_278 or-part_278(intdefs? x_78))))))" +"(lambda(x_77)(begin(let-values(((or-part_280)(not x_77)))(if or-part_280 or-part_280(intdefs? x_77))))))" "(define-values" "(intdefs-or-false?-string)" " \"(or/c internal-definition-context? (listof internal-definition-context?) #f)\")" @@ -41361,14 +41410,14 @@ static const char *startup_source = "(add-intdef-bindings)" "(lambda(env_11 intdefs_0)" "(begin" -"(let-values(((x_79)" +"(let-values(((x_78)" "(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_257)" "(lambda(env_12 a_49)" "(begin" " 'for-loop" @@ -41431,11 +41480,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_257 env_13(cdr a_49)) env_13)))" " env_12)))))" -" for-loop_258)" +" for-loop_257)" " env_11" -" x_79))))))" +" x_78))))))" "(define-values" "(add-intdef-scopes24.1)" "(lambda(action19_0 always?18_0 s22_0 intdefs23_0)" @@ -41446,40 +41495,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_80)" +"(let-values(((x_79)" "(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_424 a_51)" +"((letrec-values(((for-loop_258)" +"(lambda(s_425 a_51)" "(begin" " 'for-loop" "(if(pair? a_51)" "(let-values(((intdef_11)(car a_51)))" -"(let-values(((s_321)" -"(let-values(((s_71) s_424))" -"(if(let-values(((or-part_279) always?_0))" -"(if or-part_279" -" or-part_279" +"(let-values(((s_322)" +"(let-values(((s_71) s_425))" +"(if(let-values(((or-part_281) always?_0))" +"(if or-part_281" +" or-part_281" "(internal-definition-context-add-scope?" " intdef_11)))" -"(let-values(((s_425) s_71))" -"(let-values(((s_426)" +"(let-values(((s_426) s_71))" +"(let-values(((s_427)" "(let-values()" "(action_0" -" s_425" +" s_426" "(internal-definition-context-scope" " intdef_11)))))" -"(values s_426)))" +"(values s_427)))" " s_71))))" -"(if(not #f)(for-loop_259 s_321(cdr a_51)) s_321)))" -" s_424)))))" -" for-loop_259)" +"(if(not #f)(for-loop_258 s_322(cdr a_51)) s_322)))" +" s_425)))))" +" for-loop_258)" " s_39" -" x_80)))))))))))" +" x_79)))))))))))" "(define-values" "(make-local-expand-context42.1)" "(lambda(context27_0" @@ -41492,9 +41541,9 @@ static const char *startup_source = " ctx41_0)" "(begin" " 'make-local-expand-context42" -"(let-values(((ctx_45) ctx41_0))" +"(let-values(((ctx_2) ctx41_0))" "(let-values(((context_9) context27_0))" -"(let-values(((phase_107)(if(eq? phase28_1 unsafe-undefined)(expand-context-phase ctx_45) phase28_1)))" +"(let-values(((phase_109)(if(eq? phase28_1 unsafe-undefined)(expand-context-phase ctx_2) 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))" @@ -41502,33 +41551,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_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(((or-part_282)(eq? context_9(expand-context-context ctx_2))))" +"(if or-part_282" +" or-part_282" +"(if(list? context_9)(list?(expand-context-context ctx_2)) #f)))))" "(let-values(((all-stop-ids_0)" -"(if stop-ids_1(stop-ids->all-stop-ids stop-ids_1 phase_107) #f)))" +"(if stop-ids_1(stop-ids->all-stop-ids stop-ids_1 phase_109) #f)))" "(let-values(((def-ctx-scopes_5)" -"(if(expand-context-def-ctx-scopes ctx_45)" -"(unbox(expand-context-def-ctx-scopes ctx_45))" +"(if(expand-context-def-ctx-scopes ctx_2)" +"(unbox(expand-context-def-ctx-scopes ctx_2))" " null)))" -"(let-values(((v_195) ctx_45))" -"(let-values(((the-struct_66) v_195))" -"(if(expand-context/outer? the-struct_66)" +"(let-values(((v_195) ctx_2))" +"(let-values(((the-struct_67) v_195))" +"(if(expand-context/outer? the-struct_67)" "(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_2) intdefs_2))" "((use-site-scopes71_0)" -"(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_283 or-part_283(box null)))" +"(if(let-values(((or-part_283)(eq? context_9 'module)))" +"(if or-part_283" +" or-part_283" +"(let-values(((or-part_132)(eq? context_9 'module-begin)))" +"(if or-part_132 or-part_132(list? context_9)))))" +"(let-values(((or-part_284)" +"(root-expand-context-use-site-scopes ctx_2)))" +"(if or-part_284 or-part_284(box null)))" " #f))" "((frame-id72_0)" -"(let-values(((x_81)" +"(let-values(((x_80)" "(let-values(((a_52) intdefs_2))" "(if(list? a_52)" "(let-values()(reverse$1 a_52))" @@ -41537,7 +41586,7 @@ static const char *startup_source = "(let-values()(list a_52)))))))" "(begin" " #t" -"((letrec-values(((for-loop_260)" +"((letrec-values(((for-loop_40)" "(lambda(frame-id_9 a_53)" "(begin" " 'for-loop" @@ -41562,174 +41611,177 @@ static const char *startup_source = "(let-values()" " 'all)" "(let-values()" -"(let-values(((or-part_284)" +"(let-values(((or-part_285)" " frame-id_11))" -"(if or-part_284" -" or-part_284" +"(if or-part_285" +" or-part_285" " i-frame-id_0))))))))" "(values" " frame-id_12)))))" "(if(not #f)" -"(for-loop_260" -" frame-id_10" -"(cdr a_53))" +"(for-loop_40 frame-id_10(cdr a_53))" " frame-id_10)))" " frame-id_9)))))" -" for-loop_260)" -"(root-expand-context-frame-id ctx_45)" -" x_81))))" +" for-loop_40)" +"(root-expand-context-frame-id ctx_2)" +" x_80))))" "((post-expansion-scope73_0)" "(if(if intdefs_2(not(null? intdefs_2)) #f)" "(new-scope 'macro)" "(if same-kind?_0" "(if(memq context_9 '(module module-begin top-level))" -"(root-expand-context-post-expansion-scope ctx_45)" +"(root-expand-context-post-expansion-scope ctx_2)" " #f)" " #f)))" -"((post-expansion-scope-action74_0)" +"((post-expansion-shifts74_0)" +"(if(if same-kind?_0(eq? context_9 'top-level) #f)" +"(root-expand-context-post-expansion-shifts ctx_2)" +" null))" +"((post-expansion-scope-action75_0)" "(if(if intdefs_2(not(null? intdefs_2)) #f)" -"(lambda(s_427 placeholder-sc_0)" +"(lambda(s_116 placeholder-sc_0)" "(begin" -" 'post-expansion-scope-action74" -"(let-values(((s80_0) s_427)((intdefs81_0) intdefs_2))" +" 'post-expansion-scope-action75" +"(let-values(((s81_0) s_116)((intdefs82_0) intdefs_2))" "(add-intdef-scopes24.1" " unsafe-undefined" " #f" -" s80_0" -" intdefs81_0))))" -"(expand-context-post-expansion-scope-action ctx_45)))" -"((scopes75_0)(append def-ctx-scopes_5(expand-context-scopes ctx_45)))" -"((only-immediate?76_0)(not stop-ids_1))" -"((current-introduction-scopes77_0) null)" -"((need-eventually-defined78_0)" -"(let-values(((ht_135)" -"(expand-context-need-eventually-defined ctx_45)))" +" s81_0" +" intdefs82_0))))" +"(expand-context-post-expansion-scope-action ctx_2)))" +"((scopes76_0)(append def-ctx-scopes_5(expand-context-scopes ctx_2)))" +"((only-immediate?77_0)(not stop-ids_1))" +"((current-introduction-scopes78_0) null)" +"((need-eventually-defined79_0)" +"(let-values(((ht_134)" +"(expand-context-need-eventually-defined ctx_2)))" "(if track-to-be-defined?_0" -"(let-values() ht_135)" -"(if ht_135(let-values()(make-hasheqv))(let-values() #f)))))" -"((inner79_0)" -"(let-values(((the-struct_67)" +"(let-values() ht_134)" +"(if ht_134(let-values()(make-hasheqv))(let-values() #f)))))" +"((inner80_0)" +"(let-values(((the-struct_68)" "(root-expand-context/outer-inner v_195)))" -"(if(expand-context/inner? the-struct_67)" -"(let-values(((to-parsed?82_0)" +"(if(expand-context/inner? the-struct_68)" +"(let-values(((to-parsed?83_0)" "(if to-parsed-ok?_0" -"(expand-context-to-parsed? ctx_45)" +"(expand-context-to-parsed? ctx_2)" " #f))" -"((just-once?83_0) #f)" -"((in-local-expand?84_0) #t)" -"((keep-#%expression?85_0) keep-#%expression?_1)" -"((stops86_0)" +"((just-once?84_0) #f)" +"((in-local-expand?85_0) #t)" +"((keep-#%expression?86_0) keep-#%expression?_1)" +"((stops87_0)" "(free-id-set" -" phase_107" -"(let-values(((or-part_285) all-stop-ids_0))" -"(if or-part_285 or-part_285 null)))))" +" phase_109" +"(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_67)" -"(root-expand-context/inner-module-scopes the-struct_67)" -"(root-expand-context/inner-top-level-bind-scope the-struct_67)" -"(root-expand-context/inner-all-scopes-stx the-struct_67)" -"(root-expand-context/inner-defined-syms the-struct_67)" -"(root-expand-context/inner-counter the-struct_67)" -"(root-expand-context/inner-lift-key the-struct_67)" -" to-parsed?82_0" -"(expand-context/inner-phase the-struct_67)" -"(expand-context/inner-namespace the-struct_67)" -" just-once?83_0" -"(expand-context/inner-module-begin-k the-struct_67)" -"(expand-context/inner-allow-unbound? the-struct_67)" -" in-local-expand?84_0" -" keep-#%expression?85_0" -" stops86_0" -"(expand-context/inner-declared-submodule-names the-struct_67)" -"(expand-context/inner-lifts the-struct_67)" -"(expand-context/inner-lift-envs the-struct_67)" -"(expand-context/inner-module-lifts the-struct_67)" -"(expand-context/inner-require-lifts the-struct_67)" -"(expand-context/inner-to-module-lifts the-struct_67)" -"(expand-context/inner-requires+provides the-struct_67)" -"(expand-context/inner-observer the-struct_67)" -"(expand-context/inner-for-serializable? the-struct_67)" +"(root-expand-context/inner-self-mpi the-struct_68)" +"(root-expand-context/inner-module-scopes the-struct_68)" +"(root-expand-context/inner-top-level-bind-scope the-struct_68)" +"(root-expand-context/inner-all-scopes-stx the-struct_68)" +"(root-expand-context/inner-defined-syms the-struct_68)" +"(root-expand-context/inner-counter the-struct_68)" +"(root-expand-context/inner-lift-key the-struct_68)" +" to-parsed?83_0" +"(expand-context/inner-phase the-struct_68)" +"(expand-context/inner-namespace the-struct_68)" +" just-once?84_0" +"(expand-context/inner-module-begin-k the-struct_68)" +"(expand-context/inner-allow-unbound? the-struct_68)" +" in-local-expand?85_0" +" keep-#%expression?86_0" +" stops87_0" +"(expand-context/inner-declared-submodule-names the-struct_68)" +"(expand-context/inner-lifts the-struct_68)" +"(expand-context/inner-lift-envs the-struct_68)" +"(expand-context/inner-module-lifts the-struct_68)" +"(expand-context/inner-require-lifts the-struct_68)" +"(expand-context/inner-to-module-lifts the-struct_68)" +"(expand-context/inner-requires+provides the-struct_68)" +"(expand-context/inner-observer the-struct_68)" +"(expand-context/inner-for-serializable? the-struct_68)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_67)))" +" the-struct_68)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_67)))))" +" the-struct_68)))))" "(expand-context/outer1.1" -" inner79_0" +" inner80_0" " post-expansion-scope73_0" +" post-expansion-shifts74_0" " use-site-scopes71_0" " frame-id72_0" " context69_0" " env70_0" -" post-expansion-scope-action74_0" -" scopes75_0" -"(expand-context/outer-def-ctx-scopes the-struct_66)" -"(expand-context/outer-binding-layer the-struct_66)" -"(expand-context/outer-reference-records the-struct_66)" -" only-immediate?76_0" -" need-eventually-defined78_0" -" current-introduction-scopes77_0" -"(expand-context/outer-name the-struct_66)))" +" 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-name the-struct_67)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_66)))))))))))))))))))" +" the-struct_67)))))))))))))))))))" "(define-values" "(flip-introduction-scopes)" -"(lambda(s_428 ctx_46)(begin(flip-scopes s_428(expand-context-current-introduction-scopes ctx_46)))))" +"(lambda(s_129 ctx_44)(begin(flip-scopes s_129(expand-context-current-introduction-scopes ctx_44)))))" "(define-values" "(1/syntax-transforming?)" "(lambda()" "(begin" " 'syntax-transforming?" -"(if(let-values(((temp55_2) #t))(get-current-expand-context16.1 temp55_2 'unexpected)) #t #f))))" +"(if(let-values(((temp55_1) #t))(get-current-expand-context16.1 temp55_1 'unexpected)) #t #f))))" "(define-values" "(1/syntax-transforming-with-lifts?)" "(lambda()" "(begin" " 'syntax-transforming-with-lifts?" -"(let-values(((ctx_47)(let-values(((temp56_3) #t))(get-current-expand-context16.1 temp56_3 'unexpected))))" -"(if ctx_47(if(expand-context-lifts ctx_47) #t #f) #f)))))" +"(let-values(((ctx_45)(let-values(((temp56_3) #t))(get-current-expand-context16.1 temp56_3 'unexpected))))" +"(if ctx_45(if(expand-context-lifts ctx_45) #t #f) #f)))))" "(define-values" "(1/syntax-transforming-module-expression?)" "(lambda()" "(begin" " 'syntax-transforming-module-expression?" -"(let-values(((ctx_48)(let-values(((temp57_1) #t))(get-current-expand-context16.1 temp57_1 'unexpected))))" -"(if ctx_48(if(expand-context-to-module-lifts ctx_48) #t #f) #f)))))" +"(let-values(((ctx_46)(let-values(((temp57_1) #t))(get-current-expand-context16.1 temp57_1 'unexpected))))" +"(if ctx_46(if(expand-context-to-module-lifts ctx_46) #t #f) #f)))))" "(define-values" "(1/syntax-local-transforming-module-provides?)" "(lambda()" "(begin" " 'syntax-local-transforming-module-provides?" -"(let-values(((ctx_49)(let-values(((temp58_1) #t))(get-current-expand-context16.1 temp58_1 'unexpected))))" -"(if ctx_49(if(expand-context-requires+provides ctx_49) #t #f) #f)))))" +"(let-values(((ctx_47)(let-values(((temp58_1) #t))(get-current-expand-context16.1 temp58_1 'unexpected))))" +"(if ctx_47(if(expand-context-requires+provides ctx_47) #t #f) #f)))))" "(define-values" "(1/syntax-local-context)" "(lambda()" "(begin" " 'syntax-local-context" -"(let-values(((ctx_50)" +"(let-values(((ctx_48)" "(let-values(((temp59_3) 'syntax-local-context))(get-current-expand-context16.1 #f temp59_3))))" -"(expand-context-context ctx_50)))))" +"(expand-context-context ctx_48)))))" "(define-values" "(1/syntax-local-introduce)" -"(lambda(s_429)" +"(lambda(s_428)" "(begin" " 'syntax-local-introduce" "(let-values()" "(let-values()" "(let-values((()" "(begin" -"(if(syntax?$1 s_429)" +"(if(syntax?$1 s_428)" "(void)" -" (let-values () (raise-argument-error 'syntax-local-introduce \"syntax?\" s_429)))" +" (let-values () (raise-argument-error 'syntax-local-introduce \"syntax?\" s_428)))" "(values))))" "(let-values(((ctx_9)" "(let-values(((temp61_2) 'syntax-local-introduce))" "(get-current-expand-context16.1 #f temp61_2))))" -"(flip-introduction-scopes s_429 ctx_9))))))))" +"(flip-introduction-scopes s_428 ctx_9))))))))" "(define-values" "(1/syntax-local-identifier-as-binding)" "(lambda(id_76)" @@ -41744,17 +41796,17 @@ static const char *startup_source = "(let-values()" " (raise-argument-error 'syntax-local-identifier-as-binding \"identifier?\" id_76)))" "(values))))" -"(let-values(((ctx_51)" -"(let-values(((temp63_1) 'syntax-local-identifier-as-binding))" -"(get-current-expand-context16.1 #f temp63_1))))" -"(remove-use-site-scopes id_76 ctx_51))))))))" +"(let-values(((ctx_49)" +"(let-values(((temp63_2) 'syntax-local-identifier-as-binding))" +"(get-current-expand-context16.1 #f temp63_2))))" +"(remove-use-site-scopes id_76 ctx_49))))))))" "(define-values" "(1/syntax-local-phase-level)" "(lambda()" "(begin" " 'syntax-local-phase-level" -"(let-values(((ctx_52)(let-values(((temp64_1) #t))(get-current-expand-context16.1 temp64_1 'unexpected))))" -"(if ctx_52(expand-context-phase ctx_52) 0)))))" +"(let-values(((ctx_50)(let-values(((temp64_2) #t))(get-current-expand-context16.1 temp64_2 'unexpected))))" +"(if ctx_50(expand-context-phase ctx_50) 0)))))" "(define-values" "(1/syntax-local-name)" "(lambda()" @@ -41762,9 +41814,9 @@ static const char *startup_source = " 'syntax-local-name" "(let-values()" "(let-values()" -"(let-values(((ctx_53)" +"(let-values(((ctx_51)" "(let-values(((who66_0) 'syntax-local-name))(get-current-expand-context16.1 #f who66_0))))" -"(let-values(((id_77)(expand-context-name ctx_53)))" +"(let-values(((id_77)(expand-context-name ctx_51)))" "(if id_77(datum->syntax$1 #f(syntax-e$1 id_77) id_77) #f))))))))" "(define-values" "(1/make-syntax-introducer)" @@ -41794,29 +41846,29 @@ static const char *startup_source = "(lambda(sc_34)" "(begin" "(let-values(((core70_0)" -"(lambda(s69_1 mode68_0)" +"(lambda(s69_0 mode68_0)" "(begin" " 'core70" -"(let-values(((s_430) s69_1))" +"(let-values(((s_429) s69_0))" "(let-values(((mode_14) mode68_0))" "(let-values()" "(begin" -"(if(syntax?$1 s_430)" +"(if(syntax?$1 s_429)" "(void)" -" (let-values () (raise-argument-error 'syntax-introducer \"syntax?\" s_430)))" +" (let-values () (raise-argument-error 'syntax-introducer \"syntax?\" s_429)))" "(let-values(((tmp_33) mode_14))" "(if(equal? tmp_33 'add)" -"(let-values()(add-scope s_430 sc_34))" +"(let-values()(add-scope s_429 sc_34))" "(if(equal? tmp_33 'remove)" -"(let-values()(remove-scope s_430 sc_34))" +"(let-values()(remove-scope s_429 sc_34))" "(if(equal? tmp_33 'flip)" -"(let-values()(flip-scope s_430 sc_34))" +"(let-values()(flip-scope s_429 sc_34))" "(let-values()" "(raise-argument-error" " 'syntax-introducer" " \"(or/c 'add 'remove 'flip)\"" " mode_14))))))))))))))" -"(case-lambda((s_190)(core70_0 s_190 'flip))((s_90 mode68_1)(core70_0 s_90 mode68_1)))))))" +"(case-lambda((s_191)(core70_0 s_191 'flip))((s_90 mode68_1)(core70_0 s_90 mode68_1)))))))" "(define-values" "(1/make-syntax-delta-introducer)" "(let-values(((make-syntax-delta-introducer7_0)" @@ -41843,8 +41895,8 @@ static const char *startup_source = "(let-values((()" "(begin" "(if((lambda(x_19)" -"(let-values(((or-part_286)(not x_19)))" -"(if or-part_286 or-part_286(syntax?$1 x_19))))" +"(let-values(((or-part_287)(not x_19)))" +"(if or-part_287 or-part_287(syntax?$1 x_19))))" " base-s_0)" "(void)" "(let-values()" @@ -41872,7 +41924,7 @@ static const char *startup_source = "(let-values(((use-base-scs_0)" "(if(subset? base-scs_0 ext-scs_0)" " base-scs_0" -"(let-values(((or-part_287)" +"(let-values(((or-part_288)" "(if(identifier? base-s_0)" "(let-values(((base-s73_0) base-s_0)" "((phase74_1) phase_5)" @@ -41885,16 +41937,16 @@ static const char *startup_source = " base-s73_0" " phase74_1))" " #f)))" -"(if or-part_287 or-part_287(seteq))))))" +"(if or-part_288 or-part_288(seteq))))))" "(let-values(((delta-scs_0)" "(set->list(set-subtract ext-scs_0 use-base-scs_0))))" "(let-values(((maybe-taint_0)" "(if(syntax-clean? ext-s_0) values syntax-taint$1)))" "(let-values(((core78_0)" -"(lambda(s77_0 mode76_0)" +"(lambda(s77_1 mode76_0)" "(begin" " 'core78" -"(let-values(((s_11) s77_0))" +"(let-values(((s_11) s77_1))" "(let-values(((mode_15) mode76_0))" "(let-values()" "(maybe-taint_0" @@ -41954,13 +42006,13 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(if((lambda(x_82)" -"(let-values(((or-part_209)(not x_82)))" +"(if((lambda(x_81)" +"(let-values(((or-part_209)(not x_81)))" "(if or-part_209" " or-part_209" "((lambda(p_50)" "(if(procedure? p_50)(procedure-arity-includes? p_50 0) #f))" -" x_82))))" +" x_81))))" " failure-thunk_0)" "(void)" "(let-values()" @@ -41981,8 +42033,8 @@ static const char *startup_source = "(let-values(((ctx_11)" "(if intdefs_3" "(let-values(((v_196) current-ctx_0))" -"(let-values(((the-struct_68) v_196))" -"(if(expand-context/outer? the-struct_68)" +"(let-values(((the-struct_69) v_196))" +"(if(expand-context/outer? the-struct_69)" "(let-values(((env82_0)" "(add-intdef-bindings" "(expand-context-env current-ctx_0)" @@ -41990,24 +42042,25 @@ static const char *startup_source = "((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-use-site-scopes the-struct_68)" -"(root-expand-context/outer-frame-id the-struct_68)" -"(expand-context/outer-context the-struct_68)" +"(root-expand-context/outer-post-expansion-scope the-struct_69)" +"(root-expand-context/outer-post-expansion-shifts 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)" " env82_0" -"(expand-context/outer-post-expansion-scope-action the-struct_68)" -"(expand-context/outer-scopes the-struct_68)" -"(expand-context/outer-def-ctx-scopes the-struct_68)" -"(expand-context/outer-binding-layer the-struct_68)" -"(expand-context/outer-reference-records the-struct_68)" -"(expand-context/outer-only-immediate? the-struct_68)" -"(expand-context/outer-need-eventually-defined the-struct_68)" -"(expand-context/outer-current-introduction-scopes the-struct_68)" -"(expand-context/outer-name the-struct_68)))" +"(expand-context/outer-post-expansion-scope-action the-struct_69)" +"(expand-context/outer-scopes the-struct_69)" +"(expand-context/outer-def-ctx-scopes the-struct_69)" +"(expand-context/outer-binding-layer the-struct_69)" +"(expand-context/outer-reference-records the-struct_69)" +"(expand-context/outer-only-immediate? the-struct_69)" +"(expand-context/outer-need-eventually-defined the-struct_69)" +"(expand-context/outer-current-introduction-scopes the-struct_69)" +"(expand-context/outer-name the-struct_69)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_68))))" +" the-struct_69))))" " current-ctx_0)))" "(let-values((()" "(begin" @@ -42017,7 +42070,7 @@ static const char *startup_source = "(let-values()(call-expand-observe obs_34 'local-value id_78)))" "(void)))" "(values))))" -"(let-values(((phase_70)(expand-context-phase ctx_11)))" +"(let-values(((phase_72)(expand-context-phase ctx_11)))" "((letrec-values(((loop_98)" "(lambda(id_61)" "(begin" @@ -42025,7 +42078,7 @@ static const char *startup_source = "(let-values(((b_83)" "(if immediate?_1" "(let-values(((id84_0) id_61)" -"((phase85_0) phase_70)" +"((phase85_0) phase_72)" "((temp86_0) #t))" "(resolve+shift28.1" " #f" @@ -42037,7 +42090,7 @@ static const char *startup_source = " phase85_0))" "(resolve+shift/extra-inspector" " id_61" -" phase_70" +" phase_72" "(expand-context-namespace ctx_11)))))" "(begin" "(let-values(((obs_35)(expand-context-observer ctx_11)))" @@ -42064,14 +42117,14 @@ static const char *startup_source = " (error who_19 \"unbound identifier: ~v\" id_61))))" "(let-values()" "(let-values(((v_39 primitive?_7 insp_17 protected?_8)" -"(let-values(((b87_1) b_83)" +"(let-values(((b87_0) b_83)" "((ctx88_0) ctx_11)" "((id89_0) id_61)" -"((temp90_1) #t))" +"((temp90_0) #t))" "(lookup62.1" " #f" -" temp90_1" -" b87_1" +" temp90_0" +" b87_0" " ctx88_0" " id89_0))))" "(if(let-values(((or-part_101)(variable? v_39)))" @@ -42134,12 +42187,12 @@ static const char *startup_source = "(let-values(((failure-thunk_1) failure-thunk18_0))" "(let-values(((intdef_13) intdef19_0))" "(let-values()" -"(let-values(((temp91_0) 'syntax-local-value)" +"(let-values(((temp91_1) 'syntax-local-value)" "((temp92_1) #f)" "((id93_1) id_79)" "((intdef94_0) intdef_13)" "((failure-thunk95_0) failure-thunk_1))" -"(do-syntax-local-value15.1 temp92_1 temp91_0 id93_1 intdef94_0 failure-thunk95_0))))))))))" +"(do-syntax-local-value15.1 temp92_1 temp91_1 id93_1 intdef94_0 failure-thunk95_0))))))))))" "(case-lambda" "((id_80)(begin 'syntax-local-value(syntax-local-value21_0 id_80 #f #f)))" "((id_62 failure-thunk_2 intdef19_1)(syntax-local-value21_0 id_62 failure-thunk_2 intdef19_1))" @@ -42150,25 +42203,25 @@ static const char *startup_source = "(lambda(id25_2 failure-thunk23_0 intdef24_0)" "(begin" " 'syntax-local-value/immediate26" -"(let-values(((id_8) id25_2))" +"(let-values(((id_70) id25_2))" "(let-values(((failure-thunk_3) failure-thunk23_0))" "(let-values(((intdef_14) intdef24_0))" "(let-values()" -"(let-values(((temp96_0) 'syntax-local-value/immediate)" -"((temp97_0) #t)" -"((id98_0) id_8)" +"(let-values(((temp96_1) 'syntax-local-value/immediate)" +"((temp97_1) #t)" +"((id98_0) id_70)" "((intdef99_0) intdef_14)" "((failure-thunk100_0) failure-thunk_3))" "(do-syntax-local-value15.1" -" temp97_0" -" temp96_0" +" temp97_1" +" temp96_1" " id98_0" " intdef99_0" " failure-thunk100_0))))))))))" "(case-lambda" -"((id_82)(begin 'syntax-local-value/immediate(syntax-local-value/immediate26_0 id_82 #f #f)))" -"((id_83 failure-thunk_4 intdef24_1)(syntax-local-value/immediate26_0 id_83 failure-thunk_4 intdef24_1))" -"((id_84 failure-thunk23_1)(syntax-local-value/immediate26_0 id_84 failure-thunk23_1 #f)))))" +"((id_8)(begin 'syntax-local-value/immediate(syntax-local-value/immediate26_0 id_8 #f #f)))" +"((id_82 failure-thunk_4 intdef24_1)(syntax-local-value/immediate26_0 id_82 failure-thunk_4 intdef24_1))" +"((id_83 failure-thunk23_1)(syntax-local-value/immediate26_0 id_83 failure-thunk23_1 #f)))))" "(define-values" "(do-lift-values-expression)" "(lambda(who_20 n_29 s_34)" @@ -42183,13 +42236,13 @@ static const char *startup_source = "(void)" " (let-values () (raise-argument-error who_20 \"exact-nonnegative-integer?\" n_29)))" "(values))))" -"(let-values(((ctx_54)(let-values(((who101_0) who_20))(get-current-expand-context16.1 #f who101_0))))" -"(let-values(((lifts_8)(expand-context-lifts ctx_54)))" +"(let-values(((ctx_52)(let-values(((who101_0) who_20))(get-current-expand-context16.1 #f who101_0))))" +"(let-values(((lifts_8)(expand-context-lifts ctx_52)))" "(let-values((()" "(begin" " (if lifts_8 (void) (let-values () (raise-arguments-error who_20 \"no lift target\")))" "(values))))" -"(let-values(((counter_4)(root-expand-context-counter ctx_54)))" +"(let-values(((counter_4)(root-expand-context-counter ctx_52)))" "(let-values(((ids_28)" "(reverse$1" "(let-values(((start_39) 0)((end_29) n_29)((inc_23) 1))" @@ -42197,7 +42250,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_218)" +"((letrec-values(((for-loop_217)" "(lambda(fold-var_251 pos_106)" "(begin" " 'for-loop" @@ -42232,24 +42285,24 @@ static const char *startup_source = " fold-var_253))))" "(values fold-var_254)))))" "(if(not #f)" -"(for-loop_218 fold-var_252(+ pos_106 inc_23))" +"(for-loop_217 fold-var_252(+ pos_106 inc_23))" " fold-var_252)))" " fold-var_251)))))" -" for-loop_218)" +" for-loop_217)" " null" " start_39))))))" "(begin" -"(let-values(((obs_39)(expand-context-observer ctx_54)))" +"(let-values(((obs_39)(expand-context-observer ctx_52)))" "(if obs_39" "(let-values()(let-values()(call-expand-observe obs_39 'lift-expr ids_28 s_34)))" "(void)))" "(map2" -"(lambda(id_85)(flip-introduction-scopes id_85 ctx_54))" +"(lambda(id_84)(flip-introduction-scopes id_84 ctx_52))" "(add-lifted!" " lifts_8" " ids_28" -"(flip-introduction-scopes s_34 ctx_54)" -"(expand-context-phase ctx_54))))))))))))))" +"(flip-introduction-scopes s_34 ctx_52)" +"(expand-context-phase ctx_52))))))))))))))" "(define-values" "(1/syntax-local-lift-expression)" "(lambda(s_36)" @@ -42269,10 +42322,10 @@ static const char *startup_source = " 'syntax-local-lift-context" "(let-values()" "(let-values()" -"(let-values(((ctx_55)" +"(let-values(((ctx_53)" "(let-values(((who105_0) 'syntax-local-lift-context))" "(get-current-expand-context16.1 #f who105_0))))" -"(root-expand-context-lift-key ctx_55)))))))" +"(root-expand-context-lift-key ctx_53)))))))" "(define-values" "(1/syntax-local-lift-module)" "(lambda(s_64)" @@ -42286,15 +42339,15 @@ static const char *startup_source = "(void)" " (let-values () (raise-argument-error 'syntax-local-lift-module \"syntax?\" s_64)))" "(values))))" -"(let-values(((ctx_56)" +"(let-values(((ctx_54)" "(let-values(((who107_0) 'syntax-local-lift-module))" "(get-current-expand-context16.1 #f who107_0))))" -"(let-values(((phase_100)(expand-context-phase ctx_56)))" +"(let-values(((phase_102)(expand-context-phase ctx_54)))" "(begin" -"(let-values(((tmp_30)(core-form-sym s_64 phase_100)))" +"(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_56)))" +"(let-values(((lifts_9)(expand-context-module-lifts ctx_54)))" "(begin" "(if lifts_9" "(void)" @@ -42304,10 +42357,10 @@ 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_56) phase_100))))" +"(add-lifted-module! lifts_9(flip-introduction-scopes s_64 ctx_54) 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_56)))" +"(let-values(((obs_40)(expand-context-observer ctx_54)))" "(if obs_40" "(let-values()(let-values()(call-expand-observe obs_40 'lift-statement s_64)))" "(void))))))))))))" @@ -42327,7 +42380,7 @@ static const char *startup_source = "(begin" " 'do-local-lift-to-module48" "(let-values(((who_21) who46_0))" -"(let-values(((s_431) s47_0))" +"(let-values(((s_430) s47_0))" "(let-values(((no-target-msg_0) no-target-msg28_0))" "(let-values(((intro?_0) intro?29_0))" "(let-values(((more-checks_0)(if(eq? more-checks30_0 unsafe-undefined) void more-checks30_0)))" @@ -42336,28 +42389,28 @@ 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_432 phase_108 lift-ctx_1)(begin 'pre-wrap s_432))" +"(lambda(s_431 phase_110 lift-ctx_1)(begin 'pre-wrap s_431))" " pre-wrap34_0)))" "(let-values(((shift-wrap_0)" "(if(eq? shift-wrap35_0 unsafe-undefined)" -"(lambda(s_210 phase_109 lift-ctx_2)(begin 'shift-wrap s_210))" +"(lambda(s_211 phase_111 lift-ctx_2)(begin 'shift-wrap s_211))" " shift-wrap35_0)))" "(let-values(((post-wrap_0)" "(if(eq? post-wrap36_0 unsafe-undefined)" -"(lambda(s_211 phase_12 lift-ctx_3)(begin 'post-wrap s_211))" +"(lambda(s_212 phase_12 lift-ctx_3)(begin 'post-wrap s_212))" " post-wrap36_0)))" "(let-values()" "(let-values((()" "(begin" -"(if(syntax?$1 s_431)" +"(if(syntax?$1 s_430)" "(void)" -" (let-values () (raise-argument-error who_21 \"syntax?\" s_431)))" +" (let-values () (raise-argument-error who_21 \"syntax?\" s_430)))" "(values))))" "(let-values((()(begin(more-checks_0)(values))))" -"(let-values(((ctx_57)" +"(let-values(((ctx_55)" "(let-values(((who108_0) who_21))" "(get-current-expand-context16.1 #f who108_0))))" -"(let-values(((lift-ctx_4)(get-lift-ctx_0 ctx_57)))" +"(let-values(((lift-ctx_4)(get-lift-ctx_0 ctx_55)))" "(let-values((()" "(begin" "(if lift-ctx_4" @@ -42367,15 +42420,15 @@ static const char *startup_source = " who_21" " no-target-msg_0" " \"form to lift\"" -" s_431)))" +" s_430)))" "(values))))" -"(let-values(((phase_88)(expand-context-phase ctx_57)))" +"(let-values(((phase_90)(expand-context-phase ctx_55)))" "(let-values(((wrt-phase_1)(get-wrt-phase_0 lift-ctx_4)))" "(let-values(((added-s_0)" -"(if intro?_0(flip-introduction-scopes s_431 ctx_57) s_431)))" -"(let-values(((pre-s_0)(pre-wrap_0 added-s_0 phase_88 lift-ctx_4)))" +"(if intro?_0(flip-introduction-scopes s_430 ctx_55) s_430)))" +"(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_88)" +"(let-values(((start_40) phase_90)" "((end_30) wrt-phase_1)" "((inc_24) -1))" "(begin" @@ -42384,50 +42437,50 @@ static const char *startup_source = "(void)" "(let-values()" "(check-range start_40 end_30 inc_24)))" -"((letrec-values(((for-loop_130)" -"(lambda(s_433 pos_107)" +"((letrec-values(((for-loop_129)" +"(lambda(s_432 pos_107)" "(begin" " 'for-loop" "(if(> pos_107 end_30)" -"(let-values(((phase_110)" +"(let-values(((phase_112)" " pos_107))" -"(let-values(((s_319)" -"(let-values(((s_424)" -" s_433))" -"(let-values(((s_434)" +"(let-values(((s_320)" +"(let-values(((s_425)" +" s_432))" +"(let-values(((s_433)" "(let-values()" "(shift-wrap_0" -" s_424" +" s_425" "(sub1" -" phase_110)" +" phase_112)" " lift-ctx_4))))" "(values" -" s_434)))))" -"(if(not #f)" -"(for-loop_130" -" s_319" -"(+ pos_107 inc_24))" -" s_319)))" " s_433)))))" -" for-loop_130)" +"(if(not #f)" +"(for-loop_129" +" s_320" +"(+ pos_107 inc_24))" +" s_320)))" +" s_432)))))" +" for-loop_129)" " pre-s_0" " start_40)))))" "(let-values(((post-s_1)" "(post-wrap_0 shift-s_0 wrt-phase_1 lift-ctx_4)))" "(begin" "(add-lifted!_0 lift-ctx_4 post-s_1 wrt-phase_1)" -"(values ctx_57 post-s_1))))))))))))))))))))))))))))" +"(values ctx_55 post-s_1))))))))))))))))))))))))))))" "(define-values" "(1/syntax-local-lift-require)" -"(lambda(s_218 use-s_1)" +"(lambda(s_219 use-s_1)" "(begin" " 'syntax-local-lift-require" "(let-values()" "(let-values()" "(let-values(((sc_35)(new-scope 'lifted-require)))" -"(let-values(((ctx_58 added-s_1)" +"(let-values(((ctx_56 added-s_1)" "(let-values(((who110_0) 'syntax-local-lift-require)" -"((temp111_0)(datum->syntax$1 #f s_218))" +"((temp111_0)(datum->syntax$1 #f s_219))" " ((temp112_0) \"could not find target context\")" "((temp113_0) #f)" "((temp114_1)" @@ -42440,11 +42493,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_111 require-lift-ctx_0)" +"(lambda(s_110 phase_113 require-lift-ctx_0)" "(require-spec-shift-for-syntax s_110)))" "((temp119_0)" -"(lambda(s_435 phase_112 require-lift-ctx_1)" -"(wrap-form '#%require(add-scope s_435 sc_35) phase_112))))" +"(lambda(s_434 phase_114 require-lift-ctx_1)" +"(wrap-form '#%require(add-scope s_434 sc_35) phase_114))))" "(do-local-lift-to-module48.1" " add-lifted-require!117_0" " expand-context-require-lifts115_0" @@ -42460,12 +42513,12 @@ static const char *startup_source = "(let-values((()" "(begin" "(namespace-visit-available-modules!" -"(expand-context-namespace ctx_58)" -"(expand-context-phase ctx_58))" +"(expand-context-namespace ctx_56)" +"(expand-context-phase ctx_56))" "(values))))" "(let-values(((result-s_6)(add-scope use-s_1 sc_35)))" "(begin" -"(let-values(((obs_41)(expand-context-observer ctx_58)))" +"(let-values(((obs_41)(expand-context-observer ctx_56)))" "(if obs_41" "(let-values()" "(let-values()(call-expand-observe obs_41 'lift-require added-s_1 use-s_1 result-s_6)))" @@ -42473,23 +42526,23 @@ static const char *startup_source = " result-s_6))))))))))" "(define-values" "(1/syntax-local-lift-provide)" -"(lambda(s_436)" +"(lambda(s_435)" "(begin" " 'syntax-local-lift-provide" "(let-values()" "(let-values()" -"(let-values(((ctx_59 result-s_7)" +"(let-values(((ctx_57 result-s_7)" "(let-values(((who121_0) 'syntax-local-lift-provide)" -"((s122_1) s_436)" +"((s122_1) s_435)" " ((temp123_0) \"not expanding in a module run-time body\")" "((expand-context-to-module-lifts124_0) expand-context-to-module-lifts)" "((to-module-lift-context-wrt-phase125_0) to-module-lift-context-wrt-phase)" "((add-lifted-to-module-provide!126_0) add-lifted-to-module-provide!)" "((temp127_2)" -"(lambda(s_437 phase_113 to-module-lift-ctx_0)(wrap-form 'for-syntax s_437 #f)))" +"(lambda(s_436 phase_115 to-module-lift-ctx_0)(wrap-form 'for-syntax s_436 #f)))" "((temp128_2)" -"(lambda(s_116 phase_114 to-module-lift-ctx_1)" -"(wrap-form '#%provide s_116 phase_114))))" +"(lambda(s_116 phase_116 to-module-lift-ctx_1)" +"(wrap-form '#%provide s_116 phase_116))))" "(do-local-lift-to-module48.1" " add-lifted-to-module-provide!126_0" " expand-context-to-module-lifts124_0" @@ -42502,33 +42555,33 @@ static const char *startup_source = " temp127_2" " who121_0" " s122_1))))" -"(let-values(((obs_42)(expand-context-observer ctx_59)))" +"(let-values(((obs_42)(expand-context-observer ctx_57)))" "(if obs_42" "(let-values()(let-values()(call-expand-observe obs_42 'lift-provide result-s_7)))" "(void)))))))))" "(define-values" "(1/syntax-local-lift-module-end-declaration)" -"(lambda(s_225)" +"(lambda(s_227)" "(begin" " 'syntax-local-lift-module-end-declaration" "(let-values()" "(let-values()" -"(let-values(((ctx_60 also-s_0)" +"(let-values(((ctx_58 also-s_0)" "(let-values(((who130_0) 'syntax-local-lift-module-end-declaration)" -"((s131_0) s_225)" +"((s131_0) s_227)" "((temp132_1)" " \"not currently transforming an expression within a module declaration\")" "((expand-context-to-module-lifts133_0) expand-context-to-module-lifts)" "((temp134_1)(lambda(lift-ctx_5) 0))" "((add-lifted-to-module-end!135_0) add-lifted-to-module-end!)" "((temp136_0)" -"(lambda(orig-s_32 phase_115 to-module-lift-ctx_2)" +"(lambda(orig-s_32 phase_117 to-module-lift-ctx_2)" "(if(to-module-lift-context-end-as-expressions? to-module-lift-ctx_2)" -"(wrap-form '#%expression orig-s_32 phase_115)" +"(wrap-form '#%expression orig-s_32 phase_117)" " orig-s_32)))" "((temp137_1)" -"(lambda(s_438 phase_116 to-module-lift-ctx_3)" -"(wrap-form 'begin-for-syntax s_438 phase_116))))" +"(lambda(s_437 phase_118 to-module-lift-ctx_3)" +"(wrap-form 'begin-for-syntax s_437 phase_118))))" "(do-local-lift-to-module48.1" " add-lifted-to-module-end!135_0" " expand-context-to-module-lifts133_0" @@ -42541,17 +42594,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_58)))" "(if obs_43" -"(let-values()(let-values()(call-expand-observe obs_43 'lift-statement s_225)))" +"(let-values()(let-values()(call-expand-observe obs_43 'lift-statement s_227)))" "(void)))))))))" "(define-values" "(wrap-form)" -"(lambda(sym_73 s_124 phase_117)" +"(lambda(sym_74 s_124 phase_119)" "(begin" "(datum->syntax$1" " #f" -"(list(datum->syntax$1(if phase_117(syntax-shift-phase-level$1 core-stx phase_117) #f) sym_73) s_124)))))" +"(list(datum->syntax$1(if phase_119(syntax-shift-phase-level$1 core-stx phase_119) #f) sym_74) s_124)))))" "(define-values" "(1/syntax-local-module-defined-identifiers)" "(lambda()" @@ -42568,10 +42621,10 @@ static const char *startup_source = " 'syntax-local-module-defined-identifiers" " \"not currently transforming module provides\")))" "(values))))" -"(let-values(((ctx_61)" +"(let-values(((ctx_59)" "(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_59))))))))))" "(define-values" "(1/syntax-local-module-required-identifiers)" "(lambda(mod-path_8 phase-level_21)" @@ -42581,8 +42634,8 @@ static const char *startup_source = "(let-values()" "(let-values((()" "(begin" -"(if(let-values(((or-part_288)(not mod-path_8)))" -"(if or-part_288 or-part_288(1/module-path? mod-path_8)))" +"(if(let-values(((or-part_289)(not mod-path_8)))" +"(if or-part_289 or-part_289(1/module-path? mod-path_8)))" "(void)" "(let-values()" "(raise-argument-error" @@ -42592,8 +42645,8 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(if(let-values(((or-part_289)(eq? phase-level_21 #t)))" -"(if or-part_289 or-part_289(phase? phase-level_21)))" +"(if(let-values(((or-part_290)(eq? phase-level_21 #t)))" +"(if or-part_290 or-part_290(phase? phase-level_21)))" "(void)" "(let-values()" "(raise-argument-error" @@ -42610,11 +42663,11 @@ static const char *startup_source = " 'syntax-local-module-required-identifiers" " \"not currently transforming module provides\")))" "(values))))" -"(let-values(((ctx_62)" +"(let-values(((ctx_60)" "(let-values(((temp141_1) 'syntax-local-module-required-identifiers))" "(get-current-expand-context16.1 #f temp141_1))))" -"(let-values(((requires+provides_5)(expand-context-requires+provides ctx_62)))" -"(let-values(((mpi_45)(if mod-path_8(module-path->mpi/context mod-path_8 ctx_62) #f)))" +"(let-values(((requires+provides_5)(expand-context-requires+provides ctx_60)))" +"(let-values(((mpi_45)(if mod-path_8(module-path->mpi/context mod-path_8 ctx_60) #f)))" "(let-values(((requireds_0)" "(extract-all-module-requires" " requires+provides_5" @@ -42622,36 +42675,36 @@ static const char *startup_source = "(if(eq? phase-level_21 #t) 'all phase-level_21))))" "(if requireds_0" "(reverse$1" -"(let-values(((ht_136)(requireds->phase-ht requireds_0)))" +"(let-values(((ht_135)(requireds->phase-ht requireds_0)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_136)))" -"((letrec-values(((for-loop_261)" -"(lambda(fold-var_255 i_162)" +"(let-values()(check-in-hash ht_135)))" +"((letrec-values(((for-loop_259)" +"(lambda(fold-var_255 i_161)" "(begin" " 'for-loop" -"(if i_162" -"(let-values(((phase_118 ids_29)" -"(hash-iterate-key+value ht_136 i_162)))" +"(if i_161" +"(let-values(((phase_120 ids_29)" +"(hash-iterate-key+value ht_135 i_161)))" "(let-values(((fold-var_203)" "(let-values(((fold-var_256) fold-var_255))" "(let-values(((fold-var_257)" "(let-values()" "(cons" "(let-values()" -"(cons phase_118 ids_29))" +"(cons phase_120 ids_29))" " fold-var_256))))" "(values fold-var_257)))))" "(if(not #f)" -"(for-loop_261" +"(for-loop_259" " fold-var_203" -"(hash-iterate-next ht_136 i_162))" +"(hash-iterate-next ht_135 i_161))" " fold-var_203)))" " fold-var_255)))))" -" for-loop_261)" +" for-loop_259)" " null" -"(hash-iterate-first ht_136)))))" +"(hash-iterate-first ht_135)))))" " #f)))))))))))))" "(define-values" "(requireds->phase-ht)" @@ -42660,25 +42713,25 @@ static const char *startup_source = "(let-values(((lst_295) requireds_1))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_295)))" -"((letrec-values(((for-loop_138)" -"(lambda(ht_137 lst_296)" +"((letrec-values(((for-loop_136)" +"(lambda(ht_136 lst_296)" "(begin" " 'for-loop" "(if(pair? lst_296)" -"(let-values(((r_43)(unsafe-car lst_296))((rest_170)(unsafe-cdr lst_296)))" -"(let-values(((ht_138)" -"(let-values(((ht_139) ht_137))" -"(let-values(((ht_140)" +"(let-values(((r_43)(unsafe-car lst_296))((rest_169)(unsafe-cdr lst_296)))" +"(let-values(((ht_137)" +"(let-values(((ht_138) ht_136))" +"(let-values(((ht_139)" "(let-values()" "(hash-update" -" ht_139" +" ht_138" "(required-phase r_43)" "(lambda(l_71)(cons(required-id r_43) l_71))" " null))))" -"(values ht_140)))))" -"(if(not #f)(for-loop_138 ht_138 rest_170) ht_138)))" -" ht_137)))))" -" for-loop_138)" +"(values ht_139)))))" +"(if(not #f)(for-loop_136 ht_137 rest_169) ht_137)))" +" ht_136)))))" +" for-loop_136)" "(hasheqv)" " lst_295))))))" "(define-values" @@ -42690,9 +42743,9 @@ static const char *startup_source = "(let-values()" "(let-values((()" "(begin" -"(if(let-values(((or-part_290)(1/module-path? mod-path_9)))" -"(if or-part_290" -" or-part_290" +"(if(let-values(((or-part_291)(1/module-path? mod-path_9)))" +"(if or-part_291" +" or-part_291" "(if(syntax?$1 mod-path_9)(1/module-path?(syntax->datum$1 mod-path_9)) #f)))" "(void)" "(let-values()" @@ -42705,15 +42758,15 @@ static const char *startup_source = " \" (module-path? (syntax->datum stx)))))\")" " mod-path_9)))" "(values))))" -"(let-values(((ctx_63)" +"(let-values(((ctx_61)" "(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_61)))" "(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_61)" " #t)))" "(let-values(((m_19)(namespace->module ns_76 mod-name_18)))" "(begin" @@ -42721,18 +42774,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_141)(module-provides m_19)))" +"(let-values(((ht_140)(module-provides m_19)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_141)))" -"((letrec-values(((for-loop_262)" -"(lambda(fold-var_258 i_163)" +"(let-values()(check-in-hash ht_140)))" +"((letrec-values(((for-loop_260)" +"(lambda(fold-var_258 i_162)" "(begin" " 'for-loop" -"(if i_163" -"(let-values(((phase_119 syms_21)" -"(hash-iterate-key+value ht_141 i_163)))" +"(if i_162" +"(let-values(((phase_121 syms_21)" +"(hash-iterate-key+value ht_140 i_162)))" "(let-values(((fold-var_259)" "(let-values(((fold-var_260) fold-var_258))" "(let-values(((fold-var_261)" @@ -42740,9 +42793,9 @@ static const char *startup_source = "(cons" "(let-values()" "(cons" -" phase_119" +" phase_121" "(reverse$1" -"(let-values(((ht_142)" +"(let-values(((ht_141)" " syms_21))" "(begin" "(if(variable-reference-from-unsafe?" @@ -42750,16 +42803,16 @@ static const char *startup_source = "(void)" "(let-values()" "(check-in-hash-keys" -" ht_142)))" -"((letrec-values(((for-loop_263)" +" ht_141)))" +"((letrec-values(((for-loop_261)" "(lambda(fold-var_262" " i_12)" "(begin" " 'for-loop" "(if i_12" -"(let-values(((sym_74)" +"(let-values(((sym_75)" "(hash-iterate-key" -" ht_142" +" ht_141" " i_12)))" "(let-values(((fold-var_263)" "(let-values(((fold-var_264)" @@ -42768,32 +42821,32 @@ static const char *startup_source = "(let-values()" "(cons" "(let-values()" -" sym_74)" +" sym_75)" " fold-var_264))))" "(values" " fold-var_265)))))" "(if(not" " #f)" -"(for-loop_263" +"(for-loop_261" " fold-var_263" "(hash-iterate-next" -" ht_142" +" ht_141" " i_12))" " fold-var_263)))" " fold-var_262)))))" -" for-loop_263)" +" for-loop_261)" " null" "(hash-iterate-first" -" ht_142)))))))" +" ht_141)))))))" " fold-var_260))))" "(values fold-var_261)))))" "(if(not #f)" -"(for-loop_262 fold-var_259(hash-iterate-next ht_141 i_163))" +"(for-loop_260 fold-var_259(hash-iterate-next ht_140 i_162))" " fold-var_259)))" " fold-var_258)))))" -" for-loop_262)" +" for-loop_260)" " null" -"(hash-iterate-first ht_141))))))))))))))))" +"(hash-iterate-first ht_140))))))))))))))))" "(define-values" "(1/syntax-local-submodules)" "(lambda()" @@ -42801,22 +42854,22 @@ static const char *startup_source = " 'syntax-local-submodules" "(let-values()" "(let-values()" -"(let-values(((ctx_64)" +"(let-values(((ctx_62)" "(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_62)))" "(reverse$1" -"(let-values(((ht_143) submods_3))" +"(let-values(((ht_142) submods_3))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_143)))" -"((letrec-values(((for-loop_264)" -"(lambda(fold-var_266 i_164)" +"(let-values()(check-in-hash ht_142)))" +"((letrec-values(((for-loop_262)" +"(lambda(fold-var_266 i_163)" "(begin" " 'for-loop" -"(if i_164" -"(let-values(((name_62 kind_8)(hash-iterate-key+value ht_143 i_164)))" +"(if i_163" +"(let-values(((name_62 kind_8)(hash-iterate-key+value ht_142 i_163)))" "(let-values(((fold-var_267)" "(let-values(((fold-var_268) fold-var_266))" "(if(eq? kind_8 'module)" @@ -42829,51 +42882,51 @@ static const char *startup_source = "(values fold-var_270)))" " fold-var_268))))" "(if(not #f)" -"(for-loop_264 fold-var_267(hash-iterate-next ht_143 i_164))" +"(for-loop_262 fold-var_267(hash-iterate-next ht_142 i_163))" " fold-var_267)))" " fold-var_266)))))" -" for-loop_264)" +" for-loop_262)" " null" -"(hash-iterate-first ht_143))))))))))))" +"(hash-iterate-first ht_142))))))))))))" "(define-values" "(1/syntax-local-get-shadower)" "(let-values(((syntax-local-get-shadower53_0)" -"(lambda(id52_1 only-generated?51_0)" +"(lambda(id52_0 only-generated?51_0)" "(begin" " 'syntax-local-get-shadower53" -"(let-values(((id_86) id52_1))" +"(let-values(((id_85) id52_0))" "(let-values()" "(let-values()" "(let-values()" "(let-values()" "(let-values((()" "(begin" -"(if(identifier? id_86)" +"(if(identifier? id_85)" "(void)" "(let-values()" "(raise-argument-error" " 'syntax-local-get-shadower" " \"identifier?\"" -" id_86)))" +" id_85)))" "(values))))" -"(let-values(((ctx_65)" +"(let-values(((ctx_63)" "(let-values(((who147_0) 'syntax-local-get-shadower))" "(get-current-expand-context16.1 #f who147_0))))" -"(let-values(((new-id_0)(add-scopes id_86(expand-context-scopes ctx_65))))" -"(if(syntax-clean? id_86) new-id_0(syntax-taint$1 new-id_0))))))))))))))" +"(let-values(((new-id_0)(add-scopes id_85(expand-context-scopes ctx_63))))" +"(if(syntax-clean? id_85) new-id_0(syntax-taint$1 new-id_0))))))))))))))" "(case-lambda" -"((id_87)(begin 'syntax-local-get-shadower(syntax-local-get-shadower53_0 id_87 #f)))" -"((id_88 only-generated?51_1)(syntax-local-get-shadower53_0 id_88 only-generated?51_1)))))" +"((id_86)(begin 'syntax-local-get-shadower(syntax-local-get-shadower53_0 id_86 #f)))" +"((id_87 only-generated?51_1)(syntax-local-get-shadower53_0 id_87 only-generated?51_1)))))" "(define-values" "(syntax-source-accessor)" "(lambda(who_0 srcloc-accessor_0)" "(begin" -"(lambda(s_189)" +"(lambda(s_190)" "(let-values((()" "(begin" -" (if (syntax?$1 s_189) (void) (let-values () (raise-argument-error who_0 \"syntax?\" s_189)))" +" (if (syntax?$1 s_190) (void) (let-values () (raise-argument-error who_0 \"syntax?\" s_190)))" "(values))))" -"(let-values(((srcloc_8)(syntax-srcloc s_189)))(if srcloc_8(srcloc-accessor_0 srcloc_8) #f)))))))" +"(let-values(((srcloc_8)(syntax-srcloc s_190)))(if srcloc_8(srcloc-accessor_0 srcloc_8) #f)))))))" "(define-values(1/syntax-source)(syntax-source-accessor 'syntax-source srcloc-source))" "(define-values(1/syntax-line)(syntax-source-accessor 'syntax-line srcloc-line))" "(define-values(1/syntax-column)(syntax-source-accessor 'syntax-column srcloc-column))" @@ -42889,8 +42942,8 @@ static const char *startup_source = "(srcloc-vector?)" "(lambda(v_73)" "(begin" -"(if(let-values(((or-part_291)(not(vector-ref v_73 1))))" -"(if or-part_291 or-part_291(exact-positive-integer?(vector-ref v_73 1))))" +"(if(let-values(((or-part_292)(not(vector-ref v_73 1))))" +"(if or-part_292 or-part_292(exact-positive-integer?(vector-ref v_73 1))))" "(if(let-values(((or-part_27)(not(vector-ref v_73 2))))" "(if or-part_27 or-part_27(exact-nonnegative-integer?(vector-ref v_73 2))))" "(if(let-values(((or-part_10)(not(vector-ref v_73 3))))" @@ -42955,14 +43008,14 @@ static const char *startup_source = "(syntax-e$1 s_0)))))))" "(define-values" "(1/syntax->datum)" -"(lambda(s_189)" +"(lambda(s_190)" "(begin" " 'syntax->datum" "(let-values()" "(let-values()" "(begin" -" (if (syntax?$1 s_189) (void) (let-values () (raise-argument-error 'syntax->datum \"syntax?\" s_189)))" -"(syntax->datum$1 s_189)))))))" +" (if (syntax?$1 s_190) (void) (let-values () (raise-argument-error 'syntax->datum \"syntax?\" s_190)))" +"(syntax->datum$1 s_190)))))))" "(define-values(maybe-syntax->datum)(lambda(s_73)(begin(if(syntax?$1 s_73)(syntax->datum$1 s_73) s_73))))" "(define-values" "(1/datum->syntax)" @@ -42971,7 +43024,7 @@ static const char *startup_source = "(begin" " 'datum->syntax6" "(let-values(((stx-c_4) stx-c4_1))" -"(let-values(((s_439) s5_2))" +"(let-values(((s_438) s5_2))" "(let-values(((stx-l_2) stx-l1_0))" "(let-values(((stx-p_1) stx-p2_0))" "(let-values()" @@ -42983,9 +43036,9 @@ static const char *startup_source = "(if or-part_6 or-part_6(syntax?$1 stx-c_4)))" "(void)" " (let-values () (raise-argument-error 'datum->syntax \"(or #f syntax?)\" stx-c_4)))" -"(if(let-values(((or-part_292)(not stx-l_2)))" -"(if or-part_292" -" or-part_292" +"(if(let-values(((or-part_293)(not stx-l_2)))" +"(if or-part_293" +" or-part_293" "(let-values(((or-part_28)(syntax?$1 stx-l_2)))" "(if or-part_28 or-part_28(encoded-srcloc? stx-l_2)))))" "(void)" @@ -43005,36 +43058,36 @@ static const char *startup_source = " \" (or/c exact-positive-integer? #f)\\n\"" " \" (or/c exact-nonnegative-integer? #f)))\")" " stx-l_2)))" -"(if(let-values(((or-part_293)(not stx-p_1)))" -"(if or-part_293 or-part_293(syntax?$1 stx-p_1)))" +"(if(let-values(((or-part_294)(not stx-p_1)))" +"(if or-part_294 or-part_294(syntax?$1 stx-p_1)))" "(void)" " (let-values () (raise-argument-error 'datum->syntax \"(or #f syntax?)\" stx-p_1)))" -"(datum->syntax$1 stx-c_4 s_439(to-srcloc-stx stx-l_2) stx-p_1))))))))))))))" +"(datum->syntax$1 stx-c_4 s_438(to-srcloc-stx stx-l_2) stx-p_1))))))))))))))" "(case-lambda" "((stx-c_5 s_77)(begin 'datum->syntax(datum->syntax6_1 stx-c_5 s_77 #f #f #f)))" "((stx-c_6 s_4 stx-l_3 stx-p_2 ignored3_1)(datum->syntax6_1 stx-c_6 s_4 stx-l_3 stx-p_2 ignored3_1))" -"((stx-c_7 s_440 stx-l_4 stx-p2_1)(datum->syntax6_1 stx-c_7 s_440 stx-l_4 stx-p2_1 #f))" -"((stx-c_8 s_181 stx-l1_1)(datum->syntax6_1 stx-c_8 s_181 stx-l1_1 #f #f)))))" +"((stx-c_7 s_439 stx-l_4 stx-p2_1)(datum->syntax6_1 stx-c_7 s_439 stx-l_4 stx-p2_1 #f))" +"((stx-c_8 s_182 stx-l1_1)(datum->syntax6_1 stx-c_8 s_182 stx-l1_1 #f #f)))))" "(define-values" "(1/syntax->list)" -"(lambda(s_441)" +"(lambda(s_440)" "(begin" " 'syntax->list" "(let-values()" "(let-values()" "(begin" -" (if (syntax?$1 s_441) (void) (let-values () (raise-argument-error 'syntax->list \"syntax?\" s_441)))" -"(syntax->list$1 s_441)))))))" +" (if (syntax?$1 s_440) (void) (let-values () (raise-argument-error 'syntax->list \"syntax?\" s_440)))" +"(syntax->list$1 s_440)))))))" "(define-values" "(1/syntax-original?)" -"(lambda(s_167)" +"(lambda(s_168)" "(begin" " 'syntax-original?" "(let-values()" "(let-values()" "(begin" -" (if (syntax?$1 s_167) (void) (let-values () (raise-argument-error 'syntax-original? \"syntax?\" s_167)))" -"(if(syntax-property$1 s_167 original-property-sym)(not(syntax-any-macro-scopes? s_167)) #f)))))))" +" (if (syntax?$1 s_168) (void) (let-values () (raise-argument-error 'syntax-original? \"syntax?\" s_168)))" +"(if(syntax-property$1 s_168 original-property-sym)(not(syntax-any-macro-scopes? s_168)) #f)))))))" "(define-values" "(1/bound-identifier=?)" "(let-values(((bound-identifier=?11_0)" @@ -43043,7 +43096,7 @@ static const char *startup_source = " 'bound-identifier=?11" "(let-values(((a_54) a9_0))" "(let-values(((b_65) b10_0))" -"(let-values(((phase_120)" +"(let-values(((phase_122)" "(if(eq? phase8_0 unsafe-undefined)(1/syntax-local-phase-level) phase8_0)))" "(let-values()" "(let-values()" @@ -43055,10 +43108,10 @@ static const char *startup_source = "(if(identifier? b_65)" "(void)" " (let-values () (raise-argument-error 'bound-identifier=? \"identifier?\" b_65)))" -"(if(phase? phase_120)" +"(if(phase? phase_122)" "(void)" -"(let-values()(raise-argument-error 'bound-identifier=? phase?-string phase_120)))" -"(bound-identifier=?$1 a_54 b_65 phase_120))))))))))))" +"(let-values()(raise-argument-error 'bound-identifier=? phase?-string phase_122)))" +"(bound-identifier=?$1 a_54 b_65 phase_122))))))))))))" "(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)))))" @@ -43113,8 +43166,8 @@ static const char *startup_source = "(void)" " (let-values () (raise-argument-error 'free-transformer-identifier=? \"identifier?\" b_89)))" "(values))))" -"(let-values(((phase_121)(add1(1/syntax-local-phase-level))))" -"(free-identifier=?$1 a_61 b_89 phase_121 phase_121)))))))))" +"(let-values(((phase_123)(add1(1/syntax-local-phase-level))))" +"(free-identifier=?$1 a_61 b_89 phase_123 phase_123)))))))))" "(define-values" "(1/free-template-identifier=?)" "(lambda(a_62 b_90)" @@ -43134,8 +43187,8 @@ static const char *startup_source = "(void)" " (let-values () (raise-argument-error 'free-template-identifier=? \"identifier?\" b_90)))" "(values))))" -"(let-values(((phase_122)(sub1(1/syntax-local-phase-level))))" -"(free-identifier=?$1 a_62 b_90 phase_122 phase_122)))))))))" +"(let-values(((phase_124)(sub1(1/syntax-local-phase-level))))" +"(free-identifier=?$1 a_62 b_90 phase_124 phase_124)))))))))" "(define-values" "(1/free-label-identifier=?)" "(lambda(a_63 b_91)" @@ -43157,58 +43210,58 @@ static const char *startup_source = "(lambda(id21_0 phase19_0 top-level-symbol?20_0)" "(begin" " 'identifier-binding22" -"(let-values(((id_89) id21_0))" -"(let-values(((phase_123)" +"(let-values(((id_88) id21_0))" +"(let-values(((phase_125)" "(if(eq? phase19_0 unsafe-undefined)(1/syntax-local-phase-level) phase19_0)))" "(let-values(((top-level-symbol?_1) top-level-symbol?20_0))" "(let-values()" "(let-values()" "(let-values()" "(begin" -"(if(identifier? id_89)" +"(if(identifier? id_88)" "(void)" -" (let-values () (raise-argument-error 'identifier-binding \"identifier?\" id_89)))" -"(if(phase? phase_123)" +" (let-values () (raise-argument-error 'identifier-binding \"identifier?\" id_88)))" +"(if(phase? phase_125)" "(void)" -"(let-values()(raise-argument-error 'identifier-binding phase?-string phase_123)))" -"(identifier-binding$1 id_89 phase_123 top-level-symbol?_1))))))))))))" +"(let-values()(raise-argument-error 'identifier-binding phase?-string phase_125)))" +"(identifier-binding$1 id_88 phase_125 top-level-symbol?_1))))))))))))" "(case-lambda" -"((id_90)(begin 'identifier-binding(identifier-binding22_0 id_90 unsafe-undefined #f)))" -"((id_15 phase_83 top-level-symbol?20_1)(identifier-binding22_0 id_15 phase_83 top-level-symbol?20_1))" -"((id_91 phase19_1)(identifier-binding22_0 id_91 phase19_1 #f)))))" +"((id_89)(begin 'identifier-binding(identifier-binding22_0 id_89 unsafe-undefined #f)))" +"((id_15 phase_85 top-level-symbol?20_1)(identifier-binding22_0 id_15 phase_85 top-level-symbol?20_1))" +"((id_90 phase19_1)(identifier-binding22_0 id_90 phase19_1 #f)))))" "(define-values" "(1/identifier-transformer-binding)" "(let-values(((identifier-transformer-binding26_0)" "(lambda(id25_3 phase24_1)" "(begin" " 'identifier-transformer-binding26" -"(let-values(((id_92) id25_3))" -"(let-values(((phase_124)" +"(let-values(((id_91) id25_3))" +"(let-values(((phase_126)" "(if(eq? phase24_1 unsafe-undefined)(1/syntax-local-phase-level) phase24_1)))" "(let-values()" "(let-values()" "(let-values()" "(begin" -"(if(identifier? id_92)" +"(if(identifier? id_91)" "(void)" "(let-values()" -" (raise-argument-error 'identifier-transformer-binding \"identifier?\" id_92)))" -"(identifier-binding$1 id_92(if phase_124(add1 phase_124) #f))))))))))))" +" (raise-argument-error 'identifier-transformer-binding \"identifier?\" id_91)))" +"(identifier-binding$1 id_91(if phase_126(add1 phase_126) #f))))))))))))" "(case-lambda" -"((id_93)(begin 'identifier-transformer-binding(identifier-transformer-binding26_0 id_93 unsafe-undefined)))" +"((id_92)(begin 'identifier-transformer-binding(identifier-transformer-binding26_0 id_92 unsafe-undefined)))" "((id_58 phase24_2)(identifier-transformer-binding26_0 id_58 phase24_2)))))" "(define-values" "(1/identifier-template-binding)" -"(lambda(id_94)" +"(lambda(id_93)" "(begin" " 'identifier-template-binding" "(let-values()" "(let-values()" "(begin" -"(if(identifier? id_94)" +"(if(identifier? id_93)" "(void)" -" (let-values () (raise-argument-error 'identifier-template-binding \"identifier?\" id_94)))" -"(identifier-binding$1 id_94(sub1(1/syntax-local-phase-level)))))))))" +" (let-values () (raise-argument-error 'identifier-template-binding \"identifier?\" id_93)))" +"(identifier-binding$1 id_93(sub1(1/syntax-local-phase-level)))))))))" "(define-values" "(1/identifier-label-binding)" "(lambda(id_78)" @@ -43227,40 +43280,40 @@ static const char *startup_source = "(lambda(id29_1 phase28_2)" "(begin" " 'identifier-binding-symbol30" -"(let-values(((id_95) id29_1))" -"(let-values(((phase_70)" +"(let-values(((id_94) id29_1))" +"(let-values(((phase_72)" "(if(eq? phase28_2 unsafe-undefined)(1/syntax-local-phase-level) phase28_2)))" "(let-values()" "(let-values()" "(let-values()" "(begin" -"(if(identifier? id_95)" +"(if(identifier? id_94)" "(void)" -" (let-values () (raise-argument-error 'identifier-binding-symbol \"identifier?\" id_95)))" -"(if(phase? phase_70)" +" (let-values () (raise-argument-error 'identifier-binding-symbol \"identifier?\" id_94)))" +"(if(phase? phase_72)" "(void)" "(let-values()" -"(raise-argument-error 'identifier-binding-symbol phase?-string phase_70)))" -"(identifier-binding-symbol$1 id_95 phase_70)))))))))))" +"(raise-argument-error 'identifier-binding-symbol phase?-string phase_72)))" +"(identifier-binding-symbol$1 id_94 phase_72)))))))))))" "(case-lambda" -"((id_96)(begin 'identifier-binding-symbol(identifier-binding-symbol30_0 id_96 unsafe-undefined)))" -"((id_97 phase28_3)(identifier-binding-symbol30_0 id_97 phase28_3)))))" +"((id_95)(begin 'identifier-binding-symbol(identifier-binding-symbol30_0 id_95 unsafe-undefined)))" +"((id_96 phase28_3)(identifier-binding-symbol30_0 id_96 phase28_3)))))" "(define-values" "(1/identifier-prune-lexical-context)" "(let-values(((identifier-prune-lexical-context34_0)" "(lambda(id33_1 syms32_1)" "(begin" " 'identifier-prune-lexical-context34" -"(let-values(((id_98) id33_1))" +"(let-values(((id_97) id33_1))" "(let-values(((syms_22) syms32_1))" "(let-values()" "(let-values()" "(let-values()" "(begin" -"(if(identifier? id_98)" +"(if(identifier? id_97)" "(void)" "(let-values()" -" (raise-argument-error 'identifier-prune-lexical-context \"identifier?\" id_98)))" +" (raise-argument-error 'identifier-prune-lexical-context \"identifier?\" id_97)))" "(if(if(list? syms_22)(andmap2 symbol? syms_22) #f)" "(void)" "(let-values()" @@ -43268,10 +43321,10 @@ static const char *startup_source = " 'identifier-prune-lexical-context" " \"(listof symbol?)\"" " syms_22)))" -" id_98))))))))))" +" id_97))))))))))" "(case-lambda" "((id_61)(begin 'identifier-prune-lexical-context(identifier-prune-lexical-context34_0 id_61 null)))" -"((id_99 syms32_2)(identifier-prune-lexical-context34_0 id_99 syms32_2)))))" +"((id_98 syms32_2)(identifier-prune-lexical-context34_0 id_98 syms32_2)))))" "(define-values" "(1/syntax-debug-info)" "(let-values(((syntax-debug-info39_0)" @@ -43279,7 +43332,7 @@ static const char *startup_source = "(begin" " 'syntax-debug-info39" "(let-values(((s_412) s38_1))" -"(let-values(((phase_75)" +"(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()" @@ -43289,32 +43342,32 @@ 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_75)" +"(if(phase? phase_77)" "(void)" -"(let-values()(raise-argument-error 'syntax-debug-info phase?-string phase_75)))" -"(syntax-debug-info$1 s_412 phase_75 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_125 all-bindings?37_1)(syntax-debug-info39_0 s_442 phase_125 all-bindings?37_1))" +"((s_441 phase_127 all-bindings?37_1)(syntax-debug-info39_0 s_441 phase_127 all-bindings?37_1))" "((s_29 phase36_1)(syntax-debug-info39_0 s_29 phase36_1 #f)))))" "(define-values" "(1/syntax-shift-phase-level)" -"(lambda(s_443 phase_126)" +"(lambda(s_442 phase_128)" "(begin" " 'syntax-shift-phase-level" "(let-values()" "(let-values()" "(begin" -"(if(syntax?$1 s_443)" +"(if(syntax?$1 s_442)" "(void)" -" (let-values () (raise-argument-error 'syntax-shift-phase-level \"syntax?\" s_443)))" -"(if(phase? phase_126)" +" (let-values () (raise-argument-error 'syntax-shift-phase-level \"syntax?\" s_442)))" +"(if(phase? phase_128)" "(void)" -"(let-values()(raise-argument-error 'syntax-shift-phase-level phase?-string phase_126)))" -"(syntax-shift-phase-level$1 s_443 phase_126)))))))" +"(let-values()(raise-argument-error 'syntax-shift-phase-level phase?-string phase_128)))" +"(syntax-shift-phase-level$1 s_442 phase_128)))))))" "(define-values" "(1/syntax-track-origin)" -"(lambda(new-stx_8 old-stx_4 id_100)" +"(lambda(new-stx_8 old-stx_4 id_99)" "(begin" " 'syntax-track-origin" "(let-values()" @@ -43333,22 +43386,22 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(if(identifier? id_100)" +"(if(identifier? id_99)" "(void)" -" (let-values () (raise-argument-error 'syntax-track-origin \"identifier?\" id_100)))" +" (let-values () (raise-argument-error 'syntax-track-origin \"identifier?\" id_99)))" "(values))))" -"(let-values(((s_444)(syntax-track-origin$1 new-stx_8 old-stx_4 id_100)))" -"(let-values(((ctx_66)" -"(let-values(((temp60_4) #t))(get-current-expand-context16.1 temp60_4 'unexpected))))" +"(let-values(((s_443)(syntax-track-origin$1 new-stx_8 old-stx_4 id_99)))" +"(let-values(((ctx_64)" +"(let-values(((temp60_3) #t))(get-current-expand-context16.1 temp60_3 'unexpected))))" "(begin" -"(if ctx_66" +"(if ctx_64" "(let-values()" -"(let-values(((obs_44)(expand-context-observer ctx_66)))" +"(let-values(((obs_44)(expand-context-observer ctx_64)))" "(if obs_44" -"(let-values()(let-values()(call-expand-observe obs_44 'track-origin new-stx_8 s_444)))" +"(let-values()(let-values()(call-expand-observe obs_44 'track-origin new-stx_8 s_443)))" "(void))))" "(void))" -" s_444)))))))))))" +" s_443)))))))))))" "(define-values" "(1/namespace-attach-module)" "(let-values(((namespace-attach-module4_0)" @@ -43362,14 +43415,14 @@ static const char *startup_source = "(1/current-namespace)" " dest-namespace1_0)))" "(let-values()" -"(let-values(((temp20_1) 'namespace-attach-module)" +"(let-values(((temp20_2) 'namespace-attach-module)" "((src-namespace21_0) src-namespace_0)" "((mod-path22_0) mod-path_10)" "((dest-namespace23_0) dest-namespace_0)" "((temp24_5) #t))" "(do-attach-module17.1" " temp24_5" -" temp20_1" +" temp20_2" " src-namespace21_0" " mod-path22_0" " dest-namespace23_0))))))))))" @@ -43443,17 +43496,17 @@ static const char *startup_source = "(void)" " (let-values () (raise-argument-error who_22 \"namespace?\" dest-namespace_2)))" "(values))))" -"(let-values(((phase_127)(namespace-phase src-namespace_6)))" +"(let-values(((phase_129)(namespace-phase src-namespace_6)))" "(let-values((()" "(begin" -"(if(eqv? phase_127(namespace-phase dest-namespace_2))" +"(if(eqv? phase_129(namespace-phase dest-namespace_2))" "(void)" "(let-values()" "(raise-arguments-error" " who_22" " \"source and destination namespace phases do not match\"" " \"source phase\"" -" phase_127" +" phase_129" " \"destination phase\"" "(namespace-phase dest-namespace_2))))" "(values))))" @@ -43463,7 +43516,7 @@ static const char *startup_source = "(begin" "((letrec-values(((loop_99)" "(lambda(mpi_46" -" phase_128" +" phase_130" " attach-instances?_1" " attach-phase_0)" "(begin" @@ -43482,7 +43535,7 @@ static const char *startup_source = " mpi_46)))))" "(let-values(((attach-this-instance?_0)" "(if attach-instances?_1" -"(eqv? phase_128 attach-phase_0)" +"(eqv? phase_130 attach-phase_0)" " #f)))" "(let-values(((m-ns_12)" "(hash-ref" @@ -43490,7 +43543,7 @@ static const char *startup_source = " todo_0" " mod-name_19" " '#hasheqv())" -" phase_128" +" phase_130" " missing_0)))" "(if(let-values(((or-part_163)" "(eq? missing_0 m-ns_12)))" @@ -43516,9 +43569,9 @@ static const char *startup_source = "(if(if(module-cross-phase-persistent?" " m_20)" "(if(not" -"(label-phase? phase_128))" +"(label-phase? phase_130))" "(not" -"(zero-phase? phase_128))" +"(zero-phase? phase_130))" " #f)" " #f)" "(let-values()" @@ -43550,10 +43603,10 @@ static const char *startup_source = "(values))))" "(let-values(((m-ns_13" " already?_0)" -"(if(let-values(((or-part_294)" +"(if(let-values(((or-part_295)" " attach-this-instance?_0))" -"(if or-part_294" -" or-part_294" +"(if or-part_295" +" or-part_295" "(module-cross-phase-persistent?" " m_20)))" "(let-values()" @@ -43563,7 +43616,7 @@ static const char *startup_source = "((mod-name31_0)" " mod-name_19)" "((phase32_1)" -" phase_128))" +" phase_130))" "(namespace->module-namespace82.1" " #f" " #f" @@ -43589,7 +43642,7 @@ static const char *startup_source = "((mod-name34_0)" " mod-name_19)" "((phase35_1)" -" phase_128))" +" phase_130))" "(namespace->module-namespace82.1" " #f" " #f" @@ -43625,14 +43678,14 @@ static const char *startup_source = "(let-values()" "(begin" "(if(if(label-phase?" -" phase_128)" +" phase_130)" "(not" "(let-values(((src-namespace36_0)" " src-namespace_6)" "((mod-name37_0)" " mod-name_19)" "((phase38_0)" -" phase_128))" +" phase_130))" "(namespace->module-namespace82.1" " #f" " #f" @@ -43656,7 +43709,7 @@ static const char *startup_source = "((mpi40_0)" " mpi_46)" "((phase41_1)" -" phase_128))" +" phase_130))" "(namespace-module-instantiate!96.1" " #t" " unsafe-undefined" @@ -43675,10 +43728,10 @@ static const char *startup_source = "(hash-update!" " todo_0" " mod-name_19" -"(lambda(ht_144)" +"(lambda(ht_143)" "(hash-set" -" ht_144" -" phase_128" +" ht_143" +" phase_130" " m-ns_13))" " '#hasheqv())" "(if already?_0" @@ -43695,7 +43748,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_297)))" -"((letrec-values(((for-loop_265)" +"((letrec-values(((for-loop_263)" "(lambda(lst_298)" "(begin" " 'for-loop" @@ -43704,7 +43757,7 @@ static const char *startup_source = "(let-values(((phase+reqs_1)" "(unsafe-car" " lst_298))" -"((rest_171)" +"((rest_170)" "(unsafe-cdr" " lst_298)))" "(let-values((()" @@ -43727,7 +43780,7 @@ static const char *startup_source = "(let-values(((req_5)" "(unsafe-car" " lst_175))" -"((rest_172)" +"((rest_171)" "(unsafe-cdr" " lst_175)))" "(let-values((()" @@ -43743,7 +43796,7 @@ static const char *startup_source = " m_20)" " mpi_46)" "(phase+" -" phase_128" +" phase_130" "(car" " phase+reqs_1))" " attach-instances?_1" @@ -43753,18 +43806,18 @@ static const char *startup_source = "(if(not" " #f)" "(for-loop_99" -" rest_172)" +" rest_171)" "(values))))" "(values))))))" " for-loop_99)" " lst_222)))))" "(if(not" " #f)" -"(for-loop_265" -" rest_171)" +"(for-loop_263" +" rest_170)" "(values))))" "(values))))))" -" for-loop_265)" +" for-loop_263)" " lst_297)))" "(void)" "(let-values(((lst_273)" @@ -43786,7 +43839,7 @@ static const char *startup_source = "(let-values(((submod-name_0)" "(unsafe-car" " lst_161))" -"((rest_94)" +"((rest_93)" "(unsafe-cdr" " lst_161)))" "(let-values((()" @@ -43810,7 +43863,7 @@ static const char *startup_source = "(if(not" " #f)" "(for-loop_100" -" rest_94)" +" rest_93)" "(values))))" "(values))))))" " for-loop_100)" @@ -43835,28 +43888,28 @@ static const char *startup_source = "(resolved-module-path->module-path mod-path_16)" " mod-path_16)" " #f)" -" phase_127" +" phase_129" " attach-instances?_0" -" phase_127)" +" phase_129)" "(values))))" "(let-values((()" "(begin" -"(let-values(((ht_145) todo_0))" +"(let-values(((ht_144) todo_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_145)))" -"((letrec-values(((for-loop_266)" -"(lambda(i_165)" +"(let-values()(check-in-hash ht_144)))" +"((letrec-values(((for-loop_264)" +"(lambda(i_164)" "(begin" " 'for-loop" -"(if i_165" +"(if i_164" "(let-values(((mod-name_20 phases_0)" "(hash-iterate-key+value" -" ht_145" -" i_165)))" +" ht_144" +" i_164)))" "(let-values((()" -"(let-values(((ht_146)" +"(let-values(((ht_145)" " phases_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -43864,16 +43917,16 @@ static const char *startup_source = "(void)" "(let-values()" "(check-in-hash" -" ht_146)))" -"((letrec-values(((for-loop_251)" +" ht_145)))" +"((letrec-values(((for-loop_250)" "(lambda(i_46)" "(begin" " 'for-loop" "(if i_46" -"(let-values(((phase_129" +"(let-values(((phase_131" " m-ns_15)" "(hash-iterate-key+value" -" ht_146" +" ht_145" " i_46)))" "(let-values((()" "(let-values()" @@ -43915,14 +43968,14 @@ static const char *startup_source = "(namespace-record-module-instance-attached!" " src-namespace_6" " mod-name_20" -" phase_129)" +" phase_131)" "(let-values(((or-part_25)" "(let-values(((dest-namespace45_0)" " dest-namespace_2)" "((mod-name46_0)" " mod-name_20)" "((phase47_2)" -" phase_129))" +" phase_131))" "(namespace->module-namespace82.1" " #f" " #f" @@ -43935,7 +43988,7 @@ static const char *startup_source = "(namespace-install-module-namespace!" " dest-namespace_2" " mod-name_20" -" phase_129" +" phase_131" " m_21" " m-ns_15)))))" "(void)))))" @@ -43943,22 +43996,22 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_251" +"(for-loop_250" "(hash-iterate-next" -" ht_146" +" ht_145" " i_46))" "(values))))" "(values))))))" -" for-loop_251)" +" for-loop_250)" "(hash-iterate-first" -" ht_146))))))" +" ht_145))))))" "(if(not #f)" -"(for-loop_266" -"(hash-iterate-next ht_145 i_165))" +"(for-loop_264" +"(hash-iterate-next ht_144 i_164))" "(values))))" "(values))))))" -" for-loop_266)" -"(hash-iterate-first ht_145))))" +" for-loop_264)" +"(hash-iterate-first ht_144))))" "(values))))" "(let-values()" "(let-values(((mnr_0)(1/current-module-name-resolver)))" @@ -43970,18 +44023,18 @@ static const char *startup_source = " dest-namespace_2)" "(let-values()" "(begin" -"(let-values(((ht_147) todo_0))" +"(let-values(((ht_146) todo_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash-keys ht_147)))" -"((letrec-values(((for-loop_267)" +"(let-values()(check-in-hash-keys ht_146)))" +"((letrec-values(((for-loop_265)" "(lambda(i_21)" "(begin" " 'for-loop" "(if i_21" "(let-values(((mod-name_21)" -"(hash-iterate-key ht_147 i_21)))" +"(hash-iterate-key ht_146 i_21)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -43994,12 +44047,12 @@ static const char *startup_source = "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_267" -"(hash-iterate-next ht_147 i_21))" +"(for-loop_265" +"(hash-iterate-next ht_146 i_21))" "(values))))" "(values))))))" -" for-loop_267)" -"(hash-iterate-first ht_147))))" +" for-loop_265)" +"(hash-iterate-first ht_146))))" "(void))))))))))))))))))))))))" "(define-values" "(1/make-empty-namespace)" @@ -44007,8 +44060,8 @@ static const char *startup_source = "(begin" " 'make-empty-namespace" "(let-values(((current-ns_0)(1/current-namespace)))" -"(let-values(((phase_42)(namespace-phase current-ns_0)))" -"(let-values(((ns_59)(namespace->namespace-at-phase(make-namespace) phase_42)))" +"(let-values(((phase_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)" @@ -44045,23 +44098,23 @@ static const char *startup_source = "(let-values(((post-scope_1)(root-expand-context-post-expansion-scope root-ctx_5)))" "(let-values(((other-namespace-scopes_0)" "(reverse$1" -"(let-values(((ht_148)" +"(let-values(((ht_147)" "(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_148)))" +"(let-values()(check-in-immutable-hash-keys ht_147)))" "((letrec-values(((for-loop_114)" -"(lambda(fold-var_238 i_166)" +"(lambda(fold-var_238 i_165)" "(begin" " 'for-loop" -"(if i_166" +"(if i_165" "(let-values(((sc_36)" "(unsafe-immutable-hash-iterate-key" -" ht_148" -" i_166)))" +" ht_147" +" i_165)))" "(let-values(((fold-var_216)" "(let-values(((fold-var_217)" " fold-var_238))" @@ -44083,20 +44136,20 @@ static const char *startup_source = "(for-loop_114" " fold-var_216" "(unsafe-immutable-hash-iterate-next" -" ht_148" -" i_166))" +" ht_147" +" i_165))" " fold-var_216)))" " fold-var_238)))))" " for-loop_114)" " null" -"(unsafe-immutable-hash-iterate-first ht_148)))))))" +"(unsafe-immutable-hash-iterate-first ht_147)))))))" "(let-values(((add-ns-scopes_0)" -"(lambda(s_429)" +"(lambda(s_428)" "(begin" " 'add-ns-scopes" -"(let-values(((temp64_2)" +"(let-values(((temp64_3)" "(add-scopes" -"(push-scope s_429 post-scope_1)" +"(push-scope s_428 post-scope_1)" " other-namespace-scopes_0))" "((temp65_1)" "(root-expand-context-all-scopes-stx root-ctx_5))" @@ -44107,10 +44160,10 @@ static const char *startup_source = "(if or-part_74" " or-part_74" "(current-code-inspector))))" -"((temp67_1) #t))" +"((temp67_2) #t))" "(syntax-transfer-shifts36.1" -" temp67_1" -" temp64_2" +" temp67_2" +" temp64_3" " temp65_1" " temp66_2))))))" "(let-values(((maybe-module-id_0)" @@ -44134,10 +44187,10 @@ static const char *startup_source = "(let-values()(add-ns-scopes_0 s_2)))))))))))))))))))" "(case-lambda" "((s_78)(begin 'namespace-syntax-introduce(namespace-syntax-introduce3_0 s_78 unsafe-undefined)))" -"((s_445 ns1_2)(namespace-syntax-introduce3_0 s_445 ns1_2)))))" +"((s_444 ns1_2)(namespace-syntax-introduce3_0 s_444 ns1_2)))))" "(define-values" "(namespace-datum-introduce)" -"(lambda(s_181)(begin(1/namespace-syntax-introduce(1/datum->syntax #f s_181)))))" +"(lambda(s_182)(begin(1/namespace-syntax-introduce(1/datum->syntax #f s_182)))))" "(define-values" "(1/namespace-module-identifier)" "(let-values(((namespace-module-identifier6_0)" @@ -44167,16 +44220,16 @@ static const char *startup_source = "((where5_1)(namespace-module-identifier6_0 where5_1)))))" "(define-values" "(1/namespace-symbol->identifier)" -"(lambda(sym_63)" +"(lambda(sym_64)" "(begin" " 'namespace-symbol->identifier" "(let-values()" "(let-values()" "(begin" -"(if(symbol? sym_63)" +"(if(symbol? sym_64)" "(void)" -" (let-values () (raise-argument-error 'namespace-symbol->identifier \"symbol?\" sym_63)))" -"(1/namespace-syntax-introduce(1/datum->syntax #f sym_63))))))))" +" (let-values () (raise-argument-error 'namespace-symbol->identifier \"symbol?\" sym_64)))" +"(1/namespace-syntax-introduce(1/datum->syntax #f sym_64))))))))" "(define-values" "(do-namespace-require21.1)" "(lambda(copy-variable-as-constant?11_1" @@ -44250,11 +44303,11 @@ static const char *startup_source = "(let-values()" "(let-values(((run?83_0) run?_3)" "((visit?84_0) visit?_3)" -"((temp85_1)(list(1/datum->syntax ctx-stx_0 req_6)))" +"((temp85_0)(list(1/datum->syntax ctx-stx_0 req_6)))" "((temp86_1) #f)" "((ns87_0) ns_77)" -"((temp88_1)(namespace-phase ns_77))" -"((temp89_2)" +"((temp88_0)(namespace-phase ns_77))" +"((temp89_1)" "(let-values(((temp92_2) #f))(make-requires+provides8.1 #f temp92_2)))" "((skip-variable-phase-level90_0) skip-variable-phase-level_2)" "((who91_0) who_23))" @@ -44269,11 +44322,11 @@ static const char *startup_source = " skip-variable-phase-level90_0" " visit?84_0" " who91_0" -" temp85_1" +" temp85_0" " temp86_1" " ns87_0" -" temp88_1" -" temp89_2))))))))))))))))))" +" temp88_0" +" temp89_1))))))))))))))))))" "(define-values" "(1/namespace-require)" "(let-values(((namespace-require26_0)" @@ -44301,7 +44354,7 @@ static const char *startup_source = "(let-values()" "(let-values()" "(let-values()" -"(let-values(((temp98_0) #f)" +"(let-values(((temp98_1) #f)" "((temp99_0) #t)" "((who100_0) 'namespace-require/expansion-time)" "((req101_0) req_10)" @@ -44309,7 +44362,7 @@ static const char *startup_source = "(do-namespace-require21.1" " #f" " #f" -" temp98_0" +" temp98_1" " #f" " temp99_0" " who100_0" @@ -44380,7 +44433,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_75) sym43_0))" +"(let-values(((sym_21) 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)))" @@ -44388,12 +44441,12 @@ static const char *startup_source = "(let-values()" "(let-values()" "(begin" -"(if(symbol? sym_75)" +"(if(symbol? sym_21)" "(void)" -" (let-values () (raise-argument-error 'namespace-variable-value \"symbol?\" sym_75)))" -"(if(let-values(((or-part_295)(not failure-thunk_5)))" -"(if or-part_295" -" or-part_295" +" (let-values () (raise-argument-error 'namespace-variable-value \"symbol?\" sym_21)))" +"(if(let-values(((or-part_296)(not failure-thunk_5)))" +"(if or-part_296" +" or-part_296" "(if(procedure? failure-thunk_5)" "(procedure-arity-includes? failure-thunk_5 0)" " #f)))" @@ -44412,10 +44465,10 @@ 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_101)(1/datum->syntax #f sym_75)))" +"(let-values(((id_100)(1/datum->syntax #f sym_21)))" "(let-values(((b_14)" "(resolve+shift/extra-inspector" -"(1/namespace-syntax-introduce id_101 ns_11)" +"(1/namespace-syntax-introduce id_100 ns_11)" "(namespace-phase ns_11)" " ns_11)))" "(let-values((()" @@ -44438,7 +44491,7 @@ static const char *startup_source = "((ns119_0) ns_11)" "((temp120_0)" "(namespace-phase ns_11))" -"((id121_0) id_101))" +"((id121_0) id_100))" "(binding-lookup50.1" " #f" " #f" @@ -44464,7 +44517,7 @@ static const char *startup_source = "(string-append" " \"namespace-variable-value: bound to syntax\\n\"" " \" in: ~s\")" -" sym_75)" +" sym_21)" "(current-continuation-marks)" " null))))))))" "(if(module-binding? b_14)" @@ -44477,34 +44530,34 @@ static const char *startup_source = " b_14" " ns_11" "(namespace-phase ns_11)" -" id_101)))" +" id_100)))" "(module-binding-phase b_14)" "(module-binding-sym b_14))" "(values" " ns_11" "(namespace-phase ns_11)" -" sym_75))))))))" -"(let-values()(values ns_11(namespace-phase ns_11) sym_75)))))" -"(let-values(((val_71)" +" sym_21))))))))" +"(let-values()(values ns_11(namespace-phase ns_11) sym_21)))))" +"(let-values(((val_70)" "(namespace-get-variable" " var-ns_0" " var-phase-level_0" " var-sym_6" "(lambda()" "(escape_0" -"(let-values(((or-part_296) failure-thunk_5))" -"(if or-part_296" -" or-part_296" +"(let-values(((or-part_297) failure-thunk_5))" +"(if or-part_297" +" or-part_297" "(raise" "(exn:fail:contract:variable" "(format" "(string-append" " \"namespace-variable-value: given name is not defined\\n\"" " \" name: ~s\")" -" sym_75)" +" sym_21)" "(current-continuation-marks)" -" sym_75)))))))))" -"(lambda() val_71))))))))))))))))))" +" sym_21)))))))))" +"(lambda() val_70))))))))))))))))))" "(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)" @@ -44519,7 +44572,7 @@ static const char *startup_source = "(begin" " 'namespace-set-variable-value!51" "(let-values(((sym_80) sym49_0))" -"(let-values(((val_72) val50_0))" +"(let-values(((val_71) 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))" @@ -44539,7 +44592,7 @@ static const char *startup_source = " ns_82" "(namespace-phase ns_82)" " sym_80" -" val_72" +" val_71" " as-constant?_2)" "(if map?_0" "(let-values()" @@ -44550,8 +44603,8 @@ static const char *startup_source = "(namespace-phase ns_82)" " sym_80)" "(values))))" -"(let-values(((id_102)(1/datum->syntax #f sym_80)))" -"(let-values(((temp123_1)(1/namespace-syntax-introduce id_102 ns_82))" +"(let-values(((id_101)(1/datum->syntax #f sym_80)))" +"(let-values(((temp123_1)(1/namespace-syntax-introduce id_101 ns_82))" "((temp124_0)" "(let-values(((temp126_0)(namespace-mpi ns_82))" "((temp127_3)(namespace-phase ns_82))" @@ -44573,12 +44626,12 @@ static const char *startup_source = "(add-binding!17.1 #f #f temp123_1 temp124_0 temp125_0)))))" "(void)))))))))))))))" "(case-lambda" -"((sym_81 val_73)" -"(begin 'namespace-set-variable-value!(namespace-set-variable-value!51_0 sym_81 val_73 #f unsafe-undefined #f)))" -"((sym_82 val_74 map?_1 ns_83 as-constant?48_1)" -"(namespace-set-variable-value!51_0 sym_82 val_74 map?_1 ns_83 as-constant?48_1))" -"((sym_83 val_75 map?_2 ns47_3)(namespace-set-variable-value!51_0 sym_83 val_75 map?_2 ns47_3 #f))" -"((sym_84 val_76 map?46_1)(namespace-set-variable-value!51_0 sym_84 val_76 map?46_1 unsafe-undefined #f)))))" +"((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)))))" "(define-values" "(1/namespace-undefine-variable!)" "(let-values(((namespace-undefine-variable!55_0)" @@ -44649,39 +44702,39 @@ static const char *startup_source = "(lambda(s3_1 ns1_4 compile2_0)" "(begin" " 'eval4" -"(let-values(((s_446) s3_1))" +"(let-values(((s_445) s3_1))" "(let-values(((ns_87)(if(eq? ns1_4 unsafe-undefined)(1/current-namespace) ns1_4)))" "(let-values(((compile_1)" "(if(eq? compile2_0 unsafe-undefined)" "(lambda(s_75 ns_55)(begin 'compile(1/compile s_75 ns_55 #f)))" " compile2_0)))" "(let-values()" -"(if(let-values(((or-part_28)(compiled-in-memory? s_446)))" +"(if(let-values(((or-part_28)(compiled-in-memory? s_445)))" "(if or-part_28" " or-part_28" -"(let-values(((or-part_293)(1/linklet-directory? s_446)))" -"(if or-part_293 or-part_293(1/linklet-bundle? s_446)))))" -"(let-values()(eval-compiled s_446 ns_87))" -"(if(if(syntax?$1 s_446)" -"(let-values(((or-part_297)(compiled-in-memory?(1/syntax-e s_446))))" -"(if or-part_297" -" or-part_297" -"(let-values(((or-part_298)(1/linklet-directory?(1/syntax-e s_446))))" -"(if or-part_298 or-part_298(1/linklet-bundle?(1/syntax-e s_446))))))" +"(let-values(((or-part_294)(1/linklet-directory? s_445)))" +"(if or-part_294 or-part_294(1/linklet-bundle? s_445)))))" +"(let-values()(eval-compiled s_445 ns_87))" +"(if(if(syntax?$1 s_445)" +"(let-values(((or-part_298)(compiled-in-memory?(1/syntax-e s_445))))" +"(if or-part_298" +" or-part_298" +"(let-values(((or-part_299)(1/linklet-directory?(1/syntax-e s_445))))" +"(if or-part_299 or-part_299(1/linklet-bundle?(1/syntax-e s_445))))))" " #f)" -"(let-values()(eval-compiled(1/syntax->datum s_446) ns_87))" +"(let-values()(eval-compiled(1/syntax->datum s_445) ns_87))" "(let-values()" -"(let-values(((s66_0) s_446)" +"(let-values(((s66_0) s_445)" "((ns67_1) ns_87)" -"((temp68_1)" -"(lambda(s_180 ns_88 tail?_52)" -"(eval-compiled(compile_1 s_180 ns_88) ns_88 tail?_52)))" +"((temp68_2)" +"(lambda(s_181 ns_88 tail?_52)" +"(eval-compiled(compile_1 s_181 ns_88) ns_88 tail?_52)))" "((temp69_0) #f))" -"(per-top-level54.1 #f #f temp69_0 #t #f temp68_1 #f s66_0 ns67_1)))))))))))))" +"(per-top-level54.1 #f #f temp69_0 #t #f temp68_2 #f s66_0 ns67_1)))))))))))))" "(case-lambda" -"((s_445)(begin 'eval(eval4_0 s_445 unsafe-undefined unsafe-undefined)))" +"((s_444)(begin 'eval(eval4_0 s_444 unsafe-undefined unsafe-undefined)))" "((s_76 ns_89 compile2_1)(eval4_0 s_76 ns_89 compile2_1))" -"((s_441 ns1_5)(eval4_0 s_441 ns1_5 unsafe-undefined)))))" +"((s_440 ns1_5)(eval4_0 s_440 ns1_5 unsafe-undefined)))))" "(define-values" "(eval-compiled)" "(let-values(((eval-compiled9_0)" @@ -44705,40 +44758,40 @@ static const char *startup_source = "(lambda(s15_1 ns11_1 serializable?12_0 expand13_0 to-source?14_0)" "(begin" " 'compile16" -"(let-values(((s_184) s15_1))" +"(let-values(((s_185) s15_1))" "(let-values(((ns_93)(if(eq? ns11_1 unsafe-undefined)(1/current-namespace) ns11_1)))" "(let-values(((serializable?_4) serializable?12_0))" "(let-values(((expand_0)(if(eq? expand13_0 unsafe-undefined) expand$1 expand13_0)))" "(let-values(((to-source?_4) to-source?14_0))" "(let-values()" "(let-values(((cs_0)" -"(if(1/compiled-expression? s_184)" -"(let-values()(list s_184))" -"(if(if(syntax?$1 s_184)" -"(1/compiled-expression?(1/syntax-e s_184))" +"(if(1/compiled-expression? s_185)" +"(let-values()(list s_185))" +"(if(if(syntax?$1 s_185)" +"(1/compiled-expression?(1/syntax-e s_185))" " #f)" -"(let-values()(list(1/syntax-e s_184)))" +"(let-values()(list(1/syntax-e s_185)))" "(let-values()" -"(let-values(((s72_0) s_184)" +"(let-values(((s72_0) s_185)" "((ns73_0) ns_93)" -"((temp74_1)" -"(lambda(s_447 ns_47 as-tail?_4)" +"((temp74_0)" +"(lambda(s_446 ns_47 as-tail?_4)" "(list" "(compile-single$1" -" s_447" +" s_446" " ns_47" " expand_0" " serializable?_4" " to-source?_4))))" "((append75_0) append)" -"((temp76_1) #f))" +"((temp76_0) #f))" "(per-top-level54.1" " append75_0" " #f" -" temp76_1" +" temp76_0" " #t" " #f" -" temp74_1" +" temp74_0" " #f" " s72_0" " ns73_0)))))))" @@ -44755,8 +44808,8 @@ static const char *startup_source = " cs77_0))))))))))))))" "(case-lambda" "((s_11)(begin 'compile(compile16_0 s_11 unsafe-undefined #t unsafe-undefined #f)))" -"((s_448 ns_94 serializable?_5 expand_1 to-source?14_1)" -"(compile16_0 s_448 ns_94 serializable?_5 expand_1 to-source?14_1))" +"((s_447 ns_94 serializable?_5 expand_1 to-source?14_1)" +"(compile16_0 s_447 ns_94 serializable?_5 expand_1 to-source?14_1))" "((s_14 ns_95 serializable?_6 expand13_1)(compile16_0 s_14 ns_95 serializable?_6 expand13_1 #f))" "((s_15 ns_96 serializable?12_1)(compile16_0 s_15 ns_96 serializable?12_1 unsafe-undefined #f))" "((s_83 ns11_2)(compile16_0 s_83 ns11_2 #t unsafe-undefined #f)))))" @@ -44770,7 +44823,7 @@ static const char *startup_source = "(let-values(((ns_63)(if(eq? ns18_1 unsafe-undefined)(1/current-namespace) ns18_1)))" "(let-values()(1/compile s_20 ns_63 #t expand$1 #t))))))))" "(case-lambda" -"((s_449)(begin(compile-to-linklets20_0 s_449 unsafe-undefined)))" +"((s_448)(begin(compile-to-linklets20_0 s_448 unsafe-undefined)))" "((s_22 ns18_2)(compile-to-linklets20_0 s_22 ns18_2)))))" "(define-values" "(struct:lifted-parsed-begin" @@ -44801,10 +44854,10 @@ static const char *startup_source = "(make-struct-field-accessor -ref_80 1 'last))))" "(define-values" "(compile-single$1)" -"(lambda(s_450 ns_97 expand_2 serializable?_7 to-source?_5)" +"(lambda(s_449 ns_97 expand_2 serializable?_7 to-source?_5)" "(begin" " 'compile-single" -"(let-values(((exp-s_4)(expand_2 s_450 ns_97 #f #t serializable?_7)))" +"(let-values(((exp-s_4)(expand_2 s_449 ns_97 #f #t serializable?_7)))" "((letrec-values(((loop_100)" "(lambda(exp-s_5)" "(begin" @@ -44812,7 +44865,7 @@ static const char *startup_source = "(if(parsed-module? exp-s_5)" "(let-values()" "(let-values(((exp-s82_0) exp-s_5)" -"((temp83_2)" +"((temp83_1)" "(let-values(((ns86_0) ns_97))" "(make-compile-context14.1" " #f" @@ -44830,7 +44883,7 @@ static const char *startup_source = " serializable?84_0" " to-source?85_0" " exp-s82_0" -" temp83_2)))" +" temp83_1)))" "(if(lifted-parsed-begin? exp-s_5)" "(let-values()" "(let-values(((temp87_0)" @@ -44850,7 +44903,7 @@ static const char *startup_source = "(if(pair? lst_299)" "(let-values(((e_74)" "(unsafe-car lst_299))" -"((rest_87)" +"((rest_86)" "(unsafe-cdr lst_299)))" "(let-values(((fold-var_162)" "(let-values(((fold-var_163)" @@ -44865,7 +44918,7 @@ static const char *startup_source = "(values" " fold-var_164)))))" "(if(not #f)" -"(for-loop_5 fold-var_162 rest_87)" +"(for-loop_5 fold-var_162 rest_86)" " fold-var_162)))" " fold-var_271)))))" " for-loop_5)" @@ -44875,7 +44928,7 @@ static const char *startup_source = "(compiled-tops->compiled-top8.1 #f #f to-source?88_0 temp87_0)))" "(let-values()" "(let-values(((exp-s89_0) exp-s_5)" -"((temp90_2)" +"((temp90_1)" "(let-values(((ns93_1) ns_97))" "(make-compile-context14.1" " #f" @@ -44886,7 +44939,7 @@ static const char *startup_source = " unsafe-undefined)))" "((serializable?91_0) serializable?_7)" "((to-source?92_0) to-source?_5))" -"(compile-top9.1 serializable?91_0 #f to-source?92_0 exp-s89_0 temp90_2)))))))))" +"(compile-top9.1 serializable?91_0 #f to-source?92_0 exp-s89_0 temp90_1)))))))))" " loop_100)" " exp-s_4)))))" "(define-values" @@ -44895,7 +44948,7 @@ static const char *startup_source = "(lambda(s27_1 ns23_0 observable?24_0 to-parsed?25_0 serializable?26_0)" "(begin" " 'expand28" -"(let-values(((s_451) s27_1))" +"(let-values(((s_450) s27_1))" "(let-values(((ns_98)(if(eq? ns23_0 unsafe-undefined)(1/current-namespace) ns23_0)))" "(let-values(((observable?_0) observable?24_0))" "(let-values(((to-parsed?_2) to-parsed?25_0))" @@ -44911,12 +44964,12 @@ static const char *startup_source = " current-expand-observe" " #f)" "(let-values()" -"(let-values(((s94_0) s_451)" +"(let-values(((s94_1) s_450)" "((ns95_0) ns_98)" -"((temp96_1)" -"(lambda(s_312 ns_99 as-tail?_5)" +"((temp96_2)" +"(lambda(s_313 ns_99 as-tail?_5)" "(expand-single" -" s_312" +" s_313" " ns_99" " observer_2" " to-parsed?_2" @@ -44930,29 +44983,29 @@ static const char *startup_source = " observer99_0" " #t" " #f" -" temp96_1" +" temp96_2" " re-pair98_0" -" s94_0" +" s94_1" " ns95_0))))))))))))))))" "(case-lambda" -"((s_452)(begin 'expand(expand28_0 s_452 unsafe-undefined #f #f #f)))" -"((s_453 ns_9 observable?_1 to-parsed?_3 serializable?26_1)" -"(expand28_0 s_453 ns_9 observable?_1 to-parsed?_3 serializable?26_1))" -"((s_454 ns_100 observable?_2 to-parsed?25_1)(expand28_0 s_454 ns_100 observable?_2 to-parsed?25_1 #f))" -"((s_165 ns_101 observable?24_1)(expand28_0 s_165 ns_101 observable?24_1 #f #f))" -"((s_455 ns23_1)(expand28_0 s_455 ns23_1 #f #f #f)))))" +"((s_451)(begin 'expand(expand28_0 s_451 unsafe-undefined #f #f #f)))" +"((s_452 ns_9 observable?_1 to-parsed?_3 serializable?26_1)" +"(expand28_0 s_452 ns_9 observable?_1 to-parsed?_3 serializable?26_1))" +"((s_453 ns_100 observable?_2 to-parsed?25_1)(expand28_0 s_453 ns_100 observable?_2 to-parsed?25_1 #f))" +"((s_305 ns_101 observable?24_1)(expand28_0 s_305 ns_101 observable?24_1 #f #f))" +"((s_454 ns23_1)(expand28_0 s_454 ns23_1 #f #f #f)))))" "(define-values" "(expand-single)" "(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_65)" "(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_65)))" "(if(if(null? require-lifts_3)(null? lifts_10) #f)" "(let-values() exp-s_0)" "(if to-parsed?_4" @@ -44973,14 +45026,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_65 require-lifts_3 lifts_10 exp-s_0 ns_102)" "(values))))" -"(let-values(((new-s_2)" +"(let-values(((new-s_3)" "(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_65)))" "(if obs_45" "(let-values()" "(let-values()(call-expand-observe obs_45 'next)))" @@ -44997,7 +45050,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_65)))" "(if obs_46" "(let-values()" "(let-values()(call-expand-observe obs_46 'next)))" @@ -45011,7 +45064,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_2) new-s_2))))))))))))" +"(begin(log-top-begin-after ctx_65 new-s_3) new-s_3))))))))))))" "(define-values" "(expand-once$1)" "(let-values(((expand-once32_0)" @@ -45024,7 +45077,7 @@ static const char *startup_source = "(let-values(((s114_0) s_66)" "((ns115_0) ns_103)" "((temp116_0)" -"(lambda(s_456 ns_104 as-tail?_6)(expand-single-once s_456 ns_104)))" +"(lambda(s_455 ns_104 as-tail?_6)(expand-single-once s_455 ns_104)))" "((cons117_0) cons)" "((re-pair118_0) re-pair)" "((temp119_1) #t)" @@ -45041,69 +45094,70 @@ static const char *startup_source = " ns115_0)))))))))" "(case-lambda" "((s_38)(begin 'expand-once(expand-once32_0 s_38 unsafe-undefined)))" -"((s_317 ns30_1)(expand-once32_0 s_317 ns30_1)))))" +"((s_318 ns30_1)(expand-once32_0 s_318 ns30_1)))))" "(define-values" "(expand-single-once)" -"(lambda(s_457 ns_83)" +"(lambda(s_456 ns_83)" "(begin" "(let-values(((require-lifts_4 lifts_11 exp-s_6)" "(expand-capturing-lifts" -" s_457" -"(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)" +" s_456" +"(let-values(((v_127)(let-values(((ns121_0) ns_83))(make-expand-context10.1 #f #f #f ns121_0))))" +"(let-values(((the-struct_70) v_127))" +"(if(expand-context/outer? the-struct_70)" "(let-values(((inner122_0)" -"(let-values(((the-struct_70)(root-expand-context/outer-inner v_128)))" -"(if(expand-context/inner? the-struct_70)" +"(let-values(((the-struct_71)(root-expand-context/outer-inner v_127)))" +"(if(expand-context/inner? the-struct_71)" "(let-values(((just-once?123_0) #t))" "(expand-context/inner2.1" -"(root-expand-context/inner-self-mpi the-struct_70)" -"(root-expand-context/inner-module-scopes the-struct_70)" -"(root-expand-context/inner-top-level-bind-scope the-struct_70)" -"(root-expand-context/inner-all-scopes-stx the-struct_70)" -"(root-expand-context/inner-defined-syms the-struct_70)" -"(root-expand-context/inner-counter the-struct_70)" -"(root-expand-context/inner-lift-key the-struct_70)" -"(expand-context/inner-to-parsed? the-struct_70)" -"(expand-context/inner-phase the-struct_70)" -"(expand-context/inner-namespace the-struct_70)" +"(root-expand-context/inner-self-mpi the-struct_71)" +"(root-expand-context/inner-module-scopes the-struct_71)" +"(root-expand-context/inner-top-level-bind-scope the-struct_71)" +"(root-expand-context/inner-all-scopes-stx the-struct_71)" +"(root-expand-context/inner-defined-syms the-struct_71)" +"(root-expand-context/inner-counter the-struct_71)" +"(root-expand-context/inner-lift-key the-struct_71)" +"(expand-context/inner-to-parsed? the-struct_71)" +"(expand-context/inner-phase the-struct_71)" +"(expand-context/inner-namespace the-struct_71)" " just-once?123_0" -"(expand-context/inner-module-begin-k the-struct_70)" -"(expand-context/inner-allow-unbound? the-struct_70)" -"(expand-context/inner-in-local-expand? the-struct_70)" -"(expand-context/inner-keep-#%expression? the-struct_70)" -"(expand-context/inner-stops the-struct_70)" -"(expand-context/inner-declared-submodule-names the-struct_70)" -"(expand-context/inner-lifts the-struct_70)" -"(expand-context/inner-lift-envs the-struct_70)" -"(expand-context/inner-module-lifts the-struct_70)" -"(expand-context/inner-require-lifts the-struct_70)" -"(expand-context/inner-to-module-lifts the-struct_70)" -"(expand-context/inner-requires+provides the-struct_70)" -"(expand-context/inner-observer the-struct_70)" -"(expand-context/inner-for-serializable? the-struct_70)" -"(expand-context/inner-should-not-encounter-macros? the-struct_70)))" +"(expand-context/inner-module-begin-k the-struct_71)" +"(expand-context/inner-allow-unbound? the-struct_71)" +"(expand-context/inner-in-local-expand? the-struct_71)" +"(expand-context/inner-keep-#%expression? the-struct_71)" +"(expand-context/inner-stops the-struct_71)" +"(expand-context/inner-declared-submodule-names the-struct_71)" +"(expand-context/inner-lifts the-struct_71)" +"(expand-context/inner-lift-envs the-struct_71)" +"(expand-context/inner-module-lifts the-struct_71)" +"(expand-context/inner-require-lifts the-struct_71)" +"(expand-context/inner-to-module-lifts the-struct_71)" +"(expand-context/inner-requires+provides the-struct_71)" +"(expand-context/inner-observer the-struct_71)" +"(expand-context/inner-for-serializable? the-struct_71)" +"(expand-context/inner-should-not-encounter-macros? the-struct_71)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_70)))))" +" the-struct_71)))))" "(expand-context/outer1.1" " inner122_0" -"(root-expand-context/outer-post-expansion-scope the-struct_69)" -"(root-expand-context/outer-use-site-scopes the-struct_69)" -"(root-expand-context/outer-frame-id the-struct_69)" -"(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)" -"(expand-context/outer-reference-records the-struct_69)" -"(expand-context/outer-only-immediate? the-struct_69)" -"(expand-context/outer-need-eventually-defined the-struct_69)" -"(expand-context/outer-current-introduction-scopes the-struct_69)" -"(expand-context/outer-name the-struct_69)))" -" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_69)))))))" +"(root-expand-context/outer-post-expansion-scope the-struct_70)" +"(root-expand-context/outer-post-expansion-shifts the-struct_70)" +"(root-expand-context/outer-use-site-scopes the-struct_70)" +"(root-expand-context/outer-frame-id the-struct_70)" +"(expand-context/outer-context the-struct_70)" +"(expand-context/outer-env the-struct_70)" +"(expand-context/outer-post-expansion-scope-action the-struct_70)" +"(expand-context/outer-scopes the-struct_70)" +"(expand-context/outer-def-ctx-scopes the-struct_70)" +"(expand-context/outer-binding-layer the-struct_70)" +"(expand-context/outer-reference-records the-struct_70)" +"(expand-context/outer-only-immediate? the-struct_70)" +"(expand-context/outer-need-eventually-defined the-struct_70)" +"(expand-context/outer-current-introduction-scopes the-struct_70)" +"(expand-context/outer-name the-struct_70)))" +" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_70)))))))" "(if(if(null? require-lifts_4)(null? lifts_11) #f)" "(let-values() exp-s_6)" "(let-values()" @@ -45117,7 +45171,7 @@ static const char *startup_source = "(lambda(s35_0 ns34_0)" "(begin" " 'expand-to-top-form36" -"(let-values(((s_458) s35_0))" +"(let-values(((s_457) s35_0))" "(let-values(((ns_105)(if(eq? ns34_0 unsafe-undefined)(1/current-namespace) ns34_0)))" "(let-values()" "(let-values(((observer_4)(current-expand-observe)))" @@ -45130,7 +45184,7 @@ static const char *startup_source = " current-expand-observe" " #f)" "(let-values()" -"(let-values(((s127_0) s_458)" +"(let-values(((s127_0) s_457)" "((ns128_0) ns_105)" "((temp129_1) #f)" "((temp130_0) #f)" @@ -45146,7 +45200,7 @@ static const char *startup_source = " s127_0" " ns128_0)))))))))))))" "(case-lambda" -"((s_159)(begin 'expand-to-top-form(expand-to-top-form36_0 s_159 unsafe-undefined)))" +"((s_458)(begin 'expand-to-top-form(expand-to-top-form36_0 s_458 unsafe-undefined)))" "((s_459 ns34_1)(expand-to-top-form36_0 s_459 ns34_1)))))" "(define-values" "(per-top-level54.1)" @@ -45171,27 +45225,27 @@ static const char *startup_source = "(let-values(((serializable?_10) serializable?43_0))" "(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(((s_217)(maybe-intro given-s_0 ns_106)))" +"(let-values(((ctx_66)" "(let-values(((ns132_0) ns_106)((observer133_0) observer_5))" "(make-expand-context10.1 #f observer133_0 #f ns132_0))))" -"(let-values(((phase_130)(namespace-phase ns_106)))" +"(let-values(((phase_132)(namespace-phase ns_106)))" "((letrec-values(((loop_101)" -"(lambda(s_460 phase_131 ns_107 as-tail?_7)" +"(lambda(s_460 phase_133 ns_107 as-tail?_7)" "(begin" " 'loop" "(let-values(((tl-ctx_0)" -"(let-values(((v_198) ctx_68))" -"(let-values(((the-struct_71) v_198))" -"(if(expand-context/outer? the-struct_71)" +"(let-values(((v_198) ctx_66))" +"(let-values(((the-struct_72) v_198))" +"(if(expand-context/outer? the-struct_72)" "(let-values(((inner134_0)" -"(let-values(((the-struct_72)" +"(let-values(((the-struct_73)" "(root-expand-context/outer-inner" " v_198)))" "(if(expand-context/inner?" -" the-struct_72)" +" the-struct_73)" "(let-values(((phase135_1)" -" phase_131)" +" phase_133)" "((namespace136_0)" " ns_107)" "((just-once?137_0)" @@ -45200,88 +45254,90 @@ static const char *startup_source = " serializable?_10))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi" -" the-struct_72)" +" the-struct_73)" "(root-expand-context/inner-module-scopes" -" the-struct_72)" +" the-struct_73)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_72)" +" the-struct_73)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_72)" +" the-struct_73)" "(root-expand-context/inner-defined-syms" -" the-struct_72)" +" the-struct_73)" "(root-expand-context/inner-counter" -" the-struct_72)" +" the-struct_73)" "(root-expand-context/inner-lift-key" -" the-struct_72)" +" the-struct_73)" "(expand-context/inner-to-parsed?" -" the-struct_72)" +" the-struct_73)" " phase135_1" " namespace136_0" " just-once?137_0" "(expand-context/inner-module-begin-k" -" the-struct_72)" +" the-struct_73)" "(expand-context/inner-allow-unbound?" -" the-struct_72)" +" the-struct_73)" "(expand-context/inner-in-local-expand?" -" the-struct_72)" +" the-struct_73)" "(expand-context/inner-keep-#%expression?" -" the-struct_72)" +" the-struct_73)" "(expand-context/inner-stops" -" the-struct_72)" +" the-struct_73)" "(expand-context/inner-declared-submodule-names" -" the-struct_72)" +" the-struct_73)" "(expand-context/inner-lifts" -" the-struct_72)" +" the-struct_73)" "(expand-context/inner-lift-envs" -" the-struct_72)" +" the-struct_73)" "(expand-context/inner-module-lifts" -" the-struct_72)" +" the-struct_73)" "(expand-context/inner-require-lifts" -" the-struct_72)" +" the-struct_73)" "(expand-context/inner-to-module-lifts" -" the-struct_72)" +" the-struct_73)" "(expand-context/inner-requires+provides" -" the-struct_72)" +" the-struct_73)" "(expand-context/inner-observer" -" the-struct_72)" +" the-struct_73)" " for-serializable?138_0" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_72)))" +" the-struct_73)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_72)))))" +" the-struct_73)))))" "(expand-context/outer1.1" " inner134_0" "(root-expand-context/outer-post-expansion-scope" -" the-struct_71)" +" the-struct_72)" +"(root-expand-context/outer-post-expansion-shifts" +" the-struct_72)" "(root-expand-context/outer-use-site-scopes" -" the-struct_71)" +" the-struct_72)" "(root-expand-context/outer-frame-id" -" the-struct_71)" +" the-struct_72)" "(expand-context/outer-context" -" the-struct_71)" -"(expand-context/outer-env the-struct_71)" +" the-struct_72)" +"(expand-context/outer-env the-struct_72)" "(expand-context/outer-post-expansion-scope-action" -" the-struct_71)" -"(expand-context/outer-scopes the-struct_71)" +" the-struct_72)" +"(expand-context/outer-scopes the-struct_72)" "(expand-context/outer-def-ctx-scopes" -" the-struct_71)" +" the-struct_72)" "(expand-context/outer-binding-layer" -" the-struct_71)" +" the-struct_72)" "(expand-context/outer-reference-records" -" the-struct_71)" +" the-struct_72)" "(expand-context/outer-only-immediate?" -" the-struct_71)" +" the-struct_72)" "(expand-context/outer-need-eventually-defined" -" the-struct_71)" +" the-struct_72)" "(expand-context/outer-current-introduction-scopes" -" the-struct_71)" -"(expand-context/outer-name the-struct_71)))" +" the-struct_72)" +"(expand-context/outer-name the-struct_72)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_71))))))" +" the-struct_72))))))" "(let-values(((wb-s_0)(if just-once?_1 s_460 #f)))" "(let-values((()" "(begin" @@ -45301,121 +45357,123 @@ static const char *startup_source = "(expand-capturing-lifts" " s_460" "(let-values(((v_199) tl-ctx_0))" -"(let-values(((the-struct_73) v_199))" -"(if(expand-context/outer? the-struct_73)" +"(let-values(((the-struct_74) v_199))" +"(if(expand-context/outer? the-struct_74)" "(let-values(((only-immediate?139_0)" " #t)" "((inner140_0)" -"(let-values(((the-struct_74)" +"(let-values(((the-struct_75)" "(root-expand-context/outer-inner" " v_199)))" "(if(expand-context/inner?" -" the-struct_74)" +" the-struct_75)" "(let-values(((phase141_0)" -" phase_131)" +" phase_133)" "((namespace142_0)" " ns_107))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi" -" the-struct_74)" +" the-struct_75)" "(root-expand-context/inner-module-scopes" -" the-struct_74)" +" the-struct_75)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_74)" +" the-struct_75)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_74)" +" the-struct_75)" "(root-expand-context/inner-defined-syms" -" the-struct_74)" +" the-struct_75)" "(root-expand-context/inner-counter" -" the-struct_74)" +" the-struct_75)" "(root-expand-context/inner-lift-key" -" the-struct_74)" +" the-struct_75)" "(expand-context/inner-to-parsed?" -" the-struct_74)" +" the-struct_75)" " phase141_0" " namespace142_0" "(expand-context/inner-just-once?" -" the-struct_74)" +" the-struct_75)" "(expand-context/inner-module-begin-k" -" the-struct_74)" +" the-struct_75)" "(expand-context/inner-allow-unbound?" -" the-struct_74)" +" the-struct_75)" "(expand-context/inner-in-local-expand?" -" the-struct_74)" +" the-struct_75)" "(expand-context/inner-keep-#%expression?" -" the-struct_74)" +" the-struct_75)" "(expand-context/inner-stops" -" the-struct_74)" +" the-struct_75)" "(expand-context/inner-declared-submodule-names" -" the-struct_74)" +" the-struct_75)" "(expand-context/inner-lifts" -" the-struct_74)" +" the-struct_75)" "(expand-context/inner-lift-envs" -" the-struct_74)" +" the-struct_75)" "(expand-context/inner-module-lifts" -" the-struct_74)" +" the-struct_75)" "(expand-context/inner-require-lifts" -" the-struct_74)" +" the-struct_75)" "(expand-context/inner-to-module-lifts" -" the-struct_74)" +" the-struct_75)" "(expand-context/inner-requires+provides" -" the-struct_74)" +" the-struct_75)" "(expand-context/inner-observer" -" the-struct_74)" +" the-struct_75)" "(expand-context/inner-for-serializable?" -" the-struct_74)" +" the-struct_75)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_74)))" +" the-struct_75)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_74)))))" +" the-struct_75)))))" "(expand-context/outer1.1" " inner140_0" "(root-expand-context/outer-post-expansion-scope" -" the-struct_73)" +" the-struct_74)" +"(root-expand-context/outer-post-expansion-shifts" +" the-struct_74)" "(root-expand-context/outer-use-site-scopes" -" the-struct_73)" +" the-struct_74)" "(root-expand-context/outer-frame-id" -" the-struct_73)" +" the-struct_74)" "(expand-context/outer-context" -" the-struct_73)" +" the-struct_74)" "(expand-context/outer-env" -" the-struct_73)" +" the-struct_74)" "(expand-context/outer-post-expansion-scope-action" -" the-struct_73)" +" the-struct_74)" "(expand-context/outer-scopes" -" the-struct_73)" +" the-struct_74)" "(expand-context/outer-def-ctx-scopes" -" the-struct_73)" +" the-struct_74)" "(expand-context/outer-binding-layer" -" the-struct_73)" +" the-struct_74)" "(expand-context/outer-reference-records" -" the-struct_73)" +" the-struct_74)" " only-immediate?139_0" "(expand-context/outer-need-eventually-defined" -" the-struct_73)" +" the-struct_74)" "(expand-context/outer-current-introduction-scopes" -" the-struct_73)" +" the-struct_74)" "(expand-context/outer-name" -" the-struct_73)))" +" the-struct_74)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_73)))))))" +" the-struct_74)))))))" "(let-values(((disarmed-exp-s_0)" "(syntax-disarm$1 exp-s_7)))" -"(if(let-values(((or-part_299)" +"(if(let-values(((or-part_300)" "(pair? require-lifts_5)))" -"(if or-part_299 or-part_299(pair? lifts_12)))" +"(if or-part_300 or-part_300(pair? lifts_12)))" "(let-values()" -"(let-values(((new-s_3)" +"(let-values(((new-s_4)" "(let-values(((temp143_1)" "(append" " require-lifts_5" " lifts_12))" "((exp-s144_0) exp-s_7)" -"((phase145_0) phase_131))" +"((phase145_0) phase_133))" "(wrap-lifts-as-begin16.1" " unsafe-undefined" " unsafe-undefined" @@ -45432,13 +45490,13 @@ static const char *startup_source = "(call-expand-observe" " obs_48" " 'lift-loop" -" new-s_3)))" +" new-s_4)))" "(void)))" "(if just-once?_1" -" new-s_3" +" new-s_4" "(loop_101" -" new-s_3" -" phase_131" +" new-s_4" +" phase_133" " ns_107" " as-tail?_7)))))" "(if(not single_0)" @@ -45462,14 +45520,14 @@ static const char *startup_source = "(let-values(((tmp_35)" "(core-form-sym" " disarmed-exp-s_0" -" phase_131)))" +" phase_133)))" "(if(equal? tmp_35 'begin)" "(let-values()" "(let-values((()" "(begin" "(let-values(((obs_50)" "(expand-context-observer" -" ctx_68)))" +" ctx_66)))" "(if obs_50" "(let-values()" "(let-values()" @@ -45485,32 +45543,32 @@ static const char *startup_source = " s_461))" "(let-values(((begin146_1" " e147_1)" -"(let-values(((s_223)" +"(let-values(((s_225)" "(if(syntax?$1" " s_461)" "(syntax-e$1" " s_461)" " s_461)))" "(if(pair?" -" s_223)" +" s_225)" "(let-values(((begin148_0)" "(let-values(((s_115)" "(car" -" s_223)))" +" s_225)))" " s_115))" "((e149_0)" -"(let-values(((s_437)" +"(let-values(((s_436)" "(cdr" -" s_223)))" -"(let-values(((s_224)" +" s_225)))" +"(let-values(((s_226)" "(if(syntax?$1" -" s_437)" +" s_436)" "(syntax-e$1" -" s_437)" -" s_437)))" +" s_436)" +" s_436)))" "(let-values(((flat-s_21)" "(to-syntax-list.1" -" s_224)))" +" s_226)))" "(if(not" " flat-s_21)" "(let-values()" @@ -45549,7 +45607,7 @@ static const char *startup_source = "(let-values()" "(loop_101" "(car es_2)" -" phase_131" +" phase_133" " ns_107" " as-tail?_7))" "(let-values()" @@ -45571,14 +45629,14 @@ static const char *startup_source = "(loop_101" "(car" " es_2)" -" phase_131" +" phase_133" " ns_107" " #f)" "(begin" "(loop_101" "(car" " es_2)" -" phase_131" +" phase_133" " ns_107" " #f)" "(void)))))" @@ -45593,7 +45651,7 @@ static const char *startup_source = " es_2))))))))))))" "(if wrap_2" "(let-values()" -"(let-values(((new-s_4)" +"(let-values(((new-s_5)" "(wrap_2" " begin146_0" " exp-s_7" @@ -45609,9 +45667,9 @@ static const char *startup_source = "(call-expand-observe" " obs_52" " 'return" -" new-s_4)))" +" new-s_5)))" "(void)))" -" new-s_4)))" +" new-s_5)))" "(let-values()" "(begin-loop_0 e147_0)))))))" "(if(equal? tmp_35 'begin-for-syntax)" @@ -45685,7 +45743,7 @@ static const char *startup_source = " begin-for-syntax150_1" " e151_1))))))" "(let-values(((next-phase_0)" -"(add1 phase_131)))" +"(add1 phase_133)))" "(let-values(((next-ns_0)" "(namespace->namespace-at-phase" " ns_107" @@ -45727,7 +45785,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_205)))" -"((letrec-values(((for-loop_268)" +"((letrec-values(((for-loop_266)" "(lambda(fold-var_272" " lst_300)" "(begin" @@ -45737,7 +45795,7 @@ static const char *startup_source = "(let-values(((s_466)" "(unsafe-car" " lst_300))" -"((rest_112)" +"((rest_111)" "(unsafe-cdr" " lst_300)))" "(let-values(((fold-var_255)" @@ -45768,17 +45826,17 @@ static const char *startup_source = " fold-var_201)))))" "(if(not" " #f)" -"(for-loop_268" +"(for-loop_266" " fold-var_255" -" rest_112)" +" rest_111)" " fold-var_255)))" " fold-var_272)))))" -" for-loop_268)" +" for-loop_266)" " null" " lst_205))))))" "(if wrap_2" "(let-values()" -"(let-values(((new-s_5)" +"(let-values(((new-s_6)" "(wrap_2" " begin-for-syntax150_0" " exp-s_7" @@ -45793,9 +45851,9 @@ static const char *startup_source = "(call-expand-observe" " obs_55" " 'return" -" new-s_5)))" +" new-s_6)))" "(void)))" -" new-s_5)))" +" new-s_6)))" "(if combine_0" "(let-values()" "(apply" @@ -45809,112 +45867,113 @@ static const char *startup_source = " ns_107" " as-tail?_7))))))))))))))))))" " loop_101)" -" s_216" -" phase_130" +" s_217" +" phase_132" " ns_106" " #t)))))))))))))))))" "(define-values" "(maybe-intro)" -"(lambda(s_340 ns_108)" -"(begin(if(syntax?$1 s_340) s_340(1/namespace-syntax-introduce(1/datum->syntax #f s_340) ns_108)))))" +"(lambda(s_341 ns_108)" +"(begin(if(syntax?$1 s_341) s_341(1/namespace-syntax-introduce(1/datum->syntax #f s_341) ns_108)))))" "(define-values" "(re-pair)" "(lambda(form-id_0 s_467 r_44)" "(begin(syntax-rearm$1(1/datum->syntax(syntax-disarm$1 s_467)(cons form-id_0 r_44) s_467 s_467) s_467))))" "(define-values" "(expand-capturing-lifts)" -"(lambda(s_343 ctx_27)" +"(lambda(s_344 ctx_26)" "(begin" "(let-values()" -"(let-values(((ns_109)(expand-context-namespace ctx_27)))" +"(let-values(((ns_109)(expand-context-namespace ctx_26)))" "(let-values((()(begin(namespace-visit-available-modules! ns_109)(values))))" "(let-values(((lift-ctx_6)" -"(let-values(((temp154_1)(make-top-level-lift ctx_27)))" +"(let-values(((temp154_1)(make-top-level-lift ctx_26)))" "(make-lift-context6.1 #f temp154_1))))" "(let-values(((require-lift-ctx_2)" "(make-require-lift-context" "(namespace-phase ns_109)" "(make-parse-top-lifted-require ns_109))))" "(let-values(((exp-s_8)" -"(let-values(((s155_0) s_343)" +"(let-values(((s155_0) s_344)" "((temp156_0)" -"(let-values(((v_200) ctx_27))" -"(let-values(((the-struct_75) v_200))" -"(if(expand-context/outer? the-struct_75)" +"(let-values(((v_200) ctx_26))" +"(let-values(((the-struct_76) v_200))" +"(if(expand-context/outer? the-struct_76)" "(let-values(((inner157_0)" -"(let-values(((the-struct_76)" +"(let-values(((the-struct_77)" "(root-expand-context/outer-inner v_200)))" -"(if(expand-context/inner? the-struct_76)" +"(if(expand-context/inner? the-struct_77)" "(let-values(((lifts158_0) lift-ctx_6)" "((module-lifts159_0) lift-ctx_6)" "((require-lifts160_0)" " require-lift-ctx_2))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi" -" the-struct_76)" +" the-struct_77)" "(root-expand-context/inner-module-scopes" -" the-struct_76)" +" the-struct_77)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_76)" +" the-struct_77)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_76)" +" the-struct_77)" "(root-expand-context/inner-defined-syms" -" the-struct_76)" -"(root-expand-context/inner-counter the-struct_76)" +" the-struct_77)" +"(root-expand-context/inner-counter the-struct_77)" "(root-expand-context/inner-lift-key" -" the-struct_76)" -"(expand-context/inner-to-parsed? the-struct_76)" -"(expand-context/inner-phase the-struct_76)" -"(expand-context/inner-namespace the-struct_76)" -"(expand-context/inner-just-once? the-struct_76)" +" the-struct_77)" +"(expand-context/inner-to-parsed? the-struct_77)" +"(expand-context/inner-phase the-struct_77)" +"(expand-context/inner-namespace the-struct_77)" +"(expand-context/inner-just-once? the-struct_77)" "(expand-context/inner-module-begin-k" -" the-struct_76)" +" the-struct_77)" "(expand-context/inner-allow-unbound?" -" the-struct_76)" +" the-struct_77)" "(expand-context/inner-in-local-expand?" -" the-struct_76)" +" the-struct_77)" "(expand-context/inner-keep-#%expression?" -" the-struct_76)" -"(expand-context/inner-stops the-struct_76)" +" the-struct_77)" +"(expand-context/inner-stops the-struct_77)" "(expand-context/inner-declared-submodule-names" -" the-struct_76)" +" the-struct_77)" " lifts158_0" -"(expand-context/inner-lift-envs the-struct_76)" +"(expand-context/inner-lift-envs the-struct_77)" " module-lifts159_0" " require-lifts160_0" "(expand-context/inner-to-module-lifts" -" the-struct_76)" +" the-struct_77)" "(expand-context/inner-requires+provides" -" the-struct_76)" -"(expand-context/inner-observer the-struct_76)" +" the-struct_77)" +"(expand-context/inner-observer the-struct_77)" "(expand-context/inner-for-serializable?" -" the-struct_76)" +" the-struct_77)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_76)))" +" the-struct_77)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_76)))))" +" the-struct_77)))))" "(expand-context/outer1.1" " inner157_0" -"(root-expand-context/outer-post-expansion-scope 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)" -"(expand-context/outer-reference-records the-struct_75)" -"(expand-context/outer-only-immediate? the-struct_75)" -"(expand-context/outer-need-eventually-defined the-struct_75)" -"(expand-context/outer-current-introduction-scopes the-struct_75)" -"(expand-context/outer-name the-struct_75)))" +"(root-expand-context/outer-post-expansion-scope the-struct_76)" +"(root-expand-context/outer-post-expansion-shifts the-struct_76)" +"(root-expand-context/outer-use-site-scopes the-struct_76)" +"(root-expand-context/outer-frame-id the-struct_76)" +"(expand-context/outer-context the-struct_76)" +"(expand-context/outer-env the-struct_76)" +"(expand-context/outer-post-expansion-scope-action the-struct_76)" +"(expand-context/outer-scopes the-struct_76)" +"(expand-context/outer-def-ctx-scopes the-struct_76)" +"(expand-context/outer-binding-layer the-struct_76)" +"(expand-context/outer-reference-records the-struct_76)" +"(expand-context/outer-only-immediate? the-struct_76)" +"(expand-context/outer-need-eventually-defined the-struct_76)" +"(expand-context/outer-current-introduction-scopes the-struct_76)" +"(expand-context/outer-name the-struct_76)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_75))))))" +" the-struct_76))))))" "(expand9.1 #f #f #f s155_0 temp156_0))))" "(values" "(get-and-clear-require-lifts! require-lift-ctx_2)" @@ -45924,9 +45983,9 @@ static const char *startup_source = "(make-parse-top-lifted-require)" "(lambda(ns_110)" "(begin" -"(lambda(s_347 phase_132)" +"(lambda(s_348 phase_134)" "(let-values(((ok?_31 #%require161_0 req162_0)" -"(let-values(((s_468)(syntax-disarm$1 s_347)))" +"(let-values(((s_468)(syntax-disarm$1 s_348)))" "(let-values(((orig-s_35) s_468))" "(let-values(((#%require161_1 req162_1)" "(let-values(((s_469)(if(syntax?$1 s_468)(syntax-e$1 s_468) s_468)))" @@ -45960,10 +46019,10 @@ static const char *startup_source = " (raise-syntax-error$1 #f \"bad syntax\" orig-s_35)))))" "(values #t #%require161_1 req162_1))))))" "(let-values(((temp166_0)(list req162_0))" -"((s167_0) s_347)" +"((s167_0) s_348)" "((ns168_0) ns_110)" -"((phase169_1) phase_132)" -"((phase170_0) phase_132)" +"((phase169_1) phase_134)" +"((phase170_0) phase_134)" "((temp171_1)(let-values(((temp173_0) #f))(make-requires+provides8.1 #f temp173_0)))" "((temp172_0) 'require))" "(parse-and-perform-requires!30.1" @@ -46001,13 +46060,13 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_301)))" -"((letrec-values(((for-loop_269)" +"((letrec-values(((for-loop_267)" "(lambda(fold-var_274 lst_302)" "(begin" " 'for-loop" "(if(pair? lst_302)" "(let-values(((req_19)(unsafe-car lst_302))" -"((rest_173)(unsafe-cdr lst_302)))" +"((rest_172)(unsafe-cdr lst_302)))" "(let-values(((fold-var_275)" "(let-values(((fold-var_276) fold-var_274))" "(let-values(((fold-var_277)" @@ -46017,9 +46076,9 @@ static const char *startup_source = "(parsed-require23.1 req_19))" " fold-var_276))))" "(values fold-var_277)))))" -"(if(not #f)(for-loop_269 fold-var_275 rest_173) fold-var_275)))" +"(if(not #f)(for-loop_267 fold-var_275 rest_172) fold-var_275)))" " fold-var_274)))))" -" for-loop_269)" +" for-loop_267)" " null" " lst_301))))" "(reverse$1" @@ -46028,13 +46087,13 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_303)))" -"((letrec-values(((for-loop_270)" +"((letrec-values(((for-loop_268)" "(lambda(fold-var_278 lst_304)" "(begin" " 'for-loop" "(if(pair? lst_304)" "(let-values(((ids+syms+rhs_0)(unsafe-car lst_304))" -"((rest_174)(unsafe-cdr lst_304)))" +"((rest_173)(unsafe-cdr lst_304)))" "(let-values(((fold-var_279)" "(let-values(((fold-var_280) fold-var_278))" "(let-values(((fold-var_281)" @@ -46061,37 +46120,37 @@ static const char *startup_source = " just-rhs_0)))" "(if(lifted-parsed-begin?" " exp-rhs_3)" -"(let-values(((the-struct_77)" +"(let-values(((the-struct_78)" " exp-rhs_3))" "(if(lifted-parsed-begin?" -" the-struct_77)" +" the-struct_78)" "(let-values(((last174_0)" " dv_0))" "(lifted-parsed-begin22.1" "(lifted-parsed-begin-seq" -" the-struct_77)" +" the-struct_78)" " last174_0))" "(raise-argument-error" " 'struct-copy" " \"lifted-parsed-begin?\"" -" the-struct_77)))" +" the-struct_78)))" " dv_0)))))" " fold-var_280))))" "(values fold-var_281)))))" -"(if(not #f)(for-loop_270 fold-var_279 rest_174) fold-var_279)))" +"(if(not #f)(for-loop_268 fold-var_279 rest_173) fold-var_279)))" " fold-var_278)))))" -" for-loop_270)" +" for-loop_268)" " null" " lst_303)))))" " exp-s_9))))))))))" "(define-values" "(log-top-lift-begin-before)" -"(lambda(ctx_69 require-lifts_7 lifts_14 exp-s_10 ns_111)" +"(lambda(ctx_67 require-lifts_7 lifts_14 exp-s_10 ns_111)" "(begin" -"(let-values(((obs_56)(expand-context-observer ctx_69)))" +"(let-values(((obs_56)(expand-context-observer ctx_67)))" "(if obs_56" "(let-values()" -"(let-values(((new-s_6)" +"(let-values(((new-s_7)" "(let-values(((temp175_0)(append require-lifts_7 lifts_14))" "((exp-s176_0) exp-s_10)" "((temp177_0)(namespace-phase ns_111)))" @@ -46101,17 +46160,17 @@ static const char *startup_source = " temp175_0" " exp-s176_0" " temp177_0))))" -"(begin(call-expand-observe obs_56 'lift-loop new-s_6)(log-top-begin-before ctx_69 new-s_6))))" +"(begin(call-expand-observe obs_56 'lift-loop new-s_7)(log-top-begin-before ctx_67 new-s_7))))" "(void))))))" "(define-values" "(log-top-begin-before)" -"(lambda(ctx_70 new-s_7)" +"(lambda(ctx_68 new-s_8)" "(begin" -"(let-values(((obs_57)(expand-context-observer ctx_70)))" +"(let-values(((obs_57)(expand-context-observer ctx_68)))" "(if obs_57" "(let-values()" "(let-values(((ok?_32 begin178_0 e179_0)" -"(let-values(((s_476) new-s_7))" +"(let-values(((s_476) new-s_8))" "(let-values(((orig-s_36) s_476))" "(let-values(((begin178_1 e179_1)" "(let-values(((s_477)(if(syntax?$1 s_476)(syntax-e$1 s_476) s_476)))" @@ -46135,24 +46194,24 @@ 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_7)" +"(call-expand-observe obs_57 'visit new-s_8)" "(call-expand-observe obs_57 'resolve begin178_0)" -"(call-expand-observe obs_57 'enter-prim new-s_7)" +"(call-expand-observe obs_57 'enter-prim new-s_8)" "(call-expand-observe obs_57 'prim-begin)" -"(call-expand-observe obs_57 'enter-list(1/datum->syntax #f e179_0 new-s_7)))))" +"(call-expand-observe obs_57 'enter-list(1/datum->syntax #f e179_0 new-s_8)))))" "(void))))))" "(define-values" "(log-top-begin-after)" -"(lambda(ctx_71 new-s_8)" +"(lambda(ctx_69 new-s_9)" "(begin" -"(let-values(((obs_58)(expand-context-observer ctx_71)))" +"(let-values(((obs_58)(expand-context-observer ctx_69)))" "(if obs_58" "(let-values()" "(let-values(((ok?_33 begin182_0 e183_0)" -"(let-values(((s_392) new-s_8))" -"(let-values(((orig-s_37) s_392))" +"(let-values(((s_393) new-s_9))" +"(let-values(((orig-s_37) s_393))" "(let-values(((begin182_1 e183_1)" -"(let-values(((s_481)(if(syntax?$1 s_392)(syntax-e$1 s_392) s_392)))" +"(let-values(((s_481)(if(syntax?$1 s_393)(syntax-e$1 s_393) s_393)))" "(if(pair? s_481)" "(let-values(((begin184_0)(let-values(((s_138)(car s_481))) s_138))" "((e185_0)" @@ -46172,14 +46231,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_71)))" +"(let-values(((obs_59)(expand-context-observer ctx_69)))" "(if obs_59" "(let-values()" "(let-values()" "(begin" -"(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))))" +"(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))))" "(void)))))" "(void))))))" " (define-values (replace-me) (lambda (who_0) (begin (lambda args_6 (error who_0 \"this stub must be replaced\")))))" @@ -46259,28 +46318,28 @@ static const char *startup_source = "(if(list? l_75)" "(andmap2" "(lambda(p_55)" -"(let-values(((or-part_297)(not p_55)))" -"(if or-part_297" -" or-part_297" -"(let-values(((or-part_298)(complete-path-string? p_55)))" +"(let-values(((or-part_298)(not p_55)))" "(if or-part_298" " or-part_298" +"(let-values(((or-part_299)(complete-path-string? p_55)))" +"(if or-part_299" +" or-part_299" "(if(hash? p_55)" -"(let-values(((ht_149) p_55))" +"(let-values(((ht_148) p_55))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_149)))" -"((letrec-values(((for-loop_271)" -"(lambda(result_116 i_167)" +"(let-values()(check-in-hash ht_148)))" +"((letrec-values(((for-loop_269)" +"(lambda(result_115 i_166)" "(begin" " 'for-loop" -"(if i_167" +"(if i_166" "(let-values(((k_35 v_3)" -"(hash-iterate-key+value ht_149 i_167)))" -"(let-values(((result_117)" +"(hash-iterate-key+value ht_148 i_166)))" +"(let-values(((result_116)" "(let-values()" -"(let-values(((result_118)" +"(let-values(((result_117)" "(let-values()" "(let-values()" "(if(let-values(((or-part_77)" @@ -46299,18 +46358,18 @@ static const char *startup_source = " v_3)" " #f)" " #f)))))" -"(values result_118)))))" -"(if(if(not((lambda x_83(not result_117)) k_35 v_3))" +"(values result_117)))))" +"(if(if(not((lambda x_82(not result_116)) k_35 v_3))" "(not #f)" " #f)" -"(for-loop_271" -" result_117" -"(hash-iterate-next ht_149 i_167))" -" result_117)))" -" result_116)))))" -" for-loop_271)" +"(for-loop_269" +" result_116" +"(hash-iterate-next ht_148 i_166))" +" result_116)))" +" result_115)))))" +" for-loop_269)" " #t" -"(hash-iterate-first ht_149))))" +"(hash-iterate-first ht_148))))" " #f))))))" " l_75)" " #f))" @@ -46334,38 +46393,38 @@ static const char *startup_source = "(if(string? p_4)" "(let-values()(string->path p_4))" "(let-values()" -"(let-values(((ht_150) p_4))" +"(let-values(((ht_149) p_4))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_150)))" -"((letrec-values(((for-loop_272)" -"(lambda(table_208 i_168)" +"(let-values()(check-in-hash ht_149)))" +"((letrec-values(((for-loop_270)" +"(lambda(table_205 i_167)" "(begin" " 'for-loop" -"(if i_168" -"(let-values(((k_36 v_201)(hash-iterate-key+value ht_150 i_168)))" -"(let-values(((table_209)" -"(let-values(((table_179) table_208))" -"(let-values(((table_210)" +"(if i_167" +"(let-values(((k_36 v_201)(hash-iterate-key+value ht_149 i_167)))" +"(let-values(((table_206)" +"(let-values(((table_180) table_205))" +"(let-values(((table_207)" "(let-values()" -"(let-values(((key_82 val_77)" +"(let-values(((key_81 val_76)" "(let-values()" "(values" " k_36" "(to-path v_201)))))" "(hash-set" -" table_179" -" key_82" -" val_77)))))" -"(values table_210)))))" +" table_180" +" key_81" +" val_76)))))" +"(values table_207)))))" "(if(not #f)" -"(for-loop_272 table_209(hash-iterate-next ht_150 i_168))" -" table_209)))" -" table_208)))))" -" for-loop_272)" +"(for-loop_270 table_206(hash-iterate-next ht_149 i_167))" +" table_206)))" +" table_205)))))" +" for-loop_270)" " '#hash()" -"(hash-iterate-first ht_150)))))))))" +"(hash-iterate-first ht_149)))))))))" " l_8)))))))" "(define-values" "(1/use-compiled-file-paths)" @@ -46428,13 +46487,13 @@ static const char *startup_source = "(let-values()" "(case-lambda" "((s_72)(begin 'eval((1/current-eval)(intro s_72))))" -"((s_189 ns_112)" +"((s_190 ns_112)" "(begin" " (if (1/namespace? ns_112) (void) (let-values () (raise-argument-error 'eval \"namespace?\" ns_112)))" "(with-continuation-mark" " parameterization-key" "(extend-parameterization(continuation-mark-set-first #f parameterization-key) 1/current-namespace ns_112)" -"(let-values()((1/current-eval)(intro s_189 ns_112))))))))))" +"(let-values()((1/current-eval)(intro s_190 ns_112))))))))))" "(define-values" "(1/eval-syntax)" "(let-values()" @@ -46454,7 +46513,7 @@ static const char *startup_source = " parameterization-key" "(extend-parameterization(continuation-mark-set-first #f parameterization-key) 1/current-namespace ns_58)" "(let-values()((1/current-eval) s_2)))))))))" -"(define-values(compile$1)(lambda(s_177)(begin 'compile((1/current-compile)(intro s_177) #f))))" +"(define-values(compile$1)(lambda(s_178)(begin 'compile((1/current-compile)(intro s_178) #f))))" "(define-values" "(1/compile-syntax)" "(lambda(s_483)" @@ -46468,38 +46527,38 @@ static const char *startup_source = "(define-values(1/expand)(lambda(s_9)(begin 'expand(expand$1(intro s_9)(1/current-namespace) #t))))" "(define-values" "(1/expand-syntax)" -"(lambda(s_439)" +"(lambda(s_438)" "(begin" " 'expand-syntax" "(let-values()" "(let-values()" "(begin" -" (if (syntax?$1 s_439) (void) (let-values () (raise-argument-error 'expand-syntax \"syntax?\" s_439)))" -"(expand$1 s_439(1/current-namespace) #t)))))))" -"(define-values(1/expand-once)(lambda(s_446)(begin 'expand-once(expand-once$1(intro s_446)))))" +" (if (syntax?$1 s_438) (void) (let-values () (raise-argument-error 'expand-syntax \"syntax?\" s_438)))" +"(expand$1 s_438(1/current-namespace) #t)))))))" +"(define-values(1/expand-once)(lambda(s_445)(begin 'expand-once(expand-once$1(intro s_445)))))" "(define-values" "(1/expand-syntax-once)" -"(lambda(s_178)" +"(lambda(s_179)" "(begin" " 'expand-syntax-once" "(let-values()" "(let-values()" "(begin" -" (if (syntax?$1 s_178) (void) (let-values () (raise-argument-error 'expand-syntax-once \"syntax?\" s_178)))" -"(expand-once$1 s_178)))))))" +" (if (syntax?$1 s_179) (void) (let-values () (raise-argument-error 'expand-syntax-once \"syntax?\" s_179)))" +"(expand-once$1 s_179)))))))" "(define-values(1/expand-to-top-form)(lambda(s_75)(begin 'expand-to-top-form(expand-to-top-form$1(intro s_75)))))" "(define-values" "(1/expand-syntax-to-top-form)" -"(lambda(s_170)" +"(lambda(s_171)" "(begin" " 'expand-syntax-to-top-form" "(let-values()" "(let-values()" "(begin" -"(if(syntax?$1 s_170)" +"(if(syntax?$1 s_171)" "(void)" -" (let-values () (raise-argument-error 'expand-syntax-to-top-form \"syntax?\" s_170)))" -"(expand-to-top-form$1 s_170)))))))" +" (let-values () (raise-argument-error 'expand-syntax-to-top-form \"syntax?\" s_171)))" +"(expand-to-top-form$1 s_171)))))))" "(define-values" "(intro)" "(let-values(((intro3_0)" @@ -46522,7 +46581,7 @@ static const char *startup_source = " 'do-dynamic-require5" "(let-values(((who_24) who2_0))" "(let-values(((mod-path_5) mod-path3_1))" -"(let-values(((sym_70) sym4_0))" +"(let-values(((sym_71) sym4_0))" "(let-values(((fail-k_2)" "(if(eq? fail-k1_0 unsafe-undefined)" " default-dynamic-require-fail-thunk" @@ -46544,17 +46603,17 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(if(let-values(((or-part_4)(symbol? sym_70)))" +"(if(let-values(((or-part_4)(symbol? sym_71)))" "(if or-part_4" " or-part_4" -"(let-values(((or-part_5)(not sym_70)))" +"(let-values(((or-part_5)(not sym_71)))" "(if or-part_5" " or-part_5" -"(let-values(((or-part_6)(equal? sym_70 0)))" -"(if or-part_6 or-part_6(void? sym_70)))))))" +"(let-values(((or-part_6)(equal? sym_71 0)))" +"(if or-part_6 or-part_6(void? sym_71)))))))" "(void)" "(let-values()" -" (raise-argument-error who_24 \"(or/c symbol? #f 0 void?)\" sym_70)))" +" (raise-argument-error who_24 \"(or/c symbol? #f 0 void?)\" sym_71)))" "(values))))" "(let-values((()" "(begin" @@ -46575,13 +46634,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_47 #t)))" -"(let-values(((phase_106)(namespace-phase ns_114)))" -"(if(not sym_70)" +"(let-values(((phase_108)(namespace-phase ns_114)))" +"(if(not sym_71)" "(let-values()" "(let-values(((ns17_0) ns_114)" "((mpi18_0) mpi_47)" -"((phase19_2) phase_106)" -"((phase20_1) phase_106)" +"((phase19_2) phase_108)" +"((phase20_1) phase_108)" "((temp21_1) #f))" "(namespace-module-instantiate!96.1" " temp21_1" @@ -46591,12 +46650,12 @@ static const char *startup_source = " ns17_0" " mpi18_0" " phase19_2)))" -"(if(equal? sym_70 0)" +"(if(equal? sym_71 0)" "(let-values()" "(let-values(((ns22_0) ns_114)" "((mpi23_0) mpi_47)" -"((phase24_3) phase_106)" -"((phase25_0) phase_106))" +"((phase24_3) phase_108)" +"((phase25_0) phase_108))" "(namespace-module-instantiate!96.1" " #t" " phase25_0" @@ -46605,12 +46664,12 @@ static const char *startup_source = " ns22_0" " mpi23_0" " phase24_3)))" -"(if(void? sym_70)" +"(if(void? sym_71)" "(let-values()" "(let-values(((ns26_0) ns_114)" "((mpi27_0) mpi_47)" -"((phase28_4) phase_106)" -"((phase29_0) phase_106))" +"((phase28_4) phase_108)" +"((phase29_0) phase_108))" "(namespace-module-visit!104.1" " phase29_0" " ns26_0" @@ -46630,7 +46689,7 @@ static const char *startup_source = "(let-values(((binding/p_5)" "(hash-ref" "(hash-ref(module-provides m_22) 0 '#hasheq())" -" sym_70" +" sym_71" " #f)))" "(if(not binding/p_5)" "(let-values()" @@ -46639,7 +46698,7 @@ static const char *startup_source = " 'dynamic-require" " \"name is not provided\"" " \"name\"" -" sym_70" +" sym_71" " \"module\"" " mod-name_22)" "(fail-k_2)))" @@ -46654,8 +46713,8 @@ static const char *startup_source = "(begin" "(let-values(((ns30_2) ns_114)" "((mpi31_0) mpi_47)" -"((phase32_2) phase_106)" -"((phase33_1) phase_106)" +"((phase32_2) phase_108)" +"((phase33_1) phase_108)" "((temp34_4) #f))" "(namespace-module-instantiate!96.1" " temp34_4" @@ -46678,7 +46737,7 @@ static const char *startup_source = " ex-mod-name_0)" "((temp37_1)" "(phase-" -" phase_106" +" phase_108" " ex-phase_0))" "((temp38_3) #t))" "(namespace->module-namespace82.1" @@ -46733,7 +46792,7 @@ static const char *startup_source = " 'dynamic-require" " \"name is protected\"" " \"name\"" -" sym_70" +" sym_71" " \"module\"" " mod-name_22))" "(void))" @@ -46749,7 +46808,7 @@ static const char *startup_source = " 'dynamic-require" " \"name's binding is missing\"" " \"name\"" -" sym_70" +" sym_71" " \"module\"" " mod-name_22)" "(fail-k_2))))))" @@ -46772,9 +46831,9 @@ static const char *startup_source = "((mpi40_1)" " mpi_47)" "((phase41_2)" -" phase_106)" +" phase_108)" "((phase42_0)" -" phase_106))" +" phase_108))" "(namespace-module-visit!104.1" " phase42_0" " ns39_0" @@ -46814,7 +46873,7 @@ static const char *startup_source = " tmp-ns_0)" "(let-values()" "(1/eval" -" sym_70" +" 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)))" @@ -46928,14 +46987,14 @@ static const char *startup_source = "(embedded-load)" "(lambda(start_41 end_31 str_24 as-predefined?_0)" "(begin" -"(let-values(((s_170)" +"(let-values(((s_171)" "(if str_24" " str_24" "(let-values(((sp_0)(find-system-path 'exec-file)))" "(let-values(((exe_0)(find-executable-path sp_0 #f)))" "(let-values(((start_42)" -"(let-values(((or-part_298)(1/string->number start_41)))" -"(if or-part_298 or-part_298 0))))" +"(let-values(((or-part_299)(1/string->number start_41)))" +"(if or-part_299 or-part_299 0))))" "(let-values(((end_32)" "(let-values(((or-part_90)(1/string->number end_31)))" "(if or-part_90 or-part_90 0))))" @@ -46948,7 +47007,7 @@ static const char *startup_source = "(file-position(current-input-port) start_42)" "(read-bytes(max 0(- end_32 start_42))))))))" "(with-input-from-file45.1 'binary exe4_0 temp5_5)))))))))" -"(let-values(((p_62)(open-input-bytes s_170)))" +"(let-values(((p_62)(open-input-bytes s_171)))" "((letrec-values(((loop_70)" "(lambda()" "(begin" @@ -47009,12 +47068,12 @@ static const char *startup_source = "(define-values(relative-path-string?)(lambda(s_0)(begin(if(path-string? s_0)(relative-path? s_0) #f))))" "(define-values" "(check-collection)" -"(lambda(who_27 s_189 l_4)" +"(lambda(who_27 s_190 l_4)" "(begin" "(begin" -"(if(relative-path-string? s_189)" +"(if(relative-path-string? s_190)" "(void)" -" (let-values () (raise-argument-error who_27 \"(and/c path-string? relative-path?)\" s_189)))" +" (let-values () (raise-argument-error who_27 \"(and/c path-string? relative-path?)\" s_190)))" "(if((lambda(l_2)(if(list? l_2)(andmap2 relative-path-string? l_2) #f)) l_4)" "(void)" " (let-values () (raise-argument-error who_27 \"(listof (and/c path-string? relative-path?))\" l_4)))))))" @@ -47056,7 +47115,7 @@ static const char *startup_source = "(lambda(d_34)" "(begin" " (let-values (((p_63) (if d_34 (build-path d_34 \"config.rktd\") #f)))" -"(let-values(((or-part_293)" +"(let-values(((or-part_294)" "(if p_63" "(if(file-exists? p_63)" "(let-values(((p7_1) p_63)" @@ -47069,7 +47128,7 @@ static const char *startup_source = "(with-input-from-file45.1 'binary p7_1 temp8_1))" " #f)" " #f)))" -"(if or-part_293 or-part_293 '#hash()))))))" +"(if or-part_294 or-part_294 '#hash()))))))" "(define-values" "(get-installation-name)" "(lambda(config-table_0)(begin(hash-ref config-table_0 'installation-name(version)))))" @@ -47094,9 +47153,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_83 orig-l_9)" +"(lambda(ht_70 key_82 orig-l_9)" "(begin" -"(let-values(((l_79)(hash-ref ht_70 key_83 #f)))" +"(let-values(((l_79)(hash-ref ht_70 key_82 #f)))" "(if l_79" "((letrec-values(((loop_102)" "(lambda(l_64)" @@ -47268,17 +47327,17 @@ static const char *startup_source = "(if(list? p_66)" "(if(let-values(((or-part_225)(= 2(length p_66))))" "(if or-part_225 or-part_225(= 3(length p_66))))" -"(if(let-values(((or-part_300)(string?(car p_66))))" -"(if or-part_300" -" or-part_300" -"(let-values(((or-part_301)" -"(eq? 'root(car p_66))))" +"(if(let-values(((or-part_301)(string?(car p_66))))" "(if or-part_301" " or-part_301" +"(let-values(((or-part_302)" +"(eq? 'root(car p_66))))" +"(if or-part_302" +" or-part_302" "(eq? 'static-root(car p_66))))))" "(if(path-string?(cadr p_66))" -"(let-values(((or-part_302)(null?(cddr p_66))))" -"(if or-part_302 or-part_302(regexp?(caddr p_66))))" +"(let-values(((or-part_303)(null?(cddr p_66))))" +"(if or-part_303 or-part_303(regexp?(caddr p_66))))" " #f)" " #f)" " #f)" @@ -47288,7 +47347,7 @@ static const char *startup_source = "(void)" " (let-values () (error \"ill-formed content\")))" "(values))))" -"(let-values(((ht_151)(make-hasheq)))" +"(let-values(((ht_150)(make-hasheq)))" "(let-values(((dir_0)" "(let-values(((base_21 name_66 dir?_5)(split-path links-path_0)))" " base_21)))" @@ -47308,34 +47367,34 @@ static const char *startup_source = "(let-values()" "(let-values(((k_37)(string->symbol(path->string sub_1))))" "(hash-set!" -" ht_151" +" ht_150" " k_37" -"(cons dir_1(hash-ref ht_151 k_37 null)))))" +"(cons dir_1(hash-ref ht_150 k_37 null)))))" "(void)))" "(directory-list dir_1)))" "(if(eq?(car p_67) 'root)" "(let-values()" "(begin" -"(if(hash-ref ht_151 #f #f)" +"(if(hash-ref ht_150 #f #f)" "(void)" -"(let-values()(hash-set! ht_151 #f null)))" +"(let-values()(hash-set! ht_150 #f null)))" "(hash-for-each" -" ht_151" +" ht_150" "(lambda(k_38 v_205)" -"(hash-set! ht_151 k_38(cons dir_1 v_205))))))" +"(hash-set! ht_150 k_38(cons dir_1 v_205))))))" "(let-values()" "(let-values(((s_484)(string->symbol(car p_67))))" "(hash-set!" -" ht_151" +" ht_150" " s_484" -"(cons(box dir_1)(hash-ref ht_151 s_484 null)))))))))" +"(cons(box dir_1)(hash-ref ht_150 s_484 null)))))))))" "(void)))" " v_204)" "(hash-for-each" -" 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))))))))))))))))))))))" +" ht_150" +"(lambda(k_39 v_206)(hash-set! ht_150 k_39(reverse$1 v_206))))" +"(hash-set! links-cache links-path_0(cons ts_1 ht_150))" +" ht_150))))))))))))))))))))))" "(define-values" "(normalize-collection-reference)" "(lambda(collection_2 collection-path_2)" @@ -47382,10 +47441,10 @@ static const char *startup_source = "(hash-ref(car l_81) #f null)" "(loop_47(cdr l_81))))" "(let-values()" -"(let-values(((ht_152)(get-linked-collections(car l_81))))" +"(let-values(((ht_151)(get-linked-collections(car l_81))))" "(append" -"(hash-ref ht_152 sym_95 null)" -"(hash-ref ht_152 #f null)" +"(hash-ref ht_151 sym_95 null)" +"(hash-ref ht_151 #f null)" "(loop_47(cdr l_81))))))))))))" " loop_47)" "(1/current-library-collection-links)))))" @@ -47467,13 +47526,13 @@ static const char *startup_source = "(let-values(((cpath_0)(apply build-path dir_2 collection-path_3)))" "(if(if(null? collection-path_3) #t(directory-exists? cpath_0))" "(if file-name_1" -"(if(let-values(((or-part_303)" +"(if(let-values(((or-part_304)" "(file-exists?/maybe-compiled" " cpath_0" " file-name_1" " check-compiled?_1)))" -"(if or-part_303" -" or-part_303" +"(if or-part_304" +" or-part_304" "(let-values(((alt-file-name_0)" "(let-values(((file-name_2)" "(if(path? file-name_1)" @@ -47603,8 +47662,8 @@ static const char *startup_source = " #f" "(lambda(v_208)" "(begin" -"(if((lambda(x_84)" -"(let-values(((or-part_11)(not x_84)))(if or-part_11 or-part_11(prop:readtable? x_84))))" +"(if((lambda(x_83)" +"(let-values(((or-part_11)(not x_83)))(if or-part_11 or-part_11(prop:readtable? x_83))))" " v_208)" "(void)" " (let-values () (raise-argument-error 'current-readtable \"(or/c prop:readtable? #f)\" v_208)))" @@ -47840,9 +47899,9 @@ static const char *startup_source = " wrap_4" "(let-values(((or-part_52) read-compiled_1))" " (if or-part_52 or-part_52 (lambda (in_0) (error 'read \"no `read-compiled` provided\"))))" -"(let-values(((or-part_304) dynamic-require_1))" -"(if or-part_304" -" or-part_304" +"(let-values(((or-part_305) dynamic-require_1))" +"(if or-part_305" +" or-part_305" "(lambda(mod-path_26 sym_96 failure-k_0)" " (error 'read \"no `dynamic-require` provided\"))))" "(let-values(((or-part_177) module-declared?_1))" @@ -47851,8 +47910,8 @@ static const char *startup_source = " (lambda (mod-path_27) (error 'read \"no `module-declare?` provided\"))))" "(let-values(((or-part_220) coerce_1))" "(if or-part_220 or-part_220(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_102) v_102)))" +"(let-values(((or-part_306) coerce-key_1))" +"(if or-part_306 or-part_306(lambda(for-syntax?_3 v_101) v_101)))" " #f" " #f" " #f" @@ -47878,13 +47937,13 @@ static const char *startup_source = "(let-values(((keep-comment?_2) keep-comment?34_0))" "(let-values()" "(let-values(((v_222) config_0))" -"(let-values(((the-struct_78) v_222))" -"(if(read-config/outer? the-struct_78)" +"(let-values(((the-struct_79) v_222))" +"(if(read-config/outer? the-struct_79)" "(let-values(((wrap55_0) wrap_5)" "((keep-comment?56_0) keep-comment?_2)" "((inner57_0)" -"(let-values(((the-struct_79)(read-config/outer-inner v_222)))" -"(if(read-config/inner? the-struct_79)" +"(let-values(((the-struct_80)(read-config/outer-inner v_222)))" +"(if(read-config/inner? the-struct_80)" "(let-values(((for-syntax?58_0) for-syntax?_4)" "((readtable59_0) readtable_2)" "((next-readtable60_0) next-readtable_2)" @@ -47896,25 +47955,25 @@ static const char *startup_source = " readtable59_0" " next-readtable60_0" " for-syntax?58_0" -"(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)" +"(read-config/inner-source the-struct_80)" +"(read-config/inner-read-compiled the-struct_80)" +"(read-config/inner-dynamic-require the-struct_80)" +"(read-config/inner-module-declared? the-struct_80)" +"(read-config/inner-coerce the-struct_80)" +"(read-config/inner-coerce-key the-struct_80)" +"(read-config/inner-parameter-override the-struct_80)" +"(read-config/inner-parameter-cache the-struct_80)" " st61_0))" -" (raise-argument-error 'struct-copy \"read-config/inner?\" the-struct_79)))))" +" (raise-argument-error 'struct-copy \"read-config/inner?\" the-struct_80)))))" "(read-config/outer1.1" " inner57_0" " wrap55_0" -"(read-config/outer-line the-struct_78)" -"(read-config/outer-col the-struct_78)" -"(read-config/outer-pos the-struct_78)" -"(read-config/outer-indentations the-struct_78)" +"(read-config/outer-line the-struct_79)" +"(read-config/outer-col the-struct_79)" +"(read-config/outer-pos the-struct_79)" +"(read-config/outer-indentations the-struct_79)" " keep-comment?56_0))" -" (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_78)))))))))))))))" +" (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_79)))))))))))))))" "(define-values" "(port+config->srcloc49.1)" "(lambda(end-pos45_0 in47_0 config48_0)" @@ -47925,9 +47984,9 @@ 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_306) given-end-pos_0))" -"(if or-part_306" -" or-part_306" +"(let-values(((or-part_284) given-end-pos_0))" +"(if or-part_284" +" or-part_284" "(let-values(((end-line_0 end-col_0 end-pos_1)(port-next-location in_1)))" " end-pos_1)))))" "(srcloc" @@ -47946,55 +48005,55 @@ static const char *startup_source = "(lambda(config_2 line_2 col_1 pos_109)" "(begin" "(let-values(((v_223) config_2))" -"(let-values(((the-struct_80) v_223))" -"(if(read-config/outer? the-struct_80)" +"(let-values(((the-struct_81) v_223))" +"(if(read-config/outer? the-struct_81)" "(let-values(((line62_0) line_2)" "((col63_0) col_1)" "((pos64_0) pos_109)" "((inner65_0)(read-config/outer-inner v_223)))" "(read-config/outer1.1" " inner65_0" -"(read-config/outer-wrap the-struct_80)" +"(read-config/outer-wrap the-struct_81)" " line62_0" " col63_0" " pos64_0" -"(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)))))))" +"(read-config/outer-indentations the-struct_81)" +"(read-config/outer-keep-comment? the-struct_81)))" +" (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_81)))))))" "(define-values" "(disable-wrapping)" "(lambda(config_3)" "(begin" "(let-values(((v_224) config_3))" -"(let-values(((the-struct_81) v_224))" -"(if(read-config/outer? the-struct_81)" +"(let-values(((the-struct_82) v_224))" +"(if(read-config/outer? the-struct_82)" "(let-values(((wrap66_0) #f)((inner67_0)(read-config/outer-inner v_224)))" "(read-config/outer1.1" " 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)" -"(read-config/outer-keep-comment? the-struct_81)))" -" (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_81)))))))" +"(read-config/outer-line the-struct_82)" +"(read-config/outer-col the-struct_82)" +"(read-config/outer-pos the-struct_82)" +"(read-config/outer-indentations the-struct_82)" +"(read-config/outer-keep-comment? the-struct_82)))" +" (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_82)))))))" "(define-values" "(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(((the-struct_83) v_225))" +"(if(read-config/outer? the-struct_83)" "(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)" +"(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?68_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" "(discard-comment)" "(lambda(config_5)" @@ -48003,18 +48062,18 @@ static const char *startup_source = "(let-values() config_5)" "(let-values()" "(let-values(((v_81) config_5))" -"(let-values(((the-struct_83) v_81))" -"(if(read-config/outer? the-struct_83)" +"(let-values(((the-struct_84) v_81))" +"(if(read-config/outer? the-struct_84)" "(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_83)" -"(read-config/outer-line the-struct_83)" -"(read-config/outer-col the-struct_83)" -"(read-config/outer-pos the-struct_83)" -"(read-config/outer-indentations the-struct_83)" +"(read-config/outer-wrap the-struct_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)" " keep-comment?70_0))" -" (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_83)))))))))" +" (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_84)))))))))" "(define-values" "(next-readtable)" "(lambda(config_6)" @@ -48023,43 +48082,43 @@ static const char *startup_source = "(let-values() config_6)" "(let-values()" "(let-values(((v_226) config_6))" -"(let-values(((the-struct_84) v_226))" -"(if(read-config/outer? the-struct_84)" +"(let-values(((the-struct_85) v_226))" +"(if(read-config/outer? the-struct_85)" "(let-values(((inner72_0)" -"(let-values(((the-struct_85)(read-config/outer-inner v_226)))" -"(if(read-config/inner? the-struct_85)" +"(let-values(((the-struct_86)(read-config/outer-inner v_226)))" +"(if(read-config/inner? the-struct_86)" "(let-values(((readtable73_0)(read-config-next-readtable config_6)))" "(read-config/inner2.1" " readtable73_0" -"(read-config/inner-next-readtable the-struct_85)" -"(read-config/inner-for-syntax? the-struct_85)" -"(read-config/inner-source the-struct_85)" -"(read-config/inner-read-compiled the-struct_85)" -"(read-config/inner-dynamic-require the-struct_85)" -"(read-config/inner-module-declared? the-struct_85)" -"(read-config/inner-coerce the-struct_85)" -"(read-config/inner-coerce-key the-struct_85)" -"(read-config/inner-parameter-override the-struct_85)" -"(read-config/inner-parameter-cache the-struct_85)" -"(read-config/inner-st the-struct_85)))" -" (raise-argument-error 'struct-copy \"read-config/inner?\" the-struct_85)))))" +"(read-config/inner-next-readtable the-struct_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-parameter-override the-struct_86)" +"(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/outer1.1" " inner72_0" -"(read-config/outer-wrap the-struct_84)" -"(read-config/outer-line the-struct_84)" -"(read-config/outer-col the-struct_84)" -"(read-config/outer-pos the-struct_84)" -"(read-config/outer-indentations the-struct_84)" -"(read-config/outer-keep-comment? the-struct_84)))" -" (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_84)))))))))" +"(read-config/outer-wrap the-struct_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)))))))))" "(define-values" "(coerce)" -"(lambda(val_78 in_2 config_7)" +"(lambda(val_77 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_78" +" val_77" "(if for-syntax?_5" "(let-values(((in1_0) in_2)((config2_0) config_7))(port+config->srcloc49.1 #f in1_0 config2_0))" " #f))))))" @@ -48104,36 +48163,36 @@ static const char *startup_source = "(lambda(param_1 config_9 v_30)" "(begin" "(let-values(((v_233) config_9))" -"(let-values(((the-struct_86) v_233))" -"(if(read-config/outer? the-struct_86)" +"(let-values(((the-struct_87) v_233))" +"(if(read-config/outer? the-struct_87)" "(let-values(((inner1_0)" -"(let-values(((the-struct_87)(read-config/outer-inner v_233)))" -"(if(read-config/inner? the-struct_87)" +"(let-values(((the-struct_88)(read-config/outer-inner v_233)))" +"(if(read-config/inner? the-struct_88)" "(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_87)" -"(read-config/inner-next-readtable the-struct_87)" -"(read-config/inner-for-syntax? the-struct_87)" -"(read-config/inner-source the-struct_87)" -"(read-config/inner-read-compiled the-struct_87)" -"(read-config/inner-dynamic-require the-struct_87)" -"(read-config/inner-module-declared? the-struct_87)" -"(read-config/inner-coerce the-struct_87)" -"(read-config/inner-coerce-key the-struct_87)" +"(read-config/inner-readtable the-struct_88)" +"(read-config/inner-next-readtable the-struct_88)" +"(read-config/inner-for-syntax? the-struct_88)" +"(read-config/inner-source the-struct_88)" +"(read-config/inner-read-compiled the-struct_88)" +"(read-config/inner-dynamic-require the-struct_88)" +"(read-config/inner-module-declared? the-struct_88)" +"(read-config/inner-coerce the-struct_88)" +"(read-config/inner-coerce-key the-struct_88)" " parameter-override2_0" -"(read-config/inner-parameter-cache the-struct_87)" -"(read-config/inner-st the-struct_87)))" -" (raise-argument-error 'struct-copy \"read-config/inner?\" the-struct_87)))))" +"(read-config/inner-parameter-cache the-struct_88)" +"(read-config/inner-st the-struct_88)))" +" (raise-argument-error 'struct-copy \"read-config/inner?\" the-struct_88)))))" "(read-config/outer1.1" " inner1_0" -"(read-config/outer-wrap the-struct_86)" -"(read-config/outer-line the-struct_86)" -"(read-config/outer-col the-struct_86)" -"(read-config/outer-pos the-struct_86)" -"(read-config/outer-indentations the-struct_86)" -"(read-config/outer-keep-comment? the-struct_86)))" -" (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_86)))))))" +"(read-config/outer-wrap the-struct_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-indentations the-struct_87)" +"(read-config/outer-keep-comment? the-struct_87)))" +" (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_87)))))))" "(define-values" "(force-parameters!)" "(lambda(config_10)" @@ -48225,23 +48284,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_84)(car args_8)))" +"(let-values(((key_83)(car args_8)))" "(let-values((()" "(begin" -"(if(let-values(((or-part_164)(not key_84)))" -"(if or-part_164 or-part_164(char? key_84)))" +"(if(let-values(((or-part_164)(not key_83)))" +"(if or-part_164 or-part_164(char? key_83)))" "(void)" "(let-values()" "(raise-argument-error" " 'make-readtable" " \"(or/c char? #f)\"" -" key_84)))" +" key_83)))" "(values))))" "(let-values((()" "(begin" "(if(null? args_8)" "(let-values()" -"(if key_84" +"(if key_83" "(let-values()" "(raise-arguments-error" " 'make-readtable" @@ -48249,7 +48308,7 @@ static const char *startup_source = " \"expected 'terminating-macro, 'non-terminating-macro, 'dispatch-macro,\"" " \" or character argument after character argument\")" " \"character\"" -" key_84))" +" key_83))" "(let-values()" "(raise-arguments-error" " 'make-readtable" @@ -48259,7 +48318,7 @@ static const char *startup_source = "(let-values(((mode_17)(cadr args_8)))" "(let-values((()" "(begin" -"(if key_84" +"(if key_83" "(let-values()" "(if(let-values(((or-part_258)" "(eq? mode_17 'terminating-macro)))" @@ -48271,10 +48330,10 @@ static const char *startup_source = " 'non-terminating-macro)))" "(if or-part_259" " or-part_259" -"(let-values(((or-part_294)" +"(let-values(((or-part_295)" "(eq? mode_17 'dispatch-macro)))" -"(if or-part_294" -" or-part_294" +"(if or-part_295" +" or-part_295" "(char? mode_17)))))))" "(void)" "(let-values()" @@ -48296,7 +48355,7 @@ static const char *startup_source = "(let-values()" "(raise-arguments-error" " 'make-readtable" -"(if key_84" +"(if key_83" " \"expected readtable or #f argument after character argument\"" " \"expected procedure argument after symbol argument\")" " \"given\"" @@ -48305,7 +48364,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_84)" +"(if(not key_83)" "(let-values()" "(begin" "(if(if(procedure? target_0)" @@ -48339,16 +48398,16 @@ static const char *startup_source = " rest-args_0" " symbol-parser_0" " char-ht_0" -"(hash-set dispatch-ht_0 key_84 target_0)" +"(hash-set dispatch-ht_0 key_83 target_0)" " delimiter-ht_0)))" "(if(char? mode_17)" "(let-values()" "(let-values((()" "(begin" -"(if(let-values(((or-part_286)" +"(if(let-values(((or-part_287)" "(not target_0)))" -"(if or-part_286" -" or-part_286" +"(if or-part_287" +" or-part_287" "(1/readtable? target_0)))" "(void)" "(let-values()" @@ -48370,13 +48429,13 @@ static const char *startup_source = "(if actual-target_0" "(hash-set" " char-ht_0" -" key_84" +" key_83" " actual-target_0)" -"(hash-remove char-ht_0 key_84))))" +"(hash-remove char-ht_0 key_83))))" "(let-values(((new-delimiter-ht_0)" "(hash-set" " delimiter-ht_0" -" key_84" +" key_83" "(if target_0" "(hash-ref" "(readtable-delimiter-ht target_0)" @@ -48403,11 +48462,11 @@ static const char *startup_source = " target_0)))" "(values))))" "(let-values(((new-char-ht_1)" -"(hash-set char-ht_0 key_84 target_0)))" +"(hash-set char-ht_0 key_83 target_0)))" "(let-values(((new-delimiter-ht_1)" "(hash-set" " delimiter-ht_0" -" key_84" +" key_83" "(if(eq? mode_17 'terminating-macro)" " 'delimit" " 'no-delimit))))" @@ -48513,24 +48572,24 @@ static const char *startup_source = "(readtable-equivalent-chars)" "(lambda(rt_6 c_64)" "(begin" -"(let-values(((ht_153)(readtable-char-ht rt_6)))" +"(let-values(((ht_152)(readtable-char-ht rt_6)))" "(append" -"(if(hash-ref ht_153 c_64 #f) null(list c_64))" +"(if(hash-ref ht_152 c_64 #f) null(list c_64))" "(reverse$1" -"(let-values(((ht_154) ht_153))" +"(let-values(((ht_153) ht_152))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_154)))" -"((letrec-values(((for-loop_273)" -"(lambda(fold-var_85 i_169)" +"(let-values()(check-in-hash ht_153)))" +"((letrec-values(((for-loop_271)" +"(lambda(fold-var_85 i_168)" "(begin" " 'for-loop" -"(if i_169" -"(let-values(((k_40 v_94)(hash-iterate-key+value ht_154 i_169)))" +"(if i_168" +"(let-values(((k_40 v_91)(hash-iterate-key+value ht_153 i_168)))" "(let-values(((fold-var_282)" "(let-values(((fold-var_88) fold-var_85))" -"(if(eqv? v_94 c_64)" +"(if(eqv? v_91 c_64)" "(let-values(((fold-var_237) fold-var_88))" "(let-values(((fold-var_13)" "(let-values()" @@ -48538,12 +48597,12 @@ static const char *startup_source = "(values fold-var_13)))" " fold-var_88))))" "(if(not #f)" -"(for-loop_273 fold-var_282(hash-iterate-next ht_154 i_169))" +"(for-loop_271 fold-var_282(hash-iterate-next ht_153 i_168))" " fold-var_282)))" " fold-var_85)))))" -" for-loop_273)" +" for-loop_271)" " null" -"(hash-iterate-first ht_154))))))))))" +"(hash-iterate-first ht_153))))))))))" "(define-values" "(struct:special special1.1 special? special-value)" "(let-values(((struct:_83 make-_83 ?_83 -ref_83 -set!_83)" @@ -48909,9 +48968,9 @@ static const char *startup_source = "(let-values(((or-part_312)(char=? dc_0 '#\\()))" "(if or-part_312" " or-part_312" -"(let-values(((or-part_291)(char=? dc_0 '#\\))))" -"(if or-part_291" -" or-part_291" +"(let-values(((or-part_292)(char=? dc_0 '#\\))))" +"(if or-part_292" +" or-part_292" "(let-values(((or-part_27)(char=? dc_0 '#\\[)))" "(if or-part_27" " or-part_27" @@ -49007,7 +49066,7 @@ static const char *startup_source = "(if(check-parameter 1/read-curly-brace-as-paren config_21)(opener-name '#\\{ config_21) #f)))" "(if(if s_10 c_72 #f)" " (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))" +"(if(let-values(((or-part_299) s_10))(if or-part_299 or-part_299 c_72))" "(let-values()" " (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)))))))))" @@ -49191,22 +49250,22 @@ static const char *startup_source = " (let-values () (format \"unexpected `~a`\" c_73))" "(let-values()" "(let-values(((missing_2)" -"(let-values(((or-part_301)" +"(let-values(((or-part_302)" "(let-values(((lst_7)(cdr indts_1)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_7)))" "((letrec-values(((for-loop_0)" -"(lambda(result_119 lst_8)" +"(lambda(result_118 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_82)" +"(let-values(((result_81)" "(let-values()" -"(let-values(((result_120)" +"(let-values(((result_119)" "(let-values()" "(let-values()" "(if(char=?" @@ -49215,19 +49274,19 @@ static const char *startup_source = " indt_3))" " \"missing\"" " #f)))))" -"(values result_120)))))" +"(values result_119)))))" "(if(if(not" -"((lambda x_85 result_82)" +"((lambda x_84 result_81)" " indt_3))" "(not #f)" " #f)" -"(for-loop_0 result_82 rest_0)" -" result_82)))" -" result_119)))))" +"(for-loop_0 result_81 rest_0)" +" result_81)))" +" result_118)))))" " for-loop_0)" " #f" " lst_7)))))" -" (if or-part_301 or-part_301 \"expected\"))))" +" (if or-part_302 or-part_302 \"expected\"))))" "(let-values(((opener-str_0)(opener-name(closer->opener(indentation-closer indt_2)) config_33)))" "(format" " \"~a ~a to close ~a, found instead `~a`\"" @@ -49276,8 +49335,8 @@ static const char *startup_source = "(let-values(((indentation_0)(make-indentation closer_1 in_20 seq-config_0)))" "(let-values(((config_34)" "(let-values(((v_236) elem-config_0))" -"(let-values(((the-struct_88) v_236))" -"(if(read-config/outer? the-struct_88)" +"(let-values(((the-struct_89) v_236))" +"(if(read-config/outer? the-struct_89)" "(let-values(((indentations20_0)" "(cons" " indentation_0" @@ -49285,16 +49344,16 @@ static const char *startup_source = "((inner21_0)(read-config/outer-inner v_236)))" "(read-config/outer1.1" " inner21_0" -"(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)" +"(read-config/outer-wrap the-struct_89)" +"(read-config/outer-line the-struct_89)" +"(read-config/outer-col the-struct_89)" +"(read-config/outer-pos the-struct_89)" " indentations20_0" -"(read-config/outer-keep-comment? the-struct_88)))" +"(read-config/outer-keep-comment? the-struct_89)))" "(raise-argument-error" " 'struct-copy" " \"read-config/outer?\"" -" the-struct_88))))))" +" the-struct_89))))))" "(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)))" @@ -49764,8 +49823,8 @@ static const char *startup_source = " \"(or/c 'decimal-as-inexact decimal-as-exact)\"" " decimal-mode_0)))" "(let-values(((s66_1) s_87)" -"((temp67_2) 0)" -"((temp68_2)(string-length s_87))" +"((temp67_3) 0)" +"((temp68_3)(string-length s_87))" "((radix69_0) radix_0)" "((temp70_1) #f)" "((decimal-mode71_0) decimal-mode_0)" @@ -49774,15 +49833,15 @@ static const char *startup_source = " #f" " temp70_1" " s66_1" -" temp67_2" -" temp68_2" +" temp67_3" +" temp68_3" " radix69_0" " decimal-mode71_0" " convert-mode72_0))))))))))))))" "(case-lambda" -"((s_307)(begin 'string->number(string->number5_0 s_307 10 'number-or-false unsafe-undefined)))" +"((s_308)(begin 'string->number(string->number5_0 s_308 10 'number-or-false unsafe-undefined)))" "((s_486 radix_1 convert-mode_1 decimal-mode3_1)(string->number5_0 s_486 radix_1 convert-mode_1 decimal-mode3_1))" -"((s_186 radix_2 convert-mode2_1)(string->number5_0 s_186 radix_2 convert-mode2_1 unsafe-undefined))" +"((s_187 radix_2 convert-mode2_1)(string->number5_0 s_187 radix_2 convert-mode2_1 unsafe-undefined))" "((s_487 radix1_1)(string->number5_0 s_487 radix1_1 'number-or-false unsafe-undefined)))))" "(define-values" "(do-string->number17.1)" @@ -49814,8 +49873,8 @@ static const char *startup_source = " (let-values () (format \"no character after `#` indicator in `~.a`\" s_17))" "(let-values() #f)))" "(let-values()" -"(let-values(((i_170)(string-ref s_17 next_4)))" -"(let-values(((tmp_38) i_170))" +"(let-values(((i_169)(string-ref s_17 next_4)))" +"(let-values(((tmp_38) i_169))" "(let-values(((index_2)" "(if(char? tmp_38)" "(let-values(((codepoint_0)(char->integer tmp_38)))" @@ -49889,7 +49948,7 @@ static const char *startup_source = "(let-values()" "(format" " \"bad `#` indicator `~a` at `~.a`\"" -" i_170" +" i_169" "(substring s_17 start_43 end_33)))" "(let-values() #f)))" "(if(unsafe-fx< index_2 2)" @@ -49905,16 +49964,16 @@ static const char *startup_source = "(let-values() #f)))" "(let-values()" "(let-values(((s73_1) s_17)" -"((temp74_2)(add1 next_4))" +"((temp74_1)(add1 next_4))" "((end75_0) end_33)" "((radix76_0) radix_3)" "((radix-set?77_0) radix-set?_0)" "((temp78_2)" "(if(let-values(((or-part_210)" -"(char=? i_170 '#\\e)))" +"(char=? i_169 '#\\e)))" "(if or-part_210" " or-part_210" -"(char=? i_170 '#\\E)))" +"(char=? i_169 '#\\E)))" " 'exact" " 'inexact))" "((temp79_0)" @@ -49925,7 +49984,7 @@ static const char *startup_source = " #f" " radix-set?77_0" " s73_1" -" temp74_2" +" temp74_1" " end75_0" " radix76_0" " temp78_2" @@ -49942,7 +50001,7 @@ static const char *startup_source = "(let-values() #f)))" "(let-values()" "(let-values(((radix_4)" -"(let-values(((tmp_39) i_170))" +"(let-values(((tmp_39) i_169))" "(if(if(equal? tmp_39 '#\\b)" " #t" "(equal? tmp_39 '#\\B))" @@ -49956,7 +50015,7 @@ static const char *startup_source = "(equal? tmp_39 '#\\D))" "(let-values() 10)" "(let-values() 16)))))))" -"(let-values(((s80_1) s_17)" +"(let-values(((s80_0) s_17)" "((temp81_0)(add1 next_4))" "((end82_0) end_33)" "((radix83_0) radix_4)" @@ -49969,7 +50028,7 @@ static const char *startup_source = "(do-string->number17.1" " #f" " temp84_1" -" s80_1" +" s80_0" " temp81_0" " end82_0" " radix83_0" @@ -50007,8 +50066,8 @@ static const char *startup_source = "(if c2_3" "((lambda(v_39)" "(let-values(((s87_0) s_17)" -"((temp88_2)(+ start_43 6))" -"((temp89_3)(sub1 end_33))" +"((temp88_1)(+ start_43 6))" +"((temp89_2)(sub1 end_33))" "((radix90_0) radix_3)" "((exactness91_0) exactness_0)" "((convert-mode92_0) convert-mode_2)" @@ -50021,8 +50080,8 @@ static const char *startup_source = " temp93_1" " #f" " s87_0" -" temp88_2" -" temp89_3" +" temp88_1" +" temp89_2" " radix90_0" " exactness91_0" " convert-mode92_0" @@ -50050,14 +50109,14 @@ static const char *startup_source = "(let-values()" "(let-values(((s96_0) s_17)" "((start97_0) start_43)" -"((temp98_1)(- end_33 7))" +"((temp98_2)(- end_33 7))" "((radix99_0) radix_3)" "((exactness100_0) exactness_0)" "((convert-mode101_0) convert-mode_2)" "((temp102_0) 'i)" "((temp103_0) #t)" "((v2104_0) v2_1)" -"((temp105_0)" +"((temp105_1)" "(lambda(v2_2 v_216)" "(begin 'temp105(make-rectangular v_216 v2_2)))))" "(read-for-special-compound62.1" @@ -50065,12 +50124,12 @@ static const char *startup_source = " temp103_0" " s96_0" " start97_0" -" temp98_1" +" temp98_2" " radix99_0" " exactness100_0" " convert-mode101_0" " v2104_0" -" temp105_0)))))" +" temp105_1)))))" " c3_3)" "(let-values(((c4_0)" "(if(char-sign? c_64)" @@ -50172,7 +50231,7 @@ static const char *startup_source = "(lambda(in-complex21_0 radix-set?20_0 s24_2 start25_0 end26_0 radix27_0 exactness28_0 convert-mode29_0)" "(begin" " 'do-string->non-special-number30" -"(let-values(((s_456) s24_2))" +"(let-values(((s_455) s24_2))" "(let-values(((start_44) start25_0))" "(let-values(((end_34) end26_0))" "(let-values(((radix_5) radix27_0))" @@ -50182,7 +50241,7 @@ static const char *startup_source = "(let-values(((convert-mode_3) convert-mode29_0))" "(let-values()" "((letrec-values(((loop_111)" -"(lambda(i_171" +"(lambda(i_170" " any-digits?_0" " any-hashes?_0" " i-pos_3" @@ -50194,7 +50253,7 @@ static const char *startup_source = " must-i?_0)" "(begin" " 'loop" -"(if(= i_171 end_34)" +"(if(= i_170 end_34)" "(let-values()" "(if(if(not any-digits?_0)(not i-pos_3) #f)" "(let-values()" @@ -50202,7 +50261,7 @@ static const char *startup_source = "(let-values()" "(format" " \"no digits in `~.a`\"" -"(substring s_456 start_44 end_34)))" +"(substring s_455 start_44 end_34)))" "(let-values() #f)))" "(if(if must-i?_0(not i-pos_3) #f)" "(let-values()" @@ -50210,7 +50269,7 @@ static const char *startup_source = "(let-values()" "(format" " \"too many signs in `~.a`\"" -"(substring s_456 start_44 end_34)))" +"(substring s_455 start_44 end_34)))" "(let-values() #f)))" "(if(if sign-pos_0" "(let-values(((or-part_314)" @@ -50224,11 +50283,11 @@ static const char *startup_source = "(let-values()" "(format" " \"misplaced sign in `~.a`\"" -"(substring s_456 start_44 end_34)))" +"(substring s_455 start_44 end_34)))" "(let-values() #f)))" "(if i-pos_3" "(let-values()" -"(let-values(((s133_0) s_456)" +"(let-values(((s133_0) s_455)" "((start134_0) start_44)" "((sign-pos135_0) sign-pos_0)" "((sign-pos136_0) sign-pos_0)" @@ -50255,7 +50314,7 @@ static const char *startup_source = " convert-mode144_0)))" "(if @-pos_0" "(let-values()" -"(let-values(((s145_0) s_456)" +"(let-values(((s145_0) s_455)" "((start146_0) start_44)" "((@-pos147_0) @-pos_0)" "((temp148_1)(add1 @-pos_0))" @@ -50282,7 +50341,7 @@ static const char *startup_source = " convert-mode156_0)))" "(let-values()" "(string->real-number" -" s_456" +" s_455" " start_44" " end_34" " dot-pos_1" @@ -50293,11 +50352,11 @@ static const char *startup_source = " exactness_1" " convert-mode_3))))))))" "(let-values()" -"(let-values(((c_79)(string-ref s_456 i_171)))" +"(let-values(((c_79)(string-ref s_455 i_170)))" "(if(digit? c_79 radix_5)" "(let-values()" "(loop_111" -"(add1 i_171)" +"(add1 i_170)" " #t" " any-hashes?_0" " i-pos_3" @@ -50310,7 +50369,7 @@ static const char *startup_source = "(if(char=? c_79 '#\\#)" "(let-values()" "(loop_111" -"(add1 i_171)" +"(add1 i_170)" " #t" " #t" " i-pos_3" @@ -50328,24 +50387,24 @@ static const char *startup_source = "(let-values()" "(format" " \"too many signs in `~.a`\"" -"(substring s_456 start_44 end_34)))" +"(substring s_455 start_44 end_34)))" "(let-values() #f)))" "(let-values()" "(loop_111" -"(add1 i_171)" +"(add1 i_170)" " any-digits?_0" " any-hashes?_0" " i-pos_3" " @-pos_0" -" i_171" +" i_170" " dot-pos_1" " slash-pos_0" " #f" -"(if(> i_171 start_44)" +"(if(> i_170 start_44)" "(let-values(((or-part_315)(not @-pos_0)))" "(if or-part_315" " or-part_315" -"(> i_171(add1 @-pos_0))))" +"(> i_170(add1 @-pos_0))))" " #f)))))" "(if(char=? c_79 '#\\.)" "(let-values()" @@ -50370,12 +50429,12 @@ static const char *startup_source = "(let-values()" "(format" " \"misplaced `.` in `~.a`\"" -"(substring s_456 start_44 end_34)))" +"(substring s_455 start_44 end_34)))" "(let-values() #f)))" "(if(if slash-pos_0" -"(let-values(((or-part_279)(not sign-pos_0)))" -"(if or-part_279" -" or-part_279" +"(let-values(((or-part_281)(not sign-pos_0)))" +"(if or-part_281" +" or-part_281" "(> slash-pos_0 sign-pos_0)))" " #f)" "(let-values()" @@ -50383,17 +50442,17 @@ static const char *startup_source = "(let-values()" "(format" " \"decimal points and fractions annot be mixed `~.a`\"" -"(substring s_456 start_44 end_34)))" +"(substring s_455 start_44 end_34)))" "(let-values() #f)))" "(let-values()" "(loop_111" -"(add1 i_171)" +"(add1 i_170)" " any-digits?_0" " any-hashes?_0" " i-pos_3" " @-pos_0" " sign-pos_0" -" i_171" +" i_170" " #f" " #f" " must-i?_0)))))" @@ -50410,7 +50469,7 @@ static const char *startup_source = "(let-values()" "(format" " \"decimal points and fractions annot be mixed `~.a`\"" -"(substring s_456 start_44 end_34)))" +"(substring s_455 start_44 end_34)))" "(let-values() #f)))" "(if(let-values(((or-part_319)" "(if exp-pos_0" @@ -50434,18 +50493,18 @@ static const char *startup_source = "(let-values()" "(format" " \"misplaced `/` in `~.a`\"" -"(substring s_456 start_44 end_34)))" +"(substring s_455 start_44 end_34)))" "(let-values() #f)))" "(let-values()" "(loop_111" -"(add1 i_171)" +"(add1 i_170)" " any-digits?_0" " any-hashes?_0" " i-pos_3" " @-pos_0" " sign-pos_0" " #f" -" i_171" +" i_170" " #f" " must-i?_0)))))" "(if(let-values(((or-part_322)(char=? c_79 '#\\e)))" @@ -50511,14 +50570,14 @@ static const char *startup_source = "(format" " \"misplaced `~a` in `~.a`\"" " c_79" -"(substring s_456 start_44 end_34)))" +"(substring s_455 start_44 end_34)))" "(let-values() #f)))" -"(if(if(<(add1 i_171) end_34)" -"(char-sign?(string-ref s_456(add1 i_171)))" +"(if(if(<(add1 i_170) end_34)" +"(char-sign?(string-ref s_455(add1 i_170)))" " #f)" "(let-values()" "(loop_111" -"(+ i_171 2)" +"(+ i_170 2)" " any-digits?_0" " any-hashes?_0" " i-pos_3" @@ -50527,11 +50586,11 @@ static const char *startup_source = " dot-pos_1" " slash-pos_0" "(let-values(((or-part_330) exp-pos_0))" -"(if or-part_330 or-part_330 i_171))" +"(if or-part_330 or-part_330 i_170))" " must-i?_0))" "(let-values()" "(loop_111" -"(+ i_171 1)" +"(+ i_170 1)" " any-digits?_0" " any-hashes?_0" " i-pos_3" @@ -50540,7 +50599,7 @@ static const char *startup_source = " dot-pos_1" " slash-pos_0" "(let-values(((or-part_331) exp-pos_0))" -"(if or-part_331 or-part_331 i_171))" +"(if or-part_331 or-part_331 i_170))" " must-i?_0)))))" "(if(char=? c_79 '#\\@)" "(let-values()" @@ -50550,26 +50609,26 @@ static const char *startup_source = "(let-values()" "(format" " \"cannot mix `@` and `i` in `~.a`\"" -"(substring s_456 start_44 end_34)))" +"(substring s_455 start_44 end_34)))" "(let-values() #f)))" -"(if(let-values(((or-part_159) @-pos_0))" -"(if or-part_159" -" or-part_159" +"(if(let-values(((or-part_332) @-pos_0))" +"(if or-part_332" +" or-part_332" "(eq? in-complex_1 '@)))" "(let-values()" "(if(eq? convert-mode_3 'must-read)" "(let-values()" "(format" " \"too many `@`s in `~.a`\"" -"(substring s_456 start_44 end_34)))" +"(substring s_455 start_44 end_34)))" "(let-values() #f)))" -"(if(= i_171 start_44)" +"(if(= i_170 start_44)" "(let-values()" "(if(eq? convert-mode_3 'must-read)" "(let-values()" "(format" " \"`@` cannot be at start in `~.a`\"" -"(substring s_456 start_44 end_34)))" +"(substring s_455 start_44 end_34)))" "(let-values() #f)))" "(if must-i?_0" "(let-values()" @@ -50577,24 +50636,24 @@ static const char *startup_source = "(let-values()" "(format" " \"too many signs in `~.a`\"" -"(substring s_456 start_44 end_34)))" +"(substring s_455 start_44 end_34)))" "(let-values() #f)))" "(let-values()" "(loop_111" -"(add1 i_171)" +"(add1 i_170)" " any-digits?_0" " any-hashes?_0" " i-pos_3" -" i_171" +" i_170" " #f" " #f" " #f" " #f" " must-i?_0)))))))" -"(if(if(let-values(((or-part_332)" +"(if(if(let-values(((or-part_159)" "(char=? c_79 '#\\i)))" -"(if or-part_332" -" or-part_332" +"(if or-part_159" +" or-part_159" "(char=? c_79 '#\\I)))" " sign-pos_0" " #f)" @@ -50608,10 +50667,10 @@ static const char *startup_source = "(let-values()" "(format" " \"cannot mix `@` and `i` in `~.a`\"" -"(substring s_456 start_44 end_34)))" +"(substring s_455 start_44 end_34)))" "(let-values() #f)))" "(if(let-values(((or-part_334)" -"(<(add1 i_171) end_34)))" +"(<(add1 i_170) end_34)))" "(if or-part_334" " or-part_334" "(eq? in-complex_1 'i)))" @@ -50620,14 +50679,14 @@ static const char *startup_source = "(let-values()" "(format" " \"`i` must be at the end in `~.a`\"" -"(substring s_456 start_44 end_34)))" +"(substring s_455 start_44 end_34)))" "(let-values() #f)))" "(let-values()" "(loop_111" -"(add1 i_171)" +"(add1 i_170)" " any-digits?_0" " any-hashes?_0" -" i_171" +" i_170" " @-pos_0" " sign-pos_0" " #f" @@ -50639,7 +50698,7 @@ static const char *startup_source = "(let-values()" "(if(eq? convert-mode_3 'must-read)" "(let-values()" -" (format \"nul character in `~.a`\" s_456))" +" (format \"nul character in `~.a`\" s_455))" "(let-values() #f)))" "(let-values()" "(if(eq? convert-mode_3 'must-read)" @@ -50757,10 +50816,10 @@ static const char *startup_source = " p_74))))))))))))))))))))))))))))" "(define-values" "(string->real-number)" -"(lambda(s_333 start_45 end_35 dot-pos_2 slash-pos_1 exp-pos_1 any-hashes?_1 radix_7 exactness_3 convert-mode_5)" +"(lambda(s_334 start_45 end_35 dot-pos_2 slash-pos_1 exp-pos_1 any-hashes?_1 radix_7 exactness_3 convert-mode_5)" "(begin" "(let-values(((extfl-mark?_0)" -"(lambda()(begin 'extfl-mark?(char=?(char-downcase(string-ref s_333 exp-pos_1)) '#\\t)))))" +"(lambda()(begin 'extfl-mark?(char=?(char-downcase(string-ref s_334 exp-pos_1)) '#\\t)))))" "(let-values(((simple?_0)" "(if(not slash-pos_1)" "(if(let-values(((or-part_337)(eq? exactness_3 'inexact)))" @@ -50773,17 +50832,17 @@ static const char *startup_source = " or-part_339" "(let-values(((or-part_222)(not(eq? convert-mode_5 'number-or-false))))" "(if or-part_222 or-part_222(not(extfl-mark?_0))))))" -"(not(if any-hashes?_1(hashes? s_333 start_45 end_35) #f))" +"(not(if any-hashes?_1(hashes? s_334 start_45 end_35) #f))" " #f)" " #f)" " #f)))" -"(let-values(((has-sign?_0)(if(> end_35 start_45)(char-sign?(string-ref s_333 start_45)) #f)))" +"(let-values(((has-sign?_0)(if(> end_35 start_45)(char-sign?(string-ref s_334 start_45)) #f)))" "(if(=(- end_35 start_45)(+(if dot-pos_2 1 0)(if exp-pos_1 1 0)(if has-sign?_0 1 0)))" "(let-values()" "(if(= end_35 start_45)" " (if (eq? convert-mode_5 'must-read) (let-values () (format \"missing digits\")) (let-values () #f))" "(if(eq? convert-mode_5 'must-read)" -" (let-values () (format \"missing digits in `~.a`\" (substring s_333 start_45 end_35)))" +" (let-values () (format \"missing digits in `~.a`\" (substring s_334 start_45 end_35)))" "(let-values() #f))))" "(if simple?_0" "(let-values()" @@ -50795,23 +50854,23 @@ static const char *startup_source = "(let-values()" "(if(eq? convert-mode_5 'must-read)" "(let-values()" -" (format \"missing digits before exponent marker in `~.a`\" (substring s_333 start_45 end_35)))" +" (format \"missing digits before exponent marker in `~.a`\" (substring s_334 start_45 end_35)))" "(let-values() #f)))" "(if(if exp-pos_1" "(let-values(((or-part_340)(= exp-pos_1(sub1 end_35))))" "(if or-part_340" " or-part_340" -"(if(= exp-pos_1(- end_35 2))(char-sign?(string-ref s_333(sub1 end_35))) #f)))" +"(if(= exp-pos_1(- end_35 2))(char-sign?(string-ref s_334(sub1 end_35))) #f)))" " #f)" "(let-values()" "(if(eq? convert-mode_5 'must-read)" "(let-values()" -" (format \"missing digits after exponent marker in `~.a`\" (substring s_333 start_45 end_35)))" +" (format \"missing digits after exponent marker in `~.a`\" (substring s_334 start_45 end_35)))" "(let-values() #f)))" "(let-values()" "(let-values(((n_31)" "(string->number$1" -"(maybe-substring s_333 start_45 end_35)" +"(maybe-substring s_334 start_45 end_35)" " radix_7" "(if(let-values(((or-part_341)(eq? convert-mode_5 'number-or-false)))" "(if or-part_341" @@ -50825,7 +50884,7 @@ static const char *startup_source = "(error" " 'string->number" " \"host `string->number` failed on ~s\"" -"(substring s_333 start_45 end_35)))" +"(substring s_334 start_45 end_35)))" "(if(eq? exactness_3 'inexact)" "(let-values()" "(if(extflonum? n_31)" @@ -50834,9 +50893,9 @@ static const char *startup_source = "(let-values()" "(format" " \"cannot convert extflonum `~.a` to inexact\"" -"(substring s_333 start_45 end_35)))" +"(substring s_334 start_45 end_35)))" "(let-values() #f)))" -"(if(if(eqv? n_31 0)(char=?(string-ref s_333 start_45) '#\\-) #f)" +"(if(if(eqv? n_31 0)(char=?(string-ref s_334 start_45) '#\\-) #f)" "(let-values() -0.0)" "(let-values()(exact->inexact n_31)))))" "(let-values() n_31))))))))" @@ -50844,7 +50903,7 @@ static const char *startup_source = "(let-values()" "(let-values(((m-v_0)" "(string->real-number" -" s_333" +" s_334" " start_45" " exp-pos_1" " dot-pos_2" @@ -50855,12 +50914,12 @@ static const char *startup_source = " 'exact" " convert-mode_5)))" "(let-values(((e-v_0)" -"(string->exact-integer-number s_333(+ exp-pos_1 1) end_35 radix_7 convert-mode_5)))" +"(string->exact-integer-number s_334(+ exp-pos_1 1) end_35 radix_7 convert-mode_5)))" "(let-values(((real->precision-inexact_0)" "(lambda(r_46)" "(begin" " 'real->precision-inexact" -"(let-values(((tmp_40)(string-ref s_333 exp-pos_1)))" +"(let-values(((tmp_40)(string-ref s_334 exp-pos_1)))" "(if(if(equal? tmp_40 '#\\s)" " #t" "(if(equal? tmp_40 '#\\S)" @@ -50872,7 +50931,7 @@ static const char *startup_source = "(if(extflonum-available?)" "(real->extfl r_46)" "(string->number$1" -"(replace-hashes s_333 start_45 end_35)" +"(replace-hashes s_334 start_45 end_35)" " radix_7" " 'read)))" "(let-values()(real->double-flonum r_46)))))))))" @@ -50892,7 +50951,7 @@ static const char *startup_source = "(let-values()" "(real->precision-inexact_0" "(if(eqv? m-v_0 0)" -"(let-values()(if(char=?(string-ref s_333 start_45) '#\\-) -0.0 0.0))" +"(let-values()(if(char=?(string-ref s_334 start_45) '#\\-) -0.0 0.0))" "(if(positive? m-v_0)" "(let-values()(if(positive? e-v_0) +inf.0 0.0))" "(let-values()(if(positive? e-v_0) -inf.0 -0.0))))))" @@ -50902,7 +50961,7 @@ static const char *startup_source = "(let-values()" "(format" " \"cannot convert extflonum `~.a` to ~a\"" -"(substring s_333 start_45 end_35)" +"(substring s_334 start_45 end_35)" " exactness_3))" "(let-values() #f)))" "(let-values()" @@ -50912,14 +50971,14 @@ static const char *startup_source = "(if or-part_344 or-part_344(eq? exactness_3 'decimal-as-exact)))" " #f)" "(let-values() n_32)" -"(if(if(eqv? n_32 0)(char=?(string-ref s_333 start_45) '#\\-) #f)" +"(if(if(eqv? n_32 0)(char=?(string-ref s_334 start_45) '#\\-) #f)" "(let-values()(real->precision-inexact_0 -0.0))" "(let-values()(real->precision-inexact_0 n_32)))))))))))))))))" "(if slash-pos_1" "(let-values()" "(let-values(((n-v_0)" "(string->real-number" -" s_333" +" s_334" " start_45" " slash-pos_1" " #f" @@ -50931,7 +50990,7 @@ static const char *startup_source = " convert-mode_5)))" "(let-values(((d-v_0)" "(string->real-number" -" s_333" +" s_334" "(add1 slash-pos_1)" " end_35" " #f" @@ -50949,7 +51008,7 @@ static const char *startup_source = "(if or-part_345" " or-part_345" "(if(not(eq? exactness_3 'exact))" -"(hashes? s_333 from-pos_0 end_35)" +"(hashes? s_334 from-pos_0 end_35)" " #f)))))))" "(if(let-values(((or-part_346)(not n-v_0)))(if or-part_346 or-part_346(not d-v_0)))" "(let-values() #f)" @@ -50964,14 +51023,14 @@ static const char *startup_source = "(let-values()" "(if(eq?(read-complains convert-mode_5) 'must-read)" "(let-values()" -" (format \"division by zero in `~.a`\" (substring s_333 start_45 end_35)))" +" (format \"division by zero in `~.a`\" (substring s_334 start_45 end_35)))" "(let-values() #f)))))" "(let-values()" "(let-values(((n_33)(/ n-v_0 d-v_0)))" "(if(get-inexact?_0 start_45)(exact->inexact n_33) n_33)))))))))))" "(let-values()" "(string->decimal-number" -" s_333" +" s_334" " start_45" " end_35" " dot-pos_2" @@ -50987,10 +51046,10 @@ static const char *startup_source = "(if or-part_186 or-part_186(eq? exactness_4 'decimal-as-exact)))))" "(let-values(((new-str_0)(make-string(- end_36 start_46(if(if dot-pos_3 get-exact?_0 #f) 1 0)))))" "((letrec-values(((loop_112)" -"(lambda(i_172 j_3 hashes-pos_0)" +"(lambda(i_171 j_3 hashes-pos_0)" "(begin" " 'loop" -"(if(< i_172 start_46)" +"(if(< i_171 start_46)" "(let-values()" "(if(= hashes-pos_0 start_46)" "(let-values()" @@ -51011,38 +51070,38 @@ static const char *startup_source = "(let-values()(/ n_34(expt 10(- end_36 dot-pos_3 1))))" "(let-values() n_34))))))))" "(let-values()" -"(let-values(((c_80)(string-ref s_488 i_172)))" +"(let-values(((c_80)(string-ref s_488 i_171)))" "(if(char=? c_80 '#\\.)" "(let-values()" "(if get-exact?_0" "(let-values()" "(loop_112" -"(sub1 i_172)" +"(sub1 i_171)" " j_3" -"(if(= hashes-pos_0(add1 i_172)) i_172 hashes-pos_0)))" +"(if(= hashes-pos_0(add1 i_171)) i_171 hashes-pos_0)))" "(let-values()" "(begin" "(string-set! new-str_0 j_3 c_80)" "(loop_112" -"(sub1 i_172)" +"(sub1 i_171)" "(sub1 j_3)" -"(if(= hashes-pos_0(add1 i_172)) i_172 hashes-pos_0))))))" +"(if(= hashes-pos_0(add1 i_171)) i_171 hashes-pos_0))))))" "(if(let-values(((or-part_347)(char=? c_80 '#\\-)))" "(if or-part_347 or-part_347(char=? c_80 '#\\+)))" "(let-values()" "(begin" "(string-set! new-str_0 j_3 c_80)" "(loop_112" -"(sub1 i_172)" +"(sub1 i_171)" "(sub1 j_3)" -"(if(= hashes-pos_0(add1 i_172)) i_172 hashes-pos_0))))" +"(if(= hashes-pos_0(add1 i_171)) i_171 hashes-pos_0))))" "(if(char=? c_80 '#\\#)" "(let-values()" -"(if(= hashes-pos_0(add1 i_172))" +"(if(= hashes-pos_0(add1 i_171))" "(let-values()" "(begin" "(string-set! new-str_0 j_3 '#\\0)" -"(loop_112(sub1 i_172)(sub1 j_3) i_172)))" +"(loop_112(sub1 i_171)(sub1 j_3) i_171)))" "(let-values()" "(if(eq? convert-mode_6 'must-read)" "(let-values()" @@ -51053,7 +51112,7 @@ static const char *startup_source = "(let-values()" "(begin" "(string-set! new-str_0 j_3 c_80)" -"(loop_112(sub1 i_172)(sub1 j_3) hashes-pos_0)))))))))))))" +"(loop_112(sub1 i_171)(sub1 j_3) hashes-pos_0)))))))))))))" " loop_112)" "(sub1 end_36)" "(sub1(string-length new-str_0))" @@ -51207,44 +51266,44 @@ static const char *startup_source = "(normalise-inputs" " 'in-string" " \"string\"" -"(lambda(x_86)(string? x_86))" -"(lambda(x_87)(unsafe-string-length x_87))" +"(lambda(x_85)(string? x_85))" +"(lambda(x_86)(unsafe-string-length x_86))" " s_263" " start_50" " end_40" " 1)))" "(begin" " #t" -"((letrec-values(((for-loop_274)" -"(lambda(result_121 idx_5)" +"((letrec-values(((for-loop_272)" +"(lambda(result_120 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_122)" +"(let-values(((result_121)" "(let-values()" -"(let-values(((result_123)" +"(let-values(((result_122)" "(let-values()(let-values()(char=? c_81 '#\\#)))))" -"(values result_123)))))" -"(if(if(not((lambda x_88 result_122) c_81))(not #f) #f)" -"(for-loop_274 result_122(unsafe-fx+ idx_5 1))" -" result_122)))" -" result_121)))))" -" for-loop_274)" +"(values result_122)))))" +"(if(if(not((lambda x_87 result_121) c_81))(not #f) #f)" +"(for-loop_272 result_121(unsafe-fx+ idx_5 1))" +" result_121)))" +" result_120)))))" +" for-loop_272)" " #f" " start*_5))))))" "(define-values" "(replace-hashes)" "(lambda(s_271 start_51 end_41)" "(begin" -"(let-values(((new-s_9)(make-string(- end_41 start_51))))" +"(let-values(((new-s_10)(make-string(- end_41 start_51))))" "(begin" "(let-values(((v*_7 start*_6 stop*_7 step*_6)" "(normalise-inputs" " 'in-string" " \"string\"" -"(lambda(x_89)(string? x_89))" -"(lambda(x_90)(unsafe-string-length x_90))" +"(lambda(x_88)(string? x_88))" +"(lambda(x_89)(unsafe-string-length x_89))" " s_271" " start_51" " end_41" @@ -51255,7 +51314,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_273)" "(lambda(idx_6 pos_115)" "(begin" " 'for-loop" @@ -51268,21 +51327,21 @@ static const char *startup_source = "(begin" "(let-values()" "(if(char=? c_82 '#\\#)" -"(string-set! new-s_9 i_121 '#\\0)" -"(string-set! new-s_9 i_121 c_82)))" +"(string-set! new-s_10 i_121 '#\\0)" +"(string-set! new-s_10 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_273(unsafe-fx+ idx_6 1)(+ pos_115 1))(values))))" "(values))))))" -" for-loop_275)" +" for-loop_273)" " start*_6" " start_52)))" "(void)" -" new-s_9)))))" +" new-s_10)))))" "(define-values" "(maybe-substring)" -"(lambda(s_381 start_3 end_3)" -"(begin(if(if(= 0 start_3)(= end_3(string-length s_381)) #f) s_381(substring s_381 start_3 end_3)))))" +"(lambda(s_382 start_3 end_3)" +"(begin(if(if(= 0 start_3)(= end_3(string-length s_382)) #f) s_382(substring s_382 start_3 end_3)))))" "(define-values" "(exactness-set?)" "(lambda(exactness_6)" @@ -51803,7 +51862,7 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()(check-list lst_261)))" -"((letrec-values(((for-loop_276)" +"((letrec-values(((for-loop_274)" "(lambda(i_3 lst_104)" "(begin" " 'for-loop" @@ -51811,13 +51870,13 @@ static const char *startup_source = "(let-values(((e_78)" "(unsafe-car" " lst_104))" -"((rest_144)" +"((rest_143)" "(unsafe-cdr" " lst_104)))" -"(let-values(((i_173)" +"(let-values(((i_172)" "(let-values(((i_94)" " i_3))" -"(let-values(((i_174)" +"(let-values(((i_173)" "(let-values()" "(begin" "(let-values(((elem_0)" @@ -51836,21 +51895,21 @@ static const char *startup_source = " 1" " i_94)))))" "(values" -" i_174)))))" +" i_173)))))" "(if(if(not" -"((lambda x_91" +"((lambda x_90" "(unsafe-fx=" -" i_173" +" i_172" " len_37))" " e_78))" "(not #f)" " #f)" -"(for-loop_276" -" i_173" -" rest_144)" -" i_173)))" +"(for-loop_274" +" i_172" +" rest_143)" +" i_172)))" " i_3)))))" -" for-loop_276)" +" for-loop_274)" " 0" " lst_261)))))" " v_35))))))" @@ -51891,7 +51950,7 @@ static const char *startup_source = "(let-values(((i_42)" "(let-values(((i_43)" " i_40))" -"(let-values(((i_153)" +"(let-values(((i_152)" "(let-values()" "(begin" "(let-values(((elem_1)" @@ -51910,9 +51969,9 @@ static const char *startup_source = " 1" " i_43)))))" "(values" -" i_153)))))" +" i_152)))))" "(if(if(not" -"((lambda x_92" +"((lambda x_91" "(unsafe-fx=" " i_42" " len_38))" @@ -52019,7 +52078,7 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()(check-naturals start_54)))" -"((letrec-values(((for-loop_265)" +"((letrec-values(((for-loop_263)" "(lambda(lst_298 pos_117)" "(begin" " 'for-loop" @@ -52029,10 +52088,10 @@ static const char *startup_source = "(let-values(((e_79)" "(unsafe-car" " lst_298))" -"((rest_175)" +"((rest_174)" "(unsafe-cdr" " lst_298))" -"((i_175)" +"((i_174)" " pos_117))" "(let-values((()" "(let-values()" @@ -52042,17 +52101,17 @@ static const char *startup_source = "(let-values()" "(vector-set!" " vec_69" -" i_175" +" i_174" " e_79))" "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_265" -" rest_175" +"(for-loop_263" +" rest_174" "(+ pos_117 1))" "(values))))" "(values))))))" -" for-loop_265)" +" for-loop_263)" " lst_8" " start_54)))" "(void)))" @@ -52080,7 +52139,7 @@ static const char *startup_source = "(let-values(((e_80)" "(unsafe-car" " lst_273))" -"((rest_122)" +"((rest_121)" "(unsafe-cdr" " lst_273))" "((i_99)" @@ -52099,7 +52158,7 @@ static const char *startup_source = "(values)))))" "(if(not #f)" "(for-loop_28" -" rest_122" +" rest_121" "(+ pos_17 1))" "(values))))" "(values))))))" @@ -52121,7 +52180,7 @@ static const char *startup_source = "(void)" "(let-values()" "(check-naturals start_56)))" -"((letrec-values(((for-loop_277)" +"((letrec-values(((for-loop_275)" "(lambda(lst_98 pos_118)" "(begin" " 'for-loop" @@ -52132,7 +52191,7 @@ static const char *startup_source = "(let-values(((e_81)" "(unsafe-car" " lst_98))" -"((rest_176)" +"((rest_175)" "(unsafe-cdr" " lst_98))" "((i_46)" @@ -52150,14 +52209,14 @@ static const char *startup_source = "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_277" -" rest_176" +"(for-loop_275" +" rest_175" "(+" " pos_118" " 1))" "(values))))" "(values))))))" -" for-loop_277)" +" for-loop_275)" " lst_305" " start_56)))" "(void)))" @@ -52248,8 +52307,8 @@ static const char *startup_source = "(let-values()" "(let-values(((read-one51_0) read-one_6)" "((temp52_1) '#\\{)" -"((temp53_2) '#\\{)" -"((temp54_1) '#\\})" +"((temp53_3) '#\\{)" +"((temp54_0) '#\\})" "((in55_1) in_32)" "((config56_0) config_40)" "((vector-mode57_0) vector-mode_1)" @@ -52259,8 +52318,8 @@ static const char *startup_source = " vector-mode57_0" " read-one51_0" " temp52_1" -" temp53_2" -" temp54_1" +" temp53_3" +" temp54_0" " in55_1" " config56_0)))" "(let-values()" @@ -52519,8 +52578,8 @@ static const char *startup_source = "(let-values()" "(let-values(((read-one17_0) read-one_3)" "((c18_1) c_88)" -"((temp19_2) '#\\[)" -"((temp20_2) '#\\])" +"((temp19_3) '#\\[)" +"((temp20_3) '#\\])" "((in21_0) in_37)" "((config22_0) config_43)" "((v23_0) v_30))" @@ -52529,8 +52588,8 @@ static const char *startup_source = " 'any" " read-one17_0" " c18_1" -" temp19_2" -" temp20_2" +" temp19_3" +" temp20_3" " in21_0" " config22_0)))" "(let-values()" @@ -52618,16 +52677,16 @@ static const char *startup_source = "(if(equal? tmp_49 '#\\=)" "(let-values()" "(let-values(((ph_1)(make-placeholder 'placeholder)))" -"(let-values(((ht_145)(get-graph-hash config_43)))" +"(let-values(((ht_144)(get-graph-hash config_43)))" "(let-values((()" "(begin" -"(if(hash-ref ht_145 v_30 #f)" +"(if(hash-ref ht_144 v_30 #f)" "(let-values()" "(let-values(((in50_0) in_37)" "((config51_0) config_43)" " ((temp52_2) \"multiple `~a~a~a` tags\")" "((dispatch-c53_0) dispatch-c_1)" -"((temp54_2)" +"((temp54_1)" "(let-values(((accum-str56_0)" " accum-str_3)" "((config57_0)" @@ -52645,10 +52704,10 @@ static const char *startup_source = " in50_0" " config51_0" " temp52_2" -"(list dispatch-c53_0 temp54_2 c55_0))))" +"(list dispatch-c53_0 temp54_1 c55_0))))" "(void))" "(values))))" -"(let-values((()(begin(hash-set! ht_145 v_30 ph_1)(values))))" +"(let-values((()(begin(hash-set! ht_144 v_30 ph_1)(values))))" "(let-values(((result-v_0)" "(read-one_3 #f in_37(next-readtable config_43))))" "(begin" @@ -52660,7 +52719,7 @@ static const char *startup_source = "((temp61_4)" " \"expected an element for graph after `~a~a~a`, found end-of-file\")" "((dispatch-c62_0) dispatch-c_1)" -"((temp63_2)" +"((temp63_3)" "(let-values(((accum-str65_0) accum-str_3)" "((config66_0) config_43))" "(accum-string-get!6.1" @@ -52676,7 +52735,7 @@ static const char *startup_source = " in58_0" " config59_0" " temp61_4" -"(list dispatch-c62_0 temp63_2 c64_0))))" +"(list dispatch-c62_0 temp63_3 c64_0))))" "(void))" "(accum-string-abandon! accum-str_3 config_43)" "(placeholder-set! ph_1 result-v_0)" @@ -52735,13 +52794,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_155)(make-hasheqv)))(begin(set-read-config-state-graph! st_3 ht_155) ht_155))))))))" +"(let-values(((ht_154)(make-hasheqv)))(begin(set-read-config-state-graph! st_3 ht_154) ht_154))))))))" "(define-values" "(coerce-key)" -"(lambda(key_85 config_8)" +"(lambda(key_84 config_8)" "(begin" "(let-values(((for-syntax?_7)(read-config-for-syntax? config_8)))" -"((read-config-coerce-key config_8) for-syntax?_7 key_85)))))" +"((read-config-coerce-key config_8) for-syntax?_7 key_84)))))" "(define-values" "(read-hash)" "(lambda(read-one_3 dispatch-c_1 init-c_13 in_37 config_43)" @@ -52853,8 +52912,8 @@ static const char *startup_source = "(let-values(((read-one-key+value17_0)" " read-one-key+value_1)" "((c18_2) c_50)" -"((temp19_3) '#\\[)" -"((temp20_3) '#\\])" +"((temp19_4) '#\\[)" +"((temp20_4) '#\\])" "((in21_1) in_37)" "((config22_1) config_43)" "((config23_2) config_43)" @@ -52867,8 +52926,8 @@ static const char *startup_source = " unsafe-undefined" " read-one-key+value17_0" " c18_2" -" temp19_3" -" temp20_3" +" temp19_4" +" temp20_4" " in21_1" " config22_1))" " ec_7" @@ -52990,7 +53049,7 @@ static const char *startup_source = "((config48_1) config_43)" "((c49_0) c_50)" " ((temp50_2) \"bad syntax `~a`\")" -"((temp51_2)" +"((temp51_1)" "(let-values(((accum-str52_0)" " accum-str_3)" "((config53_0)" @@ -53007,7 +53066,7 @@ static const char *startup_source = " in47_1" " config48_1" " temp50_2" -"(list temp51_2)))))))))))))))))" +"(list temp51_1)))))))))))))))))" " loop_115)" " 'equal)))" "(let-values(((graph?_0)(if(read-config-state-graph(read-config-st config_43)) #t #f)))" @@ -53071,18 +53130,18 @@ static const char *startup_source = "(if(char-closer? ec_8 config_45)" "(let-values()" "(let-values(((in61_0) in_41)" -"((temp62_1)(reading-at config_45 open-line_0 open-col_0 open-pos_0))" -" ((temp63_3) \"~a\")" -"((temp64_3)(indentation-unexpected-closer-message ec_8 c_89 config_45)))" +"((temp62_2)(reading-at config_45 open-line_0 open-col_0 open-pos_0))" +" ((temp63_4) \"~a\")" +"((temp64_4)(indentation-unexpected-closer-message ec_8 c_89 config_45)))" "(reader-error12.1" " unsafe-undefined" " '#\\x" " #f" " unsafe-undefined" " in61_0" -" temp62_1" -" temp63_3" -"(list temp64_3))))" +" temp62_2" +" temp63_4" +"(list temp64_4))))" "(let-values()" "(let-values(((v_245)(read-one_8 c_89 in_41(keep-comment elem-config_1))))" "(if(1/special-comment? v_245)" @@ -53098,8 +53157,8 @@ static const char *startup_source = "(let-values()" "(let-values(((in65_0) in_41)" "((temp66_3)(reading-at config_45 open-line_0 open-col_0 open-pos_0))" -" ((temp67_3) \"expected ~a to start a hash pair\")" -"((temp68_3)(all-openers-str config_45)))" +" ((temp67_4) \"expected ~a to start a hash pair\")" +"((temp68_4)(all-openers-str config_45)))" "(reader-error12.1" " unsafe-undefined" " '#\\x" @@ -53107,8 +53166,8 @@ static const char *startup_source = " unsafe-undefined" " in65_0" " temp66_3" -" temp67_3" -"(list temp68_3))))))))))" +" temp67_4" +"(list temp68_4))))))))))" "(let-values()" "(let-values(((k_41)(read-one_8 #f in_41(disable-wrapping elem-config_1))))" "(let-values(((dot-c_0)(read-char/skip-whitespace-and-comments #f read-one_8 in_41 config_45)))" @@ -53266,7 +53325,7 @@ static const char *startup_source = " in_37)" "((config19_2)" " config_43)" -"((temp20_4)" +"((temp20_5)" " \"unknown escape sequence `~a~a` in ~a\")" "((escaping-c21_0)" " escaping-c_0)" @@ -53281,7 +53340,7 @@ static const char *startup_source = " unsafe-undefined" " in18_1" " config19_2" -" temp20_4" +" temp20_5" "(list" " escaping-c21_0" " escaped-c22_0" @@ -53643,12 +53702,12 @@ static const char *startup_source = " config_43)" "((accum-str47_0)" " accum-str_4)" -"((temp48_3)" +"((temp48_2)" " 16)" "((temp49_2)" " 4))" "(read-digits12.1" -" temp48_3" +" temp48_2" " 0" " temp49_2" " #f" @@ -53727,14 +53786,14 @@ static const char *startup_source = " config_43)" "((accum-str52_1)" " accum-str_4)" -"((temp53_3)" +"((temp53_4)" " 16)" -"((temp54_3)" +"((temp54_2)" " 4))" "(read-digits12.1" -" temp53_3" +" temp53_4" " 0" -" temp54_3" +" temp54_2" " #f" " in50_1" " config51_1" @@ -53825,7 +53884,7 @@ static const char *startup_source = " \"bad or incomplete surrogate-style encoding at `~au~a`\")" "((escaping-c67_0)" " escaping-c_0)" -"((temp68_4)" +"((temp68_5)" "(let-values(((accum-str69_0)" " accum-str_4)" "((config70_1)" @@ -53846,7 +53905,7 @@ static const char *startup_source = " temp66_4" "(list" " escaping-c67_0" -" temp68_4))))))))))))))" +" temp68_5))))))))))))))" "(let-values()" "(let-values((()" "(begin" @@ -53869,12 +53928,12 @@ static const char *startup_source = " accum-str_4)" "((temp75_3)" " 16)" -"((temp76_2)" +"((temp76_1)" " 8))" "(read-digits12.1" " temp75_3" " 0" -" temp76_2" +" temp76_1" " #f" " in72_0" " config73_0" @@ -54001,7 +54060,7 @@ static const char *startup_source = "(let-values(((in93_0) in_46)" "((config94_0) config_46)" "((c95_0) c_92)" -"((temp96_2)" +"((temp96_3)" " \"found end-of-file after `#<<` and before a newline\"))" "(reader-error12.1" " unsafe-undefined" @@ -54010,14 +54069,14 @@ static const char *startup_source = " unsafe-undefined" " in93_0" " config94_0" -" temp96_2" +" temp96_3" "(list))))" "(if(not(char? c_92))" "(let-values()" "(let-values(((in97_0) in_46)" "((config98_0) config_46)" "((c99_0) c_92)" -"((temp100_0)" +"((temp100_1)" " \"found non-character while reading `#<<`\"))" "(reader-error12.1" " unsafe-undefined" @@ -54026,7 +54085,7 @@ static const char *startup_source = " unsafe-undefined" " in97_0" " config98_0" -" temp100_0" +" temp100_1" "(list))))" "(if(char=? c_92 '#\\newline)" "(let-values() null)" @@ -54050,9 +54109,9 @@ static const char *startup_source = "((config102_0) config_46)" "((c103_0) c_93)" "((open-end-pos104_0) open-end-pos_5)" -"((temp105_1)" +"((temp105_2)" " \"found end-of-file before terminating `~a`\")" -"((temp106_1)" +"((temp106_2)" "(list->string(cdr full-terminator_0))))" "(reader-error12.1" " unsafe-undefined" @@ -54061,8 +54120,8 @@ static const char *startup_source = " unsafe-undefined" " in101_0" " config102_0" -" temp105_1" -"(list temp106_1))))))" +" temp105_2" +"(list temp106_2))))))" "(if(not(char? c_93))" "(let-values()" "(let-values(((in107_0) in_46)" @@ -54101,7 +54160,7 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()(check-list lst_306)))" -"((letrec-values(((for-loop_278)" +"((letrec-values(((for-loop_276)" "(lambda(lst_28)" "(begin" " 'for-loop" @@ -54109,7 +54168,7 @@ static const char *startup_source = "(let-values(((c_94)" "(unsafe-car" " lst_28))" -"((rest_177)" +"((rest_176)" "(unsafe-cdr" " lst_28)))" "(let-values((()" @@ -54124,11 +54183,11 @@ static const char *startup_source = "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_278" -" rest_177)" +"(for-loop_276" +" rest_176)" "(values))))" "(values))))))" -" for-loop_278)" +" for-loop_276)" " lst_306)))" "(void))))" "(if(char=? c_93 '#\\newline)" @@ -54263,12 +54322,12 @@ static const char *startup_source = "(let-values(((in16_1) in_4)" "((config17_1) config_8)" "((accum-str18_1) accum-str_6)" -"((temp19_4) 16)" -"((temp20_5)(if(char=? c_96 '#\\u) 4 8)))" +"((temp19_5) 16)" +"((temp20_6)(if(char=? c_96 '#\\u) 4 8)))" "(read-digits12.1" -" temp19_4" +" temp19_5" " 0" -" temp20_5" +" temp20_6" " #f" " in16_1" " config17_1" @@ -54433,7 +54492,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_79 in_50 config_22)" +"(lambda(init-c_1 can-match?_0 chars_0 val_78 in_50 config_22)" "(begin" "(let-values(((accum-str_8)(accum-string-init! config_22)))" "(begin" @@ -54524,7 +54583,7 @@ static const char *startup_source = " loop_117)" " chars_0)" "(wrap" -" val_79" +" val_78" " in_50" " config_22" "(let-values(((accum-str20_0) accum-str_8)((config21_1) config_22))" @@ -54665,7 +54724,7 @@ static const char *startup_source = "(let-values()" "(let-values(((in52_0) in_57)" "((config53_1) config_24)" -" ((temp54_4) \"`~a` not enabled\")" +" ((temp54_3) \"`~a` not enabled\")" "((extend-str55_0) extend-str_0))" "(reader-error12.1" " unsafe-undefined" @@ -54674,7 +54733,7 @@ static const char *startup_source = " unsafe-undefined" " in52_0" " config53_1" -" temp54_4" +" temp54_3" "(list extend-str55_0)))))" "(values))))" "(let-values(((mod-path-wrapped_0)(read-one_9 #f in_57(next-readtable config_24))))" @@ -54785,12 +54844,12 @@ static const char *startup_source = "((in73_0) in_59)" "((config74_0) config_49)" "((c75_0) c_99)" -"((temp76_3) '|#!|)" +"((temp76_2) '|#!|)" "((get-info?77_0) get-info?_1))" "(read-lang29.1" " get-info?77_0" " c75_0" -" temp76_3" +" temp76_2" " temp71_1" " read-recur72_0" " in73_0" @@ -54817,7 +54876,7 @@ static const char *startup_source = "(let-values()" "(let-values(((in88_0) in_61)" "((config89_0) config_50)" -" ((temp90_3) \"`~a` not enabled\")" +" ((temp90_2) \"`~a` not enabled\")" "((extend-str91_0) extend-str_2))" "(reader-error12.1" " unsafe-undefined" @@ -54826,7 +54885,7 @@ static const char *startup_source = " unsafe-undefined" " in88_0" " config89_0" -" temp90_3" +" temp90_2" "(list extend-str91_0)))))" "(values))))" "(let-values(((line_10 col_9 pos_120)(port-next-location in_61)))" @@ -54926,7 +54985,7 @@ static const char *startup_source = "(let-values()" "(let-values(((in104_0) in_61)" "((config105_0) config_50)" -"((temp106_2)" +"((temp106_3)" " \"expected a non-empty sequence of alphanumeric, `-`, `+`, `_`, or `/` after `~a`\")" "((extend-str107_0) extend-str_2))" "(reader-error12.1" @@ -54936,7 +54995,7 @@ static const char *startup_source = " unsafe-undefined" " in104_0" " config105_0" -" temp106_2" +" temp106_3" "(list extend-str107_0))))" "(void))" "(values))))" @@ -54990,7 +55049,7 @@ static const char *startup_source = "((reader-path82_0) reader-path_0)" "((read-recur83_0) read-recur_3)" "((in84_0) in_61)" -"((temp85_2)(reading-at config_50 line_10 col_9 pos_120))" +"((temp85_1)(reading-at config_50 line_10 col_9 pos_120))" "((get-info?86_0) get-info?_2)" "((who87_0) who_29))" "(read-extension44.1" @@ -55001,7 +55060,7 @@ static const char *startup_source = " reader-path82_0" " read-recur83_0" " in84_0" -" temp85_2))))))))))))))))))))))))" +" temp85_1))))))))))))))))))))))))" "(define-values" "(char-lang-nonsep?)" "(lambda(c_101)" @@ -55010,9 +55069,9 @@ static const char *startup_source = "(let-values(((or-part_89)(char-alphabetic? c_101)))" "(if or-part_89" " or-part_89" -"(let-values(((or-part_305)(char-numeric? c_101)))" -"(if or-part_305" -" or-part_305" +"(let-values(((or-part_306)(char-numeric? c_101)))" +"(if or-part_306" +" or-part_306" "(let-values(((or-part_361)(char=? '#\\- c_101)))" "(if or-part_361" " or-part_361" @@ -55028,12 +55087,12 @@ static const char *startup_source = "(let-values(((lst_198) already_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_198)))" -"((letrec-values(((for-loop_205)" +"((letrec-values(((for-loop_204)" "(lambda(lst_307)" "(begin" " 'for-loop" "(if(pair? lst_307)" -"(let-values(((c_102)(unsafe-car lst_307))((rest_178)(unsafe-cdr lst_307)))" +"(let-values(((c_102)(unsafe-car lst_307))((rest_177)(unsafe-cdr lst_307)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -55043,9 +55102,9 @@ static const char *startup_source = "(accum-string-add! accum-str_11 c_102))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_205 rest_178)(values))))" +"(if(not #f)(for-loop_204 rest_177)(values))))" "(values))))))" -" for-loop_205)" +" for-loop_204)" " lst_198)))" "(void)" "((letrec-values(((loop_12)" @@ -55438,12 +55497,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_110)(read-undotted init-c_17 in_63 config_51)))" -"(if(1/special-comment? v_110)" -"(let-values() v_110)" +"(let-values(((v_109)(read-undotted init-c_17 in_63 config_51)))" +"(if(1/special-comment? v_109)" +"(let-values() v_109)" "(let-values()" "((letrec-values(((loop_119)" -"(lambda(v_112)" +"(lambda(v_111)" "(begin" " 'loop" "(let-values(((c_104)" @@ -55459,9 +55518,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_112)" +"(let-values() v_111)" "(if(char-whitespace? ec_9)" -"(let-values()(begin(consume-char in_63 c_104)(loop_119 v_112)))" +"(let-values()(begin(consume-char in_63 c_104)(loop_119 v_111)))" "(if(char=? ec_9 '#\\.)" "(let-values()" "(let-values(((dot-line_2 dot-col_2 dot-pos_5)" @@ -55481,13 +55540,13 @@ static const char *startup_source = "(read-undotted #f in_63 config_51)))" "(loop_119" "(wrap" -"(list cdot_0 v_112 post-v_0)" +"(list cdot_0 v_111 post-v_0)" " in_63" "(reading-at config_51 line_11 col_10 pos_92)" " '#\\.)))))))" -"(let-values() v_112))))))))))" +"(let-values() v_111))))))))))" " loop_119)" -" v_110))))))" +" v_109))))))" "(void))))))" "(define-values" "(read-undotted)" @@ -55580,7 +55639,7 @@ static const char *startup_source = "(let-values(((c79_1) c_106)" "((in80_1) in_68)" "((r-config81_0) r-config_0)" -"((temp82_1)" +"((temp82_2)" "(if(let-values(((or-part_317)(eq? c_106 ec_10)))" "(if or-part_317" " or-part_317" @@ -55591,7 +55650,7 @@ static const char *startup_source = " 'symbol/indirect)))" "(read-symbol-or-number8.1" " #f" -" temp82_1" +" temp82_2" " c79_1" " in80_1" " r-config81_0))))" @@ -55613,7 +55672,7 @@ static const char *startup_source = "(let-values()" "(let-values(((in83_0) in_68)" "((r-config84_0) r-config_0)" -" ((temp85_3) \"illegal use of `~a`\")" +" ((temp85_2) \"illegal use of `~a`\")" "((c86_0) c_106))" "(reader-error12.1" " unsafe-undefined" @@ -55622,7 +55681,7 @@ static const char *startup_source = " unsafe-undefined" " in83_0" " r-config84_0" -" temp85_3" +" temp85_2" "(list c86_0))))))" "(if(unsafe-fx< index_4 5)" "(let-values()" @@ -55661,7 +55720,7 @@ static const char *startup_source = "(let-values()" "(let-values(((in87_0) in_68)" "((r-config88_0) r-config_0)" -" ((temp89_4) \"illegal use of `~a`\")" +" ((temp89_3) \"illegal use of `~a`\")" "((c90_0) c_106))" "(reader-error12.1" " unsafe-undefined" @@ -55670,27 +55729,27 @@ static const char *startup_source = " unsafe-undefined" " in87_0" " r-config88_0" -" temp89_4" +" temp89_3" "(list c90_0))))))" "(let-values()" "(wrap" "(let-values(((read-one91_0) read-one)" "((ec92_0) ec_10)" "((temp93_2) '#\\()" -"((temp94_1) '#\\))" +"((temp94_0) '#\\))" "((in95_0) in_68)" "((r-config96_0) r-config_0)" -"((temp97_1) #t))" +"((temp97_2) #t))" "(read-unwrapped-sequence17.1" " 'all" " unsafe-undefined" " unsafe-undefined" -" temp97_1" +" temp97_2" " unsafe-undefined" " read-one91_0" " ec92_0" " temp93_2" -" temp94_1" +" temp94_0" " in95_0" " r-config96_0))" " in_68" @@ -55701,7 +55760,7 @@ static const char *startup_source = "(let-values()" "(let-values(((in98_0) in_68)" "((r-config99_0) r-config_0)" -" ((temp100_1) \"~a\")" +" ((temp100_2) \"~a\")" "((temp101_0)" "(indentation-unexpected-closer-message ec_10 c_106 r-config_0)))" "(reader-error12.1" @@ -55711,7 +55770,7 @@ static const char *startup_source = " unsafe-undefined" " in98_0" " r-config99_0" -" temp100_1" +" temp100_2" "(list temp101_0))))" "(if(unsafe-fx< index_4 8)" "(let-values()" @@ -55724,8 +55783,8 @@ static const char *startup_source = "(wrap" "(let-values(((read-one102_0) read-one)" "((ec103_0) ec_10)" -"((temp104_1) '#\\[)" -"((temp105_2) '#\\])" +"((temp104_2) '#\\[)" +"((temp105_3) '#\\])" "((in106_0) in_68)" "((r-config107_0) r-config_0)" "((temp108_2) #t))" @@ -55737,8 +55796,8 @@ static const char *startup_source = " unsafe-undefined" " read-one102_0" " ec103_0" -" temp104_1" -" temp105_2" +" temp104_2" +" temp105_3" " in106_0" " r-config107_0))" " in_68" @@ -56286,32 +56345,32 @@ static const char *startup_source = "(read-symbol-or-number8.1 #f temp205_0 temp202_0 in203_0 config204_0)))" "(if(unsafe-fx< index_5 19)" "(let-values()" -"(let-values(((temp206_0) #f)" +"(let-values(((temp206_1) #f)" "((in207_0) in_70)" "((config208_0) config_58)" -" ((temp209_2) \"#E\"))" -"(read-symbol-or-number8.1 #f temp209_2 temp206_0 in207_0 config208_0)))" +" ((temp209_1) \"#E\"))" +"(read-symbol-or-number8.1 #f temp209_1 temp206_1 in207_0 config208_0)))" "(if(unsafe-fx< index_5 20)" "(let-values()" "(let-values(((temp210_1) #f)" "((in211_0) in_70)" "((config212_0) config_58)" -" ((temp213_1) \"#i\"))" -"(read-symbol-or-number8.1 #f temp213_1 temp210_1 in211_0 config212_0)))" +" ((temp213_2) \"#i\"))" +"(read-symbol-or-number8.1 #f temp213_2 temp210_1 in211_0 config212_0)))" "(let-values()" "(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_1 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_0) #f)" +"(let-values(((temp218_1) #f)" "((in219_0) in_70)" "((config220_0) config_58)" " ((temp221_2) \"#d\"))" -"(read-symbol-or-number8.1 #f temp221_2 temp218_0 in219_0 config220_0)))" +"(read-symbol-or-number8.1 #f temp221_2 temp218_1 in219_0 config220_0)))" "(let-values()" "(let-values(((temp222_1) #f)" "((in223_0) in_70)" @@ -56634,7 +56693,7 @@ static const char *startup_source = "(module->" "(lambda(m_28)" "(let-values(((b/p_3)(hash-ref(module-provides m_28) sym_97 #f)))" -"(let-values(((or-part_286)(not b/p_3)))(if or-part_286 or-part_286(provided-as-protected? b/p_3)))))" +"(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))))" "(define-values" @@ -56666,13 +56725,13 @@ static const char *startup_source = " (raise-argument-error 'module->namespace \"namespace?\" ns_48)))" "(values))))" "(let-values(((name_41)" -"(let-values(((mod44_0) mod_18)((temp45_2) #t))" -"(reference->resolved-module-path27.1 temp45_2 mod44_0))))" -"(let-values(((phase_133)(namespace-phase ns_48)))" +"(let-values(((mod44_0) mod_18)((temp45_1) #t))" +"(reference->resolved-module-path27.1 temp45_1 mod44_0))))" +"(let-values(((phase_135)(namespace-phase ns_48)))" "(let-values(((m-ns_17)" "(let-values(((ns46_0) ns_48)" "((name47_1) name_41)" -"((phase48_1) phase_133))" +"((phase48_1) phase_135))" "(namespace->module-namespace82.1" " #f" " #f" @@ -56715,7 +56774,7 @@ static const char *startup_source = " temp49_3)))))" "(let-values(((ns41_0) ns_48)" "((temp42_3)(namespace-mpi m-ns_17))" -"((phase43_1) phase_133))" +"((phase43_1) phase_135))" "(namespace-module-make-available!112.1" " unsafe-undefined" " ns41_0" @@ -56931,7 +56990,7 @@ static const char *startup_source = " 'read-language" "(let-values(((in53_0) in_81)" "((fail-thunk54_0) fail-thunk_0)" -"((temp55_3) #t)" +"((temp55_2) #t)" "((read-to-syntax56_0) read-to-syntax)" "((read-compiled-linklet57_0) 1/read-compiled-linklet)" "((dynamic-require-reader58_0) dynamic-require-reader)" @@ -56942,7 +57001,7 @@ static const char *startup_source = " read-coerce60_0" " read-coerce-key61_0" " dynamic-require-reader58_0" -" temp55_3" +" temp55_2" " read-module-declared?59_0" " read-compiled-linklet57_0" " read-to-syntax56_0" @@ -56952,8 +57011,8 @@ static const char *startup_source = "(read-to-syntax)" "(lambda(s-exp_4 srcloc_11 rep_1)" "(begin" -"(let-values(((the-struct_89) empty-syntax))" -"(if(syntax?$1 the-struct_89)" +"(let-values(((the-struct_90) empty-syntax))" +"(if(syntax?$1 the-struct_90)" "(let-values(((content62_0)(datum-intern-literal s-exp_4))" "((srcloc63_0) srcloc_11)" "((props64_0)" @@ -56965,14 +57024,14 @@ static const char *startup_source = "(let-values() original-props))))))" "(syntax1.1" " content62_0" -"(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)" +"(syntax-scopes the-struct_90)" +"(syntax-shifted-multi-scopes the-struct_90)" +"(syntax-scope-propagations+tamper the-struct_90)" +"(syntax-mpi-shifts the-struct_90)" " srcloc63_0" " props64_0" -"(syntax-inspector the-struct_89)))" -" (raise-argument-error 'struct-copy \"syntax?\" the-struct_89))))))" +"(syntax-inspector the-struct_90)))" +" (raise-argument-error 'struct-copy \"syntax?\" the-struct_90))))))" "(define-values(original-props)(syntax-props(syntax-property$1 empty-syntax original-property-sym #t)))" "(define-values" "(original-square-props)" @@ -57004,7 +57063,7 @@ static const char *startup_source = " 'for-loop" "(if(pair? lst_285)" "(let-values(((e_85)(unsafe-car lst_285))" -"((rest_162)(unsafe-cdr lst_285)))" +"((rest_161)(unsafe-cdr lst_285)))" "(let-values(((fold-var_239)" "(let-values(((fold-var_240) fold-var_231))" "(let-values(((fold-var_241)" @@ -57014,7 +57073,7 @@ static const char *startup_source = "(read-coerce #t e_85 srcloc_12))" " fold-var_240))))" "(values fold-var_241)))))" -"(if(not #f)(for-loop_119 fold-var_239 rest_162) fold-var_239)))" +"(if(not #f)(for-loop_119 fold-var_239 rest_161) fold-var_239)))" " fold-var_231)))))" " for-loop_119)" " null" @@ -57116,16 +57175,16 @@ static const char *startup_source = "(void)" "(let-values()" " (raise-argument-error 'read-syntax/recursive \"input-port?\" in_84)))" -"(if((lambda(x_93)" -"(let-values(((or-part_298)(not x_93)))" -"(if or-part_298 or-part_298(char? x_93))))" +"(if((lambda(x_92)" +"(let-values(((or-part_299)(not x_92)))" +"(if or-part_299 or-part_299(char? x_92))))" " start_59)" "(void)" "(let-values()" " (raise-argument-error 'read-syntax/recursive \"(or/c char? #f)\" start_59)))" -"(if((lambda(x_94)" -"(let-values(((or-part_90)(not x_94)))" -"(if or-part_90 or-part_90(1/readtable? x_94))))" +"(if((lambda(x_93)" +"(let-values(((or-part_90)(not x_93)))" +"(if or-part_90 or-part_90(1/readtable? x_93))))" " readtable_7)" "(void)" "(let-values()" @@ -57178,15 +57237,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_95)" -"(let-values(((or-part_31)(not x_95)))" -"(if or-part_31 or-part_31(char? x_95))))" +"(if((lambda(x_94)" +"(let-values(((or-part_31)(not x_94)))" +"(if or-part_31 or-part_31(char? x_94))))" " start_61)" "(void)" " (let-values () (raise-argument-error 'read/recursive \"(or/c char? #f)\" start_61)))" -"(if((lambda(x_96)" -"(let-values(((or-part_158)(not x_96)))" -"(if or-part_158 or-part_158(1/readtable? x_96))))" +"(if((lambda(x_95)" +"(let-values(((or-part_158)(not x_95)))" +"(if or-part_158 or-part_158(1/readtable? x_95))))" " readtable_9)" "(void)" "(let-values()" @@ -57250,18 +57309,18 @@ static const char *startup_source = "(void)" "(let-values()(check-list lst_77)))" "((letrec-values(((for-loop_96)" -"(lambda(table_206 lst_78)" +"(lambda(table_203 lst_78)" "(begin" " 'for-loop" "(if(pair? lst_78)" -"(let-values(((sym_67)(unsafe-car lst_78))" +"(let-values(((sym_68)(unsafe-car lst_78))" "((rest_36)(unsafe-cdr lst_78)))" -"(let-values(((table_169)" -"(let-values(((table_211) table_206))" -"(let-values(((table_212)" +"(let-values(((table_170)" +"(let-values(((table_208) table_203))" +"(let-values(((table_209)" "(let-values()" "(let-values(((key_33" -" val_80)" +" val_79)" "(let-values()" "(let-values(((binding_26)" "(let-values(((mpi10_0)" @@ -57269,7 +57328,7 @@ static const char *startup_source = "((temp11_6)" " 0)" "((sym12_0)" -" sym_67))" +" sym_68))" "(make-module-binding22.1" " #f" " null" @@ -57284,10 +57343,10 @@ static const char *startup_source = " temp11_6" " sym12_0))))" "(values" -" sym_67" +" sym_68" "(if(hash-ref" " protected_0" -" sym_67" +" sym_68" " #f)" "(provided1.1" " binding_26" @@ -57295,14 +57354,14 @@ static const char *startup_source = " #f)" " binding_26))))))" "(hash-set" -" table_211" +" table_208" " key_33" -" val_80)))))" -"(values table_212)))))" +" val_79)))))" +"(values table_209)))))" "(if(not #f)" -"(for-loop_96 table_169 rest_36)" -" table_169)))" -" table_206)))))" +"(for-loop_96 table_170 rest_36)" +" table_170)))" +" table_203)))))" " for-loop_96)" " '#hash()" " lst_77)))))" @@ -57328,14 +57387,14 @@ static const char *startup_source = " 'for-loop" "(if(pair? lst_258)" "(let-values(((sym_101)(unsafe-car lst_258))" -"((rest_179)(unsafe-cdr lst_258)))" +"((rest_178)(unsafe-cdr lst_258)))" "(let-values((()" "(let-values()" "(let-values((()" "(let-values()" "(begin" "(let-values()" -"(let-values(((val_81)" +"(let-values(((val_80)" "(1/instance-variable-value" " inst_6" " sym_101)))" @@ -57343,11 +57402,11 @@ static const char *startup_source = " ns_46" " 0" " sym_101" -" val_81)))" +" val_80)))" "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_20 rest_179)" +"(for-loop_20 rest_178)" "(values))))" "(values))))))" " for-loop_20)" @@ -57509,7 +57568,7 @@ static const char *startup_source = "(let-values(((stop-ids_2) stop-ids4_0))" "(let-values(((intdefs_4) intdefs1_0))" "(let-values()" -"(let-values(((temp53_4) 'local-expand)" +"(let-values(((temp53_0) 'local-expand)" "((s54_1) s_8)" "((context55_0) context_10)" "((stop-ids56_0) stop-ids_2)" @@ -57522,13 +57581,13 @@ static const char *startup_source = " #f" " #f" " #f" -" temp53_4" +" temp53_0" " s54_1" " context55_0" " stop-ids56_0" " intdefs57_0)))))))))))" "(case-lambda" -"((s_446 context_11 stop-ids_3)(begin 'local-expand(local-expand5_0 s_446 context_11 stop-ids_3 '())))" +"((s_445 context_11 stop-ids_3)(begin 'local-expand(local-expand5_0 s_445 context_11 stop-ids_3 '())))" "((s_75 context_12 stop-ids_4 intdefs1_1)(local-expand5_0 s_75 context_12 stop-ids_4 intdefs1_1)))))" "(define-values" "(1/local-expand/capture-lifts)" @@ -57548,11 +57607,11 @@ static const char *startup_source = "((context60_0) context_13)" "((stop-ids61_0) stop-ids_5)" "((intdefs62_0) intdefs_5)" -"((temp63_4) #t)" +"((temp63_5) #t)" "((lift-key64_0) lift-key_4))" "(do-local-expand50.1" " #f" -" temp63_4" +" temp63_5" " #t" " lift-key64_0" " #f" @@ -57570,8 +57629,8 @@ static const char *startup_source = "(local-expand/capture-lifts12_0 s_41 context_14 stop-ids_6 '() unsafe-undefined)))" "((s_87 context_15 stop-ids_7 intdefs_6 lift-key8_1)" "(local-expand/capture-lifts12_0 s_87 context_15 stop-ids_7 intdefs_6 lift-key8_1))" -"((s_430 context_16 stop-ids_8 intdefs7_1)" -"(local-expand/capture-lifts12_0 s_430 context_16 stop-ids_8 intdefs7_1 unsafe-undefined)))))" +"((s_429 context_16 stop-ids_8 intdefs7_1)" +"(local-expand/capture-lifts12_0 s_429 context_16 stop-ids_8 intdefs7_1 unsafe-undefined)))))" "(define-values" "(1/local-transformer-expand)" "(let-values(((local-transformer-expand18_0)" @@ -57603,8 +57662,8 @@ static const char *startup_source = " stop-ids68_0" " intdefs69_0)))))))))))" "(case-lambda" -"((s_187 context_18 stop-ids_10)" -"(begin 'local-transformer-expand(local-transformer-expand18_0 s_187 context_18 stop-ids_10 '())))" +"((s_188 context_18 stop-ids_10)" +"(begin 'local-transformer-expand(local-transformer-expand18_0 s_188 context_18 stop-ids_10 '())))" "((s_492 context_19 stop-ids_11 intdefs14_1)" "(local-transformer-expand18_0 s_492 context_19 stop-ids_11 intdefs14_1)))))" "(define-values" @@ -57625,11 +57684,11 @@ static const char *startup_source = "((context73_0) context_20)" "((stop-ids74_0) stop-ids_12)" "((intdefs75_0) intdefs_8)" -"((temp76_4) #t)" +"((temp76_3) #t)" "((temp77_2) #t)" "((lift-key78_0) lift-key_5))" "(do-local-expand50.1" -" temp76_4" +" temp76_3" " temp77_2" " #t" " lift-key78_0" @@ -57646,8 +57705,8 @@ static const char *startup_source = "(begin" " 'local-transformer-expand/capture-lifts" "(local-transformer-expand/capture-lifts25_0 s_19 context_21 stop-ids_13 '() unsafe-undefined)))" -"((s_449 context_22 stop-ids_14 intdefs_9 lift-key21_1)" -"(local-transformer-expand/capture-lifts25_0 s_449 context_22 stop-ids_14 intdefs_9 lift-key21_1))" +"((s_448 context_22 stop-ids_14 intdefs_9 lift-key21_1)" +"(local-transformer-expand/capture-lifts25_0 s_448 context_22 stop-ids_14 intdefs_9 lift-key21_1))" "((s_493 context_23 stop-ids_15 intdefs20_1)" "(local-transformer-expand/capture-lifts25_0 s_493 context_23 stop-ids_15 intdefs20_1 unsafe-undefined)))))" "(define-values" @@ -57661,12 +57720,12 @@ static const char *startup_source = "(let-values()" "(let-values(((exp-s_11)" "(let-values(((temp79_0) 'syntax-local-expand-expression)" -"((s80_2) s_494)" +"((s80_1) s_494)" "((temp81_3) 'expression)" "((null82_0) null)" -"((temp83_3) #f)" +"((temp83_2) #f)" "((opaque-only?84_0) opaque-only?_0)" -"((temp85_4) #t)" +"((temp85_3) #t)" "((temp86_3) #t)" "((temp87_2) #f))" "(do-local-expand50.1" @@ -57674,15 +57733,15 @@ static const char *startup_source = " #f" " temp87_2" " unsafe-undefined" -" temp85_4" +" temp85_3" " opaque-only?84_0" " temp86_3" " temp79_0" -" s80_2" +" s80_1" " temp81_3" " null82_0" -" temp83_3))))" -"(let-values(((ctx_72)(let-values()(get-current-expand-context16.1 #f 'unexpected))))" +" temp83_2))))" +"(let-values(((ctx_70)(let-values()(get-current-expand-context16.1 #f 'unexpected))))" "(let-values(((ae_1)" "(flip-introduction-scopes" "(datum->syntax$1" @@ -57690,15 +57749,15 @@ static const char *startup_source = "(already-expanded1.1" "(if(parsed? exp-s_11)" " exp-s_11" -"(flip-introduction-scopes exp-s_11 ctx_72))" -"(expand-context-binding-layer ctx_72)))" -" ctx_72)))" +"(flip-introduction-scopes exp-s_11 ctx_70))" +"(expand-context-binding-layer ctx_70)))" +" ctx_70)))" "(begin" -"(let-values(((obs_60)(expand-context-observer ctx_72)))" +"(let-values(((obs_60)(expand-context-observer ctx_70)))" "(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_72)))" +"(let-values(((obs_4)(expand-context-observer ctx_70)))" "(if obs_4" "(let-values()(let-values()(call-expand-observe obs_4 'exit-local exp-s_11)))" "(void)))" @@ -57787,17 +57846,17 @@ static const char *startup_source = " intdefs-or-false?-string" " intdefs_10)))" "(values))))" -"(let-values(((ctx_73)" +"(let-values(((ctx_71)" "(let-values(((who88_0) who_34))" "(get-current-expand-context16.1 #f who88_0))))" -"(let-values(((phase_91)" +"(let-values(((phase_93)" "(if as-transformer?_6" -"(add1(expand-context-phase ctx_73))" -"(expand-context-phase ctx_73))))" +"(add1(expand-context-phase ctx_71))" +"(expand-context-phase ctx_71))))" "(let-values(((local-ctx_0)" -"(let-values(((ctx89_0) ctx_73)" +"(let-values(((ctx89_0) ctx_71)" "((context90_0) context_24)" -"((phase91_0) phase_91)" +"((phase91_0) phase_93)" "((intdefs92_0) intdefs_10)" "((stop-ids93_0) stop-ids_16)" "((to-parsed-ok?94_0) to-parsed-ok?_1)" @@ -57807,9 +57866,9 @@ static const char *startup_source = "(if or-part_168" " or-part_168" "(if(expand-context-in-local-expand?" -" ctx_73)" +" ctx_71)" "(expand-context-keep-#%expression?" -" ctx_73)" +" ctx_71)" " #f))))" "((track-to-be-defined?96_0)" " track-to-be-defined?_1))" @@ -57825,8 +57884,8 @@ static const char *startup_source = "(let-values((()" "(begin" "(namespace-visit-available-modules!" -"(expand-context-namespace ctx_73)" -" phase_91)" +"(expand-context-namespace ctx_71)" +" phase_93)" "(values))))" "(let-values((()" "(begin" @@ -57842,13 +57901,13 @@ static const char *startup_source = "(void)))" "(values))))" "(let-values(((input-s_1)" -"(let-values(((temp97_2)" -"(flip-introduction-scopes s_495 ctx_73))" +"(let-values(((temp97_3)" +"(flip-introduction-scopes s_495 ctx_71))" "((intdefs98_0) intdefs_10))" "(add-intdef-scopes24.1" " unsafe-undefined" " #f" -" temp97_2" +" temp97_3" " intdefs98_0))))" "(let-values((()" "(begin" @@ -57906,14 +57965,14 @@ static const char *startup_source = "((temp102_1) #f)" "((temp103_1) #t)" "((lift-key104_0) lift-key_6)" -"((temp105_3) #t)" -"((temp106_3) #t))" +"((temp105_4) #t)" +"((temp106_4) #t))" "(expand-transformer92.1" -" temp105_3" +" temp105_4" " temp103_1" " context101_0" " temp102_1" -" temp106_3" +" temp106_4" " lift-key104_0" " input-s99_0" " local-ctx100_0)))" @@ -57987,7 +58046,7 @@ static const char *startup_source = " output-s_0" "(flip-introduction-scopes" " output-s_0" -" ctx_73))))" +" ctx_71))))" "(begin" "(if skip-log-exit?_0" "(void)" @@ -58048,12 +58107,12 @@ static const char *startup_source = "(let-values()" "(taint-dispatch" " s_2" -"(lambda(s_439)(syntax-arm$1 s_439 insp_21))" +"(lambda(s_438)(syntax-arm$1 s_438 insp_21))" "(1/syntax-local-phase-level)))" "(let-values()(syntax-arm$1 s_2 insp_21))))))))))))))))" "(case-lambda" "((s_496)(begin 'syntax-arm(syntax-arm4_0 s_496 #f #f)))" -"((s_446 maybe-insp_1 use-mode?2_1)(syntax-arm4_0 s_446 maybe-insp_1 use-mode?2_1))" +"((s_445 maybe-insp_1 use-mode?2_1)(syntax-arm4_0 s_445 maybe-insp_1 use-mode?2_1))" "((s_75 maybe-insp1_1)(syntax-arm4_0 s_75 maybe-insp1_1 #f)))))" "(define-values" "(1/syntax-disarm)" @@ -58082,29 +58141,29 @@ static const char *startup_source = "(lambda(s7_1 from-s8_0 use-mode?6_0)" "(begin" " 'syntax-rearm9" -"(let-values(((s_180) s7_1))" +"(let-values(((s_181) s7_1))" "(let-values(((from-s_2) from-s8_0))" "(let-values(((use-mode?_1) use-mode?6_0))" "(let-values()" "(let-values()" "(let-values()" "(begin" -"(if(syntax?$1 s_180)" +"(if(syntax?$1 s_181)" "(void)" -" (let-values () (raise-argument-error 'syntax-rearm \"syntax?\" s_180)))" +" (let-values () (raise-argument-error 'syntax-rearm \"syntax?\" s_181)))" "(if(syntax?$1 from-s_2)" "(void)" " (let-values () (raise-argument-error 'syntax-rearm \"syntax?\" from-s_2)))" "(if use-mode?_1" "(let-values()" "(taint-dispatch" -" s_180" +" s_181" "(lambda(s_76)(syntax-rearm$1 s_76 from-s_2))" "(1/syntax-local-phase-level)))" -"(let-values()(syntax-rearm$1 s_180 from-s_2))))))))))))))" +"(let-values()(syntax-rearm$1 s_181 from-s_2))))))))))))))" "(case-lambda" -"((s_181 from-s_3)(begin 'syntax-rearm(syntax-rearm9_0 s_181 from-s_3 #f)))" -"((s_441 from-s_4 use-mode?6_1)(syntax-rearm9_0 s_441 from-s_4 use-mode?6_1)))))" +"((s_182 from-s_3)(begin 'syntax-rearm(syntax-rearm9_0 s_182 from-s_3 #f)))" +"((s_440 from-s_4 use-mode?6_1)(syntax-rearm9_0 s_440 from-s_4 use-mode?6_1)))))" "(define-values" "(1/syntax-taint)" "(lambda(s_5)" @@ -58569,8 +58628,8 @@ static const char *startup_source = "(let-values()" "(begin" "(let-values(((temp53_5) '#%kernel)" -"((temp54_5) '#%runtime)" -"((temp55_4)(set-union primitive-ids(set-union main-ids_0 read-ids_0)))" +"((temp54_4) '#%runtime)" +"((temp55_3)(set-union primitive-ids(set-union main-ids_0 read-ids_0)))" "((temp56_4)" "(hasheq" " 'variable-reference?" @@ -58580,7 +58639,7 @@ static const char *startup_source = " 'variable-reference-from-unsafe?" " 1/variable-reference-from-unsafe?))" "((ns57_2) ns_120))" -"(copy-runtime-module!26.1 unsafe-undefined temp56_4 ns57_2 #t #f temp55_4 temp54_5 temp53_5))" +"(copy-runtime-module!26.1 unsafe-undefined temp56_4 ns57_2 #t #f temp55_3 temp54_4 temp53_5))" "(let-values(((temp58_4) '#%kernel)((temp59_7) '(#%core #%runtime #%main #%read))((ns60_2) ns_120))" "(declare-reexporting-module!50.1 ns60_2 #t temp58_4 temp59_7)))))))))))" "(define-values" @@ -58600,18 +58659,18 @@ static const char *startup_source = "(let-values(((prims_0)(1/primitive-table name_74)))" "(let-values((()" "(begin" -"(let-values(((ht_156) prims_0))" +"(let-values(((ht_155) prims_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash-keys ht_156)))" +"(let-values()(check-in-hash-keys ht_155)))" "((letrec-values(((for-loop_17)" -"(lambda(i_176)" +"(lambda(i_175)" "(begin" " 'for-loop" -"(if i_176" -"(let-values(((sym_64)" -"(hash-iterate-key ht_156 i_176)))" +"(if i_175" +"(let-values(((sym_65)" +"(hash-iterate-key ht_155 i_175)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -58619,36 +58678,36 @@ static const char *startup_source = "(begin" "(let-values()" "(register-built-in-symbol!" -" sym_64))" +" sym_65))" "(values)))))" "(values)))))" "(if(not #f)" "(for-loop_17" -"(hash-iterate-next ht_156 i_176))" +"(hash-iterate-next ht_155 i_175))" "(values))))" "(values))))))" " for-loop_17)" -"(hash-iterate-first ht_156))))" +"(hash-iterate-first ht_155))))" "(values))))" "(let-values()" -"(let-values(((ht_157)" -"(let-values(((ht_158) prims_0))" +"(let-values(((ht_156)" +"(let-values(((ht_157) prims_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_158)))" -"((letrec-values(((for-loop_246)" -"(lambda(table_213 i_97)" +"(let-values()(check-in-hash ht_157)))" +"((letrec-values(((for-loop_245)" +"(lambda(table_210 i_97)" "(begin" " 'for-loop" "(if i_97" -"(let-values(((sym_92 val_82)" +"(let-values(((sym_92 val_81)" "(hash-iterate-key+value" -" ht_158" +" ht_157" " i_97)))" -"(let-values(((table_214)" +"(let-values(((table_211)" "(let-values(((table_10)" -" table_213))" +" table_210))" "(if(set-member?" " skip-syms_0" " sym_92)" @@ -58669,55 +58728,55 @@ static const char *startup_source = " #f)))" "(if or-part_166" " or-part_166" -" val_82))))))" +" val_81))))))" "(hash-set" " table_11" " key_14" " val_5)))))" "(values table_12)))))))" "(if(not #f)" -"(for-loop_246" -" table_214" -"(hash-iterate-next ht_158 i_97))" -" table_214)))" -" table_213)))))" -" for-loop_246)" +"(for-loop_245" +" table_211" +"(hash-iterate-next ht_157 i_97))" +" table_211)))" +" table_210)))))" +" for-loop_245)" " '#hasheq()" -"(hash-iterate-first ht_158))))))" +"(hash-iterate-first ht_157))))))" "(let-values(((ht+extras_0)" -"(let-values(((ht_146) extras_0))" +"(let-values(((ht_145) extras_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_146)))" -"((letrec-values(((for-loop_251)" -"(lambda(ht_153 i_170)" +"(let-values()(check-in-hash ht_145)))" +"((letrec-values(((for-loop_250)" +"(lambda(ht_152 i_169)" "(begin" " 'for-loop" -"(if i_170" +"(if i_169" "(let-values(((k_43 v_48)" "(hash-iterate-key+value" -" ht_146" -" i_170)))" +" ht_145" +" 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_160" +" ht_159" " k_43" " v_48))))" -"(values ht_161)))))" +"(values ht_160)))))" "(if(not #f)" -"(for-loop_251" -" ht_159" -"(hash-iterate-next ht_146 i_170))" -" ht_159)))" -" ht_153)))))" -" for-loop_251)" -" ht_157" -"(hash-iterate-first ht_146))))))" +"(for-loop_250" +" ht_158" +"(hash-iterate-next ht_145 i_169))" +" ht_158)))" +" ht_152)))))" +" for-loop_250)" +" ht_156" +"(hash-iterate-first ht_145))))))" "(let-values(((to-name61_0) to-name_0)" "((ht+extras62_0) ht+extras_0)" "((ns63_0) ns_121)" @@ -58737,7 +58796,7 @@ static const char *startup_source = "(begin" " 'declare-hash-based-module!41" "(let-values(((name_75) name39_0))" -"(let-values(((ht_162) ht40_0))" +"(let-values(((ht_161) ht40_0))" "(let-values(((ns_122) namespace29_0))" "(let-values(((primitive?_10) primitive?30_0))" "(let-values(((protected?_11) protected?31_0))" @@ -58746,36 +58805,36 @@ static const char *startup_source = "(let-values()" "(let-values(((mpi_5)(1/module-path-index-join(list 'quote name_75) #f)))" "(let-values(((ns66_0) ns_122)" -"((temp67_4)" +"((temp67_5)" "(let-values(((temp69_3) #t)" "((primitive?70_0) primitive?_10)" "((temp71_4) #t)" "((temp72_3)(not protected?_11))" "((mpi73_1) mpi_5)" -"((temp74_3)" +"((temp74_2)" "(hasheqv" " 0" -"(let-values(((ht_163) ht_162))" +"(let-values(((ht_162) ht_161))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash-keys ht_163)))" -"((letrec-values(((for-loop_279)" -"(lambda(table_215 i_177)" +"(let-values()(check-in-hash-keys ht_162)))" +"((letrec-values(((for-loop_277)" +"(lambda(table_212 i_176)" "(begin" " 'for-loop" -"(if i_177" +"(if i_176" "(let-values(((sym_102)" "(hash-iterate-key" -" ht_163" -" i_177)))" +" ht_162" +" i_176)))" "(let-values(((table_6)" "(let-values(((table_7)" -" table_215))" -"(let-values(((table_216)" +" table_212))" +"(let-values(((table_213)" "(let-values()" -"(let-values(((key_86" -" val_83)" +"(let-values(((key_85" +" val_82)" "(let-values()" "(let-values((()" "(begin" @@ -58821,21 +58880,21 @@ static const char *startup_source = " binding_27)))))))" "(hash-set" " table_7" -" key_86" -" val_83)))))" +" key_85" +" val_82)))))" "(values" -" table_216)))))" +" table_213)))))" "(if(not #f)" -"(for-loop_279" +"(for-loop_277" " table_6" "(hash-iterate-next" -" ht_163" -" i_177))" +" ht_162" +" i_176))" " table_6)))" -" table_215)))))" -" for-loop_279)" +" table_212)))))" +" for-loop_277)" " '#hash()" -"(hash-iterate-first ht_163))))))" +"(hash-iterate-first ht_162))))))" "((temp75_4)" "(lambda(data-box_6" " ns_123" @@ -58847,21 +58906,21 @@ static const char *startup_source = "(if(= 0 phase-level_23)" "(let-values()" "(begin" -"(let-values(((ht_164) ht_162))" +"(let-values(((ht_163) ht_161))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_164)))" -"((letrec-values(((for-loop_280)" -"(lambda(i_178)" +"(let-values()(check-in-hash ht_163)))" +"((letrec-values(((for-loop_278)" +"(lambda(i_177)" "(begin" " 'for-loop" -"(if i_178" -"(let-values(((sym_103 val_84)" +"(if i_177" +"(let-values(((sym_103 val_83)" "(hash-iterate-key+value" -" ht_164" -" i_178)))" +" ht_163" +" i_177)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -58872,18 +58931,18 @@ static const char *startup_source = " ns_123" " 0" " sym_103" -" val_84))" +" val_83))" "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_280" +"(for-loop_278" "(hash-iterate-next" -" ht_164" -" i_178))" +" ht_163" +" i_177))" "(values))))" "(values))))))" -" for-loop_280)" -"(hash-iterate-first ht_164))))" +" for-loop_278)" +"(hash-iterate-first ht_163))))" "(void)))" "(void)))))" "(make-module39.1" @@ -58899,14 +58958,14 @@ static const char *startup_source = " temp71_4" " unsafe-undefined" " primitive?70_0" -" temp74_3" +" temp74_2" " null" " mpi73_1" " #f" " null" " #f)))" -"((temp68_5)(1/module-path-index-resolve mpi_5)))" -"(declare-module!58.1 #t ns66_0 temp67_4 temp68_5))))))))))))))" +"((temp68_6)(1/module-path-index-resolve mpi_5)))" +"(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_0 require-names49_0)" @@ -58925,13 +58984,13 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_109)))" -"((letrec-values(((for-loop_206)" +"((letrec-values(((for-loop_205)" "(lambda(fold-var_141 lst_110)" "(begin" " 'for-loop" "(if(pair? lst_110)" "(let-values(((require-name_0)(unsafe-car lst_110))" -"((rest_109)(unsafe-cdr lst_110)))" +"((rest_108)(unsafe-cdr lst_110)))" "(let-values(((fold-var_39)" "(let-values(((fold-var_283) fold-var_141))" "(let-values(((fold-var_284)" @@ -58946,37 +59005,37 @@ static const char *startup_source = " fold-var_283))))" "(values fold-var_284)))))" "(if(not #f)" -"(for-loop_206 fold-var_39 rest_109)" +"(for-loop_205 fold-var_39 rest_108)" " fold-var_39)))" " fold-var_141)))))" -" for-loop_206)" +" for-loop_205)" " null" " lst_109))))))" "(let-values(((ns79_1) ns_124)" "((temp80_2)" -"(let-values(((temp82_2) #t)" -"((temp83_4) #t)" +"(let-values(((temp82_3) #t)" +"((temp83_3) #t)" "((mpi84_0) mpi_53)" -"((temp85_5)(list(cons 0 require-mpis_0)))" +"((temp85_4)(list(cons 0 require-mpis_0)))" "((temp86_4)" "(if reexport?_0" "(hasheqv" " 0" -"(let-values(((lst_157) require-mpis_0))" +"(let-values(((lst_156) require-mpis_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_157)))" -"((letrec-values(((for-loop_281)" -"(lambda(table_217 lst_54)" +"(let-values()(check-list lst_156)))" +"((letrec-values(((for-loop_279)" +"(lambda(table_214 lst_308)" "(begin" " 'for-loop" -"(if(pair? lst_54)" +"(if(pair? lst_308)" "(let-values(((require-mpi_0)" -"(unsafe-car lst_54))" -"((rest_180)" -"(unsafe-cdr lst_54)))" -"(let-values(((table_218)" +"(unsafe-car lst_308))" +"((rest_179)" +"(unsafe-cdr lst_308)))" +"(let-values(((table_215)" "(let-values(((m_29)" "(namespace->module" " ns_124" @@ -58984,13 +59043,13 @@ static const char *startup_source = " require-mpi_0))))" "(begin" " #t" -"((letrec-values(((for-loop_185)" -"(lambda(table_139)" +"((letrec-values(((for-loop_183)" +"(lambda(table_140)" "(begin" " 'for-loop" "(let-values()" -"(let-values(((table_219)" -"(let-values(((ht_165)" +"(let-values(((table_216)" +"(let-values(((ht_164)" "(hash-ref" "(shift-provides-module-path-index" "(module-provides" @@ -59005,62 +59064,62 @@ static const char *startup_source = "(void)" "(let-values()" "(check-in-hash" -" ht_165)))" -"((letrec-values(((for-loop_282)" -"(lambda(table_140" -" i_179)" +" ht_164)))" +"((letrec-values(((for-loop_280)" +"(lambda(table_141" +" i_178)" "(begin" " 'for-loop" -"(if i_179" +"(if i_178" "(let-values(((sym_104" " binding_28)" "(hash-iterate-key+value" -" ht_165" -" i_179)))" +" ht_164" +" i_178)))" "(let-values(((table_31)" "(let-values(((table_32)" -" table_140))" -"(let-values(((table_220)" +" table_141))" +"(let-values(((table_217)" "(let-values()" -"(let-values(((key_87" -" val_85)" +"(let-values(((key_86" +" val_84)" "(let-values()" "(values" " sym_104" " binding_28))))" "(hash-set" " table_32" -" key_87" -" val_85)))))" +" key_86" +" val_84)))))" "(values" -" table_220)))))" +" table_217)))))" "(if(not" " #f)" -"(for-loop_282" +"(for-loop_280" " table_31" "(hash-iterate-next" -" ht_165" -" i_179))" +" ht_164" +" i_178))" " table_31)))" -" table_140)))))" -" for-loop_282)" -" table_139" +" table_141)))))" +" for-loop_280)" +" table_140" "(hash-iterate-first" -" ht_165))))))" -" table_219))))))" -" for-loop_185)" -" table_217)))))" +" ht_164))))))" +" table_216))))))" +" for-loop_183)" +" table_214)))))" "(if(not #f)" -"(for-loop_281 table_218 rest_180)" -" table_218)))" -" table_217)))))" -" for-loop_281)" +"(for-loop_279 table_215 rest_179)" +" table_215)))" +" table_214)))))" +" for-loop_279)" " '#hash()" -" lst_157))))" +" lst_156))))" " '#hasheqv()))" "((void87_0) void))" "(make-module39.1" -" temp82_2" +" temp82_3" " unsafe-undefined" " unsafe-undefined" " void87_0" @@ -59069,11 +59128,11 @@ static const char *startup_source = " 0" " #f" " unsafe-undefined" -" temp83_4" +" temp83_3" " unsafe-undefined" " #f" " temp86_4" -" temp85_5" +" temp85_4" " mpi84_0" " #f" " null" @@ -59302,10 +59361,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_97)(TH-place-channel-ref x_97 0))))))" +"(make-struct-type 'TH-place-channel #f 2 0 #f(list(cons prop:evt(lambda(x_96)(TH-place-channel-ref x_96 0))))))" "(define-values" "(TH-place-channel-in TH-place-channel-out)" -"(values(lambda(x_98)(TH-place-channel-ref x_98 0))(lambda(x_84)(TH-place-channel-ref x_84 1))))" +"(values(lambda(x_97)(TH-place-channel-ref x_97 0))(lambda(x_83)(TH-place-channel-ref x_83 1))))" "(define-values" "(place-struct-primitives)" "(hasheq" @@ -59502,25 +59561,25 @@ static const char *startup_source = "(let-values()" "((call-with-input-module-file" " path_12" -"(lambda(i_180)" +"(lambda(i_179)" "(begin" -"(maybe-count-lines!_0 i_180)" +"(maybe-count-lines!_0 i_179)" "(with-module-reading-parameterization+delay-source" " path_12" "(lambda()" -"(let-values(((c1_32)(linklet-directory-start i_180)))" +"(let-values(((c1_32)(linklet-directory-start i_179)))" "(if c1_32" "((lambda(pos_123)" "(let-values(((b-pos_0)" -"(search-directory i_180 pos_123(encode-symbols expected-mod_0))))" +"(search-directory i_179 pos_123(encode-symbols expected-mod_0))))" "(if b-pos_0" "(let-values()" "(begin" -"(file-position i_180 b-pos_0)" -"(let-values(((or-part_12)(cached-bundle i_180)))" +"(file-position i_179 b-pos_0)" +"(let-values(((or-part_12)(cached-bundle i_179)))" "(if or-part_12" " or-part_12" -"(let-values(((v_0)(1/read i_180)))" +"(let-values(((v_0)(1/read i_179)))" "(if(1/compiled-module-expression? v_0)" "(lambda()((1/current-eval) v_0))" "(error" @@ -59529,7 +59588,7 @@ static const char *startup_source = " \"expected a compiled module\\n\"" " \" in: ~e\\n\"" " \" found: ~e\")" -"(object-name i_180)" +"(object-name i_179)" " v_0)))))))" "(if(pair? expected-mod_0)" "(let-values() void)" @@ -59537,18 +59596,18 @@ static const char *startup_source = "(error" " 'default-load-handler" " (string-append \"could not find main module\\n\" \" in: ~e\")" -"(object-name i_180)))))))" +"(object-name i_179)))))))" " c1_32)" "(if(if(pair? expected-mod_0)(not(car expected-mod_0)) #f)" "(let-values() void)" -"(let-values(((c2_17)(cached-bundle i_180)))" +"(let-values(((c2_17)(cached-bundle i_179)))" "(if c2_17" "((lambda(thunk_8) thunk_8) c2_17)" "(let-values()" -"(let-values(((s_178)(1/read-syntax(object-name i_180) i_180)))" +"(let-values(((s_179)(1/read-syntax(object-name i_179) i_179)))" "(let-values((()" "(begin" -"(if(eof-object? s_178)" +"(if(eof-object? s_179)" "(let-values()" "(error" " 'default-load-handler" @@ -59556,11 +59615,11 @@ static const char *startup_source = " \"expected a `module' declaration;\\n\"" " \" found end-of-file\\n\"" " \" in: ~e\")" -"(object-name i_180)))" +"(object-name i_179)))" "(void))" "(values))))" -"(let-values(((m-s_0)(check-module-form s_178 path_12)))" -"(let-values(((s2_10)(1/read-syntax(object-name i_180) i_180)))" +"(let-values(((m-s_0)(check-module-form s_179 path_12)))" +"(let-values(((s2_10)(1/read-syntax(object-name i_179) i_179)))" "(begin" "(if(eof-object? s2_10)" "(void)" @@ -59572,7 +59631,7 @@ static const char *startup_source = " \" found an extra form\\n\"" " \" in: ~e\\n\"" " \" found: ~.s\")" -"(object-name i_180)" +"(object-name i_179)" " s2_10)))" "(lambda()((1/current-eval) m-s_0))))))))))))))))))))" "(let-values()" @@ -59584,11 +59643,11 @@ static const char *startup_source = "(1/datum->syntax #f(cons '#%top-interaction s_497) s_497))))))" "(let-values(((path1_0) path_12)" "((temp2_8)" -"(lambda(i_181)" +"(lambda(i_180)" "(begin" " 'temp2" "(begin" -"(maybe-count-lines!_0 i_181)" +"(maybe-count-lines!_0 i_180)" "((letrec-values(((loop_35)" "(lambda(vals_7)" "(begin" @@ -59618,11 +59677,11 @@ static const char *startup_source = "(path->complete-path path_12))" "(let-values()" "(1/read-syntax" -"(object-name i_181)" -" i_181)))" +"(object-name i_180)" +" i_180)))" "(1/read-syntax" -"(object-name i_181)" -" i_181))))))" +"(object-name i_180)" +" i_180))))))" "(if(eof-object? s_304)" "(apply values vals_7)" "(loop_35" @@ -59661,10 +59720,10 @@ static const char *startup_source = "(begin(let-values(((pos_95)(linklet-bundle-or-directory-start i_92 '#\\D)))(if pos_95(+ pos_95 4) #f)))))" "(define-values" "(linklet-bundle-hash-code)" -"(lambda(i_182)" +"(lambda(i_181)" "(begin" -"(let-values(((pos_15)(linklet-bundle-or-directory-start i_182 '#\\B)))" -"(let-values(((hash-code_5)(if pos_15(peek-bytes 20 pos_15 i_182) #f)))" +"(let-values(((pos_15)(linklet-bundle-or-directory-start i_181 '#\\B)))" +"(let-values(((hash-code_5)(if pos_15(peek-bytes 20 pos_15 i_181) #f)))" "(if(bytes? hash-code_5)" "(if(= 20(bytes-length hash-code_5))" "(if(let-values(((vec_70 len_37)" @@ -59672,23 +59731,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_234)" -"(lambda(result_124 pos_99)" +"((letrec-values(((for-loop_233)" +"(lambda(result_123 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_126)))))" -"(if(if(not((lambda x_99 result_125) c_52))(not #f) #f)" -"(for-loop_234 result_125(unsafe-fx+ 1 pos_99))" -" result_125)))" -" result_124)))))" -" for-loop_234)" +"(values result_125)))))" +"(if(if(not((lambda x_98 result_124) c_52))(not #f) #f)" +"(for-loop_233 result_124(unsafe-fx+ 1 pos_99))" +" result_124)))" +" result_123)))))" +" for-loop_233)" " #f" " 0)))" " hash-code_5" @@ -59708,10 +59767,10 @@ static const char *startup_source = "(lambda(i_62)" "(begin" "(let-values(((read-byte/not-eof_0)" -"(lambda(i_183)" +"(lambda(i_182)" "(begin" " 'read-byte/not-eof" -"(let-values(((v_187)(read-byte i_183)))(if(eof-object? v_187) 0 v_187))))))" +"(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)" @@ -59719,14 +59778,14 @@ static const char *startup_source = "(arithmetic-shift(read-byte/not-eof_0 i_62) 24))))))" "(define-values" "(search-directory)" -"(lambda(i_184 pos_124 bstr_5)" +"(lambda(i_183 pos_124 bstr_5)" "(begin" "(if(zero? pos_124)" "(let-values() #f)" "(let-values()" -"(let-values((()(begin(file-position i_184 pos_124)(values))))" -"(let-values(((name-len_0)(read-number i_184)))" -"(let-values(((v_256)(read-bytes name-len_0 i_184)))" +"(let-values((()(begin(file-position i_183 pos_124)(values))))" +"(let-values(((name-len_0)(read-number i_183)))" +"(let-values(((v_256)(read-bytes name-len_0 i_183)))" "(begin" "(if(if(bytes? v_256)(=(bytes-length v_256) name-len_0) #f)" "(void)" @@ -59739,24 +59798,24 @@ static const char *startup_source = " \" at position: ~a\\n\"" " \" expected bytes: ~a\\n\"" " \" read bytes: ~e\")" -"(object-name i_184)" +"(object-name i_183)" " pos_124" " name-len_0" " v_256)))" "(if(bytes=? bstr_5 v_256)" -"(let-values()(read-number i_184))" +"(let-values()(read-number i_183))" "(if(bytesbytes/utf-8" -"(symbol->string s_185))))" +"(symbol->string s_186))))" "(let-values(((len_40)" "(bytes-length bstr_6)))" "(if(< len_40 255)" @@ -59827,12 +59886,12 @@ static const char *startup_source = "(call-with-input-module-file)" "(lambda(path_14 proc_10)" "(begin" -"(let-values(((i_156) #f))" +"(let-values(((i_155) #f))" "(dynamic-wind" "(lambda()" -"(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)))))))" +"(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)))))))" "(define-values(dll-suffix)(system-type 'so-suffix))" "(define-values" "(default-load/use-compiled)" @@ -60203,12 +60262,12 @@ static const char *startup_source = "(path-cache-set!)" "(lambda(p_78 v_257)" "(begin" -"(let-values(((i_165)(modulo(abs(equal-hash-code p_78)) CACHE-N)))" -"(let-values(((w_2)(vector-ref -path-cache i_165)))" +"(let-values(((i_164)(modulo(abs(equal-hash-code p_78)) CACHE-N)))" +"(let-values(((w_2)(vector-ref -path-cache i_164)))" "(let-values(((l_19)(if w_2(weak-box-value w_2) #f)))" "(vector-set!" " -path-cache" -" i_165" +" i_164" "(make-weak-box" "(cons(cons p_78 v_257)(let-values(((or-part_65) l_19))(if or-part_65 or-part_65 null)))))))))))" "(define-values(-loading-filename)(gensym))" @@ -60221,21 +60280,21 @@ static const char *startup_source = "(begin" "(let-values(((l_85)" "((letrec-values(((loop_46)" -"(lambda(s_305)" +"(lambda(s_306)" "(begin" " 'loop" -"(let-values(((len_42)(string-length s_305)))" +"(let-values(((len_42)(string-length s_306)))" "((letrec-values(((iloop_2)" "(lambda(i_100)" "(begin" " 'iloop" "(if(= i_100 len_42)" -"(let-values()(list s_305))" -"(if(char=? '#\\/(string-ref s_305 i_100))" +"(let-values()(list s_306))" +"(if(char=? '#\\/(string-ref s_306 i_100))" "(let-values()" "(cons" -"(substring s_305 0 i_100)" -"(loop_46(substring s_305(add1 i_100)))))" +"(substring s_306 0 i_100)" +"(loop_46(substring s_306(add1 i_100)))))" "(let-values()(iloop_2(add1 i_100)))))))))" " iloop_2)" " 0))))))" @@ -60255,15 +60314,15 @@ static const char *startup_source = " l_85))))))" "(define-values" "(format-source-location)" -"(lambda(stx_17)" +"(lambda(stx_18)" "(begin" "(srcloc->string" "(srcloc" -"(1/syntax-source stx_17)" -"(1/syntax-line stx_17)" -"(1/syntax-column stx_17)" -"(1/syntax-position stx_17)" -"(1/syntax-span stx_17))))))" +"(1/syntax-source stx_18)" +"(1/syntax-line stx_18)" +"(1/syntax-column stx_18)" +"(1/syntax-position stx_18)" +"(1/syntax-span stx_18))))))" "(define-values(orig-paramz) #f)" "(define-values" "(standard-module-name-resolver)" @@ -60283,14 +60342,14 @@ static const char *startup_source = " (1/dynamic-require '(lib \"planet/resolver.rkt\") 'planet-module-name-resolver)))))))))" "(letrec-values(((standard-module-name-resolver_0)" "(case-lambda" -"((s_173 from-namespace_1)" +"((s_174 from-namespace_1)" "(begin" " 'standard-module-name-resolver" "(begin" -"(if(1/resolved-module-path? s_173)" +"(if(1/resolved-module-path? s_174)" "(void)" "(let-values()" -" (raise-argument-error 'standard-module-name-resolver \"resolved-module-path?\" s_173)))" +" (raise-argument-error 'standard-module-name-resolver \"resolved-module-path?\" s_174)))" "(if(let-values(((or-part_133)(not from-namespace_1)))" "(if or-part_133 or-part_133(1/namespace? from-namespace_1)))" "(void)" @@ -60299,7 +60358,7 @@ static const char *startup_source = " 'standard-module-name-resolver" " \"(or/c #f namespace?)\"" " from-namespace_1)))" -"(if planet-resolver_0(let-values()(planet-resolver_0 s_173))(void))" +"(if planet-resolver_0(let-values()(planet-resolver_0 s_174))(void))" "(let-values(((hts_1)" "(let-values(((or-part_98)" "(registry-table-ref" @@ -60313,14 +60372,14 @@ static const char *startup_source = " hts_2)" " hts_2))))))" "(begin" -"(hash-set!(car hts_1) s_173 'declared)" +"(hash-set!(car hts_1) s_174 'declared)" "(if from-namespace_1" "(let-values()" "(let-values(((root-name_2)" -"(if(pair?(1/resolved-module-path-name s_173))" +"(if(pair?(1/resolved-module-path-name s_174))" "(1/make-resolved-module-path" -"(car(1/resolved-module-path-name s_173)))" -" s_173))" +"(car(1/resolved-module-path-name s_174)))" +" s_174))" "((from-hts_0)" "(registry-table-ref" "(namespace-module-registry$1 from-namespace_1))))" @@ -60332,22 +60391,22 @@ static const char *startup_source = "(void))))" "(void))))" "(void)))))))" -"((s_450 relto_0 stx_18)" +"((s_449 relto_0 stx_19)" "(begin" "(log-message" "(current-logger)" " 'error" " \"default module name resolver called with three arguments (deprecated)\"" " #f)" -"(standard-module-name-resolver_0 s_450 relto_0 stx_18 #t)))" -"((s_499 relto_1 stx_19 load?_7)" +"(standard-module-name-resolver_0 s_449 relto_0 stx_19 #t)))" +"((s_499 relto_1 stx_20 load?_7)" "(let-values((()" "(begin" "(if(1/module-path? s_499)" "(void)" "(let-values()" -"(if(syntax?$1 stx_19)" -" (raise-syntax-error$1 #f \"bad module path\" stx_19)" +"(if(syntax?$1 stx_20)" +" (raise-syntax-error$1 #f \"bad module path\" stx_20)" "(raise-argument-error" " 'standard-module-name-resolver" " \"module-path?\"" @@ -60366,14 +60425,14 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(if(let-values(((or-part_55)(not stx_19)))" -"(if or-part_55 or-part_55(syntax?$1 stx_19)))" +"(if(let-values(((or-part_55)(not stx_20)))" +"(if or-part_55 or-part_55(syntax?$1 stx_20)))" "(void)" "(let-values()" "(raise-argument-error" " 'standard-module-name-resolver" " \"(or/c #f syntax?)\"" -" stx_19)))" +" stx_20)))" "(values))))" "(let-values(((flatten-sub-path_0)" "(lambda(base_27 orig-l_10)" @@ -60449,7 +60508,7 @@ static const char *startup_source = "(let-values()" "(begin" "(prep-planet-resolver!_0)" -"(planet-resolver_0 s_499 relto_1 stx_19 load?_7 #f orig-paramz)))" +"(planet-resolver_0 s_499 relto_1 stx_20 load?_7 #f orig-paramz)))" "(if(if(pair? s_499)" "(if(eq?(car s_499) 'submod)" "(if(pair?(cadr s_499))(eq?(caadr s_499) 'planet) #f)" @@ -60461,7 +60520,7 @@ static const char *startup_source = "(planet-resolver_0" "(cadr s_499)" " relto_1" -" stx_19" +" stx_20" " load?_7" "(cddr s_499)" " orig-paramz)))" @@ -60513,10 +60572,10 @@ static const char *startup_source = "(let-values(((msg_2)" "(string-append" "(let-values(((or-part_368)" -"(if stx_19" +"(if stx_20" "(if(error-print-source-location)" "(format-source-location" -" stx_19)" +" stx_20)" " #f)" " #f)))" "(if or-part_368" @@ -60530,11 +60589,11 @@ static const char *startup_source = " \"\\n for module path: ~s\\n\"" " s_499)))))" "(raise" -"(if stx_19" +"(if stx_20" "(1/make-exn:fail:syntax:missing-module" " msg_2" "(current-continuation-marks)" -"(list stx_19)" +"(list stx_20)" " s_499)" "(1/make-exn:fail:filesystem:missing-module" " msg_2" @@ -60746,13 +60805,13 @@ static const char *startup_source = "(if or-part_131 or-part_131(vector? s-parsed_0)))" "(void)" "(let-values()" -"(if stx_19" +"(if stx_20" "(raise-syntax-error$1" " 'require" "(format" " \"bad module path~a\"" " (if s-parsed_0 (car s-parsed_0) \"\"))" -" stx_19)" +" stx_20)" "(raise-argument-error" " 'standard-module-name-resolver" " \"module-path?\"" @@ -60882,12 +60941,12 @@ static const char *startup_source = " 1/current-module-declare-name" " root-modname_0" " 1/current-module-path-for-load" -"((if stx_19" +"((if stx_20" "(lambda(p_85)" "(1/datum->syntax" " #f" " p_85" -" stx_19))" +" stx_20))" " values)" "(if(symbol? s_501)" "(let-values() s_501)" @@ -61011,24 +61070,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_74)" +"(lambda(ctx_72)" "(begin" -"(let-values(((phase_42)(add1(expand-context-phase ctx_74))))" -"(let-values(((ns_59)(namespace->namespace-at-phase(expand-context-namespace ctx_74) phase_42)))" -"(namespace-visit-available-modules! ns_59 phase_42))))))" +"(let-values(((phase_44)(add1(expand-context-phase ctx_72))))" +"(let-values(((ns_59)(namespace->namespace-at-phase(expand-context-namespace ctx_72) 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_75) ctx6_0))" +"(let-values(((ctx_73) ctx6_0))" "(let-values(((s_491) source1_0))" "(let-values(((stratified?_0) stratified?2_0))" "(let-values()" "(let-values((()" "(begin" -"(let-values(((obs_65)(expand-context-observer ctx_75)))" +"(let-values(((obs_65)(expand-context-observer ctx_73)))" "(if obs_65" "(let-values()" "(let-values()" @@ -61070,7 +61129,7 @@ static const char *startup_source = " lst_22))))))" "(let-values((()" "(begin" -"(let-values(((obs_66)(expand-context-observer ctx_75)))" +"(let-values(((obs_66)(expand-context-observer ctx_73)))" "(if obs_66" "(let-values()" "(let-values()" @@ -61081,13 +61140,13 @@ static const char *startup_source = "(datum->syntax$1 #f bodys_7))))" "(void)))" "(values))))" -"(let-values(((phase_134)(expand-context-phase ctx_75)))" +"(let-values(((phase_136)(expand-context-phase ctx_73)))" "(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_75))" -"(let-values(((the-struct_90) v_259))" -"(if(expand-context/outer? the-struct_90)" +"(let-values(((v_259) ctx_73))" +"(let-values(((the-struct_91) v_259))" +"(if(expand-context/outer? the-struct_91)" "(let-values(((context51_0)(list(make-liberal-define-context)))" "((name52_0) #f)" "((only-immediate?53_0) #t)" @@ -61095,44 +61154,45 @@ static const char *startup_source = "((post-expansion-scope55_0) inside-sc_0)" "((post-expansion-scope-action56_0) add-scope)" "((scopes57_1)" -"(cons inside-sc_0(expand-context-scopes ctx_75)))" +"(cons inside-sc_0(expand-context-scopes ctx_73)))" "((use-site-scopes58_0)(box null))" "((frame-id59_0) frame-id_7)" "((reference-records60_0)" "(cons" " frame-id_7" -"(expand-context-reference-records ctx_75)))" +"(expand-context-reference-records ctx_73)))" "((inner61_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_91)" " use-site-scopes58_0" " frame-id59_0" " context51_0" -"(expand-context/outer-env the-struct_90)" +"(expand-context/outer-env the-struct_91)" " post-expansion-scope-action56_0" " scopes57_1" " def-ctx-scopes54_0" -"(expand-context/outer-binding-layer the-struct_90)" +"(expand-context/outer-binding-layer the-struct_91)" " reference-records60_0" " only-immediate?53_0" -"(expand-context/outer-need-eventually-defined the-struct_90)" -"(expand-context/outer-current-introduction-scopes the-struct_90)" +"(expand-context/outer-need-eventually-defined the-struct_91)" +"(expand-context/outer-current-introduction-scopes the-struct_91)" " name52_0))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_90))))))" +" the-struct_91))))))" "(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_75))" +"(expand-context-binding-layer ctx_73))" "(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_75)))" +"(let-values(((name_80)(expand-context-name ctx_73)))" "((letrec-values(((loop_121)" "(lambda(body-ctx_2" " bodys_8" @@ -61153,16 +61213,16 @@ static const char *startup_source = "((def-ctx-scopes64_0) def-ctx-scopes_6)" "((temp65_5)(reverse$1 val-idss_0))" "((temp66_5)(reverse$1 val-keyss_0))" -"((temp67_5)(reverse$1 val-rhss_0))" -"((temp68_6)(reverse$1 track-stxs_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_491)" "((stratified?72_0) stratified?_0)" "((name73_0) name_80)" -"((temp74_4)(reverse$1 trans-idss_1)))" +"((temp74_3)(reverse$1 trans-idss_1)))" "(finish-expanding-body27.1" -" temp74_4" +" temp74_3" " name73_0" " s71_0" " stratified?72_0" @@ -61171,8 +61231,8 @@ static const char *startup_source = " def-ctx-scopes64_0" " temp65_5" " temp66_5" -" temp67_5" -" temp68_6" +" temp67_6" +" temp68_7" " temp69_4" " temp70_5)))" "(let-values()" @@ -61192,17 +61252,17 @@ static const char *startup_source = "(values))))" "(let-values(((exp-body_0)" "(let-values(((temp75_5)(car bodys_8))" -"((temp76_5)" +"((temp76_4)" "(if(if name_80" "(null?" "(cdr bodys_8))" " #f)" "(let-values(((v_260)" " body-ctx_2))" -"(let-values(((the-struct_91)" +"(let-values(((the-struct_92)" " v_260))" "(if(expand-context/outer?" -" the-struct_91)" +" the-struct_92)" "(let-values(((name77_0)" " name_80)" "((inner78_0)" @@ -61211,49 +61271,51 @@ static const char *startup_source = "(expand-context/outer1.1" " inner78_0" "(root-expand-context/outer-post-expansion-scope" -" the-struct_91)" +" the-struct_92)" +"(root-expand-context/outer-post-expansion-shifts" +" 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)" +" the-struct_92)" "(expand-context/outer-env" -" the-struct_91)" +" the-struct_92)" "(expand-context/outer-post-expansion-scope-action" -" the-struct_91)" +" 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)" " name77_0))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_91))))" +" the-struct_92))))" " body-ctx_2)))" "(expand9.1" " #f" " #f" " #f" " temp75_5" -" temp76_5))))" +" temp76_4))))" "(let-values(((disarmed-exp-body_0)" "(syntax-disarm$1 exp-body_0)))" "(let-values(((tmp_63)" "(core-form-sym" " disarmed-exp-body_0" -" phase_134)))" +" phase_136)))" "(if(equal? tmp_63 'begin)" "(let-values()" "(let-values((()" @@ -61285,20 +61347,20 @@ static const char *startup_source = "(if(pair?" " s_504)" "(let-values(((begin81_0)" -"(let-values(((s_176)" +"(let-values(((s_177)" "(car" " s_504)))" -" s_176))" +" s_177))" "((e82_0)" -"(let-values(((s_450)" +"(let-values(((s_449)" "(cdr" " s_504)))" "(let-values(((s_46)" "(if(syntax?$1" -" s_450)" +" s_449)" "(syntax-e$1" -" s_450)" -" s_450)))" +" s_449)" +" s_449)))" "(let-values(((flat-s_25)" "(to-syntax-list.1" " s_46)))" @@ -61391,10 +61453,10 @@ static const char *startup_source = "(if(pair?" " s_51)" "(let-values(((define-values86_0)" -"(let-values(((s_451)" +"(let-values(((s_450)" "(car" " s_51)))" -" s_451))" +" s_450))" "((id87_0" " rhs88_0)" "(let-values(((s_505)" @@ -61439,56 +61501,56 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_191)))" -"((letrec-values(((for-loop_202)" +"((letrec-values(((for-loop_201)" "(lambda(id_81" " lst_13)" "(begin" " 'for-loop" "(if(pair?" " lst_13)" -"(let-values(((s_312)" +"(let-values(((s_313)" "(unsafe-car" " lst_13))" -"((rest_104)" +"((rest_103)" "(unsafe-cdr" " lst_13)))" +"(let-values(((id_102)" "(let-values(((id_103)" -"(let-values(((id_104)" " id_81))" -"(let-values(((id_8)" +"(let-values(((id_70)" "(let-values()" "(let-values(((id92_0)" "(let-values()" "(if(let-values(((or-part_212)" "(if(syntax?$1" -" s_312)" +" s_313)" "(symbol?" "(syntax-e$1" -" s_312))" +" s_313))" " #f)))" "(if or-part_212" " or-part_212" "(symbol?" -" s_312)))" -" s_312" +" s_313)))" +" s_313" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_39" -" s_312)))))" +" s_313)))))" "(cons" " id92_0" -" id_104)))))" +" id_103)))))" "(values" -" id_8)))))" +" id_70)))))" "(if(not" " #f)" -"(for-loop_202" -" id_103" -" rest_104)" -" id_103)))" +"(for-loop_201" +" id_102" +" rest_103)" +" id_102)))" " id_81)))))" -" for-loop_202)" +" for-loop_201)" " null" " lst_191)))))" "(reverse$1" @@ -61579,7 +61641,7 @@ static const char *startup_source = "(let-values(((ids93_0)" " ids_31)" "((phase94_1)" -" phase_134)" +" phase_136)" "((exp-body95_0)" " exp-body_0)" "((dups96_0)" @@ -61592,10 +61654,10 @@ static const char *startup_source = " dups96_0))))" "(let-values(((counter_5)" "(root-expand-context-counter" -" ctx_75)))" +" ctx_73)))" "(let-values(((keys_5)" "(reverse$1" -"(let-values(((lst_308)" +"(let-values(((lst_309)" " ids_31))" "(begin" "(if(variable-reference-from-unsafe?" @@ -61603,20 +61665,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_308)))" -"((letrec-values(((for-loop_283)" +" lst_309)))" +"((letrec-values(((for-loop_281)" "(lambda(fold-var_185" -" lst_309)" +" lst_310)" "(begin" " 'for-loop" "(if(pair?" -" lst_309)" -"(let-values(((id_105)" +" lst_310)" +"(let-values(((id_104)" "(unsafe-car" -" lst_309))" -"((rest_181)" +" lst_310))" +"((rest_180)" "(unsafe-cdr" -" lst_309)))" +" lst_310)))" "(let-values(((fold-var_246)" "(let-values(((fold-var_247)" " fold-var_185))" @@ -61625,9 +61687,9 @@ static const char *startup_source = "(cons" "(let-values()" "(let-values(((id97_0)" -" id_105)" +" id_104)" "((phase98_0)" -" phase_134)" +" phase_136)" "((counter99_0)" " counter_5)" "((frame-id100_0)" @@ -61645,14 +61707,14 @@ static const char *startup_source = " fold-var_285)))))" "(if(not" " #f)" -"(for-loop_283" +"(for-loop_281" " fold-var_246" -" rest_181)" +" rest_180)" " fold-var_246)))" " fold-var_185)))))" -" for-loop_283)" +" for-loop_281)" " null" -" lst_308))))))" +" lst_309))))))" "(let-values(((extended-env_0)" "(let-values(((lst_225)" " keys_5)" @@ -61671,27 +61733,27 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_306)))" -"((letrec-values(((for-loop_278)" +"((letrec-values(((for-loop_276)" "(lambda(env_17" -" lst_310" +" lst_311" " lst_294)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_310)" +" lst_311)" "(pair?" " lst_294)" " #f)" -"(let-values(((key_88)" +"(let-values(((key_87)" "(unsafe-car" -" lst_310))" -"((rest_169)" +" lst_311))" +"((rest_168)" "(unsafe-cdr" -" lst_310))" -"((id_106)" +" lst_311))" +"((id_9)" "(unsafe-car" " lst_294))" -"((rest_182)" +"((rest_181)" "(unsafe-cdr" " lst_294)))" "(let-values(((env_18)" @@ -61701,20 +61763,20 @@ static const char *startup_source = "(let-values()" "(env-extend" " env_19" -" key_88" +" key_87" "(local-variable1.1" -" id_106)))))" +" id_9)))))" "(values" " env_20)))))" "(if(not" " #f)" -"(for-loop_278" +"(for-loop_276" " env_18" -" rest_169" -" rest_182)" +" rest_168" +" rest_181)" " env_18)))" " env_17)))))" -" for-loop_278)" +" for-loop_276)" "(expand-context-env" " body-ctx_2)" " lst_225" @@ -61722,10 +61784,10 @@ static const char *startup_source = "(loop_121" "(let-values(((v_261)" " body-ctx_2))" -"(let-values(((the-struct_92)" +"(let-values(((the-struct_93)" " v_261))" "(if(expand-context/outer?" -" the-struct_92)" +" the-struct_93)" "(let-values(((env102_0)" " extended-env_0)" "((binding-layer103_0)" @@ -61738,42 +61800,44 @@ static const char *startup_source = "(expand-context/outer1.1" " inner104_0" "(root-expand-context/outer-post-expansion-scope" -" the-struct_92)" +" the-struct_93)" +"(root-expand-context/outer-post-expansion-shifts" +" 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)" +" the-struct_93)" " env102_0" "(expand-context/outer-post-expansion-scope-action" -" the-struct_92)" +" the-struct_93)" "(expand-context/outer-scopes" -" the-struct_92)" +" the-struct_93)" "(expand-context/outer-def-ctx-scopes" -" the-struct_92)" +" the-struct_93)" " binding-layer103_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-name" -" the-struct_92)))" +" the-struct_93)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_92))))" +" the-struct_93))))" " rest-bodys_0" " null" "(cons" " ids_31" "(append" "(reverse$1" -"(let-values(((lst_311)" +"(let-values(((lst_312)" " done-bodys_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -61781,20 +61845,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_311)))" -"((letrec-values(((for-loop_284)" +" lst_312)))" +"((letrec-values(((for-loop_282)" "(lambda(fold-var_286" -" lst_155)" +" lst_154)" "(begin" " 'for-loop" "(if(pair?" -" lst_155)" +" lst_154)" "(let-values(((done-body_0)" "(unsafe-car" -" lst_155))" -"((rest_79)" +" lst_154))" +"((rest_78)" "(unsafe-cdr" -" lst_155)))" +" lst_154)))" "(let-values(((fold-var_287)" "(let-values(((fold-var_288)" " fold-var_286))" @@ -61808,20 +61872,20 @@ static const char *startup_source = " fold-var_289)))))" "(if(not" " #f)" -"(for-loop_284" +"(for-loop_282" " fold-var_287" -" rest_79)" +" rest_78)" " fold-var_287)))" " fold-var_286)))))" -" for-loop_284)" +" for-loop_282)" " null" -" lst_311))))" +" lst_312))))" " val-idss_0))" "(cons" " keys_5" "(append" "(reverse$1" -"(let-values(((lst_312)" +"(let-values(((lst_313)" " done-bodys_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -61829,8 +61893,8 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_312)))" -"((letrec-values(((for-loop_285)" +" lst_313)))" +"((letrec-values(((for-loop_283)" "(lambda(fold-var_290" " lst_32)" "(begin" @@ -61840,7 +61904,7 @@ static const char *startup_source = "(let-values(((done-body_1)" "(unsafe-car" " lst_32))" -"((rest_183)" +"((rest_182)" "(unsafe-cdr" " lst_32)))" "(let-values(((fold-var_291)" @@ -61856,14 +61920,14 @@ static const char *startup_source = " fold-var_139)))))" "(if(not" " #f)" -"(for-loop_285" +"(for-loop_283" " fold-var_291" -" rest_183)" +" rest_182)" " fold-var_291)))" " fold-var_290)))))" -" for-loop_285)" +" for-loop_283)" " null" -" lst_312))))" +" lst_313))))" " val-keyss_0))" "(cons" " rhs85_0" @@ -61878,19 +61942,19 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_108)))" -"((letrec-values(((for-loop_125)" +"((letrec-values(((for-loop_124)" "(lambda(fold-var_293" -" lst_313)" +" lst_314)" "(begin" " 'for-loop" "(if(pair?" -" lst_313)" +" lst_314)" "(let-values(((done-body_2)" "(unsafe-car" -" lst_313))" -"((rest_184)" +" lst_314))" +"((rest_183)" "(unsafe-cdr" -" lst_313)))" +" lst_314)))" "(let-values(((fold-var_294)" "(let-values(((fold-var_295)" " fold-var_293))" @@ -61901,18 +61965,18 @@ static const char *startup_source = "(no-binds" " done-body_2" " s_491" -" phase_134))" +" phase_136))" " fold-var_295))))" "(values" " fold-var_39)))))" "(if(not" " #f)" -"(for-loop_125" +"(for-loop_124" " fold-var_294" -" rest_184)" +" rest_183)" " fold-var_294)))" " fold-var_293)))))" -" for-loop_125)" +" for-loop_124)" " null" " lst_108))))" " val-rhss_0))" @@ -61929,19 +61993,19 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_53)))" -"((letrec-values(((for-loop_286)" +"((letrec-values(((for-loop_284)" "(lambda(fold-var_296" -" lst_314)" +" lst_315)" "(begin" " 'for-loop" "(if(pair?" -" lst_314)" +" lst_315)" "(let-values(((done-body_3)" "(unsafe-car" -" lst_314))" -"((rest_185)" +" lst_315))" +"((rest_184)" "(unsafe-cdr" -" lst_314)))" +" lst_315)))" "(let-values(((fold-var_143)" "(let-values(((fold-var_297)" " fold-var_296))" @@ -61955,12 +62019,12 @@ static const char *startup_source = " fold-var_298)))))" "(if(not" " #f)" -"(for-loop_286" +"(for-loop_284" " fold-var_143" -" rest_185)" +" rest_184)" " fold-var_143)))" " fold-var_296)))))" -" for-loop_286)" +" for-loop_284)" " null" " lst_53))))" " track-stxs_0))" @@ -62002,10 +62066,10 @@ static const char *startup_source = "(if(pair?" " s_510)" "(let-values(((define-syntaxes108_0)" -"(let-values(((s_216)" +"(let-values(((s_217)" "(car" " s_510)))" -" s_216))" +" s_217))" "((id109_0" " rhs110_0)" "(let-values(((s_511)" @@ -62040,8 +62104,8 @@ static const char *startup_source = " \"bad syntax\"" " orig-s_7))" "(let-values()" -"(let-values(((id_107)" -"(let-values(((lst_315)" +"(let-values(((id_105)" +"(let-values(((lst_316)" " flat-s_27))" "(begin" "(if(variable-reference-from-unsafe?" @@ -62049,36 +62113,36 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_315)))" -"((letrec-values(((for-loop_287)" -"(lambda(id_108" -" lst_316)" +" lst_316)))" +"((letrec-values(((for-loop_75)" +"(lambda(id_106" +" lst_55)" "(begin" " 'for-loop" "(if(pair?" -" lst_316)" +" lst_55)" "(let-values(((s_515)" "(unsafe-car" -" lst_316))" -"((rest_186)" +" lst_55))" +"((rest_185)" "(unsafe-cdr" -" lst_316)))" +" lst_55)))" "(let-values(((id_64)" -"(let-values(((id_109)" -" id_108))" -"(let-values(((id_110)" +"(let-values(((id_107)" +" id_106))" +"(let-values(((id_108)" "(let-values()" "(let-values(((id114_0)" "(let-values()" -"(if(let-values(((or-part_132)" +"(if(let-values(((or-part_378)" "(if(syntax?$1" " s_515)" "(symbol?" "(syntax-e$1" " s_515))" " #f)))" -"(if or-part_132" -" or-part_132" +"(if or-part_378" +" or-part_378" "(symbol?" " s_515)))" " s_515" @@ -62089,21 +62153,21 @@ static const char *startup_source = " s_515)))))" "(cons" " id114_0" -" id_109)))))" +" id_107)))))" "(values" -" id_110)))))" +" id_108)))))" "(if(not" " #f)" -"(for-loop_287" +"(for-loop_75" " id_64" -" rest_186)" +" rest_185)" " id_64)))" -" id_108)))))" -" for-loop_287)" +" id_106)))))" +" for-loop_75)" " null" -" lst_315)))))" +" lst_316)))))" "(reverse$1" -" id_107))))))))" +" id_105))))))))" "((rhs112_0)" "(let-values(((s_103)" "(cdr" @@ -62117,20 +62181,20 @@ static const char *startup_source = "(if(pair?" " s_104)" "(let-values(((rhs113_0)" -"(let-values(((s_162)" +"(let-values(((s_516)" "(car" " s_104)))" -" s_162))" +" s_516))" "(()" -"(let-values(((s_217)" +"(let-values(((s_218)" "(cdr" " s_104)))" "(let-values(((s_105)" "(if(syntax?$1" -" s_217)" +" s_218)" "(syntax-e$1" -" s_217)" -" s_217)))" +" s_218)" +" s_218)))" "(if(null?" " s_105)" "(values)" @@ -62190,7 +62254,7 @@ static const char *startup_source = "(let-values(((ids115_0)" " ids_32)" "((phase116_0)" -" phase_134)" +" phase_136)" "((exp-body117_0)" " exp-body_0)" "((dups118_0)" @@ -62203,7 +62267,7 @@ static const char *startup_source = " dups118_0))))" "(let-values(((counter_6)" "(root-expand-context-counter" -" ctx_75)))" +" ctx_73)))" "(let-values(((keys_6)" "(reverse$1" "(let-values(((lst_317)" @@ -62215,17 +62279,17 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_317)))" -"((letrec-values(((for-loop_288)" +"((letrec-values(((for-loop_285)" "(lambda(fold-var_299" " lst_318)" "(begin" " 'for-loop" "(if(pair?" " lst_318)" -"(let-values(((id_111)" +"(let-values(((id_109)" "(unsafe-car" " lst_318))" -"((rest_187)" +"((rest_186)" "(unsafe-cdr" " lst_318)))" "(let-values(((fold-var_300)" @@ -62236,9 +62300,9 @@ static const char *startup_source = "(cons" "(let-values()" "(let-values(((id119_0)" -" id_111)" +" id_109)" "((phase120_0)" -" phase_134)" +" phase_136)" "((counter121_0)" " counter_6)" "((frame-id122_0)" @@ -62256,12 +62320,12 @@ static const char *startup_source = " fold-var_302)))))" "(if(not" " #f)" -"(for-loop_288" +"(for-loop_285" " fold-var_300" -" rest_187)" +" rest_186)" " fold-var_300)))" " fold-var_299)))))" -" for-loop_288)" +" for-loop_285)" " null" " lst_317))))))" "(let-values((()" @@ -62280,7 +62344,7 @@ static const char *startup_source = "(let-values((()" "(begin" "(prepare-next-phase-namespace" -" ctx_75)" +" ctx_73)" "(values))))" "(let-values((()" "(begin" @@ -62327,7 +62391,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_321)))" -"((letrec-values(((for-loop_289)" +"((letrec-values(((for-loop_286)" "(lambda(env_21" " lst_322" " lst_323" @@ -62342,22 +62406,22 @@ static const char *startup_source = " lst_324)" " #f)" " #f)" -"(let-values(((key_89)" +"(let-values(((key_88)" "(unsafe-car" " lst_322))" -"((rest_188)" +"((rest_187)" "(unsafe-cdr" " lst_322))" "((val_41)" "(unsafe-car" " lst_323))" -"((rest_189)" +"((rest_188)" "(unsafe-cdr" " lst_323))" -"((id_112)" +"((id_110)" "(unsafe-car" " lst_324))" -"((rest_190)" +"((rest_189)" "(unsafe-cdr" " lst_324)))" "(let-values(((env_22)" @@ -62368,25 +62432,25 @@ static const char *startup_source = "(begin" "(maybe-install-free=id-in-context!" " val_41" -" id_112" -" phase_134" +" id_110" +" phase_136" " body-ctx_2)" "(env-extend" " env_23" -" key_89" +" key_88" " val_41)))))" "(values" " env_24)))))" "(if(not" " #f)" -"(for-loop_289" +"(for-loop_286" " env_22" +" rest_187" " rest_188" -" rest_189" -" rest_190)" +" rest_189)" " env_22)))" " env_21)))))" -" for-loop_289)" +" for-loop_286)" "(expand-context-env" " body-ctx_2)" " lst_319" @@ -62404,12 +62468,12 @@ static const char *startup_source = " 'exit-bind)))" "(void)))" "(loop_121" -"(let-values(((v_262)" +"(let-values(((v_135)" " body-ctx_2))" -"(let-values(((the-struct_93)" -" v_262))" +"(let-values(((the-struct_45)" +" v_135))" "(if(expand-context/outer?" -" the-struct_93)" +" the-struct_45)" "(let-values(((env124_0)" " extended-env_1)" "((binding-layer125_0)" @@ -62418,39 +62482,41 @@ static const char *startup_source = " body-ctx_2))" "((inner126_0)" "(root-expand-context/outer-inner" -" v_262)))" +" v_135)))" "(expand-context/outer1.1" " inner126_0" "(root-expand-context/outer-post-expansion-scope" -" the-struct_93)" +" the-struct_45)" +"(root-expand-context/outer-post-expansion-shifts" +" the-struct_45)" "(root-expand-context/outer-use-site-scopes" -" the-struct_93)" +" the-struct_45)" "(root-expand-context/outer-frame-id" -" the-struct_93)" +" the-struct_45)" "(expand-context/outer-context" -" the-struct_93)" +" the-struct_45)" " env124_0" "(expand-context/outer-post-expansion-scope-action" -" the-struct_93)" +" the-struct_45)" "(expand-context/outer-scopes" -" the-struct_93)" +" the-struct_45)" "(expand-context/outer-def-ctx-scopes" -" the-struct_93)" +" the-struct_45)" " binding-layer125_0" "(expand-context/outer-reference-records" -" the-struct_93)" +" the-struct_45)" "(expand-context/outer-only-immediate?" -" the-struct_93)" +" the-struct_45)" "(expand-context/outer-need-eventually-defined" -" the-struct_93)" +" the-struct_45)" "(expand-context/outer-current-introduction-scopes" -" the-struct_93)" +" the-struct_45)" "(expand-context/outer-name" -" the-struct_93)))" +" the-struct_45)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_93))))" +" the-struct_45))))" " rest-bodys_0" " done-bodys_0" " val-idss_0" @@ -62494,7 +62560,7 @@ static const char *startup_source = "(cons" "(core-id" " '#%stratified-body" -" phase_134)" +" phase_136)" "(cons" " exp-body_0" " rest-bodys_0)))))" @@ -62570,11 +62636,11 @@ static const char *startup_source = "(void))" "(values))))" "(let-values(((finish-ctx_0)" -"(let-values(((v_263)" +"(let-values(((v_262)" "(accumulate-def-ctx-scopes" " body-ctx_3" " def-ctx-scopes_7)))" -"(let-values(((the-struct_94) v_263))" +"(let-values(((the-struct_94) v_262))" "(if(expand-context/outer? the-struct_94)" "(let-values(((context127_0) 'expression)" "((use-site-scopes128_0)(box null))" @@ -62588,10 +62654,12 @@ static const char *startup_source = "((def-ctx-scopes131_0) #f)" "((post-expansion-scope132_0) #f)" "((inner133_0)" -"(root-expand-context/outer-inner v_263)))" +"(root-expand-context/outer-inner v_262)))" "(expand-context/outer1.1" " inner133_0" " post-expansion-scope132_0" +"(root-expand-context/outer-post-expansion-shifts" +" the-struct_94)" " use-site-scopes128_0" "(root-expand-context/outer-frame-id the-struct_94)" " context127_0" @@ -62664,7 +62732,7 @@ static const char *startup_source = "(void)" "(let-values()" "(check-naturals start_64)))" -"((letrec-values(((for-loop_290)" +"((letrec-values(((for-loop_287)" "(lambda(fold-var_303" " lst_5" " pos_125)" @@ -62677,7 +62745,7 @@ static const char *startup_source = "(let-values(((done-body_4)" "(unsafe-car" " lst_5))" -"((rest_191)" +"((rest_190)" "(unsafe-cdr" " lst_5))" "((i_14)" @@ -62708,21 +62776,23 @@ static const char *startup_source = " i_14" " last-i_1)" " #f)" -"(let-values(((v_264)" +"(let-values(((v_263)" " finish-ctx_0))" "(let-values(((the-struct_95)" -" v_264))" +" v_263))" "(if(expand-context/outer?" " the-struct_95)" "(let-values(((name136_0)" " name_81)" "((inner137_0)" "(root-expand-context/outer-inner" -" v_264)))" +" v_263)))" "(expand-context/outer1.1" " inner137_0" "(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)" "(root-expand-context/outer-frame-id" @@ -62764,15 +62834,15 @@ static const char *startup_source = " fold-var_306)))))" "(if(not" " #f)" -"(for-loop_290" +"(for-loop_287" " fold-var_304" -" rest_191" +" rest_190" "(+" " pos_125" " 1))" " fold-var_304)))" " fold-var_303)))))" -" for-loop_290)" +" for-loop_287)" " null" " lst_210" " start_64))))))" @@ -62880,13 +62950,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_76) ctx32_0))" -"(let-values(((s_366) source33_0))" +"(let-values(((ctx_74) ctx32_0))" +"(let-values(((s_367) 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_135)(expand-context-phase ctx_76)))" +"(let-values(((phase_137)(expand-context-phase ctx_74)))" "((letrec-values(((loop_27)" "(lambda(idss_2" " keyss_1" @@ -62908,15 +62978,15 @@ static const char *startup_source = "(let-values()" "(let-values(((exp-body_1)(get-body_0)))" "(let-values(((result-s_9)" -"(if(expand-context-to-parsed? ctx_76)" +"(if(expand-context-to-parsed? ctx_74)" "(if(null? accum-idss_0)" "(parsed-let-values17.1" -"(keep-properties-only s_366)" +"(keep-properties-only s_367)" " null" " null" " exp-body_1)" "(parsed-letrec-values18.1" -"(keep-properties-only s_366)" +"(keep-properties-only s_367)" "(reverse$1 accum-idss_0)" "(reverse$1" "(map2" @@ -62925,16 +62995,16 @@ static const char *startup_source = " accum-rhss_0))" " exp-body_1))" "(let-values(((track?149_0) track?_2)" -"((s150_0) s_366)" +"((s150_0) s_367)" "((temp151_1)" "(list*" "(if(null? accum-idss_0)" "(core-id" " 'let-values" -" phase_135)" +" phase_137)" "(core-id" " 'letrec-values" -" phase_135))" +" phase_137))" "(build-clauses" " accum-idss_0" " accum-rhss_0" @@ -62946,11 +63016,11 @@ static const char *startup_source = " temp151_1)))))" "(begin" "(let-values(((obs_81)" -"(expand-context-observer ctx_76)))" +"(expand-context-observer ctx_74)))" "(if obs_81" "(let-values()" "(if(if can-log?_0" -"(log-tag? had-stxes?_0 ctx_76)" +"(log-tag? had-stxes?_0 ctx_74)" " #f)" "(let-values()" "(call-expand-observe" @@ -62965,7 +63035,7 @@ static const char *startup_source = "(begin" "(let-values(((obs_82)" "(expand-context-observer" -" ctx_76)))" +" ctx_74)))" "(if obs_82" "(let-values()" "(let-values()" @@ -62977,7 +63047,7 @@ static const char *startup_source = "(let-values(((temp152_1)(car rhss_2))" "((temp153_1)" "(as-named-context" -" ctx_76" +" ctx_74" " ids_33)))" "(expand9.1" " #f" @@ -63025,10 +63095,10 @@ static const char *startup_source = " #f)))" "(let-values(((result-s_10)" "(if(expand-context-to-parsed?" -" ctx_76)" +" ctx_74)" "(parsed-let-values17.1" "(keep-properties-only" -" s_366)" +" s_367)" "(list ids_33)" "(list" "(list" @@ -63038,12 +63108,12 @@ static const char *startup_source = "(let-values(((track?154_0)" " track?_2)" "((s155_1)" -" s_366)" +" s_367)" "((temp156_1)" "(list*" "(core-id" " 'let-values" -" phase_135)" +" phase_137)" "(list" "(build-clause" " ids_33" @@ -63057,13 +63127,13 @@ static const char *startup_source = "(begin" "(let-values(((obs_83)" "(expand-context-observer" -" ctx_76)))" +" ctx_74)))" "(if obs_83" "(let-values()" "(if(if can-log?_0" "(log-tag?" " had-stxes?_0" -" ctx_76)" +" ctx_74)" " #f)" "(let-values()" "(call-expand-observe" @@ -63076,9 +63146,9 @@ static const char *startup_source = "(list result-s_10)" " result-s_10))))))" "(if(if(not forward-references?_0)" -"(let-values(((or-part_378) split?_0))" -"(if or-part_378" -" or-part_378" +"(let-values(((or-part_379) split?_0))" +"(if or-part_379" +" or-part_379" "(null?(cdr idss_2))))" " #f)" "(let-values()" @@ -63097,10 +63167,10 @@ static const char *startup_source = " #f)))" "(let-values(((result-s_11)" "(if(expand-context-to-parsed?" -" ctx_76)" +" ctx_74)" "(parsed-letrec-values18.1" "(keep-properties-only" -" s_366)" +" s_367)" "(reverse$1" "(cons" " ids_33" @@ -63118,12 +63188,12 @@ static const char *startup_source = "(let-values(((track?157_0)" " track?_2)" "((s158_0)" -" s_366)" +" s_367)" "((temp159_1)" "(list*" "(core-id" " 'letrec-values" -" phase_135)" +" phase_137)" "(build-clauses" "(cons" " ids_33" @@ -63142,13 +63212,13 @@ static const char *startup_source = "(begin" "(let-values(((obs_84)" "(expand-context-observer" -" ctx_76)))" +" ctx_74)))" "(if obs_84" "(let-values()" "(if(if can-log?_0" "(log-tag?" " had-stxes?_0" -" ctx_76)" +" ctx_74)" " #f)" "(let-values()" "(call-expand-observe" @@ -63197,22 +63267,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_516 phase_136)" +"(lambda(expr_10 s_517 phase_138)" "(begin" -"(let-values(((s-runtime-stx_0)(syntax-shift-phase-level$1 runtime-stx phase_136)))" +"(let-values(((s-runtime-stx_0)(syntax-shift-phase-level$1 runtime-stx phase_138)))" "(datum->syntax$1" -"(core-id '#%app phase_136)" -"(list(core-id 'begin phase_136) expr_10(list(datum->syntax$1 s-runtime-stx_0 'values)))" -" s_516)))))" +"(core-id '#%app phase_138)" +"(list(core-id 'begin phase_138) expr_10(list(datum->syntax$1 s-runtime-stx_0 'values)))" +" s_517)))))" "(define-values" "(log-tag?)" -"(lambda(had-stxes?_1 ctx_77)(begin(if had-stxes?_1(not(expand-context-only-immediate? ctx_77)) #f))))" +"(lambda(had-stxes?_1 ctx_75)(begin(if had-stxes?_1(not(expand-context-only-immediate? ctx_75)) #f))))" "(define-values" "(log-letrec-values$1)" -"(lambda(obs_85 ctx_78 s_396 val-idss_2 val-rhss_2 track-stxs_4 stx-clauses_2 done-bodys_2)" +"(lambda(obs_85 ctx_76 s_397 val-idss_2 val-rhss_2 track-stxs_4 stx-clauses_2 done-bodys_2)" "(begin" " 'log-letrec-values" -"(let-values(((phase_137)(expand-context-phase ctx_78)))" +"(let-values(((phase_139)(expand-context-phase ctx_76)))" "(let-values(((clauses_0)" "(reverse$1" "(let-values(((lst_325) val-idss_2)((lst_326) val-rhss_2)((lst_327) track-stxs_4))" @@ -63226,17 +63296,17 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_327)))" -"((letrec-values(((for-loop_291)" +"((letrec-values(((for-loop_288)" "(lambda(fold-var_307 lst_328 lst_329 lst_330)" "(begin" " 'for-loop" "(if(if(pair? lst_328)(if(pair? lst_329)(pair? lst_330) #f) #f)" "(let-values(((val-ids_0)(unsafe-car lst_328))" -"((rest_192)(unsafe-cdr lst_328))" +"((rest_191)(unsafe-cdr lst_328))" "((val-rhs_0)(unsafe-car lst_329))" -"((rest_193)(unsafe-cdr lst_329))" +"((rest_192)(unsafe-cdr lst_329))" "((track-stx_2)(unsafe-car lst_330))" -"((rest_194)(unsafe-cdr lst_330)))" +"((rest_193)(unsafe-cdr lst_330)))" "(let-values(((fold-var_308)" "(let-values(((fold-var_309) fold-var_307))" "(let-values(((fold-var_310)" @@ -63250,23 +63320,23 @@ 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_288 fold-var_308 rest_191 rest_192 rest_193)" " fold-var_308)))" " fold-var_307)))))" -" for-loop_291)" +" for-loop_288)" " null" " lst_325" " lst_326" " lst_327))))))" "(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_137)))" +"(let-values(((lv-id_0)(core-id(if had-stxes?_2 'letrec-syntaxes+values 'letrec-values) phase_139)))" "(let-values(((lv-s_0)" "(datum->syntax$1" " #f" "(if had-stxes?_2" "(list* lv-id_0 stx-clauses_2 clauses_0 done-bodys_2)" "(list* lv-id_0 clauses_0 done-bodys_2))" -" s_396)))" +" s_397)))" "(begin" "(call-expand-observe obs_85 'block->letrec(list lv-s_0))" "(call-expand-observe obs_85 'visit lv-s_0)" @@ -63281,7 +63351,7 @@ static const char *startup_source = " 'letrec-syntaxes-renames" " stx-clauses_2" " clauses_0" -"(datum->syntax$1 #f done-bodys_2 s_396))" +"(datum->syntax$1 #f done-bodys_2 s_397))" "(call-expand-observe obs_85 'prepare-env)" "(call-expand-observe obs_85 'next-group)" "(if(null? val-idss_2)" @@ -63293,7 +63363,7 @@ static const char *startup_source = " obs_85" " 'let-renames" " clauses_0" -"(datum->syntax$1 #f done-bodys_2 s_396)))))))" +"(datum->syntax$1 #f done-bodys_2 s_397)))))))" "(let-values()" "(begin" "(call-expand-observe obs_85 'prim-letrec-values)" @@ -63301,23 +63371,23 @@ static const char *startup_source = " obs_85" " 'let-renames" " clauses_0" -"(datum->syntax$1 #f done-bodys_2 s_396))))))))))))))" +"(datum->syntax$1 #f done-bodys_2 s_397))))))))))))))" "(define-values" "(lambda-clause-expander)" -"(lambda(s_74 disarmed-s_5 formals_1 bodys_9 ctx_79 log-renames-tag_0)" +"(lambda(s_74 disarmed-s_5 formals_1 bodys_9 ctx_77 log-renames-tag_0)" "(begin" "(let-values(((sc_37)(new-scope 'local)))" -"(let-values(((phase_82)(expand-context-phase ctx_79)))" +"(let-values(((phase_84)(expand-context-phase ctx_77)))" "(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_82)" +"((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_79)))" +"(let-values(((counter_7)(root-expand-context-counter ctx_77)))" "(let-values(((keys_7)" "(reverse$1" "(let-values(((lst_88) ids_35))" @@ -63325,13 +63395,13 @@ 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_187)" "(lambda(fold-var_153 lst_160)" "(begin" " 'for-loop" "(if(pair? lst_160)" -"(let-values(((id_113)(unsafe-car lst_160))" -"((rest_83)(unsafe-cdr lst_160)))" +"(let-values(((id_111)(unsafe-car lst_160))" +"((rest_82)(unsafe-cdr lst_160)))" "(let-values(((fold-var_33)" "(let-values(((fold-var_34) fold-var_153))" "(let-values(((fold-var_154)" @@ -63339,26 +63409,26 @@ static const char *startup_source = "(cons" "(let-values()" "(let-values(((id37_0)" -" id_113)" +" id_111)" "((phase38_1)" -" phase_82)" +" phase_84)" "((counter39_0)" " counter_7)" -"((s40_1)" +"((s40_0)" " s_74))" "(add-local-binding!37.1" " #f" -" s40_1" +" s40_0" " id37_0" " phase38_1" " counter39_0)))" " fold-var_34))))" "(values fold-var_154)))))" "(if(not #f)" -"(for-loop_189 fold-var_33 rest_83)" +"(for-loop_187 fold-var_33 rest_82)" " fold-var_33)))" " fold-var_153)))))" -" for-loop_189)" +" for-loop_187)" " null" " lst_88))))))" "(let-values(((body-env_0)" @@ -63375,26 +63445,26 @@ static const char *startup_source = "(begin" " 'for-loop" "(if(if(pair? lst_82)(pair? lst_58) #f)" -"(let-values(((key_90)(unsafe-car lst_82))" -"((rest_195)(unsafe-cdr lst_82))" -"((id_114)(unsafe-car lst_58))" -"((rest_196)(unsafe-cdr lst_58)))" +"(let-values(((key_89)(unsafe-car lst_82))" +"((rest_194)(unsafe-cdr lst_82))" +"((id_112)(unsafe-car lst_58))" +"((rest_195)(unsafe-cdr lst_58)))" "(let-values(((env_26)" "(let-values(((env_27) env_25))" "(let-values(((env_28)" "(let-values()" "(env-extend" " env_27" -" key_90" +" key_89" "(local-variable1.1" -" id_114)))))" +" id_112)))))" "(values env_28)))))" "(if(not #f)" -"(for-loop_49 env_26 rest_195 rest_196)" +"(for-loop_49 env_26 rest_194 rest_195)" " env_26)))" " env_25)))))" " for-loop_49)" -"(expand-context-env ctx_79)" +"(expand-context-env ctx_77)" " lst_80" " lst_91)))))" "(let-values(((sc-formals_0)(add-scope formals_1 sc_37)))" @@ -63433,7 +63503,7 @@ static const char *startup_source = " lst_17))))))" "(let-values((()" "(begin" -"(let-values(((obs_86)(expand-context-observer ctx_79)))" +"(let-values(((obs_86)(expand-context-observer ctx_77)))" "(if obs_86" "(let-values()" "(let-values()" @@ -63445,18 +63515,19 @@ static const char *startup_source = "(void)))" "(values))))" "(let-values(((body-ctx_4)" -"(let-values(((v_265) ctx_79))" -"(let-values(((the-struct_96) v_265))" +"(let-values(((v_264) ctx_77))" +"(let-values(((the-struct_96) v_264))" "(if(expand-context/outer? the-struct_96)" "(let-values(((env41_0) body-env_0)" -"((scopes42_0)(cons sc_37(expand-context-scopes ctx_79)))" +"((scopes42_0)(cons sc_37(expand-context-scopes ctx_77)))" "((binding-layer43_0)" -"(increment-binding-layer ids_35 ctx_79 sc_37))" +"(increment-binding-layer ids_35 ctx_77 sc_37))" "((frame-id44_0) #f)" -"((inner45_0)(root-expand-context/outer-inner v_265)))" +"((inner45_0)(root-expand-context/outer-inner v_264)))" "(expand-context/outer1.1" " inner45_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-use-site-scopes the-struct_96)" " frame-id44_0" "(expand-context/outer-context the-struct_96)" @@ -63477,22 +63548,22 @@ static const char *startup_source = "(let-values(((exp-body_2)" "(let-values(((sc-bodys46_0) sc-bodys_0)" "((body-ctx47_0) body-ctx_4)" -"((temp48_4)" -"(let-values(((ctx49_0) ctx_79)((s50_0) s_74)((temp51_3) #t))" -"(keep-as-needed119.1 #f temp51_3 #f ctx49_0 s50_0))))" -"(expand-body7.1 temp48_4 #f sc-bodys46_0 body-ctx47_0))))" +"((temp48_3)" +"(let-values(((ctx49_0) ctx_77)((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_79)" +"(if(expand-context-to-parsed? ctx_77)" "(unflatten-like-formals keys_7 formals_1)" " sc-formals_0)" " exp-body_2))))))))))))))))" "(void" "(add-core-form!*" " 'lambda" -"(lambda(s_13 ctx_80)" +"(lambda(s_13 ctx_78)" "(let-values((()" "(begin" -"(let-values(((obs_87)(expand-context-observer ctx_80)))" +"(let-values(((obs_87)(expand-context-observer ctx_78)))" "(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)))" @@ -63500,28 +63571,28 @@ static const char *startup_source = "(let-values(((s_494) disarmed-s_6))" "(let-values(((orig-s_40) s_494))" "(let-values(((lambda52_1 formals53_1 body54_1)" -"(let-values(((s_172)(if(syntax?$1 s_494)(syntax-e$1 s_494) s_494)))" -"(if(pair? s_172)" -"(let-values(((lambda55_0)(let-values(((s_45)(car s_172))) s_45))" +"(let-values(((s_173)(if(syntax?$1 s_494)(syntax-e$1 s_494) s_494)))" +"(if(pair? s_173)" +"(let-values(((lambda55_0)(let-values(((s_45)(car s_173))) s_45))" "((formals56_0 body57_0)" -"(let-values(((s_84)(cdr s_172)))" -"(let-values(((s_174)" +"(let-values(((s_84)(cdr s_173)))" +"(let-values(((s_175)" "(if(syntax?$1 s_84)" "(syntax-e$1 s_84)" " s_84)))" -"(if(pair? s_174)" +"(if(pair? s_175)" "(let-values(((formals58_0)" -"(let-values(((s_175)(car s_174)))" -" s_175))" +"(let-values(((s_176)(car s_175)))" +" s_176))" "((body59_0)" -"(let-values(((s_176)(cdr s_174)))" -"(let-values(((s_450)" -"(if(syntax?$1 s_176)" -"(syntax-e$1 s_176)" -" s_176)))" +"(let-values(((s_177)(cdr s_175)))" +"(let-values(((s_449)" +"(if(syntax?$1 s_177)" +"(syntax-e$1 s_177)" +" s_177)))" "(let-values(((flat-s_28)" "(to-syntax-list.1" -" s_450)))" +" s_449)))" "(if(not flat-s_28)" "(let-values()" "(raise-syntax-error$1" @@ -63542,23 +63613,23 @@ 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_80)((s61_0) s_13)((temp62_2) #t))" -"(keep-as-needed119.1 #f #f temp62_2 ctx60_1 s61_0))))" +"(let-values(((ctx60_1) ctx_78)((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_80 'lambda-renames)))" -"(if(expand-context-to-parsed? ctx_80)" +"(lambda-clause-expander s_13 disarmed-s_6 formals53_0 body54_0 ctx_78 'lambda-renames)))" +"(if(expand-context-to-parsed? ctx_78)" "(parsed-lambda5.1 rebuild-s_4 formals_2 body_11)" -"(let-values(((rebuild-s63_0) rebuild-s_4)((temp64_4)(list* lambda52_0 formals_2 body_11)))" -"(rebuild5.1 #t rebuild-s63_0 temp64_4)))))))))))" +"(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)))))))))))" "(void" "(add-core-form!*" " 'λ" "(lambda(s_26)" "(let-values(((ok?_38 lam-id65_0 formals66_0 _67_0)" -"(let-values(((s_517) s_26))" -"(let-values(((orig-s_41) s_517))" +"(let-values(((s_518) s_26))" +"(let-values(((orig-s_41) s_518))" "(let-values(((lam-id65_1 formals66_1 _67_1)" -"(let-values(((s_500)(if(syntax?$1 s_517)(syntax-e$1 s_517) s_517)))" +"(let-values(((s_500)(if(syntax?$1 s_518)(syntax-e$1 s_518) s_518)))" "(if(pair? s_500)" "(let-values(((lam-id68_0)(let-values(((s_505)(car s_500))) s_505))" "((formals69_0 _70_0)" @@ -63570,12 +63641,12 @@ static const char *startup_source = "(let-values(((s_53)(car s_52))) s_53))" "((_72_0)" "(let-values(((s_54)(cdr s_52)))" -"(let-values(((s_310)" +"(let-values(((s_311)" "(if(syntax?$1 s_54)" "(syntax-e$1 s_54)" " s_54)))" "(let-values(((flat-s_29)" -"(to-syntax-list.1 s_310)))" +"(to-syntax-list.1 s_311)))" "(if(not flat-s_29)" "(let-values()" "(raise-syntax-error$1" @@ -63595,44 +63666,44 @@ 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_73)(let-values(((temp77_4) #t))(get-current-expand-context16.1 temp77_4 'unexpected))))" -"(let-values(((phase_91)(if ctx_73(expand-context-phase ctx_73) 0)))" +"(let-values(((ctx_71)(let-values(((temp77_4) #t))(get-current-expand-context16.1 temp77_4 'unexpected))))" +"(let-values(((phase_93)(if ctx_71(expand-context-phase ctx_71) 0)))" "(begin" -" (let-values (((ids73_0) ids_36) ((phase74_2) phase_91) ((s75_0) s_26) ((temp76_6) \"argument name\"))" -"(check-no-duplicate-ids7.1 temp76_6 ids73_0 phase74_2 s75_0 unsafe-undefined))" +" (let-values (((ids73_0) ids_36) ((phase74_2) phase_93) ((s75_0) s_26) ((temp76_5) \"argument name\"))" +"(check-no-duplicate-ids7.1 temp76_5 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_91) '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_81)" +"(lambda(s_452 ctx_79)" "(let-values((()" "(begin" -"(let-values(((obs_88)(expand-context-observer ctx_81)))" +"(let-values(((obs_88)(expand-context-observer ctx_79)))" "(if obs_88" "(let-values()(let-values()(call-expand-observe obs_88 'prim-case-lambda)))" "(void)))" "(values))))" -"(let-values(((disarmed-s_7)(syntax-disarm$1 s_453)))" +"(let-values(((disarmed-s_7)(syntax-disarm$1 s_452)))" "(let-values(((ok?_39 case-lambda78_0 formals79_0 body80_0)" -"(let-values(((s_518) disarmed-s_7))" -"(let-values(((orig-s_42) s_518))" +"(let-values(((s_519) disarmed-s_7))" +"(let-values(((orig-s_42) s_519))" "(let-values(((case-lambda78_1 formals79_1 body80_1)" -"(let-values(((s_415)(if(syntax?$1 s_518)(syntax-e$1 s_518) s_518)))" +"(let-values(((s_415)(if(syntax?$1 s_519)(syntax-e$1 s_519) s_519)))" "(if(pair? s_415)" -"(let-values(((case-lambda81_0)(let-values(((s_519)(car s_415))) s_519))" +"(let-values(((case-lambda81_0)(let-values(((s_520)(car s_415))) s_520))" "((formals82_0 body83_0)" -"(let-values(((s_407)(cdr s_415)))" -"(let-values(((s_520)" -"(if(syntax?$1 s_407)" -"(syntax-e$1 s_407)" -" s_407)))" -"(let-values(((flat-s_30)(to-syntax-list.1 s_520)))" +"(let-values(((s_408)(cdr s_415)))" +"(let-values(((s_521)" +"(if(syntax?$1 s_408)" +"(syntax-e$1 s_408)" +" s_408)))" +"(let-values(((flat-s_30)(to-syntax-list.1 s_521)))" "(if(not flat-s_30)" "(let-values()" " (raise-syntax-error$1 #f \"bad syntax\" orig-s_42))" @@ -63645,7 +63716,7 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list lst_331)))" -"((letrec-values(((for-loop_292)" +"((letrec-values(((for-loop_289)" "(lambda(formals_4" " body_13" " lst_332)" @@ -63653,10 +63724,10 @@ static const char *startup_source = " 'for-loop" "(if(pair?" " lst_332)" -"(let-values(((s_209)" +"(let-values(((s_210)" "(unsafe-car" " lst_332))" -"((rest_197)" +"((rest_196)" "(unsafe-cdr" " lst_332)))" "(let-values(((formals_5" @@ -63671,32 +63742,32 @@ static const char *startup_source = "(let-values(((formals90_0" " body91_0)" "(let-values()" -"(let-values(((s_521)" -"(if(syntax?$1" -" s_209)" -"(syntax-e$1" -" s_209)" -" s_209)))" -"(if(pair?" -" s_521)" -"(let-values(((formals84_0)" "(let-values(((s_522)" -"(car" -" s_521)))" -" s_522))" -"((body85_0)" -"(let-values(((s_523)" -"(cdr" -" s_521)))" -"(let-values(((s_524)" "(if(syntax?$1" -" s_523)" +" s_210)" "(syntax-e$1" -" s_523)" -" s_523)))" +" s_210)" +" s_210)))" +"(if(pair?" +" s_522)" +"(let-values(((formals84_0)" +"(let-values(((s_523)" +"(car" +" s_522)))" +" s_523))" +"((body85_0)" +"(let-values(((s_524)" +"(cdr" +" s_522)))" +"(let-values(((s_525)" +"(if(syntax?$1" +" s_524)" +"(syntax-e$1" +" s_524)" +" s_524)))" "(let-values(((flat-s_31)" "(to-syntax-list.1" -" s_524)))" +" s_525)))" "(if(not" " flat-s_31)" "(let-values()" @@ -63732,17 +63803,17 @@ static const char *startup_source = " body_16)))))" "(if(not" " #f)" -"(for-loop_292" +"(for-loop_289" " formals_5" " body_14" -" rest_197)" +" rest_196)" "(values" " formals_5" " body_14))))" "(values" " formals_4" " body_13))))))" -" for-loop_292)" +" for-loop_289)" " null" " null" " lst_331)))))" @@ -63753,20 +63824,20 @@ static const char *startup_source = " (raise-syntax-error$1 #f \"bad syntax\" orig-s_42)))))" "(values #t case-lambda78_1 formals79_1 body80_1))))))" "(let-values(((ok?_40 case-lambda86_0 clause87_0)" -"(let-values(((s_525) disarmed-s_7))" -"(let-values(((orig-s_43) s_525))" +"(let-values(((s_526) disarmed-s_7))" +"(let-values(((orig-s_43) s_526))" "(let-values(((case-lambda86_1 clause87_1)" -"(let-values(((s_458)(if(syntax?$1 s_525)(syntax-e$1 s_525) s_525)))" -"(if(pair? s_458)" +"(let-values(((s_457)(if(syntax?$1 s_526)(syntax-e$1 s_526) s_526)))" +"(if(pair? s_457)" "(let-values(((case-lambda88_0)" -"(let-values(((s_211)(car s_458))) s_211))" +"(let-values(((s_212)(car s_457))) s_212))" "((clause89_0)" -"(let-values(((s_526)(cdr s_458)))" -"(let-values(((s_527)" -"(if(syntax?$1 s_526)" -"(syntax-e$1 s_526)" -" s_526)))" -"(let-values(((flat-s_32)(to-syntax-list.1 s_527)))" +"(let-values(((s_527)(cdr s_457)))" +"(let-values(((s_528)" +"(if(syntax?$1 s_527)" +"(syntax-e$1 s_527)" +" s_527)))" +"(let-values(((flat-s_32)(to-syntax-list.1 s_528)))" "(if(not flat-s_32)" "(let-values()" " (raise-syntax-error$1 #f \"bad syntax\" orig-s_43))" @@ -63775,8 +63846,8 @@ static const char *startup_source = " (raise-syntax-error$1 #f \"bad syntax\" orig-s_43)))))" "(values #t case-lambda86_1 clause87_1))))))" "(let-values(((rebuild-s_5)" -"(let-values(((ctx92_0) ctx_81)((s93_0) s_453)((temp94_2) #t))" -"(keep-as-needed119.1 #f #f temp94_2 ctx92_0 s93_0))))" +"(let-values(((ctx92_0) ctx_79)((s93_0) s_452)((temp94_1) #t))" +"(keep-as-needed119.1 #f #f temp94_1 ctx92_0 s93_0))))" "(let-values(((clauses_1)" "(reverse$1" "(let-values(((lst_112) formals79_0)((lst_201) body80_0)((lst_113) clause87_0))" @@ -63798,11 +63869,11 @@ static const char *startup_source = "(if(pair? lst_334)(pair? lst_335) #f)" " #f)" "(let-values(((formals_8)(unsafe-car lst_333))" -"((rest_198)(unsafe-cdr lst_333))" +"((rest_197)(unsafe-cdr lst_333))" "((body_17)(unsafe-car lst_334))" -"((rest_199)(unsafe-cdr lst_334))" +"((rest_198)(unsafe-cdr lst_334))" "((clause_3)(unsafe-car lst_335))" -"((rest_200)(unsafe-cdr lst_335)))" +"((rest_199)(unsafe-cdr lst_335)))" "(let-values(((fold-var_311)" "(let-values(((fold-var_312) fold-var_193))" "(let-values(((fold-var_313)" @@ -63813,7 +63884,7 @@ static const char *startup_source = "(begin" "(let-values(((obs_89)" "(expand-context-observer" -" ctx_81)))" +" ctx_79)))" "(if obs_89" "(let-values()" "(let-values()" @@ -63824,7 +63895,7 @@ static const char *startup_source = "(values))))" "(let-values(((rebuild-clause_0)" "(let-values(((ctx95_0)" -" ctx_81)" +" ctx_79)" "((clause96_0)" " clause_3))" "(keep-as-needed119.1" @@ -63836,31 +63907,31 @@ static const char *startup_source = "(let-values(((exp-formals_0" " exp-body_3)" "(lambda-clause-expander" -" s_453" +" s_452" " disarmed-s_7" " formals_8" " body_17" -" ctx_81" +" ctx_79" " 'lambda-renames)))" "(if(expand-context-to-parsed?" -" ctx_81)" +" ctx_79)" "(list" " exp-formals_0" " exp-body_3)" "(let-values(((rebuild-clause97_0)" " rebuild-clause_0)" -"((temp98_2)" +"((temp98_3)" "(list*" " exp-formals_0" " exp-body_3)))" "(rebuild5.1" " #t" " rebuild-clause97_0" -" temp98_2)))))))" +" temp98_3)))))))" " fold-var_312))))" "(values fold-var_313)))))" "(if(not #f)" -"(for-loop_31 fold-var_311 rest_198 rest_199 rest_200)" +"(for-loop_31 fold-var_311 rest_197 rest_198 rest_199)" " fold-var_311)))" " fold-var_193)))))" " for-loop_31)" @@ -63868,13 +63939,13 @@ static const char *startup_source = " lst_112" " lst_201" " lst_113))))))" -"(if(expand-context-to-parsed? ctx_81)" +"(if(expand-context-to-parsed? ctx_79)" "(parsed-case-lambda6.1 rebuild-s_5 clauses_1)" -"(let-values(((rebuild-s99_0) rebuild-s_5)((temp100_2)(list* case-lambda78_0 clauses_1)))" -"(rebuild5.1 #t rebuild-s99_0 temp100_2))))))))))))" +"(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_38 s_528)" +"(lambda(all-formals_0 sc_38 s_529)" "(begin" "((letrec-values(((loop_122)" "(lambda(formals_9)" @@ -63889,21 +63960,21 @@ static const char *startup_source = "(let-values()(loop_122 p_86))" "(if(null? p_86)" "(let-values() null)" -" (let-values () (raise-syntax-error$1 #f \"not an identifier\" s_528 p_86))))))" +" (let-values () (raise-syntax-error$1 #f \"not an identifier\" s_529 p_86))))))" "(if(pair? formals_9)" "(let-values()" "(begin" "(if(identifier?(car formals_9))" "(void)" "(let-values()" -" (raise-syntax-error$1 #f \"not an identifier\" s_528 (car formals_9))))" +" (raise-syntax-error$1 #f \"not an identifier\" s_529 (car formals_9))))" "(cons" "(if sc_38(add-scope(car formals_9) sc_38)(car formals_9))" "(loop_122(cdr formals_9)))))" "(if(null? formals_9)" "(let-values() null)" "(let-values()" -" (raise-syntax-error$1 \"bad argument sequence\" s_528 all-formals_0))))))))))" +" (raise-syntax-error$1 \"bad argument sequence\" s_529 all-formals_0))))))))))" " loop_122)" " all-formals_0))))" "(define-values" @@ -63935,10 +64006,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_82)" +"(lambda(s_105 ctx_80)" "(let-values((()" "(begin" -"(let-values(((obs_53)(expand-context-observer ctx_82)))" +"(let-values(((obs_53)(expand-context-observer ctx_80)))" "(if obs_53" "(let-values()(let-values()(call-expand-observe obs_53 log-tag_0)))" "(void)))" @@ -63960,19 +64031,19 @@ static const char *startup_source = " id:val104_1" " val-rhs105_1" " body106_1)" -"(let-values(((s_529)" +"(let-values(((s_530)" "(if(syntax?$1 s_128)" "(syntax-e$1 s_128)" " s_128)))" -"(if(pair? s_529)" +"(if(pair? s_530)" "(let-values(((letrec-syntaxes+values107_0)" -"(let-values(((s_530)(car s_529))) s_530))" +"(let-values(((s_531)(car s_530))) s_531))" "((id:trans108_0" " trans-rhs109_0" " id:val110_0" " val-rhs111_0" " body112_0)" -"(let-values(((s_230)(cdr s_529)))" +"(let-values(((s_230)(cdr s_530)))" "(let-values(((s_231)" "(if(syntax?$1 s_230)" "(syntax-e$1 s_230)" @@ -64011,7 +64082,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_336)))" -"((letrec-values(((for-loop_293)" +"((letrec-values(((for-loop_290)" "(lambda(id:trans_1" " trans-rhs_1" " lst_337)" @@ -64019,10 +64090,10 @@ static const char *startup_source = " 'for-loop" "(if(pair?" " lst_337)" -"(let-values(((s_334)" +"(let-values(((s_335)" "(unsafe-car" " lst_337))" -"((rest_201)" +"((rest_200)" "(unsafe-cdr" " lst_337)))" "(let-values(((id:trans_2" @@ -64037,27 +64108,27 @@ static const char *startup_source = "(let-values(((id:trans144_0" " trans-rhs145_0)" "(let-values()" -"(let-values(((s_531)" +"(let-values(((s_532)" "(if(syntax?$1" -" s_334)" +" s_335)" "(syntax-e$1" -" s_334)" -" s_334)))" +" s_335)" +" s_335)))" "(if(pair?" -" s_531)" +" s_532)" "(let-values(((id:trans118_0)" -"(let-values(((s_340)" -"(car" -" s_531)))" "(let-values(((s_341)" +"(car" +" s_532)))" +"(let-values(((s_342)" "(if(syntax?$1" -" s_340)" +" s_341)" "(syntax-e$1" -" s_340)" -" s_340)))" +" s_341)" +" s_341)))" "(let-values(((flat-s_34)" "(to-syntax-list.1" -" s_341)))" +" s_342)))" "(if(not" " flat-s_34)" "(let-values()" @@ -64076,17 +64147,17 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_338)))" -"((letrec-values(((for-loop_294)" +"((letrec-values(((for-loop_291)" "(lambda(id:trans_6" " lst_213)" "(begin" " 'for-loop" "(if(pair?" " lst_213)" -"(let-values(((s_532)" +"(let-values(((s_533)" "(unsafe-car" " lst_213))" -"((rest_202)" +"((rest_201)" "(unsafe-cdr" " lst_213)))" "(let-values(((id:trans_7)" @@ -64098,21 +64169,21 @@ static const char *startup_source = "(let-values()" "(if(let-values(((or-part_342)" "(if(syntax?$1" -" s_532)" +" s_533)" "(symbol?" "(syntax-e$1" -" s_532))" +" s_533))" " #f)))" "(if or-part_342" " or-part_342" "(symbol?" -" s_532)))" -" s_532" +" s_533)))" +" s_533" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_44" -" s_532)))))" +" s_533)))))" "(cons" " id:trans146_0" " id:trans_8)))))" @@ -64120,12 +64191,12 @@ static const char *startup_source = " id:trans_9)))))" "(if(not" " #f)" -"(for-loop_294" +"(for-loop_291" " id:trans_7" -" rest_202)" +" rest_201)" " id:trans_7)))" " id:trans_6)))))" -" for-loop_294)" +" for-loop_291)" " null" " lst_338)))))" "(reverse$1" @@ -64133,24 +64204,24 @@ static const char *startup_source = "((trans-rhs119_0)" "(let-values(((s_242)" "(cdr" -" s_531)))" -"(let-values(((s_533)" +" s_532)))" +"(let-values(((s_534)" "(if(syntax?$1" " s_242)" "(syntax-e$1" " s_242)" " s_242)))" "(if(pair?" -" s_533)" +" s_534)" "(let-values(((trans-rhs120_0)" "(let-values(((s_243)" "(car" -" s_533)))" +" s_534)))" " s_243))" "(()" "(let-values(((s_244)" "(cdr" -" s_533)))" +" s_534)))" "(let-values(((s_245)" "(if(syntax?$1" " s_244)" @@ -64189,17 +64260,17 @@ static const char *startup_source = " trans-rhs_4)))))" "(if(not" " #f)" -"(for-loop_293" +"(for-loop_290" " id:trans_2" " trans-rhs_2" -" rest_201)" +" rest_200)" "(values" " id:trans_2" " trans-rhs_2))))" "(values" " id:trans_1" " trans-rhs_1))))))" -" for-loop_293)" +" for-loop_290)" " null" " null" " lst_336)))))" @@ -64211,27 +64282,27 @@ static const char *startup_source = "((id:val115_0" " val-rhs116_0" " body117_0)" -"(let-values(((s_534)" +"(let-values(((s_535)" "(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)" +"(let-values(((s_348)" "(if(syntax?$1" " s_535)" "(syntax-e$1" " s_535)" " s_535)))" +"(if(pair? s_348)" +"(let-values(((id:val121_0" +" val-rhs122_0)" +"(let-values(((s_536)" +"(car" +" s_348)))" +"(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)))" @@ -64254,7 +64325,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_339)))" -"((letrec-values(((for-loop_295)" +"((letrec-values(((for-loop_292)" "(lambda(id:val_1" " val-rhs_2" " lst_340)" @@ -64262,10 +64333,10 @@ static const char *startup_source = " 'for-loop" "(if(pair?" " lst_340)" -"(let-values(((s_536)" +"(let-values(((s_537)" "(unsafe-car" " lst_340))" -"((rest_203)" +"((rest_202)" "(unsafe-cdr" " lst_340)))" "(let-values(((id:val_2" @@ -64280,19 +64351,19 @@ static const char *startup_source = "(let-values(((id:val147_0" " val-rhs148_0)" "(let-values()" -"(let-values(((s_537)" +"(let-values(((s_538)" "(if(syntax?$1" -" s_536)" -"(syntax-e$1" -" s_536)" -" s_536)))" -"(if(pair?" " s_537)" +"(syntax-e$1" +" s_537)" +" s_537)))" +"(if(pair?" +" s_538)" "(let-values(((id:val124_0)" "(let-values(((s_472)" "(car" -" s_537)))" -"(let-values(((s_538)" +" s_538)))" +"(let-values(((s_539)" "(if(syntax?$1" " s_472)" "(syntax-e$1" @@ -64300,7 +64371,7 @@ static const char *startup_source = " s_472)))" "(let-values(((flat-s_36)" "(to-syntax-list.1" -" s_538)))" +" s_539)))" "(if(not" " flat-s_36)" "(let-values()" @@ -64319,19 +64390,19 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_341)))" -"((letrec-values(((for-loop_296)" +"((letrec-values(((for-loop_293)" "(lambda(id:val_6" -" lst_123)" +" lst_122)" "(begin" " 'for-loop" "(if(pair?" -" lst_123)" -"(let-values(((s_539)" +" lst_122)" +"(let-values(((s_540)" "(unsafe-car" -" lst_123))" -"((rest_62)" +" lst_122))" +"((rest_61)" "(unsafe-cdr" -" lst_123)))" +" lst_122)))" "(let-values(((id:val_7)" "(let-values(((id:val_8)" " id:val_6))" @@ -64339,23 +64410,23 @@ static const char *startup_source = "(let-values()" "(let-values(((id:val149_0)" "(let-values()" -"(if(let-values(((or-part_379)" +"(if(let-values(((or-part_380)" "(if(syntax?$1" -" s_539)" +" s_540)" "(symbol?" "(syntax-e$1" -" s_539))" +" s_540))" " #f)))" -"(if or-part_379" -" or-part_379" +"(if or-part_380" +" or-part_380" "(symbol?" -" s_539)))" -" s_539" +" s_540)))" +" s_540" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_44" -" s_539)))))" +" s_540)))))" "(cons" " id:val149_0" " id:val_8)))))" @@ -64363,45 +64434,45 @@ static const char *startup_source = " id:val_9)))))" "(if(not" " #f)" -"(for-loop_296" +"(for-loop_293" " id:val_7" -" rest_62)" +" rest_61)" " id:val_7)))" " id:val_6)))))" -" for-loop_296)" +" for-loop_293)" " null" " lst_341)))))" "(reverse$1" " id:val_5))))))))" "((val-rhs125_0)" -"(let-values(((s_353)" +"(let-values(((s_354)" "(cdr" -" s_537)))" +" s_538)))" "(let-values(((s_248)" "(if(syntax?$1" -" s_353)" +" s_354)" "(syntax-e$1" -" s_353)" -" s_353)))" +" s_354)" +" s_354)))" "(if(pair?" " s_248)" "(let-values(((val-rhs126_0)" -"(let-values(((s_355)" +"(let-values(((s_356)" "(car" " s_248)))" -" s_355))" +" s_356))" "(()" -"(let-values(((s_540)" +"(let-values(((s_541)" "(cdr" " s_248)))" -"(let-values(((s_356)" +"(let-values(((s_357)" "(if(syntax?$1" -" s_540)" +" s_541)" "(syntax-e$1" -" s_540)" -" s_540)))" +" s_541)" +" s_541)))" "(if(null?" -" s_356)" +" s_357)" "(values)" "(raise-syntax-error$1" " #f" @@ -64432,17 +64503,17 @@ static const char *startup_source = " val-rhs_5)))))" "(if(not" " #f)" -"(for-loop_295" +"(for-loop_292" " id:val_2" " val-rhs_3" -" rest_203)" +" rest_202)" "(values" " id:val_2" " val-rhs_3))))" "(values" " id:val_1" " val-rhs_2))))))" -" for-loop_295)" +" for-loop_292)" " null" " null" " lst_339)))))" @@ -64454,7 +64525,7 @@ static const char *startup_source = "((body123_0)" "(let-values(((s_249)" "(cdr" -" s_347)))" +" s_348)))" "(let-values(((s_250)" "(if(syntax?$1" " s_249)" @@ -64516,36 +64587,36 @@ static const char *startup_source = " body106_1)))" "(values #f #f #f #f #f #f #f)))))" "(let-values(((ok?_42 let-values127_0 id:val128_0 val-rhs129_0 body130_0)" -"(let-values(((s_357) disarmed-s_8))" +"(let-values(((s_358) disarmed-s_8))" "(if(if(not syntaxes?_0) #t #f)" -"(let-values(((orig-s_45) s_357))" +"(let-values(((orig-s_45) s_358))" "(let-values(((let-values127_1 id:val128_1 val-rhs129_1 body130_1)" "(let-values(((s_254)" -"(if(syntax?$1 s_357)" -"(syntax-e$1 s_357)" -" s_357)))" +"(if(syntax?$1 s_358)" +"(syntax-e$1 s_358)" +" s_358)))" "(if(pair? s_254)" "(let-values(((let-values131_0)" "(let-values(((s_257)(car s_254)))" " s_257))" "((id:val132_0 val-rhs133_0 body134_0)" -"(let-values(((s_541)(cdr s_254)))" -"(let-values(((s_416)" -"(if(syntax?$1 s_541)" -"(syntax-e$1 s_541)" -" s_541)))" -"(if(pair? s_416)" +"(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(((id:val135_0" " val-rhs136_0)" -"(let-values(((s_542)" +"(let-values(((s_544)" "(car" -" s_416)))" +" s_543)))" "(let-values(((s_258)" "(if(syntax?$1" -" s_542)" +" s_544)" "(syntax-e$1" -" s_542)" -" s_542)))" +" s_544)" +" s_544)))" "(let-values(((flat-s_38)" "(to-syntax-list.1" " s_258)))" @@ -64568,7 +64639,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_304)))" -"((letrec-values(((for-loop_297)" +"((letrec-values(((for-loop_294)" "(lambda(id:val_11" " val-rhs_7" " lst_342)" @@ -64576,10 +64647,10 @@ static const char *startup_source = " 'for-loop" "(if(pair?" " lst_342)" -"(let-values(((s_543)" +"(let-values(((s_545)" "(unsafe-car" " lst_342))" -"((rest_204)" +"((rest_203)" "(unsafe-cdr" " lst_342)))" "(let-values(((id:val_12" @@ -64594,27 +64665,27 @@ static const char *startup_source = "(let-values(((id:val150_0" " val-rhs151_0)" "(let-values()" -"(let-values(((s_372)" +"(let-values(((s_373)" "(if(syntax?$1" -" s_543)" +" s_545)" "(syntax-e$1" -" s_543)" -" s_543)))" +" s_545)" +" s_545)))" "(if(pair?" -" s_372)" +" s_373)" "(let-values(((id:val138_0)" -"(let-values(((s_544)" +"(let-values(((s_546)" "(car" -" s_372)))" -"(let-values(((s_545)" +" s_373)))" +"(let-values(((s_547)" "(if(syntax?$1" -" s_544)" +" s_546)" "(syntax-e$1" -" s_544)" -" s_544)))" +" s_546)" +" s_546)))" "(let-values(((flat-s_39)" "(to-syntax-list.1" -" s_545)))" +" s_547)))" "(if(not" " flat-s_39)" "(let-values()" @@ -64633,17 +64704,17 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_343)))" -"((letrec-values(((for-loop_298)" +"((letrec-values(((for-loop_295)" "(lambda(id:val_16" " lst_344)" "(begin" " 'for-loop" "(if(pair?" " lst_344)" -"(let-values(((s_546)" +"(let-values(((s_548)" "(unsafe-car" " lst_344))" -"((rest_205)" +"((rest_204)" "(unsafe-cdr" " lst_344)))" "(let-values(((id:val_17)" @@ -64653,23 +64724,23 @@ static const char *startup_source = "(let-values()" "(let-values(((id:val152_0)" "(let-values()" -"(if(let-values(((or-part_380)" +"(if(let-values(((or-part_381)" "(if(syntax?$1" -" s_546)" +" s_548)" "(symbol?" "(syntax-e$1" -" s_546))" +" s_548))" " #f)))" -"(if or-part_380" -" or-part_380" +"(if or-part_381" +" or-part_381" "(symbol?" -" s_546)))" -" s_546" +" s_548)))" +" s_548" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_45" -" s_546)))))" +" s_548)))))" "(cons" " id:val152_0" " id:val_18)))))" @@ -64677,45 +64748,45 @@ static const char *startup_source = " id:val_19)))))" "(if(not" " #f)" -"(for-loop_298" +"(for-loop_295" " id:val_17" -" rest_205)" +" rest_204)" " id:val_17)))" " id:val_16)))))" -" for-loop_298)" +" for-loop_295)" " null" " lst_343)))))" "(reverse$1" " id:val_15))))))))" "((val-rhs139_0)" -"(let-values(((s_380)" +"(let-values(((s_381)" "(cdr" -" s_372)))" +" s_373)))" "(let-values(((s_260)" "(if(syntax?$1" -" s_380)" +" s_381)" "(syntax-e$1" -" s_380)" -" s_380)))" +" s_381)" +" s_381)))" "(if(pair?" " s_260)" "(let-values(((val-rhs140_0)" -"(let-values(((s_547)" +"(let-values(((s_549)" "(car" " s_260)))" -" s_547))" +" s_549))" "(()" -"(let-values(((s_548)" +"(let-values(((s_550)" "(cdr" " s_260)))" -"(let-values(((s_549)" +"(let-values(((s_551)" "(if(syntax?$1" -" s_548)" +" s_550)" "(syntax-e$1" -" s_548)" -" s_548)))" +" s_550)" +" s_550)))" "(if(null?" -" s_549)" +" s_551)" "(values)" "(raise-syntax-error$1" " #f" @@ -64746,17 +64817,17 @@ static const char *startup_source = " val-rhs_10)))))" "(if(not" " #f)" -"(for-loop_297" +"(for-loop_294" " id:val_12" " val-rhs_8" -" rest_204)" +" rest_203)" "(values" " id:val_12" " val-rhs_8))))" "(values" " id:val_11" " val-rhs_7))))))" -" for-loop_297)" +" for-loop_294)" " null" " null" " lst_304)))))" @@ -64768,7 +64839,7 @@ static const char *startup_source = "((body137_0)" "(let-values(((s_261)" "(cdr" -" s_416)))" +" s_543)))" "(let-values(((s_262)" "(if(syntax?$1" " s_261)" @@ -64811,7 +64882,7 @@ static const char *startup_source = "(values #t let-values127_1 id:val128_1 val-rhs129_1 body130_1)))" "(values #f #f #f #f #f)))))" "(let-values(((sc_39)(new-scope 'local)))" -"(let-values(((phase_81)(expand-context-phase ctx_82)))" +"(let-values(((phase_83)(expand-context-phase ctx_80)))" "(let-values(((frame-id_15)(if syntaxes?_0(make-reference-record) #f)))" "(let-values(((trans-idss_2)" "(reverse$1" @@ -64820,14 +64891,14 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_345)))" -"((letrec-values(((for-loop_299)" +"((letrec-values(((for-loop_296)" "(lambda(fold-var_314 lst_346)" "(begin" " 'for-loop" "(if(pair? lst_346)" "(let-values(((ids_37)" "(unsafe-car lst_346))" -"((rest_206)" +"((rest_205)" "(unsafe-cdr lst_346)))" "(let-values(((fold-var_111)" "(let-values(((fold-var_112)" @@ -64846,17 +64917,17 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_347)))" -"((letrec-values(((for-loop_300)" +"((letrec-values(((for-loop_297)" "(lambda(fold-var_315" " lst_348)" "(begin" " 'for-loop" "(if(pair?" " lst_348)" -"(let-values(((id_115)" +"(let-values(((id_113)" "(unsafe-car" " lst_348))" -"((rest_207)" +"((rest_206)" "(unsafe-cdr" " lst_348)))" "(let-values(((fold-var_316)" @@ -64867,29 +64938,29 @@ static const char *startup_source = "(cons" "(let-values()" "(add-scope" -" id_115" +" id_113" " sc_39))" " fold-var_317))))" "(values" " fold-var_318)))))" "(if(not" " #f)" -"(for-loop_300" +"(for-loop_297" " fold-var_316" -" rest_207)" +" rest_206)" " fold-var_316)))" " fold-var_315)))))" -" for-loop_300)" +" for-loop_297)" " null" " lst_347)))))" " fold-var_112))))" "(values" " fold-var_113)))))" "(if(not #f)" -"(for-loop_299 fold-var_111 rest_206)" +"(for-loop_296 fold-var_111 rest_205)" " fold-var_111)))" " fold-var_314)))))" -" for-loop_299)" +" for-loop_296)" " null" " lst_345))))))" "(let-values(((val-idss_3)" @@ -64899,14 +64970,14 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_349)))" -"((letrec-values(((for-loop_301)" +"((letrec-values(((for-loop_298)" "(lambda(fold-var_319 lst_350)" "(begin" " 'for-loop" "(if(pair? lst_350)" "(let-values(((ids_38)" "(unsafe-car lst_350))" -"((rest_208)" +"((rest_207)" "(unsafe-cdr lst_350)))" "(let-values(((fold-var_320)" "(let-values(((fold-var_321)" @@ -64925,17 +64996,17 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_351)))" -"((letrec-values(((for-loop_302)" +"((letrec-values(((for-loop_299)" "(lambda(fold-var_323" " lst_352)" "(begin" " 'for-loop" "(if(pair?" " lst_352)" -"(let-values(((id_116)" +"(let-values(((id_114)" "(unsafe-car" " lst_352))" -"((rest_209)" +"((rest_208)" "(unsafe-cdr" " lst_352)))" "(let-values(((fold-var_324)" @@ -64946,31 +65017,31 @@ static const char *startup_source = "(cons" "(let-values()" "(add-scope" -" id_116" +" id_114" " sc_39))" " fold-var_325))))" "(values" " fold-var_326)))))" "(if(not" " #f)" -"(for-loop_302" +"(for-loop_299" " fold-var_324" -" rest_209)" +" rest_208)" " fold-var_324)))" " fold-var_323)))))" -" for-loop_302)" +" for-loop_299)" " null" " lst_351)))))" " fold-var_321))))" "(values" " fold-var_322)))))" "(if(not #f)" -"(for-loop_301" +"(for-loop_298" " fold-var_320" -" rest_208)" +" rest_207)" " fold-var_320)))" " fold-var_319)))))" -" for-loop_301)" +" for-loop_298)" " null" " lst_349))))))" "(let-values(((val-rhss_3)" @@ -64982,14 +65053,14 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_353)))" -"((letrec-values(((for-loop_303)" +"((letrec-values(((for-loop_300)" "(lambda(fold-var_327 lst_354)" "(begin" " 'for-loop" "(if(pair? lst_354)" "(let-values(((rhs_20)" "(unsafe-car lst_354))" -"((rest_210)" +"((rest_209)" "(unsafe-cdr lst_354)))" "(let-values(((fold-var_328)" "(let-values(((fold-var_329)" @@ -65005,12 +65076,12 @@ static const char *startup_source = "(values" " fold-var_330)))))" "(if(not #f)" -"(for-loop_303" +"(for-loop_300" " fold-var_328" -" rest_210)" +" rest_209)" " fold-var_328)))" " fold-var_327)))))" -" for-loop_303)" +" for-loop_300)" " null" " lst_353))))" "(if syntaxes?_0 val-rhs105_0 val-rhs129_0))))" @@ -65024,63 +65095,63 @@ static const char *startup_source = " _154_1" " clause155_1" " _156_1)" -"(let-values(((s_550)" +"(let-values(((s_552)" "(if(syntax?$1" " s_142)" "(syntax-e$1" " s_142)" " s_142)))" -"(if(pair? s_550)" +"(if(pair? s_552)" "(let-values(((_157_0)" -"(let-values(((s_551)" +"(let-values(((s_553)" "(car" -" s_550)))" -" s_551))" +" s_552)))" +" s_553))" "((_158_0" " clause159_0" " _160_0)" -"(let-values(((s_552)" -"(cdr" -" s_550)))" -"(let-values(((s_553)" -"(if(syntax?$1" -" s_552)" -"(syntax-e$1" -" s_552)" -" s_552)))" -"(if(pair?" -" s_553)" -"(let-values(((_161_0)" "(let-values(((s_554)" +"(cdr" +" s_552)))" +"(let-values(((s_555)" +"(if(syntax?$1" +" s_554)" +"(syntax-e$1" +" s_554)" +" s_554)))" +"(if(pair?" +" s_555)" +"(let-values(((_161_0)" +"(let-values(((s_556)" "(car" -" s_553)))" -" s_554))" +" s_555)))" +" s_556))" "((clause162_0" " _163_0)" -"(let-values(((s_555)" -"(cdr" -" s_553)))" -"(let-values(((s_556)" -"(if(syntax?$1" -" s_555)" -"(syntax-e$1" -" s_555)" -" s_555)))" -"(if(pair?" -" s_556)" -"(let-values(((clause164_0)" "(let-values(((s_557)" -"(car" -" s_556)))" +"(cdr" +" s_555)))" "(let-values(((s_558)" "(if(syntax?$1" " s_557)" "(syntax-e$1" " s_557)" " s_557)))" +"(if(pair?" +" s_558)" +"(let-values(((clause164_0)" +"(let-values(((s_559)" +"(car" +" s_558)))" +"(let-values(((s_560)" +"(if(syntax?$1" +" s_559)" +"(syntax-e$1" +" s_559)" +" s_559)))" "(let-values(((flat-s_41)" "(to-syntax-list.1" -" s_558)))" +" s_560)))" "(if(not" " flat-s_41)" "(let-values()" @@ -65091,10 +65162,10 @@ static const char *startup_source = "(let-values()" " flat-s_41))))))" "((_165_0)" -"(let-values(((s_559)" +"(let-values(((s_561)" "(cdr" -" s_556)))" -" s_559)))" +" s_558)))" +" s_561)))" "(values" " clause164_0" " _165_0))" @@ -65131,44 +65202,44 @@ static const char *startup_source = "(let-values(((s_145) disarmed-s_8))" "(let-values(((orig-s_47) s_145))" "(let-values(((_166_1 clause167_1 _168_1)" -"(let-values(((s_560)" +"(let-values(((s_562)" "(if(syntax?$1" " s_145)" "(syntax-e$1" " s_145)" " s_145)))" -"(if(pair? s_560)" +"(if(pair? s_562)" "(let-values(((_169_0)" -"(let-values(((s_561)" +"(let-values(((s_563)" "(car" -" s_560)))" -" s_561))" +" s_562)))" +" s_563))" "((clause170_0" " _171_0)" -"(let-values(((s_562)" -"(cdr" -" s_560)))" -"(let-values(((s_563)" -"(if(syntax?$1" -" s_562)" -"(syntax-e$1" -" s_562)" -" s_562)))" -"(if(pair?" -" s_563)" -"(let-values(((clause172_0)" "(let-values(((s_564)" -"(car" -" s_563)))" +"(cdr" +" s_562)))" "(let-values(((s_565)" "(if(syntax?$1" " s_564)" "(syntax-e$1" " s_564)" " s_564)))" +"(if(pair?" +" s_565)" +"(let-values(((clause172_0)" +"(let-values(((s_566)" +"(car" +" s_565)))" +"(let-values(((s_567)" +"(if(syntax?$1" +" s_566)" +"(syntax-e$1" +" s_566)" +" s_566)))" "(let-values(((flat-s_42)" "(to-syntax-list.1" -" s_565)))" +" s_567)))" "(if(not" " flat-s_42)" "(let-values()" @@ -65179,10 +65250,10 @@ static const char *startup_source = "(let-values()" " flat-s_42))))))" "((_173_0)" -"(let-values(((s_566)" +"(let-values(((s_568)" "(cdr" -" s_563)))" -" s_566)))" +" s_565)))" +" s_568)))" "(values" " clause172_0" " _173_0))" @@ -65203,7 +65274,7 @@ static const char *startup_source = "(let-values((()" "(begin" "(let-values(((temp141_2)(list trans-idss_2 val-idss_3))" -"((phase142_0) phase_81)" +"((phase142_0) phase_83)" "((s143_0) s_105))" "(check-no-duplicate-ids7.1" " unsafe-undefined" @@ -65212,7 +65283,7 @@ static const char *startup_source = " s143_0" " unsafe-undefined))" "(values))))" -"(let-values(((counter_8)(root-expand-context-counter ctx_82)))" +"(let-values(((counter_8)(root-expand-context-counter ctx_80)))" "(let-values(((trans-keyss_0)" "(reverse$1" "(let-values(((lst_355) trans-idss_2))" @@ -65221,7 +65292,7 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()(check-list lst_355)))" -"((letrec-values(((for-loop_304)" +"((letrec-values(((for-loop_301)" "(lambda(fold-var_331 lst_356)" "(begin" " 'for-loop" @@ -65229,7 +65300,7 @@ static const char *startup_source = "(let-values(((ids_39)" "(unsafe-car" " lst_356))" -"((rest_211)" +"((rest_210)" "(unsafe-cdr" " lst_356)))" "(let-values(((fold-var_332)" @@ -65249,17 +65320,17 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_357)))" -"((letrec-values(((for-loop_305)" +"((letrec-values(((for-loop_302)" "(lambda(fold-var_335" " lst_358)" "(begin" " 'for-loop" "(if(pair?" " lst_358)" -"(let-values(((id_117)" +"(let-values(((id_115)" "(unsafe-car" " lst_358))" -"((rest_212)" +"((rest_211)" "(unsafe-cdr" " lst_358)))" "(let-values(((fold-var_336)" @@ -65270,9 +65341,9 @@ static const char *startup_source = "(cons" "(let-values()" "(let-values(((id174_0)" -" id_117)" +" id_115)" "((phase175_0)" -" phase_81)" +" phase_83)" "((counter176_0)" " counter_8)" "((frame-id177_0)" @@ -65290,24 +65361,24 @@ static const char *startup_source = " fold-var_338)))))" "(if(not" " #f)" -"(for-loop_305" +"(for-loop_302" " fold-var_336" -" rest_212)" +" rest_211)" " fold-var_336)))" " fold-var_335)))))" -" for-loop_305)" +" for-loop_302)" " null" " lst_357)))))" " fold-var_333))))" "(values" " fold-var_334)))))" "(if(not #f)" -"(for-loop_304" +"(for-loop_301" " fold-var_332" -" rest_211)" +" rest_210)" " fold-var_332)))" " fold-var_331)))))" -" for-loop_304)" +" for-loop_301)" " null" " lst_355))))))" "(let-values(((val-keyss_2)" @@ -65318,7 +65389,7 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()(check-list lst_359)))" -"((letrec-values(((for-loop_306)" +"((letrec-values(((for-loop_303)" "(lambda(fold-var_339 lst_360)" "(begin" " 'for-loop" @@ -65326,7 +65397,7 @@ static const char *startup_source = "(let-values(((ids_40)" "(unsafe-car" " lst_360))" -"((rest_213)" +"((rest_212)" "(unsafe-cdr" " lst_360)))" "(let-values(((fold-var_340)" @@ -65337,7 +65408,7 @@ static const char *startup_source = "(cons" "(let-values()" "(reverse$1" -"(let-values(((lst_131)" +"(let-values(((lst_130)" " ids_40))" "(begin" "(if(variable-reference-from-unsafe?" @@ -65345,18 +65416,18 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_131)))" -"((letrec-values(((for-loop_307)" +" lst_130)))" +"((letrec-values(((for-loop_304)" "(lambda(fold-var_342" " lst_361)" "(begin" " 'for-loop" "(if(pair?" " lst_361)" -"(let-values(((id_118)" +"(let-values(((id_116)" "(unsafe-car" " lst_361))" -"((rest_214)" +"((rest_213)" "(unsafe-cdr" " lst_361)))" "(let-values(((fold-var_343)" @@ -65367,9 +65438,9 @@ static const char *startup_source = "(cons" "(let-values()" "(let-values(((id179_0)" -" id_118)" +" id_116)" "((phase180_0)" -" phase_81)" +" phase_83)" "((counter181_0)" " counter_8)" "((frame-id182_0)" @@ -65387,24 +65458,24 @@ static const char *startup_source = " fold-var_345)))))" "(if(not" " #f)" -"(for-loop_307" +"(for-loop_304" " fold-var_343" -" rest_214)" +" rest_213)" " fold-var_343)))" " fold-var_342)))))" -" for-loop_307)" +" for-loop_304)" " null" -" lst_131)))))" +" lst_130)))))" " fold-var_341))))" "(values" " fold-var_116)))))" "(if(not #f)" -"(for-loop_306" +"(for-loop_303" " fold-var_340" -" rest_213)" +" rest_212)" " fold-var_340)))" " fold-var_339)))))" -" for-loop_306)" +" for-loop_303)" " null" " lst_359))))))" "(let-values(((bodys_10)" @@ -65416,7 +65487,7 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()(check-list lst_362)))" -"((letrec-values(((for-loop_308)" +"((letrec-values(((for-loop_305)" "(lambda(fold-var_346 lst_363)" "(begin" " 'for-loop" @@ -65424,7 +65495,7 @@ static const char *startup_source = "(let-values(((body_18)" "(unsafe-car" " lst_363))" -"((rest_215)" +"((rest_214)" "(unsafe-cdr" " lst_363)))" "(let-values(((fold-var_121)" @@ -65441,18 +65512,18 @@ static const char *startup_source = "(values" " fold-var_48)))))" "(if(not #f)" -"(for-loop_308" +"(for-loop_305" " fold-var_121" -" rest_215)" +" rest_214)" " fold-var_121)))" " fold-var_346)))))" -" for-loop_308)" +" for-loop_305)" " null" " lst_362))))))" "(let-values((()" "(begin" "(let-values(((obs_90)" -"(expand-context-observer ctx_82)))" +"(expand-context-observer ctx_80)))" "(if obs_90" "(let-values()" "(log-let-renames" @@ -65473,7 +65544,7 @@ static const char *startup_source = "(begin" "(let-values(((obs_91)" "(expand-context-observer" -" ctx_82)))" +" ctx_80)))" "(if obs_91" "(let-values()" "(let-values()" @@ -65481,7 +65552,7 @@ static const char *startup_source = " obs_91" " 'prepare-env)))" "(void)))" -"(prepare-next-phase-namespace ctx_82)))" +"(prepare-next-phase-namespace ctx_80)))" "(void))" "(values))))" "(let-values(((trans-valss_0)" @@ -65500,7 +65571,7 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()(check-list lst_364)))" -"((letrec-values(((for-loop_309)" +"((letrec-values(((for-loop_306)" "(lambda(fold-var_348" " lst_365" " lst_366)" @@ -65512,13 +65583,13 @@ static const char *startup_source = "(let-values(((rhs_21)" "(unsafe-car" " lst_365))" -"((rest_216)" +"((rest_215)" "(unsafe-cdr" " lst_365))" "((ids_41)" "(unsafe-car" " lst_366))" -"((rest_217)" +"((rest_216)" "(unsafe-cdr" " lst_366)))" "(let-values(((fold-var_349)" @@ -65532,7 +65603,7 @@ static const char *startup_source = "(begin" "(let-values(((obs_92)" "(expand-context-observer" -" ctx_82)))" +" ctx_80)))" "(if obs_92" "(let-values()" "(let-values()" @@ -65552,11 +65623,11 @@ static const char *startup_source = " rhs_21" " sc_39)" " ids_41" -" ctx_82)))" +" ctx_80)))" "(begin" "(let-values(((obs_93)" "(expand-context-observer" -" ctx_82)))" +" ctx_80)))" "(if obs_93" "(let-values()" "(let-values()" @@ -65569,19 +65640,19 @@ static const char *startup_source = "(values" " fold-var_351)))))" "(if(not #f)" -"(for-loop_309" +"(for-loop_306" " fold-var_349" -" rest_216" -" rest_217)" +" rest_215" +" rest_216)" " fold-var_349)))" " fold-var_348)))))" -" for-loop_309)" +" for-loop_306)" " null" " lst_63" " lst_364))))))" "(let-values(((rec-val-env_0)" "(let-values(((lst_367) val-keyss_2)" -"((lst_135) val-idss_3))" +"((lst_134) val-idss_3))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" @@ -65590,8 +65661,8 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_135)))" -"((letrec-values(((for-loop_310)" +"(let-values()(check-list lst_134)))" +"((letrec-values(((for-loop_307)" "(lambda(env_29" " lst_368" " lst_369)" @@ -65604,13 +65675,13 @@ static const char *startup_source = "(let-values(((keys_10)" "(unsafe-car" " lst_368))" -"((rest_218)" +"((rest_217)" "(unsafe-cdr" " lst_368))" "((ids_42)" "(unsafe-car" " lst_369))" -"((rest_219)" +"((rest_218)" "(unsafe-cdr" " lst_369)))" "(let-values(((env_30)" @@ -65633,7 +65704,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_371)))" -"((letrec-values(((for-loop_311)" +"((letrec-values(((for-loop_308)" "(lambda(env_32" " lst_372" " lst_373)" @@ -65644,16 +65715,16 @@ static const char *startup_source = "(pair?" " lst_373)" " #f)" -"(let-values(((key_91)" +"(let-values(((key_90)" "(unsafe-car" " lst_372))" -"((rest_220)" +"((rest_219)" "(unsafe-cdr" " lst_372))" -"((id_119)" +"((id_117)" "(unsafe-car" " lst_373))" -"((rest_221)" +"((rest_220)" "(unsafe-cdr" " lst_373)))" "(let-values(((env_33)" @@ -65663,34 +65734,34 @@ static const char *startup_source = "(let-values()" "(env-extend" " env_34" -" key_91" +" key_90" "(local-variable1.1" -" id_119)))))" +" id_117)))))" "(values" " env_35)))))" "(if(not" " #f)" -"(for-loop_311" +"(for-loop_308" " env_33" -" rest_220" -" rest_221)" +" rest_219" +" rest_220)" " env_33)))" " env_32)))))" -" for-loop_311)" +" for-loop_308)" " env_31" " lst_370" " lst_371))))))" "(if(not #f)" -"(for-loop_310" +"(for-loop_307" " env_30" -" rest_218" -" rest_219)" +" rest_217" +" rest_218)" " env_30)))" " env_29)))))" -" for-loop_310)" -"(expand-context-env ctx_82)" +" for-loop_307)" +"(expand-context-env ctx_80)" " lst_367" -" lst_135)))))" +" lst_134)))))" "(let-values(((rec-env_0)" "(let-values(((lst_374) trans-keyss_0)" "((lst_375) trans-valss_0)" @@ -65708,7 +65779,7 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()(check-list lst_376)))" -"((letrec-values(((for-loop_312)" +"((letrec-values(((for-loop_309)" "(lambda(env_36" " lst_377" " lst_378" @@ -65726,19 +65797,19 @@ static const char *startup_source = "(let-values(((keys_11)" "(unsafe-car" " lst_377))" -"((rest_222)" +"((rest_221)" "(unsafe-cdr" " lst_377))" "((vals_9)" "(unsafe-car" " lst_378))" -"((rest_223)" +"((rest_222)" "(unsafe-cdr" " lst_378))" -"((ids_43)" +"((ids_22)" "(unsafe-car" " lst_379))" -"((rest_224)" +"((rest_223)" "(unsafe-cdr" " lst_379)))" "(let-values(((env_37)" @@ -65751,7 +65822,7 @@ static const char *startup_source = "((lst_381)" " vals_9)" "((lst_382)" -" ids_43))" +" ids_22))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" @@ -65771,7 +65842,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_382)))" -"((letrec-values(((for-loop_313)" +"((letrec-values(((for-loop_310)" "(lambda(env_40" " lst_383" " lst_384" @@ -65786,22 +65857,22 @@ static const char *startup_source = " lst_385)" " #f)" " #f)" -"(let-values(((key_92)" +"(let-values(((key_91)" "(unsafe-car" " lst_383))" +"((rest_224)" +"(unsafe-cdr" +" lst_383))" +"((val_85)" +"(unsafe-car" +" lst_384))" "((rest_225)" "(unsafe-cdr" -" lst_383))" -"((val_86)" -"(unsafe-car" " lst_384))" -"((rest_226)" -"(unsafe-cdr" -" lst_384))" -"((id_120)" +"((id_118)" "(unsafe-car" " lst_385))" -"((rest_227)" +"((rest_226)" "(unsafe-cdr" " lst_385)))" "(let-values(((env_41)" @@ -65811,26 +65882,26 @@ static const char *startup_source = "(let-values()" "(begin" "(maybe-install-free=id-in-context!" -" val_86" -" id_120" -" phase_81" -" ctx_82)" +" val_85" +" id_118" +" phase_83" +" ctx_80)" "(env-extend" " env_42" -" key_92" -" val_86)))))" +" key_91" +" val_85)))))" "(values" " env_43)))))" "(if(not" " #f)" -"(for-loop_313" +"(for-loop_310" " env_41" +" rest_224" " rest_225" -" rest_226" -" rest_227)" +" rest_226)" " env_41)))" " env_40)))))" -" for-loop_313)" +" for-loop_310)" " env_38" " lst_380" " lst_381" @@ -65838,20 +65909,20 @@ static const char *startup_source = "(values" " env_39)))))" "(if(not #f)" -"(for-loop_312" +"(for-loop_309" " env_37" +" rest_221" " rest_222" -" rest_223" -" rest_224)" +" rest_223)" " env_37)))" " env_36)))))" -" for-loop_312)" +" for-loop_309)" " rec-val-env_0" " lst_374" " lst_375" " lst_376)))))" "(let-values(((expr-ctx_0)" -"(as-expression-context ctx_82)))" +"(as-expression-context ctx_80)))" "(let-values(((orig-rrs_0)" "(expand-context-reference-records" " expr-ctx_0)))" @@ -65866,7 +65937,7 @@ static const char *startup_source = "(cons" " sc_39" "(expand-context-scopes" -" ctx_82)))" +" ctx_80)))" "((reference-records186_0)" "(if split-by-reference?_0" "(cons" @@ -65878,7 +65949,7 @@ static const char *startup_source = "(cons" " trans-idss_2" " val-idss_3)" -" ctx_82" +" ctx_80" " sc_39))" "((inner188_0)" "(root-expand-context/outer-inner" @@ -65887,6 +65958,8 @@ static const char *startup_source = " inner188_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-use-site-scopes" " the-struct_97)" "(root-expand-context/outer-frame-id" @@ -65916,13 +65989,13 @@ static const char *startup_source = "(let-values(((letrec-values-id_0)" "(if(not" "(expand-context-to-parsed?" -" ctx_82))" +" ctx_80))" "(if syntaxes?_0" -"(core-id 'letrec-values phase_81)" +"(core-id 'letrec-values phase_83)" " let-values127_0)" " #f)))" "(let-values(((rebuild-s_6)" -"(let-values(((ctx189_0) ctx_82)" +"(let-values(((ctx189_0) ctx_80)" "((s190_1) s_105)" "((temp191_1) #t))" "(keep-as-needed119.1" @@ -65933,7 +66006,7 @@ static const char *startup_source = " s190_1))))" "(let-values(((val-name-idss_0)" "(if(expand-context-to-parsed?" -" ctx_82)" +" ctx_80)" "(reverse$1" "(let-values(((lst_251)" " val-idss_3))" @@ -65943,7 +66016,7 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list lst_251)))" -"((letrec-values(((for-loop_228)" +"((letrec-values(((for-loop_227)" "(lambda(fold-var_352" " lst_252)" "(begin" @@ -65953,7 +66026,7 @@ static const char *startup_source = "(let-values(((val-ids_1)" "(unsafe-car" " lst_252))" -"((rest_138)" +"((rest_137)" "(unsafe-cdr" " lst_252)))" "(let-values(((fold-var_353)" @@ -65973,7 +66046,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_386)))" -"((letrec-values(((for-loop_314)" +"((letrec-values(((for-loop_311)" "(lambda(fold-var_356" " lst_387)" "(begin" @@ -65983,7 +66056,7 @@ static const char *startup_source = "(let-values(((val-id_0)" "(unsafe-car" " lst_387))" -"((rest_228)" +"((rest_227)" "(unsafe-cdr" " lst_387)))" "(let-values(((fold-var_357)" @@ -66004,12 +66077,12 @@ static const char *startup_source = " fold-var_358)))))" "(if(not" " #f)" -"(for-loop_314" +"(for-loop_311" " fold-var_357" -" rest_228)" +" rest_227)" " fold-var_357)))" " fold-var_356)))))" -" for-loop_314)" +" for-loop_311)" " null" " lst_386)))))" " fold-var_354))))" @@ -66017,12 +66090,12 @@ static const char *startup_source = " fold-var_355)))))" "(if(not" " #f)" -"(for-loop_228" +"(for-loop_227" " fold-var_353" -" rest_138)" +" rest_137)" " fold-var_353)))" " fold-var_352)))))" -" for-loop_228)" +" for-loop_227)" " null" " lst_251))))" " val-idss_3)))" @@ -66032,7 +66105,7 @@ static const char *startup_source = "(let-values()" "(let-values(((obs_94)" "(expand-context-observer" -" ctx_82)))" +" ctx_80)))" "(if obs_94" "(let-values()" "(log-letrec-values" @@ -66051,7 +66124,7 @@ static const char *startup_source = "(begin" "(let-values(((obs_95)" "(expand-context-observer" -" ctx_82)))" +" ctx_80)))" "(if obs_95" "(let-values()" "(if(not" @@ -66067,21 +66140,23 @@ static const char *startup_source = "(void)))" "(values))))" "(let-values(((body-ctx_5)" -"(let-values(((v_266)" +"(let-values(((v_265)" " rec-ctx_0))" "(let-values(((the-struct_98)" -" v_266))" +" v_265))" "(if(expand-context/outer?" " the-struct_98)" "(let-values(((reference-records195_0)" " orig-rrs_0)" "((inner196_0)" "(root-expand-context/outer-inner" -" v_266)))" +" v_265)))" "(expand-context/outer1.1" " inner196_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-use-site-scopes" " the-struct_98)" "(root-expand-context/outer-frame-id" @@ -66117,7 +66192,7 @@ static const char *startup_source = "(let-values(((body-ctx197_0)" " body-ctx_5)" "((ctx198_0)" -" ctx_82))" +" ctx_80))" "(as-tail-context22.1" " ctx198_0" " body-ctx197_0)))" @@ -66134,11 +66209,11 @@ static const char *startup_source = "(let-values()" "(let-values(((clauses_2)" "(reverse$1" -"(let-values(((lst_150)" +"(let-values(((lst_149)" " val-name-idss_0)" "((lst_388)" " val-keyss_2)" -"((lst_151)" +"((lst_150)" " val-rhss_3)" "((lst_389)" " val-clauses_0))" @@ -66148,7 +66223,7 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_150)))" +" lst_149)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" @@ -66160,14 +66235,14 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_151)))" +" lst_150)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" " lst_389)))" -"((letrec-values(((for-loop_315)" +"((letrec-values(((for-loop_312)" "(lambda(fold-var_359" " lst_390" " lst_391" @@ -66186,28 +66261,28 @@ static const char *startup_source = " #f)" " #f)" " #f)" -"(let-values(((ids_44)" +"(let-values(((ids_43)" "(unsafe-car" " lst_390))" -"((rest_229)" +"((rest_228)" "(unsafe-cdr" " lst_390))" "((keys_12)" "(unsafe-car" " lst_391))" -"((rest_230)" +"((rest_229)" "(unsafe-cdr" " lst_391))" "((rhs_22)" "(unsafe-car" " lst_392))" -"((rest_231)" +"((rest_230)" "(unsafe-cdr" " lst_392))" "((clause_4)" "(unsafe-car" " lst_393))" -"((rest_232)" +"((rest_231)" "(unsafe-cdr" " lst_393)))" "(let-values(((fold-var_51)" @@ -66221,7 +66296,7 @@ static const char *startup_source = "(begin" "(let-values(((obs_96)" "(expand-context-observer" -" ctx_82)))" +" ctx_80)))" "(if obs_96" "(let-values()" "(let-values()" @@ -66237,10 +66312,10 @@ static const char *startup_source = "(if rec?_1" "(as-named-context" " rec-ctx_0" -" ids_44)" +" ids_43)" "(as-named-context" " expr-ctx_0" -" ids_44))))" +" ids_43))))" "(expand9.1" " #f" " #f" @@ -66248,14 +66323,14 @@ static const char *startup_source = " rhs199_0" " temp200_0))))" "(if(expand-context-to-parsed?" -" ctx_82)" +" ctx_80)" "(list" " keys_12" " exp-rhs_4)" "(datum->syntax$1" " #f" "(list" -" ids_44" +" ids_43" " exp-rhs_4)" " clause_4" " clause_4)))))" @@ -66264,19 +66339,19 @@ static const char *startup_source = " fold-var_361)))))" "(if(not" " #f)" -"(for-loop_315" +"(for-loop_312" " fold-var_51" +" rest_228" " rest_229" " rest_230" -" rest_231" -" rest_232)" +" rest_231)" " fold-var_51)))" " fold-var_359)))))" -" for-loop_315)" +" for-loop_312)" " null" -" lst_150" +" lst_149" " lst_388" -" lst_151" +" lst_150" " lst_389))))))" "(let-values(((exp-body_4)" "(get-body_1)))" @@ -66287,7 +66362,7 @@ static const char *startup_source = " frame-id_15))" "(void))" "(if(expand-context-to-parsed?" -" ctx_82)" +" ctx_80)" "(if rec?_1" "(parsed-letrec-values18.1" " rebuild-s_6" @@ -66331,7 +66406,7 @@ static const char *startup_source = " syntaxes?_0)" "((get-body212_0)" " get-body_1)" -"((temp213_2)" +"((temp213_3)" " #t))" "(expand-and-split-bindings-by-reference48.1" " rec-ctx209_0" @@ -66340,12 +66415,12 @@ static const char *startup_source = " syntaxes?211_0" " rebuild-s210_0" " temp207_0" -" temp213_2" +" temp213_3" " val-idss203_0" " val-keyss204_0" " val-rhss205_0" " val-clauses206_0))))))" -"(if(expand-context-to-parsed? ctx_82)" +"(if(expand-context-to-parsed? ctx_80)" " result-s_12" "(attach-disappeared-transformer-bindings" " result-s_12" @@ -66365,15 +66440,15 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_395)))" -"((letrec-values(((for-loop_316)" +"((letrec-values(((for-loop_313)" "(lambda(fold-var_362 lst_396 lst_397)" "(begin" " 'for-loop" "(if(if(pair? lst_396)(pair? lst_397) #f)" "(let-values(((val-ids_2)(unsafe-car lst_396))" -"((rest_233)(unsafe-cdr lst_396))" +"((rest_232)(unsafe-cdr lst_396))" "((val-rhs_11)(unsafe-car lst_397))" -"((rest_234)(unsafe-cdr lst_397)))" +"((rest_233)(unsafe-cdr lst_397)))" "(let-values(((fold-var_363)" "(let-values(((fold-var_364) fold-var_362))" "(let-values(((fold-var_365)" @@ -66386,10 +66461,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_313 fold-var_363 rest_232 rest_233)" " fold-var_363)))" " fold-var_362)))))" -" for-loop_316)" +" for-loop_313)" " null" " lst_394" " lst_395))))" @@ -66409,15 +66484,15 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_399)))" -"((letrec-values(((for-loop_317)" +"((letrec-values(((for-loop_314)" "(lambda(fold-var_366 lst_400 lst_401)" "(begin" " 'for-loop" "(if(if(pair? lst_400)(pair? lst_401) #f)" "(let-values(((trans-ids_0)(unsafe-car lst_400))" -"((rest_235)(unsafe-cdr lst_400))" +"((rest_234)(unsafe-cdr lst_400))" "((trans-rhs_5)(unsafe-car lst_401))" -"((rest_236)(unsafe-cdr lst_401)))" +"((rest_235)(unsafe-cdr lst_401)))" "(let-values(((fold-var_367)" "(let-values(((fold-var_368) fold-var_366))" "(let-values(((fold-var_369)" @@ -66431,9 +66506,9 @@ static const char *startup_source = "(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_314 fold-var_367 rest_234 rest_235) fold-var_367)))" " fold-var_366)))))" -" for-loop_317)" +" for-loop_314)" " null" " lst_398" " lst_399))))" @@ -66457,44 +66532,44 @@ static const char *startup_source = "(void" "(add-core-form!*" " 'letrec-values" -"(let-values(((temp215_1) #t)((temp216_1) 'prim-letrec-values))" -"(make-let-values-form11.1 temp216_1 temp215_1 'let-renames #f #f))))" +"(let-values(((temp215_0) #t)((temp216_0) 'prim-letrec-values))" +"(make-let-values-form11.1 temp216_0 temp215_0 'let-renames #f #f))))" "(void" "(add-core-form!*" " 'letrec-syntaxes+values" -"(let-values(((temp217_2) #t)" -"((temp218_1) #t)" +"(let-values(((temp217_3) #t)" +"((temp218_2) #t)" "((temp219_0) #t)" "((temp220_0) 'prim-letrec-syntaxes+values)" "((temp221_3) 'letrec-syntaxes-renames))" -"(make-let-values-form11.1 temp220_0 temp218_1 temp221_3 temp219_0 temp217_2))))" +"(make-let-values-form11.1 temp220_0 temp218_2 temp221_3 temp219_0 temp217_3))))" "(void" "(add-core-form!*" " '#%stratified-body" -"(lambda(s_567 ctx_83)" +"(lambda(s_569 ctx_81)" "(let-values((()" "(begin" -"(let-values(((obs_99)(expand-context-observer ctx_83)))" +"(let-values(((obs_99)(expand-context-observer ctx_81)))" "(if obs_99" "(let-values()(let-values()(call-expand-observe obs_99 'prim-#%stratified)))" "(void)))" "(values))))" -"(let-values(((disarmed-s_9)(syntax-disarm$1 s_567)))" +"(let-values(((disarmed-s_9)(syntax-disarm$1 s_569)))" "(let-values(((ok?_45 #%stratified-body222_0 body223_0)" -"(let-values(((s_568) disarmed-s_9))" -"(let-values(((orig-s_48) s_568))" +"(let-values(((s_570) disarmed-s_9))" +"(let-values(((orig-s_48) s_570))" "(let-values(((#%stratified-body222_1 body223_1)" -"(let-values(((s_569)(if(syntax?$1 s_568)(syntax-e$1 s_568) s_568)))" -"(if(pair? s_569)" +"(let-values(((s_571)(if(syntax?$1 s_570)(syntax-e$1 s_570) s_570)))" +"(if(pair? s_571)" "(let-values(((#%stratified-body224_0)" -"(let-values(((s_570)(car s_569))) s_570))" +"(let-values(((s_572)(car s_571))) s_572))" "((body225_0)" -"(let-values(((s_571)(cdr s_569)))" -"(let-values(((s_572)" -"(if(syntax?$1 s_571)" -"(syntax-e$1 s_571)" -" s_571)))" -"(let-values(((flat-s_43)(to-syntax-list.1 s_572)))" +"(let-values(((s_573)(cdr s_571)))" +"(let-values(((s_574)" +"(if(syntax?$1 s_573)" +"(syntax-e$1 s_573)" +" s_573)))" +"(let-values(((flat-s_43)(to-syntax-list.1 s_574)))" "(if(not flat-s_43)" "(let-values()" " (raise-syntax-error$1 #f \"bad syntax\" orig-s_48))" @@ -66506,40 +66581,40 @@ 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_83)((s227_1) s_567)((temp228_0) #t))" -"(keep-as-needed119.1 #f temp228_0 #f ctx226_0 s227_1))))" +"(let-values(((ctx226_0) ctx_81)((s227_0) s_569)((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_83)" +"((ctx230_0) ctx_81)" "((temp231_1) #t)" "((rebuild-s232_0) rebuild-s_7))" "(expand-body7.1 rebuild-s232_0 temp231_1 temp229_3 ctx230_0))))" -"(if(expand-context-to-parsed? ctx_83)" +"(if(expand-context-to-parsed? ctx_81)" "(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_83)) exp-body_5))))" +"(list*(core-id 'begin(expand-context-phase ctx_81)) exp-body_5))))" "(rebuild5.1 #t rebuild-s233_0 temp234_1)))))))))))" "(void" "(add-core-form!*" " '#%datum" -"(lambda(s_573 ctx_84)" +"(lambda(s_575 ctx_82)" "(let-values((()" "(begin" -"(let-values(((obs_100)(expand-context-observer ctx_84)))" +"(let-values(((obs_100)(expand-context-observer ctx_82)))" "(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_573)))" +"(let-values(((disarmed-s_10)(syntax-disarm$1 s_575)))" "(let-values(((ok?_46 #%datum235_0 datum236_0)" -"(let-values(((s_574) disarmed-s_10))" -"(let-values(((orig-s_49) s_574))" +"(let-values(((s_576) disarmed-s_10))" +"(let-values(((orig-s_49) s_576))" "(let-values(((#%datum235_1 datum236_1)" -"(let-values(((s_575)(if(syntax?$1 s_574)(syntax-e$1 s_574) s_574)))" -"(if(pair? s_575)" -"(let-values(((#%datum237_0)(let-values(((s_576)(car s_575))) s_576))" -"((datum238_0)(let-values(((s_577)(cdr s_575))) s_577)))" +"(let-values(((s_577)(if(syntax?$1 s_576)(syntax-e$1 s_576) s_576)))" +"(if(pair? s_577)" +"(let-values(((#%datum237_0)(let-values(((s_578)(car s_577))) s_578))" +"((datum238_0)(let-values(((s_579)(cdr s_577))) s_579)))" "(values #%datum237_0 datum238_0))" " (raise-syntax-error$1 #f \"bad syntax\" orig-s_49)))))" "(values #t #%datum235_1 datum236_1))))))" @@ -66551,35 +66626,35 @@ static const char *startup_source = " (raise-syntax-error$1 '#%datum \"keyword misused as an expression\" #f datum_2))" "(void))" "(values))))" -"(let-values(((phase_138)(expand-context-phase ctx_84)))" -"(if(if(expand-context-to-parsed? ctx_84)(free-id-set-empty?(expand-context-stops ctx_84)) #f)" -"(parsed-quote14.1(keep-properties-only~ s_573)(syntax->datum$1 datum_2))" -"(let-values(((s239_0) s_573)((temp240_0)(list(core-id 'quote phase_138) datum_2)))" +"(let-values(((phase_140)(expand-context-phase ctx_82)))" +"(if(if(expand-context-to-parsed? ctx_82)(free-id-set-empty?(expand-context-stops ctx_82)) #f)" +"(parsed-quote14.1(keep-properties-only~ s_575)(syntax->datum$1 datum_2))" +"(let-values(((s239_0) s_575)((temp240_0)(list(core-id 'quote phase_140) datum_2)))" "(rebuild5.1 #t s239_0 temp240_0))))))))))))" "(void" "(add-core-form!*" " '#%app" -"(lambda(s_578 ctx_85)" +"(lambda(s_580 ctx_83)" "(let-values((()" "(begin" -"(let-values(((obs_101)(expand-context-observer ctx_85)))" +"(let-values(((obs_101)(expand-context-observer ctx_83)))" "(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_578)))" +"(let-values(((disarmed-s_11)(syntax-disarm$1 s_580)))" "(let-values(((ok?_47 #%app241_0 e242_0)" -"(let-values(((s_579) disarmed-s_11))" -"(let-values(((orig-s_50) s_579))" +"(let-values(((s_581) disarmed-s_11))" +"(let-values(((orig-s_50) s_581))" "(let-values(((#%app241_1 e242_1)" -"(let-values(((s_580)(if(syntax?$1 s_579)(syntax-e$1 s_579) s_579)))" -"(if(pair? s_580)" -"(let-values(((#%app243_0)(let-values(((s_581)(car s_580))) s_581))" +"(let-values(((s_582)(if(syntax?$1 s_581)(syntax-e$1 s_581) s_581)))" +"(if(pair? s_582)" +"(let-values(((#%app243_0)(let-values(((s_583)(car s_582))) s_583))" "((e244_0)" -"(let-values(((s_582)(cdr s_580)))" -"(let-values(((s_583)" -"(if(syntax?$1 s_582)" -"(syntax-e$1 s_582)" -" s_582)))" -"(let-values(((flat-s_44)(to-syntax-list.1 s_583)))" +"(let-values(((s_584)(cdr s_582)))" +"(let-values(((s_585)" +"(if(syntax?$1 s_584)" +"(syntax-e$1 s_584)" +" s_584)))" +"(let-values(((flat-s_44)(to-syntax-list.1 s_585)))" "(if(not flat-s_44)" "(let-values()" " (raise-syntax-error$1 #f \"bad syntax\" orig-s_50))" @@ -66590,27 +66665,27 @@ static const char *startup_source = "(let-values(((es_3) e242_0))" "(if(null? es_3)" "(let-values()" -"(let-values(((phase_139)(expand-context-phase ctx_85)))" -"(if(expand-context-to-parsed? ctx_85)" -"(parsed-quote14.1(keep-properties-only~ s_578) null)" -"(let-values(((s245_0) s_578)((temp246_1)(list(core-id 'quote phase_139) null)))" +"(let-values(((phase_141)(expand-context-phase ctx_83)))" +"(if(expand-context-to-parsed? ctx_83)" +"(parsed-quote14.1(keep-properties-only~ s_580) null)" +"(let-values(((s245_0) s_580)((temp246_1)(list(core-id 'quote phase_141) null)))" "(rebuild5.1 #t s245_0 temp246_1)))))" "(let-values()" "(let-values(((keep-for-parsed?_1)(eq?(system-type 'vm) 'chez-scheme)))" "(let-values(((rebuild-s_8)" -"(let-values(((ctx247_0) ctx_85)" -"((s248_0) s_578)" +"(let-values(((ctx247_0) ctx_83)" +"((s248_0) s_580)" "((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_85)" +"(let-values(((ctx250_0) ctx_83)" "((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_85)))" +"(let-values(((expr-ctx_1)(as-expression-context ctx_83)))" "(let-values((()" "(begin" "(let-values(((obs_102)(expand-context-observer expr-ctx_1)))" @@ -66621,7 +66696,7 @@ static const char *startup_source = "(call-expand-observe" " obs_102" " 'enter-list" -"(datum->syntax$1 #f es_3 s_578))" +"(datum->syntax$1 #f es_3 s_580))" "(call-expand-observe obs_102 'next))))" "(void)))" "(values))))" @@ -66636,13 +66711,13 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_402)))" -"((letrec-values(((for-loop_318)" +"((letrec-values(((for-loop_315)" "(lambda(fold-var_370 lst_403)" "(begin" " 'for-loop" "(if(pair? lst_403)" "(let-values(((e_90)(unsafe-car lst_403))" -"((rest_237)" +"((rest_236)" "(unsafe-cdr lst_403)))" "(let-values(((fold-var_371)" "(let-values(((fold-var_372)" @@ -66676,17 +66751,17 @@ static const char *startup_source = "(values" " fold-var_373)))))" "(if(not #f)" -"(for-loop_318 fold-var_371 rest_237)" +"(for-loop_315 fold-var_371 rest_236)" " fold-var_371)))" " fold-var_370)))))" -" for-loop_318)" +" for-loop_315)" " null" " lst_402))))))" -"(if(expand-context-to-parsed? ctx_85)" +"(if(expand-context-to-parsed? ctx_83)" "(let-values()" "(parsed-app7.1" -"(let-values(((or-part_381) rebuild-prefixless_0))" -"(if or-part_381 or-part_381 rebuild-s_8))" +"(let-values(((or-part_382) rebuild-prefixless_0))" +"(if or-part_382 or-part_382 rebuild-s_8))" " exp-rator_0" " exp-es_0))" "(let-values()" @@ -66713,35 +66788,35 @@ static const char *startup_source = "(void" "(add-core-form!*" " 'quote" -"(lambda(s_584 ctx_86)" +"(lambda(s_586 ctx_84)" "(let-values((()" "(begin" -"(let-values(((obs_105)(expand-context-observer ctx_86)))" +"(let-values(((obs_105)(expand-context-observer ctx_84)))" "(if obs_105(let-values()(let-values()(call-expand-observe obs_105 'prim-quote)))(void)))" "(values))))" "(let-values(((ok?_48 quote261_0 datum262_0)" -"(let-values(((s_282)(syntax-disarm$1 s_584)))" +"(let-values(((s_282)(syntax-disarm$1 s_586)))" "(let-values(((orig-s_51) s_282))" "(let-values(((quote261_1 datum262_1)" "(let-values(((s_284)(if(syntax?$1 s_282)(syntax-e$1 s_282) s_282)))" "(if(pair? s_284)" -"(let-values(((quote263_0)(let-values(((s_585)(car s_284))) s_585))" +"(let-values(((quote263_0)(let-values(((s_587)(car s_284))) s_587))" "((datum264_0)" -"(let-values(((s_586)(cdr s_284)))" -"(let-values(((s_587)" -"(if(syntax?$1 s_586)" -"(syntax-e$1 s_586)" -" s_586)))" -"(if(pair? s_587)" +"(let-values(((s_588)(cdr s_284)))" +"(let-values(((s_589)" +"(if(syntax?$1 s_588)" +"(syntax-e$1 s_588)" +" s_588)))" +"(if(pair? s_589)" "(let-values(((datum265_0)" -"(let-values(((s_588)(car s_587))) s_588))" +"(let-values(((s_590)(car s_589))) s_590))" "(()" -"(let-values(((s_589)(cdr s_587)))" -"(let-values(((s_590)" -"(if(syntax?$1 s_589)" -"(syntax-e$1 s_589)" -" s_589)))" -"(if(null? s_590)" +"(let-values(((s_591)(cdr s_589)))" +"(let-values(((s_592)" +"(if(syntax?$1 s_591)" +"(syntax-e$1 s_591)" +" s_591)))" +"(if(null? s_592)" "(values)" "(raise-syntax-error$1" " #f" @@ -66752,41 +66827,41 @@ 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_86)" -"(parsed-quote14.1(keep-properties-only~ s_584)(syntax->datum$1 datum262_0))" -" s_584))))))" +"(if(expand-context-to-parsed? ctx_84)" +"(parsed-quote14.1(keep-properties-only~ s_586)(syntax->datum$1 datum262_0))" +" s_586))))))" "(void" "(add-core-form!*" " 'quote-syntax" -"(lambda(s_591 ctx_87)" +"(lambda(s_593 ctx_85)" "(let-values((()" "(begin" -"(let-values(((obs_106)(expand-context-observer ctx_87)))" +"(let-values(((obs_106)(expand-context-observer ctx_85)))" "(if obs_106" "(let-values()(let-values()(call-expand-observe obs_106 'prim-quote-syntax)))" "(void)))" "(values))))" -"(let-values(((disarmed-s_12)(syntax-disarm$1 s_591)))" +"(let-values(((disarmed-s_12)(syntax-disarm$1 s_593)))" "(let-values(((ok?_49 quote-syntax266_0 datum267_0)" "(let-values(((s_291) disarmed-s_12))" -"(if(let-values(((s_592)(if(syntax?$1 s_291)(syntax-e$1 s_291) s_291)))" -"(if(pair? s_592)" -"(if(let-values(((s_593)(car s_592))) #t)" -"(let-values(((s_594)(cdr s_592)))" -"(let-values(((s_292)(if(syntax?$1 s_594)(syntax-e$1 s_594) s_594)))" +"(if(let-values(((s_594)(if(syntax?$1 s_291)(syntax-e$1 s_291) s_291)))" +"(if(pair? s_594)" +"(if(let-values(((s_595)(car s_594))) #t)" +"(let-values(((s_596)(cdr s_594)))" +"(let-values(((s_292)(if(syntax?$1 s_596)(syntax-e$1 s_596) s_596)))" "(if(pair? s_292)" -"(if(let-values(((s_595)(car s_292))) #t)" -"(let-values(((s_596)(cdr s_292)))" -"(let-values(((s_293)(if(syntax?$1 s_596)(syntax-e$1 s_596) s_596)))" +"(if(let-values(((s_597)(car s_292))) #t)" +"(let-values(((s_598)(cdr s_292)))" +"(let-values(((s_293)(if(syntax?$1 s_598)(syntax-e$1 s_598) s_598)))" "(if(pair? s_293)" "(if(let-values(((s_294)(car s_293)))" "(let-values(((s_295)" "(if(syntax?$1 s_294)(syntax-e$1 s_294) s_294)))" "(eq? '#:local s_295)))" -"(let-values(((s_597)(cdr s_293)))" -"(let-values(((s_598)" -"(if(syntax?$1 s_597)(syntax-e$1 s_597) s_597)))" -"(null? s_598)))" +"(let-values(((s_599)(cdr s_293)))" +"(let-values(((s_600)" +"(if(syntax?$1 s_599)(syntax-e$1 s_599) s_599)))" +"(null? s_600)))" " #f)" " #f)))" " #f)" @@ -66795,44 +66870,44 @@ static const char *startup_source = " #f))" "(let-values()" "(let-values(((quote-syntax266_1 datum267_1)" -"(let-values(((s_599)(if(syntax?$1 s_291)(syntax-e$1 s_291) s_291)))" +"(let-values(((s_601)(if(syntax?$1 s_291)(syntax-e$1 s_291) s_291)))" "(let-values(((quote-syntax268_0)" -"(let-values(((s_600)(car s_599))) s_600))" +"(let-values(((s_602)(car s_601))) s_602))" "((datum269_0)" -"(let-values(((s_601)(cdr s_599)))" -"(let-values(((s_602)" -"(if(syntax?$1 s_601)" -"(syntax-e$1 s_601)" -" s_601)))" +"(let-values(((s_603)(cdr s_601)))" +"(let-values(((s_604)" +"(if(syntax?$1 s_603)" +"(syntax-e$1 s_603)" +" s_603)))" "(let-values(((datum270_0)" -"(let-values(((s_603)(car s_602))) s_603))" +"(let-values(((s_605)(car s_604))) s_605))" "(()" -"(let-values(((s_604)(cdr s_602)))" -"(let-values(((s_605)" -"(if(syntax?$1 s_604)" -"(syntax-e$1 s_604)" -" s_604)))" -"(let-values((()" -"(let-values(((s_606)" -"(car" -" s_605)))" +"(let-values(((s_606)(cdr s_604)))" "(let-values(((s_607)" -"(if(syntax?$1" -" s_606)" -"(syntax-e$1" -" s_606)" +"(if(syntax?$1 s_606)" +"(syntax-e$1 s_606)" " s_606)))" -"(values))))" -"(()" +"(let-values((()" "(let-values(((s_608)" -"(cdr" -" s_605)))" +"(car" +" s_607)))" "(let-values(((s_609)" "(if(syntax?$1" " s_608)" "(syntax-e$1" " s_608)" " s_608)))" +"(values))))" +"(()" +"(let-values(((s_610)" +"(cdr" +" s_607)))" +"(let-values(((s_611)" +"(if(syntax?$1" +" s_610)" +"(syntax-e$1" +" s_610)" +" s_610)))" "(values)))))" "(values))))))" "(values datum270_0))))))" @@ -66840,26 +66915,26 @@ static const char *startup_source = "(values #t quote-syntax266_1 datum267_1)))" "(values #f #f #f)))))" "(let-values(((ok?_50 quote-syntax271_0 datum272_0)" -"(let-values(((s_610) disarmed-s_12))" +"(let-values(((s_612) disarmed-s_12))" "(if(if(not ok?_49) #t #f)" -"(let-values(((orig-s_52) s_610))" +"(let-values(((orig-s_52) s_612))" "(let-values(((quote-syntax271_1 datum272_1)" -"(let-values(((s_611)(if(syntax?$1 s_610)(syntax-e$1 s_610) s_610)))" -"(if(pair? s_611)" -"(let-values(((quote-syntax273_0)" -"(let-values(((s_297)(car s_611))) s_297))" -"((datum274_0)" -"(let-values(((s_612)(cdr s_611)))" -"(let-values(((s_613)" -"(if(syntax?$1 s_612)" -"(syntax-e$1 s_612)" -" s_612)))" +"(let-values(((s_613)(if(syntax?$1 s_612)(syntax-e$1 s_612) s_612)))" "(if(pair? s_613)" +"(let-values(((quote-syntax273_0)" +"(let-values(((s_297)(car s_613))) s_297))" +"((datum274_0)" +"(let-values(((s_614)(cdr s_613)))" +"(let-values(((s_615)" +"(if(syntax?$1 s_614)" +"(syntax-e$1 s_614)" +" s_614)))" +"(if(pair? s_615)" "(let-values(((datum275_0)" -"(let-values(((s_298)(car s_613)))" +"(let-values(((s_298)(car s_615)))" " s_298))" "(()" -"(let-values(((s_299)(cdr s_613)))" +"(let-values(((s_299)(cdr s_615)))" "(let-values(((s_300)" "(if(syntax?$1 s_299)" "(syntax-e$1 s_299)" @@ -66883,55 +66958,55 @@ static const char *startup_source = "(let-values()" "(let-values((()" "(begin" -"(reference-records-all-used!(expand-context-reference-records ctx_87))" +"(reference-records-all-used!(expand-context-reference-records ctx_85))" "(values))))" "(let-values(((ok?_51 _276_0 _277_0 kw278_0)" -"(let-values(((s_614) disarmed-s_12))" -"(let-values(((orig-s_53) s_614))" +"(let-values(((s_616) disarmed-s_12))" +"(let-values(((orig-s_53) s_616))" "(let-values(((_276_1 _277_1 kw278_1)" -"(let-values(((s_615)" -"(if(syntax?$1 s_614)(syntax-e$1 s_614) s_614)))" -"(if(pair? s_615)" +"(let-values(((s_617)" +"(if(syntax?$1 s_616)(syntax-e$1 s_616) s_616)))" +"(if(pair? s_617)" "(let-values(((_279_0)" -"(let-values(((s_616)(car s_615))) s_616))" +"(let-values(((s_618)(car s_617))) s_618))" "((_280_0 kw281_0)" -"(let-values(((s_617)(cdr s_615)))" -"(let-values(((s_618)" -"(if(syntax?$1 s_617)" -"(syntax-e$1 s_617)" -" s_617)))" -"(if(pair? s_618)" -"(let-values(((_282_0)" -"(let-values(((s_619)" -"(car s_618)))" -" s_619))" -"((kw283_0)" +"(let-values(((s_619)(cdr s_617)))" "(let-values(((s_620)" -"(cdr s_618)))" +"(if(syntax?$1 s_619)" +"(syntax-e$1 s_619)" +" s_619)))" +"(if(pair? s_620)" +"(let-values(((_282_0)" "(let-values(((s_621)" -"(if(syntax?$1" -" s_620)" -"(syntax-e$1" -" s_620)" -" s_620)))" -"(if(pair? s_621)" -"(let-values(((kw284_0)" +"(car s_620)))" +" s_621))" +"((kw283_0)" "(let-values(((s_622)" -"(car" -" s_621)))" -" s_622))" -"(()" +"(cdr s_620)))" "(let-values(((s_623)" -"(cdr" -" s_621)))" -"(let-values(((s_624)" "(if(syntax?$1" -" s_623)" +" s_622)" "(syntax-e$1" -" s_623)" +" s_622)" +" s_622)))" +"(if(pair? s_623)" +"(let-values(((kw284_0)" +"(let-values(((s_624)" +"(car" " s_623)))" +" s_624))" +"(()" +"(let-values(((s_625)" +"(cdr" +" s_623)))" +"(let-values(((s_626)" +"(if(syntax?$1" +" s_625)" +"(syntax-e$1" +" s_625)" +" s_625)))" "(if(null?" -" s_624)" +" s_626)" "(values)" "(raise-syntax-error$1" " #f" @@ -66950,47 +67025,47 @@ 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_87)" -"(parsed-quote-syntax15.1(keep-properties-only~ s_591) datum267_0)" -"(let-values(((s285_0) s_591)((temp286_0)(list quote-syntax266_0 datum267_0 kw278_0)))" +"(if(expand-context-to-parsed? ctx_85)" +"(parsed-quote-syntax15.1(keep-properties-only~ s_593) datum267_0)" +"(let-values(((s285_0) s_593)((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_87)))" +"(let-values(((use-site-scopes_2)(root-expand-context-use-site-scopes ctx_85)))" "(let-values(((datum-s_0)" "(remove-scopes" -"(remove-scopes datum272_0(expand-context-scopes ctx_87))" +"(remove-scopes datum272_0(expand-context-scopes ctx_85))" "(if use-site-scopes_2(unbox use-site-scopes_2) '()))))" -"(if(if(expand-context-to-parsed? ctx_87)(free-id-set-empty?(expand-context-stops ctx_87)) #f)" -"(parsed-quote-syntax15.1(keep-properties-only~ s_591) datum-s_0)" -"(let-values(((s287_0) s_591)((temp288_0)(list quote-syntax271_0 datum-s_0)))" +"(if(if(expand-context-to-parsed? ctx_85)(free-id-set-empty?(expand-context-stops ctx_85)) #f)" +"(parsed-quote-syntax15.1(keep-properties-only~ s_593) datum-s_0)" +"(let-values(((s287_0) s_593)((temp288_0)(list quote-syntax271_0 datum-s_0)))" "(rebuild5.1 #t s287_0 temp288_0))))))))))))))" "(void" "(add-core-form!*" " 'if" -"(lambda(s_625 ctx_88)" +"(lambda(s_627 ctx_86)" "(let-values((()" "(begin" -"(let-values(((obs_107)(expand-context-observer ctx_88)))" +"(let-values(((obs_107)(expand-context-observer ctx_86)))" "(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_625)))" +"(let-values(((disarmed-s_13)(syntax-disarm$1 s_627)))" "(let-values(((ok?_52 _289_0 _290_0 _291_0)" -"(let-values(((s_626) disarmed-s_13))" -"(if(let-values(((s_627)(if(syntax?$1 s_626)(syntax-e$1 s_626) s_626)))" -"(if(pair? s_627)" -"(if(let-values(((s_628)(car s_627))) #t)" -"(let-values(((s_629)(cdr s_627)))" -"(let-values(((s_630)(if(syntax?$1 s_629)(syntax-e$1 s_629) s_629)))" -"(if(pair? s_630)" -"(if(let-values(((s_631)(car s_630))) #t)" -"(let-values(((s_632)(cdr s_630)))" -"(let-values(((s_633)(if(syntax?$1 s_632)(syntax-e$1 s_632) s_632)))" -"(if(pair? s_633)" -"(if(let-values(((s_634)(car s_633))) #t)" -"(let-values(((s_635)(cdr s_633)))" -"(let-values(((s_636)" -"(if(syntax?$1 s_635)(syntax-e$1 s_635) s_635)))" -"(null? s_636)))" +"(let-values(((s_628) disarmed-s_13))" +"(if(let-values(((s_629)(if(syntax?$1 s_628)(syntax-e$1 s_628) s_628)))" +"(if(pair? s_629)" +"(if(let-values(((s_630)(car s_629))) #t)" +"(let-values(((s_631)(cdr s_629)))" +"(let-values(((s_632)(if(syntax?$1 s_631)(syntax-e$1 s_631) s_631)))" +"(if(pair? s_632)" +"(if(let-values(((s_633)(car s_632))) #t)" +"(let-values(((s_634)(cdr s_632)))" +"(let-values(((s_635)(if(syntax?$1 s_634)(syntax-e$1 s_634) s_634)))" +"(if(pair? s_635)" +"(if(let-values(((s_636)(car s_635))) #t)" +"(let-values(((s_637)(cdr s_635)))" +"(let-values(((s_638)" +"(if(syntax?$1 s_637)(syntax-e$1 s_637) s_637)))" +"(null? s_638)))" " #f)" " #f)))" " #f)" @@ -66999,37 +67074,37 @@ static const char *startup_source = " #f))" "(let-values()" "(let-values(((_289_1 _290_1 _291_1)" -"(let-values(((s_637)(if(syntax?$1 s_626)(syntax-e$1 s_626) s_626)))" -"(let-values(((_292_0)(let-values(((s_638)(car s_637))) s_638))" +"(let-values(((s_639)(if(syntax?$1 s_628)(syntax-e$1 s_628) s_628)))" +"(let-values(((_292_0)(let-values(((s_640)(car s_639))) s_640))" "((_293_0 _294_0)" -"(let-values(((s_639)(cdr s_637)))" -"(let-values(((s_640)" -"(if(syntax?$1 s_639)" -"(syntax-e$1 s_639)" -" s_639)))" +"(let-values(((s_641)(cdr s_639)))" +"(let-values(((s_642)" +"(if(syntax?$1 s_641)" +"(syntax-e$1 s_641)" +" s_641)))" "(let-values(((_295_0)" -"(let-values(((s_641)(car s_640))) s_641))" +"(let-values(((s_643)(car s_642))) s_643))" "((_296_0)" -"(let-values(((s_642)(cdr s_640)))" -"(let-values(((s_643)" -"(if(syntax?$1 s_642)" -"(syntax-e$1 s_642)" -" s_642)))" -"(let-values(((_297_0)" -"(let-values(((s_644)" -"(car" -" s_643)))" -" s_644))" -"(()" +"(let-values(((s_644)(cdr s_642)))" "(let-values(((s_645)" -"(cdr" -" s_643)))" +"(if(syntax?$1 s_644)" +"(syntax-e$1 s_644)" +" s_644)))" +"(let-values(((_297_0)" "(let-values(((s_646)" -"(if(syntax?$1" -" s_645)" -"(syntax-e$1" -" s_645)" +"(car" " s_645)))" +" s_646))" +"(()" +"(let-values(((s_647)" +"(cdr" +" s_645)))" +"(let-values(((s_648)" +"(if(syntax?$1" +" s_647)" +"(syntax-e$1" +" s_647)" +" s_647)))" "(values)))))" "(values _297_0))))))" "(values _295_0 _296_0))))))" @@ -67039,67 +67114,67 @@ static const char *startup_source = "(let-values((()" "(begin" "(if ok?_52" -" (let-values () (raise-syntax-error$1 #f \"missing an \\\"else\\\" expression\" s_625))" +" (let-values () (raise-syntax-error$1 #f \"missing an \\\"else\\\" expression\" s_627))" "(void))" "(values))))" "(let-values(((ok?_53 if298_0 tst299_0 thn300_0 els301_0)" -"(let-values(((s_647) disarmed-s_13))" -"(let-values(((orig-s_54) s_647))" +"(let-values(((s_649) disarmed-s_13))" +"(let-values(((orig-s_54) s_649))" "(let-values(((if298_1 tst299_1 thn300_1 els301_1)" -"(let-values(((s_648)(if(syntax?$1 s_647)(syntax-e$1 s_647) s_647)))" -"(if(pair? s_648)" -"(let-values(((if302_0)(let-values(((s_649)(car s_648))) s_649))" +"(let-values(((s_650)(if(syntax?$1 s_649)(syntax-e$1 s_649) s_649)))" +"(if(pair? s_650)" +"(let-values(((if302_0)(let-values(((s_651)(car s_650))) s_651))" "((tst303_0 thn304_0 els305_0)" -"(let-values(((s_650)(cdr s_648)))" -"(let-values(((s_651)" -"(if(syntax?$1 s_650)" -"(syntax-e$1 s_650)" -" s_650)))" -"(if(pair? s_651)" +"(let-values(((s_652)(cdr s_650)))" +"(let-values(((s_653)" +"(if(syntax?$1 s_652)" +"(syntax-e$1 s_652)" +" s_652)))" +"(if(pair? s_653)" "(let-values(((tst306_0)" -"(let-values(((s_652)(car s_651)))" -" s_652))" +"(let-values(((s_654)(car s_653)))" +" s_654))" "((thn307_0 els308_0)" -"(let-values(((s_653)(cdr s_651)))" -"(let-values(((s_654)" -"(if(syntax?$1 s_653)" -"(syntax-e$1 s_653)" -" s_653)))" -"(if(pair? s_654)" -"(let-values(((thn309_0)" -"(let-values(((s_655)" -"(car" -" s_654)))" -" s_655))" -"((els310_0)" +"(let-values(((s_655)(cdr s_653)))" "(let-values(((s_656)" -"(cdr" -" s_654)))" +"(if(syntax?$1 s_655)" +"(syntax-e$1 s_655)" +" s_655)))" +"(if(pair? s_656)" +"(let-values(((thn309_0)" "(let-values(((s_657)" -"(if(syntax?$1" -" s_656)" -"(syntax-e$1" -" s_656)" -" s_656)))" -"(if(pair?" -" s_657)" -"(let-values(((els311_0)" -"(let-values(((s_658)" "(car" -" s_657)))" -" s_658))" -"(()" -"(let-values(((s_659)" +" s_656)))" +" s_657))" +"((els310_0)" +"(let-values(((s_658)" "(cdr" -" s_657)))" -"(let-values(((s_660)" +" s_656)))" +"(let-values(((s_659)" "(if(syntax?$1" -" s_659)" +" s_658)" "(syntax-e$1" +" s_658)" +" s_658)))" +"(if(pair?" " s_659)" +"(let-values(((els311_0)" +"(let-values(((s_660)" +"(car" " s_659)))" +" s_660))" +"(()" +"(let-values(((s_661)" +"(cdr" +" s_659)))" +"(let-values(((s_662)" +"(if(syntax?$1" +" s_661)" +"(syntax-e$1" +" s_661)" +" s_661)))" "(if(null?" -" s_660)" +" s_662)" "(values)" "(raise-syntax-error$1" " #f" @@ -67124,19 +67199,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_88)))" +"(let-values(((expr-ctx_2)(as-expression-context ctx_86)))" "(let-values(((tail-ctx_0)" -"(let-values(((expr-ctx312_0) expr-ctx_2)((ctx313_0) ctx_88))" +"(let-values(((expr-ctx312_0) expr-ctx_2)((ctx313_0) ctx_86))" "(as-tail-context22.1 ctx313_0 expr-ctx312_0))))" "(let-values(((rebuild-s_9)" -"(let-values(((ctx314_0) ctx_88)((s315_0) s_625))" +"(let-values(((ctx314_0) ctx_86)((s315_0) s_627))" "(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_88)))" +"(let-values(((obs_108)(expand-context-observer ctx_86)))" "(if obs_108" "(let-values()(let-values()(call-expand-observe obs_108 'next)))" "(void)))" @@ -67146,7 +67221,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_88)))" +"(let-values(((obs_109)(expand-context-observer ctx_86)))" "(if obs_109" "(let-values()(let-values()(call-expand-observe obs_109 'next)))" "(void)))" @@ -67154,7 +67229,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_88)" +"(if(expand-context-to-parsed? ctx_86)" "(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)))" @@ -67162,73 +67237,73 @@ static const char *startup_source = "(void" "(add-core-form!*" " 'with-continuation-mark" -"(lambda(s_661 ctx_89)" +"(lambda(s_663 ctx_87)" "(let-values((()" "(begin" -"(let-values(((obs_110)(expand-context-observer ctx_89)))" +"(let-values(((obs_110)(expand-context-observer ctx_87)))" "(if obs_110" "(let-values()(let-values()(call-expand-observe obs_110 'prim-with-continuation-mark)))" "(void)))" "(values))))" -"(let-values(((disarmed-s_14)(syntax-disarm$1 s_661)))" +"(let-values(((disarmed-s_14)(syntax-disarm$1 s_663)))" "(let-values(((ok?_54 with-continuation-mark324_0 key325_0 val326_0 body327_0)" -"(let-values(((s_662) disarmed-s_14))" -"(let-values(((orig-s_55) s_662))" +"(let-values(((s_664) disarmed-s_14))" +"(let-values(((orig-s_55) s_664))" "(let-values(((with-continuation-mark324_1 key325_1 val326_1 body327_1)" -"(let-values(((s_663)(if(syntax?$1 s_662)(syntax-e$1 s_662) s_662)))" -"(if(pair? s_663)" +"(let-values(((s_665)(if(syntax?$1 s_664)(syntax-e$1 s_664) s_664)))" +"(if(pair? s_665)" "(let-values(((with-continuation-mark328_0)" -"(let-values(((s_664)(car s_663))) s_664))" +"(let-values(((s_666)(car s_665))) s_666))" "((key329_0 val330_0 body331_0)" -"(let-values(((s_665)(cdr s_663)))" -"(let-values(((s_666)" -"(if(syntax?$1 s_665)" -"(syntax-e$1 s_665)" -" s_665)))" -"(if(pair? s_666)" +"(let-values(((s_667)(cdr s_665)))" +"(let-values(((s_668)" +"(if(syntax?$1 s_667)" +"(syntax-e$1 s_667)" +" s_667)))" +"(if(pair? s_668)" "(let-values(((key332_0)" -"(let-values(((s_667)(car s_666)))" -" s_667))" +"(let-values(((s_669)(car s_668)))" +" s_669))" "((val333_0 body334_0)" -"(let-values(((s_668)(cdr s_666)))" -"(let-values(((s_669)" -"(if(syntax?$1 s_668)" -"(syntax-e$1 s_668)" -" s_668)))" -"(if(pair? s_669)" -"(let-values(((val335_0)" -"(let-values(((s_670)" -"(car" -" s_669)))" -" s_670))" -"((body336_0)" +"(let-values(((s_670)(cdr s_668)))" "(let-values(((s_671)" -"(cdr" -" s_669)))" +"(if(syntax?$1 s_670)" +"(syntax-e$1 s_670)" +" s_670)))" +"(if(pair? s_671)" +"(let-values(((val335_0)" "(let-values(((s_672)" -"(if(syntax?$1" -" s_671)" -"(syntax-e$1" -" s_671)" -" s_671)))" -"(if(pair? s_672)" -"(let-values(((body337_0)" -"(let-values(((s_673)" "(car" -" s_672)))" -" s_673))" -"(()" -"(let-values(((s_674)" +" s_671)))" +" s_672))" +"((body336_0)" +"(let-values(((s_673)" "(cdr" -" s_672)))" -"(let-values(((s_675)" +" s_671)))" +"(let-values(((s_674)" "(if(syntax?$1" -" s_674)" +" s_673)" "(syntax-e$1" -" s_674)" +" s_673)" +" s_673)))" +"(if(pair? s_674)" +"(let-values(((body337_0)" +"(let-values(((s_675)" +"(car" " s_674)))" +" s_675))" +"(()" +"(let-values(((s_676)" +"(cdr" +" s_674)))" +"(let-values(((s_677)" +"(if(syntax?$1" +" s_676)" +"(syntax-e$1" +" s_676)" +" s_676)))" "(if(null?" -" s_675)" +" s_677)" "(values)" "(raise-syntax-error$1" " #f" @@ -67250,16 +67325,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_89)))" +"(let-values(((expr-ctx_3)(as-expression-context ctx_87)))" "(let-values(((rebuild-s_10)" -"(let-values(((ctx338_0) ctx_89)((s339_0) s_661))" +"(let-values(((ctx338_0) ctx_87)((s339_0) s_663))" "(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_89)))" +"(let-values(((obs_111)(expand-context-observer ctx_87)))" "(if obs_111" "(let-values()(let-values()(call-expand-observe obs_111 'next)))" "(void)))" @@ -67269,7 +67344,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_89)))" +"(let-values(((obs_112)(expand-context-observer ctx_87)))" "(if obs_112" "(let-values()(let-values()(call-expand-observe obs_112 'next)))" "(void)))" @@ -67277,10 +67352,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_89))" +"(let-values(((expr-ctx346_0) expr-ctx_3)((ctx347_0) ctx_87))" "(as-tail-context22.1 ctx347_0 expr-ctx346_0))))" "(expand9.1 #f #f #f temp344_0 temp345_0))))" -"(if(expand-context-to-parsed? ctx_89)" +"(if(expand-context-to-parsed? ctx_87)" "(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)))" @@ -67295,32 +67370,32 @@ 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_676 ctx_90)" +"(lambda(s_678 ctx_88)" "(let-values((()" "(begin" -"(let-values(((obs_113)(expand-context-observer ctx_90)))" +"(let-values(((obs_113)(expand-context-observer ctx_88)))" "(if obs_113" "(let-values()(let-values()(call-expand-observe obs_113 log-tag_1)))" "(void)))" "(values))))" -"(let-values(((disarmed-s_15)(syntax-disarm$1 s_676)))" +"(let-values(((disarmed-s_15)(syntax-disarm$1 s_678)))" "(let-values(((ok?_55 begin350_0 e351_0)" -"(let-values(((s_677) disarmed-s_15))" -"(let-values(((orig-s_56) s_677))" +"(let-values(((s_679) disarmed-s_15))" +"(let-values(((orig-s_56) s_679))" "(let-values(((begin350_1 e351_1)" -"(let-values(((s_678)" -"(if(syntax?$1 s_677)(syntax-e$1 s_677) s_677)))" -"(if(pair? s_678)" +"(let-values(((s_680)" +"(if(syntax?$1 s_679)(syntax-e$1 s_679) s_679)))" +"(if(pair? s_680)" "(let-values(((begin352_0)" -"(let-values(((s_679)(car s_678))) s_679))" +"(let-values(((s_681)(car s_680))) s_681))" "((e353_0)" -"(let-values(((s_680)(cdr s_678)))" -"(let-values(((s_681)" -"(if(syntax?$1 s_680)" -"(syntax-e$1 s_680)" -" s_680)))" +"(let-values(((s_682)(cdr s_680)))" +"(let-values(((s_683)" +"(if(syntax?$1 s_682)" +"(syntax-e$1 s_682)" +" s_682)))" "(let-values(((flat-s_45)" -"(to-syntax-list.1 s_681)))" +"(to-syntax-list.1 s_683)))" "(if(not flat-s_45)" "(let-values()" "(raise-syntax-error$1" @@ -67339,10 +67414,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_90)" -"(as-expression-context ctx_90))))" +"(as-begin-expression-context ctx_88)" +"(as-expression-context ctx_88))))" "(let-values(((rebuild-s_11)" -"(let-values(((ctx354_0) ctx_90)((s355_0) s_676))" +"(let-values(((ctx354_0) ctx_88)((s355_0) s_678))" "(keep-as-needed119.1 #f #f #f ctx354_0 s355_0))))" "(let-values(((exp-es_2)" "((letrec-values(((loop_124)" @@ -67353,7 +67428,7 @@ static const char *startup_source = "(if(zero? index_6)" "(let-values()" "(let-values(((obs_114)" -"(expand-context-observer ctx_90)))" +"(expand-context-observer ctx_88)))" "(if obs_114" "(let-values()" "(begin" @@ -67374,7 +67449,7 @@ static const char *startup_source = "(begin" "(let-values(((obs_115)" "(expand-context-observer" -" ctx_90)))" +" ctx_88)))" "(if obs_115" "(let-values()" "(let-values()" @@ -67389,7 +67464,7 @@ static const char *startup_source = "(let-values(((expr-ctx358_0)" " expr-ctx_4)" "((ctx359_0)" -" ctx_90))" +" ctx_88))" "(as-tail-context22.1" " ctx359_0" " expr-ctx358_0))" @@ -67400,7 +67475,7 @@ static const char *startup_source = " e351_0" " list-start-index_0)))" "(begin" -"(let-values(((obs_116)(expand-context-observer ctx_90)))" +"(let-values(((obs_116)(expand-context-observer ctx_88)))" "(if obs_116" "(let-values()" "(let-values()" @@ -67409,7 +67484,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_90)" +"(if(expand-context-to-parsed? ctx_88)" "(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)))))))))))))))))))" @@ -67422,39 +67497,39 @@ 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_682 ctx_91)" -"(let-values(((context_25)(expand-context-context ctx_91)))" -"(if(let-values(((or-part_382)(eq? context_25 'top-level)))" -"(if or-part_382 or-part_382(eq? context_25 'module)))" +"(lambda(s_684 ctx_89)" +"(let-values(((context_25)(expand-context-context ctx_89)))" +"(if(let-values(((or-part_383)(eq? context_25 'top-level)))" +"(if or-part_383 or-part_383(eq? context_25 'module)))" "(let-values()" -"(let-values(((disarmed-s_16)(syntax-disarm$1 s_682)))" +"(let-values(((disarmed-s_16)(syntax-disarm$1 s_684)))" "(let-values(((ok?_56 begin366_0)" -"(let-values(((s_683) disarmed-s_16))" -"(if(let-values(((s_684)(if(syntax?$1 s_683)(syntax-e$1 s_683) s_683)))" -"(if(pair? s_684)" -"(if(let-values(((s_685)(car s_684))) #t)" -"(let-values(((s_686)(cdr s_684)))" -"(let-values(((s_687)(if(syntax?$1 s_686)(syntax-e$1 s_686) s_686)))" -"(null? s_687)))" +"(let-values(((s_685) disarmed-s_16))" +"(if(let-values(((s_686)(if(syntax?$1 s_685)(syntax-e$1 s_685) s_685)))" +"(if(pair? s_686)" +"(if(let-values(((s_687)(car s_686))) #t)" +"(let-values(((s_688)(cdr s_686)))" +"(let-values(((s_689)(if(syntax?$1 s_688)(syntax-e$1 s_688) s_688)))" +"(null? s_689)))" " #f)" " #f))" "(let-values()" "(let-values(((begin366_1)" -"(let-values(((s_688)(if(syntax?$1 s_683)(syntax-e$1 s_683) s_683)))" +"(let-values(((s_690)(if(syntax?$1 s_685)(syntax-e$1 s_685) s_685)))" "(let-values(((begin367_0)" -"(let-values(((s_689)(car s_688))) s_689))" +"(let-values(((s_691)(car s_690))) s_691))" "(()" -"(let-values(((s_690)(cdr s_688)))" -"(let-values(((s_691)" -"(if(syntax?$1 s_690)" -"(syntax-e$1 s_690)" -" s_690)))" +"(let-values(((s_692)(cdr s_690)))" +"(let-values(((s_693)" +"(if(syntax?$1 s_692)" +"(syntax-e$1 s_692)" +" s_692)))" "(values)))))" "(values begin367_0)))))" "(values #t begin366_1)))" "(values #f #f)))))" -"(if ok?_56 s_682(nonempty-begin_0 s_682 ctx_91)))))" -"(let-values()(nonempty-begin_0 s_682 ctx_91))))))))" +"(if ok?_56 s_684(nonempty-begin_0 s_684 ctx_89)))))" +"(let-values()(nonempty-begin_0 s_684 ctx_89))))))))" "(void" "(add-core-form!*" " 'begin0" @@ -67462,15 +67537,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_92)" +"(lambda(id_119 ctx_90)" "(begin" -"(if(if(expand-context-need-eventually-defined ctx_92)(>=(expand-context-phase ctx_92) 1) #f)" +"(if(if(expand-context-need-eventually-defined ctx_90)(>=(expand-context-phase ctx_90) 1) #f)" "(let-values()" "(begin" "(hash-update!" -"(expand-context-need-eventually-defined ctx_92)" -"(expand-context-phase ctx_92)" -"(lambda(l_87)(cons id_121 l_87))" +"(expand-context-need-eventually-defined ctx_90)" +"(expand-context-phase ctx_90)" +"(lambda(l_87)(cons id_119 l_87))" " null)" " #t))" "(let-values() #f)))))" @@ -67481,58 +67556,58 @@ static const char *startup_source = "(lambda(s373_0 ctx374_0 implicit-omitted?372_0)" "(begin" " 'core375" -"(let-values(((s_692) s373_0))" -"(let-values(((ctx_93) ctx374_0))" +"(let-values(((s_694) s373_0))" +"(let-values(((ctx_91) ctx374_0))" "(let-values(((implicit-omitted?_0) implicit-omitted?372_0))" "(let-values()" "(let-values((()" "(begin" -"(let-values(((obs_117)(expand-context-observer ctx_93)))" +"(let-values(((obs_117)(expand-context-observer ctx_91)))" "(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_692)))" -"(let-values(((id_122)" +"(let-values(((disarmed-s_17)(syntax-disarm$1 s_694)))" +"(let-values(((id_120)" "(if implicit-omitted?_0" -"(let-values() s_692)" +"(let-values() s_694)" "(let-values()" "(let-values(((ok?_57 #%top377_0 id378_0)" -"(let-values(((s_693) disarmed-s_17))" -"(let-values(((orig-s_57) s_693))" +"(let-values(((s_695) disarmed-s_17))" +"(let-values(((orig-s_57) s_695))" "(let-values(((#%top377_1 id378_1)" -"(let-values(((s_694)" -"(if(syntax?$1 s_693)" -"(syntax-e$1 s_693)" -" s_693)))" -"(if(pair? s_694)" -"(let-values(((#%top379_0)" -"(let-values(((s_695)" -"(car" -" s_694)))" -" s_695))" -"((id380_0)" "(let-values(((s_696)" +"(if(syntax?$1 s_695)" +"(syntax-e$1 s_695)" +" s_695)))" +"(if(pair? s_696)" +"(let-values(((#%top379_0)" +"(let-values(((s_697)" +"(car" +" s_696)))" +" s_697))" +"((id380_0)" +"(let-values(((s_698)" "(cdr" -" s_694)))" -"(if(let-values(((or-part_383)" +" s_696)))" +"(if(let-values(((or-part_384)" "(if(syntax?$1" -" s_696)" +" s_698)" "(symbol?" "(syntax-e$1" -" s_696))" +" s_698))" " #f)))" -"(if or-part_383" -" or-part_383" +"(if or-part_384" +" or-part_384" "(symbol?" -" s_696)))" -" s_696" +" s_698)))" +" s_698" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_57" -" s_696)))))" +" s_698)))))" "(values #%top379_0 id380_0))" "(raise-syntax-error$1" " #f" @@ -67541,8 +67616,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_93))" +"(let-values(((id381_0) id_120)" +"((temp382_0)(expand-context-phase ctx_91))" "((temp383_0) 'ambiguous))" "(resolve+shift28.1" " temp383_0" @@ -67553,87 +67628,87 @@ static const char *startup_source = " id381_0" " temp382_0))))" "(if(eq? b_93 'ambiguous)" -"(let-values()(raise-ambiguous-error id_122 ctx_93))" +"(let-values()(raise-ambiguous-error id_120 ctx_91))" "(if(if b_93" "(if(module-binding? b_93)" -"(eq?(module-binding-module b_93)(root-expand-context-self-mpi ctx_93))" +"(eq?(module-binding-module b_93)(root-expand-context-self-mpi ctx_91))" " #f)" " #f)" "(let-values()" -"(if(expand-context-to-parsed? ctx_93)" -"(parsed-id2.1 id_122 b_93 #f)" +"(if(expand-context-to-parsed? ctx_91)" +"(parsed-id2.1 id_120 b_93 #f)" "(if(top-level-module-path-index?(module-binding-module b_93))" -"(let-values() s_692)" -"(let-values() id_122))))" -"(if(register-eventual-variable!? id_122 ctx_93)" +"(let-values() s_694)" +"(let-values() id_120))))" +"(if(register-eventual-variable!? id_120 ctx_91)" "(let-values()" -"(if(expand-context-to-parsed? ctx_93)" -"(parsed-id2.1 id_122 b_93 #f)" -" id_122))" +"(if(expand-context-to-parsed? ctx_91)" +"(parsed-id2.1 id_120 b_93 #f)" +" id_120))" "(let-values()" -"(if(not(expand-context-allow-unbound? ctx_93))" +"(if(not(expand-context-allow-unbound? ctx_91))" "(let-values()" "(raise-unbound-syntax-error" " #f" " \"unbound identifier\"" -" id_122" +" id_120" " #f" " null" -"(syntax-debug-info-string id_122 ctx_93)))" +"(syntax-debug-info-string id_120 ctx_91)))" "(let-values()" "(let-values(((tl-id_1)" "(add-scope" -" id_122" -"(root-expand-context-top-level-bind-scope ctx_93))))" +" id_120" +"(root-expand-context-top-level-bind-scope ctx_91))))" "(let-values(((tl-b_1)" "(let-values(((tl-id384_0) tl-id_1)" "((temp385_0)" -"(expand-context-phase ctx_93)))" +"(expand-context-phase ctx_91)))" "(resolve40.1 #f #f null #f tl-id384_0 temp385_0))))" "(if tl-b_1" "(let-values()" -"(if(expand-context-to-parsed? ctx_93)" +"(if(expand-context-to-parsed? ctx_91)" "(parsed-top-id4.1 tl-id_1 tl-b_1 #f)" "(if implicit-omitted?_0" -"(let-values() id_122)" +"(let-values() id_120)" "(let-values()" "(let-values(((ok?_58 #%top386_0 id387_0)" -"(let-values(((s_697) disarmed-s_17))" -"(let-values(((orig-s_58) s_697))" +"(let-values(((s_699) disarmed-s_17))" +"(let-values(((orig-s_58) s_699))" "(let-values(((#%top386_1 id387_1)" -"(let-values(((s_698)" -"(if(syntax?$1" -" s_697)" -"(syntax-e$1" -" s_697)" -" s_697)))" -"(if(pair? s_698)" -"(let-values(((#%top388_0)" -"(let-values(((s_699)" -"(car" -" s_698)))" -" s_699))" -"((id389_0)" "(let-values(((s_700)" -"(cdr" -" s_698)))" -"(if(let-values(((or-part_384)" "(if(syntax?$1" -" s_700)" +" s_699)" +"(syntax-e$1" +" s_699)" +" s_699)))" +"(if(pair? s_700)" +"(let-values(((#%top388_0)" +"(let-values(((s_701)" +"(car" +" s_700)))" +" s_701))" +"((id389_0)" +"(let-values(((s_702)" +"(cdr" +" s_700)))" +"(if(let-values(((or-part_385)" +"(if(syntax?$1" +" s_702)" "(symbol?" "(syntax-e$1" -" s_700))" +" s_702))" " #f)))" -"(if or-part_384" -" or-part_384" +"(if or-part_385" +" or-part_385" "(symbol?" -" s_700)))" -" s_700" +" s_702)))" +" s_702" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_58" -" s_700)))))" +" s_702)))))" "(values" " #%top388_0" " id389_0))" @@ -67642,80 +67717,80 @@ static const char *startup_source = " \"bad syntax\"" " orig-s_58)))))" "(values #t #%top386_1 id387_1))))))" -"(let-values(((s390_0) s_692)" -"((temp391_0)(cons #%top386_0 id_122)))" +"(let-values(((s390_0) s_694)" +"((temp391_0)(cons #%top386_0 id_120)))" "(rebuild5.1 #t s390_0 temp391_0)))))))" "(let-values()" -"(if(expand-context-to-parsed? ctx_93)" -"(parsed-top-id4.1 id_122 b_93 #f)" -" s_692)))))))))))))))))))))))" +"(if(expand-context-to-parsed? ctx_91)" +"(parsed-top-id4.1 id_120 b_93 #f)" +" s_694)))))))))))))))))))))))" "(case-lambda" -"((s_701 ctx_94)(core375_0 s_701 ctx_94 #f))" -"((s_702 ctx_95 implicit-omitted?372_1)(core375_0 s_702 ctx_95 implicit-omitted?372_1))))))" +"((s_703 ctx_92)(core375_0 s_703 ctx_92 #f))" +"((s_704 ctx_93 implicit-omitted?372_1)(core375_0 s_704 ctx_93 implicit-omitted?372_1))))))" "(void" "(add-core-form!*" " 'set!" -"(lambda(s_703 ctx_96)" +"(lambda(s_705 ctx_94)" "(let-values((()" "(begin" -"(let-values(((obs_118)(expand-context-observer ctx_96)))" +"(let-values(((obs_118)(expand-context-observer ctx_94)))" "(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_703)))" +"(let-values(((disarmed-s_18)(syntax-disarm$1 s_705)))" "(let-values(((ok?_59 set!392_0 id393_0 rhs394_0)" -"(let-values(((s_704) disarmed-s_18))" -"(let-values(((orig-s_59) s_704))" +"(let-values(((s_706) disarmed-s_18))" +"(let-values(((orig-s_59) s_706))" "(let-values(((set!392_1 id393_1 rhs394_1)" -"(let-values(((s_705)(if(syntax?$1 s_704)(syntax-e$1 s_704) s_704)))" -"(if(pair? s_705)" -"(let-values(((set!395_0)(let-values(((s_706)(car s_705))) s_706))" +"(let-values(((s_707)(if(syntax?$1 s_706)(syntax-e$1 s_706) s_706)))" +"(if(pair? s_707)" +"(let-values(((set!395_0)(let-values(((s_708)(car s_707))) s_708))" "((id396_0 rhs397_0)" -"(let-values(((s_707)(cdr s_705)))" -"(let-values(((s_708)" -"(if(syntax?$1 s_707)" -"(syntax-e$1 s_707)" -" s_707)))" -"(if(pair? s_708)" -"(let-values(((id398_0)" -"(let-values(((s_709)(car s_708)))" -"(if(let-values(((or-part_385)" +"(let-values(((s_709)(cdr s_707)))" +"(let-values(((s_710)" "(if(syntax?$1 s_709)" +"(syntax-e$1 s_709)" +" s_709)))" +"(if(pair? s_710)" +"(let-values(((id398_0)" +"(let-values(((s_711)(car s_710)))" +"(if(let-values(((or-part_386)" +"(if(syntax?$1 s_711)" "(symbol?" "(syntax-e$1" -" s_709))" +" s_711))" " #f)))" -"(if or-part_385" -" or-part_385" -"(symbol? s_709)))" -" s_709" +"(if or-part_386" +" or-part_386" +"(symbol? s_711)))" +" s_711" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_59" -" s_709))))" +" s_711))))" "((rhs399_0)" -"(let-values(((s_710)(cdr s_708)))" -"(let-values(((s_711)" -"(if(syntax?$1 s_710)" -"(syntax-e$1 s_710)" -" s_710)))" -"(if(pair? s_711)" -"(let-values(((rhs400_0)" -"(let-values(((s_712)" -"(car" -" s_711)))" -" s_712))" -"(()" +"(let-values(((s_712)(cdr s_710)))" "(let-values(((s_713)" -"(cdr" -" s_711)))" +"(if(syntax?$1 s_712)" +"(syntax-e$1 s_712)" +" s_712)))" +"(if(pair? s_713)" +"(let-values(((rhs400_0)" "(let-values(((s_714)" -"(if(syntax?$1" -" s_713)" -"(syntax-e$1" -" s_713)" +"(car" " s_713)))" -"(if(null? s_714)" +" s_714))" +"(()" +"(let-values(((s_715)" +"(cdr" +" s_713)))" +"(let-values(((s_716)" +"(if(syntax?$1" +" s_715)" +"(syntax-e$1" +" s_715)" +" s_715)))" +"(if(null? s_716)" "(values)" "(raise-syntax-error$1" " #f" @@ -67733,12 +67808,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_121 from-rename?_0)" "(begin" " 'rename-loop" "(let-values(((binding_29)" -"(let-values(((id401_0) id_123)" -"((temp402_0)(expand-context-phase ctx_96))" +"(let-values(((id401_0) id_121)" +"((temp402_0)(expand-context-phase ctx_94))" "((temp403_0) 'ambiguous)" "((temp404_0) #t))" "(resolve+shift28.1" @@ -67752,31 +67827,31 @@ static const char *startup_source = "(let-values((()" "(begin" "(if(eq? binding_29 'ambiguous)" -"(let-values()(raise-ambiguous-error id_123 ctx_96))" +"(let-values()(raise-ambiguous-error id_121 ctx_94))" "(void))" "(values))))" "(let-values(((t_62 primitive?_11 insp_24 protected?_12)" "(if binding_29" "(let-values(((binding405_0) binding_29)" -"((ctx406_0) ctx_96)" -"((s407_0) s_703))" +"((ctx406_0) ctx_94)" +"((s407_0) s_705))" "(lookup62.1 #f #f binding405_0 ctx406_0 s407_0))" "(values #f #f #f #f))))" "(begin" -"(let-values(((obs_119)(expand-context-observer ctx_96)))" +"(let-values(((obs_119)(expand-context-observer ctx_94)))" "(if obs_119" "(let-values()" -"(let-values()(call-expand-observe obs_119 'resolve id_123)))" +"(let-values()(call-expand-observe obs_119 'resolve id_121)))" "(void)))" -"(if(let-values(((or-part_386)(variable? t_62)))" -"(if or-part_386" -" or-part_386" -"(if(not binding_29)" -"(let-values(((or-part_387)" -"(register-eventual-variable!? id_123 ctx_96)))" +"(if(let-values(((or-part_387)(variable? t_62)))" "(if or-part_387" " or-part_387" -"(expand-context-allow-unbound? ctx_96)))" +"(if(not binding_29)" +"(let-values(((or-part_388)" +"(register-eventual-variable!? id_121 ctx_94)))" +"(if or-part_388" +" or-part_388" +"(expand-context-allow-unbound? ctx_94)))" " #f)))" "(let-values()" "(let-values((()" @@ -67785,20 +67860,20 @@ static const char *startup_source = "(not" "(eq?" "(module-binding-module binding_29)" -"(root-expand-context-self-mpi ctx_96)))" +"(root-expand-context-self-mpi ctx_94)))" " #f)" "(let-values()" "(raise-syntax-error$1" " #f" " \"cannot mutate module-required identifier\"" -" s_703" -" id_123))" +" s_705" +" id_121))" "(void))" "(values))))" "(let-values((()" "(begin" "(let-values(((obs_120)" -"(expand-context-observer ctx_96)))" +"(expand-context-observer ctx_94)))" "(if obs_120" "(let-values()" "(let-values()" @@ -67810,28 +67885,28 @@ static const char *startup_source = "(register-variable-referenced-if-local! binding_29)" "(values))))" "(let-values(((rebuild-s_12)" -"(let-values(((ctx408_0) ctx_96)((s409_0) s_703))" +"(let-values(((ctx408_0) ctx_94)((s409_0) s_705))" "(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_96)))" +"(as-expression-context ctx_94)))" "(expand9.1 #f #f #f temp410_0 temp411_0))))" -"(if(expand-context-to-parsed? ctx_96)" +"(if(expand-context-to-parsed? ctx_94)" "(parsed-set!9.1" " rebuild-s_12" -"(parsed-id2.1 id_123 binding_29 #f)" +"(parsed-id2.1 id_121 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_121)" "((t415_0) t_62)" "((temp416_0)" "(free-id-set-empty-or-just-module*?" "(expand-context-stops" -" ctx_96))))" +" ctx_94))))" "(substitute-variable6.1" " temp416_0" " id414_0" @@ -67843,35 +67918,35 @@ static const char *startup_source = "(raise-unbound-syntax-error" " #f" " \"unbound identifier\"" -" s_703" -" id_123" +" s_705" +" id_121" " null" -"(syntax-debug-info-string id_123 ctx_96)))" +"(syntax-debug-info-string id_121 ctx_94)))" "(if(1/set!-transformer? t_62)" "(let-values()" -"(if(not-in-this-expand-context? t_62 ctx_96)" +"(if(not-in-this-expand-context? t_62 ctx_94)" "(let-values()" "(let-values(((temp417_0)" "(avoid-current-expand-context" "(substitute-set!-rename" -" s_703" +" s_705" " disarmed-s_18" " set!392_0" " rhs394_0" -" id_123" +" id_121" " from-rename?_0" -" ctx_96)" +" ctx_94)" " t_62" -" ctx_96))" -"((ctx418_0) ctx_96))" +" ctx_94))" +"((ctx418_0) ctx_94))" "(expand9.1 #f #f #f temp417_0 ctx418_0)))" "(let-values()" "(let-values(((exp-s_13 re-ctx_1)" "(let-values(((t419_0) t_62)" "((insp420_0) insp_24)" -"((s421_0) s_703)" +"((s421_0) s_705)" "((orig-id422_0) orig-id_1)" -"((ctx423_0) ctx_96)" +"((ctx423_0) ctx_94)" "((binding424_0) binding_29)" "((orig-id425_0) orig-id_1))" "(apply-transformer52.1" @@ -67882,7 +67957,7 @@ static const char *startup_source = " orig-id422_0" " ctx423_0" " binding424_0))))" -"(if(expand-context-just-once? ctx_96)" +"(if(expand-context-just-once? ctx_94)" "(let-values() exp-s_13)" "(let-values()" "(let-values(((exp-s426_0) exp-s_13)" @@ -67890,36 +67965,36 @@ 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_96)" +"(if(not-in-this-expand-context? t_62 ctx_94)" "(let-values()" "(let-values(((temp428_0)" "(avoid-current-expand-context" "(substitute-set!-rename" -" s_703" +" s_705" " disarmed-s_18" " set!392_0" " rhs394_0" -" id_123" +" id_121" " from-rename?_0" -" ctx_96" +" ctx_94" " t_62)" " t_62" -" ctx_96))" -"((ctx429_0) ctx_96))" +" ctx_94))" +"((ctx429_0) ctx_94))" "(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_96)" -" id_123" -" id_123)" +"(rename-transformer-target-in-context t_62 ctx_94)" +" id_121" +" id_121)" " #t))))" "(let-values()" "(raise-syntax-error$1" " #f" " \"cannot mutate syntax identifier\"" -" s_703" -" id_123))))))))))))))" +" s_705" +" id_121))))))))))))))" " rename-loop_0)" " orig-id_1" " #f))))))))" @@ -67929,115 +68004,115 @@ static const char *startup_source = "(lambda(s24_3 disarmed-s25_0 set!-id26_0 id27_0 rhs-s28_0 from-rename?29_0 ctx30_0 t23_0)" "(begin" " 'substitute-set!-rename31" -"(let-values(((s_715) s24_3))" +"(let-values(((s_717) 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_122) id27_0))" "(let-values(((rhs-s_0) rhs-s28_0))" "(let-values(((from-rename?_1) from-rename?29_0))" -"(let-values(((ctx_97) ctx30_0))" +"(let-values(((ctx_95) ctx30_0))" "(let-values(((t_63) t23_0))" "(let-values()" -"(if(let-values(((or-part_388) t_63))" -"(if or-part_388 or-part_388 from-rename?_1))" +"(if(let-values(((or-part_389) t_63))" +"(if or-part_389 or-part_389 from-rename?_1))" "(let-values()" "(let-values(((new-id_1)" "(if t_63" -"(rename-transformer-target-in-context t_63 ctx_97)" -" id_124)))" +"(rename-transformer-target-in-context t_63 ctx_95)" +" id_122)))" "(syntax-rearm$1" "(datum->syntax$1" " disarmed-s_19" "(list set!-id_0 new-id_1 rhs-s_0)" " disarmed-s_19" " disarmed-s_19)" -" s_715)))" -"(let-values() s_715)))))))))))))))" +" s_717)))" +"(let-values() s_717)))))))))))))))" "(case-lambda" -"((s_716 disarmed-s_20 set!-id_1 id_125 rhs-s_1 from-rename?_2 ctx_98)" -"(begin(substitute-set!-rename31_0 s_716 disarmed-s_20 set!-id_1 id_125 rhs-s_1 from-rename?_2 ctx_98 #f)))" -"((s_717 disarmed-s_21 set!-id_2 id_126 rhs-s_2 from-rename?_3 ctx_99 t23_1)" -"(substitute-set!-rename31_0 s_717 disarmed-s_21 set!-id_2 id_126 rhs-s_2 from-rename?_3 ctx_99 t23_1)))))" +"((s_718 disarmed-s_20 set!-id_1 id_123 rhs-s_1 from-rename?_2 ctx_96)" +"(begin(substitute-set!-rename31_0 s_718 disarmed-s_20 set!-id_1 id_123 rhs-s_1 from-rename?_2 ctx_96 #f)))" +"((s_719 disarmed-s_21 set!-id_2 id_124 rhs-s_2 from-rename?_3 ctx_97 t23_1)" +"(substitute-set!-rename31_0 s_719 disarmed-s_21 set!-id_2 id_124 rhs-s_2 from-rename?_3 ctx_97 t23_1)))))" "(void" "(add-core-form!*" " '#%variable-reference" -"(lambda(s_718 ctx_100)" +"(lambda(s_720 ctx_98)" "(let-values((()" "(begin" -"(let-values(((obs_121)(expand-context-observer ctx_100)))" +"(let-values(((obs_121)(expand-context-observer ctx_98)))" "(if obs_121" "(let-values()(let-values()(call-expand-observe obs_121 'prim-#%variable-reference)))" "(void)))" "(values))))" -"(let-values(((disarmed-s_22)(syntax-disarm$1 s_718)))" +"(let-values(((disarmed-s_22)(syntax-disarm$1 s_720)))" "(let-values(((ok?_60 #%variable-reference430_0 id431_0)" -"(let-values(((s_719) disarmed-s_22))" -"(if(let-values(((s_720)(if(syntax?$1 s_719)(syntax-e$1 s_719) s_719)))" -"(if(pair? s_720)" -"(if(let-values(((s_721)(car s_720))) #t)" -"(let-values(((s_722)(cdr s_720)))" -"(let-values(((s_723)(if(syntax?$1 s_722)(syntax-e$1 s_722) s_722)))" -"(if(pair? s_723)" -"(if(let-values(((s_724)(car s_723)))" -"(let-values(((or-part_389)" -"(if(syntax?$1 s_724)(symbol?(syntax-e$1 s_724)) #f)))" -"(if or-part_389 or-part_389(symbol? s_724))))" -"(let-values(((s_725)(cdr s_723)))" -"(let-values(((s_726)(if(syntax?$1 s_725)(syntax-e$1 s_725) s_725)))" -"(null? s_726)))" +"(let-values(((s_721) disarmed-s_22))" +"(if(let-values(((s_722)(if(syntax?$1 s_721)(syntax-e$1 s_721) s_721)))" +"(if(pair? s_722)" +"(if(let-values(((s_723)(car s_722))) #t)" +"(let-values(((s_724)(cdr s_722)))" +"(let-values(((s_725)(if(syntax?$1 s_724)(syntax-e$1 s_724) s_724)))" +"(if(pair? s_725)" +"(if(let-values(((s_726)(car s_725)))" +"(let-values(((or-part_390)" +"(if(syntax?$1 s_726)(symbol?(syntax-e$1 s_726)) #f)))" +"(if or-part_390 or-part_390(symbol? s_726))))" +"(let-values(((s_727)(cdr s_725)))" +"(let-values(((s_728)(if(syntax?$1 s_727)(syntax-e$1 s_727) s_727)))" +"(null? s_728)))" " #f)" " #f)))" " #f)" " #f))" "(let-values()" "(let-values(((#%variable-reference430_1 id431_1)" -"(let-values(((s_727)(if(syntax?$1 s_719)(syntax-e$1 s_719) s_719)))" +"(let-values(((s_729)(if(syntax?$1 s_721)(syntax-e$1 s_721) s_721)))" "(let-values(((#%variable-reference432_0)" -"(let-values(((s_728)(car s_727))) s_728))" +"(let-values(((s_730)(car s_729))) s_730))" "((id433_0)" -"(let-values(((s_729)(cdr s_727)))" -"(let-values(((s_730)" -"(if(syntax?$1 s_729)" -"(syntax-e$1 s_729)" -" s_729)))" +"(let-values(((s_731)(cdr s_729)))" +"(let-values(((s_732)" +"(if(syntax?$1 s_731)" +"(syntax-e$1 s_731)" +" s_731)))" "(let-values(((id434_0)" -"(let-values(((s_731)(car s_730))) s_731))" +"(let-values(((s_733)(car s_732))) s_733))" "(()" -"(let-values(((s_732)(cdr s_730)))" -"(let-values(((s_733)" -"(if(syntax?$1 s_732)" -"(syntax-e$1 s_732)" -" s_732)))" +"(let-values(((s_734)(cdr s_732)))" +"(let-values(((s_735)" +"(if(syntax?$1 s_734)" +"(syntax-e$1 s_734)" +" s_734)))" "(values)))))" "(values id434_0))))))" "(values #%variable-reference432_0 id433_0)))))" "(values #t #%variable-reference430_1 id431_1)))" "(values #f #f #f)))))" "(let-values(((ok?_61 #%variable-reference435_0 #%top436_0 id437_0)" -"(let-values(((s_734) disarmed-s_22))" +"(let-values(((s_736) disarmed-s_22))" "(if(if(not ok?_60)" -"(let-values(((s_735)(if(syntax?$1 s_734)(syntax-e$1 s_734) s_734)))" -"(if(pair? s_735)" -"(if(let-values(((s_736)(car s_735))) #t)" -"(let-values(((s_737)(cdr s_735)))" -"(let-values(((s_738)(if(syntax?$1 s_737)(syntax-e$1 s_737) s_737)))" -"(if(pair? s_738)" -"(if(let-values(((s_739)(car s_738)))" -"(let-values(((s_740)" -"(if(syntax?$1 s_739)(syntax-e$1 s_739) s_739)))" +"(let-values(((s_737)(if(syntax?$1 s_736)(syntax-e$1 s_736) s_736)))" +"(if(pair? s_737)" +"(if(let-values(((s_738)(car s_737))) #t)" +"(let-values(((s_739)(cdr s_737)))" +"(let-values(((s_740)(if(syntax?$1 s_739)(syntax-e$1 s_739) s_739)))" "(if(pair? s_740)" -"(if(let-values(((s_741)(car s_740))) #t)" -"(let-values(((s_742)(cdr s_740)))" -"(let-values(((or-part_390)" -"(if(syntax?$1 s_742)" -"(symbol?(syntax-e$1 s_742))" +"(if(let-values(((s_741)(car s_740)))" +"(let-values(((s_742)" +"(if(syntax?$1 s_741)(syntax-e$1 s_741) s_741)))" +"(if(pair? s_742)" +"(if(let-values(((s_743)(car s_742))) #t)" +"(let-values(((s_744)(cdr s_742)))" +"(let-values(((or-part_391)" +"(if(syntax?$1 s_744)" +"(symbol?(syntax-e$1 s_744))" " #f)))" -"(if or-part_390 or-part_390(symbol? s_742))))" +"(if or-part_391 or-part_391(symbol? s_744))))" " #f)" " #f)))" -"(let-values(((s_743)(cdr s_738)))" -"(let-values(((s_744)(if(syntax?$1 s_743)(syntax-e$1 s_743) s_743)))" -"(null? s_744)))" +"(let-values(((s_745)(cdr s_740)))" +"(let-values(((s_746)(if(syntax?$1 s_745)(syntax-e$1 s_745) s_745)))" +"(null? s_746)))" " #f)" " #f)))" " #f)" @@ -68045,61 +68120,61 @@ static const char *startup_source = " #f)" "(let-values()" "(let-values(((#%variable-reference435_1 #%top436_1 id437_1)" -"(let-values(((s_745)(if(syntax?$1 s_734)(syntax-e$1 s_734) s_734)))" +"(let-values(((s_747)(if(syntax?$1 s_736)(syntax-e$1 s_736) s_736)))" "(let-values(((#%variable-reference438_0)" -"(let-values(((s_746)(car s_745))) s_746))" +"(let-values(((s_748)(car s_747))) s_748))" "((#%top439_0 id440_0)" -"(let-values(((s_747)(cdr s_745)))" -"(let-values(((s_748)" -"(if(syntax?$1 s_747)" -"(syntax-e$1 s_747)" -" s_747)))" -"(let-values(((#%top441_0 id442_0)" -"(let-values(((s_749)(car s_748)))" +"(let-values(((s_749)(cdr s_747)))" "(let-values(((s_750)" "(if(syntax?$1 s_749)" "(syntax-e$1 s_749)" " s_749)))" -"(let-values(((#%top443_0)" -"(let-values(((s_751)" -"(car" -" s_750)))" -" s_751))" -"((id444_0)" +"(let-values(((#%top441_0 id442_0)" +"(let-values(((s_751)(car s_750)))" "(let-values(((s_752)" -"(cdr" -" s_750)))" +"(if(syntax?$1 s_751)" +"(syntax-e$1 s_751)" +" s_751)))" +"(let-values(((#%top443_0)" +"(let-values(((s_753)" +"(car" " s_752)))" +" s_753))" +"((id444_0)" +"(let-values(((s_754)" +"(cdr" +" s_752)))" +" s_754)))" "(values #%top443_0 id444_0)))))" "(()" -"(let-values(((s_753)(cdr s_748)))" -"(let-values(((s_754)" -"(if(syntax?$1 s_753)" -"(syntax-e$1 s_753)" -" s_753)))" +"(let-values(((s_755)(cdr s_750)))" +"(let-values(((s_756)" +"(if(syntax?$1 s_755)" +"(syntax-e$1 s_755)" +" s_755)))" "(values)))))" "(values #%top441_0 id442_0))))))" "(values #%variable-reference438_0 #%top439_0 id440_0)))))" "(values #t #%variable-reference435_1 #%top436_1 id437_1)))" "(values #f #f #f #f)))))" "(let-values(((ok?_62 #%variable-reference445_0)" -"(let-values(((s_755) disarmed-s_22))" -"(if(if(not(let-values(((or-part_391) ok?_60))(if or-part_391 or-part_391 ok?_61)))" +"(let-values(((s_757) disarmed-s_22))" +"(if(if(not(let-values(((or-part_392) ok?_60))(if or-part_392 or-part_392 ok?_61)))" " #t" " #f)" -"(let-values(((orig-s_60) s_755))" +"(let-values(((orig-s_60) s_757))" "(let-values(((#%variable-reference445_1)" -"(let-values(((s_756)(if(syntax?$1 s_755)(syntax-e$1 s_755) s_755)))" -"(if(pair? s_756)" +"(let-values(((s_758)(if(syntax?$1 s_757)(syntax-e$1 s_757) s_757)))" +"(if(pair? s_758)" "(let-values(((#%variable-reference446_0)" -"(let-values(((s_757)(car s_756))) s_757))" +"(let-values(((s_759)(car s_758))) s_759))" "(()" -"(let-values(((s_758)(cdr s_756)))" -"(let-values(((s_759)" -"(if(syntax?$1 s_758)" -"(syntax-e$1 s_758)" -" s_758)))" -"(if(null? s_759)" +"(let-values(((s_760)(cdr s_758)))" +"(let-values(((s_761)" +"(if(syntax?$1 s_760)" +"(syntax-e$1 s_760)" +" s_760)))" +"(if(null? s_761)" "(values)" "(raise-syntax-error$1" " #f" @@ -68109,96 +68184,96 @@ 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_392) ok?_60))(if or-part_392 or-part_392 ok?_61))" +"(if(let-values(((or-part_393) ok?_60))(if or-part_393 or-part_393 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_100))" +"((temp448_0)(expand-context-phase ctx_98))" "((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_100))" +"(let-values()(raise-ambiguous-error var-id_0 ctx_98))" "(void))" "(values))))" "(let-values((()" "(begin" -"(if(let-values(((or-part_393) binding_30))" -"(if or-part_393 or-part_393(expand-context-allow-unbound? ctx_100)))" +"(if(let-values(((or-part_394) binding_30))" +"(if or-part_394 or-part_394(expand-context-allow-unbound? ctx_98)))" "(void)" "(let-values()" "(raise-unbound-syntax-error" " #f" " \"unbound identifier\"" -" s_718" +" s_720" " var-id_0" " null" -"(syntax-debug-info-string var-id_0 ctx_100))))" +"(syntax-debug-info-string var-id_0 ctx_98))))" "(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_100)" +"((ctx451_0) ctx_98)" "((var-id452_0) var-id_0)" -"((s453_0) s_718)" -"((temp454_0)(expand-context-in-local-expand? ctx_100)))" +"((s453_0) s_720)" +"((temp454_0)(expand-context-in-local-expand? ctx_98)))" "(lookup62.1 s453_0 temp454_0 binding450_0 ctx451_0 var-id452_0))" "(values #f #f #f #f))))" "(begin" "(if(if t_64(not(variable? t_64)) #f)" "(let-values()" -" (raise-syntax-error$1 #f \"identifier does not refer to a variable\" var-id_0 s_718))" +" (raise-syntax-error$1 #f \"identifier does not refer to a variable\" var-id_0 s_720))" "(void))" -"(if(expand-context-to-parsed? ctx_100)" +"(if(expand-context-to-parsed? ctx_98)" "(parsed-#%variable-reference11.1" -"(keep-properties-only~ s_718)" +"(keep-properties-only~ s_720)" "(if ok?_61" "(let-values()(parsed-top-id4.1 var-id_0 binding_30 #f))" "(let-values()(parsed-id2.1 var-id_0 binding_30 #f))))" -" s_718))))))))" +" s_720))))))))" "(let-values()" -"(if(expand-context-to-parsed? ctx_100)" -"(parsed-#%variable-reference11.1(keep-properties-only~ s_718) #f)" -" s_718)))))))))))" +"(if(expand-context-to-parsed? ctx_98)" +"(parsed-#%variable-reference11.1(keep-properties-only~ s_720) #f)" +" s_720)))))))))))" "(void" "(add-core-form!*" " '#%expression" -"(lambda(s_760 ctx_101)" +"(lambda(s_762 ctx_99)" "(let-values((()" "(begin" -"(let-values(((obs_122)(expand-context-observer ctx_101)))" +"(let-values(((obs_122)(expand-context-observer ctx_99)))" "(if obs_122" "(let-values()(let-values()(call-expand-observe obs_122 'prim-#%expression)))" "(void)))" "(values))))" -"(let-values(((disarmed-s_23)(syntax-disarm$1 s_760)))" +"(let-values(((disarmed-s_23)(syntax-disarm$1 s_762)))" "(let-values(((ok?_63 #%expression455_0 e456_0)" -"(let-values(((s_761) disarmed-s_23))" -"(let-values(((orig-s_61) s_761))" +"(let-values(((s_763) disarmed-s_23))" +"(let-values(((orig-s_61) s_763))" "(let-values(((#%expression455_1 e456_1)" -"(let-values(((s_762)(if(syntax?$1 s_761)(syntax-e$1 s_761) s_761)))" -"(if(pair? s_762)" +"(let-values(((s_764)(if(syntax?$1 s_763)(syntax-e$1 s_763) s_763)))" +"(if(pair? s_764)" "(let-values(((#%expression457_0)" -"(let-values(((s_763)(car s_762))) s_763))" +"(let-values(((s_765)(car s_764))) s_765))" "((e458_0)" -"(let-values(((s_764)(cdr s_762)))" -"(let-values(((s_765)" -"(if(syntax?$1 s_764)" -"(syntax-e$1 s_764)" -" s_764)))" -"(if(pair? s_765)" +"(let-values(((s_766)(cdr s_764)))" +"(let-values(((s_767)" +"(if(syntax?$1 s_766)" +"(syntax-e$1 s_766)" +" s_766)))" +"(if(pair? s_767)" "(let-values(((e459_0)" -"(let-values(((s_766)(car s_765)))" -" s_766))" +"(let-values(((s_768)(car s_767)))" +" s_768))" "(()" -"(let-values(((s_767)(cdr s_765)))" -"(let-values(((s_768)" -"(if(syntax?$1 s_767)" -"(syntax-e$1 s_767)" -" s_767)))" -"(if(null? s_768)" +"(let-values(((s_769)(cdr s_767)))" +"(let-values(((s_770)" +"(if(syntax?$1 s_769)" +"(syntax-e$1 s_769)" +" s_769)))" +"(if(null? s_770)" "(values)" "(raise-syntax-error$1" " #f" @@ -68210,38 +68285,37 @@ 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_101)((s461_0) s_760)((temp462_0) #t))" +"(let-values(((ctx460_0) ctx_99)((s461_0) s_762)((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_101))" -"((ctx466_0) ctx_101))" +"(let-values(((temp465_0)(as-expression-context ctx_99))((ctx466_0) ctx_99))" "(as-tail-context22.1 ctx466_0 temp465_0))))" "(expand9.1 #f #f #f temp463_0 temp464_0))))" -"(if(expand-context-to-parsed? ctx_101)" +"(if(expand-context-to-parsed? ctx_99)" " exp-e_0" -"(if(let-values(((or-part_394)" -"(if(expand-context-in-local-expand? ctx_101)" -"(expand-context-keep-#%expression? ctx_101)" +"(if(let-values(((or-part_395)" +"(if(expand-context-in-local-expand? ctx_99)" +"(expand-context-keep-#%expression? ctx_99)" " #f)))" -"(if or-part_394 or-part_394(eq? 'top-level(expand-context-context ctx_101))))" +"(if or-part_395 or-part_395(eq? 'top-level(expand-context-context ctx_99))))" "(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_101)))" +"(let-values(((obs_123)(expand-context-observer ctx_99)))" "(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_769 ctx_102) (raise-syntax-error$1 #f \"not in quasiquote\" s_769))))" -" (void (add-core-form!* 'unquote-splicing (lambda (s_770 ctx_103) (raise-syntax-error$1 #f \"not in quasiquote\" s_770))))" +" (void (add-core-form!* 'unquote (lambda (s_771 ctx_100) (raise-syntax-error$1 #f \"not in quasiquote\" s_771))))" +" (void (add-core-form!* 'unquote-splicing (lambda (s_772 ctx_101) (raise-syntax-error$1 #f \"not in quasiquote\" s_772))))" "(define-values" "(binding-for-transformer?)" -"(lambda(b_42 id_127 at-phase_12 ns_112)" +"(lambda(b_42 id_125 at-phase_12 ns_112)" "(begin" "(if(not at-phase_12)" "(let-values()" @@ -68260,16 +68334,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_125))" "(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_43 ctx_104)" +"(lambda(specs_0 orig-s_62 rp_1 self_30 phase_45 ctx_102)" "(begin" -"(let-values(((ns_125)(expand-context-namespace ctx_104)))" +"(let-values(((ns_125)(expand-context-namespace ctx_102)))" "((letrec-values(((loop_117)" "(lambda(specs_1 at-phase_13 protected?_15 layer_6)" "(begin" @@ -68292,7 +68366,7 @@ static const char *startup_source = "(let-values(((spec_0)" "(unsafe-car" " lst_404))" -"((rest_238)" +"((rest_237)" "(unsafe-cdr" " lst_404)))" "(let-values(((track-stxes_2" @@ -68433,54 +68507,54 @@ static const char *startup_source = " for-meta3_0" " phase-level4_0" " spec5_0)" -"(let-values(((s_168)" +"(let-values(((s_169)" " disarmed-spec_0))" "(let-values(((orig-s_63)" -" s_168))" +" s_169))" "(let-values(((for-meta3_1" " phase-level4_1" " spec5_1)" -"(let-values(((s_771)" +"(let-values(((s_773)" "(if(syntax?$1" -" s_168)" +" s_169)" "(syntax-e$1" -" s_168)" -" s_168)))" +" s_169)" +" s_169)))" "(if(pair?" -" s_771)" +" s_773)" "(let-values(((for-meta6_0)" "(let-values(((s_487)" "(car" -" s_771)))" +" s_773)))" " s_487))" "((phase-level7_0" " spec8_0)" -"(let-values(((s_447)" +"(let-values(((s_446)" "(cdr" -" s_771)))" +" s_773)))" "(let-values(((s_492)" "(if(syntax?$1" -" s_447)" +" s_446)" "(syntax-e$1" -" s_447)" -" s_447)))" +" s_446)" +" s_446)))" "(if(pair?" " s_492)" "(let-values(((phase-level9_0)" -"(let-values(((s_772)" +"(let-values(((s_774)" "(car" " s_492)))" -" s_772))" +" s_774))" "((spec10_0)" -"(let-values(((s_773)" +"(let-values(((s_775)" "(cdr" " s_492)))" "(let-values(((s_81)" "(if(syntax?$1" -" s_773)" +" s_775)" "(syntax-e$1" -" s_773)" -" s_773)))" +" s_775)" +" s_775)))" "(let-values(((flat-s_46)" "(to-syntax-list.1" " s_81)))" @@ -68565,30 +68639,30 @@ static const char *startup_source = "(let-values(((ok?_65" " for-syntax13_0" " spec14_0)" -"(let-values(((s_449)" +"(let-values(((s_448)" " disarmed-spec_0))" "(let-values(((orig-s_64)" -" s_449))" +" s_448))" "(let-values(((for-syntax13_1" " spec14_1)" "(let-values(((s_24)" "(if(syntax?$1" -" s_449)" +" s_448)" "(syntax-e$1" -" s_449)" -" s_449)))" +" s_448)" +" s_448)))" "(if(pair?" " s_24)" "(let-values(((for-syntax15_0)" -"(let-values(((s_305)" +"(let-values(((s_306)" "(car" " s_24)))" -" s_305))" +" s_306))" "((spec16_0)" "(let-values(((s_157)" "(cdr" " s_24)))" -"(let-values(((s_774)" +"(let-values(((s_776)" "(if(syntax?$1" " s_157)" "(syntax-e$1" @@ -68596,7 +68670,7 @@ static const char *startup_source = " s_157)))" "(let-values(((flat-s_47)" "(to-syntax-list.1" -" s_774)))" +" s_776)))" "(if(not" " flat-s_47)" "(let-values()" @@ -68659,23 +68733,23 @@ static const char *startup_source = " s_499))" "(let-values(((for-label19_1" " spec20_1)" -"(let-values(((s_308)" +"(let-values(((s_309)" "(if(syntax?$1" " s_499)" "(syntax-e$1" " s_499)" " s_499)))" "(if(pair?" -" s_308)" +" s_309)" "(let-values(((for-label21_0)" -"(let-values(((s_442)" +"(let-values(((s_441)" "(car" -" s_308)))" -" s_442))" +" s_309)))" +" s_441))" "((spec22_0)" "(let-values(((s_27)" "(cdr" -" s_308)))" +" s_309)))" "(let-values(((s_28)" "(if(syntax?$1" " s_27)" @@ -68756,23 +68830,23 @@ static const char *startup_source = " s_49))" "(let-values(((protect25_1" " p-spec26_1)" -"(let-values(((s_775)" +"(let-values(((s_777)" "(if(syntax?$1" " s_49)" "(syntax-e$1" " s_49)" " s_49)))" "(if(pair?" -" s_775)" +" s_777)" "(let-values(((protect27_0)" "(let-values(((s_505)" "(car" -" s_775)))" +" s_777)))" " s_505))" "((p-spec28_0)" "(let-values(((s_506)" "(cdr" -" s_775)))" +" s_777)))" "(let-values(((s_52)" "(if(syntax?$1" " s_506)" @@ -68834,64 +68908,64 @@ static const char *startup_source = " rename31_0" " id:from32_0" " id:to33_0)" -"(let-values(((s_313)" +"(let-values(((s_314)" " disarmed-spec_0))" "(let-values(((orig-s_67)" -" s_313))" +" s_314))" "(let-values(((rename31_1" " id:from32_1" " id:to33_1)" -"(let-values(((s_776)" +"(let-values(((s_778)" "(if(syntax?$1" -" s_313)" +" s_314)" "(syntax-e$1" -" s_313)" -" s_313)))" +" s_314)" +" s_314)))" "(if(pair?" -" s_776)" +" s_778)" "(let-values(((rename34_0)" -"(let-values(((s_200)" +"(let-values(((s_201)" "(car" -" s_776)))" -" s_200))" +" s_778)))" +" s_201))" "((id:from35_0" " id:to36_0)" "(let-values(((s_59)" "(cdr" -" s_776)))" -"(let-values(((s_404)" +" s_778)))" +"(let-values(((s_405)" "(if(syntax?$1" " s_59)" "(syntax-e$1" " s_59)" " s_59)))" "(if(pair?" -" s_404)" +" s_405)" "(let-values(((id:from37_0)" -"(let-values(((s_201)" +"(let-values(((s_202)" "(car" -" s_404)))" +" s_405)))" "(if(let-values(((or-part_214)" "(if(syntax?$1" -" s_201)" +" s_202)" "(symbol?" "(syntax-e$1" -" s_201))" +" s_202))" " #f)))" "(if or-part_214" " or-part_214" "(symbol?" -" s_201)))" -" s_201" +" s_202)))" +" s_202" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_67" -" s_201))))" +" s_202))))" "((id:to38_0)" "(let-values(((s_60)" "(cdr" -" s_404)))" +" s_405)))" "(let-values(((s_61)" "(if(syntax?$1" " s_60)" @@ -68901,36 +68975,36 @@ static const char *startup_source = "(if(pair?" " s_61)" "(let-values(((id:to39_0)" -"(let-values(((s_203)" +"(let-values(((s_204)" "(car" " s_61)))" -"(if(let-values(((or-part_395)" +"(if(let-values(((or-part_396)" "(if(syntax?$1" -" s_203)" +" s_204)" "(symbol?" "(syntax-e$1" -" s_203))" +" s_204))" " #f)))" -"(if or-part_395" -" or-part_395" +"(if or-part_396" +" or-part_396" "(symbol?" -" s_203)))" -" s_203" +" s_204)))" +" s_204" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_67" -" s_203))))" +" s_204))))" "(()" -"(let-values(((s_777)" +"(let-values(((s_779)" "(cdr" " s_61)))" "(let-values(((s_414)" "(if(syntax?$1" -" s_777)" +" s_779)" "(syntax-e$1" -" s_777)" -" s_777)))" +" s_779)" +" s_779)))" "(if(null?" " s_414)" "(values)" @@ -68994,85 +69068,85 @@ static const char *startup_source = " struct40_0" " id:struct41_0" " id:field42_0)" -"(let-values(((s_520)" +"(let-values(((s_521)" " disarmed-spec_0))" "(let-values(((orig-s_68)" -" s_520))" +" s_521))" "(let-values(((struct40_1" " id:struct41_1" " id:field42_1)" -"(let-values(((s_207)" +"(let-values(((s_208)" "(if(syntax?$1" -" s_520)" +" s_521)" "(syntax-e$1" -" s_520)" -" s_520)))" +" s_521)" +" s_521)))" "(if(pair?" -" s_207)" +" s_208)" "(let-values(((struct43_0)" -"(let-values(((s_209)" +"(let-values(((s_210)" "(car" -" s_207)))" -" s_209))" +" s_208)))" +" s_210))" "((id:struct44_0" " id:field45_0)" "(let-values(((s_38)" "(cdr" -" s_207)))" -"(let-values(((s_317)" +" s_208)))" +"(let-values(((s_318)" "(if(syntax?$1" " s_38)" "(syntax-e$1" " s_38)" " s_38)))" "(if(pair?" -" s_317)" +" s_318)" "(let-values(((id:struct46_0)" -"(let-values(((s_778)" +"(let-values(((s_780)" "(car" -" s_317)))" -"(if(let-values(((or-part_396)" +" s_318)))" +"(if(let-values(((or-part_397)" "(if(syntax?$1" -" s_778)" +" s_780)" "(symbol?" "(syntax-e$1" -" s_778))" +" s_780))" " #f)))" -"(if or-part_396" -" or-part_396" +"(if or-part_397" +" or-part_397" "(symbol?" -" s_778)))" -" s_778" +" s_780)))" +" s_780" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_68" -" s_778))))" +" s_780))))" "((id:field47_0)" -"(let-values(((s_779)" +"(let-values(((s_781)" "(cdr" -" s_317)))" -"(let-values(((s_431)" +" s_318)))" +"(let-values(((s_430)" "(if(syntax?$1" -" s_779)" +" s_781)" "(syntax-e$1" -" s_779)" -" s_779)))" +" s_781)" +" s_781)))" "(if(pair?" -" s_431)" +" s_430)" "(let-values(((id:field48_0)" -"(let-values(((s_521)" +"(let-values(((s_522)" "(car" -" s_431)))" -"(let-values(((s_780)" +" s_430)))" +"(let-values(((s_782)" "(if(syntax?$1" -" s_521)" +" s_522)" "(syntax-e$1" -" s_521)" -" s_521)))" +" s_522)" +" s_522)))" "(let-values(((flat-s_50)" "(to-syntax-list.1" -" s_780)))" +" s_782)))" "(if(not" " flat-s_50)" "(let-values()" @@ -69091,17 +69165,17 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_405)))" -"((letrec-values(((for-loop_319)" +"((letrec-values(((for-loop_316)" "(lambda(id:field_1" " lst_269)" "(begin" " 'for-loop" "(if(pair?" " lst_269)" -"(let-values(((s_781)" +"(let-values(((s_783)" "(unsafe-car" " lst_269))" -"((rest_239)" +"((rest_238)" "(unsafe-cdr" " lst_269)))" "(let-values(((id:field_2)" @@ -69111,23 +69185,23 @@ static const char *startup_source = "(let-values()" "(let-values(((id:field49_0)" "(let-values()" -"(if(let-values(((or-part_397)" +"(if(let-values(((or-part_398)" "(if(syntax?$1" -" s_781)" +" s_783)" "(symbol?" "(syntax-e$1" -" s_781))" +" s_783))" " #f)))" -"(if or-part_397" -" or-part_397" +"(if or-part_398" +" or-part_398" "(symbol?" -" s_781)))" -" s_781" +" s_783)))" +" s_783" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_68" -" s_781)))))" +" s_783)))))" "(cons" " id:field49_0" " id:field_3)))))" @@ -69135,28 +69209,28 @@ static const char *startup_source = " id:field_4)))))" "(if(not" " #f)" -"(for-loop_319" +"(for-loop_316" " id:field_2" -" rest_239)" +" rest_238)" " id:field_2)))" " id:field_1)))))" -" for-loop_319)" +" for-loop_316)" " null" " lst_405)))))" "(reverse$1" " id:field_0))))))))" "(()" -"(let-values(((s_526)" -"(cdr" -" s_431)))" "(let-values(((s_527)" +"(cdr" +" s_430)))" +"(let-values(((s_528)" "(if(syntax?$1" -" s_526)" -"(syntax-e$1" -" s_526)" -" s_526)))" -"(if(null?" " s_527)" +"(syntax-e$1" +" s_527)" +" s_527)))" +"(if(null?" +" s_528)" "(values)" "(raise-syntax-error$1" " #f" @@ -69213,54 +69287,54 @@ static const char *startup_source = "(let-values(((ok?_70" " all-from50_0" " mod-path51_0)" -"(let-values(((s_319)" +"(let-values(((s_320)" " disarmed-spec_0))" "(let-values(((orig-s_69)" -" s_319))" +" s_320))" "(let-values(((all-from50_1" " mod-path51_1)" -"(let-values(((s_321)" +"(let-values(((s_322)" "(if(syntax?$1" -" s_319)" +" s_320)" "(syntax-e$1" -" s_319)" -" s_319)))" +" s_320)" +" s_320)))" "(if(pair?" -" s_321)" +" s_322)" "(let-values(((all-from52_0)" -"(let-values(((s_425)" -"(car" -" s_321)))" -" s_425))" -"((mod-path53_0)" "(let-values(((s_426)" -"(cdr" -" s_321)))" -"(let-values(((s_214)" -"(if(syntax?$1" -" s_426)" -"(syntax-e$1" -" s_426)" -" s_426)))" -"(if(pair?" -" s_214)" -"(let-values(((mod-path54_0)" -"(let-values(((s_782)" "(car" -" s_214)))" -" s_782))" -"(()" -"(let-values(((s_215)" +" s_322)))" +" s_426))" +"((mod-path53_0)" +"(let-values(((s_427)" "(cdr" -" s_214)))" -"(let-values(((s_169)" +" s_322)))" +"(let-values(((s_215)" "(if(syntax?$1" -" s_215)" +" s_427)" "(syntax-e$1" +" s_427)" +" s_427)))" +"(if(pair?" " s_215)" +"(let-values(((mod-path54_0)" +"(let-values(((s_784)" +"(car" " s_215)))" +" s_784))" +"(()" +"(let-values(((s_216)" +"(cdr" +" s_215)))" +"(let-values(((s_170)" +"(if(syntax?$1" +" s_216)" +"(syntax-e$1" +" s_216)" +" s_216)))" "(if(null?" -" s_169)" +" s_170)" "(values)" "(raise-syntax-error$1" " #f" @@ -69293,7 +69367,7 @@ static const char *startup_source = " ns_125" " rp_1" " protected?_15" -" ctx_104)" +" ctx_102)" "(values" " null" "(list" @@ -69324,41 +69398,41 @@ static const char *startup_source = "(if(pair?" " s_105)" "(let-values(((all-from-except58_0)" -"(let-values(((s_218)" +"(let-values(((s_219)" "(car" " s_105)))" -" s_218))" +" s_219))" "((mod-path59_0" -" id60_0)" -"(let-values(((s_783)" +" id60_1)" +"(let-values(((s_785)" "(cdr" " s_105)))" -"(let-values(((s_784)" +"(let-values(((s_786)" "(if(syntax?$1" -" s_783)" +" s_785)" "(syntax-e$1" -" s_783)" -" s_783)))" +" s_785)" +" s_785)))" "(if(pair?" -" s_784)" +" s_786)" "(let-values(((mod-path61_0)" -"(let-values(((s_220)" -"(car" -" s_784)))" -" s_220))" -"((id62_0)" "(let-values(((s_221)" +"(car" +" s_786)))" +" s_221))" +"((id62_0)" +"(let-values(((s_222)" "(cdr" -" s_784)))" -"(let-values(((s_324)" +" s_786)))" +"(let-values(((s_325)" "(if(syntax?$1" -" s_221)" +" s_222)" "(syntax-e$1" -" s_221)" -" s_221)))" +" s_222)" +" s_222)))" "(let-values(((flat-s_51)" "(to-syntax-list.1" -" s_324)))" +" s_325)))" "(if(not" " flat-s_51)" "(let-values()" @@ -69367,7 +69441,7 @@ static const char *startup_source = " \"bad syntax\"" " orig-s_70))" "(let-values()" -"(let-values(((id_128)" +"(let-values(((id_126)" "(let-values(((lst_406)" " flat-s_51))" "(begin" @@ -69377,60 +69451,60 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_406)))" -"((letrec-values(((for-loop_320)" -"(lambda(id_129" +"((letrec-values(((for-loop_317)" +"(lambda(id_127" " lst_407)" "(begin" " 'for-loop" "(if(pair?" " lst_407)" -"(let-values(((s_785)" +"(let-values(((s_787)" "(unsafe-car" " lst_407))" -"((rest_240)" +"((rest_239)" "(unsafe-cdr" " lst_407)))" +"(let-values(((id_128)" +"(let-values(((id_129)" +" id_127))" "(let-values(((id_130)" -"(let-values(((id_131)" -" id_129))" -"(let-values(((id_132)" "(let-values()" "(let-values(((id63_0)" "(let-values()" -"(if(let-values(((or-part_398)" +"(if(let-values(((or-part_399)" "(if(syntax?$1" -" s_785)" +" s_787)" "(symbol?" "(syntax-e$1" -" s_785))" +" s_787))" " #f)))" -"(if or-part_398" -" or-part_398" +"(if or-part_399" +" or-part_399" "(symbol?" -" s_785)))" -" s_785" +" s_787)))" +" s_787" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_70" -" s_785)))))" +" s_787)))))" "(cons" " id63_0" -" id_131)))))" +" id_129)))))" "(values" -" id_132)))))" +" id_130)))))" "(if(not" " #f)" -"(for-loop_320" -" id_130" -" rest_240)" -" id_130)))" -" id_129)))))" -" for-loop_320)" +"(for-loop_317" +" id_128" +" rest_239)" +" id_128)))" +" id_127)))))" +" for-loop_317)" " null" " lst_406)))))" "(reverse$1" -" id_128)))))))))" +" id_126)))))))))" "(values" " mod-path61_0" " id62_0))" @@ -69441,7 +69515,7 @@ static const char *startup_source = "(values" " all-from-except58_0" " mod-path59_0" -" id60_0))" +" id60_1))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" @@ -69461,7 +69535,7 @@ static const char *startup_source = " ns_125" " rp_1" " protected?_15" -" ctx_104)" +" ctx_102)" "(values" " null" "(list" @@ -69485,31 +69559,31 @@ static const char *startup_source = "(let-values(((orig-s_71)" " s_114))" "(let-values(((all-defined64_1)" -"(let-values(((s_786)" +"(let-values(((s_788)" "(if(syntax?$1" " s_114)" "(syntax-e$1" " s_114)" " s_114)))" "(if(pair?" -" s_786)" +" s_788)" "(let-values(((all-defined65_0)" -"(let-values(((s_437)" +"(let-values(((s_436)" "(car" -" s_786)))" -" s_437))" +" s_788)))" +" s_436))" "(()" -"(let-values(((s_224)" +"(let-values(((s_226)" "(cdr" -" s_786)))" -"(let-values(((s_427)" +" s_788)))" +"(let-values(((s_789)" "(if(syntax?$1" -" s_224)" +" s_226)" "(syntax-e$1" -" s_224)" -" s_224)))" +" s_226)" +" s_226)))" "(if(null?" -" s_427)" +" s_789)" "(values)" "(raise-syntax-error$1" " #f" @@ -69554,29 +69628,29 @@ static const char *startup_source = " s_228))" "(let-values(((all-defined-except66_1" " id67_1)" -"(let-values(((s_787)" +"(let-values(((s_790)" "(if(syntax?$1" " s_228)" "(syntax-e$1" " s_228)" " s_228)))" "(if(pair?" -" s_787)" +" s_790)" "(let-values(((all-defined-except68_0)" -"(let-values(((s_788)" +"(let-values(((s_791)" "(car" -" s_787)))" -" s_788))" +" s_790)))" +" s_791))" "((id69_0)" -"(let-values(((s_789)" +"(let-values(((s_792)" "(cdr" -" s_787)))" +" s_790)))" "(let-values(((s_462)" "(if(syntax?$1" -" s_789)" +" s_792)" "(syntax-e$1" -" s_789)" -" s_789)))" +" s_792)" +" s_792)))" "(let-values(((flat-s_52)" "(to-syntax-list.1" " s_462)))" @@ -69588,7 +69662,7 @@ static const char *startup_source = " \"bad syntax\"" " orig-s_72))" "(let-values()" -"(let-values(((id_133)" +"(let-values(((id_131)" "(let-values(((lst_39)" " flat-s_52))" "(begin" @@ -69598,8 +69672,8 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_39)))" -"((letrec-values(((for-loop_135)" -"(lambda(id_134" +"((letrec-values(((for-loop_133)" +"(lambda(id_132" " lst_408)" "(begin" " 'for-loop" @@ -69608,25 +69682,25 @@ static const char *startup_source = "(let-values(((s_463)" "(unsafe-car" " lst_408))" -"((rest_241)" +"((rest_240)" "(unsafe-cdr" " lst_408)))" +"(let-values(((id_133)" +"(let-values(((id_134)" +" id_132))" "(let-values(((id_135)" -"(let-values(((id_136)" -" id_134))" -"(let-values(((id_137)" "(let-values()" "(let-values(((id70_0)" "(let-values()" -"(if(let-values(((or-part_288)" +"(if(let-values(((or-part_289)" "(if(syntax?$1" " s_463)" "(symbol?" "(syntax-e$1" " s_463))" " #f)))" -"(if or-part_288" -" or-part_288" +"(if or-part_289" +" or-part_289" "(symbol?" " s_463)))" " s_463" @@ -69637,21 +69711,21 @@ static const char *startup_source = " s_463)))))" "(cons" " id70_0" -" id_136)))))" +" id_134)))))" "(values" -" id_137)))))" +" id_135)))))" "(if(not" " #f)" -"(for-loop_135" -" id_135" -" rest_241)" -" id_135)))" -" id_134)))))" -" for-loop_135)" +"(for-loop_133" +" id_133" +" rest_240)" +" id_133)))" +" id_132)))))" +" for-loop_133)" " null" " lst_39)))))" "(reverse$1" -" id_133)))))))))" +" id_131)))))))))" "(values" " all-defined-except68_0" " id69_0))" @@ -69705,10 +69779,10 @@ static const char *startup_source = "(if(pair?" " s_132)" "(let-values(((prefix-all-defined73_0)" -"(let-values(((s_330)" +"(let-values(((s_331)" "(car" " s_132)))" -" s_330))" +" s_331))" "((id:prefix74_0)" "(let-values(((s_133)" "(cdr" @@ -69722,38 +69796,38 @@ static const char *startup_source = "(if(pair?" " s_236)" "(let-values(((id:prefix75_0)" -"(let-values(((s_331)" +"(let-values(((s_332)" "(car" " s_236)))" -"(if(let-values(((or-part_290)" +"(if(let-values(((or-part_291)" "(if(syntax?$1" -" s_331)" +" s_332)" "(symbol?" "(syntax-e$1" -" s_331))" +" s_332))" " #f)))" -"(if or-part_290" -" or-part_290" +"(if or-part_291" +" or-part_291" "(symbol?" -" s_331)))" -" s_331" +" s_332)))" +" s_332" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_73" -" s_331))))" +" s_332))))" "(()" "(let-values(((s_134)" "(cdr" " s_236)))" -"(let-values(((s_333)" +"(let-values(((s_334)" "(if(syntax?$1" " s_134)" "(syntax-e$1" " s_134)" " s_134)))" "(if(null?" -" s_333)" +" s_334)" "(values)" "(raise-syntax-error$1" " #f" @@ -69805,73 +69879,73 @@ static const char *startup_source = " prefix-all-defined-except76_0" " id:prefix77_0" " id78_0)" -"(let-values(((s_790)" +"(let-values(((s_793)" " disarmed-spec_0))" "(let-values(((orig-s_74)" -" s_790))" +" s_793))" "(let-values(((prefix-all-defined-except76_1" " id:prefix77_1" " id78_1)" -"(let-values(((s_791)" +"(let-values(((s_794)" "(if(syntax?$1" -" s_790)" +" s_793)" "(syntax-e$1" -" s_790)" -" s_790)))" +" s_793)" +" s_793)))" "(if(pair?" -" s_791)" +" s_794)" "(let-values(((prefix-all-defined-except79_0)" -"(let-values(((s_533)" +"(let-values(((s_534)" "(car" -" s_791)))" -" s_533))" +" s_794)))" +" s_534))" "((id:prefix80_0" " id81_0)" -"(let-values(((s_792)" +"(let-values(((s_795)" "(cdr" -" s_791)))" +" s_794)))" "(let-values(((s_243)" "(if(syntax?$1" -" s_792)" +" s_795)" "(syntax-e$1" -" s_792)" -" s_792)))" +" s_795)" +" s_795)))" "(if(pair?" " s_243)" "(let-values(((id:prefix82_0)" -"(let-values(((s_534)" +"(let-values(((s_535)" "(car" " s_243)))" "(if(let-values(((or-part_345)" "(if(syntax?$1" -" s_534)" +" s_535)" "(symbol?" "(syntax-e$1" -" s_534))" +" s_535))" " #f)))" "(if or-part_345" " or-part_345" "(symbol?" -" s_534)))" -" s_534" +" s_535)))" +" s_535" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_74" -" s_534))))" +" s_535))))" "((id83_0)" -"(let-values(((s_348)" +"(let-values(((s_349)" "(cdr" " s_243)))" -"(let-values(((s_793)" +"(let-values(((s_796)" "(if(syntax?$1" -" s_348)" +" s_349)" "(syntax-e$1" -" s_348)" -" s_348)))" +" s_349)" +" s_349)))" "(let-values(((flat-s_53)" "(to-syntax-list.1" -" s_793)))" +" s_796)))" "(if(not" " flat-s_53)" "(let-values()" @@ -69880,7 +69954,7 @@ static const char *startup_source = " \"bad syntax\"" " orig-s_74))" "(let-values()" -"(let-values(((id_87)" +"(let-values(((id_86)" "(let-values(((lst_409)" " flat-s_53))" "(begin" @@ -69890,60 +69964,60 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_409)))" -"((letrec-values(((for-loop_321)" +"((letrec-values(((for-loop_318)" "(lambda(id_36" " lst_410)" "(begin" " 'for-loop" "(if(pair?" " lst_410)" -"(let-values(((s_794)" +"(let-values(((s_797)" "(unsafe-car" " lst_410))" -"((rest_242)" +"((rest_241)" "(unsafe-cdr" " lst_410)))" -"(let-values(((id_138)" -"(let-values(((id_139)" +"(let-values(((id_136)" +"(let-values(((id_137)" " id_36))" -"(let-values(((id_140)" +"(let-values(((id_138)" "(let-values()" "(let-values(((id84_3)" "(let-values()" -"(if(let-values(((or-part_399)" +"(if(let-values(((or-part_400)" "(if(syntax?$1" -" s_794)" +" s_797)" "(symbol?" "(syntax-e$1" -" s_794))" +" s_797))" " #f)))" -"(if or-part_399" -" or-part_399" +"(if or-part_400" +" or-part_400" "(symbol?" -" s_794)))" -" s_794" +" s_797)))" +" s_797" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_74" -" s_794)))))" +" s_797)))))" "(cons" " id84_3" -" id_139)))))" +" id_137)))))" "(values" -" id_140)))))" +" id_138)))))" "(if(not" " #f)" -"(for-loop_321" -" id_138" -" rest_242)" -" id_138)))" +"(for-loop_318" +" id_136" +" rest_241)" +" id_136)))" " id_36)))))" -" for-loop_321)" +" for-loop_318)" " null" " lst_409)))))" "(reverse$1" -" id_87)))))))))" +" id_86)))))))))" "(values" " id:prefix82_0" " id83_0))" @@ -69985,78 +70059,78 @@ static const char *startup_source = " expand85_0" " id86_0" " datum87_0)" -"(let-values(((s_795)" +"(let-values(((s_798)" " disarmed-spec_0))" "(let-values(((orig-s_75)" -" s_795))" +" s_798))" "(let-values(((expand85_1" " id86_1" " datum87_1)" -"(let-values(((s_796)" +"(let-values(((s_799)" "(if(syntax?$1" -" s_795)" +" s_798)" "(syntax-e$1" -" s_795)" -" s_795)))" +" s_798)" +" s_798)))" "(if(pair?" -" s_796)" +" s_799)" "(let-values(((expand88_0)" -"(let-values(((s_367)" +"(let-values(((s_368)" "(car" -" s_796)))" -" s_367))" +" s_799)))" +" s_368))" "((id89_2" " datum90_0)" -"(let-values(((s_368)" +"(let-values(((s_369)" "(cdr" -" s_796)))" -"(let-values(((s_797)" +" s_799)))" +"(let-values(((s_800)" "(if(syntax?$1" -" s_368)" +" s_369)" "(syntax-e$1" -" s_368)" -" s_368)))" +" s_369)" +" s_369)))" "(if(pair?" -" s_797)" +" s_800)" "(let-values(((id91_0" " datum92_0)" -"(let-values(((s_370)" -"(car" -" s_797)))" "(let-values(((s_371)" -"(if(syntax?$1" -" s_370)" -"(syntax-e$1" -" s_370)" -" s_370)))" -"(if(pair?" -" s_371)" -"(let-values(((id93_2)" -"(let-values(((s_373)" "(car" -" s_371)))" -"(if(let-values(((or-part_400)" +" s_800)))" +"(let-values(((s_372)" "(if(syntax?$1" -" s_373)" +" s_371)" +"(syntax-e$1" +" s_371)" +" s_371)))" +"(if(pair?" +" s_372)" +"(let-values(((id93_2)" +"(let-values(((s_374)" +"(car" +" s_372)))" +"(if(let-values(((or-part_401)" +"(if(syntax?$1" +" s_374)" "(symbol?" "(syntax-e$1" -" s_373))" +" s_374))" " #f)))" -"(if or-part_400" -" or-part_400" +"(if or-part_401" +" or-part_401" "(symbol?" -" s_373)))" -" s_373" +" s_374)))" +" s_374" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_75" -" s_373))))" +" s_374))))" "((datum94_0)" -"(let-values(((s_544)" +"(let-values(((s_546)" "(cdr" -" s_371)))" -" s_544)))" +" s_372)))" +" s_546)))" "(values" " id93_2" " datum94_0))" @@ -70065,17 +70139,17 @@ static const char *startup_source = " \"bad syntax\"" " orig-s_75)))))" "(()" -"(let-values(((s_545)" +"(let-values(((s_547)" "(cdr" -" s_797)))" -"(let-values(((s_798)" +" s_800)))" +"(let-values(((s_801)" "(if(syntax?$1" -" s_545)" +" s_547)" "(syntax-e$1" -" s_545)" -" s_545)))" +" s_547)" +" s_547)))" "(if(null?" -" s_798)" +" s_801)" "(values)" "(raise-syntax-error$1" " #f" @@ -70104,52 +70178,52 @@ static const char *startup_source = "(let-values(((ok?_76" " expand95_0" " form96_0)" -"(let-values(((s_799)" +"(let-values(((s_802)" " disarmed-spec_0))" "(let-values(((orig-s_76)" -" s_799))" +" s_802))" "(let-values(((expand95_1" " form96_1)" -"(let-values(((s_376)" +"(let-values(((s_377)" "(if(syntax?$1" -" s_799)" +" s_802)" "(syntax-e$1" -" s_799)" -" s_799)))" +" s_802)" +" s_802)))" "(if(pair?" -" s_376)" +" s_377)" "(let-values(((expand97_0)" "(let-values(((s_259)" "(car" -" s_376)))" +" s_377)))" " s_259))" "((form98_0)" -"(let-values(((s_377)" -"(cdr" -" s_376)))" "(let-values(((s_378)" -"(if(syntax?$1" -" s_377)" -"(syntax-e$1" -" s_377)" -" s_377)))" -"(if(pair?" -" s_378)" -"(let-values(((form99_0)" -"(let-values(((s_379)" -"(car" -" s_378)))" -" s_379))" -"(()" -"(let-values(((s_380)" "(cdr" +" s_377)))" +"(let-values(((s_379)" +"(if(syntax?$1" +" s_378)" +"(syntax-e$1" +" s_378)" " s_378)))" +"(if(pair?" +" s_379)" +"(let-values(((form99_0)" +"(let-values(((s_380)" +"(car" +" s_379)))" +" s_380))" +"(()" +"(let-values(((s_381)" +"(cdr" +" s_379)))" "(let-values(((s_260)" "(if(syntax?$1" -" s_380)" +" s_381)" "(syntax-e$1" -" s_380)" -" s_380)))" +" s_381)" +" s_381)))" "(if(null?" " s_260)" "(values)" @@ -70175,13 +70249,13 @@ static const char *startup_source = " expand95_1" " form96_1))))))" "(let-values(((exp-spec_0)" -"(let-values(((temp104_2)" +"(let-values(((temp104_3)" " form96_0)" -"((temp105_4)" -"(let-values(((v_267)" -" ctx_104))" +"((temp105_5)" +"(let-values(((v_266)" +" ctx_102))" "(let-values(((the-struct_99)" -" v_267))" +" v_266))" "(if(expand-context/outer?" " the-struct_99)" "(let-values(((def-ctx-scopes106_0)" @@ -70189,7 +70263,7 @@ static const char *startup_source = "((inner107_0)" "(let-values(((the-struct_100)" "(root-expand-context/outer-inner" -" v_267)))" +" v_266)))" "(if(expand-context/inner?" " the-struct_100)" "(let-values(((stops108_0)" @@ -70259,6 +70333,8 @@ static const char *startup_source = " inner107_0" "(root-expand-context/outer-post-expansion-scope" " the-struct_99)" +"(root-expand-context/outer-post-expansion-shifts" +" the-struct_99)" "(root-expand-context/outer-use-site-scopes" " the-struct_99)" "(root-expand-context/outer-frame-id" @@ -70292,8 +70368,8 @@ static const char *startup_source = " #f" " #f" " #f" -" temp104_2" -" temp105_4))))" +" temp104_3" +" temp105_5))))" "(let-values((()" "(begin" "(if(if(pair?" @@ -70321,18 +70397,18 @@ static const char *startup_source = "(let-values(((ok?_77" " begin100_0" " spec101_0)" -"(let-values(((s_800)" +"(let-values(((s_803)" " exp-spec_0))" "(let-values(((orig-s_77)" -" s_800))" +" s_803))" "(let-values(((begin100_1" " spec101_1)" "(let-values(((s_266)" "(if(syntax?$1" -" s_800)" +" s_803)" "(syntax-e$1" -" s_800)" -" s_800)))" +" s_803)" +" s_803)))" "(if(pair?" " s_266)" "(let-values(((begin102_0)" @@ -70341,15 +70417,15 @@ static const char *startup_source = " s_266)))" " s_267))" "((spec103_0)" -"(let-values(((s_801)" +"(let-values(((s_804)" "(cdr" " s_266)))" "(let-values(((s_268)" "(if(syntax?$1" -" s_801)" +" s_804)" "(syntax-e$1" -" s_801)" -" s_801)))" +" s_804)" +" s_804)))" "(let-values(((flat-s_54)" "(to-syntax-list.1" " s_268)))" @@ -70400,7 +70476,7 @@ static const char *startup_source = "(for-loop_96" " track-stxes_2" " exp-specs_2" -" rest_238)" +" rest_237)" "(values" " track-stxes_2" " exp-specs_2))))" @@ -70415,7 +70491,7 @@ static const char *startup_source = "(values(apply append track-stxess_0)(apply append exp-specss_0)))))))" " loop_117)" " specs_0" -" phase_43" +" phase_45" " #f" " 'raw)))))" "(define-values" @@ -70481,32 +70557,32 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_411)))" -"((letrec-values(((for-loop_322)" +"((letrec-values(((for-loop_319)" "(lambda(lst_412)" "(begin" " 'for-loop" "(if(pair? lst_412)" -"(let-values(((fmt_3)(unsafe-car lst_412))((rest_243)(unsafe-cdr lst_412)))" +"(let-values(((fmt_3)(unsafe-car lst_412))((rest_242)(unsafe-cdr lst_412)))" "(let-values((()" "(let-values()" "(let-values((()" "(let-values()" "(begin" "(let-values()" -"(let-values(((id_141)(mk_0 fmt_3)))" +"(let-values(((id_139)(mk_0 fmt_3)))" "(parse-identifier!" -" id_141" +" id_139" " orig-s_79" -"(syntax-e$1 id_141)" +"(syntax-e$1 id_139)" " 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_319 rest_242)(values))))" "(values))))))" -" for-loop_322)" +" for-loop_319)" " lst_411)))" "(void)" "(let-values(((lst_413) fields_0))" @@ -70514,12 +70590,12 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_413)))" -"((letrec-values(((for-loop_323)" +"((letrec-values(((for-loop_320)" "(lambda(lst_414)" "(begin" " 'for-loop" "(if(pair? lst_414)" -"(let-values(((field_0)(unsafe-car lst_414))((rest_244)(unsafe-cdr lst_414)))" +"(let-values(((field_0)(unsafe-car lst_414))((rest_243)(unsafe-cdr lst_414)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -70551,14 +70627,14 @@ static const char *startup_source = " protected?_17)))))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_323 rest_244)(values))))" +"(if(not #f)(for-loop_320 rest_243)(values))))" "(values))))))" -" for-loop_323)" +" for-loop_320)" " lst_413)))" "(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_105)" +"(lambda(mod-path-stx_0 orig-s_80 self_31 except-ids_0 at-phase_16 ns_128 rp_4 protected?_18 ctx_103)" "(begin" "(let-values(((mod-path_33)(syntax->datum$1 mod-path-stx_0)))" "(let-values((()" @@ -70568,7 +70644,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_54)(module-path->mpi/context mod-path_33 ctx_105)))" +"(let-values(((mpi_54)(module-path->mpi/context mod-path_33 ctx_103)))" "(parse-all-from-module mpi_54 #f orig-s_80 except-ids_0 #f at-phase_16 ns_128 rp_4 protected?_18)))))))" "(define-values" "(parse-all-from-module)" @@ -70607,42 +70683,42 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_415)))" -"((letrec-values(((for-loop_324)" +"((letrec-values(((for-loop_321)" "(lambda(lst_416)" "(begin" " 'for-loop" "(if(pair? lst_416)" -"(let-values(((i_185)(unsafe-car lst_416))" -"((rest_245)(unsafe-cdr lst_416)))" +"(let-values(((i_184)(unsafe-car lst_416))" +"((rest_244)(unsafe-cdr lst_416)))" "(let-values((()" "(let-values()" "(let-values((()" "(let-values()" "(begin" "(let-values()" -"(let-values(((id_142)" -"(required-id i_185)))" -"(let-values(((phase_140)" +"(let-values(((id_140)" +"(required-id i_184)))" +"(let-values(((phase_142)" "(required-phase" -" i_185)))" -"(if(let-values(((or-part_401)" +" i_184)))" +"(if(let-values(((or-part_402)" "(if matching-stx_0" "(not" "(if(eqv?" -" phase_140" +" phase_142" " at-phase_17)" "(free-identifier=?$1" -" id_142" +" id_140" "(datum->syntax$1" " matching-stx_0" "(syntax-e$1" -" id_142))" -" phase_140" -" phase_140)" +" id_140))" +" phase_142" +" phase_142)" " #f))" " #f)))" -"(if or-part_401" -" or-part_401" +"(if or-part_402" +" or-part_402" "(let-values(((lst_417)" " except-ids_1))" "(begin" @@ -70652,8 +70728,8 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_417)))" -"((letrec-values(((for-loop_325)" -"(lambda(result_127" +"((letrec-values(((for-loop_322)" +"(lambda(result_126" " lst_418)" "(begin" " 'for-loop" @@ -70662,53 +70738,53 @@ static const char *startup_source = "(let-values(((except-id_0)" "(unsafe-car" " lst_418))" -"((rest_246)" +"((rest_245)" "(unsafe-cdr" " lst_418)))" -"(let-values(((result_128)" +"(let-values(((result_127)" "(let-values()" -"(let-values(((result_129)" +"(let-values(((result_128)" "(let-values()" "(let-values()" "(if(free-identifier=?$1" -" id_142" +" id_140" " except-id_0" -" phase_140" -" phase_140)" +" phase_142" +" phase_142)" "(hash-set!" " found_0" " except-id_0" " #t)" " #f)))))" "(values" -" result_129)))))" +" result_128)))))" "(if(if(not" -"((lambda x_100" -" result_128)" +"((lambda x_99" +" result_127)" " except-id_0))" "(not" " #f)" " #f)" -"(for-loop_325" -" result_128" -" rest_246)" -" result_128)))" -" result_127)))))" -" for-loop_325)" +"(for-loop_322" +" result_127" +" rest_245)" +" result_127)))" +" result_126)))))" +" for-loop_322)" " #f" " lst_417)))))" "(void)" "(let-values()" "(let-values(((b_95)" "(resolve+shift/extra-inspector" -" id_142" -" phase_140" +" id_140" +" phase_142" " ns_129)))" "(let-values(((immed-b_1)" "(let-values(((id130_0)" -" id_142)" +" id_140)" "((phase131_0)" -" phase_140)" +" phase_142)" "((temp132_2)" " #t))" "(resolve+shift28.1" @@ -70724,22 +70800,22 @@ static const char *startup_source = "((temp122_1)" "(add-prefix_1" "(syntax-e$1" -" id_142)))" +" id_140)))" "((phase123_0)" -" phase_140)" +" phase_142)" "((b124_0)" " b_95)" "((immed-b125_0)" " immed-b_1)" "((id126_1)" -" id_142)" +" id_140)" "((orig-s127_0)" " orig-s_81)" "((protected?128_0)" " protected?_19)" "((temp129_2)" "(required-as-transformer?" -" i_185)))" +" i_184)))" "(add-provide!117.1" " protected?128_0" " temp129_2" @@ -70752,9 +70828,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_321 rest_244)(values))))" "(values))))))" -" for-loop_324)" +" for-loop_321)" " lst_415)))" "(void)" "(if(=(hash-count found_0)(length except-ids_1))" @@ -70766,26 +70842,26 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_419)))" -"((letrec-values(((for-loop_326)" +"((letrec-values(((for-loop_323)" "(lambda(lst_420)" "(begin" " 'for-loop" "(if(pair? lst_420)" "(let-values(((except-id_1)(unsafe-car lst_420))" -"((rest_247)(unsafe-cdr lst_420)))" +"((rest_246)(unsafe-cdr lst_420)))" "(let-values((()" "(let-values()" "(let-values((()" "(let-values()" "(begin" "(let-values()" -"(if(let-values(((or-part_402)" +"(if(let-values(((or-part_403)" "(hash-ref" " found_0" " except-id_1" " #f)))" -"(if or-part_402" -" or-part_402" +"(if or-part_403" +" or-part_403" "(let-values(((lst_421)" " requireds_2))" "(begin" @@ -70795,50 +70871,50 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_421)))" -"((letrec-values(((for-loop_327)" -"(lambda(result_130" +"((letrec-values(((for-loop_324)" +"(lambda(result_129" " lst_422)" "(begin" " 'for-loop" "(if(pair?" " lst_422)" -"(let-values(((i_186)" +"(let-values(((i_185)" "(unsafe-car" " lst_422))" -"((rest_248)" +"((rest_247)" "(unsafe-cdr" " lst_422)))" +"(let-values(((result_130)" +"(let-values()" "(let-values(((result_131)" "(let-values()" -"(let-values(((result_132)" "(let-values()" -"(let-values()" -"(let-values(((id_143)" +"(let-values(((id_141)" "(required-id" -" i_186)))" -"(let-values(((phase_141)" +" i_185)))" +"(let-values(((phase_143)" "(required-phase" -" i_186)))" +" i_185)))" "(free-identifier=?$1" -" id_143" +" id_141" " except-id_1" -" phase_141" -" phase_141)))))))" +" phase_143" +" phase_143)))))))" "(values" -" result_132)))))" +" result_131)))))" "(if(if(not" -"((lambda x_101" -" result_131)" -" i_186))" +"((lambda x_100" +" result_130)" +" i_185))" "(not" " #f)" " #f)" -"(for-loop_327" -" result_131" -" rest_248)" -" result_131)))" -" result_130)))))" -" for-loop_327)" +"(for-loop_324" +" result_130" +" rest_247)" +" result_130)))" +" result_129)))))" +" for-loop_324)" " #f" " lst_421)))))" "(void)" @@ -70854,9 +70930,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_323 rest_246)(values))))" "(values))))))" -" for-loop_326)" +" for-loop_323)" " lst_419)))" "(void)))))))))))))" "(define-values" @@ -70873,7 +70949,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_423)))" -"((letrec-values(((for-loop_328)" +"((letrec-values(((for-loop_325)" "(lambda(lst_85)" "(begin" " 'for-loop" @@ -70921,9 +70997,9 @@ static const char *startup_source = " p_46))))))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_328 rest_40)(values))))" +"(if(not #f)(for-loop_325 rest_40)(values))))" "(values))))))" -" for-loop_328)" +" for-loop_325)" " lst_423)))" "(void)))))" "((check-expr_0)" @@ -70950,13 +71026,13 @@ 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_326)" "(lambda(lst_86)" "(begin" " 'for-loop" "(if(pair? lst_86)" "(let-values(((rand_0)(unsafe-car lst_86))" -"((rest_249)(unsafe-cdr lst_86)))" +"((rest_248)(unsafe-cdr lst_86)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -70970,10 +71046,10 @@ static const char *startup_source = "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_329 rest_249)" +"(for-loop_326 rest_248)" "(values))))" "(values))))))" -" for-loop_329)" +" for-loop_326)" " lst_78)))" "(void)" "(let-values(((tmp_64)(cross-phase-primitive-name(parsed-app-rator e_91))))" @@ -71014,13 +71090,13 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_266)))" -"((letrec-values(((for-loop_240)" +"((letrec-values(((for-loop_239)" "(lambda(lst_424)" "(begin" " 'for-loop" "(if(pair? lst_424)" "(let-values(((clause_5)(unsafe-car lst_424))" -"((rest_250)(unsafe-cdr lst_424)))" +"((rest_249)(unsafe-cdr lst_424)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -71031,9 +71107,9 @@ static const char *startup_source = "(cadr clause_5)))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_240 rest_250)(values))))" +"(if(not #f)(for-loop_239 rest_249)(values))))" "(values))))))" -" for-loop_240)" +" for-loop_239)" " lst_266)))" "(void)))" "(if(parsed-app? e_92)" @@ -71051,7 +71127,7 @@ static const char *startup_source = " 'for-loop" "(if(pair? lst_160)" "(let-values(((e_93)(unsafe-car lst_160))" -"((rest_83)(unsafe-cdr lst_160)))" +"((rest_82)(unsafe-cdr lst_160)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -71062,7 +71138,7 @@ static const char *startup_source = " e_93))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_107 rest_83)(values))))" +"(if(not #f)(for-loop_107 rest_82)(values))))" "(values))))))" " for-loop_107)" " lst_217)))" @@ -71108,14 +71184,14 @@ 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_188)" "(lambda(lst_90)" "(begin" " 'for-loop" "(if(pair? lst_90)" "(let-values(((clause_6)" "(unsafe-car lst_90))" -"((rest_142)" +"((rest_141)" "(unsafe-cdr lst_90)))" "(let-values((()" "(let-values()" @@ -71129,15 +71205,15 @@ static const char *startup_source = "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_190 rest_142)" +"(for-loop_188 rest_141)" "(values))))" "(values))))))" -" for-loop_190)" +" for-loop_188)" " lst_23)))" "(void)" "(check-body-no-disallowed-expr_0(parsed-let_-values-body e_92))))" -"(if(let-values(((or-part_403)(parsed-quote-syntax? e_92)))" -"(if or-part_403 or-part_403(parsed-#%variable-reference? 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)))" "(let-values()(disallow e_92))" "(let-values()(void)))))))))))))))" "((check-body-no-disallowed-expr_0)" @@ -71150,13 +71226,13 @@ 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_327)" "(lambda(lst_58)" "(begin" " 'for-loop" "(if(pair? lst_58)" "(let-values(((e_82)(unsafe-car lst_58))" -"((rest_195)(unsafe-cdr lst_58)))" +"((rest_194)(unsafe-cdr lst_58)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -71167,9 +71243,9 @@ static const char *startup_source = " e_82))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_330 rest_195)(values))))" +"(if(not #f)(for-loop_327 rest_194)(values))))" "(values))))))" -" for-loop_330)" +" for-loop_327)" " lst_81)))" "(void))))))" "(check-body_0 bodys_13)))))" @@ -71201,11 +71277,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_142)" "(begin" -"(if(parsed-id? id_144)" +"(if(parsed-id? id_142)" "(let-values()" -"(let-values(((b_87)(parsed-id-binding id_144)))" +"(let-values(((b_87)(parsed-id-binding id_142)))" "(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)" @@ -71223,46 +71299,46 @@ static const char *startup_source = "(void" "(add-core-form!*" " 'module" -"(lambda(s_43 ctx_106)" +"(lambda(s_43 ctx_104)" "(begin" -"(if(eq?(expand-context-context ctx_106) 'top-level)" +"(if(eq?(expand-context-context ctx_104) 'top-level)" "(void)" "(let-values()" "(begin" -"(let-values(((obs_124)(expand-context-observer ctx_106)))" +"(let-values(((obs_124)(expand-context-observer ctx_104)))" "(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_106)((temp225_2) #f))" +"(let-values(((s223_0) s_43)((ctx224_0) ctx_104)((temp225_2) #f))" "(expand-module18.1 #f #f #f #f #f unsafe-undefined #f s223_0 ctx224_0 temp225_2)))))))" "(void" "(add-core-form!*" " 'module*" -"(lambda(s_306 ctx_107)" +"(lambda(s_307 ctx_105)" "(begin" -"(let-values(((obs_125)(expand-context-observer ctx_107)))" +"(let-values(((obs_125)(expand-context-observer ctx_105)))" "(if obs_125(let-values()(let-values()(call-expand-observe obs_125 'prim-module)))(void)))" -" (raise-syntax-error$1 #f \"illegal use (not in a module top-level)\" s_306)))))" +" (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_108)" +"(lambda(s_91 ctx_106)" "(begin" -"(let-values(((obs_126)(expand-context-observer ctx_108)))" +"(let-values(((obs_126)(expand-context-observer ctx_106)))" "(if obs_126(let-values()(let-values()(call-expand-observe obs_126 'prim-module-begin)))(void)))" -"(if(eq?(expand-context-context ctx_108) 'module-begin)" +"(if(eq?(expand-context-context ctx_106) '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_108)" +"(if(expand-context-module-begin-k ctx_106)" "(void)" " (let-values () (raise-syntax-error$1 #f \"not currently transforming a module\" s_91)))" -"((expand-context-module-begin-k ctx_108)" +"((expand-context-module-begin-k ctx_106)" " s_91" -"(let-values(((v_268) ctx_108))" -"(let-values(((the-struct_101) v_268))" +"(let-values(((v_267) ctx_106))" +"(let-values(((the-struct_101) v_267))" "(if(expand-context/outer? the-struct_101)" "(let-values(((inner226_0)" -"(let-values(((the-struct_102)(root-expand-context/outer-inner v_268)))" +"(let-values(((the-struct_102)(root-expand-context/outer-inner v_267)))" "(if(expand-context/inner? the-struct_102)" "(let-values(((module-begin-k227_0) #f))" "(expand-context/inner2.1" @@ -71296,6 +71372,7 @@ static const char *startup_source = "(expand-context/outer1.1" " inner226_0" "(root-expand-context/outer-post-expansion-scope the-struct_101)" +"(root-expand-context/outer-post-expansion-shifts 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)" @@ -71313,11 +71390,11 @@ static const char *startup_source = "(void" "(add-core-form!*" " '#%declare" -"(lambda(s_802 ctx_109)" +"(lambda(s_805 ctx_107)" "(begin" -"(let-values(((obs_127)(expand-context-observer ctx_109)))" +"(let-values(((obs_127)(expand-context-observer ctx_107)))" "(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_802)))))" +" (raise-syntax-error$1 #f \"not allowed outside of a module body\" s_805)))))" "(define-values" "(expand-module18.1)" "(lambda(always-produce-compiled?1_0" @@ -71332,7 +71409,7 @@ static const char *startup_source = " enclosing-self17_0)" "(begin" " 'expand-module18" -"(let-values(((s_803) s15_2))" +"(let-values(((s_806) s15_2))" "(let-values(((init-ctx_0) init-ctx16_0))" "(let-values(((enclosing-self_1) enclosing-self17_0))" "(let-values(((always-produce-compiled?_0) always-produce-compiled?1_0))" @@ -71354,7 +71431,7 @@ static const char *startup_source = "(let-values()(call-expand-observe obs_128 'prim-module)))" "(void)))" "(values))))" -"(let-values(((disarmed-s_24)(syntax-disarm$1 s_803)))" +"(let-values(((disarmed-s_24)(syntax-disarm$1 s_806)))" "(let-values(((ok?_78 module228_0 id:module-name229_0 initial-require230_0 body231_0)" "(let-values(((s_51) disarmed-s_24))" "(let-values(((orig-s_82) s_51))" @@ -71373,55 +71450,55 @@ static const char *startup_source = "((id:module-name233_0" " initial-require234_0" " body235_0)" -"(let-values(((s_310)(cdr s_506)))" +"(let-values(((s_311)(cdr s_506)))" "(let-values(((s_93)" -"(if(syntax?$1 s_310)" -"(syntax-e$1 s_310)" -" s_310)))" +"(if(syntax?$1 s_311)" +"(syntax-e$1 s_311)" +" s_311)))" "(if(pair? s_93)" "(let-values(((id:module-name236_0)" -"(let-values(((s_312)" +"(let-values(((s_313)" "(car" " s_93)))" "(if(let-values(((or-part_48)" "(if(syntax?$1" -" s_312)" +" s_313)" "(symbol?" "(syntax-e$1" -" s_312))" +" s_313))" " #f)))" "(if or-part_48" " or-part_48" "(symbol?" -" s_312)))" -" s_312" +" s_313)))" +" s_313" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_82" -" s_312))))" +" s_313))))" "((initial-require237_0" " body238_0)" "(let-values(((s_55)" "(cdr" " s_93)))" -"(let-values(((s_452)" +"(let-values(((s_451)" "(if(syntax?$1" " s_55)" "(syntax-e$1" " s_55)" " s_55)))" "(if(pair?" -" s_452)" +" s_451)" "(let-values(((initial-require239_0)" "(let-values(((s_56)" "(car" -" s_452)))" +" s_451)))" " s_56))" "((body240_0)" "(let-values(((s_33)" "(cdr" -" s_452)))" +" s_451)))" "(let-values(((s_508)" "(if(syntax?$1" " s_33)" @@ -71469,7 +71546,7 @@ static const char *startup_source = " body231_1))))))" "(let-values(((rebuild-s_14)" "(let-values(((init-ctx253_0) init-ctx_0)" -"((s254_0) s_803)" +"((s254_0) s_806)" "((temp255_0) #t)" "((temp256_0) #t))" "(keep-as-needed119.1 #f temp256_0 temp255_0 init-ctx253_0 s254_0))))" @@ -71485,10 +71562,10 @@ static const char *startup_source = "(raise-syntax-error$1" " #f" " \"not a module path\"" -" s_803" +" s_806" " initial-require230_0)))" "(values))))" -"(let-values(((phase_142) 0))" +"(let-values(((phase_144) 0))" "(let-values(((module-name-sym_0)(syntax-e$1 id:module-name229_0)))" "(let-values(((outside-scope_1)(new-scope 'module)))" "(let-values(((inside-scope_0)(new-multi-scope module-name-sym_0)))" @@ -71595,117 +71672,119 @@ static const char *startup_source = "(make-m-ns244_0" " unsafe-undefined" " temp266_0))))" -"(let-values(((ctx_110)" +"(let-values(((ctx_108)" "(let-values(((v_261)" "(copy-root-expand-context" " init-ctx_0" " root-ctx_6)))" -"(let-values(((the-struct_92)" +"(let-values(((the-struct_93)" " v_261))" "(if(expand-context/outer?" -" the-struct_92)" +" the-struct_93)" "(let-values(((post-expansion-scope-action267_0)" " add-scope)" "((inner268_0)" -"(let-values(((the-struct_53)" +"(let-values(((the-struct_54)" "(root-expand-context/outer-inner" " v_261)))" "(if(expand-context/inner?" -" the-struct_53)" +" the-struct_54)" "(let-values(((allow-unbound?269_0)" " #f)" "((namespace270_0)" " m-ns_19)" "((phase271_0)" -" phase_142)" +" phase_144)" "((just-once?272_0)" " #f))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi" -" the-struct_53)" +" the-struct_54)" "(root-expand-context/inner-module-scopes" -" the-struct_53)" +" the-struct_54)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_53)" +" the-struct_54)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_53)" +" the-struct_54)" "(root-expand-context/inner-defined-syms" -" the-struct_53)" +" the-struct_54)" "(root-expand-context/inner-counter" -" the-struct_53)" +" the-struct_54)" "(root-expand-context/inner-lift-key" -" the-struct_53)" +" the-struct_54)" "(expand-context/inner-to-parsed?" -" the-struct_53)" +" the-struct_54)" " phase271_0" " namespace270_0" " just-once?272_0" "(expand-context/inner-module-begin-k" -" the-struct_53)" +" the-struct_54)" " allow-unbound?269_0" "(expand-context/inner-in-local-expand?" -" the-struct_53)" +" the-struct_54)" "(expand-context/inner-keep-#%expression?" -" the-struct_53)" +" the-struct_54)" "(expand-context/inner-stops" -" the-struct_53)" +" the-struct_54)" "(expand-context/inner-declared-submodule-names" -" the-struct_53)" +" the-struct_54)" "(expand-context/inner-lifts" -" the-struct_53)" +" the-struct_54)" "(expand-context/inner-lift-envs" -" the-struct_53)" +" the-struct_54)" "(expand-context/inner-module-lifts" -" the-struct_53)" +" the-struct_54)" "(expand-context/inner-require-lifts" -" the-struct_53)" +" the-struct_54)" "(expand-context/inner-to-module-lifts" -" the-struct_53)" +" the-struct_54)" "(expand-context/inner-requires+provides" -" the-struct_53)" +" the-struct_54)" "(expand-context/inner-observer" -" the-struct_53)" +" the-struct_54)" "(expand-context/inner-for-serializable?" -" the-struct_53)" +" the-struct_54)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_53)))" +" the-struct_54)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_53)))))" +" the-struct_54)))))" "(expand-context/outer1.1" " inner268_0" "(root-expand-context/outer-post-expansion-scope" -" the-struct_92)" +" the-struct_93)" +"(root-expand-context/outer-post-expansion-shifts" +" 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)" +" the-struct_93)" "(expand-context/outer-env" -" the-struct_92)" +" the-struct_93)" " post-expansion-scope-action267_0" "(expand-context/outer-scopes" -" the-struct_92)" +" the-struct_93)" "(expand-context/outer-def-ctx-scopes" -" the-struct_92)" +" the-struct_93)" "(expand-context/outer-binding-layer" -" the-struct_92)" +" the-struct_93)" "(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-name" -" the-struct_92)))" +" the-struct_93)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_92))))))" +" the-struct_93))))))" "(let-values(((bodys_15)" "(let-values(((scoped-s_0)" "(apply-module-scopes_0" @@ -71715,39 +71794,39 @@ static const char *startup_source = " _274_0" " _275_0" " body276_0)" -"(let-values(((s_523)" +"(let-values(((s_524)" " scoped-s_0))" "(let-values(((orig-s_83)" -" s_523))" +" s_524))" "(let-values(((_273_1" " _274_1" " _275_1" " body276_1)" -"(let-values(((s_210)" +"(let-values(((s_211)" "(if(syntax?$1" -" s_523)" +" s_524)" "(syntax-e$1" -" s_523)" -" s_523)))" +" s_524)" +" s_524)))" "(if(pair?" -" s_210)" +" s_211)" "(let-values(((_277_2)" -"(let-values(((s_526)" +"(let-values(((s_527)" "(car" -" s_210)))" -" s_526))" +" s_211)))" +" s_527))" "((_278_0" " _279_1" " body280_0)" -"(let-values(((s_527)" +"(let-values(((s_528)" "(cdr" -" s_210)))" +" s_211)))" "(let-values(((s_97)" "(if(syntax?$1" -" s_527)" +" s_528)" "(syntax-e$1" -" s_527)" -" s_527)))" +" s_528)" +" s_528)))" "(if(pair?" " s_97)" "(let-values(((_281_0)" @@ -71757,26 +71836,26 @@ static const char *startup_source = " s_459))" "((_282_1" " body283_0)" -"(let-values(((s_804)" +"(let-values(((s_807)" "(cdr" " s_97)))" -"(let-values(((s_805)" +"(let-values(((s_808)" "(if(syntax?$1" -" s_804)" +" s_807)" "(syntax-e$1" -" s_804)" -" s_804)))" +" s_807)" +" s_807)))" "(if(pair?" -" s_805)" +" s_808)" "(let-values(((_284_0)" -"(let-values(((s_160)" +"(let-values(((s_416)" "(car" -" s_805)))" -" s_160))" +" s_808)))" +" s_416))" "((body285_0)" "(let-values(((s_39)" "(cdr" -" s_805)))" +" s_808)))" "(let-values(((s_98)" "(if(syntax?$1" " s_39)" @@ -71921,10 +72000,10 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(let-values(((temp252_0)" +"(let-values(((temp252_1)" " #t))" "(initial-require!249_0" -" temp252_0))" +" temp252_1))" "(values))))" "(let-values(((again?_0)" " #f))" @@ -71956,22 +72035,22 @@ static const char *startup_source = "(set! again?_0" " #t)" "(values))))" -"(let-values(((ctx_111)" -"(let-values(((v_134)" +"(let-values(((ctx_109)" +"(let-values(((v_268)" " mb-init-ctx_0))" -"(let-values(((the-struct_43)" -" v_134))" -"(if(expand-context/outer?" -" the-struct_43)" -"(let-values(((inner306_0)" "(let-values(((the-struct_103)" -"(root-expand-context/outer-inner" -" v_134)))" -"(if(expand-context/inner?" +" v_268))" +"(if(expand-context/outer?" " the-struct_103)" +"(let-values(((inner306_0)" +"(let-values(((the-struct_104)" +"(root-expand-context/outer-inner" +" v_268)))" +"(if(expand-context/inner?" +" the-struct_104)" "(let-values(((module-begin-k307_0)" -"(lambda(s_436" -" ctx_112)" +"(lambda(s_435" +" ctx_110)" "(begin" " 'module-begin-k307" "(let-values(((new-requires+provides_0)" @@ -72012,8 +72091,8 @@ static const char *startup_source = " defined-syms315_0)))" "(lambda()" "(module-begin-k_1" -" s_436" -" ctx_112))" +" s_435" +" ctx_110))" "(lambda()" "(begin" "(set! requires+provides_6" @@ -72026,94 +72105,96 @@ static const char *startup_source = " defined-syms311_0))))))))))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi" -" the-struct_103)" +" the-struct_104)" "(root-expand-context/inner-module-scopes" -" the-struct_103)" +" the-struct_104)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_103)" +" the-struct_104)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_103)" +" the-struct_104)" "(root-expand-context/inner-defined-syms" -" the-struct_103)" +" the-struct_104)" "(root-expand-context/inner-counter" -" the-struct_103)" +" the-struct_104)" "(root-expand-context/inner-lift-key" -" the-struct_103)" +" the-struct_104)" "(expand-context/inner-to-parsed?" -" the-struct_103)" +" the-struct_104)" "(expand-context/inner-phase" -" the-struct_103)" +" the-struct_104)" "(expand-context/inner-namespace" -" the-struct_103)" +" the-struct_104)" "(expand-context/inner-just-once?" -" the-struct_103)" +" the-struct_104)" " module-begin-k307_0" "(expand-context/inner-allow-unbound?" -" the-struct_103)" +" the-struct_104)" "(expand-context/inner-in-local-expand?" -" the-struct_103)" +" the-struct_104)" "(expand-context/inner-keep-#%expression?" -" the-struct_103)" +" the-struct_104)" "(expand-context/inner-stops" -" the-struct_103)" +" the-struct_104)" "(expand-context/inner-declared-submodule-names" -" the-struct_103)" +" the-struct_104)" "(expand-context/inner-lifts" -" the-struct_103)" +" the-struct_104)" "(expand-context/inner-lift-envs" -" the-struct_103)" +" the-struct_104)" "(expand-context/inner-module-lifts" -" the-struct_103)" +" the-struct_104)" "(expand-context/inner-require-lifts" -" the-struct_103)" +" the-struct_104)" "(expand-context/inner-to-module-lifts" -" the-struct_103)" +" the-struct_104)" "(expand-context/inner-requires+provides" -" the-struct_103)" +" the-struct_104)" "(expand-context/inner-observer" -" the-struct_103)" +" the-struct_104)" "(expand-context/inner-for-serializable?" -" the-struct_103)" +" the-struct_104)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_103)))" +" the-struct_104)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_103)))))" +" the-struct_104)))))" "(expand-context/outer1.1" " inner306_0" "(root-expand-context/outer-post-expansion-scope" -" the-struct_43)" +" the-struct_103)" +"(root-expand-context/outer-post-expansion-shifts" +" the-struct_103)" "(root-expand-context/outer-use-site-scopes" -" the-struct_43)" +" the-struct_103)" "(root-expand-context/outer-frame-id" -" the-struct_43)" +" the-struct_103)" "(expand-context/outer-context" -" the-struct_43)" +" the-struct_103)" "(expand-context/outer-env" -" the-struct_43)" +" the-struct_103)" "(expand-context/outer-post-expansion-scope-action" -" the-struct_43)" +" the-struct_103)" "(expand-context/outer-scopes" -" the-struct_43)" +" the-struct_103)" "(expand-context/outer-def-ctx-scopes" -" the-struct_43)" +" the-struct_103)" "(expand-context/outer-binding-layer" -" the-struct_43)" +" the-struct_103)" "(expand-context/outer-reference-records" -" the-struct_43)" +" the-struct_103)" "(expand-context/outer-only-immediate?" -" the-struct_43)" +" the-struct_103)" "(expand-context/outer-need-eventually-defined" -" the-struct_43)" +" the-struct_103)" "(expand-context/outer-current-introduction-scopes" -" the-struct_43)" +" the-struct_103)" "(expand-context/outer-name" -" the-struct_43)))" +" the-struct_103)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_43))))))" +" the-struct_103))))))" "(let-values(((added-s_2)" "(add-scope" " mb-s_0" @@ -72122,7 +72203,7 @@ static const char *startup_source = "(begin" "(let-values(((obs_20)" "(expand-context-observer" -" ctx_111)))" +" ctx_109)))" "(if obs_20" "(let-values()" "(let-values()" @@ -72138,30 +72219,30 @@ static const char *startup_source = "(let-values(((ok?_80" " #%module-begin301_0" " body302_0)" -"(let-values(((s_427)" +"(let-values(((s_789)" " disarmed-mb-s_0))" "(let-values(((orig-s_84)" -" s_427))" +" s_789))" "(let-values(((#%module-begin301_1" " body302_1)" "(let-values(((s_119)" "(if(syntax?$1" -" s_427)" +" s_789)" "(syntax-e$1" -" s_427)" -" s_427)))" +" s_789)" +" s_789)))" "(if(pair?" " s_119)" "(let-values(((#%module-begin303_0)" -"(let-values(((s_806)" +"(let-values(((s_809)" "(car" " s_119)))" -" s_806))" +" s_809))" "((body304_0)" "(let-values(((s_121)" "(cdr" " s_119)))" -"(let-values(((s_226)" +"(let-values(((s_164)" "(if(syntax?$1" " s_121)" "(syntax-e$1" @@ -72169,7 +72250,7 @@ static const char *startup_source = " s_121)))" "(let-values(((flat-s_57)" "(to-syntax-list.1" -" s_226)))" +" s_164)))" "(if(not" " flat-s_57)" "(let-values()" @@ -72194,7 +72275,7 @@ static const char *startup_source = " body302_0))" "(let-values(((rebuild-mb-s_0)" "(let-values(((ctx318_0)" -" ctx_111)" +" ctx_109)" "((mb-s319_0)" " mb-s_0))" "(keep-as-needed119.1" @@ -72214,7 +72295,7 @@ static const char *startup_source = "(let-values(((expression-expanded-bodys_0)" "((letrec-values(((pass-1-and-2-loop_0)" "(lambda(bodys_17" -" phase_143)" +" phase_145)" "(begin" " 'pass-1-and-2-loop" "(let-values(((def-ctx-scopes_8)" @@ -72222,14 +72303,14 @@ static const char *startup_source = " null)))" "(let-values(((to-parsed?_5)" "(expand-context-to-parsed?" -" ctx_111)))" +" ctx_109)))" "(let-values(((partial-body-ctx_0)" "(let-values(((v_269)" -" ctx_111))" -"(let-values(((the-struct_104)" +" ctx_109))" +"(let-values(((the-struct_105)" " v_269))" "(if(expand-context/outer?" -" the-struct_104)" +" the-struct_105)" "(let-values(((context328_0)" " 'module)" "((def-ctx-scopes329_0)" @@ -72237,22 +72318,22 @@ static const char *startup_source = "((need-eventually-defined330_0)" " need-eventually-defined_1)" "((inner331_0)" -"(let-values(((the-struct_105)" +"(let-values(((the-struct_106)" "(root-expand-context/outer-inner" " v_269)))" "(if(expand-context/inner?" -" the-struct_105)" +" the-struct_106)" "(let-values(((phase332_0)" -" phase_143)" +" phase_145)" "((namespace333_0)" "(namespace->namespace-at-phase" " m-ns_19" -" phase_143))" +" phase_145))" "((stops334_0)" "(free-id-set" -" phase_143" +" phase_145" "(module-expand-stop-ids" -" phase_143)))" +" phase_145)))" "((declared-submodule-names335_0)" " declared-submodule-names_3)" "((lift-key336_0)" @@ -72271,11 +72352,11 @@ static const char *startup_source = " temp341_0)))" "((module-lifts338_0)" "(make-module-lift-context" -" phase_143" +" phase_145" " #t))" "((require-lifts339_0)" "(make-require-lift-context" -" phase_143" +" phase_145" "(let-values(((m-ns342_0)" " m-ns_19)" "((self343_0)" @@ -72291,7 +72372,7 @@ static const char *startup_source = " requires+provides344_0))))" "((to-module-lifts340_0)" "(let-values(((phase346_0)" -" phase_143)" +" phase_145)" "((module-ends347_0)" " module-ends_0)" "((temp348_0)" @@ -72302,88 +72383,90 @@ static const char *startup_source = " phase346_0))))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi" -" the-struct_105)" +" the-struct_106)" "(root-expand-context/inner-module-scopes" -" the-struct_105)" +" the-struct_106)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_105)" +" the-struct_106)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_105)" +" the-struct_106)" "(root-expand-context/inner-defined-syms" -" the-struct_105)" +" the-struct_106)" "(root-expand-context/inner-counter" -" the-struct_105)" +" the-struct_106)" " lift-key336_0" "(expand-context/inner-to-parsed?" -" the-struct_105)" +" the-struct_106)" " phase332_0" " namespace333_0" "(expand-context/inner-just-once?" -" the-struct_105)" +" the-struct_106)" "(expand-context/inner-module-begin-k" -" the-struct_105)" +" the-struct_106)" "(expand-context/inner-allow-unbound?" -" the-struct_105)" +" the-struct_106)" "(expand-context/inner-in-local-expand?" -" the-struct_105)" +" the-struct_106)" "(expand-context/inner-keep-#%expression?" -" the-struct_105)" +" the-struct_106)" " stops334_0" " declared-submodule-names335_0" " lifts337_0" "(expand-context/inner-lift-envs" -" the-struct_105)" +" the-struct_106)" " module-lifts338_0" " require-lifts339_0" " to-module-lifts340_0" "(expand-context/inner-requires+provides" -" the-struct_105)" +" the-struct_106)" "(expand-context/inner-observer" -" the-struct_105)" +" the-struct_106)" "(expand-context/inner-for-serializable?" -" the-struct_105)" +" the-struct_106)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_105)))" +" the-struct_106)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_105)))))" +" the-struct_106)))))" "(expand-context/outer1.1" " inner331_0" "(root-expand-context/outer-post-expansion-scope" -" the-struct_104)" +" the-struct_105)" +"(root-expand-context/outer-post-expansion-shifts" +" the-struct_105)" "(root-expand-context/outer-use-site-scopes" -" the-struct_104)" +" the-struct_105)" "(root-expand-context/outer-frame-id" -" the-struct_104)" +" the-struct_105)" " context328_0" "(expand-context/outer-env" -" the-struct_104)" +" the-struct_105)" "(expand-context/outer-post-expansion-scope-action" -" the-struct_104)" +" the-struct_105)" "(expand-context/outer-scopes" -" the-struct_104)" +" the-struct_105)" " def-ctx-scopes329_0" "(expand-context/outer-binding-layer" -" the-struct_104)" +" the-struct_105)" "(expand-context/outer-reference-records" -" the-struct_104)" +" the-struct_105)" "(expand-context/outer-only-immediate?" -" the-struct_104)" +" the-struct_105)" " need-eventually-defined330_0" "(expand-context/outer-current-introduction-scopes" -" the-struct_104)" +" the-struct_105)" "(expand-context/outer-name" -" the-struct_104)))" +" the-struct_105)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_104))))))" +" the-struct_105))))))" "(let-values(((partially-expanded-bodys_0)" "(let-values(((bodys349_0)" " bodys_17)" "((phase350_0)" -" phase_143)" +" phase_145)" "((partial-body-ctx351_0)" " partial-body-ctx_0)" "((m-ns352_0)" @@ -72443,12 +72526,12 @@ static const char *startup_source = "(void)))" "(values))))" "(let-values(((body-ctx_6)" -"(let-values(((v_263)" +"(let-values(((v_262)" "(accumulate-def-ctx-scopes" " partial-body-ctx_0" " def-ctx-scopes_8)))" "(let-values(((the-struct_94)" -" v_263))" +" v_262))" "(if(expand-context/outer?" " the-struct_94)" "(let-values(((def-ctx-scopes365_0)" @@ -72456,16 +72539,16 @@ static const char *startup_source = "((post-expansion-scope366_0)" " #f)" "((inner367_0)" -"(let-values(((the-struct_106)" +"(let-values(((the-struct_107)" "(root-expand-context/outer-inner" -" v_263)))" +" v_262)))" "(if(expand-context/inner?" -" the-struct_106)" +" the-struct_107)" "(let-values(((stops368_0)" " empty-free-id-set)" "((to-module-lifts369_0)" "(let-values(((phase370_0)" -" phase_143)" +" phase_145)" "((module-ends371_0)" " module-ends_0)" "((temp372_0)" @@ -72476,62 +72559,64 @@ static const char *startup_source = " phase370_0))))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi" -" the-struct_106)" +" the-struct_107)" "(root-expand-context/inner-module-scopes" -" the-struct_106)" +" the-struct_107)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_106)" +" the-struct_107)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_106)" +" the-struct_107)" "(root-expand-context/inner-defined-syms" -" the-struct_106)" +" the-struct_107)" "(root-expand-context/inner-counter" -" the-struct_106)" +" the-struct_107)" "(root-expand-context/inner-lift-key" -" the-struct_106)" +" the-struct_107)" "(expand-context/inner-to-parsed?" -" the-struct_106)" +" the-struct_107)" "(expand-context/inner-phase" -" the-struct_106)" +" the-struct_107)" "(expand-context/inner-namespace" -" the-struct_106)" +" the-struct_107)" "(expand-context/inner-just-once?" -" the-struct_106)" +" the-struct_107)" "(expand-context/inner-module-begin-k" -" the-struct_106)" +" the-struct_107)" "(expand-context/inner-allow-unbound?" -" the-struct_106)" +" the-struct_107)" "(expand-context/inner-in-local-expand?" -" the-struct_106)" +" the-struct_107)" "(expand-context/inner-keep-#%expression?" -" the-struct_106)" +" the-struct_107)" " stops368_0" "(expand-context/inner-declared-submodule-names" -" the-struct_106)" +" the-struct_107)" "(expand-context/inner-lifts" -" the-struct_106)" +" the-struct_107)" "(expand-context/inner-lift-envs" -" the-struct_106)" +" the-struct_107)" "(expand-context/inner-module-lifts" -" the-struct_106)" +" the-struct_107)" "(expand-context/inner-require-lifts" -" the-struct_106)" +" the-struct_107)" " to-module-lifts369_0" "(expand-context/inner-requires+provides" -" the-struct_106)" +" the-struct_107)" "(expand-context/inner-observer" -" the-struct_106)" +" the-struct_107)" "(expand-context/inner-for-serializable?" -" the-struct_106)" +" the-struct_107)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_106)))" +" the-struct_107)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_106)))))" +" the-struct_107)))))" "(expand-context/outer1.1" " inner367_0" " post-expansion-scope366_0" +"(root-expand-context/outer-post-expansion-shifts" +" the-struct_94)" "(root-expand-context/outer-use-site-scopes" " the-struct_94)" "(root-expand-context/outer-frame-id" @@ -72564,7 +72649,7 @@ static const char *startup_source = "(let-values(((partially-expanded-bodys320_0)" " partially-expanded-bodys_0)" "((phase321_0)" -" phase_143)" +" phase_145)" "((body-ctx322_0)" " body-ctx_6)" "((self323_0)" @@ -72588,20 +72673,20 @@ static const char *startup_source = " partially-expanded-bodys320_0))))))))))))" " pass-1-and-2-loop_0)" " bodys_16" -" phase_142)))" +" phase_144)))" "(let-values((()" "(begin" "(check-defined-by-now" " need-eventually-defined_1" " self_32" -" ctx_111" +" ctx_109" " requires+provides_6)" "(values))))" "(let-values((()" "(begin" "(let-values(((obs_131)" "(expand-context-observer" -" ctx_111)))" +" ctx_109)))" "(if obs_131" "(let-values()" "(let-values()" @@ -72620,11 +72705,11 @@ static const char *startup_source = "((m-ns376_0)" " m-ns_19)" "((phase377_0)" -" phase_142)" +" phase_144)" "((self378_0)" " self_32)" "((ctx379_0)" -" ctx_111))" +" ctx_109))" "(resolve-provides115.1" " ctx379_0" " declared-submodule-names375_0" @@ -72663,7 +72748,7 @@ static const char *startup_source = "(begin" "(let-values(((obs_132)" "(expand-context-observer" -" ctx_111)))" +" ctx_109)))" "(if obs_132" "(let-values()" "(let-values()" @@ -72682,111 +72767,113 @@ static const char *startup_source = " m-ns380_0))))" "(let-values(((submod-ctx_0)" "(let-values(((v_270)" -" ctx_111))" -"(let-values(((the-struct_107)" +" ctx_109))" +"(let-values(((the-struct_108)" " v_270))" "(if(expand-context/outer?" -" the-struct_107)" +" the-struct_108)" "(let-values(((frame-id382_0)" " #f)" "((post-expansion-scope383_0)" " #f)" "((inner384_0)" -"(let-values(((the-struct_108)" +"(let-values(((the-struct_109)" "(root-expand-context/outer-inner" " v_270)))" "(if(expand-context/inner?" -" the-struct_108)" +" the-struct_109)" "(let-values(((namespace385_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)" +" the-struct_109)" " namespace385_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_108)" "(root-expand-context/outer-use-site-scopes" -" the-struct_107)" +" the-struct_108)" " frame-id382_0" "(expand-context/outer-context" -" the-struct_107)" +" the-struct_108)" "(expand-context/outer-env" -" the-struct_107)" +" the-struct_108)" "(expand-context/outer-post-expansion-scope-action" -" the-struct_107)" +" the-struct_108)" "(expand-context/outer-scopes" -" the-struct_107)" +" the-struct_108)" "(expand-context/outer-def-ctx-scopes" -" the-struct_107)" +" the-struct_108)" "(expand-context/outer-binding-layer" -" the-struct_107)" +" the-struct_108)" "(expand-context/outer-reference-records" -" the-struct_107)" +" the-struct_108)" "(expand-context/outer-only-immediate?" -" the-struct_107)" +" the-struct_108)" "(expand-context/outer-need-eventually-defined" -" the-struct_107)" +" the-struct_108)" "(expand-context/outer-current-introduction-scopes" -" the-struct_107)" +" the-struct_108)" "(expand-context/outer-name" -" the-struct_107)))" +" the-struct_108)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_107))))))" +" the-struct_108))))))" "(let-values(((declare-enclosing-module_0)" "(delay" "(lambda()" @@ -72837,7 +72924,7 @@ static const char *startup_source = "((declare-enclosing-module398_0)" " declare-enclosing-module_0)" "((phase399_0)" -" phase_142)" +" phase_144)" "((self400_0)" " self_32)" "((requires+provides401_0)" @@ -72903,7 +72990,7 @@ static const char *startup_source = " mb-result-s_0)))))))))))))))))))))))))))))))))" "(let-values(((mb-ctx_0)" "(let-values(((v_271)" -" ctx_110))" +" ctx_108))" "(let-values(((the-struct_24)" " v_271))" "(if(expand-context/outer?" @@ -72911,11 +72998,11 @@ static const char *startup_source = "(let-values(((context411_0)" " 'module-begin)" "((inner412_0)" -"(let-values(((the-struct_109)" +"(let-values(((the-struct_110)" "(root-expand-context/outer-inner" " v_271)))" "(if(expand-context/inner?" -" the-struct_109)" +" the-struct_110)" "(let-values(((module-begin-k413_0)" " module-begin-k_1)" "((in-local-expand?414_0)" @@ -72930,59 +73017,61 @@ static const char *startup_source = " #f))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi" -" the-struct_109)" +" the-struct_110)" "(root-expand-context/inner-module-scopes" -" the-struct_109)" +" the-struct_110)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_109)" +" the-struct_110)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_109)" +" the-struct_110)" "(root-expand-context/inner-defined-syms" -" the-struct_109)" +" the-struct_110)" "(root-expand-context/inner-counter" -" the-struct_109)" +" the-struct_110)" "(root-expand-context/inner-lift-key" -" the-struct_109)" +" the-struct_110)" "(expand-context/inner-to-parsed?" -" the-struct_109)" +" the-struct_110)" "(expand-context/inner-phase" -" the-struct_109)" +" the-struct_110)" "(expand-context/inner-namespace" -" the-struct_109)" +" the-struct_110)" "(expand-context/inner-just-once?" -" the-struct_109)" +" the-struct_110)" " module-begin-k413_0" "(expand-context/inner-allow-unbound?" -" the-struct_109)" +" the-struct_110)" " in-local-expand?414_0" "(expand-context/inner-keep-#%expression?" -" the-struct_109)" +" the-struct_110)" "(expand-context/inner-stops" -" the-struct_109)" +" the-struct_110)" "(expand-context/inner-declared-submodule-names" -" the-struct_109)" +" the-struct_110)" " lifts415_0" "(expand-context/inner-lift-envs" -" the-struct_109)" +" the-struct_110)" " module-lifts416_0" " require-lifts418_0" " to-module-lifts417_0" "(expand-context/inner-requires+provides" -" the-struct_109)" +" the-struct_110)" "(expand-context/inner-observer" -" the-struct_109)" +" the-struct_110)" "(expand-context/inner-for-serializable?" -" the-struct_109)" +" the-struct_110)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_109)))" +" the-struct_110)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_109)))))" +" the-struct_110)))))" "(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)" "(root-expand-context/outer-use-site-scopes" " the-struct_24)" "(root-expand-context/outer-frame-id" @@ -73034,9 +73123,9 @@ static const char *startup_source = "((mb-def-ctx-scopes424_0)" " mb-def-ctx-scopes_0)" "((phase425_0)" -" phase_142)" +" phase_144)" "((s426_0)" -" s_803))" +" s_806))" "(ensure-module-begin36.1" " mb-ctx423_0" " mb-def-ctx-scopes424_0" @@ -73055,10 +73144,10 @@ static const char *startup_source = "(accumulate-def-ctx-scopes" " mb-ctx_0" " mb-def-ctx-scopes_0)))" -"(let-values(((the-struct_110)" +"(let-values(((the-struct_111)" " v_272))" "(if(expand-context/outer?" -" the-struct_110)" +" the-struct_111)" "(let-values(((def-ctx-scopes429_0)" " #f)" "((inner430_0)" @@ -73067,36 +73156,38 @@ static const char *startup_source = "(expand-context/outer1.1" " inner430_0" "(root-expand-context/outer-post-expansion-scope" -" the-struct_110)" +" the-struct_111)" +"(root-expand-context/outer-post-expansion-shifts" +" the-struct_111)" "(root-expand-context/outer-use-site-scopes" -" the-struct_110)" +" the-struct_111)" "(root-expand-context/outer-frame-id" -" the-struct_110)" +" the-struct_111)" "(expand-context/outer-context" -" the-struct_110)" +" the-struct_111)" "(expand-context/outer-env" -" the-struct_110)" +" the-struct_111)" "(expand-context/outer-post-expansion-scope-action" -" the-struct_110)" +" the-struct_111)" "(expand-context/outer-scopes" -" the-struct_110)" +" the-struct_111)" " def-ctx-scopes429_0" "(expand-context/outer-binding-layer" -" the-struct_110)" +" the-struct_111)" "(expand-context/outer-reference-records" -" the-struct_110)" +" the-struct_111)" "(expand-context/outer-only-immediate?" -" the-struct_110)" +" the-struct_111)" "(expand-context/outer-need-eventually-defined" -" the-struct_110)" +" the-struct_111)" "(expand-context/outer-current-introduction-scopes" -" the-struct_110)" +" the-struct_111)" "(expand-context/outer-name" -" the-struct_110)))" +" the-struct_111)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_110))))))" +" the-struct_111))))))" "(expand9.1" " #f" " #f" @@ -73110,11 +73201,11 @@ static const char *startup_source = " self_32" " self_32)))" "(let-values(((result-form_0)" -"(if(let-values(((or-part_404)" +"(if(let-values(((or-part_405)" "(expand-context-to-parsed?" " init-ctx_0)))" -"(if or-part_404" -" or-part_404" +"(if or-part_405" +" or-part_405" " always-produce-compiled?_0))" "(parsed-module25.1" " rebuild-s_14" @@ -73160,7 +73251,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_425)))" -"((letrec-values(((for-loop_331)" +"((letrec-values(((for-loop_328)" "(lambda(lst_426)" "(begin" " 'for-loop" @@ -73169,7 +73260,7 @@ static const char *startup_source = "(let-values(((mpi_56)" "(unsafe-car" " lst_426))" -"((rest_251)" +"((rest_250)" "(unsafe-cdr" " lst_426)))" "(let-values((()" @@ -73184,11 +73275,11 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_331" -" rest_251)" +"(for-loop_328" +" rest_250)" "(values))))" "(values))))))" -" for-loop_331)" +" for-loop_328)" " lst_425)))" "(void)" "(let-values(((result-s_15)" @@ -73266,47 +73357,48 @@ 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_113) ctx24_0))" +"(let-values(((ctx_111) ctx24_0))" "(let-values(((def-ctx-scopes_9) def-ctx-scopes25_0))" -"(let-values(((phase_144) phase26_3))" -"(let-values(((s_382) s27_2))" +"(let-values(((phase_146) phase26_3))" +"(let-values(((s_383) s27_2))" "(let-values()" "(let-values(((make-mb-ctx_0)" "(lambda()" "(begin" " 'make-mb-ctx" -"(let-values(((v_273) ctx_113))" -"(let-values(((the-struct_111) v_273))" -"(if(expand-context/outer? the-struct_111)" +"(let-values(((v_273) ctx_111))" +"(let-values(((the-struct_112) v_273))" +"(if(expand-context/outer? the-struct_112)" "(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_273)))" "(expand-context/outer1.1" " inner439_0" -"(root-expand-context/outer-post-expansion-scope the-struct_111)" -"(root-expand-context/outer-use-site-scopes the-struct_111)" -"(root-expand-context/outer-frame-id the-struct_111)" +"(root-expand-context/outer-post-expansion-scope the-struct_112)" +"(root-expand-context/outer-post-expansion-shifts the-struct_112)" +"(root-expand-context/outer-use-site-scopes the-struct_112)" +"(root-expand-context/outer-frame-id the-struct_112)" " 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)" +"(expand-context/outer-env the-struct_112)" +"(expand-context/outer-post-expansion-scope-action the-struct_112)" +"(expand-context/outer-scopes the-struct_112)" " def-ctx-scopes438_0" -"(expand-context/outer-binding-layer the-struct_111)" -"(expand-context/outer-reference-records the-struct_111)" +"(expand-context/outer-binding-layer the-struct_112)" +"(expand-context/outer-reference-records the-struct_112)" " 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-name the-struct_111)))" +"(expand-context/outer-need-eventually-defined the-struct_112)" +"(expand-context/outer-current-introduction-scopes the-struct_112)" +"(expand-context/outer-name the-struct_112)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_111))))))))" +" the-struct_112))))))))" "(let-values(((mb_1)" "(if(= 1(length bodys_18))" "(let-values()" "(begin" -"(let-values(((obs_134)(expand-context-observer ctx_113)))" +"(let-values(((obs_134)(expand-context-observer ctx_111)))" "(if obs_134" "(let-values()" "(let-values()" @@ -73314,7 +73406,7 @@ static const char *startup_source = "(void)))" "(if(eq?" " '#%module-begin" -"(core-form-sym(syntax-disarm$1(car bodys_18)) phase_144))" +"(core-form-sym(syntax-disarm$1(car bodys_18)) phase_146))" "(let-values()(car bodys_18))" "(let-values()" "(let-values(((partly-expanded-body_0)" @@ -73329,13 +73421,13 @@ static const char *startup_source = " '#%module-begin" "(core-form-sym" "(syntax-disarm$1 partly-expanded-body_0)" -" phase_144))" +" phase_146))" "(let-values() partly-expanded-body_0)" "(let-values()" "(let-values(((temp442_0)(list partly-expanded-body_0))" -"((s443_0) s_382)" +"((s443_0) s_383)" "((scopes-s444_0) scopes-s_0)" -"((phase445_0) phase_144)" +"((phase445_0) phase_146)" "((module-name-sym446_0) module-name-sym_1)" "((temp447_0)(make-mb-ctx_0))" "((temp448_1) #f))" @@ -73349,9 +73441,9 @@ static const char *startup_source = " temp447_0)))))))))" "(let-values()" "(let-values(((bodys449_0) bodys_18)" -"((s450_0) s_382)" +"((s450_0) s_383)" "((scopes-s451_0) scopes-s_0)" -"((phase452_0) phase_144)" +"((phase452_0) phase_146)" "((module-name-sym453_0) module-name-sym_1)" "((temp454_1)(make-mb-ctx_0)))" "(add-module-begin47.1" @@ -73369,9 +73461,9 @@ static const char *startup_source = "(begin" " 'add-module-begin47" "(let-values(((bodys_19) bodys41_0))" -"(let-values(((s_807) s42_0))" +"(let-values(((s_810) s42_0))" "(let-values(((scopes-s_1) scopes-s43_0))" -"(let-values(((phase_145) phase44_0))" +"(let-values(((phase_147) phase44_0))" "(let-values(((module-name-sym_2) module-name-sym45_0))" "(let-values(((mb-ctx_1) mb-ctx46_0))" "(let-values(((log-rename-one?_0) log-rename-one?39_0))" @@ -73380,17 +73472,17 @@ static const char *startup_source = "(let-values(((mb-id_0)(datum->syntax$1 disarmed-scopes-s_0 '#%module-begin)))" "(let-values((()" "(begin" -"(if(let-values(((mb-id455_0) mb-id_0)((phase456_0) phase_145))" +"(if(let-values(((mb-id455_0) mb-id_0)((phase456_0) phase_147))" "(resolve40.1 #f #f null #f mb-id455_0 phase456_0))" "(void)" "(let-values()" "(raise-syntax-error$1" " #f" " \"no #%module-begin binding in the module's language\"" -" s_807)))" +" s_810)))" "(values))))" "(let-values(((mb_2)" -"(datum->syntax$1 disarmed-scopes-s_0(list* mb-id_0 bodys_19) s_807 s_807)))" +"(datum->syntax$1 disarmed-scopes-s_0(list* mb-id_0 bodys_19) s_810 s_810)))" "(let-values((()" "(begin" "(let-values(((obs_135)(expand-context-observer mb-ctx_1)))" @@ -73420,18 +73512,18 @@ static const char *startup_source = "(begin" "(if(eq?" " '#%module-begin" -"(core-form-sym(syntax-disarm$1 partly-expanded-mb_0) phase_145))" +"(core-form-sym(syntax-disarm$1 partly-expanded-mb_0) phase_147))" "(void)" "(let-values()" "(raise-syntax-error$1" " #f" " \"expansion of #%module-begin is not a #%plain-module-begin form\"" -" s_807" +" s_810" " partly-expanded-mb_0)))" " partly-expanded-mb_0)))))))))))))))))))" "(define-values" "(add-enclosing-name-property)" -"(lambda(stx_20 module-name-sym_3)(begin(syntax-property$1 stx_20 'enclosing-module-name module-name-sym_3))))" +"(lambda(stx_21 module-name-sym_3)(begin(syntax-property$1 stx_21 'enclosing-module-name module-name-sym_3))))" "(define-values" "(make-apply-module-scopes)" "(lambda(inside-scope_1" @@ -73442,13 +73534,13 @@ static const char *startup_source = " enclosing-self_2" " enclosing-mod_2)" "(begin" -"(lambda(s_808)" +"(lambda(s_811)" "(let-values()" "(let-values(((s-without-enclosing_0)" "(if keep-enclosing-scope-at-phase_1" -" s_808" +" s_811" "(remove-use-site-scopes" -"(remove-scopes s_808(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)))" @@ -73489,14 +73581,14 @@ static const char *startup_source = " mpis-to-reset63_0" " namespace52_0" " need-eventually-defined56_0" -" phase50_1" +" phase50_0" " requires-and-provides55_0" " self53_0" " bodys80_0)" "(begin" " 'partially-expand-bodys81" "(let-values(((bodys_20) bodys80_0))" -"(let-values(((phase_49) phase50_1))" +"(let-values(((phase_51) phase50_0))" "(let-values(((partial-body-ctx_1) ctx51_0))" "(let-values(((m-ns_20) namespace52_0))" "(let-values(((self_34) self53_0))" @@ -73513,14 +73605,14 @@ static const char *startup_source = "(let-values(((pass-1-and-2-loop_1) loop64_0))" "(let-values()" "(begin" -"(namespace-visit-available-modules! m-ns_20 phase_49)" +"(namespace-visit-available-modules! m-ns_20 phase_51)" "((letrec-values(((loop_125)" "(lambda(tail?_53 bodys_21)" "(begin" " 'loop" "(if(null? bodys_21)" "(let-values()" -"(if(if tail?_53(not(zero? phase_49)) #f)" +"(if(if tail?_53(not(zero? phase_51)) #f)" "(let-values()" "(begin" "(let-values(((obs_137)" @@ -73626,7 +73718,7 @@ static const char *startup_source = "(let-values(((tmp_65)" "(core-form-sym" " disarmed-exp-body_1" -" phase_49)))" +" phase_51)))" "(if(equal?" " tmp_65" " 'begin)" @@ -73634,38 +73726,38 @@ static const char *startup_source = "(let-values(((ok?_81" " begin468_0" " e469_0)" -"(let-values(((s_809)" +"(let-values(((s_812)" " disarmed-exp-body_1))" "(let-values(((orig-s_85)" -" s_809))" +" s_812))" "(let-values(((begin468_1" " e469_1)" -"(let-values(((s_810)" -"(if(syntax?$1" -" s_809)" -"(syntax-e$1" -" s_809)" -" s_809)))" -"(if(pair?" -" s_810)" -"(let-values(((begin470_0)" -"(let-values(((s_811)" -"(car" -" s_810)))" -" s_811))" -"((e471_0)" -"(let-values(((s_812)" -"(cdr" -" s_810)))" "(let-values(((s_813)" "(if(syntax?$1" " s_812)" "(syntax-e$1" " s_812)" " s_812)))" +"(if(pair?" +" s_813)" +"(let-values(((begin470_0)" +"(let-values(((s_814)" +"(car" +" s_813)))" +" s_814))" +"((e471_0)" +"(let-values(((s_422)" +"(cdr" +" s_813)))" +"(let-values(((s_815)" +"(if(syntax?$1" +" s_422)" +"(syntax-e$1" +" s_422)" +" s_422)))" "(let-values(((flat-s_58)" "(to-syntax-list.1" -" s_813)))" +" s_815)))" "(if(not" " flat-s_58)" "(let-values()" @@ -73743,7 +73835,7 @@ static const char *startup_source = "(namespace->namespace-at-phase" " m-ns_20" "(add1" -" phase_49))))" +" phase_51))))" "(let-values((()" "(begin" "(prepare-next-phase-namespace" @@ -73765,38 +73857,38 @@ static const char *startup_source = "(let-values(((ok?_82" " begin-for-syntax472_0" " e473_0)" -"(let-values(((s_814)" +"(let-values(((s_816)" " disarmed-exp-body_1))" "(let-values(((orig-s_86)" -" s_814))" +" s_816))" "(let-values(((begin-for-syntax472_1" " e473_1)" -"(let-values(((s_815)" -"(if(syntax?$1" -" s_814)" -"(syntax-e$1" -" s_814)" -" s_814)))" -"(if(pair?" -" s_815)" -"(let-values(((begin-for-syntax474_0)" -"(let-values(((s_816)" -"(car" -" s_815)))" -" s_816))" -"((e475_0)" "(let-values(((s_817)" -"(cdr" -" s_815)))" -"(let-values(((s_818)" "(if(syntax?$1" -" s_817)" +" s_816)" "(syntax-e$1" +" s_816)" +" s_816)))" +"(if(pair?" " s_817)" +"(let-values(((begin-for-syntax474_0)" +"(let-values(((s_818)" +"(car" " s_817)))" +" s_818))" +"((e475_0)" +"(let-values(((s_819)" +"(cdr" +" s_817)))" +"(let-values(((s_820)" +"(if(syntax?$1" +" s_819)" +"(syntax-e$1" +" s_819)" +" s_819)))" "(let-values(((flat-s_59)" "(to-syntax-list.1" -" s_818)))" +" s_820)))" "(if(not" " flat-s_59)" "(let-values()" @@ -73821,7 +73913,7 @@ static const char *startup_source = "(pass-1-and-2-loop_1" " e473_0" "(add1" -" phase_49))))" +" phase_51))))" "(begin" "(let-values(((obs_144)" "(expand-context-observer" @@ -73836,17 +73928,17 @@ static const char *startup_source = "(namespace-run-available-modules!" " m-ns_20" "(add1" -" phase_49))" +" phase_51))" "(eval-nested-bodys" " nested-bodys_1" "(add1" -" phase_49)" +" phase_51)" " ct-m-ns_0" " self_34" " partial-body-ctx_1)" "(namespace-visit-available-modules!" " m-ns_20" -" phase_49)" +" phase_51)" "(let-values(((obs_145)" "(expand-context-observer" " partial-body-ctx_1)))" @@ -73867,7 +73959,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_252)))" -"((letrec-values(((for-loop_332)" +"((letrec-values(((for-loop_329)" "(lambda(fold-var_374" " lst_427)" "(begin" @@ -73877,7 +73969,7 @@ static const char *startup_source = "(let-values(((nested-body_0)" "(unsafe-car" " lst_427))" -"((rest_252)" +"((rest_251)" "(unsafe-cdr" " lst_427)))" "(let-values(((fold-var_375)" @@ -73894,12 +73986,12 @@ static const char *startup_source = " fold-var_356)))))" "(if(not" " #f)" -"(for-loop_332" +"(for-loop_329" " fold-var_375" -" rest_252)" +" rest_251)" " fold-var_375)))" " fold-var_374)))))" -" for-loop_332)" +" for-loop_329)" " null" " lst_252))))))" "(datum->syntax$1" @@ -73942,52 +74034,52 @@ static const char *startup_source = " define-values476_0" " id477_0" " rhs478_0)" -"(let-values(((s_819)" +"(let-values(((s_821)" " disarmed-exp-body_1))" "(let-values(((orig-s_87)" -" s_819))" +" s_821))" "(let-values(((define-values476_1" " id477_1" " rhs478_1)" -"(let-values(((s_820)" +"(let-values(((s_822)" "(if(syntax?$1" -" s_819)" +" s_821)" "(syntax-e$1" -" s_819)" -" s_819)))" +" s_821)" +" s_821)))" "(if(pair?" -" s_820)" +" s_822)" "(let-values(((define-values479_0)" -"(let-values(((s_821)" +"(let-values(((s_823)" "(car" -" s_820)))" -" s_821))" +" s_822)))" +" s_823))" "((id480_0" " rhs481_0)" -"(let-values(((s_822)" -"(cdr" -" s_820)))" -"(let-values(((s_823)" -"(if(syntax?$1" -" s_822)" -"(syntax-e$1" -" s_822)" -" s_822)))" -"(if(pair?" -" s_823)" -"(let-values(((id482_0)" "(let-values(((s_824)" -"(car" -" s_823)))" +"(cdr" +" s_822)))" "(let-values(((s_825)" "(if(syntax?$1" " s_824)" "(syntax-e$1" " s_824)" " s_824)))" +"(if(pair?" +" s_825)" +"(let-values(((id482_0)" +"(let-values(((s_826)" +"(car" +" s_825)))" +"(let-values(((s_827)" +"(if(syntax?$1" +" s_826)" +"(syntax-e$1" +" s_826)" +" s_826)))" "(let-values(((flat-s_60)" "(to-syntax-list.1" -" s_825)))" +" s_827)))" "(if(not" " flat-s_60)" "(let-values()" @@ -73996,7 +74088,7 @@ static const char *startup_source = " \"bad syntax\"" " orig-s_87))" "(let-values()" -"(let-values(((id_145)" +"(let-values(((id_143)" "(let-values(((lst_70)" " flat-s_60))" "(begin" @@ -74006,89 +74098,89 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_70)))" -"((letrec-values(((for-loop_333)" -"(lambda(id_146" +"((letrec-values(((for-loop_330)" +"(lambda(id_144" " lst_428)" "(begin" " 'for-loop" "(if(pair?" " lst_428)" -"(let-values(((s_826)" +"(let-values(((s_828)" "(unsafe-car" " lst_428))" -"((rest_253)" +"((rest_252)" "(unsafe-cdr" " lst_428)))" +"(let-values(((id_145)" +"(let-values(((id_146)" +" id_144))" "(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_405)" +"(if(let-values(((or-part_406)" "(if(syntax?$1" -" s_826)" +" s_828)" "(symbol?" "(syntax-e$1" -" s_826))" +" s_828))" " #f)))" -"(if or-part_405" -" or-part_405" +"(if or-part_406" +" or-part_406" "(symbol?" -" s_826)))" -" s_826" +" s_828)))" +" s_828" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_87" -" s_826)))))" +" s_828)))))" "(cons" " id495_0" -" id_148)))))" +" id_146)))))" "(values" -" id_149)))))" +" id_147)))))" "(if(not" " #f)" -"(for-loop_333" -" id_147" -" rest_253)" -" id_147)))" -" id_146)))))" -" for-loop_333)" +"(for-loop_330" +" id_145" +" rest_252)" +" id_145)))" +" id_144)))))" +" for-loop_330)" " null" " lst_70)))))" "(reverse$1" -" id_145))))))))" +" id_143))))))))" "((rhs483_0)" -"(let-values(((s_827)" -"(cdr" -" s_823)))" -"(let-values(((s_828)" -"(if(syntax?$1" -" s_827)" -"(syntax-e$1" -" s_827)" -" s_827)))" -"(if(pair?" -" s_828)" -"(let-values(((rhs484_0)" "(let-values(((s_829)" -"(car" -" s_828)))" -" s_829))" -"(()" -"(let-values(((s_830)" "(cdr" -" s_828)))" -"(let-values(((s_831)" +" s_825)))" +"(let-values(((s_830)" "(if(syntax?$1" -" s_830)" +" s_829)" "(syntax-e$1" +" s_829)" +" s_829)))" +"(if(pair?" " s_830)" +"(let-values(((rhs484_0)" +"(let-values(((s_831)" +"(car" " s_830)))" +" s_831))" +"(()" +"(let-values(((s_832)" +"(cdr" +" s_830)))" +"(let-values(((s_833)" +"(if(syntax?$1" +" s_832)" +"(syntax-e$1" +" s_832)" +" s_832)))" "(if(null?" -" s_831)" +" s_833)" "(values)" "(raise-syntax-error$1" " #f" @@ -74120,16 +74212,16 @@ static const char *startup_source = " define-values476_1" " id477_1" " rhs478_1))))))" -"(let-values(((ids_45)" +"(let-values(((ids_44)" "(remove-use-site-scopes" " id477_0" " partial-body-ctx_1)))" "(let-values((()" "(begin" "(let-values(((ids485_0)" -" ids_45)" +" ids_44)" "((phase486_0)" -" phase_49)" +" phase_51)" "((exp-body487_0)" " exp-body_7))" "(check-no-duplicate-ids7.1" @@ -74142,9 +74234,9 @@ static const char *startup_source = "(let-values((()" "(begin" "(let-values(((ids488_0)" -" ids_45)" +" ids_44)" "((phase489_0)" -" phase_49)" +" phase_51)" "((requires+provides490_0)" " requires+provides_7)" "((exp-body491_0)" @@ -74157,13 +74249,13 @@ static const char *startup_source = "(values))))" "(let-values(((syms_23)" "(let-values(((ids496_0)" -" ids_45)" +" ids_44)" "((defined-syms497_0)" " defined-syms_12)" "((self498_0)" " self_34)" "((phase499_0)" -" phase_49)" +" phase_51)" "((all-scopes-stx500_0)" " all-scopes-stx_5)" "((frame-id501_0)" @@ -74193,7 +74285,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_429)))" -"((letrec-values(((for-loop_334)" +"((letrec-values(((for-loop_331)" "(lambda(lst_430)" "(begin" " 'for-loop" @@ -74202,7 +74294,7 @@ static const char *startup_source = "(let-values(((sym_109)" "(unsafe-car" " lst_430))" -"((rest_254)" +"((rest_253)" "(unsafe-cdr" " lst_430)))" "(let-values((()" @@ -74213,17 +74305,17 @@ static const char *startup_source = "(let-values()" "(namespace-unset-transformer!" " m-ns_20" -" phase_49" +" phase_51" " sym_109))" "(values)))))" "(values)))))" "(if(not" " #f)" -"(for-loop_334" -" rest_254)" +"(for-loop_331" +" rest_253)" "(values))))" "(values))))))" -" for-loop_334)" +" for-loop_331)" " lst_429)))" "(void)" "(let-values(((requires+provides492_0)" @@ -74231,7 +74323,7 @@ static const char *startup_source = "((syms493_0)" " syms_23)" "((phase494_0)" -" phase_49))" +" phase_51))" "(add-defined-syms!103.1" " #f" " requires+provides492_0" @@ -74250,7 +74342,7 @@ static const char *startup_source = " #f" "(list" " define-values476_0" -" ids_45" +" ids_44" " rhs478_0)" " exp-body_7))))" "(void)))" @@ -74258,7 +74350,7 @@ static const char *startup_source = "(semi-parsed-define-values2.1" " exp-body_7" " syms_23" -" ids_45" +" ids_44" " rhs478_0)" "(loop_125" " tail?_53" @@ -74310,52 +74402,52 @@ static const char *startup_source = " define-syntaxes504_0" " id505_0" " rhs506_0)" -"(let-values(((s_832)" +"(let-values(((s_834)" " disarmed-exp-body_1))" "(let-values(((orig-s_88)" -" s_832))" +" s_834))" "(let-values(((define-syntaxes504_1" " id505_1" " rhs506_1)" -"(let-values(((s_833)" +"(let-values(((s_835)" "(if(syntax?$1" -" s_832)" +" s_834)" "(syntax-e$1" -" s_832)" -" s_832)))" +" s_834)" +" s_834)))" "(if(pair?" -" s_833)" +" s_835)" "(let-values(((define-syntaxes507_0)" -"(let-values(((s_834)" +"(let-values(((s_836)" "(car" -" s_833)))" -" s_834))" +" s_835)))" +" s_836))" "((id508_0" " rhs509_0)" -"(let-values(((s_835)" -"(cdr" -" s_833)))" -"(let-values(((s_836)" -"(if(syntax?$1" -" s_835)" -"(syntax-e$1" -" s_835)" -" s_835)))" -"(if(pair?" -" s_836)" -"(let-values(((id510_0)" "(let-values(((s_837)" -"(car" -" s_836)))" +"(cdr" +" s_835)))" "(let-values(((s_838)" "(if(syntax?$1" " s_837)" "(syntax-e$1" " s_837)" " s_837)))" +"(if(pair?" +" s_838)" +"(let-values(((id510_0)" +"(let-values(((s_839)" +"(car" +" s_838)))" +"(let-values(((s_840)" +"(if(syntax?$1" +" s_839)" +"(syntax-e$1" +" s_839)" +" s_839)))" "(let-values(((flat-s_61)" "(to-syntax-list.1" -" s_838)))" +" s_840)))" "(if(not" " flat-s_61)" "(let-values()" @@ -74364,7 +74456,7 @@ static const char *startup_source = " \"bad syntax\"" " orig-s_88))" "(let-values()" -"(let-values(((id_150)" +"(let-values(((id_148)" "(let-values(((lst_431)" " flat-s_61))" "(begin" @@ -74374,89 +74466,89 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_431)))" -"((letrec-values(((for-loop_335)" -"(lambda(id_151" +"((letrec-values(((for-loop_332)" +"(lambda(id_149" " lst_432)" "(begin" " 'for-loop" "(if(pair?" " lst_432)" -"(let-values(((s_567)" +"(let-values(((s_569)" "(unsafe-car" " lst_432))" -"((rest_255)" +"((rest_254)" "(unsafe-cdr" " lst_432)))" +"(let-values(((id_150)" +"(let-values(((id_151)" +" id_149))" "(let-values(((id_152)" -"(let-values(((id_153)" -" id_151))" -"(let-values(((id_154)" "(let-values()" "(let-values(((id524_0)" "(let-values()" -"(if(let-values(((or-part_406)" +"(if(let-values(((or-part_407)" "(if(syntax?$1" -" s_567)" +" s_569)" "(symbol?" "(syntax-e$1" -" s_567))" +" s_569))" " #f)))" -"(if or-part_406" -" or-part_406" +"(if or-part_407" +" or-part_407" "(symbol?" -" s_567)))" -" s_567" +" s_569)))" +" s_569" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_88" -" s_567)))))" +" s_569)))))" "(cons" " id524_0" -" id_153)))))" +" id_151)))))" "(values" -" id_154)))))" +" id_152)))))" "(if(not" " #f)" -"(for-loop_335" -" id_152" -" rest_255)" -" id_152)))" -" id_151)))))" -" for-loop_335)" +"(for-loop_332" +" id_150" +" rest_254)" +" id_150)))" +" id_149)))))" +" for-loop_332)" " null" " lst_431)))))" "(reverse$1" -" id_150))))))))" +" id_148))))))))" "((rhs511_0)" -"(let-values(((s_839)" -"(cdr" -" s_836)))" -"(let-values(((s_840)" -"(if(syntax?$1" -" s_839)" -"(syntax-e$1" -" s_839)" -" s_839)))" -"(if(pair?" -" s_840)" -"(let-values(((rhs512_0)" "(let-values(((s_841)" -"(car" -" s_840)))" -" s_841))" -"(()" -"(let-values(((s_842)" "(cdr" -" s_840)))" -"(let-values(((s_843)" +" s_838)))" +"(let-values(((s_842)" "(if(syntax?$1" -" s_842)" +" s_841)" "(syntax-e$1" +" s_841)" +" s_841)))" +"(if(pair?" " s_842)" +"(let-values(((rhs512_0)" +"(let-values(((s_843)" +"(car" " s_842)))" +" s_843))" +"(()" +"(let-values(((s_844)" +"(cdr" +" s_842)))" +"(let-values(((s_845)" +"(if(syntax?$1" +" s_844)" +"(syntax-e$1" +" s_844)" +" s_844)))" "(if(null?" -" s_843)" +" s_845)" "(values)" "(raise-syntax-error$1" " #f" @@ -74488,16 +74580,16 @@ static const char *startup_source = " define-syntaxes504_1" " id505_1" " rhs506_1))))))" -"(let-values(((ids_46)" +"(let-values(((ids_45)" "(remove-use-site-scopes" " id505_0" " partial-body-ctx_1)))" "(let-values((()" "(begin" "(let-values(((ids513_0)" -" ids_46)" +" ids_45)" "((phase514_0)" -" phase_49)" +" phase_51)" "((exp-body515_0)" " exp-body_7))" "(check-no-duplicate-ids7.1" @@ -74510,9 +74602,9 @@ static const char *startup_source = "(let-values((()" "(begin" "(let-values(((ids516_0)" -" ids_46)" +" ids_45)" "((phase517_0)" -" phase_49)" +" phase_51)" "((requires+provides518_0)" " requires+provides_7)" "((exp-body519_0)" @@ -74525,13 +74617,13 @@ static const char *startup_source = "(values))))" "(let-values(((syms_24)" "(let-values(((ids525_0)" -" ids_46)" +" ids_45)" "((defined-syms526_0)" " defined-syms_12)" "((self527_0)" " self_34)" "((phase528_0)" -" phase_49)" +" phase_51)" "((all-scopes-stx529_0)" " all-scopes-stx_5)" "((frame-id530_0)" @@ -74560,7 +74652,7 @@ static const char *startup_source = "((syms521_0)" " syms_24)" "((phase522_0)" -" phase_49)" +" phase_51)" "((temp523_0)" " #t))" "(add-defined-syms!103.1" @@ -74577,22 +74669,22 @@ static const char *startup_source = "((temp535_0)" " rhs506_0)" "((ids536_0)" -" ids_46)" +" ids_45)" "((temp537_0)" "(let-values(((v_274)" " partial-body-ctx_1))" -"(let-values(((the-struct_112)" +"(let-values(((the-struct_113)" " v_274))" "(if(expand-context/outer?" -" the-struct_112)" +" the-struct_113)" "(let-values(((need-eventually-defined539_0)" " need-eventually-defined_2)" "((inner540_0)" -"(let-values(((the-struct_113)" +"(let-values(((the-struct_114)" "(root-expand-context/outer-inner" " v_274)))" "(if(expand-context/inner?" -" the-struct_113)" +" the-struct_114)" "(let-values(((lifts541_0)" " #f)" "((module-lifts542_0)" @@ -74601,91 +74693,93 @@ static const char *startup_source = " #f))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi" -" the-struct_113)" +" the-struct_114)" "(root-expand-context/inner-module-scopes" -" the-struct_113)" +" the-struct_114)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_113)" +" the-struct_114)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_113)" +" the-struct_114)" "(root-expand-context/inner-defined-syms" -" the-struct_113)" +" the-struct_114)" "(root-expand-context/inner-counter" -" the-struct_113)" +" the-struct_114)" "(root-expand-context/inner-lift-key" -" the-struct_113)" +" the-struct_114)" "(expand-context/inner-to-parsed?" -" the-struct_113)" +" the-struct_114)" "(expand-context/inner-phase" -" the-struct_113)" +" the-struct_114)" "(expand-context/inner-namespace" -" the-struct_113)" +" the-struct_114)" "(expand-context/inner-just-once?" -" the-struct_113)" +" the-struct_114)" "(expand-context/inner-module-begin-k" -" the-struct_113)" +" the-struct_114)" "(expand-context/inner-allow-unbound?" -" the-struct_113)" +" the-struct_114)" "(expand-context/inner-in-local-expand?" -" the-struct_113)" +" the-struct_114)" "(expand-context/inner-keep-#%expression?" -" the-struct_113)" +" the-struct_114)" "(expand-context/inner-stops" -" the-struct_113)" +" the-struct_114)" "(expand-context/inner-declared-submodule-names" -" the-struct_113)" +" the-struct_114)" " lifts541_0" "(expand-context/inner-lift-envs" -" the-struct_113)" +" the-struct_114)" " module-lifts542_0" "(expand-context/inner-require-lifts" -" the-struct_113)" +" the-struct_114)" " to-module-lifts543_0" "(expand-context/inner-requires+provides" -" the-struct_113)" +" the-struct_114)" "(expand-context/inner-observer" -" the-struct_113)" +" the-struct_114)" "(expand-context/inner-for-serializable?" -" the-struct_113)" +" the-struct_114)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_113)))" +" the-struct_114)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_113)))))" +" the-struct_114)))))" "(expand-context/outer1.1" " inner540_0" "(root-expand-context/outer-post-expansion-scope" -" the-struct_112)" +" the-struct_113)" +"(root-expand-context/outer-post-expansion-shifts" +" the-struct_113)" "(root-expand-context/outer-use-site-scopes" -" the-struct_112)" +" the-struct_113)" "(root-expand-context/outer-frame-id" -" the-struct_112)" +" the-struct_113)" "(expand-context/outer-context" -" the-struct_112)" +" the-struct_113)" "(expand-context/outer-env" -" the-struct_112)" +" the-struct_113)" "(expand-context/outer-post-expansion-scope-action" -" the-struct_112)" +" the-struct_113)" "(expand-context/outer-scopes" -" the-struct_112)" +" the-struct_113)" "(expand-context/outer-def-ctx-scopes" -" the-struct_112)" +" the-struct_113)" "(expand-context/outer-binding-layer" -" the-struct_112)" +" the-struct_113)" "(expand-context/outer-reference-records" -" the-struct_112)" +" the-struct_113)" "(expand-context/outer-only-immediate?" -" the-struct_112)" +" the-struct_113)" " need-eventually-defined539_0" "(expand-context/outer-current-introduction-scopes" -" the-struct_112)" +" the-struct_113)" "(expand-context/outer-name" -" the-struct_112)))" +" the-struct_113)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_112)))))" +" the-struct_113)))))" "((temp538_0)" " #f))" "(expand+eval-for-syntaxes-binding108.1" @@ -74701,7 +74795,7 @@ static const char *startup_source = "((lst_434)" " vals_10)" "((lst_435)" -" ids_46))" +" ids_45))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" @@ -74721,7 +74815,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_435)))" -"((letrec-values(((for-loop_336)" +"((letrec-values(((for-loop_333)" "(lambda(lst_436" " lst_437" " lst_438)" @@ -74738,19 +74832,19 @@ static const char *startup_source = "(let-values(((sym_110)" "(unsafe-car" " lst_436))" -"((rest_256)" +"((rest_255)" "(unsafe-cdr" " lst_436))" -"((val_87)" +"((val_86)" "(unsafe-car" " lst_437))" -"((rest_257)" +"((rest_256)" "(unsafe-cdr" " lst_437))" -"((id_155)" +"((id_153)" "(unsafe-car" " lst_438))" -"((rest_258)" +"((rest_257)" "(unsafe-cdr" " lst_438)))" "(let-values((()" @@ -74761,26 +74855,26 @@ static const char *startup_source = "(let-values()" "(begin" "(maybe-install-free=id-in-context!" -" val_87" -" id_155" -" phase_49" +" val_86" +" id_153" +" phase_51" " partial-body-ctx_1)" "(namespace-set-transformer!" " m-ns_20" -" phase_49" +" phase_51" " sym_110" -" val_87)))" +" val_86)))" "(values)))))" "(values)))))" "(if(not" " #f)" -"(for-loop_336" +"(for-loop_333" +" rest_255" " rest_256" -" rest_257" -" rest_258)" +" rest_257)" "(values))))" "(values))))))" -" for-loop_336)" +" for-loop_333)" " lst_433" " lst_434" " lst_435)))" @@ -74801,7 +74895,7 @@ static const char *startup_source = " #f" "(list" " define-syntaxes504_0" -" ids_46" +" ids_45" " exp-rhs_6)))))" "(void)))" "(values))))" @@ -74809,7 +74903,7 @@ static const char *startup_source = "(parsed-define-syntaxes20.1" "(keep-properties-only" " exp-body_7)" -" ids_46" +" ids_45" " syms_24" " parsed-rhs_2)))" "(cons" @@ -74822,7 +74916,7 @@ static const char *startup_source = "((temp545_0)" "(list" " define-syntaxes504_0" -" ids_46" +" ids_45" " exp-rhs_6)))" "(rebuild5.1" " #t" @@ -74861,38 +74955,38 @@ static const char *startup_source = "(let-values(((ok?_85" " #%require546_0" " req547_0)" -"(let-values(((s_844)" +"(let-values(((s_846)" " ready-body_0))" "(let-values(((orig-s_89)" -" s_844))" +" s_846))" "(let-values(((#%require546_1" " req547_1)" -"(let-values(((s_845)" -"(if(syntax?$1" -" s_844)" -"(syntax-e$1" -" s_844)" -" s_844)))" -"(if(pair?" -" s_845)" -"(let-values(((#%require548_0)" -"(let-values(((s_846)" -"(car" -" s_845)))" -" s_846))" -"((req549_0)" "(let-values(((s_847)" -"(cdr" -" s_845)))" -"(let-values(((s_848)" "(if(syntax?$1" -" s_847)" +" s_846)" "(syntax-e$1" +" s_846)" +" s_846)))" +"(if(pair?" " s_847)" +"(let-values(((#%require548_0)" +"(let-values(((s_848)" +"(car" " s_847)))" +" s_848))" +"((req549_0)" +"(let-values(((s_849)" +"(cdr" +" s_847)))" +"(let-values(((s_850)" +"(if(syntax?$1" +" s_849)" +"(syntax-e$1" +" s_849)" +" s_849)))" "(let-values(((flat-s_62)" "(to-syntax-list.1" -" s_848)))" +" s_850)))" "(if(not" " flat-s_62)" "(let-values()" @@ -74923,9 +75017,9 @@ static const char *startup_source = "((m-ns553_0)" " m-ns_20)" "((phase554_0)" -" phase_49)" +" phase_51)" "((phase555_0)" -" phase_49)" +" phase_51)" "((requires+provides556_0)" " requires+provides_7)" "((declared-submodule-names557_0)" @@ -75052,30 +75146,30 @@ static const char *startup_source = "(let-values(((ok?_86" " #%declare567_0" " kw568_0)" -"(let-values(((s_849)" +"(let-values(((s_851)" " disarmed-exp-body_1))" "(let-values(((orig-s_90)" -" s_849))" +" s_851))" "(let-values(((#%declare567_1" " kw568_1)" -"(let-values(((s_850)" +"(let-values(((s_852)" "(if(syntax?$1" -" s_849)" +" s_851)" "(syntax-e$1" -" s_849)" -" s_849)))" +" s_851)" +" s_851)))" "(if(pair?" -" s_850)" +" s_852)" "(let-values(((#%declare569_0)" "(let-values(((s_276)" "(car" -" s_850)))" +" s_852)))" " s_276))" "((kw570_0)" "(let-values(((s_277)" "(cdr" -" s_850)))" -"(let-values(((s_851)" +" s_852)))" +"(let-values(((s_853)" "(if(syntax?$1" " s_277)" "(syntax-e$1" @@ -75083,7 +75177,7 @@ static const char *startup_source = " s_277)))" "(let-values(((flat-s_63)" "(to-syntax-list.1" -" s_851)))" +" s_853)))" "(if(not" " flat-s_63)" "(let-values()" @@ -75115,7 +75209,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_439)))" -"((letrec-values(((for-loop_337)" +"((letrec-values(((for-loop_334)" "(lambda(lst_440)" "(begin" " 'for-loop" @@ -75124,7 +75218,7 @@ static const char *startup_source = "(let-values(((kw_1)" "(unsafe-car" " lst_440))" -"((rest_259)" +"((rest_258)" "(unsafe-cdr" " lst_440)))" "(let-values((()" @@ -75177,11 +75271,11 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_337" -" rest_259)" +"(for-loop_334" +" rest_258)" "(values))))" "(values))))))" -" for-loop_337)" +" for-loop_334)" " lst_439)))" "(values))))" "(let-values()" @@ -75229,21 +75323,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_146)" +"(lambda(ids_46 rhs_23 phase_148)" "(let-values(((scoped-ids_0)" "(reverse$1" -"(let-values(((lst_441) ids_47))" +"(let-values(((lst_441) ids_46))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_441)))" -"((letrec-values(((for-loop_338)" +"((letrec-values(((for-loop_335)" "(lambda(fold-var_377 lst_442)" "(begin" " 'for-loop" "(if(pair? lst_442)" -"(let-values(((id_156)(unsafe-car lst_442))" -"((rest_260)(unsafe-cdr lst_442)))" +"(let-values(((id_154)(unsafe-car lst_442))" +"((rest_259)(unsafe-cdr lst_442)))" "(let-values(((fold-var_378)" "(let-values(((fold-var_379) fold-var_377))" "(let-values(((fold-var_380)" @@ -75251,20 +75345,20 @@ static const char *startup_source = "(cons" "(let-values()" "(add-scope" -" id_156" +" id_154" " 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_335 fold-var_378 rest_259) fold-var_378)))" " fold-var_377)))))" -" for-loop_338)" +" for-loop_335)" " null" " lst_441))))))" "(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_146)" +"((phase574_0) phase_148)" "((all-scopes-stx575_0) all-scopes-stx_6)" "((frame-id576_0) frame-id_18)" "((requires+provides577_0) requires+provides_8))" @@ -75284,27 +75378,27 @@ static const char *startup_source = "(datum->syntax$1" " #f" "(list" -"(datum->syntax$1(syntax-shift-phase-level$1 core-stx phase_146) 'define-values)" +"(datum->syntax$1(syntax-shift-phase-level$1 core-stx phase_148) '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)))))))))" "(define-values" "(add-post-expansion-scope)" -"(lambda(bodys_23 ctx_114)" +"(lambda(bodys_23 ctx_112)" "(begin" -"(let-values(((sc_41)(root-expand-context-post-expansion-scope ctx_114)))" +"(let-values(((sc_41)(root-expand-context-post-expansion-scope ctx_112)))" "(if sc_41" "(reverse$1" "(let-values(((lst_443) bodys_23))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_443)))" -"((letrec-values(((for-loop_339)" +"((letrec-values(((for-loop_336)" "(lambda(fold-var_381 lst_444)" "(begin" " 'for-loop" "(if(pair? lst_444)" -"(let-values(((body_21)(unsafe-car lst_444))((rest_261)(unsafe-cdr lst_444)))" +"(let-values(((body_21)(unsafe-car lst_444))((rest_260)(unsafe-cdr lst_444)))" "(let-values(((fold-var_382)" "(let-values(((fold-var_383) fold-var_381))" "(let-values(((fold-var_384)" @@ -75313,9 +75407,9 @@ static const char *startup_source = "(let-values()(add-scope body_21 sc_41))" " 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_336 fold-var_382 rest_260) fold-var_382)))" " fold-var_381)))))" -" for-loop_339)" +" for-loop_336)" " null" " lst_443))))" " bodys_23)))))" @@ -75332,7 +75426,7 @@ static const char *startup_source = "(begin" " 'finish-expanding-body-expressons99" "(let-values(((partially-expanded-bodys_1) partially-expanded-bodys98_0))" -"(let-values(((phase_147) phase84_0))" +"(let-values(((phase_149) 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))" @@ -75346,7 +75440,7 @@ static const char *startup_source = " 'loop" "(if(null? bodys_24)" "(let-values()" -"(if(if tail?_54(not(zero? phase_147)) #f)" +"(if(if tail?_54(not(zero? phase_149)) #f)" "(let-values()" "(begin" "(let-values(((obs_154)(expand-context-observer body-ctx_7)))" @@ -75400,110 +75494,110 @@ static const char *startup_source = "(let-values(((body_22)(car bodys_24)))" "(let-values(((rest-bodys_2)(cdr bodys_24)))" "(let-values(((exp-body_8)" -"(if(let-values(((or-part_407)" +"(if(let-values(((or-part_408)" "(parsed? body_22)))" -"(if or-part_407" -" or-part_407" -"(let-values(((or-part_408)" -"(expanded+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" "(semi-parsed-begin-for-syntax?" " body_22)))))" "(let-values() body_22)" "(if(semi-parsed-define-values? body_22)" "(let-values()" -"(let-values(((ids_48)" +"(let-values(((ids_47)" "(semi-parsed-define-values-ids" " body_22)))" "(let-values(((rhs-ctx_2)" "(as-named-context" "(as-expression-context" " body-ctx_7)" -" ids_48)))" +" ids_47)))" "(let-values(((syms_26)" "(semi-parsed-define-values-syms" " body_22)))" -"(let-values(((s_852)" +"(let-values(((s_854)" "(semi-parsed-define-values-s" " body_22)))" "(let-values(((ok?_87" " define-values578_0" " _579_0" " _580_0)" -"(let-values(((s_853)" +"(let-values(((s_855)" "(syntax-disarm$1" -" s_852)))" +" s_854)))" "(if(if(not" "(expand-context-to-parsed?" " rhs-ctx_2))" " #t" " #f)" "(let-values(((orig-s_91)" -" s_853))" +" s_855))" "(let-values(((define-values578_1" " _579_1" " _580_1)" -"(let-values(((s_854)" +"(let-values(((s_856)" "(if(syntax?$1" -" s_853)" +" s_855)" "(syntax-e$1" -" s_853)" -" s_853)))" +" s_855)" +" s_855)))" "(if(pair?" -" s_854)" +" s_856)" "(let-values(((define-values581_0)" -"(let-values(((s_855)" +"(let-values(((s_857)" "(car" -" s_854)))" -" s_855))" +" s_856)))" +" s_857))" "((_582_0" " _583_0)" -"(let-values(((s_856)" -"(cdr" -" s_854)))" -"(let-values(((s_857)" -"(if(syntax?$1" -" s_856)" -"(syntax-e$1" -" s_856)" -" s_856)))" -"(if(pair?" -" s_857)" -"(let-values(((_584_0)" "(let-values(((s_858)" -"(car" -" s_857)))" -" s_858))" -"((_585_0)" +"(cdr" +" s_856)))" "(let-values(((s_859)" -"(cdr" -" s_857)))" -"(let-values(((s_860)" "(if(syntax?$1" -" s_859)" +" s_858)" "(syntax-e$1" -" s_859)" -" s_859)))" +" s_858)" +" s_858)))" "(if(pair?" -" s_860)" -"(let-values(((_586_0)" -"(let-values(((s_861)" +" s_859)" +"(let-values(((_584_0)" +"(let-values(((s_860)" "(car" -" s_860)))" -" s_861))" -"(()" -"(let-values(((s_862)" +" s_859)))" +" s_860))" +"((_585_0)" +"(let-values(((s_861)" "(cdr" -" s_860)))" -"(let-values(((s_863)" +" s_859)))" +"(let-values(((s_862)" "(if(syntax?$1" -" s_862)" +" s_861)" "(syntax-e$1" +" s_861)" +" s_861)))" +"(if(pair?" " s_862)" +"(let-values(((_586_0)" +"(let-values(((s_863)" +"(car" " s_862)))" +" s_863))" +"(()" +"(let-values(((s_864)" +"(cdr" +" s_862)))" +"(let-values(((s_865)" +"(if(syntax?$1" +" s_864)" +"(syntax-e$1" +" s_864)" +" s_864)))" "(if(null?" -" s_863)" +" s_865)" "(values)" "(raise-syntax-error$1" " #f" @@ -75544,7 +75638,7 @@ static const char *startup_source = "(let-values(((rhs-ctx587_0)" " rhs-ctx_2)" "((s588_0)" -" s_852)" +" s_854)" "((temp589_0)" " #t))" "(keep-as-needed119.1" @@ -75582,7 +75676,7 @@ static const char *startup_source = "(let-values(((comp-form_0)" "(parsed-define-values19.1" " rebuild-s_15" -" ids_48" +" ids_47" " syms_26" "(if(expand-context-to-parsed?" " rhs-ctx_2)" @@ -75607,7 +75701,7 @@ static const char *startup_source = "((temp595_0)" "(list" " define-values578_0" -" ids_48" +" ids_47" " exp-rhs_7)))" "(rebuild5.1" " #t" @@ -75620,7 +75714,7 @@ static const char *startup_source = "(let-values(((tmp_66)" "(core-form-sym" " disarmed-body_0" -" phase_147)))" +" phase_149)))" "(if(if(equal? tmp_66 '#%require)" " #t" "(if(equal? tmp_66 '#%provide)" @@ -75698,7 +75792,7 @@ static const char *startup_source = "(let-values(((exp-lifted-modules_0)" "(let-values(((lifted-modules600_0)" " lifted-modules_0)" -"((phase601_0) phase_147)" +"((phase601_0) phase_149)" "((self602_0) self_36)" "((body-ctx603_0)" " body-ctx_7)" @@ -75749,18 +75843,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_113 requires+provides_9)" "(begin" "(begin" -"(let-values(((ht_166) need-eventually-defined_3))" +"(let-values(((ht_165) need-eventually-defined_3))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-in-hash ht_166)))" -"((letrec-values(((for-loop_340)" -"(lambda(i_187)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-in-hash ht_165)))" +"((letrec-values(((for-loop_337)" +"(lambda(i_186)" "(begin" " 'for-loop" -"(if i_187" -"(let-values(((phase_148 l_89)(hash-iterate-key+value ht_166 i_187)))" +"(if i_186" +"(let-values(((phase_150 l_89)(hash-iterate-key+value ht_165 i_186)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -75774,16 +75868,16 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()(check-list lst_445)))" -"((letrec-values(((for-loop_341)" +"((letrec-values(((for-loop_338)" "(lambda(lst_446)" "(begin" " 'for-loop" "(if(pair?" " lst_446)" -"(let-values(((id_157)" +"(let-values(((id_155)" "(unsafe-car" " lst_446))" -"((rest_262)" +"((rest_261)" "(unsafe-cdr" " lst_446)))" "(let-values((()" @@ -75794,9 +75888,9 @@ static const char *startup_source = "(let-values()" "(let-values(((b_96)" "(let-values(((id608_0)" -" id_157)" +" id_155)" "((phase609_0)" -" phase_148))" +" phase_150))" "(resolve+shift28.1" " #f" " #f" @@ -75813,7 +75907,7 @@ static const char *startup_source = "(module-binding-sym" " b_96)" "(syntax-e$1" -" id_157))" +" id_155))" "(eq?" "(module-binding-module" " b_96)" @@ -75827,7 +75921,7 @@ static const char *startup_source = " requires+provides_9" "(module-binding-sym" " b_96)" -" phase_148)" +" phase_150)" " #f)))" "(if(eq?" " bound-kind_0" @@ -75851,36 +75945,36 @@ static const char *startup_source = "(format" " \"\\n at phase: ~a\"" "(let-values(((tmp_67)" -" phase_148))" +" phase_150))" "(if(equal?" " tmp_67" " 1)" "(let-values()" " \"1; the transformer environment\")" "(let-values()" -" phase_148)))))" -" id_157" +" phase_150)))))" +" id_155" " #f" " null" "(syntax-debug-info-string" -" id_157" -" ctx_115))))))))" +" id_155" +" ctx_113))))))))" "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_341" -" rest_262)" +"(for-loop_338" +" rest_261)" "(values))))" "(values))))))" -" for-loop_341)" +" for-loop_338)" " lst_445)))" "(void)))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_340(hash-iterate-next ht_166 i_187))(values))))" +"(if(not #f)(for-loop_337(hash-iterate-next ht_165 i_186))(values))))" "(values))))))" -" for-loop_340)" -"(hash-iterate-first ht_166))))" +" for-loop_337)" +"(hash-iterate-first ht_165))))" "(void)))))" "(define-values" "(resolve-provides115.1)" @@ -75897,50 +75991,50 @@ 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_149) phase105_0))" +"(let-values(((phase_151) phase105_0))" "(let-values(((self_38) self106_0))" -"(let-values(((ctx_116) ctx107_1))" +"(let-values(((ctx_114) ctx107_1))" "(let-values()" "(let-values()" "((letrec-values(((loop_127)" -"(lambda(bodys_26 phase_150)" +"(lambda(bodys_26 phase_152)" "(begin" " 'loop" "(if(null? bodys_26)" "(let-values() null)" -"(if(let-values(((or-part_409)(parsed?(car bodys_26))))" -"(if or-part_409 or-part_409(expanded+parsed?(car bodys_26))))" +"(if(let-values(((or-part_410)(parsed?(car bodys_26))))" +"(if or-part_410 or-part_410(expanded+parsed?(car bodys_26))))" "(let-values()" -"(cons(car bodys_26)(loop_127(cdr bodys_26) phase_150)))" +"(cons(car bodys_26)(loop_127(cdr bodys_26) phase_152)))" "(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_150))))" +"(add1 phase_152))))" "(cons" -"(let-values(((the-struct_114)(car bodys_26)))" -"(if(semi-parsed-begin-for-syntax? the-struct_114)" +"(let-values(((the-struct_115)(car bodys_26)))" +"(if(semi-parsed-begin-for-syntax? the-struct_115)" "(let-values(((body610_0) nested-bodys_2))" "(semi-parsed-begin-for-syntax3.1" -"(semi-parsed-begin-for-syntax-s the-struct_114)" +"(semi-parsed-begin-for-syntax-s the-struct_115)" " body610_0))" "(raise-argument-error" " 'struct-copy" " \"semi-parsed-begin-for-syntax?\"" -" the-struct_114)))" -"(loop_127(cdr bodys_26) phase_150))))" +" the-struct_115)))" +"(loop_127(cdr bodys_26) phase_152))))" "(let-values()" "(let-values(((disarmed-body_1)(syntax-disarm$1(car bodys_26))))" "(let-values(((tmp_68)" -"(core-form-sym disarmed-body_1 phase_150)))" +"(core-form-sym disarmed-body_1 phase_152)))" "(if(equal? tmp_68 '#%provide)" "(let-values()" "(let-values((()" "(begin" "(let-values(((obs_159)" "(expand-context-observer" -" ctx_116)))" +" ctx_114)))" "(if obs_159" "(let-values()" "(let-values()" @@ -75955,35 +76049,35 @@ static const char *startup_source = "(void)))" "(values))))" "(let-values(((ok?_88 #%provide611_0 spec612_0)" -"(let-values(((s_864) disarmed-body_1))" -"(let-values(((orig-s_92) s_864))" +"(let-values(((s_866) disarmed-body_1))" +"(let-values(((orig-s_92) s_866))" "(let-values(((#%provide611_1" " spec612_1)" -"(let-values(((s_865)" -"(if(syntax?$1" -" s_864)" -"(syntax-e$1" -" s_864)" -" s_864)))" -"(if(pair? s_865)" -"(let-values(((#%provide613_0)" -"(let-values(((s_866)" -"(car" -" s_865)))" -" s_866))" -"((spec614_0)" "(let-values(((s_867)" -"(cdr" -" s_865)))" -"(let-values(((s_868)" "(if(syntax?$1" -" s_867)" +" s_866)" "(syntax-e$1" -" s_867)" +" s_866)" +" s_866)))" +"(if(pair? s_867)" +"(let-values(((#%provide613_0)" +"(let-values(((s_868)" +"(car" " s_867)))" +" s_868))" +"((spec614_0)" +"(let-values(((s_869)" +"(cdr" +" s_867)))" +"(let-values(((s_870)" +"(if(syntax?$1" +" s_869)" +"(syntax-e$1" +" s_869)" +" s_869)))" "(let-values(((flat-s_64)" "(to-syntax-list.1" -" s_868)))" +" s_870)))" "(if(not" " flat-s_64)" "(let-values()" @@ -76010,121 +76104,123 @@ static const char *startup_source = "(car bodys_26)" " requires+provides_10" " self_38" -" phase_150" -"(let-values(((v_275) ctx_116))" -"(let-values(((the-struct_115)" +" phase_152" +"(let-values(((v_275) ctx_114))" +"(let-values(((the-struct_116)" " v_275))" "(if(expand-context/outer?" -" the-struct_115)" +" the-struct_116)" "(let-values(((context615_0)" " 'top-level)" "((inner616_0)" -"(let-values(((the-struct_116)" +"(let-values(((the-struct_117)" "(root-expand-context/outer-inner" " v_275)))" "(if(expand-context/inner?" -" the-struct_116)" +" the-struct_117)" "(let-values(((phase617_0)" -" phase_150)" +" phase_152)" "((namespace618_0)" "(namespace->namespace-at-phase" " m-ns_21" -" phase_150))" +" phase_152))" "((requires+provides619_0)" " requires+provides_10)" "((declared-submodule-names620_0)" " declared-submodule-names_6))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi" -" the-struct_116)" +" the-struct_117)" "(root-expand-context/inner-module-scopes" -" the-struct_116)" +" the-struct_117)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_116)" +" the-struct_117)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_116)" +" the-struct_117)" "(root-expand-context/inner-defined-syms" -" the-struct_116)" +" the-struct_117)" "(root-expand-context/inner-counter" -" the-struct_116)" +" the-struct_117)" "(root-expand-context/inner-lift-key" -" the-struct_116)" +" the-struct_117)" "(expand-context/inner-to-parsed?" -" the-struct_116)" +" the-struct_117)" " phase617_0" " namespace618_0" "(expand-context/inner-just-once?" -" the-struct_116)" +" the-struct_117)" "(expand-context/inner-module-begin-k" -" the-struct_116)" +" the-struct_117)" "(expand-context/inner-allow-unbound?" -" the-struct_116)" +" the-struct_117)" "(expand-context/inner-in-local-expand?" -" the-struct_116)" +" the-struct_117)" "(expand-context/inner-keep-#%expression?" -" the-struct_116)" +" the-struct_117)" "(expand-context/inner-stops" -" the-struct_116)" +" the-struct_117)" " declared-submodule-names620_0" "(expand-context/inner-lifts" -" the-struct_116)" +" the-struct_117)" "(expand-context/inner-lift-envs" -" the-struct_116)" +" the-struct_117)" "(expand-context/inner-module-lifts" -" the-struct_116)" +" the-struct_117)" "(expand-context/inner-require-lifts" -" the-struct_116)" +" the-struct_117)" "(expand-context/inner-to-module-lifts" -" the-struct_116)" +" the-struct_117)" " requires+provides619_0" "(expand-context/inner-observer" -" the-struct_116)" +" the-struct_117)" "(expand-context/inner-for-serializable?" -" the-struct_116)" +" the-struct_117)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_116)))" +" the-struct_117)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_116)))))" +" the-struct_117)))))" "(expand-context/outer1.1" " inner616_0" "(root-expand-context/outer-post-expansion-scope" -" the-struct_115)" +" the-struct_116)" +"(root-expand-context/outer-post-expansion-shifts" +" the-struct_116)" "(root-expand-context/outer-use-site-scopes" -" the-struct_115)" +" the-struct_116)" "(root-expand-context/outer-frame-id" -" the-struct_115)" +" the-struct_116)" " context615_0" "(expand-context/outer-env" -" the-struct_115)" +" the-struct_116)" "(expand-context/outer-post-expansion-scope-action" -" the-struct_115)" +" the-struct_116)" "(expand-context/outer-scopes" -" the-struct_115)" +" the-struct_116)" "(expand-context/outer-def-ctx-scopes" -" the-struct_115)" +" the-struct_116)" "(expand-context/outer-binding-layer" -" the-struct_115)" +" the-struct_116)" "(expand-context/outer-reference-records" -" the-struct_115)" +" the-struct_116)" "(expand-context/outer-only-immediate?" -" the-struct_115)" +" the-struct_116)" "(expand-context/outer-need-eventually-defined" -" the-struct_115)" +" the-struct_116)" "(expand-context/outer-current-introduction-scopes" -" the-struct_115)" +" the-struct_116)" "(expand-context/outer-name" -" the-struct_115)))" +" the-struct_116)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_115)))))))" -"(if(expand-context-to-parsed? ctx_116)" +" the-struct_116)))))))" +"(if(expand-context-to-parsed? ctx_114)" "(let-values()" -"(loop_127(cdr bodys_26) phase_150))" +"(loop_127(cdr bodys_26) phase_152))" "(let-values()" -"(let-values(((new-s_10)" +"(let-values(((new-s_11)" "(syntax-track-origin*" " track-stxes_10" "(let-values(((temp621_0)" @@ -76140,27 +76236,27 @@ static const char *startup_source = "(begin" "(let-values(((obs_160)" "(expand-context-observer" -" ctx_116)))" +" ctx_114)))" "(if obs_160" "(let-values()" "(let-values()" "(call-expand-observe" " obs_160" " 'exit-prim" -" new-s_10)))" +" new-s_11)))" "(void)))" "(cons" -" new-s_10" +" new-s_11" "(loop_127" "(cdr bodys_26)" -" phase_150))))))))))" +" phase_152))))))))))" "(let-values()" "(cons" "(car bodys_26)" -"(loop_127(cdr bodys_26) phase_150))))))))))))))" +"(loop_127(cdr bodys_26) phase_152))))))))))))))" " loop_127)" " expression-expanded-bodys_1" -" phase_149)))))))))))))" +" phase_151)))))))))))))" "(define-values" "(declare-module-for-expansion139.1)" "(lambda(ctx125_0" @@ -76184,7 +76280,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_115) ctx125_0))" "(let-values(((modules-being-compiled_6) modules-being-compiled126_0))" "(let-values(((compiled-module-box_1) fill127_0))" "(let-values()" @@ -76205,8 +76301,8 @@ static const char *startup_source = "(hasheq))))" "(let-values(((module-name_2)" "(1/module-path-index-resolve" -"(let-values(((or-part_410) enclosing-self_3))" -"(if or-part_410 or-part_410 self_39)))))" +"(let-values(((or-part_411) enclosing-self_3))" +"(if or-part_411 or-part_411 self_39)))))" "(let-values(((compiled-module_0)" "(let-values(((parsed-mod623_0) parsed-mod_0)" "((temp624_0)" @@ -76224,7 +76320,7 @@ static const char *startup_source = " m-ns628_0" " unsafe-undefined" " unsafe-undefined)))" -"((temp625_0)(expand-context-for-serializable? ctx_117))" +"((temp625_0)(expand-context-for-serializable? ctx_115))" "((modules-being-compiled626_0) modules-being-compiled_6)" "((temp627_0) #f))" "(compile-module13.1" @@ -76258,16 +76354,16 @@ static const char *startup_source = " compiled-module631_0)))))))))))))))))))))))))" "(define-values" "(attach-root-expand-context-properties)" -"(lambda(s_683 root-ctx_8 orig-self_1 new-self_2)" +"(lambda(s_685 root-ctx_8 orig-self_1 new-self_2)" "(begin" -"(let-values(((s_687)" -"(syntax-property$1 s_683 'module-body-context(root-expand-context-all-scopes-stx root-ctx_8))))" -"(let-values(((s_869)" +"(let-values(((s_689)" +"(syntax-property$1 s_685 'module-body-context(root-expand-context-all-scopes-stx root-ctx_8))))" +"(let-values(((s_871)" "(syntax-property$1" -" s_687" +" s_689" " 'module-body-inside-context" "(add-scope empty-syntax(root-expand-context-post-expansion-scope root-ctx_8)))))" -" s_869)))))" +" s_871)))))" "(define-values" "(expand-post-submodules165.1)" "(lambda(all-scopes-s147_0" @@ -76286,7 +76382,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_151) phase143_0))" +"(let-values(((phase_153) 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))" @@ -76298,7 +76394,7 @@ static const char *startup_source = "(let-values(((submod-ctx_1) ctx152_0))" "(let-values()" "((letrec-values(((loop_128)" -"(lambda(bodys_27 phase_152)" +"(lambda(bodys_27 phase_154)" "(begin" " 'loop" "(if(null? bodys_27)" @@ -76312,37 +76408,37 @@ static const char *startup_source = "(semi-parsed-begin-for-syntax-s" " body_23)))" "(let-values(((ok?_89 begin-for-syntax633_0 _634_0)" -"(let-values(((s_870)" +"(let-values(((s_872)" "(syntax-disarm$1" " body-s_0)))" -"(let-values(((orig-s_93) s_870))" +"(let-values(((orig-s_93) s_872))" "(let-values(((begin-for-syntax633_1" " _634_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-syntax635_0)" -"(let-values(((s_872)" -"(car" -" s_871)))" -" s_872))" -"((_636_0)" "(let-values(((s_873)" -"(cdr" -" s_871)))" -"(let-values(((s_874)" "(if(syntax?$1" -" s_873)" +" s_872)" "(syntax-e$1" -" s_873)" +" s_872)" +" s_872)))" +"(if(pair? s_873)" +"(let-values(((begin-for-syntax635_0)" +"(let-values(((s_874)" +"(car" " s_873)))" +" s_874))" +"((_636_0)" +"(let-values(((s_875)" +"(cdr" +" s_873)))" +"(let-values(((s_876)" +"(if(syntax?$1" +" s_875)" +"(syntax-e$1" +" s_875)" +" s_875)))" "(let-values(((flat-s_65)" "(to-syntax-list.1" -" s_874)))" +" s_876)))" "(if(not" " flat-s_65)" "(let-values()" @@ -76378,7 +76474,7 @@ static const char *startup_source = "(loop_128" "(semi-parsed-begin-for-syntax-body" " body_23)" -"(add1 phase_152))))" +"(add1 phase_154))))" "(let-values(((parsed-bfs_0)" "(parsed-begin-for-syntax21.1" " rebuild-body-s_0" @@ -76400,20 +76496,20 @@ static const char *startup_source = " rebuild-body-s639_0" " temp640_0))" " parsed-bfs_0))" -"(loop_128 rest-bodys_3 phase_152))))))))" -"(if(let-values(((or-part_411)(parsed? body_23)))" -"(if or-part_411" -" or-part_411" +"(loop_128 rest-bodys_3 phase_154))))))))" +"(if(let-values(((or-part_412)(parsed? body_23)))" +"(if or-part_412" +" or-part_412" "(expanded+parsed? body_23)))" "(let-values()" -"(cons body_23(loop_128 rest-bodys_3 phase_152)))" +"(cons body_23(loop_128 rest-bodys_3 phase_154)))" "(let-values()" "(let-values(((disarmed-body_2)" "(syntax-disarm$1 body_23)))" "(let-values(((tmp_69)" "(core-form-sym" " disarmed-body_2" -" phase_152)))" +" phase_154)))" "(if(equal? tmp_69 'module*)" "(let-values()" "(let-values((()" @@ -76429,60 +76525,60 @@ static const char *startup_source = " module*641_0" " name642_0" " _643_0)" -"(let-values(((s_875)" +"(let-values(((s_877)" " disarmed-body_2))" -"(if(let-values(((s_876)" +"(if(let-values(((s_878)" "(if(syntax?$1" -" s_875)" +" s_877)" "(syntax-e$1" -" s_875)" -" s_875)))" -"(if(pair? s_876)" -"(if(let-values(((s_877)" +" s_877)" +" s_877)))" +"(if(pair? s_878)" +"(if(let-values(((s_879)" "(car" -" s_876)))" -" #t)" -"(let-values(((s_878)" -"(cdr" -" s_876)))" -"(let-values(((s_879)" -"(if(syntax?$1" -" s_878)" -"(syntax-e$1" -" s_878)" " s_878)))" -"(if(pair?" -" s_879)" -"(if(let-values(((s_880)" -"(car" -" s_879)))" " #t)" -"(let-values(((s_881)" +"(let-values(((s_880)" "(cdr" -" s_879)))" -"(let-values(((s_882)" +" s_878)))" +"(let-values(((s_881)" "(if(syntax?$1" -" s_881)" +" s_880)" "(syntax-e$1" -" s_881)" -" s_881)))" +" s_880)" +" s_880)))" "(if(pair?" -" s_882)" -"(if(let-values(((s_883)" +" s_881)" +"(if(let-values(((s_882)" "(car" -" s_882)))" +" s_881)))" +" #t)" +"(let-values(((s_883)" +"(cdr" +" s_881)))" "(let-values(((s_884)" "(if(syntax?$1" " s_883)" "(syntax-e$1" " s_883)" " s_883)))" +"(if(pair?" +" s_884)" +"(if(let-values(((s_885)" +"(car" +" s_884)))" +"(let-values(((s_886)" +"(if(syntax?$1" +" s_885)" +"(syntax-e$1" +" s_885)" +" s_885)))" "(eq?" " #f" -" s_884)))" -"(let-values(((s_885)" +" s_886)))" +"(let-values(((s_887)" "(cdr" -" s_882)))" +" s_884)))" " #t)" " #f)" " #f)))" @@ -76494,59 +76590,59 @@ static const char *startup_source = "(let-values(((module*641_1" " name642_1" " _643_1)" -"(let-values(((s_886)" +"(let-values(((s_888)" "(if(syntax?$1" -" s_875)" +" s_877)" "(syntax-e$1" -" s_875)" -" s_875)))" +" s_877)" +" s_877)))" "(let-values(((module*644_0)" -"(let-values(((s_887)" +"(let-values(((s_889)" "(car" -" s_886)))" -" s_887))" +" s_888)))" +" s_889))" "((name645_0" " _646_0)" -"(let-values(((s_888)" -"(cdr" -" s_886)))" -"(let-values(((s_889)" -"(if(syntax?$1" -" s_888)" -"(syntax-e$1" -" s_888)" -" s_888)))" -"(let-values(((name647_0)" -"(let-values(((s_704)" -"(car" -" s_889)))" -" s_704))" -"((_648_0)" "(let-values(((s_890)" "(cdr" -" s_889)))" +" s_888)))" "(let-values(((s_891)" "(if(syntax?$1" " s_890)" "(syntax-e$1" " s_890)" " s_890)))" -"(let-values((()" -"(let-values(((s_892)" +"(let-values(((name647_0)" +"(let-values(((s_706)" "(car" " s_891)))" -"(let-values(((s_705)" +" s_706))" +"((_648_0)" +"(let-values(((s_892)" +"(cdr" +" s_891)))" +"(let-values(((s_893)" "(if(syntax?$1" " s_892)" "(syntax-e$1" " s_892)" " s_892)))" +"(let-values((()" +"(let-values(((s_894)" +"(car" +" s_893)))" +"(let-values(((s_707)" +"(if(syntax?$1" +" s_894)" +"(syntax-e$1" +" s_894)" +" s_894)))" "(values))))" "((_649_0)" -"(let-values(((s_893)" +"(let-values(((s_895)" "(cdr" -" s_891)))" " s_893)))" +" s_895)))" "(values" " _649_0))))))" "(values" @@ -76572,7 +76668,7 @@ static const char *startup_source = "(let-values(((neg-phase_0)" "(phase-" " 0" -" phase_152)))" +" phase_154)))" "(let-values(((shifted-s_0)" "(syntax-shift-phase-level$1" " ready-body_2" @@ -76622,27 +76718,27 @@ static const char *startup_source = "(if(expanded+parsed?" " submod_4)" "(let-values()" -"(let-values(((the-struct_117)" +"(let-values(((the-struct_118)" " submod_4))" "(if(expanded+parsed?" -" the-struct_117)" +" the-struct_118)" "(let-values(((s662_0)" "(syntax-shift-phase-level$1" "(expanded+parsed-s" " submod_4)" -" phase_152)))" +" phase_154)))" "(expanded+parsed1.1" " s662_0" "(expanded+parsed-parsed" -" the-struct_117)))" +" the-struct_118)))" "(raise-argument-error" " 'struct-copy" " \"expanded+parsed?\"" -" the-struct_117))))" +" the-struct_118))))" "(let-values()" "(syntax-shift-phase-level$1" " submod_4" -" phase_152))))))))" +" phase_154))))))))" "(let-values()" "(let-values(((ready-body663_0)" " ready-body_2)" @@ -76677,47 +76773,47 @@ static const char *startup_source = " submod_3" "(loop_128" " rest-bodys_3" -" phase_152)))))))" +" phase_154)))))))" "(let-values()" "(cons" " body_23" "(loop_128" " rest-bodys_3" -" phase_152)))))))))))))))))" +" phase_154)))))))))))))))))" " loop_128)" " fully-expanded-bodys-except-post-submodules_2" -" phase_151)))))))))))))))))" +" phase_153)))))))))))))))))" "(define-values" "(stop-at-module*?)" -"(lambda(ctx_118)" +"(lambda(ctx_116)" "(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_116)" +"(expand-context-phase ctx_116)" +"(syntax-shift-phase-level$1(datum->syntax$1 core-stx 'module*)(expand-context-phase ctx_116))))))" "(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_153) phase171_0))" +"(let-values(((ids_48) ids170_0))" +"(let-values(((phase_155) phase171_0))" "(let-values(((requires+provides_13) requires+provides172_0))" -"(let-values(((s_894) in168_0))" +"(let-values(((s_896) in168_0))" "(let-values()" "(begin" -"(let-values(((lst_447) ids_49))" +"(let-values(((lst_447) ids_48))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_447)))" -"((letrec-values(((for-loop_342)" +"((letrec-values(((for-loop_339)" "(lambda(lst_448)" "(begin" " 'for-loop" "(if(pair? lst_448)" -"(let-values(((id_158)(unsafe-car lst_448))" -"((rest_263)(unsafe-cdr lst_448)))" +"(let-values(((id_156)(unsafe-car lst_448))" +"((rest_262)(unsafe-cdr lst_448)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -76726,10 +76822,10 @@ static const char *startup_source = "(let-values()" "(let-values(((requires+provides671_0)" " requires+provides_13)" -"((id672_0) id_158)" +"((id672_0) id_156)" "((phase673_0)" -" phase_153)" -"((s674_0) s_894)" +" phase_155)" +"((s674_0) s_896)" "((temp675_0) 'module))" "(check-not-defined95.1" " #f" @@ -76744,25 +76840,25 @@ static const char *startup_source = " phase673_0)))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_342 rest_263)(values))))" +"(if(not #f)(for-loop_339 rest_262)(values))))" "(values))))))" -" for-loop_342)" +" for-loop_339)" " lst_447)))" "(void))))))))))" "(define-values" "(eval-nested-bodys)" -"(lambda(bodys_28 phase_154 m-ns_23 self_41 ctx_119)" +"(lambda(bodys_28 phase_156 m-ns_23 self_41 ctx_117)" "(begin" "(begin" "(let-values(((lst_449) bodys_28))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_449)))" -"((letrec-values(((for-loop_343)" +"((letrec-values(((for-loop_340)" "(lambda(lst_450)" "(begin" " 'for-loop" "(if(pair? lst_450)" -"(let-values(((body_24)(unsafe-car lst_450))((rest_264)(unsafe-cdr lst_450)))" +"(let-values(((body_24)(unsafe-car lst_450))((rest_263)(unsafe-cdr lst_450)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -76776,20 +76872,20 @@ static const char *startup_source = " body_24)))" "(if(parsed-define-values? p_88)" "(let-values()" -"(let-values(((ids_50)" +"(let-values(((ids_49)" "(parsed-define-values-ids" " p_88)))" "(let-values(((vals_11)" "(eval-for-bindings" " 'define-values" -" ids_50" +" ids_49" "(parsed-define-values-rhs" " p_88)" -" phase_154" +" phase_156" " m-ns_23" -" ctx_119)))" +" ctx_117)))" "(begin" -"(let-values(((lst_451) ids_50)" +"(let-values(((lst_451) ids_49)" "((lst_452)" "(parsed-define-values-syms" " p_88))" @@ -76810,7 +76906,7 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list lst_453)))" -"((letrec-values(((for-loop_344)" +"((letrec-values(((for-loop_341)" "(lambda(lst_454" " lst_455" " lst_456)" @@ -76824,22 +76920,22 @@ static const char *startup_source = " lst_456)" " #f)" " #f)" -"(let-values(((id_159)" +"(let-values(((id_157)" "(unsafe-car" " lst_454))" -"((rest_265)" +"((rest_264)" "(unsafe-cdr" " lst_454))" "((sym_111)" "(unsafe-car" " lst_455))" -"((rest_266)" +"((rest_265)" "(unsafe-cdr" " lst_455))" -"((val_88)" +"((val_87)" "(unsafe-car" " lst_456))" -"((rest_267)" +"((rest_266)" "(unsafe-cdr" " lst_456)))" "(let-values((()" @@ -76850,37 +76946,37 @@ static const char *startup_source = "(let-values()" "(namespace-set-variable!" " m-ns_23" -" phase_154" +" phase_156" " sym_111" -" val_88))" +" val_87))" "(values)))))" "(values)))))" "(if(not" " #f)" -"(for-loop_344" +"(for-loop_341" +" rest_264" " rest_265" -" rest_266" -" rest_267)" +" rest_266)" "(values))))" "(values))))))" -" for-loop_344)" +" for-loop_341)" " lst_451" " lst_452" " lst_453)))" "(void)))))" -"(if(let-values(((or-part_412)" -"(parsed-define-syntaxes?" -" p_88)))" -"(if or-part_412" -" or-part_412" -"(semi-parsed-begin-for-syntax?" -" p_88)))" -"(let-values()(void))" "(if(let-values(((or-part_413)" -"(parsed-#%declare?" +"(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?" +" p_88)))" +"(if or-part_414" +" or-part_414" "(syntax?$1 p_88)))" "(let-values()(void))" "(let-values()" @@ -76891,7 +76987,7 @@ static const char *startup_source = " #f" " parameterization-key)" " current-expand-context" -" ctx_119" +" ctx_117" " 1/current-namespace" " m-ns_23)" "(let-values()" @@ -76901,7 +76997,7 @@ static const char *startup_source = "(let-values(((m-ns676_0)" " m-ns_23)" "((phase677_0)" -" phase_154))" +" phase_156))" "(make-compile-context14.1" " #f" " unsafe-undefined" @@ -76912,9 +77008,9 @@ static const char *startup_source = " m-ns_23)))))))))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_343 rest_264)(values))))" +"(if(not #f)(for-loop_340 rest_263)(values))))" "(values))))))" -" for-loop_343)" +" for-loop_340)" " lst_449)))" "(void)))))" "(define-values" @@ -76933,9 +77029,9 @@ static const char *startup_source = " ctx196_0)" "(begin" " 'expand-submodule197" -"(let-values(((s_733) s194_0))" +"(let-values(((s_735) s194_0))" "(let-values(((self_42) self195_0))" -"(let-values(((ctx_120) ctx196_0))" +"(let-values(((ctx_118) 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))" @@ -76951,47 +77047,47 @@ static const char *startup_source = "(if is-star?_0" "(void)" "(let-values()" -"(let-values(((obs_161)(expand-context-observer ctx_120)))" +"(let-values(((obs_161)(expand-context-observer ctx_118)))" "(if obs_161" "(let-values()" "(let-values()" "(begin" -"(call-expand-observe obs_161 'enter-prim s_733)" +"(call-expand-observe obs_161 'enter-prim s_735)" "(call-expand-observe" " obs_161" "(if is-star?_0 'prim-submodule* 'prim-submodule)))))" "(void)))))" "(values))))" "(let-values(((ok?_91 module678_0 name679_0 _680_0)" -"(let-values(((s_895) s_733))" -"(let-values(((orig-s_94) s_895))" +"(let-values(((s_897) s_735))" +"(let-values(((orig-s_94) s_897))" "(let-values(((module678_1 name679_1 _680_1)" -"(let-values(((s_896)" -"(if(syntax?$1 s_895)" -"(syntax-e$1 s_895)" -" s_895)))" -"(if(pair? s_896)" +"(let-values(((s_898)" +"(if(syntax?$1 s_897)" +"(syntax-e$1 s_897)" +" s_897)))" +"(if(pair? s_898)" "(let-values(((module681_0)" -"(let-values(((s_897)(car s_896)))" -" s_897))" +"(let-values(((s_899)(car s_898)))" +" s_899))" "((name682_0 _683_0)" -"(let-values(((s_898)(cdr s_896)))" -"(let-values(((s_899)" -"(if(syntax?$1" -" s_898)" -"(syntax-e$1 s_898)" -" s_898)))" -"(if(pair? s_899)" -"(let-values(((name684_0)" -"(let-values(((s_900)" -"(car" -" s_899)))" -" s_900))" -"((_685_0)" +"(let-values(((s_900)(cdr s_898)))" "(let-values(((s_901)" -"(cdr" -" s_899)))" +"(if(syntax?$1" +" s_900)" +"(syntax-e$1 s_900)" +" s_900)))" +"(if(pair? s_901)" +"(let-values(((name684_0)" +"(let-values(((s_902)" +"(car" " s_901)))" +" s_902))" +"((_685_0)" +"(let-values(((s_903)" +"(cdr" +" s_901)))" +" s_903)))" "(values name684_0 _685_0))" "(raise-syntax-error$1" " #f" @@ -77011,7 +77107,7 @@ static const char *startup_source = "(raise-syntax-error$1" " #f" " \"submodule already declared with the same name\"" -" s_733" +" s_735" " name_82))" "(void))" "(values))))" @@ -77024,118 +77120,120 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(let-values(((obs_162)(expand-context-observer ctx_120)))" +"(let-values(((obs_162)(expand-context-observer ctx_118)))" "(if obs_162" "(let-values()" "(let-values()" -"(call-expand-observe obs_162 'enter-prim s_733)))" +"(call-expand-observe obs_162 'enter-prim s_735)))" "(void)))" "(values))))" "(let-values(((submod_5)" -"(let-values(((s686_0) s_733)" +"(let-values(((s686_0) s_735)" "((temp687_0)" -"(let-values(((v_276) ctx_120))" -"(let-values(((the-struct_118) v_276))" -"(if(expand-context/outer? the-struct_118)" +"(let-values(((v_276) ctx_118))" +"(let-values(((the-struct_119) v_276))" +"(if(expand-context/outer? the-struct_119)" "(let-values(((context696_0) 'module)" "((post-expansion-scope697_0)" " #f)" "((inner698_0)" -"(let-values(((the-struct_119)" +"(let-values(((the-struct_120)" "(root-expand-context/outer-inner" " v_276)))" "(if(expand-context/inner?" -" the-struct_119)" +" the-struct_120)" "(let-values(((stops699_0)" " empty-free-id-set))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi" -" the-struct_119)" +" the-struct_120)" "(root-expand-context/inner-module-scopes" -" the-struct_119)" +" the-struct_120)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_119)" +" the-struct_120)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_119)" +" the-struct_120)" "(root-expand-context/inner-defined-syms" -" the-struct_119)" +" the-struct_120)" "(root-expand-context/inner-counter" -" the-struct_119)" +" the-struct_120)" "(root-expand-context/inner-lift-key" -" the-struct_119)" +" the-struct_120)" "(expand-context/inner-to-parsed?" -" the-struct_119)" +" the-struct_120)" "(expand-context/inner-phase" -" the-struct_119)" +" the-struct_120)" "(expand-context/inner-namespace" -" the-struct_119)" +" the-struct_120)" "(expand-context/inner-just-once?" -" the-struct_119)" +" the-struct_120)" "(expand-context/inner-module-begin-k" -" the-struct_119)" +" the-struct_120)" "(expand-context/inner-allow-unbound?" -" the-struct_119)" +" the-struct_120)" "(expand-context/inner-in-local-expand?" -" the-struct_119)" +" the-struct_120)" "(expand-context/inner-keep-#%expression?" -" the-struct_119)" +" the-struct_120)" " stops699_0" "(expand-context/inner-declared-submodule-names" -" the-struct_119)" +" the-struct_120)" "(expand-context/inner-lifts" -" the-struct_119)" +" the-struct_120)" "(expand-context/inner-lift-envs" -" the-struct_119)" +" the-struct_120)" "(expand-context/inner-module-lifts" -" the-struct_119)" +" the-struct_120)" "(expand-context/inner-require-lifts" -" the-struct_119)" +" the-struct_120)" "(expand-context/inner-to-module-lifts" -" the-struct_119)" +" the-struct_120)" "(expand-context/inner-requires+provides" -" the-struct_119)" +" the-struct_120)" "(expand-context/inner-observer" -" the-struct_119)" +" the-struct_120)" "(expand-context/inner-for-serializable?" -" the-struct_119)" +" the-struct_120)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_119)))" +" the-struct_120)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_119)))))" +" the-struct_120)))))" "(expand-context/outer1.1" " inner698_0" " post-expansion-scope697_0" +"(root-expand-context/outer-post-expansion-shifts" +" the-struct_119)" "(root-expand-context/outer-use-site-scopes" -" the-struct_118)" +" the-struct_119)" "(root-expand-context/outer-frame-id" -" the-struct_118)" +" the-struct_119)" " context696_0" "(expand-context/outer-env" -" the-struct_118)" +" the-struct_119)" "(expand-context/outer-post-expansion-scope-action" -" the-struct_118)" +" the-struct_119)" "(expand-context/outer-scopes" -" the-struct_118)" +" the-struct_119)" "(expand-context/outer-def-ctx-scopes" -" the-struct_118)" +" the-struct_119)" "(expand-context/outer-binding-layer" -" the-struct_118)" +" the-struct_119)" "(expand-context/outer-reference-records" -" the-struct_118)" +" the-struct_119)" "(expand-context/outer-only-immediate?" -" the-struct_118)" +" the-struct_119)" "(expand-context/outer-need-eventually-defined" -" the-struct_118)" +" the-struct_119)" "(expand-context/outer-current-introduction-scopes" -" the-struct_118)" +" the-struct_119)" "(expand-context/outer-name" -" the-struct_118)))" +" the-struct_119)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_118)))))" +" the-struct_119)))))" "((self688_0) self_42)" "((temp689_0) #t)" "((keep-enclosing-scope-at-phase690_0)" @@ -77162,7 +77260,7 @@ static const char *startup_source = "(let-values((()" "(begin" "(let-values(((obs_163)" -"(expand-context-observer ctx_120)))" +"(expand-context-observer ctx_118)))" "(if obs_163" "(let-values()" "(let-values()" @@ -77172,7 +77270,7 @@ static const char *startup_source = "(extract-syntax submod_5))))" "(void)))" "(values))))" -"(let-values(((ns_131)(expand-context-namespace ctx_120)))" +"(let-values(((ns_131)(expand-context-namespace ctx_118)))" "(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)))" @@ -77197,7 +77295,7 @@ static const char *startup_source = "((temp702_0) #t)" "((temp703_0)" "(expand-context-for-serializable?" -" ctx_120))" +" ctx_118))" "((modules-being-compiled704_0)" " modules-being-compiled_8)" "((temp705_0) #f))" @@ -77235,7 +77333,7 @@ static const char *startup_source = "(void)" "(let-values()" "(let-values(((obs_164)" -"(expand-context-observer ctx_120)))" +"(expand-context-observer ctx_118)))" "(if obs_164" "(let-values()" "(let-values()" @@ -77248,67 +77346,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(((the-struct_121) submod_5))" +"(if(expanded+parsed? the-struct_121)" "(let-values(((parsed711_0)" -"(let-values(((the-struct_121)" +"(let-values(((the-struct_122)" "(expanded+parsed-parsed" " submod_5)))" -"(if(parsed-module? the-struct_121)" +"(if(parsed-module? the-struct_122)" "(let-values(((star?712_0) #t))" "(parsed-module25.1" -"(parsed-s the-struct_121)" +"(parsed-s the-struct_122)" " star?712_0" "(parsed-module-name-id" -" the-struct_121)" +" the-struct_122)" "(parsed-module-self" -" the-struct_121)" +" the-struct_122)" "(parsed-module-requires" -" the-struct_121)" +" the-struct_122)" "(parsed-module-provides" -" the-struct_121)" +" the-struct_122)" "(parsed-module-root-ctx-simple?" -" the-struct_121)" +" the-struct_122)" "(parsed-module-encoded-root-ctx" -" the-struct_121)" +" the-struct_122)" "(parsed-module-body" -" the-struct_121)" +" the-struct_122)" "(parsed-module-compiled-module" -" the-struct_121)" -"(parsed-module-compiled-submodules" -" the-struct_121)))" -"(raise-argument-error" -" 'struct-copy" -" \"parsed-module?\"" -" the-struct_121)))))" -"(expanded+parsed1.1" -"(expanded+parsed-s the-struct_120)" -" parsed711_0))" -"(raise-argument-error" -" 'struct-copy" -" \"expanded+parsed?\"" -" the-struct_120))))" -"(let-values()" -"(let-values(((the-struct_122) submod_5))" -"(if(parsed-module? the-struct_122)" -"(let-values(((star?713_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)" +" the-struct_122)" "(parsed-module-compiled-submodules" " the-struct_122)))" "(raise-argument-error" " 'struct-copy" +" \"parsed-module?\"" +" the-struct_122)))))" +"(expanded+parsed1.1" +"(expanded+parsed-s the-struct_121)" +" parsed711_0))" +"(raise-argument-error" +" 'struct-copy" +" \"expanded+parsed?\"" +" the-struct_121))))" +"(let-values()" +"(let-values(((the-struct_123) submod_5))" +"(if(parsed-module? the-struct_123)" +"(let-values(((star?713_0) #t))" +"(parsed-module25.1" +"(parsed-s the-struct_123)" +" star?713_0" +"(parsed-module-name-id the-struct_123)" +"(parsed-module-self the-struct_123)" +"(parsed-module-requires the-struct_123)" +"(parsed-module-provides the-struct_123)" +"(parsed-module-root-ctx-simple? the-struct_123)" +"(parsed-module-encoded-root-ctx the-struct_123)" +"(parsed-module-body the-struct_123)" +"(parsed-module-compiled-module the-struct_123)" +"(parsed-module-compiled-submodules" +" the-struct_123)))" +"(raise-argument-error" +" 'struct-copy" " \"parsed-module?\"" -" the-struct_122)))))))))))))))))))))))))))))))))))" +" the-struct_123)))))))))))))))))))))))))))))))))))" "(define-values" "(expand-non-module*-submodules212.1)" "(lambda(compiled-submodules202_0" @@ -77322,9 +77420,9 @@ static const char *startup_source = "(begin" " 'expand-non-module*-submodules212" "(let-values(((bodys_29) bodys208_0))" -"(let-values(((phase_155) phase209_0))" +"(let-values(((phase_157) phase209_0))" "(let-values(((self_43) self210_0))" -"(let-values(((ctx_121) ctx211_0))" +"(let-values(((ctx_119) 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))" @@ -77336,13 +77434,13 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_457)))" -"((letrec-values(((for-loop_345)" +"((letrec-values(((for-loop_342)" "(lambda(fold-var_385 lst_458)" "(begin" " 'for-loop" "(if(pair? lst_458)" "(let-values(((body_25)(unsafe-car lst_458))" -"((rest_268)(unsafe-cdr lst_458)))" +"((rest_267)(unsafe-cdr lst_458)))" "(let-values(((fold-var_386)" "(let-values(((fold-var_387) fold-var_385))" "(let-values(((fold-var_388)" @@ -77353,7 +77451,7 @@ static const char *startup_source = "(core-form-sym" "(syntax-disarm$1" " body_25)" -" phase_155)))" +" phase_157)))" "(if(equal? tmp_70 'module)" "(let-values()" "(let-values(((body714_0)" @@ -77361,7 +77459,7 @@ static const char *startup_source = "((self715_0)" " self_43)" "((ctx716_0)" -" ctx_121)" +" ctx_119)" "((temp717_0)" " #f)" "((mpis-to-reset718_0)" @@ -77389,10 +77487,10 @@ static const char *startup_source = " fold-var_387))))" "(values fold-var_388)))))" "(if(not #f)" -"(for-loop_345 fold-var_386 rest_268)" +"(for-loop_342 fold-var_386 rest_267)" " fold-var_386)))" " fold-var_385)))))" -" for-loop_345)" +" for-loop_342)" " null" " lst_457))))))))))))))))" "(define-values" @@ -77405,37 +77503,37 @@ 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_902 phase_156)" +"(lambda(s_904 phase_158)" "(let-values(((ok?_92 #%require722_0 req723_0)" -"(let-values(((s_903)(syntax-disarm$1 s_902)))" -"(let-values(((orig-s_95) s_903))" +"(let-values(((s_905)(syntax-disarm$1 s_904)))" +"(let-values(((orig-s_95) s_905))" "(let-values(((#%require722_1 req723_1)" -"(let-values(((s_904)" -"(if(syntax?$1 s_903)(syntax-e$1 s_903) s_903)))" -"(if(pair? s_904)" +"(let-values(((s_906)" +"(if(syntax?$1 s_905)(syntax-e$1 s_905) s_905)))" +"(if(pair? s_906)" "(let-values(((#%require724_0)" -"(let-values(((s_905)(car s_904))) s_905))" +"(let-values(((s_907)(car s_906))) s_907))" "((req725_0)" -"(let-values(((s_906)(cdr s_904)))" -"(let-values(((s_907)" -"(if(syntax?$1 s_906)" -"(syntax-e$1 s_906)" -" s_906)))" -"(if(pair? s_907)" -"(let-values(((req726_0)" -"(let-values(((s_908)" -"(car s_907)))" -" s_908))" -"(()" +"(let-values(((s_908)(cdr s_906)))" "(let-values(((s_909)" -"(cdr s_907)))" +"(if(syntax?$1 s_908)" +"(syntax-e$1 s_908)" +" s_908)))" +"(if(pair? s_909)" +"(let-values(((req726_0)" "(let-values(((s_910)" +"(car s_909)))" +" s_910))" +"(()" +"(let-values(((s_911)" +"(cdr s_909)))" +"(let-values(((s_912)" "(if(syntax?$1" -" s_909)" +" s_911)" "(syntax-e$1" -" s_909)" -" s_909)))" -"(if(null? s_910)" +" s_911)" +" s_911)))" +"(if(null? s_912)" "(values)" "(raise-syntax-error$1" " #f" @@ -77450,11 +77548,11 @@ static const char *startup_source = " (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_902)" +"((s728_0) s_904)" "((self729_0) self_44)" "((m-ns730_0) m-ns_24)" -"((phase731_0) phase_156)" -"((phase732_0) phase_156)" +"((phase731_0) phase_158)" +"((phase732_0) phase_158)" "((requires+provides733_0) requires+provides_14)" "((declared-submodule-names734_0) declared-submodule-names_10)" "((temp735_0) 'require))" @@ -77490,13 +77588,13 @@ static const char *startup_source = "(let-values(((lst_459) lifted-defns_2))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_459)))" -"((letrec-values(((for-loop_346)" +"((letrec-values(((for-loop_343)" "(lambda(fold-var_389 lst_460)" "(begin" " 'for-loop" "(if(pair? lst_460)" "(let-values(((lifted-defn_0)(unsafe-car lst_460))" -"((rest_269)(unsafe-cdr lst_460)))" +"((rest_268)(unsafe-cdr lst_460)))" "(let-values(((fold-var_390)" "(let-values(((fold-var_391) fold-var_389))" "(let-values(((fold-var_392)" @@ -77506,9 +77604,9 @@ 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_343 fold-var_390 rest_268) fold-var_390)))" " fold-var_389)))))" -" for-loop_346)" +" for-loop_343)" " null" " lst_459)))))))" "(define-values" @@ -77531,13 +77629,13 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_461)))" -"((letrec-values(((for-loop_347)" +"((letrec-values(((for-loop_344)" "(lambda(lst_462)" "(begin" " 'for-loop" "(if(pair? lst_462)" "(let-values(((s-lifted-defn_0)(unsafe-car lst_462))" -"((rest_270)(unsafe-cdr lst_462)))" +"((rest_269)(unsafe-cdr lst_462)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -77547,38 +77645,38 @@ static const char *startup_source = "(let-values(((ok?_93" " define-values740_0" " _741_0)" -"(let-values(((s_911)" +"(let-values(((s_913)" " s-lifted-defn_0))" "(let-values(((orig-s_96)" -" s_911))" +" s_913))" "(let-values(((define-values740_1" " _741_1)" -"(let-values(((s_912)" -"(if(syntax?$1" -" s_911)" -"(syntax-e$1" -" s_911)" -" s_911)))" -"(if(pair?" -" s_912)" -"(let-values(((define-values742_0)" -"(let-values(((s_913)" -"(car" -" s_912)))" -" s_913))" -"((_743_0)" "(let-values(((s_914)" -"(cdr" -" s_912)))" -"(let-values(((s_915)" "(if(syntax?$1" -" s_914)" +" s_913)" "(syntax-e$1" +" s_913)" +" s_913)))" +"(if(pair?" " s_914)" +"(let-values(((define-values742_0)" +"(let-values(((s_915)" +"(car" " s_914)))" +" s_915))" +"((_743_0)" +"(let-values(((s_916)" +"(cdr" +" s_914)))" +"(let-values(((s_917)" +"(if(syntax?$1" +" s_916)" +"(syntax-e$1" +" s_916)" +" s_916)))" "(let-values(((flat-s_66)" "(to-syntax-list.1" -" s_915)))" +" s_917)))" "(if(not" " flat-s_66)" "(let-values()" @@ -77643,23 +77741,23 @@ static const char *startup_source = " s-lifted-defn_0))))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_347 rest_270)(values))))" +"(if(not #f)(for-loop_344 rest_269)(values))))" "(values))))))" -" for-loop_347)" +" for-loop_344)" " lst_461)))" "(values))))" "(let-values()" "(let-values(((ok?_94 form-id736_0 _737_0)" -"(let-values(((s_916) exp-body_10))" -"(let-values(((orig-s_97) s_916))" +"(let-values(((s_918) exp-body_10))" +"(let-values(((orig-s_97) s_918))" "(let-values(((form-id736_1 _737_1)" -"(let-values(((s_917)" -"(if(syntax?$1 s_916)(syntax-e$1 s_916) s_916)))" -"(if(pair? s_917)" +"(let-values(((s_919)" +"(if(syntax?$1 s_918)(syntax-e$1 s_918) s_918)))" +"(if(pair? s_919)" "(let-values(((form-id738_0)" -"(let-values(((s_918)(car s_917))) s_918))" +"(let-values(((s_920)(car s_919))) s_920))" "((_739_0)" -"(let-values(((s_919)(cdr s_917))) s_919)))" +"(let-values(((s_921)(cdr s_919))) s_921)))" "(values form-id738_0 _739_0))" " (raise-syntax-error$1 #f \"bad syntax\" orig-s_97)))))" "(values #t form-id736_1 _737_1))))))" @@ -77674,27 +77772,27 @@ static const char *startup_source = "(void))))))" "(define-values" "(log-defn-enter)" -"(lambda(ctx_122 defn_1)" +"(lambda(ctx_120 defn_1)" "(begin" -"(let-values(((obs_166)(expand-context-observer ctx_122)))" +"(let-values(((obs_166)(expand-context-observer ctx_120)))" "(if obs_166" "(let-values()" "(let-values(((s-defn_0)(defn-extract-syntax defn_1)))" "(let-values(((ok?_95 define-values744_0 _745_0)" -"(let-values(((s_920) s-defn_0))" -"(let-values(((orig-s_98) s_920))" +"(let-values(((s_922) s-defn_0))" +"(let-values(((orig-s_98) s_922))" "(let-values(((define-values744_1 _745_1)" -"(let-values(((s_921)(if(syntax?$1 s_920)(syntax-e$1 s_920) s_920)))" -"(if(pair? s_921)" +"(let-values(((s_923)(if(syntax?$1 s_922)(syntax-e$1 s_922) s_922)))" +"(if(pair? s_923)" "(let-values(((define-values746_0)" -"(let-values(((s_922)(car s_921))) s_922))" +"(let-values(((s_924)(car s_923))) s_924))" "((_747_0)" -"(let-values(((s_923)(cdr s_921)))" -"(let-values(((s_924)" -"(if(syntax?$1 s_923)" -"(syntax-e$1 s_923)" -" s_923)))" -"(let-values(((flat-s_67)(to-syntax-list.1 s_924)))" +"(let-values(((s_925)(cdr s_923)))" +"(let-values(((s_926)" +"(if(syntax?$1 s_925)" +"(syntax-e$1 s_925)" +" s_925)))" +"(let-values(((flat-s_67)(to-syntax-list.1 s_926)))" "(if(not flat-s_67)" "(let-values()" "(raise-syntax-error$1" @@ -77713,9 +77811,9 @@ static const char *startup_source = "(void))))))" "(define-values" "(log-defn-exit)" -"(lambda(ctx_123 defn_2 exp-rhs_8)" +"(lambda(ctx_121 defn_2 exp-rhs_8)" "(begin" -"(let-values(((obs_167)(expand-context-observer ctx_123)))" +"(let-values(((obs_167)(expand-context-observer ctx_121)))" "(if obs_167" "(let-values()" "(let-values(((s-defn_1)" @@ -77727,12 +77825,12 @@ static const char *startup_source = "(void))))))" "(define-values" "(as-expand-time-top-level-bindings)" -"(lambda(ids_51 s_72 ctx_124)" +"(lambda(ids_50 s_72 ctx_122)" "(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_122)))" "(let-values(((tl-ids_2)" "(reverse$1" -"(let-values(((lst_84) ids_51))" +"(let-values(((lst_84) ids_50))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" @@ -77752,7 +77850,7 @@ static const char *startup_source = "(let-values()" "(remove-use-site-scopes" " id_50" -" ctx_124))" +" ctx_122))" " fold-var_62))))" "(values fold-var_394)))))" "(if(not #f)(for-loop_105 fold-var_61 rest_40) fold-var_61)))" @@ -77762,7 +77860,7 @@ static const char *startup_source = " 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_122))((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)" @@ -77777,8 +77875,8 @@ static const char *startup_source = "(begin" " 'for-loop" "(if(pair? lst_86)" -"(let-values(((id_160)(unsafe-car lst_86))" -"((rest_249)(unsafe-cdr lst_86)))" +"(let-values(((id_158)(unsafe-car lst_86))" +"((rest_248)(unsafe-cdr lst_86)))" "(let-values(((fold-var_26)" "(let-values(((fold-var_395) fold-var_217))" "(let-values(((fold-var_220)" @@ -77786,18 +77884,18 @@ static const char *startup_source = "(cons" "(let-values()" "(add-scope" -" id_160" +" id_158" " top-level-bind-scope_6))" " fold-var_395))))" "(values fold-var_220)))))" "(if(not #f)" -"(for-loop_81 fold-var_26 rest_249)" +"(for-loop_81 fold-var_26 rest_248)" " fold-var_26)))" " fold-var_217)))))" " for-loop_81)" " null" " lst_463))))))" -"(values tl-ids_2(select-defined-syms-and-bind!/ctx tmp-bind-ids_0 ctx_124)))))))))" +"(values tl-ids_2(select-defined-syms-and-bind!/ctx tmp-bind-ids_0 ctx_122)))))))))" "(void" "(add-core-form!*" " 'define-values" @@ -77823,13 +77921,13 @@ static const char *startup_source = "(let-values(((s_76)(if(syntax?$1 s_491)(syntax-e$1 s_491) s_491)))" "(if(pair? s_76)" "(let-values(((define-values4_0)" -"(let-values(((s_188)(car s_76))) s_188))" +"(let-values(((s_189)(car s_76))) s_189))" "((id5_0 rhs6_0)" -"(let-values(((s_167)(cdr s_76)))" +"(let-values(((s_168)(cdr s_76)))" "(let-values(((s_5)" -"(if(syntax?$1 s_167)" -"(syntax-e$1 s_167)" -" s_167)))" +"(if(syntax?$1 s_168)" +"(syntax-e$1 s_168)" +" s_168)))" "(if(pair? s_5)" "(let-values(((id7_0)" "(let-values(((s_80)(car s_5)))" @@ -77858,7 +77956,7 @@ static const char *startup_source = "(check-list" " lst_80)))" "((letrec-values(((for-loop_97)" -"(lambda(id_161" +"(lambda(id_159" " lst_81)" "(begin" " 'for-loop" @@ -77867,13 +77965,13 @@ static const char *startup_source = "(let-values(((s_89)" "(unsafe-car" " lst_81))" -"((rest_120)" +"((rest_119)" "(unsafe-cdr" " lst_81)))" -"(let-values(((id_162)" -"(let-values(((id_163)" -" id_161))" -"(let-values(((id_114)" +"(let-values(((id_160)" +"(let-values(((id_161)" +" id_159))" +"(let-values(((id_112)" "(let-values()" "(let-values(((id10_1)" "(let-values()" @@ -77896,26 +77994,26 @@ static const char *startup_source = " s_89)))))" "(cons" " id10_1" -" id_163)))))" +" id_161)))))" "(values" -" id_114)))))" +" id_112)))))" "(if(not" " #f)" "(for-loop_97" -" id_162" -" rest_120)" -" id_162)))" -" id_161)))))" +" id_160" +" rest_119)" +" id_160)))" +" id_159)))))" " for-loop_97)" " null" " lst_80)))))" "(reverse$1 id_53))))))))" "((rhs8_0)" -"(let-values(((s_306)(cdr s_5)))" +"(let-values(((s_307)(cdr s_5)))" "(let-values(((s_35)" -"(if(syntax?$1 s_306)" -"(syntax-e$1 s_306)" -" s_306)))" +"(if(syntax?$1 s_307)" +"(syntax-e$1 s_307)" +" s_307)))" "(if(pair? s_35)" "(let-values(((rhs9_0)" "(let-values(((s_91)" @@ -77923,17 +78021,17 @@ static const char *startup_source = " s_35)))" " s_91))" "(()" -"(let-values(((s_168)" +"(let-values(((s_169)" "(cdr" " s_35)))" -"(let-values(((s_307)" +"(let-values(((s_308)" "(if(syntax?$1" -" s_168)" +" s_169)" "(syntax-e$1" -" s_168)" -" s_168)))" +" s_169)" +" s_169)))" "(if(null?" -" s_307)" +" s_308)" "(values)" "(raise-syntax-error$1" " #f" @@ -77949,38 +78047,38 @@ static const char *startup_source = "(values define-values4_0 id5_0 rhs6_0))" " (raise-syntax-error$1 #f \"bad syntax\" orig-s_99)))))" "(values #t define-values1_1 id2_2 rhs3_1))))))" -"(let-values(((ids_52 syms_27)(as-expand-time-top-level-bindings id2_1 s_0 ctx_7)))" +"(let-values(((ids_51 syms_27)(as-expand-time-top-level-bindings id2_1 s_0 ctx_7)))" "(let-values(((exp-rhs_9)" "(let-values(((temp11_7) rhs3_0)" -"((temp12_9)(as-named-context(as-expression-context ctx_7) ids_52)))" +"((temp12_9)(as-named-context(as-expression-context ctx_7) ids_51)))" "(expand9.1 #f #f #f temp11_7 temp12_9))))" "(if(expand-context-to-parsed? ctx_7)" -"(parsed-define-values19.1 s_0 ids_52 syms_27 exp-rhs_9)" -"(let-values(((s13_0) s_0)((temp14_7)(list define-values1_0 ids_52 exp-rhs_9)))" +"(parsed-define-values19.1 s_0 ids_51 syms_27 exp-rhs_9)" +"(let-values(((s13_0) s_0)((temp14_7)(list define-values1_0 ids_51 exp-rhs_9)))" "(rebuild5.1 #t s13_0 temp14_7))))))))))))" "(void" "(add-core-form!*" " 'define-syntaxes" -"(lambda(s_186 ctx_125)" +"(lambda(s_187 ctx_123)" "(let-values((()" "(begin" -"(let-values(((obs_169)(expand-context-observer ctx_125)))" +"(let-values(((obs_169)(expand-context-observer ctx_123)))" "(if obs_169" "(let-values()(let-values()(call-expand-observe obs_169 'prim-define-syntaxes)))" "(void)))" "(values))))" "(let-values((()" "(begin" -"(let-values(((obs_170)(expand-context-observer ctx_125)))" +"(let-values(((obs_170)(expand-context-observer ctx_123)))" "(if obs_170(let-values()(let-values()(call-expand-observe obs_170 'prepare-env)))(void)))" "(values))))" "(let-values((()" "(begin" -"(if(eq?(expand-context-context ctx_125) 'top-level)" +"(if(eq?(expand-context-context ctx_123) 'top-level)" "(void)" -" (let-values () (raise-syntax-error$1 #f \"not in a definition context\" s_186)))" +" (let-values () (raise-syntax-error$1 #f \"not in a definition context\" s_187)))" "(values))))" -"(let-values(((disarmed-s_26)(syntax-disarm$1 s_186)))" +"(let-values(((disarmed-s_26)(syntax-disarm$1 s_187)))" "(let-values(((ok?_96 define-syntaxes15_0 id16_1 rhs17_0)" "(let-values(((s_18) disarmed-s_26))" "(let-values(((orig-s_100) s_18))" @@ -77991,20 +78089,20 @@ static const char *startup_source = "(let-values(((s_493)(car s_22))) s_493))" "((id19_1 rhs20_0)" "(let-values(((s_25)(cdr s_22)))" -"(let-values(((s_305)" +"(let-values(((s_306)" "(if(syntax?$1 s_25)" "(syntax-e$1 s_25)" " s_25)))" -"(if(pair? s_305)" +"(if(pair? s_306)" "(let-values(((id21_1)" -"(let-values(((s_925)(car s_305)))" -"(let-values(((s_926)" -"(if(syntax?$1 s_925)" -"(syntax-e$1 s_925)" -" s_925)))" +"(let-values(((s_927)(car s_306)))" +"(let-values(((s_928)" +"(if(syntax?$1 s_927)" +"(syntax-e$1 s_927)" +" s_927)))" "(let-values(((flat-s_69)" "(to-syntax-list.1" -" s_926)))" +" s_928)))" "(if(not flat-s_69)" "(let-values()" "(raise-syntax-error$1" @@ -78012,7 +78110,7 @@ static const char *startup_source = " \"bad syntax\"" " orig-s_100))" "(let-values()" -"(let-values(((id_164)" +"(let-values(((id_162)" "(let-values(((lst_464)" " flat-s_69))" "(begin" @@ -78023,74 +78121,74 @@ static const char *startup_source = "(check-list" " lst_464)))" "((letrec-values(((for-loop_2)" -"(lambda(id_165" +"(lambda(id_163" " lst_465)" "(begin" " 'for-loop" "(if(pair?" " lst_465)" -"(let-values(((s_927)" +"(let-values(((s_929)" "(unsafe-car" " lst_465))" -"((rest_271)" +"((rest_270)" "(unsafe-cdr" " lst_465)))" +"(let-values(((id_164)" +"(let-values(((id_165)" +" id_163))" "(let-values(((id_166)" -"(let-values(((id_167)" -" id_165))" -"(let-values(((id_168)" "(let-values()" "(let-values(((id24_0)" "(let-values()" "(if(let-values(((or-part_217)" "(if(syntax?$1" -" s_927)" +" s_929)" "(symbol?" "(syntax-e$1" -" s_927))" +" s_929))" " #f)))" "(if or-part_217" " or-part_217" "(symbol?" -" s_927)))" -" s_927" +" s_929)))" +" s_929" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_100" -" s_927)))))" +" s_929)))))" "(cons" " id24_0" -" id_167)))))" +" id_165)))))" "(values" -" id_168)))))" +" id_166)))))" "(if(not" " #f)" "(for-loop_2" -" id_166" -" rest_271)" -" id_166)))" -" id_165)))))" +" id_164" +" rest_270)" +" id_164)))" +" id_163)))))" " for-loop_2)" " null" " lst_464)))))" -"(reverse$1 id_164))))))))" +"(reverse$1 id_162))))))))" "((rhs22_0)" -"(let-values(((s_928)(cdr s_305)))" -"(let-values(((s_175)" -"(if(syntax?$1 s_928)" -"(syntax-e$1 s_928)" -" s_928)))" -"(if(pair? s_175)" +"(let-values(((s_930)(cdr s_306)))" +"(let-values(((s_176)" +"(if(syntax?$1 s_930)" +"(syntax-e$1 s_930)" +" s_930)))" +"(if(pair? s_176)" "(let-values(((rhs23_2)" -"(let-values(((s_450)" +"(let-values(((s_449)" "(car" -" s_175)))" -" s_450))" +" s_176)))" +" s_449))" "(()" "(let-values(((s_46)" "(cdr" -" s_175)))" +" s_176)))" "(let-values(((s_485)" "(if(syntax?$1" " s_46)" @@ -78117,26 +78215,26 @@ 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_52 syms_28)(as-expand-time-top-level-bindings id16_1 s_187 ctx_123)))" "(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_123 ids_52)))" "(expand-transformer92.1 #f #f 'expression #t #f unsafe-undefined temp25_8 temp26_6))))" -"(if(expand-context-to-parsed? ctx_125)" -"(parsed-define-syntaxes20.1 s_186 ids_53 syms_28 exp-rhs_10)" -"(let-values(((s27_3) s_186)((temp28_4)(list define-syntaxes15_0 ids_53 exp-rhs_10)))" +"(if(expand-context-to-parsed? ctx_123)" +"(parsed-define-syntaxes20.1 s_187 ids_52 syms_28 exp-rhs_10)" +"(let-values(((s27_3) s_187)((temp28_4)(list define-syntaxes15_0 ids_52 exp-rhs_10)))" "(rebuild5.1 #t s27_3 temp28_4)))))))))))))" "(void" "(add-core-form!*" " 'begin-for-syntax" -"(lambda(s_308 ctx_110)" +"(lambda(s_309 ctx_108)" "(let-values((()" "(begin" -"(if(eq?(expand-context-context ctx_110) 'top-level)" +"(if(eq?(expand-context-context ctx_108) 'top-level)" "(void)" -" (let-values () (raise-syntax-error$1 #f \"not in a definition context\" s_308)))" +" (let-values () (raise-syntax-error$1 #f \"not in a definition context\" s_309)))" "(values))))" "(let-values(((ok?_38 begin-for-syntax29_0 form30_0)" -"(let-values(((s_495) s_308))" +"(let-values(((s_495) s_309))" "(let-values(((orig-s_101) s_495))" "(let-values(((begin-for-syntax29_1 form30_1)" "(let-values(((s_48)(if(syntax?$1 s_495)(syntax-e$1 s_495) s_495)))" @@ -78144,11 +78242,11 @@ static const char *startup_source = "(let-values(((begin-for-syntax31_0)(let-values(((s_51)(car s_48))) s_51))" "((form32_0)" "(let-values(((s_500)(cdr s_48)))" -"(let-values(((s_775)" +"(let-values(((s_777)" "(if(syntax?$1 s_500)" "(syntax-e$1 s_500)" " s_500)))" -"(let-values(((flat-s_70)(to-syntax-list.1 s_775)))" +"(let-values(((flat-s_70)(to-syntax-list.1 s_777)))" "(if(not flat-s_70)" "(let-values()" " (raise-syntax-error$1 #f \"bad syntax\" orig-s_101))" @@ -78158,84 +78256,85 @@ static const char *startup_source = "(values #t begin-for-syntax29_1 form30_1))))))" "(let-values((()" "(begin" -"(let-values(((obs_171)(expand-context-observer ctx_110)))" +"(let-values(((obs_171)(expand-context-observer ctx_108)))" "(if obs_171" "(let-values()(let-values()(call-expand-observe obs_171 'prim-begin-for-syntax)))" "(void)))" "(values))))" "(let-values((()" "(begin" -"(let-values(((obs_172)(expand-context-observer ctx_110)))" +"(let-values(((obs_172)(expand-context-observer ctx_108)))" "(if obs_172" "(let-values()(let-values()(call-expand-observe obs_172 'prepare-env)))" "(void)))" "(values))))" "(let-values(((trans-ctx_1)" -"(let-values(((ctx33_0) ctx_110)((temp34_7) 'top-level)((temp35_7) #t))" +"(let-values(((ctx33_0) ctx_108)((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_277) trans-ctx_1))" -"(let-values(((the-struct_123) v_277))" -"(if(expand-context/outer? the-struct_123)" +"(let-values(((the-struct_124) v_277))" +"(if(expand-context/outer? the-struct_124)" "(let-values(((inner37_0)" -"(let-values(((the-struct_124)" +"(let-values(((the-struct_125)" "(root-expand-context/outer-inner v_277)))" -"(if(expand-context/inner? the-struct_124)" +"(if(expand-context/inner? the-struct_125)" "(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_125)" +"(root-expand-context/inner-module-scopes the-struct_125)" "(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)" +" the-struct_125)" +"(root-expand-context/inner-all-scopes-stx the-struct_125)" +"(root-expand-context/inner-defined-syms the-struct_125)" +"(root-expand-context/inner-counter the-struct_125)" " lift-key38_1" -"(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)" +"(expand-context/inner-to-parsed? the-struct_125)" +"(expand-context/inner-phase the-struct_125)" +"(expand-context/inner-namespace the-struct_125)" +"(expand-context/inner-just-once? the-struct_125)" +"(expand-context/inner-module-begin-k the-struct_125)" +"(expand-context/inner-allow-unbound? the-struct_125)" +"(expand-context/inner-in-local-expand? the-struct_125)" +"(expand-context/inner-keep-#%expression? the-struct_125)" +"(expand-context/inner-stops the-struct_125)" +"(expand-context/inner-declared-submodule-names the-struct_125)" " 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_125)" +"(expand-context/inner-module-lifts the-struct_125)" +"(expand-context/inner-require-lifts the-struct_125)" +"(expand-context/inner-to-module-lifts the-struct_125)" +"(expand-context/inner-requires+provides the-struct_125)" +"(expand-context/inner-observer the-struct_125)" +"(expand-context/inner-for-serializable? the-struct_125)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_124)))" +" the-struct_125)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_124)))))" +" the-struct_125)))))" "(expand-context/outer1.1" " inner37_0" -"(root-expand-context/outer-post-expansion-scope 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-name the-struct_123)))" -" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_123))))))" +"(root-expand-context/outer-post-expansion-scope the-struct_124)" +"(root-expand-context/outer-post-expansion-shifts the-struct_124)" +"(root-expand-context/outer-use-site-scopes the-struct_124)" +"(root-expand-context/outer-frame-id the-struct_124)" +"(expand-context/outer-context the-struct_124)" +"(expand-context/outer-env the-struct_124)" +"(expand-context/outer-post-expansion-scope-action the-struct_124)" +"(expand-context/outer-scopes the-struct_124)" +"(expand-context/outer-def-ctx-scopes the-struct_124)" +"(expand-context/outer-binding-layer the-struct_124)" +"(expand-context/outer-reference-records the-struct_124)" +"(expand-context/outer-only-immediate? the-struct_124)" +"(expand-context/outer-need-eventually-defined the-struct_124)" +"(expand-context/outer-current-introduction-scopes the-struct_124)" +"(expand-context/outer-name the-struct_124)))" +" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_124))))))" "(let-values(((all-exp-forms_0)" "((letrec-values(((loop_67)" "(lambda(forms_0)" @@ -78244,14 +78343,14 @@ static const char *startup_source = "(let-values((()" "(begin" "(let-values(((obs_173)" -"(expand-context-observer ctx_110)))" +"(expand-context-observer ctx_108)))" "(if obs_173" "(let-values()" "(let-values()" "(call-expand-observe" " obs_173" " 'enter-list" -"(datum->syntax$1 #f form30_0 s_308))))" +"(datum->syntax$1 #f form30_0 s_309))))" "(void)))" "(values))))" "(let-values(((exp-forms_0)" @@ -78267,7 +78366,7 @@ static const char *startup_source = "(begin" "(let-values(((obs_174)" "(expand-context-observer" -" ctx_110)))" +" ctx_108)))" "(if obs_174" "(let-values()" "(let-values()" @@ -78277,7 +78376,7 @@ static const char *startup_source = "(datum->syntax$1" " #f" " forms_2" -" s_308))))" +" s_309))))" "(void)))" " forms_2)))" "(let-values()" @@ -78285,7 +78384,7 @@ static const char *startup_source = "(begin" "(let-values(((obs_175)" "(expand-context-observer" -" ctx_110)))" +" ctx_108)))" "(if obs_175" "(let-values()" "(let-values()" @@ -78322,7 +78421,7 @@ static const char *startup_source = "(begin" "(let-values(((obs_176)" "(expand-context-observer" -" ctx_110)))" +" ctx_108)))" "(if obs_176" "(let-values()" "(let-values()" @@ -78354,35 +78453,35 @@ static const char *startup_source = " exp-forms_0)))))))))))))" " loop_67)" " form30_0)))" -"(if(expand-context-to-parsed? ctx_110)" -"(parsed-begin-for-syntax21.1 s_308 all-exp-forms_0)" -"(let-values(((s45_0) s_308)((temp46_2)(cons begin-for-syntax29_0 all-exp-forms_0)))" +"(if(expand-context-to-parsed? ctx_108)" +"(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_929 ctx_126)" +"(lambda(s_166 ctx_124)" "(let-values((()" "(begin" -"(let-values(((obs_177)(expand-context-observer ctx_126)))" +"(let-values(((obs_177)(expand-context-observer ctx_124)))" "(if obs_177(let-values()(let-values()(call-expand-observe obs_177 'prim-require)))(void)))" "(values))))" "(let-values((()" "(begin" -"(if(eq?(expand-context-context ctx_126) 'top-level)" +"(if(eq?(expand-context-context ctx_124) 'top-level)" "(void)" -" (let-values () (raise-syntax-error$1 #f \"allowed only in a module or the top level\" s_929)))" +" (let-values () (raise-syntax-error$1 #f \"allowed only in a module or the top level\" s_166)))" "(values))))" -"(let-values(((disarmed-s_27)(syntax-disarm$1 s_929)))" +"(let-values(((disarmed-s_27)(syntax-disarm$1 s_166)))" "(let-values(((ok?_97 #%require47_0 req48_0)" "(let-values(((s_63) disarmed-s_27))" "(let-values(((orig-s_102) s_63))" "(let-values(((#%require47_1 req48_1)" -"(let-values(((s_406)(if(syntax?$1 s_63)(syntax-e$1 s_63) s_63)))" -"(if(pair? s_406)" -"(let-values(((#%require49_0)(let-values(((s_409)(car s_406))) s_409))" +"(let-values(((s_407)(if(syntax?$1 s_63)(syntax-e$1 s_63) s_63)))" +"(if(pair? s_407)" +"(let-values(((#%require49_0)(let-values(((s_409)(car s_407))) s_409))" "((req50_0)" -"(let-values(((s_415)(cdr s_406)))" +"(let-values(((s_415)(cdr s_407)))" "(let-values(((s_65)" "(if(syntax?$1 s_415)" "(syntax-e$1 s_415)" @@ -78400,7 +78499,7 @@ static const char *startup_source = "(values #t #%require47_1 req48_1))))))" "(let-values(((sc_42)(new-scope 'macro)))" "(begin" -"(let-values(((temp51_4)" +"(let-values(((temp51_3)" "(reverse$1" "(let-values(((lst_32) req48_0))" "(begin" @@ -78432,10 +78531,10 @@ static const char *startup_source = " for-loop_25)" " null" " lst_32)))))" -"((s52_0) s_929)" +"((s52_0) s_166)" "((temp53_6) #f)" -"((temp54_6)(expand-context-namespace ctx_126))" -"((temp55_5)(expand-context-phase ctx_126))" +"((temp54_5)(expand-context-namespace ctx_124))" +"((temp55_4)(expand-context-phase ctx_124))" "((temp56_5)(let-values(((temp59_8) #f))(make-requires+provides8.1 #f temp59_8)))" "((temp57_3) 'require)" "((temp58_5) #t))" @@ -78450,20 +78549,20 @@ static const char *startup_source = " #f" " temp53_6" " temp57_3" -" temp51_4" +" temp51_3" " s52_0" -" temp54_6" -" temp55_5" +" temp54_5" +" temp55_4" " temp56_5))" -"(if(expand-context-to-parsed? ctx_126)(parsed-require23.1 s_929) s_929))))))))))" +"(if(expand-context-to-parsed? ctx_124)(parsed-require23.1 s_166) s_166))))))))))" "(void" "(add-core-form!*" " '#%provide" -"(lambda(s_779 ctx_127)" +"(lambda(s_781 ctx_125)" "(begin" -"(let-values(((obs_178)(expand-context-observer ctx_127)))" +"(let-values(((obs_178)(expand-context-observer ctx_125)))" "(if obs_178(let-values()(let-values()(call-expand-observe obs_178 'prim-provide)))(void)))" -" (raise-syntax-error$1 #f \"not allowed outside of a module body\" s_779)))))" +" (raise-syntax-error$1 #f \"not allowed outside of a module body\" s_781)))))" "(define-values(ns)(make-namespace))" "(void" "(begin" @@ -78486,71 +78585,71 @@ static const char *startup_source = "(let-values(((temp17_7) '#%linklet)" "((linklet-primitives18_0) linklet-primitives_0)" "((ns19_3) ns)" -"((temp20_6) #t)" +"((temp20_7) #t)" "((temp21_3) #t))" -"(declare-hash-based-module!41.1 ns19_3 temp20_6 null #f temp21_3 temp17_7 linklet-primitives18_0)))" +"(declare-hash-based-module!41.1 ns19_3 temp20_7 null #f temp21_3 temp17_7 linklet-primitives18_0)))" "(let-values(((temp22_6) '#%expobs)((expobs-primitives23_0) expobs-primitives)((ns24_2) ns)((temp25_9) #t))" "(declare-hash-based-module!41.1 ns24_2 #f null temp25_9 #f temp22_6 expobs-primitives23_0))" "(let-values(((ns26_1) ns)" "((eval27_0) 1/eval)" "((temp28_5)" -"(let-values(((ht_167) main-primitives))" +"(let-values(((ht_166) main-primitives))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash-keys ht_167)))" +"(let-values()(check-in-hash-keys ht_166)))" "((letrec-values(((for-loop_20)" -"(lambda(table_221 i_3)" +"(lambda(table_218 i_3)" "(begin" " 'for-loop" "(if i_3" -"(let-values(((name_83)(hash-iterate-key ht_167 i_3)))" -"(let-values(((table_210)" -"(let-values(((table_222) table_221))" -"(let-values(((table_180)" +"(let-values(((name_83)(hash-iterate-key ht_166 i_3)))" +"(let-values(((table_207)" +"(let-values(((table_219) table_218))" +"(let-values(((table_181)" "(let-values()" -"(let-values(((key_93 val_89)" +"(let-values(((key_92 val_88)" "(let-values()" "(values" "(let-values() name_83)" " #t))))" -"(hash-set table_222 key_93 val_89)))))" -"(values table_180)))))" +"(hash-set table_219 key_92 val_88)))))" +"(values table_181)))))" "(if(not #f)" -"(for-loop_20 table_210(hash-iterate-next ht_167 i_3))" -" table_210)))" -" table_221)))))" +"(for-loop_20 table_207(hash-iterate-next ht_166 i_3))" +" table_207)))" +" table_218)))))" " for-loop_20)" " '#hash()" -"(hash-iterate-first ht_167)))))" +"(hash-iterate-first ht_166)))))" "((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_223 i_183)" +"((letrec-values(((for-loop_327)" +"(lambda(table_220 i_182)" "(begin" " 'for-loop" -"(if i_183" -"(let-values(((name_84)(hash-iterate-key ht_127 i_183)))" -"(let-values(((table_118)" -"(let-values(((table_111) table_223))" -"(let-values(((table_112)" +"(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_113)" "(let-values()" -"(let-values(((key_94 val_90)" +"(let-values(((key_93 val_89)" "(let-values()" "(values" "(let-values() name_84)" " #t))))" -"(hash-set table_111 key_94 val_90)))))" -"(values table_112)))))" +"(hash-set table_112 key_93 val_89)))))" +"(values table_113)))))" "(if(not #f)" -"(for-loop_330 table_118(hash-iterate-next ht_127 i_183))" -" table_118)))" -" table_223)))))" -" for-loop_330)" +"(for-loop_327 table_119(hash-iterate-next ht_127 i_182))" +" table_119)))" +" table_220)))))" +" for-loop_327)" " '#hash()" "(hash-iterate-first ht_127))))))" "(declare-kernel-module!8.1 eval27_0 temp28_5 temp29_7 ns26_1))" @@ -78582,12 +78681,12 @@ static const char *startup_source = " '#%foreign)))" "(if or-part_165" " or-part_165" -"(let-values(((or-part_286)" +"(let-values(((or-part_287)" "(eq?" " name_85" " '#%futures)))" -"(if or-part_286" -" or-part_286" +"(if or-part_287" +" or-part_287" "(eq?" " name_85" " '#%unsafe)))))))" @@ -78614,5 +78713,5 @@ static const char *startup_source = "(declare-reexporting-module!50.1 ns35_1 temp36_5 temp33_5 temp34_8))" "(1/current-namespace ns)" "(1/dynamic-require ''#%kernel 0)))" -"(define-values(datum->kernel-syntax)(lambda(s_772)(begin(1/datum->syntax core-stx s_772)))))" +"(define-values(datum->kernel-syntax)(lambda(s_774)(begin(1/datum->syntax core-stx s_774)))))" ;