From 32b256886ec1ea499fb082fac0fd570bced82257 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Thu, 31 May 2018 16:45:54 +0800 Subject: [PATCH] expander: fix problem with `module->namespace` and shifts When expanding in a namespace for a module unmarshaled from ".zo" form, a scope corresponding to the module's "inside edge" is added to every expansion. Before this repair, the scope was detached from module path index shifts that might apply to the bindings (including references to bulk bindings). Repair the problem by adding suitable shifts when adding the scope. Thanks to William Hatch for the bug report. --- racket/src/expander/expand/context.rkt | 1 + .../expander/expand/definition-context.rkt | 6 + racket/src/expander/expand/main.rkt | 8 +- .../expander/expand/root-expand-context.rkt | 9 +- racket/src/expander/syntax/binding.rkt | 5 +- racket/src/racket/src/startup.inc | 17919 ++++++++-------- 6 files changed, 9033 insertions(+), 8915 deletions(-) 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)))))" ;