From 62b7ff6f8415075a0e6cfff4bc866e19fa5f7001 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Mon, 26 Feb 2018 15:30:04 -0700 Subject: [PATCH] syntax-source-module: use second argument The implementation still lacks a way to find the original source name, though, in case of a ".ss" to ".rkt" conversion. --- racket/src/expander/syntax/binding.rkt | 5 +- racket/src/racket/src/startup.inc | 2455 ++++++++++++------------ 2 files changed, 1235 insertions(+), 1225 deletions(-) diff --git a/racket/src/expander/syntax/binding.rkt b/racket/src/expander/syntax/binding.rkt index 0f46bc882c..4b4cbd21f9 100644 --- a/racket/src/expander/syntax/binding.rkt +++ b/racket/src/expander/syntax/binding.rkt @@ -302,7 +302,10 @@ (define-values (path base) (module-path-index-split from-mpi)) (and (not path) (module-path-index-resolved from-mpi) - (apply-syntax-shifts from-mpi (syntax-mpi-shifts s))))) + (let ([mpi (apply-syntax-shifts from-mpi (syntax-mpi-shifts s))]) + (if source? + (resolved-module-path-name (module-path-index-resolve mpi #f)) + mpi))))) (define (identifier-prune-to-source-module id) (unless (identifier? id) diff --git a/racket/src/racket/src/startup.inc b/racket/src/racket/src/startup.inc index a9c946d4da..e5a9d301e3 100644 --- a/racket/src/racket/src/startup.inc +++ b/racket/src/racket/src/startup.inc @@ -10815,7 +10815,7 @@ static const char *startup_source = "(begin" " 'syntax-source-module45" "(let-values(((s_154) s44_0))" -"(let-values()" +"(let-values(((source?_0)(if source?43_0 source?42_0 #f)))" "(let-values()" "(begin" "(if(syntax?$1 s_154)" @@ -10851,10 +10851,17 @@ static const char *startup_source = "(if(not path_5)" "(if(module-path-index-resolved" " from-mpi_3)" +"(let-values(((mpi_12)" "(apply-syntax-shifts" " from-mpi_3" "(syntax-mpi-shifts" -" s_154))" +" s_154))))" +"(if source?_0" +"(1/resolved-module-path-name" +"(1/module-path-index-resolve" +" mpi_12" +" #f))" +" mpi_12))" " #f)" " #f)))))))" "(values result_51)))))))" @@ -10867,7 +10874,7 @@ static const char *startup_source = " lst_52)))))))))))" "(case-lambda" "((s_155)(begin 'syntax-source-module(syntax-source-module45_0 s_155 #f #f)))" -"((s_156 source?42_1)(syntax-source-module45_0 s_156 source?42_1 #t)))))" +"((s_105 source?42_1)(syntax-source-module45_0 s_105 source?42_1 #t)))))" "(define-values" "(1/identifier-prune-to-source-module)" "(lambda(id_6)" @@ -10892,12 +10899,12 @@ static const char *startup_source = " (raise-argument-error 'struct-copy \"syntax?\" the-struct_33)))))))" "(define-values(built-in-symbols)(make-hasheq))" "(define-values(register-built-in-symbol!)(lambda(s_0)(begin(hash-set! built-in-symbols s_0 #t))))" -"(define-values(built-in-symbol?)(lambda(s_157)(begin(hash-ref built-in-symbols s_157 #f))))" +"(define-values(built-in-symbol?)(lambda(s_156)(begin(hash-ref built-in-symbols s_156 #f))))" "(define-values" "(make-built-in-symbol!)" -"(lambda(s_158)" +"(lambda(s_157)" "(begin" -" (let-values (((built-in-s_0) (string->symbol (format \".~s\" s_158))))" +" (let-values (((built-in-s_0) (string->symbol (format \".~s\" s_157))))" "(begin(register-built-in-symbol! built-in-s_0) built-in-s_0)))))" "(void" "(begin" @@ -10997,14 +11004,14 @@ static const char *startup_source = "(let-values(((binding/p_0) binding/p9_0))" "(let-values(((sym_17) sym10_0))" "(let-values(((self_1) self1_0))" -"(let-values(((mpi_12) mpi2_0))" +"(let-values(((mpi_13) mpi2_0))" "(let-values(((provide-phase-level_0) provide-phase-level3_0))" "(let-values(((phase-shift_0) phase-shift4_0))" "(let-values()" "(let-values(((binding_7)(provided-as-binding binding/p_0)))" "(let-values(((from-mod_0)(module-binding-module binding_7)))" -"(let-values(((temp18_1)(module-path-index-shift from-mod_0 self_1 mpi_12))" -"((mpi19_0) mpi_12)" +"(let-values(((temp18_1)(module-path-index-shift from-mod_0 self_1 mpi_13))" +"((mpi19_0) mpi_13)" "((provide-phase-level20_0) provide-phase-level_0)" "((sym21_1) sym_17)" "((phase-shift22_0) phase-shift_0)" @@ -11169,9 +11176,9 @@ static const char *startup_source = "(make-struct-field-mutator -set!_30 3 'self))))" "(define-values" "(deserialize-bulk-binding)" -"(lambda(prefix_1 excepts_1 mpi_13 provide-phase-level_1 phase-shift_1 bulk-binding-registry_0)" +"(lambda(prefix_1 excepts_1 mpi_14 provide-phase-level_1 phase-shift_1 bulk-binding-registry_0)" "(begin" -"(bulk-binding14.1 #f prefix_1 excepts_1 #f mpi_13 provide-phase-level_1 phase-shift_1 bulk-binding-registry_0))))" +"(bulk-binding14.1 #f prefix_1 excepts_1 #f mpi_14 provide-phase-level_1 phase-shift_1 bulk-binding-registry_0))))" "(define-values" "(bulk-provides-add-prefix-remove-exceptions)" "(lambda(provides_1 prefix_2 excepts_2)" @@ -11556,7 +11563,7 @@ static const char *startup_source = "(lambda(stx_9)(begin(if(syntax?$1 stx_9)(= 1(set-count(syntax-scope-set stx_9 0))) #f))))" "(define-values" "(extract-scope)" -"(lambda(stx_10)(begin(let-values(((s_159)(syntax-scope-set stx_10 0)))(generalize-scope(set-first s_159))))))" +"(lambda(stx_10)(begin(let-values(((s_158)(syntax-scope-set stx_10 0)))(generalize-scope(set-first s_158))))))" "(define-values" "(unpack-defined-syms)" "(lambda(v_91)" @@ -12453,11 +12460,11 @@ static const char *startup_source = " extra-sources_4)))))))))))))))" "(define-values" "(extract-form-name)" -"(lambda(s_160)" +"(lambda(s_159)" "(begin" -"(if(syntax?$1 s_160)" +"(if(syntax?$1 s_159)" "(let-values()" -"(let-values(((e_17)(syntax-e$1 s_160)))" +"(let-values(((e_17)(syntax-e$1 s_159)))" "(if(symbol? e_17)" "(let-values() e_17)" "(if(if(pair? e_17)(identifier?(car e_17)) #f)" @@ -13019,17 +13026,17 @@ static const char *startup_source = "(hash-set! at-phase_2 name_30 mi_1))))))))))))" "(define-values" "(namespace-create-module-instance!)" -"(lambda(ns_24 name_31 0-phase_3 m_5 mpi_14)" +"(lambda(ns_24 name_31 0-phase_3 m_5 mpi_15)" "(begin" "(let-values(((m-ns_4)" "(let-values(((the-struct_40) ns_24))" "(if(1/namespace? the-struct_40)" -"(let-values(((mpi181_0) mpi_14)" +"(let-values(((mpi181_0) mpi_15)" "((source-name182_0)" "(let-values(((or-part_153)(module-source-name m_5)))" "(if or-part_153" " or-part_153" -"(resolved-module-path-root-name(1/module-path-index-resolve mpi_14)))))" +"(resolved-module-path-root-name(1/module-path-index-resolve mpi_15)))))" "((root-expand-ctx183_0)(box #f))" "((phase184_0) 0-phase_3)" "((0-phase185_0) 0-phase_3)" @@ -13148,7 +13155,7 @@ static const char *startup_source = "(begin" " 'namespace-module-instantiate!96" "(let-values(((ns_28) ns93_0))" -"(let-values(((mpi_15) mpi94_0))" +"(let-values(((mpi_16) mpi94_0))" "(let-values(((instance-phase_0) instance-phase95_0))" "(let-values(((run-phase_0)(if run-phase89_0 run-phase85_0(namespace-phase ns_28))))" "(let-values(((skip-run?_0)(if skip-run?90_0 skip-run?86_0 #f)))" @@ -13157,11 +13164,11 @@ static const char *startup_source = "(let-values()" "(let-values((()" "(begin" -"(if(1/module-path-index? mpi_15)" +"(if(1/module-path-index? mpi_16)" "(void)" -" (let-values () (error \"not a module path index:\" mpi_15)))" +" (let-values () (error \"not a module path index:\" mpi_16)))" "(values))))" -"(let-values(((name_33)(1/module-path-index-resolve mpi_15 #t)))" +"(let-values(((name_33)(1/module-path-index-resolve mpi_16 #t)))" "(let-values(((m_8)(namespace->module ns_28 name_33)))" "(let-values((()" "(begin" @@ -13196,7 +13203,7 @@ static const char *startup_source = " name_33" " instance-phase_1" " m_8" -" mpi_15)))))" +" mpi_16)))))" "(let-values(((run-phase201_0) run-phase_1)" "((skip-run?202_0) skip-run?_0)" "((otherwise-available?203_0) otherwise-available?_0)" @@ -13223,7 +13230,7 @@ static const char *startup_source = "(begin" " 'namespace-module-visit!104" "(let-values(((ns_30) ns101_0))" -"(let-values(((mpi_16) mpi102_0))" +"(let-values(((mpi_17) mpi102_0))" "(let-values(((instance-phase_2) instance-phase103_0))" "(let-values(((visit-phase_0)(if visit-phase100_0 visit-phase99_0(namespace-phase ns_30))))" "(let-values()" @@ -13238,7 +13245,7 @@ static const char *startup_source = " #f" " #f" " ns_30" -" mpi_16" +" mpi_17" " instance-phase_2))))))))))" "(define-values" "(namespace-module-make-available!112.1)" @@ -13246,7 +13253,7 @@ static const char *startup_source = "(begin" " 'namespace-module-make-available!112" "(let-values(((ns_31) ns109_0))" -"(let-values(((mpi_17) mpi110_0))" +"(let-values(((mpi_18) mpi110_0))" "(let-values(((instance-phase_3) instance-phase111_0))" "(let-values(((visit-phase_1)(if visit-phase108_0 visit-phase107_0(namespace-phase ns_31))))" "(let-values()" @@ -13261,7 +13268,7 @@ static const char *startup_source = " temp216_0" " #t" " ns_31" -" mpi_17" +" mpi_18" " instance-phase_3))))))))))" "(define-values" "(run-module-instance!125.1)" @@ -13294,7 +13301,7 @@ static const char *startup_source = "(void)" "(let-values()" "(let-values(((m_9)(module-instance-module mi_7)))" -"(let-values(((mpi_18)(namespace-mpi m-ns_5)))" +"(let-values(((mpi_19)(namespace-mpi m-ns_5)))" "(let-values(((phase-shift_3) instance-phase_4))" "(let-values(((bulk-binding-registry_3)(namespace-bulk-binding-registry m-ns_5)))" "(begin" @@ -13367,7 +13374,7 @@ static const char *startup_source = " req-mpi_0" "(module-self" " m_9)" -" mpi_18))" +" mpi_19))" " fold-var_48))))" "(values" " fold-var_49)))))" @@ -13564,7 +13571,7 @@ static const char *startup_source = " data-box_0" " p-ns_2" " phase-shift_3" -" mpi_18" +" mpi_19" " bulk-binding-registry_3" " insp_5)" "(go_0" @@ -13572,7 +13579,7 @@ static const char *startup_source = " p-ns_2" " phase-shift_3" " phase-level_12" -" mpi_18" +" mpi_19" " bulk-binding-registry_3" " insp_5))))))))))))" "(if(if otherwise-available?_1" @@ -14199,7 +14206,7 @@ static const char *startup_source = "(begin" " 'set!-transformer-procedure" "(let-values(((v_94)((set!-transformer-value t_36) t_36)))" -"(if(procedure-arity-includes? v_94 1) v_94(lambda(s_161)(v_94 t_36 s_161)))))))" +"(if(procedure-arity-includes? v_94 1) v_94(lambda(s_160)(v_94 t_36 s_160)))))))" "(define-values(empty-env) '#hasheq())" "(define-values(env-extend)(lambda(env_0 key_40 val_19)(begin(hash-set env_0 key_40 val_19))))" "(define-values(variable)(gensym 'variable))" @@ -14256,7 +14263,7 @@ static const char *startup_source = "(begin" "(if(1/set!-transformer? t_18)" "(let-values()(1/set!-transformer-procedure t_18))" -"(if(1/rename-transformer? t_18)(let-values()(lambda(s_162) s_162))(let-values() t_18))))))" +"(if(1/rename-transformer? t_18)(let-values()(lambda(s_161) s_161))(let-values() t_18))))))" "(define-values" "(struct:core-form core-form9.1 core-form? core-form-expander core-form-name)" "(let-values(((struct:_20 make-_20 ?_20 -ref_20 -set!_20)" @@ -15456,20 +15463,20 @@ static const char *startup_source = "(lambda(s_22 phase_33)" "(begin" "(let-values(((ok?_0 id23_0 _24_0)" -"(let-values(((s_163) s_22))" -"(if(let-values(((s_164)(if(syntax?$1 s_163)(syntax-e$1 s_163) s_163)))" -"(if(pair? s_164)" -"(if(let-values(((s_68)(car s_164)))" +"(let-values(((s_162) s_22))" +"(if(let-values(((s_163)(if(syntax?$1 s_162)(syntax-e$1 s_162) s_162)))" +"(if(pair? s_163)" +"(if(let-values(((s_68)(car s_163)))" "(let-values(((or-part_137)(if(syntax?$1 s_68)(symbol?(syntax-e$1 s_68)) #f)))" "(if or-part_137 or-part_137(symbol? s_68))))" -"(let-values(((s_165)(cdr s_164))) #t)" +"(let-values(((s_164)(cdr s_163))) #t)" " #f)" " #f))" "(let-values()" "(let-values(((id23_1 _24_1)" -"(let-values(((s_166)(if(syntax?$1 s_163)(syntax-e$1 s_163) s_163)))" -"(let-values(((id25_0)(let-values(((s_167)(car s_166))) s_167))" -"((_26_0)(let-values(((s_168)(cdr s_166))) s_168)))" +"(let-values(((s_165)(if(syntax?$1 s_162)(syntax-e$1 s_162) s_162)))" +"(let-values(((id25_0)(let-values(((s_166)(car s_165))) s_166))" +"((_26_0)(let-values(((s_167)(cdr s_165))) s_167)))" "(values id25_0 _26_0)))))" "(values #t id23_1 _24_1)))" "(values #f #f #f)))))" @@ -15488,30 +15495,30 @@ static const char *startup_source = "(lambda(s_0 proc_6 phase_31)" "(begin" "((letrec-values(((loop_33)" -"(lambda(s_169 mode_10)" +"(lambda(s_168 mode_10)" "(begin" " 'loop" "(let-values(((tmp_4) mode_10))" "(if(equal? tmp_4 'none)" -"(let-values() s_169)" +"(let-values() s_168)" "(if(equal? tmp_4 'opaque)" -"(let-values()(proc_6 s_169))" +"(let-values()(proc_6 s_168))" "(if(equal? tmp_4 'transparent)" "(let-values()" "(let-values(((c_18)" -"(let-values(((s_170)" -"(let-values(((or-part_13)(syntax->list$1 s_169)))" -"(if or-part_13 or-part_13(syntax-e$1 s_169))))" +"(let-values(((s_169)" +"(let-values(((or-part_13)(syntax->list$1 s_168)))" +"(if or-part_13 or-part_13(syntax-e$1 s_168))))" "((f_35)(lambda(tail?_39 d_18)(begin 'f d_18)))" "((s->_3)" -"(lambda(s_171)" +"(lambda(s_170)" "(begin" " 's->" "(loop_33" -" s_171" -"(syntax-taint-mode-property s_171)))))" +" s_170" +"(syntax-taint-mode-property s_170)))))" "((seen_19) #f))" -"(let-values(((s_146) s_170)" +"(let-values(((s_146) s_169)" "((f_36)" "(lambda(tail?_40 v_62)" "(begin" @@ -15521,7 +15528,7 @@ static const char *startup_source = "(let-values()(f_35 tail?_40 v_62))))))" "((seen_20) seen_19))" "((letrec-values(((loop_7)" -"(lambda(tail?_41 s_172 prev-depth_8)" +"(lambda(tail?_41 s_171 prev-depth_8)" "(begin" " 'loop" "(let-values(((depth_8)" @@ -15530,64 +15537,64 @@ static const char *startup_source = "(let-values()" "(datum-map-slow" " tail?_41" -" s_172" -"(lambda(tail?_42 s_173)" -"(f_36 tail?_42 s_173))" +" s_171" +"(lambda(tail?_42 s_172)" +"(f_36 tail?_42 s_172))" " seen_20))" -"(if(null? s_172)" +"(if(null? s_171)" "(let-values()" -"(f_36 tail?_41 s_172))" -"(if(pair? s_172)" +"(f_36 tail?_41 s_171))" +"(if(pair? s_171)" "(let-values()" "(f_36" " tail?_41" "(cons" "(loop_7" " #f" -"(car s_172)" +"(car s_171)" " depth_8)" "(loop_7" " #t" -"(cdr s_172)" +"(cdr s_171)" " depth_8))))" "(if(let-values(((or-part_164)" "(symbol?" -" s_172)))" +" s_171)))" "(if or-part_164" " or-part_164" "(let-values(((or-part_76)" "(boolean?" -" s_172)))" +" s_171)))" "(if or-part_76" " or-part_76" -"(number? s_172)))))" -"(let-values()(f_36 #f s_172))" +"(number? s_171)))))" +"(let-values()(f_36 #f s_171))" "(if(let-values(((or-part_77)" "(vector?" -" s_172)))" +" s_171)))" "(if or-part_77" " or-part_77" "(let-values(((or-part_29)" "(box?" -" s_172)))" +" s_171)))" "(if or-part_29" " or-part_29" "(let-values(((or-part_78)" "(prefab-struct-key" -" s_172)))" +" s_171)))" "(if or-part_78" " or-part_78" "(hash?" -" s_172)))))))" +" s_171)))))))" "(let-values()" "(datum-map-slow" " tail?_41" -" s_172" -"(lambda(tail?_43 s_174)" -"(f_36 tail?_43 s_174))" +" s_171" +"(lambda(tail?_43 s_173)" +"(f_36 tail?_43 s_173))" " seen_20))" "(let-values()" -"(f_36 #f s_172))))))))))))" +"(f_36 #f s_171))))))))))))" " loop_7)" " #f" " s_146" @@ -15595,13 +15602,13 @@ static const char *startup_source = "(datum->syntax$1" " #f" " c_18" -" s_169" -"(if(syntax-any-macro-scopes? s_169)" -"(syntax-property-remove s_169 original-property-sym)" -" s_169))))" +" s_168" +"(if(syntax-any-macro-scopes? s_168)" +"(syntax-property-remove s_168 original-property-sym)" +" s_168))))" "(if(equal? tmp_4 'transparent-binding)" "(let-values()" -"(let-values(((c_19)(syntax-e$1 s_169)))" +"(let-values(((c_19)(syntax-e$1 s_168)))" "(if(pair? c_19)" "(let-values()" "(let-values(((cd_0)(cdr c_19)))" @@ -15617,20 +15624,20 @@ static const char *startup_source = "(loop_33(car c_19)(syntax-taint-mode-property(car c_19)))" "(cons" "(loop_33(car d_19) 'transparent)" -"(let-values(((s_175)" +"(let-values(((s_174)" "(let-values(((or-part_165)" "(syntax->list$1(cdr d_19))))" "(if or-part_165 or-part_165(cdr d_19))))" "((f_7)(lambda(tail?_44 d_20)(begin 'f d_20)))" "((s->_4)" -"(lambda(s_176)" +"(lambda(s_175)" "(begin" " 's->" "(loop_33" -" s_176" -"(syntax-taint-mode-property s_176)))))" +" s_175" +"(syntax-taint-mode-property s_175)))))" "((seen_21) #f))" -"(let-values(((s_80) s_175)" +"(let-values(((s_80) s_174)" "((f_8)" "(lambda(tail?_45 v_39)" "(begin" @@ -15640,7 +15647,7 @@ static const char *startup_source = "(let-values()(f_7 tail?_45 v_39))))))" "((seen_22) seen_21))" "((letrec-values(((loop_77)" -"(lambda(tail?_46 s_177 prev-depth_9)" +"(lambda(tail?_46 s_176 prev-depth_9)" "(begin" " 'loop" "(let-values(((depth_9)" @@ -15649,107 +15656,107 @@ static const char *startup_source = "(let-values()" "(datum-map-slow" " tail?_46" -" s_177" -"(lambda(tail?_47 s_178)" -"(f_8 tail?_47 s_178))" +" s_176" +"(lambda(tail?_47 s_177)" +"(f_8 tail?_47 s_177))" " seen_22))" -"(if(null? s_177)" +"(if(null? s_176)" "(let-values()" -"(f_8 tail?_46 s_177))" -"(if(pair? s_177)" +"(f_8 tail?_46 s_176))" +"(if(pair? s_176)" "(let-values()" "(f_8" " tail?_46" "(cons" "(loop_77" " #f" -"(car s_177)" +"(car s_176)" " depth_9)" "(loop_77" " #t" -"(cdr s_177)" +"(cdr s_176)" " depth_9))))" "(if(let-values(((or-part_166)" "(symbol?" -" s_177)))" +" s_176)))" "(if or-part_166" " or-part_166" "(let-values(((or-part_167)" "(boolean?" -" s_177)))" +" s_176)))" "(if or-part_167" " or-part_167" "(number?" -" s_177)))))" +" s_176)))))" "(let-values()" -"(f_8 #f s_177))" +"(f_8 #f s_176))" "(if(let-values(((or-part_168)" "(vector?" -" s_177)))" +" s_176)))" "(if or-part_168" " or-part_168" "(let-values(((or-part_169)" "(box?" -" s_177)))" +" s_176)))" "(if or-part_169" " or-part_169" "(let-values(((or-part_33)" "(prefab-struct-key" -" s_177)))" +" s_176)))" "(if or-part_33" " or-part_33" "(hash?" -" s_177)))))))" +" s_176)))))))" "(let-values()" "(datum-map-slow" " tail?_46" -" s_177" +" s_176" "(lambda(tail?_48" -" s_179)" +" s_178)" "(f_8" " tail?_48" -" s_179))" +" s_178))" " seen_22))" "(let-values()" "(f_8" " #f" -" s_177))))))))))))" +" s_176))))))))))))" " loop_77)" " #f" " s_80" " 0)))))" -" s_169" -"(if(syntax-any-macro-scopes? s_169)" -"(syntax-property-remove s_169 original-property-sym)" -" s_169))))" -"(let-values()(loop_33 s_169 'transparent)))))" -"(let-values()(loop_33 s_169 'transparent)))))" +" s_168" +"(if(syntax-any-macro-scopes? s_168)" +"(syntax-property-remove s_168 original-property-sym)" +" s_168))))" +"(let-values()(loop_33 s_168 'transparent)))))" +"(let-values()(loop_33 s_168 'transparent)))))" "(let-values()" -"(let-values(((c_20)(syntax-e$1 s_169)))" +"(let-values(((c_20)(syntax-e$1 s_168)))" "(let-values(((tmp_15)(core-form-sym c_20 phase_31)))" "(if(if(equal? tmp_15 'begin)" " #t" "(if(equal? tmp_15 'begin-for-syntax)" " #t" "(equal? tmp_15 '#%module-begin)))" -"(let-values()(loop_33 s_169 'transparent))" +"(let-values()(loop_33 s_168 'transparent))" "(if(if(equal? tmp_15 'define-values)" " #t" "(equal? tmp_15 'define-syntaxes))" -"(let-values()(loop_33 s_169 'transparent-binding))" -"(let-values()(loop_33 s_169 'opaque))))))))))))))))" +"(let-values()(loop_33 s_168 'transparent-binding))" +"(let-values()(loop_33 s_168 'opaque))))))))))))))))" " loop_33)" " s_0" "(syntax-taint-mode-property s_0)))))" "(define-values" "(syntax-taint-mode-property)" -"(lambda(s_180)" +"(lambda(s_179)" "(begin" -"(let-values(((or-part_170)(syntax-property$1 s_180 'taint-mode)))" -"(if or-part_170 or-part_170(syntax-property$1 s_180 'certify-mode))))))" +"(let-values(((or-part_170)(syntax-property$1 s_179 'taint-mode)))" +"(if or-part_170 or-part_170(syntax-property$1 s_179 'certify-mode))))))" "(define-values" "(syntax-remove-taint-dispatch-properties)" -"(lambda(s_181)(begin(syntax-property-remove(syntax-property-remove s_181 'taint-mode) 'certify-mode))))" +"(lambda(s_180)(begin(syntax-property-remove(syntax-property-remove s_180 'taint-mode) 'certify-mode))))" "(define-values(current-module-code-inspector)(make-parameter #f))" "(define-values" "(syntax-debug-info$1)" @@ -15848,7 +15855,7 @@ static const char *startup_source = " '#hash())" "(table-with-bulk-bindings-bulk-bindings" " table_102)))))" -"((s_182)" +"((s_181)" " s_0)" "((extra-shifts_5)" " null))" @@ -15886,7 +15893,7 @@ static const char *startup_source = "(hash-ref" "(bulk-binding-symbols" " bulk_4" -" s_182" +" s_181" " extra-shifts_5)" " sym_17" " #f)))" @@ -16097,9 +16104,9 @@ static const char *startup_source = "(syntax-debug-info-string id_22 ctx_7)))))" "(define-values" "(syntax-debug-info-string)" -"(lambda(s_158 ctx_8)" +"(lambda(s_157 ctx_8)" "(begin" -"(let-values(((info_3)(syntax-debug-info$1 s_158(expand-context-phase ctx_8) #t)))" +"(let-values(((info_3)(syntax-debug-info$1 s_157(expand-context-phase ctx_8) #t)))" "(if(not" "(let-values(((or-part_26)(pair?(hash-ref info_3 'bindings null))))" "(if or-part_26" @@ -16235,22 +16242,22 @@ static const char *startup_source = "(void)" "(let-values()(check-list lst_75)))" "((letrec-values(((for-loop_101)" -"(lambda(s_183 lst_85)" +"(lambda(s_182 lst_85)" "(begin" " 'for-loop" "(if(pair? lst_85)" "(let-values(((l_48)(unsafe-car lst_85))" "((rest_41)(unsafe-cdr lst_85)))" "(let-values(((s_81)" -"(let-values(((s_184) s_183))" -"(let-values(((s_185)" +"(let-values(((s_183) s_182))" +"(let-values(((s_184)" "(let-values()" "(set-intersect" -" s_184" +" s_183" "(list->set l_48)))))" -"(values s_185)))))" +"(values s_184)))))" "(if(not #f)(for-loop_101 s_81 rest_41) s_81)))" -" s_183)))))" +" s_182)))))" " for-loop_101)" "(list->set(car relevant-scope-sets_0))" " lst_75))))))" @@ -16395,16 +16402,16 @@ static const char *startup_source = "(begin" " 'for-loop" "(if(pair? lst_10)" -"(let-values(((s_186)(unsafe-car lst_10))" +"(let-values(((s_185)(unsafe-car lst_10))" "((rest_1)(unsafe-cdr lst_10)))" "(let-values(((fold-var_75)" "(let-values(((fold-var_76) fold-var_74))" -"(if(set-member? common-scopes_0 s_186)" +"(if(set-member? common-scopes_0 s_185)" "(let-values(((fold-var_5) fold-var_76))" "(let-values(((fold-var_6)" "(let-values()" "(cons" -"(let-values() s_186)" +"(let-values() s_185)" " fold-var_5))))" "(values fold-var_6)))" " fold-var_76))))" @@ -16450,16 +16457,16 @@ static const char *startup_source = "(begin" " 'for-loop" "(if(pair? lst_91)" -"(let-values(((s_187)(unsafe-car lst_91))" +"(let-values(((s_186)(unsafe-car lst_91))" "((rest_43)(unsafe-cdr lst_91)))" "(let-values(((fold-var_78)" "(let-values(((fold-var_79) fold-var_77))" -"(if(not(set-member? common-scopes_1 s_187))" +"(if(not(set-member? common-scopes_1 s_186))" "(let-values(((fold-var_80) fold-var_79))" "(let-values(((fold-var_81)" "(let-values()" "(cons" -"(let-values() s_187)" +"(let-values() s_186)" " fold-var_80))))" "(values fold-var_81)))" " fold-var_79))))" @@ -16745,14 +16752,14 @@ static const char *startup_source = "(lambda()(begin(mpi-intern-table1.1(make-hash)(make-hasheq)))))" "(define-values" "(intern-module-path-index!)" -"(lambda(t_41 mpi_19)" +"(lambda(t_41 mpi_20)" "(begin" -"(let-values(((or-part_160)(hash-ref(mpi-intern-table-fast t_41) mpi_19 #f)))" +"(let-values(((or-part_160)(hash-ref(mpi-intern-table-fast t_41) mpi_20 #f)))" "(if or-part_160" " or-part_160" -"(let-values(((name_2 base_15)(1/module-path-index-split mpi_19)))" +"(let-values(((name_2 base_15)(1/module-path-index-split mpi_20)))" "(if(not name_2)" -"(let-values()(begin(hash-set!(mpi-intern-table-fast t_41) mpi_19 mpi_19) mpi_19))" +"(let-values()(begin(hash-set!(mpi-intern-table-fast t_41) mpi_20 mpi_20) mpi_20))" "(let-values()" "(let-values(((interned-base_0)(if base_15(intern-module-path-index! t_41 base_15) #f)))" "(let-values(((at-name_0)" @@ -16765,10 +16772,10 @@ static const char *startup_source = "(let-values(((or-part_81)(hash-ref at-name_0 interned-base_0 #f)))" "(if or-part_81" " or-part_81" -"(let-values(((mpi_20)" +"(let-values(((mpi_21)" "(if(eq? base_15 interned-base_0)" -" mpi_19" -"(let-values(((the-struct_49) mpi_19))" +" mpi_20" +"(let-values(((the-struct_49) mpi_20))" "(if(1/module-path-index? the-struct_49)" "(let-values(((base3_0) interned-base_0))" "(module-path-index2.1" @@ -16780,8 +16787,8 @@ static const char *startup_source = " 'struct-copy" " \"module-path-index?\"" " the-struct_49))))))" -"(begin(hash-set! at-name_0 interned-base_0 mpi_20) mpi_20))))))" -"(begin(hash-set!(mpi-intern-table-fast t_41) mpi_19 i-mpi_0) i-mpi_0))))))))))))" +"(begin(hash-set! at-name_0 interned-base_0 mpi_21) mpi_21))))))" +"(begin(hash-set!(mpi-intern-table-fast t_41) mpi_20 i-mpi_0) i-mpi_0))))))))))))" "(define-values" "(unsafe-vector-ref-id)" "(if(eq?(system-type 'vm) 'chez-scheme)(let-values() 'unsafe-vector*-ref)(let-values() 'vector*-ref)))" @@ -16817,25 +16824,25 @@ static const char *startup_source = "(lambda()(begin(module-path-index-table1.1(make-hasheq)(make-module-path-index-intern-table)))))" "(define-values" "(add-module-path-index!)" -"(lambda(mpis_0 mpi_19)" +"(lambda(mpis_0 mpi_20)" "(begin" -"(let-values(((pos_13)(add-module-path-index!/pos mpis_0 mpi_19)))" +"(let-values(((pos_13)(add-module-path-index!/pos mpis_0 mpi_20)))" "(if pos_13(list unsafe-vector-ref-id mpi-vector-id pos_13) #f)))))" "(define-values" "(add-module-path-index!/pos)" -"(lambda(mpis_1 mpi_21)" +"(lambda(mpis_1 mpi_22)" "(begin" -"(if(not mpi_21)" +"(if(not mpi_22)" "(let-values() #f)" -"(if mpi_21" +"(if mpi_22" "(let-values()" -"(let-values(((mpi_22)(intern-module-path-index!(module-path-index-table-intern mpis_1) mpi_21))" +"(let-values(((mpi_23)(intern-module-path-index!(module-path-index-table-intern mpis_1) mpi_22))" "((positions_0)(module-path-index-table-positions mpis_1)))" -"(let-values(((or-part_78)(hash-ref positions_0 mpi_22 #f)))" +"(let-values(((or-part_78)(hash-ref positions_0 mpi_23 #f)))" "(if or-part_78" " or-part_78" "(let-values(((pos_14)(hash-count positions_0)))" -"(begin(hash-set! positions_0 mpi_22 pos_14) pos_14))))))" +"(begin(hash-set! positions_0 mpi_23 pos_14) pos_14))))))" "(void))))))" "(define-values" "(generate-module-path-index-deserialize)" @@ -16895,24 +16902,24 @@ static const char *startup_source = "(let-values()" "(begin" "(let-values()" -"(let-values(((mpi_23)" +"(let-values(((mpi_24)" "(hash-ref" " rev-positions_0" " i_89)))" "((letrec-values(((loop_79)" -"(lambda(mpi_24)" +"(lambda(mpi_25)" "(begin" " 'loop" "(if(hash-ref" " gen-order_0" -" mpi_24" +" mpi_25" " #f)" "(void)" "(let-values()" "(let-values(((name_36" " base_16)" "(1/module-path-index-split" -" mpi_24)))" +" mpi_25)))" "(begin" "(if base_16" "(let-values()" @@ -16921,11 +16928,11 @@ static const char *startup_source = "(void))" "(hash-set!" " gen-order_0" -" mpi_24" +" mpi_25" "(hash-count" " gen-order_0))))))))))" " loop_79)" -" mpi_23)))" +" mpi_24)))" "(values)))))" "(values)))))" "(if(not #f)(for-loop_21(+ pos_15 inc_4))(values))))" @@ -17001,16 +17008,16 @@ static const char *startup_source = " v_36" " i_26" "(let-values()" -"(let-values(((mpi_25)" +"(let-values(((mpi_26)" "(hash-ref" " rev-gen-order_0" " i_92)))" "(let-values(((path_6" " base_17)" "(1/module-path-index-split" -" mpi_25)))" +" mpi_26)))" "(if(top-level-module-path-index?" -" mpi_25)" +" mpi_26)" "(let-values()" " 'top)" "(if(not" @@ -17020,7 +17027,7 @@ static const char *startup_source = "(let-values(((or-part_34)" "(1/resolved-module-path-name" "(module-path-index-resolved" -" mpi_25))))" +" mpi_26))))" "(if or-part_34" " or-part_34" " 'self))))" @@ -19507,14 +19514,14 @@ static const char *startup_source = "(void)" "(let-values()(check-range start_29 end_21 inc_15)))" "((letrec-values(((for-loop_139)" -"(lambda(s_188 pos_61 pos_62)" +"(lambda(s_187 pos_61 pos_62)" "(begin" " 'for-loop" "(if(< pos_62 end_21)" "(let-values()" "(let-values(((s_139 pos_63)" -"(let-values(((s_189) s_188)((pos_64) pos_61))" -"(let-values(((s_190 pos_65)" +"(let-values(((s_188) s_187)((pos_64) pos_61))" +"(let-values(((s_189 pos_65)" "(let-values()" "(let-values(((k_27" " next-pos_26)" @@ -19526,13 +19533,13 @@ static const char *startup_source = " bulk-binding-registry_7" " shared_2)))" "(values" -"(set-add s_189 k_27)" +"(set-add s_188 k_27)" " next-pos_26)))))" -"(values s_190 pos_65)))))" +"(values s_189 pos_65)))))" "(if(not #f)" "(for-loop_139 s_139 pos_63(+ pos_62 inc_15))" "(values s_139 pos_63))))" -"(values s_188 pos_61))))))" +"(values s_187 pos_61))))))" " for-loop_139)" " s_137" "(+ pos_50 2)" @@ -19854,7 +19861,7 @@ static const char *startup_source = " inspector_7" " bulk-binding-registry_7" " shared_2)))" -"(let-values(((mpi_26 next-pos_59)" +"(let-values(((mpi_27 next-pos_59)" "(decode" " vec_45" " next-pos_58" @@ -19890,7 +19897,7 @@ static const char *startup_source = "(deserialize-bulk-binding" " prefix_3" " excepts_3" -" mpi_26" +" mpi_27" " provide-phase-level_2" " phase-shift_3" " bulk-binding-registry_8)" @@ -20243,12 +20250,12 @@ static const char *startup_source = "(lambda(s24_0 from-mpi25_0 to-mpi26_0 inspector22_0 inspector23_0)" "(begin" " 'core27" -"(let-values(((s_191) s24_0))" +"(let-values(((s_190) s24_0))" "(let-values(((from-mpi_4) from-mpi25_0))" "(let-values(((to-mpi_3) to-mpi26_0))" "(let-values(((inspector_9)(if inspector23_0 inspector22_0 #f)))" "(let-values()" -"(let-values(((s29_0) s_191)" +"(let-values(((s29_0) s_190)" "((from-mpi30_0) from-mpi_4)" "((to-mpi31_0) to-mpi_3)" "((inspector32_0) inspector_9))" @@ -20261,9 +20268,9 @@ static const char *startup_source = " inspector32_0" " #t)))))))))))" "(case-lambda" -"((s_192 from-mpi_5 to-mpi_4)" -"(begin 'syntax-module-path-index-shift(core27_0 s_192 from-mpi_5 to-mpi_4 #f #f)))" -"((s_193 from-mpi_6 to-mpi_5 inspector22_1)(core27_0 s_193 from-mpi_6 to-mpi_5 inspector22_1 #t))))))" +"((s_191 from-mpi_5 to-mpi_4)" +"(begin 'syntax-module-path-index-shift(core27_0 s_191 from-mpi_5 to-mpi_4 #f #f)))" +"((s_192 from-mpi_6 to-mpi_5 inspector22_1)(core27_0 s_192 from-mpi_6 to-mpi_5 inspector22_1 #t))))))" " syntax-module-path-index-shift_0))" "(define-values" "(deserialize-instance)" @@ -21037,30 +21044,30 @@ static const char *startup_source = "(hash-clear!(requires+provides-phase-to-defined-syms r+p_0))))))" "(define-values" "(intern-mpi)" -"(lambda(r+p_1 mpi_27)(begin(intern-module-path-index!(requires+provides-require-mpis r+p_1) mpi_27))))" +"(lambda(r+p_1 mpi_28)(begin(intern-module-path-index!(requires+provides-require-mpis r+p_1) mpi_28))))" "(define-values" "(add-required-module!)" "(lambda(r+p_2 mod-name_8 phase-shift_5 is-cross-phase-persistent?_0)" "(begin" -"(let-values(((mpi_28)(intern-mpi r+p_2 mod-name_8)))" +"(let-values(((mpi_29)(intern-mpi r+p_2 mod-name_8)))" "(begin" -"(if(hash-ref(hash-ref(requires+provides-requires r+p_2) mpi_28 '#hasheqv()) phase-shift_5 #f)" +"(if(hash-ref(hash-ref(requires+provides-requires r+p_2) mpi_29 '#hasheqv()) phase-shift_5 #f)" "(void)" "(let-values()" "(begin" "(hash-update!" "(requires+provides-require-mpis-in-order r+p_2)" " phase-shift_5" -"(lambda(l_52)(cons mpi_28 l_52))" +"(lambda(l_52)(cons mpi_29 l_52))" " null)" "(hash-set!" -"(hash-ref!(requires+provides-requires r+p_2) mpi_28 make-hasheqv)" +"(hash-ref!(requires+provides-requires r+p_2) mpi_29 make-hasheqv)" " phase-shift_5" "(make-hasheq)))))" "(if is-cross-phase-persistent?_0" "(void)" "(let-values()(set-requires+provides-can-cross-phase-persistent?! r+p_2 #f)))" -" mpi_28)))))" +" mpi_29)))))" "(define-values" "(add-defined-or-required-id!19.1)" "(lambda(as-transformer?12_0 can-be-shadowed?11_0 can-be-shadowed?13_0 r+p15_0 id16_0 phase17_0 binding18_0)" @@ -21145,7 +21152,7 @@ static const char *startup_source = "(begin" " 'add-bulk-required-ids!59" "(let-values(((r+p_5) r+p52_0))" -"(let-values(((s_194) s53_0))" +"(let-values(((s_193) s53_0))" "(let-values(((self_8) self54_0))" "(let-values(((nominal-module_7) nominal-module55_0))" "(let-values(((phase-shift_6) phase-shift56_0))" @@ -21164,14 +21171,14 @@ static const char *startup_source = "(let-values(((shortcut-table_0)" "(if check-and-remove?_0" "(if(>(hash-count provides_4) 64)" -"(syntax-mapped-names s_194 phase_51)" +"(syntax-mapped-names s_193 phase_51)" " #f)" " #f)))" -"(let-values(((mpi_29)(intern-mpi r+p_5 nominal-module_7)))" +"(let-values(((mpi_30)(intern-mpi r+p_5 nominal-module_7)))" "(let-values(((at-mod_1)" "(hash-ref!" "(requires+provides-requires r+p_5)" -" mpi_29" +" mpi_30" " make-hasheqv)))" "(let-values(((sym-to-reqds_1)" "(hash-ref! at-mod_1 phase-shift_6 make-hasheq)))" @@ -21183,7 +21190,7 @@ static const char *startup_source = "(bulk-required4.1" " provides_4" " prefix-len_0" -" s_194" +" s_193" " provide-phase-level_3" " can-be-shadowed?_2)))" "(begin" @@ -21251,9 +21258,9 @@ static const char *startup_source = " r+p_5)" "((temp123_0)" "(datum->syntax$1" -" s_194" +" s_193" " sym_31" -" s_194))" +" s_193))" "((phase124_0)" " phase_51)" "((orig-s125_0)" @@ -21263,7 +21270,7 @@ static const char *startup_source = "(let-values(((self132_0)" " self_8)" "((mpi133_0)" -" mpi_29)" +" mpi_30)" "((provide-phase-level134_0)" " provide-phase-level_3)" "((phase-shift135_0)" @@ -21537,8 +21544,8 @@ static const char *startup_source = "(resolve+shift30.1 #f #f temp148_0 #t #f #f #f #f #f #f id_25 phase_55))))" "(if b_66" "(let-values()" -"(let-values(((mpi_30)(intern-mpi r+p_7(module-binding-nominal-module b_66))))" -"(let-values(((at-mod_3)(hash-ref(requires+provides-requires r+p_7) mpi_30 #f)))" +"(let-values(((mpi_31)(intern-mpi r+p_7(module-binding-nominal-module b_66))))" +"(let-values(((at-mod_3)(hash-ref(requires+provides-requires r+p_7) mpi_31 #f)))" "(if at-mod_3" "(let-values()" "(let-values(((nominal-phase_4)(module-binding-nominal-require-phase b_66)))" @@ -21560,7 +21567,7 @@ static const char *startup_source = " l_53" " id_25" " phase_55" -" mpi_30" +" mpi_31" " nominal-phase_4" " sym_35)))))))))" "(void)))))" @@ -21568,7 +21575,7 @@ static const char *startup_source = "(void)))))))))))" "(define-values" "(remove-non-matching-requireds)" -"(lambda(reqds_1 id_26 phase_56 mpi_31 nominal-phase_5 sym_36)" +"(lambda(reqds_1 id_26 phase_56 mpi_32 nominal-phase_5 sym_36)" "(begin" "(reverse$1" "(let-values(((lst_117) reqds_1))" @@ -21585,7 +21592,7 @@ static const char *startup_source = "(let-values(((r_37)" "(normalize-required" " r_36" -" mpi_31" +" mpi_32" " nominal-phase_5" " sym_36)))" "(begin" @@ -21681,10 +21688,10 @@ static const char *startup_source = " #f)" "(let-values()(void))" "(let-values()" -"(let-values(((mpi_32)" +"(let-values(((mpi_33)" "(intern-mpi r+p_8(module-binding-nominal-module b_67))))" "(let-values(((at-mod_4)" -"(hash-ref(requires+provides-requires r+p_8) mpi_32 #f)))" +"(hash-ref(requires+provides-requires r+p_8) mpi_33 #f)))" "(let-values(((ok-binding_0)" "(if(procedure? ok-binding/delayed_0)" "(ok-binding/delayed_0)" @@ -21837,7 +21844,7 @@ static const char *startup_source = " reqds_2" " id_27" " phase_57" -" mpi_32" +" mpi_33" " nominal-phase_6" "(syntax-e$1 id_27))))" "(void)))))))))))))))))))))))))))))))))" @@ -21881,8 +21888,8 @@ static const char *startup_source = "(extract-module-requires)" "(lambda(r+p_10 mod-name_11 phase_59)" "(begin" -"(let-values(((mpi_33)(intern-mpi r+p_10 mod-name_11)))" -"(let-values(((at-mod_5)(hash-ref(requires+provides-requires r+p_10) mpi_33 #f)))" +"(let-values(((mpi_34)(intern-mpi r+p_10 mod-name_11)))" +"(let-values(((at-mod_5)(hash-ref(requires+provides-requires r+p_10) mpi_34 #f)))" "(if at-mod_5" "(reverse$1" "(let-values(((ht_97)(hash-ref at-mod_5 phase_59 '#hasheq())))" @@ -21922,7 +21929,7 @@ static const char *startup_source = "(let-values()" "(normalize-required" " reqd_1" -" mpi_33" +" mpi_34" " phase_59" " sym_38))" " fold-var_107))))" @@ -22260,7 +22267,7 @@ static const char *startup_source = " 'for-loop" "(if(pair?" " lst_134)" -"(let-values(((mpi_34)" +"(let-values(((mpi_35)" "(unsafe-car" " lst_134))" "((rest_66)" @@ -22270,7 +22277,7 @@ static const char *startup_source = "(let-values(((fold-var_128)" " fold-var_126))" "(if(eq?" -" mpi_34" +" mpi_35" " old-self_0)" " fold-var_128" "(let-values(((fold-var_129)" @@ -22280,7 +22287,7 @@ static const char *startup_source = "(cons" "(let-values()" "(module-path-index-shift" -" mpi_34" +" mpi_35" " old-self_0" " new-self_1))" " fold-var_129))))" @@ -22626,49 +22633,49 @@ static const char *startup_source = " for-meta117_0" " phase-level118_0" " spec119_0)" -"(let-values(((s_195)" +"(let-values(((s_194)" " req_0))" "(let-values(((orig-s_4)" -" s_195))" +" s_194))" "(let-values(((for-meta117_1" " phase-level118_1" " spec119_1)" -"(let-values(((s_196)" +"(let-values(((s_195)" "(if(syntax?$1" -" s_195)" +" s_194)" "(syntax-e$1" -" s_195)" -" s_195)))" +" s_194)" +" s_194)))" "(if(pair?" -" s_196)" +" s_195)" "(let-values(((for-meta120_0)" -"(let-values(((s_197)" +"(let-values(((s_196)" "(car" -" s_196)))" -" s_197))" +" s_195)))" +" s_196))" "((phase-level121_0" " spec122_0)" -"(let-values(((s_198)" +"(let-values(((s_197)" "(cdr" -" s_196)))" +" s_195)))" "(let-values(((s_61)" "(if(syntax?$1" -" s_198)" +" s_197)" "(syntax-e$1" -" s_198)" -" s_198)))" +" s_197)" +" s_197)))" "(if(pair?" " s_61)" "(let-values(((phase-level123_0)" -"(let-values(((s_199)" +"(let-values(((s_198)" "(car" " s_61)))" -" s_199))" +" s_198))" "((spec124_0)" "(let-values(((s_62)" "(cdr" " s_61)))" -"(let-values(((s_200)" +"(let-values(((s_199)" "(if(syntax?$1" " s_62)" "(syntax-e$1" @@ -22676,7 +22683,7 @@ static const char *startup_source = " s_62)))" "(let-values(((flat-s_0)" "(to-syntax-list.1" -" s_200)))" +" s_199)))" "(if(not" " flat-s_0)" "(let-values()" @@ -22753,32 +22760,32 @@ static const char *startup_source = " s_65))" "(let-values(((for-syntax125_1" " spec126_1)" -"(let-values(((s_201)" +"(let-values(((s_200)" "(if(syntax?$1" " s_65)" "(syntax-e$1" " s_65)" " s_65)))" "(if(pair?" -" s_201)" +" s_200)" "(let-values(((for-syntax127_0)" -"(let-values(((s_202)" +"(let-values(((s_201)" "(car" -" s_201)))" -" s_202))" +" s_200)))" +" s_201))" "((spec128_0)" -"(let-values(((s_203)" +"(let-values(((s_202)" "(cdr" -" s_201)))" -"(let-values(((s_204)" +" s_200)))" +"(let-values(((s_203)" "(if(syntax?$1" -" s_203)" +" s_202)" "(syntax-e$1" -" s_203)" -" s_203)))" +" s_202)" +" s_202)))" "(let-values(((flat-s_1)" "(to-syntax-list.1" -" s_204)))" +" s_203)))" "(if(not" " flat-s_1)" "(let-values()" @@ -22827,35 +22834,35 @@ static const char *startup_source = "(let-values(((ok?_4" " for-template129_0" " spec130_0)" -"(let-values(((s_205)" +"(let-values(((s_204)" " req_0))" "(let-values(((orig-s_6)" -" s_205))" +" s_204))" "(let-values(((for-template129_1" " spec130_1)" -"(let-values(((s_206)" +"(let-values(((s_205)" "(if(syntax?$1" -" s_205)" +" s_204)" "(syntax-e$1" -" s_205)" -" s_205)))" +" s_204)" +" s_204)))" "(if(pair?" -" s_206)" +" s_205)" "(let-values(((for-template131_0)" -"(let-values(((s_207)" +"(let-values(((s_206)" "(car" -" s_206)))" -" s_207))" +" s_205)))" +" s_206))" "((spec132_0)" -"(let-values(((s_208)" +"(let-values(((s_207)" "(cdr" -" s_206)))" +" s_205)))" "(let-values(((s_92)" "(if(syntax?$1" -" s_208)" +" s_207)" "(syntax-e$1" -" s_208)" -" s_208)))" +" s_207)" +" s_207)))" "(let-values(((flat-s_2)" "(to-syntax-list.1" " s_92)))" @@ -22907,35 +22914,35 @@ static const char *startup_source = "(let-values(((ok?_5" " for-label133_0" " spec134_0)" -"(let-values(((s_209)" +"(let-values(((s_208)" " req_0))" "(let-values(((orig-s_7)" -" s_209))" +" s_208))" "(let-values(((for-label133_1" " spec134_1)" -"(let-values(((s_210)" +"(let-values(((s_209)" "(if(syntax?$1" -" s_209)" +" s_208)" "(syntax-e$1" -" s_209)" -" s_209)))" +" s_208)" +" s_208)))" "(if(pair?" -" s_210)" +" s_209)" "(let-values(((for-label135_0)" "(let-values(((s_67)" "(car" -" s_210)))" +" s_209)))" " s_67))" "((spec136_0)" -"(let-values(((s_211)" +"(let-values(((s_210)" "(cdr" -" s_210)))" +" s_209)))" "(let-values(((s_98)" "(if(syntax?$1" -" s_211)" +" s_210)" "(syntax-e$1" -" s_211)" -" s_211)))" +" s_210)" +" s_210)))" "(let-values(((flat-s_3)" "(to-syntax-list.1" " s_98)))" @@ -23010,35 +23017,35 @@ static const char *startup_source = " s_109))" "((phase-level141_0" " spec142_0)" -"(let-values(((s_212)" +"(let-values(((s_211)" "(cdr" " s_106)))" "(let-values(((s_110)" "(if(syntax?$1" -" s_212)" +" s_211)" "(syntax-e$1" -" s_212)" -" s_212)))" +" s_211)" +" s_211)))" "(if(pair?" " s_110)" "(let-values(((phase-level143_0)" -"(let-values(((s_213)" +"(let-values(((s_212)" "(car" " s_110)))" -" s_213))" +" s_212))" "((spec144_0)" -"(let-values(((s_214)" +"(let-values(((s_213)" "(cdr" " s_110)))" -"(let-values(((s_215)" +"(let-values(((s_214)" "(if(syntax?$1" -" s_214)" +" s_213)" "(syntax-e$1" -" s_214)" -" s_214)))" +" s_213)" +" s_213)))" "(let-values(((flat-s_4)" "(to-syntax-list.1" -" s_215)))" +" s_214)))" "(if(not" " flat-s_4)" "(let-values()" @@ -23107,57 +23114,57 @@ static const char *startup_source = " only145_0" " spec146_0" " id147_0)" -"(let-values(((s_216)" +"(let-values(((s_215)" " req_0))" "(let-values(((orig-s_9)" -" s_216))" +" s_215))" "(let-values(((only145_1" " spec146_1" " id147_1)" -"(let-values(((s_217)" +"(let-values(((s_216)" "(if(syntax?$1" -" s_216)" +" s_215)" "(syntax-e$1" -" s_216)" -" s_216)))" +" s_215)" +" s_215)))" "(if(pair?" -" s_217)" +" s_216)" "(let-values(((only148_0)" -"(let-values(((s_218)" +"(let-values(((s_217)" "(car" -" s_217)))" -" s_218))" +" s_216)))" +" s_217))" "((spec149_0" " id150_0)" +"(let-values(((s_218)" +"(cdr" +" s_216)))" "(let-values(((s_219)" -"(cdr" -" s_217)))" -"(let-values(((s_220)" "(if(syntax?$1" -" s_219)" +" s_218)" "(syntax-e$1" -" s_219)" -" s_219)))" +" s_218)" +" s_218)))" "(if(pair?" -" s_220)" +" s_219)" "(let-values(((spec151_0)" -"(let-values(((s_221)" +"(let-values(((s_220)" "(car" -" s_220)))" -" s_221))" +" s_219)))" +" s_220))" "((id152_0)" -"(let-values(((s_222)" +"(let-values(((s_221)" "(cdr" -" s_220)))" -"(let-values(((s_223)" +" s_219)))" +"(let-values(((s_222)" "(if(syntax?$1" -" s_222)" +" s_221)" "(syntax-e$1" -" s_222)" -" s_222)))" +" s_221)" +" s_221)))" "(let-values(((flat-s_5)" "(to-syntax-list.1" -" s_223)))" +" s_222)))" "(if(not" " flat-s_5)" "(let-values()" @@ -23183,7 +23190,7 @@ static const char *startup_source = " 'for-loop" "(if(pair?" " lst_0)" -"(let-values(((s_224)" +"(let-values(((s_223)" "(unsafe-car" " lst_0))" "((rest_68)" @@ -23198,21 +23205,21 @@ static const char *startup_source = "(let-values()" "(if(let-values(((or-part_184)" "(if(syntax?$1" -" s_224)" +" s_223)" "(symbol?" "(syntax-e$1" -" s_224))" +" s_223))" " #f)))" "(if or-part_184" " or-part_184" "(symbol?" -" s_224)))" -" s_224" +" s_223)))" +" s_223" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_9" -" s_224)))))" +" s_223)))))" "(cons" " id153_1" " id_32)))))" @@ -23279,89 +23286,89 @@ static const char *startup_source = " prefix154_0" " id:prefix155_0" " spec156_0)" -"(let-values(((s_225)" +"(let-values(((s_224)" " req_0))" "(let-values(((orig-s_10)" -" s_225))" +" s_224))" "(let-values(((prefix154_1" " id:prefix155_1" " spec156_1)" -"(let-values(((s_226)" +"(let-values(((s_225)" "(if(syntax?$1" -" s_225)" +" s_224)" "(syntax-e$1" -" s_225)" -" s_225)))" +" s_224)" +" s_224)))" "(if(pair?" -" s_226)" +" s_225)" "(let-values(((prefix157_0)" -"(let-values(((s_227)" +"(let-values(((s_226)" "(car" -" s_226)))" -" s_227))" +" s_225)))" +" s_226))" "((id:prefix158_0" " spec159_0)" -"(let-values(((s_228)" +"(let-values(((s_227)" "(cdr" -" s_226)))" -"(let-values(((s_229)" +" s_225)))" +"(let-values(((s_228)" "(if(syntax?$1" -" s_228)" +" s_227)" "(syntax-e$1" -" s_228)" -" s_228)))" +" s_227)" +" s_227)))" "(if(pair?" -" s_229)" +" s_228)" "(let-values(((id:prefix160_0)" -"(let-values(((s_230)" +"(let-values(((s_229)" "(car" -" s_229)))" +" s_228)))" "(if(let-values(((or-part_185)" "(if(syntax?$1" -" s_230)" +" s_229)" "(symbol?" "(syntax-e$1" -" s_230))" +" s_229))" " #f)))" "(if or-part_185" " or-part_185" "(symbol?" -" s_230)))" -" s_230" +" s_229)))" +" s_229" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_10" -" s_230))))" +" s_229))))" "((spec161_0)" +"(let-values(((s_230)" +"(cdr" +" s_228)))" "(let-values(((s_231)" -"(cdr" -" s_229)))" -"(let-values(((s_232)" "(if(syntax?$1" -" s_231)" +" s_230)" "(syntax-e$1" -" s_231)" -" s_231)))" +" s_230)" +" s_230)))" "(if(pair?" -" s_232)" +" s_231)" "(let-values(((spec162_0)" -"(let-values(((s_233)" +"(let-values(((s_232)" "(car" -" s_232)))" -" s_233))" +" s_231)))" +" s_232))" "(()" -"(let-values(((s_234)" +"(let-values(((s_233)" "(cdr" -" s_232)))" -"(let-values(((s_235)" +" s_231)))" +"(let-values(((s_234)" "(if(syntax?$1" -" s_234)" +" s_233)" "(syntax-e$1" -" s_234)" -" s_234)))" +" s_233)" +" s_233)))" "(if(null?" -" s_235)" +" s_234)" "(values)" "(raise-syntax-error$1" " #f" @@ -23422,57 +23429,57 @@ static const char *startup_source = " all-except163_0" " spec164_0" " id165_0)" -"(let-values(((s_236)" +"(let-values(((s_235)" " req_0))" "(let-values(((orig-s_11)" -" s_236))" +" s_235))" "(let-values(((all-except163_1" " spec164_1" " id165_1)" -"(let-values(((s_237)" +"(let-values(((s_236)" "(if(syntax?$1" -" s_236)" +" s_235)" "(syntax-e$1" -" s_236)" -" s_236)))" +" s_235)" +" s_235)))" "(if(pair?" -" s_237)" +" s_236)" "(let-values(((all-except166_0)" -"(let-values(((s_238)" +"(let-values(((s_237)" "(car" -" s_237)))" -" s_238))" +" s_236)))" +" s_237))" "((spec167_0" " id168_0)" +"(let-values(((s_238)" +"(cdr" +" s_236)))" "(let-values(((s_239)" -"(cdr" -" s_237)))" -"(let-values(((s_240)" "(if(syntax?$1" -" s_239)" +" s_238)" "(syntax-e$1" -" s_239)" -" s_239)))" +" s_238)" +" s_238)))" "(if(pair?" -" s_240)" +" s_239)" "(let-values(((spec169_0)" -"(let-values(((s_241)" +"(let-values(((s_240)" "(car" -" s_240)))" -" s_241))" +" s_239)))" +" s_240))" "((id170_0)" -"(let-values(((s_242)" +"(let-values(((s_241)" "(cdr" -" s_240)))" -"(let-values(((s_243)" +" s_239)))" +"(let-values(((s_242)" "(if(syntax?$1" -" s_242)" +" s_241)" "(syntax-e$1" -" s_242)" -" s_242)))" +" s_241)" +" s_241)))" "(let-values(((flat-s_6)" "(to-syntax-list.1" -" s_243)))" +" s_242)))" "(if(not" " flat-s_6)" "(let-values()" @@ -23498,7 +23505,7 @@ static const char *startup_source = " 'for-loop" "(if(pair?" " lst_138)" -"(let-values(((s_244)" +"(let-values(((s_243)" "(unsafe-car" " lst_138))" "((rest_69)" @@ -23513,21 +23520,21 @@ static const char *startup_source = "(let-values()" "(if(let-values(((or-part_187)" "(if(syntax?$1" -" s_244)" +" s_243)" "(symbol?" "(syntax-e$1" -" s_244))" +" s_243))" " #f)))" "(if or-part_187" " or-part_187" "(symbol?" -" s_244)))" -" s_244" +" s_243)))" +" s_243" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_11" -" s_244)))))" +" s_243)))))" "(cons" " id171_0" " id_37)))))" @@ -23596,93 +23603,93 @@ static const char *startup_source = " id:prefix173_0" " spec174_0" " id175_0)" -"(let-values(((s_245)" +"(let-values(((s_244)" " req_0))" "(let-values(((orig-s_12)" -" s_245))" +" s_244))" "(let-values(((prefix-all-except172_1" " id:prefix173_1" " spec174_1" " id175_1)" -"(let-values(((s_246)" +"(let-values(((s_245)" "(if(syntax?$1" -" s_245)" +" s_244)" "(syntax-e$1" -" s_245)" -" s_245)))" +" s_244)" +" s_244)))" "(if(pair?" -" s_246)" +" s_245)" "(let-values(((prefix-all-except176_0)" -"(let-values(((s_247)" +"(let-values(((s_246)" "(car" -" s_246)))" -" s_247))" +" s_245)))" +" s_246))" "((id:prefix177_0" " spec178_0" " id179_0)" -"(let-values(((s_248)" +"(let-values(((s_247)" "(cdr" -" s_246)))" -"(let-values(((s_249)" +" s_245)))" +"(let-values(((s_248)" "(if(syntax?$1" -" s_248)" +" s_247)" "(syntax-e$1" -" s_248)" -" s_248)))" +" s_247)" +" s_247)))" "(if(pair?" -" s_249)" +" s_248)" "(let-values(((id:prefix180_0)" -"(let-values(((s_250)" +"(let-values(((s_249)" "(car" -" s_249)))" +" s_248)))" "(if(let-values(((or-part_189)" "(if(syntax?$1" -" s_250)" +" s_249)" "(symbol?" "(syntax-e$1" -" s_250))" +" s_249))" " #f)))" "(if or-part_189" " or-part_189" "(symbol?" -" s_250)))" -" s_250" +" s_249)))" +" s_249" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_12" -" s_250))))" +" s_249))))" "((spec181_0" " id182_0)" +"(let-values(((s_250)" +"(cdr" +" s_248)))" "(let-values(((s_251)" -"(cdr" -" s_249)))" -"(let-values(((s_252)" "(if(syntax?$1" -" s_251)" +" s_250)" "(syntax-e$1" -" s_251)" -" s_251)))" +" s_250)" +" s_250)))" "(if(pair?" -" s_252)" +" s_251)" "(let-values(((spec183_0)" -"(let-values(((s_253)" +"(let-values(((s_252)" "(car" -" s_252)))" -" s_253))" +" s_251)))" +" s_252))" "((id184_0)" -"(let-values(((s_254)" +"(let-values(((s_253)" "(cdr" -" s_252)))" -"(let-values(((s_255)" +" s_251)))" +"(let-values(((s_254)" "(if(syntax?$1" -" s_254)" +" s_253)" "(syntax-e$1" -" s_254)" -" s_254)))" +" s_253)" +" s_253)))" "(let-values(((flat-s_7)" "(to-syntax-list.1" -" s_255)))" +" s_254)))" "(if(not" " flat-s_7)" "(let-values()" @@ -23708,7 +23715,7 @@ static const char *startup_source = " 'for-loop" "(if(pair?" " lst_140)" -"(let-values(((s_256)" +"(let-values(((s_255)" "(unsafe-car" " lst_140))" "((rest_70)" @@ -23723,21 +23730,21 @@ static const char *startup_source = "(let-values()" "(if(let-values(((or-part_190)" "(if(syntax?$1" -" s_256)" +" s_255)" "(symbol?" "(syntax-e$1" -" s_256))" +" s_255))" " #f)))" "(if or-part_190" " or-part_190" "(symbol?" -" s_256)))" -" s_256" +" s_255)))" +" s_255" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_12" -" s_256)))))" +" s_255)))))" "(cons" " id185_0" " id_42)))))" @@ -23817,125 +23824,125 @@ static const char *startup_source = " spec187_0" " id:to188_0" " id:from189_0)" -"(let-values(((s_257)" +"(let-values(((s_256)" " req_0))" "(let-values(((orig-s_13)" -" s_257))" +" s_256))" "(let-values(((rename186_1" " spec187_1" " id:to188_1" " id:from189_1)" -"(let-values(((s_258)" +"(let-values(((s_257)" "(if(syntax?$1" -" s_257)" +" s_256)" "(syntax-e$1" -" s_257)" -" s_257)))" +" s_256)" +" s_256)))" "(if(pair?" -" s_258)" +" s_257)" "(let-values(((rename190_0)" -"(let-values(((s_259)" +"(let-values(((s_258)" "(car" -" s_258)))" -" s_259))" +" s_257)))" +" s_258))" "((spec191_0" " id:to192_0" " id:from193_0)" -"(let-values(((s_260)" +"(let-values(((s_259)" "(cdr" -" s_258)))" -"(let-values(((s_261)" +" s_257)))" +"(let-values(((s_260)" "(if(syntax?$1" -" s_260)" +" s_259)" "(syntax-e$1" -" s_260)" -" s_260)))" +" s_259)" +" s_259)))" "(if(pair?" -" s_261)" +" s_260)" "(let-values(((spec194_0)" -"(let-values(((s_262)" +"(let-values(((s_261)" "(car" -" s_261)))" -" s_262))" +" s_260)))" +" s_261))" "((id:to195_0" " id:from196_0)" -"(let-values(((s_263)" +"(let-values(((s_262)" "(cdr" -" s_261)))" -"(let-values(((s_264)" +" s_260)))" +"(let-values(((s_263)" "(if(syntax?$1" -" s_263)" +" s_262)" "(syntax-e$1" -" s_263)" -" s_263)))" +" s_262)" +" s_262)))" "(if(pair?" -" s_264)" +" s_263)" "(let-values(((id:to197_0)" -"(let-values(((s_265)" +"(let-values(((s_264)" "(car" -" s_264)))" +" s_263)))" "(if(let-values(((or-part_192)" "(if(syntax?$1" -" s_265)" +" s_264)" "(symbol?" "(syntax-e$1" -" s_265))" +" s_264))" " #f)))" "(if or-part_192" " or-part_192" "(symbol?" -" s_265)))" -" s_265" +" s_264)))" +" s_264" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_13" -" s_265))))" +" s_264))))" "((id:from198_0)" -"(let-values(((s_266)" +"(let-values(((s_265)" "(cdr" -" s_264)))" -"(let-values(((s_267)" +" s_263)))" +"(let-values(((s_266)" "(if(syntax?$1" -" s_266)" +" s_265)" "(syntax-e$1" -" s_266)" -" s_266)))" +" s_265)" +" s_265)))" "(if(pair?" -" s_267)" +" s_266)" "(let-values(((id:from199_0)" -"(let-values(((s_268)" +"(let-values(((s_267)" "(car" -" s_267)))" +" s_266)))" "(if(let-values(((or-part_193)" "(if(syntax?$1" -" s_268)" +" s_267)" "(symbol?" "(syntax-e$1" -" s_268))" +" s_267))" " #f)))" "(if or-part_193" " or-part_193" "(symbol?" -" s_268)))" -" s_268" +" s_267)))" +" s_267" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_13" -" s_268))))" +" s_267))))" "(()" -"(let-values(((s_269)" +"(let-values(((s_268)" "(cdr" -" s_267)))" -"(let-values(((s_270)" +" s_266)))" +"(let-values(((s_269)" "(if(syntax?$1" -" s_269)" +" s_268)" "(syntax-e$1" -" s_269)" -" s_269)))" +" s_268)" +" s_268)))" "(if(null?" -" s_270)" +" s_269)" "(values)" "(raise-syntax-error$1" " #f" @@ -24037,7 +24044,7 @@ static const char *startup_source = "(resolved-module-path->module-path" " maybe-mp_0)" " maybe-mp_0)))" -"(let-values(((mpi_35)" +"(let-values(((mpi_36)" "(let-values(((declared-submodule-names219_0)" " declared-submodule-names_2))" "(module-path->mpi5.1" @@ -24104,7 +24111,7 @@ static const char *startup_source = " visit?211_0" " #t" " who216_0" -" mpi_35" +" mpi_36" " req_0" " self_10" " temp203_0" @@ -24257,7 +24264,7 @@ static const char *startup_source = " m-ns77_0)" "(begin" " 'perform-require!78" -"(let-values(((mpi_36) mpi73_0))" +"(let-values(((mpi_37) mpi73_0))" "(let-values(((orig-s_14) orig-s74_0))" "(let-values()" "(let-values(((in-stx_1) in-stx76_0))" @@ -24285,7 +24292,7 @@ static const char *startup_source = "(let-values(((who_14) who58_0))" "(let-values()" "(let-values()" -"(let-values(((module-name_0)(1/module-path-index-resolve mpi_36 #t)))" +"(let-values(((module-name_0)(1/module-path-index-resolve mpi_37 #t)))" "(let-values(((bind-in-stx_0)" "(if(adjust-rename? adjust_1)" "(adjust-rename-to-id adjust_1)" @@ -24305,10 +24312,10 @@ static const char *startup_source = "(if requires+provides_3" "(add-required-module!" " requires+provides_3" -" mpi_36" +" mpi_37" " phase-shift_10" "(module-cross-phase-persistent? m_13))" -" mpi_36)))" +" mpi_37)))" "(let-values((()" "(begin" "(if visit?_2" @@ -24435,7 +24442,7 @@ static const char *startup_source = "(module-self" " m_13))" "((mpi264_0)" -" mpi_36)" +" mpi_37)" "((phase-shift265_0)" " phase-shift_10)" "((provides266_0)" @@ -24577,7 +24584,7 @@ static const char *startup_source = " requires+provides_3" " #f)" "(let-values()" -"(let-values(((s_271)" +"(let-values(((s_270)" "(datum->syntax$1" " bind-in-stx_0" " adjusted-sym_0)))" @@ -24594,7 +24601,7 @@ static const char *startup_source = "((requires+provides283_0)" " requires+provides_3)" "((s284_0)" -" s_271)" +" s_270)" "((bind-phase285_0)" " bind-phase_0)" "((binding286_0)" @@ -24628,7 +24635,7 @@ static const char *startup_source = " can-be-shadowed?280_0" " #t" " requires+provides_3" -" s_271" +" s_270" " bind-phase_0" " binding_17))))))" "(void))" @@ -24816,7 +24823,7 @@ static const char *startup_source = "(let-values(((in-stx_2) in-stx100_0))" "(let-values(((phase-shift_11) phase-shift101_0))" "(let-values(((ns_48) ns102_0))" -"(let-values(((mpi_37) mpi103_0))" +"(let-values(((mpi_38) mpi103_0))" "(let-values(((module-name_1) module-name104_0))" "(let-values(((orig-s_15) in81_0))" "(let-values(((only-syms_0) only82_0))" @@ -24920,7 +24927,7 @@ static const char *startup_source = "(let-values(((self292_0)" " self_12)" "((mpi293_0)" -" mpi_37)" +" mpi_38)" "((provide-phase-level294_0)" " provide-phase-level_5)" "((phase-shift295_0)" @@ -25002,7 +25009,7 @@ static const char *startup_source = " bulk-prefix_2" " bulk-excepts_2" " self_12" -" mpi_37" +" mpi_38" " provide-phase-level_5" " phase-shift_11" " bulk-binding-registry_10))" @@ -25050,46 +25057,46 @@ static const char *startup_source = "(if(equal? tmp_25 'for-meta)" "(let-values()" "(let-values(((ok?_12 for-meta303_0 phase-level304_0 spec305_0)" -"(let-values(((s_272) req_3))" -"(let-values(((orig-s_16) s_272))" +"(let-values(((s_271) req_3))" +"(let-values(((orig-s_16) s_271))" "(let-values(((for-meta303_1 phase-level304_1 spec305_1)" -"(let-values(((s_273)" -"(if(syntax?$1 s_272)" -"(syntax-e$1 s_272)" -" s_272)))" -"(if(pair? s_273)" +"(let-values(((s_272)" +"(if(syntax?$1 s_271)" +"(syntax-e$1 s_271)" +" s_271)))" +"(if(pair? s_272)" "(let-values(((for-meta306_0)" -"(let-values(((s_274)" -"(car s_273)))" -" s_274))" +"(let-values(((s_273)" +"(car s_272)))" +" s_273))" "((phase-level307_0 spec308_0)" +"(let-values(((s_274)" +"(cdr s_272)))" "(let-values(((s_275)" -"(cdr s_273)))" -"(let-values(((s_276)" "(if(syntax?$1" -" s_275)" +" s_274)" "(syntax-e$1" -" s_275)" -" s_275)))" -"(if(pair? s_276)" +" s_274)" +" s_274)))" +"(if(pair? s_275)" "(let-values(((phase-level309_0)" -"(let-values(((s_277)" +"(let-values(((s_276)" "(car" -" s_276)))" -" s_277))" +" s_275)))" +" s_276))" "((spec310_0)" -"(let-values(((s_278)" +"(let-values(((s_277)" "(cdr" -" s_276)))" -"(let-values(((s_279)" +" s_275)))" +"(let-values(((s_278)" "(if(syntax?$1" -" s_278)" +" s_277)" "(syntax-e$1" -" s_278)" -" s_278)))" +" s_277)" +" s_277)))" "(let-values(((flat-s_8)" "(to-syntax-list.1" -" s_279)))" +" s_278)))" "(if(not" " flat-s_8)" "(let-values()" @@ -25126,30 +25133,30 @@ static const char *startup_source = "(if(equal? tmp_25 'for-syntax)" "(let-values()" "(let-values(((ok?_13 for-syntax311_0 spec312_0)" -"(let-values(((s_280) req_3))" -"(let-values(((orig-s_17) s_280))" +"(let-values(((s_279) req_3))" +"(let-values(((orig-s_17) s_279))" "(let-values(((for-syntax311_1 spec312_1)" -"(let-values(((s_281)" -"(if(syntax?$1 s_280)" -"(syntax-e$1 s_280)" -" s_280)))" -"(if(pair? s_281)" +"(let-values(((s_280)" +"(if(syntax?$1 s_279)" +"(syntax-e$1 s_279)" +" s_279)))" +"(if(pair? s_280)" "(let-values(((for-syntax313_0)" -"(let-values(((s_282)" -"(car s_281)))" -" s_282))" +"(let-values(((s_281)" +"(car s_280)))" +" s_281))" "((spec314_0)" +"(let-values(((s_282)" +"(cdr s_280)))" "(let-values(((s_283)" -"(cdr s_281)))" -"(let-values(((s_284)" "(if(syntax?$1" -" s_283)" +" s_282)" "(syntax-e$1" -" s_283)" -" s_283)))" +" s_282)" +" s_282)))" "(let-values(((flat-s_9)" "(to-syntax-list.1" -" s_284)))" +" s_283)))" "(if(not flat-s_9)" "(let-values()" "(raise-syntax-error$1" @@ -25168,30 +25175,30 @@ static const char *startup_source = "(if(equal? tmp_25 'for-template)" "(let-values()" "(let-values(((ok?_14 for-template315_0 spec316_0)" -"(let-values(((s_285) req_3))" -"(let-values(((orig-s_18) s_285))" +"(let-values(((s_284) req_3))" +"(let-values(((orig-s_18) s_284))" "(let-values(((for-template315_1 spec316_1)" -"(let-values(((s_286)" -"(if(syntax?$1 s_285)" -"(syntax-e$1 s_285)" -" s_285)))" -"(if(pair? s_286)" +"(let-values(((s_285)" +"(if(syntax?$1 s_284)" +"(syntax-e$1 s_284)" +" s_284)))" +"(if(pair? s_285)" "(let-values(((for-template317_0)" -"(let-values(((s_287)" -"(car s_286)))" -" s_287))" +"(let-values(((s_286)" +"(car s_285)))" +" s_286))" "((spec318_0)" +"(let-values(((s_287)" +"(cdr s_285)))" "(let-values(((s_288)" -"(cdr s_286)))" -"(let-values(((s_289)" "(if(syntax?$1" -" s_288)" +" s_287)" "(syntax-e$1" -" s_288)" -" s_288)))" +" s_287)" +" s_287)))" "(let-values(((flat-s_10)" "(to-syntax-list.1" -" s_289)))" +" s_288)))" "(if(not flat-s_10)" "(let-values()" "(raise-syntax-error$1" @@ -25210,32 +25217,32 @@ static const char *startup_source = "(if(equal? tmp_25 'for-label)" "(let-values()" "(let-values(((ok?_15 for-label319_0 spec320_0)" -"(let-values(((s_290) req_3))" -"(let-values(((orig-s_19) s_290))" +"(let-values(((s_289) req_3))" +"(let-values(((orig-s_19) s_289))" "(let-values(((for-label319_1 spec320_1)" -"(let-values(((s_291)" -"(if(syntax?$1 s_290)" -"(syntax-e$1 s_290)" -" s_290)))" -"(if(pair? s_291)" +"(let-values(((s_290)" +"(if(syntax?$1 s_289)" +"(syntax-e$1 s_289)" +" s_289)))" +"(if(pair? s_290)" "(let-values(((for-label321_0)" -"(let-values(((s_292)" +"(let-values(((s_291)" "(car" -" s_291)))" -" s_292))" +" s_290)))" +" s_291))" "((spec322_0)" -"(let-values(((s_293)" +"(let-values(((s_292)" "(cdr" -" s_291)))" -"(let-values(((s_294)" +" s_290)))" +"(let-values(((s_293)" "(if(syntax?$1" -" s_293)" +" s_292)" "(syntax-e$1" -" s_293)" -" s_293)))" +" s_292)" +" s_292)))" "(let-values(((flat-s_11)" "(to-syntax-list.1" -" s_294)))" +" s_293)))" "(if(not flat-s_11)" "(let-values()" "(raise-syntax-error$1" @@ -25256,51 +25263,51 @@ static const char *startup_source = "(if(equal? tmp_25 'just-meta)" "(let-values()" "(let-values(((ok?_16 just-meta323_0 phase-level324_0 spec325_0)" -"(let-values(((s_295) req_3))" -"(let-values(((orig-s_20) s_295))" +"(let-values(((s_294) req_3))" +"(let-values(((orig-s_20) s_294))" "(let-values(((just-meta323_1" " phase-level324_1" " spec325_1)" -"(let-values(((s_296)" -"(if(syntax?$1 s_295)" -"(syntax-e$1 s_295)" -" s_295)))" -"(if(pair? s_296)" +"(let-values(((s_295)" +"(if(syntax?$1 s_294)" +"(syntax-e$1 s_294)" +" s_294)))" +"(if(pair? s_295)" "(let-values(((just-meta326_0)" -"(let-values(((s_297)" +"(let-values(((s_296)" "(car" -" s_296)))" -" s_297))" +" s_295)))" +" s_296))" "((phase-level327_0" " spec328_0)" +"(let-values(((s_297)" +"(cdr" +" s_295)))" "(let-values(((s_298)" -"(cdr" -" s_296)))" -"(let-values(((s_299)" "(if(syntax?$1" -" s_298)" +" s_297)" "(syntax-e$1" -" s_298)" -" s_298)))" -"(if(pair? s_299)" +" s_297)" +" s_297)))" +"(if(pair? s_298)" "(let-values(((phase-level329_0)" -"(let-values(((s_300)" +"(let-values(((s_299)" "(car" -" s_299)))" -" s_300))" +" s_298)))" +" s_299))" "((spec330_0)" -"(let-values(((s_301)" +"(let-values(((s_300)" "(cdr" -" s_299)))" -"(let-values(((s_302)" +" s_298)))" +"(let-values(((s_301)" "(if(syntax?$1" -" s_301)" +" s_300)" "(syntax-e$1" -" s_301)" -" s_301)))" +" s_300)" +" s_300)))" "(let-values(((flat-s_12)" "(to-syntax-list.1" -" s_302)))" +" s_301)))" "(if(not" " flat-s_12)" "(let-values()" @@ -25381,7 +25388,7 @@ static const char *startup_source = " #f" " 'constant" " top-level-bind!-id" -"(lambda(id_22 mpi_38 orig-phase_0 phase-shift_13 ns_49 sym_46 trans?_0 trans-val_0)" +"(lambda(id_22 mpi_39 orig-phase_0 phase-shift_13 ns_49 sym_46 trans?_0 trans-val_0)" "(let-values(((phase_42)(phase+ orig-phase_0 phase-shift_13)))" "(let-values(((b_70)" "(let-values(((temp7_0)(root-expand-context-frame-id(namespace-get-root-expand-ctx ns_49))))" @@ -25404,7 +25411,7 @@ static const char *startup_source = " #f" " #f" " #f" -" mpi_38" +" mpi_39" " phase_42" " sym_46))))" "(begin" @@ -25516,7 +25523,7 @@ static const char *startup_source = "(make-struct-field-accessor -ref_0 1 'other))))" "(define-values" "(swap-top-level-scopes)" -"(lambda(s_303 original-scopes-s_0 new-ns_0)" +"(lambda(s_302 original-scopes-s_0 new-ns_0)" "(begin" "(let-values(((old-scs-post_0 old-scs-other_0)" "(if(namespace-scopes? original-scopes-s_0)" @@ -25524,7 +25531,7 @@ static const char *startup_source = "(decode-namespace-scopes original-scopes-s_0))))" "(let-values(((new-scs-post_0 new-scs-other_0)(extract-namespace-scopes/values new-ns_0)))" "(syntax-swap-scopes" -"(syntax-swap-scopes s_303 old-scs-post_0 new-scs-post_0)" +"(syntax-swap-scopes s_302 old-scs-post_0 new-scs-post_0)" " old-scs-other_0" " new-scs-other_0))))))" "(define-values" @@ -25841,13 +25848,13 @@ static const char *startup_source = "(begin" " 'register-required-variable-use!19" "(let-values(((header_2) header14_0))" -"(let-values(((mpi_39) mpi15_0))" +"(let-values(((mpi_40) mpi15_0))" "(let-values(((phase_3) phase16_1))" "(let-values(((sym_48) sym17_0))" "(let-values(((extra-inspector_4) extra-inspector18_0))" "(let-values(((defined?_1)(if defined?13_0 defined?12_0 #f)))" "(let-values()" -"(let-values(((key_53)(variable-use3.1(module-use1.1 mpi_39 phase_3) sym_48)))" +"(let-values(((key_53)(variable-use3.1(module-use1.1 mpi_40 phase_3) sym_48)))" "(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_53 #f)))" "(let-values(((var-sym_0)" @@ -25872,7 +25879,7 @@ static const char *startup_source = "(hash-update!" " extra-inspectors_0" " var-sym_0" -"(lambda(s_304)(set-add s_304 extra-inspector_4))" +"(lambda(s_303)(set-add s_303 extra-inspector_4))" " '#hasheq())))" "(void))" " var-sym_0)))))))))))))))" @@ -26714,7 +26721,7 @@ static const char *startup_source = " start_33)))))))))" "(define-values" "(add-lambda-properties)" -"(lambda(s_305 inferred-name_0 orig-s_21)" +"(lambda(s_304 inferred-name_0 orig-s_21)" "(begin" "(letrec-values(((simplify-name_0)" "(lambda(v_47)" @@ -26740,10 +26747,10 @@ static const char *startup_source = "(let-values(((named-s_0)" "(if name_44" "(correlated-property" -"(->correlated s_305)" +"(->correlated s_304)" " 'inferred-name" "(if(syntax?$1 name_44)(syntax-e$1 name_44) name_44))" -" s_305)))" +" s_304)))" "(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)" @@ -26931,7 +26938,7 @@ static const char *startup_source = "(let-values()(local-binding-key b_71))" "(if(module-binding? b_71)" "(let-values()" -"(let-values(((mpi_40)" +"(let-values(((mpi_41)" "(if(parsed-top-id? p_39)" "(compile-context-self cctx_9)" "(module-binding-module b_71))))" @@ -26949,7 +26956,7 @@ static const char *startup_source = "(module-binding-sym b_71)))" "(void))" "(module-binding-sym b_71)))" -"(if(eq? mpi_40(compile-context-module-self cctx_9))" +"(if(eq? mpi_41(compile-context-module-self cctx_9))" "(let-values()" "(let-values(((header_6)(compile-context-header cctx_9)))" "(hash-ref" @@ -26957,7 +26964,7 @@ static const char *startup_source = "(module-binding-sym b_71))))" "(let-values()" "(let-values(((temp48_0)(compile-context-header cctx_9))" -"((mpi49_0) mpi_40)" +"((mpi49_0) mpi_41)" "((temp50_0)(module-binding-phase b_71))" "((temp51_0)(module-binding-sym b_71))" "((temp52_1)" @@ -27297,7 +27304,7 @@ static const char *startup_source = "(lambda(mu*_3 insp_9)(begin(set-module-use*-self-inspector! mu*_3 insp_9))))" "(define-values" "(module-use+extra-inspectors)" -"(lambda(mpi_41 phase_67 imports_1 inspector_12 extra-inspector_5 extra-inspectorss_7)" +"(lambda(mpi_42 phase_67 imports_1 inspector_12 extra-inspector_5 extra-inspectorss_7)" "(begin" "(let-values(((now-inspector_0)(current-code-inspector)))" "(let-values(((add-insp?_0)(if inspector_12(inspector-superior? inspector_12 now-inspector_0) #f)))" @@ -27400,7 +27407,7 @@ static const char *startup_source = "(let-values(((or-part_219) extra-inspectorss_7))" "(if or-part_219 or-part_219(seteq)))" " lst_163)))))))" -"(module-use*1.1 mpi_41 phase_67 new-extra-inspectorss_0 #f))))))))" +"(module-use*1.1 mpi_42 phase_67 new-extra-inspectorss_0 #f))))))))" "(define-values" "(module-use-merge-extra-inspectorss!)" "(lambda(existing-mu*_0 mu*_4)" @@ -29042,7 +29049,7 @@ static const char *startup_source = "(begin" " 'for-loop" "(if(pair? lst_209)" -"(let-values(((s_236)(unsafe-car lst_209))((rest_111)(unsafe-cdr lst_209)))" +"(let-values(((s_235)(unsafe-car lst_209))((rest_111)(unsafe-cdr lst_209)))" "(let-values(((fold-var_204)" "(let-values(((fold-var_205) fold-var_203))" "(let-values(((fold-var_206)" @@ -29237,7 +29244,7 @@ static const char *startup_source = "(begin" " 'for-loop" "(if(unsafe-fx< pos_92 len_28)" -"(let-values(((mpi_42)" +"(let-values(((mpi_43)" "(unsafe-vector-ref vec_54 pos_92)))" "(let-values(((vec_57 i_143)" "(let-values(((vec_58) vec_56)" @@ -29259,7 +29266,7 @@ static const char *startup_source = "(let-values()" "(add-module-path-index!/pos" " mpis_16" -" mpi_42)))" +" mpi_43)))" "(values" " new-vec_3" "(unsafe-fx+" @@ -29757,24 +29764,24 @@ static const char *startup_source = " s_81))" "(let-values(((_17_1" " e18_1)" -"(let-values(((s_306)" +"(let-values(((s_305)" "(if(1/syntax?" " s_81)" "(syntax-e$2" " s_81)" " s_81)))" "(if(pair?" -" s_306)" +" s_305)" "(let-values(((_19_0)" -"(let-values(((s_307)" +"(let-values(((s_306)" "(car" -" s_306)))" -" s_307))" +" s_305)))" +" s_306))" "((e20_0)" "(let-values(((s_35)" "(cdr" -" s_306)))" -"(let-values(((s_178)" +" s_305)))" +"(let-values(((s_177)" "(if(1/syntax?" " s_35)" "(syntax-e$2" @@ -29782,7 +29789,7 @@ static const char *startup_source = " s_35)))" "(let-values(((flat-s_13)" "(to-syntax-list.1$1" -" s_178)))" +" s_177)))" "(if(not" " flat-s_13)" "(let-values()" @@ -30031,43 +30038,43 @@ static const char *startup_source = " ids22_1" " rhs23_1" " body24_1)" -"(let-values(((s_308)" +"(let-values(((s_307)" "(if(1/syntax?" " s_44)" "(syntax-e$2" " s_44)" " s_44)))" -"(if(pair? s_308)" +"(if(pair? s_307)" "(let-values(((_25_0)" -"(let-values(((s_309)" +"(let-values(((s_308)" "(car" -" s_308)))" -" s_309))" +" s_307)))" +" s_308))" "((ids26_0" " rhs27_0" " body28_0)" -"(let-values(((s_310)" +"(let-values(((s_309)" "(cdr" -" s_308)))" +" s_307)))" "(let-values(((s_27)" "(if(1/syntax?" -" s_310)" +" s_309)" "(syntax-e$2" -" s_310)" -" s_310)))" +" s_309)" +" s_309)))" "(if(pair?" " s_27)" "(let-values(((ids29_0" " rhs30_0)" -"(let-values(((s_160)" +"(let-values(((s_159)" "(car" " s_27)))" "(let-values(((s_150)" "(if(1/syntax?" -" s_160)" +" s_159)" "(syntax-e$2" -" s_160)" -" s_160)))" +" s_159)" +" s_159)))" "(let-values(((flat-s_14)" "(to-syntax-list.1$1" " s_150)))" @@ -30120,46 +30127,46 @@ static const char *startup_source = "(let-values(((ids36_0" " rhs37_0)" "(let-values()" -"(let-values(((s_311)" +"(let-values(((s_310)" "(if(1/syntax?" " s_46)" "(syntax-e$2" " s_46)" " s_46)))" "(if(pair?" -" s_311)" +" s_310)" "(let-values(((ids32_0)" -"(let-values(((s_312)" +"(let-values(((s_311)" "(car" -" s_311)))" -" s_312))" +" s_310)))" +" s_311))" "((rhs33_0)" +"(let-values(((s_312)" +"(cdr" +" s_310)))" "(let-values(((s_313)" -"(cdr" -" s_311)))" -"(let-values(((s_314)" "(if(1/syntax?" -" s_313)" +" s_312)" "(syntax-e$2" -" s_313)" -" s_313)))" +" s_312)" +" s_312)))" "(if(pair?" -" s_314)" +" s_313)" "(let-values(((rhs34_0)" -"(let-values(((s_315)" +"(let-values(((s_314)" "(car" -" s_314)))" -" s_315))" +" s_313)))" +" s_314))" "(()" -"(let-values(((s_316)" +"(let-values(((s_315)" "(cdr" -" s_314)))" +" s_313)))" "(let-values(((s_52)" "(if(1/syntax?" -" s_316)" +" s_315)" "(syntax-e$2" -" s_316)" -" s_316)))" +" s_315)" +" s_315)))" "(if(null?" " s_52)" "(values)" @@ -30224,34 +30231,34 @@ static const char *startup_source = "(reverse$1" " rhs_4)))))))))" "((body31_0)" -"(let-values(((s_317)" +"(let-values(((s_316)" "(cdr" " s_27)))" "(let-values(((s_33)" "(if(1/syntax?" -" s_317)" +" s_316)" "(syntax-e$2" -" s_317)" -" s_317)))" +" s_316)" +" s_316)))" "(if(pair?" " s_33)" "(let-values(((body35_0)" -"(let-values(((s_318)" +"(let-values(((s_317)" "(car" " s_33)))" -" s_318))" +" s_317))" "(()" -"(let-values(((s_159)" +"(let-values(((s_158)" "(cdr" " s_33)))" -"(let-values(((s_319)" +"(let-values(((s_318)" "(if(1/syntax?" -" s_159)" +" s_158)" "(syntax-e$2" -" s_159)" -" s_159)))" +" s_158)" +" s_158)))" "(if(null?" -" s_319)" +" s_318)" "(values)" "((lambda(false_6" " str_11" @@ -30378,32 +30385,32 @@ static const char *startup_source = "(if(unsafe-fx< index_1 4)" "(let-values()" "(let-values(((ok?_19 _38_0 e39_0)" -"(let-values(((s_320) e_38))" -"(let-values(((orig-s_25) s_320))" +"(let-values(((s_319) e_38))" +"(let-values(((orig-s_25) s_319))" "(let-values(((_38_1 e39_1)" -"(let-values(((s_321)" +"(let-values(((s_320)" "(if(1/syntax?" -" s_320)" +" s_319)" "(syntax-e$2" -" s_320)" -" s_320)))" +" s_319)" +" s_319)))" "(if(pair?" -" s_321)" +" s_320)" "(let-values(((_40_0)" "(let-values(((s_64)" "(car" -" s_321)))" +" s_320)))" " s_64))" "((e41_0)" -"(let-values(((s_322)" +"(let-values(((s_321)" "(cdr" -" s_321)))" +" s_320)))" "(let-values(((s_38)" "(if(1/syntax?" -" s_322)" +" s_321)" "(syntax-e$2" -" s_322)" -" s_322)))" +" s_321)" +" s_321)))" "(let-values(((flat-s_15)" "(to-syntax-list.1$1" " s_38)))" @@ -30494,15 +30501,15 @@ static const char *startup_source = " s_39)))" "(if(pair? s_92)" "(let-values(((_44_0)" -"(let-values(((s_323)" +"(let-values(((s_322)" "(car" " s_92)))" -" s_323))" +" s_322))" "((e45_0)" "(let-values(((s_94)" "(cdr" " s_92)))" -"(let-values(((s_324)" +"(let-values(((s_323)" "(if(1/syntax?" " s_94)" "(syntax-e$2" @@ -30510,7 +30517,7 @@ static const char *startup_source = " s_94)))" "(let-values(((flat-s_16)" "(to-syntax-list.1$1" -" s_324)))" +" s_323)))" "(if(not" " flat-s_16)" "(let-values()" @@ -30588,34 +30595,34 @@ static const char *startup_source = "(if(unsafe-fx< index_1 6)" "(let-values()" "(let-values(((ok?_21 _46_0 e47_0)" -"(let-values(((s_325) e_38))" -"(let-values(((orig-s_27) s_325))" +"(let-values(((s_324) e_38))" +"(let-values(((orig-s_27) s_324))" "(let-values(((_46_1 e47_1)" -"(let-values(((s_326)" +"(let-values(((s_325)" "(if(1/syntax?" -" s_325)" +" s_324)" "(syntax-e$2" -" s_325)" -" s_325)))" -"(if(pair? s_326)" +" s_324)" +" s_324)))" +"(if(pair? s_325)" "(let-values(((_48_0)" -"(let-values(((s_327)" +"(let-values(((s_326)" "(car" -" s_326)))" -" s_327))" +" s_325)))" +" s_326))" "((e49_0)" -"(let-values(((s_155)" +"(let-values(((s_327)" "(cdr" -" s_326)))" -"(let-values(((s_156)" +" s_325)))" +"(let-values(((s_155)" "(if(1/syntax?" -" s_155)" +" s_327)" "(syntax-e$2" -" s_155)" -" s_155)))" +" s_327)" +" s_327)))" "(let-values(((flat-s_17)" "(to-syntax-list.1$1" -" s_156)))" +" s_155)))" "(if(not" " flat-s_17)" "(let-values()" @@ -30697,10 +30704,10 @@ static const char *startup_source = "(if(pair?" " s_330)" "(let-values(((e056_0)" -"(let-values(((s_220)" +"(let-values(((s_219)" "(car" " s_330)))" -" s_220))" +" s_219))" "((e57_0)" "(let-values(((s_331)" "(cdr" @@ -30849,54 +30856,54 @@ static const char *startup_source = " s_332)" " s_332)))" "(if(pair? s_333)" -"(if(let-values(((s_230)" +"(if(let-values(((s_229)" "(car" " s_333)))" " #t)" "(let-values(((s_334)" "(cdr" " s_333)))" -"(let-values(((s_231)" +"(let-values(((s_230)" "(if(1/syntax?" " s_334)" "(syntax-e$2" " s_334)" " s_334)))" -"(if(pair? s_231)" -"(if(let-values(((s_232)" +"(if(pair? s_230)" +"(if(let-values(((s_231)" "(car" -" s_231)))" +" s_230)))" "(let-values(((s_335)" "(if(1/syntax?" -" s_232)" +" s_231)" "(syntax-e$2" -" s_232)" -" s_232)))" +" s_231)" +" s_231)))" "(if(pair?" " s_335)" -"(if(let-values(((s_233)" +"(if(let-values(((s_232)" "(car" " s_335)))" "(let-values(((or-part_229)" "(if(1/syntax?" -" s_233)" +" s_232)" "(symbol?" "(syntax-e$2" -" s_233))" +" s_232))" " #f)))" "(if or-part_229" " or-part_229" "(symbol?" -" s_233))))" -"(let-values(((s_235)" +" s_232))))" +"(let-values(((s_234)" "(cdr" " s_335)))" "(let-values(((s_336)" "(if(1/syntax?" -" s_235)" +" s_234)" "(syntax-e$2" -" s_235)" -" s_235)))" +" s_234)" +" s_234)))" "(if(pair?" " s_336)" "(if(let-values(((s_337)" @@ -30930,7 +30937,7 @@ static const char *startup_source = " #f)))" "(let-values(((s_340)" "(cdr" -" s_231)))" +" s_230)))" "(let-values(((s_341)" "(if(1/syntax?" " s_340)" @@ -30998,35 +31005,35 @@ static const char *startup_source = " id:arg65_0" " thn66_0" " els67_0)" -"(let-values(((s_238)" +"(let-values(((s_237)" "(cdr" " s_348)))" -"(let-values(((s_239)" +"(let-values(((s_238)" "(if(1/syntax?" -" s_238)" +" s_237)" "(syntax-e$2" -" s_238)" -" s_238)))" +" s_237)" +" s_237)))" "(let-values(((id:rator68_0" " id:arg69_0)" -"(let-values(((s_242)" +"(let-values(((s_241)" "(car" -" s_239)))" -"(let-values(((s_243)" +" s_238)))" +"(let-values(((s_242)" "(if(1/syntax?" -" s_242)" +" s_241)" "(syntax-e$2" -" s_242)" -" s_242)))" +" s_241)" +" s_241)))" "(let-values(((id:rator72_0)" "(let-values(((s_350)" "(car" -" s_243)))" +" s_242)))" " s_350))" "((id:arg73_0)" "(let-values(((s_351)" "(cdr" -" s_243)))" +" s_242)))" "(let-values(((s_352)" "(if(1/syntax?" " s_351)" @@ -31034,10 +31041,10 @@ static const char *startup_source = " s_351)" " s_351)))" "(let-values(((id:arg74_0)" -"(let-values(((s_244)" +"(let-values(((s_243)" "(car" " s_352)))" -" s_244))" +" s_243))" "(()" "(let-values(((s_353)" "(cdr" @@ -31058,7 +31065,7 @@ static const char *startup_source = " els71_0)" "(let-values(((s_355)" "(cdr" -" s_239)))" +" s_238)))" "(let-values(((s_356)" "(if(1/syntax?" " s_355)" @@ -31180,7 +31187,7 @@ static const char *startup_source = " s_366)))" "(if(pair?" " s_367)" -"(if(let-values(((s_256)" +"(if(let-values(((s_255)" "(car" " s_367)))" " #t)" @@ -31271,7 +31278,7 @@ static const char *startup_source = "(let-values(((s_381)" "(cdr" " s_379)))" -"(let-values(((s_257)" +"(let-values(((s_256)" "(if(1/syntax?" " s_381)" "(syntax-e$2" @@ -31280,12 +31287,12 @@ static const char *startup_source = "(let-values(((thn89_0)" "(let-values(((s_382)" "(car" -" s_257)))" +" s_256)))" " s_382))" "((els90_0)" "(let-values(((s_383)" "(cdr" -" s_257)))" +" s_256)))" "(let-values(((s_384)" "(if(1/syntax?" " s_383)" @@ -32217,10 +32224,10 @@ static const char *startup_source = "(let-values()(set! purely-functional?_0 #f))" "(void))))" "((temp25_3)" -"(lambda(s_176 cctx_14)" +"(lambda(s_175 cctx_14)" "(begin" "(set! purely-functional?_0 #f)" -"(compile-top-level-require s_176 cctx_14))))" +"(compile-top-level-require s_175 cctx_14))))" "((temp26_1)(not single-expression?_0)))" "(compile-forms31.1" " temp20_0" @@ -32273,11 +32280,11 @@ static const char *startup_source = "(let-values(((link-linklet_0)" "((if to-source?_2" " values" -"(lambda(s_306)" +"(lambda(s_305)" "(let-values()" "(let-values(((linklet_2 new-keys_0)" "(1/compile-linklet" -" s_306" +" s_305" " #f" "(vector" " deserialize-instance" @@ -32416,7 +32423,7 @@ static const char *startup_source = "(lambda(pos_96)" "(begin" " 'loop" -"(let-values(((s_178)" +"(let-values(((s_177)" "(string->unreadable-symbol" "(format" " \"~a.~a\"" @@ -32425,7 +32432,7 @@ static const char *startup_source = "(if(defined-as-other?" "(hash-ref" " defined-syms-at-phase_0" -" s_178" +" s_177" " #f)" " id_52" " phase_81" @@ -32433,7 +32440,7 @@ static const char *startup_source = "(loop_91" "(add1" " pos_96))" -" s_178))))))" +" s_177))))))" " loop_91)" " 1))))" "(let-values((()" @@ -32636,7 +32643,7 @@ static const char *startup_source = "(let-values()" "(begin" "(let-values()" -"(let-values(((mpi_12)" +"(let-values(((mpi_13)" "(module-path-index-shift" " req_4" " original-self_0" @@ -32675,7 +32682,7 @@ static const char *startup_source = " #f" " #f" " temp8_2" -" mpi_12" +" mpi_13" " s_3" " self_6" " s_3" @@ -35208,10 +35215,10 @@ static const char *startup_source = "(if serializable?_3" "((if to-source?_4" " values" -"(lambda(s_198)" +"(lambda(s_197)" "(let-values()" "(1/compile-linklet" -" s_198" +" s_197" " 'decl))))" "(list" " 'linklet" @@ -35353,10 +35360,10 @@ static const char *startup_source = "(if serializable?_3" "((if to-source?_4" " values" -"(lambda(s_320)" +"(lambda(s_319)" "(let-values()" "(1/compile-linklet" -" s_320" +" s_319" " 'data))))" "(list" " 'linklet" @@ -37214,8 +37221,8 @@ 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_214 phase_102)" -"(begin(box-cons!(to-module-lift-context-provides to-module-lifts_3) s_214))))" +"(lambda(to-module-lifts_3 s_213 phase_102)" +"(begin(box-cons!(to-module-lift-context-provides to-module-lifts_3) s_213))))" "(define-values" "(add-lifted-to-module-end!)" "(lambda(to-module-lifts_4 s_395 phase_103)" @@ -37320,7 +37327,7 @@ static const char *startup_source = "(define-values(context->symbol)(lambda(context_5)(begin(if(symbol? context_5) context_5 'definition-context))))" "(define-values" "(avoid-current-expand-context)" -"(lambda(s_171 t_43 ctx_13)" +"(lambda(s_170 t_43 ctx_13)" "(begin" "(let-values(((wrap_1)" "(lambda(sym_61)" @@ -37330,7 +37337,7 @@ static const char *startup_source = " #f" "(list" "(syntax-shift-phase-level$1(datum->syntax$1 core-stx sym_61)(expand-context-phase ctx_13))" -" s_171))))))" +" s_170))))))" "(let-values(((fail_0)" "(lambda()" "(begin" @@ -37340,7 +37347,7 @@ static const char *startup_source = "(format" " \"not allowed in context\\n expansion context: ~a\"" "(context->symbol(expand-context-context ctx_13)))" -" s_171)))))" +" s_170)))))" "(let-values(((tmp_31)(context->symbol(expand-context-context ctx_13))))" "(if(equal? tmp_31 'module-begin)" "(let-values()(wrap_1 'begin))" @@ -37657,7 +37664,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_186)(begin(if(expanded+parsed? s_186)(expanded+parsed-s s_186) s_186))))" +"(define-values(extract-syntax)(lambda(s_185)(begin(if(expanded+parsed? s_185)(expanded+parsed-s s_185) s_185))))" "(define-values" "(parsed-only)" "(lambda(l_69)" @@ -37769,15 +37776,15 @@ static const char *startup_source = " s_27)))" " s_30))" "((_10_0)" -"(let-values(((s_160)" +"(let-values(((s_159)" "(cdr" " s_27)))" "(let-values(((s_150)" "(if(syntax?$1" -" s_160)" +" s_159)" "(syntax-e$1" -" s_160)" -" s_160)))" +" s_159)" +" s_159)))" "(let-values(((flat-s_14)" "(to-syntax-list.1" " s_150)))" @@ -38052,12 +38059,12 @@ static const char *startup_source = " ctx_17))))))))))))))))))))))" "(define-values" "(expand-already-expanded)" -"(lambda(s_164 ctx_18)" +"(lambda(s_163 ctx_18)" "(begin" -"(let-values(((ae_0)(syntax-e$1 s_164)))" +"(let-values(((ae_0)(syntax-e$1 s_163)))" "(let-values(((exp-s_0)(already-expanded-s ae_0)))" "(begin" -"(if(let-values(((or-part_263)(syntax-any-macro-scopes? s_164)))" +"(if(let-values(((or-part_263)(syntax-any-macro-scopes? s_163)))" "(if or-part_263" " or-part_263" "(let-values(((or-part_264)" @@ -38082,7 +38089,7 @@ static const char *startup_source = "(if(parsed? exp-s_0)" "(let-values() exp-s_0)" "(let-values()" -"(let-values(((result-s_1)(syntax-track-origin$1 exp-s_0 s_164)))" +"(let-values(((result-s_1)(syntax-track-origin$1 exp-s_0 s_163)))" "(begin" "(let-values(((obs_10)(expand-context-observer ctx_18)))" "(if obs_10" @@ -38230,20 +38237,20 @@ static const char *startup_source = "(expand7.1 temp110_0 #t temp111_0 #t exp-s_1 re-ctx_0)))))))))))))" "(define-values" "(dispatch-variable)" -"(lambda(t_50 s_312 id_61 ctx_23 binding_23 primitive?_6)" +"(lambda(t_50 s_311 id_61 ctx_23 binding_23 primitive?_6)" "(begin" "(if(expand-context-only-immediate? ctx_23)" "(let-values()" "(begin" "(let-values(((obs_21)(expand-context-observer ctx_23)))" -"(if obs_21(let-values()(let-values()(call-expand-observe obs_21 'exit-check s_312)))(void)))" +"(if obs_21(let-values()(let-values()(call-expand-observe obs_21 'exit-check s_311)))(void)))" " id_61))" "(let-values()" "(let-values((()" "(begin" "(let-values(((obs_22)(expand-context-observer ctx_23)))" "(if obs_22" -"(let-values()(let-values()(call-expand-observe obs_22 'variable s_312 id_61)))" +"(let-values()(let-values()(call-expand-observe obs_22 'variable s_311 id_61)))" "(void)))" "(values))))" "(let-values((()(begin(register-variable-referenced-if-local! binding_23)(values))))" @@ -38416,12 +38423,12 @@ static const char *startup_source = " #f))))" "(define-values" "(maybe-add-post-expansion-scope)" -"(lambda(s_320 ctx_27)" +"(lambda(s_319 ctx_27)" "(begin" "(if(root-expand-context-post-expansion-scope ctx_27)" "(let-values()" -"((expand-context-post-expansion-scope-action ctx_27) s_320(root-expand-context-post-expansion-scope ctx_27)))" -"(let-values() s_320)))))" +"((expand-context-post-expansion-scope-action ctx_27) s_319(root-expand-context-post-expansion-scope ctx_27)))" +"(let-values() s_319)))))" "(define-values" "(accumulate-def-ctx-scopes)" "(lambda(ctx_28 def-ctx-scopes_3)" @@ -38516,7 +38523,7 @@ static const char *startup_source = " ctx29_0)" "(begin" " 'expand/capture-lifts30" -"(let-values(((s_210) s28_1))" +"(let-values(((s_209) s28_1))" "(let-values(((ctx_30) ctx29_0))" "(let-values(((expand-lifts?_0)(if expand-lifts?24_0 expand-lifts?20_0 #f)))" "(let-values(((begin-form?_0)(if begin-form?25_0 begin-form?21_0 #f)))" @@ -38734,7 +38741,7 @@ static const char *startup_source = "(void)))" "(loop_93 with-lifts-s_0 #f ctx_31)))))))))))))))" " loop_93)" -" s_210" +" s_209" " always-wrap?_0" " ctx_30))))))))))))))" "(define-values" @@ -40205,21 +40212,21 @@ static const char *startup_source = "(lambda(s73_2 mode71_0 mode72_0)" "(begin" " 'core74" -"(let-values(((s_175) s73_2))" +"(let-values(((s_174) s73_2))" "(let-values(((mode_13)(if mode72_0 mode71_0 'flip)))" "(let-values()" "(begin" -"(if(syntax?$1 s_175)" +"(if(syntax?$1 s_174)" "(void)" "(let-values()" -" (raise-argument-error 'syntax-introducer \"syntax?\" s_175)))" +" (raise-argument-error 'syntax-introducer \"syntax?\" s_174)))" "(let-values(((tmp_33) mode_13))" "(if(equal? tmp_33 'add)" -"(let-values()(add-scope s_175 sc_28))" +"(let-values()(add-scope s_174 sc_28))" "(if(equal? tmp_33 'remove)" -"(let-values()(remove-scope s_175 sc_28))" +"(let-values()(remove-scope s_174 sc_28))" "(if(equal? tmp_33 'flip)" -"(let-values()(flip-scope s_175 sc_28))" +"(let-values()(flip-scope s_174 sc_28))" "(let-values()" "(raise-argument-error" " 'syntax-introducer" @@ -40321,7 +40328,7 @@ static const char *startup_source = " \"(or/c 'add 'remove 'flip)\"" " mode_14))))))))))))))" "(case-lambda" -"((s_181)(core82_0 s_181 #f #f))" +"((s_180)(core82_0 s_180 #f #f))" "((s_399 mode79_1)(core82_0 s_399 mode79_1 #t))))))))))))))))))))" "(case-lambda" "((ext-s_1 base-s_1)(begin 'make-syntax-delta-introducer(make-syntax-delta-introducer9_0 ext-s_1 base-s_1 #f #f)))" @@ -40789,7 +40796,7 @@ static const char *startup_source = "(if(> pos_103 end_30)" "(let-values(((phase_117)" " pos_103))" -"(let-values(((s_206)" +"(let-values(((s_205)" "(let-values(((s_39)" " s_416))" "(let-values(((s_417)" @@ -40803,9 +40810,9 @@ static const char *startup_source = " s_417)))))" "(if(not #f)" "(for-loop_173" -" s_206" +" s_205" "(+ pos_103 inc_24))" -" s_206)))" +" s_205)))" " s_416)))))" " for-loop_173)" " pre-s_0" @@ -40873,12 +40880,12 @@ static const char *startup_source = " result-s_6))))))))" "(define-values" "(1/syntax-local-lift-provide)" -"(lambda(s_215)" +"(lambda(s_214)" "(begin" " 'syntax-local-lift-provide" "(let-values(((ctx_56 result-s_7)" "(let-values(((temp118_1) 'syntax-local-lift-provide)" -"((s119_0) s_215)" +"((s119_0) s_214)" " ((temp120_0) \"not expanding in a module run-time body\")" "((expand-context-to-module-lifts121_0) expand-context-to-module-lifts)" "((to-module-lift-context-wrt-phase122_0) to-module-lift-context-wrt-phase)" @@ -40925,8 +40932,8 @@ static const char *startup_source = "(wrap-form '#%expression orig-s_33 phase_122)" " orig-s_33)))" "((temp133_0)" -"(lambda(s_221 phase_123 to-module-lift-ctx_3)" -"(wrap-form 'begin-for-syntax s_221 phase_123))))" +"(lambda(s_220 phase_123 to-module-lift-ctx_3)" +"(wrap-form 'begin-for-syntax s_220 phase_123))))" "(do-local-lift-to-module54.1" " add-lifted-to-module-end!131_0" " expand-context-to-module-lifts129_0" @@ -41011,11 +41018,11 @@ static const char *startup_source = "(let-values(((temp135_0) 'syntax-local-module-required-identifiers))" "(get-current-expand-context17.1 #f #f temp135_0 #t))))" "(let-values(((requires+provides_5)(expand-context-requires+provides ctx_59)))" -"(let-values(((mpi_43)(if mod-path_8(module-path->mpi/context mod-path_8 ctx_59) #f)))" +"(let-values(((mpi_44)(if mod-path_8(module-path->mpi/context mod-path_8 ctx_59) #f)))" "(let-values(((requireds_0)" "(extract-all-module-requires" " requires+provides_5" -" mpi_43" +" mpi_44" "(if(eq? phase-level_20 #t) 'all phase-level_20))))" "(if requireds_0" "(reverse$1" @@ -41250,12 +41257,12 @@ static const char *startup_source = "(syntax-source-accessor)" "(lambda(who_0 srcloc-accessor_0)" "(begin" -"(lambda(s_158)" +"(lambda(s_157)" "(let-values((()" "(begin" -" (if (syntax?$1 s_158) (void) (let-values () (raise-argument-error who_0 \"syntax?\" s_158)))" +" (if (syntax?$1 s_157) (void) (let-values () (raise-argument-error who_0 \"syntax?\" s_157)))" "(values))))" -"(let-values(((srcloc_7)(syntax-srcloc s_158)))(if srcloc_7(srcloc-accessor_0 srcloc_7) #f)))))))" +"(let-values(((srcloc_7)(syntax-srcloc s_157)))(if srcloc_7(srcloc-accessor_0 srcloc_7) #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))" @@ -41335,13 +41342,13 @@ static const char *startup_source = "(syntax-e$1 s_0)))))" "(define-values" "(1/syntax->datum)" -"(lambda(s_157)" +"(lambda(s_156)" "(begin" " 'syntax->datum" "(begin" -" (if (syntax?$1 s_157) (void) (let-values () (raise-argument-error 'syntax->datum \"syntax?\" s_157)))" -"(syntax->datum$1 s_157)))))" -"(define-values(maybe-syntax->datum)(lambda(s_158)(begin(if(syntax?$1 s_158)(syntax->datum$1 s_158) s_158))))" +" (if (syntax?$1 s_156) (void) (let-values () (raise-argument-error 'syntax->datum \"syntax?\" s_156)))" +"(syntax->datum$1 s_156)))))" +"(define-values(maybe-syntax->datum)(lambda(s_157)(begin(if(syntax?$1 s_157)(syntax->datum$1 s_157) s_157))))" "(define-values" "(1/datum->syntax)" "(let-values(((datum->syntax9_0)" @@ -41632,7 +41639,7 @@ static const char *startup_source = "(let-values()(raise-argument-error 'syntax-debug-info phase?-string phase_12)))" "(syntax-debug-info$1 s_397 phase_12 all-bindings?_1))))))))))" "(case-lambda" -"((s_310)(begin 'syntax-debug-info(syntax-debug-info52_0 s_310 #f #f #f #f)))" +"((s_309)(begin 'syntax-debug-info(syntax-debug-info52_0 s_309 #f #f #f #f)))" "((s_27 phase_132 all-bindings?48_1)(syntax-debug-info52_0 s_27 phase_132 all-bindings?48_1 #t #t))" "((s_30 phase47_3)(syntax-debug-info52_0 s_30 phase47_3 #f #t #f)))))" "(define-values" @@ -41791,7 +41798,7 @@ static const char *startup_source = "(let-values((()" "(begin" "((letrec-values(((loop_77)" -"(lambda(mpi_44" +"(lambda(mpi_45" " phase_0" " attach-instances?_1" " attach-phase_0)" @@ -41808,7 +41815,7 @@ static const char *startup_source = " src-namespace_6)" "(let-values()" "(1/module-path-index-resolve" -" mpi_44)))))" +" mpi_45)))))" "(let-values(((attach-this-instance?_0)" "(if attach-instances?_1" "(eqv? phase_0 attach-phase_0)" @@ -41851,7 +41858,7 @@ static const char *startup_source = " #f)" "(let-values()" "(loop_77" -" mpi_44" +" mpi_45" " 0" " attach-instances?_1" " 0))" @@ -41986,7 +41993,7 @@ static const char *startup_source = "(let-values(((src-namespace41_0)" " src-namespace_6)" "((mpi42_0)" -" mpi_44)" +" mpi_45)" "((phase43_1)" " phase_0))" "(namespace-module-instantiate!96.1" @@ -42077,7 +42084,7 @@ static const char *startup_source = " req_5" "(module-self" " m_20)" -" mpi_44)" +" mpi_45)" "(phase+" " phase_0" "(car" @@ -42137,7 +42144,7 @@ static const char *startup_source = " 'submod" " \".\"" " submod-name_0)" -" mpi_44)" +" mpi_45)" " #f" " #f" " attach-phase_0))" @@ -42159,7 +42166,7 @@ static const char *startup_source = "(1/module-path-index-join" " '(submod" " \"..\")" -" mpi_44)" +" mpi_45)" " #f" " #f" " attach-phase_0))" @@ -42417,12 +42424,12 @@ static const char *startup_source = " null" "(unsafe-immutable-hash-iterate-first ht_79)))))))" "(let-values(((add-ns-scopes_0)" -"(lambda(s_172)" +"(lambda(s_171)" "(begin" " 'add-ns-scopes" "(let-values(((temp78_3)" "(add-scopes" -"(push-scope s_172 post-scope_1)" +"(push-scope s_171 post-scope_1)" " other-namespace-scopes_0))" "((temp79_1)" "(root-expand-context-all-scopes-stx root-ctx_5))" @@ -43014,8 +43021,8 @@ static const char *startup_source = "(let-values()(eval-compiled(1/syntax->datum s_146) ns_42))" "(let-values()" "(let-values(((temp82_2)" -"(lambda(s_173 ns_85 tail?_52)" -"(eval-compiled(compile_1 s_173 ns_85) ns_85 tail?_52)))" +"(lambda(s_172 ns_85 tail?_52)" +"(eval-compiled(compile_1 s_172 ns_85) ns_85 tail?_52)))" "((temp83_2) #f))" "(per-top-level68.1" " #f" @@ -43035,7 +43042,7 @@ static const char *startup_source = "(case-lambda" "((s_426)(begin 'eval(eval6_0 s_426 #f #f #f #f)))" "((s_427 ns_44 compile2_1)(eval6_0 s_427 ns_44 compile2_1 #t #t))" -"((s_174 ns1_5)(eval6_0 s_174 ns1_5 #f #t #f)))))" +"((s_173 ns1_5)(eval6_0 s_173 ns1_5 #f #t #f)))))" "(define-values" "(eval-compiled)" "(let-values(((eval-compiled12_0)" @@ -43067,19 +43074,19 @@ static const char *startup_source = " to-source?21_1)" "(begin" " 'compile23" -"(let-values(((s_162) s22_1))" +"(let-values(((s_161) s22_1))" "(let-values(((ns_89)(if ns18_0 ns14_2(1/current-namespace))))" "(let-values(((serializable?_4)(if serializable?19_0 serializable?15_0 #t)))" "(let-values(((expand_0)(if expand20_0 expand16_0 expand$1)))" "(let-values(((to-source?_5)(if to-source?21_1 to-source?17_0 #f)))" "(let-values()" "(let-values(((cs_0)" -"(if(1/compiled-expression? s_162)" -"(let-values()(list s_162))" -"(if(if(syntax?$1 s_162)" -"(1/compiled-expression?(1/syntax-e s_162))" +"(if(1/compiled-expression? s_161)" +"(let-values()(list s_161))" +"(if(if(syntax?$1 s_161)" +"(1/compiled-expression?(1/syntax-e s_161))" " #f)" -"(let-values()(list(1/syntax-e s_162)))" +"(let-values()(list(1/syntax-e s_161)))" "(let-values()" "(let-values(((temp88_2)" "(lambda(s_428 ns_45 as-tail?_4)" @@ -43105,7 +43112,7 @@ static const char *startup_source = " temp88_2" " #f" " #f" -" s_162" +" s_161" " ns_89)))))))" "(if(if(= 1(length cs_0))(not(compiled-multiple-top?(car cs_0))) #f)" "(car cs_0)" @@ -43125,7 +43132,7 @@ static const char *startup_source = "((s_430 ns_47 serializable?_5 expand_1 to-source?17_1)" "(compile23_0 s_430 ns_47 serializable?_5 expand_1 to-source?17_1 #t #t #t #t))" "((s_149 ns_90 serializable?_6 expand16_1)(compile23_0 s_149 ns_90 serializable?_6 expand16_1 #f #t #t #t #f))" -"((s_186 ns_91 serializable?15_1)(compile23_0 s_186 ns_91 serializable?15_1 #f #f #t #t #f #f))" +"((s_185 ns_91 serializable?15_1)(compile23_0 s_185 ns_91 serializable?15_1 #f #f #t #t #f #f))" "((s_17 ns14_3)(compile23_0 s_17 ns14_3 #f #f #f #t #f #f #f)))))" "(define-values" "(compile-to-linklets)" @@ -43290,9 +43297,9 @@ static const char *startup_source = "(begin" "(if observable?_1(let-values()(log-expand-start))(void))" "(let-values(((temp110_3)" -"(lambda(s_316 ns_94 as-tail?_5)" +"(lambda(s_315 ns_94 as-tail?_5)" "(expand-single" -" s_316" +" s_315" " ns_94" " observable?_1" " to-parsed?_2" @@ -43321,7 +43328,7 @@ static const char *startup_source = "(expand40_0 s_434 ns_95 observable?_2 to-parsed?_3 serializable?34_1 #t #t #t #t))" "((s_54 ns_96 observable?_3 to-parsed?33_1)(expand40_0 s_54 ns_96 observable?_3 to-parsed?33_1 #f #t #t #t #f))" "((s_55 ns_97 observable?32_1)(expand40_0 s_55 ns_97 observable?32_1 #f #f #t #t #f #f))" -"((s_319 ns31_3)(expand40_0 s_319 ns31_3 #f #f #f #t #f #f #f)))))" +"((s_318 ns31_3)(expand40_0 s_318 ns31_3 #f #f #f #t #f #f #f)))))" "(define-values" "(expand-single)" "(lambda(s_388 ns_98 observable?_4 to-parsed?_4 serializable?_9)" @@ -43396,11 +43403,11 @@ static const char *startup_source = "(lambda(s44_1 ns42_1 ns43_0)" "(begin" " 'expand-once45" -"(let-values(((s_197) s44_1))" +"(let-values(((s_196) s44_1))" "(let-values(((ns_99)(if ns43_0 ns42_1(1/current-namespace))))" "(let-values()" "(let-values(((temp130_2)" -"(lambda(s_200 ns_100 as-tail?_6)(expand-single-once s_200 ns_100)))" +"(lambda(s_199 ns_100 as-tail?_6)(expand-single-once s_199 ns_100)))" "((cons131_0) cons)" "((re-pair132_0) re-pair)" "((temp133_2) #t)" @@ -43418,10 +43425,10 @@ static const char *startup_source = " temp130_2" " re-pair132_0" " #t" -" s_197" +" s_196" " ns_99)))))))))" "(case-lambda" -"((s_320)(begin 'expand-once(expand-once45_0 s_320 #f #f)))" +"((s_319)(begin 'expand-once(expand-once45_0 s_319 #f #f)))" "((s_435 ns42_2)(expand-once45_0 s_435 ns42_2 #t)))))" "(define-values" "(expand-single-once)" @@ -43498,7 +43505,7 @@ static const char *startup_source = "(lambda(s49_0 ns47_0 ns48_2)" "(begin" " 'expand-to-top-form50" -"(let-values(((s_203) s49_0))" +"(let-values(((s_202) s49_0))" "(let-values(((ns_102)(if ns48_2 ns47_0(1/current-namespace))))" "(let-values()" "(begin" @@ -43517,7 +43524,7 @@ static const char *startup_source = " temp144_1" " #f" " #f" -" s_203" +" s_202" " ns_102))))))))))" "(case-lambda" "((s_436)(begin 'expand-to-top-form(expand-to-top-form50_0 s_436 #f #f)))" @@ -43556,7 +43563,7 @@ static const char *startup_source = "(make-expand-context10.1 #f #f observable?148_0 #t #f #f ns_103))))" "(let-values(((phase_135)(namespace-phase ns_103)))" "((letrec-values(((loop_98)" -"(lambda(s_209 phase_50 ns_104 as-tail?_7)" +"(lambda(s_208 phase_50 ns_104 as-tail?_7)" "(begin" " 'loop" "(let-values(((tl-ctx_0)" @@ -43657,14 +43664,14 @@ static const char *startup_source = " 'struct-copy" " \"expand-context/outer?\"" " the-struct_72))))))" -"(let-values(((wb-s_0)(if just-once?_1 s_209 #f)))" +"(let-values(((wb-s_0)(if just-once?_1 s_208 #f)))" "(let-values(((require-lifts_5 lifts_11 exp-s_8)" "(if(if quick-immediate?_0" -"(core-form-sym s_209 phase_50)" +"(core-form-sym s_208 phase_50)" " #f)" -"(values null null s_209)" +"(values null null s_208)" "(expand-capturing-lifts" -" s_209" +" s_208" "(let-values(((v_194) tl-ctx_0))" "(let-values(((the-struct_74) v_194))" "(if(expand-context/outer? the-struct_74)" @@ -43948,18 +43955,18 @@ static const char *startup_source = "(let-values(((ok?_29" " begin-for-syntax166_0" " e167_0)" -"(let-values(((s_221)" +"(let-values(((s_220)" " disarmed-exp-s_0))" "(let-values(((orig-s_35)" -" s_221))" +" s_220))" "(let-values(((begin-for-syntax166_1" " e167_1)" "(let-values(((s_440)" "(if(syntax?$1" -" s_221)" +" s_220)" "(syntax-e$1" -" s_221)" -" s_221)))" +" s_220)" +" s_220)))" "(if(pair?" " s_440)" "(let-values(((begin-for-syntax168_0)" @@ -43971,7 +43978,7 @@ static const char *startup_source = "(let-values(((s_442)" "(cdr" " s_440)))" -"(let-values(((s_224)" +"(let-values(((s_223)" "(if(syntax?$1" " s_442)" "(syntax-e$1" @@ -43979,7 +43986,7 @@ static const char *startup_source = " s_442)))" "(let-values(((flat-s_21)" "(to-syntax-list.1" -" s_224)))" +" s_223)))" "(if(not" " flat-s_21)" "(let-values()" @@ -44090,8 +44097,8 @@ static const char *startup_source = " #t)))))))))))))))))" "(define-values" "(maybe-intro)" -"(lambda(s_235 ns_105)" -"(begin(if(syntax?$1 s_235) s_235(1/namespace-syntax-introduce(1/datum->syntax #f s_235) ns_105)))))" +"(lambda(s_234 ns_105)" +"(begin(if(syntax?$1 s_234) s_234(1/namespace-syntax-introduce(1/datum->syntax #f s_234) ns_105)))))" "(define-values" "(re-pair)" "(lambda(form-id_0 s_444 r_45)" @@ -44200,11 +44207,11 @@ static const char *startup_source = "(let-values(((s_350)(syntax-disarm$1 s_445)))" "(let-values(((orig-s_36) s_350))" "(let-values(((#%require177_1 req178_1)" -"(let-values(((s_244)(if(syntax?$1 s_350)(syntax-e$1 s_350) s_350)))" -"(if(pair? s_244)" -"(let-values(((#%require179_0)(let-values(((s_446)(car s_244))) s_446))" +"(let-values(((s_243)(if(syntax?$1 s_350)(syntax-e$1 s_350) s_350)))" +"(if(pair? s_243)" +"(let-values(((#%require179_0)(let-values(((s_446)(car s_243))) s_446))" "((req180_0)" -"(let-values(((s_447)(cdr s_244)))" +"(let-values(((s_447)(cdr s_243)))" "(let-values(((s_448)" "(if(syntax?$1 s_447)" "(syntax-e$1 s_447)" @@ -44386,18 +44393,18 @@ static const char *startup_source = "(if obs_46" "(let-values()" "(let-values(((ok?_31 begin194_0 e195_0)" -"(let-values(((s_262) new-s_5))" -"(let-values(((orig-s_37) s_262))" +"(let-values(((s_261) new-s_5))" +"(let-values(((orig-s_37) s_261))" "(let-values(((begin194_1 e195_1)" -"(let-values(((s_451)(if(syntax?$1 s_262)(syntax-e$1 s_262) s_262)))" +"(let-values(((s_451)(if(syntax?$1 s_261)(syntax-e$1 s_261) s_261)))" "(if(pair? s_451)" -"(let-values(((begin196_0)(let-values(((s_266)(car s_451))) s_266))" +"(let-values(((begin196_0)(let-values(((s_265)(car s_451))) s_265))" "((e197_0)" -"(let-values(((s_267)(cdr s_451)))" +"(let-values(((s_266)(cdr s_451)))" "(let-values(((s_452)" -"(if(syntax?$1 s_267)" -"(syntax-e$1 s_267)" -" s_267)))" +"(if(syntax?$1 s_266)" +"(syntax-e$1 s_266)" +" s_266)))" "(let-values(((flat-s_22)(to-syntax-list.1 s_452)))" "(if(not flat-s_22)" "(let-values()" @@ -44505,7 +44512,7 @@ static const char *startup_source = " (let-values () (raise-argument-error who_20 \"(-> any)\" fail-k_2)))" "(values))))" "(let-values(((ns_57)(1/current-namespace)))" -"(let-values(((mpi_45)" +"(let-values(((mpi_46)" "(if(1/module-path? mod-path_5)" "(let-values()(1/module-path-index-join mod-path_5 #f))" "(if(1/module-path-index? mod-path_5)" @@ -44514,7 +44521,7 @@ static const char *startup_source = "(1/module-path-index-join" "(resolved-module-path->module-path mod-path_5)" " #f))))))" -"(let-values(((mod-name_22)(1/module-path-index-resolve mpi_45 #t)))" +"(let-values(((mod-name_22)(1/module-path-index-resolve mpi_46 #t)))" "(let-values(((phase_137)(namespace-phase ns_57)))" "(if(not sym_80)" "(let-values()" @@ -44529,7 +44536,7 @@ static const char *startup_source = " #f" " #f" " ns_57" -" mpi_45" +" mpi_46" " phase_137)))" "(if(equal? sym_80 0)" "(let-values()" @@ -44544,7 +44551,7 @@ static const char *startup_source = " #f" " #f" " ns_57" -" mpi_45" +" mpi_46" " phase_137)))" "(if(void? sym_80)" "(let-values()" @@ -44553,7 +44560,7 @@ static const char *startup_source = " phase32_4" " #t" " ns_57" -" mpi_45" +" mpi_46" " phase_137)))" "(let-values()" "(let-values(((m_22)(namespace->module ns_57 mod-name_22)))" @@ -44603,7 +44610,7 @@ static const char *startup_source = " #f" " #f" " ns_57" -" mpi_45" +" mpi_46" " phase_137))" "(values))))" "(let-values(((ex-mod-name_0)" @@ -44611,7 +44618,7 @@ static const char *startup_source = "(module-path-index-shift" "(module-binding-module binding_26)" "(module-self m_22)" -" mpi_45))))" +" mpi_46))))" "(let-values(((m-ns_16)" "(let-values(((temp39_4)" "(phase-" @@ -44713,7 +44720,7 @@ static const char *startup_source = " phase44_0" " #t" " ns_57" -" mpi_45" +" mpi_46" " phase_137))" "(values))))" "(let-values(((t_54)" @@ -45046,14 +45053,14 @@ static const char *startup_source = "(call-with-current-load-relative-directory s_0(lambda()((1/current-load) s_0 #f)))))))))" "(define-values" "(1/load-extension)" -"(lambda(s_158)" +"(lambda(s_157)" "(begin" " 'load-extension" "(let-values()" "(let-values()" "(begin" -" (if (path-string? s_158) (void) (let-values () (raise-argument-error 'load-extension \"path-string?\" s_158)))" -"(call-with-current-load-relative-directory s_158(lambda()((current-load-extension) s_158 #f)))))))))" +" (if (path-string? s_157) (void) (let-values () (raise-argument-error 'load-extension \"path-string?\" s_157)))" +"(call-with-current-load-relative-directory s_157(lambda()((current-load-extension) s_157 #f)))))))))" "(define-values" "(call-with-current-load-relative-directory)" "(lambda(p_46 thunk_4)" @@ -45082,7 +45089,7 @@ static const char *startup_source = "(embedded-load)" "(lambda(start_42 end_31 str_24 as-predefined?_0)" "(begin" -"(let-values(((s_171)" +"(let-values(((s_170)" "(if str_24" " str_24" "(let-values(((sp_0)(find-system-path 'exec-file)))" @@ -45102,7 +45109,7 @@ static const char *startup_source = "(file-position(current-input-port) start_43)" "(read-bytes(max 0(- end_32 start_43))))))))" "(with-input-from-file45.1 #f #f exe4_0 temp5_6)))))))))" -"(let-values(((p_55)(open-input-bytes s_171)))" +"(let-values(((p_55)(open-input-bytes s_170)))" "((letrec-values(((loop_2)" "(lambda()" "(begin" @@ -45162,12 +45169,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_23 s_158 l_4)" +"(lambda(who_23 s_157 l_4)" "(begin" "(begin" -"(if(relative-path-string? s_158)" +"(if(relative-path-string? s_157)" "(void)" -" (let-values () (raise-argument-error who_23 \"(and/c path-string? relative-path?)\" s_158)))" +" (let-values () (raise-argument-error who_23 \"(and/c path-string? relative-path?)\" s_157)))" "(if((lambda(l_2)(if(list? l_2)(andmap2 relative-path-string? l_2) #f)) l_4)" "(void)" " (let-values () (raise-argument-error who_23 \"(listof (and/c path-string? relative-path?))\" l_4)))))))" @@ -46738,11 +46745,11 @@ static const char *startup_source = "(if(not(char? due-to_0))" "(let-values() exn:fail:read:non-char)" "(let-values() exn:fail:read)))" -"(let-values(((s_161)" +"(let-values(((s_160)" "(if(error-print-source-location)" "(if srcloc_9(srcloc->string srcloc_9) #f)" " #f)))" -" (if s_161 (string-append s_161 \": \" msg_0) msg_0))" +" (if s_160 (string-append s_160 \": \" msg_0) msg_0))" " continuation-marks_0" "(if srcloc_9(list srcloc_9) null)))))))))))))))" "(define-values" @@ -47171,8 +47178,8 @@ static const char *startup_source = "(let-values(((config_27) config5_0))" "(let-values(((start-pos_7)(if start-pos3_0 start-pos2_0 0)))" "(let-values()" -"(let-values(((s_185)(substring(accum-string-str a_70) start-pos_7(accum-string-pos a_70))))" -"(begin(accum-string-abandon! a_70 config_27) s_185)))))))))" +"(let-values(((s_184)(substring(accum-string-str a_70) start-pos_7(accum-string-pos a_70))))" +"(begin(accum-string-abandon! a_70 config_27) s_184)))))))))" "(define-values" "(accum-string-get-bytes!13.1)" "(lambda(start-pos9_0 start-pos10_0 a11_0 config12_0)" @@ -47808,7 +47815,7 @@ static const char *startup_source = "(lambda(s7_2 radix1_0 convert-mode2_0 decimal-mode3_0 radix4_0 convert-mode5_0 decimal-mode6_0)" "(begin" " 'string->number8" -"(let-values(((s_183) s7_2))" +"(let-values(((s_182) s7_2))" "(let-values(((radix_0)(if radix4_0 radix1_0 10)))" "(let-values(((convert-mode_0)(if convert-mode5_0 convert-mode2_0 'number-or-false)))" "(let-values(((decimal-mode_0)" @@ -47819,9 +47826,9 @@ static const char *startup_source = "(let-values()" "(let-values()" "(begin" -"(if(string? s_183)" +"(if(string? s_182)" "(void)" -" (let-values () (raise-argument-error 'string->number \"string?\" s_183)))" +" (let-values () (raise-argument-error 'string->number \"string?\" s_182)))" "(if((lambda(p_67)(if(exact-integer? radix_0)(<= 2 radix_0 16) #f)) radix_0)" "(void)" "(let-values()" @@ -47847,7 +47854,7 @@ static const char *startup_source = " \"(or/c 'decimal-as-inexact decimal-as-exact)\"" " decimal-mode_0)))" "(let-values(((temp70_1) 0)" -"((temp71_0)(string-length s_183))" +"((temp71_0)(string-length s_182))" "((radix72_0) radix_0)" "((temp73_0) #f)" "((decimal-mode74_0) decimal-mode_0)" @@ -47856,7 +47863,7 @@ static const char *startup_source = " #f" " #f" " temp73_0" -" s_183" +" s_182" " temp70_1" " temp71_0" " radix72_0" @@ -49315,7 +49322,7 @@ static const char *startup_source = " start*_5))))))" "(define-values" "(replace-hashes)" -"(lambda(s_264 start_52 end_41)" +"(lambda(s_263 start_52 end_41)" "(begin" "(let-values(((new-s_7)(make-string(- end_41 start_52))))" "(begin" @@ -49325,7 +49332,7 @@ static const char *startup_source = " \"string\"" "(lambda(x_84)(string? x_84))" "(lambda(x_85)(unsafe-string-length x_85))" -" s_264" +" s_263" " start_52" " end_41" " 1))" @@ -54718,8 +54725,8 @@ static const char *startup_source = "(if(1/resolved-module-path? mod_25)" "(let-values() mod_25)" "(let-values()" -"(let-values(((mpi_46)(if(1/module-path-index? mod_25) mod_25(1/module-path-index-join mod_25 #f))))" -"(1/module-path-index-resolve mpi_46 load?_6))))))))))" +"(let-values(((mpi_47)(if(1/module-path-index? mod_25) mod_25(1/module-path-index-join mod_25 #f))))" +"(1/module-path-index-resolve mpi_47 load?_6))))))))))" "(define-values" "(read-syntax$1)" "(lambda(src_0 in_73)" @@ -55085,13 +55092,13 @@ static const char *startup_source = "(eval$1)" "(case-lambda" "((s_0)(begin 'eval((1/current-eval)(intro s_0))))" -"((s_157 ns_58)" +"((s_156 ns_58)" "(begin" " (if (1/namespace? ns_58) (void) (let-values () (raise-argument-error 'eval \"namespace?\" ns_58)))" "(with-continuation-mark" " parameterization-key" "(extend-parameterization(continuation-mark-set-first #f parameterization-key) 1/current-namespace ns_58)" -"(let-values()((1/current-eval)(intro s_157 ns_58))))))))" +"(let-values()((1/current-eval)(intro s_156 ns_58))))))))" "(define-values" "(1/eval-syntax)" "(case-lambda" @@ -55101,14 +55108,14 @@ static const char *startup_source = "(begin" " (if (syntax?$1 s_1) (void) (let-values () (raise-argument-error 'eval-syntax \"syntax?\" s_1)))" "((1/current-eval) s_1))))" -"((s_169 ns_114)" +"((s_168 ns_114)" "(begin" -" (if (syntax?$1 s_169) (void) (let-values () (raise-argument-error 'eval-syntax \"syntax?\" s_169)))" +" (if (syntax?$1 s_168) (void) (let-values () (raise-argument-error 'eval-syntax \"syntax?\" s_168)))" " (if (1/namespace? ns_114) (void) (let-values () (raise-argument-error 'eval-syntax \"namespace?\" ns_114)))" "(with-continuation-mark" " parameterization-key" "(extend-parameterization(continuation-mark-set-first #f parameterization-key) 1/current-namespace ns_114)" -"(let-values()((1/current-eval) s_169)))))))" +"(let-values()((1/current-eval) s_168)))))))" "(define-values(compile$1)(lambda(s_2)(begin 'compile((1/current-compile)(intro s_2) #f))))" "(define-values" "(1/compile-syntax)" @@ -55118,7 +55125,7 @@ static const char *startup_source = "(begin" " (if (syntax?$1 s_3) (void) (let-values () (raise-argument-error 'compile-syntax \"syntax?\" s_3)))" "((1/current-compile) s_3 #f)))))" -"(define-values(1/expand)(lambda(s_170)(begin 'expand(expand$1(intro s_170)(1/current-namespace) #t))))" +"(define-values(1/expand)(lambda(s_169)(begin 'expand(expand$1(intro s_169)(1/current-namespace) #t))))" "(define-values" "(1/expand-syntax)" "(lambda(s_145)" @@ -55163,13 +55170,13 @@ static const char *startup_source = "(declare-primitive-module!)" "(lambda(name_70 inst_7 in-ns_0 protected_0 cross-phase-persistent?_3)" "(begin" -"(let-values(((mpi_47)(1/module-path-index-join(list 'quote name_70) #f)))" +"(let-values(((mpi_48)(1/module-path-index-join(list 'quote name_70) #f)))" "(let-values(((in-ns1_0) in-ns_0)" "((temp2_6)" "(let-values(((temp4_6)(1/current-module-declare-source))" "((cross-phase-persistent?5_0) cross-phase-persistent?_3)" "((temp6_4)(zero?(hash-count protected_0)))" -"((mpi7_0) mpi_47)" +"((mpi7_0) mpi_48)" "((temp8_5)" "(hasheqv" " 0" @@ -55194,7 +55201,7 @@ static const char *startup_source = "(let-values()" "(let-values(((binding_27)" "(let-values(((mpi10_0)" -" mpi_47)" +" mpi_48)" "((temp11_5)" " 0)" "((sym12_0)" @@ -55485,7 +55492,7 @@ static const char *startup_source = " intdefs63_0" " #t)))))))))))" "(case-lambda" -"((s_171 context_1 stop-ids_3)(begin 'local-expand(local-expand6_0 s_171 context_1 stop-ids_3 #f #f)))" +"((s_170 context_1 stop-ids_3)(begin 'local-expand(local-expand6_0 s_170 context_1 stop-ids_3 #f #f)))" "((s_147 context_11 stop-ids_4 intdefs1_1)(local-expand6_0 s_147 context_11 stop-ids_4 intdefs1_1 #t)))))" "(define-values" "(1/local-expand/capture-lifts)" @@ -55528,23 +55535,23 @@ static const char *startup_source = "(case-lambda" "((s_6 context_13 stop-ids_6)" "(begin 'local-expand/capture-lifts(local-expand/capture-lifts15_0 s_6 context_13 stop-ids_6 #f #f #f #f)))" -"((s_183 context_14 stop-ids_7 intdefs_5 lift-key9_1)" -"(local-expand/capture-lifts15_0 s_183 context_14 stop-ids_7 intdefs_5 lift-key9_1 #t #t))" -"((s_184 context_15 stop-ids_8 intdefs8_1)" -"(local-expand/capture-lifts15_0 s_184 context_15 stop-ids_8 intdefs8_1 #f #t #f)))))" +"((s_182 context_14 stop-ids_7 intdefs_5 lift-key9_1)" +"(local-expand/capture-lifts15_0 s_182 context_14 stop-ids_7 intdefs_5 lift-key9_1 #t #t))" +"((s_183 context_15 stop-ids_8 intdefs8_1)" +"(local-expand/capture-lifts15_0 s_183 context_15 stop-ids_8 intdefs8_1 #f #t #f)))))" "(define-values" "(1/local-transformer-expand)" "(let-values(((local-transformer-expand22_0)" "(lambda(s19_1 context20_0 stop-ids21_0 intdefs17_0 intdefs18_0)" "(begin" " 'local-transformer-expand22" -"(let-values(((s_162) s19_1))" +"(let-values(((s_161) s19_1))" "(let-values(((context_16) context20_0))" "(let-values(((stop-ids_9) stop-ids21_0))" "(let-values(((intdefs_6)(if intdefs18_0 intdefs17_0 #f)))" "(let-values()" "(let-values(((temp71_4) 'local-expand)" -"((s72_0) s_162)" +"((s72_0) s_161)" "((context73_0) context_16)" "((stop-ids74_0) stop-ids_9)" "((intdefs75_0) intdefs_6)" @@ -55569,8 +55576,8 @@ static const char *startup_source = " intdefs75_0" " #t)))))))))))" "(case-lambda" -"((s_181 context_17 stop-ids_10)" -"(begin 'local-transformer-expand(local-transformer-expand22_0 s_181 context_17 stop-ids_10 #f #f)))" +"((s_180 context_17 stop-ids_10)" +"(begin 'local-transformer-expand(local-transformer-expand22_0 s_180 context_17 stop-ids_10 #f #f)))" "((s_11 context_18 stop-ids_11 intdefs17_1)" "(local-transformer-expand22_0 s_11 context_18 stop-ids_11 intdefs17_1 #t)))))" "(define-values" @@ -55579,14 +55586,14 @@ static const char *startup_source = "(lambda(s28_2 context29_0 stop-ids30_0 intdefs24_0 lift-key25_0 intdefs26_1 lift-key27_0)" "(begin" " 'local-transformer-expand/capture-lifts31" -"(let-values(((s_186) s28_2))" +"(let-values(((s_185) s28_2))" "(let-values(((context_19) context29_0))" "(let-values(((stop-ids_12) stop-ids30_0))" "(let-values(((intdefs_7)(if intdefs26_1 intdefs24_0 #f)))" "(let-values(((lift-key_0)(if lift-key27_0 lift-key25_0(generate-lift-key))))" "(let-values()" "(let-values(((temp77_2) 'local-expand)" -"((s78_0) s_186)" +"((s78_0) s_185)" "((context79_0) context_19)" "((stop-ids80_0) stop-ids_12)" "((intdefs81_0) intdefs_7)" @@ -55613,10 +55620,10 @@ static const char *startup_source = " intdefs81_0" " #t))))))))))))" "(case-lambda" -"((s_305 context_20 stop-ids_13)" +"((s_304 context_20 stop-ids_13)" "(begin" " 'local-transformer-expand/capture-lifts" -"(local-transformer-expand/capture-lifts31_0 s_305 context_20 stop-ids_13 #f #f #f #f)))" +"(local-transformer-expand/capture-lifts31_0 s_304 context_20 stop-ids_13 #f #f #f #f)))" "((s_467 context_21 stop-ids_14 intdefs_8 lift-key25_1)" "(local-transformer-expand/capture-lifts31_0 s_467 context_21 stop-ids_14 intdefs_8 lift-key25_1 #t #t))" "((s_468 context_22 stop-ids_15 intdefs24_1)" @@ -55681,7 +55688,7 @@ static const char *startup_source = "(values(if(not opaque-only?_0) exp-s_12 #f) ae_1))))))))))))" "(case-lambda" "((s_26)(begin 'syntax-local-expand-expression(syntax-local-expand-expression36_0 s_26 #f #f)))" -"((s_309 opaque-only?33_1)(syntax-local-expand-expression36_0 s_309 opaque-only?33_1 #t)))))" +"((s_308 opaque-only?33_1)(syntax-local-expand-expression36_0 s_308 opaque-only?33_1 #t)))))" "(define-values" "(do-local-expand56.1)" "(lambda(as-transformer?39_0" @@ -55724,7 +55731,7 @@ static const char *startup_source = "(let-values(((skip-log-exit?_0)(if skip-log-exit?49_0 skip-log-exit?43_0 #f)))" "(let-values()" "(let-values()" -"(let-values(((s_311)(datum->syntax$1 #f s-or-s-exp_0)))" +"(let-values(((s_310)(datum->syntax$1 #f s-or-s-exp_0)))" "(let-values((()" "(begin" "(if(let-values(((or-part_358)(list? context_23)))" @@ -55821,12 +55828,12 @@ static const char *startup_source = "(call-expand-observe" " obs_50" " 'enter-local" -" s_311)))" +" s_310)))" "(void)))" "(values))))" "(let-values(((input-s_1)" "(let-values(((temp101_4)" -"(flip-introduction-scopes s_311 ctx_70))" +"(flip-introduction-scopes s_310 ctx_70))" "((intdefs102_0) intdefs_9))" "(add-intdef-scopes21.1" " #f" @@ -56081,16 +56088,16 @@ static const char *startup_source = "(1/syntax-local-phase-level)))" "(let-values()(syntax-rearm$1 s_40 from-s_2))))))))))))" "(case-lambda" -"((s_182 from-s_3)(begin 'syntax-rearm(syntax-rearm12_0 s_182 from-s_3 #f #f)))" -"((s_174 from-s_4 use-mode?8_1)(syntax-rearm12_0 s_174 from-s_4 use-mode?8_1 #t)))))" +"((s_181 from-s_3)(begin 'syntax-rearm(syntax-rearm12_0 s_181 from-s_3 #f #f)))" +"((s_173 from-s_4 use-mode?8_1)(syntax-rearm12_0 s_173 from-s_4 use-mode?8_1 #t)))))" "(define-values" "(1/syntax-taint)" -"(lambda(s_161)" +"(lambda(s_160)" "(begin" " 'syntax-taint" "(begin" -" (if (syntax?$1 s_161) (void) (let-values () (raise-argument-error 'syntax-taint \"syntax?\" s_161)))" -"(syntax-taint$1 s_161)))))" +" (if (syntax?$1 s_160) (void) (let-values () (raise-argument-error 'syntax-taint \"syntax?\" s_160)))" +"(syntax-taint$1 s_160)))))" "(define-values" "(inspector-for-taint)" "(lambda(maybe-insp_3)" @@ -56141,8 +56148,8 @@ static const char *startup_source = "(let-values()" " (raise-argument-error 'variable-reference->module-path-index \"variable-reference?\" vr_2)))" "(values))))" -"(let-values(((mpi_47)(namespace-mpi(1/variable-reference->namespace vr_2))))" -"(if(top-level-module-path-index? mpi_47) #f mpi_47))))))" +"(let-values(((mpi_48)(namespace-mpi(1/variable-reference->namespace vr_2))))" +"(if(top-level-module-path-index? mpi_48) #f mpi_48))))))" "(define-values" "(1/variable-reference->resolved-module-path)" "(lambda(vr_3)" @@ -56155,8 +56162,8 @@ static const char *startup_source = "(let-values()" " (raise-argument-error 'variable-reference->resolved-module-path \"variable-reference?\" vr_3)))" "(values))))" -"(let-values(((mpi_48)(1/variable-reference->module-path-index vr_3)))" -"(if mpi_48(1/module-path-index-resolve mpi_48) #f))))))" +"(let-values(((mpi_49)(1/variable-reference->module-path-index vr_3)))" +"(if mpi_49(1/module-path-index-resolve mpi_49) #f))))))" "(define-values" "(1/variable-reference->module-source)" "(lambda(vr_4)" @@ -56699,14 +56706,14 @@ static const char *startup_source = "(let-values(((protected-syms_0)(if protected37_0 protected32_0 null)))" "(let-values(((register-builtin?_0)(if register-builtin?38_0 register-builtin?33_0 #f)))" "(let-values()" -"(let-values(((mpi_49)(1/module-path-index-join(list 'quote name_73) #f)))" +"(let-values(((mpi_50)(1/module-path-index-join(list 'quote name_73) #f)))" "(let-values(((ns66_1) ns_119)" "((temp67_3)" "(let-values(((temp69_5) #t)" "((primitive?70_0) primitive?_6)" "((temp71_5) #t)" "((temp72_2)(not protected?_3))" -"((mpi73_1) mpi_49)" +"((mpi73_1) mpi_50)" "((temp74_2)" "(hasheqv" " 0" @@ -56742,7 +56749,7 @@ static const char *startup_source = "(values))))" "(let-values(((binding_28)" "(let-values(((mpi76_0)" -" mpi_49)" +" mpi_50)" "((temp77_3)" " 0)" "((sym78_0)" @@ -56884,7 +56891,7 @@ static const char *startup_source = " #f" " #f" " #f)))" -"((temp68_1)(1/module-path-index-resolve mpi_49)))" +"((temp68_1)(1/module-path-index-resolve mpi_50)))" "(declare-module!58.1 #f #f ns66_1 temp67_3 temp68_1))))))))))))))" "(define-values" "(declare-reexporting-module!50.1)" @@ -56896,7 +56903,7 @@ static const char *startup_source = "(let-values(((reexport?_0)(if reexport?46_0 reexport?44_0 #t)))" "(let-values(((ns_121) namespace45_0))" "(let-values()" -"(let-values(((mpi_50)(1/module-path-index-join(list 'quote name_74) #f)))" +"(let-values(((mpi_51)(1/module-path-index-join(list 'quote name_74) #f)))" "(let-values(((require-mpis_0)" "(reverse$1" "(let-values(((lst_150) require-names_0))" @@ -56935,7 +56942,7 @@ static const char *startup_source = "((temp80_6)" "(let-values(((temp82_6) #t)" "((temp83_4) #t)" -"((mpi84_0) mpi_50)" +"((mpi84_0) mpi_51)" "((temp85_3)(list(cons 0 require-mpis_0)))" "((temp86_1)" "(if reexport?_0" @@ -57072,7 +57079,7 @@ static const char *startup_source = " #f" " #f" " #f)))" -"((temp81_3)(1/module-path-index-resolve mpi_50)))" +"((temp81_3)(1/module-path-index-resolve mpi_51)))" "(declare-module!58.1 #f #f ns79_1 temp80_6 temp81_3))))))))))))" "(define-values" "(read-primitives)" @@ -57539,10 +57546,10 @@ static const char *startup_source = "(if c2_16" "((lambda(thunk_6) thunk_6) c2_16)" "(let-values()" -"(let-values(((s_171)(1/read-syntax(object-name i_184) i_184)))" +"(let-values(((s_170)(1/read-syntax(object-name i_184) i_184)))" "(let-values((()" "(begin" -"(if(eof-object? s_171)" +"(if(eof-object? s_170)" "(let-values()" "(error" " 'default-load-handler" @@ -57553,7 +57560,7 @@ static const char *startup_source = "(object-name i_184)))" "(void))" "(values))))" -"(let-values(((m-s_0)(check-module-form s_171 path_12)))" +"(let-values(((m-s_0)(check-module-form s_170 path_12)))" "(let-values(((s2_7)(1/read-syntax(object-name i_184) i_184)))" "(begin" "(if(eof-object? s2_7)" @@ -57587,7 +57594,7 @@ static const char *startup_source = "(lambda(vals_7)" "(begin" " 'loop" -"(let-values(((s_303)" +"(let-values(((s_302)" "(with-continuation-mark" " parameterization-key" "(extend-parameterization" @@ -57617,14 +57624,14 @@ static const char *startup_source = "(1/read-syntax" "(object-name i_74)" " i_74))))))" -"(if(eof-object? s_303)" +"(if(eof-object? s_302)" "(apply values vals_7)" "(loop_119" "(call-with-continuation-prompt" "(lambda()" "(call-with-values" "(lambda()" -"((1/current-eval)(add-top-interaction_0 s_303)))" +"((1/current-eval)(add-top-interaction_0 s_302)))" " list))" "(default-continuation-prompt-tag)" "(lambda args_10" @@ -57830,13 +57837,13 @@ static const char *startup_source = "(define-values" "(default-load/use-compiled)" "(let-values(((resolve_0)" -"(lambda(s_157)" +"(lambda(s_156)" "(begin" " 'resolve" -"(if(complete-path? s_157)" -" s_157" +"(if(complete-path? s_156)" +" s_156" "(let-values(((d_36)(current-load-relative-directory)))" -"(if d_36(path->complete-path s_157 d_36) s_157)))))))" +"(if d_36(path->complete-path s_156 d_36) s_156)))))))" "(let-values(((date-of-1_0)" "(lambda(a_28)" "(begin" @@ -58276,14 +58283,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_166 from-namespace_1)" +"((s_165 from-namespace_1)" "(begin" " 'standard-module-name-resolver" "(begin" -"(if(1/resolved-module-path? s_166)" +"(if(1/resolved-module-path? s_165)" "(void)" "(let-values()" -" (raise-argument-error 'standard-module-name-resolver \"resolved-module-path?\" s_166)))" +" (raise-argument-error 'standard-module-name-resolver \"resolved-module-path?\" s_165)))" "(if(let-values(((or-part_282)(not from-namespace_1)))" "(if or-part_282 or-part_282(1/namespace? from-namespace_1)))" "(void)" @@ -58292,7 +58299,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_166))(void))" +"(if planet-resolver_0(let-values()(planet-resolver_0 s_165))(void))" "(let-values(((hts_1)" "(let-values(((or-part_256)" "(registry-table-ref" @@ -58306,14 +58313,14 @@ static const char *startup_source = " hts_2)" " hts_2))))))" "(begin" -"(hash-set!(car hts_1) s_166 'declared)" +"(hash-set!(car hts_1) s_165 'declared)" "(if from-namespace_1" "(let-values()" "(let-values(((root-name_2)" -"(if(pair?(1/resolved-module-path-name s_166))" +"(if(pair?(1/resolved-module-path-name s_165))" "(1/make-resolved-module-path" -"(car(1/resolved-module-path-name s_166)))" -" s_166))" +"(car(1/resolved-module-path-name s_165)))" +" s_165))" "((from-hts_0)" "(registry-table-ref" "(1/namespace-module-registry from-namespace_1))))" @@ -58656,12 +58663,12 @@ static const char *startup_source = " dir_4" "(append" "(map2" -"(lambda(s_159)" -" (if (string=? s_159 \".\")" +"(lambda(s_158)" +" (if (string=? s_158 \".\")" "(let-values() 'same)" -" (if (string=? s_159 \"..\")" +" (if (string=? s_158 \"..\")" "(let-values() 'up)" -"(let-values() s_159))))" +"(let-values() s_158))))" " cols_1)" "(list(ss->rkt_0 file_4))))))))))" "(if(path? s_31)" @@ -59278,18 +59285,18 @@ static const char *startup_source = " s_475)))" " s_44))" "((e82_0)" -"(let-values(((s_167)" +"(let-values(((s_166)" "(cdr" " s_475)))" -"(let-values(((s_168)" +"(let-values(((s_167)" "(if(syntax?$1" -" s_167)" +" s_166)" "(syntax-e$1" -" s_167)" -" s_167)))" +" s_166)" +" s_166)))" "(let-values(((flat-s_24)" "(to-syntax-list.1" -" s_168)))" +" s_167)))" "(if(not" " flat-s_24)" "(let-values()" @@ -59400,7 +59407,7 @@ static const char *startup_source = "(let-values(((s_50)" "(car" " s_69)))" -"(let-values(((s_311)" +"(let-values(((s_310)" "(if(syntax?$1" " s_50)" "(syntax-e$1" @@ -59408,7 +59415,7 @@ static const char *startup_source = " s_50)))" "(let-values(((flat-s_25)" "(to-syntax-list.1" -" s_311)))" +" s_310)))" "(if(not" " flat-s_25)" "(let-values()" @@ -59434,7 +59441,7 @@ static const char *startup_source = " 'for-loop" "(if(pair?" " lst_312)" -"(let-values(((s_315)" +"(let-values(((s_314)" "(unsafe-car" " lst_312))" "((rest_177)" @@ -59449,21 +59456,21 @@ static const char *startup_source = "(let-values()" "(if(let-values(((or-part_47)" "(if(syntax?$1" -" s_315)" +" s_314)" "(symbol?" "(syntax-e$1" -" s_315))" +" s_314))" " #f)))" "(if or-part_47" " or-part_47" "(symbol?" -" s_315)))" -" s_315" +" s_314)))" +" s_314" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_40" -" s_315)))))" +" s_314)))))" "(cons" " id92_0" " id_80)))))" @@ -59502,14 +59509,14 @@ static const char *startup_source = "(let-values(((s_413)" "(cdr" " s_477)))" -"(let-values(((s_317)" +"(let-values(((s_316)" "(if(syntax?$1" " s_413)" "(syntax-e$1" " s_413)" " s_413)))" "(if(null?" -" s_317)" +" s_316)" "(values)" "(raise-syntax-error$1" " #f" @@ -60009,7 +60016,7 @@ static const char *startup_source = "(let-values(((s_480)" "(car" " s_479)))" -"(let-values(((s_209)" +"(let-values(((s_208)" "(if(syntax?$1" " s_480)" "(syntax-e$1" @@ -60017,7 +60024,7 @@ static const char *startup_source = " s_480)))" "(let-values(((flat-s_26)" "(to-syntax-list.1" -" s_209)))" +" s_208)))" "(if(not" " flat-s_26)" "(let-values()" @@ -61465,22 +61472,22 @@ static const char *startup_source = "(make-expand-lambda)" "(lambda(get-lambda_0)" "(begin" -"(lambda(s_181 ctx_76)" +"(lambda(s_180 ctx_76)" "(let-values((()" "(begin" "(let-values(((obs_81)(expand-context-observer ctx_76)))" "(if obs_81(let-values()(let-values()(call-expand-observe obs_81 'prim-lambda)))(void)))" "(values))))" -"(let-values(((disarmed-s_6)(syntax-disarm$1 s_181)))" +"(let-values(((disarmed-s_6)(syntax-disarm$1 s_180)))" "(let-values(((ok?_34 lambda53_0 formals54_0 body55_0)" "(let-values(((s_76) disarmed-s_6))" "(let-values(((orig-s_42) s_76))" "(let-values(((lambda53_1 formals54_1 body55_1)" -"(let-values(((s_305)(if(syntax?$1 s_76)(syntax-e$1 s_76) s_76)))" -"(if(pair? s_305)" -"(let-values(((lambda56_0)(let-values(((s_187)(car s_305))) s_187))" +"(let-values(((s_304)(if(syntax?$1 s_76)(syntax-e$1 s_76) s_76)))" +"(if(pair? s_304)" +"(let-values(((lambda56_0)(let-values(((s_186)(car s_304))) s_186))" "((formals57_0 body58_0)" -"(let-values(((s_487)(cdr s_305)))" +"(let-values(((s_487)(cdr s_304)))" "(let-values(((s_403)" "(if(syntax?$1 s_487)" "(syntax-e$1 s_487)" @@ -61491,13 +61498,13 @@ static const char *startup_source = " s_488))" "((body60_0)" "(let-values(((s_489)(cdr s_403)))" -"(let-values(((s_163)" +"(let-values(((s_162)" "(if(syntax?$1 s_489)" "(syntax-e$1 s_489)" " s_489)))" "(let-values(((flat-s_27)" "(to-syntax-list.1" -" s_163)))" +" s_162)))" "(if(not flat-s_27)" "(let-values()" "(raise-syntax-error$1" @@ -61521,9 +61528,9 @@ static const char *startup_source = " (raise-syntax-error$1 #f \"bad syntax\" orig-s_42)))))" "(values #t lambda53_1 formals54_1 body55_1))))))" "(let-values(((rebuild-s_4)" -"(let-values(((temp63_4) #t))(keep-as-needed74.1 #f #f #f #f temp63_4 #t ctx_76 s_181))))" +"(let-values(((temp63_4) #t))(keep-as-needed74.1 #f #f #f #f temp63_4 #t ctx_76 s_180))))" "(let-values(((formals_2 body_13)" -"(lambda-clause-expander s_181 disarmed-s_6 formals54_0 body55_0 ctx_76 'lambda-renames)))" +"(lambda-clause-expander s_180 disarmed-s_6 formals54_0 body55_0 ctx_76 'lambda-renames)))" "(if(expand-context-to-parsed? ctx_76)" "(parsed-lambda5.1 rebuild-s_4 formals_2 body_13)" "(let-values(((rebuild-s64_0) rebuild-s_4)" @@ -61558,7 +61565,7 @@ static const char *startup_source = "(let-values(((case-lambda66_1 formals67_1 body68_1)" "(let-values(((s_69)(if(syntax?$1 s_32)(syntax-e$1 s_32) s_32)))" "(if(pair? s_69)" -"(let-values(((case-lambda69_0)(let-values(((s_311)(car s_69))) s_311))" +"(let-values(((case-lambda69_0)(let-values(((s_310)(car s_69))) s_310))" "((formals70_0 body71_0)" "(let-values(((s_474)(cdr s_69)))" "(let-values(((s_491)" @@ -61613,10 +61620,10 @@ static const char *startup_source = "(if(pair?" " s_55)" "(let-values(((formals72_0)" -"(let-values(((s_319)" +"(let-values(((s_318)" "(car" " s_55)))" -" s_319))" +" s_318))" "((body73_0)" "(let-values(((s_492)" "(cdr" @@ -61689,12 +61696,12 @@ static const char *startup_source = "(let-values(((s_56) disarmed-s_7))" "(let-values(((orig-s_44) s_56))" "(let-values(((case-lambda74_1 clause75_1)" -"(let-values(((s_304)(if(syntax?$1 s_56)(syntax-e$1 s_56) s_56)))" -"(if(pair? s_304)" +"(let-values(((s_303)(if(syntax?$1 s_56)(syntax-e$1 s_56) s_56)))" +"(if(pair? s_303)" "(let-values(((case-lambda76_0)" -"(let-values(((s_391)(car s_304))) s_391))" +"(let-values(((s_391)(car s_303))) s_391))" "((clause77_0)" -"(let-values(((s_493)(cdr s_304)))" +"(let-values(((s_493)(cdr s_303)))" "(let-values(((s_57)" "(if(syntax?$1 s_493)" "(syntax-e$1 s_493)" @@ -61810,7 +61817,7 @@ static const char *startup_source = "(rebuild5.1 #f #f rebuild-s87_0 temp88_3))))))))))))" "(define-values" "(parse-and-flatten-formals)" -"(lambda(all-formals_0 sc_32 s_321)" +"(lambda(all-formals_0 sc_32 s_320)" "(begin" "((letrec-values(((loop_125)" "(lambda(formals_9)" @@ -61825,19 +61832,19 @@ static const char *startup_source = "(let-values()(loop_125 p_83))" "(if(null? p_83)" "(let-values() null)" -" (let-values () (raise-syntax-error$1 #f \"not an identifier\" s_321 p_83))))))" +" (let-values () (raise-syntax-error$1 #f \"not an identifier\" s_320 p_83))))))" "(if(pair? formals_9)" "(let-values()" "(begin" "(if(identifier?(car formals_9))" "(void)" "(let-values()" -" (raise-syntax-error$1 #f \"not an identifier\" s_321 (car formals_9))))" +" (raise-syntax-error$1 #f \"not an identifier\" s_320 (car formals_9))))" "(cons(add-scope(car formals_9) sc_32)(loop_125(cdr formals_9)))))" "(if(null? formals_9)" "(let-values() null)" "(let-values()" -" (raise-syntax-error$1 \"bad argument sequence\" s_321 all-formals_0))))))))))" +" (raise-syntax-error$1 \"bad argument sequence\" s_320 all-formals_0))))))))))" " loop_125)" " all-formals_0))))" "(define-values" @@ -61902,19 +61909,19 @@ static const char *startup_source = " id:val92_1" " val-rhs93_1" " body94_1)" -"(let-values(((s_213)" +"(let-values(((s_212)" "(if(syntax?$1 s_107)" "(syntax-e$1 s_107)" " s_107)))" -"(if(pair? s_213)" +"(if(pair? s_212)" "(let-values(((letrec-syntaxes+values95_0)" -"(let-values(((s_494)(car s_213))) s_494))" +"(let-values(((s_494)(car s_212))) s_494))" "((id:trans96_0" " trans-rhs97_0" " id:val98_0" " val-rhs99_0" " body100_0)" -"(let-values(((s_111)(cdr s_213)))" +"(let-values(((s_111)(cdr s_212)))" "(let-values(((s_495)" "(if(syntax?$1 s_111)" "(syntax-e$1 s_111)" @@ -61979,18 +61986,18 @@ static const char *startup_source = "(let-values(((id:trans132_0" " trans-rhs133_0)" "(let-values()" -"(let-values(((s_221)" +"(let-values(((s_220)" "(if(syntax?$1" " s_497)" "(syntax-e$1" " s_497)" " s_497)))" "(if(pair?" -" s_221)" +" s_220)" "(let-values(((id:trans106_0)" "(let-values(((s_498)" "(car" -" s_221)))" +" s_220)))" "(let-values(((s_440)" "(if(syntax?$1" " s_498)" @@ -62075,7 +62082,7 @@ static const char *startup_source = "((trans-rhs107_0)" "(let-values(((s_500)" "(cdr" -" s_221)))" +" s_220)))" "(let-values(((s_501)" "(if(syntax?$1" " s_500)" @@ -62222,27 +62229,27 @@ static const char *startup_source = "(let-values(((id:val135_0" " val-rhs136_0)" "(let-values()" -"(let-values(((s_231)" +"(let-values(((s_230)" "(if(syntax?$1" " s_508)" "(syntax-e$1" " s_508)" " s_508)))" "(if(pair?" -" s_231)" +" s_230)" "(let-values(((id:val112_0)" -"(let-values(((s_233)" +"(let-values(((s_232)" "(car" -" s_231)))" -"(let-values(((s_234)" +" s_230)))" +"(let-values(((s_233)" "(if(syntax?$1" -" s_233)" +" s_232)" "(syntax-e$1" -" s_233)" -" s_233)))" +" s_232)" +" s_232)))" "(let-values(((flat-s_34)" "(to-syntax-list.1" -" s_234)))" +" s_233)))" "(if(not" " flat-s_34)" "(let-values()" @@ -62318,7 +62325,7 @@ static const char *startup_source = "((val-rhs113_0)" "(let-values(((s_347)" "(cdr" -" s_231)))" +" s_230)))" "(let-values(((s_509)" "(if(syntax?$1" " s_347)" @@ -62336,14 +62343,14 @@ static const char *startup_source = "(let-values(((s_511)" "(cdr" " s_509)))" -"(let-values(((s_236)" +"(let-values(((s_235)" "(if(syntax?$1" " s_511)" "(syntax-e$1" " s_511)" " s_511)))" "(if(null?" -" s_236)" +" s_235)" "(values)" "(raise-syntax-error$1" " #f" @@ -62462,20 +62469,20 @@ static const char *startup_source = "(if(if(not syntaxes?_0) #t #f)" "(let-values(((orig-s_46) s_445))" "(let-values(((let-values115_1 id:val116_1 val-rhs117_1 body118_1)" -"(let-values(((s_239)" +"(let-values(((s_238)" "(if(syntax?$1 s_445)" "(syntax-e$1 s_445)" " s_445)))" -"(if(pair? s_239)" +"(if(pair? s_238)" "(let-values(((let-values119_0)" -"(let-values(((s_242)(car s_239)))" -" s_242))" +"(let-values(((s_241)(car s_238)))" +" s_241))" "((id:val120_0 val-rhs121_0 body122_0)" -"(let-values(((s_243)(cdr s_239)))" +"(let-values(((s_242)(cdr s_238)))" "(let-values(((s_513)" -"(if(syntax?$1 s_243)" -"(syntax-e$1 s_243)" -" s_243)))" +"(if(syntax?$1 s_242)" +"(syntax-e$1 s_242)" +" s_242)))" "(if(pair? s_513)" "(let-values(((id:val123_0" " val-rhs124_0)" @@ -62642,20 +62649,20 @@ static const char *startup_source = "(if(pair?" " s_519)" "(let-values(((val-rhs128_0)" -"(let-values(((s_248)" +"(let-values(((s_247)" "(car" " s_519)))" -" s_248))" +" s_247))" "(()" -"(let-values(((s_249)" +"(let-values(((s_248)" "(cdr" " s_519)))" "(let-values(((s_520)" "(if(syntax?$1" -" s_249)" +" s_248)" "(syntax-e$1" -" s_249)" -" s_249)))" +" s_248)" +" s_248)))" "(if(null?" " s_520)" "(values)" @@ -64288,10 +64295,10 @@ static const char *startup_source = "(values))))" "(let-values(((disarmed-s_10)(syntax-disarm$1 s_529)))" "(let-values(((ok?_40 #%datum202_0 datum203_0)" -"(let-values(((s_193) disarmed-s_10))" -"(let-values(((orig-s_48) s_193))" +"(let-values(((s_192) disarmed-s_10))" +"(let-values(((orig-s_48) s_192))" "(let-values(((#%datum202_1 datum203_1)" -"(let-values(((s_530)(if(syntax?$1 s_193)(syntax-e$1 s_193) s_193)))" +"(let-values(((s_530)(if(syntax?$1 s_192)(syntax-e$1 s_192) s_192)))" "(if(pair? s_530)" "(let-values(((#%datum204_0)(let-values(((s_531)(car s_530))) s_531))" "((datum205_0)(let-values(((s_532)(cdr s_530))) s_532)))" @@ -64638,28 +64645,28 @@ static const char *startup_source = "(reference-records-all-used!(expand-context-reference-records ctx_85))" "(values))))" "(let-values(((ok?_45 _243_0 _244_0 kw245_0)" -"(let-values(((s_273) disarmed-s_12))" -"(let-values(((orig-s_52) s_273))" +"(let-values(((s_272) disarmed-s_12))" +"(let-values(((orig-s_52) s_272))" "(let-values(((_243_1 _244_1 kw245_1)" -"(let-values(((s_275)" -"(if(syntax?$1 s_273)(syntax-e$1 s_273) s_273)))" -"(if(pair? s_275)" +"(let-values(((s_274)" +"(if(syntax?$1 s_272)(syntax-e$1 s_272) s_272)))" +"(if(pair? s_274)" "(let-values(((_246_0)" -"(let-values(((s_277)(car s_275))) s_277))" +"(let-values(((s_276)(car s_274))) s_276))" "((_247_0 kw248_0)" -"(let-values(((s_278)(cdr s_275)))" -"(let-values(((s_279)" -"(if(syntax?$1 s_278)" -"(syntax-e$1 s_278)" -" s_278)))" -"(if(pair? s_279)" +"(let-values(((s_277)(cdr s_274)))" +"(let-values(((s_278)" +"(if(syntax?$1 s_277)" +"(syntax-e$1 s_277)" +" s_277)))" +"(if(pair? s_278)" "(let-values(((_249_0)" "(let-values(((s_580)" -"(car s_279)))" +"(car s_278)))" " s_580))" "((kw250_0)" "(let-values(((s_581)" -"(cdr s_279)))" +"(cdr s_278)))" "(let-values(((s_582)" "(if(syntax?$1" " s_581)" @@ -64715,13 +64722,13 @@ static const char *startup_source = "(void" "(add-core-form!*" " 'if" -"(lambda(s_280 ctx_86)" +"(lambda(s_279 ctx_86)" "(let-values((()" "(begin" "(let-values(((obs_100)(expand-context-observer ctx_86)))" "(if obs_100(let-values()(let-values()(call-expand-observe obs_100 'prim-if)))(void)))" "(values))))" -"(let-values(((disarmed-s_13)(syntax-disarm$1 s_280)))" +"(let-values(((disarmed-s_13)(syntax-disarm$1 s_279)))" "(let-values(((ok?_46 if256_0 tst257_0 thn258_0 els259_0)" "(let-values(((s_586) disarmed-s_13))" "(let-values(((orig-s_53) s_586))" @@ -64741,44 +64748,44 @@ static const char *startup_source = " s_591))" "((thn265_0 els266_0)" "(let-values(((s_592)(cdr s_590)))" -"(let-values(((s_290)" +"(let-values(((s_289)" "(if(syntax?$1 s_592)" "(syntax-e$1 s_592)" " s_592)))" -"(if(pair? s_290)" +"(if(pair? s_289)" "(let-values(((thn267_0)" "(let-values(((s_593)" "(car" -" s_290)))" +" s_289)))" " s_593))" "((els268_0)" -"(let-values(((s_291)" +"(let-values(((s_290)" "(cdr" -" s_290)))" +" s_289)))" "(let-values(((s_594)" "(if(syntax?$1" -" s_291)" +" s_290)" "(syntax-e$1" -" s_291)" -" s_291)))" +" s_290)" +" s_290)))" "(if(pair? s_594)" "(let-values(((els269_0)" -"(let-values(((s_292)" +"(let-values(((s_291)" "(car" " s_594)))" -" s_292))" +" s_291))" "(()" -"(let-values(((s_293)" +"(let-values(((s_292)" "(cdr" " s_594)))" -"(let-values(((s_294)" +"(let-values(((s_293)" "(if(syntax?$1" -" s_293)" +" s_292)" "(syntax-e$1" -" s_293)" -" s_293)))" +" s_292)" +" s_292)))" "(if(null?" -" s_294)" +" s_293)" "(values)" "(raise-syntax-error$1" " #f" @@ -64803,7 +64810,7 @@ static const char *startup_source = "(let-values(((expr-ctx_2)(as-expression-context ctx_86)))" "(let-values(((tail-ctx_0)(let-values(((ctx271_0) ctx_86))(as-tail-context23.1 ctx271_0 expr-ctx_2))))" "(let-values(((rebuild-s_9)" -"(let-values(((ctx272_0) ctx_86)((s273_0) s_280))" +"(let-values(((ctx272_0) ctx_86)((s273_0) s_279))" "(keep-as-needed74.1 #f #f #f #f #f #f ctx272_0 s273_0))))" "(let-values(((exp-tst_0)" "(let-values(((temp274_0) tst257_0)((expr-ctx275_0) expr-ctx_2))" @@ -66118,26 +66125,26 @@ static const char *startup_source = " for-meta3_0" " phase-level4_0" " spec5_0)" -"(let-values(((s_307)" +"(let-values(((s_306)" " disarmed-spec_0))" "(let-values(((orig-s_62)" -" s_307))" +" s_306))" "(let-values(((for-meta3_1" " phase-level4_1" " spec5_1)" "(let-values(((s_459)" "(if(syntax?$1" -" s_307)" +" s_306)" "(syntax-e$1" -" s_307)" -" s_307)))" +" s_306)" +" s_306)))" "(if(pair?" " s_459)" "(let-values(((for-meta6_0)" -"(let-values(((s_179)" +"(let-values(((s_178)" "(car" " s_459)))" -" s_179))" +" s_178))" "((phase-level7_0" " spec8_0)" "(let-values(((s_78)" @@ -66152,10 +66159,10 @@ static const char *startup_source = "(if(pair?" " s_412)" "(let-values(((phase-level9_0)" -"(let-values(((s_181)" +"(let-values(((s_180)" "(car" " s_412)))" -" s_181))" +" s_180))" "((spec10_0)" "(let-values(((s_399)" "(cdr" @@ -66266,10 +66273,10 @@ static const char *startup_source = "(if(pair?" " s_23)" "(let-values(((for-syntax15_0)" -"(let-values(((s_305)" +"(let-values(((s_304)" "(car" " s_23)))" -" s_305))" +" s_304))" "((spec16_0)" "(let-values(((s_25)" "(cdr" @@ -66530,30 +66537,30 @@ static const char *startup_source = "(let-values(((rename31_1" " id:from32_1" " id:to33_1)" -"(let-values(((s_317)" +"(let-values(((s_316)" "(if(syntax?$1" " s_476)" "(syntax-e$1" " s_476)" " s_476)))" "(if(pair?" -" s_317)" +" s_316)" "(let-values(((rename34_0)" -"(let-values(((s_159)" +"(let-values(((s_158)" "(car" -" s_317)))" -" s_159))" +" s_316)))" +" s_158))" "((id:from35_0" " id:to36_0)" -"(let-values(((s_319)" +"(let-values(((s_318)" "(cdr" -" s_317)))" +" s_316)))" "(let-values(((s_492)" "(if(syntax?$1" -" s_319)" +" s_318)" "(syntax-e$1" -" s_319)" -" s_319)))" +" s_318)" +" s_318)))" "(if(pair?" " s_492)" "(let-values(((id:from37_0)" @@ -66699,10 +66706,10 @@ static const char *startup_source = "(if(pair?" " s_710)" "(let-values(((struct43_0)" -"(let-values(((s_200)" +"(let-values(((s_199)" "(car" " s_710)))" -" s_200))" +" s_199))" "((id:struct44_0" " id:field45_0)" "(let-values(((s_37)" @@ -66738,22 +66745,22 @@ static const char *startup_source = " orig-s_65" " s_711))))" "((id:field47_0)" -"(let-values(((s_321)" +"(let-values(((s_320)" "(cdr" " s_86)))" "(let-values(((s_394)" "(if(syntax?$1" -" s_321)" +" s_320)" "(syntax-e$1" -" s_321)" -" s_321)))" +" s_320)" +" s_320)))" "(if(pair?" " s_394)" "(let-values(((id:field48_0)" "(let-values(((s_64)" "(car" " s_394)))" -"(let-values(((s_322)" +"(let-values(((s_321)" "(if(syntax?$1" " s_64)" "(syntax-e$1" @@ -66761,7 +66768,7 @@ static const char *startup_source = " s_64)))" "(let-values(((flat-s_46)" "(to-syntax-list.1" -" s_322)))" +" s_321)))" "(if(not" " flat-s_46)" "(let-values()" @@ -66835,15 +66842,15 @@ static const char *startup_source = "(reverse$1" " id:field_0))))))))" "(()" -"(let-values(((s_204)" +"(let-values(((s_203)" "(cdr" " s_394)))" "(let-values(((s_406)" "(if(syntax?$1" -" s_204)" +" s_203)" "(syntax-e$1" -" s_204)" -" s_204)))" +" s_203)" +" s_203)))" "(if(null?" " s_406)" "(values)" @@ -66922,34 +66929,34 @@ static const char *startup_source = " s_712)))" " s_417))" "((mod-path53_0)" -"(let-values(((s_207)" +"(let-values(((s_206)" "(cdr" " s_712)))" -"(let-values(((s_208)" +"(let-values(((s_207)" "(if(syntax?$1" -" s_207)" +" s_206)" "(syntax-e$1" -" s_207)" -" s_207)))" +" s_206)" +" s_206)))" "(if(pair?" -" s_208)" +" s_207)" "(let-values(((mod-path54_0)" "(let-values(((s_93)" "(car" -" s_208)))" +" s_207)))" " s_93))" "(()" "(let-values(((s_713)" "(cdr" -" s_208)))" -"(let-values(((s_323)" +" s_207)))" +"(let-values(((s_322)" "(if(syntax?$1" " s_713)" "(syntax-e$1" " s_713)" " s_713)))" "(if(null?" -" s_323)" +" s_322)" "(values)" "(raise-syntax-error$1" " #f" @@ -66997,19 +67004,19 @@ static const char *startup_source = " all-from-except55_0" " mod-path56_0" " id57_0)" -"(let-values(((s_210)" +"(let-values(((s_209)" " disarmed-spec_0))" "(let-values(((orig-s_67)" -" s_210))" +" s_209))" "(let-values(((all-from-except55_1" " mod-path56_1" " id57_1)" "(let-values(((s_98)" "(if(syntax?$1" -" s_210)" +" s_209)" "(syntax-e$1" -" s_210)" -" s_210)))" +" s_209)" +" s_209)))" "(if(pair?" " s_98)" "(let-values(((all-from-except58_0)" @@ -67073,7 +67080,7 @@ static const char *startup_source = " 'for-loop" "(if(pair?" " lst_403)" -"(let-values(((s_326)" +"(let-values(((s_325)" "(unsafe-car" " lst_403))" "((rest_235)" @@ -67088,21 +67095,21 @@ static const char *startup_source = "(let-values()" "(if(let-values(((or-part_386)" "(if(syntax?$1" -" s_326)" +" s_325)" "(symbol?" "(syntax-e$1" -" s_326))" +" s_325))" " #f)))" "(if or-part_386" " or-part_386" "(symbol?" -" s_326)))" -" s_326" +" s_325)))" +" s_325" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_67" -" s_326)))))" +" s_325)))))" "(cons" " id63_0" " id_129)))))" @@ -67169,17 +67176,17 @@ static const char *startup_source = "(values))))" "(let-values(((ok?_65" " all-defined64_0)" -"(let-values(((s_214)" +"(let-values(((s_213)" " disarmed-spec_0))" "(let-values(((orig-s_68)" -" s_214))" +" s_213))" "(let-values(((all-defined64_1)" "(let-values(((s_395)" "(if(syntax?$1" -" s_214)" +" s_213)" "(syntax-e$1" -" s_214)" -" s_214)))" +" s_213)" +" s_213)))" "(if(pair?" " s_395)" "(let-values(((all-defined65_0)" @@ -67243,32 +67250,32 @@ static const char *startup_source = " s_717))" "(let-values(((all-defined-except66_1" " id67_1)" -"(let-values(((s_217)" +"(let-values(((s_216)" "(if(syntax?$1" " s_717)" "(syntax-e$1" " s_717)" " s_717)))" "(if(pair?" -" s_217)" +" s_216)" "(let-values(((all-defined-except68_0)" "(let-values(((s_330)" "(car" -" s_217)))" +" s_216)))" " s_330))" "((id69_0)" -"(let-values(((s_218)" +"(let-values(((s_217)" "(cdr" -" s_217)))" -"(let-values(((s_219)" +" s_216)))" +"(let-values(((s_218)" "(if(syntax?$1" -" s_218)" +" s_217)" "(syntax-e$1" -" s_218)" -" s_218)))" +" s_217)" +" s_217)))" "(let-values(((flat-s_48)" "(to-syntax-list.1" -" s_219)))" +" s_218)))" "(if(not" " flat-s_48)" "(let-values()" @@ -67494,19 +67501,19 @@ static const char *startup_source = " prefix-all-defined-except76_0" " id:prefix77_0" " id78_0)" -"(let-values(((s_235)" +"(let-values(((s_234)" " disarmed-spec_0))" "(let-values(((orig-s_71)" -" s_235))" +" s_234))" "(let-values(((prefix-all-defined-except76_1" " id:prefix77_1" " id78_1)" "(let-values(((s_339)" "(if(syntax?$1" -" s_235)" +" s_234)" "(syntax-e$1" -" s_235)" -" s_235)))" +" s_234)" +" s_234)))" "(if(pair?" " s_339)" "(let-values(((prefix-all-defined-except79_0)" @@ -67681,49 +67688,49 @@ static const char *startup_source = "(let-values(((expand85_1" " id86_1" " datum87_1)" -"(let-values(((s_249)" +"(let-values(((s_248)" "(if(syntax?$1" " s_724)" "(syntax-e$1" " s_724)" " s_724)))" "(if(pair?" -" s_249)" +" s_248)" "(let-values(((expand88_0)" -"(let-values(((s_250)" +"(let-values(((s_249)" "(car" -" s_249)))" -" s_250))" +" s_248)))" +" s_249))" "((id89_1" " datum90_0)" "(let-values(((s_463)" "(cdr" -" s_249)))" -"(let-values(((s_251)" +" s_248)))" +"(let-values(((s_250)" "(if(syntax?$1" " s_463)" "(syntax-e$1" " s_463)" " s_463)))" "(if(pair?" -" s_251)" +" s_250)" "(let-values(((id91_1" " datum92_0)" "(let-values(((s_725)" "(car" -" s_251)))" -"(let-values(((s_253)" +" s_250)))" +"(let-values(((s_252)" "(if(syntax?$1" " s_725)" "(syntax-e$1" " s_725)" " s_725)))" "(if(pair?" -" s_253)" +" s_252)" "(let-values(((id93_0)" "(let-values(((s_726)" "(car" -" s_253)))" +" s_252)))" "(if(let-values(((or-part_391)" "(if(syntax?$1" " s_726)" @@ -67744,7 +67751,7 @@ static const char *startup_source = "((datum94_0)" "(let-values(((s_364)" "(cdr" -" s_253)))" +" s_252)))" " s_364)))" "(values" " id93_0" @@ -67756,7 +67763,7 @@ static const char *startup_source = "(()" "(let-values(((s_365)" "(cdr" -" s_251)))" +" s_250)))" "(let-values(((s_366)" "(if(syntax?$1" " s_365)" @@ -68247,13 +68254,13 @@ static const char *startup_source = "(let-values()" " (raise-syntax-error$1 provide-form-name \"not a module path\" orig-s_77 mod-path-stx_0)))" "(values))))" -"(let-values(((mpi_51)(module-path->mpi/context mod-path_33 ctx_103)))" -"(parse-all-from-module mpi_51 #f orig-s_77 except-ids_0 #f at-phase_16 ns_127 rp_4 protected?_7)))))))" +"(let-values(((mpi_52)(module-path->mpi/context mod-path_33 ctx_103)))" +"(parse-all-from-module mpi_52 #f orig-s_77 except-ids_0 #f at-phase_16 ns_127 rp_4 protected?_7)))))))" "(define-values" "(parse-all-from-module)" -"(lambda(mpi_52 matching-stx_0 orig-s_78 except-ids_1 prefix-sym_0 at-phase_17 ns_26 rp_5 protected?_8)" +"(lambda(mpi_53 matching-stx_0 orig-s_78 except-ids_1 prefix-sym_0 at-phase_17 ns_26 rp_5 protected?_8)" "(begin" -"(let-values(((requireds_2)(extract-module-requires rp_5 mpi_52 at-phase_17)))" +"(let-values(((requireds_2)(extract-module-requires rp_5 mpi_53 at-phase_17)))" "(let-values(((phase-desc_0)" "(lambda()" "(begin" @@ -68698,7 +68705,7 @@ static const char *startup_source = "(void" "(add-core-form!*" " 'module" -"(lambda(s_184 ctx_104)" +"(lambda(s_183 ctx_104)" "(begin" "(if(eq?(expand-context-context ctx_104) 'top-level)" "(void)" @@ -68706,18 +68713,18 @@ static const char *startup_source = "(begin" "(let-values(((obs_117)(expand-context-observer ctx_104)))" "(if obs_117(let-values()(let-values()(call-expand-observe obs_117 'prim-module)))(void)))" -" (raise-syntax-error$1 #f \"allowed only at the top level\" s_184))))" +" (raise-syntax-error$1 #f \"allowed only at the top level\" s_183))))" "(let-values()" -"(let-values(((s223_0) s_184)((ctx224_0) ctx_104)((temp225_3) #f))" +"(let-values(((s223_0) s_183)((ctx224_0) ctx_104)((temp225_3) #f))" "(expand-module18.1 #f #f #f #f #f #f #f #f #f #f #f #f #f #f s223_0 ctx224_0 temp225_3)))))))" "(void" "(add-core-form!*" " 'module*" -"(lambda(s_307 ctx_105)" +"(lambda(s_306 ctx_105)" "(begin" "(let-values(((obs_118)(expand-context-observer ctx_105)))" "(if obs_118(let-values()(let-values()(call-expand-observe obs_118 'prim-module)))(void)))" -" (raise-syntax-error$1 #f \"illegal use (not in a module top-level)\" s_307)))))" +" (raise-syntax-error$1 #f \"illegal use (not in a module top-level)\" s_306)))))" "(void" "(add-core-form!*" " '#%module-begin" @@ -68847,66 +68854,66 @@ static const char *startup_source = " id:module-name229_1" " initial-require230_1" " body231_1)" -"(let-values(((s_316)" +"(let-values(((s_315)" "(if(syntax?$1 s_491)" "(syntax-e$1 s_491)" " s_491)))" -"(if(pair? s_316)" +"(if(pair? s_315)" "(let-values(((module232_0)" -"(let-values(((s_731)(car s_316)))" +"(let-values(((s_731)(car s_315)))" " s_731))" "((id:module-name233_0" " initial-require234_0" " body235_0)" -"(let-values(((s_476)(cdr s_316)))" +"(let-values(((s_476)(cdr s_315)))" "(let-values(((s_477)" "(if(syntax?$1 s_476)" "(syntax-e$1 s_476)" " s_476)))" "(if(pair? s_477)" "(let-values(((id:module-name236_0)" -"(let-values(((s_317)" +"(let-values(((s_316)" "(car" " s_477)))" "(if(let-values(((or-part_365)" "(if(syntax?$1" -" s_317)" +" s_316)" "(symbol?" "(syntax-e$1" -" s_317))" +" s_316))" " #f)))" "(if or-part_365" " or-part_365" "(symbol?" -" s_317)))" -" s_317" +" s_316)))" +" s_316" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_79" -" s_317))))" +" s_316))))" "((initial-require237_0" " body238_0)" "(let-values(((s_55)" "(cdr" " s_477)))" -"(let-values(((s_318)" +"(let-values(((s_317)" "(if(syntax?$1" " s_55)" "(syntax-e$1" " s_55)" " s_55)))" "(if(pair?" -" s_318)" +" s_317)" "(let-values(((initial-require239_0)" "(let-values(((s_492)" "(car" -" s_318)))" +" s_317)))" " s_492))" "((body240_0)" "(let-values(((s_388)" "(cdr" -" s_318)))" +" s_317)))" "(let-values(((s_732)" "(if(syntax?$1" " s_388)" @@ -69247,29 +69254,29 @@ static const char *startup_source = "(let-values(((s_712)" "(cdr" " s_90)))" -"(let-values(((s_206)" +"(let-values(((s_205)" "(if(syntax?$1" " s_712)" "(syntax-e$1" " s_712)" " s_712)))" "(if(pair?" -" s_206)" +" s_205)" "(let-values(((_283_0)" -"(let-values(((s_207)" +"(let-values(((s_206)" "(car" -" s_206)))" -" s_207))" +" s_205)))" +" s_206))" "((body284_0)" -"(let-values(((s_208)" +"(let-values(((s_207)" "(cdr" -" s_206)))" +" s_205)))" "(let-values(((s_92)" "(if(syntax?$1" -" s_208)" +" s_207)" "(syntax-e$1" -" s_208)" -" s_208)))" +" s_207)" +" s_207)))" "(let-values(((flat-s_2)" "(to-syntax-list.1" " s_92)))" @@ -69447,7 +69454,7 @@ static const char *startup_source = "(if(expand-context/inner?" " the-struct_104)" "(let-values(((module-begin-k306_0)" -"(lambda(s_214" +"(lambda(s_213" " ctx_3)" "(begin" " 'module-begin-k306" @@ -69482,7 +69489,7 @@ static const char *startup_source = " compiled-module-box312_0)))" "(lambda()" "(module-begin-k_1" -" s_214" +" s_213" " ctx_3))" "(lambda()" "(begin" @@ -69625,7 +69632,7 @@ static const char *startup_source = "(let-values(((s_421)" "(cdr" " s_113)))" -"(let-values(((s_216)" +"(let-values(((s_215)" "(if(syntax?$1" " s_421)" "(syntax-e$1" @@ -69633,7 +69640,7 @@ static const char *startup_source = " s_421)))" "(let-values(((flat-s_52)" "(to-syntax-list.1" -" s_216)))" +" s_215)))" "(if(not" " flat-s_52)" "(let-values()" @@ -70546,7 +70553,7 @@ static const char *startup_source = " 'for-loop" "(if(pair?" " lst_414)" -"(let-values(((mpi_53)" +"(let-values(((mpi_54)" "(unsafe-car" " lst_414))" "((rest_243)" @@ -70559,7 +70566,7 @@ static const char *startup_source = "(begin" "(let-values()" "(imitate-generic-module-path-index!" -" mpi_53))" +" mpi_54))" "(values)))))" "(values)))))" "(if(not" @@ -70652,7 +70659,7 @@ static const char *startup_source = "(let-values(((ctx_110) ctx24_0))" "(let-values(((def-ctx-scopes_9) def-ctx-scopes25_0))" "(let-values(((phase_149) phase26_2))" -"(let-values(((s_264) s27_2))" +"(let-values(((s_263) s27_2))" "(let-values()" "(let-values(((make-mb-ctx_0)" "(lambda()" @@ -70716,7 +70723,7 @@ static const char *startup_source = "(let-values() partly-expanded-body_0)" "(let-values()" "(let-values(((temp432_0)(list partly-expanded-body_0))" -"((s433_0) s_264)" +"((s433_0) s_263)" "((scopes-s434_0) scopes-s_0)" "((phase435_0) phase_149)" "((module-name-sym436_0) module-name-sym_1)" @@ -70733,7 +70740,7 @@ static const char *startup_source = " temp437_0)))))))))" "(let-values()" "(let-values(((bodys439_0) bodys_18)" -"((s440_0) s_264)" +"((s440_0) s_263)" "((scopes-s441_0) scopes-s_0)" "((phase442_0) phase_149)" "((module-name-sym443_0) module-name-sym_1)" @@ -71477,14 +71484,14 @@ static const char *startup_source = "(let-values(((s_755)" "(cdr" " s_753)))" -"(let-values(((s_191)" +"(let-values(((s_190)" "(if(syntax?$1" " s_755)" "(syntax-e$1" " s_755)" " s_755)))" "(if(null?" -" s_191)" +" s_190)" "(values)" "(raise-syntax-error$1" " #f" @@ -72597,7 +72604,7 @@ static const char *startup_source = " self_32" " phase_151" " all-scopes-stx_6))))" -"(let-values(((s_285)" +"(let-values(((s_284)" "(add-scope" "(datum->syntax$1" " #f" @@ -72606,7 +72613,7 @@ static const char *startup_source = " scoped-ids_0" " rhs_23))" " inside-scope_2)))" -"(values scoped-ids_0(semi-parsed-define-values2.1 s_285 syms_26 scoped-ids_0 rhs_23)))))))))" +"(values scoped-ids_0(semi-parsed-define-values2.1 s_284 syms_26 scoped-ids_0 rhs_23)))))))))" "(define-values" "(add-post-expansion-scope)" "(lambda(bodys_23 ctx_111)" @@ -72742,7 +72749,7 @@ static const char *startup_source = "(let-values(((syms_27)" "(semi-parsed-define-values-syms" " body_24)))" -"(let-values(((s_300)" +"(let-values(((s_299)" "(semi-parsed-define-values-s" " body_24)))" "(let-values(((ok?_80" @@ -72751,7 +72758,7 @@ static const char *startup_source = " _562_0)" "(let-values(((s_771)" "(syntax-disarm$1" -" s_300)))" +" s_299)))" "(if(if(not" "(expand-context-to-parsed?" " rhs-ctx_2))" @@ -72869,7 +72876,7 @@ static const char *startup_source = " temp571_0" " #t" " rhs-ctx_2" -" s_300))))" +" s_299))))" "(let-values((()" "(begin" "(log-defn-enter" @@ -75045,7 +75052,7 @@ static const char *startup_source = "(void))))))" "(define-values" "(as-expand-time-top-level-bindings)" -"(lambda(ids_46 s_157 ctx_121)" +"(lambda(ids_46 s_156 ctx_121)" "(begin" "(let-values(((top-level-bind-scope_6)(root-expand-context-top-level-bind-scope ctx_121)))" "(let-values(((tl-ids_2)" @@ -75080,7 +75087,7 @@ static const char *startup_source = " lst_6))))))" "(let-values((()" "(begin" -"(let-values(((tl-ids1_0) tl-ids_2)((temp2_8)(expand-context-phase ctx_121))((s3_3) s_157))" +"(let-values(((tl-ids1_0) tl-ids_2)((temp2_8)(expand-context-phase ctx_121))((s3_3) s_156))" "(check-no-duplicate-ids8.1 #f #f tl-ids1_0 temp2_8 s3_3 #f #f))" "(values))))" "(let-values(((tmp-bind-ids_0)" @@ -75135,26 +75142,26 @@ static const char *startup_source = "(values))))" "(let-values(((disarmed-s_25)(syntax-disarm$1 s_0)))" "(let-values(((ok?_25 define-values1_0 id2_1 rhs3_0)" -"(let-values(((s_172) s_0))" -"(let-values(((orig-s_96) s_172))" +"(let-values(((s_171) s_0))" +"(let-values(((orig-s_96) s_171))" "(let-values(((define-values1_1 id2_2 rhs3_1)" -"(let-values(((s_40)(if(syntax?$1 s_172)(syntax-e$1 s_172) s_172)))" +"(let-values(((s_40)(if(syntax?$1 s_171)(syntax-e$1 s_171) s_171)))" "(if(pair? s_40)" "(let-values(((define-values4_0)" -"(let-values(((s_182)(car s_40))) s_182))" +"(let-values(((s_181)(car s_40))) s_181))" "((id5_0 rhs6_0)" "(let-values(((s_41)(cdr s_40)))" -"(let-values(((s_174)" +"(let-values(((s_173)" "(if(syntax?$1 s_41)" "(syntax-e$1 s_41)" " s_41)))" -"(if(pair? s_174)" +"(if(pair? s_173)" "(let-values(((id7_0)" -"(let-values(((s_161)(car s_174)))" +"(let-values(((s_160)(car s_173)))" "(let-values(((s_5)" -"(if(syntax?$1 s_161)" -"(syntax-e$1 s_161)" -" s_161)))" +"(if(syntax?$1 s_160)" +"(syntax-e$1 s_160)" +" s_160)))" "(let-values(((flat-s_63)" "(to-syntax-list.1" " s_5)))" @@ -75182,7 +75189,7 @@ static const char *startup_source = " 'for-loop" "(if(pair?" " lst_76)" -"(let-values(((s_183)" +"(let-values(((s_182)" "(unsafe-car" " lst_76))" "((rest_141)" @@ -75197,21 +75204,21 @@ static const char *startup_source = "(let-values()" "(if(let-values(((or-part_56)" "(if(syntax?$1" -" s_183)" +" s_182)" "(symbol?" "(syntax-e$1" -" s_183))" +" s_182))" " #f)))" "(if or-part_56" " or-part_56" "(symbol?" -" s_183)))" -" s_183" +" s_182)))" +" s_182" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_96" -" s_183)))))" +" s_182)))))" "(cons" " id10_0" " id_52)))))" @@ -75229,27 +75236,27 @@ static const char *startup_source = " lst_24)))))" "(reverse$1 id_160))))))))" "((rhs8_0)" -"(let-values(((s_82)(cdr s_174)))" -"(let-values(((s_306)" +"(let-values(((s_82)(cdr s_173)))" +"(let-values(((s_305)" "(if(syntax?$1 s_82)" "(syntax-e$1 s_82)" " s_82)))" -"(if(pair? s_306)" +"(if(pair? s_305)" "(let-values(((rhs9_0)" "(let-values(((s_43)" "(car" -" s_306)))" +" s_305)))" " s_43))" "(()" -"(let-values(((s_307)" +"(let-values(((s_306)" "(cdr" -" s_306)))" +" s_305)))" "(let-values(((s_35)" "(if(syntax?$1" -" s_307)" +" s_306)" "(syntax-e$1" -" s_307)" -" s_307)))" +" s_306)" +" s_306)))" "(if(null?" " s_35)" "(values)" @@ -75408,14 +75415,14 @@ static const char *startup_source = "(let-values(((s_44)" "(cdr" " s_475)))" -"(let-values(((s_167)" +"(let-values(((s_166)" "(if(syntax?$1" " s_44)" "(syntax-e$1" " s_44)" " s_44)))" "(if(null?" -" s_167)" +" s_166)" "(values)" "(raise-syntax-error$1" " #f" @@ -75445,7 +75452,7 @@ static const char *startup_source = "(void" "(add-core-form!*" " 'begin-for-syntax" -" (lambda (s_308 ctx_123) (raise-syntax-error$1 #f \"not allowed in an expression position\" s_308))))" +" (lambda (s_307 ctx_123) (raise-syntax-error$1 #f \"not allowed in an expression position\" s_307))))" "(void" "(add-core-form!*" " '#%require"